From 7b208734e2f275c974602508c87258c87c323b8c Mon Sep 17 00:00:00 2001 From: vyzo Date: Sun, 25 Jan 2026 22:23:31 +0200 Subject: [PATCH 1/5] kickstart v0.19 development --- README-v0.19.md | 5 +++++ 1 file changed, 5 insertions(+) create mode 100644 README-v0.19.md diff --git a/README-v0.19.md b/README-v0.19.md new file mode 100644 index 0000000000..7443ecb301 --- /dev/null +++ b/README-v0.19.md @@ -0,0 +1,5 @@ +# This is the v0.19 development branch + +there are many changes coming, many of them source breaking, so we +decided it to keep master as is (it is in a good shape) until v0.19 is +read. From 18034aca560ca61b892833e26cf8df5e281cf657 Mon Sep 17 00:00:00 2001 From: vyzo Date: Mon, 26 Jan 2026 02:57:50 +0200 Subject: [PATCH 2/5] v0.19 development staging (#1393) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This started as a rework of the logging system, but it has expanded to touch some other aspects... to the point that it kickstarted the v0.19 development branch. Lot's of things changing, this is just the base --------- Co-authored-by: François-René Rideau --- Makefile | 24 +- src/bootstrap.sh | 80 +- src/bootstrap/gerbil/compiler/base~0.scm | 500 +- src/bootstrap/gerbil/compiler/base~1.scm | 557 +- src/bootstrap/gerbil/compiler/compile.ssxi.ss | 2 +- src/bootstrap/gerbil/compiler/compile~0.scm | 15513 ++++----- src/bootstrap/gerbil/compiler/compile~1.scm | 1293 +- src/bootstrap/gerbil/compiler/driver~0.scm | 3424 +- src/bootstrap/gerbil/compiler/driver~1.scm | 56 +- src/bootstrap/gerbil/compiler/method~0.scm | 3054 +- src/bootstrap/gerbil/compiler/method~1.scm | 3055 +- .../gerbil/compiler/optimize-ann~0.scm | 18366 +++++------ .../gerbil/compiler/optimize-ann~1.scm | 210 +- .../gerbil/compiler/optimize-base~0.scm | 1838 +- .../gerbil/compiler/optimize-base~1.scm | 2484 +- .../gerbil/compiler/optimize-call~0.scm | 6283 ++-- .../gerbil/compiler/optimize-call~1.scm | 116 +- .../gerbil/compiler/optimize-spec~0.scm | 11093 +++---- .../gerbil/compiler/optimize-spec~1.scm | 368 +- .../gerbil/compiler/optimize-top~0.scm | 26064 ++++++++-------- .../gerbil/compiler/optimize-top~1.scm | 914 +- .../gerbil/compiler/optimize-xform~0.scm | 1432 +- .../gerbil/compiler/optimize-xform~1.scm | 434 +- src/bootstrap/gerbil/compiler/optimize~0.scm | 2161 +- src/bootstrap/gerbil/compiler/optimize~1.scm | 58 +- src/bootstrap/gerbil/compiler/ssxi~1.scm | 6622 ++-- src/bootstrap/gerbil/core.ssi | 10290 +++--- src/bootstrap/gerbil/core/contract.scm | 3 +- src/bootstrap/gerbil/core/contract.ssi | 1071 +- src/bootstrap/gerbil/core/contract.ssxi.ss | 130 +- src/bootstrap/gerbil/core/contract~1.scm | 507 +- src/bootstrap/gerbil/core/contract~2.scm | 238 +- src/bootstrap/gerbil/core/contract~3.scm | 70 +- src/bootstrap/gerbil/core/contract~4.scm | 1883 +- src/bootstrap/gerbil/core/contract~5.scm | 120 +- src/bootstrap/gerbil/core/contract~6.scm | 12024 +++---- src/bootstrap/gerbil/core/contract~7.scm | 356 +- src/bootstrap/gerbil/core/contract~8.scm | 15809 +++++----- src/bootstrap/gerbil/core/contract~9.scm | 23020 +++++++------- .../gerbil/core/contract~ClassMeta~0.scm | 182 +- .../gerbil/core/contract~Interface.scm | 3 +- .../gerbil/core/contract~InterfaceInfo.scm | 6 +- .../gerbil/core/contract~InterfaceInfo~0.scm | 511 +- .../gerbil/core/contract~TypeCast.scm | 6 +- .../gerbil/core/contract~TypeEnv~0.scm | 22 +- .../gerbil/core/contract~TypeReference.scm | 2 +- src/bootstrap/gerbil/core/contract~Using.scm | 3 +- src/bootstrap/gerbil/core/expander.ssi | 1 + src/bootstrap/gerbil/core/expander~2.scm | 2000 +- src/bootstrap/gerbil/core/macro-object~0.scm | 32 +- src/bootstrap/gerbil/core/macro-object~1.scm | 70 +- src/bootstrap/gerbil/core/match~1.scm | 11273 +++---- src/bootstrap/gerbil/core/match~2.scm | 74 +- src/bootstrap/gerbil/core/module-sugar~1.scm | 3807 +-- src/bootstrap/gerbil/core/mop.ssi | 168 +- src/bootstrap/gerbil/core/mop.ssxi.ss | 220 +- src/bootstrap/gerbil/core/mop~1.scm | 1388 +- src/bootstrap/gerbil/core/mop~2.scm | 902 +- src/bootstrap/gerbil/core/mop~3.scm | 4986 +-- src/bootstrap/gerbil/core/mop~4.scm | 4368 ++- src/bootstrap/gerbil/core/mop~MOP-2~0.scm | 376 +- src/bootstrap/gerbil/core/more-sugar~1.scm | 6642 ++-- src/bootstrap/gerbil/core/more-sugar~2.scm | 146 +- .../gerbil/core/more-syntax-sugar.scm | 4 +- .../gerbil/core/more-syntax-sugar.ssi | 15 +- .../gerbil/core/more-syntax-sugar~1.scm | 1109 +- src/bootstrap/gerbil/core/runtime.ssi | 24 +- src/bootstrap/gerbil/core/sugar~1.scm | 4730 +-- src/bootstrap/gerbil/core/sugar~2.scm | 14746 ++++----- src/bootstrap/gerbil/core/sugar~3.scm | 1198 +- src/bootstrap/gerbil/expander/common~0.scm | 11 +- src/bootstrap/gerbil/expander/common~1.scm | 1220 +- src/bootstrap/gerbil/expander/compile~0.scm | 1262 +- src/bootstrap/gerbil/expander/core.ssi | 1 + src/bootstrap/gerbil/expander/core.ssxi.ss | 15 + src/bootstrap/gerbil/expander/core~0.scm | 3194 +- src/bootstrap/gerbil/expander/core~1.scm | 3556 +-- src/bootstrap/gerbil/expander/init~0.scm | 22 +- src/bootstrap/gerbil/expander/module.ssxi.ss | 16 +- src/bootstrap/gerbil/expander/module~0.scm | 4998 ++- src/bootstrap/gerbil/expander/module~1.scm | 848 +- src/bootstrap/gerbil/expander/root~0.scm | 744 +- src/bootstrap/gerbil/expander/stxcase~0.scm | 3086 +- src/bootstrap/gerbil/expander/stxcase~1.scm | 225 +- src/bootstrap/gerbil/expander/stx~0.scm | 1508 +- src/bootstrap/gerbil/expander/stx~1.scm | 358 +- src/bootstrap/gerbil/expander/top~0.scm | 4690 +-- src/bootstrap/gerbil/gambit.scm | 2 - src/bootstrap/gerbil/gambit.ssi | 5 - src/bootstrap/gerbil/gambit.ssxi.ss | 4 - src/bootstrap/gerbil/runtime/c3~0.scm | 678 +- src/bootstrap/gerbil/runtime/control~0.scm | 408 +- src/bootstrap/gerbil/runtime/error.ssxi.ss | 4 +- src/bootstrap/gerbil/runtime/error~0.scm | 3244 +- src/bootstrap/gerbil/runtime/error~1.scm | 957 +- src/bootstrap/gerbil/runtime/eval~0.scm | 3026 +- src/bootstrap/gerbil/runtime/eval~1.scm | 793 +- src/bootstrap/gerbil/runtime/gambit.ssi | 3 +- src/bootstrap/gerbil/runtime/gambit~0.scm | 2 +- src/bootstrap/gerbil/runtime/hash.ssi | 64 +- src/bootstrap/gerbil/runtime/hash.ssxi.ss | 70 +- src/bootstrap/gerbil/runtime/hash~0.scm | 2848 +- src/bootstrap/gerbil/runtime/hash~1.scm | 1594 +- src/bootstrap/gerbil/runtime/init~0.scm | 412 +- src/bootstrap/gerbil/runtime/interface.ssi | 78 +- .../gerbil/runtime/interface.ssxi.ss | 219 +- src/bootstrap/gerbil/runtime/interface~0.scm | 2462 +- src/bootstrap/gerbil/runtime/interface~1.scm | 1402 +- src/bootstrap/gerbil/runtime/loader~0.scm | 318 +- .../gerbil/runtime/mop-system-classes.ssi | 30 +- .../gerbil/runtime/mop-system-classes.ssxi.ss | 833 +- .../gerbil/runtime/mop-system-classes~0.scm | 672 +- .../gerbil/runtime/mop-system-classes~1.scm | 251 +- src/bootstrap/gerbil/runtime/mop.ssi | 113 +- src/bootstrap/gerbil/runtime/mop.ssxi.ss | 479 +- src/bootstrap/gerbil/runtime/mop~0.scm | 6442 ++-- src/bootstrap/gerbil/runtime/mop~1.scm | 2024 +- src/bootstrap/gerbil/runtime/repl~0.scm | 36 +- src/bootstrap/gerbil/runtime/syntax.scm | 3 +- src/bootstrap/gerbil/runtime/syntax.ssi | 3 +- src/bootstrap/gerbil/runtime/syntax~0.scm | 764 +- src/bootstrap/gerbil/runtime/syntax~1.scm | 1445 +- src/bootstrap/gerbil/runtime/system.ssi | 3 +- src/bootstrap/gerbil/runtime/system.ssxi.ss | 7 +- src/bootstrap/gerbil/runtime/system~0.scm | 285 +- src/bootstrap/gerbil/runtime/table.ssi | 169 +- src/bootstrap/gerbil/runtime/table.ssxi.ss | 1869 +- src/bootstrap/gerbil/runtime/table~0.scm | 4602 ++- src/bootstrap/gerbil/runtime/table~1.scm | 2602 +- src/bootstrap/gerbil/runtime/thread.ssi | 11 + src/bootstrap/gerbil/runtime/thread.ssxi.ss | 129 +- src/bootstrap/gerbil/runtime/thread~0.scm | 634 +- src/bootstrap/gerbil/runtime/util.ssi | 4 +- src/bootstrap/gerbil/runtime/util.ssxi.ss | 15 + src/bootstrap/gerbil/runtime/util~0.scm | 3618 ++- src/bootstrap/gerbil/runtime/util~1.scm | 2645 +- src/bootstrap/gerbil/runtime~0.scm | 2 +- src/build.sh | 60 +- src/build/build-bach.ss | 2 - src/build/build-libgerbil.ss | 5 - src/build/build0.scm | 6 +- src/build/build1.ss | 5 - src/gerbil/compiler/optimize-top.ss | 20 +- src/gerbil/core/contract.ss | 105 +- src/gerbil/core/expander.ss | 2 +- src/gerbil/core/mop.ss | 209 +- src/gerbil/core/more-syntax-sugar.ss | 36 +- src/gerbil/core/runtime.ss | 25 +- src/gerbil/expander/core.ss | 6 +- src/gerbil/expander/stx.ss | 10 +- src/gerbil/gambit.ss | 7 - src/gerbil/main.ss | 3 - src/gerbil/runtime/error.ss | 5 +- src/gerbil/runtime/gambit.ss | 9 +- src/gerbil/runtime/hash.ss | 10 +- src/gerbil/runtime/init.ss | 2 +- src/gerbil/runtime/interface.ss | 224 +- src/gerbil/runtime/mop-system-classes.ss | 205 +- src/gerbil/runtime/mop.ss | 289 +- src/gerbil/runtime/syntax.ss | 4 +- src/gerbil/runtime/system.ss | 14 +- src/gerbil/runtime/table.ss | 268 +- src/gerbil/runtime/thread.ss | 71 +- src/gerbil/runtime/util.ss | 62 +- src/lang/build.ss | 27 +- src/std/build-spec.ss | 4 + src/std/contract.ss | 6 - src/std/encoding/json/env.ss | 45 + src/std/encoding/json/io.ss | 92 + src/std/encoding/json/reader.ss | 12 + src/std/encoding/json/writer.ss | 158 + src/std/ffi.ss | 32 + src/std/format/env.ss | 264 + src/std/format/io.ss | 93 + src/std/format/ioutil.ss | 447 + src/std/format/reader.ss | 12 + src/std/format/string.ss | 44 + src/std/format/writer.ss | 597 + src/std/interface.ss | 118 +- src/std/io/bio/api.ss | 10 +- src/std/io/bio/util.ss | 26 +- src/std/io/strio/util.ss | 26 +- src/std/log/compress.ss | 12 + src/std/log/console.ss | 42 + src/std/log/default.ss | 36 + src/std/log/format.ss | 88 + src/std/log/interface.ss | 45 + src/std/log/level.ss | 115 + src/std/log/macros.ss | 58 + src/std/log/proto.ss | 13 + src/std/log/rotate.ss | 173 + src/std/log/system.ss | 180 + src/std/log/user.ss | 73 + src/std/misc/walist.ss | 110 - src/std/object.ss | 27 + src/std/os/time.ss | 82 + src/std/serde/interned.ss | 44 + src/std/serde/opaque.ss | 8 + src/std/serde/scan.ss | 83 + src/std/serde/scanner.ss | 8 + src/std/serde/serialize.ss | 65 + src/std/text/json/env.ss | 48 - src/std/time/format.ss | 34 + src/std/time/time.ss | 47 + src/std/{ => v0.19-TODIE}/actor-v13.ss | 0 .../{ => v0.19-TODIE}/actor-v13/message.ss | 0 src/std/{ => v0.19-TODIE}/actor-v13/proto.ss | 0 .../{ => v0.19-TODIE}/actor-v13/rpc-test.ss | 0 src/std/{ => v0.19-TODIE}/actor-v13/rpc.ss | 0 .../{ => v0.19-TODIE}/actor-v13/rpc/base.ss | 0 .../actor-v13/rpc/connection.ss | 0 .../actor-v13/rpc/proto/cipher.ss | 0 .../actor-v13/rpc/proto/cookie.ss | 0 .../actor-v13/rpc/proto/message.ss | 0 .../actor-v13/rpc/proto/null.ss | 0 .../{ => v0.19-TODIE}/actor-v13/rpc/server.ss | 0 .../{ => v0.19-TODIE}/actor-v13/xdr-test.ss | 0 src/std/{ => v0.19-TODIE}/actor-v13/xdr.ss | 0 src/std/{ => v0.19-TODIE}/amb-test.ss | 0 src/std/{ => v0.19-TODIE}/amb.ss | 0 src/std/{ => v0.19-TODIE}/event-test.ss | 0 src/std/{ => v0.19-TODIE}/event.ss | 0 .../{ => v0.19-TODIE}/foreign-test-support.ss | 0 src/std/{ => v0.19-TODIE}/foreign-test.ss | 0 src/std/{ => v0.19-TODIE}/foreign.ss | 0 src/std/{ => v0.19-TODIE}/format.ss | 0 src/std/{ => v0.19-TODIE}/generic.ss | 0 src/std/{ => v0.19-TODIE}/generic/dispatch.ss | 0 .../{ => v0.19-TODIE}/generic/generic-test.ss | 0 src/std/{ => v0.19-TODIE}/generic/macros.ss | 0 src/std/{ => v0.19-TODIE}/getopt.ss | 0 src/std/{ => v0.19-TODIE}/lazy.ss | 0 src/std/{ => v0.19-TODIE}/logger.ss | 0 src/std/{ => v0.19-TODIE}/metaclass.ss | 0 src/std/{ => v0.19-TODIE}/ref.ss | 0 src/std/{ => v0.19-TODIE}/sort.ss | 0 src/std/{ => v0.19-TODIE}/sort/lmsort.scm | 0 .../{ => v0.19-TODIE}/sort/sort-support.scm | 0 src/std/{ => v0.19-TODIE}/sort/sort.scm | 0 src/std/{ => v0.19-TODIE}/sort/sortp.scm | 0 src/std/{ => v0.19-TODIE}/sort/test.scm | 0 src/std/{ => v0.19-TODIE}/sort/vbinsearch.scm | 0 src/std/{ => v0.19-TODIE}/sort/vhsort.scm | 0 src/std/{ => v0.19-TODIE}/sort/visort.scm | 0 src/std/{ => v0.19-TODIE}/sort/vmsort.scm | 0 src/std/{ => v0.19-TODIE}/sort/vqsort.scm | 0 src/std/{ => v0.19-TODIE}/srfi/1-test.ss | 0 src/std/{ => v0.19-TODIE}/srfi/1.ss | 0 src/std/{ => v0.19-TODIE}/srfi/101.ss | 0 src/std/{ => v0.19-TODIE}/srfi/113.ss | 0 src/std/{ => v0.19-TODIE}/srfi/115.ss | 0 src/std/{ => v0.19-TODIE}/srfi/116.ss | 0 src/std/{ => v0.19-TODIE}/srfi/117.ss | 0 src/std/{ => v0.19-TODIE}/srfi/121-iter.ss | 0 src/std/{ => v0.19-TODIE}/srfi/121.ss | 0 src/std/{ => v0.19-TODIE}/srfi/124.ss | 0 src/std/{ => v0.19-TODIE}/srfi/125.ss | 0 src/std/{ => v0.19-TODIE}/srfi/127-iter.ss | 0 src/std/{ => v0.19-TODIE}/srfi/127.ss | 0 src/std/{ => v0.19-TODIE}/srfi/128.ss | 0 src/std/{ => v0.19-TODIE}/srfi/13.ss | 0 src/std/{ => v0.19-TODIE}/srfi/130.ss | 0 src/std/{ => v0.19-TODIE}/srfi/132.ss | 0 src/std/{ => v0.19-TODIE}/srfi/133.ss | 0 src/std/{ => v0.19-TODIE}/srfi/134.ss | 0 src/std/{ => v0.19-TODIE}/srfi/135.ss | 0 src/std/{ => v0.19-TODIE}/srfi/14.ss | 0 src/std/{ => v0.19-TODIE}/srfi/141.ss | 0 src/std/{ => v0.19-TODIE}/srfi/143.ss | 0 src/std/{ => v0.19-TODIE}/srfi/144.ss | 0 src/std/{ => v0.19-TODIE}/srfi/145.ss | 0 src/std/{ => v0.19-TODIE}/srfi/146.ss | 0 .../{ => v0.19-TODIE}/srfi/146/hamt-map.scm | 0 .../{ => v0.19-TODIE}/srfi/146/hamt-map.ss | 0 .../{ => v0.19-TODIE}/srfi/146/hamt-misc.scm | 0 .../{ => v0.19-TODIE}/srfi/146/hamt-misc.ss | 0 src/std/{ => v0.19-TODIE}/srfi/146/hamt.scm | 0 src/std/{ => v0.19-TODIE}/srfi/146/hamt.ss | 0 src/std/{ => v0.19-TODIE}/srfi/146/hash.scm | 0 src/std/{ => v0.19-TODIE}/srfi/146/hash.ss | 0 .../srfi/146/vector-edit.scm | 0 .../{ => v0.19-TODIE}/srfi/146/vector-edit.ss | 0 src/std/{ => v0.19-TODIE}/srfi/151.ss | 0 src/std/{ => v0.19-TODIE}/srfi/158-iter.ss | 0 src/std/{ => v0.19-TODIE}/srfi/158.ss | 0 src/std/{ => v0.19-TODIE}/srfi/159.ss | 0 src/std/{ => v0.19-TODIE}/srfi/159/base.scm | 0 src/std/{ => v0.19-TODIE}/srfi/159/base.ss | 0 src/std/{ => v0.19-TODIE}/srfi/159/color.scm | 0 src/std/{ => v0.19-TODIE}/srfi/159/color.ss | 0 src/std/{ => v0.19-TODIE}/srfi/159/column.scm | 0 .../{ => v0.19-TODIE}/srfi/159/columnar.ss | 0 .../srfi/159/environment.scm | 0 .../{ => v0.19-TODIE}/srfi/159/environment.ss | 0 src/std/{ => v0.19-TODIE}/srfi/159/pretty.scm | 0 src/std/{ => v0.19-TODIE}/srfi/159/pretty.ss | 0 src/std/{ => v0.19-TODIE}/srfi/159/show.scm | 0 src/std/{ => v0.19-TODIE}/srfi/159/show.ss | 0 src/std/{ => v0.19-TODIE}/srfi/159/string.ss | 0 .../{ => v0.19-TODIE}/srfi/159/unicode.scm | 0 src/std/{ => v0.19-TODIE}/srfi/159/unicode.ss | 0 src/std/{ => v0.19-TODIE}/srfi/159/write.scm | 0 src/std/{ => v0.19-TODIE}/srfi/160/base.ss | 0 src/std/{ => v0.19-TODIE}/srfi/160/c128.ss | 0 src/std/{ => v0.19-TODIE}/srfi/160/c64.ss | 0 src/std/{ => v0.19-TODIE}/srfi/160/cvector.ss | 0 src/std/{ => v0.19-TODIE}/srfi/160/f32.ss | 0 src/std/{ => v0.19-TODIE}/srfi/160/f64.ss | 0 src/std/{ => v0.19-TODIE}/srfi/160/macros.ss | 0 src/std/{ => v0.19-TODIE}/srfi/160/s16.ss | 0 src/std/{ => v0.19-TODIE}/srfi/160/s32.ss | 0 src/std/{ => v0.19-TODIE}/srfi/160/s64.ss | 0 src/std/{ => v0.19-TODIE}/srfi/160/s8.ss | 0 src/std/{ => v0.19-TODIE}/srfi/160/u16.ss | 0 src/std/{ => v0.19-TODIE}/srfi/160/u32.ss | 0 src/std/{ => v0.19-TODIE}/srfi/160/u64.ss | 0 src/std/{ => v0.19-TODIE}/srfi/160/u8.ss | 0 src/std/{ => v0.19-TODIE}/srfi/19.ss | 0 src/std/{ => v0.19-TODIE}/srfi/212.ss | 0 src/std/{ => v0.19-TODIE}/srfi/41-iter.ss | 0 src/std/{ => v0.19-TODIE}/srfi/41.ss | 0 src/std/{ => v0.19-TODIE}/srfi/42.ss | 0 src/std/{ => v0.19-TODIE}/srfi/43.ss | 0 src/std/{ => v0.19-TODIE}/srfi/78.ss | 0 src/std/{ => v0.19-TODIE}/srfi/8.ss | 0 src/std/{ => v0.19-TODIE}/srfi/9.ss | 0 src/std/{ => v0.19-TODIE}/srfi/95.ss | 0 src/std/{ => v0.19-TODIE}/srfi/srfi-1.scm | 0 src/std/{ => v0.19-TODIE}/srfi/srfi-101.scm | 0 src/std/{ => v0.19-TODIE}/srfi/srfi-113.scm | 0 .../srfi/srfi-115/charsets.scm | 0 .../srfi/srfi-115/regexp.scm | 0 .../srfi/srfi-116/ilists-base.scm | 0 .../srfi/srfi-116/ilists-impl.scm | 0 .../srfi/srfi-116/ilists-test.scm | 0 .../srfi/srfi-116/ilists.scm | 0 .../srfi/srfi-116/ilists.sld | 0 src/std/{ => v0.19-TODIE}/srfi/srfi-117.scm | 0 src/std/{ => v0.19-TODIE}/srfi/srfi-121.scm | 0 src/std/{ => v0.19-TODIE}/srfi/srfi-127.scm | 0 src/std/{ => v0.19-TODIE}/srfi/srfi-13.scm | 0 src/std/{ => v0.19-TODIE}/srfi/srfi-130.scm | 0 .../{ => v0.19-TODIE}/srfi/srfi-132/132.sld | 0 .../srfi/srfi-132/delndups.scm | 0 .../srfi/srfi-132/lmsort.scm | 0 .../{ => v0.19-TODIE}/srfi/srfi-132/merge.scm | 0 .../srfi/srfi-132/select.scm | 0 .../{ => v0.19-TODIE}/srfi/srfi-132/sort.scm | 0 .../srfi/srfi-132/sortfaster.scm | 0 .../srfi/srfi-132/sorting-test.scm | 0 .../{ => v0.19-TODIE}/srfi/srfi-132/sortp.scm | 0 .../srfi/srfi-132/srfi-132-test.sps | 0 .../srfi/srfi-132/vector-util.scm | 0 .../srfi/srfi-132/vhsort.scm | 0 .../srfi/srfi-132/visort.scm | 0 .../srfi/srfi-132/vmsort.scm | 0 .../srfi/srfi-132/vqsort2.scm | 0 .../srfi/srfi-132/vqsort3.scm | 0 src/std/{ => v0.19-TODIE}/srfi/srfi-133.scm | 0 src/std/{ => v0.19-TODIE}/srfi/srfi-134.scm | 0 .../srfi/srfi-135/binary.scm | 0 .../{ => v0.19-TODIE}/srfi/srfi-135/binary.ss | 0 .../{ => v0.19-TODIE}/srfi/srfi-135/etc.ss | 0 .../srfi/srfi-135/kernel8.scm | 0 .../srfi/srfi-135/kernel8.ss | 0 .../srfi/srfi-135/macros.scm | 0 .../{ => v0.19-TODIE}/srfi/srfi-135/macros.ss | 0 .../{ => v0.19-TODIE}/srfi/srfi-135/text.scm | 0 .../{ => v0.19-TODIE}/srfi/srfi-135/text.ss | 0 src/std/{ => v0.19-TODIE}/srfi/srfi-14.scm | 0 .../srfi/srfi-143/carries.scm | 0 .../srfi/srfi-144/144.body.scm | 0 .../srfi/srfi-144/144.body0.scm | 0 .../srfi/srfi-144/144.constants.scm | 0 .../srfi/srfi-144/144.special.scm | 0 src/std/{ => v0.19-TODIE}/srfi/srfi-146.scm | 0 .../srfi/srfi-151/bitwise-33.scm | 0 .../srfi/srfi-151/bitwise-60.scm | 0 .../srfi/srfi-151/bitwise-core.scm | 0 .../srfi/srfi-151/bitwise-other.scm | 0 src/std/{ => v0.19-TODIE}/srfi/srfi-158.scm | 0 src/std/{ => v0.19-TODIE}/srfi/srfi-19.scm | 0 src/std/{ => v0.19-TODIE}/srfi/srfi-41.scm | 0 src/std/{ => v0.19-TODIE}/srfi/srfi-42.scm | 0 src/std/{ => v0.19-TODIE}/srfi/srfi-43.scm | 0 src/std/{ => v0.19-TODIE}/srfi/srfi-78.scm | 0 src/std/{ => v0.19-TODIE}/srfi/srfi-95.scm | 0 .../{ => v0.19-TODIE}/srfi/srfi-support.ss | 0 src/std/{ => v0.19-TODIE}/sugar-test.ss | 0 src/std/{ => v0.19-TODIE}/sugar.ss | 0 src/std/{ => v0.19-TODIE}/web/fastcgi-test.ss | 0 src/std/{ => v0.19-TODIE}/web/fastcgi.ss | 0 src/std/{ => v0.19-TODIE}/web/rack-test.ss | 0 src/std/{ => v0.19-TODIE}/web/rack.ss | 0 src/std/{ => v0.19-TODIE}/xml.ss | 0 .../{ => v0.19-TODO}/actor-v18/admin-test.ss | 0 src/std/{ => v0.19-TODO}/actor-v18/admin.ss | 0 src/std/{ => v0.19-TODO}/actor-v18/api.ss | 0 .../{ => v0.19-TODO}/actor-v18/connection.ss | 0 src/std/{ => v0.19-TODO}/actor-v18/cookie.ss | 0 .../actor-v18/ensemble-config.ss | 0 .../actor-v18/ensemble-server.ss | 0 .../actor-v18/ensemble-supervisor.ss | 0 .../actor-v18/ensemble-test.ss | 0 .../actor-v18/ensemble-util.ss | 0 .../{ => v0.19-TODO}/actor-v18/ensemble.ss | 0 .../{ => v0.19-TODO}/actor-v18/executor.ss | 0 .../{ => v0.19-TODO}/actor-v18/filesystem.ss | 0 src/std/{ => v0.19-TODO}/actor-v18/io-test.ss | 0 src/std/{ => v0.19-TODO}/actor-v18/io.ss | 0 .../actor-v18/loader-test-server.ss | 0 .../actor-v18/loader-test-support.ss | 0 .../{ => v0.19-TODO}/actor-v18/loader-test.ss | 0 src/std/{ => v0.19-TODO}/actor-v18/loader.ss | 0 src/std/{ => v0.19-TODO}/actor-v18/logger.ss | 0 .../actor-v18/message-test.ss | 0 src/std/{ => v0.19-TODO}/actor-v18/message.ss | 0 src/std/{ => v0.19-TODO}/actor-v18/path.ss | 0 src/std/{ => v0.19-TODO}/actor-v18/proto.ss | 0 .../{ => v0.19-TODO}/actor-v18/registry.ss | 0 .../actor-v18/server-identifier.ss | 0 .../{ => v0.19-TODO}/actor-v18/server-test.ss | 0 src/std/{ => v0.19-TODO}/actor-v18/server.ss | 0 .../{ => v0.19-TODO}/actor-v18/supervisor.ss | 0 .../{ => v0.19-TODO}/actor-v18/test-util.ss | 0 .../{ => v0.19-TODO}/actor-v18/tls-test.ss | 0 src/std/{ => v0.19-TODO}/actor-v18/tls.ss | 0 src/std/{ => v0.19-TODO}/actor.ss | 0 src/std/{ => v0.19-TODO}/assert-test.ss | 0 src/std/{ => v0.19-TODO}/assert.ss | 0 src/std/{ => v0.19-TODO}/cli/getopt.ss | 0 src/std/{ => v0.19-TODO}/cli/multicall.ss | 0 src/std/{ => v0.19-TODO}/cli/print-exit.ss | 0 src/std/{ => v0.19-TODO}/cli/shell-test.ss | 0 src/std/{ => v0.19-TODO}/cli/shell.ss | 0 src/std/{ => v0.19-TODO}/config.ss | 0 src/std/{ => v0.19-TODO}/coroutine-test.ss | 0 src/std/{ => v0.19-TODO}/coroutine.ss | 0 src/std/{ => v0.19-TODO}/crypto-test.ss | 0 src/std/{ => v0.19-TODO}/crypto.ss | 0 src/std/{ => v0.19-TODO}/crypto/bn.ss | 0 src/std/{ => v0.19-TODO}/crypto/cipher.ss | 0 src/std/{ => v0.19-TODO}/crypto/dh.ss | 0 .../{ => v0.19-TODO}/crypto/digest-test.ss | 0 src/std/{ => v0.19-TODO}/crypto/digest.ss | 0 src/std/{ => v0.19-TODO}/crypto/etc.ss | 0 src/std/{ => v0.19-TODO}/crypto/hmac.ss | 0 src/std/{ => v0.19-TODO}/crypto/kdf.ss | 0 .../crypto/libcrypto-rfc5114.c | 0 src/std/{ => v0.19-TODO}/crypto/libcrypto.ss | 0 src/std/{ => v0.19-TODO}/crypto/pkey-test.ss | 0 src/std/{ => v0.19-TODO}/crypto/pkey.ss | 0 src/std/{ => v0.19-TODO}/db/_sqlite.scm | 0 src/std/{ => v0.19-TODO}/db/_sqlite.ssi | 0 src/std/{ => v0.19-TODO}/db/conpool.ss | 0 src/std/{ => v0.19-TODO}/db/dbi.ss | 0 .../{ => v0.19-TODO}/db/postgresql-driver.ss | 0 .../{ => v0.19-TODO}/db/postgresql-test.ss | 0 src/std/{ => v0.19-TODO}/db/postgresql.ss | 0 src/std/{ => v0.19-TODO}/db/sqlite-test.ss | 0 src/std/{ => v0.19-TODO}/db/sqlite.ss | 0 src/std/{ => v0.19-TODO}/debug/DBG.ss | 0 src/std/{ => v0.19-TODO}/debug/heap.ss | 0 src/std/{ => v0.19-TODO}/debug/memleak.ss | 0 src/std/{ => v0.19-TODO}/debug/threads.ss | 0 src/std/{ => v0.19-TODO}/hash-table.ss | 0 src/std/{ => v0.19-TODO}/instance-test.ss | 0 src/std/{ => v0.19-TODO}/instance.ss | 0 src/std/{ => v0.19-TODO}/iter-test.ss | 0 src/std/{ => v0.19-TODO}/iter.ss | 0 src/std/{ => v0.19-TODO}/markup/README.org | 0 src/std/{ => v0.19-TODO}/markup/html.ss | 0 src/std/{ => v0.19-TODO}/markup/sxml-test.ss | 0 src/std/{ => v0.19-TODO}/markup/sxml.ss | 0 .../{ => v0.19-TODO}/markup/sxml/README.org | 0 .../markup/sxml/html/README.org | 0 .../markup/sxml/html/html-parser.scm | 0 .../markup/sxml/html/parser.ss | 0 .../{ => v0.19-TODO}/markup/sxml/html/tal.ss | 0 .../markup/sxml/oleg/README.md | 0 .../markup/sxml/oleg/SSAX.scm | 0 .../markup/sxml/oleg/SXPath.scm | 0 .../markup/sxml/oleg/char-encoding.scm | 0 .../markup/sxml/oleg/define-opt.scm | 0 .../markup/sxml/oleg/input-parse.scm | 0 .../markup/sxml/oleg/look-for-str.scm | 0 .../markup/sxml/oleg/myenv-gerbil.scm | 0 .../sxml/oleg/parser-errors-vanilla.scm | 0 src/std/{ => v0.19-TODO}/markup/sxml/print.ss | 0 src/std/{ => v0.19-TODO}/markup/sxml/ssax.ss | 0 .../{ => v0.19-TODO}/markup/sxml/sxml-inf.ss | 0 .../{ => v0.19-TODO}/markup/sxml/sxpath.ss | 0 .../markup/sxml/tal/README.org | 0 .../markup/sxml/tal/expander.ss | 0 .../{ => v0.19-TODO}/markup/sxml/tal/iter.ss | 0 .../markup/sxml/tal/parser.ss | 0 .../markup/sxml/tal/syntax.ss | 0 .../markup/sxml/tal/toplevel.ss | 0 src/std/{ => v0.19-TODO}/markup/sxml/xml.org | 0 src/std/{ => v0.19-TODO}/markup/sxml/xml.ss | 0 src/std/{ => v0.19-TODO}/markup/tal.ss | 0 src/std/{ => v0.19-TODO}/markup/xml.ss | 0 src/std/{ => v0.19-TODO}/mime/README.org | 0 src/std/{ => v0.19-TODO}/mime/mime.types | 0 src/std/{ => v0.19-TODO}/mime/struct.ss | 0 src/std/{ => v0.19-TODO}/mime/types.ss | 0 .../misc/alist}/alist-test.ss | 2 +- src/std/v0.19-TODO/misc/alist/format.ss | 17 + .../alist.ss => v0.19-TODO/misc/alist/raw.ss} | 8 +- .../misc/alist}/walist-test.ss | 5 +- src/std/v0.19-TODO/misc/alist/wrapped.ss | 323 + src/std/{ => v0.19-TODO}/misc/atom-test.ss | 0 src/std/{ => v0.19-TODO}/misc/atom.ss | 0 src/std/{ => v0.19-TODO}/misc/barrier-test.ss | 0 src/std/{ => v0.19-TODO}/misc/barrier.ss | 0 src/std/{ => v0.19-TODO}/misc/bytes-test.ss | 0 src/std/{ => v0.19-TODO}/misc/bytes.ss | 0 src/std/{ => v0.19-TODO}/misc/channel-test.ss | 0 src/std/{ => v0.19-TODO}/misc/channel.ss | 0 .../{ => v0.19-TODO}/misc/completion-test.ss | 0 src/std/{ => v0.19-TODO}/misc/completion.ss | 0 .../{ => v0.19-TODO}/misc/concurrent-plan.ss | 0 src/std/{ => v0.19-TODO}/misc/dag-test.ss | 0 src/std/{ => v0.19-TODO}/misc/dag.ss | 0 src/std/{ => v0.19-TODO}/misc/decimal-test.ss | 0 src/std/{ => v0.19-TODO}/misc/decimal.ss | 0 src/std/{ => v0.19-TODO}/misc/deque-test.ss | 0 src/std/{ => v0.19-TODO}/misc/deque.ss | 0 src/std/{ => v0.19-TODO}/misc/evector-test.ss | 0 src/std/{ => v0.19-TODO}/misc/evector.ss | 0 src/std/{ => v0.19-TODO}/misc/func-test.ss | 0 src/std/{ => v0.19-TODO}/misc/func.ss | 0 src/std/{ => v0.19-TODO}/misc/hash-test.ss | 0 src/std/{ => v0.19-TODO}/misc/hash.ss | 0 .../misc/list-builder-test.ss | 0 src/std/{ => v0.19-TODO}/misc/list-builder.ss | 0 src/std/{ => v0.19-TODO}/misc/list-test.ss | 0 src/std/{ => v0.19-TODO}/misc/list.ss | 0 src/std/{ => v0.19-TODO}/misc/lru-test.ss | 0 src/std/{ => v0.19-TODO}/misc/lru.ss | 0 src/std/{ => v0.19-TODO}/misc/number-test.ss | 0 src/std/{ => v0.19-TODO}/misc/number.ss | 0 src/std/{ => v0.19-TODO}/misc/path-test.ss | 0 src/std/{ => v0.19-TODO}/misc/path.ss | 0 src/std/{ => v0.19-TODO}/misc/plist-test.ss | 0 src/std/{ => v0.19-TODO}/misc/plist.ss | 0 src/std/{ => v0.19-TODO}/misc/ports-test.data | 0 src/std/{ => v0.19-TODO}/misc/ports-test.ss | 0 src/std/{ => v0.19-TODO}/misc/ports.ss | 0 src/std/{ => v0.19-TODO}/misc/pqueue-test.ss | 0 src/std/{ => v0.19-TODO}/misc/pqueue.ss | 0 src/std/{ => v0.19-TODO}/misc/prime-test.ss | 0 src/std/{ => v0.19-TODO}/misc/prime.ss | 0 src/std/{ => v0.19-TODO}/misc/process-test.ss | 0 src/std/{ => v0.19-TODO}/misc/process.ss | 0 src/std/{ => v0.19-TODO}/misc/queue-test.ss | 0 src/std/{ => v0.19-TODO}/misc/queue.ss | 0 src/std/{ => v0.19-TODO}/misc/rbtree-test.ss | 0 src/std/{ => v0.19-TODO}/misc/rbtree.ss | 0 src/std/{ => v0.19-TODO}/misc/repr-test.ss | 0 src/std/{ => v0.19-TODO}/misc/repr.ss | 0 src/std/{ => v0.19-TODO}/misc/rwlock-test.ss | 0 src/std/{ => v0.19-TODO}/misc/rwlock.ss | 0 src/std/{ => v0.19-TODO}/misc/shared.ss | 0 src/std/{ => v0.19-TODO}/misc/shuffle.ss | 0 src/std/{ => v0.19-TODO}/misc/string-test.ss | 0 src/std/{ => v0.19-TODO}/misc/string.ss | 0 src/std/{ => v0.19-TODO}/misc/symbol.ss | 0 src/std/{ => v0.19-TODO}/misc/sync.ss | 0 .../{ => v0.19-TODO}/misc/template-test.ss | 0 src/std/{ => v0.19-TODO}/misc/template.ss | 0 src/std/{ => v0.19-TODO}/misc/text.ss | 0 src/std/{ => v0.19-TODO}/misc/threads.ss | 0 src/std/{ => v0.19-TODO}/misc/timeout.ss | 0 src/std/{ => v0.19-TODO}/misc/uuid.ss | 0 src/std/{ => v0.19-TODO}/misc/vector-test.ss | 0 src/std/{ => v0.19-TODO}/misc/vector.ss | 0 src/std/{ => v0.19-TODO}/misc/wg.ss | 0 src/std/{ => v0.19-TODO}/net/address-test.ss | 0 src/std/{ => v0.19-TODO}/net/address.ss | 2 + src/std/v0.19-TODO/net/address/address.ss | 35 + src/std/v0.19-TODO/net/address/format.ss | 42 + src/std/{ => v0.19-TODO}/net/bio.ss | 0 src/std/{ => v0.19-TODO}/net/bio/buffer.ss | 0 src/std/{ => v0.19-TODO}/net/bio/file.ss | 0 src/std/{ => v0.19-TODO}/net/bio/input.ss | 0 src/std/{ => v0.19-TODO}/net/bio/output.ss | 0 src/std/{ => v0.19-TODO}/net/httpd-test.ss | 0 src/std/{ => v0.19-TODO}/net/httpd.ss | 0 src/std/{ => v0.19-TODO}/net/httpd/api.ss | 0 src/std/{ => v0.19-TODO}/net/httpd/base.ss | 0 src/std/{ => v0.19-TODO}/net/httpd/control.ss | 0 src/std/{ => v0.19-TODO}/net/httpd/file.ss | 0 src/std/{ => v0.19-TODO}/net/httpd/handler.ss | 0 src/std/{ => v0.19-TODO}/net/httpd/logger.ss | 0 src/std/{ => v0.19-TODO}/net/httpd/mux.ss | 0 src/std/{ => v0.19-TODO}/net/httpd/server.ss | 0 src/std/{ => v0.19-TODO}/net/json-rpc-test.ss | 0 src/std/{ => v0.19-TODO}/net/json-rpc.ss | 0 src/std/{ => v0.19-TODO}/net/repl-test.ss | 0 src/std/{ => v0.19-TODO}/net/repl.ss | 0 src/std/{ => v0.19-TODO}/net/request.ss | 0 src/std/{ => v0.19-TODO}/net/s3.ss | 0 src/std/{ => v0.19-TODO}/net/s3/api.ss | 0 src/std/{ => v0.19-TODO}/net/s3/interface.ss | 0 src/std/{ => v0.19-TODO}/net/s3/sigv4-test.ss | 0 src/std/{ => v0.19-TODO}/net/s3/sigv4.ss | 0 src/std/{ => v0.19-TODO}/net/sasl-test.ss | 0 src/std/{ => v0.19-TODO}/net/sasl.ss | 0 src/std/{ => v0.19-TODO}/net/smtp.ss | 0 src/std/{ => v0.19-TODO}/net/smtp/README.org | 0 src/std/{ => v0.19-TODO}/net/smtp/api.ss | 0 src/std/{ => v0.19-TODO}/net/smtp/client.ss | 0 .../{ => v0.19-TODO}/net/smtp/connection.ss | 0 src/std/{ => v0.19-TODO}/net/smtp/data.ss | 0 src/std/{ => v0.19-TODO}/net/smtp/headers.ss | 0 .../{ => v0.19-TODO}/net/smtp/interface.ss | 0 src/std/{ => v0.19-TODO}/net/smtp/session.ss | 0 src/std/{ => v0.19-TODO}/net/socket.ss | 0 src/std/{ => v0.19-TODO}/net/socket/api.ss | 0 src/std/{ => v0.19-TODO}/net/socket/base.ss | 0 .../net/socket/basic-server.ss | 0 .../net/socket/basic-socket.ss | 0 src/std/{ => v0.19-TODO}/net/socket/buffer.ss | 0 .../net/socket/epoll-server.ss | 0 .../net/socket/kqueue-server.ss | 0 .../net/socket/server-test.ss | 0 src/std/{ => v0.19-TODO}/net/socket/server.ss | 0 src/std/{ => v0.19-TODO}/net/socks.ss | 0 src/std/{ => v0.19-TODO}/net/socks/api.ss | 0 src/std/{ => v0.19-TODO}/net/socks/client.ss | 0 .../{ => v0.19-TODO}/net/socks/interface.ss | 0 src/std/{ => v0.19-TODO}/net/socks/server.ss | 0 .../{ => v0.19-TODO}/net/socks/socks-test.ss | 0 src/std/{ => v0.19-TODO}/net/ssl-test.ss | 0 src/std/{ => v0.19-TODO}/net/ssl.ss | 0 src/std/{ => v0.19-TODO}/net/ssl/api.ss | 0 src/std/{ => v0.19-TODO}/net/ssl/client.ss | 0 src/std/{ => v0.19-TODO}/net/ssl/error.ss | 0 src/std/{ => v0.19-TODO}/net/ssl/interface.ss | 0 src/std/{ => v0.19-TODO}/net/ssl/libssl.ss | 0 src/std/{ => v0.19-TODO}/net/ssl/server.ss | 0 src/std/{ => v0.19-TODO}/net/ssl/socket.ss | 0 src/std/{ => v0.19-TODO}/net/uri.ss | 0 src/std/{ => v0.19-TODO}/net/websocket.ss | 0 src/std/{ => v0.19-TODO}/net/websocket/api.ss | 0 .../{ => v0.19-TODO}/net/websocket/client.ss | 0 .../net/websocket/interface.ss | 0 .../{ => v0.19-TODO}/net/websocket/server.ss | 0 .../net/websocket/socket-test.ss | 0 .../{ => v0.19-TODO}/net/websocket/socket.ss | 0 .../net/websocket/websocket-test.ss | 0 src/std/{ => v0.19-TODO}/parser.ss | 0 src/std/{ => v0.19-TODO}/parser/base.ss | 0 src/std/{ => v0.19-TODO}/parser/deflexer.ss | 0 src/std/{ => v0.19-TODO}/parser/defparser.ss | 0 .../{ => v0.19-TODO}/parser/grammar-reader.ss | 0 src/std/{ => v0.19-TODO}/parser/grammar.ss | 0 src/std/{ => v0.19-TODO}/parser/lexer.ss | 0 src/std/{ => v0.19-TODO}/parser/ll1-test.ss | 0 src/std/{ => v0.19-TODO}/parser/ll1.ss | 0 src/std/{ => v0.19-TODO}/parser/rlang.ss | 0 src/std/{ => v0.19-TODO}/parser/rx-parser.ss | 0 src/std/{ => v0.19-TODO}/parser/stream.ss | 0 src/std/{ => v0.19-TODO}/pregexp.ss | 0 src/std/{ => v0.19-TODO}/pregexp/COPYING | 0 src/std/{ => v0.19-TODO}/pregexp/INSTALL | 0 src/std/{ => v0.19-TODO}/pregexp/README | 0 .../pregexp/dialects/cl-pregexp.scm | 0 .../pregexp/dialects/dialects-supported.scm | 0 .../pregexp/dialects/files-to-be-ported.scm | 0 .../pregexp/dialects/gauche-pregexp.scm | 0 .../pregexp/dialects/guile-pregexp.scm | 0 .../pregexp/dialects/plt-pregexp.scm | 0 .../pregexp/dialects/scsh-pregexp.scm | 0 src/std/{ => v0.19-TODO}/pregexp/history | 0 src/std/{ => v0.19-TODO}/pregexp/index.tex | 0 .../{ => v0.19-TODO}/pregexp/known-bugs/6115 | 0 .../{ => v0.19-TODO}/pregexp/known-bugs/scott | 0 src/std/{ => v0.19-TODO}/pregexp/manifest | 0 .../{ => v0.19-TODO}/pregexp/pregexp-test.scm | 0 .../{ => v0.19-TODO}/pregexp/pregexp-test.ss | 0 src/std/{ => v0.19-TODO}/pregexp/pregexp.lisp | 0 src/std/{ => v0.19-TODO}/pregexp/pregexp.scm | 0 src/std/{ => v0.19-TODO}/pregexp/tester.lisp | 0 src/std/{ => v0.19-TODO}/pregexp/tester.scm | 0 src/std/{ => v0.19-TODO}/protobuf/io.ss | 0 src/std/{ => v0.19-TODO}/protobuf/macros.ss | 0 .../protobuf/potpourri-test.proto | 0 .../protobuf/potpourri-test2.proto | 0 .../protobuf/proto-grammar.ss | 0 src/std/{ => v0.19-TODO}/protobuf/proto.ss | 0 .../protobuf/protobuf-test.ss | 0 src/std/{ => v0.19-TODO}/source-test.ss | 0 src/std/{ => v0.19-TODO}/source.ss | 0 src/std/{ => v0.19-TODO}/stxparam.ss | 0 src/std/{ => v0.19-TODO}/stxutil.ss | 22 +- src/std/{ => v0.19-TODO}/text/_zlib.scm | 0 src/std/{ => v0.19-TODO}/text/_zlib.ssi | 0 src/std/{ => v0.19-TODO}/text/base58-test.ss | 0 src/std/{ => v0.19-TODO}/text/base58.ss | 0 src/std/{ => v0.19-TODO}/text/base64.scm | 0 src/std/{ => v0.19-TODO}/text/base64.ssi | 0 .../text/basic-printers-test.ss | 0 .../{ => v0.19-TODO}/text/basic-printers.ss | 0 .../{ => v0.19-TODO}/text/char-set-test.ss | 0 src/std/{ => v0.19-TODO}/text/char-set.ss | 0 src/std/{ => v0.19-TODO}/text/csv-test.ss | 0 src/std/{ => v0.19-TODO}/text/csv.ss | 0 src/std/{ => v0.19-TODO}/text/hex-test.ss | 0 src/std/{ => v0.19-TODO}/text/hex.ss | 0 src/std/{ => v0.19-TODO}/text/json.ss | 0 src/std/{ => v0.19-TODO}/text/json/api.ss | 2 +- src/std/{ => v0.19-TODO}/text/json/input.ss | 4 +- .../text/json/json-benchmark.ss | 0 .../{ => v0.19-TODO}/text/json/json-test.ss | 0 src/std/v0.19-TODO/text/json/object.ss | 23 + src/std/{ => v0.19-TODO}/text/json/output.ss | 12 +- src/std/{ => v0.19-TODO}/text/json/util.ss | 13 +- src/std/{ => v0.19-TODO}/text/utf16-test.ss | 0 src/std/{ => v0.19-TODO}/text/utf16.ss | 0 src/std/{ => v0.19-TODO}/text/utf32-test.ss | 0 src/std/{ => v0.19-TODO}/text/utf32.ss | 0 src/std/{ => v0.19-TODO}/text/utf8-test.ss | 0 src/std/{ => v0.19-TODO}/text/utf8.ss | 0 src/std/{ => v0.19-TODO}/text/zlib.ss | 0 src/std/{ => v0.19-TODO}/values-test.ss | 0 src/std/{ => v0.19-TODO}/values.ss | 0 src/tools/build.ss | 9 + src/v0.19-TODIE/lang/build.ss | 37 + .../lang}/gerbil.pkg | 0 .../lang/scheme/base-impl.ss | 0 src/{ => v0.19-TODIE}/lang/scheme/base.ss | 0 .../lang/scheme/case-lambda.ss | 0 src/{ => v0.19-TODIE}/lang/scheme/char.ss | 0 src/{ => v0.19-TODIE}/lang/scheme/complex.ss | 0 src/{ => v0.19-TODIE}/lang/scheme/cxr.ss | 0 .../lang/scheme/eval-impl.ss | 0 src/{ => v0.19-TODIE}/lang/scheme/eval.ss | 0 src/{ => v0.19-TODIE}/lang/scheme/file.ss | 0 src/{ => v0.19-TODIE}/lang/scheme/inexact.ss | 0 .../lang/scheme/lazy-impl.ss | 0 src/{ => v0.19-TODIE}/lang/scheme/lazy.ss | 0 .../lang/scheme/load-impl.ss | 0 src/{ => v0.19-TODIE}/lang/scheme/load.ss | 0 .../lang/scheme/process-context-impl.ss | 0 .../lang/scheme/process-context.ss | 0 .../lang/scheme/r5rs-null.ss | 0 src/{ => v0.19-TODIE}/lang/scheme/r5rs.ss | 0 src/{ => v0.19-TODIE}/lang/scheme/r7rs.ss | 0 src/{ => v0.19-TODIE}/lang/scheme/read.ss | 0 .../lang/scheme/repl-impl.ss | 0 src/{ => v0.19-TODIE}/lang/scheme/repl.ss | 0 .../lang/scheme/scheme-test.ss | 0 src/{ => v0.19-TODIE}/lang/scheme/time.ss | 0 src/{ => v0.19-TODIE}/lang/scheme/write.ss | 0 src/{ => v0.19-TODIE}/r7rs-large/build.ss | 0 src/v0.19-TODIE/r7rs-large/gerbil.pkg | 0 .../r7rs-large/scheme/bitwise.ss | 0 .../r7rs-large/scheme/box.ss | 0 .../r7rs-large/scheme/bytevector.ss | 0 .../r7rs-large/scheme/charset.ss | 0 .../r7rs-large/scheme/comparator.ss | 0 .../r7rs-large/scheme/division.ss | 0 .../r7rs-large/scheme/ephemeron.ss | 0 .../r7rs-large/scheme/fixnum.ss | 0 .../r7rs-large/scheme/flonum.ss | 0 .../r7rs-large/scheme/generator.ss | 0 .../r7rs-large/scheme/hash-table.ss | 0 .../r7rs-large/scheme/ideque.ss | 0 .../r7rs-large/scheme/ilist.ss | 0 .../r7rs-large/scheme/list-queue.ss | 0 .../r7rs-large/scheme/list.ss | 0 .../r7rs-large/scheme/lseq.ss | 0 .../r7rs-large/scheme/mapping.ss | 0 .../r7rs-large/scheme/mapping/hash.ss | 0 .../r7rs-large/scheme/regex.ss | 0 .../r7rs-large/scheme/rlist.ss | 0 .../r7rs-large/scheme/set.ss | 0 .../r7rs-large/scheme/show.ss | 0 .../r7rs-large/scheme/sort.ss | 0 .../r7rs-large/scheme/stream.ss | 0 .../r7rs-large/scheme/text.ss | 0 .../r7rs-large/scheme/vector.ss | 0 .../r7rs-large/scheme/vector/base.ss | 0 .../r7rs-large/scheme/vector/c128.ss | 0 .../r7rs-large/scheme/vector/c64.ss | 0 .../r7rs-large/scheme/vector/f32.ss | 0 .../r7rs-large/scheme/vector/f64.ss | 0 .../r7rs-large/scheme/vector/s16.ss | 0 .../r7rs-large/scheme/vector/s32.ss | 0 .../r7rs-large/scheme/vector/s64.ss | 0 .../r7rs-large/scheme/vector/s8.ss | 0 .../r7rs-large/scheme/vector/u16.ss | 0 .../r7rs-large/scheme/vector/u32.ss | 0 .../r7rs-large/scheme/vector/u64.ss | 0 .../r7rs-large/scheme/vector/u8.ss | 0 src/{ => v0.19-TODIE}/srfi/1.ss | 0 src/{ => v0.19-TODIE}/srfi/101.ss | 0 src/{ => v0.19-TODIE}/srfi/113.ss | 0 src/{ => v0.19-TODIE}/srfi/115.ss | 0 src/{ => v0.19-TODIE}/srfi/116.ss | 0 src/{ => v0.19-TODIE}/srfi/117.ss | 0 src/{ => v0.19-TODIE}/srfi/121.ss | 0 src/{ => v0.19-TODIE}/srfi/124.ss | 0 src/{ => v0.19-TODIE}/srfi/127.ss | 0 src/{ => v0.19-TODIE}/srfi/128.ss | 0 src/{ => v0.19-TODIE}/srfi/13.ss | 0 src/{ => v0.19-TODIE}/srfi/130.ss | 0 src/{ => v0.19-TODIE}/srfi/132.ss | 0 src/{ => v0.19-TODIE}/srfi/133.ss | 0 src/{ => v0.19-TODIE}/srfi/134.ss | 0 src/{ => v0.19-TODIE}/srfi/135.ss | 0 src/{ => v0.19-TODIE}/srfi/14.ss | 0 src/{ => v0.19-TODIE}/srfi/141.ss | 0 src/{ => v0.19-TODIE}/srfi/143.ss | 0 src/{ => v0.19-TODIE}/srfi/144.ss | 0 src/{ => v0.19-TODIE}/srfi/145.ss | 0 src/{ => v0.19-TODIE}/srfi/146.ss | 0 src/{ => v0.19-TODIE}/srfi/146/hamt-map.ss | 0 src/{ => v0.19-TODIE}/srfi/146/hamt-misc.ss | 0 src/{ => v0.19-TODIE}/srfi/146/hamt.ss | 0 src/{ => v0.19-TODIE}/srfi/146/hash.ss | 0 src/{ => v0.19-TODIE}/srfi/146/vector-edit.ss | 0 src/{ => v0.19-TODIE}/srfi/151.ss | 0 src/{ => v0.19-TODIE}/srfi/158.ss | 0 src/{ => v0.19-TODIE}/srfi/159.ss | 0 src/{ => v0.19-TODIE}/srfi/159/base.ss | 0 src/{ => v0.19-TODIE}/srfi/159/color.ss | 0 src/{ => v0.19-TODIE}/srfi/159/columnar.ss | 0 src/{ => v0.19-TODIE}/srfi/159/environment.ss | 0 src/{ => v0.19-TODIE}/srfi/159/pretty.ss | 0 src/{ => v0.19-TODIE}/srfi/159/show.ss | 0 src/{ => v0.19-TODIE}/srfi/159/string.ss | 0 src/{ => v0.19-TODIE}/srfi/159/unicode.ss | 0 src/{ => v0.19-TODIE}/srfi/160/base.ss | 0 src/{ => v0.19-TODIE}/srfi/160/c128.ss | 0 src/{ => v0.19-TODIE}/srfi/160/c64.ss | 0 src/{ => v0.19-TODIE}/srfi/160/f32.ss | 0 src/{ => v0.19-TODIE}/srfi/160/f64.ss | 0 src/{ => v0.19-TODIE}/srfi/160/s16.ss | 0 src/{ => v0.19-TODIE}/srfi/160/s32.ss | 0 src/{ => v0.19-TODIE}/srfi/160/s64.ss | 0 src/{ => v0.19-TODIE}/srfi/160/s8.ss | 0 src/{ => v0.19-TODIE}/srfi/160/u16.ss | 0 src/{ => v0.19-TODIE}/srfi/160/u32.ss | 0 src/{ => v0.19-TODIE}/srfi/160/u64.ss | 0 src/{ => v0.19-TODIE}/srfi/160/u8.ss | 0 src/{ => v0.19-TODIE}/srfi/19.ss | 0 src/{ => v0.19-TODIE}/srfi/212.ss | 0 src/{ => v0.19-TODIE}/srfi/41.ss | 0 src/{ => v0.19-TODIE}/srfi/42.ss | 0 src/{ => v0.19-TODIE}/srfi/43.ss | 0 src/{ => v0.19-TODIE}/srfi/78.ss | 0 src/{ => v0.19-TODIE}/srfi/8.ss | 0 src/{ => v0.19-TODIE}/srfi/9.ss | 0 src/{ => v0.19-TODIE}/srfi/95.ss | 0 src/{ => v0.19-TODIE}/srfi/build.ss | 0 src/{ => v0.19-TODIE}/srfi/gerbil.pkg | 0 859 files changed, 162346 insertions(+), 147851 deletions(-) delete mode 100644 src/bootstrap/gerbil/gambit.scm delete mode 100644 src/bootstrap/gerbil/gambit.ssi delete mode 100644 src/bootstrap/gerbil/gambit.ssxi.ss delete mode 100644 src/gerbil/gambit.ss delete mode 100644 src/std/contract.ss create mode 100644 src/std/encoding/json/env.ss create mode 100644 src/std/encoding/json/io.ss create mode 100644 src/std/encoding/json/reader.ss create mode 100644 src/std/encoding/json/writer.ss create mode 100644 src/std/ffi.ss create mode 100644 src/std/format/env.ss create mode 100644 src/std/format/io.ss create mode 100644 src/std/format/ioutil.ss create mode 100644 src/std/format/reader.ss create mode 100644 src/std/format/string.ss create mode 100644 src/std/format/writer.ss create mode 100644 src/std/log/compress.ss create mode 100644 src/std/log/console.ss create mode 100644 src/std/log/default.ss create mode 100644 src/std/log/format.ss create mode 100644 src/std/log/interface.ss create mode 100644 src/std/log/level.ss create mode 100644 src/std/log/macros.ss create mode 100644 src/std/log/proto.ss create mode 100644 src/std/log/rotate.ss create mode 100644 src/std/log/system.ss create mode 100644 src/std/log/user.ss delete mode 100644 src/std/misc/walist.ss create mode 100644 src/std/object.ss create mode 100644 src/std/os/time.ss create mode 100644 src/std/serde/interned.ss create mode 100644 src/std/serde/opaque.ss create mode 100644 src/std/serde/scan.ss create mode 100644 src/std/serde/scanner.ss create mode 100644 src/std/serde/serialize.ss delete mode 100644 src/std/text/json/env.ss create mode 100644 src/std/time/format.ss create mode 100644 src/std/time/time.ss rename src/std/{ => v0.19-TODIE}/actor-v13.ss (100%) rename src/std/{ => v0.19-TODIE}/actor-v13/message.ss (100%) rename src/std/{ => v0.19-TODIE}/actor-v13/proto.ss (100%) rename src/std/{ => v0.19-TODIE}/actor-v13/rpc-test.ss (100%) rename src/std/{ => v0.19-TODIE}/actor-v13/rpc.ss (100%) rename src/std/{ => v0.19-TODIE}/actor-v13/rpc/base.ss (100%) rename src/std/{ => v0.19-TODIE}/actor-v13/rpc/connection.ss (100%) rename src/std/{ => v0.19-TODIE}/actor-v13/rpc/proto/cipher.ss (100%) rename src/std/{ => v0.19-TODIE}/actor-v13/rpc/proto/cookie.ss (100%) rename src/std/{ => v0.19-TODIE}/actor-v13/rpc/proto/message.ss (100%) rename src/std/{ => v0.19-TODIE}/actor-v13/rpc/proto/null.ss (100%) rename src/std/{ => v0.19-TODIE}/actor-v13/rpc/server.ss (100%) rename src/std/{ => v0.19-TODIE}/actor-v13/xdr-test.ss (100%) rename src/std/{ => v0.19-TODIE}/actor-v13/xdr.ss (100%) rename src/std/{ => v0.19-TODIE}/amb-test.ss (100%) rename src/std/{ => v0.19-TODIE}/amb.ss (100%) rename src/std/{ => v0.19-TODIE}/event-test.ss (100%) rename src/std/{ => v0.19-TODIE}/event.ss (100%) rename src/std/{ => v0.19-TODIE}/foreign-test-support.ss (100%) rename src/std/{ => v0.19-TODIE}/foreign-test.ss (100%) rename src/std/{ => v0.19-TODIE}/foreign.ss (100%) rename src/std/{ => v0.19-TODIE}/format.ss (100%) rename src/std/{ => v0.19-TODIE}/generic.ss (100%) rename src/std/{ => v0.19-TODIE}/generic/dispatch.ss (100%) rename src/std/{ => v0.19-TODIE}/generic/generic-test.ss (100%) rename src/std/{ => v0.19-TODIE}/generic/macros.ss (100%) rename src/std/{ => v0.19-TODIE}/getopt.ss (100%) rename src/std/{ => v0.19-TODIE}/lazy.ss (100%) rename src/std/{ => v0.19-TODIE}/logger.ss (100%) rename src/std/{ => v0.19-TODIE}/metaclass.ss (100%) rename src/std/{ => v0.19-TODIE}/ref.ss (100%) rename src/std/{ => v0.19-TODIE}/sort.ss (100%) rename src/std/{ => v0.19-TODIE}/sort/lmsort.scm (100%) rename src/std/{ => v0.19-TODIE}/sort/sort-support.scm (100%) rename src/std/{ => v0.19-TODIE}/sort/sort.scm (100%) rename src/std/{ => v0.19-TODIE}/sort/sortp.scm (100%) rename src/std/{ => v0.19-TODIE}/sort/test.scm (100%) rename src/std/{ => v0.19-TODIE}/sort/vbinsearch.scm (100%) rename src/std/{ => v0.19-TODIE}/sort/vhsort.scm (100%) rename src/std/{ => v0.19-TODIE}/sort/visort.scm (100%) rename src/std/{ => v0.19-TODIE}/sort/vmsort.scm (100%) rename src/std/{ => v0.19-TODIE}/sort/vqsort.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/1-test.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/1.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/101.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/113.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/115.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/116.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/117.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/121-iter.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/121.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/124.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/125.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/127-iter.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/127.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/128.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/13.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/130.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/132.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/133.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/134.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/135.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/14.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/141.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/143.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/144.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/145.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/146.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/146/hamt-map.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/146/hamt-map.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/146/hamt-misc.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/146/hamt-misc.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/146/hamt.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/146/hamt.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/146/hash.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/146/hash.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/146/vector-edit.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/146/vector-edit.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/151.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/158-iter.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/158.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/159.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/159/base.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/159/base.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/159/color.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/159/color.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/159/column.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/159/columnar.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/159/environment.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/159/environment.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/159/pretty.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/159/pretty.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/159/show.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/159/show.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/159/string.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/159/unicode.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/159/unicode.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/159/write.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/160/base.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/160/c128.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/160/c64.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/160/cvector.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/160/f32.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/160/f64.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/160/macros.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/160/s16.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/160/s32.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/160/s64.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/160/s8.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/160/u16.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/160/u32.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/160/u64.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/160/u8.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/19.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/212.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/41-iter.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/41.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/42.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/43.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/78.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/8.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/9.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/95.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-1.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-101.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-113.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-115/charsets.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-115/regexp.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-116/ilists-base.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-116/ilists-impl.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-116/ilists-test.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-116/ilists.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-116/ilists.sld (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-117.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-121.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-127.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-13.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-130.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-132/132.sld (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-132/delndups.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-132/lmsort.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-132/merge.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-132/select.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-132/sort.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-132/sortfaster.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-132/sorting-test.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-132/sortp.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-132/srfi-132-test.sps (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-132/vector-util.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-132/vhsort.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-132/visort.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-132/vmsort.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-132/vqsort2.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-132/vqsort3.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-133.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-134.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-135/binary.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-135/binary.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-135/etc.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-135/kernel8.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-135/kernel8.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-135/macros.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-135/macros.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-135/text.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-135/text.ss (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-14.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-143/carries.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-144/144.body.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-144/144.body0.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-144/144.constants.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-144/144.special.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-146.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-151/bitwise-33.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-151/bitwise-60.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-151/bitwise-core.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-151/bitwise-other.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-158.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-19.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-41.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-42.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-43.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-78.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-95.scm (100%) rename src/std/{ => v0.19-TODIE}/srfi/srfi-support.ss (100%) rename src/std/{ => v0.19-TODIE}/sugar-test.ss (100%) rename src/std/{ => v0.19-TODIE}/sugar.ss (100%) rename src/std/{ => v0.19-TODIE}/web/fastcgi-test.ss (100%) rename src/std/{ => v0.19-TODIE}/web/fastcgi.ss (100%) rename src/std/{ => v0.19-TODIE}/web/rack-test.ss (100%) rename src/std/{ => v0.19-TODIE}/web/rack.ss (100%) rename src/std/{ => v0.19-TODIE}/xml.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/admin-test.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/admin.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/api.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/connection.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/cookie.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/ensemble-config.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/ensemble-server.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/ensemble-supervisor.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/ensemble-test.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/ensemble-util.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/ensemble.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/executor.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/filesystem.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/io-test.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/io.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/loader-test-server.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/loader-test-support.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/loader-test.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/loader.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/logger.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/message-test.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/message.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/path.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/proto.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/registry.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/server-identifier.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/server-test.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/server.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/supervisor.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/test-util.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/tls-test.ss (100%) rename src/std/{ => v0.19-TODO}/actor-v18/tls.ss (100%) rename src/std/{ => v0.19-TODO}/actor.ss (100%) rename src/std/{ => v0.19-TODO}/assert-test.ss (100%) rename src/std/{ => v0.19-TODO}/assert.ss (100%) rename src/std/{ => v0.19-TODO}/cli/getopt.ss (100%) rename src/std/{ => v0.19-TODO}/cli/multicall.ss (100%) rename src/std/{ => v0.19-TODO}/cli/print-exit.ss (100%) rename src/std/{ => v0.19-TODO}/cli/shell-test.ss (100%) rename src/std/{ => v0.19-TODO}/cli/shell.ss (100%) rename src/std/{ => v0.19-TODO}/config.ss (100%) rename src/std/{ => v0.19-TODO}/coroutine-test.ss (100%) rename src/std/{ => v0.19-TODO}/coroutine.ss (100%) rename src/std/{ => v0.19-TODO}/crypto-test.ss (100%) rename src/std/{ => v0.19-TODO}/crypto.ss (100%) rename src/std/{ => v0.19-TODO}/crypto/bn.ss (100%) rename src/std/{ => v0.19-TODO}/crypto/cipher.ss (100%) rename src/std/{ => v0.19-TODO}/crypto/dh.ss (100%) rename src/std/{ => v0.19-TODO}/crypto/digest-test.ss (100%) rename src/std/{ => v0.19-TODO}/crypto/digest.ss (100%) rename src/std/{ => v0.19-TODO}/crypto/etc.ss (100%) rename src/std/{ => v0.19-TODO}/crypto/hmac.ss (100%) rename src/std/{ => v0.19-TODO}/crypto/kdf.ss (100%) rename src/std/{ => v0.19-TODO}/crypto/libcrypto-rfc5114.c (100%) rename src/std/{ => v0.19-TODO}/crypto/libcrypto.ss (100%) rename src/std/{ => v0.19-TODO}/crypto/pkey-test.ss (100%) rename src/std/{ => v0.19-TODO}/crypto/pkey.ss (100%) rename src/std/{ => v0.19-TODO}/db/_sqlite.scm (100%) rename src/std/{ => v0.19-TODO}/db/_sqlite.ssi (100%) rename src/std/{ => v0.19-TODO}/db/conpool.ss (100%) rename src/std/{ => v0.19-TODO}/db/dbi.ss (100%) rename src/std/{ => v0.19-TODO}/db/postgresql-driver.ss (100%) rename src/std/{ => v0.19-TODO}/db/postgresql-test.ss (100%) rename src/std/{ => v0.19-TODO}/db/postgresql.ss (100%) rename src/std/{ => v0.19-TODO}/db/sqlite-test.ss (100%) rename src/std/{ => v0.19-TODO}/db/sqlite.ss (100%) rename src/std/{ => v0.19-TODO}/debug/DBG.ss (100%) rename src/std/{ => v0.19-TODO}/debug/heap.ss (100%) rename src/std/{ => v0.19-TODO}/debug/memleak.ss (100%) rename src/std/{ => v0.19-TODO}/debug/threads.ss (100%) rename src/std/{ => v0.19-TODO}/hash-table.ss (100%) rename src/std/{ => v0.19-TODO}/instance-test.ss (100%) rename src/std/{ => v0.19-TODO}/instance.ss (100%) rename src/std/{ => v0.19-TODO}/iter-test.ss (100%) rename src/std/{ => v0.19-TODO}/iter.ss (100%) rename src/std/{ => v0.19-TODO}/markup/README.org (100%) rename src/std/{ => v0.19-TODO}/markup/html.ss (100%) rename src/std/{ => v0.19-TODO}/markup/sxml-test.ss (100%) rename src/std/{ => v0.19-TODO}/markup/sxml.ss (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/README.org (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/html/README.org (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/html/html-parser.scm (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/html/parser.ss (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/html/tal.ss (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/oleg/README.md (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/oleg/SSAX.scm (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/oleg/SXPath.scm (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/oleg/char-encoding.scm (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/oleg/define-opt.scm (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/oleg/input-parse.scm (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/oleg/look-for-str.scm (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/oleg/myenv-gerbil.scm (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/oleg/parser-errors-vanilla.scm (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/print.ss (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/ssax.ss (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/sxml-inf.ss (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/sxpath.ss (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/tal/README.org (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/tal/expander.ss (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/tal/iter.ss (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/tal/parser.ss (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/tal/syntax.ss (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/tal/toplevel.ss (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/xml.org (100%) rename src/std/{ => v0.19-TODO}/markup/sxml/xml.ss (100%) rename src/std/{ => v0.19-TODO}/markup/tal.ss (100%) rename src/std/{ => v0.19-TODO}/markup/xml.ss (100%) rename src/std/{ => v0.19-TODO}/mime/README.org (100%) rename src/std/{ => v0.19-TODO}/mime/mime.types (100%) rename src/std/{ => v0.19-TODO}/mime/struct.ss (100%) rename src/std/{ => v0.19-TODO}/mime/types.ss (100%) rename src/std/{misc => v0.19-TODO/misc/alist}/alist-test.ss (97%) create mode 100644 src/std/v0.19-TODO/misc/alist/format.ss rename src/std/{misc/alist.ss => v0.19-TODO/misc/alist/raw.ss} (97%) rename src/std/{misc => v0.19-TODO/misc/alist}/walist-test.ss (98%) create mode 100644 src/std/v0.19-TODO/misc/alist/wrapped.ss rename src/std/{ => v0.19-TODO}/misc/atom-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/atom.ss (100%) rename src/std/{ => v0.19-TODO}/misc/barrier-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/barrier.ss (100%) rename src/std/{ => v0.19-TODO}/misc/bytes-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/bytes.ss (100%) rename src/std/{ => v0.19-TODO}/misc/channel-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/channel.ss (100%) rename src/std/{ => v0.19-TODO}/misc/completion-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/completion.ss (100%) rename src/std/{ => v0.19-TODO}/misc/concurrent-plan.ss (100%) rename src/std/{ => v0.19-TODO}/misc/dag-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/dag.ss (100%) rename src/std/{ => v0.19-TODO}/misc/decimal-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/decimal.ss (100%) rename src/std/{ => v0.19-TODO}/misc/deque-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/deque.ss (100%) rename src/std/{ => v0.19-TODO}/misc/evector-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/evector.ss (100%) rename src/std/{ => v0.19-TODO}/misc/func-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/func.ss (100%) rename src/std/{ => v0.19-TODO}/misc/hash-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/hash.ss (100%) rename src/std/{ => v0.19-TODO}/misc/list-builder-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/list-builder.ss (100%) rename src/std/{ => v0.19-TODO}/misc/list-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/list.ss (100%) rename src/std/{ => v0.19-TODO}/misc/lru-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/lru.ss (100%) rename src/std/{ => v0.19-TODO}/misc/number-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/number.ss (100%) rename src/std/{ => v0.19-TODO}/misc/path-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/path.ss (100%) rename src/std/{ => v0.19-TODO}/misc/plist-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/plist.ss (100%) rename src/std/{ => v0.19-TODO}/misc/ports-test.data (100%) rename src/std/{ => v0.19-TODO}/misc/ports-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/ports.ss (100%) rename src/std/{ => v0.19-TODO}/misc/pqueue-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/pqueue.ss (100%) rename src/std/{ => v0.19-TODO}/misc/prime-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/prime.ss (100%) rename src/std/{ => v0.19-TODO}/misc/process-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/process.ss (100%) rename src/std/{ => v0.19-TODO}/misc/queue-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/queue.ss (100%) rename src/std/{ => v0.19-TODO}/misc/rbtree-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/rbtree.ss (100%) rename src/std/{ => v0.19-TODO}/misc/repr-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/repr.ss (100%) rename src/std/{ => v0.19-TODO}/misc/rwlock-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/rwlock.ss (100%) rename src/std/{ => v0.19-TODO}/misc/shared.ss (100%) rename src/std/{ => v0.19-TODO}/misc/shuffle.ss (100%) rename src/std/{ => v0.19-TODO}/misc/string-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/string.ss (100%) rename src/std/{ => v0.19-TODO}/misc/symbol.ss (100%) rename src/std/{ => v0.19-TODO}/misc/sync.ss (100%) rename src/std/{ => v0.19-TODO}/misc/template-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/template.ss (100%) rename src/std/{ => v0.19-TODO}/misc/text.ss (100%) rename src/std/{ => v0.19-TODO}/misc/threads.ss (100%) rename src/std/{ => v0.19-TODO}/misc/timeout.ss (100%) rename src/std/{ => v0.19-TODO}/misc/uuid.ss (100%) rename src/std/{ => v0.19-TODO}/misc/vector-test.ss (100%) rename src/std/{ => v0.19-TODO}/misc/vector.ss (100%) rename src/std/{ => v0.19-TODO}/misc/wg.ss (100%) rename src/std/{ => v0.19-TODO}/net/address-test.ss (100%) rename src/std/{ => v0.19-TODO}/net/address.ss (99%) create mode 100644 src/std/v0.19-TODO/net/address/address.ss create mode 100644 src/std/v0.19-TODO/net/address/format.ss rename src/std/{ => v0.19-TODO}/net/bio.ss (100%) rename src/std/{ => v0.19-TODO}/net/bio/buffer.ss (100%) rename src/std/{ => v0.19-TODO}/net/bio/file.ss (100%) rename src/std/{ => v0.19-TODO}/net/bio/input.ss (100%) rename src/std/{ => v0.19-TODO}/net/bio/output.ss (100%) rename src/std/{ => v0.19-TODO}/net/httpd-test.ss (100%) rename src/std/{ => v0.19-TODO}/net/httpd.ss (100%) rename src/std/{ => v0.19-TODO}/net/httpd/api.ss (100%) rename src/std/{ => v0.19-TODO}/net/httpd/base.ss (100%) rename src/std/{ => v0.19-TODO}/net/httpd/control.ss (100%) rename src/std/{ => v0.19-TODO}/net/httpd/file.ss (100%) rename src/std/{ => v0.19-TODO}/net/httpd/handler.ss (100%) rename src/std/{ => v0.19-TODO}/net/httpd/logger.ss (100%) rename src/std/{ => v0.19-TODO}/net/httpd/mux.ss (100%) rename src/std/{ => v0.19-TODO}/net/httpd/server.ss (100%) rename src/std/{ => v0.19-TODO}/net/json-rpc-test.ss (100%) rename src/std/{ => v0.19-TODO}/net/json-rpc.ss (100%) rename src/std/{ => v0.19-TODO}/net/repl-test.ss (100%) rename src/std/{ => v0.19-TODO}/net/repl.ss (100%) rename src/std/{ => v0.19-TODO}/net/request.ss (100%) rename src/std/{ => v0.19-TODO}/net/s3.ss (100%) rename src/std/{ => v0.19-TODO}/net/s3/api.ss (100%) rename src/std/{ => v0.19-TODO}/net/s3/interface.ss (100%) rename src/std/{ => v0.19-TODO}/net/s3/sigv4-test.ss (100%) rename src/std/{ => v0.19-TODO}/net/s3/sigv4.ss (100%) rename src/std/{ => v0.19-TODO}/net/sasl-test.ss (100%) rename src/std/{ => v0.19-TODO}/net/sasl.ss (100%) rename src/std/{ => v0.19-TODO}/net/smtp.ss (100%) rename src/std/{ => v0.19-TODO}/net/smtp/README.org (100%) rename src/std/{ => v0.19-TODO}/net/smtp/api.ss (100%) rename src/std/{ => v0.19-TODO}/net/smtp/client.ss (100%) rename src/std/{ => v0.19-TODO}/net/smtp/connection.ss (100%) rename src/std/{ => v0.19-TODO}/net/smtp/data.ss (100%) rename src/std/{ => v0.19-TODO}/net/smtp/headers.ss (100%) rename src/std/{ => v0.19-TODO}/net/smtp/interface.ss (100%) rename src/std/{ => v0.19-TODO}/net/smtp/session.ss (100%) rename src/std/{ => v0.19-TODO}/net/socket.ss (100%) rename src/std/{ => v0.19-TODO}/net/socket/api.ss (100%) rename src/std/{ => v0.19-TODO}/net/socket/base.ss (100%) rename src/std/{ => v0.19-TODO}/net/socket/basic-server.ss (100%) rename src/std/{ => v0.19-TODO}/net/socket/basic-socket.ss (100%) rename src/std/{ => v0.19-TODO}/net/socket/buffer.ss (100%) rename src/std/{ => v0.19-TODO}/net/socket/epoll-server.ss (100%) rename src/std/{ => v0.19-TODO}/net/socket/kqueue-server.ss (100%) rename src/std/{ => v0.19-TODO}/net/socket/server-test.ss (100%) rename src/std/{ => v0.19-TODO}/net/socket/server.ss (100%) rename src/std/{ => v0.19-TODO}/net/socks.ss (100%) rename src/std/{ => v0.19-TODO}/net/socks/api.ss (100%) rename src/std/{ => v0.19-TODO}/net/socks/client.ss (100%) rename src/std/{ => v0.19-TODO}/net/socks/interface.ss (100%) rename src/std/{ => v0.19-TODO}/net/socks/server.ss (100%) rename src/std/{ => v0.19-TODO}/net/socks/socks-test.ss (100%) rename src/std/{ => v0.19-TODO}/net/ssl-test.ss (100%) rename src/std/{ => v0.19-TODO}/net/ssl.ss (100%) rename src/std/{ => v0.19-TODO}/net/ssl/api.ss (100%) rename src/std/{ => v0.19-TODO}/net/ssl/client.ss (100%) rename src/std/{ => v0.19-TODO}/net/ssl/error.ss (100%) rename src/std/{ => v0.19-TODO}/net/ssl/interface.ss (100%) rename src/std/{ => v0.19-TODO}/net/ssl/libssl.ss (100%) rename src/std/{ => v0.19-TODO}/net/ssl/server.ss (100%) rename src/std/{ => v0.19-TODO}/net/ssl/socket.ss (100%) rename src/std/{ => v0.19-TODO}/net/uri.ss (100%) rename src/std/{ => v0.19-TODO}/net/websocket.ss (100%) rename src/std/{ => v0.19-TODO}/net/websocket/api.ss (100%) rename src/std/{ => v0.19-TODO}/net/websocket/client.ss (100%) rename src/std/{ => v0.19-TODO}/net/websocket/interface.ss (100%) rename src/std/{ => v0.19-TODO}/net/websocket/server.ss (100%) rename src/std/{ => v0.19-TODO}/net/websocket/socket-test.ss (100%) rename src/std/{ => v0.19-TODO}/net/websocket/socket.ss (100%) rename src/std/{ => v0.19-TODO}/net/websocket/websocket-test.ss (100%) rename src/std/{ => v0.19-TODO}/parser.ss (100%) rename src/std/{ => v0.19-TODO}/parser/base.ss (100%) rename src/std/{ => v0.19-TODO}/parser/deflexer.ss (100%) rename src/std/{ => v0.19-TODO}/parser/defparser.ss (100%) rename src/std/{ => v0.19-TODO}/parser/grammar-reader.ss (100%) rename src/std/{ => v0.19-TODO}/parser/grammar.ss (100%) rename src/std/{ => v0.19-TODO}/parser/lexer.ss (100%) rename src/std/{ => v0.19-TODO}/parser/ll1-test.ss (100%) rename src/std/{ => v0.19-TODO}/parser/ll1.ss (100%) rename src/std/{ => v0.19-TODO}/parser/rlang.ss (100%) rename src/std/{ => v0.19-TODO}/parser/rx-parser.ss (100%) rename src/std/{ => v0.19-TODO}/parser/stream.ss (100%) rename src/std/{ => v0.19-TODO}/pregexp.ss (100%) rename src/std/{ => v0.19-TODO}/pregexp/COPYING (100%) rename src/std/{ => v0.19-TODO}/pregexp/INSTALL (100%) rename src/std/{ => v0.19-TODO}/pregexp/README (100%) rename src/std/{ => v0.19-TODO}/pregexp/dialects/cl-pregexp.scm (100%) rename src/std/{ => v0.19-TODO}/pregexp/dialects/dialects-supported.scm (100%) rename src/std/{ => v0.19-TODO}/pregexp/dialects/files-to-be-ported.scm (100%) rename src/std/{ => v0.19-TODO}/pregexp/dialects/gauche-pregexp.scm (100%) rename src/std/{ => v0.19-TODO}/pregexp/dialects/guile-pregexp.scm (100%) rename src/std/{ => v0.19-TODO}/pregexp/dialects/plt-pregexp.scm (100%) rename src/std/{ => v0.19-TODO}/pregexp/dialects/scsh-pregexp.scm (100%) rename src/std/{ => v0.19-TODO}/pregexp/history (100%) rename src/std/{ => v0.19-TODO}/pregexp/index.tex (100%) rename src/std/{ => v0.19-TODO}/pregexp/known-bugs/6115 (100%) rename src/std/{ => v0.19-TODO}/pregexp/known-bugs/scott (100%) rename src/std/{ => v0.19-TODO}/pregexp/manifest (100%) rename src/std/{ => v0.19-TODO}/pregexp/pregexp-test.scm (100%) rename src/std/{ => v0.19-TODO}/pregexp/pregexp-test.ss (100%) rename src/std/{ => v0.19-TODO}/pregexp/pregexp.lisp (100%) rename src/std/{ => v0.19-TODO}/pregexp/pregexp.scm (100%) rename src/std/{ => v0.19-TODO}/pregexp/tester.lisp (100%) rename src/std/{ => v0.19-TODO}/pregexp/tester.scm (100%) rename src/std/{ => v0.19-TODO}/protobuf/io.ss (100%) rename src/std/{ => v0.19-TODO}/protobuf/macros.ss (100%) rename src/std/{ => v0.19-TODO}/protobuf/potpourri-test.proto (100%) rename src/std/{ => v0.19-TODO}/protobuf/potpourri-test2.proto (100%) rename src/std/{ => v0.19-TODO}/protobuf/proto-grammar.ss (100%) rename src/std/{ => v0.19-TODO}/protobuf/proto.ss (100%) rename src/std/{ => v0.19-TODO}/protobuf/protobuf-test.ss (100%) rename src/std/{ => v0.19-TODO}/source-test.ss (100%) rename src/std/{ => v0.19-TODO}/source.ss (100%) rename src/std/{ => v0.19-TODO}/stxparam.ss (100%) rename src/std/{ => v0.19-TODO}/stxutil.ss (65%) rename src/std/{ => v0.19-TODO}/text/_zlib.scm (100%) rename src/std/{ => v0.19-TODO}/text/_zlib.ssi (100%) rename src/std/{ => v0.19-TODO}/text/base58-test.ss (100%) rename src/std/{ => v0.19-TODO}/text/base58.ss (100%) rename src/std/{ => v0.19-TODO}/text/base64.scm (100%) rename src/std/{ => v0.19-TODO}/text/base64.ssi (100%) rename src/std/{ => v0.19-TODO}/text/basic-printers-test.ss (100%) rename src/std/{ => v0.19-TODO}/text/basic-printers.ss (100%) rename src/std/{ => v0.19-TODO}/text/char-set-test.ss (100%) rename src/std/{ => v0.19-TODO}/text/char-set.ss (100%) rename src/std/{ => v0.19-TODO}/text/csv-test.ss (100%) rename src/std/{ => v0.19-TODO}/text/csv.ss (100%) rename src/std/{ => v0.19-TODO}/text/hex-test.ss (100%) rename src/std/{ => v0.19-TODO}/text/hex.ss (100%) rename src/std/{ => v0.19-TODO}/text/json.ss (100%) rename src/std/{ => v0.19-TODO}/text/json/api.ss (92%) rename src/std/{ => v0.19-TODO}/text/json/input.ss (99%) rename src/std/{ => v0.19-TODO}/text/json/json-benchmark.ss (100%) rename src/std/{ => v0.19-TODO}/text/json/json-test.ss (100%) create mode 100644 src/std/v0.19-TODO/text/json/object.ss rename src/std/{ => v0.19-TODO}/text/json/output.ss (95%) rename src/std/{ => v0.19-TODO}/text/json/util.ss (96%) rename src/std/{ => v0.19-TODO}/text/utf16-test.ss (100%) rename src/std/{ => v0.19-TODO}/text/utf16.ss (100%) rename src/std/{ => v0.19-TODO}/text/utf32-test.ss (100%) rename src/std/{ => v0.19-TODO}/text/utf32.ss (100%) rename src/std/{ => v0.19-TODO}/text/utf8-test.ss (100%) rename src/std/{ => v0.19-TODO}/text/utf8.ss (100%) rename src/std/{ => v0.19-TODO}/text/zlib.ss (100%) rename src/std/{ => v0.19-TODO}/values-test.ss (100%) rename src/std/{ => v0.19-TODO}/values.ss (100%) create mode 100755 src/v0.19-TODIE/lang/build.ss rename src/{r7rs-large => v0.19-TODIE/lang}/gerbil.pkg (100%) rename src/{ => v0.19-TODIE}/lang/scheme/base-impl.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/base.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/case-lambda.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/char.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/complex.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/cxr.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/eval-impl.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/eval.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/file.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/inexact.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/lazy-impl.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/lazy.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/load-impl.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/load.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/process-context-impl.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/process-context.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/r5rs-null.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/r5rs.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/r7rs.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/read.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/repl-impl.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/repl.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/scheme-test.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/time.ss (100%) rename src/{ => v0.19-TODIE}/lang/scheme/write.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/build.ss (100%) create mode 100644 src/v0.19-TODIE/r7rs-large/gerbil.pkg rename src/{ => v0.19-TODIE}/r7rs-large/scheme/bitwise.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/box.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/bytevector.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/charset.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/comparator.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/division.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/ephemeron.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/fixnum.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/flonum.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/generator.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/hash-table.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/ideque.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/ilist.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/list-queue.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/list.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/lseq.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/mapping.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/mapping/hash.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/regex.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/rlist.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/set.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/show.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/sort.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/stream.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/text.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/vector.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/vector/base.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/vector/c128.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/vector/c64.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/vector/f32.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/vector/f64.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/vector/s16.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/vector/s32.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/vector/s64.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/vector/s8.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/vector/u16.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/vector/u32.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/vector/u64.ss (100%) rename src/{ => v0.19-TODIE}/r7rs-large/scheme/vector/u8.ss (100%) rename src/{ => v0.19-TODIE}/srfi/1.ss (100%) rename src/{ => v0.19-TODIE}/srfi/101.ss (100%) rename src/{ => v0.19-TODIE}/srfi/113.ss (100%) rename src/{ => v0.19-TODIE}/srfi/115.ss (100%) rename src/{ => v0.19-TODIE}/srfi/116.ss (100%) rename src/{ => v0.19-TODIE}/srfi/117.ss (100%) rename src/{ => v0.19-TODIE}/srfi/121.ss (100%) rename src/{ => v0.19-TODIE}/srfi/124.ss (100%) rename src/{ => v0.19-TODIE}/srfi/127.ss (100%) rename src/{ => v0.19-TODIE}/srfi/128.ss (100%) rename src/{ => v0.19-TODIE}/srfi/13.ss (100%) rename src/{ => v0.19-TODIE}/srfi/130.ss (100%) rename src/{ => v0.19-TODIE}/srfi/132.ss (100%) rename src/{ => v0.19-TODIE}/srfi/133.ss (100%) rename src/{ => v0.19-TODIE}/srfi/134.ss (100%) rename src/{ => v0.19-TODIE}/srfi/135.ss (100%) rename src/{ => v0.19-TODIE}/srfi/14.ss (100%) rename src/{ => v0.19-TODIE}/srfi/141.ss (100%) rename src/{ => v0.19-TODIE}/srfi/143.ss (100%) rename src/{ => v0.19-TODIE}/srfi/144.ss (100%) rename src/{ => v0.19-TODIE}/srfi/145.ss (100%) rename src/{ => v0.19-TODIE}/srfi/146.ss (100%) rename src/{ => v0.19-TODIE}/srfi/146/hamt-map.ss (100%) rename src/{ => v0.19-TODIE}/srfi/146/hamt-misc.ss (100%) rename src/{ => v0.19-TODIE}/srfi/146/hamt.ss (100%) rename src/{ => v0.19-TODIE}/srfi/146/hash.ss (100%) rename src/{ => v0.19-TODIE}/srfi/146/vector-edit.ss (100%) rename src/{ => v0.19-TODIE}/srfi/151.ss (100%) rename src/{ => v0.19-TODIE}/srfi/158.ss (100%) rename src/{ => v0.19-TODIE}/srfi/159.ss (100%) rename src/{ => v0.19-TODIE}/srfi/159/base.ss (100%) rename src/{ => v0.19-TODIE}/srfi/159/color.ss (100%) rename src/{ => v0.19-TODIE}/srfi/159/columnar.ss (100%) rename src/{ => v0.19-TODIE}/srfi/159/environment.ss (100%) rename src/{ => v0.19-TODIE}/srfi/159/pretty.ss (100%) rename src/{ => v0.19-TODIE}/srfi/159/show.ss (100%) rename src/{ => v0.19-TODIE}/srfi/159/string.ss (100%) rename src/{ => v0.19-TODIE}/srfi/159/unicode.ss (100%) rename src/{ => v0.19-TODIE}/srfi/160/base.ss (100%) rename src/{ => v0.19-TODIE}/srfi/160/c128.ss (100%) rename src/{ => v0.19-TODIE}/srfi/160/c64.ss (100%) rename src/{ => v0.19-TODIE}/srfi/160/f32.ss (100%) rename src/{ => v0.19-TODIE}/srfi/160/f64.ss (100%) rename src/{ => v0.19-TODIE}/srfi/160/s16.ss (100%) rename src/{ => v0.19-TODIE}/srfi/160/s32.ss (100%) rename src/{ => v0.19-TODIE}/srfi/160/s64.ss (100%) rename src/{ => v0.19-TODIE}/srfi/160/s8.ss (100%) rename src/{ => v0.19-TODIE}/srfi/160/u16.ss (100%) rename src/{ => v0.19-TODIE}/srfi/160/u32.ss (100%) rename src/{ => v0.19-TODIE}/srfi/160/u64.ss (100%) rename src/{ => v0.19-TODIE}/srfi/160/u8.ss (100%) rename src/{ => v0.19-TODIE}/srfi/19.ss (100%) rename src/{ => v0.19-TODIE}/srfi/212.ss (100%) rename src/{ => v0.19-TODIE}/srfi/41.ss (100%) rename src/{ => v0.19-TODIE}/srfi/42.ss (100%) rename src/{ => v0.19-TODIE}/srfi/43.ss (100%) rename src/{ => v0.19-TODIE}/srfi/78.ss (100%) rename src/{ => v0.19-TODIE}/srfi/8.ss (100%) rename src/{ => v0.19-TODIE}/srfi/9.ss (100%) rename src/{ => v0.19-TODIE}/srfi/95.ss (100%) rename src/{ => v0.19-TODIE}/srfi/build.ss (100%) rename src/{ => v0.19-TODIE}/srfi/gerbil.pkg (100%) diff --git a/Makefile b/Makefile index e305beb07a..53e296f5b8 100644 --- a/Makefile +++ b/Makefile @@ -6,12 +6,34 @@ build: install: DESTDIR="$(DESTDIR)" ./install.sh +boot: + GERBIL_BUILD_FLAGS="$(MAKEFLAGS)" ./build.sh prepare + GERBIL_BUILD_FLAGS="$(MAKEFLAGS)" ./build.sh gambit + GERBIL_BUILD_FLAGS="$(MAKEFLAGS)" ./build.sh boot-gxi + +stage0: + GERBIL_BUILD_FLAGS="$(MAKEFLAGS)" ./build.sh stage0 + +stage1: + GERBIL_BUILD_FLAGS="$(MAKEFLAGS)" ./build.sh stage1 + +stdlib: + GERBIL_BUILD_FLAGS="$(MAKEFLAGS)" ./build.sh stdlib + check: ./build.sh env gxtest ./... +mostly-clean: + rm -rf build/lib/gerbil + rm -rf build/lib/std + rm -rf build/lib/static + +boot-clean: mostly-clean + rm -rf bootstrap/lib/gerbil + clean: rm -rf build rm -rf bootstrap cd src/gambit && make clean -.PHONY: all build install check clean +.PHONY: all build install check clean mostly-clean diff --git a/src/bootstrap.sh b/src/bootstrap.sh index b542adbdc2..5522306aed 100755 --- a/src/bootstrap.sh +++ b/src/bootstrap.sh @@ -7,7 +7,79 @@ if [ ! -z "$GERBIL_BUILD_NOOPT" ]; then gerbil_opt="" fi -rm -rf bootstrap/* -mkdir -p bootstrap/gerbil -cp gerbil/builtin.ssxi.ss gerbil/builtin-inline-rules.ssxi.ss bootstrap/gerbil -gxc $gerbil_opt -d bootstrap -s -S gerbil/core/{runtime,expander,sugar,mop,macro-object,match,more-sugar,more-syntax-sugar,module-sugar,contract}.ss gerbil/core.ss gerbil/runtime/{gambit,util,table,control,system,c3,mop,mop-system-classes,error,interface,hash,thread,syntax,eval,repl,loader,init}.ss gerbil/runtime.ss gerbil/expander/{common,stx,core,top,module,compile,root,stxcase,init}.ss gerbil/expander.ss gerbil/compiler/{base,method,compile,optimize-base,optimize-xform,optimize-top,optimize-spec,optimize-ann,optimize-call,optimize,driver,ssxi}.ss gerbil/compiler.ss gerbil/gambit.ss +gerbil_core=$(echo gerbil/core/{runtime,expander,sugar,mop,macro-object,match,more-sugar,more-syntax-sugar,module-sugar,contract}.ss gerbil/core.ss) +gerbil_runtime=$(echo gerbil/runtime/{gambit,util,table,control,system,c3,mop,mop-system-classes,error,interface,hash,thread,syntax,eval,repl,loader,init}.ss gerbil/runtime.ss) +gerbil_expander=$(echo gerbil/expander/{common,stx,core,top,module,compile,root,stxcase,init}.ss gerbil/expander.ss) +gerbil_compiler=$(echo gerbil/compiler/{base,method,compile,optimize-base,optimize-xform,optimize-top,optimize-spec,optimize-ann,optimize-call,optimize,driver,ssxi}.ss gerbil/compiler.ss) + +prepare() { + rm -rf bootstrap/* + mkdir -p bootstrap/gerbil + cp gerbil/builtin.ssxi.ss gerbil/builtin-inline-rules.ssxi.ss bootstrap/gerbil +} + +build() { + gxc $gerbil_opt -d bootstrap -s -S $* +} + +build_all() { + prepare + build $gerbil_core $gerbil_runtime $gerbil_expander $gerbil_compiler +} + +build_noopt() { + gerbil_opt="" + build_all +} + +build_core() { + build $gerbil_core +} + +build_runtime() { + build $gerbil_runtime +} + +build_expander() { + build $gerbil_expander +} + +build_compiler() { + build $gerbil_compiler +} + +die() { + local exitcode=$? + echo "bootstrap failed" + exit $exitcode +} + + +if [ "$#" -eq 0 ]; then + build_all +else + case "$1" in + "prepare") + prepare || die + ;; + "core") + build_core || die + ;; + "runtime") + build_runtime || die + ;; + "expander") + build_expander || die + ;; + "compiler") + build_compiler || die + ;; + "noopt") + build_noopt || die + ;; + *) + echo "unexpected argument $1" + die + ;; + esac +fi diff --git a/src/bootstrap/gerbil/compiler/base~0.scm b/src/bootstrap/gerbil/compiler/base~0.scm index 619c8868ed..6c3eec2b8c 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 1756721296) + (define gerbil/compiler/base::timestamp 1769384629) (begin (define gxc#current-compile-symbol-table (make-parameter '#f)) (define gxc#current-compile-runtime-sections (make-parameter '#f)) @@ -11,14 +11,14 @@ (define gxc#current-compile-keep-scm (make-parameter '#f)) (define gxc#current-compile-verbose (make-parameter - (let ((_%verbosity142555142557%_ + (let ((_%verbosity146303146305%_ (let () (declare (not safe)) (##getenv '"GERBIL_BUILD_VERBOSE" '#f)))) - (if _%verbosity142555142557%_ - (let* ((_%verbosity142560%_ _%verbosity142555142557%_) - (_%$e142562%_ (string->number _%verbosity142560%_))) - (if _%$e142562%_ _%$e142562%_ _%verbosity142560%_)) + (if _%verbosity146303146305%_ + (let* ((_%verbosity146307%_ _%verbosity146303146305%_) + (_%$e146309%_ (string->number _%verbosity146307%_))) + (if _%$e146309%_ _%$e146309%_ _%verbosity146307%_)) '#f)))) (define gxc#current-compile-optimize (make-parameter '#f)) (define gxc#current-compile-debug (make-parameter '#f)) @@ -30,22 +30,22 @@ (define gxc#current-compile-parallel (make-parameter '#f)) (define gxc#current-compile-local-env (make-parameter '())) (define gxc#symbol-table::t - (let ((__tmp142617 (list)) (__tmp142616 (cons (cons 'struct: '#t) '()))) + (let ((__tmp146364 (list)) (__tmp146363 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#symbol-table::t 'symbol-table - __tmp142617 + __tmp146364 '(gensyms bindings) - __tmp142616 + __tmp146363 ':init!))) (define gxc#symbol-table? (let () (declare (not safe)) (__make-class-predicate gxc#symbol-table::t))) (define gxc#make-symbol-table - (lambda _%$args142553%_ - (apply make-instance gxc#symbol-table::t _%$args142553%_))) + (lambda _%$args146301%_ + (apply make-instance gxc#symbol-table::t _%$args146301%_))) (define gxc#symbol-table-gensyms (let () (declare (not safe)) @@ -79,43 +79,43 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#symbol-table::t 'bindings))) (define gxc#symbol-table:::init! - (lambda (_%self142540%_) - (let ((_%self142543%_ _%self142540%_)) - (if (let ((__tmp142618 + (lambda (_%self146288%_) + (let ((_%self146291%_ _%self146288%_)) + (if (let ((__tmp146365 (let () (declare (not safe)) - (##structure-length _%self142543%_)))) + (##structure-length _%self146291%_)))) (declare (not safe)) - (##fx< '2 __tmp142618)) + (##fx< '2 __tmp146365)) (begin - (let ((__tmp142619 + (let ((__tmp146366 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self142543%_ - __tmp142619 + _%self146291%_ + __tmp146366 '1 '#f '#f)) - (let ((__tmp142620 + (let ((__tmp146367 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self142543%_ - __tmp142620 + _%self146291%_ + __tmp146367 '2 '#f '#f)) '#!void) - (let ((__tmp142621 + (let ((__tmp146368 (let () (declare (not safe)) - (##structure-length _%self142543%_)))) + (##structure-length _%self146291%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self142543%_ + _%self146291%_ '2 - __tmp142621)))))) + __tmp146368)))))) (let () (declare (not safe)) (__bind-method!__% @@ -124,134 +124,134 @@ gxc#symbol-table:::init! '#f)) (define gxc#raise-compile-error - (lambda (_%message142409%_ _%stx142410%_ . _%details142411%_) - (let ((_%ctx142416%_ - (let ((_%$e142413%_ + (lambda (_%message146157%_ _%stx146158%_ . _%details146159%_) + (let ((_%ctx146164%_ + (let ((_%$e146161%_ (let () (declare (not safe)) (gxc#current-compile-context)))) - (if _%$e142413%_ _%$e142413%_ '(compile))))) + (if _%$e146161%_ _%$e146161%_ '(compile))))) (apply gx#raise-syntax-error - _%ctx142416%_ - _%message142409%_ - _%stx142410%_ - _%details142411%_)))) + _%ctx146164%_ + _%message146157%_ + _%stx146158%_ + _%details146159%_)))) (define gxc#verbose - (lambda _%args142406%_ + (lambda _%args146154%_ (if (let () (declare (not safe)) (gxc#current-compile-verbose)) - (let ((__tmp142622 + (let ((__tmp146369 (lambda () (let () (declare (not safe)) - (##apply displayln _%args142406%_))))) + (##apply displayln _%args146154%_))))) (declare (not safe)) - (__with-lock gxc#__verbose-mutex __tmp142622)) + (__with-lock gxc#__verbose-mutex __tmp146369)) '#!void))) (define gxc#__verbose-mutex (make-mutex 'compiler/driver)) (define gxc#module-path-reserved-chars '":#<>&!?*;()[]{}|'`\"\\") (define gxc#module-id->path-string - (lambda (_%id142388%_) - (let* ((_%str142390%_ - (if (symbol? _%id142388%_) + (lambda (_%id146136%_) + (let* ((_%str146138%_ + (if (symbol? _%id146136%_) (let () (declare (not safe)) - (##symbol->string _%id142388%_)) - _%id142388%_)) - (_%len142392%_ (string-length _%str142390%_)) - (_%res142394%_ - (let () (declare (not safe)) (##make-string _%len142392%_)))) - (let _%lp142397%_ ((_%i142399%_ '0)) - (if (let () (declare (not safe)) (##fx< _%i142399%_ _%len142392%_)) - (let* ((_%char142401%_ (string-ref _%str142390%_ _%i142399%_)) - (_%xchar142403%_ + (##symbol->string _%id146136%_)) + _%id146136%_)) + (_%len146140%_ (string-length _%str146138%_)) + (_%res146142%_ + (let () (declare (not safe)) (##make-string _%len146140%_)))) + (let _%lp146145%_ ((_%i146147%_ '0)) + (if (let () (declare (not safe)) (##fx< _%i146147%_ _%len146140%_)) + (let* ((_%char146149%_ (string-ref _%str146138%_ _%i146147%_)) + (_%xchar146151%_ (if (let () (declare (not safe)) (string-index__0 gxc#module-path-reserved-chars - _%char142401%_)) + _%char146149%_)) '#\_ - _%char142401%_))) - (string-set! _%res142394%_ _%i142399%_ _%xchar142403%_) - (_%lp142397%_ - (let () (declare (not safe)) (##fx+ _%i142399%_ '1)))) - _%res142394%_))))) + _%char146149%_))) + (string-set! _%res146142%_ _%i146147%_ _%xchar146151%_) + (_%lp146145%_ + (let () (declare (not safe)) (##fx+ _%i146147%_ '1)))) + _%res146142%_))))) (define gxc#map* - (lambda (_%proc142330%_ _%maybe-improper-list142331%_) - (let _%recur142333%_ ((_%rest142335%_ _%maybe-improper-list142331%_)) - (let* ((_%rest142336142347%_ _%rest142335%_) - (_%E142340142351%_ + (lambda (_%proc146078%_ _%maybe-improper-list146079%_) + (let _%recur146081%_ ((_%rest146083%_ _%maybe-improper-list146079%_)) + (let* ((_%rest146084146095%_ _%rest146083%_) + (_%E146088146099%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest142336142347%_ + _%rest146084146095%_ '([hd . rest]) '([]) '(tail))) '#!void))) - (let ((_%K142343142376%_ - (lambda (_%rest142373%_ _%hd142374%_) - (cons (_%proc142330%_ _%hd142374%_) - (_%recur142333%_ _%rest142373%_)))) - (_%K142342142367%_ (lambda () '())) - (_%K142341142357%_ - (lambda (_%tail142355%_) (_%proc142330%_ _%tail142355%_)))) - (let ((_%try-match142338142370%_ + (let ((_%K146091146124%_ + (lambda (_%rest146121%_ _%hd146122%_) + (cons (_%proc146078%_ _%hd146122%_) + (_%recur146081%_ _%rest146121%_)))) + (_%K146090146115%_ (lambda () '())) + (_%K146089146105%_ + (lambda (_%tail146103%_) (_%proc146078%_ _%tail146103%_)))) + (let ((_%try-match146086146118%_ (lambda () - (if (null? _%rest142336142347%_) - (_%K142342142367%_) - (let ((_%tail142360%_ _%rest142336142347%_)) + (if (null? _%rest146084146095%_) + (_%K146090146115%_) + (let ((_%tail146108%_ _%rest146084146095%_)) (declare (not safe)) - (_%proc142330%_ _%tail142360%_)))))) - (if (pair? _%rest142336142347%_) - (let ((_%tl142345142381%_ + (_%proc146078%_ _%tail146108%_)))))) + (if (pair? _%rest146084146095%_) + (let ((_%tl146093146129%_ (let () (declare (not safe)) - (##cdr _%rest142336142347%_))) - (_%hd142344142379%_ + (##cdr _%rest146084146095%_))) + (_%hd146092146127%_ (let () (declare (not safe)) - (##car _%rest142336142347%_)))) - (let ((_%hd142384%_ _%hd142344142379%_) - (_%rest142386%_ _%tl142345142381%_)) - (_%K142343142376%_ _%rest142386%_ _%hd142384%_))) - (_%try-match142338142370%_)))))))) + (##car _%rest146084146095%_)))) + (let ((_%hd146132%_ _%hd146092146127%_) + (_%rest146134%_ _%tl146093146129%_)) + (_%K146091146124%_ _%rest146134%_ _%hd146132%_))) + (_%try-match146086146118%_)))))))) (define gxc#symbol-in-local-scope? - (lambda (_%sym142325%_) - (let ((_%$e142327%_ (not (gxc#gensym-reference? _%sym142325%_)))) - (if _%$e142327%_ - _%$e142327%_ - (memq _%sym142325%_ + (lambda (_%sym146073%_) + (let ((_%$e146075%_ (not (gxc#gensym-reference? _%sym146073%_)))) + (if _%$e146075%_ + _%$e146075%_ + (memq _%sym146073%_ (let () (declare (not safe)) (gxc#current-compile-local-env))))))) (define gxc#gensym-reference? - (lambda (_%sym142321%_) - (let ((_%str142323%_ (symbol->string _%sym142321%_))) + (lambda (_%sym146069%_) + (let ((_%str146071%_ (symbol->string _%sym146069%_))) (if (let () (declare (not safe)) - (##string-prefix? '"_%" _%str142323%_)) + (##string-prefix? '"_%" _%str146071%_)) (let () (declare (not safe)) - (##string-suffix? '"%_" _%str142323%_)) + (##string-suffix? '"%_" _%str146071%_)) '#f)))) (define gxc#generate-runtime-binding-id - (lambda (_%id142292%_) - (let ((_%$e142294%_ + (lambda (_%id146040%_) + (let ((_%$e146042%_ (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id142292%_ + _%id146040%_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gx#resolve-identifier__0 _%id142292%_)) + (gx#resolve-identifier__0 _%id146040%_)) '#f))) - (if _%$e142294%_ - ((lambda (_%bind142297%_) - (let ((_%eid142299%_ - (##structure-ref _%bind142297%_ '1 gx#binding::t '#f)) - (_%ht142300%_ + (if _%$e146042%_ + ((lambda (_%bind146045%_) + (let ((_%eid146047%_ + (##structure-ref _%bind146045%_ '1 gx#binding::t '#f)) + (_%ht146048%_ (##structure-ref (let () (declare (not safe)) @@ -261,155 +261,155 @@ '#f))) (if (let () (declare (not safe)) - (interned-symbol? _%eid142299%_)) - _%eid142299%_ - (let ((_%$e142303%_ + (interned-symbol? _%eid146047%_)) + _%eid146047%_ + (let ((_%$e146051%_ (let () (declare (not safe)) - (hash-get _%ht142300%_ _%eid142299%_)))) - (if _%$e142303%_ - _%$e142303%_ + (hash-get _%ht146048%_ _%eid146047%_)))) + (if _%$e146051%_ + _%$e146051%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%bind142297%_ + _%bind146045%_ 'gx#local-binding::t)) - (let ((_%gid142307%_ + (let ((_%gid146055%_ (gxc#generate-runtime-gensym-reference__0 - _%eid142299%_))) + _%eid146047%_))) (let () (declare (not safe)) (hash-put! - _%ht142300%_ - _%eid142299%_ - _%gid142307%_)) - _%gid142307%_) + _%ht146048%_ + _%eid146047%_ + _%gid146055%_)) + _%gid146055%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%bind142297%_ + _%bind146045%_ 'gx#module-binding::t)) - (let ((_%gid142316%_ - (let ((_%$e142310%_ + (let ((_%gid146064%_ + (let ((_%$e146058%_ (##structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%bind142297%_ + _%bind146045%_ '4 '#f '#f)) '6 gx#module-context::t '#f))) - (if _%$e142310%_ - ((lambda (_%ns142313%_) + (if _%$e146058%_ + ((lambda (_%ns146061%_) (let () (declare (not safe)) (make-symbol__1 - _%ns142313%_ + _%ns146061%_ '"#" - _%eid142299%_))) - _%$e142310%_) + _%eid146047%_))) + _%$e146058%_) (gxc#generate-runtime-gensym-reference__0 - _%eid142299%_))))) + _%eid146047%_))))) (let () (declare (not safe)) (hash-put! - _%ht142300%_ - _%eid142299%_ - _%gid142316%_)) - _%gid142316%_) + _%ht146048%_ + _%eid146047%_ + _%gid146064%_)) + _%gid146064%_) (gxc#raise-compile-error '"Cannot compile reference to uninterned binding" - _%id142292%_ - _%eid142299%_ - _%bind142297%_)))))))) - _%$e142294%_) - (if (let ((__tmp142623 + _%id146040%_ + _%eid146047%_ + _%bind146045%_)))))))) + _%$e146042%_) + (if (let ((__tmp146370 (let () (declare (not safe)) - (gx#stx-e _%id142292%_)))) + (gx#stx-e _%id146040%_)))) (declare (not safe)) - (interned-symbol? __tmp142623)) - (let () (declare (not safe)) (gx#stx-e _%id142292%_)) + (interned-symbol? __tmp146370)) + (let () (declare (not safe)) (gx#stx-e _%id146040%_)) (gxc#raise-compile-error '"Cannot compile reference to uninterned identifier" - _%id142292%_)))))) + _%id146040%_)))))) (define gxc#generate-runtime-binding-id* - (lambda (_%id142290%_) - (if (let () (declare (not safe)) (gx#identifier? _%id142290%_)) - (gxc#generate-runtime-binding-id _%id142290%_) + (lambda (_%id146038%_) + (if (let () (declare (not safe)) (gx#identifier? _%id146038%_)) + (gxc#generate-runtime-binding-id _%id146038%_) (gxc#generate-runtime-temporary__0)))) (define gxc#generate-runtime-temporary__% - (lambda (_%top142277%_) - (if _%top142277%_ - (let ((_%ns142279%_ + (lambda (_%top146025%_) + (if _%top146025%_ + (let ((_%ns146027%_ (##structure-ref - (let ((__tmp142624 + (let ((__tmp146371 (let () (declare (not safe)) (gx#current-expander-context)))) (declare (not safe)) - (gx#core-context-top__1 __tmp142624)) + (gx#core-context-top__1 __tmp146371)) '6 gx#module-context::t '#f)) - (_%phi142280%_ + (_%phi146028%_ (let () (declare (not safe)) (gx#current-expander-phi)))) - (if _%ns142279%_ - (if (fxpositive? _%phi142280%_) - (let ((__tmp142626 (number->string _%phi142280%_)) - (__tmp142625 + (if _%ns146027%_ + (if (fxpositive? _%phi146028%_) + (let ((__tmp146373 (number->string _%phi146028%_)) + (__tmp146372 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) (make-symbol__1 - _%ns142279%_ + _%ns146027%_ '"[" - __tmp142626 + __tmp146373 '"]#_" - __tmp142625 + __tmp146372 '"_")) - (let ((__tmp142627 + (let ((__tmp146374 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 _%ns142279%_ '"#_" __tmp142627 '"_"))) - (if (fxpositive? _%phi142280%_) - (let ((__tmp142629 (number->string _%phi142280%_)) - (__tmp142628 + (make-symbol__1 _%ns146027%_ '"#_" __tmp146374 '"_"))) + (if (fxpositive? _%phi146028%_) + (let ((__tmp146376 (number->string _%phi146028%_)) + (__tmp146375 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) (make-symbol__1 '"[" - __tmp142629 + __tmp146376 '"]#_" - __tmp142628 + __tmp146375 '"_")) - (let ((__tmp142630 + (let ((__tmp146377 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 '"_" __tmp142630 '"_"))))) - (let ((__tmp142631 (let () (declare (not safe)) (##gensym)))) + (make-symbol__1 '"_" __tmp146377 '"_"))))) + (let ((__tmp146378 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 '"_" __tmp142631 '"_"))))) + (make-symbol__1 '"_" __tmp146378 '"_"))))) (define gxc#generate-runtime-temporary__0 (lambda () - (let ((_%top142286%_ '#f)) - (gxc#generate-runtime-temporary__% _%top142286%_)))) + (let ((_%top146034%_ '#f)) + (gxc#generate-runtime-temporary__% _%top146034%_)))) (define gxc#generate-runtime-temporary - (lambda _g142632_ - (let ((_g142633_ (let () (declare (not safe)) (##length _g142632_)))) - (cond ((let () (declare (not safe)) (##fx= _g142633_ 0)) - (apply gxc#generate-runtime-temporary__0 _g142632_)) - ((let () (declare (not safe)) (##fx= _g142633_ 1)) - (apply gxc#generate-runtime-temporary__% _g142632_)) + (lambda _g146379_ + (let ((_g146380_ (let () (declare (not safe)) (##length _g146379_)))) + (cond ((let () (declare (not safe)) (##fx= _g146380_ 0)) + (apply gxc#generate-runtime-temporary__0 _g146379_)) + ((let () (declare (not safe)) (##fx= _g146380_ 1)) + (apply gxc#generate-runtime-temporary__% _g146379_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-temporary - _g142632_)))))) + _g146379_)))))) (define gxc#generate-runtime-gensym-reference__% - (lambda (_%sym142255%_ _%quote?142256%_) - (let* ((_%ht142258%_ + (lambda (_%sym146003%_ _%quote?146004%_) + (let* ((_%ht146006%_ (##structure-ref (let () (declare (not safe)) @@ -417,66 +417,66 @@ '1 gxc#symbol-table::t '#f)) - (_%$e142260%_ + (_%$e146008%_ (let () (declare (not safe)) - (hash-get _%ht142258%_ _%sym142255%_)))) - (if _%$e142260%_ - _%$e142260%_ - (let ((_%g142264%_ - (if _%quote?142256%_ - (let ((__tmp142634 + (hash-get _%ht146006%_ _%sym146003%_)))) + (if _%$e146008%_ + _%$e146008%_ + (let ((_%g146012%_ + (if _%quote?146004%_ + (let ((__tmp146381 (let () (declare (not safe)) (gxc#current-compile-timestamp)))) (declare (not safe)) (make-symbol__1 '"__" - _%sym142255%_ + _%sym146003%_ '"__" - __tmp142634)) + __tmp146381)) (let () (declare (not safe)) - (make-symbol__1 '"_%" _%sym142255%_ '"%_"))))) + (make-symbol__1 '"_%" _%sym146003%_ '"%_"))))) (let () (declare (not safe)) - (hash-put! _%ht142258%_ _%sym142255%_ _%g142264%_)) - _%g142264%_))))) + (hash-put! _%ht146006%_ _%sym146003%_ _%g146012%_)) + _%g146012%_))))) (define gxc#generate-runtime-gensym-reference__0 - (lambda (_%sym142269%_) - (let ((_%quote?142271%_ '#f)) + (lambda (_%sym146017%_) + (let ((_%quote?146019%_ '#f)) (gxc#generate-runtime-gensym-reference__% - _%sym142269%_ - _%quote?142271%_)))) + _%sym146017%_ + _%quote?146019%_)))) (define gxc#generate-runtime-gensym-reference - (lambda _g142635_ - (let ((_g142636_ (let () (declare (not safe)) (##length _g142635_)))) - (cond ((let () (declare (not safe)) (##fx= _g142636_ 1)) - (apply gxc#generate-runtime-gensym-reference__0 _g142635_)) - ((let () (declare (not safe)) (##fx= _g142636_ 2)) - (apply gxc#generate-runtime-gensym-reference__% _g142635_)) + (lambda _g146382_ + (let ((_g146383_ (let () (declare (not safe)) (##length _g146382_)))) + (cond ((let () (declare (not safe)) (##fx= _g146383_ 1)) + (apply gxc#generate-runtime-gensym-reference__0 _g146382_)) + ((let () (declare (not safe)) (##fx= _g146383_ 2)) + (apply gxc#generate-runtime-gensym-reference__% _g146382_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-gensym-reference - _g142635_)))))) + _g146382_)))))) (define gxc#runtime-identifier=? - (lambda (_%id1142247%_ _%id2142248%_) - (letrec ((_%symbol-e142250%_ - (lambda (_%id142252%_) - (if (symbol? _%id142252%_) - _%id142252%_ - (gxc#generate-runtime-binding-id _%id142252%_))))) - (eq? (_%symbol-e142250%_ _%id1142247%_) - (_%symbol-e142250%_ _%id2142248%_))))) + (lambda (_%id1145995%_ _%id2145996%_) + (letrec ((_%symbol-e145998%_ + (lambda (_%id146000%_) + (if (symbol? _%id146000%_) + _%id146000%_ + (gxc#generate-runtime-binding-id _%id146000%_))))) + (eq? (_%symbol-e145998%_ _%id1145995%_) + (_%symbol-e145998%_ _%id2145996%_))))) (define gxc#identifier-symbol - (lambda (_%stx142245%_) + (lambda (_%stx145993%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%stx142245%_ + _%stx145993%_ 'gx#syntax-quote::t)) - (gxc#generate-runtime-binding-id _%stx142245%_) - (let () (declare (not safe)) (gx#stx-e _%stx142245%_))))) + (gxc#generate-runtime-binding-id _%stx145993%_) + (let () (declare (not safe)) (gx#stx-e _%stx145993%_))))) (define gxc#__compile-jobs '()) (define gxc#__available-cores (string->number @@ -484,69 +484,69 @@ (define gxc#__jobs-mx (make-mutex)) (define gxc#__jobs-cv (make-condition-variable)) (define gxc#add-compile-job!__% - (lambda (_%thunk142230%_ _%name142231%_) + (lambda (_%thunk145978%_ _%name145979%_) (mutex-lock! gxc#__jobs-mx) - (let ((_%job142233%_ - (gxc#make-compile-job _%thunk142230%_ _%name142231%_))) - (set! gxc#__compile-jobs (cons _%job142233%_ gxc#__compile-jobs))) + (let ((_%job145981%_ + (gxc#make-compile-job _%thunk145978%_ _%name145979%_))) + (set! gxc#__compile-jobs (cons _%job145981%_ gxc#__compile-jobs))) (mutex-unlock! gxc#__jobs-mx))) (define gxc#add-compile-job!__0 - (lambda (_%thunk142238%_) - (let ((_%name142240%_ + (lambda (_%thunk145986%_) + (let ((_%name145988%_ (let () (declare (not safe)) (gxc#current-compile-context)))) - (gxc#add-compile-job!__% _%thunk142238%_ _%name142240%_)))) + (gxc#add-compile-job!__% _%thunk145986%_ _%name145988%_)))) (define gxc#add-compile-job! - (lambda _g142637_ - (let ((_g142638_ (let () (declare (not safe)) (##length _g142637_)))) - (cond ((let () (declare (not safe)) (##fx= _g142638_ 1)) - (apply gxc#add-compile-job!__0 _g142637_)) - ((let () (declare (not safe)) (##fx= _g142638_ 2)) - (apply gxc#add-compile-job!__% _g142637_)) + (lambda _g146384_ + (let ((_g146385_ (let () (declare (not safe)) (##length _g146384_)))) + (cond ((let () (declare (not safe)) (##fx= _g146385_ 1)) + (apply gxc#add-compile-job!__0 _g146384_)) + ((let () (declare (not safe)) (##fx= _g146385_ 2)) + (apply gxc#add-compile-job!__% _g146384_)) (else (##raise-wrong-number-of-arguments-exception gxc#add-compile-job! - _g142637_)))))) + _g146384_)))))) (define gxc#pending-compile-jobs (lambda () (mutex-lock! gxc#__jobs-mx) - (let ((_%result142227%_ (reverse! gxc#__compile-jobs))) + (let ((_%result145975%_ (reverse! gxc#__compile-jobs))) (set! gxc#__compile-jobs '()) (mutex-unlock! gxc#__jobs-mx) - _%result142227%_))) + _%result145975%_))) (define gxc#execute-pending-compile-jobs! (lambda () - (let _%loop142221%_ () - (let ((_%pending142224%_ (gxc#pending-compile-jobs))) - (if (null? _%pending142224%_) + (let _%loop145969%_ () + (let ((_%pending145972%_ (gxc#pending-compile-jobs))) + (if (null? _%pending145972%_) '#!void (begin (let () (declare (not safe)) - (##for-each thread-start! _%pending142224%_)) + (##for-each thread-start! _%pending145972%_)) (let () (declare (not safe)) - (##for-each gxc#join! _%pending142224%_)))))))) + (##for-each gxc#join! _%pending145972%_)))))))) (define gxc#make-compile-job - (lambda (_%thunk142210%_ _%name142211%_) + (lambda (_%thunk145958%_ _%name145959%_) (make-thread (lambda () - (let _%loop142214%_ () + (let _%loop145962%_ () (mutex-lock! gxc#__jobs-mx) (if (> gxc#__available-cores '0) (begin (set! gxc#__available-cores (- gxc#__available-cores '1)) (mutex-unlock! gxc#__jobs-mx) - (let ((__tmp142639 + (let ((__tmp146386 (lambda () (let () (declare (not safe)) (displayln '"... execute compile job " - _%name142211%_))))) + _%name145959%_))))) (declare (not safe)) - (__with-lock gxc#__verbose-mutex __tmp142639)) - (let ((__tmp142641 (lambda () (_%thunk142210%_))) - (__tmp142640 + (__with-lock gxc#__verbose-mutex __tmp146386)) + (let ((__tmp146388 (lambda () (_%thunk145958%_))) + (__tmp146387 (lambda () (mutex-lock! gxc#__jobs-mx) (set! gxc#__available-cores @@ -556,25 +556,25 @@ (condition-variable-signal! gxc#__jobs-cv) (mutex-unlock! gxc#__jobs-mx)))) (declare (not safe)) - (__with-unwind-protect __tmp142641 __tmp142640))) + (__with-unwind-protect __tmp146388 __tmp146387))) (begin (mutex-unlock! gxc#__jobs-mx gxc#__jobs-cv) - (_%loop142214%_))))) - _%name142211%_))) + (_%loop145962%_))))) + _%name145959%_))) (define gxc#join! - (lambda (_%thread142205%_) - (let ((__tmp142643 - (lambda (_%exn142207%_) + (lambda (_%thread145953%_) + (let ((__tmp146390 + (lambda (_%exn145955%_) (if (let () (declare (not safe)) - (uncaught-exception? _%exn142207%_)) - (let ((__tmp142644 + (uncaught-exception? _%exn145955%_)) + (let ((__tmp146391 (let () (declare (not safe)) - (uncaught-exception-reason _%exn142207%_)))) + (uncaught-exception-reason _%exn145955%_)))) (declare (not safe)) - (raise __tmp142644)) - (let () (declare (not safe)) (raise _%exn142207%_))))) - (__tmp142642 (lambda () (thread-join! _%thread142205%_)))) + (raise __tmp146391)) + (let () (declare (not safe)) (raise _%exn145955%_))))) + (__tmp146389 (lambda () (thread-join! _%thread145953%_)))) (declare (not safe)) - (__with-catch __tmp142643 __tmp142642)))))) + (__with-catch __tmp146390 __tmp146389)))))) diff --git a/src/bootstrap/gerbil/compiler/base~1.scm b/src/bootstrap/gerbil/compiler/base~1.scm index b171ec7907..dd3b243c81 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]#_g142654_| + (define |gxc[1]#_g146401_| (##structure gx#syntax-quote::t 'symbol-table::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g142656_| + (define |gxc[1]#_g146403_| (##structure gx#syntax-quote::t 'make-symbol-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g142658_| + (define |gxc[1]#_g146405_| (##structure gx#syntax-quote::t 'symbol-table? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g142660_| + (define |gxc[1]#_g146407_| (##structure gx#syntax-quote::t 'symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g142661_| + (define |gxc[1]#_g146408_| (##structure gx#syntax-quote::t 'symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g142663_| + (define |gxc[1]#_g146410_| (##structure gx#syntax-quote::t 'symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g142664_| + (define |gxc[1]#_g146411_| (##structure gx#syntax-quote::t 'symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g142666_| + (define |gxc[1]#_g146413_| (##structure gx#syntax-quote::t '&symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g142667_| + (define |gxc[1]#_g146414_| (##structure gx#syntax-quote::t '&symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g142669_| + (define |gxc[1]#_g146416_| (##structure gx#syntax-quote::t '&symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g142670_| + (define |gxc[1]#_g146417_| (##structure gx#syntax-quote::t '&symbol-table-bindings-set! @@ -79,202 +79,202 @@ '())) (begin (define |gxc[:0:]#ast-case| - (lambda (_%stx141740%_) + (lambda (_%stx145492%_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__% - _%stx141740%_ + _%stx145492%_ 'stx-eq? 'stx-e 'quote)))) (define |gxc[:0:]#ast-rules| - (lambda (_%stx141743%_) - (let* ((_%g141746141770%_ - (lambda (_%g141747141766%_) + (lambda (_%stx145495%_) + (let* ((_%g145498145522%_ + (lambda (_%g145499145518%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141747141766%_)))) - (_%g141745142073%_ - (lambda (_%g141747141774%_) + _%g145499145518%_)))) + (_%g145497145821%_ + (lambda (_%g145499145526%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141747141774%_)) - (let ((_%e141750141777%_ + (gx#stx-pair? _%g145499145526%_)) + (let ((_%e145502145529%_ (let () (declare (not safe)) - (gx#syntax-e _%g141747141774%_)))) - (let ((_%hd141751141781%_ + (gx#syntax-e _%g145499145526%_)))) + (let ((_%hd145503145533%_ (let () (declare (not safe)) - (##car _%e141750141777%_))) - (_%tl141752141784%_ + (##car _%e145502145529%_))) + (_%tl145504145536%_ (let () (declare (not safe)) - (##cdr _%e141750141777%_)))) + (##cdr _%e145502145529%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141752141784%_)) - (let ((_%e141753141787%_ + (gx#stx-pair? _%tl145504145536%_)) + (let ((_%e145505145539%_ (let () (declare (not safe)) - (gx#syntax-e _%tl141752141784%_)))) - (let ((_%hd141754141791%_ + (gx#syntax-e _%tl145504145536%_)))) + (let ((_%hd145506145543%_ (let () (declare (not safe)) - (##car _%e141753141787%_))) - (_%tl141755141794%_ + (##car _%e145505145539%_))) + (_%tl145507145546%_ (let () (declare (not safe)) - (##cdr _%e141753141787%_)))) + (##cdr _%e145505145539%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl141755141794%_)) - (let ((_g142645_ + (gx#stx-pair/null? _%tl145507145546%_)) + (let ((_g146392_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl141755141794%_ + _%tl145507145546%_ '0)))) (begin - (let ((_g142646_ + (let ((_g146393_ (let () (declare (not safe)) - (if (##values? _g142645_) + (if (##values? _g146392_) (##values-length - _g142645_) + _g146392_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g142646_ 2))) + (##fx= _g146393_ 2))) (error "Context expects 2 values" - _g142646_))) - (let ((_%target141756141797%_ + _g146393_))) + (let ((_%target145508145549%_ (let () (declare (not safe)) - (##values-ref _g142645_ 0))) - (_%tl141758141800%_ + (##values-ref _g146392_ 0))) + (_%tl145510145552%_ (let () (declare (not safe)) (##values-ref - _g142645_ + _g146392_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141758141800%_)) - (letrec ((_%loop141759141803%_ - (lambda (_%hd141757141807%_ + _%tl145510145552%_)) + (letrec ((_%loop145511145555%_ + (lambda (_%hd145509145559%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause141763141810%_) + _%clause145515145562%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd141757141807%_)) - (let ((_%e141760141813%_ + (gx#stx-pair? _%hd145509145559%_)) + (let ((_%e145512145564%_ (let () (declare (not safe)) - (gx#syntax-e _%hd141757141807%_)))) - (let ((_%lp-hd141761141817%_ + (gx#syntax-e _%hd145509145559%_)))) + (let ((_%lp-hd145513145568%_ (let () (declare (not safe)) - (##car _%e141760141813%_))) - (_%lp-tl141762141820%_ + (##car _%e145512145564%_))) + (_%lp-tl145514145571%_ (let () (declare (not safe)) - (##cdr _%e141760141813%_)))) - (_%loop141759141803%_ - _%lp-tl141762141820%_ - (cons _%lp-hd141761141817%_ - _%clause141763141810%_)))) - (let ((_%clause141764141823%_ - (reverse _%clause141763141810%_))) - ((lambda (_%L141827%_ _%L141829%_) + (##cdr _%e145512145564%_)))) + (_%loop145511145555%_ + _%lp-tl145514145571%_ + (cons _%lp-hd145513145568%_ + _%clause145515145562%_)))) + (let ((_%clause145516145574%_ + (reverse _%clause145515145562%_))) + ((lambda (_%g145500145577%_ _%g145501145579%_) (if (let () (declare (not safe)) - (gx#identifier-list? _%L141829%_)) - (let* ((_%g141848141865%_ - (lambda (_%g141849141861%_) + (gx#identifier-list? _%g145501145579%_)) + (let* ((_%g145598145615%_ + (lambda (_%g145599145611%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141849141861%_)))) - (_%g141847141926%_ - (lambda (_%g141849141869%_) + _%g145599145611%_)))) + (_%g145597145674%_ + (lambda (_%g145599145619%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g141849141869%_)) - (let ((_g142647_ + _%g145599145619%_)) + (let ((_g146394_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g141849141869%_ + _%g145599145619%_ '0)))) (begin - (let ((_g142648_ + (let ((_g146395_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g142647_) - (##values-length _g142647_) + _g146394_) + (##values-length _g146394_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g142648_ 2))) - (error "Context expects 2 values" _g142648_))) + (##fx= _g146395_ 2))) + (error "Context expects 2 values" _g146395_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target141851141872%_ + (let ((_%target145601145622%_ (let () (declare (not safe)) (##values-ref - _g142647_ + _g146394_ 0))) - (_%tl141853141875%_ + (_%tl145603145625%_ (let () (declare (not safe)) (##values-ref - _g142647_ + _g146394_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141853141875%_)) - (letrec ((_%loop141854141878%_ + _%tl145603145625%_)) + (letrec ((_%loop145604145628%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd141852141882%_ _%clause141858141885%_) + (lambda (_%hd145602145632%_ _%clause145608145635%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd141852141882%_)) - (let ((_%e141855141888%_ + (gx#stx-pair? _%hd145602145632%_)) + (let ((_%e145605145637%_ (let () (declare (not safe)) - (gx#syntax-e _%hd141852141882%_)))) - (let ((_%lp-hd141856141892%_ + (gx#syntax-e _%hd145602145632%_)))) + (let ((_%lp-hd145606145641%_ (let () (declare (not safe)) - (##car _%e141855141888%_))) - (_%lp-tl141857141895%_ + (##car _%e145605145637%_))) + (_%lp-tl145607145644%_ (let () (declare (not safe)) - (##cdr _%e141855141888%_)))) - (_%loop141854141878%_ - _%lp-tl141857141895%_ - (cons _%lp-hd141856141892%_ - _%clause141858141885%_)))) - (let ((_%clause141859141898%_ - (reverse _%clause141858141885%_))) - ((lambda (_%L141902%_) + (##cdr _%e145605145637%_)))) + (_%loop145604145628%_ + _%lp-tl145607145644%_ + (cons _%lp-hd145606145641%_ + _%clause145608145635%_)))) + (let ((_%clause145609145647%_ + (reverse _%clause145608145635%_))) + ((lambda (_%g145600145650%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -294,159 +294,162 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '$stx)) - (cons _%L141829%_ - (let ((__tmp142649 - (lambda (_%g141917141920%_ - _%g141918141923%_) - (cons _%g141917141920%_ - _%g141918141923%_)))) + (cons _%g145501145579%_ + (let ((__tmp146396 + (lambda (_%g145665145668%_ + _%g145666145671%_) + (cons _%g145665145668%_ + _%g145666145671%_)))) (declare (not safe)) - (__foldr1 __tmp142649 '() _%L141902%_))))) + (__foldr1 + __tmp146396 + '() + _%g145600145650%_))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause141859141898%_)))))) - (_%loop141854141878%_ _%target141851141872%_ '())) - (_%g141848141865%_ _%g141849141869%_))))) + _%clause145609145647%_)))))) + (_%loop145604145628%_ _%target145601145622%_ '())) + (_%g145598145615%_ _%g145599145619%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141848141865%_ - _%g141849141869%_))))) - (_%g141847141926%_ - (let ((__tmp142652 - (lambda (_%clause141930%_) - (let* ((_%__stx142565142566%_ - _%clause141930%_) - (_%g141934141961%_ + (_%g145598145615%_ + _%g145599145619%_))))) + (_%g145597145674%_ + (let ((__tmp146399 + (lambda (_%clause145678%_) + (let* ((_%__stx146312146313%_ + _%clause145678%_) + (_%g145682145709%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx142565142566%_))))) - (let ((_%__kont142568142569%_ - (lambda (_%L142046%_ - _%L142048%_) - (cons _%L142048%_ + _%__stx146312146313%_))))) + (let ((_%__kont146315146316%_ + (lambda (_%g145684145794%_ + _%g145685145796%_) + (cons _%g145685145796%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax)) - (cons _%L142046%_ '())) + (cons _%g145684145794%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont142570142571%_ - (lambda (_%L141998%_ - _%L142000%_ - _%L142001%_) - (cons _%L142001%_ - (cons _%L142000%_ + (_%__kont146317146318%_ + (lambda (_%g145692145746%_ + _%g145693145748%_ + _%g145694145749%_) + (cons _%g145694145749%_ + (cons _%g145693145748%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax)) - (cons _%L141998%_ '())) + (cons _%g145692145746%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx142565142566%_)) - (let ((_%e141938142026%_ + _%__stx146312146313%_)) + (let ((_%e145686145774%_ (let () (declare (not safe)) (gx#syntax-e - _%__stx142565142566%_)))) - (let ((_%tl141940142033%_ + _%__stx146312146313%_)))) + (let ((_%tl145688145781%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e141938142026%_))) - (_%hd141939142030%_ - (let () (declare (not safe)) (##car _%e141938142026%_)))) + (##cdr _%e145686145774%_))) + (_%hd145687145778%_ + (let () (declare (not safe)) (##car _%e145686145774%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141940142033%_)) - (let ((_%e141941142036%_ + (gx#stx-pair? _%tl145688145781%_)) + (let ((_%e145689145784%_ (let () (declare (not safe)) - (gx#syntax-e _%tl141940142033%_)))) - (let ((_%tl141943142043%_ + (gx#syntax-e _%tl145688145781%_)))) + (let ((_%tl145691145791%_ (let () (declare (not safe)) - (##cdr _%e141941142036%_))) - (_%hd141942142040%_ + (##cdr _%e145689145784%_))) + (_%hd145690145788%_ (let () (declare (not safe)) - (##car _%e141941142036%_)))) + (##car _%e145689145784%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141943142043%_)) - (_%__kont142568142569%_ - _%hd141942142040%_ - _%hd141939142030%_) + (gx#stx-null? _%tl145691145791%_)) + (_%__kont146315146316%_ + _%hd145690145788%_ + _%hd145687145778%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141943142043%_)) - (let ((_%e141953141988%_ + (gx#stx-pair? _%tl145691145791%_)) + (let ((_%e145701145736%_ (let () (declare (not safe)) - (gx#syntax-e _%tl141943142043%_)))) - (let ((_%tl141955141995%_ + (gx#syntax-e _%tl145691145791%_)))) + (let ((_%tl145703145743%_ (let () (declare (not safe)) - (##cdr _%e141953141988%_))) - (_%hd141954141992%_ + (##cdr _%e145701145736%_))) + (_%hd145702145740%_ (let () (declare (not safe)) - (##car _%e141953141988%_)))) + (##car _%e145701145736%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141955141995%_)) - (_%__kont142570142571%_ - _%hd141954141992%_ - _%hd141942142040%_ - _%hd141939142030%_) + (gx#stx-null? _%tl145703145743%_)) + (_%__kont146317146318%_ + _%hd145702145740%_ + _%hd145690145788%_ + _%hd145687145778%_) (let () (declare (not safe)) - (_%g141934141961%_))))) + (_%g145682145709%_))))) (let () (declare (not safe)) - (_%g141934141961%_)))))) - (let () (declare (not safe)) (_%g141934141961%_))))) + (_%g145682145709%_)))))) + (let () (declare (not safe)) (_%g145682145709%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g141934141961%_))))))) - (__tmp142650 - (let ((__tmp142651 - (lambda (_%g142064142067%_ - _%g142065142070%_) - (cons _%g142064142067%_ - _%g142065142070%_)))) + (_%g145682145709%_))))))) + (__tmp146397 + (let ((__tmp146398 + (lambda (_%g145812145815%_ + _%g145813145818%_) + (cons _%g145812145815%_ + _%g145813145818%_)))) (declare (not safe)) (__foldr1 - __tmp142651 + __tmp146398 '() - _%L141827%_)))) + _%g145500145577%_)))) (declare (not safe)) - (gx#stx-map1 __tmp142652 __tmp142650)))) - (_%g141746141770%_ _%g141747141774%_))) - _%clause141764141823%_ - _%hd141754141791%_)))))) + (gx#stx-map1 __tmp146399 __tmp146397)))) + (_%g145498145522%_ _%g145499145526%_))) + _%clause145516145574%_ + _%hd145506145543%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop141759141803%_ - _%target141756141797%_ + (_%loop145511145555%_ + _%target145508145549%_ '())) - (_%g141746141770%_ - _%g141747141774%_))))) - (_%g141746141770%_ _%g141747141774%_)))) - (_%g141746141770%_ _%g141747141774%_)))) - (_%g141746141770%_ _%g141747141774%_))))) - (_%g141745142073%_ _%stx141743%_)))) + (_%g145498145522%_ + _%g145499145526%_))))) + (_%g145498145522%_ _%g145499145526%_)))) + (_%g145498145522%_ _%g145499145526%_)))) + (_%g145498145522%_ _%g145499145526%_))))) + (_%g145497145821%_ _%stx145495%_)))) (define |gxc[:0:]#symbol-table| - (let ((__obj142615 + (let ((__obj146362 (let () (declare (not safe)) (##structure @@ -475,130 +478,130 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142615 + __obj146362 'gxc#symbol-table::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj142615 'symbol-table '2 '#f '#f)) + (##unchecked-structure-set! __obj146362 'symbol-table '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142615 + __obj146362 '(gensyms bindings) - '4 + '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142615 + __obj146362 '(gensyms bindings) - '6 + '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj142615 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj146362 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj142615 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj146362 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj142615 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj146362 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj142615 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj146362 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj142615 ':init! '11 '#f '#f)) - (let ((__tmp142653 |gxc[1]#_g142654_|)) + (##unchecked-structure-set! __obj146362 ':init! '12 '#f '#f)) + (let ((__tmp146400 |gxc[1]#_g146401_|)) (declare (not safe)) - (##unchecked-structure-set! __obj142615 __tmp142653 '12 '#f '#f)) - (let ((__tmp142655 |gxc[1]#_g142656_|)) + (##unchecked-structure-set! __obj146362 __tmp146400 '3 '#f '#f)) + (let ((__tmp146402 |gxc[1]#_g146403_|)) (declare (not safe)) - (##unchecked-structure-set! __obj142615 __tmp142655 '13 '#f '#f)) - (let ((__tmp142657 |gxc[1]#_g142658_|)) + (##unchecked-structure-set! __obj146362 __tmp146402 '13 '#f '#f)) + (let ((__tmp146404 |gxc[1]#_g146405_|)) (declare (not safe)) - (##unchecked-structure-set! __obj142615 __tmp142657 '14 '#f '#f)) - (let ((__tmp142659 - (cons (cons 'gensyms |gxc[1]#_g142660_|) - (cons (cons 'bindings |gxc[1]#_g142661_|) '())))) + (##unchecked-structure-set! __obj146362 __tmp146404 '14 '#f '#f)) + (let ((__tmp146406 + (cons (cons 'gensyms |gxc[1]#_g146407_|) + (cons (cons 'bindings |gxc[1]#_g146408_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj142615 __tmp142659 '15 '#f '#f)) - (let ((__tmp142662 - (cons (cons 'gensyms |gxc[1]#_g142663_|) - (cons (cons 'bindings |gxc[1]#_g142664_|) '())))) + (##unchecked-structure-set! __obj146362 __tmp146406 '15 '#f '#f)) + (let ((__tmp146409 + (cons (cons 'gensyms |gxc[1]#_g146410_|) + (cons (cons 'bindings |gxc[1]#_g146411_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj142615 __tmp142662 '16 '#f '#f)) - (let ((__tmp142665 - (cons (cons 'gensyms |gxc[1]#_g142666_|) - (cons (cons 'bindings |gxc[1]#_g142667_|) '())))) + (##unchecked-structure-set! __obj146362 __tmp146409 '16 '#f '#f)) + (let ((__tmp146412 + (cons (cons 'gensyms |gxc[1]#_g146413_|) + (cons (cons 'bindings |gxc[1]#_g146414_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj142615 __tmp142665 '17 '#f '#f)) - (let ((__tmp142668 - (cons (cons 'gensyms |gxc[1]#_g142669_|) - (cons (cons 'bindings |gxc[1]#_g142670_|) '())))) + (##unchecked-structure-set! __obj146362 __tmp146412 '17 '#f '#f)) + (let ((__tmp146415 + (cons (cons 'gensyms |gxc[1]#_g146416_|) + (cons (cons 'bindings |gxc[1]#_g146417_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj142615 __tmp142668 '18 '#f '#f)) + (##unchecked-structure-set! __obj146362 __tmp146415 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj142615 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj146362 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj142615 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj146362 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj142615 '() '20 '#f '#f)) - __obj142615)) + (##unchecked-structure-set! __obj146362 '() '20 '#f '#f)) + __obj146362)) (define |gxc[:0:]#with-verbose-mutex| - (lambda (_%$stx142079%_) - (let* ((_%g142083142097%_ - (lambda (_%g142084142093%_) + (lambda (_%$stx145827%_) + (let* ((_%g145831145845%_ + (lambda (_%g145832145841%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g142084142093%_)))) - (_%g142082142138%_ - (lambda (_%g142084142101%_) + _%g145832145841%_)))) + (_%g145830145886%_ + (lambda (_%g145832145849%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g142084142101%_)) - (let ((_%e142086142104%_ + (gx#stx-pair? _%g145832145849%_)) + (let ((_%e145834145852%_ (let () (declare (not safe)) - (gx#syntax-e _%g142084142101%_)))) - (let ((_%hd142087142108%_ + (gx#syntax-e _%g145832145849%_)))) + (let ((_%hd145835145856%_ (let () (declare (not safe)) - (##car _%e142086142104%_))) - (_%tl142088142111%_ + (##car _%e145834145852%_))) + (_%tl145836145859%_ (let () (declare (not safe)) - (##cdr _%e142086142104%_)))) + (##cdr _%e145834145852%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142088142111%_)) - (let ((_%e142089142114%_ + (gx#stx-pair? _%tl145836145859%_)) + (let ((_%e145837145862%_ (let () (declare (not safe)) - (gx#syntax-e _%tl142088142111%_)))) - (let ((_%hd142090142118%_ + (gx#syntax-e _%tl145836145859%_)))) + (let ((_%hd145838145866%_ (let () (declare (not safe)) - (##car _%e142089142114%_))) - (_%tl142091142121%_ + (##car _%e145837145862%_))) + (_%tl145839145869%_ (let () (declare (not safe)) - (##cdr _%e142089142114%_)))) + (##cdr _%e145837145862%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142091142121%_)) - ((lambda (_%L142124%_) + (gx#stx-null? _%tl145839145869%_)) + ((lambda (_%g145833145872%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -613,60 +616,60 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)) - (cons '() (cons _%L142124%_ '()))) + (cons '() (cons _%g145833145872%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd142090142118%_) - (_%g142083142097%_ _%g142084142101%_)))) - (_%g142083142097%_ _%g142084142101%_)))) - (_%g142083142097%_ _%g142084142101%_))))) - (_%g142082142138%_ _%$stx142079%_)))) + _%hd145838145866%_) + (_%g145831145845%_ _%g145832145849%_)))) + (_%g145831145845%_ _%g145832145849%_)))) + (_%g145831145845%_ _%g145832145849%_))))) + (_%g145830145886%_ _%$stx145827%_)))) (define |gxc[:0:]#go!| - (lambda (_%$stx142142%_) - (let* ((_%g142146142160%_ - (lambda (_%g142147142156%_) + (lambda (_%$stx145890%_) + (let* ((_%g145894145908%_ + (lambda (_%g145895145904%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g142147142156%_)))) - (_%g142145142201%_ - (lambda (_%g142147142164%_) + _%g145895145904%_)))) + (_%g145893145949%_ + (lambda (_%g145895145912%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g142147142164%_)) - (let ((_%e142149142167%_ + (gx#stx-pair? _%g145895145912%_)) + (let ((_%e145897145915%_ (let () (declare (not safe)) - (gx#syntax-e _%g142147142164%_)))) - (let ((_%hd142150142171%_ + (gx#syntax-e _%g145895145912%_)))) + (let ((_%hd145898145919%_ (let () (declare (not safe)) - (##car _%e142149142167%_))) - (_%tl142151142174%_ + (##car _%e145897145915%_))) + (_%tl145899145922%_ (let () (declare (not safe)) - (##cdr _%e142149142167%_)))) + (##cdr _%e145897145915%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142151142174%_)) - (let ((_%e142152142177%_ + (gx#stx-pair? _%tl145899145922%_)) + (let ((_%e145900145925%_ (let () (declare (not safe)) - (gx#syntax-e _%tl142151142174%_)))) - (let ((_%hd142153142181%_ + (gx#syntax-e _%tl145899145922%_)))) + (let ((_%hd145901145929%_ (let () (declare (not safe)) - (##car _%e142152142177%_))) - (_%tl142154142184%_ + (##car _%e145900145925%_))) + (_%tl145902145932%_ (let () (declare (not safe)) - (##cdr _%e142152142177%_)))) + (##cdr _%e145900145925%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142154142184%_)) - ((lambda (_%L142187%_) + (gx#stx-null? _%tl145902145932%_)) + ((lambda (_%g145896145935%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -680,11 +683,11 @@ 'lambda)) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L142187%_ '()))) + (cons _%g145896145935%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd142153142181%_) - (_%g142146142160%_ _%g142147142164%_)))) - (_%g142146142160%_ _%g142147142164%_)))) - (_%g142146142160%_ _%g142147142164%_))))) - (_%g142145142201%_ _%$stx142142%_)))))) + _%hd145901145929%_) + (_%g145894145908%_ _%g145895145912%_)))) + (_%g145894145908%_ _%g145895145912%_)))) + (_%g145894145908%_ _%g145895145912%_))))) + (_%g145893145949%_ _%$stx145890%_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile.ssxi.ss b/src/bootstrap/gerbil/compiler/compile.ssxi.ss index 77495ad3f4..1fcbe6c4f5 100644 --- a/src/bootstrap/gerbil/compiler/compile.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/compile.ssxi.ss @@ -1694,7 +1694,7 @@ package: gerbil/compiler #f signature: (return: - t::t + builtin::t effect: #f arguments: diff --git a/src/bootstrap/gerbil/compiler/compile~0.scm b/src/bootstrap/gerbil/compiler/compile~0.scm index d5e8623e04..b342c289db 100644 --- a/src/bootstrap/gerbil/compiler/compile~0.scm +++ b/src/bootstrap/gerbil/compiler/compile~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/compile::timestamp 1756721296) + (define gerbil/compiler/compile::timestamp 1769384629) (begin (define gxc#gambit-annotations '(not gambit-scheme @@ -46,10 +46,10 @@ (define gxc#current-compile-boolean-context (make-parameter '#f)) (define gxc#make-bound-identifier-table (lambda () - (letrec ((_%hash-e156387%_ - (lambda (_%id156389%_) + (letrec ((_%hash-e160034%_ + (lambda (_%id160036%_) (symbol-hash - (let () (declare (not safe)) (gx#stx-e _%id156389%_)))))) + (let () (declare (not safe)) (gx#stx-e _%id160036%_)))))) (let () (declare (not safe)) (make-hash-table__% @@ -57,31 +57,31 @@ absent-value absent-value gx#bound-identifier=? - _%hash-e156387%_ + _%hash-e160034%_ absent-value absent-value absent-value absent-value))))) (define gxc#::collect-bindings::t - (let ((__tmp157774 (list gxc#::void::t)) - (__tmp157773 (cons (cons 'final: '#t) '()))) + (let ((__tmp161421 (list gxc#::void::t)) + (__tmp161420 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-bindings::t '::collect-bindings - __tmp157774 + __tmp161421 '() - __tmp157773 + __tmp161420 '#f))) (define gxc#::collect-bindings? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-bindings::t))) (define gxc#make-::collect-bindings - (lambda _%$args156383%_ - (apply make-instance gxc#::collect-bindings::t _%$args156383%_))) + (lambda _%$args160030%_ + (apply make-instance gxc#::collect-bindings::t _%$args160030%_))) (define gxc#::collect-bindings-bind-methods! - (let ((__tmp157775 + (let ((__tmp161422 (lambda () (force gxc#::void-bind-methods!) (let () @@ -118,44 +118,44 @@ (declare (not safe)) (__seal-class! gxc#::collect-bindings::t))))) (declare (not safe)) - (__make-atomic-promise __tmp157775))) + (__make-atomic-promise __tmp161422))) (define gxc#apply-collect-bindings - (lambda (_%stx156375%_) + (lambda (_%stx160022%_) (force gxc#::collect-bindings-bind-methods!) - (let* ((_%self156378%_ - (let ((__obj157749 + (let* ((_%self160025%_ + (let ((__obj161396 (let () (declare (not safe)) (##structure gxc#::collect-bindings::t)))) - __obj157749)) - (__tmp157776 + __obj161396)) + (__tmp161423 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self156378%_ _%stx156375%_))))) + (gxc#compile-e__1 _%self160025%_ _%stx160022%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp157776 + __tmp161423 gxc#current-compile-method - _%self156378%_)))) + _%self160025%_)))) (define gxc#::lift-modules::t - (let ((__tmp157778 (list gxc#::void::t)) - (__tmp157777 (cons (cons 'final: '#t) '()))) + (let ((__tmp161425 (list gxc#::void::t)) + (__tmp161424 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::lift-modules::t '::lift-modules - __tmp157778 + __tmp161425 '(modules) - __tmp157777 + __tmp161424 '#f))) (define gxc#::lift-modules? (let () (declare (not safe)) (__make-class-predicate gxc#::lift-modules::t))) (define gxc#make-::lift-modules - (lambda _%$args156372%_ - (apply make-instance gxc#::lift-modules::t _%$args156372%_))) + (lambda _%$args160019%_ + (apply make-instance gxc#::lift-modules::t _%$args160019%_))) (define gxc#::lift-modules-modules (let () (declare (not safe)) @@ -173,7 +173,7 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#::lift-modules::t 'modules))) (define gxc#::lift-modules-bind-methods! - (let ((__tmp157779 + (let ((__tmp161426 (lambda () (force gxc#::void-bind-methods!) (let () @@ -192,76 +192,76 @@ (declare (not safe)) (__seal-class! gxc#::lift-modules::t))))) (declare (not safe)) - (__make-atomic-promise __tmp157779))) + (__make-atomic-promise __tmp161426))) (define gxc#apply-lift-modules__% - (lambda (_%@@keywords156346%_ _%modules156343156347%_ _%stx156349%_) - (let ((_%modules156352%_ - (if (eq? _%modules156343156347%_ absent-value) + (lambda (_%@@keywords159994%_ _%modules159991159995%_ _%stx159996%_) + (let ((_%modules159999%_ + (if (eq? _%modules159991159995%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'modules:)) - _%modules156343156347%_))) + _%modules159991159995%_))) (force gxc#::lift-modules-bind-methods!) - (let* ((_%self156354%_ - (let ((__obj157751 + (let* ((_%self160001%_ + (let ((__obj161398 (let () (declare (not safe)) (##structure gxc#::lift-modules::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj157751 - _%modules156352%_ + __obj161398 + _%modules159999%_ '1 '#f '#f)) - __obj157751)) - (__tmp157780 + __obj161398)) + (__tmp161427 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self156354%_ _%stx156349%_))))) + (gxc#compile-e__1 _%self160001%_ _%stx159996%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp157780 + __tmp161427 gxc#current-compile-method - _%self156354%_))))) + _%self160001%_))))) (define gxc#apply-lift-modules__@ - (lambda (_%@@keywords156361%_ . _%args156362%_) + (lambda (_%@@keywords160008%_ . _%args160009%_) (apply gxc#apply-lift-modules__% - _%@@keywords156361%_ + _%@@keywords160008%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords156361%_ + _%@@keywords160008%_ 'modules: absent-value)) - _%args156362%_))) + _%args160009%_))) (define gxc#apply-lift-modules - (lambda _%args156344156368%_ + (lambda _%args159992160015%_ (apply keyword-dispatch '#(modules:) gxc#apply-lift-modules__@ - _%args156344156368%_))) + _%args159992160015%_))) (define gxc#::find-runtime-code::t - (let ((__tmp157782 (list)) (__tmp157781 (cons (cons 'final: '#t) '()))) + (let ((__tmp161429 (list)) (__tmp161428 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-runtime-code::t '::find-runtime-code - __tmp157782 + __tmp161429 '() - __tmp157781 + __tmp161428 '#f))) (define gxc#::find-runtime-code? (let () (declare (not safe)) (__make-class-predicate gxc#::find-runtime-code::t))) (define gxc#make-::find-runtime-code - (lambda _%$args156339%_ - (apply make-instance gxc#::find-runtime-code::t _%$args156339%_))) + (lambda _%$args159987%_ + (apply make-instance gxc#::find-runtime-code::t _%$args159987%_))) (define gxc#::find-runtime-code-bind-methods! - (let ((__tmp157783 + (let ((__tmp161430 (lambda () (let () (declare (not safe)) @@ -459,46 +459,46 @@ (declare (not safe)) (__seal-class! gxc#::find-runtime-code::t))))) (declare (not safe)) - (__make-atomic-promise __tmp157783))) + (__make-atomic-promise __tmp161430))) (define gxc#apply-find-runtime-code - (lambda (_%stx156331%_) + (lambda (_%stx159979%_) (force gxc#::find-runtime-code-bind-methods!) - (let* ((_%self156334%_ - (let ((__obj157753 + (let* ((_%self159982%_ + (let ((__obj161400 (let () (declare (not safe)) (##structure gxc#::find-runtime-code::t)))) - __obj157753)) - (__tmp157784 + __obj161400)) + (__tmp161431 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self156334%_ _%stx156331%_))))) + (gxc#compile-e__1 _%self159982%_ _%stx159979%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp157784 + __tmp161431 gxc#current-compile-method - _%self156334%_)))) + _%self159982%_)))) (define gxc#::find-lambda-expression::t - (let ((__tmp157786 (list gxc#::false::t)) - (__tmp157785 (cons (cons 'final: '#t) '()))) + (let ((__tmp161433 (list gxc#::false::t)) + (__tmp161432 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-lambda-expression::t '::find-lambda-expression - __tmp157786 + __tmp161433 '() - __tmp157785 + __tmp161432 '#f))) (define gxc#::find-lambda-expression? (let () (declare (not safe)) (__make-class-predicate gxc#::find-lambda-expression::t))) (define gxc#make-::find-lambda-expression - (lambda _%$args156328%_ - (apply make-instance gxc#::find-lambda-expression::t _%$args156328%_))) + (lambda _%$args159976%_ + (apply make-instance gxc#::find-lambda-expression::t _%$args159976%_))) (define gxc#::find-lambda-expression-bind-methods! - (let ((__tmp157787 + (let ((__tmp161434 (lambda () (force gxc#::false-bind-methods!) (let () @@ -547,46 +547,46 @@ (declare (not safe)) (__seal-class! gxc#::find-lambda-expression::t))))) (declare (not safe)) - (__make-atomic-promise __tmp157787))) + (__make-atomic-promise __tmp161434))) (define gxc#apply-find-lambda-expression - (lambda (_%stx156320%_) + (lambda (_%stx159968%_) (force gxc#::find-lambda-expression-bind-methods!) - (let* ((_%self156323%_ - (let ((__obj157755 + (let* ((_%self159971%_ + (let ((__obj161402 (let () (declare (not safe)) (##structure gxc#::find-lambda-expression::t)))) - __obj157755)) - (__tmp157788 + __obj161402)) + (__tmp161435 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self156323%_ _%stx156320%_))))) + (gxc#compile-e__1 _%self159971%_ _%stx159968%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp157788 + __tmp161435 gxc#current-compile-method - _%self156323%_)))) + _%self159971%_)))) (define gxc#::count-values::t - (let ((__tmp157790 (list gxc#::false-expression::t)) - (__tmp157789 (cons (cons 'final: '#t) '()))) + (let ((__tmp161437 (list gxc#::false-expression::t)) + (__tmp161436 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::count-values::t '::count-values - __tmp157790 + __tmp161437 '() - __tmp157789 + __tmp161436 '#f))) (define gxc#::count-values? (let () (declare (not safe)) (__make-class-predicate gxc#::count-values::t))) (define gxc#make-::count-values - (lambda _%$args156317%_ - (apply make-instance gxc#::count-values::t _%$args156317%_))) + (lambda _%$args159965%_ + (apply make-instance gxc#::count-values::t _%$args159965%_))) (define gxc#::count-values-bind-methods! - (let ((__tmp157791 + (let ((__tmp161438 (lambda () (force gxc#::false-expression-bind-methods!) (let () @@ -659,33 +659,33 @@ (declare (not safe)) (__seal-class! gxc#::count-values::t))))) (declare (not safe)) - (__make-atomic-promise __tmp157791))) + (__make-atomic-promise __tmp161438))) (define gxc#apply-count-values - (lambda (_%stx156309%_) + (lambda (_%stx159957%_) (force gxc#::count-values-bind-methods!) - (let* ((_%self156312%_ - (let ((__obj157757 + (let* ((_%self159960%_ + (let ((__obj161404 (let () (declare (not safe)) (##structure gxc#::count-values::t)))) - __obj157757)) - (__tmp157792 + __obj161404)) + (__tmp161439 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self156312%_ _%stx156309%_))))) + (gxc#compile-e__1 _%self159960%_ _%stx159957%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp157792 + __tmp161439 gxc#current-compile-method - _%self156312%_)))) + _%self159960%_)))) (define gxc#::generate-runtime-empty::t - (let ((__tmp157793 (list))) + (let ((__tmp161440 (list))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-empty::t '::generate-runtime-empty - __tmp157793 + __tmp161440 '() '() '#f))) @@ -694,10 +694,10 @@ (declare (not safe)) (__make-class-predicate gxc#::generate-runtime-empty::t))) (define gxc#make-::generate-runtime-empty - (lambda _%$args156306%_ - (apply make-instance gxc#::generate-runtime-empty::t _%$args156306%_))) + (lambda _%$args159954%_ + (apply make-instance gxc#::generate-runtime-empty::t _%$args159954%_))) (define gxc#::generate-runtime-empty-bind-methods! - (let ((__tmp157794 + (let ((__tmp161441 (lambda () (let () (declare (not safe)) @@ -892,27 +892,27 @@ '%#struct-unchecked-set! gxc#generate-runtime-empty))))) (declare (not safe)) - (__make-atomic-promise __tmp157794))) + (__make-atomic-promise __tmp161441))) (define gxc#::generate-loader::t - (let ((__tmp157796 (list gxc#::generate-runtime-empty::t)) - (__tmp157795 (cons (cons 'final: '#t) '()))) + (let ((__tmp161443 (list gxc#::generate-runtime-empty::t)) + (__tmp161442 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-loader::t '::generate-loader - __tmp157796 + __tmp161443 '() - __tmp157795 + __tmp161442 '#f))) (define gxc#::generate-loader? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-loader::t))) (define gxc#make-::generate-loader - (lambda _%$args156302%_ - (apply make-instance gxc#::generate-loader::t _%$args156302%_))) + (lambda _%$args159950%_ + (apply make-instance gxc#::generate-loader::t _%$args159950%_))) (define gxc#::generate-loader-bind-methods! - (let ((__tmp157797 + (let ((__tmp161444 (lambda () (force gxc#::generate-runtime-empty-bind-methods!) (let () @@ -931,33 +931,33 @@ (declare (not safe)) (__seal-class! gxc#::generate-loader::t))))) (declare (not safe)) - (__make-atomic-promise __tmp157797))) + (__make-atomic-promise __tmp161444))) (define gxc#apply-generate-loader - (lambda (_%stx156294%_) + (lambda (_%stx159942%_) (force gxc#::generate-loader-bind-methods!) - (let* ((_%self156297%_ - (let ((__obj157760 + (let* ((_%self159945%_ + (let ((__obj161407 (let () (declare (not safe)) (##structure gxc#::generate-loader::t)))) - __obj157760)) - (__tmp157798 + __obj161407)) + (__tmp161445 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self156297%_ _%stx156294%_))))) + (gxc#compile-e__1 _%self159945%_ _%stx159942%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp157798 + __tmp161445 gxc#current-compile-method - _%self156297%_)))) + _%self159945%_)))) (define gxc#::generate-runtime::t - (let ((__tmp157799 (list gxc#::generate-runtime-empty::t))) + (let ((__tmp161446 (list gxc#::generate-runtime-empty::t))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime::t '::generate-runtime - __tmp157799 + __tmp161446 '() '() '#f))) @@ -966,10 +966,10 @@ (declare (not safe)) (__make-class-predicate gxc#::generate-runtime::t))) (define gxc#make-::generate-runtime - (lambda _%$args156291%_ - (apply make-instance gxc#::generate-runtime::t _%$args156291%_))) + (lambda _%$args159939%_ + (apply make-instance gxc#::generate-runtime::t _%$args159939%_))) (define gxc#::generate-runtime-bind-methods! - (let ((__tmp157800 + (let ((__tmp161447 (lambda () (force gxc#::generate-runtime-empty-bind-methods!) (let () @@ -1123,46 +1123,46 @@ '%#struct-unchecked-set! gxc#generate-runtime-struct-unchecked-setq%))))) (declare (not safe)) - (__make-atomic-promise __tmp157800))) + (__make-atomic-promise __tmp161447))) (define gxc#apply-generate-runtime - (lambda (_%stx156283%_) + (lambda (_%stx159931%_) (force gxc#::generate-runtime-bind-methods!) - (let* ((_%self156286%_ - (let ((__obj157762 + (let* ((_%self159934%_ + (let ((__obj161409 (let () (declare (not safe)) (##structure gxc#::generate-runtime::t)))) - __obj157762)) - (__tmp157801 + __obj161409)) + (__tmp161448 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self156286%_ _%stx156283%_))))) + (gxc#compile-e__1 _%self159934%_ _%stx159931%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp157801 + __tmp161448 gxc#current-compile-method - _%self156286%_)))) + _%self159934%_)))) (define gxc#::generate-runtime-phi::t - (let ((__tmp157803 (list gxc#::generate-runtime::t)) - (__tmp157802 (cons (cons 'final: '#t) '()))) + (let ((__tmp161450 (list gxc#::generate-runtime::t)) + (__tmp161449 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-phi::t '::generate-runtime-phi - __tmp157803 + __tmp161450 '() - __tmp157802 + __tmp161449 '#f))) (define gxc#::generate-runtime-phi? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-runtime-phi::t))) (define gxc#make-::generate-runtime-phi - (lambda _%$args156280%_ - (apply make-instance gxc#::generate-runtime-phi::t _%$args156280%_))) + (lambda _%$args159928%_ + (apply make-instance gxc#::generate-runtime-phi::t _%$args159928%_))) (define gxc#::generate-runtime-phi-bind-methods! - (let ((__tmp157804 + (let ((__tmp161451 (lambda () (force gxc#::generate-runtime-bind-methods!) (let () @@ -1175,33 +1175,33 @@ (declare (not safe)) (__seal-class! gxc#::generate-runtime-phi::t))))) (declare (not safe)) - (__make-atomic-promise __tmp157804))) + (__make-atomic-promise __tmp161451))) (define gxc#apply-generate-runtime-phi - (lambda (_%stx156272%_) + (lambda (_%stx159920%_) (force gxc#::generate-runtime-phi-bind-methods!) - (let* ((_%self156275%_ - (let ((__obj157764 + (let* ((_%self159923%_ + (let ((__obj161411 (let () (declare (not safe)) (##structure gxc#::generate-runtime-phi::t)))) - __obj157764)) - (__tmp157805 + __obj161411)) + (__tmp161452 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self156275%_ _%stx156272%_))))) + (gxc#compile-e__1 _%self159923%_ _%stx159920%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp157805 + __tmp161452 gxc#current-compile-method - _%self156275%_)))) + _%self159923%_)))) (define gxc#::collect-expression-refs::t - (let ((__tmp157806 (list))) + (let ((__tmp161453 (list))) (declare (not safe)) (__make-class-type 'gxc#::collect-expression-refs::t '::collect-expression-refs - __tmp157806 + __tmp161453 '(table) '() '#f))) @@ -1210,10 +1210,10 @@ (declare (not safe)) (__make-class-predicate gxc#::collect-expression-refs::t))) (define gxc#make-::collect-expression-refs - (lambda _%$args156269%_ + (lambda _%$args159917%_ (apply make-instance gxc#::collect-expression-refs::t - _%$args156269%_))) + _%$args159917%_))) (define gxc#::collect-expression-refs-table (let () (declare (not safe)) @@ -1235,7 +1235,7 @@ gxc#::collect-expression-refs::t 'table))) (define gxc#::collect-expression-refs-bind-methods! - (let ((__tmp157807 + (let ((__tmp161454 (lambda () (let () (declare (not safe)) @@ -1370,18 +1370,18 @@ '%#struct-unchecked-set! gxc#apply-operands))))) (declare (not safe)) - (__make-atomic-promise __tmp157807))) + (__make-atomic-promise __tmp161454))) (define gxc#apply-collect-expression-refs__% - (lambda (_%@@keywords156243%_ _%table156240156244%_ _%stx156246%_) - (let ((_%table156249%_ - (if (eq? _%table156240156244%_ absent-value) + (lambda (_%@@keywords159892%_ _%table159889159893%_ _%stx159894%_) + (let ((_%table159897%_ + (if (eq? _%table159889159893%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _%table156240156244%_))) + _%table159889159893%_))) (force gxc#::collect-expression-refs-bind-methods!) - (let* ((_%self156251%_ - (let ((__obj157766 + (let* ((_%self159899%_ + (let ((__obj161413 (let () (declare (not safe)) (##structure @@ -1390,57 +1390,57 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157766 - _%table156249%_ + __obj161413 + _%table159897%_ '1 '#f '#f)) - __obj157766)) - (__tmp157808 + __obj161413)) + (__tmp161455 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self156251%_ _%stx156246%_))))) + (gxc#compile-e__1 _%self159899%_ _%stx159894%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp157808 + __tmp161455 gxc#current-compile-method - _%self156251%_))))) + _%self159899%_))))) (define gxc#apply-collect-expression-refs__@ - (lambda (_%@@keywords156258%_ . _%args156259%_) + (lambda (_%@@keywords159906%_ . _%args159907%_) (apply gxc#apply-collect-expression-refs__% - _%@@keywords156258%_ + _%@@keywords159906%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords156258%_ + _%@@keywords159906%_ 'table: absent-value)) - _%args156259%_))) + _%args159907%_))) (define gxc#apply-collect-expression-refs - (lambda _%args156241156265%_ + (lambda _%args159890159913%_ (apply keyword-dispatch '#(table:) gxc#apply-collect-expression-refs__@ - _%args156241156265%_))) + _%args159890159913%_))) (define gxc#::generate-meta::t - (let ((__tmp157810 (list gxc#::void-expression::t)) - (__tmp157809 (cons (cons 'final: '#t) '()))) + (let ((__tmp161457 (list gxc#::void-expression::t)) + (__tmp161456 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-meta::t '::generate-meta - __tmp157810 + __tmp161457 '(state) - __tmp157809 + __tmp161456 '#f))) (define gxc#::generate-meta? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-meta::t))) (define gxc#make-::generate-meta - (lambda _%$args156236%_ - (apply make-instance gxc#::generate-meta::t _%$args156236%_))) + (lambda _%$args159885%_ + (apply make-instance gxc#::generate-meta::t _%$args159885%_))) (define gxc#::generate-meta-state (let () (declare (not safe)) @@ -1458,7 +1458,7 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#::generate-meta::t 'state))) (define gxc#::generate-meta-bind-methods! - (let ((__tmp157811 + (let ((__tmp161458 (lambda () (force gxc#::void-expression-bind-methods!) (let () @@ -1537,74 +1537,74 @@ (declare (not safe)) (__seal-class! gxc#::generate-meta::t))))) (declare (not safe)) - (__make-atomic-promise __tmp157811))) + (__make-atomic-promise __tmp161458))) (define gxc#apply-generate-meta__% - (lambda (_%@@keywords156210%_ _%state156207156211%_ _%stx156213%_) - (let ((_%state156216%_ - (if (eq? _%state156207156211%_ absent-value) + (lambda (_%@@keywords159860%_ _%state159857159861%_ _%stx159862%_) + (let ((_%state159865%_ + (if (eq? _%state159857159861%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _%state156207156211%_))) + _%state159857159861%_))) (force gxc#::generate-meta-bind-methods!) - (let* ((_%self156218%_ - (let ((__obj157768 + (let* ((_%self159867%_ + (let ((__obj161415 (let () (declare (not safe)) (##structure gxc#::generate-meta::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj157768 - _%state156216%_ + __obj161415 + _%state159865%_ '1 '#f '#f)) - __obj157768)) - (__tmp157812 + __obj161415)) + (__tmp161459 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self156218%_ _%stx156213%_))))) + (gxc#compile-e__1 _%self159867%_ _%stx159862%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp157812 + __tmp161459 gxc#current-compile-method - _%self156218%_))))) + _%self159867%_))))) (define gxc#apply-generate-meta__@ - (lambda (_%@@keywords156225%_ . _%args156226%_) + (lambda (_%@@keywords159874%_ . _%args159875%_) (apply gxc#apply-generate-meta__% - _%@@keywords156225%_ + _%@@keywords159874%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords156225%_ + _%@@keywords159874%_ 'state: absent-value)) - _%args156226%_))) + _%args159875%_))) (define gxc#apply-generate-meta - (lambda _%args156208156232%_ + (lambda _%args159858159881%_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta__@ - _%args156208156232%_))) + _%args159858159881%_))) (define gxc#::generate-meta-phi::t - (let ((__tmp157814 (list)) (__tmp157813 (cons (cons 'final: '#t) '()))) + (let ((__tmp161461 (list)) (__tmp161460 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-meta-phi::t '::generate-meta-phi - __tmp157814 + __tmp161461 '(state) - __tmp157813 + __tmp161460 '#f))) (define gxc#::generate-meta-phi? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-meta-phi::t))) (define gxc#make-::generate-meta-phi - (lambda _%$args156203%_ - (apply make-instance gxc#::generate-meta-phi::t _%$args156203%_))) + (lambda _%$args159853%_ + (apply make-instance gxc#::generate-meta-phi::t _%$args159853%_))) (define gxc#::generate-meta-phi-state (let () (declare (not safe)) @@ -1626,7 +1626,7 @@ gxc#::generate-meta-phi::t 'state))) (define gxc#::generate-meta-phi-bind-methods! - (let ((__tmp157815 + (let ((__tmp161462 (lambda () (let () (declare (not safe)) @@ -1794,341 +1794,342 @@ (declare (not safe)) (__seal-class! gxc#::generate-meta-phi::t))))) (declare (not safe)) - (__make-atomic-promise __tmp157815))) + (__make-atomic-promise __tmp161462))) (define gxc#apply-generate-meta-phi__% - (lambda (_%@@keywords156177%_ _%state156174156178%_ _%stx156180%_) - (let ((_%state156183%_ - (if (eq? _%state156174156178%_ absent-value) + (lambda (_%@@keywords159828%_ _%state159825159829%_ _%stx159830%_) + (let ((_%state159833%_ + (if (eq? _%state159825159829%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _%state156174156178%_))) + _%state159825159829%_))) (force gxc#::generate-meta-phi-bind-methods!) - (let* ((_%self156185%_ - (let ((__obj157770 + (let* ((_%self159835%_ + (let ((__obj161417 (let () (declare (not safe)) (##structure gxc#::generate-meta-phi::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj157770 - _%state156183%_ + __obj161417 + _%state159833%_ '1 '#f '#f)) - __obj157770)) - (__tmp157816 + __obj161417)) + (__tmp161463 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self156185%_ _%stx156180%_))))) + (gxc#compile-e__1 _%self159835%_ _%stx159830%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp157816 + __tmp161463 gxc#current-compile-method - _%self156185%_))))) + _%self159835%_))))) (define gxc#apply-generate-meta-phi__@ - (lambda (_%@@keywords156192%_ . _%args156193%_) + (lambda (_%@@keywords159842%_ . _%args159843%_) (apply gxc#apply-generate-meta-phi__% - _%@@keywords156192%_ + _%@@keywords159842%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords156192%_ + _%@@keywords159842%_ 'state: absent-value)) - _%args156193%_))) + _%args159843%_))) (define gxc#apply-generate-meta-phi - (lambda _%args156175156199%_ + (lambda _%args159826159849%_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta-phi__@ - _%args156175156199%_))) + _%args159826159849%_))) (define gxc#collect-bindings-define-values% - (lambda (_%self156103%_ _%stx156104%_) - (let* ((_%g156106156123%_ - (lambda (_%g156107156120%_) + (lambda (_%self159754%_ _%stx159755%_) + (let* ((_%g159757159774%_ + (lambda (_%g159758159771%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g156107156120%_)))) - (_%g156105156170%_ - (lambda (_%g156107156126%_) + _%g159758159771%_)))) + (_%g159756159821%_ + (lambda (_%g159758159777%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g156107156126%_)) - (let ((_%e156110156128%_ + (gx#stx-pair? _%g159758159777%_)) + (let ((_%e159761159779%_ (let () (declare (not safe)) - (gx#stx-e _%g156107156126%_)))) - (let ((_%hd156111156131%_ + (gx#stx-e _%g159758159777%_)))) + (let ((_%hd159762159782%_ (let () (declare (not safe)) - (##car _%e156110156128%_))) - (_%tl156112156133%_ + (##car _%e159761159779%_))) + (_%tl159763159784%_ (let () (declare (not safe)) - (##cdr _%e156110156128%_)))) + (##cdr _%e159761159779%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156112156133%_)) - (let ((_%e156113156136%_ + (gx#stx-pair? _%tl159763159784%_)) + (let ((_%e159764159787%_ (let () (declare (not safe)) - (gx#stx-e _%tl156112156133%_)))) - (let ((_%hd156114156139%_ + (gx#stx-e _%tl159763159784%_)))) + (let ((_%hd159765159790%_ (let () (declare (not safe)) - (##car _%e156113156136%_))) - (_%tl156115156141%_ + (##car _%e159764159787%_))) + (_%tl159766159792%_ (let () (declare (not safe)) - (##cdr _%e156113156136%_)))) + (##cdr _%e159764159787%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156115156141%_)) - (let ((_%e156116156144%_ + (gx#stx-pair? _%tl159766159792%_)) + (let ((_%e159767159795%_ (let () (declare (not safe)) - (gx#stx-e _%tl156115156141%_)))) - (let ((_%hd156117156147%_ + (gx#stx-e _%tl159766159792%_)))) + (let ((_%hd159768159798%_ (let () (declare (not safe)) - (##car _%e156116156144%_))) - (_%tl156118156149%_ + (##car _%e159767159795%_))) + (_%tl159769159800%_ (let () (declare (not safe)) - (##cdr _%e156116156144%_)))) + (##cdr _%e159767159795%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156118156149%_)) - ((lambda (_%L156152%_ - _%L156153%_) - (let ((__tmp157817 - (lambda (_%bind156168%_) + _%tl159769159800%_)) + ((lambda (_%g159759159803%_ + _%g159760159804%_) + (let ((__tmp161464 + (lambda (_%bind159819%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#identifier? _%bind156168%_)) - (gxc#add-module-binding! _%bind156168%_ '#f) + (gx#identifier? _%bind159819%_)) + (gxc#add-module-binding! _%bind159819%_ '#f) '#!void)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#stx-for-each1 - __tmp157817 - _%L156153%_))) - _%hd156117156147%_ - _%hd156114156139%_) - (_%g156106156123%_ - _%g156107156126%_)))) - (_%g156106156123%_ _%g156107156126%_)))) - (_%g156106156123%_ _%g156107156126%_)))) - (_%g156106156123%_ _%g156107156126%_))))) - (_%g156105156170%_ _%stx156104%_)))) + __tmp161464 + _%g159760159804%_))) + _%hd159768159798%_ + _%hd159765159790%_) + (_%g159757159774%_ + _%g159758159777%_)))) + (_%g159757159774%_ _%g159758159777%_)))) + (_%g159757159774%_ _%g159758159777%_)))) + (_%g159757159774%_ _%g159758159777%_))))) + (_%g159756159821%_ _%stx159755%_)))) (define gxc#collect-bindings-define-syntax% - (lambda (_%self156035%_ _%stx156036%_) - (let* ((_%g156038156055%_ - (lambda (_%g156039156052%_) + (lambda (_%self159686%_ _%stx159687%_) + (let* ((_%g159689159706%_ + (lambda (_%g159690159703%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g156039156052%_)))) - (_%g156037156100%_ - (lambda (_%g156039156058%_) + _%g159690159703%_)))) + (_%g159688159751%_ + (lambda (_%g159690159709%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g156039156058%_)) - (let ((_%e156042156060%_ + (gx#stx-pair? _%g159690159709%_)) + (let ((_%e159693159711%_ (let () (declare (not safe)) - (gx#stx-e _%g156039156058%_)))) - (let ((_%hd156043156063%_ + (gx#stx-e _%g159690159709%_)))) + (let ((_%hd159694159714%_ (let () (declare (not safe)) - (##car _%e156042156060%_))) - (_%tl156044156065%_ + (##car _%e159693159711%_))) + (_%tl159695159716%_ (let () (declare (not safe)) - (##cdr _%e156042156060%_)))) + (##cdr _%e159693159711%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156044156065%_)) - (let ((_%e156045156068%_ + (gx#stx-pair? _%tl159695159716%_)) + (let ((_%e159696159719%_ (let () (declare (not safe)) - (gx#stx-e _%tl156044156065%_)))) - (let ((_%hd156046156071%_ + (gx#stx-e _%tl159695159716%_)))) + (let ((_%hd159697159722%_ (let () (declare (not safe)) - (##car _%e156045156068%_))) - (_%tl156047156073%_ + (##car _%e159696159719%_))) + (_%tl159698159724%_ (let () (declare (not safe)) - (##cdr _%e156045156068%_)))) + (##cdr _%e159696159719%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156047156073%_)) - (let ((_%e156048156076%_ + (gx#stx-pair? _%tl159698159724%_)) + (let ((_%e159699159727%_ (let () (declare (not safe)) - (gx#stx-e _%tl156047156073%_)))) - (let ((_%hd156049156079%_ + (gx#stx-e _%tl159698159724%_)))) + (let ((_%hd159700159730%_ (let () (declare (not safe)) - (##car _%e156048156076%_))) - (_%tl156050156081%_ + (##car _%e159699159727%_))) + (_%tl159701159732%_ (let () (declare (not safe)) - (##cdr _%e156048156076%_)))) + (##cdr _%e159699159727%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156050156081%_)) - ((lambda (_%L156084%_ - _%L156085%_) + _%tl159701159732%_)) + ((lambda (_%g159691159735%_ + _%g159692159736%_) (gxc#add-module-binding! - _%L156085%_ + _%g159692159736%_ '#t)) - _%hd156049156079%_ - _%hd156046156071%_) - (_%g156038156055%_ - _%g156039156058%_)))) - (_%g156038156055%_ _%g156039156058%_)))) - (_%g156038156055%_ _%g156039156058%_)))) - (_%g156038156055%_ _%g156039156058%_))))) - (_%g156037156100%_ _%stx156036%_)))) + _%hd159700159730%_ + _%hd159697159722%_) + (_%g159689159706%_ + _%g159690159709%_)))) + (_%g159689159706%_ _%g159690159709%_)))) + (_%g159689159706%_ _%g159690159709%_)))) + (_%g159689159706%_ _%g159690159709%_))))) + (_%g159688159751%_ _%stx159687%_)))) (define gxc#lift-modules-module% - (lambda (_%self155977%_ _%stx155978%_) - (let* ((_%g155980155994%_ - (lambda (_%g155981155991%_) + (lambda (_%self159628%_ _%stx159629%_) + (let* ((_%g159631159645%_ + (lambda (_%g159632159642%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g155981155991%_)))) - (_%g155979156032%_ - (lambda (_%g155981155997%_) + _%g159632159642%_)))) + (_%g159630159683%_ + (lambda (_%g159632159648%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g155981155997%_)) - (let ((_%e155984155999%_ + (gx#stx-pair? _%g159632159648%_)) + (let ((_%e159635159650%_ (let () (declare (not safe)) - (gx#stx-e _%g155981155997%_)))) - (let ((_%hd155985156002%_ + (gx#stx-e _%g159632159648%_)))) + (let ((_%hd159636159653%_ (let () (declare (not safe)) - (##car _%e155984155999%_))) - (_%tl155986156004%_ + (##car _%e159635159650%_))) + (_%tl159637159655%_ (let () (declare (not safe)) - (##cdr _%e155984155999%_)))) + (##cdr _%e159635159650%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155986156004%_)) - (let ((_%e155987156007%_ + (gx#stx-pair? _%tl159637159655%_)) + (let ((_%e159638159658%_ (let () (declare (not safe)) - (gx#stx-e _%tl155986156004%_)))) - (let ((_%hd155988156010%_ + (gx#stx-e _%tl159637159655%_)))) + (let ((_%hd159639159661%_ (let () (declare (not safe)) - (##car _%e155987156007%_))) - (_%tl155989156012%_ + (##car _%e159638159658%_))) + (_%tl159640159663%_ (let () (declare (not safe)) - (##cdr _%e155987156007%_)))) - ((lambda (_%L156015%_ _%L156016%_) - (let ((_%ctx156029%_ + (##cdr _%e159638159658%_)))) + ((lambda (_%g159633159666%_ + _%g159634159667%_) + (let ((_%ctx159680%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L156016%_)))) + _%g159634159667%_)))) (set-box! (let () (declare (not safe)) (slot-ref__0 - _%self155977%_ + _%self159628%_ 'modules)) - (cons _%ctx156029%_ + (cons _%ctx159680%_ (unbox (let () (declare (not safe)) (slot-ref__0 - _%self155977%_ + _%self159628%_ 'modules))))) - (let ((__tmp157818 + (let ((__tmp161465 (lambda () - (let ((__tmp157819 + (let ((__tmp161466 (##structure-ref - _%ctx156029%_ + _%ctx159680%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _%self155977%_ - __tmp157819))))) + _%self159628%_ + __tmp161466))))) (declare (not safe)) (call-with-parameters__1 - __tmp157818 + __tmp161465 gx#current-expander-context - _%ctx156029%_)))) - _%tl155989156012%_ - _%hd155988156010%_))) - (_%g155980155994%_ _%g155981155997%_)))) - (_%g155980155994%_ _%g155981155997%_))))) - (_%g155979156032%_ _%stx155978%_)))) + _%ctx159680%_)))) + _%tl159640159663%_ + _%hd159639159661%_))) + (_%g159631159645%_ _%g159632159648%_)))) + (_%g159631159645%_ _%g159632159648%_))))) + (_%g159630159683%_ _%stx159629%_)))) (define gxc#current-compile-decls-unsafe? (lambda () - (let ((_%decls155930155932%_ + (let ((_%decls159582159584%_ (let () (declare (not safe)) (gxc#current-compile-decls)))) - (if _%decls155930155932%_ - (let ((_%decls155935%_ _%decls155930155932%_)) - (let _%lp155937%_ ((_%rest155939%_ _%decls155935%_)) - (let* ((_%rest155940155948%_ _%rest155939%_) - (_%else155942155956%_ (lambda () '#f)) - (_%K155944155965%_ - (lambda (_%decls155959%_ _%decl155960%_) - (if (equal? _%decl155960%_ '(not safe)) + (if _%decls159582159584%_ + (let ((_%decls159586%_ _%decls159582159584%_)) + (let _%lp159588%_ ((_%rest159590%_ _%decls159586%_)) + (let* ((_%rest159591159599%_ _%rest159590%_) + (_%else159593159607%_ (lambda () '#f)) + (_%K159595159616%_ + (lambda (_%decls159610%_ _%decl159611%_) + (if (equal? _%decl159611%_ '(not safe)) '#t - (if (equal? _%decl155960%_ '(safe)) + (if (equal? _%decl159611%_ '(safe)) '#f - (_%lp155937%_ _%decls155959%_)))))) - (if (pair? _%rest155940155948%_) - (let ((_%hd155945155968%_ + (_%lp159588%_ _%decls159610%_)))))) + (if (pair? _%rest159591159599%_) + (let ((_%hd159596159619%_ (let () (declare (not safe)) - (##car _%rest155940155948%_))) - (_%tl155946155970%_ + (##car _%rest159591159599%_))) + (_%tl159597159621%_ (let () (declare (not safe)) - (##cdr _%rest155940155948%_)))) - (let* ((_%decl155973%_ _%hd155945155968%_) - (_%decls155975%_ _%tl155946155970%_)) - (_%K155944155965%_ - _%decls155975%_ - _%decl155973%_))) - (_%else155942155956%_))))) + (##cdr _%rest159591159599%_)))) + (let* ((_%decl159624%_ _%hd159596159619%_) + (_%decls159626%_ _%tl159597159621%_)) + (_%K159595159616%_ + _%decls159626%_ + _%decl159624%_))) + (_%else159593159607%_))))) '#f)))) (define gxc#add-module-binding! - (lambda (_%id155924%_ _%syntax?155925%_) - (let ((_%eid155927%_ + (lambda (_%id159576%_ _%syntax?159577%_) + (let ((_%eid159579%_ (##structure-ref (let () (declare (not safe)) - (gx#resolve-identifier__0 _%id155924%_)) + (gx#resolve-identifier__0 _%id159576%_)) '1 gx#binding::t '#f)) - (_%ht155928%_ + (_%ht159580%_ (##structure-ref (let () (declare (not safe)) @@ -2136,780 +2137,790 @@ '2 gxc#symbol-table::t '#f))) - (if (let () (declare (not safe)) (interned-symbol? _%eid155927%_)) + (if (let () (declare (not safe)) (interned-symbol? _%eid159579%_)) '#!void - (let ((__tmp157820 - (let ((__tmp157821 + (let ((__tmp161467 + (let ((__tmp161468 (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%eid155927%_)))) + _%eid159579%_)))) (declare (not safe)) - (gx#make-binding-id__1 __tmp157821 _%syntax?155925%_)))) + (gx#make-binding-id__1 __tmp161468 _%syntax?159577%_)))) (declare (not safe)) - (hash-put! _%ht155928%_ _%eid155927%_ __tmp157820)))))) + (hash-put! _%ht159580%_ _%eid159579%_ __tmp161467)))))) (define gxc#generate-runtime-identifier - (lambda (_%id155922%_) + (lambda (_%id159574%_) (gxc#generate-runtime-identifier-key - (let () (declare (not safe)) (gx#core-identifier-key _%id155922%_))))) + (let () (declare (not safe)) (gx#core-identifier-key _%id159574%_))))) (define gxc#generate-runtime-identifier-key - (lambda (_%key155877%_) - (if (let () (declare (not safe)) (interned-symbol? _%key155877%_)) - _%key155877%_ - (if (uninterned-symbol? _%key155877%_) + (lambda (_%key159529%_) + (if (let () (declare (not safe)) (interned-symbol? _%key159529%_)) + _%key159529%_ + (if (uninterned-symbol? _%key159529%_) (let () (declare (not safe)) - (gxc#generate-runtime-gensym-reference__0 _%key155877%_)) - (let* ((_%key155881155888%_ _%key155877%_) - (_%E155883155892%_ + (gxc#generate-runtime-gensym-reference__0 _%key159529%_)) + (let* ((_%key159533159540%_ _%key159529%_) + (_%E159535159544%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%key155881155888%_ + _%key159533159540%_ '([eid . mark]))) '#!void)) - (_%K155884155910%_ - (lambda (_%mark155895%_ _%eid155896%_) - (let ((_%$e155898%_ + (_%K159536159562%_ + (lambda (_%mark159547%_ _%eid159548%_) + (let ((_%$e159550%_ (##structure-ref - _%mark155895%_ + _%mark159547%_ '1 gx#expander-mark::t '#f))) - (if _%$e155898%_ - ((lambda (_%ht155901%_) - (let ((_%$e155903%_ + (if _%$e159550%_ + ((lambda (_%ht159553%_) + (let ((_%$e159555%_ (let () (declare (not safe)) (hash-get - _%ht155901%_ - _%eid155896%_)))) - (if _%$e155903%_ - ((lambda (_%id155906%_) + _%ht159553%_ + _%eid159548%_)))) + (if _%$e159555%_ + ((lambda (_%id159558%_) (if (let () (declare (not safe)) (interned-symbol? - _%id155906%_)) - _%id155906%_ + _%id159558%_)) + _%id159558%_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%id155906%_)))) - _%$e155903%_) + _%id159558%_)))) + _%$e159555%_) (gxc#generate-runtime-identifier-key - _%eid155896%_)))) - _%$e155898%_) + _%eid159548%_)))) + _%$e159550%_) (gxc#generate-runtime-identifier-key - _%eid155896%_)))))) - (if (pair? _%key155881155888%_) - (let ((_%hd155885155913%_ + _%eid159548%_)))))) + (if (pair? _%key159533159540%_) + (let ((_%hd159537159565%_ (let () (declare (not safe)) - (##car _%key155881155888%_))) - (_%tl155886155915%_ + (##car _%key159533159540%_))) + (_%tl159538159567%_ (let () (declare (not safe)) - (##cdr _%key155881155888%_)))) - (let* ((_%eid155918%_ _%hd155885155913%_) - (_%mark155920%_ _%tl155886155915%_)) - (_%K155884155910%_ _%mark155920%_ _%eid155918%_))) - (_%E155883155892%_))))))) + (##cdr _%key159533159540%_)))) + (let* ((_%eid159570%_ _%hd159537159565%_) + (_%mark159572%_ _%tl159538159567%_)) + (_%K159536159562%_ _%mark159572%_ _%eid159570%_))) + (_%E159535159544%_))))))) (define gxc#generate-runtime-empty - (lambda (_%self155874%_ _%stx155875%_) '(begin))) + (lambda (_%self159526%_ _%stx159527%_) '(begin))) (define gxc#generate-runtime-begin% - (lambda (_%self155721%_ _%stx155722%_) - (letrec ((_%simplify155724%_ - (lambda (_%body155772%_) - (let _%lp155774%_ ((_%rest155776%_ _%body155772%_) - (_%r155777%_ '())) - (let* ((_%rest155778155786%_ _%rest155776%_) - (_%else155780155794%_ - (lambda () (reverse _%r155777%_))) - (_%K155782155862%_ - (lambda (_%rest155797%_ _%hd155798%_) - (let* ((_%hd155799155815%_ _%hd155798%_) - (_%else155803155823%_ + (lambda (_%self159373%_ _%stx159374%_) + (letrec ((_%simplify159376%_ + (lambda (_%body159424%_) + (let _%lp159426%_ ((_%rest159428%_ _%body159424%_) + (_%r159429%_ '())) + (let* ((_%rest159430159438%_ _%rest159428%_) + (_%else159432159446%_ + (lambda () (reverse _%r159429%_))) + (_%K159434159514%_ + (lambda (_%rest159449%_ _%hd159450%_) + (let* ((_%hd159451159467%_ _%hd159450%_) + (_%else159455159475%_ (lambda () - (_%lp155774%_ - _%rest155797%_ - (cons _%hd155798%_ _%r155777%_))))) - (let ((_%K155811155852%_ - (lambda (_%exprs155850%_) - (_%lp155774%_ + (_%lp159426%_ + _%rest159449%_ + (cons _%hd159450%_ _%r159429%_))))) + (let ((_%K159463159504%_ + (lambda (_%exprs159502%_) + (_%lp159426%_ (let () (declare (not safe)) (__foldr1 cons - _%rest155797%_ - _%exprs155850%_)) - _%r155777%_))) - (_%K155806155836%_ + _%rest159449%_ + _%exprs159502%_)) + _%r159429%_))) + (_%K159458159488%_ (lambda () - (if (null? _%rest155797%_) - (_%lp155774%_ - _%rest155797%_ - (cons _%hd155798%_ - _%r155777%_)) - (_%lp155774%_ - _%rest155797%_ - _%r155777%_)))) - (_%K155805155828%_ + (if (null? _%rest159449%_) + (_%lp159426%_ + _%rest159449%_ + (cons _%hd159450%_ + _%r159429%_)) + (_%lp159426%_ + _%rest159449%_ + _%r159429%_)))) + (_%K159457159480%_ (lambda () - (if (null? _%rest155797%_) - (_%lp155774%_ - _%rest155797%_ - (cons _%hd155798%_ - _%r155777%_)) - (_%lp155774%_ - _%rest155797%_ - _%r155777%_))))) - (let ((_%try-match155802155831%_ + (if (null? _%rest159449%_) + (_%lp159426%_ + _%rest159449%_ + (cons _%hd159450%_ + _%r159429%_)) + (_%lp159426%_ + _%rest159449%_ + _%r159429%_))))) + (let ((_%try-match159454159483%_ (lambda () - (if (symbol? _%hd155799155815%_) - (_%K155805155828%_) - (_%else155803155823%_))))) - (if (pair? _%hd155799155815%_) - (let ((_%tl155813155857%_ + (if (symbol? _%hd159451159467%_) + (_%K159457159480%_) + (_%else159455159475%_))))) + (if (pair? _%hd159451159467%_) + (let ((_%tl159465159509%_ (let () (declare (not safe)) - (##cdr _%hd155799155815%_))) - (_%hd155812155855%_ + (##cdr _%hd159451159467%_))) + (_%hd159464159507%_ (let () (declare (not safe)) - (##car _%hd155799155815%_)))) + (##car _%hd159451159467%_)))) (if (let () (declare (not safe)) - (##eq? _%hd155812155855%_ + (##eq? _%hd159464159507%_ 'begin)) - (let ((_%exprs155860%_ - _%tl155813155857%_)) - (_%K155811155852%_ - _%exprs155860%_)) + (let ((_%exprs159512%_ + _%tl159465159509%_)) + (_%K159463159504%_ + _%exprs159512%_)) (if (let () (declare (not safe)) - (##eq? _%hd155812155855%_ + (##eq? _%hd159464159507%_ 'quote)) - (if (pair? _%tl155813155857%_) - (let ((_%tl155810155844%_ + (if (pair? _%tl159465159509%_) + (let ((_%tl159462159496%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%tl155813155857%_)))) - (if (null? _%tl155810155844%_) - (_%K155806155836%_) - (_%try-match155802155831%_))) - (_%try-match155802155831%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%try-match155802155831%_)))) - (_%try-match155802155831%_)))))))) - (if (pair? _%rest155778155786%_) - (let ((_%hd155783155865%_ + (##cdr _%tl159465159509%_)))) + (if (null? _%tl159462159496%_) + (_%K159458159488%_) + (_%try-match159454159483%_))) + (_%try-match159454159483%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%try-match159454159483%_)))) + (_%try-match159454159483%_)))))))) + (if (pair? _%rest159430159438%_) + (let ((_%hd159435159517%_ (let () (declare (not safe)) - (##car _%rest155778155786%_))) - (_%tl155784155867%_ + (##car _%rest159430159438%_))) + (_%tl159436159519%_ (let () (declare (not safe)) - (##cdr _%rest155778155786%_)))) - (let* ((_%hd155870%_ _%hd155783155865%_) - (_%rest155872%_ _%tl155784155867%_)) - (_%K155782155862%_ - _%rest155872%_ - _%hd155870%_))) - (_%else155780155794%_))))))) - (let* ((_%g155726155736%_ - (lambda (_%g155727155733%_) + (##cdr _%rest159430159438%_)))) + (let* ((_%hd159522%_ _%hd159435159517%_) + (_%rest159524%_ _%tl159436159519%_)) + (_%K159434159514%_ + _%rest159524%_ + _%hd159522%_))) + (_%else159432159446%_))))))) + (let* ((_%g159378159388%_ + (lambda (_%g159379159385%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g155727155733%_)))) - (_%g155725155769%_ - (lambda (_%g155727155739%_) + _%g159379159385%_)))) + (_%g159377159421%_ + (lambda (_%g159379159391%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g155727155739%_)) - (let ((_%e155729155741%_ + (gx#stx-pair? _%g159379159391%_)) + (let ((_%e159381159393%_ (let () (declare (not safe)) - (gx#stx-e _%g155727155739%_)))) - (let ((_%hd155730155744%_ + (gx#stx-e _%g159379159391%_)))) + (let ((_%hd159382159396%_ (let () (declare (not safe)) - (##car _%e155729155741%_))) - (_%tl155731155746%_ + (##car _%e159381159393%_))) + (_%tl159383159398%_ (let () (declare (not safe)) - (##cdr _%e155729155741%_)))) - ((lambda (_%L155749%_) - (let* ((_%body155764%_ - (map (lambda (_%g155759155761%_) + (##cdr _%e159381159393%_)))) + ((lambda (_%g159380159401%_) + (let* ((_%body159416%_ + (map (lambda (_%g159411159413%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self155721%_ - _%g155759155761%_))) - _%L155749%_)) - (_%body155766%_ - (_%simplify155724%_ _%body155764%_))) - (if (let ((__tmp157822 - (length _%body155766%_))) + _%self159373%_ + _%g159411159413%_))) + _%g159380159401%_)) + (_%body159418%_ + (_%simplify159376%_ _%body159416%_))) + (if (let ((__tmp161469 + (length _%body159418%_))) (declare (not safe)) - (##fx= __tmp157822 '1)) - (car _%body155766%_) - (cons 'begin _%body155766%_)))) - _%tl155731155746%_))) - (_%g155726155736%_ _%g155727155739%_))))) - (_%g155725155769%_ _%stx155722%_))))) + (##fx= __tmp161469 '1)) + (car _%body159418%_) + (cons 'begin _%body159418%_)))) + _%tl159383159398%_))) + (_%g159378159388%_ _%g159379159391%_))))) + (_%g159377159421%_ _%stx159374%_))))) (define gxc#generate-runtime-begin-foreign% - (lambda (_%self155682%_ _%stx155683%_) - (let* ((_%g155685155695%_ - (lambda (_%g155686155692%_) + (lambda (_%self159334%_ _%stx159335%_) + (let* ((_%g159337159347%_ + (lambda (_%g159338159344%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g155686155692%_)))) - (_%g155684155718%_ - (lambda (_%g155686155698%_) + _%g159338159344%_)))) + (_%g159336159370%_ + (lambda (_%g159338159350%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g155686155698%_)) - (let ((_%e155688155700%_ + (gx#stx-pair? _%g159338159350%_)) + (let ((_%e159340159352%_ (let () (declare (not safe)) - (gx#stx-e _%g155686155698%_)))) - (let ((_%hd155689155703%_ + (gx#stx-e _%g159338159350%_)))) + (let ((_%hd159341159355%_ (let () (declare (not safe)) - (##car _%e155688155700%_))) - (_%tl155690155705%_ + (##car _%e159340159352%_))) + (_%tl159342159357%_ (let () (declare (not safe)) - (##cdr _%e155688155700%_)))) - ((lambda (_%L155708%_) + (##cdr _%e159340159352%_)))) + ((lambda (_%g159339159360%_) (cons 'begin (let () (declare (not safe)) - (gx#syntax->datum _%L155708%_)))) - _%tl155690155705%_))) - (_%g155685155695%_ _%g155686155698%_))))) - (_%g155684155718%_ _%stx155683%_)))) + (gx#syntax->datum _%g159339159360%_)))) + _%tl159342159357%_))) + (_%g159337159347%_ _%g159338159350%_))))) + (_%g159336159370%_ _%stx159335%_)))) (define gxc#generate-runtime-begin-annotation% - (lambda (_%self155446%_ _%stx155447%_) - (let* ((_%__stx156412156413%_ _%stx155447%_) - (_%g155451155503%_ + (lambda (_%self159100%_ _%stx159101%_) + (let* ((_%__stx160059160060%_ _%stx159101%_) + (_%g159105159157%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx156412156413%_))))) - (let ((_%__kont156414156415%_ - (lambda (_%L155664%_ _%L155665%_) + _%__stx160059160060%_))))) + (let ((_%__kont160061160062%_ + (lambda (_%g159107159316%_ _%g159108159317%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self155446%_ _%L155664%_)))) - (_%__kont156416156417%_ - (lambda (_%L155612%_ _%L155613%_ _%L155614%_) - (if (let ((__tmp157823 + (gxc#compile-e__1 _%self159100%_ _%g159107159316%_)))) + (_%__kont160063160064%_ + (lambda (_%g159118159264%_ + _%g159119159265%_ + _%g159120159266%_) + (if (let ((__tmp161470 (let () (declare (not safe)) - (gx#stx-e _%L155614%_)))) + (gx#stx-e _%g159120159266%_)))) (declare (not safe)) - (##memq __tmp157823 '(@inline))) + (##memq __tmp161470 '(@inline))) '(begin) (let () (declare (not safe)) - (gxc#compile-e__1 _%self155446%_ _%L155612%_))))) - (_%__kont156420156421%_ - (lambda (_%L155532%_ _%L155533%_) - (let ((_%decls155548%_ (map gx#syntax->datum _%L155533%_))) - (let ((__tmp157826 + (gxc#compile-e__1 + _%self159100%_ + _%g159118159264%_))))) + (_%__kont160067160068%_ + (lambda (_%g159142159186%_ _%g159143159187%_) + (let ((_%decls159202%_ + (map gx#syntax->datum _%g159143159187%_))) + (let ((__tmp161473 (lambda () (cons 'begin - (cons (cons 'declare _%decls155548%_) + (cons (cons 'declare _%decls159202%_) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self155446%_ - _%L155532%_)) + _%self159100%_ + _%g159142159186%_)) '()))))) - (__tmp157824 - (let ((__tmp157825 + (__tmp161471 + (let ((__tmp161472 (let () (declare (not safe)) (gxc#current-compile-decls)))) (declare (not safe)) - (__foldr1 cons __tmp157825 _%decls155548%_)))) + (__foldr1 cons __tmp161472 _%decls159202%_)))) (declare (not safe)) (call-with-parameters__1 - __tmp157826 + __tmp161473 gxc#current-compile-decls - __tmp157824)))))) - (let* ((_%__match156467156468%_ - (lambda (_%e155467155556%_ - _%hd155468155559%_ - _%tl155469155561%_ - _%e155470155564%_ - _%hd155471155567%_ - _%tl155472155569%_ - _%e155473155572%_ - _%hd155474155575%_ - _%tl155475155577%_ - _%__splice156418156419%_ - _%target155476155580%_ - _%tl155478155582%_) - (letrec ((_%loop155479155585%_ - (lambda (_%hd155477155588%_ - _%param155483155590%_) + __tmp161471)))))) + (let* ((_%__match160114160115%_ + (lambda (_%e159121159210%_ + _%hd159122159213%_ + _%tl159123159215%_ + _%e159124159218%_ + _%hd159125159221%_ + _%tl159126159223%_ + _%e159127159226%_ + _%hd159128159229%_ + _%tl159129159231%_ + _%__splice160065160066%_ + _%target159130159234%_ + _%tl159132159236%_) + (letrec ((_%loop159133159239%_ + (lambda (_%hd159131159242%_ + _%param159137159244%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155477155588%_)) - (let ((_%e155480155593%_ + (gx#stx-pair? _%hd159131159242%_)) + (let ((_%e159134159246%_ (let () (declare (not safe)) - (gx#stx-e _%hd155477155588%_)))) - (let ((_%lp-tl155482155598%_ + (gx#stx-e _%hd159131159242%_)))) + (let ((_%lp-tl159136159251%_ (let () (declare (not safe)) - (##cdr _%e155480155593%_))) - (_%lp-hd155481155596%_ + (##cdr _%e159134159246%_))) + (_%lp-hd159135159249%_ (let () (declare (not safe)) - (##car _%e155480155593%_)))) - (_%loop155479155585%_ - _%lp-tl155482155598%_ - (cons _%lp-hd155481155596%_ - _%param155483155590%_)))) - (let ((_%param155484155601%_ - (reverse _%param155483155590%_))) + (##car _%e159134159246%_)))) + (_%loop159133159239%_ + _%lp-tl159136159251%_ + (cons _%lp-hd159135159249%_ + _%param159137159244%_)))) + (let ((_%param159138159254%_ + (reverse _%param159137159244%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155472155569%_)) - (let ((_%e155485155604%_ + _%tl159126159223%_)) + (let ((_%e159139159256%_ (let () (declare (not safe)) (gx#stx-e - _%tl155472155569%_)))) - (let ((_%tl155487155609%_ + _%tl159126159223%_)))) + (let ((_%tl159141159261%_ (let () (declare (not safe)) - (##cdr _%e155485155604%_))) - (_%hd155486155607%_ + (##cdr _%e159139159256%_))) + (_%hd159140159259%_ (let () (declare (not safe)) - (##car _%e155485155604%_)))) + (##car _%e159139159256%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155487155609%_)) - (let ((_%L155612%_ - _%hd155486155607%_) - (_%L155613%_ - _%param155484155601%_) - (_%L155614%_ - _%hd155474155575%_)) + _%tl159141159261%_)) + (let ((_%g159118159264%_ + _%hd159140159259%_) + (_%g159119159265%_ + _%param159138159254%_) + (_%g159120159266%_ + _%hd159128159229%_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _%L155614%_)) - (not (let ((__tmp157827 + (gx#identifier? _%g159120159266%_)) + (not (let ((__tmp161474 (let () (declare (not safe)) - (gx#stx-e _%L155614%_)))) + (gx#stx-e _%g159120159266%_)))) (declare (not safe)) - (##memq __tmp157827 gxc#gambit-annotations)))) - (_%__kont156416156417%_ _%L155612%_ _%L155613%_ _%L155614%_) - (_%__kont156420156421%_ - _%hd155486155607%_ - _%hd155471155567%_))) + (##memq __tmp161474 gxc#gambit-annotations)))) + (_%__kont160063160064%_ + _%g159118159264%_ + _%g159119159265%_ + _%g159120159266%_) + (_%__kont160067160068%_ + _%hd159140159259%_ + _%hd159125159221%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g155451155503%_))))) + (_%g159105159157%_))))) (let () (declare (not safe)) - (_%g155451155503%_)))))))) - (_%loop155479155585%_ _%target155476155580%_ '())))) - (_%__match156441156442%_ - (lambda (_%e155455155640%_ - _%hd155456155643%_ - _%tl155457155645%_ - _%e155458155648%_ - _%hd155459155651%_ - _%tl155460155653%_ - _%e155461155656%_ - _%hd155462155659%_ - _%tl155463155661%_) - (let ((_%L155664%_ _%hd155462155659%_) - (_%L155665%_ _%hd155459155651%_)) + (_%g159105159157%_)))))))) + (_%loop159133159239%_ _%target159130159234%_ '())))) + (_%__match160088160089%_ + (lambda (_%e159109159292%_ + _%hd159110159295%_ + _%tl159111159297%_ + _%e159112159300%_ + _%hd159113159303%_ + _%tl159114159305%_ + _%e159115159308%_ + _%hd159116159311%_ + _%tl159117159313%_) + (let ((_%g159107159316%_ _%hd159116159311%_) + (_%g159108159317%_ _%hd159113159303%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L155665%_)) - (_%__kont156414156415%_ _%L155664%_ _%L155665%_) + (gx#identifier? _%g159108159317%_)) + (_%__kont160061160062%_ + _%g159107159316%_ + _%g159108159317%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155459155651%_)) - (let ((_%e155473155572%_ + (gx#stx-pair? _%hd159113159303%_)) + (let ((_%e159127159226%_ (let () (declare (not safe)) - (gx#stx-e _%hd155459155651%_)))) - (let ((_%tl155475155577%_ + (gx#stx-e _%hd159113159303%_)))) + (let ((_%tl159129159231%_ (let () (declare (not safe)) - (##cdr _%e155473155572%_))) - (_%hd155474155575%_ + (##cdr _%e159127159226%_))) + (_%hd159128159229%_ (let () (declare (not safe)) - (##car _%e155473155572%_)))) + (##car _%e159127159226%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl155475155577%_)) - (let ((_%__splice156418156419%_ + _%tl159129159231%_)) + (let ((_%__splice160065160066%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl155475155577%_ + _%tl159129159231%_ '0)))) - (let ((_%tl155478155582%_ + (let ((_%tl159132159236%_ (let () (declare (not safe)) (##vector-ref - _%__splice156418156419%_ + _%__splice160065160066%_ '1))) - (_%target155476155580%_ + (_%target159130159234%_ (let () (declare (not safe)) (##vector-ref - _%__splice156418156419%_ + _%__splice160065160066%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155478155582%_)) - (_%__match156467156468%_ - _%e155455155640%_ - _%hd155456155643%_ - _%tl155457155645%_ - _%e155458155648%_ - _%hd155459155651%_ - _%tl155460155653%_ - _%e155473155572%_ - _%hd155474155575%_ - _%tl155475155577%_ - _%__splice156418156419%_ - _%target155476155580%_ - _%tl155478155582%_) - (_%__kont156420156421%_ - _%hd155462155659%_ - _%hd155459155651%_)))) - (_%__kont156420156421%_ - _%hd155462155659%_ - _%hd155459155651%_)))) - (_%__kont156420156421%_ - _%hd155462155659%_ - _%hd155459155651%_))))))) + _%tl159132159236%_)) + (_%__match160114160115%_ + _%e159109159292%_ + _%hd159110159295%_ + _%tl159111159297%_ + _%e159112159300%_ + _%hd159113159303%_ + _%tl159114159305%_ + _%e159127159226%_ + _%hd159128159229%_ + _%tl159129159231%_ + _%__splice160065160066%_ + _%target159130159234%_ + _%tl159132159236%_) + (_%__kont160067160068%_ + _%hd159116159311%_ + _%hd159113159303%_)))) + (_%__kont160067160068%_ + _%hd159116159311%_ + _%hd159113159303%_)))) + (_%__kont160067160068%_ + _%hd159116159311%_ + _%hd159113159303%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx156412156413%_)) - (let ((_%e155455155640%_ + (gx#stx-pair? _%__stx160059160060%_)) + (let ((_%e159109159292%_ (let () (declare (not safe)) - (gx#stx-e _%__stx156412156413%_)))) - (let ((_%tl155457155645%_ + (gx#stx-e _%__stx160059160060%_)))) + (let ((_%tl159111159297%_ (let () (declare (not safe)) - (##cdr _%e155455155640%_))) - (_%hd155456155643%_ + (##cdr _%e159109159292%_))) + (_%hd159110159295%_ (let () (declare (not safe)) - (##car _%e155455155640%_)))) + (##car _%e159109159292%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155457155645%_)) - (let ((_%e155458155648%_ + (gx#stx-pair? _%tl159111159297%_)) + (let ((_%e159112159300%_ (let () (declare (not safe)) - (gx#stx-e _%tl155457155645%_)))) - (let ((_%tl155460155653%_ + (gx#stx-e _%tl159111159297%_)))) + (let ((_%tl159114159305%_ (let () (declare (not safe)) - (##cdr _%e155458155648%_))) - (_%hd155459155651%_ + (##cdr _%e159112159300%_))) + (_%hd159113159303%_ (let () (declare (not safe)) - (##car _%e155458155648%_)))) + (##car _%e159112159300%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155460155653%_)) - (let ((_%e155461155656%_ + (gx#stx-pair? _%tl159114159305%_)) + (let ((_%e159115159308%_ (let () (declare (not safe)) - (gx#stx-e _%tl155460155653%_)))) - (let ((_%tl155463155661%_ + (gx#stx-e _%tl159114159305%_)))) + (let ((_%tl159117159313%_ (let () (declare (not safe)) - (##cdr _%e155461155656%_))) - (_%hd155462155659%_ + (##cdr _%e159115159308%_))) + (_%hd159116159311%_ (let () (declare (not safe)) - (##car _%e155461155656%_)))) + (##car _%e159115159308%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155463155661%_)) - (_%__match156441156442%_ - _%e155455155640%_ - _%hd155456155643%_ - _%tl155457155645%_ - _%e155458155648%_ - _%hd155459155651%_ - _%tl155460155653%_ - _%e155461155656%_ - _%hd155462155659%_ - _%tl155463155661%_) + (gx#stx-null? _%tl159117159313%_)) + (_%__match160088160089%_ + _%e159109159292%_ + _%hd159110159295%_ + _%tl159111159297%_ + _%e159112159300%_ + _%hd159113159303%_ + _%tl159114159305%_ + _%e159115159308%_ + _%hd159116159311%_ + _%tl159117159313%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155459155651%_)) - (let ((_%e155473155572%_ + _%hd159113159303%_)) + (let ((_%e159127159226%_ (let () (declare (not safe)) (gx#stx-e - _%hd155459155651%_)))) - (let ((_%tl155475155577%_ + _%hd159113159303%_)))) + (let ((_%tl159129159231%_ (let () (declare (not safe)) - (##cdr _%e155473155572%_))) - (_%hd155474155575%_ + (##cdr _%e159127159226%_))) + (_%hd159128159229%_ (let () (declare (not safe)) - (##car _%e155473155572%_)))) + (##car _%e159127159226%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl155475155577%_)) - (let ((_%__splice156418156419%_ + _%tl159129159231%_)) + (let ((_%__splice160065160066%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#syntax-split-splice->vector - _%tl155475155577%_ + _%tl159129159231%_ '0)))) - (let ((_%tl155478155582%_ + (let ((_%tl159132159236%_ (let () (declare (not safe)) - (##vector-ref _%__splice156418156419%_ '1))) - (_%target155476155580%_ + (##vector-ref _%__splice160065160066%_ '1))) + (_%target159130159234%_ (let () (declare (not safe)) - (##vector-ref _%__splice156418156419%_ '0)))) + (##vector-ref _%__splice160065160066%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155478155582%_)) - (_%__match156467156468%_ - _%e155455155640%_ - _%hd155456155643%_ - _%tl155457155645%_ - _%e155458155648%_ - _%hd155459155651%_ - _%tl155460155653%_ - _%e155473155572%_ - _%hd155474155575%_ - _%tl155475155577%_ - _%__splice156418156419%_ - _%target155476155580%_ - _%tl155478155582%_) - (let () (declare (not safe)) (_%g155451155503%_))))) - (let () (declare (not safe)) (_%g155451155503%_))))) + (gx#stx-null? _%tl159132159236%_)) + (_%__match160114160115%_ + _%e159109159292%_ + _%hd159110159295%_ + _%tl159111159297%_ + _%e159112159300%_ + _%hd159113159303%_ + _%tl159114159305%_ + _%e159127159226%_ + _%hd159128159229%_ + _%tl159129159231%_ + _%__splice160065160066%_ + _%target159130159234%_ + _%tl159132159236%_) + (let () (declare (not safe)) (_%g159105159157%_))))) + (let () (declare (not safe)) (_%g159105159157%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g155451155503%_)))))) + (_%g159105159157%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155459155651%_)) - (let ((_%e155473155572%_ + (gx#stx-pair? _%hd159113159303%_)) + (let ((_%e159127159226%_ (let () (declare (not safe)) - (gx#stx-e _%hd155459155651%_)))) - (let ((_%tl155475155577%_ + (gx#stx-e _%hd159113159303%_)))) + (let ((_%tl159129159231%_ (let () (declare (not safe)) - (##cdr _%e155473155572%_))) - (_%hd155474155575%_ + (##cdr _%e159127159226%_))) + (_%hd159128159229%_ (let () (declare (not safe)) - (##car _%e155473155572%_)))) + (##car _%e159127159226%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl155475155577%_)) - (let ((_%__splice156418156419%_ + _%tl159129159231%_)) + (let ((_%__splice160065160066%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl155475155577%_ + _%tl159129159231%_ '0)))) - (let ((_%tl155478155582%_ + (let ((_%tl159132159236%_ (let () (declare (not safe)) (##vector-ref - _%__splice156418156419%_ + _%__splice160065160066%_ '1))) - (_%target155476155580%_ + (_%target159130159234%_ (let () (declare (not safe)) (##vector-ref - _%__splice156418156419%_ + _%__splice160065160066%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155478155582%_)) - (_%__match156467156468%_ - _%e155455155640%_ - _%hd155456155643%_ - _%tl155457155645%_ - _%e155458155648%_ - _%hd155459155651%_ - _%tl155460155653%_ - _%e155473155572%_ - _%hd155474155575%_ - _%tl155475155577%_ - _%__splice156418156419%_ - _%target155476155580%_ - _%tl155478155582%_) + _%tl159132159236%_)) + (_%__match160114160115%_ + _%e159109159292%_ + _%hd159110159295%_ + _%tl159111159297%_ + _%e159112159300%_ + _%hd159113159303%_ + _%tl159114159305%_ + _%e159127159226%_ + _%hd159128159229%_ + _%tl159129159231%_ + _%__splice160065160066%_ + _%target159130159234%_ + _%tl159132159236%_) (let () (declare (not safe)) - (_%g155451155503%_))))) + (_%g159105159157%_))))) (let () (declare (not safe)) - (_%g155451155503%_))))) + (_%g159105159157%_))))) (let () (declare (not safe)) - (_%g155451155503%_)))))) - (let () (declare (not safe)) (_%g155451155503%_))))) - (let () (declare (not safe)) (_%g155451155503%_)))))))) + (_%g159105159157%_)))))) + (let () (declare (not safe)) (_%g159105159157%_))))) + (let () (declare (not safe)) (_%g159105159157%_)))))))) (define gxc#generate-runtime-declare% - (lambda (_%self155405%_ _%stx155406%_) - (let* ((_%g155408155418%_ - (lambda (_%g155409155415%_) + (lambda (_%self159059%_ _%stx159060%_) + (let* ((_%g159062159072%_ + (lambda (_%g159063159069%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g155409155415%_)))) - (_%g155407155443%_ - (lambda (_%g155409155421%_) + _%g159063159069%_)))) + (_%g159061159097%_ + (lambda (_%g159063159075%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g155409155421%_)) - (let ((_%e155411155423%_ + (gx#stx-pair? _%g159063159075%_)) + (let ((_%e159065159077%_ (let () (declare (not safe)) - (gx#stx-e _%g155409155421%_)))) - (let ((_%hd155412155426%_ + (gx#stx-e _%g159063159075%_)))) + (let ((_%hd159066159080%_ (let () (declare (not safe)) - (##car _%e155411155423%_))) - (_%tl155413155428%_ + (##car _%e159065159077%_))) + (_%tl159067159082%_ (let () (declare (not safe)) - (##cdr _%e155411155423%_)))) - ((lambda (_%L155431%_) - (let ((_%decls155441%_ - (map gx#syntax->datum _%L155431%_))) - (let ((__tmp157828 - (let ((__tmp157829 + (##cdr _%e159065159077%_)))) + ((lambda (_%g159064159085%_) + (let ((_%decls159095%_ + (map gx#syntax->datum _%g159064159085%_))) + (let ((__tmp161475 + (let ((__tmp161476 (let () (declare (not safe)) (gxc#current-compile-decls)))) (declare (not safe)) (__foldr1 cons - __tmp157829 - _%decls155441%_)))) + __tmp161476 + _%decls159095%_)))) (declare (not safe)) - (gxc#current-compile-decls __tmp157828)) - (cons 'declare _%decls155441%_))) - _%tl155413155428%_))) - (_%g155408155418%_ _%g155409155421%_))))) - (_%g155407155443%_ _%stx155406%_)))) + (gxc#current-compile-decls __tmp161475)) + (cons 'declare _%decls159095%_))) + _%tl159067159082%_))) + (_%g159062159072%_ _%g159063159075%_))))) + (_%g159061159097%_ _%stx159060%_)))) (define gxc#generate-runtime-define-values% - (lambda (_%self155151%_ _%stx155152%_) - (let* ((_%g155154155171%_ - (lambda (_%g155155155168%_) + (lambda (_%self158806%_ _%stx158807%_) + (let* ((_%g158809158826%_ + (lambda (_%g158810158823%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g155155155168%_)))) - (_%g155153155402%_ - (lambda (_%g155155155174%_) + _%g158810158823%_)))) + (_%g158808159056%_ + (lambda (_%g158810158829%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g155155155174%_)) - (let ((_%e155158155176%_ + (gx#stx-pair? _%g158810158829%_)) + (let ((_%e158813158831%_ (let () (declare (not safe)) - (gx#stx-e _%g155155155174%_)))) - (let ((_%hd155159155179%_ + (gx#stx-e _%g158810158829%_)))) + (let ((_%hd158814158834%_ (let () (declare (not safe)) - (##car _%e155158155176%_))) - (_%tl155160155181%_ + (##car _%e158813158831%_))) + (_%tl158815158836%_ (let () (declare (not safe)) - (##cdr _%e155158155176%_)))) + (##cdr _%e158813158831%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155160155181%_)) - (let ((_%e155161155184%_ + (gx#stx-pair? _%tl158815158836%_)) + (let ((_%e158816158839%_ (let () (declare (not safe)) - (gx#stx-e _%tl155160155181%_)))) - (let ((_%hd155162155187%_ + (gx#stx-e _%tl158815158836%_)))) + (let ((_%hd158817158842%_ (let () (declare (not safe)) - (##car _%e155161155184%_))) - (_%tl155163155189%_ + (##car _%e158816158839%_))) + (_%tl158818158844%_ (let () (declare (not safe)) - (##cdr _%e155161155184%_)))) + (##cdr _%e158816158839%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155163155189%_)) - (let ((_%e155164155192%_ + (gx#stx-pair? _%tl158818158844%_)) + (let ((_%e158819158847%_ (let () (declare (not safe)) - (gx#stx-e _%tl155163155189%_)))) - (let ((_%hd155165155195%_ + (gx#stx-e _%tl158818158844%_)))) + (let ((_%hd158820158850%_ (let () (declare (not safe)) - (##car _%e155164155192%_))) - (_%tl155166155197%_ + (##car _%e158819158847%_))) + (_%tl158821158852%_ (let () (declare (not safe)) - (##cdr _%e155164155192%_)))) + (##cdr _%e158819158847%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155166155197%_)) - ((lambda (_%L155200%_ - _%L155201%_) - (let* ((_%__stx156520156521%_ - _%L155201%_) - (_%g155218155232%_ + _%tl158821158852%_)) + ((lambda (_%g158811158855%_ + _%g158812158856%_) + (let* ((_%__stx160167160168%_ + _%g158812158856%_) + (_%g158873158887%_ (lambda () (let () (declare @@ -2917,304 +2928,309 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx156520156521%_))))) - (let ((_%__kont156522156523%_ + _%__stx160167160168%_))))) + (let ((_%__kont160169160170%_ (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self155151%_ - _%L155200%_)))) - (_%__kont156524156525%_ - (lambda (_%L155364%_) - (let ((_%eid155373%_ + _%self158806%_ + _%g158811158855%_)))) + (_%__kont160171160172%_ + (lambda (_%g158879159019%_) + (let ((_%eid159028%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _%L155364%_)))) - (let ((_%lambda-expr155374155376%_ - (gxc#apply-find-lambda-expression _%L155200%_))) - (if _%lambda-expr155374155376%_ - (let* ((_%lambda-expr155379%_ - _%lambda-expr155374155376%_) - (__tmp157830 + (gxc#generate-runtime-binding-id + _%g158879159019%_)))) + (let ((_%lambda-expr159029159031%_ + (gxc#apply-find-lambda-expression + _%g158811158855%_))) + (if _%lambda-expr159029159031%_ + (let* ((_%lambda-expr159033%_ + _%lambda-expr159029159031%_) + (__tmp161477 (let () (declare (not safe)) (gxc#current-compile-runtime-names)))) (declare (not safe)) (hash-put! - __tmp157830 - _%lambda-expr155379%_ - _%eid155373%_)) + __tmp161477 + _%lambda-expr159033%_ + _%eid159028%_)) '#f)) (cons 'define - (cons _%eid155373%_ + (cons _%eid159028%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self155151%_ - _%L155200%_)) + _%self158806%_ + _%g158811158855%_)) '())))))) - (_%__kont156526156527%_ + (_%__kont160173160174%_ (lambda () - (let* ((_%tmp155239%_ + (let* ((_%tmp158894%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%body155348%_ - (let _%lp155241%_ ((_%rest155243%_ _%L155201%_) - (_%k155244%_ '0) - (_%r155245%_ '())) - (let* ((_%__stx156490156491%_ _%rest155243%_) - (_%g155250155267%_ + (_%body159003%_ + (let _%lp158896%_ ((_%rest158898%_ + _%g158812158856%_) + (_%k158899%_ '0) + (_%r158900%_ '())) + (let* ((_%__stx160137160138%_ _%rest158898%_) + (_%g158905158922%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx156490156491%_))))) - (let ((_%__kont156492156493%_ - (lambda (_%L155335%_) - (_%lp155241%_ - _%L155335%_ + _%__stx160137160138%_))))) + (let ((_%__kont160139160140%_ + (lambda (_%g158907158990%_) + (_%lp158896%_ + _%g158907158990%_ (let () (declare (not safe)) - (##fx+ _%k155244%_ '1)) - _%r155245%_))) - (_%__kont156494156495%_ - (lambda (_%L155308%_ _%L155309%_) - (_%lp155241%_ - _%L155308%_ + (##fx+ _%k158899%_ '1)) + _%r158900%_))) + (_%__kont160141160142%_ + (lambda (_%g158912158963%_ + _%g158913158964%_) + (_%lp158896%_ + _%g158912158963%_ (let () (declare (not safe)) - (##fx+ _%k155244%_ '1)) + (##fx+ _%k158899%_ '1)) (cons (cons 'define (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L155309%_)) + _%g158913158964%_)) (cons (gxc#generate-runtime-values-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tmp155239%_ - _%k155244%_ - _%L155308%_) + _%tmp158894%_ + _%k158899%_ + _%g158912158963%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r155245%_)))) - (_%__kont156496156497%_ - (lambda (_%L155279%_) - (let ((__tmp157831 + _%r158900%_)))) + (_%__kont160143160144%_ + (lambda (_%g158917158934%_) + (let ((__tmp161478 (cons (cons 'define (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#generate-runtime-binding-id _%L155279%_)) + (gxc#generate-runtime-binding-id + _%g158917158934%_)) (cons (gxc#generate-runtime-values->list - _%tmp155239%_ - _%k155244%_) + _%tmp158894%_ + _%k158899%_) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp157831 - _%r155245%_)))) - (_%__kont156498156499%_ - (lambda () (reverse _%r155245%_)))) - (let ((_%g155248155295%_ + __tmp161478 + _%r158900%_)))) + (_%__kont160145160146%_ + (lambda () (reverse _%r158900%_)))) + (let ((_%g158903158950%_ (lambda () - (let ((_%L155279%_ - _%__stx156490156491%_)) + (let ((_%g158917158934%_ + _%__stx160137160138%_)) (if (let () (declare (not safe)) (gx#identifier? - _%L155279%_)) - (_%__kont156496156497%_ - _%L155279%_) - (_%__kont156498156499%_)))))) + _%g158917158934%_)) + (_%__kont160143160144%_ + _%g158917158934%_) + (_%__kont160145160146%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx156490156491%_)) - (let ((_%e155253155324%_ + (gx#stx-pair? _%__stx160137160138%_)) + (let ((_%e158908158979%_ (let () (declare (not safe)) (gx#stx-e - _%__stx156490156491%_)))) - (let ((_%tl155255155329%_ + _%__stx160137160138%_)))) + (let ((_%tl158910158984%_ (let () (declare (not safe)) - (##cdr _%e155253155324%_))) - (_%hd155254155327%_ + (##cdr _%e158908158979%_))) + (_%hd158909158982%_ (let () (declare (not safe)) - (##car _%e155253155324%_)))) + (##car _%e158908158979%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd155254155327%_)) - (let ((_%e155256155332%_ + _%hd158909158982%_)) + (let ((_%e158911158987%_ (let () (declare (not safe)) (gx#stx-e - _%hd155254155327%_)))) - (if (equal? _%e155256155332%_ + _%hd158909158982%_)))) + (if (equal? _%e158911158987%_ '#f) - (_%__kont156492156493%_ - _%tl155255155329%_) - (_%__kont156494156495%_ - _%tl155255155329%_ - _%hd155254155327%_))) - (_%__kont156494156495%_ - _%tl155255155329%_ - _%hd155254155327%_)))) + (_%__kont160139160140%_ + _%tl158910158984%_) + (_%__kont160141160142%_ + _%tl158910158984%_ + _%hd158909158982%_))) + (_%__kont160141160142%_ + _%tl158910158984%_ + _%hd158909158982%_)))) (let () (declare (not safe)) - (_%g155248155295%_))))))))) + (_%g158903158950%_))))))))) (cons 'begin (cons (cons 'define - (cons _%tmp155239%_ + (cons _%tmp158894%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self155151%_ - _%L155200%_)) + _%self158806%_ + _%g158811158855%_)) '()))) (cons (gxc#generate-runtime-check-values - _%tmp155239%_ - _%L155201%_ - _%L155200%_) - _%body155348%_))))))) + _%tmp158894%_ + _%g158812158856%_ + _%g158811158855%_) + _%body159003%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx156520156521%_)) - (let ((_%e155220155386%_ + _%__stx160167160168%_)) + (let ((_%e158875159040%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx156520156521%_)))) - (let ((_%tl155222155391%_ + (gx#stx-e _%__stx160167160168%_)))) + (let ((_%tl158877159045%_ (let () (declare (not safe)) - (##cdr _%e155220155386%_))) - (_%hd155221155389%_ + (##cdr _%e158875159040%_))) + (_%hd158876159043%_ (let () (declare (not safe)) - (##car _%e155220155386%_)))) + (##car _%e158875159040%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd155221155389%_)) - (let ((_%e155223155394%_ + (gx#stx-datum? _%hd158876159043%_)) + (let ((_%e158878159048%_ (let () (declare (not safe)) - (gx#stx-e _%hd155221155389%_)))) - (if (equal? _%e155223155394%_ '#f) + (gx#stx-e _%hd158876159043%_)))) + (if (equal? _%e158878159048%_ '#f) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155222155391%_)) - (_%__kont156522156523%_) - (_%__kont156526156527%_)) + (gx#stx-null? _%tl158877159045%_)) + (_%__kont160169160170%_) + (_%__kont160173160174%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155222155391%_)) - (_%__kont156524156525%_ _%hd155221155389%_) - (_%__kont156526156527%_)))) + (gx#stx-null? _%tl158877159045%_)) + (_%__kont160171160172%_ _%hd158876159043%_) + (_%__kont160173160174%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155222155391%_)) - (_%__kont156524156525%_ _%hd155221155389%_) - (_%__kont156526156527%_))))) - (_%__kont156526156527%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd155165155195%_ - _%hd155162155187%_) - (_%g155154155171%_ - _%g155155155174%_)))) - (_%g155154155171%_ _%g155155155174%_)))) - (_%g155154155171%_ _%g155155155174%_)))) - (_%g155154155171%_ _%g155155155174%_))))) - (_%g155153155402%_ _%stx155152%_)))) + (gx#stx-null? _%tl158877159045%_)) + (_%__kont160171160172%_ _%hd158876159043%_) + (_%__kont160173160174%_))))) + (_%__kont160173160174%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd158820158850%_ + _%hd158817158842%_) + (_%g158809158826%_ + _%g158810158829%_)))) + (_%g158809158826%_ _%g158810158829%_)))) + (_%g158809158826%_ _%g158810158829%_)))) + (_%g158809158826%_ _%g158810158829%_))))) + (_%g158808159056%_ _%stx158807%_)))) (define gxc#generate-runtime-check-values - (lambda (_%vals155126%_ _%hd155127%_ _%expr155128%_) - (let ((_%$e155130%_ (gxc#apply-count-values _%expr155128%_))) - (if _%$e155130%_ - ((lambda (_%count155133%_) - (let ((_%len155135%_ + (lambda (_%vals158781%_ _%hd158782%_ _%expr158783%_) + (let ((_%$e158785%_ (gxc#apply-count-values _%expr158783%_))) + (if _%$e158785%_ + ((lambda (_%count158788%_) + (let ((_%len158790%_ (let () (declare (not safe)) - (gx#stx-length _%hd155127%_))) - (_%cmp155136%_ + (gx#stx-length _%hd158782%_))) + (_%cmp158791%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd155127%_)) + (gx#stx-list? _%hd158782%_)) fx= fx>=))) (if (or (let () (declare (not safe)) - (##fx= _%len155135%_ '0)) - (_%cmp155136%_ _%count155133%_ _%len155135%_)) + (##fx= _%len158790%_ '0)) + (_%cmp158791%_ _%count158788%_ _%len158790%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Value count mismatch" - _%expr155128%_ - _%hd155127%_))))) - _%$e155130%_) - (let* ((_%len155142%_ + _%expr158783%_ + _%hd158782%_))))) + _%$e158785%_) + (let* ((_%len158797%_ (let () (declare (not safe)) - (gx#stx-length _%hd155127%_))) - (_%cmp155144%_ + (gx#stx-length _%hd158782%_))) + (_%cmp158799%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd155127%_)) + (gx#stx-list? _%hd158782%_)) '##fx= '##fx>=)) - (_%errmsg155146%_ - (let ((__tmp157833 + (_%errmsg158801%_ + (let ((__tmp161480 (if (let () (declare (not safe)) - (gx#stx-list? _%hd155127%_)) + (gx#stx-list? _%hd158782%_)) '"Context expects " '"Context expects at least ")) - (__tmp157832 (number->string _%len155142%_))) + (__tmp161479 (number->string _%len158797%_))) (declare (not safe)) - (##string-append __tmp157833 __tmp157832 '" values"))) - (_%count155148%_ + (##string-append __tmp161480 __tmp161479 '" values"))) + (_%count158803%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0)))) (if (if (let () (declare (not safe)) - (gx#stx-list? _%hd155127%_)) + (gx#stx-list? _%hd158782%_)) '#f - (let () (declare (not safe)) (##fx= _%len155142%_ '0))) + (let () (declare (not safe)) (##fx= _%len158797%_ '0))) '#!void (cons 'let - (cons (cons (cons _%count155148%_ + (cons (cons (cons _%count158803%_ (cons (gxc#generate-runtime-values-count - _%vals155126%_) + _%vals158781%_) '())) '()) (cons (cons 'if (cons (cons 'not (cons (if (gxc#current-compile-decls-unsafe?) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%cmp155144%_ - (cons _%count155148%_ - (cons _%len155142%_ '()))) + (cons _%cmp158799%_ + (cons _%count158803%_ + (cons _%len158797%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (cons _%cmp155144%_ - (cons _%count155148%_ - (cons _%len155142%_ + (cons (cons _%cmp158799%_ + (cons _%count158803%_ + (cons _%len158797%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3222,82 +3238,82 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'error - (cons _%errmsg155146%_ + (cons _%errmsg158801%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%count155148%_ '()))) + (cons _%count158803%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))))) (define gxc#generate-runtime-values-count - (lambda (_%var155121%_) - (letrec ((_%generate-inline155123%_ + (lambda (_%var158776%_) + (letrec ((_%generate-inline158778%_ (lambda () (cons 'if - (cons (cons '##values? (cons _%var155121%_ '())) + (cons (cons '##values? (cons _%var158776%_ '())) (cons (cons '##values-length - (cons _%var155121%_ '())) + (cons _%var158776%_ '())) (cons '1 '()))))))) (if (gxc#current-compile-decls-unsafe?) - (_%generate-inline155123%_) + (_%generate-inline158778%_) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (_%generate-inline155123%_) '())))))))) + (cons (_%generate-inline158778%_) '())))))))) (define gxc#generate-runtime-values-ref - (lambda (_%var155114%_ _%i155115%_ _%rest155116%_) - (letrec ((_%generate-inline155118%_ + (lambda (_%var158769%_ _%i158770%_ _%rest158771%_) + (letrec ((_%generate-inline158773%_ (lambda () (if (and (let () (declare (not safe)) - (##fx= _%i155115%_ '0)) + (##fx= _%i158770%_ '0)) (not (let () (declare (not safe)) - (gx#stx-pair? _%rest155116%_)))) + (gx#stx-pair? _%rest158771%_)))) (cons 'if - (cons (cons '##values? (cons _%var155114%_ '())) + (cons (cons '##values? (cons _%var158769%_ '())) (cons (cons '##values-ref - (cons _%var155114%_ + (cons _%var158769%_ (cons '0 '()))) - (cons _%var155114%_ '())))) + (cons _%var158769%_ '())))) (cons '##values-ref - (cons _%var155114%_ (cons _%i155115%_ '()))))))) + (cons _%var158769%_ (cons _%i158770%_ '()))))))) (if (gxc#current-compile-decls-unsafe?) - (_%generate-inline155118%_) + (_%generate-inline158773%_) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (_%generate-inline155118%_) '())))))))) + (cons (_%generate-inline158773%_) '())))))))) (define gxc#generate-runtime-values->list - (lambda (_%var155108%_ _%i155109%_) - (if (let () (declare (not safe)) (##fx= _%i155109%_ '0)) + (lambda (_%var158763%_ _%i158764%_) + (if (let () (declare (not safe)) (##fx= _%i158764%_ '0)) (if (gxc#current-compile-decls-unsafe?) (cons 'if - (cons (cons '##values? (cons _%var155108%_ '())) + (cons (cons '##values? (cons _%var158763%_ '())) (cons (cons '##values->list - (cons _%var155108%_ '())) - (cons (cons 'list (cons _%var155108%_ '())) + (cons _%var158763%_ '())) + (cons (cons 'list (cons _%var158763%_ '())) '())))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons 'if (cons (cons '##values? - (cons _%var155108%_ + (cons _%var158763%_ '())) (cons (cons '##values->list - (cons _%var155108%_ + (cons _%var158763%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons 'list (cons _%var155108%_ '())) '())))) + (cons (cons 'list (cons _%var158763%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (if (let () (declare (not safe)) (##fx= _%i155109%_ '1)) + (if (let () (declare (not safe)) (##fx= _%i158764%_ '1)) (if (gxc#current-compile-decls-unsafe?) (cons 'if - (cons (cons '##values? (cons _%var155108%_ '())) + (cons (cons '##values? (cons _%var158763%_ '())) (cons (cons '##cdr (cons (cons '##values->list - (cons _%var155108%_ + (cons _%var158763%_ '())) '())) (cons ''() '())))) @@ -3306,8269 +3322,8303 @@ (cons '(declare (not safe)) (cons (cons 'if (cons (cons '##values? - (cons _%var155108%_ + (cons _%var158763%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '##cdr (cons (cons '##values->list - (cons _%var155108%_ '())) + (cons _%var158763%_ '())) '())) (cons ''() '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (if (gxc#current-compile-decls-unsafe?) (cons '##list-tail - (cons (cons '##values->list (cons _%var155108%_ '())) - (cons _%i155109%_ '()))) + (cons (cons '##values->list (cons _%var158763%_ '())) + (cons _%i158764%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##list-tail (cons (cons '##values->list - (cons _%var155108%_ + (cons _%var158763%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%i155109%_ '()))) + (cons _%i158764%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))))) (define gxc#generate-runtime-lambda% - (lambda (_%self155040%_ _%stx155041%_) - (let* ((_%g155043155060%_ - (lambda (_%g155044155057%_) + (lambda (_%self158695%_ _%stx158696%_) + (let* ((_%g158698158715%_ + (lambda (_%g158699158712%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g155044155057%_)))) - (_%g155042155105%_ - (lambda (_%g155044155063%_) + _%g158699158712%_)))) + (_%g158697158760%_ + (lambda (_%g158699158718%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g155044155063%_)) - (let ((_%e155047155065%_ + (gx#stx-pair? _%g158699158718%_)) + (let ((_%e158702158720%_ (let () (declare (not safe)) - (gx#stx-e _%g155044155063%_)))) - (let ((_%hd155048155068%_ + (gx#stx-e _%g158699158718%_)))) + (let ((_%hd158703158723%_ (let () (declare (not safe)) - (##car _%e155047155065%_))) - (_%tl155049155070%_ + (##car _%e158702158720%_))) + (_%tl158704158725%_ (let () (declare (not safe)) - (##cdr _%e155047155065%_)))) + (##cdr _%e158702158720%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155049155070%_)) - (let ((_%e155050155073%_ + (gx#stx-pair? _%tl158704158725%_)) + (let ((_%e158705158728%_ (let () (declare (not safe)) - (gx#stx-e _%tl155049155070%_)))) - (let ((_%hd155051155076%_ + (gx#stx-e _%tl158704158725%_)))) + (let ((_%hd158706158731%_ (let () (declare (not safe)) - (##car _%e155050155073%_))) - (_%tl155052155078%_ + (##car _%e158705158728%_))) + (_%tl158707158733%_ (let () (declare (not safe)) - (##cdr _%e155050155073%_)))) + (##cdr _%e158705158728%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155052155078%_)) - (let ((_%e155053155081%_ + (gx#stx-pair? _%tl158707158733%_)) + (let ((_%e158708158736%_ (let () (declare (not safe)) - (gx#stx-e _%tl155052155078%_)))) - (let ((_%hd155054155084%_ + (gx#stx-e _%tl158707158733%_)))) + (let ((_%hd158709158739%_ (let () (declare (not safe)) - (##car _%e155053155081%_))) - (_%tl155055155086%_ + (##car _%e158708158736%_))) + (_%tl158710158741%_ (let () (declare (not safe)) - (##cdr _%e155053155081%_)))) + (##cdr _%e158708158736%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155055155086%_)) - ((lambda (_%L155089%_ - _%L155090%_) + _%tl158710158741%_)) + ((lambda (_%g158700158744%_ + _%g158701158745%_) (gxc#generate-runtime-lambda-form - _%self155040%_ - _%L155090%_ - _%L155089%_)) - _%hd155054155084%_ - _%hd155051155076%_) - (_%g155043155060%_ - _%g155044155063%_)))) - (_%g155043155060%_ _%g155044155063%_)))) - (_%g155043155060%_ _%g155044155063%_)))) - (_%g155043155060%_ _%g155044155063%_))))) - (_%g155042155105%_ _%stx155041%_)))) + _%self158695%_ + _%g158701158745%_ + _%g158700158744%_)) + _%hd158709158739%_ + _%hd158706158731%_) + (_%g158698158715%_ + _%g158699158718%_)))) + (_%g158698158715%_ _%g158699158718%_)))) + (_%g158698158715%_ _%g158699158718%_)))) + (_%g158698158715%_ _%g158699158718%_))))) + (_%g158697158760%_ _%stx158696%_)))) (define gxc#generate-runtime-lambda-form - (lambda (_%self154999%_ _%hd155000%_ _%body155001%_) - (let* ((_%hd155003%_ (gxc#generate-runtime-lambda-head _%hd155000%_)) - (_%body155005%_ + (lambda (_%self158654%_ _%hd158655%_ _%body158656%_) + (let* ((_%hd158658%_ (gxc#generate-runtime-lambda-head _%hd158655%_)) + (_%body158660%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self154999%_ _%body155001%_))) - (_%body155037%_ - (let* ((_%body155006155014%_ _%body155005%_) - (_%else155008155022%_ - (lambda () (cons _%body155005%_ '()))) - (_%K155010155027%_ - (lambda (_%exprs155025%_) _%exprs155025%_))) - (if (pair? _%body155006155014%_) - (let ((_%hd155011155030%_ + (gxc#compile-e__1 _%self158654%_ _%body158656%_))) + (_%body158692%_ + (let* ((_%body158661158669%_ _%body158660%_) + (_%else158663158677%_ + (lambda () (cons _%body158660%_ '()))) + (_%K158665158682%_ + (lambda (_%exprs158680%_) _%exprs158680%_))) + (if (pair? _%body158661158669%_) + (let ((_%hd158666158685%_ (let () (declare (not safe)) - (##car _%body155006155014%_))) - (_%tl155012155032%_ + (##car _%body158661158669%_))) + (_%tl158667158687%_ (let () (declare (not safe)) - (##cdr _%body155006155014%_)))) + (##cdr _%body158661158669%_)))) (if (let () (declare (not safe)) - (##eq? _%hd155011155030%_ 'begin)) - (let ((_%exprs155035%_ _%tl155012155032%_)) - (_%K155010155027%_ _%exprs155035%_)) - (_%else155008155022%_))) - (_%else155008155022%_))))) - (cons 'lambda (cons _%hd155003%_ _%body155037%_))))) + (##eq? _%hd158666158685%_ 'begin)) + (let ((_%exprs158690%_ _%tl158667158687%_)) + (_%K158665158682%_ _%exprs158690%_)) + (_%else158663158677%_))) + (_%else158663158677%_))))) + (cons 'lambda (cons _%hd158658%_ _%body158692%_))))) (define gxc#generate-runtime-lambda-head - (lambda (_%hd154997%_) + (lambda (_%hd158652%_) (let () (declare (not safe)) - (gx#stx-map1 gxc#generate-runtime-binding-id* _%hd154997%_)))) + (gx#stx-map1 gxc#generate-runtime-binding-id* _%hd158652%_)))) (define gxc#generate-runtime-case-lambda% - (lambda (_%self153536%_ _%stx153537%_) - (letrec ((_%dispatch-case?153539%_ - (lambda (_%hd154227%_ _%body154228%_) - (let* ((_%form154230%_ - (cons _%hd154227%_ (cons _%body154228%_ '()))) - (_%__stx156552156553%_ _%form154230%_) - (_%g154235154392%_ + (lambda (_%self157209%_ _%stx157210%_) + (letrec ((_%dispatch-case?157212%_ + (lambda (_%hd157890%_ _%body157891%_) + (let* ((_%form157893%_ + (cons _%hd157890%_ (cons _%body157891%_ '()))) + (_%__stx160199160200%_ _%form157893%_) + (_%g157898158055%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx156552156553%_))))) - (let ((_%__kont156554156555%_ - (lambda (_%L154917%_ _%L154918%_ _%L154919%_) + _%__stx160199160200%_))))) + (let ((_%__kont160201160202%_ + (lambda (_%g157900158572%_ + _%g157901158573%_ + _%g157902158574%_) '#t)) - (_%__kont156560156561%_ - (lambda (_%L154705%_ - _%L154706%_ - _%L154707%_ - _%L154708%_ - _%L154709%_ - _%L154710%_) + (_%__kont160207160208%_ + (lambda (_%g157945158364%_ + _%g157946158365%_ + _%g157947158366%_ + _%g157948158367%_ + _%g157949158368%_ + _%g157950158369%_) '#t)) - (_%__kont156566156567%_ - (lambda (_%L154500%_ - _%L154501%_ - _%L154502%_ - _%L154503%_) + (_%__kont160213160214%_ + (lambda (_%g158011158163%_ + _%g158012158164%_ + _%g158013158165%_ + _%g158014158166%_) '#t)) - (_%__kont156568156569%_ (lambda () '#f))) - (let* ((_%__match156693156694%_ - (lambda (_%e154352154404%_ - _%hd154353154407%_ - _%tl154354154409%_ - _%e154355154412%_ - _%hd154356154415%_ - _%tl154357154417%_ - _%e154358154420%_ - _%hd154359154423%_ - _%tl154360154425%_ - _%e154361154428%_ - _%hd154362154431%_ - _%tl154363154433%_ - _%e154364154436%_ - _%hd154365154439%_ - _%tl154366154441%_ - _%e154367154444%_ - _%hd154368154447%_ - _%tl154369154449%_ - _%e154370154452%_ - _%hd154371154455%_ - _%tl154372154457%_ - _%e154373154460%_ - _%hd154374154463%_ - _%tl154375154465%_ - _%e154376154468%_ - _%hd154377154471%_ - _%tl154378154473%_ - _%e154379154476%_ - _%hd154380154479%_ - _%tl154381154481%_ - _%e154382154484%_ - _%hd154383154487%_ - _%tl154384154489%_ - _%e154385154492%_ - _%hd154386154495%_ - _%tl154387154497%_) - (let ((_%L154500%_ _%hd154386154495%_) - (_%L154501%_ _%hd154377154471%_) - (_%L154502%_ _%hd154368154447%_) - (_%L154503%_ _%hd154353154407%_)) + (_%__kont160215160216%_ (lambda () '#f))) + (let* ((_%__match160340160341%_ + (lambda (_%e158015158067%_ + _%hd158016158070%_ + _%tl158017158072%_ + _%e158018158075%_ + _%hd158019158078%_ + _%tl158020158080%_ + _%e158021158083%_ + _%hd158022158086%_ + _%tl158023158088%_ + _%e158024158091%_ + _%hd158025158094%_ + _%tl158026158096%_ + _%e158027158099%_ + _%hd158028158102%_ + _%tl158029158104%_ + _%e158030158107%_ + _%hd158031158110%_ + _%tl158032158112%_ + _%e158033158115%_ + _%hd158034158118%_ + _%tl158035158120%_ + _%e158036158123%_ + _%hd158037158126%_ + _%tl158038158128%_ + _%e158039158131%_ + _%hd158040158134%_ + _%tl158041158136%_ + _%e158042158139%_ + _%hd158043158142%_ + _%tl158044158144%_ + _%e158045158147%_ + _%hd158046158150%_ + _%tl158047158152%_ + _%e158048158155%_ + _%hd158049158158%_ + _%tl158050158160%_) + (let ((_%g158011158163%_ _%hd158049158158%_) + (_%g158012158164%_ _%hd158040158134%_) + (_%g158013158165%_ _%hd158031158110%_) + (_%g158014158166%_ _%hd158016158070%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L154503%_)) + (gx#identifier? + _%g158014158166%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L154502%_ + _%g158013158165%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L154503%_ - _%L154500%_)) + _%g158014158166%_ + _%g158011158163%_)) (not (let () (declare (not safe)) (gx#free-identifier=? - _%L154501%_ - _%L154503%_)))) - (_%__kont156566156567%_ - _%L154500%_ - _%L154501%_ - _%L154502%_ - _%L154503%_) - (_%__kont156568156569%_))))) - (_%__match156665156666%_ - (lambda (_%e154352154404%_ - _%hd154353154407%_ - _%tl154354154409%_ - _%e154355154412%_ - _%hd154356154415%_ - _%tl154357154417%_ - _%e154358154420%_ - _%hd154359154423%_ - _%tl154360154425%_ - _%e154361154428%_ - _%hd154362154431%_ - _%tl154363154433%_ - _%e154364154436%_ - _%hd154365154439%_ - _%tl154366154441%_ - _%e154367154444%_ - _%hd154368154447%_ - _%tl154369154449%_ - _%e154370154452%_ - _%hd154371154455%_ - _%tl154372154457%_ - _%e154373154460%_ - _%hd154374154463%_ - _%tl154375154465%_ - _%e154376154468%_ - _%hd154377154471%_ - _%tl154378154473%_) + _%g158012158164%_ + _%g158014158166%_)))) + (_%__kont160213160214%_ + _%g158011158163%_ + _%g158012158164%_ + _%g158013158165%_ + _%g158014158166%_) + (_%__kont160215160216%_))))) + (_%__match160312160313%_ + (lambda (_%e158015158067%_ + _%hd158016158070%_ + _%tl158017158072%_ + _%e158018158075%_ + _%hd158019158078%_ + _%tl158020158080%_ + _%e158021158083%_ + _%hd158022158086%_ + _%tl158023158088%_ + _%e158024158091%_ + _%hd158025158094%_ + _%tl158026158096%_ + _%e158027158099%_ + _%hd158028158102%_ + _%tl158029158104%_ + _%e158030158107%_ + _%hd158031158110%_ + _%tl158032158112%_ + _%e158033158115%_ + _%hd158034158118%_ + _%tl158035158120%_ + _%e158036158123%_ + _%hd158037158126%_ + _%tl158038158128%_ + _%e158039158131%_ + _%hd158040158134%_ + _%tl158041158136%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154372154457%_)) - (let ((_%e154379154476%_ + (gx#stx-pair? _%tl158035158120%_)) + (let ((_%e158042158139%_ (let () (declare (not safe)) - (gx#stx-e _%tl154372154457%_)))) - (let ((_%tl154381154481%_ + (gx#stx-e _%tl158035158120%_)))) + (let ((_%tl158044158144%_ (let () (declare (not safe)) - (##cdr _%e154379154476%_))) - (_%hd154380154479%_ + (##cdr _%e158042158139%_))) + (_%hd158043158142%_ (let () (declare (not safe)) - (##car _%e154379154476%_)))) + (##car _%e158042158139%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154380154479%_)) - (let ((_%e154382154484%_ + _%hd158043158142%_)) + (let ((_%e158045158147%_ (let () (declare (not safe)) (gx#stx-e - _%hd154380154479%_)))) - (let ((_%tl154384154489%_ + _%hd158043158142%_)))) + (let ((_%tl158047158152%_ (let () (declare (not safe)) - (##cdr _%e154382154484%_))) - (_%hd154383154487%_ + (##cdr _%e158045158147%_))) + (_%hd158046158150%_ (let () (declare (not safe)) - (##car _%e154382154484%_)))) + (##car _%e158045158147%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd154383154487%_)) + _%hd158046158150%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd154383154487%_)) + _%hd158046158150%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl154384154489%_)) - (let ((_%e154385154492%_ + (gx#stx-pair? _%tl158047158152%_)) + (let ((_%e158048158155%_ (let () (declare (not safe)) - (gx#stx-e _%tl154384154489%_)))) - (let ((_%tl154387154497%_ + (gx#stx-e _%tl158047158152%_)))) + (let ((_%tl158050158160%_ (let () (declare (not safe)) - (##cdr _%e154385154492%_))) - (_%hd154386154495%_ + (##cdr _%e158048158155%_))) + (_%hd158049158158%_ (let () (declare (not safe)) - (##car _%e154385154492%_)))) + (##car _%e158048158155%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154387154497%_)) + (gx#stx-null? _%tl158050158160%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154381154481%_)) + (gx#stx-null? _%tl158044158144%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154357154417%_)) - (_%__match156693156694%_ - _%e154352154404%_ - _%hd154353154407%_ - _%tl154354154409%_ - _%e154355154412%_ - _%hd154356154415%_ - _%tl154357154417%_ - _%e154358154420%_ - _%hd154359154423%_ - _%tl154360154425%_ - _%e154361154428%_ - _%hd154362154431%_ - _%tl154363154433%_ - _%e154364154436%_ - _%hd154365154439%_ - _%tl154366154441%_ - _%e154367154444%_ - _%hd154368154447%_ - _%tl154369154449%_ - _%e154370154452%_ - _%hd154371154455%_ - _%tl154372154457%_ - _%e154373154460%_ - _%hd154374154463%_ - _%tl154375154465%_ - _%e154376154468%_ - _%hd154377154471%_ - _%tl154378154473%_ - _%e154379154476%_ - _%hd154380154479%_ - _%tl154381154481%_ - _%e154382154484%_ - _%hd154383154487%_ - _%tl154384154489%_ - _%e154385154492%_ - _%hd154386154495%_ - _%tl154387154497%_) - (_%__kont156568156569%_)) - (_%__kont156568156569%_)) - (_%__kont156568156569%_)))) - (_%__kont156568156569%_)) - (_%__kont156568156569%_)) - (_%__kont156568156569%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont156568156569%_)))) - (_%__kont156568156569%_)))) - (_%__match156595156596%_ - (lambda (_%e154288154545%_ - _%hd154289154548%_ - _%tl154290154550%_ - _%__splice156562156563%_ - _%target154291154553%_ - _%tl154293154555%_) - (letrec ((_%loop154294154558%_ - (lambda (_%hd154292154561%_ - _%arg154298154563%_) + (gx#stx-null? _%tl158020158080%_)) + (_%__match160340160341%_ + _%e158015158067%_ + _%hd158016158070%_ + _%tl158017158072%_ + _%e158018158075%_ + _%hd158019158078%_ + _%tl158020158080%_ + _%e158021158083%_ + _%hd158022158086%_ + _%tl158023158088%_ + _%e158024158091%_ + _%hd158025158094%_ + _%tl158026158096%_ + _%e158027158099%_ + _%hd158028158102%_ + _%tl158029158104%_ + _%e158030158107%_ + _%hd158031158110%_ + _%tl158032158112%_ + _%e158033158115%_ + _%hd158034158118%_ + _%tl158035158120%_ + _%e158036158123%_ + _%hd158037158126%_ + _%tl158038158128%_ + _%e158039158131%_ + _%hd158040158134%_ + _%tl158041158136%_ + _%e158042158139%_ + _%hd158043158142%_ + _%tl158044158144%_ + _%e158045158147%_ + _%hd158046158150%_ + _%tl158047158152%_ + _%e158048158155%_ + _%hd158049158158%_ + _%tl158050158160%_) + (_%__kont160215160216%_)) + (_%__kont160215160216%_)) + (_%__kont160215160216%_)))) + (_%__kont160215160216%_)) + (_%__kont160215160216%_)) + (_%__kont160215160216%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont160215160216%_)))) + (_%__kont160215160216%_)))) + (_%__match160242160243%_ + (lambda (_%e157951158208%_ + _%hd157952158211%_ + _%tl157953158213%_ + _%__splice160209160210%_ + _%target157954158216%_ + _%tl157956158218%_) + (letrec ((_%loop157957158221%_ + (lambda (_%hd157955158224%_ + _%arg157961158226%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154292154561%_)) - (let ((_%e154295154566%_ + _%hd157955158224%_)) + (let ((_%e157958158228%_ (let () (declare (not safe)) (gx#stx-e - _%hd154292154561%_)))) - (let ((_%lp-tl154297154571%_ + _%hd157955158224%_)))) + (let ((_%lp-tl157960158233%_ (let () (declare (not safe)) - (##cdr _%e154295154566%_))) - (_%lp-hd154296154569%_ + (##cdr _%e157958158228%_))) + (_%lp-hd157959158231%_ (let () (declare (not safe)) - (##car _%e154295154566%_)))) - (_%loop154294154558%_ - _%lp-tl154297154571%_ - (cons _%lp-hd154296154569%_ - _%arg154298154563%_)))) - (let ((_%arg154299154574%_ - (reverse _%arg154298154563%_))) + (##car _%e157958158228%_)))) + (_%loop157957158221%_ + _%lp-tl157960158233%_ + (cons _%lp-hd157959158231%_ + _%arg157961158226%_)))) + (let ((_%arg157962158236%_ + (reverse _%arg157961158226%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154290154550%_)) - (let ((_%e154300154577%_ + _%tl157953158213%_)) + (let ((_%e157963158238%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl154290154550%_)))) - (let ((_%tl154302154582%_ + (gx#stx-e _%tl157953158213%_)))) + (let ((_%tl157965158243%_ (let () (declare (not safe)) - (##cdr _%e154300154577%_))) - (_%hd154301154580%_ + (##cdr _%e157963158238%_))) + (_%hd157964158241%_ (let () (declare (not safe)) - (##car _%e154300154577%_)))) + (##car _%e157963158238%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154301154580%_)) - (let ((_%e154303154585%_ + (gx#stx-pair? _%hd157964158241%_)) + (let ((_%e157966158246%_ (let () (declare (not safe)) - (gx#stx-e _%hd154301154580%_)))) - (let ((_%tl154305154590%_ + (gx#stx-e _%hd157964158241%_)))) + (let ((_%tl157968158251%_ (let () (declare (not safe)) - (##cdr _%e154303154585%_))) - (_%hd154304154588%_ + (##cdr _%e157966158246%_))) + (_%hd157967158249%_ (let () (declare (not safe)) - (##car _%e154303154585%_)))) + (##car _%e157966158246%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd154304154588%_)) + (gx#identifier? _%hd157967158249%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd154304154588%_)) + (gx#stx-eq? '%#call _%hd157967158249%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154305154590%_)) - (let ((_%e154306154593%_ + (gx#stx-pair? _%tl157968158251%_)) + (let ((_%e157969158254%_ (let () (declare (not safe)) (gx#stx-e - _%tl154305154590%_)))) - (let ((_%tl154308154598%_ + _%tl157968158251%_)))) + (let ((_%tl157971158259%_ (let () (declare (not safe)) - (##cdr _%e154306154593%_))) - (_%hd154307154596%_ + (##cdr _%e157969158254%_))) + (_%hd157970158257%_ (let () (declare (not safe)) - (##car _%e154306154593%_)))) + (##car _%e157969158254%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154307154596%_)) - (let ((_%e154309154601%_ + _%hd157970158257%_)) + (let ((_%e157972158262%_ (let () (declare (not safe)) (gx#stx-e - _%hd154307154596%_)))) - (let ((_%tl154311154606%_ + _%hd157970158257%_)))) + (let ((_%tl157974158267%_ (let () (declare (not safe)) - (##cdr _%e154309154601%_))) - (_%hd154310154604%_ + (##cdr _%e157972158262%_))) + (_%hd157973158265%_ (let () (declare (not safe)) - (##car _%e154309154601%_)))) + (##car _%e157972158262%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd154310154604%_)) + _%hd157973158265%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd154310154604%_)) + _%hd157973158265%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl154311154606%_)) - (let ((_%e154312154609%_ + (gx#stx-pair? _%tl157974158267%_)) + (let ((_%e157975158270%_ (let () (declare (not safe)) - (gx#stx-e _%tl154311154606%_)))) - (let ((_%tl154314154614%_ + (gx#stx-e _%tl157974158267%_)))) + (let ((_%tl157977158275%_ (let () (declare (not safe)) - (##cdr _%e154312154609%_))) - (_%hd154313154612%_ + (##cdr _%e157975158270%_))) + (_%hd157976158273%_ (let () (declare (not safe)) - (##car _%e154312154609%_)))) + (##car _%e157975158270%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154314154614%_)) + (gx#stx-null? _%tl157977158275%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154308154598%_)) - (let ((_%e154315154617%_ + (gx#stx-pair? _%tl157971158259%_)) + (let ((_%e157978158278%_ (let () (declare (not safe)) - (gx#stx-e _%tl154308154598%_)))) - (let ((_%tl154317154622%_ + (gx#stx-e _%tl157971158259%_)))) + (let ((_%tl157980158283%_ (let () (declare (not safe)) - (##cdr _%e154315154617%_))) - (_%hd154316154620%_ + (##cdr _%e157978158278%_))) + (_%hd157979158281%_ (let () (declare (not safe)) - (##car _%e154315154617%_)))) + (##car _%e157978158278%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154316154620%_)) - (let ((_%e154318154625%_ + _%hd157979158281%_)) + (let ((_%e157981158286%_ (let () (declare (not safe)) (gx#stx-e - _%hd154316154620%_)))) - (let ((_%tl154320154630%_ + _%hd157979158281%_)))) + (let ((_%tl157983158291%_ (let () (declare (not safe)) - (##cdr _%e154318154625%_))) - (_%hd154319154628%_ + (##cdr _%e157981158286%_))) + (_%hd157982158289%_ (let () (declare (not safe)) - (##car _%e154318154625%_)))) + (##car _%e157981158286%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd154319154628%_)) + _%hd157982158289%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd154319154628%_)) + _%hd157982158289%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154320154630%_)) - (let ((_%e154321154633%_ + _%tl157983158291%_)) + (let ((_%e157984158294%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl154320154630%_)))) - (let ((_%tl154323154638%_ + (gx#stx-e _%tl157983158291%_)))) + (let ((_%tl157986158299%_ (let () (declare (not safe)) - (##cdr _%e154321154633%_))) - (_%hd154322154636%_ + (##cdr _%e157984158294%_))) + (_%hd157985158297%_ (let () (declare (not safe)) - (##car _%e154321154633%_)))) + (##car _%e157984158294%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154323154638%_)) + (gx#stx-null? _%tl157986158299%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl154317154622%_)) - (if (let ((__tmp157834 + (gx#stx-pair/null? _%tl157980158283%_)) + (if (let ((__tmp161481 (let () (declare (not safe)) (gx#stx-length - _%tl154317154622%_)))) + _%tl157980158283%_)))) (declare (not safe)) - (##fx>= __tmp157834 '1)) - (let ((_%__splice156564156565%_ + (##fx>= __tmp161481 '1)) + (let ((_%__splice160211160212%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl154317154622%_ + _%tl157980158283%_ '1)))) - (let ((_%tl154326154643%_ + (let ((_%tl157989158304%_ (let () (declare (not safe)) (##vector-ref - _%__splice156564156565%_ + _%__splice160211160212%_ '1))) - (_%target154324154641%_ + (_%target157987158302%_ (let () (declare (not safe)) (##vector-ref - _%__splice156564156565%_ + _%__splice160211160212%_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154326154643%_)) - (let ((_%e154333154646%_ + _%tl157989158304%_)) + (let ((_%e157996158307%_ (let () (declare (not safe)) (gx#stx-e - _%tl154326154643%_)))) - (let ((_%tl154335154651%_ + _%tl157989158304%_)))) + (let ((_%tl157998158312%_ (let () (declare (not safe)) - (##cdr _%e154333154646%_))) - (_%hd154334154649%_ + (##cdr _%e157996158307%_))) + (_%hd157997158310%_ (let () (declare (not safe)) - (##car _%e154333154646%_)))) + (##car _%e157996158307%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154334154649%_)) - (let ((_%e154336154654%_ + _%hd157997158310%_)) + (let ((_%e157999158315%_ (let () (declare (not safe)) (gx#stx-e - _%hd154334154649%_)))) - (let ((_%tl154338154659%_ + _%hd157997158310%_)))) + (let ((_%tl158001158320%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e154336154654%_))) - (_%hd154337154657%_ - (let () (declare (not safe)) (##car _%e154336154654%_)))) + (##cdr _%e157999158315%_))) + (_%hd158000158318%_ + (let () (declare (not safe)) (##car _%e157999158315%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd154337154657%_)) + (gx#identifier? _%hd158000158318%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd154337154657%_)) + (gx#stx-eq? '%#ref _%hd158000158318%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154338154659%_)) - (let ((_%e154339154662%_ + (gx#stx-pair? _%tl158001158320%_)) + (let ((_%e158002158323%_ (let () (declare (not safe)) - (gx#stx-e _%tl154338154659%_)))) - (let ((_%tl154341154667%_ + (gx#stx-e _%tl158001158320%_)))) + (let ((_%tl158004158328%_ (let () (declare (not safe)) - (##cdr _%e154339154662%_))) - (_%hd154340154665%_ + (##cdr _%e158002158323%_))) + (_%hd158003158326%_ (let () (declare (not safe)) - (##car _%e154339154662%_)))) + (##car _%e158002158323%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154341154667%_)) + (gx#stx-null? _%tl158004158328%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154335154651%_)) - (letrec ((_%loop154327154670%_ - (lambda (_%hd154325154673%_ - _%xarg154331154675%_) + (gx#stx-null? _%tl157998158312%_)) + (letrec ((_%loop157990158331%_ + (lambda (_%hd157988158334%_ + _%xarg157994158336%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154325154673%_)) - (let ((_%e154328154678%_ + _%hd157988158334%_)) + (let ((_%e157991158338%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd154325154673%_)))) - (let ((_%lp-tl154330154683%_ + (gx#stx-e _%hd157988158334%_)))) + (let ((_%lp-tl157993158343%_ (let () (declare (not safe)) - (##cdr _%e154328154678%_))) - (_%lp-hd154329154681%_ + (##cdr _%e157991158338%_))) + (_%lp-hd157992158341%_ (let () (declare (not safe)) - (##car _%e154328154678%_)))) + (##car _%e157991158338%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd154329154681%_)) - (let ((_%e154342154686%_ + (gx#stx-pair? _%lp-hd157992158341%_)) + (let ((_%e158005158346%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd154329154681%_)))) - (let ((_%tl154344154691%_ + (gx#stx-e _%lp-hd157992158341%_)))) + (let ((_%tl158007158351%_ (let () (declare (not safe)) - (##cdr _%e154342154686%_))) - (_%hd154343154689%_ + (##cdr _%e158005158346%_))) + (_%hd158006158349%_ (let () (declare (not safe)) - (##car _%e154342154686%_)))) + (##car _%e158005158346%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd154343154689%_)) + (gx#identifier? _%hd158006158349%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd154343154689%_)) + (gx#stx-eq? '%#ref _%hd158006158349%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154344154691%_)) - (let ((_%e154345154694%_ + (gx#stx-pair? _%tl158007158351%_)) + (let ((_%e158008158354%_ (let () (declare (not safe)) (gx#stx-e - _%tl154344154691%_)))) - (let ((_%tl154347154699%_ + _%tl158007158351%_)))) + (let ((_%tl158010158359%_ (let () (declare (not safe)) - (##cdr _%e154345154694%_))) - (_%hd154346154697%_ + (##cdr _%e158008158354%_))) + (_%hd158009158357%_ (let () (declare (not safe)) - (##car _%e154345154694%_)))) + (##car _%e158008158354%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154347154699%_)) - (_%loop154327154670%_ - _%lp-tl154330154683%_ - (cons _%hd154346154697%_ - _%xarg154331154675%_)) - (_%__match156665156666%_ - _%e154288154545%_ - _%hd154289154548%_ - _%tl154290154550%_ - _%e154300154577%_ - _%hd154301154580%_ - _%tl154302154582%_ - _%e154303154585%_ - _%hd154304154588%_ - _%tl154305154590%_ - _%e154306154593%_ - _%hd154307154596%_ - _%tl154308154598%_ - _%e154309154601%_ - _%hd154310154604%_ - _%tl154311154606%_ - _%e154312154609%_ - _%hd154313154612%_ - _%tl154314154614%_ - _%e154315154617%_ - _%hd154316154620%_ - _%tl154317154622%_ - _%e154318154625%_ - _%hd154319154628%_ - _%tl154320154630%_ - _%e154321154633%_ - _%hd154322154636%_ - _%tl154323154638%_)))) - (_%__match156665156666%_ - _%e154288154545%_ - _%hd154289154548%_ - _%tl154290154550%_ - _%e154300154577%_ - _%hd154301154580%_ - _%tl154302154582%_ - _%e154303154585%_ - _%hd154304154588%_ - _%tl154305154590%_ - _%e154306154593%_ - _%hd154307154596%_ - _%tl154308154598%_ - _%e154309154601%_ - _%hd154310154604%_ - _%tl154311154606%_ - _%e154312154609%_ - _%hd154313154612%_ - _%tl154314154614%_ - _%e154315154617%_ - _%hd154316154620%_ - _%tl154317154622%_ - _%e154318154625%_ - _%hd154319154628%_ - _%tl154320154630%_ - _%e154321154633%_ - _%hd154322154636%_ - _%tl154323154638%_)) - (_%__match156665156666%_ - _%e154288154545%_ - _%hd154289154548%_ - _%tl154290154550%_ - _%e154300154577%_ - _%hd154301154580%_ - _%tl154302154582%_ - _%e154303154585%_ - _%hd154304154588%_ - _%tl154305154590%_ - _%e154306154593%_ - _%hd154307154596%_ - _%tl154308154598%_ - _%e154309154601%_ - _%hd154310154604%_ - _%tl154311154606%_ - _%e154312154609%_ - _%hd154313154612%_ - _%tl154314154614%_ - _%e154315154617%_ - _%hd154316154620%_ - _%tl154317154622%_ - _%e154318154625%_ - _%hd154319154628%_ - _%tl154320154630%_ - _%e154321154633%_ - _%hd154322154636%_ - _%tl154323154638%_)) - (_%__match156665156666%_ - _%e154288154545%_ - _%hd154289154548%_ - _%tl154290154550%_ - _%e154300154577%_ - _%hd154301154580%_ - _%tl154302154582%_ - _%e154303154585%_ - _%hd154304154588%_ - _%tl154305154590%_ - _%e154306154593%_ - _%hd154307154596%_ - _%tl154308154598%_ - _%e154309154601%_ - _%hd154310154604%_ - _%tl154311154606%_ - _%e154312154609%_ - _%hd154313154612%_ - _%tl154314154614%_ - _%e154315154617%_ - _%hd154316154620%_ - _%tl154317154622%_ - _%e154318154625%_ - _%hd154319154628%_ - _%tl154320154630%_ - _%e154321154633%_ - _%hd154322154636%_ - _%tl154323154638%_)))) - (_%__match156665156666%_ - _%e154288154545%_ - _%hd154289154548%_ - _%tl154290154550%_ - _%e154300154577%_ - _%hd154301154580%_ - _%tl154302154582%_ - _%e154303154585%_ - _%hd154304154588%_ - _%tl154305154590%_ - _%e154306154593%_ - _%hd154307154596%_ - _%tl154308154598%_ - _%e154309154601%_ - _%hd154310154604%_ - _%tl154311154606%_ - _%e154312154609%_ - _%hd154313154612%_ - _%tl154314154614%_ - _%e154315154617%_ - _%hd154316154620%_ - _%tl154317154622%_ - _%e154318154625%_ - _%hd154319154628%_ - _%tl154320154630%_ - _%e154321154633%_ - _%hd154322154636%_ - _%tl154323154638%_)))) - (let ((_%xarg154332154702%_ (reverse _%xarg154331154675%_))) + _%tl158010158359%_)) + (_%loop157990158331%_ + _%lp-tl157993158343%_ + (cons _%hd158009158357%_ + _%xarg157994158336%_)) + (_%__match160312160313%_ + _%e157951158208%_ + _%hd157952158211%_ + _%tl157953158213%_ + _%e157963158238%_ + _%hd157964158241%_ + _%tl157965158243%_ + _%e157966158246%_ + _%hd157967158249%_ + _%tl157968158251%_ + _%e157969158254%_ + _%hd157970158257%_ + _%tl157971158259%_ + _%e157972158262%_ + _%hd157973158265%_ + _%tl157974158267%_ + _%e157975158270%_ + _%hd157976158273%_ + _%tl157977158275%_ + _%e157978158278%_ + _%hd157979158281%_ + _%tl157980158283%_ + _%e157981158286%_ + _%hd157982158289%_ + _%tl157983158291%_ + _%e157984158294%_ + _%hd157985158297%_ + _%tl157986158299%_)))) + (_%__match160312160313%_ + _%e157951158208%_ + _%hd157952158211%_ + _%tl157953158213%_ + _%e157963158238%_ + _%hd157964158241%_ + _%tl157965158243%_ + _%e157966158246%_ + _%hd157967158249%_ + _%tl157968158251%_ + _%e157969158254%_ + _%hd157970158257%_ + _%tl157971158259%_ + _%e157972158262%_ + _%hd157973158265%_ + _%tl157974158267%_ + _%e157975158270%_ + _%hd157976158273%_ + _%tl157977158275%_ + _%e157978158278%_ + _%hd157979158281%_ + _%tl157980158283%_ + _%e157981158286%_ + _%hd157982158289%_ + _%tl157983158291%_ + _%e157984158294%_ + _%hd157985158297%_ + _%tl157986158299%_)) + (_%__match160312160313%_ + _%e157951158208%_ + _%hd157952158211%_ + _%tl157953158213%_ + _%e157963158238%_ + _%hd157964158241%_ + _%tl157965158243%_ + _%e157966158246%_ + _%hd157967158249%_ + _%tl157968158251%_ + _%e157969158254%_ + _%hd157970158257%_ + _%tl157971158259%_ + _%e157972158262%_ + _%hd157973158265%_ + _%tl157974158267%_ + _%e157975158270%_ + _%hd157976158273%_ + _%tl157977158275%_ + _%e157978158278%_ + _%hd157979158281%_ + _%tl157980158283%_ + _%e157981158286%_ + _%hd157982158289%_ + _%tl157983158291%_ + _%e157984158294%_ + _%hd157985158297%_ + _%tl157986158299%_)) + (_%__match160312160313%_ + _%e157951158208%_ + _%hd157952158211%_ + _%tl157953158213%_ + _%e157963158238%_ + _%hd157964158241%_ + _%tl157965158243%_ + _%e157966158246%_ + _%hd157967158249%_ + _%tl157968158251%_ + _%e157969158254%_ + _%hd157970158257%_ + _%tl157971158259%_ + _%e157972158262%_ + _%hd157973158265%_ + _%tl157974158267%_ + _%e157975158270%_ + _%hd157976158273%_ + _%tl157977158275%_ + _%e157978158278%_ + _%hd157979158281%_ + _%tl157980158283%_ + _%e157981158286%_ + _%hd157982158289%_ + _%tl157983158291%_ + _%e157984158294%_ + _%hd157985158297%_ + _%tl157986158299%_)))) + (_%__match160312160313%_ + _%e157951158208%_ + _%hd157952158211%_ + _%tl157953158213%_ + _%e157963158238%_ + _%hd157964158241%_ + _%tl157965158243%_ + _%e157966158246%_ + _%hd157967158249%_ + _%tl157968158251%_ + _%e157969158254%_ + _%hd157970158257%_ + _%tl157971158259%_ + _%e157972158262%_ + _%hd157973158265%_ + _%tl157974158267%_ + _%e157975158270%_ + _%hd157976158273%_ + _%tl157977158275%_ + _%e157978158278%_ + _%hd157979158281%_ + _%tl157980158283%_ + _%e157981158286%_ + _%hd157982158289%_ + _%tl157983158291%_ + _%e157984158294%_ + _%hd157985158297%_ + _%tl157986158299%_)))) + (let ((_%xarg157995158362%_ (reverse _%xarg157994158336%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154302154582%_)) - (let ((_%L154705%_ _%hd154340154665%_) - (_%L154706%_ _%xarg154332154702%_) - (_%L154707%_ _%hd154322154636%_) - (_%L154708%_ _%hd154313154612%_) - (_%L154709%_ _%tl154293154555%_) - (_%L154710%_ _%arg154299154574%_)) - (if (and (let ((__tmp157835 - (let ((__tmp157836 - (lambda (_%g154753154756%_ - _%g154754154758%_) - (cons _%g154753154756%_ - _%g154754154758%_)))) + (gx#stx-null? _%tl157965158243%_)) + (let ((_%g157945158364%_ _%hd158003158326%_) + (_%g157946158365%_ _%xarg157995158362%_) + (_%g157947158366%_ _%hd157985158297%_) + (_%g157948158367%_ _%hd157976158273%_) + (_%g157949158368%_ _%tl157956158218%_) + (_%g157950158369%_ _%arg157962158236%_)) + (if (and (let ((__tmp161482 + (let ((__tmp161483 + (lambda (_%g158412158415%_ + _%g158413158417%_) + (cons _%g158412158415%_ + _%g158413158417%_)))) (declare (not safe)) (__foldr1 - __tmp157836 + __tmp161483 '() - _%L154710%_)))) + _%g157950158369%_)))) (declare (not safe)) - (gx#identifier-list? __tmp157835)) + (gx#identifier-list? __tmp161482)) (let () (declare (not safe)) - (gx#identifier? _%L154709%_)) + (gx#identifier? _%g157949158368%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L154708%_ + _%g157948158367%_ 'apply)) - (let ((__tmp157839 - (length (let ((__tmp157840 - (lambda (_%g154760154763%_ - _%g154761154765%_) - (cons _%g154760154763%_ - _%g154761154765%_)))) + (let ((__tmp161486 + (length (let ((__tmp161487 + (lambda (_%g158419158422%_ + _%g158420158424%_) + (cons _%g158419158422%_ + _%g158420158424%_)))) (declare (not safe)) (__foldr1 - __tmp157840 + __tmp161487 '() - _%L154710%_)))) - (__tmp157837 - (length (let ((__tmp157838 - (lambda (_%g154767154770%_ - _%g154768154772%_) - (cons _%g154767154770%_ - _%g154768154772%_)))) + _%g157950158369%_)))) + (__tmp161484 + (length (let ((__tmp161485 + (lambda (_%g158426158429%_ + _%g158427158431%_) + (cons _%g158426158429%_ + _%g158427158431%_)))) (declare (not safe)) (__foldr1 - __tmp157838 + __tmp161485 '() - _%L154706%_))))) + _%g157946158365%_))))) (declare (not safe)) - (##fx= __tmp157839 __tmp157837)) - (let ((__tmp157843 - (let ((__tmp157844 - (lambda (_%g154774154777%_ - _%g154775154779%_) - (cons _%g154774154777%_ - _%g154775154779%_)))) + (##fx= __tmp161486 __tmp161484)) + (let ((__tmp161490 + (let ((__tmp161491 + (lambda (_%g158433158436%_ + _%g158434158438%_) + (cons _%g158433158436%_ + _%g158434158438%_)))) (declare (not safe)) (__foldr1 - __tmp157844 + __tmp161491 '() - _%L154710%_))) - (__tmp157841 - (let ((__tmp157842 - (lambda (_%g154781154784%_ - _%g154782154786%_) - (cons _%g154781154784%_ - _%g154782154786%_)))) + _%g157950158369%_))) + (__tmp161488 + (let ((__tmp161489 + (lambda (_%g158440158443%_ + _%g158441158445%_) + (cons _%g158440158443%_ + _%g158441158445%_)))) (declare (not safe)) (__foldr1 - __tmp157842 + __tmp161489 '() - _%L154706%_)))) + _%g157946158365%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp157843 - __tmp157841)) + __tmp161490 + __tmp161488)) (let () (declare (not safe)) (gx#free-identifier=? - _%L154709%_ - _%L154705%_)) - (not (let ((__tmp157848 - (lambda (_%g154788154790%_) + _%g157949158368%_ + _%g157945158364%_)) + (not (let ((__tmp161495 + (lambda (_%g158447158449%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g154788154790%_ - _%L154707%_)))) - (__tmp157845 - (let ((__tmp157847 - (lambda (_%g154792154795%_ - _%g154793154797%_) - (cons _%g154792154795%_ - _%g154793154797%_))) - (__tmp157846 - (cons _%L154709%_ '()))) + _%g158447158449%_ + _%g157947158366%_)))) + (__tmp161492 + (let ((__tmp161494 + (lambda (_%g158451158454%_ + _%g158452158456%_) + (cons _%g158451158454%_ + _%g158452158456%_))) + (__tmp161493 + (cons _%g157949158368%_ + '()))) (declare (not safe)) (__foldr1 - __tmp157847 - __tmp157846 - _%L154710%_)))) + __tmp161494 + __tmp161493 + _%g157950158369%_)))) (declare (not safe)) - (__find __tmp157848 __tmp157845)))) - (_%__kont156560156561%_ - _%L154705%_ - _%L154706%_ - _%L154707%_ - _%L154708%_ - _%L154709%_ - _%L154710%_) - (_%__match156665156666%_ - _%e154288154545%_ - _%hd154289154548%_ - _%tl154290154550%_ - _%e154300154577%_ - _%hd154301154580%_ - _%tl154302154582%_ - _%e154303154585%_ - _%hd154304154588%_ - _%tl154305154590%_ - _%e154306154593%_ - _%hd154307154596%_ - _%tl154308154598%_ - _%e154309154601%_ - _%hd154310154604%_ - _%tl154311154606%_ - _%e154312154609%_ - _%hd154313154612%_ - _%tl154314154614%_ - _%e154315154617%_ - _%hd154316154620%_ - _%tl154317154622%_ - _%e154318154625%_ - _%hd154319154628%_ - _%tl154320154630%_ - _%e154321154633%_ - _%hd154322154636%_ - _%tl154323154638%_))) - (_%__match156665156666%_ - _%e154288154545%_ - _%hd154289154548%_ - _%tl154290154550%_ - _%e154300154577%_ - _%hd154301154580%_ - _%tl154302154582%_ - _%e154303154585%_ - _%hd154304154588%_ - _%tl154305154590%_ - _%e154306154593%_ - _%hd154307154596%_ - _%tl154308154598%_ - _%e154309154601%_ - _%hd154310154604%_ - _%tl154311154606%_ - _%e154312154609%_ - _%hd154313154612%_ - _%tl154314154614%_ - _%e154315154617%_ - _%hd154316154620%_ - _%tl154317154622%_ - _%e154318154625%_ - _%hd154319154628%_ - _%tl154320154630%_ - _%e154321154633%_ - _%hd154322154636%_ - _%tl154323154638%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop154327154670%_ - _%target154324154641%_ + (__find __tmp161495 __tmp161492)))) + (_%__kont160207160208%_ + _%g157945158364%_ + _%g157946158365%_ + _%g157947158366%_ + _%g157948158367%_ + _%g157949158368%_ + _%g157950158369%_) + (_%__match160312160313%_ + _%e157951158208%_ + _%hd157952158211%_ + _%tl157953158213%_ + _%e157963158238%_ + _%hd157964158241%_ + _%tl157965158243%_ + _%e157966158246%_ + _%hd157967158249%_ + _%tl157968158251%_ + _%e157969158254%_ + _%hd157970158257%_ + _%tl157971158259%_ + _%e157972158262%_ + _%hd157973158265%_ + _%tl157974158267%_ + _%e157975158270%_ + _%hd157976158273%_ + _%tl157977158275%_ + _%e157978158278%_ + _%hd157979158281%_ + _%tl157980158283%_ + _%e157981158286%_ + _%hd157982158289%_ + _%tl157983158291%_ + _%e157984158294%_ + _%hd157985158297%_ + _%tl157986158299%_))) + (_%__match160312160313%_ + _%e157951158208%_ + _%hd157952158211%_ + _%tl157953158213%_ + _%e157963158238%_ + _%hd157964158241%_ + _%tl157965158243%_ + _%e157966158246%_ + _%hd157967158249%_ + _%tl157968158251%_ + _%e157969158254%_ + _%hd157970158257%_ + _%tl157971158259%_ + _%e157972158262%_ + _%hd157973158265%_ + _%tl157974158267%_ + _%e157975158270%_ + _%hd157976158273%_ + _%tl157977158275%_ + _%e157978158278%_ + _%hd157979158281%_ + _%tl157980158283%_ + _%e157981158286%_ + _%hd157982158289%_ + _%tl157983158291%_ + _%e157984158294%_ + _%hd157985158297%_ + _%tl157986158299%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop157990158331%_ + _%target157987158302%_ '())) - (_%__match156665156666%_ - _%e154288154545%_ - _%hd154289154548%_ - _%tl154290154550%_ - _%e154300154577%_ - _%hd154301154580%_ - _%tl154302154582%_ - _%e154303154585%_ - _%hd154304154588%_ - _%tl154305154590%_ - _%e154306154593%_ - _%hd154307154596%_ - _%tl154308154598%_ - _%e154309154601%_ - _%hd154310154604%_ - _%tl154311154606%_ - _%e154312154609%_ - _%hd154313154612%_ - _%tl154314154614%_ - _%e154315154617%_ - _%hd154316154620%_ - _%tl154317154622%_ - _%e154318154625%_ - _%hd154319154628%_ - _%tl154320154630%_ - _%e154321154633%_ - _%hd154322154636%_ - _%tl154323154638%_)) - (_%__match156665156666%_ - _%e154288154545%_ - _%hd154289154548%_ - _%tl154290154550%_ - _%e154300154577%_ - _%hd154301154580%_ - _%tl154302154582%_ - _%e154303154585%_ - _%hd154304154588%_ - _%tl154305154590%_ - _%e154306154593%_ - _%hd154307154596%_ - _%tl154308154598%_ - _%e154309154601%_ - _%hd154310154604%_ - _%tl154311154606%_ - _%e154312154609%_ - _%hd154313154612%_ - _%tl154314154614%_ - _%e154315154617%_ - _%hd154316154620%_ - _%tl154317154622%_ - _%e154318154625%_ - _%hd154319154628%_ - _%tl154320154630%_ - _%e154321154633%_ - _%hd154322154636%_ - _%tl154323154638%_)))) - (_%__match156665156666%_ - _%e154288154545%_ - _%hd154289154548%_ - _%tl154290154550%_ - _%e154300154577%_ - _%hd154301154580%_ - _%tl154302154582%_ - _%e154303154585%_ - _%hd154304154588%_ - _%tl154305154590%_ - _%e154306154593%_ - _%hd154307154596%_ - _%tl154308154598%_ - _%e154309154601%_ - _%hd154310154604%_ - _%tl154311154606%_ - _%e154312154609%_ - _%hd154313154612%_ - _%tl154314154614%_ - _%e154315154617%_ - _%hd154316154620%_ - _%tl154317154622%_ - _%e154318154625%_ - _%hd154319154628%_ - _%tl154320154630%_ - _%e154321154633%_ - _%hd154322154636%_ - _%tl154323154638%_)) - (_%__match156665156666%_ - _%e154288154545%_ - _%hd154289154548%_ - _%tl154290154550%_ - _%e154300154577%_ - _%hd154301154580%_ - _%tl154302154582%_ - _%e154303154585%_ - _%hd154304154588%_ - _%tl154305154590%_ - _%e154306154593%_ - _%hd154307154596%_ - _%tl154308154598%_ - _%e154309154601%_ - _%hd154310154604%_ - _%tl154311154606%_ - _%e154312154609%_ - _%hd154313154612%_ - _%tl154314154614%_ - _%e154315154617%_ - _%hd154316154620%_ - _%tl154317154622%_ - _%e154318154625%_ - _%hd154319154628%_ - _%tl154320154630%_ - _%e154321154633%_ - _%hd154322154636%_ - _%tl154323154638%_)) - (_%__match156665156666%_ - _%e154288154545%_ - _%hd154289154548%_ - _%tl154290154550%_ - _%e154300154577%_ - _%hd154301154580%_ - _%tl154302154582%_ - _%e154303154585%_ - _%hd154304154588%_ - _%tl154305154590%_ - _%e154306154593%_ - _%hd154307154596%_ - _%tl154308154598%_ - _%e154309154601%_ - _%hd154310154604%_ - _%tl154311154606%_ - _%e154312154609%_ - _%hd154313154612%_ - _%tl154314154614%_ - _%e154315154617%_ - _%hd154316154620%_ - _%tl154317154622%_ - _%e154318154625%_ - _%hd154319154628%_ - _%tl154320154630%_ - _%e154321154633%_ - _%hd154322154636%_ - _%tl154323154638%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match156665156666%_ - _%e154288154545%_ - _%hd154289154548%_ - _%tl154290154550%_ - _%e154300154577%_ - _%hd154301154580%_ - _%tl154302154582%_ - _%e154303154585%_ - _%hd154304154588%_ - _%tl154305154590%_ - _%e154306154593%_ - _%hd154307154596%_ - _%tl154308154598%_ - _%e154309154601%_ - _%hd154310154604%_ - _%tl154311154606%_ - _%e154312154609%_ - _%hd154313154612%_ - _%tl154314154614%_ - _%e154315154617%_ - _%hd154316154620%_ - _%tl154317154622%_ - _%e154318154625%_ - _%hd154319154628%_ - _%tl154320154630%_ - _%e154321154633%_ - _%hd154322154636%_ - _%tl154323154638%_)))) - (_%__match156665156666%_ - _%e154288154545%_ - _%hd154289154548%_ - _%tl154290154550%_ - _%e154300154577%_ - _%hd154301154580%_ - _%tl154302154582%_ - _%e154303154585%_ - _%hd154304154588%_ - _%tl154305154590%_ - _%e154306154593%_ - _%hd154307154596%_ - _%tl154308154598%_ - _%e154309154601%_ - _%hd154310154604%_ - _%tl154311154606%_ - _%e154312154609%_ - _%hd154313154612%_ - _%tl154314154614%_ - _%e154315154617%_ - _%hd154316154620%_ - _%tl154317154622%_ - _%e154318154625%_ - _%hd154319154628%_ - _%tl154320154630%_ - _%e154321154633%_ - _%hd154322154636%_ - _%tl154323154638%_)))) - (_%__match156665156666%_ - _%e154288154545%_ - _%hd154289154548%_ - _%tl154290154550%_ - _%e154300154577%_ - _%hd154301154580%_ - _%tl154302154582%_ - _%e154303154585%_ - _%hd154304154588%_ - _%tl154305154590%_ - _%e154306154593%_ - _%hd154307154596%_ - _%tl154308154598%_ - _%e154309154601%_ - _%hd154310154604%_ - _%tl154311154606%_ - _%e154312154609%_ - _%hd154313154612%_ - _%tl154314154614%_ - _%e154315154617%_ - _%hd154316154620%_ - _%tl154317154622%_ - _%e154318154625%_ - _%hd154319154628%_ - _%tl154320154630%_ - _%e154321154633%_ - _%hd154322154636%_ - _%tl154323154638%_)) - (_%__match156665156666%_ - _%e154288154545%_ - _%hd154289154548%_ - _%tl154290154550%_ - _%e154300154577%_ - _%hd154301154580%_ - _%tl154302154582%_ - _%e154303154585%_ - _%hd154304154588%_ - _%tl154305154590%_ - _%e154306154593%_ - _%hd154307154596%_ - _%tl154308154598%_ - _%e154309154601%_ - _%hd154310154604%_ - _%tl154311154606%_ - _%e154312154609%_ - _%hd154313154612%_ - _%tl154314154614%_ - _%e154315154617%_ - _%hd154316154620%_ - _%tl154317154622%_ - _%e154318154625%_ - _%hd154319154628%_ - _%tl154320154630%_ - _%e154321154633%_ - _%hd154322154636%_ - _%tl154323154638%_)) - (_%__kont156568156569%_)))) - (_%__kont156568156569%_)) - (_%__kont156568156569%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont156568156569%_)))) - (_%__kont156568156569%_)))) - (_%__kont156568156569%_)) - (_%__kont156568156569%_)))) - (_%__kont156568156569%_)) - (_%__kont156568156569%_)) - (_%__kont156568156569%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont156568156569%_)))) - (_%__kont156568156569%_)) - (_%__kont156568156569%_)) - (_%__kont156568156569%_)))) - (_%__kont156568156569%_)))) - (_%__kont156568156569%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop154294154558%_ - _%target154291154553%_ + (_%__match160312160313%_ + _%e157951158208%_ + _%hd157952158211%_ + _%tl157953158213%_ + _%e157963158238%_ + _%hd157964158241%_ + _%tl157965158243%_ + _%e157966158246%_ + _%hd157967158249%_ + _%tl157968158251%_ + _%e157969158254%_ + _%hd157970158257%_ + _%tl157971158259%_ + _%e157972158262%_ + _%hd157973158265%_ + _%tl157974158267%_ + _%e157975158270%_ + _%hd157976158273%_ + _%tl157977158275%_ + _%e157978158278%_ + _%hd157979158281%_ + _%tl157980158283%_ + _%e157981158286%_ + _%hd157982158289%_ + _%tl157983158291%_ + _%e157984158294%_ + _%hd157985158297%_ + _%tl157986158299%_)) + (_%__match160312160313%_ + _%e157951158208%_ + _%hd157952158211%_ + _%tl157953158213%_ + _%e157963158238%_ + _%hd157964158241%_ + _%tl157965158243%_ + _%e157966158246%_ + _%hd157967158249%_ + _%tl157968158251%_ + _%e157969158254%_ + _%hd157970158257%_ + _%tl157971158259%_ + _%e157972158262%_ + _%hd157973158265%_ + _%tl157974158267%_ + _%e157975158270%_ + _%hd157976158273%_ + _%tl157977158275%_ + _%e157978158278%_ + _%hd157979158281%_ + _%tl157980158283%_ + _%e157981158286%_ + _%hd157982158289%_ + _%tl157983158291%_ + _%e157984158294%_ + _%hd157985158297%_ + _%tl157986158299%_)))) + (_%__match160312160313%_ + _%e157951158208%_ + _%hd157952158211%_ + _%tl157953158213%_ + _%e157963158238%_ + _%hd157964158241%_ + _%tl157965158243%_ + _%e157966158246%_ + _%hd157967158249%_ + _%tl157968158251%_ + _%e157969158254%_ + _%hd157970158257%_ + _%tl157971158259%_ + _%e157972158262%_ + _%hd157973158265%_ + _%tl157974158267%_ + _%e157975158270%_ + _%hd157976158273%_ + _%tl157977158275%_ + _%e157978158278%_ + _%hd157979158281%_ + _%tl157980158283%_ + _%e157981158286%_ + _%hd157982158289%_ + _%tl157983158291%_ + _%e157984158294%_ + _%hd157985158297%_ + _%tl157986158299%_)) + (_%__match160312160313%_ + _%e157951158208%_ + _%hd157952158211%_ + _%tl157953158213%_ + _%e157963158238%_ + _%hd157964158241%_ + _%tl157965158243%_ + _%e157966158246%_ + _%hd157967158249%_ + _%tl157968158251%_ + _%e157969158254%_ + _%hd157970158257%_ + _%tl157971158259%_ + _%e157972158262%_ + _%hd157973158265%_ + _%tl157974158267%_ + _%e157975158270%_ + _%hd157976158273%_ + _%tl157977158275%_ + _%e157978158278%_ + _%hd157979158281%_ + _%tl157980158283%_ + _%e157981158286%_ + _%hd157982158289%_ + _%tl157983158291%_ + _%e157984158294%_ + _%hd157985158297%_ + _%tl157986158299%_)) + (_%__match160312160313%_ + _%e157951158208%_ + _%hd157952158211%_ + _%tl157953158213%_ + _%e157963158238%_ + _%hd157964158241%_ + _%tl157965158243%_ + _%e157966158246%_ + _%hd157967158249%_ + _%tl157968158251%_ + _%e157969158254%_ + _%hd157970158257%_ + _%tl157971158259%_ + _%e157972158262%_ + _%hd157973158265%_ + _%tl157974158267%_ + _%e157975158270%_ + _%hd157976158273%_ + _%tl157977158275%_ + _%e157978158278%_ + _%hd157979158281%_ + _%tl157980158283%_ + _%e157981158286%_ + _%hd157982158289%_ + _%tl157983158291%_ + _%e157984158294%_ + _%hd157985158297%_ + _%tl157986158299%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match160312160313%_ + _%e157951158208%_ + _%hd157952158211%_ + _%tl157953158213%_ + _%e157963158238%_ + _%hd157964158241%_ + _%tl157965158243%_ + _%e157966158246%_ + _%hd157967158249%_ + _%tl157968158251%_ + _%e157969158254%_ + _%hd157970158257%_ + _%tl157971158259%_ + _%e157972158262%_ + _%hd157973158265%_ + _%tl157974158267%_ + _%e157975158270%_ + _%hd157976158273%_ + _%tl157977158275%_ + _%e157978158278%_ + _%hd157979158281%_ + _%tl157980158283%_ + _%e157981158286%_ + _%hd157982158289%_ + _%tl157983158291%_ + _%e157984158294%_ + _%hd157985158297%_ + _%tl157986158299%_)))) + (_%__match160312160313%_ + _%e157951158208%_ + _%hd157952158211%_ + _%tl157953158213%_ + _%e157963158238%_ + _%hd157964158241%_ + _%tl157965158243%_ + _%e157966158246%_ + _%hd157967158249%_ + _%tl157968158251%_ + _%e157969158254%_ + _%hd157970158257%_ + _%tl157971158259%_ + _%e157972158262%_ + _%hd157973158265%_ + _%tl157974158267%_ + _%e157975158270%_ + _%hd157976158273%_ + _%tl157977158275%_ + _%e157978158278%_ + _%hd157979158281%_ + _%tl157980158283%_ + _%e157981158286%_ + _%hd157982158289%_ + _%tl157983158291%_ + _%e157984158294%_ + _%hd157985158297%_ + _%tl157986158299%_)))) + (_%__match160312160313%_ + _%e157951158208%_ + _%hd157952158211%_ + _%tl157953158213%_ + _%e157963158238%_ + _%hd157964158241%_ + _%tl157965158243%_ + _%e157966158246%_ + _%hd157967158249%_ + _%tl157968158251%_ + _%e157969158254%_ + _%hd157970158257%_ + _%tl157971158259%_ + _%e157972158262%_ + _%hd157973158265%_ + _%tl157974158267%_ + _%e157975158270%_ + _%hd157976158273%_ + _%tl157977158275%_ + _%e157978158278%_ + _%hd157979158281%_ + _%tl157980158283%_ + _%e157981158286%_ + _%hd157982158289%_ + _%tl157983158291%_ + _%e157984158294%_ + _%hd157985158297%_ + _%tl157986158299%_)) + (_%__match160312160313%_ + _%e157951158208%_ + _%hd157952158211%_ + _%tl157953158213%_ + _%e157963158238%_ + _%hd157964158241%_ + _%tl157965158243%_ + _%e157966158246%_ + _%hd157967158249%_ + _%tl157968158251%_ + _%e157969158254%_ + _%hd157970158257%_ + _%tl157971158259%_ + _%e157972158262%_ + _%hd157973158265%_ + _%tl157974158267%_ + _%e157975158270%_ + _%hd157976158273%_ + _%tl157977158275%_ + _%e157978158278%_ + _%hd157979158281%_ + _%tl157980158283%_ + _%e157981158286%_ + _%hd157982158289%_ + _%tl157983158291%_ + _%e157984158294%_ + _%hd157985158297%_ + _%tl157986158299%_)) + (_%__kont160215160216%_)))) + (_%__kont160215160216%_)) + (_%__kont160215160216%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont160215160216%_)))) + (_%__kont160215160216%_)))) + (_%__kont160215160216%_)) + (_%__kont160215160216%_)))) + (_%__kont160215160216%_)) + (_%__kont160215160216%_)) + (_%__kont160215160216%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont160215160216%_)))) + (_%__kont160215160216%_)) + (_%__kont160215160216%_)) + (_%__kont160215160216%_)))) + (_%__kont160215160216%_)))) + (_%__kont160215160216%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop157957158221%_ + _%target157954158216%_ '())))) - (_%__match156583156584%_ - (lambda (_%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_) - (letrec ((_%loop154246154818%_ - (lambda (_%hd154244154821%_ - _%arg154250154823%_) + (_%__match160230160231%_ + (lambda (_%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_) + (letrec ((_%loop157909158477%_ + (lambda (_%hd157907158480%_ + _%arg157913158482%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154244154821%_)) - (let ((_%e154247154826%_ + _%hd157907158480%_)) + (let ((_%e157910158484%_ (let () (declare (not safe)) (gx#stx-e - _%hd154244154821%_)))) - (let ((_%lp-tl154249154831%_ + _%hd157907158480%_)))) + (let ((_%lp-tl157912158489%_ (let () (declare (not safe)) - (##cdr _%e154247154826%_))) - (_%lp-hd154248154829%_ + (##cdr _%e157910158484%_))) + (_%lp-hd157911158487%_ (let () (declare (not safe)) - (##car _%e154247154826%_)))) - (_%loop154246154818%_ - _%lp-tl154249154831%_ - (cons _%lp-hd154248154829%_ - _%arg154250154823%_)))) - (let ((_%arg154251154834%_ - (reverse _%arg154250154823%_))) + (##car _%e157910158484%_)))) + (_%loop157909158477%_ + _%lp-tl157912158489%_ + (cons _%lp-hd157911158487%_ + _%arg157913158482%_)))) + (let ((_%arg157914158492%_ + (reverse _%arg157913158482%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154242154810%_)) - (let ((_%e154252154837%_ + _%tl157905158469%_)) + (let ((_%e157915158494%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl154242154810%_)))) - (let ((_%tl154254154842%_ + (gx#stx-e _%tl157905158469%_)))) + (let ((_%tl157917158499%_ (let () (declare (not safe)) - (##cdr _%e154252154837%_))) - (_%hd154253154840%_ + (##cdr _%e157915158494%_))) + (_%hd157916158497%_ (let () (declare (not safe)) - (##car _%e154252154837%_)))) + (##car _%e157915158494%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154253154840%_)) - (let ((_%e154255154845%_ + (gx#stx-pair? _%hd157916158497%_)) + (let ((_%e157918158502%_ (let () (declare (not safe)) - (gx#stx-e _%hd154253154840%_)))) - (let ((_%tl154257154850%_ + (gx#stx-e _%hd157916158497%_)))) + (let ((_%tl157920158507%_ (let () (declare (not safe)) - (##cdr _%e154255154845%_))) - (_%hd154256154848%_ + (##cdr _%e157918158502%_))) + (_%hd157919158505%_ (let () (declare (not safe)) - (##car _%e154255154845%_)))) + (##car _%e157918158502%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd154256154848%_)) + (gx#identifier? _%hd157919158505%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd154256154848%_)) + (gx#stx-eq? '%#call _%hd157919158505%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154257154850%_)) - (let ((_%e154258154853%_ + (gx#stx-pair? _%tl157920158507%_)) + (let ((_%e157921158510%_ (let () (declare (not safe)) (gx#stx-e - _%tl154257154850%_)))) - (let ((_%tl154260154858%_ + _%tl157920158507%_)))) + (let ((_%tl157923158515%_ (let () (declare (not safe)) - (##cdr _%e154258154853%_))) - (_%hd154259154856%_ + (##cdr _%e157921158510%_))) + (_%hd157922158513%_ (let () (declare (not safe)) - (##car _%e154258154853%_)))) + (##car _%e157921158510%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154259154856%_)) - (let ((_%e154261154861%_ + _%hd157922158513%_)) + (let ((_%e157924158518%_ (let () (declare (not safe)) (gx#stx-e - _%hd154259154856%_)))) - (let ((_%tl154263154866%_ + _%hd157922158513%_)))) + (let ((_%tl157926158523%_ (let () (declare (not safe)) - (##cdr _%e154261154861%_))) - (_%hd154262154864%_ + (##cdr _%e157924158518%_))) + (_%hd157925158521%_ (let () (declare (not safe)) - (##car _%e154261154861%_)))) + (##car _%e157924158518%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd154262154864%_)) + _%hd157925158521%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd154262154864%_)) + _%hd157925158521%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl154263154866%_)) - (let ((_%e154264154869%_ + (gx#stx-pair? _%tl157926158523%_)) + (let ((_%e157927158526%_ (let () (declare (not safe)) - (gx#stx-e _%tl154263154866%_)))) - (let ((_%tl154266154874%_ + (gx#stx-e _%tl157926158523%_)))) + (let ((_%tl157929158531%_ (let () (declare (not safe)) - (##cdr _%e154264154869%_))) - (_%hd154265154872%_ + (##cdr _%e157927158526%_))) + (_%hd157928158529%_ (let () (declare (not safe)) - (##car _%e154264154869%_)))) + (##car _%e157927158526%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154266154874%_)) + (gx#stx-null? _%tl157929158531%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl154260154858%_)) - (let ((_%__splice156558156559%_ + (gx#stx-pair/null? _%tl157923158515%_)) + (let ((_%__splice160205160206%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl154260154858%_ + _%tl157923158515%_ '0)))) - (let ((_%tl154269154879%_ + (let ((_%tl157932158536%_ (let () (declare (not safe)) (##vector-ref - _%__splice156558156559%_ + _%__splice160205160206%_ '1))) - (_%target154267154877%_ + (_%target157930158534%_ (let () (declare (not safe)) (##vector-ref - _%__splice156558156559%_ + _%__splice160205160206%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154269154879%_)) - (letrec ((_%loop154270154882%_ - (lambda (_%hd154268154885%_ - _%xarg154274154887%_) + _%tl157932158536%_)) + (letrec ((_%loop157933158539%_ + (lambda (_%hd157931158542%_ + _%xarg157937158544%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154268154885%_)) - (let ((_%e154271154890%_ + _%hd157931158542%_)) + (let ((_%e157934158546%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd154268154885%_)))) - (let ((_%lp-tl154273154895%_ + (gx#stx-e _%hd157931158542%_)))) + (let ((_%lp-tl157936158551%_ (let () (declare (not safe)) - (##cdr _%e154271154890%_))) - (_%lp-hd154272154893%_ + (##cdr _%e157934158546%_))) + (_%lp-hd157935158549%_ (let () (declare (not safe)) - (##car _%e154271154890%_)))) + (##car _%e157934158546%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd154272154893%_)) - (let ((_%e154276154898%_ + (gx#stx-pair? _%lp-hd157935158549%_)) + (let ((_%e157939158554%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd154272154893%_)))) - (let ((_%tl154278154903%_ + (gx#stx-e _%lp-hd157935158549%_)))) + (let ((_%tl157941158559%_ (let () (declare (not safe)) - (##cdr _%e154276154898%_))) - (_%hd154277154901%_ + (##cdr _%e157939158554%_))) + (_%hd157940158557%_ (let () (declare (not safe)) - (##car _%e154276154898%_)))) + (##car _%e157939158554%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd154277154901%_)) + (gx#identifier? _%hd157940158557%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd154277154901%_)) + _%hd157940158557%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154278154903%_)) - (let ((_%e154279154906%_ + _%tl157941158559%_)) + (let ((_%e157942158562%_ (let () (declare (not safe)) (gx#stx-e - _%tl154278154903%_)))) - (let ((_%tl154281154911%_ + _%tl157941158559%_)))) + (let ((_%tl157944158567%_ (let () (declare (not safe)) - (##cdr _%e154279154906%_))) - (_%hd154280154909%_ + (##cdr _%e157942158562%_))) + (_%hd157943158565%_ (let () (declare (not safe)) - (##car _%e154279154906%_)))) + (##car _%e157942158562%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154281154911%_)) - (_%loop154270154882%_ - _%lp-tl154273154895%_ - (cons _%hd154280154909%_ - _%xarg154274154887%_)) - (_%__match156595156596%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_)))) - (_%__match156595156596%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_)) - (_%__match156595156596%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_)) - (_%__match156595156596%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_)))) - (_%__match156595156596%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_)))) - (let ((_%xarg154275154914%_ - (reverse _%xarg154274154887%_))) + _%tl157944158567%_)) + (_%loop157933158539%_ + _%lp-tl157936158551%_ + (cons _%hd157943158565%_ + _%xarg157937158544%_)) + (_%__match160242160243%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_)))) + (_%__match160242160243%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_)) + (_%__match160242160243%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_)) + (_%__match160242160243%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_)))) + (_%__match160242160243%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_)))) + (let ((_%xarg157938158570%_ + (reverse _%xarg157937158544%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154254154842%_)) - (let ((_%L154917%_ _%xarg154275154914%_) - (_%L154918%_ _%hd154265154872%_) - (_%L154919%_ _%arg154251154834%_)) - (if (and (let ((__tmp157849 - (let ((__tmp157850 - (lambda (_%g154947154950%_ - _%g154948154952%_) - (cons _%g154947154950%_ - _%g154948154952%_)))) + (gx#stx-null? _%tl157917158499%_)) + (let ((_%g157900158572%_ _%xarg157938158570%_) + (_%g157901158573%_ _%hd157928158529%_) + (_%g157902158574%_ _%arg157914158492%_)) + (if (and (let ((__tmp161496 + (let ((__tmp161497 + (lambda (_%g158602158605%_ + _%g158603158607%_) + (cons _%g158602158605%_ + _%g158603158607%_)))) (declare (not safe)) (__foldr1 - __tmp157850 + __tmp161497 '() - _%L154919%_)))) + _%g157902158574%_)))) (declare (not safe)) - (gx#identifier-list? __tmp157849)) - (let ((__tmp157853 - (length (let ((__tmp157854 - (lambda (_%g154954154957%_ + (gx#identifier-list? __tmp161496)) + (let ((__tmp161500 + (length (let ((__tmp161501 + (lambda (_%g158609158612%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g154955154959%_) - (cons _%g154954154957%_ _%g154955154959%_)))) + _%g158610158614%_) + (cons _%g158609158612%_ _%g158610158614%_)))) (declare (not safe)) - (__foldr1 __tmp157854 '() _%L154919%_)))) + (__foldr1 __tmp161501 '() _%g157902158574%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp157851 - (length (let ((__tmp157852 - (lambda (_%g154961154964%_ + (__tmp161498 + (length (let ((__tmp161499 + (lambda (_%g158616158619%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g154962154966%_) - (cons _%g154961154964%_ _%g154962154966%_)))) + _%g158617158621%_) + (cons _%g158616158619%_ _%g158617158621%_)))) (declare (not safe)) - (__foldr1 __tmp157852 '() _%L154917%_))))) + (__foldr1 __tmp161499 '() _%g157900158572%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##fx= __tmp157853 __tmp157851)) - (let ((__tmp157857 - (let ((__tmp157858 - (lambda (_%g154968154971%_ - _%g154969154973%_) - (cons _%g154968154971%_ - _%g154969154973%_)))) + (##fx= __tmp161500 __tmp161498)) + (let ((__tmp161504 + (let ((__tmp161505 + (lambda (_%g158623158626%_ + _%g158624158628%_) + (cons _%g158623158626%_ + _%g158624158628%_)))) (declare (not safe)) (__foldr1 - __tmp157858 + __tmp161505 '() - _%L154919%_))) - (__tmp157855 - (let ((__tmp157856 - (lambda (_%g154975154978%_ - _%g154976154980%_) - (cons _%g154975154978%_ - _%g154976154980%_)))) + _%g157902158574%_))) + (__tmp161502 + (let ((__tmp161503 + (lambda (_%g158630158633%_ + _%g158631158635%_) + (cons _%g158630158633%_ + _%g158631158635%_)))) (declare (not safe)) (__foldr1 - __tmp157856 + __tmp161503 '() - _%L154917%_)))) + _%g157900158572%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp157857 - __tmp157855)) - (not (let ((__tmp157861 - (lambda (_%g154982154984%_) + __tmp161504 + __tmp161502)) + (not (let ((__tmp161508 + (lambda (_%g158637158639%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g154982154984%_ - _%L154918%_)))) - (__tmp157859 - (let ((__tmp157860 - (lambda (_%g154986154989%_ + _%g158637158639%_ + _%g157901158573%_)))) + (__tmp161506 + (let ((__tmp161507 + (lambda (_%g158641158644%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g154987154991%_) - (cons _%g154986154989%_ _%g154987154991%_)))) + _%g158642158646%_) + (cons _%g158641158644%_ _%g158642158646%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp157860 + __tmp161507 '() - _%L154919%_)))) + _%g157902158574%_)))) (declare (not safe)) - (__find __tmp157861 __tmp157859)))) - (_%__kont156554156555%_ - _%L154917%_ - _%L154918%_ - _%L154919%_) - (_%__match156595156596%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_))) - (_%__match156595156596%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop154270154882%_ - _%target154267154877%_ + (__find __tmp161508 __tmp161506)))) + (_%__kont160201160202%_ + _%g157900158572%_ + _%g157901158573%_ + _%g157902158574%_) + (_%__match160242160243%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_))) + (_%__match160242160243%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop157933158539%_ + _%target157930158534%_ '())) - (_%__match156595156596%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_)))) - (_%__match156595156596%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_)) - (_%__match156595156596%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_)))) - (_%__match156595156596%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_)) - (_%__match156595156596%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_)) - (_%__match156595156596%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match156595156596%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_)))) - (_%__match156595156596%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_)) - (_%__match156595156596%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_)) - (_%__match156595156596%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_)))) - (_%__match156595156596%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_)))) - (_%__match156595156596%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop154246154818%_ - _%target154243154813%_ + (_%__match160242160243%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_)))) + (_%__match160242160243%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_)) + (_%__match160242160243%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_)))) + (_%__match160242160243%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_)) + (_%__match160242160243%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_)) + (_%__match160242160243%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match160242160243%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_)))) + (_%__match160242160243%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_)) + (_%__match160242160243%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_)) + (_%__match160242160243%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_)))) + (_%__match160242160243%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_)))) + (_%__match160242160243%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop157909158477%_ + _%target157906158472%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx156552156553%_)) - (let ((_%e154240154805%_ + (gx#stx-pair? _%__stx160199160200%_)) + (let ((_%e157903158464%_ (let () (declare (not safe)) - (gx#stx-e _%__stx156552156553%_)))) - (let ((_%tl154242154810%_ + (gx#stx-e _%__stx160199160200%_)))) + (let ((_%tl157905158469%_ (let () (declare (not safe)) - (##cdr _%e154240154805%_))) - (_%hd154241154808%_ + (##cdr _%e157903158464%_))) + (_%hd157904158467%_ (let () (declare (not safe)) - (##car _%e154240154805%_)))) + (##car _%e157903158464%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd154241154808%_)) - (let ((_%__splice156556156557%_ + (gx#stx-pair/null? _%hd157904158467%_)) + (let ((_%__splice160203160204%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%hd154241154808%_ + _%hd157904158467%_ '0)))) - (let ((_%tl154245154815%_ + (let ((_%tl157908158474%_ (let () (declare (not safe)) (##vector-ref - _%__splice156556156557%_ + _%__splice160203160204%_ '1))) - (_%target154243154813%_ + (_%target157906158472%_ (let () (declare (not safe)) (##vector-ref - _%__splice156556156557%_ + _%__splice160203160204%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154245154815%_)) - (_%__match156583156584%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_) - (_%__match156595156596%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%__splice156556156557%_ - _%target154243154813%_ - _%tl154245154815%_)))) + _%tl157908158474%_)) + (_%__match160230160231%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_) + (_%__match160242160243%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%__splice160203160204%_ + _%target157906158472%_ + _%tl157908158474%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154242154810%_)) - (let ((_%e154355154412%_ + (gx#stx-pair? _%tl157905158469%_)) + (let ((_%e158018158075%_ (let () (declare (not safe)) (gx#stx-e - _%tl154242154810%_)))) - (let ((_%tl154357154417%_ + _%tl157905158469%_)))) + (let ((_%tl158020158080%_ (let () (declare (not safe)) - (##cdr _%e154355154412%_))) - (_%hd154356154415%_ + (##cdr _%e158018158075%_))) + (_%hd158019158078%_ (let () (declare (not safe)) - (##car _%e154355154412%_)))) + (##car _%e158018158075%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154356154415%_)) - (let ((_%e154358154420%_ + _%hd158019158078%_)) + (let ((_%e158021158083%_ (let () (declare (not safe)) (gx#stx-e - _%hd154356154415%_)))) - (let ((_%tl154360154425%_ + _%hd158019158078%_)))) + (let ((_%tl158023158088%_ (let () (declare (not safe)) - (##cdr _%e154358154420%_))) - (_%hd154359154423%_ + (##cdr _%e158021158083%_))) + (_%hd158022158086%_ (let () (declare (not safe)) - (##car _%e154358154420%_)))) + (##car _%e158021158083%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd154359154423%_)) + _%hd158022158086%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _%hd154359154423%_)) + (gx#stx-eq? '%#call _%hd158022158086%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154360154425%_)) - (let ((_%e154361154428%_ + (gx#stx-pair? _%tl158023158088%_)) + (let ((_%e158024158091%_ (let () (declare (not safe)) - (gx#stx-e _%tl154360154425%_)))) - (let ((_%tl154363154433%_ + (gx#stx-e _%tl158023158088%_)))) + (let ((_%tl158026158096%_ (let () (declare (not safe)) - (##cdr _%e154361154428%_))) - (_%hd154362154431%_ + (##cdr _%e158024158091%_))) + (_%hd158025158094%_ (let () (declare (not safe)) - (##car _%e154361154428%_)))) + (##car _%e158024158091%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154362154431%_)) - (let ((_%e154364154436%_ + (gx#stx-pair? _%hd158025158094%_)) + (let ((_%e158027158099%_ (let () (declare (not safe)) - (gx#stx-e _%hd154362154431%_)))) - (let ((_%tl154366154441%_ + (gx#stx-e _%hd158025158094%_)))) + (let ((_%tl158029158104%_ (let () (declare (not safe)) - (##cdr _%e154364154436%_))) - (_%hd154365154439%_ + (##cdr _%e158027158099%_))) + (_%hd158028158102%_ (let () (declare (not safe)) - (##car _%e154364154436%_)))) + (##car _%e158027158099%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd154365154439%_)) + _%hd158028158102%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd154365154439%_)) + _%hd158028158102%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154366154441%_)) - (let ((_%e154367154444%_ + _%tl158029158104%_)) + (let ((_%e158030158107%_ (let () (declare (not safe)) (gx#stx-e - _%tl154366154441%_)))) - (let ((_%tl154369154449%_ + _%tl158029158104%_)))) + (let ((_%tl158032158112%_ (let () (declare (not safe)) - (##cdr _%e154367154444%_))) - (_%hd154368154447%_ + (##cdr _%e158030158107%_))) + (_%hd158031158110%_ (let () (declare (not safe)) - (##car _%e154367154444%_)))) + (##car _%e158030158107%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154369154449%_)) + _%tl158032158112%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl154363154433%_)) - (let ((_%e154370154452%_ + (gx#stx-pair? _%tl158026158096%_)) + (let ((_%e158033158115%_ (let () (declare (not safe)) - (gx#stx-e _%tl154363154433%_)))) - (let ((_%tl154372154457%_ + (gx#stx-e _%tl158026158096%_)))) + (let ((_%tl158035158120%_ (let () (declare (not safe)) - (##cdr _%e154370154452%_))) - (_%hd154371154455%_ + (##cdr _%e158033158115%_))) + (_%hd158034158118%_ (let () (declare (not safe)) - (##car _%e154370154452%_)))) + (##car _%e158033158115%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154371154455%_)) - (let ((_%e154373154460%_ + (gx#stx-pair? _%hd158034158118%_)) + (let ((_%e158036158123%_ (let () (declare (not safe)) - (gx#stx-e _%hd154371154455%_)))) - (let ((_%tl154375154465%_ + (gx#stx-e _%hd158034158118%_)))) + (let ((_%tl158038158128%_ (let () (declare (not safe)) - (##cdr _%e154373154460%_))) - (_%hd154374154463%_ + (##cdr _%e158036158123%_))) + (_%hd158037158126%_ (let () (declare (not safe)) - (##car _%e154373154460%_)))) + (##car _%e158036158123%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd154374154463%_)) + (gx#identifier? _%hd158037158126%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd154374154463%_)) + _%hd158037158126%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154375154465%_)) - (let ((_%e154376154468%_ + _%tl158038158128%_)) + (let ((_%e158039158131%_ (let () (declare (not safe)) (gx#stx-e - _%tl154375154465%_)))) - (let ((_%tl154378154473%_ + _%tl158038158128%_)))) + (let ((_%tl158041158136%_ (let () (declare (not safe)) - (##cdr _%e154376154468%_))) - (_%hd154377154471%_ + (##cdr _%e158039158131%_))) + (_%hd158040158134%_ (let () (declare (not safe)) - (##car _%e154376154468%_)))) + (##car _%e158039158131%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154378154473%_)) + _%tl158041158136%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154372154457%_)) - (let ((_%e154379154476%_ + _%tl158035158120%_)) + (let ((_%e158042158139%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl154372154457%_)))) - (let ((_%tl154381154481%_ + (gx#stx-e _%tl158035158120%_)))) + (let ((_%tl158044158144%_ (let () (declare (not safe)) - (##cdr _%e154379154476%_))) - (_%hd154380154479%_ + (##cdr _%e158042158139%_))) + (_%hd158043158142%_ (let () (declare (not safe)) - (##car _%e154379154476%_)))) + (##car _%e158042158139%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154380154479%_)) - (let ((_%e154382154484%_ + (gx#stx-pair? _%hd158043158142%_)) + (let ((_%e158045158147%_ (let () (declare (not safe)) - (gx#stx-e _%hd154380154479%_)))) - (let ((_%tl154384154489%_ + (gx#stx-e _%hd158043158142%_)))) + (let ((_%tl158047158152%_ (let () (declare (not safe)) - (##cdr _%e154382154484%_))) - (_%hd154383154487%_ + (##cdr _%e158045158147%_))) + (_%hd158046158150%_ (let () (declare (not safe)) - (##car _%e154382154484%_)))) + (##car _%e158045158147%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd154383154487%_)) + (gx#identifier? _%hd158046158150%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd154383154487%_)) + (gx#stx-eq? '%#ref _%hd158046158150%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154384154489%_)) - (let ((_%e154385154492%_ + (gx#stx-pair? _%tl158047158152%_)) + (let ((_%e158048158155%_ (let () (declare (not safe)) (gx#stx-e - _%tl154384154489%_)))) - (let ((_%tl154387154497%_ + _%tl158047158152%_)))) + (let ((_%tl158050158160%_ (let () (declare (not safe)) - (##cdr _%e154385154492%_))) - (_%hd154386154495%_ + (##cdr _%e158048158155%_))) + (_%hd158049158158%_ (let () (declare (not safe)) - (##car _%e154385154492%_)))) + (##car _%e158048158155%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154387154497%_)) + _%tl158050158160%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154381154481%_)) + _%tl158044158144%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154357154417%_)) - (_%__match156693156694%_ - _%e154240154805%_ - _%hd154241154808%_ - _%tl154242154810%_ - _%e154355154412%_ - _%hd154356154415%_ - _%tl154357154417%_ - _%e154358154420%_ - _%hd154359154423%_ - _%tl154360154425%_ - _%e154361154428%_ - _%hd154362154431%_ - _%tl154363154433%_ - _%e154364154436%_ - _%hd154365154439%_ - _%tl154366154441%_ - _%e154367154444%_ - _%hd154368154447%_ - _%tl154369154449%_ - _%e154370154452%_ - _%hd154371154455%_ - _%tl154372154457%_ - _%e154373154460%_ - _%hd154374154463%_ - _%tl154375154465%_ - _%e154376154468%_ - _%hd154377154471%_ - _%tl154378154473%_ - _%e154379154476%_ - _%hd154380154479%_ - _%tl154381154481%_ - _%e154382154484%_ - _%hd154383154487%_ - _%tl154384154489%_ - _%e154385154492%_ - _%hd154386154495%_ - _%tl154387154497%_) - (_%__kont156568156569%_)) - (_%__kont156568156569%_)) - (_%__kont156568156569%_)))) - (_%__kont156568156569%_)) - (_%__kont156568156569%_)) - (_%__kont156568156569%_)))) - (_%__kont156568156569%_)))) - (_%__kont156568156569%_)) - (_%__kont156568156569%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont156568156569%_)) - (_%__kont156568156569%_)) - (_%__kont156568156569%_)))) - (_%__kont156568156569%_)))) - (_%__kont156568156569%_)) - (_%__kont156568156569%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont156568156569%_)) - (_%__kont156568156569%_)) - (_%__kont156568156569%_)))) - (_%__kont156568156569%_)))) - (_%__kont156568156569%_)) - (_%__kont156568156569%_)) - (_%__kont156568156569%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont156568156569%_)))) - (_%__kont156568156569%_))))) - (_%__kont156568156569%_))))))) - (_%dispatch-case-e153540%_ - (lambda (_%hd153691%_ _%body153692%_) - (let* ((_%form153694%_ - (cons _%hd153691%_ (cons _%body153692%_ '()))) - (_%__stx156696156697%_ _%form153694%_) - (_%g153698153822%_ + _%tl158020158080%_)) + (_%__match160340160341%_ + _%e157903158464%_ + _%hd157904158467%_ + _%tl157905158469%_ + _%e158018158075%_ + _%hd158019158078%_ + _%tl158020158080%_ + _%e158021158083%_ + _%hd158022158086%_ + _%tl158023158088%_ + _%e158024158091%_ + _%hd158025158094%_ + _%tl158026158096%_ + _%e158027158099%_ + _%hd158028158102%_ + _%tl158029158104%_ + _%e158030158107%_ + _%hd158031158110%_ + _%tl158032158112%_ + _%e158033158115%_ + _%hd158034158118%_ + _%tl158035158120%_ + _%e158036158123%_ + _%hd158037158126%_ + _%tl158038158128%_ + _%e158039158131%_ + _%hd158040158134%_ + _%tl158041158136%_ + _%e158042158139%_ + _%hd158043158142%_ + _%tl158044158144%_ + _%e158045158147%_ + _%hd158046158150%_ + _%tl158047158152%_ + _%e158048158155%_ + _%hd158049158158%_ + _%tl158050158160%_) + (_%__kont160215160216%_)) + (_%__kont160215160216%_)) + (_%__kont160215160216%_)))) + (_%__kont160215160216%_)) + (_%__kont160215160216%_)) + (_%__kont160215160216%_)))) + (_%__kont160215160216%_)))) + (_%__kont160215160216%_)) + (_%__kont160215160216%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont160215160216%_)) + (_%__kont160215160216%_)) + (_%__kont160215160216%_)))) + (_%__kont160215160216%_)))) + (_%__kont160215160216%_)) + (_%__kont160215160216%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont160215160216%_)) + (_%__kont160215160216%_)) + (_%__kont160215160216%_)))) + (_%__kont160215160216%_)))) + (_%__kont160215160216%_)) + (_%__kont160215160216%_)) + (_%__kont160215160216%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont160215160216%_)))) + (_%__kont160215160216%_))))) + (_%__kont160215160216%_))))))) + (_%dispatch-case-e157213%_ + (lambda (_%hd157360%_ _%body157361%_) + (let* ((_%form157363%_ + (cons _%hd157360%_ (cons _%body157361%_ '()))) + (_%__stx160343160344%_ _%form157363%_) + (_%g157367157491%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx156696156697%_))))) - (let ((_%__kont156698156699%_ - (lambda (_%L154193%_ _%L154194%_ _%L154195%_) - (let ((__tmp157862 + _%__stx160343160344%_))))) + (let ((_%__kont160345160346%_ + (lambda (_%g157369157856%_ + _%g157370157857%_ + _%g157371157858%_) + (let ((__tmp161509 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L154194%_ '())))) + (cons _%g157370157857%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self153536%_ - __tmp157862)))) - (_%__kont156704156705%_ - (lambda (_%L154041%_ - _%L154042%_ - _%L154043%_ - _%L154044%_) - (let ((__tmp157863 + _%self157209%_ + __tmp161509)))) + (_%__kont160351160352%_ + (lambda (_%g157414157708%_ + _%g157415157709%_ + _%g157416157710%_ + _%g157417157711%_) + (let ((__tmp161510 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L154041%_ '())))) + (cons _%g157414157708%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self153536%_ - __tmp157863)))) - (_%__kont156708156709%_ - (lambda (_%L153907%_ _%L153908%_ _%L153909%_) - (let ((__tmp157864 + _%self157209%_ + __tmp161510)))) + (_%__kont160355160356%_ + (lambda (_%g157454157576%_ + _%g157455157577%_ + _%g157456157578%_) + (let ((__tmp161511 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L153907%_ '())))) + (cons _%g157454157576%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self153536%_ - __tmp157864))))) - (let* ((_%__match156805156806%_ - (lambda (_%e153788153827%_ - _%hd153789153830%_ - _%tl153790153832%_ - _%e153791153835%_ - _%hd153792153838%_ - _%tl153793153840%_ - _%e153794153843%_ - _%hd153795153846%_ - _%tl153796153848%_ - _%e153797153851%_ - _%hd153798153854%_ - _%tl153799153856%_ - _%e153800153859%_ - _%hd153801153862%_ - _%tl153802153864%_ - _%e153803153867%_ - _%hd153804153870%_ - _%tl153805153872%_ - _%e153806153875%_ - _%hd153807153878%_ - _%tl153808153880%_ - _%e153809153883%_ - _%hd153810153886%_ - _%tl153811153888%_ - _%e153812153891%_ - _%hd153813153894%_ - _%tl153814153896%_) + _%self157209%_ + __tmp161511))))) + (let* ((_%__match160452160453%_ + (lambda (_%e157457157496%_ + _%hd157458157499%_ + _%tl157459157501%_ + _%e157460157504%_ + _%hd157461157507%_ + _%tl157462157509%_ + _%e157463157512%_ + _%hd157464157515%_ + _%tl157465157517%_ + _%e157466157520%_ + _%hd157467157523%_ + _%tl157468157525%_ + _%e157469157528%_ + _%hd157470157531%_ + _%tl157471157533%_ + _%e157472157536%_ + _%hd157473157539%_ + _%tl157474157541%_ + _%e157475157544%_ + _%hd157476157547%_ + _%tl157477157549%_ + _%e157478157552%_ + _%hd157479157555%_ + _%tl157480157557%_ + _%e157481157560%_ + _%hd157482157563%_ + _%tl157483157565%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153808153880%_)) - (let ((_%e153815153899%_ + (gx#stx-pair? _%tl157477157549%_)) + (let ((_%e157484157568%_ (let () (declare (not safe)) - (gx#stx-e _%tl153808153880%_)))) - (let ((_%tl153817153904%_ + (gx#stx-e _%tl157477157549%_)))) + (let ((_%tl157486157573%_ (let () (declare (not safe)) - (##cdr _%e153815153899%_))) - (_%hd153816153902%_ + (##cdr _%e157484157568%_))) + (_%hd157485157571%_ (let () (declare (not safe)) - (##car _%e153815153899%_)))) + (##car _%e157484157568%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153817153904%_)) + _%tl157486157573%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153793153840%_)) - (_%__kont156708156709%_ - _%hd153813153894%_ - _%hd153804153870%_ - _%hd153789153830%_) + _%tl157462157509%_)) + (_%__kont160355160356%_ + _%hd157482157563%_ + _%hd157473157539%_ + _%hd157458157499%_) (let () (declare (not safe)) - (_%g153698153822%_))) + (_%g157367157491%_))) (let () (declare (not safe)) - (_%g153698153822%_))))) + (_%g157367157491%_))))) (let () (declare (not safe)) - (_%g153698153822%_))))) - (_%__match156735156736%_ - (lambda (_%e153749153945%_ - _%hd153750153948%_ - _%tl153751153950%_ - _%__splice156706156707%_ - _%target153752153953%_ - _%tl153754153955%_) - (letrec ((_%loop153755153958%_ - (lambda (_%hd153753153961%_ - _%arg153759153963%_) + (_%g157367157491%_))))) + (_%__match160382160383%_ + (lambda (_%e157418157614%_ + _%hd157419157617%_ + _%tl157420157619%_ + _%__splice160353160354%_ + _%target157421157622%_ + _%tl157423157624%_) + (letrec ((_%loop157424157627%_ + (lambda (_%hd157422157630%_ + _%arg157428157632%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153753153961%_)) - (let ((_%e153756153966%_ + _%hd157422157630%_)) + (let ((_%e157425157634%_ (let () (declare (not safe)) (gx#stx-e - _%hd153753153961%_)))) - (let ((_%lp-tl153758153971%_ + _%hd157422157630%_)))) + (let ((_%lp-tl157427157639%_ (let () (declare (not safe)) - (##cdr _%e153756153966%_))) - (_%lp-hd153757153969%_ + (##cdr _%e157425157634%_))) + (_%lp-hd157426157637%_ (let () (declare (not safe)) - (##car _%e153756153966%_)))) - (_%loop153755153958%_ - _%lp-tl153758153971%_ - (cons _%lp-hd153757153969%_ - _%arg153759153963%_)))) - (let ((_%arg153760153974%_ - (reverse _%arg153759153963%_))) + (##car _%e157425157634%_)))) + (_%loop157424157627%_ + _%lp-tl157427157639%_ + (cons _%lp-hd157426157637%_ + _%arg157428157632%_)))) + (let ((_%arg157429157642%_ + (reverse _%arg157428157632%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153751153950%_)) - (let ((_%e153761153977%_ + _%tl157420157619%_)) + (let ((_%e157430157644%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl153751153950%_)))) - (let ((_%tl153763153982%_ + (gx#stx-e _%tl157420157619%_)))) + (let ((_%tl157432157649%_ (let () (declare (not safe)) - (##cdr _%e153761153977%_))) - (_%hd153762153980%_ + (##cdr _%e157430157644%_))) + (_%hd157431157647%_ (let () (declare (not safe)) - (##car _%e153761153977%_)))) + (##car _%e157430157644%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153762153980%_)) - (let ((_%e153764153985%_ + (gx#stx-pair? _%hd157431157647%_)) + (let ((_%e157433157652%_ (let () (declare (not safe)) - (gx#stx-e _%hd153762153980%_)))) - (let ((_%tl153766153990%_ + (gx#stx-e _%hd157431157647%_)))) + (let ((_%tl157435157657%_ (let () (declare (not safe)) - (##cdr _%e153764153985%_))) - (_%hd153765153988%_ + (##cdr _%e157433157652%_))) + (_%hd157434157655%_ (let () (declare (not safe)) - (##car _%e153764153985%_)))) + (##car _%e157433157652%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd153765153988%_)) + (gx#identifier? _%hd157434157655%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd153765153988%_)) + (gx#stx-eq? '%#call _%hd157434157655%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153766153990%_)) - (let ((_%e153767153993%_ + (gx#stx-pair? _%tl157435157657%_)) + (let ((_%e157436157660%_ (let () (declare (not safe)) (gx#stx-e - _%tl153766153990%_)))) - (let ((_%tl153769153998%_ + _%tl157435157657%_)))) + (let ((_%tl157438157665%_ (let () (declare (not safe)) - (##cdr _%e153767153993%_))) - (_%hd153768153996%_ + (##cdr _%e157436157660%_))) + (_%hd157437157663%_ (let () (declare (not safe)) - (##car _%e153767153993%_)))) + (##car _%e157436157660%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153768153996%_)) - (let ((_%e153770154001%_ + _%hd157437157663%_)) + (let ((_%e157439157668%_ (let () (declare (not safe)) (gx#stx-e - _%hd153768153996%_)))) - (let ((_%tl153772154006%_ + _%hd157437157663%_)))) + (let ((_%tl157441157673%_ (let () (declare (not safe)) - (##cdr _%e153770154001%_))) - (_%hd153771154004%_ + (##cdr _%e157439157668%_))) + (_%hd157440157671%_ (let () (declare (not safe)) - (##car _%e153770154001%_)))) + (##car _%e157439157668%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd153771154004%_)) + _%hd157440157671%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd153771154004%_)) + _%hd157440157671%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl153772154006%_)) - (let ((_%e153773154009%_ + (gx#stx-pair? _%tl157441157673%_)) + (let ((_%e157442157676%_ (let () (declare (not safe)) - (gx#stx-e _%tl153772154006%_)))) - (let ((_%tl153775154014%_ + (gx#stx-e _%tl157441157673%_)))) + (let ((_%tl157444157681%_ (let () (declare (not safe)) - (##cdr _%e153773154009%_))) - (_%hd153774154012%_ + (##cdr _%e157442157676%_))) + (_%hd157443157679%_ (let () (declare (not safe)) - (##car _%e153773154009%_)))) + (##car _%e157442157676%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153775154014%_)) + (gx#stx-null? _%tl157444157681%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153769153998%_)) - (let ((_%e153776154017%_ + (gx#stx-pair? _%tl157438157665%_)) + (let ((_%e157445157684%_ (let () (declare (not safe)) - (gx#stx-e _%tl153769153998%_)))) - (let ((_%tl153778154022%_ + (gx#stx-e _%tl157438157665%_)))) + (let ((_%tl157447157689%_ (let () (declare (not safe)) - (##cdr _%e153776154017%_))) - (_%hd153777154020%_ + (##cdr _%e157445157684%_))) + (_%hd157446157687%_ (let () (declare (not safe)) - (##car _%e153776154017%_)))) + (##car _%e157445157684%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153777154020%_)) - (let ((_%e153779154025%_ + _%hd157446157687%_)) + (let ((_%e157448157692%_ (let () (declare (not safe)) (gx#stx-e - _%hd153777154020%_)))) - (let ((_%tl153781154030%_ + _%hd157446157687%_)))) + (let ((_%tl157450157697%_ (let () (declare (not safe)) - (##cdr _%e153779154025%_))) - (_%hd153780154028%_ + (##cdr _%e157448157692%_))) + (_%hd157449157695%_ (let () (declare (not safe)) - (##car _%e153779154025%_)))) + (##car _%e157448157692%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd153780154028%_)) + _%hd157449157695%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd153780154028%_)) + _%hd157449157695%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153781154030%_)) - (let ((_%e153782154033%_ + _%tl157450157697%_)) + (let ((_%e157451157700%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl153781154030%_)))) - (let ((_%tl153784154038%_ + (gx#stx-e _%tl157450157697%_)))) + (let ((_%tl157453157705%_ (let () (declare (not safe)) - (##cdr _%e153782154033%_))) - (_%hd153783154036%_ + (##cdr _%e157451157700%_))) + (_%hd157452157703%_ (let () (declare (not safe)) - (##car _%e153782154033%_)))) + (##car _%e157451157700%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153784154038%_)) + (gx#stx-null? _%tl157453157705%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153763153982%_)) - (_%__kont156704156705%_ - _%hd153783154036%_ - _%hd153774154012%_ - _%tl153754153955%_ - _%arg153760153974%_) - (_%__match156805156806%_ - _%e153749153945%_ - _%hd153750153948%_ - _%tl153751153950%_ - _%e153761153977%_ - _%hd153762153980%_ - _%tl153763153982%_ - _%e153764153985%_ - _%hd153765153988%_ - _%tl153766153990%_ - _%e153767153993%_ - _%hd153768153996%_ - _%tl153769153998%_ - _%e153770154001%_ - _%hd153771154004%_ - _%tl153772154006%_ - _%e153773154009%_ - _%hd153774154012%_ - _%tl153775154014%_ - _%e153776154017%_ - _%hd153777154020%_ - _%tl153778154022%_ - _%e153779154025%_ - _%hd153780154028%_ - _%tl153781154030%_ - _%e153782154033%_ - _%hd153783154036%_ - _%tl153784154038%_)) + (gx#stx-null? _%tl157432157649%_)) + (_%__kont160351160352%_ + _%hd157452157703%_ + _%hd157443157679%_ + _%tl157423157624%_ + _%arg157429157642%_) + (_%__match160452160453%_ + _%e157418157614%_ + _%hd157419157617%_ + _%tl157420157619%_ + _%e157430157644%_ + _%hd157431157647%_ + _%tl157432157649%_ + _%e157433157652%_ + _%hd157434157655%_ + _%tl157435157657%_ + _%e157436157660%_ + _%hd157437157663%_ + _%tl157438157665%_ + _%e157439157668%_ + _%hd157440157671%_ + _%tl157441157673%_ + _%e157442157676%_ + _%hd157443157679%_ + _%tl157444157681%_ + _%e157445157684%_ + _%hd157446157687%_ + _%tl157447157689%_ + _%e157448157692%_ + _%hd157449157695%_ + _%tl157450157697%_ + _%e157451157700%_ + _%hd157452157703%_ + _%tl157453157705%_)) (let () (declare (not safe)) - (_%g153698153822%_))))) - (let () (declare (not safe)) (_%g153698153822%_))) - (let () (declare (not safe)) (_%g153698153822%_))) + (_%g157367157491%_))))) + (let () (declare (not safe)) (_%g157367157491%_))) + (let () (declare (not safe)) (_%g157367157491%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g153698153822%_))))) + (_%g157367157491%_))))) (let () (declare (not safe)) - (_%g153698153822%_))))) + (_%g157367157491%_))))) (let () (declare (not safe)) - (_%g153698153822%_))) + (_%g157367157491%_))) (let () (declare (not safe)) - (_%g153698153822%_))))) - (let () (declare (not safe)) (_%g153698153822%_))) - (let () (declare (not safe)) (_%g153698153822%_))) - (let () (declare (not safe)) (_%g153698153822%_))))) + (_%g157367157491%_))))) + (let () (declare (not safe)) (_%g157367157491%_))) + (let () (declare (not safe)) (_%g157367157491%_))) + (let () (declare (not safe)) (_%g157367157491%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g153698153822%_))))) + (_%g157367157491%_))))) (let () (declare (not safe)) - (_%g153698153822%_))) + (_%g157367157491%_))) (let () (declare (not safe)) - (_%g153698153822%_))) + (_%g157367157491%_))) (let () (declare (not safe)) - (_%g153698153822%_))))) - (let () (declare (not safe)) (_%g153698153822%_))))) - (let () (declare (not safe)) (_%g153698153822%_)))))))) + (_%g157367157491%_))))) + (let () (declare (not safe)) (_%g157367157491%_))))) + (let () (declare (not safe)) (_%g157367157491%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop153755153958%_ - _%target153752153953%_ + (_%loop157424157627%_ + _%target157421157622%_ '())))) - (_%__match156723156724%_ - (lambda (_%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_) - (letrec ((_%loop153709154094%_ - (lambda (_%hd153707154097%_ - _%arg153713154099%_) + (_%__match160370160371%_ + (lambda (_%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_) + (letrec ((_%loop157378157761%_ + (lambda (_%hd157376157764%_ + _%arg157382157766%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153707154097%_)) - (let ((_%e153710154102%_ + _%hd157376157764%_)) + (let ((_%e157379157768%_ (let () (declare (not safe)) (gx#stx-e - _%hd153707154097%_)))) - (let ((_%lp-tl153712154107%_ + _%hd157376157764%_)))) + (let ((_%lp-tl157381157773%_ (let () (declare (not safe)) - (##cdr _%e153710154102%_))) - (_%lp-hd153711154105%_ + (##cdr _%e157379157768%_))) + (_%lp-hd157380157771%_ (let () (declare (not safe)) - (##car _%e153710154102%_)))) - (_%loop153709154094%_ - _%lp-tl153712154107%_ - (cons _%lp-hd153711154105%_ - _%arg153713154099%_)))) - (let ((_%arg153714154110%_ - (reverse _%arg153713154099%_))) + (##car _%e157379157768%_)))) + (_%loop157378157761%_ + _%lp-tl157381157773%_ + (cons _%lp-hd157380157771%_ + _%arg157382157766%_)))) + (let ((_%arg157383157776%_ + (reverse _%arg157382157766%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153705154086%_)) - (let ((_%e153715154113%_ + _%tl157374157753%_)) + (let ((_%e157384157778%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl153705154086%_)))) - (let ((_%tl153717154118%_ + (gx#stx-e _%tl157374157753%_)))) + (let ((_%tl157386157783%_ (let () (declare (not safe)) - (##cdr _%e153715154113%_))) - (_%hd153716154116%_ + (##cdr _%e157384157778%_))) + (_%hd157385157781%_ (let () (declare (not safe)) - (##car _%e153715154113%_)))) + (##car _%e157384157778%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153716154116%_)) - (let ((_%e153718154121%_ + (gx#stx-pair? _%hd157385157781%_)) + (let ((_%e157387157786%_ (let () (declare (not safe)) - (gx#stx-e _%hd153716154116%_)))) - (let ((_%tl153720154126%_ + (gx#stx-e _%hd157385157781%_)))) + (let ((_%tl157389157791%_ (let () (declare (not safe)) - (##cdr _%e153718154121%_))) - (_%hd153719154124%_ + (##cdr _%e157387157786%_))) + (_%hd157388157789%_ (let () (declare (not safe)) - (##car _%e153718154121%_)))) + (##car _%e157387157786%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd153719154124%_)) + (gx#identifier? _%hd157388157789%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd153719154124%_)) + (gx#stx-eq? '%#call _%hd157388157789%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153720154126%_)) - (let ((_%e153721154129%_ + (gx#stx-pair? _%tl157389157791%_)) + (let ((_%e157390157794%_ (let () (declare (not safe)) (gx#stx-e - _%tl153720154126%_)))) - (let ((_%tl153723154134%_ + _%tl157389157791%_)))) + (let ((_%tl157392157799%_ (let () (declare (not safe)) - (##cdr _%e153721154129%_))) - (_%hd153722154132%_ + (##cdr _%e157390157794%_))) + (_%hd157391157797%_ (let () (declare (not safe)) - (##car _%e153721154129%_)))) + (##car _%e157390157794%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153722154132%_)) - (let ((_%e153724154137%_ + _%hd157391157797%_)) + (let ((_%e157393157802%_ (let () (declare (not safe)) (gx#stx-e - _%hd153722154132%_)))) - (let ((_%tl153726154142%_ + _%hd157391157797%_)))) + (let ((_%tl157395157807%_ (let () (declare (not safe)) - (##cdr _%e153724154137%_))) - (_%hd153725154140%_ + (##cdr _%e157393157802%_))) + (_%hd157394157805%_ (let () (declare (not safe)) - (##car _%e153724154137%_)))) + (##car _%e157393157802%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd153725154140%_)) + _%hd157394157805%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd153725154140%_)) + _%hd157394157805%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl153726154142%_)) - (let ((_%e153727154145%_ + (gx#stx-pair? _%tl157395157807%_)) + (let ((_%e157396157810%_ (let () (declare (not safe)) - (gx#stx-e _%tl153726154142%_)))) - (let ((_%tl153729154150%_ + (gx#stx-e _%tl157395157807%_)))) + (let ((_%tl157398157815%_ (let () (declare (not safe)) - (##cdr _%e153727154145%_))) - (_%hd153728154148%_ + (##cdr _%e157396157810%_))) + (_%hd157397157813%_ (let () (declare (not safe)) - (##car _%e153727154145%_)))) + (##car _%e157396157810%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153729154150%_)) + (gx#stx-null? _%tl157398157815%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl153723154134%_)) - (let ((_%__splice156702156703%_ + (gx#stx-pair/null? _%tl157392157799%_)) + (let ((_%__splice160349160350%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl153723154134%_ + _%tl157392157799%_ '0)))) - (let ((_%tl153732154155%_ + (let ((_%tl157401157820%_ (let () (declare (not safe)) (##vector-ref - _%__splice156702156703%_ + _%__splice160349160350%_ '1))) - (_%target153730154153%_ + (_%target157399157818%_ (let () (declare (not safe)) (##vector-ref - _%__splice156702156703%_ + _%__splice160349160350%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153732154155%_)) - (letrec ((_%loop153733154158%_ - (lambda (_%hd153731154161%_ - _%xarg153737154163%_) + _%tl157401157820%_)) + (letrec ((_%loop157402157823%_ + (lambda (_%hd157400157826%_ + _%xarg157406157828%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153731154161%_)) - (let ((_%e153734154166%_ + _%hd157400157826%_)) + (let ((_%e157403157830%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd153731154161%_)))) - (let ((_%lp-tl153736154171%_ + (gx#stx-e _%hd157400157826%_)))) + (let ((_%lp-tl157405157835%_ (let () (declare (not safe)) - (##cdr _%e153734154166%_))) - (_%lp-hd153735154169%_ + (##cdr _%e157403157830%_))) + (_%lp-hd157404157833%_ (let () (declare (not safe)) - (##car _%e153734154166%_)))) + (##car _%e157403157830%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd153735154169%_)) - (let ((_%e153739154174%_ + (gx#stx-pair? _%lp-hd157404157833%_)) + (let ((_%e157408157838%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd153735154169%_)))) - (let ((_%tl153741154179%_ + (gx#stx-e _%lp-hd157404157833%_)))) + (let ((_%tl157410157843%_ (let () (declare (not safe)) - (##cdr _%e153739154174%_))) - (_%hd153740154177%_ + (##cdr _%e157408157838%_))) + (_%hd157409157841%_ (let () (declare (not safe)) - (##car _%e153739154174%_)))) + (##car _%e157408157838%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd153740154177%_)) + (gx#identifier? _%hd157409157841%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd153740154177%_)) + _%hd157409157841%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153741154179%_)) - (let ((_%e153742154182%_ + _%tl157410157843%_)) + (let ((_%e157411157846%_ (let () (declare (not safe)) (gx#stx-e - _%tl153741154179%_)))) - (let ((_%tl153744154187%_ + _%tl157410157843%_)))) + (let ((_%tl157413157851%_ (let () (declare (not safe)) - (##cdr _%e153742154182%_))) - (_%hd153743154185%_ + (##cdr _%e157411157846%_))) + (_%hd157412157849%_ (let () (declare (not safe)) - (##car _%e153742154182%_)))) + (##car _%e157411157846%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153744154187%_)) - (_%loop153733154158%_ - _%lp-tl153736154171%_ - (cons _%hd153743154185%_ - _%xarg153737154163%_)) - (_%__match156735156736%_ - _%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_)))) - (_%__match156735156736%_ - _%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_)) - (_%__match156735156736%_ - _%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_)) - (_%__match156735156736%_ - _%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_)))) - (_%__match156735156736%_ - _%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_)))) - (let ((_%xarg153738154190%_ - (reverse _%xarg153737154163%_))) + _%tl157413157851%_)) + (_%loop157402157823%_ + _%lp-tl157405157835%_ + (cons _%hd157412157849%_ + _%xarg157406157828%_)) + (_%__match160382160383%_ + _%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_)))) + (_%__match160382160383%_ + _%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_)) + (_%__match160382160383%_ + _%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_)) + (_%__match160382160383%_ + _%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_)))) + (_%__match160382160383%_ + _%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_)))) + (let ((_%xarg157407157854%_ + (reverse _%xarg157406157828%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153717154118%_)) - (_%__kont156698156699%_ - _%xarg153738154190%_ - _%hd153728154148%_ - _%arg153714154110%_) - (_%__match156735156736%_ - _%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop153733154158%_ - _%target153730154153%_ + (gx#stx-null? _%tl157386157783%_)) + (_%__kont160345160346%_ + _%xarg157407157854%_ + _%hd157397157813%_ + _%arg157383157776%_) + (_%__match160382160383%_ + _%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop157402157823%_ + _%target157399157818%_ '())) - (_%__match156735156736%_ - _%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_)))) - (_%__match156735156736%_ - _%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_)) - (_%__match156735156736%_ - _%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_)))) - (_%__match156735156736%_ - _%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_)) - (_%__match156735156736%_ - _%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_)) - (_%__match156735156736%_ - _%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match156735156736%_ - _%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_)))) - (_%__match156735156736%_ - _%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_)) - (_%__match156735156736%_ - _%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_)) - (_%__match156735156736%_ - _%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_)))) - (_%__match156735156736%_ - _%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_)))) - (_%__match156735156736%_ - _%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop153709154094%_ - _%target153706154089%_ + (_%__match160382160383%_ + _%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_)))) + (_%__match160382160383%_ + _%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_)) + (_%__match160382160383%_ + _%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_)))) + (_%__match160382160383%_ + _%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_)) + (_%__match160382160383%_ + _%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_)) + (_%__match160382160383%_ + _%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match160382160383%_ + _%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_)))) + (_%__match160382160383%_ + _%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_)) + (_%__match160382160383%_ + _%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_)) + (_%__match160382160383%_ + _%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_)))) + (_%__match160382160383%_ + _%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_)))) + (_%__match160382160383%_ + _%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop157378157761%_ + _%target157375157756%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx156696156697%_)) - (let ((_%e153703154081%_ + (gx#stx-pair? _%__stx160343160344%_)) + (let ((_%e157372157748%_ (let () (declare (not safe)) - (gx#stx-e _%__stx156696156697%_)))) - (let ((_%tl153705154086%_ + (gx#stx-e _%__stx160343160344%_)))) + (let ((_%tl157374157753%_ (let () (declare (not safe)) - (##cdr _%e153703154081%_))) - (_%hd153704154084%_ + (##cdr _%e157372157748%_))) + (_%hd157373157751%_ (let () (declare (not safe)) - (##car _%e153703154081%_)))) + (##car _%e157372157748%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd153704154084%_)) - (let ((_%__splice156700156701%_ + (gx#stx-pair/null? _%hd157373157751%_)) + (let ((_%__splice160347160348%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%hd153704154084%_ + _%hd157373157751%_ '0)))) - (let ((_%tl153708154091%_ + (let ((_%tl157377157758%_ (let () (declare (not safe)) (##vector-ref - _%__splice156700156701%_ + _%__splice160347160348%_ '1))) - (_%target153706154089%_ + (_%target157375157756%_ (let () (declare (not safe)) (##vector-ref - _%__splice156700156701%_ + _%__splice160347160348%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153708154091%_)) - (_%__match156723156724%_ - _%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_) - (_%__match156735156736%_ - _%e153703154081%_ - _%hd153704154084%_ - _%tl153705154086%_ - _%__splice156700156701%_ - _%target153706154089%_ - _%tl153708154091%_)))) + _%tl157377157758%_)) + (_%__match160370160371%_ + _%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_) + (_%__match160382160383%_ + _%e157372157748%_ + _%hd157373157751%_ + _%tl157374157753%_ + _%__splice160347160348%_ + _%target157375157756%_ + _%tl157377157758%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153705154086%_)) - (let ((_%e153791153835%_ + (gx#stx-pair? _%tl157374157753%_)) + (let ((_%e157460157504%_ (let () (declare (not safe)) (gx#stx-e - _%tl153705154086%_)))) - (let ((_%tl153793153840%_ + _%tl157374157753%_)))) + (let ((_%tl157462157509%_ (let () (declare (not safe)) - (##cdr _%e153791153835%_))) - (_%hd153792153838%_ + (##cdr _%e157460157504%_))) + (_%hd157461157507%_ (let () (declare (not safe)) - (##car _%e153791153835%_)))) + (##car _%e157460157504%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153792153838%_)) - (let ((_%e153794153843%_ + _%hd157461157507%_)) + (let ((_%e157463157512%_ (let () (declare (not safe)) (gx#stx-e - _%hd153792153838%_)))) - (let ((_%tl153796153848%_ + _%hd157461157507%_)))) + (let ((_%tl157465157517%_ (let () (declare (not safe)) - (##cdr _%e153794153843%_))) - (_%hd153795153846%_ + (##cdr _%e157463157512%_))) + (_%hd157464157515%_ (let () (declare (not safe)) - (##car _%e153794153843%_)))) + (##car _%e157463157512%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd153795153846%_)) + _%hd157464157515%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _%hd153795153846%_)) + (gx#stx-eq? '%#call _%hd157464157515%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153796153848%_)) - (let ((_%e153797153851%_ + (gx#stx-pair? _%tl157465157517%_)) + (let ((_%e157466157520%_ (let () (declare (not safe)) - (gx#stx-e _%tl153796153848%_)))) - (let ((_%tl153799153856%_ + (gx#stx-e _%tl157465157517%_)))) + (let ((_%tl157468157525%_ (let () (declare (not safe)) - (##cdr _%e153797153851%_))) - (_%hd153798153854%_ + (##cdr _%e157466157520%_))) + (_%hd157467157523%_ (let () (declare (not safe)) - (##car _%e153797153851%_)))) + (##car _%e157466157520%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153798153854%_)) - (let ((_%e153800153859%_ + (gx#stx-pair? _%hd157467157523%_)) + (let ((_%e157469157528%_ (let () (declare (not safe)) - (gx#stx-e _%hd153798153854%_)))) - (let ((_%tl153802153864%_ + (gx#stx-e _%hd157467157523%_)))) + (let ((_%tl157471157533%_ (let () (declare (not safe)) - (##cdr _%e153800153859%_))) - (_%hd153801153862%_ + (##cdr _%e157469157528%_))) + (_%hd157470157531%_ (let () (declare (not safe)) - (##car _%e153800153859%_)))) + (##car _%e157469157528%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd153801153862%_)) + _%hd157470157531%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd153801153862%_)) + _%hd157470157531%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153802153864%_)) - (let ((_%e153803153867%_ + _%tl157471157533%_)) + (let ((_%e157472157536%_ (let () (declare (not safe)) (gx#stx-e - _%tl153802153864%_)))) - (let ((_%tl153805153872%_ + _%tl157471157533%_)))) + (let ((_%tl157474157541%_ (let () (declare (not safe)) - (##cdr _%e153803153867%_))) - (_%hd153804153870%_ + (##cdr _%e157472157536%_))) + (_%hd157473157539%_ (let () (declare (not safe)) - (##car _%e153803153867%_)))) + (##car _%e157472157536%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153805153872%_)) + _%tl157474157541%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl153799153856%_)) - (let ((_%e153806153875%_ + (gx#stx-pair? _%tl157468157525%_)) + (let ((_%e157475157544%_ (let () (declare (not safe)) - (gx#stx-e _%tl153799153856%_)))) - (let ((_%tl153808153880%_ + (gx#stx-e _%tl157468157525%_)))) + (let ((_%tl157477157549%_ (let () (declare (not safe)) - (##cdr _%e153806153875%_))) - (_%hd153807153878%_ + (##cdr _%e157475157544%_))) + (_%hd157476157547%_ (let () (declare (not safe)) - (##car _%e153806153875%_)))) + (##car _%e157475157544%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153807153878%_)) - (let ((_%e153809153883%_ + (gx#stx-pair? _%hd157476157547%_)) + (let ((_%e157478157552%_ (let () (declare (not safe)) - (gx#stx-e _%hd153807153878%_)))) - (let ((_%tl153811153888%_ + (gx#stx-e _%hd157476157547%_)))) + (let ((_%tl157480157557%_ (let () (declare (not safe)) - (##cdr _%e153809153883%_))) - (_%hd153810153886%_ + (##cdr _%e157478157552%_))) + (_%hd157479157555%_ (let () (declare (not safe)) - (##car _%e153809153883%_)))) + (##car _%e157478157552%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd153810153886%_)) + (gx#identifier? _%hd157479157555%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd153810153886%_)) + _%hd157479157555%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153811153888%_)) - (let ((_%e153812153891%_ + _%tl157480157557%_)) + (let ((_%e157481157560%_ (let () (declare (not safe)) (gx#stx-e - _%tl153811153888%_)))) - (let ((_%tl153814153896%_ + _%tl157480157557%_)))) + (let ((_%tl157483157565%_ (let () (declare (not safe)) - (##cdr _%e153812153891%_))) - (_%hd153813153894%_ + (##cdr _%e157481157560%_))) + (_%hd157482157563%_ (let () (declare (not safe)) - (##car _%e153812153891%_)))) + (##car _%e157481157560%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153814153896%_)) + _%tl157483157565%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl153808153880%_)) - (let ((_%e153815153899%_ + _%tl157477157549%_)) + (let ((_%e157484157568%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl153808153880%_)))) - (let ((_%tl153817153904%_ + (gx#stx-e _%tl157477157549%_)))) + (let ((_%tl157486157573%_ (let () (declare (not safe)) - (##cdr _%e153815153899%_))) - (_%hd153816153902%_ + (##cdr _%e157484157568%_))) + (_%hd157485157571%_ (let () (declare (not safe)) - (##car _%e153815153899%_)))) + (##car _%e157484157568%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153817153904%_)) + (gx#stx-null? _%tl157486157573%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153793153840%_)) - (_%__kont156708156709%_ - _%hd153813153894%_ - _%hd153804153870%_ - _%hd153704154084%_) + (gx#stx-null? _%tl157462157509%_)) + (_%__kont160355160356%_ + _%hd157482157563%_ + _%hd157473157539%_ + _%hd157373157751%_) (let () (declare (not safe)) - (_%g153698153822%_))) - (let () (declare (not safe)) (_%g153698153822%_))))) - (let () (declare (not safe)) (_%g153698153822%_))) - (let () (declare (not safe)) (_%g153698153822%_))))) + (_%g157367157491%_))) + (let () (declare (not safe)) (_%g157367157491%_))))) + (let () (declare (not safe)) (_%g157367157491%_))) + (let () (declare (not safe)) (_%g157367157491%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g153698153822%_))) + (_%g157367157491%_))) (let () (declare (not safe)) - (_%g153698153822%_))) + (_%g157367157491%_))) (let () (declare (not safe)) - (_%g153698153822%_))))) + (_%g157367157491%_))))) (let () (declare (not safe)) - (_%g153698153822%_))))) - (let () (declare (not safe)) (_%g153698153822%_))) - (let () (declare (not safe)) (_%g153698153822%_))))) + (_%g157367157491%_))))) + (let () (declare (not safe)) (_%g157367157491%_))) + (let () (declare (not safe)) (_%g157367157491%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g153698153822%_))) + (_%g157367157491%_))) (let () (declare (not safe)) - (_%g153698153822%_))) + (_%g157367157491%_))) (let () (declare (not safe)) - (_%g153698153822%_))))) + (_%g157367157491%_))))) (let () (declare (not safe)) - (_%g153698153822%_))))) - (let () (declare (not safe)) (_%g153698153822%_))) - (let () (declare (not safe)) (_%g153698153822%_))) - (let () (declare (not safe)) (_%g153698153822%_))))) + (_%g157367157491%_))))) + (let () (declare (not safe)) (_%g157367157491%_))) + (let () (declare (not safe)) (_%g157367157491%_))) + (let () (declare (not safe)) (_%g157367157491%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g153698153822%_))))) + (_%g157367157491%_))))) (let () (declare (not safe)) - (_%g153698153822%_)))))) + (_%g157367157491%_)))))) (let () (declare (not safe)) - (_%g153698153822%_)))))))) - (_%generate1153541%_ - (lambda (_%args153676%_ - _%arglen153677%_ - _%hd153678%_ - _%body153679%_) - (let* ((_%len153681%_ + (_%g157367157491%_)))))))) + (_%generate1157214%_ + (lambda (_%args157345%_ + _%arglen157346%_ + _%hd157347%_ + _%body157348%_) + (let* ((_%len157350%_ (let () (declare (not safe)) - (gx#stx-length _%hd153678%_))) - (_%condition153686%_ + (gx#stx-length _%hd157347%_))) + (_%condition157355%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd153678%_)) + (gx#stx-list? _%hd157347%_)) (if (gxc#current-compile-decls-unsafe?) (cons '##fx= - (cons _%arglen153677%_ - (cons _%len153681%_ '()))) + (cons _%arglen157346%_ + (cons _%len157350%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##fx= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%arglen153677%_ (cons _%len153681%_ '()))) + (cons _%arglen157346%_ (cons _%len157350%_ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (> _%len153681%_ '0) + (if (> _%len157350%_ '0) (if (gxc#current-compile-decls-unsafe?) (cons '##fx>= - (cons _%arglen153677%_ - (cons _%len153681%_ '()))) + (cons _%arglen157346%_ + (cons _%len157350%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##fx>= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%arglen153677%_ (cons _%len153681%_ '()))) + (cons _%arglen157346%_ (cons _%len157350%_ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#t))) - (_%dispatch153688%_ - (if (_%dispatch-case?153539%_ - _%hd153678%_ - _%body153679%_) - (_%dispatch-case-e153540%_ - _%hd153678%_ - _%body153679%_) + (_%dispatch157357%_ + (if (_%dispatch-case?157212%_ + _%hd157347%_ + _%body157348%_) + (_%dispatch-case-e157213%_ + _%hd157347%_ + _%body157348%_) (gxc#generate-runtime-lambda-form - _%self153536%_ - _%hd153678%_ - _%body153679%_)))) - (cons _%condition153686%_ + _%self157209%_ + _%hd157347%_ + _%body157348%_)))) + (cons _%condition157355%_ (cons (cons 'apply - (cons _%dispatch153688%_ - (cons _%args153676%_ '()))) + (cons _%dispatch157357%_ + (cons _%args157345%_ '()))) '())))))) - (let* ((_%g153543153571%_ - (lambda (_%g153544153568%_) + (let* ((_%g157216157244%_ + (lambda (_%g157217157241%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153544153568%_)))) - (_%g153542153673%_ - (lambda (_%g153544153574%_) + _%g157217157241%_)))) + (_%g157215157342%_ + (lambda (_%g157217157247%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153544153574%_)) - (let ((_%e153547153576%_ + (gx#stx-pair? _%g157217157247%_)) + (let ((_%e157220157249%_ (let () (declare (not safe)) - (gx#stx-e _%g153544153574%_)))) - (let ((_%hd153548153579%_ + (gx#stx-e _%g157217157247%_)))) + (let ((_%hd157221157252%_ (let () (declare (not safe)) - (##car _%e153547153576%_))) - (_%tl153549153581%_ + (##car _%e157220157249%_))) + (_%tl157222157254%_ (let () (declare (not safe)) - (##cdr _%e153547153576%_)))) + (##cdr _%e157220157249%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl153549153581%_)) - (let ((_g157865_ + (gx#stx-pair/null? _%tl157222157254%_)) + (let ((_g161512_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl153549153581%_ + _%tl157222157254%_ '0)))) (begin - (let ((_g157866_ + (let ((_g161513_ (let () (declare (not safe)) - (if (##values? _g157865_) - (##values-length _g157865_) + (if (##values? _g161512_) + (##values-length _g161512_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g157866_ 2))) + (##fx= _g161513_ 2))) (error "Context expects 2 values" - _g157866_))) - (let ((_%target153550153584%_ + _g161513_))) + (let ((_%target157223157257%_ (let () (declare (not safe)) - (##values-ref _g157865_ 0))) - (_%tl153552153586%_ + (##values-ref _g161512_ 0))) + (_%tl157225157259%_ (let () (declare (not safe)) - (##values-ref _g157865_ 1)))) + (##values-ref _g161512_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153552153586%_)) - (letrec ((_%loop153553153589%_ - (lambda (_%hd153551153592%_ - _%body153557153594%_ - _%hd153558153596%_) + (gx#stx-null? _%tl157225157259%_)) + (letrec ((_%loop157226157262%_ + (lambda (_%hd157224157265%_ + _%body157230157267%_ + _%hd157231157268%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153551153592%_)) - (let ((_%e153554153599%_ + _%hd157224157265%_)) + (let ((_%e157227157270%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd153551153592%_)))) - (let ((_%lp-hd153555153602%_ + (gx#stx-e _%hd157224157265%_)))) + (let ((_%lp-hd157228157273%_ (let () (declare (not safe)) - (##car _%e153554153599%_))) - (_%lp-tl153556153604%_ + (##car _%e157227157270%_))) + (_%lp-tl157229157275%_ (let () (declare (not safe)) - (##cdr _%e153554153599%_)))) + (##cdr _%e157227157270%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd153555153602%_)) - (let ((_%e153561153607%_ + (gx#stx-pair? _%lp-hd157228157273%_)) + (let ((_%e157234157278%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd153555153602%_)))) - (let ((_%hd153562153610%_ + (gx#stx-e _%lp-hd157228157273%_)))) + (let ((_%hd157235157281%_ (let () (declare (not safe)) - (##car _%e153561153607%_))) - (_%tl153563153612%_ + (##car _%e157234157278%_))) + (_%tl157236157283%_ (let () (declare (not safe)) - (##cdr _%e153561153607%_)))) + (##cdr _%e157234157278%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153563153612%_)) - (let ((_%e153564153615%_ + (gx#stx-pair? _%tl157236157283%_)) + (let ((_%e157237157286%_ (let () (declare (not safe)) - (gx#stx-e _%tl153563153612%_)))) - (let ((_%hd153565153618%_ + (gx#stx-e _%tl157236157283%_)))) + (let ((_%hd157238157289%_ (let () (declare (not safe)) - (##car _%e153564153615%_))) - (_%tl153566153620%_ + (##car _%e157237157286%_))) + (_%tl157239157291%_ (let () (declare (not safe)) - (##cdr _%e153564153615%_)))) + (##cdr _%e157237157286%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153566153620%_)) - (_%loop153553153589%_ - _%lp-tl153556153604%_ - (cons _%hd153565153618%_ - _%body153557153594%_) - (cons _%hd153562153610%_ - _%hd153558153596%_)) - (_%g153543153571%_ - _%g153544153574%_)))) - (_%g153543153571%_ _%g153544153574%_)))) - (_%g153543153571%_ _%g153544153574%_)))) - (let ((_%body153559153623%_ (reverse _%body153557153594%_)) - (_%hd153560153625%_ (reverse _%hd153558153596%_))) - ((lambda (_%L153628%_ _%L153629%_) - (let ((_%args153648%_ + (gx#stx-null? _%tl157239157291%_)) + (_%loop157226157262%_ + _%lp-tl157229157275%_ + (cons _%hd157238157289%_ + _%body157230157267%_) + (cons _%hd157235157281%_ + _%hd157231157268%_)) + (_%g157216157244%_ + _%g157217157247%_)))) + (_%g157216157244%_ _%g157217157247%_)))) + (_%g157216157244%_ _%g157217157247%_)))) + (let ((_%body157232157294%_ (reverse _%body157230157267%_)) + (_%hd157233157295%_ (reverse _%hd157231157268%_))) + ((lambda (_%g157218157297%_ _%g157219157298%_) + (let ((_%args157317%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%arglen153649%_ + (_%arglen157318%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%name153650%_ - (let ((_%$e153645%_ - (let ((__tmp157867 + (_%name157319%_ + (let ((_%$e157314%_ + (let ((__tmp161514 (let () (declare (not safe)) (gxc#current-compile-runtime-names)))) (declare (not safe)) - (hash-get __tmp157867 _%stx153537%_)))) - (if _%$e153645%_ - _%$e153645%_ + (hash-get __tmp161514 _%stx157210%_)))) + (if _%$e157314%_ + _%$e157314%_ ''case-lambda-dispatch)))) (cons 'lambda - (cons _%args153648%_ + (cons _%args157317%_ (cons (cons 'let - (cons (cons (cons _%arglen153649%_ + (cons (cons (cons _%arglen157318%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (if (gxc#current-compile-decls-unsafe?) - (cons '##length (cons _%args153648%_ '())) + (cons '##length (cons _%args157317%_ '())) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%args153648%_ '())) + (cons _%args157317%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons 'cond - (let ((__tmp157871 + (let ((__tmp161518 (cons (cons 'else (cons (cons '##raise-wrong-number-of-arguments-exception - (cons _%name153650%_ - (cons _%args153648%_ + (cons _%name157319%_ + (cons _%args157317%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) - (__tmp157868 - (map (lambda (_%g153651153654%_ - _%g153652153656%_) - (_%generate1153541%_ - _%args153648%_ - _%arglen153649%_ - _%g153651153654%_ - _%g153652153656%_)) - (let ((__tmp157869 - (lambda (_%g153658153661%_ - _%g153659153663%_) - (cons _%g153658153661%_ - _%g153659153663%_)))) + (__tmp161515 + (map (lambda (_%g157320157323%_ + _%g157321157325%_) + (_%generate1157214%_ + _%args157317%_ + _%arglen157318%_ + _%g157320157323%_ + _%g157321157325%_)) + (let ((__tmp161516 + (lambda (_%g157327157330%_ + _%g157328157332%_) + (cons _%g157327157330%_ + _%g157328157332%_)))) (declare (not safe)) (__foldr1 - __tmp157869 + __tmp161516 '() - _%L153629%_)) - (let ((__tmp157870 - (lambda (_%g153665153668%_ - _%g153666153670%_) - (cons _%g153665153668%_ - _%g153666153670%_)))) + _%g157219157298%_)) + (let ((__tmp161517 + (lambda (_%g157334157337%_ + _%g157335157339%_) + (cons _%g157334157337%_ + _%g157335157339%_)))) (declare (not safe)) (__foldr1 - __tmp157870 + __tmp161517 '() - _%L153628%_))))) + _%g157218157297%_))))) (declare (not safe)) - (__foldr1 cons __tmp157871 __tmp157868))) + (__foldr1 cons __tmp161518 __tmp161515))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%body153559153623%_ - _%hd153560153625%_)))))) + _%body157232157294%_ + _%hd157233157295%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop153553153589%_ - _%target153550153584%_ + (_%loop157226157262%_ + _%target157223157257%_ '() '())) - (_%g153543153571%_ - _%g153544153574%_))))) - (_%g153543153571%_ _%g153544153574%_)))) - (_%g153543153571%_ _%g153544153574%_))))) - (_%g153542153673%_ _%stx153537%_))))) + (_%g157216157244%_ + _%g157217157247%_))))) + (_%g157216157244%_ _%g157217157247%_)))) + (_%g157216157244%_ _%g157217157247%_))))) + (_%g157215157342%_ _%stx157210%_))))) (define gxc#generate-runtime-let-values%__% - (lambda (_%self152773%_ _%stx152774%_ _%compiled-body?152775%_) - (letrec ((_%generate-simple152777%_ - (lambda (_%hd153521%_ _%body153522%_) - (_%coalesce-boolean152778%_ - (_%simplify-let152779%_ + (lambda (_%self156446%_ _%stx156447%_ _%compiled-body?156448%_) + (letrec ((_%generate-simple156450%_ + (lambda (_%hd157194%_ _%body157195%_) + (_%coalesce-boolean156451%_ + (_%simplify-let156452%_ (gxc#generate-runtime-simple-let - _%self152773%_ + _%self156446%_ 'let - _%hd153521%_ - _%body153522%_ - _%compiled-body?152775%_))))) - (_%coalesce-boolean152778%_ - (lambda (_%code153382%_) + _%hd157194%_ + _%body157195%_ + _%compiled-body?156448%_))))) + (_%coalesce-boolean156451%_ + (lambda (_%code157055%_) (if (let () (declare (not safe)) (gxc#current-compile-boolean-context)) - (let* ((_%code153383153409%_ _%code153382%_) - (_%else153385153417%_ - (lambda () _%code153382%_)) - (_%K153387153454%_ - (lambda (_%expr2153420%_ - _%expr1153421%_ - _%id153422%_) - (let* ((_%expr2153423153431%_ - _%expr2153420%_) - (_%else153425153439%_ + (let* ((_%code157056157082%_ _%code157055%_) + (_%else157058157090%_ + (lambda () _%code157055%_)) + (_%K157060157127%_ + (lambda (_%expr2157093%_ + _%expr1157094%_ + _%id157095%_) + (let* ((_%expr2157096157104%_ + _%expr2157093%_) + (_%else157098157112%_ (lambda () (cons 'or - (cons _%expr1153421%_ - (cons _%expr2153420%_ + (cons _%expr1157094%_ + (cons _%expr2157093%_ '()))))) - (_%K153427153444%_ - (lambda (_%exprs153442%_) + (_%K157100157117%_ + (lambda (_%exprs157115%_) (cons 'or - (cons _%expr1153421%_ - _%exprs153442%_))))) - (if (pair? _%expr2153423153431%_) - (let ((_%hd153428153447%_ + (cons _%expr1157094%_ + _%exprs157115%_))))) + (if (pair? _%expr2157096157104%_) + (let ((_%hd157101157120%_ (let () (declare (not safe)) - (##car _%expr2153423153431%_))) - (_%tl153429153449%_ + (##car _%expr2157096157104%_))) + (_%tl157102157122%_ (let () (declare (not safe)) - (##cdr _%expr2153423153431%_)))) + (##cdr _%expr2157096157104%_)))) (if (let () (declare (not safe)) - (##eq? _%hd153428153447%_ 'or)) - (let ((_%exprs153452%_ - _%tl153429153449%_)) - (_%K153427153444%_ - _%exprs153452%_)) - (_%else153425153439%_))) - (_%else153425153439%_)))))) - (if (pair? _%code153383153409%_) - (let ((_%hd153388153457%_ + (##eq? _%hd157101157120%_ 'or)) + (let ((_%exprs157125%_ + _%tl157102157122%_)) + (_%K157100157117%_ + _%exprs157125%_)) + (_%else157098157112%_))) + (_%else157098157112%_)))))) + (if (pair? _%code157056157082%_) + (let ((_%hd157061157130%_ (let () (declare (not safe)) - (##car _%code153383153409%_))) - (_%tl153389153459%_ + (##car _%code157056157082%_))) + (_%tl157062157132%_ (let () (declare (not safe)) - (##cdr _%code153383153409%_)))) + (##cdr _%code157056157082%_)))) (if (let () (declare (not safe)) - (##eq? _%hd153388153457%_ 'let)) - (if (pair? _%tl153389153459%_) - (let ((_%hd153390153462%_ + (##eq? _%hd157061157130%_ 'let)) + (if (pair? _%tl157062157132%_) + (let ((_%hd157063157135%_ (let () (declare (not safe)) - (##car _%tl153389153459%_))) - (_%tl153391153464%_ + (##car _%tl157062157132%_))) + (_%tl157064157137%_ (let () (declare (not safe)) - (##cdr _%tl153389153459%_)))) - (if (pair? _%hd153390153462%_) - (let ((_%hd153402153467%_ + (##cdr _%tl157062157132%_)))) + (if (pair? _%hd157063157135%_) + (let ((_%hd157075157140%_ (let () (declare (not safe)) - (##car _%hd153390153462%_))) - (_%tl153403153469%_ + (##car _%hd157063157135%_))) + (_%tl157076157142%_ (let () (declare (not safe)) - (##cdr _%hd153390153462%_)))) - (if (pair? _%hd153402153467%_) - (let ((_%hd153404153472%_ + (##cdr _%hd157063157135%_)))) + (if (pair? _%hd157075157140%_) + (let ((_%hd157077157145%_ (let () (declare (not safe)) - (##car _%hd153402153467%_))) - (_%tl153405153474%_ + (##car _%hd157075157140%_))) + (_%tl157078157147%_ (let () (declare (not safe)) - (##cdr _%hd153402153467%_)))) - (let ((_%id153477%_ - _%hd153404153472%_)) - (if (pair? _%tl153405153474%_) - (let ((_%hd153406153479%_ + (##cdr _%hd157075157140%_)))) + (let ((_%id157150%_ + _%hd157077157145%_)) + (if (pair? _%tl157078157147%_) + (let ((_%hd157079157152%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%tl153405153474%_))) - (_%tl153407153481%_ + (##car _%tl157078157147%_))) + (_%tl157080157154%_ (let () (declare (not safe)) - (##cdr _%tl153405153474%_)))) - (let ((_%expr1153484%_ _%hd153406153479%_)) - (if (null? _%tl153407153481%_) - (if (null? _%tl153403153469%_) - (if (pair? _%tl153391153464%_) - (let ((_%hd153392153486%_ + (##cdr _%tl157078157147%_)))) + (let ((_%expr1157157%_ _%hd157079157152%_)) + (if (null? _%tl157080157154%_) + (if (null? _%tl157076157142%_) + (if (pair? _%tl157064157137%_) + (let ((_%hd157065157159%_ (let () (declare (not safe)) - (##car _%tl153391153464%_))) - (_%tl153393153488%_ + (##car _%tl157064157137%_))) + (_%tl157066157161%_ (let () (declare (not safe)) - (##cdr _%tl153391153464%_)))) - (if (pair? _%hd153392153486%_) - (let ((_%hd153394153491%_ + (##cdr _%tl157064157137%_)))) + (if (pair? _%hd157065157159%_) + (let ((_%hd157067157164%_ (let () (declare (not safe)) - (##car _%hd153392153486%_))) - (_%tl153395153493%_ + (##car _%hd157065157159%_))) + (_%tl157068157166%_ (let () (declare (not safe)) - (##cdr _%hd153392153486%_)))) + (##cdr _%hd157065157159%_)))) (if (let () (declare (not safe)) - (##eq? _%hd153394153491%_ + (##eq? _%hd157067157164%_ 'if)) - (if (pair? _%tl153395153493%_) - (let ((_%hd153396153496%_ + (if (pair? _%tl157068157166%_) + (let ((_%hd157069157169%_ (let () (declare (not safe)) - (##car _%tl153395153493%_))) - (_%tl153397153498%_ + (##car _%tl157068157166%_))) + (_%tl157070157171%_ (let () (declare (not safe)) - (##cdr _%tl153395153493%_)))) - (if ((lambda (_%g153500153502%_) - (eq? _%g153500153502%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id153477%_)) - _%hd153396153496%_) - (if (pair? _%tl153397153498%_) - (let ((_%hd153398153505%_ + (##cdr _%tl157068157166%_)))) + (if ((lambda (_%g157173157175%_) + (eq? _%g157173157175%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%id157150%_)) + _%hd157069157169%_) + (if (pair? _%tl157070157171%_) + (let ((_%hd157071157178%_ (let () (declare (not safe)) - (##car _%tl153397153498%_))) - (_%tl153399153507%_ + (##car _%tl157070157171%_))) + (_%tl157072157180%_ (let () (declare (not safe)) - (##cdr _%tl153397153498%_)))) - (if ((lambda (_%g153509153511%_) - (eq? _%g153509153511%_ _%id153477%_)) - _%hd153398153505%_) - (if (pair? _%tl153399153507%_) - (let ((_%hd153400153514%_ + (##cdr _%tl157070157171%_)))) + (if ((lambda (_%g157182157184%_) + (eq? _%g157182157184%_ _%id157150%_)) + _%hd157071157178%_) + (if (pair? _%tl157072157180%_) + (let ((_%hd157073157187%_ (let () (declare (not safe)) - (##car _%tl153399153507%_))) - (_%tl153401153516%_ + (##car _%tl157072157180%_))) + (_%tl157074157189%_ (let () (declare (not safe)) - (##cdr _%tl153399153507%_)))) - (let ((_%expr2153519%_ _%hd153400153514%_)) - (if (null? _%tl153401153516%_) - (if (null? _%tl153393153488%_) - (_%K153387153454%_ - _%expr2153519%_ - _%expr1153484%_ - _%id153477%_) - (_%else153385153417%_)) - (_%else153385153417%_)))) - (_%else153385153417%_)) - (_%else153385153417%_))) - (_%else153385153417%_)) - (_%else153385153417%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else153385153417%_)) - (_%else153385153417%_))) - (_%else153385153417%_))) - (_%else153385153417%_)) - (_%else153385153417%_)) - (_%else153385153417%_)))) - (_%else153385153417%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else153385153417%_))) - (_%else153385153417%_))) - (_%else153385153417%_)) - (_%else153385153417%_))) - (_%else153385153417%_))) - _%code153382%_))) - (_%simplify-let152779%_ - (lambda (_%code153081%_) - (let* ((_%code153082153154%_ _%code153081%_) - (_%else153087153162%_ (lambda () _%code153081%_))) - (let ((_%K153146153362%_ - (lambda (_%expr153360%_) _%expr153360%_)) - (_%K153129153308%_ - (lambda (_%body153304%_ - _%expr153305%_ - _%id153306%_) + (##cdr _%tl157072157180%_)))) + (let ((_%expr2157192%_ _%hd157073157187%_)) + (if (null? _%tl157074157189%_) + (if (null? _%tl157066157161%_) + (_%K157060157127%_ + _%expr2157192%_ + _%expr1157157%_ + _%id157150%_) + (_%else157058157090%_)) + (_%else157058157090%_)))) + (_%else157058157090%_)) + (_%else157058157090%_))) + (_%else157058157090%_)) + (_%else157058157090%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else157058157090%_)) + (_%else157058157090%_))) + (_%else157058157090%_))) + (_%else157058157090%_)) + (_%else157058157090%_)) + (_%else157058157090%_)))) + (_%else157058157090%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else157058157090%_))) + (_%else157058157090%_))) + (_%else157058157090%_)) + (_%else157058157090%_))) + (_%else157058157090%_))) + _%code157055%_))) + (_%simplify-let156452%_ + (lambda (_%code156754%_) + (let* ((_%code156755156827%_ _%code156754%_) + (_%else156760156835%_ (lambda () _%code156754%_))) + (let ((_%K156819157035%_ + (lambda (_%expr157033%_) _%expr157033%_)) + (_%K156802156981%_ + (lambda (_%body156977%_ + _%expr156978%_ + _%id156979%_) (cons 'let - (cons (cons (cons _%id153306%_ - (cons _%expr153305%_ + (cons (cons (cons _%id156979%_ + (cons _%expr156978%_ '())) '()) - _%body153304%_)))) - (_%K153106153232%_ - (lambda (_%body153226%_ - _%expr2153227%_ - _%id2153228%_ - _%expr1153229%_ - _%id1153230%_) + _%body156977%_)))) + (_%K156779156905%_ + (lambda (_%body156899%_ + _%expr2156900%_ + _%id2156901%_ + _%expr1156902%_ + _%id1156903%_) (cons 'let* - (cons (cons (cons _%id1153230%_ - (cons _%expr1153229%_ + (cons (cons (cons _%id1156903%_ + (cons _%expr1156902%_ '())) - (cons (cons _%id2153228%_ - (cons _%expr2153227%_ + (cons (cons _%id2156901%_ + (cons _%expr2156900%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body153226%_)))) - (_%K153089153171%_ - (lambda (_%body153166%_ - _%bind153167%_ - _%expr1153168%_ - _%id1153169%_) + _%body156899%_)))) + (_%K156762156844%_ + (lambda (_%body156839%_ + _%bind156840%_ + _%expr1156841%_ + _%id1156842%_) (cons 'let* - (cons (cons (cons _%id1153169%_ - (cons _%expr1153168%_ + (cons (cons (cons _%id1156842%_ + (cons _%expr1156841%_ '())) - _%bind153167%_) - _%body153166%_))))) - (if (pair? _%code153082153154%_) - (let ((_%tl153148153367%_ + _%bind156840%_) + _%body156839%_))))) + (if (pair? _%code156755156827%_) + (let ((_%tl156821157040%_ (let () (declare (not safe)) - (##cdr _%code153082153154%_))) - (_%hd153147153365%_ + (##cdr _%code156755156827%_))) + (_%hd156820157038%_ (let () (declare (not safe)) - (##car _%code153082153154%_)))) + (##car _%code156755156827%_)))) (if (let () (declare (not safe)) - (##eq? _%hd153147153365%_ 'let)) - (if (pair? _%tl153148153367%_) - (let ((_%tl153150153372%_ + (##eq? _%hd156820157038%_ 'let)) + (if (pair? _%tl156821157040%_) + (let ((_%tl156823157045%_ (let () (declare (not safe)) - (##cdr _%tl153148153367%_))) - (_%hd153149153370%_ + (##cdr _%tl156821157040%_))) + (_%hd156822157043%_ (let () (declare (not safe)) - (##car _%tl153148153367%_)))) - (if (null? _%hd153149153370%_) - (if (pair? _%tl153150153372%_) - (let ((_%tl153152153377%_ + (##car _%tl156821157040%_)))) + (if (null? _%hd156822157043%_) + (if (pair? _%tl156823157045%_) + (let ((_%tl156825157050%_ (let () (declare (not safe)) - (##cdr _%tl153150153372%_))) - (_%hd153151153375%_ + (##cdr _%tl156823157045%_))) + (_%hd156824157048%_ (let () (declare (not safe)) - (##car _%tl153150153372%_)))) - (if (null? _%tl153152153377%_) - (let ((_%expr153380%_ - _%hd153151153375%_)) - (_%K153146153362%_ - _%expr153380%_)) - (_%else153087153162%_))) - (_%else153087153162%_)) - (if (pair? _%hd153149153370%_) - (let ((_%tl153141153323%_ + (##car _%tl156823157045%_)))) + (if (null? _%tl156825157050%_) + (let ((_%expr157053%_ + _%hd156824157048%_)) + (_%K156819157035%_ + _%expr157053%_)) + (_%else156760156835%_))) + (_%else156760156835%_)) + (if (pair? _%hd156822157043%_) + (let ((_%tl156814156996%_ (let () (declare (not safe)) - (##cdr _%hd153149153370%_))) - (_%hd153140153321%_ + (##cdr _%hd156822157043%_))) + (_%hd156813156994%_ (let () (declare (not safe)) - (##car _%hd153149153370%_)))) - (if (pair? _%hd153140153321%_) - (let ((_%tl153143153328%_ + (##car _%hd156822157043%_)))) + (if (pair? _%hd156813156994%_) + (let ((_%tl156816157001%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%hd153140153321%_))) - (_%hd153142153326%_ - (let () (declare (not safe)) (##car _%hd153140153321%_)))) - (if (pair? _%tl153143153328%_) - (let ((_%tl153145153335%_ + (##cdr _%hd156813156994%_))) + (_%hd156815156999%_ + (let () (declare (not safe)) (##car _%hd156813156994%_)))) + (if (pair? _%tl156816157001%_) + (let ((_%tl156818157008%_ (let () (declare (not safe)) - (##cdr _%tl153143153328%_))) - (_%hd153144153333%_ + (##cdr _%tl156816157001%_))) + (_%hd156817157006%_ (let () (declare (not safe)) - (##car _%tl153143153328%_)))) - (if (null? _%tl153145153335%_) - (if (null? _%tl153141153323%_) - (if (pair? _%tl153150153372%_) - (let ((_%tl153135153342%_ + (##car _%tl156816157001%_)))) + (if (null? _%tl156818157008%_) + (if (null? _%tl156814156996%_) + (if (pair? _%tl156823157045%_) + (let ((_%tl156808157015%_ (let () (declare (not safe)) - (##cdr _%tl153150153372%_))) - (_%hd153134153340%_ + (##cdr _%tl156823157045%_))) + (_%hd156807157013%_ (let () (declare (not safe)) - (##car _%tl153150153372%_)))) - (if (pair? _%hd153134153340%_) - (let ((_%tl153137153347%_ + (##car _%tl156823157045%_)))) + (if (pair? _%hd156807157013%_) + (let ((_%tl156810157020%_ (let () (declare (not safe)) - (##cdr _%hd153134153340%_))) - (_%hd153136153345%_ + (##cdr _%hd156807157013%_))) + (_%hd156809157018%_ (let () (declare (not safe)) - (##car _%hd153134153340%_)))) + (##car _%hd156807157013%_)))) (if (let () (declare (not safe)) - (##eq? _%hd153136153345%_ + (##eq? _%hd156809157018%_ 'let)) - (if (pair? _%tl153137153347%_) - (let ((_%tl153139153352%_ + (if (pair? _%tl156810157020%_) + (let ((_%tl156812157025%_ (let () (declare (not safe)) - (##cdr _%tl153137153347%_))) - (_%hd153138153350%_ + (##cdr _%tl156810157020%_))) + (_%hd156811157023%_ (let () (declare (not safe)) - (##car _%tl153137153347%_)))) - (if (null? _%hd153138153350%_) - (if (null? _%tl153135153342%_) - (let ((_%id153331%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd153142153326%_) - (_%expr153338%_ _%hd153144153333%_) - (_%body153355%_ _%tl153139153352%_)) - (_%K153129153308%_ - _%body153355%_ - _%expr153338%_ - _%id153331%_)) - (_%else153087153162%_)) - (if (pair? _%hd153138153350%_) - (let ((_%tl153118153281%_ + (##car _%tl156810157020%_)))) + (if (null? _%hd156811157023%_) + (if (null? _%tl156808157015%_) + (let ((_%id157004%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%hd156815156999%_) + (_%expr157011%_ _%hd156817157006%_) + (_%body157028%_ _%tl156812157025%_)) + (_%K156802156981%_ + _%body157028%_ + _%expr157011%_ + _%id157004%_)) + (_%else156760156835%_)) + (if (pair? _%hd156811157023%_) + (let ((_%tl156791156954%_ (let () (declare (not safe)) - (##cdr _%hd153138153350%_))) - (_%hd153117153279%_ + (##cdr _%hd156811157023%_))) + (_%hd156790156952%_ (let () (declare (not safe)) - (##car _%hd153138153350%_)))) - (if (pair? _%hd153117153279%_) - (let ((_%tl153120153286%_ + (##car _%hd156811157023%_)))) + (if (pair? _%hd156790156952%_) + (let ((_%tl156793156959%_ (let () (declare (not safe)) - (##cdr _%hd153117153279%_))) - (_%hd153119153284%_ + (##cdr _%hd156790156952%_))) + (_%hd156792156957%_ (let () (declare (not safe)) - (##car _%hd153117153279%_)))) - (if (pair? _%tl153120153286%_) - (let ((_%tl153122153293%_ + (##car _%hd156790156952%_)))) + (if (pair? _%tl156793156959%_) + (let ((_%tl156795156966%_ (let () (declare (not safe)) - (##cdr _%tl153120153286%_))) - (_%hd153121153291%_ + (##cdr _%tl156793156959%_))) + (_%hd156794156964%_ (let () (declare (not safe)) - (##car _%tl153120153286%_)))) - (if (null? _%tl153122153293%_) - (if (null? _%tl153118153281%_) - (if (null? _%tl153135153342%_) - (let ((_%id1153255%_ - _%hd153142153326%_) - (_%expr1153262%_ - _%hd153144153333%_) - (_%id2153289%_ - _%hd153119153284%_) - (_%expr2153296%_ - _%hd153121153291%_) - (_%body153298%_ - _%tl153139153352%_)) - (_%K153106153232%_ - _%body153298%_ - _%expr2153296%_ - _%id2153289%_ - _%expr1153262%_ - _%id1153255%_)) - (_%else153087153162%_)) - (_%else153087153162%_)) - (_%else153087153162%_))) - (_%else153087153162%_))) - (_%else153087153162%_))) - (_%else153087153162%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else153087153162%_)) + (##car _%tl156793156959%_)))) + (if (null? _%tl156795156966%_) + (if (null? _%tl156791156954%_) + (if (null? _%tl156808157015%_) + (let ((_%id1156928%_ + _%hd156815156999%_) + (_%expr1156935%_ + _%hd156817157006%_) + (_%id2156962%_ + _%hd156792156957%_) + (_%expr2156969%_ + _%hd156794156964%_) + (_%body156971%_ + _%tl156812157025%_)) + (_%K156779156905%_ + _%body156971%_ + _%expr2156969%_ + _%id2156962%_ + _%expr1156935%_ + _%id1156928%_)) + (_%else156760156835%_)) + (_%else156760156835%_)) + (_%else156760156835%_))) + (_%else156760156835%_))) + (_%else156760156835%_))) + (_%else156760156835%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else156760156835%_)) (if (let () (declare (not safe)) - (##eq? _%hd153136153345%_ + (##eq? _%hd156809157018%_ 'let*)) - (if (pair? _%tl153137153347%_) - (let ((_%tl153099153215%_ + (if (pair? _%tl156810157020%_) + (let ((_%tl156772156888%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%tl153137153347%_))) - (_%hd153098153213%_ - (let () (declare (not safe)) (##car _%tl153137153347%_)))) - (if (null? _%tl153135153342%_) - (let ((_%id1153194%_ _%hd153142153326%_) - (_%expr1153201%_ _%hd153144153333%_) - (_%bind153218%_ _%hd153098153213%_) - (_%body153220%_ _%tl153099153215%_)) - (_%K153089153171%_ - _%body153220%_ - _%bind153218%_ - _%expr1153201%_ - _%id1153194%_)) - (_%else153087153162%_))) - (_%else153087153162%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else153087153162%_)))) - (_%else153087153162%_))) - (_%else153087153162%_)) - (_%else153087153162%_)) - (_%else153087153162%_))) - (_%else153087153162%_))) - (_%else153087153162%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else153087153162%_)))) - (_%else153087153162%_)) - (_%else153087153162%_))) - (_%else153087153162%_)))))) - (_%generate-values152780%_ - (lambda (_%hd152894%_ _%body152895%_) - (let _%lp152897%_ ((_%rest152899%_ _%hd152894%_) - (_%bind152900%_ '()) - (_%check152901%_ '()) - (_%post152902%_ '())) - (let* ((_%__stx157025157026%_ _%rest152899%_) - (_%g152905152916%_ + (##cdr _%tl156810157020%_))) + (_%hd156771156886%_ + (let () (declare (not safe)) (##car _%tl156810157020%_)))) + (if (null? _%tl156808157015%_) + (let ((_%id1156867%_ _%hd156815156999%_) + (_%expr1156874%_ _%hd156817157006%_) + (_%bind156891%_ _%hd156771156886%_) + (_%body156893%_ _%tl156772156888%_)) + (_%K156762156844%_ + _%body156893%_ + _%bind156891%_ + _%expr1156874%_ + _%id1156867%_)) + (_%else156760156835%_))) + (_%else156760156835%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else156760156835%_)))) + (_%else156760156835%_))) + (_%else156760156835%_)) + (_%else156760156835%_)) + (_%else156760156835%_))) + (_%else156760156835%_))) + (_%else156760156835%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else156760156835%_)))) + (_%else156760156835%_)) + (_%else156760156835%_))) + (_%else156760156835%_)))))) + (_%generate-values156453%_ + (lambda (_%hd156567%_ _%body156568%_) + (let _%lp156570%_ ((_%rest156572%_ _%hd156567%_) + (_%bind156573%_ '()) + (_%check156574%_ '()) + (_%post156575%_ '())) + (let* ((_%__stx160672160673%_ _%rest156572%_) + (_%g156578156589%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx157025157026%_))))) - (let ((_%__kont157027157028%_ - (lambda (_%L152943%_ _%L152944%_) - (let* ((_%__stx156981156982%_ _%L152944%_) - (_%g152959152984%_ + _%__stx160672160673%_))))) + (let ((_%__kont160674160675%_ + (lambda (_%g156580156616%_ _%g156581156617%_) + (let* ((_%__stx160628160629%_ + _%g156581156617%_) + (_%g156632156657%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx156981156982%_))))) - (let ((_%__kont156983156984%_ - (lambda (_%L153057%_ _%L153058%_) - (let ((_%eid153072%_ + _%__stx160628160629%_))))) + (let ((_%__kont160630160631%_ + (lambda (_%g156634156730%_ + _%g156635156731%_) + (let ((_%eid156745%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L153058%_))) - (_%expr153073%_ + _%g156635156731%_))) + (_%expr156746%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self152773%_ - _%L153057%_)))) - (_%lp152897%_ - _%L152943%_ - (cons (cons _%eid153072%_ - (cons _%expr153073%_ + _%self156446%_ + _%g156634156730%_)))) + (_%lp156570%_ + _%g156580156616%_ + (cons (cons _%eid156745%_ + (cons _%expr156746%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind152900%_) - _%check152901%_ - _%post152902%_)))) - (_%__kont156985156986%_ - (lambda (_%L153005%_ _%L153006%_) - (let* ((_%vals153019%_ + _%bind156573%_) + _%check156574%_ + _%post156575%_)))) + (_%__kont160632160633%_ + (lambda (_%g156645156678%_ + _%g156646156679%_) + (let* ((_%vals156692%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values153021%_ + (_%check-values156694%_ (gxc#generate-runtime-check-values - _%vals153019%_ - _%L153006%_ - _%L153005%_)) - (_%refs153023%_ + _%vals156692%_ + _%g156646156679%_ + _%g156645156678%_)) + (_%refs156696%_ (gxc#generate-runtime-let-values-bind - _%vals153019%_ - _%L153006%_)) - (_%expr153025%_ + _%vals156692%_ + _%g156646156679%_)) + (_%expr156698%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self152773%_ - _%L153005%_)))) - (_%lp152897%_ - _%L152943%_ - (cons (cons _%vals153019%_ - (cons _%expr153025%_ + _%self156446%_ + _%g156645156678%_)))) + (_%lp156570%_ + _%g156580156616%_ + (cons (cons _%vals156692%_ + (cons _%expr156698%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind152900%_) - (cons _%check-values153021%_ - _%check152901%_) - (cons _%refs153023%_ - _%post152902%_)))))) + _%bind156573%_) + (cons _%check-values156694%_ + _%check156574%_) + (cons _%refs156696%_ + _%post156575%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx156981156982%_)) - (let ((_%e152963153033%_ + _%__stx160628160629%_)) + (let ((_%e156636156706%_ (let () (declare (not safe)) (gx#stx-e - _%__stx156981156982%_)))) - (let ((_%tl152965153038%_ + _%__stx160628160629%_)))) + (let ((_%tl156638156711%_ (let () (declare (not safe)) - (##cdr _%e152963153033%_))) - (_%hd152964153036%_ + (##cdr _%e156636156706%_))) + (_%hd156637156709%_ (let () (declare (not safe)) - (##car _%e152963153033%_)))) + (##car _%e156636156706%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd152964153036%_)) - (let ((_%e152966153041%_ + _%hd156637156709%_)) + (let ((_%e156639156714%_ (let () (declare (not safe)) (gx#stx-e - _%hd152964153036%_)))) - (let ((_%tl152968153046%_ + _%hd156637156709%_)))) + (let ((_%tl156641156719%_ (let () (declare (not safe)) - (##cdr _%e152966153041%_))) - (_%hd152967153044%_ + (##cdr _%e156639156714%_))) + (_%hd156640156717%_ (let () (declare (not safe)) - (##car _%e152966153041%_)))) + (##car _%e156639156714%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152968153046%_)) + _%tl156641156719%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl152965153038%_)) - (let ((_%e152969153049%_ + (gx#stx-pair? _%tl156638156711%_)) + (let ((_%e156642156722%_ (let () (declare (not safe)) - (gx#stx-e _%tl152965153038%_)))) - (let ((_%tl152971153054%_ + (gx#stx-e _%tl156638156711%_)))) + (let ((_%tl156644156727%_ (let () (declare (not safe)) - (##cdr _%e152969153049%_))) - (_%hd152970153052%_ + (##cdr _%e156642156722%_))) + (_%hd156643156725%_ (let () (declare (not safe)) - (##car _%e152969153049%_)))) + (##car _%e156642156722%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152971153054%_)) - (_%__kont156983156984%_ - _%hd152970153052%_ - _%hd152967153044%_) + (gx#stx-null? _%tl156644156727%_)) + (_%__kont160630160631%_ + _%hd156643156725%_ + _%hd156640156717%_) (let () (declare (not safe)) - (_%g152959152984%_))))) - (let () (declare (not safe)) (_%g152959152984%_))) + (_%g156632156657%_))))) + (let () (declare (not safe)) (_%g156632156657%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152965153038%_)) - (let ((_%e152977152997%_ + (gx#stx-pair? _%tl156638156711%_)) + (let ((_%e156650156670%_ (let () (declare (not safe)) - (gx#stx-e _%tl152965153038%_)))) - (let ((_%tl152979153002%_ + (gx#stx-e _%tl156638156711%_)))) + (let ((_%tl156652156675%_ (let () (declare (not safe)) - (##cdr _%e152977152997%_))) - (_%hd152978153000%_ + (##cdr _%e156650156670%_))) + (_%hd156651156673%_ (let () (declare (not safe)) - (##car _%e152977152997%_)))) + (##car _%e156650156670%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152979153002%_)) - (_%__kont156985156986%_ - _%hd152978153000%_ - _%hd152964153036%_) + (gx#stx-null? _%tl156652156675%_)) + (_%__kont160632160633%_ + _%hd156651156673%_ + _%hd156637156709%_) (let () (declare (not safe)) - (_%g152959152984%_))))) - (let () (declare (not safe)) (_%g152959152984%_)))))) + (_%g156632156657%_))))) + (let () (declare (not safe)) (_%g156632156657%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl152965153038%_)) - (let ((_%e152977152997%_ + _%tl156638156711%_)) + (let ((_%e156650156670%_ (let () (declare (not safe)) (gx#stx-e - _%tl152965153038%_)))) - (let ((_%tl152979153002%_ + _%tl156638156711%_)))) + (let ((_%tl156652156675%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e152977152997%_))) - (_%hd152978153000%_ - (let () (declare (not safe)) (##car _%e152977152997%_)))) + (##cdr _%e156650156670%_))) + (_%hd156651156673%_ + (let () (declare (not safe)) (##car _%e156650156670%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152979153002%_)) - (_%__kont156985156986%_ - _%hd152978153000%_ - _%hd152964153036%_) - (let () (declare (not safe)) (_%g152959152984%_))))) + (gx#stx-null? _%tl156652156675%_)) + (_%__kont160632160633%_ + _%hd156651156673%_ + _%hd156637156709%_) + (let () (declare (not safe)) (_%g156632156657%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g152959152984%_)))))) + (_%g156632156657%_)))))) (let () (declare (not safe)) - (_%g152959152984%_))))))) - (_%__kont157029157030%_ + (_%g156632156657%_))))))) + (_%__kont160676160677%_ (lambda () - (let* ((_%body152923%_ - (if _%compiled-body?152775%_ - _%body152895%_ + (let* ((_%body156596%_ + (if _%compiled-body?156448%_ + _%body156568%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self152773%_ - _%body152895%_)))) - (_%body152925%_ - (_%generate-values-post152781%_ - _%post152902%_ - _%body152923%_)) - (_%body152927%_ - (_%generate-values-check152782%_ - _%check152901%_ - _%body152925%_))) + _%self156446%_ + _%body156568%_)))) + (_%body156598%_ + (_%generate-values-post156454%_ + _%post156575%_ + _%body156596%_)) + (_%body156600%_ + (_%generate-values-check156455%_ + _%check156574%_ + _%body156598%_))) (cons 'let - (cons (reverse _%bind152900%_) - (cons _%body152927%_ '()))))))) + (cons (reverse _%bind156573%_) + (cons _%body156600%_ '()))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx157025157026%_)) - (let ((_%e152909152935%_ + (gx#stx-pair? _%__stx160672160673%_)) + (let ((_%e156582156608%_ (let () (declare (not safe)) - (gx#stx-e _%__stx157025157026%_)))) - (let ((_%tl152911152940%_ + (gx#stx-e _%__stx160672160673%_)))) + (let ((_%tl156584156613%_ (let () (declare (not safe)) - (##cdr _%e152909152935%_))) - (_%hd152910152938%_ + (##cdr _%e156582156608%_))) + (_%hd156583156611%_ (let () (declare (not safe)) - (##car _%e152909152935%_)))) - (_%__kont157027157028%_ - _%tl152911152940%_ - _%hd152910152938%_))) - (_%__kont157029157030%_))))))) - (_%generate-values-post152781%_ - (lambda (_%post152853%_ _%body152854%_) - (let _%lp152856%_ ((_%rest152858%_ _%post152853%_) - (_%body152859%_ _%body152854%_)) - (let* ((_%rest152860152868%_ _%rest152858%_) - (_%else152862152876%_ (lambda () _%body152859%_)) - (_%K152864152882%_ - (lambda (_%rest152879%_ _%bind152880%_) - (_%lp152856%_ - _%rest152879%_ + (##car _%e156582156608%_)))) + (_%__kont160674160675%_ + _%tl156584156613%_ + _%hd156583156611%_))) + (_%__kont160676160677%_))))))) + (_%generate-values-post156454%_ + (lambda (_%post156526%_ _%body156527%_) + (let _%lp156529%_ ((_%rest156531%_ _%post156526%_) + (_%body156532%_ _%body156527%_)) + (let* ((_%rest156533156541%_ _%rest156531%_) + (_%else156535156549%_ (lambda () _%body156532%_)) + (_%K156537156555%_ + (lambda (_%rest156552%_ _%bind156553%_) + (_%lp156529%_ + _%rest156552%_ (cons 'let - (cons _%bind152880%_ - (cons _%body152859%_ '()))))))) - (if (pair? _%rest152860152868%_) - (let ((_%hd152865152885%_ + (cons _%bind156553%_ + (cons _%body156532%_ '()))))))) + (if (pair? _%rest156533156541%_) + (let ((_%hd156538156558%_ (let () (declare (not safe)) - (##car _%rest152860152868%_))) - (_%tl152866152887%_ + (##car _%rest156533156541%_))) + (_%tl156539156560%_ (let () (declare (not safe)) - (##cdr _%rest152860152868%_)))) - (let* ((_%bind152890%_ _%hd152865152885%_) - (_%rest152892%_ _%tl152866152887%_)) - (_%K152864152882%_ - _%rest152892%_ - _%bind152890%_))) - (_%else152862152876%_)))))) - (_%generate-values-check152782%_ - (lambda (_%check152850%_ _%body152851%_) + (##cdr _%rest156533156541%_)))) + (let* ((_%bind156563%_ _%hd156538156558%_) + (_%rest156565%_ _%tl156539156560%_)) + (_%K156537156555%_ + _%rest156565%_ + _%bind156563%_))) + (_%else156535156549%_)))))) + (_%generate-values-check156455%_ + (lambda (_%check156523%_ _%body156524%_) (cons 'begin - (let ((__tmp157873 (cons _%body152851%_ '())) - (__tmp157872 (reverse _%check152850%_))) + (let ((__tmp161520 (cons _%body156524%_ '())) + (__tmp161519 (reverse _%check156523%_))) (declare (not safe)) - (__foldr1 cons __tmp157873 __tmp157872)))))) - (let* ((_%g152784152801%_ - (lambda (_%g152785152798%_) + (__foldr1 cons __tmp161520 __tmp161519)))))) + (let* ((_%g156457156474%_ + (lambda (_%g156458156471%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152785152798%_)))) - (_%g152783152847%_ - (lambda (_%g152785152804%_) + _%g156458156471%_)))) + (_%g156456156520%_ + (lambda (_%g156458156477%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152785152804%_)) - (let ((_%e152788152806%_ + (gx#stx-pair? _%g156458156477%_)) + (let ((_%e156461156479%_ (let () (declare (not safe)) - (gx#stx-e _%g152785152804%_)))) - (let ((_%hd152789152809%_ + (gx#stx-e _%g156458156477%_)))) + (let ((_%hd156462156482%_ (let () (declare (not safe)) - (##car _%e152788152806%_))) - (_%tl152790152811%_ + (##car _%e156461156479%_))) + (_%tl156463156484%_ (let () (declare (not safe)) - (##cdr _%e152788152806%_)))) + (##cdr _%e156461156479%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152790152811%_)) - (let ((_%e152791152814%_ + (gx#stx-pair? _%tl156463156484%_)) + (let ((_%e156464156487%_ (let () (declare (not safe)) - (gx#stx-e _%tl152790152811%_)))) - (let ((_%hd152792152817%_ + (gx#stx-e _%tl156463156484%_)))) + (let ((_%hd156465156490%_ (let () (declare (not safe)) - (##car _%e152791152814%_))) - (_%tl152793152819%_ + (##car _%e156464156487%_))) + (_%tl156466156492%_ (let () (declare (not safe)) - (##cdr _%e152791152814%_)))) + (##cdr _%e156464156487%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152793152819%_)) - (let ((_%e152794152822%_ + (gx#stx-pair? _%tl156466156492%_)) + (let ((_%e156467156495%_ (let () (declare (not safe)) (gx#stx-e - _%tl152793152819%_)))) - (let ((_%hd152795152825%_ + _%tl156466156492%_)))) + (let ((_%hd156468156498%_ (let () (declare (not safe)) - (##car _%e152794152822%_))) - (_%tl152796152827%_ + (##car _%e156467156495%_))) + (_%tl156469156500%_ (let () (declare (not safe)) - (##cdr _%e152794152822%_)))) + (##cdr _%e156467156495%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152796152827%_)) - ((lambda (_%L152830%_ - _%L152831%_) + _%tl156469156500%_)) + ((lambda (_%g156459156503%_ + _%g156460156504%_) (if (gxc#generate-runtime-simple-let? - _%L152831%_) - (_%generate-simple152777%_ - _%L152831%_ - _%L152830%_) - (_%generate-values152780%_ - _%L152831%_ - _%L152830%_))) - _%hd152795152825%_ - _%hd152792152817%_) - (_%g152784152801%_ - _%g152785152804%_)))) - (_%g152784152801%_ - _%g152785152804%_)))) - (_%g152784152801%_ _%g152785152804%_)))) - (_%g152784152801%_ _%g152785152804%_))))) - (_%g152783152847%_ _%stx152774%_))))) + _%g156460156504%_) + (_%generate-simple156450%_ + _%g156460156504%_ + _%g156459156503%_) + (_%generate-values156453%_ + _%g156460156504%_ + _%g156459156503%_))) + _%hd156468156498%_ + _%hd156465156490%_) + (_%g156457156474%_ + _%g156458156477%_)))) + (_%g156457156474%_ + _%g156458156477%_)))) + (_%g156457156474%_ _%g156458156477%_)))) + (_%g156457156474%_ _%g156458156477%_))))) + (_%g156456156520%_ _%stx156447%_))))) (define gxc#generate-runtime-let-values%__0 - (lambda (_%self153527%_ _%stx153528%_) - (let ((_%compiled-body?153530%_ '#f)) + (lambda (_%self157200%_ _%stx157201%_) + (let ((_%compiled-body?157203%_ '#f)) (gxc#generate-runtime-let-values%__% - _%self153527%_ - _%stx153528%_ - _%compiled-body?153530%_)))) + _%self157200%_ + _%stx157201%_ + _%compiled-body?157203%_)))) (define gxc#generate-runtime-let-values% - (lambda _g157874_ - (let ((_g157875_ (let () (declare (not safe)) (##length _g157874_)))) - (cond ((let () (declare (not safe)) (##fx= _g157875_ 2)) - (apply gxc#generate-runtime-let-values%__0 _g157874_)) - ((let () (declare (not safe)) (##fx= _g157875_ 3)) - (apply gxc#generate-runtime-let-values%__% _g157874_)) + (lambda _g161521_ + (let ((_g161522_ (let () (declare (not safe)) (##length _g161521_)))) + (cond ((let () (declare (not safe)) (##fx= _g161522_ 2)) + (apply gxc#generate-runtime-let-values%__0 _g161521_)) + ((let () (declare (not safe)) (##fx= _g161522_ 3)) + (apply gxc#generate-runtime-let-values%__% _g161521_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-let-values% - _g157874_)))))) + _g161521_)))))) (define gxc#generate-runtime-let-values-bind - (lambda (_%vals152667%_ _%hd152668%_) - (let _%lp152670%_ ((_%rest152672%_ _%hd152668%_) - (_%k152673%_ '0) - (_%r152674%_ '())) - (let* ((_%__stx157039157040%_ _%rest152672%_) - (_%g152679152696%_ + (lambda (_%vals156340%_ _%hd156341%_) + (let _%lp156343%_ ((_%rest156345%_ _%hd156341%_) + (_%k156346%_ '0) + (_%r156347%_ '())) + (let* ((_%__stx160686160687%_ _%rest156345%_) + (_%g156352156369%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx157039157040%_))))) - (let ((_%__kont157041157042%_ - (lambda (_%L152759%_) - (_%lp152670%_ - _%L152759%_ - (let () (declare (not safe)) (##fx+ _%k152673%_ '1)) - _%r152674%_))) - (_%__kont157043157044%_ - (lambda (_%L152732%_ _%L152733%_) - (_%lp152670%_ - _%L152732%_ - (let () (declare (not safe)) (##fx+ _%k152673%_ '1)) + _%__stx160686160687%_))))) + (let ((_%__kont160688160689%_ + (lambda (_%g156354156432%_) + (_%lp156343%_ + _%g156354156432%_ + (let () (declare (not safe)) (##fx+ _%k156346%_ '1)) + _%r156347%_))) + (_%__kont160690160691%_ + (lambda (_%g156359156405%_ _%g156360156406%_) + (_%lp156343%_ + _%g156359156405%_ + (let () (declare (not safe)) (##fx+ _%k156346%_ '1)) (cons (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L152733%_)) + _%g156360156406%_)) (cons (gxc#generate-runtime-values-ref - _%vals152667%_ - _%k152673%_ - _%L152732%_) + _%vals156340%_ + _%k156346%_ + _%g156359156405%_) '())) - _%r152674%_)))) - (_%__kont157045157046%_ - (lambda (_%L152708%_) - (let ((__tmp157876 + _%r156347%_)))) + (_%__kont160692160693%_ + (lambda (_%g156364156381%_) + (let ((__tmp161523 (cons (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L152708%_)) + _%g156364156381%_)) (cons (gxc#generate-runtime-values->list - _%vals152667%_ - _%k152673%_) + _%vals156340%_ + _%k156346%_) '())) '()))) (declare (not safe)) - (__foldl1 cons __tmp157876 _%r152674%_)))) - (_%__kont157047157048%_ (lambda () (reverse _%r152674%_)))) - (let ((_%g152677152719%_ + (__foldl1 cons __tmp161523 _%r156347%_)))) + (_%__kont160694160695%_ (lambda () (reverse _%r156347%_)))) + (let ((_%g156350156392%_ (lambda () - (let ((_%L152708%_ _%__stx157039157040%_)) + (let ((_%g156364156381%_ _%__stx160686160687%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L152708%_)) - (_%__kont157045157046%_ _%L152708%_) - (_%__kont157047157048%_)))))) + (gx#identifier? _%g156364156381%_)) + (_%__kont160692160693%_ _%g156364156381%_) + (_%__kont160694160695%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx157039157040%_)) - (let ((_%e152682152748%_ + (gx#stx-pair? _%__stx160686160687%_)) + (let ((_%e156355156421%_ (let () (declare (not safe)) - (gx#stx-e _%__stx157039157040%_)))) - (let ((_%tl152684152753%_ + (gx#stx-e _%__stx160686160687%_)))) + (let ((_%tl156357156426%_ (let () (declare (not safe)) - (##cdr _%e152682152748%_))) - (_%hd152683152751%_ + (##cdr _%e156355156421%_))) + (_%hd156356156424%_ (let () (declare (not safe)) - (##car _%e152682152748%_)))) + (##car _%e156355156421%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd152683152751%_)) - (let ((_%e152685152756%_ + (gx#stx-datum? _%hd156356156424%_)) + (let ((_%e156358156429%_ (let () (declare (not safe)) - (gx#stx-e _%hd152683152751%_)))) - (if (equal? _%e152685152756%_ '#f) - (_%__kont157041157042%_ _%tl152684152753%_) - (_%__kont157043157044%_ - _%tl152684152753%_ - _%hd152683152751%_))) - (_%__kont157043157044%_ - _%tl152684152753%_ - _%hd152683152751%_)))) - (let () (declare (not safe)) (_%g152677152719%_))))))))) + (gx#stx-e _%hd156356156424%_)))) + (if (equal? _%e156358156429%_ '#f) + (_%__kont160688160689%_ _%tl156357156426%_) + (_%__kont160690160691%_ + _%tl156357156426%_ + _%hd156356156424%_))) + (_%__kont160690160691%_ + _%tl156357156426%_ + _%hd156356156424%_)))) + (let () (declare (not safe)) (_%g156350156392%_))))))))) (define gxc#generate-runtime-letrec-values%__% - (lambda (_%self152346%_ _%stx152347%_ _%compiled-body?152348%_) - (letrec ((_%generate-simple152350%_ - (lambda (_%hd152652%_ _%body152653%_) + (lambda (_%self156019%_ _%stx156020%_ _%compiled-body?156021%_) + (letrec ((_%generate-simple156023%_ + (lambda (_%hd156325%_ _%body156326%_) (gxc#generate-runtime-simple-let - _%self152346%_ + _%self156019%_ 'letrec - _%hd152652%_ - _%body152653%_ - _%compiled-body?152348%_))) - (_%generate-values152351%_ - (lambda (_%hd152431%_ _%body152432%_) - (let _%lp152434%_ ((_%rest152436%_ _%hd152431%_) - (_%bind152437%_ '()) - (_%check152438%_ '()) - (_%post152439%_ '())) - (let* ((_%__stx157113157114%_ _%rest152436%_) - (_%g152442152453%_ + _%hd156325%_ + _%body156326%_ + _%compiled-body?156021%_))) + (_%generate-values156024%_ + (lambda (_%hd156104%_ _%body156105%_) + (let _%lp156107%_ ((_%rest156109%_ _%hd156104%_) + (_%bind156110%_ '()) + (_%check156111%_ '()) + (_%post156112%_ '())) + (let* ((_%__stx160760160761%_ _%rest156109%_) + (_%g156115156126%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx157113157114%_))))) - (let ((_%__kont157115157116%_ - (lambda (_%L152480%_ _%L152481%_) - (let* ((_%__stx157069157070%_ _%L152481%_) - (_%g152496152521%_ + _%__stx160760160761%_))))) + (let ((_%__kont160762160763%_ + (lambda (_%g156117156153%_ _%g156118156154%_) + (let* ((_%__stx160716160717%_ + _%g156118156154%_) + (_%g156169156194%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx157069157070%_))))) - (let ((_%__kont157071157072%_ - (lambda (_%L152628%_ _%L152629%_) - (let ((_%eid152643%_ + _%__stx160716160717%_))))) + (let ((_%__kont160718160719%_ + (lambda (_%g156171156301%_ + _%g156172156302%_) + (let ((_%eid156316%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L152629%_))) - (_%expr152644%_ + _%g156172156302%_))) + (_%expr156317%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self152346%_ - _%L152628%_)))) - (_%lp152434%_ - _%L152480%_ - (cons (cons _%eid152643%_ - (cons _%expr152644%_ + _%self156019%_ + _%g156171156301%_)))) + (_%lp156107%_ + _%g156117156153%_ + (cons (cons _%eid156316%_ + (cons _%expr156317%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind152437%_) - _%check152438%_ - _%post152439%_)))) - (_%__kont157073157074%_ - (lambda (_%L152542%_ _%L152543%_) - (let* ((_%vals152556%_ + _%bind156110%_) + _%check156111%_ + _%post156112%_)))) + (_%__kont160720160721%_ + (lambda (_%g156182156215%_ + _%g156183156216%_) + (let* ((_%vals156229%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values152558%_ + (_%check-values156231%_ (gxc#generate-runtime-check-values - _%vals152556%_ - _%L152543%_ - _%L152542%_)) - (_%refs152560%_ + _%vals156229%_ + _%g156183156216%_ + _%g156182156215%_)) + (_%refs156233%_ (gxc#generate-runtime-let-values-bind - _%vals152556%_ - _%L152543%_)) - (_%expr152562%_ + _%vals156229%_ + _%g156183156216%_)) + (_%expr156235%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self152346%_ - _%L152542%_)))) - (_%lp152434%_ - _%L152480%_ - (let ((__tmp157878 - (cons (cons _%vals152556%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr152562%_ '())) - _%bind152437%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp157877 - (map (lambda (_%e152564152566%_) - (let* ((_%g152568152577%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e152564152566%_) - (_%E152570152581%_ + _%self156019%_ + _%g156182156215%_)))) + (_%lp156107%_ + _%g156117156153%_ + (let ((__tmp161525 + (cons (cons _%vals156229%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%expr156235%_ '())) + _%bind156110%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp161524 + (map (lambda (_%e156237156239%_) + (let* ((_%e156237156241156250%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%e156237156239%_) + (_%E156243156254%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g152568152577%_ + _%e156237156241156250%_ '([eid _]))) '#!void)) - (_%K152571152586%_ - (lambda (_%eid152584%_) - (cons _%eid152584%_ (cons '#!void '()))))) - (if (pair? _%g152568152577%_) - (let ((_%hd152572152589%_ + (_%K156244156259%_ + (lambda (_%eid156257%_) + (cons _%eid156257%_ (cons '#!void '()))))) + (if (pair? _%e156237156241156250%_) + (let ((_%hd156245156262%_ (let () (declare (not safe)) - (##car _%g152568152577%_))) - (_%tl152573152591%_ + (##car _%e156237156241156250%_))) + (_%tl156246156264%_ (let () (declare (not safe)) - (##cdr _%g152568152577%_)))) - (let ((_%eid152594%_ _%hd152572152589%_)) - (if (pair? _%tl152573152591%_) - (let ((_%tl152575152596%_ + (##cdr _%e156237156241156250%_)))) + (let ((_%eid156267%_ _%hd156245156262%_)) + (if (pair? _%tl156246156264%_) + (let ((_%tl156248156269%_ (let () (declare (not safe)) - (##cdr _%tl152573152591%_)))) - (if (null? _%tl152575152596%_) - (_%K152571152586%_ _%eid152594%_) - (_%E152570152581%_))) - (_%E152570152581%_)))) - (_%E152570152581%_)))) - _%refs152560%_))) + (##cdr _%tl156246156264%_)))) + (if (null? _%tl156248156269%_) + (_%K156244156259%_ _%eid156267%_) + (_%E156243156254%_))) + (_%E156243156254%_)))) + (_%E156243156254%_)))) + _%refs156233%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp157878 - __tmp157877)) - (cons _%check-values152558%_ - _%check152438%_) + __tmp161525 + __tmp161524)) + (cons _%check-values156231%_ + _%check156111%_) (let () (declare (not safe)) (__foldl1 cons - _%refs152560%_ - _%post152439%_))))))) + _%refs156233%_ + _%post156112%_))))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx157069157070%_)) - (let ((_%e152500152604%_ + _%__stx160716160717%_)) + (let ((_%e156173156277%_ (let () (declare (not safe)) (gx#stx-e - _%__stx157069157070%_)))) - (let ((_%tl152502152609%_ + _%__stx160716160717%_)))) + (let ((_%tl156175156282%_ (let () (declare (not safe)) - (##cdr _%e152500152604%_))) - (_%hd152501152607%_ + (##cdr _%e156173156277%_))) + (_%hd156174156280%_ (let () (declare (not safe)) - (##car _%e152500152604%_)))) + (##car _%e156173156277%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd152501152607%_)) - (let ((_%e152503152612%_ + _%hd156174156280%_)) + (let ((_%e156176156285%_ (let () (declare (not safe)) (gx#stx-e - _%hd152501152607%_)))) - (let ((_%tl152505152617%_ + _%hd156174156280%_)))) + (let ((_%tl156178156290%_ (let () (declare (not safe)) - (##cdr _%e152503152612%_))) - (_%hd152504152615%_ + (##cdr _%e156176156285%_))) + (_%hd156177156288%_ (let () (declare (not safe)) - (##car _%e152503152612%_)))) + (##car _%e156176156285%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152505152617%_)) + _%tl156178156290%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl152502152609%_)) - (let ((_%e152506152620%_ + (gx#stx-pair? _%tl156175156282%_)) + (let ((_%e156179156293%_ (let () (declare (not safe)) - (gx#stx-e _%tl152502152609%_)))) - (let ((_%tl152508152625%_ + (gx#stx-e _%tl156175156282%_)))) + (let ((_%tl156181156298%_ (let () (declare (not safe)) - (##cdr _%e152506152620%_))) - (_%hd152507152623%_ + (##cdr _%e156179156293%_))) + (_%hd156180156296%_ (let () (declare (not safe)) - (##car _%e152506152620%_)))) + (##car _%e156179156293%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152508152625%_)) - (_%__kont157071157072%_ - _%hd152507152623%_ - _%hd152504152615%_) + (gx#stx-null? _%tl156181156298%_)) + (_%__kont160718160719%_ + _%hd156180156296%_ + _%hd156177156288%_) (let () (declare (not safe)) - (_%g152496152521%_))))) - (let () (declare (not safe)) (_%g152496152521%_))) + (_%g156169156194%_))))) + (let () (declare (not safe)) (_%g156169156194%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152502152609%_)) - (let ((_%e152514152534%_ + (gx#stx-pair? _%tl156175156282%_)) + (let ((_%e156187156207%_ (let () (declare (not safe)) - (gx#stx-e _%tl152502152609%_)))) - (let ((_%tl152516152539%_ + (gx#stx-e _%tl156175156282%_)))) + (let ((_%tl156189156212%_ (let () (declare (not safe)) - (##cdr _%e152514152534%_))) - (_%hd152515152537%_ + (##cdr _%e156187156207%_))) + (_%hd156188156210%_ (let () (declare (not safe)) - (##car _%e152514152534%_)))) + (##car _%e156187156207%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152516152539%_)) - (_%__kont157073157074%_ - _%hd152515152537%_ - _%hd152501152607%_) + (gx#stx-null? _%tl156189156212%_)) + (_%__kont160720160721%_ + _%hd156188156210%_ + _%hd156174156280%_) (let () (declare (not safe)) - (_%g152496152521%_))))) - (let () (declare (not safe)) (_%g152496152521%_)))))) + (_%g156169156194%_))))) + (let () (declare (not safe)) (_%g156169156194%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl152502152609%_)) - (let ((_%e152514152534%_ + _%tl156175156282%_)) + (let ((_%e156187156207%_ (let () (declare (not safe)) (gx#stx-e - _%tl152502152609%_)))) - (let ((_%tl152516152539%_ + _%tl156175156282%_)))) + (let ((_%tl156189156212%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e152514152534%_))) - (_%hd152515152537%_ - (let () (declare (not safe)) (##car _%e152514152534%_)))) + (##cdr _%e156187156207%_))) + (_%hd156188156210%_ + (let () (declare (not safe)) (##car _%e156187156207%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152516152539%_)) - (_%__kont157073157074%_ - _%hd152515152537%_ - _%hd152501152607%_) - (let () (declare (not safe)) (_%g152496152521%_))))) + (gx#stx-null? _%tl156189156212%_)) + (_%__kont160720160721%_ + _%hd156188156210%_ + _%hd156174156280%_) + (let () (declare (not safe)) (_%g156169156194%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g152496152521%_)))))) + (_%g156169156194%_)))))) (let () (declare (not safe)) - (_%g152496152521%_))))))) - (_%__kont157117157118%_ + (_%g156169156194%_))))))) + (_%__kont160764160765%_ (lambda () - (let* ((_%body152460%_ - (if _%compiled-body?152348%_ - _%body152432%_ + (let* ((_%body156133%_ + (if _%compiled-body?156021%_ + _%body156105%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self152346%_ - _%body152432%_)))) - (_%body152462%_ - (_%generate-values-post152353%_ - _%post152439%_ - _%body152460%_)) - (_%body152464%_ - (_%generate-values-check152352%_ - _%check152438%_ - _%body152462%_))) + _%self156019%_ + _%body156105%_)))) + (_%body156135%_ + (_%generate-values-post156026%_ + _%post156112%_ + _%body156133%_)) + (_%body156137%_ + (_%generate-values-check156025%_ + _%check156111%_ + _%body156135%_))) (cons 'letrec - (cons (reverse _%bind152437%_) - (cons _%body152464%_ '()))))))) + (cons (reverse _%bind156110%_) + (cons _%body156137%_ '()))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx157113157114%_)) - (let ((_%e152446152472%_ + (gx#stx-pair? _%__stx160760160761%_)) + (let ((_%e156119156145%_ (let () (declare (not safe)) - (gx#stx-e _%__stx157113157114%_)))) - (let ((_%tl152448152477%_ + (gx#stx-e _%__stx160760160761%_)))) + (let ((_%tl156121156150%_ (let () (declare (not safe)) - (##cdr _%e152446152472%_))) - (_%hd152447152475%_ + (##cdr _%e156119156145%_))) + (_%hd156120156148%_ (let () (declare (not safe)) - (##car _%e152446152472%_)))) - (_%__kont157115157116%_ - _%tl152448152477%_ - _%hd152447152475%_))) - (_%__kont157117157118%_))))))) - (_%generate-values-check152352%_ - (lambda (_%check152428%_ _%body152429%_) + (##car _%e156119156145%_)))) + (_%__kont160762160763%_ + _%tl156121156150%_ + _%hd156120156148%_))) + (_%__kont160764160765%_))))))) + (_%generate-values-check156025%_ + (lambda (_%check156101%_ _%body156102%_) (cons 'begin - (let ((__tmp157880 (cons _%body152429%_ '())) - (__tmp157879 (reverse _%check152428%_))) + (let ((__tmp161527 (cons _%body156102%_ '())) + (__tmp161526 (reverse _%check156101%_))) (declare (not safe)) - (__foldr1 cons __tmp157880 __tmp157879))))) - (_%generate-values-post152353%_ - (lambda (_%post152421%_ _%body152422%_) + (__foldr1 cons __tmp161527 __tmp161526))))) + (_%generate-values-post156026%_ + (lambda (_%post156094%_ _%body156095%_) (cons 'begin - (let ((__tmp157884 (cons _%body152422%_ '())) - (__tmp157881 - (let ((__tmp157883 - (lambda (_%g152423152425%_) - (cons 'set! _%g152423152425%_))) - (__tmp157882 (reverse _%post152421%_))) + (let ((__tmp161531 (cons _%body156095%_ '())) + (__tmp161528 + (let ((__tmp161530 + (lambda (_%g156096156098%_) + (cons 'set! _%g156096156098%_))) + (__tmp161529 (reverse _%post156094%_))) (declare (not safe)) - (##map __tmp157883 __tmp157882)))) + (##map __tmp161530 __tmp161529)))) (declare (not safe)) - (__foldr1 cons __tmp157884 __tmp157881)))))) - (let* ((_%g152355152372%_ - (lambda (_%g152356152369%_) + (__foldr1 cons __tmp161531 __tmp161528)))))) + (let* ((_%g156028156045%_ + (lambda (_%g156029156042%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152356152369%_)))) - (_%g152354152418%_ - (lambda (_%g152356152375%_) + _%g156029156042%_)))) + (_%g156027156091%_ + (lambda (_%g156029156048%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152356152375%_)) - (let ((_%e152359152377%_ + (gx#stx-pair? _%g156029156048%_)) + (let ((_%e156032156050%_ (let () (declare (not safe)) - (gx#stx-e _%g152356152375%_)))) - (let ((_%hd152360152380%_ + (gx#stx-e _%g156029156048%_)))) + (let ((_%hd156033156053%_ (let () (declare (not safe)) - (##car _%e152359152377%_))) - (_%tl152361152382%_ + (##car _%e156032156050%_))) + (_%tl156034156055%_ (let () (declare (not safe)) - (##cdr _%e152359152377%_)))) + (##cdr _%e156032156050%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152361152382%_)) - (let ((_%e152362152385%_ + (gx#stx-pair? _%tl156034156055%_)) + (let ((_%e156035156058%_ (let () (declare (not safe)) - (gx#stx-e _%tl152361152382%_)))) - (let ((_%hd152363152388%_ + (gx#stx-e _%tl156034156055%_)))) + (let ((_%hd156036156061%_ (let () (declare (not safe)) - (##car _%e152362152385%_))) - (_%tl152364152390%_ + (##car _%e156035156058%_))) + (_%tl156037156063%_ (let () (declare (not safe)) - (##cdr _%e152362152385%_)))) + (##cdr _%e156035156058%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152364152390%_)) - (let ((_%e152365152393%_ + (gx#stx-pair? _%tl156037156063%_)) + (let ((_%e156038156066%_ (let () (declare (not safe)) (gx#stx-e - _%tl152364152390%_)))) - (let ((_%hd152366152396%_ + _%tl156037156063%_)))) + (let ((_%hd156039156069%_ (let () (declare (not safe)) - (##car _%e152365152393%_))) - (_%tl152367152398%_ + (##car _%e156038156066%_))) + (_%tl156040156071%_ (let () (declare (not safe)) - (##cdr _%e152365152393%_)))) + (##cdr _%e156038156066%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152367152398%_)) - ((lambda (_%L152401%_ - _%L152402%_) + _%tl156040156071%_)) + ((lambda (_%g156030156074%_ + _%g156031156075%_) (if (gxc#generate-runtime-simple-let? - _%L152402%_) - (_%generate-simple152350%_ - _%L152402%_ - _%L152401%_) - (_%generate-values152351%_ - _%L152402%_ - _%L152401%_))) - _%hd152366152396%_ - _%hd152363152388%_) - (_%g152355152372%_ - _%g152356152375%_)))) - (_%g152355152372%_ - _%g152356152375%_)))) - (_%g152355152372%_ _%g152356152375%_)))) - (_%g152355152372%_ _%g152356152375%_))))) - (_%g152354152418%_ _%stx152347%_))))) + _%g156031156075%_) + (_%generate-simple156023%_ + _%g156031156075%_ + _%g156030156074%_) + (_%generate-values156024%_ + _%g156031156075%_ + _%g156030156074%_))) + _%hd156039156069%_ + _%hd156036156061%_) + (_%g156028156045%_ + _%g156029156048%_)))) + (_%g156028156045%_ + _%g156029156048%_)))) + (_%g156028156045%_ _%g156029156048%_)))) + (_%g156028156045%_ _%g156029156048%_))))) + (_%g156027156091%_ _%stx156020%_))))) (define gxc#generate-runtime-letrec-values%__0 - (lambda (_%self152658%_ _%stx152659%_) - (let ((_%compiled-body?152661%_ '#f)) + (lambda (_%self156331%_ _%stx156332%_) + (let ((_%compiled-body?156334%_ '#f)) (gxc#generate-runtime-letrec-values%__% - _%self152658%_ - _%stx152659%_ - _%compiled-body?152661%_)))) + _%self156331%_ + _%stx156332%_ + _%compiled-body?156334%_)))) (define gxc#generate-runtime-letrec-values% - (lambda _g157885_ - (let ((_g157886_ (let () (declare (not safe)) (##length _g157885_)))) - (cond ((let () (declare (not safe)) (##fx= _g157886_ 2)) - (apply gxc#generate-runtime-letrec-values%__0 _g157885_)) - ((let () (declare (not safe)) (##fx= _g157886_ 3)) - (apply gxc#generate-runtime-letrec-values%__% _g157885_)) + (lambda _g161532_ + (let ((_g161533_ (let () (declare (not safe)) (##length _g161532_)))) + (cond ((let () (declare (not safe)) (##fx= _g161533_ 2)) + (apply gxc#generate-runtime-letrec-values%__0 _g161532_)) + ((let () (declare (not safe)) (##fx= _g161533_ 3)) + (apply gxc#generate-runtime-letrec-values%__% _g161532_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-letrec-values% - _g157885_)))))) + _g161532_)))))) (define gxc#generate-runtime-letrec*-values% - (lambda (_%self151927%_ _%stx151928%_) - (letrec ((_%generate-values151930%_ - (lambda (_%hd152173%_ _%body152174%_) - (let _%lp152176%_ ((_%rest152178%_ _%hd152173%_) - (_%bind152179%_ '())) - (let* ((_%rest152180152188%_ _%rest152178%_) - (_%else152182152199%_ + (lambda (_%self155600%_ _%stx155601%_) + (letrec ((_%generate-values155603%_ + (lambda (_%hd155846%_ _%body155847%_) + (let _%lp155849%_ ((_%rest155851%_ _%hd155846%_) + (_%bind155852%_ '())) + (let* ((_%rest155853155861%_ _%rest155851%_) + (_%else155855155872%_ (lambda () - (let ((_%bind152196%_ (reverse _%bind152179%_)) - (_%body152197%_ + (let ((_%bind155869%_ (reverse _%bind155852%_)) + (_%body155870%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self151927%_ - _%body152174%_)))) + _%self155600%_ + _%body155847%_)))) (cons 'letrec* - (cons _%bind152196%_ - (cons _%body152197%_ '())))))) - (_%K152184152333%_ - (lambda (_%rest152202%_ _%hd-bind152203%_) - (let* ((_%__stx157127157128%_ - _%hd-bind152203%_) - (_%g152206152231%_ + (cons _%bind155869%_ + (cons _%body155870%_ '())))))) + (_%K155857156006%_ + (lambda (_%rest155875%_ _%hd-bind155876%_) + (let* ((_%__stx160774160775%_ + _%hd-bind155876%_) + (_%g155879155904%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx157127157128%_))))) - (let ((_%__kont157129157130%_ - (lambda (_%L152312%_ _%L152313%_) - (let ((_%eid152327%_ + _%__stx160774160775%_))))) + (let ((_%__kont160776160777%_ + (lambda (_%g155881155985%_ + _%g155882155986%_) + (let ((_%eid156000%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L152313%_))) - (_%expr152328%_ + _%g155882155986%_))) + (_%expr156001%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self151927%_ - _%L152312%_)))) - (_%lp152176%_ - _%rest152202%_ - (cons (cons _%eid152327%_ - (cons _%expr152328%_ + _%self155600%_ + _%g155881155985%_)))) + (_%lp155849%_ + _%rest155875%_ + (cons (cons _%eid156000%_ + (cons _%expr156001%_ '())) - _%bind152179%_))))) - (_%__kont157131157132%_ - (lambda (_%L152252%_ _%L152253%_) - (let* ((_%vals152272%_ + _%bind155852%_))))) + (_%__kont160778160779%_ + (lambda (_%g155892155925%_ + _%g155893155926%_) + (let* ((_%vals155945%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%tmp152274%_ + (_%tmp155947%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values152276%_ + (_%check-values155949%_ (gxc#generate-runtime-check-values - _%tmp152274%_ - _%L152253%_ - _%L152252%_)) - (_%refs152278%_ + _%tmp155947%_ + _%g155893155926%_ + _%g155892155925%_)) + (_%refs155951%_ (gxc#generate-runtime-let-values-bind - _%vals152272%_ - _%L152253%_)) - (_%expr152280%_ + _%vals155945%_ + _%g155893155926%_)) + (_%expr155953%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self151927%_ - _%L152252%_)))) - (_%lp152176%_ - _%rest152202%_ - (let ((__tmp157887 - (cons (cons _%vals152272%_ + _%self155600%_ + _%g155892155925%_)))) + (_%lp155849%_ + _%rest155875%_ + (let ((__tmp161534 + (cons (cons _%vals155945%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'let - (cons (cons (cons _%tmp152274%_ - (cons _%expr152280%_ + (cons (cons (cons _%tmp155947%_ + (cons _%expr155953%_ '())) '()) - (cons _%check-values152276%_ - (cons _%tmp152274%_ '())))) + (cons _%check-values155949%_ + (cons _%tmp155947%_ '())))) '())) - _%bind152179%_))) + _%bind155852%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp157887 - _%refs152278%_))))))) + __tmp161534 + _%refs155951%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx157127157128%_)) - (let ((_%e152210152288%_ + (gx#stx-pair? _%__stx160774160775%_)) + (let ((_%e155883155961%_ (let () (declare (not safe)) (gx#stx-e - _%__stx157127157128%_)))) - (let ((_%tl152212152293%_ + _%__stx160774160775%_)))) + (let ((_%tl155885155966%_ (let () (declare (not safe)) - (##cdr _%e152210152288%_))) - (_%hd152211152291%_ + (##cdr _%e155883155961%_))) + (_%hd155884155964%_ (let () (declare (not safe)) - (##car _%e152210152288%_)))) + (##car _%e155883155961%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd152211152291%_)) - (let ((_%e152213152296%_ + _%hd155884155964%_)) + (let ((_%e155886155969%_ (let () (declare (not safe)) (gx#stx-e - _%hd152211152291%_)))) - (let ((_%tl152215152301%_ + _%hd155884155964%_)))) + (let ((_%tl155888155974%_ (let () (declare (not safe)) - (##cdr _%e152213152296%_))) - (_%hd152214152299%_ + (##cdr _%e155886155969%_))) + (_%hd155887155972%_ (let () (declare (not safe)) - (##car _%e152213152296%_)))) + (##car _%e155886155969%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152215152301%_)) + _%tl155888155974%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl152212152293%_)) - (let ((_%e152216152304%_ + _%tl155885155966%_)) + (let ((_%e155889155977%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl152212152293%_)))) - (let ((_%tl152218152309%_ + (gx#stx-e _%tl155885155966%_)))) + (let ((_%tl155891155982%_ (let () (declare (not safe)) - (##cdr _%e152216152304%_))) - (_%hd152217152307%_ + (##cdr _%e155889155977%_))) + (_%hd155890155980%_ (let () (declare (not safe)) - (##car _%e152216152304%_)))) + (##car _%e155889155977%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152218152309%_)) - (_%__kont157129157130%_ - _%hd152217152307%_ - _%hd152214152299%_) + (gx#stx-null? _%tl155891155982%_)) + (_%__kont160776160777%_ + _%hd155890155980%_ + _%hd155887155972%_) (let () (declare (not safe)) - (_%g152206152231%_))))) - (let () (declare (not safe)) (_%g152206152231%_))) + (_%g155879155904%_))))) + (let () (declare (not safe)) (_%g155879155904%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152212152293%_)) - (let ((_%e152224152244%_ + (gx#stx-pair? _%tl155885155966%_)) + (let ((_%e155897155917%_ (let () (declare (not safe)) - (gx#stx-e _%tl152212152293%_)))) - (let ((_%tl152226152249%_ + (gx#stx-e _%tl155885155966%_)))) + (let ((_%tl155899155922%_ (let () (declare (not safe)) - (##cdr _%e152224152244%_))) - (_%hd152225152247%_ + (##cdr _%e155897155917%_))) + (_%hd155898155920%_ (let () (declare (not safe)) - (##car _%e152224152244%_)))) + (##car _%e155897155917%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152226152249%_)) - (_%__kont157131157132%_ - _%hd152225152247%_ - _%hd152211152291%_) + (gx#stx-null? _%tl155899155922%_)) + (_%__kont160778160779%_ + _%hd155898155920%_ + _%hd155884155964%_) (let () (declare (not safe)) - (_%g152206152231%_))))) - (let () (declare (not safe)) (_%g152206152231%_)))))) + (_%g155879155904%_))))) + (let () (declare (not safe)) (_%g155879155904%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl152212152293%_)) - (let ((_%e152224152244%_ + _%tl155885155966%_)) + (let ((_%e155897155917%_ (let () (declare (not safe)) (gx#stx-e - _%tl152212152293%_)))) - (let ((_%tl152226152249%_ + _%tl155885155966%_)))) + (let ((_%tl155899155922%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e152224152244%_))) - (_%hd152225152247%_ - (let () (declare (not safe)) (##car _%e152224152244%_)))) + (##cdr _%e155897155917%_))) + (_%hd155898155920%_ + (let () (declare (not safe)) (##car _%e155897155917%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152226152249%_)) - (_%__kont157131157132%_ - _%hd152225152247%_ - _%hd152211152291%_) - (let () (declare (not safe)) (_%g152206152231%_))))) + (gx#stx-null? _%tl155899155922%_)) + (_%__kont160778160779%_ + _%hd155898155920%_ + _%hd155884155964%_) + (let () (declare (not safe)) (_%g155879155904%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g152206152231%_)))))) + (_%g155879155904%_)))))) (let () (declare (not safe)) - (_%g152206152231%_)))))))) - (if (pair? _%rest152180152188%_) - (let ((_%hd152185152336%_ + (_%g155879155904%_)))))))) + (if (pair? _%rest155853155861%_) + (let ((_%hd155858156009%_ (let () (declare (not safe)) - (##car _%rest152180152188%_))) - (_%tl152186152338%_ + (##car _%rest155853155861%_))) + (_%tl155859156011%_ (let () (declare (not safe)) - (##cdr _%rest152180152188%_)))) - (let* ((_%hd-bind152341%_ _%hd152185152336%_) - (_%rest152343%_ _%tl152186152338%_)) - (_%K152184152333%_ - _%rest152343%_ - _%hd-bind152341%_))) - (_%else152182152199%_)))))) - (_%generate-letrec?151931%_ - (lambda (_%hd152063%_) - (let _%lp152065%_ ((_%rest152067%_ _%hd152063%_)) - (let* ((_%rest152068152076%_ _%rest152067%_) - (_%else152070152084%_ (lambda () '#t)) - (_%K152072152161%_ - (lambda (_%rest152087%_ _%hd-bind152088%_) - (let* ((_%g152090152107%_ - (lambda (_%g152091152104%_) + (##cdr _%rest155853155861%_)))) + (let* ((_%hd-bind156014%_ _%hd155858156009%_) + (_%rest156016%_ _%tl155859156011%_)) + (_%K155857156006%_ + _%rest156016%_ + _%hd-bind156014%_))) + (_%else155855155872%_)))))) + (_%generate-letrec?155604%_ + (lambda (_%hd155736%_) + (let _%lp155738%_ ((_%rest155740%_ _%hd155736%_)) + (let* ((_%rest155741155749%_ _%rest155740%_) + (_%else155743155757%_ (lambda () '#t)) + (_%K155745155834%_ + (lambda (_%rest155760%_ _%hd-bind155761%_) + (let* ((_%g155763155780%_ + (lambda (_%g155764155777%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152091152104%_)))) - (_%g152089152158%_ - (lambda (_%g152091152110%_) + _%g155764155777%_)))) + (_%g155762155831%_ + (lambda (_%g155764155783%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g152091152110%_)) - (let ((_%e152094152112%_ + _%g155764155783%_)) + (let ((_%e155767155785%_ (let () (declare (not safe)) (gx#stx-e - _%g152091152110%_)))) - (let ((_%hd152095152115%_ + _%g155764155783%_)))) + (let ((_%hd155768155788%_ (let () (declare (not safe)) - (##car _%e152094152112%_))) - (_%tl152096152117%_ + (##car _%e155767155785%_))) + (_%tl155769155790%_ (let () (declare (not safe)) - (##cdr _%e152094152112%_)))) + (##cdr _%e155767155785%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd152095152115%_)) - (let ((_%e152097152120%_ + _%hd155768155788%_)) + (let ((_%e155770155793%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd152095152115%_)))) - (let ((_%hd152098152123%_ - (let () (declare (not safe)) (##car _%e152097152120%_))) - (_%tl152099152125%_ + (gx#stx-e _%hd155768155788%_)))) + (let ((_%hd155771155796%_ + (let () (declare (not safe)) (##car _%e155770155793%_))) + (_%tl155772155798%_ (let () (declare (not safe)) - (##cdr _%e152097152120%_)))) + (##cdr _%e155770155793%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152099152125%_)) + (gx#stx-null? _%tl155772155798%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152096152117%_)) - (let ((_%e152100152128%_ + (gx#stx-pair? _%tl155769155790%_)) + (let ((_%e155773155801%_ (let () (declare (not safe)) - (gx#stx-e _%tl152096152117%_)))) - (let ((_%hd152101152131%_ + (gx#stx-e _%tl155769155790%_)))) + (let ((_%hd155774155804%_ (let () (declare (not safe)) - (##car _%e152100152128%_))) - (_%tl152102152133%_ + (##car _%e155773155801%_))) + (_%tl155775155806%_ (let () (declare (not safe)) - (##cdr _%e152100152128%_)))) + (##cdr _%e155773155801%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152102152133%_)) - ((lambda (_%L152136%_ _%L152137%_) - (if (_%is-lambda-expr?151932%_ - _%L152136%_) - (_%lp152065%_ _%rest152087%_) + (gx#stx-null? _%tl155775155806%_)) + ((lambda (_%g155765155809%_ + _%g155766155810%_) + (if (_%is-lambda-expr?155605%_ + _%g155765155809%_) + (_%lp155738%_ _%rest155760%_) '#f)) - _%hd152101152131%_ - _%hd152098152123%_) - (_%g152090152107%_ _%g152091152110%_)))) - (_%g152090152107%_ _%g152091152110%_)) - (_%g152090152107%_ _%g152091152110%_)))) - (_%g152090152107%_ _%g152091152110%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g152090152107%_ - _%g152091152110%_))))) - (_%g152089152158%_ _%hd-bind152088%_))))) - (if (pair? _%rest152068152076%_) - (let ((_%hd152073152164%_ + _%hd155774155804%_ + _%hd155771155796%_) + (_%g155763155780%_ _%g155764155783%_)))) + (_%g155763155780%_ _%g155764155783%_)) + (_%g155763155780%_ _%g155764155783%_)))) + (_%g155763155780%_ _%g155764155783%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g155763155780%_ + _%g155764155783%_))))) + (_%g155762155831%_ _%hd-bind155761%_))))) + (if (pair? _%rest155741155749%_) + (let ((_%hd155746155837%_ (let () (declare (not safe)) - (##car _%rest152068152076%_))) - (_%tl152074152166%_ + (##car _%rest155741155749%_))) + (_%tl155747155839%_ (let () (declare (not safe)) - (##cdr _%rest152068152076%_)))) - (let* ((_%hd-bind152169%_ _%hd152073152164%_) - (_%rest152171%_ _%tl152074152166%_)) - (_%K152072152161%_ - _%rest152171%_ - _%hd-bind152169%_))) - (_%else152070152084%_)))))) - (_%is-lambda-expr?151932%_ - (lambda (_%expr152000%_) - (let* ((_%__stx157171157172%_ _%expr152000%_) - (_%g152003152017%_ + (##cdr _%rest155741155749%_)))) + (let* ((_%hd-bind155842%_ _%hd155746155837%_) + (_%rest155844%_ _%tl155747155839%_)) + (_%K155745155834%_ + _%rest155844%_ + _%hd-bind155842%_))) + (_%else155743155757%_)))))) + (_%is-lambda-expr?155605%_ + (lambda (_%expr155673%_) + (let* ((_%__stx160818160819%_ _%expr155673%_) + (_%g155676155690%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx157171157172%_))))) - (let ((_%__kont157173157174%_ - (lambda (_%L152045%_ _%L152046%_) '#t)) - (_%__kont157175157176%_ (lambda () '#f))) + _%__stx160818160819%_))))) + (let ((_%__kont160820160821%_ + (lambda (_%g155678155718%_ _%g155679155719%_) + '#t)) + (_%__kont160822160823%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx157171157172%_)) - (let ((_%e152007152029%_ + (gx#stx-pair? _%__stx160818160819%_)) + (let ((_%e155680155702%_ (let () (declare (not safe)) - (gx#stx-e _%__stx157171157172%_)))) - (let ((_%tl152009152034%_ + (gx#stx-e _%__stx160818160819%_)))) + (let ((_%tl155682155707%_ (let () (declare (not safe)) - (##cdr _%e152007152029%_))) - (_%hd152008152032%_ + (##cdr _%e155680155702%_))) + (_%hd155681155705%_ (let () (declare (not safe)) - (##car _%e152007152029%_)))) + (##car _%e155680155702%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd152008152032%_)) + (gx#identifier? _%hd155681155705%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd152008152032%_)) + _%hd155681155705%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl152009152034%_)) - (let ((_%e152010152037%_ + _%tl155682155707%_)) + (let ((_%e155683155710%_ (let () (declare (not safe)) (gx#stx-e - _%tl152009152034%_)))) - (let ((_%tl152012152042%_ + _%tl155682155707%_)))) + (let ((_%tl155685155715%_ (let () (declare (not safe)) - (##cdr _%e152010152037%_))) - (_%hd152011152040%_ + (##cdr _%e155683155710%_))) + (_%hd155684155713%_ (let () (declare (not safe)) - (##car _%e152010152037%_)))) - (_%__kont157173157174%_ - _%tl152012152042%_ - _%hd152011152040%_))) - (_%__kont157175157176%_)) - (_%__kont157175157176%_)) - (_%__kont157175157176%_)))) - (_%__kont157175157176%_))))))) - (let* ((_%g151934151951%_ - (lambda (_%g151935151948%_) + (##car _%e155683155710%_)))) + (_%__kont160820160821%_ + _%tl155685155715%_ + _%hd155684155713%_))) + (_%__kont160822160823%_)) + (_%__kont160822160823%_)) + (_%__kont160822160823%_)))) + (_%__kont160822160823%_))))))) + (let* ((_%g155607155624%_ + (lambda (_%g155608155621%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g151935151948%_)))) - (_%g151933151997%_ - (lambda (_%g151935151954%_) + _%g155608155621%_)))) + (_%g155606155670%_ + (lambda (_%g155608155627%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g151935151954%_)) - (let ((_%e151938151956%_ + (gx#stx-pair? _%g155608155627%_)) + (let ((_%e155611155629%_ (let () (declare (not safe)) - (gx#stx-e _%g151935151954%_)))) - (let ((_%hd151939151959%_ + (gx#stx-e _%g155608155627%_)))) + (let ((_%hd155612155632%_ (let () (declare (not safe)) - (##car _%e151938151956%_))) - (_%tl151940151961%_ + (##car _%e155611155629%_))) + (_%tl155613155634%_ (let () (declare (not safe)) - (##cdr _%e151938151956%_)))) + (##cdr _%e155611155629%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151940151961%_)) - (let ((_%e151941151964%_ + (gx#stx-pair? _%tl155613155634%_)) + (let ((_%e155614155637%_ (let () (declare (not safe)) - (gx#stx-e _%tl151940151961%_)))) - (let ((_%hd151942151967%_ + (gx#stx-e _%tl155613155634%_)))) + (let ((_%hd155615155640%_ (let () (declare (not safe)) - (##car _%e151941151964%_))) - (_%tl151943151969%_ + (##car _%e155614155637%_))) + (_%tl155616155642%_ (let () (declare (not safe)) - (##cdr _%e151941151964%_)))) + (##cdr _%e155614155637%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151943151969%_)) - (let ((_%e151944151972%_ + (gx#stx-pair? _%tl155616155642%_)) + (let ((_%e155617155645%_ (let () (declare (not safe)) (gx#stx-e - _%tl151943151969%_)))) - (let ((_%hd151945151975%_ + _%tl155616155642%_)))) + (let ((_%hd155618155648%_ (let () (declare (not safe)) - (##car _%e151944151972%_))) - (_%tl151946151977%_ + (##car _%e155617155645%_))) + (_%tl155619155650%_ (let () (declare (not safe)) - (##cdr _%e151944151972%_)))) + (##cdr _%e155617155645%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151946151977%_)) - ((lambda (_%L151980%_ - _%L151981%_) + _%tl155619155650%_)) + ((lambda (_%g155609155653%_ + _%g155610155654%_) (if (gxc#generate-runtime-simple-let? - _%L151981%_) - (if (_%generate-letrec?151931%_ - _%L151981%_) + _%g155610155654%_) + (if (_%generate-letrec?155604%_ + _%g155610155654%_) (gxc#generate-runtime-simple-let - _%self151927%_ + _%self155600%_ 'letrec - _%L151981%_ - _%L151980%_ + _%g155610155654%_ + _%g155609155653%_ '#f) (gxc#generate-runtime-simple-let - _%self151927%_ + _%self155600%_ 'letrec* - _%L151981%_ - _%L151980%_ + _%g155610155654%_ + _%g155609155653%_ '#f)) - (_%generate-values151930%_ - _%L151981%_ - _%L151980%_))) - _%hd151945151975%_ - _%hd151942151967%_) - (_%g151934151951%_ - _%g151935151954%_)))) - (_%g151934151951%_ - _%g151935151954%_)))) - (_%g151934151951%_ _%g151935151954%_)))) - (_%g151934151951%_ _%g151935151954%_))))) - (_%g151933151997%_ _%stx151928%_))))) + (_%generate-values155603%_ + _%g155610155654%_ + _%g155609155653%_))) + _%hd155618155648%_ + _%hd155615155640%_) + (_%g155607155624%_ + _%g155608155627%_)))) + (_%g155607155624%_ + _%g155608155627%_)))) + (_%g155607155624%_ _%g155608155627%_)))) + (_%g155607155624%_ _%g155608155627%_))))) + (_%g155606155670%_ _%stx155601%_))))) (define gxc#generate-runtime-simple-let? - (lambda (_%hd151864%_) - (let _%lp151866%_ ((_%rest151868%_ _%hd151864%_)) - (let* ((_%rest151869151885%_ _%rest151868%_) - (_%else151872151893%_ (lambda () '#f))) - (let ((_%K151875151906%_ - (lambda (_%rest151904%_) (_%lp151866%_ _%rest151904%_))) - (_%K151874151898%_ (lambda () '#t))) - (let ((_%try-match151871151901%_ + (lambda (_%hd155537%_) + (let _%lp155539%_ ((_%rest155541%_ _%hd155537%_)) + (let* ((_%rest155542155558%_ _%rest155541%_) + (_%else155545155566%_ (lambda () '#f))) + (let ((_%K155548155579%_ + (lambda (_%rest155577%_) (_%lp155539%_ _%rest155577%_))) + (_%K155547155571%_ (lambda () '#t))) + (let ((_%try-match155544155574%_ (lambda () - (if (null? _%rest151869151885%_) - (_%K151874151898%_) - (_%else151872151893%_))))) - (if (pair? _%rest151869151885%_) - (let ((_%tl151877151911%_ + (if (null? _%rest155542155558%_) + (_%K155547155571%_) + (_%else155545155566%_))))) + (if (pair? _%rest155542155558%_) + (let ((_%tl155550155584%_ (let () (declare (not safe)) - (##cdr _%rest151869151885%_))) - (_%hd151876151909%_ + (##cdr _%rest155542155558%_))) + (_%hd155549155582%_ (let () (declare (not safe)) - (##car _%rest151869151885%_)))) - (if (pair? _%hd151876151909%_) - (let ((_%tl151879151916%_ + (##car _%rest155542155558%_)))) + (if (pair? _%hd155549155582%_) + (let ((_%tl155552155589%_ (let () (declare (not safe)) - (##cdr _%hd151876151909%_))) - (_%hd151878151914%_ + (##cdr _%hd155549155582%_))) + (_%hd155551155587%_ (let () (declare (not safe)) - (##car _%hd151876151909%_)))) - (if (pair? _%hd151878151914%_) - (let ((_%tl151883151919%_ + (##car _%hd155549155582%_)))) + (if (pair? _%hd155551155587%_) + (let ((_%tl155556155592%_ (let () (declare (not safe)) - (##cdr _%hd151878151914%_)))) - (if (null? _%tl151883151919%_) - (if (pair? _%tl151879151916%_) - (let ((_%tl151881151922%_ + (##cdr _%hd155551155587%_)))) + (if (null? _%tl155556155592%_) + (if (pair? _%tl155552155589%_) + (let ((_%tl155554155595%_ (let () (declare (not safe)) - (##cdr _%tl151879151916%_)))) - (if (null? _%tl151881151922%_) - (let ((_%rest151925%_ - _%tl151877151911%_)) - (_%lp151866%_ - _%rest151925%_)) - (_%else151872151893%_))) - (_%else151872151893%_)) - (_%else151872151893%_))) - (_%else151872151893%_))) - (_%else151872151893%_))) - (_%try-match151871151901%_)))))))) + (##cdr _%tl155552155589%_)))) + (if (null? _%tl155554155595%_) + (let ((_%rest155598%_ + _%tl155550155584%_)) + (_%lp155539%_ + _%rest155598%_)) + (_%else155545155566%_))) + (_%else155545155566%_)) + (_%else155545155566%_))) + (_%else155545155566%_))) + (_%else155545155566%_))) + (_%try-match155544155574%_)))))))) (define gxc#generate-runtime-simple-let - (lambda (_%self151775%_ - _%form151776%_ - _%hd151777%_ - _%body151778%_ - _%compiled-body?151779%_) - (letrec ((_%generate1151781%_ - (lambda (_%bind151820%_) - (let* ((_%bind151821151832%_ _%bind151820%_) - (_%E151823151836%_ + (lambda (_%self155449%_ + _%form155450%_ + _%hd155451%_ + _%body155452%_ + _%compiled-body?155453%_) + (letrec ((_%generate1155455%_ + (lambda (_%bind155494%_) + (let* ((_%bind155495155506%_ _%bind155494%_) + (_%E155497155509%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind151821151832%_ + _%bind155495155506%_ '([[id] expr]))) '#!void)) - (_%K151824151842%_ - (lambda (_%expr151839%_ _%id151840%_) + (_%K155498155515%_ + (lambda (_%expr155512%_ _%id155513%_) (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%id151840%_)) + _%id155513%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self151775%_ - _%expr151839%_)) + _%self155449%_ + _%expr155512%_)) '()))))) - (if (pair? _%bind151821151832%_) - (let ((_%hd151825151845%_ + (if (pair? _%bind155495155506%_) + (let ((_%hd155499155518%_ (let () (declare (not safe)) - (##car _%bind151821151832%_))) - (_%tl151826151847%_ + (##car _%bind155495155506%_))) + (_%tl155500155520%_ (let () (declare (not safe)) - (##cdr _%bind151821151832%_)))) - (if (pair? _%hd151825151845%_) - (let ((_%hd151829151850%_ + (##cdr _%bind155495155506%_)))) + (if (pair? _%hd155499155518%_) + (let ((_%hd155503155523%_ (let () (declare (not safe)) - (##car _%hd151825151845%_))) - (_%tl151830151852%_ + (##car _%hd155499155518%_))) + (_%tl155504155525%_ (let () (declare (not safe)) - (##cdr _%hd151825151845%_)))) - (let ((_%id151855%_ _%hd151829151850%_)) - (if (null? _%tl151830151852%_) - (if (pair? _%tl151826151847%_) - (let ((_%hd151827151857%_ + (##cdr _%hd155499155518%_)))) + (let ((_%id155528%_ _%hd155503155523%_)) + (if (null? _%tl155504155525%_) + (if (pair? _%tl155500155520%_) + (let ((_%hd155501155530%_ (let () (declare (not safe)) - (##car _%tl151826151847%_))) - (_%tl151828151859%_ + (##car _%tl155500155520%_))) + (_%tl155502155532%_ (let () (declare (not safe)) - (##cdr _%tl151826151847%_)))) - (let ((_%expr151862%_ - _%hd151827151857%_)) - (if (null? _%tl151828151859%_) - (_%K151824151842%_ - _%expr151862%_ - _%id151855%_) - (_%E151823151836%_)))) - (_%E151823151836%_)) - (_%E151823151836%_)))) - (_%E151823151836%_))) - (_%E151823151836%_)))))) - (let* ((_%bind151783%_ (map _%generate1151781%_ _%hd151777%_)) - (_%body151785%_ - (if _%compiled-body?151779%_ - _%body151778%_ + (##cdr _%tl155500155520%_)))) + (let ((_%expr155535%_ + _%hd155501155530%_)) + (if (null? _%tl155502155532%_) + (_%K155498155515%_ + _%expr155535%_ + _%id155528%_) + (_%E155497155509%_)))) + (_%E155497155509%_)) + (_%E155497155509%_)))) + (_%E155497155509%_))) + (_%E155497155509%_)))))) + (let* ((_%bind155457%_ (map _%generate1155455%_ _%hd155451%_)) + (_%body155459%_ + (if _%compiled-body?155453%_ + _%body155452%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self151775%_ _%body151778%_)))) - (_%body151817%_ - (let* ((_%body151786151794%_ _%body151785%_) - (_%else151788151802%_ - (lambda () (cons _%body151785%_ '()))) - (_%K151790151807%_ - (lambda (_%exprs151805%_) _%exprs151805%_))) - (if (pair? _%body151786151794%_) - (let ((_%hd151791151810%_ + (gxc#compile-e__1 _%self155449%_ _%body155452%_)))) + (_%body155491%_ + (let* ((_%body155460155468%_ _%body155459%_) + (_%else155462155476%_ + (lambda () (cons _%body155459%_ '()))) + (_%K155464155481%_ + (lambda (_%exprs155479%_) _%exprs155479%_))) + (if (pair? _%body155460155468%_) + (let ((_%hd155465155484%_ (let () (declare (not safe)) - (##car _%body151786151794%_))) - (_%tl151792151812%_ + (##car _%body155460155468%_))) + (_%tl155466155486%_ (let () (declare (not safe)) - (##cdr _%body151786151794%_)))) + (##cdr _%body155460155468%_)))) (if (let () (declare (not safe)) - (##eq? _%hd151791151810%_ 'begin)) - (let ((_%exprs151815%_ _%tl151792151812%_)) - (_%K151790151807%_ _%exprs151815%_)) - (_%else151788151802%_))) - (_%else151788151802%_))))) - (cons _%form151776%_ (cons _%bind151783%_ _%body151817%_)))))) + (##eq? _%hd155465155484%_ 'begin)) + (let ((_%exprs155489%_ _%tl155466155486%_)) + (_%K155464155481%_ _%exprs155489%_)) + (_%else155462155476%_))) + (_%else155462155476%_))))) + (cons _%form155450%_ (cons _%bind155457%_ _%body155491%_)))))) (define gxc#generate-runtime-quote% - (lambda (_%self151675%_ _%stx151676%_) - (letrec ((_%generate1151678%_ - (lambda (_%datum151730%_) - (if (or (null? _%datum151730%_) + (lambda (_%self155349%_ _%stx155350%_) + (letrec ((_%generate1155352%_ + (lambda (_%datum155404%_) + (if (or (null? _%datum155404%_) (let () (declare (not safe)) - (interned-symbol? _%datum151730%_)) + (interned-symbol? _%datum155404%_)) (let () (declare (not safe)) - (gx#self-quoting? _%datum151730%_)) - (eof-object? _%datum151730%_)) - _%datum151730%_ - (if (uninterned-symbol? _%datum151730%_) + (gx#self-quoting? _%datum155404%_)) + (eof-object? _%datum155404%_)) + _%datum155404%_ + (if (uninterned-symbol? _%datum155404%_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _%datum151730%_ + _%datum155404%_ '#t)) - (if (pair? _%datum151730%_) - (cons (_%generate1151678%_ + (if (pair? _%datum155404%_) + (cons (_%generate1155352%_ (let () (declare (not safe)) - (##car _%datum151730%_))) - (_%generate1151678%_ + (##car _%datum155404%_))) + (_%generate1155352%_ (let () (declare (not safe)) - (##cdr _%datum151730%_)))) - (if (box? _%datum151730%_) - (box (_%generate1151678%_ - (unbox _%datum151730%_))) - (if (vector? _%datum151730%_) + (##cdr _%datum155404%_)))) + (if (box? _%datum155404%_) + (box (_%generate1155352%_ + (unbox _%datum155404%_))) + (if (vector? _%datum155404%_) (vector-map - _%generate1151678%_ - _%datum151730%_) - (if (or (s8vector? _%datum151730%_) - (u8vector? _%datum151730%_) - (s16vector? _%datum151730%_) - (u16vector? _%datum151730%_) - (s32vector? _%datum151730%_) - (u32vector? _%datum151730%_) - (s64vector? _%datum151730%_) - (u64vector? _%datum151730%_) - (f32vector? _%datum151730%_) - (f64vector? _%datum151730%_)) - _%datum151730%_ + _%generate1155352%_ + _%datum155404%_) + (if (or (s8vector? _%datum155404%_) + (u8vector? _%datum155404%_) + (s16vector? _%datum155404%_) + (u16vector? _%datum155404%_) + (s32vector? _%datum155404%_) + (u32vector? _%datum155404%_) + (s64vector? _%datum155404%_) + (u64vector? _%datum155404%_) + (f32vector? _%datum155404%_) + (f64vector? _%datum155404%_)) + _%datum155404%_ (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile non-primitive quote" - _%stx151676%_))))))))))) - (let* ((_%g151680151693%_ - (lambda (_%g151681151690%_) + _%stx155350%_))))))))))) + (let* ((_%g155354155367%_ + (lambda (_%g155355155364%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g151681151690%_)))) - (_%g151679151727%_ - (lambda (_%g151681151696%_) + _%g155355155364%_)))) + (_%g155353155401%_ + (lambda (_%g155355155370%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g151681151696%_)) - (let ((_%e151683151698%_ + (gx#stx-pair? _%g155355155370%_)) + (let ((_%e155357155372%_ (let () (declare (not safe)) - (gx#stx-e _%g151681151696%_)))) - (let ((_%hd151684151701%_ + (gx#stx-e _%g155355155370%_)))) + (let ((_%hd155358155375%_ (let () (declare (not safe)) - (##car _%e151683151698%_))) - (_%tl151685151703%_ + (##car _%e155357155372%_))) + (_%tl155359155377%_ (let () (declare (not safe)) - (##cdr _%e151683151698%_)))) + (##cdr _%e155357155372%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151685151703%_)) - (let ((_%e151686151706%_ + (gx#stx-pair? _%tl155359155377%_)) + (let ((_%e155360155380%_ (let () (declare (not safe)) - (gx#stx-e _%tl151685151703%_)))) - (let ((_%hd151687151709%_ + (gx#stx-e _%tl155359155377%_)))) + (let ((_%hd155361155383%_ (let () (declare (not safe)) - (##car _%e151686151706%_))) - (_%tl151688151711%_ + (##car _%e155360155380%_))) + (_%tl155362155385%_ (let () (declare (not safe)) - (##cdr _%e151686151706%_)))) + (##cdr _%e155360155380%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151688151711%_)) - ((lambda (_%L151714%_) + (gx#stx-null? _%tl155362155385%_)) + ((lambda (_%g155356155388%_) (cons 'quote - (cons (_%generate1151678%_ + (cons (_%generate1155352%_ (let () (declare (not safe)) (gx#stx-e - _%L151714%_))) + _%g155356155388%_))) '()))) - _%hd151687151709%_) - (_%g151680151693%_ - _%g151681151696%_)))) - (_%g151680151693%_ _%g151681151696%_)))) - (_%g151680151693%_ _%g151681151696%_))))) - (_%g151679151727%_ _%stx151676%_))))) + _%hd155361155383%_) + (_%g155354155367%_ + _%g155355155370%_)))) + (_%g155354155367%_ _%g155355155370%_)))) + (_%g155354155367%_ _%g155355155370%_))))) + (_%g155353155401%_ _%stx155350%_))))) (define gxc#generate-runtime-call% - (lambda (_%self151116%_ _%stx151117%_) - (letrec ((_%compile-call151119%_ - (lambda (_%rator151408%_ _%rands151409%_) - (let ((_%rator151415%_ + (lambda (_%self154796%_ _%stx154797%_) + (letrec ((_%compile-call154799%_ + (lambda (_%rator155086%_ _%rands155087%_) + (let ((_%rator155093%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self151116%_ - _%rator151408%_))) - (_%rands151416%_ - (map (lambda (_%g151410151412%_) + _%self154796%_ + _%rator155086%_))) + (_%rands155094%_ + (map (lambda (_%g155088155090%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self151116%_ - _%g151410151412%_))) - _%rands151409%_))) - (let* ((_%__stx157218157219%_ _%rator151415%_) - (_%g151419151471%_ + _%self154796%_ + _%g155088155090%_))) + _%rands155087%_))) + (let* ((_%__stx160865160866%_ _%rator155093%_) + (_%g155097155149%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx157218157219%_))))) - (let ((_%__kont157220157221%_ - (lambda (_%L151595%_ - _%L151596%_ - _%L151597%_ - _%L151598%_) - (if (let ((__tmp157890 + _%__stx160865160866%_))))) + (let ((_%__kont160867160868%_ + (lambda (_%g155099155269%_ + _%g155100155270%_ + _%g155101155271%_ + _%g155102155272%_) + (if (let ((__tmp161537 (let () (declare (not safe)) - (##length _%rands151416%_))) - (__tmp157888 - (length (let ((__tmp157889 - (lambda (_%g151634151637%_ + (##length _%rands155094%_))) + (__tmp161535 + (length (let ((__tmp161536 + (lambda (_%g155308155311%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g151635151639%_) - (cons _%g151634151637%_ _%g151635151639%_)))) + _%g155309155313%_) + (cons _%g155308155311%_ _%g155309155313%_)))) (declare (not safe)) - (__foldr1 __tmp157889 '() _%L151597%_))))) + (__foldr1 __tmp161536 '() _%g155101155271%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##fx= __tmp157890 __tmp157888)) - (let* ((_%id151642%_ _%L151598%_) - (_%args151651%_ - (let ((__tmp157891 - (lambda (_%g151643151646%_ - _%g151644151648%_) - (cons _%g151643151646%_ - _%g151644151648%_)))) + (##fx= __tmp161537 __tmp161535)) + (let* ((_%id155316%_ _%g155102155272%_) + (_%args155325%_ + (let ((__tmp161538 + (lambda (_%g155317155320%_ + _%g155318155322%_) + (cons _%g155317155320%_ + _%g155318155322%_)))) (declare (not safe)) (__foldr1 - __tmp157891 + __tmp161538 '() - _%L151597%_))) - (_%body151660%_ - (let ((__tmp157892 - (lambda (_%g151652151655%_ - _%g151653151657%_) - (cons _%g151652151655%_ - _%g151653151657%_)))) + _%g155101155271%_))) + (_%body155334%_ + (let ((__tmp161539 + (lambda (_%g155326155329%_ + _%g155327155331%_) + (cons _%g155326155329%_ + _%g155327155331%_)))) (declare (not safe)) (__foldr1 - __tmp157892 + __tmp161539 '() - _%L151596%_))) - (_%init151662%_ + _%g155100155270%_))) + (_%init155336%_ (map list - _%args151651%_ - _%rands151416%_))) + _%args155325%_ + _%rands155094%_))) (cons 'let - (cons _%id151642%_ - (cons _%init151662%_ - _%body151660%_)))) - (let ((__tmp157893 - (let ((__tmp157894 - (lambda (_%g151664151667%_ - _%g151665151669%_) - (cons _%g151664151667%_ - _%g151665151669%_)))) + (cons _%id155316%_ + (cons _%init155336%_ + _%body155334%_)))) + (let ((__tmp161540 + (let ((__tmp161541 + (lambda (_%g155338155341%_ + _%g155339155343%_) + (cons _%g155338155341%_ + _%g155339155343%_)))) (declare (not safe)) (__foldr1 - __tmp157894 + __tmp161541 '() - _%L151597%_)))) + _%g155101155271%_)))) (declare (not safe)) (gxc#raise-compile-error '"Illegal loop application; arity mismatch" - _%stx151117%_ - __tmp157893 - _%rands151416%_))))) - (_%__kont157226157227%_ + _%stx154797%_ + __tmp161540 + _%rands155094%_))))) + (_%__kont160873160874%_ (lambda () - (cons _%rator151415%_ _%rands151416%_)))) - (let ((_%__match157285157286%_ - (lambda (_%e151425151483%_ - _%hd151426151486%_ - _%tl151427151488%_ - _%e151428151491%_ - _%hd151429151494%_ - _%tl151430151496%_ - _%e151431151499%_ - _%hd151432151502%_ - _%tl151433151504%_ - _%e151434151507%_ - _%hd151435151510%_ - _%tl151436151512%_ - _%e151437151515%_ - _%hd151438151518%_ - _%tl151439151520%_ - _%e151440151523%_ - _%hd151441151526%_ - _%tl151442151528%_ - _%e151443151531%_ - _%hd151444151534%_ - _%tl151445151536%_ - _%__splice157222157223%_ - _%target151446151539%_ - _%tl151448151541%_) - (letrec ((_%loop151449151544%_ - (lambda (_%hd151447151547%_ - _%arg151453151549%_) + (cons _%rator155093%_ _%rands155094%_)))) + (let ((_%__match160932160933%_ + (lambda (_%e155103155161%_ + _%hd155104155164%_ + _%tl155105155166%_ + _%e155106155169%_ + _%hd155107155172%_ + _%tl155108155174%_ + _%e155109155177%_ + _%hd155110155180%_ + _%tl155111155182%_ + _%e155112155185%_ + _%hd155113155188%_ + _%tl155114155190%_ + _%e155115155193%_ + _%hd155116155196%_ + _%tl155117155198%_ + _%e155118155201%_ + _%hd155119155204%_ + _%tl155120155206%_ + _%e155121155209%_ + _%hd155122155212%_ + _%tl155123155214%_ + _%__splice160869160870%_ + _%target155124155217%_ + _%tl155126155219%_) + (letrec ((_%loop155127155222%_ + (lambda (_%hd155125155225%_ + _%arg155131155227%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd151447151547%_)) - (let ((_%e151450151552%_ + _%hd155125155225%_)) + (let ((_%e155128155229%_ (let () (declare (not safe)) (gx#stx-e - _%hd151447151547%_)))) - (let ((_%lp-tl151452151557%_ + _%hd155125155225%_)))) + (let ((_%lp-tl155130155234%_ (let () (declare (not safe)) - (##cdr _%e151450151552%_))) - (_%lp-hd151451151555%_ + (##cdr _%e155128155229%_))) + (_%lp-hd155129155232%_ (let () (declare (not safe)) - (##car _%e151450151552%_)))) - (_%loop151449151544%_ - _%lp-tl151452151557%_ - (cons _%lp-hd151451151555%_ - _%arg151453151549%_)))) - (let ((_%arg151454151560%_ - (reverse _%arg151453151549%_))) + (##car _%e155128155229%_)))) + (_%loop155127155222%_ + _%lp-tl155130155234%_ + (cons _%lp-hd155129155232%_ + _%arg155131155227%_)))) + (let ((_%arg155132155237%_ + (reverse _%arg155131155227%_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl151445151536%_)) - (let ((_%__splice157224157225%_ + _%tl155123155214%_)) + (let ((_%__splice160871160872%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#syntax-split-splice->vector - _%tl151445151536%_ + _%tl155123155214%_ '0)))) - (let ((_%tl151457151565%_ + (let ((_%tl155135155241%_ (let () (declare (not safe)) - (##vector-ref _%__splice157224157225%_ '1))) - (_%target151455151563%_ + (##vector-ref _%__splice160871160872%_ '1))) + (_%target155133155239%_ (let () (declare (not safe)) - (##vector-ref _%__splice157224157225%_ '0)))) + (##vector-ref _%__splice160871160872%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151457151565%_)) - (letrec ((_%loop151458151568%_ - (lambda (_%hd151456151571%_ - _%body151462151573%_) + (gx#stx-null? _%tl155135155241%_)) + (letrec ((_%loop155136155244%_ + (lambda (_%hd155134155247%_ + _%body155140155249%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd151456151571%_)) - (let ((_%e151459151576%_ + (gx#stx-pair? _%hd155134155247%_)) + (let ((_%e155137155251%_ (let () (declare (not safe)) (gx#stx-e - _%hd151456151571%_)))) - (let ((_%lp-tl151461151581%_ + _%hd155134155247%_)))) + (let ((_%lp-tl155139155256%_ (let () (declare (not safe)) - (##cdr _%e151459151576%_))) - (_%lp-hd151460151579%_ + (##cdr _%e155137155251%_))) + (_%lp-hd155138155254%_ (let () (declare (not safe)) - (##car _%e151459151576%_)))) - (_%loop151458151568%_ - _%lp-tl151461151581%_ - (cons _%lp-hd151460151579%_ - _%body151462151573%_)))) - (let ((_%body151463151584%_ - (reverse _%body151462151573%_))) + (##car _%e155137155251%_)))) + (_%loop155136155244%_ + _%lp-tl155139155256%_ + (cons _%lp-hd155138155254%_ + _%body155140155249%_)))) + (let ((_%body155141155259%_ + (reverse _%body155140155249%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151439151520%_)) + _%tl155117155198%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151433151504%_)) + _%tl155111155182%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl151430151496%_)) - (let ((_%e151464151587%_ + _%tl155108155174%_)) + (let ((_%e155142155261%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl151430151496%_)))) - (let ((_%tl151466151592%_ + (gx#stx-e _%tl155108155174%_)))) + (let ((_%tl155144155266%_ (let () (declare (not safe)) - (##cdr _%e151464151587%_))) - (_%hd151465151590%_ + (##cdr _%e155142155261%_))) + (_%hd155143155264%_ (let () (declare (not safe)) - (##car _%e151464151587%_)))) + (##car _%e155142155261%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151466151592%_)) - (let ((_%L151595%_ _%hd151465151590%_) - (_%L151596%_ _%body151463151584%_) - (_%L151597%_ _%arg151454151560%_) - (_%L151598%_ _%hd151435151510%_)) - (if (eq? _%L151598%_ _%L151595%_) - (_%__kont157220157221%_ - _%L151595%_ - _%L151596%_ - _%L151597%_ - _%L151598%_) - (_%__kont157226157227%_))) - (_%__kont157226157227%_)))) - (_%__kont157226157227%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont157226157227%_)) - (_%__kont157226157227%_))))))) - (_%loop151458151568%_ _%target151455151563%_ '())) - (_%__kont157226157227%_)))) - (_%__kont157226157227%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop151449151544%_ - _%target151446151539%_ + (gx#stx-null? _%tl155144155266%_)) + (let ((_%g155099155269%_ _%hd155143155264%_) + (_%g155100155270%_ _%body155141155259%_) + (_%g155101155271%_ _%arg155132155237%_) + (_%g155102155272%_ _%hd155113155188%_)) + (if (eq? _%g155102155272%_ _%g155099155269%_) + (_%__kont160867160868%_ + _%g155099155269%_ + _%g155100155270%_ + _%g155101155271%_ + _%g155102155272%_) + (_%__kont160873160874%_))) + (_%__kont160873160874%_)))) + (_%__kont160873160874%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont160873160874%_)) + (_%__kont160873160874%_))))))) + (_%loop155136155244%_ _%target155133155239%_ '())) + (_%__kont160873160874%_)))) + (_%__kont160873160874%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop155127155222%_ + _%target155124155217%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx157218157219%_)) - (let ((_%e151425151483%_ + (gx#stx-pair? _%__stx160865160866%_)) + (let ((_%e155103155161%_ (let () (declare (not safe)) - (gx#stx-e _%__stx157218157219%_)))) - (let ((_%tl151427151488%_ + (gx#stx-e _%__stx160865160866%_)))) + (let ((_%tl155105155166%_ (let () (declare (not safe)) - (##cdr _%e151425151483%_))) - (_%hd151426151486%_ + (##cdr _%e155103155161%_))) + (_%hd155104155164%_ (let () (declare (not safe)) - (##car _%e151425151483%_)))) + (##car _%e155103155161%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd151426151486%_)) + (gx#identifier? _%hd155104155164%_)) (if (let () (declare (not safe)) (gx#stx-eq? 'letrec - _%hd151426151486%_)) + _%hd155104155164%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl151427151488%_)) - (let ((_%e151428151491%_ + _%tl155105155166%_)) + (let ((_%e155106155169%_ (let () (declare (not safe)) (gx#stx-e - _%tl151427151488%_)))) - (let ((_%tl151430151496%_ + _%tl155105155166%_)))) + (let ((_%tl155108155174%_ (let () (declare (not safe)) - (##cdr _%e151428151491%_))) - (_%hd151429151494%_ + (##cdr _%e155106155169%_))) + (_%hd155107155172%_ (let () (declare (not safe)) - (##car _%e151428151491%_)))) + (##car _%e155106155169%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd151429151494%_)) - (let ((_%e151431151499%_ + _%hd155107155172%_)) + (let ((_%e155109155177%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd151429151494%_)))) - (let ((_%tl151433151504%_ + (gx#stx-e _%hd155107155172%_)))) + (let ((_%tl155111155182%_ (let () (declare (not safe)) - (##cdr _%e151431151499%_))) - (_%hd151432151502%_ + (##cdr _%e155109155177%_))) + (_%hd155110155180%_ (let () (declare (not safe)) - (##car _%e151431151499%_)))) + (##car _%e155109155177%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd151432151502%_)) - (let ((_%e151434151507%_ + (gx#stx-pair? _%hd155110155180%_)) + (let ((_%e155112155185%_ (let () (declare (not safe)) - (gx#stx-e _%hd151432151502%_)))) - (let ((_%tl151436151512%_ + (gx#stx-e _%hd155110155180%_)))) + (let ((_%tl155114155190%_ (let () (declare (not safe)) - (##cdr _%e151434151507%_))) - (_%hd151435151510%_ + (##cdr _%e155112155185%_))) + (_%hd155113155188%_ (let () (declare (not safe)) - (##car _%e151434151507%_)))) + (##car _%e155112155185%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151436151512%_)) - (let ((_%e151437151515%_ + (gx#stx-pair? _%tl155114155190%_)) + (let ((_%e155115155193%_ (let () (declare (not safe)) - (gx#stx-e _%tl151436151512%_)))) - (let ((_%tl151439151520%_ + (gx#stx-e _%tl155114155190%_)))) + (let ((_%tl155117155198%_ (let () (declare (not safe)) - (##cdr _%e151437151515%_))) - (_%hd151438151518%_ + (##cdr _%e155115155193%_))) + (_%hd155116155196%_ (let () (declare (not safe)) - (##car _%e151437151515%_)))) + (##car _%e155115155193%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd151438151518%_)) - (let ((_%e151440151523%_ + (gx#stx-pair? _%hd155116155196%_)) + (let ((_%e155118155201%_ (let () (declare (not safe)) (gx#stx-e - _%hd151438151518%_)))) - (let ((_%tl151442151528%_ + _%hd155116155196%_)))) + (let ((_%tl155120155206%_ (let () (declare (not safe)) - (##cdr _%e151440151523%_))) - (_%hd151441151526%_ + (##cdr _%e155118155201%_))) + (_%hd155119155204%_ (let () (declare (not safe)) - (##car _%e151440151523%_)))) + (##car _%e155118155201%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd151441151526%_)) + _%hd155119155204%_)) (if (let () (declare (not safe)) (gx#stx-eq? 'lambda - _%hd151441151526%_)) + _%hd155119155204%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl151442151528%_)) - (let ((_%e151443151531%_ + _%tl155120155206%_)) + (let ((_%e155121155209%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl151442151528%_)))) - (let ((_%tl151445151536%_ + (gx#stx-e _%tl155120155206%_)))) + (let ((_%tl155123155214%_ (let () (declare (not safe)) - (##cdr _%e151443151531%_))) - (_%hd151444151534%_ + (##cdr _%e155121155209%_))) + (_%hd155122155212%_ (let () (declare (not safe)) - (##car _%e151443151531%_)))) + (##car _%e155121155209%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd151444151534%_)) - (let ((_%__splice157222157223%_ + (gx#stx-pair/null? _%hd155122155212%_)) + (let ((_%__splice160869160870%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%hd151444151534%_ + _%hd155122155212%_ '0)))) - (let ((_%tl151448151541%_ + (let ((_%tl155126155219%_ (let () (declare (not safe)) - (##vector-ref _%__splice157222157223%_ '1))) - (_%target151446151539%_ + (##vector-ref _%__splice160869160870%_ '1))) + (_%target155124155217%_ (let () (declare (not safe)) (##vector-ref - _%__splice157222157223%_ + _%__splice160869160870%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151448151541%_)) - (_%__match157285157286%_ - _%e151425151483%_ - _%hd151426151486%_ - _%tl151427151488%_ - _%e151428151491%_ - _%hd151429151494%_ - _%tl151430151496%_ - _%e151431151499%_ - _%hd151432151502%_ - _%tl151433151504%_ - _%e151434151507%_ - _%hd151435151510%_ - _%tl151436151512%_ - _%e151437151515%_ - _%hd151438151518%_ - _%tl151439151520%_ - _%e151440151523%_ - _%hd151441151526%_ - _%tl151442151528%_ - _%e151443151531%_ - _%hd151444151534%_ - _%tl151445151536%_ - _%__splice157222157223%_ - _%target151446151539%_ - _%tl151448151541%_) - (_%__kont157226157227%_)))) - (_%__kont157226157227%_)))) - (_%__kont157226157227%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont157226157227%_)) - (_%__kont157226157227%_)))) - (_%__kont157226157227%_)))) - (_%__kont157226157227%_)))) - (_%__kont157226157227%_)))) - (_%__kont157226157227%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont157226157227%_)) - (_%__kont157226157227%_)) - (_%__kont157226157227%_)))) - (_%__kont157226157227%_))))))))) - (let* ((_%g151121151144%_ - (lambda (_%g151122151141%_) + (gx#stx-null? _%tl155126155219%_)) + (_%__match160932160933%_ + _%e155103155161%_ + _%hd155104155164%_ + _%tl155105155166%_ + _%e155106155169%_ + _%hd155107155172%_ + _%tl155108155174%_ + _%e155109155177%_ + _%hd155110155180%_ + _%tl155111155182%_ + _%e155112155185%_ + _%hd155113155188%_ + _%tl155114155190%_ + _%e155115155193%_ + _%hd155116155196%_ + _%tl155117155198%_ + _%e155118155201%_ + _%hd155119155204%_ + _%tl155120155206%_ + _%e155121155209%_ + _%hd155122155212%_ + _%tl155123155214%_ + _%__splice160869160870%_ + _%target155124155217%_ + _%tl155126155219%_) + (_%__kont160873160874%_)))) + (_%__kont160873160874%_)))) + (_%__kont160873160874%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont160873160874%_)) + (_%__kont160873160874%_)))) + (_%__kont160873160874%_)))) + (_%__kont160873160874%_)))) + (_%__kont160873160874%_)))) + (_%__kont160873160874%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont160873160874%_)) + (_%__kont160873160874%_)) + (_%__kont160873160874%_)))) + (_%__kont160873160874%_))))))))) + (let* ((_%g154801154824%_ + (lambda (_%g154802154821%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g151122151141%_)))) - (_%g151120151405%_ - (lambda (_%g151122151147%_) + _%g154802154821%_)))) + (_%g154800155083%_ + (lambda (_%g154802154827%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g151122151147%_)) - (let ((_%e151125151149%_ + (gx#stx-pair? _%g154802154827%_)) + (let ((_%e154805154829%_ (let () (declare (not safe)) - (gx#stx-e _%g151122151147%_)))) - (let ((_%hd151126151152%_ + (gx#stx-e _%g154802154827%_)))) + (let ((_%hd154806154832%_ (let () (declare (not safe)) - (##car _%e151125151149%_))) - (_%tl151127151154%_ + (##car _%e154805154829%_))) + (_%tl154807154834%_ (let () (declare (not safe)) - (##cdr _%e151125151149%_)))) + (##cdr _%e154805154829%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151127151154%_)) - (let ((_%e151128151157%_ + (gx#stx-pair? _%tl154807154834%_)) + (let ((_%e154808154837%_ (let () (declare (not safe)) - (gx#stx-e _%tl151127151154%_)))) - (let ((_%hd151129151160%_ + (gx#stx-e _%tl154807154834%_)))) + (let ((_%hd154809154840%_ (let () (declare (not safe)) - (##car _%e151128151157%_))) - (_%tl151130151162%_ + (##car _%e154808154837%_))) + (_%tl154810154842%_ (let () (declare (not safe)) - (##cdr _%e151128151157%_)))) + (##cdr _%e154808154837%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl151130151162%_)) - (let ((_g157895_ + _%tl154810154842%_)) + (let ((_g161542_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl151130151162%_ + _%tl154810154842%_ '0)))) (begin - (let ((_g157896_ + (let ((_g161543_ (let () (declare (not safe)) - (if (##values? _g157895_) + (if (##values? _g161542_) (##values-length - _g157895_) + _g161542_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g157896_ 2))) + (##fx= _g161543_ 2))) (error "Context expects 2 values" - _g157896_))) - (let ((_%target151131151165%_ + _g161543_))) + (let ((_%target154811154845%_ (let () (declare (not safe)) (##values-ref - _g157895_ + _g161542_ 0))) - (_%tl151133151167%_ + (_%tl154813154847%_ (let () (declare (not safe)) (##values-ref - _g157895_ + _g161542_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151133151167%_)) - (letrec ((_%loop151134151170%_ - (lambda (_%hd151132151173%_ + _%tl154813154847%_)) + (letrec ((_%loop154814154850%_ + (lambda (_%hd154812154853%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rand151138151175%_) + _%rand154818154855%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd151132151173%_)) - (let ((_%e151135151178%_ + (gx#stx-pair? _%hd154812154853%_)) + (let ((_%e154815154857%_ (let () (declare (not safe)) - (gx#stx-e _%hd151132151173%_)))) - (let ((_%lp-hd151136151181%_ + (gx#stx-e _%hd154812154853%_)))) + (let ((_%lp-hd154816154860%_ (let () (declare (not safe)) - (##car _%e151135151178%_))) - (_%lp-tl151137151183%_ + (##car _%e154815154857%_))) + (_%lp-tl154817154862%_ (let () (declare (not safe)) - (##cdr _%e151135151178%_)))) - (_%loop151134151170%_ - _%lp-tl151137151183%_ - (cons _%lp-hd151136151181%_ - _%rand151138151175%_)))) - (let ((_%rand151139151186%_ - (reverse _%rand151138151175%_))) - ((lambda (_%L151189%_ _%L151190%_) + (##cdr _%e154815154857%_)))) + (_%loop154814154850%_ + _%lp-tl154817154862%_ + (cons _%lp-hd154816154860%_ + _%rand154818154855%_)))) + (let ((_%rand154819154865%_ + (reverse _%rand154818154855%_))) + ((lambda (_%g154803154867%_ _%g154804154868%_) (if (gxc#current-compile-decls-unsafe?) - (_%compile-call151119%_ - _%L151190%_ - (let ((__tmp157897 - (lambda (_%g151207151210%_ - _%g151208151212%_) - (cons _%g151207151210%_ - _%g151208151212%_)))) + (_%compile-call154799%_ + _%g154804154868%_ + (let ((__tmp161544 + (lambda (_%g154885154888%_ + _%g154886154890%_) + (cons _%g154885154888%_ + _%g154886154890%_)))) (declare (not safe)) - (__foldr1 __tmp157897 '() _%L151189%_))) - (let* ((_%__stx157334157335%_ _%L151190%_) - (_%g151216151228%_ + (__foldr1 + __tmp161544 + '() + _%g154803154867%_))) + (let* ((_%__stx160981160982%_ + _%g154804154868%_) + (_%g154894154906%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx157334157335%_))))) - (let ((_%__kont157336157337%_ + _%__stx160981160982%_))))) + (let ((_%__kont160983160984%_ (lambda () - (let ((_%f151265%_ + (let ((_%f154943%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self151116%_ - _%L151190%_)))) - (if (and (let ((__tmp157898 + _%self154796%_ + _%g154804154868%_)))) + (if (and (let ((__tmp161545 (symbol->string ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%f151265%_))) + _%f154943%_))) (declare (not safe)) - (##string-prefix? '"##" __tmp157898)) + (##string-prefix? '"##" __tmp161545)) (not (let () (declare (not safe)) - (##memq _%f151265%_ gxc#checked-primitives)))) + (##memq _%f154943%_ gxc#checked-primitives)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp151267%_ ((_%rest151270%_ + (let _%lp154945%_ ((_%rest154948%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse (let ((__tmp157900 - (lambda (_%g151387151390%_ - _%g151388151392%_) - (cons _%g151387151390%_ - _%g151388151392%_)))) + (reverse (let ((__tmp161547 + (lambda (_%g155065155068%_ + _%g155066155070%_) + (cons _%g155065155068%_ + _%g155066155070%_)))) (declare (not safe)) (__foldr1 - __tmp157900 + __tmp161547 '() - _%L151189%_)))) - (_%bind151272%_ '()) - (_%args151273%_ '())) - (let* ((_%rest151274151282%_ _%rest151270%_) - (_%else151276151290%_ + _%g154803154867%_)))) + (_%bind154950%_ '()) + (_%args154951%_ '())) + (let* ((_%rest154952154960%_ _%rest154948%_) + (_%else154954154968%_ (lambda () (cons 'let - (cons _%bind151272%_ + (cons _%bind154950%_ (cons '(declare (not safe)) - (cons (cons _%f151265%_ - _%args151273%_) + (cons (cons _%f154943%_ + _%args154951%_) '())))))) - (_%K151278151376%_ - (lambda (_%rest151293%_ _%e151294%_) - (let* ((_%__stx157288157289%_ _%e151294%_) - (_%g151299151317%_ + (_%K154956155054%_ + (lambda (_%rest154971%_ _%e154972%_) + (let* ((_%__stx160935160936%_ _%e154972%_) + (_%g154977154995%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx157288157289%_))))) - (let ((_%__kont157290157291%_ + _%__stx160935160936%_))))) + (let ((_%__kont160937160938%_ (lambda () - (_%lp151267%_ - _%rest151293%_ - _%bind151272%_ + (_%lp154945%_ + _%rest154971%_ + _%bind154950%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e151294%_)) - _%args151273%_)))) - (_%__kont157292157293%_ + (gxc#compile-e__0 _%e154972%_)) + _%args154951%_)))) + (_%__kont160939160940%_ (lambda () - (_%lp151267%_ - _%rest151293%_ - _%bind151272%_ + (_%lp154945%_ + _%rest154971%_ + _%bind154950%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e151294%_)) - _%args151273%_)))) - (_%__kont157294157295%_ + (gxc#compile-e__0 _%e154972%_)) + _%args154951%_)))) + (_%__kont160941160942%_ (lambda () - (let ((_%tmp151324%_ - (let ((__tmp157899 + (let ((_%tmp155002%_ + (let ((__tmp161546 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp157899)))) - (_%lp151267%_ - _%rest151293%_ - (cons (cons _%tmp151324%_ + (make-symbol__0 __tmp161546)))) + (_%lp154945%_ + _%rest154971%_ + (cons (cons _%tmp155002%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e151294%_)) + _%e154972%_)) '())) - _%bind151272%_) - (cons _%tmp151324%_ _%args151273%_)))))) + _%bind154950%_) + (cons _%tmp155002%_ _%args154951%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx157288157289%_)) - (let ((_%e151301151355%_ + (gx#stx-pair? _%__stx160935160936%_)) + (let ((_%e154979155033%_ (let () (declare (not safe)) - (gx#stx-e _%__stx157288157289%_)))) - (let ((_%tl151303151360%_ + (gx#stx-e _%__stx160935160936%_)))) + (let ((_%tl154981155038%_ (let () (declare (not safe)) - (##cdr _%e151301151355%_))) - (_%hd151302151358%_ + (##cdr _%e154979155033%_))) + (_%hd154980155036%_ (let () (declare (not safe)) - (##car _%e151301151355%_)))) + (##car _%e154979155033%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd151302151358%_)) + (gx#identifier? _%hd154980155036%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd151302151358%_)) + _%hd154980155036%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl151303151360%_)) - (let ((_%e151304151363%_ + _%tl154981155038%_)) + (let ((_%e154982155041%_ (let () (declare (not safe)) (gx#stx-e - _%tl151303151360%_)))) - (let ((_%tl151306151368%_ + _%tl154981155038%_)))) + (let ((_%tl154984155046%_ (let () (declare (not safe)) - (##cdr _%e151304151363%_))) - (_%hd151305151366%_ + (##cdr _%e154982155041%_))) + (_%hd154983155044%_ (let () (declare (not safe)) - (##car _%e151304151363%_)))) + (##car _%e154982155041%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl151306151368%_)) - (_%__kont157290157291%_) - (_%__kont157294157295%_)))) - (_%__kont157294157295%_)) + _%tl154984155046%_)) + (_%__kont160937160938%_) + (_%__kont160941160942%_)))) + (_%__kont160941160942%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd151302151358%_)) + _%hd154980155036%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl151303151360%_)) - (let ((_%e151310151340%_ + _%tl154981155038%_)) + (let ((_%e154988155018%_ (let () (declare (not safe)) (gx#stx-e - _%tl151303151360%_)))) - (let ((_%tl151312151345%_ + _%tl154981155038%_)))) + (let ((_%tl154990155023%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e151310151340%_))) - (_%hd151311151343%_ - (let () (declare (not safe)) (##car _%e151310151340%_)))) + (##cdr _%e154988155018%_))) + (_%hd154989155021%_ + (let () (declare (not safe)) (##car _%e154988155018%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151312151345%_)) - (_%__kont157292157293%_) - (_%__kont157294157295%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont157294157295%_)) - (_%__kont157294157295%_))) - (_%__kont157294157295%_)))) - (_%__kont157294157295%_))))))) - (if (pair? _%rest151274151282%_) - (let ((_%hd151279151379%_ + (gx#stx-null? _%tl154990155023%_)) + (_%__kont160939160940%_) + (_%__kont160941160942%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont160941160942%_)) + (_%__kont160941160942%_))) + (_%__kont160941160942%_)))) + (_%__kont160941160942%_))))))) + (if (pair? _%rest154952154960%_) + (let ((_%hd154957155057%_ (let () (declare (not safe)) - (##car _%rest151274151282%_))) - (_%tl151280151381%_ + (##car _%rest154952154960%_))) + (_%tl154958155059%_ (let () (declare (not safe)) - (##cdr _%rest151274151282%_)))) - (let* ((_%e151384%_ _%hd151279151379%_) - (_%rest151386%_ _%tl151280151381%_)) - (_%K151278151376%_ _%rest151386%_ _%e151384%_))) - (_%else151276151290%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%compile-call151119%_ - _%L151190%_ - (let ((__tmp157901 - (lambda (_%g151394151397%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g151395151399%_) - (cons _%g151394151397%_ _%g151395151399%_)))) + (##cdr _%rest154952154960%_)))) + (let* ((_%e155062%_ _%hd154957155057%_) + (_%rest155064%_ _%tl154958155059%_)) + (_%K154956155054%_ _%rest155064%_ _%e155062%_))) + (_%else154954154968%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%compile-call154799%_ + _%g154804154868%_ + (let ((__tmp161548 + (lambda (_%g155072155075%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g155073155077%_) + (cons _%g155072155075%_ _%g155073155077%_)))) (declare (not safe)) - (__foldr1 __tmp157901 '() _%L151189%_))))))) + (__foldr1 __tmp161548 '() _%g154803154867%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont157338157339%_ + (_%__kont160985160986%_ (lambda () - (_%compile-call151119%_ - _%L151190%_ - (let ((__tmp157902 - (lambda (_%g151234151237%_ - _%g151235151239%_) - (cons _%g151234151237%_ - _%g151235151239%_)))) + (_%compile-call154799%_ + _%g154804154868%_ + (let ((__tmp161549 + (lambda (_%g154912154915%_ + _%g154913154917%_) + (cons _%g154912154915%_ + _%g154913154917%_)))) (declare (not safe)) (__foldr1 - __tmp157902 + __tmp161549 '() - _%L151189%_)))))) + _%g154803154867%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx157334157335%_)) - (let ((_%e151218151247%_ + _%__stx160981160982%_)) + (let ((_%e154896154925%_ (let () (declare (not safe)) (gx#stx-e - _%__stx157334157335%_)))) - (let ((_%tl151220151252%_ + _%__stx160981160982%_)))) + (let ((_%tl154898154930%_ (let () (declare (not safe)) - (##cdr _%e151218151247%_))) - (_%hd151219151250%_ + (##cdr _%e154896154925%_))) + (_%hd154897154928%_ (let () (declare (not safe)) - (##car _%e151218151247%_)))) + (##car _%e154896154925%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd151219151250%_)) + _%hd154897154928%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd151219151250%_)) + _%hd154897154928%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl151220151252%_)) - (let ((_%e151221151255%_ + _%tl154898154930%_)) + (let ((_%e154899154933%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl151220151252%_)))) - (let ((_%tl151223151260%_ + (gx#stx-e _%tl154898154930%_)))) + (let ((_%tl154901154938%_ (let () (declare (not safe)) - (##cdr _%e151221151255%_))) - (_%hd151222151258%_ + (##cdr _%e154899154933%_))) + (_%hd154900154936%_ (let () (declare (not safe)) - (##car _%e151221151255%_)))) + (##car _%e154899154933%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151223151260%_)) - (_%__kont157336157337%_) - (_%__kont157338157339%_)))) - (_%__kont157338157339%_)) - (_%__kont157338157339%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont157338157339%_)))) - (_%__kont157338157339%_)))))) - _%rand151139151186%_ - _%hd151129151160%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop151134151170%_ - _%target151131151165%_ + (gx#stx-null? _%tl154901154938%_)) + (_%__kont160983160984%_) + (_%__kont160985160986%_)))) + (_%__kont160985160986%_)) + (_%__kont160985160986%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont160985160986%_)))) + (_%__kont160985160986%_)))))) + _%rand154819154865%_ + _%hd154809154840%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop154814154850%_ + _%target154811154845%_ '())) - (_%g151121151144%_ - _%g151122151147%_))))) - (_%g151121151144%_ - _%g151122151147%_)))) - (_%g151121151144%_ _%g151122151147%_)))) - (_%g151121151144%_ _%g151122151147%_))))) - (_%g151120151405%_ _%stx151117%_))))) + (_%g154801154824%_ + _%g154802154827%_))))) + (_%g154801154824%_ + _%g154802154827%_)))) + (_%g154801154824%_ _%g154802154827%_)))) + (_%g154801154824%_ _%g154802154827%_))))) + (_%g154800155083%_ _%stx154797%_))))) (define gxc#generate-runtime-call-unchecked% - (lambda (_%self150859%_ _%stx150860%_) - (let* ((_%__stx157406157407%_ _%stx150860%_) - (_%g150863150892%_ + (lambda (_%self154541%_ _%stx154542%_) + (let* ((_%__stx161053161054%_ _%stx154542%_) + (_%g154545154574%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx157406157407%_))))) - (let ((_%__kont157408157409%_ - (lambda (_%L150960%_ _%L150961%_) + _%__stx161053161054%_))))) + (let ((_%__kont161055161056%_ + (lambda (_%g154547154640%_ _%g154548154641%_) (if (gxc#current-compile-decls-unsafe?) (gxc#generate-runtime-call% - _%self150859%_ - _%stx150860%_) - (let ((_%f150983%_ - (let ((__tmp157903 + _%self154541%_ + _%stx154542%_) + (let ((_%f154663%_ + (let ((__tmp161550 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L150961%_ '())))) + (cons _%g154548154641%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self150859%_ - __tmp157903)))) - (let _%lp150985%_ ((_%rest150988%_ - (reverse (let ((__tmp157905 - (lambda (_%g151105151108%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g151106151110%_) - (cons _%g151105151108%_ _%g151106151110%_)))) + _%self154541%_ + __tmp161550)))) + (let _%lp154665%_ ((_%rest154668%_ + (reverse (let ((__tmp161552 + (lambda (_%g154785154788%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g154786154790%_) + (cons _%g154785154788%_ _%g154786154790%_)))) (declare (not safe)) - (__foldr1 __tmp157905 '() _%L150960%_)))) + (__foldr1 __tmp161552 '() _%g154547154640%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%bind150990%_ '()) - (_%args150991%_ '())) - (let* ((_%rest150992151000%_ _%rest150988%_) - (_%else150994151008%_ + (_%bind154670%_ '()) + (_%args154671%_ '())) + (let* ((_%rest154672154680%_ _%rest154668%_) + (_%else154674154688%_ (lambda () (cons 'let - (cons _%bind150990%_ + (cons _%bind154670%_ (cons '(declare (not safe)) - (cons (cons _%f150983%_ + (cons (cons _%f154663%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%args150991%_) + _%args154671%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K150996151094%_ - (lambda (_%rest151011%_ _%e151012%_) - (let* ((_%__stx157360157361%_ _%e151012%_) - (_%g151017151035%_ + (_%K154676154774%_ + (lambda (_%rest154691%_ _%e154692%_) + (let* ((_%__stx161007161008%_ _%e154692%_) + (_%g154697154715%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx157360157361%_))))) - (let ((_%__kont157362157363%_ + _%__stx161007161008%_))))) + (let ((_%__kont161009161010%_ (lambda () - (_%lp150985%_ - _%rest151011%_ - _%bind150990%_ + (_%lp154665%_ + _%rest154691%_ + _%bind154670%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e151012%_)) - _%args150991%_)))) - (_%__kont157364157365%_ + _%e154692%_)) + _%args154671%_)))) + (_%__kont161011161012%_ (lambda () - (_%lp150985%_ - _%rest151011%_ - _%bind150990%_ + (_%lp154665%_ + _%rest154691%_ + _%bind154670%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e151012%_)) - _%args150991%_)))) - (_%__kont157366157367%_ + _%e154692%_)) + _%args154671%_)))) + (_%__kont161013161014%_ (lambda () - (let ((_%tmp151042%_ - (let ((__tmp157904 + (let ((_%tmp154722%_ + (let ((__tmp161551 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp157904)))) + (make-symbol__0 __tmp161551)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp150985%_ - _%rest151011%_ - (cons (cons _%tmp151042%_ + (_%lp154665%_ + _%rest154691%_ + (cons (cons _%tmp154722%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _%e151012%_)) + (gxc#compile-e__0 _%e154692%_)) '())) - _%bind150990%_) + _%bind154670%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%tmp151042%_ - _%args150991%_)))))) + (cons _%tmp154722%_ + _%args154671%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx157360157361%_)) - (let ((_%e151019151073%_ + _%__stx161007161008%_)) + (let ((_%e154699154753%_ (let () (declare (not safe)) (gx#stx-e - _%__stx157360157361%_)))) - (let ((_%tl151021151078%_ + _%__stx161007161008%_)))) + (let ((_%tl154701154758%_ (let () (declare (not safe)) - (##cdr _%e151019151073%_))) - (_%hd151020151076%_ + (##cdr _%e154699154753%_))) + (_%hd154700154756%_ (let () (declare (not safe)) - (##car _%e151019151073%_)))) + (##car _%e154699154753%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd151020151076%_)) + _%hd154700154756%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd151020151076%_)) + _%hd154700154756%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl151021151078%_)) - (let ((_%e151022151081%_ + (gx#stx-pair? _%tl154701154758%_)) + (let ((_%e154702154761%_ (let () (declare (not safe)) - (gx#stx-e _%tl151021151078%_)))) - (let ((_%tl151024151086%_ + (gx#stx-e _%tl154701154758%_)))) + (let ((_%tl154704154766%_ (let () (declare (not safe)) - (##cdr _%e151022151081%_))) - (_%hd151023151084%_ + (##cdr _%e154702154761%_))) + (_%hd154703154764%_ (let () (declare (not safe)) - (##car _%e151022151081%_)))) + (##car _%e154702154761%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151024151086%_)) - (_%__kont157362157363%_) - (_%__kont157366157367%_)))) - (_%__kont157366157367%_)) + (gx#stx-null? _%tl154704154766%_)) + (_%__kont161009161010%_) + (_%__kont161013161014%_)))) + (_%__kont161013161014%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd151020151076%_)) + (gx#stx-eq? '%#quote _%hd154700154756%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl151021151078%_)) - (let ((_%e151028151058%_ + (gx#stx-pair? _%tl154701154758%_)) + (let ((_%e154708154738%_ (let () (declare (not safe)) - (gx#stx-e _%tl151021151078%_)))) - (let ((_%tl151030151063%_ + (gx#stx-e _%tl154701154758%_)))) + (let ((_%tl154710154743%_ (let () (declare (not safe)) - (##cdr _%e151028151058%_))) - (_%hd151029151061%_ + (##cdr _%e154708154738%_))) + (_%hd154709154741%_ (let () (declare (not safe)) - (##car _%e151028151058%_)))) + (##car _%e154708154738%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl151030151063%_)) - (_%__kont157364157365%_) - (_%__kont157366157367%_)))) - (_%__kont157366157367%_)) - (_%__kont157366157367%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont157366157367%_)))) - (_%__kont157366157367%_))))))) - (if (pair? _%rest150992151000%_) - (let ((_%hd150997151097%_ + (gx#stx-null? _%tl154710154743%_)) + (_%__kont161011161012%_) + (_%__kont161013161014%_)))) + (_%__kont161013161014%_)) + (_%__kont161013161014%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont161013161014%_)))) + (_%__kont161013161014%_))))))) + (if (pair? _%rest154672154680%_) + (let ((_%hd154677154777%_ (let () (declare (not safe)) - (##car _%rest150992151000%_))) - (_%tl150998151099%_ + (##car _%rest154672154680%_))) + (_%tl154678154779%_ (let () (declare (not safe)) - (##cdr _%rest150992151000%_)))) - (let* ((_%e151102%_ _%hd150997151097%_) - (_%rest151104%_ _%tl150998151099%_)) - (_%K150996151094%_ - _%rest151104%_ - _%e151102%_))) - (_%else150994151008%_)))))))) - (_%__kont157412157413%_ + (##cdr _%rest154672154680%_)))) + (let* ((_%e154782%_ _%hd154677154777%_) + (_%rest154784%_ _%tl154678154779%_)) + (_%K154676154774%_ + _%rest154784%_ + _%e154782%_))) + (_%else154674154688%_)))))))) + (_%__kont161059161060%_ (lambda () - (gxc#generate-runtime-call% _%self150859%_ _%stx150860%_)))) - (let ((_%__match157451157452%_ - (lambda (_%e150867150904%_ - _%hd150868150907%_ - _%tl150869150909%_ - _%e150870150912%_ - _%hd150871150915%_ - _%tl150872150917%_ - _%e150873150920%_ - _%hd150874150923%_ - _%tl150875150925%_ - _%e150876150928%_ - _%hd150877150931%_ - _%tl150878150933%_ - _%__splice157410157411%_ - _%target150879150936%_ - _%tl150881150938%_) - (letrec ((_%loop150882150941%_ - (lambda (_%hd150880150944%_ - _%rand150886150946%_) + (gxc#generate-runtime-call% _%self154541%_ _%stx154542%_)))) + (let ((_%__match161098161099%_ + (lambda (_%e154549154586%_ + _%hd154550154589%_ + _%tl154551154591%_ + _%e154552154594%_ + _%hd154553154597%_ + _%tl154554154599%_ + _%e154555154602%_ + _%hd154556154605%_ + _%tl154557154607%_ + _%e154558154610%_ + _%hd154559154613%_ + _%tl154560154615%_ + _%__splice161057161058%_ + _%target154561154618%_ + _%tl154563154620%_) + (letrec ((_%loop154564154623%_ + (lambda (_%hd154562154626%_ + _%rand154568154628%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd150880150944%_)) - (let ((_%e150883150949%_ + (gx#stx-pair? _%hd154562154626%_)) + (let ((_%e154565154630%_ (let () (declare (not safe)) - (gx#stx-e _%hd150880150944%_)))) - (let ((_%lp-tl150885150954%_ + (gx#stx-e _%hd154562154626%_)))) + (let ((_%lp-tl154567154635%_ (let () (declare (not safe)) - (##cdr _%e150883150949%_))) - (_%lp-hd150884150952%_ + (##cdr _%e154565154630%_))) + (_%lp-hd154566154633%_ (let () (declare (not safe)) - (##car _%e150883150949%_)))) - (_%loop150882150941%_ - _%lp-tl150885150954%_ - (cons _%lp-hd150884150952%_ - _%rand150886150946%_)))) - (let ((_%rand150887150957%_ - (reverse _%rand150886150946%_))) - (_%__kont157408157409%_ - _%rand150887150957%_ - _%hd150877150931%_)))))) - (_%loop150882150941%_ _%target150879150936%_ '()))))) + (##car _%e154565154630%_)))) + (_%loop154564154623%_ + _%lp-tl154567154635%_ + (cons _%lp-hd154566154633%_ + _%rand154568154628%_)))) + (let ((_%rand154569154638%_ + (reverse _%rand154568154628%_))) + (_%__kont161055161056%_ + _%rand154569154638%_ + _%hd154559154613%_)))))) + (_%loop154564154623%_ _%target154561154618%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx157406157407%_)) - (let ((_%e150867150904%_ + (gx#stx-pair? _%__stx161053161054%_)) + (let ((_%e154549154586%_ (let () (declare (not safe)) - (gx#stx-e _%__stx157406157407%_)))) - (let ((_%tl150869150909%_ + (gx#stx-e _%__stx161053161054%_)))) + (let ((_%tl154551154591%_ (let () (declare (not safe)) - (##cdr _%e150867150904%_))) - (_%hd150868150907%_ + (##cdr _%e154549154586%_))) + (_%hd154550154589%_ (let () (declare (not safe)) - (##car _%e150867150904%_)))) + (##car _%e154549154586%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150869150909%_)) - (let ((_%e150870150912%_ + (gx#stx-pair? _%tl154551154591%_)) + (let ((_%e154552154594%_ (let () (declare (not safe)) - (gx#stx-e _%tl150869150909%_)))) - (let ((_%tl150872150917%_ + (gx#stx-e _%tl154551154591%_)))) + (let ((_%tl154554154599%_ (let () (declare (not safe)) - (##cdr _%e150870150912%_))) - (_%hd150871150915%_ + (##cdr _%e154552154594%_))) + (_%hd154553154597%_ (let () (declare (not safe)) - (##car _%e150870150912%_)))) + (##car _%e154552154594%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd150871150915%_)) - (let ((_%e150873150920%_ + (gx#stx-pair? _%hd154553154597%_)) + (let ((_%e154555154602%_ (let () (declare (not safe)) - (gx#stx-e _%hd150871150915%_)))) - (let ((_%tl150875150925%_ + (gx#stx-e _%hd154553154597%_)))) + (let ((_%tl154557154607%_ (let () (declare (not safe)) - (##cdr _%e150873150920%_))) - (_%hd150874150923%_ + (##cdr _%e154555154602%_))) + (_%hd154556154605%_ (let () (declare (not safe)) - (##car _%e150873150920%_)))) + (##car _%e154555154602%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd150874150923%_)) + _%hd154556154605%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd150874150923%_)) + _%hd154556154605%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl150875150925%_)) - (let ((_%e150876150928%_ + _%tl154557154607%_)) + (let ((_%e154558154610%_ (let () (declare (not safe)) (gx#stx-e - _%tl150875150925%_)))) - (let ((_%tl150878150933%_ + _%tl154557154607%_)))) + (let ((_%tl154560154615%_ (let () (declare (not safe)) - (##cdr _%e150876150928%_))) - (_%hd150877150931%_ + (##cdr _%e154558154610%_))) + (_%hd154559154613%_ (let () (declare (not safe)) - (##car _%e150876150928%_)))) + (##car _%e154558154610%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl150878150933%_)) + _%tl154560154615%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl150872150917%_)) - (let ((_%__splice157410157411%_ + (gx#stx-pair/null? _%tl154554154599%_)) + (let ((_%__splice161057161058%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl150872150917%_ + _%tl154554154599%_ '0)))) - (let ((_%tl150881150938%_ + (let ((_%tl154563154620%_ (let () (declare (not safe)) - (##vector-ref _%__splice157410157411%_ '1))) - (_%target150879150936%_ + (##vector-ref _%__splice161057161058%_ '1))) + (_%target154561154618%_ (let () (declare (not safe)) - (##vector-ref _%__splice157410157411%_ '0)))) + (##vector-ref _%__splice161057161058%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl150881150938%_)) - (_%__match157451157452%_ - _%e150867150904%_ - _%hd150868150907%_ - _%tl150869150909%_ - _%e150870150912%_ - _%hd150871150915%_ - _%tl150872150917%_ - _%e150873150920%_ - _%hd150874150923%_ - _%tl150875150925%_ - _%e150876150928%_ - _%hd150877150931%_ - _%tl150878150933%_ - _%__splice157410157411%_ - _%target150879150936%_ - _%tl150881150938%_) - (_%__kont157412157413%_)))) - (_%__kont157412157413%_)) - (_%__kont157412157413%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont157412157413%_)) - (_%__kont157412157413%_)) - (_%__kont157412157413%_)))) - (_%__kont157412157413%_)))) - (_%__kont157412157413%_)))) - (_%__kont157412157413%_))))))) + (gx#stx-null? _%tl154563154620%_)) + (_%__match161098161099%_ + _%e154549154586%_ + _%hd154550154589%_ + _%tl154551154591%_ + _%e154552154594%_ + _%hd154553154597%_ + _%tl154554154599%_ + _%e154555154602%_ + _%hd154556154605%_ + _%tl154557154607%_ + _%e154558154610%_ + _%hd154559154613%_ + _%tl154560154615%_ + _%__splice161057161058%_ + _%target154561154618%_ + _%tl154563154620%_) + (_%__kont161059161060%_)))) + (_%__kont161059161060%_)) + (_%__kont161059161060%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont161059161060%_)) + (_%__kont161059161060%_)) + (_%__kont161059161060%_)))) + (_%__kont161059161060%_)))) + (_%__kont161059161060%_)))) + (_%__kont161059161060%_))))))) (define gxc#generate-runtime-if% - (lambda (_%self150671%_ _%stx150672%_) - (letrec ((_%simplify150674%_ - (lambda (_%code150759%_) - (let* ((_%code150760150778%_ _%code150759%_) - (_%else150762150786%_ (lambda () _%code150759%_)) - (_%K150764150822%_ - (lambda (_%expr150789%_ _%test150790%_) - (let* ((_%expr150791150799%_ _%expr150789%_) - (_%else150793150807%_ + (lambda (_%self154353%_ _%stx154354%_) + (letrec ((_%simplify154356%_ + (lambda (_%code154441%_) + (let* ((_%code154442154460%_ _%code154441%_) + (_%else154444154468%_ (lambda () _%code154441%_)) + (_%K154446154504%_ + (lambda (_%expr154471%_ _%test154472%_) + (let* ((_%expr154473154481%_ _%expr154471%_) + (_%else154475154489%_ (lambda () (cons 'and - (cons _%test150790%_ - (cons _%expr150789%_ + (cons _%test154472%_ + (cons _%expr154471%_ '()))))) - (_%K150795150812%_ - (lambda (_%exprs150810%_) + (_%K154477154494%_ + (lambda (_%exprs154492%_) (cons 'and - (cons _%test150790%_ - _%exprs150810%_))))) - (if (pair? _%expr150791150799%_) - (let ((_%hd150796150815%_ + (cons _%test154472%_ + _%exprs154492%_))))) + (if (pair? _%expr154473154481%_) + (let ((_%hd154478154497%_ (let () (declare (not safe)) - (##car _%expr150791150799%_))) - (_%tl150797150817%_ + (##car _%expr154473154481%_))) + (_%tl154479154499%_ (let () (declare (not safe)) - (##cdr _%expr150791150799%_)))) + (##cdr _%expr154473154481%_)))) (if (let () (declare (not safe)) - (##eq? _%hd150796150815%_ 'and)) - (let ((_%exprs150820%_ - _%tl150797150817%_)) - (_%K150795150812%_ - _%exprs150820%_)) - (_%else150793150807%_))) - (_%else150793150807%_)))))) - (if (pair? _%code150760150778%_) - (let ((_%hd150765150825%_ + (##eq? _%hd154478154497%_ 'and)) + (let ((_%exprs154502%_ + _%tl154479154499%_)) + (_%K154477154494%_ + _%exprs154502%_)) + (_%else154475154489%_))) + (_%else154475154489%_)))))) + (if (pair? _%code154442154460%_) + (let ((_%hd154447154507%_ (let () (declare (not safe)) - (##car _%code150760150778%_))) - (_%tl150766150827%_ + (##car _%code154442154460%_))) + (_%tl154448154509%_ (let () (declare (not safe)) - (##cdr _%code150760150778%_)))) + (##cdr _%code154442154460%_)))) (if (let () (declare (not safe)) - (##eq? _%hd150765150825%_ 'if)) - (if (pair? _%tl150766150827%_) - (let ((_%hd150767150830%_ + (##eq? _%hd154447154507%_ 'if)) + (if (pair? _%tl154448154509%_) + (let ((_%hd154449154512%_ (let () (declare (not safe)) - (##car _%tl150766150827%_))) - (_%tl150768150832%_ + (##car _%tl154448154509%_))) + (_%tl154450154514%_ (let () (declare (not safe)) - (##cdr _%tl150766150827%_)))) - (let ((_%test150835%_ - _%hd150767150830%_)) - (if (pair? _%tl150768150832%_) - (let ((_%hd150769150837%_ + (##cdr _%tl154448154509%_)))) + (let ((_%test154517%_ + _%hd154449154512%_)) + (if (pair? _%tl154450154514%_) + (let ((_%hd154451154519%_ (let () (declare (not safe)) - (##car _%tl150768150832%_))) - (_%tl150770150839%_ + (##car _%tl154450154514%_))) + (_%tl154452154521%_ (let () (declare (not safe)) - (##cdr _%tl150768150832%_)))) - (let ((_%expr150842%_ - _%hd150769150837%_)) - (if (pair? _%tl150770150839%_) - (let ((_%hd150771150844%_ + (##cdr _%tl154450154514%_)))) + (let ((_%expr154524%_ + _%hd154451154519%_)) + (if (pair? _%tl154452154521%_) + (let ((_%hd154453154526%_ (let () (declare (not safe)) - (##car _%tl150770150839%_))) - (_%tl150772150846%_ + (##car _%tl154452154521%_))) + (_%tl154454154528%_ (let () (declare (not safe)) - (##cdr _%tl150770150839%_)))) - (if (pair? _%hd150771150844%_) - (let ((_%hd150773150849%_ + (##cdr _%tl154452154521%_)))) + (if (pair? _%hd154453154526%_) + (let ((_%hd154455154531%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%hd150771150844%_))) - (_%tl150774150851%_ + (##car _%hd154453154526%_))) + (_%tl154456154533%_ (let () (declare (not safe)) - (##cdr _%hd150771150844%_)))) + (##cdr _%hd154453154526%_)))) (if (let () (declare (not safe)) - (##eq? _%hd150773150849%_ 'quote)) - (if (pair? _%tl150774150851%_) - (let ((_%hd150775150854%_ + (##eq? _%hd154455154531%_ 'quote)) + (if (pair? _%tl154456154533%_) + (let ((_%hd154457154536%_ (let () (declare (not safe)) - (##car _%tl150774150851%_))) - (_%tl150776150856%_ + (##car _%tl154456154533%_))) + (_%tl154458154538%_ (let () (declare (not safe)) - (##cdr _%tl150774150851%_)))) + (##cdr _%tl154456154533%_)))) (if (let () (declare (not safe)) - (##eq? _%hd150775150854%_ '#f)) - (if (null? _%tl150776150856%_) - (if (null? _%tl150772150846%_) - (_%K150764150822%_ - _%expr150842%_ - _%test150835%_) - (_%else150762150786%_)) - (_%else150762150786%_)) - (_%else150762150786%_))) - (_%else150762150786%_)) - (_%else150762150786%_))) - (_%else150762150786%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else150762150786%_)))) - (_%else150762150786%_)))) - (_%else150762150786%_)) - (_%else150762150786%_))) - (_%else150762150786%_)))))) - (let* ((_%g150676150697%_ - (lambda (_%g150677150694%_) + (##eq? _%hd154457154536%_ '#f)) + (if (null? _%tl154458154538%_) + (if (null? _%tl154454154528%_) + (_%K154446154504%_ + _%expr154524%_ + _%test154517%_) + (_%else154444154468%_)) + (_%else154444154468%_)) + (_%else154444154468%_))) + (_%else154444154468%_)) + (_%else154444154468%_))) + (_%else154444154468%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else154444154468%_)))) + (_%else154444154468%_)))) + (_%else154444154468%_)) + (_%else154444154468%_))) + (_%else154444154468%_)))))) + (let* ((_%g154358154379%_ + (lambda (_%g154359154376%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g150677150694%_)))) - (_%g150675150756%_ - (lambda (_%g150677150700%_) + _%g154359154376%_)))) + (_%g154357154438%_ + (lambda (_%g154359154382%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g150677150700%_)) - (let ((_%e150681150702%_ + (gx#stx-pair? _%g154359154382%_)) + (let ((_%e154363154384%_ (let () (declare (not safe)) - (gx#stx-e _%g150677150700%_)))) - (let ((_%hd150682150705%_ + (gx#stx-e _%g154359154382%_)))) + (let ((_%hd154364154387%_ (let () (declare (not safe)) - (##car _%e150681150702%_))) - (_%tl150683150707%_ + (##car _%e154363154384%_))) + (_%tl154365154389%_ (let () (declare (not safe)) - (##cdr _%e150681150702%_)))) + (##cdr _%e154363154384%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150683150707%_)) - (let ((_%e150684150710%_ + (gx#stx-pair? _%tl154365154389%_)) + (let ((_%e154366154392%_ (let () (declare (not safe)) - (gx#stx-e _%tl150683150707%_)))) - (let ((_%hd150685150713%_ + (gx#stx-e _%tl154365154389%_)))) + (let ((_%hd154367154395%_ (let () (declare (not safe)) - (##car _%e150684150710%_))) - (_%tl150686150715%_ + (##car _%e154366154392%_))) + (_%tl154368154397%_ (let () (declare (not safe)) - (##cdr _%e150684150710%_)))) + (##cdr _%e154366154392%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150686150715%_)) - (let ((_%e150687150718%_ + (gx#stx-pair? _%tl154368154397%_)) + (let ((_%e154369154400%_ (let () (declare (not safe)) (gx#stx-e - _%tl150686150715%_)))) - (let ((_%hd150688150721%_ + _%tl154368154397%_)))) + (let ((_%hd154370154403%_ (let () (declare (not safe)) - (##car _%e150687150718%_))) - (_%tl150689150723%_ + (##car _%e154369154400%_))) + (_%tl154371154405%_ (let () (declare (not safe)) - (##cdr _%e150687150718%_)))) + (##cdr _%e154369154400%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl150689150723%_)) - (let ((_%e150690150726%_ + _%tl154371154405%_)) + (let ((_%e154372154408%_ (let () (declare (not safe)) (gx#stx-e - _%tl150689150723%_)))) - (let ((_%hd150691150729%_ + _%tl154371154405%_)))) + (let ((_%hd154373154411%_ (let () (declare (not safe)) - (##car _%e150690150726%_))) - (_%tl150692150731%_ + (##car _%e154372154408%_))) + (_%tl154374154413%_ (let () (declare (not safe)) - (##cdr _%e150690150726%_)))) + (##cdr _%e154372154408%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl150692150731%_)) - ((lambda (_%L150734%_ + _%tl154374154413%_)) + ((lambda (_%g154360154416%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L150735%_ - _%L150736%_) + _%g154361154417%_ + _%g154362154418%_) (if (let () (declare (not safe)) (gxc#current-compile-boolean-context)) - (_%simplify150674%_ + (_%simplify154356%_ (cons 'if (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self150671%_ - _%L150736%_)) + _%self154353%_ + _%g154362154418%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self150671%_ - _%L150735%_)) + _%self154353%_ + _%g154361154417%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self150671%_ - _%L150734%_)) + _%self154353%_ + _%g154360154416%_)) '()))))) (cons 'if - (cons (let ((__tmp157906 + (cons (let ((__tmp161553 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self150671%_ - _%L150736%_))))) + _%self154353%_ + _%g154362154418%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp157906 + __tmp161553 gxc#current-compile-boolean-context '#t)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self150671%_ - _%L150735%_)) + _%self154353%_ + _%g154361154417%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self150671%_ - _%L150734%_)) + _%self154353%_ + _%g154360154416%_)) '())))))) - _%hd150691150729%_ - _%hd150688150721%_ - _%hd150685150713%_) - (_%g150676150697%_ _%g150677150700%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g150676150697%_ - _%g150677150700%_)))) - (_%g150676150697%_ - _%g150677150700%_)))) - (_%g150676150697%_ _%g150677150700%_)))) - (_%g150676150697%_ _%g150677150700%_))))) - (_%g150675150756%_ _%stx150672%_))))) + _%hd154373154411%_ + _%hd154370154403%_ + _%hd154367154395%_) + (_%g154358154379%_ _%g154359154382%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g154358154379%_ + _%g154359154382%_)))) + (_%g154358154379%_ + _%g154359154382%_)))) + (_%g154358154379%_ _%g154359154382%_)))) + (_%g154358154379%_ _%g154359154382%_))))) + (_%g154357154438%_ _%stx154354%_))))) (define gxc#generate-runtime-ref% - (lambda (_%self150619%_ _%stx150620%_) - (let* ((_%g150622150635%_ - (lambda (_%g150623150632%_) + (lambda (_%self154301%_ _%stx154302%_) + (let* ((_%g154304154317%_ + (lambda (_%g154305154314%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g150623150632%_)))) - (_%g150621150668%_ - (lambda (_%g150623150638%_) + _%g154305154314%_)))) + (_%g154303154350%_ + (lambda (_%g154305154320%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g150623150638%_)) - (let ((_%e150625150640%_ + (gx#stx-pair? _%g154305154320%_)) + (let ((_%e154307154322%_ (let () (declare (not safe)) - (gx#stx-e _%g150623150638%_)))) - (let ((_%hd150626150643%_ + (gx#stx-e _%g154305154320%_)))) + (let ((_%hd154308154325%_ (let () (declare (not safe)) - (##car _%e150625150640%_))) - (_%tl150627150645%_ + (##car _%e154307154322%_))) + (_%tl154309154327%_ (let () (declare (not safe)) - (##cdr _%e150625150640%_)))) + (##cdr _%e154307154322%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150627150645%_)) - (let ((_%e150628150648%_ + (gx#stx-pair? _%tl154309154327%_)) + (let ((_%e154310154330%_ (let () (declare (not safe)) - (gx#stx-e _%tl150627150645%_)))) - (let ((_%hd150629150651%_ + (gx#stx-e _%tl154309154327%_)))) + (let ((_%hd154311154333%_ (let () (declare (not safe)) - (##car _%e150628150648%_))) - (_%tl150630150653%_ + (##car _%e154310154330%_))) + (_%tl154312154335%_ (let () (declare (not safe)) - (##cdr _%e150628150648%_)))) + (##cdr _%e154310154330%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl150630150653%_)) - ((lambda (_%L150656%_) + (gx#stx-null? _%tl154312154335%_)) + ((lambda (_%g154306154338%_) (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L150656%_))) - _%hd150629150651%_) - (_%g150622150635%_ _%g150623150638%_)))) - (_%g150622150635%_ _%g150623150638%_)))) - (_%g150622150635%_ _%g150623150638%_))))) - (_%g150621150668%_ _%stx150620%_)))) + _%g154306154338%_))) + _%hd154311154333%_) + (_%g154304154317%_ _%g154305154320%_)))) + (_%g154304154317%_ _%g154305154320%_)))) + (_%g154304154317%_ _%g154305154320%_))))) + (_%g154303154350%_ _%stx154302%_)))) (define gxc#generate-runtime-setq% - (lambda (_%self150551%_ _%stx150552%_) - (let* ((_%g150554150571%_ - (lambda (_%g150555150568%_) + (lambda (_%self154233%_ _%stx154234%_) + (let* ((_%g154236154253%_ + (lambda (_%g154237154250%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g150555150568%_)))) - (_%g150553150616%_ - (lambda (_%g150555150574%_) + _%g154237154250%_)))) + (_%g154235154298%_ + (lambda (_%g154237154256%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g150555150574%_)) - (let ((_%e150558150576%_ + (gx#stx-pair? _%g154237154256%_)) + (let ((_%e154240154258%_ (let () (declare (not safe)) - (gx#stx-e _%g150555150574%_)))) - (let ((_%hd150559150579%_ + (gx#stx-e _%g154237154256%_)))) + (let ((_%hd154241154261%_ (let () (declare (not safe)) - (##car _%e150558150576%_))) - (_%tl150560150581%_ + (##car _%e154240154258%_))) + (_%tl154242154263%_ (let () (declare (not safe)) - (##cdr _%e150558150576%_)))) + (##cdr _%e154240154258%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150560150581%_)) - (let ((_%e150561150584%_ + (gx#stx-pair? _%tl154242154263%_)) + (let ((_%e154243154266%_ (let () (declare (not safe)) - (gx#stx-e _%tl150560150581%_)))) - (let ((_%hd150562150587%_ + (gx#stx-e _%tl154242154263%_)))) + (let ((_%hd154244154269%_ (let () (declare (not safe)) - (##car _%e150561150584%_))) - (_%tl150563150589%_ + (##car _%e154243154266%_))) + (_%tl154245154271%_ (let () (declare (not safe)) - (##cdr _%e150561150584%_)))) + (##cdr _%e154243154266%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150563150589%_)) - (let ((_%e150564150592%_ + (gx#stx-pair? _%tl154245154271%_)) + (let ((_%e154246154274%_ (let () (declare (not safe)) - (gx#stx-e _%tl150563150589%_)))) - (let ((_%hd150565150595%_ + (gx#stx-e _%tl154245154271%_)))) + (let ((_%hd154247154277%_ (let () (declare (not safe)) - (##car _%e150564150592%_))) - (_%tl150566150597%_ + (##car _%e154246154274%_))) + (_%tl154248154279%_ (let () (declare (not safe)) - (##cdr _%e150564150592%_)))) + (##cdr _%e154246154274%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl150566150597%_)) - ((lambda (_%L150600%_ - _%L150601%_) + _%tl154248154279%_)) + ((lambda (_%g154238154282%_ + _%g154239154283%_) (cons 'set! (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#generate-runtime-binding-id _%L150601%_)) + (gxc#generate-runtime-binding-id _%g154239154283%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self150551%_ _%L150600%_)) + (gxc#compile-e__1 + _%self154233%_ + _%g154238154282%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd150565150595%_ - _%hd150562150587%_) - (_%g150554150571%_ - _%g150555150574%_)))) - (_%g150554150571%_ _%g150555150574%_)))) - (_%g150554150571%_ _%g150555150574%_)))) - (_%g150554150571%_ _%g150555150574%_))))) - (_%g150553150616%_ _%stx150552%_)))) + _%hd154247154277%_ + _%hd154244154269%_) + (_%g154236154253%_ + _%g154237154256%_)))) + (_%g154236154253%_ _%g154237154256%_)))) + (_%g154236154253%_ _%g154237154256%_)))) + (_%g154236154253%_ _%g154237154256%_))))) + (_%g154235154298%_ _%stx154234%_)))) (define gxc#generate-runtime-struct-instancep% - (lambda (_%self150362%_ _%stx150363%_) - (let* ((_%g150365150382%_ - (lambda (_%g150366150379%_) + (lambda (_%self154044%_ _%stx154045%_) + (let* ((_%g154047154064%_ + (lambda (_%g154048154061%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g150366150379%_)))) - (_%g150364150548%_ - (lambda (_%g150366150385%_) + _%g154048154061%_)))) + (_%g154046154230%_ + (lambda (_%g154048154067%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g150366150385%_)) - (let ((_%e150369150387%_ + (gx#stx-pair? _%g154048154067%_)) + (let ((_%e154051154069%_ (let () (declare (not safe)) - (gx#stx-e _%g150366150385%_)))) - (let ((_%hd150370150390%_ + (gx#stx-e _%g154048154067%_)))) + (let ((_%hd154052154072%_ (let () (declare (not safe)) - (##car _%e150369150387%_))) - (_%tl150371150392%_ + (##car _%e154051154069%_))) + (_%tl154053154074%_ (let () (declare (not safe)) - (##cdr _%e150369150387%_)))) + (##cdr _%e154051154069%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150371150392%_)) - (let ((_%e150372150395%_ + (gx#stx-pair? _%tl154053154074%_)) + (let ((_%e154054154077%_ (let () (declare (not safe)) - (gx#stx-e _%tl150371150392%_)))) - (let ((_%hd150373150398%_ + (gx#stx-e _%tl154053154074%_)))) + (let ((_%hd154055154080%_ (let () (declare (not safe)) - (##car _%e150372150395%_))) - (_%tl150374150400%_ + (##car _%e154054154077%_))) + (_%tl154056154082%_ (let () (declare (not safe)) - (##cdr _%e150372150395%_)))) + (##cdr _%e154054154077%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150374150400%_)) - (let ((_%e150375150403%_ + (gx#stx-pair? _%tl154056154082%_)) + (let ((_%e154057154085%_ (let () (declare (not safe)) - (gx#stx-e _%tl150374150400%_)))) - (let ((_%hd150376150406%_ + (gx#stx-e _%tl154056154082%_)))) + (let ((_%hd154058154088%_ (let () (declare (not safe)) - (##car _%e150375150403%_))) - (_%tl150377150408%_ + (##car _%e154057154085%_))) + (_%tl154059154090%_ (let () (declare (not safe)) - (##cdr _%e150375150403%_)))) + (##cdr _%e154057154085%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl150377150408%_)) - ((lambda (_%L150411%_ - _%L150412%_) + _%tl154059154090%_)) + ((lambda (_%g154049154093%_ + _%g154050154094%_) (if (gxc#current-compile-decls-unsafe?) (cons '##structure-instance-of? (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self150362%_ _%L150411%_)) + (gxc#compile-e__1 _%self154044%_ _%g154049154093%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self150362%_ _%L150412%_)) + (gxc#compile-e__1 + _%self154044%_ + _%g154050154094%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp150427%_ ((_%rest150430%_ + (let _%lp154109%_ ((_%rest154112%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L150412%_ (cons _%L150411%_ '()))) - (_%bind150432%_ '()) - (_%args150433%_ '())) - (let* ((_%rest150434150442%_ _%rest150430%_) - (_%else150436150450%_ + (cons _%g154050154094%_ + (cons _%g154049154093%_ '()))) + (_%bind154114%_ '()) + (_%args154115%_ '())) + (let* ((_%rest154116154124%_ _%rest154112%_) + (_%else154118154132%_ (lambda () (cons 'let - (cons _%bind150432%_ + (cons _%bind154114%_ (cons '(declare (not safe)) (cons (cons '##structure-instance-of? - _%args150433%_) + _%args154115%_) '())))))) - (_%K150438150536%_ - (lambda (_%rest150453%_ _%e150454%_) - (let* ((_%__stx157454157455%_ _%e150454%_) - (_%g150459150477%_ + (_%K154120154218%_ + (lambda (_%rest154135%_ _%e154136%_) + (let* ((_%__stx161101161102%_ _%e154136%_) + (_%g154141154159%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx157454157455%_))))) - (let ((_%__kont157456157457%_ + _%__stx161101161102%_))))) + (let ((_%__kont161103161104%_ (lambda () - (_%lp150427%_ - _%rest150453%_ - _%bind150432%_ + (_%lp154109%_ + _%rest154135%_ + _%bind154114%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e150454%_)) - _%args150433%_)))) - (_%__kont157458157459%_ + (gxc#compile-e__0 _%e154136%_)) + _%args154115%_)))) + (_%__kont161105161106%_ (lambda () - (_%lp150427%_ - _%rest150453%_ - _%bind150432%_ + (_%lp154109%_ + _%rest154135%_ + _%bind154114%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e150454%_)) - _%args150433%_)))) - (_%__kont157460157461%_ + (gxc#compile-e__0 _%e154136%_)) + _%args154115%_)))) + (_%__kont161107161108%_ (lambda () - (let ((_%tmp150484%_ - (let ((__tmp157907 + (let ((_%tmp154166%_ + (let ((__tmp161554 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp157907)))) - (_%lp150427%_ - _%rest150453%_ - (cons (cons _%tmp150484%_ + (make-symbol__0 __tmp161554)))) + (_%lp154109%_ + _%rest154135%_ + (cons (cons _%tmp154166%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e150454%_)) + _%e154136%_)) '())) - _%bind150432%_) - (cons _%tmp150484%_ _%args150433%_)))))) + _%bind154114%_) + (cons _%tmp154166%_ _%args154115%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx157454157455%_)) - (let ((_%e150461150515%_ + (gx#stx-pair? _%__stx161101161102%_)) + (let ((_%e154143154197%_ (let () (declare (not safe)) - (gx#stx-e _%__stx157454157455%_)))) - (let ((_%tl150463150520%_ + (gx#stx-e _%__stx161101161102%_)))) + (let ((_%tl154145154202%_ (let () (declare (not safe)) - (##cdr _%e150461150515%_))) - (_%hd150462150518%_ + (##cdr _%e154143154197%_))) + (_%hd154144154200%_ (let () (declare (not safe)) - (##car _%e150461150515%_)))) + (##car _%e154143154197%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd150462150518%_)) + (gx#identifier? _%hd154144154200%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd150462150518%_)) + _%hd154144154200%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl150463150520%_)) - (let ((_%e150464150523%_ + _%tl154145154202%_)) + (let ((_%e154146154205%_ (let () (declare (not safe)) (gx#stx-e - _%tl150463150520%_)))) - (let ((_%tl150466150528%_ + _%tl154145154202%_)))) + (let ((_%tl154148154210%_ (let () (declare (not safe)) - (##cdr _%e150464150523%_))) - (_%hd150465150526%_ + (##cdr _%e154146154205%_))) + (_%hd154147154208%_ (let () (declare (not safe)) - (##car _%e150464150523%_)))) + (##car _%e154146154205%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl150466150528%_)) - (_%__kont157456157457%_) - (_%__kont157460157461%_)))) - (_%__kont157460157461%_)) + _%tl154148154210%_)) + (_%__kont161103161104%_) + (_%__kont161107161108%_)))) + (_%__kont161107161108%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd150462150518%_)) + _%hd154144154200%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl150463150520%_)) - (let ((_%e150470150500%_ + _%tl154145154202%_)) + (let ((_%e154152154182%_ (let () (declare (not safe)) (gx#stx-e - _%tl150463150520%_)))) - (let ((_%tl150472150505%_ + _%tl154145154202%_)))) + (let ((_%tl154154154187%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e150470150500%_))) - (_%hd150471150503%_ - (let () (declare (not safe)) (##car _%e150470150500%_)))) + (##cdr _%e154152154182%_))) + (_%hd154153154185%_ + (let () (declare (not safe)) (##car _%e154152154182%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl150472150505%_)) - (_%__kont157458157459%_) - (_%__kont157460157461%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont157460157461%_)) - (_%__kont157460157461%_))) - (_%__kont157460157461%_)))) - (_%__kont157460157461%_))))))) - (if (pair? _%rest150434150442%_) - (let ((_%hd150439150539%_ + (gx#stx-null? _%tl154154154187%_)) + (_%__kont161105161106%_) + (_%__kont161107161108%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont161107161108%_)) + (_%__kont161107161108%_))) + (_%__kont161107161108%_)))) + (_%__kont161107161108%_))))))) + (if (pair? _%rest154116154124%_) + (let ((_%hd154121154221%_ (let () (declare (not safe)) - (##car _%rest150434150442%_))) - (_%tl150440150541%_ + (##car _%rest154116154124%_))) + (_%tl154122154223%_ (let () (declare (not safe)) - (##cdr _%rest150434150442%_)))) - (let* ((_%e150544%_ _%hd150439150539%_) - (_%rest150546%_ _%tl150440150541%_)) - (_%K150438150536%_ _%rest150546%_ _%e150544%_))) - (_%else150436150450%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd150376150406%_ - _%hd150373150398%_) - (_%g150365150382%_ - _%g150366150385%_)))) - (_%g150365150382%_ _%g150366150385%_)))) - (_%g150365150382%_ _%g150366150385%_)))) - (_%g150365150382%_ _%g150366150385%_))))) - (_%g150364150548%_ _%stx150363%_)))) + (##cdr _%rest154116154124%_)))) + (let* ((_%e154226%_ _%hd154121154221%_) + (_%rest154228%_ _%tl154122154223%_)) + (_%K154120154218%_ _%rest154228%_ _%e154226%_))) + (_%else154118154132%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd154058154088%_ + _%hd154055154080%_) + (_%g154047154064%_ + _%g154048154067%_)))) + (_%g154047154064%_ _%g154048154067%_)))) + (_%g154047154064%_ _%g154048154067%_)))) + (_%g154047154064%_ _%g154048154067%_))))) + (_%g154046154230%_ _%stx154045%_)))) (define gxc#generate-runtime-struct-direct-instancep% - (lambda (_%self150173%_ _%stx150174%_) - (let* ((_%g150176150193%_ - (lambda (_%g150177150190%_) + (lambda (_%self153855%_ _%stx153856%_) + (let* ((_%g153858153875%_ + (lambda (_%g153859153872%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g150177150190%_)))) - (_%g150175150359%_ - (lambda (_%g150177150196%_) + _%g153859153872%_)))) + (_%g153857154041%_ + (lambda (_%g153859153878%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g150177150196%_)) - (let ((_%e150180150198%_ + (gx#stx-pair? _%g153859153878%_)) + (let ((_%e153862153880%_ (let () (declare (not safe)) - (gx#stx-e _%g150177150196%_)))) - (let ((_%hd150181150201%_ + (gx#stx-e _%g153859153878%_)))) + (let ((_%hd153863153883%_ (let () (declare (not safe)) - (##car _%e150180150198%_))) - (_%tl150182150203%_ + (##car _%e153862153880%_))) + (_%tl153864153885%_ (let () (declare (not safe)) - (##cdr _%e150180150198%_)))) + (##cdr _%e153862153880%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150182150203%_)) - (let ((_%e150183150206%_ + (gx#stx-pair? _%tl153864153885%_)) + (let ((_%e153865153888%_ (let () (declare (not safe)) - (gx#stx-e _%tl150182150203%_)))) - (let ((_%hd150184150209%_ + (gx#stx-e _%tl153864153885%_)))) + (let ((_%hd153866153891%_ (let () (declare (not safe)) - (##car _%e150183150206%_))) - (_%tl150185150211%_ + (##car _%e153865153888%_))) + (_%tl153867153893%_ (let () (declare (not safe)) - (##cdr _%e150183150206%_)))) + (##cdr _%e153865153888%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150185150211%_)) - (let ((_%e150186150214%_ + (gx#stx-pair? _%tl153867153893%_)) + (let ((_%e153868153896%_ (let () (declare (not safe)) - (gx#stx-e _%tl150185150211%_)))) - (let ((_%hd150187150217%_ + (gx#stx-e _%tl153867153893%_)))) + (let ((_%hd153869153899%_ (let () (declare (not safe)) - (##car _%e150186150214%_))) - (_%tl150188150219%_ + (##car _%e153868153896%_))) + (_%tl153870153901%_ (let () (declare (not safe)) - (##cdr _%e150186150214%_)))) + (##cdr _%e153868153896%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl150188150219%_)) - ((lambda (_%L150222%_ - _%L150223%_) + _%tl153870153901%_)) + ((lambda (_%g153860153904%_ + _%g153861153905%_) (if (gxc#current-compile-decls-unsafe?) (cons '##structure-direct-instance-of? (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self150173%_ _%L150222%_)) + (gxc#compile-e__1 _%self153855%_ _%g153860153904%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self150173%_ _%L150223%_)) + (gxc#compile-e__1 + _%self153855%_ + _%g153861153905%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp150238%_ ((_%rest150241%_ + (let _%lp153920%_ ((_%rest153923%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L150223%_ (cons _%L150222%_ '()))) - (_%bind150243%_ '()) - (_%args150244%_ '())) - (let* ((_%rest150245150253%_ _%rest150241%_) - (_%else150247150261%_ + (cons _%g153861153905%_ + (cons _%g153860153904%_ '()))) + (_%bind153925%_ '()) + (_%args153926%_ '())) + (let* ((_%rest153927153935%_ _%rest153923%_) + (_%else153929153943%_ (lambda () (cons 'let - (cons _%bind150243%_ + (cons _%bind153925%_ (cons '(declare (not safe)) (cons (cons '##structure-direct-instance-of? - _%args150244%_) + _%args153926%_) '())))))) - (_%K150249150347%_ - (lambda (_%rest150264%_ _%e150265%_) - (let* ((_%__stx157500157501%_ _%e150265%_) - (_%g150270150288%_ + (_%K153931154029%_ + (lambda (_%rest153946%_ _%e153947%_) + (let* ((_%__stx161147161148%_ _%e153947%_) + (_%g153952153970%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx157500157501%_))))) - (let ((_%__kont157502157503%_ + _%__stx161147161148%_))))) + (let ((_%__kont161149161150%_ (lambda () - (_%lp150238%_ - _%rest150264%_ - _%bind150243%_ + (_%lp153920%_ + _%rest153946%_ + _%bind153925%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e150265%_)) - _%args150244%_)))) - (_%__kont157504157505%_ + (gxc#compile-e__0 _%e153947%_)) + _%args153926%_)))) + (_%__kont161151161152%_ (lambda () - (_%lp150238%_ - _%rest150264%_ - _%bind150243%_ + (_%lp153920%_ + _%rest153946%_ + _%bind153925%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e150265%_)) - _%args150244%_)))) - (_%__kont157506157507%_ + (gxc#compile-e__0 _%e153947%_)) + _%args153926%_)))) + (_%__kont161153161154%_ (lambda () - (let ((_%tmp150295%_ - (let ((__tmp157908 + (let ((_%tmp153977%_ + (let ((__tmp161555 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp157908)))) - (_%lp150238%_ - _%rest150264%_ - (cons (cons _%tmp150295%_ + (make-symbol__0 __tmp161555)))) + (_%lp153920%_ + _%rest153946%_ + (cons (cons _%tmp153977%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e150265%_)) + _%e153947%_)) '())) - _%bind150243%_) - (cons _%tmp150295%_ _%args150244%_)))))) + _%bind153925%_) + (cons _%tmp153977%_ _%args153926%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx157500157501%_)) - (let ((_%e150272150326%_ + (gx#stx-pair? _%__stx161147161148%_)) + (let ((_%e153954154008%_ (let () (declare (not safe)) - (gx#stx-e _%__stx157500157501%_)))) - (let ((_%tl150274150331%_ + (gx#stx-e _%__stx161147161148%_)))) + (let ((_%tl153956154013%_ (let () (declare (not safe)) - (##cdr _%e150272150326%_))) - (_%hd150273150329%_ + (##cdr _%e153954154008%_))) + (_%hd153955154011%_ (let () (declare (not safe)) - (##car _%e150272150326%_)))) + (##car _%e153954154008%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd150273150329%_)) + (gx#identifier? _%hd153955154011%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd150273150329%_)) + _%hd153955154011%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl150274150331%_)) - (let ((_%e150275150334%_ + _%tl153956154013%_)) + (let ((_%e153957154016%_ (let () (declare (not safe)) (gx#stx-e - _%tl150274150331%_)))) - (let ((_%tl150277150339%_ + _%tl153956154013%_)))) + (let ((_%tl153959154021%_ (let () (declare (not safe)) - (##cdr _%e150275150334%_))) - (_%hd150276150337%_ + (##cdr _%e153957154016%_))) + (_%hd153958154019%_ (let () (declare (not safe)) - (##car _%e150275150334%_)))) + (##car _%e153957154016%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl150277150339%_)) - (_%__kont157502157503%_) - (_%__kont157506157507%_)))) - (_%__kont157506157507%_)) + _%tl153959154021%_)) + (_%__kont161149161150%_) + (_%__kont161153161154%_)))) + (_%__kont161153161154%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd150273150329%_)) + _%hd153955154011%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl150274150331%_)) - (let ((_%e150281150311%_ + _%tl153956154013%_)) + (let ((_%e153963153993%_ (let () (declare (not safe)) (gx#stx-e - _%tl150274150331%_)))) - (let ((_%tl150283150316%_ + _%tl153956154013%_)))) + (let ((_%tl153965153998%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e150281150311%_))) - (_%hd150282150314%_ - (let () (declare (not safe)) (##car _%e150281150311%_)))) + (##cdr _%e153963153993%_))) + (_%hd153964153996%_ + (let () (declare (not safe)) (##car _%e153963153993%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl150283150316%_)) - (_%__kont157504157505%_) - (_%__kont157506157507%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont157506157507%_)) - (_%__kont157506157507%_))) - (_%__kont157506157507%_)))) - (_%__kont157506157507%_))))))) - (if (pair? _%rest150245150253%_) - (let ((_%hd150250150350%_ + (gx#stx-null? _%tl153965153998%_)) + (_%__kont161151161152%_) + (_%__kont161153161154%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont161153161154%_)) + (_%__kont161153161154%_))) + (_%__kont161153161154%_)))) + (_%__kont161153161154%_))))))) + (if (pair? _%rest153927153935%_) + (let ((_%hd153932154032%_ (let () (declare (not safe)) - (##car _%rest150245150253%_))) - (_%tl150251150352%_ + (##car _%rest153927153935%_))) + (_%tl153933154034%_ (let () (declare (not safe)) - (##cdr _%rest150245150253%_)))) - (let* ((_%e150355%_ _%hd150250150350%_) - (_%rest150357%_ _%tl150251150352%_)) - (_%K150249150347%_ _%rest150357%_ _%e150355%_))) - (_%else150247150261%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd150187150217%_ - _%hd150184150209%_) - (_%g150176150193%_ - _%g150177150196%_)))) - (_%g150176150193%_ _%g150177150196%_)))) - (_%g150176150193%_ _%g150177150196%_)))) - (_%g150176150193%_ _%g150177150196%_))))) - (_%g150175150359%_ _%stx150174%_)))) + (##cdr _%rest153927153935%_)))) + (let* ((_%e154037%_ _%hd153932154032%_) + (_%rest154039%_ _%tl153933154034%_)) + (_%K153931154029%_ _%rest154039%_ _%e154037%_))) + (_%else153929153943%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd153869153899%_ + _%hd153866153891%_) + (_%g153858153875%_ + _%g153859153878%_)))) + (_%g153858153875%_ _%g153859153878%_)))) + (_%g153858153875%_ _%g153859153878%_)))) + (_%g153858153875%_ _%g153859153878%_))))) + (_%g153857154041%_ _%stx153856%_)))) (define gxc#generate-runtime-struct-ref% - (lambda (_%self150089%_ _%stx150090%_) - (let* ((_%g150092150113%_ - (lambda (_%g150093150110%_) + (lambda (_%self153771%_ _%stx153772%_) + (let* ((_%g153774153795%_ + (lambda (_%g153775153792%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g150093150110%_)))) - (_%g150091150170%_ - (lambda (_%g150093150116%_) + _%g153775153792%_)))) + (_%g153773153852%_ + (lambda (_%g153775153798%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g150093150116%_)) - (let ((_%e150097150118%_ + (gx#stx-pair? _%g153775153798%_)) + (let ((_%e153779153800%_ (let () (declare (not safe)) - (gx#stx-e _%g150093150116%_)))) - (let ((_%hd150098150121%_ + (gx#stx-e _%g153775153798%_)))) + (let ((_%hd153780153803%_ (let () (declare (not safe)) - (##car _%e150097150118%_))) - (_%tl150099150123%_ + (##car _%e153779153800%_))) + (_%tl153781153805%_ (let () (declare (not safe)) - (##cdr _%e150097150118%_)))) + (##cdr _%e153779153800%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150099150123%_)) - (let ((_%e150100150126%_ + (gx#stx-pair? _%tl153781153805%_)) + (let ((_%e153782153808%_ (let () (declare (not safe)) - (gx#stx-e _%tl150099150123%_)))) - (let ((_%hd150101150129%_ + (gx#stx-e _%tl153781153805%_)))) + (let ((_%hd153783153811%_ (let () (declare (not safe)) - (##car _%e150100150126%_))) - (_%tl150102150131%_ + (##car _%e153782153808%_))) + (_%tl153784153813%_ (let () (declare (not safe)) - (##cdr _%e150100150126%_)))) + (##cdr _%e153782153808%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150102150131%_)) - (let ((_%e150103150134%_ + (gx#stx-pair? _%tl153784153813%_)) + (let ((_%e153785153816%_ (let () (declare (not safe)) - (gx#stx-e _%tl150102150131%_)))) - (let ((_%hd150104150137%_ + (gx#stx-e _%tl153784153813%_)))) + (let ((_%hd153786153819%_ (let () (declare (not safe)) - (##car _%e150103150134%_))) - (_%tl150105150139%_ + (##car _%e153785153816%_))) + (_%tl153787153821%_ (let () (declare (not safe)) - (##cdr _%e150103150134%_)))) + (##cdr _%e153785153816%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl150105150139%_)) - (let ((_%e150106150142%_ + _%tl153787153821%_)) + (let ((_%e153788153824%_ (let () (declare (not safe)) (gx#stx-e - _%tl150105150139%_)))) - (let ((_%hd150107150145%_ + _%tl153787153821%_)))) + (let ((_%hd153789153827%_ (let () (declare (not safe)) - (##car _%e150106150142%_))) - (_%tl150108150147%_ + (##car _%e153788153824%_))) + (_%tl153790153829%_ (let () (declare (not safe)) - (##cdr _%e150106150142%_)))) + (##cdr _%e153788153824%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl150108150147%_)) - ((lambda (_%L150150%_ - _%L150151%_ - _%L150152%_) + _%tl153790153829%_)) + ((lambda (_%g153776153832%_ + _%g153777153833%_ + _%g153778153834%_) (cons '##structure-ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self150089%_ _%L150150%_)) + (gxc#compile-e__1 + _%self153771%_ + _%g153776153832%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self150089%_ - _%L150151%_)) + _%self153771%_ + _%g153777153833%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self150089%_ - _%L150152%_)) + _%self153771%_ + _%g153778153834%_)) (cons ''#f '())))))) - _%hd150107150145%_ - _%hd150104150137%_ - _%hd150101150129%_) - (_%g150092150113%_ _%g150093150116%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g150092150113%_ - _%g150093150116%_)))) - (_%g150092150113%_ _%g150093150116%_)))) - (_%g150092150113%_ _%g150093150116%_)))) - (_%g150092150113%_ _%g150093150116%_))))) - (_%g150091150170%_ _%stx150090%_)))) + _%hd153789153827%_ + _%hd153786153819%_ + _%hd153783153811%_) + (_%g153774153795%_ _%g153775153798%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g153774153795%_ + _%g153775153798%_)))) + (_%g153774153795%_ _%g153775153798%_)))) + (_%g153774153795%_ _%g153775153798%_)))) + (_%g153774153795%_ _%g153775153798%_))))) + (_%g153773153852%_ _%stx153772%_)))) (define gxc#generate-runtime-struct-setq% - (lambda (_%self149989%_ _%stx149990%_) - (let* ((_%g149992150017%_ - (lambda (_%g149993150014%_) + (lambda (_%self153671%_ _%stx153672%_) + (let* ((_%g153674153699%_ + (lambda (_%g153675153696%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g149993150014%_)))) - (_%g149991150086%_ - (lambda (_%g149993150020%_) + _%g153675153696%_)))) + (_%g153673153768%_ + (lambda (_%g153675153702%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g149993150020%_)) - (let ((_%e149998150022%_ + (gx#stx-pair? _%g153675153702%_)) + (let ((_%e153680153704%_ (let () (declare (not safe)) - (gx#stx-e _%g149993150020%_)))) - (let ((_%hd149999150025%_ + (gx#stx-e _%g153675153702%_)))) + (let ((_%hd153681153707%_ (let () (declare (not safe)) - (##car _%e149998150022%_))) - (_%tl150000150027%_ + (##car _%e153680153704%_))) + (_%tl153682153709%_ (let () (declare (not safe)) - (##cdr _%e149998150022%_)))) + (##cdr _%e153680153704%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150000150027%_)) - (let ((_%e150001150030%_ + (gx#stx-pair? _%tl153682153709%_)) + (let ((_%e153683153712%_ (let () (declare (not safe)) - (gx#stx-e _%tl150000150027%_)))) - (let ((_%hd150002150033%_ + (gx#stx-e _%tl153682153709%_)))) + (let ((_%hd153684153715%_ (let () (declare (not safe)) - (##car _%e150001150030%_))) - (_%tl150003150035%_ + (##car _%e153683153712%_))) + (_%tl153685153717%_ (let () (declare (not safe)) - (##cdr _%e150001150030%_)))) + (##cdr _%e153683153712%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl150003150035%_)) - (let ((_%e150004150038%_ + (gx#stx-pair? _%tl153685153717%_)) + (let ((_%e153686153720%_ (let () (declare (not safe)) - (gx#stx-e _%tl150003150035%_)))) - (let ((_%hd150005150041%_ + (gx#stx-e _%tl153685153717%_)))) + (let ((_%hd153687153723%_ (let () (declare (not safe)) - (##car _%e150004150038%_))) - (_%tl150006150043%_ + (##car _%e153686153720%_))) + (_%tl153688153725%_ (let () (declare (not safe)) - (##cdr _%e150004150038%_)))) + (##cdr _%e153686153720%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl150006150043%_)) - (let ((_%e150007150046%_ + _%tl153688153725%_)) + (let ((_%e153689153728%_ (let () (declare (not safe)) (gx#stx-e - _%tl150006150043%_)))) - (let ((_%hd150008150049%_ + _%tl153688153725%_)))) + (let ((_%hd153690153731%_ (let () (declare (not safe)) - (##car _%e150007150046%_))) - (_%tl150009150051%_ + (##car _%e153689153728%_))) + (_%tl153691153733%_ (let () (declare (not safe)) - (##cdr _%e150007150046%_)))) + (##cdr _%e153689153728%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl150009150051%_)) - (let ((_%e150010150054%_ + _%tl153691153733%_)) + (let ((_%e153692153736%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl150009150051%_)))) - (let ((_%hd150011150057%_ - (let () (declare (not safe)) (##car _%e150010150054%_))) - (_%tl150012150059%_ + (gx#stx-e _%tl153691153733%_)))) + (let ((_%hd153693153739%_ + (let () (declare (not safe)) (##car _%e153692153736%_))) + (_%tl153694153741%_ (let () (declare (not safe)) - (##cdr _%e150010150054%_)))) + (##cdr _%e153692153736%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl150012150059%_)) - ((lambda (_%L150062%_ - _%L150063%_ - _%L150064%_ - _%L150065%_) + (gx#stx-null? _%tl153694153741%_)) + ((lambda (_%g153676153744%_ + _%g153677153745%_ + _%g153678153746%_ + _%g153679153747%_) (cons '##structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self149989%_ - _%L150063%_)) + _%self153671%_ + _%g153677153745%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self149989%_ - _%L150062%_)) + _%self153671%_ + _%g153676153744%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self149989%_ - _%L150064%_)) + _%self153671%_ + _%g153678153746%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self149989%_ - _%L150065%_)) + _%self153671%_ + _%g153679153747%_)) (cons ''#f '()))))))) - _%hd150011150057%_ - _%hd150008150049%_ - _%hd150005150041%_ - _%hd150002150033%_) - (_%g149992150017%_ _%g149993150020%_)))) - (_%g149992150017%_ _%g149993150020%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g149992150017%_ - _%g149993150020%_)))) - (_%g149992150017%_ _%g149993150020%_)))) - (_%g149992150017%_ _%g149993150020%_)))) - (_%g149992150017%_ _%g149993150020%_))))) - (_%g149991150086%_ _%stx149990%_)))) + _%hd153693153739%_ + _%hd153690153731%_ + _%hd153687153723%_ + _%hd153684153715%_) + (_%g153674153699%_ _%g153675153702%_)))) + (_%g153674153699%_ _%g153675153702%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g153674153699%_ + _%g153675153702%_)))) + (_%g153674153699%_ _%g153675153702%_)))) + (_%g153674153699%_ _%g153675153702%_)))) + (_%g153674153699%_ _%g153675153702%_))))) + (_%g153673153768%_ _%stx153672%_)))) (define gxc#generate-runtime-struct-direct-ref% - (lambda (_%self149905%_ _%stx149906%_) - (let* ((_%g149908149929%_ - (lambda (_%g149909149926%_) + (lambda (_%self153587%_ _%stx153588%_) + (let* ((_%g153590153611%_ + (lambda (_%g153591153608%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g149909149926%_)))) - (_%g149907149986%_ - (lambda (_%g149909149932%_) + _%g153591153608%_)))) + (_%g153589153668%_ + (lambda (_%g153591153614%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g149909149932%_)) - (let ((_%e149913149934%_ + (gx#stx-pair? _%g153591153614%_)) + (let ((_%e153595153616%_ (let () (declare (not safe)) - (gx#stx-e _%g149909149932%_)))) - (let ((_%hd149914149937%_ + (gx#stx-e _%g153591153614%_)))) + (let ((_%hd153596153619%_ (let () (declare (not safe)) - (##car _%e149913149934%_))) - (_%tl149915149939%_ + (##car _%e153595153616%_))) + (_%tl153597153621%_ (let () (declare (not safe)) - (##cdr _%e149913149934%_)))) + (##cdr _%e153595153616%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149915149939%_)) - (let ((_%e149916149942%_ + (gx#stx-pair? _%tl153597153621%_)) + (let ((_%e153598153624%_ (let () (declare (not safe)) - (gx#stx-e _%tl149915149939%_)))) - (let ((_%hd149917149945%_ + (gx#stx-e _%tl153597153621%_)))) + (let ((_%hd153599153627%_ (let () (declare (not safe)) - (##car _%e149916149942%_))) - (_%tl149918149947%_ + (##car _%e153598153624%_))) + (_%tl153600153629%_ (let () (declare (not safe)) - (##cdr _%e149916149942%_)))) + (##cdr _%e153598153624%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149918149947%_)) - (let ((_%e149919149950%_ + (gx#stx-pair? _%tl153600153629%_)) + (let ((_%e153601153632%_ (let () (declare (not safe)) - (gx#stx-e _%tl149918149947%_)))) - (let ((_%hd149920149953%_ + (gx#stx-e _%tl153600153629%_)))) + (let ((_%hd153602153635%_ (let () (declare (not safe)) - (##car _%e149919149950%_))) - (_%tl149921149955%_ + (##car _%e153601153632%_))) + (_%tl153603153637%_ (let () (declare (not safe)) - (##cdr _%e149919149950%_)))) + (##cdr _%e153601153632%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl149921149955%_)) - (let ((_%e149922149958%_ + _%tl153603153637%_)) + (let ((_%e153604153640%_ (let () (declare (not safe)) (gx#stx-e - _%tl149921149955%_)))) - (let ((_%hd149923149961%_ + _%tl153603153637%_)))) + (let ((_%hd153605153643%_ (let () (declare (not safe)) - (##car _%e149922149958%_))) - (_%tl149924149963%_ + (##car _%e153604153640%_))) + (_%tl153606153645%_ (let () (declare (not safe)) - (##cdr _%e149922149958%_)))) + (##cdr _%e153604153640%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl149924149963%_)) - ((lambda (_%L149966%_ - _%L149967%_ - _%L149968%_) + _%tl153606153645%_)) + ((lambda (_%g153592153648%_ + _%g153593153649%_ + _%g153594153650%_) (cons '##direct-structure-ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self149905%_ _%L149966%_)) + (gxc#compile-e__1 + _%self153587%_ + _%g153592153648%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self149905%_ - _%L149967%_)) + _%self153587%_ + _%g153593153649%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self149905%_ - _%L149968%_)) + _%self153587%_ + _%g153594153650%_)) (cons ''#f '())))))) - _%hd149923149961%_ - _%hd149920149953%_ - _%hd149917149945%_) - (_%g149908149929%_ _%g149909149932%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g149908149929%_ - _%g149909149932%_)))) - (_%g149908149929%_ _%g149909149932%_)))) - (_%g149908149929%_ _%g149909149932%_)))) - (_%g149908149929%_ _%g149909149932%_))))) - (_%g149907149986%_ _%stx149906%_)))) + _%hd153605153643%_ + _%hd153602153635%_ + _%hd153599153627%_) + (_%g153590153611%_ _%g153591153614%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g153590153611%_ + _%g153591153614%_)))) + (_%g153590153611%_ _%g153591153614%_)))) + (_%g153590153611%_ _%g153591153614%_)))) + (_%g153590153611%_ _%g153591153614%_))))) + (_%g153589153668%_ _%stx153588%_)))) (define gxc#generate-runtime-struct-direct-setq% - (lambda (_%self149805%_ _%stx149806%_) - (let* ((_%g149808149833%_ - (lambda (_%g149809149830%_) + (lambda (_%self153487%_ _%stx153488%_) + (let* ((_%g153490153515%_ + (lambda (_%g153491153512%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g149809149830%_)))) - (_%g149807149902%_ - (lambda (_%g149809149836%_) + _%g153491153512%_)))) + (_%g153489153584%_ + (lambda (_%g153491153518%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g149809149836%_)) - (let ((_%e149814149838%_ + (gx#stx-pair? _%g153491153518%_)) + (let ((_%e153496153520%_ (let () (declare (not safe)) - (gx#stx-e _%g149809149836%_)))) - (let ((_%hd149815149841%_ + (gx#stx-e _%g153491153518%_)))) + (let ((_%hd153497153523%_ (let () (declare (not safe)) - (##car _%e149814149838%_))) - (_%tl149816149843%_ + (##car _%e153496153520%_))) + (_%tl153498153525%_ (let () (declare (not safe)) - (##cdr _%e149814149838%_)))) + (##cdr _%e153496153520%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149816149843%_)) - (let ((_%e149817149846%_ + (gx#stx-pair? _%tl153498153525%_)) + (let ((_%e153499153528%_ (let () (declare (not safe)) - (gx#stx-e _%tl149816149843%_)))) - (let ((_%hd149818149849%_ + (gx#stx-e _%tl153498153525%_)))) + (let ((_%hd153500153531%_ (let () (declare (not safe)) - (##car _%e149817149846%_))) - (_%tl149819149851%_ + (##car _%e153499153528%_))) + (_%tl153501153533%_ (let () (declare (not safe)) - (##cdr _%e149817149846%_)))) + (##cdr _%e153499153528%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149819149851%_)) - (let ((_%e149820149854%_ + (gx#stx-pair? _%tl153501153533%_)) + (let ((_%e153502153536%_ (let () (declare (not safe)) - (gx#stx-e _%tl149819149851%_)))) - (let ((_%hd149821149857%_ + (gx#stx-e _%tl153501153533%_)))) + (let ((_%hd153503153539%_ (let () (declare (not safe)) - (##car _%e149820149854%_))) - (_%tl149822149859%_ + (##car _%e153502153536%_))) + (_%tl153504153541%_ (let () (declare (not safe)) - (##cdr _%e149820149854%_)))) + (##cdr _%e153502153536%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl149822149859%_)) - (let ((_%e149823149862%_ + _%tl153504153541%_)) + (let ((_%e153505153544%_ (let () (declare (not safe)) (gx#stx-e - _%tl149822149859%_)))) - (let ((_%hd149824149865%_ + _%tl153504153541%_)))) + (let ((_%hd153506153547%_ (let () (declare (not safe)) - (##car _%e149823149862%_))) - (_%tl149825149867%_ + (##car _%e153505153544%_))) + (_%tl153507153549%_ (let () (declare (not safe)) - (##cdr _%e149823149862%_)))) + (##cdr _%e153505153544%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl149825149867%_)) - (let ((_%e149826149870%_ + _%tl153507153549%_)) + (let ((_%e153508153552%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl149825149867%_)))) - (let ((_%hd149827149873%_ - (let () (declare (not safe)) (##car _%e149826149870%_))) - (_%tl149828149875%_ + (gx#stx-e _%tl153507153549%_)))) + (let ((_%hd153509153555%_ + (let () (declare (not safe)) (##car _%e153508153552%_))) + (_%tl153510153557%_ (let () (declare (not safe)) - (##cdr _%e149826149870%_)))) + (##cdr _%e153508153552%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl149828149875%_)) - ((lambda (_%L149878%_ - _%L149879%_ - _%L149880%_ - _%L149881%_) + (gx#stx-null? _%tl153510153557%_)) + ((lambda (_%g153492153560%_ + _%g153493153561%_ + _%g153494153562%_ + _%g153495153563%_) (cons '##direct-structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self149805%_ - _%L149879%_)) + _%self153487%_ + _%g153493153561%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self149805%_ - _%L149878%_)) + _%self153487%_ + _%g153492153560%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self149805%_ - _%L149880%_)) + _%self153487%_ + _%g153494153562%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self149805%_ - _%L149881%_)) + _%self153487%_ + _%g153495153563%_)) (cons ''#f '()))))))) - _%hd149827149873%_ - _%hd149824149865%_ - _%hd149821149857%_ - _%hd149818149849%_) - (_%g149808149833%_ _%g149809149836%_)))) - (_%g149808149833%_ _%g149809149836%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g149808149833%_ - _%g149809149836%_)))) - (_%g149808149833%_ _%g149809149836%_)))) - (_%g149808149833%_ _%g149809149836%_)))) - (_%g149808149833%_ _%g149809149836%_))))) - (_%g149807149902%_ _%stx149806%_)))) + _%hd153509153555%_ + _%hd153506153547%_ + _%hd153503153539%_ + _%hd153500153531%_) + (_%g153490153515%_ _%g153491153518%_)))) + (_%g153490153515%_ _%g153491153518%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g153490153515%_ + _%g153491153518%_)))) + (_%g153490153515%_ _%g153491153518%_)))) + (_%g153490153515%_ _%g153491153518%_)))) + (_%g153490153515%_ _%g153491153518%_))))) + (_%g153489153584%_ _%stx153488%_)))) (define gxc#generate-runtime-struct-unchecked-ref% - (lambda (_%self149600%_ _%stx149601%_) - (let* ((_%g149603149624%_ - (lambda (_%g149604149621%_) + (lambda (_%self153282%_ _%stx153283%_) + (let* ((_%g153285153306%_ + (lambda (_%g153286153303%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g149604149621%_)))) - (_%g149602149802%_ - (lambda (_%g149604149627%_) + _%g153286153303%_)))) + (_%g153284153484%_ + (lambda (_%g153286153309%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g149604149627%_)) - (let ((_%e149608149629%_ + (gx#stx-pair? _%g153286153309%_)) + (let ((_%e153290153311%_ (let () (declare (not safe)) - (gx#stx-e _%g149604149627%_)))) - (let ((_%hd149609149632%_ + (gx#stx-e _%g153286153309%_)))) + (let ((_%hd153291153314%_ (let () (declare (not safe)) - (##car _%e149608149629%_))) - (_%tl149610149634%_ + (##car _%e153290153311%_))) + (_%tl153292153316%_ (let () (declare (not safe)) - (##cdr _%e149608149629%_)))) + (##cdr _%e153290153311%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149610149634%_)) - (let ((_%e149611149637%_ + (gx#stx-pair? _%tl153292153316%_)) + (let ((_%e153293153319%_ (let () (declare (not safe)) - (gx#stx-e _%tl149610149634%_)))) - (let ((_%hd149612149640%_ + (gx#stx-e _%tl153292153316%_)))) + (let ((_%hd153294153322%_ (let () (declare (not safe)) - (##car _%e149611149637%_))) - (_%tl149613149642%_ + (##car _%e153293153319%_))) + (_%tl153295153324%_ (let () (declare (not safe)) - (##cdr _%e149611149637%_)))) + (##cdr _%e153293153319%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149613149642%_)) - (let ((_%e149614149645%_ + (gx#stx-pair? _%tl153295153324%_)) + (let ((_%e153296153327%_ (let () (declare (not safe)) - (gx#stx-e _%tl149613149642%_)))) - (let ((_%hd149615149648%_ + (gx#stx-e _%tl153295153324%_)))) + (let ((_%hd153297153330%_ (let () (declare (not safe)) - (##car _%e149614149645%_))) - (_%tl149616149650%_ + (##car _%e153296153327%_))) + (_%tl153298153332%_ (let () (declare (not safe)) - (##cdr _%e149614149645%_)))) + (##cdr _%e153296153327%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl149616149650%_)) - (let ((_%e149617149653%_ + _%tl153298153332%_)) + (let ((_%e153299153335%_ (let () (declare (not safe)) (gx#stx-e - _%tl149616149650%_)))) - (let ((_%hd149618149656%_ + _%tl153298153332%_)))) + (let ((_%hd153300153338%_ (let () (declare (not safe)) - (##car _%e149617149653%_))) - (_%tl149619149658%_ + (##car _%e153299153335%_))) + (_%tl153301153340%_ (let () (declare (not safe)) - (##cdr _%e149617149653%_)))) + (##cdr _%e153299153335%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl149619149658%_)) - ((lambda (_%L149661%_ - _%L149662%_ - _%L149663%_) + _%tl153301153340%_)) + ((lambda (_%g153287153343%_ + _%g153288153344%_ + _%g153289153345%_) (if (gxc#current-compile-decls-unsafe?) (cons '##unchecked-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self149600%_ - _%L149661%_)) + _%self153282%_ + _%g153287153343%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self149600%_ - _%L149662%_)) + _%self153282%_ + _%g153288153344%_)) (cons ''#f (cons ''#f '()))))) - (let _%lp149681%_ ((_%rest149684%_ - (cons _%L149662%_ - (cons _%L149661%_ '()))) - (_%bind149686%_ '()) - (_%args149687%_ '())) - (let* ((_%rest149688149696%_ _%rest149684%_) - (_%else149690149704%_ + (let _%lp153363%_ ((_%rest153366%_ + (cons _%g153288153344%_ + (cons _%g153287153343%_ '()))) + (_%bind153368%_ '()) + (_%args153369%_ '())) + (let* ((_%rest153370153378%_ _%rest153366%_) + (_%else153372153386%_ (lambda () (cons 'let - (cons _%bind149686%_ + (cons _%bind153368%_ (cons '(declare (not safe)) (cons (cons '##unchecked-structure-ref - (let ((__tmp157909 + (let ((__tmp161556 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons ''#f (cons ''#f '())))) (declare (not safe)) - (__foldr1 cons __tmp157909 _%args149687%_))) + (__foldr1 cons __tmp161556 _%args153369%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K149692149790%_ - (lambda (_%rest149707%_ _%e149708%_) - (let* ((_%__stx157546157547%_ _%e149708%_) - (_%g149713149731%_ + (_%K153374153472%_ + (lambda (_%rest153389%_ _%e153390%_) + (let* ((_%__stx161193161194%_ _%e153390%_) + (_%g153395153413%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx157546157547%_))))) - (let ((_%__kont157548157549%_ + _%__stx161193161194%_))))) + (let ((_%__kont161195161196%_ (lambda () - (_%lp149681%_ - _%rest149707%_ - _%bind149686%_ + (_%lp153363%_ + _%rest153389%_ + _%bind153368%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e149708%_)) - _%args149687%_)))) - (_%__kont157550157551%_ + _%e153390%_)) + _%args153369%_)))) + (_%__kont161197161198%_ (lambda () - (_%lp149681%_ - _%rest149707%_ - _%bind149686%_ + (_%lp153363%_ + _%rest153389%_ + _%bind153368%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e149708%_)) - _%args149687%_)))) - (_%__kont157552157553%_ + _%e153390%_)) + _%args153369%_)))) + (_%__kont161199161200%_ (lambda () - (let ((_%tmp149738%_ - (let ((__tmp157910 + (let ((_%tmp153420%_ + (let ((__tmp161557 (let () (declare (not safe)) @@ -11576,1581 +11626,1586 @@ '__tmp)))) (declare (not safe)) (make-symbol__0 - __tmp157910)))) - (_%lp149681%_ - _%rest149707%_ - (cons (cons _%tmp149738%_ + __tmp161557)))) + (_%lp153363%_ + _%rest153389%_ + (cons (cons _%tmp153420%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _%e149708%_)) + (gxc#compile-e__0 _%e153390%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind149686%_) - (cons _%tmp149738%_ - _%args149687%_)))))) + _%bind153368%_) + (cons _%tmp153420%_ + _%args153369%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx157546157547%_)) - (let ((_%e149715149769%_ + _%__stx161193161194%_)) + (let ((_%e153397153451%_ (let () (declare (not safe)) (gx#stx-e - _%__stx157546157547%_)))) - (let ((_%tl149717149774%_ + _%__stx161193161194%_)))) + (let ((_%tl153399153456%_ (let () (declare (not safe)) - (##cdr _%e149715149769%_))) - (_%hd149716149772%_ + (##cdr _%e153397153451%_))) + (_%hd153398153454%_ (let () (declare (not safe)) - (##car _%e149715149769%_)))) + (##car _%e153397153451%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd149716149772%_)) + _%hd153398153454%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd149716149772%_)) + _%hd153398153454%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl149717149774%_)) - (let ((_%e149718149777%_ + _%tl153399153456%_)) + (let ((_%e153400153459%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl149717149774%_)))) - (let ((_%tl149720149782%_ + (gx#stx-e _%tl153399153456%_)))) + (let ((_%tl153402153464%_ (let () (declare (not safe)) - (##cdr _%e149718149777%_))) - (_%hd149719149780%_ + (##cdr _%e153400153459%_))) + (_%hd153401153462%_ (let () (declare (not safe)) - (##car _%e149718149777%_)))) + (##car _%e153400153459%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl149720149782%_)) - (_%__kont157548157549%_) - (_%__kont157552157553%_)))) - (_%__kont157552157553%_)) + (gx#stx-null? _%tl153402153464%_)) + (_%__kont161195161196%_) + (_%__kont161199161200%_)))) + (_%__kont161199161200%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd149716149772%_)) + _%hd153398153454%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl149717149774%_)) - (let ((_%e149724149754%_ + (gx#stx-pair? _%tl153399153456%_)) + (let ((_%e153406153436%_ (let () (declare (not safe)) - (gx#stx-e _%tl149717149774%_)))) - (let ((_%tl149726149759%_ + (gx#stx-e _%tl153399153456%_)))) + (let ((_%tl153408153441%_ (let () (declare (not safe)) - (##cdr _%e149724149754%_))) - (_%hd149725149757%_ + (##cdr _%e153406153436%_))) + (_%hd153407153439%_ (let () (declare (not safe)) - (##car _%e149724149754%_)))) + (##car _%e153406153436%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl149726149759%_)) - (_%__kont157550157551%_) - (_%__kont157552157553%_)))) - (_%__kont157552157553%_)) - (_%__kont157552157553%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont157552157553%_)))) - (_%__kont157552157553%_))))))) - (if (pair? _%rest149688149696%_) - (let ((_%hd149693149793%_ + (gx#stx-null? _%tl153408153441%_)) + (_%__kont161197161198%_) + (_%__kont161199161200%_)))) + (_%__kont161199161200%_)) + (_%__kont161199161200%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont161199161200%_)))) + (_%__kont161199161200%_))))))) + (if (pair? _%rest153370153378%_) + (let ((_%hd153375153475%_ (let () (declare (not safe)) - (##car _%rest149688149696%_))) - (_%tl149694149795%_ + (##car _%rest153370153378%_))) + (_%tl153376153477%_ (let () (declare (not safe)) - (##cdr _%rest149688149696%_)))) - (let* ((_%e149798%_ _%hd149693149793%_) - (_%rest149800%_ _%tl149694149795%_)) - (_%K149692149790%_ - _%rest149800%_ - _%e149798%_))) - (_%else149690149704%_)))))) - _%hd149618149656%_ - _%hd149615149648%_ - _%hd149612149640%_) - (_%g149603149624%_ _%g149604149627%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g149603149624%_ - _%g149604149627%_)))) - (_%g149603149624%_ _%g149604149627%_)))) - (_%g149603149624%_ _%g149604149627%_)))) - (_%g149603149624%_ _%g149604149627%_))))) - (_%g149602149802%_ _%stx149601%_)))) + (##cdr _%rest153370153378%_)))) + (let* ((_%e153480%_ _%hd153375153475%_) + (_%rest153482%_ _%tl153376153477%_)) + (_%K153374153472%_ + _%rest153482%_ + _%e153480%_))) + (_%else153372153386%_)))))) + _%hd153300153338%_ + _%hd153297153330%_ + _%hd153294153322%_) + (_%g153285153306%_ _%g153286153309%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g153285153306%_ + _%g153286153309%_)))) + (_%g153285153306%_ _%g153286153309%_)))) + (_%g153285153306%_ _%g153286153309%_)))) + (_%g153285153306%_ _%g153286153309%_))))) + (_%g153284153484%_ _%stx153283%_)))) (define gxc#generate-runtime-struct-unchecked-setq% - (lambda (_%self149379%_ _%stx149380%_) - (let* ((_%g149382149407%_ - (lambda (_%g149383149404%_) + (lambda (_%self153061%_ _%stx153062%_) + (let* ((_%g153064153089%_ + (lambda (_%g153065153086%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g149383149404%_)))) - (_%g149381149597%_ - (lambda (_%g149383149410%_) + _%g153065153086%_)))) + (_%g153063153279%_ + (lambda (_%g153065153092%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g149383149410%_)) - (let ((_%e149388149412%_ + (gx#stx-pair? _%g153065153092%_)) + (let ((_%e153070153094%_ (let () (declare (not safe)) - (gx#stx-e _%g149383149410%_)))) - (let ((_%hd149389149415%_ + (gx#stx-e _%g153065153092%_)))) + (let ((_%hd153071153097%_ (let () (declare (not safe)) - (##car _%e149388149412%_))) - (_%tl149390149417%_ + (##car _%e153070153094%_))) + (_%tl153072153099%_ (let () (declare (not safe)) - (##cdr _%e149388149412%_)))) + (##cdr _%e153070153094%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149390149417%_)) - (let ((_%e149391149420%_ + (gx#stx-pair? _%tl153072153099%_)) + (let ((_%e153073153102%_ (let () (declare (not safe)) - (gx#stx-e _%tl149390149417%_)))) - (let ((_%hd149392149423%_ + (gx#stx-e _%tl153072153099%_)))) + (let ((_%hd153074153105%_ (let () (declare (not safe)) - (##car _%e149391149420%_))) - (_%tl149393149425%_ + (##car _%e153073153102%_))) + (_%tl153075153107%_ (let () (declare (not safe)) - (##cdr _%e149391149420%_)))) + (##cdr _%e153073153102%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149393149425%_)) - (let ((_%e149394149428%_ + (gx#stx-pair? _%tl153075153107%_)) + (let ((_%e153076153110%_ (let () (declare (not safe)) - (gx#stx-e _%tl149393149425%_)))) - (let ((_%hd149395149431%_ + (gx#stx-e _%tl153075153107%_)))) + (let ((_%hd153077153113%_ (let () (declare (not safe)) - (##car _%e149394149428%_))) - (_%tl149396149433%_ + (##car _%e153076153110%_))) + (_%tl153078153115%_ (let () (declare (not safe)) - (##cdr _%e149394149428%_)))) + (##cdr _%e153076153110%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl149396149433%_)) - (let ((_%e149397149436%_ + _%tl153078153115%_)) + (let ((_%e153079153118%_ (let () (declare (not safe)) (gx#stx-e - _%tl149396149433%_)))) - (let ((_%hd149398149439%_ + _%tl153078153115%_)))) + (let ((_%hd153080153121%_ (let () (declare (not safe)) - (##car _%e149397149436%_))) - (_%tl149399149441%_ + (##car _%e153079153118%_))) + (_%tl153081153123%_ (let () (declare (not safe)) - (##cdr _%e149397149436%_)))) + (##cdr _%e153079153118%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl149399149441%_)) - (let ((_%e149400149444%_ + _%tl153081153123%_)) + (let ((_%e153082153126%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl149399149441%_)))) - (let ((_%hd149401149447%_ - (let () (declare (not safe)) (##car _%e149400149444%_))) - (_%tl149402149449%_ + (gx#stx-e _%tl153081153123%_)))) + (let ((_%hd153083153129%_ + (let () (declare (not safe)) (##car _%e153082153126%_))) + (_%tl153084153131%_ (let () (declare (not safe)) - (##cdr _%e149400149444%_)))) + (##cdr _%e153082153126%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl149402149449%_)) - ((lambda (_%L149452%_ - _%L149453%_ - _%L149454%_ - _%L149455%_) + (gx#stx-null? _%tl153084153131%_)) + ((lambda (_%g153066153134%_ + _%g153067153135%_ + _%g153068153136%_ + _%g153069153137%_) (if (gxc#current-compile-decls-unsafe?) (cons '##unchecked-structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self149379%_ - _%L149453%_)) + _%self153061%_ + _%g153067153135%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self149379%_ - _%L149452%_)) + _%self153061%_ + _%g153066153134%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self149379%_ - _%L149454%_)) + _%self153061%_ + _%g153068153136%_)) (cons ''#f (cons ''#f '())))))) - (let _%lp149476%_ ((_%rest149479%_ - (cons _%L149454%_ - (cons _%L149452%_ - (cons _%L149453%_ + (let _%lp153158%_ ((_%rest153161%_ + (cons _%g153068153136%_ + (cons _%g153066153134%_ + (cons _%g153067153135%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%bind149481%_ '()) - (_%args149482%_ '())) - (let* ((_%rest149483149491%_ _%rest149479%_) - (_%else149485149499%_ + (_%bind153163%_ '()) + (_%args153164%_ '())) + (let* ((_%rest153165153173%_ _%rest153161%_) + (_%else153167153181%_ (lambda () (cons 'let - (cons _%bind149481%_ + (cons _%bind153163%_ (cons '(declare (not safe)) (cons (cons '##unchecked-structure-set! ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp157911 (cons ''#f (cons ''#f '())))) + (let ((__tmp161558 (cons ''#f (cons ''#f '())))) (declare (not safe)) - (__foldr1 cons __tmp157911 _%args149482%_))) + (__foldr1 cons __tmp161558 _%args153164%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K149487149585%_ - (lambda (_%rest149502%_ _%e149503%_) - (let* ((_%__stx157592157593%_ - _%e149503%_) - (_%g149508149526%_ + (_%K153169153267%_ + (lambda (_%rest153184%_ _%e153185%_) + (let* ((_%__stx161239161240%_ + _%e153185%_) + (_%g153190153208%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx157592157593%_))))) - (let ((_%__kont157594157595%_ + _%__stx161239161240%_))))) + (let ((_%__kont161241161242%_ (lambda () - (_%lp149476%_ - _%rest149502%_ - _%bind149481%_ + (_%lp153158%_ + _%rest153184%_ + _%bind153163%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e149503%_)) - _%args149482%_)))) - (_%__kont157596157597%_ + _%e153185%_)) + _%args153164%_)))) + (_%__kont161243161244%_ (lambda () - (_%lp149476%_ - _%rest149502%_ - _%bind149481%_ + (_%lp153158%_ + _%rest153184%_ + _%bind153163%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e149503%_)) - _%args149482%_)))) - (_%__kont157598157599%_ + _%e153185%_)) + _%args153164%_)))) + (_%__kont161245161246%_ (lambda () - (let ((_%tmp149533%_ - (let ((__tmp157912 + (let ((_%tmp153215%_ + (let ((__tmp161559 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp157912)))) - (_%lp149476%_ - _%rest149502%_ - (cons (cons _%tmp149533%_ + (make-symbol__0 __tmp161559)))) + (_%lp153158%_ + _%rest153184%_ + (cons (cons _%tmp153215%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e149503%_)) + (gxc#compile-e__0 _%e153185%_)) '())) - _%bind149481%_) - (cons _%tmp149533%_ _%args149482%_)))))) + _%bind153163%_) + (cons _%tmp153215%_ _%args153164%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx157592157593%_)) - (let ((_%e149510149564%_ + _%__stx161239161240%_)) + (let ((_%e153192153246%_ (let () (declare (not safe)) (gx#stx-e - _%__stx157592157593%_)))) - (let ((_%tl149512149569%_ + _%__stx161239161240%_)))) + (let ((_%tl153194153251%_ (let () (declare (not safe)) - (##cdr _%e149510149564%_))) - (_%hd149511149567%_ + (##cdr _%e153192153246%_))) + (_%hd153193153249%_ (let () (declare (not safe)) - (##car _%e149510149564%_)))) + (##car _%e153192153246%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd149511149567%_)) + _%hd153193153249%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd149511149567%_)) + (gx#stx-eq? '%#ref _%hd153193153249%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149512149569%_)) - (let ((_%e149513149572%_ + (gx#stx-pair? _%tl153194153251%_)) + (let ((_%e153195153254%_ (let () (declare (not safe)) - (gx#stx-e _%tl149512149569%_)))) - (let ((_%tl149515149577%_ + (gx#stx-e _%tl153194153251%_)))) + (let ((_%tl153197153259%_ (let () (declare (not safe)) - (##cdr _%e149513149572%_))) - (_%hd149514149575%_ + (##cdr _%e153195153254%_))) + (_%hd153196153257%_ (let () (declare (not safe)) - (##car _%e149513149572%_)))) + (##car _%e153195153254%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl149515149577%_)) - (_%__kont157594157595%_) - (_%__kont157598157599%_)))) - (_%__kont157598157599%_)) + (gx#stx-null? _%tl153197153259%_)) + (_%__kont161241161242%_) + (_%__kont161245161246%_)))) + (_%__kont161245161246%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd149511149567%_)) + (gx#stx-eq? '%#quote _%hd153193153249%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149512149569%_)) - (let ((_%e149519149549%_ + (gx#stx-pair? _%tl153194153251%_)) + (let ((_%e153201153231%_ (let () (declare (not safe)) - (gx#stx-e _%tl149512149569%_)))) - (let ((_%tl149521149554%_ + (gx#stx-e _%tl153194153251%_)))) + (let ((_%tl153203153236%_ (let () (declare (not safe)) - (##cdr _%e149519149549%_))) - (_%hd149520149552%_ + (##cdr _%e153201153231%_))) + (_%hd153202153234%_ (let () (declare (not safe)) - (##car _%e149519149549%_)))) + (##car _%e153201153231%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl149521149554%_)) - (_%__kont157596157597%_) - (_%__kont157598157599%_)))) - (_%__kont157598157599%_)) - (_%__kont157598157599%_))) - (_%__kont157598157599%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont157598157599%_))))))) - (if (pair? _%rest149483149491%_) - (let ((_%hd149488149588%_ + (gx#stx-null? _%tl153203153236%_)) + (_%__kont161243161244%_) + (_%__kont161245161246%_)))) + (_%__kont161245161246%_)) + (_%__kont161245161246%_))) + (_%__kont161245161246%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont161245161246%_))))))) + (if (pair? _%rest153165153173%_) + (let ((_%hd153170153270%_ (let () (declare (not safe)) - (##car _%rest149483149491%_))) - (_%tl149489149590%_ + (##car _%rest153165153173%_))) + (_%tl153171153272%_ (let () (declare (not safe)) - (##cdr _%rest149483149491%_)))) - (let* ((_%e149593%_ _%hd149488149588%_) - (_%rest149595%_ - _%tl149489149590%_)) - (_%K149487149585%_ - _%rest149595%_ - _%e149593%_))) - (_%else149485149499%_)))))) - _%hd149401149447%_ - _%hd149398149439%_ - _%hd149395149431%_ - _%hd149392149423%_) - (_%g149382149407%_ _%g149383149410%_)))) - (_%g149382149407%_ _%g149383149410%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g149382149407%_ - _%g149383149410%_)))) - (_%g149382149407%_ _%g149383149410%_)))) - (_%g149382149407%_ _%g149383149410%_)))) - (_%g149382149407%_ _%g149383149410%_))))) - (_%g149381149597%_ _%stx149380%_)))) + (##cdr _%rest153165153173%_)))) + (let* ((_%e153275%_ _%hd153170153270%_) + (_%rest153277%_ + _%tl153171153272%_)) + (_%K153169153267%_ + _%rest153277%_ + _%e153275%_))) + (_%else153167153181%_)))))) + _%hd153083153129%_ + _%hd153080153121%_ + _%hd153077153113%_ + _%hd153074153105%_) + (_%g153064153089%_ _%g153065153092%_)))) + (_%g153064153089%_ _%g153065153092%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g153064153089%_ + _%g153065153092%_)))) + (_%g153064153089%_ _%g153065153092%_)))) + (_%g153064153089%_ _%g153065153092%_)))) + (_%g153064153089%_ _%g153065153092%_))))) + (_%g153063153279%_ _%stx153062%_)))) (define gxc#generate-runtime-loader-import% - (lambda (_%self149218%_ _%stx149219%_) - (letrec ((_%import-set-template149221%_ - (lambda (_%in149324%_ _%phi149325%_) - (let ((_%iphi149327%_ - (fx+ _%phi149325%_ + (lambda (_%self152900%_ _%stx152901%_) + (letrec ((_%import-set-template152903%_ + (lambda (_%in153006%_ _%phi153007%_) + (let ((_%iphi153009%_ + (fx+ _%phi153007%_ (##direct-structure-ref - _%in149324%_ + _%in153006%_ '2 gx#import-set::t '#f))) - (_%imports149328%_ + (_%imports153010%_ (##structure-ref (##direct-structure-ref - _%in149324%_ + _%in153006%_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _%lp149330%_ ((_%rest149332%_ _%imports149328%_) - (_%r149333%_ '())) - (let* ((_%rest149334149342%_ _%rest149332%_) - (_%else149336149350%_ (lambda () _%r149333%_)) - (_%K149338149367%_ - (lambda (_%rest149353%_ _%in149354%_) + (let _%lp153012%_ ((_%rest153014%_ _%imports153010%_) + (_%r153015%_ '())) + (let* ((_%rest153016153024%_ _%rest153014%_) + (_%else153018153032%_ (lambda () _%r153015%_)) + (_%K153020153049%_ + (lambda (_%rest153035%_ _%in153036%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in149354%_ + _%in153036%_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (##fxzero? _%iphi149327%_)) - (_%lp149330%_ - _%rest149353%_ - (cons _%in149354%_ _%r149333%_)) - (_%lp149330%_ - _%rest149353%_ - _%r149333%_)) + (##fxzero? _%iphi153009%_)) + (_%lp153012%_ + _%rest153035%_ + (cons _%in153036%_ _%r153015%_)) + (_%lp153012%_ + _%rest153035%_ + _%r153015%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in149354%_ + _%in153036%_ 'gx#module-import::t)) - (let ((_%iphi149358%_ - (fx+ _%phi149325%_ + (let ((_%iphi153040%_ + (fx+ _%phi153007%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in149354%_ + _%in153036%_ '3 '#f '#f))))) (if (let () (declare (not safe)) - (##fxzero? _%iphi149358%_)) - (_%lp149330%_ - _%rest149353%_ + (##fxzero? _%iphi153040%_)) + (_%lp153012%_ + _%rest153035%_ (cons (##direct-structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%in149354%_ + _%in153036%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%r149333%_)) - (_%lp149330%_ - _%rest149353%_ - _%r149333%_))) + _%r153015%_)) + (_%lp153012%_ + _%rest153035%_ + _%r153015%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in149354%_ + _%in153036%_ 'gx#import-set::t)) - (let ((_%xphi149361%_ - (fx+ _%iphi149327%_ + (let ((_%xphi153043%_ + (fx+ _%iphi153009%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in149354%_ + _%in153036%_ '2 '#f '#f))))) (if (let () (declare (not safe)) (##fxzero? - _%xphi149361%_)) - (_%lp149330%_ - _%rest149353%_ + _%xphi153043%_)) + (_%lp153012%_ + _%rest153035%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%in149354%_ + _%in153036%_ '1 '#f '#f)) - _%r149333%_)) + _%r153015%_)) (if (let () (declare (not safe)) (##fxpositive? - _%xphi149361%_)) - (_%lp149330%_ - _%rest149353%_ - (let ((__tmp157913 - (_%import-set-template149221%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in149354%_ - _%iphi149327%_))) + _%xphi153043%_)) + (_%lp153012%_ + _%rest153035%_ + (let ((__tmp161560 + (_%import-set-template152903%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%in153036%_ + _%iphi153009%_))) (declare (not safe)) - (__foldl1 cons _%r149333%_ __tmp157913))) - (_%lp149330%_ _%rest149353%_ _%r149333%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp149330%_ - _%rest149353%_ - _%r149333%_))))))) - (if (pair? _%rest149334149342%_) - (let ((_%hd149339149370%_ + (__foldl1 cons _%r153015%_ __tmp161560))) + (_%lp153012%_ _%rest153035%_ _%r153015%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp153012%_ + _%rest153035%_ + _%r153015%_))))))) + (if (pair? _%rest153016153024%_) + (let ((_%hd153021153052%_ (let () (declare (not safe)) - (##car _%rest149334149342%_))) - (_%tl149340149372%_ + (##car _%rest153016153024%_))) + (_%tl153022153054%_ (let () (declare (not safe)) - (##cdr _%rest149334149342%_)))) - (let* ((_%in149375%_ _%hd149339149370%_) - (_%rest149377%_ _%tl149340149372%_)) - (_%K149338149367%_ - _%rest149377%_ - _%in149375%_))) - (_%else149336149350%_)))))))) - (let* ((_%g149223149233%_ - (lambda (_%g149224149230%_) + (##cdr _%rest153016153024%_)))) + (let* ((_%in153057%_ _%hd153021153052%_) + (_%rest153059%_ _%tl153022153054%_)) + (_%K153020153049%_ + _%rest153059%_ + _%in153057%_))) + (_%else153018153032%_)))))))) + (let* ((_%g152905152915%_ + (lambda (_%g152906152912%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g149224149230%_)))) - (_%g149222149321%_ - (lambda (_%g149224149236%_) + _%g152906152912%_)))) + (_%g152904153003%_ + (lambda (_%g152906152918%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g149224149236%_)) - (let ((_%e149226149238%_ + (gx#stx-pair? _%g152906152918%_)) + (let ((_%e152908152920%_ (let () (declare (not safe)) - (gx#stx-e _%g149224149236%_)))) - (let ((_%hd149227149241%_ + (gx#stx-e _%g152906152918%_)))) + (let ((_%hd152909152923%_ (let () (declare (not safe)) - (##car _%e149226149238%_))) - (_%tl149228149243%_ + (##car _%e152908152920%_))) + (_%tl152910152925%_ (let () (declare (not safe)) - (##cdr _%e149226149238%_)))) - ((lambda (_%L149246%_) - (let ((_%ht149257%_ + (##cdr _%e152908152920%_)))) + ((lambda (_%g152907152928%_) + (let ((_%ht152939%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let _%lp149259%_ ((_%rest149261%_ - _%L149246%_) - (_%loads149262%_ '())) - (letrec ((_%K149264%_ - (lambda (_%ctx149314%_ - _%rest149315%_) - (let ((_%id149317%_ + (let _%lp152941%_ ((_%rest152943%_ + _%g152907152928%_) + (_%loads152944%_ '())) + (letrec ((_%K152946%_ + (lambda (_%ctx152996%_ + _%rest152997%_) + (let ((_%id152999%_ (##structure-ref - _%ctx149314%_ + _%ctx152996%_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (__hash-get - _%ht149257%_ - _%id149317%_)) - (_%lp149259%_ - _%rest149315%_ - _%loads149262%_) - (let ((_%rt149319%_ + _%ht152939%_ + _%id152999%_)) + (_%lp152941%_ + _%rest152997%_ + _%loads152944%_) + (let ((_%rt153001%_ (let () (declare (not safe)) (gxc#module-id->path-string - _%id149317%_)))) + _%id152999%_)))) (let () (declare (not safe)) (__hash-put! - _%ht149257%_ - _%id149317%_ - _%rt149319%_)) - (_%lp149259%_ - _%rest149315%_ - (cons _%rt149319%_ - _%loads149262%_)))))))) - (let* ((_%rest149265149273%_ - _%rest149261%_) - (_%else149267149285%_ + _%ht152939%_ + _%id152999%_ + _%rt153001%_)) + (_%lp152941%_ + _%rest152997%_ + (cons _%rt153001%_ + _%loads152944%_)))))))) + (let* ((_%rest152947152955%_ + _%rest152943%_) + (_%else152949152967%_ (lambda () (cons 'begin - (let ((__tmp157915 - (lambda (_%g149280149282%_) + (let ((__tmp161562 + (lambda (_%g152962152964%_) (list 'load-module ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g149280149282%_))) - (__tmp157914 (reverse _%loads149262%_))) + _%g152962152964%_))) + (__tmp161561 (reverse _%loads152944%_))) (declare (not safe)) - (##map __tmp157915 __tmp157914))))) + (##map __tmp161562 __tmp161561))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K149269149302%_ - (lambda (_%rest149288%_ - _%in149289%_) + (_%K152951152984%_ + (lambda (_%rest152970%_ + _%in152971%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in149289%_ + _%in152971%_ 'gx#module-context::t)) - (_%K149264%_ - _%in149289%_ - _%rest149288%_) + (_%K152946%_ + _%in152971%_ + _%rest152970%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in149289%_ + _%in152971%_ 'gx#module-import::t)) (if (fxzero? (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%in149289%_ + _%in152971%_ '3 '#f '#f))) - (_%K149264%_ + (_%K152946%_ (##direct-structure-ref (let () (declare (not safe)) - (##unchecked-structure-ref _%in149289%_ '1 '#f '#f)) + (##unchecked-structure-ref _%in152971%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%rest149288%_) - (_%lp149259%_ _%rest149288%_ _%loads149262%_)) + _%rest152970%_) + (_%lp152941%_ _%rest152970%_ _%loads152944%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in149289%_ + _%in152971%_ 'gx#import-set::t)) - (let ((_%phi149294%_ + (let ((_%phi152976%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in149289%_ + _%in152971%_ '2 '#f '#f)))) - (if (fxzero? _%phi149294%_) - (_%K149264%_ + (if (fxzero? _%phi152976%_) + (_%K152946%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in149289%_ + _%in152971%_ '1 '#f '#f)) - _%rest149288%_) - (if (fxpositive? _%phi149294%_) - (let ((_%deps149298%_ - (_%import-set-template149221%_ - _%in149289%_ + _%rest152970%_) + (if (fxpositive? _%phi152976%_) + (let ((_%deps152980%_ + (_%import-set-template152903%_ + _%in152971%_ '0))) - (_%lp149259%_ + (_%lp152941%_ (let () (declare (not safe)) (__foldl1 cons - _%rest149288%_ - _%deps149298%_)) - _%loads149262%_)) - (_%lp149259%_ _%rest149288%_ _%loads149262%_)))) + _%rest152970%_ + _%deps152980%_)) + _%loads152944%_)) + (_%lp152941%_ _%rest152970%_ _%loads152944%_)))) (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected import" - _%stx149219%_ - _%in149289%_)))))))) + _%stx152901%_ + _%in152971%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest149265149273%_) - (let ((_%hd149270149305%_ + (if (pair? _%rest152947152955%_) + (let ((_%hd152952152987%_ (let () (declare (not safe)) - (##car _%rest149265149273%_))) - (_%tl149271149307%_ + (##car _%rest152947152955%_))) + (_%tl152953152989%_ (let () (declare (not safe)) - (##cdr _%rest149265149273%_)))) - (let* ((_%in149310%_ - _%hd149270149305%_) - (_%rest149312%_ - _%tl149271149307%_)) - (_%K149269149302%_ - _%rest149312%_ - _%in149310%_))) - (_%else149267149285%_))))))) - _%tl149228149243%_))) - (_%g149223149233%_ _%g149224149236%_))))) - (_%g149222149321%_ _%stx149219%_))))) + (##cdr _%rest152947152955%_)))) + (let* ((_%in152992%_ + _%hd152952152987%_) + (_%rest152994%_ + _%tl152953152989%_)) + (_%K152951152984%_ + _%rest152994%_ + _%in152992%_))) + (_%else152949152967%_))))))) + _%tl152910152925%_))) + (_%g152905152915%_ _%g152906152918%_))))) + (_%g152904153003%_ _%stx152901%_))))) (define gxc#generate-runtime-quote-syntax% - (lambda (_%self149031%_ _%stx149032%_) - (letrec ((_%add-lift!149034%_ - (lambda (_%expr149216%_) + (lambda (_%self152714%_ _%stx152715%_) + (letrec ((_%add-lift!152717%_ + (lambda (_%expr152898%_) (set-box! (let () (declare (not safe)) (gxc#current-compile-lift)) - (cons _%expr149216%_ + (cons _%expr152898%_ (unbox (let () (declare (not safe)) (gxc#current-compile-lift))))))) - (_%generate-syntax-quote149035%_ - (lambda (_%id149213%_ _%marks149214%_) + (_%generate-syntax-quote152718%_ + (lambda (_%id152895%_ _%marks152896%_) (cons '##structure (cons 'gx#syntax-quote::t - (cons (cons 'quote (cons _%id149213%_ '())) + (cons (cons 'quote (cons _%id152895%_ '())) (cons '#f (cons '(gx#current-expander-context) - (cons _%marks149214%_ + (cons _%marks152896%_ '())))))))) - (_%generate-simple149036%_ - (lambda (_%stxq149208%_) - (let ((_%gid149210%_ + (_%generate-simple152719%_ + (lambda (_%stxq152890%_) + (let ((_%gid152892%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%qid149211%_ - (gxc#generate-runtime-identifier _%stxq149208%_))) - (_%add-lift!149034%_ + (_%qid152893%_ + (gxc#generate-runtime-identifier _%stxq152890%_))) + (_%add-lift!152717%_ (cons 'define - (cons _%gid149210%_ - (cons (_%generate-syntax-quote149035%_ - _%qid149211%_ + (cons _%gid152892%_ + (cons (_%generate-syntax-quote152718%_ + _%qid152893%_ ''()) '())))) - (let ((__tmp157916 + (let ((__tmp161563 (let () (declare (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-put! __tmp157916 _%stxq149208%_ _%gid149210%_)) - _%gid149210%_))) - (_%generate-serialized149037%_ - (lambda (_%stxq149198%_ _%marks149199%_) - (let* ((_%mark-refs149201%_ - (map _%generate-mark149038%_ _%marks149199%_)) - (_%gid149203%_ + (hash-put! __tmp161563 _%stxq152890%_ _%gid152892%_)) + _%gid152892%_))) + (_%generate-serialized152720%_ + (lambda (_%stxq152880%_ _%marks152881%_) + (let* ((_%mark-refs152883%_ + (map _%generate-mark152721%_ _%marks152881%_)) + (_%gid152885%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%qid149205%_ - (gxc#generate-runtime-identifier _%stxq149198%_))) - (_%add-lift!149034%_ + (_%qid152887%_ + (gxc#generate-runtime-identifier _%stxq152880%_))) + (_%add-lift!152717%_ (cons 'define - (cons _%gid149203%_ - (cons (_%generate-syntax-quote149035%_ - _%qid149205%_ - (cons 'list _%mark-refs149201%_)) + (cons _%gid152885%_ + (cons (_%generate-syntax-quote152718%_ + _%qid152887%_ + (cons 'list _%mark-refs152883%_)) '())))) - (let ((__tmp157917 + (let ((__tmp161564 (let () (declare (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-put! __tmp157917 _%stxq149198%_ _%gid149203%_)) - _%gid149203%_))) - (_%generate-mark149038%_ - (lambda (_%mark149183%_) - (let ((_%$e149185%_ - (let ((__tmp157918 + (hash-put! __tmp161564 _%stxq152880%_ _%gid152885%_)) + _%gid152885%_))) + (_%generate-mark152721%_ + (lambda (_%mark152865%_) + (let ((_%$e152867%_ + (let ((__tmp161565 (let () (declare (not safe)) (gxc#current-compile-marks)))) (declare (not safe)) - (hash-get __tmp157918 _%mark149183%_)))) - (if _%$e149185%_ - _%$e149185%_ - (let* ((_%gid149189%_ + (hash-get __tmp161565 _%mark152865%_)))) + (if _%$e152867%_ + _%$e152867%_ + (let* ((_%gid152871%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%repr149191%_ - (_%serialize-mark149039%_ _%mark149183%_)) - (_%ctx149193%_ - (let ((__tmp157919 + (_%repr152873%_ + (_%serialize-mark152722%_ _%mark152865%_)) + (_%ctx152875%_ + (let ((__tmp161566 (##structure-ref - _%mark149183%_ + _%mark152865%_ '2 gx#expander-mark::t '#f))) (declare (not safe)) - (gx#core-context-top__1 __tmp157919))) - (_%ctx-ref149195%_ - (if (eq? _%ctx149193%_ + (gx#core-context-top__1 __tmp161566))) + (_%ctx-ref152877%_ + (if (eq? _%ctx152875%_ (let () (declare (not safe)) (gx#current-expander-context))) '(gx#current-expander-context) (cons 'gx#import-module (cons (cons 'quote - (cons (_%context-ref149040%_ - _%ctx149193%_) + (cons (_%context-ref152723%_ + _%ctx152875%_) '())) '()))))) - (let ((__tmp157920 + (let ((__tmp161567 (let () (declare (not safe)) (gxc#current-compile-marks)))) (declare (not safe)) (hash-put! - __tmp157920 - _%mark149183%_ - _%gid149189%_)) - (_%add-lift!149034%_ + __tmp161567 + _%mark152865%_ + _%gid152871%_)) + (_%add-lift!152717%_ (cons 'define - (cons _%gid149189%_ + (cons _%gid152871%_ (cons (cons 'gx#core-deserialize-mark (cons (cons 'quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%repr149191%_ '())) - (cons _%ctx-ref149195%_ '()))) + (cons _%repr152873%_ '())) + (cons _%ctx-ref152877%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%gid149189%_))))) - (_%serialize-mark149039%_ - (lambda (_%mark149130%_) - (letrec ((_%quote-e149132%_ - (lambda (_%sym149181%_) + _%gid152871%_))))) + (_%serialize-mark152722%_ + (lambda (_%mark152813%_) + (letrec ((_%quote-e152815%_ + (lambda (_%sym152863%_) (if (let () (declare (not safe)) - (interned-symbol? _%sym149181%_)) - _%sym149181%_ + (interned-symbol? _%sym152863%_)) + _%sym152863%_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%sym149181%_)))))) - (let* ((_%mark149133149142%_ _%mark149130%_) - (_%E149135149146%_ + _%sym152863%_)))))) + (let* ((_%mark152816152825%_ _%mark152813%_) + (_%E152818152828%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%mark149133149142%_ + _%mark152816152825%_ '((expander-mark subst ctx phi trace)))) '#!void)) - (_%K149136149158%_ - (lambda (_%trace149149%_ - _%phi149150%_ - _%ctx149151%_ - _%subst149152%_) - (let ((_%subs149154%_ - (if _%subst149152%_ + (_%K152819152840%_ + (lambda (_%trace152831%_ + _%phi152832%_ + _%ctx152833%_ + _%subst152834%_) + (let ((_%subs152836%_ + (if _%subst152834%_ (let () (declare (not safe)) - (hash->list _%subst149152%_)) + (hash->list _%subst152834%_)) '()))) - (cons _%phi149150%_ - (let ((__tmp157921 - (lambda (_%pair149156%_) - (cons (_%quote-e149132%_ - (car _%pair149156%_)) - (_%quote-e149132%_ - (cdr _%pair149156%_)))))) + (cons _%phi152832%_ + (let ((__tmp161568 + (lambda (_%pair152838%_) + (cons (_%quote-e152815%_ + (car _%pair152838%_)) + (_%quote-e152815%_ + (cdr _%pair152838%_)))))) (declare (not safe)) - (##map __tmp157921 - _%subs149154%_))))))) + (##map __tmp161568 + _%subs152836%_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%mark149133149142%_ + _%mark152816152825%_ 'gx#expander-mark::t)) - (let* ((_%e149137149161%_ + (let* ((_%e152820152843%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark149133149142%_ + _%mark152816152825%_ '1 '#f '#f))) - (_%subst149164%_ _%e149137149161%_) - (_%e149138149166%_ + (_%subst152846%_ _%e152820152843%_) + (_%e152821152848%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark149133149142%_ + _%mark152816152825%_ '2 '#f '#f))) - (_%ctx149169%_ _%e149138149166%_) - (_%e149139149171%_ + (_%ctx152851%_ _%e152821152848%_) + (_%e152822152853%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark149133149142%_ + _%mark152816152825%_ '3 '#f '#f))) - (_%phi149174%_ _%e149139149171%_) - (_%e149140149176%_ + (_%phi152856%_ _%e152822152853%_) + (_%e152823152858%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark149133149142%_ + _%mark152816152825%_ '4 '#f '#f))) - (_%trace149179%_ _%e149140149176%_)) - (_%K149136149158%_ - _%trace149179%_ - _%phi149174%_ - _%ctx149169%_ - _%subst149164%_)) - (_%E149135149146%_)))))) - (_%context-ref149040%_ - (lambda (_%ctx149117%_) - (if (let ((__tmp157922 + (_%trace152861%_ _%e152823152858%_)) + (_%K152819152840%_ + _%trace152861%_ + _%phi152856%_ + _%ctx152851%_ + _%subst152846%_)) + (_%E152818152828%_)))))) + (_%context-ref152723%_ + (lambda (_%ctx152800%_) + (if (let ((__tmp161569 (##structure-ref - _%ctx149117%_ + _%ctx152800%_ '3 gx#phi-context::t '#f))) (declare (not safe)) (##structure-instance-of? - __tmp157922 + __tmp161569 'gx#module-context::t)) - (let ((_%ctx-ref149119%_ - (_%context-ref-nested149042%_ _%ctx149117%_)) - (_%ctx-origin149120%_ - (_%context-ref-origin149041%_ _%ctx149117%_)) - (_%origin149121%_ - (_%context-ref-origin149041%_ + (let ((_%ctx-ref152802%_ + (_%context-ref-nested152725%_ _%ctx152800%_)) + (_%ctx-origin152803%_ + (_%context-ref-origin152724%_ _%ctx152800%_)) + (_%origin152804%_ + (_%context-ref-origin152724%_ (let () (declare (not safe)) (gx#current-expander-context))))) - (if (eq? _%origin149121%_ _%ctx-origin149120%_) - (let ((_%ref149123%_ - (_%context-ref-nested149042%_ + (if (eq? _%origin152804%_ _%ctx-origin152803%_) + (let ((_%ref152806%_ + (_%context-ref-nested152725%_ (let () (declare (not safe)) (gx#current-expander-context))))) - (let _%lp149125%_ ((_%ref149127%_ - (cdr _%ref149123%_)) - (_%ctx-ref149128%_ - (cdr _%ctx-ref149119%_))) - (if (and (pair? _%ref149127%_) + (let _%lp152808%_ ((_%ref152810%_ + (cdr _%ref152806%_)) + (_%ctx-ref152811%_ + (cdr _%ctx-ref152802%_))) + (if (and (pair? _%ref152810%_) (eq? (let () (declare (not safe)) - (##car _%ref149127%_)) - (car _%ctx-ref149128%_))) - (_%lp149125%_ - (cdr _%ref149127%_) - (cdr _%ctx-ref149128%_)) - (cons '#f _%ctx-ref149128%_)))) - _%ctx-ref149119%_)) - (let ((__tmp157923 + (##car _%ref152810%_)) + (car _%ctx-ref152811%_))) + (_%lp152808%_ + (cdr _%ref152810%_) + (cdr _%ctx-ref152811%_)) + (cons '#f _%ctx-ref152811%_)))) + _%ctx-ref152802%_)) + (let ((__tmp161570 (##structure-ref - _%ctx149117%_ + _%ctx152800%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp157923))))) - (_%context-ref-origin149041%_ - (lambda (_%ctx149109%_) - (let _%lp149111%_ ((_%ctx149113%_ _%ctx149109%_)) - (let ((_%super149115%_ + (make-symbol__1 '":" __tmp161570))))) + (_%context-ref-origin152724%_ + (lambda (_%ctx152792%_) + (let _%lp152794%_ ((_%ctx152796%_ _%ctx152792%_)) + (let ((_%super152798%_ (##structure-ref - _%ctx149113%_ + _%ctx152796%_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _%super149115%_ + _%super152798%_ 'gx#module-context::t)) - (_%lp149111%_ _%super149115%_) - _%ctx149113%_))))) - (_%context-ref-nested149042%_ - (lambda (_%ctx149100%_) - (let _%lp149102%_ ((_%ctx149104%_ _%ctx149100%_) - (_%r149105%_ '())) - (let ((_%super149107%_ + (_%lp152794%_ _%super152798%_) + _%ctx152796%_))))) + (_%context-ref-nested152725%_ + (lambda (_%ctx152783%_) + (let _%lp152785%_ ((_%ctx152787%_ _%ctx152783%_) + (_%r152788%_ '())) + (let ((_%super152790%_ (##structure-ref - _%ctx149104%_ + _%ctx152787%_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _%super149107%_ + _%super152790%_ 'gx#module-context::t)) - (_%lp149102%_ - _%super149107%_ + (_%lp152785%_ + _%super152790%_ (cons (car (##structure-ref - _%ctx149104%_ + _%ctx152787%_ '7 gx#module-context::t '#f)) - _%r149105%_)) - (cons (let ((__tmp157924 + _%r152788%_)) + (cons (let ((__tmp161571 (##structure-ref - _%ctx149104%_ + _%ctx152787%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp157924)) - _%r149105%_))))))) - (let* ((_%g149044149057%_ - (lambda (_%g149045149054%_) + (make-symbol__1 '":" __tmp161571)) + _%r152788%_))))))) + (let* ((_%g152727152740%_ + (lambda (_%g152728152737%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g149045149054%_)))) - (_%g149043149097%_ - (lambda (_%g149045149060%_) + _%g152728152737%_)))) + (_%g152726152780%_ + (lambda (_%g152728152743%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g149045149060%_)) - (let ((_%e149047149062%_ + (gx#stx-pair? _%g152728152743%_)) + (let ((_%e152730152745%_ (let () (declare (not safe)) - (gx#stx-e _%g149045149060%_)))) - (let ((_%hd149048149065%_ + (gx#stx-e _%g152728152743%_)))) + (let ((_%hd152731152748%_ (let () (declare (not safe)) - (##car _%e149047149062%_))) - (_%tl149049149067%_ + (##car _%e152730152745%_))) + (_%tl152732152750%_ (let () (declare (not safe)) - (##cdr _%e149047149062%_)))) + (##cdr _%e152730152745%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl149049149067%_)) - (let ((_%e149050149070%_ + (gx#stx-pair? _%tl152732152750%_)) + (let ((_%e152733152753%_ (let () (declare (not safe)) - (gx#stx-e _%tl149049149067%_)))) - (let ((_%hd149051149073%_ + (gx#stx-e _%tl152732152750%_)))) + (let ((_%hd152734152756%_ (let () (declare (not safe)) - (##car _%e149050149070%_))) - (_%tl149052149075%_ + (##car _%e152733152753%_))) + (_%tl152735152758%_ (let () (declare (not safe)) - (##cdr _%e149050149070%_)))) + (##cdr _%e152733152753%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl149052149075%_)) - ((lambda (_%L149078%_) + (gx#stx-null? _%tl152735152758%_)) + ((lambda (_%g152729152761%_) (if (let () (declare (not safe)) - (gx#identifier? _%L149078%_)) - (let ((_%$e149091%_ - (let ((__tmp157925 + (gx#identifier? + _%g152729152761%_)) + (let ((_%$e152774%_ + (let ((__tmp161572 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-get __tmp157925 _%L149078%_)))) + (hash-get __tmp161572 _%g152729152761%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e149091%_ - _%$e149091%_ - (let ((_%marks149095%_ + (if _%$e152774%_ + _%$e152774%_ + (let ((_%marks152778%_ (##direct-structure-ref - _%L149078%_ + _%g152729152761%_ '4 gx#syntax-quote::t '#f))) - (if (null? _%marks149095%_) - (_%generate-simple149036%_ - _%L149078%_) - (_%generate-serialized149037%_ - _%L149078%_ - _%marks149095%_))))) + (if (null? _%marks152778%_) + (_%generate-simple152719%_ + _%g152729152761%_) + (_%generate-serialized152720%_ + _%g152729152761%_ + _%marks152778%_))))) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot quote non-identifier syntax" - _%L149078%_)))) - _%hd149051149073%_) - (_%g149044149057%_ - _%g149045149060%_)))) - (_%g149044149057%_ _%g149045149060%_)))) - (_%g149044149057%_ _%g149045149060%_))))) - (_%g149043149097%_ _%stx149032%_))))) + _%g152729152761%_)))) + _%hd152734152756%_) + (_%g152727152740%_ + _%g152728152743%_)))) + (_%g152727152740%_ _%g152728152743%_)))) + (_%g152727152740%_ _%g152728152743%_))))) + (_%g152726152780%_ _%stx152715%_))))) (define gxc#generate-runtime-phi-define-runtime% - (lambda (_%self148963%_ _%stx148964%_) - (let* ((_%g148966148983%_ - (lambda (_%g148967148980%_) + (lambda (_%self152646%_ _%stx152647%_) + (let* ((_%g152649152666%_ + (lambda (_%g152650152663%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g148967148980%_)))) - (_%g148965149028%_ - (lambda (_%g148967148986%_) + _%g152650152663%_)))) + (_%g152648152711%_ + (lambda (_%g152650152669%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g148967148986%_)) - (let ((_%e148970148988%_ + (gx#stx-pair? _%g152650152669%_)) + (let ((_%e152653152671%_ (let () (declare (not safe)) - (gx#stx-e _%g148967148986%_)))) - (let ((_%hd148971148991%_ + (gx#stx-e _%g152650152669%_)))) + (let ((_%hd152654152674%_ (let () (declare (not safe)) - (##car _%e148970148988%_))) - (_%tl148972148993%_ + (##car _%e152653152671%_))) + (_%tl152655152676%_ (let () (declare (not safe)) - (##cdr _%e148970148988%_)))) + (##cdr _%e152653152671%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl148972148993%_)) - (let ((_%e148973148996%_ + (gx#stx-pair? _%tl152655152676%_)) + (let ((_%e152656152679%_ (let () (declare (not safe)) - (gx#stx-e _%tl148972148993%_)))) - (let ((_%hd148974148999%_ + (gx#stx-e _%tl152655152676%_)))) + (let ((_%hd152657152682%_ (let () (declare (not safe)) - (##car _%e148973148996%_))) - (_%tl148975149001%_ + (##car _%e152656152679%_))) + (_%tl152658152684%_ (let () (declare (not safe)) - (##cdr _%e148973148996%_)))) + (##cdr _%e152656152679%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl148975149001%_)) - (let ((_%e148976149004%_ + (gx#stx-pair? _%tl152658152684%_)) + (let ((_%e152659152687%_ (let () (declare (not safe)) - (gx#stx-e _%tl148975149001%_)))) - (let ((_%hd148977149007%_ + (gx#stx-e _%tl152658152684%_)))) + (let ((_%hd152660152690%_ (let () (declare (not safe)) - (##car _%e148976149004%_))) - (_%tl148978149009%_ + (##car _%e152659152687%_))) + (_%tl152661152692%_ (let () (declare (not safe)) - (##cdr _%e148976149004%_)))) + (##cdr _%e152659152687%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl148978149009%_)) - ((lambda (_%L149012%_ - _%L149013%_) + _%tl152661152692%_)) + ((lambda (_%g152651152695%_ + _%g152652152696%_) (cons 'define (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%L149013%_)) + (gx#stx-e _%g152652152696%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self148963%_ _%L149012%_)) + (gxc#compile-e__1 + _%self152646%_ + _%g152651152695%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd148977149007%_ - _%hd148974148999%_) - (_%g148966148983%_ - _%g148967148986%_)))) - (_%g148966148983%_ _%g148967148986%_)))) - (_%g148966148983%_ _%g148967148986%_)))) - (_%g148966148983%_ _%g148967148986%_))))) - (_%g148965149028%_ _%stx148964%_)))) + _%hd152660152690%_ + _%hd152657152682%_) + (_%g152649152666%_ + _%g152650152669%_)))) + (_%g152649152666%_ _%g152650152669%_)))) + (_%g152649152666%_ _%g152650152669%_)))) + (_%g152649152666%_ _%g152650152669%_))))) + (_%g152648152711%_ _%stx152647%_)))) (define gxc#generate-meta-begin% - (lambda (_%self148912%_ _%stx148913%_) - (let* ((_%g148915148925%_ - (lambda (_%g148916148922%_) + (lambda (_%self152595%_ _%stx152596%_) + (let* ((_%g152598152608%_ + (lambda (_%g152599152605%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g148916148922%_)))) - (_%g148914148960%_ - (lambda (_%g148916148928%_) + _%g152599152605%_)))) + (_%g152597152643%_ + (lambda (_%g152599152611%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g148916148928%_)) - (let ((_%e148918148930%_ + (gx#stx-pair? _%g152599152611%_)) + (let ((_%e152601152613%_ (let () (declare (not safe)) - (gx#stx-e _%g148916148928%_)))) - (let ((_%hd148919148933%_ + (gx#stx-e _%g152599152611%_)))) + (let ((_%hd152602152616%_ (let () (declare (not safe)) - (##car _%e148918148930%_))) - (_%tl148920148935%_ + (##car _%e152601152613%_))) + (_%tl152603152618%_ (let () (declare (not safe)) - (##cdr _%e148918148930%_)))) - ((lambda (_%L148938%_) - (let* ((_%c-body148952%_ - (map (lambda (_%g148947148949%_) + (##cdr _%e152601152613%_)))) + ((lambda (_%g152600152621%_) + (let* ((_%c-body152635%_ + (map (lambda (_%g152630152632%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self148912%_ - _%g148947148949%_))) - _%L148938%_)) - (_%c-body148957%_ - (let ((__tmp157926 - (lambda (_%$obj148954%_) - (not (eq? _%$obj148954%_ + _%self152595%_ + _%g152630152632%_))) + _%g152600152621%_)) + (_%c-body152640%_ + (let ((__tmp161573 + (lambda (_%$obj152637%_) + (not (eq? _%$obj152637%_ '#!void))))) (declare (not safe)) (##filter - __tmp157926 - _%c-body148952%_)))) - (cons '%#begin _%c-body148957%_))) - _%tl148920148935%_))) - (_%g148915148925%_ _%g148916148928%_))))) - (_%g148914148960%_ _%stx148913%_)))) + __tmp161573 + _%c-body152635%_)))) + (cons '%#begin _%c-body152640%_))) + _%tl152603152618%_))) + (_%g152598152608%_ _%g152599152611%_))))) + (_%g152597152643%_ _%stx152596%_)))) (define gxc#generate-meta-begin-syntax% - (lambda (_%self148817%_ _%stx148818%_) - (let* ((_%g148820148830%_ - (lambda (_%g148821148827%_) + (lambda (_%self152500%_ _%stx152501%_) + (let* ((_%g152503152513%_ + (lambda (_%g152504152510%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g148821148827%_)))) - (_%g148819148909%_ - (lambda (_%g148821148833%_) + _%g152504152510%_)))) + (_%g152502152592%_ + (lambda (_%g152504152516%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g148821148833%_)) - (let ((_%e148823148835%_ + (gx#stx-pair? _%g152504152516%_)) + (let ((_%e152506152518%_ (let () (declare (not safe)) - (gx#stx-e _%g148821148833%_)))) - (let ((_%hd148824148838%_ + (gx#stx-e _%g152504152516%_)))) + (let ((_%hd152507152521%_ (let () (declare (not safe)) - (##car _%e148823148835%_))) - (_%tl148825148840%_ + (##car _%e152506152518%_))) + (_%tl152508152523%_ (let () (declare (not safe)) - (##cdr _%e148823148835%_)))) - ((lambda (_%L148843%_) - (let* ((_%phi148853%_ - (let ((__tmp157927 + (##cdr _%e152506152518%_)))) + ((lambda (_%g152505152526%_) + (let* ((_%phi152536%_ + (let ((__tmp161574 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp157927 '1))) - (_%block148855%_ + (##fx+ __tmp161574 '1))) + (_%block152538%_ (gxc#meta-state-begin-phi! (let () (declare (not safe)) - (slot-ref__0 _%self148817%_ 'state)) - _%phi148853%_)) - (_%compiled148858%_ - (let ((__tmp157928 + (slot-ref__0 _%self152500%_ 'state)) + _%phi152536%_)) + (_%compiled152541%_ + (let ((__tmp161575 (lambda () (gxc#apply-generate-meta-phi__% '#f (let () (declare (not safe)) (slot-ref__0 - _%self148817%_ + _%self152500%_ 'state)) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L148843%_))))) + _%g152505152526%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp157928 + __tmp161575 gx#current-expander-phi - _%phi148853%_))) - (_%g148861148871%_ - (lambda (_%g148862148868%_) + _%phi152536%_))) + (_%g152544152554%_ + (lambda (_%g152545152551%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g148862148868%_)))) - (_%g148860148906%_ - (lambda (_%g148862148874%_) + _%g152545152551%_)))) + (_%g152543152589%_ + (lambda (_%g152545152557%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g148862148874%_)) - (let ((_%e148864148876%_ + (gx#stx-pair? _%g152545152557%_)) + (let ((_%e152547152559%_ (let () (declare (not safe)) (gx#stx-e - _%g148862148874%_)))) - (let ((_%hd148865148879%_ + _%g152545152557%_)))) + (let ((_%hd152548152562%_ (let () (declare (not safe)) - (##car _%e148864148876%_))) - (_%tl148866148881%_ + (##car _%e152547152559%_))) + (_%tl152549152564%_ (let () (declare (not safe)) - (##cdr _%e148864148876%_)))) + (##cdr _%e152547152559%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd148865148879%_)) + _%hd152548152562%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin - _%hd148865148879%_)) - ((lambda (_%L148884%_) - (let ((_%c-body148901%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (filter (lambda (_%$obj148898%_) - (not (eq? _%$obj148898%_ '#!void))) - _%L148884%_))) - (if _%block148855%_ + _%hd152548152562%_)) + ((lambda (_%g152546152567%_) + (let ((_%c-body152584%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (filter (lambda (_%$obj152581%_) + (not (eq? _%$obj152581%_ '#!void))) + _%g152546152567%_))) + (if _%block152538%_ (cons '%#begin-syntax (cons (cons '%#call (cons (cons '%#ref (cons 'load-module '())) (cons (cons '%#quote - (cons _%block148855%_ + (cons _%block152538%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%c-body148901%_)) - (if (null? _%c-body148901%_) + _%c-body152584%_)) + (if (null? _%c-body152584%_) '#!void - (cons '%#begin-syntax _%c-body148901%_))))) - _%tl148866148881%_) - (_%g148861148871%_ _%g148862148874%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g148861148871%_ - _%g148862148874%_)))) - (_%g148861148871%_ - _%g148862148874%_))))) - (_%g148860148906%_ _%compiled148858%_))) - _%tl148825148840%_))) - (_%g148820148830%_ _%g148821148833%_))))) - (_%g148819148909%_ _%stx148818%_)))) + (cons '%#begin-syntax _%c-body152584%_))))) + _%tl152549152564%_) + (_%g152544152554%_ _%g152545152557%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g152544152554%_ + _%g152545152557%_)))) + (_%g152544152554%_ + _%g152545152557%_))))) + (_%g152543152589%_ _%compiled152541%_))) + _%tl152508152523%_))) + (_%g152503152513%_ _%g152504152516%_))))) + (_%g152502152592%_ _%stx152501%_)))) (define gxc#generate-meta-module% - (lambda (_%self148748%_ _%stx148749%_) + (lambda (_%self152431%_ _%stx152432%_) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self148748%_ 'state))) - (let* ((_%g148751148765%_ - (lambda (_%g148752148762%_) + (let () (declare (not safe)) (slot-ref__0 _%self152431%_ 'state))) + (let* ((_%g152434152448%_ + (lambda (_%g152435152445%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g148752148762%_)))) - (_%g148750148814%_ - (lambda (_%g148752148768%_) + _%g152435152445%_)))) + (_%g152433152497%_ + (lambda (_%g152435152451%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g148752148768%_)) - (let ((_%e148755148770%_ + (gx#stx-pair? _%g152435152451%_)) + (let ((_%e152438152453%_ (let () (declare (not safe)) - (gx#stx-e _%g148752148768%_)))) - (let ((_%hd148756148773%_ + (gx#stx-e _%g152435152451%_)))) + (let ((_%hd152439152456%_ (let () (declare (not safe)) - (##car _%e148755148770%_))) - (_%tl148757148775%_ + (##car _%e152438152453%_))) + (_%tl152440152458%_ (let () (declare (not safe)) - (##cdr _%e148755148770%_)))) + (##cdr _%e152438152453%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl148757148775%_)) - (let ((_%e148758148778%_ + (gx#stx-pair? _%tl152440152458%_)) + (let ((_%e152441152461%_ (let () (declare (not safe)) - (gx#stx-e _%tl148757148775%_)))) - (let ((_%hd148759148781%_ + (gx#stx-e _%tl152440152458%_)))) + (let ((_%hd152442152464%_ (let () (declare (not safe)) - (##car _%e148758148778%_))) - (_%tl148760148783%_ + (##car _%e152441152461%_))) + (_%tl152443152466%_ (let () (declare (not safe)) - (##cdr _%e148758148778%_)))) - ((lambda (_%L148786%_ _%L148787%_) - (let ((_%key148800%_ + (##cdr _%e152441152461%_)))) + ((lambda (_%g152436152469%_ + _%g152437152470%_) + (let ((_%key152483%_ (let () (declare (not safe)) (gx#core-identifier-key - _%L148787%_)))) + _%g152437152470%_)))) (if (let () (declare (not safe)) - (interned-symbol? _%key148800%_)) + (interned-symbol? _%key152483%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile module with uninterned id" - _%stx148749%_ - _%L148787%_ - _%key148800%_))) - (let* ((_%ctx148802%_ + _%stx152432%_ + _%g152437152470%_ + _%key152483%_))) + (let* ((_%ctx152485%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L148787%_))) - (_%code148805%_ - (let ((__tmp157929 + _%g152437152470%_))) + (_%code152488%_ + (let ((__tmp161576 (lambda () - (let ((__tmp157930 + (let ((__tmp161577 (##structure-ref - _%ctx148802%_ + _%ctx152485%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _%self148748%_ - __tmp157930))))) + _%self152431%_ + __tmp161577))))) (declare (not safe)) (call-with-parameters__1 - __tmp157929 + __tmp161576 gx#current-expander-context - _%ctx148802%_))) - (_%rt148807%_ - (let ((__tmp157931 + _%ctx152485%_))) + (_%rt152490%_ + (let ((__tmp161578 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) (hash-get - __tmp157931 - _%ctx148802%_))) - (_%loader148809%_ - (if _%rt148807%_ + __tmp161578 + _%ctx152485%_))) + (_%loader152492%_ + (if _%rt152490%_ (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'load-module '())) - (cons (cons '%#quote (cons _%rt148807%_ '())) + (cons (cons '%#quote (cons _%rt152490%_ '())) '()))) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_%modid148811%_ + (_%modid152494%_ (let () (declare (not safe)) - (gx#stx-e _%L148787%_)))) + (gx#stx-e + _%g152437152470%_)))) (gxc#meta-state-end-phi! (let () (declare (not safe)) (slot-ref__0 - _%self148748%_ + _%self152431%_ 'state))) (cons '%#module - (cons _%modid148811%_ - (cons _%code148805%_ - _%loader148809%_)))))) - _%tl148760148783%_ - _%hd148759148781%_))) - (_%g148751148765%_ _%g148752148768%_)))) - (_%g148751148765%_ _%g148752148768%_))))) - (_%g148750148814%_ _%stx148749%_)))) + (cons _%modid152494%_ + (cons _%code152488%_ + _%loader152492%_)))))) + _%tl152443152466%_ + _%hd152442152464%_))) + (_%g152434152448%_ _%g152435152451%_)))) + (_%g152434152448%_ _%g152435152451%_))))) + (_%g152433152497%_ _%stx152432%_)))) (define gxc#generate-meta-import-path - (lambda (_%ctx148735%_ _%context-chain148736%_) - (let _%lp148738%_ ((_%ctx148740%_ _%ctx148735%_) (_%path148741%_ '())) - (let ((_%super148743%_ - (##structure-ref _%ctx148740%_ '3 gx#phi-context::t '#f))) - (if (memq _%super148743%_ _%context-chain148736%_) + (lambda (_%ctx152418%_ _%context-chain152419%_) + (let _%lp152421%_ ((_%ctx152423%_ _%ctx152418%_) (_%path152424%_ '())) + (let ((_%super152426%_ + (##structure-ref _%ctx152423%_ '3 gx#phi-context::t '#f))) + (if (memq _%super152426%_ _%context-chain152419%_) (cons '#f (cons (car (##structure-ref - _%ctx148740%_ + _%ctx152423%_ '7 gx#module-context::t '#f)) - _%path148741%_)) + _%path152424%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%super148743%_ + _%super152426%_ 'gx#module-context::t)) - (_%lp148738%_ - _%super148743%_ + (_%lp152421%_ + _%super152426%_ (cons (car (##structure-ref - _%ctx148740%_ + _%ctx152423%_ '7 gx#module-context::t '#f)) - _%path148741%_)) - (cons (let ((__tmp157932 + _%path152424%_)) + (cons (let ((__tmp161579 (##structure-ref - _%ctx148740%_ + _%ctx152423%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp157932)) - _%path148741%_))))))) + (make-symbol__1 '":" __tmp161579)) + _%path152424%_))))))) (define gxc#current-context-chain (lambda () - (let _%lp148728%_ ((_%ctx148730%_ + (let _%lp152411%_ ((_%ctx152413%_ (let () (declare (not safe)) (gx#current-expander-context))) - (_%r148731%_ '())) + (_%r152414%_ '())) (if (let () (declare (not safe)) - (##structure-instance-of? _%ctx148730%_ 'gx#module-context::t)) - (_%lp148728%_ + (##structure-instance-of? _%ctx152413%_ 'gx#module-context::t)) + (_%lp152411%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%ctx148730%_ '3 '#f '#f)) - (cons _%ctx148730%_ _%r148731%_)) - _%r148731%_)))) + (##unchecked-structure-ref _%ctx152413%_ '3 '#f '#f)) + (cons _%ctx152413%_ _%r152414%_)) + _%r152414%_)))) (define gxc#generate-meta-import% - (lambda (_%self148491%_ _%stx148492%_) - (letrec* ((_%context-chain148494%_ (gxc#current-context-chain)) - (_%make-import-spec148495%_ - (lambda (_%in148664%_) - (let* ((_%in148665148677%_ _%in148664%_) - (_%E148667148681%_ + (lambda (_%self152176%_ _%stx152177%_) + (letrec* ((_%context-chain152179%_ (gxc#current-context-chain)) + (_%make-import-spec152180%_ + (lambda (_%in152348%_) + (let* ((_%in152349152361%_ _%in152348%_) + (_%E152351152364%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%in148665148677%_ + _%in152349152361%_ '((module-import (module-export src-ctx @@ -13160,390 +13215,392 @@ name phi)))) '#!void)) - (_%K148668148691%_ - (lambda (_%phi148684%_ - _%name148685%_ - _%src-name148686%_ - _%src-phi148687%_ - _%src-key148688%_ - _%src-ctx148689%_) - (cons _%phi148684%_ + (_%K152352152374%_ + (lambda (_%phi152367%_ + _%name152368%_ + _%src-name152369%_ + _%src-phi152370%_ + _%src-key152371%_ + _%src-ctx152372%_) + (cons _%phi152367%_ (cons (gxc#generate-runtime-identifier-key - _%name148685%_) - (cons _%src-phi148687%_ + _%name152368%_) + (cons _%src-phi152370%_ (cons (gxc#generate-runtime-identifier-key - _%src-name148686%_) + _%src-name152369%_) '()))))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in148665148677%_ + _%in152349152361%_ 'gx#module-import::t)) - (let ((_%e148669148694%_ + (let ((_%e152353152377%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in148665148677%_ + _%in152349152361%_ '1 '#f '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%e148669148694%_ + _%e152353152377%_ 'gx#module-export::t)) - (let* ((_%e148672148697%_ + (let* ((_%e152356152380%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e148669148694%_ + _%e152353152377%_ '1 '#f '#f))) - (_%src-ctx148700%_ _%e148672148697%_) - (_%e148673148702%_ + (_%src-ctx152383%_ _%e152356152380%_) + (_%e152357152385%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e148669148694%_ + _%e152353152377%_ '2 '#f '#f))) - (_%src-key148705%_ _%e148673148702%_) - (_%e148674148707%_ + (_%src-key152388%_ _%e152357152385%_) + (_%e152358152390%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e148669148694%_ + _%e152353152377%_ '3 '#f '#f))) - (_%src-phi148710%_ _%e148674148707%_) - (_%e148675148712%_ + (_%src-phi152393%_ _%e152358152390%_) + (_%e152359152395%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e148669148694%_ + _%e152353152377%_ '4 '#f '#f))) - (_%src-name148715%_ _%e148675148712%_) - (_%e148670148717%_ + (_%src-name152398%_ _%e152359152395%_) + (_%e152354152400%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in148665148677%_ + _%in152349152361%_ '2 '#f '#f))) - (_%name148720%_ _%e148670148717%_) - (_%e148671148722%_ + (_%name152403%_ _%e152354152400%_) + (_%e152355152405%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in148665148677%_ + _%in152349152361%_ '3 '#f '#f))) - (_%phi148725%_ _%e148671148722%_)) - (_%K148668148691%_ - _%phi148725%_ - _%name148720%_ - _%src-name148715%_ - _%src-phi148710%_ - _%src-key148705%_ - _%src-ctx148700%_)) - (_%E148667148681%_))) - (_%E148667148681%_))))) - (_%make-import-path148496%_ - (lambda (_%ctx148662%_) + (_%phi152408%_ _%e152355152405%_)) + (_%K152352152374%_ + _%phi152408%_ + _%name152403%_ + _%src-name152398%_ + _%src-phi152393%_ + _%src-key152388%_ + _%src-ctx152383%_)) + (_%E152351152364%_))) + (_%E152351152364%_))))) + (_%make-import-path152181%_ + (lambda (_%ctx152346%_) (gxc#generate-meta-import-path - _%ctx148662%_ - _%context-chain148494%_))) - (_%make-import-spec-in148497%_ - (lambda (_%ctx148659%_ _%in148660%_) + _%ctx152346%_ + _%context-chain152179%_))) + (_%make-import-spec-in152182%_ + (lambda (_%ctx152343%_ _%in152344%_) (cons 'spec: - (cons (_%make-import-path148496%_ _%ctx148659%_) - (reverse _%in148660%_)))))) + (cons (_%make-import-path152181%_ _%ctx152343%_) + (reverse _%in152344%_)))))) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self148491%_ 'state))) - (let* ((_%g148499148509%_ - (lambda (_%g148500148506%_) + (let () (declare (not safe)) (slot-ref__0 _%self152176%_ 'state))) + (let* ((_%g152184152194%_ + (lambda (_%g152185152191%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g148500148506%_)))) - (_%g148498148656%_ - (lambda (_%g148500148512%_) + _%g152185152191%_)))) + (_%g152183152340%_ + (lambda (_%g152185152197%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g148500148512%_)) - (let ((_%e148502148514%_ + (gx#stx-pair? _%g152185152197%_)) + (let ((_%e152187152199%_ (let () (declare (not safe)) - (gx#stx-e _%g148500148512%_)))) - (let ((_%hd148503148517%_ + (gx#stx-e _%g152185152197%_)))) + (let ((_%hd152188152202%_ (let () (declare (not safe)) - (##car _%e148502148514%_))) - (_%tl148504148519%_ + (##car _%e152187152199%_))) + (_%tl152189152204%_ (let () (declare (not safe)) - (##cdr _%e148502148514%_)))) - ((lambda (_%L148522%_) - (let _%lp148533%_ ((_%rest148535%_ _%L148522%_) - (_%current-src148536%_ '#f) - (_%current-in148537%_ '()) - (_%r148538%_ '())) - (let* ((_%rest148539148547%_ _%rest148535%_) - (_%else148541148557%_ + (##cdr _%e152187152199%_)))) + ((lambda (_%g152186152207%_) + (let _%lp152218%_ ((_%rest152220%_ + _%g152186152207%_) + (_%current-src152221%_ '#f) + (_%current-in152222%_ '()) + (_%r152223%_ '())) + (let* ((_%rest152224152232%_ _%rest152220%_) + (_%else152226152242%_ (lambda () - (let ((_%r148555%_ - (if _%current-src148536%_ - (cons (_%make-import-spec-in148497%_ - _%current-src148536%_ - _%current-in148537%_) - _%r148538%_) - _%r148538%_))) + (let ((_%r152240%_ + (if _%current-src152221%_ + (cons (_%make-import-spec-in152182%_ + _%current-src152221%_ + _%current-in152222%_) + _%r152223%_) + _%r152223%_))) (cons '%#import - (reverse _%r148555%_))))) - (_%K148543148644%_ - (lambda (_%rest148560%_ _%in148561%_) + (reverse _%r152240%_))))) + (_%K152228152328%_ + (lambda (_%rest152245%_ _%in152246%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in148561%_ + _%in152246%_ 'gx#module-import::t)) - (let* ((_%in148563148570%_ - _%in148561%_) - (_%E148565148574%_ + (let* ((_%in152248152255%_ + _%in152246%_) + (_%E152250152258%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in148563148570%_ + _%in152248152255%_ '((module-import (module-export src-ctx))))) '#!void)) - (_%K148566148582%_ - (lambda (_%src-ctx148577%_) - (if (eq? _%current-src148536%_ _%src-ctx148577%_) - (_%lp148533%_ - _%rest148560%_ - _%current-src148536%_ - (cons (_%make-import-spec148495%_ _%in148561%_) - _%current-in148537%_) - _%r148538%_) - (if _%current-src148536%_ - (_%lp148533%_ - _%rest148560%_ - _%src-ctx148577%_ - (cons (_%make-import-spec148495%_ _%in148561%_) '()) - (cons (_%make-import-spec-in148497%_ - _%current-src148536%_ - _%current-in148537%_) - _%r148538%_)) - (_%lp148533%_ - _%rest148560%_ - _%src-ctx148577%_ - (cons (_%make-import-spec148495%_ _%in148561%_) '()) - _%r148538%_))))) - (_%e148567148585%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref _%in148563148570%_ '1 '#f '#f)))) + (_%K152251152266%_ + (lambda (_%src-ctx152261%_) + (if (eq? _%current-src152221%_ _%src-ctx152261%_) + (_%lp152218%_ + _%rest152245%_ + _%current-src152221%_ + (cons (_%make-import-spec152180%_ _%in152246%_) + _%current-in152222%_) + _%r152223%_) + (if _%current-src152221%_ + (_%lp152218%_ + _%rest152245%_ + _%src-ctx152261%_ + (cons (_%make-import-spec152180%_ _%in152246%_) '()) + (cons (_%make-import-spec-in152182%_ + _%current-src152221%_ + _%current-in152222%_) + _%r152223%_)) + (_%lp152218%_ + _%rest152245%_ + _%src-ctx152261%_ + (cons (_%make-import-spec152180%_ _%in152246%_) '()) + _%r152223%_))))) + (_%e152252152269%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref _%in152248152255%_ '1 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%e148567148585%_ + _%e152252152269%_ 'gx#module-export::t)) - (let* ((_%e148568148588%_ + (let* ((_%e152253152272%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%e148567148585%_ + _%e152252152269%_ '1 '#f '#f))) - (_%src-ctx148591%_ _%e148568148588%_)) - (_%K148566148582%_ _%src-ctx148591%_)) + (_%src-ctx152275%_ _%e152253152272%_)) + (_%K152251152266%_ _%src-ctx152275%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E148565148574%_))) + (_%E152250152258%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in148561%_ + _%in152246%_ 'gx#import-set::t)) - (let* ((_%phi148594%_ + (let* ((_%phi152278%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in148561%_ + _%in152246%_ '2 '#f '#f))) - (_%src148596%_ + (_%src152280%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in148561%_ + _%in152246%_ '1 '#f '#f))) - (_%src-in148636%_ - (let* ((_%g148597148606%_ + (_%src-in152320%_ + (let* ((_%g152281152290%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%make-import-path148496%_ _%src148596%_)) - (_%E148600148610%_ + (_%make-import-path152181%_ _%src152280%_)) + (_%E152284152294%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g148597148606%_ + _%g152281152290%_ '([path]) '(path))) '#!void))) - (let ((_%K148602148626%_ - (lambda (_%path148624%_) _%path148624%_)) - (_%K148601148616%_ - (lambda (_%path148614%_) - (cons 'in: _%path148614%_)))) - (if (pair? _%g148597148606%_) - (let ((_%tl148604148631%_ + (let ((_%K152286152310%_ + (lambda (_%path152308%_) _%path152308%_)) + (_%K152285152300%_ + (lambda (_%path152298%_) + (cons 'in: _%path152298%_)))) + (if (pair? _%g152281152290%_) + (let ((_%tl152288152315%_ (let () (declare (not safe)) - (##cdr _%g148597148606%_))) - (_%hd148603148629%_ + (##cdr _%g152281152290%_))) + (_%hd152287152313%_ (let () (declare (not safe)) - (##car _%g148597148606%_)))) - (if (null? _%tl148604148631%_) - (let ((_%path148634%_ _%hd148603148629%_)) - (_%K148602148626%_ _%path148634%_)) - (let ((_%path148619%_ _%g148597148606%_)) - (_%K148601148616%_ _%path148619%_)))) - (let ((_%path148619%_ _%g148597148606%_)) - (_%K148601148616%_ _%path148619%_)))))) - (_%r148638%_ - (if _%current-src148536%_ - (cons (_%make-import-spec-in148497%_ - _%current-src148536%_ - _%current-in148537%_) - _%r148538%_) - _%r148538%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp148533%_ - _%rest148560%_ + (##car _%g152281152290%_)))) + (if (null? _%tl152288152315%_) + (let ((_%path152318%_ _%hd152287152313%_)) + (_%K152286152310%_ _%path152318%_)) + (let ((_%path152303%_ _%g152281152290%_)) + (_%K152285152300%_ _%path152303%_)))) + (let ((_%path152303%_ _%g152281152290%_)) + (_%K152285152300%_ _%path152303%_)))))) + (_%r152322%_ + (if _%current-src152221%_ + (cons (_%make-import-spec-in152182%_ + _%current-src152221%_ + _%current-in152222%_) + _%r152223%_) + _%r152223%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp152218%_ + _%rest152245%_ '#f '() - (cons (if (fxzero? _%phi148594%_) - _%src-in148636%_ + (cons (if (fxzero? _%phi152278%_) + _%src-in152320%_ (cons 'phi: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%phi148594%_ - (cons _%src-in148636%_ '())))) - _%r148638%_))) + (cons _%phi152278%_ + (cons _%src-in152320%_ '())))) + _%r152322%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-instance-of? - _%in148561%_ + _%in152246%_ 'gx#module-context::t)) - (let ((_%r148642%_ - (if _%current-src148536%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (_%make-import-spec-in148497%_ - _%current-src148536%_ - _%current-in148537%_) - _%r148538%_) - _%r148538%_))) - (_%lp148533%_ - _%rest148560%_ + (let ((_%r152326%_ + (if _%current-src152221%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (_%make-import-spec-in152182%_ + _%current-src152221%_ + _%current-in152222%_) + _%r152223%_) + _%r152223%_))) + (_%lp152218%_ + _%rest152245%_ '#f '() (cons (cons 'runtime: - (_%make-import-path148496%_ _%in148561%_)) - _%r148642%_))) + (_%make-import-path152181%_ _%in152246%_)) + _%r152326%_))) '#!void)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest148539148547%_) - (let ((_%hd148544148647%_ + (if (pair? _%rest152224152232%_) + (let ((_%hd152229152331%_ (let () (declare (not safe)) - (##car _%rest148539148547%_))) - (_%tl148545148649%_ + (##car _%rest152224152232%_))) + (_%tl152230152333%_ (let () (declare (not safe)) - (##cdr _%rest148539148547%_)))) - (let* ((_%in148652%_ - _%hd148544148647%_) - (_%rest148654%_ - _%tl148545148649%_)) - (_%K148543148644%_ - _%rest148654%_ - _%in148652%_))) - (_%else148541148557%_))))) - _%tl148504148519%_))) - (_%g148499148509%_ _%g148500148512%_))))) - (_%g148498148656%_ _%stx148492%_))))) + (##cdr _%rest152224152232%_)))) + (let* ((_%in152336%_ + _%hd152229152331%_) + (_%rest152338%_ + _%tl152230152333%_)) + (_%K152228152328%_ + _%rest152338%_ + _%in152336%_))) + (_%else152226152242%_))))) + _%tl152189152204%_))) + (_%g152184152194%_ _%g152185152197%_))))) + (_%g152183152340%_ _%stx152177%_))))) (define gxc#generate-meta-export% - (lambda (_%self148301%_ _%stx148302%_) - (letrec* ((_%context-chain148304%_ (gxc#current-context-chain)) - (_%make-import-path148305%_ - (lambda (_%ctx148489%_) + (lambda (_%self151986%_ _%stx151987%_) + (letrec* ((_%context-chain151989%_ (gxc#current-context-chain)) + (_%make-import-path151990%_ + (lambda (_%ctx152174%_) (gxc#generate-meta-import-path - _%ctx148489%_ - _%context-chain148304%_)))) - (let* ((_%g148307148317%_ - (lambda (_%g148308148314%_) + _%ctx152174%_ + _%context-chain151989%_)))) + (let* ((_%g151992152002%_ + (lambda (_%g151993151999%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g148308148314%_)))) - (_%g148306148486%_ - (lambda (_%g148308148320%_) + _%g151993151999%_)))) + (_%g151991152171%_ + (lambda (_%g151993152005%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g148308148320%_)) - (let ((_%e148310148322%_ + (gx#stx-pair? _%g151993152005%_)) + (let ((_%e151995152007%_ (let () (declare (not safe)) - (gx#stx-e _%g148308148320%_)))) - (let ((_%hd148311148325%_ + (gx#stx-e _%g151993152005%_)))) + (let ((_%hd151996152010%_ (let () (declare (not safe)) - (##car _%e148310148322%_))) - (_%tl148312148327%_ + (##car _%e151995152007%_))) + (_%tl151997152012%_ (let () (declare (not safe)) - (##cdr _%e148310148322%_)))) - ((lambda (_%L148330%_) - (let _%lp148341%_ ((_%rest148343%_ _%L148330%_) - (_%r148344%_ '())) - (let* ((_%rest148345148353%_ _%rest148343%_) - (_%else148347148361%_ + (##cdr _%e151995152007%_)))) + ((lambda (_%g151994152015%_) + (let _%lp152026%_ ((_%rest152028%_ + _%g151994152015%_) + (_%r152029%_ '())) + (let* ((_%rest152030152038%_ _%rest152028%_) + (_%else152032152046%_ (lambda () (cons '%#export - (reverse _%r148344%_)))) - (_%K148349148474%_ - (lambda (_%rest148364%_ _%out148365%_) - (let* ((_%out148366148379%_ - _%out148365%_) - (_%E148369148383%_ + (reverse _%r152029%_)))) + (_%K152034152159%_ + (lambda (_%rest152049%_ _%out152050%_) + (let* ((_%out152051152064%_ + _%out152050%_) + (_%E152054152068%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%out148366148379%_ + _%out152051152064%_ '((module-export ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _ @@ -13553,491 +13610,497 @@ '((export-set src phi)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (let ((_%K148373148453%_ - (lambda (_%name148449%_ - _%phi148450%_ - _%key148451%_) - (_%lp148341%_ - _%rest148364%_ + (let ((_%K152058152138%_ + (lambda (_%name152134%_ + _%phi152135%_ + _%key152136%_) + (_%lp152026%_ + _%rest152049%_ (cons (cons 'spec: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%phi148450%_ + (cons _%phi152135%_ (cons (gxc#generate-runtime-identifier-key - _%key148451%_) + _%key152136%_) (cons (gxc#generate-runtime-identifier-key - _%name148449%_) + _%name152134%_) '())))) - _%r148344%_)))) + _%r152029%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K148370148433%_ - (lambda (_%phi148387%_ - _%src148388%_) - (let* ((_%out148428%_ - (if _%src148388%_ + (_%K152055152118%_ + (lambda (_%phi152072%_ + _%src152073%_) + (let* ((_%out152113%_ + (if _%src152073%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'import: - (cons (let* ((_%g148389148398%_ - (_%make-import-path148305%_ - _%src148388%_)) - (_%E148392148402%_ + (cons (let* ((_%g152074152083%_ + (_%make-import-path151990%_ + _%src152073%_)) + (_%E152077152087%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g148389148398%_ + _%g152074152083%_ '([path]) '(path))) '#!void))) - (let ((_%K148394148418%_ - (lambda (_%path148416%_) - _%path148416%_)) - (_%K148393148408%_ - (lambda (_%path148406%_) - (cons 'in: _%path148406%_)))) - (if (pair? _%g148389148398%_) - (let ((_%tl148396148423%_ + (let ((_%K152079152103%_ + (lambda (_%path152101%_) + _%path152101%_)) + (_%K152078152093%_ + (lambda (_%path152091%_) + (cons 'in: _%path152091%_)))) + (if (pair? _%g152074152083%_) + (let ((_%tl152081152108%_ (let () (declare (not safe)) - (##cdr _%g148389148398%_))) - (_%hd148395148421%_ + (##cdr _%g152074152083%_))) + (_%hd152080152106%_ (let () (declare (not safe)) - (##car _%g148389148398%_)))) - (if (null? _%tl148396148423%_) - (let ((_%path148426%_ - _%hd148395148421%_)) - (_%K148394148418%_ - _%path148426%_)) - (let ((_%path148411%_ - _%g148389148398%_)) - (_%K148393148408%_ - _%path148411%_)))) - (let ((_%path148411%_ - _%g148389148398%_)) - (_%K148393148408%_ - _%path148411%_))))) + (##car _%g152074152083%_)))) + (if (null? _%tl152081152108%_) + (let ((_%path152111%_ + _%hd152080152106%_)) + (_%K152079152103%_ + _%path152111%_)) + (let ((_%path152096%_ + _%g152074152083%_)) + (_%K152078152093%_ + _%path152096%_)))) + (let ((_%path152096%_ + _%g152074152083%_)) + (_%K152078152093%_ + _%path152096%_))))) '())) '#t)) - (_%out148430%_ - (if (fxzero? _%phi148387%_) - _%out148428%_ + (_%out152115%_ + (if (fxzero? _%phi152072%_) + _%out152113%_ (cons 'phi: - (cons _%phi148387%_ - (cons _%out148428%_ '())))))) - (_%lp148341%_ - _%rest148364%_ - (cons _%out148430%_ _%r148344%_)))))) + (cons _%phi152072%_ + (cons _%out152113%_ '())))))) + (_%lp152026%_ + _%rest152049%_ + (cons _%out152115%_ _%r152029%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%try-match148368148446%_ + (let ((_%try-match152053152131%_ (lambda () (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%out148366148379%_ + _%out152051152064%_ 'gx#export-set::t)) - (let* ((_%e148371148436%_ + (let* ((_%e152056152121%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _%out148366148379%_ + _%out152051152064%_ '1 '#f '#f))) - (_%e148372148441%_ + (_%e152057152126%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out148366148379%_ + _%out152051152064%_ '2 '#f '#f)))) - (let ((_%src148439%_ _%e148371148436%_) - (_%phi148444%_ _%e148372148441%_)) - (_%K148370148433%_ _%phi148444%_ _%src148439%_))) - (_%E148369148383%_))))) + (let ((_%src152124%_ _%e152056152121%_) + (_%phi152129%_ _%e152057152126%_)) + (_%K152055152118%_ _%phi152129%_ _%src152124%_))) + (_%E152054152068%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%out148366148379%_ + _%out152051152064%_ 'gx#module-export::t)) - (let* ((_%e148374148456%_ + (let* ((_%e152059152141%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%out148366148379%_ + _%out152051152064%_ '1 '#f '#f))) - (_%e148375148459%_ + (_%e152060152144%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out148366148379%_ + _%out152051152064%_ '2 '#f '#f))) - (_%e148376148464%_ + (_%e152061152149%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out148366148379%_ + _%out152051152064%_ '3 '#f '#f))) - (_%e148377148469%_ + (_%e152062152154%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out148366148379%_ + _%out152051152064%_ '4 '#f '#f)))) - (let ((_%key148462%_ _%e148375148459%_) - (_%phi148467%_ _%e148376148464%_) - (_%name148472%_ _%e148377148469%_)) - (_%K148373148453%_ - _%name148472%_ - _%phi148467%_ - _%key148462%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%try-match148368148446%_)))))))) - (if (pair? _%rest148345148353%_) - (let ((_%hd148350148477%_ + (let ((_%key152147%_ _%e152060152144%_) + (_%phi152152%_ _%e152061152149%_) + (_%name152157%_ _%e152062152154%_)) + (_%K152058152138%_ + _%name152157%_ + _%phi152152%_ + _%key152147%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%try-match152053152131%_)))))))) + (if (pair? _%rest152030152038%_) + (let ((_%hd152035152162%_ (let () (declare (not safe)) - (##car _%rest148345148353%_))) - (_%tl148351148479%_ + (##car _%rest152030152038%_))) + (_%tl152036152164%_ (let () (declare (not safe)) - (##cdr _%rest148345148353%_)))) - (let* ((_%out148482%_ - _%hd148350148477%_) - (_%rest148484%_ - _%tl148351148479%_)) - (_%K148349148474%_ - _%rest148484%_ - _%out148482%_))) - (_%else148347148361%_))))) - _%tl148312148327%_))) - (_%g148307148317%_ _%g148308148320%_))))) - (_%g148306148486%_ _%stx148302%_))))) + (##cdr _%rest152030152038%_)))) + (let* ((_%out152167%_ + _%hd152035152162%_) + (_%rest152169%_ + _%tl152036152164%_)) + (_%K152034152159%_ + _%rest152169%_ + _%out152167%_))) + (_%else152032152046%_))))) + _%tl151997152012%_))) + (_%g151992152002%_ _%g151993152005%_))))) + (_%g151991152171%_ _%stx151987%_))))) (define gxc#generate-meta-provide% - (lambda (_%self148262%_ _%stx148263%_) + (lambda (_%self151947%_ _%stx151948%_) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self148262%_ 'state))) - (let* ((_%g148265148275%_ - (lambda (_%g148266148272%_) + (let () (declare (not safe)) (slot-ref__0 _%self151947%_ 'state))) + (let* ((_%g151950151960%_ + (lambda (_%g151951151957%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g148266148272%_)))) - (_%g148264148298%_ - (lambda (_%g148266148278%_) + _%g151951151957%_)))) + (_%g151949151983%_ + (lambda (_%g151951151963%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g148266148278%_)) - (let ((_%e148268148280%_ + (gx#stx-pair? _%g151951151963%_)) + (let ((_%e151953151965%_ (let () (declare (not safe)) - (gx#stx-e _%g148266148278%_)))) - (let ((_%hd148269148283%_ + (gx#stx-e _%g151951151963%_)))) + (let ((_%hd151954151968%_ (let () (declare (not safe)) - (##car _%e148268148280%_))) - (_%tl148270148285%_ + (##car _%e151953151965%_))) + (_%tl151955151970%_ (let () (declare (not safe)) - (##cdr _%e148268148280%_)))) - ((lambda (_%L148288%_) + (##cdr _%e151953151965%_)))) + ((lambda (_%g151952151973%_) (cons '%#provide (map gxc#generate-runtime-identifier - _%L148288%_))) - _%tl148270148285%_))) - (_%g148265148275%_ _%g148266148278%_))))) - (_%g148264148298%_ _%stx148263%_)))) + _%g151952151973%_))) + _%tl151955151970%_))) + (_%g151950151960%_ _%g151951151963%_))))) + (_%g151949151983%_ _%stx151948%_)))) (define gxc#generate-meta-extern% - (lambda (_%self148133%_ _%stx148134%_) - (letrec ((_%generate1148136%_ - (lambda (_%id148257%_ _%eid148258%_) - (let ((_%eid148260%_ + (lambda (_%self151822%_ _%stx151823%_) + (letrec ((_%generate1151825%_ + (lambda (_%id151942%_ _%eid151943%_) + (let ((_%eid151945%_ (let () (declare (not safe)) - (gx#stx-e _%eid148258%_)))) + (gx#stx-e _%eid151943%_)))) (if (let () (declare (not safe)) - (interned-symbol? _%eid148260%_)) + (interned-symbol? _%eid151945%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile extern reference" - _%stx148134%_ - _%eid148260%_))) - (cons (gxc#generate-runtime-identifier _%id148257%_) - (cons _%eid148260%_ '())))))) - (let* ((_%g148138148166%_ - (lambda (_%g148139148163%_) + _%stx151823%_ + _%eid151945%_))) + (cons (gxc#generate-runtime-identifier _%id151942%_) + (cons _%eid151945%_ '())))))) + (let* ((_%g151827151855%_ + (lambda (_%g151828151852%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g148139148163%_)))) - (_%g148137148254%_ - (lambda (_%g148139148169%_) + _%g151828151852%_)))) + (_%g151826151939%_ + (lambda (_%g151828151858%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g148139148169%_)) - (let ((_%e148142148171%_ + (gx#stx-pair? _%g151828151858%_)) + (let ((_%e151831151860%_ (let () (declare (not safe)) - (gx#stx-e _%g148139148169%_)))) - (let ((_%hd148143148174%_ + (gx#stx-e _%g151828151858%_)))) + (let ((_%hd151832151863%_ (let () (declare (not safe)) - (##car _%e148142148171%_))) - (_%tl148144148176%_ + (##car _%e151831151860%_))) + (_%tl151833151865%_ (let () (declare (not safe)) - (##cdr _%e148142148171%_)))) + (##cdr _%e151831151860%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl148144148176%_)) - (let ((_g157933_ + (gx#stx-pair/null? _%tl151833151865%_)) + (let ((_g161580_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl148144148176%_ + _%tl151833151865%_ '0)))) (begin - (let ((_g157934_ + (let ((_g161581_ (let () (declare (not safe)) - (if (##values? _g157933_) - (##values-length _g157933_) + (if (##values? _g161580_) + (##values-length _g161580_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g157934_ 2))) + (##fx= _g161581_ 2))) (error "Context expects 2 values" - _g157934_))) - (let ((_%target148145148179%_ + _g161581_))) + (let ((_%target151834151868%_ (let () (declare (not safe)) - (##values-ref _g157933_ 0))) - (_%tl148147148181%_ + (##values-ref _g161580_ 0))) + (_%tl151836151870%_ (let () (declare (not safe)) - (##values-ref _g157933_ 1)))) + (##values-ref _g161580_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl148147148181%_)) - (letrec ((_%loop148148148184%_ - (lambda (_%hd148146148187%_ - _%eid148152148189%_ - _%id148153148191%_) + (gx#stx-null? _%tl151836151870%_)) + (letrec ((_%loop151837151873%_ + (lambda (_%hd151835151876%_ + _%eid151841151878%_ + _%id151842151879%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd148146148187%_)) - (let ((_%e148149148194%_ + _%hd151835151876%_)) + (let ((_%e151838151881%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd148146148187%_)))) - (let ((_%lp-hd148150148197%_ + (gx#stx-e _%hd151835151876%_)))) + (let ((_%lp-hd151839151884%_ (let () (declare (not safe)) - (##car _%e148149148194%_))) - (_%lp-tl148151148199%_ + (##car _%e151838151881%_))) + (_%lp-tl151840151886%_ (let () (declare (not safe)) - (##cdr _%e148149148194%_)))) + (##cdr _%e151838151881%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd148150148197%_)) - (let ((_%e148156148202%_ + (gx#stx-pair? _%lp-hd151839151884%_)) + (let ((_%e151845151889%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd148150148197%_)))) - (let ((_%hd148157148205%_ + (gx#stx-e _%lp-hd151839151884%_)))) + (let ((_%hd151846151892%_ (let () (declare (not safe)) - (##car _%e148156148202%_))) - (_%tl148158148207%_ + (##car _%e151845151889%_))) + (_%tl151847151894%_ (let () (declare (not safe)) - (##cdr _%e148156148202%_)))) + (##cdr _%e151845151889%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl148158148207%_)) - (let ((_%e148159148210%_ + (gx#stx-pair? _%tl151847151894%_)) + (let ((_%e151848151897%_ (let () (declare (not safe)) - (gx#stx-e _%tl148158148207%_)))) - (let ((_%hd148160148213%_ + (gx#stx-e _%tl151847151894%_)))) + (let ((_%hd151849151900%_ (let () (declare (not safe)) - (##car _%e148159148210%_))) - (_%tl148161148215%_ + (##car _%e151848151897%_))) + (_%tl151850151902%_ (let () (declare (not safe)) - (##cdr _%e148159148210%_)))) + (##cdr _%e151848151897%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl148161148215%_)) - (_%loop148148148184%_ - _%lp-tl148151148199%_ - (cons _%hd148160148213%_ - _%eid148152148189%_) - (cons _%hd148157148205%_ - _%id148153148191%_)) - (_%g148138148166%_ - _%g148139148169%_)))) - (_%g148138148166%_ _%g148139148169%_)))) - (_%g148138148166%_ _%g148139148169%_)))) - (let ((_%eid148154148218%_ (reverse _%eid148152148189%_)) - (_%id148155148220%_ (reverse _%id148153148191%_))) - ((lambda (_%L148223%_ _%L148224%_) + (gx#stx-null? _%tl151850151902%_)) + (_%loop151837151873%_ + _%lp-tl151840151886%_ + (cons _%hd151849151900%_ + _%eid151841151878%_) + (cons _%hd151846151892%_ + _%id151842151879%_)) + (_%g151827151855%_ + _%g151828151858%_)))) + (_%g151827151855%_ _%g151828151858%_)))) + (_%g151827151855%_ _%g151828151858%_)))) + (let ((_%eid151843151905%_ (reverse _%eid151841151878%_)) + (_%id151844151906%_ (reverse _%id151842151879%_))) + ((lambda (_%g151829151908%_ _%g151830151909%_) (cons '%#extern - (map _%generate1148136%_ - (let ((__tmp157935 - (lambda (_%g148239148242%_ - _%g148240148244%_) - (cons _%g148239148242%_ - _%g148240148244%_)))) + (map _%generate1151825%_ + (let ((__tmp161582 + (lambda (_%g151924151927%_ + _%g151925151929%_) + (cons _%g151924151927%_ + _%g151925151929%_)))) (declare (not safe)) - (__foldr1 __tmp157935 '() _%L148224%_)) - (let ((__tmp157936 - (lambda (_%g148246148249%_ - _%g148247148251%_) - (cons _%g148246148249%_ - _%g148247148251%_)))) + (__foldr1 + __tmp161582 + '() + _%g151830151909%_)) + (let ((__tmp161583 + (lambda (_%g151931151934%_ + _%g151932151936%_) + (cons _%g151931151934%_ + _%g151932151936%_)))) (declare (not safe)) - (__foldr1 __tmp157936 '() _%L148223%_))))) - _%eid148154148218%_ - _%id148155148220%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop148148148184%_ - _%target148145148179%_ + (__foldr1 + __tmp161583 + '() + _%g151829151908%_))))) + _%eid151843151905%_ + _%id151844151906%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop151837151873%_ + _%target151834151868%_ '() '())) - (_%g148138148166%_ - _%g148139148169%_))))) - (_%g148138148166%_ _%g148139148169%_)))) - (_%g148138148166%_ _%g148139148169%_))))) - (_%g148137148254%_ _%stx148134%_))))) + (_%g151827151855%_ + _%g151828151858%_))))) + (_%g151827151855%_ _%g151828151858%_)))) + (_%g151827151855%_ _%g151828151858%_))))) + (_%g151826151939%_ _%stx151823%_))))) (define gxc#generate-meta-define-values% - (lambda (_%self147923%_ _%stx147924%_) - (letrec ((_%generate1147926%_ - (lambda (_%id148128%_) - (let ((_%eid148130%_ + (lambda (_%self151612%_ _%stx151613%_) + (letrec ((_%generate1151615%_ + (lambda (_%id151817%_) + (let ((_%eid151819%_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _%id148128%_))) - (_%ident148131%_ - (gxc#generate-runtime-identifier _%id148128%_))) + (gxc#generate-runtime-binding-id _%id151817%_))) + (_%ident151820%_ + (gxc#generate-runtime-identifier _%id151817%_))) (cons '%#define-runtime - (cons _%ident148131%_ (cons _%eid148130%_ '())))))) - (_%generate*147927%_ - (lambda (_%all148096%_) - (let* ((_%all148097148105%_ _%all148096%_) - (_%else148099148113%_ - (lambda () (cons '%#begin _%all148096%_))) - (_%K148101148118%_ - (lambda (_%one148116%_) _%one148116%_))) - (if (pair? _%all148097148105%_) - (let ((_%hd148102148121%_ + (cons _%ident151820%_ (cons _%eid151819%_ '())))))) + (_%generate*151616%_ + (lambda (_%all151785%_) + (let* ((_%all151786151794%_ _%all151785%_) + (_%else151788151802%_ + (lambda () (cons '%#begin _%all151785%_))) + (_%K151790151807%_ + (lambda (_%one151805%_) _%one151805%_))) + (if (pair? _%all151786151794%_) + (let ((_%hd151791151810%_ (let () (declare (not safe)) - (##car _%all148097148105%_))) - (_%tl148103148123%_ + (##car _%all151786151794%_))) + (_%tl151792151812%_ (let () (declare (not safe)) - (##cdr _%all148097148105%_)))) - (let ((_%one148126%_ _%hd148102148121%_)) - (if (null? _%tl148103148123%_) - (_%K148101148118%_ _%one148126%_) - (_%else148099148113%_)))) - (_%else148099148113%_)))))) - (let* ((_%g147929147946%_ - (lambda (_%g147930147943%_) + (##cdr _%all151786151794%_)))) + (let ((_%one151815%_ _%hd151791151810%_)) + (if (null? _%tl151792151812%_) + (_%K151790151807%_ _%one151815%_) + (_%else151788151802%_)))) + (_%else151788151802%_)))))) + (let* ((_%g151618151635%_ + (lambda (_%g151619151632%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147930147943%_)))) - (_%g147928148093%_ - (lambda (_%g147930147949%_) + _%g151619151632%_)))) + (_%g151617151782%_ + (lambda (_%g151619151638%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147930147949%_)) - (let ((_%e147933147951%_ + (gx#stx-pair? _%g151619151638%_)) + (let ((_%e151622151640%_ (let () (declare (not safe)) - (gx#stx-e _%g147930147949%_)))) - (let ((_%hd147934147954%_ + (gx#stx-e _%g151619151638%_)))) + (let ((_%hd151623151643%_ (let () (declare (not safe)) - (##car _%e147933147951%_))) - (_%tl147935147956%_ + (##car _%e151622151640%_))) + (_%tl151624151645%_ (let () (declare (not safe)) - (##cdr _%e147933147951%_)))) + (##cdr _%e151622151640%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147935147956%_)) - (let ((_%e147936147959%_ + (gx#stx-pair? _%tl151624151645%_)) + (let ((_%e151625151648%_ (let () (declare (not safe)) - (gx#stx-e _%tl147935147956%_)))) - (let ((_%hd147937147962%_ + (gx#stx-e _%tl151624151645%_)))) + (let ((_%hd151626151651%_ (let () (declare (not safe)) - (##car _%e147936147959%_))) - (_%tl147938147964%_ + (##car _%e151625151648%_))) + (_%tl151627151653%_ (let () (declare (not safe)) - (##cdr _%e147936147959%_)))) + (##cdr _%e151625151648%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147938147964%_)) - (let ((_%e147939147967%_ + (gx#stx-pair? _%tl151627151653%_)) + (let ((_%e151628151656%_ (let () (declare (not safe)) (gx#stx-e - _%tl147938147964%_)))) - (let ((_%hd147940147970%_ + _%tl151627151653%_)))) + (let ((_%hd151629151659%_ (let () (declare (not safe)) - (##car _%e147939147967%_))) - (_%tl147941147972%_ + (##car _%e151628151656%_))) + (_%tl151630151661%_ (let () (declare (not safe)) - (##cdr _%e147939147967%_)))) + (##cdr _%e151628151656%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl147941147972%_)) - ((lambda (_%L147975%_ - _%L147976%_) - (let _%lp147992%_ ((_%rest147994%_ + _%tl151630151661%_)) + ((lambda (_%g151620151664%_ + _%g151621151665%_) + (let _%lp151681%_ ((_%rest151683%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L147976%_) - (_%r147995%_ '())) + _%g151621151665%_) + (_%r151684%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__stx157671157672%_ - _%rest147994%_) - (_%g148000148017%_ + (let* ((_%__stx161318161319%_ + _%rest151683%_) + (_%g151689151706%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14045,160 +14108,161 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx157671157672%_))))) - (let ((_%__kont157673157674%_ - (lambda (_%L148080%_) - (_%lp147992%_ _%L148080%_ _%r147995%_))) - (_%__kont157675157676%_ - (lambda (_%L148053%_ _%L148054%_) - (_%lp147992%_ - _%L148053%_ - (cons (_%generate1147926%_ _%L148054%_) - _%r147995%_)))) - (_%__kont157677157678%_ - (lambda (_%L148029%_) - (_%generate*147927%_ - (let ((__tmp157937 - (cons (_%generate1147926%_ _%L148029%_) '()))) + _%__stx161318161319%_))))) + (let ((_%__kont161320161321%_ + (lambda (_%g151691151769%_) + (_%lp151681%_ _%g151691151769%_ _%r151684%_))) + (_%__kont161322161323%_ + (lambda (_%g151696151742%_ _%g151697151743%_) + (_%lp151681%_ + _%g151696151742%_ + (cons (_%generate1151615%_ _%g151697151743%_) + _%r151684%_)))) + (_%__kont161324161325%_ + (lambda (_%g151701151718%_) + (_%generate*151616%_ + (let ((__tmp161584 + (cons (_%generate1151615%_ _%g151701151718%_) + '()))) (declare (not safe)) - (__foldl1 cons __tmp157937 _%r147995%_))))) - (_%__kont157679157680%_ - (lambda () (_%generate*147927%_ (reverse _%r147995%_))))) - (let ((_%g147998148040%_ + (__foldl1 cons __tmp161584 _%r151684%_))))) + (_%__kont161326161327%_ + (lambda () (_%generate*151616%_ (reverse _%r151684%_))))) + (let ((_%g151687151729%_ (lambda () - (let ((_%L148029%_ _%__stx157671157672%_)) + (let ((_%g151701151718%_ _%__stx161318161319%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L148029%_)) - (_%__kont157677157678%_ _%L148029%_) - (_%__kont157679157680%_)))))) + (gx#identifier? _%g151701151718%_)) + (_%__kont161324161325%_ _%g151701151718%_) + (_%__kont161326161327%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx157671157672%_)) - (let ((_%e148003148069%_ + (gx#stx-pair? _%__stx161318161319%_)) + (let ((_%e151692151758%_ (let () (declare (not safe)) - (gx#stx-e _%__stx157671157672%_)))) - (let ((_%tl148005148074%_ + (gx#stx-e _%__stx161318161319%_)))) + (let ((_%tl151694151763%_ (let () (declare (not safe)) - (##cdr _%e148003148069%_))) - (_%hd148004148072%_ + (##cdr _%e151692151758%_))) + (_%hd151693151761%_ (let () (declare (not safe)) - (##car _%e148003148069%_)))) + (##car _%e151692151758%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd148004148072%_)) - (let ((_%e148006148077%_ + (gx#stx-datum? _%hd151693151761%_)) + (let ((_%e151695151766%_ (let () (declare (not safe)) - (gx#stx-e _%hd148004148072%_)))) - (if (equal? _%e148006148077%_ '#f) - (_%__kont157673157674%_ - _%tl148005148074%_) - (_%__kont157675157676%_ - _%tl148005148074%_ - _%hd148004148072%_))) - (_%__kont157675157676%_ - _%tl148005148074%_ - _%hd148004148072%_)))) - (let () (declare (not safe)) (_%g147998148040%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd147940147970%_ - _%hd147937147962%_) - (_%g147929147946%_ - _%g147930147949%_)))) - (_%g147929147946%_ - _%g147930147949%_)))) - (_%g147929147946%_ _%g147930147949%_)))) - (_%g147929147946%_ _%g147930147949%_))))) - (_%g147928148093%_ _%stx147924%_))))) + (gx#stx-e _%hd151693151761%_)))) + (if (equal? _%e151695151766%_ '#f) + (_%__kont161320161321%_ + _%tl151694151763%_) + (_%__kont161322161323%_ + _%tl151694151763%_ + _%hd151693151761%_))) + (_%__kont161322161323%_ + _%tl151694151763%_ + _%hd151693151761%_)))) + (let () (declare (not safe)) (_%g151687151729%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd151629151659%_ + _%hd151626151651%_) + (_%g151618151635%_ + _%g151619151638%_)))) + (_%g151618151635%_ + _%g151619151638%_)))) + (_%g151618151635%_ _%g151619151638%_)))) + (_%g151618151635%_ _%g151619151638%_))))) + (_%g151617151782%_ _%stx151613%_))))) (define gxc#generate-meta-define-syntax% - (lambda (_%self147820%_ _%stx147821%_) - (let* ((_%g147823147840%_ - (lambda (_%g147824147837%_) + (lambda (_%self151509%_ _%stx151510%_) + (let* ((_%g151512151529%_ + (lambda (_%g151513151526%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147824147837%_)))) - (_%g147822147920%_ - (lambda (_%g147824147843%_) + _%g151513151526%_)))) + (_%g151511151609%_ + (lambda (_%g151513151532%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147824147843%_)) - (let ((_%e147827147845%_ + (gx#stx-pair? _%g151513151532%_)) + (let ((_%e151516151534%_ (let () (declare (not safe)) - (gx#stx-e _%g147824147843%_)))) - (let ((_%hd147828147848%_ + (gx#stx-e _%g151513151532%_)))) + (let ((_%hd151517151537%_ (let () (declare (not safe)) - (##car _%e147827147845%_))) - (_%tl147829147850%_ + (##car _%e151516151534%_))) + (_%tl151518151539%_ (let () (declare (not safe)) - (##cdr _%e147827147845%_)))) + (##cdr _%e151516151534%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147829147850%_)) - (let ((_%e147830147853%_ + (gx#stx-pair? _%tl151518151539%_)) + (let ((_%e151519151542%_ (let () (declare (not safe)) - (gx#stx-e _%tl147829147850%_)))) - (let ((_%hd147831147856%_ + (gx#stx-e _%tl151518151539%_)))) + (let ((_%hd151520151545%_ (let () (declare (not safe)) - (##car _%e147830147853%_))) - (_%tl147832147858%_ + (##car _%e151519151542%_))) + (_%tl151521151547%_ (let () (declare (not safe)) - (##cdr _%e147830147853%_)))) + (##cdr _%e151519151542%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147832147858%_)) - (let ((_%e147833147861%_ + (gx#stx-pair? _%tl151521151547%_)) + (let ((_%e151522151550%_ (let () (declare (not safe)) - (gx#stx-e _%tl147832147858%_)))) - (let ((_%hd147834147864%_ + (gx#stx-e _%tl151521151547%_)))) + (let ((_%hd151523151553%_ (let () (declare (not safe)) - (##car _%e147833147861%_))) - (_%tl147835147866%_ + (##car _%e151522151550%_))) + (_%tl151524151555%_ (let () (declare (not safe)) - (##cdr _%e147833147861%_)))) + (##cdr _%e151522151550%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl147835147866%_)) - ((lambda (_%L147869%_ - _%L147870%_) - (let* ((_%eid147885%_ + _%tl151524151555%_)) + ((lambda (_%g151514151558%_ + _%g151515151559%_) + (let* ((_%eid151574%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L147870%_))) - (_%phi147887%_ - (let ((__tmp157938 + _%g151515151559%_))) + (_%phi151576%_ + (let ((__tmp161585 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp157938 '1))) - (_%block147889%_ + (##fx+ __tmp161585 '1))) + (_%block151578%_ (gxc#meta-state-begin-phi! (let () (declare (not safe)) - (slot-ref__0 _%self147820%_ 'state)) - _%phi147887%_))) + (slot-ref__0 _%self151509%_ 'state)) + _%phi151576%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%g147892147899%_ - (lambda (_%g147893147896%_) + (let* ((_%g151581151588%_ + (lambda (_%g151582151585%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14206,24 +14270,25 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147893147896%_)))) - (_%g147891147917%_ - (lambda (_%g147893147902%_) - ((lambda (_%L147904%_) + _%g151582151585%_)))) + (_%g151580151606%_ + (lambda (_%g151582151591%_) + ((lambda (_%g151583151593%_) (gxc#meta-state-add-phi! (let () (declare (not safe)) - (slot-ref__0 _%self147820%_ 'state)) - _%phi147887%_ + (slot-ref__0 _%self151509%_ 'state)) + _%phi151576%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#define-runtime)) - (cons _%L147904%_ (cons _%L147869%_ '()))))) - _%g147893147902%_)))) + (cons _%g151583151593%_ + (cons _%g151514151558%_ '()))))) + _%g151582151591%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g147891147917%_ - _%eid147885%_)) - (if _%block147889%_ + (_%g151580151606%_ + _%eid151574%_)) + (if _%block151578%_ (cons '%#begin (cons (cons '%#begin-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14232,7 +14297,7 @@ (cons 'load-module '())) (cons (cons '%#quote - (cons _%block147889%_ + (cons _%block151578%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) @@ -14240,129 +14305,129 @@ '())) (cons (cons '%#define-syntax (cons (gxc#generate-runtime-identifier - _%L147870%_) - (cons _%eid147885%_ '()))) + _%g151515151559%_) + (cons _%eid151574%_ '()))) '()))) (cons '%#define-syntax - (cons (gxc#generate-runtime-identifier _%L147870%_) - (cons _%eid147885%_ '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd147834147864%_ - _%hd147831147856%_) - (_%g147823147840%_ - _%g147824147843%_)))) - (_%g147823147840%_ _%g147824147843%_)))) - (_%g147823147840%_ _%g147824147843%_)))) - (_%g147823147840%_ _%g147824147843%_))))) - (_%g147822147920%_ _%stx147821%_)))) + (cons (gxc#generate-runtime-identifier _%g151515151559%_) + (cons _%eid151574%_ '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd151523151553%_ + _%hd151520151545%_) + (_%g151512151529%_ + _%g151513151532%_)))) + (_%g151512151529%_ _%g151513151532%_)))) + (_%g151512151529%_ _%g151513151532%_)))) + (_%g151512151529%_ _%g151513151532%_))))) + (_%g151511151609%_ _%stx151510%_)))) (define gxc#generate-meta-define-alias% - (lambda (_%self147752%_ _%stx147753%_) - (let* ((_%g147755147772%_ - (lambda (_%g147756147769%_) + (lambda (_%self151441%_ _%stx151442%_) + (let* ((_%g151444151461%_ + (lambda (_%g151445151458%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147756147769%_)))) - (_%g147754147817%_ - (lambda (_%g147756147775%_) + _%g151445151458%_)))) + (_%g151443151506%_ + (lambda (_%g151445151464%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147756147775%_)) - (let ((_%e147759147777%_ + (gx#stx-pair? _%g151445151464%_)) + (let ((_%e151448151466%_ (let () (declare (not safe)) - (gx#stx-e _%g147756147775%_)))) - (let ((_%hd147760147780%_ + (gx#stx-e _%g151445151464%_)))) + (let ((_%hd151449151469%_ (let () (declare (not safe)) - (##car _%e147759147777%_))) - (_%tl147761147782%_ + (##car _%e151448151466%_))) + (_%tl151450151471%_ (let () (declare (not safe)) - (##cdr _%e147759147777%_)))) + (##cdr _%e151448151466%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147761147782%_)) - (let ((_%e147762147785%_ + (gx#stx-pair? _%tl151450151471%_)) + (let ((_%e151451151474%_ (let () (declare (not safe)) - (gx#stx-e _%tl147761147782%_)))) - (let ((_%hd147763147788%_ + (gx#stx-e _%tl151450151471%_)))) + (let ((_%hd151452151477%_ (let () (declare (not safe)) - (##car _%e147762147785%_))) - (_%tl147764147790%_ + (##car _%e151451151474%_))) + (_%tl151453151479%_ (let () (declare (not safe)) - (##cdr _%e147762147785%_)))) + (##cdr _%e151451151474%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147764147790%_)) - (let ((_%e147765147793%_ + (gx#stx-pair? _%tl151453151479%_)) + (let ((_%e151454151482%_ (let () (declare (not safe)) - (gx#stx-e _%tl147764147790%_)))) - (let ((_%hd147766147796%_ + (gx#stx-e _%tl151453151479%_)))) + (let ((_%hd151455151485%_ (let () (declare (not safe)) - (##car _%e147765147793%_))) - (_%tl147767147798%_ + (##car _%e151454151482%_))) + (_%tl151456151487%_ (let () (declare (not safe)) - (##cdr _%e147765147793%_)))) + (##cdr _%e151454151482%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl147767147798%_)) - ((lambda (_%L147801%_ - _%L147802%_) + _%tl151456151487%_)) + ((lambda (_%g151446151490%_ + _%g151447151491%_) (cons '%#define-alias (cons (gxc#generate-runtime-identifier - _%L147802%_) + _%g151447151491%_) (cons (gxc#generate-runtime-identifier ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L147801%_) + _%g151446151490%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd147766147796%_ - _%hd147763147788%_) - (_%g147755147772%_ - _%g147756147775%_)))) - (_%g147755147772%_ _%g147756147775%_)))) - (_%g147755147772%_ _%g147756147775%_)))) - (_%g147755147772%_ _%g147756147775%_))))) - (_%g147754147817%_ _%stx147753%_)))) + _%hd151455151485%_ + _%hd151452151477%_) + (_%g151444151461%_ + _%g151445151464%_)))) + (_%g151444151461%_ _%g151445151464%_)))) + (_%g151444151461%_ _%g151445151464%_)))) + (_%g151444151461%_ _%g151445151464%_))))) + (_%g151443151506%_ _%stx151442%_)))) (define gxc#generate-meta-phi-define-values% - (lambda (_%self147749%_ _%stx147750%_) + (lambda (_%self151438%_ _%stx151439%_) (gxc#meta-state-add-phi! - (let () (declare (not safe)) (slot-ref__0 _%self147749%_ 'state)) + (let () (declare (not safe)) (slot-ref__0 _%self151438%_ 'state)) (let () (declare (not safe)) (gx#current-expander-phi)) - _%stx147750%_) - (gxc#generate-meta-define-values% _%self147749%_ _%stx147750%_))) + _%stx151439%_) + (gxc#generate-meta-define-values% _%self151438%_ _%stx151439%_))) (define gxc#generate-meta-phi-expr - (lambda (_%self147746%_ _%stx147747%_) + (lambda (_%self151435%_ _%stx151436%_) (gxc#meta-state-add-phi! - (let () (declare (not safe)) (slot-ref__0 _%self147746%_ 'state)) + (let () (declare (not safe)) (slot-ref__0 _%self151435%_ 'state)) (let () (declare (not safe)) (gx#current-expander-phi)) - _%stx147747%_) + _%stx151436%_) '#!void)) (define gxc#meta-state::t - (let ((__tmp157940 (list)) (__tmp157939 (cons (cons 'struct: '#t) '()))) + (let ((__tmp161587 (list)) (__tmp161586 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#meta-state::t 'meta-state - __tmp157940 + __tmp161587 '(src n open blocks) - __tmp157939 + __tmp161586 ':init!))) (define gxc#meta-state? (let () (declare (not safe)) (__make-class-predicate gxc#meta-state::t))) (define gxc#make-meta-state - (lambda _%$args147743%_ - (apply make-instance gxc#meta-state::t _%$args147743%_))) + (lambda _%$args151432%_ + (apply make-instance gxc#meta-state::t _%$args151432%_))) (define gxc#meta-state-src (let () (declare (not safe)) @@ -14428,76 +14493,76 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#meta-state::t 'blocks))) (define gxc#meta-state:::init! - (lambda (_%self147729%_ _%ctx147730%_) - (let ((_%self147733%_ _%self147729%_)) - (if (let ((__tmp157941 + (lambda (_%self151418%_ _%ctx151419%_) + (let ((_%self151422%_ _%self151418%_)) + (if (let ((__tmp161588 (let () (declare (not safe)) - (##structure-length _%self147733%_)))) + (##structure-length _%self151422%_)))) (declare (not safe)) - (##fx< '4 __tmp157941)) + (##fx< '4 __tmp161588)) (begin - (let ((__tmp157942 - (let ((__tmp157943 + (let ((__tmp161589 + (let ((__tmp161590 (##structure-ref - _%ctx147730%_ + _%ctx151419%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp157943)))) + (gxc#module-id->path-string __tmp161590)))) (declare (not safe)) (##unchecked-structure-set! - _%self147733%_ - __tmp157942 + _%self151422%_ + __tmp161589 '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self147733%_ '1 '2 '#f '#f)) - (let ((__tmp157944 + (##unchecked-structure-set! _%self151422%_ '1 '2 '#f '#f)) + (let ((__tmp161591 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self147733%_ - __tmp157944 + _%self151422%_ + __tmp161591 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self147733%_ '() '4 '#f '#f)) + (##unchecked-structure-set! _%self151422%_ '() '4 '#f '#f)) '#!void) - (let ((__tmp157945 + (let ((__tmp161592 (let () (declare (not safe)) - (##structure-length _%self147733%_)))) + (##structure-length _%self151422%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self147733%_ + _%self151422%_ '4 - __tmp157945)))))) + __tmp161592)))))) (let () (declare (not safe)) (__bind-method!__% gxc#meta-state::t ':init! gxc#meta-state:::init! '#f)) (define gxc#meta-state-block::t - (let ((__tmp157947 (list)) (__tmp157946 (cons (cons 'struct: '#t) '()))) + (let ((__tmp161594 (list)) (__tmp161593 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#meta-state-block::t 'meta-state-block - __tmp157947 + __tmp161594 '(ctx phi n code) - __tmp157946 + __tmp161593 '#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 _%$args147604%_ - (apply make-instance gxc#meta-state-block::t _%$args147604%_))) + (lambda _%$args151293%_ + (apply make-instance gxc#meta-state-block::t _%$args151293%_))) (define gxc#meta-state-block-ctx (let () (declare (not safe)) @@ -14563,100 +14628,100 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#meta-state-block::t 'code))) (define gxc#meta-state-begin-phi! - (lambda (_%state147563%_ _%phi147564%_) - (let* ((_%state147565147573%_ _%state147563%_) - (_%E147567147577%_ + (lambda (_%state151253%_ _%phi151254%_) + (let* ((_%state151255151263%_ _%state151253%_) + (_%E151257151266%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%state147565147573%_ + _%state151255151263%_ '((meta-state src n open)))) '#!void)) - (_%K147568147586%_ - (lambda (_%open147580%_ _%n147581%_ _%src147582%_) + (_%K151258151275%_ + (lambda (_%open151269%_ _%n151270%_ _%src151271%_) (if (let () (declare (not safe)) - (hash-get _%open147580%_ _%phi147564%_)) + (hash-get _%open151269%_ _%phi151254%_)) '#f - (let ((_%block-ref147584%_ - (let ((__tmp157948 (number->string _%n147581%_))) + (let ((_%block-ref151273%_ + (let ((__tmp161595 (number->string _%n151270%_))) (declare (not safe)) (##string-append - _%src147582%_ + _%src151271%_ '"~" - __tmp157948)))) + __tmp161595)))) (##structure-set! - _%state147563%_ - (let () (declare (not safe)) (##fx+ _%n147581%_ '1)) + _%state151253%_ + (let () (declare (not safe)) (##fx+ _%n151270%_ '1)) '2 gxc#meta-state::t '#f) - (let ((__tmp157949 - (let ((__tmp157950 + (let ((__tmp161596 + (let ((__tmp161597 (let () (declare (not safe)) (gx#current-expander-context)))) (declare (not safe)) (##structure gxc#meta-state-block::t - __tmp157950 - _%phi147564%_ - _%n147581%_ + __tmp161597 + _%phi151254%_ + _%n151270%_ '())))) (declare (not safe)) - (hash-put! _%open147580%_ _%phi147564%_ __tmp157949)) - _%block-ref147584%_))))) + (hash-put! _%open151269%_ _%phi151254%_ __tmp161596)) + _%block-ref151273%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%state147565147573%_ + _%state151255151263%_ 'gxc#meta-state::t)) - (let* ((_%e147569147589%_ + (let* ((_%e151259151278%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state147565147573%_ + _%state151255151263%_ '1 '#f '#f))) - (_%src147592%_ _%e147569147589%_) - (_%e147570147594%_ + (_%src151281%_ _%e151259151278%_) + (_%e151260151283%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state147565147573%_ + _%state151255151263%_ '2 '#f '#f))) - (_%n147597%_ _%e147570147594%_) - (_%e147571147599%_ + (_%n151286%_ _%e151260151283%_) + (_%e151261151288%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state147565147573%_ + _%state151255151263%_ '3 '#f '#f))) - (_%open147602%_ _%e147571147599%_)) - (_%K147568147586%_ _%open147602%_ _%n147597%_ _%src147592%_)) - (_%E147567147577%_))))) + (_%open151291%_ _%e151261151288%_)) + (_%K151258151275%_ _%open151291%_ _%n151286%_ _%src151281%_)) + (_%E151257151266%_))))) (define gxc#meta-state-add-phi! - (lambda (_%state147557%_ _%phi147558%_ _%stx147559%_) - (let ((_%block147561%_ - (let ((__tmp157951 + (lambda (_%state151247%_ _%phi151248%_ _%stx151249%_) + (let ((_%block151251%_ + (let ((__tmp161598 (##structure-ref - _%state147557%_ + _%state151247%_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-get __tmp157951 _%phi147558%_)))) + (hash-get __tmp161598 _%phi151248%_)))) (##structure-set! - _%block147561%_ - (cons _%stx147559%_ + _%block151251%_ + (cons _%stx151249%_ (##structure-ref - _%block147561%_ + _%block151251%_ '4 gxc#meta-state-block::t '#f)) @@ -14664,264 +14729,264 @@ gxc#meta-state-block::t '#f)))) (define gxc#meta-state-end-phi! - (lambda (_%state147551%_) + (lambda (_%state151241%_) (##structure-set! - _%state147551%_ - (let ((__tmp157954 - (lambda (_%_147553%_ _%block147554%_ _%r147555%_) - (cons _%block147554%_ _%r147555%_))) - (__tmp157953 - (##structure-ref _%state147551%_ '4 gxc#meta-state::t '#f)) - (__tmp157952 - (##structure-ref _%state147551%_ '3 gxc#meta-state::t '#f))) + _%state151241%_ + (let ((__tmp161601 + (lambda (_%_151243%_ _%block151244%_ _%r151245%_) + (cons _%block151244%_ _%r151245%_))) + (__tmp161600 + (##structure-ref _%state151241%_ '4 gxc#meta-state::t '#f)) + (__tmp161599 + (##structure-ref _%state151241%_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-fold __tmp157954 __tmp157953 __tmp157952)) + (hash-fold __tmp161601 __tmp161600 __tmp161599)) '4 gxc#meta-state::t '#f) (##structure-set! - _%state147551%_ + _%state151241%_ (let () (declare (not safe)) (make-hash-table-eq)) '3 gxc#meta-state::t '#f))) (define gxc#meta-state-end! - (lambda (_%state147503%_) - (gxc#meta-state-end-phi! _%state147503%_) - (let ((__tmp157956 - (lambda (_%block147505%_ _%r147506%_) - (let* ((_%block147507147516%_ _%block147505%_) - (_%E147509147520%_ + (lambda (_%state151194%_) + (gxc#meta-state-end-phi! _%state151194%_) + (let ((__tmp161603 + (lambda (_%block151196%_ _%r151197%_) + (let* ((_%block151198151207%_ _%block151196%_) + (_%E151200151210%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block147507147516%_ + _%block151198151207%_ '((meta-state-block ctx phi n code)))) '#!void)) - (_%K147510147528%_ - (lambda (_%code147523%_ - _%n147524%_ - _%phi147525%_ - _%ctx147526%_) - (if (null? _%code147523%_) - _%r147506%_ - (cons (cons _%ctx147526%_ - (cons _%phi147525%_ - (cons _%n147524%_ + (_%K151201151218%_ + (lambda (_%code151213%_ + _%n151214%_ + _%phi151215%_ + _%ctx151216%_) + (if (null? _%code151213%_) + _%r151197%_ + (cons (cons _%ctx151216%_ + (cons _%phi151215%_ + (cons _%n151214%_ (cons (cons '%#begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse _%code147523%_)) + (reverse _%code151213%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r147506%_))))) + _%r151197%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%block147507147516%_ + _%block151198151207%_ 'gxc#meta-state-block::t)) - (let* ((_%e147511147531%_ + (let* ((_%e151202151221%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block147507147516%_ + _%block151198151207%_ '1 '#f '#f))) - (_%ctx147534%_ _%e147511147531%_) - (_%e147512147536%_ + (_%ctx151224%_ _%e151202151221%_) + (_%e151203151226%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block147507147516%_ + _%block151198151207%_ '2 '#f '#f))) - (_%phi147539%_ _%e147512147536%_) - (_%e147513147541%_ + (_%phi151229%_ _%e151203151226%_) + (_%e151204151231%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block147507147516%_ + _%block151198151207%_ '3 '#f '#f))) - (_%n147544%_ _%e147513147541%_) - (_%e147514147546%_ + (_%n151234%_ _%e151204151231%_) + (_%e151205151236%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block147507147516%_ + _%block151198151207%_ '4 '#f '#f))) - (_%code147549%_ _%e147514147546%_)) - (_%K147510147528%_ - _%code147549%_ - _%n147544%_ - _%phi147539%_ - _%ctx147534%_)) - (_%E147509147520%_))))) - (__tmp157955 - (##structure-ref _%state147503%_ '4 gxc#meta-state::t '#f))) + (_%code151239%_ _%e151205151236%_)) + (_%K151201151218%_ + _%code151239%_ + _%n151234%_ + _%phi151229%_ + _%ctx151224%_)) + (_%E151200151210%_))))) + (__tmp161602 + (##structure-ref _%state151194%_ '4 gxc#meta-state::t '#f))) (declare (not safe)) - (__foldl1 __tmp157956 '() __tmp157955)))) + (__foldl1 __tmp161603 '() __tmp161602)))) (define gxc#collect-expression-refs - (lambda (_%stx147499%_) - (let ((_%ht147501%_ + (lambda (_%stx151190%_) + (let ((_%ht151192%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (gxc#apply-collect-expression-refs__% '#f _%ht147501%_ _%stx147499%_) - _%ht147501%_))) + (gxc#apply-collect-expression-refs__% '#f _%ht151192%_ _%stx151190%_) + _%ht151192%_))) (define gxc#collect-refs-ref% - (lambda (_%self147442%_ _%stx147443%_) - (let* ((_%g147445147458%_ - (lambda (_%g147446147455%_) + (lambda (_%self151133%_ _%stx151134%_) + (let* ((_%g151136151149%_ + (lambda (_%g151137151146%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147446147455%_)))) - (_%g147444147496%_ - (lambda (_%g147446147461%_) + _%g151137151146%_)))) + (_%g151135151187%_ + (lambda (_%g151137151152%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147446147461%_)) - (let ((_%e147448147463%_ + (gx#stx-pair? _%g151137151152%_)) + (let ((_%e151139151154%_ (let () (declare (not safe)) - (gx#stx-e _%g147446147461%_)))) - (let ((_%hd147449147466%_ + (gx#stx-e _%g151137151152%_)))) + (let ((_%hd151140151157%_ (let () (declare (not safe)) - (##car _%e147448147463%_))) - (_%tl147450147468%_ + (##car _%e151139151154%_))) + (_%tl151141151159%_ (let () (declare (not safe)) - (##cdr _%e147448147463%_)))) + (##cdr _%e151139151154%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147450147468%_)) - (let ((_%e147451147471%_ + (gx#stx-pair? _%tl151141151159%_)) + (let ((_%e151142151162%_ (let () (declare (not safe)) - (gx#stx-e _%tl147450147468%_)))) - (let ((_%hd147452147474%_ + (gx#stx-e _%tl151141151159%_)))) + (let ((_%hd151143151165%_ (let () (declare (not safe)) - (##car _%e147451147471%_))) - (_%tl147453147476%_ + (##car _%e151142151162%_))) + (_%tl151144151167%_ (let () (declare (not safe)) - (##cdr _%e147451147471%_)))) + (##cdr _%e151142151162%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl147453147476%_)) - ((lambda (_%L147479%_) - (let* ((_%bind147491%_ + (gx#stx-null? _%tl151144151167%_)) + ((lambda (_%g151138151170%_) + (let* ((_%bind151182%_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _%L147479%_))) - (_%eid147493%_ - (if _%bind147491%_ + _%g151138151170%_))) + (_%eid151184%_ + (if _%bind151182%_ (##structure-ref - _%bind147491%_ + _%bind151182%_ '1 gx#binding::t '#f) (let () (declare (not safe)) (gx#stx-e - _%L147479%_)))) - (__tmp157957 + _%g151138151170%_)))) + (__tmp161604 (let () (declare (not safe)) (slot-ref__0 - _%self147442%_ + _%self151133%_ 'table)))) (declare (not safe)) (hash-put! - __tmp157957 - _%eid147493%_ - _%eid147493%_))) - _%hd147452147474%_) - (_%g147445147458%_ _%g147446147461%_)))) - (_%g147445147458%_ _%g147446147461%_)))) - (_%g147445147458%_ _%g147446147461%_))))) - (_%g147444147496%_ _%stx147443%_)))) + __tmp161604 + _%eid151184%_ + _%eid151184%_))) + _%hd151143151165%_) + (_%g151136151149%_ _%g151137151152%_)))) + (_%g151136151149%_ _%g151137151152%_)))) + (_%g151136151149%_ _%g151137151152%_))))) + (_%g151135151187%_ _%stx151134%_)))) (define gxc#collect-refs-setq% - (lambda (_%self147369%_ _%stx147370%_) - (let* ((_%g147372147389%_ - (lambda (_%g147373147386%_) + (lambda (_%self151060%_ _%stx151061%_) + (let* ((_%g151063151080%_ + (lambda (_%g151064151077%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147373147386%_)))) - (_%g147371147439%_ - (lambda (_%g147373147392%_) + _%g151064151077%_)))) + (_%g151062151130%_ + (lambda (_%g151064151083%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147373147392%_)) - (let ((_%e147376147394%_ + (gx#stx-pair? _%g151064151083%_)) + (let ((_%e151067151085%_ (let () (declare (not safe)) - (gx#stx-e _%g147373147392%_)))) - (let ((_%hd147377147397%_ + (gx#stx-e _%g151064151083%_)))) + (let ((_%hd151068151088%_ (let () (declare (not safe)) - (##car _%e147376147394%_))) - (_%tl147378147399%_ + (##car _%e151067151085%_))) + (_%tl151069151090%_ (let () (declare (not safe)) - (##cdr _%e147376147394%_)))) + (##cdr _%e151067151085%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147378147399%_)) - (let ((_%e147379147402%_ + (gx#stx-pair? _%tl151069151090%_)) + (let ((_%e151070151093%_ (let () (declare (not safe)) - (gx#stx-e _%tl147378147399%_)))) - (let ((_%hd147380147405%_ + (gx#stx-e _%tl151069151090%_)))) + (let ((_%hd151071151096%_ (let () (declare (not safe)) - (##car _%e147379147402%_))) - (_%tl147381147407%_ + (##car _%e151070151093%_))) + (_%tl151072151098%_ (let () (declare (not safe)) - (##cdr _%e147379147402%_)))) + (##cdr _%e151070151093%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147381147407%_)) - (let ((_%e147382147410%_ + (gx#stx-pair? _%tl151072151098%_)) + (let ((_%e151073151101%_ (let () (declare (not safe)) - (gx#stx-e _%tl147381147407%_)))) - (let ((_%hd147383147413%_ + (gx#stx-e _%tl151072151098%_)))) + (let ((_%hd151074151104%_ (let () (declare (not safe)) - (##car _%e147382147410%_))) - (_%tl147384147415%_ + (##car _%e151073151101%_))) + (_%tl151075151106%_ (let () (declare (not safe)) - (##cdr _%e147382147410%_)))) + (##cdr _%e151073151101%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl147384147415%_)) - ((lambda (_%L147418%_ - _%L147419%_) - (let* ((_%bind147434%_ + _%tl151075151106%_)) + ((lambda (_%g151065151109%_ + _%g151066151110%_) + (let* ((_%bind151125%_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _%L147419%_))) - (_%eid147436%_ - (if _%bind147434%_ + _%g151066151110%_))) + (_%eid151127%_ + (if _%bind151125%_ (##structure-ref - _%bind147434%_ + _%bind151125%_ '1 gx#binding::t '#f) @@ -14929,382 +14994,386 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%L147419%_))))) + (gx#stx-e _%g151066151110%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp157958 + (let ((__tmp161605 (let () (declare (not safe)) (slot-ref__0 - _%self147369%_ + _%self151060%_ 'table)))) (declare (not safe)) (hash-put! - __tmp157958 - _%eid147436%_ - _%eid147436%_)) + __tmp161605 + _%eid151127%_ + _%eid151127%_)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self147369%_ - _%L147418%_)))) - _%hd147383147413%_ - _%hd147380147405%_) - (_%g147372147389%_ - _%g147373147392%_)))) - (_%g147372147389%_ _%g147373147392%_)))) - (_%g147372147389%_ _%g147373147392%_)))) - (_%g147372147389%_ _%g147373147392%_))))) - (_%g147371147439%_ _%stx147370%_)))) + _%self151060%_ + _%g151065151109%_)))) + _%hd151074151104%_ + _%hd151071151096%_) + (_%g151063151080%_ + _%g151064151083%_)))) + (_%g151063151080%_ _%g151064151083%_)))) + (_%g151063151080%_ _%g151064151083%_)))) + (_%g151063151080%_ _%g151064151083%_))))) + (_%g151062151130%_ _%stx151061%_)))) (define gxc#find-runtime-begin% - (lambda (_%self147326%_ _%stx147327%_) - (let* ((_%g147329147339%_ - (lambda (_%g147330147336%_) + (lambda (_%self151017%_ _%stx151018%_) + (let* ((_%g151020151030%_ + (lambda (_%g151021151027%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147330147336%_)))) - (_%g147328147366%_ - (lambda (_%g147330147342%_) + _%g151021151027%_)))) + (_%g151019151057%_ + (lambda (_%g151021151033%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147330147342%_)) - (let ((_%e147332147344%_ + (gx#stx-pair? _%g151021151033%_)) + (let ((_%e151023151035%_ (let () (declare (not safe)) - (gx#stx-e _%g147330147342%_)))) - (let ((_%hd147333147347%_ + (gx#stx-e _%g151021151033%_)))) + (let ((_%hd151024151038%_ (let () (declare (not safe)) - (##car _%e147332147344%_))) - (_%tl147334147349%_ + (##car _%e151023151035%_))) + (_%tl151025151040%_ (let () (declare (not safe)) - (##cdr _%e147332147344%_)))) - ((lambda (_%L147352%_) - (let ((__tmp157959 - (lambda (_%g147361147363%_) + (##cdr _%e151023151035%_)))) + ((lambda (_%g151022151043%_) + (let ((__tmp161606 + (lambda (_%g151052151054%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self147326%_ - _%g147361147363%_))))) + _%self151017%_ + _%g151052151054%_))))) (declare (not safe)) - (__ormap1 __tmp157959 _%L147352%_))) - _%tl147334147349%_))) - (_%g147329147339%_ _%g147330147342%_))))) - (_%g147328147366%_ _%stx147327%_)))) + (__ormap1 __tmp161606 _%g151022151043%_))) + _%tl151025151040%_))) + (_%g151020151030%_ _%g151021151033%_))))) + (_%g151019151057%_ _%stx151018%_)))) (define gxc#count-values-single% - (lambda (_%self147323%_ _%stx147324%_) '1)) + (lambda (_%self151014%_ _%stx151015%_) '1)) (define gxc#count-values-call% - (lambda (_%self147189%_ _%stx147190%_) - (let* ((_%__stx157701157702%_ _%stx147190%_) - (_%g147193147222%_ + (lambda (_%self150882%_ _%stx150883%_) + (let* ((_%__stx161348161349%_ _%stx150883%_) + (_%g150886150915%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx157701157702%_))))) - (let ((_%__kont157703157704%_ - (lambda (_%L147290%_ _%L147291%_) - (length (let ((__tmp157960 - (lambda (_%g147312147315%_ _%g147313147317%_) - (cons _%g147312147315%_ - _%g147313147317%_)))) + _%__stx161348161349%_))))) + (let ((_%__kont161350161351%_ + (lambda (_%g150888150981%_ _%g150889150982%_) + (length (let ((__tmp161607 + (lambda (_%g151003151006%_ _%g151004151008%_) + (cons _%g151003151006%_ + _%g151004151008%_)))) (declare (not safe)) - (__foldr1 __tmp157960 '() _%L147290%_))))) - (_%__kont157707157708%_ (lambda () '#f))) - (let ((_%__match157746157747%_ - (lambda (_%e147197147234%_ - _%hd147198147237%_ - _%tl147199147239%_ - _%e147200147242%_ - _%hd147201147245%_ - _%tl147202147247%_ - _%e147203147250%_ - _%hd147204147253%_ - _%tl147205147255%_ - _%e147206147258%_ - _%hd147207147261%_ - _%tl147208147263%_ - _%__splice157705157706%_ - _%target147209147266%_ - _%tl147211147268%_) - (letrec ((_%loop147212147271%_ - (lambda (_%hd147210147274%_ - _%rand147216147276%_) + (__foldr1 __tmp161607 '() _%g150888150981%_))))) + (_%__kont161354161355%_ (lambda () '#f))) + (let ((_%__match161393161394%_ + (lambda (_%e150890150927%_ + _%hd150891150930%_ + _%tl150892150932%_ + _%e150893150935%_ + _%hd150894150938%_ + _%tl150895150940%_ + _%e150896150943%_ + _%hd150897150946%_ + _%tl150898150948%_ + _%e150899150951%_ + _%hd150900150954%_ + _%tl150901150956%_ + _%__splice161352161353%_ + _%target150902150959%_ + _%tl150904150961%_) + (letrec ((_%loop150905150964%_ + (lambda (_%hd150903150967%_ + _%rand150909150969%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd147210147274%_)) - (let ((_%e147213147279%_ + (gx#stx-pair? _%hd150903150967%_)) + (let ((_%e150906150971%_ (let () (declare (not safe)) - (gx#stx-e _%hd147210147274%_)))) - (let ((_%lp-tl147215147284%_ + (gx#stx-e _%hd150903150967%_)))) + (let ((_%lp-tl150908150976%_ (let () (declare (not safe)) - (##cdr _%e147213147279%_))) - (_%lp-hd147214147282%_ + (##cdr _%e150906150971%_))) + (_%lp-hd150907150974%_ (let () (declare (not safe)) - (##car _%e147213147279%_)))) - (_%loop147212147271%_ - _%lp-tl147215147284%_ - (cons _%lp-hd147214147282%_ - _%rand147216147276%_)))) - (let ((_%rand147217147287%_ - (reverse _%rand147216147276%_))) - (let ((_%L147290%_ _%rand147217147287%_) - (_%L147291%_ _%hd147207147261%_)) + (##car _%e150906150971%_)))) + (_%loop150905150964%_ + _%lp-tl150908150976%_ + (cons _%lp-hd150907150974%_ + _%rand150909150969%_)))) + (let ((_%rand150910150979%_ + (reverse _%rand150909150969%_))) + (let ((_%g150888150981%_ + _%rand150910150979%_) + (_%g150889150982%_ + _%hd150900150954%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L147291%_ + _%g150889150982%_ 'values)) - (_%__kont157703157704%_ - _%L147290%_ - _%L147291%_) - (_%__kont157707157708%_)))))))) - (_%loop147212147271%_ _%target147209147266%_ '()))))) + (_%__kont161350161351%_ + _%g150888150981%_ + _%g150889150982%_) + (_%__kont161354161355%_)))))))) + (_%loop150905150964%_ _%target150902150959%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx157701157702%_)) - (let ((_%e147197147234%_ + (gx#stx-pair? _%__stx161348161349%_)) + (let ((_%e150890150927%_ (let () (declare (not safe)) - (gx#stx-e _%__stx157701157702%_)))) - (let ((_%tl147199147239%_ + (gx#stx-e _%__stx161348161349%_)))) + (let ((_%tl150892150932%_ (let () (declare (not safe)) - (##cdr _%e147197147234%_))) - (_%hd147198147237%_ + (##cdr _%e150890150927%_))) + (_%hd150891150930%_ (let () (declare (not safe)) - (##car _%e147197147234%_)))) + (##car _%e150890150927%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147199147239%_)) - (let ((_%e147200147242%_ + (gx#stx-pair? _%tl150892150932%_)) + (let ((_%e150893150935%_ (let () (declare (not safe)) - (gx#stx-e _%tl147199147239%_)))) - (let ((_%tl147202147247%_ + (gx#stx-e _%tl150892150932%_)))) + (let ((_%tl150895150940%_ (let () (declare (not safe)) - (##cdr _%e147200147242%_))) - (_%hd147201147245%_ + (##cdr _%e150893150935%_))) + (_%hd150894150938%_ (let () (declare (not safe)) - (##car _%e147200147242%_)))) + (##car _%e150893150935%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd147201147245%_)) - (let ((_%e147203147250%_ + (gx#stx-pair? _%hd150894150938%_)) + (let ((_%e150896150943%_ (let () (declare (not safe)) - (gx#stx-e _%hd147201147245%_)))) - (let ((_%tl147205147255%_ + (gx#stx-e _%hd150894150938%_)))) + (let ((_%tl150898150948%_ (let () (declare (not safe)) - (##cdr _%e147203147250%_))) - (_%hd147204147253%_ + (##cdr _%e150896150943%_))) + (_%hd150897150946%_ (let () (declare (not safe)) - (##car _%e147203147250%_)))) + (##car _%e150896150943%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd147204147253%_)) + _%hd150897150946%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd147204147253%_)) + _%hd150897150946%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl147205147255%_)) - (let ((_%e147206147258%_ + _%tl150898150948%_)) + (let ((_%e150899150951%_ (let () (declare (not safe)) (gx#stx-e - _%tl147205147255%_)))) - (let ((_%tl147208147263%_ + _%tl150898150948%_)))) + (let ((_%tl150901150956%_ (let () (declare (not safe)) - (##cdr _%e147206147258%_))) - (_%hd147207147261%_ + (##cdr _%e150899150951%_))) + (_%hd150900150954%_ (let () (declare (not safe)) - (##car _%e147206147258%_)))) + (##car _%e150899150951%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl147208147263%_)) + _%tl150901150956%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl147202147247%_)) - (let ((_%__splice157705157706%_ + (gx#stx-pair/null? _%tl150895150940%_)) + (let ((_%__splice161352161353%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl147202147247%_ + _%tl150895150940%_ '0)))) - (let ((_%tl147211147268%_ + (let ((_%tl150904150961%_ (let () (declare (not safe)) - (##vector-ref _%__splice157705157706%_ '1))) - (_%target147209147266%_ + (##vector-ref _%__splice161352161353%_ '1))) + (_%target150902150959%_ (let () (declare (not safe)) - (##vector-ref _%__splice157705157706%_ '0)))) + (##vector-ref _%__splice161352161353%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl147211147268%_)) - (_%__match157746157747%_ - _%e147197147234%_ - _%hd147198147237%_ - _%tl147199147239%_ - _%e147200147242%_ - _%hd147201147245%_ - _%tl147202147247%_ - _%e147203147250%_ - _%hd147204147253%_ - _%tl147205147255%_ - _%e147206147258%_ - _%hd147207147261%_ - _%tl147208147263%_ - _%__splice157705157706%_ - _%target147209147266%_ - _%tl147211147268%_) - (_%__kont157707157708%_)))) - (_%__kont157707157708%_)) - (_%__kont157707157708%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont157707157708%_)) - (_%__kont157707157708%_)) - (_%__kont157707157708%_)))) - (_%__kont157707157708%_)))) - (_%__kont157707157708%_)))) - (_%__kont157707157708%_))))))) + (gx#stx-null? _%tl150904150961%_)) + (_%__match161393161394%_ + _%e150890150927%_ + _%hd150891150930%_ + _%tl150892150932%_ + _%e150893150935%_ + _%hd150894150938%_ + _%tl150895150940%_ + _%e150896150943%_ + _%hd150897150946%_ + _%tl150898150948%_ + _%e150899150951%_ + _%hd150900150954%_ + _%tl150901150956%_ + _%__splice161352161353%_ + _%target150902150959%_ + _%tl150904150961%_) + (_%__kont161354161355%_)))) + (_%__kont161354161355%_)) + (_%__kont161354161355%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont161354161355%_)) + (_%__kont161354161355%_)) + (_%__kont161354161355%_)))) + (_%__kont161354161355%_)))) + (_%__kont161354161355%_)))) + (_%__kont161354161355%_))))))) (define gxc#count-values-if% - (lambda (_%self147092%_ _%stx147093%_) - (let* ((_%g147095147116%_ - (lambda (_%g147096147113%_) + (lambda (_%self150787%_ _%stx150788%_) + (let* ((_%g150790150811%_ + (lambda (_%g150791150808%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147096147113%_)))) - (_%g147094147186%_ - (lambda (_%g147096147119%_) + _%g150791150808%_)))) + (_%g150789150879%_ + (lambda (_%g150791150814%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147096147119%_)) - (let ((_%e147100147121%_ + (gx#stx-pair? _%g150791150814%_)) + (let ((_%e150795150816%_ (let () (declare (not safe)) - (gx#stx-e _%g147096147119%_)))) - (let ((_%hd147101147124%_ + (gx#stx-e _%g150791150814%_)))) + (let ((_%hd150796150819%_ (let () (declare (not safe)) - (##car _%e147100147121%_))) - (_%tl147102147126%_ + (##car _%e150795150816%_))) + (_%tl150797150821%_ (let () (declare (not safe)) - (##cdr _%e147100147121%_)))) + (##cdr _%e150795150816%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147102147126%_)) - (let ((_%e147103147129%_ + (gx#stx-pair? _%tl150797150821%_)) + (let ((_%e150798150824%_ (let () (declare (not safe)) - (gx#stx-e _%tl147102147126%_)))) - (let ((_%hd147104147132%_ + (gx#stx-e _%tl150797150821%_)))) + (let ((_%hd150799150827%_ (let () (declare (not safe)) - (##car _%e147103147129%_))) - (_%tl147105147134%_ + (##car _%e150798150824%_))) + (_%tl150800150829%_ (let () (declare (not safe)) - (##cdr _%e147103147129%_)))) + (##cdr _%e150798150824%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147105147134%_)) - (let ((_%e147106147137%_ + (gx#stx-pair? _%tl150800150829%_)) + (let ((_%e150801150832%_ (let () (declare (not safe)) - (gx#stx-e _%tl147105147134%_)))) - (let ((_%hd147107147140%_ + (gx#stx-e _%tl150800150829%_)))) + (let ((_%hd150802150835%_ (let () (declare (not safe)) - (##car _%e147106147137%_))) - (_%tl147108147142%_ + (##car _%e150801150832%_))) + (_%tl150803150837%_ (let () (declare (not safe)) - (##cdr _%e147106147137%_)))) + (##cdr _%e150801150832%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl147108147142%_)) - (let ((_%e147109147145%_ + _%tl150803150837%_)) + (let ((_%e150804150840%_ (let () (declare (not safe)) (gx#stx-e - _%tl147108147142%_)))) - (let ((_%hd147110147148%_ + _%tl150803150837%_)))) + (let ((_%hd150805150843%_ (let () (declare (not safe)) - (##car _%e147109147145%_))) - (_%tl147111147150%_ + (##car _%e150804150840%_))) + (_%tl150806150845%_ (let () (declare (not safe)) - (##cdr _%e147109147145%_)))) + (##cdr _%e150804150840%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl147111147150%_)) - ((lambda (_%L147153%_ - _%L147154%_ - _%L147155%_) - (let ((_%c1147172147174%_ + _%tl150806150845%_)) + ((lambda (_%g150792150848%_ + _%g150793150849%_ + _%g150794150850%_) + (let ((_%c1150867150869%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self147092%_ _%L147154%_)))) - (if _%c1147172147174%_ - (let* ((_%c1147177%_ _%c1147172147174%_) - (_%c2147178147180%_ + (gxc#compile-e__1 + _%self150787%_ + _%g150793150849%_)))) + (if _%c1150867150869%_ + (let* ((_%c1150871%_ _%c1150867150869%_) + (_%c2150872150874%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self147092%_ - _%L147153%_)))) - (if _%c2147178147180%_ - (let ((_%c2147183%_ _%c2147178147180%_)) - (if (fx= _%c1147177%_ _%c2147183%_) - _%c1147177%_ + _%self150787%_ + _%g150792150848%_)))) + (if _%c2150872150874%_ + (let ((_%c2150876%_ _%c2150872150874%_)) + (if (fx= _%c1150871%_ _%c2150876%_) + _%c1150871%_ '#f)) '#f)) '#f))) - _%hd147110147148%_ - _%hd147107147140%_ - _%hd147104147132%_) - (_%g147095147116%_ _%g147096147119%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g147095147116%_ - _%g147096147119%_)))) - (_%g147095147116%_ _%g147096147119%_)))) - (_%g147095147116%_ _%g147096147119%_)))) - (_%g147095147116%_ _%g147096147119%_))))) - (_%g147094147186%_ _%stx147093%_)))))) + _%hd150805150843%_ + _%hd150802150835%_ + _%hd150799150827%_) + (_%g150790150811%_ _%g150791150814%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g150790150811%_ + _%g150791150814%_)))) + (_%g150790150811%_ _%g150791150814%_)))) + (_%g150790150811%_ _%g150791150814%_)))) + (_%g150790150811%_ _%g150791150814%_))))) + (_%g150789150879%_ _%stx150788%_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile~1.scm b/src/bootstrap/gerbil/compiler/compile~1.scm index bd327f6e2a..6bb7e33457 100644 --- a/src/bootstrap/gerbil/compiler/compile~1.scm +++ b/src/bootstrap/gerbil/compiler/compile~1.scm @@ -1,671 +1,671 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g157962_| + (define |gxc[1]#_g161609_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g157964_| + (define |gxc[1]#_g161611_| (##structure gx#syntax-quote::t '::collect-bindings::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g157966_| + (define |gxc[1]#_g161613_| (##structure gx#syntax-quote::t 'make-::collect-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g157968_| + (define |gxc[1]#_g161615_| (##structure gx#syntax-quote::t '::collect-bindings? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g157971_| + (define |gxc[1]#_g161618_| (##structure gx#syntax-quote::t '::lift-modules::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g157973_| + (define |gxc[1]#_g161620_| (##structure gx#syntax-quote::t 'make-::lift-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g157975_| + (define |gxc[1]#_g161622_| (##structure gx#syntax-quote::t '::lift-modules? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g157977_| + (define |gxc[1]#_g161624_| (##structure gx#syntax-quote::t '::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g157979_| + (define |gxc[1]#_g161626_| (##structure gx#syntax-quote::t '::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g157981_| + (define |gxc[1]#_g161628_| (##structure gx#syntax-quote::t '&::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g157983_| + (define |gxc[1]#_g161630_| (##structure gx#syntax-quote::t '&::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g157985_| + (define |gxc[1]#_g161632_| (##structure gx#syntax-quote::t '::find-runtime-code::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g157987_| + (define |gxc[1]#_g161634_| (##structure gx#syntax-quote::t 'make-::find-runtime-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g157989_| + (define |gxc[1]#_g161636_| (##structure gx#syntax-quote::t '::find-runtime-code? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g157991_| + (define |gxc[1]#_g161638_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g157993_| + (define |gxc[1]#_g161640_| (##structure gx#syntax-quote::t '::find-lambda-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g157995_| + (define |gxc[1]#_g161642_| (##structure gx#syntax-quote::t 'make-::find-lambda-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g157997_| + (define |gxc[1]#_g161644_| (##structure gx#syntax-quote::t '::find-lambda-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g157999_| + (define |gxc[1]#_g161646_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158001_| + (define |gxc[1]#_g161648_| (##structure gx#syntax-quote::t '::count-values::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158003_| + (define |gxc[1]#_g161650_| (##structure gx#syntax-quote::t 'make-::count-values #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158005_| + (define |gxc[1]#_g161652_| (##structure gx#syntax-quote::t '::count-values? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158007_| + (define |gxc[1]#_g161654_| (##structure gx#syntax-quote::t '::generate-runtime-empty::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158009_| + (define |gxc[1]#_g161656_| (##structure gx#syntax-quote::t 'make-::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158011_| + (define |gxc[1]#_g161658_| (##structure gx#syntax-quote::t '::generate-runtime-empty? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158013_| + (define |gxc[1]#_g161660_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158015_| + (define |gxc[1]#_g161662_| (##structure gx#syntax-quote::t '::generate-loader::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158017_| + (define |gxc[1]#_g161664_| (##structure gx#syntax-quote::t 'make-::generate-loader #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158019_| + (define |gxc[1]#_g161666_| (##structure gx#syntax-quote::t '::generate-loader? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158022_| + (define |gxc[1]#_g161669_| (##structure gx#syntax-quote::t '::generate-runtime::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158024_| + (define |gxc[1]#_g161671_| (##structure gx#syntax-quote::t 'make-::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158026_| + (define |gxc[1]#_g161673_| (##structure gx#syntax-quote::t '::generate-runtime? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158028_| + (define |gxc[1]#_g161675_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158030_| + (define |gxc[1]#_g161677_| (##structure gx#syntax-quote::t '::generate-runtime-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158032_| + (define |gxc[1]#_g161679_| (##structure gx#syntax-quote::t 'make-::generate-runtime-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158034_| + (define |gxc[1]#_g161681_| (##structure gx#syntax-quote::t '::generate-runtime-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158036_| + (define |gxc[1]#_g161683_| (##structure gx#syntax-quote::t '::collect-expression-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158038_| + (define |gxc[1]#_g161685_| (##structure gx#syntax-quote::t 'make-::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158040_| + (define |gxc[1]#_g161687_| (##structure gx#syntax-quote::t '::collect-expression-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158042_| + (define |gxc[1]#_g161689_| (##structure gx#syntax-quote::t '::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158044_| + (define |gxc[1]#_g161691_| (##structure gx#syntax-quote::t '::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158046_| + (define |gxc[1]#_g161693_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158048_| + (define |gxc[1]#_g161695_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158050_| + (define |gxc[1]#_g161697_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158052_| + (define |gxc[1]#_g161699_| (##structure gx#syntax-quote::t '::generate-meta::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158054_| + (define |gxc[1]#_g161701_| (##structure gx#syntax-quote::t 'make-::generate-meta #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158056_| + (define |gxc[1]#_g161703_| (##structure gx#syntax-quote::t '::generate-meta? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158058_| + (define |gxc[1]#_g161705_| (##structure gx#syntax-quote::t '::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158060_| + (define |gxc[1]#_g161707_| (##structure gx#syntax-quote::t '::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158062_| + (define |gxc[1]#_g161709_| (##structure gx#syntax-quote::t '&::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158064_| + (define |gxc[1]#_g161711_| (##structure gx#syntax-quote::t '&::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158066_| + (define |gxc[1]#_g161713_| (##structure gx#syntax-quote::t '::generate-meta-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158068_| + (define |gxc[1]#_g161715_| (##structure gx#syntax-quote::t 'make-::generate-meta-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158070_| + (define |gxc[1]#_g161717_| (##structure gx#syntax-quote::t '::generate-meta-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158072_| + (define |gxc[1]#_g161719_| (##structure gx#syntax-quote::t '::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158074_| + (define |gxc[1]#_g161721_| (##structure gx#syntax-quote::t '::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158076_| + (define |gxc[1]#_g161723_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158078_| + (define |gxc[1]#_g161725_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158083_| + (define |gxc[1]#_g161730_| (##structure gx#syntax-quote::t 'meta-state::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158085_| + (define |gxc[1]#_g161732_| (##structure gx#syntax-quote::t 'make-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158087_| + (define |gxc[1]#_g161734_| (##structure gx#syntax-quote::t 'meta-state? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158089_| + (define |gxc[1]#_g161736_| (##structure gx#syntax-quote::t 'meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158090_| + (define |gxc[1]#_g161737_| (##structure gx#syntax-quote::t 'meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158091_| + (define |gxc[1]#_g161738_| (##structure gx#syntax-quote::t 'meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158092_| + (define |gxc[1]#_g161739_| (##structure gx#syntax-quote::t 'meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158094_| + (define |gxc[1]#_g161741_| (##structure gx#syntax-quote::t 'meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158095_| + (define |gxc[1]#_g161742_| (##structure gx#syntax-quote::t 'meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158096_| + (define |gxc[1]#_g161743_| (##structure gx#syntax-quote::t 'meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158097_| + (define |gxc[1]#_g161744_| (##structure gx#syntax-quote::t 'meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158099_| + (define |gxc[1]#_g161746_| (##structure gx#syntax-quote::t '&meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158100_| + (define |gxc[1]#_g161747_| (##structure gx#syntax-quote::t '&meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158101_| + (define |gxc[1]#_g161748_| (##structure gx#syntax-quote::t '&meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158102_| + (define |gxc[1]#_g161749_| (##structure gx#syntax-quote::t '&meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158104_| + (define |gxc[1]#_g161751_| (##structure gx#syntax-quote::t '&meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158105_| + (define |gxc[1]#_g161752_| (##structure gx#syntax-quote::t '&meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158106_| + (define |gxc[1]#_g161753_| (##structure gx#syntax-quote::t '&meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158107_| + (define |gxc[1]#_g161754_| (##structure gx#syntax-quote::t '&meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158109_| + (define |gxc[1]#_g161756_| (##structure gx#syntax-quote::t 'meta-state-block::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158111_| + (define |gxc[1]#_g161758_| (##structure gx#syntax-quote::t 'make-meta-state-block #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158113_| + (define |gxc[1]#_g161760_| (##structure gx#syntax-quote::t 'meta-state-block? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158115_| + (define |gxc[1]#_g161762_| (##structure gx#syntax-quote::t 'meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158116_| + (define |gxc[1]#_g161763_| (##structure gx#syntax-quote::t 'meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158117_| + (define |gxc[1]#_g161764_| (##structure gx#syntax-quote::t 'meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158118_| + (define |gxc[1]#_g161765_| (##structure gx#syntax-quote::t 'meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158120_| + (define |gxc[1]#_g161767_| (##structure gx#syntax-quote::t 'meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158121_| + (define |gxc[1]#_g161768_| (##structure gx#syntax-quote::t 'meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158122_| + (define |gxc[1]#_g161769_| (##structure gx#syntax-quote::t 'meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158123_| + (define |gxc[1]#_g161770_| (##structure gx#syntax-quote::t 'meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158125_| + (define |gxc[1]#_g161772_| (##structure gx#syntax-quote::t '&meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158126_| + (define |gxc[1]#_g161773_| (##structure gx#syntax-quote::t '&meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158127_| + (define |gxc[1]#_g161774_| (##structure gx#syntax-quote::t '&meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158128_| + (define |gxc[1]#_g161775_| (##structure gx#syntax-quote::t '&meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158130_| + (define |gxc[1]#_g161777_| (##structure gx#syntax-quote::t '&meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158131_| + (define |gxc[1]#_g161778_| (##structure gx#syntax-quote::t '&meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158132_| + (define |gxc[1]#_g161779_| (##structure gx#syntax-quote::t '&meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158133_| + (define |gxc[1]#_g161780_| (##structure gx#syntax-quote::t '&meta-state-block-code-set! @@ -674,7 +674,7 @@ '())) (begin (define |gxc[:0:]#::collect-bindings| - (let ((__obj157748 + (let ((__obj161395 (let () (declare (not safe)) (##structure @@ -703,7 +703,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157748 + __obj161395 'gxc#::collect-bindings::t '1 '#f @@ -711,65 +711,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157748 + __obj161395 '::collect-bindings '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157748 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj161395 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157748 '() '6 '#f '#f)) - (let ((__tmp157961 (cons |gxc[1]#_g157962_| '()))) + (##unchecked-structure-set! __obj161395 '() '7 '#f '#f)) + (let ((__tmp161608 (cons |gxc[1]#_g161609_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157748 __tmp157961 '3 '#f '#f)) + (##unchecked-structure-set! __obj161395 __tmp161608 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157748 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj161395 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157748 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj161395 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157748 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj161395 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157748 '#f '11 '#f '#f)) - (let ((__tmp157963 |gxc[1]#_g157964_|)) + (##unchecked-structure-set! __obj161395 '#f '12 '#f '#f)) + (let ((__tmp161610 |gxc[1]#_g161611_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157748 __tmp157963 '12 '#f '#f)) - (let ((__tmp157965 |gxc[1]#_g157966_|)) + (##unchecked-structure-set! __obj161395 __tmp161610 '3 '#f '#f)) + (let ((__tmp161612 |gxc[1]#_g161613_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157748 __tmp157965 '13 '#f '#f)) - (let ((__tmp157967 |gxc[1]#_g157968_|)) + (##unchecked-structure-set! __obj161395 __tmp161612 '13 '#f '#f)) + (let ((__tmp161614 |gxc[1]#_g161615_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157748 __tmp157967 '14 '#f '#f)) + (##unchecked-structure-set! __obj161395 __tmp161614 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157748 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj161395 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157748 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj161395 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157748 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj161395 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157748 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj161395 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157748 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj161395 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157748 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj161395 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157748 '() '20 '#f '#f)) - __obj157748)) + (##unchecked-structure-set! __obj161395 '() '20 '#f '#f)) + __obj161395)) (define |gxc[:0:]#::lift-modules| - (let ((__obj157750 + (let ((__obj161397 (let () (declare (not safe)) (##structure @@ -798,68 +798,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157750 + __obj161397 'gxc#::lift-modules::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157750 '::lift-modules '2 '#f '#f)) + (##unchecked-structure-set! __obj161397 '::lift-modules '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157750 '(modules) '4 '#f '#f)) + (##unchecked-structure-set! __obj161397 '(modules) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157750 '(modules) '6 '#f '#f)) - (let ((__tmp157969 (cons |gxc[1]#_g157962_| '()))) + (##unchecked-structure-set! __obj161397 '(modules) '7 '#f '#f)) + (let ((__tmp161616 (cons |gxc[1]#_g161609_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157750 __tmp157969 '3 '#f '#f)) + (##unchecked-structure-set! __obj161397 __tmp161616 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157750 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj161397 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157750 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj161397 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157750 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj161397 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157750 '#f '11 '#f '#f)) - (let ((__tmp157970 |gxc[1]#_g157971_|)) + (##unchecked-structure-set! __obj161397 '#f '12 '#f '#f)) + (let ((__tmp161617 |gxc[1]#_g161618_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157750 __tmp157970 '12 '#f '#f)) - (let ((__tmp157972 |gxc[1]#_g157973_|)) + (##unchecked-structure-set! __obj161397 __tmp161617 '3 '#f '#f)) + (let ((__tmp161619 |gxc[1]#_g161620_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157750 __tmp157972 '13 '#f '#f)) - (let ((__tmp157974 |gxc[1]#_g157975_|)) + (##unchecked-structure-set! __obj161397 __tmp161619 '13 '#f '#f)) + (let ((__tmp161621 |gxc[1]#_g161622_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157750 __tmp157974 '14 '#f '#f)) - (let ((__tmp157976 (cons (cons 'modules |gxc[1]#_g157977_|) '()))) + (##unchecked-structure-set! __obj161397 __tmp161621 '14 '#f '#f)) + (let ((__tmp161623 (cons (cons 'modules |gxc[1]#_g161624_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157750 __tmp157976 '15 '#f '#f)) - (let ((__tmp157978 (cons (cons 'modules |gxc[1]#_g157979_|) '()))) + (##unchecked-structure-set! __obj161397 __tmp161623 '15 '#f '#f)) + (let ((__tmp161625 (cons (cons 'modules |gxc[1]#_g161626_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157750 __tmp157978 '16 '#f '#f)) - (let ((__tmp157980 (cons (cons 'modules |gxc[1]#_g157981_|) '()))) + (##unchecked-structure-set! __obj161397 __tmp161625 '16 '#f '#f)) + (let ((__tmp161627 (cons (cons 'modules |gxc[1]#_g161628_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157750 __tmp157980 '17 '#f '#f)) - (let ((__tmp157982 (cons (cons 'modules |gxc[1]#_g157983_|) '()))) + (##unchecked-structure-set! __obj161397 __tmp161627 '17 '#f '#f)) + (let ((__tmp161629 (cons (cons 'modules |gxc[1]#_g161630_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157750 __tmp157982 '18 '#f '#f)) + (##unchecked-structure-set! __obj161397 __tmp161629 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157750 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj161397 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157750 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj161397 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157750 '() '20 '#f '#f)) - __obj157750)) + (##unchecked-structure-set! __obj161397 '() '20 '#f '#f)) + __obj161397)) (define |gxc[:0:]#::find-runtime-code| - (let ((__obj157752 + (let ((__obj161399 (let () (declare (not safe)) (##structure @@ -888,7 +888,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157752 + __obj161399 'gxc#::find-runtime-code::t '1 '#f @@ -896,65 +896,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157752 + __obj161399 '::find-runtime-code '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157752 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj161399 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157752 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj161399 '() '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157752 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj161399 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157752 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj161399 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157752 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj161399 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157752 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj161399 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157752 '#f '11 '#f '#f)) - (let ((__tmp157984 |gxc[1]#_g157985_|)) + (##unchecked-structure-set! __obj161399 '#f '12 '#f '#f)) + (let ((__tmp161631 |gxc[1]#_g161632_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157752 __tmp157984 '12 '#f '#f)) - (let ((__tmp157986 |gxc[1]#_g157987_|)) + (##unchecked-structure-set! __obj161399 __tmp161631 '3 '#f '#f)) + (let ((__tmp161633 |gxc[1]#_g161634_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157752 __tmp157986 '13 '#f '#f)) - (let ((__tmp157988 |gxc[1]#_g157989_|)) + (##unchecked-structure-set! __obj161399 __tmp161633 '13 '#f '#f)) + (let ((__tmp161635 |gxc[1]#_g161636_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157752 __tmp157988 '14 '#f '#f)) + (##unchecked-structure-set! __obj161399 __tmp161635 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157752 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj161399 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157752 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj161399 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157752 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj161399 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157752 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj161399 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157752 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj161399 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157752 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj161399 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157752 '() '20 '#f '#f)) - __obj157752)) + (##unchecked-structure-set! __obj161399 '() '20 '#f '#f)) + __obj161399)) (define |gxc[:0:]#::find-lambda-expression| - (let ((__obj157754 + (let ((__obj161401 (let () (declare (not safe)) (##structure @@ -983,7 +983,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157754 + __obj161401 'gxc#::find-lambda-expression::t '1 '#f @@ -991,65 +991,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157754 + __obj161401 '::find-lambda-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157754 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj161401 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157754 '() '6 '#f '#f)) - (let ((__tmp157990 (cons |gxc[1]#_g157991_| '()))) + (##unchecked-structure-set! __obj161401 '() '7 '#f '#f)) + (let ((__tmp161637 (cons |gxc[1]#_g161638_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157754 __tmp157990 '3 '#f '#f)) + (##unchecked-structure-set! __obj161401 __tmp161637 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157754 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj161401 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157754 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj161401 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157754 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj161401 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157754 '#f '11 '#f '#f)) - (let ((__tmp157992 |gxc[1]#_g157993_|)) + (##unchecked-structure-set! __obj161401 '#f '12 '#f '#f)) + (let ((__tmp161639 |gxc[1]#_g161640_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157754 __tmp157992 '12 '#f '#f)) - (let ((__tmp157994 |gxc[1]#_g157995_|)) + (##unchecked-structure-set! __obj161401 __tmp161639 '3 '#f '#f)) + (let ((__tmp161641 |gxc[1]#_g161642_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157754 __tmp157994 '13 '#f '#f)) - (let ((__tmp157996 |gxc[1]#_g157997_|)) + (##unchecked-structure-set! __obj161401 __tmp161641 '13 '#f '#f)) + (let ((__tmp161643 |gxc[1]#_g161644_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157754 __tmp157996 '14 '#f '#f)) + (##unchecked-structure-set! __obj161401 __tmp161643 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157754 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj161401 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157754 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj161401 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157754 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj161401 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157754 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj161401 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157754 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj161401 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157754 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj161401 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157754 '() '20 '#f '#f)) - __obj157754)) + (##unchecked-structure-set! __obj161401 '() '20 '#f '#f)) + __obj161401)) (define |gxc[:0:]#::count-values| - (let ((__obj157756 + (let ((__obj161403 (let () (declare (not safe)) (##structure @@ -1078,68 +1078,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157756 + __obj161403 'gxc#::count-values::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157756 '::count-values '2 '#f '#f)) + (##unchecked-structure-set! __obj161403 '::count-values '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157756 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj161403 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157756 '() '6 '#f '#f)) - (let ((__tmp157998 (cons |gxc[1]#_g157999_| '()))) + (##unchecked-structure-set! __obj161403 '() '7 '#f '#f)) + (let ((__tmp161645 (cons |gxc[1]#_g161646_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157756 __tmp157998 '3 '#f '#f)) + (##unchecked-structure-set! __obj161403 __tmp161645 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157756 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj161403 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157756 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj161403 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157756 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj161403 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157756 '#f '11 '#f '#f)) - (let ((__tmp158000 |gxc[1]#_g158001_|)) + (##unchecked-structure-set! __obj161403 '#f '12 '#f '#f)) + (let ((__tmp161647 |gxc[1]#_g161648_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157756 __tmp158000 '12 '#f '#f)) - (let ((__tmp158002 |gxc[1]#_g158003_|)) + (##unchecked-structure-set! __obj161403 __tmp161647 '3 '#f '#f)) + (let ((__tmp161649 |gxc[1]#_g161650_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157756 __tmp158002 '13 '#f '#f)) - (let ((__tmp158004 |gxc[1]#_g158005_|)) + (##unchecked-structure-set! __obj161403 __tmp161649 '13 '#f '#f)) + (let ((__tmp161651 |gxc[1]#_g161652_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157756 __tmp158004 '14 '#f '#f)) + (##unchecked-structure-set! __obj161403 __tmp161651 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157756 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj161403 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157756 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj161403 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157756 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj161403 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157756 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj161403 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157756 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj161403 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157756 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj161403 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157756 '() '20 '#f '#f)) - __obj157756)) + (##unchecked-structure-set! __obj161403 '() '20 '#f '#f)) + __obj161403)) (define |gxc[:0:]#::generate-runtime-empty| - (let ((__obj157758 + (let ((__obj161405 (let () (declare (not safe)) (##structure @@ -1168,7 +1168,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157758 + __obj161405 'gxc#::generate-runtime-empty::t '1 '#f @@ -1176,65 +1176,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157758 + __obj161405 '::generate-runtime-empty '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157758 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj161405 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157758 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj161405 '() '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157758 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj161405 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157758 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj161405 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157758 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj161405 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157758 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj161405 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157758 '#f '11 '#f '#f)) - (let ((__tmp158006 |gxc[1]#_g158007_|)) + (##unchecked-structure-set! __obj161405 '#f '12 '#f '#f)) + (let ((__tmp161653 |gxc[1]#_g161654_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157758 __tmp158006 '12 '#f '#f)) - (let ((__tmp158008 |gxc[1]#_g158009_|)) + (##unchecked-structure-set! __obj161405 __tmp161653 '3 '#f '#f)) + (let ((__tmp161655 |gxc[1]#_g161656_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157758 __tmp158008 '13 '#f '#f)) - (let ((__tmp158010 |gxc[1]#_g158011_|)) + (##unchecked-structure-set! __obj161405 __tmp161655 '13 '#f '#f)) + (let ((__tmp161657 |gxc[1]#_g161658_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157758 __tmp158010 '14 '#f '#f)) + (##unchecked-structure-set! __obj161405 __tmp161657 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157758 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj161405 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157758 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj161405 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157758 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj161405 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157758 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj161405 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157758 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj161405 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157758 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj161405 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157758 '() '20 '#f '#f)) - __obj157758)) + (##unchecked-structure-set! __obj161405 '() '20 '#f '#f)) + __obj161405)) (define |gxc[:0:]#::generate-loader| - (let ((__obj157759 + (let ((__obj161406 (let () (declare (not safe)) (##structure @@ -1263,7 +1263,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157759 + __obj161406 'gxc#::generate-loader::t '1 '#f @@ -1271,65 +1271,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157759 + __obj161406 '::generate-loader '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157759 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj161406 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157759 '() '6 '#f '#f)) - (let ((__tmp158012 (cons |gxc[1]#_g158013_| '()))) + (##unchecked-structure-set! __obj161406 '() '7 '#f '#f)) + (let ((__tmp161659 (cons |gxc[1]#_g161660_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157759 __tmp158012 '3 '#f '#f)) + (##unchecked-structure-set! __obj161406 __tmp161659 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157759 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj161406 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157759 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj161406 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157759 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj161406 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157759 '#f '11 '#f '#f)) - (let ((__tmp158014 |gxc[1]#_g158015_|)) + (##unchecked-structure-set! __obj161406 '#f '12 '#f '#f)) + (let ((__tmp161661 |gxc[1]#_g161662_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157759 __tmp158014 '12 '#f '#f)) - (let ((__tmp158016 |gxc[1]#_g158017_|)) + (##unchecked-structure-set! __obj161406 __tmp161661 '3 '#f '#f)) + (let ((__tmp161663 |gxc[1]#_g161664_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157759 __tmp158016 '13 '#f '#f)) - (let ((__tmp158018 |gxc[1]#_g158019_|)) + (##unchecked-structure-set! __obj161406 __tmp161663 '13 '#f '#f)) + (let ((__tmp161665 |gxc[1]#_g161666_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157759 __tmp158018 '14 '#f '#f)) + (##unchecked-structure-set! __obj161406 __tmp161665 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157759 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj161406 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157759 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj161406 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157759 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj161406 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157759 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj161406 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157759 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj161406 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157759 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj161406 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157759 '() '20 '#f '#f)) - __obj157759)) + (##unchecked-structure-set! __obj161406 '() '20 '#f '#f)) + __obj161406)) (define |gxc[:0:]#::generate-runtime| - (let ((__obj157761 + (let ((__obj161408 (let () (declare (not safe)) (##structure @@ -1358,7 +1358,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157761 + __obj161408 'gxc#::generate-runtime::t '1 '#f @@ -1366,65 +1366,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157761 + __obj161408 '::generate-runtime '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157761 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj161408 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157761 '() '6 '#f '#f)) - (let ((__tmp158020 (cons |gxc[1]#_g158013_| '()))) + (##unchecked-structure-set! __obj161408 '() '7 '#f '#f)) + (let ((__tmp161667 (cons |gxc[1]#_g161660_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157761 __tmp158020 '3 '#f '#f)) + (##unchecked-structure-set! __obj161408 __tmp161667 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157761 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj161408 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157761 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj161408 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157761 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj161408 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157761 '#f '11 '#f '#f)) - (let ((__tmp158021 |gxc[1]#_g158022_|)) + (##unchecked-structure-set! __obj161408 '#f '12 '#f '#f)) + (let ((__tmp161668 |gxc[1]#_g161669_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157761 __tmp158021 '12 '#f '#f)) - (let ((__tmp158023 |gxc[1]#_g158024_|)) + (##unchecked-structure-set! __obj161408 __tmp161668 '3 '#f '#f)) + (let ((__tmp161670 |gxc[1]#_g161671_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157761 __tmp158023 '13 '#f '#f)) - (let ((__tmp158025 |gxc[1]#_g158026_|)) + (##unchecked-structure-set! __obj161408 __tmp161670 '13 '#f '#f)) + (let ((__tmp161672 |gxc[1]#_g161673_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157761 __tmp158025 '14 '#f '#f)) + (##unchecked-structure-set! __obj161408 __tmp161672 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157761 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj161408 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157761 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj161408 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157761 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj161408 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157761 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj161408 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157761 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj161408 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157761 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj161408 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157761 '() '20 '#f '#f)) - __obj157761)) + (##unchecked-structure-set! __obj161408 '() '20 '#f '#f)) + __obj161408)) (define |gxc[:0:]#::generate-runtime-phi| - (let ((__obj157763 + (let ((__obj161410 (let () (declare (not safe)) (##structure @@ -1453,7 +1453,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157763 + __obj161410 'gxc#::generate-runtime-phi::t '1 '#f @@ -1461,65 +1461,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157763 + __obj161410 '::generate-runtime-phi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157763 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj161410 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157763 '() '6 '#f '#f)) - (let ((__tmp158027 (cons |gxc[1]#_g158028_| '()))) + (##unchecked-structure-set! __obj161410 '() '7 '#f '#f)) + (let ((__tmp161674 (cons |gxc[1]#_g161675_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157763 __tmp158027 '3 '#f '#f)) + (##unchecked-structure-set! __obj161410 __tmp161674 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157763 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj161410 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157763 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj161410 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157763 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj161410 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157763 '#f '11 '#f '#f)) - (let ((__tmp158029 |gxc[1]#_g158030_|)) + (##unchecked-structure-set! __obj161410 '#f '12 '#f '#f)) + (let ((__tmp161676 |gxc[1]#_g161677_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157763 __tmp158029 '12 '#f '#f)) - (let ((__tmp158031 |gxc[1]#_g158032_|)) + (##unchecked-structure-set! __obj161410 __tmp161676 '3 '#f '#f)) + (let ((__tmp161678 |gxc[1]#_g161679_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157763 __tmp158031 '13 '#f '#f)) - (let ((__tmp158033 |gxc[1]#_g158034_|)) + (##unchecked-structure-set! __obj161410 __tmp161678 '13 '#f '#f)) + (let ((__tmp161680 |gxc[1]#_g161681_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157763 __tmp158033 '14 '#f '#f)) + (##unchecked-structure-set! __obj161410 __tmp161680 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157763 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj161410 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157763 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj161410 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157763 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj161410 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157763 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj161410 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157763 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj161410 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157763 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj161410 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157763 '() '20 '#f '#f)) - __obj157763)) + (##unchecked-structure-set! __obj161410 '() '20 '#f '#f)) + __obj161410)) (define |gxc[:0:]#::collect-expression-refs| - (let ((__obj157765 + (let ((__obj161412 (let () (declare (not safe)) (##structure @@ -1548,7 +1548,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157765 + __obj161412 'gxc#::collect-expression-refs::t '1 '#f @@ -1556,65 +1556,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157765 + __obj161412 '::collect-expression-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157765 '(table) '4 '#f '#f)) + (##unchecked-structure-set! __obj161412 '(table) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157765 '(table) '6 '#f '#f)) + (##unchecked-structure-set! __obj161412 '(table) '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157765 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj161412 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157765 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj161412 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157765 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj161412 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157765 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj161412 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157765 '#f '11 '#f '#f)) - (let ((__tmp158035 |gxc[1]#_g158036_|)) + (##unchecked-structure-set! __obj161412 '#f '12 '#f '#f)) + (let ((__tmp161682 |gxc[1]#_g161683_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157765 __tmp158035 '12 '#f '#f)) - (let ((__tmp158037 |gxc[1]#_g158038_|)) + (##unchecked-structure-set! __obj161412 __tmp161682 '3 '#f '#f)) + (let ((__tmp161684 |gxc[1]#_g161685_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157765 __tmp158037 '13 '#f '#f)) - (let ((__tmp158039 |gxc[1]#_g158040_|)) + (##unchecked-structure-set! __obj161412 __tmp161684 '13 '#f '#f)) + (let ((__tmp161686 |gxc[1]#_g161687_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157765 __tmp158039 '14 '#f '#f)) - (let ((__tmp158041 (cons (cons 'table |gxc[1]#_g158042_|) '()))) + (##unchecked-structure-set! __obj161412 __tmp161686 '14 '#f '#f)) + (let ((__tmp161688 (cons (cons 'table |gxc[1]#_g161689_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157765 __tmp158041 '15 '#f '#f)) - (let ((__tmp158043 (cons (cons 'table |gxc[1]#_g158044_|) '()))) + (##unchecked-structure-set! __obj161412 __tmp161688 '15 '#f '#f)) + (let ((__tmp161690 (cons (cons 'table |gxc[1]#_g161691_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157765 __tmp158043 '16 '#f '#f)) - (let ((__tmp158045 (cons (cons 'table |gxc[1]#_g158046_|) '()))) + (##unchecked-structure-set! __obj161412 __tmp161690 '16 '#f '#f)) + (let ((__tmp161692 (cons (cons 'table |gxc[1]#_g161693_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157765 __tmp158045 '17 '#f '#f)) - (let ((__tmp158047 (cons (cons 'table |gxc[1]#_g158048_|) '()))) + (##unchecked-structure-set! __obj161412 __tmp161692 '17 '#f '#f)) + (let ((__tmp161694 (cons (cons 'table |gxc[1]#_g161695_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157765 __tmp158047 '18 '#f '#f)) + (##unchecked-structure-set! __obj161412 __tmp161694 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157765 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj161412 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157765 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj161412 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157765 '() '20 '#f '#f)) - __obj157765)) + (##unchecked-structure-set! __obj161412 '() '20 '#f '#f)) + __obj161412)) (define |gxc[:0:]#::generate-meta| - (let ((__obj157767 + (let ((__obj161414 (let () (declare (not safe)) (##structure @@ -1643,68 +1643,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157767 + __obj161414 'gxc#::generate-meta::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157767 '::generate-meta '2 '#f '#f)) + (##unchecked-structure-set! __obj161414 '::generate-meta '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157767 '(state) '4 '#f '#f)) + (##unchecked-structure-set! __obj161414 '(state) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157767 '(state) '6 '#f '#f)) - (let ((__tmp158049 (cons |gxc[1]#_g158050_| '()))) + (##unchecked-structure-set! __obj161414 '(state) '7 '#f '#f)) + (let ((__tmp161696 (cons |gxc[1]#_g161697_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157767 __tmp158049 '3 '#f '#f)) + (##unchecked-structure-set! __obj161414 __tmp161696 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157767 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj161414 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157767 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj161414 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157767 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj161414 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157767 '#f '11 '#f '#f)) - (let ((__tmp158051 |gxc[1]#_g158052_|)) + (##unchecked-structure-set! __obj161414 '#f '12 '#f '#f)) + (let ((__tmp161698 |gxc[1]#_g161699_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157767 __tmp158051 '12 '#f '#f)) - (let ((__tmp158053 |gxc[1]#_g158054_|)) + (##unchecked-structure-set! __obj161414 __tmp161698 '3 '#f '#f)) + (let ((__tmp161700 |gxc[1]#_g161701_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157767 __tmp158053 '13 '#f '#f)) - (let ((__tmp158055 |gxc[1]#_g158056_|)) + (##unchecked-structure-set! __obj161414 __tmp161700 '13 '#f '#f)) + (let ((__tmp161702 |gxc[1]#_g161703_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157767 __tmp158055 '14 '#f '#f)) - (let ((__tmp158057 (cons (cons 'state |gxc[1]#_g158058_|) '()))) + (##unchecked-structure-set! __obj161414 __tmp161702 '14 '#f '#f)) + (let ((__tmp161704 (cons (cons 'state |gxc[1]#_g161705_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157767 __tmp158057 '15 '#f '#f)) - (let ((__tmp158059 (cons (cons 'state |gxc[1]#_g158060_|) '()))) + (##unchecked-structure-set! __obj161414 __tmp161704 '15 '#f '#f)) + (let ((__tmp161706 (cons (cons 'state |gxc[1]#_g161707_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157767 __tmp158059 '16 '#f '#f)) - (let ((__tmp158061 (cons (cons 'state |gxc[1]#_g158062_|) '()))) + (##unchecked-structure-set! __obj161414 __tmp161706 '16 '#f '#f)) + (let ((__tmp161708 (cons (cons 'state |gxc[1]#_g161709_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157767 __tmp158061 '17 '#f '#f)) - (let ((__tmp158063 (cons (cons 'state |gxc[1]#_g158064_|) '()))) + (##unchecked-structure-set! __obj161414 __tmp161708 '17 '#f '#f)) + (let ((__tmp161710 (cons (cons 'state |gxc[1]#_g161711_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157767 __tmp158063 '18 '#f '#f)) + (##unchecked-structure-set! __obj161414 __tmp161710 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157767 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj161414 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157767 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj161414 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157767 '() '20 '#f '#f)) - __obj157767)) + (##unchecked-structure-set! __obj161414 '() '20 '#f '#f)) + __obj161414)) (define |gxc[:0:]#::generate-meta-phi| - (let ((__obj157769 + (let ((__obj161416 (let () (declare (not safe)) (##structure @@ -1733,7 +1733,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157769 + __obj161416 'gxc#::generate-meta-phi::t '1 '#f @@ -1741,220 +1741,220 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157769 + __obj161416 '::generate-meta-phi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157769 '(state) '4 '#f '#f)) + (##unchecked-structure-set! __obj161416 '(state) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157769 '(state) '6 '#f '#f)) + (##unchecked-structure-set! __obj161416 '(state) '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157769 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj161416 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157769 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj161416 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157769 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj161416 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157769 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj161416 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157769 '#f '11 '#f '#f)) - (let ((__tmp158065 |gxc[1]#_g158066_|)) + (##unchecked-structure-set! __obj161416 '#f '12 '#f '#f)) + (let ((__tmp161712 |gxc[1]#_g161713_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157769 __tmp158065 '12 '#f '#f)) - (let ((__tmp158067 |gxc[1]#_g158068_|)) + (##unchecked-structure-set! __obj161416 __tmp161712 '3 '#f '#f)) + (let ((__tmp161714 |gxc[1]#_g161715_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157769 __tmp158067 '13 '#f '#f)) - (let ((__tmp158069 |gxc[1]#_g158070_|)) + (##unchecked-structure-set! __obj161416 __tmp161714 '13 '#f '#f)) + (let ((__tmp161716 |gxc[1]#_g161717_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157769 __tmp158069 '14 '#f '#f)) - (let ((__tmp158071 (cons (cons 'state |gxc[1]#_g158072_|) '()))) + (##unchecked-structure-set! __obj161416 __tmp161716 '14 '#f '#f)) + (let ((__tmp161718 (cons (cons 'state |gxc[1]#_g161719_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157769 __tmp158071 '15 '#f '#f)) - (let ((__tmp158073 (cons (cons 'state |gxc[1]#_g158074_|) '()))) + (##unchecked-structure-set! __obj161416 __tmp161718 '15 '#f '#f)) + (let ((__tmp161720 (cons (cons 'state |gxc[1]#_g161721_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157769 __tmp158073 '16 '#f '#f)) - (let ((__tmp158075 (cons (cons 'state |gxc[1]#_g158076_|) '()))) + (##unchecked-structure-set! __obj161416 __tmp161720 '16 '#f '#f)) + (let ((__tmp161722 (cons (cons 'state |gxc[1]#_g161723_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157769 __tmp158075 '17 '#f '#f)) - (let ((__tmp158077 (cons (cons 'state |gxc[1]#_g158078_|) '()))) + (##unchecked-structure-set! __obj161416 __tmp161722 '17 '#f '#f)) + (let ((__tmp161724 (cons (cons 'state |gxc[1]#_g161725_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj157769 __tmp158077 '18 '#f '#f)) + (##unchecked-structure-set! __obj161416 __tmp161724 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157769 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj161416 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157769 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj161416 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157769 '() '20 '#f '#f)) - __obj157769)) + (##unchecked-structure-set! __obj161416 '() '20 '#f '#f)) + __obj161416)) (define |gxc[:0:]#with-primitive-bind+args| - (lambda (_%$stx146841%_) - (let* ((_%g146845146880%_ - (lambda (_%g146846146876%_) + (lambda (_%$stx150538%_) + (let* ((_%g150542150577%_ + (lambda (_%g150543150573%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146846146876%_)))) - (_%g146844147006%_ - (lambda (_%g146846146884%_) + _%g150543150573%_)))) + (_%g150541150701%_ + (lambda (_%g150543150581%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146846146884%_)) - (let ((_%e146851146887%_ + (gx#stx-pair? _%g150543150581%_)) + (let ((_%e150548150584%_ (let () (declare (not safe)) - (gx#syntax-e _%g146846146884%_)))) - (let ((_%hd146852146891%_ + (gx#syntax-e _%g150543150581%_)))) + (let ((_%hd150549150588%_ (let () (declare (not safe)) - (##car _%e146851146887%_))) - (_%tl146853146894%_ + (##car _%e150548150584%_))) + (_%tl150550150591%_ (let () (declare (not safe)) - (##cdr _%e146851146887%_)))) + (##cdr _%e150548150584%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146853146894%_)) - (let ((_%e146854146897%_ + (gx#stx-pair? _%tl150550150591%_)) + (let ((_%e150551150594%_ (let () (declare (not safe)) - (gx#syntax-e _%tl146853146894%_)))) - (let ((_%hd146855146901%_ + (gx#syntax-e _%tl150550150591%_)))) + (let ((_%hd150552150598%_ (let () (declare (not safe)) - (##car _%e146854146897%_))) - (_%tl146856146904%_ + (##car _%e150551150594%_))) + (_%tl150553150601%_ (let () (declare (not safe)) - (##cdr _%e146854146897%_)))) + (##cdr _%e150551150594%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd146855146901%_)) - (let ((_%e146857146907%_ + (gx#stx-pair? _%hd150552150598%_)) + (let ((_%e150554150604%_ (let () (declare (not safe)) (gx#syntax-e - _%hd146855146901%_)))) - (let ((_%hd146858146911%_ + _%hd150552150598%_)))) + (let ((_%hd150555150608%_ (let () (declare (not safe)) - (##car _%e146857146907%_))) - (_%tl146859146914%_ + (##car _%e150554150604%_))) + (_%tl150556150611%_ (let () (declare (not safe)) - (##cdr _%e146857146907%_)))) + (##cdr _%e150554150604%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl146859146914%_)) - (let ((_%e146860146917%_ + _%tl150556150611%_)) + (let ((_%e150557150614%_ (let () (declare (not safe)) (gx#syntax-e - _%tl146859146914%_)))) - (let ((_%hd146861146921%_ + _%tl150556150611%_)))) + (let ((_%hd150558150618%_ (let () (declare (not safe)) - (##car _%e146860146917%_))) - (_%tl146862146924%_ + (##car _%e150557150614%_))) + (_%tl150559150621%_ (let () (declare (not safe)) - (##cdr _%e146860146917%_)))) + (##cdr _%e150557150614%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl146862146924%_)) - (let ((_%e146863146927%_ + _%tl150559150621%_)) + (let ((_%e150560150624%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl146862146924%_)))) - (let ((_%hd146864146931%_ - (let () (declare (not safe)) (##car _%e146863146927%_))) - (_%tl146865146934%_ + (gx#syntax-e _%tl150559150621%_)))) + (let ((_%hd150561150628%_ + (let () (declare (not safe)) (##car _%e150560150624%_))) + (_%tl150562150631%_ (let () (declare (not safe)) - (##cdr _%e146863146927%_)))) + (##cdr _%e150560150624%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146865146934%_)) + (gx#stx-null? _%tl150562150631%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl146856146904%_)) - (let ((_g158079_ + (gx#stx-pair/null? _%tl150553150601%_)) + (let ((_g161726_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl146856146904%_ + _%tl150553150601%_ '0)))) (begin - (let ((_g158080_ + (let ((_g161727_ (let () (declare (not safe)) - (if (##values? _g158079_) - (##values-length _g158079_) + (if (##values? _g161726_) + (##values-length _g161726_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g158080_ 2))) + (##fx= _g161727_ 2))) (error "Context expects 2 values" - _g158080_))) - (let ((_%target146866146937%_ + _g161727_))) + (let ((_%target150563150634%_ (let () (declare (not safe)) - (##values-ref _g158079_ 0))) - (_%tl146868146940%_ + (##values-ref _g161726_ 0))) + (_%tl150565150637%_ (let () (declare (not safe)) - (##values-ref _g158079_ 1)))) + (##values-ref _g161726_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146868146940%_)) - (letrec ((_%loop146869146943%_ - (lambda (_%hd146867146947%_ - _%body146873146950%_) + (gx#stx-null? _%tl150565150637%_)) + (letrec ((_%loop150566150640%_ + (lambda (_%hd150564150644%_ + _%body150570150647%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd146867146947%_)) - (let ((_%e146870146953%_ + _%hd150564150644%_)) + (let ((_%e150567150649%_ (let () (declare (not safe)) (gx#syntax-e - _%hd146867146947%_)))) - (let ((_%lp-hd146871146957%_ + _%hd150564150644%_)))) + (let ((_%lp-hd150568150653%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e146870146953%_))) - (_%lp-tl146872146960%_ - (let () (declare (not safe)) (##cdr _%e146870146953%_)))) - (_%loop146869146943%_ - _%lp-tl146872146960%_ - (cons _%lp-hd146871146957%_ _%body146873146950%_)))) + (##car _%e150567150649%_))) + (_%lp-tl150569150656%_ + (let () (declare (not safe)) (##cdr _%e150567150649%_)))) + (_%loop150566150640%_ + _%lp-tl150569150656%_ + (cons _%lp-hd150568150653%_ _%body150570150647%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body146874146963%_ - (reverse _%body146873146950%_))) - ((lambda (_%L146967%_ - _%L146969%_ - _%L146970%_ - _%L146971%_) + (let ((_%body150571150659%_ + (reverse _%body150570150647%_))) + ((lambda (_%g150544150662%_ + _%g150545150664%_ + _%g150546150665%_ + _%g150547150666%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1967,8 +1967,8 @@ (gx#datum->syntax__0 '#f 'rest)) - (cons _%L146969%_ '())) - (cons (cons _%L146971%_ + (cons _%g150545150664%_ '())) + (cons (cons _%g150547150666%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1976,7 +1976,7 @@ '()) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L146970%_ + (cons (cons _%g150546150665%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -2037,7 +2037,7 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)) - (cons _%L146971%_ + (cons _%g150547150666%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2051,7 +2051,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'e)) '())) - (cons _%L146970%_ '()))) + (cons _%g150546150665%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -2068,7 +2068,7 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)) - (cons _%L146971%_ + (cons _%g150547150666%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -2080,7 +2080,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'e)) '())) - (cons _%L146970%_ '()))) + (cons _%g150546150665%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -2149,7 +2149,7 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L146971%_ '()))) + (cons _%g150547150666%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2160,7 +2160,8 @@ (gx#datum->syntax__0 '#f 'tmp)) - (cons _%L146970%_ '()))) + (cons _%g150546150665%_ + '()))) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2171,99 +2172,99 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else)) - (let ((__tmp158081 - (lambda (_%g146997147000%_ - _%g146998147003%_) - (cons _%g146997147000%_ - _%g146998147003%_)))) + (let ((__tmp161728 + (lambda (_%g150692150695%_ + _%g150693150698%_) + (cons _%g150692150695%_ + _%g150693150698%_)))) (declare (not safe)) - (__foldr1 __tmp158081 '() _%L146967%_))) + (__foldr1 __tmp161728 '() _%g150544150662%_))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%body146874146963%_ - _%hd146864146931%_ - _%hd146861146921%_ - _%hd146858146911%_)))))) + _%body150571150659%_ + _%hd150561150628%_ + _%hd150558150618%_ + _%hd150555150608%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop146869146943%_ - _%target146866146937%_ + (_%loop150566150640%_ + _%target150563150634%_ '())) - (_%g146845146880%_ _%g146846146884%_))))) - (_%g146845146880%_ _%g146846146884%_)) - (_%g146845146880%_ _%g146846146884%_)))) - (_%g146845146880%_ _%g146846146884%_)))) + (_%g150542150577%_ _%g150543150581%_))))) + (_%g150542150577%_ _%g150543150581%_)) + (_%g150542150577%_ _%g150543150581%_)))) + (_%g150542150577%_ _%g150543150581%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g146845146880%_ - _%g146846146884%_)))) - (_%g146845146880%_ _%g146846146884%_)))) - (_%g146845146880%_ _%g146846146884%_)))) - (_%g146845146880%_ _%g146846146884%_))))) - (_%g146844147006%_ _%$stx146841%_)))) + (_%g150542150577%_ + _%g150543150581%_)))) + (_%g150542150577%_ _%g150543150581%_)))) + (_%g150542150577%_ _%g150543150581%_)))) + (_%g150542150577%_ _%g150543150581%_))))) + (_%g150541150701%_ _%$stx150538%_)))) (define |gxc[:0:]#with-inline-unsafe-primitives| - (lambda (_%$stx147011%_) - (let* ((_%g147015147033%_ - (lambda (_%g147016147029%_) + (lambda (_%$stx150706%_) + (let* ((_%g150710150728%_ + (lambda (_%g150711150724%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147016147029%_)))) - (_%g147014147088%_ - (lambda (_%g147016147037%_) + _%g150711150724%_)))) + (_%g150709150783%_ + (lambda (_%g150711150732%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147016147037%_)) - (let ((_%e147019147040%_ + (gx#stx-pair? _%g150711150732%_)) + (let ((_%e150714150735%_ (let () (declare (not safe)) - (gx#syntax-e _%g147016147037%_)))) - (let ((_%hd147020147044%_ + (gx#syntax-e _%g150711150732%_)))) + (let ((_%hd150715150739%_ (let () (declare (not safe)) - (##car _%e147019147040%_))) - (_%tl147021147047%_ + (##car _%e150714150735%_))) + (_%tl150716150742%_ (let () (declare (not safe)) - (##cdr _%e147019147040%_)))) + (##cdr _%e150714150735%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147021147047%_)) - (let ((_%e147022147050%_ + (gx#stx-pair? _%tl150716150742%_)) + (let ((_%e150717150745%_ (let () (declare (not safe)) - (gx#syntax-e _%tl147021147047%_)))) - (let ((_%hd147023147054%_ + (gx#syntax-e _%tl150716150742%_)))) + (let ((_%hd150718150749%_ (let () (declare (not safe)) - (##car _%e147022147050%_))) - (_%tl147024147057%_ + (##car _%e150717150745%_))) + (_%tl150719150752%_ (let () (declare (not safe)) - (##cdr _%e147022147050%_)))) + (##cdr _%e150717150745%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147024147057%_)) - (let ((_%e147025147060%_ + (gx#stx-pair? _%tl150719150752%_)) + (let ((_%e150720150755%_ (let () (declare (not safe)) (gx#syntax-e - _%tl147024147057%_)))) - (let ((_%hd147026147064%_ + _%tl150719150752%_)))) + (let ((_%hd150721150759%_ (let () (declare (not safe)) - (##car _%e147025147060%_))) - (_%tl147027147067%_ + (##car _%e150720150755%_))) + (_%tl150722150762%_ (let () (declare (not safe)) - (##cdr _%e147025147060%_)))) + (##cdr _%e150720150755%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl147027147067%_)) - ((lambda (_%L147070%_ - _%L147072%_) + _%tl150722150762%_)) + ((lambda (_%g150712150765%_ + _%g150713150767%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2275,7 +2276,7 @@ (gx#datum->syntax__0 '#f 'gambit-inline-unsafe-primitives)) - (cons _%L147072%_ '())) + (cons _%g150713150767%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else)) @@ -2288,22 +2289,22 @@ '#f 'current-compile-decls-unsafe?)) '()) - (cons _%L147072%_ - (cons _%L147070%_ + (cons _%g150713150767%_ + (cons _%g150712150765%_ '())))) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd147026147064%_ - _%hd147023147054%_) - (_%g147015147033%_ - _%g147016147037%_)))) - (_%g147015147033%_ _%g147016147037%_)))) - (_%g147015147033%_ _%g147016147037%_)))) - (_%g147015147033%_ _%g147016147037%_))))) - (_%g147014147088%_ _%$stx147011%_)))) + _%hd150721150759%_ + _%hd150718150749%_) + (_%g150710150728%_ + _%g150711150732%_)))) + (_%g150710150728%_ _%g150711150732%_)))) + (_%g150710150728%_ _%g150711150732%_)))) + (_%g150710150728%_ _%g150711150732%_))))) + (_%g150709150783%_ _%$stx150706%_)))) (define |gxc[:0:]#meta-state| - (let ((__obj157771 + (let ((__obj161418 (let () (declare (not safe)) (##structure @@ -2332,98 +2333,98 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157771 + __obj161418 'gxc#meta-state::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157771 'meta-state '2 '#f '#f)) + (##unchecked-structure-set! __obj161418 'meta-state '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj157771 + __obj161418 '(src n open blocks) - '4 + '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj157771 + __obj161418 '(src n open blocks) - '6 + '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157771 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj161418 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157771 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj161418 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157771 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj161418 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157771 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj161418 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157771 ':init! '11 '#f '#f)) - (let ((__tmp158082 |gxc[1]#_g158083_|)) + (##unchecked-structure-set! __obj161418 ':init! '12 '#f '#f)) + (let ((__tmp161729 |gxc[1]#_g161730_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157771 __tmp158082 '12 '#f '#f)) - (let ((__tmp158084 |gxc[1]#_g158085_|)) + (##unchecked-structure-set! __obj161418 __tmp161729 '3 '#f '#f)) + (let ((__tmp161731 |gxc[1]#_g161732_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157771 __tmp158084 '13 '#f '#f)) - (let ((__tmp158086 |gxc[1]#_g158087_|)) + (##unchecked-structure-set! __obj161418 __tmp161731 '13 '#f '#f)) + (let ((__tmp161733 |gxc[1]#_g161734_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157771 __tmp158086 '14 '#f '#f)) - (let ((__tmp158088 - (cons (cons 'src |gxc[1]#_g158089_|) - (cons (cons 'n |gxc[1]#_g158090_|) - (cons (cons 'open |gxc[1]#_g158091_|) - (cons (cons 'blocks |gxc[1]#_g158092_|) + (##unchecked-structure-set! __obj161418 __tmp161733 '14 '#f '#f)) + (let ((__tmp161735 + (cons (cons 'src |gxc[1]#_g161736_|) + (cons (cons 'n |gxc[1]#_g161737_|) + (cons (cons 'open |gxc[1]#_g161738_|) + (cons (cons 'blocks |gxc[1]#_g161739_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj157771 __tmp158088 '15 '#f '#f)) - (let ((__tmp158093 - (cons (cons 'src |gxc[1]#_g158094_|) - (cons (cons 'n |gxc[1]#_g158095_|) - (cons (cons 'open |gxc[1]#_g158096_|) - (cons (cons 'blocks |gxc[1]#_g158097_|) + (##unchecked-structure-set! __obj161418 __tmp161735 '15 '#f '#f)) + (let ((__tmp161740 + (cons (cons 'src |gxc[1]#_g161741_|) + (cons (cons 'n |gxc[1]#_g161742_|) + (cons (cons 'open |gxc[1]#_g161743_|) + (cons (cons 'blocks |gxc[1]#_g161744_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj157771 __tmp158093 '16 '#f '#f)) - (let ((__tmp158098 - (cons (cons 'src |gxc[1]#_g158099_|) - (cons (cons 'n |gxc[1]#_g158100_|) - (cons (cons 'open |gxc[1]#_g158101_|) - (cons (cons 'blocks |gxc[1]#_g158102_|) + (##unchecked-structure-set! __obj161418 __tmp161740 '16 '#f '#f)) + (let ((__tmp161745 + (cons (cons 'src |gxc[1]#_g161746_|) + (cons (cons 'n |gxc[1]#_g161747_|) + (cons (cons 'open |gxc[1]#_g161748_|) + (cons (cons 'blocks |gxc[1]#_g161749_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj157771 __tmp158098 '17 '#f '#f)) - (let ((__tmp158103 - (cons (cons 'src |gxc[1]#_g158104_|) - (cons (cons 'n |gxc[1]#_g158105_|) - (cons (cons 'open |gxc[1]#_g158106_|) - (cons (cons 'blocks |gxc[1]#_g158107_|) + (##unchecked-structure-set! __obj161418 __tmp161745 '17 '#f '#f)) + (let ((__tmp161750 + (cons (cons 'src |gxc[1]#_g161751_|) + (cons (cons 'n |gxc[1]#_g161752_|) + (cons (cons 'open |gxc[1]#_g161753_|) + (cons (cons 'blocks |gxc[1]#_g161754_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj157771 __tmp158103 '18 '#f '#f)) + (##unchecked-structure-set! __obj161418 __tmp161750 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157771 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj161418 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157771 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj161418 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157771 '() '20 '#f '#f)) - __obj157771)) + (##unchecked-structure-set! __obj161418 '() '20 '#f '#f)) + __obj161418)) (define |gxc[:0:]#meta-state-block| - (let ((__obj157772 + (let ((__obj161419 (let () (declare (not safe)) (##structure @@ -2452,7 +2453,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157772 + __obj161419 'gxc#meta-state-block::t '1 '#f @@ -2460,7 +2461,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157772 + __obj161419 'meta-state-block '2 '#f @@ -2468,82 +2469,82 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj157772 + __obj161419 '(ctx phi n code) - '4 + '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj157772 + __obj161419 '(ctx phi n code) - '6 + '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157772 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj161419 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157772 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj161419 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157772 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj161419 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157772 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj161419 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157772 '#f '11 '#f '#f)) - (let ((__tmp158108 |gxc[1]#_g158109_|)) + (##unchecked-structure-set! __obj161419 '#f '12 '#f '#f)) + (let ((__tmp161755 |gxc[1]#_g161756_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157772 __tmp158108 '12 '#f '#f)) - (let ((__tmp158110 |gxc[1]#_g158111_|)) + (##unchecked-structure-set! __obj161419 __tmp161755 '3 '#f '#f)) + (let ((__tmp161757 |gxc[1]#_g161758_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157772 __tmp158110 '13 '#f '#f)) - (let ((__tmp158112 |gxc[1]#_g158113_|)) + (##unchecked-structure-set! __obj161419 __tmp161757 '13 '#f '#f)) + (let ((__tmp161759 |gxc[1]#_g161760_|)) (declare (not safe)) - (##unchecked-structure-set! __obj157772 __tmp158112 '14 '#f '#f)) - (let ((__tmp158114 - (cons (cons 'ctx |gxc[1]#_g158115_|) - (cons (cons 'phi |gxc[1]#_g158116_|) - (cons (cons 'n |gxc[1]#_g158117_|) - (cons (cons 'code |gxc[1]#_g158118_|) + (##unchecked-structure-set! __obj161419 __tmp161759 '14 '#f '#f)) + (let ((__tmp161761 + (cons (cons 'ctx |gxc[1]#_g161762_|) + (cons (cons 'phi |gxc[1]#_g161763_|) + (cons (cons 'n |gxc[1]#_g161764_|) + (cons (cons 'code |gxc[1]#_g161765_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj157772 __tmp158114 '15 '#f '#f)) - (let ((__tmp158119 - (cons (cons 'ctx |gxc[1]#_g158120_|) - (cons (cons 'phi |gxc[1]#_g158121_|) - (cons (cons 'n |gxc[1]#_g158122_|) - (cons (cons 'code |gxc[1]#_g158123_|) + (##unchecked-structure-set! __obj161419 __tmp161761 '15 '#f '#f)) + (let ((__tmp161766 + (cons (cons 'ctx |gxc[1]#_g161767_|) + (cons (cons 'phi |gxc[1]#_g161768_|) + (cons (cons 'n |gxc[1]#_g161769_|) + (cons (cons 'code |gxc[1]#_g161770_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj157772 __tmp158119 '16 '#f '#f)) - (let ((__tmp158124 - (cons (cons 'ctx |gxc[1]#_g158125_|) - (cons (cons 'phi |gxc[1]#_g158126_|) - (cons (cons 'n |gxc[1]#_g158127_|) - (cons (cons 'code |gxc[1]#_g158128_|) + (##unchecked-structure-set! __obj161419 __tmp161766 '16 '#f '#f)) + (let ((__tmp161771 + (cons (cons 'ctx |gxc[1]#_g161772_|) + (cons (cons 'phi |gxc[1]#_g161773_|) + (cons (cons 'n |gxc[1]#_g161774_|) + (cons (cons 'code |gxc[1]#_g161775_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj157772 __tmp158124 '17 '#f '#f)) - (let ((__tmp158129 - (cons (cons 'ctx |gxc[1]#_g158130_|) - (cons (cons 'phi |gxc[1]#_g158131_|) - (cons (cons 'n |gxc[1]#_g158132_|) - (cons (cons 'code |gxc[1]#_g158133_|) + (##unchecked-structure-set! __obj161419 __tmp161771 '17 '#f '#f)) + (let ((__tmp161776 + (cons (cons 'ctx |gxc[1]#_g161777_|) + (cons (cons 'phi |gxc[1]#_g161778_|) + (cons (cons 'n |gxc[1]#_g161779_|) + (cons (cons 'code |gxc[1]#_g161780_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj157772 __tmp158129 '18 '#f '#f)) + (##unchecked-structure-set! __obj161419 __tmp161776 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157772 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj161419 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157772 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj161419 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj157772 '() '20 '#f '#f)) - __obj157772)))) + (##unchecked-structure-set! __obj161419 '() '20 '#f '#f)) + __obj161419)))) diff --git a/src/bootstrap/gerbil/compiler/driver~0.scm b/src/bootstrap/gerbil/compiler/driver~0.scm index 0a454073dc..572c62fe57 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 1756721303) + (define gerbil/compiler/driver::timestamp 1769384636) (begin (define gxc#default-gerbil-gsc (path-expand '"gsc" (path-expand '"bin" (path-expand '"~~")))) @@ -10,21 +10,21 @@ (define gxc#compile-timestamp (lambda () (inexact->exact - (floor (let ((__tmp211247 (current-time))) + (floor (let ((__tmp214662 (current-time))) (declare (not safe)) - (##time->seconds __tmp211247)))))) + (##time->seconds __tmp214662)))))) (define gxc#compile-timestamp-nanos (lambda () - (let ((__tmp211248 (current-time))) + (let ((__tmp214663 (current-time))) (declare (not safe)) - (##time->seconds __tmp211248)))) + (##time->seconds __tmp214663)))) (define gxc#scheme-file-settings '(permissions: 420 char-encoding: UTF-8 eol-encoding: lf)) (define gxc#with-output-to-scheme-file - (lambda (_%path211104%_ _%fun211105%_) + (lambda (_%path214519%_ _%fun214520%_) (with-output-to-file - (cons 'path: (cons _%path211104%_ gxc#scheme-file-settings)) - _%fun211105%_))) + (cons 'path: (cons _%path214519%_ gxc#scheme-file-settings)) + _%fun214520%_))) (define gxc#+gerbil-gsc+ '#f) (define gxc#gerbil-gsc (lambda () @@ -56,14 +56,14 @@ (##getenv '"GERBIL_AR" gxc#default-gerbil-ar)))) gxc#+gerbil-ar+)) (define gxc#gerbil-rpath - (lambda (_%gerbil-libdir211099%_) - (string-append '"-Wl,-rpath=" _%gerbil-libdir211099%_))) + (lambda (_%gerbil-libdir214514%_) + (string-append '"-Wl,-rpath=" _%gerbil-libdir214514%_))) (define gxc#compiler-obj-suffix '".o") (define gxc#include-source - (lambda (_%path211097%_) - (let ((__tmp211249 (object->string _%path211097%_))) + (lambda (_%path214512%_) + (let ((__tmp214664 (object->string _%path214512%_))) (declare (not safe)) - (##string-append '"(include " __tmp211249 '")")))) + (##string-append '"(include " __tmp214664 '")")))) (define gxc#gerbil-runtime-modules '("gerbil/runtime/gambit" "gerbil/runtime/util" @@ -84,411 +84,411 @@ "gerbil/runtime/init" "gerbil/runtime")) (define gxc#delete-directory* - (lambda (_%dir211095%_) (delete-file-or-directory _%dir211095%_ '#t))) + (lambda (_%dir214510%_) (delete-file-or-directory _%dir214510%_ '#t))) (define gxc#compile-module__% - (lambda (_%srcpath211039%_ _%opts211040%_) - (if (string? _%srcpath211039%_) + (lambda (_%srcpath214454%_ _%opts214455%_) + (if (string? _%srcpath214454%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _%srcpath211039%_))) - (let* ((_%outdir211042%_ + _%srcpath214454%_))) + (let* ((_%outdir214457%_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _%opts211040%_))) - (_%invoke-gsc?211044%_ + (pgetq__0 'output-dir: _%opts214455%_))) + (_%invoke-gsc?214459%_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _%opts211040%_))) - (_%target211049%_ - (let ((_%$e211046%_ + (pgetq__0 'invoke-gsc: _%opts214455%_))) + (_%target214464%_ + (let ((_%$e214461%_ (let () (declare (not safe)) - (pgetq__0 'target: _%opts211040%_)))) - (if _%$e211046%_ _%$e211046%_ 'C))) - (_%gsc-options211054%_ + (pgetq__0 'target: _%opts214455%_)))) + (if _%$e214461%_ _%$e214461%_ 'C))) + (_%gsc-options214469%_ (append (cons '"-target" - (cons (symbol->string _%target211049%_) '())) - (let ((_%$e211051%_ + (cons (symbol->string _%target214464%_) '())) + (let ((_%$e214466%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts211040%_)))) - (if _%$e211051%_ _%$e211051%_ '())))) - (_%keep-scm?211056%_ + (pgetq__0 'gsc-options: _%opts214455%_)))) + (if _%$e214466%_ _%$e214466%_ '())))) + (_%keep-scm?214471%_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _%opts211040%_))) - (_%verbosity211058%_ + (pgetq__0 'keep-scm: _%opts214455%_))) + (_%verbosity214473%_ (let () (declare (not safe)) - (pgetq__0 'verbose: _%opts211040%_))) - (_%optimize211060%_ + (pgetq__0 'verbose: _%opts214455%_))) + (_%optimize214475%_ (let () (declare (not safe)) - (pgetq__0 'optimize: _%opts211040%_))) - (_%debug211062%_ + (pgetq__0 'optimize: _%opts214455%_))) + (_%debug214477%_ (let () (declare (not safe)) - (pgetq__0 'debug: _%opts211040%_))) - (_%gen-ssxi211064%_ + (pgetq__0 'debug: _%opts214455%_))) + (_%gen-ssxi214479%_ (let () (declare (not safe)) - (pgetq__0 'generate-ssxi: _%opts211040%_))) - (_%parallel?211066%_ + (pgetq__0 'generate-ssxi: _%opts214455%_))) + (_%parallel?214481%_ (let () (declare (not safe)) - (pgetq__0 'parallel: _%opts211040%_)))) - (if _%outdir211042%_ - (let ((__tmp211250 + (pgetq__0 'parallel: _%opts214455%_)))) + (if _%outdir214457%_ + (let ((__tmp214665 (lambda () (let () (declare (not safe)) - (create-directory*__0 _%outdir211042%_))))) + (create-directory*__0 _%outdir214457%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp211250)) + (__with-lock gxc#+driver-mutex+ __tmp214665)) '#!void) - (if _%optimize211060%_ - (let ((__tmp211251 + (if _%optimize214475%_ + (let ((__tmp214666 (lambda () (let () (declare (not safe)) (gxc#optimizer-info-init!))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp211251)) + (__with-lock gxc#+driver-mutex+ __tmp214666)) '#!void) - (let ((__tmp211252 + (let ((__tmp214667 (lambda () - (let ((__tmp211253 + (let ((__tmp214668 (lambda () - (let ((__tmp211254 + (let ((__tmp214669 (lambda () - (let ((__tmp211255 + (let ((__tmp214670 (lambda () - (let ((__tmp211256 + (let ((__tmp214671 (lambda () - (let ((__tmp211257 + (let ((__tmp214672 (lambda () - (let ((__tmp211258 + (let ((__tmp214673 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda () - (let ((__tmp211259 + (let ((__tmp214674 (lambda () - (let ((__tmp211260 + (let ((__tmp214675 (lambda () - (let ((__tmp211262 + (let ((__tmp214677 (lambda () - (let ((__tmp211264 + (let ((__tmp214679 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda () - (let ((__tmp211265 + (let ((__tmp214680 (lambda () - (let ((__tmp211266 + (let ((__tmp214681 (lambda () (let () (declare (not safe)) (gxc#verbose '"compile " - _%srcpath211039%_)) + _%srcpath214454%_)) (gxc#compile-top-module - (let ((__tmp211267 + (let ((__tmp214682 (lambda () (let () (declare (not safe)) (gx#import-module__0 - _%srcpath211039%_))))) + _%srcpath214454%_))))) (declare (not safe)) (__with-lock gxc#+driver-mutex+ - __tmp211267)))))) + __tmp214682)))))) (declare (not safe)) (call-with-parameters__1 - __tmp211266 + __tmp214681 gx#current-expander-compiling? '#t))))) (declare (not safe)) (call-with-parameters__1 - __tmp211265 + __tmp214680 gxc#current-compile-parallel - _%parallel?211066%_)))) - (__tmp211263 + _%parallel?214481%_)))) + (__tmp214678 (cons (cons 'compile-module - (cons _%srcpath211039%_ '())) + (cons _%srcpath214454%_ '())) '()))) (declare (not safe)) (call-with-parameters__1 - __tmp211264 + __tmp214679 gxc#current-compile-context - __tmp211263)))) - (__tmp211261 (gxc#compile-timestamp))) + __tmp214678)))) + (__tmp214676 (gxc#compile-timestamp))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters__1 - __tmp211262 + __tmp214677 gxc#current-compile-timestamp - __tmp211261))))) + __tmp214676))))) (declare (not safe)) (call-with-parameters__1 - __tmp211260 + __tmp214675 gxc#current-compile-generate-ssxi - _%gen-ssxi211064%_))))) + _%gen-ssxi214479%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp211259 + __tmp214674 gxc#current-compile-debug - _%debug211062%_))))) + _%debug214477%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp211258 + __tmp214673 gxc#current-compile-optimize - _%optimize211060%_))))) + _%optimize214475%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp211257 + __tmp214672 gxc#current-compile-verbose - _%verbosity211058%_))))) + _%verbosity214473%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters__1 - __tmp211256 + __tmp214671 gxc#current-compile-keep-scm - _%keep-scm?211056%_))))) + _%keep-scm?214471%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp211255 + __tmp214670 gxc#current-compile-gsc-options - _%gsc-options211054%_))))) + _%gsc-options214469%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp211254 + __tmp214669 gxc#current-compile-invoke-gsc - _%invoke-gsc?211044%_))))) + _%invoke-gsc?214459%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp211253 + __tmp214668 gx#current-compilation-target - _%target211049%_))))) + _%target214464%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp211252 + __tmp214667 gxc#current-compile-output-dir - _%outdir211042%_))))) + _%outdir214457%_))))) (define gxc#compile-module__0 - (lambda (_%srcpath211088%_) - (let ((_%opts211090%_ '())) - (gxc#compile-module__% _%srcpath211088%_ _%opts211090%_)))) + (lambda (_%srcpath214503%_) + (let ((_%opts214505%_ '())) + (gxc#compile-module__% _%srcpath214503%_ _%opts214505%_)))) (define gxc#compile-module - (lambda _g211268_ - (let ((_g211269_ (let () (declare (not safe)) (##length _g211268_)))) - (cond ((let () (declare (not safe)) (##fx= _g211269_ 1)) - (apply gxc#compile-module__0 _g211268_)) - ((let () (declare (not safe)) (##fx= _g211269_ 2)) - (apply gxc#compile-module__% _g211268_)) + (lambda _g214683_ + (let ((_g214684_ (let () (declare (not safe)) (##length _g214683_)))) + (cond ((let () (declare (not safe)) (##fx= _g214684_ 1)) + (apply gxc#compile-module__0 _g214683_)) + ((let () (declare (not safe)) (##fx= _g214684_ 2)) + (apply gxc#compile-module__% _g214683_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-module - _g211268_)))))) + _g214683_)))))) (define gxc#compile-exe__% - (lambda (_%srcpath210989%_ _%opts210990%_) - (if (string? _%srcpath210989%_) + (lambda (_%srcpath214404%_ _%opts214405%_) + (if (string? _%srcpath214404%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _%srcpath210989%_))) - (let* ((_%outdir210992%_ + _%srcpath214404%_))) + (let* ((_%outdir214407%_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _%opts210990%_))) - (_%invoke-gsc?210994%_ + (pgetq__0 'output-dir: _%opts214405%_))) + (_%invoke-gsc?214409%_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _%opts210990%_))) - (_%target210999%_ - (let ((_%$e210996%_ + (pgetq__0 'invoke-gsc: _%opts214405%_))) + (_%target214414%_ + (let ((_%$e214411%_ (let () (declare (not safe)) - (pgetq__0 'target: _%opts210990%_)))) - (if _%$e210996%_ _%$e210996%_ 'C))) - (_%gsc-options211004%_ + (pgetq__0 'target: _%opts214405%_)))) + (if _%$e214411%_ _%$e214411%_ 'C))) + (_%gsc-options214419%_ (append (cons '"-target" - (cons (symbol->string _%target210999%_) '())) - (let ((_%$e211001%_ + (cons (symbol->string _%target214414%_) '())) + (let ((_%$e214416%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts210990%_)))) - (if _%$e211001%_ _%$e211001%_ '())))) - (_%keep-scm?211006%_ + (pgetq__0 'gsc-options: _%opts214405%_)))) + (if _%$e214416%_ _%$e214416%_ '())))) + (_%keep-scm?214421%_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _%opts210990%_))) - (_%verbosity211008%_ + (pgetq__0 'keep-scm: _%opts214405%_))) + (_%verbosity214423%_ (let () (declare (not safe)) - (pgetq__0 'verbose: _%opts210990%_))) - (_%debug211010%_ + (pgetq__0 'verbose: _%opts214405%_))) + (_%debug214425%_ (let () (declare (not safe)) - (pgetq__0 'debug: _%opts210990%_))) - (_%parallel?211012%_ + (pgetq__0 'debug: _%opts214405%_))) + (_%parallel?214427%_ (let () (declare (not safe)) - (pgetq__0 'parallel: _%opts210990%_)))) - (if _%outdir210992%_ - (let ((__tmp211270 + (pgetq__0 'parallel: _%opts214405%_)))) + (if _%outdir214407%_ + (let ((__tmp214685 (lambda () (let () (declare (not safe)) - (create-directory*__0 _%outdir210992%_))))) + (create-directory*__0 _%outdir214407%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp211270)) + (__with-lock gxc#+driver-mutex+ __tmp214685)) '#!void) - (let ((__tmp211271 + (let ((__tmp214686 (lambda () - (let ((__tmp211272 + (let ((__tmp214687 (lambda () - (let ((__tmp211273 + (let ((__tmp214688 (lambda () - (let ((__tmp211274 + (let ((__tmp214689 (lambda () - (let ((__tmp211275 + (let ((__tmp214690 (lambda () - (let ((__tmp211276 + (let ((__tmp214691 (lambda () - (let ((__tmp211277 + (let ((__tmp214692 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda () - (let ((__tmp211279 + (let ((__tmp214694 (lambda () - (let ((__tmp211281 + (let ((__tmp214696 (lambda () - (let ((__tmp211282 + (let ((__tmp214697 (lambda () - (let ((__tmp211283 + (let ((__tmp214698 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile exe " _%srcpath210989%_)) + (gxc#verbose '"compile exe " _%srcpath214404%_)) (gxc#compile-executable-module - (let ((__tmp211284 + (let ((__tmp214699 (lambda () (let () (declare (not safe)) (gx#import-module__0 - _%srcpath210989%_))))) + _%srcpath214404%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp211284)) - _%opts210990%_)))) + (__with-lock gxc#+driver-mutex+ __tmp214699)) + _%opts214405%_)))) (declare (not safe)) (call-with-parameters__1 - __tmp211283 + __tmp214698 gx#current-expander-compiling? '#t))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters__1 - __tmp211282 + __tmp214697 gxc#current-compile-parallel - _%parallel?211012%_)))) - (__tmp211280 + _%parallel?214427%_)))) + (__tmp214695 (cons (cons 'compile-exe - (cons _%srcpath210989%_ + (cons _%srcpath214404%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters__1 - __tmp211281 + __tmp214696 gxc#current-compile-context - __tmp211280)))) - (__tmp211278 (gxc#compile-timestamp))) + __tmp214695)))) + (__tmp214693 (gxc#compile-timestamp))) (declare (not safe)) (call-with-parameters__1 - __tmp211279 + __tmp214694 gxc#current-compile-timestamp - __tmp211278))))) + __tmp214693))))) (declare (not safe)) (call-with-parameters__1 - __tmp211277 + __tmp214692 gxc#current-compile-debug - _%debug211010%_))))) + _%debug214425%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp211276 + __tmp214691 gxc#current-compile-verbose - _%verbosity211008%_))))) + _%verbosity214423%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters__1 - __tmp211275 + __tmp214690 gxc#current-compile-keep-scm - _%keep-scm?211006%_))))) + _%keep-scm?214421%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp211274 + __tmp214689 gxc#current-compile-gsc-options - _%gsc-options211004%_))))) + _%gsc-options214419%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp211273 + __tmp214688 gx#current-compilation-target - _%target210999%_))))) + _%target214414%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp211272 + __tmp214687 gxc#current-compile-invoke-gsc - _%invoke-gsc?210994%_))))) + _%invoke-gsc?214409%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp211271 + __tmp214686 gxc#current-compile-output-dir - _%outdir210992%_))))) + _%outdir214407%_))))) (define gxc#compile-exe__0 - (lambda (_%srcpath211031%_) - (let ((_%opts211033%_ '())) - (gxc#compile-exe__% _%srcpath211031%_ _%opts211033%_)))) + (lambda (_%srcpath214446%_) + (let ((_%opts214448%_ '())) + (gxc#compile-exe__% _%srcpath214446%_ _%opts214448%_)))) (define gxc#compile-exe - (lambda _g211285_ - (let ((_g211286_ (let () (declare (not safe)) (##length _g211285_)))) - (cond ((let () (declare (not safe)) (##fx= _g211286_ 1)) - (apply gxc#compile-exe__0 _g211285_)) - ((let () (declare (not safe)) (##fx= _g211286_ 2)) - (apply gxc#compile-exe__% _g211285_)) + (lambda _g214700_ + (let ((_g214701_ (let () (declare (not safe)) (##length _g214700_)))) + (cond ((let () (declare (not safe)) (##fx= _g214701_ 1)) + (apply gxc#compile-exe__0 _g214700_)) + ((let () (declare (not safe)) (##fx= _g214701_ 2)) + (apply gxc#compile-exe__% _g214700_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-exe - _g211285_)))))) + _g214700_)))))) (define gxc#compile-executable-module - (lambda (_%ctx210985%_ _%opts210986%_) + (lambda (_%ctx214400%_ _%opts214401%_) (if (let () (declare (not safe)) - (pgetq__0 'full-program-optimization: _%opts210986%_)) + (pgetq__0 'full-program-optimization: _%opts214401%_)) (gxc#compile-executable-module/full-program-optimization - _%ctx210985%_ - _%opts210986%_) + _%ctx214400%_ + _%opts214401%_) (gxc#compile-executable-module/separate - _%ctx210985%_ - _%opts210986%_)))) + _%ctx214400%_ + _%opts214401%_)))) (define gxc#compile-executable-module/separate - (lambda (_%ctx210785%_ _%opts210786%_) - (letrec ((_%generate-stub210788%_ - (lambda (_%builtin-modules210981%_) - (let ((_%mod-main210983%_ - (gxc#find-runtime-symbol _%ctx210785%_ 'main))) - (let ((__tmp211287 + (lambda (_%ctx214200%_ _%opts214201%_) + (letrec ((_%generate-stub214203%_ + (lambda (_%builtin-modules214396%_) + (let ((_%mod-main214398%_ + (gxc#find-runtime-symbol _%ctx214200%_ 'main))) + (let ((__tmp214702 (cons 'define (cons 'builtin-modules (cons (cons 'quote - (cons _%builtin-modules210981%_ + (cons _%builtin-modules214396%_ '())) '()))))) (declare (not safe)) - (##write __tmp211287)) - (let ((__tmp211288 + (##write __tmp214702)) + (let ((__tmp214703 (cons 'define (cons (cons 'gerbil-main '()) (cons (cons 'with-unwind-protect @@ -498,7 +498,7 @@ (cons (cons 'gerbil-runtime-init! (cons 'builtin-modules '())) (cons (cons 'apply - (cons _%mod-main210983%_ + (cons _%mod-main214398%_ (cons (cons 'cdr ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'command-line '()) '())) @@ -536,321 +536,321 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (##write __tmp211288)) + (##write __tmp214703)) (let () (declare (not safe)) (##write '(gerbil-main))) (newline)))) - (_%get-libgerbil-ld-opts210789%_ - (lambda (_%gerbil-libdir210979%_) - (let ((__tmp211289 + (_%get-libgerbil-ld-opts214204%_ + (lambda (_%gerbil-libdir214394%_) + (let ((__tmp214704 (path-expand '"libgerbil.ldd" - _%gerbil-libdir210979%_))) + _%gerbil-libdir214394%_))) (declare (not safe)) - (##call-with-input-file __tmp211289 read)))) - (_%replace-extension210790%_ - (lambda (_%path210976%_ _%ext210977%_) + (##call-with-input-file __tmp214704 read)))) + (_%replace-extension214205%_ + (lambda (_%path214391%_ _%ext214392%_) (string-append - (path-strip-extension _%path210976%_) - _%ext210977%_))) - (_%replace-extension-with-c210791%_ - (lambda (_%path210974%_) - (_%replace-extension210790%_ _%path210974%_ '".c"))) - (_%replace-extension-with-object210792%_ - (lambda (_%path210972%_) - (_%replace-extension210790%_ - _%path210972%_ + (path-strip-extension _%path214391%_) + _%ext214392%_))) + (_%replace-extension-with-c214206%_ + (lambda (_%path214389%_) + (_%replace-extension214205%_ _%path214389%_ '".c"))) + (_%replace-extension-with-object214207%_ + (lambda (_%path214387%_) + (_%replace-extension214205%_ + _%path214387%_ gxc#compiler-obj-suffix))) - (_%userlib-module?210793%_ - (lambda (_%ctx210970%_) - (if (_%exclude-module?210795%_ _%ctx210970%_) + (_%userlib-module?214208%_ + (lambda (_%ctx214385%_) + (if (_%exclude-module?214210%_ _%ctx214385%_) '#f - (not (_%libgerbil-module?210794%_ _%ctx210970%_))))) - (_%libgerbil-module?210794%_ - (lambda (_%ctx210963%_) - (let ((_%id-str210965%_ + (not (_%libgerbil-module?214209%_ _%ctx214385%_))))) + (_%libgerbil-module?214209%_ + (lambda (_%ctx214378%_) + (let ((_%id-str214380%_ (symbol->string (##structure-ref - _%ctx210963%_ + _%ctx214378%_ '1 gx#expander-context::t '#f)))) - (if (_%exclude-module?210795%_ _%id-str210965%_) + (if (_%exclude-module?214210%_ _%id-str214380%_) '#f - (let ((_%$e210967%_ + (let ((_%$e214382%_ (let () (declare (not safe)) (##string-prefix? '"gerbil/" - _%id-str210965%_)))) - (if _%$e210967%_ - _%$e210967%_ + _%id-str214380%_)))) + (if _%$e214382%_ + _%$e214382%_ (let () (declare (not safe)) (##string-prefix? '"std/" - _%id-str210965%_)))))))) - (_%exclude-module?210795%_ - (lambda (_%ctx-or-str210959%_) - (let ((_%str210961%_ - (if (string? _%ctx-or-str210959%_) - _%ctx-or-str210959%_ + _%id-str214380%_)))))))) + (_%exclude-module?214210%_ + (lambda (_%ctx-or-str214374%_) + (let ((_%str214376%_ + (if (string? _%ctx-or-str214374%_) + _%ctx-or-str214374%_ (symbol->string (##structure-ref - _%ctx-or-str210959%_ + _%ctx-or-str214374%_ '1 gx#expander-context::t '#f))))) (declare (not safe)) - (##string-prefix? '"gerbil/core" _%str210961%_)))) - (_%not-file-empty?210796%_ - (lambda (_%path210957%_) - (not (gxc#file-empty? _%path210957%_)))) - (_%fold-libgerbil-runtime-scm210797%_ - (lambda (_%gerbil-staticdir210950%_ _%libgerbil-scm210951%_) - (let ((_%gerbil-runtime-scm210955%_ - (let ((__tmp211290 - (lambda (_%rtm210953%_) + (##string-prefix? '"gerbil/core" _%str214376%_)))) + (_%not-file-empty?214211%_ + (lambda (_%path214372%_) + (not (gxc#file-empty? _%path214372%_)))) + (_%fold-libgerbil-runtime-scm214212%_ + (lambda (_%gerbil-staticdir214365%_ _%libgerbil-scm214366%_) + (let ((_%gerbil-runtime-scm214370%_ + (let ((__tmp214705 + (lambda (_%rtm214368%_) (path-expand - (let ((__tmp211291 - (let ((__tmp211292 + (let ((__tmp214706 + (let ((__tmp214707 (let () (declare (not safe)) (string-split - _%rtm210953%_ + _%rtm214368%_ '#\/)))) (declare (not safe)) (string-join - __tmp211292 + __tmp214707 '"__")))) (declare (not safe)) - (##string-append __tmp211291 '".scm")) - _%gerbil-staticdir210950%_)))) + (##string-append __tmp214706 '".scm")) + _%gerbil-staticdir214365%_)))) (declare (not safe)) - (##map __tmp211290 gxc#gerbil-runtime-modules)))) - (_%remove-duplicates210798%_ - (append _%gerbil-runtime-scm210955%_ - _%libgerbil-scm210951%_))))) - (_%remove-duplicates210798%_ - (lambda (_%strlst210910%_) - (let _%loop210912%_ ((_%rest210914%_ _%strlst210910%_) - (_%result210915%_ '())) - (let* ((_%rest210916210924%_ _%rest210914%_) - (_%else210918210932%_ - (lambda () (reverse! _%result210915%_))) - (_%K210920210938%_ - (lambda (_%rest210935%_ _%path210936%_) - (if (member _%path210936%_ _%result210915%_) - (_%loop210912%_ - _%rest210935%_ - _%result210915%_) - (_%loop210912%_ - _%rest210935%_ - (cons _%path210936%_ - _%result210915%_)))))) - (if (pair? _%rest210916210924%_) - (let ((_%hd210921210941%_ + (##map __tmp214705 gxc#gerbil-runtime-modules)))) + (_%remove-duplicates214213%_ + (append _%gerbil-runtime-scm214370%_ + _%libgerbil-scm214366%_))))) + (_%remove-duplicates214213%_ + (lambda (_%strlst214325%_) + (let _%loop214327%_ ((_%rest214329%_ _%strlst214325%_) + (_%result214330%_ '())) + (let* ((_%rest214331214339%_ _%rest214329%_) + (_%else214333214347%_ + (lambda () (reverse! _%result214330%_))) + (_%K214335214353%_ + (lambda (_%rest214350%_ _%path214351%_) + (if (member _%path214351%_ _%result214330%_) + (_%loop214327%_ + _%rest214350%_ + _%result214330%_) + (_%loop214327%_ + _%rest214350%_ + (cons _%path214351%_ + _%result214330%_)))))) + (if (pair? _%rest214331214339%_) + (let ((_%hd214336214356%_ (let () (declare (not safe)) - (##car _%rest210916210924%_))) - (_%tl210922210943%_ + (##car _%rest214331214339%_))) + (_%tl214337214358%_ (let () (declare (not safe)) - (##cdr _%rest210916210924%_)))) - (let* ((_%path210946%_ _%hd210921210941%_) - (_%rest210948%_ _%tl210922210943%_)) - (_%K210920210938%_ - _%rest210948%_ - _%path210946%_))) - (_%else210918210932%_)))))) - (_%compile-stub210799%_ - (lambda (_%output-scm210806%_ _%output-bin210807%_) - (let* ((_%gerbil-home210809%_ - (let ((__tmp211293 + (##cdr _%rest214331214339%_)))) + (let* ((_%path214361%_ _%hd214336214356%_) + (_%rest214363%_ _%tl214337214358%_)) + (_%K214335214353%_ + _%rest214363%_ + _%path214361%_))) + (_%else214333214347%_)))))) + (_%compile-stub214214%_ + (lambda (_%output-scm214221%_ _%output-bin214222%_) + (let* ((_%gerbil-home214224%_ + (let ((__tmp214708 (let () (declare (not safe)) (gerbil-home)))) (declare (not safe)) - (##getenv '"GERBIL_BUILD_PREFIX" __tmp211293))) - (_%gerbil-libdir210811%_ - (path-expand '"lib" _%gerbil-home210809%_)) - (_%gerbil-staticdir210813%_ - (path-expand '"static" _%gerbil-libdir210811%_)) - (_%deps210815%_ - (gxc#find-runtime-module-deps _%ctx210785%_)) - (_%libgerbil-deps210817%_ + (##getenv '"GERBIL_BUILD_PREFIX" __tmp214708))) + (_%gerbil-libdir214226%_ + (path-expand '"lib" _%gerbil-home214224%_)) + (_%gerbil-staticdir214228%_ + (path-expand '"static" _%gerbil-libdir214226%_)) + (_%deps214230%_ + (gxc#find-runtime-module-deps _%ctx214200%_)) + (_%libgerbil-deps214232%_ (let () (declare (not safe)) (##filter - _%libgerbil-module?210794%_ - _%deps210815%_))) - (_%libgerbil-scm210819%_ + _%libgerbil-module?214209%_ + _%deps214230%_))) + (_%libgerbil-scm214234%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%libgerbil-deps210817%_))) - (_%libgerbil-scm210821%_ - (_%fold-libgerbil-runtime-scm210797%_ - _%gerbil-staticdir210813%_ - _%libgerbil-scm210819%_)) - (_%libgerbil-c210823%_ - (map _%replace-extension-with-c210791%_ - _%libgerbil-scm210821%_)) - (_%libgerbil-o210825%_ - (map _%replace-extension-with-object210792%_ - _%libgerbil-scm210821%_)) - (_%src-deps210827%_ + _%libgerbil-deps214232%_))) + (_%libgerbil-scm214236%_ + (_%fold-libgerbil-runtime-scm214212%_ + _%gerbil-staticdir214228%_ + _%libgerbil-scm214234%_)) + (_%libgerbil-c214238%_ + (map _%replace-extension-with-c214206%_ + _%libgerbil-scm214236%_)) + (_%libgerbil-o214240%_ + (map _%replace-extension-with-object214207%_ + _%libgerbil-scm214236%_)) + (_%src-deps214242%_ (let () (declare (not safe)) (##filter - _%userlib-module?210793%_ - _%deps210815%_))) - (_%src-deps-scm210829%_ + _%userlib-module?214208%_ + _%deps214230%_))) + (_%src-deps-scm214244%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%src-deps210827%_))) - (_%src-deps-scm210831%_ + _%src-deps214242%_))) + (_%src-deps-scm214246%_ (let () (declare (not safe)) (##filter - _%not-file-empty?210796%_ - _%src-deps-scm210829%_))) - (_%src-deps-scm210833%_ + _%not-file-empty?214211%_ + _%src-deps-scm214244%_))) + (_%src-deps-scm214248%_ (let () (declare (not safe)) - (##map path-expand _%src-deps-scm210831%_))) - (_%src-deps-c210835%_ + (##map path-expand _%src-deps-scm214246%_))) + (_%src-deps-c214250%_ (let () (declare (not safe)) - (##map _%replace-extension-with-c210791%_ - _%src-deps-scm210833%_))) - (_%src-deps-o210837%_ + (##map _%replace-extension-with-c214206%_ + _%src-deps-scm214248%_))) + (_%src-deps-o214252%_ (let () (declare (not safe)) - (##map _%replace-extension-with-object210792%_ - _%src-deps-scm210833%_))) - (_%src-bin-scm210839%_ - (gxc#find-static-module-file _%ctx210785%_)) - (_%src-bin-scm210841%_ - (path-expand _%src-bin-scm210839%_)) - (_%src-bin-c210843%_ - (_%replace-extension-with-c210791%_ - _%src-bin-scm210841%_)) - (_%src-bin-o210845%_ - (_%replace-extension-with-object210792%_ - _%src-bin-scm210841%_)) - (_%output-bin210847%_ - (path-expand _%output-bin210807%_)) - (_%output-scm210849%_ - (path-expand _%output-scm210806%_)) - (_%output-c210851%_ - (_%replace-extension-with-c210791%_ - _%output-scm210849%_)) - (_%output-o210853%_ - (_%replace-extension-with-object210792%_ - _%output-scm210849%_)) - (_%output_-c210855%_ - (_%replace-extension210790%_ - _%output-scm210849%_ + (##map _%replace-extension-with-object214207%_ + _%src-deps-scm214248%_))) + (_%src-bin-scm214254%_ + (gxc#find-static-module-file _%ctx214200%_)) + (_%src-bin-scm214256%_ + (path-expand _%src-bin-scm214254%_)) + (_%src-bin-c214258%_ + (_%replace-extension-with-c214206%_ + _%src-bin-scm214256%_)) + (_%src-bin-o214260%_ + (_%replace-extension-with-object214207%_ + _%src-bin-scm214256%_)) + (_%output-bin214262%_ + (path-expand _%output-bin214222%_)) + (_%output-scm214264%_ + (path-expand _%output-scm214221%_)) + (_%output-c214266%_ + (_%replace-extension-with-c214206%_ + _%output-scm214264%_)) + (_%output-o214268%_ + (_%replace-extension-with-object214207%_ + _%output-scm214264%_)) + (_%output_-c214270%_ + (_%replace-extension214205%_ + _%output-scm214264%_ '"_.c")) - (_%output_-o210857%_ - (_%replace-extension210790%_ - _%output-scm210849%_ + (_%output_-o214272%_ + (_%replace-extension214205%_ + _%output-scm214264%_ (let () (declare (not safe)) (##string-append '"_" gxc#compiler-obj-suffix)))) - (_%gsc-link-opts210859%_ (gxc#gsc-link-options__0)) - (_%gsc-cc-opts210861%_ + (_%gsc-link-opts214274%_ (gxc#gsc-link-options__0)) + (_%gsc-cc-opts214276%_ (gxc#gsc-cc-options__%__0 '#f '#t)) - (_%gsc-static-opts210863%_ + (_%gsc-static-opts214278%_ (gxc#gsc-static-include-options - _%gerbil-staticdir210813%_)) - (_%output-ld-opts210865%_ (gxc#gcc-ld-options)) - (_%libgerbil-ld-opts210867%_ - (_%get-libgerbil-ld-opts210789%_ - _%gerbil-libdir210811%_)) - (_%rpath210869%_ - (gxc#gerbil-rpath _%gerbil-libdir210811%_)) - (_%builtin-modules210873%_ - (_%remove-duplicates210798%_ - (let ((__tmp211294 - (let ((__tmp211296 - (lambda (_%mod210871%_) + _%gerbil-staticdir214228%_)) + (_%output-ld-opts214280%_ (gxc#gcc-ld-options)) + (_%libgerbil-ld-opts214282%_ + (_%get-libgerbil-ld-opts214204%_ + _%gerbil-libdir214226%_)) + (_%rpath214284%_ + (gxc#gerbil-rpath _%gerbil-libdir214226%_)) + (_%builtin-modules214288%_ + (_%remove-duplicates214213%_ + (let ((__tmp214709 + (let ((__tmp214711 + (lambda (_%mod214286%_) (symbol->string (##structure-ref - _%mod210871%_ + _%mod214286%_ '1 gx#expander-context::t '#f)))) - (__tmp211295 - (cons _%ctx210785%_ - _%deps210815%_))) + (__tmp214710 + (cons _%ctx214200%_ + _%deps214230%_))) (declare (not safe)) - (##map __tmp211296 __tmp211295)))) + (##map __tmp214711 __tmp214710)))) (declare (not safe)) (##append gxc#gerbil-runtime-modules - __tmp211294))))) - (letrec ((_%compile-obj210876%_ - (lambda (_%scm-path210883%_ _%c-path210884%_) - (let* ((_%o-path210886%_ - (_%replace-extension210790%_ - _%c-path210884%_ + __tmp214709))))) + (letrec ((_%compile-obj214291%_ + (lambda (_%scm-path214298%_ _%c-path214299%_) + (let* ((_%o-path214301%_ + (_%replace-extension214205%_ + _%c-path214299%_ gxc#compiler-obj-suffix)) - (_%lock210888%_ + (_%lock214303%_ (let () (declare (not safe)) (##string-append - _%o-path210886%_ + _%o-path214301%_ '".lock"))) - (_%locked210890%_ '#f) - (_%unlock210893%_ + (_%locked214305%_ '#f) + (_%unlock214308%_ (lambda () - (close-port _%locked210890%_) + (close-port _%locked214305%_) (let () (declare (not safe)) (##delete-file - _%lock210888%_))))) - (let _%retry210896%_ () + _%lock214303%_))))) + (let _%retry214311%_ () (if (let () (declare (not safe)) - (##file-exists? _%lock210888%_)) + (##file-exists? _%lock214303%_)) (begin (thread-sleep! '.01) - (_%retry210896%_)) + (_%retry214311%_)) (begin - (set! _%locked210890%_ - (let ((__tmp211297 + (set! _%locked214305%_ + (let ((__tmp214712 (lambda () (open-file (cons 'path: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lock210888%_ + (cons _%lock214303%_ (cons 'create: (cons '#t '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__with-catch false - __tmp211297))) - (if _%locked210890%_ + __tmp214712))) + (if _%locked214305%_ '#!void - (_%retry210896%_))))) - (let ((__tmp211299 + (_%retry214311%_))))) + (let ((__tmp214714 (lambda () (if (or (not (let () (declare (not safe)) (##file-exists? - _%o-path210886%_))) - (not _%scm-path210883%_) + _%o-path214301%_))) + (not _%scm-path214298%_) (let () (declare (not safe)) (file-newer? - _%scm-path210883%_ - _%o-path210886%_))) - (let ((_%gsc-cc-opts210907%_ + _%scm-path214298%_ + _%o-path214301%_))) + (let ((_%gsc-cc-opts214322%_ (gxc#gsc-cc-options__%__0 '#f '#f))) @@ -860,41 +860,41 @@ absent-value (gxc#gerbil-gsc) (cons '"-obj" - (let ((__tmp211300 + (let ((__tmp214715 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp211301 (cons _%c-path210884%_ '()))) + (let ((__tmp214716 (cons _%c-path214299%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp211301 - _%gsc-static-opts210863%_)))) + __tmp214716 + _%gsc-static-opts214278%_)))) (declare (not safe)) - (__foldr1 cons __tmp211300 _%gsc-cc-opts210907%_))))) + (__foldr1 cons __tmp214715 _%gsc-cc-opts214322%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (__tmp211298 - (lambda () (_%unlock210893%_)))) + (__tmp214713 + (lambda () (_%unlock214308%_)))) (declare (not safe)) (__with-unwind-protect - __tmp211299 - __tmp211298)))))) - (let ((__tmp211302 + __tmp214714 + __tmp214713)))))) + (let ((__tmp214717 (lambda () - (let ((__tmp211303 - (path-directory _%output-bin210847%_))) + (let ((__tmp214718 + (path-directory _%output-bin214262%_))) (declare (not safe)) - (create-directory*__0 __tmp211303))))) + (create-directory*__0 __tmp214718))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp211302)) + (__with-lock gxc#+driver-mutex+ __tmp214717)) (gxc#with-output-to-scheme-file - _%output-scm210849%_ + _%output-scm214264%_ (lambda () - (_%generate-stub210788%_ - _%builtin-modules210873%_))) + (_%generate-stub214203%_ + _%builtin-modules214288%_))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it210881%_ + (let ((_%compile-it214296%_ (lambda () (gxc#invoke__% '#f @@ -902,46 +902,46 @@ absent-value (gxc#gerbil-gsc) (cons '"-link" - (let ((__tmp211304 - (let ((__tmp211305 - (let ((__tmp211306 + (let ((__tmp214719 + (let ((__tmp214720 + (let ((__tmp214721 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%src-bin-scm210841%_ - (cons _%output-scm210849%_ '())))) + (cons _%src-bin-scm214256%_ + (cons _%output-scm214264%_ '())))) (declare (not safe)) - (__foldr1 cons __tmp211306 _%src-deps-scm210833%_)))) + (__foldr1 cons __tmp214721 _%src-deps-scm214248%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp211305 - _%libgerbil-c210823%_)))) + __tmp214720 + _%libgerbil-c214238%_)))) (declare (not safe)) (__foldr1 cons - __tmp211304 - _%gsc-link-opts210859%_)))) + __tmp214719 + _%gsc-link-opts214274%_)))) (for-each - _%compile-obj210876%_ - (let ((__tmp211307 - (cons _%src-bin-scm210841%_ - (cons _%output-scm210849%_ + _%compile-obj214291%_ + (let ((__tmp214722 + (cons _%src-bin-scm214256%_ + (cons _%output-scm214264%_ (cons '#f '()))))) (declare (not safe)) (__foldr1 cons - __tmp211307 - _%src-deps-scm210833%_)) - (let ((__tmp211308 - (cons _%src-bin-c210843%_ - (cons _%output-c210851%_ - (cons _%output_-c210855%_ + __tmp214722 + _%src-deps-scm214248%_)) + (let ((__tmp214723 + (cons _%src-bin-c214258%_ + (cons _%output-c214266%_ + (cons _%output_-c214270%_ '()))))) (declare (not safe)) (__foldr1 cons - __tmp211308 - _%src-deps-c210835%_))) + __tmp214723 + _%src-deps-c214250%_))) (gxc#invoke__% '#f absent-value @@ -949,71 +949,71 @@ (gxc#gerbil-gcc) (cons '"-w" (cons '"-o" - (cons _%output-bin210847%_ - (let ((__tmp211309 - (cons _%src-bin-o210845%_ + (cons _%output-bin214262%_ + (let ((__tmp214724 + (cons _%src-bin-o214260%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%output-o210853%_ - (cons _%output_-o210857%_ - (let ((__tmp211310 - (let ((__tmp211311 - (let ((__tmp211313 + (cons _%output-o214268%_ + (cons _%output_-o214272%_ + (let ((__tmp214725 + (let ((__tmp214726 + (let ((__tmp214728 (cons '"-L" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%gerbil-libdir210811%_ + (cons _%gerbil-libdir214226%_ (cons '"-lgambit" - _%libgerbil-ld-opts210867%_)))) - (__tmp211312 + _%libgerbil-ld-opts214282%_)))) + (__tmp214727 (if (gxc#gerbil-enable-shared?) - (cons _%rpath210869%_ '()) + (cons _%rpath214284%_ '()) '()))) (declare (not safe)) - (__foldr1 cons __tmp211313 __tmp211312)))) + (__foldr1 cons __tmp214728 __tmp214727)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp211311 - _%output-ld-opts210865%_)))) + __tmp214726 + _%output-ld-opts214280%_)))) (declare (not safe)) (__foldr1 cons - __tmp211310 - _%libgerbil-o210825%_))))))) + __tmp214725 + _%libgerbil-o214240%_))))))) (declare (not safe)) - (__foldr1 cons __tmp211309 _%src-deps-o210837%_)))))) + (__foldr1 cons __tmp214724 _%src-deps-o214252%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp211314 - (cons _%output-c210851%_ - (cons _%output_-c210855%_ - (cons _%output-o210853%_ - (cons _%output_-o210857%_ + (let ((__tmp214729 + (cons _%output-c214266%_ + (cons _%output_-c214270%_ + (cons _%output-o214268%_ + (cons _%output_-o214272%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##for-each delete-file __tmp211314))))) + (##for-each delete-file __tmp214729))))) (if (let () (declare (not safe)) (gxc#current-compile-parallel)) (let () (declare (not safe)) (gxc#add-compile-job!__0 - _%compile-it210881%_)) - (_%compile-it210881%_))) + _%compile-it214296%_)) + (_%compile-it214296%_))) '#!void)))))) - (let* ((_%output-bin210801%_ - (gxc#compile-exe-output-file _%ctx210785%_ _%opts210786%_)) - (_%output-scm210803%_ + (let* ((_%output-bin214216%_ + (gxc#compile-exe-output-file _%ctx214200%_ _%opts214201%_)) + (_%output-scm214218%_ (let () (declare (not safe)) - (##string-append _%output-bin210801%_ '"__exe.scm")))) - (_%compile-stub210799%_ - _%output-scm210803%_ - _%output-bin210801%_))))) + (##string-append _%output-bin214216%_ '"__exe.scm")))) + (_%compile-stub214214%_ + _%output-scm214218%_ + _%output-bin214216%_))))) (define gxc#compile-executable-module/full-program-optimization - (lambda (_%ctx210607%_ _%opts210608%_) - (letrec ((_%reset-declare210610%_ + (lambda (_%ctx214022%_ _%opts214023%_) + (letrec ((_%reset-declare214025%_ (lambda () '(declare (gambit-scheme) @@ -1035,36 +1035,36 @@ (optimize-dead-definitions) (generic) (mostly-fixnum-flonum)))) - (_%generate-stub210611%_ - (lambda (_%deps210776%_) - (let ((_%mod-main210778%_ - (gxc#find-runtime-symbol _%ctx210607%_ 'main)) - (_%reset-decl210779%_ (_%reset-declare210610%_)) - (_%user-decl210780%_ (_%user-declare210612%_))) + (_%generate-stub214026%_ + (lambda (_%deps214191%_) + (let ((_%mod-main214193%_ + (gxc#find-runtime-symbol _%ctx214022%_ 'main)) + (_%reset-decl214194%_ (_%reset-declare214025%_)) + (_%user-decl214195%_ (_%user-declare214027%_))) (for-each - (lambda (_%dep210782%_) + (lambda (_%dep214197%_) (let () (declare (not safe)) (##write '(##namespace ("")))) (newline) (let () (declare (not safe)) - (##write _%reset-decl210779%_)) + (##write _%reset-decl214194%_)) (newline) - (if _%user-decl210780%_ + (if _%user-decl214195%_ (begin (let () (declare (not safe)) - (##write _%user-decl210780%_)) + (##write _%user-decl214195%_)) (newline)) '#!void) - (let ((__tmp211315 - (cons 'include (cons _%dep210782%_ '())))) + (let ((__tmp214730 + (cons 'include (cons _%dep214197%_ '())))) (declare (not safe)) - (##write __tmp211315)) + (##write __tmp214730)) (newline)) - _%deps210776%_) - (let ((__tmp211316 + _%deps214191%_) + (let ((__tmp214731 (cons 'define (cons (cons 'gerbil-main '()) (cons (cons 'gerbil-runtime-init! @@ -1074,176 +1074,176 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'apply - (cons _%mod-main210778%_ + (cons _%mod-main214193%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'cdr (cons (cons 'command-line '()) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (##write __tmp211316)) + (##write __tmp214731)) (let () (declare (not safe)) (##write '(gerbil-main))) (newline)))) - (_%user-declare210612%_ + (_%user-declare214027%_ (lambda () - (let* ((_%gsc-opts210681%_ + (let* ((_%gsc-opts214096%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts210608%_))) - (_%gsc-prelude210683%_ - (if _%gsc-opts210681%_ - (member '"-prelude" _%gsc-opts210681%_) + (pgetq__0 'gsc-options: _%opts214023%_))) + (_%gsc-prelude214098%_ + (if _%gsc-opts214096%_ + (member '"-prelude" _%gsc-opts214096%_) '#f)) - (_%gsc-prelude210685%_ - (if _%gsc-prelude210683%_ + (_%gsc-prelude214100%_ + (if _%gsc-prelude214098%_ (read (open-input-string - (cadr _%gsc-prelude210683%_))) + (cadr _%gsc-prelude214098%_))) '#f))) - (let _%lp210688%_ ((_%rest210690%_ - (cons _%gsc-prelude210685%_ '())) - (_%user-decls210691%_ '())) - (let* ((_%rest210692210700%_ _%rest210690%_) - (_%else210694210708%_ + (let _%lp214103%_ ((_%rest214105%_ + (cons _%gsc-prelude214100%_ '())) + (_%user-decls214106%_ '())) + (let* ((_%rest214107214115%_ _%rest214105%_) + (_%else214109214123%_ (lambda () - (if (null? _%user-decls210691%_) + (if (null? _%user-decls214106%_) '#f (cons 'declare - (reverse _%user-decls210691%_))))) - (_%K210696210764%_ - (lambda (_%rest210711%_ _%expr210712%_) - (let* ((_%expr210713210725%_ _%expr210712%_) - (_%else210716210733%_ + (reverse _%user-decls214106%_))))) + (_%K214111214179%_ + (lambda (_%rest214126%_ _%expr214127%_) + (let* ((_%expr214128214140%_ _%expr214127%_) + (_%else214131214148%_ (lambda () - (_%lp210688%_ - _%rest210711%_ - _%user-decls210691%_)))) - (let ((_%K210721210754%_ - (lambda (_%decls210752%_) - (_%lp210688%_ - _%rest210711%_ + (_%lp214103%_ + _%rest214126%_ + _%user-decls214106%_)))) + (let ((_%K214136214169%_ + (lambda (_%decls214167%_) + (_%lp214103%_ + _%rest214126%_ (let () (declare (not safe)) (__foldl1 cons - _%user-decls210691%_ - _%decls210752%_))))) - (_%K210718210739%_ - (lambda (_%exprs210737%_) - (_%lp210688%_ - (append _%exprs210737%_ - _%rest210711%_) - _%user-decls210691%_)))) - (if (pair? _%expr210713210725%_) - (let ((_%tl210723210759%_ + _%user-decls214106%_ + _%decls214167%_))))) + (_%K214133214154%_ + (lambda (_%exprs214152%_) + (_%lp214103%_ + (append _%exprs214152%_ + _%rest214126%_) + _%user-decls214106%_)))) + (if (pair? _%expr214128214140%_) + (let ((_%tl214138214174%_ (let () (declare (not safe)) - (##cdr _%expr210713210725%_))) - (_%hd210722210757%_ + (##cdr _%expr214128214140%_))) + (_%hd214137214172%_ (let () (declare (not safe)) - (##car _%expr210713210725%_)))) + (##car _%expr214128214140%_)))) (if (let () (declare (not safe)) - (##eq? _%hd210722210757%_ + (##eq? _%hd214137214172%_ 'declare)) - (let ((_%decls210762%_ - _%tl210723210759%_)) - (_%K210721210754%_ - _%decls210762%_)) + (let ((_%decls214177%_ + _%tl214138214174%_)) + (_%K214136214169%_ + _%decls214177%_)) (if (let () (declare (not safe)) - (##eq? _%hd210722210757%_ + (##eq? _%hd214137214172%_ 'begin)) - (let ((_%exprs210747%_ - _%tl210723210759%_)) - (_%K210718210739%_ - _%exprs210747%_)) - (_%else210716210733%_)))) - (_%else210716210733%_))))))) - (if (pair? _%rest210692210700%_) - (let ((_%hd210697210767%_ + (let ((_%exprs214162%_ + _%tl214138214174%_)) + (_%K214133214154%_ + _%exprs214162%_)) + (_%else214131214148%_)))) + (_%else214131214148%_))))))) + (if (pair? _%rest214107214115%_) + (let ((_%hd214112214182%_ (let () (declare (not safe)) - (##car _%rest210692210700%_))) - (_%tl210698210769%_ + (##car _%rest214107214115%_))) + (_%tl214113214184%_ (let () (declare (not safe)) - (##cdr _%rest210692210700%_)))) - (let* ((_%expr210772%_ _%hd210697210767%_) - (_%rest210774%_ _%tl210698210769%_)) - (_%K210696210764%_ - _%rest210774%_ - _%expr210772%_))) - (_%else210694210708%_))))))) - (_%compile-stub210613%_ - (lambda (_%output-scm210620%_ _%output-bin210621%_) - (let* ((_%gerbil-home210623%_ - (let ((__tmp211317 + (##cdr _%rest214107214115%_)))) + (let* ((_%expr214187%_ _%hd214112214182%_) + (_%rest214189%_ _%tl214113214184%_)) + (_%K214111214179%_ + _%rest214189%_ + _%expr214187%_))) + (_%else214109214123%_))))))) + (_%compile-stub214028%_ + (lambda (_%output-scm214035%_ _%output-bin214036%_) + (let* ((_%gerbil-home214038%_ + (let ((__tmp214732 (let () (declare (not safe)) (gerbil-home)))) (declare (not safe)) - (##getenv '"GERBIL_BUILD_PREFIX" __tmp211317))) - (_%gerbil-libdir210625%_ - (path-expand '"lib" _%gerbil-home210623%_)) - (_%runtime210627%_ + (##getenv '"GERBIL_BUILD_PREFIX" __tmp214732))) + (_%gerbil-libdir214040%_ + (path-expand '"lib" _%gerbil-home214038%_)) + (_%runtime214042%_ (let () (declare (not safe)) (##map gxc#find-static-module-file gxc#gerbil-runtime-modules))) - (_%gambit-sharp210629%_ + (_%gambit-sharp214044%_ (path-expand '"lib/_gambit#.scm" - _%gerbil-home210623%_)) - (_%include-gambit-sharp210631%_ - (gxc#include-source _%gambit-sharp210629%_)) - (_%bin-scm210633%_ - (gxc#find-static-module-file _%ctx210607%_)) - (_%deps210635%_ - (gxc#find-runtime-module-deps _%ctx210607%_)) - (_%deps210637%_ + _%gerbil-home214038%_)) + (_%include-gambit-sharp214046%_ + (gxc#include-source _%gambit-sharp214044%_)) + (_%bin-scm214048%_ + (gxc#find-static-module-file _%ctx214022%_)) + (_%deps214050%_ + (gxc#find-runtime-module-deps _%ctx214022%_)) + (_%deps214052%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%deps210635%_))) - (_%deps210642%_ - (let ((__tmp211318 - (lambda (_%$obj210639%_) - (not (gxc#file-empty? _%$obj210639%_))))) + _%deps214050%_))) + (_%deps214057%_ + (let ((__tmp214733 + (lambda (_%$obj214054%_) + (not (gxc#file-empty? _%$obj214054%_))))) (declare (not safe)) - (##filter __tmp211318 _%deps210637%_))) - (_%deps210646%_ - (let ((__tmp211319 - (lambda (_%f210644%_) + (##filter __tmp214733 _%deps214052%_))) + (_%deps214061%_ + (let ((__tmp214734 + (lambda (_%f214059%_) (not (let () (declare (not safe)) (##member - _%f210644%_ - _%runtime210627%_)))))) + _%f214059%_ + _%runtime214042%_)))))) (declare (not safe)) - (##filter __tmp211319 _%deps210642%_))) - (_%output-base210648%_ - (let ((__tmp211320 + (##filter __tmp214734 _%deps214057%_))) + (_%output-base214063%_ + (let ((__tmp214735 (path-strip-extension - _%output-scm210620%_))) + _%output-scm214035%_))) (declare (not safe)) - (##string-append __tmp211320))) - (_%output-c210650%_ + (##string-append __tmp214735))) + (_%output-c214065%_ (let () (declare (not safe)) - (##string-append _%output-base210648%_ '".c"))) - (_%output-o210652%_ + (##string-append _%output-base214063%_ '".c"))) + (_%output-o214067%_ (let () (declare (not safe)) (##string-append - _%output-base210648%_ + _%output-base214063%_ gxc#compiler-obj-suffix))) - (_%output-c_210654%_ + (_%output-c_214069%_ (let () (declare (not safe)) - (##string-append _%output-base210648%_ '"_.c"))) - (_%output-o_210656%_ - (let ((__tmp211321 + (##string-append _%output-base214063%_ '"_.c"))) + (_%output-o_214071%_ + (let ((__tmp214736 (let () (declare (not safe)) (##string-append @@ -1251,63 +1251,63 @@ gxc#compiler-obj-suffix)))) (declare (not safe)) (##string-append - _%output-base210648%_ - __tmp211321))) - (_%gsc-link-opts210658%_ (gxc#gsc-link-options__0)) - (_%gsc-cc-opts210660%_ + _%output-base214063%_ + __tmp214736))) + (_%gsc-link-opts214073%_ (gxc#gsc-link-options__0)) + (_%gsc-cc-opts214075%_ (gxc#gsc-cc-options__%__0 '#f '#t)) - (_%gsc-static-opts210662%_ + (_%gsc-static-opts214077%_ (gxc#gsc-static-include-options - (path-expand '"static" _%gerbil-libdir210625%_))) - (_%output-ld-opts210664%_ (gxc#gcc-ld-options)) - (_%gsc-gx-macros210666%_ + (path-expand '"static" _%gerbil-libdir214040%_))) + (_%output-ld-opts214079%_ (gxc#gcc-ld-options)) + (_%gsc-gx-macros214081%_ (if (let () (declare (not safe)) (gerbil-runtime-smp?)) (cons '"-e" (cons '"(define-cond-expand-feature|enable-smp|)" (cons '"-e" - (cons _%include-gambit-sharp210631%_ + (cons _%include-gambit-sharp214046%_ '())))) (cons '"-e" - (cons _%include-gambit-sharp210631%_ + (cons _%include-gambit-sharp214046%_ '())))) - (_%gsc-link-opts210668%_ + (_%gsc-link-opts214083%_ (let () (declare (not safe)) (##append - _%gsc-link-opts210658%_ - _%gsc-gx-macros210666%_))) - (_%rpath210670%_ - (gxc#gerbil-rpath _%gerbil-libdir210625%_)) - (_%default-ld-options210672%_ + _%gsc-link-opts214073%_ + _%gsc-gx-macros214081%_))) + (_%rpath214085%_ + (gxc#gerbil-rpath _%gerbil-libdir214040%_)) + (_%default-ld-options214087%_ (cons '"-ldl" (cons '"-lm" '())))) - (let ((__tmp211322 + (let ((__tmp214737 (lambda () - (let ((__tmp211323 - (path-directory _%output-bin210621%_))) + (let ((__tmp214738 + (path-directory _%output-bin214036%_))) (declare (not safe)) - (create-directory*__0 __tmp211323))))) + (create-directory*__0 __tmp214738))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp211322)) + (__with-lock gxc#+driver-mutex+ __tmp214737)) (gxc#with-output-to-scheme-file - _%output-scm210620%_ + _%output-scm214035%_ (lambda () - (_%generate-stub210611%_ - (let ((__tmp211324 - (let ((__tmp211325 - (cons _%bin-scm210633%_ '()))) + (_%generate-stub214026%_ + (let ((__tmp214739 + (let ((__tmp214740 + (cons _%bin-scm214048%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp211325 - _%deps210646%_)))) + __tmp214740 + _%deps214061%_)))) (declare (not safe)) - (__foldr1 cons __tmp211324 _%runtime210627%_))))) + (__foldr1 cons __tmp214739 _%runtime214042%_))))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it210678%_ + (let ((_%compile-it214093%_ (lambda () (gxc#invoke__% '#f @@ -1316,13 +1316,13 @@ (gxc#gerbil-gsc) (cons '"-link" (cons '"-o" - (cons _%output-c_210654%_ - (let ((__tmp211326 - (cons _%output-scm210620%_ + (cons _%output-c_214069%_ + (let ((__tmp214741 + (cons _%output-scm214035%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) (declare (not safe)) - (__foldr1 cons __tmp211326 _%gsc-link-opts210668%_)))))) + (__foldr1 cons __tmp214741 _%gsc-link-opts214083%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gxc#invoke__% '#f @@ -1330,23 +1330,23 @@ absent-value (gxc#gerbil-gsc) (cons '"-obj" - (let ((__tmp211327 - (let ((__tmp211328 - (cons _%output-c210650%_ - (cons _%output-c_210654%_ + (let ((__tmp214742 + (let ((__tmp214743 + (cons _%output-c214065%_ + (cons _%output-c_214069%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp211328 - _%gsc-static-opts210662%_)))) + __tmp214743 + _%gsc-static-opts214077%_)))) (declare (not safe)) (__foldr1 cons - __tmp211327 - _%gsc-cc-opts210660%_)))) + __tmp214742 + _%gsc-cc-opts214075%_)))) (gxc#invoke__% '#f absent-value @@ -1354,27 +1354,27 @@ (gxc#gerbil-gcc) (cons '"-w" (cons '"-o" - (cons _%output-bin210621%_ - (cons _%output-o210652%_ - (cons _%output-o_210656%_ + (cons _%output-bin214036%_ + (cons _%output-o214067%_ + (cons _%output-o_214071%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp211329 - (let ((__tmp211331 + (let ((__tmp214744 + (let ((__tmp214746 (cons '"-L" - (cons _%gerbil-libdir210625%_ + (cons _%gerbil-libdir214040%_ (cons '"-lgambit" - _%default-ld-options210672%_)))) - (__tmp211330 + _%default-ld-options214087%_)))) + (__tmp214745 (if (gxc#gerbil-enable-shared?) - (cons _%rpath210670%_ '()) + (cons _%rpath214085%_ '()) '()))) (declare (not safe)) - (__foldr1 cons __tmp211331 __tmp211330)))) + (__foldr1 cons __tmp214746 __tmp214745)))) (declare (not safe)) (__foldr1 cons - __tmp211329 - _%output-ld-opts210664%_))))))))))) + __tmp214744 + _%output-ld-opts214079%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) @@ -1382,627 +1382,627 @@ (let () (declare (not safe)) (gxc#add-compile-job!__0 - _%compile-it210678%_)) - (_%compile-it210678%_))) + _%compile-it214093%_)) + (_%compile-it214093%_))) '#!void))))) - (let* ((_%output-bin210615%_ - (gxc#compile-exe-output-file _%ctx210607%_ _%opts210608%_)) - (_%output-scm210617%_ + (let* ((_%output-bin214030%_ + (gxc#compile-exe-output-file _%ctx214022%_ _%opts214023%_)) + (_%output-scm214032%_ (let () (declare (not safe)) - (##string-append _%output-bin210615%_ '"__exe.scm")))) - (_%compile-stub210613%_ - _%output-scm210617%_ - _%output-bin210615%_))))) + (##string-append _%output-bin214030%_ '"__exe.scm")))) + (_%compile-stub214028%_ + _%output-scm214032%_ + _%output-bin214030%_))))) (define gxc#find-export-binding - (lambda (_%ctx210556%_ _%id210557%_) - (let ((_%$e210603%_ - (let ((__tmp211333 - (lambda (_%e210558210560%_) - (let* ((_%g210562210572%_ _%e210558210560%_) - (_%else210564210580%_ (lambda () '#f)) - (_%K210566210584%_ (lambda () '#t))) + (lambda (_%ctx213971%_ _%id213972%_) + (let ((_%$e214018%_ + (let ((__tmp214748 + (lambda (_%e213973213975%_) + (let* ((_%e213973213977213987%_ _%e213973213975%_) + (_%else213979213995%_ (lambda () '#f)) + (_%K213981213999%_ (lambda () '#t))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%g210562210572%_ + _%e213973213977213987%_ 'gx#module-export::t)) - (let* ((_%e210567210587%_ + (let* ((_%e213982214002%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g210562210572%_ + _%e213973213977213987%_ '1 '#f '#f))) - (_%e210568210590%_ + (_%e213983214005%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g210562210572%_ + _%e213973213977213987%_ '2 '#f '#f))) - (_%e210569210593%_ + (_%e213984214008%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g210562210572%_ + _%e213973213977213987%_ '3 '#f '#f)))) (if (let () (declare (not safe)) - (##eq? _%e210569210593%_ '0)) - (let ((_%e210570210596%_ + (##eq? _%e213984214008%_ '0)) + (let ((_%e213985214011%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g210562210572%_ + _%e213973213977213987%_ '4 '#f '#f)))) - (if ((lambda (_%g210598210600%_) - (eq? _%g210598210600%_ - _%id210557%_)) - _%e210570210596%_) - (_%K210566210584%_) - (_%else210564210580%_))) - (_%else210564210580%_))) - (_%else210564210580%_))))) - (__tmp211332 + (if ((lambda (_%g214013214015%_) + (eq? _%g214013214015%_ + _%id213972%_)) + _%e213985214011%_) + (_%K213981213999%_) + (_%else213979213995%_))) + (_%else213979213995%_))) + (_%else213979213995%_))))) + (__tmp214747 (##structure-ref - _%ctx210556%_ + _%ctx213971%_ '9 gx#module-context::t '#f))) (declare (not safe)) - (__find __tmp211333 __tmp211332)))) - (if _%$e210603%_ + (__find __tmp214748 __tmp214747)))) + (if _%$e214018%_ (let () (declare (not safe)) - (gx#core-resolve-module-export _%$e210603%_)) + (gx#core-resolve-module-export _%$e214018%_)) '#f)))) (define gxc#find-runtime-symbol - (lambda (_%ctx210547%_ _%id210548%_) - (let ((_%$e210550%_ - (gxc#find-export-binding _%ctx210547%_ _%id210548%_))) - (if _%$e210550%_ - ((lambda (_%bind210553%_) + (lambda (_%ctx213962%_ _%id213963%_) + (let ((_%$e213965%_ + (gxc#find-export-binding _%ctx213962%_ _%id213963%_))) + (if _%$e213965%_ + ((lambda (_%bind213968%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%bind210553%_ + _%bind213968%_ 'gx#runtime-binding::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"export is not a runtime binding" - _%id210548%_))) - (##structure-ref _%bind210553%_ '1 gx#binding::t '#f)) - _%$e210550%_) - (let ((__tmp211334 + _%id213963%_))) + (##structure-ref _%bind213968%_ '1 gx#binding::t '#f)) + _%$e213965%_) + (let ((__tmp214749 (##structure-ref - _%ctx210547%_ + _%ctx213962%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"module does not export symbol" - __tmp211334 - _%id210548%_)))))) + __tmp214749 + _%id213963%_)))))) (define gxc#find-runtime-module-deps - (lambda (_%ctx210413%_) - (letrec* ((_%ht210415%_ + (lambda (_%ctx213828%_) + (letrec* ((_%ht213830%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%import-set-template210416%_ - (lambda (_%in210492%_ _%phi210493%_) - (let ((_%iphi210495%_ - (fx+ _%phi210493%_ + (_%import-set-template213831%_ + (lambda (_%in213907%_ _%phi213908%_) + (let ((_%iphi213910%_ + (fx+ _%phi213908%_ (##direct-structure-ref - _%in210492%_ + _%in213907%_ '2 gx#import-set::t '#f))) - (_%imports210496%_ + (_%imports213911%_ (##structure-ref (##direct-structure-ref - _%in210492%_ + _%in213907%_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _%lp210498%_ ((_%rest210500%_ _%imports210496%_) - (_%r210501%_ '())) - (let* ((_%rest210502210510%_ _%rest210500%_) - (_%else210504210518%_ (lambda () _%r210501%_)) - (_%K210506210535%_ - (lambda (_%rest210521%_ _%in210522%_) + (let _%lp213913%_ ((_%rest213915%_ _%imports213911%_) + (_%r213916%_ '())) + (let* ((_%rest213917213925%_ _%rest213915%_) + (_%else213919213933%_ (lambda () _%r213916%_)) + (_%K213921213950%_ + (lambda (_%rest213936%_ _%in213937%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in210522%_ + _%in213937%_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (##fxzero? _%iphi210495%_)) - (_%lp210498%_ - _%rest210521%_ - (cons _%in210522%_ _%r210501%_)) - (_%lp210498%_ - _%rest210521%_ - _%r210501%_)) + (##fxzero? _%iphi213910%_)) + (_%lp213913%_ + _%rest213936%_ + (cons _%in213937%_ _%r213916%_)) + (_%lp213913%_ + _%rest213936%_ + _%r213916%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in210522%_ + _%in213937%_ 'gx#module-import::t)) - (let ((_%iphi210526%_ - (fx+ _%phi210493%_ + (let ((_%iphi213941%_ + (fx+ _%phi213908%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in210522%_ + _%in213937%_ '3 '#f '#f))))) (if (let () (declare (not safe)) - (##fxzero? _%iphi210526%_)) - (_%lp210498%_ - _%rest210521%_ + (##fxzero? _%iphi213941%_)) + (_%lp213913%_ + _%rest213936%_ (cons (##direct-structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%in210522%_ + _%in213937%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%r210501%_)) - (_%lp210498%_ - _%rest210521%_ - _%r210501%_))) + _%r213916%_)) + (_%lp213913%_ + _%rest213936%_ + _%r213916%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in210522%_ + _%in213937%_ 'gx#import-set::t)) - (let ((_%xphi210529%_ - (fx+ _%iphi210495%_ + (let ((_%xphi213944%_ + (fx+ _%iphi213910%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in210522%_ + _%in213937%_ '2 '#f '#f))))) (if (let () (declare (not safe)) (##fxzero? - _%xphi210529%_)) - (_%lp210498%_ - _%rest210521%_ + _%xphi213944%_)) + (_%lp213913%_ + _%rest213936%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%in210522%_ + _%in213937%_ '1 '#f '#f)) - _%r210501%_)) + _%r213916%_)) (if (let () (declare (not safe)) (##fxpositive? - _%xphi210529%_)) - (_%lp210498%_ - _%rest210521%_ - (let ((__tmp211335 + _%xphi213944%_)) + (_%lp213913%_ + _%rest213936%_ + (let ((__tmp214750 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%import-set-template210416%_ - _%in210522%_ - _%iphi210495%_))) + (_%import-set-template213831%_ + _%in213937%_ + _%iphi213910%_))) (declare (not safe)) - (__foldl1 cons _%r210501%_ __tmp211335))) - (_%lp210498%_ _%rest210521%_ _%r210501%_)))) + (__foldl1 cons _%r213916%_ __tmp214750))) + (_%lp213913%_ _%rest213936%_ _%r213916%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp210498%_ - _%rest210521%_ - _%r210501%_))))))) - (if (pair? _%rest210502210510%_) - (let ((_%hd210507210538%_ + (_%lp213913%_ + _%rest213936%_ + _%r213916%_))))))) + (if (pair? _%rest213917213925%_) + (let ((_%hd213922213953%_ (let () (declare (not safe)) - (##car _%rest210502210510%_))) - (_%tl210508210540%_ + (##car _%rest213917213925%_))) + (_%tl213923213955%_ (let () (declare (not safe)) - (##cdr _%rest210502210510%_)))) - (let* ((_%in210543%_ _%hd210507210538%_) - (_%rest210545%_ _%tl210508210540%_)) - (_%K210506210535%_ - _%rest210545%_ - _%in210543%_))) - (_%else210504210518%_))))))) - (_%find-deps210417%_ - (lambda (_%rest210425%_ _%deps210426%_) - (let* ((_%rest210427210435%_ _%rest210425%_) - (_%else210429210443%_ (lambda () _%deps210426%_)) - (_%K210431210480%_ - (lambda (_%rest210446%_ _%hd210447%_) + (##cdr _%rest213917213925%_)))) + (let* ((_%in213958%_ _%hd213922213953%_) + (_%rest213960%_ _%tl213923213955%_)) + (_%K213921213950%_ + _%rest213960%_ + _%in213958%_))) + (_%else213919213933%_))))))) + (_%find-deps213832%_ + (lambda (_%rest213840%_ _%deps213841%_) + (let* ((_%rest213842213850%_ _%rest213840%_) + (_%else213844213858%_ (lambda () _%deps213841%_)) + (_%K213846213895%_ + (lambda (_%rest213861%_ _%hd213862%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd210447%_ + _%hd213862%_ 'gx#module-context::t)) - (let ((_%id210450%_ + (let ((_%id213865%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd210447%_ + _%hd213862%_ '1 '#f '#f))) - (_%imports210451%_ + (_%imports213866%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd210447%_ + _%hd213862%_ '8 '#f '#f)))) (if (let () (declare (not safe)) (__hash-get - _%ht210415%_ - _%id210450%_)) - (_%find-deps210417%_ - _%rest210446%_ - _%deps210426%_) - (let ((_%$e210454%_ + _%ht213830%_ + _%id213865%_)) + (_%find-deps213832%_ + _%rest213861%_ + _%deps213841%_) + (let ((_%$e213869%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%hd210447%_)))) - (if _%$e210454%_ - ((lambda (_%pre210457%_) - (let ((_%xdeps210459%_ - (_%find-deps210417%_ - (cons _%pre210457%_ - _%imports210451%_) - _%deps210426%_))) + _%hd213862%_)))) + (if _%$e213869%_ + ((lambda (_%pre213872%_) + (let ((_%xdeps213874%_ + (_%find-deps213832%_ + (cons _%pre213872%_ + _%imports213866%_) + _%deps213841%_))) (let () (declare (not safe)) (__hash-put! - _%ht210415%_ - _%id210450%_ - _%hd210447%_)) - (_%find-deps210417%_ - _%rest210446%_ - (cons _%hd210447%_ - _%xdeps210459%_)))) - _%$e210454%_) - (let ((_%xdeps210462%_ - (_%find-deps210417%_ - _%imports210451%_ - _%deps210426%_))) + _%ht213830%_ + _%id213865%_ + _%hd213862%_)) + (_%find-deps213832%_ + _%rest213861%_ + (cons _%hd213862%_ + _%xdeps213874%_)))) + _%$e213869%_) + (let ((_%xdeps213877%_ + (_%find-deps213832%_ + _%imports213866%_ + _%deps213841%_))) (let () (declare (not safe)) (__hash-put! - _%ht210415%_ - _%id210450%_ - _%hd210447%_)) - (_%find-deps210417%_ - _%rest210446%_ - (cons _%hd210447%_ - _%xdeps210462%_))))))) + _%ht213830%_ + _%id213865%_ + _%hd213862%_)) + (_%find-deps213832%_ + _%rest213861%_ + (cons _%hd213862%_ + _%xdeps213877%_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd210447%_ + _%hd213862%_ 'gx#prelude-context::t)) - (let ((_%id210465%_ + (let ((_%id213880%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd210447%_ + _%hd213862%_ '1 '#f '#f)))) (if (let () (declare (not safe)) (__hash-get - _%ht210415%_ - _%id210465%_)) - (_%find-deps210417%_ - _%rest210446%_ - _%deps210426%_) - (let ((_%xdeps210469%_ - (_%find-deps210417%_ + _%ht213830%_ + _%id213880%_)) + (_%find-deps213832%_ + _%rest213861%_ + _%deps213841%_) + (let ((_%xdeps213884%_ + (_%find-deps213832%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd210447%_ + _%hd213862%_ '7 '#f '#f)) - _%deps210426%_))) + _%deps213841%_))) (if (let () (declare (not safe)) (__hash-get - _%ht210415%_ - _%id210465%_)) - (_%find-deps210417%_ - _%rest210446%_ - _%xdeps210469%_) + _%ht213830%_ + _%id213880%_)) + (_%find-deps213832%_ + _%rest213861%_ + _%xdeps213884%_) (begin (let () (declare (not safe)) (__hash-put! - _%ht210415%_ - _%id210465%_ - _%hd210447%_)) - (_%find-deps210417%_ - _%rest210446%_ - (cons _%hd210447%_ - _%xdeps210469%_))))))) + _%ht213830%_ + _%id213880%_ + _%hd213862%_)) + (_%find-deps213832%_ + _%rest213861%_ + (cons _%hd213862%_ + _%xdeps213884%_))))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd210447%_ + _%hd213862%_ 'gx#module-import::t)) (if (fxzero? (let () (declare (not safe)) (##unchecked-structure-ref - _%hd210447%_ + _%hd213862%_ '3 '#f '#f))) - (_%find-deps210417%_ + (_%find-deps213832%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd210447%_ + _%hd213862%_ '1 '#f '#f)) - _%rest210446%_) - _%deps210426%_) - (_%find-deps210417%_ - _%rest210446%_ - _%deps210426%_)) + _%rest213861%_) + _%deps213841%_) + (_%find-deps213832%_ + _%rest213861%_ + _%deps213841%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd210447%_ + _%hd213862%_ 'gx#module-export::t)) - (_%find-deps210417%_ + (_%find-deps213832%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd210447%_ + _%hd213862%_ '1 '#f '#f)) - _%rest210446%_) - _%deps210426%_) + _%rest213861%_) + _%deps213841%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd210447%_ + _%hd213862%_ 'gx#import-set::t)) (if (fxzero? (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##unchecked-structure-ref _%hd210447%_ '2 '#f '#f))) - (_%find-deps210417%_ + (##unchecked-structure-ref _%hd213862%_ '2 '#f '#f))) + (_%find-deps213832%_ (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%hd210447%_ '1 '#f '#f)) - _%rest210446%_) - _%deps210426%_) + (##unchecked-structure-ref _%hd213862%_ '1 '#f '#f)) + _%rest213861%_) + _%deps213841%_) (if (fxpositive? (let () (declare (not safe)) - (##unchecked-structure-ref _%hd210447%_ '2 '#f '#f))) - (let ((_%xdeps210476%_ - (_%import-set-template210416%_ _%hd210447%_ '0))) - (_%find-deps210417%_ + (##unchecked-structure-ref _%hd213862%_ '2 '#f '#f))) + (let ((_%xdeps213891%_ + (_%import-set-template213831%_ _%hd213862%_ '0))) + (_%find-deps213832%_ (let () (declare (not safe)) - (__foldl1 cons _%rest210446%_ _%xdeps210476%_)) - _%deps210426%_)) - (_%find-deps210417%_ _%rest210446%_ _%deps210426%_))) + (__foldl1 cons _%rest213861%_ _%xdeps213891%_)) + _%deps213841%_)) + (_%find-deps213832%_ _%rest213861%_ _%deps213841%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (error '"Unexpected module import" - _%hd210447%_)))))))))) - (if (pair? _%rest210427210435%_) - (let ((_%hd210432210483%_ + _%hd213862%_)))))))))) + (if (pair? _%rest213842213850%_) + (let ((_%hd213847213898%_ (let () (declare (not safe)) - (##car _%rest210427210435%_))) - (_%tl210433210485%_ + (##car _%rest213842213850%_))) + (_%tl213848213900%_ (let () (declare (not safe)) - (##cdr _%rest210427210435%_)))) - (let* ((_%hd210488%_ _%hd210432210483%_) - (_%rest210490%_ _%tl210433210485%_)) - (_%K210431210480%_ - _%rest210490%_ - _%hd210488%_))) - (_%else210429210443%_)))))) - (let ((__tmp211336 + (##cdr _%rest213842213850%_)))) + (let* ((_%hd213903%_ _%hd213847213898%_) + (_%rest213905%_ _%tl213848213900%_)) + (_%K213846213895%_ + _%rest213905%_ + _%hd213903%_))) + (_%else213844213858%_)))))) + (let ((__tmp214751 (filter gx#expander-context-id - (_%find-deps210417%_ - (let ((_%$e210419%_ + (_%find-deps213832%_ + (let ((_%$e213834%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%ctx210413%_)))) - (if _%$e210419%_ - ((lambda (_%pre210422%_) - (cons _%pre210422%_ + _%ctx213828%_)))) + (if _%$e213834%_ + ((lambda (_%pre213837%_) + (cons _%pre213837%_ (##structure-ref - _%ctx210413%_ + _%ctx213828%_ '8 gx#module-context::t '#f))) - _%$e210419%_) + _%$e213834%_) (##structure-ref - _%ctx210413%_ + _%ctx213828%_ '8 gx#module-context::t '#f))) '())))) (declare (not safe)) - (##reverse __tmp211336))))) + (##reverse __tmp214751))))) (define gxc#find-static-module-file - (lambda (_%ctx210343%_) - (let* ((_%context-id210345%_ + (lambda (_%ctx213758%_) + (let* ((_%context-id213760%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%ctx210343%_ + _%ctx213758%_ 'gx#module-context::t)) (let () (declare (not safe)) - (##unchecked-structure-ref _%ctx210343%_ '1 '#f '#f)) - (string->symbol _%ctx210343%_))) - (_%scm210347%_ - (let ((__tmp211337 - (gxc#static-module-name _%context-id210345%_))) + (##unchecked-structure-ref _%ctx213758%_ '1 '#f '#f)) + (string->symbol _%ctx213758%_))) + (_%scm213762%_ + (let ((__tmp214752 + (gxc#static-module-name _%context-id213760%_))) (declare (not safe)) - (##string-append __tmp211337 '".scm"))) - (_%dirs210349%_ (let () (declare (not safe)) (load-path))) - (_%dirs210355%_ - (let ((_%user-libpath210351%_ + (##string-append __tmp214752 '".scm"))) + (_%dirs213764%_ (let () (declare (not safe)) (load-path))) + (_%dirs213770%_ + (let ((_%user-libpath213766%_ (let () (declare (not safe)) (##getenv '"GERBIL_PATH" '#f)))) - (if _%user-libpath210351%_ - (let ((_%user-libpath210353%_ - (path-expand '"lib" _%user-libpath210351%_))) + (if _%user-libpath213766%_ + (let ((_%user-libpath213768%_ + (path-expand '"lib" _%user-libpath213766%_))) (if (let () (declare (not safe)) - (##member _%user-libpath210353%_ _%dirs210349%_)) - _%dirs210349%_ - (cons _%user-libpath210353%_ _%dirs210349%_))) - _%dirs210349%_))) - (_%dirs210365%_ - (let ((_%$e210357%_ + (##member _%user-libpath213768%_ _%dirs213764%_)) + _%dirs213764%_ + (cons _%user-libpath213768%_ _%dirs213764%_))) + _%dirs213764%_))) + (_%dirs213780%_ + (let ((_%$e213772%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e210357%_ - ((lambda (_%g210359210361%_) - (cons _%g210359210361%_ _%dirs210355%_)) - _%$e210357%_) - _%dirs210355%_))) - (_%dirs210371%_ - (let ((__tmp211338 - (lambda (_%g210366210368%_) - (path-expand '"static" _%g210366210368%_)))) + (if _%$e213772%_ + ((lambda (_%g213774213776%_) + (cons _%g213774213776%_ _%dirs213770%_)) + _%$e213772%_) + _%dirs213770%_))) + (_%dirs213786%_ + (let ((__tmp214753 + (lambda (_%g213781213783%_) + (path-expand '"static" _%g213781213783%_)))) (declare (not safe)) - (##map __tmp211338 _%dirs210365%_)))) - (let _%lp210374%_ ((_%rest210376%_ _%dirs210371%_)) - (let* ((_%rest210377210385%_ _%rest210376%_) - (_%else210379210393%_ + (##map __tmp214753 _%dirs213780%_)))) + (let _%lp213789%_ ((_%rest213791%_ _%dirs213786%_)) + (let* ((_%rest213792213800%_ _%rest213791%_) + (_%else213794213808%_ (lambda () - (let ((__tmp211339 + (let ((__tmp214754 (##structure-ref - _%ctx210343%_ + _%ctx213758%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"cannot find static module" - __tmp211339 - _%scm210347%_)))) - (_%K210381210401%_ - (lambda (_%rest210396%_ _%dir210397%_) - (let ((_%path210399%_ - (path-expand _%scm210347%_ _%dir210397%_))) + __tmp214754 + _%scm213762%_)))) + (_%K213796213816%_ + (lambda (_%rest213811%_ _%dir213812%_) + (let ((_%path213814%_ + (path-expand _%scm213762%_ _%dir213812%_))) (if (let () (declare (not safe)) - (##file-exists? _%path210399%_)) - _%path210399%_ - (_%lp210374%_ _%rest210396%_)))))) - (if (pair? _%rest210377210385%_) - (let ((_%hd210382210404%_ + (##file-exists? _%path213814%_)) + _%path213814%_ + (_%lp213789%_ _%rest213811%_)))))) + (if (pair? _%rest213792213800%_) + (let ((_%hd213797213819%_ (let () (declare (not safe)) - (##car _%rest210377210385%_))) - (_%tl210383210406%_ + (##car _%rest213792213800%_))) + (_%tl213798213821%_ (let () (declare (not safe)) - (##cdr _%rest210377210385%_)))) - (let* ((_%dir210409%_ _%hd210382210404%_) - (_%rest210411%_ _%tl210383210406%_)) - (_%K210381210401%_ _%rest210411%_ _%dir210409%_))) - (_%else210379210393%_))))))) + (##cdr _%rest213792213800%_)))) + (let* ((_%dir213824%_ _%hd213797213819%_) + (_%rest213826%_ _%tl213798213821%_)) + (_%K213796213816%_ _%rest213826%_ _%dir213824%_))) + (_%else213794213808%_))))))) (define gxc#file-empty? - (lambda (_%path210341%_) - (zero? (let ((__tmp211340 (file-info _%path210341%_ '#t))) + (lambda (_%path213756%_) + (zero? (let ((__tmp214755 (file-info _%path213756%_ '#t))) (declare (not safe)) - (##file-info-size __tmp211340))))) + (##file-info-size __tmp214755))))) (define gxc#compile-top-module - (lambda (_%ctx210332%_) - (let ((__tmp211341 + (lambda (_%ctx213747%_) + (let ((__tmp214756 (lambda () - (let ((__tmp211342 + (let ((__tmp214757 (lambda () - (let ((__tmp211343 + (let ((__tmp214758 (lambda () - (let ((__tmp211345 + (let ((__tmp214760 (lambda () - (let ((__tmp211347 + (let ((__tmp214762 (lambda () - (let ((__tmp211349 + (let ((__tmp214764 (lambda () - (let ((__tmp211350 + (let ((__tmp214765 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _%ctx210332%_ + _%ctx213747%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#verbose '"compile " __tmp211350)) + (gxc#verbose '"compile " __tmp214765)) (if (let () (declare (not safe)) (gxc#current-compile-optimize)) - (let ((__tmp211351 + (let ((__tmp214766 (lambda () (let () (declare (not safe)) - (gxc#optimize! _%ctx210332%_))))) + (gxc#optimize! _%ctx213747%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp211351)) + (__with-lock gxc#+driver-mutex+ __tmp214766)) '#!void) - (gxc#collect-bindings _%ctx210332%_) - (gxc#compile-runtime-code _%ctx210332%_) - (gxc#compile-meta-code _%ctx210332%_) + (gxc#collect-bindings _%ctx213747%_) + (gxc#compile-runtime-code _%ctx213747%_) + (gxc#compile-meta-code _%ctx213747%_) (if (and (let () (declare (not safe)) (gxc#current-compile-optimize)) (let () (declare (not safe)) (gxc#current-compile-generate-ssxi))) - (gxc#compile-ssxi-code _%ctx210332%_) + (gxc#compile-ssxi-code _%ctx213747%_) '#!void))) - (__tmp211348 + (__tmp214763 (let () (declare (not safe)) (make-hash-table__% @@ -2017,21 +2017,21 @@ absent-value)))) (declare (not safe)) (call-with-parameters__1 - __tmp211349 + __tmp214764 gxc#current-compile-runtime-names - __tmp211348)))) + __tmp214763)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp211346 + (__tmp214761 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (call-with-parameters__1 - __tmp211347 + __tmp214762 gxc#current-compile-runtime-sections - __tmp211346)))) - (__tmp211344 - (let ((__obj211245 + __tmp214761)))) + (__tmp214759 + (let ((__obj214660 (let () (declare (not safe)) (##structure @@ -2041,166 +2041,166 @@ (let () (declare (not safe)) (gxc#symbol-table:::init! - __obj211245)) - __obj211245))) + __obj214660)) + __obj214660))) (declare (not safe)) (call-with-parameters__1 - __tmp211345 + __tmp214760 gxc#current-compile-symbol-table - __tmp211344))))) + __tmp214759))))) (declare (not safe)) (call-with-parameters__1 - __tmp211343 + __tmp214758 gx#current-expander-marks '()))))) (declare (not safe)) (call-with-parameters__1 - __tmp211342 + __tmp214757 gx#current-expander-phi '0))))) (declare (not safe)) (call-with-parameters__1 - __tmp211341 + __tmp214756 gx#current-expander-context - _%ctx210332%_)))) + _%ctx213747%_)))) (define gxc#collect-bindings - (lambda (_%ctx210330%_) - (let ((__tmp211352 - (##structure-ref _%ctx210330%_ '11 gx#module-context::t '#f))) + (lambda (_%ctx213745%_) + (let ((__tmp214767 + (##structure-ref _%ctx213745%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-collect-bindings __tmp211352)))) + (gxc#apply-collect-bindings __tmp214767)))) (define gxc#compile-runtime-code - (lambda (_%ctx210274%_) - (letrec ((_%compile1210276%_ - (lambda (_%ctx210319%_) - (let* ((_%code210321%_ + (lambda (_%ctx213689%_) + (letrec ((_%compile1213691%_ + (lambda (_%ctx213734%_) + (let* ((_%code213736%_ (##structure-ref - _%ctx210319%_ + _%ctx213734%_ '11 gx#module-context::t '#f)) - (_%rtm210325%_ - (let ((_%idstr210323%_ - (let ((__tmp211353 + (_%rtm213740%_ + (let ((_%idstr213738%_ + (let ((__tmp214768 (##structure-ref - _%ctx210319%_ + _%ctx213734%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp211353)))) + __tmp214768)))) (declare (not safe)) - (##string-append _%idstr210323%_ '"~0"))) - (_%rtc?210327%_ + (##string-append _%idstr213738%_ '"~0"))) + (_%rtc?213742%_ (let () (declare (not safe)) - (gxc#apply-find-runtime-code _%code210321%_)))) - (if _%rtc?210327%_ - (let ((__tmp211354 + (gxc#apply-find-runtime-code _%code213736%_)))) + (if _%rtc?213742%_ + (let ((__tmp214769 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) (hash-put! - __tmp211354 - _%ctx210319%_ - _%rtm210325%_)) + __tmp214769 + _%ctx213734%_ + _%rtm213740%_)) '#!void) - (_%generate-runtime-code210278%_ - _%ctx210319%_ - _%code210321%_ - (if _%rtc?210327%_ _%rtm210325%_ '#f))))) - (_%context-timestamp210277%_ - (lambda (_%ctx210317%_) - (let ((__tmp211355 - (let ((__tmp211356 + (_%generate-runtime-code213693%_ + _%ctx213734%_ + _%code213736%_ + (if _%rtc?213742%_ _%rtm213740%_ '#f))))) + (_%context-timestamp213692%_ + (lambda (_%ctx213732%_) + (let ((__tmp214770 + (let ((__tmp214771 (symbol->string (##structure-ref - _%ctx210317%_ + _%ctx213732%_ '1 gx#expander-context::t '#f)))) (declare (not safe)) - (##string-append __tmp211356 '"::timestamp")))) + (##string-append __tmp214771 '"::timestamp")))) (declare (not safe)) - (##string->symbol __tmp211355)))) - (_%generate-runtime-code210278%_ - (lambda (_%ctx210285%_ _%code210286%_ _%rtm210287%_) - (let* ((_%runtime-code?210289%_ (if _%rtm210287%_ '#t '#f)) - (_%lifts210291%_ (box '())) - (_%runtime-code210298%_ - (if _%runtime-code?210289%_ - (let ((__tmp211357 + (##string->symbol __tmp214770)))) + (_%generate-runtime-code213693%_ + (lambda (_%ctx213700%_ _%code213701%_ _%rtm213702%_) + (let* ((_%runtime-code?213704%_ (if _%rtm213702%_ '#t '#f)) + (_%lifts213706%_ (box '())) + (_%runtime-code213713%_ + (if _%runtime-code?213704%_ + (let ((__tmp214772 (lambda () - (let ((__tmp211358 + (let ((__tmp214773 (lambda () - (let ((__tmp211359 + (let ((__tmp214774 (lambda () - (let ((__tmp211361 + (let ((__tmp214776 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda () - (let ((__tmp211363 + (let ((__tmp214778 (lambda () (let () (declare (not safe)) (gxc#apply-generate-runtime - _%code210286%_)))) - (__tmp211362 + _%code213701%_)))) + (__tmp214777 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters__1 - __tmp211363 + __tmp214778 gxc#current-compile-identifiers - __tmp211362)))) - (__tmp211360 + __tmp214777)))) + (__tmp214775 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (call-with-parameters__1 - __tmp211361 + __tmp214776 gxc#current-compile-marks - __tmp211360))))) + __tmp214775))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters__1 - __tmp211359 + __tmp214774 gxc#current-compile-lift - _%lifts210291%_))))) + _%lifts213706%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp211358 + __tmp214773 gx#current-expander-phi '0))))) (declare (not safe)) (call-with-parameters__1 - __tmp211357 + __tmp214772 gx#current-expander-context - _%ctx210285%_)) + _%ctx213700%_)) '#f)) - (_%runtime-code210300%_ - (if _%runtime-code?210289%_ - (if (null? (unbox _%lifts210291%_)) - _%runtime-code210298%_ + (_%runtime-code213715%_ + (if _%runtime-code?213704%_ + (if (null? (unbox _%lifts213706%_)) + _%runtime-code213713%_ (cons 'begin - (let ((__tmp211365 - (cons _%runtime-code210298%_ + (let ((__tmp214780 + (cons _%runtime-code213713%_ '())) - (__tmp211364 - (reverse (unbox _%lifts210291%_)))) + (__tmp214779 + (reverse (unbox _%lifts213706%_)))) (declare (not safe)) (__foldr1 cons - __tmp211365 - __tmp211364)))) + __tmp214780 + __tmp214779)))) '#f)) - (_%runtime-code210302%_ - (if _%runtime-code?210289%_ + (_%runtime-code213717%_ + (if _%runtime-code?213704%_ (cons 'begin (cons (cons 'define - (cons (_%context-timestamp210277%_ - _%ctx210285%_) + (cons (_%context-timestamp213692%_ + _%ctx213700%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -2208,800 +2208,800 @@ (gxc#current-compile-timestamp)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%runtime-code210300%_ '()))) + (cons _%runtime-code213715%_ '()))) '#f)) - (_%loader-code210305%_ - (let ((__tmp211366 + (_%loader-code213720%_ + (let ((__tmp214781 (lambda () (let () (declare (not safe)) (gxc#apply-generate-loader - _%code210286%_))))) + _%code213701%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp211366 + __tmp214781 gx#current-expander-context - _%ctx210285%_))) - (_%loader-code210307%_ + _%ctx213700%_))) + (_%loader-code213722%_ (cons 'begin - (cons _%loader-code210305%_ - (cons (if _%runtime-code?210289%_ + (cons _%loader-code213720%_ + (cons (if _%runtime-code?213704%_ (cons 'load-module - (cons _%rtm210287%_ + (cons _%rtm213702%_ '())) '(begin)) '())))) - (_%scm0210309%_ - (gxc#compile-output-file _%ctx210285%_ '0 '".scm")) - (_%scmrt210311%_ + (_%scm0213724%_ + (gxc#compile-output-file _%ctx213700%_ '0 '".scm")) + (_%scmrt213726%_ (gxc#compile-output-file - _%ctx210285%_ + _%ctx213700%_ '#f '".scm")) - (_%scms210313%_ - (gxc#compile-static-output-file _%ctx210285%_))) - (if _%runtime-code?210289%_ + (_%scms213728%_ + (gxc#compile-static-output-file _%ctx213700%_))) + (if _%runtime-code?213704%_ (gxc#compile-scm-file__0 - _%scm0210309%_ - _%runtime-code210302%_) + _%scm0213724%_ + _%runtime-code213717%_) '#!void) - (let ((__tmp211367 + (let ((__tmp214782 (lambda () (gxc#compile-scm-file__0 - _%scmrt210311%_ - _%loader-code210307%_)))) + _%scmrt213726%_ + _%loader-code213722%_)))) (declare (not safe)) (call-with-parameters__1 - __tmp211367 + __tmp214782 gxc#current-compile-gsc-options '#f)) (if (let () (declare (not safe)) - (##file-exists? _%scms210313%_)) + (##file-exists? _%scms213728%_)) (let () (declare (not safe)) - (##delete-file _%scms210313%_)) + (##delete-file _%scms213728%_)) '#!void) - (if _%runtime-code?210289%_ + (if _%runtime-code?213704%_ (let () (declare (not safe)) - (##copy-file _%scm0210309%_ _%scms210313%_)) + (##copy-file _%scm0213724%_ _%scms213728%_)) (let () (declare (not safe)) - (##call-with-output-file _%scms210313%_ void))))))) - (let* ((_%all-modules210280%_ - (cons _%ctx210274%_ (gxc#lift-nested-modules _%ctx210274%_))) - (__tmp211368 - (lambda (_%ctx210282%_) - (let ((__tmp211369 - (lambda () (_%compile1210276%_ _%ctx210282%_)))) + (##call-with-output-file _%scms213728%_ void))))))) + (let* ((_%all-modules213695%_ + (cons _%ctx213689%_ (gxc#lift-nested-modules _%ctx213689%_))) + (__tmp214783 + (lambda (_%ctx213697%_) + (let ((__tmp214784 + (lambda () (_%compile1213691%_ _%ctx213697%_)))) (declare (not safe)) (call-with-parameters__1 - __tmp211369 + __tmp214784 gxc#current-compile-decls '()))))) (declare (not safe)) - (##for-each __tmp211368 _%all-modules210280%_))))) + (##for-each __tmp214783 _%all-modules213695%_))))) (define gxc#compile-meta-code - (lambda (_%ctx210173%_) - (letrec ((_%compile-ssi210175%_ - (lambda (_%code210242%_) - (let* ((_%path210244%_ + (lambda (_%ctx213588%_) + (letrec ((_%compile-ssi213590%_ + (lambda (_%code213657%_) + (let* ((_%path213659%_ (gxc#compile-output-file - _%ctx210173%_ + _%ctx213588%_ '#f '".ssi")) - (_%prelude210256%_ - (let* ((_%super210246%_ + (_%prelude213671%_ + (let* ((_%super213661%_ (##structure-ref - _%ctx210173%_ + _%ctx213588%_ '3 gx#phi-context::t '#f)) - (_%$e210248%_ + (_%$e213663%_ (##structure-ref - _%super210246%_ + _%super213661%_ '1 gx#expander-context::t '#f))) - (if _%$e210248%_ - ((lambda (_%g210250210252%_) + (if _%$e213663%_ + ((lambda (_%g213665213667%_) (let () (declare (not safe)) (make-symbol__1 '":" - _%g210250210252%_))) - _%$e210248%_) + _%g213665213667%_))) + _%$e213663%_) ':))) - (_%ns210258%_ + (_%ns213673%_ (##structure-ref - _%ctx210173%_ + _%ctx213588%_ '6 gx#module-context::t '#f)) - (_%idstr210260%_ + (_%idstr213675%_ (symbol->string (##structure-ref - _%ctx210173%_ + _%ctx213588%_ '1 gx#expander-context::t '#f))) - (_%pkg210268%_ - (let ((_%$e210262%_ + (_%pkg213683%_ + (let ((_%$e213677%_ (let () (declare (not safe)) - (string-rindex__0 _%idstr210260%_ '#\/)))) - (if _%$e210262%_ - ((lambda (_%x210265%_) - (let ((__tmp211370 + (string-rindex__0 _%idstr213675%_ '#\/)))) + (if _%$e213677%_ + ((lambda (_%x213680%_) + (let ((__tmp214785 (substring - _%idstr210260%_ + _%idstr213675%_ '0 - _%x210265%_))) + _%x213680%_))) (declare (not safe)) - (##string->symbol __tmp211370))) - _%$e210262%_) + (##string->symbol __tmp214785))) + _%$e213677%_) '#f))) - (_%rt210270%_ - (let ((__tmp211371 + (_%rt213685%_ + (let ((__tmp214786 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) - (hash-get __tmp211371 _%ctx210173%_)))) + (hash-get __tmp214786 _%ctx213588%_)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _%path210244%_)) + (gxc#verbose '"compile " _%path213659%_)) (gxc#with-output-to-scheme-file - _%path210244%_ + _%path213659%_ (lambda () (let () (declare (not safe)) - (displayln '"prelude:" '" " _%prelude210256%_)) - (if _%pkg210268%_ + (displayln '"prelude:" '" " _%prelude213671%_)) + (if _%pkg213683%_ (let () (declare (not safe)) - (displayln '"package:" '" " _%pkg210268%_)) + (displayln '"package:" '" " _%pkg213683%_)) '#!void) (let () (declare (not safe)) - (displayln '"namespace:" '" " _%ns210258%_)) + (displayln '"namespace:" '" " _%ns213673%_)) (newline) - (pretty-print _%code210242%_) - (if _%rt210270%_ + (pretty-print _%code213657%_) + (if _%rt213685%_ (pretty-print (cons '%#call (cons (cons '%#ref (cons 'load-module '())) (cons (cons '%#quote - (cons _%rt210270%_ '())) + (cons _%rt213685%_ '())) '())))) '#!void)))))) - (_%compile-phi210176%_ - (lambda (_%part210181%_) - (let* ((_%part210182210195%_ _%part210181%_) - (_%E210184210199%_ + (_%compile-phi213591%_ + (lambda (_%part213596%_) + (let* ((_%part213597213610%_ _%part213596%_) + (_%E213599213614%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%part210182210195%_ + _%part213597213610%_ '([phi-ctx phi n code]))) '#!void)) - (_%K210185210211%_ - (lambda (_%code210202%_ - _%n210203%_ - _%phi210204%_ - _%phi-ctx210205%_) - (let ((_%code210209%_ - (let ((__tmp211372 + (_%K213600213626%_ + (lambda (_%code213617%_ + _%n213618%_ + _%phi213619%_ + _%phi-ctx213620%_) + (let ((_%code213624%_ + (let ((__tmp214787 (lambda () - (let ((__tmp211373 + (let ((__tmp214788 (lambda () (gxc#generate-runtime-phi - _%code210202%_)))) + _%code213617%_)))) (declare (not safe)) (call-with-parameters__1 - __tmp211373 + __tmp214788 gx#current-expander-phi - _%phi210204%_))))) + _%phi213619%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp211372 + __tmp214787 gx#current-expander-context - _%phi-ctx210205%_)))) + _%phi-ctx213620%_)))) (gxc#compile-scm-file__% (gxc#compile-output-file - _%ctx210173%_ - _%n210203%_ + _%ctx213588%_ + _%n213618%_ '".scm") - _%code210209%_ + _%code213624%_ '#t))))) - (if (pair? _%part210182210195%_) - (let ((_%hd210186210214%_ + (if (pair? _%part213597213610%_) + (let ((_%hd213601213629%_ (let () (declare (not safe)) - (##car _%part210182210195%_))) - (_%tl210187210216%_ + (##car _%part213597213610%_))) + (_%tl213602213631%_ (let () (declare (not safe)) - (##cdr _%part210182210195%_)))) - (let ((_%phi-ctx210219%_ _%hd210186210214%_)) - (if (pair? _%tl210187210216%_) - (let ((_%hd210188210221%_ + (##cdr _%part213597213610%_)))) + (let ((_%phi-ctx213634%_ _%hd213601213629%_)) + (if (pair? _%tl213602213631%_) + (let ((_%hd213603213636%_ (let () (declare (not safe)) - (##car _%tl210187210216%_))) - (_%tl210189210223%_ + (##car _%tl213602213631%_))) + (_%tl213604213638%_ (let () (declare (not safe)) - (##cdr _%tl210187210216%_)))) - (let ((_%phi210226%_ _%hd210188210221%_)) - (if (pair? _%tl210189210223%_) - (let ((_%hd210190210228%_ + (##cdr _%tl213602213631%_)))) + (let ((_%phi213641%_ _%hd213603213636%_)) + (if (pair? _%tl213604213638%_) + (let ((_%hd213605213643%_ (let () (declare (not safe)) - (##car _%tl210189210223%_))) - (_%tl210191210230%_ + (##car _%tl213604213638%_))) + (_%tl213606213645%_ (let () (declare (not safe)) - (##cdr _%tl210189210223%_)))) - (let ((_%n210233%_ - _%hd210190210228%_)) - (if (pair? _%tl210191210230%_) - (let ((_%hd210192210235%_ + (##cdr _%tl213604213638%_)))) + (let ((_%n213648%_ + _%hd213605213643%_)) + (if (pair? _%tl213606213645%_) + (let ((_%hd213607213650%_ (let () (declare (not safe)) - (##car _%tl210191210230%_))) - (_%tl210193210237%_ + (##car _%tl213606213645%_))) + (_%tl213608213652%_ (let () (declare (not safe)) - (##cdr _%tl210191210230%_)))) - (let ((_%code210240%_ - _%hd210192210235%_)) - (if (null? _%tl210193210237%_) - (_%K210185210211%_ - _%code210240%_ - _%n210233%_ - _%phi210226%_ - _%phi-ctx210219%_) - (_%E210184210199%_)))) - (_%E210184210199%_)))) - (_%E210184210199%_)))) - (_%E210184210199%_)))) - (_%E210184210199%_)))))) - (let ((_g211374_ (gxc#generate-meta-code _%ctx210173%_))) + (##cdr _%tl213606213645%_)))) + (let ((_%code213655%_ + _%hd213607213650%_)) + (if (null? _%tl213608213652%_) + (_%K213600213626%_ + _%code213655%_ + _%n213648%_ + _%phi213641%_ + _%phi-ctx213634%_) + (_%E213599213614%_)))) + (_%E213599213614%_)))) + (_%E213599213614%_)))) + (_%E213599213614%_)))) + (_%E213599213614%_)))))) + (let ((_g214789_ (gxc#generate-meta-code _%ctx213588%_))) (begin - (let ((_g211375_ + (let ((_g214790_ (let () (declare (not safe)) - (if (##values? _g211374_) - (##values-length _g211374_) + (if (##values? _g214789_) + (##values-length _g214789_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g211375_ 2))) - (error "Context expects 2 values" _g211375_))) - (let ((_%ssi-code210178%_ - (let () (declare (not safe)) (##values-ref _g211374_ 0))) - (_%phi-code210179%_ - (let () (declare (not safe)) (##values-ref _g211374_ 1)))) + (if (not (let () (declare (not safe)) (##fx= _g214790_ 2))) + (error "Context expects 2 values" _g214790_))) + (let ((_%ssi-code213593%_ + (let () (declare (not safe)) (##values-ref _g214789_ 0))) + (_%phi-code213594%_ + (let () (declare (not safe)) (##values-ref _g214789_ 1)))) (begin - (_%compile-ssi210175%_ _%ssi-code210178%_) - (for-each _%compile-phi210176%_ _%phi-code210179%_)))))))) + (_%compile-ssi213590%_ _%ssi-code213593%_) + (for-each _%compile-phi213591%_ _%phi-code213594%_)))))))) (define gxc#compile-ssxi-code - (lambda (_%ctx210155%_) - (let* ((_%path210157%_ - (gxc#compile-output-file _%ctx210155%_ '#f '".ssxi.ss")) - (_%code210159%_ - (let ((__tmp211376 + (lambda (_%ctx213570%_) + (let* ((_%path213572%_ + (gxc#compile-output-file _%ctx213570%_ '#f '".ssxi.ss")) + (_%code213574%_ + (let ((__tmp214791 (##structure-ref - _%ctx210155%_ + _%ctx213570%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-ssxi __tmp211376))) - (_%idstr210161%_ + (gxc#apply-generate-ssxi __tmp214791))) + (_%idstr213576%_ (symbol->string (##structure-ref - _%ctx210155%_ + _%ctx213570%_ '1 gx#expander-context::t '#f))) - (_%pkg210169%_ - (let ((_%$e210163%_ + (_%pkg213584%_ + (let ((_%$e213578%_ (let () (declare (not safe)) - (string-rindex__0 _%idstr210161%_ '#\/)))) - (if _%$e210163%_ - ((lambda (_%x210166%_) - (let ((__tmp211377 - (substring _%idstr210161%_ '0 _%x210166%_))) + (string-rindex__0 _%idstr213576%_ '#\/)))) + (if _%$e213578%_ + ((lambda (_%x213581%_) + (let ((__tmp214792 + (substring _%idstr213576%_ '0 _%x213581%_))) (declare (not safe)) - (##string->symbol __tmp211377))) - _%$e210163%_) + (##string->symbol __tmp214792))) + _%$e213578%_) '#f)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _%path210157%_)) + (gxc#verbose '"compile " _%path213572%_)) (gxc#with-output-to-scheme-file - _%path210157%_ + _%path213572%_ (lambda () (let () (declare (not safe)) (displayln '"prelude: :gerbil/compiler/ssxi")) - (if _%pkg210169%_ + (if _%pkg213584%_ (let () (declare (not safe)) - (displayln '"package: " _%pkg210169%_)) + (displayln '"package: " _%pkg213584%_)) '#!void) (newline) - (pretty-print _%code210159%_)))))) + (pretty-print _%code213574%_)))))) (define gxc#generate-meta-code - (lambda (_%ctx210148%_) - (let* ((_%state210150%_ - (let ((__obj211246 + (lambda (_%ctx213563%_) + (let* ((_%state213565%_ + (let ((__obj214661 (let () (declare (not safe)) (##structure gxc#meta-state::t '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gxc#meta-state:::init! __obj211246 _%ctx210148%_)) - __obj211246)) - (_%ssi-code210152%_ - (let ((__tmp211378 + (gxc#meta-state:::init! __obj214661 _%ctx213563%_)) + __obj214661)) + (_%ssi-code213567%_ + (let ((__tmp214793 (##structure-ref - _%ctx210148%_ + _%ctx213563%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#apply-generate-meta__% '#f - _%state210150%_ - __tmp211378)))) - (values _%ssi-code210152%_ + _%state213565%_ + __tmp214793)))) + (values _%ssi-code213567%_ (let () (declare (not safe)) - (gxc#meta-state-end! _%state210150%_)))))) + (gxc#meta-state-end! _%state213565%_)))))) (define gxc#generate-runtime-phi - (lambda (_%stx210139%_) - (let* ((_%lifts210141%_ (box '())) - (__tmp211379 + (lambda (_%stx213554%_) + (let* ((_%lifts213556%_ (box '())) + (__tmp214794 (lambda () - (let ((__tmp211381 + (let ((__tmp214796 (lambda () - (let ((__tmp211383 + (let ((__tmp214798 (lambda () - (let ((_%code210146%_ + (let ((_%code213561%_ (let () (declare (not safe)) (gxc#apply-generate-runtime-phi - _%stx210139%_)))) - (if (null? (unbox _%lifts210141%_)) - _%code210146%_ + _%stx213554%_)))) + (if (null? (unbox _%lifts213556%_)) + _%code213561%_ (cons 'begin - (let ((__tmp211385 - (cons _%code210146%_ + (let ((__tmp214800 + (cons _%code213561%_ '())) - (__tmp211384 - (reverse (unbox _%lifts210141%_)))) + (__tmp214799 + (reverse (unbox _%lifts213556%_)))) (declare (not safe)) (__foldr1 cons - __tmp211385 - __tmp211384))))))) - (__tmp211382 + __tmp214800 + __tmp214799))))))) + (__tmp214797 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters__1 - __tmp211383 + __tmp214798 gxc#current-compile-identifiers - __tmp211382)))) - (__tmp211380 + __tmp214797)))) + (__tmp214795 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (call-with-parameters__1 - __tmp211381 + __tmp214796 gxc#current-compile-marks - __tmp211380))))) + __tmp214795))))) (declare (not safe)) (call-with-parameters__1 - __tmp211379 + __tmp214794 gxc#current-compile-lift - _%lifts210141%_)))) + _%lifts213556%_)))) (define gxc#lift-nested-modules - (lambda (_%ctx210135%_) - (let ((_%modules210137%_ (box '()))) - (let ((__tmp211386 - (##structure-ref _%ctx210135%_ '11 gx#module-context::t '#f))) + (lambda (_%ctx213550%_) + (let ((_%modules213552%_ (box '()))) + (let ((__tmp214801 + (##structure-ref _%ctx213550%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-lift-modules__% '#f _%modules210137%_ __tmp211386)) - (reverse (unbox _%modules210137%_))))) + (gxc#apply-lift-modules__% '#f _%modules213552%_ __tmp214801)) + (reverse (unbox _%modules213552%_))))) (define gxc#compile-scm-file__% - (lambda (_%path210115%_ _%code210116%_ _%phi?210117%_) - (let () (declare (not safe)) (gxc#verbose '"compile " _%path210115%_)) + (lambda (_%path213530%_ _%code213531%_ _%phi?213532%_) + (let () (declare (not safe)) (gxc#verbose '"compile " _%path213530%_)) (gxc#with-output-to-scheme-file - _%path210115%_ + _%path213530%_ (lambda () (pretty-print (cons 'declare (cons (cons 'block '()) (cons (cons 'standard-bindings '()) (cons (cons 'extended-bindings '()) - (let ((__tmp211387 - (if _%phi?210117%_ + (let ((__tmp214802 + (if _%phi?213532%_ '((inlining-limit 200)) '()))) (declare (not safe)) - (__foldr1 cons '() __tmp211387))))))) - (pretty-print _%code210116%_))) + (__foldr1 cons '() __tmp214802))))))) + (pretty-print _%code213531%_))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it210121%_ + (let ((_%compile-it213536%_ (lambda () - (gxc#gsc-compile-file _%path210115%_ _%phi?210117%_)))) + (gxc#gsc-compile-file _%path213530%_ _%phi?213532%_)))) (if (let () (declare (not safe)) (gxc#current-compile-parallel)) - (let ((__tmp211388 - (cons 'compile-file (cons _%path210115%_ '())))) + (let ((__tmp214803 + (cons 'compile-file (cons _%path213530%_ '())))) (declare (not safe)) - (gxc#add-compile-job!__% _%compile-it210121%_ __tmp211388)) - (_%compile-it210121%_))) + (gxc#add-compile-job!__% _%compile-it213536%_ __tmp214803)) + (_%compile-it213536%_))) '#!void))) (define gxc#compile-scm-file__0 - (lambda (_%path210126%_ _%code210127%_) - (let ((_%phi?210129%_ '#f)) + (lambda (_%path213541%_ _%code213542%_) + (let ((_%phi?213544%_ '#f)) (gxc#compile-scm-file__% - _%path210126%_ - _%code210127%_ - _%phi?210129%_)))) + _%path213541%_ + _%code213542%_ + _%phi?213544%_)))) (define gxc#compile-scm-file - (lambda _g211389_ - (let ((_g211390_ (let () (declare (not safe)) (##length _g211389_)))) - (cond ((let () (declare (not safe)) (##fx= _g211390_ 2)) - (apply gxc#compile-scm-file__0 _g211389_)) - ((let () (declare (not safe)) (##fx= _g211390_ 3)) - (apply gxc#compile-scm-file__% _g211389_)) + (lambda _g214804_ + (let ((_g214805_ (let () (declare (not safe)) (##length _g214804_)))) + (cond ((let () (declare (not safe)) (##fx= _g214805_ 2)) + (apply gxc#compile-scm-file__0 _g214804_)) + ((let () (declare (not safe)) (##fx= _g214805_ 3)) + (apply gxc#compile-scm-file__% _g214804_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-scm-file - _g211389_)))))) + _g214804_)))))) (define gxc#gsc-link-options__% - (lambda (_%phi?210016%_) - (let _%lp210018%_ ((_%rest210020%_ + (lambda (_%phi?213431%_) + (let _%lp213433%_ ((_%rest213435%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts210021%_ '())) - (let* ((_%rest210022210042%_ _%rest210020%_) - (_%else210026210050%_ + (_%opts213436%_ '())) + (let* ((_%rest213437213457%_ _%rest213435%_) + (_%else213441213465%_ (lambda () (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-debug-source" - (cons '"-track-scheme" (reverse _%opts210021%_))) - (reverse _%opts210021%_))))) - (let ((_%K210036210093%_ - (lambda (_%rest210091%_) - (_%lp210018%_ _%rest210091%_ _%opts210021%_))) - (_%K210031210075%_ - (lambda (_%rest210073%_) - (_%lp210018%_ _%rest210073%_ _%opts210021%_))) - (_%K210028210057%_ - (lambda (_%rest210054%_ _%opt210055%_) - (_%lp210018%_ - _%rest210054%_ - (cons _%opt210055%_ _%opts210021%_))))) - (if (pair? _%rest210022210042%_) - (let ((_%tl210038210098%_ + (cons '"-track-scheme" (reverse _%opts213436%_))) + (reverse _%opts213436%_))))) + (let ((_%K213451213508%_ + (lambda (_%rest213506%_) + (_%lp213433%_ _%rest213506%_ _%opts213436%_))) + (_%K213446213490%_ + (lambda (_%rest213488%_) + (_%lp213433%_ _%rest213488%_ _%opts213436%_))) + (_%K213443213472%_ + (lambda (_%rest213469%_ _%opt213470%_) + (_%lp213433%_ + _%rest213469%_ + (cons _%opt213470%_ _%opts213436%_))))) + (if (pair? _%rest213437213457%_) + (let ((_%tl213453213513%_ (let () (declare (not safe)) - (##cdr _%rest210022210042%_))) - (_%hd210037210096%_ + (##cdr _%rest213437213457%_))) + (_%hd213452213511%_ (let () (declare (not safe)) - (##car _%rest210022210042%_)))) - (if (equal? _%hd210037210096%_ '"-cc-options") - (if (pair? _%tl210038210098%_) - (let* ((_%tl210040210101%_ + (##car _%rest213437213457%_)))) + (if (equal? _%hd213452213511%_ '"-cc-options") + (if (pair? _%tl213453213513%_) + (let* ((_%tl213455213516%_ (let () (declare (not safe)) - (##cdr _%tl210038210098%_))) - (_%rest210104%_ _%tl210040210101%_)) - (_%K210036210093%_ _%rest210104%_)) - (let ((_%opt210065%_ _%hd210037210096%_) - (_%rest210067%_ _%tl210038210098%_)) - (_%K210028210057%_ - _%rest210067%_ - _%opt210065%_))) - (if (equal? _%hd210037210096%_ '"-ld-options") - (if (pair? _%tl210038210098%_) - (let* ((_%tl210035210083%_ + (##cdr _%tl213453213513%_))) + (_%rest213519%_ _%tl213455213516%_)) + (_%K213451213508%_ _%rest213519%_)) + (let ((_%opt213480%_ _%hd213452213511%_) + (_%rest213482%_ _%tl213453213513%_)) + (_%K213443213472%_ + _%rest213482%_ + _%opt213480%_))) + (if (equal? _%hd213452213511%_ '"-ld-options") + (if (pair? _%tl213453213513%_) + (let* ((_%tl213450213498%_ (let () (declare (not safe)) - (##cdr _%tl210038210098%_))) - (_%rest210086%_ _%tl210035210083%_)) - (_%K210031210075%_ _%rest210086%_)) - (let ((_%opt210065%_ _%hd210037210096%_) - (_%rest210067%_ _%tl210038210098%_)) - (_%K210028210057%_ - _%rest210067%_ - _%opt210065%_))) - (let ((_%opt210065%_ _%hd210037210096%_) - (_%rest210067%_ _%tl210038210098%_)) - (_%K210028210057%_ - _%rest210067%_ - _%opt210065%_))))) - (_%else210026210050%_))))))) + (##cdr _%tl213453213513%_))) + (_%rest213501%_ _%tl213450213498%_)) + (_%K213446213490%_ _%rest213501%_)) + (let ((_%opt213480%_ _%hd213452213511%_) + (_%rest213482%_ _%tl213453213513%_)) + (_%K213443213472%_ + _%rest213482%_ + _%opt213480%_))) + (let ((_%opt213480%_ _%hd213452213511%_) + (_%rest213482%_ _%tl213453213513%_)) + (_%K213443213472%_ + _%rest213482%_ + _%opt213480%_))))) + (_%else213441213465%_))))))) (define gxc#gsc-link-options__0 (lambda () - (let ((_%phi?210110%_ '#f)) (gxc#gsc-link-options__% _%phi?210110%_)))) + (let ((_%phi?213525%_ '#f)) (gxc#gsc-link-options__% _%phi?213525%_)))) (define gxc#gsc-link-options - (lambda _g211391_ - (let ((_g211392_ (let () (declare (not safe)) (##length _g211391_)))) - (cond ((let () (declare (not safe)) (##fx= _g211392_ 0)) - (apply gxc#gsc-link-options__0 _g211391_)) - ((let () (declare (not safe)) (##fx= _g211392_ 1)) - (apply gxc#gsc-link-options__% _g211391_)) + (lambda _g214806_ + (let ((_g214807_ (let () (declare (not safe)) (##length _g214806_)))) + (cond ((let () (declare (not safe)) (##fx= _g214807_ 0)) + (apply gxc#gsc-link-options__0 _g214806_)) + ((let () (declare (not safe)) (##fx= _g214807_ 1)) + (apply gxc#gsc-link-options__% _g214806_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-link-options - _g211391_)))))) + _g214806_)))))) (define gxc#gsc-cc-options__%__% - (lambda (_%@@keywords209865%_ _%static?209861209866%_ _%phi?209868%_) - (let ((_%static?209870%_ - (if (eq? _%static?209861209866%_ absent-value) + (lambda (_%@@keywords213281%_ _%static?213277213282%_ _%phi?213283%_) + (let ((_%static?213285%_ + (if (eq? _%static?213277213282%_ absent-value) '#f - _%static?209861209866%_))) - (if _%phi?209868%_ + _%static?213277213282%_))) + (if _%phi?213283%_ (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-cc-options" (cons '"-g" '())) '()) - (let _%lp209872%_ ((_%rest209874%_ + (let _%lp213287%_ ((_%rest213289%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts209875%_ '())) - (let* ((_%rest209876209902%_ _%rest209874%_) - (_%else209881209910%_ + (_%opts213290%_ '())) + (let* ((_%rest213291213317%_ _%rest213289%_) + (_%else213296213325%_ (lambda () (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-cc-options" - (cons '"-g" (reverse! _%opts209875%_))) - (reverse! _%opts209875%_))))) - (let ((_%K209896209973%_ - (lambda (_%rest209970%_ _%opt209971%_) - (if _%static?209870%_ - (_%lp209872%_ - _%rest209970%_ - (cons _%opt209971%_ - (cons '"-cc-options" _%opts209875%_))) - (_%lp209872%_ _%rest209970%_ _%opts209875%_)))) - (_%K209891209950%_ - (lambda (_%rest209947%_ _%opt209948%_) - (_%lp209872%_ - _%rest209947%_ - (cons _%opt209948%_ - (cons '"-cc-options" _%opts209875%_))))) - (_%K209886209930%_ - (lambda (_%rest209928%_) - (_%lp209872%_ _%rest209928%_ _%opts209875%_))) - (_%K209883209916%_ - (lambda (_%rest209914%_) - (_%lp209872%_ _%rest209914%_ _%opts209875%_)))) - (if (pair? _%rest209876209902%_) - (let ((_%tl209898209978%_ + (cons '"-g" (reverse! _%opts213290%_))) + (reverse! _%opts213290%_))))) + (let ((_%K213311213388%_ + (lambda (_%rest213385%_ _%opt213386%_) + (if _%static?213285%_ + (_%lp213287%_ + _%rest213385%_ + (cons _%opt213386%_ + (cons '"-cc-options" _%opts213290%_))) + (_%lp213287%_ _%rest213385%_ _%opts213290%_)))) + (_%K213306213365%_ + (lambda (_%rest213362%_ _%opt213363%_) + (_%lp213287%_ + _%rest213362%_ + (cons _%opt213363%_ + (cons '"-cc-options" _%opts213290%_))))) + (_%K213301213345%_ + (lambda (_%rest213343%_) + (_%lp213287%_ _%rest213343%_ _%opts213290%_))) + (_%K213298213331%_ + (lambda (_%rest213329%_) + (_%lp213287%_ _%rest213329%_ _%opts213290%_)))) + (if (pair? _%rest213291213317%_) + (let ((_%tl213313213393%_ (let () (declare (not safe)) - (##cdr _%rest209876209902%_))) - (_%hd209897209976%_ + (##cdr _%rest213291213317%_))) + (_%hd213312213391%_ (let () (declare (not safe)) - (##car _%rest209876209902%_)))) - (if (equal? _%hd209897209976%_ '"-cc-options") - (if (pair? _%tl209898209978%_) - (let ((_%tl209900209983%_ + (##car _%rest213291213317%_)))) + (if (equal? _%hd213312213391%_ '"-cc-options") + (if (pair? _%tl213313213393%_) + (let ((_%tl213315213398%_ (let () (declare (not safe)) - (##cdr _%tl209898209978%_))) - (_%hd209899209981%_ + (##cdr _%tl213313213393%_))) + (_%hd213314213396%_ (let () (declare (not safe)) - (##car _%tl209898209978%_)))) - (if (equal? _%hd209899209981%_ '"-Bstatic") - (let ((_%opt209986%_ - _%hd209899209981%_) - (_%rest209988%_ - _%tl209900209983%_)) - (_%K209896209973%_ - _%rest209988%_ - _%opt209986%_)) - (let ((_%opt209963%_ - _%hd209899209981%_) - (_%rest209965%_ - _%tl209900209983%_)) - (_%K209891209950%_ - _%rest209965%_ - _%opt209963%_)))) - (let ((_%rest209922%_ _%tl209898209978%_)) - (_%K209883209916%_ _%rest209922%_))) - (if (equal? _%hd209897209976%_ '"-ld-options") - (if (pair? _%tl209898209978%_) - (let* ((_%tl209890209938%_ + (##car _%tl213313213393%_)))) + (if (equal? _%hd213314213396%_ '"-Bstatic") + (let ((_%opt213401%_ + _%hd213314213396%_) + (_%rest213403%_ + _%tl213315213398%_)) + (_%K213311213388%_ + _%rest213403%_ + _%opt213401%_)) + (let ((_%opt213378%_ + _%hd213314213396%_) + (_%rest213380%_ + _%tl213315213398%_)) + (_%K213306213365%_ + _%rest213380%_ + _%opt213378%_)))) + (let ((_%rest213337%_ _%tl213313213393%_)) + (_%K213298213331%_ _%rest213337%_))) + (if (equal? _%hd213312213391%_ '"-ld-options") + (if (pair? _%tl213313213393%_) + (let* ((_%tl213305213353%_ (let () (declare (not safe)) - (##cdr _%tl209898209978%_))) - (_%rest209941%_ - _%tl209890209938%_)) - (_%K209886209930%_ _%rest209941%_)) - (let ((_%rest209922%_ - _%tl209898209978%_)) - (_%K209883209916%_ _%rest209922%_))) - (let ((_%rest209922%_ _%tl209898209978%_)) - (_%K209883209916%_ _%rest209922%_))))) - (_%else209881209910%_))))))))) + (##cdr _%tl213313213393%_))) + (_%rest213356%_ + _%tl213305213353%_)) + (_%K213301213345%_ _%rest213356%_)) + (let ((_%rest213337%_ + _%tl213313213393%_)) + (_%K213298213331%_ _%rest213337%_))) + (let ((_%rest213337%_ _%tl213313213393%_)) + (_%K213298213331%_ _%rest213337%_))))) + (_%else213296213325%_))))))))) (define gxc#gsc-cc-options__%__0 - (lambda (_%@@keywords209993%_ _%static?209861209994%_) - (let ((_%phi?209996%_ '#f)) + (lambda (_%@@keywords213408%_ _%static?213277213409%_) + (let ((_%phi?213411%_ '#f)) (gxc#gsc-cc-options__%__% - _%@@keywords209993%_ - _%static?209861209994%_ - _%phi?209996%_)))) + _%@@keywords213408%_ + _%static?213277213409%_ + _%phi?213411%_)))) (define gxc#gsc-cc-options__% - (lambda _g211393_ - (let ((_g211394_ (let () (declare (not safe)) (##length _g211393_)))) - (cond ((let () (declare (not safe)) (##fx= _g211394_ 2)) - (apply gxc#gsc-cc-options__%__0 _g211393_)) - ((let () (declare (not safe)) (##fx= _g211394_ 3)) - (apply gxc#gsc-cc-options__%__% _g211393_)) + (lambda _g214808_ + (let ((_g214809_ (let () (declare (not safe)) (##length _g214808_)))) + (cond ((let () (declare (not safe)) (##fx= _g214809_ 2)) + (apply gxc#gsc-cc-options__%__0 _g214808_)) + ((let () (declare (not safe)) (##fx= _g214809_ 3)) + (apply gxc#gsc-cc-options__%__% _g214808_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-cc-options__% - _g211393_)))))) + _g214808_)))))) (define gxc#gsc-cc-options__@ - (lambda (_%@@keywords210005%_ . _%args210006%_) + (lambda (_%@@keywords213420%_ . _%args213421%_) (apply gxc#gsc-cc-options__% - _%@@keywords210005%_ + _%@@keywords213420%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords210005%_ + _%@@keywords213420%_ 'static: absent-value)) - _%args210006%_))) + _%args213421%_))) (define gxc#gsc-cc-options - (lambda _%args209862210012%_ + (lambda _%args213278213427%_ (apply keyword-dispatch '#(static:) gxc#gsc-cc-options__@ - _%args209862210012%_))) + _%args213278213427%_))) (define gxc#gsc-ld-options__%__% - (lambda (_%@@keywords209710%_ _%static?209706209711%_ _%phi?209713%_) - (let ((_%static?209715%_ - (if (eq? _%static?209706209711%_ absent-value) + (lambda (_%@@keywords213127%_ _%static?213123213128%_ _%phi?213129%_) + (let ((_%static?213131%_ + (if (eq? _%static?213123213128%_ absent-value) '#f - _%static?209706209711%_))) - (if _%phi?209713%_ + _%static?213123213128%_))) + (if _%phi?213129%_ '() - (let _%lp209717%_ ((_%rest209719%_ + (let _%lp213133%_ ((_%rest213135%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts209720%_ '())) - (let* ((_%rest209721209747%_ _%rest209719%_) - (_%else209726209755%_ - (lambda () (reverse! _%opts209720%_)))) - (let ((_%K209741209818%_ - (lambda (_%rest209815%_ _%opt209816%_) - (if _%static?209715%_ - (_%lp209717%_ - _%rest209815%_ - (cons _%opt209816%_ - (cons '"-ld-options" _%opts209720%_))) - (_%lp209717%_ _%rest209815%_ _%opts209720%_)))) - (_%K209736209795%_ - (lambda (_%rest209792%_ _%opt209793%_) - (_%lp209717%_ - _%rest209792%_ - (cons _%opt209793%_ - (cons '"-ld-options" _%opts209720%_))))) - (_%K209731209775%_ - (lambda (_%rest209773%_) - (_%lp209717%_ _%rest209773%_ _%opts209720%_))) - (_%K209728209761%_ - (lambda (_%rest209759%_) - (_%lp209717%_ _%rest209759%_ _%opts209720%_)))) - (if (pair? _%rest209721209747%_) - (let ((_%tl209743209823%_ + (_%opts213136%_ '())) + (let* ((_%rest213137213163%_ _%rest213135%_) + (_%else213142213171%_ + (lambda () (reverse! _%opts213136%_)))) + (let ((_%K213157213234%_ + (lambda (_%rest213231%_ _%opt213232%_) + (if _%static?213131%_ + (_%lp213133%_ + _%rest213231%_ + (cons _%opt213232%_ + (cons '"-ld-options" _%opts213136%_))) + (_%lp213133%_ _%rest213231%_ _%opts213136%_)))) + (_%K213152213211%_ + (lambda (_%rest213208%_ _%opt213209%_) + (_%lp213133%_ + _%rest213208%_ + (cons _%opt213209%_ + (cons '"-ld-options" _%opts213136%_))))) + (_%K213147213191%_ + (lambda (_%rest213189%_) + (_%lp213133%_ _%rest213189%_ _%opts213136%_))) + (_%K213144213177%_ + (lambda (_%rest213175%_) + (_%lp213133%_ _%rest213175%_ _%opts213136%_)))) + (if (pair? _%rest213137213163%_) + (let ((_%tl213159213239%_ (let () (declare (not safe)) - (##cdr _%rest209721209747%_))) - (_%hd209742209821%_ + (##cdr _%rest213137213163%_))) + (_%hd213158213237%_ (let () (declare (not safe)) - (##car _%rest209721209747%_)))) - (if (equal? _%hd209742209821%_ '"-ld-options") - (if (pair? _%tl209743209823%_) - (let ((_%tl209745209828%_ + (##car _%rest213137213163%_)))) + (if (equal? _%hd213158213237%_ '"-ld-options") + (if (pair? _%tl213159213239%_) + (let ((_%tl213161213244%_ (let () (declare (not safe)) - (##cdr _%tl209743209823%_))) - (_%hd209744209826%_ + (##cdr _%tl213159213239%_))) + (_%hd213160213242%_ (let () (declare (not safe)) - (##car _%tl209743209823%_)))) - (if (equal? _%hd209744209826%_ '"-static") - (let ((_%opt209831%_ - _%hd209744209826%_) - (_%rest209833%_ - _%tl209745209828%_)) - (_%K209741209818%_ - _%rest209833%_ - _%opt209831%_)) - (let ((_%opt209808%_ - _%hd209744209826%_) - (_%rest209810%_ - _%tl209745209828%_)) - (_%K209736209795%_ - _%rest209810%_ - _%opt209808%_)))) - (let ((_%rest209767%_ _%tl209743209823%_)) - (_%K209728209761%_ _%rest209767%_))) - (if (equal? _%hd209742209821%_ '"-cc-options") - (if (pair? _%tl209743209823%_) - (let* ((_%tl209735209783%_ + (##car _%tl213159213239%_)))) + (if (equal? _%hd213160213242%_ '"-static") + (let ((_%opt213247%_ + _%hd213160213242%_) + (_%rest213249%_ + _%tl213161213244%_)) + (_%K213157213234%_ + _%rest213249%_ + _%opt213247%_)) + (let ((_%opt213224%_ + _%hd213160213242%_) + (_%rest213226%_ + _%tl213161213244%_)) + (_%K213152213211%_ + _%rest213226%_ + _%opt213224%_)))) + (let ((_%rest213183%_ _%tl213159213239%_)) + (_%K213144213177%_ _%rest213183%_))) + (if (equal? _%hd213158213237%_ '"-cc-options") + (if (pair? _%tl213159213239%_) + (let* ((_%tl213151213199%_ (let () (declare (not safe)) - (##cdr _%tl209743209823%_))) - (_%rest209786%_ - _%tl209735209783%_)) - (_%K209731209775%_ _%rest209786%_)) - (let ((_%rest209767%_ - _%tl209743209823%_)) - (_%K209728209761%_ _%rest209767%_))) - (let ((_%rest209767%_ _%tl209743209823%_)) - (_%K209728209761%_ _%rest209767%_))))) - (_%else209726209755%_))))))))) + (##cdr _%tl213159213239%_))) + (_%rest213202%_ + _%tl213151213199%_)) + (_%K213147213191%_ _%rest213202%_)) + (let ((_%rest213183%_ + _%tl213159213239%_)) + (_%K213144213177%_ _%rest213183%_))) + (let ((_%rest213183%_ _%tl213159213239%_)) + (_%K213144213177%_ _%rest213183%_))))) + (_%else213142213171%_))))))))) (define gxc#gsc-ld-options__%__0 - (lambda (_%@@keywords209838%_ _%static?209706209839%_) - (let ((_%phi?209841%_ '#f)) + (lambda (_%@@keywords213254%_ _%static?213123213255%_) + (let ((_%phi?213257%_ '#f)) (gxc#gsc-ld-options__%__% - _%@@keywords209838%_ - _%static?209706209839%_ - _%phi?209841%_)))) + _%@@keywords213254%_ + _%static?213123213255%_ + _%phi?213257%_)))) (define gxc#gsc-ld-options__% - (lambda _g211395_ - (let ((_g211396_ (let () (declare (not safe)) (##length _g211395_)))) - (cond ((let () (declare (not safe)) (##fx= _g211396_ 2)) - (apply gxc#gsc-ld-options__%__0 _g211395_)) - ((let () (declare (not safe)) (##fx= _g211396_ 3)) - (apply gxc#gsc-ld-options__%__% _g211395_)) + (lambda _g214810_ + (let ((_g214811_ (let () (declare (not safe)) (##length _g214810_)))) + (cond ((let () (declare (not safe)) (##fx= _g214811_ 2)) + (apply gxc#gsc-ld-options__%__0 _g214810_)) + ((let () (declare (not safe)) (##fx= _g214811_ 3)) + (apply gxc#gsc-ld-options__%__% _g214810_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-ld-options__% - _g211395_)))))) + _g214810_)))))) (define gxc#gsc-ld-options__@ - (lambda (_%@@keywords209850%_ . _%args209851%_) + (lambda (_%@@keywords213266%_ . _%args213267%_) (apply gxc#gsc-ld-options__% - _%@@keywords209850%_ + _%@@keywords213266%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords209850%_ + _%@@keywords213266%_ 'static: absent-value)) - _%args209851%_))) + _%args213267%_))) (define gxc#gsc-ld-options - (lambda _%args209707209857%_ + (lambda _%args213124213273%_ (apply keyword-dispatch '#(static:) gxc#gsc-ld-options__@ - _%args209707209857%_))) + _%args213124213273%_))) (define gxc#gsc-static-include-options - (lambda (_%staticdir209701%_) - (let ((_%user-staticdir209703%_ + (lambda (_%staticdir213118%_) + (let ((_%user-staticdir213120%_ (path-expand (path-expand '"lib/static" @@ -3009,337 +3009,337 @@ (cons '"-cc-options" (cons (string-append '"-I " - _%staticdir209701%_ + _%staticdir213118%_ '" -I " - _%user-staticdir209703%_) + _%user-staticdir213120%_) '()))))) (define gxc#gcc-ld-options (lambda () - (let _%lp209613%_ ((_%rest209615%_ + (let _%lp213030%_ ((_%rest213032%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts209616%_ '())) - (let* ((_%rest209617209637%_ _%rest209615%_) - (_%else209621209645%_ (lambda () _%opts209616%_))) - (let ((_%K209631209688%_ - (lambda (_%rest209686%_) - (_%lp209613%_ _%rest209686%_ _%opts209616%_))) - (_%K209626209666%_ - (lambda (_%rest209663%_ _%opt209664%_) - (_%lp209613%_ - _%rest209663%_ - (let ((__tmp211397 - (let ((__tmp211398 + (_%opts213033%_ '())) + (let* ((_%rest213034213054%_ _%rest213032%_) + (_%else213038213062%_ (lambda () _%opts213033%_))) + (let ((_%K213048213105%_ + (lambda (_%rest213103%_) + (_%lp213030%_ _%rest213103%_ _%opts213033%_))) + (_%K213043213083%_ + (lambda (_%rest213080%_ _%opt213081%_) + (_%lp213030%_ + _%rest213080%_ + (let ((__tmp214812 + (let ((__tmp214813 (let () (declare (not safe)) - (string-split _%opt209664%_ '#\space)))) + (string-split _%opt213081%_ '#\space)))) (declare (not safe)) - (##filter gxc#not-string-empty? __tmp211398)))) + (##filter gxc#not-string-empty? __tmp214813)))) (declare (not safe)) - (##append _%opts209616%_ __tmp211397))))) - (_%K209623209651%_ - (lambda (_%rest209649%_) - (_%lp209613%_ _%rest209649%_ _%opts209616%_)))) - (if (pair? _%rest209617209637%_) - (let ((_%tl209633209693%_ + (##append _%opts213033%_ __tmp214812))))) + (_%K213040213068%_ + (lambda (_%rest213066%_) + (_%lp213030%_ _%rest213066%_ _%opts213033%_)))) + (if (pair? _%rest213034213054%_) + (let ((_%tl213050213110%_ (let () (declare (not safe)) - (##cdr _%rest209617209637%_))) - (_%hd209632209691%_ + (##cdr _%rest213034213054%_))) + (_%hd213049213108%_ (let () (declare (not safe)) - (##car _%rest209617209637%_)))) - (if (equal? _%hd209632209691%_ '"-cc-options") - (if (pair? _%tl209633209693%_) - (let* ((_%tl209635209696%_ + (##car _%rest213034213054%_)))) + (if (equal? _%hd213049213108%_ '"-cc-options") + (if (pair? _%tl213050213110%_) + (let* ((_%tl213052213113%_ (let () (declare (not safe)) - (##cdr _%tl209633209693%_))) - (_%rest209699%_ _%tl209635209696%_)) - (_%K209631209688%_ _%rest209699%_)) - (let ((_%rest209657%_ _%tl209633209693%_)) - (_%K209623209651%_ _%rest209657%_))) - (if (equal? _%hd209632209691%_ '"-ld-options") - (if (pair? _%tl209633209693%_) - (let ((_%tl209630209676%_ + (##cdr _%tl213050213110%_))) + (_%rest213116%_ _%tl213052213113%_)) + (_%K213048213105%_ _%rest213116%_)) + (let ((_%rest213074%_ _%tl213050213110%_)) + (_%K213040213068%_ _%rest213074%_))) + (if (equal? _%hd213049213108%_ '"-ld-options") + (if (pair? _%tl213050213110%_) + (let ((_%tl213047213093%_ (let () (declare (not safe)) - (##cdr _%tl209633209693%_))) - (_%hd209629209674%_ + (##cdr _%tl213050213110%_))) + (_%hd213046213091%_ (let () (declare (not safe)) - (##car _%tl209633209693%_)))) - (let ((_%opt209679%_ _%hd209629209674%_) - (_%rest209681%_ _%tl209630209676%_)) - (_%K209626209666%_ - _%rest209681%_ - _%opt209679%_))) - (let ((_%rest209657%_ _%tl209633209693%_)) - (_%K209623209651%_ _%rest209657%_))) - (let ((_%rest209657%_ _%tl209633209693%_)) - (_%K209623209651%_ _%rest209657%_))))) - (_%else209621209645%_))))))) + (##car _%tl213050213110%_)))) + (let ((_%opt213096%_ _%hd213046213091%_) + (_%rest213098%_ _%tl213047213093%_)) + (_%K213043213083%_ + _%rest213098%_ + _%opt213096%_))) + (let ((_%rest213074%_ _%tl213050213110%_)) + (_%K213040213068%_ _%rest213074%_))) + (let ((_%rest213074%_ _%tl213050213110%_)) + (_%K213040213068%_ _%rest213074%_))))) + (_%else213038213062%_))))))) (define gxc#not-string-empty? - (lambda (_%str209610%_) - (not (let () (declare (not safe)) (string-empty? _%str209610%_))))) + (lambda (_%str213027%_) + (not (let () (declare (not safe)) (string-empty? _%str213027%_))))) (define gxc#gsc-compile-file - (lambda (_%path209603%_ _%phi?209604%_) - (let ((_%gsc-link-opts209606%_ - (gxc#gsc-link-options__% _%phi?209604%_)) - (_%gsc-cc-opts209607%_ - (gxc#gsc-cc-options__%__% '#f absent-value _%phi?209604%_)) - (_%gsc-ld-opts209608%_ - (gxc#gsc-ld-options__%__% '#f absent-value _%phi?209604%_))) + (lambda (_%path213020%_ _%phi?213021%_) + (let ((_%gsc-link-opts213023%_ + (gxc#gsc-link-options__% _%phi?213021%_)) + (_%gsc-cc-opts213024%_ + (gxc#gsc-cc-options__%__% '#f absent-value _%phi?213021%_)) + (_%gsc-ld-opts213025%_ + (gxc#gsc-ld-options__%__% '#f absent-value _%phi?213021%_))) (gxc#invoke__% '#f absent-value absent-value (gxc#gerbil-gsc) - (let ((__tmp211399 - (let ((__tmp211400 - (let ((__tmp211401 (cons _%path209603%_ '()))) + (let ((__tmp214814 + (let ((__tmp214815 + (let ((__tmp214816 (cons _%path213020%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp211401 - _%gsc-link-opts209606%_)))) + __tmp214816 + _%gsc-link-opts213023%_)))) (declare (not safe)) - (__foldr1 cons __tmp211400 _%gsc-ld-opts209608%_)))) + (__foldr1 cons __tmp214815 _%gsc-ld-opts213025%_)))) (declare (not safe)) - (__foldr1 cons __tmp211399 _%gsc-cc-opts209607%_)))))) + (__foldr1 cons __tmp214814 _%gsc-cc-opts213024%_)))))) (define gxc#compile-output-file - (lambda (_%ctx209569%_ _%n209570%_ _%ext209571%_) - (letrec ((_%module-relative-path209573%_ - (lambda (_%ctx209601%_) + (lambda (_%ctx212986%_ _%n212987%_ _%ext212988%_) + (letrec ((_%module-relative-path212990%_ + (lambda (_%ctx213018%_) (path-strip-directory - (let ((__tmp211402 + (let ((__tmp214817 (##structure-ref - _%ctx209601%_ + _%ctx213018%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp211402))))) - (_%module-source-directory209574%_ - (lambda (_%ctx209597%_) + (gxc#module-id->path-string __tmp214817))))) + (_%module-source-directory212991%_ + (lambda (_%ctx213014%_) (path-directory - (let ((_%mpath209599%_ + (let ((_%mpath213016%_ (##structure-ref - _%ctx209597%_ + _%ctx213014%_ '7 gx#module-context::t '#f))) - (if (string? _%mpath209599%_) - _%mpath209599%_ - (last _%mpath209599%_)))))) - (_%section-string209575%_ - (lambda (_%n209591%_) - (if (number? _%n209591%_) + (if (string? _%mpath213016%_) + _%mpath213016%_ + (last _%mpath213016%_)))))) + (_%section-string212992%_ + (lambda (_%n213008%_) + (if (number? _%n213008%_) (let () (declare (not safe)) - (##number->string _%n209591%_)) - (if (symbol? _%n209591%_) + (##number->string _%n213008%_)) + (if (symbol? _%n213008%_) (let () (declare (not safe)) - (##symbol->string _%n209591%_)) - (if (string? _%n209591%_) - _%n209591%_ + (##symbol->string _%n213008%_)) + (if (string? _%n213008%_) + _%n213008%_ (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected section" - _%n209591%_))))))) - (_%file-name209576%_ - (lambda (_%path209589%_) - (if _%n209570%_ + _%n213008%_))))))) + (_%file-name212993%_ + (lambda (_%path213006%_) + (if _%n212987%_ (string-append - _%path209589%_ + _%path213006%_ '"~" - (_%section-string209575%_ _%n209570%_) - _%ext209571%_) - (string-append _%path209589%_ _%ext209571%_)))) - (_%file-path209577%_ + (_%section-string212992%_ _%n212987%_) + _%ext212988%_) + (string-append _%path213006%_ _%ext212988%_)))) + (_%file-path212994%_ (lambda () - (let ((_%$e209583%_ + (let ((_%$e213000%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e209583%_ - ((lambda (_%outdir209586%_) + (if _%$e213000%_ + ((lambda (_%outdir213003%_) (path-expand - (_%file-name209576%_ - (let ((__tmp211403 + (_%file-name212993%_ + (let ((__tmp214818 (##structure-ref - _%ctx209569%_ + _%ctx212986%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp211403))) - _%outdir209586%_)) - _%$e209583%_) + (gxc#module-id->path-string __tmp214818))) + _%outdir213003%_)) + _%$e213000%_) (path-expand - (_%file-name209576%_ - (_%module-relative-path209573%_ _%ctx209569%_)) - (_%module-source-directory209574%_ - _%ctx209569%_))))))) - (let ((_%path209579%_ (_%file-path209577%_))) - (let ((__tmp211404 + (_%file-name212993%_ + (_%module-relative-path212990%_ _%ctx212986%_)) + (_%module-source-directory212991%_ + _%ctx212986%_))))))) + (let ((_%path212996%_ (_%file-path212994%_))) + (let ((__tmp214819 (lambda () - (let ((__tmp211405 (path-directory _%path209579%_))) + (let ((__tmp214820 (path-directory _%path212996%_))) (declare (not safe)) - (create-directory*__0 __tmp211405))))) + (create-directory*__0 __tmp214820))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp211404)) - _%path209579%_)))) + (__with-lock gxc#+driver-mutex+ __tmp214819)) + _%path212996%_)))) (define gxc#compile-static-output-file - (lambda (_%ctx209550%_) - (letrec ((_%file-name209552%_ - (lambda (_%id209567%_) - (let ((__tmp211406 (gxc#static-module-name _%id209567%_))) + (lambda (_%ctx212967%_) + (letrec ((_%file-name212969%_ + (lambda (_%id212984%_) + (let ((__tmp214821 (gxc#static-module-name _%id212984%_))) (declare (not safe)) - (##string-append __tmp211406 '".scm")))) - (_%file-path209553%_ + (##string-append __tmp214821 '".scm")))) + (_%file-path212970%_ (lambda () - (let* ((_%file209559%_ - (_%file-name209552%_ + (let* ((_%file212976%_ + (_%file-name212969%_ (##structure-ref - _%ctx209550%_ + _%ctx212967%_ '1 gx#expander-context::t '#f))) - (_%$e209561%_ + (_%$e212978%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e209561%_ - ((lambda (_%outdir209564%_) + (if _%$e212978%_ + ((lambda (_%outdir212981%_) (path-expand - _%file209559%_ - (path-expand '"static" _%outdir209564%_))) - _%$e209561%_) - (path-expand _%file209559%_ '"static")))))) - (let ((_%path209555%_ (_%file-path209553%_))) - (let ((__tmp211407 + _%file212976%_ + (path-expand '"static" _%outdir212981%_))) + _%$e212978%_) + (path-expand _%file212976%_ '"static")))))) + (let ((_%path212972%_ (_%file-path212970%_))) + (let ((__tmp214822 (lambda () - (let ((__tmp211408 (path-directory _%path209555%_))) + (let ((__tmp214823 (path-directory _%path212972%_))) (declare (not safe)) - (create-directory*__0 __tmp211408))))) + (create-directory*__0 __tmp214823))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp211407)) - _%path209555%_)))) + (__with-lock gxc#+driver-mutex+ __tmp214822)) + _%path212972%_)))) (define gxc#compile-exe-output-file - (lambda (_%ctx209543%_ _%opts209544%_) - (let ((_%$e209546%_ + (lambda (_%ctx212960%_ _%opts212961%_) + (let ((_%$e212963%_ (let () (declare (not safe)) - (pgetq__0 'output-file: _%opts209544%_)))) - (if _%$e209546%_ - _%$e209546%_ + (pgetq__0 'output-file: _%opts212961%_)))) + (if _%$e212963%_ + _%$e212963%_ (path-strip-directory (symbol->string (##structure-ref - _%ctx209543%_ + _%ctx212960%_ '1 gx#expander-context::t '#f))))))) (define gxc#static-module-name - (lambda (_%idstr209533%_) - (if (string? _%idstr209533%_) - (let* ((_%str209536%_ + (lambda (_%idstr212950%_) + (if (string? _%idstr212950%_) + (let* ((_%str212953%_ (let () (declare (not safe)) - (gxc#module-id->path-string _%idstr209533%_))) - (_%strs209538%_ + (gxc#module-id->path-string _%idstr212950%_))) + (_%strs212955%_ (let () (declare (not safe)) - (string-split _%str209536%_ '#\/)))) + (string-split _%str212953%_ '#\/)))) (declare (not safe)) - (string-join _%strs209538%_ '"__")) - (if (symbol? _%idstr209533%_) + (string-join _%strs212955%_ '"__")) + (if (symbol? _%idstr212950%_) (gxc#static-module-name (let () (declare (not safe)) - (##symbol->string _%idstr209533%_))) + (##symbol->string _%idstr212950%_))) (let () (declare (not safe)) - (error '"Bad module id" _%idstr209533%_)))))) + (error '"Bad module id" _%idstr212950%_)))))) (define gxc#gerbil-enable-shared? (lambda () - (let ((__tmp211409 - (let ((__tmp211410 (configure-command-string))) + (let ((__tmp214824 + (let ((__tmp214825 (configure-command-string))) (declare (not safe)) - (__string-split __tmp211410 '#\')))) + (__string-split __tmp214825 '#\')))) (declare (not safe)) - (##member '"--enable-shared" __tmp211409)))) + (##member '"--enable-shared" __tmp214824)))) (define gxc#invoke__% - (lambda (_%@@keywords209497%_ - _%stdout-redirection209493209498%_ - _%stderr-redirection209494209500%_ - _%program209502%_ - _%args209503%_) - (let* ((_%stdout-redirection209505%_ - (if (eq? _%stdout-redirection209493209498%_ absent-value) + (lambda (_%@@keywords212916%_ + _%stdout-redirection212912212917%_ + _%stderr-redirection212913212918%_ + _%program212919%_ + _%args212920%_) + (let* ((_%stdout-redirection212922%_ + (if (eq? _%stdout-redirection212912212917%_ absent-value) '#f - _%stdout-redirection209493209498%_)) - (_%stderr-redirection209507%_ - (if (eq? _%stderr-redirection209494209500%_ absent-value) + _%stdout-redirection212912212917%_)) + (_%stderr-redirection212924%_ + (if (eq? _%stderr-redirection212913212918%_ absent-value) '#f - _%stderr-redirection209494209500%_))) - (let ((__tmp211411 (cons _%program209502%_ _%args209503%_))) + _%stderr-redirection212913212918%_))) + (let ((__tmp214826 (cons _%program212919%_ _%args212920%_))) (declare (not safe)) - (gxc#verbose '"invoke " __tmp211411)) - (let* ((_%proc209509%_ + (gxc#verbose '"invoke " __tmp214826)) + (let* ((_%proc212926%_ (open-process (cons 'path: - (cons _%program209502%_ + (cons _%program212919%_ (cons 'arguments: - (cons _%args209503%_ + (cons _%args212920%_ (cons 'stdout-redirection: - (cons _%stdout-redirection209505%_ + (cons _%stdout-redirection212922%_ (cons 'stderr-redirection: - (cons _%stderr-redirection209507%_ + (cons _%stderr-redirection212924%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%output209514%_ - (if (or _%stdout-redirection209505%_ - _%stderr-redirection209507%_) - (read-line _%proc209509%_ '#f) + (_%output212931%_ + (if (or _%stdout-redirection212922%_ + _%stderr-redirection212924%_) + (read-line _%proc212926%_ '#f) '#f)) - (_%status209517%_ (process-status _%proc209509%_))) - (let () (declare (not safe)) (##close-port _%proc209509%_)) - (if (zero? _%status209517%_) + (_%status212934%_ (process-status _%proc212926%_))) + (let () (declare (not safe)) (##close-port _%proc212926%_)) + (if (zero? _%status212934%_) '#!void (begin - (display _%output209514%_) - (let ((__tmp211412 (cons _%program209502%_ _%args209503%_))) + (display _%output212931%_) + (let ((__tmp214827 (cons _%program212919%_ _%args212920%_))) (declare (not safe)) (gxc#raise-compile-error '"Compilation error; process exit with nonzero status" - __tmp211412 - _%status209517%_)))))))) + __tmp214827 + _%status212934%_)))))))) (define gxc#invoke__@ - (lambda (_%@@keywords209522%_ . _%args209523%_) + (lambda (_%@@keywords212939%_ . _%args212940%_) (apply gxc#invoke__% - _%@@keywords209522%_ + _%@@keywords212939%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords209522%_ + _%@@keywords212939%_ 'stdout-redirection: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords209522%_ + _%@@keywords212939%_ 'stderr-redirection: absent-value)) - _%args209523%_))) + _%args212940%_))) (define gxc#invoke - (lambda _%args209495209529%_ + (lambda _%args212914212946%_ (apply keyword-dispatch '#(stderr-redirection: stdout-redirection:) gxc#invoke__@ - _%args209495209529%_))))) + _%args212914212946%_))))) diff --git a/src/bootstrap/gerbil/compiler/driver~1.scm b/src/bootstrap/gerbil/compiler/driver~1.scm index bc37699430..6b527c0038 100644 --- a/src/bootstrap/gerbil/compiler/driver~1.scm +++ b/src/bootstrap/gerbil/compiler/driver~1.scm @@ -1,50 +1,50 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (define |gxc[:0:]#with-driver-mutex| - (lambda (_%$stx209428%_) - (let* ((_%g209432209446%_ - (lambda (_%g209433209442%_) + (lambda (_%$stx212847%_) + (let* ((_%g212851212865%_ + (lambda (_%g212852212861%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g209433209442%_)))) - (_%g209431209488%_ - (lambda (_%g209433209450%_) + _%g212852212861%_)))) + (_%g212850212907%_ + (lambda (_%g212852212869%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g209433209450%_)) - (let ((_%e209435209453%_ + (gx#stx-pair? _%g212852212869%_)) + (let ((_%e212854212872%_ (let () (declare (not safe)) - (gx#syntax-e _%g209433209450%_)))) - (let ((_%hd209436209457%_ + (gx#syntax-e _%g212852212869%_)))) + (let ((_%hd212855212876%_ (let () (declare (not safe)) - (##car _%e209435209453%_))) - (_%tl209437209460%_ + (##car _%e212854212872%_))) + (_%tl212856212879%_ (let () (declare (not safe)) - (##cdr _%e209435209453%_)))) + (##cdr _%e212854212872%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl209437209460%_)) - (let ((_%e209438209463%_ + (gx#stx-pair? _%tl212856212879%_)) + (let ((_%e212857212882%_ (let () (declare (not safe)) - (gx#syntax-e _%tl209437209460%_)))) - (let ((_%hd209439209467%_ + (gx#syntax-e _%tl212856212879%_)))) + (let ((_%hd212858212886%_ (let () (declare (not safe)) - (##car _%e209438209463%_))) - (_%tl209440209470%_ + (##car _%e212857212882%_))) + (_%tl212859212889%_ (let () (declare (not safe)) - (##cdr _%e209438209463%_)))) + (##cdr _%e212857212882%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl209440209470%_)) - ((lambda (_%L209473%_) + (gx#stx-null? _%tl212859212889%_)) + ((lambda (_%g212853212892%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -60,11 +60,11 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'lambda)) - (cons '() (cons _%L209473%_ '()))) + (cons '() (cons _%g212853212892%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd209439209467%_) - (_%g209432209446%_ _%g209433209450%_)))) - (_%g209432209446%_ _%g209433209450%_)))) - (_%g209432209446%_ _%g209433209450%_))))) - (_%g209431209488%_ _%$stx209428%_)))) + _%hd212858212886%_) + (_%g212851212865%_ _%g212852212869%_)))) + (_%g212851212865%_ _%g212852212869%_)))) + (_%g212851212865%_ _%g212852212869%_))))) + (_%g212850212907%_ _%$stx212847%_)))) diff --git a/src/bootstrap/gerbil/compiler/method~0.scm b/src/bootstrap/gerbil/compiler/method~0.scm index ab653e3bbf..0c34a4dcc7 100644 --- a/src/bootstrap/gerbil/compiler/method~0.scm +++ b/src/bootstrap/gerbil/compiler/method~0.scm @@ -1,105 +1,105 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/method::timestamp 1756721296) + (define gerbil/compiler/method::timestamp 1769384629) (begin (define gxc#current-compile-method (make-parameter '#f)) (define gxc#compile-e__0 - (lambda (_%stx146434%_) - (let* ((_%self146436%_ + (lambda (_%stx150131%_) + (let* ((_%self150133%_ (let () (declare (not safe)) (gxc#current-compile-method))) - (_%$e146438%_ - (let ((__tmp146656 (gxc#stx-car-e _%stx146434%_))) + (_%$e150135%_ + (let ((__tmp150353 (gxc#stx-car-e _%stx150131%_))) (declare (not safe)) - (method-ref _%self146436%_ __tmp146656)))) - (if _%$e146438%_ - ((lambda (_%method146441%_) + (method-ref _%self150133%_ __tmp150353)))) + (if _%$e150135%_ + ((lambda (_%method150138%_) (declare (not safe)) - (let ((_%$e146444%_ (gx#stx-source _%stx146434%_))) - (if _%$e146444%_ - ((lambda (_%source146447%_) + (let ((_%$e150141%_ (gx#stx-source _%stx150131%_))) + (if _%$e150141%_ + ((lambda (_%source150144%_) (call-with-parameters__1 (lambda () - (_%method146441%_ _%self146436%_ _%stx146434%_)) + (_%method150138%_ _%self150133%_ _%stx150131%_)) gxc#current-compile-context - (cons (cons '@ (cons _%source146447%_ '())) - (let ((_%$e146451%_ + (cons (cons '@ (cons _%source150144%_ '())) + (let ((_%$e150148%_ (gxc#current-compile-context))) - (if _%$e146451%_ _%$e146451%_ '()))))) - _%$e146444%_) - (_%method146441%_ _%self146436%_ _%stx146434%_)))) - _%$e146438%_) - (let ((__tmp146658 (gxc#stx-car-e _%stx146434%_)) - (__tmp146657 + (if _%$e150148%_ _%$e150148%_ '()))))) + _%$e150141%_) + (_%method150138%_ _%self150133%_ _%stx150131%_)))) + _%$e150135%_) + (let ((__tmp150355 (gxc#stx-car-e _%stx150131%_)) + (__tmp150354 (let () (declare (not safe)) - (gx#syntax->datum _%stx146434%_)))) + (gx#syntax->datum _%stx150131%_)))) (declare (not safe)) (error '"missing method" - _%self146436%_ - __tmp146658 - __tmp146657)))))) + _%self150133%_ + __tmp150355 + __tmp150354)))))) (define gxc#compile-e__1 - (lambda (_%self146456%_ _%stx146457%_) - (let ((_%$e146459%_ - (let ((__tmp146659 (gxc#stx-car-e _%stx146457%_))) + (lambda (_%self150153%_ _%stx150154%_) + (let ((_%$e150156%_ + (let ((__tmp150356 (gxc#stx-car-e _%stx150154%_))) (declare (not safe)) - (method-ref _%self146456%_ __tmp146659)))) - (if _%$e146459%_ - ((lambda (_%method146462%_) + (method-ref _%self150153%_ __tmp150356)))) + (if _%$e150156%_ + ((lambda (_%method150159%_) (declare (not safe)) - (let ((_%$e146465%_ (gx#stx-source _%stx146457%_))) - (if _%$e146465%_ - ((lambda (_%source146468%_) + (let ((_%$e150162%_ (gx#stx-source _%stx150154%_))) + (if _%$e150162%_ + ((lambda (_%source150165%_) (call-with-parameters__1 (lambda () - (_%method146462%_ _%self146456%_ _%stx146457%_)) + (_%method150159%_ _%self150153%_ _%stx150154%_)) gxc#current-compile-context - (cons (cons '@ (cons _%source146468%_ '())) - (let ((_%$e146472%_ + (cons (cons '@ (cons _%source150165%_ '())) + (let ((_%$e150169%_ (gxc#current-compile-context))) - (if _%$e146472%_ _%$e146472%_ '()))))) - _%$e146465%_) - (_%method146462%_ _%self146456%_ _%stx146457%_)))) - _%$e146459%_) - (let ((__tmp146661 (gxc#stx-car-e _%stx146457%_)) - (__tmp146660 + (if _%$e150169%_ _%$e150169%_ '()))))) + _%$e150162%_) + (_%method150159%_ _%self150153%_ _%stx150154%_)))) + _%$e150156%_) + (let ((__tmp150358 (gxc#stx-car-e _%stx150154%_)) + (__tmp150357 (let () (declare (not safe)) - (gx#syntax->datum _%stx146457%_)))) + (gx#syntax->datum _%stx150154%_)))) (declare (not safe)) (error '"missing method" - _%self146456%_ - __tmp146661 - __tmp146660)))))) + _%self150153%_ + __tmp150358 + __tmp150357)))))) (define gxc#compile-e - (lambda _g146662_ - (let ((_g146663_ (let () (declare (not safe)) (##length _g146662_)))) - (cond ((let () (declare (not safe)) (##fx= _g146663_ 1)) - (apply gxc#compile-e__0 _g146662_)) - ((let () (declare (not safe)) (##fx= _g146663_ 2)) - (apply gxc#compile-e__1 _g146662_)) + (lambda _g150359_ + (let ((_g150360_ (let () (declare (not safe)) (##length _g150359_)))) + (cond ((let () (declare (not safe)) (##fx= _g150360_ 1)) + (apply gxc#compile-e__0 _g150359_)) + ((let () (declare (not safe)) (##fx= _g150360_ 2)) + (apply gxc#compile-e__1 _g150359_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-e - _g146662_)))))) + _g150359_)))))) (define gxc#stx-car-e - (lambda (_%stx146432%_) - (let ((__tmp146664 - (car (let () (declare (not safe)) (gx#stx-e _%stx146432%_))))) + (lambda (_%stx150129%_) + (let ((__tmp150361 + (car (let () (declare (not safe)) (gx#stx-e _%stx150129%_))))) (declare (not safe)) - (gx#stx-e __tmp146664)))) - (define gxc#void-method (lambda (_%self146429%_ _%stx146430%_) '#!void)) - (define gxc#false-method (lambda (_%self146426%_ _%stx146427%_) '#f)) - (define gxc#true-method (lambda (_%self146423%_ _%stx146424%_) '#t)) + (gx#stx-e __tmp150361)))) + (define gxc#void-method (lambda (_%self150126%_ _%stx150127%_) '#!void)) + (define gxc#false-method (lambda (_%self150123%_ _%stx150124%_) '#f)) + (define gxc#true-method (lambda (_%self150120%_ _%stx150121%_) '#t)) (define gxc#identity-method - (lambda (_%self146420%_ _%stx146421%_) _%stx146421%_)) + (lambda (_%self150117%_ _%stx150118%_) _%stx150118%_)) (define gxc#::void-expression::t - (let ((__tmp146665 (list))) + (let ((__tmp150362 (list))) (declare (not safe)) (__make-class-type 'gxc#::void-expression::t '::void-expression - __tmp146665 + __tmp150362 '() '() '#f))) @@ -108,10 +108,10 @@ (declare (not safe)) (__make-class-predicate gxc#::void-expression::t))) (define gxc#make-::void-expression - (lambda _%$args146417%_ - (apply make-instance gxc#::void-expression::t _%$args146417%_))) + (lambda _%$args150114%_ + (apply make-instance gxc#::void-expression::t _%$args150114%_))) (define gxc#::void-expression-bind-methods! - (let ((__tmp146666 + (let ((__tmp150363 (lambda () (let () (declare (not safe)) @@ -240,14 +240,14 @@ '%#struct-unchecked-set! gxc#void-method))))) (declare (not safe)) - (__make-atomic-promise __tmp146666))) + (__make-atomic-promise __tmp150363))) (define gxc#::void-special-form::t - (let ((__tmp146667 (list))) + (let ((__tmp150364 (list))) (declare (not safe)) (__make-class-type 'gxc#::void-special-form::t '::void-special-form - __tmp146667 + __tmp150364 '() '() '#f))) @@ -256,10 +256,10 @@ (declare (not safe)) (__make-class-predicate gxc#::void-special-form::t))) (define gxc#make-::void-special-form - (lambda _%$args146413%_ - (apply make-instance gxc#::void-special-form::t _%$args146413%_))) + (lambda _%$args150110%_ + (apply make-instance gxc#::void-special-form::t _%$args150110%_))) (define gxc#::void-special-form-bind-methods! - (let ((__tmp146668 + (let ((__tmp150365 (lambda () (let () (declare (not safe)) @@ -334,31 +334,31 @@ '%#declare gxc#void-method))))) (declare (not safe)) - (__make-atomic-promise __tmp146668))) + (__make-atomic-promise __tmp150365))) (define gxc#::void::t - (let ((__tmp146669 + (let ((__tmp150366 (list gxc#::void-special-form::t gxc#::void-expression::t))) (declare (not safe)) - (__make-class-type 'gxc#::void::t '::void __tmp146669 '() '() '#f))) + (__make-class-type 'gxc#::void::t '::void __tmp150366 '() '() '#f))) (define gxc#::void? (let () (declare (not safe)) (__make-class-predicate gxc#::void::t))) (define gxc#make-::void - (lambda _%$args146409%_ - (apply make-instance gxc#::void::t _%$args146409%_))) + (lambda _%$args150106%_ + (apply make-instance gxc#::void::t _%$args150106%_))) (define gxc#::void-bind-methods! - (let ((__tmp146670 + (let ((__tmp150367 (lambda () (force gxc#::void-special-form-bind-methods!) (force gxc#::void-expression-bind-methods!)))) (declare (not safe)) - (__make-atomic-promise __tmp146670))) + (__make-atomic-promise __tmp150367))) (define gxc#::false-expression::t - (let ((__tmp146671 (list))) + (let ((__tmp150368 (list))) (declare (not safe)) (__make-class-type 'gxc#::false-expression::t '::false-expression - __tmp146671 + __tmp150368 '() '() '#f))) @@ -367,10 +367,10 @@ (declare (not safe)) (__make-class-predicate gxc#::false-expression::t))) (define gxc#make-::false-expression - (lambda _%$args146405%_ - (apply make-instance gxc#::false-expression::t _%$args146405%_))) + (lambda _%$args150102%_ + (apply make-instance gxc#::false-expression::t _%$args150102%_))) (define gxc#::false-expression-bind-methods! - (let ((__tmp146672 + (let ((__tmp150369 (lambda () (let () (declare (not safe)) @@ -499,14 +499,14 @@ '%#struct-unchecked-set! gxc#false-method))))) (declare (not safe)) - (__make-atomic-promise __tmp146672))) + (__make-atomic-promise __tmp150369))) (define gxc#::false-special-form::t - (let ((__tmp146673 (list))) + (let ((__tmp150370 (list))) (declare (not safe)) (__make-class-type 'gxc#::false-special-form::t '::false-special-form - __tmp146673 + __tmp150370 '() '() '#f))) @@ -515,10 +515,10 @@ (declare (not safe)) (__make-class-predicate gxc#::false-special-form::t))) (define gxc#make-::false-special-form - (lambda _%$args146401%_ - (apply make-instance gxc#::false-special-form::t _%$args146401%_))) + (lambda _%$args150098%_ + (apply make-instance gxc#::false-special-form::t _%$args150098%_))) (define gxc#::false-special-form-bind-methods! - (let ((__tmp146674 + (let ((__tmp150371 (lambda () (let () (declare (not safe)) @@ -593,31 +593,31 @@ '%#declare gxc#false-method))))) (declare (not safe)) - (__make-atomic-promise __tmp146674))) + (__make-atomic-promise __tmp150371))) (define gxc#::false::t - (let ((__tmp146675 + (let ((__tmp150372 (list gxc#::false-special-form::t gxc#::false-expression::t))) (declare (not safe)) - (__make-class-type 'gxc#::false::t '::false __tmp146675 '() '() '#f))) + (__make-class-type 'gxc#::false::t '::false __tmp150372 '() '() '#f))) (define gxc#::false? (let () (declare (not safe)) (__make-class-predicate gxc#::false::t))) (define gxc#make-::false - (lambda _%$args146397%_ - (apply make-instance gxc#::false::t _%$args146397%_))) + (lambda _%$args150094%_ + (apply make-instance gxc#::false::t _%$args150094%_))) (define gxc#::false-bind-methods! - (let ((__tmp146676 + (let ((__tmp150373 (lambda () (force gxc#::false-special-form-bind-methods!) (force gxc#::false-expression-bind-methods!)))) (declare (not safe)) - (__make-atomic-promise __tmp146676))) + (__make-atomic-promise __tmp150373))) (define gxc#::identity-expression::t - (let ((__tmp146677 (list))) + (let ((__tmp150374 (list))) (declare (not safe)) (__make-class-type 'gxc#::identity-expression::t '::identity-expression - __tmp146677 + __tmp150374 '() '() '#f))) @@ -626,10 +626,10 @@ (declare (not safe)) (__make-class-predicate gxc#::identity-expression::t))) (define gxc#make-::identity-expression - (lambda _%$args146393%_ - (apply make-instance gxc#::identity-expression::t _%$args146393%_))) + (lambda _%$args150090%_ + (apply make-instance gxc#::identity-expression::t _%$args150090%_))) (define gxc#::identity-expression-bind-methods! - (let ((__tmp146678 + (let ((__tmp150375 (lambda () (let () (declare (not safe)) @@ -758,14 +758,14 @@ '%#struct-unchecked-set! gxc#identity-method))))) (declare (not safe)) - (__make-atomic-promise __tmp146678))) + (__make-atomic-promise __tmp150375))) (define gxc#::identity-special-form::t - (let ((__tmp146679 (list))) + (let ((__tmp150376 (list))) (declare (not safe)) (__make-class-type 'gxc#::identity-special-form::t '::identity-special-form - __tmp146679 + __tmp150376 '() '() '#f))) @@ -774,10 +774,10 @@ (declare (not safe)) (__make-class-predicate gxc#::identity-special-form::t))) (define gxc#make-::identity-special-form - (lambda _%$args146389%_ - (apply make-instance gxc#::identity-special-form::t _%$args146389%_))) + (lambda _%$args150086%_ + (apply make-instance gxc#::identity-special-form::t _%$args150086%_))) (define gxc#::identity-special-form-bind-methods! - (let ((__tmp146680 + (let ((__tmp150377 (lambda () (let () (declare (not safe)) @@ -852,38 +852,38 @@ '%#declare gxc#identity-method))))) (declare (not safe)) - (__make-atomic-promise __tmp146680))) + (__make-atomic-promise __tmp150377))) (define gxc#::identity::t - (let ((__tmp146681 + (let ((__tmp150378 (list gxc#::identity-special-form::t gxc#::identity-expression::t))) (declare (not safe)) (__make-class-type 'gxc#::identity::t '::identity - __tmp146681 + __tmp150378 '() '() '#f))) (define gxc#::identity? (let () (declare (not safe)) (__make-class-predicate gxc#::identity::t))) (define gxc#make-::identity - (lambda _%$args146385%_ - (apply make-instance gxc#::identity::t _%$args146385%_))) + (lambda _%$args150082%_ + (apply make-instance gxc#::identity::t _%$args150082%_))) (define gxc#::identity-bind-methods! - (let ((__tmp146682 + (let ((__tmp150379 (lambda () (force gxc#::identity-special-form-bind-methods!) (force gxc#::identity-expression-bind-methods!)))) (declare (not safe)) - (__make-atomic-promise __tmp146682))) + (__make-atomic-promise __tmp150379))) (define gxc#::basic-xform-expression::t - (let ((__tmp146683 (list))) + (let ((__tmp150380 (list))) (declare (not safe)) (__make-class-type 'gxc#::basic-xform-expression::t '::basic-xform-expression - __tmp146683 + __tmp150380 '() '() '#f))) @@ -892,10 +892,10 @@ (declare (not safe)) (__make-class-predicate gxc#::basic-xform-expression::t))) (define gxc#make-::basic-xform-expression - (lambda _%$args146381%_ - (apply make-instance gxc#::basic-xform-expression::t _%$args146381%_))) + (lambda _%$args150078%_ + (apply make-instance gxc#::basic-xform-expression::t _%$args150078%_))) (define gxc#::basic-xform-expression-bind-methods! - (let ((__tmp146684 + (let ((__tmp150381 (lambda () (let () (declare (not safe)) @@ -1024,15 +1024,15 @@ '%#struct-unchecked-set! gxc#xform-operands))))) (declare (not safe)) - (__make-atomic-promise __tmp146684))) + (__make-atomic-promise __tmp150381))) (define gxc#::basic-xform::t - (let ((__tmp146685 + (let ((__tmp150382 (list gxc#::basic-xform-expression::t gxc#::identity::t))) (declare (not safe)) (__make-class-type 'gxc#::basic-xform::t '::basic-xform - __tmp146685 + __tmp150382 '() '() '#f))) @@ -1041,10 +1041,10 @@ (declare (not safe)) (__make-class-predicate gxc#::basic-xform::t))) (define gxc#make-::basic-xform - (lambda _%$args146377%_ - (apply make-instance gxc#::basic-xform::t _%$args146377%_))) + (lambda _%$args150074%_ + (apply make-instance gxc#::basic-xform::t _%$args150074%_))) (define gxc#::basic-xform-bind-methods! - (let ((__tmp146686 + (let ((__tmp150383 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (force gxc#::identity-bind-methods!) @@ -1079,2552 +1079,2562 @@ '%#define-syntax gxc#xform-define-syntax%))))) (declare (not safe)) - (__make-atomic-promise __tmp146686))) + (__make-atomic-promise __tmp150383))) (define gxc#apply-begin% - (lambda (_%self146333%_ _%stx146334%_) - (let* ((_%g146336146346%_ - (lambda (_%g146337146343%_) + (lambda (_%self150030%_ _%stx150031%_) + (let* ((_%g150033150043%_ + (lambda (_%g150034150040%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146337146343%_)))) - (_%g146335146373%_ - (lambda (_%g146337146349%_) + _%g150034150040%_)))) + (_%g150032150070%_ + (lambda (_%g150034150046%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146337146349%_)) - (let ((_%e146339146351%_ + (gx#stx-pair? _%g150034150046%_)) + (let ((_%e150036150048%_ (let () (declare (not safe)) - (gx#stx-e _%g146337146349%_)))) - (let ((_%hd146340146354%_ + (gx#stx-e _%g150034150046%_)))) + (let ((_%hd150037150051%_ (let () (declare (not safe)) - (##car _%e146339146351%_))) - (_%tl146341146356%_ + (##car _%e150036150048%_))) + (_%tl150038150053%_ (let () (declare (not safe)) - (##cdr _%e146339146351%_)))) - ((lambda (_%L146359%_) + (##cdr _%e150036150048%_)))) + ((lambda (_%g150035150056%_) (for-each - (lambda (_%g146368146370%_) + (lambda (_%g150065150067%_) (gxc#compile-e__1 - _%self146333%_ - _%g146368146370%_)) + _%self150030%_ + _%g150065150067%_)) (let () (declare (not safe)) - (gx#stx-e _%L146359%_)))) - _%tl146341146356%_))) - (_%g146336146346%_ _%g146337146349%_))))) - (_%g146335146373%_ _%stx146334%_)))) + (gx#stx-e _%g150035150056%_)))) + _%tl150038150053%_))) + (_%g150033150043%_ _%g150034150046%_))))) + (_%g150032150070%_ _%stx150031%_)))) (define gxc#apply-last-begin% - (lambda (_%self146294%_ _%stx146295%_) - (let* ((_%g146297146307%_ - (lambda (_%g146298146304%_) + (lambda (_%self149991%_ _%stx149992%_) + (let* ((_%g149994150004%_ + (lambda (_%g149995150001%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146298146304%_)))) - (_%g146296146330%_ - (lambda (_%g146298146310%_) + _%g149995150001%_)))) + (_%g149993150027%_ + (lambda (_%g149995150007%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146298146310%_)) - (let ((_%e146300146312%_ + (gx#stx-pair? _%g149995150007%_)) + (let ((_%e149997150009%_ (let () (declare (not safe)) - (gx#stx-e _%g146298146310%_)))) - (let ((_%hd146301146315%_ + (gx#stx-e _%g149995150007%_)))) + (let ((_%hd149998150012%_ (let () (declare (not safe)) - (##car _%e146300146312%_))) - (_%tl146302146317%_ + (##car _%e149997150009%_))) + (_%tl149999150014%_ (let () (declare (not safe)) - (##cdr _%e146300146312%_)))) - ((lambda (_%L146320%_) + (##cdr _%e149997150009%_)))) + ((lambda (_%g149996150017%_) (gxc#compile-e__1 - _%self146294%_ - (last _%L146320%_))) - _%tl146302146317%_))) - (_%g146297146307%_ _%g146298146310%_))))) - (_%g146296146330%_ _%stx146295%_)))) + _%self149991%_ + (last _%g149996150017%_))) + _%tl149999150014%_))) + (_%g149994150004%_ _%g149995150007%_))))) + (_%g149993150027%_ _%stx149992%_)))) (define gxc#apply-begin-syntax% - (lambda (_%self146290%_ _%stx146291%_) - (let ((__tmp146689 - (lambda () (gxc#apply-begin% _%self146290%_ _%stx146291%_))) - (__tmp146687 - (let ((__tmp146688 + (lambda (_%self149987%_ _%stx149988%_) + (let ((__tmp150386 + (lambda () (gxc#apply-begin% _%self149987%_ _%stx149988%_))) + (__tmp150384 + (let ((__tmp150385 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp146688 '1)))) + (##fx+ __tmp150385 '1)))) (declare (not safe)) (call-with-parameters__1 - __tmp146689 + __tmp150386 gx#current-expander-phi - __tmp146687)))) + __tmp150384)))) (define gxc#apply-module% - (lambda (_%self146229%_ _%stx146230%_) - (let* ((_%g146232146246%_ - (lambda (_%g146233146243%_) + (lambda (_%self149926%_ _%stx149927%_) + (let* ((_%g149929149943%_ + (lambda (_%g149930149940%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146233146243%_)))) - (_%g146231146287%_ - (lambda (_%g146233146249%_) + _%g149930149940%_)))) + (_%g149928149984%_ + (lambda (_%g149930149946%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146233146249%_)) - (let ((_%e146236146251%_ + (gx#stx-pair? _%g149930149946%_)) + (let ((_%e149933149948%_ (let () (declare (not safe)) - (gx#stx-e _%g146233146249%_)))) - (let ((_%hd146237146254%_ + (gx#stx-e _%g149930149946%_)))) + (let ((_%hd149934149951%_ (let () (declare (not safe)) - (##car _%e146236146251%_))) - (_%tl146238146256%_ + (##car _%e149933149948%_))) + (_%tl149935149953%_ (let () (declare (not safe)) - (##cdr _%e146236146251%_)))) + (##cdr _%e149933149948%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146238146256%_)) - (let ((_%e146239146259%_ + (gx#stx-pair? _%tl149935149953%_)) + (let ((_%e149936149956%_ (let () (declare (not safe)) - (gx#stx-e _%tl146238146256%_)))) - (let ((_%hd146240146262%_ + (gx#stx-e _%tl149935149953%_)))) + (let ((_%hd149937149959%_ (let () (declare (not safe)) - (##car _%e146239146259%_))) - (_%tl146241146264%_ + (##car _%e149936149956%_))) + (_%tl149938149961%_ (let () (declare (not safe)) - (##cdr _%e146239146259%_)))) - ((lambda (_%L146267%_ _%L146268%_) - (let* ((_%ctx146281%_ + (##cdr _%e149936149956%_)))) + ((lambda (_%g149931149964%_ + _%g149932149965%_) + (let* ((_%ctx149978%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L146268%_))) - (_%ctx-stx146283%_ + _%g149932149965%_))) + (_%ctx-stx149980%_ (##structure-ref - _%ctx146281%_ + _%ctx149978%_ '11 gx#module-context::t '#f)) - (__tmp146690 + (__tmp150387 (lambda () (gxc#compile-e__1 - _%self146229%_ - _%ctx-stx146283%_)))) + _%self149926%_ + _%ctx-stx149980%_)))) (declare (not safe)) (call-with-parameters__1 - __tmp146690 + __tmp150387 gx#current-expander-context - _%ctx146281%_))) - _%tl146241146264%_ - _%hd146240146262%_))) - (_%g146232146246%_ _%g146233146249%_)))) - (_%g146232146246%_ _%g146233146249%_))))) - (_%g146231146287%_ _%stx146230%_)))) + _%ctx149978%_))) + _%tl149938149961%_ + _%hd149937149959%_))) + (_%g149929149943%_ _%g149930149946%_)))) + (_%g149929149943%_ _%g149930149946%_))))) + (_%g149928149984%_ _%stx149927%_)))) (define gxc#apply-begin-annotation% - (lambda (_%self146161%_ _%stx146162%_) - (let* ((_%g146164146181%_ - (lambda (_%g146165146178%_) + (lambda (_%self149858%_ _%stx149859%_) + (let* ((_%g149861149878%_ + (lambda (_%g149862149875%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146165146178%_)))) - (_%g146163146226%_ - (lambda (_%g146165146184%_) + _%g149862149875%_)))) + (_%g149860149923%_ + (lambda (_%g149862149881%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146165146184%_)) - (let ((_%e146168146186%_ + (gx#stx-pair? _%g149862149881%_)) + (let ((_%e149865149883%_ (let () (declare (not safe)) - (gx#stx-e _%g146165146184%_)))) - (let ((_%hd146169146189%_ + (gx#stx-e _%g149862149881%_)))) + (let ((_%hd149866149886%_ (let () (declare (not safe)) - (##car _%e146168146186%_))) - (_%tl146170146191%_ + (##car _%e149865149883%_))) + (_%tl149867149888%_ (let () (declare (not safe)) - (##cdr _%e146168146186%_)))) + (##cdr _%e149865149883%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146170146191%_)) - (let ((_%e146171146194%_ + (gx#stx-pair? _%tl149867149888%_)) + (let ((_%e149868149891%_ (let () (declare (not safe)) - (gx#stx-e _%tl146170146191%_)))) - (let ((_%hd146172146197%_ + (gx#stx-e _%tl149867149888%_)))) + (let ((_%hd149869149894%_ (let () (declare (not safe)) - (##car _%e146171146194%_))) - (_%tl146173146199%_ + (##car _%e149868149891%_))) + (_%tl149870149896%_ (let () (declare (not safe)) - (##cdr _%e146171146194%_)))) + (##cdr _%e149868149891%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146173146199%_)) - (let ((_%e146174146202%_ + (gx#stx-pair? _%tl149870149896%_)) + (let ((_%e149871149899%_ (let () (declare (not safe)) - (gx#stx-e _%tl146173146199%_)))) - (let ((_%hd146175146205%_ + (gx#stx-e _%tl149870149896%_)))) + (let ((_%hd149872149902%_ (let () (declare (not safe)) - (##car _%e146174146202%_))) - (_%tl146176146207%_ + (##car _%e149871149899%_))) + (_%tl149873149904%_ (let () (declare (not safe)) - (##cdr _%e146174146202%_)))) + (##cdr _%e149871149899%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146176146207%_)) - ((lambda (_%L146210%_ - _%L146211%_) + _%tl149873149904%_)) + ((lambda (_%g149863149907%_ + _%g149864149908%_) (gxc#compile-e__1 - _%self146161%_ - _%L146210%_)) - _%hd146175146205%_ - _%hd146172146197%_) - (_%g146164146181%_ - _%g146165146184%_)))) - (_%g146164146181%_ _%g146165146184%_)))) - (_%g146164146181%_ _%g146165146184%_)))) - (_%g146164146181%_ _%g146165146184%_))))) - (_%g146163146226%_ _%stx146162%_)))) + _%self149858%_ + _%g149863149907%_)) + _%hd149872149902%_ + _%hd149869149894%_) + (_%g149861149878%_ + _%g149862149881%_)))) + (_%g149861149878%_ _%g149862149881%_)))) + (_%g149861149878%_ _%g149862149881%_)))) + (_%g149861149878%_ _%g149862149881%_))))) + (_%g149860149923%_ _%stx149859%_)))) (define gxc#apply-define-values% - (lambda (_%self146093%_ _%stx146094%_) - (let* ((_%g146096146113%_ - (lambda (_%g146097146110%_) + (lambda (_%self149790%_ _%stx149791%_) + (let* ((_%g149793149810%_ + (lambda (_%g149794149807%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146097146110%_)))) - (_%g146095146158%_ - (lambda (_%g146097146116%_) + _%g149794149807%_)))) + (_%g149792149855%_ + (lambda (_%g149794149813%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146097146116%_)) - (let ((_%e146100146118%_ + (gx#stx-pair? _%g149794149813%_)) + (let ((_%e149797149815%_ (let () (declare (not safe)) - (gx#stx-e _%g146097146116%_)))) - (let ((_%hd146101146121%_ + (gx#stx-e _%g149794149813%_)))) + (let ((_%hd149798149818%_ (let () (declare (not safe)) - (##car _%e146100146118%_))) - (_%tl146102146123%_ + (##car _%e149797149815%_))) + (_%tl149799149820%_ (let () (declare (not safe)) - (##cdr _%e146100146118%_)))) + (##cdr _%e149797149815%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146102146123%_)) - (let ((_%e146103146126%_ + (gx#stx-pair? _%tl149799149820%_)) + (let ((_%e149800149823%_ (let () (declare (not safe)) - (gx#stx-e _%tl146102146123%_)))) - (let ((_%hd146104146129%_ + (gx#stx-e _%tl149799149820%_)))) + (let ((_%hd149801149826%_ (let () (declare (not safe)) - (##car _%e146103146126%_))) - (_%tl146105146131%_ + (##car _%e149800149823%_))) + (_%tl149802149828%_ (let () (declare (not safe)) - (##cdr _%e146103146126%_)))) + (##cdr _%e149800149823%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146105146131%_)) - (let ((_%e146106146134%_ + (gx#stx-pair? _%tl149802149828%_)) + (let ((_%e149803149831%_ (let () (declare (not safe)) - (gx#stx-e _%tl146105146131%_)))) - (let ((_%hd146107146137%_ + (gx#stx-e _%tl149802149828%_)))) + (let ((_%hd149804149834%_ (let () (declare (not safe)) - (##car _%e146106146134%_))) - (_%tl146108146139%_ + (##car _%e149803149831%_))) + (_%tl149805149836%_ (let () (declare (not safe)) - (##cdr _%e146106146134%_)))) + (##cdr _%e149803149831%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146108146139%_)) - ((lambda (_%L146142%_ - _%L146143%_) + _%tl149805149836%_)) + ((lambda (_%g149795149839%_ + _%g149796149840%_) (gxc#compile-e__1 - _%self146093%_ - _%L146142%_)) - _%hd146107146137%_ - _%hd146104146129%_) - (_%g146096146113%_ - _%g146097146116%_)))) - (_%g146096146113%_ _%g146097146116%_)))) - (_%g146096146113%_ _%g146097146116%_)))) - (_%g146096146113%_ _%g146097146116%_))))) - (_%g146095146158%_ _%stx146094%_)))) + _%self149790%_ + _%g149795149839%_)) + _%hd149804149834%_ + _%hd149801149826%_) + (_%g149793149810%_ + _%g149794149813%_)))) + (_%g149793149810%_ _%g149794149813%_)))) + (_%g149793149810%_ _%g149794149813%_)))) + (_%g149793149810%_ _%g149794149813%_))))) + (_%g149792149855%_ _%stx149791%_)))) (define gxc#apply-define-syntax% - (lambda (_%self146024%_ _%stx146025%_) - (let* ((_%g146027146044%_ - (lambda (_%g146028146041%_) + (lambda (_%self149721%_ _%stx149722%_) + (let* ((_%g149724149741%_ + (lambda (_%g149725149738%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146028146041%_)))) - (_%g146026146090%_ - (lambda (_%g146028146047%_) + _%g149725149738%_)))) + (_%g149723149787%_ + (lambda (_%g149725149744%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146028146047%_)) - (let ((_%e146031146049%_ + (gx#stx-pair? _%g149725149744%_)) + (let ((_%e149728149746%_ (let () (declare (not safe)) - (gx#stx-e _%g146028146047%_)))) - (let ((_%hd146032146052%_ + (gx#stx-e _%g149725149744%_)))) + (let ((_%hd149729149749%_ (let () (declare (not safe)) - (##car _%e146031146049%_))) - (_%tl146033146054%_ + (##car _%e149728149746%_))) + (_%tl149730149751%_ (let () (declare (not safe)) - (##cdr _%e146031146049%_)))) + (##cdr _%e149728149746%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146033146054%_)) - (let ((_%e146034146057%_ + (gx#stx-pair? _%tl149730149751%_)) + (let ((_%e149731149754%_ (let () (declare (not safe)) - (gx#stx-e _%tl146033146054%_)))) - (let ((_%hd146035146060%_ + (gx#stx-e _%tl149730149751%_)))) + (let ((_%hd149732149757%_ (let () (declare (not safe)) - (##car _%e146034146057%_))) - (_%tl146036146062%_ + (##car _%e149731149754%_))) + (_%tl149733149759%_ (let () (declare (not safe)) - (##cdr _%e146034146057%_)))) + (##cdr _%e149731149754%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146036146062%_)) - (let ((_%e146037146065%_ + (gx#stx-pair? _%tl149733149759%_)) + (let ((_%e149734149762%_ (let () (declare (not safe)) - (gx#stx-e _%tl146036146062%_)))) - (let ((_%hd146038146068%_ + (gx#stx-e _%tl149733149759%_)))) + (let ((_%hd149735149765%_ (let () (declare (not safe)) - (##car _%e146037146065%_))) - (_%tl146039146070%_ + (##car _%e149734149762%_))) + (_%tl149736149767%_ (let () (declare (not safe)) - (##cdr _%e146037146065%_)))) + (##cdr _%e149734149762%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146039146070%_)) - ((lambda (_%L146073%_ - _%L146074%_) - (let ((__tmp146693 + _%tl149736149767%_)) + ((lambda (_%g149726149770%_ + _%g149727149771%_) + (let ((__tmp150390 (lambda () (gxc#compile-e__1 - _%self146024%_ - _%L146073%_))) - (__tmp146691 - (let ((__tmp146692 + _%self149721%_ + _%g149726149770%_))) + (__tmp150388 + (let ((__tmp150389 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp146692 '1)))) + (##fx+ __tmp150389 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters__1 - __tmp146693 + __tmp150390 gx#current-expander-phi - __tmp146691))) - _%hd146038146068%_ - _%hd146035146060%_) - (_%g146027146044%_ - _%g146028146047%_)))) - (_%g146027146044%_ _%g146028146047%_)))) - (_%g146027146044%_ _%g146028146047%_)))) - (_%g146027146044%_ _%g146028146047%_))))) - (_%g146026146090%_ _%stx146025%_)))) + __tmp150388))) + _%hd149735149765%_ + _%hd149732149757%_) + (_%g149724149741%_ + _%g149725149744%_)))) + (_%g149724149741%_ _%g149725149744%_)))) + (_%g149724149741%_ _%g149725149744%_)))) + (_%g149724149741%_ _%g149725149744%_))))) + (_%g149723149787%_ _%stx149722%_)))) (define gxc#apply-body-lambda% - (lambda (_%self145956%_ _%stx145957%_) - (let* ((_%g145959145976%_ - (lambda (_%g145960145973%_) + (lambda (_%self149653%_ _%stx149654%_) + (let* ((_%g149656149673%_ + (lambda (_%g149657149670%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145960145973%_)))) - (_%g145958146021%_ - (lambda (_%g145960145979%_) + _%g149657149670%_)))) + (_%g149655149718%_ + (lambda (_%g149657149676%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145960145979%_)) - (let ((_%e145963145981%_ + (gx#stx-pair? _%g149657149676%_)) + (let ((_%e149660149678%_ (let () (declare (not safe)) - (gx#stx-e _%g145960145979%_)))) - (let ((_%hd145964145984%_ + (gx#stx-e _%g149657149676%_)))) + (let ((_%hd149661149681%_ (let () (declare (not safe)) - (##car _%e145963145981%_))) - (_%tl145965145986%_ + (##car _%e149660149678%_))) + (_%tl149662149683%_ (let () (declare (not safe)) - (##cdr _%e145963145981%_)))) + (##cdr _%e149660149678%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145965145986%_)) - (let ((_%e145966145989%_ + (gx#stx-pair? _%tl149662149683%_)) + (let ((_%e149663149686%_ (let () (declare (not safe)) - (gx#stx-e _%tl145965145986%_)))) - (let ((_%hd145967145992%_ + (gx#stx-e _%tl149662149683%_)))) + (let ((_%hd149664149689%_ (let () (declare (not safe)) - (##car _%e145966145989%_))) - (_%tl145968145994%_ + (##car _%e149663149686%_))) + (_%tl149665149691%_ (let () (declare (not safe)) - (##cdr _%e145966145989%_)))) + (##cdr _%e149663149686%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145968145994%_)) - (let ((_%e145969145997%_ + (gx#stx-pair? _%tl149665149691%_)) + (let ((_%e149666149694%_ (let () (declare (not safe)) - (gx#stx-e _%tl145968145994%_)))) - (let ((_%hd145970146000%_ + (gx#stx-e _%tl149665149691%_)))) + (let ((_%hd149667149697%_ (let () (declare (not safe)) - (##car _%e145969145997%_))) - (_%tl145971146002%_ + (##car _%e149666149694%_))) + (_%tl149668149699%_ (let () (declare (not safe)) - (##cdr _%e145969145997%_)))) + (##cdr _%e149666149694%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145971146002%_)) - ((lambda (_%L146005%_ - _%L146006%_) + _%tl149668149699%_)) + ((lambda (_%g149658149702%_ + _%g149659149703%_) (gxc#compile-e__1 - _%self145956%_ - _%L146005%_)) - _%hd145970146000%_ - _%hd145967145992%_) - (_%g145959145976%_ - _%g145960145979%_)))) - (_%g145959145976%_ _%g145960145979%_)))) - (_%g145959145976%_ _%g145960145979%_)))) - (_%g145959145976%_ _%g145960145979%_))))) - (_%g145958146021%_ _%stx145957%_)))) + _%self149653%_ + _%g149658149702%_)) + _%hd149667149697%_ + _%hd149664149689%_) + (_%g149656149673%_ + _%g149657149676%_)))) + (_%g149656149673%_ _%g149657149676%_)))) + (_%g149656149673%_ _%g149657149676%_)))) + (_%g149656149673%_ _%g149657149676%_))))) + (_%g149655149718%_ _%stx149654%_)))) (define gxc#apply-body-case-lambda% - (lambda (_%self145838%_ _%stx145839%_) - (let* ((_%g145841145869%_ - (lambda (_%g145842145866%_) + (lambda (_%self149539%_ _%stx149540%_) + (let* ((_%g149542149570%_ + (lambda (_%g149543149567%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145842145866%_)))) - (_%g145840145953%_ - (lambda (_%g145842145872%_) + _%g149543149567%_)))) + (_%g149541149650%_ + (lambda (_%g149543149573%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145842145872%_)) - (let ((_%e145845145874%_ + (gx#stx-pair? _%g149543149573%_)) + (let ((_%e149546149575%_ (let () (declare (not safe)) - (gx#stx-e _%g145842145872%_)))) - (let ((_%hd145846145877%_ + (gx#stx-e _%g149543149573%_)))) + (let ((_%hd149547149578%_ (let () (declare (not safe)) - (##car _%e145845145874%_))) - (_%tl145847145879%_ + (##car _%e149546149575%_))) + (_%tl149548149580%_ (let () (declare (not safe)) - (##cdr _%e145845145874%_)))) + (##cdr _%e149546149575%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl145847145879%_)) - (let ((_g146694_ + (gx#stx-pair/null? _%tl149548149580%_)) + (let ((_g150391_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl145847145879%_ + _%tl149548149580%_ '0)))) (begin - (let ((_g146695_ + (let ((_g150392_ (let () (declare (not safe)) - (if (##values? _g146694_) - (##values-length _g146694_) + (if (##values? _g150391_) + (##values-length _g150391_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g146695_ 2))) + (##fx= _g150392_ 2))) (error "Context expects 2 values" - _g146695_))) - (let ((_%target145848145882%_ + _g150392_))) + (let ((_%target149549149583%_ (let () (declare (not safe)) - (##values-ref _g146694_ 0))) - (_%tl145850145884%_ + (##values-ref _g150391_ 0))) + (_%tl149551149585%_ (let () (declare (not safe)) - (##values-ref _g146694_ 1)))) + (##values-ref _g150391_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145850145884%_)) - (letrec ((_%loop145851145887%_ - (lambda (_%hd145849145890%_ - _%body145855145892%_ - _%hd145856145894%_) + (gx#stx-null? _%tl149551149585%_)) + (letrec ((_%loop149552149588%_ + (lambda (_%hd149550149591%_ + _%body149556149593%_ + _%hd149557149594%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145849145890%_)) - (let ((_%e145852145897%_ + _%hd149550149591%_)) + (let ((_%e149553149596%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd145849145890%_)))) - (let ((_%lp-hd145853145900%_ + (gx#stx-e _%hd149550149591%_)))) + (let ((_%lp-hd149554149599%_ (let () (declare (not safe)) - (##car _%e145852145897%_))) - (_%lp-tl145854145902%_ + (##car _%e149553149596%_))) + (_%lp-tl149555149601%_ (let () (declare (not safe)) - (##cdr _%e145852145897%_)))) + (##cdr _%e149553149596%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd145853145900%_)) - (let ((_%e145859145905%_ + (gx#stx-pair? _%lp-hd149554149599%_)) + (let ((_%e149560149604%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd145853145900%_)))) - (let ((_%hd145860145908%_ + (gx#stx-e _%lp-hd149554149599%_)))) + (let ((_%hd149561149607%_ (let () (declare (not safe)) - (##car _%e145859145905%_))) - (_%tl145861145910%_ + (##car _%e149560149604%_))) + (_%tl149562149609%_ (let () (declare (not safe)) - (##cdr _%e145859145905%_)))) + (##cdr _%e149560149604%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145861145910%_)) - (let ((_%e145862145913%_ + (gx#stx-pair? _%tl149562149609%_)) + (let ((_%e149563149612%_ (let () (declare (not safe)) - (gx#stx-e _%tl145861145910%_)))) - (let ((_%hd145863145916%_ + (gx#stx-e _%tl149562149609%_)))) + (let ((_%hd149564149615%_ (let () (declare (not safe)) - (##car _%e145862145913%_))) - (_%tl145864145918%_ + (##car _%e149563149612%_))) + (_%tl149565149617%_ (let () (declare (not safe)) - (##cdr _%e145862145913%_)))) + (##cdr _%e149563149612%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145864145918%_)) - (_%loop145851145887%_ - _%lp-tl145854145902%_ - (cons _%hd145863145916%_ - _%body145855145892%_) - (cons _%hd145860145908%_ - _%hd145856145894%_)) - (_%g145841145869%_ - _%g145842145872%_)))) - (_%g145841145869%_ _%g145842145872%_)))) - (_%g145841145869%_ _%g145842145872%_)))) - (let ((_%body145857145921%_ (reverse _%body145855145892%_)) - (_%hd145858145923%_ (reverse _%hd145856145894%_))) - ((lambda (_%L145926%_ _%L145927%_) + (gx#stx-null? _%tl149565149617%_)) + (_%loop149552149588%_ + _%lp-tl149555149601%_ + (cons _%hd149564149615%_ + _%body149556149593%_) + (cons _%hd149561149607%_ + _%hd149557149594%_)) + (_%g149542149570%_ + _%g149543149573%_)))) + (_%g149542149570%_ _%g149543149573%_)))) + (_%g149542149570%_ _%g149543149573%_)))) + (let ((_%body149558149620%_ (reverse _%body149556149593%_)) + (_%hd149559149621%_ (reverse _%hd149557149594%_))) + ((lambda (_%g149544149623%_ _%g149545149624%_) (for-each - (lambda (_%g145941145943%_) - (gxc#compile-e__1 _%self145838%_ _%g145941145943%_)) - (let ((__tmp146696 - (lambda (_%g145945145948%_ _%g145946145950%_) - (cons _%g145945145948%_ _%g145946145950%_)))) + (lambda (_%g149638149640%_) + (gxc#compile-e__1 _%self149539%_ _%g149638149640%_)) + (let ((__tmp150393 + (lambda (_%g149642149645%_ _%g149643149647%_) + (cons _%g149642149645%_ _%g149643149647%_)))) (declare (not safe)) - (__foldr1 __tmp146696 '() _%L145926%_)))) - _%body145857145921%_ - _%hd145858145923%_)))))) + (__foldr1 __tmp150393 '() _%g149544149623%_)))) + _%body149558149620%_ + _%hd149559149621%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145851145887%_ - _%target145848145882%_ + (_%loop149552149588%_ + _%target149549149583%_ '() '())) - (_%g145841145869%_ - _%g145842145872%_))))) - (_%g145841145869%_ _%g145842145872%_)))) - (_%g145841145869%_ _%g145842145872%_))))) - (_%g145840145953%_ _%stx145839%_)))) + (_%g149542149570%_ + _%g149543149573%_))))) + (_%g149542149570%_ _%g149543149573%_)))) + (_%g149542149570%_ _%g149543149573%_))))) + (_%g149541149650%_ _%stx149540%_)))) (define gxc#apply-body-let-values% - (lambda (_%self145691%_ _%stx145692%_) - (let* ((_%g145694145729%_ - (lambda (_%g145695145726%_) + (lambda (_%self149396%_ _%stx149397%_) + (let* ((_%g149399149434%_ + (lambda (_%g149400149431%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145695145726%_)))) - (_%g145693145835%_ - (lambda (_%g145695145732%_) + _%g149400149431%_)))) + (_%g149398149536%_ + (lambda (_%g149400149437%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145695145732%_)) - (let ((_%e145699145734%_ + (gx#stx-pair? _%g149400149437%_)) + (let ((_%e149404149439%_ (let () (declare (not safe)) - (gx#stx-e _%g145695145732%_)))) - (let ((_%hd145700145737%_ + (gx#stx-e _%g149400149437%_)))) + (let ((_%hd149405149442%_ (let () (declare (not safe)) - (##car _%e145699145734%_))) - (_%tl145701145739%_ + (##car _%e149404149439%_))) + (_%tl149406149444%_ (let () (declare (not safe)) - (##cdr _%e145699145734%_)))) + (##cdr _%e149404149439%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145701145739%_)) - (let ((_%e145702145742%_ + (gx#stx-pair? _%tl149406149444%_)) + (let ((_%e149407149447%_ (let () (declare (not safe)) - (gx#stx-e _%tl145701145739%_)))) - (let ((_%hd145703145745%_ + (gx#stx-e _%tl149406149444%_)))) + (let ((_%hd149408149450%_ (let () (declare (not safe)) - (##car _%e145702145742%_))) - (_%tl145704145747%_ + (##car _%e149407149447%_))) + (_%tl149409149452%_ (let () (declare (not safe)) - (##cdr _%e145702145742%_)))) + (##cdr _%e149407149447%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd145703145745%_)) - (let ((_g146697_ + (gx#stx-pair/null? _%hd149408149450%_)) + (let ((_g150394_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd145703145745%_ + _%hd149408149450%_ '0)))) (begin - (let ((_g146698_ + (let ((_g150395_ (let () (declare (not safe)) - (if (##values? _g146697_) + (if (##values? _g150394_) (##values-length - _g146697_) + _g150394_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g146698_ 2))) + (##fx= _g150395_ 2))) (error "Context expects 2 values" - _g146698_))) - (let ((_%target145705145750%_ + _g150395_))) + (let ((_%target149410149455%_ (let () (declare (not safe)) - (##values-ref _g146697_ 0))) - (_%tl145707145752%_ + (##values-ref _g150394_ 0))) + (_%tl149412149457%_ (let () (declare (not safe)) (##values-ref - _g146697_ + _g150394_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145707145752%_)) - (letrec ((_%loop145708145755%_ - (lambda (_%hd145706145758%_ + _%tl149412149457%_)) + (letrec ((_%loop149413149460%_ + (lambda (_%hd149411149463%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr145712145760%_ - _%hd145713145762%_) + _%expr149417149465%_ + _%hd149418149466%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145706145758%_)) - (let ((_%e145709145765%_ + (gx#stx-pair? _%hd149411149463%_)) + (let ((_%e149414149468%_ (let () (declare (not safe)) - (gx#stx-e _%hd145706145758%_)))) - (let ((_%lp-hd145710145768%_ + (gx#stx-e _%hd149411149463%_)))) + (let ((_%lp-hd149415149471%_ (let () (declare (not safe)) - (##car _%e145709145765%_))) - (_%lp-tl145711145770%_ + (##car _%e149414149468%_))) + (_%lp-tl149416149473%_ (let () (declare (not safe)) - (##cdr _%e145709145765%_)))) + (##cdr _%e149414149468%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd145710145768%_)) - (let ((_%e145716145773%_ + (gx#stx-pair? _%lp-hd149415149471%_)) + (let ((_%e149421149476%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd145710145768%_)))) - (let ((_%hd145717145776%_ + (gx#stx-e _%lp-hd149415149471%_)))) + (let ((_%hd149422149479%_ (let () (declare (not safe)) - (##car _%e145716145773%_))) - (_%tl145718145778%_ + (##car _%e149421149476%_))) + (_%tl149423149481%_ (let () (declare (not safe)) - (##cdr _%e145716145773%_)))) + (##cdr _%e149421149476%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145718145778%_)) - (let ((_%e145719145781%_ + (gx#stx-pair? _%tl149423149481%_)) + (let ((_%e149424149484%_ (let () (declare (not safe)) (gx#stx-e - _%tl145718145778%_)))) - (let ((_%hd145720145784%_ + _%tl149423149481%_)))) + (let ((_%hd149425149487%_ (let () (declare (not safe)) - (##car _%e145719145781%_))) - (_%tl145721145786%_ + (##car _%e149424149484%_))) + (_%tl149426149489%_ (let () (declare (not safe)) - (##cdr _%e145719145781%_)))) + (##cdr _%e149424149484%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145721145786%_)) - (_%loop145708145755%_ - _%lp-tl145711145770%_ - (cons _%hd145720145784%_ - _%expr145712145760%_) - (cons _%hd145717145776%_ - _%hd145713145762%_)) - (_%g145694145729%_ - _%g145695145732%_)))) - (_%g145694145729%_ - _%g145695145732%_)))) - (_%g145694145729%_ _%g145695145732%_)))) - (let ((_%expr145714145789%_ - (reverse _%expr145712145760%_)) - (_%hd145715145791%_ - (reverse _%hd145713145762%_))) + _%tl149426149489%_)) + (_%loop149413149460%_ + _%lp-tl149416149473%_ + (cons _%hd149425149487%_ + _%expr149417149465%_) + (cons _%hd149422149479%_ + _%hd149418149466%_)) + (_%g149399149434%_ + _%g149400149437%_)))) + (_%g149399149434%_ + _%g149400149437%_)))) + (_%g149399149434%_ _%g149400149437%_)))) + (let ((_%expr149419149492%_ + (reverse _%expr149417149465%_)) + (_%hd149420149493%_ + (reverse _%hd149418149466%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145704145747%_)) - (let ((_%e145722145794%_ + (gx#stx-pair? _%tl149409149452%_)) + (let ((_%e149427149495%_ (let () (declare (not safe)) - (gx#stx-e _%tl145704145747%_)))) - (let ((_%hd145723145797%_ + (gx#stx-e _%tl149409149452%_)))) + (let ((_%hd149428149498%_ (let () (declare (not safe)) - (##car _%e145722145794%_))) - (_%tl145724145799%_ + (##car _%e149427149495%_))) + (_%tl149429149500%_ (let () (declare (not safe)) - (##cdr _%e145722145794%_)))) + (##cdr _%e149427149495%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145724145799%_)) - ((lambda (_%L145802%_ - _%L145803%_ - _%L145804%_) + (gx#stx-null? _%tl149429149500%_)) + ((lambda (_%g149401149503%_ + _%g149402149504%_ + _%g149403149505%_) (for-each - (lambda (_%g145823145825%_) + (lambda (_%g149524149526%_) (gxc#compile-e__1 - _%self145691%_ - _%g145823145825%_)) - (let ((__tmp146700 - (lambda (_%g145827145830%_ - _%g145828145832%_) - (cons _%g145827145830%_ - _%g145828145832%_))) - (__tmp146699 - (cons _%L145802%_ '()))) + _%self149396%_ + _%g149524149526%_)) + (let ((__tmp150397 + (lambda (_%g149528149531%_ + _%g149529149533%_) + (cons _%g149528149531%_ + _%g149529149533%_))) + (__tmp150396 + (cons _%g149401149503%_ '()))) (declare (not safe)) (__foldr1 - __tmp146700 - __tmp146699 - _%L145803%_)))) - _%hd145723145797%_ - _%expr145714145789%_ - _%hd145715145791%_) - (_%g145694145729%_ _%g145695145732%_)))) - (_%g145694145729%_ _%g145695145732%_))))))) + __tmp150397 + __tmp150396 + _%g149402149504%_)))) + _%hd149428149498%_ + _%expr149419149492%_ + _%hd149420149493%_) + (_%g149399149434%_ _%g149400149437%_)))) + (_%g149399149434%_ _%g149400149437%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145708145755%_ - _%target145705145750%_ + (_%loop149413149460%_ + _%target149410149455%_ '() '())) - (_%g145694145729%_ - _%g145695145732%_))))) - (_%g145694145729%_ _%g145695145732%_)))) - (_%g145694145729%_ _%g145695145732%_)))) - (_%g145694145729%_ _%g145695145732%_))))) - (_%g145693145835%_ _%stx145692%_)))) + (_%g149399149434%_ + _%g149400149437%_))))) + (_%g149399149434%_ _%g149400149437%_)))) + (_%g149399149434%_ _%g149400149437%_)))) + (_%g149399149434%_ _%g149400149437%_))))) + (_%g149398149536%_ _%stx149397%_)))) (define gxc#apply-body-last-let-values% - (lambda (_%self145636%_ _%stx145637%_) - (let* ((_%g145639145653%_ - (lambda (_%g145640145650%_) + (lambda (_%self149341%_ _%stx149342%_) + (let* ((_%g149344149358%_ + (lambda (_%g149345149355%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145640145650%_)))) - (_%g145638145688%_ - (lambda (_%g145640145656%_) + _%g149345149355%_)))) + (_%g149343149393%_ + (lambda (_%g149345149361%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145640145656%_)) - (let ((_%e145643145658%_ + (gx#stx-pair? _%g149345149361%_)) + (let ((_%e149348149363%_ (let () (declare (not safe)) - (gx#stx-e _%g145640145656%_)))) - (let ((_%hd145644145661%_ + (gx#stx-e _%g149345149361%_)))) + (let ((_%hd149349149366%_ (let () (declare (not safe)) - (##car _%e145643145658%_))) - (_%tl145645145663%_ + (##car _%e149348149363%_))) + (_%tl149350149368%_ (let () (declare (not safe)) - (##cdr _%e145643145658%_)))) + (##cdr _%e149348149363%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145645145663%_)) - (let ((_%e145646145666%_ + (gx#stx-pair? _%tl149350149368%_)) + (let ((_%e149351149371%_ (let () (declare (not safe)) - (gx#stx-e _%tl145645145663%_)))) - (let ((_%hd145647145669%_ + (gx#stx-e _%tl149350149368%_)))) + (let ((_%hd149352149374%_ (let () (declare (not safe)) - (##car _%e145646145666%_))) - (_%tl145648145671%_ + (##car _%e149351149371%_))) + (_%tl149353149376%_ (let () (declare (not safe)) - (##cdr _%e145646145666%_)))) - ((lambda (_%L145674%_ _%L145675%_) + (##cdr _%e149351149371%_)))) + ((lambda (_%g149346149379%_ + _%g149347149380%_) (gxc#compile-e__1 - _%self145636%_ - (last _%L145674%_))) - _%tl145648145671%_ - _%hd145647145669%_))) - (_%g145639145653%_ _%g145640145656%_)))) - (_%g145639145653%_ _%g145640145656%_))))) - (_%g145638145688%_ _%stx145637%_)))) + _%self149341%_ + (last _%g149346149379%_))) + _%tl149353149376%_ + _%hd149352149374%_))) + (_%g149344149358%_ _%g149345149361%_)))) + (_%g149344149358%_ _%g149345149361%_))))) + (_%g149343149393%_ _%stx149342%_)))) (define gxc#apply-body-setq% - (lambda (_%self145568%_ _%stx145569%_) - (let* ((_%g145571145588%_ - (lambda (_%g145572145585%_) + (lambda (_%self149273%_ _%stx149274%_) + (let* ((_%g149276149293%_ + (lambda (_%g149277149290%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145572145585%_)))) - (_%g145570145633%_ - (lambda (_%g145572145591%_) + _%g149277149290%_)))) + (_%g149275149338%_ + (lambda (_%g149277149296%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145572145591%_)) - (let ((_%e145575145593%_ + (gx#stx-pair? _%g149277149296%_)) + (let ((_%e149280149298%_ (let () (declare (not safe)) - (gx#stx-e _%g145572145591%_)))) - (let ((_%hd145576145596%_ + (gx#stx-e _%g149277149296%_)))) + (let ((_%hd149281149301%_ (let () (declare (not safe)) - (##car _%e145575145593%_))) - (_%tl145577145598%_ + (##car _%e149280149298%_))) + (_%tl149282149303%_ (let () (declare (not safe)) - (##cdr _%e145575145593%_)))) + (##cdr _%e149280149298%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145577145598%_)) - (let ((_%e145578145601%_ + (gx#stx-pair? _%tl149282149303%_)) + (let ((_%e149283149306%_ (let () (declare (not safe)) - (gx#stx-e _%tl145577145598%_)))) - (let ((_%hd145579145604%_ + (gx#stx-e _%tl149282149303%_)))) + (let ((_%hd149284149309%_ (let () (declare (not safe)) - (##car _%e145578145601%_))) - (_%tl145580145606%_ + (##car _%e149283149306%_))) + (_%tl149285149311%_ (let () (declare (not safe)) - (##cdr _%e145578145601%_)))) + (##cdr _%e149283149306%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145580145606%_)) - (let ((_%e145581145609%_ + (gx#stx-pair? _%tl149285149311%_)) + (let ((_%e149286149314%_ (let () (declare (not safe)) - (gx#stx-e _%tl145580145606%_)))) - (let ((_%hd145582145612%_ + (gx#stx-e _%tl149285149311%_)))) + (let ((_%hd149287149317%_ (let () (declare (not safe)) - (##car _%e145581145609%_))) - (_%tl145583145614%_ + (##car _%e149286149314%_))) + (_%tl149288149319%_ (let () (declare (not safe)) - (##cdr _%e145581145609%_)))) + (##cdr _%e149286149314%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145583145614%_)) - ((lambda (_%L145617%_ - _%L145618%_) + _%tl149288149319%_)) + ((lambda (_%g149278149322%_ + _%g149279149323%_) (gxc#compile-e__1 - _%self145568%_ - _%L145617%_)) - _%hd145582145612%_ - _%hd145579145604%_) - (_%g145571145588%_ - _%g145572145591%_)))) - (_%g145571145588%_ _%g145572145591%_)))) - (_%g145571145588%_ _%g145572145591%_)))) - (_%g145571145588%_ _%g145572145591%_))))) - (_%g145570145633%_ _%stx145569%_)))) + _%self149273%_ + _%g149278149322%_)) + _%hd149287149317%_ + _%hd149284149309%_) + (_%g149276149293%_ + _%g149277149296%_)))) + (_%g149276149293%_ _%g149277149296%_)))) + (_%g149276149293%_ _%g149277149296%_)))) + (_%g149276149293%_ _%g149277149296%_))))) + (_%g149275149338%_ _%stx149274%_)))) (define gxc#apply-operands - (lambda (_%self145481%_ _%stx145482%_) - (let* ((_%g145484145503%_ - (lambda (_%g145485145500%_) + (lambda (_%self149188%_ _%stx149189%_) + (let* ((_%g149191149210%_ + (lambda (_%g149192149207%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145485145500%_)))) - (_%g145483145565%_ - (lambda (_%g145485145506%_) + _%g149192149207%_)))) + (_%g149190149270%_ + (lambda (_%g149192149213%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145485145506%_)) - (let ((_%e145487145508%_ + (gx#stx-pair? _%g149192149213%_)) + (let ((_%e149194149215%_ (let () (declare (not safe)) - (gx#stx-e _%g145485145506%_)))) - (let ((_%hd145488145511%_ + (gx#stx-e _%g149192149213%_)))) + (let ((_%hd149195149218%_ (let () (declare (not safe)) - (##car _%e145487145508%_))) - (_%tl145489145513%_ + (##car _%e149194149215%_))) + (_%tl149196149220%_ (let () (declare (not safe)) - (##cdr _%e145487145508%_)))) + (##cdr _%e149194149215%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl145489145513%_)) - (let ((_g146701_ + (gx#stx-pair/null? _%tl149196149220%_)) + (let ((_g150398_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl145489145513%_ + _%tl149196149220%_ '0)))) (begin - (let ((_g146702_ + (let ((_g150399_ (let () (declare (not safe)) - (if (##values? _g146701_) - (##values-length _g146701_) + (if (##values? _g150398_) + (##values-length _g150398_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g146702_ 2))) + (##fx= _g150399_ 2))) (error "Context expects 2 values" - _g146702_))) - (let ((_%target145490145516%_ + _g150399_))) + (let ((_%target149197149223%_ (let () (declare (not safe)) - (##values-ref _g146701_ 0))) - (_%tl145492145518%_ + (##values-ref _g150398_ 0))) + (_%tl149199149225%_ (let () (declare (not safe)) - (##values-ref _g146701_ 1)))) + (##values-ref _g150398_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145492145518%_)) - (letrec ((_%loop145493145521%_ - (lambda (_%hd145491145524%_ - _%rands145497145526%_) + (gx#stx-null? _%tl149199149225%_)) + (letrec ((_%loop149200149228%_ + (lambda (_%hd149198149231%_ + _%rands149204149233%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145491145524%_)) - (let ((_%e145494145529%_ + _%hd149198149231%_)) + (let ((_%e149201149235%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd145491145524%_)))) - (let ((_%lp-hd145495145532%_ + (gx#stx-e _%hd149198149231%_)))) + (let ((_%lp-hd149202149238%_ (let () (declare (not safe)) - (##car _%e145494145529%_))) - (_%lp-tl145496145534%_ + (##car _%e149201149235%_))) + (_%lp-tl149203149240%_ (let () (declare (not safe)) - (##cdr _%e145494145529%_)))) - (_%loop145493145521%_ - _%lp-tl145496145534%_ - (cons _%lp-hd145495145532%_ _%rands145497145526%_)))) - (let ((_%rands145498145537%_ (reverse _%rands145497145526%_))) - ((lambda (_%L145540%_) + (##cdr _%e149201149235%_)))) + (_%loop149200149228%_ + _%lp-tl149203149240%_ + (cons _%lp-hd149202149238%_ _%rands149204149233%_)))) + (let ((_%rands149205149243%_ (reverse _%rands149204149233%_))) + ((lambda (_%g149193149245%_) (for-each - (lambda (_%g145553145555%_) - (gxc#compile-e__1 _%self145481%_ _%g145553145555%_)) - (let ((__tmp146703 - (lambda (_%g145557145560%_ _%g145558145562%_) - (cons _%g145557145560%_ _%g145558145562%_)))) + (lambda (_%g149258149260%_) + (gxc#compile-e__1 _%self149188%_ _%g149258149260%_)) + (let ((__tmp150400 + (lambda (_%g149262149265%_ _%g149263149267%_) + (cons _%g149262149265%_ _%g149263149267%_)))) (declare (not safe)) - (__foldr1 __tmp146703 '() _%L145540%_)))) - _%rands145498145537%_)))))) + (__foldr1 __tmp150400 '() _%g149193149245%_)))) + _%rands149205149243%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145493145521%_ - _%target145490145516%_ + (_%loop149200149228%_ + _%target149197149223%_ '())) - (_%g145484145503%_ - _%g145485145506%_))))) - (_%g145484145503%_ _%g145485145506%_)))) - (_%g145484145503%_ _%g145485145506%_))))) - (_%g145483145565%_ _%stx145482%_)))) + (_%g149191149210%_ + _%g149192149213%_))))) + (_%g149191149210%_ _%g149192149213%_)))) + (_%g149191149210%_ _%g149192149213%_))))) + (_%g149190149270%_ _%stx149189%_)))) (define gxc#xform-wrap-source - (lambda (_%stx145478%_ _%src-stx145479%_) - (let ((__tmp146704 + (lambda (_%stx149185%_ _%src-stx149186%_) + (let ((__tmp150401 (let () (declare (not safe)) - (gx#stx-source _%src-stx145479%_)))) + (gx#stx-source _%src-stx149186%_)))) (declare (not safe)) - (gx#stx-wrap-source _%stx145478%_ __tmp146704)))) + (gx#stx-wrap-source _%stx149185%_ __tmp150401)))) (define gxc#xform-wrap-apply - (lambda (_%stx145474%_ _%src-stx145475%_ _%ctx145476%_) + (lambda (_%stx149181%_ _%src-stx149182%_ _%ctx149183%_) (gxc#compile-e__1 - _%ctx145476%_ - (gxc#xform-wrap-source _%stx145474%_ _%src-stx145475%_)))) + _%ctx149183%_ + (gxc#xform-wrap-source _%stx149181%_ _%src-stx149182%_)))) (define gxc#xform-begin% - (lambda (_%self145429%_ _%stx145430%_) - (let* ((_%g145432145442%_ - (lambda (_%g145433145439%_) + (lambda (_%self149136%_ _%stx149137%_) + (let* ((_%g149139149149%_ + (lambda (_%g149140149146%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145433145439%_)))) - (_%g145431145471%_ - (lambda (_%g145433145445%_) + _%g149140149146%_)))) + (_%g149138149178%_ + (lambda (_%g149140149152%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145433145445%_)) - (let ((_%e145435145447%_ + (gx#stx-pair? _%g149140149152%_)) + (let ((_%e149142149154%_ (let () (declare (not safe)) - (gx#stx-e _%g145433145445%_)))) - (let ((_%hd145436145450%_ + (gx#stx-e _%g149140149152%_)))) + (let ((_%hd149143149157%_ (let () (declare (not safe)) - (##car _%e145435145447%_))) - (_%tl145437145452%_ + (##car _%e149142149154%_))) + (_%tl149144149159%_ (let () (declare (not safe)) - (##cdr _%e145435145447%_)))) - ((lambda (_%L145455%_) - (let ((_%forms145469%_ - (map (lambda (_%g145464145466%_) + (##cdr _%e149142149154%_)))) + ((lambda (_%g149141149162%_) + (let ((_%forms149176%_ + (map (lambda (_%g149171149173%_) (gxc#compile-e__1 - _%self145429%_ - _%g145464145466%_)) - _%L145455%_))) + _%self149136%_ + _%g149171149173%_)) + _%g149141149162%_))) (gxc#xform-wrap-source - (cons '%#begin _%forms145469%_) - _%stx145430%_))) - _%tl145437145452%_))) - (_%g145432145442%_ _%g145433145445%_))))) - (_%g145431145471%_ _%stx145430%_)))) + (cons '%#begin _%forms149176%_) + _%stx149137%_))) + _%tl149144149159%_))) + (_%g149139149149%_ _%g149140149152%_))))) + (_%g149138149178%_ _%stx149137%_)))) (define gxc#xform-begin-syntax% - (lambda (_%self145383%_ _%stx145384%_) - (let* ((_%g145386145396%_ - (lambda (_%g145387145393%_) + (lambda (_%self149090%_ _%stx149091%_) + (let* ((_%g149093149103%_ + (lambda (_%g149094149100%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145387145393%_)))) - (_%g145385145426%_ - (lambda (_%g145387145399%_) + _%g149094149100%_)))) + (_%g149092149133%_ + (lambda (_%g149094149106%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145387145399%_)) - (let ((_%e145389145401%_ + (gx#stx-pair? _%g149094149106%_)) + (let ((_%e149096149108%_ (let () (declare (not safe)) - (gx#stx-e _%g145387145399%_)))) - (let ((_%hd145390145404%_ + (gx#stx-e _%g149094149106%_)))) + (let ((_%hd149097149111%_ (let () (declare (not safe)) - (##car _%e145389145401%_))) - (_%tl145391145406%_ + (##car _%e149096149108%_))) + (_%tl149098149113%_ (let () (declare (not safe)) - (##cdr _%e145389145401%_)))) - ((lambda (_%L145409%_) - (let ((__tmp146707 + (##cdr _%e149096149108%_)))) + ((lambda (_%g149095149116%_) + (let ((__tmp150404 (lambda () - (let ((_%forms145424%_ - (map (lambda (_%g145419145421%_) + (let ((_%forms149131%_ + (map (lambda (_%g149126149128%_) (gxc#compile-e__1 - _%self145383%_ - _%g145419145421%_)) - _%L145409%_))) + _%self149090%_ + _%g149126149128%_)) + _%g149095149116%_))) (gxc#xform-wrap-source - (cons '%#begin-syntax _%forms145424%_) - _%stx145384%_)))) - (__tmp146705 - (let ((__tmp146706 + (cons '%#begin-syntax _%forms149131%_) + _%stx149091%_)))) + (__tmp150402 + (let ((__tmp150403 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp146706 '1)))) + (##fx+ __tmp150403 '1)))) (declare (not safe)) (call-with-parameters__1 - __tmp146707 + __tmp150404 gx#current-expander-phi - __tmp146705))) - _%tl145391145406%_))) - (_%g145386145396%_ _%g145387145399%_))))) - (_%g145385145426%_ _%stx145384%_)))) + __tmp150402))) + _%tl149098149113%_))) + (_%g149093149103%_ _%g149094149106%_))))) + (_%g149092149133%_ _%stx149091%_)))) (define gxc#xform-module% - (lambda (_%self145320%_ _%stx145321%_) - (let* ((_%g145323145337%_ - (lambda (_%g145324145334%_) + (lambda (_%self149027%_ _%stx149028%_) + (let* ((_%g149030149044%_ + (lambda (_%g149031149041%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145324145334%_)))) - (_%g145322145380%_ - (lambda (_%g145324145340%_) + _%g149031149041%_)))) + (_%g149029149087%_ + (lambda (_%g149031149047%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145324145340%_)) - (let ((_%e145327145342%_ + (gx#stx-pair? _%g149031149047%_)) + (let ((_%e149034149049%_ (let () (declare (not safe)) - (gx#stx-e _%g145324145340%_)))) - (let ((_%hd145328145345%_ + (gx#stx-e _%g149031149047%_)))) + (let ((_%hd149035149052%_ (let () (declare (not safe)) - (##car _%e145327145342%_))) - (_%tl145329145347%_ + (##car _%e149034149049%_))) + (_%tl149036149054%_ (let () (declare (not safe)) - (##cdr _%e145327145342%_)))) + (##cdr _%e149034149049%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145329145347%_)) - (let ((_%e145330145350%_ + (gx#stx-pair? _%tl149036149054%_)) + (let ((_%e149037149057%_ (let () (declare (not safe)) - (gx#stx-e _%tl145329145347%_)))) - (let ((_%hd145331145353%_ + (gx#stx-e _%tl149036149054%_)))) + (let ((_%hd149038149060%_ (let () (declare (not safe)) - (##car _%e145330145350%_))) - (_%tl145332145355%_ + (##car _%e149037149057%_))) + (_%tl149039149062%_ (let () (declare (not safe)) - (##cdr _%e145330145350%_)))) - ((lambda (_%L145358%_ _%L145359%_) - (let* ((_%ctx145372%_ + (##cdr _%e149037149057%_)))) + ((lambda (_%g149032149065%_ + _%g149033149066%_) + (let* ((_%ctx149079%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L145359%_))) - (_%code145374%_ + _%g149033149066%_))) + (_%code149081%_ (##structure-ref - _%ctx145372%_ + _%ctx149079%_ '11 gx#module-context::t '#f)) - (_%code145377%_ - (let ((__tmp146708 + (_%code149084%_ + (let ((__tmp150405 (lambda () (gxc#compile-e__1 - _%self145320%_ - _%code145374%_)))) + _%self149027%_ + _%code149081%_)))) (declare (not safe)) (call-with-parameters__1 - __tmp146708 + __tmp150405 gx#current-expander-context - _%ctx145372%_)))) + _%ctx149079%_)))) (##structure-set! - _%ctx145372%_ - _%code145377%_ + _%ctx149079%_ + _%code149084%_ '11 gx#module-context::t '#f) (gxc#xform-wrap-source (cons '%#module - (cons _%L145359%_ - (cons _%code145377%_ '()))) - _%stx145321%_))) - _%tl145332145355%_ - _%hd145331145353%_))) - (_%g145323145337%_ _%g145324145340%_)))) - (_%g145323145337%_ _%g145324145340%_))))) - (_%g145322145380%_ _%stx145321%_)))) + (cons _%g149033149066%_ + (cons _%code149084%_ '()))) + _%stx149028%_))) + _%tl149039149062%_ + _%hd149038149060%_))) + (_%g149030149044%_ _%g149031149047%_)))) + (_%g149030149044%_ _%g149031149047%_))))) + (_%g149029149087%_ _%stx149028%_)))) (define gxc#xform-define-values% - (lambda (_%self145250%_ _%stx145251%_) - (let* ((_%g145253145270%_ - (lambda (_%g145254145267%_) + (lambda (_%self148957%_ _%stx148958%_) + (let* ((_%g148960148977%_ + (lambda (_%g148961148974%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145254145267%_)))) - (_%g145252145317%_ - (lambda (_%g145254145273%_) + _%g148961148974%_)))) + (_%g148959149024%_ + (lambda (_%g148961148980%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145254145273%_)) - (let ((_%e145257145275%_ + (gx#stx-pair? _%g148961148980%_)) + (let ((_%e148964148982%_ (let () (declare (not safe)) - (gx#stx-e _%g145254145273%_)))) - (let ((_%hd145258145278%_ + (gx#stx-e _%g148961148980%_)))) + (let ((_%hd148965148985%_ (let () (declare (not safe)) - (##car _%e145257145275%_))) - (_%tl145259145280%_ + (##car _%e148964148982%_))) + (_%tl148966148987%_ (let () (declare (not safe)) - (##cdr _%e145257145275%_)))) + (##cdr _%e148964148982%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145259145280%_)) - (let ((_%e145260145283%_ + (gx#stx-pair? _%tl148966148987%_)) + (let ((_%e148967148990%_ (let () (declare (not safe)) - (gx#stx-e _%tl145259145280%_)))) - (let ((_%hd145261145286%_ + (gx#stx-e _%tl148966148987%_)))) + (let ((_%hd148968148993%_ (let () (declare (not safe)) - (##car _%e145260145283%_))) - (_%tl145262145288%_ + (##car _%e148967148990%_))) + (_%tl148969148995%_ (let () (declare (not safe)) - (##cdr _%e145260145283%_)))) + (##cdr _%e148967148990%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145262145288%_)) - (let ((_%e145263145291%_ + (gx#stx-pair? _%tl148969148995%_)) + (let ((_%e148970148998%_ (let () (declare (not safe)) - (gx#stx-e _%tl145262145288%_)))) - (let ((_%hd145264145294%_ + (gx#stx-e _%tl148969148995%_)))) + (let ((_%hd148971149001%_ (let () (declare (not safe)) - (##car _%e145263145291%_))) - (_%tl145265145296%_ + (##car _%e148970148998%_))) + (_%tl148972149003%_ (let () (declare (not safe)) - (##cdr _%e145263145291%_)))) + (##cdr _%e148970148998%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145265145296%_)) - ((lambda (_%L145299%_ - _%L145300%_) - (let ((_%expr145315%_ + _%tl148972149003%_)) + ((lambda (_%g148962149006%_ + _%g148963149007%_) + (let ((_%expr149022%_ (gxc#compile-e__1 - _%self145250%_ - _%L145299%_))) + _%self148957%_ + _%g148962149006%_))) (gxc#xform-wrap-source (cons '%#define-values - (cons _%L145300%_ - (cons _%expr145315%_ + (cons _%g148963149007%_ + (cons _%expr149022%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx145251%_))) - _%hd145264145294%_ - _%hd145261145286%_) - (_%g145253145270%_ - _%g145254145273%_)))) - (_%g145253145270%_ _%g145254145273%_)))) - (_%g145253145270%_ _%g145254145273%_)))) - (_%g145253145270%_ _%g145254145273%_))))) - (_%g145252145317%_ _%stx145251%_)))) + _%stx148958%_))) + _%hd148971149001%_ + _%hd148968148993%_) + (_%g148960148977%_ + _%g148961148980%_)))) + (_%g148960148977%_ _%g148961148980%_)))) + (_%g148960148977%_ _%g148961148980%_)))) + (_%g148960148977%_ _%g148961148980%_))))) + (_%g148959149024%_ _%stx148958%_)))) (define gxc#xform-define-syntax% - (lambda (_%self145179%_ _%stx145180%_) - (let* ((_%g145182145199%_ - (lambda (_%g145183145196%_) + (lambda (_%self148886%_ _%stx148887%_) + (let* ((_%g148889148906%_ + (lambda (_%g148890148903%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145183145196%_)))) - (_%g145181145247%_ - (lambda (_%g145183145202%_) + _%g148890148903%_)))) + (_%g148888148954%_ + (lambda (_%g148890148909%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145183145202%_)) - (let ((_%e145186145204%_ + (gx#stx-pair? _%g148890148909%_)) + (let ((_%e148893148911%_ (let () (declare (not safe)) - (gx#stx-e _%g145183145202%_)))) - (let ((_%hd145187145207%_ + (gx#stx-e _%g148890148909%_)))) + (let ((_%hd148894148914%_ (let () (declare (not safe)) - (##car _%e145186145204%_))) - (_%tl145188145209%_ + (##car _%e148893148911%_))) + (_%tl148895148916%_ (let () (declare (not safe)) - (##cdr _%e145186145204%_)))) + (##cdr _%e148893148911%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145188145209%_)) - (let ((_%e145189145212%_ + (gx#stx-pair? _%tl148895148916%_)) + (let ((_%e148896148919%_ (let () (declare (not safe)) - (gx#stx-e _%tl145188145209%_)))) - (let ((_%hd145190145215%_ + (gx#stx-e _%tl148895148916%_)))) + (let ((_%hd148897148922%_ (let () (declare (not safe)) - (##car _%e145189145212%_))) - (_%tl145191145217%_ + (##car _%e148896148919%_))) + (_%tl148898148924%_ (let () (declare (not safe)) - (##cdr _%e145189145212%_)))) + (##cdr _%e148896148919%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145191145217%_)) - (let ((_%e145192145220%_ + (gx#stx-pair? _%tl148898148924%_)) + (let ((_%e148899148927%_ (let () (declare (not safe)) - (gx#stx-e _%tl145191145217%_)))) - (let ((_%hd145193145223%_ + (gx#stx-e _%tl148898148924%_)))) + (let ((_%hd148900148930%_ (let () (declare (not safe)) - (##car _%e145192145220%_))) - (_%tl145194145225%_ + (##car _%e148899148927%_))) + (_%tl148901148932%_ (let () (declare (not safe)) - (##cdr _%e145192145220%_)))) + (##cdr _%e148899148927%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145194145225%_)) - ((lambda (_%L145228%_ - _%L145229%_) - (let ((__tmp146711 + _%tl148901148932%_)) + ((lambda (_%g148891148935%_ + _%g148892148936%_) + (let ((__tmp150408 (lambda () - (let ((_%expr145245%_ + (let ((_%expr148952%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gxc#compile-e__1 _%self145179%_ _%L145228%_))) + (gxc#compile-e__1 _%self148886%_ _%g148891148935%_))) (gxc#xform-wrap-source (cons '%#define-syntax - (cons _%L145229%_ (cons _%expr145245%_ '()))) - _%stx145180%_)))) - (__tmp146709 - (let ((__tmp146710 + (cons _%g148892148936%_ (cons _%expr148952%_ '()))) + _%stx148887%_)))) + (__tmp150406 + (let ((__tmp150407 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp146710 '1)))) + (##fx+ __tmp150407 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters__1 - __tmp146711 + __tmp150408 gx#current-expander-phi - __tmp146709))) - _%hd145193145223%_ - _%hd145190145215%_) - (_%g145182145199%_ - _%g145183145202%_)))) - (_%g145182145199%_ _%g145183145202%_)))) - (_%g145182145199%_ _%g145183145202%_)))) - (_%g145182145199%_ _%g145183145202%_))))) - (_%g145181145247%_ _%stx145180%_)))) + __tmp150406))) + _%hd148900148930%_ + _%hd148897148922%_) + (_%g148889148906%_ + _%g148890148909%_)))) + (_%g148889148906%_ _%g148890148909%_)))) + (_%g148889148906%_ _%g148890148909%_)))) + (_%g148889148906%_ _%g148890148909%_))))) + (_%g148888148954%_ _%stx148887%_)))) (define gxc#xform-begin-annotation% - (lambda (_%self145109%_ _%stx145110%_) - (let* ((_%g145112145129%_ - (lambda (_%g145113145126%_) + (lambda (_%self148816%_ _%stx148817%_) + (let* ((_%g148819148836%_ + (lambda (_%g148820148833%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145113145126%_)))) - (_%g145111145176%_ - (lambda (_%g145113145132%_) + _%g148820148833%_)))) + (_%g148818148883%_ + (lambda (_%g148820148839%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145113145132%_)) - (let ((_%e145116145134%_ + (gx#stx-pair? _%g148820148839%_)) + (let ((_%e148823148841%_ (let () (declare (not safe)) - (gx#stx-e _%g145113145132%_)))) - (let ((_%hd145117145137%_ + (gx#stx-e _%g148820148839%_)))) + (let ((_%hd148824148844%_ (let () (declare (not safe)) - (##car _%e145116145134%_))) - (_%tl145118145139%_ + (##car _%e148823148841%_))) + (_%tl148825148846%_ (let () (declare (not safe)) - (##cdr _%e145116145134%_)))) + (##cdr _%e148823148841%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145118145139%_)) - (let ((_%e145119145142%_ + (gx#stx-pair? _%tl148825148846%_)) + (let ((_%e148826148849%_ (let () (declare (not safe)) - (gx#stx-e _%tl145118145139%_)))) - (let ((_%hd145120145145%_ + (gx#stx-e _%tl148825148846%_)))) + (let ((_%hd148827148852%_ (let () (declare (not safe)) - (##car _%e145119145142%_))) - (_%tl145121145147%_ + (##car _%e148826148849%_))) + (_%tl148828148854%_ (let () (declare (not safe)) - (##cdr _%e145119145142%_)))) + (##cdr _%e148826148849%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145121145147%_)) - (let ((_%e145122145150%_ + (gx#stx-pair? _%tl148828148854%_)) + (let ((_%e148829148857%_ (let () (declare (not safe)) - (gx#stx-e _%tl145121145147%_)))) - (let ((_%hd145123145153%_ + (gx#stx-e _%tl148828148854%_)))) + (let ((_%hd148830148860%_ (let () (declare (not safe)) - (##car _%e145122145150%_))) - (_%tl145124145155%_ + (##car _%e148829148857%_))) + (_%tl148831148862%_ (let () (declare (not safe)) - (##cdr _%e145122145150%_)))) + (##cdr _%e148829148857%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145124145155%_)) - ((lambda (_%L145158%_ - _%L145159%_) - (let ((_%expr145174%_ + _%tl148831148862%_)) + ((lambda (_%g148821148865%_ + _%g148822148866%_) + (let ((_%expr148881%_ (gxc#compile-e__1 - _%self145109%_ - _%L145158%_))) + _%self148816%_ + _%g148821148865%_))) (gxc#xform-wrap-source (cons '%#begin-annotation - (cons _%L145159%_ - (cons _%expr145174%_ + (cons _%g148822148866%_ + (cons _%expr148881%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx145110%_))) - _%hd145123145153%_ - _%hd145120145145%_) - (_%g145112145129%_ - _%g145113145132%_)))) - (_%g145112145129%_ _%g145113145132%_)))) - (_%g145112145129%_ _%g145113145132%_)))) - (_%g145112145129%_ _%g145113145132%_))))) - (_%g145111145176%_ _%stx145110%_)))) + _%stx148817%_))) + _%hd148830148860%_ + _%hd148827148852%_) + (_%g148819148836%_ + _%g148820148839%_)))) + (_%g148819148836%_ _%g148820148839%_)))) + (_%g148819148836%_ _%g148820148839%_)))) + (_%g148819148836%_ _%g148820148839%_))))) + (_%g148818148883%_ _%stx148817%_)))) (define gxc#xform-lambda% - (lambda (_%self145047%_ _%stx145048%_) - (let* ((_%g145050145064%_ - (lambda (_%g145051145061%_) + (lambda (_%self148754%_ _%stx148755%_) + (let* ((_%g148757148771%_ + (lambda (_%g148758148768%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145051145061%_)))) - (_%g145049145106%_ - (lambda (_%g145051145067%_) + _%g148758148768%_)))) + (_%g148756148813%_ + (lambda (_%g148758148774%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145051145067%_)) - (let ((_%e145054145069%_ + (gx#stx-pair? _%g148758148774%_)) + (let ((_%e148761148776%_ (let () (declare (not safe)) - (gx#stx-e _%g145051145067%_)))) - (let ((_%hd145055145072%_ + (gx#stx-e _%g148758148774%_)))) + (let ((_%hd148762148779%_ (let () (declare (not safe)) - (##car _%e145054145069%_))) - (_%tl145056145074%_ + (##car _%e148761148776%_))) + (_%tl148763148781%_ (let () (declare (not safe)) - (##cdr _%e145054145069%_)))) + (##cdr _%e148761148776%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145056145074%_)) - (let ((_%e145057145077%_ + (gx#stx-pair? _%tl148763148781%_)) + (let ((_%e148764148784%_ (let () (declare (not safe)) - (gx#stx-e _%tl145056145074%_)))) - (let ((_%hd145058145080%_ + (gx#stx-e _%tl148763148781%_)))) + (let ((_%hd148765148787%_ (let () (declare (not safe)) - (##car _%e145057145077%_))) - (_%tl145059145082%_ + (##car _%e148764148784%_))) + (_%tl148766148789%_ (let () (declare (not safe)) - (##cdr _%e145057145077%_)))) - ((lambda (_%L145085%_ _%L145086%_) - (let ((__tmp146713 + (##cdr _%e148764148784%_)))) + ((lambda (_%g148759148792%_ + _%g148760148793%_) + (let ((__tmp150410 (lambda () - (let ((_%body145104%_ - (map (lambda (_%g145099145101%_) + (let ((_%body148811%_ + (map (lambda (_%g148806148808%_) (gxc#compile-e__1 - _%self145047%_ - _%g145099145101%_)) - _%L145085%_))) + _%self148754%_ + _%g148806148808%_)) + _%g148759148792%_))) (gxc#xform-wrap-source (cons '%#lambda - (cons _%L145086%_ - _%body145104%_)) - _%stx145048%_)))) - (__tmp146712 + (cons _%g148760148793%_ + _%body148811%_)) + _%stx148755%_)))) + (__tmp150409 (gxc#xform-let-locals - _%L145086%_))) + _%g148760148793%_))) (declare (not safe)) (call-with-parameters__1 - __tmp146713 + __tmp150410 gxc#current-compile-local-env - __tmp146712))) - _%tl145059145082%_ - _%hd145058145080%_))) - (_%g145050145064%_ _%g145051145067%_)))) - (_%g145050145064%_ _%g145051145067%_))))) - (_%g145049145106%_ _%stx145048%_)))) + __tmp150409))) + _%tl148766148789%_ + _%hd148765148787%_))) + (_%g148757148771%_ _%g148758148774%_)))) + (_%g148757148771%_ _%g148758148774%_))))) + (_%g148756148813%_ _%stx148755%_)))) (define gxc#xform-case-lambda% - (lambda (_%self144955%_ _%stx144956%_) - (letrec ((_%clause-e144958%_ - (lambda (_%clause144999%_) - (let* ((_%g145001145012%_ - (lambda (_%g145002145009%_) + (lambda (_%self148662%_ _%stx148663%_) + (letrec ((_%clause-e148665%_ + (lambda (_%clause148706%_) + (let* ((_%g148708148719%_ + (lambda (_%g148709148716%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g145002145009%_)))) - (_%g145000145044%_ - (lambda (_%g145002145015%_) + _%g148709148716%_)))) + (_%g148707148751%_ + (lambda (_%g148709148722%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g145002145015%_)) - (let ((_%e145005145017%_ + (gx#stx-pair? _%g148709148722%_)) + (let ((_%e148712148724%_ (let () (declare (not safe)) - (gx#stx-e _%g145002145015%_)))) - (let ((_%hd145006145020%_ + (gx#stx-e _%g148709148722%_)))) + (let ((_%hd148713148727%_ (let () (declare (not safe)) - (##car _%e145005145017%_))) - (_%tl145007145022%_ + (##car _%e148712148724%_))) + (_%tl148714148729%_ (let () (declare (not safe)) - (##cdr _%e145005145017%_)))) - ((lambda (_%L145025%_ _%L145026%_) - (let ((__tmp146715 + (##cdr _%e148712148724%_)))) + ((lambda (_%g148710148732%_ + _%g148711148733%_) + (let ((__tmp150412 (lambda () - (let ((_%body145042%_ - (map (lambda (_%g145037145039%_) + (let ((_%body148749%_ + (map (lambda (_%g148744148746%_) (gxc#compile-e__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%self144955%_ - _%g145037145039%_)) - _%L145025%_))) + _%self148662%_ + _%g148744148746%_)) + _%g148710148732%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L145026%_ - _%body145042%_)))) - (__tmp146714 + (cons _%g148711148733%_ + _%body148749%_)))) + (__tmp150411 (gxc#xform-let-locals - _%L145026%_))) + _%g148711148733%_))) (declare (not safe)) (call-with-parameters__1 - __tmp146715 + __tmp150412 gxc#current-compile-local-env - __tmp146714))) - _%tl145007145022%_ - _%hd145006145020%_))) - (_%g145001145012%_ _%g145002145015%_))))) - (_%g145000145044%_ _%clause144999%_))))) - (let* ((_%g144960144970%_ - (lambda (_%g144961144967%_) + __tmp150411))) + _%tl148714148729%_ + _%hd148713148727%_))) + (_%g148708148719%_ _%g148709148722%_))))) + (_%g148707148751%_ _%clause148706%_))))) + (let* ((_%g148667148677%_ + (lambda (_%g148668148674%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g144961144967%_)))) - (_%g144959144996%_ - (lambda (_%g144961144973%_) + _%g148668148674%_)))) + (_%g148666148703%_ + (lambda (_%g148668148680%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g144961144973%_)) - (let ((_%e144963144975%_ + (gx#stx-pair? _%g148668148680%_)) + (let ((_%e148670148682%_ (let () (declare (not safe)) - (gx#stx-e _%g144961144973%_)))) - (let ((_%hd144964144978%_ + (gx#stx-e _%g148668148680%_)))) + (let ((_%hd148671148685%_ (let () (declare (not safe)) - (##car _%e144963144975%_))) - (_%tl144965144980%_ + (##car _%e148670148682%_))) + (_%tl148672148687%_ (let () (declare (not safe)) - (##cdr _%e144963144975%_)))) - ((lambda (_%L144983%_) - (let ((_%clauses144994%_ - (map _%clause-e144958%_ _%L144983%_))) + (##cdr _%e148670148682%_)))) + ((lambda (_%g148669148690%_) + (let ((_%clauses148701%_ + (map _%clause-e148665%_ + _%g148669148690%_))) (gxc#xform-wrap-source - (cons '%#case-lambda _%clauses144994%_) - _%stx144956%_))) - _%tl144965144980%_))) - (_%g144960144970%_ _%g144961144973%_))))) - (_%g144959144996%_ _%stx144956%_))))) + (cons '%#case-lambda _%clauses148701%_) + _%stx148663%_))) + _%tl148672148687%_))) + (_%g148667148677%_ _%g148668148680%_))))) + (_%g148666148703%_ _%stx148663%_))))) (define gxc#xform-let-values% - (lambda (_%self144709%_ _%stx144710%_) - (let* ((_%g144712144745%_ - (lambda (_%g144713144742%_) + (lambda (_%self148422%_ _%stx148423%_) + (let* ((_%g148425148458%_ + (lambda (_%g148426148455%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g144713144742%_)))) - (_%g144711144952%_ - (lambda (_%g144713144748%_) + _%g148426148455%_)))) + (_%g148424148659%_ + (lambda (_%g148426148461%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g144713144748%_)) - (let ((_%e144718144750%_ + (gx#stx-pair? _%g148426148461%_)) + (let ((_%e148431148463%_ (let () (declare (not safe)) - (gx#stx-e _%g144713144748%_)))) - (let ((_%hd144719144753%_ + (gx#stx-e _%g148426148461%_)))) + (let ((_%hd148432148466%_ (let () (declare (not safe)) - (##car _%e144718144750%_))) - (_%tl144720144755%_ + (##car _%e148431148463%_))) + (_%tl148433148468%_ (let () (declare (not safe)) - (##cdr _%e144718144750%_)))) + (##cdr _%e148431148463%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144720144755%_)) - (let ((_%e144721144758%_ + (gx#stx-pair? _%tl148433148468%_)) + (let ((_%e148434148471%_ (let () (declare (not safe)) - (gx#stx-e _%tl144720144755%_)))) - (let ((_%hd144722144761%_ + (gx#stx-e _%tl148433148468%_)))) + (let ((_%hd148435148474%_ (let () (declare (not safe)) - (##car _%e144721144758%_))) - (_%tl144723144763%_ + (##car _%e148434148471%_))) + (_%tl148436148476%_ (let () (declare (not safe)) - (##cdr _%e144721144758%_)))) + (##cdr _%e148434148471%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd144722144761%_)) - (let ((_g146716_ + (gx#stx-pair/null? _%hd148435148474%_)) + (let ((_g150413_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd144722144761%_ + _%hd148435148474%_ '0)))) (begin - (let ((_g146717_ + (let ((_g150414_ (let () (declare (not safe)) - (if (##values? _g146716_) + (if (##values? _g150413_) (##values-length - _g146716_) + _g150413_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g146717_ 2))) + (##fx= _g150414_ 2))) (error "Context expects 2 values" - _g146717_))) - (let ((_%target144724144766%_ + _g150414_))) + (let ((_%target148437148479%_ (let () (declare (not safe)) - (##values-ref _g146716_ 0))) - (_%tl144726144768%_ + (##values-ref _g150413_ 0))) + (_%tl148439148481%_ (let () (declare (not safe)) (##values-ref - _g146716_ + _g150413_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144726144768%_)) - (letrec ((_%loop144727144771%_ - (lambda (_%hd144725144774%_ + _%tl148439148481%_)) + (letrec ((_%loop148440148484%_ + (lambda (_%hd148438148487%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr144731144776%_ - _%hd144732144778%_) + _%expr148444148489%_ + _%hd148445148490%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144725144774%_)) - (let ((_%e144728144781%_ + (gx#stx-pair? _%hd148438148487%_)) + (let ((_%e148441148492%_ (let () (declare (not safe)) - (gx#stx-e _%hd144725144774%_)))) - (let ((_%lp-hd144729144784%_ + (gx#stx-e _%hd148438148487%_)))) + (let ((_%lp-hd148442148495%_ (let () (declare (not safe)) - (##car _%e144728144781%_))) - (_%lp-tl144730144786%_ + (##car _%e148441148492%_))) + (_%lp-tl148443148497%_ (let () (declare (not safe)) - (##cdr _%e144728144781%_)))) + (##cdr _%e148441148492%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd144729144784%_)) - (let ((_%e144735144789%_ + (gx#stx-pair? _%lp-hd148442148495%_)) + (let ((_%e148448148500%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd144729144784%_)))) - (let ((_%hd144736144792%_ + (gx#stx-e _%lp-hd148442148495%_)))) + (let ((_%hd148449148503%_ (let () (declare (not safe)) - (##car _%e144735144789%_))) - (_%tl144737144794%_ + (##car _%e148448148500%_))) + (_%tl148450148505%_ (let () (declare (not safe)) - (##cdr _%e144735144789%_)))) + (##cdr _%e148448148500%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144737144794%_)) - (let ((_%e144738144797%_ + (gx#stx-pair? _%tl148450148505%_)) + (let ((_%e148451148508%_ (let () (declare (not safe)) (gx#stx-e - _%tl144737144794%_)))) - (let ((_%hd144739144800%_ + _%tl148450148505%_)))) + (let ((_%hd148452148511%_ (let () (declare (not safe)) - (##car _%e144738144797%_))) - (_%tl144740144802%_ + (##car _%e148451148508%_))) + (_%tl148453148513%_ (let () (declare (not safe)) - (##cdr _%e144738144797%_)))) + (##cdr _%e148451148508%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144740144802%_)) - (_%loop144727144771%_ - _%lp-tl144730144786%_ - (cons _%hd144739144800%_ - _%expr144731144776%_) - (cons _%hd144736144792%_ - _%hd144732144778%_)) - (_%g144712144745%_ - _%g144713144748%_)))) - (_%g144712144745%_ - _%g144713144748%_)))) - (_%g144712144745%_ _%g144713144748%_)))) - (let ((_%expr144733144805%_ - (reverse _%expr144731144776%_)) - (_%hd144734144807%_ - (reverse _%hd144732144778%_))) - ((lambda (_%L144810%_ - _%L144811%_ - _%L144812%_ - _%L144813%_) - (let* ((_%g144832144848%_ - (lambda (_%g144833144845%_) + _%tl148453148513%_)) + (_%loop148440148484%_ + _%lp-tl148443148497%_ + (cons _%hd148452148511%_ + _%expr148444148489%_) + (cons _%hd148449148503%_ + _%hd148445148490%_)) + (_%g148425148458%_ + _%g148426148461%_)))) + (_%g148425148458%_ + _%g148426148461%_)))) + (_%g148425148458%_ _%g148426148461%_)))) + (let ((_%expr148446148516%_ + (reverse _%expr148444148489%_)) + (_%hd148447148517%_ + (reverse _%hd148445148490%_))) + ((lambda (_%g148427148519%_ + _%g148428148520%_ + _%g148429148521%_ + _%g148430148522%_) + (let* ((_%g148541148557%_ + (lambda (_%g148542148554%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g144833144845%_)))) - (_%g144831144938%_ - (lambda (_%g144833144851%_) + _%g148542148554%_)))) + (_%g148540148645%_ + (lambda (_%g148542148560%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g144833144851%_)) - (let ((_g146718_ + _%g148542148560%_)) + (let ((_g150415_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g144833144851%_ + _%g148542148560%_ '0)))) (begin - (let ((_g146719_ + (let ((_g150416_ (let () (declare (not safe)) (if (##values? - _g146718_) + _g150415_) (##values-length - _g146718_) + _g150415_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g146719_ + (##fx= _g150416_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g146719_))) - (let ((_%target144835144853%_ + _g150416_))) + (let ((_%target148544148562%_ (let () (declare (not safe)) (##values-ref - _g146718_ + _g150415_ 0))) - (_%tl144837144855%_ + (_%tl148546148564%_ (let () (declare (not safe)) (##values-ref - _g146718_ + _g150415_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144837144855%_)) - (letrec ((_%loop144838144858%_ - (lambda (_%hd144836144861%_ + _%tl148546148564%_)) + (letrec ((_%loop148547148567%_ + (lambda (_%hd148545148570%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr144842144863%_) + _%expr148551148572%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144836144861%_)) - (let ((_%e144839144866%_ + (gx#stx-pair? _%hd148545148570%_)) + (let ((_%e148548148574%_ (let () (declare (not safe)) - (gx#syntax-e _%hd144836144861%_)))) - (let ((_%lp-hd144840144869%_ + (gx#syntax-e _%hd148545148570%_)))) + (let ((_%lp-hd148549148577%_ (let () (declare (not safe)) - (##car _%e144839144866%_))) - (_%lp-tl144841144871%_ + (##car _%e148548148574%_))) + (_%lp-tl148550148579%_ (let () (declare (not safe)) - (##cdr _%e144839144866%_)))) - (_%loop144838144858%_ - _%lp-tl144841144871%_ - (cons _%lp-hd144840144869%_ - _%expr144842144863%_)))) - (let ((_%expr144843144874%_ - (reverse _%expr144842144863%_))) - ((lambda (_%L144877%_) - (let ((__tmp146722 + (##cdr _%e148548148574%_)))) + (_%loop148547148567%_ + _%lp-tl148550148579%_ + (cons _%lp-hd148549148577%_ + _%expr148551148572%_)))) + (let ((_%expr148552148582%_ + (reverse _%expr148551148572%_))) + ((lambda (_%g148543148584%_) + (let ((__tmp150419 (lambda () - (let* ((_%g144891144898%_ - (lambda (_%g144892144895%_) + (let* ((_%g148598148605%_ + (lambda (_%g148599148602%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g144892144895%_)))) - (_%g144890144924%_ - (lambda (_%g144892144901%_) - ((lambda (_%L144903%_) + _%g148599148602%_)))) + (_%g148597148631%_ + (lambda (_%g148599148608%_) + ((lambda (_%g148600148610%_) (gxc#xform-wrap-source - (cons _%L144813%_ + (cons _%g148430148522%_ (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L144877%_ - _%L144812%_)) - (let ((__tmp146723 - (lambda (_%g144913144917%_ - _%g144914144919%_ - _%g144915144921%_) - (cons (cons _%g144914144919%_ - (cons _%g144913144917%_ + _%g148543148584%_ + _%g148429148521%_)) + (let ((__tmp150420 + (lambda (_%g148620148624%_ + _%g148621148626%_ + _%g148622148628%_) + (cons (cons _%g148621148626%_ + (cons _%g148620148624%_ '())) - _%g144915144921%_)))) + _%g148622148628%_)))) (declare (not safe)) (__foldr2 - __tmp146723 + __tmp150420 '() - _%L144877%_ - _%L144812%_))) - _%L144903%_)) - _%stx144710%_)) - _%g144892144901%_)))) + _%g148543148584%_ + _%g148429148521%_))) + _%g148600148610%_)) + _%stx148423%_)) + _%g148599148608%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g144890144924%_ - (map (lambda (_%g144926144928%_) + (_%g148597148631%_ + (map (lambda (_%g148633148635%_) (gxc#compile-e__1 - _%self144709%_ - _%g144926144928%_)) - _%L144810%_))))) - (__tmp146720 + _%self148422%_ + _%g148633148635%_)) + _%g148427148519%_))))) + (__tmp150417 (gxc#xform-let-locals - (let ((__tmp146721 - (lambda (_%g144930144933%_ - _%g144931144935%_) - (cons _%g144930144933%_ - _%g144931144935%_)))) + (let ((__tmp150418 + (lambda (_%g148637148640%_ + _%g148638148642%_) + (cons _%g148637148640%_ + _%g148638148642%_)))) (declare (not safe)) (__foldr1 - __tmp146721 + __tmp150418 '() - _%L144812%_))))) + _%g148429148521%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp146722 + __tmp150419 gxc#current-compile-local-env - __tmp146720))) - _%expr144843144874%_)))))) - (_%loop144838144858%_ _%target144835144853%_ '())) + __tmp150417))) + _%expr148552148582%_)))))) + (_%loop148547148567%_ _%target148544148562%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g144832144848%_ - _%g144833144851%_))))) - (_%g144832144848%_ - _%g144833144851%_))))) - (_%g144831144938%_ - (map (lambda (_%g144940144942%_) + (_%g148541148557%_ + _%g148542148560%_))))) + (_%g148541148557%_ + _%g148542148560%_))))) + (_%g148540148645%_ + (map (lambda (_%g148647148649%_) (gxc#compile-e__1 - _%self144709%_ - _%g144940144942%_)) - (let ((__tmp146724 - (lambda (_%g144944144947%_ - _%g144945144949%_) - (cons _%g144944144947%_ - _%g144945144949%_)))) + _%self148422%_ + _%g148647148649%_)) + (let ((__tmp150421 + (lambda (_%g148651148654%_ + _%g148652148656%_) + (cons _%g148651148654%_ + _%g148652148656%_)))) (declare (not safe)) (__foldr1 - __tmp146724 + __tmp150421 '() - _%L144811%_)))))) - _%tl144723144763%_ - _%expr144733144805%_ - _%hd144734144807%_ - _%hd144719144753%_)))))) + _%g148428148520%_)))))) + _%tl148436148476%_ + _%expr148446148516%_ + _%hd148447148517%_ + _%hd148432148466%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144727144771%_ - _%target144724144766%_ + (_%loop148440148484%_ + _%target148437148479%_ '() '())) - (_%g144712144745%_ - _%g144713144748%_))))) - (_%g144712144745%_ _%g144713144748%_)))) - (_%g144712144745%_ _%g144713144748%_)))) - (_%g144712144745%_ _%g144713144748%_))))) - (_%g144711144952%_ _%stx144710%_)))) + (_%g148425148458%_ + _%g148426148461%_))))) + (_%g148425148458%_ _%g148426148461%_)))) + (_%g148425148458%_ _%g148426148461%_)))) + (_%g148425148458%_ _%g148426148461%_))))) + (_%g148424148659%_ _%stx148423%_)))) (define gxc#xform-letrec-values% - (lambda (_%self144463%_ _%stx144464%_) - (let* ((_%g144466144499%_ - (lambda (_%g144467144496%_) + (lambda (_%self148182%_ _%stx148183%_) + (let* ((_%g148185148218%_ + (lambda (_%g148186148215%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g144467144496%_)))) - (_%g144465144706%_ - (lambda (_%g144467144502%_) + _%g148186148215%_)))) + (_%g148184148419%_ + (lambda (_%g148186148221%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g144467144502%_)) - (let ((_%e144472144504%_ + (gx#stx-pair? _%g148186148221%_)) + (let ((_%e148191148223%_ (let () (declare (not safe)) - (gx#stx-e _%g144467144502%_)))) - (let ((_%hd144473144507%_ + (gx#stx-e _%g148186148221%_)))) + (let ((_%hd148192148226%_ (let () (declare (not safe)) - (##car _%e144472144504%_))) - (_%tl144474144509%_ + (##car _%e148191148223%_))) + (_%tl148193148228%_ (let () (declare (not safe)) - (##cdr _%e144472144504%_)))) + (##cdr _%e148191148223%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144474144509%_)) - (let ((_%e144475144512%_ + (gx#stx-pair? _%tl148193148228%_)) + (let ((_%e148194148231%_ (let () (declare (not safe)) - (gx#stx-e _%tl144474144509%_)))) - (let ((_%hd144476144515%_ + (gx#stx-e _%tl148193148228%_)))) + (let ((_%hd148195148234%_ (let () (declare (not safe)) - (##car _%e144475144512%_))) - (_%tl144477144517%_ + (##car _%e148194148231%_))) + (_%tl148196148236%_ (let () (declare (not safe)) - (##cdr _%e144475144512%_)))) + (##cdr _%e148194148231%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd144476144515%_)) - (let ((_g146725_ + (gx#stx-pair/null? _%hd148195148234%_)) + (let ((_g150422_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd144476144515%_ + _%hd148195148234%_ '0)))) (begin - (let ((_g146726_ + (let ((_g150423_ (let () (declare (not safe)) - (if (##values? _g146725_) + (if (##values? _g150422_) (##values-length - _g146725_) + _g150422_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g146726_ 2))) + (##fx= _g150423_ 2))) (error "Context expects 2 values" - _g146726_))) - (let ((_%target144478144520%_ + _g150423_))) + (let ((_%target148197148239%_ (let () (declare (not safe)) - (##values-ref _g146725_ 0))) - (_%tl144480144522%_ + (##values-ref _g150422_ 0))) + (_%tl148199148241%_ (let () (declare (not safe)) (##values-ref - _g146725_ + _g150422_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144480144522%_)) - (letrec ((_%loop144481144525%_ - (lambda (_%hd144479144528%_ + _%tl148199148241%_)) + (letrec ((_%loop148200148244%_ + (lambda (_%hd148198148247%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr144485144530%_ - _%hd144486144532%_) + _%expr148204148249%_ + _%hd148205148250%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144479144528%_)) - (let ((_%e144482144535%_ + (gx#stx-pair? _%hd148198148247%_)) + (let ((_%e148201148252%_ (let () (declare (not safe)) - (gx#stx-e _%hd144479144528%_)))) - (let ((_%lp-hd144483144538%_ + (gx#stx-e _%hd148198148247%_)))) + (let ((_%lp-hd148202148255%_ (let () (declare (not safe)) - (##car _%e144482144535%_))) - (_%lp-tl144484144540%_ + (##car _%e148201148252%_))) + (_%lp-tl148203148257%_ (let () (declare (not safe)) - (##cdr _%e144482144535%_)))) + (##cdr _%e148201148252%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd144483144538%_)) - (let ((_%e144489144543%_ + (gx#stx-pair? _%lp-hd148202148255%_)) + (let ((_%e148208148260%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd144483144538%_)))) - (let ((_%hd144490144546%_ + (gx#stx-e _%lp-hd148202148255%_)))) + (let ((_%hd148209148263%_ (let () (declare (not safe)) - (##car _%e144489144543%_))) - (_%tl144491144548%_ + (##car _%e148208148260%_))) + (_%tl148210148265%_ (let () (declare (not safe)) - (##cdr _%e144489144543%_)))) + (##cdr _%e148208148260%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144491144548%_)) - (let ((_%e144492144551%_ + (gx#stx-pair? _%tl148210148265%_)) + (let ((_%e148211148268%_ (let () (declare (not safe)) (gx#stx-e - _%tl144491144548%_)))) - (let ((_%hd144493144554%_ + _%tl148210148265%_)))) + (let ((_%hd148212148271%_ (let () (declare (not safe)) - (##car _%e144492144551%_))) - (_%tl144494144556%_ + (##car _%e148211148268%_))) + (_%tl148213148273%_ (let () (declare (not safe)) - (##cdr _%e144492144551%_)))) + (##cdr _%e148211148268%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144494144556%_)) - (_%loop144481144525%_ - _%lp-tl144484144540%_ - (cons _%hd144493144554%_ - _%expr144485144530%_) - (cons _%hd144490144546%_ - _%hd144486144532%_)) - (_%g144466144499%_ - _%g144467144502%_)))) - (_%g144466144499%_ - _%g144467144502%_)))) - (_%g144466144499%_ _%g144467144502%_)))) - (let ((_%expr144487144559%_ - (reverse _%expr144485144530%_)) - (_%hd144488144561%_ - (reverse _%hd144486144532%_))) - ((lambda (_%L144564%_ - _%L144565%_ - _%L144566%_ - _%L144567%_) - (let ((__tmp146729 + _%tl148213148273%_)) + (_%loop148200148244%_ + _%lp-tl148203148257%_ + (cons _%hd148212148271%_ + _%expr148204148249%_) + (cons _%hd148209148263%_ + _%hd148205148250%_)) + (_%g148185148218%_ + _%g148186148221%_)))) + (_%g148185148218%_ + _%g148186148221%_)))) + (_%g148185148218%_ _%g148186148221%_)))) + (let ((_%expr148206148276%_ + (reverse _%expr148204148249%_)) + (_%hd148207148277%_ + (reverse _%hd148205148250%_))) + ((lambda (_%g148187148279%_ + _%g148188148280%_ + _%g148189148281%_ + _%g148190148282%_) + (let ((__tmp150426 (lambda () - (let* ((_%g144587144603%_ - (lambda (_%g144588144600%_) + (let* ((_%g148302148318%_ + (lambda (_%g148303148315%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g144588144600%_)))) - (_%g144586144685%_ - (lambda (_%g144588144606%_) + _%g148303148315%_)))) + (_%g148301148398%_ + (lambda (_%g148303148321%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g144588144606%_)) - (let ((_g146730_ + _%g148303148321%_)) + (let ((_g150427_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g144588144606%_ + _%g148303148321%_ '0)))) (begin - (let ((_g146731_ + (let ((_g150428_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g146730_) - (##values-length _g146730_) + (if (##values? _g150427_) + (##values-length _g150427_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g146731_ 2))) - (error "Context expects 2 values" _g146731_))) - (let ((_%target144590144608%_ + (if (not (let () (declare (not safe)) (##fx= _g150428_ 2))) + (error "Context expects 2 values" _g150428_))) + (let ((_%target148305148323%_ (let () (declare (not safe)) - (##values-ref _g146730_ 0))) - (_%tl144592144610%_ + (##values-ref _g150427_ 0))) + (_%tl148307148325%_ (let () (declare (not safe)) - (##values-ref _g146730_ 1)))) + (##values-ref _g150427_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144592144610%_)) - (letrec ((_%loop144593144613%_ - (lambda (_%hd144591144616%_ - _%expr144597144618%_) + (gx#stx-null? _%tl148307148325%_)) + (letrec ((_%loop148308148328%_ + (lambda (_%hd148306148331%_ + _%expr148312148333%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144591144616%_)) - (let ((_%e144594144621%_ + (gx#stx-pair? _%hd148306148331%_)) + (let ((_%e148309148335%_ (let () (declare (not safe)) (gx#syntax-e - _%hd144591144616%_)))) - (let ((_%lp-hd144595144624%_ + _%hd148306148331%_)))) + (let ((_%lp-hd148310148338%_ (let () (declare (not safe)) - (##car _%e144594144621%_))) - (_%lp-tl144596144626%_ + (##car _%e148309148335%_))) + (_%lp-tl148311148340%_ (let () (declare (not safe)) - (##cdr _%e144594144621%_)))) - (_%loop144593144613%_ - _%lp-tl144596144626%_ - (cons _%lp-hd144595144624%_ - _%expr144597144618%_)))) - (let ((_%expr144598144629%_ - (reverse _%expr144597144618%_))) - ((lambda (_%L144632%_) - (let* ((_%g144646144653%_ - (lambda (_%g144647144650%_) + (##cdr _%e148309148335%_)))) + (_%loop148308148328%_ + _%lp-tl148311148340%_ + (cons _%lp-hd148310148338%_ + _%expr148312148333%_)))) + (let ((_%expr148313148343%_ + (reverse _%expr148312148333%_))) + ((lambda (_%g148304148345%_) + (let* ((_%g148359148366%_ + (lambda (_%g148360148363%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g144647144650%_)))) - (_%g144645144678%_ - (lambda (_%g144647144656%_) - ((lambda (_%L144658%_) + _%g148360148363%_)))) + (_%g148358148391%_ + (lambda (_%g148360148369%_) + ((lambda (_%g148361148371%_) (gxc#xform-wrap-source - (cons _%L144567%_ + (cons _%g148190148282%_ (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L144632%_ - _%L144566%_)) - (let ((__tmp146732 - (lambda (_%g144667144671%_ - _%g144668144673%_ - _%g144669144675%_) - (cons (cons _%g144668144673%_ - (cons _%g144667144671%_ + _%g148304148345%_ + _%g148189148281%_)) + (let ((__tmp150429 + (lambda (_%g148380148384%_ + _%g148381148386%_ + _%g148382148388%_) + (cons (cons _%g148381148386%_ + (cons _%g148380148384%_ '())) - _%g144669144675%_)))) + _%g148382148388%_)))) (declare (not safe)) (__foldr2 - __tmp146732 + __tmp150429 '() - _%L144632%_ - _%L144566%_))) - _%L144658%_)) - _%stx144464%_)) - _%g144647144656%_)))) + _%g148304148345%_ + _%g148189148281%_))) + _%g148361148371%_)) + _%stx148183%_)) + _%g148360148369%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g144645144678%_ - (map (lambda (_%g144680144682%_) + (_%g148358148391%_ + (map (lambda (_%g148393148395%_) (gxc#compile-e__1 - _%self144463%_ - _%g144680144682%_)) - _%L144564%_)))) - _%expr144598144629%_)))))) - (_%loop144593144613%_ _%target144590144608%_ '())) - (_%g144587144603%_ _%g144588144606%_))))) + _%self148182%_ + _%g148393148395%_)) + _%g148187148279%_)))) + _%expr148313148343%_)))))) + (_%loop148308148328%_ _%target148305148323%_ '())) + (_%g148302148318%_ _%g148303148321%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g144587144603%_ - _%g144588144606%_))))) - (_%g144586144685%_ - (map (lambda (_%g144687144689%_) + (_%g148302148318%_ + _%g148303148321%_))))) + (_%g148301148398%_ + (map (lambda (_%g148400148402%_) (gxc#compile-e__1 - _%self144463%_ - _%g144687144689%_)) - (let ((__tmp146733 - (lambda (_%g144691144694%_ - _%g144692144696%_) - (cons _%g144691144694%_ - _%g144692144696%_)))) + _%self148182%_ + _%g148400148402%_)) + (let ((__tmp150430 + (lambda (_%g148404148407%_ + _%g148405148409%_) + (cons _%g148404148407%_ + _%g148405148409%_)))) (declare (not safe)) (__foldr1 - __tmp146733 + __tmp150430 '() - _%L144565%_))))))) - (__tmp146727 + _%g148188148280%_))))))) + (__tmp150424 (gxc#xform-let-locals - (let ((__tmp146728 - (lambda (_%g144698144701%_ - _%g144699144703%_) - (cons _%g144698144701%_ - _%g144699144703%_)))) + (let ((__tmp150425 + (lambda (_%g148411148414%_ + _%g148412148416%_) + (cons _%g148411148414%_ + _%g148412148416%_)))) (declare (not safe)) (__foldr1 - __tmp146728 + __tmp150425 '() - _%L144566%_))))) + _%g148189148281%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp146729 + __tmp150426 gxc#current-compile-local-env - __tmp146727))) - _%tl144477144517%_ - _%expr144487144559%_ - _%hd144488144561%_ - _%hd144473144507%_)))))) + __tmp150424))) + _%tl148196148236%_ + _%expr148206148276%_ + _%hd148207148277%_ + _%hd148192148226%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144481144525%_ - _%target144478144520%_ + (_%loop148200148244%_ + _%target148197148239%_ '() '())) - (_%g144466144499%_ - _%g144467144502%_))))) - (_%g144466144499%_ _%g144467144502%_)))) - (_%g144466144499%_ _%g144467144502%_)))) - (_%g144466144499%_ _%g144467144502%_))))) - (_%g144465144706%_ _%stx144464%_)))) + (_%g148185148218%_ + _%g148186148221%_))))) + (_%g148185148218%_ _%g148186148221%_)))) + (_%g148185148218%_ _%g148186148221%_)))) + (_%g148185148218%_ _%g148186148221%_))))) + (_%g148184148419%_ _%stx148183%_)))) (define gxc#xform-let-locals - (lambda (_%bindings144330%_) - (letrec ((_%flatten144332%_ - (lambda (_%maybe-lst144390%_) + (lambda (_%bindings148049%_) + (letrec ((_%flatten148051%_ + (lambda (_%maybe-lst148109%_) (if (let () (declare (not safe)) - (gx#identifier? _%maybe-lst144390%_)) - (cons _%maybe-lst144390%_ '()) - (let _%loop144392%_ ((_%rest144394%_ - _%maybe-lst144390%_) - (_%result144395%_ '())) - (let* ((_%__stx146621146622%_ _%rest144394%_) - (_%g144399144411%_ + (gx#identifier? _%maybe-lst148109%_)) + (cons _%maybe-lst148109%_ '()) + (let _%loop148111%_ ((_%rest148113%_ + _%maybe-lst148109%_) + (_%result148114%_ '())) + (let* ((_%__stx150318150319%_ _%rest148113%_) + (_%g148118148130%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146621146622%_))))) - (let ((_%__kont146623146624%_ - (lambda (_%L144449%_ _%L144450%_) - (_%loop144392%_ - _%L144449%_ - (let ((__tmp146734 - (_%flatten144332%_ _%L144450%_))) + _%__stx150318150319%_))))) + (let ((_%__kont150320150321%_ + (lambda (_%g148120148168%_ + _%g148121148169%_) + (_%loop148111%_ + _%g148120148168%_ + (let ((__tmp150431 + (_%flatten148051%_ + _%g148121148169%_))) (declare (not safe)) (__foldl1 cons - _%result144395%_ - __tmp146734))))) - (_%__kont146625146626%_ - (lambda (_%L144423%_) - (cons _%L144423%_ _%result144395%_))) - (_%__kont146627146628%_ - (lambda () _%result144395%_))) - (let ((_%g144397144436%_ + _%result148114%_ + __tmp150431))))) + (_%__kont150322150323%_ + (lambda (_%g148125148142%_) + (cons _%g148125148142%_ + _%result148114%_))) + (_%__kont150324150325%_ + (lambda () _%result148114%_))) + (let ((_%g148116148155%_ (lambda () - (let ((_%L144423%_ - _%__stx146621146622%_)) + (let ((_%g148125148142%_ + _%__stx150318150319%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L144423%_)) - (_%__kont146625146626%_ - _%L144423%_) - (_%__kont146627146628%_)))))) + (gx#identifier? + _%g148125148142%_)) + (_%__kont150322150323%_ + _%g148125148142%_) + (_%__kont150324150325%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx146621146622%_)) - (let ((_%e144403144441%_ + (gx#stx-pair? _%__stx150318150319%_)) + (let ((_%e148122148160%_ (let () (declare (not safe)) (gx#stx-e - _%__stx146621146622%_)))) - (let ((_%tl144405144446%_ + _%__stx150318150319%_)))) + (let ((_%tl148124148165%_ (let () (declare (not safe)) - (##cdr _%e144403144441%_))) - (_%hd144404144444%_ + (##cdr _%e148122148160%_))) + (_%hd148123148163%_ (let () (declare (not safe)) - (##car _%e144403144441%_)))) - (_%__kont146623146624%_ - _%tl144405144446%_ - _%hd144404144444%_))) + (##car _%e148122148160%_)))) + (_%__kont150320150321%_ + _%tl148124148165%_ + _%hd148123148163%_))) (let () (declare (not safe)) - (_%g144397144436%_))))))))))) - (let _%loop144334%_ ((_%rest144336%_ - (_%flatten144332%_ _%bindings144330%_)) - (_%locals144337%_ + (_%g148116148155%_))))))))))) + (let _%loop148053%_ ((_%rest148055%_ + (_%flatten148051%_ _%bindings148049%_)) + (_%locals148056%_ (let () (declare (not safe)) (gxc#current-compile-local-env)))) - (let* ((_%rest144338144349%_ _%rest144336%_) - (_%E144342144353%_ + (let* ((_%rest148057148068%_ _%rest148055%_) + (_%E148061148072%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest144338144349%_ + _%rest148057148068%_ '([(? identifier? id) . rest]) '((? identifier? id)) '(_))) '#!void))) - (let ((_%K144345144378%_ - (lambda (_%rest144375%_ _%id144376%_) - (_%loop144334%_ - _%rest144375%_ + (let ((_%K148064148097%_ + (lambda (_%rest148094%_ _%id148095%_) + (_%loop148053%_ + _%rest148094%_ (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%id144376%_)) - _%locals144337%_)))) - (_%K144344144367%_ - (lambda (_%id144365%_) + (gxc#identifier-symbol _%id148095%_)) + _%locals148056%_)))) + (_%K148063148086%_ + (lambda (_%id148084%_) (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%id144365%_)) - _%locals144337%_))) - (_%K144343144358%_ (lambda () _%locals144337%_))) - (let ((_%try-match144340144372%_ + (gxc#identifier-symbol _%id148084%_)) + _%locals148056%_))) + (_%K148062148077%_ (lambda () _%locals148056%_))) + (let ((_%try-match148059148091%_ (lambda () (if (let () (declare (not safe)) - (gx#identifier? _%rest144338144349%_)) - (let ((_%id144370%_ _%rest144338144349%_)) - (_%K144344144367%_ _%id144370%_)) - (_%K144343144358%_))))) - (if (pair? _%rest144338144349%_) - (let ((_%tl144347144383%_ + (gx#identifier? _%rest148057148068%_)) + (let ((_%id148089%_ _%rest148057148068%_)) + (_%K148063148086%_ _%id148089%_)) + (_%K148062148077%_))))) + (if (pair? _%rest148057148068%_) + (let ((_%tl148066148102%_ (let () (declare (not safe)) - (##cdr _%rest144338144349%_))) - (_%hd144346144381%_ + (##cdr _%rest148057148068%_))) + (_%hd148065148100%_ (let () (declare (not safe)) - (##car _%rest144338144349%_)))) + (##car _%rest148057148068%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144346144381%_)) - (let ((_%id144386%_ _%hd144346144381%_) - (_%rest144388%_ _%tl144347144383%_)) - (_%K144345144378%_ _%rest144388%_ _%id144386%_)) - (_%K144343144358%_))) - (_%try-match144340144372%_))))))))) + (gx#identifier? _%hd148065148100%_)) + (let ((_%id148105%_ _%hd148065148100%_) + (_%rest148107%_ _%tl148066148102%_)) + (_%K148064148097%_ _%rest148107%_ _%id148105%_)) + (_%K148062148077%_))) + (_%try-match148059148091%_))))))))) (define gxc#xform-operands - (lambda (_%self144282%_ _%stx144283%_) - (let* ((_%g144285144296%_ - (lambda (_%g144286144293%_) + (lambda (_%self148001%_ _%stx148002%_) + (let* ((_%g148004148015%_ + (lambda (_%g148005148012%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g144286144293%_)))) - (_%g144284144327%_ - (lambda (_%g144286144299%_) + _%g148005148012%_)))) + (_%g148003148046%_ + (lambda (_%g148005148018%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g144286144299%_)) - (let ((_%e144289144301%_ + (gx#stx-pair? _%g148005148018%_)) + (let ((_%e148008148020%_ (let () (declare (not safe)) - (gx#stx-e _%g144286144299%_)))) - (let ((_%hd144290144304%_ + (gx#stx-e _%g148005148018%_)))) + (let ((_%hd148009148023%_ (let () (declare (not safe)) - (##car _%e144289144301%_))) - (_%tl144291144306%_ + (##car _%e148008148020%_))) + (_%tl148010148025%_ (let () (declare (not safe)) - (##cdr _%e144289144301%_)))) - ((lambda (_%L144309%_ _%L144310%_) - (let ((_%rands144325%_ - (map (lambda (_%g144320144322%_) + (##cdr _%e148008148020%_)))) + ((lambda (_%g148006148028%_ _%g148007148029%_) + (let ((_%rands148044%_ + (map (lambda (_%g148039148041%_) (gxc#compile-e__1 - _%self144282%_ - _%g144320144322%_)) - _%L144309%_))) + _%self148001%_ + _%g148039148041%_)) + _%g148006148028%_))) (gxc#xform-wrap-source - (cons _%L144310%_ _%rands144325%_) - _%stx144283%_))) - _%tl144291144306%_ - _%hd144290144304%_))) - (_%g144285144296%_ _%g144286144299%_))))) - (_%g144284144327%_ _%stx144283%_)))) + (cons _%g148007148029%_ _%rands148044%_) + _%stx148002%_))) + _%tl148010148025%_ + _%hd148009148023%_))) + (_%g148004148015%_ _%g148005148018%_))))) + (_%g148003148046%_ _%stx148002%_)))) (define gxc#xform-call% gxc#xform-operands) (define gxc#xform-setq% - (lambda (_%self144212%_ _%stx144213%_) - (let* ((_%g144215144232%_ - (lambda (_%g144216144229%_) + (lambda (_%self147931%_ _%stx147932%_) + (let* ((_%g147934147951%_ + (lambda (_%g147935147948%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g144216144229%_)))) - (_%g144214144279%_ - (lambda (_%g144216144235%_) + _%g147935147948%_)))) + (_%g147933147998%_ + (lambda (_%g147935147954%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g144216144235%_)) - (let ((_%e144219144237%_ + (gx#stx-pair? _%g147935147954%_)) + (let ((_%e147938147956%_ (let () (declare (not safe)) - (gx#stx-e _%g144216144235%_)))) - (let ((_%hd144220144240%_ + (gx#stx-e _%g147935147954%_)))) + (let ((_%hd147939147959%_ (let () (declare (not safe)) - (##car _%e144219144237%_))) - (_%tl144221144242%_ + (##car _%e147938147956%_))) + (_%tl147940147961%_ (let () (declare (not safe)) - (##cdr _%e144219144237%_)))) + (##cdr _%e147938147956%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144221144242%_)) - (let ((_%e144222144245%_ + (gx#stx-pair? _%tl147940147961%_)) + (let ((_%e147941147964%_ (let () (declare (not safe)) - (gx#stx-e _%tl144221144242%_)))) - (let ((_%hd144223144248%_ + (gx#stx-e _%tl147940147961%_)))) + (let ((_%hd147942147967%_ (let () (declare (not safe)) - (##car _%e144222144245%_))) - (_%tl144224144250%_ + (##car _%e147941147964%_))) + (_%tl147943147969%_ (let () (declare (not safe)) - (##cdr _%e144222144245%_)))) + (##cdr _%e147941147964%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144224144250%_)) - (let ((_%e144225144253%_ + (gx#stx-pair? _%tl147943147969%_)) + (let ((_%e147944147972%_ (let () (declare (not safe)) - (gx#stx-e _%tl144224144250%_)))) - (let ((_%hd144226144256%_ + (gx#stx-e _%tl147943147969%_)))) + (let ((_%hd147945147975%_ (let () (declare (not safe)) - (##car _%e144225144253%_))) - (_%tl144227144258%_ + (##car _%e147944147972%_))) + (_%tl147946147977%_ (let () (declare (not safe)) - (##cdr _%e144225144253%_)))) + (##cdr _%e147944147972%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144227144258%_)) - ((lambda (_%L144261%_ - _%L144262%_) - (let ((_%expr144277%_ + _%tl147946147977%_)) + ((lambda (_%g147936147980%_ + _%g147937147981%_) + (let ((_%expr147996%_ (gxc#compile-e__1 - _%self144212%_ - _%L144261%_))) + _%self147931%_ + _%g147936147980%_))) (gxc#xform-wrap-source (cons '%#set! - (cons _%L144262%_ - (cons _%expr144277%_ + (cons _%g147937147981%_ + (cons _%expr147996%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx144213%_))) - _%hd144226144256%_ - _%hd144223144248%_) - (_%g144215144232%_ - _%g144216144235%_)))) - (_%g144215144232%_ _%g144216144235%_)))) - (_%g144215144232%_ _%g144216144235%_)))) - (_%g144215144232%_ _%g144216144235%_))))) - (_%g144214144279%_ _%stx144213%_)))))) + _%stx147932%_))) + _%hd147945147975%_ + _%hd147942147967%_) + (_%g147934147951%_ + _%g147935147954%_)))) + (_%g147934147951%_ _%g147935147954%_)))) + (_%g147934147951%_ _%g147935147954%_)))) + (_%g147934147951%_ _%g147935147954%_))))) + (_%g147933147998%_ _%stx147932%_)))))) diff --git a/src/bootstrap/gerbil/compiler/method~1.scm b/src/bootstrap/gerbil/compiler/method~1.scm index 377acc59a0..5de8f3c60f 100644 --- a/src/bootstrap/gerbil/compiler/method~1.scm +++ b/src/bootstrap/gerbil/compiler/method~1.scm @@ -1,286 +1,286 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g146762_| + (define |gxc[1]#_g150459_| (##structure gx#syntax-quote::t '::void-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146764_| + (define |gxc[1]#_g150461_| (##structure gx#syntax-quote::t 'make-::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146766_| + (define |gxc[1]#_g150463_| (##structure gx#syntax-quote::t '::void-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146768_| + (define |gxc[1]#_g150465_| (##structure gx#syntax-quote::t '::void-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146770_| + (define |gxc[1]#_g150467_| (##structure gx#syntax-quote::t 'make-::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146772_| + (define |gxc[1]#_g150469_| (##structure gx#syntax-quote::t '::void-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146774_| + (define |gxc[1]#_g150471_| (##structure gx#syntax-quote::t '::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146775_| + (define |gxc[1]#_g150472_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146777_| + (define |gxc[1]#_g150474_| (##structure gx#syntax-quote::t '::void::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146779_| + (define |gxc[1]#_g150476_| (##structure gx#syntax-quote::t 'make-::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146781_| + (define |gxc[1]#_g150478_| (##structure gx#syntax-quote::t '::void? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146783_| + (define |gxc[1]#_g150480_| (##structure gx#syntax-quote::t '::false-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146785_| + (define |gxc[1]#_g150482_| (##structure gx#syntax-quote::t 'make-::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146787_| + (define |gxc[1]#_g150484_| (##structure gx#syntax-quote::t '::false-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146789_| + (define |gxc[1]#_g150486_| (##structure gx#syntax-quote::t '::false-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146791_| + (define |gxc[1]#_g150488_| (##structure gx#syntax-quote::t 'make-::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146793_| + (define |gxc[1]#_g150490_| (##structure gx#syntax-quote::t '::false-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146795_| + (define |gxc[1]#_g150492_| (##structure gx#syntax-quote::t '::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146796_| + (define |gxc[1]#_g150493_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146798_| + (define |gxc[1]#_g150495_| (##structure gx#syntax-quote::t '::false::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146800_| + (define |gxc[1]#_g150497_| (##structure gx#syntax-quote::t 'make-::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146802_| + (define |gxc[1]#_g150499_| (##structure gx#syntax-quote::t '::false? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146804_| + (define |gxc[1]#_g150501_| (##structure gx#syntax-quote::t '::identity-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146806_| + (define |gxc[1]#_g150503_| (##structure gx#syntax-quote::t 'make-::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146808_| + (define |gxc[1]#_g150505_| (##structure gx#syntax-quote::t '::identity-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146810_| + (define |gxc[1]#_g150507_| (##structure gx#syntax-quote::t '::identity-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146812_| + (define |gxc[1]#_g150509_| (##structure gx#syntax-quote::t 'make-::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146814_| + (define |gxc[1]#_g150511_| (##structure gx#syntax-quote::t '::identity-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146816_| + (define |gxc[1]#_g150513_| (##structure gx#syntax-quote::t '::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146817_| + (define |gxc[1]#_g150514_| (##structure gx#syntax-quote::t '::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146819_| + (define |gxc[1]#_g150516_| (##structure gx#syntax-quote::t '::identity::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146821_| + (define |gxc[1]#_g150518_| (##structure gx#syntax-quote::t 'make-::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146823_| + (define |gxc[1]#_g150520_| (##structure gx#syntax-quote::t '::identity? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146825_| + (define |gxc[1]#_g150522_| (##structure gx#syntax-quote::t '::basic-xform-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146827_| + (define |gxc[1]#_g150524_| (##structure gx#syntax-quote::t 'make-::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146829_| + (define |gxc[1]#_g150526_| (##structure gx#syntax-quote::t '::basic-xform-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146831_| + (define |gxc[1]#_g150528_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146832_| + (define |gxc[1]#_g150529_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146834_| + (define |gxc[1]#_g150531_| (##structure gx#syntax-quote::t '::basic-xform::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146836_| + (define |gxc[1]#_g150533_| (##structure gx#syntax-quote::t 'make-::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g146838_| + (define |gxc[1]#_g150535_| (##structure gx#syntax-quote::t '::basic-xform? @@ -289,69 +289,69 @@ '())) (begin (define |gxc[:0:]#with-context| - (lambda (_%$stx142673%_) - (let* ((_%g142677142695%_ - (lambda (_%g142678142691%_) + (lambda (_%$stx146420%_) + (let* ((_%g146424146442%_ + (lambda (_%g146425146438%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g142678142691%_)))) - (_%g142676142751%_ - (lambda (_%g142678142699%_) + _%g146425146438%_)))) + (_%g146423146498%_ + (lambda (_%g146425146446%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g142678142699%_)) - (let ((_%e142681142702%_ + (gx#stx-pair? _%g146425146446%_)) + (let ((_%e146428146449%_ (let () (declare (not safe)) - (gx#syntax-e _%g142678142699%_)))) - (let ((_%hd142682142706%_ + (gx#syntax-e _%g146425146446%_)))) + (let ((_%hd146429146453%_ (let () (declare (not safe)) - (##car _%e142681142702%_))) - (_%tl142683142709%_ + (##car _%e146428146449%_))) + (_%tl146430146456%_ (let () (declare (not safe)) - (##cdr _%e142681142702%_)))) + (##cdr _%e146428146449%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142683142709%_)) - (let ((_%e142684142712%_ + (gx#stx-pair? _%tl146430146456%_)) + (let ((_%e146431146459%_ (let () (declare (not safe)) - (gx#syntax-e _%tl142683142709%_)))) - (let ((_%hd142685142716%_ + (gx#syntax-e _%tl146430146456%_)))) + (let ((_%hd146432146463%_ (let () (declare (not safe)) - (##car _%e142684142712%_))) - (_%tl142686142719%_ + (##car _%e146431146459%_))) + (_%tl146433146466%_ (let () (declare (not safe)) - (##cdr _%e142684142712%_)))) + (##cdr _%e146431146459%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142686142719%_)) - (let ((_%e142687142722%_ + (gx#stx-pair? _%tl146433146466%_)) + (let ((_%e146434146469%_ (let () (declare (not safe)) (gx#syntax-e - _%tl142686142719%_)))) - (let ((_%hd142688142726%_ + _%tl146433146466%_)))) + (let ((_%hd146435146473%_ (let () (declare (not safe)) - (##car _%e142687142722%_))) - (_%tl142689142729%_ + (##car _%e146434146469%_))) + (_%tl146436146476%_ (let () (declare (not safe)) - (##cdr _%e142687142722%_)))) + (##cdr _%e146434146469%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142689142729%_)) - ((lambda (_%L142732%_ - _%L142734%_) + _%tl146436146476%_)) + ((lambda (_%g146426146479%_ + _%g146427146481%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -361,7 +361,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'stx-source)) - (cons _%L142734%_ '())) + (cons _%g146427146481%_ '())) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '=>)) @@ -430,180 +430,184 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) - (cons _%L142732%_ '()))) + (cons _%g146426146479%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else)) - (cons _%L142732%_ '())) + (cons _%g146426146479%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd142688142726%_ - _%hd142685142716%_) - (_%g142677142695%_ - _%g142678142699%_)))) - (_%g142677142695%_ _%g142678142699%_)))) - (_%g142677142695%_ _%g142678142699%_)))) - (_%g142677142695%_ _%g142678142699%_))))) - (_%g142676142751%_ _%$stx142673%_)))) + _%hd146435146473%_ + _%hd146432146463%_) + (_%g146424146442%_ + _%g146425146446%_)))) + (_%g146424146442%_ _%g146425146446%_)))) + (_%g146424146442%_ _%g146425146446%_)))) + (_%g146424146442%_ _%g146425146446%_))))) + (_%g146423146498%_ _%$stx146420%_)))) (define |gxc[:0:]#defcompile-method| - (lambda (_%stx142755%_) - (let* ((_%__stx146477146478%_ _%stx142755%_) - (_%g142761142955%_ + (lambda (_%stx146502%_) + (let* ((_%__stx150174150175%_ _%stx146502%_) + (_%g146508146702%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx146477146478%_))))) - (let ((_%__kont146480146481%_ - (lambda (_%L144174%_ _%L144176%_ _%L144177%_ _%L144178%_) + _%__stx150174150175%_))))) + (let ((_%__kont150177150178%_ + (lambda (_%g146510147893%_ + _%g146511147895%_ + _%g146512147896%_ + _%g146513147897%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'defcompile-method)) - (cons _%L144178%_ - (cons (cons _%L144177%_ '()) - (cons _%L144176%_ _%L144174%_)))))) - (_%__kont146482146483%_ - (lambda (_%L143928%_ - _%L143930%_ - _%L143931%_ - _%L143932%_ - _%L143933%_) - (let* ((_%g143964143992%_ - (lambda (_%g143965143988%_) + (cons _%g146513147897%_ + (cons (cons _%g146512147896%_ '()) + (cons _%g146511147895%_ + _%g146510147893%_)))))) + (_%__kont150179150180%_ + (lambda (_%g146526147649%_ + _%g146527147651%_ + _%g146528147652%_ + _%g146529147653%_ + _%g146530147654%_) + (let* ((_%g147685147713%_ + (lambda (_%g147686147709%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143965143988%_)))) - (_%g143963144112%_ - (lambda (_%g143965143996%_) + _%g147686147709%_)))) + (_%g147684147831%_ + (lambda (_%g147686147717%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143965143996%_)) - (let ((_%e143969143999%_ + (gx#stx-pair? _%g147686147717%_)) + (let ((_%e147690147720%_ (let () (declare (not safe)) - (gx#syntax-e _%g143965143996%_)))) - (let ((_%hd143970144003%_ + (gx#syntax-e _%g147686147717%_)))) + (let ((_%hd147691147724%_ (let () (declare (not safe)) - (##car _%e143969143999%_))) - (_%tl143971144006%_ + (##car _%e147690147720%_))) + (_%tl147692147727%_ (let () (declare (not safe)) - (##cdr _%e143969143999%_)))) + (##cdr _%e147690147720%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143971144006%_)) - (let ((_%e143972144009%_ + (gx#stx-pair? _%tl147692147727%_)) + (let ((_%e147693147730%_ (let () (declare (not safe)) (gx#syntax-e - _%tl143971144006%_)))) - (let ((_%hd143973144013%_ + _%tl147692147727%_)))) + (let ((_%hd147694147734%_ (let () (declare (not safe)) - (##car _%e143972144009%_))) - (_%tl143974144016%_ + (##car _%e147693147730%_))) + (_%tl147695147737%_ (let () (declare (not safe)) - (##cdr _%e143972144009%_)))) + (##cdr _%e147693147730%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd143973144013%_)) - (let ((_g146735_ + _%hd147694147734%_)) + (let ((_g150432_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd143973144013%_ + _%hd147694147734%_ '0)))) (begin - (let ((_g146736_ + (let ((_g150433_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g146735_) - (##values-length _g146735_) + _g150432_) + (##values-length _g150432_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g146736_ 2))) - (error "Context expects 2 values" _g146736_))) + (if (not (let () (declare (not safe)) (##fx= _g150433_ 2))) + (error "Context expects 2 values" _g150433_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target143975144019%_ + (let ((_%target147696147740%_ (let () (declare (not safe)) (##values-ref - _g146735_ + _g150432_ 0))) - (_%tl143977144022%_ + (_%tl147698147743%_ (let () (declare (not safe)) (##values-ref - _g146735_ + _g150432_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143977144022%_)) - (letrec ((_%loop143978144025%_ + _%tl147698147743%_)) + (letrec ((_%loop147699147746%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd143976144029%_ - _%super-bind-methods!143982144032%_) + (lambda (_%hd147697147750%_ + _%super-bind-methods!147703147753%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd143976144029%_)) - (let ((_%e143979144035%_ + (gx#stx-pair? _%hd147697147750%_)) + (let ((_%e147700147755%_ (let () (declare (not safe)) - (gx#syntax-e _%hd143976144029%_)))) - (let ((_%lp-hd143980144039%_ + (gx#syntax-e _%hd147697147750%_)))) + (let ((_%lp-hd147701147759%_ (let () (declare (not safe)) - (##car _%e143979144035%_))) - (_%lp-tl143981144042%_ + (##car _%e147700147755%_))) + (_%lp-tl147702147762%_ (let () (declare (not safe)) - (##cdr _%e143979144035%_)))) - (_%loop143978144025%_ - _%lp-tl143981144042%_ - (cons _%lp-hd143980144039%_ - _%super-bind-methods!143982144032%_)))) - (let ((_%super-bind-methods!143983144045%_ - (reverse _%super-bind-methods!143982144032%_))) + (##cdr _%e147700147755%_)))) + (_%loop147699147746%_ + _%lp-tl147702147762%_ + (cons _%lp-hd147701147759%_ + _%super-bind-methods!147703147753%_)))) + (let ((_%super-bind-methods!147704147765%_ + (reverse _%super-bind-methods!147703147753%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143974144016%_)) - (let ((_%e143984144049%_ + (gx#stx-pair? _%tl147695147737%_)) + (let ((_%e147705147768%_ (let () (declare (not safe)) (gx#syntax-e - _%tl143974144016%_)))) - (let ((_%hd143985144053%_ + _%tl147695147737%_)))) + (let ((_%hd147706147772%_ (let () (declare (not safe)) - (##car _%e143984144049%_))) - (_%tl143986144056%_ + (##car _%e147705147768%_))) + (_%tl147707147775%_ (let () (declare (not safe)) - (##cdr _%e143984144049%_)))) + (##cdr _%e147705147768%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143986144056%_)) - ((lambda (_%L144059%_ - _%L144061%_ - _%L144062%_) + _%tl147707147775%_)) + ((lambda (_%g147687147778%_ + _%g147688147780%_ + _%g147689147781%_) (cons (let () (declare (not safe)) @@ -614,22 +618,22 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L143933%_ - (let ((__tmp146737 - (lambda (_%g144084144092%_ - _%g144085144095%_) - (cons _%g144084144092%_ - _%g144085144095%_)))) + (cons (cons _%g146530147654%_ + (let ((__tmp150434 + (lambda (_%g147803147811%_ + _%g147804147814%_) + (cons _%g147803147811%_ + _%g147804147814%_)))) (declare (not safe)) (__foldr1 - __tmp146737 + __tmp150434 '() - _%L143932%_))) - (cons _%L143931%_ '()))) + _%g146529147653%_))) + (cons _%g146528147652%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L144062%_ + (cons _%g147689147781%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -639,234 +643,240 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp146740 - (lambda (_%g144086144098%_ _%g144087144101%_) + (let ((__tmp150437 + (lambda (_%g147805147817%_ _%g147806147820%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g144086144098%_ '())) - _%g144087144101%_))) - (__tmp146738 + (cons _%g147805147817%_ '())) + _%g147806147820%_))) + (__tmp150435 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L143928%_ - _%L143930%_)) - (let ((__tmp146739 - (lambda (_%g144088144104%_ - _%g144089144107%_ - _%g144090144109%_) + _%g146526147649%_ + _%g146527147651%_)) + (let ((__tmp150436 + (lambda (_%g147807147823%_ + _%g147808147826%_ + _%g147809147828%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L144059%_ + (cons _%g147687147778%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g144089144107%_ '())) - (cons _%g144088144104%_ '())))) + (cons _%g147808147826%_ '())) + (cons _%g147807147823%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g144090144109%_)))) + _%g147809147828%_)))) (declare (not safe)) (__foldr2 - __tmp146739 + __tmp150436 '() - _%L143928%_ - _%L143930%_))))) + _%g146526147649%_ + _%g146527147651%_))))) (declare (not safe)) - (__foldr1 __tmp146740 __tmp146738 _%L144061%_))) + (__foldr1 + __tmp150437 + __tmp150435 + _%g147688147780%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd143985144053%_ - _%super-bind-methods!143983144045%_ - _%hd143970144003%_) - (_%g143964143992%_ - _%g143965143996%_)))) - (_%g143964143992%_ - _%g143965143996%_))))))) - (_%loop143978144025%_ _%target143975144019%_ '())) - (_%g143964143992%_ _%g143965143996%_))))) + _%hd147706147772%_ + _%super-bind-methods!147704147765%_ + _%hd147691147724%_) + (_%g147685147713%_ + _%g147686147717%_)))) + (_%g147685147713%_ + _%g147686147717%_))))))) + (_%loop147699147746%_ _%target147696147740%_ '())) + (_%g147685147713%_ _%g147686147717%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g143964143992%_ - _%g143965143996%_)))) - (_%g143964143992%_ - _%g143965143996%_)))) - (_%g143964143992%_ _%g143965143996%_))))) - (_%g143963144112%_ + (_%g147685147713%_ + _%g147686147717%_)))) + (_%g147685147713%_ + _%g147686147717%_)))) + (_%g147685147713%_ _%g147686147717%_))))) + (_%g147684147831%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L143933%_ - _%L143933%_ + _%g146530147654%_ + _%g146530147654%_ '"-bind-methods!")) - (map (lambda (_%super144116%_) + (map (lambda (_%super147835%_) (let () (declare (not safe)) (gx#stx-identifier - _%super144116%_ - _%super144116%_ + _%super147835%_ + _%super147835%_ '"-bind-methods!"))) - (let ((__tmp146741 - (lambda (_%g144118144121%_ - _%g144119144124%_) - (cons _%g144118144121%_ - _%g144119144124%_)))) + (let ((__tmp150438 + (lambda (_%g147837147840%_ + _%g147838147843%_) + (cons _%g147837147840%_ + _%g147838147843%_)))) (declare (not safe)) - (__foldr1 __tmp146741 '() _%L143932%_))) + (__foldr1 + __tmp150438 + '() + _%g146529147653%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L143933%_ - _%L143933%_ + _%g146530147654%_ + _%g146530147654%_ '"::t"))))))) - (_%__kont146488146489%_ - (lambda (_%L143559%_ - _%L143561%_ - _%L143562%_ - _%L143563%_ - _%L143564%_ - _%L143565%_ - _%L143566%_) - (let* ((_%g143604143632%_ - (lambda (_%g143605143628%_) + (_%__kont150185150186%_ + (lambda (_%g146573147288%_ + _%g146574147290%_ + _%g146575147291%_ + _%g146576147292%_ + _%g146577147293%_ + _%g146578147294%_ + _%g146579147295%_) + (let* ((_%g147333147361%_ + (lambda (_%g147334147357%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143605143628%_)))) - (_%g143603143768%_ - (lambda (_%g143605143636%_) + _%g147334147357%_)))) + (_%g147332147495%_ + (lambda (_%g147334147365%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143605143636%_)) - (let ((_%e143609143639%_ + (gx#stx-pair? _%g147334147365%_)) + (let ((_%e147338147368%_ (let () (declare (not safe)) - (gx#syntax-e _%g143605143636%_)))) - (let ((_%hd143610143643%_ + (gx#syntax-e _%g147334147365%_)))) + (let ((_%hd147339147372%_ (let () (declare (not safe)) - (##car _%e143609143639%_))) - (_%tl143611143646%_ + (##car _%e147338147368%_))) + (_%tl147340147375%_ (let () (declare (not safe)) - (##cdr _%e143609143639%_)))) + (##cdr _%e147338147368%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143611143646%_)) - (let ((_%e143612143649%_ + (gx#stx-pair? _%tl147340147375%_)) + (let ((_%e147341147378%_ (let () (declare (not safe)) (gx#syntax-e - _%tl143611143646%_)))) - (let ((_%hd143613143653%_ + _%tl147340147375%_)))) + (let ((_%hd147342147382%_ (let () (declare (not safe)) - (##car _%e143612143649%_))) - (_%tl143614143656%_ + (##car _%e147341147378%_))) + (_%tl147343147385%_ (let () (declare (not safe)) - (##cdr _%e143612143649%_)))) + (##cdr _%e147341147378%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd143613143653%_)) - (let ((_g146742_ + _%hd147342147382%_)) + (let ((_g150439_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd143613143653%_ + _%hd147342147382%_ '0)))) (begin - (let ((_g146743_ + (let ((_g150440_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g146742_) - (##values-length _g146742_) + _g150439_) + (##values-length _g150439_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g146743_ 2))) - (error "Context expects 2 values" _g146743_))) + (if (not (let () (declare (not safe)) (##fx= _g150440_ 2))) + (error "Context expects 2 values" _g150440_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target143615143659%_ + (let ((_%target147344147388%_ (let () (declare (not safe)) (##values-ref - _g146742_ + _g150439_ 0))) - (_%tl143617143662%_ + (_%tl147346147391%_ (let () (declare (not safe)) (##values-ref - _g146742_ + _g150439_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143617143662%_)) - (letrec ((_%loop143618143665%_ + _%tl147346147391%_)) + (letrec ((_%loop147347147394%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd143616143669%_ - _%super-bind-methods!143622143672%_) + (lambda (_%hd147345147398%_ + _%super-bind-methods!147351147401%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd143616143669%_)) - (let ((_%e143619143675%_ + (gx#stx-pair? _%hd147345147398%_)) + (let ((_%e147348147403%_ (let () (declare (not safe)) - (gx#syntax-e _%hd143616143669%_)))) - (let ((_%lp-hd143620143679%_ + (gx#syntax-e _%hd147345147398%_)))) + (let ((_%lp-hd147349147407%_ (let () (declare (not safe)) - (##car _%e143619143675%_))) - (_%lp-tl143621143682%_ + (##car _%e147348147403%_))) + (_%lp-tl147350147410%_ (let () (declare (not safe)) - (##cdr _%e143619143675%_)))) - (_%loop143618143665%_ - _%lp-tl143621143682%_ - (cons _%lp-hd143620143679%_ - _%super-bind-methods!143622143672%_)))) - (let ((_%super-bind-methods!143623143685%_ - (reverse _%super-bind-methods!143622143672%_))) + (##cdr _%e147348147403%_)))) + (_%loop147347147394%_ + _%lp-tl147350147410%_ + (cons _%lp-hd147349147407%_ + _%super-bind-methods!147351147401%_)))) + (let ((_%super-bind-methods!147352147413%_ + (reverse _%super-bind-methods!147351147401%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143614143656%_)) - (let ((_%e143624143689%_ + (gx#stx-pair? _%tl147343147385%_)) + (let ((_%e147353147416%_ (let () (declare (not safe)) (gx#syntax-e - _%tl143614143656%_)))) - (let ((_%hd143625143693%_ + _%tl147343147385%_)))) + (let ((_%hd147354147420%_ (let () (declare (not safe)) - (##car _%e143624143689%_))) - (_%tl143626143696%_ + (##car _%e147353147416%_))) + (_%tl147355147423%_ (let () (declare (not safe)) - (##cdr _%e143624143689%_)))) + (##cdr _%e147353147416%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143626143696%_)) - ((lambda (_%L143699%_ - _%L143701%_ - _%L143702%_) + _%tl147355147423%_)) + ((lambda (_%g147335147426%_ + _%g147336147428%_ + _%g147337147429%_) (cons (let () (declare (not safe)) @@ -877,22 +887,22 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L143564%_ - (let ((__tmp146744 - (lambda (_%g143724143736%_ - _%g143725143739%_) - (cons _%g143724143736%_ - _%g143725143739%_)))) + (cons (cons _%g146577147293%_ + (let ((__tmp150441 + (lambda (_%g147451147463%_ + _%g147452147466%_) + (cons _%g147451147463%_ + _%g147452147466%_)))) (declare (not safe)) (__foldr1 - __tmp146744 + __tmp150441 '() - _%L143563%_))) - (cons _%L143562%_ '()))) + _%g146576147292%_))) + (cons _%g146575147291%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L143702%_ + (cons _%g147337147429%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -902,67 +912,70 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp146747 - (lambda (_%g143726143742%_ _%g143727143745%_) + (let ((__tmp150444 + (lambda (_%g147453147469%_ _%g147454147472%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g143726143742%_ '())) - _%g143727143745%_))) - (__tmp146745 + (cons _%g147453147469%_ '())) + _%g147454147472%_))) + (__tmp150442 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L143559%_ - _%L143561%_)) - (let ((__tmp146746 - (lambda (_%g143728143748%_ - _%g143729143751%_ - _%g143730143753%_) + _%g146573147288%_ + _%g146574147290%_)) + (let ((__tmp150443 + (lambda (_%g147455147475%_ + _%g147456147478%_ + _%g147457147480%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L143699%_ + (cons _%g147335147426%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g143729143751%_ '())) - (cons _%g143728143748%_ '())))) + (cons _%g147456147478%_ '())) + (cons _%g147455147475%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g143730143753%_)))) + _%g147457147480%_)))) (declare (not safe)) (__foldr2 - __tmp146746 + __tmp150443 '() - _%L143559%_ - _%L143561%_))))) + _%g146573147288%_ + _%g146574147290%_))))) (declare (not safe)) - (__foldr1 __tmp146747 __tmp146745 _%L143701%_))) + (__foldr1 + __tmp150444 + __tmp150442 + _%g147336147428%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons (cons _%L143566%_ + (cons (cons _%g146579147295%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx)) - (let ((__tmp146748 + (let ((__tmp150445 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g143731143756%_ _%g143732143759%_) - (cons _%g143731143756%_ _%g143732143759%_)))) + (lambda (_%g147458147483%_ _%g147459147486%_) + (cons _%g147458147483%_ _%g147459147486%_)))) (declare (not safe)) - (__foldr1 __tmp146748 '() _%L143565%_)))) + (__foldr1 __tmp150445 '() _%g146578147294%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare @@ -970,7 +983,7 @@ (gx#datum->syntax__0 '#f 'force)) - (cons _%L143702%_ + (cons _%g147337147429%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (let () @@ -979,18 +992,18 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self)) - (cons (cons _%L143564%_ - (let ((__tmp146749 - (lambda (_%g143733143762%_ + (cons (cons _%g146577147293%_ + (let ((__tmp150446 + (lambda (_%g147460147489%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g143734143765%_) - (cons _%g143733143762%_ _%g143734143765%_)))) + _%g147461147492%_) + (cons _%g147460147489%_ _%g147461147492%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp146749 + __tmp150446 '() - _%L143565%_))) + _%g146578147294%_))) '())) (cons (cons (let () (declare (not safe)) @@ -1027,187 +1040,190 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd143625143693%_ - _%super-bind-methods!143623143685%_ - _%hd143610143643%_) - (_%g143604143632%_ - _%g143605143636%_)))) - (_%g143604143632%_ - _%g143605143636%_))))))) - (_%loop143618143665%_ _%target143615143659%_ '())) - (_%g143604143632%_ _%g143605143636%_))))) + _%hd147354147420%_ + _%super-bind-methods!147352147413%_ + _%hd147339147372%_) + (_%g147333147361%_ + _%g147334147365%_)))) + (_%g147333147361%_ + _%g147334147365%_))))))) + (_%loop147347147394%_ _%target147344147388%_ '())) + (_%g147333147361%_ _%g147334147365%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g143604143632%_ - _%g143605143636%_)))) - (_%g143604143632%_ - _%g143605143636%_)))) - (_%g143604143632%_ _%g143605143636%_))))) - (_%g143603143768%_ + (_%g147333147361%_ + _%g147334147365%_)))) + (_%g147333147361%_ + _%g147334147365%_)))) + (_%g147333147361%_ _%g147334147365%_))))) + (_%g147332147495%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L143564%_ - _%L143564%_ + _%g146577147293%_ + _%g146577147293%_ '"-bind-methods!")) - (map (lambda (_%super143772%_) + (map (lambda (_%super147499%_) (let () (declare (not safe)) (gx#stx-identifier - _%super143772%_ - _%super143772%_ + _%super147499%_ + _%super147499%_ '"-bind-methods!"))) - (let ((__tmp146750 - (lambda (_%g143774143777%_ - _%g143775143780%_) - (cons _%g143774143777%_ - _%g143775143780%_)))) + (let ((__tmp150447 + (lambda (_%g147501147504%_ + _%g147502147507%_) + (cons _%g147501147504%_ + _%g147502147507%_)))) (declare (not safe)) - (__foldr1 __tmp146750 '() _%L143563%_))) + (__foldr1 + __tmp150447 + '() + _%g146576147292%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L143564%_ - _%L143564%_ + _%g146577147293%_ + _%g146577147293%_ '"::t"))))))) - (_%__kont146496146497%_ - (lambda (_%L143150%_ - _%L143152%_ - _%L143153%_ - _%L143154%_ - _%L143155%_ - _%L143156%_ - _%L143157%_) - (let* ((_%g143199143227%_ - (lambda (_%g143200143223%_) + (_%__kont150193150194%_ + (lambda (_%g146633146889%_ + _%g146634146891%_ + _%g146635146892%_ + _%g146636146893%_ + _%g146637146894%_ + _%g146638146895%_ + _%g146639146896%_) + (let* ((_%g146938146966%_ + (lambda (_%g146939146962%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143200143223%_)))) - (_%g143198143363%_ - (lambda (_%g143200143231%_) + _%g146939146962%_)))) + (_%g146937147100%_ + (lambda (_%g146939146970%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143200143231%_)) - (let ((_%e143204143234%_ + (gx#stx-pair? _%g146939146970%_)) + (let ((_%e146943146973%_ (let () (declare (not safe)) - (gx#syntax-e _%g143200143231%_)))) - (let ((_%hd143205143238%_ + (gx#syntax-e _%g146939146970%_)))) + (let ((_%hd146944146977%_ (let () (declare (not safe)) - (##car _%e143204143234%_))) - (_%tl143206143241%_ + (##car _%e146943146973%_))) + (_%tl146945146980%_ (let () (declare (not safe)) - (##cdr _%e143204143234%_)))) + (##cdr _%e146943146973%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143206143241%_)) - (let ((_%e143207143244%_ + (gx#stx-pair? _%tl146945146980%_)) + (let ((_%e146946146983%_ (let () (declare (not safe)) (gx#syntax-e - _%tl143206143241%_)))) - (let ((_%hd143208143248%_ + _%tl146945146980%_)))) + (let ((_%hd146947146987%_ (let () (declare (not safe)) - (##car _%e143207143244%_))) - (_%tl143209143251%_ + (##car _%e146946146983%_))) + (_%tl146948146990%_ (let () (declare (not safe)) - (##cdr _%e143207143244%_)))) + (##cdr _%e146946146983%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd143208143248%_)) - (let ((_g146751_ + _%hd146947146987%_)) + (let ((_g150448_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd143208143248%_ + _%hd146947146987%_ '0)))) (begin - (let ((_g146752_ + (let ((_g150449_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g146751_) - (##values-length _g146751_) + _g150448_) + (##values-length _g150448_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g146752_ 2))) - (error "Context expects 2 values" _g146752_))) + (if (not (let () (declare (not safe)) (##fx= _g150449_ 2))) + (error "Context expects 2 values" _g150449_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target143210143254%_ + (let ((_%target146949146993%_ (let () (declare (not safe)) (##values-ref - _g146751_ + _g150448_ 0))) - (_%tl143212143257%_ + (_%tl146951146996%_ (let () (declare (not safe)) (##values-ref - _g146751_ + _g150448_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143212143257%_)) - (letrec ((_%loop143213143260%_ + _%tl146951146996%_)) + (letrec ((_%loop146952146999%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd143211143264%_ - _%super-bind-methods!143217143267%_) + (lambda (_%hd146950147003%_ + _%super-bind-methods!146956147006%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd143211143264%_)) - (let ((_%e143214143270%_ + (gx#stx-pair? _%hd146950147003%_)) + (let ((_%e146953147008%_ (let () (declare (not safe)) - (gx#syntax-e _%hd143211143264%_)))) - (let ((_%lp-hd143215143274%_ + (gx#syntax-e _%hd146950147003%_)))) + (let ((_%lp-hd146954147012%_ (let () (declare (not safe)) - (##car _%e143214143270%_))) - (_%lp-tl143216143277%_ + (##car _%e146953147008%_))) + (_%lp-tl146955147015%_ (let () (declare (not safe)) - (##cdr _%e143214143270%_)))) - (_%loop143213143260%_ - _%lp-tl143216143277%_ - (cons _%lp-hd143215143274%_ - _%super-bind-methods!143217143267%_)))) - (let ((_%super-bind-methods!143218143280%_ - (reverse _%super-bind-methods!143217143267%_))) + (##cdr _%e146953147008%_)))) + (_%loop146952146999%_ + _%lp-tl146955147015%_ + (cons _%lp-hd146954147012%_ + _%super-bind-methods!146956147006%_)))) + (let ((_%super-bind-methods!146957147018%_ + (reverse _%super-bind-methods!146956147006%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143209143251%_)) - (let ((_%e143219143284%_ + (gx#stx-pair? _%tl146948146990%_)) + (let ((_%e146958147021%_ (let () (declare (not safe)) (gx#syntax-e - _%tl143209143251%_)))) - (let ((_%hd143220143288%_ + _%tl146948146990%_)))) + (let ((_%hd146959147025%_ (let () (declare (not safe)) - (##car _%e143219143284%_))) - (_%tl143221143291%_ + (##car _%e146958147021%_))) + (_%tl146960147028%_ (let () (declare (not safe)) - (##cdr _%e143219143284%_)))) + (##cdr _%e146958147021%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143221143291%_)) - ((lambda (_%L143294%_ - _%L143296%_ - _%L143297%_) + _%tl146960147028%_)) + ((lambda (_%g146940147031%_ + _%g146941147033%_ + _%g146942147034%_) (cons (let () (declare (not safe)) @@ -1218,23 +1234,23 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L143155%_ - (let ((__tmp146753 - (lambda (_%g143319143331%_ - _%g143320143334%_) - (cons _%g143319143331%_ - _%g143320143334%_)))) + (cons (cons _%g146637146894%_ + (let ((__tmp150450 + (lambda (_%g147056147068%_ + _%g147057147071%_) + (cons _%g147056147068%_ + _%g147057147071%_)))) (declare (not safe)) (__foldr1 - __tmp146753 + __tmp150450 '() - _%L143154%_))) - (cons _%L143153%_ + _%g146636146893%_))) + (cons _%g146635146892%_ (cons 'final: (cons '#t '()))))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L143297%_ + (cons _%g146942147034%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1244,75 +1260,79 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp146757 - (lambda (_%g143321143337%_ _%g143322143340%_) + (let ((__tmp150454 + (lambda (_%g147058147074%_ _%g147059147077%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g143321143337%_ '())) - _%g143322143340%_))) - (__tmp146754 + (cons _%g147058147074%_ '())) + _%g147059147077%_))) + (__tmp150451 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L143150%_ - _%L143152%_)) - (let ((__tmp146756 - (lambda (_%g143323143343%_ - _%g143324143346%_ - _%g143325143348%_) + _%g146633146889%_ + _%g146634146891%_)) + (let ((__tmp150453 + (lambda (_%g147060147080%_ + _%g147061147083%_ + _%g147062147085%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L143294%_ + (cons _%g146940147031%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g143324143346%_ '())) - (cons _%g143323143343%_ '())))) + (cons _%g147061147083%_ '())) + (cons _%g147060147080%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g143325143348%_))) - (__tmp146755 + _%g147062147085%_))) + (__tmp150452 (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'seal-class!)) - (cons _%L143294%_ '())) + (cons _%g146940147031%_ + '())) '()))) (declare (not safe)) (__foldr2 - __tmp146756 - __tmp146755 - _%L143150%_ - _%L143152%_))))) + __tmp150453 + __tmp150452 + _%g146633146889%_ + _%g146634146891%_))))) (declare (not safe)) - (__foldr1 __tmp146757 __tmp146754 _%L143296%_))) + (__foldr1 + __tmp150454 + __tmp150451 + _%g146941147033%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons (cons _%L143157%_ + (cons (cons _%g146639146896%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx)) - (let ((__tmp146758 + (let ((__tmp150455 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g143326143351%_ _%g143327143354%_) - (cons _%g143326143351%_ _%g143327143354%_)))) + (lambda (_%g147063147088%_ _%g147064147091%_) + (cons _%g147063147088%_ _%g147064147091%_)))) (declare (not safe)) - (__foldr1 __tmp146758 '() _%L143156%_)))) + (__foldr1 __tmp150455 '() _%g146638146895%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare @@ -1320,7 +1340,7 @@ (gx#datum->syntax__0 '#f 'force)) - (cons _%L143297%_ + (cons _%g146942147034%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (let () @@ -1329,18 +1349,18 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self)) - (cons (cons _%L143155%_ - (let ((__tmp146759 - (lambda (_%g143328143357%_ + (cons (cons _%g146637146894%_ + (let ((__tmp150456 + (lambda (_%g147065147094%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g143329143360%_) - (cons _%g143328143357%_ _%g143329143360%_)))) + _%g147066147097%_) + (cons _%g147065147094%_ _%g147066147097%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp146759 + __tmp150456 '() - _%L143156%_))) + _%g146638146895%_))) '())) (cons (cons (let () (declare (not safe)) @@ -1377,1372 +1397,1375 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd143220143288%_ - _%super-bind-methods!143218143280%_ - _%hd143205143238%_) - (_%g143199143227%_ - _%g143200143231%_)))) - (_%g143199143227%_ - _%g143200143231%_))))))) - (_%loop143213143260%_ _%target143210143254%_ '())) - (_%g143199143227%_ _%g143200143231%_))))) + _%hd146959147025%_ + _%super-bind-methods!146957147018%_ + _%hd146944146977%_) + (_%g146938146966%_ + _%g146939146970%_)))) + (_%g146938146966%_ + _%g146939146970%_))))))) + (_%loop146952146999%_ _%target146949146993%_ '())) + (_%g146938146966%_ _%g146939146970%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g143199143227%_ - _%g143200143231%_)))) - (_%g143199143227%_ - _%g143200143231%_)))) - (_%g143199143227%_ _%g143200143231%_))))) - (_%g143198143363%_ + (_%g146938146966%_ + _%g146939146970%_)))) + (_%g146938146966%_ + _%g146939146970%_)))) + (_%g146938146966%_ _%g146939146970%_))))) + (_%g146937147100%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L143155%_ - _%L143155%_ + _%g146637146894%_ + _%g146637146894%_ '"-bind-methods!")) - (map (lambda (_%super143367%_) + (map (lambda (_%super147104%_) (let () (declare (not safe)) (gx#stx-identifier - _%super143367%_ - _%super143367%_ + _%super147104%_ + _%super147104%_ '"-bind-methods!"))) - (let ((__tmp146760 - (lambda (_%g143369143372%_ - _%g143370143375%_) - (cons _%g143369143372%_ - _%g143370143375%_)))) + (let ((__tmp150457 + (lambda (_%g147106147109%_ + _%g147107147112%_) + (cons _%g147106147109%_ + _%g147107147112%_)))) (declare (not safe)) - (__foldr1 __tmp146760 '() _%L143154%_))) + (__foldr1 + __tmp150457 + '() + _%g146636146893%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L143155%_ - _%L143155%_ + _%g146637146894%_ + _%g146637146894%_ '"::t")))))))) - (let* ((_%__match146618146619%_ - (lambda (_%e142893142962%_ - _%hd142894142966%_ - _%tl142895142969%_ - _%e142896142972%_ - _%hd142897142976%_ - _%tl142898142979%_ - _%e142899142982%_ - _%hd142900142986%_ - _%tl142901142989%_ - _%__splice146498146499%_ - _%target142902142992%_ - _%tl142904142995%_) - (letrec ((_%loop142905142998%_ - (lambda (_%hd142903143002%_ - _%arg142909143005%_) + (let* ((_%__match150315150316%_ + (lambda (_%e146640146709%_ + _%hd146641146713%_ + _%tl146642146716%_ + _%e146643146719%_ + _%hd146644146723%_ + _%tl146645146726%_ + _%e146646146729%_ + _%hd146647146733%_ + _%tl146648146736%_ + _%__splice150195150196%_ + _%target146649146739%_ + _%tl146651146742%_) + (letrec ((_%loop146652146745%_ + (lambda (_%hd146650146749%_ + _%arg146656146752%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142903143002%_)) - (let ((_%e142906143008%_ + (gx#stx-pair? _%hd146650146749%_)) + (let ((_%e146653146754%_ (let () (declare (not safe)) (gx#syntax-e - _%hd142903143002%_)))) - (let ((_%lp-tl142908143015%_ + _%hd146650146749%_)))) + (let ((_%lp-tl146655146761%_ (let () (declare (not safe)) - (##cdr _%e142906143008%_))) - (_%lp-hd142907143012%_ + (##cdr _%e146653146754%_))) + (_%lp-hd146654146758%_ (let () (declare (not safe)) - (##car _%e142906143008%_)))) - (_%loop142905142998%_ - _%lp-tl142908143015%_ - (cons _%lp-hd142907143012%_ - _%arg142909143005%_)))) - (let ((_%arg142910143018%_ - (reverse _%arg142909143005%_))) + (##car _%e146653146754%_)))) + (_%loop146652146745%_ + _%lp-tl146655146761%_ + (cons _%lp-hd146654146758%_ + _%arg146656146752%_)))) + (let ((_%arg146657146764%_ + (reverse _%arg146656146752%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142898142979%_)) - (let ((_%e142911143022%_ + _%tl146645146726%_)) + (let ((_%e146658146767%_ (let () (declare (not safe)) (gx#syntax-e - _%tl142898142979%_)))) - (let ((_%tl142913143029%_ + _%tl146645146726%_)))) + (let ((_%tl146660146774%_ (let () (declare (not safe)) - (##cdr _%e142911143022%_))) - (_%hd142912143026%_ + (##cdr _%e146658146767%_))) + (_%hd146659146771%_ (let () (declare (not safe)) - (##car _%e142911143022%_)))) + (##car _%e146658146767%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142912143026%_)) - (let ((_%e142914143032%_ + _%hd146659146771%_)) + (let ((_%e146661146777%_ (let () (declare (not safe)) (gx#syntax-e - _%hd142912143026%_)))) - (let ((_%tl142916143039%_ + _%hd146659146771%_)))) + (let ((_%tl146663146784%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e142914143032%_))) - (_%hd142915143036%_ - (let () (declare (not safe)) (##car _%e142914143032%_)))) + (##cdr _%e146661146777%_))) + (_%hd146662146781%_ + (let () (declare (not safe)) (##car _%e146661146777%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl142916143039%_)) - (let ((_%__splice146500146501%_ + (gx#stx-pair/null? _%tl146663146784%_)) + (let ((_%__splice150197150198%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl142916143039%_ + _%tl146663146784%_ '0)))) - (let ((_%tl142919143045%_ + (let ((_%tl146666146790%_ (let () (declare (not safe)) - (##vector-ref _%__splice146500146501%_ '1))) - (_%target142917143042%_ + (##vector-ref _%__splice150197150198%_ '1))) + (_%target146664146787%_ (let () (declare (not safe)) - (##vector-ref _%__splice146500146501%_ '0)))) + (##vector-ref _%__splice150197150198%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142919143045%_)) - (letrec ((_%loop142920143048%_ - (lambda (_%hd142918143052%_ - _%super142924143055%_) + (gx#stx-null? _%tl146666146790%_)) + (letrec ((_%loop146667146793%_ + (lambda (_%hd146665146797%_ + _%super146671146800%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142918143052%_)) - (let ((_%e142921143058%_ + _%hd146665146797%_)) + (let ((_%e146668146802%_ (let () (declare (not safe)) (gx#syntax-e - _%hd142918143052%_)))) - (let ((_%lp-tl142923143065%_ + _%hd146665146797%_)))) + (let ((_%lp-tl146670146809%_ (let () (declare (not safe)) - (##cdr _%e142921143058%_))) - (_%lp-hd142922143062%_ + (##cdr _%e146668146802%_))) + (_%lp-hd146669146806%_ (let () (declare (not safe)) - (##car _%e142921143058%_)))) - (_%loop142920143048%_ - _%lp-tl142923143065%_ - (cons _%lp-hd142922143062%_ - _%super142924143055%_)))) - (let ((_%super142925143068%_ - (reverse _%super142924143055%_))) + (##car _%e146668146802%_)))) + (_%loop146667146793%_ + _%lp-tl146670146809%_ + (cons _%lp-hd146669146806%_ + _%super146671146800%_)))) + (let ((_%super146672146812%_ + (reverse _%super146671146800%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142913143029%_)) - (let ((_%e142926143072%_ + _%tl146660146774%_)) + (let ((_%e146673146815%_ (let () (declare (not safe)) (gx#syntax-e - _%tl142913143029%_)))) - (let ((_%tl142928143079%_ + _%tl146660146774%_)))) + (let ((_%tl146675146822%_ (let () (declare (not safe)) - (##cdr _%e142926143072%_))) - (_%hd142927143076%_ + (##cdr _%e146673146815%_))) + (_%hd146674146819%_ (let () (declare (not safe)) - (##car _%e142926143072%_)))) + (##car _%e146673146815%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142928143079%_)) - (let ((_%e142929143082%_ + _%tl146675146822%_)) + (let ((_%e146676146825%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl142928143079%_)))) - (let ((_%tl142931143089%_ + (gx#syntax-e _%tl146675146822%_)))) + (let ((_%tl146678146832%_ (let () (declare (not safe)) - (##cdr _%e142929143082%_))) - (_%hd142930143086%_ + (##cdr _%e146676146825%_))) + (_%hd146677146829%_ (let () (declare (not safe)) - (##car _%e142929143082%_)))) + (##car _%e146676146825%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd142930143086%_)) - (let ((_%e142932143092%_ + (gx#stx-datum? _%hd146677146829%_)) + (let ((_%e146679146835%_ (let () (declare (not safe)) - (gx#stx-e _%hd142930143086%_)))) - (if (equal? _%e142932143092%_ 'final:) + (gx#stx-e _%hd146677146829%_)))) + (if (equal? _%e146679146835%_ 'final:) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl142931143089%_)) - (let ((_%__splice146502146503%_ + (gx#stx-pair/null? _%tl146678146832%_)) + (let ((_%__splice150199150200%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl142931143089%_ + _%tl146678146832%_ '0)))) - (let ((_%tl142935143099%_ + (let ((_%tl146682146842%_ (let () (declare (not safe)) (##vector-ref - _%__splice146502146503%_ + _%__splice150199150200%_ '1))) - (_%target142933143096%_ + (_%target146680146839%_ (let () (declare (not safe)) (##vector-ref - _%__splice146502146503%_ + _%__splice150199150200%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142935143099%_)) - (letrec ((_%loop142936143102%_ - (lambda (_%hd142934143106%_ - _%implementation142940143109%_ - _%method142941143111%_) + _%tl146682146842%_)) + (letrec ((_%loop146683146845%_ + (lambda (_%hd146681146849%_ + _%implementation146687146852%_ + _%method146688146853%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142934143106%_)) - (let ((_%e142937143114%_ + _%hd146681146849%_)) + (let ((_%e146684146855%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd142934143106%_)))) - (let ((_%lp-tl142939143121%_ + (gx#syntax-e _%hd146681146849%_)))) + (let ((_%lp-tl146686146862%_ (let () (declare (not safe)) - (##cdr _%e142937143114%_))) - (_%lp-hd142938143118%_ + (##cdr _%e146684146855%_))) + (_%lp-hd146685146859%_ (let () (declare (not safe)) - (##car _%e142937143114%_)))) + (##car _%e146684146855%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd142938143118%_)) - (let ((_%e142944143124%_ + (gx#stx-pair? _%lp-hd146685146859%_)) + (let ((_%e146691146865%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd142938143118%_)))) - (let ((_%tl142946143131%_ + (gx#syntax-e _%lp-hd146685146859%_)))) + (let ((_%tl146693146872%_ (let () (declare (not safe)) - (##cdr _%e142944143124%_))) - (_%hd142945143128%_ + (##cdr _%e146691146865%_))) + (_%hd146692146869%_ (let () (declare (not safe)) - (##car _%e142944143124%_)))) + (##car _%e146691146865%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142946143131%_)) - (let ((_%e142947143134%_ + (gx#stx-pair? _%tl146693146872%_)) + (let ((_%e146694146875%_ (let () (declare (not safe)) (gx#syntax-e - _%tl142946143131%_)))) - (let ((_%tl142949143141%_ + _%tl146693146872%_)))) + (let ((_%tl146696146882%_ (let () (declare (not safe)) - (##cdr _%e142947143134%_))) - (_%hd142948143138%_ + (##cdr _%e146694146875%_))) + (_%hd146695146879%_ (let () (declare (not safe)) - (##car _%e142947143134%_)))) + (##car _%e146694146875%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142949143141%_)) - (_%loop142936143102%_ - _%lp-tl142939143121%_ - (cons _%hd142948143138%_ - _%implementation142940143109%_) - (cons _%hd142945143128%_ - _%method142941143111%_)) + _%tl146696146882%_)) + (_%loop146683146845%_ + _%lp-tl146686146862%_ + (cons _%hd146695146879%_ + _%implementation146687146852%_) + (cons _%hd146692146869%_ + _%method146688146853%_)) (let () (declare (not safe)) - (_%g142761142955%_))))) + (_%g146508146702%_))))) (let () (declare (not safe)) - (_%g142761142955%_))))) + (_%g146508146702%_))))) (let () (declare (not safe)) - (_%g142761142955%_))))) - (let ((_%method142943143147%_ - (reverse _%method142941143111%_)) - (_%implementation142942143144%_ - (reverse _%implementation142940143109%_))) - (_%__kont146496146497%_ - _%implementation142942143144%_ - _%method142943143147%_ - _%hd142927143076%_ - _%super142925143068%_ - _%hd142915143036%_ - _%arg142910143018%_ - _%hd142900142986%_)))))) + (_%g146508146702%_))))) + (let ((_%method146690146887%_ + (reverse _%method146688146853%_)) + (_%implementation146689146885%_ + (reverse _%implementation146687146852%_))) + (_%__kont150193150194%_ + _%implementation146689146885%_ + _%method146690146887%_ + _%hd146674146819%_ + _%super146672146812%_ + _%hd146662146781%_ + _%arg146657146764%_ + _%hd146647146733%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop142936143102%_ - _%target142933143096%_ + (_%loop146683146845%_ + _%target146680146839%_ '() '())) (let () (declare (not safe)) - (_%g142761142955%_))))) + (_%g146508146702%_))))) (let () (declare (not safe)) - (_%g142761142955%_))) + (_%g146508146702%_))) (let () (declare (not safe)) - (_%g142761142955%_)))) - (let () (declare (not safe)) (_%g142761142955%_))))) - (let () (declare (not safe)) (_%g142761142955%_))))) + (_%g146508146702%_)))) + (let () (declare (not safe)) (_%g146508146702%_))))) + (let () (declare (not safe)) (_%g146508146702%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g142761142955%_)))))))) - (_%loop142920143048%_ - _%target142917143042%_ + (_%g146508146702%_)))))))) + (_%loop146667146793%_ + _%target146664146787%_ '())) (let () (declare (not safe)) - (_%g142761142955%_))))) - (let () (declare (not safe)) (_%g142761142955%_))))) + (_%g146508146702%_))))) + (let () (declare (not safe)) (_%g146508146702%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g142761142955%_))))) + (_%g146508146702%_))))) (let () (declare (not safe)) - (_%g142761142955%_)))))))) - (_%loop142905142998%_ _%target142902142992%_ '())))) - (_%__match146592146593%_ - (lambda (_%e142833143385%_ - _%hd142834143389%_ - _%tl142835143392%_ - _%e142836143395%_ - _%hd142837143399%_ - _%tl142838143402%_ - _%e142839143405%_ - _%hd142840143409%_ - _%tl142841143412%_ - _%__splice146490146491%_ - _%target142842143415%_ - _%tl142844143418%_) - (letrec ((_%loop142845143421%_ - (lambda (_%hd142843143425%_ - _%arg142849143428%_) + (_%g146508146702%_)))))))) + (_%loop146652146745%_ _%target146649146739%_ '())))) + (_%__match150289150290%_ + (lambda (_%e146580147122%_ + _%hd146581147126%_ + _%tl146582147129%_ + _%e146583147132%_ + _%hd146584147136%_ + _%tl146585147139%_ + _%e146586147142%_ + _%hd146587147146%_ + _%tl146588147149%_ + _%__splice150187150188%_ + _%target146589147152%_ + _%tl146591147155%_) + (letrec ((_%loop146592147158%_ + (lambda (_%hd146590147162%_ + _%arg146596147165%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142843143425%_)) - (let ((_%e142846143431%_ + (gx#stx-pair? _%hd146590147162%_)) + (let ((_%e146593147167%_ (let () (declare (not safe)) (gx#syntax-e - _%hd142843143425%_)))) - (let ((_%lp-tl142848143438%_ + _%hd146590147162%_)))) + (let ((_%lp-tl146595147174%_ (let () (declare (not safe)) - (##cdr _%e142846143431%_))) - (_%lp-hd142847143435%_ + (##cdr _%e146593147167%_))) + (_%lp-hd146594147171%_ (let () (declare (not safe)) - (##car _%e142846143431%_)))) - (_%loop142845143421%_ - _%lp-tl142848143438%_ - (cons _%lp-hd142847143435%_ - _%arg142849143428%_)))) - (let ((_%arg142850143441%_ - (reverse _%arg142849143428%_))) + (##car _%e146593147167%_)))) + (_%loop146592147158%_ + _%lp-tl146595147174%_ + (cons _%lp-hd146594147171%_ + _%arg146596147165%_)))) + (let ((_%arg146597147177%_ + (reverse _%arg146596147165%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142838143402%_)) - (let ((_%e142851143445%_ + _%tl146585147139%_)) + (let ((_%e146598147180%_ (let () (declare (not safe)) (gx#syntax-e - _%tl142838143402%_)))) - (let ((_%tl142853143452%_ + _%tl146585147139%_)))) + (let ((_%tl146600147187%_ (let () (declare (not safe)) - (##cdr _%e142851143445%_))) - (_%hd142852143449%_ + (##cdr _%e146598147180%_))) + (_%hd146599147184%_ (let () (declare (not safe)) - (##car _%e142851143445%_)))) + (##car _%e146598147180%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142852143449%_)) - (let ((_%e142854143455%_ + _%hd146599147184%_)) + (let ((_%e146601147190%_ (let () (declare (not safe)) (gx#syntax-e - _%hd142852143449%_)))) - (let ((_%tl142856143462%_ + _%hd146599147184%_)))) + (let ((_%tl146603147197%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e142854143455%_))) - (_%hd142855143459%_ - (let () (declare (not safe)) (##car _%e142854143455%_)))) + (##cdr _%e146601147190%_))) + (_%hd146602147194%_ + (let () (declare (not safe)) (##car _%e146601147190%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl142856143462%_)) - (let ((_%__splice146492146493%_ + (gx#stx-pair/null? _%tl146603147197%_)) + (let ((_%__splice150189150190%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl142856143462%_ + _%tl146603147197%_ '0)))) - (let ((_%tl142859143468%_ + (let ((_%tl146606147203%_ (let () (declare (not safe)) - (##vector-ref _%__splice146492146493%_ '1))) - (_%target142857143465%_ + (##vector-ref _%__splice150189150190%_ '1))) + (_%target146604147200%_ (let () (declare (not safe)) - (##vector-ref _%__splice146492146493%_ '0)))) + (##vector-ref _%__splice150189150190%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142859143468%_)) - (letrec ((_%loop142860143471%_ - (lambda (_%hd142858143475%_ - _%super142864143478%_) + (gx#stx-null? _%tl146606147203%_)) + (letrec ((_%loop146607147206%_ + (lambda (_%hd146605147210%_ + _%super146611147213%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142858143475%_)) - (let ((_%e142861143481%_ + _%hd146605147210%_)) + (let ((_%e146608147215%_ (let () (declare (not safe)) (gx#syntax-e - _%hd142858143475%_)))) - (let ((_%lp-tl142863143488%_ + _%hd146605147210%_)))) + (let ((_%lp-tl146610147222%_ (let () (declare (not safe)) - (##cdr _%e142861143481%_))) - (_%lp-hd142862143485%_ + (##cdr _%e146608147215%_))) + (_%lp-hd146609147219%_ (let () (declare (not safe)) - (##car _%e142861143481%_)))) - (_%loop142860143471%_ - _%lp-tl142863143488%_ - (cons _%lp-hd142862143485%_ - _%super142864143478%_)))) - (let ((_%super142865143491%_ - (reverse _%super142864143478%_))) + (##car _%e146608147215%_)))) + (_%loop146607147206%_ + _%lp-tl146610147222%_ + (cons _%lp-hd146609147219%_ + _%super146611147213%_)))) + (let ((_%super146612147225%_ + (reverse _%super146611147213%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142853143452%_)) - (let ((_%e142866143495%_ + _%tl146600147187%_)) + (let ((_%e146613147228%_ (let () (declare (not safe)) (gx#syntax-e - _%tl142853143452%_)))) - (let ((_%tl142868143502%_ + _%tl146600147187%_)))) + (let ((_%tl146615147235%_ (let () (declare (not safe)) - (##cdr _%e142866143495%_))) - (_%hd142867143499%_ + (##cdr _%e146613147228%_))) + (_%hd146614147232%_ (let () (declare (not safe)) - (##car _%e142866143495%_)))) + (##car _%e146613147228%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl142868143502%_)) - (let ((_%__splice146494146495%_ + _%tl146615147235%_)) + (let ((_%__splice150191150192%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl142868143502%_ + _%tl146615147235%_ '0)))) - (let ((_%tl142871143508%_ + (let ((_%tl146618147241%_ (let () (declare (not safe)) - (##vector-ref _%__splice146494146495%_ '1))) - (_%target142869143505%_ + (##vector-ref _%__splice150191150192%_ '1))) + (_%target146616147238%_ (let () (declare (not safe)) - (##vector-ref _%__splice146494146495%_ '0)))) + (##vector-ref _%__splice150191150192%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142871143508%_)) - (letrec ((_%loop142872143511%_ - (lambda (_%hd142870143515%_ - _%implementation142876143518%_ - _%method142877143520%_) + (gx#stx-null? _%tl146618147241%_)) + (letrec ((_%loop146619147244%_ + (lambda (_%hd146617147248%_ + _%implementation146623147251%_ + _%method146624147252%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142870143515%_)) - (let ((_%e142873143523%_ + (gx#stx-pair? _%hd146617147248%_)) + (let ((_%e146620147254%_ (let () (declare (not safe)) (gx#syntax-e - _%hd142870143515%_)))) - (let ((_%lp-tl142875143530%_ + _%hd146617147248%_)))) + (let ((_%lp-tl146622147261%_ (let () (declare (not safe)) - (##cdr _%e142873143523%_))) - (_%lp-hd142874143527%_ + (##cdr _%e146620147254%_))) + (_%lp-hd146621147258%_ (let () (declare (not safe)) - (##car _%e142873143523%_)))) + (##car _%e146620147254%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd142874143527%_)) - (let ((_%e142880143533%_ + _%lp-hd146621147258%_)) + (let ((_%e146627147264%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd142874143527%_)))) - (let ((_%tl142882143540%_ + _%lp-hd146621147258%_)))) + (let ((_%tl146629147271%_ (let () (declare (not safe)) - (##cdr _%e142880143533%_))) - (_%hd142881143537%_ + (##cdr _%e146627147264%_))) + (_%hd146628147268%_ (let () (declare (not safe)) - (##car _%e142880143533%_)))) + (##car _%e146627147264%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142882143540%_)) - (let ((_%e142883143543%_ + _%tl146629147271%_)) + (let ((_%e146630147274%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl142882143540%_)))) - (let ((_%tl142885143550%_ + (gx#syntax-e _%tl146629147271%_)))) + (let ((_%tl146632147281%_ (let () (declare (not safe)) - (##cdr _%e142883143543%_))) - (_%hd142884143547%_ + (##cdr _%e146630147274%_))) + (_%hd146631147278%_ (let () (declare (not safe)) - (##car _%e142883143543%_)))) + (##car _%e146630147274%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142885143550%_)) - (_%loop142872143511%_ - _%lp-tl142875143530%_ - (cons _%hd142884143547%_ - _%implementation142876143518%_) - (cons _%hd142881143537%_ _%method142877143520%_)) - (_%__match146618146619%_ - _%e142833143385%_ - _%hd142834143389%_ - _%tl142835143392%_ - _%e142836143395%_ - _%hd142837143399%_ - _%tl142838143402%_ - _%e142839143405%_ - _%hd142840143409%_ - _%tl142841143412%_ - _%__splice146490146491%_ - _%target142842143415%_ - _%tl142844143418%_)))) - (_%__match146618146619%_ - _%e142833143385%_ - _%hd142834143389%_ - _%tl142835143392%_ - _%e142836143395%_ - _%hd142837143399%_ - _%tl142838143402%_ - _%e142839143405%_ - _%hd142840143409%_ - _%tl142841143412%_ - _%__splice146490146491%_ - _%target142842143415%_ - _%tl142844143418%_)))) + (gx#stx-null? _%tl146632147281%_)) + (_%loop146619147244%_ + _%lp-tl146622147261%_ + (cons _%hd146631147278%_ + _%implementation146623147251%_) + (cons _%hd146628147268%_ _%method146624147252%_)) + (_%__match150315150316%_ + _%e146580147122%_ + _%hd146581147126%_ + _%tl146582147129%_ + _%e146583147132%_ + _%hd146584147136%_ + _%tl146585147139%_ + _%e146586147142%_ + _%hd146587147146%_ + _%tl146588147149%_ + _%__splice150187150188%_ + _%target146589147152%_ + _%tl146591147155%_)))) + (_%__match150315150316%_ + _%e146580147122%_ + _%hd146581147126%_ + _%tl146582147129%_ + _%e146583147132%_ + _%hd146584147136%_ + _%tl146585147139%_ + _%e146586147142%_ + _%hd146587147146%_ + _%tl146588147149%_ + _%__splice150187150188%_ + _%target146589147152%_ + _%tl146591147155%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match146618146619%_ - _%e142833143385%_ - _%hd142834143389%_ - _%tl142835143392%_ - _%e142836143395%_ - _%hd142837143399%_ - _%tl142838143402%_ - _%e142839143405%_ - _%hd142840143409%_ - _%tl142841143412%_ - _%__splice146490146491%_ - _%target142842143415%_ - _%tl142844143418%_)))) - (let ((_%method142879143556%_ - (reverse _%method142877143520%_)) - (_%implementation142878143553%_ - (reverse _%implementation142876143518%_))) - (_%__kont146488146489%_ - _%implementation142878143553%_ - _%method142879143556%_ - _%hd142867143499%_ - _%super142865143491%_ - _%hd142855143459%_ - _%arg142850143441%_ - _%hd142840143409%_)))))) - (_%loop142872143511%_ - _%target142869143505%_ + (_%__match150315150316%_ + _%e146580147122%_ + _%hd146581147126%_ + _%tl146582147129%_ + _%e146583147132%_ + _%hd146584147136%_ + _%tl146585147139%_ + _%e146586147142%_ + _%hd146587147146%_ + _%tl146588147149%_ + _%__splice150187150188%_ + _%target146589147152%_ + _%tl146591147155%_)))) + (let ((_%method146626147286%_ + (reverse _%method146624147252%_)) + (_%implementation146625147284%_ + (reverse _%implementation146623147251%_))) + (_%__kont150185150186%_ + _%implementation146625147284%_ + _%method146626147286%_ + _%hd146614147232%_ + _%super146612147225%_ + _%hd146602147194%_ + _%arg146597147177%_ + _%hd146587147146%_)))))) + (_%loop146619147244%_ + _%target146616147238%_ '() '())) - (_%__match146618146619%_ - _%e142833143385%_ - _%hd142834143389%_ - _%tl142835143392%_ - _%e142836143395%_ - _%hd142837143399%_ - _%tl142838143402%_ - _%e142839143405%_ - _%hd142840143409%_ - _%tl142841143412%_ - _%__splice146490146491%_ - _%target142842143415%_ - _%tl142844143418%_)))) - (_%__match146618146619%_ - _%e142833143385%_ - _%hd142834143389%_ - _%tl142835143392%_ - _%e142836143395%_ - _%hd142837143399%_ - _%tl142838143402%_ - _%e142839143405%_ - _%hd142840143409%_ - _%tl142841143412%_ - _%__splice146490146491%_ - _%target142842143415%_ - _%tl142844143418%_)))) + (_%__match150315150316%_ + _%e146580147122%_ + _%hd146581147126%_ + _%tl146582147129%_ + _%e146583147132%_ + _%hd146584147136%_ + _%tl146585147139%_ + _%e146586147142%_ + _%hd146587147146%_ + _%tl146588147149%_ + _%__splice150187150188%_ + _%target146589147152%_ + _%tl146591147155%_)))) + (_%__match150315150316%_ + _%e146580147122%_ + _%hd146581147126%_ + _%tl146582147129%_ + _%e146583147132%_ + _%hd146584147136%_ + _%tl146585147139%_ + _%e146586147142%_ + _%hd146587147146%_ + _%tl146588147149%_ + _%__splice150187150188%_ + _%target146589147152%_ + _%tl146591147155%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match146618146619%_ - _%e142833143385%_ - _%hd142834143389%_ - _%tl142835143392%_ - _%e142836143395%_ - _%hd142837143399%_ - _%tl142838143402%_ - _%e142839143405%_ - _%hd142840143409%_ - _%tl142841143412%_ - _%__splice146490146491%_ - _%target142842143415%_ - _%tl142844143418%_))))))) - (_%loop142860143471%_ - _%target142857143465%_ + (_%__match150315150316%_ + _%e146580147122%_ + _%hd146581147126%_ + _%tl146582147129%_ + _%e146583147132%_ + _%hd146584147136%_ + _%tl146585147139%_ + _%e146586147142%_ + _%hd146587147146%_ + _%tl146588147149%_ + _%__splice150187150188%_ + _%target146589147152%_ + _%tl146591147155%_))))))) + (_%loop146607147206%_ + _%target146604147200%_ '())) - (_%__match146618146619%_ - _%e142833143385%_ - _%hd142834143389%_ - _%tl142835143392%_ - _%e142836143395%_ - _%hd142837143399%_ - _%tl142838143402%_ - _%e142839143405%_ - _%hd142840143409%_ - _%tl142841143412%_ - _%__splice146490146491%_ - _%target142842143415%_ - _%tl142844143418%_)))) - (_%__match146618146619%_ - _%e142833143385%_ - _%hd142834143389%_ - _%tl142835143392%_ - _%e142836143395%_ - _%hd142837143399%_ - _%tl142838143402%_ - _%e142839143405%_ - _%hd142840143409%_ - _%tl142841143412%_ - _%__splice146490146491%_ - _%target142842143415%_ - _%tl142844143418%_)))) + (_%__match150315150316%_ + _%e146580147122%_ + _%hd146581147126%_ + _%tl146582147129%_ + _%e146583147132%_ + _%hd146584147136%_ + _%tl146585147139%_ + _%e146586147142%_ + _%hd146587147146%_ + _%tl146588147149%_ + _%__splice150187150188%_ + _%target146589147152%_ + _%tl146591147155%_)))) + (_%__match150315150316%_ + _%e146580147122%_ + _%hd146581147126%_ + _%tl146582147129%_ + _%e146583147132%_ + _%hd146584147136%_ + _%tl146585147139%_ + _%e146586147142%_ + _%hd146587147146%_ + _%tl146588147149%_ + _%__splice150187150188%_ + _%target146589147152%_ + _%tl146591147155%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match146618146619%_ - _%e142833143385%_ - _%hd142834143389%_ - _%tl142835143392%_ - _%e142836143395%_ - _%hd142837143399%_ - _%tl142838143402%_ - _%e142839143405%_ - _%hd142840143409%_ - _%tl142841143412%_ - _%__splice146490146491%_ - _%target142842143415%_ - _%tl142844143418%_)))) - (_%__match146618146619%_ - _%e142833143385%_ - _%hd142834143389%_ - _%tl142835143392%_ - _%e142836143395%_ - _%hd142837143399%_ - _%tl142838143402%_ - _%e142839143405%_ - _%hd142840143409%_ - _%tl142841143412%_ - _%__splice146490146491%_ - _%target142842143415%_ - _%tl142844143418%_))))))) - (_%loop142845143421%_ _%target142842143415%_ '())))) - (_%__match146566146567%_ - (lambda (_%e142784143790%_ - _%hd142785143794%_ - _%tl142786143797%_ - _%e142787143800%_ - _%hd142788143804%_ - _%tl142789143807%_ - _%e142790143810%_ - _%e142791143814%_ - _%hd142792143818%_ - _%tl142793143821%_ - _%e142794143824%_ - _%hd142795143828%_ - _%tl142796143831%_ - _%__splice146484146485%_ - _%target142797143834%_ - _%tl142799143837%_) - (letrec ((_%loop142800143840%_ - (lambda (_%hd142798143844%_ - _%super142804143847%_) + (_%__match150315150316%_ + _%e146580147122%_ + _%hd146581147126%_ + _%tl146582147129%_ + _%e146583147132%_ + _%hd146584147136%_ + _%tl146585147139%_ + _%e146586147142%_ + _%hd146587147146%_ + _%tl146588147149%_ + _%__splice150187150188%_ + _%target146589147152%_ + _%tl146591147155%_)))) + (_%__match150315150316%_ + _%e146580147122%_ + _%hd146581147126%_ + _%tl146582147129%_ + _%e146583147132%_ + _%hd146584147136%_ + _%tl146585147139%_ + _%e146586147142%_ + _%hd146587147146%_ + _%tl146588147149%_ + _%__splice150187150188%_ + _%target146589147152%_ + _%tl146591147155%_))))))) + (_%loop146592147158%_ _%target146589147152%_ '())))) + (_%__match150263150264%_ + (lambda (_%e146531147517%_ + _%hd146532147521%_ + _%tl146533147524%_ + _%e146534147527%_ + _%hd146535147531%_ + _%tl146536147534%_ + _%e146537147537%_ + _%e146538147541%_ + _%hd146539147545%_ + _%tl146540147548%_ + _%e146541147551%_ + _%hd146542147555%_ + _%tl146543147558%_ + _%__splice150181150182%_ + _%target146544147561%_ + _%tl146546147564%_) + (letrec ((_%loop146547147567%_ + (lambda (_%hd146545147571%_ + _%super146551147574%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142798143844%_)) - (let ((_%e142801143850%_ + (gx#stx-pair? _%hd146545147571%_)) + (let ((_%e146548147576%_ (let () (declare (not safe)) (gx#syntax-e - _%hd142798143844%_)))) - (let ((_%lp-tl142803143857%_ + _%hd146545147571%_)))) + (let ((_%lp-tl146550147583%_ (let () (declare (not safe)) - (##cdr _%e142801143850%_))) - (_%lp-hd142802143854%_ + (##cdr _%e146548147576%_))) + (_%lp-hd146549147580%_ (let () (declare (not safe)) - (##car _%e142801143850%_)))) - (_%loop142800143840%_ - _%lp-tl142803143857%_ - (cons _%lp-hd142802143854%_ - _%super142804143847%_)))) - (let ((_%super142805143860%_ - (reverse _%super142804143847%_))) + (##car _%e146548147576%_)))) + (_%loop146547147567%_ + _%lp-tl146550147583%_ + (cons _%lp-hd146549147580%_ + _%super146551147574%_)))) + (let ((_%super146552147586%_ + (reverse _%super146551147574%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142793143821%_)) - (let ((_%e142806143864%_ + _%tl146540147548%_)) + (let ((_%e146553147589%_ (let () (declare (not safe)) (gx#syntax-e - _%tl142793143821%_)))) - (let ((_%tl142808143871%_ + _%tl146540147548%_)))) + (let ((_%tl146555147596%_ (let () (declare (not safe)) - (##cdr _%e142806143864%_))) - (_%hd142807143868%_ + (##cdr _%e146553147589%_))) + (_%hd146554147593%_ (let () (declare (not safe)) - (##car _%e142806143864%_)))) + (##car _%e146553147589%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl142808143871%_)) - (let ((_%__splice146486146487%_ + _%tl146555147596%_)) + (let ((_%__splice150183150184%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl142808143871%_ + _%tl146555147596%_ '0)))) - (let ((_%tl142811143877%_ + (let ((_%tl146558147602%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice146486146487%_ '1))) - (_%target142809143874%_ + (##vector-ref _%__splice150183150184%_ '1))) + (_%target146556147599%_ (let () (declare (not safe)) - (##vector-ref _%__splice146486146487%_ '0)))) + (##vector-ref _%__splice150183150184%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142811143877%_)) - (letrec ((_%loop142812143880%_ - (lambda (_%hd142810143884%_ - _%implementation142816143887%_ - _%method142817143889%_) + (gx#stx-null? _%tl146558147602%_)) + (letrec ((_%loop146559147605%_ + (lambda (_%hd146557147609%_ + _%implementation146563147612%_ + _%method146564147613%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142810143884%_)) - (let ((_%e142813143892%_ + (gx#stx-pair? _%hd146557147609%_)) + (let ((_%e146560147615%_ (let () (declare (not safe)) (gx#syntax-e - _%hd142810143884%_)))) - (let ((_%lp-tl142815143899%_ + _%hd146557147609%_)))) + (let ((_%lp-tl146562147622%_ (let () (declare (not safe)) - (##cdr _%e142813143892%_))) - (_%lp-hd142814143896%_ + (##cdr _%e146560147615%_))) + (_%lp-hd146561147619%_ (let () (declare (not safe)) - (##car _%e142813143892%_)))) + (##car _%e146560147615%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd142814143896%_)) - (let ((_%e142820143902%_ + _%lp-hd146561147619%_)) + (let ((_%e146567147625%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd142814143896%_)))) - (let ((_%tl142822143909%_ + _%lp-hd146561147619%_)))) + (let ((_%tl146569147632%_ (let () (declare (not safe)) - (##cdr _%e142820143902%_))) - (_%hd142821143906%_ + (##cdr _%e146567147625%_))) + (_%hd146568147629%_ (let () (declare (not safe)) - (##car _%e142820143902%_)))) + (##car _%e146567147625%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142822143909%_)) - (let ((_%e142823143912%_ + _%tl146569147632%_)) + (let ((_%e146570147635%_ (let () (declare (not safe)) (gx#syntax-e - _%tl142822143909%_)))) - (let ((_%tl142825143919%_ + _%tl146569147632%_)))) + (let ((_%tl146572147642%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e142823143912%_))) - (_%hd142824143916%_ - (let () (declare (not safe)) (##car _%e142823143912%_)))) + (##cdr _%e146570147635%_))) + (_%hd146571147639%_ + (let () (declare (not safe)) (##car _%e146570147635%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142825143919%_)) - (_%loop142812143880%_ - _%lp-tl142815143899%_ - (cons _%hd142824143916%_ _%implementation142816143887%_) - (cons _%hd142821143906%_ _%method142817143889%_)) - (let () (declare (not safe)) (_%g142761142955%_))))) + (gx#stx-null? _%tl146572147642%_)) + (_%loop146559147605%_ + _%lp-tl146562147622%_ + (cons _%hd146571147639%_ _%implementation146563147612%_) + (cons _%hd146568147629%_ _%method146564147613%_)) + (let () (declare (not safe)) (_%g146508146702%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g142761142955%_))))) + (_%g146508146702%_))))) (let () (declare (not safe)) - (_%g142761142955%_))))) - (let ((_%method142819143925%_ - (reverse _%method142817143889%_)) - (_%implementation142818143922%_ - (reverse _%implementation142816143887%_))) - (_%__kont146482146483%_ - _%implementation142818143922%_ - _%method142819143925%_ - _%hd142807143868%_ - _%super142805143860%_ - _%hd142795143828%_)))))) - (_%loop142812143880%_ _%target142809143874%_ '() '())) - (let () (declare (not safe)) (_%g142761142955%_))))) + (_%g146508146702%_))))) + (let ((_%method146566147647%_ + (reverse _%method146564147613%_)) + (_%implementation146565147645%_ + (reverse _%implementation146563147612%_))) + (_%__kont150179150180%_ + _%implementation146565147645%_ + _%method146566147647%_ + _%hd146554147593%_ + _%super146552147586%_ + _%hd146542147555%_)))))) + (_%loop146559147605%_ _%target146556147599%_ '() '())) + (let () (declare (not safe)) (_%g146508146702%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g142761142955%_))))) + (_%g146508146702%_))))) (let () (declare (not safe)) - (_%g142761142955%_)))))))) - (_%loop142800143840%_ _%target142797143834%_ '())))) - (_%__match146528146529%_ - (lambda (_%e142767144134%_ - _%hd142768144138%_ - _%tl142769144141%_ - _%e142770144144%_ - _%hd142771144148%_ - _%tl142772144151%_ - _%e142773144154%_ - _%hd142774144158%_ - _%tl142775144161%_ - _%e142776144164%_ - _%hd142777144168%_ - _%tl142778144171%_) - (let ((_%L144174%_ _%tl142778144171%_) - (_%L144176%_ _%hd142777144168%_) - (_%L144177%_ _%hd142774144158%_) - (_%L144178%_ _%hd142771144148%_)) + (_%g146508146702%_)))))))) + (_%loop146547147567%_ _%target146544147561%_ '())))) + (_%__match150225150226%_ + (lambda (_%e146514147853%_ + _%hd146515147857%_ + _%tl146516147860%_ + _%e146517147863%_ + _%hd146518147867%_ + _%tl146519147870%_ + _%e146520147873%_ + _%hd146521147877%_ + _%tl146522147880%_ + _%e146523147883%_ + _%hd146524147887%_ + _%tl146525147890%_) + (let ((_%g146510147893%_ _%tl146525147890%_) + (_%g146511147895%_ _%hd146524147887%_) + (_%g146512147896%_ _%hd146521147877%_) + (_%g146513147897%_ _%hd146518147867%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L144177%_)) - (_%__kont146480146481%_ - _%L144174%_ - _%L144176%_ - _%L144177%_ - _%L144178%_) + (gx#identifier? _%g146512147896%_)) + (_%__kont150177150178%_ + _%g146510147893%_ + _%g146511147895%_ + _%g146512147896%_ + _%g146513147897%_) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd142771144148%_)) - (let ((_%e142790143810%_ + (gx#stx-datum? _%hd146518147867%_)) + (let ((_%e146537147537%_ (let () (declare (not safe)) - (gx#stx-e _%hd142771144148%_)))) - (if (equal? _%e142790143810%_ '#f) + (gx#stx-e _%hd146518147867%_)))) + (if (equal? _%e146537147537%_ '#f) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142774144158%_)) - (let ((_%e142794143824%_ + (gx#stx-pair? _%hd146521147877%_)) + (let ((_%e146541147551%_ (let () (declare (not safe)) (gx#syntax-e - _%hd142774144158%_)))) - (let ((_%tl142796143831%_ + _%hd146521147877%_)))) + (let ((_%tl146543147558%_ (let () (declare (not safe)) - (##cdr _%e142794143824%_))) - (_%hd142795143828%_ + (##cdr _%e146541147551%_))) + (_%hd146542147555%_ (let () (declare (not safe)) - (##car _%e142794143824%_)))) + (##car _%e146541147551%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl142796143831%_)) - (let ((_%__splice146484146485%_ + _%tl146543147558%_)) + (let ((_%__splice150181150182%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl142796143831%_ + _%tl146543147558%_ '0)))) - (let ((_%tl142799143837%_ + (let ((_%tl146546147564%_ (let () (declare (not safe)) (##vector-ref - _%__splice146484146485%_ + _%__splice150181150182%_ '1))) - (_%target142797143834%_ + (_%target146544147561%_ (let () (declare (not safe)) (##vector-ref - _%__splice146484146485%_ + _%__splice150181150182%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142799143837%_)) - (_%__match146566146567%_ - _%e142767144134%_ - _%hd142768144138%_ - _%tl142769144141%_ - _%e142770144144%_ - _%hd142771144148%_ - _%tl142772144151%_ - _%e142790143810%_ - _%e142773144154%_ - _%hd142774144158%_ - _%tl142775144161%_ - _%e142794143824%_ - _%hd142795143828%_ - _%tl142796143831%_ - _%__splice146484146485%_ - _%target142797143834%_ - _%tl142799143837%_) + _%tl146546147564%_)) + (_%__match150263150264%_ + _%e146514147853%_ + _%hd146515147857%_ + _%tl146516147860%_ + _%e146517147863%_ + _%hd146518147867%_ + _%tl146519147870%_ + _%e146537147537%_ + _%e146520147873%_ + _%hd146521147877%_ + _%tl146522147880%_ + _%e146541147551%_ + _%hd146542147555%_ + _%tl146543147558%_ + _%__splice150181150182%_ + _%target146544147561%_ + _%tl146546147564%_) (let () (declare (not safe)) - (_%g142761142955%_))))) + (_%g146508146702%_))))) (let () (declare (not safe)) - (_%g142761142955%_))))) + (_%g146508146702%_))))) (let () (declare (not safe)) - (_%g142761142955%_))) + (_%g146508146702%_))) (let () (declare (not safe)) - (_%g142761142955%_)))) + (_%g146508146702%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142771144148%_)) - (let ((_%e142839143405%_ + (gx#stx-pair? _%hd146518147867%_)) + (let ((_%e146586147142%_ (let () (declare (not safe)) (gx#syntax-e - _%hd142771144148%_)))) - (let ((_%tl142841143412%_ + _%hd146518147867%_)))) + (let ((_%tl146588147149%_ (let () (declare (not safe)) - (##cdr _%e142839143405%_))) - (_%hd142840143409%_ + (##cdr _%e146586147142%_))) + (_%hd146587147146%_ (let () (declare (not safe)) - (##car _%e142839143405%_)))) + (##car _%e146586147142%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl142841143412%_)) - (let ((_%__splice146490146491%_ + _%tl146588147149%_)) + (let ((_%__splice150187150188%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl142841143412%_ + _%tl146588147149%_ '0)))) - (let ((_%tl142844143418%_ + (let ((_%tl146591147155%_ (let () (declare (not safe)) (##vector-ref - _%__splice146490146491%_ + _%__splice150187150188%_ '1))) - (_%target142842143415%_ + (_%target146589147152%_ (let () (declare (not safe)) (##vector-ref - _%__splice146490146491%_ + _%__splice150187150188%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142844143418%_)) - (_%__match146592146593%_ - _%e142767144134%_ - _%hd142768144138%_ - _%tl142769144141%_ - _%e142770144144%_ - _%hd142771144148%_ - _%tl142772144151%_ - _%e142839143405%_ - _%hd142840143409%_ - _%tl142841143412%_ - _%__splice146490146491%_ - _%target142842143415%_ - _%tl142844143418%_) + _%tl146591147155%_)) + (_%__match150289150290%_ + _%e146514147853%_ + _%hd146515147857%_ + _%tl146516147860%_ + _%e146517147863%_ + _%hd146518147867%_ + _%tl146519147870%_ + _%e146586147142%_ + _%hd146587147146%_ + _%tl146588147149%_ + _%__splice150187150188%_ + _%target146589147152%_ + _%tl146591147155%_) (let () (declare (not safe)) - (_%g142761142955%_))))) + (_%g146508146702%_))))) (let () (declare (not safe)) - (_%g142761142955%_))))) + (_%g146508146702%_))))) (let () (declare (not safe)) - (_%g142761142955%_))))))))) + (_%g146508146702%_))))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx146477146478%_)) - (let ((_%e142767144134%_ + (gx#stx-pair? _%__stx150174150175%_)) + (let ((_%e146514147853%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx146477146478%_)))) - (let ((_%tl142769144141%_ + (gx#syntax-e _%__stx150174150175%_)))) + (let ((_%tl146516147860%_ (let () (declare (not safe)) - (##cdr _%e142767144134%_))) - (_%hd142768144138%_ + (##cdr _%e146514147853%_))) + (_%hd146515147857%_ (let () (declare (not safe)) - (##car _%e142767144134%_)))) + (##car _%e146514147853%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142769144141%_)) - (let ((_%e142770144144%_ + (gx#stx-pair? _%tl146516147860%_)) + (let ((_%e146517147863%_ (let () (declare (not safe)) - (gx#syntax-e _%tl142769144141%_)))) - (let ((_%tl142772144151%_ + (gx#syntax-e _%tl146516147860%_)))) + (let ((_%tl146519147870%_ (let () (declare (not safe)) - (##cdr _%e142770144144%_))) - (_%hd142771144148%_ + (##cdr _%e146517147863%_))) + (_%hd146518147867%_ (let () (declare (not safe)) - (##car _%e142770144144%_)))) + (##car _%e146517147863%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142772144151%_)) - (let ((_%e142773144154%_ + (gx#stx-pair? _%tl146519147870%_)) + (let ((_%e146520147873%_ (let () (declare (not safe)) - (gx#syntax-e _%tl142772144151%_)))) - (let ((_%tl142775144161%_ + (gx#syntax-e _%tl146519147870%_)))) + (let ((_%tl146522147880%_ (let () (declare (not safe)) - (##cdr _%e142773144154%_))) - (_%hd142774144158%_ + (##cdr _%e146520147873%_))) + (_%hd146521147877%_ (let () (declare (not safe)) - (##car _%e142773144154%_)))) + (##car _%e146520147873%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142775144161%_)) - (let ((_%e142776144164%_ + (gx#stx-pair? _%tl146522147880%_)) + (let ((_%e146523147883%_ (let () (declare (not safe)) (gx#syntax-e - _%tl142775144161%_)))) - (let ((_%tl142778144171%_ + _%tl146522147880%_)))) + (let ((_%tl146525147890%_ (let () (declare (not safe)) - (##cdr _%e142776144164%_))) - (_%hd142777144168%_ + (##cdr _%e146523147883%_))) + (_%hd146524147887%_ (let () (declare (not safe)) - (##car _%e142776144164%_)))) - (_%__match146528146529%_ - _%e142767144134%_ - _%hd142768144138%_ - _%tl142769144141%_ - _%e142770144144%_ - _%hd142771144148%_ - _%tl142772144151%_ - _%e142773144154%_ - _%hd142774144158%_ - _%tl142775144161%_ - _%e142776144164%_ - _%hd142777144168%_ - _%tl142778144171%_))) + (##car _%e146523147883%_)))) + (_%__match150225150226%_ + _%e146514147853%_ + _%hd146515147857%_ + _%tl146516147860%_ + _%e146517147863%_ + _%hd146518147867%_ + _%tl146519147870%_ + _%e146520147873%_ + _%hd146521147877%_ + _%tl146522147880%_ + _%e146523147883%_ + _%hd146524147887%_ + _%tl146525147890%_))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd142771144148%_)) - (let ((_%e142790143810%_ + _%hd146518147867%_)) + (let ((_%e146537147537%_ (let () (declare (not safe)) (gx#stx-e - _%hd142771144148%_)))) - (if (equal? _%e142790143810%_ + _%hd146518147867%_)))) + (if (equal? _%e146537147537%_ '#f) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142774144158%_)) - (let ((_%e142794143824%_ + _%hd146521147877%_)) + (let ((_%e146541147551%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd142774144158%_)))) - (let ((_%tl142796143831%_ + (gx#syntax-e _%hd146521147877%_)))) + (let ((_%tl146543147558%_ (let () (declare (not safe)) - (##cdr _%e142794143824%_))) - (_%hd142795143828%_ + (##cdr _%e146541147551%_))) + (_%hd146542147555%_ (let () (declare (not safe)) - (##car _%e142794143824%_)))) + (##car _%e146541147551%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl142796143831%_)) - (let ((_%__splice146484146485%_ + (gx#stx-pair/null? _%tl146543147558%_)) + (let ((_%__splice150181150182%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl142796143831%_ + _%tl146543147558%_ '0)))) - (let ((_%tl142799143837%_ + (let ((_%tl146546147564%_ (let () (declare (not safe)) - (##vector-ref _%__splice146484146485%_ '1))) - (_%target142797143834%_ + (##vector-ref _%__splice150181150182%_ '1))) + (_%target146544147561%_ (let () (declare (not safe)) (##vector-ref - _%__splice146484146485%_ + _%__splice150181150182%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142799143837%_)) - (_%__match146566146567%_ - _%e142767144134%_ - _%hd142768144138%_ - _%tl142769144141%_ - _%e142770144144%_ - _%hd142771144148%_ - _%tl142772144151%_ - _%e142790143810%_ - _%e142773144154%_ - _%hd142774144158%_ - _%tl142775144161%_ - _%e142794143824%_ - _%hd142795143828%_ - _%tl142796143831%_ - _%__splice146484146485%_ - _%target142797143834%_ - _%tl142799143837%_) + (gx#stx-null? _%tl146546147564%_)) + (_%__match150263150264%_ + _%e146514147853%_ + _%hd146515147857%_ + _%tl146516147860%_ + _%e146517147863%_ + _%hd146518147867%_ + _%tl146519147870%_ + _%e146537147537%_ + _%e146520147873%_ + _%hd146521147877%_ + _%tl146522147880%_ + _%e146541147551%_ + _%hd146542147555%_ + _%tl146543147558%_ + _%__splice150181150182%_ + _%target146544147561%_ + _%tl146546147564%_) (let () (declare (not safe)) - (_%g142761142955%_))))) - (let () (declare (not safe)) (_%g142761142955%_))))) - (let () (declare (not safe)) (_%g142761142955%_))) + (_%g146508146702%_))))) + (let () (declare (not safe)) (_%g146508146702%_))))) + (let () (declare (not safe)) (_%g146508146702%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g142761142955%_)))) + (_%g146508146702%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142771144148%_)) - (let ((_%e142839143405%_ + _%hd146518147867%_)) + (let ((_%e146586147142%_ (let () (declare (not safe)) (gx#syntax-e - _%hd142771144148%_)))) - (let ((_%tl142841143412%_ + _%hd146518147867%_)))) + (let ((_%tl146588147149%_ (let () (declare (not safe)) - (##cdr _%e142839143405%_))) - (_%hd142840143409%_ + (##cdr _%e146586147142%_))) + (_%hd146587147146%_ (let () (declare (not safe)) - (##car _%e142839143405%_)))) + (##car _%e146586147142%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl142841143412%_)) - (let ((_%__splice146490146491%_ + _%tl146588147149%_)) + (let ((_%__splice150187150188%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl142841143412%_ + _%tl146588147149%_ '0)))) - (let ((_%tl142844143418%_ + (let ((_%tl146591147155%_ (let () (declare (not safe)) - (##vector-ref _%__splice146490146491%_ '1))) - (_%target142842143415%_ + (##vector-ref _%__splice150187150188%_ '1))) + (_%target146589147152%_ (let () (declare (not safe)) - (##vector-ref _%__splice146490146491%_ '0)))) + (##vector-ref _%__splice150187150188%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142844143418%_)) - (_%__match146592146593%_ - _%e142767144134%_ - _%hd142768144138%_ - _%tl142769144141%_ - _%e142770144144%_ - _%hd142771144148%_ - _%tl142772144151%_ - _%e142839143405%_ - _%hd142840143409%_ - _%tl142841143412%_ - _%__splice146490146491%_ - _%target142842143415%_ - _%tl142844143418%_) - (let () (declare (not safe)) (_%g142761142955%_))))) - (let () (declare (not safe)) (_%g142761142955%_))))) + (gx#stx-null? _%tl146591147155%_)) + (_%__match150289150290%_ + _%e146514147853%_ + _%hd146515147857%_ + _%tl146516147860%_ + _%e146517147863%_ + _%hd146518147867%_ + _%tl146519147870%_ + _%e146586147142%_ + _%hd146587147146%_ + _%tl146588147149%_ + _%__splice150187150188%_ + _%target146589147152%_ + _%tl146591147155%_) + (let () (declare (not safe)) (_%g146508146702%_))))) + (let () (declare (not safe)) (_%g146508146702%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g142761142955%_))))))) + (_%g146508146702%_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd142771144148%_)) - (let ((_%e142790143810%_ + (gx#stx-datum? _%hd146518147867%_)) + (let ((_%e146537147537%_ (let () (declare (not safe)) - (gx#stx-e _%hd142771144148%_)))) + (gx#stx-e _%hd146518147867%_)))) (declare (not safe)) - (_%g142761142955%_)) + (_%g146508146702%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142771144148%_)) - (let ((_%e142839143405%_ + (gx#stx-pair? _%hd146518147867%_)) + (let ((_%e146586147142%_ (let () (declare (not safe)) (gx#syntax-e - _%hd142771144148%_)))) - (let ((_%tl142841143412%_ + _%hd146518147867%_)))) + (let ((_%tl146588147149%_ (let () (declare (not safe)) - (##cdr _%e142839143405%_))) - (_%hd142840143409%_ + (##cdr _%e146586147142%_))) + (_%hd146587147146%_ (let () (declare (not safe)) - (##car _%e142839143405%_)))) + (##car _%e146586147142%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl142841143412%_)) - (let ((_%__splice146490146491%_ + _%tl146588147149%_)) + (let ((_%__splice150187150188%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl142841143412%_ + _%tl146588147149%_ '0)))) - (let ((_%tl142844143418%_ + (let ((_%tl146591147155%_ (let () (declare (not safe)) (##vector-ref - _%__splice146490146491%_ + _%__splice150187150188%_ '1))) - (_%target142842143415%_ + (_%target146589147152%_ (let () (declare (not safe)) (##vector-ref - _%__splice146490146491%_ + _%__splice150187150188%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142844143418%_)) - (_%__match146592146593%_ - _%e142767144134%_ - _%hd142768144138%_ - _%tl142769144141%_ - _%e142770144144%_ - _%hd142771144148%_ - _%tl142772144151%_ - _%e142839143405%_ - _%hd142840143409%_ - _%tl142841143412%_ - _%__splice146490146491%_ - _%target142842143415%_ - _%tl142844143418%_) + _%tl146591147155%_)) + (_%__match150289150290%_ + _%e146514147853%_ + _%hd146515147857%_ + _%tl146516147860%_ + _%e146517147863%_ + _%hd146518147867%_ + _%tl146519147870%_ + _%e146586147142%_ + _%hd146587147146%_ + _%tl146588147149%_ + _%__splice150187150188%_ + _%target146589147152%_ + _%tl146591147155%_) (let () (declare (not safe)) - (_%g142761142955%_))))) + (_%g146508146702%_))))) (let () (declare (not safe)) - (_%g142761142955%_))))) + (_%g146508146702%_))))) (let () (declare (not safe)) - (_%g142761142955%_))))))) - (let () (declare (not safe)) (_%g142761142955%_))))) - (let () (declare (not safe)) (_%g142761142955%_)))))))) + (_%g146508146702%_))))))) + (let () (declare (not safe)) (_%g146508146702%_))))) + (let () (declare (not safe)) (_%g146508146702%_)))))))) (define |gxc[:0:]#::void-expression| - (let ((__obj146645 + (let ((__obj150342 (let () (declare (not safe)) (##structure @@ -2771,7 +2794,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj146645 + __obj150342 'gxc#::void-expression::t '1 '#f @@ -2779,65 +2802,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj146645 + __obj150342 '::void-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146645 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150342 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146645 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj150342 '() '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146645 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj150342 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146645 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150342 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146645 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150342 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146645 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150342 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146645 '#f '11 '#f '#f)) - (let ((__tmp146761 |gxc[1]#_g146762_|)) + (##unchecked-structure-set! __obj150342 '#f '12 '#f '#f)) + (let ((__tmp150458 |gxc[1]#_g150459_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146645 __tmp146761 '12 '#f '#f)) - (let ((__tmp146763 |gxc[1]#_g146764_|)) + (##unchecked-structure-set! __obj150342 __tmp150458 '3 '#f '#f)) + (let ((__tmp150460 |gxc[1]#_g150461_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146645 __tmp146763 '13 '#f '#f)) - (let ((__tmp146765 |gxc[1]#_g146766_|)) + (##unchecked-structure-set! __obj150342 __tmp150460 '13 '#f '#f)) + (let ((__tmp150462 |gxc[1]#_g150463_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146645 __tmp146765 '14 '#f '#f)) + (##unchecked-structure-set! __obj150342 __tmp150462 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146645 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150342 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146645 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150342 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146645 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150342 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146645 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150342 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146645 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150342 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146645 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150342 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146645 '() '20 '#f '#f)) - __obj146645)) + (##unchecked-structure-set! __obj150342 '() '20 '#f '#f)) + __obj150342)) (define |gxc[:0:]#::void-special-form| - (let ((__obj146646 + (let ((__obj150343 (let () (declare (not safe)) (##structure @@ -2866,7 +2889,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj146646 + __obj150343 'gxc#::void-special-form::t '1 '#f @@ -2874,65 +2897,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj146646 + __obj150343 '::void-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146646 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150343 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146646 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj150343 '() '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146646 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj150343 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146646 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150343 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146646 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150343 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146646 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150343 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146646 '#f '11 '#f '#f)) - (let ((__tmp146767 |gxc[1]#_g146768_|)) + (##unchecked-structure-set! __obj150343 '#f '12 '#f '#f)) + (let ((__tmp150464 |gxc[1]#_g150465_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146646 __tmp146767 '12 '#f '#f)) - (let ((__tmp146769 |gxc[1]#_g146770_|)) + (##unchecked-structure-set! __obj150343 __tmp150464 '3 '#f '#f)) + (let ((__tmp150466 |gxc[1]#_g150467_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146646 __tmp146769 '13 '#f '#f)) - (let ((__tmp146771 |gxc[1]#_g146772_|)) + (##unchecked-structure-set! __obj150343 __tmp150466 '13 '#f '#f)) + (let ((__tmp150468 |gxc[1]#_g150469_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146646 __tmp146771 '14 '#f '#f)) + (##unchecked-structure-set! __obj150343 __tmp150468 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146646 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150343 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146646 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150343 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146646 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150343 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146646 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150343 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146646 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150343 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146646 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150343 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146646 '() '20 '#f '#f)) - __obj146646)) + (##unchecked-structure-set! __obj150343 '() '20 '#f '#f)) + __obj150343)) (define |gxc[:0:]#::void| - (let ((__obj146647 + (let ((__obj150344 (let () (declare (not safe)) (##structure @@ -2960,65 +2983,65 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146647 'gxc#::void::t '1 '#f '#f)) + (##unchecked-structure-set! __obj150344 'gxc#::void::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146647 '::void '2 '#f '#f)) + (##unchecked-structure-set! __obj150344 '::void '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146647 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150344 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146647 '() '6 '#f '#f)) - (let ((__tmp146773 - (cons |gxc[1]#_g146774_| (cons |gxc[1]#_g146775_| '())))) + (##unchecked-structure-set! __obj150344 '() '7 '#f '#f)) + (let ((__tmp150470 + (cons |gxc[1]#_g150471_| (cons |gxc[1]#_g150472_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj146647 __tmp146773 '3 '#f '#f)) + (##unchecked-structure-set! __obj150344 __tmp150470 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146647 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150344 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146647 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150344 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146647 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150344 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146647 '#f '11 '#f '#f)) - (let ((__tmp146776 |gxc[1]#_g146777_|)) + (##unchecked-structure-set! __obj150344 '#f '12 '#f '#f)) + (let ((__tmp150473 |gxc[1]#_g150474_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146647 __tmp146776 '12 '#f '#f)) - (let ((__tmp146778 |gxc[1]#_g146779_|)) + (##unchecked-structure-set! __obj150344 __tmp150473 '3 '#f '#f)) + (let ((__tmp150475 |gxc[1]#_g150476_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146647 __tmp146778 '13 '#f '#f)) - (let ((__tmp146780 |gxc[1]#_g146781_|)) + (##unchecked-structure-set! __obj150344 __tmp150475 '13 '#f '#f)) + (let ((__tmp150477 |gxc[1]#_g150478_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146647 __tmp146780 '14 '#f '#f)) + (##unchecked-structure-set! __obj150344 __tmp150477 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146647 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150344 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146647 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150344 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146647 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150344 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146647 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150344 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146647 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150344 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146647 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150344 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146647 '() '20 '#f '#f)) - __obj146647)) + (##unchecked-structure-set! __obj150344 '() '20 '#f '#f)) + __obj150344)) (define |gxc[:0:]#::false-expression| - (let ((__obj146648 + (let ((__obj150345 (let () (declare (not safe)) (##structure @@ -3047,7 +3070,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj146648 + __obj150345 'gxc#::false-expression::t '1 '#f @@ -3055,65 +3078,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj146648 + __obj150345 '::false-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146648 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150345 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146648 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj150345 '() '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146648 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj150345 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146648 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150345 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146648 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150345 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146648 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150345 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146648 '#f '11 '#f '#f)) - (let ((__tmp146782 |gxc[1]#_g146783_|)) + (##unchecked-structure-set! __obj150345 '#f '12 '#f '#f)) + (let ((__tmp150479 |gxc[1]#_g150480_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146648 __tmp146782 '12 '#f '#f)) - (let ((__tmp146784 |gxc[1]#_g146785_|)) + (##unchecked-structure-set! __obj150345 __tmp150479 '3 '#f '#f)) + (let ((__tmp150481 |gxc[1]#_g150482_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146648 __tmp146784 '13 '#f '#f)) - (let ((__tmp146786 |gxc[1]#_g146787_|)) + (##unchecked-structure-set! __obj150345 __tmp150481 '13 '#f '#f)) + (let ((__tmp150483 |gxc[1]#_g150484_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146648 __tmp146786 '14 '#f '#f)) + (##unchecked-structure-set! __obj150345 __tmp150483 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146648 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150345 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146648 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150345 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146648 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150345 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146648 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150345 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146648 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150345 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146648 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150345 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146648 '() '20 '#f '#f)) - __obj146648)) + (##unchecked-structure-set! __obj150345 '() '20 '#f '#f)) + __obj150345)) (define |gxc[:0:]#::false-special-form| - (let ((__obj146649 + (let ((__obj150346 (let () (declare (not safe)) (##structure @@ -3142,7 +3165,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj146649 + __obj150346 'gxc#::false-special-form::t '1 '#f @@ -3150,65 +3173,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj146649 + __obj150346 '::false-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146649 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150346 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146649 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj150346 '() '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146649 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj150346 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146649 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150346 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146649 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150346 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146649 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150346 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146649 '#f '11 '#f '#f)) - (let ((__tmp146788 |gxc[1]#_g146789_|)) + (##unchecked-structure-set! __obj150346 '#f '12 '#f '#f)) + (let ((__tmp150485 |gxc[1]#_g150486_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146649 __tmp146788 '12 '#f '#f)) - (let ((__tmp146790 |gxc[1]#_g146791_|)) + (##unchecked-structure-set! __obj150346 __tmp150485 '3 '#f '#f)) + (let ((__tmp150487 |gxc[1]#_g150488_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146649 __tmp146790 '13 '#f '#f)) - (let ((__tmp146792 |gxc[1]#_g146793_|)) + (##unchecked-structure-set! __obj150346 __tmp150487 '13 '#f '#f)) + (let ((__tmp150489 |gxc[1]#_g150490_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146649 __tmp146792 '14 '#f '#f)) + (##unchecked-structure-set! __obj150346 __tmp150489 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146649 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150346 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146649 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150346 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146649 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150346 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146649 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150346 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146649 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150346 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146649 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150346 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146649 '() '20 '#f '#f)) - __obj146649)) + (##unchecked-structure-set! __obj150346 '() '20 '#f '#f)) + __obj150346)) (define |gxc[:0:]#::false| - (let ((__obj146650 + (let ((__obj150347 (let () (declare (not safe)) (##structure @@ -3236,65 +3259,65 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146650 'gxc#::false::t '1 '#f '#f)) + (##unchecked-structure-set! __obj150347 'gxc#::false::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146650 '::false '2 '#f '#f)) + (##unchecked-structure-set! __obj150347 '::false '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146650 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150347 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146650 '() '6 '#f '#f)) - (let ((__tmp146794 - (cons |gxc[1]#_g146795_| (cons |gxc[1]#_g146796_| '())))) + (##unchecked-structure-set! __obj150347 '() '7 '#f '#f)) + (let ((__tmp150491 + (cons |gxc[1]#_g150492_| (cons |gxc[1]#_g150493_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj146650 __tmp146794 '3 '#f '#f)) + (##unchecked-structure-set! __obj150347 __tmp150491 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146650 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150347 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146650 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150347 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146650 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150347 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146650 '#f '11 '#f '#f)) - (let ((__tmp146797 |gxc[1]#_g146798_|)) + (##unchecked-structure-set! __obj150347 '#f '12 '#f '#f)) + (let ((__tmp150494 |gxc[1]#_g150495_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146650 __tmp146797 '12 '#f '#f)) - (let ((__tmp146799 |gxc[1]#_g146800_|)) + (##unchecked-structure-set! __obj150347 __tmp150494 '3 '#f '#f)) + (let ((__tmp150496 |gxc[1]#_g150497_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146650 __tmp146799 '13 '#f '#f)) - (let ((__tmp146801 |gxc[1]#_g146802_|)) + (##unchecked-structure-set! __obj150347 __tmp150496 '13 '#f '#f)) + (let ((__tmp150498 |gxc[1]#_g150499_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146650 __tmp146801 '14 '#f '#f)) + (##unchecked-structure-set! __obj150347 __tmp150498 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146650 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150347 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146650 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150347 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146650 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150347 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146650 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150347 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146650 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150347 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146650 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150347 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146650 '() '20 '#f '#f)) - __obj146650)) + (##unchecked-structure-set! __obj150347 '() '20 '#f '#f)) + __obj150347)) (define |gxc[:0:]#::identity-expression| - (let ((__obj146651 + (let ((__obj150348 (let () (declare (not safe)) (##structure @@ -3323,7 +3346,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj146651 + __obj150348 'gxc#::identity-expression::t '1 '#f @@ -3331,65 +3354,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj146651 + __obj150348 '::identity-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146651 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150348 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146651 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj150348 '() '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146651 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj150348 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146651 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150348 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146651 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150348 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146651 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150348 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146651 '#f '11 '#f '#f)) - (let ((__tmp146803 |gxc[1]#_g146804_|)) + (##unchecked-structure-set! __obj150348 '#f '12 '#f '#f)) + (let ((__tmp150500 |gxc[1]#_g150501_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146651 __tmp146803 '12 '#f '#f)) - (let ((__tmp146805 |gxc[1]#_g146806_|)) + (##unchecked-structure-set! __obj150348 __tmp150500 '3 '#f '#f)) + (let ((__tmp150502 |gxc[1]#_g150503_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146651 __tmp146805 '13 '#f '#f)) - (let ((__tmp146807 |gxc[1]#_g146808_|)) + (##unchecked-structure-set! __obj150348 __tmp150502 '13 '#f '#f)) + (let ((__tmp150504 |gxc[1]#_g150505_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146651 __tmp146807 '14 '#f '#f)) + (##unchecked-structure-set! __obj150348 __tmp150504 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146651 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150348 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146651 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150348 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146651 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150348 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146651 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150348 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146651 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150348 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146651 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150348 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146651 '() '20 '#f '#f)) - __obj146651)) + (##unchecked-structure-set! __obj150348 '() '20 '#f '#f)) + __obj150348)) (define |gxc[:0:]#::identity-special-form| - (let ((__obj146652 + (let ((__obj150349 (let () (declare (not safe)) (##structure @@ -3418,7 +3441,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj146652 + __obj150349 'gxc#::identity-special-form::t '1 '#f @@ -3426,65 +3449,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj146652 + __obj150349 '::identity-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146652 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150349 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146652 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj150349 '() '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146652 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj150349 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146652 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150349 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146652 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150349 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146652 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150349 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146652 '#f '11 '#f '#f)) - (let ((__tmp146809 |gxc[1]#_g146810_|)) + (##unchecked-structure-set! __obj150349 '#f '12 '#f '#f)) + (let ((__tmp150506 |gxc[1]#_g150507_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146652 __tmp146809 '12 '#f '#f)) - (let ((__tmp146811 |gxc[1]#_g146812_|)) + (##unchecked-structure-set! __obj150349 __tmp150506 '3 '#f '#f)) + (let ((__tmp150508 |gxc[1]#_g150509_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146652 __tmp146811 '13 '#f '#f)) - (let ((__tmp146813 |gxc[1]#_g146814_|)) + (##unchecked-structure-set! __obj150349 __tmp150508 '13 '#f '#f)) + (let ((__tmp150510 |gxc[1]#_g150511_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146652 __tmp146813 '14 '#f '#f)) + (##unchecked-structure-set! __obj150349 __tmp150510 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146652 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150349 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146652 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150349 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146652 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150349 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146652 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150349 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146652 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150349 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146652 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150349 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146652 '() '20 '#f '#f)) - __obj146652)) + (##unchecked-structure-set! __obj150349 '() '20 '#f '#f)) + __obj150349)) (define |gxc[:0:]#::identity| - (let ((__obj146653 + (let ((__obj150350 (let () (declare (not safe)) (##structure @@ -3513,69 +3536,69 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj146653 + __obj150350 'gxc#::identity::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146653 '::identity '2 '#f '#f)) + (##unchecked-structure-set! __obj150350 '::identity '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146653 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150350 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146653 '() '6 '#f '#f)) - (let ((__tmp146815 - (cons |gxc[1]#_g146816_| (cons |gxc[1]#_g146817_| '())))) + (##unchecked-structure-set! __obj150350 '() '7 '#f '#f)) + (let ((__tmp150512 + (cons |gxc[1]#_g150513_| (cons |gxc[1]#_g150514_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj146653 __tmp146815 '3 '#f '#f)) + (##unchecked-structure-set! __obj150350 __tmp150512 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146653 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150350 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146653 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150350 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146653 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150350 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146653 '#f '11 '#f '#f)) - (let ((__tmp146818 |gxc[1]#_g146819_|)) + (##unchecked-structure-set! __obj150350 '#f '12 '#f '#f)) + (let ((__tmp150515 |gxc[1]#_g150516_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146653 __tmp146818 '12 '#f '#f)) - (let ((__tmp146820 |gxc[1]#_g146821_|)) + (##unchecked-structure-set! __obj150350 __tmp150515 '3 '#f '#f)) + (let ((__tmp150517 |gxc[1]#_g150518_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146653 __tmp146820 '13 '#f '#f)) - (let ((__tmp146822 |gxc[1]#_g146823_|)) + (##unchecked-structure-set! __obj150350 __tmp150517 '13 '#f '#f)) + (let ((__tmp150519 |gxc[1]#_g150520_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146653 __tmp146822 '14 '#f '#f)) + (##unchecked-structure-set! __obj150350 __tmp150519 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146653 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150350 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146653 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150350 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146653 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150350 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146653 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150350 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146653 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150350 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146653 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150350 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146653 '() '20 '#f '#f)) - __obj146653)) + (##unchecked-structure-set! __obj150350 '() '20 '#f '#f)) + __obj150350)) (define |gxc[:0:]#::basic-xform-expression| - (let ((__obj146654 + (let ((__obj150351 (let () (declare (not safe)) (##structure @@ -3604,7 +3627,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj146654 + __obj150351 'gxc#::basic-xform-expression::t '1 '#f @@ -3612,65 +3635,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj146654 + __obj150351 '::basic-xform-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146654 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150351 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146654 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj150351 '() '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146654 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj150351 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146654 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150351 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146654 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150351 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146654 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150351 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146654 '#f '11 '#f '#f)) - (let ((__tmp146824 |gxc[1]#_g146825_|)) + (##unchecked-structure-set! __obj150351 '#f '12 '#f '#f)) + (let ((__tmp150521 |gxc[1]#_g150522_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146654 __tmp146824 '12 '#f '#f)) - (let ((__tmp146826 |gxc[1]#_g146827_|)) + (##unchecked-structure-set! __obj150351 __tmp150521 '3 '#f '#f)) + (let ((__tmp150523 |gxc[1]#_g150524_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146654 __tmp146826 '13 '#f '#f)) - (let ((__tmp146828 |gxc[1]#_g146829_|)) + (##unchecked-structure-set! __obj150351 __tmp150523 '13 '#f '#f)) + (let ((__tmp150525 |gxc[1]#_g150526_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146654 __tmp146828 '14 '#f '#f)) + (##unchecked-structure-set! __obj150351 __tmp150525 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146654 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150351 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146654 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150351 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146654 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150351 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146654 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150351 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146654 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150351 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146654 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150351 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146654 '() '20 '#f '#f)) - __obj146654)) + (##unchecked-structure-set! __obj150351 '() '20 '#f '#f)) + __obj150351)) (define |gxc[:0:]#::basic-xform| - (let ((__obj146655 + (let ((__obj150352 (let () (declare (not safe)) (##structure @@ -3699,64 +3722,64 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj146655 + __obj150352 'gxc#::basic-xform::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146655 '::basic-xform '2 '#f '#f)) + (##unchecked-structure-set! __obj150352 '::basic-xform '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146655 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj150352 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146655 '() '6 '#f '#f)) - (let ((__tmp146830 - (cons |gxc[1]#_g146831_| (cons |gxc[1]#_g146832_| '())))) + (##unchecked-structure-set! __obj150352 '() '7 '#f '#f)) + (let ((__tmp150527 + (cons |gxc[1]#_g150528_| (cons |gxc[1]#_g150529_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj146655 __tmp146830 '3 '#f '#f)) + (##unchecked-structure-set! __obj150352 __tmp150527 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146655 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj150352 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146655 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj150352 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146655 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj150352 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146655 '#f '11 '#f '#f)) - (let ((__tmp146833 |gxc[1]#_g146834_|)) + (##unchecked-structure-set! __obj150352 '#f '12 '#f '#f)) + (let ((__tmp150530 |gxc[1]#_g150531_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146655 __tmp146833 '12 '#f '#f)) - (let ((__tmp146835 |gxc[1]#_g146836_|)) + (##unchecked-structure-set! __obj150352 __tmp150530 '3 '#f '#f)) + (let ((__tmp150532 |gxc[1]#_g150533_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146655 __tmp146835 '13 '#f '#f)) - (let ((__tmp146837 |gxc[1]#_g146838_|)) + (##unchecked-structure-set! __obj150352 __tmp150532 '13 '#f '#f)) + (let ((__tmp150534 |gxc[1]#_g150535_|)) (declare (not safe)) - (##unchecked-structure-set! __obj146655 __tmp146837 '14 '#f '#f)) + (##unchecked-structure-set! __obj150352 __tmp150534 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146655 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj150352 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146655 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj150352 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146655 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj150352 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146655 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj150352 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146655 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj150352 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146655 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj150352 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj146655 '() '20 '#f '#f)) - __obj146655)))) + (##unchecked-structure-set! __obj150352 '() '20 '#f '#f)) + __obj150352)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann~0.scm b/src/bootstrap/gerbil/compiler/optimize-ann~0.scm index 1ff39112df..4f83e0c6c5 100644 --- a/src/bootstrap/gerbil/compiler/optimize-ann~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-ann~0.scm @@ -1,28 +1,28 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-ann::timestamp 1756721300) + (define gerbil/compiler/optimize-ann::timestamp 1769384633) (begin (declare (inlining-limit 200)) (define gxc#::optimize-annotated::t - (let ((__tmp201147 (list gxc#::basic-xform::t)) - (__tmp201146 (cons (cons 'final: '#t) '()))) + (let ((__tmp204588 (list gxc#::basic-xform::t)) + (__tmp204587 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::optimize-annotated::t '::optimize-annotated - __tmp201147 + __tmp204588 '() - __tmp201146 + __tmp204587 '#f))) (define gxc#::optimize-annotated? (let () (declare (not safe)) (__make-class-predicate gxc#::optimize-annotated::t))) (define gxc#make-::optimize-annotated - (lambda _%$args198032%_ - (apply make-instance gxc#::optimize-annotated::t _%$args198032%_))) + (lambda _%$args201473%_ + (apply make-instance gxc#::optimize-annotated::t _%$args201473%_))) (define gxc#::optimize-annotated-bind-methods! - (let ((__tmp201148 + (let ((__tmp204589 (lambda () (force gxc#::basic-xform-bind-methods!) (let () @@ -35,46 +35,46 @@ (declare (not safe)) (__seal-class! gxc#::optimize-annotated::t))))) (declare (not safe)) - (__make-atomic-promise __tmp201148))) + (__make-atomic-promise __tmp204589))) (define gxc#apply-optimize-annotated - (lambda (_%stx198024%_) + (lambda (_%stx201465%_) (force gxc#::optimize-annotated-bind-methods!) - (let* ((_%self198027%_ - (let ((__obj201138 + (let* ((_%self201468%_ + (let ((__obj204579 (let () (declare (not safe)) (##structure gxc#::optimize-annotated::t)))) - __obj201138)) - (__tmp201149 + __obj204579)) + (__tmp204590 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self198027%_ _%stx198024%_))))) + (gxc#compile-e__1 _%self201468%_ _%stx201465%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp201149 + __tmp204590 gxc#current-compile-method - _%self198027%_)))) + _%self201468%_)))) (define gxc#::generate-runtime-repr::t - (let ((__tmp201151 (list gxc#::generate-runtime::t)) - (__tmp201150 (cons (cons 'final: '#t) '()))) + (let ((__tmp204592 (list gxc#::generate-runtime::t)) + (__tmp204591 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-repr::t '::generate-runtime-repr - __tmp201151 + __tmp204592 '() - __tmp201150 + __tmp204591 '#f))) (define gxc#::generate-runtime-repr? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-runtime-repr::t))) (define gxc#make-::generate-runtime-repr - (lambda _%$args198021%_ - (apply make-instance gxc#::generate-runtime-repr::t _%$args198021%_))) + (lambda _%$args201462%_ + (apply make-instance gxc#::generate-runtime-repr::t _%$args201462%_))) (define gxc#::generate-runtime-repr-bind-methods! - (let ((__tmp201152 + (let ((__tmp204593 (lambda () (force gxc#::generate-runtime-bind-methods!) (let () @@ -87,43 +87,43 @@ (declare (not safe)) (__seal-class! gxc#::generate-runtime-repr::t))))) (declare (not safe)) - (__make-atomic-promise __tmp201152))) + (__make-atomic-promise __tmp204593))) (define gxc#apply-generate-runtime-repr - (lambda (_%stx198013%_) + (lambda (_%stx201454%_) (force gxc#::generate-runtime-repr-bind-methods!) - (let* ((_%self198016%_ - (let ((__obj201140 + (let* ((_%self201457%_ + (let ((__obj204581 (let () (declare (not safe)) (##structure gxc#::generate-runtime-repr::t)))) - __obj201140)) - (__tmp201153 + __obj204581)) + (__tmp204594 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self198016%_ _%stx198013%_))))) + (gxc#compile-e__1 _%self201457%_ _%stx201454%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp201153 + __tmp204594 gxc#current-compile-method - _%self198016%_)))) + _%self201457%_)))) (define gxc#::push-match-vars::t - (let ((__tmp201155 (list)) (__tmp201154 (cons (cons 'final: '#t) '()))) + (let ((__tmp204596 (list)) (__tmp204595 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::push-match-vars::t '::push-match-vars - __tmp201155 + __tmp204596 '(vars K) - __tmp201154 + __tmp204595 '#f))) (define gxc#::push-match-vars? (let () (declare (not safe)) (__make-class-predicate gxc#::push-match-vars::t))) (define gxc#make-::push-match-vars - (lambda _%$args198010%_ - (apply make-instance gxc#::push-match-vars::t _%$args198010%_))) + (lambda _%$args201451%_ + (apply make-instance gxc#::push-match-vars::t _%$args201451%_))) (define gxc#::push-match-vars-vars (let () (declare (not safe)) @@ -157,7 +157,7 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#::push-match-vars::t 'K))) (define gxc#::push-match-vars-bind-methods! - (let ((__tmp201156 + (let ((__tmp204597 (lambda () (let () (declare (not safe)) @@ -199,1646 +199,1655 @@ (declare (not safe)) (__seal-class! gxc#::push-match-vars::t))))) (declare (not safe)) - (__make-atomic-promise __tmp201156))) + (__make-atomic-promise __tmp204597))) (define gxc#apply-push-match-vars__% - (lambda (_%@@keywords197980%_ - _%vars197976197981%_ - _%K197977197983%_ - _%stx197985%_) - (let* ((_%vars197988%_ - (if (eq? _%vars197976197981%_ absent-value) + (lambda (_%@@keywords201423%_ + _%vars201419201424%_ + _%K201420201425%_ + _%stx201426%_) + (let* ((_%vars201429%_ + (if (eq? _%vars201419201424%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'vars:)) - _%vars197976197981%_)) - (_%K197990%_ - (if (eq? _%K197977197983%_ absent-value) + _%vars201419201424%_)) + (_%K201431%_ + (if (eq? _%K201420201425%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'K:)) - _%K197977197983%_))) + _%K201420201425%_))) (force gxc#::push-match-vars-bind-methods!) - (let* ((_%self197992%_ - (let ((__obj201142 + (let* ((_%self201433%_ + (let ((__obj204583 (let () (declare (not safe)) (##structure gxc#::push-match-vars::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj201142 - _%vars197988%_ + __obj204583 + _%vars201429%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj201142 - _%K197990%_ + __obj204583 + _%K201431%_ '2 '#f '#f)) - __obj201142)) - (__tmp201157 + __obj204583)) + (__tmp204598 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self197992%_ _%stx197985%_))))) + (gxc#compile-e__1 _%self201433%_ _%stx201426%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp201157 + __tmp204598 gxc#current-compile-method - _%self197992%_))))) + _%self201433%_))))) (define gxc#apply-push-match-vars__@ - (lambda (_%@@keywords197999%_ . _%args198000%_) + (lambda (_%@@keywords201440%_ . _%args201441%_) (apply gxc#apply-push-match-vars__% - _%@@keywords197999%_ + _%@@keywords201440%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords197999%_ 'vars: absent-value)) + (symbolic-table-ref _%@@keywords201440%_ 'vars: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords197999%_ 'K: absent-value)) - _%args198000%_))) + (symbolic-table-ref _%@@keywords201440%_ 'K: absent-value)) + _%args201441%_))) (define gxc#apply-push-match-vars - (lambda _%args197978198006%_ + (lambda _%args201421201447%_ (apply keyword-dispatch '#(K: vars:) gxc#apply-push-match-vars__@ - _%args197978198006%_))) + _%args201421201447%_))) (define gxc#current-annotation-optimizer (make-parameter '())) (define gxc#optimize-annotation% - (lambda (_%self197892%_ _%stx197893%_) - (let* ((_%__stx198048198049%_ _%stx197893%_) - (_%g197896197913%_ + (lambda (_%self201335%_ _%stx201336%_) + (let* ((_%__stx201489201490%_ _%stx201336%_) + (_%g201339201356%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx198048198049%_))))) - (let ((_%__kont198050198051%_ - (lambda (_%L197949%_ _%L197950%_) - (let ((_%ann197966%_ + _%__stx201489201490%_))))) + (let ((_%__kont201491201492%_ + (lambda (_%g201341201392%_ _%g201342201393%_) + (let ((_%ann201409%_ (let () (declare (not safe)) - (gx#stx-e _%L197950%_)))) - (let ((__tmp201159 + (gx#stx-e _%g201342201393%_)))) + (let ((__tmp204600 (lambda () - (let ((_%$e197969%_ _%ann197966%_)) - (if (eq? '@match _%$e197969%_) + (let ((_%$e201412%_ _%ann201409%_)) + (if (eq? '@match _%$e201412%_) (begin (let () (declare (not safe)) (gxc#verbose '"Optimizing match expansion")) - (gxc#optimize-match _%L197949%_)) - (if (eq? '@syntax-case _%$e197969%_) + (gxc#optimize-match _%g201341201392%_)) + (if (eq? '@syntax-case _%$e201412%_) (begin (let () (declare (not safe)) (gxc#verbose '"Optimizing syntax-case expansion")) (gxc#optimize-syntax-case - _%L197949%_)) + _%g201341201392%_)) (let () (declare (not safe)) - (gxc#compile-e__0 _%L197949%_))))))) - (__tmp201158 - (cons _%ann197966%_ + (gxc#compile-e__0 + _%g201341201392%_))))))) + (__tmp204599 + (cons _%ann201409%_ (let () (declare (not safe)) (gxc#current-annotation-optimizer))))) (declare (not safe)) (call-with-parameters__1 - __tmp201159 + __tmp204600 gxc#current-annotation-optimizer - __tmp201158))))) - (_%__kont198052198053%_ + __tmp204599))))) + (_%__kont201493201494%_ (lambda () (let () (declare (not safe)) (gxc#xform-begin-annotation% - _%self197892%_ - _%stx197893%_))))) - (let ((_%__match198073198074%_ - (lambda (_%e197900197925%_ - _%hd197901197928%_ - _%tl197902197930%_ - _%e197903197933%_ - _%hd197904197936%_ - _%tl197905197938%_ - _%e197906197941%_ - _%hd197907197944%_ - _%tl197908197946%_) - (let ((_%L197949%_ _%hd197907197944%_) - (_%L197950%_ _%hd197904197936%_)) + _%self201335%_ + _%stx201336%_))))) + (let ((_%__match201514201515%_ + (lambda (_%e201343201368%_ + _%hd201344201371%_ + _%tl201345201373%_ + _%e201346201376%_ + _%hd201347201379%_ + _%tl201348201381%_ + _%e201349201384%_ + _%hd201350201387%_ + _%tl201351201389%_) + (let ((_%g201341201392%_ _%hd201350201387%_) + (_%g201342201393%_ _%hd201347201379%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L197950%_)) - (_%__kont198050198051%_ _%L197949%_ _%L197950%_) - (_%__kont198052198053%_)))))) + (gx#identifier? _%g201342201393%_)) + (_%__kont201491201492%_ + _%g201341201392%_ + _%g201342201393%_) + (_%__kont201493201494%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx198048198049%_)) - (let ((_%e197900197925%_ + (gx#stx-pair? _%__stx201489201490%_)) + (let ((_%e201343201368%_ (let () (declare (not safe)) - (gx#stx-e _%__stx198048198049%_)))) - (let ((_%tl197902197930%_ + (gx#stx-e _%__stx201489201490%_)))) + (let ((_%tl201345201373%_ (let () (declare (not safe)) - (##cdr _%e197900197925%_))) - (_%hd197901197928%_ + (##cdr _%e201343201368%_))) + (_%hd201344201371%_ (let () (declare (not safe)) - (##car _%e197900197925%_)))) + (##car _%e201343201368%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197902197930%_)) - (let ((_%e197903197933%_ + (gx#stx-pair? _%tl201345201373%_)) + (let ((_%e201346201376%_ (let () (declare (not safe)) - (gx#stx-e _%tl197902197930%_)))) - (let ((_%tl197905197938%_ + (gx#stx-e _%tl201345201373%_)))) + (let ((_%tl201348201381%_ (let () (declare (not safe)) - (##cdr _%e197903197933%_))) - (_%hd197904197936%_ + (##cdr _%e201346201376%_))) + (_%hd201347201379%_ (let () (declare (not safe)) - (##car _%e197903197933%_)))) + (##car _%e201346201376%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197905197938%_)) - (let ((_%e197906197941%_ + (gx#stx-pair? _%tl201348201381%_)) + (let ((_%e201349201384%_ (let () (declare (not safe)) - (gx#stx-e _%tl197905197938%_)))) - (let ((_%tl197908197946%_ + (gx#stx-e _%tl201348201381%_)))) + (let ((_%tl201351201389%_ (let () (declare (not safe)) - (##cdr _%e197906197941%_))) - (_%hd197907197944%_ + (##cdr _%e201349201384%_))) + (_%hd201350201387%_ (let () (declare (not safe)) - (##car _%e197906197941%_)))) + (##car _%e201349201384%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197908197946%_)) - (_%__match198073198074%_ - _%e197900197925%_ - _%hd197901197928%_ - _%tl197902197930%_ - _%e197903197933%_ - _%hd197904197936%_ - _%tl197905197938%_ - _%e197906197941%_ - _%hd197907197944%_ - _%tl197908197946%_) - (_%__kont198052198053%_)))) - (_%__kont198052198053%_)))) - (_%__kont198052198053%_)))) - (_%__kont198052198053%_))))))) + (gx#stx-null? _%tl201351201389%_)) + (_%__match201514201515%_ + _%e201343201368%_ + _%hd201344201371%_ + _%tl201345201373%_ + _%e201346201376%_ + _%hd201347201379%_ + _%tl201348201381%_ + _%e201349201384%_ + _%hd201350201387%_ + _%tl201351201389%_) + (_%__kont201493201494%_)))) + (_%__kont201493201494%_)))) + (_%__kont201493201494%_)))) + (_%__kont201493201494%_))))))) (define gxc#optimize-match - (lambda (_%stx197191%_) - (let* ((_%g197193197223%_ - (lambda (_%g197194197220%_) + (lambda (_%stx200636%_) + (let* ((_%g200638200668%_ + (lambda (_%g200639200665%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g197194197220%_)))) - (_%g197192197889%_ - (lambda (_%g197194197226%_) + _%g200639200665%_)))) + (_%g200637201332%_ + (lambda (_%g200639200671%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g197194197226%_)) - (let ((_%e197198197228%_ + (gx#stx-pair? _%g200639200671%_)) + (let ((_%e200643200673%_ (let () (declare (not safe)) - (gx#stx-e _%g197194197226%_)))) - (let ((_%hd197199197231%_ + (gx#stx-e _%g200639200671%_)))) + (let ((_%hd200644200676%_ (let () (declare (not safe)) - (##car _%e197198197228%_))) - (_%tl197200197233%_ + (##car _%e200643200673%_))) + (_%tl200645200678%_ (let () (declare (not safe)) - (##cdr _%e197198197228%_)))) + (##cdr _%e200643200673%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd197199197231%_)) + (gx#identifier? _%hd200644200676%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd197199197231%_)) + _%hd200644200676%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197200197233%_)) - (let ((_%e197201197236%_ + (gx#stx-pair? _%tl200645200678%_)) + (let ((_%e200646200681%_ (let () (declare (not safe)) - (gx#stx-e _%tl197200197233%_)))) - (let ((_%hd197202197239%_ + (gx#stx-e _%tl200645200678%_)))) + (let ((_%hd200647200684%_ (let () (declare (not safe)) - (##car _%e197201197236%_))) - (_%tl197203197241%_ + (##car _%e200646200681%_))) + (_%tl200648200686%_ (let () (declare (not safe)) - (##cdr _%e197201197236%_)))) + (##cdr _%e200646200681%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd197202197239%_)) - (let ((_%e197204197244%_ + _%hd200647200684%_)) + (let ((_%e200649200689%_ (let () (declare (not safe)) (gx#stx-e - _%hd197202197239%_)))) - (let ((_%hd197205197247%_ + _%hd200647200684%_)))) + (let ((_%hd200650200692%_ (let () (declare (not safe)) - (##car _%e197204197244%_))) - (_%tl197206197249%_ + (##car _%e200649200689%_))) + (_%tl200651200694%_ (let () (declare (not safe)) - (##cdr _%e197204197244%_)))) + (##cdr _%e200649200689%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd197205197247%_)) - (let ((_%e197207197252%_ + _%hd200650200692%_)) + (let ((_%e200652200697%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd197205197247%_)))) - (let ((_%hd197208197255%_ - (let () (declare (not safe)) (##car _%e197207197252%_))) - (_%tl197209197257%_ + (gx#stx-e _%hd200650200692%_)))) + (let ((_%hd200653200700%_ + (let () (declare (not safe)) (##car _%e200652200697%_))) + (_%tl200654200702%_ (let () (declare (not safe)) - (##cdr _%e197207197252%_)))) + (##cdr _%e200652200697%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd197208197255%_)) - (let ((_%e197210197260%_ + (gx#stx-pair? _%hd200653200700%_)) + (let ((_%e200655200705%_ (let () (declare (not safe)) - (gx#stx-e _%hd197208197255%_)))) - (let ((_%hd197211197263%_ + (gx#stx-e _%hd200653200700%_)))) + (let ((_%hd200656200708%_ (let () (declare (not safe)) - (##car _%e197210197260%_))) - (_%tl197212197265%_ + (##car _%e200655200705%_))) + (_%tl200657200710%_ (let () (declare (not safe)) - (##cdr _%e197210197260%_)))) + (##cdr _%e200655200705%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197212197265%_)) + (gx#stx-null? _%tl200657200710%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197209197257%_)) - (let ((_%e197213197268%_ + (gx#stx-pair? _%tl200654200702%_)) + (let ((_%e200658200713%_ (let () (declare (not safe)) - (gx#stx-e _%tl197209197257%_)))) - (let ((_%hd197214197271%_ + (gx#stx-e _%tl200654200702%_)))) + (let ((_%hd200659200716%_ (let () (declare (not safe)) - (##car _%e197213197268%_))) - (_%tl197215197273%_ + (##car _%e200658200713%_))) + (_%tl200660200718%_ (let () (declare (not safe)) - (##cdr _%e197213197268%_)))) + (##cdr _%e200658200713%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197215197273%_)) + (gx#stx-null? _%tl200660200718%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197206197249%_)) + _%tl200651200694%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197203197241%_)) - (let ((_%e197216197276%_ + _%tl200648200686%_)) + (let ((_%e200661200721%_ (let () (declare (not safe)) (gx#stx-e - _%tl197203197241%_)))) - (let ((_%hd197217197279%_ + _%tl200648200686%_)))) + (let ((_%hd200662200724%_ (let () (declare (not safe)) - (##car _%e197216197276%_))) - (_%tl197218197281%_ + (##car _%e200661200721%_))) + (_%tl200663200726%_ (let () (declare (not safe)) - (##cdr _%e197216197276%_)))) + (##cdr _%e200661200721%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197218197281%_)) - ((lambda (_%L197284%_ + _%tl200663200726%_)) + ((lambda (_%g200640200729%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L197285%_ - _%L197286%_) - (let _%lp197310%_ ((_%body197312%_ _%L197284%_) - (_%negation197313%_ - (cons _%L197286%_ _%L197285%_)) - (_%clauses197314%_ '()) - (_%konts197315%_ '())) - (let* ((_%__stx198256198257%_ _%body197312%_) - (_%g197318197358%_ + _%g200641200730%_ + _%g200642200731%_) + (let _%lp200755%_ ((_%body200757%_ _%g200640200729%_) + (_%negation200758%_ + (cons _%g200642200731%_ + _%g200641200730%_)) + (_%clauses200759%_ '()) + (_%konts200760%_ '())) + (let* ((_%__stx201697201698%_ _%body200757%_) + (_%g200763200803%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx198256198257%_))))) - (let ((_%__kont198258198259%_ - (lambda (_%L197688%_) - (let* ((_%__stx198192198193%_ _%L197688%_) - (_%g197702197732%_ + _%__stx201697201698%_))))) + (let ((_%__kont201699201700%_ + (lambda (_%g200765201133%_) + (let* ((_%__stx201633201634%_ + _%g200765201133%_) + (_%g201147201177%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx198192198193%_))))) - (let ((_%__kont198194198195%_ - (lambda (_%L197828%_ - _%L197829%_ - _%L197830%_) - (if (null? _%clauses197314%_) - (let* ((_%negation197854197861%_ - _%negation197313%_) - (_%E197856197865%_ + _%__stx201633201634%_))))) + (let ((_%__kont201635201636%_ + (lambda (_%g201149201272%_ + _%g201150201273%_ + _%g201151201274%_) + (if (null? _%clauses200759%_) + (let* ((_%negation201298201305%_ + _%negation200758%_) + (_%E201300201308%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%negation197854197861%_ + _%negation201298201305%_ '([E . negate]))) '#!void)) - (_%K197857197871%_ - (lambda (_%negate197868%_ _%E197869%_) - (let ((__tmp201160 + (_%K201301201314%_ + (lambda (_%negate201311%_ _%E201312%_) + (let ((__tmp204601 (cons '%#let-values - (cons (cons (cons (cons _%E197869%_ '()) - (cons _%negate197868%_ '())) + (cons (cons (cons (cons _%E201312%_ '()) + (cons _%negate201311%_ '())) '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L197830%_ + (cons (cons (cons (cons _%g201151201274%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%L197829%_)) + (gxc#compile-e__0 _%g201150201273%_)) '())) '()) - (cons _%L197828%_ '()))) + (cons _%g201149201272%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp201160 _%stx197191%_))))) + (gxc#xform-wrap-source __tmp204601 _%stx200636%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%negation197854197861%_) - (let ((_%hd197858197874%_ + (if (pair? _%negation201298201305%_) + (let ((_%hd201302201317%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%negation197854197861%_))) - (_%tl197859197876%_ + (##car _%negation201298201305%_))) + (_%tl201303201319%_ (let () (declare (not safe)) - (##cdr _%negation197854197861%_)))) - (let* ((_%E197879%_ _%hd197858197874%_) - (_%negate197881%_ _%tl197859197876%_)) - (_%K197857197871%_ _%negate197881%_ _%E197879%_))) - (_%E197856197865%_))) + (##cdr _%negation201298201305%_)))) + (let* ((_%E201322%_ _%hd201302201317%_) + (_%negate201324%_ _%tl201303201319%_)) + (_%K201301201314%_ _%negate201324%_ _%E201322%_))) + (_%E201300201308%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gxc#optimize-match-body - _%stx197191%_ - _%negation197313%_ + _%stx200636%_ + _%negation200758%_ (cons (cons '#f (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons '() (cons _%L197828%_ '())))) - _%clauses197314%_) + (cons '() (cons _%g201149201272%_ '())))) + _%clauses200759%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L197830%_ + (cons (cons _%g201151201274%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _%L197829%_))) - _%konts197315%_))))) + (gxc#compile-e__0 _%g201150201273%_))) + _%konts200760%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198196198197%_ + (_%__kont201637201638%_ (lambda () - (let* ((_%negation197738197745%_ - _%negation197313%_) - (_%E197740197749%_ + (let* ((_%negation201183201190%_ + _%negation200758%_) + (_%E201185201193%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%negation197738197745%_ + _%negation201183201190%_ '([E ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< . negate]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K197741197755%_ - (lambda (_%negate197752%_ - _%E197753%_) - (let ((__tmp201161 + (_%K201186201199%_ + (lambda (_%negate201196%_ + _%E201197%_) + (let ((__tmp204602 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%E197753%_ '()) - (cons _%negate197752%_ '())) + (cons (cons (cons (cons _%E201197%_ '()) + (cons _%negate201196%_ '())) '()) - (cons _%L197688%_ '()))))) + (cons _%g200765201133%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp201161 _%stx197191%_))))) + (gxc#xform-wrap-source __tmp204602 _%stx200636%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%negation197738197745%_) - (let ((_%hd197742197758%_ + (if (pair? _%negation201183201190%_) + (let ((_%hd201187201202%_ (let () (declare (not safe)) - (##car _%negation197738197745%_))) - (_%tl197743197760%_ + (##car _%negation201183201190%_))) + (_%tl201188201204%_ (let () (declare (not safe)) - (##cdr _%negation197738197745%_)))) - (let* ((_%E197763%_ - _%hd197742197758%_) - (_%negate197765%_ - _%tl197743197760%_)) - (_%K197741197755%_ - _%negate197765%_ - _%E197763%_))) - (_%E197740197749%_)))))) - (let ((_%g197701197767%_ + (##cdr _%negation201183201190%_)))) + (let* ((_%E201207%_ + _%hd201187201202%_) + (_%negate201209%_ + _%tl201188201204%_)) + (_%K201186201199%_ + _%negate201209%_ + _%E201207%_))) + (_%E201185201193%_)))))) + (let ((_%g201146201211%_ (lambda () - (if (null? _%clauses197314%_) - (_%__kont198196198197%_) + (if (null? _%clauses200759%_) + (_%__kont201637201638%_) (let () (declare (not safe)) - (_%g197702197732%_)))))) + (_%g201147201177%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx198192198193%_)) - (let ((_%e197707197772%_ + _%__stx201633201634%_)) + (let ((_%e201152201216%_ (let () (declare (not safe)) (gx#stx-e - _%__stx198192198193%_)))) - (let ((_%tl197709197777%_ + _%__stx201633201634%_)))) + (let ((_%tl201154201221%_ (let () (declare (not safe)) - (##cdr _%e197707197772%_))) - (_%hd197708197775%_ + (##cdr _%e201152201216%_))) + (_%hd201153201219%_ (let () (declare (not safe)) - (##car _%e197707197772%_)))) + (##car _%e201152201216%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd197708197775%_)) + _%hd201153201219%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd197708197775%_)) + _%hd201153201219%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197709197777%_)) - (let ((_%e197710197780%_ + _%tl201154201221%_)) + (let ((_%e201155201224%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl197709197777%_)))) - (let ((_%tl197712197785%_ + (gx#stx-e _%tl201154201221%_)))) + (let ((_%tl201157201229%_ (let () (declare (not safe)) - (##cdr _%e197710197780%_))) - (_%hd197711197783%_ + (##cdr _%e201155201224%_))) + (_%hd201156201227%_ (let () (declare (not safe)) - (##car _%e197710197780%_)))) + (##car _%e201155201224%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd197711197783%_)) - (let ((_%e197713197788%_ + (gx#stx-pair? _%hd201156201227%_)) + (let ((_%e201158201232%_ (let () (declare (not safe)) - (gx#stx-e _%hd197711197783%_)))) - (let ((_%tl197715197793%_ + (gx#stx-e _%hd201156201227%_)))) + (let ((_%tl201160201237%_ (let () (declare (not safe)) - (##cdr _%e197713197788%_))) - (_%hd197714197791%_ + (##cdr _%e201158201232%_))) + (_%hd201159201235%_ (let () (declare (not safe)) - (##car _%e197713197788%_)))) + (##car _%e201158201232%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd197714197791%_)) - (let ((_%e197716197796%_ + (gx#stx-pair? _%hd201159201235%_)) + (let ((_%e201161201240%_ (let () (declare (not safe)) - (gx#stx-e _%hd197714197791%_)))) - (let ((_%tl197718197801%_ + (gx#stx-e _%hd201159201235%_)))) + (let ((_%tl201163201245%_ (let () (declare (not safe)) - (##cdr _%e197716197796%_))) - (_%hd197717197799%_ + (##cdr _%e201161201240%_))) + (_%hd201162201243%_ (let () (declare (not safe)) - (##car _%e197716197796%_)))) + (##car _%e201161201240%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd197717197799%_)) - (let ((_%e197719197804%_ + _%hd201162201243%_)) + (let ((_%e201164201248%_ (let () (declare (not safe)) (gx#stx-e - _%hd197717197799%_)))) - (let ((_%tl197721197809%_ + _%hd201162201243%_)))) + (let ((_%tl201166201253%_ (let () (declare (not safe)) - (##cdr _%e197719197804%_))) - (_%hd197720197807%_ + (##cdr _%e201164201248%_))) + (_%hd201165201251%_ (let () (declare (not safe)) - (##car _%e197719197804%_)))) + (##car _%e201164201248%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197721197809%_)) + _%tl201166201253%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197718197801%_)) - (let ((_%e197722197812%_ + _%tl201163201245%_)) + (let ((_%e201167201256%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl197718197801%_)))) - (let ((_%tl197724197817%_ + (gx#stx-e _%tl201163201245%_)))) + (let ((_%tl201169201261%_ (let () (declare (not safe)) - (##cdr _%e197722197812%_))) - (_%hd197723197815%_ + (##cdr _%e201167201256%_))) + (_%hd201168201259%_ (let () (declare (not safe)) - (##car _%e197722197812%_)))) + (##car _%e201167201256%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197724197817%_)) + (gx#stx-null? _%tl201169201261%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197715197793%_)) + (gx#stx-null? _%tl201160201237%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197712197785%_)) - (let ((_%e197725197820%_ + (gx#stx-pair? _%tl201157201229%_)) + (let ((_%e201170201264%_ (let () (declare (not safe)) - (gx#stx-e _%tl197712197785%_)))) - (let ((_%tl197727197825%_ + (gx#stx-e _%tl201157201229%_)))) + (let ((_%tl201172201269%_ (let () (declare (not safe)) - (##cdr _%e197725197820%_))) - (_%hd197726197823%_ + (##cdr _%e201170201264%_))) + (_%hd201171201267%_ (let () (declare (not safe)) - (##car _%e197725197820%_)))) + (##car _%e201170201264%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197727197825%_)) - (_%__kont198194198195%_ - _%hd197726197823%_ - _%hd197723197815%_ - _%hd197720197807%_) + (gx#stx-null? _%tl201172201269%_)) + (_%__kont201635201636%_ + _%hd201171201267%_ + _%hd201168201259%_ + _%hd201165201251%_) (let () (declare (not safe)) - (_%g197701197767%_))))) + (_%g201146201211%_))))) (let () (declare (not safe)) - (_%g197701197767%_))) - (let () (declare (not safe)) (_%g197701197767%_))) - (let () (declare (not safe)) (_%g197701197767%_))))) - (let () (declare (not safe)) (_%g197701197767%_))) + (_%g201146201211%_))) + (let () (declare (not safe)) (_%g201146201211%_))) + (let () (declare (not safe)) (_%g201146201211%_))))) + (let () (declare (not safe)) (_%g201146201211%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g197701197767%_))))) + (_%g201146201211%_))))) (let () (declare (not safe)) - (_%g197701197767%_))))) + (_%g201146201211%_))))) (let () (declare (not safe)) - (_%g197701197767%_))))) + (_%g201146201211%_))))) (let () (declare (not safe)) - (_%g197701197767%_))))) - (let () (declare (not safe)) (_%g197701197767%_))) - (let () (declare (not safe)) (_%g197701197767%_))) + (_%g201146201211%_))))) + (let () (declare (not safe)) (_%g201146201211%_))) + (let () (declare (not safe)) (_%g201146201211%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g197701197767%_))))) + (_%g201146201211%_))))) (let () (declare (not safe)) - (_%g197701197767%_)))))))) - (_%__kont198260198261%_ - (lambda (_%L197419%_ _%L197420%_ _%L197421%_) - (let* ((_%__stx198076198077%_ _%L197420%_) - (_%g197448197497%_ + (_%g201146201211%_)))))))) + (_%__kont201701201702%_ + (lambda (_%g200775200864%_ + _%g200776200865%_ + _%g200777200866%_) + (let* ((_%__stx201517201518%_ + _%g200776200865%_) + (_%g200893200942%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx198076198077%_))))) - (let ((_%__kont198078198079%_ - (lambda (_%L197625%_ - _%L197626%_ - _%L197627%_) - (_%lp197310%_ - _%L197419%_ - _%negation197313%_ - (cons (cons _%L197421%_ + _%__stx201517201518%_))))) + (let ((_%__kont201519201520%_ + (lambda (_%g200895201070%_ + _%g200896201071%_ + _%g200897201072%_) + (_%lp200755%_ + _%g200775200864%_ + _%negation200758%_ + (cons (cons _%g200777200866%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons '() (cons _%L197625%_ '())))) + (cons '() (cons _%g200895201070%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clauses197314%_) - (cons (cons _%L197627%_ + _%clauses200759%_) + (cons (cons _%g200897201072%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L197626%_))) - _%konts197315%_)))) - (_%__kont198080198081%_ - (lambda (_%L197526%_) - (_%lp197310%_ - _%L197419%_ - (cons _%L197421%_ + _%g200896201071%_))) + _%konts200760%_)))) + (_%__kont201521201522%_ + (lambda (_%g200928200971%_) + (_%lp200755%_ + _%g200775200864%_ + (cons _%g200777200866%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L197526%_))) - _%clauses197314%_ - _%konts197315%_)))) + _%g200928200971%_))) + _%clauses200759%_ + _%konts200760%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx198076198077%_)) - (let ((_%e197453197545%_ + _%__stx201517201518%_)) + (let ((_%e200898200990%_ (let () (declare (not safe)) (gx#stx-e - _%__stx198076198077%_)))) - (let ((_%tl197455197550%_ + _%__stx201517201518%_)))) + (let ((_%tl200900200995%_ (let () (declare (not safe)) - (##cdr _%e197453197545%_))) - (_%hd197454197548%_ + (##cdr _%e200898200990%_))) + (_%hd200899200993%_ (let () (declare (not safe)) - (##car _%e197453197545%_)))) + (##car _%e200898200990%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd197454197548%_)) + _%hd200899200993%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd197454197548%_)) + _%hd200899200993%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197455197550%_)) - (let ((_%e197456197553%_ + _%tl200900200995%_)) + (let ((_%e200901200998%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl197455197550%_)))) - (let ((_%tl197458197558%_ + (gx#stx-e _%tl200900200995%_)))) + (let ((_%tl200903201003%_ (let () (declare (not safe)) - (##cdr _%e197456197553%_))) - (_%hd197457197556%_ + (##cdr _%e200901200998%_))) + (_%hd200902201001%_ (let () (declare (not safe)) - (##car _%e197456197553%_)))) + (##car _%e200901200998%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%hd197457197556%_)) + (gx#stx-null? _%hd200902201001%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197458197558%_)) - (let ((_%e197459197561%_ + (gx#stx-pair? _%tl200903201003%_)) + (let ((_%e200904201006%_ (let () (declare (not safe)) - (gx#stx-e _%tl197458197558%_)))) - (let ((_%tl197461197566%_ + (gx#stx-e _%tl200903201003%_)))) + (let ((_%tl200906201011%_ (let () (declare (not safe)) - (##cdr _%e197459197561%_))) - (_%hd197460197564%_ + (##cdr _%e200904201006%_))) + (_%hd200905201009%_ (let () (declare (not safe)) - (##car _%e197459197561%_)))) + (##car _%e200904201006%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd197460197564%_)) - (let ((_%e197462197569%_ + (gx#stx-pair? _%hd200905201009%_)) + (let ((_%e200907201014%_ (let () (declare (not safe)) - (gx#stx-e _%hd197460197564%_)))) - (let ((_%tl197464197574%_ + (gx#stx-e _%hd200905201009%_)))) + (let ((_%tl200909201019%_ (let () (declare (not safe)) - (##cdr _%e197462197569%_))) - (_%hd197463197572%_ + (##cdr _%e200907201014%_))) + (_%hd200908201017%_ (let () (declare (not safe)) - (##car _%e197462197569%_)))) + (##car _%e200907201014%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd197463197572%_)) + _%hd200908201017%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd197463197572%_)) + _%hd200908201017%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197464197574%_)) - (let ((_%e197465197577%_ + _%tl200909201019%_)) + (let ((_%e200910201022%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl197464197574%_)))) - (let ((_%tl197467197582%_ - (let () (declare (not safe)) (##cdr _%e197465197577%_))) - (_%hd197466197580%_ + (gx#stx-e _%tl200909201019%_)))) + (let ((_%tl200912201027%_ + (let () (declare (not safe)) (##cdr _%e200910201022%_))) + (_%hd200911201025%_ (let () (declare (not safe)) - (##car _%e197465197577%_)))) + (##car _%e200910201022%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd197466197580%_)) - (let ((_%e197468197585%_ + (gx#stx-pair? _%hd200911201025%_)) + (let ((_%e200913201030%_ (let () (declare (not safe)) - (gx#stx-e _%hd197466197580%_)))) - (let ((_%tl197470197590%_ + (gx#stx-e _%hd200911201025%_)))) + (let ((_%tl200915201035%_ (let () (declare (not safe)) - (##cdr _%e197468197585%_))) - (_%hd197469197588%_ + (##cdr _%e200913201030%_))) + (_%hd200914201033%_ (let () (declare (not safe)) - (##car _%e197468197585%_)))) + (##car _%e200913201030%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd197469197588%_)) - (let ((_%e197471197593%_ + (gx#stx-pair? _%hd200914201033%_)) + (let ((_%e200916201038%_ (let () (declare (not safe)) - (gx#stx-e _%hd197469197588%_)))) - (let ((_%tl197473197598%_ + (gx#stx-e _%hd200914201033%_)))) + (let ((_%tl200918201043%_ (let () (declare (not safe)) - (##cdr _%e197471197593%_))) - (_%hd197472197596%_ + (##cdr _%e200916201038%_))) + (_%hd200917201041%_ (let () (declare (not safe)) - (##car _%e197471197593%_)))) + (##car _%e200916201038%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd197472197596%_)) - (let ((_%e197474197601%_ + (gx#stx-pair? _%hd200917201041%_)) + (let ((_%e200919201046%_ (let () (declare (not safe)) - (gx#stx-e _%hd197472197596%_)))) - (let ((_%tl197476197606%_ + (gx#stx-e _%hd200917201041%_)))) + (let ((_%tl200921201051%_ (let () (declare (not safe)) - (##cdr _%e197474197601%_))) - (_%hd197475197604%_ + (##cdr _%e200919201046%_))) + (_%hd200920201049%_ (let () (declare (not safe)) - (##car _%e197474197601%_)))) + (##car _%e200919201046%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197476197606%_)) + _%tl200921201051%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197473197598%_)) - (let ((_%e197477197609%_ + _%tl200918201043%_)) + (let ((_%e200922201054%_ (let () (declare (not safe)) (gx#stx-e - _%tl197473197598%_)))) - (let ((_%tl197479197614%_ + _%tl200918201043%_)))) + (let ((_%tl200924201059%_ (let () (declare (not safe)) - (##cdr _%e197477197609%_))) - (_%hd197478197612%_ + (##cdr _%e200922201054%_))) + (_%hd200923201057%_ (let () (declare (not safe)) - (##car _%e197477197609%_)))) + (##car _%e200922201054%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197479197614%_)) + _%tl200924201059%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl197470197590%_)) + (gx#stx-null? _%tl200915201035%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197467197582%_)) - (let ((_%e197480197617%_ + (gx#stx-pair? _%tl200912201027%_)) + (let ((_%e200925201062%_ (let () (declare (not safe)) - (gx#stx-e _%tl197467197582%_)))) - (let ((_%tl197482197622%_ + (gx#stx-e _%tl200912201027%_)))) + (let ((_%tl200927201067%_ (let () (declare (not safe)) - (##cdr _%e197480197617%_))) - (_%hd197481197620%_ + (##cdr _%e200925201062%_))) + (_%hd200926201065%_ (let () (declare (not safe)) - (##car _%e197480197617%_)))) + (##car _%e200925201062%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197482197622%_)) + (gx#stx-null? _%tl200927201067%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197461197566%_)) - (_%__kont198078198079%_ - _%hd197481197620%_ - _%hd197478197612%_ - _%hd197475197604%_) + (gx#stx-null? _%tl200906201011%_)) + (_%__kont201519201520%_ + _%hd200926201065%_ + _%hd200923201057%_ + _%hd200920201049%_) (let () (declare (not safe)) - (_%g197448197497%_))) + (_%g200893200942%_))) (let () (declare (not safe)) - (_%g197448197497%_))))) - (let () (declare (not safe)) (_%g197448197497%_))) - (let () (declare (not safe)) (_%g197448197497%_))) - (let () (declare (not safe)) (_%g197448197497%_))))) + (_%g200893200942%_))))) + (let () (declare (not safe)) (_%g200893200942%_))) + (let () (declare (not safe)) (_%g200893200942%_))) + (let () (declare (not safe)) (_%g200893200942%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g197448197497%_))) + (_%g200893200942%_))) (let () (declare (not safe)) - (_%g197448197497%_))))) + (_%g200893200942%_))))) (let () (declare (not safe)) - (_%g197448197497%_))))) + (_%g200893200942%_))))) (let () (declare (not safe)) - (_%g197448197497%_))))) - (let () (declare (not safe)) (_%g197448197497%_))))) - (let () (declare (not safe)) (_%g197448197497%_))) + (_%g200893200942%_))))) + (let () (declare (not safe)) (_%g200893200942%_))))) + (let () (declare (not safe)) (_%g200893200942%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g197448197497%_))) + (_%g200893200942%_))) (let () (declare (not safe)) - (_%g197448197497%_))))) + (_%g200893200942%_))))) (let () (declare (not safe)) - (_%g197448197497%_))))) + (_%g200893200942%_))))) (let () (declare (not safe)) - (_%g197448197497%_))) - (let () (declare (not safe)) (_%g197448197497%_))))) - (let () (declare (not safe)) (_%g197448197497%_))) + (_%g200893200942%_))) + (let () (declare (not safe)) (_%g200893200942%_))))) + (let () (declare (not safe)) (_%g200893200942%_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#begin-annotation _%hd197454197548%_)) + (gx#stx-eq? '%#begin-annotation _%hd200899200993%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197455197550%_)) - (let ((_%e197487197510%_ + (gx#stx-pair? _%tl200900200995%_)) + (let ((_%e200932200955%_ (let () (declare (not safe)) - (gx#stx-e _%tl197455197550%_)))) - (let ((_%tl197489197515%_ + (gx#stx-e _%tl200900200995%_)))) + (let ((_%tl200934200960%_ (let () (declare (not safe)) - (##cdr _%e197487197510%_))) - (_%hd197488197513%_ + (##cdr _%e200932200955%_))) + (_%hd200933200958%_ (let () (declare (not safe)) - (##car _%e197487197510%_)))) + (##car _%e200932200955%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd197488197513%_)) + (gx#identifier? _%hd200933200958%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-else - _%hd197488197513%_)) + _%hd200933200958%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl197489197515%_)) - (let ((_%e197490197518%_ + (gx#stx-pair? _%tl200934200960%_)) + (let ((_%e200935200963%_ (let () (declare (not safe)) - (gx#stx-e _%tl197489197515%_)))) - (let ((_%tl197492197523%_ + (gx#stx-e _%tl200934200960%_)))) + (let ((_%tl200937200968%_ (let () (declare (not safe)) - (##cdr _%e197490197518%_))) - (_%hd197491197521%_ + (##cdr _%e200935200963%_))) + (_%hd200936200966%_ (let () (declare (not safe)) - (##car _%e197490197518%_)))) + (##car _%e200935200963%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197492197523%_)) - (_%__kont198080198081%_ - _%hd197491197521%_) + _%tl200937200968%_)) + (_%__kont201521201522%_ + _%hd200936200966%_) (let () (declare (not safe)) - (_%g197448197497%_))))) + (_%g200893200942%_))))) (let () (declare (not safe)) - (_%g197448197497%_))) + (_%g200893200942%_))) (let () (declare (not safe)) - (_%g197448197497%_))) + (_%g200893200942%_))) (let () (declare (not safe)) - (_%g197448197497%_))))) - (let () (declare (not safe)) (_%g197448197497%_))) - (let () (declare (not safe)) (_%g197448197497%_)))) + (_%g200893200942%_))))) + (let () (declare (not safe)) (_%g200893200942%_))) + (let () (declare (not safe)) (_%g200893200942%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g197448197497%_))))) + (_%g200893200942%_))))) (let () (declare (not safe)) - (_%g197448197497%_)))))))) + (_%g200893200942%_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx198256198257%_)) - (let ((_%e197321197664%_ + (gx#stx-pair? _%__stx201697201698%_)) + (let ((_%e200766201109%_ (let () (declare (not safe)) - (gx#stx-e _%__stx198256198257%_)))) - (let ((_%tl197323197669%_ + (gx#stx-e _%__stx201697201698%_)))) + (let ((_%tl200768201114%_ (let () (declare (not safe)) - (##cdr _%e197321197664%_))) - (_%hd197322197667%_ + (##cdr _%e200766201109%_))) + (_%hd200767201112%_ (let () (declare (not safe)) - (##car _%e197321197664%_)))) + (##car _%e200766201109%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd197322197667%_)) + (gx#identifier? _%hd200767201112%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin-annotation - _%hd197322197667%_)) + _%hd200767201112%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197323197669%_)) - (let ((_%e197324197672%_ + _%tl200768201114%_)) + (let ((_%e200769201117%_ (let () (declare (not safe)) (gx#stx-e - _%tl197323197669%_)))) - (let ((_%tl197326197677%_ + _%tl200768201114%_)))) + (let ((_%tl200771201122%_ (let () (declare (not safe)) - (##cdr _%e197324197672%_))) - (_%hd197325197675%_ + (##cdr _%e200769201117%_))) + (_%hd200770201120%_ (let () (declare (not safe)) - (##car _%e197324197672%_)))) + (##car _%e200769201117%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd197325197675%_)) + _%hd200770201120%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-body - _%hd197325197675%_)) + _%hd200770201120%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl197326197677%_)) - (let ((_%e197327197680%_ + (gx#stx-pair? _%tl200771201122%_)) + (let ((_%e200772201125%_ (let () (declare (not safe)) - (gx#stx-e _%tl197326197677%_)))) - (let ((_%tl197329197685%_ + (gx#stx-e _%tl200771201122%_)))) + (let ((_%tl200774201130%_ (let () (declare (not safe)) - (##cdr _%e197327197680%_))) - (_%hd197328197683%_ + (##cdr _%e200772201125%_))) + (_%hd200773201128%_ (let () (declare (not safe)) - (##car _%e197327197680%_)))) + (##car _%e200772201125%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197329197685%_)) - (_%__kont198258198259%_ _%hd197328197683%_) + (gx#stx-null? _%tl200774201130%_)) + (_%__kont201699201700%_ _%hd200773201128%_) (let () (declare (not safe)) - (_%g197318197358%_))))) - (let () (declare (not safe)) (_%g197318197358%_))) - (let () (declare (not safe)) (_%g197318197358%_))) - (let () (declare (not safe)) (_%g197318197358%_))))) + (_%g200763200803%_))))) + (let () (declare (not safe)) (_%g200763200803%_))) + (let () (declare (not safe)) (_%g200763200803%_))) + (let () (declare (not safe)) (_%g200763200803%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g197318197358%_))) + (_%g200763200803%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd197322197667%_)) + _%hd200767201112%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197323197669%_)) - (let ((_%e197336197371%_ + _%tl200768201114%_)) + (let ((_%e200781200816%_ (let () (declare (not safe)) (gx#stx-e - _%tl197323197669%_)))) - (let ((_%tl197338197376%_ + _%tl200768201114%_)))) + (let ((_%tl200783200821%_ (let () (declare (not safe)) - (##cdr _%e197336197371%_))) - (_%hd197337197374%_ + (##cdr _%e200781200816%_))) + (_%hd200782200819%_ (let () (declare (not safe)) - (##car _%e197336197371%_)))) + (##car _%e200781200816%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd197337197374%_)) - (let ((_%e197339197379%_ + _%hd200782200819%_)) + (let ((_%e200784200824%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd197337197374%_)))) - (let ((_%tl197341197384%_ + (gx#stx-e _%hd200782200819%_)))) + (let ((_%tl200786200829%_ (let () (declare (not safe)) - (##cdr _%e197339197379%_))) - (_%hd197340197382%_ + (##cdr _%e200784200824%_))) + (_%hd200785200827%_ (let () (declare (not safe)) - (##car _%e197339197379%_)))) + (##car _%e200784200824%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd197340197382%_)) - (let ((_%e197342197387%_ + (gx#stx-pair? _%hd200785200827%_)) + (let ((_%e200787200832%_ (let () (declare (not safe)) - (gx#stx-e _%hd197340197382%_)))) - (let ((_%tl197344197392%_ + (gx#stx-e _%hd200785200827%_)))) + (let ((_%tl200789200837%_ (let () (declare (not safe)) - (##cdr _%e197342197387%_))) - (_%hd197343197390%_ + (##cdr _%e200787200832%_))) + (_%hd200788200835%_ (let () (declare (not safe)) - (##car _%e197342197387%_)))) + (##car _%e200787200832%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd197343197390%_)) - (let ((_%e197345197395%_ + (gx#stx-pair? _%hd200788200835%_)) + (let ((_%e200790200840%_ (let () (declare (not safe)) - (gx#stx-e _%hd197343197390%_)))) - (let ((_%tl197347197400%_ + (gx#stx-e _%hd200788200835%_)))) + (let ((_%tl200792200845%_ (let () (declare (not safe)) - (##cdr _%e197345197395%_))) - (_%hd197346197398%_ + (##cdr _%e200790200840%_))) + (_%hd200791200843%_ (let () (declare (not safe)) - (##car _%e197345197395%_)))) + (##car _%e200790200840%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197347197400%_)) + (gx#stx-null? _%tl200792200845%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197344197392%_)) - (let ((_%e197348197403%_ + _%tl200789200837%_)) + (let ((_%e200793200848%_ (let () (declare (not safe)) (gx#stx-e - _%tl197344197392%_)))) - (let ((_%tl197350197408%_ + _%tl200789200837%_)))) + (let ((_%tl200795200853%_ (let () (declare (not safe)) - (##cdr _%e197348197403%_))) - (_%hd197349197406%_ + (##cdr _%e200793200848%_))) + (_%hd200794200851%_ (let () (declare (not safe)) - (##car _%e197348197403%_)))) + (##car _%e200793200848%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197350197408%_)) + _%tl200795200853%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl197341197384%_)) + _%tl200786200829%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl197338197376%_)) - (let ((_%e197351197411%_ + (gx#stx-pair? _%tl200783200821%_)) + (let ((_%e200796200856%_ (let () (declare (not safe)) - (gx#stx-e _%tl197338197376%_)))) - (let ((_%tl197353197416%_ + (gx#stx-e _%tl200783200821%_)))) + (let ((_%tl200798200861%_ (let () (declare (not safe)) - (##cdr _%e197351197411%_))) - (_%hd197352197414%_ + (##cdr _%e200796200856%_))) + (_%hd200797200859%_ (let () (declare (not safe)) - (##car _%e197351197411%_)))) + (##car _%e200796200856%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197353197416%_)) - (_%__kont198260198261%_ - _%hd197352197414%_ - _%hd197349197406%_ - _%hd197346197398%_) + (gx#stx-null? _%tl200798200861%_)) + (_%__kont201701201702%_ + _%hd200797200859%_ + _%hd200794200851%_ + _%hd200791200843%_) (let () (declare (not safe)) - (_%g197318197358%_))))) - (let () (declare (not safe)) (_%g197318197358%_))) - (let () (declare (not safe)) (_%g197318197358%_))) - (let () (declare (not safe)) (_%g197318197358%_))))) + (_%g200763200803%_))))) + (let () (declare (not safe)) (_%g200763200803%_))) + (let () (declare (not safe)) (_%g200763200803%_))) + (let () (declare (not safe)) (_%g200763200803%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g197318197358%_))) + (_%g200763200803%_))) (let () (declare (not safe)) - (_%g197318197358%_))))) + (_%g200763200803%_))))) (let () (declare (not safe)) - (_%g197318197358%_))))) - (let () (declare (not safe)) (_%g197318197358%_))))) - (let () (declare (not safe)) (_%g197318197358%_))))) + (_%g200763200803%_))))) + (let () (declare (not safe)) (_%g200763200803%_))))) + (let () (declare (not safe)) (_%g200763200803%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g197318197358%_))) + (_%g200763200803%_))) (let () (declare (not safe)) - (_%g197318197358%_)))) + (_%g200763200803%_)))) (let () (declare (not safe)) - (_%g197318197358%_))))) + (_%g200763200803%_))))) (let () (declare (not safe)) - (_%g197318197358%_))))))) - _%hd197217197279%_ - _%hd197214197271%_ - _%hd197211197263%_) - (_%g197193197223%_ _%g197194197226%_)))) + (_%g200763200803%_))))))) + _%hd200662200724%_ + _%hd200659200716%_ + _%hd200656200708%_) + (_%g200638200668%_ _%g200639200671%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g197193197223%_ - _%g197194197226%_)) - (_%g197193197223%_ - _%g197194197226%_)) - (_%g197193197223%_ - _%g197194197226%_)))) - (_%g197193197223%_ _%g197194197226%_)) - (_%g197193197223%_ _%g197194197226%_)))) - (_%g197193197223%_ _%g197194197226%_)))) - (_%g197193197223%_ _%g197194197226%_)))) + (_%g200638200668%_ + _%g200639200671%_)) + (_%g200638200668%_ + _%g200639200671%_)) + (_%g200638200668%_ + _%g200639200671%_)))) + (_%g200638200668%_ _%g200639200671%_)) + (_%g200638200668%_ _%g200639200671%_)))) + (_%g200638200668%_ _%g200639200671%_)))) + (_%g200638200668%_ _%g200639200671%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g197193197223%_ - _%g197194197226%_)))) - (_%g197193197223%_ _%g197194197226%_)) - (_%g197193197223%_ _%g197194197226%_)) - (_%g197193197223%_ _%g197194197226%_)))) - (_%g197193197223%_ _%g197194197226%_))))) - (_%g197192197889%_ _%stx197191%_)))) + (_%g200638200668%_ + _%g200639200671%_)))) + (_%g200638200668%_ _%g200639200671%_)) + (_%g200638200668%_ _%g200639200671%_)) + (_%g200638200668%_ _%g200639200671%_)))) + (_%g200638200668%_ _%g200639200671%_))))) + (_%g200637201332%_ _%stx200636%_)))) (define gxc#optimize-match-body - (lambda (_%stx196897%_ - _%negation196898%_ - _%clauses196899%_ - _%konts196900%_) - (letrec ((_%push-variables196902%_ - (lambda (_%clause197149%_ _%kont197150%_) - (let ((_%clause197151197161%_ _%clause197149%_) - (_%kont197152197163%_ _%kont197150%_)) - (let* ((_%E197154197167%_ + (lambda (_%stx200347%_ + _%negation200348%_ + _%clauses200349%_ + _%konts200350%_) + (letrec ((_%push-variables200352%_ + (lambda (_%clause200596%_ _%kont200597%_) + (let ((_%clause200598200608%_ _%clause200596%_) + (_%kont200599200609%_ _%kont200597%_)) + (let* ((_%E200601200612%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause197151197161%_ - _%kont197152197163%_ + _%clause200598200608%_ + _%kont200599200609%_ '([clause-name . clause-lambda] [K . _]))) '#!void)) - (_%K197155197174%_ - (lambda (_%clause-lambda197170%_ - _%clause-name197171%_ - _%K197172%_) - (cons _%clause-name197171%_ + (_%K200602200619%_ + (lambda (_%clause-lambda200615%_ + _%clause-name200616%_ + _%K200617%_) + (cons _%clause-name200616%_ (gxc#apply-push-match-vars__% '#f '() - _%K197172%_ - _%clause-lambda197170%_))))) - (if (pair? _%clause197151197161%_) - (let ((_%hd197158197177%_ + _%K200617%_ + _%clause-lambda200615%_))))) + (if (pair? _%clause200598200608%_) + (let ((_%hd200605200622%_ (let () (declare (not safe)) - (##car _%clause197151197161%_))) - (_%tl197159197179%_ + (##car _%clause200598200608%_))) + (_%tl200606200624%_ (let () (declare (not safe)) - (##cdr _%clause197151197161%_)))) - (let* ((_%clause-name197182%_ _%hd197158197177%_) - (_%clause-lambda197184%_ - _%tl197159197179%_)) - (if (pair? _%kont197152197163%_) - (let* ((_%hd197156197186%_ + (##cdr _%clause200598200608%_)))) + (let* ((_%clause-name200627%_ _%hd200605200622%_) + (_%clause-lambda200629%_ + _%tl200606200624%_)) + (if (pair? _%kont200599200609%_) + (let* ((_%hd200603200631%_ (let () (declare (not safe)) - (##car _%kont197152197163%_))) - (_%K197189%_ _%hd197156197186%_)) - (_%K197155197174%_ - _%clause-lambda197184%_ - _%clause-name197182%_ - _%K197189%_)) - (_%E197154197167%_)))) - (_%E197154197167%_)))))) - (_%start-match196903%_ - (lambda (_%kont197083%_) - (let* ((_%g197085197101%_ - (lambda (_%g197086197098%_) + (##car _%kont200599200609%_))) + (_%K200634%_ _%hd200603200631%_)) + (_%K200602200619%_ + _%clause-lambda200629%_ + _%clause-name200627%_ + _%K200634%_)) + (_%E200601200612%_)))) + (_%E200601200612%_)))))) + (_%start-match200353%_ + (lambda (_%kont200530%_) + (let* ((_%g200532200548%_ + (lambda (_%g200533200545%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g197086197098%_)))) - (_%g197084197146%_ - (lambda (_%g197086197104%_) + _%g200533200545%_)))) + (_%g200531200593%_ + (lambda (_%g200533200551%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g197086197104%_)) - (let ((_%e197088197106%_ + (gx#stx-pair? _%g200533200551%_)) + (let ((_%e200535200553%_ (let () (declare (not safe)) - (gx#stx-e _%g197086197104%_)))) - (let ((_%hd197089197109%_ + (gx#stx-e _%g200533200551%_)))) + (let ((_%hd200536200556%_ (let () (declare (not safe)) - (##car _%e197088197106%_))) - (_%tl197090197111%_ + (##car _%e200535200553%_))) + (_%tl200537200558%_ (let () (declare (not safe)) - (##cdr _%e197088197106%_)))) + (##cdr _%e200535200553%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd197089197109%_)) + _%hd200536200556%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd197089197109%_)) + _%hd200536200556%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl197090197111%_)) - (let ((_%e197091197114%_ + _%tl200537200558%_)) + (let ((_%e200538200561%_ (let () (declare (not safe)) (gx#stx-e - _%tl197090197111%_)))) - (let ((_%hd197092197117%_ + _%tl200537200558%_)))) + (let ((_%hd200539200564%_ (let () (declare (not safe)) - (##car _%e197091197114%_))) - (_%tl197093197119%_ + (##car _%e200538200561%_))) + (_%tl200540200566%_ (let () (declare (not safe)) - (##cdr _%e197091197114%_)))) + (##cdr _%e200538200561%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%hd197092197117%_)) + _%hd200539200564%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl197093197119%_)) - (let ((_%e197094197122%_ + (gx#stx-pair? _%tl200540200566%_)) + (let ((_%e200541200569%_ (let () (declare (not safe)) - (gx#stx-e _%tl197093197119%_)))) - (let ((_%hd197095197125%_ + (gx#stx-e _%tl200540200566%_)))) + (let ((_%hd200542200572%_ (let () (declare (not safe)) - (##car _%e197094197122%_))) - (_%tl197096197127%_ + (##car _%e200541200569%_))) + (_%tl200543200574%_ (let () (declare (not safe)) - (##cdr _%e197094197122%_)))) + (##cdr _%e200541200569%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl197096197127%_)) - ((lambda (_%L197130%_) _%L197130%_) - _%hd197095197125%_) - (_%g197085197101%_ _%g197086197104%_)))) - (_%g197085197101%_ _%g197086197104%_)) - (_%g197085197101%_ _%g197086197104%_)))) + (gx#stx-null? _%tl200543200574%_)) + ((lambda (_%g200534200577%_) _%g200534200577%_) + _%hd200542200572%_) + (_%g200532200548%_ _%g200533200551%_)))) + (_%g200532200548%_ _%g200533200551%_)) + (_%g200532200548%_ _%g200533200551%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g197085197101%_ - _%g197086197104%_)) - (_%g197085197101%_ - _%g197086197104%_)) - (_%g197085197101%_ - _%g197086197104%_)))) - (_%g197085197101%_ _%g197086197104%_))))) - (_%g197084197146%_ _%kont197083%_)))) - (_%match-body196904%_ - (lambda (_%blocks196980%_) - (let* ((_%blocks196981196990%_ _%blocks196980%_) - (_%E196983196994%_ + (_%g200532200548%_ + _%g200533200551%_)) + (_%g200532200548%_ + _%g200533200551%_)) + (_%g200532200548%_ + _%g200533200551%_)))) + (_%g200532200548%_ _%g200533200551%_))))) + (_%g200531200593%_ _%kont200530%_)))) + (_%match-body200354%_ + (lambda (_%blocks200429%_) + (let* ((_%blocks200430200439%_ _%blocks200429%_) + (_%E200432200442%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%blocks196981196990%_ + _%blocks200430200439%_ '([[#f . start] . rest]))) '#!void)) - (_%K196984197066%_ - (lambda (_%rest196997%_ _%start196998%_) - (let _%lp197000%_ ((_%rest197002%_ - _%rest196997%_) - (_%body197003%_ - (_%start-match196903%_ - _%start196998%_))) - (let* ((_%rest197004197012%_ _%rest197002%_) - (_%else197006197020%_ - (lambda () _%body197003%_)) - (_%K197008197054%_ - (lambda (_%rest197023%_ - _%block197024%_) - (let* ((_%block197025197032%_ - _%block197024%_) - (_%E197027197036%_ + (_%K200433200513%_ + (lambda (_%rest200445%_ _%start200446%_) + (let _%lp200448%_ ((_%rest200450%_ + _%rest200445%_) + (_%body200451%_ + (_%start-match200353%_ + _%start200446%_))) + (let* ((_%rest200452200460%_ _%rest200450%_) + (_%else200454200468%_ + (lambda () _%body200451%_)) + (_%K200456200501%_ + (lambda (_%rest200471%_ + _%block200472%_) + (let* ((_%block200473200480%_ + _%block200472%_) + (_%E200475200483%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block197025197032%_ + _%block200473200480%_ '([K . kont]))) '#!void)) - (_%K197028197042%_ - (lambda (_%kont197039%_ - _%K197040%_) - (_%lp197000%_ - _%rest197023%_ + (_%K200476200489%_ + (lambda (_%kont200486%_ + _%K200487%_) + (_%lp200448%_ + _%rest200471%_ (cons '%#let-values - (cons (cons (cons (cons _%K197040%_ + (cons (cons (cons (cons _%K200487%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%kont197039%_ '())) + (cons _%kont200486%_ '())) '()) - (cons _%body197003%_ '()))))))) + (cons _%body200451%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%block197025197032%_) - (let ((_%hd197029197045%_ + (if (pair? _%block200473200480%_) + (let ((_%hd200477200492%_ (let () (declare (not safe)) - (##car _%block197025197032%_))) - (_%tl197030197047%_ + (##car _%block200473200480%_))) + (_%tl200478200494%_ (let () (declare (not safe)) - (##cdr _%block197025197032%_)))) - (let* ((_%K197050%_ - _%hd197029197045%_) - (_%kont197052%_ - _%tl197030197047%_)) - (_%K197028197042%_ - _%kont197052%_ - _%K197050%_))) - (_%E197027197036%_)))))) - (if (pair? _%rest197004197012%_) - (let ((_%hd197009197057%_ + (##cdr _%block200473200480%_)))) + (let* ((_%K200497%_ + _%hd200477200492%_) + (_%kont200499%_ + _%tl200478200494%_)) + (_%K200476200489%_ + _%kont200499%_ + _%K200497%_))) + (_%E200475200483%_)))))) + (if (pair? _%rest200452200460%_) + (let ((_%hd200457200504%_ (let () (declare (not safe)) - (##car _%rest197004197012%_))) - (_%tl197010197059%_ + (##car _%rest200452200460%_))) + (_%tl200458200506%_ (let () (declare (not safe)) - (##cdr _%rest197004197012%_)))) - (let* ((_%block197062%_ - _%hd197009197057%_) - (_%rest197064%_ - _%tl197010197059%_)) - (_%K197008197054%_ - _%rest197064%_ - _%block197062%_))) - (_%else197006197020%_))))))) - (if (pair? _%blocks196981196990%_) - (let ((_%hd196985197069%_ + (##cdr _%rest200452200460%_)))) + (let* ((_%block200509%_ + _%hd200457200504%_) + (_%rest200511%_ + _%tl200458200506%_)) + (_%K200456200501%_ + _%rest200511%_ + _%block200509%_))) + (_%else200454200468%_))))))) + (if (pair? _%blocks200430200439%_) + (let ((_%hd200434200516%_ (let () (declare (not safe)) - (##car _%blocks196981196990%_))) - (_%tl196986197071%_ + (##car _%blocks200430200439%_))) + (_%tl200435200518%_ (let () (declare (not safe)) - (##cdr _%blocks196981196990%_)))) - (if (pair? _%hd196985197069%_) - (let ((_%hd196987197074%_ + (##cdr _%blocks200430200439%_)))) + (if (pair? _%hd200434200516%_) + (let ((_%hd200436200521%_ (let () (declare (not safe)) - (##car _%hd196985197069%_))) - (_%tl196988197076%_ + (##car _%hd200434200516%_))) + (_%tl200437200523%_ (let () (declare (not safe)) - (##cdr _%hd196985197069%_)))) + (##cdr _%hd200434200516%_)))) (if (let () (declare (not safe)) - (##eq? _%hd196987197074%_ '#f)) - (let* ((_%start197079%_ - _%tl196988197076%_) - (_%rest197081%_ - _%tl196986197071%_)) - (_%K196984197066%_ - _%rest197081%_ - _%start197079%_)) - (_%E196983196994%_))) - (_%E196983196994%_))) - (_%E196983196994%_)))))) - (let ((__tmp201163 + (##eq? _%hd200436200521%_ '#f)) + (let* ((_%start200526%_ + _%tl200437200523%_) + (_%rest200528%_ + _%tl200435200518%_)) + (_%K200433200513%_ + _%rest200528%_ + _%start200526%_)) + (_%E200432200442%_))) + (_%E200432200442%_))) + (_%E200432200442%_)))))) + (let ((__tmp204604 (lambda () - (let* ((_%clauses196907%_ - (map _%push-variables196902%_ - _%clauses196899%_ - _%konts196900%_)) - (_%blocks196909%_ - (gxc#optimize-match-basic-blocks _%clauses196907%_)) - (_%blocks196911%_ + (let* ((_%clauses200357%_ + (map _%push-variables200352%_ + _%clauses200349%_ + _%konts200350%_)) + (_%blocks200359%_ + (gxc#optimize-match-basic-blocks _%clauses200357%_)) + (_%blocks200361%_ (gxc#optimize-match-fold-basic-blocks - _%blocks196909%_)) - (_%body196913%_ - (_%match-body196904%_ _%blocks196911%_)) - (_%bind196947%_ - (map (lambda (_%e196914196916%_) - (let* ((_%g196918196925%_ _%e196914196916%_) - (_%E196920196929%_ + _%blocks200359%_)) + (_%body200363%_ + (_%match-body200354%_ _%blocks200361%_)) + (_%bind200397%_ + (map (lambda (_%e200364200366%_) + (let* ((_%e200364200368200375%_ + _%e200364200366%_) + (_%E200370200379%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g196918196925%_ + _%e200364200368200375%_ '([K . kont]))) '#!void)) - (_%K196921196935%_ - (lambda (_%kont196932%_ _%K196933%_) - (cons (cons _%K196933%_ '()) - (cons _%kont196932%_ '()))))) - (if (pair? _%g196918196925%_) - (let ((_%hd196922196938%_ + (_%K200371200385%_ + (lambda (_%kont200382%_ _%K200383%_) + (cons (cons _%K200383%_ '()) + (cons _%kont200382%_ '()))))) + (if (pair? _%e200364200368200375%_) + (let ((_%hd200372200388%_ (let () (declare (not safe)) - (##car _%g196918196925%_))) - (_%tl196923196940%_ + (##car _%e200364200368200375%_))) + (_%tl200373200390%_ (let () (declare (not safe)) - (##cdr _%g196918196925%_)))) - (let* ((_%K196943%_ - _%hd196922196938%_) - (_%kont196945%_ - _%tl196923196940%_)) - (_%K196921196935%_ - _%kont196945%_ - _%K196943%_))) - (_%E196920196929%_)))) - _%konts196900%_)) - (_%negate196977%_ - (let* ((_%negation196948196955%_ _%negation196898%_) - (_%E196950196959%_ + (##cdr _%e200364200368200375%_)))) + (let* ((_%K200393%_ + _%hd200372200388%_) + (_%kont200395%_ + _%tl200373200390%_)) + (_%K200371200385%_ + _%kont200395%_ + _%K200393%_))) + (_%E200370200379%_)))) + _%konts200350%_)) + (_%negate200426%_ + (let* ((_%negation200398200405%_ _%negation200348%_) + (_%E200400200408%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%negation196948196955%_ + _%negation200398200405%_ '([K . kont]))) '#!void)) - (_%K196951196965%_ - (lambda (_%kont196962%_ _%K196963%_) - (cons (cons _%K196963%_ '()) - (cons _%kont196962%_ '()))))) - (if (pair? _%negation196948196955%_) - (let ((_%hd196952196968%_ + (_%K200401200414%_ + (lambda (_%kont200411%_ _%K200412%_) + (cons (cons _%K200412%_ '()) + (cons _%kont200411%_ '()))))) + (if (pair? _%negation200398200405%_) + (let ((_%hd200402200417%_ (let () (declare (not safe)) - (##car _%negation196948196955%_))) - (_%tl196953196970%_ + (##car _%negation200398200405%_))) + (_%tl200403200419%_ (let () (declare (not safe)) - (##cdr _%negation196948196955%_)))) - (let* ((_%K196973%_ _%hd196952196968%_) - (_%kont196975%_ _%tl196953196970%_)) - (_%K196951196965%_ - _%kont196975%_ - _%K196973%_))) - (_%E196950196959%_)))) - (__tmp201164 + (##cdr _%negation200398200405%_)))) + (let* ((_%K200422%_ _%hd200402200417%_) + (_%kont200424%_ _%tl200403200419%_)) + (_%K200401200414%_ + _%kont200424%_ + _%K200422%_))) + (_%E200400200408%_)))) + (__tmp204605 (cons '%#let-values - (cons (cons _%negate196977%_ '()) + (cons (cons _%negate200426%_ '()) (cons (cons '%#let-values - (cons _%bind196947%_ - (cons _%body196913%_ + (cons _%bind200397%_ + (cons _%body200363%_ '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp201164 _%stx196897%_)))) - (__tmp201162 - (let ((__obj201143 + (gxc#xform-wrap-source __tmp204605 _%stx200347%_)))) + (__tmp204603 + (let ((__obj204584 (let () (declare (not safe)) (##structure @@ -1850,1891 +1859,1896 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj201143)) - __obj201143))) + (gx#local-context:::init!__0 __obj204584)) + __obj204584))) (declare (not safe)) (call-with-parameters__1 - __tmp201163 + __tmp204604 gx#current-expander-context - __tmp201162))))) + __tmp204603))))) (define gxc#optimize-match-basic-blocks - (lambda (_%clauses196857%_) - (let _%lp196859%_ ((_%rest196861%_ _%clauses196857%_) - (_%blocks196862%_ '())) - (let* ((_%rest196863196871%_ _%rest196861%_) - (_%else196865196879%_ (lambda () (reverse _%blocks196862%_))) - (_%K196867196885%_ - (lambda (_%rest196882%_ _%clause196883%_) - (_%lp196859%_ - _%rest196882%_ + (lambda (_%clauses200307%_) + (let _%lp200309%_ ((_%rest200311%_ _%clauses200307%_) + (_%blocks200312%_ '())) + (let* ((_%rest200313200321%_ _%rest200311%_) + (_%else200315200329%_ (lambda () (reverse _%blocks200312%_))) + (_%K200317200335%_ + (lambda (_%rest200332%_ _%clause200333%_) + (_%lp200309%_ + _%rest200332%_ (gxc#optimize-match-lift-basic-blocks - _%clause196883%_ - _%blocks196862%_))))) - (if (pair? _%rest196863196871%_) - (let ((_%hd196868196888%_ + _%clause200333%_ + _%blocks200312%_))))) + (if (pair? _%rest200313200321%_) + (let ((_%hd200318200338%_ (let () (declare (not safe)) - (##car _%rest196863196871%_))) - (_%tl196869196890%_ + (##car _%rest200313200321%_))) + (_%tl200319200340%_ (let () (declare (not safe)) - (##cdr _%rest196863196871%_)))) - (let* ((_%clause196893%_ _%hd196868196888%_) - (_%rest196895%_ _%tl196869196890%_)) - (_%K196867196885%_ _%rest196895%_ _%clause196893%_))) - (_%else196865196879%_)))))) + (##cdr _%rest200313200321%_)))) + (let* ((_%clause200343%_ _%hd200318200338%_) + (_%rest200345%_ _%tl200319200340%_)) + (_%K200317200335%_ _%rest200345%_ _%clause200343%_))) + (_%else200315200329%_)))))) (define gxc#optimize-match-lift-basic-blocks - (lambda (_%clause196200%_ _%blocks196201%_) - (letrec ((_%bind->args196203%_ - (lambda (_%bind196852%_) - (let ((__tmp201165 - (lambda (_%b196854%_ _%r196855%_) - (cons (cons '%#ref (cons (car _%b196854%_) '())) - _%r196855%_)))) + (lambda (_%clause199655%_ _%blocks199656%_) + (letrec ((_%bind->args199658%_ + (lambda (_%bind200302%_) + (let ((__tmp204606 + (lambda (_%b200304%_ _%r200305%_) + (cons (cons '%#ref (cons (car _%b200304%_) '())) + _%r200305%_)))) (declare (not safe)) - (__foldl1 __tmp201165 '() _%bind196852%_)))) - (_%create-block196204%_ - (lambda (_%body196800%_ - _%let-bind196801%_ - _%bind196802%_ - _%assert196803%_) - (let* ((_%id196805%_ - (let ((__tmp201166 + (__foldl1 __tmp204606 '() _%bind200302%_)))) + (_%create-block199659%_ + (lambda (_%body200250%_ + _%let-bind200251%_ + _%bind200252%_ + _%assert200253%_) + (let* ((_%id200255%_ + (let ((__tmp204607 (let () (declare (not safe)) (##gensym '__match)))) (declare (not safe)) - (make-symbol__0 __tmp201166))) - (_%id196807%_ + (make-symbol__0 __tmp204607))) + (_%id200257%_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _%id196805%_))) - (_%_196809%_ + (gx#core-quote-syntax__0 _%id200255%_))) + (_%_200259%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%id196807%_))) - (_%block196811%_ - (cons _%id196807%_ - (cons _%body196800%_ - (cons _%bind196802%_ - (cons _%assert196803%_ '()))))) - (_%continue196813%_ + (gx#core-bind-runtime!__0 _%id200257%_))) + (_%block200261%_ + (cons _%id200257%_ + (cons _%body200250%_ + (cons _%bind200252%_ + (cons _%assert200253%_ '()))))) + (_%continue200263%_ (cons '%#call - (cons (cons '%#ref (cons _%id196807%_ '())) - (_%bind->args196203%_ - _%bind196802%_)))) - (_%continue196849%_ - (if (null? _%let-bind196801%_) - _%continue196813%_ - (let ((_%locals196847%_ - (map (lambda (_%e196814196816%_) - (let* ((_%g196818196825%_ - _%e196814196816%_) - (_%E196820196829%_ + (cons (cons '%#ref (cons _%id200257%_ '())) + (_%bind->args199658%_ + _%bind200252%_)))) + (_%continue200299%_ + (if (null? _%let-bind200251%_) + _%continue200263%_ + (let ((_%locals200297%_ + (map (lambda (_%e200264200266%_) + (let* ((_%e200264200268200275%_ + _%e200264200266%_) + (_%E200270200279%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g196818196825%_ + _%e200264200268200275%_ '([id . expr]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K196821196835%_ - (lambda (_%expr196832%_ - _%id196833%_) - (cons (cons _%id196833%_ + (_%K200271200285%_ + (lambda (_%expr200282%_ + _%id200283%_) + (cons (cons _%id200283%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%expr196832%_ '()))))) + (cons _%expr200282%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%g196818196825%_) - (let ((_%hd196822196838%_ + (if (pair? _%e200264200268200275%_) + (let ((_%hd200272200288%_ (let () (declare (not safe)) - (##car _%g196818196825%_))) - (_%tl196823196840%_ + (##car _%e200264200268200275%_))) + (_%tl200273200290%_ (let () (declare (not safe)) - (##cdr _%g196818196825%_)))) - (let* ((_%id196843%_ - _%hd196822196838%_) - (_%expr196845%_ - _%tl196823196840%_)) - (_%K196821196835%_ - _%expr196845%_ - _%id196843%_))) - (_%E196820196829%_)))) - _%let-bind196801%_))) + (##cdr _%e200264200268200275%_)))) + (let* ((_%id200293%_ + _%hd200272200288%_) + (_%expr200295%_ + _%tl200273200290%_)) + (_%K200271200285%_ + _%expr200295%_ + _%id200293%_))) + (_%E200270200279%_)))) + _%let-bind200251%_))) (cons '%#let-values - (cons _%locals196847%_ - (cons _%continue196813%_ + (cons _%locals200297%_ + (cons _%continue200263%_ '()))))))) - (values _%continue196849%_ _%block196811%_)))) - (_%basic-block196205%_ - (lambda (_%body196386%_ _%bind196387%_ _%assert196388%_) - (let* ((_%__stx198364198365%_ _%body196386%_) - (_%g196393196477%_ + (values _%continue200299%_ _%block200261%_)))) + (_%basic-block199660%_ + (lambda (_%body199840%_ _%bind199841%_ _%assert199842%_) + (let* ((_%__stx201805201806%_ _%body199840%_) + (_%g199847199931%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx198364198365%_))))) - (let ((_%__kont198366198367%_ - (lambda (_%L196736%_ _%L196737%_ _%L196738%_) - (let ((_g201167_ - (_%create-block196204%_ - _%L196737%_ + _%__stx201805201806%_))))) + (let ((_%__kont201807201808%_ + (lambda (_%g199849200186%_ + _%g199850200187%_ + _%g199851200188%_) + (let ((_g204608_ + (_%create-block199659%_ + _%g199850200187%_ '() - _%bind196387%_ - (cons (cons _%L196738%_ '#t) - _%assert196388%_)))) + _%bind199841%_ + (cons (cons _%g199851200188%_ '#t) + _%assert199842%_)))) (begin - (let ((_g201168_ + (let ((_g204609_ (let () (declare (not safe)) - (if (##values? _g201167_) - (##values-length _g201167_) + (if (##values? _g204608_) + (##values-length _g204608_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g201168_ 2))) + (##fx= _g204609_ 2))) (error "Context expects 2 values" - _g201168_))) - (let ((_%k-continue196756%_ + _g204609_))) + (let ((_%k-continue200206%_ (let () (declare (not safe)) - (##values-ref _g201167_ 0))) - (_%k-block196757%_ + (##values-ref _g204608_ 0))) + (_%k-block200207%_ (let () (declare (not safe)) - (##values-ref _g201167_ 1)))) - (let* ((_%__stx198346198347%_ _%L196736%_) - (_%g196760196769%_ + (##values-ref _g204608_ 1)))) + (let* ((_%__stx201787201788%_ + _%g199849200186%_) + (_%g200210200219%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx198346198347%_))))) - (let ((_%__kont198348198349%_ + _%__stx201787201788%_))))) + (let ((_%__kont201789201790%_ (lambda () (values (cons '%#if - (cons _%L196738%_ + (cons _%g199851200188%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%k-continue196756%_ - (cons _%L196736%_ '())))) - (cons _%k-block196757%_ '())))) + (cons _%k-continue200206%_ + (cons _%g199849200186%_ '())))) + (cons _%k-block200207%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198350198351%_ + (_%__kont201791201792%_ (lambda () - (let ((_g201169_ - (_%create-block196204%_ - _%L196736%_ + (let ((_g204610_ + (_%create-block199659%_ + _%g199849200186%_ '() - _%bind196387%_ - (cons (cons _%L196738%_ + _%bind199841%_ + (cons (cons _%g199851200188%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f) - _%assert196388%_)))) + _%assert199842%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g201170_ + (let ((_g204611_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g201169_) - (##values-length _g201169_) + _g204610_) + (##values-length _g204610_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g201170_ 2))) - (error "Context expects 2 values" _g201170_))) + (if (not (let () (declare (not safe)) (##fx= _g204611_ 2))) + (error "Context expects 2 values" _g204611_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%e-continue196776%_ + (let ((_%e-continue200226%_ (let () (declare (not safe)) (##values-ref - _g201169_ + _g204610_ 0))) - (_%e-block196777%_ + (_%e-block200227%_ (let () (declare (not safe)) (##values-ref - _g201169_ + _g204610_ 1)))) (values (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L196738%_ - (cons _%k-continue196756%_ - (cons _%e-continue196776%_ '())))) - (cons _%k-block196757%_ - (cons _%e-block196777%_ '()))))))))) + (cons _%g199851200188%_ + (cons _%k-continue200206%_ + (cons _%e-continue200226%_ '())))) + (cons _%k-block200207%_ + (cons _%e-block200227%_ '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx198346198347%_)) - (let ((_%e196762196784%_ + _%__stx201787201788%_)) + (let ((_%e200212200234%_ (let () (declare (not safe)) (gx#stx-e - _%__stx198346198347%_)))) - (let ((_%tl196764196789%_ + _%__stx201787201788%_)))) + (let ((_%tl200214200239%_ (let () (declare (not safe)) - (##cdr _%e196762196784%_))) - (_%hd196763196787%_ + (##cdr _%e200212200234%_))) + (_%hd200213200237%_ (let () (declare (not safe)) - (##car _%e196762196784%_)))) + (##car _%e200212200234%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd196763196787%_)) + _%hd200213200237%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd196763196787%_)) - (_%__kont198348198349%_) - (_%__kont198350198351%_)) - (_%__kont198350198351%_)))) - (_%__kont198350198351%_))))))))) - (_%__kont198368198369%_ - (lambda () (values _%body196386%_ '()))) - (_%__kont198372198373%_ - (lambda (_%L196565%_ _%L196566%_ _%L196567%_) - (let* ((_%let-bind196602%_ + _%hd200213200237%_)) + (_%__kont201789201790%_) + (_%__kont201791201792%_)) + (_%__kont201791201792%_)))) + (_%__kont201791201792%_))))))))) + (_%__kont201809201810%_ + (lambda () (values _%body199840%_ '()))) + (_%__kont201813201814%_ + (lambda (_%g199895200015%_ + _%g199896200016%_ + _%g199897200017%_) + (let* ((_%let-bind200052%_ (map cons - (let ((__tmp201171 - (lambda (_%g196587196590%_ - _%g196588196592%_) - (cons _%g196587196590%_ - _%g196588196592%_)))) + (let ((__tmp204612 + (lambda (_%g200037200040%_ + _%g200038200042%_) + (cons _%g200037200040%_ + _%g200038200042%_)))) (declare (not safe)) (__foldr1 - __tmp201171 + __tmp204612 '() - _%L196567%_)) - (let ((__tmp201172 - (lambda (_%g196594196597%_ - _%g196595196599%_) - (cons _%g196594196597%_ - _%g196595196599%_)))) + _%g199897200017%_)) + (let ((__tmp204613 + (lambda (_%g200044200047%_ + _%g200045200049%_) + (cons _%g200044200047%_ + _%g200045200049%_)))) (declare (not safe)) (__foldr1 - __tmp201172 + __tmp204613 '() - _%L196566%_)))) - (_g201173_ - (_%create-block196204%_ - _%L196565%_ - _%let-bind196602%_ + _%g199896200016%_)))) + (_g204614_ + (_%create-block199659%_ + _%g199895200015%_ + _%let-bind200052%_ (let () (declare (not safe)) (__foldl1 cons - _%bind196387%_ - _%let-bind196602%_)) - _%assert196388%_))) + _%bind199841%_ + _%let-bind200052%_)) + _%assert199842%_))) (begin - (let ((_g201174_ + (let ((_g204615_ (let () (declare (not safe)) - (if (##values? _g201173_) - (##values-length _g201173_) + (if (##values? _g204614_) + (##values-length _g204614_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g201174_ 2))) + (##fx= _g204615_ 2))) (error "Context expects 2 values" - _g201174_))) - (let ((_%continue196604%_ + _g204615_))) + (let ((_%continue200054%_ (let () (declare (not safe)) - (##values-ref _g201173_ 0))) - (_%block196605%_ + (##values-ref _g204614_ 0))) + (_%block200055%_ (let () (declare (not safe)) - (##values-ref _g201173_ 1)))) - (values _%continue196604%_ - (cons _%block196605%_ '()))))))) - (_%__kont198376198377%_ - (lambda () (values _%body196386%_ '())))) - (let* ((_%__match198455198456%_ - (lambda (_%e196444196489%_ - _%hd196445196492%_ - _%tl196446196494%_ - _%e196447196497%_ - _%hd196448196500%_ - _%tl196449196502%_ - _%__splice198374198375%_ - _%target196450196505%_ - _%tl196452196507%_) - (letrec ((_%loop196453196510%_ - (lambda (_%hd196451196513%_ - _%expr196457196515%_ - _%id196458196517%_) + (##values-ref _g204614_ 1)))) + (values _%continue200054%_ + (cons _%block200055%_ '()))))))) + (_%__kont201817201818%_ + (lambda () (values _%body199840%_ '())))) + (let* ((_%__match201896201897%_ + (lambda (_%e199898199943%_ + _%hd199899199946%_ + _%tl199900199948%_ + _%e199901199951%_ + _%hd199902199954%_ + _%tl199903199956%_ + _%__splice201815201816%_ + _%target199904199959%_ + _%tl199906199961%_) + (letrec ((_%loop199907199964%_ + (lambda (_%hd199905199967%_ + _%expr199911199969%_ + _%id199912199970%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd196451196513%_)) - (let ((_%e196454196520%_ + _%hd199905199967%_)) + (let ((_%e199908199972%_ (let () (declare (not safe)) (gx#stx-e - _%hd196451196513%_)))) - (let ((_%lp-tl196456196525%_ + _%hd199905199967%_)))) + (let ((_%lp-tl199910199977%_ (let () (declare (not safe)) - (##cdr _%e196454196520%_))) - (_%lp-hd196455196523%_ + (##cdr _%e199908199972%_))) + (_%lp-hd199909199975%_ (let () (declare (not safe)) - (##car _%e196454196520%_)))) + (##car _%e199908199972%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd196455196523%_)) - (let ((_%e196461196528%_ + _%lp-hd199909199975%_)) + (let ((_%e199915199980%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd196455196523%_)))) - (let ((_%tl196463196533%_ + (gx#stx-e _%lp-hd199909199975%_)))) + (let ((_%tl199917199985%_ (let () (declare (not safe)) - (##cdr _%e196461196528%_))) - (_%hd196462196531%_ + (##cdr _%e199915199980%_))) + (_%hd199916199983%_ (let () (declare (not safe)) - (##car _%e196461196528%_)))) + (##car _%e199915199980%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196462196531%_)) - (let ((_%e196464196536%_ + (gx#stx-pair? _%hd199916199983%_)) + (let ((_%e199918199988%_ (let () (declare (not safe)) - (gx#stx-e _%hd196462196531%_)))) - (let ((_%tl196466196541%_ + (gx#stx-e _%hd199916199983%_)))) + (let ((_%tl199920199993%_ (let () (declare (not safe)) - (##cdr _%e196464196536%_))) - (_%hd196465196539%_ + (##cdr _%e199918199988%_))) + (_%hd199919199991%_ (let () (declare (not safe)) - (##car _%e196464196536%_)))) + (##car _%e199918199988%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196466196541%_)) + (gx#stx-null? _%tl199920199993%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196463196533%_)) - (let ((_%e196467196544%_ + (gx#stx-pair? _%tl199917199985%_)) + (let ((_%e199921199996%_ (let () (declare (not safe)) - (gx#stx-e _%tl196463196533%_)))) - (let ((_%tl196469196549%_ + (gx#stx-e _%tl199917199985%_)))) + (let ((_%tl199923200001%_ (let () (declare (not safe)) - (##cdr _%e196467196544%_))) - (_%hd196468196547%_ + (##cdr _%e199921199996%_))) + (_%hd199922199999%_ (let () (declare (not safe)) - (##car _%e196467196544%_)))) + (##car _%e199921199996%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196469196549%_)) - (_%loop196453196510%_ - _%lp-tl196456196525%_ - (cons _%hd196468196547%_ - _%expr196457196515%_) - (cons _%hd196465196539%_ - _%id196458196517%_)) - (_%__kont198376198377%_)))) - (_%__kont198376198377%_)) - (_%__kont198376198377%_)))) - (_%__kont198376198377%_)))) - (_%__kont198376198377%_)))) + _%tl199923200001%_)) + (_%loop199907199964%_ + _%lp-tl199910199977%_ + (cons _%hd199922199999%_ + _%expr199911199969%_) + (cons _%hd199919199991%_ + _%id199912199970%_)) + (_%__kont201817201818%_)))) + (_%__kont201817201818%_)) + (_%__kont201817201818%_)))) + (_%__kont201817201818%_)))) + (_%__kont201817201818%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id196460196554%_ - (reverse _%id196458196517%_)) - (_%expr196459196552%_ - (reverse _%expr196457196515%_))) + (let ((_%id199914200005%_ + (reverse _%id199912199970%_)) + (_%expr199913200004%_ + (reverse _%expr199911199969%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl196449196502%_)) - (let ((_%e196470196557%_ + _%tl199903199956%_)) + (let ((_%e199924200007%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl196449196502%_)))) - (let ((_%tl196472196562%_ + (gx#stx-e _%tl199903199956%_)))) + (let ((_%tl199926200012%_ (let () (declare (not safe)) - (##cdr _%e196470196557%_))) - (_%hd196471196560%_ + (##cdr _%e199924200007%_))) + (_%hd199925200010%_ (let () (declare (not safe)) - (##car _%e196470196557%_)))) + (##car _%e199924200007%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196472196562%_)) - (_%__kont198372198373%_ - _%hd196471196560%_ - _%expr196459196552%_ - _%id196460196554%_) - (_%__kont198376198377%_)))) - (_%__kont198376198377%_))))))) + (gx#stx-null? _%tl199926200012%_)) + (_%__kont201813201814%_ + _%hd199925200010%_ + _%expr199913200004%_ + _%id199914200005%_) + (_%__kont201817201818%_)))) + (_%__kont201817201818%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop196453196510%_ - _%target196450196505%_ + (_%loop199907199964%_ + _%target199904199959%_ '() '())))) - (_%__match198431198432%_ - (lambda (_%e196410196613%_ - _%hd196411196616%_ - _%tl196412196618%_ - _%e196413196621%_ - _%hd196414196624%_ - _%tl196415196626%_ - _%__splice198370198371%_ - _%target196416196629%_ - _%tl196418196631%_) - (letrec ((_%loop196419196634%_ - (lambda (_%hd196417196637%_) + (_%__match201872201873%_ + (lambda (_%e199864200063%_ + _%hd199865200066%_ + _%tl199866200068%_ + _%e199867200071%_ + _%hd199868200074%_ + _%tl199869200076%_ + _%__splice201811201812%_ + _%target199870200079%_ + _%tl199872200081%_) + (letrec ((_%loop199873200084%_ + (lambda (_%hd199871200087%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd196417196637%_)) - (let ((_%e196420196640%_ + _%hd199871200087%_)) + (let ((_%e199874200090%_ (let () (declare (not safe)) (gx#stx-e - _%hd196417196637%_)))) - (let ((_%lp-tl196422196645%_ + _%hd199871200087%_)))) + (let ((_%lp-tl199876200095%_ (let () (declare (not safe)) - (##cdr _%e196420196640%_))) - (_%lp-hd196421196643%_ + (##cdr _%e199874200090%_))) + (_%lp-hd199875200093%_ (let () (declare (not safe)) - (##car _%e196420196640%_)))) + (##car _%e199874200090%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd196421196643%_)) - (let ((_%e196423196648%_ + _%lp-hd199875200093%_)) + (let ((_%e199877200098%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd196421196643%_)))) - (let ((_%tl196425196653%_ + (gx#stx-e _%lp-hd199875200093%_)))) + (let ((_%tl199879200103%_ (let () (declare (not safe)) - (##cdr _%e196423196648%_))) - (_%hd196424196651%_ + (##cdr _%e199877200098%_))) + (_%hd199878200101%_ (let () (declare (not safe)) - (##car _%e196423196648%_)))) + (##car _%e199877200098%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196424196651%_)) - (let ((_%e196426196656%_ + (gx#stx-pair? _%hd199878200101%_)) + (let ((_%e199880200106%_ (let () (declare (not safe)) - (gx#stx-e _%hd196424196651%_)))) - (let ((_%tl196428196661%_ + (gx#stx-e _%hd199878200101%_)))) + (let ((_%tl199882200111%_ (let () (declare (not safe)) - (##cdr _%e196426196656%_))) - (_%hd196427196659%_ + (##cdr _%e199880200106%_))) + (_%hd199881200109%_ (let () (declare (not safe)) - (##car _%e196426196656%_)))) + (##car _%e199880200106%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196428196661%_)) + (gx#stx-null? _%tl199882200111%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196425196653%_)) - (let ((_%e196429196664%_ + (gx#stx-pair? _%tl199879200103%_)) + (let ((_%e199883200114%_ (let () (declare (not safe)) - (gx#stx-e _%tl196425196653%_)))) - (let ((_%tl196431196669%_ + (gx#stx-e _%tl199879200103%_)))) + (let ((_%tl199885200119%_ (let () (declare (not safe)) - (##cdr _%e196429196664%_))) - (_%hd196430196667%_ + (##cdr _%e199883200114%_))) + (_%hd199884200117%_ (let () (declare (not safe)) - (##car _%e196429196664%_)))) + (##car _%e199883200114%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd196430196667%_)) - (let ((_%e196432196672%_ + _%hd199884200117%_)) + (let ((_%e199886200122%_ (let () (declare (not safe)) (gx#stx-e - _%hd196430196667%_)))) - (let ((_%tl196434196677%_ + _%hd199884200117%_)))) + (let ((_%tl199888200127%_ (let () (declare (not safe)) - (##cdr _%e196432196672%_))) - (_%hd196433196675%_ + (##cdr _%e199886200122%_))) + (_%hd199887200125%_ (let () (declare (not safe)) - (##car _%e196432196672%_)))) + (##car _%e199886200122%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd196433196675%_)) + _%hd199887200125%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd196433196675%_)) + _%hd199887200125%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl196434196677%_)) - (let ((_%e196435196680%_ + (gx#stx-pair? _%tl199888200127%_)) + (let ((_%e199889200130%_ (let () (declare (not safe)) - (gx#stx-e _%tl196434196677%_)))) - (let ((_%tl196437196685%_ + (gx#stx-e _%tl199888200127%_)))) + (let ((_%tl199891200135%_ (let () (declare (not safe)) - (##cdr _%e196435196680%_))) - (_%hd196436196683%_ + (##cdr _%e199889200130%_))) + (_%hd199890200133%_ (let () (declare (not safe)) - (##car _%e196435196680%_)))) + (##car _%e199889200130%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196437196685%_)) + (gx#stx-null? _%tl199891200135%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196431196669%_)) - (_%loop196419196634%_ _%lp-tl196422196645%_) - (_%__match198455198456%_ - _%e196410196613%_ - _%hd196411196616%_ - _%tl196412196618%_ - _%e196413196621%_ - _%hd196414196624%_ - _%tl196415196626%_ - _%__splice198370198371%_ - _%target196416196629%_ - _%tl196418196631%_)) - (_%__match198455198456%_ - _%e196410196613%_ - _%hd196411196616%_ - _%tl196412196618%_ - _%e196413196621%_ - _%hd196414196624%_ - _%tl196415196626%_ - _%__splice198370198371%_ - _%target196416196629%_ - _%tl196418196631%_)))) - (_%__match198455198456%_ - _%e196410196613%_ - _%hd196411196616%_ - _%tl196412196618%_ - _%e196413196621%_ - _%hd196414196624%_ - _%tl196415196626%_ - _%__splice198370198371%_ - _%target196416196629%_ - _%tl196418196631%_)) - (_%__match198455198456%_ - _%e196410196613%_ - _%hd196411196616%_ - _%tl196412196618%_ - _%e196413196621%_ - _%hd196414196624%_ - _%tl196415196626%_ - _%__splice198370198371%_ - _%target196416196629%_ - _%tl196418196631%_)) - (_%__match198455198456%_ - _%e196410196613%_ - _%hd196411196616%_ - _%tl196412196618%_ - _%e196413196621%_ - _%hd196414196624%_ - _%tl196415196626%_ - _%__splice198370198371%_ - _%target196416196629%_ - _%tl196418196631%_)))) + (gx#stx-null? _%tl199885200119%_)) + (_%loop199873200084%_ _%lp-tl199876200095%_) + (_%__match201896201897%_ + _%e199864200063%_ + _%hd199865200066%_ + _%tl199866200068%_ + _%e199867200071%_ + _%hd199868200074%_ + _%tl199869200076%_ + _%__splice201811201812%_ + _%target199870200079%_ + _%tl199872200081%_)) + (_%__match201896201897%_ + _%e199864200063%_ + _%hd199865200066%_ + _%tl199866200068%_ + _%e199867200071%_ + _%hd199868200074%_ + _%tl199869200076%_ + _%__splice201811201812%_ + _%target199870200079%_ + _%tl199872200081%_)))) + (_%__match201896201897%_ + _%e199864200063%_ + _%hd199865200066%_ + _%tl199866200068%_ + _%e199867200071%_ + _%hd199868200074%_ + _%tl199869200076%_ + _%__splice201811201812%_ + _%target199870200079%_ + _%tl199872200081%_)) + (_%__match201896201897%_ + _%e199864200063%_ + _%hd199865200066%_ + _%tl199866200068%_ + _%e199867200071%_ + _%hd199868200074%_ + _%tl199869200076%_ + _%__splice201811201812%_ + _%target199870200079%_ + _%tl199872200081%_)) + (_%__match201896201897%_ + _%e199864200063%_ + _%hd199865200066%_ + _%tl199866200068%_ + _%e199867200071%_ + _%hd199868200074%_ + _%tl199869200076%_ + _%__splice201811201812%_ + _%target199870200079%_ + _%tl199872200081%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match198455198456%_ - _%e196410196613%_ - _%hd196411196616%_ - _%tl196412196618%_ - _%e196413196621%_ - _%hd196414196624%_ - _%tl196415196626%_ - _%__splice198370198371%_ - _%target196416196629%_ - _%tl196418196631%_)))) - (_%__match198455198456%_ - _%e196410196613%_ - _%hd196411196616%_ - _%tl196412196618%_ - _%e196413196621%_ - _%hd196414196624%_ - _%tl196415196626%_ - _%__splice198370198371%_ - _%target196416196629%_ - _%tl196418196631%_)) - (_%__match198455198456%_ - _%e196410196613%_ - _%hd196411196616%_ - _%tl196412196618%_ - _%e196413196621%_ - _%hd196414196624%_ - _%tl196415196626%_ - _%__splice198370198371%_ - _%target196416196629%_ - _%tl196418196631%_)))) - (_%__match198455198456%_ - _%e196410196613%_ - _%hd196411196616%_ - _%tl196412196618%_ - _%e196413196621%_ - _%hd196414196624%_ - _%tl196415196626%_ - _%__splice198370198371%_ - _%target196416196629%_ - _%tl196418196631%_)))) - (_%__match198455198456%_ - _%e196410196613%_ - _%hd196411196616%_ - _%tl196412196618%_ - _%e196413196621%_ - _%hd196414196624%_ - _%tl196415196626%_ - _%__splice198370198371%_ - _%target196416196629%_ - _%tl196418196631%_)))) + (_%__match201896201897%_ + _%e199864200063%_ + _%hd199865200066%_ + _%tl199866200068%_ + _%e199867200071%_ + _%hd199868200074%_ + _%tl199869200076%_ + _%__splice201811201812%_ + _%target199870200079%_ + _%tl199872200081%_)))) + (_%__match201896201897%_ + _%e199864200063%_ + _%hd199865200066%_ + _%tl199866200068%_ + _%e199867200071%_ + _%hd199868200074%_ + _%tl199869200076%_ + _%__splice201811201812%_ + _%target199870200079%_ + _%tl199872200081%_)) + (_%__match201896201897%_ + _%e199864200063%_ + _%hd199865200066%_ + _%tl199866200068%_ + _%e199867200071%_ + _%hd199868200074%_ + _%tl199869200076%_ + _%__splice201811201812%_ + _%target199870200079%_ + _%tl199872200081%_)))) + (_%__match201896201897%_ + _%e199864200063%_ + _%hd199865200066%_ + _%tl199866200068%_ + _%e199867200071%_ + _%hd199868200074%_ + _%tl199869200076%_ + _%__splice201811201812%_ + _%target199870200079%_ + _%tl199872200081%_)))) + (_%__match201896201897%_ + _%e199864200063%_ + _%hd199865200066%_ + _%tl199866200068%_ + _%e199867200071%_ + _%hd199868200074%_ + _%tl199869200076%_ + _%__splice201811201812%_ + _%target199870200079%_ + _%tl199872200081%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl196415196626%_)) - (let ((_%e196438196689%_ + _%tl199869200076%_)) + (let ((_%e199892200139%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl196415196626%_)))) - (let ((_%tl196440196694%_ - (let () (declare (not safe)) (##cdr _%e196438196689%_))) - (_%hd196439196692%_ + (gx#stx-e _%tl199869200076%_)))) + (let ((_%tl199894200144%_ + (let () (declare (not safe)) (##cdr _%e199892200139%_))) + (_%hd199893200142%_ (let () (declare (not safe)) - (##car _%e196438196689%_)))) + (##car _%e199892200139%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196440196694%_)) - (_%__kont198368198369%_) - (_%__match198455198456%_ - _%e196410196613%_ - _%hd196411196616%_ - _%tl196412196618%_ - _%e196413196621%_ - _%hd196414196624%_ - _%tl196415196626%_ - _%__splice198370198371%_ - _%target196416196629%_ - _%tl196418196631%_)))) - (_%__match198455198456%_ - _%e196410196613%_ - _%hd196411196616%_ - _%tl196412196618%_ - _%e196413196621%_ - _%hd196414196624%_ - _%tl196415196626%_ - _%__splice198370198371%_ - _%target196416196629%_ - _%tl196418196631%_)))))) + (gx#stx-null? _%tl199894200144%_)) + (_%__kont201809201810%_) + (_%__match201896201897%_ + _%e199864200063%_ + _%hd199865200066%_ + _%tl199866200068%_ + _%e199867200071%_ + _%hd199868200074%_ + _%tl199869200076%_ + _%__splice201811201812%_ + _%target199870200079%_ + _%tl199872200081%_)))) + (_%__match201896201897%_ + _%e199864200063%_ + _%hd199865200066%_ + _%tl199866200068%_ + _%e199867200071%_ + _%hd199868200074%_ + _%tl199869200076%_ + _%__splice201811201812%_ + _%target199870200079%_ + _%tl199872200081%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop196419196634%_ - _%target196416196629%_))))) + (_%loop199873200084%_ + _%target199870200079%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx198364198365%_)) - (let ((_%e196398196704%_ + (gx#stx-pair? _%__stx201805201806%_)) + (let ((_%e199852200154%_ (let () (declare (not safe)) - (gx#stx-e _%__stx198364198365%_)))) - (let ((_%tl196400196709%_ + (gx#stx-e _%__stx201805201806%_)))) + (let ((_%tl199854200159%_ (let () (declare (not safe)) - (##cdr _%e196398196704%_))) - (_%hd196399196707%_ + (##cdr _%e199852200154%_))) + (_%hd199853200157%_ (let () (declare (not safe)) - (##car _%e196398196704%_)))) + (##car _%e199852200154%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd196399196707%_)) + (gx#identifier? _%hd199853200157%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd196399196707%_)) + _%hd199853200157%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl196400196709%_)) - (let ((_%e196401196712%_ + _%tl199854200159%_)) + (let ((_%e199855200162%_ (let () (declare (not safe)) (gx#stx-e - _%tl196400196709%_)))) - (let ((_%tl196403196717%_ + _%tl199854200159%_)))) + (let ((_%tl199857200167%_ (let () (declare (not safe)) - (##cdr _%e196401196712%_))) - (_%hd196402196715%_ + (##cdr _%e199855200162%_))) + (_%hd199856200165%_ (let () (declare (not safe)) - (##car _%e196401196712%_)))) + (##car _%e199855200162%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl196403196717%_)) - (let ((_%e196404196720%_ + _%tl199857200167%_)) + (let ((_%e199858200170%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl196403196717%_)))) - (let ((_%tl196406196725%_ - (let () (declare (not safe)) (##cdr _%e196404196720%_))) - (_%hd196405196723%_ + (gx#stx-e _%tl199857200167%_)))) + (let ((_%tl199860200175%_ + (let () (declare (not safe)) (##cdr _%e199858200170%_))) + (_%hd199859200173%_ (let () (declare (not safe)) - (##car _%e196404196720%_)))) + (##car _%e199858200170%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196406196725%_)) - (let ((_%e196407196728%_ + (gx#stx-pair? _%tl199860200175%_)) + (let ((_%e199861200178%_ (let () (declare (not safe)) - (gx#stx-e _%tl196406196725%_)))) - (let ((_%tl196409196733%_ + (gx#stx-e _%tl199860200175%_)))) + (let ((_%tl199863200183%_ (let () (declare (not safe)) - (##cdr _%e196407196728%_))) - (_%hd196408196731%_ + (##cdr _%e199861200178%_))) + (_%hd199862200181%_ (let () (declare (not safe)) - (##car _%e196407196728%_)))) + (##car _%e199861200178%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196409196733%_)) - (_%__kont198366198367%_ - _%hd196408196731%_ - _%hd196405196723%_ - _%hd196402196715%_) - (_%__kont198376198377%_)))) - (_%__kont198376198377%_)))) - (_%__kont198376198377%_)))) + (gx#stx-null? _%tl199863200183%_)) + (_%__kont201807201808%_ + _%hd199862200181%_ + _%hd199859200173%_ + _%hd199856200165%_) + (_%__kont201817201818%_)))) + (_%__kont201817201818%_)))) + (_%__kont201817201818%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198376198377%_)) + (_%__kont201817201818%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd196399196707%_)) + _%hd199853200157%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl196400196709%_)) - (let ((_%e196413196621%_ + _%tl199854200159%_)) + (let ((_%e199867200071%_ (let () (declare (not safe)) (gx#stx-e - _%tl196400196709%_)))) - (let ((_%tl196415196626%_ + _%tl199854200159%_)))) + (let ((_%tl199869200076%_ (let () (declare (not safe)) - (##cdr _%e196413196621%_))) - (_%hd196414196624%_ + (##cdr _%e199867200071%_))) + (_%hd199868200074%_ (let () (declare (not safe)) - (##car _%e196413196621%_)))) + (##car _%e199867200071%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd196414196624%_)) - (let ((_%__splice198370198371%_ + _%hd199868200074%_)) + (let ((_%__splice201811201812%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%hd196414196624%_ + _%hd199868200074%_ '0)))) - (let ((_%tl196418196631%_ + (let ((_%tl199872200081%_ (let () (declare (not safe)) - (##vector-ref _%__splice198370198371%_ '1))) - (_%target196416196629%_ + (##vector-ref _%__splice201811201812%_ '1))) + (_%target199870200079%_ (let () (declare (not safe)) - (##vector-ref _%__splice198370198371%_ '0)))) + (##vector-ref _%__splice201811201812%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196418196631%_)) - (_%__match198431198432%_ - _%e196398196704%_ - _%hd196399196707%_ - _%tl196400196709%_ - _%e196413196621%_ - _%hd196414196624%_ - _%tl196415196626%_ - _%__splice198370198371%_ - _%target196416196629%_ - _%tl196418196631%_) - (_%__kont198376198377%_)))) - (_%__kont198376198377%_)))) + (gx#stx-null? _%tl199872200081%_)) + (_%__match201872201873%_ + _%e199852200154%_ + _%hd199853200157%_ + _%tl199854200159%_ + _%e199867200071%_ + _%hd199868200074%_ + _%tl199869200076%_ + _%__splice201811201812%_ + _%target199870200079%_ + _%tl199872200081%_) + (_%__kont201817201818%_)))) + (_%__kont201817201818%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198376198377%_)) - (_%__kont198376198377%_))) - (_%__kont198376198377%_)))) - (_%__kont198376198377%_))))))) - (_%fold-blocks196206%_ - (lambda (_%rest196305%_ _%blocks196306%_) - (let* ((_%rest196307196324%_ _%rest196305%_) - (_%E196310196328%_ + (_%__kont201817201818%_)) + (_%__kont201817201818%_))) + (_%__kont201817201818%_)))) + (_%__kont201817201818%_))))))) + (_%fold-blocks199661%_ + (lambda (_%rest199759%_ _%blocks199760%_) + (let* ((_%rest199761199778%_ _%rest199759%_) + (_%E199764199782%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest196307196324%_ + _%rest199761199778%_ '([[name body bind assert] . rest]) '([]))) '#!void))) - (let ((_%K196312196348%_ - (lambda (_%rest196339%_ - _%assert196340%_ - _%bind196341%_ - _%body196342%_ - _%name196343%_) - (let ((_g201175_ - (_%basic-block196205%_ - _%body196342%_ - _%bind196341%_ - _%assert196340%_))) + (let ((_%K199766199802%_ + (lambda (_%rest199793%_ + _%assert199794%_ + _%bind199795%_ + _%body199796%_ + _%name199797%_) + (let ((_g204616_ + (_%basic-block199660%_ + _%body199796%_ + _%bind199795%_ + _%assert199794%_))) (begin - (let ((_g201176_ + (let ((_g204617_ (let () (declare (not safe)) - (if (##values? _g201175_) - (##values-length _g201175_) + (if (##values? _g204616_) + (##values-length _g204616_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g201176_ 2))) + (##fx= _g204617_ 2))) (error "Context expects 2 values" - _g201176_))) - (let ((_%body196345%_ + _g204617_))) + (let ((_%body199799%_ (let () (declare (not safe)) - (##values-ref _g201175_ 0))) - (_%body-blocks196346%_ + (##values-ref _g204616_ 0))) + (_%body-blocks199800%_ (let () (declare (not safe)) - (##values-ref _g201175_ 1)))) - (_%fold-blocks196206%_ + (##values-ref _g204616_ 1)))) + (_%fold-blocks199661%_ (let () (declare (not safe)) (__foldl1 cons - _%rest196339%_ - _%body-blocks196346%_)) - (cons (cons _%name196343%_ + _%rest199793%_ + _%body-blocks199800%_)) + (cons (cons _%name199797%_ (cons 'continue: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (let ((__tmp201177 (map car _%bind196341%_))) + (cons (let ((__tmp204618 (map car _%bind199795%_))) (declare (not safe)) - (##reverse __tmp201177)) - (cons _%body196345%_ '()))) - (cons _%assert196340%_ (cons _%bind196341%_ '()))))) + (##reverse __tmp204618)) + (cons _%body199799%_ '()))) + (cons _%assert199794%_ (cons _%bind199795%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%blocks196306%_))))))) - (_%K196311196333%_ (lambda () _%blocks196306%_))) - (let ((_%try-match196309196336%_ + _%blocks199760%_))))))) + (_%K199765199787%_ (lambda () _%blocks199760%_))) + (let ((_%try-match199763199790%_ (lambda () - (if (null? _%rest196307196324%_) - (_%K196311196333%_) - (_%E196310196328%_))))) - (if (pair? _%rest196307196324%_) - (let ((_%tl196314196353%_ + (if (null? _%rest199761199778%_) + (_%K199765199787%_) + (_%E199764199782%_))))) + (if (pair? _%rest199761199778%_) + (let ((_%tl199768199807%_ (let () (declare (not safe)) - (##cdr _%rest196307196324%_))) - (_%hd196313196351%_ + (##cdr _%rest199761199778%_))) + (_%hd199767199805%_ (let () (declare (not safe)) - (##car _%rest196307196324%_)))) - (if (pair? _%hd196313196351%_) - (let ((_%tl196316196358%_ + (##car _%rest199761199778%_)))) + (if (pair? _%hd199767199805%_) + (let ((_%tl199770199812%_ (let () (declare (not safe)) - (##cdr _%hd196313196351%_))) - (_%hd196315196356%_ + (##cdr _%hd199767199805%_))) + (_%hd199769199810%_ (let () (declare (not safe)) - (##car _%hd196313196351%_)))) - (if (pair? _%tl196316196358%_) - (let ((_%tl196318196365%_ + (##car _%hd199767199805%_)))) + (if (pair? _%tl199770199812%_) + (let ((_%tl199772199819%_ (let () (declare (not safe)) - (##cdr _%tl196316196358%_))) - (_%hd196317196363%_ + (##cdr _%tl199770199812%_))) + (_%hd199771199817%_ (let () (declare (not safe)) - (##car _%tl196316196358%_)))) - (if (pair? _%tl196318196365%_) - (let ((_%tl196320196372%_ + (##car _%tl199770199812%_)))) + (if (pair? _%tl199772199819%_) + (let ((_%tl199774199826%_ (let () (declare (not safe)) - (##cdr _%tl196318196365%_))) - (_%hd196319196370%_ + (##cdr _%tl199772199819%_))) + (_%hd199773199824%_ (let () (declare (not safe)) - (##car _%tl196318196365%_)))) - (if (pair? _%tl196320196372%_) - (let ((_%tl196322196379%_ + (##car _%tl199772199819%_)))) + (if (pair? _%tl199774199826%_) + (let ((_%tl199776199833%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%tl196320196372%_))) - (_%hd196321196377%_ - (let () (declare (not safe)) (##car _%tl196320196372%_)))) - (if (null? _%tl196322196379%_) - (let ((_%name196361%_ _%hd196315196356%_) - (_%body196368%_ _%hd196317196363%_) - (_%bind196375%_ _%hd196319196370%_) - (_%assert196382%_ _%hd196321196377%_) - (_%rest196384%_ _%tl196314196353%_)) - (_%K196312196348%_ - _%rest196384%_ - _%assert196382%_ - _%bind196375%_ - _%body196368%_ - _%name196361%_)) - (_%E196310196328%_))) - (_%E196310196328%_))) + (##cdr _%tl199774199826%_))) + (_%hd199775199831%_ + (let () (declare (not safe)) (##car _%tl199774199826%_)))) + (if (null? _%tl199776199833%_) + (let ((_%name199815%_ _%hd199769199810%_) + (_%body199822%_ _%hd199771199817%_) + (_%bind199829%_ _%hd199773199824%_) + (_%assert199836%_ _%hd199775199831%_) + (_%rest199838%_ _%tl199768199807%_)) + (_%K199766199802%_ + _%rest199838%_ + _%assert199836%_ + _%bind199829%_ + _%body199822%_ + _%name199815%_)) + (_%E199764199782%_))) + (_%E199764199782%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E196310196328%_))) - (_%E196310196328%_))) - (_%E196310196328%_))) - (_%try-match196309196336%_)))))))) - (let* ((_%clause196207196214%_ _%clause196200%_) - (_%E196209196218%_ + (_%E199764199782%_))) + (_%E199764199782%_))) + (_%E199764199782%_))) + (_%try-match199763199790%_)))))))) + (let* ((_%clause199662199669%_ _%clause199655%_) + (_%E199664199672%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause196207196214%_ + _%clause199662199669%_ '([name . body]))) '#!void)) - (_%K196210196293%_ - (lambda (_%body196221%_ _%name196222%_) - (let* ((_%g196224196240%_ - (lambda (_%g196225196237%_) + (_%K199665199747%_ + (lambda (_%body199675%_ _%name199676%_) + (let* ((_%g199678199694%_ + (lambda (_%g199679199691%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g196225196237%_)))) - (_%g196223196290%_ - (lambda (_%g196225196243%_) + _%g199679199691%_)))) + (_%g199677199744%_ + (lambda (_%g199679199697%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g196225196243%_)) - (let ((_%e196227196245%_ + (gx#stx-pair? _%g199679199697%_)) + (let ((_%e199681199699%_ (let () (declare (not safe)) - (gx#stx-e _%g196225196243%_)))) - (let ((_%hd196228196248%_ + (gx#stx-e _%g199679199697%_)))) + (let ((_%hd199682199702%_ (let () (declare (not safe)) - (##car _%e196227196245%_))) - (_%tl196229196250%_ + (##car _%e199681199699%_))) + (_%tl199683199704%_ (let () (declare (not safe)) - (##cdr _%e196227196245%_)))) + (##cdr _%e199681199699%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd196228196248%_)) + _%hd199682199702%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd196228196248%_)) + _%hd199682199702%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl196229196250%_)) - (let ((_%e196230196253%_ + _%tl199683199704%_)) + (let ((_%e199684199707%_ (let () (declare (not safe)) (gx#stx-e - _%tl196229196250%_)))) - (let ((_%hd196231196256%_ + _%tl199683199704%_)))) + (let ((_%hd199685199710%_ (let () (declare (not safe)) - (##car _%e196230196253%_))) - (_%tl196232196258%_ + (##car _%e199684199707%_))) + (_%tl199686199712%_ (let () (declare (not safe)) - (##cdr _%e196230196253%_)))) + (##cdr _%e199684199707%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%hd196231196256%_)) + _%hd199685199710%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl196232196258%_)) - (let ((_%e196233196261%_ + (gx#stx-pair? _%tl199686199712%_)) + (let ((_%e199687199715%_ (let () (declare (not safe)) - (gx#stx-e _%tl196232196258%_)))) - (let ((_%hd196234196264%_ + (gx#stx-e _%tl199686199712%_)))) + (let ((_%hd199688199718%_ (let () (declare (not safe)) - (##car _%e196233196261%_))) - (_%tl196235196266%_ + (##car _%e199687199715%_))) + (_%tl199689199720%_ (let () (declare (not safe)) - (##cdr _%e196233196261%_)))) + (##cdr _%e199687199715%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196235196266%_)) - ((lambda (_%L196269%_) - (let ((_g201178_ - (_%basic-block196205%_ - _%L196269%_ + (gx#stx-null? _%tl199689199720%_)) + ((lambda (_%g199680199723%_) + (let ((_g204619_ + (_%basic-block199660%_ + _%g199680199723%_ '() '()))) (begin - (let ((_g201179_ + (let ((_g204620_ (let () (declare (not safe)) - (if (##values? _g201178_) - (##values-length _g201178_) + (if (##values? _g204619_) + (##values-length _g204619_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g201179_ 2))) + (##fx= _g204620_ 2))) (error "Context expects 2 values" - _g201179_))) - (let ((_%body196287%_ + _g204620_))) + (let ((_%body199741%_ (let () (declare (not safe)) - (##values-ref _g201178_ 0))) - (_%body-blocks196288%_ + (##values-ref _g204619_ 0))) + (_%body-blocks199742%_ (let () (declare (not safe)) - (##values-ref _g201178_ 1)))) - (_%fold-blocks196206%_ - _%body-blocks196288%_ - (cons (cons _%name196222%_ + (##values-ref _g204619_ 1)))) + (_%fold-blocks199661%_ + _%body-blocks199742%_ + (cons (cons _%name199676%_ (cons 'restart: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() (cons _%body196287%_ '()))) + (cons '() (cons _%body199741%_ '()))) (cons '() '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%blocks196201%_)))))) - _%hd196234196264%_) - (_%g196224196240%_ _%g196225196243%_)))) - (_%g196224196240%_ _%g196225196243%_)) - (_%g196224196240%_ _%g196225196243%_)))) + _%blocks199656%_)))))) + _%hd199688199718%_) + (_%g199678199694%_ _%g199679199697%_)))) + (_%g199678199694%_ _%g199679199697%_)) + (_%g199678199694%_ _%g199679199697%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g196224196240%_ - _%g196225196243%_)) - (_%g196224196240%_ - _%g196225196243%_)) - (_%g196224196240%_ - _%g196225196243%_)))) - (_%g196224196240%_ _%g196225196243%_))))) - (_%g196223196290%_ _%body196221%_))))) - (if (pair? _%clause196207196214%_) - (let ((_%hd196211196296%_ + (_%g199678199694%_ + _%g199679199697%_)) + (_%g199678199694%_ + _%g199679199697%_)) + (_%g199678199694%_ + _%g199679199697%_)))) + (_%g199678199694%_ _%g199679199697%_))))) + (_%g199677199744%_ _%body199675%_))))) + (if (pair? _%clause199662199669%_) + (let ((_%hd199666199750%_ (let () (declare (not safe)) - (##car _%clause196207196214%_))) - (_%tl196212196298%_ + (##car _%clause199662199669%_))) + (_%tl199667199752%_ (let () (declare (not safe)) - (##cdr _%clause196207196214%_)))) - (let* ((_%name196301%_ _%hd196211196296%_) - (_%body196303%_ _%tl196212196298%_)) - (_%K196210196293%_ _%body196303%_ _%name196301%_))) - (_%E196209196218%_)))))) + (##cdr _%clause199662199669%_)))) + (let* ((_%name199755%_ _%hd199666199750%_) + (_%body199757%_ _%tl199667199752%_)) + (_%K199665199747%_ _%body199757%_ _%name199755%_))) + (_%E199664199672%_)))))) (define gxc#optimize-match-fold-basic-blocks - (lambda (_%blocks195806%_) - (let _%lp195808%_ ((_%rest195810%_ _%blocks195806%_) - (_%blocks195811%_ '())) - (let* ((_%rest195812195820%_ _%rest195810%_) - (_%else195814195869%_ + (lambda (_%blocks199264%_) + (let _%lp199266%_ ((_%rest199268%_ _%blocks199264%_) + (_%blocks199269%_ '())) + (let* ((_%rest199270199278%_ _%rest199268%_) + (_%else199272199326%_ (lambda () - (let ((__tmp201180 - (lambda (_%block195828%_ _%r195829%_) - (let* ((_%block195830195841%_ _%block195828%_) - (_%E195832195845%_ + (let ((__tmp204621 + (lambda (_%block199286%_ _%r199287%_) + (let* ((_%block199288199299%_ _%block199286%_) + (_%E199290199302%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block195830195841%_ + _%block199288199299%_ '([name _ kont . _]))) '#!void)) - (_%K195833195851%_ - (lambda (_%kont195848%_ _%name195849%_) - (cons (cons _%name195849%_ - _%kont195848%_) - _%r195829%_)))) - (if (pair? _%block195830195841%_) - (let ((_%hd195834195854%_ + (_%K199291199308%_ + (lambda (_%kont199305%_ _%name199306%_) + (cons (cons _%name199306%_ + _%kont199305%_) + _%r199287%_)))) + (if (pair? _%block199288199299%_) + (let ((_%hd199292199311%_ (let () (declare (not safe)) - (##car _%block195830195841%_))) - (_%tl195835195856%_ + (##car _%block199288199299%_))) + (_%tl199293199313%_ (let () (declare (not safe)) - (##cdr _%block195830195841%_)))) - (let ((_%name195859%_ _%hd195834195854%_)) - (if (pair? _%tl195835195856%_) - (let ((_%tl195837195861%_ + (##cdr _%block199288199299%_)))) + (let ((_%name199316%_ _%hd199292199311%_)) + (if (pair? _%tl199293199313%_) + (let ((_%tl199295199318%_ (let () (declare (not safe)) - (##cdr _%tl195835195856%_)))) - (if (pair? _%tl195837195861%_) - (let* ((_%hd195838195864%_ + (##cdr _%tl199293199313%_)))) + (if (pair? _%tl199295199318%_) + (let* ((_%hd199296199321%_ (let () (declare (not safe)) - (##car _%tl195837195861%_))) - (_%kont195867%_ - _%hd195838195864%_)) - (_%K195833195851%_ - _%kont195867%_ - _%name195859%_)) - (_%E195832195845%_))) - (_%E195832195845%_)))) - (_%E195832195845%_)))))) + (##car _%tl199295199318%_))) + (_%kont199324%_ + _%hd199296199321%_)) + (_%K199291199308%_ + _%kont199324%_ + _%name199316%_)) + (_%E199290199302%_))) + (_%E199290199302%_)))) + (_%E199290199302%_)))))) (declare (not safe)) - (__foldl1 __tmp201180 '() _%blocks195811%_)))) - (_%K195816196188%_ - (lambda (_%rest195872%_ _%block195873%_) - (let* ((_%block195874195899%_ _%block195873%_) - (_%E195877195903%_ + (__foldl1 __tmp204621 '() _%blocks199269%_)))) + (_%K199274199643%_ + (lambda (_%rest199329%_ _%block199330%_) + (let* ((_%block199331199356%_ _%block199330%_) + (_%E199334199360%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block195874195899%_ + _%block199331199356%_ '([name restart: kont assert]) '([name continue: kont assert bind]))) '#!void))) - (let ((_%K195889196159%_ - (lambda (_%assert196081%_ - _%kont196082%_ - _%name196083%_) - (let* ((_%g196085196101%_ - (lambda (_%g196086196098%_) + (let ((_%K199346199614%_ + (lambda (_%assert199536%_ + _%kont199537%_ + _%name199538%_) + (let* ((_%g199540199556%_ + (lambda (_%g199541199553%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g196086196098%_)))) - (_%g196084196156%_ - (lambda (_%g196086196104%_) + _%g199541199553%_)))) + (_%g199539199611%_ + (lambda (_%g199541199559%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g196086196104%_)) - (let ((_%e196088196106%_ + _%g199541199559%_)) + (let ((_%e199543199561%_ (let () (declare (not safe)) (gx#stx-e - _%g196086196104%_)))) - (let ((_%hd196089196109%_ + _%g199541199559%_)))) + (let ((_%hd199544199564%_ (let () (declare (not safe)) - (##car _%e196088196106%_))) - (_%tl196090196111%_ + (##car _%e199543199561%_))) + (_%tl199545199566%_ (let () (declare (not safe)) - (##cdr _%e196088196106%_)))) + (##cdr _%e199543199561%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd196089196109%_)) + _%hd199544199564%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd196089196109%_)) + _%hd199544199564%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl196090196111%_)) - (let ((_%e196091196114%_ + (gx#stx-pair? _%tl199545199566%_)) + (let ((_%e199546199569%_ (let () (declare (not safe)) - (gx#stx-e _%tl196090196111%_)))) - (let ((_%hd196092196117%_ + (gx#stx-e _%tl199545199566%_)))) + (let ((_%hd199547199572%_ (let () (declare (not safe)) - (##car _%e196091196114%_))) - (_%tl196093196119%_ + (##car _%e199546199569%_))) + (_%tl199548199574%_ (let () (declare (not safe)) - (##cdr _%e196091196114%_)))) + (##cdr _%e199546199569%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%hd196092196117%_)) + (gx#stx-null? _%hd199547199572%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196093196119%_)) - (let ((_%e196094196122%_ + (gx#stx-pair? _%tl199548199574%_)) + (let ((_%e199549199577%_ (let () (declare (not safe)) - (gx#stx-e _%tl196093196119%_)))) - (let ((_%hd196095196125%_ + (gx#stx-e _%tl199548199574%_)))) + (let ((_%hd199550199580%_ (let () (declare (not safe)) - (##car _%e196094196122%_))) - (_%tl196096196127%_ + (##car _%e199549199577%_))) + (_%tl199551199582%_ (let () (declare (not safe)) - (##cdr _%e196094196122%_)))) + (##cdr _%e199549199577%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196096196127%_)) - ((lambda (_%L196130%_) - (let* ((_%body196145%_ + (gx#stx-null? _%tl199551199582%_)) + ((lambda (_%g199542199585%_) + (let* ((_%body199600%_ (gxc#optimize-match-block - _%L196130%_ - _%assert196081%_ + _%g199542199585%_ + _%assert199536%_ '() - _%rest195872%_)) - (_%block196147%_ - (cons _%name196083%_ + _%rest199329%_)) + (_%block199602%_ + (cons _%name199538%_ (cons 'restart: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() (cons _%body196145%_ '()))) - (cons _%assert196081%_ '()))))) + (cons '() (cons _%body199600%_ '()))) + (cons _%assert199536%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%blocks196149%_ - (cons _%block196147%_ - _%blocks195811%_)) - (_%rest196151%_ + (_%blocks199604%_ + (cons _%block199602%_ + _%blocks199269%_)) + (_%rest199606%_ (gxc#optimize-match-prune-blocks - _%rest195872%_ - _%blocks196149%_)) - (_%rest196153%_ + _%rest199329%_ + _%blocks199604%_)) + (_%rest199608%_ (gxc#optimize-match-fuse-restart-blocks - _%rest196151%_ - _%blocks196149%_))) - (_%lp195808%_ - _%rest196153%_ - _%blocks196149%_))) - _%hd196095196125%_) - (_%g196085196101%_ - _%g196086196104%_)))) - (_%g196085196101%_ _%g196086196104%_)) - (_%g196085196101%_ _%g196086196104%_)))) - (_%g196085196101%_ _%g196086196104%_)) - (_%g196085196101%_ _%g196086196104%_)) + _%rest199606%_ + _%blocks199604%_))) + (_%lp199266%_ + _%rest199608%_ + _%blocks199604%_))) + _%hd199550199580%_) + (_%g199540199556%_ + _%g199541199559%_)))) + (_%g199540199556%_ _%g199541199559%_)) + (_%g199540199556%_ _%g199541199559%_)))) + (_%g199540199556%_ _%g199541199559%_)) + (_%g199540199556%_ _%g199541199559%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g196085196101%_ - _%g196086196104%_)))) - (_%g196085196101%_ - _%g196086196104%_))))) - (_%g196084196156%_ _%kont196082%_)))) - (_%K195878196042%_ - (lambda (_%bind195907%_ - _%assert195908%_ - _%kont195909%_ - _%name195910%_) - (let* ((_%g195912195938%_ - (lambda (_%g195913195935%_) + (_%g199540199556%_ + _%g199541199559%_)))) + (_%g199540199556%_ + _%g199541199559%_))))) + (_%g199539199611%_ _%kont199537%_)))) + (_%K199335199497%_ + (lambda (_%bind199364%_ + _%assert199365%_ + _%kont199366%_ + _%name199367%_) + (let* ((_%g199369199395%_ + (lambda (_%g199370199392%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g195913195935%_)))) - (_%g195911196039%_ - (lambda (_%g195913195941%_) + _%g199370199392%_)))) + (_%g199368199494%_ + (lambda (_%g199370199398%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g195913195941%_)) - (let ((_%e195916195943%_ + _%g199370199398%_)) + (let ((_%e199373199400%_ (let () (declare (not safe)) (gx#stx-e - _%g195913195941%_)))) - (let ((_%hd195917195946%_ + _%g199370199398%_)))) + (let ((_%hd199374199403%_ (let () (declare (not safe)) - (##car _%e195916195943%_))) - (_%tl195918195948%_ + (##car _%e199373199400%_))) + (_%tl199375199405%_ (let () (declare (not safe)) - (##cdr _%e195916195943%_)))) + (##cdr _%e199373199400%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd195917195946%_)) + _%hd199374199403%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd195917195946%_)) + _%hd199374199403%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl195918195948%_)) - (let ((_%e195919195951%_ + (gx#stx-pair? _%tl199375199405%_)) + (let ((_%e199376199408%_ (let () (declare (not safe)) - (gx#stx-e _%tl195918195948%_)))) - (let ((_%hd195920195954%_ + (gx#stx-e _%tl199375199405%_)))) + (let ((_%hd199377199411%_ (let () (declare (not safe)) - (##car _%e195919195951%_))) - (_%tl195921195956%_ + (##car _%e199376199408%_))) + (_%tl199378199413%_ (let () (declare (not safe)) - (##cdr _%e195919195951%_)))) + (##cdr _%e199376199408%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd195920195954%_)) - (let ((_g201181_ + (gx#stx-pair/null? _%hd199377199411%_)) + (let ((_g204622_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd195920195954%_ + _%hd199377199411%_ '0)))) (begin - (let ((_g201182_ + (let ((_g204623_ (let () (declare (not safe)) - (if (##values? _g201181_) - (##values-length _g201181_) + (if (##values? _g204622_) + (##values-length _g204622_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g201182_ 2))) + (##fx= _g204623_ 2))) (error "Context expects 2 values" - _g201182_))) - (let ((_%target195922195959%_ + _g204623_))) + (let ((_%target199379199416%_ (let () (declare (not safe)) - (##values-ref _g201181_ 0))) - (_%tl195924195961%_ + (##values-ref _g204622_ 0))) + (_%tl199381199418%_ (let () (declare (not safe)) - (##values-ref _g201181_ 1)))) + (##values-ref _g204622_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195924195961%_)) - (letrec ((_%loop195925195964%_ - (lambda (_%hd195923195967%_ - _%id195929195969%_) + (gx#stx-null? _%tl199381199418%_)) + (letrec ((_%loop199382199421%_ + (lambda (_%hd199380199424%_ + _%id199386199426%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd195923195967%_)) - (let ((_%e195926195972%_ + _%hd199380199424%_)) + (let ((_%e199383199428%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd195923195967%_)))) - (let ((_%lp-hd195927195975%_ + (gx#stx-e _%hd199380199424%_)))) + (let ((_%lp-hd199384199431%_ (let () (declare (not safe)) - (##car _%e195926195972%_))) - (_%lp-tl195928195977%_ + (##car _%e199383199428%_))) + (_%lp-tl199385199433%_ (let () (declare (not safe)) - (##cdr _%e195926195972%_)))) - (_%loop195925195964%_ - _%lp-tl195928195977%_ - (cons _%lp-hd195927195975%_ _%id195929195969%_)))) - (let ((_%id195930195980%_ (reverse _%id195929195969%_))) + (##cdr _%e199383199428%_)))) + (_%loop199382199421%_ + _%lp-tl199385199433%_ + (cons _%lp-hd199384199431%_ _%id199386199426%_)))) + (let ((_%id199387199436%_ (reverse _%id199386199426%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195921195956%_)) - (let ((_%e195931195983%_ + (gx#stx-pair? _%tl199378199413%_)) + (let ((_%e199388199438%_ (let () (declare (not safe)) - (gx#stx-e _%tl195921195956%_)))) - (let ((_%hd195932195986%_ + (gx#stx-e _%tl199378199413%_)))) + (let ((_%hd199389199441%_ (let () (declare (not safe)) - (##car _%e195931195983%_))) - (_%tl195933195988%_ + (##car _%e199388199438%_))) + (_%tl199390199443%_ (let () (declare (not safe)) - (##cdr _%e195931195983%_)))) + (##cdr _%e199388199438%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195933195988%_)) - ((lambda (_%L195991%_ _%L195992%_) - (let* ((_%body196021%_ + (gx#stx-null? _%tl199390199443%_)) + ((lambda (_%g199371199446%_ _%g199372199447%_) + (let* ((_%body199476%_ (gxc#optimize-match-block - _%L195991%_ - _%assert195908%_ - _%bind195907%_ - _%rest195872%_)) - (_%block196030%_ - (cons _%name195910%_ + _%g199371199446%_ + _%assert199365%_ + _%bind199364%_ + _%rest199329%_)) + (_%block199485%_ + (cons _%name199367%_ (cons 'continue: (cons (cons '%#lambda - (cons (let ((__tmp201183 + (cons (let ((__tmp204624 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g196022196025%_ - _%g196023196027%_) - (cons _%g196022196025%_ - _%g196023196027%_)))) + (lambda (_%g199477199480%_ + _%g199478199482%_) + (cons _%g199477199480%_ + _%g199478199482%_)))) (declare (not safe)) - (__foldr1 __tmp201183 '() _%L195992%_)) - (cons _%body196021%_ '()))) - (cons _%assert195908%_ (cons _%bind195907%_ '())))))) + (__foldr1 __tmp204624 '() _%g199372199447%_)) + (cons _%body199476%_ '()))) + (cons _%assert199365%_ (cons _%bind199364%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%blocks196032%_ - (cons _%block196030%_ - _%blocks195811%_)) - (_%rest196034%_ + (_%blocks199487%_ + (cons _%block199485%_ + _%blocks199269%_)) + (_%rest199489%_ (gxc#optimize-match-prune-blocks - _%rest195872%_ - _%blocks196032%_)) - (_%rest196036%_ + _%rest199329%_ + _%blocks199487%_)) + (_%rest199491%_ (gxc#optimize-match-fuse-restart-blocks - _%rest196034%_ - _%blocks196032%_))) - (_%lp195808%_ - _%rest196036%_ - _%blocks196032%_))) - _%hd195932195986%_ - _%id195930195980%_) - (_%g195912195938%_ _%g195913195941%_)))) - (_%g195912195938%_ _%g195913195941%_))))))) + _%rest199489%_ + _%blocks199487%_))) + (_%lp199266%_ + _%rest199491%_ + _%blocks199487%_))) + _%hd199389199441%_ + _%id199387199436%_) + (_%g199369199395%_ _%g199370199398%_)))) + (_%g199369199395%_ _%g199370199398%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop195925195964%_ - _%target195922195959%_ + (_%loop199382199421%_ + _%target199379199416%_ '())) - (_%g195912195938%_ - _%g195913195941%_))))) - (_%g195912195938%_ _%g195913195941%_)))) - (_%g195912195938%_ _%g195913195941%_)) - (_%g195912195938%_ _%g195913195941%_)) + (_%g199369199395%_ + _%g199370199398%_))))) + (_%g199369199395%_ _%g199370199398%_)))) + (_%g199369199395%_ _%g199370199398%_)) + (_%g199369199395%_ _%g199370199398%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g195912195938%_ - _%g195913195941%_)))) - (_%g195912195938%_ - _%g195913195941%_))))) - (_%g195911196039%_ _%kont195909%_))))) - (let* ((_%__match198541198542%_ - (lambda (_%hd195879196045%_ - _%tl195880196047%_ - _%hd195881196052%_ - _%tl195882196054%_ - _%hd195883196057%_ - _%tl195884196059%_ - _%hd195885196064%_ - _%tl195886196066%_ - _%hd195887196071%_ - _%tl195888196073%_) - (let ((_%name196050%_ _%hd195879196045%_) - (_%kont196062%_ _%hd195883196057%_) - (_%assert196069%_ _%hd195885196064%_) - (_%bind196076%_ _%hd195887196071%_)) - (_%E195877195903%_)))) - (_%__match198535198536%_ - (lambda (_%hd195879196045%_ - _%tl195880196047%_ - _%hd195881196052%_ - _%tl195882196054%_ - _%hd195883196057%_ - _%tl195884196059%_ - _%hd195885196064%_ - _%tl195886196066%_) - (let ((_%name196050%_ _%hd195879196045%_) - (_%kont196062%_ _%hd195883196057%_) - (_%assert196069%_ _%hd195885196064%_)) - (_%E195877195903%_)))) - (_%__match198529198530%_ - (lambda (_%hd195879196045%_ - _%tl195880196047%_ - _%hd195881196052%_ - _%tl195882196054%_ - _%hd195883196057%_ - _%tl195884196059%_) - (let ((_%name196050%_ _%hd195879196045%_) - (_%kont196062%_ _%hd195883196057%_)) - (_%E195877195903%_)))) - (_%__match198523198524%_ - (lambda (_%hd195879196045%_ - _%tl195880196047%_ - _%hd195881196052%_ - _%tl195882196054%_) - (let ((_%name196050%_ _%hd195879196045%_)) - (_%E195877195903%_)))) - (_%__match198519198520%_ - (lambda (_%hd195879196045%_ - _%tl195880196047%_ - _%hd195881196052%_ - _%tl195882196054%_) - (let ((_%name196050%_ _%hd195879196045%_)) - (_%E195877195903%_)))) - (_%__match198513198514%_ - (lambda (_%hd195879196045%_ _%tl195880196047%_) - (let ((_%name196050%_ _%hd195879196045%_)) - (_%E195877195903%_))))) - (if (pair? _%block195874195899%_) - (let ((_%tl195891196164%_ + (_%g199369199395%_ + _%g199370199398%_)))) + (_%g199369199395%_ + _%g199370199398%_))))) + (_%g199368199494%_ _%kont199366%_))))) + (let* ((_%__match201982201983%_ + (lambda (_%hd199336199500%_ + _%tl199337199502%_ + _%hd199338199507%_ + _%tl199339199509%_ + _%hd199340199512%_ + _%tl199341199514%_ + _%hd199342199519%_ + _%tl199343199521%_ + _%hd199344199526%_ + _%tl199345199528%_) + (let ((_%name199505%_ _%hd199336199500%_) + (_%kont199517%_ _%hd199340199512%_) + (_%assert199524%_ _%hd199342199519%_) + (_%bind199531%_ _%hd199344199526%_)) + (_%E199334199360%_)))) + (_%__match201976201977%_ + (lambda (_%hd199336199500%_ + _%tl199337199502%_ + _%hd199338199507%_ + _%tl199339199509%_ + _%hd199340199512%_ + _%tl199341199514%_ + _%hd199342199519%_ + _%tl199343199521%_) + (let ((_%name199505%_ _%hd199336199500%_) + (_%kont199517%_ _%hd199340199512%_) + (_%assert199524%_ _%hd199342199519%_)) + (_%E199334199360%_)))) + (_%__match201970201971%_ + (lambda (_%hd199336199500%_ + _%tl199337199502%_ + _%hd199338199507%_ + _%tl199339199509%_ + _%hd199340199512%_ + _%tl199341199514%_) + (let ((_%name199505%_ _%hd199336199500%_) + (_%kont199517%_ _%hd199340199512%_)) + (_%E199334199360%_)))) + (_%__match201964201965%_ + (lambda (_%hd199336199500%_ + _%tl199337199502%_ + _%hd199338199507%_ + _%tl199339199509%_) + (let ((_%name199505%_ _%hd199336199500%_)) + (_%E199334199360%_)))) + (_%__match201960201961%_ + (lambda (_%hd199336199500%_ + _%tl199337199502%_ + _%hd199338199507%_ + _%tl199339199509%_) + (let ((_%name199505%_ _%hd199336199500%_)) + (_%E199334199360%_)))) + (_%__match201954201955%_ + (lambda (_%hd199336199500%_ _%tl199337199502%_) + (let ((_%name199505%_ _%hd199336199500%_)) + (_%E199334199360%_))))) + (if (pair? _%block199331199356%_) + (let ((_%tl199348199619%_ (let () (declare (not safe)) - (##cdr _%block195874195899%_))) - (_%hd195890196162%_ + (##cdr _%block199331199356%_))) + (_%hd199347199617%_ (let () (declare (not safe)) - (##car _%block195874195899%_)))) - (if (pair? _%tl195891196164%_) - (let ((_%tl195893196171%_ + (##car _%block199331199356%_)))) + (if (pair? _%tl199348199619%_) + (let ((_%tl199350199626%_ (let () (declare (not safe)) - (##cdr _%tl195891196164%_))) - (_%hd195892196169%_ + (##cdr _%tl199348199619%_))) + (_%hd199349199624%_ (let () (declare (not safe)) - (##car _%tl195891196164%_)))) + (##car _%tl199348199619%_)))) (if (let () (declare (not safe)) - (##eq? _%hd195892196169%_ + (##eq? _%hd199349199624%_ 'restart:)) - (if (pair? _%tl195893196171%_) - (let ((_%tl195895196176%_ + (if (pair? _%tl199350199626%_) + (let ((_%tl199352199631%_ (let () (declare (not safe)) - (##cdr _%tl195893196171%_))) - (_%hd195894196174%_ + (##cdr _%tl199350199626%_))) + (_%hd199351199629%_ (let () (declare (not safe)) - (##car _%tl195893196171%_)))) - (if (pair? _%tl195895196176%_) - (let ((_%tl195897196183%_ + (##car _%tl199350199626%_)))) + (if (pair? _%tl199352199631%_) + (let ((_%tl199354199638%_ (let () (declare (not safe)) - (##cdr _%tl195895196176%_))) - (_%hd195896196181%_ + (##cdr _%tl199352199631%_))) + (_%hd199353199636%_ (let () (declare (not safe)) - (##car _%tl195895196176%_)))) - (if (null? _%tl195897196183%_) - (let ((_%name196167%_ + (##car _%tl199352199631%_)))) + (if (null? _%tl199354199638%_) + (let ((_%name199622%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd195890196162%_) - (_%kont196179%_ _%hd195894196174%_) - (_%assert196186%_ _%hd195896196181%_)) - (_%K195889196159%_ - _%assert196186%_ - _%kont196179%_ - _%name196167%_)) - (_%__match198519198520%_ - _%hd195890196162%_ - _%tl195891196164%_ - _%hd195892196169%_ - _%tl195893196171%_))) + _%hd199347199617%_) + (_%kont199634%_ _%hd199351199629%_) + (_%assert199641%_ _%hd199353199636%_)) + (_%K199346199614%_ + _%assert199641%_ + _%kont199634%_ + _%name199622%_)) + (_%__match201960201961%_ + _%hd199347199617%_ + _%tl199348199619%_ + _%hd199349199624%_ + _%tl199350199626%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match198519198520%_ - _%hd195890196162%_ - _%tl195891196164%_ - _%hd195892196169%_ - _%tl195893196171%_))) - (_%__match198519198520%_ - _%hd195890196162%_ - _%tl195891196164%_ - _%hd195892196169%_ - _%tl195893196171%_)) + (_%__match201960201961%_ + _%hd199347199617%_ + _%tl199348199619%_ + _%hd199349199624%_ + _%tl199350199626%_))) + (_%__match201960201961%_ + _%hd199347199617%_ + _%tl199348199619%_ + _%hd199349199624%_ + _%tl199350199626%_)) (if (let () (declare (not safe)) - (##eq? _%hd195892196169%_ + (##eq? _%hd199349199624%_ 'continue:)) - (if (pair? _%tl195893196171%_) - (let ((_%tl195884196059%_ + (if (pair? _%tl199350199626%_) + (let ((_%tl199341199514%_ (let () (declare (not safe)) - (##cdr _%tl195893196171%_))) - (_%hd195883196057%_ + (##cdr _%tl199350199626%_))) + (_%hd199340199512%_ (let () (declare (not safe)) - (##car _%tl195893196171%_)))) - (if (pair? _%tl195884196059%_) - (let ((_%tl195886196066%_ + (##car _%tl199350199626%_)))) + (if (pair? _%tl199341199514%_) + (let ((_%tl199343199521%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%tl195884196059%_))) - (_%hd195885196064%_ + (##cdr _%tl199341199514%_))) + (_%hd199342199519%_ (let () (declare (not safe)) - (##car _%tl195884196059%_)))) - (if (pair? _%tl195886196066%_) - (let ((_%tl195888196073%_ + (##car _%tl199341199514%_)))) + (if (pair? _%tl199343199521%_) + (let ((_%tl199345199528%_ (let () (declare (not safe)) - (##cdr _%tl195886196066%_))) - (_%hd195887196071%_ + (##cdr _%tl199343199521%_))) + (_%hd199344199526%_ (let () (declare (not safe)) - (##car _%tl195886196066%_)))) - (if (null? _%tl195888196073%_) - (let ((_%name196050%_ _%hd195890196162%_) - (_%kont196062%_ _%hd195883196057%_) - (_%assert196069%_ _%hd195885196064%_) - (_%bind196076%_ _%hd195887196071%_)) - (_%K195878196042%_ - _%bind196076%_ - _%assert196069%_ - _%kont196062%_ - _%name196050%_)) - (_%__match198541198542%_ - _%hd195890196162%_ - _%tl195891196164%_ - _%hd195892196169%_ - _%tl195893196171%_ - _%hd195883196057%_ - _%tl195884196059%_ - _%hd195885196064%_ - _%tl195886196066%_ - _%hd195887196071%_ - _%tl195888196073%_))) - (_%__match198535198536%_ - _%hd195890196162%_ - _%tl195891196164%_ - _%hd195892196169%_ - _%tl195893196171%_ - _%hd195883196057%_ - _%tl195884196059%_ - _%hd195885196064%_ - _%tl195886196066%_))) - (_%__match198529198530%_ - _%hd195890196162%_ - _%tl195891196164%_ - _%hd195892196169%_ - _%tl195893196171%_ - _%hd195883196057%_ - _%tl195884196059%_))) + (##car _%tl199343199521%_)))) + (if (null? _%tl199345199528%_) + (let ((_%name199505%_ _%hd199347199617%_) + (_%kont199517%_ _%hd199340199512%_) + (_%assert199524%_ _%hd199342199519%_) + (_%bind199531%_ _%hd199344199526%_)) + (_%K199335199497%_ + _%bind199531%_ + _%assert199524%_ + _%kont199517%_ + _%name199505%_)) + (_%__match201982201983%_ + _%hd199347199617%_ + _%tl199348199619%_ + _%hd199349199624%_ + _%tl199350199626%_ + _%hd199340199512%_ + _%tl199341199514%_ + _%hd199342199519%_ + _%tl199343199521%_ + _%hd199344199526%_ + _%tl199345199528%_))) + (_%__match201976201977%_ + _%hd199347199617%_ + _%tl199348199619%_ + _%hd199349199624%_ + _%tl199350199626%_ + _%hd199340199512%_ + _%tl199341199514%_ + _%hd199342199519%_ + _%tl199343199521%_))) + (_%__match201970201971%_ + _%hd199347199617%_ + _%tl199348199619%_ + _%hd199349199624%_ + _%tl199350199626%_ + _%hd199340199512%_ + _%tl199341199514%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match198523198524%_ - _%hd195890196162%_ - _%tl195891196164%_ - _%hd195892196169%_ - _%tl195893196171%_)) - (_%__match198519198520%_ - _%hd195890196162%_ - _%tl195891196164%_ - _%hd195892196169%_ - _%tl195893196171%_)))) - (_%__match198513198514%_ - _%hd195890196162%_ - _%tl195891196164%_))) - (_%E195877195903%_)))))))) - (if (pair? _%rest195812195820%_) - (let ((_%hd195817196191%_ + (_%__match201964201965%_ + _%hd199347199617%_ + _%tl199348199619%_ + _%hd199349199624%_ + _%tl199350199626%_)) + (_%__match201960201961%_ + _%hd199347199617%_ + _%tl199348199619%_ + _%hd199349199624%_ + _%tl199350199626%_)))) + (_%__match201954201955%_ + _%hd199347199617%_ + _%tl199348199619%_))) + (_%E199334199360%_)))))))) + (if (pair? _%rest199270199278%_) + (let ((_%hd199275199646%_ (let () (declare (not safe)) - (##car _%rest195812195820%_))) - (_%tl195818196193%_ + (##car _%rest199270199278%_))) + (_%tl199276199648%_ (let () (declare (not safe)) - (##cdr _%rest195812195820%_)))) - (let* ((_%block196196%_ _%hd195817196191%_) - (_%rest196198%_ _%tl195818196193%_)) - (_%K195816196188%_ _%rest196198%_ _%block196196%_))) - (_%else195814195869%_)))))) + (##cdr _%rest199270199278%_)))) + (let* ((_%block199651%_ _%hd199275199646%_) + (_%rest199653%_ _%tl199276199648%_)) + (_%K199274199643%_ _%rest199653%_ _%block199651%_))) + (_%else199272199326%_)))))) (define gxc#optimize-match-block - (lambda (_%body190429%_ _%assert190430%_ _%bind190431%_ _%blocks190432%_) - (letrec* ((_%env-assert190667%_ '()) - (_%env-type190668%_ '()) - (_%env-bind190669%_ '()) - (_%in-splice?190670%_ '#f) - (_%do-assert190671%_ - (lambda (_%assert195729%_ _%K195730%_) - (if (pair? _%assert195729%_) - (let _%lp195732%_ ((_%rest195734%_ _%assert195729%_) - (_%env-assert195735%_ - _%env-assert190667%_) - (_%env-type195736%_ - _%env-type190668%_)) - (let* ((_%rest195737195745%_ _%rest195734%_) - (_%else195739195753%_ + (lambda (_%body193922%_ _%assert193923%_ _%bind193924%_ _%blocks193925%_) + (letrec* ((_%env-assert194160%_ '()) + (_%env-type194161%_ '()) + (_%env-bind194162%_ '()) + (_%in-splice?194163%_ '#f) + (_%do-assert194164%_ + (lambda (_%assert199188%_ _%K199189%_) + (if (pair? _%assert199188%_) + (let _%lp199191%_ ((_%rest199193%_ _%assert199188%_) + (_%env-assert199194%_ + _%env-assert194160%_) + (_%env-type199195%_ + _%env-type194161%_)) + (let* ((_%rest199196199204%_ _%rest199193%_) + (_%else199198199212%_ (lambda () - (_%do-assert!190677%_ - _%env-assert195735%_ - _%env-type195736%_ - _%K195730%_))) - (_%K195741195794%_ - (lambda (_%rest195756%_ _%assert195757%_) - (let* ((_%assert195758195765%_ - _%assert195757%_) - (_%E195760195769%_ + (_%do-assert!194170%_ + _%env-assert199194%_ + _%env-type199195%_ + _%K199189%_))) + (_%K199200199252%_ + (lambda (_%rest199215%_ _%assert199216%_) + (let* ((_%assert199217199224%_ + _%assert199216%_) + (_%E199219199227%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%assert195758195765%_ + _%assert199217199224%_ '([expr . val]))) '#!void)) - (_%K195761195782%_ - (lambda (_%val195772%_ - _%expr195773%_) - (let* ((_%sexpr195775%_ + (_%K199220199240%_ + (lambda (_%val199230%_ + _%expr199231%_) + (let* ((_%sexpr199233%_ (gxc#apply-generate-runtime-repr - _%expr195773%_)) - (_%env-assert195777%_ - (cons (cons _%sexpr195775%_ + _%expr199231%_)) + (_%env-assert199235%_ + (cons (cons _%sexpr199233%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%val195772%_) - _%env-assert195735%_)) - (_%env-type195779%_ - (_%fold-assert-type190673%_ - _%expr195773%_ - _%val195772%_ - _%env-type195736%_))) + _%val199230%_) + _%env-assert199194%_)) + (_%env-type199237%_ + (_%fold-assert-type194166%_ + _%expr199231%_ + _%val199230%_ + _%env-type199195%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp195732%_ - _%rest195756%_ - _%env-assert195777%_ - _%env-type195779%_))))) - (if (pair? _%assert195758195765%_) - (let ((_%hd195762195785%_ + (_%lp199191%_ + _%rest199215%_ + _%env-assert199235%_ + _%env-type199237%_))))) + (if (pair? _%assert199217199224%_) + (let ((_%hd199221199243%_ (let () (declare (not safe)) - (##car _%assert195758195765%_))) - (_%tl195763195787%_ + (##car _%assert199217199224%_))) + (_%tl199222199245%_ (let () (declare (not safe)) - (##cdr _%assert195758195765%_)))) - (let* ((_%expr195790%_ - _%hd195762195785%_) - (_%val195792%_ - _%tl195763195787%_)) - (_%K195761195782%_ - _%val195792%_ - _%expr195790%_))) - (_%E195760195769%_)))))) - (if (pair? _%rest195737195745%_) - (let ((_%hd195742195797%_ + (##cdr _%assert199217199224%_)))) + (let* ((_%expr199248%_ + _%hd199221199243%_) + (_%val199250%_ + _%tl199222199245%_)) + (_%K199220199240%_ + _%val199250%_ + _%expr199248%_))) + (_%E199219199227%_)))))) + (if (pair? _%rest199196199204%_) + (let ((_%hd199201199255%_ (let () (declare (not safe)) - (##car _%rest195737195745%_))) - (_%tl195743195799%_ + (##car _%rest199196199204%_))) + (_%tl199202199257%_ (let () (declare (not safe)) - (##cdr _%rest195737195745%_)))) - (let* ((_%assert195802%_ _%hd195742195797%_) - (_%rest195804%_ _%tl195743195799%_)) - (_%K195741195794%_ - _%rest195804%_ - _%assert195802%_))) - (_%else195739195753%_)))) - (_%K195730%_)))) - (_%predicate-type190672%_ - (lambda (_%id195674%_) - (let* ((_%sym195676%_ + (##cdr _%rest199196199204%_)))) + (let* ((_%assert199260%_ _%hd199201199255%_) + (_%rest199262%_ _%tl199202199257%_)) + (_%K199200199252%_ + _%rest199262%_ + _%assert199260%_))) + (_%else199198199212%_)))) + (_%K199189%_)))) + (_%predicate-type194165%_ + (lambda (_%id199133%_) + (let* ((_%sym199135%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%id195674%_))) - (_%$e195678%_ _%sym195676%_)) - (let ((_%default195680195711%_ + (gxc#identifier-symbol _%id199133%_))) + (_%$e199137%_ _%sym199135%_)) + (let ((_%default199139199170%_ (lambda () - (let* ((_%g195683195690%_ + (let* ((_%g199142199149%_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _%sym195676%_))) - (_%else195685195698%_ (lambda () '#f)) - (_%K195687195703%_ - (lambda (_%t195701%_) - (let ((__tmp201184 + _%sym199135%_))) + (_%else199144199157%_ (lambda () '#f)) + (_%K199146199162%_ + (lambda (_%t199160%_) + (let ((__tmp204625 (cons 'predicate-type - (cons _%id195674%_ + (cons _%id199133%_ '())))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp201184 - _%t195701%_))))) + __tmp204625 + _%t199160%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g195683195690%_ + _%g199142199149%_ 'gxc#!predicate::t)) - (let* ((_%e195688195706%_ + (let* ((_%e199147199165%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g195683195690%_ + _%g199142199149%_ '1 '#f '#f))) - (_%t195709%_ _%e195688195706%_)) - (_%K195687195703%_ _%t195709%_)) - (_%else195685195698%_))))) - (_%table195681195713%_ + (_%t199168%_ _%e199147199165%_)) + (_%K199146199162%_ _%t199168%_)) + (_%else199144199157%_))))) + (_%table199140199172%_ '#(#f (##box? . 3) #f @@ -3798,48 +3812,48 @@ #f #f #f))) - (if (symbol? _%$e195678%_) - (let* ((_%h195716%_ + (if (symbol? _%$e199137%_) + (let* ((_%h199175%_ (let () (declare (not safe)) - (##symbol-hash _%$e195678%_))) - (_%ix195719%_ + (##symbol-hash _%$e199137%_))) + (_%ix199178%_ (let () (declare (not safe)) - (##fxmodulo _%h195716%_ '63))) - (_%q195722%_ + (##fxmodulo _%h199175%_ '63))) + (_%q199181%_ (let () (declare (not safe)) (##vector-ref - _%table195681195713%_ - _%ix195719%_)))) - (if _%q195722%_ + _%table199140199172%_ + _%ix199178%_)))) + (if _%q199181%_ (if (eq? (let () (declare (not safe)) - (##car _%q195722%_)) - _%$e195678%_) - (let ((_%x195726%_ + (##car _%q199181%_)) + _%$e199137%_) + (let ((_%x199185%_ (let () (declare (not safe)) - (##cdr _%q195722%_)))) + (##cdr _%q199181%_)))) (if (let () (declare (not safe)) - (##fx< _%x195726%_ '5)) + (##fx< _%x199185%_ '5)) (if (let () (declare (not safe)) - (##fx< _%x195726%_ '2)) + (##fx< _%x199185%_ '2)) (if (let () (declare (not safe)) - (##fx= _%x195726%_ '0)) + (##fx= _%x199185%_ '0)) 'pair 'null) (if (let () (declare (not safe)) - (##fx= _%x195726%_ '2)) + (##fx= _%x199185%_ '2)) 'vector (if (let () (declare (not safe)) - (##fx= _%x195726%_ + (##fx= _%x199185%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '3)) 'box @@ -3847,356 +3861,362 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##fx< _%x195726%_ '7)) + (##fx< _%x199185%_ '7)) (if (let () (declare (not safe)) - (##fx= _%x195726%_ '5)) + (##fx= _%x199185%_ '5)) 'stx-pair 'stx-null) (if (let () (declare (not safe)) - (##fx= _%x195726%_ '7)) + (##fx= _%x199185%_ '7)) 'stx-vector (if (let () (declare (not safe)) - (##fx= _%x195726%_ + (##fx= _%x199185%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '8)) 'stx-box 'stx-datum))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%default195680195711%_)) - (_%default195680195711%_))) - (_%default195680195711%_)))))) - (_%fold-assert-type190673%_ - (lambda (_%expr194620%_ _%val194621%_ _%env194622%_) - (let* ((_%__stx198638198639%_ _%expr194620%_) - (_%g194630194809%_ + (_%default199139199170%_)) + (_%default199139199170%_))) + (_%default199139199170%_)))))) + (_%fold-assert-type194166%_ + (lambda (_%expr198079%_ _%val198080%_ _%env198081%_) + (let* ((_%__stx202079202080%_ _%expr198079%_) + (_%g198089198268%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx198638198639%_))))) - (let ((_%__kont198640198641%_ - (lambda (_%L195642%_ _%L195643%_) - (let ((_%$e195665%_ - (_%predicate-type190672%_ _%L195643%_))) - (if _%$e195665%_ - ((lambda (_%t195668%_) - (cons (cons _%L195642%_ - (cons _%t195668%_ - (cons _%val194621%_ + _%__stx202079202080%_))))) + (let ((_%__kont202081202082%_ + (lambda (_%g198091199101%_ _%g198092199102%_) + (let ((_%$e199124%_ + (_%predicate-type194165%_ + _%g198092199102%_))) + (if _%$e199124%_ + ((lambda (_%t199127%_) + (cons (cons _%g198091199101%_ + (cons _%t199127%_ + (cons _%val198080%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%env194622%_)) - _%$e195665%_) - _%env194622%_)))) - (_%__kont198642198643%_ - (lambda (_%L195331%_ _%L195332%_ _%L195333%_) - (let ((_%$e195358%_ + _%env198081%_)) + _%$e199124%_) + _%env198081%_)))) + (_%__kont202083202084%_ + (lambda (_%g198114198790%_ + _%g198115198791%_ + _%g198116198792%_) + (let ((_%$e198817%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L195333%_)))) - (if (or (eq? '##fx= _%$e195358%_) - (eq? 'fx= _%$e195358%_)) - (let* ((_%__stx198544198545%_ - _%L195332%_) - (_%g195365195394%_ + (gxc#identifier-symbol + _%g198116198792%_)))) + (if (or (eq? '##fx= _%$e198817%_) + (eq? 'fx= _%$e198817%_)) + (let* ((_%__stx201985201986%_ + _%g198115198791%_) + (_%g198824198853%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx198544198545%_))))) - (let ((_%__kont198546198547%_ - (lambda (_%L195462%_ - _%L195463%_) - (let ((_%$e195488%_ - (_%countf-symbol190674%_ - _%L195463%_))) - (if _%$e195488%_ - ((lambda (_%sym195491%_) - (cons (cons _%L195462%_ + _%__stx201985201986%_))))) + (let ((_%__kont201987201988%_ + (lambda (_%g198826198921%_ + _%g198827198922%_) + (let ((_%$e198947%_ + (_%countf-symbol194167%_ + _%g198827198922%_))) + (if _%$e198947%_ + ((lambda (_%sym198950%_) + (cons (cons _%g198826198921%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%sym195491%_ + (cons _%sym198950%_ (cons (let () (declare (not safe)) - (gx#stx-e _%L195331%_)) - (cons _%val194621%_ '())))) - _%env194622%_)) - _%$e195488%_) - _%env194622%_)))) + (gx#stx-e _%g198114198790%_)) + (cons _%val198080%_ '())))) + _%env198081%_)) + _%$e198947%_) + _%env198081%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198548198549%_ - (lambda () _%env194622%_))) + (_%__kont201989201990%_ + (lambda () _%env198081%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx198544198545%_)) - (let ((_%e195369195406%_ + _%__stx201985201986%_)) + (let ((_%e198828198865%_ (let () (declare (not safe)) (gx#stx-e - _%__stx198544198545%_)))) - (let ((_%tl195371195411%_ + _%__stx201985201986%_)))) + (let ((_%tl198830198870%_ (let () (declare (not safe)) - (##cdr _%e195369195406%_))) - (_%hd195370195409%_ + (##cdr _%e198828198865%_))) + (_%hd198829198868%_ (let () (declare (not safe)) - (##car _%e195369195406%_)))) + (##car _%e198828198865%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd195370195409%_)) + _%hd198829198868%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd195370195409%_)) + _%hd198829198868%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl195371195411%_)) - (let ((_%e195372195414%_ + (gx#stx-pair? _%tl198830198870%_)) + (let ((_%e198831198873%_ (let () (declare (not safe)) - (gx#stx-e _%tl195371195411%_)))) - (let ((_%tl195374195419%_ + (gx#stx-e _%tl198830198870%_)))) + (let ((_%tl198833198878%_ (let () (declare (not safe)) - (##cdr _%e195372195414%_))) - (_%hd195373195417%_ + (##cdr _%e198831198873%_))) + (_%hd198832198876%_ (let () (declare (not safe)) - (##car _%e195372195414%_)))) + (##car _%e198831198873%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd195373195417%_)) - (let ((_%e195375195422%_ + (gx#stx-pair? _%hd198832198876%_)) + (let ((_%e198834198881%_ (let () (declare (not safe)) - (gx#stx-e _%hd195373195417%_)))) - (let ((_%tl195377195427%_ + (gx#stx-e _%hd198832198876%_)))) + (let ((_%tl198836198886%_ (let () (declare (not safe)) - (##cdr _%e195375195422%_))) - (_%hd195376195425%_ + (##cdr _%e198834198881%_))) + (_%hd198835198884%_ (let () (declare (not safe)) - (##car _%e195375195422%_)))) + (##car _%e198834198881%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd195376195425%_)) + (gx#identifier? _%hd198835198884%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd195376195425%_)) + _%hd198835198884%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl195377195427%_)) - (let ((_%e195378195430%_ + _%tl198836198886%_)) + (let ((_%e198837198889%_ (let () (declare (not safe)) (gx#stx-e - _%tl195377195427%_)))) - (let ((_%tl195380195435%_ + _%tl198836198886%_)))) + (let ((_%tl198839198894%_ (let () (declare (not safe)) - (##cdr _%e195378195430%_))) - (_%hd195379195433%_ + (##cdr _%e198837198889%_))) + (_%hd198838198892%_ (let () (declare (not safe)) - (##car _%e195378195430%_)))) + (##car _%e198837198889%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl195380195435%_)) + _%tl198839198894%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl195374195419%_)) - (let ((_%e195381195438%_ + _%tl198833198878%_)) + (let ((_%e198840198897%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl195374195419%_)))) - (let ((_%tl195383195443%_ + (gx#stx-e _%tl198833198878%_)))) + (let ((_%tl198842198902%_ (let () (declare (not safe)) - (##cdr _%e195381195438%_))) - (_%hd195382195441%_ + (##cdr _%e198840198897%_))) + (_%hd198841198900%_ (let () (declare (not safe)) - (##car _%e195381195438%_)))) + (##car _%e198840198897%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd195382195441%_)) - (let ((_%e195384195446%_ + (gx#stx-pair? _%hd198841198900%_)) + (let ((_%e198843198905%_ (let () (declare (not safe)) - (gx#stx-e _%hd195382195441%_)))) - (let ((_%tl195386195451%_ + (gx#stx-e _%hd198841198900%_)))) + (let ((_%tl198845198910%_ (let () (declare (not safe)) - (##cdr _%e195384195446%_))) - (_%hd195385195449%_ + (##cdr _%e198843198905%_))) + (_%hd198844198908%_ (let () (declare (not safe)) - (##car _%e195384195446%_)))) + (##car _%e198843198905%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd195385195449%_)) + (gx#identifier? _%hd198844198908%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd195385195449%_)) + (gx#stx-eq? '%#ref _%hd198844198908%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195386195451%_)) - (let ((_%e195387195454%_ + (gx#stx-pair? _%tl198845198910%_)) + (let ((_%e198846198913%_ (let () (declare (not safe)) (gx#stx-e - _%tl195386195451%_)))) - (let ((_%tl195389195459%_ + _%tl198845198910%_)))) + (let ((_%tl198848198918%_ (let () (declare (not safe)) - (##cdr _%e195387195454%_))) - (_%hd195388195457%_ + (##cdr _%e198846198913%_))) + (_%hd198847198916%_ (let () (declare (not safe)) - (##car _%e195387195454%_)))) + (##car _%e198846198913%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl195389195459%_)) + _%tl198848198918%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl195383195443%_)) - (_%__kont198546198547%_ - _%hd195388195457%_ - _%hd195379195433%_) - (_%__kont198548198549%_)) - (_%__kont198548198549%_)))) - (_%__kont198548198549%_)) - (_%__kont198548198549%_)) - (_%__kont198548198549%_)))) - (_%__kont198548198549%_)))) - (_%__kont198548198549%_)) - (_%__kont198548198549%_)))) + _%tl198842198902%_)) + (_%__kont201987201988%_ + _%hd198847198916%_ + _%hd198838198892%_) + (_%__kont201989201990%_)) + (_%__kont201989201990%_)))) + (_%__kont201989201990%_)) + (_%__kont201989201990%_)) + (_%__kont201989201990%_)))) + (_%__kont201989201990%_)))) + (_%__kont201989201990%_)) + (_%__kont201989201990%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198548198549%_)) - (_%__kont198548198549%_)) - (_%__kont198548198549%_)))) - (_%__kont198548198549%_)))) - (_%__kont198548198549%_)) - (_%__kont198548198549%_)) - (_%__kont198548198549%_)))) + (_%__kont201989201990%_)) + (_%__kont201989201990%_)) + (_%__kont201989201990%_)))) + (_%__kont201989201990%_)))) + (_%__kont201989201990%_)) + (_%__kont201989201990%_)) + (_%__kont201989201990%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198548198549%_)))) - (if (or (eq? '##eq? _%$e195358%_) - (eq? 'eq? _%$e195358%_) - (eq? '##eqv? _%$e195358%_) - (eq? 'eqv? _%$e195358%_) - (eq? '##equal? _%$e195358%_) - (eq? 'equal? _%$e195358%_) + (_%__kont201989201990%_)))) + (if (or (eq? '##eq? _%$e198817%_) + (eq? 'eq? _%$e198817%_) + (eq? '##eqv? _%$e198817%_) + (eq? 'eqv? _%$e198817%_) + (eq? '##equal? _%$e198817%_) + (eq? 'equal? _%$e198817%_) (eq? 'gx#free-identifier=? - _%$e195358%_) - (eq? 'gx#stx-eq? _%$e195358%_)) - ((lambda (_%sym195518%_) - (let* ((_%sym195520%_ - (_%eqf-symbol190675%_ - _%sym195518%_)) - (_%__stx198612198613%_ - _%L195332%_) - (_%g195523195536%_ + _%$e198817%_) + (eq? 'gx#stx-eq? _%$e198817%_)) + ((lambda (_%sym198977%_) + (let* ((_%sym198979%_ + (_%eqf-symbol194168%_ + _%sym198977%_)) + (_%__stx202053202054%_ + _%g198115198791%_) + (_%g198982198995%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx198612198613%_))))) - (let ((_%__kont198614198615%_ - (lambda (_%L195564%_) - (cons (cons _%L195564%_ + _%__stx202053202054%_))))) + (let ((_%__kont202055202056%_ + (lambda (_%g198984199023%_) + (cons (cons _%g198984199023%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%sym195520%_ + (cons _%sym198979%_ (cons (let () (declare (not safe)) - (gx#stx-e _%L195331%_)) - (cons _%val194621%_ '())))) - _%env194622%_))) + (gx#stx-e _%g198114198790%_)) + (cons _%val198080%_ '())))) + _%env198081%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198616198617%_ + (_%__kont202057202058%_ (lambda () - _%env194622%_))) + _%env198081%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx198612198613%_)) - (let ((_%e195526195548%_ + _%__stx202053202054%_)) + (let ((_%e198985199007%_ (let () (declare (not safe)) (gx#stx-e - _%__stx198612198613%_)))) - (let ((_%tl195528195553%_ + _%__stx202053202054%_)))) + (let ((_%tl198987199012%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e195526195548%_))) - (_%hd195527195551%_ - (let () (declare (not safe)) (##car _%e195526195548%_)))) + (##cdr _%e198985199007%_))) + (_%hd198986199010%_ + (let () (declare (not safe)) (##car _%e198985199007%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd195527195551%_)) + (gx#identifier? _%hd198986199010%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd195527195551%_)) + (gx#stx-eq? '%#ref _%hd198986199010%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195528195553%_)) - (let ((_%e195529195556%_ + (gx#stx-pair? _%tl198987199012%_)) + (let ((_%e198988199015%_ (let () (declare (not safe)) - (gx#stx-e _%tl195528195553%_)))) - (let ((_%tl195531195561%_ + (gx#stx-e _%tl198987199012%_)))) + (let ((_%tl198990199020%_ (let () (declare (not safe)) - (##cdr _%e195529195556%_))) - (_%hd195530195559%_ + (##cdr _%e198988199015%_))) + (_%hd198989199018%_ (let () (declare (not safe)) - (##car _%e195529195556%_)))) + (##car _%e198988199015%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195531195561%_)) - (_%__kont198614198615%_ - _%hd195530195559%_) - (_%__kont198616198617%_)))) - (_%__kont198616198617%_)) - (_%__kont198616198617%_)) - (_%__kont198616198617%_)))) + (gx#stx-null? _%tl198990199020%_)) + (_%__kont202055202056%_ + _%hd198989199018%_) + (_%__kont202057202058%_)))) + (_%__kont202057202058%_)) + (_%__kont202057202058%_)) + (_%__kont202057202058%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198616198617%_))))) - _%$e195358%_) - _%env194622%_))))) - (_%__kont198644198645%_ - (lambda (_%L195235%_ _%L195236%_ _%L195237%_) - (_%fold-assert-type190673%_ + (_%__kont202057202058%_))))) + _%$e198817%_) + _%env198081%_))))) + (_%__kont202085202086%_ + (lambda (_%g198141198694%_ + _%g198142198695%_ + _%g198143198696%_) + (_%fold-assert-type194166%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -4205,42 +4225,48 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L195237%_ '())) - (cons _%L195235%_ + (cons _%g198143198696%_ + '())) + (cons _%g198141198694%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote)) - (cons _%L195236%_ '())) + (cons _%g198142198695%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%val194621%_ - _%env194622%_))) - (_%__kont198646198647%_ - (lambda (_%L195125%_ _%L195126%_ _%L195127%_) - (let ((_%$e195156%_ + _%val198080%_ + _%env198081%_))) + (_%__kont202087202088%_ + (lambda (_%g198168198584%_ + _%g198169198585%_ + _%g198170198586%_) + (let ((_%$e198615%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L195127%_)))) + (gxc#identifier-symbol + _%g198170198586%_)))) (if (or (eq? 'gx#free-identifier=? - _%$e195156%_) - (eq? 'gx#stx-eq? _%$e195156%_)) - ((lambda (_%sym195162%_) - (let ((_%sym195164%_ - (_%eqf-symbol190675%_ - _%sym195162%_))) - (cons (cons _%L195126%_ - (cons _%sym195164%_ - (cons _%L195125%_ + _%$e198615%_) + (eq? 'gx#stx-eq? _%$e198615%_)) + ((lambda (_%sym198621%_) + (let ((_%sym198623%_ + (_%eqf-symbol194168%_ + _%sym198621%_))) + (cons (cons _%g198169198585%_ + (cons _%sym198623%_ + (cons _%g198168198584%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%val194621%_ '())))) + (cons _%val198080%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%env194622%_))) - _%$e195156%_) - _%env194622%_)))) - (_%__kont198648198649%_ - (lambda (_%L195009%_ _%L195010%_ _%L195011%_) - (_%fold-assert-type190673%_ + _%env198081%_))) + _%$e198615%_) + _%env198081%_)))) + (_%__kont202089202090%_ + (lambda (_%g198201198468%_ + _%g198202198469%_ + _%g198203198470%_) + (_%fold-assert-type194166%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -4249,4397 +4275,4424 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L195011%_ '())) + (cons _%g198203198470%_ + '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L195009%_ + (cons _%g198201198468%_ '())) (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax)) - (cons _%L195010%_ '())) + (cons _%g198202198469%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%val194621%_ - _%env194622%_))) - (_%__kont198650198651%_ - (lambda (_%L194893%_ _%L194894%_ _%L194895%_) - (_%fold-assert-type190673%_ + _%val198080%_ + _%env198081%_))) + (_%__kont202091202092%_ + (lambda (_%g198234198352%_ + _%g198235198353%_ + _%g198236198354%_) + (_%fold-assert-type194166%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L194895%_ - _%L194893%_ - _%L194894%_)) - _%val194621%_ - _%env194622%_))) - (_%__kont198652198653%_ - (lambda () _%env194622%_))) + _%g198236198354%_ + _%g198234198352%_ + _%g198235198353%_)) + _%val198080%_ + _%env198081%_))) + (_%__kont202093202094%_ + (lambda () _%env198081%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx198638198639%_)) - (let ((_%e194634195586%_ + (gx#stx-pair? _%__stx202079202080%_)) + (let ((_%e198093199045%_ (let () (declare (not safe)) - (gx#stx-e _%__stx198638198639%_)))) - (let ((_%tl194636195591%_ + (gx#stx-e _%__stx202079202080%_)))) + (let ((_%tl198095199050%_ (let () (declare (not safe)) - (##cdr _%e194634195586%_))) - (_%hd194635195589%_ + (##cdr _%e198093199045%_))) + (_%hd198094199048%_ (let () (declare (not safe)) - (##car _%e194634195586%_)))) + (##car _%e198093199045%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd194635195589%_)) + (gx#identifier? _%hd198094199048%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd194635195589%_)) + _%hd198094199048%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl194636195591%_)) - (let ((_%e194637195594%_ + _%tl198095199050%_)) + (let ((_%e198096199053%_ (let () (declare (not safe)) (gx#stx-e - _%tl194636195591%_)))) - (let ((_%tl194639195599%_ + _%tl198095199050%_)))) + (let ((_%tl198098199058%_ (let () (declare (not safe)) - (##cdr _%e194637195594%_))) - (_%hd194638195597%_ + (##cdr _%e198096199053%_))) + (_%hd198097199056%_ (let () (declare (not safe)) - (##car _%e194637195594%_)))) + (##car _%e198096199053%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd194638195597%_)) - (let ((_%e194640195602%_ + _%hd198097199056%_)) + (let ((_%e198099199061%_ (let () (declare (not safe)) (gx#stx-e - _%hd194638195597%_)))) - (let ((_%tl194642195607%_ + _%hd198097199056%_)))) + (let ((_%tl198101199066%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e194640195602%_))) - (_%hd194641195605%_ - (let () (declare (not safe)) (##car _%e194640195602%_)))) + (##cdr _%e198099199061%_))) + (_%hd198100199064%_ + (let () (declare (not safe)) (##car _%e198099199061%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd194641195605%_)) + (gx#identifier? _%hd198100199064%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd194641195605%_)) + (gx#stx-eq? '%#ref _%hd198100199064%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194642195607%_)) - (let ((_%e194643195610%_ + (gx#stx-pair? _%tl198101199066%_)) + (let ((_%e198102199069%_ (let () (declare (not safe)) - (gx#stx-e _%tl194642195607%_)))) - (let ((_%tl194645195615%_ + (gx#stx-e _%tl198101199066%_)))) + (let ((_%tl198104199074%_ (let () (declare (not safe)) - (##cdr _%e194643195610%_))) - (_%hd194644195613%_ + (##cdr _%e198102199069%_))) + (_%hd198103199072%_ (let () (declare (not safe)) - (##car _%e194643195610%_)))) + (##car _%e198102199069%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194645195615%_)) + (gx#stx-null? _%tl198104199074%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194639195599%_)) - (let ((_%e194646195618%_ + (gx#stx-pair? _%tl198098199058%_)) + (let ((_%e198105199077%_ (let () (declare (not safe)) (gx#stx-e - _%tl194639195599%_)))) - (let ((_%tl194648195623%_ + _%tl198098199058%_)))) + (let ((_%tl198107199082%_ (let () (declare (not safe)) - (##cdr _%e194646195618%_))) - (_%hd194647195621%_ + (##cdr _%e198105199077%_))) + (_%hd198106199080%_ (let () (declare (not safe)) - (##car _%e194646195618%_)))) + (##car _%e198105199077%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd194647195621%_)) - (let ((_%e194649195626%_ + _%hd198106199080%_)) + (let ((_%e198108199085%_ (let () (declare (not safe)) (gx#stx-e - _%hd194647195621%_)))) - (let ((_%tl194651195631%_ + _%hd198106199080%_)))) + (let ((_%tl198110199090%_ (let () (declare (not safe)) - (##cdr _%e194649195626%_))) - (_%hd194650195629%_ + (##cdr _%e198108199085%_))) + (_%hd198109199088%_ (let () (declare (not safe)) - (##car _%e194649195626%_)))) + (##car _%e198108199085%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd194650195629%_)) + _%hd198109199088%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd194650195629%_)) + (gx#stx-eq? '%#ref _%hd198109199088%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194651195631%_)) - (let ((_%e194652195634%_ + (gx#stx-pair? _%tl198110199090%_)) + (let ((_%e198111199093%_ (let () (declare (not safe)) - (gx#stx-e _%tl194651195631%_)))) - (let ((_%tl194654195639%_ + (gx#stx-e _%tl198110199090%_)))) + (let ((_%tl198113199098%_ (let () (declare (not safe)) - (##cdr _%e194652195634%_))) - (_%hd194653195637%_ + (##cdr _%e198111199093%_))) + (_%hd198112199096%_ (let () (declare (not safe)) - (##car _%e194652195634%_)))) + (##car _%e198111199093%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194654195639%_)) + (gx#stx-null? _%tl198113199098%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194648195623%_)) - (_%__kont198640198641%_ - _%hd194653195637%_ - _%hd194644195613%_) + (gx#stx-null? _%tl198107199082%_)) + (_%__kont202081202082%_ + _%hd198112199096%_ + _%hd198103199072%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194648195623%_)) - (let ((_%e194673195307%_ + (gx#stx-pair? _%tl198107199082%_)) + (let ((_%e198132198766%_ (let () (declare (not safe)) (gx#stx-e - _%tl194648195623%_)))) - (let ((_%tl194675195312%_ + _%tl198107199082%_)))) + (let ((_%tl198134198771%_ (let () (declare (not safe)) - (##cdr _%e194673195307%_))) - (_%hd194674195310%_ + (##cdr _%e198132198766%_))) + (_%hd198133198769%_ (let () (declare (not safe)) - (##car _%e194673195307%_)))) + (##car _%e198132198766%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd194674195310%_)) - (let ((_%e194676195315%_ + _%hd198133198769%_)) + (let ((_%e198135198774%_ (let () (declare (not safe)) (gx#stx-e - _%hd194674195310%_)))) - (let ((_%tl194678195320%_ + _%hd198133198769%_)))) + (let ((_%tl198137198779%_ (let () (declare (not safe)) - (##cdr _%e194676195315%_))) - (_%hd194677195318%_ + (##cdr _%e198135198774%_))) + (_%hd198136198777%_ (let () (declare (not safe)) - (##car _%e194676195315%_)))) + (##car _%e198135198774%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd194677195318%_)) + _%hd198136198777%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _%hd194677195318%_)) + (gx#stx-eq? '%#quote _%hd198136198777%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194678195320%_)) - (let ((_%e194679195323%_ + (gx#stx-pair? _%tl198137198779%_)) + (let ((_%e198138198782%_ (let () (declare (not safe)) - (gx#stx-e _%tl194678195320%_)))) - (let ((_%tl194681195328%_ + (gx#stx-e _%tl198137198779%_)))) + (let ((_%tl198140198787%_ (let () (declare (not safe)) - (##cdr _%e194679195323%_))) - (_%hd194680195326%_ + (##cdr _%e198138198782%_))) + (_%hd198139198785%_ (let () (declare (not safe)) - (##car _%e194679195323%_)))) + (##car _%e198138198782%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194681195328%_)) + (gx#stx-null? _%tl198140198787%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194675195312%_)) - (_%__kont198642198643%_ - _%hd194680195326%_ - _%hd194647195621%_ - _%hd194644195613%_) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)) + (gx#stx-null? _%tl198134198771%_)) + (_%__kont202083202084%_ + _%hd198139198785%_ + _%hd198106199080%_ + _%hd198103199072%_) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd194677195318%_)) + (gx#stx-eq? '%#quote-syntax _%hd198136198777%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194678195320%_)) - (let ((_%e194739195117%_ + (gx#stx-pair? _%tl198137198779%_)) + (let ((_%e198198198576%_ (let () (declare (not safe)) - (gx#stx-e _%tl194678195320%_)))) - (let ((_%tl194741195122%_ + (gx#stx-e _%tl198137198779%_)))) + (let ((_%tl198200198581%_ (let () (declare (not safe)) - (##cdr _%e194739195117%_))) - (_%hd194740195120%_ + (##cdr _%e198198198576%_))) + (_%hd198199198579%_ (let () (declare (not safe)) - (##car _%e194739195117%_)))) + (##car _%e198198198576%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194741195122%_)) + (gx#stx-null? _%tl198200198581%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194675195312%_)) - (_%__kont198646198647%_ - _%hd194740195120%_ - _%hd194653195637%_ - _%hd194644195613%_) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)) - (_%__kont198652198653%_))) - (_%__kont198652198653%_)))) + (gx#stx-null? _%tl198134198771%_)) + (_%__kont202087202088%_ + _%hd198199198579%_ + _%hd198112199096%_ + _%hd198103199072%_) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)) + (_%__kont202093202094%_))) + (_%__kont202093202094%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198652198653%_)))) - (_%__kont198652198653%_))) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194648195623%_)) - (let ((_%e194673195307%_ + (gx#stx-pair? _%tl198107199082%_)) + (let ((_%e198132198766%_ (let () (declare (not safe)) - (gx#stx-e _%tl194648195623%_)))) - (let ((_%tl194675195312%_ + (gx#stx-e _%tl198107199082%_)))) + (let ((_%tl198134198771%_ (let () (declare (not safe)) - (##cdr _%e194673195307%_))) - (_%hd194674195310%_ + (##cdr _%e198132198766%_))) + (_%hd198133198769%_ (let () (declare (not safe)) - (##car _%e194673195307%_)))) + (##car _%e198132198766%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd194674195310%_)) - (let ((_%e194676195315%_ + _%hd198133198769%_)) + (let ((_%e198135198774%_ (let () (declare (not safe)) (gx#stx-e - _%hd194674195310%_)))) - (let ((_%tl194678195320%_ + _%hd198133198769%_)))) + (let ((_%tl198137198779%_ (let () (declare (not safe)) - (##cdr _%e194676195315%_))) - (_%hd194677195318%_ + (##cdr _%e198135198774%_))) + (_%hd198136198777%_ (let () (declare (not safe)) - (##car _%e194676195315%_)))) + (##car _%e198135198774%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd194677195318%_)) + _%hd198136198777%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd194677195318%_)) + _%hd198136198777%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl194678195320%_)) - (let ((_%e194679195323%_ + (gx#stx-pair? _%tl198137198779%_)) + (let ((_%e198138198782%_ (let () (declare (not safe)) - (gx#stx-e _%tl194678195320%_)))) - (let ((_%tl194681195328%_ + (gx#stx-e _%tl198137198779%_)))) + (let ((_%tl198140198787%_ (let () (declare (not safe)) - (##cdr _%e194679195323%_))) - (_%hd194680195326%_ + (##cdr _%e198138198782%_))) + (_%hd198139198785%_ (let () (declare (not safe)) - (##car _%e194679195323%_)))) + (##car _%e198138198782%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194681195328%_)) + (gx#stx-null? _%tl198140198787%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194675195312%_)) - (_%__kont198642198643%_ - _%hd194680195326%_ - _%hd194647195621%_ - _%hd194644195613%_) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)) + (gx#stx-null? _%tl198134198771%_)) + (_%__kont202083202084%_ + _%hd198139198785%_ + _%hd198106199080%_ + _%hd198103199072%_) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_))))) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194648195623%_)) - (let ((_%e194673195307%_ + (gx#stx-pair? _%tl198107199082%_)) + (let ((_%e198132198766%_ (let () (declare (not safe)) - (gx#stx-e _%tl194648195623%_)))) - (let ((_%tl194675195312%_ + (gx#stx-e _%tl198107199082%_)))) + (let ((_%tl198134198771%_ (let () (declare (not safe)) - (##cdr _%e194673195307%_))) - (_%hd194674195310%_ + (##cdr _%e198132198766%_))) + (_%hd198133198769%_ (let () (declare (not safe)) - (##car _%e194673195307%_)))) + (##car _%e198132198766%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd194674195310%_)) - (let ((_%e194676195315%_ + (gx#stx-pair? _%hd198133198769%_)) + (let ((_%e198135198774%_ (let () (declare (not safe)) - (gx#stx-e _%hd194674195310%_)))) - (let ((_%tl194678195320%_ + (gx#stx-e _%hd198133198769%_)))) + (let ((_%tl198137198779%_ (let () (declare (not safe)) - (##cdr _%e194676195315%_))) - (_%hd194677195318%_ + (##cdr _%e198135198774%_))) + (_%hd198136198777%_ (let () (declare (not safe)) - (##car _%e194676195315%_)))) + (##car _%e198135198774%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd194677195318%_)) + _%hd198136198777%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd194677195318%_)) + _%hd198136198777%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl194678195320%_)) - (let ((_%e194679195323%_ + _%tl198137198779%_)) + (let ((_%e198138198782%_ (let () (declare (not safe)) (gx#stx-e - _%tl194678195320%_)))) - (let ((_%tl194681195328%_ + _%tl198137198779%_)))) + (let ((_%tl198140198787%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e194679195323%_))) - (_%hd194680195326%_ - (let () (declare (not safe)) (##car _%e194679195323%_)))) + (##cdr _%e198138198782%_))) + (_%hd198139198785%_ + (let () (declare (not safe)) (##car _%e198138198782%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194681195328%_)) + (gx#stx-null? _%tl198140198787%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194675195312%_)) - (_%__kont198642198643%_ - _%hd194680195326%_ - _%hd194647195621%_ - _%hd194644195613%_) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) + (gx#stx-null? _%tl198134198771%_)) + (_%__kont202083202084%_ + _%hd198139198785%_ + _%hd198106199080%_ + _%hd198103199072%_) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198652198653%_)) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_))) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194648195623%_)) - (let ((_%e194673195307%_ + (gx#stx-pair? _%tl198107199082%_)) + (let ((_%e198132198766%_ (let () (declare (not safe)) - (gx#stx-e _%tl194648195623%_)))) - (let ((_%tl194675195312%_ + (gx#stx-e _%tl198107199082%_)))) + (let ((_%tl198134198771%_ (let () (declare (not safe)) - (##cdr _%e194673195307%_))) - (_%hd194674195310%_ + (##cdr _%e198132198766%_))) + (_%hd198133198769%_ (let () (declare (not safe)) - (##car _%e194673195307%_)))) + (##car _%e198132198766%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd194674195310%_)) - (let ((_%e194676195315%_ + (gx#stx-pair? _%hd198133198769%_)) + (let ((_%e198135198774%_ (let () (declare (not safe)) - (gx#stx-e _%hd194674195310%_)))) - (let ((_%tl194678195320%_ + (gx#stx-e _%hd198133198769%_)))) + (let ((_%tl198137198779%_ (let () (declare (not safe)) - (##cdr _%e194676195315%_))) - (_%hd194677195318%_ + (##cdr _%e198135198774%_))) + (_%hd198136198777%_ (let () (declare (not safe)) - (##car _%e194676195315%_)))) + (##car _%e198135198774%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd194677195318%_)) + (gx#identifier? _%hd198136198777%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd194677195318%_)) + _%hd198136198777%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl194678195320%_)) - (let ((_%e194679195323%_ + _%tl198137198779%_)) + (let ((_%e198138198782%_ (let () (declare (not safe)) (gx#stx-e - _%tl194678195320%_)))) - (let ((_%tl194681195328%_ + _%tl198137198779%_)))) + (let ((_%tl198140198787%_ (let () (declare (not safe)) - (##cdr _%e194679195323%_))) - (_%hd194680195326%_ + (##cdr _%e198138198782%_))) + (_%hd198139198785%_ (let () (declare (not safe)) - (##car _%e194679195323%_)))) + (##car _%e198138198782%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl194681195328%_)) + _%tl198140198787%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl194675195312%_)) - (_%__kont198642198643%_ - _%hd194680195326%_ - _%hd194647195621%_ - _%hd194644195613%_) + (gx#stx-null? _%tl198134198771%_)) + (_%__kont202083202084%_ + _%hd198139198785%_ + _%hd198106199080%_ + _%hd198103199072%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd194650195629%_)) + (gx#stx-eq? '%#quote _%hd198109199088%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194651195631%_)) - (let ((_%e194703195219%_ + (gx#stx-pair? _%tl198110199090%_)) + (let ((_%e198162198678%_ (let () (declare (not safe)) - (gx#stx-e _%tl194651195631%_)))) - (let ((_%tl194705195224%_ + (gx#stx-e _%tl198110199090%_)))) + (let ((_%tl198164198683%_ (let () (declare (not safe)) - (##cdr _%e194703195219%_))) - (_%hd194704195222%_ + (##cdr _%e198162198678%_))) + (_%hd198163198681%_ (let () (declare (not safe)) - (##car _%e194703195219%_)))) - (_%__kont198652198653%_))) - (_%__kont198652198653%_)) + (##car _%e198162198678%_)))) + (_%__kont202093202094%_))) + (_%__kont202093202094%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd194650195629%_)) + (gx#stx-eq? '%#quote-syntax _%hd198109199088%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194651195631%_)) - (let ((_%e194763194977%_ + (gx#stx-pair? _%tl198110199090%_)) + (let ((_%e198222198436%_ (let () (declare (not safe)) - (gx#stx-e _%tl194651195631%_)))) - (let ((_%tl194765194982%_ + (gx#stx-e _%tl198110199090%_)))) + (let ((_%tl198224198441%_ (let () (declare (not safe)) - (##cdr _%e194763194977%_))) - (_%hd194764194980%_ + (##cdr _%e198222198436%_))) + (_%hd198223198439%_ (let () (declare (not safe)) - (##car _%e194763194977%_)))) - (_%__kont198652198653%_))) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) + (##car _%e198222198436%_)))) + (_%__kont202093202094%_))) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd194650195629%_)) + (gx#stx-eq? '%#quote _%hd198109199088%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194651195631%_)) - (let ((_%e194703195219%_ + (gx#stx-pair? _%tl198110199090%_)) + (let ((_%e198162198678%_ (let () (declare (not safe)) - (gx#stx-e _%tl194651195631%_)))) - (let ((_%tl194705195224%_ + (gx#stx-e _%tl198110199090%_)))) + (let ((_%tl198164198683%_ (let () (declare (not safe)) - (##cdr _%e194703195219%_))) - (_%hd194704195222%_ + (##cdr _%e198162198678%_))) + (_%hd198163198681%_ (let () (declare (not safe)) - (##car _%e194703195219%_)))) + (##car _%e198162198678%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194705195224%_)) + (gx#stx-null? _%tl198164198683%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194675195312%_)) - (_%__kont198644198645%_ - _%hd194674195310%_ - _%hd194704195222%_ - _%hd194644195613%_) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)) + (gx#stx-null? _%tl198134198771%_)) + (_%__kont202085202086%_ + _%hd198133198769%_ + _%hd198163198681%_ + _%hd198103199072%_) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd194650195629%_)) + (gx#stx-eq? '%#quote-syntax _%hd198109199088%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194651195631%_)) - (let ((_%e194763194977%_ + (gx#stx-pair? _%tl198110199090%_)) + (let ((_%e198222198436%_ (let () (declare (not safe)) - (gx#stx-e _%tl194651195631%_)))) - (let ((_%tl194765194982%_ + (gx#stx-e _%tl198110199090%_)))) + (let ((_%tl198224198441%_ (let () (declare (not safe)) - (##cdr _%e194763194977%_))) - (_%hd194764194980%_ + (##cdr _%e198222198436%_))) + (_%hd198223198439%_ (let () (declare (not safe)) - (##car _%e194763194977%_)))) - (_%__kont198652198653%_))) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))))) + (##car _%e198222198436%_)))) + (_%__kont202093202094%_))) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd194650195629%_)) + _%hd198109199088%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl194651195631%_)) - (let ((_%e194703195219%_ + _%tl198110199090%_)) + (let ((_%e198162198678%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl194651195631%_)))) - (let ((_%tl194705195224%_ + (gx#stx-e _%tl198110199090%_)))) + (let ((_%tl198164198683%_ (let () (declare (not safe)) - (##cdr _%e194703195219%_))) - (_%hd194704195222%_ + (##cdr _%e198162198678%_))) + (_%hd198163198681%_ (let () (declare (not safe)) - (##car _%e194703195219%_)))) + (##car _%e198162198678%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194705195224%_)) + (gx#stx-null? _%tl198164198683%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194675195312%_)) - (_%__kont198644198645%_ - _%hd194674195310%_ - _%hd194704195222%_ - _%hd194644195613%_) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)) + (gx#stx-null? _%tl198134198771%_)) + (_%__kont202085202086%_ + _%hd198133198769%_ + _%hd198163198681%_ + _%hd198103199072%_) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd194650195629%_)) + _%hd198109199088%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl194651195631%_)) - (let ((_%e194763194977%_ + (gx#stx-pair? _%tl198110199090%_)) + (let ((_%e198222198436%_ (let () (declare (not safe)) - (gx#stx-e _%tl194651195631%_)))) - (let ((_%tl194765194982%_ + (gx#stx-e _%tl198110199090%_)))) + (let ((_%tl198224198441%_ (let () (declare (not safe)) - (##cdr _%e194763194977%_))) - (_%hd194764194980%_ + (##cdr _%e198222198436%_))) + (_%hd198223198439%_ (let () (declare (not safe)) - (##car _%e194763194977%_)))) - (_%__kont198652198653%_))) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) + (##car _%e198222198436%_)))) + (_%__kont202093202094%_))) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd194650195629%_)) + _%hd198109199088%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl194651195631%_)) - (let ((_%e194703195219%_ + _%tl198110199090%_)) + (let ((_%e198162198678%_ (let () (declare (not safe)) (gx#stx-e - _%tl194651195631%_)))) - (let ((_%tl194705195224%_ + _%tl198110199090%_)))) + (let ((_%tl198164198683%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e194703195219%_))) - (_%hd194704195222%_ - (let () (declare (not safe)) (##car _%e194703195219%_)))) + (##cdr _%e198162198678%_))) + (_%hd198163198681%_ + (let () (declare (not safe)) (##car _%e198162198678%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194705195224%_)) + (gx#stx-null? _%tl198164198683%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194675195312%_)) - (_%__kont198644198645%_ - _%hd194674195310%_ - _%hd194704195222%_ - _%hd194644195613%_) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) + (gx#stx-null? _%tl198134198771%_)) + (_%__kont202085202086%_ + _%hd198133198769%_ + _%hd198163198681%_ + _%hd198103199072%_) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198652198653%_)) + (_%__kont202093202094%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd194650195629%_)) + _%hd198109199088%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl194651195631%_)) - (let ((_%e194763194977%_ + _%tl198110199090%_)) + (let ((_%e198222198436%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl194651195631%_)))) - (let ((_%tl194765194982%_ + (gx#stx-e _%tl198110199090%_)))) + (let ((_%tl198224198441%_ (let () (declare (not safe)) - (##cdr _%e194763194977%_))) - (_%hd194764194980%_ + (##cdr _%e198222198436%_))) + (_%hd198223198439%_ (let () (declare (not safe)) - (##car _%e194763194977%_)))) + (##car _%e198222198436%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194765194982%_)) + (gx#stx-null? _%tl198224198441%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd194677195318%_)) + (gx#stx-eq? '%#ref _%hd198136198777%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194678195320%_)) - (let ((_%e194772195001%_ + (gx#stx-pair? _%tl198137198779%_)) + (let ((_%e198231198460%_ (let () (declare (not safe)) - (gx#stx-e _%tl194678195320%_)))) - (let ((_%tl194774195006%_ + (gx#stx-e _%tl198137198779%_)))) + (let ((_%tl198233198465%_ (let () (declare (not safe)) - (##cdr _%e194772195001%_))) - (_%hd194773195004%_ + (##cdr _%e198231198460%_))) + (_%hd198232198463%_ (let () (declare (not safe)) - (##car _%e194772195001%_)))) + (##car _%e198231198460%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194774195006%_)) + (gx#stx-null? _%tl198233198465%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl194675195312%_)) - (_%__kont198648198649%_ - _%hd194773195004%_ - _%hd194764194980%_ - _%hd194644195613%_) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)) + _%tl198134198771%_)) + (_%__kont202089202090%_ + _%hd198232198463%_ + _%hd198223198439%_ + _%hd198103199072%_) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198652198653%_)))) + (_%__kont202093202094%_)))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd194650195629%_)) + _%hd198109199088%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl194651195631%_)) - (let ((_%e194703195219%_ + _%tl198110199090%_)) + (let ((_%e198162198678%_ (let () (declare (not safe)) (gx#stx-e - _%tl194651195631%_)))) - (let ((_%tl194705195224%_ + _%tl198110199090%_)))) + (let ((_%tl198164198683%_ (let () (declare (not safe)) - (##cdr _%e194703195219%_))) - (_%hd194704195222%_ + (##cdr _%e198162198678%_))) + (_%hd198163198681%_ (let () (declare (not safe)) - (##car _%e194703195219%_)))) + (##car _%e198162198678%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl194705195224%_)) + _%tl198164198683%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl194675195312%_)) - (_%__kont198644198645%_ - _%hd194674195310%_ - _%hd194704195222%_ - _%hd194644195613%_) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) + (gx#stx-null? _%tl198134198771%_)) + (_%__kont202085202086%_ + _%hd198133198769%_ + _%hd198163198681%_ + _%hd198103199072%_) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198652198653%_)) + (_%__kont202093202094%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd194650195629%_)) + _%hd198109199088%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl194651195631%_)) - (let ((_%e194763194977%_ + _%tl198110199090%_)) + (let ((_%e198222198436%_ (let () (declare (not safe)) (gx#stx-e - _%tl194651195631%_)))) - (let ((_%tl194765194982%_ + _%tl198110199090%_)))) + (let ((_%tl198224198441%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e194763194977%_))) - (_%hd194764194980%_ - (let () (declare (not safe)) (##car _%e194763194977%_)))) - (_%__kont198652198653%_))) + (##cdr _%e198222198436%_))) + (_%hd198223198439%_ + (let () (declare (not safe)) (##car _%e198222198436%_)))) + (_%__kont202093202094%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))))) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd194650195629%_)) + _%hd198109199088%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194651195631%_)) - (let ((_%e194703195219%_ + (gx#stx-pair? _%tl198110199090%_)) + (let ((_%e198162198678%_ (let () (declare (not safe)) (gx#stx-e - _%tl194651195631%_)))) - (let ((_%tl194705195224%_ + _%tl198110199090%_)))) + (let ((_%tl198164198683%_ (let () (declare (not safe)) - (##cdr _%e194703195219%_))) - (_%hd194704195222%_ + (##cdr _%e198162198678%_))) + (_%hd198163198681%_ (let () (declare (not safe)) - (##car _%e194703195219%_)))) + (##car _%e198162198678%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl194705195224%_)) + _%tl198164198683%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl194675195312%_)) - (_%__kont198644198645%_ - _%hd194674195310%_ - _%hd194704195222%_ - _%hd194644195613%_) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)) + _%tl198134198771%_)) + (_%__kont202085202086%_ + _%hd198133198769%_ + _%hd198163198681%_ + _%hd198103199072%_) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd194650195629%_)) + _%hd198109199088%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl194651195631%_)) - (let ((_%e194763194977%_ + _%tl198110199090%_)) + (let ((_%e198222198436%_ (let () (declare (not safe)) (gx#stx-e - _%tl194651195631%_)))) - (let ((_%tl194765194982%_ + _%tl198110199090%_)))) + (let ((_%tl198224198441%_ (let () (declare (not safe)) - (##cdr _%e194763194977%_))) - (_%hd194764194980%_ + (##cdr _%e198222198436%_))) + (_%hd198223198439%_ (let () (declare (not safe)) - (##car _%e194763194977%_)))) - (_%__kont198652198653%_))) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))))) + (##car _%e198222198436%_)))) + (_%__kont202093202094%_))) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd194650195629%_)) + (gx#stx-eq? '%#quote _%hd198109199088%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194651195631%_)) - (let ((_%e194703195219%_ + (gx#stx-pair? _%tl198110199090%_)) + (let ((_%e198162198678%_ (let () (declare (not safe)) - (gx#stx-e _%tl194651195631%_)))) - (let ((_%tl194705195224%_ + (gx#stx-e _%tl198110199090%_)))) + (let ((_%tl198164198683%_ (let () (declare (not safe)) - (##cdr _%e194703195219%_))) - (_%hd194704195222%_ + (##cdr _%e198162198678%_))) + (_%hd198163198681%_ (let () (declare (not safe)) - (##car _%e194703195219%_)))) - (_%__kont198652198653%_))) - (_%__kont198652198653%_)) + (##car _%e198162198678%_)))) + (_%__kont202093202094%_))) + (_%__kont202093202094%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd194650195629%_)) + _%hd198109199088%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194651195631%_)) - (let ((_%e194763194977%_ + (gx#stx-pair? _%tl198110199090%_)) + (let ((_%e198222198436%_ (let () (declare (not safe)) - (gx#stx-e _%tl194651195631%_)))) - (let ((_%tl194765194982%_ + (gx#stx-e _%tl198110199090%_)))) + (let ((_%tl198224198441%_ (let () (declare (not safe)) - (##cdr _%e194763194977%_))) - (_%hd194764194980%_ + (##cdr _%e198222198436%_))) + (_%hd198223198439%_ (let () (declare (not safe)) - (##car _%e194763194977%_)))) - (_%__kont198652198653%_))) - (_%__kont198652198653%_)) - (_%__kont198652198653%_))))) + (##car _%e198222198436%_)))) + (_%__kont202093202094%_))) + (_%__kont202093202094%_)) + (_%__kont202093202094%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194648195623%_)) - (let ((_%e194673195307%_ + (gx#stx-pair? _%tl198107199082%_)) + (let ((_%e198132198766%_ (let () (declare (not safe)) - (gx#stx-e _%tl194648195623%_)))) - (let ((_%tl194675195312%_ + (gx#stx-e _%tl198107199082%_)))) + (let ((_%tl198134198771%_ (let () (declare (not safe)) - (##cdr _%e194673195307%_))) - (_%hd194674195310%_ + (##cdr _%e198132198766%_))) + (_%hd198133198769%_ (let () (declare (not safe)) - (##car _%e194673195307%_)))) + (##car _%e198132198766%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd194674195310%_)) - (let ((_%e194676195315%_ + (gx#stx-pair? _%hd198133198769%_)) + (let ((_%e198135198774%_ (let () (declare (not safe)) - (gx#stx-e _%hd194674195310%_)))) - (let ((_%tl194678195320%_ + (gx#stx-e _%hd198133198769%_)))) + (let ((_%tl198137198779%_ (let () (declare (not safe)) - (##cdr _%e194676195315%_))) - (_%hd194677195318%_ + (##cdr _%e198135198774%_))) + (_%hd198136198777%_ (let () (declare (not safe)) - (##car _%e194676195315%_)))) + (##car _%e198135198774%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd194677195318%_)) + (gx#identifier? _%hd198136198777%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd194677195318%_)) + _%hd198136198777%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl194678195320%_)) - (let ((_%e194679195323%_ + _%tl198137198779%_)) + (let ((_%e198138198782%_ (let () (declare (not safe)) (gx#stx-e - _%tl194678195320%_)))) - (let ((_%tl194681195328%_ + _%tl198137198779%_)))) + (let ((_%tl198140198787%_ (let () (declare (not safe)) - (##cdr _%e194679195323%_))) - (_%hd194680195326%_ + (##cdr _%e198138198782%_))) + (_%hd198139198785%_ (let () (declare (not safe)) - (##car _%e194679195323%_)))) + (##car _%e198138198782%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl194681195328%_)) + _%tl198140198787%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl194675195312%_)) - (_%__kont198642198643%_ - _%hd194680195326%_ - _%hd194647195621%_ - _%hd194644195613%_) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_))))) + _%tl198134198771%_)) + (_%__kont202083202084%_ + _%hd198139198785%_ + _%hd198106199080%_ + _%hd198103199072%_) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl194648195623%_)) - (let ((_%e194673195307%_ + _%tl198107199082%_)) + (let ((_%e198132198766%_ (let () (declare (not safe)) (gx#stx-e - _%tl194648195623%_)))) - (let ((_%tl194675195312%_ + _%tl198107199082%_)))) + (let ((_%tl198134198771%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e194673195307%_))) - (_%hd194674195310%_ - (let () (declare (not safe)) (##car _%e194673195307%_)))) + (##cdr _%e198132198766%_))) + (_%hd198133198769%_ + (let () (declare (not safe)) (##car _%e198132198766%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd194674195310%_)) - (let ((_%e194676195315%_ + (gx#stx-pair? _%hd198133198769%_)) + (let ((_%e198135198774%_ (let () (declare (not safe)) - (gx#stx-e _%hd194674195310%_)))) - (let ((_%tl194678195320%_ + (gx#stx-e _%hd198133198769%_)))) + (let ((_%tl198137198779%_ (let () (declare (not safe)) - (##cdr _%e194676195315%_))) - (_%hd194677195318%_ + (##cdr _%e198135198774%_))) + (_%hd198136198777%_ (let () (declare (not safe)) - (##car _%e194676195315%_)))) + (##car _%e198135198774%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd194677195318%_)) + (gx#identifier? _%hd198136198777%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd194677195318%_)) + (gx#stx-eq? '%#quote _%hd198136198777%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194678195320%_)) - (let ((_%e194679195323%_ + (gx#stx-pair? _%tl198137198779%_)) + (let ((_%e198138198782%_ (let () (declare (not safe)) - (gx#stx-e _%tl194678195320%_)))) - (let ((_%tl194681195328%_ + (gx#stx-e _%tl198137198779%_)))) + (let ((_%tl198140198787%_ (let () (declare (not safe)) - (##cdr _%e194679195323%_))) - (_%hd194680195326%_ + (##cdr _%e198138198782%_))) + (_%hd198139198785%_ (let () (declare (not safe)) - (##car _%e194679195323%_)))) + (##car _%e198138198782%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl194681195328%_)) + _%tl198140198787%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl194675195312%_)) - (_%__kont198642198643%_ - _%hd194680195326%_ - _%hd194647195621%_ - _%hd194644195613%_) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)))) + _%tl198134198771%_)) + (_%__kont202083202084%_ + _%hd198139198785%_ + _%hd198106199080%_ + _%hd198103199072%_) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198652198653%_))))) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)) + (_%__kont202093202094%_))))) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd194641195605%_)) + (gx#stx-eq? '%#lambda _%hd198100199064%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194642195607%_)) - (let ((_%e194787194845%_ + (gx#stx-pair? _%tl198101199066%_)) + (let ((_%e198246198304%_ (let () (declare (not safe)) - (gx#stx-e _%tl194642195607%_)))) - (let ((_%tl194789194850%_ + (gx#stx-e _%tl198101199066%_)))) + (let ((_%tl198248198309%_ (let () (declare (not safe)) - (##cdr _%e194787194845%_))) - (_%hd194788194848%_ + (##cdr _%e198246198304%_))) + (_%hd198247198307%_ (let () (declare (not safe)) - (##car _%e194787194845%_)))) + (##car _%e198246198304%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd194788194848%_)) - (let ((_%e194790194853%_ + (gx#stx-pair? _%hd198247198307%_)) + (let ((_%e198249198312%_ (let () (declare (not safe)) (gx#stx-e - _%hd194788194848%_)))) - (let ((_%tl194792194858%_ + _%hd198247198307%_)))) + (let ((_%tl198251198317%_ (let () (declare (not safe)) - (##cdr _%e194790194853%_))) - (_%hd194791194856%_ + (##cdr _%e198249198312%_))) + (_%hd198250198315%_ (let () (declare (not safe)) - (##car _%e194790194853%_)))) + (##car _%e198249198312%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl194792194858%_)) + _%tl198251198317%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl194789194850%_)) - (let ((_%e194793194861%_ + _%tl198248198309%_)) + (let ((_%e198252198320%_ (let () (declare (not safe)) (gx#stx-e - _%tl194789194850%_)))) - (let ((_%tl194795194866%_ + _%tl198248198309%_)))) + (let ((_%tl198254198325%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e194793194861%_))) - (_%hd194794194864%_ - (let () (declare (not safe)) (##car _%e194793194861%_)))) + (##cdr _%e198252198320%_))) + (_%hd198253198323%_ + (let () (declare (not safe)) (##car _%e198252198320%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194795194866%_)) + (gx#stx-null? _%tl198254198325%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194639195599%_)) - (let ((_%e194796194869%_ + (gx#stx-pair? _%tl198098199058%_)) + (let ((_%e198255198328%_ (let () (declare (not safe)) - (gx#stx-e _%tl194639195599%_)))) - (let ((_%tl194798194874%_ + (gx#stx-e _%tl198098199058%_)))) + (let ((_%tl198257198333%_ (let () (declare (not safe)) - (##cdr _%e194796194869%_))) - (_%hd194797194872%_ + (##cdr _%e198255198328%_))) + (_%hd198256198331%_ (let () (declare (not safe)) - (##car _%e194796194869%_)))) + (##car _%e198255198328%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd194797194872%_)) - (let ((_%e194799194877%_ + (gx#stx-pair? _%hd198256198331%_)) + (let ((_%e198258198336%_ (let () (declare (not safe)) - (gx#stx-e _%hd194797194872%_)))) - (let ((_%tl194801194882%_ + (gx#stx-e _%hd198256198331%_)))) + (let ((_%tl198260198341%_ (let () (declare (not safe)) - (##cdr _%e194799194877%_))) - (_%hd194800194880%_ + (##cdr _%e198258198336%_))) + (_%hd198259198339%_ (let () (declare (not safe)) - (##car _%e194799194877%_)))) + (##car _%e198258198336%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd194800194880%_)) + (gx#identifier? _%hd198259198339%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd194800194880%_)) + _%hd198259198339%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl194801194882%_)) - (let ((_%e194802194885%_ + _%tl198260198341%_)) + (let ((_%e198261198344%_ (let () (declare (not safe)) (gx#stx-e - _%tl194801194882%_)))) - (let ((_%tl194804194890%_ + _%tl198260198341%_)))) + (let ((_%tl198263198349%_ (let () (declare (not safe)) - (##cdr _%e194802194885%_))) - (_%hd194803194888%_ + (##cdr _%e198261198344%_))) + (_%hd198262198347%_ (let () (declare (not safe)) - (##car _%e194802194885%_)))) + (##car _%e198261198344%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl194804194890%_)) + _%tl198263198349%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl194798194874%_)) - (_%__kont198650198651%_ - _%hd194803194888%_ - _%hd194794194864%_ - _%hd194791194856%_) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) + (gx#stx-null? _%tl198257198333%_)) + (_%__kont202091202092%_ + _%hd198262198347%_ + _%hd198253198323%_ + _%hd198250198315%_) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198652198653%_)) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)) - (_%__kont198652198653%_))) - (_%__kont198652198653%_)))) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)) + (_%__kont202093202094%_))) + (_%__kont202093202094%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)) - (_%__kont198652198653%_)))) - (_%__kont198652198653%_)))))) - (_%countf-symbol190674%_ - (lambda (_%id194612%_) - (let ((_%$e194614%_ + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)) + (_%__kont202093202094%_)))) + (_%__kont202093202094%_)))))) + (_%countf-symbol194167%_ + (lambda (_%id198071%_) + (let ((_%$e198073%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%id194612%_)))) - (if (or (eq? '##vector-length _%$e194614%_) - (eq? 'vector-length _%$e194614%_)) + (gxc#identifier-symbol _%id198071%_)))) + (if (or (eq? '##vector-length _%$e198073%_) + (eq? 'vector-length _%$e198073%_)) 'vector-length - (if (eq? 'values-count _%$e194614%_) + (if (eq? 'values-count _%$e198073%_) 'values-count '#f))))) - (_%eqf-symbol190675%_ - (lambda (_%sym194598%_) - (let ((_%$e194600%_ _%sym194598%_)) - (if (or (eq? '##eq? _%$e194600%_) - (eq? 'eq? _%$e194600%_)) + (_%eqf-symbol194168%_ + (lambda (_%sym198057%_) + (let ((_%$e198059%_ _%sym198057%_)) + (if (or (eq? '##eq? _%$e198059%_) + (eq? 'eq? _%$e198059%_)) 'eq? - (if (or (eq? '##eqv? _%$e194600%_) - (eq? 'eqv? _%$e194600%_)) + (if (or (eq? '##eqv? _%$e198059%_) + (eq? 'eqv? _%$e198059%_)) 'eqv? - (if (or (eq? '##equal? _%$e194600%_) - (eq? 'equal? _%$e194600%_)) + (if (or (eq? '##equal? _%$e198059%_) + (eq? 'equal? _%$e198059%_)) 'equal? - (if (eq? 'gx#free-identifier=? _%$e194600%_) + (if (eq? 'gx#free-identifier=? _%$e198059%_) 'free-identifier=? - (if (eq? 'gx#stx-eq? _%$e194600%_) + (if (eq? 'gx#stx-eq? _%$e198059%_) 'stx-eq? '#f)))))))) - (_%eqf-symbol?190676%_ - (lambda (_%sym194581%_) - (let ((_%$e194583%_ _%sym194581%_)) - (if (or (eq? 'eq? _%$e194583%_) - (eq? 'eqv? _%$e194583%_) - (eq? 'equal? _%$e194583%_) - (eq? 'free-identifier=? _%$e194583%_) - (eq? 'stx-eq? _%$e194583%_)) + (_%eqf-symbol?194169%_ + (lambda (_%sym198040%_) + (let ((_%$e198042%_ _%sym198040%_)) + (if (or (eq? 'eq? _%$e198042%_) + (eq? 'eqv? _%$e198042%_) + (eq? 'equal? _%$e198042%_) + (eq? 'free-identifier=? _%$e198042%_) + (eq? 'stx-eq? _%$e198042%_)) '#t '#f)))) - (_%do-assert!190677%_ - (lambda (_%assert194572%_ _%type194573%_ _%K194574%_) - (let ((_%unwind-assert194576%_ _%env-assert190667%_) - (_%unwind-type194577%_ _%env-type190668%_)) - (set! _%env-assert190667%_ _%assert194572%_) - (set! _%env-type190668%_ _%type194573%_) - (let ((_%val194579%_ (_%K194574%_))) - (set! _%env-assert190667%_ _%unwind-assert194576%_) - (set! _%env-type190668%_ _%unwind-type194577%_) - _%val194579%_)))) - (_%do-bind190678%_ - (lambda (_%bind194569%_ _%K194570%_) - (if (pair? _%bind194569%_) - (_%do-bind!190680%_ - (_%fold-bind-env190679%_ - _%bind194569%_ - _%env-bind190669%_) - _%K194570%_) - (_%K194570%_)))) - (_%fold-bind-env190679%_ - (lambda (_%bind194498%_ _%env194499%_) - (let _%lp194501%_ ((_%rest194503%_ _%bind194498%_) - (_%env194504%_ _%env194499%_)) - (let* ((_%rest194505194513%_ _%rest194503%_) - (_%else194507194521%_ (lambda () _%env194504%_)) - (_%K194509194557%_ - (lambda (_%rest194524%_ _%bind194525%_) - (let* ((_%bind194526194533%_ _%bind194525%_) - (_%E194528194537%_ + (_%do-assert!194170%_ + (lambda (_%assert198031%_ _%type198032%_ _%K198033%_) + (let ((_%unwind-assert198035%_ _%env-assert194160%_) + (_%unwind-type198036%_ _%env-type194161%_)) + (set! _%env-assert194160%_ _%assert198031%_) + (set! _%env-type194161%_ _%type198032%_) + (let ((_%val198038%_ (_%K198033%_))) + (set! _%env-assert194160%_ _%unwind-assert198035%_) + (set! _%env-type194161%_ _%unwind-type198036%_) + _%val198038%_)))) + (_%do-bind194171%_ + (lambda (_%bind198028%_ _%K198029%_) + (if (pair? _%bind198028%_) + (_%do-bind!194173%_ + (_%fold-bind-env194172%_ + _%bind198028%_ + _%env-bind194162%_) + _%K198029%_) + (_%K198029%_)))) + (_%fold-bind-env194172%_ + (lambda (_%bind197958%_ _%env197959%_) + (let _%lp197961%_ ((_%rest197963%_ _%bind197958%_) + (_%env197964%_ _%env197959%_)) + (let* ((_%rest197965197973%_ _%rest197963%_) + (_%else197967197981%_ (lambda () _%env197964%_)) + (_%K197969198016%_ + (lambda (_%rest197984%_ _%bind197985%_) + (let* ((_%bind197986197993%_ _%bind197985%_) + (_%E197988197996%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind194526194533%_ + _%bind197986197993%_ '([id . expr]))) '#!void)) - (_%K194529194545%_ - (lambda (_%expr194540%_ _%id194541%_) - (let ((_%sexpr194543%_ + (_%K197989198004%_ + (lambda (_%expr197999%_ _%id198000%_) + (let ((_%sexpr198002%_ (gxc#apply-generate-runtime-repr - _%expr194540%_))) - (_%lp194501%_ - _%rest194524%_ - (cons (cons _%sexpr194543%_ - _%id194541%_) - _%env194504%_)))))) - (if (pair? _%bind194526194533%_) - (let ((_%hd194530194548%_ + _%expr197999%_))) + (_%lp197961%_ + _%rest197984%_ + (cons (cons _%sexpr198002%_ + _%id198000%_) + _%env197964%_)))))) + (if (pair? _%bind197986197993%_) + (let ((_%hd197990198007%_ (let () (declare (not safe)) - (##car _%bind194526194533%_))) - (_%tl194531194550%_ + (##car _%bind197986197993%_))) + (_%tl197991198009%_ (let () (declare (not safe)) - (##cdr _%bind194526194533%_)))) - (let* ((_%id194553%_ - _%hd194530194548%_) - (_%expr194555%_ - _%tl194531194550%_)) - (_%K194529194545%_ - _%expr194555%_ - _%id194553%_))) - (_%E194528194537%_)))))) - (if (pair? _%rest194505194513%_) - (let ((_%hd194510194560%_ + (##cdr _%bind197986197993%_)))) + (let* ((_%id198012%_ + _%hd197990198007%_) + (_%expr198014%_ + _%tl197991198009%_)) + (_%K197989198004%_ + _%expr198014%_ + _%id198012%_))) + (_%E197988197996%_)))))) + (if (pair? _%rest197965197973%_) + (let ((_%hd197970198019%_ (let () (declare (not safe)) - (##car _%rest194505194513%_))) - (_%tl194511194562%_ + (##car _%rest197965197973%_))) + (_%tl197971198021%_ (let () (declare (not safe)) - (##cdr _%rest194505194513%_)))) - (let* ((_%bind194565%_ _%hd194510194560%_) - (_%rest194567%_ _%tl194511194562%_)) - (_%K194509194557%_ - _%rest194567%_ - _%bind194565%_))) - (_%else194507194521%_)))))) - (_%do-bind!190680%_ - (lambda (_%env194491%_ _%K194492%_) - (let ((_%unwind194494%_ _%env-bind190669%_)) - (set! _%env-bind190669%_ _%env194491%_) - (let ((_%val194496%_ (_%K194492%_))) - (set! _%env-bind190669%_ _%unwind194494%_) - _%val194496%_)))) - (_%do-splice!190681%_ - (lambda (_%K194485%_) - (let ((_%unwind194487%_ _%in-splice?190670%_)) - (set! _%in-splice?190670%_ '#t) - (let ((_%val194489%_ (_%K194485%_))) - (set! _%in-splice?190670%_ _%unwind194487%_) - _%val194489%_)))) - (_%optimize-e190682%_ - (lambda (_%expr193681%_) - (let* ((_%__stx199090199091%_ _%expr193681%_) - (_%g193688193861%_ + (##cdr _%rest197965197973%_)))) + (let* ((_%bind198024%_ _%hd197970198019%_) + (_%rest198026%_ _%tl197971198021%_)) + (_%K197969198016%_ + _%rest198026%_ + _%bind198024%_))) + (_%else197967197981%_)))))) + (_%do-bind!194173%_ + (lambda (_%env197951%_ _%K197952%_) + (let ((_%unwind197954%_ _%env-bind194162%_)) + (set! _%env-bind194162%_ _%env197951%_) + (let ((_%val197956%_ (_%K197952%_))) + (set! _%env-bind194162%_ _%unwind197954%_) + _%val197956%_)))) + (_%do-splice!194174%_ + (lambda (_%K197945%_) + (let ((_%unwind197947%_ _%in-splice?194163%_)) + (set! _%in-splice?194163%_ '#t) + (let ((_%val197949%_ (_%K197945%_))) + (set! _%in-splice?194163%_ _%unwind197947%_) + _%val197949%_)))) + (_%optimize-e194175%_ + (lambda (_%expr197155%_) + (let* ((_%__stx202531202532%_ _%expr197155%_) + (_%g197162197335%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx199090199091%_))))) - (let ((_%__kont199092199093%_ - (lambda (_%L194457%_ _%L194458%_ _%L194459%_) - (let ((_%$e194476%_ - (_%assert-e190685%_ _%L194459%_))) - (if (eq? '#t _%$e194476%_) - (_%optimize-e190682%_ _%L194458%_) - (if (eq? '#f _%$e194476%_) - (_%optimize-e190682%_ _%L194457%_) - (let ((_%K194479%_ - (_%optimize-t__0__198037198038%_ - _%L194458%_ - _%L194459%_)) - (_%E194480%_ - (_%optimize-f__198039198040%_ - _%L194457%_ - _%L194459%_))) + _%__stx202531202532%_))))) + (let ((_%__kont202533202534%_ + (lambda (_%g197164197917%_ + _%g197165197918%_ + _%g197166197919%_) + (let ((_%$e197936%_ + (_%assert-e194178%_ _%g197166197919%_))) + (if (eq? '#t _%$e197936%_) + (_%optimize-e194175%_ _%g197165197918%_) + (if (eq? '#f _%$e197936%_) + (_%optimize-e194175%_ + _%g197164197917%_) + (let ((_%K197939%_ + (_%optimize-t__0__201478201479%_ + _%g197165197918%_ + _%g197166197919%_)) + (_%E197940%_ + (_%optimize-f__201480201481%_ + _%g197164197917%_ + _%g197166197919%_))) (if (equal? (gxc#apply-generate-runtime-repr - _%K194479%_) + _%K197939%_) (gxc#apply-generate-runtime-repr - _%E194480%_)) - _%K194479%_ + _%E197940%_)) + _%K197939%_ (cons '%#if - (cons _%L194459%_ - (cons _%K194479%_ + (cons _%g197166197919%_ + (cons _%K197939%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%E194480%_ '()))))))))))) + (cons _%E197940%_ '()))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199094199095%_ - (lambda (_%L194386%_ _%L194387%_) - (let ((_%$e194407%_ - (_%lookup-block190690%_ _%L194387%_))) - (if _%$e194407%_ - ((lambda (_%block194410%_) - (if (_%nonlinear-block?190692%_ - _%block194410%_) - _%expr193681%_ - (_%optimize-e190682%_ - (_%inline-block190691%_ - _%block194410%_ - (let ((__tmp201185 - (lambda (_%g194411194414%_ - _%g194412194416%_) - (cons _%g194411194414%_ - _%g194412194416%_)))) + (_%__kont202535202536%_ + (lambda (_%g197179197846%_ _%g197180197847%_) + (let ((_%$e197867%_ + (_%lookup-block194183%_ + _%g197180197847%_))) + (if _%$e197867%_ + ((lambda (_%block197870%_) + (if (_%nonlinear-block?194185%_ + _%block197870%_) + _%expr197155%_ + (_%optimize-e194175%_ + (_%inline-block194184%_ + _%block197870%_ + (let ((__tmp204626 + (lambda (_%g197871197874%_ + _%g197872197876%_) + (cons _%g197871197874%_ + _%g197872197876%_)))) (declare (not safe)) (__foldr1 - __tmp201185 + __tmp204626 '() - _%L194386%_)))))) - _%$e194407%_) - _%expr193681%_)))) - (_%__kont199098199099%_ - (lambda (_%L194276%_ _%L194277%_ _%L194278%_) - (let ((_%body194297%_ - (_%optimize-e190682%_ _%L194276%_))) + _%g197179197846%_)))))) + _%$e197867%_) + _%expr197155%_)))) + (_%__kont202539202540%_ + (lambda (_%g197208197738%_ + _%g197209197739%_ + _%g197210197740%_) + (let ((_%body197759%_ + (_%optimize-e194175%_ + _%g197208197738%_))) (cons '%#let-values (cons (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L194277%_ - _%L194278%_)) - (let ((__tmp201186 - (lambda (_%g194298194302%_ - _%g194299194304%_ - _%g194300194306%_) - (cons (cons (cons _%g194299194304%_ + _%g197209197739%_ + _%g197210197740%_)) + (let ((__tmp204627 + (lambda (_%g197760197764%_ + _%g197761197766%_ + _%g197762197768%_) + (cons (cons (cons _%g197761197766%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g194298194302%_ '())) + (cons _%g197760197764%_ '())) '())) - _%g194300194306%_)))) + _%g197762197768%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp201186 + __tmp204627 '() - _%L194277%_ - _%L194278%_))) - (cons _%body194297%_ '())))))) - (_%__kont199102199103%_ - (lambda (_%L194144%_ _%L194145%_ _%L194146%_) - (_%bind-e__0__198045198046%_ + _%g197209197739%_ + _%g197210197740%_))) + (cons _%body197759%_ '())))))) + (_%__kont202543202544%_ + (lambda (_%g197246197610%_ + _%g197247197611%_ + _%g197248197612%_) + (_%bind-e__0__201486201487%_ (map cons - (let ((__tmp201187 - (lambda (_%g194164194167%_ - _%g194165194169%_) - (cons _%g194164194167%_ - _%g194165194169%_)))) + (let ((__tmp204628 + (lambda (_%g197630197633%_ + _%g197631197635%_) + (cons _%g197630197633%_ + _%g197631197635%_)))) (declare (not safe)) - (__foldr1 __tmp201187 '() _%L194146%_)) - (let ((__tmp201188 - (lambda (_%g194171194174%_ - _%g194172194176%_) - (cons _%g194171194174%_ - _%g194172194176%_)))) + (__foldr1 + __tmp204628 + '() + _%g197248197612%_)) + (let ((__tmp204629 + (lambda (_%g197637197640%_ + _%g197638197642%_) + (cons _%g197637197640%_ + _%g197638197642%_)))) (declare (not safe)) (__foldr1 - __tmp201188 + __tmp204629 '() - _%L194145%_))) - _%L194144%_))) - (_%__kont199106199107%_ - (lambda (_%L194001%_ - _%L194002%_ - _%L194003%_ - _%L194004%_ - _%L194005%_) - (_%do-splice!190681%_ + _%g197247197611%_))) + _%g197246197610%_))) + (_%__kont202547202548%_ + (lambda (_%g197278197471%_ + _%g197279197472%_ + _%g197280197473%_ + _%g197281197474%_ + _%g197282197475%_) + (_%do-splice!194174%_ (lambda () - (let ((_%expr194047%_ - (_%optimize-e190682%_ _%L194003%_))) + (let ((_%expr197517%_ + (_%optimize-e194175%_ + _%g197280197473%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L194005%_ + (cons (cons (cons (cons _%g197282197475%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#lambda - (cons (let ((__tmp201189 - (lambda (_%g194048194051%_ - _%g194049194053%_) - (cons _%g194048194051%_ - _%g194049194053%_)))) + (cons (let ((__tmp204630 + (lambda (_%g197518197521%_ + _%g197519197523%_) + (cons _%g197518197521%_ + _%g197519197523%_)))) (declare (not safe)) (__foldr1 - __tmp201189 + __tmp204630 '() - _%L194004%_)) - (cons _%expr194047%_ '()))) + _%g197281197474%_)) + (cons _%expr197517%_ '()))) '())) - (let ((__tmp201190 - (lambda (_%g194055194058%_ _%g194056194060%_) - (cons _%g194055194058%_ _%g194056194060%_)))) + (let ((__tmp204631 + (lambda (_%g197525197528%_ _%g197526197530%_) + (cons _%g197525197528%_ _%g197526197530%_)))) (declare (not safe)) - (__foldr1 __tmp201190 '() _%L194002%_))) + (__foldr1 __tmp204631 '() _%g197279197472%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L194001%_ '())))))))) - (_%__kont199112199113%_ - (lambda () _%expr193681%_))) - (let* ((_%__match199299199300%_ - (lambda (_%e193809193873%_ - _%hd193810193876%_ - _%tl193811193878%_ - _%e193812193881%_ - _%hd193813193884%_ - _%tl193814193886%_ - _%e193815193889%_ - _%hd193816193892%_ - _%tl193817193894%_ - _%e193818193897%_ - _%hd193819193900%_ - _%tl193820193902%_ - _%e193821193905%_ - _%hd193822193908%_ - _%tl193823193910%_ - _%e193824193913%_ - _%hd193825193916%_ - _%tl193826193918%_ - _%e193827193921%_ - _%hd193828193924%_ - _%tl193829193926%_ - _%e193830193929%_ - _%hd193831193932%_ - _%tl193832193934%_ - _%__splice199108199109%_ - _%target193833193937%_ - _%tl193835193939%_) - (letrec ((_%loop193836193942%_ - (lambda (_%hd193834193945%_ - _%id193840193947%_) + (cons _%g197278197471%_ + '())))))))) + (_%__kont202553202554%_ + (lambda () _%expr197155%_))) + (let* ((_%__match202740202741%_ + (lambda (_%e197283197347%_ + _%hd197284197350%_ + _%tl197285197352%_ + _%e197286197355%_ + _%hd197287197358%_ + _%tl197288197360%_ + _%e197289197363%_ + _%hd197290197366%_ + _%tl197291197368%_ + _%e197292197371%_ + _%hd197293197374%_ + _%tl197294197376%_ + _%e197295197379%_ + _%hd197296197382%_ + _%tl197297197384%_ + _%e197298197387%_ + _%hd197299197390%_ + _%tl197300197392%_ + _%e197301197395%_ + _%hd197302197398%_ + _%tl197303197400%_ + _%e197304197403%_ + _%hd197305197406%_ + _%tl197306197408%_ + _%__splice202549202550%_ + _%target197307197411%_ + _%tl197309197413%_) + (letrec ((_%loop197310197416%_ + (lambda (_%hd197308197419%_ + _%id197314197421%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd193834193945%_)) - (let ((_%e193837193950%_ + _%hd197308197419%_)) + (let ((_%e197311197423%_ (let () (declare (not safe)) (gx#stx-e - _%hd193834193945%_)))) - (let ((_%lp-tl193839193955%_ + _%hd197308197419%_)))) + (let ((_%lp-tl197313197428%_ (let () (declare (not safe)) - (##cdr _%e193837193950%_))) - (_%lp-hd193838193953%_ + (##cdr _%e197311197423%_))) + (_%lp-hd197312197426%_ (let () (declare (not safe)) - (##car _%e193837193950%_)))) - (_%loop193836193942%_ - _%lp-tl193839193955%_ - (cons _%lp-hd193838193953%_ - _%id193840193947%_)))) - (let ((_%id193841193958%_ - (reverse _%id193840193947%_))) + (##car _%e197311197423%_)))) + (_%loop197310197416%_ + _%lp-tl197313197428%_ + (cons _%lp-hd197312197426%_ + _%id197314197421%_)))) + (let ((_%id197315197431%_ + (reverse _%id197314197421%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193832193934%_)) - (let ((_%e193842193961%_ + _%tl197306197408%_)) + (let ((_%e197316197433%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl193832193934%_)))) - (let ((_%tl193844193966%_ + (gx#stx-e _%tl197306197408%_)))) + (let ((_%tl197318197438%_ (let () (declare (not safe)) - (##cdr _%e193842193961%_))) - (_%hd193843193964%_ + (##cdr _%e197316197433%_))) + (_%hd197317197436%_ (let () (declare (not safe)) - (##car _%e193842193961%_)))) + (##car _%e197316197433%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193844193966%_)) + (gx#stx-null? _%tl197318197438%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193826193918%_)) + (gx#stx-null? _%tl197300197392%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl193817193894%_)) - (let ((_%__splice199110199111%_ + (gx#stx-pair/null? _%tl197291197368%_)) + (let ((_%__splice202551202552%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl193817193894%_ + _%tl197291197368%_ '0)))) - (let ((_%tl193847193971%_ + (let ((_%tl197321197443%_ (let () (declare (not safe)) (##vector-ref - _%__splice199110199111%_ + _%__splice202551202552%_ '1))) - (_%target193845193969%_ + (_%target197319197441%_ (let () (declare (not safe)) (##vector-ref - _%__splice199110199111%_ + _%__splice202551202552%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193847193971%_)) - (letrec ((_%loop193848193974%_ - (lambda (_%hd193846193977%_ - _%bind193852193979%_) + (gx#stx-null? _%tl197321197443%_)) + (letrec ((_%loop197322197446%_ + (lambda (_%hd197320197449%_ + _%bind197326197451%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd193846193977%_)) - (let ((_%e193849193982%_ + _%hd197320197449%_)) + (let ((_%e197323197453%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd193846193977%_)))) - (let ((_%lp-tl193851193987%_ + (gx#stx-e _%hd197320197449%_)))) + (let ((_%lp-tl197325197458%_ (let () (declare (not safe)) - (##cdr _%e193849193982%_))) - (_%lp-hd193850193985%_ + (##cdr _%e197323197453%_))) + (_%lp-hd197324197456%_ (let () (declare (not safe)) - (##car _%e193849193982%_)))) - (_%loop193848193974%_ - _%lp-tl193851193987%_ - (cons _%lp-hd193850193985%_ _%bind193852193979%_)))) - (let ((_%bind193853193990%_ (reverse _%bind193852193979%_))) + (##car _%e197323197453%_)))) + (_%loop197322197446%_ + _%lp-tl197325197458%_ + (cons _%lp-hd197324197456%_ _%bind197326197451%_)))) + (let ((_%bind197327197461%_ (reverse _%bind197326197451%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193814193886%_)) - (let ((_%e193854193993%_ + (gx#stx-pair? _%tl197288197360%_)) + (let ((_%e197328197463%_ (let () (declare (not safe)) - (gx#stx-e _%tl193814193886%_)))) - (let ((_%tl193856193998%_ + (gx#stx-e _%tl197288197360%_)))) + (let ((_%tl197330197468%_ (let () (declare (not safe)) - (##cdr _%e193854193993%_))) - (_%hd193855193996%_ + (##cdr _%e197328197463%_))) + (_%hd197329197466%_ (let () (declare (not safe)) - (##car _%e193854193993%_)))) + (##car _%e197328197463%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193856193998%_)) - (_%__kont199106199107%_ - _%hd193855193996%_ - _%bind193853193990%_ - _%hd193843193964%_ - _%id193841193958%_ - _%hd193822193908%_) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_))))))) + (gx#stx-null? _%tl197330197468%_)) + (_%__kont202547202548%_ + _%hd197329197466%_ + _%bind197327197461%_ + _%hd197317197436%_ + _%id197315197431%_ + _%hd197296197382%_) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop193848193974%_ - _%target193845193969%_ + (_%loop197322197446%_ + _%target197319197441%_ '())) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)) - (_%__kont199112199113%_)) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_))))))) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)) + (_%__kont202553202554%_)) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop193836193942%_ - _%target193833193937%_ + (_%loop197310197416%_ + _%target197307197411%_ '())))) - (_%__match199233199234%_ - (lambda (_%e193775194068%_ - _%hd193776194071%_ - _%tl193777194073%_ - _%e193778194076%_ - _%hd193779194079%_ - _%tl193780194081%_ - _%__splice199104199105%_ - _%target193781194084%_ - _%tl193783194086%_) - (letrec ((_%loop193784194089%_ - (lambda (_%hd193782194092%_ - _%expr193788194094%_ - _%id193789194096%_) + (_%__match202674202675%_ + (lambda (_%e197249197538%_ + _%hd197250197541%_ + _%tl197251197543%_ + _%e197252197546%_ + _%hd197253197549%_ + _%tl197254197551%_ + _%__splice202545202546%_ + _%target197255197554%_ + _%tl197257197556%_) + (letrec ((_%loop197258197559%_ + (lambda (_%hd197256197562%_ + _%expr197262197564%_ + _%id197263197565%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd193782194092%_)) - (let ((_%e193785194099%_ + _%hd197256197562%_)) + (let ((_%e197259197567%_ (let () (declare (not safe)) (gx#stx-e - _%hd193782194092%_)))) - (let ((_%lp-tl193787194104%_ + _%hd197256197562%_)))) + (let ((_%lp-tl197261197572%_ (let () (declare (not safe)) - (##cdr _%e193785194099%_))) - (_%lp-hd193786194102%_ + (##cdr _%e197259197567%_))) + (_%lp-hd197260197570%_ (let () (declare (not safe)) - (##car _%e193785194099%_)))) + (##car _%e197259197567%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd193786194102%_)) - (let ((_%e193792194107%_ + _%lp-hd197260197570%_)) + (let ((_%e197266197575%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd193786194102%_)))) - (let ((_%tl193794194112%_ + (gx#stx-e _%lp-hd197260197570%_)))) + (let ((_%tl197268197580%_ (let () (declare (not safe)) - (##cdr _%e193792194107%_))) - (_%hd193793194110%_ + (##cdr _%e197266197575%_))) + (_%hd197267197578%_ (let () (declare (not safe)) - (##car _%e193792194107%_)))) + (##car _%e197266197575%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193793194110%_)) - (let ((_%e193795194115%_ + (gx#stx-pair? _%hd197267197578%_)) + (let ((_%e197269197583%_ (let () (declare (not safe)) - (gx#stx-e _%hd193793194110%_)))) - (let ((_%tl193797194120%_ + (gx#stx-e _%hd197267197578%_)))) + (let ((_%tl197271197588%_ (let () (declare (not safe)) - (##cdr _%e193795194115%_))) - (_%hd193796194118%_ + (##cdr _%e197269197583%_))) + (_%hd197270197586%_ (let () (declare (not safe)) - (##car _%e193795194115%_)))) + (##car _%e197269197583%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193797194120%_)) + (gx#stx-null? _%tl197271197588%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193794194112%_)) - (let ((_%e193798194123%_ + (gx#stx-pair? _%tl197268197580%_)) + (let ((_%e197272197591%_ (let () (declare (not safe)) (gx#stx-e - _%tl193794194112%_)))) - (let ((_%tl193800194128%_ + _%tl197268197580%_)))) + (let ((_%tl197274197596%_ (let () (declare (not safe)) - (##cdr _%e193798194123%_))) - (_%hd193799194126%_ + (##cdr _%e197272197591%_))) + (_%hd197273197594%_ (let () (declare (not safe)) - (##car _%e193798194123%_)))) + (##car _%e197272197591%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193800194128%_)) - (_%loop193784194089%_ - _%lp-tl193787194104%_ - (cons _%hd193799194126%_ - _%expr193788194094%_) - (cons _%hd193796194118%_ - _%id193789194096%_)) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)))) + _%tl197274197596%_)) + (_%loop197258197559%_ + _%lp-tl197261197572%_ + (cons _%hd197273197594%_ + _%expr197262197564%_) + (cons _%hd197270197586%_ + _%id197263197565%_)) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id193791194133%_ - (reverse _%id193789194096%_)) - (_%expr193790194131%_ - (reverse _%expr193788194094%_))) + (let ((_%id197265197600%_ + (reverse _%id197263197565%_)) + (_%expr197264197599%_ + (reverse _%expr197262197564%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193780194081%_)) - (let ((_%e193801194136%_ + _%tl197254197551%_)) + (let ((_%e197275197602%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl193780194081%_)))) - (let ((_%tl193803194141%_ + (gx#stx-e _%tl197254197551%_)))) + (let ((_%tl197277197607%_ (let () (declare (not safe)) - (##cdr _%e193801194136%_))) - (_%hd193802194139%_ + (##cdr _%e197275197602%_))) + (_%hd197276197605%_ (let () (declare (not safe)) - (##car _%e193801194136%_)))) + (##car _%e197275197602%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193803194141%_)) - (_%__kont199102199103%_ - _%hd193802194139%_ - _%expr193790194131%_ - _%id193791194133%_) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_))))))) + (gx#stx-null? _%tl197277197607%_)) + (_%__kont202543202544%_ + _%hd197276197605%_ + _%expr197264197599%_ + _%id197265197600%_) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop193784194089%_ - _%target193781194084%_ + (_%loop197258197559%_ + _%target197255197554%_ '() '())))) - (_%__match199209199210%_ - (lambda (_%e193737194184%_ - _%hd193738194187%_ - _%tl193739194189%_ - _%e193740194192%_ - _%hd193741194195%_ - _%tl193742194197%_ - _%__splice199100199101%_ - _%target193743194200%_ - _%tl193745194202%_) - (letrec ((_%loop193746194205%_ - (lambda (_%hd193744194208%_ - _%xid193750194210%_ - _%id193751194212%_) + (_%__match202650202651%_ + (lambda (_%e197211197650%_ + _%hd197212197653%_ + _%tl197213197655%_ + _%e197214197658%_ + _%hd197215197661%_ + _%tl197216197663%_ + _%__splice202541202542%_ + _%target197217197666%_ + _%tl197219197668%_) + (letrec ((_%loop197220197671%_ + (lambda (_%hd197218197674%_ + _%xid197224197676%_ + _%id197225197677%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd193744194208%_)) - (let ((_%e193747194215%_ + _%hd197218197674%_)) + (let ((_%e197221197679%_ (let () (declare (not safe)) (gx#stx-e - _%hd193744194208%_)))) - (let ((_%lp-tl193749194220%_ + _%hd197218197674%_)))) + (let ((_%lp-tl197223197684%_ (let () (declare (not safe)) - (##cdr _%e193747194215%_))) - (_%lp-hd193748194218%_ + (##cdr _%e197221197679%_))) + (_%lp-hd197222197682%_ (let () (declare (not safe)) - (##car _%e193747194215%_)))) + (##car _%e197221197679%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd193748194218%_)) - (let ((_%e193754194223%_ + _%lp-hd197222197682%_)) + (let ((_%e197228197687%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd193748194218%_)))) - (let ((_%tl193756194228%_ + (gx#stx-e _%lp-hd197222197682%_)))) + (let ((_%tl197230197692%_ (let () (declare (not safe)) - (##cdr _%e193754194223%_))) - (_%hd193755194226%_ + (##cdr _%e197228197687%_))) + (_%hd197229197690%_ (let () (declare (not safe)) - (##car _%e193754194223%_)))) + (##car _%e197228197687%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193755194226%_)) - (let ((_%e193757194231%_ + (gx#stx-pair? _%hd197229197690%_)) + (let ((_%e197231197695%_ (let () (declare (not safe)) - (gx#stx-e _%hd193755194226%_)))) - (let ((_%tl193759194236%_ + (gx#stx-e _%hd197229197690%_)))) + (let ((_%tl197233197700%_ (let () (declare (not safe)) - (##cdr _%e193757194231%_))) - (_%hd193758194234%_ + (##cdr _%e197231197695%_))) + (_%hd197232197698%_ (let () (declare (not safe)) - (##car _%e193757194231%_)))) + (##car _%e197231197695%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193759194236%_)) + (gx#stx-null? _%tl197233197700%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193756194228%_)) - (let ((_%e193760194239%_ + (gx#stx-pair? _%tl197230197692%_)) + (let ((_%e197234197703%_ (let () (declare (not safe)) (gx#stx-e - _%tl193756194228%_)))) - (let ((_%tl193762194244%_ + _%tl197230197692%_)))) + (let ((_%tl197236197708%_ (let () (declare (not safe)) - (##cdr _%e193760194239%_))) - (_%hd193761194242%_ + (##cdr _%e197234197703%_))) + (_%hd197235197706%_ (let () (declare (not safe)) - (##car _%e193760194239%_)))) + (##car _%e197234197703%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd193761194242%_)) - (let ((_%e193763194247%_ + _%hd197235197706%_)) + (let ((_%e197237197711%_ (let () (declare (not safe)) (gx#stx-e - _%hd193761194242%_)))) - (let ((_%tl193765194252%_ + _%hd197235197706%_)))) + (let ((_%tl197239197716%_ (let () (declare (not safe)) - (##cdr _%e193763194247%_))) - (_%hd193764194250%_ + (##cdr _%e197237197711%_))) + (_%hd197238197714%_ (let () (declare (not safe)) - (##car _%e193763194247%_)))) + (##car _%e197237197711%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd193764194250%_)) + _%hd197238197714%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd193764194250%_)) + _%hd197238197714%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl193765194252%_)) - (let ((_%e193766194255%_ + (gx#stx-pair? _%tl197239197716%_)) + (let ((_%e197240197719%_ (let () (declare (not safe)) - (gx#stx-e _%tl193765194252%_)))) - (let ((_%tl193768194260%_ + (gx#stx-e _%tl197239197716%_)))) + (let ((_%tl197242197724%_ (let () (declare (not safe)) - (##cdr _%e193766194255%_))) - (_%hd193767194258%_ + (##cdr _%e197240197719%_))) + (_%hd197241197722%_ (let () (declare (not safe)) - (##car _%e193766194255%_)))) + (##car _%e197240197719%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193768194260%_)) + (gx#stx-null? _%tl197242197724%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193762194244%_)) - (_%loop193746194205%_ - _%lp-tl193749194220%_ - (cons _%hd193767194258%_ - _%xid193750194210%_) - (cons _%hd193758194234%_ - _%id193751194212%_)) - (_%__match199233199234%_ - _%e193737194184%_ - _%hd193738194187%_ - _%tl193739194189%_ - _%e193740194192%_ - _%hd193741194195%_ - _%tl193742194197%_ - _%__splice199100199101%_ - _%target193743194200%_ - _%tl193745194202%_)) - (_%__match199233199234%_ - _%e193737194184%_ - _%hd193738194187%_ - _%tl193739194189%_ - _%e193740194192%_ - _%hd193741194195%_ - _%tl193742194197%_ - _%__splice199100199101%_ - _%target193743194200%_ - _%tl193745194202%_)))) - (_%__match199233199234%_ - _%e193737194184%_ - _%hd193738194187%_ - _%tl193739194189%_ - _%e193740194192%_ - _%hd193741194195%_ - _%tl193742194197%_ - _%__splice199100199101%_ - _%target193743194200%_ - _%tl193745194202%_)) - (_%__match199233199234%_ - _%e193737194184%_ - _%hd193738194187%_ - _%tl193739194189%_ - _%e193740194192%_ - _%hd193741194195%_ - _%tl193742194197%_ - _%__splice199100199101%_ - _%target193743194200%_ - _%tl193745194202%_)) - (_%__match199233199234%_ - _%e193737194184%_ - _%hd193738194187%_ - _%tl193739194189%_ - _%e193740194192%_ - _%hd193741194195%_ - _%tl193742194197%_ - _%__splice199100199101%_ - _%target193743194200%_ - _%tl193745194202%_)))) + (gx#stx-null? _%tl197236197708%_)) + (_%loop197220197671%_ + _%lp-tl197223197684%_ + (cons _%hd197241197722%_ + _%xid197224197676%_) + (cons _%hd197232197698%_ + _%id197225197677%_)) + (_%__match202674202675%_ + _%e197211197650%_ + _%hd197212197653%_ + _%tl197213197655%_ + _%e197214197658%_ + _%hd197215197661%_ + _%tl197216197663%_ + _%__splice202541202542%_ + _%target197217197666%_ + _%tl197219197668%_)) + (_%__match202674202675%_ + _%e197211197650%_ + _%hd197212197653%_ + _%tl197213197655%_ + _%e197214197658%_ + _%hd197215197661%_ + _%tl197216197663%_ + _%__splice202541202542%_ + _%target197217197666%_ + _%tl197219197668%_)))) + (_%__match202674202675%_ + _%e197211197650%_ + _%hd197212197653%_ + _%tl197213197655%_ + _%e197214197658%_ + _%hd197215197661%_ + _%tl197216197663%_ + _%__splice202541202542%_ + _%target197217197666%_ + _%tl197219197668%_)) + (_%__match202674202675%_ + _%e197211197650%_ + _%hd197212197653%_ + _%tl197213197655%_ + _%e197214197658%_ + _%hd197215197661%_ + _%tl197216197663%_ + _%__splice202541202542%_ + _%target197217197666%_ + _%tl197219197668%_)) + (_%__match202674202675%_ + _%e197211197650%_ + _%hd197212197653%_ + _%tl197213197655%_ + _%e197214197658%_ + _%hd197215197661%_ + _%tl197216197663%_ + _%__splice202541202542%_ + _%target197217197666%_ + _%tl197219197668%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match199233199234%_ - _%e193737194184%_ - _%hd193738194187%_ - _%tl193739194189%_ - _%e193740194192%_ - _%hd193741194195%_ - _%tl193742194197%_ - _%__splice199100199101%_ - _%target193743194200%_ - _%tl193745194202%_)))) - (_%__match199233199234%_ - _%e193737194184%_ - _%hd193738194187%_ - _%tl193739194189%_ - _%e193740194192%_ - _%hd193741194195%_ - _%tl193742194197%_ - _%__splice199100199101%_ - _%target193743194200%_ - _%tl193745194202%_)) - (_%__match199233199234%_ - _%e193737194184%_ - _%hd193738194187%_ - _%tl193739194189%_ - _%e193740194192%_ - _%hd193741194195%_ - _%tl193742194197%_ - _%__splice199100199101%_ - _%target193743194200%_ - _%tl193745194202%_)))) - (_%__match199233199234%_ - _%e193737194184%_ - _%hd193738194187%_ - _%tl193739194189%_ - _%e193740194192%_ - _%hd193741194195%_ - _%tl193742194197%_ - _%__splice199100199101%_ - _%target193743194200%_ - _%tl193745194202%_)))) - (_%__match199233199234%_ - _%e193737194184%_ - _%hd193738194187%_ - _%tl193739194189%_ - _%e193740194192%_ - _%hd193741194195%_ - _%tl193742194197%_ - _%__splice199100199101%_ - _%target193743194200%_ - _%tl193745194202%_)))) + (_%__match202674202675%_ + _%e197211197650%_ + _%hd197212197653%_ + _%tl197213197655%_ + _%e197214197658%_ + _%hd197215197661%_ + _%tl197216197663%_ + _%__splice202541202542%_ + _%target197217197666%_ + _%tl197219197668%_)))) + (_%__match202674202675%_ + _%e197211197650%_ + _%hd197212197653%_ + _%tl197213197655%_ + _%e197214197658%_ + _%hd197215197661%_ + _%tl197216197663%_ + _%__splice202541202542%_ + _%target197217197666%_ + _%tl197219197668%_)) + (_%__match202674202675%_ + _%e197211197650%_ + _%hd197212197653%_ + _%tl197213197655%_ + _%e197214197658%_ + _%hd197215197661%_ + _%tl197216197663%_ + _%__splice202541202542%_ + _%target197217197666%_ + _%tl197219197668%_)))) + (_%__match202674202675%_ + _%e197211197650%_ + _%hd197212197653%_ + _%tl197213197655%_ + _%e197214197658%_ + _%hd197215197661%_ + _%tl197216197663%_ + _%__splice202541202542%_ + _%target197217197666%_ + _%tl197219197668%_)))) + (_%__match202674202675%_ + _%e197211197650%_ + _%hd197212197653%_ + _%tl197213197655%_ + _%e197214197658%_ + _%hd197215197661%_ + _%tl197216197663%_ + _%__splice202541202542%_ + _%target197217197666%_ + _%tl197219197668%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id193753194265%_ - (reverse _%id193751194212%_)) - (_%xid193752194263%_ - (reverse _%xid193750194210%_))) + (let ((_%id197227197728%_ + (reverse _%id197225197677%_)) + (_%xid197226197727%_ + (reverse _%xid197224197676%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193742194197%_)) - (let ((_%e193769194268%_ + _%tl197216197663%_)) + (let ((_%e197243197730%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl193742194197%_)))) - (let ((_%tl193771194273%_ + (gx#stx-e _%tl197216197663%_)))) + (let ((_%tl197245197735%_ (let () (declare (not safe)) - (##cdr _%e193769194268%_))) - (_%hd193770194271%_ + (##cdr _%e197243197730%_))) + (_%hd197244197733%_ (let () (declare (not safe)) - (##car _%e193769194268%_)))) + (##car _%e197243197730%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193771194273%_)) - (_%__kont199098199099%_ - _%hd193770194271%_ - _%xid193752194263%_ - _%id193753194265%_) - (_%__match199233199234%_ - _%e193737194184%_ - _%hd193738194187%_ - _%tl193739194189%_ - _%e193740194192%_ - _%hd193741194195%_ - _%tl193742194197%_ - _%__splice199100199101%_ - _%target193743194200%_ - _%tl193745194202%_)))) - (_%__match199233199234%_ - _%e193737194184%_ - _%hd193738194187%_ - _%tl193739194189%_ - _%e193740194192%_ - _%hd193741194195%_ - _%tl193742194197%_ - _%__splice199100199101%_ - _%target193743194200%_ - _%tl193745194202%_))))))) + (gx#stx-null? _%tl197245197735%_)) + (_%__kont202539202540%_ + _%hd197244197733%_ + _%xid197226197727%_ + _%id197227197728%_) + (_%__match202674202675%_ + _%e197211197650%_ + _%hd197212197653%_ + _%tl197213197655%_ + _%e197214197658%_ + _%hd197215197661%_ + _%tl197216197663%_ + _%__splice202541202542%_ + _%target197217197666%_ + _%tl197219197668%_)))) + (_%__match202674202675%_ + _%e197211197650%_ + _%hd197212197653%_ + _%tl197213197655%_ + _%e197214197658%_ + _%hd197215197661%_ + _%tl197216197663%_ + _%__splice202541202542%_ + _%target197217197666%_ + _%tl197219197668%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop193746194205%_ - _%target193743194200%_ + (_%loop197220197671%_ + _%target197217197666%_ '() '())))) - (_%__match199185199186%_ - (lambda (_%e193707194314%_ - _%hd193708194317%_ - _%tl193709194319%_ - _%e193710194322%_ - _%hd193711194325%_ - _%tl193712194327%_ - _%e193713194330%_ - _%hd193714194333%_ - _%tl193715194335%_ - _%e193716194338%_ - _%hd193717194341%_ - _%tl193718194343%_ - _%__splice199096199097%_ - _%target193719194346%_ - _%tl193721194348%_) - (letrec ((_%loop193722194351%_ - (lambda (_%hd193720194354%_ - _%id193726194356%_) + (_%__match202626202627%_ + (lambda (_%e197181197776%_ + _%hd197182197779%_ + _%tl197183197781%_ + _%e197184197784%_ + _%hd197185197787%_ + _%tl197186197789%_ + _%e197187197792%_ + _%hd197188197795%_ + _%tl197189197797%_ + _%e197190197800%_ + _%hd197191197803%_ + _%tl197192197805%_ + _%__splice202537202538%_ + _%target197193197808%_ + _%tl197195197810%_) + (letrec ((_%loop197196197813%_ + (lambda (_%hd197194197816%_ + _%id197200197818%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd193720194354%_)) - (let ((_%e193723194359%_ + _%hd197194197816%_)) + (let ((_%e197197197820%_ (let () (declare (not safe)) (gx#stx-e - _%hd193720194354%_)))) - (let ((_%lp-tl193725194364%_ + _%hd197194197816%_)))) + (let ((_%lp-tl197199197825%_ (let () (declare (not safe)) - (##cdr _%e193723194359%_))) - (_%lp-hd193724194362%_ + (##cdr _%e197197197820%_))) + (_%lp-hd197198197823%_ (let () (declare (not safe)) - (##car _%e193723194359%_)))) + (##car _%e197197197820%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd193724194362%_)) - (let ((_%e193728194367%_ + _%lp-hd197198197823%_)) + (let ((_%e197202197828%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd193724194362%_)))) - (let ((_%tl193730194372%_ + (gx#stx-e _%lp-hd197198197823%_)))) + (let ((_%tl197204197833%_ (let () (declare (not safe)) - (##cdr _%e193728194367%_))) - (_%hd193729194370%_ + (##cdr _%e197202197828%_))) + (_%hd197203197831%_ (let () (declare (not safe)) - (##car _%e193728194367%_)))) + (##car _%e197202197828%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd193729194370%_)) + (gx#identifier? _%hd197203197831%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd193729194370%_)) + (gx#stx-eq? '%#ref _%hd197203197831%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193730194372%_)) - (let ((_%e193731194375%_ + (gx#stx-pair? _%tl197204197833%_)) + (let ((_%e197205197836%_ (let () (declare (not safe)) - (gx#stx-e _%tl193730194372%_)))) - (let ((_%tl193733194380%_ + (gx#stx-e _%tl197204197833%_)))) + (let ((_%tl197207197841%_ (let () (declare (not safe)) - (##cdr _%e193731194375%_))) - (_%hd193732194378%_ + (##cdr _%e197205197836%_))) + (_%hd197206197839%_ (let () (declare (not safe)) - (##car _%e193731194375%_)))) + (##car _%e197205197836%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193733194380%_)) - (_%loop193722194351%_ - _%lp-tl193725194364%_ - (cons _%hd193732194378%_ - _%id193726194356%_)) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)) - (_%__kont199112199113%_)) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)))) + (gx#stx-null? _%tl197207197841%_)) + (_%loop197196197813%_ + _%lp-tl197199197825%_ + (cons _%hd197206197839%_ + _%id197200197818%_)) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)) + (_%__kont202553202554%_)) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id193727194383%_ - (reverse _%id193726194356%_))) - (_%__kont199094199095%_ - _%id193727194383%_ - _%hd193717194341%_)))))) - (_%loop193722194351%_ - _%target193719194346%_ + (let ((_%id197201197844%_ + (reverse _%id197200197818%_))) + (_%__kont202535202536%_ + _%id197201197844%_ + _%hd197191197803%_)))))) + (_%loop197196197813%_ + _%target197193197808%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx199090199091%_)) - (let ((_%e193693194425%_ + (gx#stx-pair? _%__stx202531202532%_)) + (let ((_%e197167197885%_ (let () (declare (not safe)) - (gx#stx-e _%__stx199090199091%_)))) - (let ((_%tl193695194430%_ + (gx#stx-e _%__stx202531202532%_)))) + (let ((_%tl197169197890%_ (let () (declare (not safe)) - (##cdr _%e193693194425%_))) - (_%hd193694194428%_ + (##cdr _%e197167197885%_))) + (_%hd197168197888%_ (let () (declare (not safe)) - (##car _%e193693194425%_)))) + (##car _%e197167197885%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd193694194428%_)) + (gx#identifier? _%hd197168197888%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd193694194428%_)) + _%hd197168197888%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193695194430%_)) - (let ((_%e193696194433%_ + _%tl197169197890%_)) + (let ((_%e197170197893%_ (let () (declare (not safe)) (gx#stx-e - _%tl193695194430%_)))) - (let ((_%tl193698194438%_ + _%tl197169197890%_)))) + (let ((_%tl197172197898%_ (let () (declare (not safe)) - (##cdr _%e193696194433%_))) - (_%hd193697194436%_ + (##cdr _%e197170197893%_))) + (_%hd197171197896%_ (let () (declare (not safe)) - (##car _%e193696194433%_)))) + (##car _%e197170197893%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193698194438%_)) - (let ((_%e193699194441%_ + _%tl197172197898%_)) + (let ((_%e197173197901%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl193698194438%_)))) - (let ((_%tl193701194446%_ + (gx#stx-e _%tl197172197898%_)))) + (let ((_%tl197175197906%_ (let () (declare (not safe)) - (##cdr _%e193699194441%_))) - (_%hd193700194444%_ + (##cdr _%e197173197901%_))) + (_%hd197174197904%_ (let () (declare (not safe)) - (##car _%e193699194441%_)))) + (##car _%e197173197901%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193701194446%_)) - (let ((_%e193702194449%_ + (gx#stx-pair? _%tl197175197906%_)) + (let ((_%e197176197909%_ (let () (declare (not safe)) - (gx#stx-e _%tl193701194446%_)))) - (let ((_%tl193704194454%_ + (gx#stx-e _%tl197175197906%_)))) + (let ((_%tl197178197914%_ (let () (declare (not safe)) - (##cdr _%e193702194449%_))) - (_%hd193703194452%_ + (##cdr _%e197176197909%_))) + (_%hd197177197912%_ (let () (declare (not safe)) - (##car _%e193702194449%_)))) + (##car _%e197176197909%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193704194454%_)) - (_%__kont199092199093%_ - _%hd193703194452%_ - _%hd193700194444%_ - _%hd193697194436%_) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)))) + (gx#stx-null? _%tl197178197914%_)) + (_%__kont202533202534%_ + _%hd197177197912%_ + _%hd197174197904%_ + _%hd197171197896%_) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199112199113%_)) + (_%__kont202553202554%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd193694194428%_)) + _%hd197168197888%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193695194430%_)) - (let ((_%e193710194322%_ + _%tl197169197890%_)) + (let ((_%e197184197784%_ (let () (declare (not safe)) (gx#stx-e - _%tl193695194430%_)))) - (let ((_%tl193712194327%_ + _%tl197169197890%_)))) + (let ((_%tl197186197789%_ (let () (declare (not safe)) - (##cdr _%e193710194322%_))) - (_%hd193711194325%_ + (##cdr _%e197184197784%_))) + (_%hd197185197787%_ (let () (declare (not safe)) - (##car _%e193710194322%_)))) + (##car _%e197184197784%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd193711194325%_)) - (let ((_%e193713194330%_ + _%hd197185197787%_)) + (let ((_%e197187197792%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd193711194325%_)))) - (let ((_%tl193715194335%_ + (gx#stx-e _%hd197185197787%_)))) + (let ((_%tl197189197797%_ (let () (declare (not safe)) - (##cdr _%e193713194330%_))) - (_%hd193714194333%_ + (##cdr _%e197187197792%_))) + (_%hd197188197795%_ (let () (declare (not safe)) - (##car _%e193713194330%_)))) + (##car _%e197187197792%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd193714194333%_)) + (gx#identifier? _%hd197188197795%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd193714194333%_)) + (gx#stx-eq? '%#ref _%hd197188197795%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193715194335%_)) - (let ((_%e193716194338%_ + (gx#stx-pair? _%tl197189197797%_)) + (let ((_%e197190197800%_ (let () (declare (not safe)) - (gx#stx-e _%tl193715194335%_)))) - (let ((_%tl193718194343%_ + (gx#stx-e _%tl197189197797%_)))) + (let ((_%tl197192197805%_ (let () (declare (not safe)) - (##cdr _%e193716194338%_))) - (_%hd193717194341%_ + (##cdr _%e197190197800%_))) + (_%hd197191197803%_ (let () (declare (not safe)) - (##car _%e193716194338%_)))) + (##car _%e197190197800%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193718194343%_)) + (gx#stx-null? _%tl197192197805%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl193712194327%_)) - (let ((_%__splice199096199097%_ + _%tl197186197789%_)) + (let ((_%__splice202537202538%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl193712194327%_ + _%tl197186197789%_ '0)))) - (let ((_%tl193721194348%_ + (let ((_%tl197195197810%_ (let () (declare (not safe)) (##vector-ref - _%__splice199096199097%_ + _%__splice202537202538%_ '1))) - (_%target193719194346%_ + (_%target197193197808%_ (let () (declare (not safe)) (##vector-ref - _%__splice199096199097%_ + _%__splice202537202538%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193721194348%_)) - (_%__match199185199186%_ - _%e193693194425%_ - _%hd193694194428%_ - _%tl193695194430%_ - _%e193710194322%_ - _%hd193711194325%_ - _%tl193712194327%_ - _%e193713194330%_ - _%hd193714194333%_ - _%tl193715194335%_ - _%e193716194338%_ - _%hd193717194341%_ - _%tl193718194343%_ - _%__splice199096199097%_ - _%target193719194346%_ - _%tl193721194348%_) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)) - (_%__kont199112199113%_)) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)))) + _%tl197195197810%_)) + (_%__match202626202627%_ + _%e197167197885%_ + _%hd197168197888%_ + _%tl197169197890%_ + _%e197184197784%_ + _%hd197185197787%_ + _%tl197186197789%_ + _%e197187197792%_ + _%hd197188197795%_ + _%tl197189197797%_ + _%e197190197800%_ + _%hd197191197803%_ + _%tl197192197805%_ + _%__splice202537202538%_ + _%target197193197808%_ + _%tl197195197810%_) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)) + (_%__kont202553202554%_)) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199112199113%_)) + (_%__kont202553202554%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd193694194428%_)) + _%hd197168197888%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193695194430%_)) - (let ((_%e193740194192%_ + _%tl197169197890%_)) + (let ((_%e197214197658%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl193695194430%_)))) - (let ((_%tl193742194197%_ + (gx#stx-e _%tl197169197890%_)))) + (let ((_%tl197216197663%_ (let () (declare (not safe)) - (##cdr _%e193740194192%_))) - (_%hd193741194195%_ + (##cdr _%e197214197658%_))) + (_%hd197215197661%_ (let () (declare (not safe)) - (##car _%e193740194192%_)))) + (##car _%e197214197658%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd193741194195%_)) - (let ((_%__splice199100199101%_ + (gx#stx-pair/null? _%hd197215197661%_)) + (let ((_%__splice202541202542%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%hd193741194195%_ + _%hd197215197661%_ '0)))) - (let ((_%tl193745194202%_ + (let ((_%tl197219197668%_ (let () (declare (not safe)) - (##vector-ref _%__splice199100199101%_ '1))) - (_%target193743194200%_ + (##vector-ref _%__splice202541202542%_ '1))) + (_%target197217197666%_ (let () (declare (not safe)) - (##vector-ref _%__splice199100199101%_ '0)))) + (##vector-ref _%__splice202541202542%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193745194202%_)) - (_%__match199209199210%_ - _%e193693194425%_ - _%hd193694194428%_ - _%tl193695194430%_ - _%e193740194192%_ - _%hd193741194195%_ - _%tl193742194197%_ - _%__splice199100199101%_ - _%target193743194200%_ - _%tl193745194202%_) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)) + (gx#stx-null? _%tl197219197668%_)) + (_%__match202650202651%_ + _%e197167197885%_ + _%hd197168197888%_ + _%tl197169197890%_ + _%e197214197658%_ + _%hd197215197661%_ + _%tl197216197663%_ + _%__splice202541202542%_ + _%target197217197666%_ + _%tl197219197668%_) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd193694194428%_)) + _%hd197168197888%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193695194430%_)) - (let ((_%e193812193881%_ + _%tl197169197890%_)) + (let ((_%e197286197355%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl193695194430%_)))) - (let ((_%tl193814193886%_ + (gx#stx-e _%tl197169197890%_)))) + (let ((_%tl197288197360%_ (let () (declare (not safe)) - (##cdr _%e193812193881%_))) - (_%hd193813193884%_ + (##cdr _%e197286197355%_))) + (_%hd197287197358%_ (let () (declare (not safe)) - (##car _%e193812193881%_)))) + (##car _%e197286197355%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193813193884%_)) - (let ((_%e193815193889%_ + (gx#stx-pair? _%hd197287197358%_)) + (let ((_%e197289197363%_ (let () (declare (not safe)) - (gx#stx-e _%hd193813193884%_)))) - (let ((_%tl193817193894%_ + (gx#stx-e _%hd197287197358%_)))) + (let ((_%tl197291197368%_ (let () (declare (not safe)) - (##cdr _%e193815193889%_))) - (_%hd193816193892%_ + (##cdr _%e197289197363%_))) + (_%hd197290197366%_ (let () (declare (not safe)) - (##car _%e193815193889%_)))) + (##car _%e197289197363%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193816193892%_)) - (let ((_%e193818193897%_ + (gx#stx-pair? _%hd197290197366%_)) + (let ((_%e197292197371%_ (let () (declare (not safe)) - (gx#stx-e _%hd193816193892%_)))) - (let ((_%tl193820193902%_ + (gx#stx-e _%hd197290197366%_)))) + (let ((_%tl197294197376%_ (let () (declare (not safe)) - (##cdr _%e193818193897%_))) - (_%hd193819193900%_ + (##cdr _%e197292197371%_))) + (_%hd197293197374%_ (let () (declare (not safe)) - (##car _%e193818193897%_)))) + (##car _%e197292197371%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193819193900%_)) - (let ((_%e193821193905%_ + (gx#stx-pair? _%hd197293197374%_)) + (let ((_%e197295197379%_ (let () (declare (not safe)) (gx#stx-e - _%hd193819193900%_)))) - (let ((_%tl193823193910%_ + _%hd197293197374%_)))) + (let ((_%tl197297197384%_ (let () (declare (not safe)) - (##cdr _%e193821193905%_))) - (_%hd193822193908%_ + (##cdr _%e197295197379%_))) + (_%hd197296197382%_ (let () (declare (not safe)) - (##car _%e193821193905%_)))) + (##car _%e197295197379%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193823193910%_)) + _%tl197297197384%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193820193902%_)) - (let ((_%e193824193913%_ + _%tl197294197376%_)) + (let ((_%e197298197387%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl193820193902%_)))) - (let ((_%tl193826193918%_ + (gx#stx-e _%tl197294197376%_)))) + (let ((_%tl197300197392%_ (let () (declare (not safe)) - (##cdr _%e193824193913%_))) - (_%hd193825193916%_ + (##cdr _%e197298197387%_))) + (_%hd197299197390%_ (let () (declare (not safe)) - (##car _%e193824193913%_)))) + (##car _%e197298197387%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193825193916%_)) - (let ((_%e193827193921%_ + (gx#stx-pair? _%hd197299197390%_)) + (let ((_%e197301197395%_ (let () (declare (not safe)) - (gx#stx-e _%hd193825193916%_)))) - (let ((_%tl193829193926%_ + (gx#stx-e _%hd197299197390%_)))) + (let ((_%tl197303197400%_ (let () (declare (not safe)) - (##cdr _%e193827193921%_))) - (_%hd193828193924%_ + (##cdr _%e197301197395%_))) + (_%hd197302197398%_ (let () (declare (not safe)) - (##car _%e193827193921%_)))) + (##car _%e197301197395%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd193828193924%_)) + (gx#identifier? _%hd197302197398%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd193828193924%_)) + (gx#stx-eq? '%#lambda _%hd197302197398%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193829193926%_)) - (let ((_%e193830193929%_ + (gx#stx-pair? _%tl197303197400%_)) + (let ((_%e197304197403%_ (let () (declare (not safe)) (gx#stx-e - _%tl193829193926%_)))) - (let ((_%tl193832193934%_ + _%tl197303197400%_)))) + (let ((_%tl197306197408%_ (let () (declare (not safe)) - (##cdr _%e193830193929%_))) - (_%hd193831193932%_ + (##cdr _%e197304197403%_))) + (_%hd197305197406%_ (let () (declare (not safe)) - (##car _%e193830193929%_)))) + (##car _%e197304197403%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd193831193932%_)) - (let ((_%__splice199108199109%_ + _%hd197305197406%_)) + (let ((_%__splice202549202550%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%hd193831193932%_ + _%hd197305197406%_ '0)))) - (let ((_%tl193835193939%_ + (let ((_%tl197309197413%_ (let () (declare (not safe)) (##vector-ref - _%__splice199108199109%_ + _%__splice202549202550%_ '1))) - (_%target193833193937%_ + (_%target197307197411%_ (let () (declare (not safe)) (##vector-ref - _%__splice199108199109%_ + _%__splice202549202550%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193835193939%_)) - (_%__match199299199300%_ - _%e193693194425%_ - _%hd193694194428%_ - _%tl193695194430%_ - _%e193812193881%_ - _%hd193813193884%_ - _%tl193814193886%_ - _%e193815193889%_ - _%hd193816193892%_ - _%tl193817193894%_ - _%e193818193897%_ - _%hd193819193900%_ - _%tl193820193902%_ - _%e193821193905%_ - _%hd193822193908%_ - _%tl193823193910%_ - _%e193824193913%_ - _%hd193825193916%_ - _%tl193826193918%_ - _%e193827193921%_ - _%hd193828193924%_ - _%tl193829193926%_ - _%e193830193929%_ - _%hd193831193932%_ - _%tl193832193934%_ - _%__splice199108199109%_ - _%target193833193937%_ - _%tl193835193939%_) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)) - (_%__kont199112199113%_)) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)) + _%tl197309197413%_)) + (_%__match202740202741%_ + _%e197167197885%_ + _%hd197168197888%_ + _%tl197169197890%_ + _%e197286197355%_ + _%hd197287197358%_ + _%tl197288197360%_ + _%e197289197363%_ + _%hd197290197366%_ + _%tl197291197368%_ + _%e197292197371%_ + _%hd197293197374%_ + _%tl197294197376%_ + _%e197295197379%_ + _%hd197296197382%_ + _%tl197297197384%_ + _%e197298197387%_ + _%hd197299197390%_ + _%tl197300197392%_ + _%e197301197395%_ + _%hd197302197398%_ + _%tl197303197400%_ + _%e197304197403%_ + _%hd197305197406%_ + _%tl197306197408%_ + _%__splice202549202550%_ + _%target197307197411%_ + _%tl197309197413%_) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)) + (_%__kont202553202554%_)) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)))) - (_%__kont199112199113%_)) - (_%__kont199112199113%_))))) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)))) + (_%__kont202553202554%_)) + (_%__kont202553202554%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199112199113%_)))) - (_%__kont199112199113%_))))))) - (_%optimize-t__198035198036%_ - (lambda (_%expr193664%_ _%test193665%_ _%continue193666%_) - (_%do-assert190671%_ - (cons (cons _%test193665%_ '#t) '()) - (lambda () (_%continue193666%_ _%expr193664%_))))) - (_%optimize-t__0__198037198038%_ - (lambda (_%expr193672%_ _%test193673%_) - (let ((_%continue193675%_ _%optimize-e190682%_)) - (_%optimize-t__198035198036%_ - _%expr193672%_ - _%test193673%_ - _%continue193675%_)))) - (_%optimize-t190683%_ - (lambda _g201191_ - (let ((_g201192_ + (_%__kont202553202554%_)))) + (_%__kont202553202554%_))))))) + (_%optimize-t__201476201477%_ + (lambda (_%expr197138%_ _%test197139%_ _%continue197140%_) + (_%do-assert194164%_ + (cons (cons _%test197139%_ '#t) '()) + (lambda () (_%continue197140%_ _%expr197138%_))))) + (_%optimize-t__0__201478201479%_ + (lambda (_%expr197146%_ _%test197147%_) + (let ((_%continue197149%_ _%optimize-e194175%_)) + (_%optimize-t__201476201477%_ + _%expr197146%_ + _%test197147%_ + _%continue197149%_)))) + (_%optimize-t194176%_ + (lambda _g204632_ + (let ((_g204633_ (let () (declare (not safe)) - (##length _g201191_)))) - (cond ((let () (declare (not safe)) (##fx= _g201192_ 2)) - (apply _%optimize-t__0__198037198038%_ - _g201191_)) - ((let () (declare (not safe)) (##fx= _g201192_ 3)) - (apply _%optimize-t__198035198036%_ _g201191_)) + (##length _g204632_)))) + (cond ((let () (declare (not safe)) (##fx= _g204633_ 2)) + (apply _%optimize-t__0__201478201479%_ + _g204632_)) + ((let () (declare (not safe)) (##fx= _g204633_ 3)) + (apply _%optimize-t__201476201477%_ _g204632_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g201191_)))))) - (_%optimize-f__198039198040%_ - (lambda (_%expr192748%_ _%test192749%_) - (_%do-assert190671%_ - (if _%test192749%_ - (cons (cons _%test192749%_ '#f) '()) + _g204632_)))))) + (_%optimize-f__201480201481%_ + (lambda (_%expr196236%_ _%test196237%_) + (_%do-assert194164%_ + (if _%test196237%_ + (cons (cons _%test196237%_ '#f) '()) '()) (lambda () - (let* ((_%__stx199340199341%_ _%expr192748%_) - (_%g192757192930%_ + (let* ((_%__stx202781202782%_ _%expr196236%_) + (_%g196245196418%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx199340199341%_))))) - (let ((_%__kont199342199343%_ - (lambda (_%L193518%_ _%L193519%_) - (let ((_%$e193539%_ - (_%lookup-block190690%_ - _%L193519%_))) - (if _%$e193539%_ - ((lambda (_%block193542%_) - (if (_%nonlinear-block?190692%_ - _%block193542%_) - _%expr192748%_ - (let* ((_%inline193551%_ - (_%inline-block190691%_ - _%block193542%_ - (let ((__tmp201193 - (lambda (_%g193543193546%_ + _%__stx202781202782%_))))) + (let ((_%__kont202783202784%_ + (lambda (_%g196247196992%_ _%g196248196993%_) + (let ((_%$e197013%_ + (_%lookup-block194183%_ + _%g196248196993%_))) + (if _%$e197013%_ + ((lambda (_%block197016%_) + (if (_%nonlinear-block?194185%_ + _%block197016%_) + _%expr196236%_ + (let* ((_%inline197025%_ + (_%inline-block194184%_ + _%block197016%_ + (let ((__tmp204634 + (lambda (_%g197017197020%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g193544193548%_) - (cons _%g193543193546%_ _%g193544193548%_)))) + _%g197018197022%_) + (cons _%g197017197020%_ _%g197018197022%_)))) (declare (not safe)) - (__foldr1 __tmp201193 '() _%L193518%_)))) - (_%__stx199302199303%_ _%inline193551%_) - (_%g193554193575%_ + (__foldr1 __tmp204634 '() _%g196247196992%_)))) + (_%__stx202743202744%_ _%inline197025%_) + (_%g197028197049%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx199302199303%_))))) + _%__stx202743202744%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__kont199304199305%_ - (lambda (_%L193619%_ + (let ((_%__kont202745202746%_ + (lambda (_%g197030197093%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L193620%_ - _%L193621%_) - (let ((_%$e193643%_ (_%assert-e190685%_ _%L193621%_))) - (if (eq? '#t _%$e193643%_) - (if _%in-splice?190670%_ - (_%optimize-f__0__198041198042%_ _%L193620%_) - (_%optimize-e190682%_ _%L193620%_)) - (if (eq? '#f _%$e193643%_) - (_%optimize-f__0__198041198042%_ _%L193619%_) - _%expr192748%_))))) - (_%__kont199306199307%_ + _%g197031197094%_ + _%g197032197095%_) + (let ((_%$e197117%_ (_%assert-e194178%_ _%g197032197095%_))) + (if (eq? '#t _%$e197117%_) + (if _%in-splice?194163%_ + (_%optimize-f__0__201482201483%_ + _%g197031197094%_) + (_%optimize-e194175%_ _%g197031197094%_)) + (if (eq? '#f _%$e197117%_) + (_%optimize-f__0__201482201483%_ + _%g197030197093%_) + _%expr196236%_))))) + (_%__kont202747202748%_ (lambda () - (_%optimize-f__0__198041198042%_ _%inline193551%_)))) + (_%optimize-f__0__201482201483%_ _%inline197025%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx199302199303%_)) - (let ((_%e193559193587%_ + _%__stx202743202744%_)) + (let ((_%e197033197061%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx199302199303%_)))) - (let ((_%tl193561193592%_ + (gx#stx-e _%__stx202743202744%_)))) + (let ((_%tl197035197066%_ (let () (declare (not safe)) - (##cdr _%e193559193587%_))) - (_%hd193560193590%_ + (##cdr _%e197033197061%_))) + (_%hd197034197064%_ (let () (declare (not safe)) - (##car _%e193559193587%_)))) + (##car _%e197033197061%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd193560193590%_)) + (gx#identifier? _%hd197034197064%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd193560193590%_)) + (gx#stx-eq? '%#if _%hd197034197064%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193561193592%_)) - (let ((_%e193562193595%_ + (gx#stx-pair? _%tl197035197066%_)) + (let ((_%e197036197069%_ (let () (declare (not safe)) - (gx#stx-e _%tl193561193592%_)))) - (let ((_%tl193564193600%_ + (gx#stx-e _%tl197035197066%_)))) + (let ((_%tl197038197074%_ (let () (declare (not safe)) - (##cdr _%e193562193595%_))) - (_%hd193563193598%_ + (##cdr _%e197036197069%_))) + (_%hd197037197072%_ (let () (declare (not safe)) - (##car _%e193562193595%_)))) + (##car _%e197036197069%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193564193600%_)) - (let ((_%e193565193603%_ + (gx#stx-pair? _%tl197038197074%_)) + (let ((_%e197039197077%_ (let () (declare (not safe)) (gx#stx-e - _%tl193564193600%_)))) - (let ((_%tl193567193608%_ + _%tl197038197074%_)))) + (let ((_%tl197041197082%_ (let () (declare (not safe)) - (##cdr _%e193565193603%_))) - (_%hd193566193606%_ + (##cdr _%e197039197077%_))) + (_%hd197040197080%_ (let () (declare (not safe)) - (##car _%e193565193603%_)))) + (##car _%e197039197077%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193567193608%_)) - (let ((_%e193568193611%_ + _%tl197041197082%_)) + (let ((_%e197042197085%_ (let () (declare (not safe)) (gx#stx-e - _%tl193567193608%_)))) - (let ((_%tl193570193616%_ + _%tl197041197082%_)))) + (let ((_%tl197044197090%_ (let () (declare (not safe)) - (##cdr _%e193568193611%_))) - (_%hd193569193614%_ + (##cdr _%e197042197085%_))) + (_%hd197043197088%_ (let () (declare (not safe)) - (##car _%e193568193611%_)))) + (##car _%e197042197085%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193570193616%_)) - (_%__kont199304199305%_ - _%hd193569193614%_ - _%hd193566193606%_ - _%hd193563193598%_) - (_%__kont199306199307%_)))) - (_%__kont199306199307%_)))) - (_%__kont199306199307%_)))) - (_%__kont199306199307%_)) - (_%__kont199306199307%_)) - (_%__kont199306199307%_)))) - (_%__kont199306199307%_)))))) + _%tl197044197090%_)) + (_%__kont202745202746%_ + _%hd197043197088%_ + _%hd197040197080%_ + _%hd197037197072%_) + (_%__kont202747202748%_)))) + (_%__kont202747202748%_)))) + (_%__kont202747202748%_)))) + (_%__kont202747202748%_)) + (_%__kont202747202748%_)) + (_%__kont202747202748%_)))) + (_%__kont202747202748%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e193539%_) - _%expr192748%_)))) - (_%__kont199346199347%_ - (lambda (_%L193416%_ _%L193417%_ _%L193418%_) - (let ((_%$e193435%_ - (_%assert-e190685%_ _%L193418%_))) - (if (eq? '#t _%$e193435%_) - (if _%in-splice?190670%_ - (_%optimize-f__0__198041198042%_ - _%L193417%_) - (_%optimize-e190682%_ - _%L193417%_)) - (if (eq? '#f _%$e193435%_) - (_%optimize-f__0__198041198042%_ - _%L193416%_) - (let ((_%K193438%_ - (_%optimize-t__198035198036%_ - _%L193417%_ - _%L193418%_ - _%optimize-f190684%_)) - (_%E193439%_ - (_%optimize-f__198039198040%_ - _%L193416%_ - _%L193418%_))) + _%$e197013%_) + _%expr196236%_)))) + (_%__kont202787202788%_ + (lambda (_%g196276196892%_ + _%g196277196893%_ + _%g196278196894%_) + (let ((_%$e196911%_ + (_%assert-e194178%_ + _%g196278196894%_))) + (if (eq? '#t _%$e196911%_) + (if _%in-splice?194163%_ + (_%optimize-f__0__201482201483%_ + _%g196277196893%_) + (_%optimize-e194175%_ + _%g196277196893%_)) + (if (eq? '#f _%$e196911%_) + (_%optimize-f__0__201482201483%_ + _%g196276196892%_) + (let ((_%K196914%_ + (_%optimize-t__201476201477%_ + _%g196277196893%_ + _%g196278196894%_ + _%optimize-f194177%_)) + (_%E196915%_ + (_%optimize-f__201480201481%_ + _%g196276196892%_ + _%g196278196894%_))) (if (equal? (gxc#apply-generate-runtime-repr - _%K193438%_) + _%K196914%_) (gxc#apply-generate-runtime-repr - _%E193439%_)) - _%K193438%_ + _%E196915%_)) + _%K196914%_ (cons '%#if - (cons _%L193418%_ - (cons _%K193438%_ + (cons _%g196278196894%_ + (cons _%K196914%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%E193439%_ '()))))))))))) + (cons _%E196915%_ '()))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199348199349%_ - (lambda (_%L193346%_ _%L193347%_ _%L193348%_) - (let ((_%body193367%_ - (_%optimize-f__0__198041198042%_ - _%L193346%_))) + (_%__kont202789202790%_ + (lambda (_%g196291196822%_ + _%g196292196823%_ + _%g196293196824%_) + (let ((_%body196843%_ + (_%optimize-f__0__201482201483%_ + _%g196291196822%_))) (cons '%#let-values (cons (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L193347%_ - _%L193348%_)) - (let ((__tmp201194 - (lambda (_%g193368193372%_ + _%g196292196823%_ + _%g196293196824%_)) + (let ((__tmp204635 + (lambda (_%g196844196848%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g193369193374%_ - _%g193370193376%_) - (cons (cons (cons _%g193369193374%_ '()) + _%g196845196850%_ + _%g196846196852%_) + (cons (cons (cons _%g196845196850%_ '()) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g193368193372%_ '())) + (cons _%g196844196848%_ '())) '())) - _%g193370193376%_)))) + _%g196846196852%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp201194 + __tmp204635 '() - _%L193347%_ - _%L193348%_))) - (cons _%body193367%_ '())))))) - (_%__kont199352199353%_ - (lambda (_%L193214%_ _%L193215%_ _%L193216%_) - (_%bind-e__198043198044%_ + _%g196292196823%_ + _%g196293196824%_))) + (cons _%body196843%_ '())))))) + (_%__kont202793202794%_ + (lambda (_%g196329196694%_ + _%g196330196695%_ + _%g196331196696%_) + (_%bind-e__201484201485%_ (map cons - (let ((__tmp201195 - (lambda (_%g193234193237%_ - _%g193235193239%_) - (cons _%g193234193237%_ - _%g193235193239%_)))) + (let ((__tmp204636 + (lambda (_%g196714196717%_ + _%g196715196719%_) + (cons _%g196714196717%_ + _%g196715196719%_)))) (declare (not safe)) (__foldr1 - __tmp201195 + __tmp204636 '() - _%L193216%_)) - (let ((__tmp201196 - (lambda (_%g193241193244%_ - _%g193242193246%_) - (cons _%g193241193244%_ - _%g193242193246%_)))) + _%g196331196696%_)) + (let ((__tmp204637 + (lambda (_%g196721196724%_ + _%g196722196726%_) + (cons _%g196721196724%_ + _%g196722196726%_)))) (declare (not safe)) (__foldr1 - __tmp201196 + __tmp204637 '() - _%L193215%_))) - _%L193214%_ - _%optimize-f190684%_))) - (_%__kont199356199357%_ - (lambda (_%L193070%_ - _%L193071%_ - _%L193072%_ - _%L193073%_ - _%L193074%_) - (_%do-splice!190681%_ + _%g196330196695%_))) + _%g196329196694%_ + _%optimize-f194177%_))) + (_%__kont202797202798%_ + (lambda (_%g196361196554%_ + _%g196362196555%_ + _%g196363196556%_ + _%g196364196557%_ + _%g196365196558%_) + (_%do-splice!194174%_ (lambda () - (let ((_%expr193117%_ - (_%optimize-f__0__198041198042%_ - _%L193072%_))) + (let ((_%expr196601%_ + (_%optimize-f__0__201482201483%_ + _%g196363196556%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L193074%_ + (cons (cons (cons (cons _%g196365196558%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#lambda - (cons (let ((__tmp201197 - (lambda (_%g193118193121%_ - _%g193119193123%_) - (cons _%g193118193121%_ - _%g193119193123%_)))) + (cons (let ((__tmp204638 + (lambda (_%g196602196605%_ + _%g196603196607%_) + (cons _%g196602196605%_ + _%g196603196607%_)))) (declare (not safe)) (__foldr1 - __tmp201197 + __tmp204638 '() - _%L193073%_)) - (cons _%expr193117%_ '()))) + _%g196364196557%_)) + (cons _%expr196601%_ '()))) '())) - (let ((__tmp201198 - (lambda (_%g193125193128%_ _%g193126193130%_) - (cons _%g193125193128%_ _%g193126193130%_)))) + (let ((__tmp204639 + (lambda (_%g196609196612%_ _%g196610196614%_) + (cons _%g196609196612%_ _%g196610196614%_)))) (declare (not safe)) - (__foldr1 __tmp201198 '() _%L193071%_))) + (__foldr1 __tmp204639 '() _%g196362196555%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L193070%_ + (cons _%g196361196554%_ '())))))))) - (_%__kont199362199363%_ - (lambda () _%expr192748%_))) - (let* ((_%__match199549199550%_ - (lambda (_%e192878192942%_ - _%hd192879192945%_ - _%tl192880192947%_ - _%e192881192950%_ - _%hd192882192953%_ - _%tl192883192955%_ - _%e192884192958%_ - _%hd192885192961%_ - _%tl192886192963%_ - _%e192887192966%_ - _%hd192888192969%_ - _%tl192889192971%_ - _%e192890192974%_ - _%hd192891192977%_ - _%tl192892192979%_ - _%e192893192982%_ - _%hd192894192985%_ - _%tl192895192987%_ - _%e192896192990%_ - _%hd192897192993%_ - _%tl192898192995%_ - _%e192899192998%_ - _%hd192900193001%_ - _%tl192901193003%_ - _%__splice199358199359%_ - _%target192902193006%_ - _%tl192904193008%_) - (letrec ((_%loop192905193011%_ - (lambda (_%hd192903193014%_ - _%id192909193016%_) + (_%__kont202803202804%_ + (lambda () _%expr196236%_))) + (let* ((_%__match202990202991%_ + (lambda (_%e196366196430%_ + _%hd196367196433%_ + _%tl196368196435%_ + _%e196369196438%_ + _%hd196370196441%_ + _%tl196371196443%_ + _%e196372196446%_ + _%hd196373196449%_ + _%tl196374196451%_ + _%e196375196454%_ + _%hd196376196457%_ + _%tl196377196459%_ + _%e196378196462%_ + _%hd196379196465%_ + _%tl196380196467%_ + _%e196381196470%_ + _%hd196382196473%_ + _%tl196383196475%_ + _%e196384196478%_ + _%hd196385196481%_ + _%tl196386196483%_ + _%e196387196486%_ + _%hd196388196489%_ + _%tl196389196491%_ + _%__splice202799202800%_ + _%target196390196494%_ + _%tl196392196496%_) + (letrec ((_%loop196393196499%_ + (lambda (_%hd196391196502%_ + _%id196397196504%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd192903193014%_)) - (let ((_%e192906193019%_ + _%hd196391196502%_)) + (let ((_%e196394196506%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd192903193014%_)))) - (let ((_%lp-tl192908193024%_ - (let () (declare (not safe)) (##cdr _%e192906193019%_))) - (_%lp-hd192907193022%_ + (gx#stx-e _%hd196391196502%_)))) + (let ((_%lp-tl196396196511%_ + (let () (declare (not safe)) (##cdr _%e196394196506%_))) + (_%lp-hd196395196509%_ (let () (declare (not safe)) - (##car _%e192906193019%_)))) - (_%loop192905193011%_ - _%lp-tl192908193024%_ - (cons _%lp-hd192907193022%_ _%id192909193016%_)))) - (let ((_%id192910193027%_ (reverse _%id192909193016%_))) + (##car _%e196394196506%_)))) + (_%loop196393196499%_ + _%lp-tl196396196511%_ + (cons _%lp-hd196395196509%_ _%id196397196504%_)))) + (let ((_%id196398196514%_ (reverse _%id196397196504%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192901193003%_)) - (let ((_%e192911193030%_ + (gx#stx-pair? _%tl196389196491%_)) + (let ((_%e196399196516%_ (let () (declare (not safe)) - (gx#stx-e _%tl192901193003%_)))) - (let ((_%tl192913193035%_ + (gx#stx-e _%tl196389196491%_)))) + (let ((_%tl196401196521%_ (let () (declare (not safe)) - (##cdr _%e192911193030%_))) - (_%hd192912193033%_ + (##cdr _%e196399196516%_))) + (_%hd196400196519%_ (let () (declare (not safe)) - (##car _%e192911193030%_)))) + (##car _%e196399196516%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192913193035%_)) + (gx#stx-null? _%tl196401196521%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192895192987%_)) + (gx#stx-null? _%tl196383196475%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl192886192963%_)) - (let ((_%__splice199360199361%_ + (gx#stx-pair/null? _%tl196374196451%_)) + (let ((_%__splice202801202802%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl192886192963%_ + _%tl196374196451%_ '0)))) - (let ((_%tl192916193040%_ + (let ((_%tl196404196526%_ (let () (declare (not safe)) (##vector-ref - _%__splice199360199361%_ + _%__splice202801202802%_ '1))) - (_%target192914193038%_ + (_%target196402196524%_ (let () (declare (not safe)) (##vector-ref - _%__splice199360199361%_ + _%__splice202801202802%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192916193040%_)) - (letrec ((_%loop192917193043%_ - (lambda (_%hd192915193046%_ - _%bind192921193048%_) + _%tl196404196526%_)) + (letrec ((_%loop196405196529%_ + (lambda (_%hd196403196532%_ + _%bind196409196534%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd192915193046%_)) - (let ((_%e192918193051%_ + _%hd196403196532%_)) + (let ((_%e196406196536%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd192915193046%_)))) - (let ((_%lp-tl192920193056%_ + (gx#stx-e _%hd196403196532%_)))) + (let ((_%lp-tl196408196541%_ (let () (declare (not safe)) - (##cdr _%e192918193051%_))) - (_%lp-hd192919193054%_ + (##cdr _%e196406196536%_))) + (_%lp-hd196407196539%_ (let () (declare (not safe)) - (##car _%e192918193051%_)))) - (_%loop192917193043%_ - _%lp-tl192920193056%_ - (cons _%lp-hd192919193054%_ _%bind192921193048%_)))) - (let ((_%bind192922193059%_ - (reverse _%bind192921193048%_))) + (##car _%e196406196536%_)))) + (_%loop196405196529%_ + _%lp-tl196408196541%_ + (cons _%lp-hd196407196539%_ _%bind196409196534%_)))) + (let ((_%bind196410196544%_ + (reverse _%bind196409196534%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192883192955%_)) - (let ((_%e192923193062%_ + (gx#stx-pair? _%tl196371196443%_)) + (let ((_%e196411196546%_ (let () (declare (not safe)) - (gx#stx-e _%tl192883192955%_)))) - (let ((_%tl192925193067%_ + (gx#stx-e _%tl196371196443%_)))) + (let ((_%tl196413196551%_ (let () (declare (not safe)) - (##cdr _%e192923193062%_))) - (_%hd192924193065%_ + (##cdr _%e196411196546%_))) + (_%hd196412196549%_ (let () (declare (not safe)) - (##car _%e192923193062%_)))) + (##car _%e196411196546%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192925193067%_)) - (_%__kont199356199357%_ - _%hd192924193065%_ - _%bind192922193059%_ - _%hd192912193033%_ - _%id192910193027%_ - _%hd192891192977%_) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_))))))) + (gx#stx-null? _%tl196413196551%_)) + (_%__kont202797202798%_ + _%hd196412196549%_ + _%bind196410196544%_ + _%hd196400196519%_ + _%id196398196514%_ + _%hd196379196465%_) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop192917193043%_ - _%target192914193038%_ + (_%loop196405196529%_ + _%target196402196524%_ '())) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)) - (_%__kont199362199363%_)) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_))))))) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)) + (_%__kont202803202804%_)) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop192905193011%_ - _%target192902193006%_ + (_%loop196393196499%_ + _%target196390196494%_ '())))) - (_%__match199483199484%_ - (lambda (_%e192844193138%_ - _%hd192845193141%_ - _%tl192846193143%_ - _%e192847193146%_ - _%hd192848193149%_ - _%tl192849193151%_ - _%__splice199354199355%_ - _%target192850193154%_ - _%tl192852193156%_) - (letrec ((_%loop192853193159%_ - (lambda (_%hd192851193162%_ - _%expr192857193164%_ - _%id192858193166%_) + (_%__match202924202925%_ + (lambda (_%e196332196622%_ + _%hd196333196625%_ + _%tl196334196627%_ + _%e196335196630%_ + _%hd196336196633%_ + _%tl196337196635%_ + _%__splice202795202796%_ + _%target196338196638%_ + _%tl196340196640%_) + (letrec ((_%loop196341196643%_ + (lambda (_%hd196339196646%_ + _%expr196345196648%_ + _%id196346196649%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd192851193162%_)) - (let ((_%e192854193169%_ + _%hd196339196646%_)) + (let ((_%e196342196651%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd192851193162%_)))) - (let ((_%lp-tl192856193174%_ - (let () (declare (not safe)) (##cdr _%e192854193169%_))) - (_%lp-hd192855193172%_ + (gx#stx-e _%hd196339196646%_)))) + (let ((_%lp-tl196344196656%_ + (let () (declare (not safe)) (##cdr _%e196342196651%_))) + (_%lp-hd196343196654%_ (let () (declare (not safe)) - (##car _%e192854193169%_)))) + (##car _%e196342196651%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd192855193172%_)) - (let ((_%e192861193177%_ + (gx#stx-pair? _%lp-hd196343196654%_)) + (let ((_%e196349196659%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd192855193172%_)))) - (let ((_%tl192863193182%_ + (gx#stx-e _%lp-hd196343196654%_)))) + (let ((_%tl196351196664%_ (let () (declare (not safe)) - (##cdr _%e192861193177%_))) - (_%hd192862193180%_ + (##cdr _%e196349196659%_))) + (_%hd196350196662%_ (let () (declare (not safe)) - (##car _%e192861193177%_)))) + (##car _%e196349196659%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd192862193180%_)) - (let ((_%e192864193185%_ + (gx#stx-pair? _%hd196350196662%_)) + (let ((_%e196352196667%_ (let () (declare (not safe)) - (gx#stx-e _%hd192862193180%_)))) - (let ((_%tl192866193190%_ + (gx#stx-e _%hd196350196662%_)))) + (let ((_%tl196354196672%_ (let () (declare (not safe)) - (##cdr _%e192864193185%_))) - (_%hd192865193188%_ + (##cdr _%e196352196667%_))) + (_%hd196353196670%_ (let () (declare (not safe)) - (##car _%e192864193185%_)))) + (##car _%e196352196667%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192866193190%_)) + (gx#stx-null? _%tl196354196672%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192863193182%_)) - (let ((_%e192867193193%_ + (gx#stx-pair? _%tl196351196664%_)) + (let ((_%e196355196675%_ (let () (declare (not safe)) (gx#stx-e - _%tl192863193182%_)))) - (let ((_%tl192869193198%_ + _%tl196351196664%_)))) + (let ((_%tl196357196680%_ (let () (declare (not safe)) - (##cdr _%e192867193193%_))) - (_%hd192868193196%_ + (##cdr _%e196355196675%_))) + (_%hd196356196678%_ (let () (declare (not safe)) - (##car _%e192867193193%_)))) + (##car _%e196355196675%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192869193198%_)) - (_%loop192853193159%_ - _%lp-tl192856193174%_ - (cons _%hd192868193196%_ - _%expr192857193164%_) - (cons _%hd192865193188%_ - _%id192858193166%_)) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)))) - (let ((_%id192860193203%_ (reverse _%id192858193166%_)) - (_%expr192859193201%_ (reverse _%expr192857193164%_))) + _%tl196357196680%_)) + (_%loop196341196643%_ + _%lp-tl196344196656%_ + (cons _%hd196356196678%_ + _%expr196345196648%_) + (cons _%hd196353196670%_ + _%id196346196649%_)) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)))) + (let ((_%id196348196684%_ (reverse _%id196346196649%_)) + (_%expr196347196683%_ (reverse _%expr196345196648%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192849193151%_)) - (let ((_%e192870193206%_ + (gx#stx-pair? _%tl196337196635%_)) + (let ((_%e196358196686%_ (let () (declare (not safe)) - (gx#stx-e _%tl192849193151%_)))) - (let ((_%tl192872193211%_ + (gx#stx-e _%tl196337196635%_)))) + (let ((_%tl196360196691%_ (let () (declare (not safe)) - (##cdr _%e192870193206%_))) - (_%hd192871193209%_ + (##cdr _%e196358196686%_))) + (_%hd196359196689%_ (let () (declare (not safe)) - (##car _%e192870193206%_)))) + (##car _%e196358196686%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192872193211%_)) - (_%__kont199352199353%_ - _%hd192871193209%_ - _%expr192859193201%_ - _%id192860193203%_) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_))))))) + (gx#stx-null? _%tl196360196691%_)) + (_%__kont202793202794%_ + _%hd196359196689%_ + _%expr196347196683%_ + _%id196348196684%_) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop192853193159%_ - _%target192850193154%_ + (_%loop196341196643%_ + _%target196338196638%_ '() '())))) - (_%__match199459199460%_ - (lambda (_%e192806193254%_ - _%hd192807193257%_ - _%tl192808193259%_ - _%e192809193262%_ - _%hd192810193265%_ - _%tl192811193267%_ - _%__splice199350199351%_ - _%target192812193270%_ - _%tl192814193272%_) - (letrec ((_%loop192815193275%_ - (lambda (_%hd192813193278%_ - _%xid192819193280%_ - _%id192820193282%_) + (_%__match202900202901%_ + (lambda (_%e196294196734%_ + _%hd196295196737%_ + _%tl196296196739%_ + _%e196297196742%_ + _%hd196298196745%_ + _%tl196299196747%_ + _%__splice202791202792%_ + _%target196300196750%_ + _%tl196302196752%_) + (letrec ((_%loop196303196755%_ + (lambda (_%hd196301196758%_ + _%xid196307196760%_ + _%id196308196761%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd192813193278%_)) - (let ((_%e192816193285%_ + _%hd196301196758%_)) + (let ((_%e196304196763%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd192813193278%_)))) - (let ((_%lp-tl192818193290%_ - (let () (declare (not safe)) (##cdr _%e192816193285%_))) - (_%lp-hd192817193288%_ + (gx#stx-e _%hd196301196758%_)))) + (let ((_%lp-tl196306196768%_ + (let () (declare (not safe)) (##cdr _%e196304196763%_))) + (_%lp-hd196305196766%_ (let () (declare (not safe)) - (##car _%e192816193285%_)))) + (##car _%e196304196763%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd192817193288%_)) - (let ((_%e192823193293%_ + (gx#stx-pair? _%lp-hd196305196766%_)) + (let ((_%e196311196771%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd192817193288%_)))) - (let ((_%tl192825193298%_ + (gx#stx-e _%lp-hd196305196766%_)))) + (let ((_%tl196313196776%_ (let () (declare (not safe)) - (##cdr _%e192823193293%_))) - (_%hd192824193296%_ + (##cdr _%e196311196771%_))) + (_%hd196312196774%_ (let () (declare (not safe)) - (##car _%e192823193293%_)))) + (##car _%e196311196771%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd192824193296%_)) - (let ((_%e192826193301%_ + (gx#stx-pair? _%hd196312196774%_)) + (let ((_%e196314196779%_ (let () (declare (not safe)) - (gx#stx-e _%hd192824193296%_)))) - (let ((_%tl192828193306%_ + (gx#stx-e _%hd196312196774%_)))) + (let ((_%tl196316196784%_ (let () (declare (not safe)) - (##cdr _%e192826193301%_))) - (_%hd192827193304%_ + (##cdr _%e196314196779%_))) + (_%hd196315196782%_ (let () (declare (not safe)) - (##car _%e192826193301%_)))) + (##car _%e196314196779%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192828193306%_)) + (gx#stx-null? _%tl196316196784%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192825193298%_)) - (let ((_%e192829193309%_ + (gx#stx-pair? _%tl196313196776%_)) + (let ((_%e196317196787%_ (let () (declare (not safe)) (gx#stx-e - _%tl192825193298%_)))) - (let ((_%tl192831193314%_ + _%tl196313196776%_)))) + (let ((_%tl196319196792%_ (let () (declare (not safe)) - (##cdr _%e192829193309%_))) - (_%hd192830193312%_ + (##cdr _%e196317196787%_))) + (_%hd196318196790%_ (let () (declare (not safe)) - (##car _%e192829193309%_)))) + (##car _%e196317196787%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd192830193312%_)) - (let ((_%e192832193317%_ + _%hd196318196790%_)) + (let ((_%e196320196795%_ (let () (declare (not safe)) (gx#stx-e - _%hd192830193312%_)))) - (let ((_%tl192834193322%_ + _%hd196318196790%_)))) + (let ((_%tl196322196800%_ (let () (declare (not safe)) - (##cdr _%e192832193317%_))) - (_%hd192833193320%_ + (##cdr _%e196320196795%_))) + (_%hd196321196798%_ (let () (declare (not safe)) - (##car _%e192832193317%_)))) + (##car _%e196320196795%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd192833193320%_)) + _%hd196321196798%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd192833193320%_)) + (gx#stx-eq? '%#ref _%hd196321196798%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192834193322%_)) - (let ((_%e192835193325%_ + (gx#stx-pair? _%tl196322196800%_)) + (let ((_%e196323196803%_ (let () (declare (not safe)) - (gx#stx-e _%tl192834193322%_)))) - (let ((_%tl192837193330%_ + (gx#stx-e _%tl196322196800%_)))) + (let ((_%tl196325196808%_ (let () (declare (not safe)) - (##cdr _%e192835193325%_))) - (_%hd192836193328%_ + (##cdr _%e196323196803%_))) + (_%hd196324196806%_ (let () (declare (not safe)) - (##car _%e192835193325%_)))) + (##car _%e196323196803%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192837193330%_)) + (gx#stx-null? _%tl196325196808%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192831193314%_)) - (_%loop192815193275%_ - _%lp-tl192818193290%_ - (cons _%hd192836193328%_ - _%xid192819193280%_) - (cons _%hd192827193304%_ - _%id192820193282%_)) - (_%__match199483199484%_ - _%e192806193254%_ - _%hd192807193257%_ - _%tl192808193259%_ - _%e192809193262%_ - _%hd192810193265%_ - _%tl192811193267%_ - _%__splice199350199351%_ - _%target192812193270%_ - _%tl192814193272%_)) - (_%__match199483199484%_ - _%e192806193254%_ - _%hd192807193257%_ - _%tl192808193259%_ - _%e192809193262%_ - _%hd192810193265%_ - _%tl192811193267%_ - _%__splice199350199351%_ - _%target192812193270%_ - _%tl192814193272%_)))) - (_%__match199483199484%_ - _%e192806193254%_ - _%hd192807193257%_ - _%tl192808193259%_ - _%e192809193262%_ - _%hd192810193265%_ - _%tl192811193267%_ - _%__splice199350199351%_ - _%target192812193270%_ - _%tl192814193272%_)) - (_%__match199483199484%_ - _%e192806193254%_ - _%hd192807193257%_ - _%tl192808193259%_ - _%e192809193262%_ - _%hd192810193265%_ - _%tl192811193267%_ - _%__splice199350199351%_ - _%target192812193270%_ - _%tl192814193272%_)) - (_%__match199483199484%_ - _%e192806193254%_ - _%hd192807193257%_ - _%tl192808193259%_ - _%e192809193262%_ - _%hd192810193265%_ - _%tl192811193267%_ - _%__splice199350199351%_ - _%target192812193270%_ - _%tl192814193272%_)))) + (gx#stx-null? _%tl196319196792%_)) + (_%loop196303196755%_ + _%lp-tl196306196768%_ + (cons _%hd196324196806%_ + _%xid196307196760%_) + (cons _%hd196315196782%_ + _%id196308196761%_)) + (_%__match202924202925%_ + _%e196294196734%_ + _%hd196295196737%_ + _%tl196296196739%_ + _%e196297196742%_ + _%hd196298196745%_ + _%tl196299196747%_ + _%__splice202791202792%_ + _%target196300196750%_ + _%tl196302196752%_)) + (_%__match202924202925%_ + _%e196294196734%_ + _%hd196295196737%_ + _%tl196296196739%_ + _%e196297196742%_ + _%hd196298196745%_ + _%tl196299196747%_ + _%__splice202791202792%_ + _%target196300196750%_ + _%tl196302196752%_)))) + (_%__match202924202925%_ + _%e196294196734%_ + _%hd196295196737%_ + _%tl196296196739%_ + _%e196297196742%_ + _%hd196298196745%_ + _%tl196299196747%_ + _%__splice202791202792%_ + _%target196300196750%_ + _%tl196302196752%_)) + (_%__match202924202925%_ + _%e196294196734%_ + _%hd196295196737%_ + _%tl196296196739%_ + _%e196297196742%_ + _%hd196298196745%_ + _%tl196299196747%_ + _%__splice202791202792%_ + _%target196300196750%_ + _%tl196302196752%_)) + (_%__match202924202925%_ + _%e196294196734%_ + _%hd196295196737%_ + _%tl196296196739%_ + _%e196297196742%_ + _%hd196298196745%_ + _%tl196299196747%_ + _%__splice202791202792%_ + _%target196300196750%_ + _%tl196302196752%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match199483199484%_ - _%e192806193254%_ - _%hd192807193257%_ - _%tl192808193259%_ - _%e192809193262%_ - _%hd192810193265%_ - _%tl192811193267%_ - _%__splice199350199351%_ - _%target192812193270%_ - _%tl192814193272%_)))) - (_%__match199483199484%_ - _%e192806193254%_ - _%hd192807193257%_ - _%tl192808193259%_ - _%e192809193262%_ - _%hd192810193265%_ - _%tl192811193267%_ - _%__splice199350199351%_ - _%target192812193270%_ - _%tl192814193272%_)) - (_%__match199483199484%_ - _%e192806193254%_ - _%hd192807193257%_ - _%tl192808193259%_ - _%e192809193262%_ - _%hd192810193265%_ - _%tl192811193267%_ - _%__splice199350199351%_ - _%target192812193270%_ - _%tl192814193272%_)))) - (_%__match199483199484%_ - _%e192806193254%_ - _%hd192807193257%_ - _%tl192808193259%_ - _%e192809193262%_ - _%hd192810193265%_ - _%tl192811193267%_ - _%__splice199350199351%_ - _%target192812193270%_ - _%tl192814193272%_)))) - (_%__match199483199484%_ - _%e192806193254%_ - _%hd192807193257%_ - _%tl192808193259%_ - _%e192809193262%_ - _%hd192810193265%_ - _%tl192811193267%_ - _%__splice199350199351%_ - _%target192812193270%_ - _%tl192814193272%_)))) - (let ((_%id192822193335%_ (reverse _%id192820193282%_)) - (_%xid192821193333%_ (reverse _%xid192819193280%_))) + (_%__match202924202925%_ + _%e196294196734%_ + _%hd196295196737%_ + _%tl196296196739%_ + _%e196297196742%_ + _%hd196298196745%_ + _%tl196299196747%_ + _%__splice202791202792%_ + _%target196300196750%_ + _%tl196302196752%_)))) + (_%__match202924202925%_ + _%e196294196734%_ + _%hd196295196737%_ + _%tl196296196739%_ + _%e196297196742%_ + _%hd196298196745%_ + _%tl196299196747%_ + _%__splice202791202792%_ + _%target196300196750%_ + _%tl196302196752%_)) + (_%__match202924202925%_ + _%e196294196734%_ + _%hd196295196737%_ + _%tl196296196739%_ + _%e196297196742%_ + _%hd196298196745%_ + _%tl196299196747%_ + _%__splice202791202792%_ + _%target196300196750%_ + _%tl196302196752%_)))) + (_%__match202924202925%_ + _%e196294196734%_ + _%hd196295196737%_ + _%tl196296196739%_ + _%e196297196742%_ + _%hd196298196745%_ + _%tl196299196747%_ + _%__splice202791202792%_ + _%target196300196750%_ + _%tl196302196752%_)))) + (_%__match202924202925%_ + _%e196294196734%_ + _%hd196295196737%_ + _%tl196296196739%_ + _%e196297196742%_ + _%hd196298196745%_ + _%tl196299196747%_ + _%__splice202791202792%_ + _%target196300196750%_ + _%tl196302196752%_)))) + (let ((_%id196310196812%_ (reverse _%id196308196761%_)) + (_%xid196309196811%_ (reverse _%xid196307196760%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192811193267%_)) - (let ((_%e192838193338%_ + (gx#stx-pair? _%tl196299196747%_)) + (let ((_%e196326196814%_ (let () (declare (not safe)) - (gx#stx-e _%tl192811193267%_)))) - (let ((_%tl192840193343%_ + (gx#stx-e _%tl196299196747%_)))) + (let ((_%tl196328196819%_ (let () (declare (not safe)) - (##cdr _%e192838193338%_))) - (_%hd192839193341%_ + (##cdr _%e196326196814%_))) + (_%hd196327196817%_ (let () (declare (not safe)) - (##car _%e192838193338%_)))) + (##car _%e196326196814%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192840193343%_)) - (_%__kont199348199349%_ - _%hd192839193341%_ - _%xid192821193333%_ - _%id192822193335%_) - (_%__match199483199484%_ - _%e192806193254%_ - _%hd192807193257%_ - _%tl192808193259%_ - _%e192809193262%_ - _%hd192810193265%_ - _%tl192811193267%_ - _%__splice199350199351%_ - _%target192812193270%_ - _%tl192814193272%_)))) - (_%__match199483199484%_ - _%e192806193254%_ - _%hd192807193257%_ - _%tl192808193259%_ - _%e192809193262%_ - _%hd192810193265%_ - _%tl192811193267%_ - _%__splice199350199351%_ - _%target192812193270%_ - _%tl192814193272%_))))))) + (gx#stx-null? _%tl196328196819%_)) + (_%__kont202789202790%_ + _%hd196327196817%_ + _%xid196309196811%_ + _%id196310196812%_) + (_%__match202924202925%_ + _%e196294196734%_ + _%hd196295196737%_ + _%tl196296196739%_ + _%e196297196742%_ + _%hd196298196745%_ + _%tl196299196747%_ + _%__splice202791202792%_ + _%target196300196750%_ + _%tl196302196752%_)))) + (_%__match202924202925%_ + _%e196294196734%_ + _%hd196295196737%_ + _%tl196296196739%_ + _%e196297196742%_ + _%hd196298196745%_ + _%tl196299196747%_ + _%__splice202791202792%_ + _%target196300196750%_ + _%tl196302196752%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop192815193275%_ - _%target192812193270%_ + (_%loop196303196755%_ + _%target196300196750%_ '() '())))) - (_%__match199405199406%_ - (lambda (_%e192761193446%_ - _%hd192762193449%_ - _%tl192763193451%_ - _%e192764193454%_ - _%hd192765193457%_ - _%tl192766193459%_ - _%e192767193462%_ - _%hd192768193465%_ - _%tl192769193467%_ - _%e192770193470%_ - _%hd192771193473%_ - _%tl192772193475%_ - _%__splice199344199345%_ - _%target192773193478%_ - _%tl192775193480%_) - (letrec ((_%loop192776193483%_ - (lambda (_%hd192774193486%_ - _%id192780193488%_) + (_%__match202846202847%_ + (lambda (_%e196249196922%_ + _%hd196250196925%_ + _%tl196251196927%_ + _%e196252196930%_ + _%hd196253196933%_ + _%tl196254196935%_ + _%e196255196938%_ + _%hd196256196941%_ + _%tl196257196943%_ + _%e196258196946%_ + _%hd196259196949%_ + _%tl196260196951%_ + _%__splice202785202786%_ + _%target196261196954%_ + _%tl196263196956%_) + (letrec ((_%loop196264196959%_ + (lambda (_%hd196262196962%_ + _%id196268196964%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd192774193486%_)) - (let ((_%e192777193491%_ + _%hd196262196962%_)) + (let ((_%e196265196966%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd192774193486%_)))) - (let ((_%lp-tl192779193496%_ - (let () (declare (not safe)) (##cdr _%e192777193491%_))) - (_%lp-hd192778193494%_ + (gx#stx-e _%hd196262196962%_)))) + (let ((_%lp-tl196267196971%_ + (let () (declare (not safe)) (##cdr _%e196265196966%_))) + (_%lp-hd196266196969%_ (let () (declare (not safe)) - (##car _%e192777193491%_)))) + (##car _%e196265196966%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd192778193494%_)) - (let ((_%e192782193499%_ + (gx#stx-pair? _%lp-hd196266196969%_)) + (let ((_%e196270196974%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd192778193494%_)))) - (let ((_%tl192784193504%_ + (gx#stx-e _%lp-hd196266196969%_)))) + (let ((_%tl196272196979%_ (let () (declare (not safe)) - (##cdr _%e192782193499%_))) - (_%hd192783193502%_ + (##cdr _%e196270196974%_))) + (_%hd196271196977%_ (let () (declare (not safe)) - (##car _%e192782193499%_)))) + (##car _%e196270196974%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd192783193502%_)) + (gx#identifier? _%hd196271196977%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd192783193502%_)) + (gx#stx-eq? '%#ref _%hd196271196977%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192784193504%_)) - (let ((_%e192785193507%_ + (gx#stx-pair? _%tl196272196979%_)) + (let ((_%e196273196982%_ (let () (declare (not safe)) - (gx#stx-e _%tl192784193504%_)))) - (let ((_%tl192787193512%_ + (gx#stx-e _%tl196272196979%_)))) + (let ((_%tl196275196987%_ (let () (declare (not safe)) - (##cdr _%e192785193507%_))) - (_%hd192786193510%_ + (##cdr _%e196273196982%_))) + (_%hd196274196985%_ (let () (declare (not safe)) - (##car _%e192785193507%_)))) + (##car _%e196273196982%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192787193512%_)) - (_%loop192776193483%_ - _%lp-tl192779193496%_ - (cons _%hd192786193510%_ - _%id192780193488%_)) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)) - (_%__kont199362199363%_)) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)))) - (let ((_%id192781193515%_ (reverse _%id192780193488%_))) - (_%__kont199342199343%_ - _%id192781193515%_ - _%hd192771193473%_)))))) + _%tl196275196987%_)) + (_%loop196264196959%_ + _%lp-tl196267196971%_ + (cons _%hd196274196985%_ + _%id196268196964%_)) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)) + (_%__kont202803202804%_)) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)))) + (let ((_%id196269196990%_ (reverse _%id196268196964%_))) + (_%__kont202783202784%_ + _%id196269196990%_ + _%hd196259196949%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop192776193483%_ - _%target192773193478%_ + (_%loop196264196959%_ + _%target196261196954%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx199340199341%_)) - (let ((_%e192761193446%_ + (gx#stx-pair? _%__stx202781202782%_)) + (let ((_%e196249196922%_ (let () (declare (not safe)) - (gx#stx-e _%__stx199340199341%_)))) - (let ((_%tl192763193451%_ + (gx#stx-e _%__stx202781202782%_)))) + (let ((_%tl196251196927%_ (let () (declare (not safe)) - (##cdr _%e192761193446%_))) - (_%hd192762193449%_ + (##cdr _%e196249196922%_))) + (_%hd196250196925%_ (let () (declare (not safe)) - (##car _%e192761193446%_)))) + (##car _%e196249196922%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd192762193449%_)) + _%hd196250196925%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd192762193449%_)) + _%hd196250196925%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192763193451%_)) - (let ((_%e192764193454%_ + _%tl196251196927%_)) + (let ((_%e196252196930%_ (let () (declare (not safe)) (gx#stx-e - _%tl192763193451%_)))) - (let ((_%tl192766193459%_ + _%tl196251196927%_)))) + (let ((_%tl196254196935%_ (let () (declare (not safe)) - (##cdr _%e192764193454%_))) - (_%hd192765193457%_ + (##cdr _%e196252196930%_))) + (_%hd196253196933%_ (let () (declare (not safe)) - (##car _%e192764193454%_)))) + (##car _%e196252196930%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd192765193457%_)) - (let ((_%e192767193462%_ + _%hd196253196933%_)) + (let ((_%e196255196938%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd192765193457%_)))) - (let ((_%tl192769193467%_ + (gx#stx-e _%hd196253196933%_)))) + (let ((_%tl196257196943%_ (let () (declare (not safe)) - (##cdr _%e192767193462%_))) - (_%hd192768193465%_ + (##cdr _%e196255196938%_))) + (_%hd196256196941%_ (let () (declare (not safe)) - (##car _%e192767193462%_)))) + (##car _%e196255196938%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd192768193465%_)) + (gx#identifier? _%hd196256196941%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd192768193465%_)) + (gx#stx-eq? '%#ref _%hd196256196941%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192769193467%_)) - (let ((_%e192770193470%_ + (gx#stx-pair? _%tl196257196943%_)) + (let ((_%e196258196946%_ (let () (declare (not safe)) - (gx#stx-e _%tl192769193467%_)))) - (let ((_%tl192772193475%_ + (gx#stx-e _%tl196257196943%_)))) + (let ((_%tl196260196951%_ (let () (declare (not safe)) - (##cdr _%e192770193470%_))) - (_%hd192771193473%_ + (##cdr _%e196258196946%_))) + (_%hd196259196949%_ (let () (declare (not safe)) - (##car _%e192770193470%_)))) + (##car _%e196258196946%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192772193475%_)) + (gx#stx-null? _%tl196260196951%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl192766193459%_)) - (let ((_%__splice199344199345%_ + _%tl196254196935%_)) + (let ((_%__splice202785202786%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl192766193459%_ + _%tl196254196935%_ '0)))) - (let ((_%tl192775193480%_ + (let ((_%tl196263196956%_ (let () (declare (not safe)) (##vector-ref - _%__splice199344199345%_ + _%__splice202785202786%_ '1))) - (_%target192773193478%_ + (_%target196261196954%_ (let () (declare (not safe)) (##vector-ref - _%__splice199344199345%_ + _%__splice202785202786%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192775193480%_)) - (_%__match199405199406%_ - _%e192761193446%_ - _%hd192762193449%_ - _%tl192763193451%_ - _%e192764193454%_ - _%hd192765193457%_ - _%tl192766193459%_ - _%e192767193462%_ - _%hd192768193465%_ - _%tl192769193467%_ - _%e192770193470%_ - _%hd192771193473%_ - _%tl192772193475%_ - _%__splice199344199345%_ - _%target192773193478%_ - _%tl192775193480%_) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)) - (_%__kont199362199363%_)) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)))) + _%tl196263196956%_)) + (_%__match202846202847%_ + _%e196249196922%_ + _%hd196250196925%_ + _%tl196251196927%_ + _%e196252196930%_ + _%hd196253196933%_ + _%tl196254196935%_ + _%e196255196938%_ + _%hd196256196941%_ + _%tl196257196943%_ + _%e196258196946%_ + _%hd196259196949%_ + _%tl196260196951%_ + _%__splice202785202786%_ + _%target196261196954%_ + _%tl196263196956%_) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)) + (_%__kont202803202804%_)) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199362199363%_)) + (_%__kont202803202804%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd192762193449%_)) + _%hd196250196925%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192763193451%_)) - (let ((_%e192794193392%_ + _%tl196251196927%_)) + (let ((_%e196282196868%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192763193451%_)))) - (let ((_%tl192796193397%_ - (let () (declare (not safe)) (##cdr _%e192794193392%_))) - (_%hd192795193395%_ + (gx#stx-e _%tl196251196927%_)))) + (let ((_%tl196284196873%_ + (let () (declare (not safe)) (##cdr _%e196282196868%_))) + (_%hd196283196871%_ (let () (declare (not safe)) - (##car _%e192794193392%_)))) + (##car _%e196282196868%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192796193397%_)) - (let ((_%e192797193400%_ + (gx#stx-pair? _%tl196284196873%_)) + (let ((_%e196285196876%_ (let () (declare (not safe)) - (gx#stx-e _%tl192796193397%_)))) - (let ((_%tl192799193405%_ + (gx#stx-e _%tl196284196873%_)))) + (let ((_%tl196287196881%_ (let () (declare (not safe)) - (##cdr _%e192797193400%_))) - (_%hd192798193403%_ + (##cdr _%e196285196876%_))) + (_%hd196286196879%_ (let () (declare (not safe)) - (##car _%e192797193400%_)))) + (##car _%e196285196876%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192799193405%_)) - (let ((_%e192800193408%_ + (gx#stx-pair? _%tl196287196881%_)) + (let ((_%e196288196884%_ (let () (declare (not safe)) - (gx#stx-e _%tl192799193405%_)))) - (let ((_%tl192802193413%_ + (gx#stx-e _%tl196287196881%_)))) + (let ((_%tl196290196889%_ (let () (declare (not safe)) - (##cdr _%e192800193408%_))) - (_%hd192801193411%_ + (##cdr _%e196288196884%_))) + (_%hd196289196887%_ (let () (declare (not safe)) - (##car _%e192800193408%_)))) + (##car _%e196288196884%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192802193413%_)) - (_%__kont199346199347%_ - _%hd192801193411%_ - _%hd192798193403%_ - _%hd192795193395%_) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)) + (gx#stx-null? _%tl196290196889%_)) + (_%__kont202787202788%_ + _%hd196289196887%_ + _%hd196286196879%_ + _%hd196283196871%_) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd192762193449%_)) + _%hd196250196925%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192763193451%_)) - (let ((_%e192809193262%_ + _%tl196251196927%_)) + (let ((_%e196297196742%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192763193451%_)))) - (let ((_%tl192811193267%_ + (gx#stx-e _%tl196251196927%_)))) + (let ((_%tl196299196747%_ (let () (declare (not safe)) - (##cdr _%e192809193262%_))) - (_%hd192810193265%_ + (##cdr _%e196297196742%_))) + (_%hd196298196745%_ (let () (declare (not safe)) - (##car _%e192809193262%_)))) + (##car _%e196297196742%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd192810193265%_)) - (let ((_%__splice199350199351%_ + (gx#stx-pair/null? _%hd196298196745%_)) + (let ((_%__splice202791202792%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%hd192810193265%_ + _%hd196298196745%_ '0)))) - (let ((_%tl192814193272%_ + (let ((_%tl196302196752%_ (let () (declare (not safe)) (##vector-ref - _%__splice199350199351%_ + _%__splice202791202792%_ '1))) - (_%target192812193270%_ + (_%target196300196750%_ (let () (declare (not safe)) (##vector-ref - _%__splice199350199351%_ + _%__splice202791202792%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192814193272%_)) - (_%__match199459199460%_ - _%e192761193446%_ - _%hd192762193449%_ - _%tl192763193451%_ - _%e192809193262%_ - _%hd192810193265%_ - _%tl192811193267%_ - _%__splice199350199351%_ - _%target192812193270%_ - _%tl192814193272%_) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)) + (gx#stx-null? _%tl196302196752%_)) + (_%__match202900202901%_ + _%e196249196922%_ + _%hd196250196925%_ + _%tl196251196927%_ + _%e196297196742%_ + _%hd196298196745%_ + _%tl196299196747%_ + _%__splice202791202792%_ + _%target196300196750%_ + _%tl196302196752%_) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#letrec-values _%hd192762193449%_)) + (gx#stx-eq? '%#letrec-values _%hd196250196925%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192763193451%_)) - (let ((_%e192881192950%_ + (gx#stx-pair? _%tl196251196927%_)) + (let ((_%e196369196438%_ (let () (declare (not safe)) - (gx#stx-e _%tl192763193451%_)))) - (let ((_%tl192883192955%_ + (gx#stx-e _%tl196251196927%_)))) + (let ((_%tl196371196443%_ (let () (declare (not safe)) - (##cdr _%e192881192950%_))) - (_%hd192882192953%_ + (##cdr _%e196369196438%_))) + (_%hd196370196441%_ (let () (declare (not safe)) - (##car _%e192881192950%_)))) + (##car _%e196369196438%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd192882192953%_)) - (let ((_%e192884192958%_ + (gx#stx-pair? _%hd196370196441%_)) + (let ((_%e196372196446%_ (let () (declare (not safe)) - (gx#stx-e _%hd192882192953%_)))) - (let ((_%tl192886192963%_ + (gx#stx-e _%hd196370196441%_)))) + (let ((_%tl196374196451%_ (let () (declare (not safe)) - (##cdr _%e192884192958%_))) - (_%hd192885192961%_ + (##cdr _%e196372196446%_))) + (_%hd196373196449%_ (let () (declare (not safe)) - (##car _%e192884192958%_)))) + (##car _%e196372196446%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd192885192961%_)) - (let ((_%e192887192966%_ + (gx#stx-pair? _%hd196373196449%_)) + (let ((_%e196375196454%_ (let () (declare (not safe)) - (gx#stx-e _%hd192885192961%_)))) - (let ((_%tl192889192971%_ + (gx#stx-e _%hd196373196449%_)))) + (let ((_%tl196377196459%_ (let () (declare (not safe)) - (##cdr _%e192887192966%_))) - (_%hd192888192969%_ + (##cdr _%e196375196454%_))) + (_%hd196376196457%_ (let () (declare (not safe)) - (##car _%e192887192966%_)))) + (##car _%e196375196454%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd192888192969%_)) - (let ((_%e192890192974%_ + _%hd196376196457%_)) + (let ((_%e196378196462%_ (let () (declare (not safe)) (gx#stx-e - _%hd192888192969%_)))) - (let ((_%tl192892192979%_ + _%hd196376196457%_)))) + (let ((_%tl196380196467%_ (let () (declare (not safe)) - (##cdr _%e192890192974%_))) - (_%hd192891192977%_ + (##cdr _%e196378196462%_))) + (_%hd196379196465%_ (let () (declare (not safe)) - (##car _%e192890192974%_)))) + (##car _%e196378196462%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192892192979%_)) + _%tl196380196467%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192889192971%_)) - (let ((_%e192893192982%_ + _%tl196377196459%_)) + (let ((_%e196381196470%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192889192971%_)))) - (let ((_%tl192895192987%_ + (gx#stx-e _%tl196377196459%_)))) + (let ((_%tl196383196475%_ (let () (declare (not safe)) - (##cdr _%e192893192982%_))) - (_%hd192894192985%_ + (##cdr _%e196381196470%_))) + (_%hd196382196473%_ (let () (declare (not safe)) - (##car _%e192893192982%_)))) + (##car _%e196381196470%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd192894192985%_)) - (let ((_%e192896192990%_ + (gx#stx-pair? _%hd196382196473%_)) + (let ((_%e196384196478%_ (let () (declare (not safe)) - (gx#stx-e _%hd192894192985%_)))) - (let ((_%tl192898192995%_ + (gx#stx-e _%hd196382196473%_)))) + (let ((_%tl196386196483%_ (let () (declare (not safe)) - (##cdr _%e192896192990%_))) - (_%hd192897192993%_ + (##cdr _%e196384196478%_))) + (_%hd196385196481%_ (let () (declare (not safe)) - (##car _%e192896192990%_)))) + (##car _%e196384196478%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd192897192993%_)) + (gx#identifier? _%hd196385196481%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd192897192993%_)) + _%hd196385196481%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192898192995%_)) - (let ((_%e192899192998%_ + (gx#stx-pair? _%tl196386196483%_)) + (let ((_%e196387196486%_ (let () (declare (not safe)) (gx#stx-e - _%tl192898192995%_)))) - (let ((_%tl192901193003%_ + _%tl196386196483%_)))) + (let ((_%tl196389196491%_ (let () (declare (not safe)) - (##cdr _%e192899192998%_))) - (_%hd192900193001%_ + (##cdr _%e196387196486%_))) + (_%hd196388196489%_ (let () (declare (not safe)) - (##car _%e192899192998%_)))) + (##car _%e196387196486%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd192900193001%_)) - (let ((_%__splice199358199359%_ + _%hd196388196489%_)) + (let ((_%__splice202799202800%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%hd192900193001%_ + _%hd196388196489%_ '0)))) - (let ((_%tl192904193008%_ + (let ((_%tl196392196496%_ (let () (declare (not safe)) (##vector-ref - _%__splice199358199359%_ + _%__splice202799202800%_ '1))) - (_%target192902193006%_ + (_%target196390196494%_ (let () (declare (not safe)) (##vector-ref - _%__splice199358199359%_ + _%__splice202799202800%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192904193008%_)) - (_%__match199549199550%_ - _%e192761193446%_ - _%hd192762193449%_ - _%tl192763193451%_ - _%e192881192950%_ - _%hd192882192953%_ - _%tl192883192955%_ - _%e192884192958%_ - _%hd192885192961%_ - _%tl192886192963%_ - _%e192887192966%_ - _%hd192888192969%_ - _%tl192889192971%_ - _%e192890192974%_ - _%hd192891192977%_ - _%tl192892192979%_ - _%e192893192982%_ - _%hd192894192985%_ - _%tl192895192987%_ - _%e192896192990%_ - _%hd192897192993%_ - _%tl192898192995%_ - _%e192899192998%_ - _%hd192900193001%_ - _%tl192901193003%_ - _%__splice199358199359%_ - _%target192902193006%_ - _%tl192904193008%_) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)) - (_%__kont199362199363%_)) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)) - (_%__kont199362199363%_)))) + _%tl196392196496%_)) + (_%__match202990202991%_ + _%e196249196922%_ + _%hd196250196925%_ + _%tl196251196927%_ + _%e196369196438%_ + _%hd196370196441%_ + _%tl196371196443%_ + _%e196372196446%_ + _%hd196373196449%_ + _%tl196374196451%_ + _%e196375196454%_ + _%hd196376196457%_ + _%tl196377196459%_ + _%e196378196462%_ + _%hd196379196465%_ + _%tl196380196467%_ + _%e196381196470%_ + _%hd196382196473%_ + _%tl196383196475%_ + _%e196384196478%_ + _%hd196385196481%_ + _%tl196386196483%_ + _%e196387196486%_ + _%hd196388196489%_ + _%tl196389196491%_ + _%__splice202799202800%_ + _%target196390196494%_ + _%tl196392196496%_) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)) + (_%__kont202803202804%_)) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)) + (_%__kont202803202804%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)))) - (_%__kont199362199363%_)) - (_%__kont199362199363%_))))) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)))) + (_%__kont202803202804%_)) + (_%__kont202803202804%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199362199363%_)))) - (_%__kont199362199363%_))))))))) - (_%optimize-f__0__198041198042%_ - (lambda (_%expr193656%_) - (let ((_%test193658%_ '#f)) - (_%optimize-f__198039198040%_ - _%expr193656%_ - _%test193658%_)))) - (_%optimize-f190684%_ - (lambda _g201199_ - (let ((_g201200_ + (_%__kont202803202804%_)))) + (_%__kont202803202804%_))))))))) + (_%optimize-f__0__201482201483%_ + (lambda (_%expr197130%_) + (let ((_%test197132%_ '#f)) + (_%optimize-f__201480201481%_ + _%expr197130%_ + _%test197132%_)))) + (_%optimize-f194177%_ + (lambda _g204640_ + (let ((_g204641_ (let () (declare (not safe)) - (##length _g201199_)))) - (cond ((let () (declare (not safe)) (##fx= _g201200_ 1)) - (apply _%optimize-f__0__198041198042%_ - _g201199_)) - ((let () (declare (not safe)) (##fx= _g201200_ 2)) - (apply _%optimize-f__198039198040%_ _g201199_)) + (##length _g204640_)))) + (cond ((let () (declare (not safe)) (##fx= _g204641_ 1)) + (apply _%optimize-f__0__201482201483%_ + _g204640_)) + ((let () (declare (not safe)) (##fx= _g204641_ 2)) + (apply _%optimize-f__201480201481%_ _g204640_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g201199_)))))) - (_%assert-e190685%_ - (lambda (_%expr191685%_) - (let* ((_%sexpr191687%_ - (gxc#apply-generate-runtime-repr _%expr191685%_)) - (_%$e191689%_ - (assoc _%sexpr191687%_ _%env-assert190667%_))) - (if _%$e191689%_ - (cdr _%$e191689%_) - (let _%assert191693%_ ((_%expr191695%_ - _%expr191685%_)) - (let* ((_%__stx199646199647%_ _%expr191695%_) - (_%g191703191882%_ + _g204640_)))))) + (_%assert-e194178%_ + (lambda (_%expr195173%_) + (let* ((_%sexpr195175%_ + (gxc#apply-generate-runtime-repr _%expr195173%_)) + (_%$e195177%_ + (assoc _%sexpr195175%_ _%env-assert194160%_))) + (if _%$e195177%_ + (cdr _%$e195177%_) + (let _%assert195181%_ ((_%expr195183%_ + _%expr195173%_)) + (let* ((_%__stx203087203088%_ _%expr195183%_) + (_%g195191195370%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx199646199647%_))))) - (let ((_%__kont199648199649%_ - (lambda (_%L192715%_ _%L192716%_) - (let ((_%$e192738%_ - (_%predicate-type190672%_ - _%L192716%_))) - (if _%$e192738%_ - ((lambda (_%t192741%_) - (_%assert-type190686%_ - _%L192715%_ - _%t192741%_)) - _%$e192738%_) + _%__stx203087203088%_))))) + (let ((_%__kont203089203090%_ + (lambda (_%g195193196203%_ + _%g195194196204%_) + (let ((_%$e196226%_ + (_%predicate-type194165%_ + _%g195194196204%_))) + (if _%$e196226%_ + ((lambda (_%t196229%_) + (_%assert-type194179%_ + _%g195193196203%_ + _%t196229%_)) + _%$e196226%_) '#!void)))) - (_%__kont199650199651%_ - (lambda (_%L192407%_ - _%L192408%_ - _%L192409%_) - (let ((_%$e192434%_ + (_%__kont203091203092%_ + (lambda (_%g195216195895%_ + _%g195217195896%_ + _%g195218195897%_) + (let ((_%$e195922%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L192409%_)))) - (if (or (eq? '##fx= _%$e192434%_) - (eq? 'fx= _%$e192434%_)) - (let* ((_%__stx199552199553%_ - _%L192408%_) - (_%g192441192470%_ + _%g195218195897%_)))) + (if (or (eq? '##fx= _%$e195922%_) + (eq? 'fx= _%$e195922%_)) + (let* ((_%__stx202993202994%_ + _%g195217195896%_) + (_%g195929195958%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx199552199553%_))))) - (let ((_%__kont199554199555%_ - (lambda (_%L192538%_ - _%L192539%_) - (let ((_%$e192564%_ - (_%countf-symbol190674%_ + _%__stx202993202994%_))))) + (let ((_%__kont202995202996%_ + (lambda (_%g195931196026%_ + _%g195932196027%_) + (let ((_%$e196052%_ + (_%countf-symbol194167%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L192539%_))) - (if _%$e192564%_ - ((lambda (_%sym192567%_) - (_%assert-count190687%_ - _%L192538%_ - _%sym192567%_ + _%g195932196027%_))) + (if _%$e196052%_ + ((lambda (_%sym196055%_) + (_%assert-count194180%_ + _%g195931196026%_ + _%sym196055%_ (let () (declare (not safe)) - (gx#stx-e _%L192407%_)))) - _%$e192564%_) + (gx#stx-e _%g195216195895%_)))) + _%$e196052%_) '#!void)))) - (_%__kont199556199557%_ (lambda () '#!void))) + (_%__kont202997202998%_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx199552199553%_)) - (let ((_%e192445192482%_ + _%__stx202993202994%_)) + (let ((_%e195933195970%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx199552199553%_)))) - (let ((_%tl192447192487%_ - (let () (declare (not safe)) (##cdr _%e192445192482%_))) - (_%hd192446192485%_ + (gx#stx-e _%__stx202993202994%_)))) + (let ((_%tl195935195975%_ + (let () (declare (not safe)) (##cdr _%e195933195970%_))) + (_%hd195934195973%_ (let () (declare (not safe)) - (##car _%e192445192482%_)))) + (##car _%e195933195970%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd192446192485%_)) + (gx#identifier? _%hd195934195973%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd192446192485%_)) + (gx#stx-eq? '%#call _%hd195934195973%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192447192487%_)) - (let ((_%e192448192490%_ + (gx#stx-pair? _%tl195935195975%_)) + (let ((_%e195936195978%_ (let () (declare (not safe)) - (gx#stx-e _%tl192447192487%_)))) - (let ((_%tl192450192495%_ + (gx#stx-e _%tl195935195975%_)))) + (let ((_%tl195938195983%_ (let () (declare (not safe)) - (##cdr _%e192448192490%_))) - (_%hd192449192493%_ + (##cdr _%e195936195978%_))) + (_%hd195937195981%_ (let () (declare (not safe)) - (##car _%e192448192490%_)))) + (##car _%e195936195978%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd192449192493%_)) - (let ((_%e192451192498%_ + (gx#stx-pair? _%hd195937195981%_)) + (let ((_%e195939195986%_ (let () (declare (not safe)) - (gx#stx-e _%hd192449192493%_)))) - (let ((_%tl192453192503%_ + (gx#stx-e _%hd195937195981%_)))) + (let ((_%tl195941195991%_ (let () (declare (not safe)) - (##cdr _%e192451192498%_))) - (_%hd192452192501%_ + (##cdr _%e195939195986%_))) + (_%hd195940195989%_ (let () (declare (not safe)) - (##car _%e192451192498%_)))) + (##car _%e195939195986%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd192452192501%_)) + _%hd195940195989%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd192452192501%_)) + _%hd195940195989%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192453192503%_)) - (let ((_%e192454192506%_ + _%tl195941195991%_)) + (let ((_%e195942195994%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192453192503%_)))) - (let ((_%tl192456192511%_ - (let () (declare (not safe)) (##cdr _%e192454192506%_))) - (_%hd192455192509%_ + (gx#stx-e _%tl195941195991%_)))) + (let ((_%tl195944195999%_ + (let () (declare (not safe)) (##cdr _%e195942195994%_))) + (_%hd195943195997%_ (let () (declare (not safe)) - (##car _%e192454192506%_)))) + (##car _%e195942195994%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192456192511%_)) + (gx#stx-null? _%tl195944195999%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192450192495%_)) - (let ((_%e192457192514%_ + (gx#stx-pair? _%tl195938195983%_)) + (let ((_%e195945196002%_ (let () (declare (not safe)) - (gx#stx-e _%tl192450192495%_)))) - (let ((_%tl192459192519%_ + (gx#stx-e _%tl195938195983%_)))) + (let ((_%tl195947196007%_ (let () (declare (not safe)) - (##cdr _%e192457192514%_))) - (_%hd192458192517%_ + (##cdr _%e195945196002%_))) + (_%hd195946196005%_ (let () (declare (not safe)) - (##car _%e192457192514%_)))) + (##car _%e195945196002%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd192458192517%_)) - (let ((_%e192460192522%_ + (gx#stx-pair? _%hd195946196005%_)) + (let ((_%e195948196010%_ (let () (declare (not safe)) - (gx#stx-e _%hd192458192517%_)))) - (let ((_%tl192462192527%_ + (gx#stx-e _%hd195946196005%_)))) + (let ((_%tl195950196015%_ (let () (declare (not safe)) - (##cdr _%e192460192522%_))) - (_%hd192461192525%_ + (##cdr _%e195948196010%_))) + (_%hd195949196013%_ (let () (declare (not safe)) - (##car _%e192460192522%_)))) + (##car _%e195948196010%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd192461192525%_)) + _%hd195949196013%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd192461192525%_)) + _%hd195949196013%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192462192527%_)) - (let ((_%e192463192530%_ + _%tl195950196015%_)) + (let ((_%e195951196018%_ (let () (declare (not safe)) (gx#stx-e - _%tl192462192527%_)))) - (let ((_%tl192465192535%_ + _%tl195950196015%_)))) + (let ((_%tl195953196023%_ (let () (declare (not safe)) - (##cdr _%e192463192530%_))) - (_%hd192464192533%_ + (##cdr _%e195951196018%_))) + (_%hd195952196021%_ (let () (declare (not safe)) - (##car _%e192463192530%_)))) + (##car _%e195951196018%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192465192535%_)) + _%tl195953196023%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl192459192519%_)) - (_%__kont199554199555%_ - _%hd192464192533%_ - _%hd192455192509%_) - (_%__kont199556199557%_)) - (_%__kont199556199557%_)))) + (gx#stx-null? _%tl195947196007%_)) + (_%__kont202995202996%_ + _%hd195952196021%_ + _%hd195943195997%_) + (_%__kont202997202998%_)) + (_%__kont202997202998%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199556199557%_)) - (_%__kont199556199557%_)) - (_%__kont199556199557%_)))) - (_%__kont199556199557%_)))) - (_%__kont199556199557%_)) - (_%__kont199556199557%_)))) - (_%__kont199556199557%_)) + (_%__kont202997202998%_)) + (_%__kont202997202998%_)) + (_%__kont202997202998%_)))) + (_%__kont202997202998%_)))) + (_%__kont202997202998%_)) + (_%__kont202997202998%_)))) + (_%__kont202997202998%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199556199557%_)) - (_%__kont199556199557%_)))) - (_%__kont199556199557%_)))) - (_%__kont199556199557%_)) - (_%__kont199556199557%_)) - (_%__kont199556199557%_)))) - (_%__kont199556199557%_)))) + (_%__kont202997202998%_)) + (_%__kont202997202998%_)))) + (_%__kont202997202998%_)))) + (_%__kont202997202998%_)) + (_%__kont202997202998%_)) + (_%__kont202997202998%_)))) + (_%__kont202997202998%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (or (eq? '##eq? _%$e192434%_) - (eq? 'eq? _%$e192434%_) + (if (or (eq? '##eq? _%$e195922%_) + (eq? 'eq? _%$e195922%_) (eq? '##eqv? - _%$e192434%_) - (eq? 'eqv? _%$e192434%_) + _%$e195922%_) + (eq? 'eqv? _%$e195922%_) (eq? '##equal? - _%$e192434%_) + _%$e195922%_) (eq? 'equal? - _%$e192434%_) + _%$e195922%_) (eq? 'gx#free-identifier=? - _%$e192434%_) + _%$e195922%_) (eq? 'gx#stx-eq? - _%$e192434%_)) - ((lambda (_%sym192594%_) - (let* ((_%__stx199620199621%_ - _%L192408%_) - (_%g192597192610%_ + _%$e195922%_)) + ((lambda (_%sym196082%_) + (let* ((_%__stx203061203062%_ + _%g195217195896%_) + (_%g196085196098%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -8647,71 +8700,71 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx199620199621%_))))) - (let ((_%__kont199622199623%_ - (lambda (_%L192638%_) - (_%assert-eqf190688%_ - _%L192638%_ - (_%eqf-symbol190675%_ _%sym192594%_) + _%__stx203061203062%_))))) + (let ((_%__kont203063203064%_ + (lambda (_%g196087196126%_) + (_%assert-eqf194181%_ + _%g196087196126%_ + (_%eqf-symbol194168%_ _%sym196082%_) (let () (declare (not safe)) - (gx#stx-e _%L192407%_))))) - (_%__kont199624199625%_ (lambda () '#!void))) + (gx#stx-e _%g195216195895%_))))) + (_%__kont203065203066%_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx199620199621%_)) - (let ((_%e192600192622%_ + (gx#stx-pair? _%__stx203061203062%_)) + (let ((_%e196088196110%_ (let () (declare (not safe)) - (gx#stx-e _%__stx199620199621%_)))) - (let ((_%tl192602192627%_ + (gx#stx-e _%__stx203061203062%_)))) + (let ((_%tl196090196115%_ (let () (declare (not safe)) - (##cdr _%e192600192622%_))) - (_%hd192601192625%_ + (##cdr _%e196088196110%_))) + (_%hd196089196113%_ (let () (declare (not safe)) - (##car _%e192600192622%_)))) + (##car _%e196088196110%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd192601192625%_)) + (gx#identifier? _%hd196089196113%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd192601192625%_)) + (gx#stx-eq? '%#ref _%hd196089196113%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192602192627%_)) - (let ((_%e192603192630%_ + (gx#stx-pair? _%tl196090196115%_)) + (let ((_%e196091196118%_ (let () (declare (not safe)) - (gx#stx-e _%tl192602192627%_)))) - (let ((_%tl192605192635%_ + (gx#stx-e _%tl196090196115%_)))) + (let ((_%tl196093196123%_ (let () (declare (not safe)) - (##cdr _%e192603192630%_))) - (_%hd192604192633%_ + (##cdr _%e196091196118%_))) + (_%hd196092196121%_ (let () (declare (not safe)) - (##car _%e192603192630%_)))) + (##car _%e196091196118%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192605192635%_)) - (_%__kont199622199623%_ - _%hd192604192633%_) - (_%__kont199624199625%_)))) - (_%__kont199624199625%_)) - (_%__kont199624199625%_)) - (_%__kont199624199625%_)))) - (_%__kont199624199625%_))))) + _%tl196093196123%_)) + (_%__kont203063203064%_ + _%hd196092196121%_) + (_%__kont203065203066%_)))) + (_%__kont203065203066%_)) + (_%__kont203065203066%_)) + (_%__kont203065203066%_)))) + (_%__kont203065203066%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e192434%_) + _%$e195922%_) '#!void))))) - (_%__kont199652199653%_ - (lambda (_%L192311%_ - _%L192312%_ - _%L192313%_) - (_%assert191693%_ + (_%__kont203093203094%_ + (lambda (_%g195243195799%_ + _%g195244195800%_ + _%g195245195801%_) + (_%assert195181%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -8723,44 +8776,44 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L192313%_ + (cons _%g195245195801%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L192311%_ + (cons _%g195243195799%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote)) - (cons _%L192312%_ '())) + (cons _%g195244195800%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199654199655%_ - (lambda (_%L192203%_ - _%L192204%_ - _%L192205%_) - (let ((_%$e192234%_ + (_%__kont203095203096%_ + (lambda (_%g195270195691%_ + _%g195271195692%_ + _%g195272195693%_) + (let ((_%$e195722%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L192205%_)))) + _%g195272195693%_)))) (if (or (eq? 'gx#free-identifier=? - _%$e192234%_) + _%$e195722%_) (eq? 'gx#stx-eq? - _%$e192234%_)) - ((lambda (_%sym192240%_) - (_%assert-eqf190688%_ - _%L192204%_ - (_%eqf-symbol190675%_ - _%sym192240%_) - _%L192203%_)) - _%$e192234%_) + _%$e195722%_)) + ((lambda (_%sym195728%_) + (_%assert-eqf194181%_ + _%g195271195692%_ + (_%eqf-symbol194168%_ + _%sym195728%_) + _%g195270195691%_)) + _%$e195722%_) '#!void)))) - (_%__kont199656199657%_ - (lambda (_%L192087%_ - _%L192088%_ - _%L192089%_) - (_%assert191693%_ + (_%__kont203097203098%_ + (lambda (_%g195303195575%_ + _%g195304195576%_ + _%g195305195577%_) + (_%assert195181%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -8772,7 +8825,7 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L192089%_ + (cons _%g195305195577%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -8780,4368 +8833,4382 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L192087%_ '())) + (cons _%g195303195575%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax)) - (cons _%L192088%_ '())) + (cons _%g195304195576%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199658199659%_ - (lambda (_%L191966%_ - _%L191967%_ - _%L191968%_) - (_%assert191693%_ + (_%__kont203099203100%_ + (lambda (_%g195336195454%_ + _%g195337195455%_ + _%g195338195456%_) + (_%assert195181%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L191968%_ - _%L191966%_ - _%L191967%_))))) - (_%__kont199660199661%_ + _%g195338195456%_ + _%g195336195454%_ + _%g195337195455%_))))) + (_%__kont203101203102%_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx199646199647%_)) - (let ((_%e191707192659%_ + (gx#stx-pair? _%__stx203087203088%_)) + (let ((_%e195195196147%_ (let () (declare (not safe)) (gx#stx-e - _%__stx199646199647%_)))) - (let ((_%tl191709192664%_ + _%__stx203087203088%_)))) + (let ((_%tl195197196152%_ (let () (declare (not safe)) - (##cdr _%e191707192659%_))) - (_%hd191708192662%_ + (##cdr _%e195195196147%_))) + (_%hd195196196150%_ (let () (declare (not safe)) - (##car _%e191707192659%_)))) + (##car _%e195195196147%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd191708192662%_)) + _%hd195196196150%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd191708192662%_)) + _%hd195196196150%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191709192664%_)) - (let ((_%e191710192667%_ + _%tl195197196152%_)) + (let ((_%e195198196155%_ (let () (declare (not safe)) (gx#stx-e - _%tl191709192664%_)))) - (let ((_%tl191712192672%_ + _%tl195197196152%_)))) + (let ((_%tl195200196160%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e191710192667%_))) - (_%hd191711192670%_ - (let () (declare (not safe)) (##car _%e191710192667%_)))) + (##cdr _%e195198196155%_))) + (_%hd195199196158%_ + (let () (declare (not safe)) (##car _%e195198196155%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd191711192670%_)) - (let ((_%e191713192675%_ + (gx#stx-pair? _%hd195199196158%_)) + (let ((_%e195201196163%_ (let () (declare (not safe)) - (gx#stx-e _%hd191711192670%_)))) - (let ((_%tl191715192680%_ + (gx#stx-e _%hd195199196158%_)))) + (let ((_%tl195203196168%_ (let () (declare (not safe)) - (##cdr _%e191713192675%_))) - (_%hd191714192678%_ + (##cdr _%e195201196163%_))) + (_%hd195202196166%_ (let () (declare (not safe)) - (##car _%e191713192675%_)))) + (##car _%e195201196163%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd191714192678%_)) + (gx#identifier? _%hd195202196166%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd191714192678%_)) + (gx#stx-eq? '%#ref _%hd195202196166%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191715192680%_)) - (let ((_%e191716192683%_ + (gx#stx-pair? _%tl195203196168%_)) + (let ((_%e195204196171%_ (let () (declare (not safe)) - (gx#stx-e _%tl191715192680%_)))) - (let ((_%tl191718192688%_ + (gx#stx-e _%tl195203196168%_)))) + (let ((_%tl195206196176%_ (let () (declare (not safe)) - (##cdr _%e191716192683%_))) - (_%hd191717192686%_ + (##cdr _%e195204196171%_))) + (_%hd195205196174%_ (let () (declare (not safe)) - (##car _%e191716192683%_)))) + (##car _%e195204196171%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191718192688%_)) + _%tl195206196176%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191712192672%_)) - (let ((_%e191719192691%_ + _%tl195200196160%_)) + (let ((_%e195207196179%_ (let () (declare (not safe)) (gx#stx-e - _%tl191712192672%_)))) - (let ((_%tl191721192696%_ + _%tl195200196160%_)))) + (let ((_%tl195209196184%_ (let () (declare (not safe)) - (##cdr _%e191719192691%_))) - (_%hd191720192694%_ + (##cdr _%e195207196179%_))) + (_%hd195208196182%_ (let () (declare (not safe)) - (##car _%e191719192691%_)))) + (##car _%e195207196179%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd191720192694%_)) - (let ((_%e191722192699%_ + _%hd195208196182%_)) + (let ((_%e195210196187%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd191720192694%_)))) - (let ((_%tl191724192704%_ + (gx#stx-e _%hd195208196182%_)))) + (let ((_%tl195212196192%_ (let () (declare (not safe)) - (##cdr _%e191722192699%_))) - (_%hd191723192702%_ + (##cdr _%e195210196187%_))) + (_%hd195211196190%_ (let () (declare (not safe)) - (##car _%e191722192699%_)))) + (##car _%e195210196187%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd191723192702%_)) + (gx#identifier? _%hd195211196190%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd191723192702%_)) + (gx#stx-eq? '%#ref _%hd195211196190%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191724192704%_)) - (let ((_%e191725192707%_ + (gx#stx-pair? _%tl195212196192%_)) + (let ((_%e195213196195%_ (let () (declare (not safe)) - (gx#stx-e _%tl191724192704%_)))) - (let ((_%tl191727192712%_ + (gx#stx-e _%tl195212196192%_)))) + (let ((_%tl195215196200%_ (let () (declare (not safe)) - (##cdr _%e191725192707%_))) - (_%hd191726192710%_ + (##cdr _%e195213196195%_))) + (_%hd195214196198%_ (let () (declare (not safe)) - (##car _%e191725192707%_)))) + (##car _%e195213196195%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191727192712%_)) + (gx#stx-null? _%tl195215196200%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191721192696%_)) - (_%__kont199648199649%_ - _%hd191726192710%_ - _%hd191717192686%_) + _%tl195209196184%_)) + (_%__kont203089203090%_ + _%hd195214196198%_ + _%hd195205196174%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191721192696%_)) - (let ((_%e191746192383%_ + _%tl195209196184%_)) + (let ((_%e195234195871%_ (let () (declare (not safe)) (gx#stx-e - _%tl191721192696%_)))) - (let ((_%tl191748192388%_ + _%tl195209196184%_)))) + (let ((_%tl195236195876%_ (let () (declare (not safe)) - (##cdr _%e191746192383%_))) - (_%hd191747192386%_ + (##cdr _%e195234195871%_))) + (_%hd195235195874%_ (let () (declare (not safe)) - (##car _%e191746192383%_)))) + (##car _%e195234195871%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd191747192386%_)) - (let ((_%e191749192391%_ + _%hd195235195874%_)) + (let ((_%e195237195879%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd191747192386%_)))) - (let ((_%tl191751192396%_ + (gx#stx-e _%hd195235195874%_)))) + (let ((_%tl195239195884%_ (let () (declare (not safe)) - (##cdr _%e191749192391%_))) - (_%hd191750192394%_ + (##cdr _%e195237195879%_))) + (_%hd195238195882%_ (let () (declare (not safe)) - (##car _%e191749192391%_)))) + (##car _%e195237195879%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd191750192394%_)) + (gx#identifier? _%hd195238195882%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd191750192394%_)) + (gx#stx-eq? '%#quote _%hd195238195882%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191751192396%_)) - (let ((_%e191752192399%_ + (gx#stx-pair? _%tl195239195884%_)) + (let ((_%e195240195887%_ (let () (declare (not safe)) - (gx#stx-e _%tl191751192396%_)))) - (let ((_%tl191754192404%_ + (gx#stx-e _%tl195239195884%_)))) + (let ((_%tl195242195892%_ (let () (declare (not safe)) - (##cdr _%e191752192399%_))) - (_%hd191753192402%_ + (##cdr _%e195240195887%_))) + (_%hd195241195890%_ (let () (declare (not safe)) - (##car _%e191752192399%_)))) + (##car _%e195240195887%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191754192404%_)) + (gx#stx-null? _%tl195242195892%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191748192388%_)) - (_%__kont199650199651%_ - _%hd191753192402%_ - _%hd191720192694%_ - _%hd191717192686%_) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)) + _%tl195236195876%_)) + (_%__kont203091203092%_ + _%hd195241195890%_ + _%hd195208196182%_ + _%hd195205196174%_) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd191750192394%_)) + _%hd195238195882%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191751192396%_)) - (let ((_%e191812192195%_ + (gx#stx-pair? _%tl195239195884%_)) + (let ((_%e195300195683%_ (let () (declare (not safe)) - (gx#stx-e _%tl191751192396%_)))) - (let ((_%tl191814192200%_ + (gx#stx-e _%tl195239195884%_)))) + (let ((_%tl195302195688%_ (let () (declare (not safe)) - (##cdr _%e191812192195%_))) - (_%hd191813192198%_ + (##cdr _%e195300195683%_))) + (_%hd195301195686%_ (let () (declare (not safe)) - (##car _%e191812192195%_)))) + (##car _%e195300195683%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191814192200%_)) + _%tl195302195688%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191748192388%_)) - (_%__kont199654199655%_ - _%hd191813192198%_ - _%hd191726192710%_ - _%hd191717192686%_) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)) - (_%__kont199660199661%_))) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)))) + _%tl195236195876%_)) + (_%__kont203095203096%_ + _%hd195301195686%_ + _%hd195214196198%_ + _%hd195205196174%_) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)) + (_%__kont203101203102%_))) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199660199661%_))) + (_%__kont203101203102%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191721192696%_)) - (let ((_%e191746192383%_ + _%tl195209196184%_)) + (let ((_%e195234195871%_ (let () (declare (not safe)) (gx#stx-e - _%tl191721192696%_)))) - (let ((_%tl191748192388%_ + _%tl195209196184%_)))) + (let ((_%tl195236195876%_ (let () (declare (not safe)) - (##cdr _%e191746192383%_))) - (_%hd191747192386%_ + (##cdr _%e195234195871%_))) + (_%hd195235195874%_ (let () (declare (not safe)) - (##car _%e191746192383%_)))) + (##car _%e195234195871%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd191747192386%_)) - (let ((_%e191749192391%_ + _%hd195235195874%_)) + (let ((_%e195237195879%_ (let () (declare (not safe)) (gx#stx-e - _%hd191747192386%_)))) - (let ((_%tl191751192396%_ + _%hd195235195874%_)))) + (let ((_%tl195239195884%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e191749192391%_))) - (_%hd191750192394%_ - (let () (declare (not safe)) (##car _%e191749192391%_)))) + (##cdr _%e195237195879%_))) + (_%hd195238195882%_ + (let () (declare (not safe)) (##car _%e195237195879%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd191750192394%_)) + (gx#identifier? _%hd195238195882%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd191750192394%_)) + (gx#stx-eq? '%#quote _%hd195238195882%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191751192396%_)) - (let ((_%e191752192399%_ + (gx#stx-pair? _%tl195239195884%_)) + (let ((_%e195240195887%_ (let () (declare (not safe)) - (gx#stx-e _%tl191751192396%_)))) - (let ((_%tl191754192404%_ + (gx#stx-e _%tl195239195884%_)))) + (let ((_%tl195242195892%_ (let () (declare (not safe)) - (##cdr _%e191752192399%_))) - (_%hd191753192402%_ + (##cdr _%e195240195887%_))) + (_%hd195241195890%_ (let () (declare (not safe)) - (##car _%e191752192399%_)))) + (##car _%e195240195887%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191754192404%_)) + (gx#stx-null? _%tl195242195892%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191748192388%_)) - (_%__kont199650199651%_ - _%hd191753192402%_ - _%hd191720192694%_ - _%hd191717192686%_) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) + (gx#stx-null? _%tl195236195876%_)) + (_%__kont203091203092%_ + _%hd195241195890%_ + _%hd195208196182%_ + _%hd195205196174%_) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199660199661%_)))) - (_%__kont199660199661%_))))) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191721192696%_)) - (let ((_%e191746192383%_ + (gx#stx-pair? _%tl195209196184%_)) + (let ((_%e195234195871%_ (let () (declare (not safe)) - (gx#stx-e _%tl191721192696%_)))) - (let ((_%tl191748192388%_ + (gx#stx-e _%tl195209196184%_)))) + (let ((_%tl195236195876%_ (let () (declare (not safe)) - (##cdr _%e191746192383%_))) - (_%hd191747192386%_ + (##cdr _%e195234195871%_))) + (_%hd195235195874%_ (let () (declare (not safe)) - (##car _%e191746192383%_)))) + (##car _%e195234195871%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd191747192386%_)) - (let ((_%e191749192391%_ + _%hd195235195874%_)) + (let ((_%e195237195879%_ (let () (declare (not safe)) (gx#stx-e - _%hd191747192386%_)))) - (let ((_%tl191751192396%_ + _%hd195235195874%_)))) + (let ((_%tl195239195884%_ (let () (declare (not safe)) - (##cdr _%e191749192391%_))) - (_%hd191750192394%_ + (##cdr _%e195237195879%_))) + (_%hd195238195882%_ (let () (declare (not safe)) - (##car _%e191749192391%_)))) + (##car _%e195237195879%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd191750192394%_)) + _%hd195238195882%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd191750192394%_)) + _%hd195238195882%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl191751192396%_)) - (let ((_%e191752192399%_ + (gx#stx-pair? _%tl195239195884%_)) + (let ((_%e195240195887%_ (let () (declare (not safe)) - (gx#stx-e _%tl191751192396%_)))) - (let ((_%tl191754192404%_ + (gx#stx-e _%tl195239195884%_)))) + (let ((_%tl195242195892%_ (let () (declare (not safe)) - (##cdr _%e191752192399%_))) - (_%hd191753192402%_ + (##cdr _%e195240195887%_))) + (_%hd195241195890%_ (let () (declare (not safe)) - (##car _%e191752192399%_)))) + (##car _%e195240195887%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191754192404%_)) + (gx#stx-null? _%tl195242195892%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191748192388%_)) - (_%__kont199650199651%_ - _%hd191753192402%_ - _%hd191720192694%_ - _%hd191717192686%_) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)) + (gx#stx-null? _%tl195236195876%_)) + (_%__kont203091203092%_ + _%hd195241195890%_ + _%hd195208196182%_ + _%hd195205196174%_) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_))) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191721192696%_)) - (let ((_%e191746192383%_ + (gx#stx-pair? _%tl195209196184%_)) + (let ((_%e195234195871%_ (let () (declare (not safe)) - (gx#stx-e _%tl191721192696%_)))) - (let ((_%tl191748192388%_ + (gx#stx-e _%tl195209196184%_)))) + (let ((_%tl195236195876%_ (let () (declare (not safe)) - (##cdr _%e191746192383%_))) - (_%hd191747192386%_ + (##cdr _%e195234195871%_))) + (_%hd195235195874%_ (let () (declare (not safe)) - (##car _%e191746192383%_)))) + (##car _%e195234195871%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd191747192386%_)) - (let ((_%e191749192391%_ + (gx#stx-pair? _%hd195235195874%_)) + (let ((_%e195237195879%_ (let () (declare (not safe)) (gx#stx-e - _%hd191747192386%_)))) - (let ((_%tl191751192396%_ + _%hd195235195874%_)))) + (let ((_%tl195239195884%_ (let () (declare (not safe)) - (##cdr _%e191749192391%_))) - (_%hd191750192394%_ + (##cdr _%e195237195879%_))) + (_%hd195238195882%_ (let () (declare (not safe)) - (##car _%e191749192391%_)))) + (##car _%e195237195879%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd191750192394%_)) + _%hd195238195882%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd191750192394%_)) + _%hd195238195882%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191751192396%_)) - (let ((_%e191752192399%_ + _%tl195239195884%_)) + (let ((_%e195240195887%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl191751192396%_)))) - (let ((_%tl191754192404%_ + (gx#stx-e _%tl195239195884%_)))) + (let ((_%tl195242195892%_ (let () (declare (not safe)) - (##cdr _%e191752192399%_))) - (_%hd191753192402%_ + (##cdr _%e195240195887%_))) + (_%hd195241195890%_ (let () (declare (not safe)) - (##car _%e191752192399%_)))) + (##car _%e195240195887%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191754192404%_)) + (gx#stx-null? _%tl195242195892%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191748192388%_)) - (_%__kont199650199651%_ - _%hd191753192402%_ - _%hd191720192694%_ - _%hd191717192686%_) + (gx#stx-null? _%tl195236195876%_)) + (_%__kont203091203092%_ + _%hd195241195890%_ + _%hd195208196182%_ + _%hd195205196174%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd191723192702%_)) + (gx#stx-eq? '%#quote _%hd195211196190%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191724192704%_)) - (let ((_%e191776192295%_ + (gx#stx-pair? _%tl195212196192%_)) + (let ((_%e195264195783%_ (let () (declare (not safe)) - (gx#stx-e _%tl191724192704%_)))) - (let ((_%tl191778192300%_ + (gx#stx-e _%tl195212196192%_)))) + (let ((_%tl195266195788%_ (let () (declare (not safe)) - (##cdr _%e191776192295%_))) - (_%hd191777192298%_ + (##cdr _%e195264195783%_))) + (_%hd195265195786%_ (let () (declare (not safe)) - (##car _%e191776192295%_)))) - (_%__kont199660199661%_))) - (_%__kont199660199661%_)) + (##car _%e195264195783%_)))) + (_%__kont203101203102%_))) + (_%__kont203101203102%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd191723192702%_)) + _%hd195211196190%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191724192704%_)) - (let ((_%e191836192055%_ + (gx#stx-pair? _%tl195212196192%_)) + (let ((_%e195324195543%_ (let () (declare (not safe)) (gx#stx-e - _%tl191724192704%_)))) - (let ((_%tl191838192060%_ + _%tl195212196192%_)))) + (let ((_%tl195326195548%_ (let () (declare (not safe)) - (##cdr _%e191836192055%_))) - (_%hd191837192058%_ + (##cdr _%e195324195543%_))) + (_%hd195325195546%_ (let () (declare (not safe)) - (##car _%e191836192055%_)))) - (_%__kont199660199661%_))) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) + (##car _%e195324195543%_)))) + (_%__kont203101203102%_))) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd191723192702%_)) + (gx#stx-eq? '%#quote _%hd195211196190%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191724192704%_)) - (let ((_%e191776192295%_ + (gx#stx-pair? _%tl195212196192%_)) + (let ((_%e195264195783%_ (let () (declare (not safe)) - (gx#stx-e _%tl191724192704%_)))) - (let ((_%tl191778192300%_ + (gx#stx-e _%tl195212196192%_)))) + (let ((_%tl195266195788%_ (let () (declare (not safe)) - (##cdr _%e191776192295%_))) - (_%hd191777192298%_ + (##cdr _%e195264195783%_))) + (_%hd195265195786%_ (let () (declare (not safe)) - (##car _%e191776192295%_)))) + (##car _%e195264195783%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191778192300%_)) + (gx#stx-null? _%tl195266195788%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191748192388%_)) - (_%__kont199652199653%_ - _%hd191747192386%_ - _%hd191777192298%_ - _%hd191717192686%_) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)) + _%tl195236195876%_)) + (_%__kont203093203094%_ + _%hd195235195874%_ + _%hd195265195786%_ + _%hd195205196174%_) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd191723192702%_)) + _%hd195211196190%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191724192704%_)) - (let ((_%e191836192055%_ + (gx#stx-pair? _%tl195212196192%_)) + (let ((_%e195324195543%_ (let () (declare (not safe)) - (gx#stx-e _%tl191724192704%_)))) - (let ((_%tl191838192060%_ + (gx#stx-e _%tl195212196192%_)))) + (let ((_%tl195326195548%_ (let () (declare (not safe)) - (##cdr _%e191836192055%_))) - (_%hd191837192058%_ + (##cdr _%e195324195543%_))) + (_%hd195325195546%_ (let () (declare (not safe)) - (##car _%e191836192055%_)))) - (_%__kont199660199661%_))) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))))) + (##car _%e195324195543%_)))) + (_%__kont203101203102%_))) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd191723192702%_)) + (gx#stx-eq? '%#quote _%hd195211196190%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191724192704%_)) - (let ((_%e191776192295%_ + (gx#stx-pair? _%tl195212196192%_)) + (let ((_%e195264195783%_ (let () (declare (not safe)) - (gx#stx-e _%tl191724192704%_)))) - (let ((_%tl191778192300%_ + (gx#stx-e _%tl195212196192%_)))) + (let ((_%tl195266195788%_ (let () (declare (not safe)) - (##cdr _%e191776192295%_))) - (_%hd191777192298%_ + (##cdr _%e195264195783%_))) + (_%hd195265195786%_ (let () (declare (not safe)) - (##car _%e191776192295%_)))) + (##car _%e195264195783%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191778192300%_)) + (gx#stx-null? _%tl195266195788%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191748192388%_)) - (_%__kont199652199653%_ - _%hd191747192386%_ - _%hd191777192298%_ - _%hd191717192686%_) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)) + (gx#stx-null? _%tl195236195876%_)) + (_%__kont203093203094%_ + _%hd195235195874%_ + _%hd195265195786%_ + _%hd195205196174%_) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd191723192702%_)) + (gx#stx-eq? '%#quote-syntax _%hd195211196190%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191724192704%_)) - (let ((_%e191836192055%_ + (gx#stx-pair? _%tl195212196192%_)) + (let ((_%e195324195543%_ (let () (declare (not safe)) - (gx#stx-e _%tl191724192704%_)))) - (let ((_%tl191838192060%_ + (gx#stx-e _%tl195212196192%_)))) + (let ((_%tl195326195548%_ (let () (declare (not safe)) - (##cdr _%e191836192055%_))) - (_%hd191837192058%_ + (##cdr _%e195324195543%_))) + (_%hd195325195546%_ (let () (declare (not safe)) - (##car _%e191836192055%_)))) - (_%__kont199660199661%_))) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) + (##car _%e195324195543%_)))) + (_%__kont203101203102%_))) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd191723192702%_)) + _%hd195211196190%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl191724192704%_)) - (let ((_%e191776192295%_ + (gx#stx-pair? _%tl195212196192%_)) + (let ((_%e195264195783%_ (let () (declare (not safe)) - (gx#stx-e _%tl191724192704%_)))) - (let ((_%tl191778192300%_ + (gx#stx-e _%tl195212196192%_)))) + (let ((_%tl195266195788%_ (let () (declare (not safe)) - (##cdr _%e191776192295%_))) - (_%hd191777192298%_ + (##cdr _%e195264195783%_))) + (_%hd195265195786%_ (let () (declare (not safe)) - (##car _%e191776192295%_)))) + (##car _%e195264195783%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191778192300%_)) + (gx#stx-null? _%tl195266195788%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191748192388%_)) - (_%__kont199652199653%_ - _%hd191747192386%_ - _%hd191777192298%_ - _%hd191717192686%_) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)) + (gx#stx-null? _%tl195236195876%_)) + (_%__kont203093203094%_ + _%hd195235195874%_ + _%hd195265195786%_ + _%hd195205196174%_) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd191723192702%_)) + (gx#stx-eq? '%#quote-syntax _%hd195211196190%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191724192704%_)) - (let ((_%e191836192055%_ + (gx#stx-pair? _%tl195212196192%_)) + (let ((_%e195324195543%_ (let () (declare (not safe)) - (gx#stx-e _%tl191724192704%_)))) - (let ((_%tl191838192060%_ + (gx#stx-e _%tl195212196192%_)))) + (let ((_%tl195326195548%_ (let () (declare (not safe)) - (##cdr _%e191836192055%_))) - (_%hd191837192058%_ + (##cdr _%e195324195543%_))) + (_%hd195325195546%_ (let () (declare (not safe)) - (##car _%e191836192055%_)))) + (##car _%e195324195543%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191838192060%_)) + (gx#stx-null? _%tl195326195548%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd191750192394%_)) + (gx#stx-eq? '%#ref _%hd195238195882%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191751192396%_)) - (let ((_%e191845192079%_ + (gx#stx-pair? _%tl195239195884%_)) + (let ((_%e195333195567%_ (let () (declare (not safe)) (gx#stx-e - _%tl191751192396%_)))) - (let ((_%tl191847192084%_ + _%tl195239195884%_)))) + (let ((_%tl195335195572%_ (let () (declare (not safe)) - (##cdr _%e191845192079%_))) - (_%hd191846192082%_ + (##cdr _%e195333195567%_))) + (_%hd195334195570%_ (let () (declare (not safe)) - (##car _%e191845192079%_)))) + (##car _%e195333195567%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191847192084%_)) + _%tl195335195572%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191748192388%_)) - (_%__kont199656199657%_ - _%hd191846192082%_ - _%hd191837192058%_ - _%hd191717192686%_) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) + _%tl195236195876%_)) + (_%__kont203097203098%_ + _%hd195334195570%_ + _%hd195325195546%_ + _%hd195205196174%_) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd191723192702%_)) + _%hd195211196190%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191724192704%_)) - (let ((_%e191776192295%_ + _%tl195212196192%_)) + (let ((_%e195264195783%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl191724192704%_)))) - (let ((_%tl191778192300%_ + (gx#stx-e _%tl195212196192%_)))) + (let ((_%tl195266195788%_ (let () (declare (not safe)) - (##cdr _%e191776192295%_))) - (_%hd191777192298%_ + (##cdr _%e195264195783%_))) + (_%hd195265195786%_ (let () (declare (not safe)) - (##car _%e191776192295%_)))) + (##car _%e195264195783%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191778192300%_)) + (gx#stx-null? _%tl195266195788%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191748192388%_)) - (_%__kont199652199653%_ - _%hd191747192386%_ - _%hd191777192298%_ - _%hd191717192686%_) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)) + (gx#stx-null? _%tl195236195876%_)) + (_%__kont203093203094%_ + _%hd195235195874%_ + _%hd195265195786%_ + _%hd195205196174%_) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd191723192702%_)) + _%hd195211196190%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl191724192704%_)) - (let ((_%e191836192055%_ + (gx#stx-pair? _%tl195212196192%_)) + (let ((_%e195324195543%_ (let () (declare (not safe)) - (gx#stx-e _%tl191724192704%_)))) - (let ((_%tl191838192060%_ + (gx#stx-e _%tl195212196192%_)))) + (let ((_%tl195326195548%_ (let () (declare (not safe)) - (##cdr _%e191836192055%_))) - (_%hd191837192058%_ + (##cdr _%e195324195543%_))) + (_%hd195325195546%_ (let () (declare (not safe)) - (##car _%e191836192055%_)))) - (_%__kont199660199661%_))) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))))) + (##car _%e195324195543%_)))) + (_%__kont203101203102%_))) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd191723192702%_)) + _%hd195211196190%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191724192704%_)) - (let ((_%e191776192295%_ + _%tl195212196192%_)) + (let ((_%e195264195783%_ (let () (declare (not safe)) (gx#stx-e - _%tl191724192704%_)))) - (let ((_%tl191778192300%_ + _%tl195212196192%_)))) + (let ((_%tl195266195788%_ (let () (declare (not safe)) - (##cdr _%e191776192295%_))) - (_%hd191777192298%_ + (##cdr _%e195264195783%_))) + (_%hd195265195786%_ (let () (declare (not safe)) - (##car _%e191776192295%_)))) + (##car _%e195264195783%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191778192300%_)) + _%tl195266195788%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl191748192388%_)) - (_%__kont199652199653%_ - _%hd191747192386%_ - _%hd191777192298%_ - _%hd191717192686%_) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) + (gx#stx-null? _%tl195236195876%_)) + (_%__kont203093203094%_ + _%hd195235195874%_ + _%hd195265195786%_ + _%hd195205196174%_) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199660199661%_)) + (_%__kont203101203102%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd191723192702%_)) + _%hd195211196190%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191724192704%_)) - (let ((_%e191836192055%_ + _%tl195212196192%_)) + (let ((_%e195324195543%_ (let () (declare (not safe)) (gx#stx-e - _%tl191724192704%_)))) - (let ((_%tl191838192060%_ + _%tl195212196192%_)))) + (let ((_%tl195326195548%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e191836192055%_))) - (_%hd191837192058%_ - (let () (declare (not safe)) (##car _%e191836192055%_)))) - (_%__kont199660199661%_))) + (##cdr _%e195324195543%_))) + (_%hd195325195546%_ + (let () (declare (not safe)) (##car _%e195324195543%_)))) + (_%__kont203101203102%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))))) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd191723192702%_)) + _%hd195211196190%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191724192704%_)) - (let ((_%e191776192295%_ + (gx#stx-pair? _%tl195212196192%_)) + (let ((_%e195264195783%_ (let () (declare (not safe)) (gx#stx-e - _%tl191724192704%_)))) - (let ((_%tl191778192300%_ + _%tl195212196192%_)))) + (let ((_%tl195266195788%_ (let () (declare (not safe)) - (##cdr _%e191776192295%_))) - (_%hd191777192298%_ + (##cdr _%e195264195783%_))) + (_%hd195265195786%_ (let () (declare (not safe)) - (##car _%e191776192295%_)))) - (_%__kont199660199661%_))) - (_%__kont199660199661%_)) + (##car _%e195264195783%_)))) + (_%__kont203101203102%_))) + (_%__kont203101203102%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd191723192702%_)) + _%hd195211196190%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191724192704%_)) - (let ((_%e191836192055%_ + _%tl195212196192%_)) + (let ((_%e195324195543%_ (let () (declare (not safe)) (gx#stx-e - _%tl191724192704%_)))) - (let ((_%tl191838192060%_ + _%tl195212196192%_)))) + (let ((_%tl195326195548%_ (let () (declare (not safe)) - (##cdr _%e191836192055%_))) - (_%hd191837192058%_ + (##cdr _%e195324195543%_))) + (_%hd195325195546%_ (let () (declare (not safe)) - (##car _%e191836192055%_)))) - (_%__kont199660199661%_))) - (_%__kont199660199661%_)) - (_%__kont199660199661%_))))) + (##car _%e195324195543%_)))) + (_%__kont203101203102%_))) + (_%__kont203101203102%_)) + (_%__kont203101203102%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191721192696%_)) - (let ((_%e191746192383%_ + (gx#stx-pair? _%tl195209196184%_)) + (let ((_%e195234195871%_ (let () (declare (not safe)) - (gx#stx-e _%tl191721192696%_)))) - (let ((_%tl191748192388%_ + (gx#stx-e _%tl195209196184%_)))) + (let ((_%tl195236195876%_ (let () (declare (not safe)) - (##cdr _%e191746192383%_))) - (_%hd191747192386%_ + (##cdr _%e195234195871%_))) + (_%hd195235195874%_ (let () (declare (not safe)) - (##car _%e191746192383%_)))) + (##car _%e195234195871%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd191747192386%_)) - (let ((_%e191749192391%_ + (gx#stx-pair? _%hd195235195874%_)) + (let ((_%e195237195879%_ (let () (declare (not safe)) - (gx#stx-e _%hd191747192386%_)))) - (let ((_%tl191751192396%_ + (gx#stx-e _%hd195235195874%_)))) + (let ((_%tl195239195884%_ (let () (declare (not safe)) - (##cdr _%e191749192391%_))) - (_%hd191750192394%_ + (##cdr _%e195237195879%_))) + (_%hd195238195882%_ (let () (declare (not safe)) - (##car _%e191749192391%_)))) + (##car _%e195237195879%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd191750192394%_)) + _%hd195238195882%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd191750192394%_)) + _%hd195238195882%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191751192396%_)) - (let ((_%e191752192399%_ + _%tl195239195884%_)) + (let ((_%e195240195887%_ (let () (declare (not safe)) (gx#stx-e - _%tl191751192396%_)))) - (let ((_%tl191754192404%_ + _%tl195239195884%_)))) + (let ((_%tl195242195892%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e191752192399%_))) - (_%hd191753192402%_ - (let () (declare (not safe)) (##car _%e191752192399%_)))) + (##cdr _%e195240195887%_))) + (_%hd195241195890%_ + (let () (declare (not safe)) (##car _%e195240195887%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191754192404%_)) + (gx#stx-null? _%tl195242195892%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191748192388%_)) - (_%__kont199650199651%_ - _%hd191753192402%_ - _%hd191720192694%_ - _%hd191717192686%_) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) + (gx#stx-null? _%tl195236195876%_)) + (_%__kont203091203092%_ + _%hd195241195890%_ + _%hd195208196182%_ + _%hd195205196174%_) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199660199661%_)) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_))))) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191721192696%_)) - (let ((_%e191746192383%_ + (gx#stx-pair? _%tl195209196184%_)) + (let ((_%e195234195871%_ (let () (declare (not safe)) - (gx#stx-e _%tl191721192696%_)))) - (let ((_%tl191748192388%_ + (gx#stx-e _%tl195209196184%_)))) + (let ((_%tl195236195876%_ (let () (declare (not safe)) - (##cdr _%e191746192383%_))) - (_%hd191747192386%_ + (##cdr _%e195234195871%_))) + (_%hd195235195874%_ (let () (declare (not safe)) - (##car _%e191746192383%_)))) + (##car _%e195234195871%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd191747192386%_)) - (let ((_%e191749192391%_ + (gx#stx-pair? _%hd195235195874%_)) + (let ((_%e195237195879%_ (let () (declare (not safe)) - (gx#stx-e _%hd191747192386%_)))) - (let ((_%tl191751192396%_ + (gx#stx-e _%hd195235195874%_)))) + (let ((_%tl195239195884%_ (let () (declare (not safe)) - (##cdr _%e191749192391%_))) - (_%hd191750192394%_ + (##cdr _%e195237195879%_))) + (_%hd195238195882%_ (let () (declare (not safe)) - (##car _%e191749192391%_)))) + (##car _%e195237195879%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd191750192394%_)) + (gx#identifier? _%hd195238195882%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd191750192394%_)) + _%hd195238195882%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191751192396%_)) - (let ((_%e191752192399%_ + _%tl195239195884%_)) + (let ((_%e195240195887%_ (let () (declare (not safe)) (gx#stx-e - _%tl191751192396%_)))) - (let ((_%tl191754192404%_ + _%tl195239195884%_)))) + (let ((_%tl195242195892%_ (let () (declare (not safe)) - (##cdr _%e191752192399%_))) - (_%hd191753192402%_ + (##cdr _%e195240195887%_))) + (_%hd195241195890%_ (let () (declare (not safe)) - (##car _%e191752192399%_)))) + (##car _%e195240195887%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191754192404%_)) + _%tl195242195892%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191748192388%_)) - (_%__kont199650199651%_ - _%hd191753192402%_ - _%hd191720192694%_ - _%hd191717192686%_) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_))))) + _%tl195236195876%_)) + (_%__kont203091203092%_ + _%hd195241195890%_ + _%hd195208196182%_ + _%hd195205196174%_) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd191714192678%_)) + _%hd195202196166%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191715192680%_)) - (let ((_%e191860191918%_ + (gx#stx-pair? _%tl195203196168%_)) + (let ((_%e195348195406%_ (let () (declare (not safe)) (gx#stx-e - _%tl191715192680%_)))) - (let ((_%tl191862191923%_ + _%tl195203196168%_)))) + (let ((_%tl195350195411%_ (let () (declare (not safe)) - (##cdr _%e191860191918%_))) - (_%hd191861191921%_ + (##cdr _%e195348195406%_))) + (_%hd195349195409%_ (let () (declare (not safe)) - (##car _%e191860191918%_)))) + (##car _%e195348195406%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd191861191921%_)) - (let ((_%e191863191926%_ + _%hd195349195409%_)) + (let ((_%e195351195414%_ (let () (declare (not safe)) (gx#stx-e - _%hd191861191921%_)))) - (let ((_%tl191865191931%_ + _%hd195349195409%_)))) + (let ((_%tl195353195419%_ (let () (declare (not safe)) - (##cdr _%e191863191926%_))) - (_%hd191864191929%_ + (##cdr _%e195351195414%_))) + (_%hd195352195417%_ (let () (declare (not safe)) - (##car _%e191863191926%_)))) + (##car _%e195351195414%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191865191931%_)) + _%tl195353195419%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl191862191923%_)) - (let ((_%e191866191934%_ + (gx#stx-pair? _%tl195350195411%_)) + (let ((_%e195354195422%_ (let () (declare (not safe)) - (gx#stx-e _%tl191862191923%_)))) - (let ((_%tl191868191939%_ + (gx#stx-e _%tl195350195411%_)))) + (let ((_%tl195356195427%_ (let () (declare (not safe)) - (##cdr _%e191866191934%_))) - (_%hd191867191937%_ + (##cdr _%e195354195422%_))) + (_%hd195355195425%_ (let () (declare (not safe)) - (##car _%e191866191934%_)))) + (##car _%e195354195422%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191868191939%_)) + (gx#stx-null? _%tl195356195427%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl191712192672%_)) - (let ((_%e191869191942%_ + (gx#stx-pair? _%tl195200196160%_)) + (let ((_%e195357195430%_ (let () (declare (not safe)) - (gx#stx-e _%tl191712192672%_)))) - (let ((_%tl191871191947%_ + (gx#stx-e _%tl195200196160%_)))) + (let ((_%tl195359195435%_ (let () (declare (not safe)) - (##cdr _%e191869191942%_))) - (_%hd191870191945%_ + (##cdr _%e195357195430%_))) + (_%hd195358195433%_ (let () (declare (not safe)) - (##car _%e191869191942%_)))) + (##car _%e195357195430%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd191870191945%_)) - (let ((_%e191872191950%_ + (gx#stx-pair? _%hd195358195433%_)) + (let ((_%e195360195438%_ (let () (declare (not safe)) (gx#stx-e - _%hd191870191945%_)))) - (let ((_%tl191874191955%_ + _%hd195358195433%_)))) + (let ((_%tl195362195443%_ (let () (declare (not safe)) - (##cdr _%e191872191950%_))) - (_%hd191873191953%_ + (##cdr _%e195360195438%_))) + (_%hd195361195441%_ (let () (declare (not safe)) - (##car _%e191872191950%_)))) + (##car _%e195360195438%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd191873191953%_)) + _%hd195361195441%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd191873191953%_)) + _%hd195361195441%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191874191955%_)) - (let ((_%e191875191958%_ + _%tl195362195443%_)) + (let ((_%e195363195446%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl191874191955%_)))) - (let ((_%tl191877191963%_ + (gx#stx-e _%tl195362195443%_)))) + (let ((_%tl195365195451%_ (let () (declare (not safe)) - (##cdr _%e191875191958%_))) - (_%hd191876191961%_ + (##cdr _%e195363195446%_))) + (_%hd195364195449%_ (let () (declare (not safe)) - (##car _%e191875191958%_)))) + (##car _%e195363195446%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191877191963%_)) + (gx#stx-null? _%tl195365195451%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191871191947%_)) - (_%__kont199658199659%_ - _%hd191876191961%_ - _%hd191867191937%_ - _%hd191864191929%_) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)) + (gx#stx-null? _%tl195359195435%_)) + (_%__kont203099203100%_ + _%hd195364195449%_ + _%hd195355195425%_ + _%hd195352195417%_) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)) - (_%__kont199660199661%_))) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_)))) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)) + (_%__kont203101203102%_))) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont199660199661%_)) - (_%__kont199660199661%_)) - (_%__kont199660199661%_)))) - (_%__kont199660199661%_))))))))) - (_%assert-type190686%_ - (lambda (_%id191592%_ _%t191593%_) - (let _%lp191595%_ ((_%rest191597%_ _%env-type190668%_)) - (let* ((_%rest191598191606%_ _%rest191597%_) - (_%else191600191614%_ (lambda () '#!void)) - (_%K191602191673%_ - (lambda (_%rest191617%_ _%type-info191618%_) - (let* ((_%type-info191619191631%_ - _%type-info191618%_) - (_%else191621191639%_ + (_%__kont203101203102%_)) + (_%__kont203101203102%_)) + (_%__kont203101203102%_)))) + (_%__kont203101203102%_))))))))) + (_%assert-type194179%_ + (lambda (_%id195080%_ _%t195081%_) + (let _%lp195083%_ ((_%rest195085%_ _%env-type194161%_)) + (let* ((_%rest195086195094%_ _%rest195085%_) + (_%else195088195102%_ (lambda () '#!void)) + (_%K195090195161%_ + (lambda (_%rest195105%_ _%type-info195106%_) + (let* ((_%type-info195107195119%_ + _%type-info195106%_) + (_%else195109195127%_ (lambda () - (_%lp191595%_ _%rest191617%_))) - (_%K191623191649%_ - (lambda (_%val191642%_ - _%xt191643%_ - _%xid191644%_) + (_%lp195083%_ _%rest195105%_))) + (_%K195111195137%_ + (lambda (_%val195130%_ + _%xt195131%_ + _%xid195132%_) (if (let () (declare (not safe)) (gx#free-identifier=? - _%id191592%_ - _%xid191644%_)) - (if (eq? _%t191593%_ - _%xt191643%_) - _%val191642%_ - (if _%val191642%_ + _%id195080%_ + _%xid195132%_)) + (if (eq? _%t195081%_ + _%xt195131%_) + _%val195130%_ + (if _%val195130%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%t191593%_ + _%t195081%_ 'gxc#!class::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure-instance-of? - _%xt191643%_ + _%xt195131%_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-subclass? _%t191593%_ _%xt191643%_)) + (gxc#!class-subclass? _%t195081%_ _%xt195131%_)) '#f) '#f) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%t191593%_ + _%t195081%_ 'gxc#!class::t)) (let () (declare (not safe)) (##structure-instance-of? - _%xt191643%_ + _%xt195131%_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-subclass? _%t191593%_ _%xt191643%_))) + (gxc#!class-subclass? _%t195081%_ _%xt195131%_))) '#f - (_%lp191595%_ _%rest191617%_)))) + (_%lp195083%_ _%rest195105%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp191595%_ - _%rest191617%_))))) - (if (pair? _%type-info191619191631%_) - (let ((_%hd191624191652%_ + (_%lp195083%_ + _%rest195105%_))))) + (if (pair? _%type-info195107195119%_) + (let ((_%hd195112195140%_ (let () (declare (not safe)) - (##car _%type-info191619191631%_))) - (_%tl191625191654%_ + (##car _%type-info195107195119%_))) + (_%tl195113195142%_ (let () (declare (not safe)) - (##cdr _%type-info191619191631%_)))) - (let ((_%xid191657%_ - _%hd191624191652%_)) - (if (pair? _%tl191625191654%_) - (let ((_%hd191626191659%_ + (##cdr _%type-info195107195119%_)))) + (let ((_%xid195145%_ + _%hd195112195140%_)) + (if (pair? _%tl195113195142%_) + (let ((_%hd195114195147%_ (let () (declare (not safe)) - (##car _%tl191625191654%_))) - (_%tl191627191661%_ + (##car _%tl195113195142%_))) + (_%tl195115195149%_ (let () (declare (not safe)) - (##cdr _%tl191625191654%_)))) - (let ((_%xt191664%_ - _%hd191626191659%_)) - (if (pair? _%tl191627191661%_) - (let ((_%hd191628191666%_ + (##cdr _%tl195113195142%_)))) + (let ((_%xt195152%_ + _%hd195114195147%_)) + (if (pair? _%tl195115195149%_) + (let ((_%hd195116195154%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%tl191627191661%_))) - (_%tl191629191668%_ + (##car _%tl195115195149%_))) + (_%tl195117195156%_ (let () (declare (not safe)) - (##cdr _%tl191627191661%_)))) - (let ((_%val191671%_ _%hd191628191666%_)) - (if (null? _%tl191629191668%_) - (_%K191623191649%_ - _%val191671%_ - _%xt191664%_ - _%xid191657%_) - (_%else191621191639%_)))) - (_%else191621191639%_)))) + (##cdr _%tl195115195149%_)))) + (let ((_%val195159%_ _%hd195116195154%_)) + (if (null? _%tl195117195156%_) + (_%K195111195137%_ + _%val195159%_ + _%xt195152%_ + _%xid195145%_) + (_%else195109195127%_)))) + (_%else195109195127%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else191621191639%_)))) - (_%else191621191639%_)))))) - (if (pair? _%rest191598191606%_) - (let ((_%hd191603191676%_ + (_%else195109195127%_)))) + (_%else195109195127%_)))))) + (if (pair? _%rest195086195094%_) + (let ((_%hd195091195164%_ (let () (declare (not safe)) - (##car _%rest191598191606%_))) - (_%tl191604191678%_ + (##car _%rest195086195094%_))) + (_%tl195092195166%_ (let () (declare (not safe)) - (##cdr _%rest191598191606%_)))) - (let* ((_%type-info191681%_ _%hd191603191676%_) - (_%rest191683%_ _%tl191604191678%_)) - (_%K191602191673%_ - _%rest191683%_ - _%type-info191681%_))) - (_%else191600191614%_)))))) - (_%assert-count190687%_ - (lambda (_%id191488%_ _%sym191489%_ _%count191490%_) - (let _%lp191492%_ ((_%rest191494%_ _%env-type190668%_)) - (let* ((_%rest191495191503%_ _%rest191494%_) - (_%else191497191511%_ (lambda () '#!void)) - (_%K191499191580%_ - (lambda (_%rest191514%_ _%type-info191515%_) - (let* ((_%type-info191516191530%_ - _%type-info191515%_) - (_%else191518191538%_ + (##cdr _%rest195086195094%_)))) + (let* ((_%type-info195169%_ _%hd195091195164%_) + (_%rest195171%_ _%tl195092195166%_)) + (_%K195090195161%_ + _%rest195171%_ + _%type-info195169%_))) + (_%else195088195102%_)))))) + (_%assert-count194180%_ + (lambda (_%id194976%_ _%sym194977%_ _%count194978%_) + (let _%lp194980%_ ((_%rest194982%_ _%env-type194161%_)) + (let* ((_%rest194983194991%_ _%rest194982%_) + (_%else194985194999%_ (lambda () '#!void)) + (_%K194987195068%_ + (lambda (_%rest195002%_ _%type-info195003%_) + (let* ((_%type-info195004195018%_ + _%type-info195003%_) + (_%else195006195026%_ (lambda () - (_%lp191492%_ _%rest191514%_))) - (_%K191520191549%_ - (lambda (_%val191541%_ - _%xcount191542%_ - _%xsym191543%_ - _%xid191544%_) - (if (and (eq? _%sym191489%_ - _%xsym191543%_) + (_%lp194980%_ _%rest195002%_))) + (_%K195008195037%_ + (lambda (_%val195029%_ + _%xcount195030%_ + _%xsym195031%_ + _%xid195032%_) + (if (and (eq? _%sym194977%_ + _%xsym195031%_) (let () (declare (not safe)) (gx#free-identifier=? - _%id191488%_ - _%xid191544%_))) - (if _%val191541%_ - (fx= _%count191490%_ - _%xcount191542%_) - (if (fx= _%count191490%_ - _%xcount191542%_) + _%id194976%_ + _%xid195032%_))) + (if _%val195029%_ + (fx= _%count194978%_ + _%xcount195030%_) + (if (fx= _%count194978%_ + _%xcount195030%_) '#f - (_%lp191492%_ - _%rest191514%_))) - (_%lp191492%_ - _%rest191514%_))))) - (if (pair? _%type-info191516191530%_) - (let ((_%hd191521191552%_ + (_%lp194980%_ + _%rest195002%_))) + (_%lp194980%_ + _%rest195002%_))))) + (if (pair? _%type-info195004195018%_) + (let ((_%hd195009195040%_ (let () (declare (not safe)) - (##car _%type-info191516191530%_))) - (_%tl191522191554%_ + (##car _%type-info195004195018%_))) + (_%tl195010195042%_ (let () (declare (not safe)) - (##cdr _%type-info191516191530%_)))) - (let ((_%xid191557%_ - _%hd191521191552%_)) - (if (pair? _%tl191522191554%_) - (let ((_%hd191523191559%_ + (##cdr _%type-info195004195018%_)))) + (let ((_%xid195045%_ + _%hd195009195040%_)) + (if (pair? _%tl195010195042%_) + (let ((_%hd195011195047%_ (let () (declare (not safe)) - (##car _%tl191522191554%_))) - (_%tl191524191561%_ + (##car _%tl195010195042%_))) + (_%tl195012195049%_ (let () (declare (not safe)) - (##cdr _%tl191522191554%_)))) - (let ((_%xsym191564%_ - _%hd191523191559%_)) - (if (pair? _%tl191524191561%_) - (let ((_%hd191525191566%_ + (##cdr _%tl195010195042%_)))) + (let ((_%xsym195052%_ + _%hd195011195047%_)) + (if (pair? _%tl195012195049%_) + (let ((_%hd195013195054%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%tl191524191561%_))) - (_%tl191526191568%_ + (##car _%tl195012195049%_))) + (_%tl195014195056%_ (let () (declare (not safe)) - (##cdr _%tl191524191561%_)))) - (let ((_%xcount191571%_ _%hd191525191566%_)) - (if (pair? _%tl191526191568%_) - (let ((_%hd191527191573%_ + (##cdr _%tl195012195049%_)))) + (let ((_%xcount195059%_ _%hd195013195054%_)) + (if (pair? _%tl195014195056%_) + (let ((_%hd195015195061%_ (let () (declare (not safe)) - (##car _%tl191526191568%_))) - (_%tl191528191575%_ + (##car _%tl195014195056%_))) + (_%tl195016195063%_ (let () (declare (not safe)) - (##cdr _%tl191526191568%_)))) - (let ((_%val191578%_ _%hd191527191573%_)) - (if (null? _%tl191528191575%_) - (_%K191520191549%_ - _%val191578%_ - _%xcount191571%_ - _%xsym191564%_ - _%xid191557%_) - (_%else191518191538%_)))) - (_%else191518191538%_)))) - (_%else191518191538%_)))) + (##cdr _%tl195014195056%_)))) + (let ((_%val195066%_ _%hd195015195061%_)) + (if (null? _%tl195016195063%_) + (_%K195008195037%_ + _%val195066%_ + _%xcount195059%_ + _%xsym195052%_ + _%xid195045%_) + (_%else195006195026%_)))) + (_%else195006195026%_)))) + (_%else195006195026%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else191518191538%_)))) - (_%else191518191538%_)))))) - (if (pair? _%rest191495191503%_) - (let ((_%hd191500191583%_ + (_%else195006195026%_)))) + (_%else195006195026%_)))))) + (if (pair? _%rest194983194991%_) + (let ((_%hd194988195071%_ (let () (declare (not safe)) - (##car _%rest191495191503%_))) - (_%tl191501191585%_ + (##car _%rest194983194991%_))) + (_%tl194989195073%_ (let () (declare (not safe)) - (##cdr _%rest191495191503%_)))) - (let* ((_%type-info191588%_ _%hd191500191583%_) - (_%rest191590%_ _%tl191501191585%_)) - (_%K191499191580%_ - _%rest191590%_ - _%type-info191588%_))) - (_%else191497191511%_)))))) - (_%assert-eqf190688%_ - (lambda (_%id191375%_ _%sym191376%_ _%datum191377%_) - (letrec ((_%eqf191379%_ - (lambda (_%sym191483%_) - (let ((_%$e191485%_ _%sym191483%_)) - (if (eq? 'eq? _%$e191485%_) + (##cdr _%rest194983194991%_)))) + (let* ((_%type-info195076%_ _%hd194988195071%_) + (_%rest195078%_ _%tl194989195073%_)) + (_%K194987195068%_ + _%rest195078%_ + _%type-info195076%_))) + (_%else194985194999%_)))))) + (_%assert-eqf194181%_ + (lambda (_%id194863%_ _%sym194864%_ _%datum194865%_) + (letrec ((_%eqf194867%_ + (lambda (_%sym194971%_) + (let ((_%$e194973%_ _%sym194971%_)) + (if (eq? 'eq? _%$e194973%_) eq? - (if (eq? 'eqv? _%$e191485%_) + (if (eq? 'eqv? _%$e194973%_) eqv? - (if (eq? 'equal? _%$e191485%_) + (if (eq? 'equal? _%$e194973%_) equal? (if (eq? 'free-identifier=? - _%$e191485%_) + _%$e194973%_) gx#free-identifier=? (if (eq? 'stx-eq? - _%$e191485%_) + _%$e194973%_) gx#stx-eq? (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected eqf symbol" - _%body190429%_ - _%sym191483%_))))))))))) - (let _%lp191381%_ ((_%rest191383%_ _%env-type190668%_)) - (let* ((_%rest191384191392%_ _%rest191383%_) - (_%else191386191400%_ (lambda () '#!void)) - (_%K191388191471%_ - (lambda (_%rest191403%_ _%type-info191404%_) - (let* ((_%type-info191405191419%_ - _%type-info191404%_) - (_%else191407191427%_ + _%body193922%_ + _%sym194971%_))))))))))) + (let _%lp194869%_ ((_%rest194871%_ _%env-type194161%_)) + (let* ((_%rest194872194880%_ _%rest194871%_) + (_%else194874194888%_ (lambda () '#!void)) + (_%K194876194959%_ + (lambda (_%rest194891%_ _%type-info194892%_) + (let* ((_%type-info194893194907%_ + _%type-info194892%_) + (_%else194895194915%_ (lambda () - (_%lp191381%_ _%rest191403%_))) - (_%K191409191440%_ - (lambda (_%val191430%_ - _%xdatum191431%_ - _%xsym191432%_ - _%xid191433%_) - (if (and (eq? _%sym191376%_ - _%xsym191432%_) + (_%lp194869%_ _%rest194891%_))) + (_%K194897194928%_ + (lambda (_%val194918%_ + _%xdatum194919%_ + _%xsym194920%_ + _%xid194921%_) + (if (and (eq? _%sym194864%_ + _%xsym194920%_) (let () (declare (not safe)) (gx#free-identifier=? - _%id191375%_ - _%xid191433%_))) - (let ((_%=?191435%_ - (_%eqf191379%_ - _%sym191376%_))) - (if _%val191430%_ - (_%=?191435%_ - _%datum191377%_ - _%xdatum191431%_) - (if (_%=?191435%_ - _%datum191377%_ - _%xdatum191431%_) + _%id194863%_ + _%xid194921%_))) + (let ((_%=?194923%_ + (_%eqf194867%_ + _%sym194864%_))) + (if _%val194918%_ + (_%=?194923%_ + _%datum194865%_ + _%xdatum194919%_) + (if (_%=?194923%_ + _%datum194865%_ + _%xdatum194919%_) '#f - (_%lp191381%_ - _%rest191403%_)))) - (_%lp191381%_ - _%rest191403%_))))) - (if (pair? _%type-info191405191419%_) - (let ((_%hd191410191443%_ + (_%lp194869%_ + _%rest194891%_)))) + (_%lp194869%_ + _%rest194891%_))))) + (if (pair? _%type-info194893194907%_) + (let ((_%hd194898194931%_ (let () (declare (not safe)) - (##car _%type-info191405191419%_))) - (_%tl191411191445%_ + (##car _%type-info194893194907%_))) + (_%tl194899194933%_ (let () (declare (not safe)) - (##cdr _%type-info191405191419%_)))) - (let ((_%xid191448%_ - _%hd191410191443%_)) - (if (pair? _%tl191411191445%_) - (let ((_%hd191412191450%_ + (##cdr _%type-info194893194907%_)))) + (let ((_%xid194936%_ + _%hd194898194931%_)) + (if (pair? _%tl194899194933%_) + (let ((_%hd194900194938%_ (let () (declare (not safe)) - (##car _%tl191411191445%_))) - (_%tl191413191452%_ + (##car _%tl194899194933%_))) + (_%tl194901194940%_ (let () (declare (not safe)) - (##cdr _%tl191411191445%_)))) - (let ((_%xsym191455%_ - _%hd191412191450%_)) - (if (pair? _%tl191413191452%_) - (let ((_%hd191414191457%_ + (##cdr _%tl194899194933%_)))) + (let ((_%xsym194943%_ + _%hd194900194938%_)) + (if (pair? _%tl194901194940%_) + (let ((_%hd194902194945%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%tl191413191452%_))) - (_%tl191415191459%_ + (##car _%tl194901194940%_))) + (_%tl194903194947%_ (let () (declare (not safe)) - (##cdr _%tl191413191452%_)))) - (let ((_%xdatum191462%_ _%hd191414191457%_)) - (if (pair? _%tl191415191459%_) - (let ((_%hd191416191464%_ + (##cdr _%tl194901194940%_)))) + (let ((_%xdatum194950%_ _%hd194902194945%_)) + (if (pair? _%tl194903194947%_) + (let ((_%hd194904194952%_ (let () (declare (not safe)) - (##car _%tl191415191459%_))) - (_%tl191417191466%_ + (##car _%tl194903194947%_))) + (_%tl194905194954%_ (let () (declare (not safe)) - (##cdr _%tl191415191459%_)))) - (let ((_%val191469%_ _%hd191416191464%_)) - (if (null? _%tl191417191466%_) - (_%K191409191440%_ - _%val191469%_ - _%xdatum191462%_ - _%xsym191455%_ - _%xid191448%_) - (_%else191407191427%_)))) - (_%else191407191427%_)))) - (_%else191407191427%_)))) + (##cdr _%tl194903194947%_)))) + (let ((_%val194957%_ _%hd194904194952%_)) + (if (null? _%tl194905194954%_) + (_%K194897194928%_ + _%val194957%_ + _%xdatum194950%_ + _%xsym194943%_ + _%xid194936%_) + (_%else194895194915%_)))) + (_%else194895194915%_)))) + (_%else194895194915%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else191407191427%_)))) - (_%else191407191427%_)))))) - (if (pair? _%rest191384191392%_) - (let ((_%hd191389191474%_ + (_%else194895194915%_)))) + (_%else194895194915%_)))))) + (if (pair? _%rest194872194880%_) + (let ((_%hd194877194962%_ (let () (declare (not safe)) - (##car _%rest191384191392%_))) - (_%tl191390191476%_ + (##car _%rest194872194880%_))) + (_%tl194878194964%_ (let () (declare (not safe)) - (##cdr _%rest191384191392%_)))) - (let* ((_%type-info191479%_ - _%hd191389191474%_) - (_%rest191481%_ _%tl191390191476%_)) - (_%K191388191471%_ - _%rest191481%_ - _%type-info191479%_))) - (_%else191386191400%_))))))) - (_%bind-e__198043198044%_ - (lambda (_%bind191277%_ _%body191278%_ _%continue191279%_) - (let _%lp191281%_ ((_%rest191283%_ _%bind191277%_) - (_%subst191284%_ '()) - (_%locals191285%_ '()) - (_%env191286%_ _%env-bind190669%_)) - (let* ((_%rest191287191295%_ _%rest191283%_) - (_%else191289191309%_ + (##cdr _%rest194872194880%_)))) + (let* ((_%type-info194967%_ + _%hd194877194962%_) + (_%rest194969%_ _%tl194878194964%_)) + (_%K194876194959%_ + _%rest194969%_ + _%type-info194967%_))) + (_%else194874194888%_))))))) + (_%bind-e__201484201485%_ + (lambda (_%bind194766%_ _%body194767%_ _%continue194768%_) + (let _%lp194770%_ ((_%rest194772%_ _%bind194766%_) + (_%subst194773%_ '()) + (_%locals194774%_ '()) + (_%env194775%_ _%env-bind194162%_)) + (let* ((_%rest194776194784%_ _%rest194772%_) + (_%else194778194798%_ (lambda () - (let* ((_%body191303%_ - (if (null? _%subst191284%_) - _%body191278%_ + (let* ((_%body194792%_ + (if (null? _%subst194773%_) + _%body194767%_ (let () (declare (not safe)) (gxc#apply-expression-subst*__% '#f - _%subst191284%_ - _%body191278%_)))) - (_%body191306%_ - (_%do-bind!190680%_ - _%env191286%_ + _%subst194773%_ + _%body194767%_)))) + (_%body194795%_ + (_%do-bind!194173%_ + _%env194775%_ (lambda () - (_%continue191279%_ - _%body191303%_))))) - (if (null? _%locals191285%_) - _%body191306%_ + (_%continue194768%_ + _%body194792%_))))) + (if (null? _%locals194774%_) + _%body194795%_ (cons '%#let-values - (cons _%locals191285%_ - (cons _%body191306%_ + (cons _%locals194774%_ + (cons _%body194795%_ '()))))))) - (_%K191291191351%_ - (lambda (_%rest191312%_ _%bind191313%_) - (let* ((_%bind191314191321%_ _%bind191313%_) - (_%E191316191325%_ + (_%K194780194839%_ + (lambda (_%rest194801%_ _%bind194802%_) + (let* ((_%bind194803194810%_ _%bind194802%_) + (_%E194805194813%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind191314191321%_ + _%bind194803194810%_ '([id . expr]))) '#!void)) - (_%K191317191339%_ - (lambda (_%expr191328%_ _%id191329%_) - (let* ((_%sexpr191331%_ + (_%K194806194827%_ + (lambda (_%expr194816%_ _%id194817%_) + (let* ((_%sexpr194819%_ (gxc#apply-generate-runtime-repr - _%expr191328%_)) - (_%$e191333%_ + _%expr194816%_)) + (_%$e194821%_ (let () (declare (not safe)) - (aget__0 _%sexpr191331%_ - _%env-bind190669%_)))) - (if _%$e191333%_ - ((lambda (_%xid191336%_) - (_%lp191281%_ - _%rest191312%_ - (cons (cons _%id191329%_ + (aget__0 _%sexpr194819%_ + _%env-bind194162%_)))) + (if _%$e194821%_ + ((lambda (_%xid194824%_) + (_%lp194770%_ + _%rest194801%_ + (cons (cons _%id194817%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%xid191336%_) - _%subst191284%_) + _%xid194824%_) + _%subst194773%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%locals191285%_ - _%env191286%_)) - _%$e191333%_) - (_%lp191281%_ - _%rest191312%_ - _%subst191284%_ - (cons (cons (cons _%id191329%_ + _%locals194774%_ + _%env194775%_)) + _%$e194821%_) + (_%lp194770%_ + _%rest194801%_ + _%subst194773%_ + (cons (cons (cons _%id194817%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%expr191328%_ '())) - _%locals191285%_) + (cons _%expr194816%_ '())) + _%locals194774%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%sexpr191331%_ - _%id191329%_) - _%env191286%_))))))) - (if (pair? _%bind191314191321%_) - (let ((_%hd191318191342%_ + (cons (cons _%sexpr194819%_ + _%id194817%_) + _%env194775%_))))))) + (if (pair? _%bind194803194810%_) + (let ((_%hd194807194830%_ (let () (declare (not safe)) - (##car _%bind191314191321%_))) - (_%tl191319191344%_ + (##car _%bind194803194810%_))) + (_%tl194808194832%_ (let () (declare (not safe)) - (##cdr _%bind191314191321%_)))) - (let* ((_%id191347%_ - _%hd191318191342%_) - (_%expr191349%_ - _%tl191319191344%_)) - (_%K191317191339%_ - _%expr191349%_ - _%id191347%_))) - (_%E191316191325%_)))))) - (if (pair? _%rest191287191295%_) - (let ((_%hd191292191354%_ + (##cdr _%bind194803194810%_)))) + (let* ((_%id194835%_ + _%hd194807194830%_) + (_%expr194837%_ + _%tl194808194832%_)) + (_%K194806194827%_ + _%expr194837%_ + _%id194835%_))) + (_%E194805194813%_)))))) + (if (pair? _%rest194776194784%_) + (let ((_%hd194781194842%_ (let () (declare (not safe)) - (##car _%rest191287191295%_))) - (_%tl191293191356%_ + (##car _%rest194776194784%_))) + (_%tl194782194844%_ (let () (declare (not safe)) - (##cdr _%rest191287191295%_)))) - (let* ((_%bind191359%_ _%hd191292191354%_) - (_%rest191361%_ _%tl191293191356%_)) - (_%K191291191351%_ - _%rest191361%_ - _%bind191359%_))) - (_%else191289191309%_)))))) - (_%bind-e__0__198045198046%_ - (lambda (_%bind191366%_ _%body191367%_) - (let ((_%continue191369%_ _%optimize-e190682%_)) - (_%bind-e__198043198044%_ - _%bind191366%_ - _%body191367%_ - _%continue191369%_)))) - (_%bind-e190689%_ - (lambda _g201201_ - (let ((_g201202_ + (##cdr _%rest194776194784%_)))) + (let* ((_%bind194847%_ _%hd194781194842%_) + (_%rest194849%_ _%tl194782194844%_)) + (_%K194780194839%_ + _%rest194849%_ + _%bind194847%_))) + (_%else194778194798%_)))))) + (_%bind-e__0__201486201487%_ + (lambda (_%bind194854%_ _%body194855%_) + (let ((_%continue194857%_ _%optimize-e194175%_)) + (_%bind-e__201484201485%_ + _%bind194854%_ + _%body194855%_ + _%continue194857%_)))) + (_%bind-e194182%_ + (lambda _g204642_ + (let ((_g204643_ (let () (declare (not safe)) - (##length _g201201_)))) - (cond ((let () (declare (not safe)) (##fx= _g201202_ 2)) - (apply _%bind-e__0__198045198046%_ _g201201_)) - ((let () (declare (not safe)) (##fx= _g201202_ 3)) - (apply _%bind-e__198043198044%_ _g201201_)) + (##length _g204642_)))) + (cond ((let () (declare (not safe)) (##fx= _g204643_ 2)) + (apply _%bind-e__0__201486201487%_ _g204642_)) + ((let () (declare (not safe)) (##fx= _g204643_ 3)) + (apply _%bind-e__201484201485%_ _g204642_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g201201_)))))) - (_%lookup-block190690%_ - (lambda (_%id191272%_) - (let ((__tmp201203 - (lambda (_%block191274%_) - (let ((__tmp201204 (car _%block191274%_))) + _g204642_)))))) + (_%lookup-block194183%_ + (lambda (_%id194761%_) + (let ((__tmp204644 + (lambda (_%block194763%_) + (let ((__tmp204645 (car _%block194763%_))) (declare (not safe)) (gx#free-identifier=? - __tmp201204 - _%id191272%_))))) + __tmp204645 + _%id194761%_))))) (declare (not safe)) - (__find __tmp201203 _%blocks190432%_)))) - (_%inline-block190691%_ - (lambda (_%block191148%_ _%args191149%_) - (let* ((_%kont191151%_ (caddr _%block191148%_)) - (_%g191153191179%_ - (lambda (_%g191154191176%_) + (__find __tmp204644 _%blocks193925%_)))) + (_%inline-block194184%_ + (lambda (_%block194639%_ _%args194640%_) + (let* ((_%kont194642%_ (caddr _%block194639%_)) + (_%g194644194670%_ + (lambda (_%g194645194667%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g191154191176%_)))) - (_%g191152191269%_ - (lambda (_%g191154191182%_) + _%g194645194667%_)))) + (_%g194643194758%_ + (lambda (_%g194645194673%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g191154191182%_)) - (let ((_%e191157191184%_ + (gx#stx-pair? _%g194645194673%_)) + (let ((_%e194648194675%_ (let () (declare (not safe)) - (gx#stx-e _%g191154191182%_)))) - (let ((_%hd191158191187%_ + (gx#stx-e _%g194645194673%_)))) + (let ((_%hd194649194678%_ (let () (declare (not safe)) - (##car _%e191157191184%_))) - (_%tl191159191189%_ + (##car _%e194648194675%_))) + (_%tl194650194680%_ (let () (declare (not safe)) - (##cdr _%e191157191184%_)))) + (##cdr _%e194648194675%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd191158191187%_)) + _%hd194649194678%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd191158191187%_)) + _%hd194649194678%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191159191189%_)) - (let ((_%e191160191192%_ + _%tl194650194680%_)) + (let ((_%e194651194683%_ (let () (declare (not safe)) (gx#stx-e - _%tl191159191189%_)))) - (let ((_%hd191161191195%_ + _%tl194650194680%_)))) + (let ((_%hd194652194686%_ (let () (declare (not safe)) - (##car _%e191160191192%_))) - (_%tl191162191197%_ + (##car _%e194651194683%_))) + (_%tl194653194688%_ (let () (declare (not safe)) - (##cdr _%e191160191192%_)))) + (##cdr _%e194651194683%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd191161191195%_)) - (let ((_g201205_ + _%hd194652194686%_)) + (let ((_g204646_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd191161191195%_ '0)))) + (gx#syntax-split-splice _%hd194652194686%_ '0)))) (begin - (let ((_g201206_ + (let ((_g204647_ (let () (declare (not safe)) - (if (##values? _g201205_) - (##values-length _g201205_) + (if (##values? _g204646_) + (##values-length _g204646_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g201206_ 2))) - (error "Context expects 2 values" _g201206_))) - (let ((_%target191163191200%_ + (##fx= _g204647_ 2))) + (error "Context expects 2 values" _g204647_))) + (let ((_%target194654194691%_ (let () (declare (not safe)) - (##values-ref _g201205_ 0))) - (_%tl191165191202%_ + (##values-ref _g204646_ 0))) + (_%tl194656194693%_ (let () (declare (not safe)) - (##values-ref _g201205_ 1)))) + (##values-ref _g204646_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl191165191202%_)) - (letrec ((_%loop191166191205%_ - (lambda (_%hd191164191208%_ - _%id191170191210%_) + (gx#stx-null? _%tl194656194693%_)) + (letrec ((_%loop194657194696%_ + (lambda (_%hd194655194699%_ + _%id194661194701%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd191164191208%_)) - (let ((_%e191167191213%_ + _%hd194655194699%_)) + (let ((_%e194658194703%_ (let () (declare (not safe)) (gx#stx-e - _%hd191164191208%_)))) - (let ((_%lp-hd191168191216%_ + _%hd194655194699%_)))) + (let ((_%lp-hd194659194706%_ (let () (declare (not safe)) - (##car _%e191167191213%_))) - (_%lp-tl191169191218%_ + (##car _%e194658194703%_))) + (_%lp-tl194660194708%_ (let () (declare (not safe)) - (##cdr _%e191167191213%_)))) - (_%loop191166191205%_ - _%lp-tl191169191218%_ - (cons _%lp-hd191168191216%_ - _%id191170191210%_)))) - (let ((_%id191171191221%_ - (reverse _%id191170191210%_))) + (##cdr _%e194658194703%_)))) + (_%loop194657194696%_ + _%lp-tl194660194708%_ + (cons _%lp-hd194659194706%_ + _%id194661194701%_)))) + (let ((_%id194662194711%_ + (reverse _%id194661194701%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl191162191197%_)) - (let ((_%e191172191224%_ + _%tl194653194688%_)) + (let ((_%e194663194713%_ (let () (declare (not safe)) (gx#stx-e - _%tl191162191197%_)))) - (let ((_%hd191173191227%_ + _%tl194653194688%_)))) + (let ((_%hd194664194716%_ (let () (declare (not safe)) - (##car _%e191172191224%_))) - (_%tl191174191229%_ + (##car _%e194663194713%_))) + (_%tl194665194718%_ (let () (declare (not safe)) - (##cdr _%e191172191224%_)))) + (##cdr _%e194663194713%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl191174191229%_)) - ((lambda (_%L191232%_ + _%tl194665194718%_)) + ((lambda (_%g194646194721%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L191233%_) - (if (null? (let ((__tmp201207 - (lambda (_%g191252191255%_ - _%g191253191257%_) - (cons _%g191252191255%_ - _%g191253191257%_)))) + _%g194647194722%_) + (if (null? (let ((__tmp204648 + (lambda (_%g194741194744%_ + _%g194742194746%_) + (cons _%g194741194744%_ + _%g194742194746%_)))) (declare (not safe)) - (__foldr1 __tmp201207 '() _%L191233%_))) - _%L191232%_ - (let ((_%subst191267%_ + (__foldr1 + __tmp204648 + '() + _%g194647194722%_))) + _%g194646194721%_ + (let ((_%subst194756%_ (map cons - (let ((__tmp201208 - (lambda (_%g191259191262%_ - _%g191260191264%_) - (cons _%g191259191262%_ - _%g191260191264%_)))) + (let ((__tmp204649 + (lambda (_%g194748194751%_ + _%g194749194753%_) + (cons _%g194748194751%_ + _%g194749194753%_)))) (declare (not safe)) - (__foldr1 __tmp201208 '() _%L191233%_)) - _%args191149%_))) + (__foldr1 + __tmp204649 + '() + _%g194647194722%_)) + _%args194640%_))) (declare (not safe)) (gxc#apply-expression-subst*__% '#f - _%subst191267%_ - _%L191232%_)))) - _%hd191173191227%_ - _%id191171191221%_) - (_%g191153191179%_ _%g191154191182%_)))) + _%subst194756%_ + _%g194646194721%_)))) + _%hd194664194716%_ + _%id194662194711%_) + (_%g194644194670%_ _%g194645194673%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g191153191179%_ - _%g191154191182%_))))))) - (_%loop191166191205%_ - _%target191163191200%_ + (_%g194644194670%_ + _%g194645194673%_))))))) + (_%loop194657194696%_ + _%target194654194691%_ '())) - (_%g191153191179%_ _%g191154191182%_))))) - (_%g191153191179%_ _%g191154191182%_)))) + (_%g194644194670%_ _%g194645194673%_))))) + (_%g194644194670%_ _%g194645194673%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g191153191179%_ - _%g191154191182%_)) - (_%g191153191179%_ - _%g191154191182%_)) - (_%g191153191179%_ - _%g191154191182%_)))) - (_%g191153191179%_ _%g191154191182%_))))) - (_%g191152191269%_ _%kont191151%_)))) - (_%nonlinear-block?190692%_ - (lambda (_%block190697%_) - (letrec ((_%nonlinear-expr?190699%_ - (lambda (_%expr190807%_) - (let* ((_%__stx200116200117%_ _%expr190807%_) - (_%g190813190879%_ + (_%g194644194670%_ + _%g194645194673%_)) + (_%g194644194670%_ + _%g194645194673%_)) + (_%g194644194670%_ + _%g194645194673%_)))) + (_%g194644194670%_ _%g194645194673%_))))) + (_%g194643194758%_ _%kont194642%_)))) + (_%nonlinear-block?194185%_ + (lambda (_%block194190%_) + (letrec ((_%nonlinear-expr?194192%_ + (lambda (_%expr194298%_) + (let* ((_%__stx203557203558%_ _%expr194298%_) + (_%g194304194370%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200116200117%_))))) - (let ((_%__kont200118200119%_ + _%__stx203557203558%_))))) + (let ((_%__kont203559203560%_ (lambda () '#t)) - (_%__kont200120200121%_ - (lambda (_%L191078%_) - (let* ((_%__stx200098200099%_ - _%L191078%_) - (_%g191096191105%_ + (_%__kont203561203562%_ + (lambda (_%g194309194569%_) + (let* ((_%__stx203539203540%_ + _%g194309194569%_) + (_%g194587194596%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200098200099%_))))) - (let ((_%__kont200100200101%_ + _%__stx203539203540%_))))) + (let ((_%__kont203541203542%_ (lambda () '#f)) - (_%__kont200102200103%_ + (_%__kont203543203544%_ (lambda () '#t))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx200098200099%_)) - (let ((_%e191098191117%_ + _%__stx203539203540%_)) + (let ((_%e194589194608%_ (let () (declare (not safe)) (gx#stx-e - _%__stx200098200099%_)))) - (let ((_%tl191100191122%_ + _%__stx203539203540%_)))) + (let ((_%tl194591194613%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e191098191117%_))) - (_%hd191099191120%_ - (let () (declare (not safe)) (##car _%e191098191117%_)))) + (##cdr _%e194589194608%_))) + (_%hd194590194611%_ + (let () (declare (not safe)) (##car _%e194589194608%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd191099191120%_)) + (gx#identifier? _%hd194590194611%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd191099191120%_)) - (_%__kont200100200101%_) - (_%__kont200102200103%_)) - (_%__kont200102200103%_)))) + (gx#stx-eq? '%#call _%hd194590194611%_)) + (_%__kont203541203542%_) + (_%__kont203543203544%_)) + (_%__kont203543203544%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200102200103%_)))))) - (_%__kont200124200125%_ - (lambda (_%L190976%_) - (_%nonlinear-expr?190699%_ - _%L190976%_))) - (_%__kont200126200127%_ - (lambda (_%L190923%_ - _%L190924%_ - _%L190925%_) - (let ((_%$e190944%_ - (_%nonlinear-expr?190699%_ - _%L190924%_))) - (if _%$e190944%_ - _%$e190944%_ - (_%nonlinear-expr?190699%_ - _%L190923%_))))) - (_%__kont200128200129%_ + (_%__kont203543203544%_)))))) + (_%__kont203565203566%_ + (lambda (_%g194341194467%_) + (_%nonlinear-expr?194192%_ + _%g194341194467%_))) + (_%__kont203567203568%_ + (lambda (_%g194351194414%_ + _%g194352194415%_ + _%g194353194416%_) + (let ((_%$e194435%_ + (_%nonlinear-expr?194192%_ + _%g194352194415%_))) + (if _%$e194435%_ + _%$e194435%_ + (_%nonlinear-expr?194192%_ + _%g194351194414%_))))) + (_%__kont203569203570%_ (lambda () '#f))) - (let* ((_%__match200179200180%_ - (lambda (_%e190851190952%_ - _%hd190852190955%_ - _%tl190853190957%_ - _%e190854190960%_ - _%hd190855190963%_ - _%tl190856190965%_) + (let* ((_%__match203620203621%_ + (lambda (_%e194342194443%_ + _%hd194343194446%_ + _%tl194344194448%_ + _%e194345194451%_ + _%hd194346194454%_ + _%tl194347194456%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl190856190965%_)) - (let ((_%e190857190968%_ + _%tl194347194456%_)) + (let ((_%e194348194459%_ (let () (declare (not safe)) (gx#stx-e - _%tl190856190965%_)))) - (let ((_%tl190859190973%_ + _%tl194347194456%_)))) + (let ((_%tl194350194464%_ (let () (declare (not safe)) - (##cdr _%e190857190968%_))) - (_%hd190858190971%_ + (##cdr _%e194348194459%_))) + (_%hd194349194462%_ (let () (declare (not safe)) - (##car _%e190857190968%_)))) + (##car _%e194348194459%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl190859190973%_)) - (_%__kont200124200125%_ - _%hd190858190971%_) - (_%__kont200128200129%_)))) - (_%__kont200128200129%_)))) - (_%__match200163200164%_ - (lambda (_%e190819190994%_ - _%hd190820190997%_ - _%tl190821190999%_ - _%e190822191002%_ - _%hd190823191005%_ - _%tl190824191007%_ - _%__splice200122200123%_ - _%target190825191010%_ - _%tl190827191012%_) - (letrec ((_%loop190828191015%_ - (lambda (_%hd190826191018%_) + _%tl194350194464%_)) + (_%__kont203565203566%_ + _%hd194349194462%_) + (_%__kont203569203570%_)))) + (_%__kont203569203570%_)))) + (_%__match203604203605%_ + (lambda (_%e194310194485%_ + _%hd194311194488%_ + _%tl194312194490%_ + _%e194313194493%_ + _%hd194314194496%_ + _%tl194315194498%_ + _%__splice203563203564%_ + _%target194316194501%_ + _%tl194318194503%_) + (letrec ((_%loop194319194506%_ + (lambda (_%hd194317194509%_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%hd190826191018%_)) - (let ((_%e190829191021%_ + (gx#stx-pair? _%hd194317194509%_)) + (let ((_%e194320194512%_ (let () (declare (not safe)) - (gx#stx-e _%hd190826191018%_)))) - (let ((_%lp-tl190831191026%_ + (gx#stx-e _%hd194317194509%_)))) + (let ((_%lp-tl194322194517%_ (let () (declare (not safe)) - (##cdr _%e190829191021%_))) - (_%lp-hd190830191024%_ + (##cdr _%e194320194512%_))) + (_%lp-hd194321194515%_ (let () (declare (not safe)) - (##car _%e190829191021%_)))) + (##car _%e194320194512%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd190830191024%_)) - (let ((_%e190832191029%_ + (gx#stx-pair? _%lp-hd194321194515%_)) + (let ((_%e194323194520%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd190830191024%_)))) - (let ((_%tl190834191034%_ + (gx#stx-e _%lp-hd194321194515%_)))) + (let ((_%tl194325194525%_ (let () (declare (not safe)) - (##cdr _%e190832191029%_))) - (_%hd190833191032%_ + (##cdr _%e194323194520%_))) + (_%hd194324194523%_ (let () (declare (not safe)) - (##car _%e190832191029%_)))) + (##car _%e194323194520%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd190833191032%_)) - (let ((_%e190835191037%_ + (gx#stx-pair? _%hd194324194523%_)) + (let ((_%e194326194528%_ (let () (declare (not safe)) (gx#stx-e - _%hd190833191032%_)))) - (let ((_%tl190837191042%_ + _%hd194324194523%_)))) + (let ((_%tl194328194533%_ (let () (declare (not safe)) - (##cdr _%e190835191037%_))) - (_%hd190836191040%_ + (##cdr _%e194326194528%_))) + (_%hd194327194531%_ (let () (declare (not safe)) - (##car _%e190835191037%_)))) + (##car _%e194326194528%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl190837191042%_)) + _%tl194328194533%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl190834191034%_)) - (let ((_%e190838191045%_ + _%tl194325194525%_)) + (let ((_%e194329194536%_ (let () (declare (not safe)) (gx#stx-e - _%tl190834191034%_)))) - (let ((_%tl190840191050%_ + _%tl194325194525%_)))) + (let ((_%tl194331194541%_ (let () (declare (not safe)) - (##cdr _%e190838191045%_))) - (_%hd190839191048%_ + (##cdr _%e194329194536%_))) + (_%hd194330194539%_ (let () (declare (not safe)) - (##car _%e190838191045%_)))) + (##car _%e194329194536%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd190839191048%_)) - (let ((_%e190841191053%_ + _%hd194330194539%_)) + (let ((_%e194332194544%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd190839191048%_)))) - (let ((_%tl190843191058%_ + (gx#stx-e _%hd194330194539%_)))) + (let ((_%tl194334194549%_ (let () (declare (not safe)) - (##cdr _%e190841191053%_))) - (_%hd190842191056%_ + (##cdr _%e194332194544%_))) + (_%hd194333194547%_ (let () (declare (not safe)) - (##car _%e190841191053%_)))) + (##car _%e194332194544%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd190842191056%_)) + (gx#identifier? _%hd194333194547%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd190842191056%_)) + (gx#stx-eq? '%#ref _%hd194333194547%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl190843191058%_)) - (let ((_%e190844191061%_ + (gx#stx-pair? _%tl194334194549%_)) + (let ((_%e194335194552%_ (let () (declare (not safe)) - (gx#stx-e _%tl190843191058%_)))) - (let ((_%tl190846191066%_ + (gx#stx-e _%tl194334194549%_)))) + (let ((_%tl194337194557%_ (let () (declare (not safe)) - (##cdr _%e190844191061%_))) - (_%hd190845191064%_ + (##cdr _%e194335194552%_))) + (_%hd194336194555%_ (let () (declare (not safe)) - (##car _%e190844191061%_)))) + (##car _%e194335194552%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl190846191066%_)) + (gx#stx-null? _%tl194337194557%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl190840191050%_)) - (_%loop190828191015%_ - _%lp-tl190831191026%_) - (_%__match200179200180%_ - _%e190819190994%_ - _%hd190820190997%_ - _%tl190821190999%_ - _%e190822191002%_ - _%hd190823191005%_ - _%tl190824191007%_)) - (_%__match200179200180%_ - _%e190819190994%_ - _%hd190820190997%_ - _%tl190821190999%_ - _%e190822191002%_ - _%hd190823191005%_ - _%tl190824191007%_)))) - (_%__match200179200180%_ - _%e190819190994%_ - _%hd190820190997%_ - _%tl190821190999%_ - _%e190822191002%_ - _%hd190823191005%_ - _%tl190824191007%_)) - (_%__match200179200180%_ - _%e190819190994%_ - _%hd190820190997%_ - _%tl190821190999%_ - _%e190822191002%_ - _%hd190823191005%_ - _%tl190824191007%_)) - (_%__match200179200180%_ - _%e190819190994%_ - _%hd190820190997%_ - _%tl190821190999%_ - _%e190822191002%_ - _%hd190823191005%_ - _%tl190824191007%_)))) - (_%__match200179200180%_ - _%e190819190994%_ - _%hd190820190997%_ - _%tl190821190999%_ - _%e190822191002%_ - _%hd190823191005%_ - _%tl190824191007%_)))) + _%tl194331194541%_)) + (_%loop194319194506%_ + _%lp-tl194322194517%_) + (_%__match203620203621%_ + _%e194310194485%_ + _%hd194311194488%_ + _%tl194312194490%_ + _%e194313194493%_ + _%hd194314194496%_ + _%tl194315194498%_)) + (_%__match203620203621%_ + _%e194310194485%_ + _%hd194311194488%_ + _%tl194312194490%_ + _%e194313194493%_ + _%hd194314194496%_ + _%tl194315194498%_)))) + (_%__match203620203621%_ + _%e194310194485%_ + _%hd194311194488%_ + _%tl194312194490%_ + _%e194313194493%_ + _%hd194314194496%_ + _%tl194315194498%_)) + (_%__match203620203621%_ + _%e194310194485%_ + _%hd194311194488%_ + _%tl194312194490%_ + _%e194313194493%_ + _%hd194314194496%_ + _%tl194315194498%_)) + (_%__match203620203621%_ + _%e194310194485%_ + _%hd194311194488%_ + _%tl194312194490%_ + _%e194313194493%_ + _%hd194314194496%_ + _%tl194315194498%_)))) + (_%__match203620203621%_ + _%e194310194485%_ + _%hd194311194488%_ + _%tl194312194490%_ + _%e194313194493%_ + _%hd194314194496%_ + _%tl194315194498%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match200179200180%_ - _%e190819190994%_ - _%hd190820190997%_ - _%tl190821190999%_ - _%e190822191002%_ - _%hd190823191005%_ - _%tl190824191007%_)) - (_%__match200179200180%_ - _%e190819190994%_ - _%hd190820190997%_ - _%tl190821190999%_ - _%e190822191002%_ - _%hd190823191005%_ - _%tl190824191007%_)))) - (_%__match200179200180%_ - _%e190819190994%_ - _%hd190820190997%_ - _%tl190821190999%_ - _%e190822191002%_ - _%hd190823191005%_ - _%tl190824191007%_)))) - (_%__match200179200180%_ - _%e190819190994%_ - _%hd190820190997%_ - _%tl190821190999%_ - _%e190822191002%_ - _%hd190823191005%_ - _%tl190824191007%_)))) + (_%__match203620203621%_ + _%e194310194485%_ + _%hd194311194488%_ + _%tl194312194490%_ + _%e194313194493%_ + _%hd194314194496%_ + _%tl194315194498%_)) + (_%__match203620203621%_ + _%e194310194485%_ + _%hd194311194488%_ + _%tl194312194490%_ + _%e194313194493%_ + _%hd194314194496%_ + _%tl194315194498%_)))) + (_%__match203620203621%_ + _%e194310194485%_ + _%hd194311194488%_ + _%tl194312194490%_ + _%e194313194493%_ + _%hd194314194496%_ + _%tl194315194498%_)))) + (_%__match203620203621%_ + _%e194310194485%_ + _%hd194311194488%_ + _%tl194312194490%_ + _%e194313194493%_ + _%hd194314194496%_ + _%tl194315194498%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl190824191007%_)) - (let ((_%e190847191070%_ + (gx#stx-pair? _%tl194315194498%_)) + (let ((_%e194338194561%_ (let () (declare (not safe)) - (gx#stx-e _%tl190824191007%_)))) - (let ((_%tl190849191075%_ + (gx#stx-e _%tl194315194498%_)))) + (let ((_%tl194340194566%_ (let () (declare (not safe)) - (##cdr _%e190847191070%_))) - (_%hd190848191073%_ + (##cdr _%e194338194561%_))) + (_%hd194339194564%_ (let () (declare (not safe)) - (##car _%e190847191070%_)))) + (##car _%e194338194561%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl190849191075%_)) - (_%__kont200120200121%_ _%hd190848191073%_) - (_%__kont200128200129%_)))) - (_%__kont200128200129%_)))))) + (gx#stx-null? _%tl194340194566%_)) + (_%__kont203561203562%_ _%hd194339194564%_) + (_%__kont203569203570%_)))) + (_%__kont203569203570%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop190828191015%_ - _%target190825191010%_))))) + (_%loop194319194506%_ + _%target194316194501%_))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx200116200117%_)) - (let ((_%e190815191135%_ + _%__stx203557203558%_)) + (let ((_%e194306194626%_ (let () (declare (not safe)) (gx#stx-e - _%__stx200116200117%_)))) - (let ((_%tl190817191140%_ + _%__stx203557203558%_)))) + (let ((_%tl194308194631%_ (let () (declare (not safe)) - (##cdr _%e190815191135%_))) - (_%hd190816191138%_ + (##cdr _%e194306194626%_))) + (_%hd194307194629%_ (let () (declare (not safe)) - (##car _%e190815191135%_)))) + (##car _%e194306194626%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd190816191138%_)) + _%hd194307194629%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd190816191138%_)) - (_%__kont200118200119%_) + _%hd194307194629%_)) + (_%__kont203559203560%_) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd190816191138%_)) + _%hd194307194629%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl190817191140%_)) - (let ((_%e190822191002%_ + (gx#stx-pair? _%tl194308194631%_)) + (let ((_%e194313194493%_ (let () (declare (not safe)) - (gx#stx-e _%tl190817191140%_)))) - (let ((_%tl190824191007%_ + (gx#stx-e _%tl194308194631%_)))) + (let ((_%tl194315194498%_ (let () (declare (not safe)) - (##cdr _%e190822191002%_))) - (_%hd190823191005%_ + (##cdr _%e194313194493%_))) + (_%hd194314194496%_ (let () (declare (not safe)) - (##car _%e190822191002%_)))) + (##car _%e194313194493%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd190823191005%_)) - (let ((_%__splice200122200123%_ + (gx#stx-pair/null? _%hd194314194496%_)) + (let ((_%__splice203563203564%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%hd190823191005%_ + _%hd194314194496%_ '0)))) - (let ((_%tl190827191012%_ + (let ((_%tl194318194503%_ (let () (declare (not safe)) (##vector-ref - _%__splice200122200123%_ + _%__splice203563203564%_ '1))) - (_%target190825191010%_ + (_%target194316194501%_ (let () (declare (not safe)) (##vector-ref - _%__splice200122200123%_ + _%__splice203563203564%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl190827191012%_)) - (_%__match200163200164%_ - _%e190815191135%_ - _%hd190816191138%_ - _%tl190817191140%_ - _%e190822191002%_ - _%hd190823191005%_ - _%tl190824191007%_ - _%__splice200122200123%_ - _%target190825191010%_ - _%tl190827191012%_) + (gx#stx-null? _%tl194318194503%_)) + (_%__match203604203605%_ + _%e194306194626%_ + _%hd194307194629%_ + _%tl194308194631%_ + _%e194313194493%_ + _%hd194314194496%_ + _%tl194315194498%_ + _%__splice203563203564%_ + _%target194316194501%_ + _%tl194318194503%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl190824191007%_)) - (let ((_%e190857190968%_ + (gx#stx-pair? _%tl194315194498%_)) + (let ((_%e194348194459%_ (let () (declare (not safe)) (gx#stx-e - _%tl190824191007%_)))) - (let ((_%tl190859190973%_ + _%tl194315194498%_)))) + (let ((_%tl194350194464%_ (let () (declare (not safe)) - (##cdr _%e190857190968%_))) - (_%hd190858190971%_ + (##cdr _%e194348194459%_))) + (_%hd194349194462%_ (let () (declare (not safe)) - (##car _%e190857190968%_)))) + (##car _%e194348194459%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl190859190973%_)) - (_%__kont200124200125%_ - _%hd190858190971%_) - (_%__kont200128200129%_)))) - (_%__kont200128200129%_))))) + _%tl194350194464%_)) + (_%__kont203565203566%_ + _%hd194349194462%_) + (_%__kont203569203570%_)))) + (_%__kont203569203570%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl190824191007%_)) - (let ((_%e190857190968%_ + (gx#stx-pair? _%tl194315194498%_)) + (let ((_%e194348194459%_ (let () (declare (not safe)) - (gx#stx-e _%tl190824191007%_)))) - (let ((_%tl190859190973%_ + (gx#stx-e _%tl194315194498%_)))) + (let ((_%tl194350194464%_ (let () (declare (not safe)) - (##cdr _%e190857190968%_))) - (_%hd190858190971%_ + (##cdr _%e194348194459%_))) + (_%hd194349194462%_ (let () (declare (not safe)) - (##car _%e190857190968%_)))) + (##car _%e194348194459%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl190859190973%_)) - (_%__kont200124200125%_ - _%hd190858190971%_) - (_%__kont200128200129%_)))) - (_%__kont200128200129%_))))) - (_%__kont200128200129%_)) + (gx#stx-null? _%tl194350194464%_)) + (_%__kont203565203566%_ + _%hd194349194462%_) + (_%__kont203569203570%_)))) + (_%__kont203569203570%_))))) + (_%__kont203569203570%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd190816191138%_)) + (gx#stx-eq? '%#if _%hd194307194629%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl190817191140%_)) - (let ((_%e190866190899%_ + (gx#stx-pair? _%tl194308194631%_)) + (let ((_%e194357194390%_ (let () (declare (not safe)) - (gx#stx-e _%tl190817191140%_)))) - (let ((_%tl190868190904%_ + (gx#stx-e _%tl194308194631%_)))) + (let ((_%tl194359194395%_ (let () (declare (not safe)) - (##cdr _%e190866190899%_))) - (_%hd190867190902%_ + (##cdr _%e194357194390%_))) + (_%hd194358194393%_ (let () (declare (not safe)) - (##car _%e190866190899%_)))) + (##car _%e194357194390%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl190868190904%_)) - (let ((_%e190869190907%_ + (gx#stx-pair? _%tl194359194395%_)) + (let ((_%e194360194398%_ (let () (declare (not safe)) - (gx#stx-e _%tl190868190904%_)))) - (let ((_%tl190871190912%_ + (gx#stx-e _%tl194359194395%_)))) + (let ((_%tl194362194403%_ (let () (declare (not safe)) - (##cdr _%e190869190907%_))) - (_%hd190870190910%_ + (##cdr _%e194360194398%_))) + (_%hd194361194401%_ (let () (declare (not safe)) - (##car _%e190869190907%_)))) + (##car _%e194360194398%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl190871190912%_)) - (let ((_%e190872190915%_ + (gx#stx-pair? _%tl194362194403%_)) + (let ((_%e194363194406%_ (let () (declare (not safe)) (gx#stx-e - _%tl190871190912%_)))) - (let ((_%tl190874190920%_ + _%tl194362194403%_)))) + (let ((_%tl194365194411%_ (let () (declare (not safe)) - (##cdr _%e190872190915%_))) - (_%hd190873190918%_ + (##cdr _%e194363194406%_))) + (_%hd194364194409%_ (let () (declare (not safe)) - (##car _%e190872190915%_)))) + (##car _%e194363194406%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl190874190920%_)) - (_%__kont200126200127%_ - _%hd190873190918%_ - _%hd190870190910%_ - _%hd190867190902%_) - (_%__kont200128200129%_)))) - (_%__kont200128200129%_)))) - (_%__kont200128200129%_)))) - (_%__kont200128200129%_)) - (_%__kont200128200129%_)))) + _%tl194365194411%_)) + (_%__kont203567203568%_ + _%hd194364194409%_ + _%hd194361194401%_ + _%hd194358194393%_) + (_%__kont203569203570%_)))) + (_%__kont203569203570%_)))) + (_%__kont203569203570%_)))) + (_%__kont203569203570%_)) + (_%__kont203569203570%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200128200129%_)))) - (_%__kont200128200129%_)))))))) - (let* ((_%kont190701%_ (caddr _%block190697%_)) - (_%g190703190729%_ - (lambda (_%g190704190726%_) + (_%__kont203569203570%_)))) + (_%__kont203569203570%_)))))))) + (let* ((_%kont194194%_ (caddr _%block194190%_)) + (_%g194196194222%_ + (lambda (_%g194197194219%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g190704190726%_)))) - (_%g190702190804%_ - (lambda (_%g190704190732%_) + _%g194197194219%_)))) + (_%g194195194295%_ + (lambda (_%g194197194225%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g190704190732%_)) - (let ((_%e190707190734%_ + (gx#stx-pair? _%g194197194225%_)) + (let ((_%e194200194227%_ (let () (declare (not safe)) - (gx#stx-e _%g190704190732%_)))) - (let ((_%hd190708190737%_ + (gx#stx-e _%g194197194225%_)))) + (let ((_%hd194201194230%_ (let () (declare (not safe)) - (##car _%e190707190734%_))) - (_%tl190709190739%_ + (##car _%e194200194227%_))) + (_%tl194202194232%_ (let () (declare (not safe)) - (##cdr _%e190707190734%_)))) + (##cdr _%e194200194227%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd190708190737%_)) + _%hd194201194230%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd190708190737%_)) + _%hd194201194230%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl190709190739%_)) - (let ((_%e190710190742%_ + _%tl194202194232%_)) + (let ((_%e194203194235%_ (let () (declare (not safe)) (gx#stx-e - _%tl190709190739%_)))) - (let ((_%hd190711190745%_ + _%tl194202194232%_)))) + (let ((_%hd194204194238%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e190710190742%_))) - (_%tl190712190747%_ - (let () (declare (not safe)) (##cdr _%e190710190742%_)))) + (##car _%e194203194235%_))) + (_%tl194205194240%_ + (let () (declare (not safe)) (##cdr _%e194203194235%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd190711190745%_)) - (let ((_g201209_ + (gx#stx-pair/null? _%hd194204194238%_)) + (let ((_g204650_ (let () (declare (not safe)) - (gx#syntax-split-splice _%hd190711190745%_ '0)))) + (gx#syntax-split-splice _%hd194204194238%_ '0)))) (begin - (let ((_g201210_ + (let ((_g204651_ (let () (declare (not safe)) - (if (##values? _g201209_) - (##values-length _g201209_) + (if (##values? _g204650_) + (##values-length _g204650_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g201210_ 2))) - (error "Context expects 2 values" _g201210_))) - (let ((_%target190713190750%_ + (##fx= _g204651_ 2))) + (error "Context expects 2 values" _g204651_))) + (let ((_%target194206194243%_ (let () (declare (not safe)) - (##values-ref _g201209_ 0))) - (_%tl190715190752%_ + (##values-ref _g204650_ 0))) + (_%tl194208194245%_ (let () (declare (not safe)) - (##values-ref _g201209_ 1)))) + (##values-ref _g204650_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl190715190752%_)) - (letrec ((_%loop190716190755%_ - (lambda (_%hd190714190758%_ - _%id190720190760%_) + (gx#stx-null? _%tl194208194245%_)) + (letrec ((_%loop194209194248%_ + (lambda (_%hd194207194251%_ + _%id194213194253%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd190714190758%_)) - (let ((_%e190717190763%_ + _%hd194207194251%_)) + (let ((_%e194210194255%_ (let () (declare (not safe)) (gx#stx-e - _%hd190714190758%_)))) - (let ((_%lp-hd190718190766%_ + _%hd194207194251%_)))) + (let ((_%lp-hd194211194258%_ (let () (declare (not safe)) - (##car _%e190717190763%_))) - (_%lp-tl190719190768%_ + (##car _%e194210194255%_))) + (_%lp-tl194212194260%_ (let () (declare (not safe)) - (##cdr _%e190717190763%_)))) - (_%loop190716190755%_ - _%lp-tl190719190768%_ - (cons _%lp-hd190718190766%_ - _%id190720190760%_)))) - (let ((_%id190721190771%_ - (reverse _%id190720190760%_))) + (##cdr _%e194210194255%_)))) + (_%loop194209194248%_ + _%lp-tl194212194260%_ + (cons _%lp-hd194211194258%_ + _%id194213194253%_)))) + (let ((_%id194214194263%_ + (reverse _%id194213194253%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl190712190747%_)) - (let ((_%e190722190774%_ + _%tl194205194240%_)) + (let ((_%e194215194265%_ (let () (declare (not safe)) (gx#stx-e - _%tl190712190747%_)))) - (let ((_%hd190723190777%_ + _%tl194205194240%_)))) + (let ((_%hd194216194268%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e190722190774%_))) - (_%tl190724190779%_ - (let () (declare (not safe)) (##cdr _%e190722190774%_)))) + (##car _%e194215194265%_))) + (_%tl194217194270%_ + (let () (declare (not safe)) (##cdr _%e194215194265%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl190724190779%_)) - ((lambda (_%L190782%_ _%L190783%_) - (_%nonlinear-expr?190699%_ _%L190782%_)) - _%hd190723190777%_ - _%id190721190771%_) - (_%g190703190729%_ _%g190704190732%_)))) + (gx#stx-null? _%tl194217194270%_)) + ((lambda (_%g194198194273%_ _%g194199194274%_) + (_%nonlinear-expr?194192%_ _%g194198194273%_)) + _%hd194216194268%_ + _%id194214194263%_) + (_%g194196194222%_ _%g194197194225%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g190703190729%_ - _%g190704190732%_))))))) - (_%loop190716190755%_ - _%target190713190750%_ + (_%g194196194222%_ + _%g194197194225%_))))))) + (_%loop194209194248%_ + _%target194206194243%_ '())) - (_%g190703190729%_ _%g190704190732%_))))) - (_%g190703190729%_ _%g190704190732%_)))) + (_%g194196194222%_ _%g194197194225%_))))) + (_%g194196194222%_ _%g194197194225%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g190703190729%_ - _%g190704190732%_)) - (_%g190703190729%_ - _%g190704190732%_)) - (_%g190703190729%_ - _%g190704190732%_)))) - (_%g190703190729%_ _%g190704190732%_))))) - (_%g190702190804%_ _%kont190701%_)))))) - (_%do-assert190671%_ - _%assert190430%_ + (_%g194196194222%_ + _%g194197194225%_)) + (_%g194196194222%_ + _%g194197194225%_)) + (_%g194196194222%_ + _%g194197194225%_)))) + (_%g194196194222%_ _%g194197194225%_))))) + (_%g194195194295%_ _%kont194194%_)))))) + (_%do-assert194164%_ + _%assert193923%_ (lambda () - (_%do-bind190678%_ - _%bind190431%_ + (_%do-bind194171%_ + _%bind193924%_ (lambda () (if (memq '@match:prefix (let () (declare (not safe)) (gxc#current-annotation-optimizer))) - (_%do-splice!190681%_ - (lambda () (_%optimize-e190682%_ _%body190429%_))) - (_%optimize-e190682%_ _%body190429%_))))))))) + (_%do-splice!194174%_ + (lambda () (_%optimize-e194175%_ _%body193922%_))) + (_%optimize-e194175%_ _%body193922%_))))))))) (define gxc#optimize-match-prune-blocks - (lambda (_%blocks190341%_ _%konts190342%_) - (letrec* ((_%rtab190344%_ + (lambda (_%blocks193834%_ _%konts193835%_) + (letrec* ((_%rtab193837%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%block190346%_) - (let ((__tmp201211 (caddr _%block190346%_))) + (lambda (_%block193839%_) + (let ((__tmp204652 (caddr _%block193839%_))) (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab190344%_ - __tmp201211))) - _%konts190342%_) - (let _%lp190348%_ ((_%rest190350%_ _%blocks190341%_) - (_%r190351%_ '())) - (let* ((_%rest190352190360%_ _%rest190350%_) - (_%else190354190368%_ (lambda () (reverse _%r190351%_))) - (_%K190356190417%_ - (lambda (_%rest190371%_ _%block190372%_) - (let* ((_%block190373190384%_ _%block190372%_) - (_%E190375190388%_ + _%rtab193837%_ + __tmp204652))) + _%konts193835%_) + (let _%lp193841%_ ((_%rest193843%_ _%blocks193834%_) + (_%r193844%_ '())) + (let* ((_%rest193845193853%_ _%rest193843%_) + (_%else193847193861%_ (lambda () (reverse _%r193844%_))) + (_%K193849193910%_ + (lambda (_%rest193864%_ _%block193865%_) + (let* ((_%block193866193877%_ _%block193865%_) + (_%E193868193881%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block190373190384%_ + _%block193866193877%_ '([name type kont . _]))) '#!void)) - (_%K190376190395%_ - (lambda (_%kont190391%_ - _%type190392%_ - _%name190393%_) - (if (let ((__tmp201212 + (_%K193869193888%_ + (lambda (_%kont193884%_ + _%type193885%_ + _%name193886%_) + (if (let ((__tmp204653 (let () (declare (not safe)) (gxc#identifier-symbol - _%name190393%_)))) + _%name193886%_)))) (declare (not safe)) - (__hash-get _%rtab190344%_ __tmp201212)) + (__hash-get _%rtab193837%_ __tmp204653)) (begin (let () (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab190344%_ - _%kont190391%_)) - (_%lp190348%_ - _%rest190371%_ - (cons _%block190372%_ _%r190351%_))) - (_%lp190348%_ - _%rest190371%_ - _%r190351%_))))) - (if (pair? _%block190373190384%_) - (let ((_%hd190377190398%_ + _%rtab193837%_ + _%kont193884%_)) + (_%lp193841%_ + _%rest193864%_ + (cons _%block193865%_ _%r193844%_))) + (_%lp193841%_ + _%rest193864%_ + _%r193844%_))))) + (if (pair? _%block193866193877%_) + (let ((_%hd193870193891%_ (let () (declare (not safe)) - (##car _%block190373190384%_))) - (_%tl190378190400%_ + (##car _%block193866193877%_))) + (_%tl193871193893%_ (let () (declare (not safe)) - (##cdr _%block190373190384%_)))) - (let ((_%name190403%_ _%hd190377190398%_)) - (if (pair? _%tl190378190400%_) - (let ((_%hd190379190405%_ + (##cdr _%block193866193877%_)))) + (let ((_%name193896%_ _%hd193870193891%_)) + (if (pair? _%tl193871193893%_) + (let ((_%hd193872193898%_ (let () (declare (not safe)) - (##car _%tl190378190400%_))) - (_%tl190380190407%_ + (##car _%tl193871193893%_))) + (_%tl193873193900%_ (let () (declare (not safe)) - (##cdr _%tl190378190400%_)))) - (let ((_%type190410%_ - _%hd190379190405%_)) - (if (pair? _%tl190380190407%_) - (let* ((_%hd190381190412%_ + (##cdr _%tl193871193893%_)))) + (let ((_%type193903%_ + _%hd193872193898%_)) + (if (pair? _%tl193873193900%_) + (let* ((_%hd193874193905%_ (let () (declare (not safe)) - (##car _%tl190380190407%_))) - (_%kont190415%_ - _%hd190381190412%_)) - (_%K190376190395%_ - _%kont190415%_ - _%type190410%_ - _%name190403%_)) - (_%E190375190388%_)))) - (_%E190375190388%_)))) - (_%E190375190388%_)))))) - (if (pair? _%rest190352190360%_) - (let ((_%hd190357190420%_ + (##car _%tl193873193900%_))) + (_%kont193908%_ + _%hd193874193905%_)) + (_%K193869193888%_ + _%kont193908%_ + _%type193903%_ + _%name193896%_)) + (_%E193868193881%_)))) + (_%E193868193881%_)))) + (_%E193868193881%_)))))) + (if (pair? _%rest193845193853%_) + (let ((_%hd193850193913%_ (let () (declare (not safe)) - (##car _%rest190352190360%_))) - (_%tl190358190422%_ + (##car _%rest193845193853%_))) + (_%tl193851193915%_ (let () (declare (not safe)) - (##cdr _%rest190352190360%_)))) - (let* ((_%block190425%_ _%hd190357190420%_) - (_%rest190427%_ _%tl190358190422%_)) - (_%K190356190417%_ _%rest190427%_ _%block190425%_))) - (_%else190354190368%_))))))) + (##cdr _%rest193845193853%_)))) + (let* ((_%block193918%_ _%hd193850193913%_) + (_%rest193920%_ _%tl193851193915%_)) + (_%K193849193910%_ _%rest193920%_ _%block193918%_))) + (_%else193847193861%_))))))) (define gxc#optimize-match-fuse-restart-blocks - (lambda (_%blocks190265%_ _%konts190266%_) - (let* ((_%blocks190267190283%_ _%blocks190265%_) - (_%else190269190291%_ (lambda () _%blocks190265%_)) - (_%K190271190309%_ - (lambda (_%rest190294%_ _%kont190295%_ _%name190296%_) - (letrec* ((_%rtab190298%_ + (lambda (_%blocks193758%_ _%konts193759%_) + (let* ((_%blocks193760193776%_ _%blocks193758%_) + (_%else193762193784%_ (lambda () _%blocks193758%_)) + (_%K193764193802%_ + (lambda (_%rest193787%_ _%kont193788%_ _%name193789%_) + (letrec* ((_%rtab193791%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%block190300%_) - (let ((__tmp201213 (caddr _%block190300%_))) + (lambda (_%block193793%_) + (let ((__tmp204654 (caddr _%block193793%_))) (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab190298%_ - __tmp201213))) - _%konts190266%_) - (if (let ((__tmp201214 - (let ((__tmp201215 + _%rtab193791%_ + __tmp204654))) + _%konts193759%_) + (if (let ((__tmp204655 + (let ((__tmp204656 (let () (declare (not safe)) (gxc#identifier-symbol - _%name190296%_)))) + _%name193789%_)))) (declare (not safe)) - (hash-ref__0 _%rtab190298%_ __tmp201215)))) + (hash-ref__0 _%rtab193791%_ __tmp204656)))) (declare (not safe)) - (##fx= __tmp201214 '1)) - (let* ((_%rblock190304%_ - (let ((__tmp201216 - (lambda (_%block190302%_) - (let ((__tmp201218 - (cons _%name190296%_ '())) - (__tmp201217 - (caddr _%block190302%_))) + (##fx= __tmp204655 '1)) + (let* ((_%rblock193797%_ + (let ((__tmp204657 + (lambda (_%block193795%_) + (let ((__tmp204659 + (cons _%name193789%_ '())) + (__tmp204658 + (caddr _%block193795%_))) (declare (not safe)) (gxc#apply-find-var-refs__% '#f - __tmp201218 - __tmp201217))))) + __tmp204659 + __tmp204658))))) (declare (not safe)) - (__find __tmp201216 _%konts190266%_))) - (_%assert190306%_ + (__find __tmp204657 _%konts193759%_))) + (_%assert193799%_ (gxc#optimize-match-assert-restart - _%rblock190304%_ - _%name190296%_))) - (cons (cons _%name190296%_ + _%rblock193797%_ + _%name193789%_))) + (cons (cons _%name193789%_ (cons 'restart: - (cons _%kont190295%_ - (cons _%assert190306%_ + (cons _%kont193788%_ + (cons _%assert193799%_ '())))) - _%rest190294%_)) - _%blocks190265%_))))) - (if (pair? _%blocks190267190283%_) - (let ((_%hd190272190312%_ + _%rest193787%_)) + _%blocks193758%_))))) + (if (pair? _%blocks193760193776%_) + (let ((_%hd193765193805%_ (let () (declare (not safe)) - (##car _%blocks190267190283%_))) - (_%tl190273190314%_ + (##car _%blocks193760193776%_))) + (_%tl193766193807%_ (let () (declare (not safe)) - (##cdr _%blocks190267190283%_)))) - (if (pair? _%hd190272190312%_) - (let ((_%hd190274190317%_ + (##cdr _%blocks193760193776%_)))) + (if (pair? _%hd193765193805%_) + (let ((_%hd193767193810%_ (let () (declare (not safe)) - (##car _%hd190272190312%_))) - (_%tl190275190319%_ + (##car _%hd193765193805%_))) + (_%tl193768193812%_ (let () (declare (not safe)) - (##cdr _%hd190272190312%_)))) - (let ((_%name190322%_ _%hd190274190317%_)) - (if (pair? _%tl190275190319%_) - (let ((_%hd190276190324%_ + (##cdr _%hd193765193805%_)))) + (let ((_%name193815%_ _%hd193767193810%_)) + (if (pair? _%tl193768193812%_) + (let ((_%hd193769193817%_ (let () (declare (not safe)) - (##car _%tl190275190319%_))) - (_%tl190277190326%_ + (##car _%tl193768193812%_))) + (_%tl193770193819%_ (let () (declare (not safe)) - (##cdr _%tl190275190319%_)))) + (##cdr _%tl193768193812%_)))) (if (let () (declare (not safe)) - (##eq? _%hd190276190324%_ 'restart:)) - (if (pair? _%tl190277190326%_) - (let ((_%hd190278190329%_ + (##eq? _%hd193769193817%_ 'restart:)) + (if (pair? _%tl193770193819%_) + (let ((_%hd193771193822%_ (let () (declare (not safe)) - (##car _%tl190277190326%_))) - (_%tl190279190331%_ + (##car _%tl193770193819%_))) + (_%tl193772193824%_ (let () (declare (not safe)) - (##cdr _%tl190277190326%_)))) - (let ((_%kont190334%_ - _%hd190278190329%_)) - (if (pair? _%tl190279190331%_) - (let ((_%tl190281190336%_ + (##cdr _%tl193770193819%_)))) + (let ((_%kont193827%_ + _%hd193771193822%_)) + (if (pair? _%tl193772193824%_) + (let ((_%tl193774193829%_ (let () (declare (not safe)) - (##cdr _%tl190279190331%_)))) - (if (null? _%tl190281190336%_) - (let ((_%rest190339%_ - _%tl190273190314%_)) - (_%K190271190309%_ - _%rest190339%_ - _%kont190334%_ - _%name190322%_)) - (_%else190269190291%_))) - (_%else190269190291%_)))) - (_%else190269190291%_)) - (_%else190269190291%_))) - (_%else190269190291%_)))) - (_%else190269190291%_))) - (_%else190269190291%_))))) + (##cdr _%tl193772193824%_)))) + (if (null? _%tl193774193829%_) + (let ((_%rest193832%_ + _%tl193766193807%_)) + (_%K193764193802%_ + _%rest193832%_ + _%kont193827%_ + _%name193815%_)) + (_%else193762193784%_))) + (_%else193762193784%_)))) + (_%else193762193784%_)) + (_%else193762193784%_))) + (_%else193762193784%_)))) + (_%else193762193784%_))) + (_%else193762193784%_))))) (define gxc#optimize-match-assert-restart - (lambda (_%block189661%_ _%name189662%_) - (letrec ((_%assert-restart189664%_ - (lambda (_%expr189820%_ _%assert189821%_) - (let* ((_%__stx200220200221%_ _%expr189820%_) - (_%g189827189924%_ + (lambda (_%block193160%_ _%name193161%_) + (letrec ((_%assert-restart193163%_ + (lambda (_%expr193317%_ _%assert193318%_) + (let* ((_%__stx203661203662%_ _%expr193317%_) + (_%g193324193421%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200220200221%_))))) - (let ((_%__kont200222200223%_ - (lambda (_%L190240%_ _%L190241%_ _%L190242%_) - (let ((_%$e190259%_ - (_%assert-restart189664%_ - _%L190241%_ - (cons (cons _%L190242%_ '#t) - _%assert189821%_)))) - (if _%$e190259%_ - _%$e190259%_ - (_%assert-restart189664%_ - _%L190240%_ - (cons (cons _%L190242%_ '#f) - _%assert189821%_)))))) - (_%__kont200224200225%_ - (lambda (_%L190188%_) + _%__stx203661203662%_))))) + (let ((_%__kont203663203664%_ + (lambda (_%g193326193733%_ + _%g193327193734%_ + _%g193328193735%_) + (let ((_%$e193752%_ + (_%assert-restart193163%_ + _%g193327193734%_ + (cons (cons _%g193328193735%_ '#t) + _%assert193318%_)))) + (if _%$e193752%_ + _%$e193752%_ + (_%assert-restart193163%_ + _%g193326193733%_ + (cons (cons _%g193328193735%_ '#f) + _%assert193318%_)))))) + (_%__kont203665203666%_ + (lambda (_%g193341193681%_) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L190188%_ - _%name189662%_)) - _%assert189821%_ + _%g193341193681%_ + _%name193161%_)) + _%assert193318%_ '#f))) - (_%__kont200226200227%_ - (lambda (_%L190138%_) - (_%assert-restart189664%_ - _%L190138%_ - _%assert189821%_))) - (_%__kont200228200229%_ - (lambda (_%L190064%_ - _%L190065%_ - _%L190066%_ - _%L190067%_ - _%L190068%_) - (_%assert-restart189664%_ - _%L190066%_ - _%assert189821%_))) - (_%__kont200234200235%_ (lambda () '#f))) - (let ((_%__match200389200390%_ - (lambda (_%e189872189936%_ - _%hd189873189939%_ - _%tl189874189941%_ - _%e189875189944%_ - _%hd189876189947%_ - _%tl189877189949%_ - _%e189878189952%_ - _%hd189879189955%_ - _%tl189880189957%_ - _%e189881189960%_ - _%hd189882189963%_ - _%tl189883189965%_ - _%e189884189968%_ - _%hd189885189971%_ - _%tl189886189973%_ - _%e189887189976%_ - _%hd189888189979%_ - _%tl189889189981%_ - _%e189890189984%_ - _%hd189891189987%_ - _%tl189892189989%_ - _%e189893189992%_ - _%hd189894189995%_ - _%tl189895189997%_ - _%__splice200230200231%_ - _%target189896190000%_ - _%tl189898190002%_) - (letrec ((_%loop189899190005%_ - (lambda (_%hd189897190008%_ - _%id189903190010%_) + (_%__kont203667203668%_ + (lambda (_%g193354193631%_) + (_%assert-restart193163%_ + _%g193354193631%_ + _%assert193318%_))) + (_%__kont203669203670%_ + (lambda (_%g193364193557%_ + _%g193365193558%_ + _%g193366193559%_ + _%g193367193560%_ + _%g193368193561%_) + (_%assert-restart193163%_ + _%g193366193559%_ + _%assert193318%_))) + (_%__kont203675203676%_ (lambda () '#f))) + (let ((_%__match203830203831%_ + (lambda (_%e193369193433%_ + _%hd193370193436%_ + _%tl193371193438%_ + _%e193372193441%_ + _%hd193373193444%_ + _%tl193374193446%_ + _%e193375193449%_ + _%hd193376193452%_ + _%tl193377193454%_ + _%e193378193457%_ + _%hd193379193460%_ + _%tl193380193462%_ + _%e193381193465%_ + _%hd193382193468%_ + _%tl193383193470%_ + _%e193384193473%_ + _%hd193385193476%_ + _%tl193386193478%_ + _%e193387193481%_ + _%hd193388193484%_ + _%tl193389193486%_ + _%e193390193489%_ + _%hd193391193492%_ + _%tl193392193494%_ + _%__splice203671203672%_ + _%target193393193497%_ + _%tl193395193499%_) + (letrec ((_%loop193396193502%_ + (lambda (_%hd193394193505%_ + _%id193400193507%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd189897190008%_)) - (let ((_%e189900190013%_ + _%hd193394193505%_)) + (let ((_%e193397193509%_ (let () (declare (not safe)) (gx#stx-e - _%hd189897190008%_)))) - (let ((_%lp-tl189902190018%_ + _%hd193394193505%_)))) + (let ((_%lp-tl193399193514%_ (let () (declare (not safe)) - (##cdr _%e189900190013%_))) - (_%lp-hd189901190016%_ + (##cdr _%e193397193509%_))) + (_%lp-hd193398193512%_ (let () (declare (not safe)) - (##car _%e189900190013%_)))) - (_%loop189899190005%_ - _%lp-tl189902190018%_ - (cons _%lp-hd189901190016%_ - _%id189903190010%_)))) - (let ((_%id189904190021%_ - (reverse _%id189903190010%_))) + (##car _%e193397193509%_)))) + (_%loop193396193502%_ + _%lp-tl193399193514%_ + (cons _%lp-hd193398193512%_ + _%id193400193507%_)))) + (let ((_%id193401193517%_ + (reverse _%id193400193507%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl189895189997%_)) - (let ((_%e189905190024%_ + _%tl193392193494%_)) + (let ((_%e193402193519%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl189895189997%_)))) - (let ((_%tl189907190029%_ + (gx#stx-e _%tl193392193494%_)))) + (let ((_%tl193404193524%_ (let () (declare (not safe)) - (##cdr _%e189905190024%_))) - (_%hd189906190027%_ + (##cdr _%e193402193519%_))) + (_%hd193403193522%_ (let () (declare (not safe)) - (##car _%e189905190024%_)))) + (##car _%e193402193519%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189907190029%_)) + (gx#stx-null? _%tl193404193524%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189889189981%_)) + (gx#stx-null? _%tl193386193478%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl189880189957%_)) - (let ((_%__splice200232200233%_ + (gx#stx-pair/null? _%tl193377193454%_)) + (let ((_%__splice203673203674%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl189880189957%_ + _%tl193377193454%_ '0)))) - (let ((_%tl189910190034%_ + (let ((_%tl193407193529%_ (let () (declare (not safe)) (##vector-ref - _%__splice200232200233%_ + _%__splice203673203674%_ '1))) - (_%target189908190032%_ + (_%target193405193527%_ (let () (declare (not safe)) (##vector-ref - _%__splice200232200233%_ + _%__splice203673203674%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189910190034%_)) - (letrec ((_%loop189911190037%_ - (lambda (_%hd189909190040%_ - _%bind189915190042%_) + (gx#stx-null? _%tl193407193529%_)) + (letrec ((_%loop193408193532%_ + (lambda (_%hd193406193535%_ + _%bind193412193537%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd189909190040%_)) - (let ((_%e189912190045%_ + _%hd193406193535%_)) + (let ((_%e193409193539%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd189909190040%_)))) - (let ((_%lp-tl189914190050%_ + (gx#stx-e _%hd193406193535%_)))) + (let ((_%lp-tl193411193544%_ (let () (declare (not safe)) - (##cdr _%e189912190045%_))) - (_%lp-hd189913190048%_ + (##cdr _%e193409193539%_))) + (_%lp-hd193410193542%_ (let () (declare (not safe)) - (##car _%e189912190045%_)))) - (_%loop189911190037%_ - _%lp-tl189914190050%_ - (cons _%lp-hd189913190048%_ _%bind189915190042%_)))) - (let ((_%bind189916190053%_ (reverse _%bind189915190042%_))) + (##car _%e193409193539%_)))) + (_%loop193408193532%_ + _%lp-tl193411193544%_ + (cons _%lp-hd193410193542%_ _%bind193412193537%_)))) + (let ((_%bind193413193547%_ (reverse _%bind193412193537%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189877189949%_)) - (let ((_%e189917190056%_ + (gx#stx-pair? _%tl193374193446%_)) + (let ((_%e193414193549%_ (let () (declare (not safe)) - (gx#stx-e _%tl189877189949%_)))) - (let ((_%tl189919190061%_ + (gx#stx-e _%tl193374193446%_)))) + (let ((_%tl193416193554%_ (let () (declare (not safe)) - (##cdr _%e189917190056%_))) - (_%hd189918190059%_ + (##cdr _%e193414193549%_))) + (_%hd193415193552%_ (let () (declare (not safe)) - (##car _%e189917190056%_)))) + (##car _%e193414193549%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189919190061%_)) - (_%__kont200228200229%_ - _%hd189918190059%_ - _%bind189916190053%_ - _%hd189906190027%_ - _%id189904190021%_ - _%hd189885189971%_) - (_%__kont200234200235%_)))) - (_%__kont200234200235%_))))))) + (gx#stx-null? _%tl193416193554%_)) + (_%__kont203669203670%_ + _%hd193415193552%_ + _%bind193413193547%_ + _%hd193403193522%_ + _%id193401193517%_ + _%hd193382193468%_) + (_%__kont203675203676%_)))) + (_%__kont203675203676%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop189911190037%_ - _%target189908190032%_ + (_%loop193408193532%_ + _%target193405193527%_ '())) - (_%__kont200234200235%_)))) - (_%__kont200234200235%_)) - (_%__kont200234200235%_)) - (_%__kont200234200235%_)))) - (_%__kont200234200235%_))))))) + (_%__kont203675203676%_)))) + (_%__kont203675203676%_)) + (_%__kont203675203676%_)) + (_%__kont203675203676%_)))) + (_%__kont203675203676%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop189899190005%_ - _%target189896190000%_ + (_%loop193396193502%_ + _%target193393193497%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx200220200221%_)) - (let ((_%e189832190208%_ + (gx#stx-pair? _%__stx203661203662%_)) + (let ((_%e193329193701%_ (let () (declare (not safe)) - (gx#stx-e _%__stx200220200221%_)))) - (let ((_%tl189834190213%_ + (gx#stx-e _%__stx203661203662%_)))) + (let ((_%tl193331193706%_ (let () (declare (not safe)) - (##cdr _%e189832190208%_))) - (_%hd189833190211%_ + (##cdr _%e193329193701%_))) + (_%hd193330193704%_ (let () (declare (not safe)) - (##car _%e189832190208%_)))) + (##car _%e193329193701%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd189833190211%_)) + (gx#identifier? _%hd193330193704%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd189833190211%_)) + _%hd193330193704%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl189834190213%_)) - (let ((_%e189835190216%_ + _%tl193331193706%_)) + (let ((_%e193332193709%_ (let () (declare (not safe)) (gx#stx-e - _%tl189834190213%_)))) - (let ((_%tl189837190221%_ + _%tl193331193706%_)))) + (let ((_%tl193334193714%_ (let () (declare (not safe)) - (##cdr _%e189835190216%_))) - (_%hd189836190219%_ + (##cdr _%e193332193709%_))) + (_%hd193333193712%_ (let () (declare (not safe)) - (##car _%e189835190216%_)))) + (##car _%e193332193709%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl189837190221%_)) - (let ((_%e189838190224%_ + _%tl193334193714%_)) + (let ((_%e193335193717%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl189837190221%_)))) - (let ((_%tl189840190229%_ - (let () (declare (not safe)) (##cdr _%e189838190224%_))) - (_%hd189839190227%_ + (gx#stx-e _%tl193334193714%_)))) + (let ((_%tl193337193722%_ + (let () (declare (not safe)) (##cdr _%e193335193717%_))) + (_%hd193336193720%_ (let () (declare (not safe)) - (##car _%e189838190224%_)))) + (##car _%e193335193717%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189840190229%_)) - (let ((_%e189841190232%_ + (gx#stx-pair? _%tl193337193722%_)) + (let ((_%e193338193725%_ (let () (declare (not safe)) - (gx#stx-e _%tl189840190229%_)))) - (let ((_%tl189843190237%_ + (gx#stx-e _%tl193337193722%_)))) + (let ((_%tl193340193730%_ (let () (declare (not safe)) - (##cdr _%e189841190232%_))) - (_%hd189842190235%_ + (##cdr _%e193338193725%_))) + (_%hd193339193728%_ (let () (declare (not safe)) - (##car _%e189841190232%_)))) + (##car _%e193338193725%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189843190237%_)) - (_%__kont200222200223%_ - _%hd189842190235%_ - _%hd189839190227%_ - _%hd189836190219%_) - (_%__kont200234200235%_)))) - (_%__kont200234200235%_)))) - (_%__kont200234200235%_)))) + (gx#stx-null? _%tl193340193730%_)) + (_%__kont203663203664%_ + _%hd193339193728%_ + _%hd193336193720%_ + _%hd193333193712%_) + (_%__kont203675203676%_)))) + (_%__kont203675203676%_)))) + (_%__kont203675203676%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200234200235%_)) + (_%__kont203675203676%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd189833190211%_)) + _%hd193330193704%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl189834190213%_)) - (let ((_%e189848190164%_ + _%tl193331193706%_)) + (let ((_%e193345193657%_ (let () (declare (not safe)) (gx#stx-e - _%tl189834190213%_)))) - (let ((_%tl189850190169%_ + _%tl193331193706%_)))) + (let ((_%tl193347193662%_ (let () (declare (not safe)) - (##cdr _%e189848190164%_))) - (_%hd189849190167%_ + (##cdr _%e193345193657%_))) + (_%hd193346193660%_ (let () (declare (not safe)) - (##car _%e189848190164%_)))) + (##car _%e193345193657%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd189849190167%_)) - (let ((_%e189851190172%_ + _%hd193346193660%_)) + (let ((_%e193348193665%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd189849190167%_)))) - (let ((_%tl189853190177%_ + (gx#stx-e _%hd193346193660%_)))) + (let ((_%tl193350193670%_ (let () (declare (not safe)) - (##cdr _%e189851190172%_))) - (_%hd189852190175%_ + (##cdr _%e193348193665%_))) + (_%hd193349193668%_ (let () (declare (not safe)) - (##car _%e189851190172%_)))) + (##car _%e193348193665%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd189852190175%_)) + (gx#identifier? _%hd193349193668%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd189852190175%_)) + (gx#stx-eq? '%#ref _%hd193349193668%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189853190177%_)) - (let ((_%e189854190180%_ + (gx#stx-pair? _%tl193350193670%_)) + (let ((_%e193351193673%_ (let () (declare (not safe)) - (gx#stx-e _%tl189853190177%_)))) - (let ((_%tl189856190185%_ + (gx#stx-e _%tl193350193670%_)))) + (let ((_%tl193353193678%_ (let () (declare (not safe)) - (##cdr _%e189854190180%_))) - (_%hd189855190183%_ + (##cdr _%e193351193673%_))) + (_%hd193352193676%_ (let () (declare (not safe)) - (##car _%e189854190180%_)))) + (##car _%e193351193673%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189856190185%_)) - (_%__kont200224200225%_ - _%hd189855190183%_) - (_%__kont200234200235%_)))) - (_%__kont200234200235%_)) - (_%__kont200234200235%_)) - (_%__kont200234200235%_)))) - (_%__kont200234200235%_)))) + (gx#stx-null? _%tl193353193678%_)) + (_%__kont203665203666%_ + _%hd193352193676%_) + (_%__kont203675203676%_)))) + (_%__kont203675203676%_)) + (_%__kont203675203676%_)) + (_%__kont203675203676%_)))) + (_%__kont203675203676%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200234200235%_)) + (_%__kont203675203676%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd189833190211%_)) + _%hd193330193704%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl189834190213%_)) - (let ((_%e189861190122%_ + _%tl193331193706%_)) + (let ((_%e193358193615%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl189834190213%_)))) - (let ((_%tl189863190127%_ - (let () (declare (not safe)) (##cdr _%e189861190122%_))) - (_%hd189862190125%_ + (gx#stx-e _%tl193331193706%_)))) + (let ((_%tl193360193620%_ + (let () (declare (not safe)) (##cdr _%e193358193615%_))) + (_%hd193359193618%_ (let () (declare (not safe)) - (##car _%e189861190122%_)))) + (##car _%e193358193615%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189863190127%_)) - (let ((_%e189864190130%_ + (gx#stx-pair? _%tl193360193620%_)) + (let ((_%e193361193623%_ (let () (declare (not safe)) - (gx#stx-e _%tl189863190127%_)))) - (let ((_%tl189866190135%_ + (gx#stx-e _%tl193360193620%_)))) + (let ((_%tl193363193628%_ (let () (declare (not safe)) - (##cdr _%e189864190130%_))) - (_%hd189865190133%_ + (##cdr _%e193361193623%_))) + (_%hd193362193626%_ (let () (declare (not safe)) - (##car _%e189864190130%_)))) + (##car _%e193361193623%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189866190135%_)) - (_%__kont200226200227%_ _%hd189865190133%_) - (_%__kont200234200235%_)))) - (_%__kont200234200235%_)))) - (_%__kont200234200235%_)) + (gx#stx-null? _%tl193363193628%_)) + (_%__kont203667203668%_ _%hd193362193626%_) + (_%__kont203675203676%_)))) + (_%__kont203675203676%_)))) + (_%__kont203675203676%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd189833190211%_)) + _%hd193330193704%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl189834190213%_)) - (let ((_%e189875189944%_ + _%tl193331193706%_)) + (let ((_%e193372193441%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl189834190213%_)))) - (let ((_%tl189877189949%_ + (gx#stx-e _%tl193331193706%_)))) + (let ((_%tl193374193446%_ (let () (declare (not safe)) - (##cdr _%e189875189944%_))) - (_%hd189876189947%_ + (##cdr _%e193372193441%_))) + (_%hd193373193444%_ (let () (declare (not safe)) - (##car _%e189875189944%_)))) + (##car _%e193372193441%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd189876189947%_)) - (let ((_%e189878189952%_ + (gx#stx-pair? _%hd193373193444%_)) + (let ((_%e193375193449%_ (let () (declare (not safe)) - (gx#stx-e _%hd189876189947%_)))) - (let ((_%tl189880189957%_ + (gx#stx-e _%hd193373193444%_)))) + (let ((_%tl193377193454%_ (let () (declare (not safe)) - (##cdr _%e189878189952%_))) - (_%hd189879189955%_ + (##cdr _%e193375193449%_))) + (_%hd193376193452%_ (let () (declare (not safe)) - (##car _%e189878189952%_)))) + (##car _%e193375193449%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd189879189955%_)) - (let ((_%e189881189960%_ + (gx#stx-pair? _%hd193376193452%_)) + (let ((_%e193378193457%_ (let () (declare (not safe)) - (gx#stx-e _%hd189879189955%_)))) - (let ((_%tl189883189965%_ + (gx#stx-e _%hd193376193452%_)))) + (let ((_%tl193380193462%_ (let () (declare (not safe)) - (##cdr _%e189881189960%_))) - (_%hd189882189963%_ + (##cdr _%e193378193457%_))) + (_%hd193379193460%_ (let () (declare (not safe)) - (##car _%e189881189960%_)))) + (##car _%e193378193457%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd189882189963%_)) - (let ((_%e189884189968%_ + (gx#stx-pair? _%hd193379193460%_)) + (let ((_%e193381193465%_ (let () (declare (not safe)) (gx#stx-e - _%hd189882189963%_)))) - (let ((_%tl189886189973%_ + _%hd193379193460%_)))) + (let ((_%tl193383193470%_ (let () (declare (not safe)) - (##cdr _%e189884189968%_))) - (_%hd189885189971%_ + (##cdr _%e193381193465%_))) + (_%hd193382193468%_ (let () (declare (not safe)) - (##car _%e189884189968%_)))) + (##car _%e193381193465%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl189886189973%_)) + _%tl193383193470%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl189883189965%_)) - (let ((_%e189887189976%_ + _%tl193380193462%_)) + (let ((_%e193384193473%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl189883189965%_)))) - (let ((_%tl189889189981%_ - (let () (declare (not safe)) (##cdr _%e189887189976%_))) - (_%hd189888189979%_ + (gx#stx-e _%tl193380193462%_)))) + (let ((_%tl193386193478%_ + (let () (declare (not safe)) (##cdr _%e193384193473%_))) + (_%hd193385193476%_ (let () (declare (not safe)) - (##car _%e189887189976%_)))) + (##car _%e193384193473%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd189888189979%_)) - (let ((_%e189890189984%_ + (gx#stx-pair? _%hd193385193476%_)) + (let ((_%e193387193481%_ (let () (declare (not safe)) - (gx#stx-e _%hd189888189979%_)))) - (let ((_%tl189892189989%_ + (gx#stx-e _%hd193385193476%_)))) + (let ((_%tl193389193486%_ (let () (declare (not safe)) - (##cdr _%e189890189984%_))) - (_%hd189891189987%_ + (##cdr _%e193387193481%_))) + (_%hd193388193484%_ (let () (declare (not safe)) - (##car _%e189890189984%_)))) + (##car _%e193387193481%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd189891189987%_)) + (gx#identifier? _%hd193388193484%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd189891189987%_)) + (gx#stx-eq? '%#lambda _%hd193388193484%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189892189989%_)) - (let ((_%e189893189992%_ + (gx#stx-pair? _%tl193389193486%_)) + (let ((_%e193390193489%_ (let () (declare (not safe)) - (gx#stx-e _%tl189892189989%_)))) - (let ((_%tl189895189997%_ + (gx#stx-e _%tl193389193486%_)))) + (let ((_%tl193392193494%_ (let () (declare (not safe)) - (##cdr _%e189893189992%_))) - (_%hd189894189995%_ + (##cdr _%e193390193489%_))) + (_%hd193391193492%_ (let () (declare (not safe)) - (##car _%e189893189992%_)))) + (##car _%e193390193489%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd189894189995%_)) - (let ((_%__splice200230200231%_ + _%hd193391193492%_)) + (let ((_%__splice203671203672%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%hd189894189995%_ + _%hd193391193492%_ '0)))) - (let ((_%tl189898190002%_ + (let ((_%tl193395193499%_ (let () (declare (not safe)) (##vector-ref - _%__splice200230200231%_ + _%__splice203671203672%_ '1))) - (_%target189896190000%_ + (_%target193393193497%_ (let () (declare (not safe)) (##vector-ref - _%__splice200230200231%_ + _%__splice203671203672%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl189898190002%_)) - (_%__match200389200390%_ - _%e189832190208%_ - _%hd189833190211%_ - _%tl189834190213%_ - _%e189875189944%_ - _%hd189876189947%_ - _%tl189877189949%_ - _%e189878189952%_ - _%hd189879189955%_ - _%tl189880189957%_ - _%e189881189960%_ - _%hd189882189963%_ - _%tl189883189965%_ - _%e189884189968%_ - _%hd189885189971%_ - _%tl189886189973%_ - _%e189887189976%_ - _%hd189888189979%_ - _%tl189889189981%_ - _%e189890189984%_ - _%hd189891189987%_ - _%tl189892189989%_ - _%e189893189992%_ - _%hd189894189995%_ - _%tl189895189997%_ - _%__splice200230200231%_ - _%target189896190000%_ - _%tl189898190002%_) - (_%__kont200234200235%_)))) - (_%__kont200234200235%_)))) - (_%__kont200234200235%_)) - (_%__kont200234200235%_)) - (_%__kont200234200235%_)))) - (_%__kont200234200235%_)))) - (_%__kont200234200235%_)) + _%tl193395193499%_)) + (_%__match203830203831%_ + _%e193329193701%_ + _%hd193330193704%_ + _%tl193331193706%_ + _%e193372193441%_ + _%hd193373193444%_ + _%tl193374193446%_ + _%e193375193449%_ + _%hd193376193452%_ + _%tl193377193454%_ + _%e193378193457%_ + _%hd193379193460%_ + _%tl193380193462%_ + _%e193381193465%_ + _%hd193382193468%_ + _%tl193383193470%_ + _%e193384193473%_ + _%hd193385193476%_ + _%tl193386193478%_ + _%e193387193481%_ + _%hd193388193484%_ + _%tl193389193486%_ + _%e193390193489%_ + _%hd193391193492%_ + _%tl193392193494%_ + _%__splice203671203672%_ + _%target193393193497%_ + _%tl193395193499%_) + (_%__kont203675203676%_)))) + (_%__kont203675203676%_)))) + (_%__kont203675203676%_)) + (_%__kont203675203676%_)) + (_%__kont203675203676%_)))) + (_%__kont203675203676%_)))) + (_%__kont203675203676%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200234200235%_)))) - (_%__kont200234200235%_)))) - (_%__kont200234200235%_)))) - (_%__kont200234200235%_)))) - (_%__kont200234200235%_)) - (_%__kont200234200235%_))))) + (_%__kont203675203676%_)))) + (_%__kont203675203676%_)))) + (_%__kont203675203676%_)))) + (_%__kont203675203676%_)))) + (_%__kont203675203676%_)) + (_%__kont203675203676%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200234200235%_)))) - (_%__kont200234200235%_)))))))) - (let* ((_%block189665189678%_ _%block189661%_) - (_%E189667189682%_ + (_%__kont203675203676%_)))) + (_%__kont203675203676%_)))))))) + (let* ((_%block193164193177%_ _%block193160%_) + (_%E193166193181%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block189665189678%_ + _%block193164193177%_ '([_ _ kont assert . maybe-bind]))) '#!void)) - (_%K189668189795%_ - (lambda (_%maybe-bind189685%_ - _%assert189686%_ - _%kont189687%_) - (let* ((_%g189689189715%_ - (lambda (_%g189690189712%_) + (_%K193167193292%_ + (lambda (_%maybe-bind193184%_ + _%assert193185%_ + _%kont193186%_) + (let* ((_%g193188193214%_ + (lambda (_%g193189193211%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g189690189712%_)))) - (_%g189688189792%_ - (lambda (_%g189690189718%_) + _%g193189193211%_)))) + (_%g193187193289%_ + (lambda (_%g193189193217%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g189690189718%_)) - (let ((_%e189693189720%_ + (gx#stx-pair? _%g193189193217%_)) + (let ((_%e193192193219%_ (let () (declare (not safe)) - (gx#stx-e _%g189690189718%_)))) - (let ((_%hd189694189723%_ + (gx#stx-e _%g193189193217%_)))) + (let ((_%hd193193193222%_ (let () (declare (not safe)) - (##car _%e189693189720%_))) - (_%tl189695189725%_ + (##car _%e193192193219%_))) + (_%tl193194193224%_ (let () (declare (not safe)) - (##cdr _%e189693189720%_)))) + (##cdr _%e193192193219%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd189694189723%_)) + _%hd193193193222%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd189694189723%_)) + _%hd193193193222%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl189695189725%_)) - (let ((_%e189696189728%_ + _%tl193194193224%_)) + (let ((_%e193195193227%_ (let () (declare (not safe)) (gx#stx-e - _%tl189695189725%_)))) - (let ((_%hd189697189731%_ + _%tl193194193224%_)))) + (let ((_%hd193196193230%_ (let () (declare (not safe)) - (##car _%e189696189728%_))) - (_%tl189698189733%_ + (##car _%e193195193227%_))) + (_%tl193197193232%_ (let () (declare (not safe)) - (##cdr _%e189696189728%_)))) + (##cdr _%e193195193227%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd189697189731%_)) - (let ((_g201219_ + _%hd193196193230%_)) + (let ((_g204660_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd189697189731%_ '0)))) + (gx#syntax-split-splice _%hd193196193230%_ '0)))) (begin - (let ((_g201220_ + (let ((_g204661_ (let () (declare (not safe)) - (if (##values? _g201219_) - (##values-length _g201219_) + (if (##values? _g204660_) + (##values-length _g204660_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g201220_ 2))) - (error "Context expects 2 values" _g201220_))) - (let ((_%target189699189736%_ + (##fx= _g204661_ 2))) + (error "Context expects 2 values" _g204661_))) + (let ((_%target193198193235%_ (let () (declare (not safe)) - (##values-ref _g201219_ 0))) - (_%tl189701189738%_ + (##values-ref _g204660_ 0))) + (_%tl193200193237%_ (let () (declare (not safe)) - (##values-ref _g201219_ 1)))) + (##values-ref _g204660_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189701189738%_)) - (letrec ((_%loop189702189741%_ - (lambda (_%hd189700189744%_ - _%id189706189746%_) + (gx#stx-null? _%tl193200193237%_)) + (letrec ((_%loop193201193240%_ + (lambda (_%hd193199193243%_ + _%id193205193245%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd189700189744%_)) - (let ((_%e189703189749%_ + _%hd193199193243%_)) + (let ((_%e193202193247%_ (let () (declare (not safe)) (gx#stx-e - _%hd189700189744%_)))) - (let ((_%lp-hd189704189752%_ + _%hd193199193243%_)))) + (let ((_%lp-hd193203193250%_ (let () (declare (not safe)) - (##car _%e189703189749%_))) - (_%lp-tl189705189754%_ + (##car _%e193202193247%_))) + (_%lp-tl193204193252%_ (let () (declare (not safe)) - (##cdr _%e189703189749%_)))) - (_%loop189702189741%_ - _%lp-tl189705189754%_ - (cons _%lp-hd189704189752%_ - _%id189706189746%_)))) - (let ((_%id189707189757%_ - (reverse _%id189706189746%_))) + (##cdr _%e193202193247%_)))) + (_%loop193201193240%_ + _%lp-tl193204193252%_ + (cons _%lp-hd193203193250%_ + _%id193205193245%_)))) + (let ((_%id193206193255%_ + (reverse _%id193205193245%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl189698189733%_)) - (let ((_%e189708189760%_ + _%tl193197193232%_)) + (let ((_%e193207193257%_ (let () (declare (not safe)) (gx#stx-e - _%tl189698189733%_)))) - (let ((_%hd189709189763%_ + _%tl193197193232%_)))) + (let ((_%hd193208193260%_ (let () (declare (not safe)) - (##car _%e189708189760%_))) - (_%tl189710189765%_ + (##car _%e193207193257%_))) + (_%tl193209193262%_ (let () (declare (not safe)) - (##cdr _%e189708189760%_)))) + (##cdr _%e193207193257%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl189710189765%_)) - ((lambda (_%L189768%_ + _%tl193209193262%_)) + ((lambda (_%g193190193265%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L189769%_) - (_%assert-restart189664%_ _%L189768%_ _%assert189686%_)) - _%hd189709189763%_ - _%id189707189757%_) - (_%g189689189715%_ _%g189690189718%_)))) + _%g193191193266%_) + (_%assert-restart193163%_ + _%g193190193265%_ + _%assert193185%_)) + _%hd193208193260%_ + _%id193206193255%_) + (_%g193188193214%_ _%g193189193217%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g189689189715%_ - _%g189690189718%_))))))) - (_%loop189702189741%_ - _%target189699189736%_ + (_%g193188193214%_ + _%g193189193217%_))))))) + (_%loop193201193240%_ + _%target193198193235%_ '())) - (_%g189689189715%_ _%g189690189718%_))))) - (_%g189689189715%_ _%g189690189718%_)))) + (_%g193188193214%_ _%g193189193217%_))))) + (_%g193188193214%_ _%g193189193217%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g189689189715%_ - _%g189690189718%_)) - (_%g189689189715%_ - _%g189690189718%_)) - (_%g189689189715%_ - _%g189690189718%_)))) - (_%g189689189715%_ _%g189690189718%_))))) - (_%g189688189792%_ _%kont189687%_))))) - (if (pair? _%block189665189678%_) - (let ((_%tl189670189798%_ + (_%g193188193214%_ + _%g193189193217%_)) + (_%g193188193214%_ + _%g193189193217%_)) + (_%g193188193214%_ + _%g193189193217%_)))) + (_%g193188193214%_ _%g193189193217%_))))) + (_%g193187193289%_ _%kont193186%_))))) + (if (pair? _%block193164193177%_) + (let ((_%tl193169193295%_ (let () (declare (not safe)) - (##cdr _%block189665189678%_)))) - (if (pair? _%tl189670189798%_) - (let ((_%tl189672189801%_ + (##cdr _%block193164193177%_)))) + (if (pair? _%tl193169193295%_) + (let ((_%tl193171193298%_ (let () (declare (not safe)) - (##cdr _%tl189670189798%_)))) - (if (pair? _%tl189672189801%_) - (let ((_%hd189673189804%_ + (##cdr _%tl193169193295%_)))) + (if (pair? _%tl193171193298%_) + (let ((_%hd193172193301%_ (let () (declare (not safe)) - (##car _%tl189672189801%_))) - (_%tl189674189806%_ + (##car _%tl193171193298%_))) + (_%tl193173193303%_ (let () (declare (not safe)) - (##cdr _%tl189672189801%_)))) - (let ((_%kont189809%_ _%hd189673189804%_)) - (if (pair? _%tl189674189806%_) - (let ((_%hd189675189811%_ + (##cdr _%tl193171193298%_)))) + (let ((_%kont193306%_ _%hd193172193301%_)) + (if (pair? _%tl193173193303%_) + (let ((_%hd193174193308%_ (let () (declare (not safe)) - (##car _%tl189674189806%_))) - (_%tl189676189813%_ + (##car _%tl193173193303%_))) + (_%tl193175193310%_ (let () (declare (not safe)) - (##cdr _%tl189674189806%_)))) - (let* ((_%assert189816%_ - _%hd189675189811%_) - (_%maybe-bind189818%_ - _%tl189676189813%_)) - (_%K189668189795%_ - _%maybe-bind189818%_ - _%assert189816%_ - _%kont189809%_))) - (_%E189667189682%_)))) - (_%E189667189682%_))) - (_%E189667189682%_))) - (_%E189667189682%_)))))) + (##cdr _%tl193173193303%_)))) + (let* ((_%assert193313%_ + _%hd193174193308%_) + (_%maybe-bind193315%_ + _%tl193175193310%_)) + (_%K193167193292%_ + _%maybe-bind193315%_ + _%assert193313%_ + _%kont193306%_))) + (_%E193166193181%_)))) + (_%E193166193181%_))) + (_%E193166193181%_))) + (_%E193166193181%_)))))) (define gxc#optimize-syntax-case - (lambda (_%stx189292%_) - (let* ((_%g189294189324%_ - (lambda (_%g189295189321%_) + (lambda (_%stx192792%_) + (let* ((_%g192794192824%_ + (lambda (_%g192795192821%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g189295189321%_)))) - (_%g189293189658%_ - (lambda (_%g189295189327%_) + _%g192795192821%_)))) + (_%g192793193157%_ + (lambda (_%g192795192827%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g189295189327%_)) - (let ((_%e189299189329%_ + (gx#stx-pair? _%g192795192827%_)) + (let ((_%e192799192829%_ (let () (declare (not safe)) - (gx#stx-e _%g189295189327%_)))) - (let ((_%hd189300189332%_ + (gx#stx-e _%g192795192827%_)))) + (let ((_%hd192800192832%_ (let () (declare (not safe)) - (##car _%e189299189329%_))) - (_%tl189301189334%_ + (##car _%e192799192829%_))) + (_%tl192801192834%_ (let () (declare (not safe)) - (##cdr _%e189299189329%_)))) + (##cdr _%e192799192829%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd189300189332%_)) + (gx#identifier? _%hd192800192832%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd189300189332%_)) + _%hd192800192832%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189301189334%_)) - (let ((_%e189302189337%_ + (gx#stx-pair? _%tl192801192834%_)) + (let ((_%e192802192837%_ (let () (declare (not safe)) - (gx#stx-e _%tl189301189334%_)))) - (let ((_%hd189303189340%_ + (gx#stx-e _%tl192801192834%_)))) + (let ((_%hd192803192840%_ (let () (declare (not safe)) - (##car _%e189302189337%_))) - (_%tl189304189342%_ + (##car _%e192802192837%_))) + (_%tl192804192842%_ (let () (declare (not safe)) - (##cdr _%e189302189337%_)))) + (##cdr _%e192802192837%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd189303189340%_)) - (let ((_%e189305189345%_ + _%hd192803192840%_)) + (let ((_%e192805192845%_ (let () (declare (not safe)) (gx#stx-e - _%hd189303189340%_)))) - (let ((_%hd189306189348%_ + _%hd192803192840%_)))) + (let ((_%hd192806192848%_ (let () (declare (not safe)) - (##car _%e189305189345%_))) - (_%tl189307189350%_ + (##car _%e192805192845%_))) + (_%tl192807192850%_ (let () (declare (not safe)) - (##cdr _%e189305189345%_)))) + (##cdr _%e192805192845%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd189306189348%_)) - (let ((_%e189308189353%_ + _%hd192806192848%_)) + (let ((_%e192808192853%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd189306189348%_)))) - (let ((_%hd189309189356%_ - (let () (declare (not safe)) (##car _%e189308189353%_))) - (_%tl189310189358%_ + (gx#stx-e _%hd192806192848%_)))) + (let ((_%hd192809192856%_ + (let () (declare (not safe)) (##car _%e192808192853%_))) + (_%tl192810192858%_ (let () (declare (not safe)) - (##cdr _%e189308189353%_)))) + (##cdr _%e192808192853%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd189309189356%_)) - (let ((_%e189311189361%_ + (gx#stx-pair? _%hd192809192856%_)) + (let ((_%e192811192861%_ (let () (declare (not safe)) - (gx#stx-e _%hd189309189356%_)))) - (let ((_%hd189312189364%_ + (gx#stx-e _%hd192809192856%_)))) + (let ((_%hd192812192864%_ (let () (declare (not safe)) - (##car _%e189311189361%_))) - (_%tl189313189366%_ + (##car _%e192811192861%_))) + (_%tl192813192866%_ (let () (declare (not safe)) - (##cdr _%e189311189361%_)))) + (##cdr _%e192811192861%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189313189366%_)) + (gx#stx-null? _%tl192813192866%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189310189358%_)) - (let ((_%e189314189369%_ + (gx#stx-pair? _%tl192810192858%_)) + (let ((_%e192814192869%_ (let () (declare (not safe)) - (gx#stx-e _%tl189310189358%_)))) - (let ((_%hd189315189372%_ + (gx#stx-e _%tl192810192858%_)))) + (let ((_%hd192815192872%_ (let () (declare (not safe)) - (##car _%e189314189369%_))) - (_%tl189316189374%_ + (##car _%e192814192869%_))) + (_%tl192816192874%_ (let () (declare (not safe)) - (##cdr _%e189314189369%_)))) + (##cdr _%e192814192869%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189316189374%_)) + (gx#stx-null? _%tl192816192874%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl189307189350%_)) + _%tl192807192850%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl189304189342%_)) - (let ((_%e189317189377%_ + _%tl192804192842%_)) + (let ((_%e192817192877%_ (let () (declare (not safe)) (gx#stx-e - _%tl189304189342%_)))) - (let ((_%hd189318189380%_ + _%tl192804192842%_)))) + (let ((_%hd192818192880%_ (let () (declare (not safe)) - (##car _%e189317189377%_))) - (_%tl189319189382%_ + (##car _%e192817192877%_))) + (_%tl192819192882%_ (let () (declare (not safe)) - (##cdr _%e189317189377%_)))) + (##cdr _%e192817192877%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl189319189382%_)) - ((lambda (_%L189385%_ + _%tl192819192882%_)) + ((lambda (_%g192796192885%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L189386%_ - _%L189387%_) - (let _%lp189411%_ ((_%body189413%_ _%L189385%_) - (_%clauses189414%_ '())) - (let* ((_%__stx200392200393%_ _%body189413%_) - (_%g189417189464%_ + _%g192797192886%_ + _%g192798192887%_) + (let _%lp192911%_ ((_%body192913%_ _%g192796192885%_) + (_%clauses192914%_ '())) + (let* ((_%__stx203833203834%_ _%body192913%_) + (_%g192917192964%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200392200393%_))))) - (let ((_%__kont200394200395%_ - (lambda (_%L189630%_ _%L189631%_ _%L189632%_) - (_%lp189411%_ - _%L189630%_ - (cons (cons _%L189632%_ + _%__stx203833203834%_))))) + (let ((_%__kont203835203836%_ + (lambda (_%g192919193129%_ + _%g192920193130%_ + _%g192921193131%_) + (_%lp192911%_ + _%g192919193129%_ + (cons (cons _%g192921193131%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L189631%_))) - _%clauses189414%_)))) - (_%__kont200396200397%_ - (lambda (_%L189509%_ _%L189510%_) - (let ((_%$e189531%_ - (length _%clauses189414%_))) - (if (eq? '0 _%$e189531%_) - (let ((__tmp201221 + _%g192920193130%_))) + _%clauses192914%_)))) + (_%__kont203837203838%_ + (lambda (_%g192943193009%_ _%g192944193010%_) + (let ((_%$e193031%_ + (length _%clauses192914%_))) + (if (eq? '0 _%$e193031%_) + (let ((__tmp204662 (cons '%#let-values - (cons (cons (cons (cons _%L189387%_ + (cons (cons (cons (cons _%g192798192887%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L189386%_ '())) + (cons _%g192797192886%_ '())) '()) (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%body189413%_)) + (gxc#compile-e__0 _%body192913%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp201221 - _%stx189292%_)) - (if (eq? '1 _%$e189531%_) - (let* ((_%clauses189533189542%_ - _%clauses189414%_) - (_%E189535189546%_ + __tmp204662 + _%stx192792%_)) + (if (eq? '1 _%$e193031%_) + (let* ((_%clauses193033193042%_ + _%clauses192914%_) + (_%E193035193045%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clauses189533189542%_ + _%clauses193033193042%_ '([[clause ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< . clause-lambda]]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K189536189552%_ - (lambda (_%clause-lambda189549%_ - _%clause189550%_) - (let ((__tmp201222 + (_%K193036193051%_ + (lambda (_%clause-lambda193048%_ + _%clause193049%_) + (let ((__tmp204663 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%L189387%_ '()) - (cons _%L189386%_ '())) + (cons (cons (cons (cons _%g192798192887%_ '()) + (cons _%g192797192886%_ '())) '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%clause189550%_ + (cons (cons (cons (cons _%clause193049%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%clause-lambda189549%_ '())) + (cons _%clause-lambda193048%_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%body189413%_)) + _%body192913%_)) '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp201222 _%stx189292%_))))) + (gxc#xform-wrap-source __tmp204663 _%stx192792%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%clauses189533189542%_) - (let ((_%hd189537189555%_ + (if (pair? _%clauses193033193042%_) + (let ((_%hd193037193054%_ (let () (declare (not safe)) - (##car _%clauses189533189542%_))) - (_%tl189538189557%_ + (##car _%clauses193033193042%_))) + (_%tl193038193056%_ (let () (declare (not safe)) - (##cdr _%clauses189533189542%_)))) - (if (pair? _%hd189537189555%_) - (let ((_%hd189539189560%_ + (##cdr _%clauses193033193042%_)))) + (if (pair? _%hd193037193054%_) + (let ((_%hd193039193059%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%hd189537189555%_))) - (_%tl189540189562%_ + (##car _%hd193037193054%_))) + (_%tl193040193061%_ (let () (declare (not safe)) - (##cdr _%hd189537189555%_)))) - (let* ((_%clause189565%_ _%hd189539189560%_) - (_%clause-lambda189567%_ _%tl189540189562%_)) - (if (null? _%tl189538189557%_) - (_%K189536189552%_ - _%clause-lambda189567%_ - _%clause189565%_) - (_%E189535189546%_)))) - (_%E189535189546%_))) + (##cdr _%hd193037193054%_)))) + (let* ((_%clause193064%_ _%hd193039193059%_) + (_%clause-lambda193066%_ _%tl193040193061%_)) + (if (null? _%tl193038193056%_) + (_%K193036193051%_ + _%clause-lambda193066%_ + _%clause193064%_) + (_%E193035193045%_)))) + (_%E193035193045%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E189535189546%_))) + (_%E193035193045%_))) (gxc#optimize-syntax-case-body - _%stx189292%_ + _%stx192792%_ (let () (declare (not safe)) - (gxc#compile-e__0 _%L189509%_)) - (cons _%L189387%_ _%L189386%_) - _%clauses189414%_))))))) + (gxc#compile-e__0 + _%g192943193009%_)) + (cons _%g192798192887%_ + _%g192797192886%_) + _%clauses192914%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx200392200393%_)) - (let ((_%e189422189574%_ + (gx#stx-pair? _%__stx203833203834%_)) + (let ((_%e192922193073%_ (let () (declare (not safe)) - (gx#stx-e _%__stx200392200393%_)))) - (let ((_%tl189424189579%_ + (gx#stx-e _%__stx203833203834%_)))) + (let ((_%tl192924193078%_ (let () (declare (not safe)) - (##cdr _%e189422189574%_))) - (_%hd189423189577%_ + (##cdr _%e192922193073%_))) + (_%hd192923193076%_ (let () (declare (not safe)) - (##car _%e189422189574%_)))) + (##car _%e192922193073%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd189423189577%_)) + (gx#identifier? _%hd192923193076%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd189423189577%_)) + _%hd192923193076%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl189424189579%_)) - (let ((_%e189425189582%_ + _%tl192924193078%_)) + (let ((_%e192925193081%_ (let () (declare (not safe)) (gx#stx-e - _%tl189424189579%_)))) - (let ((_%tl189427189587%_ + _%tl192924193078%_)))) + (let ((_%tl192927193086%_ (let () (declare (not safe)) - (##cdr _%e189425189582%_))) - (_%hd189426189585%_ + (##cdr _%e192925193081%_))) + (_%hd192926193084%_ (let () (declare (not safe)) - (##car _%e189425189582%_)))) + (##car _%e192925193081%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd189426189585%_)) - (let ((_%e189428189590%_ + _%hd192926193084%_)) + (let ((_%e192928193089%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd189426189585%_)))) - (let ((_%tl189430189595%_ + (gx#stx-e _%hd192926193084%_)))) + (let ((_%tl192930193094%_ (let () (declare (not safe)) - (##cdr _%e189428189590%_))) - (_%hd189429189593%_ + (##cdr _%e192928193089%_))) + (_%hd192929193092%_ (let () (declare (not safe)) - (##car _%e189428189590%_)))) + (##car _%e192928193089%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd189429189593%_)) - (let ((_%e189431189598%_ + (gx#stx-pair? _%hd192929193092%_)) + (let ((_%e192931193097%_ (let () (declare (not safe)) - (gx#stx-e _%hd189429189593%_)))) - (let ((_%tl189433189603%_ + (gx#stx-e _%hd192929193092%_)))) + (let ((_%tl192933193102%_ (let () (declare (not safe)) - (##cdr _%e189431189598%_))) - (_%hd189432189601%_ + (##cdr _%e192931193097%_))) + (_%hd192932193100%_ (let () (declare (not safe)) - (##car _%e189431189598%_)))) + (##car _%e192931193097%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd189432189601%_)) - (let ((_%e189434189606%_ + (gx#stx-pair? _%hd192932193100%_)) + (let ((_%e192934193105%_ (let () (declare (not safe)) - (gx#stx-e _%hd189432189601%_)))) - (let ((_%tl189436189611%_ + (gx#stx-e _%hd192932193100%_)))) + (let ((_%tl192936193110%_ (let () (declare (not safe)) - (##cdr _%e189434189606%_))) - (_%hd189435189609%_ + (##cdr _%e192934193105%_))) + (_%hd192935193108%_ (let () (declare (not safe)) - (##car _%e189434189606%_)))) + (##car _%e192934193105%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189436189611%_)) + (gx#stx-null? _%tl192936193110%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189433189603%_)) - (let ((_%e189437189614%_ + (gx#stx-pair? _%tl192933193102%_)) + (let ((_%e192937193113%_ (let () (declare (not safe)) (gx#stx-e - _%tl189433189603%_)))) - (let ((_%tl189439189619%_ + _%tl192933193102%_)))) + (let ((_%tl192939193118%_ (let () (declare (not safe)) - (##cdr _%e189437189614%_))) - (_%hd189438189617%_ + (##cdr _%e192937193113%_))) + (_%hd192938193116%_ (let () (declare (not safe)) - (##car _%e189437189614%_)))) + (##car _%e192937193113%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl189439189619%_)) + _%tl192939193118%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl189430189595%_)) + _%tl192930193094%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl189427189587%_)) - (let ((_%e189440189622%_ + _%tl192927193086%_)) + (let ((_%e192940193121%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl189427189587%_)))) - (let ((_%tl189442189627%_ + (gx#stx-e _%tl192927193086%_)))) + (let ((_%tl192942193126%_ (let () (declare (not safe)) - (##cdr _%e189440189622%_))) - (_%hd189441189625%_ + (##cdr _%e192940193121%_))) + (_%hd192941193124%_ (let () (declare (not safe)) - (##car _%e189440189622%_)))) + (##car _%e192940193121%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189442189627%_)) - (_%__kont200394200395%_ - _%hd189441189625%_ - _%hd189438189617%_ - _%hd189435189609%_) - (let () (declare (not safe)) (_%g189417189464%_))))) - (let () (declare (not safe)) (_%g189417189464%_))) - (let () (declare (not safe)) (_%g189417189464%_))) + (gx#stx-null? _%tl192942193126%_)) + (_%__kont203835203836%_ + _%hd192941193124%_ + _%hd192938193116%_ + _%hd192935193108%_) + (let () (declare (not safe)) (_%g192917192964%_))))) + (let () (declare (not safe)) (_%g192917192964%_))) + (let () (declare (not safe)) (_%g192917192964%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g189417189464%_))))) + (_%g192917192964%_))))) (let () (declare (not safe)) - (_%g189417189464%_))) + (_%g192917192964%_))) (let () (declare (not safe)) - (_%g189417189464%_))))) + (_%g192917192964%_))))) (let () (declare (not safe)) - (_%g189417189464%_))))) - (let () (declare (not safe)) (_%g189417189464%_))))) - (let () (declare (not safe)) (_%g189417189464%_))))) + (_%g192917192964%_))))) + (let () (declare (not safe)) (_%g192917192964%_))))) + (let () (declare (not safe)) (_%g192917192964%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g189417189464%_))) + (_%g192917192964%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd189423189577%_)) + _%hd192923193076%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl189424189579%_)) - (let ((_%e189448189477%_ + _%tl192924193078%_)) + (let ((_%e192948192977%_ (let () (declare (not safe)) (gx#stx-e - _%tl189424189579%_)))) - (let ((_%tl189450189482%_ + _%tl192924193078%_)))) + (let ((_%tl192950192982%_ (let () (declare (not safe)) - (##cdr _%e189448189477%_))) - (_%hd189449189480%_ + (##cdr _%e192948192977%_))) + (_%hd192949192980%_ (let () (declare (not safe)) - (##car _%e189448189477%_)))) + (##car _%e192948192977%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd189449189480%_)) - (let ((_%e189451189485%_ + _%hd192949192980%_)) + (let ((_%e192951192985%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd189449189480%_)))) - (let ((_%tl189453189490%_ + (gx#stx-e _%hd192949192980%_)))) + (let ((_%tl192953192990%_ (let () (declare (not safe)) - (##cdr _%e189451189485%_))) - (_%hd189452189488%_ + (##cdr _%e192951192985%_))) + (_%hd192952192988%_ (let () (declare (not safe)) - (##car _%e189451189485%_)))) + (##car _%e192951192985%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd189452189488%_)) + (gx#identifier? _%hd192952192988%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd189452189488%_)) + (gx#stx-eq? '%#ref _%hd192952192988%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189453189490%_)) - (let ((_%e189454189493%_ + (gx#stx-pair? _%tl192953192990%_)) + (let ((_%e192954192993%_ (let () (declare (not safe)) - (gx#stx-e _%tl189453189490%_)))) - (let ((_%tl189456189498%_ + (gx#stx-e _%tl192953192990%_)))) + (let ((_%tl192956192998%_ (let () (declare (not safe)) - (##cdr _%e189454189493%_))) - (_%hd189455189496%_ + (##cdr _%e192954192993%_))) + (_%hd192955192996%_ (let () (declare (not safe)) - (##car _%e189454189493%_)))) + (##car _%e192954192993%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189456189498%_)) + (gx#stx-null? _%tl192956192998%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl189450189482%_)) - (let ((_%e189457189501%_ + _%tl192950192982%_)) + (let ((_%e192957193001%_ (let () (declare (not safe)) (gx#stx-e - _%tl189450189482%_)))) - (let ((_%tl189459189506%_ + _%tl192950192982%_)))) + (let ((_%tl192959193006%_ (let () (declare (not safe)) - (##cdr _%e189457189501%_))) - (_%hd189458189504%_ + (##cdr _%e192957193001%_))) + (_%hd192958193004%_ (let () (declare (not safe)) - (##car _%e189457189501%_)))) + (##car _%e192957193001%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl189459189506%_)) - (_%__kont200396200397%_ - _%hd189458189504%_ - _%hd189455189496%_) + _%tl192959193006%_)) + (_%__kont203837203838%_ + _%hd192958193004%_ + _%hd192955192996%_) (let () (declare (not safe)) - (_%g189417189464%_))))) + (_%g192917192964%_))))) (let () (declare (not safe)) - (_%g189417189464%_))) + (_%g192917192964%_))) (let () (declare (not safe)) - (_%g189417189464%_))))) + (_%g192917192964%_))))) (let () (declare (not safe)) - (_%g189417189464%_))) + (_%g192917192964%_))) (let () (declare (not safe)) - (_%g189417189464%_))) - (let () (declare (not safe)) (_%g189417189464%_))))) - (let () (declare (not safe)) (_%g189417189464%_))))) + (_%g192917192964%_))) + (let () (declare (not safe)) (_%g192917192964%_))))) + (let () (declare (not safe)) (_%g192917192964%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g189417189464%_))) + (_%g192917192964%_))) (let () (declare (not safe)) - (_%g189417189464%_)))) + (_%g192917192964%_)))) (let () (declare (not safe)) - (_%g189417189464%_))))) + (_%g192917192964%_))))) (let () (declare (not safe)) - (_%g189417189464%_))))))) - _%hd189318189380%_ - _%hd189315189372%_ - _%hd189312189364%_) - (_%g189294189324%_ _%g189295189327%_)))) + (_%g192917192964%_))))))) + _%hd192818192880%_ + _%hd192815192872%_ + _%hd192812192864%_) + (_%g192794192824%_ _%g192795192827%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g189294189324%_ - _%g189295189327%_)) - (_%g189294189324%_ - _%g189295189327%_)) - (_%g189294189324%_ - _%g189295189327%_)))) - (_%g189294189324%_ _%g189295189327%_)) - (_%g189294189324%_ _%g189295189327%_)))) - (_%g189294189324%_ _%g189295189327%_)))) - (_%g189294189324%_ _%g189295189327%_)))) + (_%g192794192824%_ + _%g192795192827%_)) + (_%g192794192824%_ + _%g192795192827%_)) + (_%g192794192824%_ + _%g192795192827%_)))) + (_%g192794192824%_ _%g192795192827%_)) + (_%g192794192824%_ _%g192795192827%_)))) + (_%g192794192824%_ _%g192795192827%_)))) + (_%g192794192824%_ _%g192795192827%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g189294189324%_ - _%g189295189327%_)))) - (_%g189294189324%_ _%g189295189327%_)) - (_%g189294189324%_ _%g189295189327%_)) - (_%g189294189324%_ _%g189295189327%_)))) - (_%g189294189324%_ _%g189295189327%_))))) - (_%g189293189658%_ _%stx189292%_)))) + (_%g192794192824%_ + _%g192795192827%_)))) + (_%g192794192824%_ _%g192795192827%_)) + (_%g192794192824%_ _%g192795192827%_)) + (_%g192794192824%_ _%g192795192827%_)))) + (_%g192794192824%_ _%g192795192827%_))))) + (_%g192793193157%_ _%stx192792%_)))) (define gxc#optimize-syntax-case-body - (lambda (_%stx189219%_ - _%expr189220%_ - _%negation189221%_ - _%clauses189222%_) - (letrec ((_%normalize189224%_ - (lambda (_%clauses189252%_) - (let* ((_%clauses189253189262%_ _%clauses189252%_) - (_%E189255189266%_ + (lambda (_%stx192720%_ + _%expr192721%_ + _%negation192722%_ + _%clauses192723%_) + (letrec ((_%normalize192725%_ + (lambda (_%clauses192753%_) + (let* ((_%clauses192754192763%_ _%clauses192753%_) + (_%E192756192766%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clauses189253189262%_ + _%clauses192754192763%_ '([[id . kont] . rest]))) '#!void)) - (_%K189256189273%_ - (lambda (_%rest189269%_ - _%kont189270%_ - _%id189271%_) - (cons (cons '#f _%kont189270%_) - _%rest189269%_)))) - (if (pair? _%clauses189253189262%_) - (let ((_%hd189257189276%_ + (_%K192757192773%_ + (lambda (_%rest192769%_ + _%kont192770%_ + _%id192771%_) + (cons (cons '#f _%kont192770%_) + _%rest192769%_)))) + (if (pair? _%clauses192754192763%_) + (let ((_%hd192758192776%_ (let () (declare (not safe)) - (##car _%clauses189253189262%_))) - (_%tl189258189278%_ + (##car _%clauses192754192763%_))) + (_%tl192759192778%_ (let () (declare (not safe)) - (##cdr _%clauses189253189262%_)))) - (if (pair? _%hd189257189276%_) - (let ((_%hd189259189281%_ + (##cdr _%clauses192754192763%_)))) + (if (pair? _%hd192758192776%_) + (let ((_%hd192760192781%_ (let () (declare (not safe)) - (##car _%hd189257189276%_))) - (_%tl189260189283%_ + (##car _%hd192758192776%_))) + (_%tl192761192783%_ (let () (declare (not safe)) - (##cdr _%hd189257189276%_)))) - (let* ((_%id189286%_ _%hd189259189281%_) - (_%kont189288%_ _%tl189260189283%_) - (_%rest189290%_ _%tl189258189278%_)) - (_%K189256189273%_ - _%rest189290%_ - _%kont189288%_ - _%id189286%_))) - (_%E189255189266%_))) - (_%E189255189266%_)))))) - (let ((__tmp201224 + (##cdr _%hd192758192776%_)))) + (let* ((_%id192786%_ _%hd192760192781%_) + (_%kont192788%_ _%tl192761192783%_) + (_%rest192790%_ _%tl192759192778%_)) + (_%K192757192773%_ + _%rest192790%_ + _%kont192788%_ + _%id192786%_))) + (_%E192756192766%_))) + (_%E192756192766%_)))))) + (let ((__tmp204665 (lambda () - (let* ((_%id189227%_ - (let ((__tmp201225 + (let* ((_%id192728%_ + (let ((__tmp204666 (let () (declare (not safe)) (##gensym '__stx)))) (declare (not safe)) - (make-symbol__0 __tmp201225))) - (_%id189229%_ + (make-symbol__0 __tmp204666))) + (_%id192730%_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _%id189227%_))) - (_%_189231%_ + (gx#core-quote-syntax__0 _%id192728%_))) + (_%_192732%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%id189229%_))) - (_g201226_ + (gx#core-bind-runtime!__0 _%id192730%_))) + (_g204667_ (gxc#optimize-syntax-case-clauses - _%clauses189222%_ - (car _%negation189221%_)))) + _%clauses192723%_ + (car _%negation192722%_)))) (begin - (let ((_g201227_ + (let ((_g204668_ (let () (declare (not safe)) - (if (##values? _g201226_) - (##values-length _g201226_) + (if (##values? _g204667_) + (##values-length _g204667_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g201227_ 2))) - (error "Context expects 2 values" _g201227_))) - (let ((_%clauses189233%_ + (##fx= _g204668_ 2))) + (error "Context expects 2 values" _g204668_))) + (let ((_%clauses192734%_ (let () (declare (not safe)) - (##values-ref _g201226_ 0))) - (_%konts189234%_ + (##values-ref _g204667_ 0))) + (_%konts192735%_ (let () (declare (not safe)) - (##values-ref _g201226_ 1)))) - (let* ((_%clauses189243%_ - (map (lambda (_%g189235189238%_ - _%g189236189240%_) + (##values-ref _g204667_ 1)))) + (let* ((_%clauses192744%_ + (map (lambda (_%g192736192739%_ + _%g192737192741%_) (gxc#optimize-syntax-case-closure - _%g189235189238%_ - _%g189236189240%_ - _%id189229%_)) - _%clauses189233%_ - (let ((__tmp201229 - (cons (car _%negation189221%_) + _%g192736192739%_ + _%g192737192741%_ + _%id192730%_)) + _%clauses192734%_ + (let ((__tmp204670 + (cons (car _%negation192722%_) '())) - (__tmp201228 + (__tmp204669 (map car - (cdr _%clauses189233%_)))) + (cdr _%clauses192734%_)))) (declare (not safe)) (__foldr1 cons - __tmp201229 - __tmp201228)))) - (_%clauses189245%_ - (_%normalize189224%_ _%clauses189243%_)) - (_%negation189247%_ + __tmp204670 + __tmp204669)))) + (_%clauses192746%_ + (_%normalize192725%_ _%clauses192744%_)) + (_%negation192748%_ (gxc#optimize-syntax-case-closure - _%negation189221%_ + _%negation192722%_ '#f - _%id189229%_)) - (_%body189249%_ + _%id192730%_)) + (_%body192750%_ (gxc#optimize-match-body - _%stx189219%_ - _%negation189247%_ - _%clauses189245%_ - _%konts189234%_)) - (__tmp201230 + _%stx192720%_ + _%negation192748%_ + _%clauses192746%_ + _%konts192735%_)) + (__tmp204671 (cons '%#let-values - (cons (cons (cons (cons _%id189229%_ + (cons (cons (cons (cons _%id192730%_ '()) - (cons _%expr189220%_ + (cons _%expr192721%_ '())) '()) - (cons _%body189249%_ '()))))) + (cons _%body192750%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp201230 - _%stx189219%_))))))) - (__tmp201223 - (let ((__obj201144 + __tmp204671 + _%stx192720%_))))))) + (__tmp204664 + (let ((__obj204585 (let () (declare (not safe)) (##structure @@ -13153,72 +13220,75 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj201144)) - __obj201144))) + (gx#local-context:::init!__0 __obj204585)) + __obj204585))) (declare (not safe)) (call-with-parameters__1 - __tmp201224 + __tmp204665 gx#current-expander-context - __tmp201223))))) + __tmp204664))))) (define gxc#optimize-syntax-case-clauses - (lambda (_%clauses187975%_ _%negation-id187976%_) - (letrec ((_%xform-e187978%_ - (lambda (_%expr188363%_ - _%kont-id188364%_ - _%kont-box188365%_ - _%negation-id188366%_) - (let* ((_%__stx200594200595%_ _%expr188363%_) - (_%g188372188505%_ + (lambda (_%clauses191483%_ _%negation-id191484%_) + (letrec ((_%xform-e191486%_ + (lambda (_%expr191868%_ + _%kont-id191869%_ + _%kont-box191870%_ + _%negation-id191871%_) + (let* ((_%__stx204035204036%_ _%expr191868%_) + (_%g191877192010%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200594200595%_))))) - (let ((_%__kont200596200597%_ - (lambda (_%L189195%_ _%L189196%_ _%L189197%_) - (let ((_%K189214%_ - (_%xform-e187978%_ - _%L189196%_ - _%kont-id188364%_ - _%kont-box188365%_ - _%negation-id188366%_))) + _%__stx204035204036%_))))) + (let ((_%__kont204037204038%_ + (lambda (_%g191879192696%_ + _%g191880192697%_ + _%g191881192698%_) + (let ((_%K192715%_ + (_%xform-e191486%_ + _%g191880192697%_ + _%kont-id191869%_ + _%kont-box191870%_ + _%negation-id191871%_))) (cons '%#if - (cons _%L189197%_ - (cons _%K189214%_ - (cons _%L189195%_ '()))))))) - (_%__kont200598200599%_ - (lambda (_%L189110%_ - _%L189111%_ - _%L189112%_ - _%L189113%_ - _%L189114%_) - (let* ((_%id189149%_ - (let ((__tmp201231 + (cons _%g191881192698%_ + (cons _%K192715%_ + (cons _%g191879192696%_ + '()))))))) + (_%__kont204039204040%_ + (lambda (_%g191894192611%_ + _%g191895192612%_ + _%g191896192613%_ + _%g191897192614%_ + _%g191898192615%_) + (let* ((_%id192650%_ + (let ((__tmp204672 (let () (declare (not safe)) (##gensym '__splice)))) (declare (not safe)) - (make-symbol__0 __tmp201231))) - (_%id189151%_ + (make-symbol__0 __tmp204672))) + (_%id192652%_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _%id189149%_))) - (_%_189153%_ + _%id192650%_))) + (_%_192654%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%id189151%_))) - (_%body189155%_ - (_%xform-e187978%_ - _%L189110%_ - _%kont-id188364%_ - _%kont-box188365%_ - _%negation-id188366%_))) + _%id192652%_))) + (_%body192656%_ + (_%xform-e191486%_ + _%g191894192611%_ + _%kont-id191869%_ + _%kont-box191870%_ + _%negation-id191871%_))) (cons '%#let-values - (cons (cons (cons (cons _%id189151%_ + (cons (cons (cons (cons _%id192652%_ '()) (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -13233,112 +13303,117 @@ '#f 'gx#syntax-split-splice->vector)) '())) - _%L189111%_)) + _%g191895192612%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L189114%_ + (cons (cons (cons (cons _%g191898192615%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#call (cons '(%#ref ##vector-ref) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id189151%_ '())) + (cons _%id192652%_ '())) (cons '(%#quote 0) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L189113%_ '()) + (cons (cons (cons _%g191897192614%_ '()) (cons (cons '%#call (cons '(%#ref ##vector-ref) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id189151%_ '())) + (cons _%id192652%_ '())) (cons '(%#quote 1) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) - (cons _%body189155%_ '()))) + (cons _%body192656%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont200600200601%_ - (lambda (_%L188992%_ _%L188993%_) - (let ((_%body189007%_ - (_%xform-e187978%_ - _%L188992%_ - _%kont-id188364%_ - _%kont-box188365%_ - _%negation-id188366%_))) + (_%__kont204041204042%_ + (lambda (_%g191935192493%_ _%g191936192494%_) + (let ((_%body192508%_ + (_%xform-e191486%_ + _%g191935192493%_ + _%kont-id191869%_ + _%kont-box191870%_ + _%negation-id191871%_))) (cons '%#let-values - (cons _%L188993%_ - (cons _%body189007%_ '())))))) - (_%__kont200602200603%_ - (lambda (_%L188936%_ _%L188937%_ _%L188938%_) - (let ((_%lambda-expr188961%_ - (_%xform-loop-e187979%_ - _%L188937%_ - _%kont-id188364%_ - _%kont-box188365%_ - _%negation-id188366%_))) + (cons _%g191936192494%_ + (cons _%body192508%_ '())))))) + (_%__kont204043204044%_ + (lambda (_%g191946192437%_ + _%g191947192438%_ + _%g191948192439%_) + (let ((_%lambda-expr192462%_ + (_%xform-loop-e191487%_ + _%g191947192438%_ + _%kont-id191869%_ + _%kont-box191870%_ + _%negation-id191871%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L188938%_ '()) - (cons _%lambda-expr188961%_ + (cons (cons (cons (cons _%g191948192439%_ + '()) + (cons _%lambda-expr192462%_ '())) '()) - (cons _%L188936%_ '())))))) - (_%__kont200604200605%_ - (lambda (_%L188598%_ _%L188599%_ _%L188600%_) - (let* ((_%__stx200496200497%_ _%L188599%_) - (_%g188629188672%_ + (cons _%g191946192437%_ '())))))) + (_%__kont204045204046%_ + (lambda (_%g191970192099%_ + _%g191971192100%_ + _%g191972192101%_) + (let* ((_%__stx203937203938%_ _%g191971192100%_) + (_%g192130192173%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200496200497%_))))) - (let ((_%__kont200498200499%_ - (lambda (_%L188788%_ - _%L188789%_ - _%L188790%_ - _%L188791%_) - (let ((_%kont188832%_ + _%__stx203937203938%_))))) + (let ((_%__kont203939203940%_ + (lambda (_%g192132192289%_ + _%g192133192290%_ + _%g192134192291%_ + _%g192135192292%_) + (let ((_%kont192333%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons (let ((__tmp201232 + (cons (let ((__tmp204673 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g188824188827%_ _%g188825188829%_) - (cons _%g188824188827%_ _%g188825188829%_)))) + (lambda (_%g192325192328%_ _%g192326192330%_) + (cons _%g192325192328%_ _%g192326192330%_)))) (declare (not safe)) - (__foldr1 __tmp201232 '() _%L188600%_)) - (cons _%L188790%_ '()))))) + (__foldr1 __tmp204673 '() _%g191972192101%_)) + (cons _%g192134192291%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (set-box! - _%kont-box188365%_ - _%kont188832%_) - (let* ((_%kont-args188843%_ - (map (lambda (_%id188834%_) + _%kont-box191870%_ + _%kont192333%_) + (let* ((_%kont-args192344%_ + (map (lambda (_%id192335%_) (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id188834%_ '()))) - (let ((__tmp201233 - (lambda (_%g188835188838%_ _%g188836188840%_) - (cons _%g188835188838%_ _%g188836188840%_)))) + (cons _%id192335%_ '()))) + (let ((__tmp204674 + (lambda (_%g192336192339%_ _%g192337192341%_) + (cons _%g192336192339%_ _%g192337192341%_)))) (declare (not safe)) - (__foldr1 __tmp201233 '() _%L188600%_)))) + (__foldr1 __tmp204674 '() _%g191972192101%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%body188845%_ + (_%body192346%_ (cons '%#if - (cons _%L188791%_ + (cons _%g192135192292%_ (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref - (cons _%kont-id188364%_ '())) - _%kont-args188843%_)) + (cons _%kont-id191869%_ '())) + _%kont-args192344%_)) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -13347,3156 +13422,3165 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L188789%_ '())) + (cons _%g192133192290%_ + '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L188788%_ + (cons _%g192132192289%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (null? (let ((__tmp201234 - (lambda (_%g188847188850%_ + (if (null? (let ((__tmp204675 + (lambda (_%g192348192351%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g188848188852%_) - (cons _%g188847188850%_ _%g188848188852%_)))) + _%g192349192353%_) + (cons _%g192348192351%_ _%g192349192353%_)))) (declare (not safe)) - (__foldr1 __tmp201234 '() _%L188600%_))) + (__foldr1 __tmp204675 '() _%g191972192101%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body188845%_ + _%body192346%_ (cons '%#let-values - (cons (map (lambda (_%id188855%_ + (cons (map (lambda (_%id192356%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%arg188856%_) - (cons (cons _%id188855%_ '()) - (cons _%arg188856%_ '()))) - (let ((__tmp201235 - (lambda (_%g188857188860%_ _%g188858188862%_) - (cons _%g188857188860%_ - _%g188858188862%_)))) + _%arg192357%_) + (cons (cons _%id192356%_ '()) + (cons _%arg192357%_ '()))) + (let ((__tmp204676 + (lambda (_%g192358192361%_ _%g192359192363%_) + (cons _%g192358192361%_ + _%g192359192363%_)))) (declare (not safe)) - (__foldr1 __tmp201235 '() _%L188600%_)) - (let ((__tmp201236 - (lambda (_%g188864188867%_ _%g188865188869%_) - (cons _%g188864188867%_ - _%g188865188869%_)))) + (__foldr1 __tmp204676 '() _%g191972192101%_)) + (let ((__tmp204677 + (lambda (_%g192365192368%_ _%g192366192370%_) + (cons _%g192365192368%_ + _%g192366192370%_)))) (declare (not safe)) - (__foldr1 __tmp201236 '() _%L188598%_))) - (cons _%body188845%_ '())))))))) + (__foldr1 __tmp204677 '() _%g191970192099%_))) + (cons _%body192346%_ '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200500200501%_ + (_%__kont203941203942%_ (lambda () - (let ((_%kont188686%_ + (let ((_%kont192187%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons (let ((__tmp201237 + (cons (let ((__tmp204678 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g188678188681%_ _%g188679188683%_) - (cons _%g188678188681%_ _%g188679188683%_)))) + (lambda (_%g192179192182%_ _%g192180192184%_) + (cons _%g192179192182%_ _%g192180192184%_)))) (declare (not safe)) - (__foldr1 __tmp201237 '() _%L188600%_)) - (cons _%L188599%_ '()))))) + (__foldr1 __tmp204678 '() _%g191972192101%_)) + (cons _%g191971192100%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (set-box! - _%kont-box188365%_ - _%kont188686%_) + _%kont-box191870%_ + _%kont192187%_) (cons '%#call (cons (cons '%#ref - (cons _%kont-id188364%_ + (cons _%kont-id191869%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (let ((__tmp201238 - (lambda (_%g188687188690%_ _%g188688188692%_) - (cons _%g188687188690%_ _%g188688188692%_)))) + (let ((__tmp204679 + (lambda (_%g192188192191%_ _%g192189192193%_) + (cons _%g192188192191%_ _%g192189192193%_)))) (declare (not safe)) - (__foldr1 __tmp201238 '() _%L188598%_)))))))) + (__foldr1 __tmp204679 '() _%g191970192099%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match200591200592%_ - (lambda (_%e188635188700%_ - _%hd188636188703%_ - _%tl188637188705%_ - _%e188638188708%_ - _%hd188639188711%_ - _%tl188640188713%_ - _%e188641188716%_ - _%hd188642188719%_ - _%tl188643188721%_ - _%e188644188724%_ - _%hd188645188727%_ - _%tl188646188729%_ - _%e188647188732%_ - _%hd188648188735%_ - _%tl188649188737%_ - _%e188650188740%_ - _%hd188651188743%_ - _%tl188652188745%_ - _%e188653188748%_ - _%hd188654188751%_ - _%tl188655188753%_ - _%e188656188756%_ - _%hd188657188759%_ - _%tl188658188761%_ - _%e188659188764%_ - _%hd188660188767%_ - _%tl188661188769%_ - _%e188662188772%_ - _%hd188663188775%_ - _%tl188664188777%_ - _%e188665188780%_ - _%hd188666188783%_ - _%tl188667188785%_) - (let ((_%L188788%_ - _%hd188666188783%_) - (_%L188789%_ - _%hd188657188759%_) - (_%L188790%_ - _%hd188642188719%_) - (_%L188791%_ - _%hd188639188711%_)) + (let ((_%__match204032204033%_ + (lambda (_%e192136192201%_ + _%hd192137192204%_ + _%tl192138192206%_ + _%e192139192209%_ + _%hd192140192212%_ + _%tl192141192214%_ + _%e192142192217%_ + _%hd192143192220%_ + _%tl192144192222%_ + _%e192145192225%_ + _%hd192146192228%_ + _%tl192147192230%_ + _%e192148192233%_ + _%hd192149192236%_ + _%tl192150192238%_ + _%e192151192241%_ + _%hd192152192244%_ + _%tl192153192246%_ + _%e192154192249%_ + _%hd192155192252%_ + _%tl192156192254%_ + _%e192157192257%_ + _%hd192158192260%_ + _%tl192159192262%_ + _%e192160192265%_ + _%hd192161192268%_ + _%tl192162192270%_ + _%e192163192273%_ + _%hd192164192276%_ + _%tl192165192278%_ + _%e192166192281%_ + _%hd192167192284%_ + _%tl192168192286%_) + (let ((_%g192132192289%_ + _%hd192167192284%_) + (_%g192133192290%_ + _%hd192158192260%_) + (_%g192134192291%_ + _%hd192143192220%_) + (_%g192135192292%_ + _%hd192140192212%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L188789%_ - _%negation-id188366%_)) - (_%__kont200498200499%_ - _%L188788%_ - _%L188789%_ - _%L188790%_ - _%L188791%_) - (_%__kont200500200501%_)))))) + _%g192133192290%_ + _%negation-id191871%_)) + (_%__kont203939203940%_ + _%g192132192289%_ + _%g192133192290%_ + _%g192134192291%_ + _%g192135192292%_) + (_%__kont203941203942%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx200496200497%_)) - (let ((_%e188635188700%_ + _%__stx203937203938%_)) + (let ((_%e192136192201%_ (let () (declare (not safe)) (gx#stx-e - _%__stx200496200497%_)))) - (let ((_%tl188637188705%_ + _%__stx203937203938%_)))) + (let ((_%tl192138192206%_ (let () (declare (not safe)) - (##cdr _%e188635188700%_))) - (_%hd188636188703%_ + (##cdr _%e192136192201%_))) + (_%hd192137192204%_ (let () (declare (not safe)) - (##car _%e188635188700%_)))) + (##car _%e192136192201%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188636188703%_)) + _%hd192137192204%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd188636188703%_)) + _%hd192137192204%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188637188705%_)) - (let ((_%e188638188708%_ + _%tl192138192206%_)) + (let ((_%e192139192209%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl188637188705%_)))) - (let ((_%tl188640188713%_ + (gx#stx-e _%tl192138192206%_)))) + (let ((_%tl192141192214%_ (let () (declare (not safe)) - (##cdr _%e188638188708%_))) - (_%hd188639188711%_ + (##cdr _%e192139192209%_))) + (_%hd192140192212%_ (let () (declare (not safe)) - (##car _%e188638188708%_)))) + (##car _%e192139192209%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188640188713%_)) - (let ((_%e188641188716%_ + (gx#stx-pair? _%tl192141192214%_)) + (let ((_%e192142192217%_ (let () (declare (not safe)) - (gx#stx-e _%tl188640188713%_)))) - (let ((_%tl188643188721%_ + (gx#stx-e _%tl192141192214%_)))) + (let ((_%tl192144192222%_ (let () (declare (not safe)) - (##cdr _%e188641188716%_))) - (_%hd188642188719%_ + (##cdr _%e192142192217%_))) + (_%hd192143192220%_ (let () (declare (not safe)) - (##car _%e188641188716%_)))) + (##car _%e192142192217%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188643188721%_)) - (let ((_%e188644188724%_ + (gx#stx-pair? _%tl192144192222%_)) + (let ((_%e192145192225%_ (let () (declare (not safe)) - (gx#stx-e _%tl188643188721%_)))) - (let ((_%tl188646188729%_ + (gx#stx-e _%tl192144192222%_)))) + (let ((_%tl192147192230%_ (let () (declare (not safe)) - (##cdr _%e188644188724%_))) - (_%hd188645188727%_ + (##cdr _%e192145192225%_))) + (_%hd192146192228%_ (let () (declare (not safe)) - (##car _%e188644188724%_)))) + (##car _%e192145192225%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188645188727%_)) - (let ((_%e188647188732%_ + (gx#stx-pair? _%hd192146192228%_)) + (let ((_%e192148192233%_ (let () (declare (not safe)) (gx#stx-e - _%hd188645188727%_)))) - (let ((_%tl188649188737%_ + _%hd192146192228%_)))) + (let ((_%tl192150192238%_ (let () (declare (not safe)) - (##cdr _%e188647188732%_))) - (_%hd188648188735%_ + (##cdr _%e192148192233%_))) + (_%hd192149192236%_ (let () (declare (not safe)) - (##car _%e188647188732%_)))) + (##car _%e192148192233%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188648188735%_)) + _%hd192149192236%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd188648188735%_)) + _%hd192149192236%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188649188737%_)) - (let ((_%e188650188740%_ + _%tl192150192238%_)) + (let ((_%e192151192241%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl188649188737%_)))) - (let ((_%tl188652188745%_ + (gx#stx-e _%tl192150192238%_)))) + (let ((_%tl192153192246%_ (let () (declare (not safe)) - (##cdr _%e188650188740%_))) - (_%hd188651188743%_ + (##cdr _%e192151192241%_))) + (_%hd192152192244%_ (let () (declare (not safe)) - (##car _%e188650188740%_)))) + (##car _%e192151192241%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188651188743%_)) - (let ((_%e188653188748%_ + (gx#stx-pair? _%hd192152192244%_)) + (let ((_%e192154192249%_ (let () (declare (not safe)) - (gx#stx-e _%hd188651188743%_)))) - (let ((_%tl188655188753%_ + (gx#stx-e _%hd192152192244%_)))) + (let ((_%tl192156192254%_ (let () (declare (not safe)) - (##cdr _%e188653188748%_))) - (_%hd188654188751%_ + (##cdr _%e192154192249%_))) + (_%hd192155192252%_ (let () (declare (not safe)) - (##car _%e188653188748%_)))) + (##car _%e192154192249%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188654188751%_)) + (gx#identifier? _%hd192155192252%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd188654188751%_)) + (gx#stx-eq? '%#ref _%hd192155192252%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188655188753%_)) - (let ((_%e188656188756%_ + (gx#stx-pair? _%tl192156192254%_)) + (let ((_%e192157192257%_ (let () (declare (not safe)) (gx#stx-e - _%tl188655188753%_)))) - (let ((_%tl188658188761%_ + _%tl192156192254%_)))) + (let ((_%tl192159192262%_ (let () (declare (not safe)) - (##cdr _%e188656188756%_))) - (_%hd188657188759%_ + (##cdr _%e192157192257%_))) + (_%hd192158192260%_ (let () (declare (not safe)) - (##car _%e188656188756%_)))) + (##car _%e192157192257%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188658188761%_)) + _%tl192159192262%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188652188745%_)) - (let ((_%e188659188764%_ + _%tl192153192246%_)) + (let ((_%e192160192265%_ (let () (declare (not safe)) (gx#stx-e - _%tl188652188745%_)))) - (let ((_%tl188661188769%_ + _%tl192153192246%_)))) + (let ((_%tl192162192270%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e188659188764%_))) - (_%hd188660188767%_ - (let () (declare (not safe)) (##car _%e188659188764%_)))) + (##cdr _%e192160192265%_))) + (_%hd192161192268%_ + (let () (declare (not safe)) (##car _%e192160192265%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188660188767%_)) - (let ((_%e188662188772%_ + (gx#stx-pair? _%hd192161192268%_)) + (let ((_%e192163192273%_ (let () (declare (not safe)) - (gx#stx-e _%hd188660188767%_)))) - (let ((_%tl188664188777%_ + (gx#stx-e _%hd192161192268%_)))) + (let ((_%tl192165192278%_ (let () (declare (not safe)) - (##cdr _%e188662188772%_))) - (_%hd188663188775%_ + (##cdr _%e192163192273%_))) + (_%hd192164192276%_ (let () (declare (not safe)) - (##car _%e188662188772%_)))) + (##car _%e192163192273%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188663188775%_)) + (gx#identifier? _%hd192164192276%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd188663188775%_)) + (gx#stx-eq? '%#ref _%hd192164192276%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188664188777%_)) - (let ((_%e188665188780%_ + (gx#stx-pair? _%tl192165192278%_)) + (let ((_%e192166192281%_ (let () (declare (not safe)) - (gx#stx-e _%tl188664188777%_)))) - (let ((_%tl188667188785%_ + (gx#stx-e _%tl192165192278%_)))) + (let ((_%tl192168192286%_ (let () (declare (not safe)) - (##cdr _%e188665188780%_))) - (_%hd188666188783%_ + (##cdr _%e192166192281%_))) + (_%hd192167192284%_ (let () (declare (not safe)) - (##car _%e188665188780%_)))) + (##car _%e192166192281%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188667188785%_)) + _%tl192168192286%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188661188769%_)) + _%tl192162192270%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188646188729%_)) - (_%__match200591200592%_ - _%e188635188700%_ - _%hd188636188703%_ - _%tl188637188705%_ - _%e188638188708%_ - _%hd188639188711%_ - _%tl188640188713%_ - _%e188641188716%_ - _%hd188642188719%_ - _%tl188643188721%_ - _%e188644188724%_ - _%hd188645188727%_ - _%tl188646188729%_ - _%e188647188732%_ - _%hd188648188735%_ - _%tl188649188737%_ - _%e188650188740%_ - _%hd188651188743%_ - _%tl188652188745%_ - _%e188653188748%_ - _%hd188654188751%_ - _%tl188655188753%_ - _%e188656188756%_ - _%hd188657188759%_ - _%tl188658188761%_ - _%e188659188764%_ - _%hd188660188767%_ - _%tl188661188769%_ - _%e188662188772%_ - _%hd188663188775%_ - _%tl188664188777%_ - _%e188665188780%_ - _%hd188666188783%_ - _%tl188667188785%_) - (_%__kont200500200501%_)) - (_%__kont200500200501%_)) - (_%__kont200500200501%_)))) - (_%__kont200500200501%_)) - (_%__kont200500200501%_)) - (_%__kont200500200501%_)))) - (_%__kont200500200501%_)))) + _%tl192147192230%_)) + (_%__match204032204033%_ + _%e192136192201%_ + _%hd192137192204%_ + _%tl192138192206%_ + _%e192139192209%_ + _%hd192140192212%_ + _%tl192141192214%_ + _%e192142192217%_ + _%hd192143192220%_ + _%tl192144192222%_ + _%e192145192225%_ + _%hd192146192228%_ + _%tl192147192230%_ + _%e192148192233%_ + _%hd192149192236%_ + _%tl192150192238%_ + _%e192151192241%_ + _%hd192152192244%_ + _%tl192153192246%_ + _%e192154192249%_ + _%hd192155192252%_ + _%tl192156192254%_ + _%e192157192257%_ + _%hd192158192260%_ + _%tl192159192262%_ + _%e192160192265%_ + _%hd192161192268%_ + _%tl192162192270%_ + _%e192163192273%_ + _%hd192164192276%_ + _%tl192165192278%_ + _%e192166192281%_ + _%hd192167192284%_ + _%tl192168192286%_) + (_%__kont203941203942%_)) + (_%__kont203941203942%_)) + (_%__kont203941203942%_)))) + (_%__kont203941203942%_)) + (_%__kont203941203942%_)) + (_%__kont203941203942%_)))) + (_%__kont203941203942%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200500200501%_)) - (_%__kont200500200501%_)))) - (_%__kont200500200501%_)) - (_%__kont200500200501%_)) - (_%__kont200500200501%_)))) - (_%__kont200500200501%_)))) - (_%__kont200500200501%_)) + (_%__kont203941203942%_)) + (_%__kont203941203942%_)))) + (_%__kont203941203942%_)) + (_%__kont203941203942%_)) + (_%__kont203941203942%_)))) + (_%__kont203941203942%_)))) + (_%__kont203941203942%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200500200501%_)) - (_%__kont200500200501%_)))) - (_%__kont200500200501%_)))) - (_%__kont200500200501%_)))) - (_%__kont200500200501%_)))) - (_%__kont200500200501%_)) + (_%__kont203941203942%_)) + (_%__kont203941203942%_)))) + (_%__kont203941203942%_)))) + (_%__kont203941203942%_)))) + (_%__kont203941203942%_)))) + (_%__kont203941203942%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200500200501%_)) - (_%__kont200500200501%_)))) - (_%__kont200500200501%_)))))))) - (let* ((_%__match200851200852%_ - (lambda (_%e188468188510%_ - _%hd188469188513%_ - _%tl188470188515%_ - _%e188471188518%_ - _%hd188472188521%_ - _%tl188473188523%_ - _%e188474188526%_ - _%hd188475188529%_ - _%tl188476188531%_ - _%e188477188534%_ - _%hd188478188537%_ - _%tl188479188539%_ - _%__splice200606200607%_ - _%target188480188542%_ - _%tl188482188544%_) - (letrec ((_%loop188483188547%_ - (lambda (_%hd188481188550%_ - _%id188487188552%_) + (_%__kont203941203942%_)) + (_%__kont203941203942%_)))) + (_%__kont203941203942%_)))))))) + (let* ((_%__match204292204293%_ + (lambda (_%e191973192015%_ + _%hd191974192018%_ + _%tl191975192020%_ + _%e191976192023%_ + _%hd191977192026%_ + _%tl191978192028%_ + _%e191979192031%_ + _%hd191980192034%_ + _%tl191981192036%_ + _%e191982192039%_ + _%hd191983192042%_ + _%tl191984192044%_ + _%__splice204047204048%_ + _%target191985192047%_ + _%tl191987192049%_) + (letrec ((_%loop191988192052%_ + (lambda (_%hd191986192055%_ + _%id191992192057%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188481188550%_)) - (let ((_%e188484188555%_ + _%hd191986192055%_)) + (let ((_%e191989192059%_ (let () (declare (not safe)) (gx#stx-e - _%hd188481188550%_)))) - (let ((_%lp-tl188486188560%_ + _%hd191986192055%_)))) + (let ((_%lp-tl191991192064%_ (let () (declare (not safe)) - (##cdr _%e188484188555%_))) - (_%lp-hd188485188558%_ + (##cdr _%e191989192059%_))) + (_%lp-hd191990192062%_ (let () (declare (not safe)) - (##car _%e188484188555%_)))) - (_%loop188483188547%_ - _%lp-tl188486188560%_ - (cons _%lp-hd188485188558%_ - _%id188487188552%_)))) - (let ((_%id188488188563%_ - (reverse _%id188487188552%_))) + (##car _%e191989192059%_)))) + (_%loop191988192052%_ + _%lp-tl191991192064%_ + (cons _%lp-hd191990192062%_ + _%id191992192057%_)))) + (let ((_%id191993192067%_ + (reverse _%id191992192057%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188479188539%_)) - (let ((_%e188489188566%_ + _%tl191984192044%_)) + (let ((_%e191994192069%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl188479188539%_)))) - (let ((_%tl188491188571%_ + (gx#stx-e _%tl191984192044%_)))) + (let ((_%tl191996192074%_ (let () (declare (not safe)) - (##cdr _%e188489188566%_))) - (_%hd188490188569%_ + (##cdr _%e191994192069%_))) + (_%hd191995192072%_ (let () (declare (not safe)) - (##car _%e188489188566%_)))) + (##car _%e191994192069%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188491188571%_)) + (gx#stx-null? _%tl191996192074%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl188473188523%_)) - (let ((_%__splice200608200609%_ + (gx#stx-pair/null? _%tl191978192028%_)) + (let ((_%__splice204049204050%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl188473188523%_ + _%tl191978192028%_ '0)))) - (let ((_%tl188494188576%_ + (let ((_%tl191999192079%_ (let () (declare (not safe)) (##vector-ref - _%__splice200608200609%_ + _%__splice204049204050%_ '1))) - (_%target188492188574%_ + (_%target191997192077%_ (let () (declare (not safe)) (##vector-ref - _%__splice200608200609%_ + _%__splice204049204050%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188494188576%_)) - (letrec ((_%loop188495188579%_ - (lambda (_%hd188493188582%_ - _%arg188499188584%_) + (gx#stx-null? _%tl191999192079%_)) + (letrec ((_%loop192000192082%_ + (lambda (_%hd191998192085%_ + _%arg192004192087%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188493188582%_)) - (let ((_%e188496188587%_ + _%hd191998192085%_)) + (let ((_%e192001192089%_ (let () (declare (not safe)) (gx#stx-e - _%hd188493188582%_)))) - (let ((_%lp-tl188498188592%_ + _%hd191998192085%_)))) + (let ((_%lp-tl192003192094%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e188496188587%_))) - (_%lp-hd188497188590%_ - (let () (declare (not safe)) (##car _%e188496188587%_)))) - (_%loop188495188579%_ - _%lp-tl188498188592%_ - (cons _%lp-hd188497188590%_ _%arg188499188584%_)))) + (##cdr _%e192001192089%_))) + (_%lp-hd192002192092%_ + (let () (declare (not safe)) (##car _%e192001192089%_)))) + (_%loop192000192082%_ + _%lp-tl192003192094%_ + (cons _%lp-hd192002192092%_ _%arg192004192087%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%arg188500188595%_ - (reverse _%arg188499188584%_))) - (_%__kont200604200605%_ - _%arg188500188595%_ - _%hd188490188569%_ - _%id188488188563%_)))))) - (_%loop188495188579%_ - _%target188492188574%_ + (let ((_%arg192005192097%_ + (reverse _%arg192004192087%_))) + (_%__kont204045204046%_ + _%arg192005192097%_ + _%hd191995192072%_ + _%id191993192067%_)))))) + (_%loop192000192082%_ + _%target191997192077%_ '())) (let () (declare (not safe)) - (_%g188372188505%_))))) - (let () (declare (not safe)) (_%g188372188505%_))) - (let () (declare (not safe)) (_%g188372188505%_))))) - (let () (declare (not safe)) (_%g188372188505%_)))))))) + (_%g191877192010%_))))) + (let () (declare (not safe)) (_%g191877192010%_))) + (let () (declare (not safe)) (_%g191877192010%_))))) + (let () (declare (not safe)) (_%g191877192010%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop188483188547%_ - _%target188480188542%_ + (_%loop191988192052%_ + _%target191985192047%_ '())))) - (_%__match200733200734%_ - (lambda (_%e188394189014%_ - _%hd188395189017%_ - _%tl188396189019%_ - _%e188397189022%_ - _%hd188398189025%_ - _%tl188399189027%_ - _%e188400189030%_ - _%hd188401189033%_ - _%tl188402189035%_ - _%e188403189038%_ - _%hd188404189041%_ - _%tl188405189043%_ - _%e188406189046%_ - _%hd188407189049%_ - _%tl188408189051%_ - _%e188409189054%_ - _%hd188410189057%_ - _%tl188411189059%_ - _%e188412189062%_ - _%hd188413189065%_ - _%tl188414189067%_ - _%e188415189070%_ - _%hd188416189073%_ - _%tl188417189075%_ - _%e188418189078%_ - _%hd188419189081%_ - _%tl188420189083%_ - _%e188421189086%_ - _%hd188422189089%_ - _%tl188423189091%_ - _%e188424189094%_ - _%hd188425189097%_ - _%tl188426189099%_ - _%e188427189102%_ - _%hd188428189105%_ - _%tl188429189107%_) - (let ((_%L189110%_ _%hd188428189105%_) - (_%L189111%_ _%tl188420189083%_) - (_%L189112%_ _%hd188425189097%_) - (_%L189113%_ _%hd188410189057%_) - (_%L189114%_ _%hd188407189049%_)) + (_%__match204174204175%_ + (lambda (_%e191899192515%_ + _%hd191900192518%_ + _%tl191901192520%_ + _%e191902192523%_ + _%hd191903192526%_ + _%tl191904192528%_ + _%e191905192531%_ + _%hd191906192534%_ + _%tl191907192536%_ + _%e191908192539%_ + _%hd191909192542%_ + _%tl191910192544%_ + _%e191911192547%_ + _%hd191912192550%_ + _%tl191913192552%_ + _%e191914192555%_ + _%hd191915192558%_ + _%tl191916192560%_ + _%e191917192563%_ + _%hd191918192566%_ + _%tl191919192568%_ + _%e191920192571%_ + _%hd191921192574%_ + _%tl191922192576%_ + _%e191923192579%_ + _%hd191924192582%_ + _%tl191925192584%_ + _%e191926192587%_ + _%hd191927192590%_ + _%tl191928192592%_ + _%e191929192595%_ + _%hd191930192598%_ + _%tl191931192600%_ + _%e191932192603%_ + _%hd191933192606%_ + _%tl191934192608%_) + (let ((_%g191894192611%_ _%hd191933192606%_) + (_%g191895192612%_ _%tl191925192584%_) + (_%g191896192613%_ _%hd191930192598%_) + (_%g191897192614%_ _%hd191915192558%_) + (_%g191898192615%_ _%hd191912192550%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L189112%_ + _%g191896192613%_ 'gx#syntax-split-splice)) - (_%__kont200598200599%_ - _%L189110%_ - _%L189111%_ - _%L189112%_ - _%L189113%_ - _%L189114%_) - (_%__kont200600200601%_ - _%hd188428189105%_ - _%hd188398189025%_)))))) + (_%__kont204039204040%_ + _%g191894192611%_ + _%g191895192612%_ + _%g191896192613%_ + _%g191897192614%_ + _%g191898192615%_) + (_%__kont204041204042%_ + _%hd191933192606%_ + _%hd191903192526%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx200594200595%_)) - (let ((_%e188377189163%_ + (gx#stx-pair? _%__stx204035204036%_)) + (let ((_%e191882192664%_ (let () (declare (not safe)) - (gx#stx-e _%__stx200594200595%_)))) - (let ((_%tl188379189168%_ + (gx#stx-e _%__stx204035204036%_)))) + (let ((_%tl191884192669%_ (let () (declare (not safe)) - (##cdr _%e188377189163%_))) - (_%hd188378189166%_ + (##cdr _%e191882192664%_))) + (_%hd191883192667%_ (let () (declare (not safe)) - (##car _%e188377189163%_)))) + (##car _%e191882192664%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188378189166%_)) + (gx#identifier? _%hd191883192667%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd188378189166%_)) + _%hd191883192667%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188379189168%_)) - (let ((_%e188380189171%_ + _%tl191884192669%_)) + (let ((_%e191885192672%_ (let () (declare (not safe)) (gx#stx-e - _%tl188379189168%_)))) - (let ((_%tl188382189176%_ + _%tl191884192669%_)))) + (let ((_%tl191887192677%_ (let () (declare (not safe)) - (##cdr _%e188380189171%_))) - (_%hd188381189174%_ + (##cdr _%e191885192672%_))) + (_%hd191886192675%_ (let () (declare (not safe)) - (##car _%e188380189171%_)))) + (##car _%e191885192672%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188382189176%_)) - (let ((_%e188383189179%_ + _%tl191887192677%_)) + (let ((_%e191888192680%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl188382189176%_)))) - (let ((_%tl188385189184%_ - (let () (declare (not safe)) (##cdr _%e188383189179%_))) - (_%hd188384189182%_ + (gx#stx-e _%tl191887192677%_)))) + (let ((_%tl191890192685%_ + (let () (declare (not safe)) (##cdr _%e191888192680%_))) + (_%hd191889192683%_ (let () (declare (not safe)) - (##car _%e188383189179%_)))) + (##car _%e191888192680%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188385189184%_)) - (let ((_%e188386189187%_ + (gx#stx-pair? _%tl191890192685%_)) + (let ((_%e191891192688%_ (let () (declare (not safe)) - (gx#stx-e _%tl188385189184%_)))) - (let ((_%tl188388189192%_ + (gx#stx-e _%tl191890192685%_)))) + (let ((_%tl191893192693%_ (let () (declare (not safe)) - (##cdr _%e188386189187%_))) - (_%hd188387189190%_ + (##cdr _%e191891192688%_))) + (_%hd191892192691%_ (let () (declare (not safe)) - (##car _%e188386189187%_)))) + (##car _%e191891192688%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188388189192%_)) - (_%__kont200596200597%_ - _%hd188387189190%_ - _%hd188384189182%_ - _%hd188381189174%_) + (gx#stx-null? _%tl191893192693%_)) + (_%__kont204037204038%_ + _%hd191892192691%_ + _%hd191889192683%_ + _%hd191886192675%_) (let () (declare (not safe)) - (_%g188372188505%_))))) - (let () (declare (not safe)) (_%g188372188505%_))))) - (let () (declare (not safe)) (_%g188372188505%_))))) + (_%g191877192010%_))))) + (let () (declare (not safe)) (_%g191877192010%_))))) + (let () (declare (not safe)) (_%g191877192010%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188372188505%_))) + (_%g191877192010%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd188378189166%_)) + _%hd191883192667%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188379189168%_)) - (let ((_%e188397189022%_ + _%tl191884192669%_)) + (let ((_%e191902192523%_ (let () (declare (not safe)) (gx#stx-e - _%tl188379189168%_)))) - (let ((_%tl188399189027%_ + _%tl191884192669%_)))) + (let ((_%tl191904192528%_ (let () (declare (not safe)) - (##cdr _%e188397189022%_))) - (_%hd188398189025%_ + (##cdr _%e191902192523%_))) + (_%hd191903192526%_ (let () (declare (not safe)) - (##car _%e188397189022%_)))) + (##car _%e191902192523%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188398189025%_)) - (let ((_%e188400189030%_ + _%hd191903192526%_)) + (let ((_%e191905192531%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd188398189025%_)))) - (let ((_%tl188402189035%_ + (gx#stx-e _%hd191903192526%_)))) + (let ((_%tl191907192536%_ (let () (declare (not safe)) - (##cdr _%e188400189030%_))) - (_%hd188401189033%_ + (##cdr _%e191905192531%_))) + (_%hd191906192534%_ (let () (declare (not safe)) - (##car _%e188400189030%_)))) + (##car _%e191905192531%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188401189033%_)) - (let ((_%e188403189038%_ + (gx#stx-pair? _%hd191906192534%_)) + (let ((_%e191908192539%_ (let () (declare (not safe)) - (gx#stx-e _%hd188401189033%_)))) - (let ((_%tl188405189043%_ + (gx#stx-e _%hd191906192534%_)))) + (let ((_%tl191910192544%_ (let () (declare (not safe)) - (##cdr _%e188403189038%_))) - (_%hd188404189041%_ + (##cdr _%e191908192539%_))) + (_%hd191909192542%_ (let () (declare (not safe)) - (##car _%e188403189038%_)))) + (##car _%e191908192539%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188404189041%_)) - (let ((_%e188406189046%_ + (gx#stx-pair? _%hd191909192542%_)) + (let ((_%e191911192547%_ (let () (declare (not safe)) - (gx#stx-e _%hd188404189041%_)))) - (let ((_%tl188408189051%_ + (gx#stx-e _%hd191909192542%_)))) + (let ((_%tl191913192552%_ (let () (declare (not safe)) - (##cdr _%e188406189046%_))) - (_%hd188407189049%_ + (##cdr _%e191911192547%_))) + (_%hd191912192550%_ (let () (declare (not safe)) - (##car _%e188406189046%_)))) + (##car _%e191911192547%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188408189051%_)) - (let ((_%e188409189054%_ + (gx#stx-pair? _%tl191913192552%_)) + (let ((_%e191914192555%_ (let () (declare (not safe)) (gx#stx-e - _%tl188408189051%_)))) - (let ((_%tl188411189059%_ + _%tl191913192552%_)))) + (let ((_%tl191916192560%_ (let () (declare (not safe)) - (##cdr _%e188409189054%_))) - (_%hd188410189057%_ + (##cdr _%e191914192555%_))) + (_%hd191915192558%_ (let () (declare (not safe)) - (##car _%e188409189054%_)))) + (##car _%e191914192555%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188411189059%_)) + _%tl191916192560%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188405189043%_)) - (let ((_%e188412189062%_ + _%tl191910192544%_)) + (let ((_%e191917192563%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl188405189043%_)))) - (let ((_%tl188414189067%_ - (let () (declare (not safe)) (##cdr _%e188412189062%_))) - (_%hd188413189065%_ + (gx#stx-e _%tl191910192544%_)))) + (let ((_%tl191919192568%_ + (let () (declare (not safe)) (##cdr _%e191917192563%_))) + (_%hd191918192566%_ (let () (declare (not safe)) - (##car _%e188412189062%_)))) + (##car _%e191917192563%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188413189065%_)) - (let ((_%e188415189070%_ + (gx#stx-pair? _%hd191918192566%_)) + (let ((_%e191920192571%_ (let () (declare (not safe)) - (gx#stx-e _%hd188413189065%_)))) - (let ((_%tl188417189075%_ + (gx#stx-e _%hd191918192566%_)))) + (let ((_%tl191922192576%_ (let () (declare (not safe)) - (##cdr _%e188415189070%_))) - (_%hd188416189073%_ + (##cdr _%e191920192571%_))) + (_%hd191921192574%_ (let () (declare (not safe)) - (##car _%e188415189070%_)))) + (##car _%e191920192571%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188416189073%_)) + (gx#identifier? _%hd191921192574%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd188416189073%_)) + (gx#stx-eq? '%#call _%hd191921192574%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188417189075%_)) - (let ((_%e188418189078%_ + (gx#stx-pair? _%tl191922192576%_)) + (let ((_%e191923192579%_ (let () (declare (not safe)) - (gx#stx-e _%tl188417189075%_)))) - (let ((_%tl188420189083%_ + (gx#stx-e _%tl191922192576%_)))) + (let ((_%tl191925192584%_ (let () (declare (not safe)) - (##cdr _%e188418189078%_))) - (_%hd188419189081%_ + (##cdr _%e191923192579%_))) + (_%hd191924192582%_ (let () (declare (not safe)) - (##car _%e188418189078%_)))) + (##car _%e191923192579%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188419189081%_)) - (let ((_%e188421189086%_ + _%hd191924192582%_)) + (let ((_%e191926192587%_ (let () (declare (not safe)) (gx#stx-e - _%hd188419189081%_)))) - (let ((_%tl188423189091%_ + _%hd191924192582%_)))) + (let ((_%tl191928192592%_ (let () (declare (not safe)) - (##cdr _%e188421189086%_))) - (_%hd188422189089%_ + (##cdr _%e191926192587%_))) + (_%hd191927192590%_ (let () (declare (not safe)) - (##car _%e188421189086%_)))) + (##car _%e191926192587%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188422189089%_)) + _%hd191927192590%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd188422189089%_)) + _%hd191927192590%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl188423189091%_)) - (let ((_%e188424189094%_ + (gx#stx-pair? _%tl191928192592%_)) + (let ((_%e191929192595%_ (let () (declare (not safe)) - (gx#stx-e _%tl188423189091%_)))) - (let ((_%tl188426189099%_ + (gx#stx-e _%tl191928192592%_)))) + (let ((_%tl191931192600%_ (let () (declare (not safe)) - (##cdr _%e188424189094%_))) - (_%hd188425189097%_ + (##cdr _%e191929192595%_))) + (_%hd191930192598%_ (let () (declare (not safe)) - (##car _%e188424189094%_)))) + (##car _%e191929192595%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188426189099%_)) + (gx#stx-null? _%tl191931192600%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188414189067%_)) + (gx#stx-null? _%tl191919192568%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188402189035%_)) + (gx#stx-null? _%tl191907192536%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188399189027%_)) - (let ((_%e188427189102%_ + (gx#stx-pair? _%tl191904192528%_)) + (let ((_%e191932192603%_ (let () (declare (not safe)) (gx#stx-e - _%tl188399189027%_)))) - (let ((_%tl188429189107%_ + _%tl191904192528%_)))) + (let ((_%tl191934192608%_ (let () (declare (not safe)) - (##cdr _%e188427189102%_))) - (_%hd188428189105%_ + (##cdr _%e191932192603%_))) + (_%hd191933192606%_ (let () (declare (not safe)) - (##car _%e188427189102%_)))) + (##car _%e191932192603%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188429189107%_)) - (_%__match200733200734%_ - _%e188377189163%_ - _%hd188378189166%_ - _%tl188379189168%_ - _%e188397189022%_ - _%hd188398189025%_ - _%tl188399189027%_ - _%e188400189030%_ - _%hd188401189033%_ - _%tl188402189035%_ - _%e188403189038%_ - _%hd188404189041%_ - _%tl188405189043%_ - _%e188406189046%_ - _%hd188407189049%_ - _%tl188408189051%_ - _%e188409189054%_ - _%hd188410189057%_ - _%tl188411189059%_ - _%e188412189062%_ - _%hd188413189065%_ - _%tl188414189067%_ - _%e188415189070%_ - _%hd188416189073%_ - _%tl188417189075%_ - _%e188418189078%_ - _%hd188419189081%_ - _%tl188420189083%_ - _%e188421189086%_ - _%hd188422189089%_ - _%tl188423189091%_ - _%e188424189094%_ - _%hd188425189097%_ - _%tl188426189099%_ - _%e188427189102%_ - _%hd188428189105%_ - _%tl188429189107%_) + _%tl191934192608%_)) + (_%__match204174204175%_ + _%e191882192664%_ + _%hd191883192667%_ + _%tl191884192669%_ + _%e191902192523%_ + _%hd191903192526%_ + _%tl191904192528%_ + _%e191905192531%_ + _%hd191906192534%_ + _%tl191907192536%_ + _%e191908192539%_ + _%hd191909192542%_ + _%tl191910192544%_ + _%e191911192547%_ + _%hd191912192550%_ + _%tl191913192552%_ + _%e191914192555%_ + _%hd191915192558%_ + _%tl191916192560%_ + _%e191917192563%_ + _%hd191918192566%_ + _%tl191919192568%_ + _%e191920192571%_ + _%hd191921192574%_ + _%tl191922192576%_ + _%e191923192579%_ + _%hd191924192582%_ + _%tl191925192584%_ + _%e191926192587%_ + _%hd191927192590%_ + _%tl191928192592%_ + _%e191929192595%_ + _%hd191930192598%_ + _%tl191931192600%_ + _%e191932192603%_ + _%hd191933192606%_ + _%tl191934192608%_) (let () (declare (not safe)) - (_%g188372188505%_))))) + (_%g191877192010%_))))) (let () (declare (not safe)) - (_%g188372188505%_))) + (_%g191877192010%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188399189027%_)) - (let ((_%e188438188984%_ + (gx#stx-pair? _%tl191904192528%_)) + (let ((_%e191943192485%_ (let () (declare (not safe)) (gx#stx-e - _%tl188399189027%_)))) - (let ((_%tl188440188989%_ + _%tl191904192528%_)))) + (let ((_%tl191945192490%_ (let () (declare (not safe)) - (##cdr _%e188438188984%_))) - (_%hd188439188987%_ + (##cdr _%e191943192485%_))) + (_%hd191944192488%_ (let () (declare (not safe)) - (##car _%e188438188984%_)))) + (##car _%e191943192485%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188440188989%_)) - (_%__kont200600200601%_ - _%hd188439188987%_ - _%hd188398189025%_) + _%tl191945192490%_)) + (_%__kont204041204042%_ + _%hd191944192488%_ + _%hd191903192526%_) (let () (declare (not safe)) - (_%g188372188505%_))))) + (_%g191877192010%_))))) (let () (declare (not safe)) - (_%g188372188505%_)))) + (_%g191877192010%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188399189027%_)) - (let ((_%e188438188984%_ + (gx#stx-pair? _%tl191904192528%_)) + (let ((_%e191943192485%_ (let () (declare (not safe)) - (gx#stx-e _%tl188399189027%_)))) - (let ((_%tl188440188989%_ + (gx#stx-e _%tl191904192528%_)))) + (let ((_%tl191945192490%_ (let () (declare (not safe)) - (##cdr _%e188438188984%_))) - (_%hd188439188987%_ + (##cdr _%e191943192485%_))) + (_%hd191944192488%_ (let () (declare (not safe)) - (##car _%e188438188984%_)))) + (##car _%e191943192485%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188440188989%_)) - (_%__kont200600200601%_ - _%hd188439188987%_ - _%hd188398189025%_) + _%tl191945192490%_)) + (_%__kont204041204042%_ + _%hd191944192488%_ + _%hd191903192526%_) (let () (declare (not safe)) - (_%g188372188505%_))))) + (_%g191877192010%_))))) (let () (declare (not safe)) - (_%g188372188505%_)))) + (_%g191877192010%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188399189027%_)) - (let ((_%e188438188984%_ + (gx#stx-pair? _%tl191904192528%_)) + (let ((_%e191943192485%_ (let () (declare (not safe)) - (gx#stx-e _%tl188399189027%_)))) - (let ((_%tl188440188989%_ + (gx#stx-e _%tl191904192528%_)))) + (let ((_%tl191945192490%_ (let () (declare (not safe)) - (##cdr _%e188438188984%_))) - (_%hd188439188987%_ + (##cdr _%e191943192485%_))) + (_%hd191944192488%_ (let () (declare (not safe)) - (##car _%e188438188984%_)))) + (##car _%e191943192485%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188440188989%_)) - (_%__kont200600200601%_ - _%hd188439188987%_ - _%hd188398189025%_) + (gx#stx-null? _%tl191945192490%_)) + (_%__kont204041204042%_ + _%hd191944192488%_ + _%hd191903192526%_) (let () (declare (not safe)) - (_%g188372188505%_))))) + (_%g191877192010%_))))) (let () (declare (not safe)) - (_%g188372188505%_)))))) + (_%g191877192010%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188399189027%_)) - (let ((_%e188438188984%_ + (gx#stx-pair? _%tl191904192528%_)) + (let ((_%e191943192485%_ (let () (declare (not safe)) - (gx#stx-e _%tl188399189027%_)))) - (let ((_%tl188440188989%_ + (gx#stx-e _%tl191904192528%_)))) + (let ((_%tl191945192490%_ (let () (declare (not safe)) - (##cdr _%e188438188984%_))) - (_%hd188439188987%_ + (##cdr _%e191943192485%_))) + (_%hd191944192488%_ (let () (declare (not safe)) - (##car _%e188438188984%_)))) + (##car _%e191943192485%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188440188989%_)) - (_%__kont200600200601%_ - _%hd188439188987%_ - _%hd188398189025%_) + (gx#stx-null? _%tl191945192490%_)) + (_%__kont204041204042%_ + _%hd191944192488%_ + _%hd191903192526%_) (let () (declare (not safe)) - (_%g188372188505%_))))) - (let () (declare (not safe)) (_%g188372188505%_)))) + (_%g191877192010%_))))) + (let () (declare (not safe)) (_%g191877192010%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188399189027%_)) - (let ((_%e188438188984%_ + (gx#stx-pair? _%tl191904192528%_)) + (let ((_%e191943192485%_ (let () (declare (not safe)) - (gx#stx-e _%tl188399189027%_)))) - (let ((_%tl188440188989%_ + (gx#stx-e _%tl191904192528%_)))) + (let ((_%tl191945192490%_ (let () (declare (not safe)) - (##cdr _%e188438188984%_))) - (_%hd188439188987%_ + (##cdr _%e191943192485%_))) + (_%hd191944192488%_ (let () (declare (not safe)) - (##car _%e188438188984%_)))) + (##car _%e191943192485%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188440188989%_)) - (_%__kont200600200601%_ - _%hd188439188987%_ - _%hd188398189025%_) + (gx#stx-null? _%tl191945192490%_)) + (_%__kont204041204042%_ + _%hd191944192488%_ + _%hd191903192526%_) (let () (declare (not safe)) - (_%g188372188505%_))))) - (let () (declare (not safe)) (_%g188372188505%_)))) + (_%g191877192010%_))))) + (let () (declare (not safe)) (_%g191877192010%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188399189027%_)) - (let ((_%e188438188984%_ + (gx#stx-pair? _%tl191904192528%_)) + (let ((_%e191943192485%_ (let () (declare (not safe)) - (gx#stx-e _%tl188399189027%_)))) - (let ((_%tl188440188989%_ + (gx#stx-e _%tl191904192528%_)))) + (let ((_%tl191945192490%_ (let () (declare (not safe)) - (##cdr _%e188438188984%_))) - (_%hd188439188987%_ + (##cdr _%e191943192485%_))) + (_%hd191944192488%_ (let () (declare (not safe)) - (##car _%e188438188984%_)))) + (##car _%e191943192485%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188440188989%_)) - (_%__kont200600200601%_ - _%hd188439188987%_ - _%hd188398189025%_) - (let () (declare (not safe)) (_%g188372188505%_))))) - (let () (declare (not safe)) (_%g188372188505%_)))))) + (gx#stx-null? _%tl191945192490%_)) + (_%__kont204041204042%_ + _%hd191944192488%_ + _%hd191903192526%_) + (let () (declare (not safe)) (_%g191877192010%_))))) + (let () (declare (not safe)) (_%g191877192010%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188399189027%_)) - (let ((_%e188438188984%_ + _%tl191904192528%_)) + (let ((_%e191943192485%_ (let () (declare (not safe)) (gx#stx-e - _%tl188399189027%_)))) - (let ((_%tl188440188989%_ + _%tl191904192528%_)))) + (let ((_%tl191945192490%_ (let () (declare (not safe)) - (##cdr _%e188438188984%_))) - (_%hd188439188987%_ + (##cdr _%e191943192485%_))) + (_%hd191944192488%_ (let () (declare (not safe)) - (##car _%e188438188984%_)))) + (##car _%e191943192485%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188440188989%_)) - (_%__kont200600200601%_ - _%hd188439188987%_ - _%hd188398189025%_) + _%tl191945192490%_)) + (_%__kont204041204042%_ + _%hd191944192488%_ + _%hd191903192526%_) (let () (declare (not safe)) - (_%g188372188505%_))))) + (_%g191877192010%_))))) (let () (declare (not safe)) - (_%g188372188505%_)))))) + (_%g191877192010%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188399189027%_)) - (let ((_%e188438188984%_ + (gx#stx-pair? _%tl191904192528%_)) + (let ((_%e191943192485%_ (let () (declare (not safe)) (gx#stx-e - _%tl188399189027%_)))) - (let ((_%tl188440188989%_ + _%tl191904192528%_)))) + (let ((_%tl191945192490%_ (let () (declare (not safe)) - (##cdr _%e188438188984%_))) - (_%hd188439188987%_ + (##cdr _%e191943192485%_))) + (_%hd191944192488%_ (let () (declare (not safe)) - (##car _%e188438188984%_)))) + (##car _%e191943192485%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188440188989%_)) - (_%__kont200600200601%_ - _%hd188439188987%_ - _%hd188398189025%_) + _%tl191945192490%_)) + (_%__kont204041204042%_ + _%hd191944192488%_ + _%hd191903192526%_) (let () (declare (not safe)) - (_%g188372188505%_))))) + (_%g191877192010%_))))) (let () (declare (not safe)) - (_%g188372188505%_)))) + (_%g191877192010%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188399189027%_)) - (let ((_%e188438188984%_ + (gx#stx-pair? _%tl191904192528%_)) + (let ((_%e191943192485%_ (let () (declare (not safe)) - (gx#stx-e _%tl188399189027%_)))) - (let ((_%tl188440188989%_ + (gx#stx-e _%tl191904192528%_)))) + (let ((_%tl191945192490%_ (let () (declare (not safe)) - (##cdr _%e188438188984%_))) - (_%hd188439188987%_ + (##cdr _%e191943192485%_))) + (_%hd191944192488%_ (let () (declare (not safe)) - (##car _%e188438188984%_)))) + (##car _%e191943192485%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188440188989%_)) - (_%__kont200600200601%_ - _%hd188439188987%_ - _%hd188398189025%_) + _%tl191945192490%_)) + (_%__kont204041204042%_ + _%hd191944192488%_ + _%hd191903192526%_) (let () (declare (not safe)) - (_%g188372188505%_))))) + (_%g191877192010%_))))) (let () (declare (not safe)) - (_%g188372188505%_)))) + (_%g191877192010%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188399189027%_)) - (let ((_%e188438188984%_ + (gx#stx-pair? _%tl191904192528%_)) + (let ((_%e191943192485%_ (let () (declare (not safe)) - (gx#stx-e _%tl188399189027%_)))) - (let ((_%tl188440188989%_ + (gx#stx-e _%tl191904192528%_)))) + (let ((_%tl191945192490%_ (let () (declare (not safe)) - (##cdr _%e188438188984%_))) - (_%hd188439188987%_ + (##cdr _%e191943192485%_))) + (_%hd191944192488%_ (let () (declare (not safe)) - (##car _%e188438188984%_)))) + (##car _%e191943192485%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188440188989%_)) - (_%__kont200600200601%_ - _%hd188439188987%_ - _%hd188398189025%_) + (gx#stx-null? _%tl191945192490%_)) + (_%__kont204041204042%_ + _%hd191944192488%_ + _%hd191903192526%_) (let () (declare (not safe)) - (_%g188372188505%_))))) + (_%g191877192010%_))))) (let () (declare (not safe)) - (_%g188372188505%_)))))) + (_%g191877192010%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188399189027%_)) - (let ((_%e188438188984%_ + (gx#stx-pair? _%tl191904192528%_)) + (let ((_%e191943192485%_ (let () (declare (not safe)) - (gx#stx-e _%tl188399189027%_)))) - (let ((_%tl188440188989%_ + (gx#stx-e _%tl191904192528%_)))) + (let ((_%tl191945192490%_ (let () (declare (not safe)) - (##cdr _%e188438188984%_))) - (_%hd188439188987%_ + (##cdr _%e191943192485%_))) + (_%hd191944192488%_ (let () (declare (not safe)) - (##car _%e188438188984%_)))) + (##car _%e191943192485%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188440188989%_)) - (_%__kont200600200601%_ - _%hd188439188987%_ - _%hd188398189025%_) + (gx#stx-null? _%tl191945192490%_)) + (_%__kont204041204042%_ + _%hd191944192488%_ + _%hd191903192526%_) (let () (declare (not safe)) - (_%g188372188505%_))))) - (let () (declare (not safe)) (_%g188372188505%_)))))) + (_%g191877192010%_))))) + (let () (declare (not safe)) (_%g191877192010%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188399189027%_)) - (let ((_%e188438188984%_ + (gx#stx-pair? _%tl191904192528%_)) + (let ((_%e191943192485%_ (let () (declare (not safe)) - (gx#stx-e _%tl188399189027%_)))) - (let ((_%tl188440188989%_ + (gx#stx-e _%tl191904192528%_)))) + (let ((_%tl191945192490%_ (let () (declare (not safe)) - (##cdr _%e188438188984%_))) - (_%hd188439188987%_ + (##cdr _%e191943192485%_))) + (_%hd191944192488%_ (let () (declare (not safe)) - (##car _%e188438188984%_)))) + (##car _%e191943192485%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188440188989%_)) - (_%__kont200600200601%_ - _%hd188439188987%_ - _%hd188398189025%_) - (let () (declare (not safe)) (_%g188372188505%_))))) - (let () (declare (not safe)) (_%g188372188505%_)))) + (gx#stx-null? _%tl191945192490%_)) + (_%__kont204041204042%_ + _%hd191944192488%_ + _%hd191903192526%_) + (let () (declare (not safe)) (_%g191877192010%_))))) + (let () (declare (not safe)) (_%g191877192010%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188399189027%_)) - (let ((_%e188438188984%_ + _%tl191904192528%_)) + (let ((_%e191943192485%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl188399189027%_)))) - (let ((_%tl188440188989%_ - (let () (declare (not safe)) (##cdr _%e188438188984%_))) - (_%hd188439188987%_ + (gx#stx-e _%tl191904192528%_)))) + (let ((_%tl191945192490%_ + (let () (declare (not safe)) (##cdr _%e191943192485%_))) + (_%hd191944192488%_ (let () (declare (not safe)) - (##car _%e188438188984%_)))) + (##car _%e191943192485%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188440188989%_)) - (_%__kont200600200601%_ - _%hd188439188987%_ - _%hd188398189025%_) - (let () (declare (not safe)) (_%g188372188505%_))))) - (let () (declare (not safe)) (_%g188372188505%_)))))) + (gx#stx-null? _%tl191945192490%_)) + (_%__kont204041204042%_ + _%hd191944192488%_ + _%hd191903192526%_) + (let () (declare (not safe)) (_%g191877192010%_))))) + (let () (declare (not safe)) (_%g191877192010%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188399189027%_)) - (let ((_%e188438188984%_ + _%tl191904192528%_)) + (let ((_%e191943192485%_ (let () (declare (not safe)) (gx#stx-e - _%tl188399189027%_)))) - (let ((_%tl188440188989%_ + _%tl191904192528%_)))) + (let ((_%tl191945192490%_ (let () (declare (not safe)) - (##cdr _%e188438188984%_))) - (_%hd188439188987%_ + (##cdr _%e191943192485%_))) + (_%hd191944192488%_ (let () (declare (not safe)) - (##car _%e188438188984%_)))) + (##car _%e191943192485%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188440188989%_)) - (_%__kont200600200601%_ - _%hd188439188987%_ - _%hd188398189025%_) + _%tl191945192490%_)) + (_%__kont204041204042%_ + _%hd191944192488%_ + _%hd191903192526%_) (let () (declare (not safe)) - (_%g188372188505%_))))) + (_%g191877192010%_))))) (let () (declare (not safe)) - (_%g188372188505%_)))))) + (_%g191877192010%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188399189027%_)) - (let ((_%e188438188984%_ + (gx#stx-pair? _%tl191904192528%_)) + (let ((_%e191943192485%_ (let () (declare (not safe)) - (gx#stx-e _%tl188399189027%_)))) - (let ((_%tl188440188989%_ + (gx#stx-e _%tl191904192528%_)))) + (let ((_%tl191945192490%_ (let () (declare (not safe)) - (##cdr _%e188438188984%_))) - (_%hd188439188987%_ + (##cdr _%e191943192485%_))) + (_%hd191944192488%_ (let () (declare (not safe)) - (##car _%e188438188984%_)))) + (##car _%e191943192485%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188440188989%_)) - (_%__kont200600200601%_ - _%hd188439188987%_ - _%hd188398189025%_) + _%tl191945192490%_)) + (_%__kont204041204042%_ + _%hd191944192488%_ + _%hd191903192526%_) (let () (declare (not safe)) - (_%g188372188505%_))))) + (_%g191877192010%_))))) (let () (declare (not safe)) - (_%g188372188505%_)))))) + (_%g191877192010%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188399189027%_)) - (let ((_%e188438188984%_ + (gx#stx-pair? _%tl191904192528%_)) + (let ((_%e191943192485%_ (let () (declare (not safe)) - (gx#stx-e _%tl188399189027%_)))) - (let ((_%tl188440188989%_ + (gx#stx-e _%tl191904192528%_)))) + (let ((_%tl191945192490%_ (let () (declare (not safe)) - (##cdr _%e188438188984%_))) - (_%hd188439188987%_ + (##cdr _%e191943192485%_))) + (_%hd191944192488%_ (let () (declare (not safe)) - (##car _%e188438188984%_)))) + (##car _%e191943192485%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188440188989%_)) - (_%__kont200600200601%_ - _%hd188439188987%_ - _%hd188398189025%_) + (gx#stx-null? _%tl191945192490%_)) + (_%__kont204041204042%_ + _%hd191944192488%_ + _%hd191903192526%_) (let () (declare (not safe)) - (_%g188372188505%_))))) + (_%g191877192010%_))))) (let () (declare (not safe)) - (_%g188372188505%_)))))) + (_%g191877192010%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188399189027%_)) - (let ((_%e188438188984%_ + (gx#stx-pair? _%tl191904192528%_)) + (let ((_%e191943192485%_ (let () (declare (not safe)) - (gx#stx-e _%tl188399189027%_)))) - (let ((_%tl188440188989%_ + (gx#stx-e _%tl191904192528%_)))) + (let ((_%tl191945192490%_ (let () (declare (not safe)) - (##cdr _%e188438188984%_))) - (_%hd188439188987%_ + (##cdr _%e191943192485%_))) + (_%hd191944192488%_ (let () (declare (not safe)) - (##car _%e188438188984%_)))) + (##car _%e191943192485%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188440188989%_)) - (_%__kont200600200601%_ - _%hd188439188987%_ - _%hd188398189025%_) + (gx#stx-null? _%tl191945192490%_)) + (_%__kont204041204042%_ + _%hd191944192488%_ + _%hd191903192526%_) (let () (declare (not safe)) - (_%g188372188505%_))))) - (let () (declare (not safe)) (_%g188372188505%_)))))) + (_%g191877192010%_))))) + (let () (declare (not safe)) (_%g191877192010%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188372188505%_))) + (_%g191877192010%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd188378189166%_)) + _%hd191883192667%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188379189168%_)) - (let ((_%e188447188888%_ + _%tl191884192669%_)) + (let ((_%e191952192389%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl188379189168%_)))) - (let ((_%tl188449188893%_ - (let () (declare (not safe)) (##cdr _%e188447188888%_))) - (_%hd188448188891%_ + (gx#stx-e _%tl191884192669%_)))) + (let ((_%tl191954192394%_ + (let () (declare (not safe)) (##cdr _%e191952192389%_))) + (_%hd191953192392%_ (let () (declare (not safe)) - (##car _%e188447188888%_)))) + (##car _%e191952192389%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188448188891%_)) - (let ((_%e188450188896%_ + (gx#stx-pair? _%hd191953192392%_)) + (let ((_%e191955192397%_ (let () (declare (not safe)) - (gx#stx-e _%hd188448188891%_)))) - (let ((_%tl188452188901%_ + (gx#stx-e _%hd191953192392%_)))) + (let ((_%tl191957192402%_ (let () (declare (not safe)) - (##cdr _%e188450188896%_))) - (_%hd188451188899%_ + (##cdr _%e191955192397%_))) + (_%hd191956192400%_ (let () (declare (not safe)) - (##car _%e188450188896%_)))) + (##car _%e191955192397%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188451188899%_)) - (let ((_%e188453188904%_ + (gx#stx-pair? _%hd191956192400%_)) + (let ((_%e191958192405%_ (let () (declare (not safe)) - (gx#stx-e _%hd188451188899%_)))) - (let ((_%tl188455188909%_ + (gx#stx-e _%hd191956192400%_)))) + (let ((_%tl191960192410%_ (let () (declare (not safe)) - (##cdr _%e188453188904%_))) - (_%hd188454188907%_ + (##cdr _%e191958192405%_))) + (_%hd191959192408%_ (let () (declare (not safe)) - (##car _%e188453188904%_)))) + (##car _%e191958192405%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188454188907%_)) - (let ((_%e188456188912%_ + (gx#stx-pair? _%hd191959192408%_)) + (let ((_%e191961192413%_ (let () (declare (not safe)) - (gx#stx-e _%hd188454188907%_)))) - (let ((_%tl188458188917%_ + (gx#stx-e _%hd191959192408%_)))) + (let ((_%tl191963192418%_ (let () (declare (not safe)) - (##cdr _%e188456188912%_))) - (_%hd188457188915%_ + (##cdr _%e191961192413%_))) + (_%hd191962192416%_ (let () (declare (not safe)) - (##car _%e188456188912%_)))) + (##car _%e191961192413%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188458188917%_)) + _%tl191963192418%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188455188909%_)) - (let ((_%e188459188920%_ + _%tl191960192410%_)) + (let ((_%e191964192421%_ (let () (declare (not safe)) (gx#stx-e - _%tl188455188909%_)))) - (let ((_%tl188461188925%_ + _%tl191960192410%_)))) + (let ((_%tl191966192426%_ (let () (declare (not safe)) - (##cdr _%e188459188920%_))) - (_%hd188460188923%_ + (##cdr _%e191964192421%_))) + (_%hd191965192424%_ (let () (declare (not safe)) - (##car _%e188459188920%_)))) + (##car _%e191964192421%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188461188925%_)) + _%tl191966192426%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl188452188901%_)) + (gx#stx-null? _%tl191957192402%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188449188893%_)) - (let ((_%e188462188928%_ + (gx#stx-pair? _%tl191954192394%_)) + (let ((_%e191967192429%_ (let () (declare (not safe)) - (gx#stx-e _%tl188449188893%_)))) - (let ((_%tl188464188933%_ + (gx#stx-e _%tl191954192394%_)))) + (let ((_%tl191969192434%_ (let () (declare (not safe)) - (##cdr _%e188462188928%_))) - (_%hd188463188931%_ + (##cdr _%e191967192429%_))) + (_%hd191968192432%_ (let () (declare (not safe)) - (##car _%e188462188928%_)))) + (##car _%e191967192429%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188464188933%_)) - (_%__kont200602200603%_ - _%hd188463188931%_ - _%hd188460188923%_ - _%hd188457188915%_) + (gx#stx-null? _%tl191969192434%_)) + (_%__kont204043204044%_ + _%hd191968192432%_ + _%hd191965192424%_ + _%hd191962192416%_) (let () (declare (not safe)) - (_%g188372188505%_))))) - (let () (declare (not safe)) (_%g188372188505%_))) - (let () (declare (not safe)) (_%g188372188505%_))) - (let () (declare (not safe)) (_%g188372188505%_))))) + (_%g191877192010%_))))) + (let () (declare (not safe)) (_%g191877192010%_))) + (let () (declare (not safe)) (_%g191877192010%_))) + (let () (declare (not safe)) (_%g191877192010%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188372188505%_))) + (_%g191877192010%_))) (let () (declare (not safe)) - (_%g188372188505%_))))) + (_%g191877192010%_))))) (let () (declare (not safe)) - (_%g188372188505%_))))) + (_%g191877192010%_))))) (let () (declare (not safe)) - (_%g188372188505%_))))) - (let () (declare (not safe)) (_%g188372188505%_))))) - (let () (declare (not safe)) (_%g188372188505%_))) + (_%g191877192010%_))))) + (let () (declare (not safe)) (_%g191877192010%_))))) + (let () (declare (not safe)) (_%g191877192010%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd188378189166%_)) + _%hd191883192667%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188379189168%_)) - (let ((_%e188471188518%_ + _%tl191884192669%_)) + (let ((_%e191976192023%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl188379189168%_)))) - (let ((_%tl188473188523%_ + (gx#stx-e _%tl191884192669%_)))) + (let ((_%tl191978192028%_ (let () (declare (not safe)) - (##cdr _%e188471188518%_))) - (_%hd188472188521%_ + (##cdr _%e191976192023%_))) + (_%hd191977192026%_ (let () (declare (not safe)) - (##car _%e188471188518%_)))) + (##car _%e191976192023%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188472188521%_)) - (let ((_%e188474188526%_ + (gx#stx-pair? _%hd191977192026%_)) + (let ((_%e191979192031%_ (let () (declare (not safe)) - (gx#stx-e _%hd188472188521%_)))) - (let ((_%tl188476188531%_ + (gx#stx-e _%hd191977192026%_)))) + (let ((_%tl191981192036%_ (let () (declare (not safe)) - (##cdr _%e188474188526%_))) - (_%hd188475188529%_ + (##cdr _%e191979192031%_))) + (_%hd191980192034%_ (let () (declare (not safe)) - (##car _%e188474188526%_)))) + (##car _%e191979192031%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188475188529%_)) + (gx#identifier? _%hd191980192034%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd188475188529%_)) + _%hd191980192034%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188476188531%_)) - (let ((_%e188477188534%_ + (gx#stx-pair? _%tl191981192036%_)) + (let ((_%e191982192039%_ (let () (declare (not safe)) (gx#stx-e - _%tl188476188531%_)))) - (let ((_%tl188479188539%_ + _%tl191981192036%_)))) + (let ((_%tl191984192044%_ (let () (declare (not safe)) - (##cdr _%e188477188534%_))) - (_%hd188478188537%_ + (##cdr _%e191982192039%_))) + (_%hd191983192042%_ (let () (declare (not safe)) - (##car _%e188477188534%_)))) + (##car _%e191982192039%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd188478188537%_)) - (let ((_%__splice200606200607%_ + _%hd191983192042%_)) + (let ((_%__splice204047204048%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%hd188478188537%_ + _%hd191983192042%_ '0)))) - (let ((_%tl188482188544%_ + (let ((_%tl191987192049%_ (let () (declare (not safe)) (##vector-ref - _%__splice200606200607%_ + _%__splice204047204048%_ '1))) - (_%target188480188542%_ + (_%target191985192047%_ (let () (declare (not safe)) (##vector-ref - _%__splice200606200607%_ + _%__splice204047204048%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188482188544%_)) - (_%__match200851200852%_ - _%e188377189163%_ - _%hd188378189166%_ - _%tl188379189168%_ - _%e188471188518%_ - _%hd188472188521%_ - _%tl188473188523%_ - _%e188474188526%_ - _%hd188475188529%_ - _%tl188476188531%_ - _%e188477188534%_ - _%hd188478188537%_ - _%tl188479188539%_ - _%__splice200606200607%_ - _%target188480188542%_ - _%tl188482188544%_) + _%tl191987192049%_)) + (_%__match204292204293%_ + _%e191882192664%_ + _%hd191883192667%_ + _%tl191884192669%_ + _%e191976192023%_ + _%hd191977192026%_ + _%tl191978192028%_ + _%e191979192031%_ + _%hd191980192034%_ + _%tl191981192036%_ + _%e191982192039%_ + _%hd191983192042%_ + _%tl191984192044%_ + _%__splice204047204048%_ + _%target191985192047%_ + _%tl191987192049%_) (let () (declare (not safe)) - (_%g188372188505%_))))) + (_%g191877192010%_))))) (let () (declare (not safe)) - (_%g188372188505%_))))) + (_%g191877192010%_))))) (let () (declare (not safe)) - (_%g188372188505%_))) + (_%g191877192010%_))) (let () (declare (not safe)) - (_%g188372188505%_))) + (_%g191877192010%_))) (let () (declare (not safe)) - (_%g188372188505%_))))) - (let () (declare (not safe)) (_%g188372188505%_))))) - (let () (declare (not safe)) (_%g188372188505%_))) - (let () (declare (not safe)) (_%g188372188505%_)))))) + (_%g191877192010%_))))) + (let () (declare (not safe)) (_%g191877192010%_))))) + (let () (declare (not safe)) (_%g191877192010%_))) + (let () (declare (not safe)) (_%g191877192010%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188372188505%_))))) + (_%g191877192010%_))))) (let () (declare (not safe)) - (_%g188372188505%_)))))))) - (_%xform-loop-e187979%_ - (lambda (_%expr188189%_ - _%kont-id188190%_ - _%kont-box188191%_ - _%negation-id188192%_) - (let* ((_%g188194188234%_ - (lambda (_%g188195188231%_) + (_%g191877192010%_)))))))) + (_%xform-loop-e191487%_ + (lambda (_%expr191696%_ + _%kont-id191697%_ + _%kont-box191698%_ + _%negation-id191699%_) + (let* ((_%g191701191741%_ + (lambda (_%g191702191738%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g188195188231%_)))) - (_%g188193188360%_ - (lambda (_%g188195188237%_) + _%g191702191738%_)))) + (_%g191700191865%_ + (lambda (_%g191702191744%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g188195188237%_)) - (let ((_%e188200188239%_ + (gx#stx-pair? _%g191702191744%_)) + (let ((_%e191707191746%_ (let () (declare (not safe)) - (gx#stx-e _%g188195188237%_)))) - (let ((_%hd188201188242%_ + (gx#stx-e _%g191702191744%_)))) + (let ((_%hd191708191749%_ (let () (declare (not safe)) - (##car _%e188200188239%_))) - (_%tl188202188244%_ + (##car _%e191707191746%_))) + (_%tl191709191751%_ (let () (declare (not safe)) - (##cdr _%e188200188239%_)))) + (##cdr _%e191707191746%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188201188242%_)) + _%hd191708191749%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd188201188242%_)) + _%hd191708191749%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188202188244%_)) - (let ((_%e188203188247%_ + _%tl191709191751%_)) + (let ((_%e191710191754%_ (let () (declare (not safe)) (gx#stx-e - _%tl188202188244%_)))) - (let ((_%hd188204188250%_ + _%tl191709191751%_)))) + (let ((_%hd191711191757%_ (let () (declare (not safe)) - (##car _%e188203188247%_))) - (_%tl188205188252%_ + (##car _%e191710191754%_))) + (_%tl191712191759%_ (let () (declare (not safe)) - (##cdr _%e188203188247%_)))) + (##cdr _%e191710191754%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd188204188250%_)) - (let ((_g201239_ + _%hd191711191757%_)) + (let ((_g204680_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd188204188250%_ '0)))) + (gx#syntax-split-splice _%hd191711191757%_ '0)))) (begin - (let ((_g201240_ + (let ((_g204681_ (let () (declare (not safe)) - (if (##values? _g201239_) - (##values-length _g201239_) + (if (##values? _g204680_) + (##values-length _g204680_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g201240_ 2))) - (error "Context expects 2 values" _g201240_))) - (let ((_%target188206188255%_ + (##fx= _g204681_ 2))) + (error "Context expects 2 values" _g204681_))) + (let ((_%target191713191762%_ (let () (declare (not safe)) - (##values-ref _g201239_ 0))) - (_%tl188208188257%_ + (##values-ref _g204680_ 0))) + (_%tl191715191764%_ (let () (declare (not safe)) - (##values-ref _g201239_ 1)))) + (##values-ref _g204680_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188208188257%_)) - (letrec ((_%loop188209188260%_ - (lambda (_%hd188207188263%_ - _%id188213188265%_) + (gx#stx-null? _%tl191715191764%_)) + (letrec ((_%loop191716191767%_ + (lambda (_%hd191714191770%_ + _%id191720191772%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188207188263%_)) - (let ((_%e188210188268%_ + _%hd191714191770%_)) + (let ((_%e191717191774%_ (let () (declare (not safe)) (gx#stx-e - _%hd188207188263%_)))) - (let ((_%lp-hd188211188271%_ + _%hd191714191770%_)))) + (let ((_%lp-hd191718191777%_ (let () (declare (not safe)) - (##car _%e188210188268%_))) - (_%lp-tl188212188273%_ + (##car _%e191717191774%_))) + (_%lp-tl191719191779%_ (let () (declare (not safe)) - (##cdr _%e188210188268%_)))) - (_%loop188209188260%_ - _%lp-tl188212188273%_ - (cons _%lp-hd188211188271%_ - _%id188213188265%_)))) - (let ((_%id188214188276%_ - (reverse _%id188213188265%_))) + (##cdr _%e191717191774%_)))) + (_%loop191716191767%_ + _%lp-tl191719191779%_ + (cons _%lp-hd191718191777%_ + _%id191720191772%_)))) + (let ((_%id191721191782%_ + (reverse _%id191720191772%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188205188252%_)) - (let ((_%e188215188279%_ + _%tl191712191759%_)) + (let ((_%e191722191784%_ (let () (declare (not safe)) (gx#stx-e - _%tl188205188252%_)))) - (let ((_%hd188216188282%_ + _%tl191712191759%_)))) + (let ((_%hd191723191787%_ (let () (declare (not safe)) - (##car _%e188215188279%_))) - (_%tl188217188284%_ + (##car _%e191722191784%_))) + (_%tl191724191789%_ (let () (declare (not safe)) - (##cdr _%e188215188279%_)))) + (##cdr _%e191722191784%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188216188282%_)) - (let ((_%e188218188287%_ + _%hd191723191787%_)) + (let ((_%e191725191792%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd188216188282%_)))) - (let ((_%hd188219188290%_ + (gx#stx-e _%hd191723191787%_)))) + (let ((_%hd191726191795%_ (let () (declare (not safe)) - (##car _%e188218188287%_))) - (_%tl188220188292%_ + (##car _%e191725191792%_))) + (_%tl191727191797%_ (let () (declare (not safe)) - (##cdr _%e188218188287%_)))) + (##cdr _%e191725191792%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188219188290%_)) + (gx#identifier? _%hd191726191795%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd188219188290%_)) + (gx#stx-eq? '%#if _%hd191726191795%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188220188292%_)) - (let ((_%e188221188295%_ + (gx#stx-pair? _%tl191727191797%_)) + (let ((_%e191728191800%_ (let () (declare (not safe)) - (gx#stx-e _%tl188220188292%_)))) - (let ((_%hd188222188298%_ + (gx#stx-e _%tl191727191797%_)))) + (let ((_%hd191729191803%_ (let () (declare (not safe)) - (##car _%e188221188295%_))) - (_%tl188223188300%_ + (##car _%e191728191800%_))) + (_%tl191730191805%_ (let () (declare (not safe)) - (##cdr _%e188221188295%_)))) + (##cdr _%e191728191800%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188223188300%_)) - (let ((_%e188224188303%_ + (gx#stx-pair? _%tl191730191805%_)) + (let ((_%e191731191808%_ (let () (declare (not safe)) (gx#stx-e - _%tl188223188300%_)))) - (let ((_%hd188225188306%_ + _%tl191730191805%_)))) + (let ((_%hd191732191811%_ (let () (declare (not safe)) - (##car _%e188224188303%_))) - (_%tl188226188308%_ + (##car _%e191731191808%_))) + (_%tl191733191813%_ (let () (declare (not safe)) - (##cdr _%e188224188303%_)))) + (##cdr _%e191731191808%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188226188308%_)) - (let ((_%e188227188311%_ + _%tl191733191813%_)) + (let ((_%e191734191816%_ (let () (declare (not safe)) (gx#stx-e - _%tl188226188308%_)))) - (let ((_%hd188228188314%_ + _%tl191733191813%_)))) + (let ((_%hd191735191819%_ (let () (declare (not safe)) - (##car _%e188227188311%_))) - (_%tl188229188316%_ + (##car _%e191734191816%_))) + (_%tl191736191821%_ (let () (declare (not safe)) - (##cdr _%e188227188311%_)))) + (##cdr _%e191734191816%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188229188316%_)) + _%tl191736191821%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl188217188284%_)) - ((lambda (_%L188319%_ - _%L188320%_ - _%L188321%_ - _%L188322%_) - (let ((_%E188351%_ - (_%xform-e187978%_ - _%L188319%_ - _%kont-id188190%_ - _%kont-box188191%_ - _%negation-id188192%_))) + (gx#stx-null? _%tl191724191789%_)) + ((lambda (_%g191703191824%_ + _%g191704191825%_ + _%g191705191826%_ + _%g191706191827%_) + (let ((_%E191856%_ + (_%xform-e191486%_ + _%g191703191824%_ + _%kont-id191697%_ + _%kont-box191698%_ + _%negation-id191699%_))) (cons '%#lambda - (cons (let ((__tmp201241 - (lambda (_%g188352188355%_ - _%g188353188357%_) - (cons _%g188352188355%_ - _%g188353188357%_)))) + (cons (let ((__tmp204682 + (lambda (_%g191857191860%_ + _%g191858191862%_) + (cons _%g191857191860%_ + _%g191858191862%_)))) (declare (not safe)) (__foldr1 - __tmp201241 + __tmp204682 '() - _%L188322%_)) + _%g191706191827%_)) (cons (cons '%#if - (cons _%L188321%_ - (cons _%L188320%_ - (cons _%E188351%_ + (cons _%g191705191826%_ + (cons _%g191704191825%_ + (cons _%E191856%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%hd188228188314%_ - _%hd188225188306%_ - _%hd188222188298%_ - _%id188214188276%_) - (_%g188194188234%_ _%g188195188237%_)) - (_%g188194188234%_ _%g188195188237%_)))) + _%hd191735191819%_ + _%hd191732191811%_ + _%hd191729191803%_ + _%id191721191782%_) + (_%g191701191741%_ _%g191702191744%_)) + (_%g191701191741%_ _%g191702191744%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g188194188234%_ - _%g188195188237%_)))) - (_%g188194188234%_ - _%g188195188237%_)))) - (_%g188194188234%_ _%g188195188237%_)) - (_%g188194188234%_ _%g188195188237%_)) - (_%g188194188234%_ _%g188195188237%_)))) - (_%g188194188234%_ _%g188195188237%_)))) + (_%g191701191741%_ + _%g191702191744%_)))) + (_%g191701191741%_ + _%g191702191744%_)))) + (_%g191701191741%_ _%g191702191744%_)) + (_%g191701191741%_ _%g191702191744%_)) + (_%g191701191741%_ _%g191702191744%_)))) + (_%g191701191741%_ _%g191702191744%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g188194188234%_ - _%g188195188237%_))))))) - (_%loop188209188260%_ - _%target188206188255%_ + (_%g191701191741%_ + _%g191702191744%_))))))) + (_%loop191716191767%_ + _%target191713191762%_ '())) - (_%g188194188234%_ _%g188195188237%_))))) - (_%g188194188234%_ _%g188195188237%_)))) + (_%g191701191741%_ _%g191702191744%_))))) + (_%g191701191741%_ _%g191702191744%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g188194188234%_ - _%g188195188237%_)) - (_%g188194188234%_ - _%g188195188237%_)) - (_%g188194188234%_ - _%g188195188237%_)))) - (_%g188194188234%_ _%g188195188237%_))))) - (_%g188193188360%_ _%expr188189%_)))) - (_%clause-e187980%_ - (lambda (_%clause-lambda188059%_ - _%kont-id188060%_ - _%rest188061%_) - (letrec* ((_%kont-box188063%_ (box '#f))) - (let* ((_%negation-id188103%_ - (let* ((_%rest188064188074%_ _%rest188061%_) - (_%else188066188082%_ - (lambda () _%negation-id187976%_)) - (_%K188068188088%_ - (lambda (_%clause188085%_ - _%clause-id188086%_) - _%clause-id188086%_))) - (if (pair? _%rest188064188074%_) - (let ((_%hd188069188091%_ + (_%g191701191741%_ + _%g191702191744%_)) + (_%g191701191741%_ + _%g191702191744%_)) + (_%g191701191741%_ + _%g191702191744%_)))) + (_%g191701191741%_ _%g191702191744%_))))) + (_%g191700191865%_ _%expr191696%_)))) + (_%clause-e191488%_ + (lambda (_%clause-lambda191566%_ + _%kont-id191567%_ + _%rest191568%_) + (letrec* ((_%kont-box191570%_ (box '#f))) + (let* ((_%negation-id191610%_ + (let* ((_%rest191571191581%_ _%rest191568%_) + (_%else191573191589%_ + (lambda () _%negation-id191484%_)) + (_%K191575191595%_ + (lambda (_%clause191592%_ + _%clause-id191593%_) + _%clause-id191593%_))) + (if (pair? _%rest191571191581%_) + (let ((_%hd191576191598%_ (let () (declare (not safe)) - (##car _%rest188064188074%_)))) - (if (pair? _%hd188069188091%_) - (let ((_%hd188071188094%_ + (##car _%rest191571191581%_)))) + (if (pair? _%hd191576191598%_) + (let ((_%hd191578191601%_ (let () (declare (not safe)) - (##car _%hd188069188091%_))) - (_%tl188072188096%_ + (##car _%hd191576191598%_))) + (_%tl191579191603%_ (let () (declare (not safe)) - (##cdr _%hd188069188091%_)))) - (let* ((_%clause-id188099%_ - _%hd188071188094%_) - (_%clause188101%_ - _%tl188072188096%_)) - (_%K188068188088%_ - _%clause188101%_ - _%clause-id188099%_))) - (_%else188066188082%_))) - (_%else188066188082%_)))) - (_%g188105188125%_ - (lambda (_%g188106188122%_) + (##cdr _%hd191576191598%_)))) + (let* ((_%clause-id191606%_ + _%hd191578191601%_) + (_%clause191608%_ + _%tl191579191603%_)) + (_%K191575191595%_ + _%clause191608%_ + _%clause-id191606%_))) + (_%else191573191589%_))) + (_%else191573191589%_)))) + (_%g191612191632%_ + (lambda (_%g191613191629%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g188106188122%_)))) - (_%g188104188186%_ - (lambda (_%g188106188128%_) + _%g191613191629%_)))) + (_%g191611191693%_ + (lambda (_%g191613191635%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g188106188128%_)) - (let ((_%e188109188130%_ + (gx#stx-pair? _%g191613191635%_)) + (let ((_%e191616191637%_ (let () (declare (not safe)) - (gx#stx-e _%g188106188128%_)))) - (let ((_%hd188110188133%_ + (gx#stx-e _%g191613191635%_)))) + (let ((_%hd191617191640%_ (let () (declare (not safe)) - (##car _%e188109188130%_))) - (_%tl188111188135%_ + (##car _%e191616191637%_))) + (_%tl191618191642%_ (let () (declare (not safe)) - (##cdr _%e188109188130%_)))) + (##cdr _%e191616191637%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188110188133%_)) + _%hd191617191640%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd188110188133%_)) + _%hd191617191640%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188111188135%_)) - (let ((_%e188112188138%_ + _%tl191618191642%_)) + (let ((_%e191619191645%_ (let () (declare (not safe)) (gx#stx-e - _%tl188111188135%_)))) - (let ((_%hd188113188141%_ + _%tl191618191642%_)))) + (let ((_%hd191620191648%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e188112188138%_))) - (_%tl188114188143%_ - (let () (declare (not safe)) (##cdr _%e188112188138%_)))) + (##car _%e191619191645%_))) + (_%tl191621191650%_ + (let () (declare (not safe)) (##cdr _%e191619191645%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188113188141%_)) - (let ((_%e188115188146%_ + (gx#stx-pair? _%hd191620191648%_)) + (let ((_%e191622191653%_ (let () (declare (not safe)) - (gx#stx-e _%hd188113188141%_)))) - (let ((_%hd188116188149%_ + (gx#stx-e _%hd191620191648%_)))) + (let ((_%hd191623191656%_ (let () (declare (not safe)) - (##car _%e188115188146%_))) - (_%tl188117188151%_ + (##car _%e191622191653%_))) + (_%tl191624191658%_ (let () (declare (not safe)) - (##cdr _%e188115188146%_)))) + (##cdr _%e191622191653%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188117188151%_)) + (gx#stx-null? _%tl191624191658%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188114188143%_)) - (let ((_%e188118188154%_ + (gx#stx-pair? _%tl191621191650%_)) + (let ((_%e191625191661%_ (let () (declare (not safe)) - (gx#stx-e _%tl188114188143%_)))) - (let ((_%hd188119188157%_ + (gx#stx-e _%tl191621191650%_)))) + (let ((_%hd191626191664%_ (let () (declare (not safe)) - (##car _%e188118188154%_))) - (_%tl188120188159%_ + (##car _%e191625191661%_))) + (_%tl191627191666%_ (let () (declare (not safe)) - (##cdr _%e188118188154%_)))) + (##cdr _%e191625191661%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188120188159%_)) - ((lambda (_%L188162%_ _%L188163%_) - (let ((_%body188184%_ - (_%xform-e187978%_ - _%L188162%_ - _%kont-id188060%_ - _%kont-box188063%_ - _%negation-id188103%_))) + (gx#stx-null? _%tl191627191666%_)) + ((lambda (_%g191614191669%_ + _%g191615191670%_) + (let ((_%body191691%_ + (_%xform-e191486%_ + _%g191614191669%_ + _%kont-id191567%_ + _%kont-box191570%_ + _%negation-id191610%_))) (values (cons '%#lambda - (cons (cons _%L188163%_ + (cons (cons _%g191615191670%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%body188184%_ '()))) + (cons _%body191691%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (unbox _%kont-box188063%_)))) - _%hd188119188157%_ - _%hd188116188149%_) - (_%g188105188125%_ - _%g188106188128%_)))) - (_%g188105188125%_ _%g188106188128%_)) - (_%g188105188125%_ _%g188106188128%_)))) - (_%g188105188125%_ _%g188106188128%_)))) + (unbox _%kont-box191570%_)))) + _%hd191626191664%_ + _%hd191623191656%_) + (_%g191612191632%_ + _%g191613191635%_)))) + (_%g191612191632%_ _%g191613191635%_)) + (_%g191612191632%_ _%g191613191635%_)))) + (_%g191612191632%_ _%g191613191635%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g188105188125%_ - _%g188106188128%_)) - (_%g188105188125%_ - _%g188106188128%_)) - (_%g188105188125%_ - _%g188106188128%_)))) - (_%g188105188125%_ _%g188106188128%_))))) - (_%g188104188186%_ _%clause-lambda188059%_)))))) - (let _%lp187982%_ ((_%rest187984%_ _%clauses187975%_) - (_%clauses187985%_ '()) - (_%konts187986%_ '())) - (let* ((_%rest187987187995%_ _%rest187984%_) - (_%else187989188003%_ + (_%g191612191632%_ + _%g191613191635%_)) + (_%g191612191632%_ + _%g191613191635%_)) + (_%g191612191632%_ + _%g191613191635%_)))) + (_%g191612191632%_ _%g191613191635%_))))) + (_%g191611191693%_ _%clause-lambda191566%_)))))) + (let _%lp191490%_ ((_%rest191492%_ _%clauses191483%_) + (_%clauses191493%_ '()) + (_%konts191494%_ '())) + (let* ((_%rest191495191503%_ _%rest191492%_) + (_%else191497191511%_ (lambda () - (values (reverse _%clauses187985%_) - (reverse _%konts187986%_)))) - (_%K187991188047%_ - (lambda (_%rest188006%_ _%clause188007%_) - (let* ((_%clause188008188015%_ _%clause188007%_) - (_%E188010188019%_ + (values (reverse _%clauses191493%_) + (reverse _%konts191494%_)))) + (_%K191499191554%_ + (lambda (_%rest191514%_ _%clause191515%_) + (let* ((_%clause191516191523%_ _%clause191515%_) + (_%E191518191526%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause188008188015%_ + _%clause191516191523%_ '([clause-id . clause-lambda]))) '#!void)) - (_%K188011188035%_ - (lambda (_%clause-lambda188022%_ - _%clause-id188023%_) - (let* ((_%id188025%_ - (let ((__tmp201242 + (_%K191519191542%_ + (lambda (_%clause-lambda191529%_ + _%clause-id191530%_) + (let* ((_%id191532%_ + (let ((__tmp204683 (let () (declare (not safe)) (##gensym '__kont)))) (declare (not safe)) - (make-symbol__0 __tmp201242))) - (_%id188027%_ + (make-symbol__0 __tmp204683))) + (_%id191534%_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _%id188025%_))) - (_%_188029%_ + _%id191532%_))) + (_%_191536%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%id188027%_))) - (_g201243_ - (_%clause-e187980%_ - _%clause-lambda188022%_ - _%id188027%_ - _%rest188006%_))) + _%id191534%_))) + (_g204684_ + (_%clause-e191488%_ + _%clause-lambda191529%_ + _%id191534%_ + _%rest191514%_))) (begin - (let ((_g201244_ + (let ((_g204685_ (let () (declare (not safe)) - (if (##values? _g201243_) - (##values-length _g201243_) + (if (##values? _g204684_) + (##values-length _g204684_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g201244_ 2))) + (##fx= _g204685_ 2))) (error "Context expects 2 values" - _g201244_))) - (let ((_%clause-lambda188031%_ + _g204685_))) + (let ((_%clause-lambda191538%_ (let () (declare (not safe)) - (##values-ref _g201243_ 0))) - (_%kont188032%_ + (##values-ref _g204684_ 0))) + (_%kont191539%_ (let () (declare (not safe)) - (##values-ref _g201243_ 1)))) - (_%lp187982%_ - _%rest188006%_ - (cons (cons _%clause-id188023%_ - _%clause-lambda188031%_) - _%clauses187985%_) - (cons (cons _%id188027%_ _%kont188032%_) - _%konts187986%_)))))))) - (if (pair? _%clause188008188015%_) - (let ((_%hd188012188038%_ + (##values-ref _g204684_ 1)))) + (_%lp191490%_ + _%rest191514%_ + (cons (cons _%clause-id191530%_ + _%clause-lambda191538%_) + _%clauses191493%_) + (cons (cons _%id191534%_ _%kont191539%_) + _%konts191494%_)))))))) + (if (pair? _%clause191516191523%_) + (let ((_%hd191520191545%_ (let () (declare (not safe)) - (##car _%clause188008188015%_))) - (_%tl188013188040%_ + (##car _%clause191516191523%_))) + (_%tl191521191547%_ (let () (declare (not safe)) - (##cdr _%clause188008188015%_)))) - (let* ((_%clause-id188043%_ _%hd188012188038%_) - (_%clause-lambda188045%_ - _%tl188013188040%_)) - (_%K188011188035%_ - _%clause-lambda188045%_ - _%clause-id188043%_))) - (_%E188010188019%_)))))) - (if (pair? _%rest187987187995%_) - (let ((_%hd187992188050%_ + (##cdr _%clause191516191523%_)))) + (let* ((_%clause-id191550%_ _%hd191520191545%_) + (_%clause-lambda191552%_ + _%tl191521191547%_)) + (_%K191519191542%_ + _%clause-lambda191552%_ + _%clause-id191550%_))) + (_%E191518191526%_)))))) + (if (pair? _%rest191495191503%_) + (let ((_%hd191500191557%_ (let () (declare (not safe)) - (##car _%rest187987187995%_))) - (_%tl187993188052%_ + (##car _%rest191495191503%_))) + (_%tl191501191559%_ (let () (declare (not safe)) - (##cdr _%rest187987187995%_)))) - (let* ((_%clause188055%_ _%hd187992188050%_) - (_%rest188057%_ _%tl187993188052%_)) - (_%K187991188047%_ _%rest188057%_ _%clause188055%_))) - (_%else187989188003%_))))))) + (##cdr _%rest191495191503%_)))) + (let* ((_%clause191562%_ _%hd191500191557%_) + (_%rest191564%_ _%tl191501191559%_)) + (_%K191499191554%_ _%rest191564%_ _%clause191562%_))) + (_%else191497191511%_))))))) (define gxc#optimize-syntax-case-closure - (lambda (_%clause187319%_ _%negation187320%_ _%target187321%_) - (letrec ((_%closure-e187323%_ - (lambda (_%expr187440%_) - (let* ((_%__stx200854200855%_ _%expr187440%_) - (_%g187447187562%_ + (lambda (_%clause190832%_ _%negation190833%_ _%target190834%_) + (letrec ((_%closure-e190836%_ + (lambda (_%expr190952%_) + (let* ((_%__stx204295204296%_ _%expr190952%_) + (_%g190959191074%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200854200855%_))))) - (let ((_%__kont200856200857%_ - (lambda (_%L187953%_ _%L187954%_ _%L187955%_) + _%__stx204295204296%_))))) + (let ((_%__kont204297204298%_ + (lambda (_%g190961191461%_ + _%g190962191462%_ + _%g190963191463%_) (cons '%#if - (cons _%L187955%_ - (cons (_%closure-e187323%_ - _%L187954%_) - (cons (_%closure-e187323%_ - _%L187953%_) + (cons _%g190963191463%_ + (cons (_%closure-e190836%_ + _%g190962191462%_) + (cons (_%closure-e190836%_ + _%g190961191461%_) '())))))) - (_%__kont200858200859%_ - (lambda (_%L187901%_ _%L187902%_) + (_%__kont204299204300%_ + (lambda (_%g190976191409%_ _%g190977191410%_) (cons '%#let-values - (cons _%L187902%_ - (cons (_%closure-e187323%_ - _%L187901%_) + (cons _%g190977191410%_ + (cons (_%closure-e190836%_ + _%g190976191409%_) '()))))) - (_%__kont200860200861%_ - (lambda (_%L187847%_ _%L187848%_ _%L187849%_) + (_%__kont204301204302%_ + (lambda (_%g190987191355%_ + _%g190988191356%_ + _%g190989191357%_) (cons '%#letrec-values - (cons (cons (cons (cons _%L187849%_ '()) - (cons (_%closure-e187323%_ - _%L187848%_) + (cons (cons (cons (cons _%g190989191357%_ + '()) + (cons (_%closure-e190836%_ + _%g190988191356%_) '())) '()) - (cons _%L187847%_ '()))))) - (_%__kont200862200863%_ - (lambda (_%L187760%_ _%L187761%_) + (cons _%g190987191355%_ '()))))) + (_%__kont204303204304%_ + (lambda (_%g191011191268%_ _%g191012191269%_) (cons '%#lambda - (cons (let ((__tmp201245 - (lambda (_%g187778187781%_ - _%g187779187783%_) - (cons _%g187778187781%_ - _%g187779187783%_)))) + (cons (let ((__tmp204686 + (lambda (_%g191286191289%_ + _%g191287191291%_) + (cons _%g191286191289%_ + _%g191287191291%_)))) (declare (not safe)) (__foldr1 - __tmp201245 + __tmp204686 '() - _%L187761%_)) - (cons (_%closure-e187323%_ - _%L187760%_) + _%g191012191269%_)) + (cons (_%closure-e190836%_ + _%g191011191268%_) '()))))) - (_%__kont200866200867%_ - (lambda (_%L187690%_) + (_%__kont204307204308%_ + (lambda (_%g191031191200%_) (cons '%#call (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L187690%_ '())) + (cons _%g191031191200%_ '())) '())))) - (_%__kont200868200869%_ - (lambda (_%L187623%_ _%L187624%_) - _%expr187440%_))) - (let* ((_%__match201087201088%_ - (lambda (_%e187537187567%_ - _%hd187538187570%_ - _%tl187539187572%_ - _%e187540187575%_ - _%hd187541187578%_ - _%tl187542187580%_ - _%e187543187583%_ - _%hd187544187586%_ - _%tl187545187588%_ - _%e187546187591%_ - _%hd187547187594%_ - _%tl187548187596%_ - _%__splice200870200871%_ - _%target187549187599%_ - _%tl187551187601%_) - (letrec ((_%loop187552187604%_ - (lambda (_%hd187550187607%_ - _%arg187556187609%_) + (_%__kont204309204310%_ + (lambda (_%g191047191133%_ _%g191048191134%_) + _%expr190952%_))) + (let* ((_%__match204528204529%_ + (lambda (_%e191049191079%_ + _%hd191050191082%_ + _%tl191051191084%_ + _%e191052191087%_ + _%hd191053191090%_ + _%tl191054191092%_ + _%e191055191095%_ + _%hd191056191098%_ + _%tl191057191100%_ + _%e191058191103%_ + _%hd191059191106%_ + _%tl191060191108%_ + _%__splice204311204312%_ + _%target191061191111%_ + _%tl191063191113%_) + (letrec ((_%loop191064191116%_ + (lambda (_%hd191062191119%_ + _%arg191068191121%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187550187607%_)) - (let ((_%e187553187612%_ + _%hd191062191119%_)) + (let ((_%e191065191123%_ (let () (declare (not safe)) (gx#stx-e - _%hd187550187607%_)))) - (let ((_%lp-tl187555187617%_ + _%hd191062191119%_)))) + (let ((_%lp-tl191067191128%_ (let () (declare (not safe)) - (##cdr _%e187553187612%_))) - (_%lp-hd187554187615%_ + (##cdr _%e191065191123%_))) + (_%lp-hd191066191126%_ (let () (declare (not safe)) - (##car _%e187553187612%_)))) - (_%loop187552187604%_ - _%lp-tl187555187617%_ - (cons _%lp-hd187554187615%_ - _%arg187556187609%_)))) - (let ((_%arg187557187620%_ - (reverse _%arg187556187609%_))) - (_%__kont200868200869%_ - _%arg187557187620%_ - _%hd187547187594%_)))))) - (_%loop187552187604%_ - _%target187549187599%_ + (##car _%e191065191123%_)))) + (_%loop191064191116%_ + _%lp-tl191067191128%_ + (cons _%lp-hd191066191126%_ + _%arg191068191121%_)))) + (let ((_%arg191069191131%_ + (reverse _%arg191068191121%_))) + (_%__kont204309204310%_ + _%arg191069191131%_ + _%hd191059191106%_)))))) + (_%loop191064191116%_ + _%target191061191111%_ '())))) - (_%__match201045201046%_ - (lambda (_%e187520187650%_ - _%hd187521187653%_ - _%tl187522187655%_ - _%e187523187658%_ - _%hd187524187661%_ - _%tl187525187663%_ - _%e187526187666%_ - _%hd187527187669%_ - _%tl187528187671%_ - _%e187529187674%_ - _%hd187530187677%_ - _%tl187531187679%_ - _%e187532187682%_ - _%hd187533187685%_ - _%tl187534187687%_) - (let ((_%L187690%_ _%hd187530187677%_)) + (_%__match204486204487%_ + (lambda (_%e191032191160%_ + _%hd191033191163%_ + _%tl191034191165%_ + _%e191035191168%_ + _%hd191036191171%_ + _%tl191037191173%_ + _%e191038191176%_ + _%hd191039191179%_ + _%tl191040191181%_ + _%e191041191184%_ + _%hd191042191187%_ + _%tl191043191189%_ + _%e191044191192%_ + _%hd191045191195%_ + _%tl191046191197%_) + (let ((_%g191031191200%_ _%hd191042191187%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L187690%_ - _%negation187320%_)) - (_%__kont200866200867%_ _%L187690%_) + _%g191031191200%_ + _%negation190833%_)) + (_%__kont204307204308%_ + _%g191031191200%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl187525187663%_)) - (let ((_%__splice200870200871%_ + _%tl191037191173%_)) + (let ((_%__splice204311204312%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl187525187663%_ + _%tl191037191173%_ '0)))) - (let ((_%tl187551187601%_ + (let ((_%tl191063191113%_ (let () (declare (not safe)) (##vector-ref - _%__splice200870200871%_ + _%__splice204311204312%_ '1))) - (_%target187549187599%_ + (_%target191061191111%_ (let () (declare (not safe)) (##vector-ref - _%__splice200870200871%_ + _%__splice204311204312%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187551187601%_)) - (_%__match201087201088%_ - _%e187520187650%_ - _%hd187521187653%_ - _%tl187522187655%_ - _%e187523187658%_ - _%hd187524187661%_ - _%tl187525187663%_ - _%e187526187666%_ - _%hd187527187669%_ - _%tl187528187671%_ - _%e187529187674%_ - _%hd187530187677%_ - _%tl187531187679%_ - _%__splice200870200871%_ - _%target187549187599%_ - _%tl187551187601%_) + _%tl191063191113%_)) + (_%__match204528204529%_ + _%e191032191160%_ + _%hd191033191163%_ + _%tl191034191165%_ + _%e191035191168%_ + _%hd191036191171%_ + _%tl191037191173%_ + _%e191038191176%_ + _%hd191039191179%_ + _%tl191040191181%_ + _%e191041191184%_ + _%hd191042191187%_ + _%tl191043191189%_ + _%__splice204311204312%_ + _%target191061191111%_ + _%tl191063191113%_) (let () (declare (not safe)) - (_%g187447187562%_))))) + (_%g190959191074%_))))) (let () (declare (not safe)) - (_%g187447187562%_))))))) - (_%__match201003201004%_ - (lambda (_%e187501187712%_ - _%hd187502187715%_ - _%tl187503187717%_ - _%e187504187720%_ - _%hd187505187723%_ - _%tl187506187725%_ - _%__splice200864200865%_ - _%target187507187728%_ - _%tl187509187730%_) - (letrec ((_%loop187510187733%_ - (lambda (_%hd187508187736%_ - _%id187514187738%_) + (_%g190959191074%_))))))) + (_%__match204444204445%_ + (lambda (_%e191013191222%_ + _%hd191014191225%_ + _%tl191015191227%_ + _%e191016191230%_ + _%hd191017191233%_ + _%tl191018191235%_ + _%__splice204305204306%_ + _%target191019191238%_ + _%tl191021191240%_) + (letrec ((_%loop191022191243%_ + (lambda (_%hd191020191246%_ + _%id191026191248%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187508187736%_)) - (let ((_%e187511187741%_ + _%hd191020191246%_)) + (let ((_%e191023191250%_ (let () (declare (not safe)) (gx#stx-e - _%hd187508187736%_)))) - (let ((_%lp-tl187513187746%_ + _%hd191020191246%_)))) + (let ((_%lp-tl191025191255%_ (let () (declare (not safe)) - (##cdr _%e187511187741%_))) - (_%lp-hd187512187744%_ + (##cdr _%e191023191250%_))) + (_%lp-hd191024191253%_ (let () (declare (not safe)) - (##car _%e187511187741%_)))) - (_%loop187510187733%_ - _%lp-tl187513187746%_ - (cons _%lp-hd187512187744%_ - _%id187514187738%_)))) - (let ((_%id187515187749%_ - (reverse _%id187514187738%_))) + (##car _%e191023191250%_)))) + (_%loop191022191243%_ + _%lp-tl191025191255%_ + (cons _%lp-hd191024191253%_ + _%id191026191248%_)))) + (let ((_%id191027191258%_ + (reverse _%id191026191248%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187506187725%_)) - (let ((_%e187516187752%_ + _%tl191018191235%_)) + (let ((_%e191028191260%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl187506187725%_)))) - (let ((_%tl187518187757%_ + (gx#stx-e _%tl191018191235%_)))) + (let ((_%tl191030191265%_ (let () (declare (not safe)) - (##cdr _%e187516187752%_))) - (_%hd187517187755%_ + (##cdr _%e191028191260%_))) + (_%hd191029191263%_ (let () (declare (not safe)) - (##car _%e187516187752%_)))) + (##car _%e191028191260%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187518187757%_)) - (_%__kont200862200863%_ - _%hd187517187755%_ - _%id187515187749%_) - (let () (declare (not safe)) (_%g187447187562%_))))) - (let () (declare (not safe)) (_%g187447187562%_)))))))) + (gx#stx-null? _%tl191030191265%_)) + (_%__kont204303204304%_ + _%hd191029191263%_ + _%id191027191258%_) + (let () (declare (not safe)) (_%g190959191074%_))))) + (let () (declare (not safe)) (_%g190959191074%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop187510187733%_ - _%target187507187728%_ + (_%loop191022191243%_ + _%target191019191238%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx200854200855%_)) - (let ((_%e187452187921%_ + (gx#stx-pair? _%__stx204295204296%_)) + (let ((_%e190964191429%_ (let () (declare (not safe)) - (gx#stx-e _%__stx200854200855%_)))) - (let ((_%tl187454187926%_ + (gx#stx-e _%__stx204295204296%_)))) + (let ((_%tl190966191434%_ (let () (declare (not safe)) - (##cdr _%e187452187921%_))) - (_%hd187453187924%_ + (##cdr _%e190964191429%_))) + (_%hd190965191432%_ (let () (declare (not safe)) - (##car _%e187452187921%_)))) + (##car _%e190964191429%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd187453187924%_)) + (gx#identifier? _%hd190965191432%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd187453187924%_)) + _%hd190965191432%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187454187926%_)) - (let ((_%e187455187929%_ + _%tl190966191434%_)) + (let ((_%e190967191437%_ (let () (declare (not safe)) (gx#stx-e - _%tl187454187926%_)))) - (let ((_%tl187457187934%_ + _%tl190966191434%_)))) + (let ((_%tl190969191442%_ (let () (declare (not safe)) - (##cdr _%e187455187929%_))) - (_%hd187456187932%_ + (##cdr _%e190967191437%_))) + (_%hd190968191440%_ (let () (declare (not safe)) - (##car _%e187455187929%_)))) + (##car _%e190967191437%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187457187934%_)) - (let ((_%e187458187937%_ + _%tl190969191442%_)) + (let ((_%e190970191445%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl187457187934%_)))) - (let ((_%tl187460187942%_ - (let () (declare (not safe)) (##cdr _%e187458187937%_))) - (_%hd187459187940%_ + (gx#stx-e _%tl190969191442%_)))) + (let ((_%tl190972191450%_ + (let () (declare (not safe)) (##cdr _%e190970191445%_))) + (_%hd190971191448%_ (let () (declare (not safe)) - (##car _%e187458187937%_)))) + (##car _%e190970191445%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187460187942%_)) - (let ((_%e187461187945%_ + (gx#stx-pair? _%tl190972191450%_)) + (let ((_%e190973191453%_ (let () (declare (not safe)) - (gx#stx-e _%tl187460187942%_)))) - (let ((_%tl187463187950%_ + (gx#stx-e _%tl190972191450%_)))) + (let ((_%tl190975191458%_ (let () (declare (not safe)) - (##cdr _%e187461187945%_))) - (_%hd187462187948%_ + (##cdr _%e190973191453%_))) + (_%hd190974191456%_ (let () (declare (not safe)) - (##car _%e187461187945%_)))) + (##car _%e190973191453%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187463187950%_)) - (_%__kont200856200857%_ - _%hd187462187948%_ - _%hd187459187940%_ - _%hd187456187932%_) + (gx#stx-null? _%tl190975191458%_)) + (_%__kont204297204298%_ + _%hd190974191456%_ + _%hd190971191448%_ + _%hd190968191440%_) (let () (declare (not safe)) - (_%g187447187562%_))))) - (let () (declare (not safe)) (_%g187447187562%_))))) - (let () (declare (not safe)) (_%g187447187562%_))))) + (_%g190959191074%_))))) + (let () (declare (not safe)) (_%g190959191074%_))))) + (let () (declare (not safe)) (_%g190959191074%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187447187562%_))) + (_%g190959191074%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd187453187924%_)) + _%hd190965191432%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187454187926%_)) - (let ((_%e187469187885%_ + _%tl190966191434%_)) + (let ((_%e190981191393%_ (let () (declare (not safe)) (gx#stx-e - _%tl187454187926%_)))) - (let ((_%tl187471187890%_ + _%tl190966191434%_)))) + (let ((_%tl190983191398%_ (let () (declare (not safe)) - (##cdr _%e187469187885%_))) - (_%hd187470187888%_ + (##cdr _%e190981191393%_))) + (_%hd190982191396%_ (let () (declare (not safe)) - (##car _%e187469187885%_)))) + (##car _%e190981191393%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187471187890%_)) - (let ((_%e187472187893%_ + _%tl190983191398%_)) + (let ((_%e190984191401%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl187471187890%_)))) - (let ((_%tl187474187898%_ + (gx#stx-e _%tl190983191398%_)))) + (let ((_%tl190986191406%_ (let () (declare (not safe)) - (##cdr _%e187472187893%_))) - (_%hd187473187896%_ + (##cdr _%e190984191401%_))) + (_%hd190985191404%_ (let () (declare (not safe)) - (##car _%e187472187893%_)))) + (##car _%e190984191401%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187474187898%_)) - (_%__kont200858200859%_ - _%hd187473187896%_ - _%hd187470187888%_) - (let () (declare (not safe)) (_%g187447187562%_))))) - (let () (declare (not safe)) (_%g187447187562%_))))) + (gx#stx-null? _%tl190986191406%_)) + (_%__kont204299204300%_ + _%hd190985191404%_ + _%hd190982191396%_) + (let () (declare (not safe)) (_%g190959191074%_))))) + (let () (declare (not safe)) (_%g190959191074%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187447187562%_))) + (_%g190959191074%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd187453187924%_)) + _%hd190965191432%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187454187926%_)) - (let ((_%e187481187799%_ + _%tl190966191434%_)) + (let ((_%e190993191307%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl187454187926%_)))) - (let ((_%tl187483187804%_ - (let () (declare (not safe)) (##cdr _%e187481187799%_))) - (_%hd187482187802%_ + (gx#stx-e _%tl190966191434%_)))) + (let ((_%tl190995191312%_ + (let () (declare (not safe)) (##cdr _%e190993191307%_))) + (_%hd190994191310%_ (let () (declare (not safe)) - (##car _%e187481187799%_)))) + (##car _%e190993191307%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187482187802%_)) - (let ((_%e187484187807%_ + (gx#stx-pair? _%hd190994191310%_)) + (let ((_%e190996191315%_ (let () (declare (not safe)) - (gx#stx-e _%hd187482187802%_)))) - (let ((_%tl187486187812%_ + (gx#stx-e _%hd190994191310%_)))) + (let ((_%tl190998191320%_ (let () (declare (not safe)) - (##cdr _%e187484187807%_))) - (_%hd187485187810%_ + (##cdr _%e190996191315%_))) + (_%hd190997191318%_ (let () (declare (not safe)) - (##car _%e187484187807%_)))) + (##car _%e190996191315%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187485187810%_)) - (let ((_%e187487187815%_ + (gx#stx-pair? _%hd190997191318%_)) + (let ((_%e190999191323%_ (let () (declare (not safe)) - (gx#stx-e _%hd187485187810%_)))) - (let ((_%tl187489187820%_ + (gx#stx-e _%hd190997191318%_)))) + (let ((_%tl191001191328%_ (let () (declare (not safe)) - (##cdr _%e187487187815%_))) - (_%hd187488187818%_ + (##cdr _%e190999191323%_))) + (_%hd191000191326%_ (let () (declare (not safe)) - (##car _%e187487187815%_)))) + (##car _%e190999191323%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187488187818%_)) - (let ((_%e187490187823%_ + (gx#stx-pair? _%hd191000191326%_)) + (let ((_%e191002191331%_ (let () (declare (not safe)) - (gx#stx-e _%hd187488187818%_)))) - (let ((_%tl187492187828%_ + (gx#stx-e _%hd191000191326%_)))) + (let ((_%tl191004191336%_ (let () (declare (not safe)) - (##cdr _%e187490187823%_))) - (_%hd187491187826%_ + (##cdr _%e191002191331%_))) + (_%hd191003191334%_ (let () (declare (not safe)) - (##car _%e187490187823%_)))) + (##car _%e191002191331%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187492187828%_)) + _%tl191004191336%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187489187820%_)) - (let ((_%e187493187831%_ + _%tl191001191328%_)) + (let ((_%e191005191339%_ (let () (declare (not safe)) (gx#stx-e - _%tl187489187820%_)))) - (let ((_%tl187495187836%_ + _%tl191001191328%_)))) + (let ((_%tl191007191344%_ (let () (declare (not safe)) - (##cdr _%e187493187831%_))) - (_%hd187494187834%_ + (##cdr _%e191005191339%_))) + (_%hd191006191342%_ (let () (declare (not safe)) - (##car _%e187493187831%_)))) + (##car _%e191005191339%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187495187836%_)) + _%tl191007191344%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl187486187812%_)) + (gx#stx-null? _%tl190998191320%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187483187804%_)) - (let ((_%e187496187839%_ + (gx#stx-pair? _%tl190995191312%_)) + (let ((_%e191008191347%_ (let () (declare (not safe)) - (gx#stx-e _%tl187483187804%_)))) - (let ((_%tl187498187844%_ + (gx#stx-e _%tl190995191312%_)))) + (let ((_%tl191010191352%_ (let () (declare (not safe)) - (##cdr _%e187496187839%_))) - (_%hd187497187842%_ + (##cdr _%e191008191347%_))) + (_%hd191009191350%_ (let () (declare (not safe)) - (##car _%e187496187839%_)))) + (##car _%e191008191347%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187498187844%_)) - (_%__kont200860200861%_ - _%hd187497187842%_ - _%hd187494187834%_ - _%hd187491187826%_) + (gx#stx-null? _%tl191010191352%_)) + (_%__kont204301204302%_ + _%hd191009191350%_ + _%hd191006191342%_ + _%hd191003191334%_) (let () (declare (not safe)) - (_%g187447187562%_))))) - (let () (declare (not safe)) (_%g187447187562%_))) - (let () (declare (not safe)) (_%g187447187562%_))) - (let () (declare (not safe)) (_%g187447187562%_))))) + (_%g190959191074%_))))) + (let () (declare (not safe)) (_%g190959191074%_))) + (let () (declare (not safe)) (_%g190959191074%_))) + (let () (declare (not safe)) (_%g190959191074%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187447187562%_))) + (_%g190959191074%_))) (let () (declare (not safe)) - (_%g187447187562%_))))) + (_%g190959191074%_))))) (let () (declare (not safe)) - (_%g187447187562%_))))) + (_%g190959191074%_))))) (let () (declare (not safe)) - (_%g187447187562%_))))) - (let () (declare (not safe)) (_%g187447187562%_))))) - (let () (declare (not safe)) (_%g187447187562%_))) + (_%g190959191074%_))))) + (let () (declare (not safe)) (_%g190959191074%_))))) + (let () (declare (not safe)) (_%g190959191074%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd187453187924%_)) + _%hd190965191432%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187454187926%_)) - (let ((_%e187504187720%_ + _%tl190966191434%_)) + (let ((_%e191016191230%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl187454187926%_)))) - (let ((_%tl187506187725%_ + (gx#stx-e _%tl190966191434%_)))) + (let ((_%tl191018191235%_ (let () (declare (not safe)) - (##cdr _%e187504187720%_))) - (_%hd187505187723%_ + (##cdr _%e191016191230%_))) + (_%hd191017191233%_ (let () (declare (not safe)) - (##car _%e187504187720%_)))) + (##car _%e191016191230%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd187505187723%_)) - (let ((_%__splice200864200865%_ + (gx#stx-pair/null? _%hd191017191233%_)) + (let ((_%__splice204305204306%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%hd187505187723%_ + _%hd191017191233%_ '0)))) - (let ((_%tl187509187730%_ + (let ((_%tl191021191240%_ (let () (declare (not safe)) (##vector-ref - _%__splice200864200865%_ + _%__splice204305204306%_ '1))) - (_%target187507187728%_ + (_%target191019191238%_ (let () (declare (not safe)) (##vector-ref - _%__splice200864200865%_ + _%__splice204305204306%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187509187730%_)) - (_%__match201003201004%_ - _%e187452187921%_ - _%hd187453187924%_ - _%tl187454187926%_ - _%e187504187720%_ - _%hd187505187723%_ - _%tl187506187725%_ - _%__splice200864200865%_ - _%target187507187728%_ - _%tl187509187730%_) + (gx#stx-null? _%tl191021191240%_)) + (_%__match204444204445%_ + _%e190964191429%_ + _%hd190965191432%_ + _%tl190966191434%_ + _%e191016191230%_ + _%hd191017191233%_ + _%tl191018191235%_ + _%__splice204305204306%_ + _%target191019191238%_ + _%tl191021191240%_) (let () (declare (not safe)) - (_%g187447187562%_))))) - (let () (declare (not safe)) (_%g187447187562%_))))) - (let () (declare (not safe)) (_%g187447187562%_))) + (_%g190959191074%_))))) + (let () (declare (not safe)) (_%g190959191074%_))))) + (let () (declare (not safe)) (_%g190959191074%_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd187453187924%_)) + (gx#stx-eq? '%#call _%hd190965191432%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187454187926%_)) - (let ((_%e187523187658%_ + (gx#stx-pair? _%tl190966191434%_)) + (let ((_%e191035191168%_ (let () (declare (not safe)) - (gx#stx-e _%tl187454187926%_)))) - (let ((_%tl187525187663%_ + (gx#stx-e _%tl190966191434%_)))) + (let ((_%tl191037191173%_ (let () (declare (not safe)) - (##cdr _%e187523187658%_))) - (_%hd187524187661%_ + (##cdr _%e191035191168%_))) + (_%hd191036191171%_ (let () (declare (not safe)) - (##car _%e187523187658%_)))) + (##car _%e191035191168%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187524187661%_)) - (let ((_%e187526187666%_ + (gx#stx-pair? _%hd191036191171%_)) + (let ((_%e191038191176%_ (let () (declare (not safe)) - (gx#stx-e _%hd187524187661%_)))) - (let ((_%tl187528187671%_ + (gx#stx-e _%hd191036191171%_)))) + (let ((_%tl191040191181%_ (let () (declare (not safe)) - (##cdr _%e187526187666%_))) - (_%hd187527187669%_ + (##cdr _%e191038191176%_))) + (_%hd191039191179%_ (let () (declare (not safe)) - (##car _%e187526187666%_)))) + (##car _%e191038191176%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd187527187669%_)) + (gx#identifier? _%hd191039191179%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd187527187669%_)) + _%hd191039191179%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187528187671%_)) - (let ((_%e187529187674%_ + _%tl191040191181%_)) + (let ((_%e191041191184%_ (let () (declare (not safe)) (gx#stx-e - _%tl187528187671%_)))) - (let ((_%tl187531187679%_ + _%tl191040191181%_)))) + (let ((_%tl191043191189%_ (let () (declare (not safe)) - (##cdr _%e187529187674%_))) - (_%hd187530187677%_ + (##cdr _%e191041191184%_))) + (_%hd191042191187%_ (let () (declare (not safe)) - (##car _%e187529187674%_)))) + (##car _%e191041191184%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187531187679%_)) + _%tl191043191189%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187525187663%_)) - (let ((_%e187532187682%_ + _%tl191037191173%_)) + (let ((_%e191044191192%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl187525187663%_)))) - (let ((_%tl187534187687%_ + (gx#stx-e _%tl191037191173%_)))) + (let ((_%tl191046191197%_ (let () (declare (not safe)) - (##cdr _%e187532187682%_))) - (_%hd187533187685%_ + (##cdr _%e191044191192%_))) + (_%hd191045191195%_ (let () (declare (not safe)) - (##car _%e187532187682%_)))) + (##car _%e191044191192%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187534187687%_)) - (_%__match201045201046%_ - _%e187452187921%_ - _%hd187453187924%_ - _%tl187454187926%_ - _%e187523187658%_ - _%hd187524187661%_ - _%tl187525187663%_ - _%e187526187666%_ - _%hd187527187669%_ - _%tl187528187671%_ - _%e187529187674%_ - _%hd187530187677%_ - _%tl187531187679%_ - _%e187532187682%_ - _%hd187533187685%_ - _%tl187534187687%_) + (gx#stx-null? _%tl191046191197%_)) + (_%__match204486204487%_ + _%e190964191429%_ + _%hd190965191432%_ + _%tl190966191434%_ + _%e191035191168%_ + _%hd191036191171%_ + _%tl191037191173%_ + _%e191038191176%_ + _%hd191039191179%_ + _%tl191040191181%_ + _%e191041191184%_ + _%hd191042191187%_ + _%tl191043191189%_ + _%e191044191192%_ + _%hd191045191195%_ + _%tl191046191197%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl187525187663%_)) - (let ((_%__splice200870200871%_ + (gx#stx-pair/null? _%tl191037191173%_)) + (let ((_%__splice204311204312%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl187525187663%_ + _%tl191037191173%_ '0)))) - (let ((_%tl187551187601%_ + (let ((_%tl191063191113%_ (let () (declare (not safe)) (##vector-ref - _%__splice200870200871%_ + _%__splice204311204312%_ '1))) - (_%target187549187599%_ + (_%target191061191111%_ (let () (declare (not safe)) (##vector-ref - _%__splice200870200871%_ + _%__splice204311204312%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187551187601%_)) - (_%__match201087201088%_ - _%e187452187921%_ - _%hd187453187924%_ - _%tl187454187926%_ - _%e187523187658%_ - _%hd187524187661%_ - _%tl187525187663%_ - _%e187526187666%_ - _%hd187527187669%_ - _%tl187528187671%_ - _%e187529187674%_ - _%hd187530187677%_ - _%tl187531187679%_ - _%__splice200870200871%_ - _%target187549187599%_ - _%tl187551187601%_) + (gx#stx-null? _%tl191063191113%_)) + (_%__match204528204529%_ + _%e190964191429%_ + _%hd190965191432%_ + _%tl190966191434%_ + _%e191035191168%_ + _%hd191036191171%_ + _%tl191037191173%_ + _%e191038191176%_ + _%hd191039191179%_ + _%tl191040191181%_ + _%e191041191184%_ + _%hd191042191187%_ + _%tl191043191189%_ + _%__splice204311204312%_ + _%target191061191111%_ + _%tl191063191113%_) (let () (declare (not safe)) - (_%g187447187562%_))))) + (_%g190959191074%_))))) (let () (declare (not safe)) - (_%g187447187562%_)))))) + (_%g190959191074%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl187525187663%_)) - (let ((_%__splice200870200871%_ + (gx#stx-pair/null? _%tl191037191173%_)) + (let ((_%__splice204311204312%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl187525187663%_ + _%tl191037191173%_ '0)))) - (let ((_%tl187551187601%_ + (let ((_%tl191063191113%_ (let () (declare (not safe)) - (##vector-ref _%__splice200870200871%_ '1))) - (_%target187549187599%_ + (##vector-ref _%__splice204311204312%_ '1))) + (_%target191061191111%_ (let () (declare (not safe)) - (##vector-ref _%__splice200870200871%_ '0)))) + (##vector-ref _%__splice204311204312%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187551187601%_)) - (_%__match201087201088%_ - _%e187452187921%_ - _%hd187453187924%_ - _%tl187454187926%_ - _%e187523187658%_ - _%hd187524187661%_ - _%tl187525187663%_ - _%e187526187666%_ - _%hd187527187669%_ - _%tl187528187671%_ - _%e187529187674%_ - _%hd187530187677%_ - _%tl187531187679%_ - _%__splice200870200871%_ - _%target187549187599%_ - _%tl187551187601%_) + (gx#stx-null? _%tl191063191113%_)) + (_%__match204528204529%_ + _%e190964191429%_ + _%hd190965191432%_ + _%tl190966191434%_ + _%e191035191168%_ + _%hd191036191171%_ + _%tl191037191173%_ + _%e191038191176%_ + _%hd191039191179%_ + _%tl191040191181%_ + _%e191041191184%_ + _%hd191042191187%_ + _%tl191043191189%_ + _%__splice204311204312%_ + _%target191061191111%_ + _%tl191063191113%_) (let () (declare (not safe)) - (_%g187447187562%_))))) - (let () (declare (not safe)) (_%g187447187562%_)))) - (let () (declare (not safe)) (_%g187447187562%_))))) + (_%g190959191074%_))))) + (let () (declare (not safe)) (_%g190959191074%_)))) + (let () (declare (not safe)) (_%g190959191074%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187447187562%_))) + (_%g190959191074%_))) (let () (declare (not safe)) - (_%g187447187562%_))) + (_%g190959191074%_))) (let () (declare (not safe)) - (_%g187447187562%_))))) + (_%g190959191074%_))))) (let () (declare (not safe)) - (_%g187447187562%_))))) - (let () (declare (not safe)) (_%g187447187562%_))) - (let () (declare (not safe)) (_%g187447187562%_))))))) + (_%g190959191074%_))))) + (let () (declare (not safe)) (_%g190959191074%_))) + (let () (declare (not safe)) (_%g190959191074%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g187447187562%_))))) + (_%g190959191074%_))))) (let () (declare (not safe)) - (_%g187447187562%_))))))))) - (let* ((_%clause187324187331%_ _%clause187319%_) - (_%E187326187335%_ + (_%g190959191074%_))))))))) + (let* ((_%clause190837190844%_ _%clause190832%_) + (_%E190839190847%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause187324187331%_ + _%clause190837190844%_ '([id . kont]))) '#!void)) - (_%K187327187428%_ - (lambda (_%kont187338%_ _%id187339%_) - (let* ((_%g187341187361%_ - (lambda (_%g187342187358%_) + (_%K190840190940%_ + (lambda (_%kont190850%_ _%id190851%_) + (let* ((_%g190853190873%_ + (lambda (_%g190854190870%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g187342187358%_)))) - (_%g187340187425%_ - (lambda (_%g187342187364%_) + _%g190854190870%_)))) + (_%g190852190937%_ + (lambda (_%g190854190876%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g187342187364%_)) - (let ((_%e187345187366%_ + (gx#stx-pair? _%g190854190876%_)) + (let ((_%e190857190878%_ (let () (declare (not safe)) - (gx#stx-e _%g187342187364%_)))) - (let ((_%hd187346187369%_ + (gx#stx-e _%g190854190876%_)))) + (let ((_%hd190858190881%_ (let () (declare (not safe)) - (##car _%e187345187366%_))) - (_%tl187347187371%_ + (##car _%e190857190878%_))) + (_%tl190859190883%_ (let () (declare (not safe)) - (##cdr _%e187345187366%_)))) + (##cdr _%e190857190878%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187346187369%_)) + _%hd190858190881%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd187346187369%_)) + _%hd190858190881%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187347187371%_)) - (let ((_%e187348187374%_ + _%tl190859190883%_)) + (let ((_%e190860190886%_ (let () (declare (not safe)) (gx#stx-e - _%tl187347187371%_)))) - (let ((_%hd187349187377%_ + _%tl190859190883%_)))) + (let ((_%hd190861190889%_ (let () (declare (not safe)) - (##car _%e187348187374%_))) - (_%tl187350187379%_ + (##car _%e190860190886%_))) + (_%tl190862190891%_ (let () (declare (not safe)) - (##cdr _%e187348187374%_)))) + (##cdr _%e190860190886%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187349187377%_)) - (let ((_%e187351187382%_ + _%hd190861190889%_)) + (let ((_%e190863190894%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd187349187377%_)))) - (let ((_%hd187352187385%_ + (gx#stx-e _%hd190861190889%_)))) + (let ((_%hd190864190897%_ (let () (declare (not safe)) - (##car _%e187351187382%_))) - (_%tl187353187387%_ + (##car _%e190863190894%_))) + (_%tl190865190899%_ (let () (declare (not safe)) - (##cdr _%e187351187382%_)))) + (##cdr _%e190863190894%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187353187387%_)) + (gx#stx-null? _%tl190865190899%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187350187379%_)) - (let ((_%e187354187390%_ + (gx#stx-pair? _%tl190862190891%_)) + (let ((_%e190866190902%_ (let () (declare (not safe)) - (gx#stx-e _%tl187350187379%_)))) - (let ((_%hd187355187393%_ + (gx#stx-e _%tl190862190891%_)))) + (let ((_%hd190867190905%_ (let () (declare (not safe)) - (##car _%e187354187390%_))) - (_%tl187356187395%_ + (##car _%e190866190902%_))) + (_%tl190868190907%_ (let () (declare (not safe)) - (##cdr _%e187354187390%_)))) + (##cdr _%e190866190902%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187356187395%_)) - ((lambda (_%L187398%_ _%L187399%_) - (let* ((_%body187420%_ + (gx#stx-null? _%tl190868190907%_)) + ((lambda (_%g190855190910%_ + _%g190856190911%_) + (let* ((_%body190932%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L187399%_ - _%target187321%_ - _%L187398%_))) - (_%body187422%_ - (if _%negation187320%_ - (_%closure-e187323%_ - _%body187420%_) - _%body187420%_))) - (let ((__tmp201247 + _%g190856190911%_ + _%target190834%_ + _%g190855190910%_))) + (_%body190934%_ + (if _%negation190833%_ + (_%closure-e190836%_ + _%body190932%_) + _%body190932%_))) + (let ((__tmp204688 (let () (declare (not safe)) (gxc#identifier-symbol - _%id187339%_))) - (__tmp201246 - (let ((__obj201145 + _%id190851%_))) + (__tmp204687 + (let ((__obj204586 (let () (declare (not safe)) (##structure @@ -16512,575 +16596,575 @@ (gxc#!lambda:::init!__% '#f absent-value - __obj201145 + __obj204586 '0 '#f)) - __obj201145))) + __obj204586))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp201247 - __tmp201246 + __tmp204688 + __tmp204687 '#t)) - (cons _%id187339%_ + (cons _%id190851%_ (cons '%#lambda (cons '() - (cons _%body187422%_ + (cons _%body190934%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd187355187393%_ - _%hd187352187385%_) - (_%g187341187361%_ _%g187342187364%_)))) - (_%g187341187361%_ _%g187342187364%_)) - (_%g187341187361%_ _%g187342187364%_)))) - (_%g187341187361%_ _%g187342187364%_)))) + _%hd190867190905%_ + _%hd190864190897%_) + (_%g190853190873%_ _%g190854190876%_)))) + (_%g190853190873%_ _%g190854190876%_)) + (_%g190853190873%_ _%g190854190876%_)))) + (_%g190853190873%_ _%g190854190876%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g187341187361%_ - _%g187342187364%_)) - (_%g187341187361%_ - _%g187342187364%_)) - (_%g187341187361%_ - _%g187342187364%_)))) - (_%g187341187361%_ _%g187342187364%_))))) - (_%g187340187425%_ _%kont187338%_))))) - (if (pair? _%clause187324187331%_) - (let ((_%hd187328187431%_ + (_%g190853190873%_ + _%g190854190876%_)) + (_%g190853190873%_ + _%g190854190876%_)) + (_%g190853190873%_ + _%g190854190876%_)))) + (_%g190853190873%_ _%g190854190876%_))))) + (_%g190852190937%_ _%kont190850%_))))) + (if (pair? _%clause190837190844%_) + (let ((_%hd190841190943%_ (let () (declare (not safe)) - (##car _%clause187324187331%_))) - (_%tl187329187433%_ + (##car _%clause190837190844%_))) + (_%tl190842190945%_ (let () (declare (not safe)) - (##cdr _%clause187324187331%_)))) - (let* ((_%id187436%_ _%hd187328187431%_) - (_%kont187438%_ _%tl187329187433%_)) - (_%K187327187428%_ _%kont187438%_ _%id187436%_))) - (_%E187326187335%_)))))) + (##cdr _%clause190837190844%_)))) + (let* ((_%id190948%_ _%hd190841190943%_) + (_%kont190950%_ _%tl190842190945%_)) + (_%K190840190940%_ _%kont190950%_ _%id190948%_))) + (_%E190839190847%_)))))) (define gxc#push-match-vars-let-values% - (lambda (_%self187103%_ _%stx187104%_) - (let* ((_%g187106187123%_ - (lambda (_%g187107187120%_) + (lambda (_%self190616%_ _%stx190617%_) + (let* ((_%g190619190636%_ + (lambda (_%g190620190633%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g187107187120%_)))) - (_%g187105187316%_ - (lambda (_%g187107187126%_) + _%g190620190633%_)))) + (_%g190618190829%_ + (lambda (_%g190620190639%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g187107187126%_)) - (let ((_%e187110187128%_ + (gx#stx-pair? _%g190620190639%_)) + (let ((_%e190623190641%_ (let () (declare (not safe)) - (gx#stx-e _%g187107187126%_)))) - (let ((_%hd187111187131%_ + (gx#stx-e _%g190620190639%_)))) + (let ((_%hd190624190644%_ (let () (declare (not safe)) - (##car _%e187110187128%_))) - (_%tl187112187133%_ + (##car _%e190623190641%_))) + (_%tl190625190646%_ (let () (declare (not safe)) - (##cdr _%e187110187128%_)))) + (##cdr _%e190623190641%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187112187133%_)) - (let ((_%e187113187136%_ + (gx#stx-pair? _%tl190625190646%_)) + (let ((_%e190626190649%_ (let () (declare (not safe)) - (gx#stx-e _%tl187112187133%_)))) - (let ((_%hd187114187139%_ + (gx#stx-e _%tl190625190646%_)))) + (let ((_%hd190627190652%_ (let () (declare (not safe)) - (##car _%e187113187136%_))) - (_%tl187115187141%_ + (##car _%e190626190649%_))) + (_%tl190628190654%_ (let () (declare (not safe)) - (##cdr _%e187113187136%_)))) + (##cdr _%e190626190649%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187115187141%_)) - (let ((_%e187116187144%_ + (gx#stx-pair? _%tl190628190654%_)) + (let ((_%e190629190657%_ (let () (declare (not safe)) - (gx#stx-e _%tl187115187141%_)))) - (let ((_%hd187117187147%_ + (gx#stx-e _%tl190628190654%_)))) + (let ((_%hd190630190660%_ (let () (declare (not safe)) - (##car _%e187116187144%_))) - (_%tl187118187149%_ + (##car _%e190629190657%_))) + (_%tl190631190662%_ (let () (declare (not safe)) - (##cdr _%e187116187144%_)))) + (##cdr _%e190629190657%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187118187149%_)) - ((lambda (_%L187152%_ - _%L187153%_) - (let _%lp187168%_ ((_%rest187170%_ + _%tl190631190662%_)) + ((lambda (_%g190621190665%_ + _%g190622190666%_) + (let _%lp190681%_ ((_%rest190683%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L187153%_) - (_%rebind187171%_ '()) - (_%vars187172%_ + _%g190622190666%_) + (_%rebind190684%_ '()) + (_%vars190685%_ (let () (declare (not safe)) - (slot-ref__0 _%self187103%_ 'vars)))) + (slot-ref__0 _%self190616%_ 'vars)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%rest187173187181%_ - _%rest187170%_) - (_%else187175187192%_ + (let* ((_%rest190686190694%_ + _%rest190683%_) + (_%else190688190705%_ (lambda () - (let ((_%sibling187189%_ + (let ((_%sibling190702%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (struct-copy _%self187103%_)))) + (struct-copy _%self190616%_)))) (let () (declare (not safe)) - (slot-set!__0 _%sibling187189%_ 'vars _%vars187172%_)) - (let ((__tmp201248 + (slot-set!__0 _%sibling190702%_ 'vars _%vars190685%_)) + (let ((__tmp204689 (lambda () - (if (null? _%rebind187171%_) + (if (null? _%rebind190684%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%sibling187189%_ - _%L187152%_)) - (let ((__tmp201249 + _%sibling190702%_ + _%g190621190665%_)) + (let ((__tmp204690 (cons '%#let-values - (cons (reverse _%rebind187171%_) + (cons (reverse _%rebind190684%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__1 _%sibling187189%_ _%L187152%_)) + (gxc#compile-e__1 _%sibling190702%_ _%g190621190665%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp201249 - _%stx187104%_)))))) + __tmp204690 + _%stx190617%_)))))) (declare (not safe)) (call-with-parameters__1 - __tmp201248 + __tmp204689 gxc#current-compile-method - _%sibling187189%_))))) - (_%K187177187304%_ - (lambda (_%rest187195%_ _%bind187196%_) - (let* ((_%__stx201090201091%_ _%bind187196%_) - (_%g187199187222%_ + _%sibling190702%_))))) + (_%K190690190817%_ + (lambda (_%rest190708%_ _%bind190709%_) + (let* ((_%__stx204531204532%_ _%bind190709%_) + (_%g190712190735%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx201090201091%_))))) - (let ((_%__kont201092201093%_ - (lambda (_%L187274%_ _%L187275%_) - (_%lp187168%_ - _%rest187195%_ - _%rebind187171%_ - (cons _%bind187196%_ _%vars187172%_)))) - (_%__kont201094201095%_ + _%__stx204531204532%_))))) + (let ((_%__kont204533204534%_ + (lambda (_%g190714190787%_ _%g190715190788%_) + (_%lp190681%_ + _%rest190708%_ + _%rebind190684%_ + (cons _%bind190709%_ _%vars190685%_)))) + (_%__kont204535204536%_ (lambda () - (_%lp187168%_ - _%rest187195%_ - (cons _%bind187196%_ _%rebind187171%_) - _%vars187172%_)))) + (_%lp190681%_ + _%rest190708%_ + (cons _%bind190709%_ _%rebind190684%_) + _%vars190685%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx201090201091%_)) - (let ((_%e187203187234%_ + (gx#stx-pair? _%__stx204531204532%_)) + (let ((_%e190716190747%_ (let () (declare (not safe)) - (gx#stx-e _%__stx201090201091%_)))) - (let ((_%tl187205187239%_ + (gx#stx-e _%__stx204531204532%_)))) + (let ((_%tl190718190752%_ (let () (declare (not safe)) - (##cdr _%e187203187234%_))) - (_%hd187204187237%_ + (##cdr _%e190716190747%_))) + (_%hd190717190750%_ (let () (declare (not safe)) - (##car _%e187203187234%_)))) + (##car _%e190716190747%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187204187237%_)) - (let ((_%e187206187242%_ + (gx#stx-pair? _%hd190717190750%_)) + (let ((_%e190719190755%_ (let () (declare (not safe)) - (gx#stx-e _%hd187204187237%_)))) - (let ((_%tl187208187247%_ + (gx#stx-e _%hd190717190750%_)))) + (let ((_%tl190721190760%_ (let () (declare (not safe)) - (##cdr _%e187206187242%_))) - (_%hd187207187245%_ + (##cdr _%e190719190755%_))) + (_%hd190720190758%_ (let () (declare (not safe)) - (##car _%e187206187242%_)))) + (##car _%e190719190755%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187208187247%_)) + _%tl190721190760%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187205187239%_)) - (let ((_%e187209187250%_ + _%tl190718190752%_)) + (let ((_%e190722190763%_ (let () (declare (not safe)) (gx#stx-e - _%tl187205187239%_)))) - (let ((_%tl187211187255%_ + _%tl190718190752%_)))) + (let ((_%tl190724190768%_ (let () (declare (not safe)) - (##cdr _%e187209187250%_))) - (_%hd187210187253%_ + (##cdr _%e190722190763%_))) + (_%hd190723190766%_ (let () (declare (not safe)) - (##car _%e187209187250%_)))) + (##car _%e190722190763%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187210187253%_)) - (let ((_%e187212187258%_ + _%hd190723190766%_)) + (let ((_%e190725190771%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd187210187253%_)))) - (let ((_%tl187214187263%_ + (gx#stx-e _%hd190723190766%_)))) + (let ((_%tl190727190776%_ (let () (declare (not safe)) - (##cdr _%e187212187258%_))) - (_%hd187213187261%_ + (##cdr _%e190725190771%_))) + (_%hd190726190774%_ (let () (declare (not safe)) - (##car _%e187212187258%_)))) + (##car _%e190725190771%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd187213187261%_)) + (gx#identifier? _%hd190726190774%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd187213187261%_)) + (gx#stx-eq? '%#ref _%hd190726190774%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187214187263%_)) - (let ((_%e187215187266%_ + (gx#stx-pair? _%tl190727190776%_)) + (let ((_%e190728190779%_ (let () (declare (not safe)) - (gx#stx-e _%tl187214187263%_)))) - (let ((_%tl187217187271%_ + (gx#stx-e _%tl190727190776%_)))) + (let ((_%tl190730190784%_ (let () (declare (not safe)) - (##cdr _%e187215187266%_))) - (_%hd187216187269%_ + (##cdr _%e190728190779%_))) + (_%hd190729190782%_ (let () (declare (not safe)) - (##car _%e187215187266%_)))) + (##car _%e190728190779%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187217187271%_)) + (gx#stx-null? _%tl190730190784%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187211187255%_)) - (_%__kont201092201093%_ - _%hd187216187269%_ - _%hd187207187245%_) - (_%__kont201094201095%_)) - (_%__kont201094201095%_)))) - (_%__kont201094201095%_)) - (_%__kont201094201095%_)) - (_%__kont201094201095%_)))) - (_%__kont201094201095%_)))) + _%tl190724190768%_)) + (_%__kont204533204534%_ + _%hd190729190782%_ + _%hd190720190758%_) + (_%__kont204535204536%_)) + (_%__kont204535204536%_)))) + (_%__kont204535204536%_)) + (_%__kont204535204536%_)) + (_%__kont204535204536%_)))) + (_%__kont204535204536%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont201094201095%_)) - (_%__kont201094201095%_)))) - (_%__kont201094201095%_)))) - (_%__kont201094201095%_))))))) + (_%__kont204535204536%_)) + (_%__kont204535204536%_)))) + (_%__kont204535204536%_)))) + (_%__kont204535204536%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest187173187181%_) - (let ((_%hd187178187307%_ + (if (pair? _%rest190686190694%_) + (let ((_%hd190691190820%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%rest187173187181%_))) - (_%tl187179187309%_ + (##car _%rest190686190694%_))) + (_%tl190692190822%_ (let () (declare (not safe)) - (##cdr _%rest187173187181%_)))) - (let* ((_%bind187312%_ _%hd187178187307%_) - (_%rest187314%_ _%tl187179187309%_)) - (_%K187177187304%_ _%rest187314%_ _%bind187312%_))) - (_%else187175187192%_))))) + (##cdr _%rest190686190694%_)))) + (let* ((_%bind190825%_ _%hd190691190820%_) + (_%rest190827%_ _%tl190692190822%_)) + (_%K190690190817%_ _%rest190827%_ _%bind190825%_))) + (_%else190688190705%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd187117187147%_ - _%hd187114187139%_) - (_%g187106187123%_ - _%g187107187126%_)))) - (_%g187106187123%_ _%g187107187126%_)))) - (_%g187106187123%_ _%g187107187126%_)))) - (_%g187106187123%_ _%g187107187126%_))))) - (_%g187105187316%_ _%stx187104%_)))) + _%hd190630190660%_ + _%hd190627190652%_) + (_%g190619190636%_ + _%g190620190639%_)))) + (_%g190619190636%_ _%g190620190639%_)))) + (_%g190619190636%_ _%g190620190639%_)))) + (_%g190619190636%_ _%g190620190639%_))))) + (_%g190618190829%_ _%stx190617%_)))) (define gxc#push-match-vars-if% - (lambda (_%self187019%_ _%stx187020%_) - (let* ((_%g187022187043%_ - (lambda (_%g187023187040%_) + (lambda (_%self190532%_ _%stx190533%_) + (let* ((_%g190535190556%_ + (lambda (_%g190536190553%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g187023187040%_)))) - (_%g187021187100%_ - (lambda (_%g187023187046%_) + _%g190536190553%_)))) + (_%g190534190613%_ + (lambda (_%g190536190559%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g187023187046%_)) - (let ((_%e187027187048%_ + (gx#stx-pair? _%g190536190559%_)) + (let ((_%e190540190561%_ (let () (declare (not safe)) - (gx#stx-e _%g187023187046%_)))) - (let ((_%hd187028187051%_ + (gx#stx-e _%g190536190559%_)))) + (let ((_%hd190541190564%_ (let () (declare (not safe)) - (##car _%e187027187048%_))) - (_%tl187029187053%_ + (##car _%e190540190561%_))) + (_%tl190542190566%_ (let () (declare (not safe)) - (##cdr _%e187027187048%_)))) + (##cdr _%e190540190561%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187029187053%_)) - (let ((_%e187030187056%_ + (gx#stx-pair? _%tl190542190566%_)) + (let ((_%e190543190569%_ (let () (declare (not safe)) - (gx#stx-e _%tl187029187053%_)))) - (let ((_%hd187031187059%_ + (gx#stx-e _%tl190542190566%_)))) + (let ((_%hd190544190572%_ (let () (declare (not safe)) - (##car _%e187030187056%_))) - (_%tl187032187061%_ + (##car _%e190543190569%_))) + (_%tl190545190574%_ (let () (declare (not safe)) - (##cdr _%e187030187056%_)))) + (##cdr _%e190543190569%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187032187061%_)) - (let ((_%e187033187064%_ + (gx#stx-pair? _%tl190545190574%_)) + (let ((_%e190546190577%_ (let () (declare (not safe)) - (gx#stx-e _%tl187032187061%_)))) - (let ((_%hd187034187067%_ + (gx#stx-e _%tl190545190574%_)))) + (let ((_%hd190547190580%_ (let () (declare (not safe)) - (##car _%e187033187064%_))) - (_%tl187035187069%_ + (##car _%e190546190577%_))) + (_%tl190548190582%_ (let () (declare (not safe)) - (##cdr _%e187033187064%_)))) + (##cdr _%e190546190577%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187035187069%_)) - (let ((_%e187036187072%_ + _%tl190548190582%_)) + (let ((_%e190549190585%_ (let () (declare (not safe)) (gx#stx-e - _%tl187035187069%_)))) - (let ((_%hd187037187075%_ + _%tl190548190582%_)))) + (let ((_%hd190550190588%_ (let () (declare (not safe)) - (##car _%e187036187072%_))) - (_%tl187038187077%_ + (##car _%e190549190585%_))) + (_%tl190551190590%_ (let () (declare (not safe)) - (##cdr _%e187036187072%_)))) + (##cdr _%e190549190585%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187038187077%_)) - ((lambda (_%L187080%_ - _%L187081%_ - _%L187082%_) - (if (let ((__tmp201250 + _%tl190551190590%_)) + ((lambda (_%g190537190593%_ + _%g190538190594%_ + _%g190539190595%_) + (if (let ((__tmp204691 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (map caar (let () (declare (not safe)) - (slot-ref__0 _%self187019%_ 'vars))))) + (slot-ref__0 _%self190532%_ 'vars))))) (declare (not safe)) (gxc#apply-find-var-refs__% '#f - __tmp201250 - _%L187082%_)) - (gxc#push-match-vars-stop _%self187019%_ _%stx187020%_) - (let ((__tmp201251 + __tmp204691 + _%g190539190595%_)) + (gxc#push-match-vars-stop _%self190532%_ _%stx190533%_) + (let ((__tmp204692 (cons '%#if - (cons _%L187082%_ + (cons _%g190539190595%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self187019%_ - _%L187081%_)) + _%self190532%_ + _%g190538190594%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self187019%_ - _%L187080%_)) + _%self190532%_ + _%g190537190593%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp201251 _%stx187020%_)))) - _%hd187037187075%_ - _%hd187034187067%_ - _%hd187031187059%_) - (_%g187022187043%_ _%g187023187046%_)))) + (gxc#xform-wrap-source __tmp204692 _%stx190533%_)))) + _%hd190550190588%_ + _%hd190547190580%_ + _%hd190544190572%_) + (_%g190535190556%_ _%g190536190559%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g187022187043%_ - _%g187023187046%_)))) - (_%g187022187043%_ _%g187023187046%_)))) - (_%g187022187043%_ _%g187023187046%_)))) - (_%g187022187043%_ _%g187023187046%_))))) - (_%g187021187100%_ _%stx187020%_)))) + (_%g190535190556%_ + _%g190536190559%_)))) + (_%g190535190556%_ _%g190536190559%_)))) + (_%g190535190556%_ _%g190536190559%_)))) + (_%g190535190556%_ _%g190536190559%_))))) + (_%g190534190613%_ _%stx190533%_)))) (define gxc#push-match-vars-call% - (lambda (_%self186941%_ _%stx186942%_) - (let* ((_%g186944186963%_ - (lambda (_%g186945186960%_) + (lambda (_%self190454%_ _%stx190455%_) + (let* ((_%g190457190476%_ + (lambda (_%g190458190473%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g186945186960%_)))) - (_%g186943187016%_ - (lambda (_%g186945186966%_) + _%g190458190473%_)))) + (_%g190456190529%_ + (lambda (_%g190458190479%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g186945186966%_)) - (let ((_%e186947186968%_ + (gx#stx-pair? _%g190458190479%_)) + (let ((_%e190460190481%_ (let () (declare (not safe)) - (gx#stx-e _%g186945186966%_)))) - (let ((_%hd186948186971%_ + (gx#stx-e _%g190458190479%_)))) + (let ((_%hd190461190484%_ (let () (declare (not safe)) - (##car _%e186947186968%_))) - (_%tl186949186973%_ + (##car _%e190460190481%_))) + (_%tl190462190486%_ (let () (declare (not safe)) - (##cdr _%e186947186968%_)))) + (##cdr _%e190460190481%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186949186973%_)) - (let ((_%e186950186976%_ + (gx#stx-pair? _%tl190462190486%_)) + (let ((_%e190463190489%_ (let () (declare (not safe)) - (gx#stx-e _%tl186949186973%_)))) - (let ((_%hd186951186979%_ + (gx#stx-e _%tl190462190486%_)))) + (let ((_%hd190464190492%_ (let () (declare (not safe)) - (##car _%e186950186976%_))) - (_%tl186952186981%_ + (##car _%e190463190489%_))) + (_%tl190465190494%_ (let () (declare (not safe)) - (##cdr _%e186950186976%_)))) + (##cdr _%e190463190489%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186951186979%_)) - (let ((_%e186953186984%_ + (gx#stx-pair? _%hd190464190492%_)) + (let ((_%e190466190497%_ (let () (declare (not safe)) - (gx#stx-e _%hd186951186979%_)))) - (let ((_%hd186954186987%_ + (gx#stx-e _%hd190464190492%_)))) + (let ((_%hd190467190500%_ (let () (declare (not safe)) - (##car _%e186953186984%_))) - (_%tl186955186989%_ + (##car _%e190466190497%_))) + (_%tl190468190502%_ (let () (declare (not safe)) - (##cdr _%e186953186984%_)))) + (##cdr _%e190466190497%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd186954186987%_)) + _%hd190467190500%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd186954186987%_)) + _%hd190467190500%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186955186989%_)) - (let ((_%e186956186992%_ + _%tl190468190502%_)) + (let ((_%e190469190505%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl186955186989%_)))) - (let ((_%hd186957186995%_ - (let () (declare (not safe)) (##car _%e186956186992%_))) - (_%tl186958186997%_ + (gx#stx-e _%tl190468190502%_)))) + (let ((_%hd190470190508%_ + (let () (declare (not safe)) (##car _%e190469190505%_))) + (_%tl190471190510%_ (let () (declare (not safe)) - (##cdr _%e186956186992%_)))) + (##cdr _%e190469190505%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186958186997%_)) - ((lambda (_%L187000%_) - (if (and (let ((__tmp201252 + (gx#stx-null? _%tl190471190510%_)) + ((lambda (_%g190459190513%_) + (if (and (let ((__tmp204693 (let () (declare (not safe)) - (slot-ref__0 _%self186941%_ 'K)))) + (slot-ref__0 _%self190454%_ 'K)))) (declare (not safe)) (gx#free-identifier=? - _%L187000%_ - __tmp201252)) + _%g190459190513%_ + __tmp204693)) (pair? (let () (declare (not safe)) (slot-ref__0 - _%self186941%_ + _%self190454%_ 'vars)))) - (let ((__tmp201253 + (let ((__tmp204694 (cons '%#let-values (cons (reverse (let () (declare (not safe)) (slot-ref__0 - _%self186941%_ + _%self190454%_ 'vars))) - (cons _%stx186942%_ '()))))) + (cons _%stx190455%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp201253 - _%stx186942%_)) - _%stx186942%_)) - _%hd186957186995%_) - (_%g186944186963%_ _%g186945186966%_)))) - (_%g186944186963%_ _%g186945186966%_)) + __tmp204694 + _%stx190455%_)) + _%stx190455%_)) + _%hd190470190508%_) + (_%g190457190476%_ _%g190458190479%_)))) + (_%g190457190476%_ _%g190458190479%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g186944186963%_ - _%g186945186966%_)) - (_%g186944186963%_ - _%g186945186966%_)))) - (_%g186944186963%_ _%g186945186966%_)))) - (_%g186944186963%_ _%g186945186966%_)))) - (_%g186944186963%_ _%g186945186966%_))))) - (_%g186943187016%_ _%stx186942%_)))) + (_%g190457190476%_ + _%g190458190479%_)) + (_%g190457190476%_ + _%g190458190479%_)))) + (_%g190457190476%_ _%g190458190479%_)))) + (_%g190457190476%_ _%g190458190479%_)))) + (_%g190457190476%_ _%g190458190479%_))))) + (_%g190456190529%_ _%stx190455%_)))) (define gxc#push-match-vars-stop - (lambda (_%self186938%_ _%stx186939%_) + (lambda (_%self190451%_ _%stx190452%_) (if (null? (let () (declare (not safe)) - (slot-ref__0 _%self186938%_ 'vars))) - _%stx186939%_ - (let ((__tmp201254 + (slot-ref__0 _%self190451%_ 'vars))) + _%stx190452%_ + (let ((__tmp204695 (cons '%#let-values (cons (reverse (let () (declare (not safe)) - (slot-ref__0 _%self186938%_ 'vars))) - (cons _%stx186939%_ '()))))) + (slot-ref__0 _%self190451%_ 'vars))) + (cons _%stx190452%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp201254 _%stx186939%_))))))) + (gxc#xform-wrap-source __tmp204695 _%stx190452%_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann~1.scm b/src/bootstrap/gerbil/compiler/optimize-ann~1.scm index 58f8ac674f..1864cc59b9 100644 --- a/src/bootstrap/gerbil/compiler/optimize-ann~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-ann~1.scm @@ -1,132 +1,132 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g201256_| + (define |gxc[1]#_g204697_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g201258_| + (define |gxc[1]#_g204699_| (##structure gx#syntax-quote::t '::optimize-annotated::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g201260_| + (define |gxc[1]#_g204701_| (##structure gx#syntax-quote::t 'make-::optimize-annotated #f (gx#current-expander-context) '())) - (define |gxc[1]#_g201262_| + (define |gxc[1]#_g204703_| (##structure gx#syntax-quote::t '::optimize-annotated? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g201264_| + (define |gxc[1]#_g204705_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g201266_| + (define |gxc[1]#_g204707_| (##structure gx#syntax-quote::t '::generate-runtime-repr::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g201268_| + (define |gxc[1]#_g204709_| (##structure gx#syntax-quote::t 'make-::generate-runtime-repr #f (gx#current-expander-context) '())) - (define |gxc[1]#_g201270_| + (define |gxc[1]#_g204711_| (##structure gx#syntax-quote::t '::generate-runtime-repr? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g201272_| + (define |gxc[1]#_g204713_| (##structure gx#syntax-quote::t '::push-match-vars::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g201274_| + (define |gxc[1]#_g204715_| (##structure gx#syntax-quote::t 'make-::push-match-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g201276_| + (define |gxc[1]#_g204717_| (##structure gx#syntax-quote::t '::push-match-vars? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g201278_| + (define |gxc[1]#_g204719_| (##structure gx#syntax-quote::t '::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g201279_| + (define |gxc[1]#_g204720_| (##structure gx#syntax-quote::t '::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g201281_| + (define |gxc[1]#_g204722_| (##structure gx#syntax-quote::t '::push-match-vars-vars-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g201282_| + (define |gxc[1]#_g204723_| (##structure gx#syntax-quote::t '::push-match-vars-K-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g201284_| + (define |gxc[1]#_g204725_| (##structure gx#syntax-quote::t '&::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g201285_| + (define |gxc[1]#_g204726_| (##structure gx#syntax-quote::t '&::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g201287_| + (define |gxc[1]#_g204728_| (##structure gx#syntax-quote::t '&::push-match-vars-vars-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g201288_| + (define |gxc[1]#_g204729_| (##structure gx#syntax-quote::t '&::push-match-vars-K-set! @@ -135,7 +135,7 @@ '())) (begin (define |gxc[:0:]#::optimize-annotated| - (let ((__obj201137 + (let ((__obj204578 (let () (declare (not safe)) (##structure @@ -164,7 +164,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj201137 + __obj204578 'gxc#::optimize-annotated::t '1 '#f @@ -172,65 +172,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj201137 + __obj204578 '::optimize-annotated '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201137 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj204578 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201137 '() '6 '#f '#f)) - (let ((__tmp201255 (cons |gxc[1]#_g201256_| '()))) + (##unchecked-structure-set! __obj204578 '() '7 '#f '#f)) + (let ((__tmp204696 (cons |gxc[1]#_g204697_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj201137 __tmp201255 '3 '#f '#f)) + (##unchecked-structure-set! __obj204578 __tmp204696 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201137 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj204578 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201137 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj204578 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201137 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj204578 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201137 '#f '11 '#f '#f)) - (let ((__tmp201257 |gxc[1]#_g201258_|)) + (##unchecked-structure-set! __obj204578 '#f '12 '#f '#f)) + (let ((__tmp204698 |gxc[1]#_g204699_|)) (declare (not safe)) - (##unchecked-structure-set! __obj201137 __tmp201257 '12 '#f '#f)) - (let ((__tmp201259 |gxc[1]#_g201260_|)) + (##unchecked-structure-set! __obj204578 __tmp204698 '3 '#f '#f)) + (let ((__tmp204700 |gxc[1]#_g204701_|)) (declare (not safe)) - (##unchecked-structure-set! __obj201137 __tmp201259 '13 '#f '#f)) - (let ((__tmp201261 |gxc[1]#_g201262_|)) + (##unchecked-structure-set! __obj204578 __tmp204700 '13 '#f '#f)) + (let ((__tmp204702 |gxc[1]#_g204703_|)) (declare (not safe)) - (##unchecked-structure-set! __obj201137 __tmp201261 '14 '#f '#f)) + (##unchecked-structure-set! __obj204578 __tmp204702 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201137 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj204578 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201137 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj204578 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201137 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj204578 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201137 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj204578 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201137 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj204578 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201137 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj204578 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201137 '() '20 '#f '#f)) - __obj201137)) + (##unchecked-structure-set! __obj204578 '() '20 '#f '#f)) + __obj204578)) (define |gxc[:0:]#::generate-runtime-repr| - (let ((__obj201139 + (let ((__obj204580 (let () (declare (not safe)) (##structure @@ -259,7 +259,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj201139 + __obj204580 'gxc#::generate-runtime-repr::t '1 '#f @@ -267,65 +267,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj201139 + __obj204580 '::generate-runtime-repr '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201139 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj204580 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201139 '() '6 '#f '#f)) - (let ((__tmp201263 (cons |gxc[1]#_g201264_| '()))) + (##unchecked-structure-set! __obj204580 '() '7 '#f '#f)) + (let ((__tmp204704 (cons |gxc[1]#_g204705_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj201139 __tmp201263 '3 '#f '#f)) + (##unchecked-structure-set! __obj204580 __tmp204704 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201139 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj204580 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201139 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj204580 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201139 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj204580 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201139 '#f '11 '#f '#f)) - (let ((__tmp201265 |gxc[1]#_g201266_|)) + (##unchecked-structure-set! __obj204580 '#f '12 '#f '#f)) + (let ((__tmp204706 |gxc[1]#_g204707_|)) (declare (not safe)) - (##unchecked-structure-set! __obj201139 __tmp201265 '12 '#f '#f)) - (let ((__tmp201267 |gxc[1]#_g201268_|)) + (##unchecked-structure-set! __obj204580 __tmp204706 '3 '#f '#f)) + (let ((__tmp204708 |gxc[1]#_g204709_|)) (declare (not safe)) - (##unchecked-structure-set! __obj201139 __tmp201267 '13 '#f '#f)) - (let ((__tmp201269 |gxc[1]#_g201270_|)) + (##unchecked-structure-set! __obj204580 __tmp204708 '13 '#f '#f)) + (let ((__tmp204710 |gxc[1]#_g204711_|)) (declare (not safe)) - (##unchecked-structure-set! __obj201139 __tmp201269 '14 '#f '#f)) + (##unchecked-structure-set! __obj204580 __tmp204710 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201139 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj204580 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201139 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj204580 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201139 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj204580 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201139 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj204580 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201139 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj204580 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201139 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj204580 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201139 '() '20 '#f '#f)) - __obj201139)) + (##unchecked-structure-set! __obj204580 '() '20 '#f '#f)) + __obj204580)) (define |gxc[:0:]#::push-match-vars| - (let ((__obj201141 + (let ((__obj204582 (let () (declare (not safe)) (##structure @@ -354,7 +354,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj201141 + __obj204582 'gxc#::push-match-vars::t '1 '#f @@ -362,68 +362,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj201141 + __obj204582 '::push-match-vars '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201141 '(vars K) '4 '#f '#f)) + (##unchecked-structure-set! __obj204582 '(vars K) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201141 '(vars K) '6 '#f '#f)) + (##unchecked-structure-set! __obj204582 '(vars K) '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201141 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj204582 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201141 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj204582 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201141 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj204582 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201141 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj204582 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201141 '#f '11 '#f '#f)) - (let ((__tmp201271 |gxc[1]#_g201272_|)) + (##unchecked-structure-set! __obj204582 '#f '12 '#f '#f)) + (let ((__tmp204712 |gxc[1]#_g204713_|)) (declare (not safe)) - (##unchecked-structure-set! __obj201141 __tmp201271 '12 '#f '#f)) - (let ((__tmp201273 |gxc[1]#_g201274_|)) + (##unchecked-structure-set! __obj204582 __tmp204712 '3 '#f '#f)) + (let ((__tmp204714 |gxc[1]#_g204715_|)) (declare (not safe)) - (##unchecked-structure-set! __obj201141 __tmp201273 '13 '#f '#f)) - (let ((__tmp201275 |gxc[1]#_g201276_|)) + (##unchecked-structure-set! __obj204582 __tmp204714 '13 '#f '#f)) + (let ((__tmp204716 |gxc[1]#_g204717_|)) (declare (not safe)) - (##unchecked-structure-set! __obj201141 __tmp201275 '14 '#f '#f)) - (let ((__tmp201277 - (cons (cons 'vars |gxc[1]#_g201278_|) - (cons (cons 'K |gxc[1]#_g201279_|) '())))) + (##unchecked-structure-set! __obj204582 __tmp204716 '14 '#f '#f)) + (let ((__tmp204718 + (cons (cons 'vars |gxc[1]#_g204719_|) + (cons (cons 'K |gxc[1]#_g204720_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj201141 __tmp201277 '15 '#f '#f)) - (let ((__tmp201280 - (cons (cons 'vars |gxc[1]#_g201281_|) - (cons (cons 'K |gxc[1]#_g201282_|) '())))) + (##unchecked-structure-set! __obj204582 __tmp204718 '15 '#f '#f)) + (let ((__tmp204721 + (cons (cons 'vars |gxc[1]#_g204722_|) + (cons (cons 'K |gxc[1]#_g204723_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj201141 __tmp201280 '16 '#f '#f)) - (let ((__tmp201283 - (cons (cons 'vars |gxc[1]#_g201284_|) - (cons (cons 'K |gxc[1]#_g201285_|) '())))) + (##unchecked-structure-set! __obj204582 __tmp204721 '16 '#f '#f)) + (let ((__tmp204724 + (cons (cons 'vars |gxc[1]#_g204725_|) + (cons (cons 'K |gxc[1]#_g204726_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj201141 __tmp201283 '17 '#f '#f)) - (let ((__tmp201286 - (cons (cons 'vars |gxc[1]#_g201287_|) - (cons (cons 'K |gxc[1]#_g201288_|) '())))) + (##unchecked-structure-set! __obj204582 __tmp204724 '17 '#f '#f)) + (let ((__tmp204727 + (cons (cons 'vars |gxc[1]#_g204728_|) + (cons (cons 'K |gxc[1]#_g204729_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj201141 __tmp201286 '18 '#f '#f)) + (##unchecked-structure-set! __obj204582 __tmp204727 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201141 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj204582 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201141 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj204582 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj201141 '() '20 '#f '#f)) - __obj201141)))) + (##unchecked-structure-set! __obj204582 '() '20 '#f '#f)) + __obj204582)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base~0.scm b/src/bootstrap/gerbil/compiler/optimize-base~0.scm index b5af33827b..5c0859e791 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base~0.scm @@ -1,28 +1,28 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-base::timestamp 1756721297) + (define gerbil/compiler/optimize-base::timestamp 1769384630) (begin (define gxc#current-compile-optimizer-info (make-parameter '#f)) (define gxc#current-compile-mutators (make-parameter '#f)) (define gxc#current-compile-local-type (make-parameter '#f)) (define gxc#current-compile-path-type (make-parameter '())) (define gxc#optimizer-info::t - (let ((__tmp160993 (list)) (__tmp160992 (cons (cons 'struct: '#t) '()))) + (let ((__tmp164635 (list)) (__tmp164634 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#optimizer-info::t 'optimizer-info - __tmp160993 + __tmp164635 '(type classes ssxi methods) - __tmp160992 + __tmp164634 ':init!))) (define gxc#optimizer-info? (let () (declare (not safe)) (__make-class-predicate gxc#optimizer-info::t))) (define gxc#make-optimizer-info - (lambda _%$args160964%_ - (apply make-instance gxc#optimizer-info::t _%$args160964%_))) + (lambda _%$args164606%_ + (apply make-instance gxc#optimizer-info::t _%$args164606%_))) (define gxc#optimizer-info-type (let () (declare (not safe)) @@ -88,61 +88,61 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#optimizer-info::t 'methods))) (define gxc#optimizer-info:::init! - (lambda (_%self160951%_) - (let ((_%self160954%_ _%self160951%_)) - (if (let ((__tmp160994 + (lambda (_%self164593%_) + (let ((_%self164596%_ _%self164593%_)) + (if (let ((__tmp164636 (let () (declare (not safe)) - (##structure-length _%self160954%_)))) + (##structure-length _%self164596%_)))) (declare (not safe)) - (##fx< '4 __tmp160994)) + (##fx< '4 __tmp164636)) (begin - (let ((__tmp160995 + (let ((__tmp164637 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self160954%_ - __tmp160995 + _%self164596%_ + __tmp164637 '1 '#f '#f)) - (let ((__tmp160996 + (let ((__tmp164638 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self160954%_ - __tmp160996 + _%self164596%_ + __tmp164638 '2 '#f '#f)) - (let ((__tmp160997 + (let ((__tmp164639 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self160954%_ - __tmp160997 + _%self164596%_ + __tmp164639 '3 '#f '#f)) - (let ((__tmp160998 + (let ((__tmp164640 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self160954%_ - __tmp160998 + _%self164596%_ + __tmp164640 '4 '#f '#f)) '#!void) - (let ((__tmp160999 + (let ((__tmp164641 (let () (declare (not safe)) - (##structure-length _%self160954%_)))) + (##structure-length _%self164596%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self160954%_ + _%self164596%_ '4 - __tmp160999)))))) + __tmp164641)))))) (let () (declare (not safe)) (__bind-method!__% @@ -151,22 +151,20 @@ gxc#optimizer-info:::init! '#f)) (define gxc#!type::t - (let ((__tmp161001 (list)) - (__tmp161000 - (cons (cons 'struct: '#t) '((equal: id) (print: id))))) + (let ((__tmp164643 (list)) (__tmp164642 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!type::t '!type - __tmp161001 + __tmp164643 '(id) - __tmp161000 + __tmp164642 '#f))) (define gxc#!type? (let () (declare (not safe)) (__make-class-predicate gxc#!type::t))) (define gxc#make-!type - (lambda _%$args160826%_ - (apply make-instance gxc#!type::t _%$args160826%_))) + (lambda _%$args164468%_ + (apply make-instance gxc#!type::t _%$args164468%_))) (define gxc#!type-id (let () (declare (not safe)) @@ -184,21 +182,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!type::t 'id))) (define gxc#!abort::t - (let ((__tmp161003 (list gxc#!type::t)) - (__tmp161002 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp164645 (list gxc#!type::t)) + (__tmp164644 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!abort::t '!abort - __tmp161003 + __tmp164645 '() - __tmp161002 + __tmp164644 ':init!))) (define gxc#!abort? (let () (declare (not safe)) (__make-class-predicate gxc#!abort::t))) (define gxc#make-!abort - (lambda _%$args160823%_ - (apply make-instance gxc#!abort::t _%$args160823%_))) + (lambda _%$args164465%_ + (apply make-instance gxc#!abort::t _%$args164465%_))) (define gxc#!abort-id (let () (declare (not safe)) @@ -216,21 +214,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!abort::t 'id))) (define gxc#!alias::t - (let ((__tmp161005 (list gxc#!type::t)) - (__tmp161004 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp164647 (list gxc#!type::t)) + (__tmp164646 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!alias::t '!alias - __tmp161005 + __tmp164647 '() - __tmp161004 + __tmp164646 '#f))) (define gxc#!alias? (let () (declare (not safe)) (__make-class-predicate gxc#!alias::t))) (define gxc#make-!alias - (lambda _%$args160820%_ - (apply make-instance gxc#!alias::t _%$args160820%_))) + (lambda _%$args164462%_ + (apply make-instance gxc#!alias::t _%$args164462%_))) (define gxc#!alias-id (let () (declare (not safe)) @@ -248,24 +246,20 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!alias::t 'id))) (define gxc#!signature::t - (let ((__tmp161007 (list)) - (__tmp161006 - (cons (cons 'final: '#t) - '((equal: return effect arguments unchecked origin) - (print: return effect arguments unchecked origin))))) + (let ((__tmp164649 (list)) (__tmp164648 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!signature::t '!signature - __tmp161007 + __tmp164649 '(return effect arguments unchecked origin) - __tmp161006 + __tmp164648 '#f))) (define gxc#!signature? (let () (declare (not safe)) (__make-class-predicate gxc#!signature::t))) (define gxc#make-!signature - (lambda _%$args160817%_ - (apply make-instance gxc#!signature::t _%$args160817%_))) + (lambda _%$args164459%_ + (apply make-instance gxc#!signature::t _%$args164459%_))) (define gxc#!signature-return (let () (declare (not safe)) @@ -347,17 +341,15 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!signature::t 'origin))) (define gxc#!procedure::t - (let ((__tmp161009 (list gxc#!type::t)) - (__tmp161008 - (cons (cons 'struct: '#t) - '((equal: signature) (print: signature))))) + (let ((__tmp164651 (list gxc#!type::t)) + (__tmp164650 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!procedure::t '!procedure - __tmp161009 + __tmp164651 '(signature) - __tmp161008 + __tmp164650 '#f))) (define gxc#!procedure? (let () (declare (not safe)) (__make-class-predicate gxc#!procedure::t))) @@ -394,17 +386,17 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!procedure::t 'id))) (define gxc#make-!procedure - (lambda (_%id160796%_ _%signature160797%_) - (if ((lambda (_%$obj160800%_) - (or (not _%$obj160800%_) + (lambda (_%id164438%_ _%signature164439%_) + (if ((lambda (_%$obj164442%_) + (or (not _%$obj164442%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%$obj160800%_ + _%$obj164442%_ 'gxc#!signature::t)))) - _%signature160797%_) - (let ((_%signature160807%_ _%signature160797%_)) - (gxc#__make-!procedure _%id160796%_ _%signature160807%_)) + _%signature164439%_) + (let ((_%signature164449%_ _%signature164439%_)) + (gxc#__make-!procedure _%id164438%_ _%signature164449%_)) (begin (raise-contract-violation-error '"contract violation" @@ -413,31 +405,31 @@ 'contract: '(? (or not !signature?)) 'value: - _%signature160797%_) + _%signature164439%_) '#!void)))) (define gxc#__make-!procedure - (lambda (_%id160782%_ _%signature160784%_) - (let ((_%signature160787%_ _%signature160784%_)) + (lambda (_%id164424%_ _%signature164426%_) + (let ((_%signature164429%_ _%signature164426%_)) (declare (not safe)) - (##structure gxc#!procedure::t _%id160782%_ _%signature160787%_)))) + (##structure gxc#!procedure::t _%id164424%_ _%signature164429%_)))) (define gxc#!procedure-signature-set! - (lambda (_%$obj160751%_ _%signature160752%_) + (lambda (_%$obj164393%_ _%signature164394%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%$obj160751%_ 'gxc#!procedure::t)) - (let ((_%$obj160756%_ _%$obj160751%_)) - (if ((lambda (_%$obj160765%_) - (or (not _%$obj160765%_) + (##structure-instance-of? _%$obj164393%_ 'gxc#!procedure::t)) + (let ((_%$obj164398%_ _%$obj164393%_)) + (if ((lambda (_%$obj164407%_) + (or (not _%$obj164407%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%$obj160765%_ + _%$obj164407%_ 'gxc#!signature::t)))) - _%signature160752%_) - (let ((_%signature160772%_ _%signature160752%_)) + _%signature164394%_) + (let ((_%signature164414%_ _%signature164394%_)) (gxc#__!procedure-signature-set! - _%$obj160756%_ - _%signature160772%_)) + _%$obj164398%_ + _%signature164414%_)) (begin (raise-contract-violation-error '"contract violation" @@ -446,7 +438,7 @@ 'contract: '(? (or not !signature?)) 'value: - _%signature160752%_) + _%signature164394%_) '#!void))) (begin (raise-contract-violation-error @@ -456,37 +448,37 @@ 'contract: '!procedure? 'value: - _%$obj160751%_) + _%$obj164393%_) '#!void)))) (define gxc#__!procedure-signature-set! - (lambda (_%$obj160728%_ _%signature160730%_) - (let* ((_%$obj160734%_ _%$obj160728%_) - (_%signature160742%_ _%signature160730%_)) + (lambda (_%$obj164370%_ _%signature164372%_) + (let* ((_%$obj164376%_ _%$obj164370%_) + (_%signature164384%_ _%signature164372%_)) (declare (not safe)) (##unchecked-structure-set! - _%$obj160734%_ - _%signature160742%_ + _%$obj164376%_ + _%signature164384%_ '2 '#f '#f)))) (define gxc#!class-meta::t - (let ((__tmp161011 (list gxc#!type::t)) - (__tmp161010 (cons (cons 'struct: '#t) '()))) + (let ((__tmp164653 (list gxc#!type::t)) + (__tmp164652 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!class-meta::t '!class-meta - __tmp161011 + __tmp164653 '(class) - __tmp161010 + __tmp164652 ':init!))) (define gxc#!class-meta? (let () (declare (not safe)) (__make-class-predicate gxc#!class-meta::t))) (define gxc#make-!class-meta - (lambda _%$args160725%_ - (apply make-instance gxc#!class-meta::t _%$args160725%_))) + (lambda _%$args164367%_ + (apply make-instance gxc#!class-meta::t _%$args164367%_))) (define gxc#!class-meta-class (let () (declare (not safe)) @@ -520,26 +512,13 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!class-meta::t 'id))) (define gxc#!class::t - (let ((__tmp161013 (list gxc#!type::t)) - (__tmp161012 - (cons (cons 'struct: '#t) - '((equal: - super - precedence-list - slots - fields - constructor - struct? - final? - system? - metaclass - methods) - (print: super precedence-list))))) + (let ((__tmp164655 (list gxc#!type::t)) + (__tmp164654 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!class::t '!class - __tmp161013 + __tmp164655 '(super precedence-list slots fields @@ -549,13 +528,13 @@ system? metaclass methods) - __tmp161012 + __tmp164654 ':init!))) (define gxc#!class? (let () (declare (not safe)) (__make-class-predicate gxc#!class::t))) (define gxc#make-!class - (lambda _%$args160722%_ - (apply make-instance gxc#!class::t _%$args160722%_))) + (lambda _%$args164364%_ + (apply make-instance gxc#!class::t _%$args164364%_))) (define gxc#!class-super (let () (declare (not safe)) @@ -733,21 +712,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!class::t 'id))) (define gxc#!predicate::t - (let ((__tmp161015 (list gxc#!procedure::t)) - (__tmp161014 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp164657 (list gxc#!procedure::t)) + (__tmp164656 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!predicate::t '!predicate - __tmp161015 + __tmp164657 '() - __tmp161014 + __tmp164656 ':init!))) (define gxc#!predicate? (let () (declare (not safe)) (__make-class-predicate gxc#!predicate::t))) (define gxc#make-!predicate - (lambda _%$args160719%_ - (apply make-instance gxc#!predicate::t _%$args160719%_))) + (lambda _%$args164361%_ + (apply make-instance gxc#!predicate::t _%$args164361%_))) (define gxc#!predicate-signature (let () (declare (not safe)) @@ -781,23 +760,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!predicate::t 'id))) (define gxc#!constructor::t - (let ((__tmp161017 (list gxc#!procedure::t)) - (__tmp161016 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp164659 (list gxc#!procedure::t)) + (__tmp164658 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!constructor::t '!constructor - __tmp161017 + __tmp164659 '() - __tmp161016 + __tmp164658 ':init!))) (define gxc#!constructor? (let () (declare (not safe)) (__make-class-predicate gxc#!constructor::t))) (define gxc#make-!constructor - (lambda _%$args160716%_ - (apply make-instance gxc#!constructor::t _%$args160716%_))) + (lambda _%$args164358%_ + (apply make-instance gxc#!constructor::t _%$args164358%_))) (define gxc#!constructor-signature (let () (declare (not safe)) @@ -831,21 +810,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!constructor::t 'id))) (define gxc#!accessor::t - (let ((__tmp161019 (list gxc#!procedure::t)) - (__tmp161018 (cons (cons 'struct: '#t) '((equal: slot checked?))))) + (let ((__tmp164661 (list gxc#!procedure::t)) + (__tmp164660 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!accessor::t '!accessor - __tmp161019 + __tmp164661 '(slot checked?) - __tmp161018 + __tmp164660 ':init!))) (define gxc#!accessor? (let () (declare (not safe)) (__make-class-predicate gxc#!accessor::t))) (define gxc#make-!accessor - (lambda _%$args160713%_ - (apply make-instance gxc#!accessor::t _%$args160713%_))) + (lambda _%$args164355%_ + (apply make-instance gxc#!accessor::t _%$args164355%_))) (define gxc#!accessor-slot (let () (declare (not safe)) @@ -911,21 +890,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!accessor::t 'id))) (define gxc#!mutator::t - (let ((__tmp161021 (list gxc#!procedure::t)) - (__tmp161020 (cons (cons 'struct: '#t) '((equal: slot checked?))))) + (let ((__tmp164663 (list gxc#!procedure::t)) + (__tmp164662 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!mutator::t '!mutator - __tmp161021 + __tmp164663 '(slot checked?) - __tmp161020 + __tmp164662 ':init!))) (define gxc#!mutator? (let () (declare (not safe)) (__make-class-predicate gxc#!mutator::t))) (define gxc#make-!mutator - (lambda _%$args160710%_ - (apply make-instance gxc#!mutator::t _%$args160710%_))) + (lambda _%$args164352%_ + (apply make-instance gxc#!mutator::t _%$args164352%_))) (define gxc#!mutator-slot (let () (declare (not safe)) @@ -991,21 +970,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!mutator::t 'id))) (define gxc#!interface::t - (let ((__tmp161023 (list gxc#!type::t)) - (__tmp161022 (cons (cons 'struct: '#t) '((equal: methods))))) + (let ((__tmp164665 (list gxc#!type::t)) + (__tmp164664 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!interface::t '!interface - __tmp161023 + __tmp164665 '(methods) - __tmp161022 + __tmp164664 '#f))) (define gxc#!interface? (let () (declare (not safe)) (__make-class-predicate gxc#!interface::t))) (define gxc#make-!interface - (lambda _%$args160707%_ - (apply make-instance gxc#!interface::t _%$args160707%_))) + (lambda _%$args164349%_ + (apply make-instance gxc#!interface::t _%$args164349%_))) (define gxc#!interface-methods (let () (declare (not safe)) @@ -1039,23 +1018,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!interface::t 'id))) (define gxc#!lambda::t - (let ((__tmp161025 (list gxc#!procedure::t)) - (__tmp161024 - (cons (cons 'struct: '#t) - '((equal: arity dispatch inline inline-typedecl))))) + (let ((__tmp164667 (list gxc#!procedure::t)) + (__tmp164666 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!lambda::t '!lambda - __tmp161025 + __tmp164667 '(arity dispatch inline inline-typedecl) - __tmp161024 + __tmp164666 ':init!))) (define gxc#!lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!lambda::t))) (define gxc#make-!lambda - (lambda _%$args160704%_ - (apply make-instance gxc#!lambda::t _%$args160704%_))) + (lambda _%$args164346%_ + (apply make-instance gxc#!lambda::t _%$args164346%_))) (define gxc#!lambda-arity (let () (declare (not safe)) @@ -1155,23 +1132,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!lambda::t 'id))) (define gxc#!case-lambda::t - (let ((__tmp161027 (list gxc#!procedure::t)) - (__tmp161026 (cons (cons 'struct: '#t) '((equal: clauses))))) + (let ((__tmp164669 (list gxc#!procedure::t)) + (__tmp164668 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!case-lambda::t '!case-lambda - __tmp161027 + __tmp164669 '(clauses) - __tmp161026 + __tmp164668 ':init!))) (define gxc#!case-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!case-lambda::t))) (define gxc#make-!case-lambda - (lambda _%$args160701%_ - (apply make-instance gxc#!case-lambda::t _%$args160701%_))) + (lambda _%$args164343%_ + (apply make-instance gxc#!case-lambda::t _%$args164343%_))) (define gxc#!case-lambda-clauses (let () (declare (not safe)) @@ -1221,22 +1198,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!case-lambda::t 'id))) (define gxc#!kw-lambda::t - (let ((__tmp161029 (list gxc#!procedure::t)) - (__tmp161028 - (cons (cons 'struct: '#t) '((equal: table dispatch))))) + (let ((__tmp164671 (list gxc#!procedure::t)) + (__tmp164670 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!kw-lambda::t '!kw-lambda - __tmp161029 + __tmp164671 '(table dispatch) - __tmp161028 + __tmp164670 ':init!))) (define gxc#!kw-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!kw-lambda::t))) (define gxc#make-!kw-lambda - (lambda _%$args160698%_ - (apply make-instance gxc#!kw-lambda::t _%$args160698%_))) + (lambda _%$args164340%_ + (apply make-instance gxc#!kw-lambda::t _%$args164340%_))) (define gxc#!kw-lambda-table (let () (declare (not safe)) @@ -1302,23 +1278,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!kw-lambda::t 'id))) (define gxc#!kw-lambda-primary::t - (let ((__tmp161031 (list gxc#!procedure::t)) - (__tmp161030 (cons (cons 'struct: '#t) '((equal: keys main))))) + (let ((__tmp164673 (list gxc#!procedure::t)) + (__tmp164672 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!kw-lambda-primary::t '!kw-lambda-primary - __tmp161031 + __tmp164673 '(keys main) - __tmp161030 + __tmp164672 ':init!))) (define gxc#!kw-lambda-primary? (let () (declare (not safe)) (__make-class-predicate gxc#!kw-lambda-primary::t))) (define gxc#make-!kw-lambda-primary - (lambda _%$args160695%_ - (apply make-instance gxc#!kw-lambda-primary::t _%$args160695%_))) + (lambda _%$args164337%_ + (apply make-instance gxc#!kw-lambda-primary::t _%$args164337%_))) (define gxc#!kw-lambda-primary-keys (let () (declare (not safe)) @@ -1392,38 +1368,38 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!kw-lambda-primary::t 'id))) (define gxc#!primitive::t - (let ((__tmp161032 (list))) + (let ((__tmp164674 (list))) (declare (not safe)) (__make-class-type 'gxc#!primitive::t '!primitive - __tmp161032 + __tmp164674 + '() '() - '((equal:)) '#f))) (define gxc#!primitive? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive::t))) (define gxc#make-!primitive - (lambda _%$args160692%_ - (apply make-instance gxc#!primitive::t _%$args160692%_))) + (lambda _%$args164334%_ + (apply make-instance gxc#!primitive::t _%$args164334%_))) (define gxc#!primitive-predicate::t - (let ((__tmp161034 (list gxc#!primitive::t gxc#!procedure::t)) - (__tmp161033 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp164676 (list gxc#!primitive::t gxc#!procedure::t)) + (__tmp164675 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!primitive-predicate::t '!primitive-predicate - __tmp161034 + __tmp164676 '() - __tmp161033 + __tmp164675 ':init!))) (define gxc#!primitive-predicate? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive-predicate::t))) (define gxc#make-!primitive-predicate - (lambda _%$args160689%_ - (apply make-instance gxc#!primitive-predicate::t _%$args160689%_))) + (lambda _%$args164331%_ + (apply make-instance gxc#!primitive-predicate::t _%$args164331%_))) (define gxc#!primitive-predicate-signature (let () (declare (not safe)) @@ -1463,23 +1439,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!primitive-predicate::t 'id))) (define gxc#!primitive-lambda::t - (let ((__tmp161036 (list gxc#!primitive::t gxc#!lambda::t)) - (__tmp161035 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp164678 (list gxc#!primitive::t gxc#!lambda::t)) + (__tmp164677 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!primitive-lambda::t '!primitive-lambda - __tmp161036 + __tmp164678 '() - __tmp161035 + __tmp164677 ':init!))) (define gxc#!primitive-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive-lambda::t))) (define gxc#make-!primitive-lambda - (lambda _%$args160686%_ - (apply make-instance gxc#!primitive-lambda::t _%$args160686%_))) + (lambda _%$args164328%_ + (apply make-instance gxc#!primitive-lambda::t _%$args164328%_))) (define gxc#!primitive-lambda-arity (let () (declare (not safe)) @@ -1597,23 +1573,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!primitive-lambda::t 'id))) (define gxc#!primitive-case-lambda::t - (let ((__tmp161038 (list gxc#!primitive::t gxc#!case-lambda::t)) - (__tmp161037 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp164680 (list gxc#!primitive::t gxc#!case-lambda::t)) + (__tmp164679 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!primitive-case-lambda::t '!primitive-case-lambda - __tmp161038 + __tmp164680 '() - __tmp161037 + __tmp164679 ':init!))) (define gxc#!primitive-case-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive-case-lambda::t))) (define gxc#make-!primitive-case-lambda - (lambda _%$args160683%_ - (apply make-instance gxc#!primitive-case-lambda::t _%$args160683%_))) + (lambda _%$args164325%_ + (apply make-instance gxc#!primitive-case-lambda::t _%$args164325%_))) (define gxc#!primitive-case-lambda-clauses (let () (declare (not safe)) @@ -1675,24 +1651,24 @@ gxc#!primitive-case-lambda::t 'id))) (define gxc#!abort:::init! - (lambda (_%self160670%_) - (let ((_%self160673%_ _%self160670%_)) + (lambda (_%self164312%_) + (let ((_%self164315%_ _%self164312%_)) (declare (not safe)) - (##unchecked-structure-set! _%self160673%_ 'abort '1 '#f '#f)))) + (##unchecked-structure-set! _%self164315%_ 'abort '1 '#f '#f)))) (let () (declare (not safe)) (__bind-method!__% gxc#!abort::t ':init! gxc#!abort:::init! '#f)) (define gxc#!class-meta:::init! - (lambda (_%self160533%_ _%klass160534%_) - (let ((_%self160537%_ _%self160533%_)) + (lambda (_%self164175%_ _%klass164176%_) + (let ((_%self164179%_ _%self164175%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self160537%_ 'class '1 '#f '#f)) + (##unchecked-structure-set! _%self164179%_ 'class '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self160537%_ - _%klass160534%_ + _%self164179%_ + _%klass164176%_ '2 '#f '#f))))) @@ -1704,589 +1680,589 @@ gxc#!class-meta:::init! '#f)) (define gxc#!class:::init!__0 - (lambda (_%self160223%_ - _%id160224%_ - _%super160225%_ - _%slots160226%_ - _%ctor-method160227%_ - _%struct?160228%_ - _%final?160229%_ - _%system?160230%_ - _%metaclass160231%_) - (let ((_%self160234%_ _%self160223%_)) - (let _%lp160245%_ ((_%rest160247%_ _%super160225%_)) - (let* ((_%rest160248160256%_ _%rest160247%_) - (_%else160250160264%_ (lambda () '#!void)) - (_%K160252160270%_ - (lambda (_%rest160267%_ _%super-id160268%_) - (if (let ((__tmp161039 + (lambda (_%self163865%_ + _%id163866%_ + _%super163867%_ + _%slots163868%_ + _%ctor-method163869%_ + _%struct?163870%_ + _%final?163871%_ + _%system?163872%_ + _%metaclass163873%_) + (let ((_%self163876%_ _%self163865%_)) + (let _%lp163887%_ ((_%rest163889%_ _%super163867%_)) + (let* ((_%rest163890163898%_ _%rest163889%_) + (_%else163892163906%_ (lambda () '#!void)) + (_%K163894163912%_ + (lambda (_%rest163909%_ _%super-id163910%_) + (if (let ((__tmp164681 (gxc#optimizer-resolve-class - (cons '!class (cons _%id160224%_ '())) - _%super-id160268%_))) + (cons '!class (cons _%id163866%_ '())) + _%super-id163910%_))) (declare (not safe)) - (##unchecked-structure-ref __tmp161039 '8 '#f '#f)) - (let ((__tmp161040 - (cons '!class (cons _%id160224%_ '())))) + (##unchecked-structure-ref __tmp164681 '8 '#f '#f)) + (let ((__tmp164682 + (cons '!class (cons _%id163866%_ '())))) (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp161040 - _%super-id160268%_)) + __tmp164682 + _%super-id163910%_)) '#!void) - (_%lp160245%_ _%rest160267%_)))) - (if (pair? _%rest160248160256%_) - (let ((_%hd160253160273%_ + (_%lp163887%_ _%rest163909%_)))) + (if (pair? _%rest163890163898%_) + (let ((_%hd163895163915%_ (let () (declare (not safe)) - (##car _%rest160248160256%_))) - (_%tl160254160275%_ + (##car _%rest163890163898%_))) + (_%tl163896163917%_ (let () (declare (not safe)) - (##cdr _%rest160248160256%_)))) - (let* ((_%super-id160278%_ _%hd160253160273%_) - (_%rest160280%_ _%tl160254160275%_)) - (_%K160252160270%_ _%rest160280%_ _%super-id160278%_))) + (##cdr _%rest163890163898%_)))) + (let* ((_%super-id163920%_ _%hd163895163915%_) + (_%rest163922%_ _%tl163896163917%_)) + (_%K163894163912%_ _%rest163922%_ _%super-id163920%_))) '#!void))) - (let* ((_%ctor-method160331%_ - (let ((_%$e160282%_ _%ctor-method160227%_)) - (if _%$e160282%_ - _%$e160282%_ - (let _%lp160285%_ ((_%rest160287%_ _%super160225%_) - (_%method160288%_ '#f)) - (let* ((_%rest160289160297%_ _%rest160287%_) - (_%else160291160305%_ - (lambda () _%method160288%_)) - (_%K160293160319%_ - (lambda (_%rest160308%_ _%super-id160309%_) - (let* ((_%klass160311%_ + (let* ((_%ctor-method163973%_ + (let ((_%$e163924%_ _%ctor-method163869%_)) + (if _%$e163924%_ + _%$e163924%_ + (let _%lp163927%_ ((_%rest163929%_ _%super163867%_) + (_%method163930%_ '#f)) + (let* ((_%rest163931163939%_ _%rest163929%_) + (_%else163933163947%_ + (lambda () _%method163930%_)) + (_%K163935163961%_ + (lambda (_%rest163950%_ _%super-id163951%_) + (let* ((_%klass163953%_ (gxc#optimizer-resolve-class (cons '!class - (cons _%id160224%_ '())) - _%super-id160309%_)) - (_%$e160313%_ + (cons _%id163866%_ '())) + _%super-id163951%_)) + (_%$e163955%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass160311%_ + _%klass163953%_ '6 '#f '#f)))) - (if _%$e160313%_ - ((lambda (_%ctor-method160316%_) - (if _%method160288%_ - (if (eq? _%ctor-method160316%_ - _%method160288%_) - (_%lp160285%_ - _%rest160308%_ - _%ctor-method160316%_) - (let ((__tmp161041 + (if _%$e163955%_ + ((lambda (_%ctor-method163958%_) + (if _%method163930%_ + (if (eq? _%ctor-method163958%_ + _%method163930%_) + (_%lp163927%_ + _%rest163950%_ + _%ctor-method163958%_) + (let ((__tmp164683 (cons '!class ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id160224%_ '())))) + (cons _%id163866%_ '())))) (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp161041 - _%method160288%_ - _%ctor-method160316%_))) + __tmp164683 + _%method163930%_ + _%ctor-method163958%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp160285%_ - _%rest160308%_ - _%ctor-method160316%_))) - _%$e160313%_) - (_%lp160285%_ - _%rest160308%_ - _%method160288%_)))))) - (if (pair? _%rest160289160297%_) - (let ((_%hd160294160322%_ + (_%lp163927%_ + _%rest163950%_ + _%ctor-method163958%_))) + _%$e163955%_) + (_%lp163927%_ + _%rest163950%_ + _%method163930%_)))))) + (if (pair? _%rest163931163939%_) + (let ((_%hd163936163964%_ (let () (declare (not safe)) - (##car _%rest160289160297%_))) - (_%tl160295160324%_ + (##car _%rest163931163939%_))) + (_%tl163937163966%_ (let () (declare (not safe)) - (##cdr _%rest160289160297%_)))) - (let* ((_%super-id160327%_ - _%hd160294160322%_) - (_%rest160329%_ _%tl160295160324%_)) - (_%K160293160319%_ - _%rest160329%_ - _%super-id160327%_))) - (_%else160291160305%_))))))) - (_g161042_ - (let ((__tmp161046 - (lambda (_%klass-id160333%_) - (cons _%klass-id160333%_ - (let ((__tmp161047 + (##cdr _%rest163931163939%_)))) + (let* ((_%super-id163969%_ + _%hd163936163964%_) + (_%rest163971%_ _%tl163937163966%_)) + (_%K163935163961%_ + _%rest163971%_ + _%super-id163969%_))) + (_%else163933163947%_))))))) + (_g164684_ + (let ((__tmp164688 + (lambda (_%klass-id163975%_) + (cons _%klass-id163975%_ + (let ((__tmp164689 (gxc#optimizer-resolve-class - (cons '!class (cons _%id160224%_ '())) - _%klass-id160333%_))) + (cons '!class (cons _%id163866%_ '())) + _%klass-id163975%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp161047 + __tmp164689 '3 '#f '#f))))) - (__tmp161044 - (lambda (_%klass-id160335%_) - (let ((__tmp161045 + (__tmp164686 + (lambda (_%klass-id163977%_) + (let ((__tmp164687 (gxc#optimizer-resolve-class - (cons '!class (cons _%id160224%_ '())) - _%klass-id160335%_))) + (cons '!class (cons _%id163866%_ '())) + _%klass-id163977%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp161045 + __tmp164687 '7 '#f '#f))))) (declare (not safe)) (c4-linearize__% '#f - __tmp161046 - __tmp161044 + __tmp164688 + __tmp164686 eq? identity '() - _%super160225%_)))) + _%super163867%_)))) (begin - (let ((_g161043_ + (let ((_g164685_ (let () (declare (not safe)) - (if (##values? _g161042_) - (##values-length _g161042_) + (if (##values? _g164684_) + (##values-length _g164684_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g161043_ 2))) - (error "Context expects 2 values" _g161043_))) - (let ((_%precedence-list160337%_ - (let () (declare (not safe)) (##values-ref _g161042_ 0))) - (_%base-struct160338%_ - (let () (declare (not safe)) (##values-ref _g161042_ 1)))) - (let* ((_%precedence-list160382%_ + (if (not (let () (declare (not safe)) (##fx= _g164685_ 2))) + (error "Context expects 2 values" _g164685_))) + (let ((_%precedence-list163979%_ + (let () (declare (not safe)) (##values-ref _g164684_ 0))) + (_%base-struct163980%_ + (let () (declare (not safe)) (##values-ref _g164684_ 1)))) + (let* ((_%precedence-list164024%_ (if (let () (declare (not safe)) - (##memq _%id160224%_ '(t object class))) - _%precedence-list160337%_ - (if (memq 'object::t _%precedence-list160337%_) - _%precedence-list160337%_ - (if _%system?160230%_ - (if (memq 't::t _%precedence-list160337%_) - _%precedence-list160337%_ + (##memq _%id163866%_ '(t object class))) + _%precedence-list163979%_ + (if (memq 'object::t _%precedence-list163979%_) + _%precedence-list163979%_ + (if _%system?163872%_ + (if (memq 't::t _%precedence-list163979%_) + _%precedence-list163979%_ (let () (declare (not safe)) (##append - _%precedence-list160337%_ + _%precedence-list163979%_ '(t::t)))) - (let _%loop160344%_ ((_%tail160346%_ - _%precedence-list160337%_) - (_%head160347%_ '())) - (let* ((_%tail160348160356%_ - _%tail160346%_) - (_%else160350160364%_ + (let _%loop163986%_ ((_%tail163988%_ + _%precedence-list163979%_) + (_%head163989%_ '())) + (let* ((_%tail163990163998%_ + _%tail163988%_) + (_%else163992164006%_ (lambda () (let () (declare (not safe)) (__foldl1 cons '(object::t t::t) - _%head160347%_)))) - (_%K160352160370%_ - (lambda (_%rest160367%_ - _%hd160368%_) - (if (eq? _%hd160368%_ 't::t) - (let ((__tmp161048 + _%head163989%_)))) + (_%K163994164012%_ + (lambda (_%rest164009%_ + _%hd164010%_) + (if (eq? _%hd164010%_ 't::t) + (let ((__tmp164690 (cons 'object::t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tail160346%_))) + _%tail163988%_))) (declare (not safe)) - (__foldl1 cons __tmp161048 _%head160347%_)) + (__foldl1 cons __tmp164690 _%head163989%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop160344%_ - _%rest160367%_ - (cons _%hd160368%_ - _%head160347%_)))))) - (if (pair? _%tail160348160356%_) - (let ((_%hd160353160373%_ + (_%loop163986%_ + _%rest164009%_ + (cons _%hd164010%_ + _%head163989%_)))))) + (if (pair? _%tail163990163998%_) + (let ((_%hd163995164015%_ (let () (declare (not safe)) - (##car _%tail160348160356%_))) - (_%tl160354160375%_ + (##car _%tail163990163998%_))) + (_%tl163996164017%_ (let () (declare (not safe)) - (##cdr _%tail160348160356%_)))) - (let* ((_%hd160378%_ - _%hd160353160373%_) - (_%rest160380%_ - _%tl160354160375%_)) - (_%K160352160370%_ - _%rest160380%_ - _%hd160378%_))) - (_%else160350160364%_)))))))) - (_%fields160384%_ + (##cdr _%tail163990163998%_)))) + (let* ((_%hd164020%_ + _%hd163995164015%_) + (_%rest164022%_ + _%tl163996164017%_)) + (_%K163994164012%_ + _%rest164022%_ + _%hd164020%_))) + (_%else163992164006%_)))))))) + (_%fields164026%_ (gxc#compute-class-fields - (cons '!class (cons _%id160224%_ '())) - _%base-struct160338%_ - _%precedence-list160382%_ - _%slots160226%_))) + (cons '!class (cons _%id163866%_ '())) + _%base-struct163980%_ + _%precedence-list164024%_ + _%slots163868%_))) (let () (declare (not safe)) (##unchecked-structure-set! - _%self160234%_ - _%id160224%_ + _%self163876%_ + _%id163866%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self160234%_ - _%super160225%_ + _%self163876%_ + _%super163867%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self160234%_ - _%precedence-list160382%_ + _%self163876%_ + _%precedence-list164024%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self160234%_ - _%slots160226%_ + _%self163876%_ + _%slots163868%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self160234%_ - _%fields160384%_ + _%self163876%_ + _%fields164026%_ '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self160234%_ - _%ctor-method160331%_ + _%self163876%_ + _%ctor-method163973%_ '6 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self160234%_ - _%struct?160228%_ + _%self163876%_ + _%struct?163870%_ '7 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self160234%_ - _%final?160229%_ + _%self163876%_ + _%final?163871%_ '8 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self160234%_ - _%metaclass160231%_ + _%self163876%_ + _%metaclass163873%_ '10 '#f '#f))))))))) (define gxc#!class:::init!__1 - (lambda (_%self160387%_ - _%id160388%_ - _%super160389%_ - _%precedence-list160390%_ - _%slots160391%_ - _%fields160392%_ - _%constructor160393%_ - _%struct?160394%_ - _%final?160395%_ - _%system?160396%_ - _%metaclass160397%_ - _%methods160398%_) - (let ((_%self160401%_ _%self160387%_)) + (lambda (_%self164029%_ + _%id164030%_ + _%super164031%_ + _%precedence-list164032%_ + _%slots164033%_ + _%fields164034%_ + _%constructor164035%_ + _%struct?164036%_ + _%final?164037%_ + _%system?164038%_ + _%metaclass164039%_ + _%methods164040%_) + (let ((_%self164043%_ _%self164029%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self160401%_ - _%id160388%_ + _%self164043%_ + _%id164030%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self160401%_ - _%super160389%_ + _%self164043%_ + _%super164031%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self160401%_ - _%precedence-list160390%_ + _%self164043%_ + _%precedence-list164032%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self160401%_ - _%slots160391%_ + _%self164043%_ + _%slots164033%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self160401%_ - _%fields160392%_ + _%self164043%_ + _%fields164034%_ '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self160401%_ - _%constructor160393%_ + _%self164043%_ + _%constructor164035%_ '6 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self160401%_ - _%struct?160394%_ + _%self164043%_ + _%struct?164036%_ '7 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self160401%_ - _%final?160395%_ + _%self164043%_ + _%final?164037%_ '8 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self160401%_ - _%metaclass160397%_ + _%self164043%_ + _%metaclass164039%_ '10 '#f '#f)) - (if _%methods160398%_ - (let ((__tmp161049 + (if _%methods164040%_ + (let ((__tmp164691 (let () (declare (not safe)) - (list->hash-table-eq _%methods160398%_)))) + (list->hash-table-eq _%methods164040%_)))) (declare (not safe)) (##unchecked-structure-set! - _%self160401%_ - __tmp161049 + _%self164043%_ + __tmp164691 '11 '#f '#f)) '#!void)))) (define gxc#!class:::init! - (lambda _g161050_ - (let ((_g161051_ (let () (declare (not safe)) (##length _g161050_)))) - (cond ((let () (declare (not safe)) (##fx= _g161051_ 9)) - (apply gxc#!class:::init!__0 _g161050_)) - ((let () (declare (not safe)) (##fx= _g161051_ 12)) - (apply gxc#!class:::init!__1 _g161050_)) + (lambda _g164692_ + (let ((_g164693_ (let () (declare (not safe)) (##length _g164692_)))) + (cond ((let () (declare (not safe)) (##fx= _g164693_ 9)) + (apply gxc#!class:::init!__0 _g164692_)) + ((let () (declare (not safe)) (##fx= _g164693_ 12)) + (apply gxc#!class:::init!__1 _g164692_)) (else (##raise-wrong-number-of-arguments-exception gxc#!class:::init! - _g161050_)))))) + _g164692_)))))) (let () (declare (not safe)) (__bind-method!__% gxc#!class::t ':init! gxc#!class:::init! '#f)) (define gxc#compute-class-fields - (lambda (_%where160075%_ - _%base-struct160076%_ - _%precedence-list160077%_ - _%direct-slots160078%_) - (let* ((_%base-fields160080%_ - (if _%base-struct160076%_ - (let ((__tmp161052 + (lambda (_%where163717%_ + _%base-struct163718%_ + _%precedence-list163719%_ + _%direct-slots163720%_) + (let* ((_%base-fields163722%_ + (if _%base-struct163718%_ + (let ((__tmp164694 (gxc#optimizer-resolve-class - _%where160075%_ - _%base-struct160076%_))) + _%where163717%_ + _%base-struct163718%_))) (declare (not safe)) - (##unchecked-structure-ref __tmp161052 '5 '#f '#f)) + (##unchecked-structure-ref __tmp164694 '5 '#f '#f)) '())) - (_%r-fields160082%_ (reverse _%base-fields160080%_)) - (_%seen-slots160090%_ - (let ((_%tab160084%_ + (_%r-fields163724%_ (reverse _%base-fields163722%_)) + (_%seen-slots163732%_ + (let ((_%tab163726%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%g160085160087%_) + (lambda (_%g163727163729%_) (let () (declare (not safe)) - (__hash-put! _%tab160084%_ _%g160085160087%_ '#t))) - _%base-fields160080%_) - _%tab160084%_)) - (_%process-slot160094%_ - (lambda (_%slot160092%_) + (__hash-put! _%tab163726%_ _%g163727163729%_ '#t))) + _%base-fields163722%_) + _%tab163726%_)) + (_%process-slot163736%_ + (lambda (_%slot163734%_) (if (let () (declare (not safe)) - (__hash-get _%seen-slots160090%_ _%slot160092%_)) + (__hash-get _%seen-slots163732%_ _%slot163734%_)) '#!void (begin (let () (declare (not safe)) (__hash-put! - _%seen-slots160090%_ - _%slot160092%_ + _%seen-slots163732%_ + _%slot163734%_ '#t)) - (set! _%r-fields160082%_ - (cons _%slot160092%_ _%r-fields160082%_))))))) + (set! _%r-fields163724%_ + (cons _%slot163734%_ _%r-fields163724%_))))))) (for-each - (lambda (_%mixin160097%_) - (let ((_%klass160099%_ + (lambda (_%mixin163739%_) + (let ((_%klass163741%_ (gxc#optimizer-resolve-class - _%where160075%_ - _%mixin160097%_))) + _%where163717%_ + _%mixin163739%_))) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%klass160099%_ '7 '#f '#f)) + (##unchecked-structure-ref _%klass163741%_ '7 '#f '#f)) '#!void (for-each - _%process-slot160094%_ + _%process-slot163736%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass160099%_ + _%klass163741%_ '5 '#f '#f)))))) - _%precedence-list160077%_) - (for-each _%process-slot160094%_ _%direct-slots160078%_) - (let () (declare (not safe)) (##reverse _%r-fields160082%_))))) + _%precedence-list163719%_) + (for-each _%process-slot163736%_ _%direct-slots163720%_) + (let () (declare (not safe)) (##reverse _%r-fields163724%_))))) (define gxc#!class-slot->field-offset - (lambda (_%klass160034%_ _%slot160035%_) - (let _%lp160037%_ ((_%rest160039%_ + (lambda (_%klass163676%_ _%slot163677%_) + (let _%lp163679%_ ((_%rest163681%_ (##structure-ref - _%klass160034%_ + _%klass163676%_ '5 gxc#!class::t '#f)) - (_%offset160040%_ '1)) - (let* ((_%rest160041160049%_ _%rest160039%_) - (_%else160043160057%_ + (_%offset163682%_ '1)) + (let* ((_%rest163683163691%_ _%rest163681%_) + (_%else163685163699%_ (lambda () - (let ((__tmp161054 + (let ((__tmp164696 (##structure-ref - _%klass160034%_ + _%klass163676%_ '1 gxc#!type::t '#f)) - (__tmp161053 + (__tmp164695 (##structure-ref - _%klass160034%_ + _%klass163676%_ '5 gxc#!class::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown class slot" - __tmp161054 - __tmp161053 - _%slot160035%_)))) - (_%K160045160063%_ - (lambda (_%rest160060%_ _%s160061%_) - (if (eq? _%s160061%_ _%slot160035%_) - _%offset160040%_ - (_%lp160037%_ - _%rest160060%_ + __tmp164696 + __tmp164695 + _%slot163677%_)))) + (_%K163687163705%_ + (lambda (_%rest163702%_ _%s163703%_) + (if (eq? _%s163703%_ _%slot163677%_) + _%offset163682%_ + (_%lp163679%_ + _%rest163702%_ (let () (declare (not safe)) - (##fx+ _%offset160040%_ '1))))))) - (if (pair? _%rest160041160049%_) - (let ((_%hd160046160066%_ + (##fx+ _%offset163682%_ '1))))))) + (if (pair? _%rest163683163691%_) + (let ((_%hd163688163708%_ (let () (declare (not safe)) - (##car _%rest160041160049%_))) - (_%tl160047160068%_ + (##car _%rest163683163691%_))) + (_%tl163689163710%_ (let () (declare (not safe)) - (##cdr _%rest160041160049%_)))) - (let* ((_%s160071%_ _%hd160046160066%_) - (_%rest160073%_ _%tl160047160068%_)) - (_%K160045160063%_ _%rest160073%_ _%s160071%_))) - (_%else160043160057%_)))))) + (##cdr _%rest163683163691%_)))) + (let* ((_%s163713%_ _%hd163688163708%_) + (_%rest163715%_ _%tl163689163710%_)) + (_%K163687163705%_ _%rest163715%_ _%s163713%_))) + (_%else163685163699%_)))))) (define gxc#!class-slot-find-struct - (lambda (_%klass159992%_ _%slot159993%_) - (if (gxc#!class-struct-slot? _%klass159992%_ _%slot159993%_) - _%klass159992%_ - (let _%lp159995%_ ((_%rest159997%_ + (lambda (_%klass163634%_ _%slot163635%_) + (if (gxc#!class-struct-slot? _%klass163634%_ _%slot163635%_) + _%klass163634%_ + (let _%lp163637%_ ((_%rest163639%_ (##structure-ref - _%klass159992%_ + _%klass163634%_ '3 gxc#!class::t '#f))) - (let* ((_%rest159998160006%_ _%rest159997%_) - (_%else160000160014%_ (lambda () '#f)) - (_%K160002160022%_ - (lambda (_%rest160017%_ _%super160018%_) - (let ((_%super-class160020%_ + (let* ((_%rest163640163648%_ _%rest163639%_) + (_%else163642163656%_ (lambda () '#f)) + (_%K163644163664%_ + (lambda (_%rest163659%_ _%super163660%_) + (let ((_%super-class163662%_ (gxc#optimizer-resolve-class (cons '!class-slot-find-struct (cons (##structure-ref - _%klass159992%_ + _%klass163634%_ '1 gxc#!type::t '#f) - (cons _%slot159993%_ '()))) - _%super160018%_))) + (cons _%slot163635%_ '()))) + _%super163660%_))) (if (gxc#!class-struct-slot? - _%super-class160020%_ - _%slot159993%_) - _%super-class160020%_ - (_%lp159995%_ _%rest160017%_)))))) - (if (pair? _%rest159998160006%_) - (let ((_%hd160003160025%_ + _%super-class163662%_ + _%slot163635%_) + _%super-class163662%_ + (_%lp163637%_ _%rest163659%_)))))) + (if (pair? _%rest163640163648%_) + (let ((_%hd163645163667%_ (let () (declare (not safe)) - (##car _%rest159998160006%_))) - (_%tl160004160027%_ + (##car _%rest163640163648%_))) + (_%tl163646163669%_ (let () (declare (not safe)) - (##cdr _%rest159998160006%_)))) - (let* ((_%super160030%_ _%hd160003160025%_) - (_%rest160032%_ _%tl160004160027%_)) - (_%K160002160022%_ _%rest160032%_ _%super160030%_))) - (_%else160000160014%_))))))) + (##cdr _%rest163640163648%_)))) + (let* ((_%super163672%_ _%hd163645163667%_) + (_%rest163674%_ _%tl163646163669%_)) + (_%K163644163664%_ _%rest163674%_ _%super163672%_))) + (_%else163642163656%_))))))) (define gxc#!class-struct-slot? - (lambda (_%klass159989%_ _%slot159990%_) - (if (##structure-ref _%klass159989%_ '7 gxc#!class::t '#f) - (memq _%slot159990%_ - (##structure-ref _%klass159989%_ '5 gxc#!class::t '#f)) + (lambda (_%klass163631%_ _%slot163632%_) + (if (##structure-ref _%klass163631%_ '7 gxc#!class::t '#f) + (memq _%slot163632%_ + (##structure-ref _%klass163631%_ '5 gxc#!class::t '#f)) '#f))) (define gxc#!predicate:::init! - (lambda (_%self159974%_ _%id159975%_) - (let ((_%self159978%_ _%self159974%_)) + (lambda (_%self163616%_ _%id163617%_) + (let ((_%self163620%_ _%self163616%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self159978%_ - _%id159975%_ + _%self163620%_ + _%id163617%_ '1 '#f '#f)) - (let ((__tmp161055 - (let ((__obj160987 + (let ((__tmp164697 + (let ((__obj164629 (let () (declare (not safe)) (##structure @@ -2299,7 +2275,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160987 + __obj164629 'boolean::t '1 '#f @@ -2307,7 +2283,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160987 + __obj164629 '(pure predicate) '2 '#f @@ -2315,16 +2291,16 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160987 + __obj164629 '(t::t) '3 '#f '#f)) - __obj160987))) + __obj164629))) (declare (not safe)) (##unchecked-structure-set! - _%self159978%_ - __tmp161055 + _%self163620%_ + __tmp164697 '2 '#f '#f))))) @@ -2332,18 +2308,18 @@ (declare (not safe)) (__bind-method!__% gxc#!predicate::t ':init! gxc#!predicate:::init! '#f)) (define gxc#!constructor:::init! - (lambda (_%self159837%_ _%id159838%_) - (let ((_%self159841%_ _%self159837%_)) + (lambda (_%self163479%_ _%id163480%_) + (let ((_%self163483%_ _%self163479%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self159841%_ - _%id159838%_ + _%self163483%_ + _%id163480%_ '1 '#f '#f)) - (let ((__tmp161056 - (let ((__obj160988 + (let ((__tmp164698 + (let ((__obj164630 (let () (declare (not safe)) (##structure @@ -2356,24 +2332,24 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160988 - _%id159838%_ + __obj164630 + _%id163480%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj160988 + __obj164630 '(alloc) '2 '#f '#f)) - __obj160988))) + __obj164630))) (declare (not safe)) (##unchecked-structure-set! - _%self159841%_ - __tmp161056 + _%self163483%_ + __tmp164698 '2 '#f '#f))))) @@ -2385,34 +2361,34 @@ gxc#!constructor:::init! '#f)) (define gxc#!accessor:::init! - (lambda (_%self159698%_ _%id159699%_ _%slot159700%_ _%checked?159701%_) - (let ((_%self159704%_ _%self159698%_)) + (lambda (_%self163340%_ _%id163341%_ _%slot163342%_ _%checked?163343%_) + (let ((_%self163346%_ _%self163340%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self159704%_ - _%id159699%_ + _%self163346%_ + _%id163341%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self159704%_ - _%slot159700%_ + _%self163346%_ + _%slot163342%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self159704%_ - _%checked?159701%_ + _%self163346%_ + _%checked?163343%_ '4 '#f '#f)) - (let ((__tmp161057 - (let ((__obj160989 + (let ((__tmp164699 + (let ((__obj164631 (let () (declare (not safe)) (##structure @@ -2424,28 +2400,28 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160989 't::t '1 '#f '#f)) + (##unchecked-structure-set! __obj164631 't::t '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj160989 + __obj164631 '(pure) '2 '#f '#f)) - (let ((__tmp161058 (cons _%id159699%_ '()))) + (let ((__tmp164700 (cons _%id163341%_ '()))) (declare (not safe)) (##unchecked-structure-set! - __obj160989 - __tmp161058 + __obj164631 + __tmp164700 '3 '#f '#f)) - __obj160989))) + __obj164631))) (declare (not safe)) (##unchecked-structure-set! - _%self159704%_ - __tmp161057 + _%self163346%_ + __tmp164699 '2 '#f '#f))))) @@ -2453,34 +2429,34 @@ (declare (not safe)) (__bind-method!__% gxc#!accessor::t ':init! gxc#!accessor:::init! '#f)) (define gxc#!mutator:::init! - (lambda (_%self159559%_ _%id159560%_ _%slot159561%_ _%checked?159562%_) - (let ((_%self159565%_ _%self159559%_)) + (lambda (_%self163201%_ _%id163202%_ _%slot163203%_ _%checked?163204%_) + (let ((_%self163207%_ _%self163201%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self159565%_ - _%id159560%_ + _%self163207%_ + _%id163202%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self159565%_ - _%slot159561%_ + _%self163207%_ + _%slot163203%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self159565%_ - _%checked?159562%_ + _%self163207%_ + _%checked?163204%_ '4 '#f '#f)) - (let ((__tmp161059 - (let ((__obj160990 + (let ((__tmp164701 + (let ((__obj164632 (let () (declare (not safe)) (##structure @@ -2493,7 +2469,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160990 + __obj164632 'void::t '1 '#f @@ -2501,24 +2477,24 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160990 + __obj164632 '(mut) '2 '#f '#f)) - (let ((__tmp161060 (cons _%id159560%_ (cons 't::t '())))) + (let ((__tmp164702 (cons _%id163202%_ (cons 't::t '())))) (declare (not safe)) (##unchecked-structure-set! - __obj160990 - __tmp161060 + __obj164632 + __tmp164702 '3 '#f '#f)) - __obj160990))) + __obj164632))) (declare (not safe)) (##unchecked-structure-set! - _%self159565%_ - __tmp161059 + _%self163207%_ + __tmp164701 '2 '#f '#f))))) @@ -2526,109 +2502,109 @@ (declare (not safe)) (__bind-method!__% gxc#!mutator::t ':init! gxc#!mutator:::init! '#f)) (define gxc#!lambda:::init!__% - (lambda (_%@@keywords159402%_ - _%signature159399159403%_ - _%self159405%_ - _%arity159406%_ - _%dispatch159407%_) - (let* ((_%signature159409%_ - (if (eq? _%signature159399159403%_ absent-value) + (lambda (_%@@keywords163045%_ + _%signature163042163046%_ + _%self163047%_ + _%arity163048%_ + _%dispatch163049%_) + (let* ((_%signature163051%_ + (if (eq? _%signature163042163046%_ absent-value) '#f - _%signature159399159403%_)) - (_%self159412%_ _%self159405%_)) + _%signature163042163046%_)) + (_%self163054%_ _%self163047%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self159412%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self163054%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self159412%_ - _%arity159406%_ + _%self163054%_ + _%arity163048%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self159412%_ - _%dispatch159407%_ + _%self163054%_ + _%dispatch163049%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self159412%_ - _%signature159409%_ + _%self163054%_ + _%signature163051%_ '2 '#f '#f))))) (define gxc#!lambda:::init!__@ - (lambda (_%@@keywords159427%_ . _%args159428%_) + (lambda (_%@@keywords163069%_ . _%args163070%_) (apply gxc#!lambda:::init!__% - _%@@keywords159427%_ + _%@@keywords163069%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords159427%_ + _%@@keywords163069%_ 'signature: absent-value)) - _%args159428%_))) + _%args163070%_))) (define gxc#!lambda:::init! - (lambda _%args159400159434%_ + (lambda _%args163043163076%_ (apply keyword-dispatch '#(signature:) gxc#!lambda:::init!__@ - _%args159400159434%_))) + _%args163043163076%_))) (let () (declare (not safe)) (__bind-method!__% gxc#!lambda::t ':init! gxc#!lambda:::init! '#f)) (define gxc#!case-lambda:::init!__% - (lambda (_%@@keywords159242%_ - _%signature159239159243%_ - _%self159245%_ - _%clauses159246%_) - (let* ((_%signature159248%_ - (if (eq? _%signature159239159243%_ absent-value) + (lambda (_%@@keywords162886%_ + _%signature162883162887%_ + _%self162888%_ + _%clauses162889%_) + (let* ((_%signature162891%_ + (if (eq? _%signature162883162887%_ absent-value) '#f - _%signature159239159243%_)) - (_%self159251%_ _%self159245%_)) + _%signature162883162887%_)) + (_%self162894%_ _%self162888%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self159251%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self162894%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self159251%_ - _%signature159248%_ + _%self162894%_ + _%signature162891%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self159251%_ - _%clauses159246%_ + _%self162894%_ + _%clauses162889%_ '3 '#f '#f))))) (define gxc#!case-lambda:::init!__@ - (lambda (_%@@keywords159266%_ . _%args159267%_) + (lambda (_%@@keywords162909%_ . _%args162910%_) (apply gxc#!case-lambda:::init!__% - _%@@keywords159266%_ + _%@@keywords162909%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords159266%_ + _%@@keywords162909%_ 'signature: absent-value)) - _%args159267%_))) + _%args162910%_))) (define gxc#!case-lambda:::init! - (lambda _%args159240159273%_ + (lambda _%args162884162916%_ (apply keyword-dispatch '#(signature:) gxc#!case-lambda:::init!__@ - _%args159240159273%_))) + _%args162884162916%_))) (let () (declare (not safe)) (__bind-method!__% @@ -2637,24 +2613,24 @@ gxc#!case-lambda:::init! '#f)) (define gxc#!kw-lambda:::init! - (lambda (_%self159100%_ _%tab159101%_ _%dispatch159102%_) - (let ((_%self159105%_ _%self159100%_)) + (lambda (_%self162744%_ _%tab162745%_ _%dispatch162746%_) + (let ((_%self162749%_ _%self162744%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self159105%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self162749%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self159105%_ - _%tab159101%_ + _%self162749%_ + _%tab162745%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self159105%_ - _%dispatch159102%_ + _%self162749%_ + _%dispatch162746%_ '4 '#f '#f))))) @@ -2662,24 +2638,24 @@ (declare (not safe)) (__bind-method!__% gxc#!kw-lambda::t ':init! gxc#!kw-lambda:::init! '#f)) (define gxc#!kw-lambda-primary:::init! - (lambda (_%self158962%_ _%keys158963%_ _%main158964%_) - (let ((_%self158967%_ _%self158962%_)) + (lambda (_%self162606%_ _%keys162607%_ _%main162608%_) + (let ((_%self162611%_ _%self162606%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self158967%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self162611%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self158967%_ - _%keys158963%_ + _%self162611%_ + _%keys162607%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self158967%_ - _%main158964%_ + _%self162611%_ + _%main162608%_ '4 '#f '#f))))) @@ -2707,18 +2683,18 @@ gxc#!primitive-case-lambda:::init! '#f)) (define gxc#!primitive-predicate:::init! - (lambda (_%self158581%_ _%id158582%_) - (let ((_%self158585%_ _%self158581%_)) + (lambda (_%self162225%_ _%id162226%_) + (let ((_%self162229%_ _%self162225%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self158585%_ - _%id158582%_ + _%self162229%_ + _%id162226%_ '1 '#f '#f)) - (let ((__tmp161061 - (let ((__obj160991 + (let ((__tmp164703 + (let ((__obj164633 (let () (declare (not safe)) (##structure @@ -2731,7 +2707,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160991 + __obj164633 'boolean::t '1 '#f @@ -2739,7 +2715,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160991 + __obj164633 '(pure) '2 '#f @@ -2747,16 +2723,16 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160991 + __obj164633 '(t::t) '3 '#f '#f)) - __obj160991))) + __obj164633))) (declare (not safe)) (##unchecked-structure-set! - _%self158585%_ - __tmp161061 + _%self162229%_ + __tmp164703 '2 '#f '#f))))) @@ -2768,158 +2744,158 @@ gxc#!primitive-predicate:::init! '#f)) (define gxc#!class-method-table - (lambda (_%klass158450%_) - (let ((_%$e158452%_ - (##structure-ref _%klass158450%_ '11 gxc#!class::t '#f))) - (if _%$e158452%_ - _%$e158452%_ - (let ((_%tab158456%_ + (lambda (_%klass162094%_) + (let ((_%$e162096%_ + (##structure-ref _%klass162094%_ '11 gxc#!class::t '#f))) + (if _%$e162096%_ + _%$e162096%_ + (let ((_%tab162100%_ (let () (declare (not safe)) (make-hash-table-eq)))) (##structure-set! - _%klass158450%_ - _%tab158456%_ + _%klass162094%_ + _%tab162100%_ '11 gxc#!class::t '#f) - _%tab158456%_))))) + _%tab162100%_))))) (define gxc#!class-lookup-method - (lambda (_%klass158441%_ _%method158442%_) - (let ((_%tab158443158445%_ - (##structure-ref _%klass158441%_ '11 gxc#!class::t '#f))) - (if _%tab158443158445%_ - (let ((_%tab158448%_ _%tab158443158445%_)) + (lambda (_%klass162086%_ _%method162087%_) + (let ((_%tab162088162090%_ + (##structure-ref _%klass162086%_ '11 gxc#!class::t '#f))) + (if _%tab162088162090%_ + (let ((_%tab162092%_ _%tab162088162090%_)) (declare (not safe)) - (hash-get _%tab158448%_ _%method158442%_)) + (hash-get _%tab162092%_ _%method162087%_)) '#f)))) (define gxc#!type-subtype? - (lambda (_%type-a158429%_ _%type-b158430%_) - (if _%type-a158429%_ - (if _%type-b158430%_ - (let ((_%$e158432%_ (eq? _%type-a158429%_ _%type-b158430%_))) - (if _%$e158432%_ - _%$e158432%_ - (let ((_%$e158435%_ + (lambda (_%type-a162074%_ _%type-b162075%_) + (if _%type-a162074%_ + (if _%type-b162075%_ + (let ((_%$e162077%_ (eq? _%type-a162074%_ _%type-b162075%_))) + (if _%$e162077%_ + _%$e162077%_ + (let ((_%$e162080%_ (eq? (##structure-ref - _%type-b158430%_ + _%type-b162075%_ '1 gxc#!type::t '#f) 't))) - (if _%$e158435%_ - _%$e158435%_ - (let ((_%$e158438%_ + (if _%$e162080%_ + _%$e162080%_ + (let ((_%$e162083%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-a158429%_ + _%type-a162074%_ 'gxc#!procedure::t)) (eq? (##structure-ref - _%type-b158430%_ + _%type-b162075%_ '1 gxc#!type::t '#f) 'procedure) '#f))) - (if _%$e158438%_ - _%$e158438%_ + (if _%$e162083%_ + _%$e162083%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-a158429%_ + _%type-a162074%_ 'gxc#!class::t)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type-b158430%_ + _%type-b162075%_ 'gxc#!class::t)) (gxc#!class-subclass? - _%type-a158429%_ - _%type-b158430%_) + _%type-a162074%_ + _%type-b162075%_) '#f) '#f))))))) '#f) '#f))) (define gxc#!class-subclass? - (lambda (_%klass-a158380%_ _%klass-b158381%_) - (let ((_%$e158383%_ - (eq? (##structure-ref _%klass-a158380%_ '1 gxc#!type::t '#f) - (##structure-ref _%klass-b158381%_ '1 gxc#!type::t '#f)))) - (if _%$e158383%_ - _%$e158383%_ - (let ((_%klass-id-b158386%_ - (##structure-ref _%klass-b158381%_ '1 gxc#!type::t '#f)) - (_%precedence-list158387%_ - (##structure-ref _%klass-a158380%_ '3 gxc#!class::t '#f))) - (let _%loop158389%_ ((_%rest158391%_ - _%precedence-list158387%_)) - (let* ((_%rest158392158400%_ _%rest158391%_) - (_%else158394158408%_ (lambda () '#f)) - (_%K158396158417%_ - (lambda (_%rest158411%_ _%klass-name158412%_) - (let ((_%$e158414%_ - (eq? (let ((__tmp161062 + (lambda (_%klass-a162025%_ _%klass-b162026%_) + (let ((_%$e162028%_ + (eq? (##structure-ref _%klass-a162025%_ '1 gxc#!type::t '#f) + (##structure-ref _%klass-b162026%_ '1 gxc#!type::t '#f)))) + (if _%$e162028%_ + _%$e162028%_ + (let ((_%klass-id-b162031%_ + (##structure-ref _%klass-b162026%_ '1 gxc#!type::t '#f)) + (_%precedence-list162032%_ + (##structure-ref _%klass-a162025%_ '3 gxc#!class::t '#f))) + (let _%loop162034%_ ((_%rest162036%_ + _%precedence-list162032%_)) + (let* ((_%rest162037162045%_ _%rest162036%_) + (_%else162039162053%_ (lambda () '#f)) + (_%K162041162062%_ + (lambda (_%rest162056%_ _%klass-name162057%_) + (let ((_%$e162059%_ + (eq? (let ((__tmp164704 (gxc#optimizer-resolve-class (cons 'subclass? - (cons _%klass-a158380%_ - (cons _%klass-b158381%_ + (cons _%klass-a162025%_ + (cons _%klass-b162026%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%klass-name158412%_))) + _%klass-name162057%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp161062 + __tmp164704 '1 '#f '#f)) - _%klass-id-b158386%_))) - (if _%$e158414%_ - _%$e158414%_ - (_%loop158389%_ _%rest158411%_)))))) - (if (pair? _%rest158392158400%_) - (let ((_%hd158397158420%_ + _%klass-id-b162031%_))) + (if _%$e162059%_ + _%$e162059%_ + (_%loop162034%_ _%rest162056%_)))))) + (if (pair? _%rest162037162045%_) + (let ((_%hd162042162065%_ (let () (declare (not safe)) - (##car _%rest158392158400%_))) - (_%tl158398158422%_ + (##car _%rest162037162045%_))) + (_%tl162043162067%_ (let () (declare (not safe)) - (##cdr _%rest158392158400%_)))) - (let* ((_%klass-name158425%_ _%hd158397158420%_) - (_%rest158427%_ _%tl158398158422%_)) - (_%K158396158417%_ - _%rest158427%_ - _%klass-name158425%_))) - (_%else158394158408%_))))))))) + (##cdr _%rest162037162045%_)))) + (let* ((_%klass-name162070%_ _%hd162042162065%_) + (_%rest162072%_ _%tl162043162067%_)) + (_%K162041162062%_ + _%rest162072%_ + _%klass-name162070%_))) + (_%else162039162053%_))))))))) (define gxc#!interface-instance? - (lambda (_%type158378%_) + (lambda (_%type162023%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type158378%_ 'gxc#!class::t)) + (##structure-instance-of? _%type162023%_ 'gxc#!class::t)) (memq 'interface-instance::t (let () (declare (not safe)) - (##unchecked-structure-ref _%type158378%_ '3 '#f '#f))) + (##unchecked-structure-ref _%type162023%_ '3 '#f '#f))) '#f))) (define gxc#!procedure-origin - (lambda (_%proc158367%_) + (lambda (_%proc162012%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%proc158367%_ 'gxc#!procedure::t)) - (let ((_%proc158370%_ _%proc158367%_)) + (##structure-instance-of? _%proc162012%_ 'gxc#!procedure::t)) + (let ((_%proc162015%_ _%proc162012%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%proc158370%_ '2 '#f '#f)) - (let ((__tmp161063 + (##unchecked-structure-ref _%proc162015%_ '2 '#f '#f)) + (let ((__tmp164705 (let () (declare (not safe)) (##unchecked-structure-ref - _%proc158370%_ + _%proc162015%_ '2 '#f '#f)))) (declare (not safe)) - (##unchecked-structure-ref __tmp161063 '5 '#f '#f)) + (##unchecked-structure-ref __tmp164705 '5 '#f '#f)) '#f)) (begin (raise-contract-violation-error @@ -2929,24 +2905,24 @@ 'contract: '!procedure? 'value: - _%proc158367%_) + _%proc162012%_) '#!void)))) (define gxc#optimizer-declare-type!__% - (lambda (_%sym158349%_ _%type158350%_ _%local?158351%_) + (lambda (_%sym161994%_ _%type161995%_ _%local?161996%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type158350%_ 'gxc#!type::t)) + (##structure-instance-of? _%type161995%_ 'gxc#!type::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !type" - _%sym158349%_ - _%type158350%_))) + _%sym161994%_ + _%type161995%_))) (let () (declare (not safe)) - (gxc#verbose '"declare-type " _%sym158349%_ '" " _%type158350%_)) - (let ((_%table158353%_ - (if _%local?158351%_ + (gxc#verbose '"declare-type " _%sym161994%_ '" " _%type161995%_)) + (let ((_%table161998%_ + (if _%local?161996%_ (let () (declare (not safe)) (gxc#current-compile-local-type)) @@ -2958,37 +2934,37 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (hash-put! _%table158353%_ _%sym158349%_ _%type158350%_)))) + (hash-put! _%table161998%_ _%sym161994%_ _%type161995%_)))) (define gxc#optimizer-declare-type!__0 - (lambda (_%sym158358%_ _%type158359%_) - (let ((_%local?158361%_ '#f)) + (lambda (_%sym162003%_ _%type162004%_) + (let ((_%local?162006%_ '#f)) (gxc#optimizer-declare-type!__% - _%sym158358%_ - _%type158359%_ - _%local?158361%_)))) + _%sym162003%_ + _%type162004%_ + _%local?162006%_)))) (define gxc#optimizer-declare-type! - (lambda _g161064_ - (let ((_g161065_ (let () (declare (not safe)) (##length _g161064_)))) - (cond ((let () (declare (not safe)) (##fx= _g161065_ 2)) - (apply gxc#optimizer-declare-type!__0 _g161064_)) - ((let () (declare (not safe)) (##fx= _g161065_ 3)) - (apply gxc#optimizer-declare-type!__% _g161064_)) + (lambda _g164706_ + (let ((_g164707_ (let () (declare (not safe)) (##length _g164706_)))) + (cond ((let () (declare (not safe)) (##fx= _g164707_ 2)) + (apply gxc#optimizer-declare-type!__0 _g164706_)) + ((let () (declare (not safe)) (##fx= _g164707_ 3)) + (apply gxc#optimizer-declare-type!__% _g164706_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-type! - _g161064_)))))) + _g164706_)))))) (define gxc#optimizer-declare-class! - (lambda (_%sym158343%_ _%type158344%_) + (lambda (_%sym161988%_ _%type161989%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type158344%_ 'gxc#!class::t)) + (##structure-instance-of? _%type161989%_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !class" - _%sym158343%_ - _%type158344%_))) - (let ((_%table158346%_ + _%sym161988%_ + _%type161989%_))) + (let ((_%table161991%_ (##structure-ref (let () (declare (not safe)) @@ -2996,28 +2972,28 @@ '2 gxc#optimizer-info::t '#f))) - (let ((__tmp161066 - (let () (declare (not safe)) (struct->list _%type158344%_)))) + (let ((__tmp164708 + (let () (declare (not safe)) (struct->list _%type161989%_)))) (declare (not safe)) - (gxc#verbose '"declare-class " _%sym158343%_ '" " __tmp161066)) + (gxc#verbose '"declare-class " _%sym161988%_ '" " __tmp164708)) (let () (declare (not safe)) - (hash-put! _%table158346%_ _%sym158343%_ _%type158344%_)) + (hash-put! _%table161991%_ _%sym161988%_ _%type161989%_)) (let () (declare (not safe)) - (hash-put! _%table158346%_ _%type158344%_ _%sym158343%_))))) + (hash-put! _%table161991%_ _%type161989%_ _%sym161988%_))))) (define gxc#optimizer-declare-builtin-class! - (lambda (_%sym158338%_ _%type158339%_) + (lambda (_%sym161983%_ _%type161984%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type158339%_ 'gxc#!class::t)) + (##structure-instance-of? _%type161984%_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !class" - _%sym158338%_ - _%type158339%_))) - (let ((_%table158341%_ + _%sym161983%_ + _%type161984%_))) + (let ((_%table161986%_ (##structure-ref (let () (declare (not safe)) @@ -3027,38 +3003,38 @@ '#f))) (if (let () (declare (not safe)) - (hash-get _%table158341%_ _%sym158338%_)) + (hash-get _%table161986%_ _%sym161983%_)) '#!void (begin - (let ((__tmp161067 + (let ((__tmp164709 (let () (declare (not safe)) - (struct->list _%type158339%_)))) + (struct->list _%type161984%_)))) (declare (not safe)) (gxc#verbose '"declare-builtin-class " - _%sym158338%_ + _%sym161983%_ '" " - __tmp161067)) + __tmp164709)) (let () (declare (not safe)) - (hash-put! _%table158341%_ _%sym158338%_ _%type158339%_)) + (hash-put! _%table161986%_ _%sym161983%_ _%type161984%_)) (let () (declare (not safe)) (hash-put! - _%table158341%_ - _%type158339%_ - _%sym158338%_))))))) + _%table161986%_ + _%type161984%_ + _%sym161983%_))))))) (define gxc#optimizer-clear-type! - (lambda (_%sym158336%_) + (lambda (_%sym161981%_) (let () (declare (not safe)) - (gxc#verbose '"clear-type " _%sym158336%_)) - (let ((__tmp161068 + (gxc#verbose '"clear-type " _%sym161981%_)) + (let ((__tmp164710 (let () (declare (not safe)) (gxc#current-compile-local-type)))) (declare (not safe)) - (hash-remove! __tmp161068 _%sym158336%_)) - (let ((__tmp161069 + (hash-remove! __tmp164710 _%sym161981%_)) + (let ((__tmp164711 (##structure-ref (let () (declare (not safe)) @@ -3067,13 +3043,13 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-remove! __tmp161069 _%sym158336%_)))) + (hash-remove! __tmp164711 _%sym161981%_)))) (define gxc#optimizer-declare-method!__% - (lambda (_%type-t158304%_ - _%method158305%_ - _%sym158306%_ - _%rebind?158307%_) - (let ((__tmp161070 + (lambda (_%type-t161949%_ + _%method161950%_ + _%sym161951%_ + _%rebind?161952%_) + (let ((__tmp164712 (##structure-ref (let () (declare (not safe)) @@ -3082,109 +3058,109 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp161070 _%sym158306%_ '#t)) - (let ((_%klass158309%_ (gxc#optimizer-lookup-class _%type-t158304%_))) - (if _%klass158309%_ - (let* ((_%vtab158311%_ (gxc#!class-method-table _%klass158309%_)) - (_%$e158313%_ + (hash-put! __tmp164712 _%sym161951%_ '#t)) + (let ((_%klass161954%_ (gxc#optimizer-lookup-class _%type-t161949%_))) + (if _%klass161954%_ + (let* ((_%vtab161956%_ (gxc#!class-method-table _%klass161954%_)) + (_%$e161958%_ (let () (declare (not safe)) - (hash-get _%vtab158311%_ _%method158305%_)))) - (if _%$e158313%_ - ((lambda (_%existing158316%_) - (if _%rebind?158307%_ + (hash-get _%vtab161956%_ _%method161950%_)))) + (if _%$e161958%_ + ((lambda (_%existing161961%_) + (if _%rebind?161952%_ (let () (let () (declare (not safe)) (gxc#verbose '"declare-method: rebind existing method" - _%type-t158304%_ + _%type-t161949%_ '" " - _%method158305%_)) + _%method161950%_)) (let () (declare (not safe)) (hash-put! - _%vtab158311%_ - _%method158305%_ - _%sym158306%_))) - (if (eq? _%existing158316%_ _%sym158306%_) + _%vtab161956%_ + _%method161950%_ + _%sym161951%_))) + (if (eq? _%existing161961%_ _%sym161951%_) '#!void - (let ((__tmp161071 + (let ((__tmp164713 (cons 'bind-method! - (cons _%type-t158304%_ - (cons _%method158305%_ - (cons _%sym158306%_ + (cons _%type-t161949%_ + (cons _%method161950%_ + (cons _%sym161951%_ '())))))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: duplicate method declaration" - __tmp161071 - _%method158305%_))))) - _%$e158313%_) + __tmp164713 + _%method161950%_))))) + _%$e161958%_) (let () (let () (declare (not safe)) (gxc#verbose '"declare-method " - _%type-t158304%_ + _%type-t161949%_ '" " - _%method158305%_ + _%method161950%_ '" => " - _%sym158306%_)) + _%sym161951%_)) (let () (declare (not safe)) (hash-put! - _%vtab158311%_ - _%method158305%_ - _%sym158306%_))))) + _%vtab161956%_ + _%method161950%_ + _%sym161951%_))))) (let () (declare (not safe)) (gxc#verbose '"declare-method: unknown class" - _%type-t158304%_)))))) + _%type-t161949%_)))))) (define gxc#optimizer-declare-method!__0 - (lambda (_%type-t158325%_ _%method158326%_ _%sym158327%_) - (let ((_%rebind?158329%_ '#f)) + (lambda (_%type-t161970%_ _%method161971%_ _%sym161972%_) + (let ((_%rebind?161974%_ '#f)) (gxc#optimizer-declare-method!__% - _%type-t158325%_ - _%method158326%_ - _%sym158327%_ - _%rebind?158329%_)))) + _%type-t161970%_ + _%method161971%_ + _%sym161972%_ + _%rebind?161974%_)))) (define gxc#optimizer-declare-method! - (lambda _g161072_ - (let ((_g161073_ (let () (declare (not safe)) (##length _g161072_)))) - (cond ((let () (declare (not safe)) (##fx= _g161073_ 3)) - (apply gxc#optimizer-declare-method!__0 _g161072_)) - ((let () (declare (not safe)) (##fx= _g161073_ 4)) - (apply gxc#optimizer-declare-method!__% _g161072_)) + (lambda _g164714_ + (let ((_g164715_ (let () (declare (not safe)) (##length _g164714_)))) + (cond ((let () (declare (not safe)) (##fx= _g164715_ 3)) + (apply gxc#optimizer-declare-method!__0 _g164714_)) + ((let () (declare (not safe)) (##fx= _g164715_ 4)) + (apply gxc#optimizer-declare-method!__% _g164714_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-method! - _g161072_)))))) + _g164714_)))))) (define gxc#optimizer-lookup-type - (lambda (_%sym158289%_) - (let ((_%$e158291%_ - (let ((__tmp161074 + (lambda (_%sym161935%_) + (let ((_%$e161937%_ + (let ((__tmp164716 (let () (declare (not safe)) (gxc#current-compile-path-type)))) (declare (not safe)) - (agetq__0 _%sym158289%_ __tmp161074)))) - (if _%$e158291%_ - _%$e158291%_ - (let ((_%$e158300%_ - (let ((_%ht158293158295%_ + (agetq__0 _%sym161935%_ __tmp164716)))) + (if _%$e161937%_ + _%$e161937%_ + (let ((_%$e161945%_ + (let ((_%ht161939161941%_ (let () (declare (not safe)) (gxc#current-compile-local-type)))) - (if _%ht158293158295%_ - (let ((_%ht158298%_ _%ht158293158295%_)) + (if _%ht161939161941%_ + (let ((_%ht161943%_ _%ht161939161941%_)) (declare (not safe)) - (hash-get _%ht158298%_ _%sym158289%_)) + (hash-get _%ht161943%_ _%sym161935%_)) '#f)))) - (if _%$e158300%_ - _%$e158300%_ - (let ((__tmp161075 + (if _%$e161945%_ + _%$e161945%_ + (let ((__tmp164717 (##structure-ref (let () (declare (not safe)) @@ -3193,24 +3169,24 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp161075 _%sym158289%_)))))))) + (hash-get __tmp164717 _%sym161935%_)))))))) (define gxc#optimizer-resolve-type - (lambda (_%sym158281%_) - (let ((_%type158282158284%_ (gxc#optimizer-lookup-type _%sym158281%_))) - (if _%type158282158284%_ - (let ((_%type158287%_ _%type158282158284%_)) + (lambda (_%sym161928%_) + (let ((_%type161929161931%_ (gxc#optimizer-lookup-type _%sym161928%_))) + (if _%type161929161931%_ + (let ((_%type161933%_ _%type161929161931%_)) (if (let () (declare (not safe)) - (##structure-instance-of? _%type158287%_ 'gxc#!alias::t)) + (##structure-instance-of? _%type161933%_ 'gxc#!alias::t)) (gxc#optimizer-resolve-type (let () (declare (not safe)) - (##unchecked-structure-ref _%type158287%_ '1 '#f '#f))) - _%type158287%_)) + (##unchecked-structure-ref _%type161933%_ '1 '#f '#f))) + _%type161933%_)) '#f)))) (define gxc#optimizer-lookup-class - (lambda (_%sym158277%_) - (let ((_%table158279%_ + (lambda (_%sym161924%_) + (let ((_%table161926%_ (##structure-ref (let () (declare (not safe)) @@ -3219,34 +3195,34 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get _%table158279%_ _%sym158277%_)))) + (hash-get _%table161926%_ _%sym161924%_)))) (define gxc#optimizer-resolve-class - (lambda (_%where158262%_ _%sym158263%_) - (let ((_%$e158266%_ (gxc#optimizer-lookup-class _%sym158263%_))) - (if _%$e158266%_ - ((lambda (_%g158268158270%_) - (let ((_%val158273%_ _%g158268158270%_)) + (lambda (_%where161909%_ _%sym161910%_) + (let ((_%$e161913%_ (gxc#optimizer-lookup-class _%sym161910%_))) + (if _%$e161913%_ + ((lambda (_%g161915161917%_) + (let ((_%val161920%_ _%g161915161917%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%val158273%_ + _%val161920%_ 'gxc#!class::t)) - _%val158273%_ + _%val161920%_ (let () (declare (not safe)) - (error '"bad cast" gxc#!class::t _%val158273%_))))) - _%$e158266%_) + (error '"bad cast" gxc#!class::t _%val161920%_))))) + _%$e161913%_) (let () (let () (declare (not safe)) (gxc#raise-compile-error '"unknown class" - _%where158262%_ - _%sym158263%_)) + _%where161909%_ + _%sym161910%_)) '#!void))))) (define gxc#optimizer-lookup-class-name - (lambda (_%klass158260%_) - (let ((__tmp161076 + (lambda (_%klass161907%_) + (let ((__tmp164718 (##structure-ref (let () (declare (not safe)) @@ -3255,15 +3231,15 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp161076 _%klass158260%_)))) + (hash-get __tmp164718 _%klass161907%_)))) (define gxc#optimizer-lookup-method - (lambda (_%type-t158257%_ _%method158258%_) + (lambda (_%type-t161904%_ _%method161905%_) (gxc#!class-lookup-method - (gxc#optimizer-resolve-class 'lookup-method _%type-t158257%_) - _%method158258%_))) + (gxc#optimizer-resolve-class 'lookup-method _%type-t161904%_) + _%method161905%_))) (define gxc#optimizer-top-level-method? - (lambda (_%sym158255%_) - (let ((__tmp161077 + (lambda (_%sym161902%_) + (let ((__tmp164719 (##structure-ref (let () (declare (not safe)) @@ -3272,59 +3248,59 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp161077 _%sym158255%_)))) + (hash-get __tmp164719 _%sym161902%_)))) (define gxc#optimizer-current-types (lambda () - (letrec ((_%type-e158137%_ - (lambda (_%t158238%_) - (if (symbol? _%t158238%_) - (_%type-e158137%_ - (gxc#optimizer-lookup-type _%t158238%_)) + (letrec ((_%type-e161784%_ + (lambda (_%t161885%_) + (if (symbol? _%t161885%_) + (_%type-e161784%_ + (gxc#optimizer-lookup-type _%t161885%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%t158238%_ + _%t161885%_ 'gxc#!lambda::t)) - (_%__lambda-type158139%_ _%t158238%_) + (_%__lambda-type161786%_ _%t161885%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t158238%_ + _%t161885%_ 'gxc#!kw-lambda::t)) - (_%__kw-lambda-type158141%_ _%t158238%_) + (_%__kw-lambda-type161788%_ _%t161885%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t158238%_ + _%t161885%_ 'gxc#!kw-lambda-primary::t)) - (_%__kw-lambda-primary-type158143%_ - _%t158238%_) + (_%__kw-lambda-primary-type161790%_ + _%t161885%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t158238%_ + _%t161885%_ 'gxc#!procedure::t)) (cons 'procedure - (let ((_%t158245%_ _%t158238%_)) + (let ((_%t161892%_ _%t161885%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%t158245%_ + _%t161892%_ '2 '#f '#f)) - (let ((__tmp161078 + (let ((__tmp164720 (let () (declare (not safe)) (##unchecked-structure-ref - _%t158245%_ + _%t161892%_ '2 '#f '#f)))) (declare (not safe)) (##unchecked-structure-ref - __tmp161078 + __tmp164720 '1 '#f '#f)) @@ -3332,31 +3308,31 @@ (if (let () (declare (not safe)) (##structure-instance-of? - _%t158238%_ + _%t161885%_ 'gxc#!type::t)) (let () (declare (not safe)) (##unchecked-structure-ref - _%t158238%_ + _%t161885%_ '1 '#f '#f)) '#f)))))))) - (_%lambda-type158138%_ - (lambda (_%t158226%_) - (let ((_%t158229%_ _%t158226%_)) - (_%__lambda-type158139%_ _%t158229%_)))) - (_%__lambda-type158139%_ - (lambda (_%t158214%_) - (let ((_%t158217%_ _%t158214%_)) + (_%lambda-type161785%_ + (lambda (_%t161873%_) + (let ((_%t161876%_ _%t161873%_)) + (_%__lambda-type161786%_ _%t161876%_)))) + (_%__lambda-type161786%_ + (lambda (_%t161861%_) + (let ((_%t161864%_ _%t161861%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%t158217%_ '4 '#f '#f)) - (_%type-e158137%_ + (##unchecked-structure-ref _%t161864%_ '4 '#f '#f)) + (_%type-e161784%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t158217%_ + _%t161864%_ '4 '#f '#f))) @@ -3364,56 +3340,56 @@ (if (let () (declare (not safe)) (##unchecked-structure-ref - _%t158217%_ + _%t161864%_ '2 '#f '#f)) - (let ((__tmp161079 + (let ((__tmp164721 (let () (declare (not safe)) (##unchecked-structure-ref - _%t158217%_ + _%t161864%_ '2 '#f '#f)))) (declare (not safe)) (##unchecked-structure-ref - __tmp161079 + __tmp164721 '1 '#f '#f)) '#f)))))) - (_%kw-lambda-type158140%_ - (lambda (_%t158202%_) - (let ((_%t158205%_ _%t158202%_)) - (_%__kw-lambda-type158141%_ _%t158205%_)))) - (_%__kw-lambda-type158141%_ - (lambda (_%t158190%_) - (let ((_%t158193%_ _%t158190%_)) - (_%type-e158137%_ + (_%kw-lambda-type161787%_ + (lambda (_%t161849%_) + (let ((_%t161852%_ _%t161849%_)) + (_%__kw-lambda-type161788%_ _%t161852%_)))) + (_%__kw-lambda-type161788%_ + (lambda (_%t161837%_) + (let ((_%t161840%_ _%t161837%_)) + (_%type-e161784%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t158193%_ + _%t161840%_ '4 '#f '#f)))))) - (_%kw-lambda-primary-type158142%_ - (lambda (_%t158178%_) - (let ((_%t158181%_ _%t158178%_)) - (_%__kw-lambda-primary-type158143%_ _%t158181%_)))) - (_%__kw-lambda-primary-type158143%_ - (lambda (_%t158164%_) - (let ((_%t158167%_ _%t158164%_)) - (_%type-e158137%_ + (_%kw-lambda-primary-type161789%_ + (lambda (_%t161825%_) + (let ((_%t161828%_ _%t161825%_)) + (_%__kw-lambda-primary-type161790%_ _%t161828%_)))) + (_%__kw-lambda-primary-type161790%_ + (lambda (_%t161811%_) + (let ((_%t161814%_ _%t161811%_)) + (_%type-e161784%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t158167%_ + _%t161814%_ '4 '#f '#f))))))) - (let* ((_%ht1158145%_ + (let* ((_%ht1161792%_ (##structure-ref (let () (declare (not safe)) @@ -3421,33 +3397,33 @@ '1 gxc#optimizer-info::t '#f)) - (_%ht2158147%_ + (_%ht2161794%_ (let () (declare (not safe)) (gxc#current-compile-local-type))) - (_%result158149%_ - (if _%ht1158145%_ - (let () (declare (not safe)) (hash->list _%ht1158145%_)) + (_%result161796%_ + (if _%ht1161792%_ + (let () (declare (not safe)) (hash->list _%ht1161792%_)) '())) - (_%result158151%_ - (if _%ht2158147%_ - (let ((__tmp161080 + (_%result161798%_ + (if _%ht2161794%_ + (let ((__tmp164722 (let () (declare (not safe)) - (hash->list _%ht2158147%_)))) + (hash->list _%ht2161794%_)))) (declare (not safe)) - (__foldl1 cons _%result158149%_ __tmp161080)) - _%result158149%_))) + (__foldl1 cons _%result161796%_ __tmp164722)) + _%result161796%_))) (for-each - (lambda (_%p158154%_) - (let* ((_%t158156%_ (cdr _%p158154%_)) - (_%tr158158%_ (_%type-e158137%_ _%t158156%_))) - (set-cdr! _%p158154%_ _%tr158158%_))) - _%result158151%_) + (lambda (_%p161801%_) + (let* ((_%t161803%_ (cdr _%p161801%_)) + (_%tr161805%_ (_%type-e161784%_ _%t161803%_))) + (set-cdr! _%p161801%_ _%tr161805%_))) + _%result161798%_) (list-sort - (lambda (_%a158161%_ _%b158162%_) - (let ((__tmp161082 (symbol->string (car _%a158161%_))) - (__tmp161081 (symbol->string (car _%b158162%_)))) + (lambda (_%a161808%_ _%b161809%_) + (let ((__tmp164724 (symbol->string (car _%a161808%_))) + (__tmp164723 (symbol->string (car _%b161809%_)))) (declare (not safe)) - (##string>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj160973 __tmp161232 '15 '#f '#f)) - (let ((__tmp161244 - (cons (cons 'super |gxc[1]#_g161245_|) - (cons (cons 'precedence-list |gxc[1]#_g161246_|) - (cons (cons 'slots |gxc[1]#_g161247_|) - (cons (cons 'fields |gxc[1]#_g161248_|) + (##unchecked-structure-set! __obj164615 __tmp164874 '15 '#f '#f)) + (let ((__tmp164886 + (cons (cons 'super |gxc[1]#_g164887_|) + (cons (cons 'precedence-list |gxc[1]#_g164888_|) + (cons (cons 'slots |gxc[1]#_g164889_|) + (cons (cons 'fields |gxc[1]#_g164890_|) (cons (cons 'constructor - |gxc[1]#_g161249_|) + |gxc[1]#_g164891_|) (cons (cons 'struct? - |gxc[1]#_g161250_|) + |gxc[1]#_g164892_|) (cons (cons 'final? - |gxc[1]#_g161251_|) + |gxc[1]#_g164893_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g161252_|) - (cons (cons 'metaclass |gxc[1]#_g161253_|) - (cons (cons 'methods |gxc[1]#_g161254_|) - (cons (cons 'id |gxc[1]#_g161255_|) + |gxc[1]#_g164894_|) + (cons (cons 'metaclass |gxc[1]#_g164895_|) + (cons (cons 'methods |gxc[1]#_g164896_|) + (cons (cons 'id |gxc[1]#_g164897_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj160973 __tmp161244 '16 '#f '#f)) - (let ((__tmp161256 - (cons (cons 'super |gxc[1]#_g161257_|) - (cons (cons 'precedence-list |gxc[1]#_g161258_|) - (cons (cons 'slots |gxc[1]#_g161259_|) - (cons (cons 'fields |gxc[1]#_g161260_|) + (##unchecked-structure-set! __obj164615 __tmp164886 '16 '#f '#f)) + (let ((__tmp164898 + (cons (cons 'super |gxc[1]#_g164899_|) + (cons (cons 'precedence-list |gxc[1]#_g164900_|) + (cons (cons 'slots |gxc[1]#_g164901_|) + (cons (cons 'fields |gxc[1]#_g164902_|) (cons (cons 'constructor - |gxc[1]#_g161261_|) + |gxc[1]#_g164903_|) (cons (cons 'struct? - |gxc[1]#_g161262_|) + |gxc[1]#_g164904_|) (cons (cons 'final? - |gxc[1]#_g161263_|) + |gxc[1]#_g164905_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g161264_|) - (cons (cons 'metaclass |gxc[1]#_g161265_|) - (cons (cons 'methods |gxc[1]#_g161266_|) - (cons (cons 'id |gxc[1]#_g161267_|) + |gxc[1]#_g164906_|) + (cons (cons 'metaclass |gxc[1]#_g164907_|) + (cons (cons 'methods |gxc[1]#_g164908_|) + (cons (cons 'id |gxc[1]#_g164909_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj160973 __tmp161256 '17 '#f '#f)) - (let ((__tmp161268 - (cons (cons 'super |gxc[1]#_g161269_|) - (cons (cons 'precedence-list |gxc[1]#_g161270_|) - (cons (cons 'slots |gxc[1]#_g161271_|) - (cons (cons 'fields |gxc[1]#_g161272_|) + (##unchecked-structure-set! __obj164615 __tmp164898 '17 '#f '#f)) + (let ((__tmp164910 + (cons (cons 'super |gxc[1]#_g164911_|) + (cons (cons 'precedence-list |gxc[1]#_g164912_|) + (cons (cons 'slots |gxc[1]#_g164913_|) + (cons (cons 'fields |gxc[1]#_g164914_|) (cons (cons 'constructor - |gxc[1]#_g161273_|) + |gxc[1]#_g164915_|) (cons (cons 'struct? - |gxc[1]#_g161274_|) + |gxc[1]#_g164916_|) (cons (cons 'final? - |gxc[1]#_g161275_|) + |gxc[1]#_g164917_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g161276_|) - (cons (cons 'metaclass |gxc[1]#_g161277_|) - (cons (cons 'methods |gxc[1]#_g161278_|) - (cons (cons 'id |gxc[1]#_g161279_|) + |gxc[1]#_g164918_|) + (cons (cons 'metaclass |gxc[1]#_g164919_|) + (cons (cons 'methods |gxc[1]#_g164920_|) + (cons (cons 'id |gxc[1]#_g164921_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj160973 __tmp161268 '18 '#f '#f)) + (##unchecked-structure-set! __obj164615 __tmp164910 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160973 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj164615 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160973 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj164615 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160973 '() '20 '#f '#f)) - __obj160973)) + (##unchecked-structure-set! __obj164615 '() '20 '#f '#f)) + __obj164615)) (define |gxc[:0:]#!predicate| - (let ((__obj160974 + (let ((__obj164616 (let () (declare (not safe)) (##structure @@ -3325,76 +3325,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160974 + __obj164616 'gxc#!predicate::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160974 '!predicate '2 '#f '#f)) + (##unchecked-structure-set! __obj164616 '!predicate '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160974 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj164616 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160974 '(id signature) '6 '#f '#f)) - (let ((__tmp161280 (cons |gxc[1]#_g161281_| '()))) + (##unchecked-structure-set! __obj164616 '(id signature) '7 '#f '#f)) + (let ((__tmp164922 (cons |gxc[1]#_g164923_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj160974 __tmp161280 '3 '#f '#f)) + (##unchecked-structure-set! __obj164616 __tmp164922 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160974 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj164616 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160974 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj164616 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160974 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj164616 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160974 ':init! '11 '#f '#f)) - (let ((__tmp161282 |gxc[1]#_g161283_|)) + (##unchecked-structure-set! __obj164616 ':init! '12 '#f '#f)) + (let ((__tmp164924 |gxc[1]#_g164925_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160974 __tmp161282 '12 '#f '#f)) - (let ((__tmp161284 |gxc[1]#_g161285_|)) + (##unchecked-structure-set! __obj164616 __tmp164924 '3 '#f '#f)) + (let ((__tmp164926 |gxc[1]#_g164927_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160974 __tmp161284 '13 '#f '#f)) - (let ((__tmp161286 |gxc[1]#_g161287_|)) + (##unchecked-structure-set! __obj164616 __tmp164926 '13 '#f '#f)) + (let ((__tmp164928 |gxc[1]#_g164929_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160974 __tmp161286 '14 '#f '#f)) - (let ((__tmp161288 - (cons (cons 'signature |gxc[1]#_g161289_|) - (cons (cons 'id |gxc[1]#_g161290_|) '())))) + (##unchecked-structure-set! __obj164616 __tmp164928 '14 '#f '#f)) + (let ((__tmp164930 + (cons (cons 'signature |gxc[1]#_g164931_|) + (cons (cons 'id |gxc[1]#_g164932_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj160974 __tmp161288 '15 '#f '#f)) - (let ((__tmp161291 - (cons (cons 'signature |gxc[1]#_g161292_|) - (cons (cons 'id |gxc[1]#_g161293_|) '())))) + (##unchecked-structure-set! __obj164616 __tmp164930 '15 '#f '#f)) + (let ((__tmp164933 + (cons (cons 'signature |gxc[1]#_g164934_|) + (cons (cons 'id |gxc[1]#_g164935_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj160974 __tmp161291 '16 '#f '#f)) - (let ((__tmp161294 - (cons (cons 'signature |gxc[1]#_g161295_|) - (cons (cons 'id |gxc[1]#_g161296_|) '())))) + (##unchecked-structure-set! __obj164616 __tmp164933 '16 '#f '#f)) + (let ((__tmp164936 + (cons (cons 'signature |gxc[1]#_g164937_|) + (cons (cons 'id |gxc[1]#_g164938_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj160974 __tmp161294 '17 '#f '#f)) - (let ((__tmp161297 - (cons (cons 'signature |gxc[1]#_g161298_|) - (cons (cons 'id |gxc[1]#_g161299_|) '())))) + (##unchecked-structure-set! __obj164616 __tmp164936 '17 '#f '#f)) + (let ((__tmp164939 + (cons (cons 'signature |gxc[1]#_g164940_|) + (cons (cons 'id |gxc[1]#_g164941_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj160974 __tmp161297 '18 '#f '#f)) - (let ((__tmp161300 (cons (cons 'signature |gxc[1]#_g161204_|) '()))) + (##unchecked-structure-set! __obj164616 __tmp164939 '18 '#f '#f)) + (let ((__tmp164942 (cons (cons 'signature |gxc[1]#_g164846_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj160974 __tmp161300 '19 '#f '#f)) + (##unchecked-structure-set! __obj164616 __tmp164942 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160974 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj164616 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160974 '() '20 '#f '#f)) - __obj160974)) + (##unchecked-structure-set! __obj164616 '() '20 '#f '#f)) + __obj164616)) (define |gxc[:0:]#!constructor| - (let ((__obj160975 + (let ((__obj164617 (let () (declare (not safe)) (##structure @@ -3423,76 +3423,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160975 + __obj164617 'gxc#!constructor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160975 '!constructor '2 '#f '#f)) + (##unchecked-structure-set! __obj164617 '!constructor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160975 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj164617 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160975 '(id signature) '6 '#f '#f)) - (let ((__tmp161301 (cons |gxc[1]#_g161281_| '()))) + (##unchecked-structure-set! __obj164617 '(id signature) '7 '#f '#f)) + (let ((__tmp164943 (cons |gxc[1]#_g164923_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj160975 __tmp161301 '3 '#f '#f)) + (##unchecked-structure-set! __obj164617 __tmp164943 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160975 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj164617 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160975 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj164617 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160975 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj164617 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160975 ':init! '11 '#f '#f)) - (let ((__tmp161302 |gxc[1]#_g161303_|)) + (##unchecked-structure-set! __obj164617 ':init! '12 '#f '#f)) + (let ((__tmp164944 |gxc[1]#_g164945_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160975 __tmp161302 '12 '#f '#f)) - (let ((__tmp161304 |gxc[1]#_g161305_|)) + (##unchecked-structure-set! __obj164617 __tmp164944 '3 '#f '#f)) + (let ((__tmp164946 |gxc[1]#_g164947_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160975 __tmp161304 '13 '#f '#f)) - (let ((__tmp161306 |gxc[1]#_g161307_|)) + (##unchecked-structure-set! __obj164617 __tmp164946 '13 '#f '#f)) + (let ((__tmp164948 |gxc[1]#_g164949_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160975 __tmp161306 '14 '#f '#f)) - (let ((__tmp161308 - (cons (cons 'signature |gxc[1]#_g161309_|) - (cons (cons 'id |gxc[1]#_g161310_|) '())))) + (##unchecked-structure-set! __obj164617 __tmp164948 '14 '#f '#f)) + (let ((__tmp164950 + (cons (cons 'signature |gxc[1]#_g164951_|) + (cons (cons 'id |gxc[1]#_g164952_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj160975 __tmp161308 '15 '#f '#f)) - (let ((__tmp161311 - (cons (cons 'signature |gxc[1]#_g161312_|) - (cons (cons 'id |gxc[1]#_g161313_|) '())))) + (##unchecked-structure-set! __obj164617 __tmp164950 '15 '#f '#f)) + (let ((__tmp164953 + (cons (cons 'signature |gxc[1]#_g164954_|) + (cons (cons 'id |gxc[1]#_g164955_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj160975 __tmp161311 '16 '#f '#f)) - (let ((__tmp161314 - (cons (cons 'signature |gxc[1]#_g161315_|) - (cons (cons 'id |gxc[1]#_g161316_|) '())))) + (##unchecked-structure-set! __obj164617 __tmp164953 '16 '#f '#f)) + (let ((__tmp164956 + (cons (cons 'signature |gxc[1]#_g164957_|) + (cons (cons 'id |gxc[1]#_g164958_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj160975 __tmp161314 '17 '#f '#f)) - (let ((__tmp161317 - (cons (cons 'signature |gxc[1]#_g161318_|) - (cons (cons 'id |gxc[1]#_g161319_|) '())))) + (##unchecked-structure-set! __obj164617 __tmp164956 '17 '#f '#f)) + (let ((__tmp164959 + (cons (cons 'signature |gxc[1]#_g164960_|) + (cons (cons 'id |gxc[1]#_g164961_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj160975 __tmp161317 '18 '#f '#f)) - (let ((__tmp161320 (cons (cons 'signature |gxc[1]#_g161204_|) '()))) + (##unchecked-structure-set! __obj164617 __tmp164959 '18 '#f '#f)) + (let ((__tmp164962 (cons (cons 'signature |gxc[1]#_g164846_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj160975 __tmp161320 '19 '#f '#f)) + (##unchecked-structure-set! __obj164617 __tmp164962 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160975 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj164617 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160975 '() '20 '#f '#f)) - __obj160975)) + (##unchecked-structure-set! __obj164617 '() '20 '#f '#f)) + __obj164617)) (define |gxc[:0:]#!accessor| - (let ((__obj160976 + (let ((__obj164618 (let () (declare (not safe)) (##structure @@ -3521,89 +3521,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160976 + __obj164618 'gxc#!accessor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160976 '!accessor '2 '#f '#f)) + (##unchecked-structure-set! __obj164618 '!accessor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160976 '(slot checked?) '4 '#f '#f)) + (##unchecked-structure-set! __obj164618 '(slot checked?) '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj160976 + __obj164618 '(id signature slot checked?) - '6 + '7 '#f '#f)) - (let ((__tmp161321 (cons |gxc[1]#_g161281_| '()))) + (let ((__tmp164963 (cons |gxc[1]#_g164923_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj160976 __tmp161321 '3 '#f '#f)) + (##unchecked-structure-set! __obj164618 __tmp164963 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160976 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj164618 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160976 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj164618 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160976 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj164618 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160976 ':init! '11 '#f '#f)) - (let ((__tmp161322 |gxc[1]#_g161323_|)) + (##unchecked-structure-set! __obj164618 ':init! '12 '#f '#f)) + (let ((__tmp164964 |gxc[1]#_g164965_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160976 __tmp161322 '12 '#f '#f)) - (let ((__tmp161324 |gxc[1]#_g161325_|)) + (##unchecked-structure-set! __obj164618 __tmp164964 '3 '#f '#f)) + (let ((__tmp164966 |gxc[1]#_g164967_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160976 __tmp161324 '13 '#f '#f)) - (let ((__tmp161326 |gxc[1]#_g161327_|)) + (##unchecked-structure-set! __obj164618 __tmp164966 '13 '#f '#f)) + (let ((__tmp164968 |gxc[1]#_g164969_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160976 __tmp161326 '14 '#f '#f)) - (let ((__tmp161328 - (cons (cons 'slot |gxc[1]#_g161329_|) - (cons (cons 'checked? |gxc[1]#_g161330_|) - (cons (cons 'signature |gxc[1]#_g161331_|) - (cons (cons 'id |gxc[1]#_g161332_|) '())))))) + (##unchecked-structure-set! __obj164618 __tmp164968 '14 '#f '#f)) + (let ((__tmp164970 + (cons (cons 'slot |gxc[1]#_g164971_|) + (cons (cons 'checked? |gxc[1]#_g164972_|) + (cons (cons 'signature |gxc[1]#_g164973_|) + (cons (cons 'id |gxc[1]#_g164974_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj160976 __tmp161328 '15 '#f '#f)) - (let ((__tmp161333 - (cons (cons 'slot |gxc[1]#_g161334_|) - (cons (cons 'checked? |gxc[1]#_g161335_|) - (cons (cons 'signature |gxc[1]#_g161336_|) - (cons (cons 'id |gxc[1]#_g161337_|) '())))))) + (##unchecked-structure-set! __obj164618 __tmp164970 '15 '#f '#f)) + (let ((__tmp164975 + (cons (cons 'slot |gxc[1]#_g164976_|) + (cons (cons 'checked? |gxc[1]#_g164977_|) + (cons (cons 'signature |gxc[1]#_g164978_|) + (cons (cons 'id |gxc[1]#_g164979_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj160976 __tmp161333 '16 '#f '#f)) - (let ((__tmp161338 - (cons (cons 'slot |gxc[1]#_g161339_|) - (cons (cons 'checked? |gxc[1]#_g161340_|) - (cons (cons 'signature |gxc[1]#_g161341_|) - (cons (cons 'id |gxc[1]#_g161342_|) '())))))) + (##unchecked-structure-set! __obj164618 __tmp164975 '16 '#f '#f)) + (let ((__tmp164980 + (cons (cons 'slot |gxc[1]#_g164981_|) + (cons (cons 'checked? |gxc[1]#_g164982_|) + (cons (cons 'signature |gxc[1]#_g164983_|) + (cons (cons 'id |gxc[1]#_g164984_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj160976 __tmp161338 '17 '#f '#f)) - (let ((__tmp161343 - (cons (cons 'slot |gxc[1]#_g161344_|) - (cons (cons 'checked? |gxc[1]#_g161345_|) - (cons (cons 'signature |gxc[1]#_g161346_|) - (cons (cons 'id |gxc[1]#_g161347_|) '())))))) + (##unchecked-structure-set! __obj164618 __tmp164980 '17 '#f '#f)) + (let ((__tmp164985 + (cons (cons 'slot |gxc[1]#_g164986_|) + (cons (cons 'checked? |gxc[1]#_g164987_|) + (cons (cons 'signature |gxc[1]#_g164988_|) + (cons (cons 'id |gxc[1]#_g164989_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj160976 __tmp161343 '18 '#f '#f)) - (let ((__tmp161348 (cons (cons 'signature |gxc[1]#_g161204_|) '()))) + (##unchecked-structure-set! __obj164618 __tmp164985 '18 '#f '#f)) + (let ((__tmp164990 (cons (cons 'signature |gxc[1]#_g164846_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj160976 __tmp161348 '19 '#f '#f)) + (##unchecked-structure-set! __obj164618 __tmp164990 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160976 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj164618 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160976 '() '20 '#f '#f)) - __obj160976)) + (##unchecked-structure-set! __obj164618 '() '20 '#f '#f)) + __obj164618)) (define |gxc[:0:]#!mutator| - (let ((__obj160977 + (let ((__obj164619 (let () (declare (not safe)) (##structure @@ -3631,85 +3631,85 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160977 'gxc#!mutator::t '1 '#f '#f)) + (##unchecked-structure-set! __obj164619 'gxc#!mutator::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160977 '!mutator '2 '#f '#f)) + (##unchecked-structure-set! __obj164619 '!mutator '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160977 '(slot checked?) '4 '#f '#f)) + (##unchecked-structure-set! __obj164619 '(slot checked?) '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj160977 + __obj164619 '(id signature slot checked?) - '6 + '7 '#f '#f)) - (let ((__tmp161349 (cons |gxc[1]#_g161281_| '()))) + (let ((__tmp164991 (cons |gxc[1]#_g164923_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj160977 __tmp161349 '3 '#f '#f)) + (##unchecked-structure-set! __obj164619 __tmp164991 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160977 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj164619 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160977 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj164619 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160977 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj164619 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160977 ':init! '11 '#f '#f)) - (let ((__tmp161350 |gxc[1]#_g161351_|)) + (##unchecked-structure-set! __obj164619 ':init! '12 '#f '#f)) + (let ((__tmp164992 |gxc[1]#_g164993_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160977 __tmp161350 '12 '#f '#f)) - (let ((__tmp161352 |gxc[1]#_g161353_|)) + (##unchecked-structure-set! __obj164619 __tmp164992 '3 '#f '#f)) + (let ((__tmp164994 |gxc[1]#_g164995_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160977 __tmp161352 '13 '#f '#f)) - (let ((__tmp161354 |gxc[1]#_g161355_|)) + (##unchecked-structure-set! __obj164619 __tmp164994 '13 '#f '#f)) + (let ((__tmp164996 |gxc[1]#_g164997_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160977 __tmp161354 '14 '#f '#f)) - (let ((__tmp161356 - (cons (cons 'slot |gxc[1]#_g161357_|) - (cons (cons 'checked? |gxc[1]#_g161358_|) - (cons (cons 'signature |gxc[1]#_g161359_|) - (cons (cons 'id |gxc[1]#_g161360_|) '())))))) + (##unchecked-structure-set! __obj164619 __tmp164996 '14 '#f '#f)) + (let ((__tmp164998 + (cons (cons 'slot |gxc[1]#_g164999_|) + (cons (cons 'checked? |gxc[1]#_g165000_|) + (cons (cons 'signature |gxc[1]#_g165001_|) + (cons (cons 'id |gxc[1]#_g165002_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj160977 __tmp161356 '15 '#f '#f)) - (let ((__tmp161361 - (cons (cons 'slot |gxc[1]#_g161362_|) - (cons (cons 'checked? |gxc[1]#_g161363_|) - (cons (cons 'signature |gxc[1]#_g161364_|) - (cons (cons 'id |gxc[1]#_g161365_|) '())))))) + (##unchecked-structure-set! __obj164619 __tmp164998 '15 '#f '#f)) + (let ((__tmp165003 + (cons (cons 'slot |gxc[1]#_g165004_|) + (cons (cons 'checked? |gxc[1]#_g165005_|) + (cons (cons 'signature |gxc[1]#_g165006_|) + (cons (cons 'id |gxc[1]#_g165007_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj160977 __tmp161361 '16 '#f '#f)) - (let ((__tmp161366 - (cons (cons 'slot |gxc[1]#_g161367_|) - (cons (cons 'checked? |gxc[1]#_g161368_|) - (cons (cons 'signature |gxc[1]#_g161369_|) - (cons (cons 'id |gxc[1]#_g161370_|) '())))))) + (##unchecked-structure-set! __obj164619 __tmp165003 '16 '#f '#f)) + (let ((__tmp165008 + (cons (cons 'slot |gxc[1]#_g165009_|) + (cons (cons 'checked? |gxc[1]#_g165010_|) + (cons (cons 'signature |gxc[1]#_g165011_|) + (cons (cons 'id |gxc[1]#_g165012_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj160977 __tmp161366 '17 '#f '#f)) - (let ((__tmp161371 - (cons (cons 'slot |gxc[1]#_g161372_|) - (cons (cons 'checked? |gxc[1]#_g161373_|) - (cons (cons 'signature |gxc[1]#_g161374_|) - (cons (cons 'id |gxc[1]#_g161375_|) '())))))) + (##unchecked-structure-set! __obj164619 __tmp165008 '17 '#f '#f)) + (let ((__tmp165013 + (cons (cons 'slot |gxc[1]#_g165014_|) + (cons (cons 'checked? |gxc[1]#_g165015_|) + (cons (cons 'signature |gxc[1]#_g165016_|) + (cons (cons 'id |gxc[1]#_g165017_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj160977 __tmp161371 '18 '#f '#f)) - (let ((__tmp161376 (cons (cons 'signature |gxc[1]#_g161204_|) '()))) + (##unchecked-structure-set! __obj164619 __tmp165013 '18 '#f '#f)) + (let ((__tmp165018 (cons (cons 'signature |gxc[1]#_g164846_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj160977 __tmp161376 '19 '#f '#f)) + (##unchecked-structure-set! __obj164619 __tmp165018 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160977 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj164619 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160977 '() '20 '#f '#f)) - __obj160977)) + (##unchecked-structure-set! __obj164619 '() '20 '#f '#f)) + __obj164619)) (define |gxc[:0:]#!interface| - (let ((__obj160978 + (let ((__obj164620 (let () (declare (not safe)) (##structure @@ -3738,76 +3738,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160978 + __obj164620 'gxc#!interface::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160978 '!interface '2 '#f '#f)) + (##unchecked-structure-set! __obj164620 '!interface '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160978 '(methods) '4 '#f '#f)) + (##unchecked-structure-set! __obj164620 '(methods) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160978 '(id methods) '6 '#f '#f)) - (let ((__tmp161377 (cons |gxc[1]#_g161124_| '()))) + (##unchecked-structure-set! __obj164620 '(id methods) '7 '#f '#f)) + (let ((__tmp165019 (cons |gxc[1]#_g164766_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj160978 __tmp161377 '3 '#f '#f)) + (##unchecked-structure-set! __obj164620 __tmp165019 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160978 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj164620 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160978 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj164620 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160978 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj164620 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160978 '#f '11 '#f '#f)) - (let ((__tmp161378 |gxc[1]#_g161379_|)) + (##unchecked-structure-set! __obj164620 '#f '12 '#f '#f)) + (let ((__tmp165020 |gxc[1]#_g165021_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160978 __tmp161378 '12 '#f '#f)) - (let ((__tmp161380 |gxc[1]#_g161381_|)) + (##unchecked-structure-set! __obj164620 __tmp165020 '3 '#f '#f)) + (let ((__tmp165022 |gxc[1]#_g165023_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160978 __tmp161380 '13 '#f '#f)) - (let ((__tmp161382 |gxc[1]#_g161383_|)) + (##unchecked-structure-set! __obj164620 __tmp165022 '13 '#f '#f)) + (let ((__tmp165024 |gxc[1]#_g165025_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160978 __tmp161382 '14 '#f '#f)) - (let ((__tmp161384 - (cons (cons 'methods |gxc[1]#_g161385_|) - (cons (cons 'id |gxc[1]#_g161386_|) '())))) + (##unchecked-structure-set! __obj164620 __tmp165024 '14 '#f '#f)) + (let ((__tmp165026 + (cons (cons 'methods |gxc[1]#_g165027_|) + (cons (cons 'id |gxc[1]#_g165028_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj160978 __tmp161384 '15 '#f '#f)) - (let ((__tmp161387 - (cons (cons 'methods |gxc[1]#_g161388_|) - (cons (cons 'id |gxc[1]#_g161389_|) '())))) + (##unchecked-structure-set! __obj164620 __tmp165026 '15 '#f '#f)) + (let ((__tmp165029 + (cons (cons 'methods |gxc[1]#_g165030_|) + (cons (cons 'id |gxc[1]#_g165031_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj160978 __tmp161387 '16 '#f '#f)) - (let ((__tmp161390 - (cons (cons 'methods |gxc[1]#_g161391_|) - (cons (cons 'id |gxc[1]#_g161392_|) '())))) + (##unchecked-structure-set! __obj164620 __tmp165029 '16 '#f '#f)) + (let ((__tmp165032 + (cons (cons 'methods |gxc[1]#_g165033_|) + (cons (cons 'id |gxc[1]#_g165034_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj160978 __tmp161390 '17 '#f '#f)) - (let ((__tmp161393 - (cons (cons 'methods |gxc[1]#_g161394_|) - (cons (cons 'id |gxc[1]#_g161395_|) '())))) + (##unchecked-structure-set! __obj164620 __tmp165032 '17 '#f '#f)) + (let ((__tmp165035 + (cons (cons 'methods |gxc[1]#_g165036_|) + (cons (cons 'id |gxc[1]#_g165037_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj160978 __tmp161393 '18 '#f '#f)) + (##unchecked-structure-set! __obj164620 __tmp165035 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160978 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj164620 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160978 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj164620 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160978 '() '20 '#f '#f)) - __obj160978)) + (##unchecked-structure-set! __obj164620 '() '20 '#f '#f)) + __obj164620)) (define |gxc[:0:]#!lambda| - (let ((__obj160979 + (let ((__obj164621 (let () (declare (not safe)) (##structure @@ -3835,114 +3835,114 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160979 'gxc#!lambda::t '1 '#f '#f)) + (##unchecked-structure-set! __obj164621 'gxc#!lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160979 '!lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj164621 '!lambda '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj160979 + __obj164621 '(arity dispatch inline inline-typedecl) - '4 + '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj160979 + __obj164621 '(id signature arity dispatch inline inline-typedecl) - '6 + '7 '#f '#f)) - (let ((__tmp161396 (cons |gxc[1]#_g161281_| '()))) + (let ((__tmp165038 (cons |gxc[1]#_g164923_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj160979 __tmp161396 '3 '#f '#f)) + (##unchecked-structure-set! __obj164621 __tmp165038 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160979 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj164621 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160979 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj164621 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160979 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj164621 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160979 ':init! '11 '#f '#f)) - (let ((__tmp161397 |gxc[1]#_g161398_|)) + (##unchecked-structure-set! __obj164621 ':init! '12 '#f '#f)) + (let ((__tmp165039 |gxc[1]#_g165040_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160979 __tmp161397 '12 '#f '#f)) - (let ((__tmp161399 |gxc[1]#_g161400_|)) + (##unchecked-structure-set! __obj164621 __tmp165039 '3 '#f '#f)) + (let ((__tmp165041 |gxc[1]#_g165042_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160979 __tmp161399 '13 '#f '#f)) - (let ((__tmp161401 |gxc[1]#_g161402_|)) + (##unchecked-structure-set! __obj164621 __tmp165041 '13 '#f '#f)) + (let ((__tmp165043 |gxc[1]#_g165044_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160979 __tmp161401 '14 '#f '#f)) - (let ((__tmp161403 - (cons (cons 'arity |gxc[1]#_g161404_|) - (cons (cons 'dispatch |gxc[1]#_g161405_|) - (cons (cons 'inline |gxc[1]#_g161406_|) + (##unchecked-structure-set! __obj164621 __tmp165043 '14 '#f '#f)) + (let ((__tmp165045 + (cons (cons 'arity |gxc[1]#_g165046_|) + (cons (cons 'dispatch |gxc[1]#_g165047_|) + (cons (cons 'inline |gxc[1]#_g165048_|) (cons (cons 'inline-typedecl - |gxc[1]#_g161407_|) + |gxc[1]#_g165049_|) (cons (cons 'signature - |gxc[1]#_g161408_|) + |gxc[1]#_g165050_|) (cons (cons 'id - |gxc[1]#_g161409_|) + |gxc[1]#_g165051_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj160979 __tmp161403 '15 '#f '#f)) - (let ((__tmp161410 - (cons (cons 'arity |gxc[1]#_g161411_|) - (cons (cons 'dispatch |gxc[1]#_g161412_|) - (cons (cons 'inline |gxc[1]#_g161413_|) + (##unchecked-structure-set! __obj164621 __tmp165045 '15 '#f '#f)) + (let ((__tmp165052 + (cons (cons 'arity |gxc[1]#_g165053_|) + (cons (cons 'dispatch |gxc[1]#_g165054_|) + (cons (cons 'inline |gxc[1]#_g165055_|) (cons (cons 'inline-typedecl - |gxc[1]#_g161414_|) + |gxc[1]#_g165056_|) (cons (cons 'signature - |gxc[1]#_g161415_|) + |gxc[1]#_g165057_|) (cons (cons 'id - |gxc[1]#_g161416_|) + |gxc[1]#_g165058_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj160979 __tmp161410 '16 '#f '#f)) - (let ((__tmp161417 - (cons (cons 'arity |gxc[1]#_g161418_|) - (cons (cons 'dispatch |gxc[1]#_g161419_|) - (cons (cons 'inline |gxc[1]#_g161420_|) + (##unchecked-structure-set! __obj164621 __tmp165052 '16 '#f '#f)) + (let ((__tmp165059 + (cons (cons 'arity |gxc[1]#_g165060_|) + (cons (cons 'dispatch |gxc[1]#_g165061_|) + (cons (cons 'inline |gxc[1]#_g165062_|) (cons (cons 'inline-typedecl - |gxc[1]#_g161421_|) + |gxc[1]#_g165063_|) (cons (cons 'signature - |gxc[1]#_g161422_|) + |gxc[1]#_g165064_|) (cons (cons 'id - |gxc[1]#_g161423_|) + |gxc[1]#_g165065_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj160979 __tmp161417 '17 '#f '#f)) - (let ((__tmp161424 - (cons (cons 'arity |gxc[1]#_g161425_|) - (cons (cons 'dispatch |gxc[1]#_g161426_|) - (cons (cons 'inline |gxc[1]#_g161427_|) + (##unchecked-structure-set! __obj164621 __tmp165059 '17 '#f '#f)) + (let ((__tmp165066 + (cons (cons 'arity |gxc[1]#_g165067_|) + (cons (cons 'dispatch |gxc[1]#_g165068_|) + (cons (cons 'inline |gxc[1]#_g165069_|) (cons (cons 'inline-typedecl - |gxc[1]#_g161428_|) + |gxc[1]#_g165070_|) (cons (cons 'signature - |gxc[1]#_g161429_|) + |gxc[1]#_g165071_|) (cons (cons 'id - |gxc[1]#_g161430_|) + |gxc[1]#_g165072_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj160979 __tmp161424 '18 '#f '#f)) - (let ((__tmp161431 (cons (cons 'signature |gxc[1]#_g161204_|) '()))) + (##unchecked-structure-set! __obj164621 __tmp165066 '18 '#f '#f)) + (let ((__tmp165073 (cons (cons 'signature |gxc[1]#_g164846_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj160979 __tmp161431 '19 '#f '#f)) + (##unchecked-structure-set! __obj164621 __tmp165073 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160979 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj164621 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160979 '() '20 '#f '#f)) - __obj160979)) + (##unchecked-structure-set! __obj164621 '() '20 '#f '#f)) + __obj164621)) (define |gxc[:0:]#!case-lambda| - (let ((__obj160980 + (let ((__obj164622 (let () (declare (not safe)) (##structure @@ -3971,85 +3971,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160980 + __obj164622 'gxc#!case-lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160980 '!case-lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj164622 '!case-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160980 '(clauses) '4 '#f '#f)) + (##unchecked-structure-set! __obj164622 '(clauses) '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj160980 + __obj164622 '(id signature clauses) - '6 + '7 '#f '#f)) - (let ((__tmp161432 (cons |gxc[1]#_g161281_| '()))) + (let ((__tmp165074 (cons |gxc[1]#_g164923_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj160980 __tmp161432 '3 '#f '#f)) + (##unchecked-structure-set! __obj164622 __tmp165074 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160980 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj164622 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160980 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj164622 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160980 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj164622 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160980 ':init! '11 '#f '#f)) - (let ((__tmp161433 |gxc[1]#_g161434_|)) + (##unchecked-structure-set! __obj164622 ':init! '12 '#f '#f)) + (let ((__tmp165075 |gxc[1]#_g165076_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160980 __tmp161433 '12 '#f '#f)) - (let ((__tmp161435 |gxc[1]#_g161436_|)) + (##unchecked-structure-set! __obj164622 __tmp165075 '3 '#f '#f)) + (let ((__tmp165077 |gxc[1]#_g165078_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160980 __tmp161435 '13 '#f '#f)) - (let ((__tmp161437 |gxc[1]#_g161438_|)) + (##unchecked-structure-set! __obj164622 __tmp165077 '13 '#f '#f)) + (let ((__tmp165079 |gxc[1]#_g165080_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160980 __tmp161437 '14 '#f '#f)) - (let ((__tmp161439 - (cons (cons 'clauses |gxc[1]#_g161440_|) - (cons (cons 'signature |gxc[1]#_g161441_|) - (cons (cons 'id |gxc[1]#_g161442_|) '()))))) + (##unchecked-structure-set! __obj164622 __tmp165079 '14 '#f '#f)) + (let ((__tmp165081 + (cons (cons 'clauses |gxc[1]#_g165082_|) + (cons (cons 'signature |gxc[1]#_g165083_|) + (cons (cons 'id |gxc[1]#_g165084_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj160980 __tmp161439 '15 '#f '#f)) - (let ((__tmp161443 - (cons (cons 'clauses |gxc[1]#_g161444_|) - (cons (cons 'signature |gxc[1]#_g161445_|) - (cons (cons 'id |gxc[1]#_g161446_|) '()))))) + (##unchecked-structure-set! __obj164622 __tmp165081 '15 '#f '#f)) + (let ((__tmp165085 + (cons (cons 'clauses |gxc[1]#_g165086_|) + (cons (cons 'signature |gxc[1]#_g165087_|) + (cons (cons 'id |gxc[1]#_g165088_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj160980 __tmp161443 '16 '#f '#f)) - (let ((__tmp161447 - (cons (cons 'clauses |gxc[1]#_g161448_|) - (cons (cons 'signature |gxc[1]#_g161449_|) - (cons (cons 'id |gxc[1]#_g161450_|) '()))))) + (##unchecked-structure-set! __obj164622 __tmp165085 '16 '#f '#f)) + (let ((__tmp165089 + (cons (cons 'clauses |gxc[1]#_g165090_|) + (cons (cons 'signature |gxc[1]#_g165091_|) + (cons (cons 'id |gxc[1]#_g165092_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj160980 __tmp161447 '17 '#f '#f)) - (let ((__tmp161451 - (cons (cons 'clauses |gxc[1]#_g161452_|) - (cons (cons 'signature |gxc[1]#_g161453_|) - (cons (cons 'id |gxc[1]#_g161454_|) '()))))) + (##unchecked-structure-set! __obj164622 __tmp165089 '17 '#f '#f)) + (let ((__tmp165093 + (cons (cons 'clauses |gxc[1]#_g165094_|) + (cons (cons 'signature |gxc[1]#_g165095_|) + (cons (cons 'id |gxc[1]#_g165096_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj160980 __tmp161451 '18 '#f '#f)) - (let ((__tmp161455 (cons (cons 'signature |gxc[1]#_g161204_|) '()))) + (##unchecked-structure-set! __obj164622 __tmp165093 '18 '#f '#f)) + (let ((__tmp165097 (cons (cons 'signature |gxc[1]#_g164846_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj160980 __tmp161455 '19 '#f '#f)) + (##unchecked-structure-set! __obj164622 __tmp165097 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160980 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj164622 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160980 '() '20 '#f '#f)) - __obj160980)) + (##unchecked-structure-set! __obj164622 '() '20 '#f '#f)) + __obj164622)) (define |gxc[:0:]#!kw-lambda| - (let ((__obj160981 + (let ((__obj164623 (let () (declare (not safe)) (##structure @@ -4078,94 +4078,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160981 + __obj164623 'gxc#!kw-lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160981 '!kw-lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj164623 '!kw-lambda '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj160981 + __obj164623 '(table dispatch) - '4 + '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj160981 + __obj164623 '(id signature table dispatch) - '6 + '7 '#f '#f)) - (let ((__tmp161456 (cons |gxc[1]#_g161281_| '()))) + (let ((__tmp165098 (cons |gxc[1]#_g164923_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj160981 __tmp161456 '3 '#f '#f)) + (##unchecked-structure-set! __obj164623 __tmp165098 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160981 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj164623 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160981 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj164623 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160981 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj164623 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160981 ':init! '11 '#f '#f)) - (let ((__tmp161457 |gxc[1]#_g161458_|)) + (##unchecked-structure-set! __obj164623 ':init! '12 '#f '#f)) + (let ((__tmp165099 |gxc[1]#_g165100_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160981 __tmp161457 '12 '#f '#f)) - (let ((__tmp161459 |gxc[1]#_g161460_|)) + (##unchecked-structure-set! __obj164623 __tmp165099 '3 '#f '#f)) + (let ((__tmp165101 |gxc[1]#_g165102_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160981 __tmp161459 '13 '#f '#f)) - (let ((__tmp161461 |gxc[1]#_g161462_|)) + (##unchecked-structure-set! __obj164623 __tmp165101 '13 '#f '#f)) + (let ((__tmp165103 |gxc[1]#_g165104_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160981 __tmp161461 '14 '#f '#f)) - (let ((__tmp161463 - (cons (cons 'table |gxc[1]#_g161464_|) - (cons (cons 'dispatch |gxc[1]#_g161465_|) - (cons (cons 'signature |gxc[1]#_g161466_|) - (cons (cons 'id |gxc[1]#_g161467_|) '())))))) + (##unchecked-structure-set! __obj164623 __tmp165103 '14 '#f '#f)) + (let ((__tmp165105 + (cons (cons 'table |gxc[1]#_g165106_|) + (cons (cons 'dispatch |gxc[1]#_g165107_|) + (cons (cons 'signature |gxc[1]#_g165108_|) + (cons (cons 'id |gxc[1]#_g165109_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj160981 __tmp161463 '15 '#f '#f)) - (let ((__tmp161468 - (cons (cons 'table |gxc[1]#_g161469_|) - (cons (cons 'dispatch |gxc[1]#_g161470_|) - (cons (cons 'signature |gxc[1]#_g161471_|) - (cons (cons 'id |gxc[1]#_g161472_|) '())))))) + (##unchecked-structure-set! __obj164623 __tmp165105 '15 '#f '#f)) + (let ((__tmp165110 + (cons (cons 'table |gxc[1]#_g165111_|) + (cons (cons 'dispatch |gxc[1]#_g165112_|) + (cons (cons 'signature |gxc[1]#_g165113_|) + (cons (cons 'id |gxc[1]#_g165114_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj160981 __tmp161468 '16 '#f '#f)) - (let ((__tmp161473 - (cons (cons 'table |gxc[1]#_g161474_|) - (cons (cons 'dispatch |gxc[1]#_g161475_|) - (cons (cons 'signature |gxc[1]#_g161476_|) - (cons (cons 'id |gxc[1]#_g161477_|) '())))))) + (##unchecked-structure-set! __obj164623 __tmp165110 '16 '#f '#f)) + (let ((__tmp165115 + (cons (cons 'table |gxc[1]#_g165116_|) + (cons (cons 'dispatch |gxc[1]#_g165117_|) + (cons (cons 'signature |gxc[1]#_g165118_|) + (cons (cons 'id |gxc[1]#_g165119_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj160981 __tmp161473 '17 '#f '#f)) - (let ((__tmp161478 - (cons (cons 'table |gxc[1]#_g161479_|) - (cons (cons 'dispatch |gxc[1]#_g161480_|) - (cons (cons 'signature |gxc[1]#_g161481_|) - (cons (cons 'id |gxc[1]#_g161482_|) '())))))) + (##unchecked-structure-set! __obj164623 __tmp165115 '17 '#f '#f)) + (let ((__tmp165120 + (cons (cons 'table |gxc[1]#_g165121_|) + (cons (cons 'dispatch |gxc[1]#_g165122_|) + (cons (cons 'signature |gxc[1]#_g165123_|) + (cons (cons 'id |gxc[1]#_g165124_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj160981 __tmp161478 '18 '#f '#f)) - (let ((__tmp161483 (cons (cons 'signature |gxc[1]#_g161204_|) '()))) + (##unchecked-structure-set! __obj164623 __tmp165120 '18 '#f '#f)) + (let ((__tmp165125 (cons (cons 'signature |gxc[1]#_g164846_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj160981 __tmp161483 '19 '#f '#f)) + (##unchecked-structure-set! __obj164623 __tmp165125 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160981 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj164623 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160981 '() '20 '#f '#f)) - __obj160981)) + (##unchecked-structure-set! __obj164623 '() '20 '#f '#f)) + __obj164623)) (define |gxc[:0:]#!kw-lambda-primary| - (let ((__obj160982 + (let ((__obj164624 (let () (declare (not safe)) (##structure @@ -4194,7 +4194,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160982 + __obj164624 'gxc#!kw-lambda-primary::t '1 '#f @@ -4202,86 +4202,86 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160982 + __obj164624 '!kw-lambda-primary '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160982 '(keys main) '4 '#f '#f)) + (##unchecked-structure-set! __obj164624 '(keys main) '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj160982 + __obj164624 '(id signature keys main) - '6 + '7 '#f '#f)) - (let ((__tmp161484 (cons |gxc[1]#_g161281_| '()))) + (let ((__tmp165126 (cons |gxc[1]#_g164923_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj160982 __tmp161484 '3 '#f '#f)) + (##unchecked-structure-set! __obj164624 __tmp165126 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160982 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj164624 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160982 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj164624 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160982 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj164624 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160982 ':init! '11 '#f '#f)) - (let ((__tmp161485 |gxc[1]#_g161486_|)) + (##unchecked-structure-set! __obj164624 ':init! '12 '#f '#f)) + (let ((__tmp165127 |gxc[1]#_g165128_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160982 __tmp161485 '12 '#f '#f)) - (let ((__tmp161487 |gxc[1]#_g161488_|)) + (##unchecked-structure-set! __obj164624 __tmp165127 '3 '#f '#f)) + (let ((__tmp165129 |gxc[1]#_g165130_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160982 __tmp161487 '13 '#f '#f)) - (let ((__tmp161489 |gxc[1]#_g161490_|)) + (##unchecked-structure-set! __obj164624 __tmp165129 '13 '#f '#f)) + (let ((__tmp165131 |gxc[1]#_g165132_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160982 __tmp161489 '14 '#f '#f)) - (let ((__tmp161491 - (cons (cons 'keys |gxc[1]#_g161492_|) - (cons (cons 'main |gxc[1]#_g161493_|) - (cons (cons 'signature |gxc[1]#_g161494_|) - (cons (cons 'id |gxc[1]#_g161495_|) '())))))) + (##unchecked-structure-set! __obj164624 __tmp165131 '14 '#f '#f)) + (let ((__tmp165133 + (cons (cons 'keys |gxc[1]#_g165134_|) + (cons (cons 'main |gxc[1]#_g165135_|) + (cons (cons 'signature |gxc[1]#_g165136_|) + (cons (cons 'id |gxc[1]#_g165137_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj160982 __tmp161491 '15 '#f '#f)) - (let ((__tmp161496 - (cons (cons 'keys |gxc[1]#_g161497_|) - (cons (cons 'main |gxc[1]#_g161498_|) - (cons (cons 'signature |gxc[1]#_g161499_|) - (cons (cons 'id |gxc[1]#_g161500_|) '())))))) + (##unchecked-structure-set! __obj164624 __tmp165133 '15 '#f '#f)) + (let ((__tmp165138 + (cons (cons 'keys |gxc[1]#_g165139_|) + (cons (cons 'main |gxc[1]#_g165140_|) + (cons (cons 'signature |gxc[1]#_g165141_|) + (cons (cons 'id |gxc[1]#_g165142_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj160982 __tmp161496 '16 '#f '#f)) - (let ((__tmp161501 - (cons (cons 'keys |gxc[1]#_g161502_|) - (cons (cons 'main |gxc[1]#_g161503_|) - (cons (cons 'signature |gxc[1]#_g161504_|) - (cons (cons 'id |gxc[1]#_g161505_|) '())))))) + (##unchecked-structure-set! __obj164624 __tmp165138 '16 '#f '#f)) + (let ((__tmp165143 + (cons (cons 'keys |gxc[1]#_g165144_|) + (cons (cons 'main |gxc[1]#_g165145_|) + (cons (cons 'signature |gxc[1]#_g165146_|) + (cons (cons 'id |gxc[1]#_g165147_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj160982 __tmp161501 '17 '#f '#f)) - (let ((__tmp161506 - (cons (cons 'keys |gxc[1]#_g161507_|) - (cons (cons 'main |gxc[1]#_g161508_|) - (cons (cons 'signature |gxc[1]#_g161509_|) - (cons (cons 'id |gxc[1]#_g161510_|) '())))))) + (##unchecked-structure-set! __obj164624 __tmp165143 '17 '#f '#f)) + (let ((__tmp165148 + (cons (cons 'keys |gxc[1]#_g165149_|) + (cons (cons 'main |gxc[1]#_g165150_|) + (cons (cons 'signature |gxc[1]#_g165151_|) + (cons (cons 'id |gxc[1]#_g165152_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj160982 __tmp161506 '18 '#f '#f)) - (let ((__tmp161511 (cons (cons 'signature |gxc[1]#_g161204_|) '()))) + (##unchecked-structure-set! __obj164624 __tmp165148 '18 '#f '#f)) + (let ((__tmp165153 (cons (cons 'signature |gxc[1]#_g164846_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj160982 __tmp161511 '19 '#f '#f)) + (##unchecked-structure-set! __obj164624 __tmp165153 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160982 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj164624 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160982 '() '20 '#f '#f)) - __obj160982)) + (##unchecked-structure-set! __obj164624 '() '20 '#f '#f)) + __obj164624)) (define |gxc[:0:]#!primitive| - (let ((__obj160983 + (let ((__obj164625 (let () (declare (not safe)) (##structure @@ -4310,68 +4310,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160983 + __obj164625 'gxc#!primitive::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160983 '!primitive '2 '#f '#f)) + (##unchecked-structure-set! __obj164625 '!primitive '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160983 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj164625 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160983 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj164625 '() '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160983 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj164625 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160983 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj164625 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160983 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj164625 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160983 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj164625 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160983 '#f '11 '#f '#f)) - (let ((__tmp161512 |gxc[1]#_g161513_|)) + (##unchecked-structure-set! __obj164625 '#f '12 '#f '#f)) + (let ((__tmp165154 |gxc[1]#_g165155_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160983 __tmp161512 '12 '#f '#f)) - (let ((__tmp161514 |gxc[1]#_g161515_|)) + (##unchecked-structure-set! __obj164625 __tmp165154 '3 '#f '#f)) + (let ((__tmp165156 |gxc[1]#_g165157_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160983 __tmp161514 '13 '#f '#f)) - (let ((__tmp161516 |gxc[1]#_g161517_|)) + (##unchecked-structure-set! __obj164625 __tmp165156 '13 '#f '#f)) + (let ((__tmp165158 |gxc[1]#_g165159_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160983 __tmp161516 '14 '#f '#f)) + (##unchecked-structure-set! __obj164625 __tmp165158 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160983 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj164625 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160983 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj164625 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160983 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj164625 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160983 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj164625 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160983 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj164625 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160983 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj164625 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160983 '() '20 '#f '#f)) - __obj160983)) + (##unchecked-structure-set! __obj164625 '() '20 '#f '#f)) + __obj164625)) (define |gxc[:0:]#!primitive-predicate| - (let ((__obj160984 + (let ((__obj164626 (let () (declare (not safe)) (##structure @@ -4400,7 +4400,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160984 + __obj164626 'gxc#!primitive-predicate::t '1 '#f @@ -4408,74 +4408,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160984 + __obj164626 '!primitive-predicate '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160984 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj164626 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160984 '(id signature) '6 '#f '#f)) - (let ((__tmp161518 - (cons |gxc[1]#_g161519_| (cons |gxc[1]#_g161281_| '())))) + (##unchecked-structure-set! __obj164626 '(id signature) '7 '#f '#f)) + (let ((__tmp165160 + (cons |gxc[1]#_g165161_| (cons |gxc[1]#_g164923_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj160984 __tmp161518 '3 '#f '#f)) + (##unchecked-structure-set! __obj164626 __tmp165160 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160984 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj164626 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160984 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj164626 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160984 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj164626 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160984 ':init! '11 '#f '#f)) - (let ((__tmp161520 |gxc[1]#_g161521_|)) + (##unchecked-structure-set! __obj164626 ':init! '12 '#f '#f)) + (let ((__tmp165162 |gxc[1]#_g165163_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160984 __tmp161520 '12 '#f '#f)) - (let ((__tmp161522 |gxc[1]#_g161523_|)) + (##unchecked-structure-set! __obj164626 __tmp165162 '3 '#f '#f)) + (let ((__tmp165164 |gxc[1]#_g165165_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160984 __tmp161522 '13 '#f '#f)) - (let ((__tmp161524 |gxc[1]#_g161525_|)) + (##unchecked-structure-set! __obj164626 __tmp165164 '13 '#f '#f)) + (let ((__tmp165166 |gxc[1]#_g165167_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160984 __tmp161524 '14 '#f '#f)) - (let ((__tmp161526 - (cons (cons 'signature |gxc[1]#_g161527_|) - (cons (cons 'id |gxc[1]#_g161528_|) '())))) + (##unchecked-structure-set! __obj164626 __tmp165166 '14 '#f '#f)) + (let ((__tmp165168 + (cons (cons 'signature |gxc[1]#_g165169_|) + (cons (cons 'id |gxc[1]#_g165170_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj160984 __tmp161526 '15 '#f '#f)) - (let ((__tmp161529 - (cons (cons 'signature |gxc[1]#_g161530_|) - (cons (cons 'id |gxc[1]#_g161531_|) '())))) + (##unchecked-structure-set! __obj164626 __tmp165168 '15 '#f '#f)) + (let ((__tmp165171 + (cons (cons 'signature |gxc[1]#_g165172_|) + (cons (cons 'id |gxc[1]#_g165173_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj160984 __tmp161529 '16 '#f '#f)) - (let ((__tmp161532 - (cons (cons 'signature |gxc[1]#_g161533_|) - (cons (cons 'id |gxc[1]#_g161534_|) '())))) + (##unchecked-structure-set! __obj164626 __tmp165171 '16 '#f '#f)) + (let ((__tmp165174 + (cons (cons 'signature |gxc[1]#_g165175_|) + (cons (cons 'id |gxc[1]#_g165176_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj160984 __tmp161532 '17 '#f '#f)) - (let ((__tmp161535 - (cons (cons 'signature |gxc[1]#_g161536_|) - (cons (cons 'id |gxc[1]#_g161537_|) '())))) + (##unchecked-structure-set! __obj164626 __tmp165174 '17 '#f '#f)) + (let ((__tmp165177 + (cons (cons 'signature |gxc[1]#_g165178_|) + (cons (cons 'id |gxc[1]#_g165179_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj160984 __tmp161535 '18 '#f '#f)) - (let ((__tmp161538 (cons (cons 'signature |gxc[1]#_g161204_|) '()))) + (##unchecked-structure-set! __obj164626 __tmp165177 '18 '#f '#f)) + (let ((__tmp165180 (cons (cons 'signature |gxc[1]#_g164846_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj160984 __tmp161538 '19 '#f '#f)) + (##unchecked-structure-set! __obj164626 __tmp165180 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160984 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj164626 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160984 '() '20 '#f '#f)) - __obj160984)) + (##unchecked-structure-set! __obj164626 '() '20 '#f '#f)) + __obj164626)) (define |gxc[:0:]#!primitive-lambda| - (let ((__obj160985 + (let ((__obj164627 (let () (declare (not safe)) (##structure @@ -4504,7 +4504,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160985 + __obj164627 'gxc#!primitive-lambda::t '1 '#f @@ -4512,111 +4512,111 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160985 + __obj164627 '!primitive-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160985 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj164627 '() '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj160985 + __obj164627 '(id signature arity dispatch inline inline-typedecl) - '6 + '7 '#f '#f)) - (let ((__tmp161539 - (cons |gxc[1]#_g161519_| (cons |gxc[1]#_g161540_| '())))) + (let ((__tmp165181 + (cons |gxc[1]#_g165161_| (cons |gxc[1]#_g165182_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj160985 __tmp161539 '3 '#f '#f)) + (##unchecked-structure-set! __obj164627 __tmp165181 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160985 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj164627 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160985 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj164627 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160985 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj164627 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160985 ':init! '11 '#f '#f)) - (let ((__tmp161541 |gxc[1]#_g161542_|)) + (##unchecked-structure-set! __obj164627 ':init! '12 '#f '#f)) + (let ((__tmp165183 |gxc[1]#_g165184_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160985 __tmp161541 '12 '#f '#f)) - (let ((__tmp161543 |gxc[1]#_g161544_|)) + (##unchecked-structure-set! __obj164627 __tmp165183 '3 '#f '#f)) + (let ((__tmp165185 |gxc[1]#_g165186_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160985 __tmp161543 '13 '#f '#f)) - (let ((__tmp161545 |gxc[1]#_g161546_|)) + (##unchecked-structure-set! __obj164627 __tmp165185 '13 '#f '#f)) + (let ((__tmp165187 |gxc[1]#_g165188_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160985 __tmp161545 '14 '#f '#f)) - (let ((__tmp161547 - (cons (cons 'arity |gxc[1]#_g161548_|) - (cons (cons 'dispatch |gxc[1]#_g161549_|) - (cons (cons 'inline |gxc[1]#_g161550_|) + (##unchecked-structure-set! __obj164627 __tmp165187 '14 '#f '#f)) + (let ((__tmp165189 + (cons (cons 'arity |gxc[1]#_g165190_|) + (cons (cons 'dispatch |gxc[1]#_g165191_|) + (cons (cons 'inline |gxc[1]#_g165192_|) (cons (cons 'inline-typedecl - |gxc[1]#_g161551_|) + |gxc[1]#_g165193_|) (cons (cons 'signature - |gxc[1]#_g161552_|) + |gxc[1]#_g165194_|) (cons (cons 'id - |gxc[1]#_g161553_|) + |gxc[1]#_g165195_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj160985 __tmp161547 '15 '#f '#f)) - (let ((__tmp161554 - (cons (cons 'arity |gxc[1]#_g161555_|) - (cons (cons 'dispatch |gxc[1]#_g161556_|) - (cons (cons 'inline |gxc[1]#_g161557_|) + (##unchecked-structure-set! __obj164627 __tmp165189 '15 '#f '#f)) + (let ((__tmp165196 + (cons (cons 'arity |gxc[1]#_g165197_|) + (cons (cons 'dispatch |gxc[1]#_g165198_|) + (cons (cons 'inline |gxc[1]#_g165199_|) (cons (cons 'inline-typedecl - |gxc[1]#_g161558_|) + |gxc[1]#_g165200_|) (cons (cons 'signature - |gxc[1]#_g161559_|) + |gxc[1]#_g165201_|) (cons (cons 'id - |gxc[1]#_g161560_|) + |gxc[1]#_g165202_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj160985 __tmp161554 '16 '#f '#f)) - (let ((__tmp161561 - (cons (cons 'arity |gxc[1]#_g161562_|) - (cons (cons 'dispatch |gxc[1]#_g161563_|) - (cons (cons 'inline |gxc[1]#_g161564_|) + (##unchecked-structure-set! __obj164627 __tmp165196 '16 '#f '#f)) + (let ((__tmp165203 + (cons (cons 'arity |gxc[1]#_g165204_|) + (cons (cons 'dispatch |gxc[1]#_g165205_|) + (cons (cons 'inline |gxc[1]#_g165206_|) (cons (cons 'inline-typedecl - |gxc[1]#_g161565_|) + |gxc[1]#_g165207_|) (cons (cons 'signature - |gxc[1]#_g161566_|) + |gxc[1]#_g165208_|) (cons (cons 'id - |gxc[1]#_g161567_|) + |gxc[1]#_g165209_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj160985 __tmp161561 '17 '#f '#f)) - (let ((__tmp161568 - (cons (cons 'arity |gxc[1]#_g161569_|) - (cons (cons 'dispatch |gxc[1]#_g161570_|) - (cons (cons 'inline |gxc[1]#_g161571_|) + (##unchecked-structure-set! __obj164627 __tmp165203 '17 '#f '#f)) + (let ((__tmp165210 + (cons (cons 'arity |gxc[1]#_g165211_|) + (cons (cons 'dispatch |gxc[1]#_g165212_|) + (cons (cons 'inline |gxc[1]#_g165213_|) (cons (cons 'inline-typedecl - |gxc[1]#_g161572_|) + |gxc[1]#_g165214_|) (cons (cons 'signature - |gxc[1]#_g161573_|) + |gxc[1]#_g165215_|) (cons (cons 'id - |gxc[1]#_g161574_|) + |gxc[1]#_g165216_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj160985 __tmp161568 '18 '#f '#f)) - (let ((__tmp161575 (cons (cons 'signature |gxc[1]#_g161204_|) '()))) + (##unchecked-structure-set! __obj164627 __tmp165210 '18 '#f '#f)) + (let ((__tmp165217 (cons (cons 'signature |gxc[1]#_g164846_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj160985 __tmp161575 '19 '#f '#f)) + (##unchecked-structure-set! __obj164627 __tmp165217 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160985 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj164627 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160985 '() '20 '#f '#f)) - __obj160985)) + (##unchecked-structure-set! __obj164627 '() '20 '#f '#f)) + __obj164627)) (define |gxc[:0:]#!primitive-case-lambda| - (let ((__obj160986 + (let ((__obj164628 (let () (declare (not safe)) (##structure @@ -4645,7 +4645,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160986 + __obj164628 'gxc#!primitive-case-lambda::t '1 '#f @@ -4653,78 +4653,78 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj160986 + __obj164628 '!primitive-case-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160986 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj164628 '() '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj160986 + __obj164628 '(id signature clauses) - '6 + '7 '#f '#f)) - (let ((__tmp161576 - (cons |gxc[1]#_g161519_| (cons |gxc[1]#_g161577_| '())))) + (let ((__tmp165218 + (cons |gxc[1]#_g165161_| (cons |gxc[1]#_g165219_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj160986 __tmp161576 '3 '#f '#f)) + (##unchecked-structure-set! __obj164628 __tmp165218 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160986 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj164628 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160986 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj164628 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160986 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj164628 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160986 ':init! '11 '#f '#f)) - (let ((__tmp161578 |gxc[1]#_g161579_|)) + (##unchecked-structure-set! __obj164628 ':init! '12 '#f '#f)) + (let ((__tmp165220 |gxc[1]#_g165221_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160986 __tmp161578 '12 '#f '#f)) - (let ((__tmp161580 |gxc[1]#_g161581_|)) + (##unchecked-structure-set! __obj164628 __tmp165220 '3 '#f '#f)) + (let ((__tmp165222 |gxc[1]#_g165223_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160986 __tmp161580 '13 '#f '#f)) - (let ((__tmp161582 |gxc[1]#_g161583_|)) + (##unchecked-structure-set! __obj164628 __tmp165222 '13 '#f '#f)) + (let ((__tmp165224 |gxc[1]#_g165225_|)) (declare (not safe)) - (##unchecked-structure-set! __obj160986 __tmp161582 '14 '#f '#f)) - (let ((__tmp161584 - (cons (cons 'clauses |gxc[1]#_g161585_|) - (cons (cons 'signature |gxc[1]#_g161586_|) - (cons (cons 'id |gxc[1]#_g161587_|) '()))))) + (##unchecked-structure-set! __obj164628 __tmp165224 '14 '#f '#f)) + (let ((__tmp165226 + (cons (cons 'clauses |gxc[1]#_g165227_|) + (cons (cons 'signature |gxc[1]#_g165228_|) + (cons (cons 'id |gxc[1]#_g165229_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj160986 __tmp161584 '15 '#f '#f)) - (let ((__tmp161588 - (cons (cons 'clauses |gxc[1]#_g161589_|) - (cons (cons 'signature |gxc[1]#_g161590_|) - (cons (cons 'id |gxc[1]#_g161591_|) '()))))) + (##unchecked-structure-set! __obj164628 __tmp165226 '15 '#f '#f)) + (let ((__tmp165230 + (cons (cons 'clauses |gxc[1]#_g165231_|) + (cons (cons 'signature |gxc[1]#_g165232_|) + (cons (cons 'id |gxc[1]#_g165233_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj160986 __tmp161588 '16 '#f '#f)) - (let ((__tmp161592 - (cons (cons 'clauses |gxc[1]#_g161593_|) - (cons (cons 'signature |gxc[1]#_g161594_|) - (cons (cons 'id |gxc[1]#_g161595_|) '()))))) + (##unchecked-structure-set! __obj164628 __tmp165230 '16 '#f '#f)) + (let ((__tmp165234 + (cons (cons 'clauses |gxc[1]#_g165235_|) + (cons (cons 'signature |gxc[1]#_g165236_|) + (cons (cons 'id |gxc[1]#_g165237_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj160986 __tmp161592 '17 '#f '#f)) - (let ((__tmp161596 - (cons (cons 'clauses |gxc[1]#_g161597_|) - (cons (cons 'signature |gxc[1]#_g161598_|) - (cons (cons 'id |gxc[1]#_g161599_|) '()))))) + (##unchecked-structure-set! __obj164628 __tmp165234 '17 '#f '#f)) + (let ((__tmp165238 + (cons (cons 'clauses |gxc[1]#_g165239_|) + (cons (cons 'signature |gxc[1]#_g165240_|) + (cons (cons 'id |gxc[1]#_g165241_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj160986 __tmp161596 '18 '#f '#f)) - (let ((__tmp161600 (cons (cons 'signature |gxc[1]#_g161204_|) '()))) + (##unchecked-structure-set! __obj164628 __tmp165238 '18 '#f '#f)) + (let ((__tmp165242 (cons (cons 'signature |gxc[1]#_g164846_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj160986 __tmp161600 '19 '#f '#f)) + (##unchecked-structure-set! __obj164628 __tmp165242 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160986 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj164628 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj160986 '() '20 '#f '#f)) - __obj160986)))) + (##unchecked-structure-set! __obj164628 '() '20 '#f '#f)) + __obj164628)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call~0.scm b/src/bootstrap/gerbil/compiler/optimize-call~0.scm index f9f37f58e4..50fddebfa0 100644 --- a/src/bootstrap/gerbil/compiler/optimize-call~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-call~0.scm @@ -1,27 +1,27 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-call::timestamp 1756721302) + (define gerbil/compiler/optimize-call::timestamp 1769384635) (begin (define gxc#::optimize-call::t - (let ((__tmp206022 (list gxc#::basic-xform::t)) - (__tmp206021 (cons (cons 'final: '#t) '()))) + (let ((__tmp209446 (list gxc#::basic-xform::t)) + (__tmp209445 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::optimize-call::t '::optimize-call - __tmp206022 + __tmp209446 '() - __tmp206021 + __tmp209445 '#f))) (define gxc#::optimize-call? (let () (declare (not safe)) (__make-class-predicate gxc#::optimize-call::t))) (define gxc#make-::optimize-call - (lambda _%$args205299%_ - (apply make-instance gxc#::optimize-call::t _%$args205299%_))) + (lambda _%$args208723%_ + (apply make-instance gxc#::optimize-call::t _%$args208723%_))) (define gxc#::optimize-call-bind-methods! - (let ((__tmp206023 + (let ((__tmp209447 (lambda () (force gxc#::basic-xform-bind-methods!) (let () @@ -40,46 +40,46 @@ (declare (not safe)) (__seal-class! gxc#::optimize-call::t))))) (declare (not safe)) - (__make-atomic-promise __tmp206023))) + (__make-atomic-promise __tmp209447))) (define gxc#apply-optimize-call - (lambda (_%stx205291%_) + (lambda (_%stx208715%_) (force gxc#::optimize-call-bind-methods!) - (let* ((_%self205294%_ - (let ((__obj206013 + (let* ((_%self208718%_ + (let ((__obj209437 (let () (declare (not safe)) (##structure gxc#::optimize-call::t)))) - __obj206013)) - (__tmp206024 + __obj209437)) + (__tmp209448 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self205294%_ _%stx205291%_))))) + (gxc#compile-e__1 _%self208718%_ _%stx208715%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp206024 + __tmp209448 gxc#current-compile-method - _%self205294%_)))) + _%self208718%_)))) (define gxc#::check-return-type::t - (let ((__tmp206026 (list gxc#::void::t)) - (__tmp206025 (cons (cons 'final: '#t) '()))) + (let ((__tmp209450 (list gxc#::void::t)) + (__tmp209449 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::check-return-type::t '::check-return-type - __tmp206026 + __tmp209450 '() - __tmp206025 + __tmp209449 '#f))) (define gxc#::check-return-type? (let () (declare (not safe)) (__make-class-predicate gxc#::check-return-type::t))) (define gxc#make-::check-return-type - (lambda _%$args205288%_ - (apply make-instance gxc#::check-return-type::t _%$args205288%_))) + (lambda _%$args208712%_ + (apply make-instance gxc#::check-return-type::t _%$args208712%_))) (define gxc#::check-return-type-bind-methods! - (let ((__tmp206027 + (let ((__tmp209451 (lambda () (force gxc#::void-bind-methods!) (let () @@ -170,154 +170,155 @@ (declare (not safe)) (__seal-class! gxc#::check-return-type::t))))) (declare (not safe)) - (__make-atomic-promise __tmp206027))) + (__make-atomic-promise __tmp209451))) (define gxc#apply-check-return-type - (lambda (_%stx205280%_) + (lambda (_%stx208704%_) (force gxc#::check-return-type-bind-methods!) - (let* ((_%self205283%_ - (let ((__obj206015 + (let* ((_%self208707%_ + (let ((__obj209439 (let () (declare (not safe)) (##structure gxc#::check-return-type::t)))) - __obj206015)) - (__tmp206028 + __obj209439)) + (__tmp209452 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self205283%_ _%stx205280%_))))) + (gxc#compile-e__1 _%self208707%_ _%stx208704%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp206028 + __tmp209452 gxc#current-compile-method - _%self205283%_)))) + _%self208707%_)))) (define gxc#optimize-call% - (lambda (_%self204881%_ _%stx204882%_) - (let* ((_%__stx205368205369%_ _%stx204882%_) - (_%g204885204931%_ + (lambda (_%self208311%_ _%stx208312%_) + (let* ((_%__stx208792208793%_ _%stx208312%_) + (_%g208315208361%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx205368205369%_))))) - (let ((_%__kont205370205371%_ - (lambda (_%L205074%_ _%L205075%_) - (let* ((_%rator-id205095%_ + _%__stx208792208793%_))))) + (let ((_%__kont208794208795%_ + (lambda (_%g208317208500%_ _%g208318208501%_) + (let* ((_%rator-id208521%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L205075%_))) - (_%rator-type205097%_ + (gxc#identifier-symbol _%g208318208501%_))) + (_%rator-type208523%_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _%rator-id205095%_)))) - (if (or (not _%rator-type205097%_) + (gxc#optimizer-resolve-type _%rator-id208521%_)))) + (if (or (not _%rator-type208523%_) (eq? (##structure-ref - _%rator-type205097%_ + _%rator-type208523%_ '1 gxc#!type::t '#f) 't)) (let () (declare (not safe)) - (gxc#xform-call% _%self204881%_ _%stx204882%_)) + (gxc#xform-call% _%self208311%_ _%stx208312%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type205097%_ + _%rator-type208523%_ 'gxc#!procedure::t)) (let () - (let ((__tmp206029 + (let ((__tmp209453 (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type205097%_ + _%rator-type208523%_ '1 '#f '#f)))) (declare (not safe)) (gxc#verbose '"optimize-call " - _%rator-id205095%_ + _%rator-id208521%_ '" => " - _%rator-type205097%_ + _%rator-type208523%_ '" " - __tmp206029)) - (let* ((_%optimized205112%_ - (let ((__method206016 + __tmp209453)) + (let* ((_%optimized208538%_ + (let ((__method209440 (let () (declare (not safe)) (__method-ref - _%rator-type205097%_ + _%rator-type208523%_ 'optimize-call)))) - (if __method206016 - (let ((__tmp206030 - (let ((__tmp206031 - (lambda (_%g205104205107%_ + (if __method209440 + (let ((__tmp209454 + (let ((__tmp209455 + (lambda (_%g208530208533%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g205105205109%_) - (cons _%g205104205107%_ _%g205105205109%_)))) + _%g208531208535%_) + (cons _%g208530208533%_ _%g208531208535%_)))) (declare (not safe)) - (__foldr1 __tmp206031 '() _%L205074%_)))) + (__foldr1 __tmp209455 '() _%g208317208500%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (__method206016 - _%rator-type205097%_ - _%self204881%_ - _%stx204882%_ - __tmp206030)) + (__method209440 + _%rator-type208523%_ + _%self208311%_ + _%stx208312%_ + __tmp209454)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type205097%_ + _%rator-type208523%_ 'optimize-call)) '#!void)))) - (_%__stx205316205317%_ - _%optimized205112%_) - (_%g205115205144%_ + (_%__stx208740208741%_ + _%optimized208538%_) + (_%g208541208570%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx205316205317%_))))) - (let ((_%__kont205318205319%_ - (lambda (_%L205212%_ _%L205213%_) - (let* ((_%optimized-rator-id205240%_ + _%__stx208740208741%_))))) + (let ((_%__kont208742208743%_ + (lambda (_%g208543208636%_ + _%g208544208637%_) + (let* ((_%optimized-rator-id208664%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L205213%_))) - (_%rator-type205245%_ - (let ((_%$e205242%_ + _%g208544208637%_))) + (_%rator-type208669%_ + (let ((_%$e208666%_ (let () (declare (not safe)) (gxc#optimizer-lookup-type - _%optimized-rator-id205240%_)))) - (if _%$e205242%_ - _%$e205242%_ - _%rator-type205097%_)))) + _%optimized-rator-id208664%_)))) + (if _%$e208666%_ + _%$e208666%_ + _%rator-type208523%_)))) (if (or (let () (declare (not safe)) (class-instance? gxc#!primitive::t - _%rator-type205245%_)) + _%rator-type208669%_)) (let () (declare (not safe)) - (##memq _%optimized-rator-id205240%_ + (##memq _%optimized-rator-id208664%_ gxc#checked-primitives)) (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type205245%_ + _%rator-type208669%_ 'gxc#!procedure::t)) (eq? (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#!procedure-origin _%rator-type205245%_)) + (gxc#!procedure-origin _%rator-type208669%_)) (##structure-ref (let () (declare (not safe)) @@ -326,226 +327,226 @@ gx#expander-context::t '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%optimized205112%_ - (let ((__tmp206032 + _%optimized208538%_ + (let ((__tmp209456 (cons '%#call-unchecked (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L205213%_ '())) - (let ((__tmp206033 - (lambda (_%g205253205256%_ _%g205254205258%_) - (cons _%g205253205256%_ - _%g205254205258%_)))) + (cons _%g208544208637%_ '())) + (let ((__tmp209457 + (lambda (_%g208677208680%_ _%g208678208682%_) + (cons _%g208677208680%_ + _%g208678208682%_)))) (declare (not safe)) - (__foldr1 __tmp206033 '() _%L205212%_)))))) + (__foldr1 __tmp209457 '() _%g208543208636%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp206032 - _%stx204882%_)))))) - (_%__kont205322205323%_ - (lambda () _%optimized205112%_))) - (let ((_%__match205365205366%_ - (lambda (_%e205119205156%_ - _%hd205120205159%_ - _%tl205121205161%_ - _%e205122205164%_ - _%hd205123205167%_ - _%tl205124205169%_ - _%e205125205172%_ - _%hd205126205175%_ - _%tl205127205177%_ - _%e205128205180%_ - _%hd205129205183%_ - _%tl205130205185%_ - _%__splice205320205321%_ - _%target205131205188%_ - _%tl205133205190%_) - (letrec ((_%loop205134205193%_ - (lambda (_%hd205132205196%_ - _%arg205138205198%_) + __tmp209456 + _%stx208312%_)))))) + (_%__kont208746208747%_ + (lambda () _%optimized208538%_))) + (let ((_%__match208789208790%_ + (lambda (_%e208545208582%_ + _%hd208546208585%_ + _%tl208547208587%_ + _%e208548208590%_ + _%hd208549208593%_ + _%tl208550208595%_ + _%e208551208598%_ + _%hd208552208601%_ + _%tl208553208603%_ + _%e208554208606%_ + _%hd208555208609%_ + _%tl208556208611%_ + _%__splice208744208745%_ + _%target208557208614%_ + _%tl208559208616%_) + (letrec ((_%loop208560208619%_ + (lambda (_%hd208558208622%_ + _%arg208564208624%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd205132205196%_)) - (let ((_%e205135205201%_ + _%hd208558208622%_)) + (let ((_%e208561208626%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd205132205196%_)))) - (let ((_%lp-tl205137205206%_ + (gx#stx-e _%hd208558208622%_)))) + (let ((_%lp-tl208563208631%_ (let () (declare (not safe)) - (##cdr _%e205135205201%_))) - (_%lp-hd205136205204%_ + (##cdr _%e208561208626%_))) + (_%lp-hd208562208629%_ (let () (declare (not safe)) - (##car _%e205135205201%_)))) - (_%loop205134205193%_ - _%lp-tl205137205206%_ - (cons _%lp-hd205136205204%_ _%arg205138205198%_)))) - (let ((_%arg205139205209%_ (reverse _%arg205138205198%_))) - (_%__kont205318205319%_ - _%arg205139205209%_ - _%hd205129205183%_)))))) + (##car _%e208561208626%_)))) + (_%loop208560208619%_ + _%lp-tl208563208631%_ + (cons _%lp-hd208562208629%_ _%arg208564208624%_)))) + (let ((_%arg208565208634%_ (reverse _%arg208564208624%_))) + (_%__kont208742208743%_ + _%arg208565208634%_ + _%hd208555208609%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop205134205193%_ - _%target205131205188%_ + (_%loop208560208619%_ + _%target208557208614%_ '()))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx205316205317%_)) - (let ((_%e205119205156%_ + _%__stx208740208741%_)) + (let ((_%e208545208582%_ (let () (declare (not safe)) (gx#stx-e - _%__stx205316205317%_)))) - (let ((_%tl205121205161%_ + _%__stx208740208741%_)))) + (let ((_%tl208547208587%_ (let () (declare (not safe)) - (##cdr _%e205119205156%_))) - (_%hd205120205159%_ + (##cdr _%e208545208582%_))) + (_%hd208546208585%_ (let () (declare (not safe)) - (##car _%e205119205156%_)))) + (##car _%e208545208582%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd205120205159%_)) + _%hd208546208585%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd205120205159%_)) + _%hd208546208585%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205121205161%_)) - (let ((_%e205122205164%_ + _%tl208547208587%_)) + (let ((_%e208548208590%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl205121205161%_)))) - (let ((_%tl205124205169%_ + (gx#stx-e _%tl208547208587%_)))) + (let ((_%tl208550208595%_ (let () (declare (not safe)) - (##cdr _%e205122205164%_))) - (_%hd205123205167%_ + (##cdr _%e208548208590%_))) + (_%hd208549208593%_ (let () (declare (not safe)) - (##car _%e205122205164%_)))) + (##car _%e208548208590%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205123205167%_)) - (let ((_%e205125205172%_ + (gx#stx-pair? _%hd208549208593%_)) + (let ((_%e208551208598%_ (let () (declare (not safe)) - (gx#stx-e _%hd205123205167%_)))) - (let ((_%tl205127205177%_ + (gx#stx-e _%hd208549208593%_)))) + (let ((_%tl208553208603%_ (let () (declare (not safe)) - (##cdr _%e205125205172%_))) - (_%hd205126205175%_ + (##cdr _%e208551208598%_))) + (_%hd208552208601%_ (let () (declare (not safe)) - (##car _%e205125205172%_)))) + (##car _%e208551208598%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205126205175%_)) + (gx#identifier? _%hd208552208601%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd205126205175%_)) + (gx#stx-eq? '%#ref _%hd208552208601%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205127205177%_)) - (let ((_%e205128205180%_ + (gx#stx-pair? _%tl208553208603%_)) + (let ((_%e208554208606%_ (let () (declare (not safe)) (gx#stx-e - _%tl205127205177%_)))) - (let ((_%tl205130205185%_ + _%tl208553208603%_)))) + (let ((_%tl208556208611%_ (let () (declare (not safe)) - (##cdr _%e205128205180%_))) - (_%hd205129205183%_ + (##cdr _%e208554208606%_))) + (_%hd208555208609%_ (let () (declare (not safe)) - (##car _%e205128205180%_)))) + (##car _%e208554208606%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205130205185%_)) + _%tl208556208611%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl205124205169%_)) - (let ((_%__splice205320205321%_ + _%tl208550208595%_)) + (let ((_%__splice208744208745%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl205124205169%_ + _%tl208550208595%_ '0)))) - (let ((_%tl205133205190%_ + (let ((_%tl208559208616%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice205320205321%_ '1))) - (_%target205131205188%_ + (##vector-ref _%__splice208744208745%_ '1))) + (_%target208557208614%_ (let () (declare (not safe)) - (##vector-ref _%__splice205320205321%_ '0)))) + (##vector-ref _%__splice208744208745%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205133205190%_)) - (_%__match205365205366%_ - _%e205119205156%_ - _%hd205120205159%_ - _%tl205121205161%_ - _%e205122205164%_ - _%hd205123205167%_ - _%tl205124205169%_ - _%e205125205172%_ - _%hd205126205175%_ - _%tl205127205177%_ - _%e205128205180%_ - _%hd205129205183%_ - _%tl205130205185%_ - _%__splice205320205321%_ - _%target205131205188%_ - _%tl205133205190%_) - (_%__kont205322205323%_)))) + (gx#stx-null? _%tl208559208616%_)) + (_%__match208789208790%_ + _%e208545208582%_ + _%hd208546208585%_ + _%tl208547208587%_ + _%e208548208590%_ + _%hd208549208593%_ + _%tl208550208595%_ + _%e208551208598%_ + _%hd208552208601%_ + _%tl208553208603%_ + _%e208554208606%_ + _%hd208555208609%_ + _%tl208556208611%_ + _%__splice208744208745%_ + _%target208557208614%_ + _%tl208559208616%_) + (_%__kont208746208747%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont205322205323%_)) - (_%__kont205322205323%_)))) - (_%__kont205322205323%_)) - (_%__kont205322205323%_)) - (_%__kont205322205323%_)))) - (_%__kont205322205323%_)))) - (_%__kont205322205323%_)) + (_%__kont208746208747%_)) + (_%__kont208746208747%_)))) + (_%__kont208746208747%_)) + (_%__kont208746208747%_)) + (_%__kont208746208747%_)))) + (_%__kont208746208747%_)))) + (_%__kont208746208747%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont205322205323%_)) - (_%__kont205322205323%_)))) - (_%__kont205322205323%_)))))) + (_%__kont208746208747%_)) + (_%__kont208746208747%_)))) + (_%__kont208746208747%_)))))) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type205097%_ + _%rator-type208523%_ 'gxc#!class::t)) (eq? (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type205097%_ + _%rator-type208523%_ '1 '#f '#f)) 'procedure)) - (let ((__tmp206034 + (let ((__tmp209458 (cons '%#call-unchecked (cons (cons (let () (declare @@ -553,42 +554,43 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L205075%_ + (cons _%g208318208501%_ '())) - (map (lambda (_%g205264205266%_) + (map (lambda (_%g208688208690%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self204881%_ - _%g205264205266%_))) - (let ((__tmp206035 - (lambda (_%g205268205271%_ + _%self208311%_ + _%g208688208690%_))) + (let ((__tmp209459 + (lambda (_%g208692208695%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g205269205273%_) - (cons _%g205268205271%_ _%g205269205273%_)))) + _%g208693208697%_) + (cons _%g208692208695%_ _%g208693208697%_)))) (declare (not safe)) - (__foldr1 __tmp206035 '() _%L205074%_))))))) + (__foldr1 __tmp209459 '() _%g208317208500%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp206034 - _%stx204882%_)) + __tmp209458 + _%stx208312%_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _%stx204882%_ - _%rator-type205097%_)))))))) - (_%__kont205374205375%_ - (lambda (_%L204976%_ _%L204977%_) - (let ((_%rator-type204994%_ + _%stx208312%_ + _%rator-type208523%_)))))))) + (_%__kont208798208799%_ + (lambda (_%g208340208404%_ _%g208341208405%_) + (let ((_%rator-type208422%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%L204977%_)))) - (if (and _%rator-type204994%_ + (gxc#apply-basic-expression-type + _%g208341208405%_)))) + (if (and _%rator-type208422%_ (eq? (##structure-ref - _%rator-type204994%_ + _%rator-type208422%_ '1 gxc#!type::t '#f) @@ -597,17 +599,17 @@ (declare (not safe)) (class-instance? gxc#!primitive::t - _%rator-type204994%_)) + _%rator-type208422%_)) '#f (not (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type204994%_ + _%rator-type208422%_ 'gxc#!procedure::t)) (eq? (let () (declare (not safe)) (gxc#!procedure-origin - _%rator-type204994%_)) + _%rator-type208422%_)) (##structure-ref (let () (declare (not safe)) @@ -615,604 +617,604 @@ '1 gx#expander-context::t '#f)))))) - (let ((__tmp206036 + (let ((__tmp209460 (cons '%#call-unchecked (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self204881%_ - _%L204977%_)) - (map (lambda (_%g204996204998%_) + _%self208311%_ + _%g208341208405%_)) + (map (lambda (_%g208424208426%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self204881%_ - _%g204996204998%_))) - (let ((__tmp206037 - (lambda (_%g205000205003%_ + _%self208311%_ + _%g208424208426%_))) + (let ((__tmp209461 + (lambda (_%g208428208431%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g205001205005%_) - (cons _%g205000205003%_ _%g205001205005%_)))) + _%g208429208433%_) + (cons _%g208428208431%_ _%g208429208433%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp206037 + __tmp209461 '() - _%L204976%_))))))) + _%g208340208404%_))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp206036 _%stx204882%_)) - (if (or (not _%rator-type204994%_) - (let ((__tmp206038 + (gxc#xform-wrap-source __tmp209460 _%stx208312%_)) + (if (or (not _%rator-type208422%_) + (let ((__tmp209462 (##structure-ref - _%rator-type204994%_ + _%rator-type208422%_ '1 gxc#!type::t '#f))) (declare (not safe)) - (##memq __tmp206038 '(t procedure)))) + (##memq __tmp209462 '(t procedure)))) (let () (declare (not safe)) - (gxc#xform-call% _%self204881%_ _%stx204882%_)) + (gxc#xform-call% _%self208311%_ _%stx208312%_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _%stx204882%_ - _%rator-type204994%_)))))))) - (let* ((_%__match205435205436%_ - (lambda (_%e204912204936%_ - _%hd204913204939%_ - _%tl204914204941%_ - _%e204915204944%_ - _%hd204916204947%_ - _%tl204917204949%_ - _%__splice205376205377%_ - _%target204918204952%_ - _%tl204920204954%_) - (letrec ((_%loop204921204957%_ - (lambda (_%hd204919204960%_ - _%rand204925204962%_) + _%stx208312%_ + _%rator-type208422%_)))))))) + (let* ((_%__match208859208860%_ + (lambda (_%e208342208366%_ + _%hd208343208369%_ + _%tl208344208371%_ + _%e208345208374%_ + _%hd208346208377%_ + _%tl208347208379%_ + _%__splice208800208801%_ + _%target208348208382%_ + _%tl208350208384%_) + (letrec ((_%loop208351208387%_ + (lambda (_%hd208349208390%_ + _%rand208355208392%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd204919204960%_)) - (let ((_%e204922204965%_ + (gx#stx-pair? _%hd208349208390%_)) + (let ((_%e208352208394%_ (let () (declare (not safe)) - (gx#stx-e _%hd204919204960%_)))) - (let ((_%lp-tl204924204970%_ + (gx#stx-e _%hd208349208390%_)))) + (let ((_%lp-tl208354208399%_ (let () (declare (not safe)) - (##cdr _%e204922204965%_))) - (_%lp-hd204923204968%_ + (##cdr _%e208352208394%_))) + (_%lp-hd208353208397%_ (let () (declare (not safe)) - (##car _%e204922204965%_)))) - (_%loop204921204957%_ - _%lp-tl204924204970%_ - (cons _%lp-hd204923204968%_ - _%rand204925204962%_)))) - (let ((_%rand204926204973%_ - (reverse _%rand204925204962%_))) - (_%__kont205374205375%_ - _%rand204926204973%_ - _%hd204916204947%_)))))) - (_%loop204921204957%_ _%target204918204952%_ '())))) - (_%__match205415205416%_ - (lambda (_%e204889205018%_ - _%hd204890205021%_ - _%tl204891205023%_ - _%e204892205026%_ - _%hd204893205029%_ - _%tl204894205031%_ - _%e204895205034%_ - _%hd204896205037%_ - _%tl204897205039%_ - _%e204898205042%_ - _%hd204899205045%_ - _%tl204900205047%_ - _%__splice205372205373%_ - _%target204901205050%_ - _%tl204903205052%_) - (letrec ((_%loop204904205055%_ - (lambda (_%hd204902205058%_ - _%rand204908205060%_) + (##car _%e208352208394%_)))) + (_%loop208351208387%_ + _%lp-tl208354208399%_ + (cons _%lp-hd208353208397%_ + _%rand208355208392%_)))) + (let ((_%rand208356208402%_ + (reverse _%rand208355208392%_))) + (_%__kont208798208799%_ + _%rand208356208402%_ + _%hd208346208377%_)))))) + (_%loop208351208387%_ _%target208348208382%_ '())))) + (_%__match208839208840%_ + (lambda (_%e208319208446%_ + _%hd208320208449%_ + _%tl208321208451%_ + _%e208322208454%_ + _%hd208323208457%_ + _%tl208324208459%_ + _%e208325208462%_ + _%hd208326208465%_ + _%tl208327208467%_ + _%e208328208470%_ + _%hd208329208473%_ + _%tl208330208475%_ + _%__splice208796208797%_ + _%target208331208478%_ + _%tl208333208480%_) + (letrec ((_%loop208334208483%_ + (lambda (_%hd208332208486%_ + _%rand208338208488%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd204902205058%_)) - (let ((_%e204905205063%_ + (gx#stx-pair? _%hd208332208486%_)) + (let ((_%e208335208490%_ (let () (declare (not safe)) - (gx#stx-e _%hd204902205058%_)))) - (let ((_%lp-tl204907205068%_ + (gx#stx-e _%hd208332208486%_)))) + (let ((_%lp-tl208337208495%_ (let () (declare (not safe)) - (##cdr _%e204905205063%_))) - (_%lp-hd204906205066%_ + (##cdr _%e208335208490%_))) + (_%lp-hd208336208493%_ (let () (declare (not safe)) - (##car _%e204905205063%_)))) - (_%loop204904205055%_ - _%lp-tl204907205068%_ - (cons _%lp-hd204906205066%_ - _%rand204908205060%_)))) - (let ((_%rand204909205071%_ - (reverse _%rand204908205060%_))) - (_%__kont205370205371%_ - _%rand204909205071%_ - _%hd204899205045%_)))))) - (_%loop204904205055%_ _%target204901205050%_ '()))))) + (##car _%e208335208490%_)))) + (_%loop208334208483%_ + _%lp-tl208337208495%_ + (cons _%lp-hd208336208493%_ + _%rand208338208488%_)))) + (let ((_%rand208339208498%_ + (reverse _%rand208338208488%_))) + (_%__kont208794208795%_ + _%rand208339208498%_ + _%hd208329208473%_)))))) + (_%loop208334208483%_ _%target208331208478%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx205368205369%_)) - (let ((_%e204889205018%_ + (gx#stx-pair? _%__stx208792208793%_)) + (let ((_%e208319208446%_ (let () (declare (not safe)) - (gx#stx-e _%__stx205368205369%_)))) - (let ((_%tl204891205023%_ + (gx#stx-e _%__stx208792208793%_)))) + (let ((_%tl208321208451%_ (let () (declare (not safe)) - (##cdr _%e204889205018%_))) - (_%hd204890205021%_ + (##cdr _%e208319208446%_))) + (_%hd208320208449%_ (let () (declare (not safe)) - (##car _%e204889205018%_)))) + (##car _%e208319208446%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204891205023%_)) - (let ((_%e204892205026%_ + (gx#stx-pair? _%tl208321208451%_)) + (let ((_%e208322208454%_ (let () (declare (not safe)) - (gx#stx-e _%tl204891205023%_)))) - (let ((_%tl204894205031%_ + (gx#stx-e _%tl208321208451%_)))) + (let ((_%tl208324208459%_ (let () (declare (not safe)) - (##cdr _%e204892205026%_))) - (_%hd204893205029%_ + (##cdr _%e208322208454%_))) + (_%hd208323208457%_ (let () (declare (not safe)) - (##car _%e204892205026%_)))) + (##car _%e208322208454%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd204893205029%_)) - (let ((_%e204895205034%_ + (gx#stx-pair? _%hd208323208457%_)) + (let ((_%e208325208462%_ (let () (declare (not safe)) - (gx#stx-e _%hd204893205029%_)))) - (let ((_%tl204897205039%_ + (gx#stx-e _%hd208323208457%_)))) + (let ((_%tl208327208467%_ (let () (declare (not safe)) - (##cdr _%e204895205034%_))) - (_%hd204896205037%_ + (##cdr _%e208325208462%_))) + (_%hd208326208465%_ (let () (declare (not safe)) - (##car _%e204895205034%_)))) + (##car _%e208325208462%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd204896205037%_)) + _%hd208326208465%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd204896205037%_)) + _%hd208326208465%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204897205039%_)) - (let ((_%e204898205042%_ + _%tl208327208467%_)) + (let ((_%e208328208470%_ (let () (declare (not safe)) (gx#stx-e - _%tl204897205039%_)))) - (let ((_%tl204900205047%_ + _%tl208327208467%_)))) + (let ((_%tl208330208475%_ (let () (declare (not safe)) - (##cdr _%e204898205042%_))) - (_%hd204899205045%_ + (##cdr _%e208328208470%_))) + (_%hd208329208473%_ (let () (declare (not safe)) - (##car _%e204898205042%_)))) + (##car _%e208328208470%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204900205047%_)) + _%tl208330208475%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl204894205031%_)) - (let ((_%__splice205372205373%_ + (gx#stx-pair/null? _%tl208324208459%_)) + (let ((_%__splice208796208797%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl204894205031%_ + _%tl208324208459%_ '0)))) - (let ((_%tl204903205052%_ + (let ((_%tl208333208480%_ (let () (declare (not safe)) - (##vector-ref _%__splice205372205373%_ '1))) - (_%target204901205050%_ + (##vector-ref _%__splice208796208797%_ '1))) + (_%target208331208478%_ (let () (declare (not safe)) - (##vector-ref _%__splice205372205373%_ '0)))) + (##vector-ref _%__splice208796208797%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204903205052%_)) - (_%__match205415205416%_ - _%e204889205018%_ - _%hd204890205021%_ - _%tl204891205023%_ - _%e204892205026%_ - _%hd204893205029%_ - _%tl204894205031%_ - _%e204895205034%_ - _%hd204896205037%_ - _%tl204897205039%_ - _%e204898205042%_ - _%hd204899205045%_ - _%tl204900205047%_ - _%__splice205372205373%_ - _%target204901205050%_ - _%tl204903205052%_) + (gx#stx-null? _%tl208333208480%_)) + (_%__match208839208840%_ + _%e208319208446%_ + _%hd208320208449%_ + _%tl208321208451%_ + _%e208322208454%_ + _%hd208323208457%_ + _%tl208324208459%_ + _%e208325208462%_ + _%hd208326208465%_ + _%tl208327208467%_ + _%e208328208470%_ + _%hd208329208473%_ + _%tl208330208475%_ + _%__splice208796208797%_ + _%target208331208478%_ + _%tl208333208480%_) (let () (declare (not safe)) - (_%g204885204931%_))))) - (let () (declare (not safe)) (_%g204885204931%_))) + (_%g208315208361%_))))) + (let () (declare (not safe)) (_%g208315208361%_))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl204894205031%_)) - (let ((_%__splice205376205377%_ + (gx#stx-pair/null? _%tl208324208459%_)) + (let ((_%__splice208800208801%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl204894205031%_ + _%tl208324208459%_ '0)))) - (let ((_%tl204920204954%_ + (let ((_%tl208350208384%_ (let () (declare (not safe)) - (##vector-ref _%__splice205376205377%_ '1))) - (_%target204918204952%_ + (##vector-ref _%__splice208800208801%_ '1))) + (_%target208348208382%_ (let () (declare (not safe)) - (##vector-ref _%__splice205376205377%_ '0)))) + (##vector-ref _%__splice208800208801%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204920204954%_)) - (_%__match205435205436%_ - _%e204889205018%_ - _%hd204890205021%_ - _%tl204891205023%_ - _%e204892205026%_ - _%hd204893205029%_ - _%tl204894205031%_ - _%__splice205376205377%_ - _%target204918204952%_ - _%tl204920204954%_) + (gx#stx-null? _%tl208350208384%_)) + (_%__match208859208860%_ + _%e208319208446%_ + _%hd208320208449%_ + _%tl208321208451%_ + _%e208322208454%_ + _%hd208323208457%_ + _%tl208324208459%_ + _%__splice208800208801%_ + _%target208348208382%_ + _%tl208350208384%_) (let () (declare (not safe)) - (_%g204885204931%_))))) - (let () (declare (not safe)) (_%g204885204931%_)))))) + (_%g208315208361%_))))) + (let () (declare (not safe)) (_%g208315208361%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl204894205031%_)) - (let ((_%__splice205376205377%_ + _%tl208324208459%_)) + (let ((_%__splice208800208801%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#syntax-split-splice->vector - _%tl204894205031%_ + _%tl208324208459%_ '0)))) - (let ((_%tl204920204954%_ + (let ((_%tl208350208384%_ (let () (declare (not safe)) - (##vector-ref _%__splice205376205377%_ '1))) - (_%target204918204952%_ + (##vector-ref _%__splice208800208801%_ '1))) + (_%target208348208382%_ (let () (declare (not safe)) - (##vector-ref _%__splice205376205377%_ '0)))) + (##vector-ref _%__splice208800208801%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204920204954%_)) - (_%__match205435205436%_ - _%e204889205018%_ - _%hd204890205021%_ - _%tl204891205023%_ - _%e204892205026%_ - _%hd204893205029%_ - _%tl204894205031%_ - _%__splice205376205377%_ - _%target204918204952%_ - _%tl204920204954%_) - (let () (declare (not safe)) (_%g204885204931%_))))) - (let () (declare (not safe)) (_%g204885204931%_)))) + (gx#stx-null? _%tl208350208384%_)) + (_%__match208859208860%_ + _%e208319208446%_ + _%hd208320208449%_ + _%tl208321208451%_ + _%e208322208454%_ + _%hd208323208457%_ + _%tl208324208459%_ + _%__splice208800208801%_ + _%target208348208382%_ + _%tl208350208384%_) + (let () (declare (not safe)) (_%g208315208361%_))))) + (let () (declare (not safe)) (_%g208315208361%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl204894205031%_)) - (let ((_%__splice205376205377%_ + _%tl208324208459%_)) + (let ((_%__splice208800208801%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl204894205031%_ + _%tl208324208459%_ '0)))) - (let ((_%tl204920204954%_ + (let ((_%tl208350208384%_ (let () (declare (not safe)) (##vector-ref - _%__splice205376205377%_ + _%__splice208800208801%_ '1))) - (_%target204918204952%_ + (_%target208348208382%_ (let () (declare (not safe)) (##vector-ref - _%__splice205376205377%_ + _%__splice208800208801%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204920204954%_)) - (_%__match205435205436%_ - _%e204889205018%_ - _%hd204890205021%_ - _%tl204891205023%_ - _%e204892205026%_ - _%hd204893205029%_ - _%tl204894205031%_ - _%__splice205376205377%_ - _%target204918204952%_ - _%tl204920204954%_) + _%tl208350208384%_)) + (_%__match208859208860%_ + _%e208319208446%_ + _%hd208320208449%_ + _%tl208321208451%_ + _%e208322208454%_ + _%hd208323208457%_ + _%tl208324208459%_ + _%__splice208800208801%_ + _%target208348208382%_ + _%tl208350208384%_) (let () (declare (not safe)) - (_%g204885204931%_))))) + (_%g208315208361%_))))) (let () (declare (not safe)) - (_%g204885204931%_)))) + (_%g208315208361%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl204894205031%_)) - (let ((_%__splice205376205377%_ + _%tl208324208459%_)) + (let ((_%__splice208800208801%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl204894205031%_ + _%tl208324208459%_ '0)))) - (let ((_%tl204920204954%_ + (let ((_%tl208350208384%_ (let () (declare (not safe)) (##vector-ref - _%__splice205376205377%_ + _%__splice208800208801%_ '1))) - (_%target204918204952%_ + (_%target208348208382%_ (let () (declare (not safe)) (##vector-ref - _%__splice205376205377%_ + _%__splice208800208801%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204920204954%_)) - (_%__match205435205436%_ - _%e204889205018%_ - _%hd204890205021%_ - _%tl204891205023%_ - _%e204892205026%_ - _%hd204893205029%_ - _%tl204894205031%_ - _%__splice205376205377%_ - _%target204918204952%_ - _%tl204920204954%_) + _%tl208350208384%_)) + (_%__match208859208860%_ + _%e208319208446%_ + _%hd208320208449%_ + _%tl208321208451%_ + _%e208322208454%_ + _%hd208323208457%_ + _%tl208324208459%_ + _%__splice208800208801%_ + _%target208348208382%_ + _%tl208350208384%_) (let () (declare (not safe)) - (_%g204885204931%_))))) + (_%g208315208361%_))))) (let () (declare (not safe)) - (_%g204885204931%_)))))) + (_%g208315208361%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl204894205031%_)) - (let ((_%__splice205376205377%_ + (gx#stx-pair/null? _%tl208324208459%_)) + (let ((_%__splice208800208801%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl204894205031%_ + _%tl208324208459%_ '0)))) - (let ((_%tl204920204954%_ + (let ((_%tl208350208384%_ (let () (declare (not safe)) (##vector-ref - _%__splice205376205377%_ + _%__splice208800208801%_ '1))) - (_%target204918204952%_ + (_%target208348208382%_ (let () (declare (not safe)) (##vector-ref - _%__splice205376205377%_ + _%__splice208800208801%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204920204954%_)) - (_%__match205435205436%_ - _%e204889205018%_ - _%hd204890205021%_ - _%tl204891205023%_ - _%e204892205026%_ - _%hd204893205029%_ - _%tl204894205031%_ - _%__splice205376205377%_ - _%target204918204952%_ - _%tl204920204954%_) + _%tl208350208384%_)) + (_%__match208859208860%_ + _%e208319208446%_ + _%hd208320208449%_ + _%tl208321208451%_ + _%e208322208454%_ + _%hd208323208457%_ + _%tl208324208459%_ + _%__splice208800208801%_ + _%target208348208382%_ + _%tl208350208384%_) (let () (declare (not safe)) - (_%g204885204931%_))))) + (_%g208315208361%_))))) (let () (declare (not safe)) - (_%g204885204931%_)))))) - (let () (declare (not safe)) (_%g204885204931%_))))) - (let () (declare (not safe)) (_%g204885204931%_)))))))) + (_%g208315208361%_)))))) + (let () (declare (not safe)) (_%g208315208361%_))))) + (let () (declare (not safe)) (_%g208315208361%_)))))))) (define gxc#!procedure::optimize-call - (lambda (_%self204843%_ _%ctx204844%_ _%stx204845%_ _%args204846%_) - (let ((_%self204849%_ _%self204843%_)) - (if (let ((__method206017 + (lambda (_%self208273%_ _%ctx208274%_ _%stx208275%_ _%args208276%_) + (let ((_%self208279%_ _%self208273%_)) + (if (let ((__method209441 (let () (declare (not safe)) - (__method-ref _%self204849%_ 'check-arguments)))) - (if __method206017 + (__method-ref _%self208279%_ 'check-arguments)))) + (if __method209441 (let () (declare (not safe)) - (__method206017 - _%self204849%_ - _%ctx204844%_ - _%stx204845%_ - _%args204846%_)) + (__method209441 + _%self208279%_ + _%ctx208274%_ + _%stx208275%_ + _%args208276%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self204849%_ + _%self208279%_ 'check-arguments)) '#!void))) - (let* ((_%signature204859%_ + (let* ((_%signature208289%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self204849%_ '2 '#f '#f))) - (_%signature204861%_ _%signature204859%_) - (_%$e204871%_ - (if _%signature204861%_ + (##unchecked-structure-ref _%self208279%_ '2 '#f '#f))) + (_%signature208291%_ _%signature208289%_) + (_%$e208301%_ + (if _%signature208291%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature204861%_ + _%signature208291%_ '4 '#f '#f)) '#f))) - (if _%$e204871%_ - ((lambda (_%unchecked204874%_) + (if _%$e208301%_ + ((lambda (_%unchecked208304%_) (if (let () (declare (not safe)) - (gxc#symbol-in-local-scope? _%unchecked204874%_)) - (let ((__tmp206039 + (gxc#symbol-in-local-scope? _%unchecked208304%_)) + (let ((__tmp209463 (cons '%#call (cons (cons '%#ref - (cons _%unchecked204874%_ + (cons _%unchecked208304%_ '())) - (map (lambda (_%g204875204877%_) + (map (lambda (_%g208305208307%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx204844%_ - _%g204875204877%_))) - _%args204846%_))))) + _%ctx208274%_ + _%g208305208307%_))) + _%args208276%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp206039 - _%stx204845%_ - _%ctx204844%_)) + __tmp209463 + _%stx208275%_ + _%ctx208274%_)) (let () (declare (not safe)) - (gxc#xform-call% _%ctx204844%_ _%stx204845%_)))) - _%$e204871%_) + (gxc#xform-call% _%ctx208274%_ _%stx208275%_)))) + _%$e208301%_) (let () (declare (not safe)) - (gxc#xform-call% _%ctx204844%_ _%stx204845%_)))) + (gxc#xform-call% _%ctx208274%_ _%stx208275%_)))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx204844%_ _%stx204845%_)))))) + (gxc#xform-call% _%ctx208274%_ _%stx208275%_)))))) (define gxc#!procedure::optimize-call::specialize - (lambda (__klass205301 __method-table205302) - (let ((__check-arguments205303 - (let ((__tmp206040 + (lambda (__klass208725 __method-table208726) + (let ((__check-arguments208727 + (let ((__tmp209464 (lambda () - (let ((__method205304 + (let ((__method208728 (let () (declare (not safe)) (symbolic-table-ref - __method-table205302 + __method-table208726 'check-arguments '#f)))) - (if __method205304 - __method205304 + (if __method208728 + __method208728 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp206040)))) - (lambda (_%self204843%_ _%ctx204844%_ _%stx204845%_ _%args204846%_) - (let ((_%self204849%_ _%self204843%_)) - (if ((force __check-arguments205303) - _%self204849%_ - _%ctx204844%_ - _%stx204845%_ - _%args204846%_) - (let* ((_%signature204859%_ + (__make-promise __tmp209464)))) + (lambda (_%self208273%_ _%ctx208274%_ _%stx208275%_ _%args208276%_) + (let ((_%self208279%_ _%self208273%_)) + (if ((force __check-arguments208727) + _%self208279%_ + _%ctx208274%_ + _%stx208275%_ + _%args208276%_) + (let* ((_%signature208289%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self204849%_ + _%self208279%_ '2 '#f '#f))) - (_%signature204861%_ _%signature204859%_) - (_%$e204871%_ - (if _%signature204861%_ + (_%signature208291%_ _%signature208289%_) + (_%$e208301%_ + (if _%signature208291%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature204861%_ + _%signature208291%_ '4 '#f '#f)) '#f))) - (if _%$e204871%_ - ((lambda (_%unchecked204874%_) + (if _%$e208301%_ + ((lambda (_%unchecked208304%_) (if (let () (declare (not safe)) (gxc#symbol-in-local-scope? - _%unchecked204874%_)) - (let ((__tmp206041 + _%unchecked208304%_)) + (let ((__tmp209465 (cons '%#call (cons (cons '%#ref - (cons _%unchecked204874%_ + (cons _%unchecked208304%_ '())) - (map (lambda (_%g204875204877%_) + (map (lambda (_%g208305208307%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx204844%_ - _%g204875204877%_))) - _%args204846%_))))) + _%ctx208274%_ + _%g208305208307%_))) + _%args208276%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp206041 - _%stx204845%_ - _%ctx204844%_)) + __tmp209465 + _%stx208275%_ + _%ctx208274%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx204844%_ - _%stx204845%_)))) - _%$e204871%_) + _%ctx208274%_ + _%stx208275%_)))) + _%$e208301%_) (let () (declare (not safe)) - (gxc#xform-call% _%ctx204844%_ _%stx204845%_)))) + (gxc#xform-call% _%ctx208274%_ _%stx208275%_)))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx204844%_ _%stx204845%_)))))))) + (gxc#xform-call% _%ctx208274%_ _%stx208275%_)))))))) (let () (declare (not safe)) (bind-specializer! @@ -1226,135 +1228,135 @@ gxc#!procedure::optimize-call '#f)) (define gxc#!procedure::check-arguments - (lambda (_%self204594%_ _%ctx204595%_ _%stx204596%_ _%args204597%_) - (let* ((_%self204600%_ _%self204594%_) - (_%signature204609204611%_ + (lambda (_%self208026%_ _%ctx208027%_ _%stx208028%_ _%args208029%_) + (let* ((_%self208032%_ _%self208026%_) + (_%signature208041208043%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self204600%_ '2 '#f '#f)))) - (if _%signature204609204611%_ - (let* ((_%signature204614%_ _%signature204609204611%_) - (_%argument-types204615204617%_ + (##unchecked-structure-ref _%self208032%_ '2 '#f '#f)))) + (if _%signature208041208043%_ + (let* ((_%signature208045%_ _%signature208041208043%_) + (_%argument-types208046208048%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature204614%_ + _%signature208045%_ '3 '#f '#f)))) - (if _%argument-types204615204617%_ - (let* ((_%argument-types204620%_ - _%argument-types204615204617%_) - (_%argument-types204625%_ - (let ((__tmp206042 - (lambda (_%t204623%_) - (if _%t204623%_ + (if _%argument-types208046208048%_ + (let* ((_%argument-types208050%_ + _%argument-types208046208048%_) + (_%argument-types208055%_ + (let ((__tmp209466 + (lambda (_%t208053%_) + (if _%t208053%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx204596%_ - _%t204623%_)) + _%stx208028%_ + _%t208053%_)) '#f)))) (declare (not safe)) (gxc#map* - __tmp206042 - _%argument-types204620%_)))) - (let _%loop204627%_ ((_%rest-args204629%_ _%args204597%_) - (_%rest-types204630%_ - _%argument-types204625%_) - (_%result204631%_ '#t)) - (let* ((_%rest-args204632204640%_ _%rest-args204629%_) - (_%else204634204648%_ - (lambda () _%result204631%_)) - (_%K204636204709%_ - (lambda (_%rest-args204651%_ _%arg204652%_) - (let* ((_%rest-types204653204664%_ - _%rest-types204630%_) - (_%E204657204668%_ + __tmp209466 + _%argument-types208050%_)))) + (let _%loop208057%_ ((_%rest-args208059%_ _%args208029%_) + (_%rest-types208060%_ + _%argument-types208055%_) + (_%result208061%_ '#t)) + (let* ((_%rest-args208062208070%_ _%rest-args208059%_) + (_%else208064208078%_ + (lambda () _%result208061%_)) + (_%K208066208139%_ + (lambda (_%rest-args208081%_ _%arg208082%_) + (let* ((_%rest-types208083208094%_ + _%rest-types208060%_) + (_%E208087208098%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest-types204653204664%_ + _%rest-types208083208094%_ '([type . rest-types]) '([]) '(tail-type))) '#!void))) - (let ((_%K204660204697%_ - (lambda (_%rest-types204694%_ - _%type204695%_) - (_%loop204627%_ - _%rest-args204651%_ - _%rest-types204694%_ + (let ((_%K208090208127%_ + (lambda (_%rest-types208124%_ + _%type208125%_) + (_%loop208057%_ + _%rest-args208081%_ + _%rest-types208124%_ (if (gxc#check-expression-type! - _%stx204596%_ - _%arg204652%_ - _%type204695%_) - _%result204631%_ + _%stx208028%_ + _%arg208082%_ + _%type208125%_) + _%result208061%_ '#f)))) - (_%K204659204688%_ + (_%K208089208118%_ (lambda () (let () (declare (not safe)) (gxc#raise-compile-error '"signature arity mismatch" - _%stx204596%_ - _%argument-types204625%_)))) - (_%K204658204678%_ - (lambda (_%tail-type204672%_) - (if (let ((__tmp206043 - (lambda (_%g204673204675%_) + _%stx208028%_ + _%argument-types208055%_)))) + (_%K208088208108%_ + (lambda (_%tail-type208102%_) + (if (let ((__tmp209467 + (lambda (_%g208103208105%_) (gxc#check-expression-type! - _%stx204596%_ - _%g204673204675%_ - _%tail-type204672%_)))) + _%stx208028%_ + _%g208103208105%_ + _%tail-type208102%_)))) (declare (not safe)) (__andmap1 - __tmp206043 - _%rest-args204651%_)) - _%result204631%_ + __tmp209467 + _%rest-args208081%_)) + _%result208061%_ '#f)))) - (let ((_%try-match204655204691%_ + (let ((_%try-match208085208121%_ (lambda () - (if (null? _%rest-types204653204664%_) - (_%K204659204688%_) - (let ((_%tail-type204681%_ - _%rest-types204653204664%_)) - (_%K204658204678%_ - _%tail-type204681%_)))))) - (if (pair? _%rest-types204653204664%_) - (let ((_%tl204662204702%_ + (if (null? _%rest-types208083208094%_) + (_%K208089208118%_) + (let ((_%tail-type208111%_ + _%rest-types208083208094%_)) + (_%K208088208108%_ + _%tail-type208111%_)))))) + (if (pair? _%rest-types208083208094%_) + (let ((_%tl208092208132%_ (let () (declare (not safe)) - (##cdr _%rest-types204653204664%_))) - (_%hd204661204700%_ + (##cdr _%rest-types208083208094%_))) + (_%hd208091208130%_ (let () (declare (not safe)) - (##car _%rest-types204653204664%_)))) - (let ((_%type204705%_ - _%hd204661204700%_) - (_%rest-types204707%_ - _%tl204662204702%_)) - (_%K204660204697%_ - _%rest-types204707%_ - _%type204705%_))) - (_%try-match204655204691%_)))))))) - (if (pair? _%rest-args204632204640%_) - (let ((_%hd204637204712%_ + (##car _%rest-types208083208094%_)))) + (let ((_%type208135%_ + _%hd208091208130%_) + (_%rest-types208137%_ + _%tl208092208132%_)) + (_%K208090208127%_ + _%rest-types208137%_ + _%type208135%_))) + (_%try-match208085208121%_)))))))) + (if (pair? _%rest-args208062208070%_) + (let ((_%hd208067208142%_ (let () (declare (not safe)) - (##car _%rest-args204632204640%_))) - (_%tl204638204714%_ + (##car _%rest-args208062208070%_))) + (_%tl208068208144%_ (let () (declare (not safe)) - (##cdr _%rest-args204632204640%_)))) - (let* ((_%arg204717%_ _%hd204637204712%_) - (_%rest-args204719%_ - _%tl204638204714%_)) - (_%K204636204709%_ - _%rest-args204719%_ - _%arg204717%_))) - (_%else204634204648%_))))) + (##cdr _%rest-args208062208070%_)))) + (let* ((_%arg208147%_ _%hd208067208142%_) + (_%rest-args208149%_ + _%tl208068208144%_)) + (_%K208066208139%_ + _%rest-args208149%_ + _%arg208147%_))) + (_%else208064208078%_))))) '#f)) '#f)))) (let () @@ -1365,93 +1367,93 @@ gxc#!procedure::check-arguments '#f)) (define gxc#!primitive-predicate::optimize-call - (lambda (_%self204405%_ _%ctx204406%_ _%stx204407%_ _%args204408%_) - (let* ((_%self204411%_ _%self204405%_) - (_%g204421204431%_ - (lambda (_%g204422204428%_) + (lambda (_%self207837%_ _%ctx207838%_ _%stx207839%_ _%args207840%_) + (let* ((_%self207843%_ _%self207837%_) + (_%g207853207863%_ + (lambda (_%g207854207860%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204422204428%_)))) - (_%g204420204469%_ - (lambda (_%g204422204434%_) + _%g207854207860%_)))) + (_%g207852207901%_ + (lambda (_%g207854207866%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204422204434%_)) - (let ((_%e204424204436%_ + (gx#stx-pair? _%g207854207866%_)) + (let ((_%e207856207868%_ (let () (declare (not safe)) - (gx#stx-e _%g204422204434%_)))) - (let ((_%hd204425204439%_ + (gx#stx-e _%g207854207866%_)))) + (let ((_%hd207857207871%_ (let () (declare (not safe)) - (##car _%e204424204436%_))) - (_%tl204426204441%_ + (##car _%e207856207868%_))) + (_%tl207858207873%_ (let () (declare (not safe)) - (##cdr _%e204424204436%_)))) + (##cdr _%e207856207868%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204426204441%_)) - ((lambda (_%L204444%_) - (let* ((_%klass204456%_ - (let ((__tmp206044 + (gx#stx-null? _%tl207858207873%_)) + ((lambda (_%g207855207876%_) + (let* ((_%klass207888%_ + (let ((__tmp209468 (let () (declare (not safe)) (##unchecked-structure-ref - _%self204411%_ + _%self207843%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx204407%_ - __tmp206044))) - (_%object204458%_ + _%stx207839%_ + __tmp209468))) + (_%object207890%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx204406%_ - _%L204444%_))) - (_%instance?204463%_ - (let ((_%$e204460%_ + _%ctx207838%_ + _%g207855207876%_))) + (_%instance?207895%_ + (let ((_%$e207892%_ (gxc#expression-type? - _%object204458%_ - _%klass204456%_))) - (if _%$e204460%_ - _%$e204460%_ + _%object207890%_ + _%klass207888%_))) + (if _%$e207892%_ + _%$e207892%_ (gxc#expression-type? - _%L204444%_ - _%klass204456%_))))) - (if _%instance?204463%_ - (let ((__tmp206045 + _%g207855207876%_ + _%klass207888%_))))) + (if _%instance?207895%_ + (let ((__tmp209469 (if (or (gxc#expression-no-side-effects? - _%object204458%_) + _%object207890%_) (gxc#expression-no-side-effects? - _%L204444%_)) + _%g207855207876%_)) (cons '%#quote (cons '#t '())) (cons '%#begin - (cons _%object204458%_ + (cons _%object207890%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp206045 - _%stx204407%_)) + __tmp209469 + _%stx207839%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx204406%_ - _%stx204407%_))))) - _%hd204425204439%_) - (_%g204421204431%_ _%g204422204434%_)))) - (_%g204421204431%_ _%g204422204434%_))))) - (_%g204420204469%_ _%args204408%_)))) + _%ctx207838%_ + _%stx207839%_))))) + _%hd207857207871%_) + (_%g207853207863%_ _%g207854207866%_)))) + (_%g207853207863%_ _%g207854207866%_))))) + (_%g207852207901%_ _%args207840%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -1460,136 +1462,136 @@ gxc#!primitive-predicate::optimize-call '#f)) (define gxc#!predicate::optimize-call - (lambda (_%self204201%_ _%ctx204202%_ _%stx204203%_ _%args204204%_) - (let* ((_%self204207%_ _%self204201%_) - (_%g204217204227%_ - (lambda (_%g204218204224%_) + (lambda (_%self207633%_ _%ctx207634%_ _%stx207635%_ _%args207636%_) + (let* ((_%self207639%_ _%self207633%_) + (_%g207649207659%_ + (lambda (_%g207650207656%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204218204224%_)))) - (_%g204216204280%_ - (lambda (_%g204218204230%_) + _%g207650207656%_)))) + (_%g207648207712%_ + (lambda (_%g207650207662%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204218204230%_)) - (let ((_%e204220204232%_ + (gx#stx-pair? _%g207650207662%_)) + (let ((_%e207652207664%_ (let () (declare (not safe)) - (gx#stx-e _%g204218204230%_)))) - (let ((_%hd204221204235%_ + (gx#stx-e _%g207650207662%_)))) + (let ((_%hd207653207667%_ (let () (declare (not safe)) - (##car _%e204220204232%_))) - (_%tl204222204237%_ + (##car _%e207652207664%_))) + (_%tl207654207669%_ (let () (declare (not safe)) - (##cdr _%e204220204232%_)))) + (##cdr _%e207652207664%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204222204237%_)) - ((lambda (_%L204240%_) - (let* ((_%klass204252%_ - (let ((__tmp206046 + (gx#stx-null? _%tl207654207669%_)) + ((lambda (_%g207651207672%_) + (let* ((_%klass207684%_ + (let ((__tmp209470 (let () (declare (not safe)) (##unchecked-structure-ref - _%self204207%_ + _%self207639%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx204203%_ - __tmp206046))) - (_%object204254%_ + _%stx207635%_ + __tmp209470))) + (_%object207686%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx204202%_ - _%L204240%_))) - (_%instance?204259%_ - (let ((_%$e204256%_ + _%ctx207634%_ + _%g207651207672%_))) + (_%instance?207691%_ + (let ((_%$e207688%_ (gxc#expression-type? - _%object204254%_ - _%klass204252%_))) - (if _%$e204256%_ - _%$e204256%_ + _%object207686%_ + _%klass207684%_))) + (if _%$e207688%_ + _%$e207688%_ (gxc#expression-type? - _%L204240%_ - _%klass204252%_)))) - (_%klass204262%_ _%klass204252%_)) - (if _%instance?204259%_ - (let ((__tmp206047 + _%g207651207672%_ + _%klass207684%_)))) + (_%klass207694%_ _%klass207684%_)) + (if _%instance?207691%_ + (let ((__tmp209471 (if (or (gxc#expression-no-side-effects? - _%object204254%_) + _%object207686%_) (gxc#expression-no-side-effects? - _%L204240%_)) + _%g207651207672%_)) (cons '%#quote (cons '#t '())) (cons '%#begin - (cons _%object204254%_ + (cons _%object207686%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp206047 - _%stx204203%_)) + __tmp209471 + _%stx207635%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass204262%_ + _%klass207694%_ '8 '#f '#f)) - (let ((__tmp206048 + (let ((__tmp209472 (cons '%#struct-direct-instance? (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass204262%_ + _%klass207694%_ '1 '#f '#f)) '())) - (cons _%object204254%_ '()))))) + (cons _%object207686%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp206048 - _%stx204203%_)) + __tmp209472 + _%stx207635%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass204262%_ + _%klass207694%_ '7 '#f '#f)) - (let ((__tmp206049 + (let ((__tmp209473 (cons '%#struct-instance? (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass204262%_ + _%klass207694%_ '1 '#f '#f)) '())) - (cons _%object204254%_ '()))))) + (cons _%object207686%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp206049 - _%stx204203%_)) - (let ((__tmp206050 + __tmp209473 + _%stx207635%_)) + (let ((__tmp209474 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -1598,21 +1600,21 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self204207%_ + _%self207639%_ '1 '#f '#f)) '())) - (cons _%object204254%_ '())))))) + (cons _%object207686%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp206050 - _%stx204203%_))))))) - _%hd204221204235%_) - (_%g204217204227%_ _%g204218204230%_)))) - (_%g204217204227%_ _%g204218204230%_))))) - (_%g204216204280%_ _%args204204%_)))) + __tmp209474 + _%stx207635%_))))))) + _%hd207653207667%_) + (_%g207649207659%_ _%g207650207662%_)))) + (_%g207649207659%_ _%g207650207662%_))))) + (_%g207648207712%_ _%args207636%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -1621,418 +1623,418 @@ gxc#!predicate::optimize-call '#f)) (define gxc#expression-no-side-effects? - (lambda (_%stx203864%_) - (let* ((_%__stx205445205446%_ _%stx203864%_) - (_%g203869203910%_ + (lambda (_%stx207301%_) + (let* ((_%__stx208869208870%_ _%stx207301%_) + (_%g207306207347%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx205445205446%_))))) - (let ((_%__kont205447205448%_ (lambda () '#t)) - (_%__kont205449205450%_ (lambda () '#t)) - (_%__kont205451205452%_ - (lambda (_%L203978%_ _%L203979%_) - (let ((_%rator-type204000204002%_ - (let ((__tmp206051 + _%__stx208869208870%_))))) + (let ((_%__kont208871208872%_ (lambda () '#t)) + (_%__kont208873208874%_ (lambda () '#t)) + (_%__kont208875208876%_ + (lambda (_%g207320207413%_ _%g207321207414%_) + (let ((_%rator-type207435207437%_ + (let ((__tmp209475 (let () (declare (not safe)) - (gxc#identifier-symbol _%L203979%_)))) + (gxc#identifier-symbol _%g207321207414%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp206051)))) - (if _%rator-type204000204002%_ - (let* ((_%rator-type204005%_ - _%rator-type204000204002%_) - (_%rator-signature204006204008%_ + (gxc#optimizer-resolve-type __tmp209475)))) + (if _%rator-type207435207437%_ + (let* ((_%rator-type207439%_ + _%rator-type207435207437%_) + (_%rator-signature207440207442%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type204005%_ + _%rator-type207439%_ 'gxc#!procedure::t)) (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type204005%_ + _%rator-type207439%_ '2 '#f '#f)) '#f))) - (if _%rator-signature204006204008%_ - (let* ((_%rator-signature204011%_ - _%rator-signature204006204008%_) - (_%rator-effect204012204014%_ - (if _%rator-signature204011%_ + (if _%rator-signature207440207442%_ + (let* ((_%rator-signature207444%_ + _%rator-signature207440207442%_) + (_%rator-effect207445207447%_ + (if _%rator-signature207444%_ (##direct-structure-ref - _%rator-signature204011%_ + _%rator-signature207444%_ '2 gxc#!signature::t '#f) '#f))) - (if _%rator-effect204012204014%_ - (let ((_%rator-effect204017%_ - _%rator-effect204012204014%_)) + (if _%rator-effect207445207447%_ + (let ((_%rator-effect207449%_ + _%rator-effect207445207447%_)) (if (or (equal? '(pure) - _%rator-effect204017%_) + _%rator-effect207449%_) (equal? '(alloc) - _%rator-effect204017%_)) - (let ((__tmp206052 - (let ((__tmp206053 - (lambda (_%g204022204025%_ + _%rator-effect207449%_)) + (let ((__tmp209476 + (let ((__tmp209477 + (lambda (_%g207454207457%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g204023204027%_) - (cons _%g204022204025%_ _%g204023204027%_)))) + _%g207455207459%_) + (cons _%g207454207457%_ _%g207455207459%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp206053 + __tmp209477 '() - _%L203978%_)))) + _%g207320207413%_)))) (declare (not safe)) (__andmap1 gxc#expression-no-side-effects? - __tmp206052)) + __tmp209476)) '#f)) '#f)) '#f)) '#f)))) - (_%__kont205455205456%_ (lambda () '#f))) - (let ((_%__match205534205535%_ - (lambda (_%e203885203922%_ - _%hd203886203925%_ - _%tl203887203927%_ - _%e203888203930%_ - _%hd203889203933%_ - _%tl203890203935%_ - _%e203891203938%_ - _%hd203892203941%_ - _%tl203893203943%_ - _%e203894203946%_ - _%hd203895203949%_ - _%tl203896203951%_ - _%__splice205453205454%_ - _%target203897203954%_ - _%tl203899203956%_) - (letrec ((_%loop203900203959%_ - (lambda (_%hd203898203962%_ - _%rand203904203964%_) + (_%__kont208879208880%_ (lambda () '#f))) + (let ((_%__match208958208959%_ + (lambda (_%e207322207359%_ + _%hd207323207362%_ + _%tl207324207364%_ + _%e207325207367%_ + _%hd207326207370%_ + _%tl207327207372%_ + _%e207328207375%_ + _%hd207329207378%_ + _%tl207330207380%_ + _%e207331207383%_ + _%hd207332207386%_ + _%tl207333207388%_ + _%__splice208877208878%_ + _%target207334207391%_ + _%tl207336207393%_) + (letrec ((_%loop207337207396%_ + (lambda (_%hd207335207399%_ + _%rand207341207401%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd203898203962%_)) - (let ((_%e203901203967%_ + (gx#stx-pair? _%hd207335207399%_)) + (let ((_%e207338207403%_ (let () (declare (not safe)) - (gx#stx-e _%hd203898203962%_)))) - (let ((_%lp-tl203903203972%_ + (gx#stx-e _%hd207335207399%_)))) + (let ((_%lp-tl207340207408%_ (let () (declare (not safe)) - (##cdr _%e203901203967%_))) - (_%lp-hd203902203970%_ + (##cdr _%e207338207403%_))) + (_%lp-hd207339207406%_ (let () (declare (not safe)) - (##car _%e203901203967%_)))) - (_%loop203900203959%_ - _%lp-tl203903203972%_ - (cons _%lp-hd203902203970%_ - _%rand203904203964%_)))) - (let ((_%rand203905203975%_ - (reverse _%rand203904203964%_))) - (_%__kont205451205452%_ - _%rand203905203975%_ - _%hd203895203949%_)))))) - (_%loop203900203959%_ _%target203897203954%_ '()))))) + (##car _%e207338207403%_)))) + (_%loop207337207396%_ + _%lp-tl207340207408%_ + (cons _%lp-hd207339207406%_ + _%rand207341207401%_)))) + (let ((_%rand207342207411%_ + (reverse _%rand207341207401%_))) + (_%__kont208875208876%_ + _%rand207342207411%_ + _%hd207332207386%_)))))) + (_%loop207337207396%_ _%target207334207391%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx205445205446%_)) - (let ((_%e203871204058%_ + (gx#stx-pair? _%__stx208869208870%_)) + (let ((_%e207308207490%_ (let () (declare (not safe)) - (gx#stx-e _%__stx205445205446%_)))) - (let ((_%tl203873204063%_ + (gx#stx-e _%__stx208869208870%_)))) + (let ((_%tl207310207495%_ (let () (declare (not safe)) - (##cdr _%e203871204058%_))) - (_%hd203872204061%_ + (##cdr _%e207308207490%_))) + (_%hd207309207493%_ (let () (declare (not safe)) - (##car _%e203871204058%_)))) + (##car _%e207308207490%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd203872204061%_)) + (gx#identifier? _%hd207309207493%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd203872204061%_)) + (gx#stx-eq? '%#quote _%hd207309207493%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203873204063%_)) - (let ((_%e203874204066%_ + (gx#stx-pair? _%tl207310207495%_)) + (let ((_%e207311207498%_ (let () (declare (not safe)) - (gx#stx-e _%tl203873204063%_)))) - (let ((_%tl203876204071%_ + (gx#stx-e _%tl207310207495%_)))) + (let ((_%tl207313207503%_ (let () (declare (not safe)) - (##cdr _%e203874204066%_))) - (_%hd203875204069%_ + (##cdr _%e207311207498%_))) + (_%hd207312207501%_ (let () (declare (not safe)) - (##car _%e203874204066%_)))) + (##car _%e207311207498%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203876204071%_)) - (_%__kont205447205448%_) - (_%__kont205455205456%_)))) - (_%__kont205455205456%_)) + (gx#stx-null? _%tl207313207503%_)) + (_%__kont208871208872%_) + (_%__kont208879208880%_)))) + (_%__kont208879208880%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd203872204061%_)) + (gx#stx-eq? '%#ref _%hd207309207493%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203873204063%_)) - (let ((_%e203880204043%_ + (gx#stx-pair? _%tl207310207495%_)) + (let ((_%e207317207475%_ (let () (declare (not safe)) - (gx#stx-e _%tl203873204063%_)))) - (let ((_%tl203882204048%_ + (gx#stx-e _%tl207310207495%_)))) + (let ((_%tl207319207480%_ (let () (declare (not safe)) - (##cdr _%e203880204043%_))) - (_%hd203881204046%_ + (##cdr _%e207317207475%_))) + (_%hd207318207478%_ (let () (declare (not safe)) - (##car _%e203880204043%_)))) + (##car _%e207317207475%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203882204048%_)) - (_%__kont205449205450%_) - (_%__kont205455205456%_)))) - (_%__kont205455205456%_)) + _%tl207319207480%_)) + (_%__kont208873208874%_) + (_%__kont208879208880%_)))) + (_%__kont208879208880%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd203872204061%_)) + _%hd207309207493%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203873204063%_)) - (let ((_%e203888203930%_ + (gx#stx-pair? _%tl207310207495%_)) + (let ((_%e207325207367%_ (let () (declare (not safe)) (gx#stx-e - _%tl203873204063%_)))) - (let ((_%tl203890203935%_ + _%tl207310207495%_)))) + (let ((_%tl207327207372%_ (let () (declare (not safe)) - (##cdr _%e203888203930%_))) - (_%hd203889203933%_ + (##cdr _%e207325207367%_))) + (_%hd207326207370%_ (let () (declare (not safe)) - (##car _%e203888203930%_)))) + (##car _%e207325207367%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd203889203933%_)) - (let ((_%e203891203938%_ + _%hd207326207370%_)) + (let ((_%e207328207375%_ (let () (declare (not safe)) (gx#stx-e - _%hd203889203933%_)))) - (let ((_%tl203893203943%_ + _%hd207326207370%_)))) + (let ((_%tl207330207380%_ (let () (declare (not safe)) - (##cdr _%e203891203938%_))) - (_%hd203892203941%_ + (##cdr _%e207328207375%_))) + (_%hd207329207378%_ (let () (declare (not safe)) - (##car _%e203891203938%_)))) + (##car _%e207328207375%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd203892203941%_)) + _%hd207329207378%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd203892203941%_)) + (gx#stx-eq? '%#ref _%hd207329207378%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203893203943%_)) - (let ((_%e203894203946%_ + (gx#stx-pair? _%tl207330207380%_)) + (let ((_%e207331207383%_ (let () (declare (not safe)) - (gx#stx-e _%tl203893203943%_)))) - (let ((_%tl203896203951%_ + (gx#stx-e _%tl207330207380%_)))) + (let ((_%tl207333207388%_ (let () (declare (not safe)) - (##cdr _%e203894203946%_))) - (_%hd203895203949%_ + (##cdr _%e207331207383%_))) + (_%hd207332207386%_ (let () (declare (not safe)) - (##car _%e203894203946%_)))) + (##car _%e207331207383%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203896203951%_)) + (gx#stx-null? _%tl207333207388%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl203890203935%_)) - (let ((_%__splice205453205454%_ + (gx#stx-pair/null? _%tl207327207372%_)) + (let ((_%__splice208877208878%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl203890203935%_ + _%tl207327207372%_ '0)))) - (let ((_%tl203899203956%_ + (let ((_%tl207336207393%_ (let () (declare (not safe)) (##vector-ref - _%__splice205453205454%_ + _%__splice208877208878%_ '1))) - (_%target203897203954%_ + (_%target207334207391%_ (let () (declare (not safe)) (##vector-ref - _%__splice205453205454%_ + _%__splice208877208878%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203899203956%_)) - (_%__match205534205535%_ - _%e203871204058%_ - _%hd203872204061%_ - _%tl203873204063%_ - _%e203888203930%_ - _%hd203889203933%_ - _%tl203890203935%_ - _%e203891203938%_ - _%hd203892203941%_ - _%tl203893203943%_ - _%e203894203946%_ - _%hd203895203949%_ - _%tl203896203951%_ - _%__splice205453205454%_ - _%target203897203954%_ - _%tl203899203956%_) - (_%__kont205455205456%_)))) - (_%__kont205455205456%_)) - (_%__kont205455205456%_)))) - (_%__kont205455205456%_)) - (_%__kont205455205456%_)) - (_%__kont205455205456%_)))) + _%tl207336207393%_)) + (_%__match208958208959%_ + _%e207308207490%_ + _%hd207309207493%_ + _%tl207310207495%_ + _%e207325207367%_ + _%hd207326207370%_ + _%tl207327207372%_ + _%e207328207375%_ + _%hd207329207378%_ + _%tl207330207380%_ + _%e207331207383%_ + _%hd207332207386%_ + _%tl207333207388%_ + _%__splice208877208878%_ + _%target207334207391%_ + _%tl207336207393%_) + (_%__kont208879208880%_)))) + (_%__kont208879208880%_)) + (_%__kont208879208880%_)))) + (_%__kont208879208880%_)) + (_%__kont208879208880%_)) + (_%__kont208879208880%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont205455205456%_)))) - (_%__kont205455205456%_)) - (_%__kont205455205456%_)))) - (_%__kont205455205456%_)))) - (_%__kont205455205456%_))))))) + (_%__kont208879208880%_)))) + (_%__kont208879208880%_)) + (_%__kont208879208880%_)))) + (_%__kont208879208880%_)))) + (_%__kont208879208880%_))))))) (define gxc#expression-type? - (lambda (_%stx203859%_ _%klass203860%_) - (let ((_%expr-type203862%_ + (lambda (_%stx207296%_ _%klass207297%_) + (let ((_%expr-type207299%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%stx203859%_)))) - (if _%expr-type203862%_ + (gxc#apply-basic-expression-type _%stx207296%_)))) + (if _%expr-type207299%_ (let () (declare (not safe)) - (gxc#!type-subtype? _%expr-type203862%_ _%klass203860%_)) + (gxc#!type-subtype? _%expr-type207299%_ _%klass207297%_)) '#f)))) (define gxc#check-expression-type! - (lambda (_%stx203837%_ _%expr203838%_ _%type203839%_) - (if (not _%type203839%_) + (lambda (_%stx207274%_ _%expr207275%_ _%type207276%_) + (if (not _%type207276%_) '#f - (let ((_%$e203842%_ - (eq? (##structure-ref _%type203839%_ '1 gxc#!type::t '#f) + (let ((_%$e207279%_ + (eq? (##structure-ref _%type207276%_ '1 gxc#!type::t '#f) 't))) - (if _%$e203842%_ - _%$e203842%_ - (let ((_%expr-type203846%_ + (if _%$e207279%_ + _%$e207279%_ + (let ((_%expr-type207283%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%expr203838%_)))) - (if (not _%expr-type203846%_) + (gxc#apply-basic-expression-type _%expr207275%_)))) + (if (not _%expr-type207283%_) '#f (if (eq? 't (##structure-ref - _%expr-type203846%_ + _%expr-type207283%_ '1 gxc#!type::t '#f)) '#f - (let ((_%$e203850%_ + (let ((_%$e207287%_ (let () (declare (not safe)) (##structure-instance-of? - _%expr-type203846%_ + _%expr-type207283%_ 'gxc#!abort::t)))) - (if _%$e203850%_ - _%$e203850%_ - (let ((_%$e203853%_ + (if _%$e207287%_ + _%$e207287%_ + (let ((_%$e207290%_ (let () (declare (not safe)) (gxc#!type-subtype? - _%expr-type203846%_ - _%type203839%_)))) - (if _%$e203853%_ - _%$e203853%_ + _%expr-type207283%_ + _%type207276%_)))) + (if _%$e207290%_ + _%$e207290%_ (if (let () (declare (not safe)) (gxc#!interface-instance? - _%type203839%_)) + _%type207276%_)) '#f (if (let () (declare (not safe)) (gxc#!type-subtype? - _%type203839%_ - _%expr-type203846%_)) + _%type207276%_ + _%expr-type207283%_)) '#f (let () (declare (not safe)) (gxc#raise-compile-error '"signature type mismatch" - _%stx203837%_ - _%expr203838%_ - _%expr-type203846%_ - _%type203839%_)))))))))))))))) + _%stx207274%_ + _%expr207275%_ + _%expr-type207283%_ + _%type207276%_)))))))))))))))) (define gxc#!constructor::optimize-call - (lambda (_%self203651%_ _%ctx203652%_ _%stx203653%_ _%args203654%_) - (let* ((_%self203657%_ _%self203651%_) - (_%klass203667%_ - (let ((__tmp206054 + (lambda (_%self207088%_ _%ctx207089%_ _%stx207090%_ _%args207091%_) + (let* ((_%self207094%_ _%self207088%_) + (_%klass207104%_ + (let ((__tmp209478 (let () (declare (not safe)) (##unchecked-structure-ref - _%self203657%_ + _%self207094%_ '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx203653%_ __tmp206054))) - (_%fields203669%_ + (gxc#optimizer-resolve-class _%stx207090%_ __tmp209478))) + (_%fields207106%_ (length (let () (declare (not safe)) (##unchecked-structure-ref - _%klass203667%_ + _%klass207104%_ '5 '#f '#f)))) - (_%args203675%_ - (map (lambda (_%g203670203672%_) + (_%args207112%_ + (map (lambda (_%g207107207109%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%ctx203652%_ _%g203670203672%_))) - _%args203654%_)) - (_%inline-make-object203677%_ + (gxc#compile-e__1 _%ctx207089%_ _%g207107207109%_))) + _%args207091%_)) + (_%inline-make-object207114%_ (cons '%#begin-annotation (cons (cons '@type (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203657%_ + _%self207094%_ '1 '#f '#f)) @@ -2045,66 +2047,66 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self203657%_ + _%self207094%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (make-list - _%fields203669%_ + _%fields207106%_ '(%#quote #f))))) '())))) - (_%klass203680%_ _%klass203667%_) - (_%$e203694%_ + (_%klass207117%_ _%klass207104%_) + (_%$e207131%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass203680%_ '6 '#f '#f)))) - (if _%$e203694%_ - ((lambda (_%ctor203697%_) - (let ((_%$obj203699%_ - (let ((__tmp206055 + (##unchecked-structure-ref _%klass207117%_ '6 '#f '#f)))) + (if _%$e207131%_ + ((lambda (_%ctor207134%_) + (let ((_%$obj207136%_ + (let ((__tmp209479 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp206055))) - (_%ctor-impl203700%_ + (make-symbol__0 __tmp209479))) + (_%ctor-impl207137%_ (let () (declare (not safe)) (gxc#!class-lookup-method - _%klass203680%_ - _%ctor203697%_)))) - (let ((__tmp206056 + _%klass207117%_ + _%ctor207134%_)))) + (let ((__tmp209480 (cons '%#let-values - (cons (cons (cons (cons _%$obj203699%_ '()) - (cons _%inline-make-object203677%_ + (cons (cons (cons (cons _%$obj207136%_ '()) + (cons _%inline-make-object207114%_ '())) '()) (cons (cons '%#begin - (cons (if _%ctor-impl203700%_ - (let ((__tmp206057 + (cons (if _%ctor-impl207137%_ + (let ((__tmp209481 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons (cons '%#ref - (cons _%ctor-impl203700%_ '())) + (cons _%ctor-impl207137%_ '())) (cons (cons '%#ref - (cons _%$obj203699%_ '())) - _%args203675%_))))) + (cons _%$obj207136%_ '())) + _%args207112%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp206057 - _%stx203653%_ - _%ctx203652%_)) - (let ((_%$ctor203702%_ - (let ((__tmp206058 + __tmp209481 + _%stx207090%_ + _%ctx207089%_)) + (let ((_%$ctor207139%_ + (let ((__tmp209482 (let () (declare (not safe)) (##gensym '__constructor)))) (declare (not safe)) - (make-symbol__0 __tmp206058)))) + (make-symbol__0 __tmp209482)))) (cons '%#let-values - (cons (cons (cons (cons _%$ctor203702%_ '()) + (cons (cons (cons (cons _%$ctor207139%_ '()) (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -2113,28 +2115,28 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203657%_ + _%self207094%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj203699%_ '())) + (cons (cons '%#ref (cons _%$obj207136%_ '())) (cons (cons '%#quote - (cons _%ctor203697%_ '())) + (cons _%ctor207134%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons '%#if (cons (cons '%#ref - (cons _%$ctor203702%_ + (cons _%$ctor207139%_ '())) (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$ctor203702%_ '())) - (cons (cons '%#ref (cons _%$obj203699%_ '())) - _%args203675%_))) + (cons _%$ctor207139%_ '())) + (cons (cons '%#ref (cons _%$obj207136%_ '())) + _%args207112%_))) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote @@ -2147,92 +2149,92 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self203657%_ + _%self207094%_ '1 '#f '#f)) '())) (cons (cons '%#quote (cons 'method: '())) - (cons (cons '%#quote (cons _%ctor203697%_ '())) '()))))))) + (cons (cons '%#quote (cons _%ctor207134%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (cons (cons '%#ref (cons _%$obj203699%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj207136%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp206056 _%stx203653%_)))) - _%$e203694%_) - (let ((_%$e203704%_ + (gxc#xform-wrap-source __tmp209480 _%stx207090%_)))) + _%$e207131%_) + (let ((_%$e207141%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass203680%_ + _%klass207117%_ '10 '#f '#f)))) - (if _%$e203704%_ - ((lambda (_%metaclass203707%_) - (let* ((_%$obj203709%_ - (let ((__tmp206059 + (if _%$e207141%_ + ((lambda (_%metaclass207144%_) + (let* ((_%$obj207146%_ + (let ((__tmp209483 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp206059))) - (_%metakons203711%_ - (let ((__tmp206060 + (make-symbol__0 __tmp209483))) + (_%metakons207148%_ + (let ((__tmp209484 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx203653%_ - _%metaclass203707%_)))) + _%stx207090%_ + _%metaclass207144%_)))) (declare (not safe)) (gxc#!class-lookup-method - __tmp206060 + __tmp209484 'instance-init!))) - (__tmp206061 + (__tmp209485 (cons '%#let-values - (cons (cons (cons (cons _%$obj203709%_ + (cons (cons (cons (cons _%$obj207146%_ '()) - (cons _%inline-make-object203677%_ + (cons _%inline-make-object207114%_ '())) '()) (cons (cons '%#begin - (cons (if _%metakons203711%_ + (cons (if _%metakons207148%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp206062 + (let ((__tmp209486 (cons '%#call (cons (cons '%#ref - (cons _%metakons203711%_ + (cons _%metakons207148%_ '())) (cons (cons '%#ref (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self203657%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self207094%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj203709%_ + (cons _%$obj207146%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args203675%_)))))) + _%args207112%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp206062 - _%stx203653%_ - _%ctx203652%_)) + __tmp209486 + _%stx207090%_ + _%ctx207089%_)) (cons '%#call (cons (cons '%#ref (cons 'call-method '())) (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203657%_ + _%self207094%_ '1 '#f '#f)) @@ -2241,38 +2243,38 @@ (cons 'instance-init! '())) (cons (cons '%#ref - (cons _%$obj203709%_ + (cons _%$obj207146%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args203675%_)))))) + _%args207112%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons '%#ref (cons _%$obj203709%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj207146%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp206061 _%stx203653%_))) - _%$e203704%_) + (gxc#xform-wrap-source __tmp209485 _%stx207090%_))) + _%$e207141%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass203680%_ + _%klass207117%_ '7 '#f '#f)) - (if (let ((__tmp206063 + (if (let ((__tmp209487 (let () (declare (not safe)) - (##length _%args203675%_)))) + (##length _%args207112%_)))) (declare (not safe)) - (##fx= __tmp206063 _%fields203669%_)) - (let ((__tmp206064 + (##fx= __tmp209487 _%fields207106%_)) + (let ((__tmp209488 (cons '%#begin-annotation (cons (cons '@type (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203657%_ + _%self207094%_ '1 '#f '#f)) @@ -2285,151 +2287,151 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203657%_ + _%self207094%_ '1 '#f '#f)) '())) - _%args203675%_))) + _%args207112%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp206064 - _%stx203653%_)) - (let ((__tmp206066 + __tmp209488 + _%stx207090%_)) + (let ((__tmp209490 (let () (declare (not safe)) (##unchecked-structure-ref - _%self203657%_ + _%self207094%_ '1 '#f '#f))) - (__tmp206065 + (__tmp209489 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass203680%_ + _%klass207117%_ '5 '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _%stx203653%_ - __tmp206066 - __tmp206065))) - (let ((_%$obj203716%_ - (let ((__tmp206067 + _%stx207090%_ + __tmp209490 + __tmp209489))) + (let ((_%$obj207153%_ + (let ((__tmp209491 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp206067)))) - (let _%lp203718%_ ((_%rest203720%_ _%args203675%_) - (_%initializers203721%_ '())) - (let* ((_%__stx205537205538%_ _%rest203720%_) - (_%g203725203746%_ + (make-symbol__0 __tmp209491)))) + (let _%lp207155%_ ((_%rest207157%_ _%args207112%_) + (_%initializers207158%_ '())) + (let* ((_%__stx208961208962%_ _%rest207157%_) + (_%g207162207183%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx205537205538%_))))) - (let ((_%__kont205539205540%_ - (lambda (_%L203800%_ - _%L203801%_ - _%L203802%_) - (let* ((_%slot203829%_ - (let ((__tmp206068 + _%__stx208961208962%_))))) + (let ((_%__kont208963208964%_ + (lambda (_%g207164207237%_ + _%g207165207238%_ + _%g207166207239%_) + (let* ((_%slot207266%_ + (let ((__tmp209492 (let () (declare (not safe)) (gx#stx-e - _%L203802%_)))) + _%g207166207239%_)))) (declare (not safe)) (keyword->symbol - __tmp206068))) - (_%off203831%_ + __tmp209492))) + (_%off207268%_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _%klass203680%_ - _%slot203829%_)))) - (if _%off203831%_ - (_%lp203718%_ - _%L203800%_ - (cons (cons _%off203831%_ - _%L203801%_) - _%initializers203721%_)) - (let ((__tmp206069 + _%klass207117%_ + _%slot207266%_)))) + (if _%off207268%_ + (_%lp207155%_ + _%g207164207237%_ + (cons (cons _%off207268%_ + _%g207165207238%_) + _%initializers207158%_)) + (let ((__tmp209493 (let () (declare (not safe)) (##unchecked-structure-ref - _%self203657%_ + _%self207094%_ '1 '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _%stx203653%_ - __tmp206069 - _%slot203829%_)))))) - (_%__kont205541205542%_ + _%stx207090%_ + __tmp209493 + _%slot207266%_)))))) + (_%__kont208965208966%_ (lambda () - (let ((__tmp206070 + (let ((__tmp209494 (cons '%#let-values - (cons (cons (cons (cons _%$obj203716%_ + (cons (cons (cons (cons _%$obj207153%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%inline-make-object203677%_ '())) + (cons _%inline-make-object207114%_ '())) '()) (cons (cons '%#begin - (let ((__tmp206073 + (let ((__tmp209497 (cons (cons '%#ref - (cons _%$obj203716%_ '())) + (cons _%$obj207153%_ '())) '())) - (__tmp206071 - (let ((__tmp206072 - (lambda (_%i203760%_ _%r203761%_) + (__tmp209495 + (let ((__tmp209496 + (lambda (_%i207197%_ _%r207198%_) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203657%_ + _%self207094%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons (car _%i203760%_) '())) - (cons (cons '%#ref (cons _%$obj203716%_ '())) - (cons (cdr _%i203760%_) '()))))) + (cons (cons '%#quote (cons (car _%i207197%_) '())) + (cons (cons '%#ref (cons _%$obj207153%_ '())) + (cons (cdr _%i207197%_) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r203761%_)))) + _%r207198%_)))) (declare (not safe)) (__foldl1 - __tmp206072 + __tmp209496 '() - _%initializers203721%_)))) + _%initializers207158%_)))) (declare (not safe)) - (__foldr1 cons __tmp206073 __tmp206071))) + (__foldr1 cons __tmp209497 __tmp209495))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp206070 - _%stx203653%_)))) - (_%__kont205543205544%_ + __tmp209494 + _%stx207090%_)))) + (_%__kont208967208968%_ (lambda () - (let ((__tmp206074 + (let ((__tmp209498 (cons '%#let-values - (cons (cons (cons (cons _%$obj203716%_ + (cons (cons (cons (cons _%$obj207153%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%inline-make-object203677%_ '())) + (cons _%inline-make-object207114%_ '())) '()) (cons (cons '%#begin (cons (cons '%#call @@ -2437,157 +2439,157 @@ (cons 'class-instance-init! '())) (cons (cons '%#ref - (cons _%$obj203716%_ + (cons _%$obj207153%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args203675%_))) + _%args207112%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj203716%_ '())) + (cons _%$obj207153%_ '())) '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp206074 - _%stx203653%_))))) - (let* ((_%g203723203763%_ + __tmp209498 + _%stx207090%_))))) + (let* ((_%g207160207200%_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - _%__stx205537205538%_)) - (_%__kont205541205542%_) - (_%__kont205543205544%_)))) - (_%__match205574205575%_ - (lambda (_%e203730203768%_ - _%hd203731203771%_ - _%tl203732203773%_ - _%e203733203776%_ - _%hd203734203779%_ - _%tl203735203781%_ - _%e203736203784%_ - _%hd203737203787%_ - _%tl203738203789%_ - _%e203739203792%_ - _%hd203740203795%_ - _%tl203741203797%_) - (let ((_%L203800%_ - _%tl203741203797%_) - (_%L203801%_ - _%hd203740203795%_) - (_%L203802%_ - _%hd203737203787%_)) + _%__stx208961208962%_)) + (_%__kont208965208966%_) + (_%__kont208967208968%_)))) + (_%__match208998208999%_ + (lambda (_%e207167207205%_ + _%hd207168207208%_ + _%tl207169207210%_ + _%e207170207213%_ + _%hd207171207216%_ + _%tl207172207218%_ + _%e207173207221%_ + _%hd207174207224%_ + _%tl207175207226%_ + _%e207176207229%_ + _%hd207177207232%_ + _%tl207178207234%_) + (let ((_%g207164207237%_ + _%tl207178207234%_) + (_%g207165207238%_ + _%hd207177207232%_) + (_%g207166207239%_ + _%hd207174207224%_)) (if (let () (declare (not safe)) (gx#stx-keyword? - _%L203802%_)) - (_%__kont205539205540%_ - _%L203800%_ - _%L203801%_ - _%L203802%_) - (_%__kont205543205544%_)))))) + _%g207166207239%_)) + (_%__kont208963208964%_ + _%g207164207237%_ + _%g207165207238%_ + _%g207166207239%_) + (_%__kont208967208968%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx205537205538%_)) - (let ((_%e203730203768%_ + (gx#stx-pair? _%__stx208961208962%_)) + (let ((_%e207167207205%_ (let () (declare (not safe)) (gx#stx-e - _%__stx205537205538%_)))) - (let ((_%tl203732203773%_ + _%__stx208961208962%_)))) + (let ((_%tl207169207210%_ (let () (declare (not safe)) - (##cdr _%e203730203768%_))) - (_%hd203731203771%_ + (##cdr _%e207167207205%_))) + (_%hd207168207208%_ (let () (declare (not safe)) - (##car _%e203730203768%_)))) + (##car _%e207167207205%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd203731203771%_)) - (let ((_%e203733203776%_ + _%hd207168207208%_)) + (let ((_%e207170207213%_ (let () (declare (not safe)) (gx#stx-e - _%hd203731203771%_)))) - (let ((_%tl203735203781%_ + _%hd207168207208%_)))) + (let ((_%tl207172207218%_ (let () (declare (not safe)) - (##cdr _%e203733203776%_))) - (_%hd203734203779%_ + (##cdr _%e207170207213%_))) + (_%hd207171207216%_ (let () (declare (not safe)) - (##car _%e203733203776%_)))) + (##car _%e207170207213%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd203734203779%_)) + _%hd207171207216%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd203734203779%_)) + _%hd207171207216%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl203735203781%_)) - (let ((_%e203736203784%_ + (gx#stx-pair? _%tl207172207218%_)) + (let ((_%e207173207221%_ (let () (declare (not safe)) - (gx#stx-e _%tl203735203781%_)))) - (let ((_%tl203738203789%_ + (gx#stx-e _%tl207172207218%_)))) + (let ((_%tl207175207226%_ (let () (declare (not safe)) - (##cdr _%e203736203784%_))) - (_%hd203737203787%_ + (##cdr _%e207173207221%_))) + (_%hd207174207224%_ (let () (declare (not safe)) - (##car _%e203736203784%_)))) + (##car _%e207173207221%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203738203789%_)) + (gx#stx-null? _%tl207175207226%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203732203773%_)) - (let ((_%e203739203792%_ + (gx#stx-pair? _%tl207169207210%_)) + (let ((_%e207176207229%_ (let () (declare (not safe)) - (gx#stx-e _%tl203732203773%_)))) - (let ((_%tl203741203797%_ + (gx#stx-e _%tl207169207210%_)))) + (let ((_%tl207178207234%_ (let () (declare (not safe)) - (##cdr _%e203739203792%_))) - (_%hd203740203795%_ + (##cdr _%e207176207229%_))) + (_%hd207177207232%_ (let () (declare (not safe)) - (##car _%e203739203792%_)))) - (_%__match205574205575%_ - _%e203730203768%_ - _%hd203731203771%_ - _%tl203732203773%_ - _%e203733203776%_ - _%hd203734203779%_ - _%tl203735203781%_ - _%e203736203784%_ - _%hd203737203787%_ - _%tl203738203789%_ - _%e203739203792%_ - _%hd203740203795%_ - _%tl203741203797%_))) - (_%__kont205543205544%_)) - (_%__kont205543205544%_)))) - (_%__kont205543205544%_)) - (_%__kont205543205544%_)) - (_%__kont205543205544%_)))) + (##car _%e207176207229%_)))) + (_%__match208998208999%_ + _%e207167207205%_ + _%hd207168207208%_ + _%tl207169207210%_ + _%e207170207213%_ + _%hd207171207216%_ + _%tl207172207218%_ + _%e207173207221%_ + _%hd207174207224%_ + _%tl207175207226%_ + _%e207176207229%_ + _%hd207177207232%_ + _%tl207178207234%_))) + (_%__kont208967208968%_)) + (_%__kont208967208968%_)))) + (_%__kont208967208968%_)) + (_%__kont208967208968%_)) + (_%__kont208967208968%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont205543205544%_)))) + (_%__kont208967208968%_)))) (let () (declare (not safe)) - (_%g203723203763%_))))))))))))))) + (_%g207160207200%_))))))))))))))) (let () (declare (not safe)) (__bind-method!__% @@ -2596,104 +2598,104 @@ gxc#!constructor::optimize-call '#f)) (define gxc#!accessor::optimize-call - (lambda (_%self203434%_ _%ctx203435%_ _%stx203436%_ _%args203437%_) - (let* ((_%self203440%_ _%self203434%_) - (_%arguments-ok?203450%_ - (let ((__method206018 + (lambda (_%self206871%_ _%ctx206872%_ _%stx206873%_ _%args206874%_) + (let* ((_%self206877%_ _%self206871%_) + (_%arguments-ok?206887%_ + (let ((__method209442 (let () (declare (not safe)) - (__method-ref _%self203440%_ 'check-arguments)))) - (if __method206018 + (__method-ref _%self206877%_ 'check-arguments)))) + (if __method209442 (let () (declare (not safe)) - (__method206018 - _%self203440%_ - _%ctx203435%_ - _%stx203436%_ - _%args203437%_)) + (__method209442 + _%self206877%_ + _%ctx206872%_ + _%stx206873%_ + _%args206874%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self203440%_ + _%self206877%_ 'check-arguments)) '#!void)))) - (_%g203452203462%_ - (lambda (_%g203453203459%_) + (_%g206889206899%_ + (lambda (_%g206890206896%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203453203459%_)))) - (_%g203451203526%_ - (lambda (_%g203453203465%_) + _%g206890206896%_)))) + (_%g206888206963%_ + (lambda (_%g206890206902%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203453203465%_)) - (let ((_%e203455203467%_ + (gx#stx-pair? _%g206890206902%_)) + (let ((_%e206892206904%_ (let () (declare (not safe)) - (gx#stx-e _%g203453203465%_)))) - (let ((_%hd203456203470%_ + (gx#stx-e _%g206890206902%_)))) + (let ((_%hd206893206907%_ (let () (declare (not safe)) - (##car _%e203455203467%_))) - (_%tl203457203472%_ + (##car _%e206892206904%_))) + (_%tl206894206909%_ (let () (declare (not safe)) - (##cdr _%e203455203467%_)))) + (##cdr _%e206892206904%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203457203472%_)) - ((lambda (_%L203475%_) - (let* ((_%klass203488%_ - (let ((__tmp206075 + (gx#stx-null? _%tl206894206909%_)) + ((lambda (_%g206891206912%_) + (let* ((_%klass206925%_ + (let ((__tmp209499 (let () (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx203436%_ - __tmp206075))) - (_%field203490%_ - (let ((__tmp206076 + _%stx206873%_ + __tmp209499))) + (_%field206927%_ + (let ((__tmp209500 (let () (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass203488%_ - __tmp206076))) - (_%object203492%_ + _%klass206925%_ + __tmp209500))) + (_%object206929%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx203435%_ - _%L203475%_))) - (_%klass203495%_ _%klass203488%_)) + _%ctx206872%_ + _%g206891206912%_))) + (_%klass206932%_ _%klass206925%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass203495%_ + _%klass206932%_ '8 '#f '#f)) - (let ((__tmp206077 - (cons (if (or _%arguments-ok?203450%_ + (let ((__tmp209501 + (cons (if (or _%arguments-ok?206887%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '4 '#f '#f)))) @@ -2705,32 +2707,32 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field203490%_ '())) - (cons _%object203492%_ '())))))) + (cons (cons '%#quote (cons _%field206927%_ '())) + (cons _%object206929%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp206077 - _%stx203436%_)) + __tmp209501 + _%stx206873%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass203495%_ + _%klass206932%_ '7 '#f '#f)) - (let ((__tmp206078 - (cons (if (or _%arguments-ok?203450%_ + (let ((__tmp209502 + (cons (if (or _%arguments-ok?206887%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '4 '#f '#f)))) @@ -2740,40 +2742,40 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field203490%_ '())) - (cons _%object203492%_ '())))))) + (cons (cons '%#quote (cons _%field206927%_ '())) + (cons _%object206929%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp206078 - _%stx203436%_)) - (let ((_%$e203514%_ - (let ((__tmp206079 + __tmp209502 + _%stx206873%_)) + (let ((_%$e206951%_ + (let ((__tmp209503 (let () (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass203495%_ - __tmp206079)))) - (if _%$e203514%_ - ((lambda (_%klass203517%_) - (let ((__tmp206080 - (cons (if (or _%arguments-ok?203450%_ + _%klass206932%_ + __tmp209503)))) + (if _%$e206951%_ + ((lambda (_%klass206954%_) + (let ((__tmp209504 + (cons (if (or _%arguments-ok?206887%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '4 '#f '#f)))) @@ -2783,36 +2785,36 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field203490%_ '())) - (cons _%object203492%_ '())))))) + (cons (cons '%#quote (cons _%field206927%_ '())) + (cons _%object206929%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp206080 _%stx203436%_))) + (gxc#xform-wrap-source __tmp209504 _%stx206873%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e203514%_) + _%$e206951%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '4 '#f '#f)) - (let ((__tmp206081 - (let ((_%$obj203523%_ + (let ((__tmp209505 + (let ((_%$obj206960%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp206082 + (let ((__tmp209506 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp206082)))) + (make-symbol__0 __tmp209506)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj203523%_ '()) - (cons _%object203492%_ '())) + (cons (cons (cons (cons _%$obj206960%_ '()) + (cons _%object206929%_ '())) '()) (cons (cons '%#if (cons (cons '%#struct-direct-instance? @@ -2821,12 +2823,12 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass203495%_ + _%klass206932%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj203523%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj206960%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#struct-unchecked-ref (cons (cons '%#ref @@ -2834,27 +2836,27 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field203490%_ '())) + (cons (cons '%#quote (cons _%field206927%_ '())) (cons (cons '%#ref - (cons _%$obj203523%_ '())) + (cons _%$obj206960%_ '())) '())))) - (cons (if _%arguments-ok?203450%_ + (cons (if _%arguments-ok?206887%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) (cons (cons '%#ref - (cons _%$obj203523%_ '())) + (cons _%$obj206960%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '3 '#f '#f)) @@ -2869,20 +2871,20 @@ (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '1 '#f '#f)) '())) (cons (cons '%#ref - (cons _%$obj203523%_ + (cons _%$obj206960%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '3 '#f '#f)) @@ -2893,144 +2895,144 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp206081 _%stx203436%_)) + (gxc#xform-wrap-source __tmp209505 _%stx206873%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp206083 + (let ((__tmp209507 (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'unchecked-slot-ref '())) - (cons _%object203492%_ + (cons _%object206929%_ (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '3 '#f '#f)) '())) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp206083 _%stx203436%_))))))))) + (gxc#xform-wrap-source __tmp209507 _%stx206873%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd203456203470%_) - (_%g203452203462%_ _%g203453203465%_)))) - (_%g203452203462%_ _%g203453203465%_))))) - (_%g203451203526%_ _%args203437%_)))) + _%hd206893206907%_) + (_%g206889206899%_ _%g206890206902%_)))) + (_%g206889206899%_ _%g206890206902%_))))) + (_%g206888206963%_ _%args206874%_)))) (define gxc#!accessor::optimize-call::specialize - (lambda (__klass205305 __method-table205306) - (let ((__check-arguments205307 - (let ((__tmp206084 + (lambda (__klass208729 __method-table208730) + (let ((__check-arguments208731 + (let ((__tmp209508 (lambda () - (let ((__method205308 + (let ((__method208732 (let () (declare (not safe)) (symbolic-table-ref - __method-table205306 + __method-table208730 'check-arguments '#f)))) - (if __method205308 - __method205308 + (if __method208732 + __method208732 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp206084))) - (__slot205309 - (let ((__slot205310 + (__make-promise __tmp209508))) + (__slot208733 + (let ((__slot208734 (let () (declare (not safe)) - (class-slot-offset __klass205305 'slot)))) - (if __slot205310 - __slot205310 + (class-slot-offset __klass208729 'slot)))) + (if __slot208734 + __slot208734 (let () (declare (not safe)) (error '"Unknown slot" 'slot)))))) - (lambda (_%self203434%_ _%ctx203435%_ _%stx203436%_ _%args203437%_) - (let* ((_%self203440%_ _%self203434%_) - (_%arguments-ok?203450%_ - ((force __check-arguments205307) - _%self203440%_ - _%ctx203435%_ - _%stx203436%_ - _%args203437%_)) - (_%g203452203462%_ - (lambda (_%g203453203459%_) + (lambda (_%self206871%_ _%ctx206872%_ _%stx206873%_ _%args206874%_) + (let* ((_%self206877%_ _%self206871%_) + (_%arguments-ok?206887%_ + ((force __check-arguments208731) + _%self206877%_ + _%ctx206872%_ + _%stx206873%_ + _%args206874%_)) + (_%g206889206899%_ + (lambda (_%g206890206896%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203453203459%_)))) - (_%g203451203526%_ - (lambda (_%g203453203465%_) + _%g206890206896%_)))) + (_%g206888206963%_ + (lambda (_%g206890206902%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203453203465%_)) - (let ((_%e203455203467%_ + (gx#stx-pair? _%g206890206902%_)) + (let ((_%e206892206904%_ (let () (declare (not safe)) - (gx#stx-e _%g203453203465%_)))) - (let ((_%hd203456203470%_ + (gx#stx-e _%g206890206902%_)))) + (let ((_%hd206893206907%_ (let () (declare (not safe)) - (##car _%e203455203467%_))) - (_%tl203457203472%_ + (##car _%e206892206904%_))) + (_%tl206894206909%_ (let () (declare (not safe)) - (##cdr _%e203455203467%_)))) + (##cdr _%e206892206904%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203457203472%_)) - ((lambda (_%L203475%_) - (let* ((_%klass203488%_ - (let ((__tmp206085 + (gx#stx-null? _%tl206894206909%_)) + ((lambda (_%g206891206912%_) + (let* ((_%klass206925%_ + (let ((__tmp209509 (let () (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx203436%_ - __tmp206085))) - (_%field203490%_ - (let ((__tmp206086 + _%stx206873%_ + __tmp209509))) + (_%field206927%_ + (let ((__tmp209510 (let () (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass203488%_ - __tmp206086))) - (_%object203492%_ + _%klass206925%_ + __tmp209510))) + (_%object206929%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx203435%_ - _%L203475%_))) - (_%klass203495%_ _%klass203488%_)) + _%ctx206872%_ + _%g206891206912%_))) + (_%klass206932%_ _%klass206925%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass203495%_ + _%klass206932%_ '8 '#f '#f)) - (let ((__tmp206087 - (cons (if (or _%arguments-ok?203450%_ + (let ((__tmp209511 + (cons (if (or _%arguments-ok?206887%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '4 '#f '#f)))) @@ -3040,32 +3042,32 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field203490%_ '())) - (cons _%object203492%_ '())))))) + (cons (cons '%#quote (cons _%field206927%_ '())) + (cons _%object206929%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp206087 - _%stx203436%_)) + __tmp209511 + _%stx206873%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass203495%_ + _%klass206932%_ '7 '#f '#f)) - (let ((__tmp206088 - (cons (if (or _%arguments-ok?203450%_ + (let ((__tmp209512 + (cons (if (or _%arguments-ok?206887%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '4 '#f '#f)))) @@ -3075,37 +3077,37 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field203490%_ '())) - (cons _%object203492%_ '())))))) + (cons (cons '%#quote (cons _%field206927%_ '())) + (cons _%object206929%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp206088 - _%stx203436%_)) - (let ((_%$e203514%_ - (let ((__tmp206089 + __tmp209512 + _%stx206873%_)) + (let ((_%$e206951%_ + (let ((__tmp209513 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self203440%_ '3 '#f '#f)))) + (##unchecked-structure-ref _%self206877%_ '3 '#f '#f)))) (declare (not safe)) - (gxc#!class-slot-find-struct _%klass203495%_ __tmp206089)))) + (gxc#!class-slot-find-struct _%klass206932%_ __tmp209513)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e203514%_ - ((lambda (_%klass203517%_) - (let ((__tmp206090 - (cons (if (or _%arguments-ok?203450%_ + (if _%$e206951%_ + ((lambda (_%klass206954%_) + (let ((__tmp209514 + (cons (if (or _%arguments-ok?206887%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '4 '#f '#f)))) @@ -3115,37 +3117,37 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field203490%_ '())) - (cons _%object203492%_ '())))))) + (cons _%field206927%_ '())) + (cons _%object206929%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp206090 _%stx203436%_))) - _%$e203514%_) + (gxc#xform-wrap-source __tmp209514 _%stx206873%_))) + _%$e206951%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '4 '#f '#f)) - (let ((__tmp206091 - (let ((_%$obj203523%_ + (let ((__tmp209515 + (let ((_%$obj206960%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp206092 + (let ((__tmp209516 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp206092)))) + (make-symbol__0 __tmp209516)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj203523%_ '()) - (cons _%object203492%_ '())) + (cons (cons (cons (cons _%$obj206960%_ '()) + (cons _%object206929%_ '())) '()) (cons (cons '%#if (cons (cons '%#struct-direct-instance? @@ -3154,43 +3156,43 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass203495%_ + _%klass206932%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj203523%_ '())) + (cons (cons '%#ref (cons _%$obj206960%_ '())) '()))) (cons (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field203490%_ '())) + (cons _%field206927%_ '())) (cons (cons '%#ref - (cons _%$obj203523%_ '())) + (cons _%$obj206960%_ '())) '())))) - (cons (if _%arguments-ok?203450%_ + (cons (if _%arguments-ok?206887%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) (cons (cons '%#ref - (cons _%$obj203523%_ + (cons _%$obj206960%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ - __slot205309 + _%self206877%_ + __slot208733 '#f '#f)) '())) @@ -3204,18 +3206,18 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self203440%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self206877%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj203523%_ + (cons _%$obj206960%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '3 '#f '#f)) @@ -3226,30 +3228,30 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp206091 _%stx203436%_)) - (let ((__tmp206093 + (gxc#xform-wrap-source __tmp209515 _%stx206873%_)) + (let ((__tmp209517 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) - (cons _%object203492%_ + (cons _%object206929%_ (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203440%_ + _%self206877%_ '3 '#f '#f)) '())) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp206093 _%stx203436%_))))))))) + (gxc#xform-wrap-source __tmp209517 _%stx206873%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd203456203470%_) - (_%g203452203462%_ _%g203453203465%_)))) - (_%g203452203462%_ _%g203453203465%_))))) - (_%g203451203526%_ _%args203437%_)))))) + _%hd206893206907%_) + (_%g206889206899%_ _%g206890206902%_)))) + (_%g206889206899%_ _%g206890206902%_))))) + (_%g206888206963%_ _%args206874%_)))))) (let () (declare (not safe)) (bind-specializer! @@ -3263,126 +3265,127 @@ gxc#!accessor::optimize-call '#f)) (define gxc#!mutator::optimize-call - (lambda (_%self203198%_ _%ctx203199%_ _%stx203200%_ _%args203201%_) - (let* ((_%self203204%_ _%self203198%_) - (_%arguments-ok?203214%_ - (let ((__method206019 + (lambda (_%self206635%_ _%ctx206636%_ _%stx206637%_ _%args206638%_) + (let* ((_%self206641%_ _%self206635%_) + (_%arguments-ok?206651%_ + (let ((__method209443 (let () (declare (not safe)) - (__method-ref _%self203204%_ 'check-arguments)))) - (if __method206019 + (__method-ref _%self206641%_ 'check-arguments)))) + (if __method209443 (let () (declare (not safe)) - (__method206019 - _%self203204%_ - _%ctx203199%_ - _%stx203200%_ - _%args203201%_)) + (__method209443 + _%self206641%_ + _%ctx206636%_ + _%stx206637%_ + _%args206638%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self203204%_ + _%self206641%_ 'check-arguments)) '#!void)))) - (_%g203216203230%_ - (lambda (_%g203217203227%_) + (_%g206653206667%_ + (lambda (_%g206654206664%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203217203227%_)))) - (_%g203215203309%_ - (lambda (_%g203217203233%_) + _%g206654206664%_)))) + (_%g206652206746%_ + (lambda (_%g206654206670%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203217203233%_)) - (let ((_%e203220203235%_ + (gx#stx-pair? _%g206654206670%_)) + (let ((_%e206657206672%_ (let () (declare (not safe)) - (gx#stx-e _%g203217203233%_)))) - (let ((_%hd203221203238%_ + (gx#stx-e _%g206654206670%_)))) + (let ((_%hd206658206675%_ (let () (declare (not safe)) - (##car _%e203220203235%_))) - (_%tl203222203240%_ + (##car _%e206657206672%_))) + (_%tl206659206677%_ (let () (declare (not safe)) - (##cdr _%e203220203235%_)))) + (##cdr _%e206657206672%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203222203240%_)) - (let ((_%e203223203243%_ + (gx#stx-pair? _%tl206659206677%_)) + (let ((_%e206660206680%_ (let () (declare (not safe)) - (gx#stx-e _%tl203222203240%_)))) - (let ((_%hd203224203246%_ + (gx#stx-e _%tl206659206677%_)))) + (let ((_%hd206661206683%_ (let () (declare (not safe)) - (##car _%e203223203243%_))) - (_%tl203225203248%_ + (##car _%e206660206680%_))) + (_%tl206662206685%_ (let () (declare (not safe)) - (##cdr _%e203223203243%_)))) + (##cdr _%e206660206680%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203225203248%_)) - ((lambda (_%L203251%_ _%L203252%_) - (let* ((_%klass203268%_ - (let ((__tmp206094 + (gx#stx-null? _%tl206662206685%_)) + ((lambda (_%g206655206688%_ + _%g206656206689%_) + (let* ((_%klass206705%_ + (let ((__tmp209518 (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx203200%_ - __tmp206094))) - (_%field203270%_ - (let ((__tmp206095 + _%stx206637%_ + __tmp209518))) + (_%field206707%_ + (let ((__tmp209519 (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass203268%_ - __tmp206095))) - (_%object203272%_ + _%klass206705%_ + __tmp209519))) + (_%object206709%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx203199%_ - _%L203252%_))) - (_%value203274%_ + _%ctx206636%_ + _%g206656206689%_))) + (_%value206711%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx203199%_ - _%L203251%_))) - (_%klass203277%_ - _%klass203268%_)) + _%ctx206636%_ + _%g206655206688%_))) + (_%klass206714%_ + _%klass206705%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass203277%_ + _%klass206714%_ '8 '#f '#f)) - (let ((__tmp206096 - (cons (if (or _%arguments-ok?203214%_ + (let ((__tmp209520 + (cons (if (or _%arguments-ok?206651%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '4 '#f '#f)))) @@ -3392,33 +3395,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field203270%_ '())) - (cons _%object203272%_ - (cons _%value203274%_ '()))))))) + (cons (cons '%#quote (cons _%field206707%_ '())) + (cons _%object206709%_ + (cons _%value206711%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp206096 - _%stx203200%_)) + __tmp209520 + _%stx206637%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass203277%_ + _%klass206714%_ '7 '#f '#f)) - (let ((__tmp206097 - (cons (if (or _%arguments-ok?203214%_ + (let ((__tmp209521 + (cons (if (or _%arguments-ok?206651%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '4 '#f '#f)))) @@ -3428,43 +3431,43 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field203270%_ '())) - (cons _%object203272%_ - (cons _%value203274%_ '()))))))) + (cons (cons '%#quote (cons _%field206707%_ '())) + (cons _%object206709%_ + (cons _%value206711%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp206097 - _%stx203200%_)) - (let ((_%$e203297%_ - (let ((__tmp206098 + __tmp209521 + _%stx206637%_)) + (let ((_%$e206734%_ + (let ((__tmp209522 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass203277%_ - __tmp206098)))) + _%klass206714%_ + __tmp209522)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e203297%_ - ((lambda (_%klass203300%_) - (let ((__tmp206099 + (if _%$e206734%_ + ((lambda (_%klass206737%_) + (let ((__tmp209523 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (if (or _%arguments-ok?203214%_ + (cons (if (or _%arguments-ok?206651%_ (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '3 '#f '#f)))) @@ -3474,33 +3477,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field203270%_ '())) - (cons _%object203272%_ - (cons _%value203274%_ + (cons _%field206707%_ '())) + (cons _%object206709%_ + (cons _%value206711%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp206099 _%stx203200%_))) - _%$e203297%_) + (gxc#xform-wrap-source __tmp209523 _%stx206637%_))) + _%$e206734%_) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self203204%_ '4 '#f '#f)) - (let ((__tmp206100 - (let ((_%$obj203306%_ - (let ((__tmp206101 + (##unchecked-structure-ref _%self206641%_ '4 '#f '#f)) + (let ((__tmp209524 + (let ((_%$obj206743%_ + (let ((__tmp209525 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp206101)))) + (make-symbol__0 __tmp209525)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj203306%_ '()) - (cons _%object203272%_ + (cons (cons (cons (cons _%$obj206743%_ '()) + (cons _%object206709%_ '())) '()) (cons (cons '%#if @@ -3510,49 +3513,49 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass203277%_ + _%klass206714%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj203306%_ '())) + (cons (cons '%#ref (cons _%$obj206743%_ '())) '()))) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field203270%_ '())) + (cons _%field206707%_ '())) (cons (cons '%#ref - (cons _%$obj203306%_ + (cons _%$obj206743%_ '())) - (cons _%value203274%_ + (cons _%value206711%_ '()))))) - (cons (if _%arguments-ok?203214%_ + (cons (if _%arguments-ok?206651%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) (cons (cons '%#ref - (cons _%$obj203306%_ + (cons _%$obj206743%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '3 '#f '#f)) '())) - (cons _%value203274%_ '()))))) + (cons _%value206711%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '%#call (cons (cons '%#ref @@ -3563,185 +3566,186 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj203306%_ '())) + (cons (cons '%#ref (cons _%$obj206743%_ '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '3 '#f '#f)) '())) - (cons _%value203274%_ '()))))))) + (cons _%value206711%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp206100 _%stx203200%_)) - (let ((__tmp206102 + (gxc#xform-wrap-source __tmp209524 _%stx206637%_)) + (let ((__tmp209526 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) - (cons _%object203272%_ + (cons _%object206709%_ (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '3 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%value203274%_ + (cons _%value206711%_ '()))))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp206102 - _%stx203200%_))))))))) + __tmp209526 + _%stx206637%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd203224203246%_ - _%hd203221203238%_) - (_%g203216203230%_ _%g203217203233%_)))) - (_%g203216203230%_ _%g203217203233%_)))) - (_%g203216203230%_ _%g203217203233%_))))) - (_%g203215203309%_ _%args203201%_)))) + _%hd206661206683%_ + _%hd206658206675%_) + (_%g206653206667%_ _%g206654206670%_)))) + (_%g206653206667%_ _%g206654206670%_)))) + (_%g206653206667%_ _%g206654206670%_))))) + (_%g206652206746%_ _%args206638%_)))) (define gxc#!mutator::optimize-call::specialize - (lambda (__klass205311 __method-table205312) - (let ((__check-arguments205313 - (let ((__tmp206103 + (lambda (__klass208735 __method-table208736) + (let ((__check-arguments208737 + (let ((__tmp209527 (lambda () - (let ((__method205314 + (let ((__method208738 (let () (declare (not safe)) (symbolic-table-ref - __method-table205312 + __method-table208736 'check-arguments '#f)))) - (if __method205314 - __method205314 + (if __method208738 + __method208738 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp206103)))) - (lambda (_%self203198%_ _%ctx203199%_ _%stx203200%_ _%args203201%_) - (let* ((_%self203204%_ _%self203198%_) - (_%arguments-ok?203214%_ - ((force __check-arguments205313) - _%self203204%_ - _%ctx203199%_ - _%stx203200%_ - _%args203201%_)) - (_%g203216203230%_ - (lambda (_%g203217203227%_) + (__make-promise __tmp209527)))) + (lambda (_%self206635%_ _%ctx206636%_ _%stx206637%_ _%args206638%_) + (let* ((_%self206641%_ _%self206635%_) + (_%arguments-ok?206651%_ + ((force __check-arguments208737) + _%self206641%_ + _%ctx206636%_ + _%stx206637%_ + _%args206638%_)) + (_%g206653206667%_ + (lambda (_%g206654206664%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203217203227%_)))) - (_%g203215203309%_ - (lambda (_%g203217203233%_) + _%g206654206664%_)))) + (_%g206652206746%_ + (lambda (_%g206654206670%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203217203233%_)) - (let ((_%e203220203235%_ + (gx#stx-pair? _%g206654206670%_)) + (let ((_%e206657206672%_ (let () (declare (not safe)) - (gx#stx-e _%g203217203233%_)))) - (let ((_%hd203221203238%_ + (gx#stx-e _%g206654206670%_)))) + (let ((_%hd206658206675%_ (let () (declare (not safe)) - (##car _%e203220203235%_))) - (_%tl203222203240%_ + (##car _%e206657206672%_))) + (_%tl206659206677%_ (let () (declare (not safe)) - (##cdr _%e203220203235%_)))) + (##cdr _%e206657206672%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203222203240%_)) - (let ((_%e203223203243%_ + (gx#stx-pair? _%tl206659206677%_)) + (let ((_%e206660206680%_ (let () (declare (not safe)) - (gx#stx-e _%tl203222203240%_)))) - (let ((_%hd203224203246%_ + (gx#stx-e _%tl206659206677%_)))) + (let ((_%hd206661206683%_ (let () (declare (not safe)) - (##car _%e203223203243%_))) - (_%tl203225203248%_ + (##car _%e206660206680%_))) + (_%tl206662206685%_ (let () (declare (not safe)) - (##cdr _%e203223203243%_)))) + (##cdr _%e206660206680%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203225203248%_)) - ((lambda (_%L203251%_ _%L203252%_) - (let* ((_%klass203268%_ - (let ((__tmp206104 + (gx#stx-null? _%tl206662206685%_)) + ((lambda (_%g206655206688%_ + _%g206656206689%_) + (let* ((_%klass206705%_ + (let ((__tmp209528 (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx203200%_ - __tmp206104))) - (_%field203270%_ - (let ((__tmp206105 + _%stx206637%_ + __tmp209528))) + (_%field206707%_ + (let ((__tmp209529 (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass203268%_ - __tmp206105))) - (_%object203272%_ + _%klass206705%_ + __tmp209529))) + (_%object206709%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx203199%_ - _%L203252%_))) - (_%value203274%_ + _%ctx206636%_ + _%g206656206689%_))) + (_%value206711%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx203199%_ - _%L203251%_))) - (_%klass203277%_ - _%klass203268%_)) + _%ctx206636%_ + _%g206655206688%_))) + (_%klass206714%_ + _%klass206705%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass203277%_ + _%klass206714%_ '8 '#f '#f)) - (let ((__tmp206106 - (cons (if (or _%arguments-ok?203214%_ + (let ((__tmp209530 + (cons (if (or _%arguments-ok?206651%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '4 '#f '#f)))) @@ -3751,33 +3755,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field203270%_ '())) - (cons _%object203272%_ - (cons _%value203274%_ '()))))))) + (cons (cons '%#quote (cons _%field206707%_ '())) + (cons _%object206709%_ + (cons _%value206711%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp206106 - _%stx203200%_)) + __tmp209530 + _%stx206637%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass203277%_ + _%klass206714%_ '7 '#f '#f)) - (let ((__tmp206107 - (cons (if (or _%arguments-ok?203214%_ + (let ((__tmp209531 + (cons (if (or _%arguments-ok?206651%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '4 '#f '#f)))) @@ -3787,38 +3791,38 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field203270%_ '())) - (cons _%object203272%_ - (cons _%value203274%_ '()))))))) + (cons _%field206707%_ '())) + (cons _%object206709%_ + (cons _%value206711%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp206107 _%stx203200%_)) - (let ((_%$e203297%_ - (let ((__tmp206108 + (gxc#xform-wrap-source __tmp209531 _%stx206637%_)) + (let ((_%$e206734%_ + (let ((__tmp209532 (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass203277%_ - __tmp206108)))) - (if _%$e203297%_ - ((lambda (_%klass203300%_) - (let ((__tmp206109 - (cons (if (or _%arguments-ok?203214%_ + _%klass206714%_ + __tmp209532)))) + (if _%$e206734%_ + ((lambda (_%klass206737%_) + (let ((__tmp209533 + (cons (if (or _%arguments-ok?206651%_ (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '3 '#f '#f)))) @@ -3828,39 +3832,39 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field203270%_ + (cons _%field206707%_ '())) - (cons _%object203272%_ - (cons _%value203274%_ + (cons _%object206709%_ + (cons _%value206711%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp206109 _%stx203200%_))) - _%$e203297%_) + (gxc#xform-wrap-source __tmp209533 _%stx206637%_))) + _%$e206734%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '4 '#f '#f)) - (let ((__tmp206110 - (let ((_%$obj203306%_ - (let ((__tmp206111 + (let ((__tmp209534 + (let ((_%$obj206743%_ + (let ((__tmp209535 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp206111)))) + (make-symbol__0 __tmp209535)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj203306%_ + (cons (cons (cons (cons _%$obj206743%_ '()) - (cons _%object203272%_ + (cons _%object206709%_ '())) '()) (cons (cons '%#if @@ -3870,52 +3874,52 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass203277%_ + _%klass206714%_ '1 '#f '#f)) '())) (cons (cons '%#ref - (cons _%$obj203306%_ '())) + (cons _%$obj206743%_ '())) '()))) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field203270%_ + (cons _%field206707%_ '())) (cons (cons '%#ref - (cons _%$obj203306%_ + (cons _%$obj206743%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%value203274%_ '()))))) + (cons _%value206711%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (if _%arguments-ok?203214%_ + (cons (if _%arguments-ok?206651%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) (cons (cons '%#ref - (cons _%$obj203306%_ + (cons _%$obj206743%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '3 '#f '#f)) '())) - (cons _%value203274%_ '()))))) + (cons _%value206711%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '%#call (cons (cons '%#ref @@ -3926,58 +3930,58 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj203306%_ '())) + (cons (cons '%#ref (cons _%$obj206743%_ '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '3 '#f '#f)) '())) - (cons _%value203274%_ '()))))))) + (cons _%value206711%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp206110 _%stx203200%_)) - (let ((__tmp206112 + (gxc#xform-wrap-source __tmp209534 _%stx206637%_)) + (let ((__tmp209536 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) - (cons _%object203272%_ + (cons _%object206709%_ (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self203204%_ + _%self206641%_ '3 '#f '#f)) '())) - (cons _%value203274%_ '()))))))) + (cons _%value206711%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp206112 - _%stx203200%_))))))))) + __tmp209536 + _%stx206637%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd203224203246%_ - _%hd203221203238%_) - (_%g203216203230%_ - _%g203217203233%_)))) - (_%g203216203230%_ _%g203217203233%_)))) - (_%g203216203230%_ _%g203217203233%_))))) - (_%g203215203309%_ _%args203201%_)))))) + _%hd206661206683%_ + _%hd206658206675%_) + (_%g206653206667%_ + _%g206654206670%_)))) + (_%g206653206667%_ _%g206654206670%_)))) + (_%g206653206667%_ _%g206654206670%_))))) + (_%g206652206746%_ _%args206638%_)))))) (let () (declare (not safe)) (bind-specializer! @@ -3991,96 +3995,96 @@ gxc#!mutator::optimize-call '#f)) (define gxc#!lambda::optimize-call - (lambda (_%self203013%_ _%ctx203014%_ _%stx203015%_ _%args203016%_) - (let* ((_%self203019%_ _%self203013%_) - (_%self203028203038%_ _%self203019%_) - (_%E203030203042%_ + (lambda (_%self206451%_ _%ctx206452%_ _%stx206453%_ _%args206454%_) + (let* ((_%self206457%_ _%self206451%_) + (_%self206466206476%_ _%self206457%_) + (_%E206468206479%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self203028203038%_ + _%self206466206476%_ '((!lambda _ _ arity dispatch inline)))) '#!void)) - (_%K203031203052%_ - (lambda (_%inline203045%_ _%dispatch203046%_ _%arity203047%_) + (_%K206469206489%_ + (lambda (_%inline206482%_ _%dispatch206483%_ _%arity206484%_) (if (let () (declare (not safe)) (gxc#!lambda-arity-match? - _%self203019%_ - _%args203016%_)) + _%self206457%_ + _%args206454%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal lambda application; arity mismatch" - _%stx203015%_ - _%arity203047%_))) - (if _%inline203045%_ + _%stx206453%_ + _%arity206484%_))) + (if _%inline206482%_ (let () (let () (declare (not safe)) (gxc#verbose '"inline lambda")) - (let ((__tmp206113 (_%inline203045%_ _%stx203015%_))) + (let ((__tmp209537 (_%inline206482%_ _%stx206453%_))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp206113 - _%stx203015%_ - _%ctx203014%_))) - (if (and _%dispatch203046%_ + __tmp209537 + _%stx206453%_ + _%ctx206452%_))) + (if (and _%dispatch206483%_ (let () (declare (not safe)) (gxc#symbol-in-local-scope? - _%dispatch203046%_))) + _%dispatch206483%_))) (let () (let () (declare (not safe)) (gxc#verbose '"dispatch lambda => " - _%dispatch203046%_)) - (let ((__tmp206114 + _%dispatch206483%_)) + (let ((__tmp209538 (cons '%#call (cons (cons '%#ref - (cons _%dispatch203046%_ + (cons _%dispatch206483%_ '())) - _%args203016%_)))) + _%args206454%_)))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp206114 - _%stx203015%_ - _%ctx203014%_))) + __tmp209538 + _%stx206453%_ + _%ctx206452%_))) (gxc#!procedure::optimize-call - _%self203019%_ - _%ctx203014%_ - _%stx203015%_ - _%args203016%_))))) - (_%e203032203055%_ + _%self206457%_ + _%ctx206452%_ + _%stx206453%_ + _%args206454%_))))) + (_%e206470206492%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self203028203038%_ '1 '#f '#f))) - (_%e203033203058%_ + (##unchecked-structure-ref _%self206466206476%_ '1 '#f '#f))) + (_%e206471206495%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self203028203038%_ '2 '#f '#f))) - (_%e203034203061%_ + (##unchecked-structure-ref _%self206466206476%_ '2 '#f '#f))) + (_%e206472206498%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self203028203038%_ '3 '#f '#f))) - (_%arity203064%_ _%e203034203061%_) - (_%e203035203066%_ + (##unchecked-structure-ref _%self206466206476%_ '3 '#f '#f))) + (_%arity206501%_ _%e206472206498%_) + (_%e206473206503%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self203028203038%_ '4 '#f '#f))) - (_%dispatch203069%_ _%e203035203066%_) - (_%e203036203071%_ + (##unchecked-structure-ref _%self206466206476%_ '4 '#f '#f))) + (_%dispatch206506%_ _%e206473206503%_) + (_%e206474206508%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self203028203038%_ '5 '#f '#f))) - (_%inline203074%_ _%e203036203071%_)) - (_%K203031203052%_ - _%inline203074%_ - _%dispatch203069%_ - _%arity203064%_)))) + (##unchecked-structure-ref _%self206466206476%_ '5 '#f '#f))) + (_%inline206511%_ _%e206474206508%_)) + (_%K206469206489%_ + _%inline206511%_ + _%dispatch206506%_ + _%arity206501%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -4089,62 +4093,62 @@ gxc#!lambda::optimize-call '#f)) (define gxc#!case-lambda::optimize-call - (lambda (_%self202865%_ _%ctx202866%_ _%stx202867%_ _%args202868%_) - (let* ((_%self202871%_ _%self202865%_) - (_%$e202885%_ - (let ((__tmp206116 - (lambda (_%g202880202882%_) + (lambda (_%self206303%_ _%ctx206304%_ _%stx206305%_ _%args206306%_) + (let* ((_%self206309%_ _%self206303%_) + (_%$e206323%_ + (let ((__tmp209540 + (lambda (_%g206318206320%_) (let () (declare (not safe)) (gxc#!lambda-arity-match? - _%g202880202882%_ - _%args202868%_)))) - (__tmp206115 + _%g206318206320%_ + _%args206306%_)))) + (__tmp209539 (let () (declare (not safe)) (##unchecked-structure-ref - _%self202871%_ + _%self206309%_ '3 '#f '#f)))) (declare (not safe)) - (__find __tmp206116 __tmp206115)))) - (if _%$e202885%_ - ((lambda (_%clause202888%_) - (let ((__method206020 + (__find __tmp209540 __tmp209539)))) + (if _%$e206323%_ + ((lambda (_%clause206326%_) + (let ((__method209444 (let () (declare (not safe)) - (__method-ref _%clause202888%_ 'optimize-call)))) - (if __method206020 + (__method-ref _%clause206326%_ 'optimize-call)))) + (if __method209444 (let () (declare (not safe)) - (__method206020 - _%clause202888%_ - _%ctx202866%_ - _%stx202867%_ - _%args202868%_)) + (__method209444 + _%clause206326%_ + _%ctx206304%_ + _%stx206305%_ + _%args206306%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause202888%_ + _%clause206326%_ 'optimize-call)) '#!void)))) - _%$e202885%_) - (let ((__tmp206117 + _%$e206323%_) + (let ((__tmp209541 (map gxc#!lambda-arity (let () (declare (not safe)) (##unchecked-structure-ref - _%self202871%_ + _%self206309%_ '3 '#f '#f))))) (declare (not safe)) (gxc#raise-compile-error '"Illegal case-lambda application; arity mismatch" - _%stx202867%_ - __tmp206117)))))) + _%stx206305%_ + __tmp209541)))))) (let () (declare (not safe)) (__bind-method!__% @@ -4153,115 +4157,115 @@ gxc#!case-lambda::optimize-call '#f)) (define gxc#!kw-lambda::optimize-call - (lambda (_%self202605%_ _%ctx202606%_ _%stx202607%_ _%args202608%_) - (let* ((_%self202611%_ _%self202605%_) - (_%self202620202629%_ _%self202611%_) - (_%E202622202633%_ + (lambda (_%self206044%_ _%ctx206045%_ _%stx206046%_ _%args206047%_) + (let* ((_%self206050%_ _%self206044%_) + (_%self206059206068%_ _%self206050%_) + (_%E206061206071%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self202620202629%_ + _%self206059206068%_ '((!kw-lambda _ _ table dispatch)))) '#!void)) - (_%K202623202724%_ - (lambda (_%dispatch202636%_ _%table202637%_) + (_%K206062206162%_ + (lambda (_%dispatch206074%_ _%table206075%_) (if (let () (declare (not safe)) - (gxc#symbol-in-local-scope? _%dispatch202636%_)) - (let* ((_%g202638202648%_ + (gxc#symbol-in-local-scope? _%dispatch206074%_)) + (let* ((_%g206076206086%_ (let () (declare (not safe)) (gxc#optimizer-lookup-type - _%dispatch202636%_))) - (_%else202640202656%_ + _%dispatch206074%_))) + (_%else206078206094%_ (lambda () (let () (declare (not safe)) (gxc#verbose '"unknown keyword dispatch lambda " - _%dispatch202636%_)) + _%dispatch206074%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx202606%_ - _%stx202607%_)))) - (_%K202642202705%_ - (lambda (_%main202659%_ _%keys202660%_) - (let ((_g206118_ + _%ctx206045%_ + _%stx206046%_)))) + (_%K206080206143%_ + (lambda (_%main206097%_ _%keys206098%_) + (let ((_g209542_ (gxc#!kw-lambda-split-args - _%stx202607%_ - _%args202608%_))) + _%stx206046%_ + _%args206047%_))) (begin - (let ((_g206119_ + (let ((_g209543_ (let () (declare (not safe)) - (if (##values? _g206118_) - (##values-length _g206118_) + (if (##values? _g209542_) + (##values-length _g209542_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g206119_ 2))) + (##fx= _g209543_ 2))) (error "Context expects 2 values" - _g206119_))) - (let ((_%pargs202662%_ + _g209543_))) + (let ((_%pargs206100%_ (let () (declare (not safe)) - (##values-ref _g206118_ 0))) - (_%kwargs202663%_ + (##values-ref _g209542_ 0))) + (_%kwargs206101%_ (let () (declare (not safe)) - (##values-ref _g206118_ 1)))) + (##values-ref _g209542_ 1)))) (begin (let () (declare (not safe)) (gxc#verbose '"dispatch kw-lambda => " - _%main202659%_)) - (if _%table202637%_ - (let ((_%xargs202671%_ - (map (lambda (_%key202665%_) - (let ((_%$e202667%_ + _%main206097%_)) + (if _%table206075%_ + (let ((_%xargs206109%_ + (map (lambda (_%key206103%_) + (let ((_%$e206105%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (agetq__0 _%key202665%_ _%kwargs202663%_)))) - (if _%$e202667%_ _%$e202667%_ '(%#ref absent-value)))) - _%keys202660%_))) + (agetq__0 _%key206103%_ _%kwargs206101%_)))) + (if _%$e206105%_ _%$e206105%_ '(%#ref absent-value)))) + _%keys206098%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%kw202673%_) - (if (memq (car _%kw202673%_) - _%keys202660%_) + (lambda (_%kw206111%_) + (if (memq (car _%kw206111%_) + _%keys206098%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; unexpected keyword" - _%stx202607%_ - _%keys202660%_ - _%kw202673%_)))) - _%kwargs202663%_) - (let ((__tmp206120 + _%stx206046%_ + _%keys206098%_ + _%kw206111%_)))) + _%kwargs206101%_) + (let ((__tmp209544 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%main202659%_ '())) + (cons _%main206097%_ '())) (cons (cons '%#quote (cons '#f '())) (let () (declare (not safe)) (__foldr1 cons - _%pargs202662%_ - _%xargs202671%_))))))) + _%pargs206100%_ + _%xargs206109%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp206120 - _%stx202607%_ - _%ctx202606%_))) - (let* ((_%kwt202675%_ - (let ((__tmp206121 + __tmp209544 + _%stx206046%_ + _%ctx206045%_))) + (let* ((_%kwt206113%_ + (let ((__tmp209545 (let () (declare (not safe)) @@ -4269,175 +4273,175 @@ '__kwt)))) (declare (not safe)) (make-symbol__0 - __tmp206121))) - (_%kwvars202679%_ - (map (lambda (_%_202677%_) - (let ((__tmp206122 + __tmp209545))) + (_%kwvars206117%_ + (map (lambda (_%_206115%_) + (let ((__tmp209546 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##gensym '__kw)))) (declare (not safe)) - (make-symbol__0 __tmp206122))) - _%kwargs202663%_)) + (make-symbol__0 __tmp209546))) + _%kwargs206101%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%kwbind202684%_ - (map (lambda (_%kw202681%_ + (_%kwbind206122%_ + (map (lambda (_%kw206119%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar202682%_) - (cons (cons _%kwvar202682%_ '()) - (cons (cdr _%kw202681%_) '()))) - _%kwargs202663%_ - _%kwvars202679%_)) + _%kwvar206120%_) + (cons (cons _%kwvar206120%_ '()) + (cons (cdr _%kw206119%_) '()))) + _%kwargs206101%_ + _%kwvars206117%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%kwset202689%_ - (map (lambda (_%kw202686%_ + (_%kwset206127%_ + (map (lambda (_%kw206124%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar202687%_) + _%kwvar206125%_) (cons '%#call (cons '(%#ref symbolic-table-set!) - (cons (cons '%#ref (cons _%kwt202675%_ '())) + (cons (cons '%#ref (cons _%kwt206113%_ '())) (cons (cons '%#quote - (cons (car _%kw202686%_) '())) + (cons (car _%kw206124%_) '())) (cons (cons '%#ref - (cons _%kwvar202687%_ + (cons _%kwvar206125%_ '())) '())))))) - _%kwargs202663%_ - _%kwvars202679%_)) + _%kwargs206101%_ + _%kwvars206117%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%xkwargs202694%_ - (map (lambda (_%kw202691%_ + (_%xkwargs206132%_ + (map (lambda (_%kw206129%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar202692%_) - (cons (car _%kw202691%_) - (cons '%#ref (cons _%kwvar202692%_ '())))) - _%kwargs202663%_ - _%kwvars202679%_)) + _%kwvar206130%_) + (cons (car _%kw206129%_) + (cons '%#ref (cons _%kwvar206130%_ '())))) + _%kwargs206101%_ + _%kwvars206117%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%xargs202702%_ - (map (lambda (_%key202696%_) - (let ((_%$e202698%_ + (_%xargs206140%_ + (map (lambda (_%key206134%_) + (let ((_%$e206136%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (agetq__0 _%key202696%_ _%xkwargs202694%_)))) - (if _%$e202698%_ _%$e202698%_ '(%#ref absent-value)))) - _%keys202660%_)) + (agetq__0 _%key206134%_ _%xkwargs206132%_)))) + (if _%$e206136%_ _%$e206136%_ '(%#ref absent-value)))) + _%keys206098%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp206123 + (__tmp209547 (cons '%#let-values - (cons _%kwbind202684%_ + (cons _%kwbind206122%_ (cons (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%kwt202675%_ '()) - (cons (let ((__tmp206124 + (cons (cons (cons (cons _%kwt206113%_ '()) + (cons (let ((__tmp209548 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons '(%#ref make-symbolic-table) (cons (cons '%#quote - (cons (length _%kwargs202663%_) + (cons (length _%kwargs206101%_) '())) (cons '(%#quote (length kwvars)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp206124 _%stx202607%_)) + (gxc#xform-wrap-source __tmp209548 _%stx206046%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons '%#begin - (let ((__tmp206125 - (cons (let ((__tmp206126 + (let ((__tmp209549 + (cons (let ((__tmp209550 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons (cons '%#ref - (cons _%main202659%_ '())) + (cons _%main206097%_ '())) (cons (cons '%#ref - (cons _%kwt202675%_ + (cons _%kwt206113%_ '())) (let () (declare (not safe)) (__foldr1 cons - _%pargs202662%_ - _%xargs202702%_))))))) + _%pargs206100%_ + _%xargs206140%_))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp206126 _%stx202607%_)) + (gxc#xform-wrap-source __tmp209550 _%stx206046%_)) '()))) (declare (not safe)) - (__foldr1 cons __tmp206125 _%kwset202689%_))) + (__foldr1 cons __tmp209549 _%kwset206127%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp206123 - _%stx202607%_ - _%ctx202606%_)))))))))) + __tmp209547 + _%stx206046%_ + _%ctx206045%_)))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g202638202648%_ + _%g206076206086%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e202643202708%_ + (let* ((_%e206081206146%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g202638202648%_ + _%g206076206086%_ '1 '#f '#f))) - (_%e202644202711%_ + (_%e206082206149%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g202638202648%_ + _%g206076206086%_ '2 '#f '#f))) - (_%e202645202714%_ + (_%e206083206152%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g202638202648%_ + _%g206076206086%_ '3 '#f '#f))) - (_%keys202717%_ _%e202645202714%_) - (_%e202646202719%_ + (_%keys206155%_ _%e206083206152%_) + (_%e206084206157%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g202638202648%_ + _%g206076206086%_ '4 '#f '#f))) - (_%main202722%_ _%e202646202719%_)) - (_%K202642202705%_ - _%main202722%_ - _%keys202717%_)) - (_%else202640202656%_))) + (_%main206160%_ _%e206084206157%_)) + (_%K206080206143%_ + _%main206160%_ + _%keys206155%_)) + (_%else206078206094%_))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx202606%_ _%stx202607%_))))) - (_%e202624202727%_ + (gxc#xform-call% _%ctx206045%_ _%stx206046%_))))) + (_%e206063206165%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self202620202629%_ '1 '#f '#f))) - (_%e202625202730%_ + (##unchecked-structure-ref _%self206059206068%_ '1 '#f '#f))) + (_%e206064206168%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self202620202629%_ '2 '#f '#f))) - (_%e202626202733%_ + (##unchecked-structure-ref _%self206059206068%_ '2 '#f '#f))) + (_%e206065206171%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self202620202629%_ '3 '#f '#f))) - (_%table202736%_ _%e202626202733%_) - (_%e202627202738%_ + (##unchecked-structure-ref _%self206059206068%_ '3 '#f '#f))) + (_%table206174%_ _%e206065206171%_) + (_%e206066206176%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self202620202629%_ '4 '#f '#f))) - (_%dispatch202741%_ _%e202627202738%_)) - (_%K202623202724%_ _%dispatch202741%_ _%table202736%_)))) + (##unchecked-structure-ref _%self206059206068%_ '4 '#f '#f))) + (_%dispatch206179%_ _%e206066206176%_)) + (_%K206062206162%_ _%dispatch206179%_ _%table206174%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -4446,286 +4450,291 @@ gxc#!kw-lambda::optimize-call '#f)) (define gxc#!kw-lambda-split-args - (lambda (_%stx202218%_ _%args202219%_) - (let _%lp202221%_ ((_%rest202223%_ _%args202219%_) - (_%pargs202224%_ '()) - (_%kwargs202225%_ '())) - (let* ((_%__stx205579205580%_ _%rest202223%_) - (_%g202231202283%_ + (lambda (_%stx205657%_ _%args205658%_) + (let _%lp205660%_ ((_%rest205662%_ _%args205658%_) + (_%pargs205663%_ '()) + (_%kwargs205664%_ '())) + (let* ((_%__stx209003209004%_ _%rest205662%_) + (_%g205670205722%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx205579205580%_))))) - (let ((_%__kont205581205582%_ - (lambda (_%L202462%_ _%L202463%_) - (_%lp202221%_ - _%L202462%_ - (cons _%L202463%_ _%pargs202224%_) - _%kwargs202225%_))) - (_%__kont205583205584%_ - (lambda (_%L202408%_) + _%__stx209003209004%_))))) + (let ((_%__kont209005209006%_ + (lambda (_%g205672205901%_ _%g205673205902%_) + (_%lp205660%_ + _%g205672205901%_ + (cons _%g205673205902%_ _%pargs205663%_) + _%kwargs205664%_))) + (_%__kont209007209008%_ + (lambda (_%g205687205847%_) (values (let () (declare (not safe)) - (__foldl1 cons _%L202408%_ _%pargs202224%_)) - (reverse _%kwargs202225%_)))) - (_%__kont205585205586%_ - (lambda (_%L202355%_ _%L202356%_ _%L202357%_) - (let ((_%kw202374%_ + (__foldl1 + cons + _%g205687205847%_ + _%pargs205663%_)) + (reverse _%kwargs205664%_)))) + (_%__kont209009209010%_ + (lambda (_%g205698205794%_ + _%g205699205795%_ + _%g205700205796%_) + (let ((_%kw205813%_ (let () (declare (not safe)) - (gx#stx-e _%L202357%_)))) - (if (assq _%kw202374%_ _%kwargs202225%_) + (gx#stx-e _%g205700205796%_)))) + (if (assq _%kw205813%_ _%kwargs205664%_) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; duplicate keyword" - _%stx202218%_ - _%kw202374%_)) - (_%lp202221%_ - _%L202355%_ - _%pargs202224%_ - (cons (cons _%kw202374%_ _%L202356%_) - _%kwargs202225%_)))))) - (_%__kont205587205588%_ - (lambda (_%L202303%_ _%L202304%_) - (_%lp202221%_ - _%L202303%_ - (cons _%L202304%_ _%pargs202224%_) - _%kwargs202225%_))) - (_%__kont205589205590%_ + _%stx205657%_ + _%kw205813%_)) + (_%lp205660%_ + _%g205698205794%_ + _%pargs205663%_ + (cons (cons _%kw205813%_ _%g205699205795%_) + _%kwargs205664%_)))))) + (_%__kont209011209012%_ + (lambda (_%g205713205742%_ _%g205714205743%_) + (_%lp205660%_ + _%g205713205742%_ + (cons _%g205714205743%_ _%pargs205663%_) + _%kwargs205664%_))) + (_%__kont209013209014%_ (lambda () - (values (reverse _%pargs202224%_) - (reverse _%kwargs202225%_))))) - (let ((_%__match205686205687%_ - (lambda (_%e202262202323%_ - _%hd202263202326%_ - _%tl202264202328%_ - _%e202265202331%_ - _%hd202266202334%_ - _%tl202267202336%_ - _%e202268202339%_ - _%hd202269202342%_ - _%tl202270202344%_ - _%e202271202347%_ - _%hd202272202350%_ - _%tl202273202352%_) - (let ((_%L202355%_ _%tl202273202352%_) - (_%L202356%_ _%hd202272202350%_) - (_%L202357%_ _%hd202269202342%_)) + (values (reverse _%pargs205663%_) + (reverse _%kwargs205664%_))))) + (let ((_%__match209110209111%_ + (lambda (_%e205701205762%_ + _%hd205702205765%_ + _%tl205703205767%_ + _%e205704205770%_ + _%hd205705205773%_ + _%tl205706205775%_ + _%e205707205778%_ + _%hd205708205781%_ + _%tl205709205783%_ + _%e205710205786%_ + _%hd205711205789%_ + _%tl205712205791%_) + (let ((_%g205698205794%_ _%tl205712205791%_) + (_%g205699205795%_ _%hd205711205789%_) + (_%g205700205796%_ _%hd205708205781%_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _%L202357%_)) - (_%__kont205585205586%_ - _%L202355%_ - _%L202356%_ - _%L202357%_) - (_%__kont205587205588%_ - _%tl202264202328%_ - _%hd202263202326%_)))))) + (gx#stx-keyword? _%g205700205796%_)) + (_%__kont209009209010%_ + _%g205698205794%_ + _%g205699205795%_ + _%g205700205796%_) + (_%__kont209011209012%_ + _%tl205703205767%_ + _%hd205702205765%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx205579205580%_)) - (let ((_%e202235202427%_ + (gx#stx-pair? _%__stx209003209004%_)) + (let ((_%e205674205866%_ (let () (declare (not safe)) - (gx#stx-e _%__stx205579205580%_)))) - (let ((_%tl202237202432%_ + (gx#stx-e _%__stx209003209004%_)))) + (let ((_%tl205676205871%_ (let () (declare (not safe)) - (##cdr _%e202235202427%_))) - (_%hd202236202430%_ + (##cdr _%e205674205866%_))) + (_%hd205675205869%_ (let () (declare (not safe)) - (##car _%e202235202427%_)))) + (##car _%e205674205866%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd202236202430%_)) - (let ((_%e202238202435%_ + (gx#stx-pair? _%hd205675205869%_)) + (let ((_%e205677205874%_ (let () (declare (not safe)) - (gx#stx-e _%hd202236202430%_)))) - (let ((_%tl202240202440%_ + (gx#stx-e _%hd205675205869%_)))) + (let ((_%tl205679205879%_ (let () (declare (not safe)) - (##cdr _%e202238202435%_))) - (_%hd202239202438%_ + (##cdr _%e205677205874%_))) + (_%hd205678205877%_ (let () (declare (not safe)) - (##car _%e202238202435%_)))) + (##car _%e205677205874%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd202239202438%_)) + (gx#identifier? _%hd205678205877%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd202239202438%_)) + _%hd205678205877%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl202240202440%_)) - (let ((_%e202241202443%_ + _%tl205679205879%_)) + (let ((_%e205680205882%_ (let () (declare (not safe)) (gx#stx-e - _%tl202240202440%_)))) - (let ((_%tl202243202448%_ + _%tl205679205879%_)))) + (let ((_%tl205682205887%_ (let () (declare (not safe)) - (##cdr _%e202241202443%_))) - (_%hd202242202446%_ + (##cdr _%e205680205882%_))) + (_%hd205681205885%_ (let () (declare (not safe)) - (##car _%e202241202443%_)))) + (##car _%e205680205882%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd202242202446%_)) - (let ((_%e202244202451%_ + _%hd205681205885%_)) + (let ((_%e205683205890%_ (let () (declare (not safe)) (gx#stx-e - _%hd202242202446%_)))) - (if (equal? _%e202244202451%_ + _%hd205681205885%_)))) + (if (equal? _%e205683205890%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!key) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202243202448%_)) + (gx#stx-null? _%tl205682205887%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202237202432%_)) - (let ((_%e202245202454%_ + (gx#stx-pair? _%tl205676205871%_)) + (let ((_%e205684205893%_ (let () (declare (not safe)) - (gx#stx-e _%tl202237202432%_)))) - (let ((_%tl202247202459%_ + (gx#stx-e _%tl205676205871%_)))) + (let ((_%tl205686205898%_ (let () (declare (not safe)) - (##cdr _%e202245202454%_))) - (_%hd202246202457%_ + (##cdr _%e205684205893%_))) + (_%hd205685205896%_ (let () (declare (not safe)) - (##car _%e202245202454%_)))) - (_%__kont205581205582%_ - _%tl202247202459%_ - _%hd202246202457%_))) - (_%__kont205587205588%_ - _%tl202237202432%_ - _%hd202236202430%_)) - (_%__kont205587205588%_ - _%tl202237202432%_ - _%hd202236202430%_)) - (if (equal? _%e202244202451%_ '#!rest) + (##car _%e205684205893%_)))) + (_%__kont209005209006%_ + _%tl205686205898%_ + _%hd205685205896%_))) + (_%__kont209011209012%_ + _%tl205676205871%_ + _%hd205675205869%_)) + (_%__kont209011209012%_ + _%tl205676205871%_ + _%hd205675205869%_)) + (if (equal? _%e205683205890%_ '#!rest) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202243202448%_)) - (_%__kont205583205584%_ _%tl202237202432%_) - (_%__kont205587205588%_ - _%tl202237202432%_ - _%hd202236202430%_)) + (gx#stx-null? _%tl205682205887%_)) + (_%__kont209007209008%_ _%tl205676205871%_) + (_%__kont209011209012%_ + _%tl205676205871%_ + _%hd205675205869%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202243202448%_)) + (gx#stx-null? _%tl205682205887%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202237202432%_)) - (let ((_%e202271202347%_ + (gx#stx-pair? _%tl205676205871%_)) + (let ((_%e205710205786%_ (let () (declare (not safe)) - (gx#stx-e _%tl202237202432%_)))) - (let ((_%tl202273202352%_ + (gx#stx-e _%tl205676205871%_)))) + (let ((_%tl205712205791%_ (let () (declare (not safe)) - (##cdr _%e202271202347%_))) - (_%hd202272202350%_ + (##cdr _%e205710205786%_))) + (_%hd205711205789%_ (let () (declare (not safe)) - (##car _%e202271202347%_)))) - (_%__match205686205687%_ - _%e202235202427%_ - _%hd202236202430%_ - _%tl202237202432%_ - _%e202238202435%_ - _%hd202239202438%_ - _%tl202240202440%_ - _%e202241202443%_ - _%hd202242202446%_ - _%tl202243202448%_ - _%e202271202347%_ - _%hd202272202350%_ - _%tl202273202352%_))) - (_%__kont205587205588%_ - _%tl202237202432%_ - _%hd202236202430%_)) - (_%__kont205587205588%_ - _%tl202237202432%_ - _%hd202236202430%_))))) + (##car _%e205710205786%_)))) + (_%__match209110209111%_ + _%e205674205866%_ + _%hd205675205869%_ + _%tl205676205871%_ + _%e205677205874%_ + _%hd205678205877%_ + _%tl205679205879%_ + _%e205680205882%_ + _%hd205681205885%_ + _%tl205682205887%_ + _%e205710205786%_ + _%hd205711205789%_ + _%tl205712205791%_))) + (_%__kont209011209012%_ + _%tl205676205871%_ + _%hd205675205869%_)) + (_%__kont209011209012%_ + _%tl205676205871%_ + _%hd205675205869%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl202243202448%_)) + _%tl205682205887%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl202237202432%_)) - (let ((_%e202271202347%_ + _%tl205676205871%_)) + (let ((_%e205710205786%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl202237202432%_)))) - (let ((_%tl202273202352%_ + (gx#stx-e _%tl205676205871%_)))) + (let ((_%tl205712205791%_ (let () (declare (not safe)) - (##cdr _%e202271202347%_))) - (_%hd202272202350%_ + (##cdr _%e205710205786%_))) + (_%hd205711205789%_ (let () (declare (not safe)) - (##car _%e202271202347%_)))) - (_%__match205686205687%_ - _%e202235202427%_ - _%hd202236202430%_ - _%tl202237202432%_ - _%e202238202435%_ - _%hd202239202438%_ - _%tl202240202440%_ - _%e202241202443%_ - _%hd202242202446%_ - _%tl202243202448%_ - _%e202271202347%_ - _%hd202272202350%_ - _%tl202273202352%_))) - (_%__kont205587205588%_ - _%tl202237202432%_ - _%hd202236202430%_)) - (_%__kont205587205588%_ - _%tl202237202432%_ - _%hd202236202430%_))))) + (##car _%e205710205786%_)))) + (_%__match209110209111%_ + _%e205674205866%_ + _%hd205675205869%_ + _%tl205676205871%_ + _%e205677205874%_ + _%hd205678205877%_ + _%tl205679205879%_ + _%e205680205882%_ + _%hd205681205885%_ + _%tl205682205887%_ + _%e205710205786%_ + _%hd205711205789%_ + _%tl205712205791%_))) + (_%__kont209011209012%_ + _%tl205676205871%_ + _%hd205675205869%_)) + (_%__kont209011209012%_ + _%tl205676205871%_ + _%hd205675205869%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont205587205588%_ - _%tl202237202432%_ - _%hd202236202430%_)) - (_%__kont205587205588%_ - _%tl202237202432%_ - _%hd202236202430%_)) - (_%__kont205587205588%_ - _%tl202237202432%_ - _%hd202236202430%_)))) - (_%__kont205587205588%_ - _%tl202237202432%_ - _%hd202236202430%_)))) - (_%__kont205589205590%_)))))))) + (_%__kont209011209012%_ + _%tl205676205871%_ + _%hd205675205869%_)) + (_%__kont209011209012%_ + _%tl205676205871%_ + _%hd205675205869%_)) + (_%__kont209011209012%_ + _%tl205676205871%_ + _%hd205675205869%_)))) + (_%__kont209011209012%_ + _%tl205676205871%_ + _%hd205675205869%_)))) + (_%__kont209013209014%_)))))))) (define gxc#!kw-lambda-primary::optimize-call - (lambda (_%self202202%_ _%ctx202203%_ _%stx202204%_ _%args202205%_) - (let ((_%self202208%_ _%self202202%_)) + (lambda (_%self205641%_ _%ctx205642%_ _%stx205643%_ _%args205644%_) + (let ((_%self205647%_ _%self205641%_)) (declare (not safe)) - (gxc#xform-call% _%ctx202203%_ _%stx202204%_)))) + (gxc#xform-call% _%ctx205642%_ _%stx205643%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -4734,403 +4743,408 @@ gxc#!kw-lambda-primary::optimize-call '#f)) (define gxc#apply-check-return-type-begin-annotation% - (lambda (_%self201890%_ _%stx201891%_) - (let* ((_%__stx205695205696%_ _%stx201891%_) - (_%g201894201934%_ + (lambda (_%self205331%_ _%stx205332%_) + (let* ((_%__stx209119209120%_ _%stx205332%_) + (_%g205335205375%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx205695205696%_))))) - (let ((_%__kont205697205698%_ - (lambda (_%L202040%_ _%L202041%_) - (let ((_%$e202068%_ + _%__stx209119209120%_))))) + (let ((_%__kont209121209122%_ + (lambda (_%g205337205479%_ _%g205338205480%_) + (let ((_%$e205507%_ (member 'return: - (let ((__tmp206127 - (lambda (_%g202060202063%_ - _%g202061202065%_) - (cons _%g202060202063%_ - _%g202061202065%_)))) + (let ((__tmp209551 + (lambda (_%g205499205502%_ + _%g205500205504%_) + (cons _%g205499205502%_ + _%g205500205504%_)))) (declare (not safe)) - (__foldr1 __tmp206127 '() _%L202041%_)) + (__foldr1 + __tmp209551 + '() + _%g205338205480%_)) gx#stx-eq?))) - (if _%$e202068%_ - ((lambda (_%tail202071%_) - (let ((_%type202073%_ - (let ((__tmp206128 - (let ((__tmp206129 - (cadr _%tail202071%_))) + (if _%$e205507%_ + ((lambda (_%tail205510%_) + (let ((_%type205512%_ + (let ((__tmp209552 + (let ((__tmp209553 + (cadr _%tail205510%_))) (declare (not safe)) (gxc#identifier-symbol - __tmp206129)))) + __tmp209553)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx201891%_ - __tmp206128)))) + _%stx205332%_ + __tmp209552)))) (gxc#check-return-type! - _%stx201891%_ - _%L202040%_ - _%type202073%_) + _%stx205332%_ + _%g205337205479%_ + _%type205512%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self201890%_ - _%L202040%_)))) - _%$e202068%_) + _%self205331%_ + _%g205337205479%_)))) + _%$e205507%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self201890%_ _%L202040%_)))))) - (_%__kont205701205702%_ - (lambda (_%L201963%_ _%L201964%_) + (gxc#compile-e__1 + _%self205331%_ + _%g205337205479%_)))))) + (_%__kont209125209126%_ + (lambda (_%g205360205404%_ _%g205361205405%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self201890%_ _%L201963%_))))) - (let ((_%__match205732205733%_ - (lambda (_%e201898201984%_ - _%hd201899201987%_ - _%tl201900201989%_ - _%e201901201992%_ - _%hd201902201995%_ - _%tl201903201997%_ - _%e201904202000%_ - _%hd201905202003%_ - _%tl201906202005%_ - _%__splice205699205700%_ - _%target201907202008%_ - _%tl201909202010%_) - (letrec ((_%loop201910202013%_ - (lambda (_%hd201908202016%_ - _%signature201914202018%_) + (gxc#compile-e__1 _%self205331%_ _%g205360205404%_))))) + (let ((_%__match209156209157%_ + (lambda (_%e205339205425%_ + _%hd205340205428%_ + _%tl205341205430%_ + _%e205342205433%_ + _%hd205343205436%_ + _%tl205344205438%_ + _%e205345205441%_ + _%hd205346205444%_ + _%tl205347205446%_ + _%__splice209123209124%_ + _%target205348205449%_ + _%tl205350205451%_) + (letrec ((_%loop205351205454%_ + (lambda (_%hd205349205457%_ + _%signature205355205459%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd201908202016%_)) - (let ((_%e201911202021%_ + (gx#stx-pair? _%hd205349205457%_)) + (let ((_%e205352205461%_ (let () (declare (not safe)) - (gx#stx-e _%hd201908202016%_)))) - (let ((_%lp-tl201913202026%_ + (gx#stx-e _%hd205349205457%_)))) + (let ((_%lp-tl205354205466%_ (let () (declare (not safe)) - (##cdr _%e201911202021%_))) - (_%lp-hd201912202024%_ + (##cdr _%e205352205461%_))) + (_%lp-hd205353205464%_ (let () (declare (not safe)) - (##car _%e201911202021%_)))) - (_%loop201910202013%_ - _%lp-tl201913202026%_ - (cons _%lp-hd201912202024%_ - _%signature201914202018%_)))) - (let ((_%signature201915202029%_ - (reverse _%signature201914202018%_))) + (##car _%e205352205461%_)))) + (_%loop205351205454%_ + _%lp-tl205354205466%_ + (cons _%lp-hd205353205464%_ + _%signature205355205459%_)))) + (let ((_%signature205356205469%_ + (reverse _%signature205355205459%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201903201997%_)) - (let ((_%e201916202032%_ + (gx#stx-pair? _%tl205344205438%_)) + (let ((_%e205357205471%_ (let () (declare (not safe)) (gx#stx-e - _%tl201903201997%_)))) - (let ((_%tl201918202037%_ + _%tl205344205438%_)))) + (let ((_%tl205359205476%_ (let () (declare (not safe)) - (##cdr _%e201916202032%_))) - (_%hd201917202035%_ + (##cdr _%e205357205471%_))) + (_%hd205358205474%_ (let () (declare (not safe)) - (##car _%e201916202032%_)))) + (##car _%e205357205471%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201918202037%_)) - (_%__kont205697205698%_ - _%hd201917202035%_ - _%signature201915202029%_) + _%tl205359205476%_)) + (_%__kont209121209122%_ + _%hd205358205474%_ + _%signature205356205469%_) (let () (declare (not safe)) - (_%g201894201934%_))))) + (_%g205335205375%_))))) (let () (declare (not safe)) - (_%g201894201934%_)))))))) - (_%loop201910202013%_ _%target201907202008%_ '()))))) + (_%g205335205375%_)))))))) + (_%loop205351205454%_ _%target205348205449%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx205695205696%_)) - (let ((_%e201898201984%_ + (gx#stx-pair? _%__stx209119209120%_)) + (let ((_%e205339205425%_ (let () (declare (not safe)) - (gx#stx-e _%__stx205695205696%_)))) - (let ((_%tl201900201989%_ + (gx#stx-e _%__stx209119209120%_)))) + (let ((_%tl205341205430%_ (let () (declare (not safe)) - (##cdr _%e201898201984%_))) - (_%hd201899201987%_ + (##cdr _%e205339205425%_))) + (_%hd205340205428%_ (let () (declare (not safe)) - (##car _%e201898201984%_)))) + (##car _%e205339205425%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201900201989%_)) - (let ((_%e201901201992%_ + (gx#stx-pair? _%tl205341205430%_)) + (let ((_%e205342205433%_ (let () (declare (not safe)) - (gx#stx-e _%tl201900201989%_)))) - (let ((_%tl201903201997%_ + (gx#stx-e _%tl205341205430%_)))) + (let ((_%tl205344205438%_ (let () (declare (not safe)) - (##cdr _%e201901201992%_))) - (_%hd201902201995%_ + (##cdr _%e205342205433%_))) + (_%hd205343205436%_ (let () (declare (not safe)) - (##car _%e201901201992%_)))) + (##car _%e205342205433%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd201902201995%_)) - (let ((_%e201904202000%_ + (gx#stx-pair? _%hd205343205436%_)) + (let ((_%e205345205441%_ (let () (declare (not safe)) - (gx#stx-e _%hd201902201995%_)))) - (let ((_%tl201906202005%_ + (gx#stx-e _%hd205343205436%_)))) + (let ((_%tl205347205446%_ (let () (declare (not safe)) - (##cdr _%e201904202000%_))) - (_%hd201905202003%_ + (##cdr _%e205345205441%_))) + (_%hd205346205444%_ (let () (declare (not safe)) - (##car _%e201904202000%_)))) + (##car _%e205345205441%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd201905202003%_)) + _%hd205346205444%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.signature - _%hd201905202003%_)) + _%hd205346205444%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl201906202005%_)) - (let ((_%__splice205699205700%_ + _%tl205347205446%_)) + (let ((_%__splice209123209124%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl201906202005%_ + _%tl205347205446%_ '0)))) - (let ((_%tl201909202010%_ + (let ((_%tl205350205451%_ (let () (declare (not safe)) (##vector-ref - _%__splice205699205700%_ + _%__splice209123209124%_ '1))) - (_%target201907202008%_ + (_%target205348205449%_ (let () (declare (not safe)) (##vector-ref - _%__splice205699205700%_ + _%__splice209123209124%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201909202010%_)) - (_%__match205732205733%_ - _%e201898201984%_ - _%hd201899201987%_ - _%tl201900201989%_ - _%e201901201992%_ - _%hd201902201995%_ - _%tl201903201997%_ - _%e201904202000%_ - _%hd201905202003%_ - _%tl201906202005%_ - _%__splice205699205700%_ - _%target201907202008%_ - _%tl201909202010%_) + _%tl205350205451%_)) + (_%__match209156209157%_ + _%e205339205425%_ + _%hd205340205428%_ + _%tl205341205430%_ + _%e205342205433%_ + _%hd205343205436%_ + _%tl205344205438%_ + _%e205345205441%_ + _%hd205346205444%_ + _%tl205347205446%_ + _%__splice209123209124%_ + _%target205348205449%_ + _%tl205350205451%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl201903201997%_)) - (let ((_%e201927201955%_ + (gx#stx-pair? _%tl205344205438%_)) + (let ((_%e205368205396%_ (let () (declare (not safe)) - (gx#stx-e _%tl201903201997%_)))) - (let ((_%tl201929201960%_ + (gx#stx-e _%tl205344205438%_)))) + (let ((_%tl205370205401%_ (let () (declare (not safe)) - (##cdr _%e201927201955%_))) - (_%hd201928201958%_ + (##cdr _%e205368205396%_))) + (_%hd205369205399%_ (let () (declare (not safe)) - (##car _%e201927201955%_)))) + (##car _%e205368205396%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201929201960%_)) - (_%__kont205701205702%_ - _%hd201928201958%_ - _%hd201902201995%_) + (gx#stx-null? _%tl205370205401%_)) + (_%__kont209125209126%_ + _%hd205369205399%_ + _%hd205343205436%_) (let () (declare (not safe)) - (_%g201894201934%_))))) - (let () (declare (not safe)) (_%g201894201934%_)))))) + (_%g205335205375%_))))) + (let () (declare (not safe)) (_%g205335205375%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201903201997%_)) - (let ((_%e201927201955%_ + _%tl205344205438%_)) + (let ((_%e205368205396%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl201903201997%_)))) - (let ((_%tl201929201960%_ - (let () (declare (not safe)) (##cdr _%e201927201955%_))) - (_%hd201928201958%_ + (gx#stx-e _%tl205344205438%_)))) + (let ((_%tl205370205401%_ + (let () (declare (not safe)) (##cdr _%e205368205396%_))) + (_%hd205369205399%_ (let () (declare (not safe)) - (##car _%e201927201955%_)))) + (##car _%e205368205396%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201929201960%_)) - (_%__kont205701205702%_ - _%hd201928201958%_ - _%hd201902201995%_) - (let () (declare (not safe)) (_%g201894201934%_))))) - (let () (declare (not safe)) (_%g201894201934%_)))) + (gx#stx-null? _%tl205370205401%_)) + (_%__kont209125209126%_ + _%hd205369205399%_ + _%hd205343205436%_) + (let () (declare (not safe)) (_%g205335205375%_))))) + (let () (declare (not safe)) (_%g205335205375%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201903201997%_)) - (let ((_%e201927201955%_ + _%tl205344205438%_)) + (let ((_%e205368205396%_ (let () (declare (not safe)) (gx#stx-e - _%tl201903201997%_)))) - (let ((_%tl201929201960%_ + _%tl205344205438%_)))) + (let ((_%tl205370205401%_ (let () (declare (not safe)) - (##cdr _%e201927201955%_))) - (_%hd201928201958%_ + (##cdr _%e205368205396%_))) + (_%hd205369205399%_ (let () (declare (not safe)) - (##car _%e201927201955%_)))) + (##car _%e205368205396%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201929201960%_)) - (_%__kont205701205702%_ - _%hd201928201958%_ - _%hd201902201995%_) + _%tl205370205401%_)) + (_%__kont209125209126%_ + _%hd205369205399%_ + _%hd205343205436%_) (let () (declare (not safe)) - (_%g201894201934%_))))) + (_%g205335205375%_))))) (let () (declare (not safe)) - (_%g201894201934%_)))) + (_%g205335205375%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201903201997%_)) - (let ((_%e201927201955%_ + _%tl205344205438%_)) + (let ((_%e205368205396%_ (let () (declare (not safe)) (gx#stx-e - _%tl201903201997%_)))) - (let ((_%tl201929201960%_ + _%tl205344205438%_)))) + (let ((_%tl205370205401%_ (let () (declare (not safe)) - (##cdr _%e201927201955%_))) - (_%hd201928201958%_ + (##cdr _%e205368205396%_))) + (_%hd205369205399%_ (let () (declare (not safe)) - (##car _%e201927201955%_)))) + (##car _%e205368205396%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201929201960%_)) - (_%__kont205701205702%_ - _%hd201928201958%_ - _%hd201902201995%_) + _%tl205370205401%_)) + (_%__kont209125209126%_ + _%hd205369205399%_ + _%hd205343205436%_) (let () (declare (not safe)) - (_%g201894201934%_))))) + (_%g205335205375%_))))) (let () (declare (not safe)) - (_%g201894201934%_)))))) + (_%g205335205375%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201903201997%_)) - (let ((_%e201927201955%_ + (gx#stx-pair? _%tl205344205438%_)) + (let ((_%e205368205396%_ (let () (declare (not safe)) - (gx#stx-e _%tl201903201997%_)))) - (let ((_%tl201929201960%_ + (gx#stx-e _%tl205344205438%_)))) + (let ((_%tl205370205401%_ (let () (declare (not safe)) - (##cdr _%e201927201955%_))) - (_%hd201928201958%_ + (##cdr _%e205368205396%_))) + (_%hd205369205399%_ (let () (declare (not safe)) - (##car _%e201927201955%_)))) + (##car _%e205368205396%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201929201960%_)) - (_%__kont205701205702%_ - _%hd201928201958%_ - _%hd201902201995%_) + _%tl205370205401%_)) + (_%__kont209125209126%_ + _%hd205369205399%_ + _%hd205343205436%_) (let () (declare (not safe)) - (_%g201894201934%_))))) + (_%g205335205375%_))))) (let () (declare (not safe)) - (_%g201894201934%_)))))) - (let () (declare (not safe)) (_%g201894201934%_))))) - (let () (declare (not safe)) (_%g201894201934%_)))))))) + (_%g205335205375%_)))))) + (let () (declare (not safe)) (_%g205335205375%_))))) + (let () (declare (not safe)) (_%g205335205375%_)))))))) (define gxc#check-return-type! - (lambda (_%stx201865%_ _%expr201866%_ _%type201867%_) - (let ((_%$e201869%_ (not _%type201867%_))) - (if _%$e201869%_ - _%$e201869%_ - (let ((_%$e201872%_ - (eq? (##structure-ref _%type201867%_ '1 gxc#!type::t '#f) + (lambda (_%stx205306%_ _%expr205307%_ _%type205308%_) + (let ((_%$e205310%_ (not _%type205308%_))) + (if _%$e205310%_ + _%$e205310%_ + (let ((_%$e205313%_ + (eq? (##structure-ref _%type205308%_ '1 gxc#!type::t '#f) 't))) - (if _%$e201872%_ - _%$e201872%_ - (let ((_%$e201875%_ + (if _%$e205313%_ + _%$e205313%_ + (let ((_%$e205316%_ (eq? (##structure-ref - _%type201867%_ + _%type205308%_ '1 gxc#!type::t '#f) 'void))) - (if _%$e201875%_ - _%$e201875%_ - (let ((_%expr-type201879%_ + (if _%$e205316%_ + _%$e205316%_ + (let ((_%expr-type205320%_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _%expr201866%_)))) - (if (not _%expr-type201879%_) + _%expr205307%_)))) + (if (not _%expr-type205320%_) (let () (declare (not safe)) (gxc#raise-compile-error '"cannot verify procedure return type; no type information" - _%stx201865%_ - _%type201867%_)) + _%stx205306%_ + _%type205308%_)) (if (eq? 't (##structure-ref - _%expr-type201879%_ + _%expr-type205320%_ '1 gxc#!type::t '#f)) @@ -5138,75 +5152,84 @@ (declare (not safe)) (gxc#raise-compile-error '"cannot verify procedure return type; unspecific type" - _%stx201865%_ - _%type201867%_ - _%expr-type201879%_)) - (let ((_%$e201883%_ + _%stx205306%_ + _%type205308%_ + _%expr-type205320%_)) + (let ((_%$e205324%_ (let () (declare (not safe)) (##structure-instance-of? - _%expr-type201879%_ + _%expr-type205320%_ 'gxc#!abort::t)))) - (if _%$e201883%_ - _%$e201883%_ - (let ((_%$e201886%_ + (if _%$e205324%_ + _%$e205324%_ + (let ((_%$e205327%_ (let () (declare (not safe)) (gxc#!type-subtype? - _%expr-type201879%_ - _%type201867%_)))) - (if _%$e201886%_ - _%$e201886%_ + _%expr-type205320%_ + _%type205308%_)))) + (if _%$e205327%_ + _%$e205327%_ (let () (declare (not safe)) (gxc#raise-compile-error '"procedure return type does not match signature" - _%stx201865%_ - _%type201867%_ - _%expr-type201879%_))))))))))))))))) + _%stx205306%_ + _%type205308%_ + _%expr-type205320%_))))))))))))))))) (define gxc#optimize-if% - (lambda (_%self201291%_ _%stx201292%_) - (let* ((_%__stx205777205778%_ _%stx201292%_) - (_%g201297201407%_ + (lambda (_%self204732%_ _%stx204733%_) + (let* ((_%__stx209201209202%_ _%stx204733%_) + (_%g204738204848%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx205777205778%_))))) - (let ((_%__kont205779205780%_ - (lambda (_%L201839%_ _%L201840%_ _%L201841%_) - (if (let () (declare (not safe)) (gx#stx-e _%L201841%_)) + _%__stx209201209202%_))))) + (let ((_%__kont209203209204%_ + (lambda (_%g204740205280%_ + _%g204741205281%_ + _%g204742205282%_) + (if (let () + (declare (not safe)) + (gx#stx-e _%g204742205282%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self201291%_ _%L201840%_)) + (gxc#compile-e__1 _%self204732%_ _%g204741205281%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self201291%_ _%L201839%_))))) - (_%__kont205781205782%_ - (lambda (_%L201665%_ _%L201666%_ _%L201667%_ _%L201668%_) - (let ((_%$e201700%_ - (let ((__tmp206130 + (gxc#compile-e__1 + _%self204732%_ + _%g204740205280%_))))) + (_%__kont209205209206%_ + (lambda (_%g204761205106%_ + _%g204762205107%_ + _%g204763205108%_ + _%g204764205109%_) + (let ((_%$e205141%_ + (let ((__tmp209554 (let () (declare (not safe)) - (gxc#identifier-symbol _%L201668%_)))) + (gxc#identifier-symbol _%g204764205109%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp206130)))) - (if _%$e201700%_ - ((lambda (_%pred-type201703%_) + (gxc#optimizer-lookup-type __tmp209554)))) + (if _%$e205141%_ + ((lambda (_%pred-type205144%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type201703%_ + _%pred-type205144%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type201703%_ + _%pred-type205144%_ 'gxc#!primitive-predicate::t))) - (let* ((_%test201708%_ - (let ((__tmp206131 + (let* ((_%test205149%_ + (let ((__tmp209555 (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -5216,1749 +5239,1755 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L201668%_ '())) + (cons _%g204764205109%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L201667%_ '())) + (cons _%g204763205108%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp206131 - _%stx201292%_ - _%self201291%_))) - (_%K201712%_ - (let ((__tmp206132 + __tmp209555 + _%stx204733%_ + _%self204732%_))) + (_%K205153%_ + (let ((__tmp209556 (lambda () - (let ((__tmp206135 + (let ((__tmp209559 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self201291%_ - _%L201666%_)))) - (__tmp206133 + _%self204732%_ + _%g204762205107%_)))) + (__tmp209557 (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _%L201667%_)) - (let ((__tmp206134 + (gxc#identifier-symbol _%g204763205108%_)) + (let ((__tmp209558 (##structure-ref - _%pred-type201703%_ + _%pred-type205144%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx201292%_ - __tmp206134))) + _%stx204733%_ + __tmp209558))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters__1 - __tmp206135 + __tmp209559 gxc#current-compile-path-type - __tmp206133))))) + __tmp209557))))) (declare (not safe)) - (__make-promise __tmp206132))) - (_%E201715%_ - (let ((__tmp206136 + (__make-promise __tmp209556))) + (_%E205156%_ + (let ((__tmp209560 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self201291%_ - _%L201665%_))))) + _%self204732%_ + _%g204761205106%_))))) (declare (not safe)) - (__make-promise __tmp206136))) - (_%__stx205755205756%_ _%test201708%_) - (_%g201719201733%_ + (__make-promise __tmp209560))) + (_%__stx209179209180%_ _%test205149%_) + (_%g205160205174%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx205755205756%_))))) - (let ((_%__kont205757205758%_ - (lambda (_%L201761%_ _%L201762%_) + _%__stx209179209180%_))))) + (let ((_%__kont209181209182%_ + (lambda (_%g205162205202%_ + _%g205163205203%_) (if (let () (declare (not safe)) - (gx#stx-e _%L201761%_)) - (force _%K201712%_) - (force _%E201715%_)))) - (_%__kont205759205760%_ + (gx#stx-e _%g205162205202%_)) + (force _%K205153%_) + (force _%E205156%_)))) + (_%__kont209183209184%_ (lambda () - (let ((__tmp206137 + (let ((__tmp209561 (cons '%#if - (cons _%test201708%_ - (cons (force _%K201712%_) + (cons _%test205149%_ + (cons (force _%K205153%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (force _%E201715%_) '())))))) + (cons (force _%E205156%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp206137 - _%stx201292%_))))) + __tmp209561 + _%stx204733%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx205755205756%_)) - (let ((_%e201723201745%_ + (gx#stx-pair? _%__stx209179209180%_)) + (let ((_%e205164205186%_ (let () (declare (not safe)) (gx#stx-e - _%__stx205755205756%_)))) - (let ((_%tl201725201750%_ + _%__stx209179209180%_)))) + (let ((_%tl205166205191%_ (let () (declare (not safe)) - (##cdr _%e201723201745%_))) - (_%hd201724201748%_ + (##cdr _%e205164205186%_))) + (_%hd205165205189%_ (let () (declare (not safe)) - (##car _%e201723201745%_)))) + (##car _%e205164205186%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201725201750%_)) - (let ((_%e201726201753%_ + _%tl205166205191%_)) + (let ((_%e205167205194%_ (let () (declare (not safe)) (gx#stx-e - _%tl201725201750%_)))) - (let ((_%tl201728201758%_ + _%tl205166205191%_)))) + (let ((_%tl205169205199%_ (let () (declare (not safe)) - (##cdr _%e201726201753%_))) - (_%hd201727201756%_ + (##cdr _%e205167205194%_))) + (_%hd205168205197%_ (let () (declare (not safe)) - (##car _%e201726201753%_)))) + (##car _%e205167205194%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201728201758%_)) - (_%__kont205757205758%_ - _%hd201727201756%_ - _%hd201724201748%_) - (_%__kont205759205760%_)))) - (_%__kont205759205760%_)))) - (_%__kont205759205760%_)))) + _%tl205169205199%_)) + (_%__kont209181209182%_ + _%hd205168205197%_ + _%hd205165205189%_) + (_%__kont209183209184%_)))) + (_%__kont209183209184%_)))) + (_%__kont209183209184%_)))) (let () (declare (not safe)) (gxc#xform-operands - _%self201291%_ - _%stx201292%_)))) - _%$e201700%_) + _%self204732%_ + _%stx204733%_)))) + _%$e205141%_) (let () (declare (not safe)) (gxc#xform-operands - _%self201291%_ - _%stx201292%_)))))) - (_%__kont205783205784%_ - (lambda (_%L201541%_ _%L201542%_ _%L201543%_ _%L201544%_) + _%self204732%_ + _%stx204733%_)))))) + (_%__kont209207209208%_ + (lambda (_%g204798204982%_ + _%g204799204983%_ + _%g204800204984%_ + _%g204801204985%_) (gxc#optimize-if% - _%self201291%_ - (let ((__tmp206138 + _%self204732%_ + (let ((__tmp209562 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L201543%_ - (cons _%L201541%_ - (cons _%L201542%_ '())))))) + (cons _%g204800204984%_ + (cons _%g204798204982%_ + (cons _%g204799204983%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp206138 _%stx201292%_))))) - (_%__kont205785205786%_ - (lambda (_%L201444%_ _%L201445%_ _%L201446%_) + (gxc#xform-wrap-source __tmp209562 _%stx204733%_))))) + (_%__kont209209209210%_ + (lambda (_%g204829204885%_ + _%g204830204886%_ + _%g204831204887%_) (let () (declare (not safe)) - (gxc#xform-operands _%self201291%_ _%stx201292%_))))) - (let ((_%__match205984205985%_ - (lambda (_%e201361201469%_ - _%hd201362201472%_ - _%tl201363201474%_ - _%e201364201477%_ - _%hd201365201480%_ - _%tl201366201482%_ - _%e201367201485%_ - _%hd201368201488%_ - _%tl201369201490%_ - _%e201370201493%_ - _%hd201371201496%_ - _%tl201372201498%_ - _%e201373201501%_ - _%hd201374201504%_ - _%tl201375201506%_ - _%e201376201509%_ - _%hd201377201512%_ - _%tl201378201514%_ - _%e201379201517%_ - _%hd201380201520%_ - _%tl201381201522%_ - _%e201382201525%_ - _%hd201383201528%_ - _%tl201384201530%_ - _%e201385201533%_ - _%hd201386201536%_ - _%tl201387201538%_) - (let ((_%L201541%_ _%hd201386201536%_) - (_%L201542%_ _%hd201383201528%_) - (_%L201543%_ _%hd201380201520%_) - (_%L201544%_ _%hd201377201512%_)) + (gxc#xform-operands _%self204732%_ _%stx204733%_))))) + (let ((_%__match209408209409%_ + (lambda (_%e204802204910%_ + _%hd204803204913%_ + _%tl204804204915%_ + _%e204805204918%_ + _%hd204806204921%_ + _%tl204807204923%_ + _%e204808204926%_ + _%hd204809204929%_ + _%tl204810204931%_ + _%e204811204934%_ + _%hd204812204937%_ + _%tl204813204939%_ + _%e204814204942%_ + _%hd204815204945%_ + _%tl204816204947%_ + _%e204817204950%_ + _%hd204818204953%_ + _%tl204819204955%_ + _%e204820204958%_ + _%hd204821204961%_ + _%tl204822204963%_ + _%e204823204966%_ + _%hd204824204969%_ + _%tl204825204971%_ + _%e204826204974%_ + _%hd204827204977%_ + _%tl204828204979%_) + (let ((_%g204798204982%_ _%hd204827204977%_) + (_%g204799204983%_ _%hd204824204969%_) + (_%g204800204984%_ _%hd204821204961%_) + (_%g204801204985%_ _%hd204818204953%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L201544%_ 'not)) - (_%__kont205783205784%_ - _%L201541%_ - _%L201542%_ - _%L201543%_ - _%L201544%_) - (_%__kont205785205786%_ - _%hd201386201536%_ - _%hd201383201528%_ - _%hd201365201480%_)))))) + (gxc#runtime-identifier=? _%g204801204985%_ 'not)) + (_%__kont209207209208%_ + _%g204798204982%_ + _%g204799204983%_ + _%g204800204984%_ + _%g204801204985%_) + (_%__kont209209209210%_ + _%hd204827204977%_ + _%hd204824204969%_ + _%hd204806204921%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx205777205778%_)) - (let ((_%e201302201791%_ + (gx#stx-pair? _%__stx209201209202%_)) + (let ((_%e204743205232%_ (let () (declare (not safe)) - (gx#stx-e _%__stx205777205778%_)))) - (let ((_%tl201304201796%_ + (gx#stx-e _%__stx209201209202%_)))) + (let ((_%tl204745205237%_ (let () (declare (not safe)) - (##cdr _%e201302201791%_))) - (_%hd201303201794%_ + (##cdr _%e204743205232%_))) + (_%hd204744205235%_ (let () (declare (not safe)) - (##car _%e201302201791%_)))) + (##car _%e204743205232%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201304201796%_)) - (let ((_%e201305201799%_ + (gx#stx-pair? _%tl204745205237%_)) + (let ((_%e204746205240%_ (let () (declare (not safe)) - (gx#stx-e _%tl201304201796%_)))) - (let ((_%tl201307201804%_ + (gx#stx-e _%tl204745205237%_)))) + (let ((_%tl204748205245%_ (let () (declare (not safe)) - (##cdr _%e201305201799%_))) - (_%hd201306201802%_ + (##cdr _%e204746205240%_))) + (_%hd204747205243%_ (let () (declare (not safe)) - (##car _%e201305201799%_)))) + (##car _%e204746205240%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd201306201802%_)) - (let ((_%e201308201807%_ + (gx#stx-pair? _%hd204747205243%_)) + (let ((_%e204749205248%_ (let () (declare (not safe)) - (gx#stx-e _%hd201306201802%_)))) - (let ((_%tl201310201812%_ + (gx#stx-e _%hd204747205243%_)))) + (let ((_%tl204751205253%_ (let () (declare (not safe)) - (##cdr _%e201308201807%_))) - (_%hd201309201810%_ + (##cdr _%e204749205248%_))) + (_%hd204750205251%_ (let () (declare (not safe)) - (##car _%e201308201807%_)))) + (##car _%e204749205248%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd201309201810%_)) + _%hd204750205251%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd201309201810%_)) + _%hd204750205251%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201310201812%_)) - (let ((_%e201311201815%_ + _%tl204751205253%_)) + (let ((_%e204752205256%_ (let () (declare (not safe)) (gx#stx-e - _%tl201310201812%_)))) - (let ((_%tl201313201820%_ + _%tl204751205253%_)))) + (let ((_%tl204754205261%_ (let () (declare (not safe)) - (##cdr _%e201311201815%_))) - (_%hd201312201818%_ + (##cdr _%e204752205256%_))) + (_%hd204753205259%_ (let () (declare (not safe)) - (##car _%e201311201815%_)))) + (##car _%e204752205256%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201313201820%_)) + _%tl204754205261%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl201307201804%_)) - (let ((_%e201314201823%_ + (gx#stx-pair? _%tl204748205245%_)) + (let ((_%e204755205264%_ (let () (declare (not safe)) - (gx#stx-e _%tl201307201804%_)))) - (let ((_%tl201316201828%_ + (gx#stx-e _%tl204748205245%_)))) + (let ((_%tl204757205269%_ (let () (declare (not safe)) - (##cdr _%e201314201823%_))) - (_%hd201315201826%_ + (##cdr _%e204755205264%_))) + (_%hd204756205267%_ (let () (declare (not safe)) - (##car _%e201314201823%_)))) + (##car _%e204755205264%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201316201828%_)) - (let ((_%e201317201831%_ + (gx#stx-pair? _%tl204757205269%_)) + (let ((_%e204758205272%_ (let () (declare (not safe)) - (gx#stx-e _%tl201316201828%_)))) - (let ((_%tl201319201836%_ + (gx#stx-e _%tl204757205269%_)))) + (let ((_%tl204760205277%_ (let () (declare (not safe)) - (##cdr _%e201317201831%_))) - (_%hd201318201834%_ + (##cdr _%e204758205272%_))) + (_%hd204759205275%_ (let () (declare (not safe)) - (##car _%e201317201831%_)))) + (##car _%e204758205272%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201319201836%_)) - (_%__kont205779205780%_ - _%hd201318201834%_ - _%hd201315201826%_ - _%hd201312201818%_) + (gx#stx-null? _%tl204760205277%_)) + (_%__kont209203209204%_ + _%hd204759205275%_ + _%hd204756205267%_ + _%hd204753205259%_) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))))) - (let () (declare (not safe)) (_%g201297201407%_))) + (_%g204738204848%_))))) + (let () (declare (not safe)) (_%g204738204848%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201307201804%_)) - (let ((_%e201397201428%_ + (gx#stx-pair? _%tl204748205245%_)) + (let ((_%e204838204869%_ (let () (declare (not safe)) - (gx#stx-e _%tl201307201804%_)))) - (let ((_%tl201399201433%_ + (gx#stx-e _%tl204748205245%_)))) + (let ((_%tl204840204874%_ (let () (declare (not safe)) - (##cdr _%e201397201428%_))) - (_%hd201398201431%_ + (##cdr _%e204838204869%_))) + (_%hd204839204872%_ (let () (declare (not safe)) - (##car _%e201397201428%_)))) + (##car _%e204838204869%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201399201433%_)) - (let ((_%e201400201436%_ + (gx#stx-pair? _%tl204840204874%_)) + (let ((_%e204841204877%_ (let () (declare (not safe)) - (gx#stx-e _%tl201399201433%_)))) - (let ((_%tl201402201441%_ + (gx#stx-e _%tl204840204874%_)))) + (let ((_%tl204843204882%_ (let () (declare (not safe)) - (##cdr _%e201400201436%_))) - (_%hd201401201439%_ + (##cdr _%e204841204877%_))) + (_%hd204842204880%_ (let () (declare (not safe)) - (##car _%e201400201436%_)))) + (##car _%e204841204877%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201402201441%_)) - (_%__kont205785205786%_ - _%hd201401201439%_ - _%hd201398201431%_ - _%hd201306201802%_) + (gx#stx-null? _%tl204843204882%_)) + (_%__kont209209209210%_ + _%hd204842204880%_ + _%hd204839204872%_ + _%hd204747205243%_) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))))) - (let () (declare (not safe)) (_%g201297201407%_)))))) + (_%g204738204848%_))))) + (let () (declare (not safe)) (_%g204738204848%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201307201804%_)) - (let ((_%e201397201428%_ + _%tl204748205245%_)) + (let ((_%e204838204869%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl201307201804%_)))) - (let ((_%tl201399201433%_ - (let () (declare (not safe)) (##cdr _%e201397201428%_))) - (_%hd201398201431%_ + (gx#stx-e _%tl204748205245%_)))) + (let ((_%tl204840204874%_ + (let () (declare (not safe)) (##cdr _%e204838204869%_))) + (_%hd204839204872%_ (let () (declare (not safe)) - (##car _%e201397201428%_)))) + (##car _%e204838204869%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201399201433%_)) - (let ((_%e201400201436%_ + (gx#stx-pair? _%tl204840204874%_)) + (let ((_%e204841204877%_ (let () (declare (not safe)) - (gx#stx-e _%tl201399201433%_)))) - (let ((_%tl201402201441%_ + (gx#stx-e _%tl204840204874%_)))) + (let ((_%tl204843204882%_ (let () (declare (not safe)) - (##cdr _%e201400201436%_))) - (_%hd201401201439%_ + (##cdr _%e204841204877%_))) + (_%hd204842204880%_ (let () (declare (not safe)) - (##car _%e201400201436%_)))) + (##car _%e204841204877%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201402201441%_)) - (_%__kont205785205786%_ - _%hd201401201439%_ - _%hd201398201431%_ - _%hd201306201802%_) + (gx#stx-null? _%tl204843204882%_)) + (_%__kont209209209210%_ + _%hd204842204880%_ + _%hd204839204872%_ + _%hd204747205243%_) (let () (declare (not safe)) - (_%g201297201407%_))))) - (let () (declare (not safe)) (_%g201297201407%_))))) - (let () (declare (not safe)) (_%g201297201407%_)))) + (_%g204738204848%_))))) + (let () (declare (not safe)) (_%g204738204848%_))))) + (let () (declare (not safe)) (_%g204738204848%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd201309201810%_)) + _%hd204750205251%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201310201812%_)) - (let ((_%e201333201601%_ + _%tl204751205253%_)) + (let ((_%e204774205042%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl201310201812%_)))) - (let ((_%tl201335201606%_ - (let () (declare (not safe)) (##cdr _%e201333201601%_))) - (_%hd201334201604%_ + (gx#stx-e _%tl204751205253%_)))) + (let ((_%tl204776205047%_ + (let () (declare (not safe)) (##cdr _%e204774205042%_))) + (_%hd204775205045%_ (let () (declare (not safe)) - (##car _%e201333201601%_)))) + (##car _%e204774205042%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd201334201604%_)) - (let ((_%e201336201609%_ + (gx#stx-pair? _%hd204775205045%_)) + (let ((_%e204777205050%_ (let () (declare (not safe)) - (gx#stx-e _%hd201334201604%_)))) - (let ((_%tl201338201614%_ + (gx#stx-e _%hd204775205045%_)))) + (let ((_%tl204779205055%_ (let () (declare (not safe)) - (##cdr _%e201336201609%_))) - (_%hd201337201612%_ + (##cdr _%e204777205050%_))) + (_%hd204778205053%_ (let () (declare (not safe)) - (##car _%e201336201609%_)))) + (##car _%e204777205050%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd201337201612%_)) + (gx#identifier? _%hd204778205053%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd201337201612%_)) + (gx#stx-eq? '%#ref _%hd204778205053%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201338201614%_)) - (let ((_%e201339201617%_ + (gx#stx-pair? _%tl204779205055%_)) + (let ((_%e204780205058%_ (let () (declare (not safe)) - (gx#stx-e _%tl201338201614%_)))) - (let ((_%tl201341201622%_ + (gx#stx-e _%tl204779205055%_)))) + (let ((_%tl204782205063%_ (let () (declare (not safe)) - (##cdr _%e201339201617%_))) - (_%hd201340201620%_ + (##cdr _%e204780205058%_))) + (_%hd204781205061%_ (let () (declare (not safe)) - (##car _%e201339201617%_)))) + (##car _%e204780205058%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201341201622%_)) + _%tl204782205063%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201335201606%_)) - (let ((_%e201342201625%_ + _%tl204776205047%_)) + (let ((_%e204783205066%_ (let () (declare (not safe)) (gx#stx-e - _%tl201335201606%_)))) - (let ((_%tl201344201630%_ + _%tl204776205047%_)))) + (let ((_%tl204785205071%_ (let () (declare (not safe)) - (##cdr _%e201342201625%_))) - (_%hd201343201628%_ + (##cdr _%e204783205066%_))) + (_%hd204784205069%_ (let () (declare (not safe)) - (##car _%e201342201625%_)))) + (##car _%e204783205066%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd201343201628%_)) - (let ((_%e201345201633%_ + _%hd204784205069%_)) + (let ((_%e204786205074%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd201343201628%_)))) - (let ((_%tl201347201638%_ + (gx#stx-e _%hd204784205069%_)))) + (let ((_%tl204788205079%_ (let () (declare (not safe)) - (##cdr _%e201345201633%_))) - (_%hd201346201636%_ + (##cdr _%e204786205074%_))) + (_%hd204787205077%_ (let () (declare (not safe)) - (##car _%e201345201633%_)))) + (##car _%e204786205074%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd201346201636%_)) + (gx#identifier? _%hd204787205077%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd201346201636%_)) + (gx#stx-eq? '%#ref _%hd204787205077%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201347201638%_)) - (let ((_%e201348201641%_ + (gx#stx-pair? _%tl204788205079%_)) + (let ((_%e204789205082%_ (let () (declare (not safe)) - (gx#stx-e _%tl201347201638%_)))) - (let ((_%tl201350201646%_ + (gx#stx-e _%tl204788205079%_)))) + (let ((_%tl204791205087%_ (let () (declare (not safe)) - (##cdr _%e201348201641%_))) - (_%hd201349201644%_ + (##cdr _%e204789205082%_))) + (_%hd204790205085%_ (let () (declare (not safe)) - (##car _%e201348201641%_)))) + (##car _%e204789205082%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201350201646%_)) + (gx#stx-null? _%tl204791205087%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201344201630%_)) + _%tl204785205071%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201307201804%_)) - (let ((_%e201351201649%_ + _%tl204748205245%_)) + (let ((_%e204792205090%_ (let () (declare (not safe)) (gx#stx-e - _%tl201307201804%_)))) - (let ((_%tl201353201654%_ + _%tl204748205245%_)))) + (let ((_%tl204794205095%_ (let () (declare (not safe)) - (##cdr _%e201351201649%_))) - (_%hd201352201652%_ + (##cdr _%e204792205090%_))) + (_%hd204793205093%_ (let () (declare (not safe)) - (##car _%e201351201649%_)))) + (##car _%e204792205090%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201353201654%_)) - (let ((_%e201354201657%_ + _%tl204794205095%_)) + (let ((_%e204795205098%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl201353201654%_)))) - (let ((_%tl201356201662%_ + (gx#stx-e _%tl204794205095%_)))) + (let ((_%tl204797205103%_ (let () (declare (not safe)) - (##cdr _%e201354201657%_))) - (_%hd201355201660%_ + (##cdr _%e204795205098%_))) + (_%hd204796205101%_ (let () (declare (not safe)) - (##car _%e201354201657%_)))) + (##car _%e204795205098%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201356201662%_)) - (_%__kont205781205782%_ - _%hd201355201660%_ - _%hd201352201652%_ - _%hd201349201644%_ - _%hd201340201620%_) - (let () (declare (not safe)) (_%g201297201407%_))))) - (let () (declare (not safe)) (_%g201297201407%_))))) + (gx#stx-null? _%tl204797205103%_)) + (_%__kont209205209206%_ + _%hd204796205101%_ + _%hd204793205093%_ + _%hd204790205085%_ + _%hd204781205061%_) + (let () (declare (not safe)) (_%g204738204848%_))))) + (let () (declare (not safe)) (_%g204738204848%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g201297201407%_))) + (_%g204738204848%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201307201804%_)) - (let ((_%e201397201428%_ + _%tl204748205245%_)) + (let ((_%e204838204869%_ (let () (declare (not safe)) (gx#stx-e - _%tl201307201804%_)))) - (let ((_%tl201399201433%_ + _%tl204748205245%_)))) + (let ((_%tl204840204874%_ (let () (declare (not safe)) - (##cdr _%e201397201428%_))) - (_%hd201398201431%_ + (##cdr _%e204838204869%_))) + (_%hd204839204872%_ (let () (declare (not safe)) - (##car _%e201397201428%_)))) + (##car _%e204838204869%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201399201433%_)) - (let ((_%e201400201436%_ + _%tl204840204874%_)) + (let ((_%e204841204877%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl201399201433%_)))) - (let ((_%tl201402201441%_ + (gx#stx-e _%tl204840204874%_)))) + (let ((_%tl204843204882%_ (let () (declare (not safe)) - (##cdr _%e201400201436%_))) - (_%hd201401201439%_ + (##cdr _%e204841204877%_))) + (_%hd204842204880%_ (let () (declare (not safe)) - (##car _%e201400201436%_)))) + (##car _%e204841204877%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201402201441%_)) - (_%__kont205785205786%_ - _%hd201401201439%_ - _%hd201398201431%_ - _%hd201306201802%_) - (let () (declare (not safe)) (_%g201297201407%_))))) - (let () (declare (not safe)) (_%g201297201407%_))))) + (gx#stx-null? _%tl204843204882%_)) + (_%__kont209209209210%_ + _%hd204842204880%_ + _%hd204839204872%_ + _%hd204747205243%_) + (let () (declare (not safe)) (_%g204738204848%_))))) + (let () (declare (not safe)) (_%g204738204848%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g201297201407%_)))) + (_%g204738204848%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201344201630%_)) + _%tl204785205071%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201307201804%_)) - (let ((_%e201382201525%_ + _%tl204748205245%_)) + (let ((_%e204823204966%_ (let () (declare (not safe)) (gx#stx-e - _%tl201307201804%_)))) - (let ((_%tl201384201530%_ + _%tl204748205245%_)))) + (let ((_%tl204825204971%_ (let () (declare (not safe)) - (##cdr _%e201382201525%_))) - (_%hd201383201528%_ + (##cdr _%e204823204966%_))) + (_%hd204824204969%_ (let () (declare (not safe)) - (##car _%e201382201525%_)))) + (##car _%e204823204966%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201384201530%_)) - (let ((_%e201385201533%_ + _%tl204825204971%_)) + (let ((_%e204826204974%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl201384201530%_)))) - (let ((_%tl201387201538%_ + (gx#stx-e _%tl204825204971%_)))) + (let ((_%tl204828204979%_ (let () (declare (not safe)) - (##cdr _%e201385201533%_))) - (_%hd201386201536%_ + (##cdr _%e204826204974%_))) + (_%hd204827204977%_ (let () (declare (not safe)) - (##car _%e201385201533%_)))) + (##car _%e204826204974%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201387201538%_)) - (_%__match205984205985%_ - _%e201302201791%_ - _%hd201303201794%_ - _%tl201304201796%_ - _%e201305201799%_ - _%hd201306201802%_ - _%tl201307201804%_ - _%e201308201807%_ - _%hd201309201810%_ - _%tl201310201812%_ - _%e201333201601%_ - _%hd201334201604%_ - _%tl201335201606%_ - _%e201336201609%_ - _%hd201337201612%_ - _%tl201338201614%_ - _%e201339201617%_ - _%hd201340201620%_ - _%tl201341201622%_ - _%e201342201625%_ - _%hd201343201628%_ - _%tl201344201630%_ - _%e201382201525%_ - _%hd201383201528%_ - _%tl201384201530%_ - _%e201385201533%_ - _%hd201386201536%_ - _%tl201387201538%_) - (let () (declare (not safe)) (_%g201297201407%_))))) - (let () (declare (not safe)) (_%g201297201407%_))))) + (gx#stx-null? _%tl204828204979%_)) + (_%__match209408209409%_ + _%e204743205232%_ + _%hd204744205235%_ + _%tl204745205237%_ + _%e204746205240%_ + _%hd204747205243%_ + _%tl204748205245%_ + _%e204749205248%_ + _%hd204750205251%_ + _%tl204751205253%_ + _%e204774205042%_ + _%hd204775205045%_ + _%tl204776205047%_ + _%e204777205050%_ + _%hd204778205053%_ + _%tl204779205055%_ + _%e204780205058%_ + _%hd204781205061%_ + _%tl204782205063%_ + _%e204783205066%_ + _%hd204784205069%_ + _%tl204785205071%_ + _%e204823204966%_ + _%hd204824204969%_ + _%tl204825204971%_ + _%e204826204974%_ + _%hd204827204977%_ + _%tl204828204979%_) + (let () (declare (not safe)) (_%g204738204848%_))))) + (let () (declare (not safe)) (_%g204738204848%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g201297201407%_))) + (_%g204738204848%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201307201804%_)) - (let ((_%e201397201428%_ + _%tl204748205245%_)) + (let ((_%e204838204869%_ (let () (declare (not safe)) (gx#stx-e - _%tl201307201804%_)))) - (let ((_%tl201399201433%_ + _%tl204748205245%_)))) + (let ((_%tl204840204874%_ (let () (declare (not safe)) - (##cdr _%e201397201428%_))) - (_%hd201398201431%_ + (##cdr _%e204838204869%_))) + (_%hd204839204872%_ (let () (declare (not safe)) - (##car _%e201397201428%_)))) + (##car _%e204838204869%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201399201433%_)) - (let ((_%e201400201436%_ + _%tl204840204874%_)) + (let ((_%e204841204877%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl201399201433%_)))) - (let ((_%tl201402201441%_ + (gx#stx-e _%tl204840204874%_)))) + (let ((_%tl204843204882%_ (let () (declare (not safe)) - (##cdr _%e201400201436%_))) - (_%hd201401201439%_ + (##cdr _%e204841204877%_))) + (_%hd204842204880%_ (let () (declare (not safe)) - (##car _%e201400201436%_)))) + (##car _%e204841204877%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201402201441%_)) - (_%__kont205785205786%_ - _%hd201401201439%_ - _%hd201398201431%_ - _%hd201306201802%_) - (let () (declare (not safe)) (_%g201297201407%_))))) - (let () (declare (not safe)) (_%g201297201407%_))))) + (gx#stx-null? _%tl204843204882%_)) + (_%__kont209209209210%_ + _%hd204842204880%_ + _%hd204839204872%_ + _%hd204747205243%_) + (let () (declare (not safe)) (_%g204738204848%_))))) + (let () (declare (not safe)) (_%g204738204848%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g201297201407%_))))))) + (_%g204738204848%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201344201630%_)) + (gx#stx-null? _%tl204785205071%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201307201804%_)) - (let ((_%e201382201525%_ + (gx#stx-pair? _%tl204748205245%_)) + (let ((_%e204823204966%_ (let () (declare (not safe)) (gx#stx-e - _%tl201307201804%_)))) - (let ((_%tl201384201530%_ + _%tl204748205245%_)))) + (let ((_%tl204825204971%_ (let () (declare (not safe)) - (##cdr _%e201382201525%_))) - (_%hd201383201528%_ + (##cdr _%e204823204966%_))) + (_%hd204824204969%_ (let () (declare (not safe)) - (##car _%e201382201525%_)))) + (##car _%e204823204966%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201384201530%_)) - (let ((_%e201385201533%_ + _%tl204825204971%_)) + (let ((_%e204826204974%_ (let () (declare (not safe)) (gx#stx-e - _%tl201384201530%_)))) - (let ((_%tl201387201538%_ + _%tl204825204971%_)))) + (let ((_%tl204828204979%_ (let () (declare (not safe)) - (##cdr _%e201385201533%_))) - (_%hd201386201536%_ + (##cdr _%e204826204974%_))) + (_%hd204827204977%_ (let () (declare (not safe)) - (##car _%e201385201533%_)))) + (##car _%e204826204974%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201387201538%_)) - (_%__match205984205985%_ - _%e201302201791%_ - _%hd201303201794%_ - _%tl201304201796%_ - _%e201305201799%_ - _%hd201306201802%_ - _%tl201307201804%_ - _%e201308201807%_ - _%hd201309201810%_ - _%tl201310201812%_ - _%e201333201601%_ - _%hd201334201604%_ - _%tl201335201606%_ - _%e201336201609%_ - _%hd201337201612%_ - _%tl201338201614%_ - _%e201339201617%_ - _%hd201340201620%_ - _%tl201341201622%_ - _%e201342201625%_ - _%hd201343201628%_ - _%tl201344201630%_ - _%e201382201525%_ - _%hd201383201528%_ - _%tl201384201530%_ - _%e201385201533%_ - _%hd201386201536%_ - _%tl201387201538%_) + _%tl204828204979%_)) + (_%__match209408209409%_ + _%e204743205232%_ + _%hd204744205235%_ + _%tl204745205237%_ + _%e204746205240%_ + _%hd204747205243%_ + _%tl204748205245%_ + _%e204749205248%_ + _%hd204750205251%_ + _%tl204751205253%_ + _%e204774205042%_ + _%hd204775205045%_ + _%tl204776205047%_ + _%e204777205050%_ + _%hd204778205053%_ + _%tl204779205055%_ + _%e204780205058%_ + _%hd204781205061%_ + _%tl204782205063%_ + _%e204783205066%_ + _%hd204784205069%_ + _%tl204785205071%_ + _%e204823204966%_ + _%hd204824204969%_ + _%tl204825204971%_ + _%e204826204974%_ + _%hd204827204977%_ + _%tl204828204979%_) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))) + (_%g204738204848%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201307201804%_)) - (let ((_%e201397201428%_ + (gx#stx-pair? _%tl204748205245%_)) + (let ((_%e204838204869%_ (let () (declare (not safe)) (gx#stx-e - _%tl201307201804%_)))) - (let ((_%tl201399201433%_ + _%tl204748205245%_)))) + (let ((_%tl204840204874%_ (let () (declare (not safe)) - (##cdr _%e201397201428%_))) - (_%hd201398201431%_ + (##cdr _%e204838204869%_))) + (_%hd204839204872%_ (let () (declare (not safe)) - (##car _%e201397201428%_)))) + (##car _%e204838204869%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201399201433%_)) - (let ((_%e201400201436%_ + _%tl204840204874%_)) + (let ((_%e204841204877%_ (let () (declare (not safe)) (gx#stx-e - _%tl201399201433%_)))) - (let ((_%tl201402201441%_ + _%tl204840204874%_)))) + (let ((_%tl204843204882%_ (let () (declare (not safe)) - (##cdr _%e201400201436%_))) - (_%hd201401201439%_ + (##cdr _%e204841204877%_))) + (_%hd204842204880%_ (let () (declare (not safe)) - (##car _%e201400201436%_)))) + (##car _%e204841204877%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201402201441%_)) - (_%__kont205785205786%_ - _%hd201401201439%_ - _%hd201398201431%_ - _%hd201306201802%_) + _%tl204843204882%_)) + (_%__kont209209209210%_ + _%hd204842204880%_ + _%hd204839204872%_ + _%hd204747205243%_) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201344201630%_)) + (gx#stx-null? _%tl204785205071%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201307201804%_)) - (let ((_%e201382201525%_ + (gx#stx-pair? _%tl204748205245%_)) + (let ((_%e204823204966%_ (let () (declare (not safe)) - (gx#stx-e _%tl201307201804%_)))) - (let ((_%tl201384201530%_ + (gx#stx-e _%tl204748205245%_)))) + (let ((_%tl204825204971%_ (let () (declare (not safe)) - (##cdr _%e201382201525%_))) - (_%hd201383201528%_ + (##cdr _%e204823204966%_))) + (_%hd204824204969%_ (let () (declare (not safe)) - (##car _%e201382201525%_)))) + (##car _%e204823204966%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201384201530%_)) - (let ((_%e201385201533%_ + _%tl204825204971%_)) + (let ((_%e204826204974%_ (let () (declare (not safe)) (gx#stx-e - _%tl201384201530%_)))) - (let ((_%tl201387201538%_ + _%tl204825204971%_)))) + (let ((_%tl204828204979%_ (let () (declare (not safe)) - (##cdr _%e201385201533%_))) - (_%hd201386201536%_ + (##cdr _%e204826204974%_))) + (_%hd204827204977%_ (let () (declare (not safe)) - (##car _%e201385201533%_)))) + (##car _%e204826204974%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201387201538%_)) - (_%__match205984205985%_ - _%e201302201791%_ - _%hd201303201794%_ - _%tl201304201796%_ - _%e201305201799%_ - _%hd201306201802%_ - _%tl201307201804%_ - _%e201308201807%_ - _%hd201309201810%_ - _%tl201310201812%_ - _%e201333201601%_ - _%hd201334201604%_ - _%tl201335201606%_ - _%e201336201609%_ - _%hd201337201612%_ - _%tl201338201614%_ - _%e201339201617%_ - _%hd201340201620%_ - _%tl201341201622%_ - _%e201342201625%_ - _%hd201343201628%_ - _%tl201344201630%_ - _%e201382201525%_ - _%hd201383201528%_ - _%tl201384201530%_ - _%e201385201533%_ - _%hd201386201536%_ - _%tl201387201538%_) + _%tl204828204979%_)) + (_%__match209408209409%_ + _%e204743205232%_ + _%hd204744205235%_ + _%tl204745205237%_ + _%e204746205240%_ + _%hd204747205243%_ + _%tl204748205245%_ + _%e204749205248%_ + _%hd204750205251%_ + _%tl204751205253%_ + _%e204774205042%_ + _%hd204775205045%_ + _%tl204776205047%_ + _%e204777205050%_ + _%hd204778205053%_ + _%tl204779205055%_ + _%e204780205058%_ + _%hd204781205061%_ + _%tl204782205063%_ + _%e204783205066%_ + _%hd204784205069%_ + _%tl204785205071%_ + _%e204823204966%_ + _%hd204824204969%_ + _%tl204825204971%_ + _%e204826204974%_ + _%hd204827204977%_ + _%tl204828204979%_) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))) + (_%g204738204848%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201307201804%_)) - (let ((_%e201397201428%_ + (gx#stx-pair? _%tl204748205245%_)) + (let ((_%e204838204869%_ (let () (declare (not safe)) - (gx#stx-e _%tl201307201804%_)))) - (let ((_%tl201399201433%_ + (gx#stx-e _%tl204748205245%_)))) + (let ((_%tl204840204874%_ (let () (declare (not safe)) - (##cdr _%e201397201428%_))) - (_%hd201398201431%_ + (##cdr _%e204838204869%_))) + (_%hd204839204872%_ (let () (declare (not safe)) - (##car _%e201397201428%_)))) + (##car _%e204838204869%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201399201433%_)) - (let ((_%e201400201436%_ + _%tl204840204874%_)) + (let ((_%e204841204877%_ (let () (declare (not safe)) (gx#stx-e - _%tl201399201433%_)))) - (let ((_%tl201402201441%_ + _%tl204840204874%_)))) + (let ((_%tl204843204882%_ (let () (declare (not safe)) - (##cdr _%e201400201436%_))) - (_%hd201401201439%_ + (##cdr _%e204841204877%_))) + (_%hd204842204880%_ (let () (declare (not safe)) - (##car _%e201400201436%_)))) + (##car _%e204841204877%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201402201441%_)) - (_%__kont205785205786%_ - _%hd201401201439%_ - _%hd201398201431%_ - _%hd201306201802%_) + _%tl204843204882%_)) + (_%__kont209209209210%_ + _%hd204842204880%_ + _%hd204839204872%_ + _%hd204747205243%_) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201344201630%_)) + (gx#stx-null? _%tl204785205071%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201307201804%_)) - (let ((_%e201382201525%_ + (gx#stx-pair? _%tl204748205245%_)) + (let ((_%e204823204966%_ (let () (declare (not safe)) - (gx#stx-e _%tl201307201804%_)))) - (let ((_%tl201384201530%_ + (gx#stx-e _%tl204748205245%_)))) + (let ((_%tl204825204971%_ (let () (declare (not safe)) - (##cdr _%e201382201525%_))) - (_%hd201383201528%_ + (##cdr _%e204823204966%_))) + (_%hd204824204969%_ (let () (declare (not safe)) - (##car _%e201382201525%_)))) + (##car _%e204823204966%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201384201530%_)) - (let ((_%e201385201533%_ + (gx#stx-pair? _%tl204825204971%_)) + (let ((_%e204826204974%_ (let () (declare (not safe)) (gx#stx-e - _%tl201384201530%_)))) - (let ((_%tl201387201538%_ + _%tl204825204971%_)))) + (let ((_%tl204828204979%_ (let () (declare (not safe)) - (##cdr _%e201385201533%_))) - (_%hd201386201536%_ + (##cdr _%e204826204974%_))) + (_%hd204827204977%_ (let () (declare (not safe)) - (##car _%e201385201533%_)))) + (##car _%e204826204974%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201387201538%_)) - (_%__match205984205985%_ - _%e201302201791%_ - _%hd201303201794%_ - _%tl201304201796%_ - _%e201305201799%_ - _%hd201306201802%_ - _%tl201307201804%_ - _%e201308201807%_ - _%hd201309201810%_ - _%tl201310201812%_ - _%e201333201601%_ - _%hd201334201604%_ - _%tl201335201606%_ - _%e201336201609%_ - _%hd201337201612%_ - _%tl201338201614%_ - _%e201339201617%_ - _%hd201340201620%_ - _%tl201341201622%_ - _%e201342201625%_ - _%hd201343201628%_ - _%tl201344201630%_ - _%e201382201525%_ - _%hd201383201528%_ - _%tl201384201530%_ - _%e201385201533%_ - _%hd201386201536%_ - _%tl201387201538%_) + _%tl204828204979%_)) + (_%__match209408209409%_ + _%e204743205232%_ + _%hd204744205235%_ + _%tl204745205237%_ + _%e204746205240%_ + _%hd204747205243%_ + _%tl204748205245%_ + _%e204749205248%_ + _%hd204750205251%_ + _%tl204751205253%_ + _%e204774205042%_ + _%hd204775205045%_ + _%tl204776205047%_ + _%e204777205050%_ + _%hd204778205053%_ + _%tl204779205055%_ + _%e204780205058%_ + _%hd204781205061%_ + _%tl204782205063%_ + _%e204783205066%_ + _%hd204784205069%_ + _%tl204785205071%_ + _%e204823204966%_ + _%hd204824204969%_ + _%tl204825204971%_ + _%e204826204974%_ + _%hd204827204977%_ + _%tl204828204979%_) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))) + (_%g204738204848%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201307201804%_)) - (let ((_%e201397201428%_ + (gx#stx-pair? _%tl204748205245%_)) + (let ((_%e204838204869%_ (let () (declare (not safe)) - (gx#stx-e _%tl201307201804%_)))) - (let ((_%tl201399201433%_ + (gx#stx-e _%tl204748205245%_)))) + (let ((_%tl204840204874%_ (let () (declare (not safe)) - (##cdr _%e201397201428%_))) - (_%hd201398201431%_ + (##cdr _%e204838204869%_))) + (_%hd204839204872%_ (let () (declare (not safe)) - (##car _%e201397201428%_)))) + (##car _%e204838204869%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201399201433%_)) - (let ((_%e201400201436%_ + (gx#stx-pair? _%tl204840204874%_)) + (let ((_%e204841204877%_ (let () (declare (not safe)) (gx#stx-e - _%tl201399201433%_)))) - (let ((_%tl201402201441%_ + _%tl204840204874%_)))) + (let ((_%tl204843204882%_ (let () (declare (not safe)) - (##cdr _%e201400201436%_))) - (_%hd201401201439%_ + (##cdr _%e204841204877%_))) + (_%hd204842204880%_ (let () (declare (not safe)) - (##car _%e201400201436%_)))) + (##car _%e204841204877%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201402201441%_)) - (_%__kont205785205786%_ - _%hd201401201439%_ - _%hd201398201431%_ - _%hd201306201802%_) + _%tl204843204882%_)) + (_%__kont209209209210%_ + _%hd204842204880%_ + _%hd204839204872%_ + _%hd204747205243%_) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))))))) + (_%g204738204848%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201344201630%_)) + (gx#stx-null? _%tl204785205071%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201307201804%_)) - (let ((_%e201382201525%_ + (gx#stx-pair? _%tl204748205245%_)) + (let ((_%e204823204966%_ (let () (declare (not safe)) - (gx#stx-e _%tl201307201804%_)))) - (let ((_%tl201384201530%_ + (gx#stx-e _%tl204748205245%_)))) + (let ((_%tl204825204971%_ (let () (declare (not safe)) - (##cdr _%e201382201525%_))) - (_%hd201383201528%_ + (##cdr _%e204823204966%_))) + (_%hd204824204969%_ (let () (declare (not safe)) - (##car _%e201382201525%_)))) + (##car _%e204823204966%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201384201530%_)) - (let ((_%e201385201533%_ + (gx#stx-pair? _%tl204825204971%_)) + (let ((_%e204826204974%_ (let () (declare (not safe)) - (gx#stx-e _%tl201384201530%_)))) - (let ((_%tl201387201538%_ + (gx#stx-e _%tl204825204971%_)))) + (let ((_%tl204828204979%_ (let () (declare (not safe)) - (##cdr _%e201385201533%_))) - (_%hd201386201536%_ + (##cdr _%e204826204974%_))) + (_%hd204827204977%_ (let () (declare (not safe)) - (##car _%e201385201533%_)))) + (##car _%e204826204974%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201387201538%_)) - (_%__match205984205985%_ - _%e201302201791%_ - _%hd201303201794%_ - _%tl201304201796%_ - _%e201305201799%_ - _%hd201306201802%_ - _%tl201307201804%_ - _%e201308201807%_ - _%hd201309201810%_ - _%tl201310201812%_ - _%e201333201601%_ - _%hd201334201604%_ - _%tl201335201606%_ - _%e201336201609%_ - _%hd201337201612%_ - _%tl201338201614%_ - _%e201339201617%_ - _%hd201340201620%_ - _%tl201341201622%_ - _%e201342201625%_ - _%hd201343201628%_ - _%tl201344201630%_ - _%e201382201525%_ - _%hd201383201528%_ - _%tl201384201530%_ - _%e201385201533%_ - _%hd201386201536%_ - _%tl201387201538%_) + (gx#stx-null? _%tl204828204979%_)) + (_%__match209408209409%_ + _%e204743205232%_ + _%hd204744205235%_ + _%tl204745205237%_ + _%e204746205240%_ + _%hd204747205243%_ + _%tl204748205245%_ + _%e204749205248%_ + _%hd204750205251%_ + _%tl204751205253%_ + _%e204774205042%_ + _%hd204775205045%_ + _%tl204776205047%_ + _%e204777205050%_ + _%hd204778205053%_ + _%tl204779205055%_ + _%e204780205058%_ + _%hd204781205061%_ + _%tl204782205063%_ + _%e204783205066%_ + _%hd204784205069%_ + _%tl204785205071%_ + _%e204823204966%_ + _%hd204824204969%_ + _%tl204825204971%_ + _%e204826204974%_ + _%hd204827204977%_ + _%tl204828204979%_) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))))) - (let () (declare (not safe)) (_%g201297201407%_))) + (_%g204738204848%_))))) + (let () (declare (not safe)) (_%g204738204848%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201307201804%_)) - (let ((_%e201397201428%_ + (gx#stx-pair? _%tl204748205245%_)) + (let ((_%e204838204869%_ (let () (declare (not safe)) - (gx#stx-e _%tl201307201804%_)))) - (let ((_%tl201399201433%_ + (gx#stx-e _%tl204748205245%_)))) + (let ((_%tl204840204874%_ (let () (declare (not safe)) - (##cdr _%e201397201428%_))) - (_%hd201398201431%_ + (##cdr _%e204838204869%_))) + (_%hd204839204872%_ (let () (declare (not safe)) - (##car _%e201397201428%_)))) + (##car _%e204838204869%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201399201433%_)) - (let ((_%e201400201436%_ + (gx#stx-pair? _%tl204840204874%_)) + (let ((_%e204841204877%_ (let () (declare (not safe)) - (gx#stx-e _%tl201399201433%_)))) - (let ((_%tl201402201441%_ + (gx#stx-e _%tl204840204874%_)))) + (let ((_%tl204843204882%_ (let () (declare (not safe)) - (##cdr _%e201400201436%_))) - (_%hd201401201439%_ + (##cdr _%e204841204877%_))) + (_%hd204842204880%_ (let () (declare (not safe)) - (##car _%e201400201436%_)))) + (##car _%e204841204877%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201402201441%_)) - (_%__kont205785205786%_ - _%hd201401201439%_ - _%hd201398201431%_ - _%hd201306201802%_) + (gx#stx-null? _%tl204843204882%_)) + (_%__kont209209209210%_ + _%hd204842204880%_ + _%hd204839204872%_ + _%hd204747205243%_) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))))))) + (_%g204738204848%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201307201804%_)) - (let ((_%e201397201428%_ + _%tl204748205245%_)) + (let ((_%e204838204869%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl201307201804%_)))) - (let ((_%tl201399201433%_ - (let () (declare (not safe)) (##cdr _%e201397201428%_))) - (_%hd201398201431%_ + (gx#stx-e _%tl204748205245%_)))) + (let ((_%tl204840204874%_ + (let () (declare (not safe)) (##cdr _%e204838204869%_))) + (_%hd204839204872%_ (let () (declare (not safe)) - (##car _%e201397201428%_)))) + (##car _%e204838204869%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201399201433%_)) - (let ((_%e201400201436%_ + (gx#stx-pair? _%tl204840204874%_)) + (let ((_%e204841204877%_ (let () (declare (not safe)) - (gx#stx-e _%tl201399201433%_)))) - (let ((_%tl201402201441%_ + (gx#stx-e _%tl204840204874%_)))) + (let ((_%tl204843204882%_ (let () (declare (not safe)) - (##cdr _%e201400201436%_))) - (_%hd201401201439%_ + (##cdr _%e204841204877%_))) + (_%hd204842204880%_ (let () (declare (not safe)) - (##car _%e201400201436%_)))) + (##car _%e204841204877%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201402201441%_)) - (_%__kont205785205786%_ - _%hd201401201439%_ - _%hd201398201431%_ - _%hd201306201802%_) + (gx#stx-null? _%tl204843204882%_)) + (_%__kont209209209210%_ + _%hd204842204880%_ + _%hd204839204872%_ + _%hd204747205243%_) (let () (declare (not safe)) - (_%g201297201407%_))))) - (let () (declare (not safe)) (_%g201297201407%_))))) - (let () (declare (not safe)) (_%g201297201407%_)))) + (_%g204738204848%_))))) + (let () (declare (not safe)) (_%g204738204848%_))))) + (let () (declare (not safe)) (_%g204738204848%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201307201804%_)) - (let ((_%e201397201428%_ + _%tl204748205245%_)) + (let ((_%e204838204869%_ (let () (declare (not safe)) (gx#stx-e - _%tl201307201804%_)))) - (let ((_%tl201399201433%_ + _%tl204748205245%_)))) + (let ((_%tl204840204874%_ (let () (declare (not safe)) - (##cdr _%e201397201428%_))) - (_%hd201398201431%_ + (##cdr _%e204838204869%_))) + (_%hd204839204872%_ (let () (declare (not safe)) - (##car _%e201397201428%_)))) + (##car _%e204838204869%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201399201433%_)) - (let ((_%e201400201436%_ + _%tl204840204874%_)) + (let ((_%e204841204877%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl201399201433%_)))) - (let ((_%tl201402201441%_ + (gx#stx-e _%tl204840204874%_)))) + (let ((_%tl204843204882%_ (let () (declare (not safe)) - (##cdr _%e201400201436%_))) - (_%hd201401201439%_ + (##cdr _%e204841204877%_))) + (_%hd204842204880%_ (let () (declare (not safe)) - (##car _%e201400201436%_)))) + (##car _%e204841204877%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201402201441%_)) - (_%__kont205785205786%_ - _%hd201401201439%_ - _%hd201398201431%_ - _%hd201306201802%_) - (let () (declare (not safe)) (_%g201297201407%_))))) - (let () (declare (not safe)) (_%g201297201407%_))))) + (gx#stx-null? _%tl204843204882%_)) + (_%__kont209209209210%_ + _%hd204842204880%_ + _%hd204839204872%_ + _%hd204747205243%_) + (let () (declare (not safe)) (_%g204738204848%_))))) + (let () (declare (not safe)) (_%g204738204848%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g201297201407%_)))))) + (_%g204738204848%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201307201804%_)) - (let ((_%e201397201428%_ + (gx#stx-pair? _%tl204748205245%_)) + (let ((_%e204838204869%_ (let () (declare (not safe)) (gx#stx-e - _%tl201307201804%_)))) - (let ((_%tl201399201433%_ + _%tl204748205245%_)))) + (let ((_%tl204840204874%_ (let () (declare (not safe)) - (##cdr _%e201397201428%_))) - (_%hd201398201431%_ + (##cdr _%e204838204869%_))) + (_%hd204839204872%_ (let () (declare (not safe)) - (##car _%e201397201428%_)))) + (##car _%e204838204869%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201399201433%_)) - (let ((_%e201400201436%_ + _%tl204840204874%_)) + (let ((_%e204841204877%_ (let () (declare (not safe)) (gx#stx-e - _%tl201399201433%_)))) - (let ((_%tl201402201441%_ + _%tl204840204874%_)))) + (let ((_%tl204843204882%_ (let () (declare (not safe)) - (##cdr _%e201400201436%_))) - (_%hd201401201439%_ + (##cdr _%e204841204877%_))) + (_%hd204842204880%_ (let () (declare (not safe)) - (##car _%e201400201436%_)))) + (##car _%e204841204877%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201402201441%_)) - (_%__kont205785205786%_ - _%hd201401201439%_ - _%hd201398201431%_ - _%hd201306201802%_) + _%tl204843204882%_)) + (_%__kont209209209210%_ + _%hd204842204880%_ + _%hd204839204872%_ + _%hd204747205243%_) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_)))) + (_%g204738204848%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201307201804%_)) - (let ((_%e201397201428%_ + (gx#stx-pair? _%tl204748205245%_)) + (let ((_%e204838204869%_ (let () (declare (not safe)) - (gx#stx-e _%tl201307201804%_)))) - (let ((_%tl201399201433%_ + (gx#stx-e _%tl204748205245%_)))) + (let ((_%tl204840204874%_ (let () (declare (not safe)) - (##cdr _%e201397201428%_))) - (_%hd201398201431%_ + (##cdr _%e204838204869%_))) + (_%hd204839204872%_ (let () (declare (not safe)) - (##car _%e201397201428%_)))) + (##car _%e204838204869%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201399201433%_)) - (let ((_%e201400201436%_ + _%tl204840204874%_)) + (let ((_%e204841204877%_ (let () (declare (not safe)) (gx#stx-e - _%tl201399201433%_)))) - (let ((_%tl201402201441%_ + _%tl204840204874%_)))) + (let ((_%tl204843204882%_ (let () (declare (not safe)) - (##cdr _%e201400201436%_))) - (_%hd201401201439%_ + (##cdr _%e204841204877%_))) + (_%hd204842204880%_ (let () (declare (not safe)) - (##car _%e201400201436%_)))) + (##car _%e204841204877%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201402201441%_)) - (_%__kont205785205786%_ - _%hd201401201439%_ - _%hd201398201431%_ - _%hd201306201802%_) + _%tl204843204882%_)) + (_%__kont209209209210%_ + _%hd204842204880%_ + _%hd204839204872%_ + _%hd204747205243%_) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_)))) + (_%g204738204848%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201307201804%_)) - (let ((_%e201397201428%_ + (gx#stx-pair? _%tl204748205245%_)) + (let ((_%e204838204869%_ (let () (declare (not safe)) - (gx#stx-e _%tl201307201804%_)))) - (let ((_%tl201399201433%_ + (gx#stx-e _%tl204748205245%_)))) + (let ((_%tl204840204874%_ (let () (declare (not safe)) - (##cdr _%e201397201428%_))) - (_%hd201398201431%_ + (##cdr _%e204838204869%_))) + (_%hd204839204872%_ (let () (declare (not safe)) - (##car _%e201397201428%_)))) + (##car _%e204838204869%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201399201433%_)) - (let ((_%e201400201436%_ + (gx#stx-pair? _%tl204840204874%_)) + (let ((_%e204841204877%_ (let () (declare (not safe)) (gx#stx-e - _%tl201399201433%_)))) - (let ((_%tl201402201441%_ + _%tl204840204874%_)))) + (let ((_%tl204843204882%_ (let () (declare (not safe)) - (##cdr _%e201400201436%_))) - (_%hd201401201439%_ + (##cdr _%e204841204877%_))) + (_%hd204842204880%_ (let () (declare (not safe)) - (##car _%e201400201436%_)))) + (##car _%e204841204877%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201402201441%_)) - (_%__kont205785205786%_ - _%hd201401201439%_ - _%hd201398201431%_ - _%hd201306201802%_) + _%tl204843204882%_)) + (_%__kont209209209210%_ + _%hd204842204880%_ + _%hd204839204872%_ + _%hd204747205243%_) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_)))))) + (_%g204738204848%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201307201804%_)) - (let ((_%e201397201428%_ + (gx#stx-pair? _%tl204748205245%_)) + (let ((_%e204838204869%_ (let () (declare (not safe)) - (gx#stx-e _%tl201307201804%_)))) - (let ((_%tl201399201433%_ + (gx#stx-e _%tl204748205245%_)))) + (let ((_%tl204840204874%_ (let () (declare (not safe)) - (##cdr _%e201397201428%_))) - (_%hd201398201431%_ + (##cdr _%e204838204869%_))) + (_%hd204839204872%_ (let () (declare (not safe)) - (##car _%e201397201428%_)))) + (##car _%e204838204869%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201399201433%_)) - (let ((_%e201400201436%_ + (gx#stx-pair? _%tl204840204874%_)) + (let ((_%e204841204877%_ (let () (declare (not safe)) - (gx#stx-e _%tl201399201433%_)))) - (let ((_%tl201402201441%_ + (gx#stx-e _%tl204840204874%_)))) + (let ((_%tl204843204882%_ (let () (declare (not safe)) - (##cdr _%e201400201436%_))) - (_%hd201401201439%_ + (##cdr _%e204841204877%_))) + (_%hd204842204880%_ (let () (declare (not safe)) - (##car _%e201400201436%_)))) + (##car _%e204841204877%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201402201441%_)) - (_%__kont205785205786%_ - _%hd201401201439%_ - _%hd201398201431%_ - _%hd201306201802%_) + (gx#stx-null? _%tl204843204882%_)) + (_%__kont209209209210%_ + _%hd204842204880%_ + _%hd204839204872%_ + _%hd204747205243%_) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))))) - (let () (declare (not safe)) (_%g201297201407%_)))))) + (_%g204738204848%_))))) + (let () (declare (not safe)) (_%g204738204848%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201307201804%_)) - (let ((_%e201397201428%_ + (gx#stx-pair? _%tl204748205245%_)) + (let ((_%e204838204869%_ (let () (declare (not safe)) - (gx#stx-e _%tl201307201804%_)))) - (let ((_%tl201399201433%_ + (gx#stx-e _%tl204748205245%_)))) + (let ((_%tl204840204874%_ (let () (declare (not safe)) - (##cdr _%e201397201428%_))) - (_%hd201398201431%_ + (##cdr _%e204838204869%_))) + (_%hd204839204872%_ (let () (declare (not safe)) - (##car _%e201397201428%_)))) + (##car _%e204838204869%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201399201433%_)) - (let ((_%e201400201436%_ + (gx#stx-pair? _%tl204840204874%_)) + (let ((_%e204841204877%_ (let () (declare (not safe)) - (gx#stx-e _%tl201399201433%_)))) - (let ((_%tl201402201441%_ + (gx#stx-e _%tl204840204874%_)))) + (let ((_%tl204843204882%_ (let () (declare (not safe)) - (##cdr _%e201400201436%_))) - (_%hd201401201439%_ + (##cdr _%e204841204877%_))) + (_%hd204842204880%_ (let () (declare (not safe)) - (##car _%e201400201436%_)))) + (##car _%e204841204877%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201402201441%_)) - (_%__kont205785205786%_ - _%hd201401201439%_ - _%hd201398201431%_ - _%hd201306201802%_) + (gx#stx-null? _%tl204843204882%_)) + (_%__kont209209209210%_ + _%hd204842204880%_ + _%hd204839204872%_ + _%hd204747205243%_) (let () (declare (not safe)) - (_%g201297201407%_))))) - (let () (declare (not safe)) (_%g201297201407%_))))) - (let () (declare (not safe)) (_%g201297201407%_)))) + (_%g204738204848%_))))) + (let () (declare (not safe)) (_%g204738204848%_))))) + (let () (declare (not safe)) (_%g204738204848%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201307201804%_)) - (let ((_%e201397201428%_ + _%tl204748205245%_)) + (let ((_%e204838204869%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl201307201804%_)))) - (let ((_%tl201399201433%_ - (let () (declare (not safe)) (##cdr _%e201397201428%_))) - (_%hd201398201431%_ + (gx#stx-e _%tl204748205245%_)))) + (let ((_%tl204840204874%_ + (let () (declare (not safe)) (##cdr _%e204838204869%_))) + (_%hd204839204872%_ (let () (declare (not safe)) - (##car _%e201397201428%_)))) + (##car _%e204838204869%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201399201433%_)) - (let ((_%e201400201436%_ + (gx#stx-pair? _%tl204840204874%_)) + (let ((_%e204841204877%_ (let () (declare (not safe)) - (gx#stx-e _%tl201399201433%_)))) - (let ((_%tl201402201441%_ + (gx#stx-e _%tl204840204874%_)))) + (let ((_%tl204843204882%_ (let () (declare (not safe)) - (##cdr _%e201400201436%_))) - (_%hd201401201439%_ + (##cdr _%e204841204877%_))) + (_%hd204842204880%_ (let () (declare (not safe)) - (##car _%e201400201436%_)))) + (##car _%e204841204877%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201402201441%_)) - (_%__kont205785205786%_ - _%hd201401201439%_ - _%hd201398201431%_ - _%hd201306201802%_) + (gx#stx-null? _%tl204843204882%_)) + (_%__kont209209209210%_ + _%hd204842204880%_ + _%hd204839204872%_ + _%hd204747205243%_) (let () (declare (not safe)) - (_%g201297201407%_))))) - (let () (declare (not safe)) (_%g201297201407%_))))) - (let () (declare (not safe)) (_%g201297201407%_))))) + (_%g204738204848%_))))) + (let () (declare (not safe)) (_%g204738204848%_))))) + (let () (declare (not safe)) (_%g204738204848%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201307201804%_)) - (let ((_%e201397201428%_ + _%tl204748205245%_)) + (let ((_%e204838204869%_ (let () (declare (not safe)) (gx#stx-e - _%tl201307201804%_)))) - (let ((_%tl201399201433%_ + _%tl204748205245%_)))) + (let ((_%tl204840204874%_ (let () (declare (not safe)) - (##cdr _%e201397201428%_))) - (_%hd201398201431%_ + (##cdr _%e204838204869%_))) + (_%hd204839204872%_ (let () (declare (not safe)) - (##car _%e201397201428%_)))) + (##car _%e204838204869%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201399201433%_)) - (let ((_%e201400201436%_ + _%tl204840204874%_)) + (let ((_%e204841204877%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl201399201433%_)))) - (let ((_%tl201402201441%_ - (let () (declare (not safe)) (##cdr _%e201400201436%_))) - (_%hd201401201439%_ + (gx#stx-e _%tl204840204874%_)))) + (let ((_%tl204843204882%_ + (let () (declare (not safe)) (##cdr _%e204841204877%_))) + (_%hd204842204880%_ (let () (declare (not safe)) - (##car _%e201400201436%_)))) + (##car _%e204841204877%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl201402201441%_)) - (_%__kont205785205786%_ - _%hd201401201439%_ - _%hd201398201431%_ - _%hd201306201802%_) - (let () (declare (not safe)) (_%g201297201407%_))))) - (let () (declare (not safe)) (_%g201297201407%_))))) + (gx#stx-null? _%tl204843204882%_)) + (_%__kont209209209210%_ + _%hd204842204880%_ + _%hd204839204872%_ + _%hd204747205243%_) + (let () (declare (not safe)) (_%g204738204848%_))))) + (let () (declare (not safe)) (_%g204738204848%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g201297201407%_)))))) + (_%g204738204848%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl201307201804%_)) - (let ((_%e201397201428%_ + (gx#stx-pair? _%tl204748205245%_)) + (let ((_%e204838204869%_ (let () (declare (not safe)) - (gx#stx-e _%tl201307201804%_)))) - (let ((_%tl201399201433%_ + (gx#stx-e _%tl204748205245%_)))) + (let ((_%tl204840204874%_ (let () (declare (not safe)) - (##cdr _%e201397201428%_))) - (_%hd201398201431%_ + (##cdr _%e204838204869%_))) + (_%hd204839204872%_ (let () (declare (not safe)) - (##car _%e201397201428%_)))) + (##car _%e204838204869%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl201399201433%_)) - (let ((_%e201400201436%_ + _%tl204840204874%_)) + (let ((_%e204841204877%_ (let () (declare (not safe)) (gx#stx-e - _%tl201399201433%_)))) - (let ((_%tl201402201441%_ + _%tl204840204874%_)))) + (let ((_%tl204843204882%_ (let () (declare (not safe)) - (##cdr _%e201400201436%_))) - (_%hd201401201439%_ + (##cdr _%e204841204877%_))) + (_%hd204842204880%_ (let () (declare (not safe)) - (##car _%e201400201436%_)))) + (##car _%e204841204877%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl201402201441%_)) - (_%__kont205785205786%_ - _%hd201401201439%_ - _%hd201398201431%_ - _%hd201306201802%_) + _%tl204843204882%_)) + (_%__kont209209209210%_ + _%hd204842204880%_ + _%hd204839204872%_ + _%hd204747205243%_) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_))))) + (_%g204738204848%_))))) (let () (declare (not safe)) - (_%g201297201407%_)))))) - (let () (declare (not safe)) (_%g201297201407%_))))) - (let () (declare (not safe)) (_%g201297201407%_)))))))))) + (_%g204738204848%_)))))) + (let () (declare (not safe)) (_%g204738204848%_))))) + (let () (declare (not safe)) (_%g204738204848%_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call~1.scm b/src/bootstrap/gerbil/compiler/optimize-call~1.scm index f307d3c169..6b858a7cb2 100644 --- a/src/bootstrap/gerbil/compiler/optimize-call~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-call~1.scm @@ -1,55 +1,55 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g206140_| + (define |gxc[1]#_g209564_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g206142_| + (define |gxc[1]#_g209566_| (##structure gx#syntax-quote::t '::optimize-call::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g206144_| + (define |gxc[1]#_g209568_| (##structure gx#syntax-quote::t 'make-::optimize-call #f (gx#current-expander-context) '())) - (define |gxc[1]#_g206146_| + (define |gxc[1]#_g209570_| (##structure gx#syntax-quote::t '::optimize-call? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g206148_| + (define |gxc[1]#_g209572_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g206150_| + (define |gxc[1]#_g209574_| (##structure gx#syntax-quote::t '::check-return-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g206152_| + (define |gxc[1]#_g209576_| (##structure gx#syntax-quote::t 'make-::check-return-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g206154_| + (define |gxc[1]#_g209578_| (##structure gx#syntax-quote::t '::check-return-type? @@ -58,7 +58,7 @@ '())) (begin (define |gxc[:0:]#::optimize-call| - (let ((__obj206012 + (let ((__obj209436 (let () (declare (not safe)) (##structure @@ -87,68 +87,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj206012 + __obj209436 'gxc#::optimize-call::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206012 '::optimize-call '2 '#f '#f)) + (##unchecked-structure-set! __obj209436 '::optimize-call '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206012 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj209436 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206012 '() '6 '#f '#f)) - (let ((__tmp206139 (cons |gxc[1]#_g206140_| '()))) + (##unchecked-structure-set! __obj209436 '() '7 '#f '#f)) + (let ((__tmp209563 (cons |gxc[1]#_g209564_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj206012 __tmp206139 '3 '#f '#f)) + (##unchecked-structure-set! __obj209436 __tmp209563 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206012 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj209436 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206012 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj209436 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206012 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj209436 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206012 '#f '11 '#f '#f)) - (let ((__tmp206141 |gxc[1]#_g206142_|)) + (##unchecked-structure-set! __obj209436 '#f '12 '#f '#f)) + (let ((__tmp209565 |gxc[1]#_g209566_|)) (declare (not safe)) - (##unchecked-structure-set! __obj206012 __tmp206141 '12 '#f '#f)) - (let ((__tmp206143 |gxc[1]#_g206144_|)) + (##unchecked-structure-set! __obj209436 __tmp209565 '3 '#f '#f)) + (let ((__tmp209567 |gxc[1]#_g209568_|)) (declare (not safe)) - (##unchecked-structure-set! __obj206012 __tmp206143 '13 '#f '#f)) - (let ((__tmp206145 |gxc[1]#_g206146_|)) + (##unchecked-structure-set! __obj209436 __tmp209567 '13 '#f '#f)) + (let ((__tmp209569 |gxc[1]#_g209570_|)) (declare (not safe)) - (##unchecked-structure-set! __obj206012 __tmp206145 '14 '#f '#f)) + (##unchecked-structure-set! __obj209436 __tmp209569 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206012 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj209436 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206012 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj209436 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206012 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj209436 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206012 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj209436 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206012 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj209436 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206012 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj209436 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206012 '() '20 '#f '#f)) - __obj206012)) + (##unchecked-structure-set! __obj209436 '() '20 '#f '#f)) + __obj209436)) (define |gxc[:0:]#::check-return-type| - (let ((__obj206014 + (let ((__obj209438 (let () (declare (not safe)) (##structure @@ -177,7 +177,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj206014 + __obj209438 'gxc#::check-return-type::t '1 '#f @@ -185,60 +185,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj206014 + __obj209438 '::check-return-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206014 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj209438 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206014 '() '6 '#f '#f)) - (let ((__tmp206147 (cons |gxc[1]#_g206148_| '()))) + (##unchecked-structure-set! __obj209438 '() '7 '#f '#f)) + (let ((__tmp209571 (cons |gxc[1]#_g209572_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj206014 __tmp206147 '3 '#f '#f)) + (##unchecked-structure-set! __obj209438 __tmp209571 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206014 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj209438 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206014 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj209438 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206014 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj209438 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206014 '#f '11 '#f '#f)) - (let ((__tmp206149 |gxc[1]#_g206150_|)) + (##unchecked-structure-set! __obj209438 '#f '12 '#f '#f)) + (let ((__tmp209573 |gxc[1]#_g209574_|)) (declare (not safe)) - (##unchecked-structure-set! __obj206014 __tmp206149 '12 '#f '#f)) - (let ((__tmp206151 |gxc[1]#_g206152_|)) + (##unchecked-structure-set! __obj209438 __tmp209573 '3 '#f '#f)) + (let ((__tmp209575 |gxc[1]#_g209576_|)) (declare (not safe)) - (##unchecked-structure-set! __obj206014 __tmp206151 '13 '#f '#f)) - (let ((__tmp206153 |gxc[1]#_g206154_|)) + (##unchecked-structure-set! __obj209438 __tmp209575 '13 '#f '#f)) + (let ((__tmp209577 |gxc[1]#_g209578_|)) (declare (not safe)) - (##unchecked-structure-set! __obj206014 __tmp206153 '14 '#f '#f)) + (##unchecked-structure-set! __obj209438 __tmp209577 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206014 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj209438 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206014 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj209438 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206014 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj209438 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206014 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj209438 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206014 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj209438 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206014 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj209438 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj206014 '() '20 '#f '#f)) - __obj206014)))) + (##unchecked-structure-set! __obj209438 '() '20 '#f '#f)) + __obj209438)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec~0.scm b/src/bootstrap/gerbil/compiler/optimize-spec~0.scm index d25af817f0..77750dc1ae 100644 --- a/src/bootstrap/gerbil/compiler/optimize-spec~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-spec~0.scm @@ -1,29 +1,29 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-spec::timestamp 1756721299) + (define gerbil/compiler/optimize-spec::timestamp 1769384632) (begin (define gxc#::generate-method-specializers::t - (let ((__tmp186683 (list gxc#::identity::t)) - (__tmp186682 (cons (cons 'final: '#t) '()))) + (let ((__tmp190196 (list gxc#::identity::t)) + (__tmp190195 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-method-specializers::t '::generate-method-specializers - __tmp186683 + __tmp190196 '() - __tmp186682 + __tmp190195 '#f))) (define gxc#::generate-method-specializers? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-method-specializers::t))) (define gxc#make-::generate-method-specializers - (lambda _%$args185480%_ + (lambda _%$args188993%_ (apply make-instance gxc#::generate-method-specializers::t - _%$args185480%_))) + _%$args188993%_))) (define gxc#::generate-method-specializers-bind-methods! - (let ((__tmp186684 + (let ((__tmp190197 (lambda () (force gxc#::identity-bind-methods!) (let () @@ -54,46 +54,46 @@ (declare (not safe)) (__seal-class! gxc#::generate-method-specializers::t))))) (declare (not safe)) - (__make-atomic-promise __tmp186684))) + (__make-atomic-promise __tmp190197))) (define gxc#apply-generate-method-specializers - (lambda (_%stx185472%_) + (lambda (_%stx188985%_) (force gxc#::generate-method-specializers-bind-methods!) - (let* ((_%self185475%_ - (let ((__obj186675 + (let* ((_%self188988%_ + (let ((__obj190188 (let () (declare (not safe)) (##structure gxc#::generate-method-specializers::t)))) - __obj186675)) - (__tmp186685 + __obj190188)) + (__tmp190198 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self185475%_ _%stx185472%_))))) + (gxc#compile-e__1 _%self188988%_ _%stx188985%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp186685 + __tmp190198 gxc#current-compile-method - _%self185475%_)))) + _%self188988%_)))) (define gxc#::extract-receiver::t - (let ((__tmp186687 (list gxc#::false::t)) - (__tmp186686 (cons (cons 'final: '#t) '()))) + (let ((__tmp190200 (list gxc#::false::t)) + (__tmp190199 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::extract-receiver::t '::extract-receiver - __tmp186687 + __tmp190200 '() - __tmp186686 + __tmp190199 '#f))) (define gxc#::extract-receiver? (let () (declare (not safe)) (__make-class-predicate gxc#::extract-receiver::t))) (define gxc#make-::extract-receiver - (lambda _%$args185469%_ - (apply make-instance gxc#::extract-receiver::t _%$args185469%_))) + (lambda _%$args188982%_ + (apply make-instance gxc#::extract-receiver::t _%$args188982%_))) (define gxc#::extract-receiver-bind-methods! - (let ((__tmp186688 + (let ((__tmp190201 (lambda () (force gxc#::false-bind-methods!) (let () @@ -136,44 +136,44 @@ (declare (not safe)) (__seal-class! gxc#::extract-receiver::t))))) (declare (not safe)) - (__make-atomic-promise __tmp186688))) + (__make-atomic-promise __tmp190201))) (define gxc#apply-extract-receiver - (lambda (_%stx185461%_) + (lambda (_%stx188974%_) (force gxc#::extract-receiver-bind-methods!) - (let* ((_%self185464%_ - (let ((__obj186677 + (let* ((_%self188977%_ + (let ((__obj190190 (let () (declare (not safe)) (##structure gxc#::extract-receiver::t)))) - __obj186677)) - (__tmp186689 + __obj190190)) + (__tmp190202 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self185464%_ _%stx185461%_))))) + (gxc#compile-e__1 _%self188977%_ _%stx188974%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp186689 + __tmp190202 gxc#current-compile-method - _%self185464%_)))) + _%self188977%_)))) (define gxc#::collect-object-refs::t - (let ((__tmp186691 (list gxc#::void::t)) - (__tmp186690 (cons (cons 'final: '#t) '()))) + (let ((__tmp190204 (list gxc#::void::t)) + (__tmp190203 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-object-refs::t '::collect-object-refs - __tmp186691 + __tmp190204 '(receiver methods slots) - __tmp186690 + __tmp190203 '#f))) (define gxc#::collect-object-refs? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-object-refs::t))) (define gxc#make-::collect-object-refs - (lambda _%$args185458%_ - (apply make-instance gxc#::collect-object-refs::t _%$args185458%_))) + (lambda _%$args188971%_ + (apply make-instance gxc#::collect-object-refs::t _%$args188971%_))) (define gxc#::collect-object-refs-receiver (let () (declare (not safe)) @@ -235,7 +235,7 @@ gxc#::collect-object-refs::t 'slots))) (define gxc#::collect-object-refs-bind-methods! - (let ((__tmp186692 + (let ((__tmp190205 (lambda () (force gxc#::void-bind-methods!) (let () @@ -338,34 +338,34 @@ (declare (not safe)) (__seal-class! gxc#::collect-object-refs::t))))) (declare (not safe)) - (__make-atomic-promise __tmp186692))) + (__make-atomic-promise __tmp190205))) (define gxc#apply-collect-object-refs__% - (lambda (_%@@keywords185424%_ - _%receiver185419185425%_ - _%methods185420185427%_ - _%slots185421185429%_ - _%stx185431%_) - (let* ((_%receiver185434%_ - (if (eq? _%receiver185419185425%_ absent-value) + (lambda (_%@@keywords188940%_ + _%receiver188935188941%_ + _%methods188936188942%_ + _%slots188937188943%_ + _%stx188944%_) + (let* ((_%receiver188947%_ + (if (eq? _%receiver188935188941%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'receiver:)) - _%receiver185419185425%_)) - (_%methods185436%_ - (if (eq? _%methods185420185427%_ absent-value) + _%receiver188935188941%_)) + (_%methods188949%_ + (if (eq? _%methods188936188942%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _%methods185420185427%_)) - (_%slots185438%_ - (if (eq? _%slots185421185429%_ absent-value) + _%methods188936188942%_)) + (_%slots188951%_ + (if (eq? _%slots188937188943%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _%slots185421185429%_))) + _%slots188937188943%_))) (force gxc#::collect-object-refs-bind-methods!) - (let* ((_%self185440%_ - (let ((__obj186679 + (let* ((_%self188953%_ + (let ((__obj190192 (let () (declare (not safe)) (##structure @@ -376,85 +376,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186679 - _%receiver185434%_ + __obj190192 + _%receiver188947%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj186679 - _%methods185436%_ + __obj190192 + _%methods188949%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj186679 - _%slots185438%_ + __obj190192 + _%slots188951%_ '3 '#f '#f)) - __obj186679)) - (__tmp186693 + __obj190192)) + (__tmp190206 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self185440%_ _%stx185431%_))))) + (gxc#compile-e__1 _%self188953%_ _%stx188944%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp186693 + __tmp190206 gxc#current-compile-method - _%self185440%_))))) + _%self188953%_))))) (define gxc#apply-collect-object-refs__@ - (lambda (_%@@keywords185447%_ . _%args185448%_) + (lambda (_%@@keywords188960%_ . _%args188961%_) (apply gxc#apply-collect-object-refs__% - _%@@keywords185447%_ + _%@@keywords188960%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords185447%_ + _%@@keywords188960%_ 'receiver: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords185447%_ + _%@@keywords188960%_ 'methods: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords185447%_ + _%@@keywords188960%_ 'slots: absent-value)) - _%args185448%_))) + _%args188961%_))) (define gxc#apply-collect-object-refs - (lambda _%args185422185454%_ + (lambda _%args188938188967%_ (apply keyword-dispatch '#(receiver: slots: methods:) gxc#apply-collect-object-refs__@ - _%args185422185454%_))) + _%args188938188967%_))) (define gxc#::subst-object-refs::t - (let ((__tmp186695 (list gxc#::basic-xform-expression::t)) - (__tmp186694 (cons (cons 'final: '#t) '()))) + (let ((__tmp190208 (list gxc#::basic-xform-expression::t)) + (__tmp190207 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::subst-object-refs::t '::subst-object-refs - __tmp186695 + __tmp190208 '(receiver klass methods slots) - __tmp186694 + __tmp190207 '#f))) (define gxc#::subst-object-refs? (let () (declare (not safe)) (__make-class-predicate gxc#::subst-object-refs::t))) (define gxc#make-::subst-object-refs - (lambda _%$args185415%_ - (apply make-instance gxc#::subst-object-refs::t _%$args185415%_))) + (lambda _%$args188931%_ + (apply make-instance gxc#::subst-object-refs::t _%$args188931%_))) (define gxc#::subst-object-refs-receiver (let () (declare (not safe)) @@ -536,7 +536,7 @@ gxc#::subst-object-refs::t 'slots))) (define gxc#::subst-object-refs-bind-methods! - (let ((__tmp186696 + (let ((__tmp190209 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (let () @@ -555,41 +555,41 @@ (declare (not safe)) (__seal-class! gxc#::subst-object-refs::t))))) (declare (not safe)) - (__make-atomic-promise __tmp186696))) + (__make-atomic-promise __tmp190209))) (define gxc#apply-subst-object-refs__% - (lambda (_%@@keywords185377%_ - _%receiver185371185378%_ - _%klass185372185380%_ - _%methods185373185382%_ - _%slots185374185384%_ - _%stx185386%_) - (let* ((_%receiver185389%_ - (if (eq? _%receiver185371185378%_ absent-value) + (lambda (_%@@keywords188897%_ + _%receiver188891188898%_ + _%klass188892188899%_ + _%methods188893188900%_ + _%slots188894188901%_ + _%stx188902%_) + (let* ((_%receiver188905%_ + (if (eq? _%receiver188891188898%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'receiver:)) - _%receiver185371185378%_)) - (_%klass185391%_ - (if (eq? _%klass185372185380%_ absent-value) + _%receiver188891188898%_)) + (_%klass188907%_ + (if (eq? _%klass188892188899%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'klass:)) - _%klass185372185380%_)) - (_%methods185393%_ - (if (eq? _%methods185373185382%_ absent-value) + _%klass188892188899%_)) + (_%methods188909%_ + (if (eq? _%methods188893188900%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _%methods185373185382%_)) - (_%slots185395%_ - (if (eq? _%slots185374185384%_ absent-value) + _%methods188893188900%_)) + (_%slots188911%_ + (if (eq? _%slots188894188901%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _%slots185374185384%_))) + _%slots188894188901%_))) (force gxc#::subst-object-refs-bind-methods!) - (let* ((_%self185397%_ - (let ((__obj186681 + (let* ((_%self188913%_ + (let ((__obj190194 (let () (declare (not safe)) (##structure @@ -601,96 +601,96 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186681 - _%receiver185389%_ + __obj190194 + _%receiver188905%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj186681 - _%klass185391%_ + __obj190194 + _%klass188907%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj186681 - _%methods185393%_ + __obj190194 + _%methods188909%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj186681 - _%slots185395%_ + __obj190194 + _%slots188911%_ '4 '#f '#f)) - __obj186681)) - (__tmp186697 + __obj190194)) + (__tmp190210 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self185397%_ _%stx185386%_))))) + (gxc#compile-e__1 _%self188913%_ _%stx188902%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp186697 + __tmp190210 gxc#current-compile-method - _%self185397%_))))) + _%self188913%_))))) (define gxc#apply-subst-object-refs__@ - (lambda (_%@@keywords185404%_ . _%args185405%_) + (lambda (_%@@keywords188920%_ . _%args188921%_) (apply gxc#apply-subst-object-refs__% - _%@@keywords185404%_ + _%@@keywords188920%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords185404%_ + _%@@keywords188920%_ 'receiver: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords185404%_ + _%@@keywords188920%_ 'klass: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords185404%_ + _%@@keywords188920%_ 'methods: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords185404%_ + _%@@keywords188920%_ 'slots: absent-value)) - _%args185405%_))) + _%args188921%_))) (define gxc#apply-subst-object-refs - (lambda _%args185375185411%_ + (lambda _%args188895188927%_ (apply keyword-dispatch '#(receiver: methods: slots: klass:) gxc#apply-subst-object-refs__@ - _%args185375185411%_))) + _%args188895188927%_))) (define gxc#generate-method-specializers-define-values% - (lambda (_%self182486%_ _%stx182487%_) - (letrec ((_%generate-method-bind182489%_ - (lambda (_%$klass185363%_ - _%$method-table185364%_ - _%id185365%_ - _%$id185366%_) - (let ((_%$tmp185368%_ - (let ((__tmp186698 + (lambda (_%self186022%_ _%stx186023%_) + (letrec ((_%generate-method-bind186025%_ + (lambda (_%$klass188883%_ + _%$method-table188884%_ + _%id188885%_ + _%$id188886%_) + (let ((_%$tmp188888%_ + (let ((__tmp190211 (let () (declare (not safe)) (##gensym '__method)))) (declare (not safe)) - (make-symbol__0 __tmp186698)))) - (cons (cons _%$id185366%_ '()) + (make-symbol__0 __tmp190211)))) + (cons (cons _%$id188886%_ '()) (cons (cons '%#call (cons (cons '%#ref (cons 'make-promise '())) @@ -698,14 +698,14 @@ (cons '() (cons (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%$tmp185368%_ '()) + (cons (cons (cons (cons _%$tmp188888%_ '()) (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'symbolic-table-ref '())) (cons (cons '%#ref - (cons _%$method-table185364%_ '())) + (cons _%$method-table188884%_ '())) (cons (cons '%#quote - (cons _%id185365%_ '())) + (cons _%id188885%_ '())) (cons (cons '%#quote (cons '#f '())) '()))))) @@ -715,15 +715,15 @@ (cons (cons '%#if (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tmp185368%_ '())) - (cons (cons '%#ref (cons _%$tmp185368%_ '())) + (cons _%$tmp188888%_ '())) + (cons (cons '%#ref (cons _%$tmp188888%_ '())) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote (cons '"Missing method" '())) (cons (cons '%#quote - (cons _%id185365%_ + (cons _%id188885%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) @@ -735,26 +735,26 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) - (_%generate-slot-bind182490%_ - (lambda (_%$klass185357%_ _%id185358%_ _%$id185359%_) - (let ((_%$tmp185361%_ - (let ((__tmp186699 + (_%generate-slot-bind186026%_ + (lambda (_%$klass188877%_ _%id188878%_ _%$id188879%_) + (let ((_%$tmp188881%_ + (let ((__tmp190212 (let () (declare (not safe)) (##gensym '__slot)))) (declare (not safe)) - (make-symbol__0 __tmp186699)))) - (cons (cons _%$id185359%_ '()) + (make-symbol__0 __tmp190212)))) + (cons (cons _%$id188879%_ '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%$tmp185361%_ + (cons (cons (cons (cons _%$tmp188881%_ '()) (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'class-slot-offset '())) (cons (cons '%#ref - (cons _%$klass185357%_ '())) + (cons _%$klass188877%_ '())) (cons (cons '%#quote - (cons _%id185358%_ '())) + (cons _%id188878%_ '())) '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -762,481 +762,481 @@ (cons (cons '%#if (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tmp185361%_ '())) - (cons (cons '%#ref (cons _%$tmp185361%_ '())) + (cons _%$tmp188881%_ '())) + (cons (cons '%#ref (cons _%$tmp188881%_ '())) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote (cons '"Unknown slot" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons '%#quote (cons _%id185358%_ '())) '())))) + (cons (cons '%#quote (cons _%id188878%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) - (_%generate-specializer-impl182491%_ - (lambda (_%$klass185351%_ - _%$method-table185352%_ - _%methods-bind185353%_ - _%slots-bind185354%_ - _%specializer-impl185355%_) - (let ((__tmp186700 + (_%generate-specializer-impl186027%_ + (lambda (_%$klass188871%_ + _%$method-table188872%_ + _%methods-bind188873%_ + _%slots-bind188874%_ + _%specializer-impl188875%_) + (let ((__tmp190213 (cons '%#lambda - (cons (cons _%$klass185351%_ - (cons _%$method-table185352%_ + (cons (cons _%$klass188871%_ + (cons _%$method-table188872%_ '())) (cons (cons '%#let-values (cons (let () (declare (not safe)) (__foldr1 cons - _%slots-bind185354%_ - _%methods-bind185353%_)) - (cons _%specializer-impl185355%_ + _%slots-bind188874%_ + _%methods-bind188873%_)) + (cons _%specializer-impl188875%_ '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp186700 _%stx182487%_)))) - (_%generate-specializer-def182492%_ - (lambda (_%id185347%_ - _%specializer-id185348%_ - _%specializer-impl185349%_) - (let ((__tmp186701 + (gxc#xform-wrap-source __tmp190213 _%stx186023%_)))) + (_%generate-specializer-def186028%_ + (lambda (_%id188867%_ + _%specializer-id188868%_ + _%specializer-impl188869%_) + (let ((__tmp190214 (cons '%#begin - (cons _%stx182487%_ - (cons (let ((__tmp186702 + (cons _%stx186023%_ + (cons (let ((__tmp190215 (cons '%#define-values - (cons (cons _%specializer-id185348%_ + (cons (cons _%specializer-id188868%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%specializer-impl185349%_ '()))))) + (cons _%specializer-impl188869%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp186702 - _%stx182487%_)) - (cons (let ((__tmp186703 + __tmp190215 + _%stx186023%_)) + (cons (let ((__tmp190216 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'bind-specializer! '())) - (cons (cons '%#ref (cons _%id185347%_ '())) + (cons (cons '%#ref (cons _%id188867%_ '())) (cons (cons '%#ref - (cons _%specializer-id185348%_ + (cons _%specializer-id188868%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp186703 - _%stx182487%_)) + __tmp190216 + _%stx186023%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp186701 _%stx182487%_))))) - (let* ((_%__stx185569185570%_ _%stx182487%_) - (_%g182495182515%_ + (gxc#xform-wrap-source __tmp190214 _%stx186023%_))))) + (let* ((_%__stx189082189083%_ _%stx186023%_) + (_%g186031186051%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx185569185570%_))))) - (let ((_%__kont185571185572%_ - (lambda (_%L182559%_ _%L182560%_) - (let ((_%method-calls182579%_ + _%__stx189082189083%_))))) + (let ((_%__kont189084189085%_ + (lambda (_%g186033186095%_ _%g186034186096%_) + (let ((_%method-calls186115%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%slot-refs182580%_ + (_%slot-refs186116%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%empty182581%_ + (_%empty186117%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (letrec ((_%no-specializer?182583%_ + (letrec ((_%no-specializer?186119%_ (lambda () - (if (let ((__tmp186704 + (if (let ((__tmp190217 (let () (declare (not safe)) (__hash-length - _%method-calls182579%_)))) + _%method-calls186115%_)))) (declare (not safe)) - (##fxzero? __tmp186704)) - (let ((__tmp186705 + (##fxzero? __tmp190217)) + (let ((__tmp190218 (let () (declare (not safe)) (__hash-length - _%slot-refs182580%_)))) + _%slot-refs186116%_)))) (declare (not safe)) - (##fxzero? __tmp186705)) + (##fxzero? __tmp190218)) '#f)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _%L182559%_)) - (let* ((_%__stx185483185484%_ _%L182559%_) - (_%g182971182989%_ + (gxc#lambda-expr? _%g186033186095%_)) + (let* ((_%__stx188996188997%_ _%g186033186095%_) + (_%g186503186521%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx185483185484%_))))) - (let ((_%__kont185485185486%_ - (lambda (_%L183025%_ - _%L183026%_ - _%L183027%_) - (let ((_%receiver183047%_ - (let ((_%$e183044%_ + _%__stx188996188997%_))))) + (let ((_%__kont188998188999%_ + (lambda (_%g186505186557%_ + _%g186506186558%_ + _%g186507186559%_) + (let ((_%receiver186579%_ + (let ((_%$e186576%_ (gxc#apply-extract-receiver (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L183025%_)))) + _%g186505186557%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e183044%_ - _%$e183044%_ - _%L183027%_)))) + (if _%$e186576%_ + _%$e186576%_ + _%g186507186559%_)))) (for-each - (lambda (_%g183048183050%_) + (lambda (_%g186580186582%_) (gxc#apply-collect-object-refs__% '#f - _%receiver183047%_ - _%method-calls182579%_ - _%slot-refs182580%_ - _%g183048183050%_)) - _%L183025%_) - (if (_%no-specializer?182583%_) - _%stx182487%_ - (let* ((_%specializer-id183059%_ - (let* ((_%id183053%_ - (let ((__tmp186706 + _%receiver186579%_ + _%method-calls186115%_ + _%slot-refs186116%_ + _%g186580186582%_)) + _%g186505186557%_) + (if (_%no-specializer?186119%_) + _%stx186023%_ + (let* ((_%specializer-id186591%_ + (let* ((_%id186585%_ + (let ((__tmp190219 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%L182560%_)))) + (gx#stx-e _%g186034186096%_)))) (declare (not safe)) - (make-symbol__1 __tmp186706 '"::specialize"))) - (_%specializer-id183056%_ - (let ((__tmp186707 + (make-symbol__1 __tmp190219 '"::specialize"))) + (_%specializer-id186588%_ + (let ((__tmp190220 (let () (declare (not safe)) - (gx#stx-source _%stx182487%_)))) + (gx#stx-source _%stx186023%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%id183053%_ __tmp186707)))) + (gx#core-quote-syntax__1 _%id186585%_ __tmp190220)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id183056%_)) - _%specializer-id183056%_)) + (gx#core-bind-runtime!__0 _%specializer-id186588%_)) + _%specializer-id186588%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$klass183061%_ - (let ((__tmp186708 + (_%$klass186593%_ + (let ((__tmp190221 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp186708))) + (make-symbol__0 __tmp190221))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$method-table183063%_ - (let ((__tmp186709 + (_%$method-table186595%_ + (let ((__tmp190222 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp186709))) + (make-symbol__0 __tmp190222))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%methods183065%_ + (_%methods186597%_ (let () (declare (not safe)) (__hash-keys - _%method-calls182579%_))) - (_%$methods183069%_ - (let ((__tmp186710 - (lambda (_%id183067%_) - (let ((__tmp186711 + _%method-calls186115%_))) + (_%$methods186601%_ + (let ((__tmp190223 + (lambda (_%id186599%_) + (let ((__tmp190224 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id183067%_))) + (gensym _%id186599%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp186711))))) + (make-symbol__1 '"__" __tmp190224))))) (declare (not safe)) - (##map __tmp186710 _%methods183065%_))) + (##map __tmp190223 _%methods186597%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_183078%_ - (let ((__tmp186712 - (lambda (_%g183070183073%_ + (_%_186610%_ + (let ((__tmp190225 + (lambda (_%g186602186605%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g183071183075%_) + _%g186603186607%_) (let () (declare (not safe)) (__hash-put! - _%method-calls182579%_ - _%g183070183073%_ - _%g183071183075%_))))) + _%method-calls186115%_ + _%g186602186605%_ + _%g186603186607%_))))) (declare (not safe)) - (##for-each __tmp186712 _%methods183065%_ _%$methods183069%_))) + (##for-each __tmp190225 _%methods186597%_ _%$methods186601%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%methods-bind183088%_ - (let ((__tmp186713 - (lambda (_%g183080183083%_ + (_%methods-bind186620%_ + (let ((__tmp190226 + (lambda (_%g186612186615%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g183081183085%_) - (_%generate-method-bind182489%_ - _%$klass183061%_ - _%$method-table183063%_ - _%g183080183083%_ - _%g183081183085%_)))) + _%g186613186617%_) + (_%generate-method-bind186025%_ + _%$klass186593%_ + _%$method-table186595%_ + _%g186612186615%_ + _%g186613186617%_)))) (declare (not safe)) - (##map __tmp186713 _%methods183065%_ _%$methods183069%_))) + (##map __tmp190226 _%methods186597%_ _%$methods186601%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%slots183090%_ + (_%slots186622%_ (let () (declare (not safe)) (__hash-keys - _%slot-refs182580%_))) - (_%$slots183094%_ - (let ((__tmp186714 - (lambda (_%id183092%_) - (let ((__tmp186715 + _%slot-refs186116%_))) + (_%$slots186626%_ + (let ((__tmp190227 + (lambda (_%id186624%_) + (let ((__tmp190228 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id183092%_))) + (gensym _%id186624%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp186715))))) + (make-symbol__1 '"__" __tmp190228))))) (declare (not safe)) - (##map __tmp186714 _%slots183090%_))) + (##map __tmp190227 _%slots186622%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_183103%_ - (let ((__tmp186716 - (lambda (_%g183095183098%_ + (_%_186635%_ + (let ((__tmp190229 + (lambda (_%g186627186630%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g183096183100%_) + _%g186628186632%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs182580%_ - _%g183095183098%_ - _%g183096183100%_))))) + _%slot-refs186116%_ + _%g186627186630%_ + _%g186628186632%_))))) (declare (not safe)) - (##for-each __tmp186716 _%slots183090%_ _%$slots183094%_))) + (##for-each __tmp190229 _%slots186622%_ _%$slots186626%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%slots-bind183112%_ - (let ((__tmp186717 - (lambda (_%g183104183107%_ + (_%slots-bind186644%_ + (let ((__tmp190230 + (lambda (_%g186636186639%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g183105183109%_) - (_%generate-slot-bind182490%_ - _%$klass183061%_ - _%g183104183107%_ - _%g183105183109%_)))) + _%g186637186641%_) + (_%generate-slot-bind186026%_ + _%$klass186593%_ + _%g186636186639%_ + _%g186637186641%_)))) (declare (not safe)) - (##map __tmp186717 _%slots183090%_ _%$slots183094%_))) + (##map __tmp190230 _%slots186622%_ _%$slots186626%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-body183118%_ - (map (lambda (_%g183113183115%_) + (_%specializer-body186650%_ + (map (lambda (_%g186645186647%_) (gxc#apply-subst-object-refs__% '#f - _%receiver183047%_ - _%$klass183061%_ - _%method-calls182579%_ - _%slot-refs182580%_ - _%g183113183115%_)) - _%L183025%_)) - (_%specializer-impl183120%_ - (let ((__tmp186718 + _%receiver186579%_ + _%$klass186593%_ + _%method-calls186115%_ + _%slot-refs186116%_ + _%g186645186647%_)) + _%g186505186557%_)) + (_%specializer-impl186652%_ + (let ((__tmp190231 (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L183027%_ _%L183026%_) - _%specializer-body183118%_)))) + (cons (cons _%g186507186559%_ _%g186506186558%_) + _%specializer-body186650%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp186718 _%stx182487%_))) + (gxc#xform-wrap-source __tmp190231 _%stx186023%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl183122%_ - (_%generate-specializer-impl182491%_ - _%$klass183061%_ - _%$method-table183063%_ - _%methods-bind183088%_ - _%slots-bind183112%_ - _%specializer-impl183120%_))) - (let ((__tmp186720 + (_%specializer-impl186654%_ + (_%generate-specializer-impl186027%_ + _%$klass186593%_ + _%$method-table186595%_ + _%methods-bind186620%_ + _%slots-bind186644%_ + _%specializer-impl186652%_))) + (let ((__tmp190233 (let () (declare (not safe)) (gx#stx-e - _%L182560%_))) - (__tmp186719 + _%g186034186096%_))) + (__tmp190232 (let () (declare (not safe)) (gx#stx-e - _%specializer-id183059%_)))) + _%specializer-id186591%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp186720 + __tmp190233 '" => " - __tmp186719)) - (_%generate-specializer-def182492%_ - _%L182560%_ - _%specializer-id183059%_ - _%specializer-impl183122%_)))))) - (_%__kont185487185488%_ - (lambda () _%stx182487%_))) + __tmp190232)) + (_%generate-specializer-def186028%_ + _%g186034186096%_ + _%specializer-id186591%_ + _%specializer-impl186654%_)))))) + (_%__kont189000189001%_ + (lambda () _%stx186023%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx185483185484%_)) - (let ((_%e182976183001%_ + (gx#stx-pair? _%__stx188996188997%_)) + (let ((_%e186508186533%_ (let () (declare (not safe)) (gx#stx-e - _%__stx185483185484%_)))) - (let ((_%tl182978183006%_ + _%__stx188996188997%_)))) + (let ((_%tl186510186538%_ (let () (declare (not safe)) - (##cdr _%e182976183001%_))) - (_%hd182977183004%_ + (##cdr _%e186508186533%_))) + (_%hd186509186536%_ (let () (declare (not safe)) - (##car _%e182976183001%_)))) + (##car _%e186508186533%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182978183006%_)) - (let ((_%e182979183009%_ + _%tl186510186538%_)) + (let ((_%e186511186541%_ (let () (declare (not safe)) (gx#stx-e - _%tl182978183006%_)))) - (let ((_%tl182981183014%_ + _%tl186510186538%_)))) + (let ((_%tl186513186546%_ (let () (declare (not safe)) - (##cdr _%e182979183009%_))) - (_%hd182980183012%_ + (##cdr _%e186511186541%_))) + (_%hd186512186544%_ (let () (declare (not safe)) - (##car _%e182979183009%_)))) + (##car _%e186511186541%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182980183012%_)) - (let ((_%e182982183017%_ + _%hd186512186544%_)) + (let ((_%e186514186549%_ (let () (declare (not safe)) (gx#stx-e - _%hd182980183012%_)))) - (let ((_%tl182984183022%_ + _%hd186512186544%_)))) + (let ((_%tl186516186554%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e182982183017%_))) - (_%hd182983183020%_ - (let () (declare (not safe)) (##car _%e182982183017%_)))) - (_%__kont185485185486%_ - _%tl182981183014%_ - _%tl182984183022%_ - _%hd182983183020%_))) + (##cdr _%e186514186549%_))) + (_%hd186515186552%_ + (let () (declare (not safe)) (##car _%e186514186549%_)))) + (_%__kont188998188999%_ + _%tl186513186546%_ + _%tl186516186554%_ + _%hd186515186552%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185487185488%_)))) - (_%__kont185487185488%_)))) - (_%__kont185487185488%_)))) + (_%__kont189000189001%_)))) + (_%__kont189000189001%_)))) + (_%__kont189000189001%_)))) (if (let () (declare (not safe)) - (gxc#case-lambda-expr? _%L182559%_)) - (let* ((_%g183129183148%_ - (lambda (_%g183130183145%_) + (gxc#case-lambda-expr? _%g186033186095%_)) + (let* ((_%g186661186680%_ + (lambda (_%g186662186677%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g183130183145%_)))) - (_%g183128183446%_ - (lambda (_%g183130183151%_) + _%g186662186677%_)))) + (_%g186660186976%_ + (lambda (_%g186662186683%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g183130183151%_)) - (let ((_%e183132183153%_ + _%g186662186683%_)) + (let ((_%e186664186685%_ (let () (declare (not safe)) (gx#stx-e - _%g183130183151%_)))) - (let ((_%hd183133183156%_ + _%g186662186683%_)))) + (let ((_%hd186665186688%_ (let () (declare (not safe)) - (##car _%e183132183153%_))) - (_%tl183134183158%_ + (##car _%e186664186685%_))) + (_%tl186666186690%_ (let () (declare (not safe)) - (##cdr _%e183132183153%_)))) + (##cdr _%e186664186685%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl183134183158%_)) - (let ((_g186721_ + _%tl186666186690%_)) + (let ((_g190234_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl183134183158%_ '0)))) + (gx#syntax-split-splice _%tl186666186690%_ '0)))) (begin - (let ((_g186722_ + (let ((_g190235_ (let () (declare (not safe)) - (if (##values? _g186721_) - (##values-length _g186721_) + (if (##values? _g190234_) + (##values-length _g190234_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g186722_ 2))) - (error "Context expects 2 values" _g186722_))) - (let ((_%target183135183161%_ + (##fx= _g190235_ 2))) + (error "Context expects 2 values" _g190235_))) + (let ((_%target186667186693%_ (let () (declare (not safe)) - (##values-ref _g186721_ 0))) - (_%tl183137183163%_ + (##values-ref _g190234_ 0))) + (_%tl186669186695%_ (let () (declare (not safe)) - (##values-ref _g186721_ 1)))) + (##values-ref _g190234_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183137183163%_)) - (letrec ((_%loop183138183166%_ - (lambda (_%hd183136183169%_ - _%clause183142183171%_) + (gx#stx-null? _%tl186669186695%_)) + (letrec ((_%loop186670186698%_ + (lambda (_%hd186668186701%_ + _%clause186674186703%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183136183169%_)) - (let ((_%e183139183174%_ + (gx#stx-pair? _%hd186668186701%_)) + (let ((_%e186671186705%_ (let () (declare (not safe)) (gx#stx-e - _%hd183136183169%_)))) - (let ((_%lp-hd183140183177%_ + _%hd186668186701%_)))) + (let ((_%lp-hd186672186708%_ (let () (declare (not safe)) - (##car _%e183139183174%_))) - (_%lp-tl183141183179%_ + (##car _%e186671186705%_))) + (_%lp-tl186673186710%_ (let () (declare (not safe)) - (##cdr _%e183139183174%_)))) - (_%loop183138183166%_ - _%lp-tl183141183179%_ - (cons _%lp-hd183140183177%_ - _%clause183142183171%_)))) - (let ((_%clause183143183182%_ - (reverse _%clause183142183171%_))) - ((lambda (_%L183185%_) + (##cdr _%e186671186705%_)))) + (_%loop186670186698%_ + _%lp-tl186673186710%_ + (cons _%lp-hd186672186708%_ + _%clause186674186703%_)))) + (let ((_%clause186675186713%_ + (reverse _%clause186674186703%_))) + ((lambda (_%g186663186715%_) (for-each - (lambda (_%clause183199%_) - (let* ((_%__stx185509185510%_ - _%clause183199%_) - (_%g183202183217%_ + (lambda (_%clause186729%_) + (let* ((_%__stx189022189023%_ + _%clause186729%_) + (_%g186732186747%_ (lambda () (let () (declare @@ -1244,199 +1244,203 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx185509185510%_))))) - (let ((_%__kont185511185512%_ - (lambda (_%L183245%_ + _%__stx189022189023%_))))) + (let ((_%__kont189024189025%_ + (lambda (_%g186734186775%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L183246%_ - _%L183247%_) - (let ((_%receiver183266%_ - (let ((_%$e183263%_ + _%g186735186776%_ + _%g186736186777%_) + (let ((_%receiver186796%_ + (let ((_%$e186793%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L183245%_)))) - (if _%$e183263%_ _%$e183263%_ _%L183247%_)))) + _%g186734186775%_)))) + (if _%$e186793%_ + _%$e186793%_ + _%g186736186777%_)))) (for-each - (lambda (_%g183267183269%_) + (lambda (_%g186797186799%_) (gxc#apply-collect-object-refs__% '#f - _%receiver183266%_ - _%method-calls182579%_ - _%slot-refs182580%_ - _%g183267183269%_)) - _%L183245%_)))) - (_%__kont185513185514%_ (lambda () '#!void))) + _%receiver186796%_ + _%method-calls186115%_ + _%slot-refs186116%_ + _%g186797186799%_)) + _%g186734186775%_)))) + (_%__kont189026189027%_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx185509185510%_)) - (let ((_%e183207183229%_ + _%__stx189022189023%_)) + (let ((_%e186737186759%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx185509185510%_)))) - (let ((_%tl183209183234%_ + (gx#stx-e _%__stx189022189023%_)))) + (let ((_%tl186739186764%_ (let () (declare (not safe)) - (##cdr _%e183207183229%_))) - (_%hd183208183232%_ + (##cdr _%e186737186759%_))) + (_%hd186738186762%_ (let () (declare (not safe)) - (##car _%e183207183229%_)))) + (##car _%e186737186759%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183208183232%_)) - (let ((_%e183210183237%_ + (gx#stx-pair? _%hd186738186762%_)) + (let ((_%e186740186767%_ (let () (declare (not safe)) - (gx#stx-e _%hd183208183232%_)))) - (let ((_%tl183212183242%_ + (gx#stx-e _%hd186738186762%_)))) + (let ((_%tl186742186772%_ (let () (declare (not safe)) - (##cdr _%e183210183237%_))) - (_%hd183211183240%_ + (##cdr _%e186740186767%_))) + (_%hd186741186770%_ (let () (declare (not safe)) - (##car _%e183210183237%_)))) - (_%__kont185511185512%_ - _%tl183209183234%_ - _%tl183212183242%_ - _%hd183211183240%_))) - (_%__kont185513185514%_)))) - (_%__kont185513185514%_))))) + (##car _%e186740186767%_)))) + (_%__kont189024189025%_ + _%tl186739186764%_ + _%tl186742186772%_ + _%hd186741186770%_))) + (_%__kont189026189027%_)))) + (_%__kont189026189027%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp186723 - (lambda (_%g183274183277%_ - _%g183275183279%_) - (cons _%g183274183277%_ - _%g183275183279%_)))) + (let ((__tmp190236 + (lambda (_%g186804186807%_ + _%g186805186809%_) + (cons _%g186804186807%_ + _%g186805186809%_)))) (declare (not safe)) (__foldr1 - __tmp186723 + __tmp190236 '() - _%L183185%_))) - (if (_%no-specializer?182583%_) - _%stx182487%_ - (let* ((_%specializer-id183288%_ - (let* ((_%id183282%_ + _%g186663186715%_))) + (if (_%no-specializer?186119%_) + _%stx186023%_ + (let* ((_%specializer-id186818%_ + (let* ((_%id186812%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp186724 + (let ((__tmp190237 (let () (declare (not safe)) - (gx#stx-e _%L182560%_)))) + (gx#stx-e _%g186034186096%_)))) (declare (not safe)) - (make-symbol__1 __tmp186724 '"::specialize"))) - (_%specializer-id183285%_ - (let ((__tmp186725 + (make-symbol__1 __tmp190237 '"::specialize"))) + (_%specializer-id186815%_ + (let ((__tmp190238 (let () (declare (not safe)) - (gx#stx-source _%stx182487%_)))) + (gx#stx-source _%stx186023%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id183282%_ - __tmp186725)))) + _%id186812%_ + __tmp190238)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id183285%_)) - _%specializer-id183285%_)) - (_%$klass183290%_ - (let ((__tmp186726 + (gx#core-bind-runtime!__0 _%specializer-id186815%_)) + _%specializer-id186815%_)) + (_%$klass186820%_ + (let ((__tmp190239 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp186726))) - (_%$method-table183292%_ - (let ((__tmp186727 + (make-symbol__0 __tmp190239))) + (_%$method-table186822%_ + (let ((__tmp190240 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp186727))) - (_%methods183294%_ + (make-symbol__0 __tmp190240))) + (_%methods186824%_ (let () (declare (not safe)) - (__hash-keys _%method-calls182579%_))) - (_%$methods183298%_ - (let ((__tmp186728 - (lambda (_%id183296%_) - (let ((__tmp186729 (gensym _%id183296%_))) + (__hash-keys _%method-calls186115%_))) + (_%$methods186828%_ + (let ((__tmp190241 + (lambda (_%id186826%_) + (let ((__tmp190242 (gensym _%id186826%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp186729))))) + (make-symbol__1 '"__" __tmp190242))))) (declare (not safe)) - (##map __tmp186728 _%methods183294%_))) - (_%_183307%_ - (let ((__tmp186730 - (lambda (_%g183299183302%_ _%g183300183304%_) + (##map __tmp190241 _%methods186824%_))) + (_%_186837%_ + (let ((__tmp190243 + (lambda (_%g186829186832%_ _%g186830186834%_) (let () (declare (not safe)) (__hash-put! - _%method-calls182579%_ - _%g183299183302%_ - _%g183300183304%_))))) + _%method-calls186115%_ + _%g186829186832%_ + _%g186830186834%_))))) (declare (not safe)) (##for-each - __tmp186730 - _%methods183294%_ - _%$methods183298%_))) - (_%methods-bind183317%_ - (let ((__tmp186731 - (lambda (_%g183309183312%_ _%g183310183314%_) - (_%generate-method-bind182489%_ - _%$klass183290%_ - _%$method-table183292%_ - _%g183309183312%_ - _%g183310183314%_)))) + __tmp190243 + _%methods186824%_ + _%$methods186828%_))) + (_%methods-bind186847%_ + (let ((__tmp190244 + (lambda (_%g186839186842%_ _%g186840186844%_) + (_%generate-method-bind186025%_ + _%$klass186820%_ + _%$method-table186822%_ + _%g186839186842%_ + _%g186840186844%_)))) (declare (not safe)) - (##map __tmp186731 _%methods183294%_ _%$methods183298%_))) - (_%slots183319%_ + (##map __tmp190244 _%methods186824%_ _%$methods186828%_))) + (_%slots186849%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs182580%_))) - (_%$slots183323%_ - (let ((__tmp186732 - (lambda (_%id183321%_) - (let ((__tmp186733 (gensym _%id183321%_))) + (__hash-keys _%slot-refs186116%_))) + (_%$slots186853%_ + (let ((__tmp190245 + (lambda (_%id186851%_) + (let ((__tmp190246 (gensym _%id186851%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp186733))))) + (make-symbol__1 '"__" __tmp190246))))) (declare (not safe)) - (##map __tmp186732 _%slots183319%_))) - (_%_183332%_ - (let ((__tmp186734 - (lambda (_%g183324183327%_ _%g183325183329%_) + (##map __tmp190245 _%slots186849%_))) + (_%_186862%_ + (let ((__tmp190247 + (lambda (_%g186854186857%_ _%g186855186859%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs182580%_ - _%g183324183327%_ - _%g183325183329%_))))) + _%slot-refs186116%_ + _%g186854186857%_ + _%g186855186859%_))))) (declare (not safe)) - (##for-each __tmp186734 _%slots183319%_ _%$slots183323%_))) - (_%slots-bind183341%_ - (let ((__tmp186735 - (lambda (_%g183333183336%_ _%g183334183338%_) - (_%generate-slot-bind182490%_ - _%$klass183290%_ - _%g183333183336%_ - _%g183334183338%_)))) + (##for-each __tmp190247 _%slots186849%_ _%$slots186853%_))) + (_%slots-bind186871%_ + (let ((__tmp190248 + (lambda (_%g186863186866%_ _%g186864186868%_) + (_%generate-slot-bind186026%_ + _%$klass186820%_ + _%g186863186866%_ + _%g186864186868%_)))) (declare (not safe)) - (##map __tmp186735 _%slots183319%_ _%$slots183323%_))) - (_%specializer-clauses183439%_ - (map (lambda (_%clause183343%_) - (let* ((_%__stx185529185530%_ _%clause183343%_) - (_%g183346183361%_ + (##map __tmp190248 _%slots186849%_ _%$slots186853%_))) + (_%specializer-clauses186969%_ + (map (lambda (_%clause186873%_) + (let* ((_%__stx189042189043%_ _%clause186873%_) + (_%g186876186891%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx185529185530%_))))) - (let ((_%__kont185531185532%_ - (lambda (_%L183389%_ _%L183390%_ _%L183391%_) - (let* ((_%receiver183420%_ - (let ((_%$e183417%_ + _%__stx189042189043%_))))) + (let ((_%__kont189044189045%_ + (lambda (_%g186878186919%_ + _%g186879186920%_ + _%g186880186921%_) + (let* ((_%receiver186950%_ + (let ((_%$e186947%_ (gxc#apply-extract-receiver (cons (let () (declare @@ -1444,317 +1448,319 @@ (gx#datum->syntax__0 '#f '%#begin)) - _%L183389%_)))) - (if _%$e183417%_ - _%$e183417%_ - _%L183391%_))) - (_%body183426%_ - (map (lambda (_%g183421183423%_) + _%g186878186919%_)))) + (if _%$e186947%_ + _%$e186947%_ + _%g186880186921%_))) + (_%body186956%_ + (map (lambda (_%g186951186953%_) (gxc#apply-subst-object-refs__% '#f - _%receiver183420%_ - _%$klass183290%_ - _%method-calls182579%_ - _%slot-refs182580%_ - _%g183421183423%_)) - _%L183389%_))) - (cons (cons _%L183391%_ _%L183390%_) - _%body183426%_)))) - (_%__kont185533185534%_ - (lambda () _%clause183343%_))) + _%receiver186950%_ + _%$klass186820%_ + _%method-calls186115%_ + _%slot-refs186116%_ + _%g186951186953%_)) + _%g186878186919%_))) + (cons (cons _%g186880186921%_ + _%g186879186920%_) + _%body186956%_)))) + (_%__kont189046189047%_ + (lambda () _%clause186873%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx185529185530%_)) - (let ((_%e183351183373%_ + (gx#stx-pair? _%__stx189042189043%_)) + (let ((_%e186881186903%_ (let () (declare (not safe)) - (gx#stx-e _%__stx185529185530%_)))) - (let ((_%tl183353183378%_ + (gx#stx-e _%__stx189042189043%_)))) + (let ((_%tl186883186908%_ (let () (declare (not safe)) - (##cdr _%e183351183373%_))) - (_%hd183352183376%_ + (##cdr _%e186881186903%_))) + (_%hd186882186906%_ (let () (declare (not safe)) - (##car _%e183351183373%_)))) + (##car _%e186881186903%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183352183376%_)) - (let ((_%e183354183381%_ + (gx#stx-pair? _%hd186882186906%_)) + (let ((_%e186884186911%_ (let () (declare (not safe)) (gx#stx-e - _%hd183352183376%_)))) - (let ((_%tl183356183386%_ + _%hd186882186906%_)))) + (let ((_%tl186886186916%_ (let () (declare (not safe)) - (##cdr _%e183354183381%_))) - (_%hd183355183384%_ + (##cdr _%e186884186911%_))) + (_%hd186885186914%_ (let () (declare (not safe)) - (##car _%e183354183381%_)))) - (_%__kont185531185532%_ - _%tl183353183378%_ - _%tl183356183386%_ - _%hd183355183384%_))) - (_%__kont185533185534%_)))) - (_%__kont185533185534%_))))) - (let ((__tmp186736 - (lambda (_%g183431183434%_ _%g183432183436%_) - (cons _%g183431183434%_ _%g183432183436%_)))) + (##car _%e186884186911%_)))) + (_%__kont189044189045%_ + _%tl186883186908%_ + _%tl186886186916%_ + _%hd186885186914%_))) + (_%__kont189046189047%_)))) + (_%__kont189046189047%_))))) + (let ((__tmp190249 + (lambda (_%g186961186964%_ _%g186962186966%_) + (cons _%g186961186964%_ _%g186962186966%_)))) (declare (not safe)) - (__foldr1 __tmp186736 '() _%L183185%_)))) - (_%specializer-impl183441%_ - (let ((__tmp186737 - (cons '%#case-lambda _%specializer-clauses183439%_))) + (__foldr1 __tmp190249 '() _%g186663186715%_)))) + (_%specializer-impl186971%_ + (let ((__tmp190250 + (cons '%#case-lambda _%specializer-clauses186969%_))) (declare (not safe)) - (gxc#xform-wrap-source __tmp186737 _%stx182487%_))) - (_%specializer-impl183443%_ - (_%generate-specializer-impl182491%_ - _%$klass183290%_ - _%$method-table183292%_ - _%methods-bind183317%_ - _%slots-bind183341%_ - _%specializer-impl183441%_))) + (gxc#xform-wrap-source __tmp190250 _%stx186023%_))) + (_%specializer-impl186973%_ + (_%generate-specializer-impl186027%_ + _%$klass186820%_ + _%$method-table186822%_ + _%methods-bind186847%_ + _%slots-bind186871%_ + _%specializer-impl186971%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp186739 + (let ((__tmp190252 (let () (declare (not safe)) (gx#stx-e - _%L182560%_))) - (__tmp186738 + _%g186034186096%_))) + (__tmp190251 (let () (declare (not safe)) (gx#stx-e - _%specializer-id183288%_)))) + _%specializer-id186818%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp186739 + __tmp190252 '" => " - __tmp186738)) - (_%generate-specializer-def182492%_ - _%L182560%_ - _%specializer-id183288%_ - _%specializer-impl183443%_)))) - _%clause183143183182%_)))))) - (_%loop183138183166%_ _%target183135183161%_ '())) - (_%g183129183148%_ _%g183130183151%_))))) - (_%g183129183148%_ _%g183130183151%_)))) + __tmp190251)) + (_%generate-specializer-def186028%_ + _%g186034186096%_ + _%specializer-id186818%_ + _%specializer-impl186973%_)))) + _%clause186675186713%_)))))) + (_%loop186670186698%_ _%target186667186693%_ '())) + (_%g186661186680%_ _%g186662186683%_))))) + (_%g186661186680%_ _%g186662186683%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g183129183148%_ - _%g183130183151%_))))) - (_%g183128183446%_ _%L182559%_)) + (_%g186661186680%_ + _%g186662186683%_))))) + (_%g186660186976%_ _%g186033186095%_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _%L182559%_)) - (let* ((_%g183450183480%_ - (lambda (_%g183451183477%_) + (gxc#opt-lambda-expr? + _%g186033186095%_)) + (let* ((_%g186980187010%_ + (lambda (_%g186981187007%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g183451183477%_)))) - (_%g183449184111%_ - (lambda (_%g183451183483%_) + _%g186981187007%_)))) + (_%g186979187637%_ + (lambda (_%g186981187013%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g183451183483%_)) - (let ((_%e183455183485%_ + _%g186981187013%_)) + (let ((_%e186985187015%_ (let () (declare (not safe)) (gx#stx-e - _%g183451183483%_)))) - (let ((_%hd183456183488%_ + _%g186981187013%_)))) + (let ((_%hd186986187018%_ (let () (declare (not safe)) - (##car _%e183455183485%_))) - (_%tl183457183490%_ + (##car _%e186985187015%_))) + (_%tl186987187020%_ (let () (declare (not safe)) - (##cdr _%e183455183485%_)))) + (##cdr _%e186985187015%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183457183490%_)) - (let ((_%e183458183493%_ + _%tl186987187020%_)) + (let ((_%e186988187023%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl183457183490%_)))) - (let ((_%hd183459183496%_ + (gx#stx-e _%tl186987187020%_)))) + (let ((_%hd186989187026%_ (let () (declare (not safe)) - (##car _%e183458183493%_))) - (_%tl183460183498%_ + (##car _%e186988187023%_))) + (_%tl186990187028%_ (let () (declare (not safe)) - (##cdr _%e183458183493%_)))) + (##cdr _%e186988187023%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183459183496%_)) - (let ((_%e183461183501%_ + (gx#stx-pair? _%hd186989187026%_)) + (let ((_%e186991187031%_ (let () (declare (not safe)) - (gx#stx-e _%hd183459183496%_)))) - (let ((_%hd183462183504%_ + (gx#stx-e _%hd186989187026%_)))) + (let ((_%hd186992187034%_ (let () (declare (not safe)) - (##car _%e183461183501%_))) - (_%tl183463183506%_ + (##car _%e186991187031%_))) + (_%tl186993187036%_ (let () (declare (not safe)) - (##cdr _%e183461183501%_)))) + (##cdr _%e186991187031%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183462183504%_)) - (let ((_%e183464183509%_ + (gx#stx-pair? _%hd186992187034%_)) + (let ((_%e186994187039%_ (let () (declare (not safe)) - (gx#stx-e _%hd183462183504%_)))) - (let ((_%hd183465183512%_ + (gx#stx-e _%hd186992187034%_)))) + (let ((_%hd186995187042%_ (let () (declare (not safe)) - (##car _%e183464183509%_))) - (_%tl183466183514%_ + (##car _%e186994187039%_))) + (_%tl186996187044%_ (let () (declare (not safe)) - (##cdr _%e183464183509%_)))) + (##cdr _%e186994187039%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183465183512%_)) - (let ((_%e183467183517%_ + (gx#stx-pair? _%hd186995187042%_)) + (let ((_%e186997187047%_ (let () (declare (not safe)) (gx#stx-e - _%hd183465183512%_)))) - (let ((_%hd183468183520%_ + _%hd186995187042%_)))) + (let ((_%hd186998187050%_ (let () (declare (not safe)) - (##car _%e183467183517%_))) - (_%tl183469183522%_ + (##car _%e186997187047%_))) + (_%tl186999187052%_ (let () (declare (not safe)) - (##cdr _%e183467183517%_)))) + (##cdr _%e186997187047%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183469183522%_)) + _%tl186999187052%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183466183514%_)) - (let ((_%e183470183525%_ + _%tl186996187044%_)) + (let ((_%e187000187055%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl183466183514%_)))) - (let ((_%hd183471183528%_ + (gx#stx-e _%tl186996187044%_)))) + (let ((_%hd187001187058%_ (let () (declare (not safe)) - (##car _%e183470183525%_))) - (_%tl183472183530%_ + (##car _%e187000187055%_))) + (_%tl187002187060%_ (let () (declare (not safe)) - (##cdr _%e183470183525%_)))) + (##cdr _%e187000187055%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183472183530%_)) + (gx#stx-null? _%tl187002187060%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183463183506%_)) + (gx#stx-null? _%tl186993187036%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183460183498%_)) - (let ((_%e183473183533%_ + (gx#stx-pair? _%tl186990187028%_)) + (let ((_%e187003187063%_ (let () (declare (not safe)) - (gx#stx-e _%tl183460183498%_)))) - (let ((_%hd183474183536%_ + (gx#stx-e _%tl186990187028%_)))) + (let ((_%hd187004187066%_ (let () (declare (not safe)) - (##car _%e183473183533%_))) - (_%tl183475183538%_ + (##car _%e187003187063%_))) + (_%tl187005187068%_ (let () (declare (not safe)) - (##cdr _%e183473183533%_)))) + (##cdr _%e187003187063%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183475183538%_)) - ((lambda (_%L183541%_ - _%L183542%_ - _%L183543%_) - (let* ((_%g183567183585%_ - (lambda (_%g183568183582%_) + (gx#stx-null? _%tl187005187068%_)) + ((lambda (_%g186982187071%_ + _%g186983187072%_ + _%g186984187073%_) + (let* ((_%g187097187115%_ + (lambda (_%g187098187112%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g183568183582%_)))) - (_%g183566183641%_ - (lambda (_%g183568183588%_) + _%g187098187112%_)))) + (_%g187096187171%_ + (lambda (_%g187098187118%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g183568183588%_)) - (let ((_%e183572183590%_ + _%g187098187118%_)) + (let ((_%e187102187120%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%g183568183588%_)))) - (let ((_%hd183573183593%_ + (gx#stx-e _%g187098187118%_)))) + (let ((_%hd187103187123%_ (let () (declare (not safe)) - (##car _%e183572183590%_))) - (_%tl183574183595%_ + (##car _%e187102187120%_))) + (_%tl187104187125%_ (let () (declare (not safe)) - (##cdr _%e183572183590%_)))) + (##cdr _%e187102187120%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183574183595%_)) - (let ((_%e183575183598%_ + (gx#stx-pair? _%tl187104187125%_)) + (let ((_%e187105187128%_ (let () (declare (not safe)) - (gx#stx-e _%tl183574183595%_)))) - (let ((_%hd183576183601%_ + (gx#stx-e _%tl187104187125%_)))) + (let ((_%hd187106187131%_ (let () (declare (not safe)) - (##car _%e183575183598%_))) - (_%tl183577183603%_ + (##car _%e187105187128%_))) + (_%tl187107187133%_ (let () (declare (not safe)) - (##cdr _%e183575183598%_)))) + (##cdr _%e187105187128%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183576183601%_)) - (let ((_%e183578183606%_ + (gx#stx-pair? _%hd187106187131%_)) + (let ((_%e187108187136%_ (let () (declare (not safe)) - (gx#stx-e _%hd183576183601%_)))) - (let ((_%hd183579183609%_ + (gx#stx-e _%hd187106187131%_)))) + (let ((_%hd187109187139%_ (let () (declare (not safe)) - (##car _%e183578183606%_))) - (_%tl183580183611%_ + (##car _%e187108187136%_))) + (_%tl187110187141%_ (let () (declare (not safe)) - (##cdr _%e183578183606%_)))) - ((lambda (_%L183614%_ - _%L183615%_ - _%L183616%_) - (let ((_%receiver183635%_ - (let ((_%$e183632%_ + (##cdr _%e187108187136%_)))) + ((lambda (_%g187099187144%_ + _%g187100187145%_ + _%g187101187146%_) + (let ((_%receiver187165%_ + (let ((_%$e187162%_ (gxc#apply-extract-receiver (cons (let () (declare @@ -1762,3135 +1768,3167 @@ (gx#datum->syntax__0 '#f '%#begin)) - _%L183614%_)))) - (if _%$e183632%_ - _%$e183632%_ - _%L183616%_)))) + _%g187099187144%_)))) + (if _%$e187162%_ + _%$e187162%_ + _%g187101187146%_)))) (for-each - (lambda (_%g183636183638%_) + (lambda (_%g187166187168%_) (gxc#apply-collect-object-refs__% '#f - _%receiver183635%_ - _%method-calls182579%_ - _%slot-refs182580%_ - _%g183636183638%_)) - _%L183614%_))) - _%tl183577183603%_ - _%tl183580183611%_ - _%hd183579183609%_))) - (_%g183567183585%_ _%g183568183588%_)))) - (_%g183567183585%_ _%g183568183588%_)))) - (_%g183567183585%_ _%g183568183588%_))))) + _%receiver187165%_ + _%method-calls186115%_ + _%slot-refs186116%_ + _%g187166187168%_)) + _%g187099187144%_))) + _%tl187107187133%_ + _%tl187110187141%_ + _%hd187109187139%_))) + (_%g187097187115%_ _%g187098187118%_)))) + (_%g187097187115%_ _%g187098187118%_)))) + (_%g187097187115%_ _%g187098187118%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g183566183641%_ _%L183542%_)) - (let* ((_%g183644183663%_ - (lambda (_%g183645183660%_) + (_%g187096187171%_ + _%g186983187072%_)) + (let* ((_%g187174187193%_ + (lambda (_%g187175187190%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g183645183660%_)))) - (_%g183643183787%_ - (lambda (_%g183645183666%_) + _%g187175187190%_)))) + (_%g187173187315%_ + (lambda (_%g187175187196%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g183645183666%_)) - (let ((_%e183647183668%_ + _%g187175187196%_)) + (let ((_%e187177187198%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%g183645183666%_)))) - (let ((_%hd183648183671%_ + (gx#stx-e _%g187175187196%_)))) + (let ((_%hd187178187201%_ (let () (declare (not safe)) - (##car _%e183647183668%_))) - (_%tl183649183673%_ + (##car _%e187177187198%_))) + (_%tl187179187203%_ (let () (declare (not safe)) - (##cdr _%e183647183668%_)))) + (##cdr _%e187177187198%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl183649183673%_)) - (let ((_g186740_ + (gx#stx-pair/null? _%tl187179187203%_)) + (let ((_g190253_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl183649183673%_ + _%tl187179187203%_ '0)))) (begin - (let ((_g186741_ + (let ((_g190254_ (let () (declare (not safe)) - (if (##values? _g186740_) - (##values-length _g186740_) + (if (##values? _g190253_) + (##values-length _g190253_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g186741_ 2))) + (##fx= _g190254_ 2))) (error "Context expects 2 values" - _g186741_))) - (let ((_%target183650183676%_ + _g190254_))) + (let ((_%target187180187206%_ (let () (declare (not safe)) - (##values-ref _g186740_ 0))) - (_%tl183652183678%_ + (##values-ref _g190253_ 0))) + (_%tl187182187208%_ (let () (declare (not safe)) - (##values-ref _g186740_ 1)))) + (##values-ref _g190253_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183652183678%_)) - (letrec ((_%loop183653183681%_ - (lambda (_%hd183651183684%_ - _%clause183657183686%_) + (gx#stx-null? _%tl187182187208%_)) + (letrec ((_%loop187183187211%_ + (lambda (_%hd187181187214%_ + _%clause187187187216%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183651183684%_)) - (let ((_%e183654183689%_ + _%hd187181187214%_)) + (let ((_%e187184187218%_ (let () (declare (not safe)) (gx#stx-e - _%hd183651183684%_)))) - (let ((_%lp-hd183655183692%_ + _%hd187181187214%_)))) + (let ((_%lp-hd187185187221%_ (let () (declare (not safe)) - (##car _%e183654183689%_))) - (_%lp-tl183656183694%_ + (##car _%e187184187218%_))) + (_%lp-tl187186187223%_ (let () (declare (not safe)) - (##cdr _%e183654183689%_)))) - (_%loop183653183681%_ - _%lp-tl183656183694%_ - (cons _%lp-hd183655183692%_ - _%clause183657183686%_)))) - (let ((_%clause183658183697%_ - (reverse _%clause183657183686%_))) - ((lambda (_%L183700%_) + (##cdr _%e187184187218%_)))) + (_%loop187183187211%_ + _%lp-tl187186187223%_ + (cons _%lp-hd187185187221%_ + _%clause187187187216%_)))) + (let ((_%clause187188187226%_ + (reverse _%clause187187187216%_))) + ((lambda (_%g187176187228%_) (for-each - (lambda (_%clause183713%_) - (let* ((_%g183715183730%_ + (lambda (_%clause187241%_) + (let* ((_%g187243187258%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g183716183727%_) + (lambda (_%g187244187255%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g183716183727%_)))) - (_%g183714183777%_ - (lambda (_%g183716183733%_) + _%g187244187255%_)))) + (_%g187242187305%_ + (lambda (_%g187244187261%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g183716183733%_)) - (let ((_%e183720183735%_ + (gx#stx-pair? _%g187244187261%_)) + (let ((_%e187248187263%_ (let () (declare (not safe)) - (gx#stx-e _%g183716183733%_)))) - (let ((_%hd183721183738%_ + (gx#stx-e _%g187244187261%_)))) + (let ((_%hd187249187266%_ (let () (declare (not safe)) - (##car _%e183720183735%_))) - (_%tl183722183740%_ + (##car _%e187248187263%_))) + (_%tl187250187268%_ (let () (declare (not safe)) - (##cdr _%e183720183735%_)))) + (##cdr _%e187248187263%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183721183738%_)) - (let ((_%e183723183743%_ + (gx#stx-pair? _%hd187249187266%_)) + (let ((_%e187251187271%_ (let () (declare (not safe)) (gx#stx-e - _%hd183721183738%_)))) - (let ((_%hd183724183746%_ + _%hd187249187266%_)))) + (let ((_%hd187252187274%_ (let () (declare (not safe)) - (##car _%e183723183743%_))) - (_%tl183725183748%_ + (##car _%e187251187271%_))) + (_%tl187253187276%_ (let () (declare (not safe)) - (##cdr _%e183723183743%_)))) - ((lambda (_%L183751%_ - _%L183752%_ - _%L183753%_) - (let ((_%receiver183771%_ - (let ((_%$e183768%_ + (##cdr _%e187251187271%_)))) + ((lambda (_%g187245187279%_ + _%g187246187280%_ + _%g187247187281%_) + (let ((_%receiver187299%_ + (let ((_%$e187296%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L183751%_)))) - (if _%$e183768%_ _%$e183768%_ _%L183753%_)))) + _%g187245187279%_)))) + (if _%$e187296%_ _%$e187296%_ _%g187247187281%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g183772183774%_) + (lambda (_%g187300187302%_) (gxc#apply-collect-object-refs__% '#f - _%receiver183771%_ - _%method-calls182579%_ - _%slot-refs182580%_ - _%g183772183774%_)) - _%L183751%_))) - _%tl183722183740%_ - _%tl183725183748%_ - _%hd183724183746%_))) - (_%g183715183730%_ - _%g183716183733%_)))) - (_%g183715183730%_ _%g183716183733%_))))) - (_%g183714183777%_ _%clause183713%_))) - (let ((__tmp186742 - (lambda (_%g183779183782%_ _%g183780183784%_) - (cons _%g183779183782%_ _%g183780183784%_)))) + _%receiver187299%_ + _%method-calls186115%_ + _%slot-refs186116%_ + _%g187300187302%_)) + _%g187245187279%_))) + _%tl187250187268%_ + _%tl187253187276%_ + _%hd187252187274%_))) + (_%g187243187258%_ + _%g187244187261%_)))) + (_%g187243187258%_ _%g187244187261%_))))) + (_%g187242187305%_ _%clause187241%_))) + (let ((__tmp190255 + (lambda (_%g187307187310%_ _%g187308187312%_) + (cons _%g187307187310%_ _%g187308187312%_)))) (declare (not safe)) - (__foldr1 __tmp186742 '() _%L183700%_)))) + (__foldr1 __tmp190255 '() _%g187176187228%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause183658183697%_)))))) - (_%loop183653183681%_ - _%target183650183676%_ + _%clause187188187226%_)))))) + (_%loop187183187211%_ + _%target187180187206%_ '())) - (_%g183644183663%_ _%g183645183666%_))))) - (_%g183644183663%_ _%g183645183666%_)))) - (_%g183644183663%_ _%g183645183666%_))))) + (_%g187174187193%_ _%g187175187196%_))))) + (_%g187174187193%_ _%g187175187196%_)))) + (_%g187174187193%_ _%g187175187196%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g183643183787%_ _%L183541%_)) - (if (_%no-specializer?182583%_) - _%stx182487%_ - (let* ((_%specializer-id183796%_ - (let* ((_%id183790%_ - (let ((__tmp186743 + (_%g187173187315%_ + _%g186982187071%_)) + (if (_%no-specializer?186119%_) + _%stx186023%_ + (let* ((_%specializer-id187324%_ + (let* ((_%id187318%_ + (let ((__tmp190256 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%L182560%_)))) + (gx#stx-e _%g186034186096%_)))) (declare (not safe)) - (make-symbol__1 __tmp186743 '"::specialize"))) - (_%specializer-id183793%_ - (let ((__tmp186744 + (make-symbol__1 __tmp190256 '"::specialize"))) + (_%specializer-id187321%_ + (let ((__tmp190257 (let () (declare (not safe)) - (gx#stx-source _%stx182487%_)))) + (gx#stx-source _%stx186023%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%id183790%_ __tmp186744)))) + (gx#core-quote-syntax__1 _%id187318%_ __tmp190257)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id183793%_)) - _%specializer-id183793%_)) + (gx#core-bind-runtime!__0 _%specializer-id187321%_)) + _%specializer-id187321%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$klass183798%_ - (let ((__tmp186745 + (_%$klass187326%_ + (let ((__tmp190258 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp186745))) + (make-symbol__0 __tmp190258))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$method-table183800%_ - (let ((__tmp186746 + (_%$method-table187328%_ + (let ((__tmp190259 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp186746))) + (make-symbol__0 __tmp190259))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%methods183802%_ + (_%methods187330%_ (let () (declare (not safe)) (__hash-keys - _%method-calls182579%_))) - (_%$methods183806%_ - (let ((__tmp186747 - (lambda (_%id183804%_) - (let ((__tmp186748 + _%method-calls186115%_))) + (_%$methods187334%_ + (let ((__tmp190260 + (lambda (_%id187332%_) + (let ((__tmp190261 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id183804%_))) + (gensym _%id187332%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp186748))))) + (make-symbol__1 '"__" __tmp190261))))) (declare (not safe)) - (##map __tmp186747 _%methods183802%_))) + (##map __tmp190260 _%methods187330%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_183815%_ - (let ((__tmp186749 - (lambda (_%g183807183810%_ + (_%_187343%_ + (let ((__tmp190262 + (lambda (_%g187335187338%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g183808183812%_) + _%g187336187340%_) (let () (declare (not safe)) (__hash-put! - _%method-calls182579%_ - _%g183807183810%_ - _%g183808183812%_))))) + _%method-calls186115%_ + _%g187335187338%_ + _%g187336187340%_))))) (declare (not safe)) - (##for-each __tmp186749 _%methods183802%_ _%$methods183806%_))) + (##for-each __tmp190262 _%methods187330%_ _%$methods187334%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%methods-bind183825%_ - (let ((__tmp186750 - (lambda (_%g183817183820%_ + (_%methods-bind187353%_ + (let ((__tmp190263 + (lambda (_%g187345187348%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g183818183822%_) - (_%generate-method-bind182489%_ - _%$klass183798%_ - _%$method-table183800%_ - _%g183817183820%_ - _%g183818183822%_)))) + _%g187346187350%_) + (_%generate-method-bind186025%_ + _%$klass187326%_ + _%$method-table187328%_ + _%g187345187348%_ + _%g187346187350%_)))) (declare (not safe)) - (##map __tmp186750 _%methods183802%_ _%$methods183806%_))) + (##map __tmp190263 _%methods187330%_ _%$methods187334%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%slots183827%_ + (_%slots187355%_ (let () (declare (not safe)) (__hash-keys - _%slot-refs182580%_))) - (_%$slots183831%_ - (let ((__tmp186751 - (lambda (_%id183829%_) - (let ((__tmp186752 + _%slot-refs186116%_))) + (_%$slots187359%_ + (let ((__tmp190264 + (lambda (_%id187357%_) + (let ((__tmp190265 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id183829%_))) + (gensym _%id187357%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp186752))))) + (make-symbol__1 '"__" __tmp190265))))) (declare (not safe)) - (##map __tmp186751 _%slots183827%_))) + (##map __tmp190264 _%slots187355%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_183840%_ - (let ((__tmp186753 - (lambda (_%g183832183835%_ + (_%_187368%_ + (let ((__tmp190266 + (lambda (_%g187360187363%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g183833183837%_) + _%g187361187365%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs182580%_ - _%g183832183835%_ - _%g183833183837%_))))) + _%slot-refs186116%_ + _%g187360187363%_ + _%g187361187365%_))))) (declare (not safe)) - (##for-each __tmp186753 _%slots183827%_ _%$slots183831%_))) + (##for-each __tmp190266 _%slots187355%_ _%$slots187359%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%slots-bind183849%_ - (let ((__tmp186754 - (lambda (_%g183841183844%_ + (_%slots-bind187377%_ + (let ((__tmp190267 + (lambda (_%g187369187372%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g183842183846%_) - (_%generate-slot-bind182490%_ - _%$klass183798%_ - _%g183841183844%_ - _%g183842183846%_)))) + _%g187370187374%_) + (_%generate-slot-bind186026%_ + _%$klass187326%_ + _%g187369187372%_ + _%g187370187374%_)))) (declare (not safe)) - (##map __tmp186754 _%slots183827%_ _%$slots183831%_))) + (##map __tmp190267 _%slots187355%_ _%$slots187359%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-lambda-expr183941%_ - (let* ((_%g183851183869%_ - (lambda (_%g183852183866%_) + (_%specializer-lambda-expr187469%_ + (let* ((_%g187379187397%_ + (lambda (_%g187380187394%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g183852183866%_)))) - (_%g183850183938%_ - (lambda (_%g183852183872%_) + _%g187380187394%_)))) + (_%g187378187466%_ + (lambda (_%g187380187400%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g183852183872%_)) - (let ((_%e183856183874%_ + (gx#stx-pair? _%g187380187400%_)) + (let ((_%e187384187402%_ (let () (declare (not safe)) - (gx#stx-e _%g183852183872%_)))) - (let ((_%hd183857183877%_ + (gx#stx-e _%g187380187400%_)))) + (let ((_%hd187385187405%_ (let () (declare (not safe)) - (##car _%e183856183874%_))) - (_%tl183858183879%_ + (##car _%e187384187402%_))) + (_%tl187386187407%_ (let () (declare (not safe)) - (##cdr _%e183856183874%_)))) + (##cdr _%e187384187402%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183858183879%_)) - (let ((_%e183859183882%_ + (gx#stx-pair? _%tl187386187407%_)) + (let ((_%e187387187410%_ (let () (declare (not safe)) - (gx#stx-e _%tl183858183879%_)))) - (let ((_%hd183860183885%_ + (gx#stx-e _%tl187386187407%_)))) + (let ((_%hd187388187413%_ (let () (declare (not safe)) - (##car _%e183859183882%_))) - (_%tl183861183887%_ + (##car _%e187387187410%_))) + (_%tl187389187415%_ (let () (declare (not safe)) - (##cdr _%e183859183882%_)))) + (##cdr _%e187387187410%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183860183885%_)) - (let ((_%e183862183890%_ + _%hd187388187413%_)) + (let ((_%e187390187418%_ (let () (declare (not safe)) (gx#stx-e - _%hd183860183885%_)))) - (let ((_%hd183863183893%_ + _%hd187388187413%_)))) + (let ((_%hd187391187421%_ (let () (declare (not safe)) - (##car _%e183862183890%_))) - (_%tl183864183895%_ + (##car _%e187390187418%_))) + (_%tl187392187423%_ (let () (declare (not safe)) - (##cdr _%e183862183890%_)))) - ((lambda (_%L183898%_ - _%L183899%_ - _%L183900%_) - (let* ((_%receiver183929%_ - (let ((_%$e183926%_ + (##cdr _%e187390187418%_)))) + ((lambda (_%g187381187426%_ + _%g187382187427%_ + _%g187383187428%_) + (let* ((_%receiver187457%_ + (let ((_%$e187454%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L183898%_)))) - (if _%$e183926%_ _%$e183926%_ _%L183900%_))) - (_%body183935%_ - (map (lambda (_%g183930183932%_) + _%g187381187426%_)))) + (if _%$e187454%_ _%$e187454%_ _%g187383187428%_))) + (_%body187463%_ + (map (lambda (_%g187458187460%_) (gxc#apply-subst-object-refs__% '#f - _%receiver183929%_ - _%$klass183798%_ - _%method-calls182579%_ - _%slot-refs182580%_ - _%g183930183932%_)) - _%L183898%_)) - (__tmp186755 + _%receiver187457%_ + _%$klass187326%_ + _%method-calls186115%_ + _%slot-refs186116%_ + _%g187458187460%_)) + _%g187381187426%_)) + (__tmp190268 (cons '%#lambda - (cons (cons _%L183900%_ _%L183899%_) - _%body183935%_)))) + (cons (cons _%g187383187428%_ _%g187382187427%_) + _%body187463%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp186755 - _%L183542%_))) - _%tl183861183887%_ - _%tl183864183895%_ - _%hd183863183893%_))) - (_%g183851183869%_ - _%g183852183872%_)))) - (_%g183851183869%_ _%g183852183872%_)))) - (_%g183851183869%_ _%g183852183872%_))))) - (_%g183850183938%_ _%L183542%_))) + __tmp190268 + _%g186983187072%_))) + _%tl187389187415%_ + _%tl187392187423%_ + _%hd187391187421%_))) + (_%g187379187397%_ + _%g187380187400%_)))) + (_%g187379187397%_ _%g187380187400%_)))) + (_%g187379187397%_ _%g187380187400%_))))) + (_%g187378187466%_ _%g186983187072%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-case-lambda-expr184104%_ - (let* ((_%g183943183962%_ - (lambda (_%g183944183959%_) + (_%specializer-case-lambda-expr187630%_ + (let* ((_%g187471187490%_ + (lambda (_%g187472187487%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g183944183959%_)))) - (_%g183942184101%_ - (lambda (_%g183944183965%_) + _%g187472187487%_)))) + (_%g187470187627%_ + (lambda (_%g187472187493%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g183944183965%_)) - (let ((_%e183946183967%_ + (gx#stx-pair? _%g187472187493%_)) + (let ((_%e187474187495%_ (let () (declare (not safe)) - (gx#stx-e _%g183944183965%_)))) - (let ((_%hd183947183970%_ + (gx#stx-e _%g187472187493%_)))) + (let ((_%hd187475187498%_ (let () (declare (not safe)) - (##car _%e183946183967%_))) - (_%tl183948183972%_ + (##car _%e187474187495%_))) + (_%tl187476187500%_ (let () (declare (not safe)) - (##cdr _%e183946183967%_)))) + (##cdr _%e187474187495%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl183948183972%_)) - (let ((_g186756_ + (gx#stx-pair/null? _%tl187476187500%_)) + (let ((_g190269_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl183948183972%_ + _%tl187476187500%_ '0)))) (begin - (let ((_g186757_ + (let ((_g190270_ (let () (declare (not safe)) - (if (##values? _g186756_) + (if (##values? _g190269_) (##values-length - _g186756_) + _g190269_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g186757_ 2))) + (##fx= _g190270_ 2))) (error "Context expects 2 values" - _g186757_))) - (let ((_%target183949183975%_ + _g190270_))) + (let ((_%target187477187503%_ (let () (declare (not safe)) - (##values-ref _g186756_ 0))) - (_%tl183951183977%_ + (##values-ref _g190269_ 0))) + (_%tl187479187505%_ (let () (declare (not safe)) - (##values-ref _g186756_ 1)))) + (##values-ref _g190269_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183951183977%_)) - (letrec ((_%loop183952183980%_ - (lambda (_%hd183950183983%_ + _%tl187479187505%_)) + (letrec ((_%loop187480187508%_ + (lambda (_%hd187478187511%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause183956183985%_) + _%clause187484187513%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183950183983%_)) - (let ((_%e183953183988%_ + (gx#stx-pair? _%hd187478187511%_)) + (let ((_%e187481187515%_ (let () (declare (not safe)) - (gx#stx-e _%hd183950183983%_)))) - (let ((_%lp-hd183954183991%_ + (gx#stx-e _%hd187478187511%_)))) + (let ((_%lp-hd187482187518%_ (let () (declare (not safe)) - (##car _%e183953183988%_))) - (_%lp-tl183955183993%_ + (##car _%e187481187515%_))) + (_%lp-tl187483187520%_ (let () (declare (not safe)) - (##cdr _%e183953183988%_)))) - (_%loop183952183980%_ - _%lp-tl183955183993%_ - (cons _%lp-hd183954183991%_ - _%clause183956183985%_)))) - (let ((_%clause183957183996%_ - (reverse _%clause183956183985%_))) - ((lambda (_%L183999%_) - (let* ((_%clauses184099%_ - (map (lambda (_%clause184013%_) - (let* ((_%__stx185549185550%_ - _%clause184013%_) - (_%g184016184031%_ + (##cdr _%e187481187515%_)))) + (_%loop187480187508%_ + _%lp-tl187483187520%_ + (cons _%lp-hd187482187518%_ + _%clause187484187513%_)))) + (let ((_%clause187485187523%_ + (reverse _%clause187484187513%_))) + ((lambda (_%g187473187525%_) + (let* ((_%clauses187625%_ + (map (lambda (_%clause187539%_) + (let* ((_%__stx189062189063%_ + _%clause187539%_) + (_%g187542187557%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx185549185550%_))))) - (let ((_%__kont185551185552%_ - (lambda (_%L184059%_ - _%L184060%_ - _%L184061%_) - (let* ((_%receiver184080%_ - (let ((_%$e184077%_ + _%__stx189062189063%_))))) + (let ((_%__kont189064189065%_ + (lambda (_%g187544187585%_ + _%g187545187586%_ + _%g187546187587%_) + (let* ((_%receiver187606%_ + (let ((_%$e187603%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L184059%_)))) - (if _%$e184077%_ _%$e184077%_ _%L184061%_))) - (_%body184086%_ - (map (lambda (_%g184081184083%_) + _%g187544187585%_)))) + (if _%$e187603%_ _%$e187603%_ _%g187546187587%_))) + (_%body187612%_ + (map (lambda (_%g187607187609%_) (gxc#apply-subst-object-refs__% '#f - _%receiver184080%_ - _%$klass183798%_ - _%method-calls182579%_ - _%slot-refs182580%_ - _%g184081184083%_)) - _%L184059%_))) - (cons (cons _%L184061%_ _%L184060%_) _%body184086%_)))) + _%receiver187606%_ + _%$klass187326%_ + _%method-calls186115%_ + _%slot-refs186116%_ + _%g187607187609%_)) + _%g187544187585%_))) + (cons (cons _%g187546187587%_ _%g187545187586%_) + _%body187612%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185553185554%_ + (_%__kont189066189067%_ (lambda () - _%clause184013%_))) + _%clause187539%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx185549185550%_)) - (let ((_%e184021184043%_ + _%__stx189062189063%_)) + (let ((_%e187547187569%_ (let () (declare (not safe)) (gx#stx-e - _%__stx185549185550%_)))) - (let ((_%tl184023184048%_ + _%__stx189062189063%_)))) + (let ((_%tl187549187574%_ (let () (declare (not safe)) - (##cdr _%e184021184043%_))) - (_%hd184022184046%_ + (##cdr _%e187547187569%_))) + (_%hd187548187572%_ (let () (declare (not safe)) - (##car _%e184021184043%_)))) + (##car _%e187547187569%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184022184046%_)) - (let ((_%e184024184051%_ + _%hd187548187572%_)) + (let ((_%e187550187577%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd184022184046%_)))) - (let ((_%tl184026184056%_ + (gx#stx-e _%hd187548187572%_)))) + (let ((_%tl187552187582%_ (let () (declare (not safe)) - (##cdr _%e184024184051%_))) - (_%hd184025184054%_ + (##cdr _%e187550187577%_))) + (_%hd187551187580%_ (let () (declare (not safe)) - (##car _%e184024184051%_)))) - (_%__kont185551185552%_ - _%tl184023184048%_ - _%tl184026184056%_ - _%hd184025184054%_))) - (_%__kont185553185554%_)))) + (##car _%e187550187577%_)))) + (_%__kont189064189065%_ + _%tl187549187574%_ + _%tl187552187582%_ + _%hd187551187580%_))) + (_%__kont189066189067%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185553185554%_))))) - (let ((__tmp186758 - (lambda (_%g184091184094%_ - _%g184092184096%_) - (cons _%g184091184094%_ - _%g184092184096%_)))) + (_%__kont189066189067%_))))) + (let ((__tmp190271 + (lambda (_%g187617187620%_ + _%g187618187622%_) + (cons _%g187617187620%_ + _%g187618187622%_)))) (declare (not safe)) (__foldr1 - __tmp186758 + __tmp190271 '() - _%L183999%_)))) - (__tmp186759 - (cons '%#case-lambda _%clauses184099%_))) + _%g187473187525%_)))) + (__tmp190272 + (cons '%#case-lambda _%clauses187625%_))) (declare (not safe)) - (gxc#xform-wrap-source __tmp186759 _%L183541%_))) - _%clause183957183996%_)))))) + (gxc#xform-wrap-source + __tmp190272 + _%g186982187071%_))) + _%clause187485187523%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop183952183980%_ - _%target183949183975%_ + (_%loop187480187508%_ + _%target187477187503%_ '())) - (_%g183943183962%_ - _%g183944183965%_))))) - (_%g183943183962%_ _%g183944183965%_)))) - (_%g183943183962%_ _%g183944183965%_))))) - (_%g183942184101%_ _%L183541%_))) + (_%g187471187490%_ + _%g187472187493%_))))) + (_%g187471187490%_ _%g187472187493%_)))) + (_%g187471187490%_ _%g187472187493%_))))) + (_%g187470187627%_ _%g186982187071%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl184106%_ - (let ((__tmp186760 + (_%specializer-impl187632%_ + (let ((__tmp190273 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%L183543%_ '()) - (cons _%specializer-lambda-expr183941%_ + (cons (cons (cons (cons _%g186984187073%_ '()) + (cons _%specializer-lambda-expr187469%_ '())) '()) - (cons _%specializer-case-lambda-expr184104%_ + (cons _%specializer-case-lambda-expr187630%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp186760 _%stx182487%_))) + (gxc#xform-wrap-source __tmp190273 _%stx186023%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl184108%_ - (_%generate-specializer-impl182491%_ - _%$klass183798%_ - _%$method-table183800%_ - _%methods-bind183825%_ - _%slots-bind183849%_ - _%specializer-impl184106%_))) - (let ((__tmp186762 + (_%specializer-impl187634%_ + (_%generate-specializer-impl186027%_ + _%$klass187326%_ + _%$method-table187328%_ + _%methods-bind187353%_ + _%slots-bind187377%_ + _%specializer-impl187632%_))) + (let ((__tmp190275 (let () (declare (not safe)) (gx#stx-e - _%L182560%_))) - (__tmp186761 + _%g186034186096%_))) + (__tmp190274 (let () (declare (not safe)) (gx#stx-e - _%specializer-id183796%_)))) + _%specializer-id187324%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp186762 + __tmp190275 '" => " - __tmp186761)) - (_%generate-specializer-def182492%_ - _%L182560%_ - _%specializer-id183796%_ - _%specializer-impl184108%_)))) - _%hd183474183536%_ - _%hd183471183528%_ - _%hd183468183520%_) - (_%g183450183480%_ _%g183451183483%_)))) - (_%g183450183480%_ _%g183451183483%_)) - (_%g183450183480%_ _%g183451183483%_)) - (_%g183450183480%_ _%g183451183483%_)))) - (_%g183450183480%_ _%g183451183483%_)) + __tmp190274)) + (_%generate-specializer-def186028%_ + _%g186034186096%_ + _%specializer-id187324%_ + _%specializer-impl187634%_)))) + _%hd187004187066%_ + _%hd187001187058%_ + _%hd186998187050%_) + (_%g186980187010%_ _%g186981187013%_)))) + (_%g186980187010%_ _%g186981187013%_)) + (_%g186980187010%_ _%g186981187013%_)) + (_%g186980187010%_ _%g186981187013%_)))) + (_%g186980187010%_ _%g186981187013%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g183450183480%_ - _%g183451183483%_)))) - (_%g183450183480%_ - _%g183451183483%_)))) - (_%g183450183480%_ _%g183451183483%_)))) - (_%g183450183480%_ _%g183451183483%_)))) - (_%g183450183480%_ _%g183451183483%_)))) + (_%g186980187010%_ + _%g186981187013%_)))) + (_%g186980187010%_ + _%g186981187013%_)))) + (_%g186980187010%_ _%g186981187013%_)))) + (_%g186980187010%_ _%g186981187013%_)))) + (_%g186980187010%_ _%g186981187013%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g183450183480%_ - _%g183451183483%_))))) - (_%g183449184111%_ _%L182559%_)) + (_%g186980187010%_ + _%g186981187013%_))))) + (_%g186979187637%_ _%g186033186095%_)) (if (let () (declare (not safe)) - (gxc#kw-lambda-expr? _%L182559%_)) - (let* ((_%g184115184168%_ - (lambda (_%g184116184165%_) + (gxc#kw-lambda-expr? + _%g186033186095%_)) + (let* ((_%g187641187694%_ + (lambda (_%g187642187691%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g184116184165%_)))) - (_%g184114185339%_ - (lambda (_%g184116184171%_) + _%g187642187691%_)))) + (_%g187640188859%_ + (lambda (_%g187642187697%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g184116184171%_)) - (let ((_%e184122184173%_ + _%g187642187697%_)) + (let ((_%e187648187699%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%g184116184171%_)))) - (let ((_%hd184123184176%_ + (gx#stx-e _%g187642187697%_)))) + (let ((_%hd187649187702%_ (let () (declare (not safe)) - (##car _%e184122184173%_))) - (_%tl184124184178%_ + (##car _%e187648187699%_))) + (_%tl187650187704%_ (let () (declare (not safe)) - (##cdr _%e184122184173%_)))) + (##cdr _%e187648187699%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184123184176%_)) + (gx#identifier? _%hd187649187702%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd184123184176%_)) + (gx#stx-eq? '%#let-values _%hd187649187702%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184124184178%_)) - (let ((_%e184125184181%_ + (gx#stx-pair? _%tl187650187704%_)) + (let ((_%e187651187707%_ (let () (declare (not safe)) - (gx#stx-e _%tl184124184178%_)))) - (let ((_%hd184126184184%_ + (gx#stx-e _%tl187650187704%_)))) + (let ((_%hd187652187710%_ (let () (declare (not safe)) - (##car _%e184125184181%_))) - (_%tl184127184186%_ + (##car _%e187651187707%_))) + (_%tl187653187712%_ (let () (declare (not safe)) - (##cdr _%e184125184181%_)))) + (##cdr _%e187651187707%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184126184184%_)) - (let ((_%e184128184189%_ + (gx#stx-pair? _%hd187652187710%_)) + (let ((_%e187654187715%_ (let () (declare (not safe)) (gx#stx-e - _%hd184126184184%_)))) - (let ((_%hd184129184192%_ + _%hd187652187710%_)))) + (let ((_%hd187655187718%_ (let () (declare (not safe)) - (##car _%e184128184189%_))) - (_%tl184130184194%_ + (##car _%e187654187715%_))) + (_%tl187656187720%_ (let () (declare (not safe)) - (##cdr _%e184128184189%_)))) + (##cdr _%e187654187715%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184129184192%_)) - (let ((_%e184131184197%_ + _%hd187655187718%_)) + (let ((_%e187657187723%_ (let () (declare (not safe)) (gx#stx-e - _%hd184129184192%_)))) - (let ((_%hd184132184200%_ + _%hd187655187718%_)))) + (let ((_%hd187658187726%_ (let () (declare (not safe)) - (##car _%e184131184197%_))) - (_%tl184133184202%_ + (##car _%e187657187723%_))) + (_%tl187659187728%_ (let () (declare (not safe)) - (##cdr _%e184131184197%_)))) + (##cdr _%e187657187723%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184132184200%_)) - (let ((_%e184134184205%_ + _%hd187658187726%_)) + (let ((_%e187660187731%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd184132184200%_)))) - (let ((_%hd184135184208%_ + (gx#stx-e _%hd187658187726%_)))) + (let ((_%hd187661187734%_ (let () (declare (not safe)) - (##car _%e184134184205%_))) - (_%tl184136184210%_ + (##car _%e187660187731%_))) + (_%tl187662187736%_ (let () (declare (not safe)) - (##cdr _%e184134184205%_)))) + (##cdr _%e187660187731%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184136184210%_)) + (gx#stx-null? _%tl187662187736%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184133184202%_)) - (let ((_%e184137184213%_ + (gx#stx-pair? _%tl187659187728%_)) + (let ((_%e187663187739%_ (let () (declare (not safe)) - (gx#stx-e _%tl184133184202%_)))) - (let ((_%hd184138184216%_ + (gx#stx-e _%tl187659187728%_)))) + (let ((_%hd187664187742%_ (let () (declare (not safe)) - (##car _%e184137184213%_))) - (_%tl184139184218%_ + (##car _%e187663187739%_))) + (_%tl187665187744%_ (let () (declare (not safe)) - (##cdr _%e184137184213%_)))) + (##cdr _%e187663187739%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184138184216%_)) - (let ((_%e184140184221%_ + (gx#stx-pair? _%hd187664187742%_)) + (let ((_%e187666187747%_ (let () (declare (not safe)) - (gx#stx-e _%hd184138184216%_)))) - (let ((_%hd184141184224%_ + (gx#stx-e _%hd187664187742%_)))) + (let ((_%hd187667187750%_ (let () (declare (not safe)) - (##car _%e184140184221%_))) - (_%tl184142184226%_ + (##car _%e187666187747%_))) + (_%tl187668187752%_ (let () (declare (not safe)) - (##cdr _%e184140184221%_)))) + (##cdr _%e187666187747%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd184141184224%_)) + _%hd187667187750%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd184141184224%_)) + _%hd187667187750%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184142184226%_)) - (let ((_%e184143184229%_ + _%tl187668187752%_)) + (let ((_%e187669187755%_ (let () (declare (not safe)) (gx#stx-e - _%tl184142184226%_)))) - (let ((_%hd184144184232%_ + _%tl187668187752%_)))) + (let ((_%hd187670187758%_ (let () (declare (not safe)) - (##car _%e184143184229%_))) - (_%tl184145184234%_ + (##car _%e187669187755%_))) + (_%tl187671187760%_ (let () (declare (not safe)) - (##cdr _%e184143184229%_)))) + (##cdr _%e187669187755%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184144184232%_)) - (let ((_%e184146184237%_ + _%hd187670187758%_)) + (let ((_%e187672187763%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd184144184232%_)))) - (let ((_%hd184147184240%_ + (gx#stx-e _%hd187670187758%_)))) + (let ((_%hd187673187766%_ (let () (declare (not safe)) - (##car _%e184146184237%_))) - (_%tl184148184242%_ + (##car _%e187672187763%_))) + (_%tl187674187768%_ (let () (declare (not safe)) - (##cdr _%e184146184237%_)))) + (##cdr _%e187672187763%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184147184240%_)) - (let ((_%e184149184245%_ + (gx#stx-pair? _%hd187673187766%_)) + (let ((_%e187675187771%_ (let () (declare (not safe)) - (gx#stx-e _%hd184147184240%_)))) - (let ((_%hd184150184248%_ + (gx#stx-e _%hd187673187766%_)))) + (let ((_%hd187676187774%_ (let () (declare (not safe)) - (##car _%e184149184245%_))) - (_%tl184151184250%_ + (##car _%e187675187771%_))) + (_%tl187677187776%_ (let () (declare (not safe)) - (##cdr _%e184149184245%_)))) + (##cdr _%e187675187771%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184150184248%_)) - (let ((_%e184152184253%_ + (gx#stx-pair? _%hd187676187774%_)) + (let ((_%e187678187779%_ (let () (declare (not safe)) - (gx#stx-e _%hd184150184248%_)))) - (let ((_%hd184153184256%_ + (gx#stx-e _%hd187676187774%_)))) + (let ((_%hd187679187782%_ (let () (declare (not safe)) - (##car _%e184152184253%_))) - (_%tl184154184258%_ + (##car _%e187678187779%_))) + (_%tl187680187784%_ (let () (declare (not safe)) - (##cdr _%e184152184253%_)))) + (##cdr _%e187678187779%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184154184258%_)) + (gx#stx-null? _%tl187680187784%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184151184250%_)) - (let ((_%e184155184261%_ + _%tl187677187776%_)) + (let ((_%e187681187787%_ (let () (declare (not safe)) (gx#stx-e - _%tl184151184250%_)))) - (let ((_%hd184156184264%_ + _%tl187677187776%_)))) + (let ((_%hd187682187790%_ (let () (declare (not safe)) - (##car _%e184155184261%_))) - (_%tl184157184266%_ + (##car _%e187681187787%_))) + (_%tl187683187792%_ (let () (declare (not safe)) - (##cdr _%e184155184261%_)))) + (##cdr _%e187681187787%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184157184266%_)) + _%tl187683187792%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184148184242%_)) + _%tl187674187768%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl184145184234%_)) - (let ((_%e184158184269%_ + (gx#stx-pair? _%tl187671187760%_)) + (let ((_%e187684187795%_ (let () (declare (not safe)) - (gx#stx-e _%tl184145184234%_)))) - (let ((_%hd184159184272%_ + (gx#stx-e _%tl187671187760%_)))) + (let ((_%hd187685187798%_ (let () (declare (not safe)) - (##car _%e184158184269%_))) - (_%tl184160184274%_ + (##car _%e187684187795%_))) + (_%tl187686187800%_ (let () (declare (not safe)) - (##cdr _%e184158184269%_)))) + (##cdr _%e187684187795%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184160184274%_)) + (gx#stx-null? _%tl187686187800%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184139184218%_)) + (gx#stx-null? _%tl187665187744%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184130184194%_)) + (gx#stx-null? _%tl187656187720%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184127184186%_)) - (let ((_%e184161184277%_ + (gx#stx-pair? _%tl187653187712%_)) + (let ((_%e187687187803%_ (let () (declare (not safe)) (gx#stx-e - _%tl184127184186%_)))) - (let ((_%hd184162184280%_ + _%tl187653187712%_)))) + (let ((_%hd187688187806%_ (let () (declare (not safe)) - (##car _%e184161184277%_))) - (_%tl184163184282%_ + (##car _%e187687187803%_))) + (_%tl187689187808%_ (let () (declare (not safe)) - (##cdr _%e184161184277%_)))) + (##cdr _%e187687187803%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184163184282%_)) - ((lambda (_%L184285%_ - _%L184286%_ - _%L184287%_ - _%L184288%_ - _%L184289%_) - (let* ((_%g184329184391%_ - (lambda (_%g184330184388%_) + _%tl187689187808%_)) + ((lambda (_%g187643187811%_ + _%g187644187812%_ + _%g187645187813%_ + _%g187646187814%_ + _%g187647187815%_) + (let* ((_%g187855187917%_ + (lambda (_%g187856187914%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g184330184388%_)))) - (_%g184328185336%_ - (lambda (_%g184330184394%_) + _%g187856187914%_)))) + (_%g187854188856%_ + (lambda (_%g187856187920%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g184330184394%_)) - (let ((_%e184336184396%_ + (gx#stx-pair? _%g187856187920%_)) + (let ((_%e187862187922%_ (let () (declare (not safe)) - (gx#stx-e _%g184330184394%_)))) - (let ((_%hd184337184399%_ + (gx#stx-e _%g187856187920%_)))) + (let ((_%hd187863187925%_ (let () (declare (not safe)) - (##car _%e184336184396%_))) - (_%tl184338184401%_ + (##car _%e187862187922%_))) + (_%tl187864187927%_ (let () (declare (not safe)) - (##cdr _%e184336184396%_)))) + (##cdr _%e187862187922%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184337184399%_)) + (gx#identifier? _%hd187863187925%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd184337184399%_)) + _%hd187863187925%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184338184401%_)) - (let ((_%e184339184404%_ + _%tl187864187927%_)) + (let ((_%e187865187930%_ (let () (declare (not safe)) (gx#stx-e - _%tl184338184401%_)))) - (let ((_%hd184340184407%_ + _%tl187864187927%_)))) + (let ((_%hd187866187933%_ (let () (declare (not safe)) - (##car _%e184339184404%_))) - (_%tl184341184409%_ + (##car _%e187865187930%_))) + (_%tl187867187935%_ (let () (declare (not safe)) - (##cdr _%e184339184404%_)))) + (##cdr _%e187865187930%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184341184409%_)) - (let ((_%e184342184412%_ + _%tl187867187935%_)) + (let ((_%e187868187938%_ (let () (declare (not safe)) (gx#stx-e - _%tl184341184409%_)))) - (let ((_%hd184343184415%_ + _%tl187867187935%_)))) + (let ((_%hd187869187941%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e184342184412%_))) - (_%tl184344184417%_ - (let () (declare (not safe)) (##cdr _%e184342184412%_)))) + (##car _%e187868187938%_))) + (_%tl187870187943%_ + (let () (declare (not safe)) (##cdr _%e187868187938%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184343184415%_)) - (let ((_%e184345184420%_ + (gx#stx-pair? _%hd187869187941%_)) + (let ((_%e187871187946%_ (let () (declare (not safe)) - (gx#stx-e _%hd184343184415%_)))) - (let ((_%hd184346184423%_ + (gx#stx-e _%hd187869187941%_)))) + (let ((_%hd187872187949%_ (let () (declare (not safe)) - (##car _%e184345184420%_))) - (_%tl184347184425%_ + (##car _%e187871187946%_))) + (_%tl187873187951%_ (let () (declare (not safe)) - (##cdr _%e184345184420%_)))) + (##cdr _%e187871187946%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184346184423%_)) + (gx#identifier? _%hd187872187949%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd184346184423%_)) + (gx#stx-eq? '%#call _%hd187872187949%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184347184425%_)) - (let ((_%e184348184428%_ + (gx#stx-pair? _%tl187873187951%_)) + (let ((_%e187874187954%_ (let () (declare (not safe)) - (gx#stx-e _%tl184347184425%_)))) - (let ((_%hd184349184431%_ + (gx#stx-e _%tl187873187951%_)))) + (let ((_%hd187875187957%_ (let () (declare (not safe)) - (##car _%e184348184428%_))) - (_%tl184350184433%_ + (##car _%e187874187954%_))) + (_%tl187876187959%_ (let () (declare (not safe)) - (##cdr _%e184348184428%_)))) + (##cdr _%e187874187954%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184349184431%_)) - (let ((_%e184351184436%_ + _%hd187875187957%_)) + (let ((_%e187877187962%_ (let () (declare (not safe)) (gx#stx-e - _%hd184349184431%_)))) - (let ((_%hd184352184439%_ + _%hd187875187957%_)))) + (let ((_%hd187878187965%_ (let () (declare (not safe)) - (##car _%e184351184436%_))) - (_%tl184353184441%_ + (##car _%e187877187962%_))) + (_%tl187879187967%_ (let () (declare (not safe)) - (##cdr _%e184351184436%_)))) + (##cdr _%e187877187962%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd184352184439%_)) + _%hd187878187965%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd184352184439%_)) + _%hd187878187965%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184353184441%_)) - (let ((_%e184354184444%_ + _%tl187879187967%_)) + (let ((_%e187880187970%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl184353184441%_)))) - (let ((_%hd184355184447%_ + (gx#stx-e _%tl187879187967%_)))) + (let ((_%hd187881187973%_ (let () (declare (not safe)) - (##car _%e184354184444%_))) - (_%tl184356184449%_ + (##car _%e187880187970%_))) + (_%tl187882187975%_ (let () (declare (not safe)) - (##cdr _%e184354184444%_)))) + (##cdr _%e187880187970%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184356184449%_)) + (gx#stx-null? _%tl187882187975%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184350184433%_)) - (let ((_%e184357184452%_ + (gx#stx-pair? _%tl187876187959%_)) + (let ((_%e187883187978%_ (let () (declare (not safe)) - (gx#stx-e _%tl184350184433%_)))) - (let ((_%hd184358184455%_ + (gx#stx-e _%tl187876187959%_)))) + (let ((_%hd187884187981%_ (let () (declare (not safe)) - (##car _%e184357184452%_))) - (_%tl184359184457%_ + (##car _%e187883187978%_))) + (_%tl187885187983%_ (let () (declare (not safe)) - (##cdr _%e184357184452%_)))) + (##cdr _%e187883187978%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184358184455%_)) - (let ((_%e184360184460%_ + (gx#stx-pair? _%hd187884187981%_)) + (let ((_%e187886187986%_ (let () (declare (not safe)) (gx#stx-e - _%hd184358184455%_)))) - (let ((_%hd184361184463%_ + _%hd187884187981%_)))) + (let ((_%hd187887187989%_ (let () (declare (not safe)) - (##car _%e184360184460%_))) - (_%tl184362184465%_ + (##car _%e187886187986%_))) + (_%tl187888187991%_ (let () (declare (not safe)) - (##cdr _%e184360184460%_)))) + (##cdr _%e187886187986%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd184361184463%_)) + _%hd187887187989%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd184361184463%_)) + _%hd187887187989%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184362184465%_)) - (let ((_%e184363184468%_ + _%tl187888187991%_)) + (let ((_%e187889187994%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl184362184465%_)))) - (let ((_%hd184364184471%_ + (gx#stx-e _%tl187888187991%_)))) + (let ((_%hd187890187997%_ (let () (declare (not safe)) - (##car _%e184363184468%_))) - (_%tl184365184473%_ + (##car _%e187889187994%_))) + (_%tl187891187999%_ (let () (declare (not safe)) - (##cdr _%e184363184468%_)))) + (##cdr _%e187889187994%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184365184473%_)) + (gx#stx-null? _%tl187891187999%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184359184457%_)) - (let ((_%e184366184476%_ + (gx#stx-pair? _%tl187885187983%_)) + (let ((_%e187892188002%_ (let () (declare (not safe)) - (gx#stx-e _%tl184359184457%_)))) - (let ((_%hd184367184479%_ + (gx#stx-e _%tl187885187983%_)))) + (let ((_%hd187893188005%_ (let () (declare (not safe)) - (##car _%e184366184476%_))) - (_%tl184368184481%_ + (##car _%e187892188002%_))) + (_%tl187894188007%_ (let () (declare (not safe)) - (##cdr _%e184366184476%_)))) + (##cdr _%e187892188002%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184367184479%_)) - (let ((_%e184369184484%_ + (gx#stx-pair? _%hd187893188005%_)) + (let ((_%e187895188010%_ (let () (declare (not safe)) - (gx#stx-e _%hd184367184479%_)))) - (let ((_%hd184370184487%_ + (gx#stx-e _%hd187893188005%_)))) + (let ((_%hd187896188013%_ (let () (declare (not safe)) - (##car _%e184369184484%_))) - (_%tl184371184489%_ + (##car _%e187895188010%_))) + (_%tl187897188015%_ (let () (declare (not safe)) - (##cdr _%e184369184484%_)))) + (##cdr _%e187895188010%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd184370184487%_)) + _%hd187896188013%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd184370184487%_)) + _%hd187896188013%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184371184489%_)) - (let ((_%e184372184492%_ + _%tl187897188015%_)) + (let ((_%e187898188018%_ (let () (declare (not safe)) (gx#stx-e - _%tl184371184489%_)))) - (let ((_%hd184373184495%_ + _%tl187897188015%_)))) + (let ((_%hd187899188021%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e184372184492%_))) - (_%tl184374184497%_ - (let () (declare (not safe)) (##cdr _%e184372184492%_)))) + (##car _%e187898188018%_))) + (_%tl187900188023%_ + (let () (declare (not safe)) (##cdr _%e187898188018%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184374184497%_)) + (gx#stx-null? _%tl187900188023%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl184368184481%_)) - (if (let ((__tmp186763 + (gx#stx-pair/null? _%tl187894188007%_)) + (if (let ((__tmp190276 (let () (declare (not safe)) - (gx#stx-length _%tl184368184481%_)))) + (gx#stx-length _%tl187894188007%_)))) (declare (not safe)) - (##fx>= __tmp186763 '1)) - (let ((_g186764_ + (##fx>= __tmp190276 '1)) + (let ((_g190277_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl184368184481%_ + _%tl187894188007%_ '1)))) (begin - (let ((_g186765_ + (let ((_g190278_ (let () (declare (not safe)) - (if (##values? _g186764_) - (##values-length _g186764_) + (if (##values? _g190277_) + (##values-length _g190277_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g186765_ 2))) + (##fx= _g190278_ 2))) (error "Context expects 2 values" - _g186765_))) - (let ((_%target184375184500%_ + _g190278_))) + (let ((_%target187901188026%_ (let () (declare (not safe)) - (##values-ref _g186764_ 0))) - (_%tl184377184502%_ + (##values-ref _g190277_ 0))) + (_%tl187903188028%_ (let () (declare (not safe)) - (##values-ref _g186764_ 1)))) + (##values-ref _g190277_ 1)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184377184502%_)) - (let ((_%e184384184505%_ + (gx#stx-pair? _%tl187903188028%_)) + (let ((_%e187910188031%_ (let () (declare (not safe)) - (gx#stx-e _%tl184377184502%_)))) - (let ((_%hd184385184508%_ + (gx#stx-e _%tl187903188028%_)))) + (let ((_%hd187911188034%_ (let () (declare (not safe)) - (##car _%e184384184505%_))) - (_%tl184386184510%_ + (##car _%e187910188031%_))) + (_%tl187912188036%_ (let () (declare (not safe)) - (##cdr _%e184384184505%_)))) + (##cdr _%e187910188031%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184386184510%_)) - (letrec ((_%loop184378184513%_ - (lambda (_%hd184376184516%_ + _%tl187912188036%_)) + (letrec ((_%loop187904188039%_ + (lambda (_%hd187902188042%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kw-ref184382184518%_) + _%kw-ref187908188044%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184376184516%_)) - (let ((_%e184379184521%_ + (gx#stx-pair? _%hd187902188042%_)) + (let ((_%e187905188046%_ (let () (declare (not safe)) - (gx#stx-e _%hd184376184516%_)))) - (let ((_%lp-hd184380184524%_ + (gx#stx-e _%hd187902188042%_)))) + (let ((_%lp-hd187906188049%_ (let () (declare (not safe)) - (##car _%e184379184521%_))) - (_%lp-tl184381184526%_ + (##car _%e187905188046%_))) + (_%lp-tl187907188051%_ (let () (declare (not safe)) - (##cdr _%e184379184521%_)))) - (_%loop184378184513%_ - _%lp-tl184381184526%_ - (cons _%lp-hd184380184524%_ - _%kw-ref184382184518%_)))) - (let ((_%kw-ref184383184529%_ - (reverse _%kw-ref184382184518%_))) + (##cdr _%e187905188046%_)))) + (_%loop187904188039%_ + _%lp-tl187907188051%_ + (cons _%lp-hd187906188049%_ + _%kw-ref187908188044%_)))) + (let ((_%kw-ref187909188054%_ + (reverse _%kw-ref187908188044%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184344184417%_)) - ((lambda (_%L184532%_ - _%L184533%_ - _%L184534%_ - _%L184535%_ - _%L184536%_) - (let* ((_%kw-count184587%_ - (length (let ((__tmp186766 - (lambda (_%g184579184582%_ - _%g184580184584%_) - (cons _%g184579184582%_ - _%g184580184584%_)))) + (gx#stx-null? _%tl187870187943%_)) + ((lambda (_%g187857188056%_ + _%g187858188057%_ + _%g187859188058%_ + _%g187860188059%_ + _%g187861188060%_) + (let* ((_%kw-count188111%_ + (length (let ((__tmp190279 + (lambda (_%g188103188106%_ + _%g188104188108%_) + (cons _%g188103188106%_ + _%g188104188108%_)))) (declare (not safe)) (__foldr1 - __tmp186766 + __tmp190279 '() - _%L184533%_)))) - (_%self-index184589%_ + _%g187858188057%_)))) + (_%self-index188113%_ (let () (declare (not safe)) - (##fx+ _%kw-count184587%_ '1)))) + (##fx+ _%kw-count188111%_ '1)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _%L184287%_)) - (let* ((_%g184593184607%_ - (lambda (_%g184594184604%_) + (gxc#lambda-expr? _%g187645187813%_)) + (let* ((_%g188117188131%_ + (lambda (_%g188118188128%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g184594184604%_)))) - (_%g184592184730%_ - (lambda (_%g184594184610%_) + _%g188118188128%_)))) + (_%g188116188254%_ + (lambda (_%g188118188134%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g184594184610%_)) - (let ((_%e184597184612%_ + _%g188118188134%_)) + (let ((_%e188121188136%_ (let () (declare (not safe)) (gx#stx-e - _%g184594184610%_)))) - (let ((_%hd184598184615%_ + _%g188118188134%_)))) + (let ((_%hd188122188139%_ (let () (declare (not safe)) - (##car _%e184597184612%_))) - (_%tl184599184617%_ + (##car _%e188121188136%_))) + (_%tl188123188141%_ (let () (declare (not safe)) - (##cdr _%e184597184612%_)))) + (##cdr _%e188121188136%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184599184617%_)) - (let ((_%e184600184620%_ + _%tl188123188141%_)) + (let ((_%e188124188144%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl184599184617%_)))) - (let ((_%hd184601184623%_ + (gx#stx-e _%tl188123188141%_)))) + (let ((_%hd188125188147%_ (let () (declare (not safe)) - (##car _%e184600184620%_))) - (_%tl184602184625%_ + (##car _%e188124188144%_))) + (_%tl188126188149%_ (let () (declare (not safe)) - (##cdr _%e184600184620%_)))) - ((lambda (_%L184628%_ _%L184629%_) - (let* ((_%self184646%_ - (list-ref _%L184629%_ _%self-index184589%_)) - (_%receiver184651%_ - (let ((_%$e184648%_ + (##cdr _%e188124188144%_)))) + ((lambda (_%g188119188152%_ _%g188120188153%_) + (let* ((_%self188170%_ + (list-ref + _%g188120188153%_ + _%self-index188113%_)) + (_%receiver188175%_ + (let ((_%$e188172%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L184628%_)))) - (if _%$e184648%_ - _%$e184648%_ - _%self184646%_)))) + _%g188119188152%_)))) + (if _%$e188172%_ + _%$e188172%_ + _%self188170%_)))) (for-each - (lambda (_%g184653184655%_) + (lambda (_%g188177188179%_) (gxc#apply-collect-object-refs__% '#f - _%receiver184651%_ - _%method-calls182579%_ - _%slot-refs182580%_ - _%g184653184655%_)) - _%L184628%_) - (if (_%no-specializer?182583%_) - _%stx182487%_ - (let* ((_%specializer-id184664%_ - (let* ((_%id184658%_ - (let ((__tmp186767 + _%receiver188175%_ + _%method-calls186115%_ + _%slot-refs186116%_ + _%g188177188179%_)) + _%g188119188152%_) + (if (_%no-specializer?186119%_) + _%stx186023%_ + (let* ((_%specializer-id188188%_ + (let* ((_%id188182%_ + (let ((__tmp190280 (let () (declare (not safe)) (gx#stx-e - _%L182560%_)))) + _%g186034186096%_)))) (declare (not safe)) (make-symbol__1 - __tmp186767 + __tmp190280 '"::specialize"))) - (_%specializer-id184661%_ - (let ((__tmp186768 + (_%specializer-id188185%_ + (let ((__tmp190281 (let () (declare (not safe)) (gx#stx-source - _%stx182487%_)))) + _%stx186023%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id184658%_ - __tmp186768)))) + _%id188182%_ + __tmp190281)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%specializer-id184661%_)) - _%specializer-id184661%_)) - (_%$klass184666%_ - (let ((__tmp186769 + _%specializer-id188185%_)) + _%specializer-id188185%_)) + (_%$klass188190%_ + (let ((__tmp190282 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp186769))) - (_%$method-table184668%_ - (let ((__tmp186770 + (make-symbol__0 __tmp190282))) + (_%$method-table188192%_ + (let ((__tmp190283 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp186770))) - (_%methods184670%_ + (make-symbol__0 __tmp190283))) + (_%methods188194%_ (let () (declare (not safe)) (__hash-keys - _%method-calls182579%_))) - (_%$methods184674%_ - (let ((__tmp186771 - (lambda (_%id184672%_) - (let ((__tmp186772 - (gensym _%id184672%_))) + _%method-calls186115%_))) + (_%$methods188198%_ + (let ((__tmp190284 + (lambda (_%id188196%_) + (let ((__tmp190285 + (gensym _%id188196%_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp186772))))) + __tmp190285))))) (declare (not safe)) - (##map __tmp186771 - _%methods184670%_))) - (_%_184683%_ - (let ((__tmp186773 - (lambda (_%g184675184678%_ - _%g184676184680%_) + (##map __tmp190284 + _%methods188194%_))) + (_%_188207%_ + (let ((__tmp190286 + (lambda (_%g188199188202%_ + _%g188200188204%_) (let () (declare (not safe)) (__hash-put! - _%method-calls182579%_ - _%g184675184678%_ - _%g184676184680%_))))) + _%method-calls186115%_ + _%g188199188202%_ + _%g188200188204%_))))) (declare (not safe)) (##for-each - __tmp186773 - _%methods184670%_ - _%$methods184674%_))) - (_%methods-bind184693%_ - (let ((__tmp186774 - (lambda (_%g184685184688%_ - _%g184686184690%_) - (_%generate-method-bind182489%_ - _%$klass184666%_ - _%$method-table184668%_ - _%g184685184688%_ - _%g184686184690%_)))) + __tmp190286 + _%methods188194%_ + _%$methods188198%_))) + (_%methods-bind188217%_ + (let ((__tmp190287 + (lambda (_%g188209188212%_ + _%g188210188214%_) + (_%generate-method-bind186025%_ + _%$klass188190%_ + _%$method-table188192%_ + _%g188209188212%_ + _%g188210188214%_)))) (declare (not safe)) - (##map __tmp186774 - _%methods184670%_ - _%$methods184674%_))) - (_%slots184695%_ + (##map __tmp190287 + _%methods188194%_ + _%$methods188198%_))) + (_%slots188219%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs182580%_))) - (_%$slots184699%_ - (let ((__tmp186775 - (lambda (_%id184697%_) - (let ((__tmp186776 - (gensym _%id184697%_))) + (__hash-keys _%slot-refs186116%_))) + (_%$slots188223%_ + (let ((__tmp190288 + (lambda (_%id188221%_) + (let ((__tmp190289 + (gensym _%id188221%_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp186776))))) + __tmp190289))))) (declare (not safe)) - (##map __tmp186775 _%slots184695%_))) - (_%_184708%_ - (let ((__tmp186777 - (lambda (_%g184700184703%_ - _%g184701184705%_) + (##map __tmp190288 _%slots188219%_))) + (_%_188232%_ + (let ((__tmp190290 + (lambda (_%g188224188227%_ + _%g188225188229%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs182580%_ - _%g184700184703%_ - _%g184701184705%_))))) + _%slot-refs186116%_ + _%g188224188227%_ + _%g188225188229%_))))) (declare (not safe)) (##for-each - __tmp186777 - _%slots184695%_ - _%$slots184699%_))) - (_%slots-bind184717%_ - (let ((__tmp186778 - (lambda (_%g184709184712%_ - _%g184710184714%_) - (_%generate-slot-bind182490%_ - _%$klass184666%_ - _%g184709184712%_ - _%g184710184714%_)))) + __tmp190290 + _%slots188219%_ + _%$slots188223%_))) + (_%slots-bind188241%_ + (let ((__tmp190291 + (lambda (_%g188233188236%_ + _%g188234188238%_) + (_%generate-slot-bind186026%_ + _%$klass188190%_ + _%g188233188236%_ + _%g188234188238%_)))) (declare (not safe)) - (##map __tmp186778 - _%slots184695%_ - _%$slots184699%_))) - (_%specializer-impl184725%_ - (let* ((_%specializer-body184723%_ - (map (lambda (_%g184718184720%_) + (##map __tmp190291 + _%slots188219%_ + _%$slots188223%_))) + (_%specializer-impl188249%_ + (let* ((_%specializer-body188247%_ + (map (lambda (_%g188242188244%_) (gxc#apply-subst-object-refs__% '#f - _%receiver184651%_ - _%$klass184666%_ - _%method-calls182579%_ - _%slot-refs182580%_ - _%g184718184720%_)) - _%L184628%_)) - (__tmp186779 + _%receiver188175%_ + _%$klass188190%_ + _%method-calls186115%_ + _%slot-refs186116%_ + _%g188242188244%_)) + _%g188119188152%_)) + (__tmp190292 (cons '%#let-values - (cons (cons (cons (cons _%L184289%_ + (cons (cons (cons (cons _%g187647187815%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L184288%_ + (cons (cons (cons (cons _%g187646187814%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp186780 + (cons (let ((__tmp190293 (cons '%#lambda - (cons _%L184629%_ - _%specializer-body184723%_)))) + (cons _%g188120188153%_ + _%specializer-body188247%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp186780 _%L184287%_)) + (gxc#xform-wrap-source + __tmp190293 + _%g187645187813%_)) '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L184286%_ '()))) + (cons _%g187644187812%_ + '()))) '())) '()) - (cons _%L184285%_ '()))))) + (cons _%g187643187811%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp186779 - _%stx182487%_))) - (_%specializer-impl184727%_ - (_%generate-specializer-impl182491%_ - _%$klass184666%_ - _%$method-table184668%_ - _%methods-bind184693%_ - _%slots-bind184717%_ - _%specializer-impl184725%_))) - (let ((__tmp186782 + __tmp190292 + _%stx186023%_))) + (_%specializer-impl188251%_ + (_%generate-specializer-impl186027%_ + _%$klass188190%_ + _%$method-table188192%_ + _%methods-bind188217%_ + _%slots-bind188241%_ + _%specializer-impl188249%_))) + (let ((__tmp190295 (let () (declare (not safe)) - (gx#stx-e _%L182560%_))) - (__tmp186781 + (gx#stx-e _%g186034186096%_))) + (__tmp190294 (let () (declare (not safe)) (gx#stx-e - _%specializer-id184664%_)))) + _%specializer-id188188%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp186782 + __tmp190295 '" => " - __tmp186781)) - (_%generate-specializer-def182492%_ - _%L182560%_ - _%specializer-id184664%_ - _%specializer-impl184727%_))))) - _%tl184602184625%_ - _%hd184601184623%_))) - (_%g184593184607%_ _%g184594184610%_)))) + __tmp190294)) + (_%generate-specializer-def186028%_ + _%g186034186096%_ + _%specializer-id188188%_ + _%specializer-impl188251%_))))) + _%tl188126188149%_ + _%hd188125188147%_))) + (_%g188117188131%_ _%g188118188134%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g184593184607%_ - _%g184594184610%_))))) - (_%g184592184730%_ _%L184287%_)) + (_%g188117188131%_ + _%g188118188134%_))))) + (_%g188116188254%_ _%g187645187813%_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _%L184287%_)) - (let* ((_%g184734184764%_ - (lambda (_%g184735184761%_) + (gxc#opt-lambda-expr? + _%g187645187813%_)) + (let* ((_%g188258188288%_ + (lambda (_%g188259188285%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g184735184761%_)))) - (_%g184733185332%_ - (lambda (_%g184735184767%_) + _%g188259188285%_)))) + (_%g188257188852%_ + (lambda (_%g188259188291%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g184735184767%_)) - (let ((_%e184739184769%_ + _%g188259188291%_)) + (let ((_%e188263188293%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%g184735184767%_)))) - (let ((_%hd184740184772%_ + (gx#stx-e _%g188259188291%_)))) + (let ((_%hd188264188296%_ (let () (declare (not safe)) - (##car _%e184739184769%_))) - (_%tl184741184774%_ + (##car _%e188263188293%_))) + (_%tl188265188298%_ (let () (declare (not safe)) - (##cdr _%e184739184769%_)))) + (##cdr _%e188263188293%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184741184774%_)) - (let ((_%e184742184777%_ + (gx#stx-pair? _%tl188265188298%_)) + (let ((_%e188266188301%_ (let () (declare (not safe)) - (gx#stx-e _%tl184741184774%_)))) - (let ((_%hd184743184780%_ + (gx#stx-e _%tl188265188298%_)))) + (let ((_%hd188267188304%_ (let () (declare (not safe)) - (##car _%e184742184777%_))) - (_%tl184744184782%_ + (##car _%e188266188301%_))) + (_%tl188268188306%_ (let () (declare (not safe)) - (##cdr _%e184742184777%_)))) + (##cdr _%e188266188301%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184743184780%_)) - (let ((_%e184745184785%_ + (gx#stx-pair? _%hd188267188304%_)) + (let ((_%e188269188309%_ (let () (declare (not safe)) - (gx#stx-e _%hd184743184780%_)))) - (let ((_%hd184746184788%_ + (gx#stx-e _%hd188267188304%_)))) + (let ((_%hd188270188312%_ (let () (declare (not safe)) - (##car _%e184745184785%_))) - (_%tl184747184790%_ + (##car _%e188269188309%_))) + (_%tl188271188314%_ (let () (declare (not safe)) - (##cdr _%e184745184785%_)))) + (##cdr _%e188269188309%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184746184788%_)) - (let ((_%e184748184793%_ + (gx#stx-pair? _%hd188270188312%_)) + (let ((_%e188272188317%_ (let () (declare (not safe)) (gx#stx-e - _%hd184746184788%_)))) - (let ((_%hd184749184796%_ + _%hd188270188312%_)))) + (let ((_%hd188273188320%_ (let () (declare (not safe)) - (##car _%e184748184793%_))) - (_%tl184750184798%_ + (##car _%e188272188317%_))) + (_%tl188274188322%_ (let () (declare (not safe)) - (##cdr _%e184748184793%_)))) + (##cdr _%e188272188317%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184749184796%_)) - (let ((_%e184751184801%_ + _%hd188273188320%_)) + (let ((_%e188275188325%_ (let () (declare (not safe)) (gx#stx-e - _%hd184749184796%_)))) - (let ((_%hd184752184804%_ + _%hd188273188320%_)))) + (let ((_%hd188276188328%_ (let () (declare (not safe)) - (##car _%e184751184801%_))) - (_%tl184753184806%_ + (##car _%e188275188325%_))) + (_%tl188277188330%_ (let () (declare (not safe)) - (##cdr _%e184751184801%_)))) + (##cdr _%e188275188325%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184753184806%_)) + _%tl188277188330%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184750184798%_)) - (let ((_%e184754184809%_ + _%tl188274188322%_)) + (let ((_%e188278188333%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl184750184798%_)))) - (let ((_%hd184755184812%_ + (gx#stx-e _%tl188274188322%_)))) + (let ((_%hd188279188336%_ (let () (declare (not safe)) - (##car _%e184754184809%_))) - (_%tl184756184814%_ + (##car _%e188278188333%_))) + (_%tl188280188338%_ (let () (declare (not safe)) - (##cdr _%e184754184809%_)))) + (##cdr _%e188278188333%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184756184814%_)) + (gx#stx-null? _%tl188280188338%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184747184790%_)) + (gx#stx-null? _%tl188271188314%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184744184782%_)) - (let ((_%e184757184817%_ + (gx#stx-pair? _%tl188268188306%_)) + (let ((_%e188281188341%_ (let () (declare (not safe)) - (gx#stx-e _%tl184744184782%_)))) - (let ((_%hd184758184820%_ + (gx#stx-e _%tl188268188306%_)))) + (let ((_%hd188282188344%_ (let () (declare (not safe)) - (##car _%e184757184817%_))) - (_%tl184759184822%_ + (##car _%e188281188341%_))) + (_%tl188283188346%_ (let () (declare (not safe)) - (##cdr _%e184757184817%_)))) + (##cdr _%e188281188341%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184759184822%_)) - ((lambda (_%L184825%_ - _%L184826%_ - _%L184827%_) - (let* ((_%g184851184865%_ - (lambda (_%g184852184862%_) + (gx#stx-null? _%tl188283188346%_)) + ((lambda (_%g188260188349%_ + _%g188261188350%_ + _%g188262188351%_) + (let* ((_%g188375188389%_ + (lambda (_%g188376188386%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g184852184862%_)))) - (_%g184850184912%_ - (lambda (_%g184852184868%_) + _%g188376188386%_)))) + (_%g188374188436%_ + (lambda (_%g188376188392%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g184852184868%_)) - (let ((_%e184855184870%_ + _%g188376188392%_)) + (let ((_%e188379188394%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g184852184868%_)))) - (let ((_%hd184856184873%_ + (gx#stx-e _%g188376188392%_)))) + (let ((_%hd188380188397%_ (let () (declare (not safe)) - (##car _%e184855184870%_))) - (_%tl184857184875%_ + (##car _%e188379188394%_))) + (_%tl188381188399%_ (let () (declare (not safe)) - (##cdr _%e184855184870%_)))) + (##cdr _%e188379188394%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184857184875%_)) - (let ((_%e184858184878%_ + (gx#stx-pair? _%tl188381188399%_)) + (let ((_%e188382188402%_ (let () (declare (not safe)) - (gx#stx-e _%tl184857184875%_)))) - (let ((_%hd184859184881%_ + (gx#stx-e _%tl188381188399%_)))) + (let ((_%hd188383188405%_ (let () (declare (not safe)) - (##car _%e184858184878%_))) - (_%tl184860184883%_ + (##car _%e188382188402%_))) + (_%tl188384188407%_ (let () (declare (not safe)) - (##cdr _%e184858184878%_)))) - ((lambda (_%L184886%_ _%L184887%_) - (let* ((_%self184900%_ + (##cdr _%e188382188402%_)))) + ((lambda (_%g188377188410%_ _%g188378188411%_) + (let* ((_%self188424%_ (list-ref - _%L184887%_ - _%self-index184589%_)) - (_%receiver184905%_ - (let ((_%$e184902%_ + _%g188378188411%_ + _%self-index188113%_)) + (_%receiver188429%_ + (let ((_%$e188426%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L184886%_)))) - (if _%$e184902%_ - _%$e184902%_ - _%self184900%_)))) + _%g188377188410%_)))) + (if _%$e188426%_ + _%$e188426%_ + _%self188424%_)))) (for-each - (lambda (_%g184907184909%_) + (lambda (_%g188431188433%_) (gxc#apply-collect-object-refs__% '#f - _%receiver184905%_ - _%method-calls182579%_ - _%slot-refs182580%_ - _%g184907184909%_)) - _%L184886%_))) - _%tl184860184883%_ - _%hd184859184881%_))) - (_%g184851184865%_ _%g184852184868%_)))) - (_%g184851184865%_ _%g184852184868%_))))) + _%receiver188429%_ + _%method-calls186115%_ + _%slot-refs186116%_ + _%g188431188433%_)) + _%g188377188410%_))) + _%tl188384188407%_ + _%hd188383188405%_))) + (_%g188375188389%_ _%g188376188392%_)))) + (_%g188375188389%_ _%g188376188392%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g184850184912%_ - _%L184826%_)) - (let* ((_%g184915184934%_ - (lambda (_%g184916184931%_) + (_%g188374188436%_ + _%g188261188350%_)) + (let* ((_%g188439188458%_ + (lambda (_%g188440188455%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g184916184931%_)))) - (_%g184914185045%_ - (lambda (_%g184916184937%_) + _%g188440188455%_)))) + (_%g188438188567%_ + (lambda (_%g188440188461%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g184916184937%_)) - (let ((_%e184918184939%_ + _%g188440188461%_)) + (let ((_%e188442188463%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g184916184937%_)))) - (let ((_%hd184919184942%_ + (gx#stx-e _%g188440188461%_)))) + (let ((_%hd188443188466%_ (let () (declare (not safe)) - (##car _%e184918184939%_))) - (_%tl184920184944%_ + (##car _%e188442188463%_))) + (_%tl188444188468%_ (let () (declare (not safe)) - (##cdr _%e184918184939%_)))) + (##cdr _%e188442188463%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl184920184944%_)) - (let ((_g186783_ + (gx#stx-pair/null? _%tl188444188468%_)) + (let ((_g190296_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl184920184944%_ + _%tl188444188468%_ '0)))) (begin - (let ((_g186784_ + (let ((_g190297_ (let () (declare (not safe)) - (if (##values? _g186783_) - (##values-length _g186783_) + (if (##values? _g190296_) + (##values-length _g190296_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g186784_ 2))) + (##fx= _g190297_ 2))) (error "Context expects 2 values" - _g186784_))) - (let ((_%target184921184947%_ + _g190297_))) + (let ((_%target188445188471%_ (let () (declare (not safe)) - (##values-ref _g186783_ 0))) - (_%tl184923184949%_ + (##values-ref _g190296_ 0))) + (_%tl188447188473%_ (let () (declare (not safe)) - (##values-ref _g186783_ 1)))) + (##values-ref _g190296_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184923184949%_)) - (letrec ((_%loop184924184952%_ - (lambda (_%hd184922184955%_ - _%clause184928184957%_) + (gx#stx-null? _%tl188447188473%_)) + (letrec ((_%loop188448188476%_ + (lambda (_%hd188446188479%_ + _%clause188452188481%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184922184955%_)) - (let ((_%e184925184960%_ + _%hd188446188479%_)) + (let ((_%e188449188483%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd184922184955%_)))) - (let ((_%lp-hd184926184963%_ - (let () (declare (not safe)) (##car _%e184925184960%_))) - (_%lp-tl184927184965%_ + (gx#stx-e _%hd188446188479%_)))) + (let ((_%lp-hd188450188486%_ + (let () (declare (not safe)) (##car _%e188449188483%_))) + (_%lp-tl188451188488%_ (let () (declare (not safe)) - (##cdr _%e184925184960%_)))) - (_%loop184924184952%_ - _%lp-tl184927184965%_ - (cons _%lp-hd184926184963%_ _%clause184928184957%_)))) - (let ((_%clause184929184968%_ (reverse _%clause184928184957%_))) - ((lambda (_%L184971%_) + (##cdr _%e188449188483%_)))) + (_%loop188448188476%_ + _%lp-tl188451188488%_ + (cons _%lp-hd188450188486%_ _%clause188452188481%_)))) + (let ((_%clause188453188491%_ (reverse _%clause188452188481%_))) + ((lambda (_%g188441188493%_) (for-each - (lambda (_%clause184984%_) - (let* ((_%g184986184997%_ - (lambda (_%g184987184994%_) + (lambda (_%clause188506%_) + (let* ((_%g188508188519%_ + (lambda (_%g188509188516%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g184987184994%_)))) - (_%g184985185035%_ - (lambda (_%g184987185000%_) + _%g188509188516%_)))) + (_%g188507188557%_ + (lambda (_%g188509188522%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g184987185000%_)) - (let ((_%e184990185002%_ + (gx#stx-pair? _%g188509188522%_)) + (let ((_%e188512188524%_ (let () (declare (not safe)) - (gx#stx-e _%g184987185000%_)))) - (let ((_%hd184991185005%_ + (gx#stx-e _%g188509188522%_)))) + (let ((_%hd188513188527%_ (let () (declare (not safe)) - (##car _%e184990185002%_))) - (_%tl184992185007%_ + (##car _%e188512188524%_))) + (_%tl188514188529%_ (let () (declare (not safe)) - (##cdr _%e184990185002%_)))) - ((lambda (_%L185010%_ _%L185011%_) - (let* ((_%self185023%_ + (##cdr _%e188512188524%_)))) + ((lambda (_%g188510188532%_ + _%g188511188533%_) + (let* ((_%self188545%_ (list-ref - _%L185011%_ - _%self-index184589%_)) - (_%receiver185028%_ - (let ((_%$e185025%_ + _%g188511188533%_ + _%self-index188113%_)) + (_%receiver188550%_ + (let ((_%$e188547%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L185010%_)))) + _%g188510188532%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e185025%_ - _%$e185025%_ - _%self185023%_)))) + (if _%$e188547%_ + _%$e188547%_ + _%self188545%_)))) (for-each - (lambda (_%g185030185032%_) + (lambda (_%g188552188554%_) (gxc#apply-collect-object-refs__% '#f - _%receiver185028%_ - _%method-calls182579%_ - _%slot-refs182580%_ - _%g185030185032%_)) - _%L185010%_))) - _%tl184992185007%_ - _%hd184991185005%_))) - (_%g184986184997%_ _%g184987185000%_))))) - (_%g184985185035%_ _%clause184984%_))) - (let ((__tmp186785 - (lambda (_%g185037185040%_ _%g185038185042%_) - (cons _%g185037185040%_ _%g185038185042%_)))) + _%receiver188550%_ + _%method-calls186115%_ + _%slot-refs186116%_ + _%g188552188554%_)) + _%g188510188532%_))) + _%tl188514188529%_ + _%hd188513188527%_))) + (_%g188508188519%_ _%g188509188522%_))))) + (_%g188507188557%_ _%clause188506%_))) + (let ((__tmp190298 + (lambda (_%g188559188562%_ _%g188560188564%_) + (cons _%g188559188562%_ _%g188560188564%_)))) (declare (not safe)) - (__foldr1 __tmp186785 '() _%L184971%_)))) - _%clause184929184968%_)))))) + (__foldr1 __tmp190298 '() _%g188441188493%_)))) + _%clause188453188491%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184924184952%_ - _%target184921184947%_ + (_%loop188448188476%_ + _%target188445188471%_ '())) - (_%g184915184934%_ _%g184916184937%_))))) - (_%g184915184934%_ _%g184916184937%_)))) - (_%g184915184934%_ _%g184916184937%_))))) + (_%g188439188458%_ _%g188440188461%_))))) + (_%g188439188458%_ _%g188440188461%_)))) + (_%g188439188458%_ _%g188440188461%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g184914185045%_ - _%L184825%_)) - (if (_%no-specializer?182583%_) - _%stx182487%_ - (let* ((_%specializer-id185054%_ - (let* ((_%id185048%_ + (_%g188438188567%_ + _%g188260188349%_)) + (if (_%no-specializer?186119%_) + _%stx186023%_ + (let* ((_%specializer-id188576%_ + (let* ((_%id188570%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp186786 + (let ((__tmp190299 (let () (declare (not safe)) - (gx#stx-e _%L182560%_)))) + (gx#stx-e _%g186034186096%_)))) (declare (not safe)) - (make-symbol__1 __tmp186786 '"::specialize"))) - (_%specializer-id185051%_ - (let ((__tmp186787 + (make-symbol__1 __tmp190299 '"::specialize"))) + (_%specializer-id188573%_ + (let ((__tmp190300 (let () (declare (not safe)) - (gx#stx-source _%stx182487%_)))) + (gx#stx-source _%stx186023%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id185048%_ - __tmp186787)))) + _%id188570%_ + __tmp190300)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id185051%_)) - _%specializer-id185051%_)) - (_%$klass185056%_ - (let ((__tmp186788 + (gx#core-bind-runtime!__0 _%specializer-id188573%_)) + _%specializer-id188573%_)) + (_%$klass188578%_ + (let ((__tmp190301 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp186788))) - (_%$method-table185058%_ - (let ((__tmp186789 + (make-symbol__0 __tmp190301))) + (_%$method-table188580%_ + (let ((__tmp190302 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp186789))) - (_%methods185060%_ + (make-symbol__0 __tmp190302))) + (_%methods188582%_ (let () (declare (not safe)) - (__hash-keys _%method-calls182579%_))) - (_%$methods185064%_ - (let ((__tmp186790 - (lambda (_%id185062%_) - (let ((__tmp186791 (gensym _%id185062%_))) + (__hash-keys _%method-calls186115%_))) + (_%$methods188586%_ + (let ((__tmp190303 + (lambda (_%id188584%_) + (let ((__tmp190304 (gensym _%id188584%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp186791))))) + (make-symbol__1 '"__" __tmp190304))))) (declare (not safe)) - (##map __tmp186790 _%methods185060%_))) - (_%_185073%_ - (let ((__tmp186792 - (lambda (_%g185065185068%_ _%g185066185070%_) + (##map __tmp190303 _%methods188582%_))) + (_%_188595%_ + (let ((__tmp190305 + (lambda (_%g188587188590%_ _%g188588188592%_) (let () (declare (not safe)) (__hash-put! - _%method-calls182579%_ - _%g185065185068%_ - _%g185066185070%_))))) + _%method-calls186115%_ + _%g188587188590%_ + _%g188588188592%_))))) (declare (not safe)) (##for-each - __tmp186792 - _%methods185060%_ - _%$methods185064%_))) - (_%methods-bind185083%_ - (let ((__tmp186793 - (lambda (_%g185075185078%_ _%g185076185080%_) - (_%generate-method-bind182489%_ - _%$klass185056%_ - _%$method-table185058%_ - _%g185075185078%_ - _%g185076185080%_)))) + __tmp190305 + _%methods188582%_ + _%$methods188586%_))) + (_%methods-bind188605%_ + (let ((__tmp190306 + (lambda (_%g188597188600%_ _%g188598188602%_) + (_%generate-method-bind186025%_ + _%$klass188578%_ + _%$method-table188580%_ + _%g188597188600%_ + _%g188598188602%_)))) (declare (not safe)) - (##map __tmp186793 _%methods185060%_ _%$methods185064%_))) - (_%slots185085%_ + (##map __tmp190306 _%methods188582%_ _%$methods188586%_))) + (_%slots188607%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs182580%_))) - (_%$slots185089%_ - (let ((__tmp186794 - (lambda (_%id185087%_) - (let ((__tmp186795 (gensym _%id185087%_))) + (__hash-keys _%slot-refs186116%_))) + (_%$slots188611%_ + (let ((__tmp190307 + (lambda (_%id188609%_) + (let ((__tmp190308 (gensym _%id188609%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp186795))))) + (make-symbol__1 '"__" __tmp190308))))) (declare (not safe)) - (##map __tmp186794 _%slots185085%_))) - (_%_185098%_ - (let ((__tmp186796 - (lambda (_%g185090185093%_ _%g185091185095%_) + (##map __tmp190307 _%slots188607%_))) + (_%_188620%_ + (let ((__tmp190309 + (lambda (_%g188612188615%_ _%g188613188617%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs182580%_ - _%g185090185093%_ - _%g185091185095%_))))) + _%slot-refs186116%_ + _%g188612188615%_ + _%g188613188617%_))))) (declare (not safe)) - (##for-each __tmp186796 _%slots185085%_ _%$slots185089%_))) - (_%slots-bind185107%_ - (let ((__tmp186797 - (lambda (_%g185099185102%_ _%g185100185104%_) - (_%generate-slot-bind182490%_ - _%$klass185056%_ - _%g185099185102%_ - _%g185100185104%_)))) + (##for-each __tmp190309 _%slots188607%_ _%$slots188611%_))) + (_%slots-bind188629%_ + (let ((__tmp190310 + (lambda (_%g188621188624%_ _%g188622188626%_) + (_%generate-slot-bind186026%_ + _%$klass188578%_ + _%g188621188624%_ + _%g188622188626%_)))) (declare (not safe)) - (##map __tmp186797 _%slots185085%_ _%$slots185089%_))) - (_%specializer-lambda-expr185185%_ - (let* ((_%g185109185123%_ - (lambda (_%g185110185120%_) + (##map __tmp190310 _%slots188607%_ _%$slots188611%_))) + (_%specializer-lambda-expr188707%_ + (let* ((_%g188631188645%_ + (lambda (_%g188632188642%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g185110185120%_)))) - (_%g185108185182%_ - (lambda (_%g185110185126%_) + _%g188632188642%_)))) + (_%g188630188704%_ + (lambda (_%g188632188648%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g185110185126%_)) - (let ((_%e185113185128%_ + (gx#stx-pair? _%g188632188648%_)) + (let ((_%e188635188650%_ (let () (declare (not safe)) - (gx#stx-e _%g185110185126%_)))) - (let ((_%hd185114185131%_ + (gx#stx-e _%g188632188648%_)))) + (let ((_%hd188636188653%_ (let () (declare (not safe)) - (##car _%e185113185128%_))) - (_%tl185115185133%_ + (##car _%e188635188650%_))) + (_%tl188637188655%_ (let () (declare (not safe)) - (##cdr _%e185113185128%_)))) + (##cdr _%e188635188650%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185115185133%_)) - (let ((_%e185116185136%_ + (gx#stx-pair? _%tl188637188655%_)) + (let ((_%e188638188658%_ (let () (declare (not safe)) (gx#stx-e - _%tl185115185133%_)))) - (let ((_%hd185117185139%_ + _%tl188637188655%_)))) + (let ((_%hd188639188661%_ (let () (declare (not safe)) - (##car _%e185116185136%_))) - (_%tl185118185141%_ + (##car _%e188638188658%_))) + (_%tl188640188663%_ (let () (declare (not safe)) - (##cdr _%e185116185136%_)))) - ((lambda (_%L185144%_ _%L185145%_) - (let* ((_%self185168%_ + (##cdr _%e188638188658%_)))) + ((lambda (_%g188633188666%_ + _%g188634188667%_) + (let* ((_%self188690%_ (list-ref - _%L185145%_ - _%self-index184589%_)) - (_%receiver185173%_ - (let ((_%$e185170%_ + _%g188634188667%_ + _%self-index188113%_)) + (_%receiver188695%_ + (let ((_%$e188692%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L185144%_)))) - (if _%$e185170%_ _%$e185170%_ _%self185168%_))) - (_%body185179%_ - (map (lambda (_%g185174185176%_) + _%g188633188666%_)))) + (if _%$e188692%_ _%$e188692%_ _%self188690%_))) + (_%body188701%_ + (map (lambda (_%g188696188698%_) (gxc#apply-subst-object-refs__% '#f - _%receiver185173%_ - _%$klass185056%_ - _%method-calls182579%_ - _%slot-refs182580%_ - _%g185174185176%_)) - _%L185144%_)) - (__tmp186798 (cons '%#lambda (cons _%L185145%_ _%body185179%_)))) + _%receiver188695%_ + _%$klass188578%_ + _%method-calls186115%_ + _%slot-refs186116%_ + _%g188696188698%_)) + _%g188633188666%_)) + (__tmp190311 + (cons '%#lambda (cons _%g188634188667%_ _%body188701%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp186798 - _%L184826%_))) - _%tl185118185141%_ - _%hd185117185139%_))) - (_%g185109185123%_ - _%g185110185126%_)))) - (_%g185109185123%_ _%g185110185126%_))))) - (_%g185108185182%_ _%L184826%_))) - (_%specializer-case-lambda-expr185325%_ - (let* ((_%g185187185206%_ - (lambda (_%g185188185203%_) + __tmp190311 + _%g188261188350%_))) + _%tl188640188663%_ + _%hd188639188661%_))) + (_%g188631188645%_ + _%g188632188648%_)))) + (_%g188631188645%_ _%g188632188648%_))))) + (_%g188630188704%_ _%g188261188350%_))) + (_%specializer-case-lambda-expr188845%_ + (let* ((_%g188709188728%_ + (lambda (_%g188710188725%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g185188185203%_)))) - (_%g185186185322%_ - (lambda (_%g185188185209%_) + _%g188710188725%_)))) + (_%g188708188842%_ + (lambda (_%g188710188731%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g185188185209%_)) - (let ((_%e185190185211%_ + (gx#stx-pair? _%g188710188731%_)) + (let ((_%e188712188733%_ (let () (declare (not safe)) - (gx#stx-e _%g185188185209%_)))) - (let ((_%hd185191185214%_ + (gx#stx-e _%g188710188731%_)))) + (let ((_%hd188713188736%_ (let () (declare (not safe)) - (##car _%e185190185211%_))) - (_%tl185192185216%_ + (##car _%e188712188733%_))) + (_%tl188714188738%_ (let () (declare (not safe)) - (##cdr _%e185190185211%_)))) + (##cdr _%e188712188733%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl185192185216%_)) - (let ((_g186799_ + _%tl188714188738%_)) + (let ((_g190312_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl185192185216%_ + _%tl188714188738%_ '0)))) (begin - (let ((_g186800_ + (let ((_g190313_ (let () (declare (not safe)) - (if (##values? _g186799_) + (if (##values? _g190312_) (##values-length - _g186799_) + _g190312_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g186800_ 2))) + (##fx= _g190313_ 2))) (error "Context expects 2 values" - _g186800_))) - (let ((_%target185193185219%_ + _g190313_))) + (let ((_%target188715188741%_ (let () (declare (not safe)) (##values-ref - _g186799_ + _g190312_ 0))) - (_%tl185195185221%_ + (_%tl188717188743%_ (let () (declare (not safe)) (##values-ref - _g186799_ + _g190312_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185195185221%_)) - (letrec ((_%loop185196185224%_ - (lambda (_%hd185194185227%_ + _%tl188717188743%_)) + (letrec ((_%loop188718188746%_ + (lambda (_%hd188716188749%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause185200185229%_) + _%clause188722188751%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185194185227%_)) - (let ((_%e185197185232%_ + (gx#stx-pair? _%hd188716188749%_)) + (let ((_%e188719188753%_ (let () (declare (not safe)) - (gx#stx-e _%hd185194185227%_)))) - (let ((_%lp-hd185198185235%_ + (gx#stx-e _%hd188716188749%_)))) + (let ((_%lp-hd188720188756%_ (let () (declare (not safe)) - (##car _%e185197185232%_))) - (_%lp-tl185199185237%_ + (##car _%e188719188753%_))) + (_%lp-tl188721188758%_ (let () (declare (not safe)) - (##cdr _%e185197185232%_)))) - (_%loop185196185224%_ - _%lp-tl185199185237%_ - (cons _%lp-hd185198185235%_ - _%clause185200185229%_)))) - (let ((_%clause185201185240%_ - (reverse _%clause185200185229%_))) - ((lambda (_%L185243%_) - (let* ((_%clauses185320%_ - (map (lambda (_%clause185257%_) - (let* ((_%g185259185270%_ - (lambda (_%g185260185267%_) + (##cdr _%e188719188753%_)))) + (_%loop188718188746%_ + _%lp-tl188721188758%_ + (cons _%lp-hd188720188756%_ + _%clause188722188751%_)))) + (let ((_%clause188723188761%_ + (reverse _%clause188722188751%_))) + ((lambda (_%g188711188763%_) + (let* ((_%clauses188840%_ + (map (lambda (_%clause188777%_) + (let* ((_%g188779188790%_ + (lambda (_%g188780188787%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g185260185267%_)))) - (_%g185258185310%_ - (lambda (_%g185260185273%_) + _%g188780188787%_)))) + (_%g188778188830%_ + (lambda (_%g188780188793%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g185260185273%_)) - (let ((_%e185263185275%_ + _%g188780188793%_)) + (let ((_%e188783188795%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g185260185273%_)))) - (let ((_%hd185264185278%_ + (gx#stx-e _%g188780188793%_)))) + (let ((_%hd188784188798%_ (let () (declare (not safe)) - (##car _%e185263185275%_))) - (_%tl185265185280%_ + (##car _%e188783188795%_))) + (_%tl188785188800%_ (let () (declare (not safe)) - (##cdr _%e185263185275%_)))) - ((lambda (_%L185283%_ _%L185284%_) - (let* ((_%self185296%_ - (list-ref _%L185284%_ _%self-index184589%_)) - (_%receiver185301%_ - (let ((_%$e185298%_ + (##cdr _%e188783188795%_)))) + ((lambda (_%g188781188803%_ _%g188782188804%_) + (let* ((_%self188816%_ + (list-ref + _%g188782188804%_ + _%self-index188113%_)) + (_%receiver188821%_ + (let ((_%$e188818%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L185283%_)))) - (if _%$e185298%_ - _%$e185298%_ - _%self185296%_))) - (_%body185307%_ - (map (lambda (_%g185302185304%_) + _%g188781188803%_)))) + (if _%$e188818%_ + _%$e188818%_ + _%self188816%_))) + (_%body188827%_ + (map (lambda (_%g188822188824%_) (gxc#apply-subst-object-refs__% '#f - _%receiver185301%_ - _%$klass185056%_ - _%method-calls182579%_ - _%slot-refs182580%_ - _%g185302185304%_)) - _%L185283%_))) - (cons _%L185284%_ _%body185307%_))) - _%tl185265185280%_ - _%hd185264185278%_))) - (_%g185259185270%_ _%g185260185273%_))))) + _%receiver188821%_ + _%$klass188578%_ + _%method-calls186115%_ + _%slot-refs186116%_ + _%g188822188824%_)) + _%g188781188803%_))) + (cons _%g188782188804%_ _%body188827%_))) + _%tl188785188800%_ + _%hd188784188798%_))) + (_%g188779188790%_ _%g188780188793%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g185258185310%_ - _%clause185257%_))) - (let ((__tmp186801 - (lambda (_%g185312185315%_ - _%g185313185317%_) - (cons _%g185312185315%_ - _%g185313185317%_)))) + (_%g188778188830%_ + _%clause188777%_))) + (let ((__tmp190314 + (lambda (_%g188832188835%_ + _%g188833188837%_) + (cons _%g188832188835%_ + _%g188833188837%_)))) (declare (not safe)) (__foldr1 - __tmp186801 + __tmp190314 '() - _%L185243%_)))) - (__tmp186802 + _%g188711188763%_)))) + (__tmp190315 (cons '%#case-lambda - _%clauses185320%_))) + _%clauses188840%_))) (declare (not safe)) (gxc#xform-wrap-source - __tmp186802 - _%L184825%_))) - _%clause185201185240%_)))))) + __tmp190315 + _%g188260188349%_))) + _%clause188723188761%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop185196185224%_ - _%target185193185219%_ + (_%loop188718188746%_ + _%target188715188741%_ '())) - (_%g185187185206%_ - _%g185188185209%_))))) - (_%g185187185206%_ - _%g185188185209%_)))) - (_%g185187185206%_ _%g185188185209%_))))) - (_%g185186185322%_ _%L184825%_))) - (_%specializer-impl185327%_ - (let ((__tmp186803 + (_%g188709188728%_ + _%g188710188731%_))))) + (_%g188709188728%_ + _%g188710188731%_)))) + (_%g188709188728%_ _%g188710188731%_))))) + (_%g188708188842%_ _%g188260188349%_))) + (_%specializer-impl188847%_ + (let ((__tmp190316 (cons '%#let-values - (cons (cons (cons (cons _%L184289%_ '()) + (cons (cons (cons (cons _%g187647187815%_ '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L184288%_ + (cons (cons (cons (cons _%g187646187814%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp186804 + (cons (let ((__tmp190317 (cons '%#let-values - (cons (cons (cons (cons _%L184827%_ + (cons (cons (cons (cons _%g188262188351%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%specializer-lambda-expr185185%_ + (cons _%specializer-lambda-expr188707%_ '())) '()) - (cons _%specializer-case-lambda-expr185325%_ '()))))) + (cons _%specializer-case-lambda-expr188845%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp186804 - _%stx182487%_)) + __tmp190317 + _%stx186023%_)) '())) '()) - (cons _%L184286%_ '()))) + (cons _%g187644187812%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _%L184285%_ '()))))) + (cons _%g187643187811%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp186803 _%stx182487%_))) - (_%specializer-impl185329%_ - (_%generate-specializer-impl182491%_ - _%$klass185056%_ - _%$method-table185058%_ - _%methods-bind185083%_ - _%slots-bind185107%_ - _%specializer-impl185327%_))) + (gxc#xform-wrap-source __tmp190316 _%stx186023%_))) + (_%specializer-impl188849%_ + (_%generate-specializer-impl186027%_ + _%$klass188578%_ + _%$method-table188580%_ + _%methods-bind188605%_ + _%slots-bind188629%_ + _%specializer-impl188847%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp186806 + (let ((__tmp190319 (let () (declare (not safe)) (gx#stx-e - _%L182560%_))) - (__tmp186805 + _%g186034186096%_))) + (__tmp190318 (let () (declare (not safe)) (gx#stx-e - _%specializer-id185054%_)))) + _%specializer-id188576%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp186806 + __tmp190319 '" => " - __tmp186805)) - (_%generate-specializer-def182492%_ - _%L182560%_ - _%specializer-id185054%_ - _%specializer-impl185329%_)))) - _%hd184758184820%_ - _%hd184755184812%_ - _%hd184752184804%_) - (_%g184734184764%_ - _%g184735184767%_)))) - (_%g184734184764%_ _%g184735184767%_)) - (_%g184734184764%_ _%g184735184767%_)) - (_%g184734184764%_ _%g184735184767%_)))) - (_%g184734184764%_ _%g184735184767%_)) - (_%g184734184764%_ _%g184735184767%_)))) + __tmp190318)) + (_%generate-specializer-def186028%_ + _%g186034186096%_ + _%specializer-id188576%_ + _%specializer-impl188849%_)))) + _%hd188282188344%_ + _%hd188279188336%_ + _%hd188276188328%_) + (_%g188258188288%_ + _%g188259188291%_)))) + (_%g188258188288%_ _%g188259188291%_)) + (_%g188258188288%_ _%g188259188291%_)) + (_%g188258188288%_ _%g188259188291%_)))) + (_%g188258188288%_ _%g188259188291%_)) + (_%g188258188288%_ _%g188259188291%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g184734184764%_ - _%g184735184767%_)))) - (_%g184734184764%_ _%g184735184767%_)))) - (_%g184734184764%_ _%g184735184767%_)))) - (_%g184734184764%_ _%g184735184767%_)))) - (_%g184734184764%_ _%g184735184767%_))))) + (_%g188258188288%_ + _%g188259188291%_)))) + (_%g188258188288%_ _%g188259188291%_)))) + (_%g188258188288%_ _%g188259188291%_)))) + (_%g188258188288%_ _%g188259188291%_)))) + (_%g188258188288%_ _%g188259188291%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g184733185332%_ _%L184287%_)) - _%stx182487%_)))) - _%hd184385184508%_ - _%kw-ref184383184529%_ - _%hd184373184495%_ - _%hd184364184471%_ - _%hd184355184447%_) - (_%g184329184391%_ _%g184330184394%_))))))) + (_%g188257188852%_ + _%g187645187813%_)) + _%stx186023%_)))) + _%hd187911188034%_ + _%kw-ref187909188054%_ + _%hd187899188021%_ + _%hd187890187997%_ + _%hd187881187973%_) + (_%g187855187917%_ _%g187856187920%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184378184513%_ - _%target184375184500%_ + (_%loop187904188039%_ + _%target187901188026%_ '())) - (_%g184329184391%_ - _%g184330184394%_)))) - (_%g184329184391%_ _%g184330184394%_))))) - (_%g184329184391%_ _%g184330184394%_)) - (_%g184329184391%_ _%g184330184394%_)) - (_%g184329184391%_ _%g184330184394%_)))) + (_%g187855187917%_ + _%g187856187920%_)))) + (_%g187855187917%_ _%g187856187920%_))))) + (_%g187855187917%_ _%g187856187920%_)) + (_%g187855187917%_ _%g187856187920%_)) + (_%g187855187917%_ _%g187856187920%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g184329184391%_ - _%g184330184394%_)) - (_%g184329184391%_ - _%g184330184394%_)) - (_%g184329184391%_ - _%g184330184394%_)))) - (_%g184329184391%_ _%g184330184394%_)))) - (_%g184329184391%_ _%g184330184394%_)) - (_%g184329184391%_ _%g184330184394%_)))) - (_%g184329184391%_ _%g184330184394%_)) + (_%g187855187917%_ + _%g187856187920%_)) + (_%g187855187917%_ + _%g187856187920%_)) + (_%g187855187917%_ + _%g187856187920%_)))) + (_%g187855187917%_ _%g187856187920%_)))) + (_%g187855187917%_ _%g187856187920%_)) + (_%g187855187917%_ _%g187856187920%_)))) + (_%g187855187917%_ _%g187856187920%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g184329184391%_ - _%g184330184394%_)) - (_%g184329184391%_ - _%g184330184394%_)))) - (_%g184329184391%_ - _%g184330184394%_)))) - (_%g184329184391%_ _%g184330184394%_)) - (_%g184329184391%_ _%g184330184394%_)))) - (_%g184329184391%_ _%g184330184394%_)) - (_%g184329184391%_ _%g184330184394%_)) + (_%g187855187917%_ + _%g187856187920%_)) + (_%g187855187917%_ + _%g187856187920%_)))) + (_%g187855187917%_ + _%g187856187920%_)))) + (_%g187855187917%_ _%g187856187920%_)) + (_%g187855187917%_ _%g187856187920%_)))) + (_%g187855187917%_ _%g187856187920%_)) + (_%g187855187917%_ _%g187856187920%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g184329184391%_ - _%g184330184394%_)))) - (_%g184329184391%_ - _%g184330184394%_)))) - (_%g184329184391%_ _%g184330184394%_)) - (_%g184329184391%_ _%g184330184394%_)) - (_%g184329184391%_ _%g184330184394%_)))) - (_%g184329184391%_ _%g184330184394%_)))) + (_%g187855187917%_ + _%g187856187920%_)))) + (_%g187855187917%_ + _%g187856187920%_)))) + (_%g187855187917%_ _%g187856187920%_)) + (_%g187855187917%_ _%g187856187920%_)) + (_%g187855187917%_ _%g187856187920%_)))) + (_%g187855187917%_ _%g187856187920%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g184329184391%_ - _%g184330184394%_)))) - (_%g184329184391%_ - _%g184330184394%_)) - (_%g184329184391%_ _%g184330184394%_)) - (_%g184329184391%_ _%g184330184394%_)))) - (_%g184329184391%_ _%g184330184394%_))))) - (_%g184328185336%_ _%L184286%_))) + (_%g187855187917%_ + _%g187856187920%_)))) + (_%g187855187917%_ + _%g187856187920%_)) + (_%g187855187917%_ _%g187856187920%_)) + (_%g187855187917%_ _%g187856187920%_)))) + (_%g187855187917%_ _%g187856187920%_))))) + (_%g187854188856%_ _%g187644187812%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd184162184280%_ - _%hd184159184272%_ - _%hd184156184264%_ - _%hd184153184256%_ - _%hd184135184208%_) - (_%g184115184168%_ - _%g184116184171%_)))) - (_%g184115184168%_ - _%g184116184171%_)) - (_%g184115184168%_ _%g184116184171%_)) - (_%g184115184168%_ _%g184116184171%_)) - (_%g184115184168%_ _%g184116184171%_)))) - (_%g184115184168%_ _%g184116184171%_)) - (_%g184115184168%_ _%g184116184171%_)) - (_%g184115184168%_ _%g184116184171%_)))) + _%hd187688187806%_ + _%hd187685187798%_ + _%hd187682187790%_ + _%hd187679187782%_ + _%hd187661187734%_) + (_%g187641187694%_ + _%g187642187697%_)))) + (_%g187641187694%_ + _%g187642187697%_)) + (_%g187641187694%_ _%g187642187697%_)) + (_%g187641187694%_ _%g187642187697%_)) + (_%g187641187694%_ _%g187642187697%_)))) + (_%g187641187694%_ _%g187642187697%_)) + (_%g187641187694%_ _%g187642187697%_)) + (_%g187641187694%_ _%g187642187697%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g184115184168%_ - _%g184116184171%_)) - (_%g184115184168%_ - _%g184116184171%_)))) - (_%g184115184168%_ _%g184116184171%_)))) - (_%g184115184168%_ _%g184116184171%_)))) - (_%g184115184168%_ _%g184116184171%_)))) + (_%g187641187694%_ + _%g187642187697%_)) + (_%g187641187694%_ + _%g187642187697%_)))) + (_%g187641187694%_ _%g187642187697%_)))) + (_%g187641187694%_ _%g187642187697%_)))) + (_%g187641187694%_ _%g187642187697%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g184115184168%_ - _%g184116184171%_)) - (_%g184115184168%_ - _%g184116184171%_)) - (_%g184115184168%_ - _%g184116184171%_)))) - (_%g184115184168%_ _%g184116184171%_)))) - (_%g184115184168%_ _%g184116184171%_)) - (_%g184115184168%_ _%g184116184171%_)))) - (_%g184115184168%_ _%g184116184171%_)))) + (_%g187641187694%_ + _%g187642187697%_)) + (_%g187641187694%_ + _%g187642187697%_)) + (_%g187641187694%_ + _%g187642187697%_)))) + (_%g187641187694%_ _%g187642187697%_)))) + (_%g187641187694%_ _%g187642187697%_)) + (_%g187641187694%_ _%g187642187697%_)))) + (_%g187641187694%_ _%g187642187697%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g184115184168%_ - _%g184116184171%_)))) - (_%g184115184168%_ _%g184116184171%_)))) - (_%g184115184168%_ _%g184116184171%_)) - (_%g184115184168%_ _%g184116184171%_)) - (_%g184115184168%_ _%g184116184171%_)))) - (_%g184115184168%_ _%g184116184171%_))))) + (_%g187641187694%_ + _%g187642187697%_)))) + (_%g187641187694%_ _%g187642187697%_)))) + (_%g187641187694%_ _%g187642187697%_)) + (_%g187641187694%_ _%g187642187697%_)) + (_%g187641187694%_ _%g187642187697%_)))) + (_%g187641187694%_ _%g187642187697%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g184114185339%_ _%L182559%_)) - _%stx182487%_)))))))) - (_%__kont185573185574%_ (lambda () _%stx182487%_))) - (let ((_%__match185602185603%_ - (lambda (_%e182499182527%_ - _%hd182500182530%_ - _%tl182501182532%_ - _%e182502182535%_ - _%hd182503182538%_ - _%tl182504182540%_ - _%e182505182543%_ - _%hd182506182546%_ - _%tl182507182548%_ - _%e182508182551%_ - _%hd182509182554%_ - _%tl182510182556%_) - (let ((_%L182559%_ _%hd182509182554%_) - (_%L182560%_ _%hd182506182546%_)) - (if (let ((__tmp186807 + (_%g187640188859%_ + _%g186033186095%_)) + _%stx186023%_)))))))) + (_%__kont189086189087%_ (lambda () _%stx186023%_))) + (let ((_%__match189115189116%_ + (lambda (_%e186035186063%_ + _%hd186036186066%_ + _%tl186037186068%_ + _%e186038186071%_ + _%hd186039186074%_ + _%tl186040186076%_ + _%e186041186079%_ + _%hd186042186082%_ + _%tl186043186084%_ + _%e186044186087%_ + _%hd186045186090%_ + _%tl186046186092%_) + (let ((_%g186033186095%_ _%hd186045186090%_) + (_%g186034186096%_ _%hd186042186082%_)) + (if (let ((__tmp190320 (let () (declare (not safe)) - (gxc#identifier-symbol _%L182560%_)))) + (gxc#identifier-symbol + _%g186034186096%_)))) (declare (not safe)) - (gxc#optimizer-top-level-method? __tmp186807)) - (_%__kont185571185572%_ _%L182559%_ _%L182560%_) - (_%__kont185573185574%_)))))) + (gxc#optimizer-top-level-method? __tmp190320)) + (_%__kont189084189085%_ + _%g186033186095%_ + _%g186034186096%_) + (_%__kont189086189087%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx185569185570%_)) - (let ((_%e182499182527%_ + (gx#stx-pair? _%__stx189082189083%_)) + (let ((_%e186035186063%_ (let () (declare (not safe)) - (gx#stx-e _%__stx185569185570%_)))) - (let ((_%tl182501182532%_ + (gx#stx-e _%__stx189082189083%_)))) + (let ((_%tl186037186068%_ (let () (declare (not safe)) - (##cdr _%e182499182527%_))) - (_%hd182500182530%_ + (##cdr _%e186035186063%_))) + (_%hd186036186066%_ (let () (declare (not safe)) - (##car _%e182499182527%_)))) + (##car _%e186035186063%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182501182532%_)) - (let ((_%e182502182535%_ + (gx#stx-pair? _%tl186037186068%_)) + (let ((_%e186038186071%_ (let () (declare (not safe)) - (gx#stx-e _%tl182501182532%_)))) - (let ((_%tl182504182540%_ + (gx#stx-e _%tl186037186068%_)))) + (let ((_%tl186040186076%_ (let () (declare (not safe)) - (##cdr _%e182502182535%_))) - (_%hd182503182538%_ + (##cdr _%e186038186071%_))) + (_%hd186039186074%_ (let () (declare (not safe)) - (##car _%e182502182535%_)))) + (##car _%e186038186071%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182503182538%_)) - (let ((_%e182505182543%_ + (gx#stx-pair? _%hd186039186074%_)) + (let ((_%e186041186079%_ (let () (declare (not safe)) - (gx#stx-e _%hd182503182538%_)))) - (let ((_%tl182507182548%_ + (gx#stx-e _%hd186039186074%_)))) + (let ((_%tl186043186084%_ (let () (declare (not safe)) - (##cdr _%e182505182543%_))) - (_%hd182506182546%_ + (##cdr _%e186041186079%_))) + (_%hd186042186082%_ (let () (declare (not safe)) - (##car _%e182505182543%_)))) + (##car _%e186041186079%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182507182548%_)) + _%tl186043186084%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182504182540%_)) - (let ((_%e182508182551%_ + _%tl186040186076%_)) + (let ((_%e186044186087%_ (let () (declare (not safe)) (gx#stx-e - _%tl182504182540%_)))) - (let ((_%tl182510182556%_ + _%tl186040186076%_)))) + (let ((_%tl186046186092%_ (let () (declare (not safe)) - (##cdr _%e182508182551%_))) - (_%hd182509182554%_ + (##cdr _%e186044186087%_))) + (_%hd186045186090%_ (let () (declare (not safe)) - (##car _%e182508182551%_)))) + (##car _%e186044186087%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182510182556%_)) - (_%__match185602185603%_ - _%e182499182527%_ - _%hd182500182530%_ - _%tl182501182532%_ - _%e182502182535%_ - _%hd182503182538%_ - _%tl182504182540%_ - _%e182505182543%_ - _%hd182506182546%_ - _%tl182507182548%_ - _%e182508182551%_ - _%hd182509182554%_ - _%tl182510182556%_) - (_%__kont185573185574%_)))) - (_%__kont185573185574%_)) - (_%__kont185573185574%_)))) - (_%__kont185573185574%_)))) - (_%__kont185573185574%_)))) - (_%__kont185573185574%_)))))))) + _%tl186046186092%_)) + (_%__match189115189116%_ + _%e186035186063%_ + _%hd186036186066%_ + _%tl186037186068%_ + _%e186038186071%_ + _%hd186039186074%_ + _%tl186040186076%_ + _%e186041186079%_ + _%hd186042186082%_ + _%tl186043186084%_ + _%e186044186087%_ + _%hd186045186090%_ + _%tl186046186092%_) + (_%__kont189086189087%_)))) + (_%__kont189086189087%_)) + (_%__kont189086189087%_)))) + (_%__kont189086189087%_)))) + (_%__kont189086189087%_)))) + (_%__kont189086189087%_)))))))) (define gxc#extract-receiver-begin-annotation% - (lambda (_%self182339%_ _%stx182340%_) - (let* ((_%__stx185605185606%_ _%stx182340%_) - (_%g182343182376%_ + (lambda (_%self185875%_ _%stx185876%_) + (let* ((_%__stx189118189119%_ _%stx185876%_) + (_%g185879185912%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx185605185606%_))))) - (let ((_%__kont185607185608%_ (lambda (_%L182466%_) _%L182466%_)) - (_%__kont185609185610%_ - (lambda (_%L182405%_ _%L182406%_) + _%__stx189118189119%_))))) + (let ((_%__kont189120189121%_ + (lambda (_%g185881186002%_) _%g185881186002%_)) + (_%__kont189122189123%_ + (lambda (_%g185897185941%_ _%g185898185942%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self182339%_ _%L182405%_))))) + (gxc#compile-e__1 _%self185875%_ _%g185897185941%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx185605185606%_)) - (let ((_%e182346182426%_ + (gx#stx-pair? _%__stx189118189119%_)) + (let ((_%e185882185962%_ (let () (declare (not safe)) - (gx#stx-e _%__stx185605185606%_)))) - (let ((_%tl182348182431%_ + (gx#stx-e _%__stx189118189119%_)))) + (let ((_%tl185884185967%_ (let () (declare (not safe)) - (##cdr _%e182346182426%_))) - (_%hd182347182429%_ + (##cdr _%e185882185962%_))) + (_%hd185883185965%_ (let () (declare (not safe)) - (##car _%e182346182426%_)))) + (##car _%e185882185962%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182348182431%_)) - (let ((_%e182349182434%_ + (gx#stx-pair? _%tl185884185967%_)) + (let ((_%e185885185970%_ (let () (declare (not safe)) - (gx#stx-e _%tl182348182431%_)))) - (let ((_%tl182351182439%_ + (gx#stx-e _%tl185884185967%_)))) + (let ((_%tl185887185975%_ (let () (declare (not safe)) - (##cdr _%e182349182434%_))) - (_%hd182350182437%_ + (##cdr _%e185885185970%_))) + (_%hd185886185973%_ (let () (declare (not safe)) - (##car _%e182349182434%_)))) + (##car _%e185885185970%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182350182437%_)) - (let ((_%e182352182442%_ + (gx#stx-pair? _%hd185886185973%_)) + (let ((_%e185888185978%_ (let () (declare (not safe)) - (gx#stx-e _%hd182350182437%_)))) - (let ((_%tl182354182447%_ + (gx#stx-e _%hd185886185973%_)))) + (let ((_%tl185890185983%_ (let () (declare (not safe)) - (##cdr _%e182352182442%_))) - (_%hd182353182445%_ + (##cdr _%e185888185978%_))) + (_%hd185889185981%_ (let () (declare (not safe)) - (##car _%e182352182442%_)))) + (##car _%e185888185978%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182353182445%_)) + (gx#identifier? _%hd185889185981%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@receiver - _%hd182353182445%_)) + _%hd185889185981%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182354182447%_)) - (let ((_%e182355182450%_ + _%tl185890185983%_)) + (let ((_%e185891185986%_ (let () (declare (not safe)) (gx#stx-e - _%tl182354182447%_)))) - (let ((_%tl182357182455%_ + _%tl185890185983%_)))) + (let ((_%tl185893185991%_ (let () (declare (not safe)) - (##cdr _%e182355182450%_))) - (_%hd182356182453%_ + (##cdr _%e185891185986%_))) + (_%hd185892185989%_ (let () (declare (not safe)) - (##car _%e182355182450%_)))) + (##car _%e185891185986%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182357182455%_)) + _%tl185893185991%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182351182439%_)) - (let ((_%e182358182458%_ + _%tl185887185975%_)) + (let ((_%e185894185994%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl182351182439%_)))) - (let ((_%tl182360182463%_ + (gx#stx-e _%tl185887185975%_)))) + (let ((_%tl185896185999%_ (let () (declare (not safe)) - (##cdr _%e182358182458%_))) - (_%hd182359182461%_ + (##cdr _%e185894185994%_))) + (_%hd185895185997%_ (let () (declare (not safe)) - (##car _%e182358182458%_)))) + (##car _%e185894185994%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182360182463%_)) - (_%__kont185607185608%_ _%hd182356182453%_) + (gx#stx-null? _%tl185896185999%_)) + (_%__kont189120189121%_ _%hd185892185989%_) (let () (declare (not safe)) - (_%g182343182376%_))))) - (let () (declare (not safe)) (_%g182343182376%_))) + (_%g185879185912%_))))) + (let () (declare (not safe)) (_%g185879185912%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182351182439%_)) - (let ((_%e182369182397%_ + (gx#stx-pair? _%tl185887185975%_)) + (let ((_%e185905185933%_ (let () (declare (not safe)) - (gx#stx-e _%tl182351182439%_)))) - (let ((_%tl182371182402%_ + (gx#stx-e _%tl185887185975%_)))) + (let ((_%tl185907185938%_ (let () (declare (not safe)) - (##cdr _%e182369182397%_))) - (_%hd182370182400%_ + (##cdr _%e185905185933%_))) + (_%hd185906185936%_ (let () (declare (not safe)) - (##car _%e182369182397%_)))) + (##car _%e185905185933%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182371182402%_)) - (_%__kont185609185610%_ - _%hd182370182400%_ - _%hd182350182437%_) + (gx#stx-null? _%tl185907185938%_)) + (_%__kont189122189123%_ + _%hd185906185936%_ + _%hd185886185973%_) (let () (declare (not safe)) - (_%g182343182376%_))))) - (let () (declare (not safe)) (_%g182343182376%_)))))) + (_%g185879185912%_))))) + (let () (declare (not safe)) (_%g185879185912%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182351182439%_)) - (let ((_%e182369182397%_ + _%tl185887185975%_)) + (let ((_%e185905185933%_ (let () (declare (not safe)) (gx#stx-e - _%tl182351182439%_)))) - (let ((_%tl182371182402%_ + _%tl185887185975%_)))) + (let ((_%tl185907185938%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e182369182397%_))) - (_%hd182370182400%_ - (let () (declare (not safe)) (##car _%e182369182397%_)))) + (##cdr _%e185905185933%_))) + (_%hd185906185936%_ + (let () (declare (not safe)) (##car _%e185905185933%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182371182402%_)) - (_%__kont185609185610%_ - _%hd182370182400%_ - _%hd182350182437%_) - (let () (declare (not safe)) (_%g182343182376%_))))) + (gx#stx-null? _%tl185907185938%_)) + (_%__kont189122189123%_ + _%hd185906185936%_ + _%hd185886185973%_) + (let () (declare (not safe)) (_%g185879185912%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g182343182376%_)))) + (_%g185879185912%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182351182439%_)) - (let ((_%e182369182397%_ + _%tl185887185975%_)) + (let ((_%e185905185933%_ (let () (declare (not safe)) (gx#stx-e - _%tl182351182439%_)))) - (let ((_%tl182371182402%_ + _%tl185887185975%_)))) + (let ((_%tl185907185938%_ (let () (declare (not safe)) - (##cdr _%e182369182397%_))) - (_%hd182370182400%_ + (##cdr _%e185905185933%_))) + (_%hd185906185936%_ (let () (declare (not safe)) - (##car _%e182369182397%_)))) + (##car _%e185905185933%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182371182402%_)) - (_%__kont185609185610%_ - _%hd182370182400%_ - _%hd182350182437%_) + _%tl185907185938%_)) + (_%__kont189122189123%_ + _%hd185906185936%_ + _%hd185886185973%_) (let () (declare (not safe)) - (_%g182343182376%_))))) + (_%g185879185912%_))))) (let () (declare (not safe)) - (_%g182343182376%_)))) + (_%g185879185912%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182351182439%_)) - (let ((_%e182369182397%_ + _%tl185887185975%_)) + (let ((_%e185905185933%_ (let () (declare (not safe)) (gx#stx-e - _%tl182351182439%_)))) - (let ((_%tl182371182402%_ + _%tl185887185975%_)))) + (let ((_%tl185907185938%_ (let () (declare (not safe)) - (##cdr _%e182369182397%_))) - (_%hd182370182400%_ + (##cdr _%e185905185933%_))) + (_%hd185906185936%_ (let () (declare (not safe)) - (##car _%e182369182397%_)))) + (##car _%e185905185933%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182371182402%_)) - (_%__kont185609185610%_ - _%hd182370182400%_ - _%hd182350182437%_) + _%tl185907185938%_)) + (_%__kont189122189123%_ + _%hd185906185936%_ + _%hd185886185973%_) (let () (declare (not safe)) - (_%g182343182376%_))))) + (_%g185879185912%_))))) (let () (declare (not safe)) - (_%g182343182376%_)))))) + (_%g185879185912%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182351182439%_)) - (let ((_%e182369182397%_ + (gx#stx-pair? _%tl185887185975%_)) + (let ((_%e185905185933%_ (let () (declare (not safe)) - (gx#stx-e _%tl182351182439%_)))) - (let ((_%tl182371182402%_ + (gx#stx-e _%tl185887185975%_)))) + (let ((_%tl185907185938%_ (let () (declare (not safe)) - (##cdr _%e182369182397%_))) - (_%hd182370182400%_ + (##cdr _%e185905185933%_))) + (_%hd185906185936%_ (let () (declare (not safe)) - (##car _%e182369182397%_)))) + (##car _%e185905185933%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182371182402%_)) - (_%__kont185609185610%_ - _%hd182370182400%_ - _%hd182350182437%_) + _%tl185907185938%_)) + (_%__kont189122189123%_ + _%hd185906185936%_ + _%hd185886185973%_) (let () (declare (not safe)) - (_%g182343182376%_))))) + (_%g185879185912%_))))) (let () (declare (not safe)) - (_%g182343182376%_)))))) - (let () (declare (not safe)) (_%g182343182376%_))))) - (let () (declare (not safe)) (_%g182343182376%_))))))) + (_%g185879185912%_)))))) + (let () (declare (not safe)) (_%g185879185912%_))))) + (let () (declare (not safe)) (_%g185879185912%_))))))) (define gxc#extract-receiver-if% - (lambda (_%self182255%_ _%stx182256%_) - (let* ((_%g182258182279%_ - (lambda (_%g182259182276%_) + (lambda (_%self185791%_ _%stx185792%_) + (let* ((_%g185794185815%_ + (lambda (_%g185795185812%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g182259182276%_)))) - (_%g182257182336%_ - (lambda (_%g182259182282%_) + _%g185795185812%_)))) + (_%g185793185872%_ + (lambda (_%g185795185818%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g182259182282%_)) - (let ((_%e182263182284%_ + (gx#stx-pair? _%g185795185818%_)) + (let ((_%e185799185820%_ (let () (declare (not safe)) - (gx#stx-e _%g182259182282%_)))) - (let ((_%hd182264182287%_ + (gx#stx-e _%g185795185818%_)))) + (let ((_%hd185800185823%_ (let () (declare (not safe)) - (##car _%e182263182284%_))) - (_%tl182265182289%_ + (##car _%e185799185820%_))) + (_%tl185801185825%_ (let () (declare (not safe)) - (##cdr _%e182263182284%_)))) + (##cdr _%e185799185820%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182265182289%_)) - (let ((_%e182266182292%_ + (gx#stx-pair? _%tl185801185825%_)) + (let ((_%e185802185828%_ (let () (declare (not safe)) - (gx#stx-e _%tl182265182289%_)))) - (let ((_%hd182267182295%_ + (gx#stx-e _%tl185801185825%_)))) + (let ((_%hd185803185831%_ (let () (declare (not safe)) - (##car _%e182266182292%_))) - (_%tl182268182297%_ + (##car _%e185802185828%_))) + (_%tl185804185833%_ (let () (declare (not safe)) - (##cdr _%e182266182292%_)))) + (##cdr _%e185802185828%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182268182297%_)) - (let ((_%e182269182300%_ + (gx#stx-pair? _%tl185804185833%_)) + (let ((_%e185805185836%_ (let () (declare (not safe)) - (gx#stx-e _%tl182268182297%_)))) - (let ((_%hd182270182303%_ + (gx#stx-e _%tl185804185833%_)))) + (let ((_%hd185806185839%_ (let () (declare (not safe)) - (##car _%e182269182300%_))) - (_%tl182271182305%_ + (##car _%e185805185836%_))) + (_%tl185807185841%_ (let () (declare (not safe)) - (##cdr _%e182269182300%_)))) + (##cdr _%e185805185836%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182271182305%_)) - (let ((_%e182272182308%_ + _%tl185807185841%_)) + (let ((_%e185808185844%_ (let () (declare (not safe)) (gx#stx-e - _%tl182271182305%_)))) - (let ((_%hd182273182311%_ + _%tl185807185841%_)))) + (let ((_%hd185809185847%_ (let () (declare (not safe)) - (##car _%e182272182308%_))) - (_%tl182274182313%_ + (##car _%e185808185844%_))) + (_%tl185810185849%_ (let () (declare (not safe)) - (##cdr _%e182272182308%_)))) + (##cdr _%e185808185844%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182274182313%_)) - ((lambda (_%L182316%_ - _%L182317%_ - _%L182318%_) + _%tl185810185849%_)) + ((lambda (_%g185796185852%_ + _%g185797185853%_ + _%g185798185854%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self182255%_ - _%L182317%_))) - _%hd182273182311%_ - _%hd182270182303%_ - _%hd182267182295%_) - (_%g182258182279%_ - _%g182259182282%_)))) - (_%g182258182279%_ - _%g182259182282%_)))) - (_%g182258182279%_ _%g182259182282%_)))) - (_%g182258182279%_ _%g182259182282%_)))) - (_%g182258182279%_ _%g182259182282%_))))) - (_%g182257182336%_ _%stx182256%_)))) + _%self185791%_ + _%g185797185853%_))) + _%hd185809185847%_ + _%hd185806185839%_ + _%hd185803185831%_) + (_%g185794185815%_ + _%g185795185818%_)))) + (_%g185794185815%_ + _%g185795185818%_)))) + (_%g185794185815%_ _%g185795185818%_)))) + (_%g185794185815%_ _%g185795185818%_)))) + (_%g185794185815%_ _%g185795185818%_))))) + (_%g185793185872%_ _%stx185792%_)))) (define gxc#collect-object-refs-call% - (lambda (_%self181216%_ _%stx181217%_) - (let* ((_%__stx185671185672%_ _%stx181217%_) - (_%g181225181447%_ + (lambda (_%self184756%_ _%stx184757%_) + (let* ((_%__stx189184189185%_ _%stx184757%_) + (_%g184765184987%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx185671185672%_))))) - (let ((_%__kont185673185674%_ - (lambda (_%L182204%_ _%L182205%_ _%L182206%_ _%L182207%_) - (let ((__tmp186809 + _%__stx189184189185%_))))) + (let ((_%__kont189186189187%_ + (lambda (_%g184767185740%_ + _%g184768185741%_ + _%g184769185742%_ + _%g184770185743%_) + (let ((__tmp190322 (let () (declare (not safe)) - (slot-ref__0 _%self181216%_ 'methods))) - (__tmp186808 + (slot-ref__0 _%self184756%_ 'methods))) + (__tmp190321 (let () (declare (not safe)) - (gx#stx-e _%L182205%_)))) + (gx#stx-e _%g184768185741%_)))) (declare (not safe)) - (hash-put! __tmp186809 __tmp186808 '#t)) + (hash-put! __tmp190322 __tmp190321 '#t)) (for-each - (lambda (_%g182240182242%_) + (lambda (_%g185776185778%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self181216%_ _%g182240182242%_))) - (let ((__tmp186810 - (lambda (_%g182244182247%_ _%g182245182249%_) - (cons _%g182244182247%_ _%g182245182249%_)))) + (gxc#compile-e__1 _%self184756%_ _%g185776185778%_))) + (let ((__tmp190323 + (lambda (_%g185780185783%_ _%g185781185785%_) + (cons _%g185780185783%_ _%g185781185785%_)))) (declare (not safe)) - (__foldr1 __tmp186810 '() _%L182204%_))))) - (_%__kont185677185678%_ - (lambda (_%L182039%_ - _%L182040%_ - _%L182041%_ - _%L182042%_ - _%L182043%_) - (let ((__tmp186812 + (__foldr1 __tmp190323 '() _%g184767185740%_))))) + (_%__kont189190189191%_ + (lambda (_%g184810185577%_ + _%g184811185578%_ + _%g184812185579%_ + _%g184813185580%_ + _%g184814185581%_) + (let ((__tmp190325 (let () (declare (not safe)) - (slot-ref__0 _%self181216%_ 'methods))) - (__tmp186811 + (slot-ref__0 _%self184756%_ 'methods))) + (__tmp190324 (let () (declare (not safe)) - (gx#stx-e _%L182040%_)))) + (gx#stx-e _%g184811185578%_)))) (declare (not safe)) - (hash-put! __tmp186812 __tmp186811 '#t)) + (hash-put! __tmp190325 __tmp190324 '#t)) (for-each - (lambda (_%g182083182085%_) + (lambda (_%g185621185623%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self181216%_ _%g182083182085%_))) - (let ((__tmp186813 - (lambda (_%g182087182090%_ _%g182088182092%_) - (cons _%g182087182090%_ _%g182088182092%_)))) + (gxc#compile-e__1 _%self184756%_ _%g185621185623%_))) + (let ((__tmp190326 + (lambda (_%g185625185628%_ _%g185626185630%_) + (cons _%g185625185628%_ _%g185626185630%_)))) (declare (not safe)) - (__foldr1 __tmp186813 '() _%L182039%_))))) - (_%__kont185681185682%_ - (lambda (_%L181872%_ _%L181873%_ _%L181874%_) - (let ((__tmp186815 + (__foldr1 __tmp190326 '() _%g184810185577%_))))) + (_%__kont189194189195%_ + (lambda (_%g184863185412%_ + _%g184864185413%_ + _%g184865185414%_) + (let ((__tmp190328 (let () (declare (not safe)) - (slot-ref__0 _%self181216%_ 'slots))) - (__tmp186814 + (slot-ref__0 _%self184756%_ 'slots))) + (__tmp190327 (let () (declare (not safe)) - (gx#stx-e _%L181872%_)))) + (gx#stx-e _%g184863185412%_)))) (declare (not safe)) - (hash-put! __tmp186815 __tmp186814 '#t)))) - (_%__kont185683185684%_ - (lambda (_%L181749%_ _%L181750%_ _%L181751%_ _%L181752%_) - (let ((__tmp186817 + (hash-put! __tmp190328 __tmp190327 '#t)))) + (_%__kont189196189197%_ + (lambda (_%g184896185289%_ + _%g184897185290%_ + _%g184898185291%_ + _%g184899185292%_) + (let ((__tmp190330 (let () (declare (not safe)) - (slot-ref__0 _%self181216%_ 'slots))) - (__tmp186816 + (slot-ref__0 _%self184756%_ 'slots))) + (__tmp190329 (let () (declare (not safe)) - (gx#stx-e _%L181750%_)))) + (gx#stx-e _%g184897185290%_)))) (declare (not safe)) - (hash-put! __tmp186817 __tmp186816 '#t)) + (hash-put! __tmp190330 __tmp190329 '#t)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self181216%_ _%L181749%_)))) - (_%__kont185685185686%_ - (lambda (_%L181623%_ _%L181624%_) - (let* ((_%accessor181646%_ - (let ((__tmp186818 + (gxc#compile-e__1 _%self184756%_ _%g184896185289%_)))) + (_%__kont189198189199%_ + (lambda (_%g184933185163%_ _%g184934185164%_) + (let* ((_%accessor185186%_ + (let ((__tmp190331 (let () (declare (not safe)) - (gxc#identifier-symbol _%L181624%_)))) + (gxc#identifier-symbol + _%g184934185164%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp186818))) - (_%klass181648%_ - (let ((__tmp186819 + (gxc#optimizer-resolve-type __tmp190331))) + (_%klass185188%_ + (let ((__tmp190332 (##structure-ref - _%accessor181646%_ + _%accessor185186%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx181217%_ - __tmp186819))) - (_%slot181650%_ + _%stx184757%_ + __tmp190332))) + (_%slot185190%_ (##structure-ref - _%accessor181646%_ + _%accessor185186%_ '3 gxc#!accessor::t '#f))) (if (if (##structure-ref - _%accessor181646%_ + _%accessor185186%_ '4 gxc#!accessor::t '#f) @@ -4898,56 +4936,59 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass181648%_ - _%slot181650%_)) + _%klass185188%_ + _%slot185190%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass181648%_ + _%klass185188%_ '8 '#f '#f)))) '#!void - (let ((__tmp186821 + (let ((__tmp190334 (let () (declare (not safe)) - (slot-ref__0 _%self181216%_ 'slots))) - (__tmp186820 + (slot-ref__0 _%self184756%_ 'slots))) + (__tmp190333 (##structure-ref - _%accessor181646%_ + _%accessor185186%_ '3 gxc#!accessor::t '#f))) (declare (not safe)) - (hash-put! __tmp186821 __tmp186820 '#t)))))) - (_%__kont185687185688%_ - (lambda (_%L181523%_ _%L181524%_ _%L181525%_) - (let* ((_%mutator181552%_ - (let ((__tmp186822 + (hash-put! __tmp190334 __tmp190333 '#t)))))) + (_%__kont189200189201%_ + (lambda (_%g184956185063%_ + _%g184957185064%_ + _%g184958185065%_) + (let* ((_%mutator185092%_ + (let ((__tmp190335 (let () (declare (not safe)) - (gxc#identifier-symbol _%L181525%_)))) + (gxc#identifier-symbol + _%g184958185065%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp186822))) - (_%klass181554%_ - (let ((__tmp186823 + (gxc#optimizer-resolve-type __tmp190335))) + (_%klass185094%_ + (let ((__tmp190336 (##structure-ref - _%mutator181552%_ + _%mutator185092%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx181217%_ - __tmp186823))) - (_%slot181556%_ + _%stx184757%_ + __tmp190336))) + (_%slot185096%_ (##structure-ref - _%mutator181552%_ + _%mutator185092%_ '3 gxc#!mutator::t '#f))) (if (if (##structure-ref - _%mutator181552%_ + _%mutator185092%_ '4 gxc#!mutator::t '#f) @@ -4955,2066 +4996,2092 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass181554%_ - _%slot181556%_)) + _%klass185094%_ + _%slot185096%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass181554%_ + _%klass185094%_ '8 '#f '#f)))) '#!void - (let ((__tmp186824 + (let ((__tmp190337 (let () (declare (not safe)) - (slot-ref__0 _%self181216%_ 'slots)))) + (slot-ref__0 _%self184756%_ 'slots)))) (declare (not safe)) - (hash-put! __tmp186824 _%slot181556%_ '#t))) + (hash-put! __tmp190337 _%slot185096%_ '#t))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self181216%_ _%L181523%_))))) - (_%__kont185689185690%_ + (gxc#compile-e__1 _%self184756%_ _%g184956185063%_))))) + (_%__kont189202189203%_ (lambda () (let () (declare (not safe)) - (gxc#apply-operands _%self181216%_ _%stx181217%_))))) - (let* ((_%__match186170186171%_ - (lambda (_%e181419181459%_ - _%hd181420181462%_ - _%tl181421181464%_ - _%e181422181467%_ - _%hd181423181470%_ - _%tl181424181472%_ - _%e181425181475%_ - _%hd181426181478%_ - _%tl181427181480%_ - _%e181428181483%_ - _%hd181429181486%_ - _%tl181430181488%_ - _%e181431181491%_ - _%hd181432181494%_ - _%tl181433181496%_ - _%e181434181499%_ - _%hd181435181502%_ - _%tl181436181504%_ - _%e181437181507%_ - _%hd181438181510%_ - _%tl181439181512%_ - _%e181440181515%_ - _%hd181441181518%_ - _%tl181442181520%_) - (let ((_%L181523%_ _%hd181441181518%_) - (_%L181524%_ _%hd181438181510%_) - (_%L181525%_ _%hd181429181486%_)) - (if (and (let ((__tmp186825 - (let ((__tmp186826 + (gxc#apply-operands _%self184756%_ _%stx184757%_))))) + (let* ((_%__match189683189684%_ + (lambda (_%e184959184999%_ + _%hd184960185002%_ + _%tl184961185004%_ + _%e184962185007%_ + _%hd184963185010%_ + _%tl184964185012%_ + _%e184965185015%_ + _%hd184966185018%_ + _%tl184967185020%_ + _%e184968185023%_ + _%hd184969185026%_ + _%tl184970185028%_ + _%e184971185031%_ + _%hd184972185034%_ + _%tl184973185036%_ + _%e184974185039%_ + _%hd184975185042%_ + _%tl184976185044%_ + _%e184977185047%_ + _%hd184978185050%_ + _%tl184979185052%_ + _%e184980185055%_ + _%hd184981185058%_ + _%tl184982185060%_) + (let ((_%g184956185063%_ _%hd184981185058%_) + (_%g184957185064%_ _%hd184978185050%_) + (_%g184958185065%_ _%hd184969185026%_)) + (if (and (let ((__tmp190338 + (let ((__tmp190339 (let () (declare (not safe)) (gxc#identifier-symbol - _%L181525%_)))) + _%g184958185065%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp186826)))) + __tmp190339)))) (declare (not safe)) (##structure-instance-of? - __tmp186825 + __tmp190338 'gxc#!mutator::t)) - (let ((__tmp186827 + (let ((__tmp190340 (let () (declare (not safe)) (slot-ref__0 - _%self181216%_ + _%self184756%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L181524%_ - __tmp186827))) - (_%__kont185687185688%_ - _%L181523%_ - _%L181524%_ - _%L181525%_) - (_%__kont185689185690%_))))) - (_%__match186168186169%_ - (lambda (_%e181419181459%_ - _%hd181420181462%_ - _%tl181421181464%_ - _%e181422181467%_ - _%hd181423181470%_ - _%tl181424181472%_ - _%e181425181475%_ - _%hd181426181478%_ - _%tl181427181480%_ - _%e181428181483%_ - _%hd181429181486%_ - _%tl181430181488%_ - _%e181431181491%_ - _%hd181432181494%_ - _%tl181433181496%_ - _%e181434181499%_ - _%hd181435181502%_ - _%tl181436181504%_ - _%e181437181507%_ - _%hd181438181510%_ - _%tl181439181512%_ - _%e181440181515%_ - _%hd181441181518%_ - _%tl181442181520%_) + _%g184957185064%_ + __tmp190340))) + (_%__kont189200189201%_ + _%g184956185063%_ + _%g184957185064%_ + _%g184958185065%_) + (_%__kont189202189203%_))))) + (_%__match189681189682%_ + (lambda (_%e184959184999%_ + _%hd184960185002%_ + _%tl184961185004%_ + _%e184962185007%_ + _%hd184963185010%_ + _%tl184964185012%_ + _%e184965185015%_ + _%hd184966185018%_ + _%tl184967185020%_ + _%e184968185023%_ + _%hd184969185026%_ + _%tl184970185028%_ + _%e184971185031%_ + _%hd184972185034%_ + _%tl184973185036%_ + _%e184974185039%_ + _%hd184975185042%_ + _%tl184976185044%_ + _%e184977185047%_ + _%hd184978185050%_ + _%tl184979185052%_ + _%e184980185055%_ + _%hd184981185058%_ + _%tl184982185060%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181442181520%_)) - (_%__match186170186171%_ - _%e181419181459%_ - _%hd181420181462%_ - _%tl181421181464%_ - _%e181422181467%_ - _%hd181423181470%_ - _%tl181424181472%_ - _%e181425181475%_ - _%hd181426181478%_ - _%tl181427181480%_ - _%e181428181483%_ - _%hd181429181486%_ - _%tl181430181488%_ - _%e181431181491%_ - _%hd181432181494%_ - _%tl181433181496%_ - _%e181434181499%_ - _%hd181435181502%_ - _%tl181436181504%_ - _%e181437181507%_ - _%hd181438181510%_ - _%tl181439181512%_ - _%e181440181515%_ - _%hd181441181518%_ - _%tl181442181520%_) - (_%__kont185689185690%_)))) - (_%__match186162186163%_ - (lambda (_%e181419181459%_ - _%hd181420181462%_ - _%tl181421181464%_ - _%e181422181467%_ - _%hd181423181470%_ - _%tl181424181472%_ - _%e181425181475%_ - _%hd181426181478%_ - _%tl181427181480%_ - _%e181428181483%_ - _%hd181429181486%_ - _%tl181430181488%_ - _%e181431181491%_ - _%hd181432181494%_ - _%tl181433181496%_ - _%e181434181499%_ - _%hd181435181502%_ - _%tl181436181504%_ - _%e181437181507%_ - _%hd181438181510%_ - _%tl181439181512%_) + (gx#stx-null? _%tl184982185060%_)) + (_%__match189683189684%_ + _%e184959184999%_ + _%hd184960185002%_ + _%tl184961185004%_ + _%e184962185007%_ + _%hd184963185010%_ + _%tl184964185012%_ + _%e184965185015%_ + _%hd184966185018%_ + _%tl184967185020%_ + _%e184968185023%_ + _%hd184969185026%_ + _%tl184970185028%_ + _%e184971185031%_ + _%hd184972185034%_ + _%tl184973185036%_ + _%e184974185039%_ + _%hd184975185042%_ + _%tl184976185044%_ + _%e184977185047%_ + _%hd184978185050%_ + _%tl184979185052%_ + _%e184980185055%_ + _%hd184981185058%_ + _%tl184982185060%_) + (_%__kont189202189203%_)))) + (_%__match189675189676%_ + (lambda (_%e184959184999%_ + _%hd184960185002%_ + _%tl184961185004%_ + _%e184962185007%_ + _%hd184963185010%_ + _%tl184964185012%_ + _%e184965185015%_ + _%hd184966185018%_ + _%tl184967185020%_ + _%e184968185023%_ + _%hd184969185026%_ + _%tl184970185028%_ + _%e184971185031%_ + _%hd184972185034%_ + _%tl184973185036%_ + _%e184974185039%_ + _%hd184975185042%_ + _%tl184976185044%_ + _%e184977185047%_ + _%hd184978185050%_ + _%tl184979185052%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181433181496%_)) - (let ((_%e181440181515%_ + (gx#stx-pair? _%tl184973185036%_)) + (let ((_%e184980185055%_ (let () (declare (not safe)) - (gx#stx-e _%tl181433181496%_)))) - (let ((_%tl181442181520%_ + (gx#stx-e _%tl184973185036%_)))) + (let ((_%tl184982185060%_ (let () (declare (not safe)) - (##cdr _%e181440181515%_))) - (_%hd181441181518%_ + (##cdr _%e184980185055%_))) + (_%hd184981185058%_ (let () (declare (not safe)) - (##car _%e181440181515%_)))) + (##car _%e184980185055%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181442181520%_)) - (_%__match186170186171%_ - _%e181419181459%_ - _%hd181420181462%_ - _%tl181421181464%_ - _%e181422181467%_ - _%hd181423181470%_ - _%tl181424181472%_ - _%e181425181475%_ - _%hd181426181478%_ - _%tl181427181480%_ - _%e181428181483%_ - _%hd181429181486%_ - _%tl181430181488%_ - _%e181431181491%_ - _%hd181432181494%_ - _%tl181433181496%_ - _%e181434181499%_ - _%hd181435181502%_ - _%tl181436181504%_ - _%e181437181507%_ - _%hd181438181510%_ - _%tl181439181512%_ - _%e181440181515%_ - _%hd181441181518%_ - _%tl181442181520%_) - (_%__kont185689185690%_)))) - (_%__kont185689185690%_)))) - (_%__match186108186109%_ - (lambda (_%e181395181567%_ - _%hd181396181570%_ - _%tl181397181572%_ - _%e181398181575%_ - _%hd181399181578%_ - _%tl181400181580%_ - _%e181401181583%_ - _%hd181402181586%_ - _%tl181403181588%_ - _%e181404181591%_ - _%hd181405181594%_ - _%tl181406181596%_ - _%e181407181599%_ - _%hd181408181602%_ - _%tl181409181604%_ - _%e181410181607%_ - _%hd181411181610%_ - _%tl181412181612%_ - _%e181413181615%_ - _%hd181414181618%_ - _%tl181415181620%_) - (let ((_%L181623%_ _%hd181414181618%_) - (_%L181624%_ _%hd181405181594%_)) - (if (and (let ((__tmp186828 - (let ((__tmp186829 + (gx#stx-null? _%tl184982185060%_)) + (_%__match189683189684%_ + _%e184959184999%_ + _%hd184960185002%_ + _%tl184961185004%_ + _%e184962185007%_ + _%hd184963185010%_ + _%tl184964185012%_ + _%e184965185015%_ + _%hd184966185018%_ + _%tl184967185020%_ + _%e184968185023%_ + _%hd184969185026%_ + _%tl184970185028%_ + _%e184971185031%_ + _%hd184972185034%_ + _%tl184973185036%_ + _%e184974185039%_ + _%hd184975185042%_ + _%tl184976185044%_ + _%e184977185047%_ + _%hd184978185050%_ + _%tl184979185052%_ + _%e184980185055%_ + _%hd184981185058%_ + _%tl184982185060%_) + (_%__kont189202189203%_)))) + (_%__kont189202189203%_)))) + (_%__match189621189622%_ + (lambda (_%e184935185107%_ + _%hd184936185110%_ + _%tl184937185112%_ + _%e184938185115%_ + _%hd184939185118%_ + _%tl184940185120%_ + _%e184941185123%_ + _%hd184942185126%_ + _%tl184943185128%_ + _%e184944185131%_ + _%hd184945185134%_ + _%tl184946185136%_ + _%e184947185139%_ + _%hd184948185142%_ + _%tl184949185144%_ + _%e184950185147%_ + _%hd184951185150%_ + _%tl184952185152%_ + _%e184953185155%_ + _%hd184954185158%_ + _%tl184955185160%_) + (let ((_%g184933185163%_ _%hd184954185158%_) + (_%g184934185164%_ _%hd184945185134%_)) + (if (and (let ((__tmp190341 + (let ((__tmp190342 (let () (declare (not safe)) (gxc#identifier-symbol - _%L181624%_)))) + _%g184934185164%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp186829)))) + __tmp190342)))) (declare (not safe)) (##structure-instance-of? - __tmp186828 + __tmp190341 'gxc#!accessor::t)) - (let ((__tmp186830 + (let ((__tmp190343 (let () (declare (not safe)) (slot-ref__0 - _%self181216%_ + _%self184756%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L181623%_ - __tmp186830))) - (_%__kont185685185686%_ _%L181623%_ _%L181624%_) - (_%__kont185689185690%_))))) - (_%__match186106186107%_ - (lambda (_%e181395181567%_ - _%hd181396181570%_ - _%tl181397181572%_ - _%e181398181575%_ - _%hd181399181578%_ - _%tl181400181580%_ - _%e181401181583%_ - _%hd181402181586%_ - _%tl181403181588%_ - _%e181404181591%_ - _%hd181405181594%_ - _%tl181406181596%_ - _%e181407181599%_ - _%hd181408181602%_ - _%tl181409181604%_ - _%e181410181607%_ - _%hd181411181610%_ - _%tl181412181612%_ - _%e181413181615%_ - _%hd181414181618%_ - _%tl181415181620%_) + _%g184933185163%_ + __tmp190343))) + (_%__kont189198189199%_ + _%g184933185163%_ + _%g184934185164%_) + (_%__kont189202189203%_))))) + (_%__match189619189620%_ + (lambda (_%e184935185107%_ + _%hd184936185110%_ + _%tl184937185112%_ + _%e184938185115%_ + _%hd184939185118%_ + _%tl184940185120%_ + _%e184941185123%_ + _%hd184942185126%_ + _%tl184943185128%_ + _%e184944185131%_ + _%hd184945185134%_ + _%tl184946185136%_ + _%e184947185139%_ + _%hd184948185142%_ + _%tl184949185144%_ + _%e184950185147%_ + _%hd184951185150%_ + _%tl184952185152%_ + _%e184953185155%_ + _%hd184954185158%_ + _%tl184955185160%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181409181604%_)) - (_%__match186108186109%_ - _%e181395181567%_ - _%hd181396181570%_ - _%tl181397181572%_ - _%e181398181575%_ - _%hd181399181578%_ - _%tl181400181580%_ - _%e181401181583%_ - _%hd181402181586%_ - _%tl181403181588%_ - _%e181404181591%_ - _%hd181405181594%_ - _%tl181406181596%_ - _%e181407181599%_ - _%hd181408181602%_ - _%tl181409181604%_ - _%e181410181607%_ - _%hd181411181610%_ - _%tl181412181612%_ - _%e181413181615%_ - _%hd181414181618%_ - _%tl181415181620%_) - (_%__match186162186163%_ - _%e181395181567%_ - _%hd181396181570%_ - _%tl181397181572%_ - _%e181398181575%_ - _%hd181399181578%_ - _%tl181400181580%_ - _%e181401181583%_ - _%hd181402181586%_ - _%tl181403181588%_ - _%e181404181591%_ - _%hd181405181594%_ - _%tl181406181596%_ - _%e181407181599%_ - _%hd181408181602%_ - _%tl181409181604%_ - _%e181410181607%_ - _%hd181411181610%_ - _%tl181412181612%_ - _%e181413181615%_ - _%hd181414181618%_ - _%tl181415181620%_)))) - (_%__match186052186053%_ - (lambda (_%e181360181661%_ - _%hd181361181664%_ - _%tl181362181666%_ - _%e181363181669%_ - _%hd181364181672%_ - _%tl181365181674%_ - _%e181366181677%_ - _%hd181367181680%_ - _%tl181368181682%_ - _%e181369181685%_ - _%hd181370181688%_ - _%tl181371181690%_ - _%e181372181693%_ - _%hd181373181696%_ - _%tl181374181698%_ - _%e181375181701%_ - _%hd181376181704%_ - _%tl181377181706%_ - _%e181378181709%_ - _%hd181379181712%_ - _%tl181380181714%_ - _%e181381181717%_ - _%hd181382181720%_ - _%tl181383181722%_ - _%e181384181725%_ - _%hd181385181728%_ - _%tl181386181730%_ - _%e181387181733%_ - _%hd181388181736%_ - _%tl181389181738%_ - _%e181390181741%_ - _%hd181391181744%_ - _%tl181392181746%_) - (let ((_%L181749%_ _%hd181391181744%_) - (_%L181750%_ _%hd181388181736%_) - (_%L181751%_ _%hd181379181712%_) - (_%L181752%_ _%hd181370181688%_)) + (gx#stx-null? _%tl184949185144%_)) + (_%__match189621189622%_ + _%e184935185107%_ + _%hd184936185110%_ + _%tl184937185112%_ + _%e184938185115%_ + _%hd184939185118%_ + _%tl184940185120%_ + _%e184941185123%_ + _%hd184942185126%_ + _%tl184943185128%_ + _%e184944185131%_ + _%hd184945185134%_ + _%tl184946185136%_ + _%e184947185139%_ + _%hd184948185142%_ + _%tl184949185144%_ + _%e184950185147%_ + _%hd184951185150%_ + _%tl184952185152%_ + _%e184953185155%_ + _%hd184954185158%_ + _%tl184955185160%_) + (_%__match189675189676%_ + _%e184935185107%_ + _%hd184936185110%_ + _%tl184937185112%_ + _%e184938185115%_ + _%hd184939185118%_ + _%tl184940185120%_ + _%e184941185123%_ + _%hd184942185126%_ + _%tl184943185128%_ + _%e184944185131%_ + _%hd184945185134%_ + _%tl184946185136%_ + _%e184947185139%_ + _%hd184948185142%_ + _%tl184949185144%_ + _%e184950185147%_ + _%hd184951185150%_ + _%tl184952185152%_ + _%e184953185155%_ + _%hd184954185158%_ + _%tl184955185160%_)))) + (_%__match189565189566%_ + (lambda (_%e184900185201%_ + _%hd184901185204%_ + _%tl184902185206%_ + _%e184903185209%_ + _%hd184904185212%_ + _%tl184905185214%_ + _%e184906185217%_ + _%hd184907185220%_ + _%tl184908185222%_ + _%e184909185225%_ + _%hd184910185228%_ + _%tl184911185230%_ + _%e184912185233%_ + _%hd184913185236%_ + _%tl184914185238%_ + _%e184915185241%_ + _%hd184916185244%_ + _%tl184917185246%_ + _%e184918185249%_ + _%hd184919185252%_ + _%tl184920185254%_ + _%e184921185257%_ + _%hd184922185260%_ + _%tl184923185262%_ + _%e184924185265%_ + _%hd184925185268%_ + _%tl184926185270%_ + _%e184927185273%_ + _%hd184928185276%_ + _%tl184929185278%_ + _%e184930185281%_ + _%hd184931185284%_ + _%tl184932185286%_) + (let ((_%g184896185289%_ _%hd184931185284%_) + (_%g184897185290%_ _%hd184928185276%_) + (_%g184898185291%_ _%hd184919185252%_) + (_%g184899185292%_ _%hd184910185228%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L181752%_ + _%g184899185292%_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L181752%_ + _%g184899185292%_ 'unchecked-slot-set!))) - (let ((__tmp186831 + (let ((__tmp190344 (let () (declare (not safe)) (slot-ref__0 - _%self181216%_ + _%self184756%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L181751%_ - __tmp186831))) - (_%__kont185683185684%_ - _%L181749%_ - _%L181750%_ - _%L181751%_ - _%L181752%_) - (_%__kont185689185690%_))))) - (_%__match186044186045%_ - (lambda (_%e181360181661%_ - _%hd181361181664%_ - _%tl181362181666%_ - _%e181363181669%_ - _%hd181364181672%_ - _%tl181365181674%_ - _%e181366181677%_ - _%hd181367181680%_ - _%tl181368181682%_ - _%e181369181685%_ - _%hd181370181688%_ - _%tl181371181690%_ - _%e181372181693%_ - _%hd181373181696%_ - _%tl181374181698%_ - _%e181375181701%_ - _%hd181376181704%_ - _%tl181377181706%_ - _%e181378181709%_ - _%hd181379181712%_ - _%tl181380181714%_ - _%e181381181717%_ - _%hd181382181720%_ - _%tl181383181722%_ - _%e181384181725%_ - _%hd181385181728%_ - _%tl181386181730%_ - _%e181387181733%_ - _%hd181388181736%_ - _%tl181389181738%_) + _%g184898185291%_ + __tmp190344))) + (_%__kont189196189197%_ + _%g184896185289%_ + _%g184897185290%_ + _%g184898185291%_ + _%g184899185292%_) + (_%__kont189202189203%_))))) + (_%__match189557189558%_ + (lambda (_%e184900185201%_ + _%hd184901185204%_ + _%tl184902185206%_ + _%e184903185209%_ + _%hd184904185212%_ + _%tl184905185214%_ + _%e184906185217%_ + _%hd184907185220%_ + _%tl184908185222%_ + _%e184909185225%_ + _%hd184910185228%_ + _%tl184911185230%_ + _%e184912185233%_ + _%hd184913185236%_ + _%tl184914185238%_ + _%e184915185241%_ + _%hd184916185244%_ + _%tl184917185246%_ + _%e184918185249%_ + _%hd184919185252%_ + _%tl184920185254%_ + _%e184921185257%_ + _%hd184922185260%_ + _%tl184923185262%_ + _%e184924185265%_ + _%hd184925185268%_ + _%tl184926185270%_ + _%e184927185273%_ + _%hd184928185276%_ + _%tl184929185278%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181383181722%_)) - (let ((_%e181390181741%_ + (gx#stx-pair? _%tl184923185262%_)) + (let ((_%e184930185281%_ (let () (declare (not safe)) - (gx#stx-e _%tl181383181722%_)))) - (let ((_%tl181392181746%_ + (gx#stx-e _%tl184923185262%_)))) + (let ((_%tl184932185286%_ (let () (declare (not safe)) - (##cdr _%e181390181741%_))) - (_%hd181391181744%_ + (##cdr _%e184930185281%_))) + (_%hd184931185284%_ (let () (declare (not safe)) - (##car _%e181390181741%_)))) + (##car _%e184930185281%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181392181746%_)) - (_%__match186052186053%_ - _%e181360181661%_ - _%hd181361181664%_ - _%tl181362181666%_ - _%e181363181669%_ - _%hd181364181672%_ - _%tl181365181674%_ - _%e181366181677%_ - _%hd181367181680%_ - _%tl181368181682%_ - _%e181369181685%_ - _%hd181370181688%_ - _%tl181371181690%_ - _%e181372181693%_ - _%hd181373181696%_ - _%tl181374181698%_ - _%e181375181701%_ - _%hd181376181704%_ - _%tl181377181706%_ - _%e181378181709%_ - _%hd181379181712%_ - _%tl181380181714%_ - _%e181381181717%_ - _%hd181382181720%_ - _%tl181383181722%_ - _%e181384181725%_ - _%hd181385181728%_ - _%tl181386181730%_ - _%e181387181733%_ - _%hd181388181736%_ - _%tl181389181738%_ - _%e181390181741%_ - _%hd181391181744%_ - _%tl181392181746%_) - (_%__kont185689185690%_)))) - (_%__match186168186169%_ - _%e181360181661%_ - _%hd181361181664%_ - _%tl181362181666%_ - _%e181363181669%_ - _%hd181364181672%_ - _%tl181365181674%_ - _%e181366181677%_ - _%hd181367181680%_ - _%tl181368181682%_ - _%e181369181685%_ - _%hd181370181688%_ - _%tl181371181690%_ - _%e181372181693%_ - _%hd181373181696%_ - _%tl181374181698%_ - _%e181375181701%_ - _%hd181376181704%_ - _%tl181377181706%_ - _%e181378181709%_ - _%hd181379181712%_ - _%tl181380181714%_ - _%e181381181717%_ - _%hd181382181720%_ - _%tl181383181722%_)))) - (_%__match185966185967%_ - (lambda (_%e181326181792%_ - _%hd181327181795%_ - _%tl181328181797%_ - _%e181329181800%_ - _%hd181330181803%_ - _%tl181331181805%_ - _%e181332181808%_ - _%hd181333181811%_ - _%tl181334181813%_ - _%e181335181816%_ - _%hd181336181819%_ - _%tl181337181821%_ - _%e181338181824%_ - _%hd181339181827%_ - _%tl181340181829%_ - _%e181341181832%_ - _%hd181342181835%_ - _%tl181343181837%_ - _%e181344181840%_ - _%hd181345181843%_ - _%tl181346181845%_ - _%e181347181848%_ - _%hd181348181851%_ - _%tl181349181853%_ - _%e181350181856%_ - _%hd181351181859%_ - _%tl181352181861%_ - _%e181353181864%_ - _%hd181354181867%_ - _%tl181355181869%_) - (let ((_%L181872%_ _%hd181354181867%_) - (_%L181873%_ _%hd181345181843%_) - (_%L181874%_ _%hd181336181819%_)) + (gx#stx-null? _%tl184932185286%_)) + (_%__match189565189566%_ + _%e184900185201%_ + _%hd184901185204%_ + _%tl184902185206%_ + _%e184903185209%_ + _%hd184904185212%_ + _%tl184905185214%_ + _%e184906185217%_ + _%hd184907185220%_ + _%tl184908185222%_ + _%e184909185225%_ + _%hd184910185228%_ + _%tl184911185230%_ + _%e184912185233%_ + _%hd184913185236%_ + _%tl184914185238%_ + _%e184915185241%_ + _%hd184916185244%_ + _%tl184917185246%_ + _%e184918185249%_ + _%hd184919185252%_ + _%tl184920185254%_ + _%e184921185257%_ + _%hd184922185260%_ + _%tl184923185262%_ + _%e184924185265%_ + _%hd184925185268%_ + _%tl184926185270%_ + _%e184927185273%_ + _%hd184928185276%_ + _%tl184929185278%_ + _%e184930185281%_ + _%hd184931185284%_ + _%tl184932185286%_) + (_%__kont189202189203%_)))) + (_%__match189681189682%_ + _%e184900185201%_ + _%hd184901185204%_ + _%tl184902185206%_ + _%e184903185209%_ + _%hd184904185212%_ + _%tl184905185214%_ + _%e184906185217%_ + _%hd184907185220%_ + _%tl184908185222%_ + _%e184909185225%_ + _%hd184910185228%_ + _%tl184911185230%_ + _%e184912185233%_ + _%hd184913185236%_ + _%tl184914185238%_ + _%e184915185241%_ + _%hd184916185244%_ + _%tl184917185246%_ + _%e184918185249%_ + _%hd184919185252%_ + _%tl184920185254%_ + _%e184921185257%_ + _%hd184922185260%_ + _%tl184923185262%_)))) + (_%__match189479189480%_ + (lambda (_%e184866185332%_ + _%hd184867185335%_ + _%tl184868185337%_ + _%e184869185340%_ + _%hd184870185343%_ + _%tl184871185345%_ + _%e184872185348%_ + _%hd184873185351%_ + _%tl184874185353%_ + _%e184875185356%_ + _%hd184876185359%_ + _%tl184877185361%_ + _%e184878185364%_ + _%hd184879185367%_ + _%tl184880185369%_ + _%e184881185372%_ + _%hd184882185375%_ + _%tl184883185377%_ + _%e184884185380%_ + _%hd184885185383%_ + _%tl184886185385%_ + _%e184887185388%_ + _%hd184888185391%_ + _%tl184889185393%_ + _%e184890185396%_ + _%hd184891185399%_ + _%tl184892185401%_ + _%e184893185404%_ + _%hd184894185407%_ + _%tl184895185409%_) + (let ((_%g184863185412%_ _%hd184894185407%_) + (_%g184864185413%_ _%hd184885185383%_) + (_%g184865185414%_ _%hd184876185359%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L181874%_ + _%g184865185414%_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L181874%_ + _%g184865185414%_ 'unchecked-slot-ref))) - (let ((__tmp186832 + (let ((__tmp190345 (let () (declare (not safe)) (slot-ref__0 - _%self181216%_ + _%self184756%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L181873%_ - __tmp186832))) - (_%__kont185681185682%_ - _%L181872%_ - _%L181873%_ - _%L181874%_) - (_%__match186170186171%_ - _%e181326181792%_ - _%hd181327181795%_ - _%tl181328181797%_ - _%e181329181800%_ - _%hd181330181803%_ - _%tl181331181805%_ - _%e181332181808%_ - _%hd181333181811%_ - _%tl181334181813%_ - _%e181335181816%_ - _%hd181336181819%_ - _%tl181337181821%_ - _%e181338181824%_ - _%hd181339181827%_ - _%tl181340181829%_ - _%e181341181832%_ - _%hd181342181835%_ - _%tl181343181837%_ - _%e181344181840%_ - _%hd181345181843%_ - _%tl181346181845%_ - _%e181347181848%_ - _%hd181348181851%_ - _%tl181349181853%_))))) - (_%__match185964185965%_ - (lambda (_%e181326181792%_ - _%hd181327181795%_ - _%tl181328181797%_ - _%e181329181800%_ - _%hd181330181803%_ - _%tl181331181805%_ - _%e181332181808%_ - _%hd181333181811%_ - _%tl181334181813%_ - _%e181335181816%_ - _%hd181336181819%_ - _%tl181337181821%_ - _%e181338181824%_ - _%hd181339181827%_ - _%tl181340181829%_ - _%e181341181832%_ - _%hd181342181835%_ - _%tl181343181837%_ - _%e181344181840%_ - _%hd181345181843%_ - _%tl181346181845%_ - _%e181347181848%_ - _%hd181348181851%_ - _%tl181349181853%_ - _%e181350181856%_ - _%hd181351181859%_ - _%tl181352181861%_ - _%e181353181864%_ - _%hd181354181867%_ - _%tl181355181869%_) + _%g184864185413%_ + __tmp190345))) + (_%__kont189194189195%_ + _%g184863185412%_ + _%g184864185413%_ + _%g184865185414%_) + (_%__match189683189684%_ + _%e184866185332%_ + _%hd184867185335%_ + _%tl184868185337%_ + _%e184869185340%_ + _%hd184870185343%_ + _%tl184871185345%_ + _%e184872185348%_ + _%hd184873185351%_ + _%tl184874185353%_ + _%e184875185356%_ + _%hd184876185359%_ + _%tl184877185361%_ + _%e184878185364%_ + _%hd184879185367%_ + _%tl184880185369%_ + _%e184881185372%_ + _%hd184882185375%_ + _%tl184883185377%_ + _%e184884185380%_ + _%hd184885185383%_ + _%tl184886185385%_ + _%e184887185388%_ + _%hd184888185391%_ + _%tl184889185393%_))))) + (_%__match189477189478%_ + (lambda (_%e184866185332%_ + _%hd184867185335%_ + _%tl184868185337%_ + _%e184869185340%_ + _%hd184870185343%_ + _%tl184871185345%_ + _%e184872185348%_ + _%hd184873185351%_ + _%tl184874185353%_ + _%e184875185356%_ + _%hd184876185359%_ + _%tl184877185361%_ + _%e184878185364%_ + _%hd184879185367%_ + _%tl184880185369%_ + _%e184881185372%_ + _%hd184882185375%_ + _%tl184883185377%_ + _%e184884185380%_ + _%hd184885185383%_ + _%tl184886185385%_ + _%e184887185388%_ + _%hd184888185391%_ + _%tl184889185393%_ + _%e184890185396%_ + _%hd184891185399%_ + _%tl184892185401%_ + _%e184893185404%_ + _%hd184894185407%_ + _%tl184895185409%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181349181853%_)) - (_%__match185966185967%_ - _%e181326181792%_ - _%hd181327181795%_ - _%tl181328181797%_ - _%e181329181800%_ - _%hd181330181803%_ - _%tl181331181805%_ - _%e181332181808%_ - _%hd181333181811%_ - _%tl181334181813%_ - _%e181335181816%_ - _%hd181336181819%_ - _%tl181337181821%_ - _%e181338181824%_ - _%hd181339181827%_ - _%tl181340181829%_ - _%e181341181832%_ - _%hd181342181835%_ - _%tl181343181837%_ - _%e181344181840%_ - _%hd181345181843%_ - _%tl181346181845%_ - _%e181347181848%_ - _%hd181348181851%_ - _%tl181349181853%_ - _%e181350181856%_ - _%hd181351181859%_ - _%tl181352181861%_ - _%e181353181864%_ - _%hd181354181867%_ - _%tl181355181869%_) - (_%__match186044186045%_ - _%e181326181792%_ - _%hd181327181795%_ - _%tl181328181797%_ - _%e181329181800%_ - _%hd181330181803%_ - _%tl181331181805%_ - _%e181332181808%_ - _%hd181333181811%_ - _%tl181334181813%_ - _%e181335181816%_ - _%hd181336181819%_ - _%tl181337181821%_ - _%e181338181824%_ - _%hd181339181827%_ - _%tl181340181829%_ - _%e181341181832%_ - _%hd181342181835%_ - _%tl181343181837%_ - _%e181344181840%_ - _%hd181345181843%_ - _%tl181346181845%_ - _%e181347181848%_ - _%hd181348181851%_ - _%tl181349181853%_ - _%e181350181856%_ - _%hd181351181859%_ - _%tl181352181861%_ - _%e181353181864%_ - _%hd181354181867%_ - _%tl181355181869%_)))) - (_%__match185954185955%_ - (lambda (_%e181326181792%_ - _%hd181327181795%_ - _%tl181328181797%_ - _%e181329181800%_ - _%hd181330181803%_ - _%tl181331181805%_ - _%e181332181808%_ - _%hd181333181811%_ - _%tl181334181813%_ - _%e181335181816%_ - _%hd181336181819%_ - _%tl181337181821%_ - _%e181338181824%_ - _%hd181339181827%_ - _%tl181340181829%_ - _%e181341181832%_ - _%hd181342181835%_ - _%tl181343181837%_ - _%e181344181840%_ - _%hd181345181843%_ - _%tl181346181845%_ - _%e181347181848%_ - _%hd181348181851%_ - _%tl181349181853%_ - _%e181350181856%_ - _%hd181351181859%_ - _%tl181352181861%_) + (gx#stx-null? _%tl184889185393%_)) + (_%__match189479189480%_ + _%e184866185332%_ + _%hd184867185335%_ + _%tl184868185337%_ + _%e184869185340%_ + _%hd184870185343%_ + _%tl184871185345%_ + _%e184872185348%_ + _%hd184873185351%_ + _%tl184874185353%_ + _%e184875185356%_ + _%hd184876185359%_ + _%tl184877185361%_ + _%e184878185364%_ + _%hd184879185367%_ + _%tl184880185369%_ + _%e184881185372%_ + _%hd184882185375%_ + _%tl184883185377%_ + _%e184884185380%_ + _%hd184885185383%_ + _%tl184886185385%_ + _%e184887185388%_ + _%hd184888185391%_ + _%tl184889185393%_ + _%e184890185396%_ + _%hd184891185399%_ + _%tl184892185401%_ + _%e184893185404%_ + _%hd184894185407%_ + _%tl184895185409%_) + (_%__match189557189558%_ + _%e184866185332%_ + _%hd184867185335%_ + _%tl184868185337%_ + _%e184869185340%_ + _%hd184870185343%_ + _%tl184871185345%_ + _%e184872185348%_ + _%hd184873185351%_ + _%tl184874185353%_ + _%e184875185356%_ + _%hd184876185359%_ + _%tl184877185361%_ + _%e184878185364%_ + _%hd184879185367%_ + _%tl184880185369%_ + _%e184881185372%_ + _%hd184882185375%_ + _%tl184883185377%_ + _%e184884185380%_ + _%hd184885185383%_ + _%tl184886185385%_ + _%e184887185388%_ + _%hd184888185391%_ + _%tl184889185393%_ + _%e184890185396%_ + _%hd184891185399%_ + _%tl184892185401%_ + _%e184893185404%_ + _%hd184894185407%_ + _%tl184895185409%_)))) + (_%__match189467189468%_ + (lambda (_%e184866185332%_ + _%hd184867185335%_ + _%tl184868185337%_ + _%e184869185340%_ + _%hd184870185343%_ + _%tl184871185345%_ + _%e184872185348%_ + _%hd184873185351%_ + _%tl184874185353%_ + _%e184875185356%_ + _%hd184876185359%_ + _%tl184877185361%_ + _%e184878185364%_ + _%hd184879185367%_ + _%tl184880185369%_ + _%e184881185372%_ + _%hd184882185375%_ + _%tl184883185377%_ + _%e184884185380%_ + _%hd184885185383%_ + _%tl184886185385%_ + _%e184887185388%_ + _%hd184888185391%_ + _%tl184889185393%_ + _%e184890185396%_ + _%hd184891185399%_ + _%tl184892185401%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd181351181859%_)) + (gx#stx-eq? '%#quote _%hd184891185399%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181352181861%_)) - (let ((_%e181353181864%_ + (gx#stx-pair? _%tl184892185401%_)) + (let ((_%e184893185404%_ (let () (declare (not safe)) - (gx#stx-e _%tl181352181861%_)))) - (let ((_%tl181355181869%_ + (gx#stx-e _%tl184892185401%_)))) + (let ((_%tl184895185409%_ (let () (declare (not safe)) - (##cdr _%e181353181864%_))) - (_%hd181354181867%_ + (##cdr _%e184893185404%_))) + (_%hd184894185407%_ (let () (declare (not safe)) - (##car _%e181353181864%_)))) + (##car _%e184893185404%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181355181869%_)) + (gx#stx-null? _%tl184895185409%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181349181853%_)) - (_%__match185966185967%_ - _%e181326181792%_ - _%hd181327181795%_ - _%tl181328181797%_ - _%e181329181800%_ - _%hd181330181803%_ - _%tl181331181805%_ - _%e181332181808%_ - _%hd181333181811%_ - _%tl181334181813%_ - _%e181335181816%_ - _%hd181336181819%_ - _%tl181337181821%_ - _%e181338181824%_ - _%hd181339181827%_ - _%tl181340181829%_ - _%e181341181832%_ - _%hd181342181835%_ - _%tl181343181837%_ - _%e181344181840%_ - _%hd181345181843%_ - _%tl181346181845%_ - _%e181347181848%_ - _%hd181348181851%_ - _%tl181349181853%_ - _%e181350181856%_ - _%hd181351181859%_ - _%tl181352181861%_ - _%e181353181864%_ - _%hd181354181867%_ - _%tl181355181869%_) - (_%__match186044186045%_ - _%e181326181792%_ - _%hd181327181795%_ - _%tl181328181797%_ - _%e181329181800%_ - _%hd181330181803%_ - _%tl181331181805%_ - _%e181332181808%_ - _%hd181333181811%_ - _%tl181334181813%_ - _%e181335181816%_ - _%hd181336181819%_ - _%tl181337181821%_ - _%e181338181824%_ - _%hd181339181827%_ - _%tl181340181829%_ - _%e181341181832%_ - _%hd181342181835%_ - _%tl181343181837%_ - _%e181344181840%_ - _%hd181345181843%_ - _%tl181346181845%_ - _%e181347181848%_ - _%hd181348181851%_ - _%tl181349181853%_ - _%e181350181856%_ - _%hd181351181859%_ - _%tl181352181861%_ - _%e181353181864%_ - _%hd181354181867%_ - _%tl181355181869%_)) - (_%__match186168186169%_ - _%e181326181792%_ - _%hd181327181795%_ - _%tl181328181797%_ - _%e181329181800%_ - _%hd181330181803%_ - _%tl181331181805%_ - _%e181332181808%_ - _%hd181333181811%_ - _%tl181334181813%_ - _%e181335181816%_ - _%hd181336181819%_ - _%tl181337181821%_ - _%e181338181824%_ - _%hd181339181827%_ - _%tl181340181829%_ - _%e181341181832%_ - _%hd181342181835%_ - _%tl181343181837%_ - _%e181344181840%_ - _%hd181345181843%_ - _%tl181346181845%_ - _%e181347181848%_ - _%hd181348181851%_ - _%tl181349181853%_)))) - (_%__match186168186169%_ - _%e181326181792%_ - _%hd181327181795%_ - _%tl181328181797%_ - _%e181329181800%_ - _%hd181330181803%_ - _%tl181331181805%_ - _%e181332181808%_ - _%hd181333181811%_ - _%tl181334181813%_ - _%e181335181816%_ - _%hd181336181819%_ - _%tl181337181821%_ - _%e181338181824%_ - _%hd181339181827%_ - _%tl181340181829%_ - _%e181341181832%_ - _%hd181342181835%_ - _%tl181343181837%_ - _%e181344181840%_ - _%hd181345181843%_ - _%tl181346181845%_ - _%e181347181848%_ - _%hd181348181851%_ - _%tl181349181853%_)) - (_%__match186168186169%_ - _%e181326181792%_ - _%hd181327181795%_ - _%tl181328181797%_ - _%e181329181800%_ - _%hd181330181803%_ - _%tl181331181805%_ - _%e181332181808%_ - _%hd181333181811%_ - _%tl181334181813%_ - _%e181335181816%_ - _%hd181336181819%_ - _%tl181337181821%_ - _%e181338181824%_ - _%hd181339181827%_ - _%tl181340181829%_ - _%e181341181832%_ - _%hd181342181835%_ - _%tl181343181837%_ - _%e181344181840%_ - _%hd181345181843%_ - _%tl181346181845%_ - _%e181347181848%_ - _%hd181348181851%_ - _%tl181349181853%_)))) - (_%__match185886185887%_ - (lambda (_%e181275181911%_ - _%hd181276181914%_ - _%tl181277181916%_ - _%e181278181919%_ - _%hd181279181922%_ - _%tl181280181924%_ - _%e181281181927%_ - _%hd181282181930%_ - _%tl181283181932%_ - _%e181284181935%_ - _%hd181285181938%_ - _%tl181286181940%_ - _%e181287181943%_ - _%hd181288181946%_ - _%tl181289181948%_ - _%e181290181951%_ - _%hd181291181954%_ - _%tl181292181956%_ - _%e181293181959%_ - _%hd181294181962%_ - _%tl181295181964%_ - _%e181296181967%_ - _%hd181297181970%_ - _%tl181298181972%_ - _%e181299181975%_ - _%hd181300181978%_ - _%tl181301181980%_ - _%e181302181983%_ - _%hd181303181986%_ - _%tl181304181988%_ - _%e181305181991%_ - _%hd181306181994%_ - _%tl181307181996%_ - _%e181308181999%_ - _%hd181309182002%_ - _%tl181310182004%_ - _%e181311182007%_ - _%hd181312182010%_ - _%tl181313182012%_ - _%__splice185679185680%_ - _%target181314182015%_ - _%tl181316182017%_) - (letrec ((_%loop181317182020%_ - (lambda (_%hd181315182023%_ - _%args181321182025%_) + (gx#stx-null? _%tl184889185393%_)) + (_%__match189479189480%_ + _%e184866185332%_ + _%hd184867185335%_ + _%tl184868185337%_ + _%e184869185340%_ + _%hd184870185343%_ + _%tl184871185345%_ + _%e184872185348%_ + _%hd184873185351%_ + _%tl184874185353%_ + _%e184875185356%_ + _%hd184876185359%_ + _%tl184877185361%_ + _%e184878185364%_ + _%hd184879185367%_ + _%tl184880185369%_ + _%e184881185372%_ + _%hd184882185375%_ + _%tl184883185377%_ + _%e184884185380%_ + _%hd184885185383%_ + _%tl184886185385%_ + _%e184887185388%_ + _%hd184888185391%_ + _%tl184889185393%_ + _%e184890185396%_ + _%hd184891185399%_ + _%tl184892185401%_ + _%e184893185404%_ + _%hd184894185407%_ + _%tl184895185409%_) + (_%__match189557189558%_ + _%e184866185332%_ + _%hd184867185335%_ + _%tl184868185337%_ + _%e184869185340%_ + _%hd184870185343%_ + _%tl184871185345%_ + _%e184872185348%_ + _%hd184873185351%_ + _%tl184874185353%_ + _%e184875185356%_ + _%hd184876185359%_ + _%tl184877185361%_ + _%e184878185364%_ + _%hd184879185367%_ + _%tl184880185369%_ + _%e184881185372%_ + _%hd184882185375%_ + _%tl184883185377%_ + _%e184884185380%_ + _%hd184885185383%_ + _%tl184886185385%_ + _%e184887185388%_ + _%hd184888185391%_ + _%tl184889185393%_ + _%e184890185396%_ + _%hd184891185399%_ + _%tl184892185401%_ + _%e184893185404%_ + _%hd184894185407%_ + _%tl184895185409%_)) + (_%__match189681189682%_ + _%e184866185332%_ + _%hd184867185335%_ + _%tl184868185337%_ + _%e184869185340%_ + _%hd184870185343%_ + _%tl184871185345%_ + _%e184872185348%_ + _%hd184873185351%_ + _%tl184874185353%_ + _%e184875185356%_ + _%hd184876185359%_ + _%tl184877185361%_ + _%e184878185364%_ + _%hd184879185367%_ + _%tl184880185369%_ + _%e184881185372%_ + _%hd184882185375%_ + _%tl184883185377%_ + _%e184884185380%_ + _%hd184885185383%_ + _%tl184886185385%_ + _%e184887185388%_ + _%hd184888185391%_ + _%tl184889185393%_)))) + (_%__match189681189682%_ + _%e184866185332%_ + _%hd184867185335%_ + _%tl184868185337%_ + _%e184869185340%_ + _%hd184870185343%_ + _%tl184871185345%_ + _%e184872185348%_ + _%hd184873185351%_ + _%tl184874185353%_ + _%e184875185356%_ + _%hd184876185359%_ + _%tl184877185361%_ + _%e184878185364%_ + _%hd184879185367%_ + _%tl184880185369%_ + _%e184881185372%_ + _%hd184882185375%_ + _%tl184883185377%_ + _%e184884185380%_ + _%hd184885185383%_ + _%tl184886185385%_ + _%e184887185388%_ + _%hd184888185391%_ + _%tl184889185393%_)) + (_%__match189681189682%_ + _%e184866185332%_ + _%hd184867185335%_ + _%tl184868185337%_ + _%e184869185340%_ + _%hd184870185343%_ + _%tl184871185345%_ + _%e184872185348%_ + _%hd184873185351%_ + _%tl184874185353%_ + _%e184875185356%_ + _%hd184876185359%_ + _%tl184877185361%_ + _%e184878185364%_ + _%hd184879185367%_ + _%tl184880185369%_ + _%e184881185372%_ + _%hd184882185375%_ + _%tl184883185377%_ + _%e184884185380%_ + _%hd184885185383%_ + _%tl184886185385%_ + _%e184887185388%_ + _%hd184888185391%_ + _%tl184889185393%_)))) + (_%__match189399189400%_ + (lambda (_%e184815185451%_ + _%hd184816185454%_ + _%tl184817185456%_ + _%e184818185459%_ + _%hd184819185462%_ + _%tl184820185464%_ + _%e184821185467%_ + _%hd184822185470%_ + _%tl184823185472%_ + _%e184824185475%_ + _%hd184825185478%_ + _%tl184826185480%_ + _%e184827185483%_ + _%hd184828185486%_ + _%tl184829185488%_ + _%e184830185491%_ + _%hd184831185494%_ + _%tl184832185496%_ + _%e184833185499%_ + _%hd184834185502%_ + _%tl184835185504%_ + _%e184836185507%_ + _%hd184837185510%_ + _%tl184838185512%_ + _%e184839185515%_ + _%hd184840185518%_ + _%tl184841185520%_ + _%e184842185523%_ + _%hd184843185526%_ + _%tl184844185528%_ + _%e184845185531%_ + _%hd184846185534%_ + _%tl184847185536%_ + _%e184848185539%_ + _%hd184849185542%_ + _%tl184850185544%_ + _%e184851185547%_ + _%hd184852185550%_ + _%tl184853185552%_ + _%__splice189192189193%_ + _%target184854185555%_ + _%tl184856185557%_) + (letrec ((_%loop184857185560%_ + (lambda (_%hd184855185563%_ + _%args184861185565%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181315182023%_)) - (let ((_%e181318182028%_ + (gx#stx-pair? _%hd184855185563%_)) + (let ((_%e184858185567%_ (let () (declare (not safe)) - (gx#stx-e _%hd181315182023%_)))) - (let ((_%lp-tl181320182033%_ + (gx#stx-e _%hd184855185563%_)))) + (let ((_%lp-tl184860185572%_ (let () (declare (not safe)) - (##cdr _%e181318182028%_))) - (_%lp-hd181319182031%_ + (##cdr _%e184858185567%_))) + (_%lp-hd184859185570%_ (let () (declare (not safe)) - (##car _%e181318182028%_)))) - (_%loop181317182020%_ - _%lp-tl181320182033%_ - (cons _%lp-hd181319182031%_ - _%args181321182025%_)))) - (let ((_%args181322182036%_ - (reverse _%args181321182025%_))) - (let ((_%L182039%_ - _%args181322182036%_) - (_%L182040%_ _%hd181312182010%_) - (_%L182041%_ _%hd181303181986%_) - (_%L182042%_ _%hd181294181962%_) - (_%L182043%_ _%hd181285181938%_)) + (##car _%e184858185567%_)))) + (_%loop184857185560%_ + _%lp-tl184860185572%_ + (cons _%lp-hd184859185570%_ + _%args184861185565%_)))) + (let ((_%args184862185575%_ + (reverse _%args184861185565%_))) + (let ((_%g184810185577%_ + _%args184862185575%_) + (_%g184811185578%_ + _%hd184852185550%_) + (_%g184812185579%_ + _%hd184843185526%_) + (_%g184813185580%_ + _%hd184834185502%_) + (_%g184814185581%_ + _%hd184825185478%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L182043%_ + _%g184814185581%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L182042%_ + _%g184813185580%_ 'call-method)) - (let ((__tmp186833 + (let ((__tmp190346 (let () (declare (not safe)) (slot-ref__0 - _%self181216%_ + _%self184756%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L182041%_ - __tmp186833))) - (_%__kont185677185678%_ - _%L182039%_ - _%L182040%_ - _%L182041%_ - _%L182042%_ - _%L182043%_) - (_%__kont185689185690%_)))))))) - (_%loop181317182020%_ _%target181314182015%_ '())))) - (_%__match185844185845%_ - (lambda (_%e181275181911%_ - _%hd181276181914%_ - _%tl181277181916%_ - _%e181278181919%_ - _%hd181279181922%_ - _%tl181280181924%_ - _%e181281181927%_ - _%hd181282181930%_ - _%tl181283181932%_ - _%e181284181935%_ - _%hd181285181938%_ - _%tl181286181940%_ - _%e181287181943%_ - _%hd181288181946%_ - _%tl181289181948%_ - _%e181290181951%_ - _%hd181291181954%_ - _%tl181292181956%_ - _%e181293181959%_ - _%hd181294181962%_ - _%tl181295181964%_ - _%e181296181967%_ - _%hd181297181970%_ - _%tl181298181972%_ - _%e181299181975%_ - _%hd181300181978%_ - _%tl181301181980%_) + _%g184812185579%_ + __tmp190346))) + (_%__kont189190189191%_ + _%g184810185577%_ + _%g184811185578%_ + _%g184812185579%_ + _%g184813185580%_ + _%g184814185581%_) + (_%__kont189202189203%_)))))))) + (_%loop184857185560%_ _%target184854185555%_ '())))) + (_%__match189357189358%_ + (lambda (_%e184815185451%_ + _%hd184816185454%_ + _%tl184817185456%_ + _%e184818185459%_ + _%hd184819185462%_ + _%tl184820185464%_ + _%e184821185467%_ + _%hd184822185470%_ + _%tl184823185472%_ + _%e184824185475%_ + _%hd184825185478%_ + _%tl184826185480%_ + _%e184827185483%_ + _%hd184828185486%_ + _%tl184829185488%_ + _%e184830185491%_ + _%hd184831185494%_ + _%tl184832185496%_ + _%e184833185499%_ + _%hd184834185502%_ + _%tl184835185504%_ + _%e184836185507%_ + _%hd184837185510%_ + _%tl184838185512%_ + _%e184839185515%_ + _%hd184840185518%_ + _%tl184841185520%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd181300181978%_)) + (gx#stx-eq? '%#ref _%hd184840185518%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181301181980%_)) - (let ((_%e181302181983%_ + (gx#stx-pair? _%tl184841185520%_)) + (let ((_%e184842185523%_ (let () (declare (not safe)) - (gx#stx-e _%tl181301181980%_)))) - (let ((_%tl181304181988%_ + (gx#stx-e _%tl184841185520%_)))) + (let ((_%tl184844185528%_ (let () (declare (not safe)) - (##cdr _%e181302181983%_))) - (_%hd181303181986%_ + (##cdr _%e184842185523%_))) + (_%hd184843185526%_ (let () (declare (not safe)) - (##car _%e181302181983%_)))) + (##car _%e184842185523%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181304181988%_)) + (gx#stx-null? _%tl184844185528%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181298181972%_)) - (let ((_%e181305181991%_ + (gx#stx-pair? _%tl184838185512%_)) + (let ((_%e184845185531%_ (let () (declare (not safe)) (gx#stx-e - _%tl181298181972%_)))) - (let ((_%tl181307181996%_ + _%tl184838185512%_)))) + (let ((_%tl184847185536%_ (let () (declare (not safe)) - (##cdr _%e181305181991%_))) - (_%hd181306181994%_ + (##cdr _%e184845185531%_))) + (_%hd184846185534%_ (let () (declare (not safe)) - (##car _%e181305181991%_)))) + (##car _%e184845185531%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181306181994%_)) - (let ((_%e181308181999%_ + _%hd184846185534%_)) + (let ((_%e184848185539%_ (let () (declare (not safe)) (gx#stx-e - _%hd181306181994%_)))) - (let ((_%tl181310182004%_ + _%hd184846185534%_)))) + (let ((_%tl184850185544%_ (let () (declare (not safe)) - (##cdr _%e181308181999%_))) - (_%hd181309182002%_ + (##cdr _%e184848185539%_))) + (_%hd184849185542%_ (let () (declare (not safe)) - (##car _%e181308181999%_)))) + (##car _%e184848185539%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181309182002%_)) + _%hd184849185542%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _%hd181309182002%_)) + (gx#stx-eq? '%#quote _%hd184849185542%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181310182004%_)) - (let ((_%e181311182007%_ + (gx#stx-pair? _%tl184850185544%_)) + (let ((_%e184851185547%_ (let () (declare (not safe)) - (gx#stx-e _%tl181310182004%_)))) - (let ((_%tl181313182012%_ + (gx#stx-e _%tl184850185544%_)))) + (let ((_%tl184853185552%_ (let () (declare (not safe)) - (##cdr _%e181311182007%_))) - (_%hd181312182010%_ + (##cdr _%e184851185547%_))) + (_%hd184852185550%_ (let () (declare (not safe)) - (##car _%e181311182007%_)))) + (##car _%e184851185547%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181313182012%_)) + (gx#stx-null? _%tl184853185552%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl181307181996%_)) - (let ((_%__splice185679185680%_ + (gx#stx-pair/null? _%tl184847185536%_)) + (let ((_%__splice189192189193%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl181307181996%_ + _%tl184847185536%_ '0)))) - (let ((_%tl181316182017%_ + (let ((_%tl184856185557%_ (let () (declare (not safe)) (##vector-ref - _%__splice185679185680%_ + _%__splice189192189193%_ '1))) - (_%target181314182015%_ + (_%target184854185555%_ (let () (declare (not safe)) (##vector-ref - _%__splice185679185680%_ + _%__splice189192189193%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181316182017%_)) - (_%__match185886185887%_ - _%e181275181911%_ - _%hd181276181914%_ - _%tl181277181916%_ - _%e181278181919%_ - _%hd181279181922%_ - _%tl181280181924%_ - _%e181281181927%_ - _%hd181282181930%_ - _%tl181283181932%_ - _%e181284181935%_ - _%hd181285181938%_ - _%tl181286181940%_ - _%e181287181943%_ - _%hd181288181946%_ - _%tl181289181948%_ - _%e181290181951%_ - _%hd181291181954%_ - _%tl181292181956%_ - _%e181293181959%_ - _%hd181294181962%_ - _%tl181295181964%_ - _%e181296181967%_ - _%hd181297181970%_ - _%tl181298181972%_ - _%e181299181975%_ - _%hd181300181978%_ - _%tl181301181980%_ - _%e181302181983%_ - _%hd181303181986%_ - _%tl181304181988%_ - _%e181305181991%_ - _%hd181306181994%_ - _%tl181307181996%_ - _%e181308181999%_ - _%hd181309182002%_ - _%tl181310182004%_ - _%e181311182007%_ - _%hd181312182010%_ - _%tl181313182012%_ - _%__splice185679185680%_ - _%target181314182015%_ - _%tl181316182017%_) - (_%__kont185689185690%_)))) - (_%__kont185689185690%_)) - (_%__kont185689185690%_)))) - (_%__kont185689185690%_)) - (_%__kont185689185690%_)) - (_%__kont185689185690%_)))) + _%tl184856185557%_)) + (_%__match189399189400%_ + _%e184815185451%_ + _%hd184816185454%_ + _%tl184817185456%_ + _%e184818185459%_ + _%hd184819185462%_ + _%tl184820185464%_ + _%e184821185467%_ + _%hd184822185470%_ + _%tl184823185472%_ + _%e184824185475%_ + _%hd184825185478%_ + _%tl184826185480%_ + _%e184827185483%_ + _%hd184828185486%_ + _%tl184829185488%_ + _%e184830185491%_ + _%hd184831185494%_ + _%tl184832185496%_ + _%e184833185499%_ + _%hd184834185502%_ + _%tl184835185504%_ + _%e184836185507%_ + _%hd184837185510%_ + _%tl184838185512%_ + _%e184839185515%_ + _%hd184840185518%_ + _%tl184841185520%_ + _%e184842185523%_ + _%hd184843185526%_ + _%tl184844185528%_ + _%e184845185531%_ + _%hd184846185534%_ + _%tl184847185536%_ + _%e184848185539%_ + _%hd184849185542%_ + _%tl184850185544%_ + _%e184851185547%_ + _%hd184852185550%_ + _%tl184853185552%_ + _%__splice189192189193%_ + _%target184854185555%_ + _%tl184856185557%_) + (_%__kont189202189203%_)))) + (_%__kont189202189203%_)) + (_%__kont189202189203%_)))) + (_%__kont189202189203%_)) + (_%__kont189202189203%_)) + (_%__kont189202189203%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185689185690%_)))) - (_%__match186168186169%_ - _%e181275181911%_ - _%hd181276181914%_ - _%tl181277181916%_ - _%e181278181919%_ - _%hd181279181922%_ - _%tl181280181924%_ - _%e181281181927%_ - _%hd181282181930%_ - _%tl181283181932%_ - _%e181284181935%_ - _%hd181285181938%_ - _%tl181286181940%_ - _%e181287181943%_ - _%hd181288181946%_ - _%tl181289181948%_ - _%e181290181951%_ - _%hd181291181954%_ - _%tl181292181956%_ - _%e181293181959%_ - _%hd181294181962%_ - _%tl181295181964%_ - _%e181296181967%_ - _%hd181297181970%_ - _%tl181298181972%_)) - (_%__match186168186169%_ - _%e181275181911%_ - _%hd181276181914%_ - _%tl181277181916%_ - _%e181278181919%_ - _%hd181279181922%_ - _%tl181280181924%_ - _%e181281181927%_ - _%hd181282181930%_ - _%tl181283181932%_ - _%e181284181935%_ - _%hd181285181938%_ - _%tl181286181940%_ - _%e181287181943%_ - _%hd181288181946%_ - _%tl181289181948%_ - _%e181290181951%_ - _%hd181291181954%_ - _%tl181292181956%_ - _%e181293181959%_ - _%hd181294181962%_ - _%tl181295181964%_ - _%e181296181967%_ - _%hd181297181970%_ - _%tl181298181972%_)))) - (_%__match186168186169%_ - _%e181275181911%_ - _%hd181276181914%_ - _%tl181277181916%_ - _%e181278181919%_ - _%hd181279181922%_ - _%tl181280181924%_ - _%e181281181927%_ - _%hd181282181930%_ - _%tl181283181932%_ - _%e181284181935%_ - _%hd181285181938%_ - _%tl181286181940%_ - _%e181287181943%_ - _%hd181288181946%_ - _%tl181289181948%_ - _%e181290181951%_ - _%hd181291181954%_ - _%tl181292181956%_ - _%e181293181959%_ - _%hd181294181962%_ - _%tl181295181964%_ - _%e181296181967%_ - _%hd181297181970%_ - _%tl181298181972%_)) - (_%__match185954185955%_ - _%e181275181911%_ - _%hd181276181914%_ - _%tl181277181916%_ - _%e181278181919%_ - _%hd181279181922%_ - _%tl181280181924%_ - _%e181281181927%_ - _%hd181282181930%_ - _%tl181283181932%_ - _%e181284181935%_ - _%hd181285181938%_ - _%tl181286181940%_ - _%e181287181943%_ - _%hd181288181946%_ - _%tl181289181948%_ - _%e181290181951%_ - _%hd181291181954%_ - _%tl181292181956%_ - _%e181293181959%_ - _%hd181294181962%_ - _%tl181295181964%_ - _%e181296181967%_ - _%hd181297181970%_ - _%tl181298181972%_ - _%e181299181975%_ - _%hd181300181978%_ - _%tl181301181980%_)))) - (_%__match185776185777%_ - (lambda (_%e181231182100%_ - _%hd181232182103%_ - _%tl181233182105%_ - _%e181234182108%_ - _%hd181235182111%_ - _%tl181236182113%_ - _%e181237182116%_ - _%hd181238182119%_ - _%tl181239182121%_ - _%e181240182124%_ - _%hd181241182127%_ - _%tl181242182129%_ - _%e181243182132%_ - _%hd181244182135%_ - _%tl181245182137%_ - _%e181246182140%_ - _%hd181247182143%_ - _%tl181248182145%_ - _%e181249182148%_ - _%hd181250182151%_ - _%tl181251182153%_ - _%e181252182156%_ - _%hd181253182159%_ - _%tl181254182161%_ - _%e181255182164%_ - _%hd181256182167%_ - _%tl181257182169%_ - _%e181258182172%_ - _%hd181259182175%_ - _%tl181260182177%_ - _%__splice185675185676%_ - _%target181261182180%_ - _%tl181263182182%_) - (letrec ((_%loop181264182185%_ - (lambda (_%hd181262182188%_ - _%args181268182190%_) + (_%__kont189202189203%_)))) + (_%__match189681189682%_ + _%e184815185451%_ + _%hd184816185454%_ + _%tl184817185456%_ + _%e184818185459%_ + _%hd184819185462%_ + _%tl184820185464%_ + _%e184821185467%_ + _%hd184822185470%_ + _%tl184823185472%_ + _%e184824185475%_ + _%hd184825185478%_ + _%tl184826185480%_ + _%e184827185483%_ + _%hd184828185486%_ + _%tl184829185488%_ + _%e184830185491%_ + _%hd184831185494%_ + _%tl184832185496%_ + _%e184833185499%_ + _%hd184834185502%_ + _%tl184835185504%_ + _%e184836185507%_ + _%hd184837185510%_ + _%tl184838185512%_)) + (_%__match189681189682%_ + _%e184815185451%_ + _%hd184816185454%_ + _%tl184817185456%_ + _%e184818185459%_ + _%hd184819185462%_ + _%tl184820185464%_ + _%e184821185467%_ + _%hd184822185470%_ + _%tl184823185472%_ + _%e184824185475%_ + _%hd184825185478%_ + _%tl184826185480%_ + _%e184827185483%_ + _%hd184828185486%_ + _%tl184829185488%_ + _%e184830185491%_ + _%hd184831185494%_ + _%tl184832185496%_ + _%e184833185499%_ + _%hd184834185502%_ + _%tl184835185504%_ + _%e184836185507%_ + _%hd184837185510%_ + _%tl184838185512%_)))) + (_%__match189681189682%_ + _%e184815185451%_ + _%hd184816185454%_ + _%tl184817185456%_ + _%e184818185459%_ + _%hd184819185462%_ + _%tl184820185464%_ + _%e184821185467%_ + _%hd184822185470%_ + _%tl184823185472%_ + _%e184824185475%_ + _%hd184825185478%_ + _%tl184826185480%_ + _%e184827185483%_ + _%hd184828185486%_ + _%tl184829185488%_ + _%e184830185491%_ + _%hd184831185494%_ + _%tl184832185496%_ + _%e184833185499%_ + _%hd184834185502%_ + _%tl184835185504%_ + _%e184836185507%_ + _%hd184837185510%_ + _%tl184838185512%_)) + (_%__match189467189468%_ + _%e184815185451%_ + _%hd184816185454%_ + _%tl184817185456%_ + _%e184818185459%_ + _%hd184819185462%_ + _%tl184820185464%_ + _%e184821185467%_ + _%hd184822185470%_ + _%tl184823185472%_ + _%e184824185475%_ + _%hd184825185478%_ + _%tl184826185480%_ + _%e184827185483%_ + _%hd184828185486%_ + _%tl184829185488%_ + _%e184830185491%_ + _%hd184831185494%_ + _%tl184832185496%_ + _%e184833185499%_ + _%hd184834185502%_ + _%tl184835185504%_ + _%e184836185507%_ + _%hd184837185510%_ + _%tl184838185512%_ + _%e184839185515%_ + _%hd184840185518%_ + _%tl184841185520%_)))) + (_%__match189289189290%_ + (lambda (_%e184771185638%_ + _%hd184772185641%_ + _%tl184773185643%_ + _%e184774185646%_ + _%hd184775185649%_ + _%tl184776185651%_ + _%e184777185654%_ + _%hd184778185657%_ + _%tl184779185659%_ + _%e184780185662%_ + _%hd184781185665%_ + _%tl184782185667%_ + _%e184783185670%_ + _%hd184784185673%_ + _%tl184785185675%_ + _%e184786185678%_ + _%hd184787185681%_ + _%tl184788185683%_ + _%e184789185686%_ + _%hd184790185689%_ + _%tl184791185691%_ + _%e184792185694%_ + _%hd184793185697%_ + _%tl184794185699%_ + _%e184795185702%_ + _%hd184796185705%_ + _%tl184797185707%_ + _%e184798185710%_ + _%hd184799185713%_ + _%tl184800185715%_ + _%__splice189188189189%_ + _%target184801185718%_ + _%tl184803185720%_) + (letrec ((_%loop184804185723%_ + (lambda (_%hd184802185726%_ + _%args184808185728%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181262182188%_)) - (let ((_%e181265182193%_ + (gx#stx-pair? _%hd184802185726%_)) + (let ((_%e184805185730%_ (let () (declare (not safe)) - (gx#stx-e _%hd181262182188%_)))) - (let ((_%lp-tl181267182198%_ + (gx#stx-e _%hd184802185726%_)))) + (let ((_%lp-tl184807185735%_ (let () (declare (not safe)) - (##cdr _%e181265182193%_))) - (_%lp-hd181266182196%_ + (##cdr _%e184805185730%_))) + (_%lp-hd184806185733%_ (let () (declare (not safe)) - (##car _%e181265182193%_)))) - (_%loop181264182185%_ - _%lp-tl181267182198%_ - (cons _%lp-hd181266182196%_ - _%args181268182190%_)))) - (let ((_%args181269182201%_ - (reverse _%args181268182190%_))) - (let ((_%L182204%_ - _%args181269182201%_) - (_%L182205%_ _%hd181259182175%_) - (_%L182206%_ _%hd181250182151%_) - (_%L182207%_ _%hd181241182127%_)) + (##car _%e184805185730%_)))) + (_%loop184804185723%_ + _%lp-tl184807185735%_ + (cons _%lp-hd184806185733%_ + _%args184808185728%_)))) + (let ((_%args184809185738%_ + (reverse _%args184808185728%_))) + (let ((_%g184767185740%_ + _%args184809185738%_) + (_%g184768185741%_ + _%hd184799185713%_) + (_%g184769185742%_ + _%hd184790185689%_) + (_%g184770185743%_ + _%hd184781185665%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L182207%_ + _%g184770185743%_ 'call-method)) - (let ((__tmp186834 + (let ((__tmp190347 (let () (declare (not safe)) (slot-ref__0 - _%self181216%_ + _%self184756%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L182206%_ - __tmp186834))) - (_%__kont185673185674%_ - _%L182204%_ - _%L182205%_ - _%L182206%_ - _%L182207%_) - (_%__match185964185965%_ - _%e181231182100%_ - _%hd181232182103%_ - _%tl181233182105%_ - _%e181234182108%_ - _%hd181235182111%_ - _%tl181236182113%_ - _%e181237182116%_ - _%hd181238182119%_ - _%tl181239182121%_ - _%e181240182124%_ - _%hd181241182127%_ - _%tl181242182129%_ - _%e181243182132%_ - _%hd181244182135%_ - _%tl181245182137%_ - _%e181246182140%_ - _%hd181247182143%_ - _%tl181248182145%_ - _%e181249182148%_ - _%hd181250182151%_ - _%tl181251182153%_ - _%e181252182156%_ - _%hd181253182159%_ - _%tl181254182161%_ - _%e181255182164%_ - _%hd181256182167%_ - _%tl181257182169%_ - _%e181258182172%_ - _%hd181259182175%_ - _%tl181260182177%_)))))))) - (_%loop181264182185%_ _%target181261182180%_ '()))))) + _%g184769185742%_ + __tmp190347))) + (_%__kont189186189187%_ + _%g184767185740%_ + _%g184768185741%_ + _%g184769185742%_ + _%g184770185743%_) + (_%__match189477189478%_ + _%e184771185638%_ + _%hd184772185641%_ + _%tl184773185643%_ + _%e184774185646%_ + _%hd184775185649%_ + _%tl184776185651%_ + _%e184777185654%_ + _%hd184778185657%_ + _%tl184779185659%_ + _%e184780185662%_ + _%hd184781185665%_ + _%tl184782185667%_ + _%e184783185670%_ + _%hd184784185673%_ + _%tl184785185675%_ + _%e184786185678%_ + _%hd184787185681%_ + _%tl184788185683%_ + _%e184789185686%_ + _%hd184790185689%_ + _%tl184791185691%_ + _%e184792185694%_ + _%hd184793185697%_ + _%tl184794185699%_ + _%e184795185702%_ + _%hd184796185705%_ + _%tl184797185707%_ + _%e184798185710%_ + _%hd184799185713%_ + _%tl184800185715%_)))))))) + (_%loop184804185723%_ _%target184801185718%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx185671185672%_)) - (let ((_%e181231182100%_ + (gx#stx-pair? _%__stx189184189185%_)) + (let ((_%e184771185638%_ (let () (declare (not safe)) - (gx#stx-e _%__stx185671185672%_)))) - (let ((_%tl181233182105%_ + (gx#stx-e _%__stx189184189185%_)))) + (let ((_%tl184773185643%_ (let () (declare (not safe)) - (##cdr _%e181231182100%_))) - (_%hd181232182103%_ + (##cdr _%e184771185638%_))) + (_%hd184772185641%_ (let () (declare (not safe)) - (##car _%e181231182100%_)))) + (##car _%e184771185638%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181233182105%_)) - (let ((_%e181234182108%_ + (gx#stx-pair? _%tl184773185643%_)) + (let ((_%e184774185646%_ (let () (declare (not safe)) - (gx#stx-e _%tl181233182105%_)))) - (let ((_%tl181236182113%_ + (gx#stx-e _%tl184773185643%_)))) + (let ((_%tl184776185651%_ (let () (declare (not safe)) - (##cdr _%e181234182108%_))) - (_%hd181235182111%_ + (##cdr _%e184774185646%_))) + (_%hd184775185649%_ (let () (declare (not safe)) - (##car _%e181234182108%_)))) + (##car _%e184774185646%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181235182111%_)) - (let ((_%e181237182116%_ + (gx#stx-pair? _%hd184775185649%_)) + (let ((_%e184777185654%_ (let () (declare (not safe)) - (gx#stx-e _%hd181235182111%_)))) - (let ((_%tl181239182121%_ + (gx#stx-e _%hd184775185649%_)))) + (let ((_%tl184779185659%_ (let () (declare (not safe)) - (##cdr _%e181237182116%_))) - (_%hd181238182119%_ + (##cdr _%e184777185654%_))) + (_%hd184778185657%_ (let () (declare (not safe)) - (##car _%e181237182116%_)))) + (##car _%e184777185654%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181238182119%_)) + _%hd184778185657%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd181238182119%_)) + _%hd184778185657%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181239182121%_)) - (let ((_%e181240182124%_ + _%tl184779185659%_)) + (let ((_%e184780185662%_ (let () (declare (not safe)) (gx#stx-e - _%tl181239182121%_)))) - (let ((_%tl181242182129%_ + _%tl184779185659%_)))) + (let ((_%tl184782185667%_ (let () (declare (not safe)) - (##cdr _%e181240182124%_))) - (_%hd181241182127%_ + (##cdr _%e184780185662%_))) + (_%hd184781185665%_ (let () (declare (not safe)) - (##car _%e181240182124%_)))) + (##car _%e184780185662%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181242182129%_)) + _%tl184782185667%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl181236182113%_)) - (let ((_%e181243182132%_ + (gx#stx-pair? _%tl184776185651%_)) + (let ((_%e184783185670%_ (let () (declare (not safe)) - (gx#stx-e _%tl181236182113%_)))) - (let ((_%tl181245182137%_ + (gx#stx-e _%tl184776185651%_)))) + (let ((_%tl184785185675%_ (let () (declare (not safe)) - (##cdr _%e181243182132%_))) - (_%hd181244182135%_ + (##cdr _%e184783185670%_))) + (_%hd184784185673%_ (let () (declare (not safe)) - (##car _%e181243182132%_)))) + (##car _%e184783185670%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181244182135%_)) - (let ((_%e181246182140%_ + (gx#stx-pair? _%hd184784185673%_)) + (let ((_%e184786185678%_ (let () (declare (not safe)) - (gx#stx-e _%hd181244182135%_)))) - (let ((_%tl181248182145%_ + (gx#stx-e _%hd184784185673%_)))) + (let ((_%tl184788185683%_ (let () (declare (not safe)) - (##cdr _%e181246182140%_))) - (_%hd181247182143%_ + (##cdr _%e184786185678%_))) + (_%hd184787185681%_ (let () (declare (not safe)) - (##car _%e181246182140%_)))) + (##car _%e184786185678%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181247182143%_)) + (gx#identifier? _%hd184787185681%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd181247182143%_)) + _%hd184787185681%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181248182145%_)) - (let ((_%e181249182148%_ + _%tl184788185683%_)) + (let ((_%e184789185686%_ (let () (declare (not safe)) (gx#stx-e - _%tl181248182145%_)))) - (let ((_%tl181251182153%_ + _%tl184788185683%_)))) + (let ((_%tl184791185691%_ (let () (declare (not safe)) - (##cdr _%e181249182148%_))) - (_%hd181250182151%_ + (##cdr _%e184789185686%_))) + (_%hd184790185689%_ (let () (declare (not safe)) - (##car _%e181249182148%_)))) + (##car _%e184789185686%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181251182153%_)) + _%tl184791185691%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181245182137%_)) - (let ((_%e181252182156%_ + _%tl184785185675%_)) + (let ((_%e184792185694%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl181245182137%_)))) - (let ((_%tl181254182161%_ + (gx#stx-e _%tl184785185675%_)))) + (let ((_%tl184794185699%_ (let () (declare (not safe)) - (##cdr _%e181252182156%_))) - (_%hd181253182159%_ + (##cdr _%e184792185694%_))) + (_%hd184793185697%_ (let () (declare (not safe)) - (##car _%e181252182156%_)))) + (##car _%e184792185694%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181253182159%_)) - (let ((_%e181255182164%_ + (gx#stx-pair? _%hd184793185697%_)) + (let ((_%e184795185702%_ (let () (declare (not safe)) - (gx#stx-e _%hd181253182159%_)))) - (let ((_%tl181257182169%_ + (gx#stx-e _%hd184793185697%_)))) + (let ((_%tl184797185707%_ (let () (declare (not safe)) - (##cdr _%e181255182164%_))) - (_%hd181256182167%_ + (##cdr _%e184795185702%_))) + (_%hd184796185705%_ (let () (declare (not safe)) - (##car _%e181255182164%_)))) + (##car _%e184795185702%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181256182167%_)) + (gx#identifier? _%hd184796185705%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd181256182167%_)) + _%hd184796185705%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181257182169%_)) - (let ((_%e181258182172%_ + (gx#stx-pair? _%tl184797185707%_)) + (let ((_%e184798185710%_ (let () (declare (not safe)) (gx#stx-e - _%tl181257182169%_)))) - (let ((_%tl181260182177%_ + _%tl184797185707%_)))) + (let ((_%tl184800185715%_ (let () (declare (not safe)) - (##cdr _%e181258182172%_))) - (_%hd181259182175%_ + (##cdr _%e184798185710%_))) + (_%hd184799185713%_ (let () (declare (not safe)) - (##car _%e181258182172%_)))) + (##car _%e184798185710%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181260182177%_)) + _%tl184800185715%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl181254182161%_)) - (let ((_%__splice185675185676%_ + _%tl184794185699%_)) + (let ((_%__splice189188189189%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#syntax-split-splice->vector - _%tl181254182161%_ + _%tl184794185699%_ '0)))) - (let ((_%tl181263182182%_ + (let ((_%tl184803185720%_ (let () (declare (not safe)) - (##vector-ref _%__splice185675185676%_ '1))) - (_%target181261182180%_ + (##vector-ref _%__splice189188189189%_ '1))) + (_%target184801185718%_ (let () (declare (not safe)) - (##vector-ref _%__splice185675185676%_ '0)))) + (##vector-ref _%__splice189188189189%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181263182182%_)) - (_%__match185776185777%_ - _%e181231182100%_ - _%hd181232182103%_ - _%tl181233182105%_ - _%e181234182108%_ - _%hd181235182111%_ - _%tl181236182113%_ - _%e181237182116%_ - _%hd181238182119%_ - _%tl181239182121%_ - _%e181240182124%_ - _%hd181241182127%_ - _%tl181242182129%_ - _%e181243182132%_ - _%hd181244182135%_ - _%tl181245182137%_ - _%e181246182140%_ - _%hd181247182143%_ - _%tl181248182145%_ - _%e181249182148%_ - _%hd181250182151%_ - _%tl181251182153%_ - _%e181252182156%_ - _%hd181253182159%_ - _%tl181254182161%_ - _%e181255182164%_ - _%hd181256182167%_ - _%tl181257182169%_ - _%e181258182172%_ - _%hd181259182175%_ - _%tl181260182177%_ - _%__splice185675185676%_ - _%target181261182180%_ - _%tl181263182182%_) - (_%__match185964185965%_ - _%e181231182100%_ - _%hd181232182103%_ - _%tl181233182105%_ - _%e181234182108%_ - _%hd181235182111%_ - _%tl181236182113%_ - _%e181237182116%_ - _%hd181238182119%_ - _%tl181239182121%_ - _%e181240182124%_ - _%hd181241182127%_ - _%tl181242182129%_ - _%e181243182132%_ - _%hd181244182135%_ - _%tl181245182137%_ - _%e181246182140%_ - _%hd181247182143%_ - _%tl181248182145%_ - _%e181249182148%_ - _%hd181250182151%_ - _%tl181251182153%_ - _%e181252182156%_ - _%hd181253182159%_ - _%tl181254182161%_ - _%e181255182164%_ - _%hd181256182167%_ - _%tl181257182169%_ - _%e181258182172%_ - _%hd181259182175%_ - _%tl181260182177%_)))) - (_%__match185964185965%_ - _%e181231182100%_ - _%hd181232182103%_ - _%tl181233182105%_ - _%e181234182108%_ - _%hd181235182111%_ - _%tl181236182113%_ - _%e181237182116%_ - _%hd181238182119%_ - _%tl181239182121%_ - _%e181240182124%_ - _%hd181241182127%_ - _%tl181242182129%_ - _%e181243182132%_ - _%hd181244182135%_ - _%tl181245182137%_ - _%e181246182140%_ - _%hd181247182143%_ - _%tl181248182145%_ - _%e181249182148%_ - _%hd181250182151%_ - _%tl181251182153%_ - _%e181252182156%_ - _%hd181253182159%_ - _%tl181254182161%_ - _%e181255182164%_ - _%hd181256182167%_ - _%tl181257182169%_ - _%e181258182172%_ - _%hd181259182175%_ - _%tl181260182177%_)) + (gx#stx-null? _%tl184803185720%_)) + (_%__match189289189290%_ + _%e184771185638%_ + _%hd184772185641%_ + _%tl184773185643%_ + _%e184774185646%_ + _%hd184775185649%_ + _%tl184776185651%_ + _%e184777185654%_ + _%hd184778185657%_ + _%tl184779185659%_ + _%e184780185662%_ + _%hd184781185665%_ + _%tl184782185667%_ + _%e184783185670%_ + _%hd184784185673%_ + _%tl184785185675%_ + _%e184786185678%_ + _%hd184787185681%_ + _%tl184788185683%_ + _%e184789185686%_ + _%hd184790185689%_ + _%tl184791185691%_ + _%e184792185694%_ + _%hd184793185697%_ + _%tl184794185699%_ + _%e184795185702%_ + _%hd184796185705%_ + _%tl184797185707%_ + _%e184798185710%_ + _%hd184799185713%_ + _%tl184800185715%_ + _%__splice189188189189%_ + _%target184801185718%_ + _%tl184803185720%_) + (_%__match189477189478%_ + _%e184771185638%_ + _%hd184772185641%_ + _%tl184773185643%_ + _%e184774185646%_ + _%hd184775185649%_ + _%tl184776185651%_ + _%e184777185654%_ + _%hd184778185657%_ + _%tl184779185659%_ + _%e184780185662%_ + _%hd184781185665%_ + _%tl184782185667%_ + _%e184783185670%_ + _%hd184784185673%_ + _%tl184785185675%_ + _%e184786185678%_ + _%hd184787185681%_ + _%tl184788185683%_ + _%e184789185686%_ + _%hd184790185689%_ + _%tl184791185691%_ + _%e184792185694%_ + _%hd184793185697%_ + _%tl184794185699%_ + _%e184795185702%_ + _%hd184796185705%_ + _%tl184797185707%_ + _%e184798185710%_ + _%hd184799185713%_ + _%tl184800185715%_)))) + (_%__match189477189478%_ + _%e184771185638%_ + _%hd184772185641%_ + _%tl184773185643%_ + _%e184774185646%_ + _%hd184775185649%_ + _%tl184776185651%_ + _%e184777185654%_ + _%hd184778185657%_ + _%tl184779185659%_ + _%e184780185662%_ + _%hd184781185665%_ + _%tl184782185667%_ + _%e184783185670%_ + _%hd184784185673%_ + _%tl184785185675%_ + _%e184786185678%_ + _%hd184787185681%_ + _%tl184788185683%_ + _%e184789185686%_ + _%hd184790185689%_ + _%tl184791185691%_ + _%e184792185694%_ + _%hd184793185697%_ + _%tl184794185699%_ + _%e184795185702%_ + _%hd184796185705%_ + _%tl184797185707%_ + _%e184798185710%_ + _%hd184799185713%_ + _%tl184800185715%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match186168186169%_ - _%e181231182100%_ - _%hd181232182103%_ - _%tl181233182105%_ - _%e181234182108%_ - _%hd181235182111%_ - _%tl181236182113%_ - _%e181237182116%_ - _%hd181238182119%_ - _%tl181239182121%_ - _%e181240182124%_ - _%hd181241182127%_ - _%tl181242182129%_ - _%e181243182132%_ - _%hd181244182135%_ - _%tl181245182137%_ - _%e181246182140%_ - _%hd181247182143%_ - _%tl181248182145%_ - _%e181249182148%_ - _%hd181250182151%_ - _%tl181251182153%_ - _%e181252182156%_ - _%hd181253182159%_ - _%tl181254182161%_)))) - (_%__match186168186169%_ - _%e181231182100%_ - _%hd181232182103%_ - _%tl181233182105%_ - _%e181234182108%_ - _%hd181235182111%_ - _%tl181236182113%_ - _%e181237182116%_ - _%hd181238182119%_ - _%tl181239182121%_ - _%e181240182124%_ - _%hd181241182127%_ - _%tl181242182129%_ - _%e181243182132%_ - _%hd181244182135%_ - _%tl181245182137%_ - _%e181246182140%_ - _%hd181247182143%_ - _%tl181248182145%_ - _%e181249182148%_ - _%hd181250182151%_ - _%tl181251182153%_ - _%e181252182156%_ - _%hd181253182159%_ - _%tl181254182161%_)) - (_%__match185844185845%_ - _%e181231182100%_ - _%hd181232182103%_ - _%tl181233182105%_ - _%e181234182108%_ - _%hd181235182111%_ - _%tl181236182113%_ - _%e181237182116%_ - _%hd181238182119%_ - _%tl181239182121%_ - _%e181240182124%_ - _%hd181241182127%_ - _%tl181242182129%_ - _%e181243182132%_ - _%hd181244182135%_ - _%tl181245182137%_ - _%e181246182140%_ - _%hd181247182143%_ - _%tl181248182145%_ - _%e181249182148%_ - _%hd181250182151%_ - _%tl181251182153%_ - _%e181252182156%_ - _%hd181253182159%_ - _%tl181254182161%_ - _%e181255182164%_ - _%hd181256182167%_ - _%tl181257182169%_)) - (_%__match186168186169%_ - _%e181231182100%_ - _%hd181232182103%_ - _%tl181233182105%_ - _%e181234182108%_ - _%hd181235182111%_ - _%tl181236182113%_ - _%e181237182116%_ - _%hd181238182119%_ - _%tl181239182121%_ - _%e181240182124%_ - _%hd181241182127%_ - _%tl181242182129%_ - _%e181243182132%_ - _%hd181244182135%_ - _%tl181245182137%_ - _%e181246182140%_ - _%hd181247182143%_ - _%tl181248182145%_ - _%e181249182148%_ - _%hd181250182151%_ - _%tl181251182153%_ - _%e181252182156%_ - _%hd181253182159%_ - _%tl181254182161%_)))) - (_%__match186168186169%_ - _%e181231182100%_ - _%hd181232182103%_ - _%tl181233182105%_ - _%e181234182108%_ - _%hd181235182111%_ - _%tl181236182113%_ - _%e181237182116%_ - _%hd181238182119%_ - _%tl181239182121%_ - _%e181240182124%_ - _%hd181241182127%_ - _%tl181242182129%_ - _%e181243182132%_ - _%hd181244182135%_ - _%tl181245182137%_ - _%e181246182140%_ - _%hd181247182143%_ - _%tl181248182145%_ - _%e181249182148%_ - _%hd181250182151%_ - _%tl181251182153%_ - _%e181252182156%_ - _%hd181253182159%_ - _%tl181254182161%_)))) - (_%__match186106186107%_ - _%e181231182100%_ - _%hd181232182103%_ - _%tl181233182105%_ - _%e181234182108%_ - _%hd181235182111%_ - _%tl181236182113%_ - _%e181237182116%_ - _%hd181238182119%_ - _%tl181239182121%_ - _%e181240182124%_ - _%hd181241182127%_ - _%tl181242182129%_ - _%e181243182132%_ - _%hd181244182135%_ - _%tl181245182137%_ - _%e181246182140%_ - _%hd181247182143%_ - _%tl181248182145%_ - _%e181249182148%_ - _%hd181250182151%_ - _%tl181251182153%_)) - (_%__kont185689185690%_)))) + (_%__match189681189682%_ + _%e184771185638%_ + _%hd184772185641%_ + _%tl184773185643%_ + _%e184774185646%_ + _%hd184775185649%_ + _%tl184776185651%_ + _%e184777185654%_ + _%hd184778185657%_ + _%tl184779185659%_ + _%e184780185662%_ + _%hd184781185665%_ + _%tl184782185667%_ + _%e184783185670%_ + _%hd184784185673%_ + _%tl184785185675%_ + _%e184786185678%_ + _%hd184787185681%_ + _%tl184788185683%_ + _%e184789185686%_ + _%hd184790185689%_ + _%tl184791185691%_ + _%e184792185694%_ + _%hd184793185697%_ + _%tl184794185699%_)))) + (_%__match189681189682%_ + _%e184771185638%_ + _%hd184772185641%_ + _%tl184773185643%_ + _%e184774185646%_ + _%hd184775185649%_ + _%tl184776185651%_ + _%e184777185654%_ + _%hd184778185657%_ + _%tl184779185659%_ + _%e184780185662%_ + _%hd184781185665%_ + _%tl184782185667%_ + _%e184783185670%_ + _%hd184784185673%_ + _%tl184785185675%_ + _%e184786185678%_ + _%hd184787185681%_ + _%tl184788185683%_ + _%e184789185686%_ + _%hd184790185689%_ + _%tl184791185691%_ + _%e184792185694%_ + _%hd184793185697%_ + _%tl184794185699%_)) + (_%__match189357189358%_ + _%e184771185638%_ + _%hd184772185641%_ + _%tl184773185643%_ + _%e184774185646%_ + _%hd184775185649%_ + _%tl184776185651%_ + _%e184777185654%_ + _%hd184778185657%_ + _%tl184779185659%_ + _%e184780185662%_ + _%hd184781185665%_ + _%tl184782185667%_ + _%e184783185670%_ + _%hd184784185673%_ + _%tl184785185675%_ + _%e184786185678%_ + _%hd184787185681%_ + _%tl184788185683%_ + _%e184789185686%_ + _%hd184790185689%_ + _%tl184791185691%_ + _%e184792185694%_ + _%hd184793185697%_ + _%tl184794185699%_ + _%e184795185702%_ + _%hd184796185705%_ + _%tl184797185707%_)) + (_%__match189681189682%_ + _%e184771185638%_ + _%hd184772185641%_ + _%tl184773185643%_ + _%e184774185646%_ + _%hd184775185649%_ + _%tl184776185651%_ + _%e184777185654%_ + _%hd184778185657%_ + _%tl184779185659%_ + _%e184780185662%_ + _%hd184781185665%_ + _%tl184782185667%_ + _%e184783185670%_ + _%hd184784185673%_ + _%tl184785185675%_ + _%e184786185678%_ + _%hd184787185681%_ + _%tl184788185683%_ + _%e184789185686%_ + _%hd184790185689%_ + _%tl184791185691%_ + _%e184792185694%_ + _%hd184793185697%_ + _%tl184794185699%_)))) + (_%__match189681189682%_ + _%e184771185638%_ + _%hd184772185641%_ + _%tl184773185643%_ + _%e184774185646%_ + _%hd184775185649%_ + _%tl184776185651%_ + _%e184777185654%_ + _%hd184778185657%_ + _%tl184779185659%_ + _%e184780185662%_ + _%hd184781185665%_ + _%tl184782185667%_ + _%e184783185670%_ + _%hd184784185673%_ + _%tl184785185675%_ + _%e184786185678%_ + _%hd184787185681%_ + _%tl184788185683%_ + _%e184789185686%_ + _%hd184790185689%_ + _%tl184791185691%_ + _%e184792185694%_ + _%hd184793185697%_ + _%tl184794185699%_)))) + (_%__match189619189620%_ + _%e184771185638%_ + _%hd184772185641%_ + _%tl184773185643%_ + _%e184774185646%_ + _%hd184775185649%_ + _%tl184776185651%_ + _%e184777185654%_ + _%hd184778185657%_ + _%tl184779185659%_ + _%e184780185662%_ + _%hd184781185665%_ + _%tl184782185667%_ + _%e184783185670%_ + _%hd184784185673%_ + _%tl184785185675%_ + _%e184786185678%_ + _%hd184787185681%_ + _%tl184788185683%_ + _%e184789185686%_ + _%hd184790185689%_ + _%tl184791185691%_)) + (_%__kont189202189203%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185689185690%_)) - (_%__kont185689185690%_)) - (_%__kont185689185690%_)))) - (_%__kont185689185690%_)))) - (_%__kont185689185690%_)) - (_%__kont185689185690%_)))) + (_%__kont189202189203%_)) + (_%__kont189202189203%_)) + (_%__kont189202189203%_)))) + (_%__kont189202189203%_)))) + (_%__kont189202189203%_)) + (_%__kont189202189203%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont185689185690%_)) - (_%__kont185689185690%_)) - (_%__kont185689185690%_)))) - (_%__kont185689185690%_)))) - (_%__kont185689185690%_)))) - (_%__kont185689185690%_))))))) + (_%__kont189202189203%_)) + (_%__kont189202189203%_)) + (_%__kont189202189203%_)))) + (_%__kont189202189203%_)))) + (_%__kont189202189203%_)))) + (_%__kont189202189203%_))))))) (define gxc#subst-object-refs-call% - (lambda (_%self180155%_ _%stx180156%_) - (letrec ((_%force-e180158%_ - (lambda (_%target181214%_) + (lambda (_%self183699%_ _%stx183700%_) + (letrec ((_%force-e183702%_ + (lambda (_%target184754%_) (cons '%#call (cons (cons '%#ref (cons 'force '())) - (cons (cons '%#ref (cons _%target181214%_ '())) + (cons (cons '%#ref (cons _%target184754%_ '())) '())))))) - (let* ((_%__stx186173186174%_ _%stx180156%_) - (_%g180166180388%_ + (let* ((_%__stx189686189687%_ _%stx183700%_) + (_%g183710183932%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx186173186174%_))))) - (let ((_%__kont186175186176%_ - (lambda (_%L181160%_ _%L181161%_ _%L181162%_ _%L181163%_) - (let ((_%$method181208%_ - (let ((__tmp186836 + _%__stx189686189687%_))))) + (let ((_%__kont189688189689%_ + (lambda (_%g183712184700%_ + _%g183713184701%_ + _%g183714184702%_ + _%g183715184703%_) + (let ((_%$method184748%_ + (let ((__tmp190349 (let () (declare (not safe)) - (slot-ref__0 _%self180155%_ 'methods))) - (__tmp186835 + (slot-ref__0 _%self183699%_ 'methods))) + (__tmp190348 (let () (declare (not safe)) - (gx#stx-e _%L181161%_)))) + (gx#stx-e _%g183713184701%_)))) (declare (not safe)) - (hash-ref__0 __tmp186836 __tmp186835))) - (_%args181209%_ - (map (lambda (_%g181196181198%_) + (hash-ref__0 __tmp190349 __tmp190348))) + (_%args184749%_ + (map (lambda (_%g184736184738%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self180155%_ - _%g181196181198%_))) - (let ((__tmp186837 - (lambda (_%g181200181203%_ - _%g181201181205%_) - (cons _%g181200181203%_ - _%g181201181205%_)))) + _%self183699%_ + _%g184736184738%_))) + (let ((__tmp190350 + (lambda (_%g184740184743%_ + _%g184741184745%_) + (cons _%g184740184743%_ + _%g184741184745%_)))) (declare (not safe)) - (__foldr1 __tmp186837 '() _%L181160%_))))) - (let ((__tmp186838 + (__foldr1 + __tmp190350 + '() + _%g183712184700%_))))) + (let ((__tmp190351 (cons '%#call - (cons (_%force-e180158%_ _%$method181208%_) + (cons (_%force-e183702%_ _%$method184748%_) (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self180155%_ + _%self183699%_ 'receiver)) '())) - _%args181209%_))))) + _%args184749%_))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp186838 _%stx180156%_))))) - (_%__kont186179186180%_ - (lambda (_%L180992%_ - _%L180993%_ - _%L180994%_ - _%L180995%_ - _%L180996%_) - (let ((_%$method181048%_ - (let ((__tmp186840 + (gxc#xform-wrap-source __tmp190351 _%stx183700%_))))) + (_%__kont189692189693%_ + (lambda (_%g183755184534%_ + _%g183756184535%_ + _%g183757184536%_ + _%g183758184537%_ + _%g183759184538%_) + (let ((_%$method184590%_ + (let ((__tmp190353 (let () (declare (not safe)) - (slot-ref__0 _%self180155%_ 'methods))) - (__tmp186839 + (slot-ref__0 _%self183699%_ 'methods))) + (__tmp190352 (let () (declare (not safe)) - (gx#stx-e _%L180993%_)))) + (gx#stx-e _%g183756184535%_)))) (declare (not safe)) - (hash-ref__0 __tmp186840 __tmp186839))) - (_%args181049%_ - (map (lambda (_%g181036181038%_) + (hash-ref__0 __tmp190353 __tmp190352))) + (_%args184591%_ + (map (lambda (_%g184578184580%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self180155%_ - _%g181036181038%_))) - (let ((__tmp186841 - (lambda (_%g181040181043%_ - _%g181041181045%_) - (cons _%g181040181043%_ - _%g181041181045%_)))) + _%self183699%_ + _%g184578184580%_))) + (let ((__tmp190354 + (lambda (_%g184582184585%_ + _%g184583184587%_) + (cons _%g184582184585%_ + _%g184583184587%_)))) (declare (not safe)) - (__foldr1 __tmp186841 '() _%L180992%_))))) - (let ((__tmp186842 + (__foldr1 + __tmp190354 + '() + _%g183755184534%_))))) + (let ((__tmp190355 (cons '%#call (cons (cons '%#ref (cons 'apply '())) - (cons (_%force-e180158%_ - _%$method181048%_) + (cons (_%force-e183702%_ + _%$method184590%_) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self180155%_ 'receiver)) + (slot-ref__0 _%self183699%_ 'receiver)) '())) - _%args181049%_)))))) + _%args184591%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (gxc#xform-wrap-source __tmp186842 _%stx180156%_))))) - (_%__kont186183186184%_ - (lambda (_%L180823%_ _%L180824%_ _%L180825%_) - (let* ((_%$field180857%_ - (let ((__tmp186844 + (gxc#xform-wrap-source __tmp190355 _%stx183700%_))))) + (_%__kont189696189697%_ + (lambda (_%g183808184367%_ + _%g183809184368%_ + _%g183810184369%_) + (let* ((_%$field184401%_ + (let ((__tmp190357 (let () (declare (not safe)) - (slot-ref__0 _%self180155%_ 'slots))) - (__tmp186843 + (slot-ref__0 _%self183699%_ 'slots))) + (__tmp190356 (let () (declare (not safe)) - (gx#stx-e _%L180823%_)))) + (gx#stx-e _%g183808184367%_)))) (declare (not safe)) - (hash-ref__0 __tmp186844 __tmp186843))) - (__tmp186845 + (hash-ref__0 __tmp190357 __tmp190356))) + (__tmp190358 (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self180155%_ + _%self183699%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field180857%_ + (cons _%$field184401%_ '())) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self180155%_ 'receiver)) + (slot-ref__0 _%self183699%_ 'receiver)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp186845 _%stx180156%_)))) - (_%__kont186185186186%_ - (lambda (_%L180697%_ _%L180698%_ _%L180699%_ _%L180700%_) - (let ((_%$field180735%_ - (let ((__tmp186847 + (gxc#xform-wrap-source __tmp190358 _%stx183700%_)))) + (_%__kont189698189699%_ + (lambda (_%g183841184241%_ + _%g183842184242%_ + _%g183843184243%_ + _%g183844184244%_) + (let ((_%$field184279%_ + (let ((__tmp190360 (let () (declare (not safe)) - (slot-ref__0 _%self180155%_ 'slots))) - (__tmp186846 + (slot-ref__0 _%self183699%_ 'slots))) + (__tmp190359 (let () (declare (not safe)) - (gx#stx-e _%L180698%_)))) + (gx#stx-e _%g183842184242%_)))) (declare (not safe)) - (hash-ref__0 __tmp186847 __tmp186846))) - (_%expr180736%_ + (hash-ref__0 __tmp190360 __tmp190359))) + (_%expr184280%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self180155%_ _%L180697%_)))) - (let ((__tmp186848 + (gxc#compile-e__1 + _%self183699%_ + _%g183841184241%_)))) + (let ((__tmp190361 (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self180155%_ + _%self183699%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field180735%_ + (cons _%$field184279%_ '())) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self180155%_ 'receiver)) + (slot-ref__0 _%self183699%_ 'receiver)) '())) - (cons _%expr180736%_ '()))))))) + (cons _%expr184280%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (gxc#xform-wrap-source __tmp186848 _%stx180156%_))))) - (_%__kont186187186188%_ - (lambda (_%L180569%_ _%L180570%_) - (let* ((_%accessor180592%_ - (let ((__tmp186849 + (gxc#xform-wrap-source __tmp190361 _%stx183700%_))))) + (_%__kont189700189701%_ + (lambda (_%g183878184113%_ _%g183879184114%_) + (let* ((_%accessor184136%_ + (let ((__tmp190362 (let () (declare (not safe)) - (gxc#identifier-symbol _%L180570%_)))) + (gxc#identifier-symbol + _%g183879184114%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp186849))) - (_%klass180594%_ - (let ((__tmp186850 + (gxc#optimizer-resolve-type __tmp190362))) + (_%klass184138%_ + (let ((__tmp190363 (##structure-ref - _%accessor180592%_ + _%accessor184136%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx180156%_ - __tmp186850))) - (_%slot180596%_ + _%stx183700%_ + __tmp190363))) + (_%slot184140%_ (##structure-ref - _%accessor180592%_ + _%accessor184136%_ '3 gxc#!accessor::t '#f))) (if (if (##structure-ref - _%accessor180592%_ + _%accessor184136%_ '4 gxc#!accessor::t '#f) @@ -7022,37 +7089,37 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass180594%_ - _%slot180596%_)) + _%klass184138%_ + _%slot184140%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass180594%_ + _%klass184138%_ '8 '#f '#f)))) - _%stx180156%_ - (let* ((_%$field180602%_ - (let ((__tmp186851 + _%stx183700%_ + (let* ((_%$field184146%_ + (let ((__tmp190364 (let () (declare (not safe)) (slot-ref__0 - _%self180155%_ + _%self183699%_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp186851 _%slot180596%_))) - (__tmp186852 + (hash-ref__0 __tmp190364 _%slot184140%_))) + (__tmp190365 (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self180155%_ + _%self183699%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field180602%_ + (cons _%$field184146%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -7060,46 +7127,51 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) - (slot-ref__0 _%self180155%_ 'receiver)) + (slot-ref__0 _%self183699%_ 'receiver)) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp186852 - _%stx180156%_)))))) - (_%__kont186189186190%_ - (lambda (_%L180464%_ _%L180465%_ _%L180466%_) - (let* ((_%mutator180494%_ - (let ((__tmp186853 + __tmp190365 + _%stx183700%_)))))) + (_%__kont189702189703%_ + (lambda (_%g183901184008%_ + _%g183902184009%_ + _%g183903184010%_) + (let* ((_%mutator184038%_ + (let ((__tmp190366 (let () (declare (not safe)) - (gxc#identifier-symbol _%L180466%_)))) + (gxc#identifier-symbol + _%g183903184010%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp186853))) - (_%klass180496%_ - (let ((__tmp186854 + (gxc#optimizer-resolve-type __tmp190366))) + (_%klass184040%_ + (let ((__tmp190367 (##structure-ref - _%mutator180494%_ + _%mutator184038%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx180156%_ - __tmp186854))) - (_%slot180498%_ + _%stx183700%_ + __tmp190367))) + (_%slot184042%_ (##structure-ref - _%mutator180494%_ + _%mutator184038%_ '3 gxc#!mutator::t '#f)) - (_%expr180500%_ + (_%expr184044%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self180155%_ _%L180464%_)))) + (gxc#compile-e__1 + _%self183699%_ + _%g183901184008%_)))) (if (if (##structure-ref - _%mutator180494%_ + _%mutator184038%_ '4 gxc#!mutator::t '#f) @@ -7107,56 +7179,57 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass180496%_ - _%slot180498%_)) + _%klass184040%_ + _%slot184042%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass180496%_ + _%klass184040%_ '8 '#f '#f)))) - (let ((__tmp186855 + (let ((__tmp190368 (cons '%#call (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L180466%_ '())) + (cons _%g183903184010%_ + '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L180465%_ + (cons _%g183902184009%_ '())) - (cons _%expr180500%_ + (cons _%expr184044%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp186855 _%stx180156%_)) - (let* ((_%$field180506%_ - (let ((__tmp186856 + (gxc#xform-wrap-source __tmp190368 _%stx183700%_)) + (let* ((_%$field184050%_ + (let ((__tmp190369 (let () (declare (not safe)) (slot-ref__0 - _%self180155%_ + _%self183699%_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp186856 _%slot180498%_))) - (__tmp186857 + (hash-ref__0 __tmp190369 _%slot184042%_))) + (__tmp190370 (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self180155%_ + _%self183699%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field180506%_ + (cons _%$field184050%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -7164,1848 +7237,1850 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) - (slot-ref__0 _%self180155%_ 'receiver)) + (slot-ref__0 _%self183699%_ 'receiver)) '())) - (cons _%expr180500%_ '()))))))) + (cons _%expr184044%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp186857 - _%stx180156%_)))))) - (_%__kont186191186192%_ + __tmp190370 + _%stx183700%_)))))) + (_%__kont189704189705%_ (lambda () (let () (declare (not safe)) - (gxc#xform-operands _%self180155%_ _%stx180156%_))))) - (let* ((_%__match186672186673%_ - (lambda (_%e180360180400%_ - _%hd180361180403%_ - _%tl180362180405%_ - _%e180363180408%_ - _%hd180364180411%_ - _%tl180365180413%_ - _%e180366180416%_ - _%hd180367180419%_ - _%tl180368180421%_ - _%e180369180424%_ - _%hd180370180427%_ - _%tl180371180429%_ - _%e180372180432%_ - _%hd180373180435%_ - _%tl180374180437%_ - _%e180375180440%_ - _%hd180376180443%_ - _%tl180377180445%_ - _%e180378180448%_ - _%hd180379180451%_ - _%tl180380180453%_ - _%e180381180456%_ - _%hd180382180459%_ - _%tl180383180461%_) - (let ((_%L180464%_ _%hd180382180459%_) - (_%L180465%_ _%hd180379180451%_) - (_%L180466%_ _%hd180370180427%_)) - (if (and (let ((__tmp186858 + (gxc#xform-operands _%self183699%_ _%stx183700%_))))) + (let* ((_%__match190185190186%_ + (lambda (_%e183904183944%_ + _%hd183905183947%_ + _%tl183906183949%_ + _%e183907183952%_ + _%hd183908183955%_ + _%tl183909183957%_ + _%e183910183960%_ + _%hd183911183963%_ + _%tl183912183965%_ + _%e183913183968%_ + _%hd183914183971%_ + _%tl183915183973%_ + _%e183916183976%_ + _%hd183917183979%_ + _%tl183918183981%_ + _%e183919183984%_ + _%hd183920183987%_ + _%tl183921183989%_ + _%e183922183992%_ + _%hd183923183995%_ + _%tl183924183997%_ + _%e183925184000%_ + _%hd183926184003%_ + _%tl183927184005%_) + (let ((_%g183901184008%_ _%hd183926184003%_) + (_%g183902184009%_ _%hd183923183995%_) + (_%g183903184010%_ _%hd183914183971%_)) + (if (and (let ((__tmp190371 (let () (declare (not safe)) (slot-ref__0 - _%self180155%_ + _%self183699%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L180465%_ - __tmp186858)) - (let ((__tmp186859 - (let ((__tmp186860 + _%g183902184009%_ + __tmp190371)) + (let ((__tmp190372 + (let ((__tmp190373 (let () (declare (not safe)) (gxc#identifier-symbol - _%L180466%_)))) + _%g183903184010%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp186860)))) + __tmp190373)))) (declare (not safe)) (##structure-instance-of? - __tmp186859 + __tmp190372 'gxc#!mutator::t))) - (_%__kont186189186190%_ - _%L180464%_ - _%L180465%_ - _%L180466%_) - (_%__kont186191186192%_))))) - (_%__match186670186671%_ - (lambda (_%e180360180400%_ - _%hd180361180403%_ - _%tl180362180405%_ - _%e180363180408%_ - _%hd180364180411%_ - _%tl180365180413%_ - _%e180366180416%_ - _%hd180367180419%_ - _%tl180368180421%_ - _%e180369180424%_ - _%hd180370180427%_ - _%tl180371180429%_ - _%e180372180432%_ - _%hd180373180435%_ - _%tl180374180437%_ - _%e180375180440%_ - _%hd180376180443%_ - _%tl180377180445%_ - _%e180378180448%_ - _%hd180379180451%_ - _%tl180380180453%_ - _%e180381180456%_ - _%hd180382180459%_ - _%tl180383180461%_) + (_%__kont189702189703%_ + _%g183901184008%_ + _%g183902184009%_ + _%g183903184010%_) + (_%__kont189704189705%_))))) + (_%__match190183190184%_ + (lambda (_%e183904183944%_ + _%hd183905183947%_ + _%tl183906183949%_ + _%e183907183952%_ + _%hd183908183955%_ + _%tl183909183957%_ + _%e183910183960%_ + _%hd183911183963%_ + _%tl183912183965%_ + _%e183913183968%_ + _%hd183914183971%_ + _%tl183915183973%_ + _%e183916183976%_ + _%hd183917183979%_ + _%tl183918183981%_ + _%e183919183984%_ + _%hd183920183987%_ + _%tl183921183989%_ + _%e183922183992%_ + _%hd183923183995%_ + _%tl183924183997%_ + _%e183925184000%_ + _%hd183926184003%_ + _%tl183927184005%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180383180461%_)) - (_%__match186672186673%_ - _%e180360180400%_ - _%hd180361180403%_ - _%tl180362180405%_ - _%e180363180408%_ - _%hd180364180411%_ - _%tl180365180413%_ - _%e180366180416%_ - _%hd180367180419%_ - _%tl180368180421%_ - _%e180369180424%_ - _%hd180370180427%_ - _%tl180371180429%_ - _%e180372180432%_ - _%hd180373180435%_ - _%tl180374180437%_ - _%e180375180440%_ - _%hd180376180443%_ - _%tl180377180445%_ - _%e180378180448%_ - _%hd180379180451%_ - _%tl180380180453%_ - _%e180381180456%_ - _%hd180382180459%_ - _%tl180383180461%_) - (_%__kont186191186192%_)))) - (_%__match186664186665%_ - (lambda (_%e180360180400%_ - _%hd180361180403%_ - _%tl180362180405%_ - _%e180363180408%_ - _%hd180364180411%_ - _%tl180365180413%_ - _%e180366180416%_ - _%hd180367180419%_ - _%tl180368180421%_ - _%e180369180424%_ - _%hd180370180427%_ - _%tl180371180429%_ - _%e180372180432%_ - _%hd180373180435%_ - _%tl180374180437%_ - _%e180375180440%_ - _%hd180376180443%_ - _%tl180377180445%_ - _%e180378180448%_ - _%hd180379180451%_ - _%tl180380180453%_) + (gx#stx-null? _%tl183927184005%_)) + (_%__match190185190186%_ + _%e183904183944%_ + _%hd183905183947%_ + _%tl183906183949%_ + _%e183907183952%_ + _%hd183908183955%_ + _%tl183909183957%_ + _%e183910183960%_ + _%hd183911183963%_ + _%tl183912183965%_ + _%e183913183968%_ + _%hd183914183971%_ + _%tl183915183973%_ + _%e183916183976%_ + _%hd183917183979%_ + _%tl183918183981%_ + _%e183919183984%_ + _%hd183920183987%_ + _%tl183921183989%_ + _%e183922183992%_ + _%hd183923183995%_ + _%tl183924183997%_ + _%e183925184000%_ + _%hd183926184003%_ + _%tl183927184005%_) + (_%__kont189704189705%_)))) + (_%__match190177190178%_ + (lambda (_%e183904183944%_ + _%hd183905183947%_ + _%tl183906183949%_ + _%e183907183952%_ + _%hd183908183955%_ + _%tl183909183957%_ + _%e183910183960%_ + _%hd183911183963%_ + _%tl183912183965%_ + _%e183913183968%_ + _%hd183914183971%_ + _%tl183915183973%_ + _%e183916183976%_ + _%hd183917183979%_ + _%tl183918183981%_ + _%e183919183984%_ + _%hd183920183987%_ + _%tl183921183989%_ + _%e183922183992%_ + _%hd183923183995%_ + _%tl183924183997%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180374180437%_)) - (let ((_%e180381180456%_ + (gx#stx-pair? _%tl183918183981%_)) + (let ((_%e183925184000%_ (let () (declare (not safe)) - (gx#stx-e _%tl180374180437%_)))) - (let ((_%tl180383180461%_ + (gx#stx-e _%tl183918183981%_)))) + (let ((_%tl183927184005%_ (let () (declare (not safe)) - (##cdr _%e180381180456%_))) - (_%hd180382180459%_ + (##cdr _%e183925184000%_))) + (_%hd183926184003%_ (let () (declare (not safe)) - (##car _%e180381180456%_)))) + (##car _%e183925184000%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180383180461%_)) - (_%__match186672186673%_ - _%e180360180400%_ - _%hd180361180403%_ - _%tl180362180405%_ - _%e180363180408%_ - _%hd180364180411%_ - _%tl180365180413%_ - _%e180366180416%_ - _%hd180367180419%_ - _%tl180368180421%_ - _%e180369180424%_ - _%hd180370180427%_ - _%tl180371180429%_ - _%e180372180432%_ - _%hd180373180435%_ - _%tl180374180437%_ - _%e180375180440%_ - _%hd180376180443%_ - _%tl180377180445%_ - _%e180378180448%_ - _%hd180379180451%_ - _%tl180380180453%_ - _%e180381180456%_ - _%hd180382180459%_ - _%tl180383180461%_) - (_%__kont186191186192%_)))) - (_%__kont186191186192%_)))) - (_%__match186610186611%_ - (lambda (_%e180336180513%_ - _%hd180337180516%_ - _%tl180338180518%_ - _%e180339180521%_ - _%hd180340180524%_ - _%tl180341180526%_ - _%e180342180529%_ - _%hd180343180532%_ - _%tl180344180534%_ - _%e180345180537%_ - _%hd180346180540%_ - _%tl180347180542%_ - _%e180348180545%_ - _%hd180349180548%_ - _%tl180350180550%_ - _%e180351180553%_ - _%hd180352180556%_ - _%tl180353180558%_ - _%e180354180561%_ - _%hd180355180564%_ - _%tl180356180566%_) - (let ((_%L180569%_ _%hd180355180564%_) - (_%L180570%_ _%hd180346180540%_)) - (if (and (let ((__tmp186861 + (gx#stx-null? _%tl183927184005%_)) + (_%__match190185190186%_ + _%e183904183944%_ + _%hd183905183947%_ + _%tl183906183949%_ + _%e183907183952%_ + _%hd183908183955%_ + _%tl183909183957%_ + _%e183910183960%_ + _%hd183911183963%_ + _%tl183912183965%_ + _%e183913183968%_ + _%hd183914183971%_ + _%tl183915183973%_ + _%e183916183976%_ + _%hd183917183979%_ + _%tl183918183981%_ + _%e183919183984%_ + _%hd183920183987%_ + _%tl183921183989%_ + _%e183922183992%_ + _%hd183923183995%_ + _%tl183924183997%_ + _%e183925184000%_ + _%hd183926184003%_ + _%tl183927184005%_) + (_%__kont189704189705%_)))) + (_%__kont189704189705%_)))) + (_%__match190123190124%_ + (lambda (_%e183880184057%_ + _%hd183881184060%_ + _%tl183882184062%_ + _%e183883184065%_ + _%hd183884184068%_ + _%tl183885184070%_ + _%e183886184073%_ + _%hd183887184076%_ + _%tl183888184078%_ + _%e183889184081%_ + _%hd183890184084%_ + _%tl183891184086%_ + _%e183892184089%_ + _%hd183893184092%_ + _%tl183894184094%_ + _%e183895184097%_ + _%hd183896184100%_ + _%tl183897184102%_ + _%e183898184105%_ + _%hd183899184108%_ + _%tl183900184110%_) + (let ((_%g183878184113%_ _%hd183899184108%_) + (_%g183879184114%_ _%hd183890184084%_)) + (if (and (let ((__tmp190374 (let () (declare (not safe)) (slot-ref__0 - _%self180155%_ + _%self183699%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L180569%_ - __tmp186861)) - (let ((__tmp186862 - (let ((__tmp186863 + _%g183878184113%_ + __tmp190374)) + (let ((__tmp190375 + (let ((__tmp190376 (let () (declare (not safe)) (gxc#identifier-symbol - _%L180570%_)))) + _%g183879184114%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp186863)))) + __tmp190376)))) (declare (not safe)) (##structure-instance-of? - __tmp186862 + __tmp190375 'gxc#!accessor::t))) - (_%__kont186187186188%_ _%L180569%_ _%L180570%_) - (_%__kont186191186192%_))))) - (_%__match186608186609%_ - (lambda (_%e180336180513%_ - _%hd180337180516%_ - _%tl180338180518%_ - _%e180339180521%_ - _%hd180340180524%_ - _%tl180341180526%_ - _%e180342180529%_ - _%hd180343180532%_ - _%tl180344180534%_ - _%e180345180537%_ - _%hd180346180540%_ - _%tl180347180542%_ - _%e180348180545%_ - _%hd180349180548%_ - _%tl180350180550%_ - _%e180351180553%_ - _%hd180352180556%_ - _%tl180353180558%_ - _%e180354180561%_ - _%hd180355180564%_ - _%tl180356180566%_) + (_%__kont189700189701%_ + _%g183878184113%_ + _%g183879184114%_) + (_%__kont189704189705%_))))) + (_%__match190121190122%_ + (lambda (_%e183880184057%_ + _%hd183881184060%_ + _%tl183882184062%_ + _%e183883184065%_ + _%hd183884184068%_ + _%tl183885184070%_ + _%e183886184073%_ + _%hd183887184076%_ + _%tl183888184078%_ + _%e183889184081%_ + _%hd183890184084%_ + _%tl183891184086%_ + _%e183892184089%_ + _%hd183893184092%_ + _%tl183894184094%_ + _%e183895184097%_ + _%hd183896184100%_ + _%tl183897184102%_ + _%e183898184105%_ + _%hd183899184108%_ + _%tl183900184110%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180350180550%_)) - (_%__match186610186611%_ - _%e180336180513%_ - _%hd180337180516%_ - _%tl180338180518%_ - _%e180339180521%_ - _%hd180340180524%_ - _%tl180341180526%_ - _%e180342180529%_ - _%hd180343180532%_ - _%tl180344180534%_ - _%e180345180537%_ - _%hd180346180540%_ - _%tl180347180542%_ - _%e180348180545%_ - _%hd180349180548%_ - _%tl180350180550%_ - _%e180351180553%_ - _%hd180352180556%_ - _%tl180353180558%_ - _%e180354180561%_ - _%hd180355180564%_ - _%tl180356180566%_) - (_%__match186664186665%_ - _%e180336180513%_ - _%hd180337180516%_ - _%tl180338180518%_ - _%e180339180521%_ - _%hd180340180524%_ - _%tl180341180526%_ - _%e180342180529%_ - _%hd180343180532%_ - _%tl180344180534%_ - _%e180345180537%_ - _%hd180346180540%_ - _%tl180347180542%_ - _%e180348180545%_ - _%hd180349180548%_ - _%tl180350180550%_ - _%e180351180553%_ - _%hd180352180556%_ - _%tl180353180558%_ - _%e180354180561%_ - _%hd180355180564%_ - _%tl180356180566%_)))) - (_%__match186554186555%_ - (lambda (_%e180301180609%_ - _%hd180302180612%_ - _%tl180303180614%_ - _%e180304180617%_ - _%hd180305180620%_ - _%tl180306180622%_ - _%e180307180625%_ - _%hd180308180628%_ - _%tl180309180630%_ - _%e180310180633%_ - _%hd180311180636%_ - _%tl180312180638%_ - _%e180313180641%_ - _%hd180314180644%_ - _%tl180315180646%_ - _%e180316180649%_ - _%hd180317180652%_ - _%tl180318180654%_ - _%e180319180657%_ - _%hd180320180660%_ - _%tl180321180662%_ - _%e180322180665%_ - _%hd180323180668%_ - _%tl180324180670%_ - _%e180325180673%_ - _%hd180326180676%_ - _%tl180327180678%_ - _%e180328180681%_ - _%hd180329180684%_ - _%tl180330180686%_ - _%e180331180689%_ - _%hd180332180692%_ - _%tl180333180694%_) - (let ((_%L180697%_ _%hd180332180692%_) - (_%L180698%_ _%hd180329180684%_) - (_%L180699%_ _%hd180320180660%_) - (_%L180700%_ _%hd180311180636%_)) + (gx#stx-null? _%tl183894184094%_)) + (_%__match190123190124%_ + _%e183880184057%_ + _%hd183881184060%_ + _%tl183882184062%_ + _%e183883184065%_ + _%hd183884184068%_ + _%tl183885184070%_ + _%e183886184073%_ + _%hd183887184076%_ + _%tl183888184078%_ + _%e183889184081%_ + _%hd183890184084%_ + _%tl183891184086%_ + _%e183892184089%_ + _%hd183893184092%_ + _%tl183894184094%_ + _%e183895184097%_ + _%hd183896184100%_ + _%tl183897184102%_ + _%e183898184105%_ + _%hd183899184108%_ + _%tl183900184110%_) + (_%__match190177190178%_ + _%e183880184057%_ + _%hd183881184060%_ + _%tl183882184062%_ + _%e183883184065%_ + _%hd183884184068%_ + _%tl183885184070%_ + _%e183886184073%_ + _%hd183887184076%_ + _%tl183888184078%_ + _%e183889184081%_ + _%hd183890184084%_ + _%tl183891184086%_ + _%e183892184089%_ + _%hd183893184092%_ + _%tl183894184094%_ + _%e183895184097%_ + _%hd183896184100%_ + _%tl183897184102%_ + _%e183898184105%_ + _%hd183899184108%_ + _%tl183900184110%_)))) + (_%__match190067190068%_ + (lambda (_%e183845184153%_ + _%hd183846184156%_ + _%tl183847184158%_ + _%e183848184161%_ + _%hd183849184164%_ + _%tl183850184166%_ + _%e183851184169%_ + _%hd183852184172%_ + _%tl183853184174%_ + _%e183854184177%_ + _%hd183855184180%_ + _%tl183856184182%_ + _%e183857184185%_ + _%hd183858184188%_ + _%tl183859184190%_ + _%e183860184193%_ + _%hd183861184196%_ + _%tl183862184198%_ + _%e183863184201%_ + _%hd183864184204%_ + _%tl183865184206%_ + _%e183866184209%_ + _%hd183867184212%_ + _%tl183868184214%_ + _%e183869184217%_ + _%hd183870184220%_ + _%tl183871184222%_ + _%e183872184225%_ + _%hd183873184228%_ + _%tl183874184230%_ + _%e183875184233%_ + _%hd183876184236%_ + _%tl183877184238%_) + (let ((_%g183841184241%_ _%hd183876184236%_) + (_%g183842184242%_ _%hd183873184228%_) + (_%g183843184243%_ _%hd183864184204%_) + (_%g183844184244%_ _%hd183855184180%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L180700%_ + _%g183844184244%_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L180700%_ + _%g183844184244%_ 'unchecked-slot-set!))) - (let ((__tmp186864 + (let ((__tmp190377 (let () (declare (not safe)) (slot-ref__0 - _%self180155%_ + _%self183699%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L180699%_ - __tmp186864))) - (_%__kont186185186186%_ - _%L180697%_ - _%L180698%_ - _%L180699%_ - _%L180700%_) - (_%__kont186191186192%_))))) - (_%__match186546186547%_ - (lambda (_%e180301180609%_ - _%hd180302180612%_ - _%tl180303180614%_ - _%e180304180617%_ - _%hd180305180620%_ - _%tl180306180622%_ - _%e180307180625%_ - _%hd180308180628%_ - _%tl180309180630%_ - _%e180310180633%_ - _%hd180311180636%_ - _%tl180312180638%_ - _%e180313180641%_ - _%hd180314180644%_ - _%tl180315180646%_ - _%e180316180649%_ - _%hd180317180652%_ - _%tl180318180654%_ - _%e180319180657%_ - _%hd180320180660%_ - _%tl180321180662%_ - _%e180322180665%_ - _%hd180323180668%_ - _%tl180324180670%_ - _%e180325180673%_ - _%hd180326180676%_ - _%tl180327180678%_ - _%e180328180681%_ - _%hd180329180684%_ - _%tl180330180686%_) + _%g183843184243%_ + __tmp190377))) + (_%__kont189698189699%_ + _%g183841184241%_ + _%g183842184242%_ + _%g183843184243%_ + _%g183844184244%_) + (_%__kont189704189705%_))))) + (_%__match190059190060%_ + (lambda (_%e183845184153%_ + _%hd183846184156%_ + _%tl183847184158%_ + _%e183848184161%_ + _%hd183849184164%_ + _%tl183850184166%_ + _%e183851184169%_ + _%hd183852184172%_ + _%tl183853184174%_ + _%e183854184177%_ + _%hd183855184180%_ + _%tl183856184182%_ + _%e183857184185%_ + _%hd183858184188%_ + _%tl183859184190%_ + _%e183860184193%_ + _%hd183861184196%_ + _%tl183862184198%_ + _%e183863184201%_ + _%hd183864184204%_ + _%tl183865184206%_ + _%e183866184209%_ + _%hd183867184212%_ + _%tl183868184214%_ + _%e183869184217%_ + _%hd183870184220%_ + _%tl183871184222%_ + _%e183872184225%_ + _%hd183873184228%_ + _%tl183874184230%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180324180670%_)) - (let ((_%e180331180689%_ + (gx#stx-pair? _%tl183868184214%_)) + (let ((_%e183875184233%_ (let () (declare (not safe)) - (gx#stx-e _%tl180324180670%_)))) - (let ((_%tl180333180694%_ + (gx#stx-e _%tl183868184214%_)))) + (let ((_%tl183877184238%_ (let () (declare (not safe)) - (##cdr _%e180331180689%_))) - (_%hd180332180692%_ + (##cdr _%e183875184233%_))) + (_%hd183876184236%_ (let () (declare (not safe)) - (##car _%e180331180689%_)))) + (##car _%e183875184233%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180333180694%_)) - (_%__match186554186555%_ - _%e180301180609%_ - _%hd180302180612%_ - _%tl180303180614%_ - _%e180304180617%_ - _%hd180305180620%_ - _%tl180306180622%_ - _%e180307180625%_ - _%hd180308180628%_ - _%tl180309180630%_ - _%e180310180633%_ - _%hd180311180636%_ - _%tl180312180638%_ - _%e180313180641%_ - _%hd180314180644%_ - _%tl180315180646%_ - _%e180316180649%_ - _%hd180317180652%_ - _%tl180318180654%_ - _%e180319180657%_ - _%hd180320180660%_ - _%tl180321180662%_ - _%e180322180665%_ - _%hd180323180668%_ - _%tl180324180670%_ - _%e180325180673%_ - _%hd180326180676%_ - _%tl180327180678%_ - _%e180328180681%_ - _%hd180329180684%_ - _%tl180330180686%_ - _%e180331180689%_ - _%hd180332180692%_ - _%tl180333180694%_) - (_%__kont186191186192%_)))) - (_%__match186670186671%_ - _%e180301180609%_ - _%hd180302180612%_ - _%tl180303180614%_ - _%e180304180617%_ - _%hd180305180620%_ - _%tl180306180622%_ - _%e180307180625%_ - _%hd180308180628%_ - _%tl180309180630%_ - _%e180310180633%_ - _%hd180311180636%_ - _%tl180312180638%_ - _%e180313180641%_ - _%hd180314180644%_ - _%tl180315180646%_ - _%e180316180649%_ - _%hd180317180652%_ - _%tl180318180654%_ - _%e180319180657%_ - _%hd180320180660%_ - _%tl180321180662%_ - _%e180322180665%_ - _%hd180323180668%_ - _%tl180324180670%_)))) - (_%__match186468186469%_ - (lambda (_%e180267180743%_ - _%hd180268180746%_ - _%tl180269180748%_ - _%e180270180751%_ - _%hd180271180754%_ - _%tl180272180756%_ - _%e180273180759%_ - _%hd180274180762%_ - _%tl180275180764%_ - _%e180276180767%_ - _%hd180277180770%_ - _%tl180278180772%_ - _%e180279180775%_ - _%hd180280180778%_ - _%tl180281180780%_ - _%e180282180783%_ - _%hd180283180786%_ - _%tl180284180788%_ - _%e180285180791%_ - _%hd180286180794%_ - _%tl180287180796%_ - _%e180288180799%_ - _%hd180289180802%_ - _%tl180290180804%_ - _%e180291180807%_ - _%hd180292180810%_ - _%tl180293180812%_ - _%e180294180815%_ - _%hd180295180818%_ - _%tl180296180820%_) - (let ((_%L180823%_ _%hd180295180818%_) - (_%L180824%_ _%hd180286180794%_) - (_%L180825%_ _%hd180277180770%_)) + (gx#stx-null? _%tl183877184238%_)) + (_%__match190067190068%_ + _%e183845184153%_ + _%hd183846184156%_ + _%tl183847184158%_ + _%e183848184161%_ + _%hd183849184164%_ + _%tl183850184166%_ + _%e183851184169%_ + _%hd183852184172%_ + _%tl183853184174%_ + _%e183854184177%_ + _%hd183855184180%_ + _%tl183856184182%_ + _%e183857184185%_ + _%hd183858184188%_ + _%tl183859184190%_ + _%e183860184193%_ + _%hd183861184196%_ + _%tl183862184198%_ + _%e183863184201%_ + _%hd183864184204%_ + _%tl183865184206%_ + _%e183866184209%_ + _%hd183867184212%_ + _%tl183868184214%_ + _%e183869184217%_ + _%hd183870184220%_ + _%tl183871184222%_ + _%e183872184225%_ + _%hd183873184228%_ + _%tl183874184230%_ + _%e183875184233%_ + _%hd183876184236%_ + _%tl183877184238%_) + (_%__kont189704189705%_)))) + (_%__match190183190184%_ + _%e183845184153%_ + _%hd183846184156%_ + _%tl183847184158%_ + _%e183848184161%_ + _%hd183849184164%_ + _%tl183850184166%_ + _%e183851184169%_ + _%hd183852184172%_ + _%tl183853184174%_ + _%e183854184177%_ + _%hd183855184180%_ + _%tl183856184182%_ + _%e183857184185%_ + _%hd183858184188%_ + _%tl183859184190%_ + _%e183860184193%_ + _%hd183861184196%_ + _%tl183862184198%_ + _%e183863184201%_ + _%hd183864184204%_ + _%tl183865184206%_ + _%e183866184209%_ + _%hd183867184212%_ + _%tl183868184214%_)))) + (_%__match189981189982%_ + (lambda (_%e183811184287%_ + _%hd183812184290%_ + _%tl183813184292%_ + _%e183814184295%_ + _%hd183815184298%_ + _%tl183816184300%_ + _%e183817184303%_ + _%hd183818184306%_ + _%tl183819184308%_ + _%e183820184311%_ + _%hd183821184314%_ + _%tl183822184316%_ + _%e183823184319%_ + _%hd183824184322%_ + _%tl183825184324%_ + _%e183826184327%_ + _%hd183827184330%_ + _%tl183828184332%_ + _%e183829184335%_ + _%hd183830184338%_ + _%tl183831184340%_ + _%e183832184343%_ + _%hd183833184346%_ + _%tl183834184348%_ + _%e183835184351%_ + _%hd183836184354%_ + _%tl183837184356%_ + _%e183838184359%_ + _%hd183839184362%_ + _%tl183840184364%_) + (let ((_%g183808184367%_ _%hd183839184362%_) + (_%g183809184368%_ _%hd183830184338%_) + (_%g183810184369%_ _%hd183821184314%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L180825%_ + _%g183810184369%_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L180825%_ + _%g183810184369%_ 'unchecked-slot-ref))) - (let ((__tmp186865 + (let ((__tmp190378 (let () (declare (not safe)) (slot-ref__0 - _%self180155%_ + _%self183699%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L180824%_ - __tmp186865))) - (_%__kont186183186184%_ - _%L180823%_ - _%L180824%_ - _%L180825%_) - (_%__match186672186673%_ - _%e180267180743%_ - _%hd180268180746%_ - _%tl180269180748%_ - _%e180270180751%_ - _%hd180271180754%_ - _%tl180272180756%_ - _%e180273180759%_ - _%hd180274180762%_ - _%tl180275180764%_ - _%e180276180767%_ - _%hd180277180770%_ - _%tl180278180772%_ - _%e180279180775%_ - _%hd180280180778%_ - _%tl180281180780%_ - _%e180282180783%_ - _%hd180283180786%_ - _%tl180284180788%_ - _%e180285180791%_ - _%hd180286180794%_ - _%tl180287180796%_ - _%e180288180799%_ - _%hd180289180802%_ - _%tl180290180804%_))))) - (_%__match186466186467%_ - (lambda (_%e180267180743%_ - _%hd180268180746%_ - _%tl180269180748%_ - _%e180270180751%_ - _%hd180271180754%_ - _%tl180272180756%_ - _%e180273180759%_ - _%hd180274180762%_ - _%tl180275180764%_ - _%e180276180767%_ - _%hd180277180770%_ - _%tl180278180772%_ - _%e180279180775%_ - _%hd180280180778%_ - _%tl180281180780%_ - _%e180282180783%_ - _%hd180283180786%_ - _%tl180284180788%_ - _%e180285180791%_ - _%hd180286180794%_ - _%tl180287180796%_ - _%e180288180799%_ - _%hd180289180802%_ - _%tl180290180804%_ - _%e180291180807%_ - _%hd180292180810%_ - _%tl180293180812%_ - _%e180294180815%_ - _%hd180295180818%_ - _%tl180296180820%_) + _%g183809184368%_ + __tmp190378))) + (_%__kont189696189697%_ + _%g183808184367%_ + _%g183809184368%_ + _%g183810184369%_) + (_%__match190185190186%_ + _%e183811184287%_ + _%hd183812184290%_ + _%tl183813184292%_ + _%e183814184295%_ + _%hd183815184298%_ + _%tl183816184300%_ + _%e183817184303%_ + _%hd183818184306%_ + _%tl183819184308%_ + _%e183820184311%_ + _%hd183821184314%_ + _%tl183822184316%_ + _%e183823184319%_ + _%hd183824184322%_ + _%tl183825184324%_ + _%e183826184327%_ + _%hd183827184330%_ + _%tl183828184332%_ + _%e183829184335%_ + _%hd183830184338%_ + _%tl183831184340%_ + _%e183832184343%_ + _%hd183833184346%_ + _%tl183834184348%_))))) + (_%__match189979189980%_ + (lambda (_%e183811184287%_ + _%hd183812184290%_ + _%tl183813184292%_ + _%e183814184295%_ + _%hd183815184298%_ + _%tl183816184300%_ + _%e183817184303%_ + _%hd183818184306%_ + _%tl183819184308%_ + _%e183820184311%_ + _%hd183821184314%_ + _%tl183822184316%_ + _%e183823184319%_ + _%hd183824184322%_ + _%tl183825184324%_ + _%e183826184327%_ + _%hd183827184330%_ + _%tl183828184332%_ + _%e183829184335%_ + _%hd183830184338%_ + _%tl183831184340%_ + _%e183832184343%_ + _%hd183833184346%_ + _%tl183834184348%_ + _%e183835184351%_ + _%hd183836184354%_ + _%tl183837184356%_ + _%e183838184359%_ + _%hd183839184362%_ + _%tl183840184364%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180290180804%_)) - (_%__match186468186469%_ - _%e180267180743%_ - _%hd180268180746%_ - _%tl180269180748%_ - _%e180270180751%_ - _%hd180271180754%_ - _%tl180272180756%_ - _%e180273180759%_ - _%hd180274180762%_ - _%tl180275180764%_ - _%e180276180767%_ - _%hd180277180770%_ - _%tl180278180772%_ - _%e180279180775%_ - _%hd180280180778%_ - _%tl180281180780%_ - _%e180282180783%_ - _%hd180283180786%_ - _%tl180284180788%_ - _%e180285180791%_ - _%hd180286180794%_ - _%tl180287180796%_ - _%e180288180799%_ - _%hd180289180802%_ - _%tl180290180804%_ - _%e180291180807%_ - _%hd180292180810%_ - _%tl180293180812%_ - _%e180294180815%_ - _%hd180295180818%_ - _%tl180296180820%_) - (_%__match186546186547%_ - _%e180267180743%_ - _%hd180268180746%_ - _%tl180269180748%_ - _%e180270180751%_ - _%hd180271180754%_ - _%tl180272180756%_ - _%e180273180759%_ - _%hd180274180762%_ - _%tl180275180764%_ - _%e180276180767%_ - _%hd180277180770%_ - _%tl180278180772%_ - _%e180279180775%_ - _%hd180280180778%_ - _%tl180281180780%_ - _%e180282180783%_ - _%hd180283180786%_ - _%tl180284180788%_ - _%e180285180791%_ - _%hd180286180794%_ - _%tl180287180796%_ - _%e180288180799%_ - _%hd180289180802%_ - _%tl180290180804%_ - _%e180291180807%_ - _%hd180292180810%_ - _%tl180293180812%_ - _%e180294180815%_ - _%hd180295180818%_ - _%tl180296180820%_)))) - (_%__match186456186457%_ - (lambda (_%e180267180743%_ - _%hd180268180746%_ - _%tl180269180748%_ - _%e180270180751%_ - _%hd180271180754%_ - _%tl180272180756%_ - _%e180273180759%_ - _%hd180274180762%_ - _%tl180275180764%_ - _%e180276180767%_ - _%hd180277180770%_ - _%tl180278180772%_ - _%e180279180775%_ - _%hd180280180778%_ - _%tl180281180780%_ - _%e180282180783%_ - _%hd180283180786%_ - _%tl180284180788%_ - _%e180285180791%_ - _%hd180286180794%_ - _%tl180287180796%_ - _%e180288180799%_ - _%hd180289180802%_ - _%tl180290180804%_ - _%e180291180807%_ - _%hd180292180810%_ - _%tl180293180812%_) + (gx#stx-null? _%tl183834184348%_)) + (_%__match189981189982%_ + _%e183811184287%_ + _%hd183812184290%_ + _%tl183813184292%_ + _%e183814184295%_ + _%hd183815184298%_ + _%tl183816184300%_ + _%e183817184303%_ + _%hd183818184306%_ + _%tl183819184308%_ + _%e183820184311%_ + _%hd183821184314%_ + _%tl183822184316%_ + _%e183823184319%_ + _%hd183824184322%_ + _%tl183825184324%_ + _%e183826184327%_ + _%hd183827184330%_ + _%tl183828184332%_ + _%e183829184335%_ + _%hd183830184338%_ + _%tl183831184340%_ + _%e183832184343%_ + _%hd183833184346%_ + _%tl183834184348%_ + _%e183835184351%_ + _%hd183836184354%_ + _%tl183837184356%_ + _%e183838184359%_ + _%hd183839184362%_ + _%tl183840184364%_) + (_%__match190059190060%_ + _%e183811184287%_ + _%hd183812184290%_ + _%tl183813184292%_ + _%e183814184295%_ + _%hd183815184298%_ + _%tl183816184300%_ + _%e183817184303%_ + _%hd183818184306%_ + _%tl183819184308%_ + _%e183820184311%_ + _%hd183821184314%_ + _%tl183822184316%_ + _%e183823184319%_ + _%hd183824184322%_ + _%tl183825184324%_ + _%e183826184327%_ + _%hd183827184330%_ + _%tl183828184332%_ + _%e183829184335%_ + _%hd183830184338%_ + _%tl183831184340%_ + _%e183832184343%_ + _%hd183833184346%_ + _%tl183834184348%_ + _%e183835184351%_ + _%hd183836184354%_ + _%tl183837184356%_ + _%e183838184359%_ + _%hd183839184362%_ + _%tl183840184364%_)))) + (_%__match189969189970%_ + (lambda (_%e183811184287%_ + _%hd183812184290%_ + _%tl183813184292%_ + _%e183814184295%_ + _%hd183815184298%_ + _%tl183816184300%_ + _%e183817184303%_ + _%hd183818184306%_ + _%tl183819184308%_ + _%e183820184311%_ + _%hd183821184314%_ + _%tl183822184316%_ + _%e183823184319%_ + _%hd183824184322%_ + _%tl183825184324%_ + _%e183826184327%_ + _%hd183827184330%_ + _%tl183828184332%_ + _%e183829184335%_ + _%hd183830184338%_ + _%tl183831184340%_ + _%e183832184343%_ + _%hd183833184346%_ + _%tl183834184348%_ + _%e183835184351%_ + _%hd183836184354%_ + _%tl183837184356%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd180292180810%_)) + (gx#stx-eq? '%#quote _%hd183836184354%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180293180812%_)) - (let ((_%e180294180815%_ + (gx#stx-pair? _%tl183837184356%_)) + (let ((_%e183838184359%_ (let () (declare (not safe)) - (gx#stx-e _%tl180293180812%_)))) - (let ((_%tl180296180820%_ + (gx#stx-e _%tl183837184356%_)))) + (let ((_%tl183840184364%_ (let () (declare (not safe)) - (##cdr _%e180294180815%_))) - (_%hd180295180818%_ + (##cdr _%e183838184359%_))) + (_%hd183839184362%_ (let () (declare (not safe)) - (##car _%e180294180815%_)))) + (##car _%e183838184359%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180296180820%_)) + (gx#stx-null? _%tl183840184364%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180290180804%_)) - (_%__match186468186469%_ - _%e180267180743%_ - _%hd180268180746%_ - _%tl180269180748%_ - _%e180270180751%_ - _%hd180271180754%_ - _%tl180272180756%_ - _%e180273180759%_ - _%hd180274180762%_ - _%tl180275180764%_ - _%e180276180767%_ - _%hd180277180770%_ - _%tl180278180772%_ - _%e180279180775%_ - _%hd180280180778%_ - _%tl180281180780%_ - _%e180282180783%_ - _%hd180283180786%_ - _%tl180284180788%_ - _%e180285180791%_ - _%hd180286180794%_ - _%tl180287180796%_ - _%e180288180799%_ - _%hd180289180802%_ - _%tl180290180804%_ - _%e180291180807%_ - _%hd180292180810%_ - _%tl180293180812%_ - _%e180294180815%_ - _%hd180295180818%_ - _%tl180296180820%_) - (_%__match186546186547%_ - _%e180267180743%_ - _%hd180268180746%_ - _%tl180269180748%_ - _%e180270180751%_ - _%hd180271180754%_ - _%tl180272180756%_ - _%e180273180759%_ - _%hd180274180762%_ - _%tl180275180764%_ - _%e180276180767%_ - _%hd180277180770%_ - _%tl180278180772%_ - _%e180279180775%_ - _%hd180280180778%_ - _%tl180281180780%_ - _%e180282180783%_ - _%hd180283180786%_ - _%tl180284180788%_ - _%e180285180791%_ - _%hd180286180794%_ - _%tl180287180796%_ - _%e180288180799%_ - _%hd180289180802%_ - _%tl180290180804%_ - _%e180291180807%_ - _%hd180292180810%_ - _%tl180293180812%_ - _%e180294180815%_ - _%hd180295180818%_ - _%tl180296180820%_)) - (_%__match186670186671%_ - _%e180267180743%_ - _%hd180268180746%_ - _%tl180269180748%_ - _%e180270180751%_ - _%hd180271180754%_ - _%tl180272180756%_ - _%e180273180759%_ - _%hd180274180762%_ - _%tl180275180764%_ - _%e180276180767%_ - _%hd180277180770%_ - _%tl180278180772%_ - _%e180279180775%_ - _%hd180280180778%_ - _%tl180281180780%_ - _%e180282180783%_ - _%hd180283180786%_ - _%tl180284180788%_ - _%e180285180791%_ - _%hd180286180794%_ - _%tl180287180796%_ - _%e180288180799%_ - _%hd180289180802%_ - _%tl180290180804%_)))) - (_%__match186670186671%_ - _%e180267180743%_ - _%hd180268180746%_ - _%tl180269180748%_ - _%e180270180751%_ - _%hd180271180754%_ - _%tl180272180756%_ - _%e180273180759%_ - _%hd180274180762%_ - _%tl180275180764%_ - _%e180276180767%_ - _%hd180277180770%_ - _%tl180278180772%_ - _%e180279180775%_ - _%hd180280180778%_ - _%tl180281180780%_ - _%e180282180783%_ - _%hd180283180786%_ - _%tl180284180788%_ - _%e180285180791%_ - _%hd180286180794%_ - _%tl180287180796%_ - _%e180288180799%_ - _%hd180289180802%_ - _%tl180290180804%_)) - (_%__match186670186671%_ - _%e180267180743%_ - _%hd180268180746%_ - _%tl180269180748%_ - _%e180270180751%_ - _%hd180271180754%_ - _%tl180272180756%_ - _%e180273180759%_ - _%hd180274180762%_ - _%tl180275180764%_ - _%e180276180767%_ - _%hd180277180770%_ - _%tl180278180772%_ - _%e180279180775%_ - _%hd180280180778%_ - _%tl180281180780%_ - _%e180282180783%_ - _%hd180283180786%_ - _%tl180284180788%_ - _%e180285180791%_ - _%hd180286180794%_ - _%tl180287180796%_ - _%e180288180799%_ - _%hd180289180802%_ - _%tl180290180804%_)))) - (_%__match186388186389%_ - (lambda (_%e180216180864%_ - _%hd180217180867%_ - _%tl180218180869%_ - _%e180219180872%_ - _%hd180220180875%_ - _%tl180221180877%_ - _%e180222180880%_ - _%hd180223180883%_ - _%tl180224180885%_ - _%e180225180888%_ - _%hd180226180891%_ - _%tl180227180893%_ - _%e180228180896%_ - _%hd180229180899%_ - _%tl180230180901%_ - _%e180231180904%_ - _%hd180232180907%_ - _%tl180233180909%_ - _%e180234180912%_ - _%hd180235180915%_ - _%tl180236180917%_ - _%e180237180920%_ - _%hd180238180923%_ - _%tl180239180925%_ - _%e180240180928%_ - _%hd180241180931%_ - _%tl180242180933%_ - _%e180243180936%_ - _%hd180244180939%_ - _%tl180245180941%_ - _%e180246180944%_ - _%hd180247180947%_ - _%tl180248180949%_ - _%e180249180952%_ - _%hd180250180955%_ - _%tl180251180957%_ - _%e180252180960%_ - _%hd180253180963%_ - _%tl180254180965%_ - _%__splice186181186182%_ - _%target180255180968%_ - _%tl180257180970%_) - (letrec ((_%loop180258180973%_ - (lambda (_%hd180256180976%_ - _%args180262180978%_) + _%tl183834184348%_)) + (_%__match189981189982%_ + _%e183811184287%_ + _%hd183812184290%_ + _%tl183813184292%_ + _%e183814184295%_ + _%hd183815184298%_ + _%tl183816184300%_ + _%e183817184303%_ + _%hd183818184306%_ + _%tl183819184308%_ + _%e183820184311%_ + _%hd183821184314%_ + _%tl183822184316%_ + _%e183823184319%_ + _%hd183824184322%_ + _%tl183825184324%_ + _%e183826184327%_ + _%hd183827184330%_ + _%tl183828184332%_ + _%e183829184335%_ + _%hd183830184338%_ + _%tl183831184340%_ + _%e183832184343%_ + _%hd183833184346%_ + _%tl183834184348%_ + _%e183835184351%_ + _%hd183836184354%_ + _%tl183837184356%_ + _%e183838184359%_ + _%hd183839184362%_ + _%tl183840184364%_) + (_%__match190059190060%_ + _%e183811184287%_ + _%hd183812184290%_ + _%tl183813184292%_ + _%e183814184295%_ + _%hd183815184298%_ + _%tl183816184300%_ + _%e183817184303%_ + _%hd183818184306%_ + _%tl183819184308%_ + _%e183820184311%_ + _%hd183821184314%_ + _%tl183822184316%_ + _%e183823184319%_ + _%hd183824184322%_ + _%tl183825184324%_ + _%e183826184327%_ + _%hd183827184330%_ + _%tl183828184332%_ + _%e183829184335%_ + _%hd183830184338%_ + _%tl183831184340%_ + _%e183832184343%_ + _%hd183833184346%_ + _%tl183834184348%_ + _%e183835184351%_ + _%hd183836184354%_ + _%tl183837184356%_ + _%e183838184359%_ + _%hd183839184362%_ + _%tl183840184364%_)) + (_%__match190183190184%_ + _%e183811184287%_ + _%hd183812184290%_ + _%tl183813184292%_ + _%e183814184295%_ + _%hd183815184298%_ + _%tl183816184300%_ + _%e183817184303%_ + _%hd183818184306%_ + _%tl183819184308%_ + _%e183820184311%_ + _%hd183821184314%_ + _%tl183822184316%_ + _%e183823184319%_ + _%hd183824184322%_ + _%tl183825184324%_ + _%e183826184327%_ + _%hd183827184330%_ + _%tl183828184332%_ + _%e183829184335%_ + _%hd183830184338%_ + _%tl183831184340%_ + _%e183832184343%_ + _%hd183833184346%_ + _%tl183834184348%_)))) + (_%__match190183190184%_ + _%e183811184287%_ + _%hd183812184290%_ + _%tl183813184292%_ + _%e183814184295%_ + _%hd183815184298%_ + _%tl183816184300%_ + _%e183817184303%_ + _%hd183818184306%_ + _%tl183819184308%_ + _%e183820184311%_ + _%hd183821184314%_ + _%tl183822184316%_ + _%e183823184319%_ + _%hd183824184322%_ + _%tl183825184324%_ + _%e183826184327%_ + _%hd183827184330%_ + _%tl183828184332%_ + _%e183829184335%_ + _%hd183830184338%_ + _%tl183831184340%_ + _%e183832184343%_ + _%hd183833184346%_ + _%tl183834184348%_)) + (_%__match190183190184%_ + _%e183811184287%_ + _%hd183812184290%_ + _%tl183813184292%_ + _%e183814184295%_ + _%hd183815184298%_ + _%tl183816184300%_ + _%e183817184303%_ + _%hd183818184306%_ + _%tl183819184308%_ + _%e183820184311%_ + _%hd183821184314%_ + _%tl183822184316%_ + _%e183823184319%_ + _%hd183824184322%_ + _%tl183825184324%_ + _%e183826184327%_ + _%hd183827184330%_ + _%tl183828184332%_ + _%e183829184335%_ + _%hd183830184338%_ + _%tl183831184340%_ + _%e183832184343%_ + _%hd183833184346%_ + _%tl183834184348%_)))) + (_%__match189901189902%_ + (lambda (_%e183760184408%_ + _%hd183761184411%_ + _%tl183762184413%_ + _%e183763184416%_ + _%hd183764184419%_ + _%tl183765184421%_ + _%e183766184424%_ + _%hd183767184427%_ + _%tl183768184429%_ + _%e183769184432%_ + _%hd183770184435%_ + _%tl183771184437%_ + _%e183772184440%_ + _%hd183773184443%_ + _%tl183774184445%_ + _%e183775184448%_ + _%hd183776184451%_ + _%tl183777184453%_ + _%e183778184456%_ + _%hd183779184459%_ + _%tl183780184461%_ + _%e183781184464%_ + _%hd183782184467%_ + _%tl183783184469%_ + _%e183784184472%_ + _%hd183785184475%_ + _%tl183786184477%_ + _%e183787184480%_ + _%hd183788184483%_ + _%tl183789184485%_ + _%e183790184488%_ + _%hd183791184491%_ + _%tl183792184493%_ + _%e183793184496%_ + _%hd183794184499%_ + _%tl183795184501%_ + _%e183796184504%_ + _%hd183797184507%_ + _%tl183798184509%_ + _%__splice189694189695%_ + _%target183799184512%_ + _%tl183801184514%_) + (letrec ((_%loop183802184517%_ + (lambda (_%hd183800184520%_ + _%args183806184522%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180256180976%_)) - (let ((_%e180259180981%_ + (gx#stx-pair? _%hd183800184520%_)) + (let ((_%e183803184524%_ (let () (declare (not safe)) (gx#stx-e - _%hd180256180976%_)))) - (let ((_%lp-tl180261180986%_ + _%hd183800184520%_)))) + (let ((_%lp-tl183805184529%_ (let () (declare (not safe)) - (##cdr _%e180259180981%_))) - (_%lp-hd180260180984%_ + (##cdr _%e183803184524%_))) + (_%lp-hd183804184527%_ (let () (declare (not safe)) - (##car _%e180259180981%_)))) - (_%loop180258180973%_ - _%lp-tl180261180986%_ - (cons _%lp-hd180260180984%_ - _%args180262180978%_)))) - (let ((_%args180263180989%_ - (reverse _%args180262180978%_))) - (let ((_%L180992%_ - _%args180263180989%_) - (_%L180993%_ - _%hd180253180963%_) - (_%L180994%_ - _%hd180244180939%_) - (_%L180995%_ - _%hd180235180915%_) - (_%L180996%_ - _%hd180226180891%_)) + (##car _%e183803184524%_)))) + (_%loop183802184517%_ + _%lp-tl183805184529%_ + (cons _%lp-hd183804184527%_ + _%args183806184522%_)))) + (let ((_%args183807184532%_ + (reverse _%args183806184522%_))) + (let ((_%g183755184534%_ + _%args183807184532%_) + (_%g183756184535%_ + _%hd183797184507%_) + (_%g183757184536%_ + _%hd183788184483%_) + (_%g183758184537%_ + _%hd183779184459%_) + (_%g183759184538%_ + _%hd183770184435%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L180996%_ + _%g183759184538%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L180995%_ + _%g183758184537%_ 'call-method)) - (let ((__tmp186866 + (let ((__tmp190379 (let () (declare (not safe)) (slot-ref__0 - _%self180155%_ + _%self183699%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L180994%_ - __tmp186866))) - (_%__kont186179186180%_ - _%L180992%_ - _%L180993%_ - _%L180994%_ - _%L180995%_ - _%L180996%_) - (_%__kont186191186192%_)))))))) - (_%loop180258180973%_ _%target180255180968%_ '())))) - (_%__match186346186347%_ - (lambda (_%e180216180864%_ - _%hd180217180867%_ - _%tl180218180869%_ - _%e180219180872%_ - _%hd180220180875%_ - _%tl180221180877%_ - _%e180222180880%_ - _%hd180223180883%_ - _%tl180224180885%_ - _%e180225180888%_ - _%hd180226180891%_ - _%tl180227180893%_ - _%e180228180896%_ - _%hd180229180899%_ - _%tl180230180901%_ - _%e180231180904%_ - _%hd180232180907%_ - _%tl180233180909%_ - _%e180234180912%_ - _%hd180235180915%_ - _%tl180236180917%_ - _%e180237180920%_ - _%hd180238180923%_ - _%tl180239180925%_ - _%e180240180928%_ - _%hd180241180931%_ - _%tl180242180933%_) + _%g183757184536%_ + __tmp190379))) + (_%__kont189692189693%_ + _%g183755184534%_ + _%g183756184535%_ + _%g183757184536%_ + _%g183758184537%_ + _%g183759184538%_) + (_%__kont189704189705%_)))))))) + (_%loop183802184517%_ _%target183799184512%_ '())))) + (_%__match189859189860%_ + (lambda (_%e183760184408%_ + _%hd183761184411%_ + _%tl183762184413%_ + _%e183763184416%_ + _%hd183764184419%_ + _%tl183765184421%_ + _%e183766184424%_ + _%hd183767184427%_ + _%tl183768184429%_ + _%e183769184432%_ + _%hd183770184435%_ + _%tl183771184437%_ + _%e183772184440%_ + _%hd183773184443%_ + _%tl183774184445%_ + _%e183775184448%_ + _%hd183776184451%_ + _%tl183777184453%_ + _%e183778184456%_ + _%hd183779184459%_ + _%tl183780184461%_ + _%e183781184464%_ + _%hd183782184467%_ + _%tl183783184469%_ + _%e183784184472%_ + _%hd183785184475%_ + _%tl183786184477%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd180241180931%_)) + (gx#stx-eq? '%#ref _%hd183785184475%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180242180933%_)) - (let ((_%e180243180936%_ + (gx#stx-pair? _%tl183786184477%_)) + (let ((_%e183787184480%_ (let () (declare (not safe)) - (gx#stx-e _%tl180242180933%_)))) - (let ((_%tl180245180941%_ + (gx#stx-e _%tl183786184477%_)))) + (let ((_%tl183789184485%_ (let () (declare (not safe)) - (##cdr _%e180243180936%_))) - (_%hd180244180939%_ + (##cdr _%e183787184480%_))) + (_%hd183788184483%_ (let () (declare (not safe)) - (##car _%e180243180936%_)))) + (##car _%e183787184480%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180245180941%_)) + (gx#stx-null? _%tl183789184485%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180239180925%_)) - (let ((_%e180246180944%_ + _%tl183783184469%_)) + (let ((_%e183790184488%_ (let () (declare (not safe)) (gx#stx-e - _%tl180239180925%_)))) - (let ((_%tl180248180949%_ + _%tl183783184469%_)))) + (let ((_%tl183792184493%_ (let () (declare (not safe)) - (##cdr _%e180246180944%_))) - (_%hd180247180947%_ + (##cdr _%e183790184488%_))) + (_%hd183791184491%_ (let () (declare (not safe)) - (##car _%e180246180944%_)))) + (##car _%e183790184488%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180247180947%_)) - (let ((_%e180249180952%_ + _%hd183791184491%_)) + (let ((_%e183793184496%_ (let () (declare (not safe)) (gx#stx-e - _%hd180247180947%_)))) - (let ((_%tl180251180957%_ + _%hd183791184491%_)))) + (let ((_%tl183795184501%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e180249180952%_))) - (_%hd180250180955%_ - (let () (declare (not safe)) (##car _%e180249180952%_)))) + (##cdr _%e183793184496%_))) + (_%hd183794184499%_ + (let () (declare (not safe)) (##car _%e183793184496%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180250180955%_)) + (gx#identifier? _%hd183794184499%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd180250180955%_)) + (gx#stx-eq? '%#quote _%hd183794184499%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180251180957%_)) - (let ((_%e180252180960%_ + (gx#stx-pair? _%tl183795184501%_)) + (let ((_%e183796184504%_ (let () (declare (not safe)) - (gx#stx-e _%tl180251180957%_)))) - (let ((_%tl180254180965%_ + (gx#stx-e _%tl183795184501%_)))) + (let ((_%tl183798184509%_ (let () (declare (not safe)) - (##cdr _%e180252180960%_))) - (_%hd180253180963%_ + (##cdr _%e183796184504%_))) + (_%hd183797184507%_ (let () (declare (not safe)) - (##car _%e180252180960%_)))) + (##car _%e183796184504%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180254180965%_)) + (gx#stx-null? _%tl183798184509%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl180248180949%_)) - (let ((_%__splice186181186182%_ + _%tl183792184493%_)) + (let ((_%__splice189694189695%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl180248180949%_ + _%tl183792184493%_ '0)))) - (let ((_%tl180257180970%_ + (let ((_%tl183801184514%_ (let () (declare (not safe)) (##vector-ref - _%__splice186181186182%_ + _%__splice189694189695%_ '1))) - (_%target180255180968%_ + (_%target183799184512%_ (let () (declare (not safe)) (##vector-ref - _%__splice186181186182%_ + _%__splice189694189695%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180257180970%_)) - (_%__match186388186389%_ - _%e180216180864%_ - _%hd180217180867%_ - _%tl180218180869%_ - _%e180219180872%_ - _%hd180220180875%_ - _%tl180221180877%_ - _%e180222180880%_ - _%hd180223180883%_ - _%tl180224180885%_ - _%e180225180888%_ - _%hd180226180891%_ - _%tl180227180893%_ - _%e180228180896%_ - _%hd180229180899%_ - _%tl180230180901%_ - _%e180231180904%_ - _%hd180232180907%_ - _%tl180233180909%_ - _%e180234180912%_ - _%hd180235180915%_ - _%tl180236180917%_ - _%e180237180920%_ - _%hd180238180923%_ - _%tl180239180925%_ - _%e180240180928%_ - _%hd180241180931%_ - _%tl180242180933%_ - _%e180243180936%_ - _%hd180244180939%_ - _%tl180245180941%_ - _%e180246180944%_ - _%hd180247180947%_ - _%tl180248180949%_ - _%e180249180952%_ - _%hd180250180955%_ - _%tl180251180957%_ - _%e180252180960%_ - _%hd180253180963%_ - _%tl180254180965%_ - _%__splice186181186182%_ - _%target180255180968%_ - _%tl180257180970%_) - (_%__kont186191186192%_)))) - (_%__kont186191186192%_)) - (_%__kont186191186192%_)))) - (_%__kont186191186192%_)) - (_%__kont186191186192%_)) - (_%__kont186191186192%_)))) + _%tl183801184514%_)) + (_%__match189901189902%_ + _%e183760184408%_ + _%hd183761184411%_ + _%tl183762184413%_ + _%e183763184416%_ + _%hd183764184419%_ + _%tl183765184421%_ + _%e183766184424%_ + _%hd183767184427%_ + _%tl183768184429%_ + _%e183769184432%_ + _%hd183770184435%_ + _%tl183771184437%_ + _%e183772184440%_ + _%hd183773184443%_ + _%tl183774184445%_ + _%e183775184448%_ + _%hd183776184451%_ + _%tl183777184453%_ + _%e183778184456%_ + _%hd183779184459%_ + _%tl183780184461%_ + _%e183781184464%_ + _%hd183782184467%_ + _%tl183783184469%_ + _%e183784184472%_ + _%hd183785184475%_ + _%tl183786184477%_ + _%e183787184480%_ + _%hd183788184483%_ + _%tl183789184485%_ + _%e183790184488%_ + _%hd183791184491%_ + _%tl183792184493%_ + _%e183793184496%_ + _%hd183794184499%_ + _%tl183795184501%_ + _%e183796184504%_ + _%hd183797184507%_ + _%tl183798184509%_ + _%__splice189694189695%_ + _%target183799184512%_ + _%tl183801184514%_) + (_%__kont189704189705%_)))) + (_%__kont189704189705%_)) + (_%__kont189704189705%_)))) + (_%__kont189704189705%_)) + (_%__kont189704189705%_)) + (_%__kont189704189705%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont186191186192%_)))) - (_%__match186670186671%_ - _%e180216180864%_ - _%hd180217180867%_ - _%tl180218180869%_ - _%e180219180872%_ - _%hd180220180875%_ - _%tl180221180877%_ - _%e180222180880%_ - _%hd180223180883%_ - _%tl180224180885%_ - _%e180225180888%_ - _%hd180226180891%_ - _%tl180227180893%_ - _%e180228180896%_ - _%hd180229180899%_ - _%tl180230180901%_ - _%e180231180904%_ - _%hd180232180907%_ - _%tl180233180909%_ - _%e180234180912%_ - _%hd180235180915%_ - _%tl180236180917%_ - _%e180237180920%_ - _%hd180238180923%_ - _%tl180239180925%_)) - (_%__match186670186671%_ - _%e180216180864%_ - _%hd180217180867%_ - _%tl180218180869%_ - _%e180219180872%_ - _%hd180220180875%_ - _%tl180221180877%_ - _%e180222180880%_ - _%hd180223180883%_ - _%tl180224180885%_ - _%e180225180888%_ - _%hd180226180891%_ - _%tl180227180893%_ - _%e180228180896%_ - _%hd180229180899%_ - _%tl180230180901%_ - _%e180231180904%_ - _%hd180232180907%_ - _%tl180233180909%_ - _%e180234180912%_ - _%hd180235180915%_ - _%tl180236180917%_ - _%e180237180920%_ - _%hd180238180923%_ - _%tl180239180925%_)))) - (_%__match186670186671%_ - _%e180216180864%_ - _%hd180217180867%_ - _%tl180218180869%_ - _%e180219180872%_ - _%hd180220180875%_ - _%tl180221180877%_ - _%e180222180880%_ - _%hd180223180883%_ - _%tl180224180885%_ - _%e180225180888%_ - _%hd180226180891%_ - _%tl180227180893%_ - _%e180228180896%_ - _%hd180229180899%_ - _%tl180230180901%_ - _%e180231180904%_ - _%hd180232180907%_ - _%tl180233180909%_ - _%e180234180912%_ - _%hd180235180915%_ - _%tl180236180917%_ - _%e180237180920%_ - _%hd180238180923%_ - _%tl180239180925%_)) - (_%__match186456186457%_ - _%e180216180864%_ - _%hd180217180867%_ - _%tl180218180869%_ - _%e180219180872%_ - _%hd180220180875%_ - _%tl180221180877%_ - _%e180222180880%_ - _%hd180223180883%_ - _%tl180224180885%_ - _%e180225180888%_ - _%hd180226180891%_ - _%tl180227180893%_ - _%e180228180896%_ - _%hd180229180899%_ - _%tl180230180901%_ - _%e180231180904%_ - _%hd180232180907%_ - _%tl180233180909%_ - _%e180234180912%_ - _%hd180235180915%_ - _%tl180236180917%_ - _%e180237180920%_ - _%hd180238180923%_ - _%tl180239180925%_ - _%e180240180928%_ - _%hd180241180931%_ - _%tl180242180933%_)))) - (_%__match186278186279%_ - (lambda (_%e180172181056%_ - _%hd180173181059%_ - _%tl180174181061%_ - _%e180175181064%_ - _%hd180176181067%_ - _%tl180177181069%_ - _%e180178181072%_ - _%hd180179181075%_ - _%tl180180181077%_ - _%e180181181080%_ - _%hd180182181083%_ - _%tl180183181085%_ - _%e180184181088%_ - _%hd180185181091%_ - _%tl180186181093%_ - _%e180187181096%_ - _%hd180188181099%_ - _%tl180189181101%_ - _%e180190181104%_ - _%hd180191181107%_ - _%tl180192181109%_ - _%e180193181112%_ - _%hd180194181115%_ - _%tl180195181117%_ - _%e180196181120%_ - _%hd180197181123%_ - _%tl180198181125%_ - _%e180199181128%_ - _%hd180200181131%_ - _%tl180201181133%_ - _%__splice186177186178%_ - _%target180202181136%_ - _%tl180204181138%_) - (letrec ((_%loop180205181141%_ - (lambda (_%hd180203181144%_ - _%args180209181146%_) + (_%__kont189704189705%_)))) + (_%__match190183190184%_ + _%e183760184408%_ + _%hd183761184411%_ + _%tl183762184413%_ + _%e183763184416%_ + _%hd183764184419%_ + _%tl183765184421%_ + _%e183766184424%_ + _%hd183767184427%_ + _%tl183768184429%_ + _%e183769184432%_ + _%hd183770184435%_ + _%tl183771184437%_ + _%e183772184440%_ + _%hd183773184443%_ + _%tl183774184445%_ + _%e183775184448%_ + _%hd183776184451%_ + _%tl183777184453%_ + _%e183778184456%_ + _%hd183779184459%_ + _%tl183780184461%_ + _%e183781184464%_ + _%hd183782184467%_ + _%tl183783184469%_)) + (_%__match190183190184%_ + _%e183760184408%_ + _%hd183761184411%_ + _%tl183762184413%_ + _%e183763184416%_ + _%hd183764184419%_ + _%tl183765184421%_ + _%e183766184424%_ + _%hd183767184427%_ + _%tl183768184429%_ + _%e183769184432%_ + _%hd183770184435%_ + _%tl183771184437%_ + _%e183772184440%_ + _%hd183773184443%_ + _%tl183774184445%_ + _%e183775184448%_ + _%hd183776184451%_ + _%tl183777184453%_ + _%e183778184456%_ + _%hd183779184459%_ + _%tl183780184461%_ + _%e183781184464%_ + _%hd183782184467%_ + _%tl183783184469%_)))) + (_%__match190183190184%_ + _%e183760184408%_ + _%hd183761184411%_ + _%tl183762184413%_ + _%e183763184416%_ + _%hd183764184419%_ + _%tl183765184421%_ + _%e183766184424%_ + _%hd183767184427%_ + _%tl183768184429%_ + _%e183769184432%_ + _%hd183770184435%_ + _%tl183771184437%_ + _%e183772184440%_ + _%hd183773184443%_ + _%tl183774184445%_ + _%e183775184448%_ + _%hd183776184451%_ + _%tl183777184453%_ + _%e183778184456%_ + _%hd183779184459%_ + _%tl183780184461%_ + _%e183781184464%_ + _%hd183782184467%_ + _%tl183783184469%_)) + (_%__match189969189970%_ + _%e183760184408%_ + _%hd183761184411%_ + _%tl183762184413%_ + _%e183763184416%_ + _%hd183764184419%_ + _%tl183765184421%_ + _%e183766184424%_ + _%hd183767184427%_ + _%tl183768184429%_ + _%e183769184432%_ + _%hd183770184435%_ + _%tl183771184437%_ + _%e183772184440%_ + _%hd183773184443%_ + _%tl183774184445%_ + _%e183775184448%_ + _%hd183776184451%_ + _%tl183777184453%_ + _%e183778184456%_ + _%hd183779184459%_ + _%tl183780184461%_ + _%e183781184464%_ + _%hd183782184467%_ + _%tl183783184469%_ + _%e183784184472%_ + _%hd183785184475%_ + _%tl183786184477%_)))) + (_%__match189791189792%_ + (lambda (_%e183716184598%_ + _%hd183717184601%_ + _%tl183718184603%_ + _%e183719184606%_ + _%hd183720184609%_ + _%tl183721184611%_ + _%e183722184614%_ + _%hd183723184617%_ + _%tl183724184619%_ + _%e183725184622%_ + _%hd183726184625%_ + _%tl183727184627%_ + _%e183728184630%_ + _%hd183729184633%_ + _%tl183730184635%_ + _%e183731184638%_ + _%hd183732184641%_ + _%tl183733184643%_ + _%e183734184646%_ + _%hd183735184649%_ + _%tl183736184651%_ + _%e183737184654%_ + _%hd183738184657%_ + _%tl183739184659%_ + _%e183740184662%_ + _%hd183741184665%_ + _%tl183742184667%_ + _%e183743184670%_ + _%hd183744184673%_ + _%tl183745184675%_ + _%__splice189690189691%_ + _%target183746184678%_ + _%tl183748184680%_) + (letrec ((_%loop183749184683%_ + (lambda (_%hd183747184686%_ + _%args183753184688%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180203181144%_)) - (let ((_%e180206181149%_ + (gx#stx-pair? _%hd183747184686%_)) + (let ((_%e183750184690%_ (let () (declare (not safe)) (gx#stx-e - _%hd180203181144%_)))) - (let ((_%lp-tl180208181154%_ + _%hd183747184686%_)))) + (let ((_%lp-tl183752184695%_ (let () (declare (not safe)) - (##cdr _%e180206181149%_))) - (_%lp-hd180207181152%_ + (##cdr _%e183750184690%_))) + (_%lp-hd183751184693%_ (let () (declare (not safe)) - (##car _%e180206181149%_)))) - (_%loop180205181141%_ - _%lp-tl180208181154%_ - (cons _%lp-hd180207181152%_ - _%args180209181146%_)))) - (let ((_%args180210181157%_ - (reverse _%args180209181146%_))) - (let ((_%L181160%_ - _%args180210181157%_) - (_%L181161%_ - _%hd180200181131%_) - (_%L181162%_ - _%hd180191181107%_) - (_%L181163%_ - _%hd180182181083%_)) + (##car _%e183750184690%_)))) + (_%loop183749184683%_ + _%lp-tl183752184695%_ + (cons _%lp-hd183751184693%_ + _%args183753184688%_)))) + (let ((_%args183754184698%_ + (reverse _%args183753184688%_))) + (let ((_%g183712184700%_ + _%args183754184698%_) + (_%g183713184701%_ + _%hd183744184673%_) + (_%g183714184702%_ + _%hd183735184649%_) + (_%g183715184703%_ + _%hd183726184625%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L181163%_ + _%g183715184703%_ 'call-method)) - (let ((__tmp186867 + (let ((__tmp190380 (let () (declare (not safe)) (slot-ref__0 - _%self180155%_ + _%self183699%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L181162%_ - __tmp186867))) - (_%__kont186175186176%_ - _%L181160%_ - _%L181161%_ - _%L181162%_ - _%L181163%_) - (_%__match186466186467%_ - _%e180172181056%_ - _%hd180173181059%_ - _%tl180174181061%_ - _%e180175181064%_ - _%hd180176181067%_ - _%tl180177181069%_ - _%e180178181072%_ - _%hd180179181075%_ - _%tl180180181077%_ - _%e180181181080%_ - _%hd180182181083%_ - _%tl180183181085%_ - _%e180184181088%_ - _%hd180185181091%_ - _%tl180186181093%_ - _%e180187181096%_ - _%hd180188181099%_ - _%tl180189181101%_ - _%e180190181104%_ - _%hd180191181107%_ - _%tl180192181109%_ - _%e180193181112%_ - _%hd180194181115%_ - _%tl180195181117%_ - _%e180196181120%_ - _%hd180197181123%_ - _%tl180198181125%_ - _%e180199181128%_ - _%hd180200181131%_ - _%tl180201181133%_)))))))) - (_%loop180205181141%_ _%target180202181136%_ '()))))) + _%g183714184702%_ + __tmp190380))) + (_%__kont189688189689%_ + _%g183712184700%_ + _%g183713184701%_ + _%g183714184702%_ + _%g183715184703%_) + (_%__match189979189980%_ + _%e183716184598%_ + _%hd183717184601%_ + _%tl183718184603%_ + _%e183719184606%_ + _%hd183720184609%_ + _%tl183721184611%_ + _%e183722184614%_ + _%hd183723184617%_ + _%tl183724184619%_ + _%e183725184622%_ + _%hd183726184625%_ + _%tl183727184627%_ + _%e183728184630%_ + _%hd183729184633%_ + _%tl183730184635%_ + _%e183731184638%_ + _%hd183732184641%_ + _%tl183733184643%_ + _%e183734184646%_ + _%hd183735184649%_ + _%tl183736184651%_ + _%e183737184654%_ + _%hd183738184657%_ + _%tl183739184659%_ + _%e183740184662%_ + _%hd183741184665%_ + _%tl183742184667%_ + _%e183743184670%_ + _%hd183744184673%_ + _%tl183745184675%_)))))))) + (_%loop183749184683%_ _%target183746184678%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx186173186174%_)) - (let ((_%e180172181056%_ + (gx#stx-pair? _%__stx189686189687%_)) + (let ((_%e183716184598%_ (let () (declare (not safe)) - (gx#stx-e _%__stx186173186174%_)))) - (let ((_%tl180174181061%_ + (gx#stx-e _%__stx189686189687%_)))) + (let ((_%tl183718184603%_ (let () (declare (not safe)) - (##cdr _%e180172181056%_))) - (_%hd180173181059%_ + (##cdr _%e183716184598%_))) + (_%hd183717184601%_ (let () (declare (not safe)) - (##car _%e180172181056%_)))) + (##car _%e183716184598%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180174181061%_)) - (let ((_%e180175181064%_ + (gx#stx-pair? _%tl183718184603%_)) + (let ((_%e183719184606%_ (let () (declare (not safe)) - (gx#stx-e _%tl180174181061%_)))) - (let ((_%tl180177181069%_ + (gx#stx-e _%tl183718184603%_)))) + (let ((_%tl183721184611%_ (let () (declare (not safe)) - (##cdr _%e180175181064%_))) - (_%hd180176181067%_ + (##cdr _%e183719184606%_))) + (_%hd183720184609%_ (let () (declare (not safe)) - (##car _%e180175181064%_)))) + (##car _%e183719184606%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180176181067%_)) - (let ((_%e180178181072%_ + (gx#stx-pair? _%hd183720184609%_)) + (let ((_%e183722184614%_ (let () (declare (not safe)) - (gx#stx-e _%hd180176181067%_)))) - (let ((_%tl180180181077%_ + (gx#stx-e _%hd183720184609%_)))) + (let ((_%tl183724184619%_ (let () (declare (not safe)) - (##cdr _%e180178181072%_))) - (_%hd180179181075%_ + (##cdr _%e183722184614%_))) + (_%hd183723184617%_ (let () (declare (not safe)) - (##car _%e180178181072%_)))) + (##car _%e183722184614%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd180179181075%_)) + _%hd183723184617%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd180179181075%_)) + _%hd183723184617%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180180181077%_)) - (let ((_%e180181181080%_ + _%tl183724184619%_)) + (let ((_%e183725184622%_ (let () (declare (not safe)) (gx#stx-e - _%tl180180181077%_)))) - (let ((_%tl180183181085%_ + _%tl183724184619%_)))) + (let ((_%tl183727184627%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e180181181080%_))) - (_%hd180182181083%_ - (let () (declare (not safe)) (##car _%e180181181080%_)))) + (##cdr _%e183725184622%_))) + (_%hd183726184625%_ + (let () (declare (not safe)) (##car _%e183725184622%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180183181085%_)) + (gx#stx-null? _%tl183727184627%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180177181069%_)) - (let ((_%e180184181088%_ + (gx#stx-pair? _%tl183721184611%_)) + (let ((_%e183728184630%_ (let () (declare (not safe)) - (gx#stx-e _%tl180177181069%_)))) - (let ((_%tl180186181093%_ + (gx#stx-e _%tl183721184611%_)))) + (let ((_%tl183730184635%_ (let () (declare (not safe)) - (##cdr _%e180184181088%_))) - (_%hd180185181091%_ + (##cdr _%e183728184630%_))) + (_%hd183729184633%_ (let () (declare (not safe)) - (##car _%e180184181088%_)))) + (##car _%e183728184630%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180185181091%_)) - (let ((_%e180187181096%_ + (gx#stx-pair? _%hd183729184633%_)) + (let ((_%e183731184638%_ (let () (declare (not safe)) - (gx#stx-e _%hd180185181091%_)))) - (let ((_%tl180189181101%_ + (gx#stx-e _%hd183729184633%_)))) + (let ((_%tl183733184643%_ (let () (declare (not safe)) - (##cdr _%e180187181096%_))) - (_%hd180188181099%_ + (##cdr _%e183731184638%_))) + (_%hd183732184641%_ (let () (declare (not safe)) - (##car _%e180187181096%_)))) + (##car _%e183731184638%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180188181099%_)) + (gx#identifier? _%hd183732184641%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd180188181099%_)) + _%hd183732184641%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180189181101%_)) - (let ((_%e180190181104%_ + _%tl183733184643%_)) + (let ((_%e183734184646%_ (let () (declare (not safe)) (gx#stx-e - _%tl180189181101%_)))) - (let ((_%tl180192181109%_ + _%tl183733184643%_)))) + (let ((_%tl183736184651%_ (let () (declare (not safe)) - (##cdr _%e180190181104%_))) - (_%hd180191181107%_ + (##cdr _%e183734184646%_))) + (_%hd183735184649%_ (let () (declare (not safe)) - (##car _%e180190181104%_)))) + (##car _%e183734184646%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180192181109%_)) + _%tl183736184651%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180186181093%_)) - (let ((_%e180193181112%_ + _%tl183730184635%_)) + (let ((_%e183737184654%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl180186181093%_)))) - (let ((_%tl180195181117%_ + (gx#stx-e _%tl183730184635%_)))) + (let ((_%tl183739184659%_ (let () (declare (not safe)) - (##cdr _%e180193181112%_))) - (_%hd180194181115%_ + (##cdr _%e183737184654%_))) + (_%hd183738184657%_ (let () (declare (not safe)) - (##car _%e180193181112%_)))) + (##car _%e183737184654%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180194181115%_)) - (let ((_%e180196181120%_ + (gx#stx-pair? _%hd183738184657%_)) + (let ((_%e183740184662%_ (let () (declare (not safe)) - (gx#stx-e _%hd180194181115%_)))) - (let ((_%tl180198181125%_ + (gx#stx-e _%hd183738184657%_)))) + (let ((_%tl183742184667%_ (let () (declare (not safe)) - (##cdr _%e180196181120%_))) - (_%hd180197181123%_ + (##cdr _%e183740184662%_))) + (_%hd183741184665%_ (let () (declare (not safe)) - (##car _%e180196181120%_)))) + (##car _%e183740184662%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180197181123%_)) + (gx#identifier? _%hd183741184665%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd180197181123%_)) + _%hd183741184665%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180198181125%_)) - (let ((_%e180199181128%_ + _%tl183742184667%_)) + (let ((_%e183743184670%_ (let () (declare (not safe)) (gx#stx-e - _%tl180198181125%_)))) - (let ((_%tl180201181133%_ + _%tl183742184667%_)))) + (let ((_%tl183745184675%_ (let () (declare (not safe)) - (##cdr _%e180199181128%_))) - (_%hd180200181131%_ + (##cdr _%e183743184670%_))) + (_%hd183744184673%_ (let () (declare (not safe)) - (##car _%e180199181128%_)))) + (##car _%e183743184670%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180201181133%_)) + _%tl183745184675%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl180195181117%_)) - (let ((_%__splice186177186178%_ + _%tl183739184659%_)) + (let ((_%__splice189690189691%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#syntax-split-splice->vector - _%tl180195181117%_ + _%tl183739184659%_ '0)))) - (let ((_%tl180204181138%_ + (let ((_%tl183748184680%_ (let () (declare (not safe)) - (##vector-ref _%__splice186177186178%_ '1))) - (_%target180202181136%_ + (##vector-ref _%__splice189690189691%_ '1))) + (_%target183746184678%_ (let () (declare (not safe)) - (##vector-ref _%__splice186177186178%_ '0)))) + (##vector-ref _%__splice189690189691%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180204181138%_)) - (_%__match186278186279%_ - _%e180172181056%_ - _%hd180173181059%_ - _%tl180174181061%_ - _%e180175181064%_ - _%hd180176181067%_ - _%tl180177181069%_ - _%e180178181072%_ - _%hd180179181075%_ - _%tl180180181077%_ - _%e180181181080%_ - _%hd180182181083%_ - _%tl180183181085%_ - _%e180184181088%_ - _%hd180185181091%_ - _%tl180186181093%_ - _%e180187181096%_ - _%hd180188181099%_ - _%tl180189181101%_ - _%e180190181104%_ - _%hd180191181107%_ - _%tl180192181109%_ - _%e180193181112%_ - _%hd180194181115%_ - _%tl180195181117%_ - _%e180196181120%_ - _%hd180197181123%_ - _%tl180198181125%_ - _%e180199181128%_ - _%hd180200181131%_ - _%tl180201181133%_ - _%__splice186177186178%_ - _%target180202181136%_ - _%tl180204181138%_) - (_%__match186466186467%_ - _%e180172181056%_ - _%hd180173181059%_ - _%tl180174181061%_ - _%e180175181064%_ - _%hd180176181067%_ - _%tl180177181069%_ - _%e180178181072%_ - _%hd180179181075%_ - _%tl180180181077%_ - _%e180181181080%_ - _%hd180182181083%_ - _%tl180183181085%_ - _%e180184181088%_ - _%hd180185181091%_ - _%tl180186181093%_ - _%e180187181096%_ - _%hd180188181099%_ - _%tl180189181101%_ - _%e180190181104%_ - _%hd180191181107%_ - _%tl180192181109%_ - _%e180193181112%_ - _%hd180194181115%_ - _%tl180195181117%_ - _%e180196181120%_ - _%hd180197181123%_ - _%tl180198181125%_ - _%e180199181128%_ - _%hd180200181131%_ - _%tl180201181133%_)))) - (_%__match186466186467%_ - _%e180172181056%_ - _%hd180173181059%_ - _%tl180174181061%_ - _%e180175181064%_ - _%hd180176181067%_ - _%tl180177181069%_ - _%e180178181072%_ - _%hd180179181075%_ - _%tl180180181077%_ - _%e180181181080%_ - _%hd180182181083%_ - _%tl180183181085%_ - _%e180184181088%_ - _%hd180185181091%_ - _%tl180186181093%_ - _%e180187181096%_ - _%hd180188181099%_ - _%tl180189181101%_ - _%e180190181104%_ - _%hd180191181107%_ - _%tl180192181109%_ - _%e180193181112%_ - _%hd180194181115%_ - _%tl180195181117%_ - _%e180196181120%_ - _%hd180197181123%_ - _%tl180198181125%_ - _%e180199181128%_ - _%hd180200181131%_ - _%tl180201181133%_)) + (gx#stx-null? _%tl183748184680%_)) + (_%__match189791189792%_ + _%e183716184598%_ + _%hd183717184601%_ + _%tl183718184603%_ + _%e183719184606%_ + _%hd183720184609%_ + _%tl183721184611%_ + _%e183722184614%_ + _%hd183723184617%_ + _%tl183724184619%_ + _%e183725184622%_ + _%hd183726184625%_ + _%tl183727184627%_ + _%e183728184630%_ + _%hd183729184633%_ + _%tl183730184635%_ + _%e183731184638%_ + _%hd183732184641%_ + _%tl183733184643%_ + _%e183734184646%_ + _%hd183735184649%_ + _%tl183736184651%_ + _%e183737184654%_ + _%hd183738184657%_ + _%tl183739184659%_ + _%e183740184662%_ + _%hd183741184665%_ + _%tl183742184667%_ + _%e183743184670%_ + _%hd183744184673%_ + _%tl183745184675%_ + _%__splice189690189691%_ + _%target183746184678%_ + _%tl183748184680%_) + (_%__match189979189980%_ + _%e183716184598%_ + _%hd183717184601%_ + _%tl183718184603%_ + _%e183719184606%_ + _%hd183720184609%_ + _%tl183721184611%_ + _%e183722184614%_ + _%hd183723184617%_ + _%tl183724184619%_ + _%e183725184622%_ + _%hd183726184625%_ + _%tl183727184627%_ + _%e183728184630%_ + _%hd183729184633%_ + _%tl183730184635%_ + _%e183731184638%_ + _%hd183732184641%_ + _%tl183733184643%_ + _%e183734184646%_ + _%hd183735184649%_ + _%tl183736184651%_ + _%e183737184654%_ + _%hd183738184657%_ + _%tl183739184659%_ + _%e183740184662%_ + _%hd183741184665%_ + _%tl183742184667%_ + _%e183743184670%_ + _%hd183744184673%_ + _%tl183745184675%_)))) + (_%__match189979189980%_ + _%e183716184598%_ + _%hd183717184601%_ + _%tl183718184603%_ + _%e183719184606%_ + _%hd183720184609%_ + _%tl183721184611%_ + _%e183722184614%_ + _%hd183723184617%_ + _%tl183724184619%_ + _%e183725184622%_ + _%hd183726184625%_ + _%tl183727184627%_ + _%e183728184630%_ + _%hd183729184633%_ + _%tl183730184635%_ + _%e183731184638%_ + _%hd183732184641%_ + _%tl183733184643%_ + _%e183734184646%_ + _%hd183735184649%_ + _%tl183736184651%_ + _%e183737184654%_ + _%hd183738184657%_ + _%tl183739184659%_ + _%e183740184662%_ + _%hd183741184665%_ + _%tl183742184667%_ + _%e183743184670%_ + _%hd183744184673%_ + _%tl183745184675%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match186670186671%_ - _%e180172181056%_ - _%hd180173181059%_ - _%tl180174181061%_ - _%e180175181064%_ - _%hd180176181067%_ - _%tl180177181069%_ - _%e180178181072%_ - _%hd180179181075%_ - _%tl180180181077%_ - _%e180181181080%_ - _%hd180182181083%_ - _%tl180183181085%_ - _%e180184181088%_ - _%hd180185181091%_ - _%tl180186181093%_ - _%e180187181096%_ - _%hd180188181099%_ - _%tl180189181101%_ - _%e180190181104%_ - _%hd180191181107%_ - _%tl180192181109%_ - _%e180193181112%_ - _%hd180194181115%_ - _%tl180195181117%_)))) - (_%__match186670186671%_ - _%e180172181056%_ - _%hd180173181059%_ - _%tl180174181061%_ - _%e180175181064%_ - _%hd180176181067%_ - _%tl180177181069%_ - _%e180178181072%_ - _%hd180179181075%_ - _%tl180180181077%_ - _%e180181181080%_ - _%hd180182181083%_ - _%tl180183181085%_ - _%e180184181088%_ - _%hd180185181091%_ - _%tl180186181093%_ - _%e180187181096%_ - _%hd180188181099%_ - _%tl180189181101%_ - _%e180190181104%_ - _%hd180191181107%_ - _%tl180192181109%_ - _%e180193181112%_ - _%hd180194181115%_ - _%tl180195181117%_)) - (_%__match186346186347%_ - _%e180172181056%_ - _%hd180173181059%_ - _%tl180174181061%_ - _%e180175181064%_ - _%hd180176181067%_ - _%tl180177181069%_ - _%e180178181072%_ - _%hd180179181075%_ - _%tl180180181077%_ - _%e180181181080%_ - _%hd180182181083%_ - _%tl180183181085%_ - _%e180184181088%_ - _%hd180185181091%_ - _%tl180186181093%_ - _%e180187181096%_ - _%hd180188181099%_ - _%tl180189181101%_ - _%e180190181104%_ - _%hd180191181107%_ - _%tl180192181109%_ - _%e180193181112%_ - _%hd180194181115%_ - _%tl180195181117%_ - _%e180196181120%_ - _%hd180197181123%_ - _%tl180198181125%_)) - (_%__match186670186671%_ - _%e180172181056%_ - _%hd180173181059%_ - _%tl180174181061%_ - _%e180175181064%_ - _%hd180176181067%_ - _%tl180177181069%_ - _%e180178181072%_ - _%hd180179181075%_ - _%tl180180181077%_ - _%e180181181080%_ - _%hd180182181083%_ - _%tl180183181085%_ - _%e180184181088%_ - _%hd180185181091%_ - _%tl180186181093%_ - _%e180187181096%_ - _%hd180188181099%_ - _%tl180189181101%_ - _%e180190181104%_ - _%hd180191181107%_ - _%tl180192181109%_ - _%e180193181112%_ - _%hd180194181115%_ - _%tl180195181117%_)))) - (_%__match186670186671%_ - _%e180172181056%_ - _%hd180173181059%_ - _%tl180174181061%_ - _%e180175181064%_ - _%hd180176181067%_ - _%tl180177181069%_ - _%e180178181072%_ - _%hd180179181075%_ - _%tl180180181077%_ - _%e180181181080%_ - _%hd180182181083%_ - _%tl180183181085%_ - _%e180184181088%_ - _%hd180185181091%_ - _%tl180186181093%_ - _%e180187181096%_ - _%hd180188181099%_ - _%tl180189181101%_ - _%e180190181104%_ - _%hd180191181107%_ - _%tl180192181109%_ - _%e180193181112%_ - _%hd180194181115%_ - _%tl180195181117%_)))) - (_%__match186608186609%_ - _%e180172181056%_ - _%hd180173181059%_ - _%tl180174181061%_ - _%e180175181064%_ - _%hd180176181067%_ - _%tl180177181069%_ - _%e180178181072%_ - _%hd180179181075%_ - _%tl180180181077%_ - _%e180181181080%_ - _%hd180182181083%_ - _%tl180183181085%_ - _%e180184181088%_ - _%hd180185181091%_ - _%tl180186181093%_ - _%e180187181096%_ - _%hd180188181099%_ - _%tl180189181101%_ - _%e180190181104%_ - _%hd180191181107%_ - _%tl180192181109%_)) - (_%__kont186191186192%_)))) + (_%__match190183190184%_ + _%e183716184598%_ + _%hd183717184601%_ + _%tl183718184603%_ + _%e183719184606%_ + _%hd183720184609%_ + _%tl183721184611%_ + _%e183722184614%_ + _%hd183723184617%_ + _%tl183724184619%_ + _%e183725184622%_ + _%hd183726184625%_ + _%tl183727184627%_ + _%e183728184630%_ + _%hd183729184633%_ + _%tl183730184635%_ + _%e183731184638%_ + _%hd183732184641%_ + _%tl183733184643%_ + _%e183734184646%_ + _%hd183735184649%_ + _%tl183736184651%_ + _%e183737184654%_ + _%hd183738184657%_ + _%tl183739184659%_)))) + (_%__match190183190184%_ + _%e183716184598%_ + _%hd183717184601%_ + _%tl183718184603%_ + _%e183719184606%_ + _%hd183720184609%_ + _%tl183721184611%_ + _%e183722184614%_ + _%hd183723184617%_ + _%tl183724184619%_ + _%e183725184622%_ + _%hd183726184625%_ + _%tl183727184627%_ + _%e183728184630%_ + _%hd183729184633%_ + _%tl183730184635%_ + _%e183731184638%_ + _%hd183732184641%_ + _%tl183733184643%_ + _%e183734184646%_ + _%hd183735184649%_ + _%tl183736184651%_ + _%e183737184654%_ + _%hd183738184657%_ + _%tl183739184659%_)) + (_%__match189859189860%_ + _%e183716184598%_ + _%hd183717184601%_ + _%tl183718184603%_ + _%e183719184606%_ + _%hd183720184609%_ + _%tl183721184611%_ + _%e183722184614%_ + _%hd183723184617%_ + _%tl183724184619%_ + _%e183725184622%_ + _%hd183726184625%_ + _%tl183727184627%_ + _%e183728184630%_ + _%hd183729184633%_ + _%tl183730184635%_ + _%e183731184638%_ + _%hd183732184641%_ + _%tl183733184643%_ + _%e183734184646%_ + _%hd183735184649%_ + _%tl183736184651%_ + _%e183737184654%_ + _%hd183738184657%_ + _%tl183739184659%_ + _%e183740184662%_ + _%hd183741184665%_ + _%tl183742184667%_)) + (_%__match190183190184%_ + _%e183716184598%_ + _%hd183717184601%_ + _%tl183718184603%_ + _%e183719184606%_ + _%hd183720184609%_ + _%tl183721184611%_ + _%e183722184614%_ + _%hd183723184617%_ + _%tl183724184619%_ + _%e183725184622%_ + _%hd183726184625%_ + _%tl183727184627%_ + _%e183728184630%_ + _%hd183729184633%_ + _%tl183730184635%_ + _%e183731184638%_ + _%hd183732184641%_ + _%tl183733184643%_ + _%e183734184646%_ + _%hd183735184649%_ + _%tl183736184651%_ + _%e183737184654%_ + _%hd183738184657%_ + _%tl183739184659%_)))) + (_%__match190183190184%_ + _%e183716184598%_ + _%hd183717184601%_ + _%tl183718184603%_ + _%e183719184606%_ + _%hd183720184609%_ + _%tl183721184611%_ + _%e183722184614%_ + _%hd183723184617%_ + _%tl183724184619%_ + _%e183725184622%_ + _%hd183726184625%_ + _%tl183727184627%_ + _%e183728184630%_ + _%hd183729184633%_ + _%tl183730184635%_ + _%e183731184638%_ + _%hd183732184641%_ + _%tl183733184643%_ + _%e183734184646%_ + _%hd183735184649%_ + _%tl183736184651%_ + _%e183737184654%_ + _%hd183738184657%_ + _%tl183739184659%_)))) + (_%__match190121190122%_ + _%e183716184598%_ + _%hd183717184601%_ + _%tl183718184603%_ + _%e183719184606%_ + _%hd183720184609%_ + _%tl183721184611%_ + _%e183722184614%_ + _%hd183723184617%_ + _%tl183724184619%_ + _%e183725184622%_ + _%hd183726184625%_ + _%tl183727184627%_ + _%e183728184630%_ + _%hd183729184633%_ + _%tl183730184635%_ + _%e183731184638%_ + _%hd183732184641%_ + _%tl183733184643%_ + _%e183734184646%_ + _%hd183735184649%_ + _%tl183736184651%_)) + (_%__kont189704189705%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont186191186192%_)) - (_%__kont186191186192%_)) - (_%__kont186191186192%_)))) - (_%__kont186191186192%_)))) - (_%__kont186191186192%_)) - (_%__kont186191186192%_)))) + (_%__kont189704189705%_)) + (_%__kont189704189705%_)) + (_%__kont189704189705%_)))) + (_%__kont189704189705%_)))) + (_%__kont189704189705%_)) + (_%__kont189704189705%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont186191186192%_)) - (_%__kont186191186192%_)) - (_%__kont186191186192%_)))) - (_%__kont186191186192%_)))) - (_%__kont186191186192%_)))) - (_%__kont186191186192%_)))))))))) + (_%__kont189704189705%_)) + (_%__kont189704189705%_)) + (_%__kont189704189705%_)))) + (_%__kont189704189705%_)))) + (_%__kont189704189705%_)))) + (_%__kont189704189705%_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec~1.scm b/src/bootstrap/gerbil/compiler/optimize-spec~1.scm index 50b89948a8..6eaae59181 100644 --- a/src/bootstrap/gerbil/compiler/optimize-spec~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-spec~1.scm @@ -1,307 +1,307 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g186869_| + (define |gxc[1]#_g190382_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186871_| + (define |gxc[1]#_g190384_| (##structure gx#syntax-quote::t '::generate-method-specializers::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186873_| + (define |gxc[1]#_g190386_| (##structure gx#syntax-quote::t 'make-::generate-method-specializers #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186875_| + (define |gxc[1]#_g190388_| (##structure gx#syntax-quote::t '::generate-method-specializers? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186877_| + (define |gxc[1]#_g190390_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186879_| + (define |gxc[1]#_g190392_| (##structure gx#syntax-quote::t '::extract-receiver::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186881_| + (define |gxc[1]#_g190394_| (##structure gx#syntax-quote::t 'make-::extract-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186883_| + (define |gxc[1]#_g190396_| (##structure gx#syntax-quote::t '::extract-receiver? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186885_| + (define |gxc[1]#_g190398_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186887_| + (define |gxc[1]#_g190400_| (##structure gx#syntax-quote::t '::collect-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186889_| + (define |gxc[1]#_g190402_| (##structure gx#syntax-quote::t 'make-::collect-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186891_| + (define |gxc[1]#_g190404_| (##structure gx#syntax-quote::t '::collect-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186893_| + (define |gxc[1]#_g190406_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186894_| + (define |gxc[1]#_g190407_| (##structure gx#syntax-quote::t '::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186895_| + (define |gxc[1]#_g190408_| (##structure gx#syntax-quote::t '::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186897_| + (define |gxc[1]#_g190410_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186898_| + (define |gxc[1]#_g190411_| (##structure gx#syntax-quote::t '::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186899_| + (define |gxc[1]#_g190412_| (##structure gx#syntax-quote::t '::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186901_| + (define |gxc[1]#_g190414_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186902_| + (define |gxc[1]#_g190415_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186903_| + (define |gxc[1]#_g190416_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186905_| + (define |gxc[1]#_g190418_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186906_| + (define |gxc[1]#_g190419_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186907_| + (define |gxc[1]#_g190420_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186909_| + (define |gxc[1]#_g190422_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186911_| + (define |gxc[1]#_g190424_| (##structure gx#syntax-quote::t '::subst-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186913_| + (define |gxc[1]#_g190426_| (##structure gx#syntax-quote::t 'make-::subst-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186915_| + (define |gxc[1]#_g190428_| (##structure gx#syntax-quote::t '::subst-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186917_| + (define |gxc[1]#_g190430_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186918_| + (define |gxc[1]#_g190431_| (##structure gx#syntax-quote::t '::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186919_| + (define |gxc[1]#_g190432_| (##structure gx#syntax-quote::t '::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186920_| + (define |gxc[1]#_g190433_| (##structure gx#syntax-quote::t '::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186922_| + (define |gxc[1]#_g190435_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186923_| + (define |gxc[1]#_g190436_| (##structure gx#syntax-quote::t '::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186924_| + (define |gxc[1]#_g190437_| (##structure gx#syntax-quote::t '::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186925_| + (define |gxc[1]#_g190438_| (##structure gx#syntax-quote::t '::subst-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186927_| + (define |gxc[1]#_g190440_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186928_| + (define |gxc[1]#_g190441_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186929_| + (define |gxc[1]#_g190442_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186930_| + (define |gxc[1]#_g190443_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186932_| + (define |gxc[1]#_g190445_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186933_| + (define |gxc[1]#_g190446_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186934_| + (define |gxc[1]#_g190447_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g186935_| + (define |gxc[1]#_g190448_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots-set! @@ -310,7 +310,7 @@ '())) (begin (define |gxc[:0:]#::generate-method-specializers| - (let ((__obj186674 + (let ((__obj190187 (let () (declare (not safe)) (##structure @@ -339,7 +339,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186674 + __obj190187 'gxc#::generate-method-specializers::t '1 '#f @@ -347,65 +347,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186674 + __obj190187 '::generate-method-specializers '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186674 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj190187 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186674 '() '6 '#f '#f)) - (let ((__tmp186868 (cons |gxc[1]#_g186869_| '()))) + (##unchecked-structure-set! __obj190187 '() '7 '#f '#f)) + (let ((__tmp190381 (cons |gxc[1]#_g190382_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj186674 __tmp186868 '3 '#f '#f)) + (##unchecked-structure-set! __obj190187 __tmp190381 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186674 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj190187 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186674 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj190187 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186674 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj190187 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186674 '#f '11 '#f '#f)) - (let ((__tmp186870 |gxc[1]#_g186871_|)) + (##unchecked-structure-set! __obj190187 '#f '12 '#f '#f)) + (let ((__tmp190383 |gxc[1]#_g190384_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186674 __tmp186870 '12 '#f '#f)) - (let ((__tmp186872 |gxc[1]#_g186873_|)) + (##unchecked-structure-set! __obj190187 __tmp190383 '3 '#f '#f)) + (let ((__tmp190385 |gxc[1]#_g190386_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186674 __tmp186872 '13 '#f '#f)) - (let ((__tmp186874 |gxc[1]#_g186875_|)) + (##unchecked-structure-set! __obj190187 __tmp190385 '13 '#f '#f)) + (let ((__tmp190387 |gxc[1]#_g190388_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186674 __tmp186874 '14 '#f '#f)) + (##unchecked-structure-set! __obj190187 __tmp190387 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186674 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj190187 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186674 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj190187 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186674 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj190187 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186674 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj190187 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186674 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj190187 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186674 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj190187 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186674 '() '20 '#f '#f)) - __obj186674)) + (##unchecked-structure-set! __obj190187 '() '20 '#f '#f)) + __obj190187)) (define |gxc[:0:]#::extract-receiver| - (let ((__obj186676 + (let ((__obj190189 (let () (declare (not safe)) (##structure @@ -434,7 +434,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186676 + __obj190189 'gxc#::extract-receiver::t '1 '#f @@ -442,65 +442,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186676 + __obj190189 '::extract-receiver '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186676 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj190189 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186676 '() '6 '#f '#f)) - (let ((__tmp186876 (cons |gxc[1]#_g186877_| '()))) + (##unchecked-structure-set! __obj190189 '() '7 '#f '#f)) + (let ((__tmp190389 (cons |gxc[1]#_g190390_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj186676 __tmp186876 '3 '#f '#f)) + (##unchecked-structure-set! __obj190189 __tmp190389 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186676 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj190189 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186676 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj190189 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186676 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj190189 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186676 '#f '11 '#f '#f)) - (let ((__tmp186878 |gxc[1]#_g186879_|)) + (##unchecked-structure-set! __obj190189 '#f '12 '#f '#f)) + (let ((__tmp190391 |gxc[1]#_g190392_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186676 __tmp186878 '12 '#f '#f)) - (let ((__tmp186880 |gxc[1]#_g186881_|)) + (##unchecked-structure-set! __obj190189 __tmp190391 '3 '#f '#f)) + (let ((__tmp190393 |gxc[1]#_g190394_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186676 __tmp186880 '13 '#f '#f)) - (let ((__tmp186882 |gxc[1]#_g186883_|)) + (##unchecked-structure-set! __obj190189 __tmp190393 '13 '#f '#f)) + (let ((__tmp190395 |gxc[1]#_g190396_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186676 __tmp186882 '14 '#f '#f)) + (##unchecked-structure-set! __obj190189 __tmp190395 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186676 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj190189 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186676 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj190189 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186676 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj190189 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186676 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj190189 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186676 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj190189 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186676 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj190189 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186676 '() '20 '#f '#f)) - __obj186676)) + (##unchecked-structure-set! __obj190189 '() '20 '#f '#f)) + __obj190189)) (define |gxc[:0:]#::collect-object-refs| - (let ((__obj186678 + (let ((__obj190191 (let () (declare (not safe)) (##structure @@ -529,7 +529,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186678 + __obj190191 'gxc#::collect-object-refs::t '1 '#f @@ -537,7 +537,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186678 + __obj190191 '::collect-object-refs '2 '#f @@ -545,79 +545,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186678 + __obj190191 '(receiver methods slots) - '4 + '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj186678 + __obj190191 '(receiver methods slots) - '6 + '7 '#f '#f)) - (let ((__tmp186884 (cons |gxc[1]#_g186885_| '()))) + (let ((__tmp190397 (cons |gxc[1]#_g190398_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj186678 __tmp186884 '3 '#f '#f)) + (##unchecked-structure-set! __obj190191 __tmp190397 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186678 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj190191 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186678 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj190191 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186678 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj190191 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186678 '#f '11 '#f '#f)) - (let ((__tmp186886 |gxc[1]#_g186887_|)) + (##unchecked-structure-set! __obj190191 '#f '12 '#f '#f)) + (let ((__tmp190399 |gxc[1]#_g190400_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186678 __tmp186886 '12 '#f '#f)) - (let ((__tmp186888 |gxc[1]#_g186889_|)) + (##unchecked-structure-set! __obj190191 __tmp190399 '3 '#f '#f)) + (let ((__tmp190401 |gxc[1]#_g190402_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186678 __tmp186888 '13 '#f '#f)) - (let ((__tmp186890 |gxc[1]#_g186891_|)) + (##unchecked-structure-set! __obj190191 __tmp190401 '13 '#f '#f)) + (let ((__tmp190403 |gxc[1]#_g190404_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186678 __tmp186890 '14 '#f '#f)) - (let ((__tmp186892 - (cons (cons 'receiver |gxc[1]#_g186893_|) - (cons (cons 'methods |gxc[1]#_g186894_|) - (cons (cons 'slots |gxc[1]#_g186895_|) '()))))) + (##unchecked-structure-set! __obj190191 __tmp190403 '14 '#f '#f)) + (let ((__tmp190405 + (cons (cons 'receiver |gxc[1]#_g190406_|) + (cons (cons 'methods |gxc[1]#_g190407_|) + (cons (cons 'slots |gxc[1]#_g190408_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj186678 __tmp186892 '15 '#f '#f)) - (let ((__tmp186896 - (cons (cons 'receiver |gxc[1]#_g186897_|) - (cons (cons 'methods |gxc[1]#_g186898_|) - (cons (cons 'slots |gxc[1]#_g186899_|) '()))))) + (##unchecked-structure-set! __obj190191 __tmp190405 '15 '#f '#f)) + (let ((__tmp190409 + (cons (cons 'receiver |gxc[1]#_g190410_|) + (cons (cons 'methods |gxc[1]#_g190411_|) + (cons (cons 'slots |gxc[1]#_g190412_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj186678 __tmp186896 '16 '#f '#f)) - (let ((__tmp186900 - (cons (cons 'receiver |gxc[1]#_g186901_|) - (cons (cons 'methods |gxc[1]#_g186902_|) - (cons (cons 'slots |gxc[1]#_g186903_|) '()))))) + (##unchecked-structure-set! __obj190191 __tmp190409 '16 '#f '#f)) + (let ((__tmp190413 + (cons (cons 'receiver |gxc[1]#_g190414_|) + (cons (cons 'methods |gxc[1]#_g190415_|) + (cons (cons 'slots |gxc[1]#_g190416_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj186678 __tmp186900 '17 '#f '#f)) - (let ((__tmp186904 - (cons (cons 'receiver |gxc[1]#_g186905_|) - (cons (cons 'methods |gxc[1]#_g186906_|) - (cons (cons 'slots |gxc[1]#_g186907_|) '()))))) + (##unchecked-structure-set! __obj190191 __tmp190413 '17 '#f '#f)) + (let ((__tmp190417 + (cons (cons 'receiver |gxc[1]#_g190418_|) + (cons (cons 'methods |gxc[1]#_g190419_|) + (cons (cons 'slots |gxc[1]#_g190420_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj186678 __tmp186904 '18 '#f '#f)) + (##unchecked-structure-set! __obj190191 __tmp190417 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186678 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj190191 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186678 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj190191 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186678 '() '20 '#f '#f)) - __obj186678)) + (##unchecked-structure-set! __obj190191 '() '20 '#f '#f)) + __obj190191)) (define |gxc[:0:]#::subst-object-refs| - (let ((__obj186680 + (let ((__obj190193 (let () (declare (not safe)) (##structure @@ -646,7 +646,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186680 + __obj190193 'gxc#::subst-object-refs::t '1 '#f @@ -654,7 +654,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186680 + __obj190193 '::subst-object-refs '2 '#f @@ -662,82 +662,82 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186680 + __obj190193 '(receiver klass methods slots) - '4 + '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj186680 + __obj190193 '(receiver klass methods slots) - '6 + '7 '#f '#f)) - (let ((__tmp186908 (cons |gxc[1]#_g186909_| '()))) + (let ((__tmp190421 (cons |gxc[1]#_g190422_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj186680 __tmp186908 '3 '#f '#f)) + (##unchecked-structure-set! __obj190193 __tmp190421 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186680 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj190193 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186680 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj190193 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186680 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj190193 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186680 '#f '11 '#f '#f)) - (let ((__tmp186910 |gxc[1]#_g186911_|)) + (##unchecked-structure-set! __obj190193 '#f '12 '#f '#f)) + (let ((__tmp190423 |gxc[1]#_g190424_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186680 __tmp186910 '12 '#f '#f)) - (let ((__tmp186912 |gxc[1]#_g186913_|)) + (##unchecked-structure-set! __obj190193 __tmp190423 '3 '#f '#f)) + (let ((__tmp190425 |gxc[1]#_g190426_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186680 __tmp186912 '13 '#f '#f)) - (let ((__tmp186914 |gxc[1]#_g186915_|)) + (##unchecked-structure-set! __obj190193 __tmp190425 '13 '#f '#f)) + (let ((__tmp190427 |gxc[1]#_g190428_|)) (declare (not safe)) - (##unchecked-structure-set! __obj186680 __tmp186914 '14 '#f '#f)) - (let ((__tmp186916 - (cons (cons 'receiver |gxc[1]#_g186917_|) - (cons (cons 'klass |gxc[1]#_g186918_|) - (cons (cons 'methods |gxc[1]#_g186919_|) - (cons (cons 'slots |gxc[1]#_g186920_|) + (##unchecked-structure-set! __obj190193 __tmp190427 '14 '#f '#f)) + (let ((__tmp190429 + (cons (cons 'receiver |gxc[1]#_g190430_|) + (cons (cons 'klass |gxc[1]#_g190431_|) + (cons (cons 'methods |gxc[1]#_g190432_|) + (cons (cons 'slots |gxc[1]#_g190433_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj186680 __tmp186916 '15 '#f '#f)) - (let ((__tmp186921 - (cons (cons 'receiver |gxc[1]#_g186922_|) - (cons (cons 'klass |gxc[1]#_g186923_|) - (cons (cons 'methods |gxc[1]#_g186924_|) - (cons (cons 'slots |gxc[1]#_g186925_|) + (##unchecked-structure-set! __obj190193 __tmp190429 '15 '#f '#f)) + (let ((__tmp190434 + (cons (cons 'receiver |gxc[1]#_g190435_|) + (cons (cons 'klass |gxc[1]#_g190436_|) + (cons (cons 'methods |gxc[1]#_g190437_|) + (cons (cons 'slots |gxc[1]#_g190438_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj186680 __tmp186921 '16 '#f '#f)) - (let ((__tmp186926 - (cons (cons 'receiver |gxc[1]#_g186927_|) - (cons (cons 'klass |gxc[1]#_g186928_|) - (cons (cons 'methods |gxc[1]#_g186929_|) - (cons (cons 'slots |gxc[1]#_g186930_|) + (##unchecked-structure-set! __obj190193 __tmp190434 '16 '#f '#f)) + (let ((__tmp190439 + (cons (cons 'receiver |gxc[1]#_g190440_|) + (cons (cons 'klass |gxc[1]#_g190441_|) + (cons (cons 'methods |gxc[1]#_g190442_|) + (cons (cons 'slots |gxc[1]#_g190443_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj186680 __tmp186926 '17 '#f '#f)) - (let ((__tmp186931 - (cons (cons 'receiver |gxc[1]#_g186932_|) - (cons (cons 'klass |gxc[1]#_g186933_|) - (cons (cons 'methods |gxc[1]#_g186934_|) - (cons (cons 'slots |gxc[1]#_g186935_|) + (##unchecked-structure-set! __obj190193 __tmp190439 '17 '#f '#f)) + (let ((__tmp190444 + (cons (cons 'receiver |gxc[1]#_g190445_|) + (cons (cons 'klass |gxc[1]#_g190446_|) + (cons (cons 'methods |gxc[1]#_g190447_|) + (cons (cons 'slots |gxc[1]#_g190448_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj186680 __tmp186931 '18 '#f '#f)) + (##unchecked-structure-set! __obj190193 __tmp190444 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186680 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj190193 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186680 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj190193 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj186680 '() '20 '#f '#f)) - __obj186680)))) + (##unchecked-structure-set! __obj190193 '() '20 '#f '#f)) + __obj190193)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top~0.scm b/src/bootstrap/gerbil/compiler/optimize-top~0.scm index f7a0e00d08..ab591cbe07 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top~0.scm @@ -1,29 +1,29 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-top::timestamp 1756721297) + (define gerbil/compiler/optimize-top::timestamp 1769384631) (begin (define gxc#::collect-top-level-type-info::t - (let ((__tmp179723 (list gxc#::void::t)) - (__tmp179722 (cons (cons 'final: '#t) '()))) + (let ((__tmp183267 (list gxc#::void::t)) + (__tmp183266 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-top-level-type-info::t '::collect-top-level-type-info - __tmp179723 + __tmp183267 '() - __tmp179722 + __tmp183266 '#f))) (define gxc#::collect-top-level-type-info? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-top-level-type-info::t))) (define gxc#make-::collect-top-level-type-info - (lambda _%$args176665%_ + (lambda _%$args180209%_ (apply make-instance gxc#::collect-top-level-type-info::t - _%$args176665%_))) + _%$args180209%_))) (define gxc#::collect-top-level-type-info-bind-methods! - (let ((__tmp179724 + (let ((__tmp183268 (lambda () (force gxc#::void-bind-methods!) (let () @@ -102,48 +102,48 @@ (declare (not safe)) (__seal-class! gxc#::collect-top-level-type-info::t))))) (declare (not safe)) - (__make-atomic-promise __tmp179724))) + (__make-atomic-promise __tmp183268))) (define gxc#apply-collect-top-level-type-info - (lambda (_%stx176657%_) + (lambda (_%stx180201%_) (force gxc#::collect-top-level-type-info-bind-methods!) - (let* ((_%self176660%_ - (let ((__obj179669 + (let* ((_%self180204%_ + (let ((__obj183213 (let () (declare (not safe)) (##structure gxc#::collect-top-level-type-info::t)))) - __obj179669)) - (__tmp179725 + __obj183213)) + (__tmp183269 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176660%_ _%stx176657%_))))) + (gxc#compile-e__1 _%self180204%_ _%stx180201%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp179725 + __tmp183269 gxc#current-compile-method - _%self176660%_)))) + _%self180204%_)))) (define gxc#::collect-top-level-declarations::t - (let ((__tmp179727 (list gxc#::void::t)) - (__tmp179726 (cons (cons 'final: '#t) '()))) + (let ((__tmp183271 (list gxc#::void::t)) + (__tmp183270 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-top-level-declarations::t '::collect-top-level-declarations - __tmp179727 + __tmp183271 '() - __tmp179726 + __tmp183270 '#f))) (define gxc#::collect-top-level-declarations? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-top-level-declarations::t))) (define gxc#make-::collect-top-level-declarations - (lambda _%$args176654%_ + (lambda _%$args180198%_ (apply make-instance gxc#::collect-top-level-declarations::t - _%$args176654%_))) + _%$args180198%_))) (define gxc#::collect-top-level-declarations-bind-methods! - (let ((__tmp179728 + (let ((__tmp183272 (lambda () (force gxc#::void-bind-methods!) (let () @@ -174,49 +174,49 @@ (declare (not safe)) (__seal-class! gxc#::collect-top-level-declarations::t))))) (declare (not safe)) - (__make-atomic-promise __tmp179728))) + (__make-atomic-promise __tmp183272))) (define gxc#apply-collect-top-level-declarations - (lambda (_%stx176646%_) + (lambda (_%stx180190%_) (force gxc#::collect-top-level-declarations-bind-methods!) - (let* ((_%self176649%_ - (let ((__obj179671 + (let* ((_%self180193%_ + (let ((__obj183215 (let () (declare (not safe)) (##structure gxc#::collect-top-level-declarations::t)))) - __obj179671)) - (__tmp179729 + __obj183215)) + (__tmp183273 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176649%_ _%stx176646%_))))) + (gxc#compile-e__1 _%self180193%_ _%stx180190%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp179729 + __tmp183273 gxc#current-compile-method - _%self176649%_)))) + _%self180193%_)))) (define gxc#::basic-expression-top-level-type::t - (let ((__tmp179731 (list gxc#::false::t)) - (__tmp179730 (cons (cons 'final: '#t) '()))) + (let ((__tmp183275 (list gxc#::false::t)) + (__tmp183274 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::basic-expression-top-level-type::t '::basic-expression-top-level-type - __tmp179731 + __tmp183275 '() - __tmp179730 + __tmp183274 '#f))) (define gxc#::basic-expression-top-level-type? (let () (declare (not safe)) (__make-class-predicate gxc#::basic-expression-top-level-type::t))) (define gxc#make-::basic-expression-top-level-type - (lambda _%$args176643%_ + (lambda _%$args180187%_ (apply make-instance gxc#::basic-expression-top-level-type::t - _%$args176643%_))) + _%$args180187%_))) (define gxc#::basic-expression-top-level-type-bind-methods! - (let ((__tmp179732 + (let ((__tmp183276 (lambda () (force gxc#::false-bind-methods!) (let () @@ -229,47 +229,47 @@ (declare (not safe)) (__seal-class! gxc#::basic-expression-top-level-type::t))))) (declare (not safe)) - (__make-atomic-promise __tmp179732))) + (__make-atomic-promise __tmp183276))) (define gxc#apply-basic-expression-top-level-type - (lambda (_%stx176635%_) + (lambda (_%stx180179%_) (force gxc#::basic-expression-top-level-type-bind-methods!) - (let* ((_%self176638%_ - (let ((__obj179673 + (let* ((_%self180182%_ + (let ((__obj183217 (let () (declare (not safe)) (##structure gxc#::basic-expression-top-level-type::t)))) - __obj179673)) - (__tmp179733 + __obj183217)) + (__tmp183277 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176638%_ _%stx176635%_))))) + (gxc#compile-e__1 _%self180182%_ _%stx180179%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp179733 + __tmp183277 gxc#current-compile-method - _%self176638%_)))) + _%self180182%_)))) (define gxc#::collect-type-info::t - (let ((__tmp179735 (list gxc#::void::t)) - (__tmp179734 (cons (cons 'final: '#t) '()))) + (let ((__tmp183279 (list gxc#::void::t)) + (__tmp183278 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-type-info::t '::collect-type-info - __tmp179735 + __tmp183279 '() - __tmp179734 + __tmp183278 '#f))) (define gxc#::collect-type-info? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-type-info::t))) (define gxc#make-::collect-type-info - (lambda _%$args176632%_ - (apply make-instance gxc#::collect-type-info::t _%$args176632%_))) + (lambda _%$args180176%_ + (apply make-instance gxc#::collect-type-info::t _%$args180176%_))) (define gxc#::collect-type-info-bind-methods! - (let ((__tmp179736 + (let ((__tmp183280 (lambda () (force gxc#::void-bind-methods!) (let () @@ -354,48 +354,48 @@ (declare (not safe)) (__seal-class! gxc#::collect-type-info::t))))) (declare (not safe)) - (__make-atomic-promise __tmp179736))) + (__make-atomic-promise __tmp183280))) (define gxc#apply-collect-type-info - (lambda (_%stx176624%_) + (lambda (_%stx180168%_) (force gxc#::collect-type-info-bind-methods!) - (let* ((_%self176627%_ - (let ((__obj179675 + (let* ((_%self180171%_ + (let ((__obj183219 (let () (declare (not safe)) (##structure gxc#::collect-type-info::t)))) - __obj179675)) - (__tmp179737 + __obj183219)) + (__tmp183281 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176627%_ _%stx176624%_))))) + (gxc#compile-e__1 _%self180171%_ _%stx180168%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp179737 + __tmp183281 gxc#current-compile-method - _%self176627%_)))) + _%self180171%_)))) (define gxc#::collect-mutable-type-info::t - (let ((__tmp179739 (list gxc#::void::t)) - (__tmp179738 (cons (cons 'final: '#t) '()))) + (let ((__tmp183283 (list gxc#::void::t)) + (__tmp183282 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-mutable-type-info::t '::collect-mutable-type-info - __tmp179739 + __tmp183283 '() - __tmp179738 + __tmp183282 '#f))) (define gxc#::collect-mutable-type-info? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-mutable-type-info::t))) (define gxc#make-::collect-mutable-type-info - (lambda _%$args176621%_ + (lambda _%$args180165%_ (apply make-instance gxc#::collect-mutable-type-info::t - _%$args176621%_))) + _%$args180165%_))) (define gxc#::collect-mutable-type-info-bind-methods! - (let ((__tmp179740 + (let ((__tmp183284 (lambda () (force gxc#::void-bind-methods!) (let () @@ -480,46 +480,46 @@ (declare (not safe)) (__seal-class! gxc#::collect-mutable-type-info::t))))) (declare (not safe)) - (__make-atomic-promise __tmp179740))) + (__make-atomic-promise __tmp183284))) (define gxc#apply-collect-mutable-type-info - (lambda (_%stx176613%_) + (lambda (_%stx180157%_) (force gxc#::collect-mutable-type-info-bind-methods!) - (let* ((_%self176616%_ - (let ((__obj179677 + (let* ((_%self180160%_ + (let ((__obj183221 (let () (declare (not safe)) (##structure gxc#::collect-mutable-type-info::t)))) - __obj179677)) - (__tmp179741 + __obj183221)) + (__tmp183285 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176616%_ _%stx176613%_))))) + (gxc#compile-e__1 _%self180160%_ _%stx180157%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp179741 + __tmp183285 gxc#current-compile-method - _%self176616%_)))) + _%self180160%_)))) (define gxc#::refine-type-info::t - (let ((__tmp179743 (list gxc#::void::t)) - (__tmp179742 (cons (cons 'final: '#t) '()))) + (let ((__tmp183287 (list gxc#::void::t)) + (__tmp183286 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::refine-type-info::t '::refine-type-info - __tmp179743 + __tmp183287 '() - __tmp179742 + __tmp183286 '#f))) (define gxc#::refine-type-info? (let () (declare (not safe)) (__make-class-predicate gxc#::refine-type-info::t))) (define gxc#make-::refine-type-info - (lambda _%$args176610%_ - (apply make-instance gxc#::refine-type-info::t _%$args176610%_))) + (lambda _%$args180154%_ + (apply make-instance gxc#::refine-type-info::t _%$args180154%_))) (define gxc#::refine-type-info-bind-methods! - (let ((__tmp179744 + (let ((__tmp183288 (lambda () (force gxc#::void-bind-methods!) (let () @@ -604,33 +604,33 @@ (declare (not safe)) (__seal-class! gxc#::refine-type-info::t))))) (declare (not safe)) - (__make-atomic-promise __tmp179744))) + (__make-atomic-promise __tmp183288))) (define gxc#apply-refine-type-info - (lambda (_%stx176602%_) + (lambda (_%stx180146%_) (force gxc#::refine-type-info-bind-methods!) - (let* ((_%self176605%_ - (let ((__obj179679 + (let* ((_%self180149%_ + (let ((__obj183223 (let () (declare (not safe)) (##structure gxc#::refine-type-info::t)))) - __obj179679)) - (__tmp179745 + __obj183223)) + (__tmp183289 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176605%_ _%stx176602%_))))) + (gxc#compile-e__1 _%self180149%_ _%stx180146%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp179745 + __tmp183289 gxc#current-compile-method - _%self176605%_)))) + _%self180149%_)))) (define gxc#::raw-expression-type::t - (let ((__tmp179746 (list gxc#::false::t))) + (let ((__tmp183290 (list gxc#::false::t))) (declare (not safe)) (__make-class-type 'gxc#::raw-expression-type::t '::raw-expression-type - __tmp179746 + __tmp183290 '() '() '#f))) @@ -639,10 +639,10 @@ (declare (not safe)) (__make-class-predicate gxc#::raw-expression-type::t))) (define gxc#make-::raw-expression-type - (lambda _%$args176599%_ - (apply make-instance gxc#::raw-expression-type::t _%$args176599%_))) + (lambda _%$args180143%_ + (apply make-instance gxc#::raw-expression-type::t _%$args180143%_))) (define gxc#::raw-expression-type-bind-methods! - (let ((__tmp179747 + (let ((__tmp183291 (lambda () (force gxc#::false-bind-methods!) (let () @@ -712,46 +712,46 @@ '%#quote gxc#basic-expression-type-quote%))))) (declare (not safe)) - (__make-atomic-promise __tmp179747))) + (__make-atomic-promise __tmp183291))) (define gxc#apply-raw-expression-type - (lambda (_%stx176591%_) + (lambda (_%stx180135%_) (force gxc#::raw-expression-type-bind-methods!) - (let* ((_%self176594%_ - (let ((__obj179681 + (let* ((_%self180138%_ + (let ((__obj183225 (let () (declare (not safe)) (##structure gxc#::raw-expression-type::t)))) - __obj179681)) - (__tmp179748 + __obj183225)) + (__tmp183292 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176594%_ _%stx176591%_))))) + (gxc#compile-e__1 _%self180138%_ _%stx180135%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp179748 + __tmp183292 gxc#current-compile-method - _%self176594%_)))) + _%self180138%_)))) (define gxc#::basic-expression-type::t - (let ((__tmp179750 (list gxc#::raw-expression-type::t gxc#::false::t)) - (__tmp179749 (cons (cons 'final: '#t) '()))) + (let ((__tmp183294 (list gxc#::raw-expression-type::t gxc#::false::t)) + (__tmp183293 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::basic-expression-type::t '::basic-expression-type - __tmp179750 + __tmp183294 '() - __tmp179749 + __tmp183293 '#f))) (define gxc#::basic-expression-type? (let () (declare (not safe)) (__make-class-predicate gxc#::basic-expression-type::t))) (define gxc#make-::basic-expression-type - (lambda _%$args176588%_ - (apply make-instance gxc#::basic-expression-type::t _%$args176588%_))) + (lambda _%$args180132%_ + (apply make-instance gxc#::basic-expression-type::t _%$args180132%_))) (define gxc#::basic-expression-type-bind-methods! - (let ((__tmp179751 + (let ((__tmp183295 (lambda () (force gxc#::raw-expression-type-bind-methods!) (force gxc#::false-bind-methods!) @@ -765,46 +765,46 @@ (declare (not safe)) (__seal-class! gxc#::basic-expression-type::t))))) (declare (not safe)) - (__make-atomic-promise __tmp179751))) + (__make-atomic-promise __tmp183295))) (define gxc#apply-basic-expression-type - (lambda (_%stx176580%_) + (lambda (_%stx180124%_) (force gxc#::basic-expression-type-bind-methods!) - (let* ((_%self176583%_ - (let ((__obj179683 + (let* ((_%self180127%_ + (let ((__obj183227 (let () (declare (not safe)) (##structure gxc#::basic-expression-type::t)))) - __obj179683)) - (__tmp179752 + __obj183227)) + (__tmp183296 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176583%_ _%stx176580%_))))) + (gxc#compile-e__1 _%self180127%_ _%stx180124%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp179752 + __tmp183296 gxc#current-compile-method - _%self176583%_)))) + _%self180127%_)))) (define gxc#::lift-top-lambdas::t - (let ((__tmp179754 (list gxc#::basic-xform::t)) - (__tmp179753 (cons (cons 'final: '#t) '()))) + (let ((__tmp183298 (list gxc#::basic-xform::t)) + (__tmp183297 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::lift-top-lambdas::t '::lift-top-lambdas - __tmp179754 + __tmp183298 '() - __tmp179753 + __tmp183297 '#f))) (define gxc#::lift-top-lambdas? (let () (declare (not safe)) (__make-class-predicate gxc#::lift-top-lambdas::t))) (define gxc#make-::lift-top-lambdas - (lambda _%$args176577%_ - (apply make-instance gxc#::lift-top-lambdas::t _%$args176577%_))) + (lambda _%$args180121%_ + (apply make-instance gxc#::lift-top-lambdas::t _%$args180121%_))) (define gxc#::lift-top-lambdas-bind-methods! - (let ((__tmp179755 + (let ((__tmp183299 (lambda () (force gxc#::basic-xform-bind-methods!) (let () @@ -835,48 +835,48 @@ (declare (not safe)) (__seal-class! gxc#::lift-top-lambdas::t))))) (declare (not safe)) - (__make-atomic-promise __tmp179755))) + (__make-atomic-promise __tmp183299))) (define gxc#apply-lift-top-lambdas - (lambda (_%stx176569%_) + (lambda (_%stx180113%_) (force gxc#::lift-top-lambdas-bind-methods!) - (let* ((_%self176572%_ - (let ((__obj179685 + (let* ((_%self180116%_ + (let ((__obj183229 (let () (declare (not safe)) (##structure gxc#::lift-top-lambdas::t)))) - __obj179685)) - (__tmp179756 + __obj183229)) + (__tmp183300 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176572%_ _%stx176569%_))))) + (gxc#compile-e__1 _%self180116%_ _%stx180113%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp179756 + __tmp183300 gxc#current-compile-method - _%self176572%_)))) + _%self180116%_)))) (define gxc#::extract-lambda-signature::t - (let ((__tmp179758 (list gxc#::false::t)) - (__tmp179757 (cons (cons 'final: '#t) '()))) + (let ((__tmp183302 (list gxc#::false::t)) + (__tmp183301 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::extract-lambda-signature::t '::extract-lambda-signature - __tmp179758 + __tmp183302 '() - __tmp179757 + __tmp183301 '#f))) (define gxc#::extract-lambda-signature? (let () (declare (not safe)) (__make-class-predicate gxc#::extract-lambda-signature::t))) (define gxc#make-::extract-lambda-signature - (lambda _%$args176566%_ + (lambda _%$args180110%_ (apply make-instance gxc#::extract-lambda-signature::t - _%$args176566%_))) + _%$args180110%_))) (define gxc#::extract-lambda-signature-bind-methods! - (let ((__tmp179759 + (let ((__tmp183303 (lambda () (force gxc#::false-bind-methods!) (let () @@ -913,225 +913,227 @@ (declare (not safe)) (__seal-class! gxc#::extract-lambda-signature::t))))) (declare (not safe)) - (__make-atomic-promise __tmp179759))) + (__make-atomic-promise __tmp183303))) (define gxc#apply-extract-lambda-signature - (lambda (_%stx176558%_) + (lambda (_%stx180102%_) (force gxc#::extract-lambda-signature-bind-methods!) - (let* ((_%self176561%_ - (let ((__obj179687 + (let* ((_%self180105%_ + (let ((__obj183231 (let () (declare (not safe)) (##structure gxc#::extract-lambda-signature::t)))) - __obj179687)) - (__tmp179760 + __obj183231)) + (__tmp183304 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176561%_ _%stx176558%_))))) + (gxc#compile-e__1 _%self180105%_ _%stx180102%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp179760 + __tmp183304 gxc#current-compile-method - _%self176561%_)))) + _%self180105%_)))) (define gxc#collect-top-level-type-define-values% - (lambda (_%self176460%_ _%stx176461%_) - (let* ((_%__stx176678176679%_ _%stx176461%_) - (_%g176464176484%_ + (lambda (_%self180005%_ _%stx180006%_) + (let* ((_%__stx180222180223%_ _%stx180006%_) + (_%g180009180029%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176678176679%_))))) - (let ((_%__kont176680176681%_ - (lambda (_%L176528%_ _%L176529%_) - (let ((_%sym176547%_ + _%__stx180222180223%_))))) + (let ((_%__kont180224180225%_ + (lambda (_%g180011180073%_ _%g180012180074%_) + (let ((_%sym180092%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L176529%_)))) + (gxc#identifier-symbol _%g180012180074%_)))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self176460%_ _%L176528%_)) - (let ((_%type176548176550%_ + (gxc#compile-e__1 _%self180005%_ _%g180011180073%_)) + (let ((_%type180093180095%_ (gxc#apply-basic-expression-top-level-type - _%L176528%_))) - (if _%type176548176550%_ - (let ((_%type176553%_ _%type176548176550%_)) + _%g180011180073%_))) + (if _%type180093180095%_ + (let ((_%type180097%_ _%type180093180095%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type176553%_ + _%type180097%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp179761 + (let ((__tmp183305 (let () (declare (not safe)) (##unchecked-structure-ref - _%type176553%_ + _%type180097%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym176547%_ - __tmp179761)) - (let ((__tmp179762 + _%sym180092%_ + __tmp183305)) + (let ((__tmp183306 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx176461%_ + _%stx180006%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym176547%_ - __tmp179762))) + _%sym180092%_ + __tmp183306))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym176547%_ - _%type176553%_)))) + _%sym180092%_ + _%type180097%_)))) '#f))))) - (_%__kont176682176683%_ (lambda () '#!void))) - (let ((_%__match176711176712%_ - (lambda (_%e176468176496%_ - _%hd176469176499%_ - _%tl176470176501%_ - _%e176471176504%_ - _%hd176472176507%_ - _%tl176473176509%_ - _%e176474176512%_ - _%hd176475176515%_ - _%tl176476176517%_ - _%e176477176520%_ - _%hd176478176523%_ - _%tl176479176525%_) - (let ((_%L176528%_ _%hd176478176523%_) - (_%L176529%_ _%hd176475176515%_)) + (_%__kont180226180227%_ (lambda () '#!void))) + (let ((_%__match180255180256%_ + (lambda (_%e180013180041%_ + _%hd180014180044%_ + _%tl180015180046%_ + _%e180016180049%_ + _%hd180017180052%_ + _%tl180018180054%_ + _%e180019180057%_ + _%hd180020180060%_ + _%tl180021180062%_ + _%e180022180065%_ + _%hd180023180068%_ + _%tl180024180070%_) + (let ((_%g180011180073%_ _%hd180023180068%_) + (_%g180012180074%_ _%hd180020180060%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L176529%_)) - (_%__kont176680176681%_ _%L176528%_ _%L176529%_) - (_%__kont176682176683%_)))))) + (gx#identifier? _%g180012180074%_)) + (_%__kont180224180225%_ + _%g180011180073%_ + _%g180012180074%_) + (_%__kont180226180227%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176678176679%_)) - (let ((_%e176468176496%_ + (gx#stx-pair? _%__stx180222180223%_)) + (let ((_%e180013180041%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176678176679%_)))) - (let ((_%tl176470176501%_ + (gx#stx-e _%__stx180222180223%_)))) + (let ((_%tl180015180046%_ (let () (declare (not safe)) - (##cdr _%e176468176496%_))) - (_%hd176469176499%_ + (##cdr _%e180013180041%_))) + (_%hd180014180044%_ (let () (declare (not safe)) - (##car _%e176468176496%_)))) + (##car _%e180013180041%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176470176501%_)) - (let ((_%e176471176504%_ + (gx#stx-pair? _%tl180015180046%_)) + (let ((_%e180016180049%_ (let () (declare (not safe)) - (gx#stx-e _%tl176470176501%_)))) - (let ((_%tl176473176509%_ + (gx#stx-e _%tl180015180046%_)))) + (let ((_%tl180018180054%_ (let () (declare (not safe)) - (##cdr _%e176471176504%_))) - (_%hd176472176507%_ + (##cdr _%e180016180049%_))) + (_%hd180017180052%_ (let () (declare (not safe)) - (##car _%e176471176504%_)))) + (##car _%e180016180049%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd176472176507%_)) - (let ((_%e176474176512%_ + (gx#stx-pair? _%hd180017180052%_)) + (let ((_%e180019180057%_ (let () (declare (not safe)) - (gx#stx-e _%hd176472176507%_)))) - (let ((_%tl176476176517%_ + (gx#stx-e _%hd180017180052%_)))) + (let ((_%tl180021180062%_ (let () (declare (not safe)) - (##cdr _%e176474176512%_))) - (_%hd176475176515%_ + (##cdr _%e180019180057%_))) + (_%hd180020180060%_ (let () (declare (not safe)) - (##car _%e176474176512%_)))) + (##car _%e180019180057%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176476176517%_)) + (gx#stx-null? _%tl180021180062%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176473176509%_)) - (let ((_%e176477176520%_ + _%tl180018180054%_)) + (let ((_%e180022180065%_ (let () (declare (not safe)) (gx#stx-e - _%tl176473176509%_)))) - (let ((_%tl176479176525%_ + _%tl180018180054%_)))) + (let ((_%tl180024180070%_ (let () (declare (not safe)) - (##cdr _%e176477176520%_))) - (_%hd176478176523%_ + (##cdr _%e180022180065%_))) + (_%hd180023180068%_ (let () (declare (not safe)) - (##car _%e176477176520%_)))) + (##car _%e180022180065%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176479176525%_)) - (_%__match176711176712%_ - _%e176468176496%_ - _%hd176469176499%_ - _%tl176470176501%_ - _%e176471176504%_ - _%hd176472176507%_ - _%tl176473176509%_ - _%e176474176512%_ - _%hd176475176515%_ - _%tl176476176517%_ - _%e176477176520%_ - _%hd176478176523%_ - _%tl176479176525%_) - (_%__kont176682176683%_)))) - (_%__kont176682176683%_)) - (_%__kont176682176683%_)))) - (_%__kont176682176683%_)))) - (_%__kont176682176683%_)))) - (_%__kont176682176683%_))))))) + _%tl180024180070%_)) + (_%__match180255180256%_ + _%e180013180041%_ + _%hd180014180044%_ + _%tl180015180046%_ + _%e180016180049%_ + _%hd180017180052%_ + _%tl180018180054%_ + _%e180019180057%_ + _%hd180020180060%_ + _%tl180021180062%_ + _%e180022180065%_ + _%hd180023180068%_ + _%tl180024180070%_) + (_%__kont180226180227%_)))) + (_%__kont180226180227%_)) + (_%__kont180226180227%_)))) + (_%__kont180226180227%_)))) + (_%__kont180226180227%_)))) + (_%__kont180226180227%_))))))) (define gxc#collect-top-level-decl-begin-annotation% - (lambda (_%self176282%_ _%stx176283%_) - (let* ((_%__stx176714176715%_ _%stx176283%_) - (_%g176286176326%_ + (lambda (_%self179827%_ _%stx179828%_) + (let* ((_%__stx180258180259%_ _%stx179828%_) + (_%g179831179871%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176714176715%_))))) - (let ((_%__kont176716176717%_ - (lambda (_%L176432%_ _%L176433%_) - (let ((_%type176455%_ - (let ((__tmp179763 + _%__stx180258180259%_))))) + (let ((_%__kont180260180261%_ + (lambda (_%g179833179977%_ _%g179834179978%_) + (let ((_%type180000%_ + (let ((__tmp183307 (let () (declare (not safe)) - (gxc#identifier-symbol _%L176433%_)))) + (gxc#identifier-symbol _%g179834179978%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp179763)))) + (gxc#optimizer-lookup-type __tmp183307)))) (if (let () (declare (not safe)) (##structure-instance-of? - _%type176455%_ + _%type180000%_ 'gxc#!lambda::t)) - (let ((__tmp179764 - (gxc#eval-in-ssxi-context _%L176432%_))) + (let ((__tmp183308 + (gxc#eval-in-ssxi-context _%g179833179977%_))) (declare (not safe)) (##unchecked-structure-set! - _%type176455%_ - __tmp179764 + _%type180000%_ + __tmp183308 '5 '#f '#f)) @@ -1139,6757 +1141,6793 @@ (declare (not safe)) (gxc#raise-compile-error '"inline rule for non lambda procedure" - _%stx176283%_ - _%L176433%_)))))) - (_%__kont176718176719%_ - (lambda (_%L176355%_ _%L176356%_) '#!void))) + _%stx179828%_ + _%g179834179978%_)))))) + (_%__kont180262180263%_ + (lambda (_%g179856179900%_ _%g179857179901%_) '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176714176715%_)) - (let ((_%e176290176376%_ + (gx#stx-pair? _%__stx180258180259%_)) + (let ((_%e179835179921%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176714176715%_)))) - (let ((_%tl176292176381%_ + (gx#stx-e _%__stx180258180259%_)))) + (let ((_%tl179837179926%_ (let () (declare (not safe)) - (##cdr _%e176290176376%_))) - (_%hd176291176379%_ + (##cdr _%e179835179921%_))) + (_%hd179836179924%_ (let () (declare (not safe)) - (##car _%e176290176376%_)))) + (##car _%e179835179921%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176292176381%_)) - (let ((_%e176293176384%_ + (gx#stx-pair? _%tl179837179926%_)) + (let ((_%e179838179929%_ (let () (declare (not safe)) - (gx#stx-e _%tl176292176381%_)))) - (let ((_%tl176295176389%_ + (gx#stx-e _%tl179837179926%_)))) + (let ((_%tl179840179934%_ (let () (declare (not safe)) - (##cdr _%e176293176384%_))) - (_%hd176294176387%_ + (##cdr _%e179838179929%_))) + (_%hd179839179932%_ (let () (declare (not safe)) - (##car _%e176293176384%_)))) + (##car _%e179838179929%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd176294176387%_)) - (let ((_%e176296176392%_ + (gx#stx-pair? _%hd179839179932%_)) + (let ((_%e179841179937%_ (let () (declare (not safe)) - (gx#stx-e _%hd176294176387%_)))) - (let ((_%tl176298176397%_ + (gx#stx-e _%hd179839179932%_)))) + (let ((_%tl179843179942%_ (let () (declare (not safe)) - (##cdr _%e176296176392%_))) - (_%hd176297176395%_ + (##cdr _%e179841179937%_))) + (_%hd179842179940%_ (let () (declare (not safe)) - (##car _%e176296176392%_)))) + (##car _%e179841179937%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd176297176395%_)) + (gx#identifier? _%hd179842179940%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@inline - _%hd176297176395%_)) + _%hd179842179940%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176298176397%_)) - (let ((_%e176299176400%_ + _%tl179843179942%_)) + (let ((_%e179844179945%_ (let () (declare (not safe)) (gx#stx-e - _%tl176298176397%_)))) - (let ((_%tl176301176405%_ + _%tl179843179942%_)))) + (let ((_%tl179846179950%_ (let () (declare (not safe)) - (##cdr _%e176299176400%_))) - (_%hd176300176403%_ + (##cdr _%e179844179945%_))) + (_%hd179845179948%_ (let () (declare (not safe)) - (##car _%e176299176400%_)))) + (##car _%e179844179945%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176301176405%_)) + _%tl179846179950%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176295176389%_)) - (let ((_%e176302176408%_ + _%tl179840179934%_)) + (let ((_%e179847179953%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl176295176389%_)))) - (let ((_%tl176304176413%_ + (gx#stx-e _%tl179840179934%_)))) + (let ((_%tl179849179958%_ (let () (declare (not safe)) - (##cdr _%e176302176408%_))) - (_%hd176303176411%_ + (##cdr _%e179847179953%_))) + (_%hd179848179956%_ (let () (declare (not safe)) - (##car _%e176302176408%_)))) + (##car _%e179847179953%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd176303176411%_)) - (let ((_%e176305176416%_ + (gx#stx-pair? _%hd179848179956%_)) + (let ((_%e179850179961%_ (let () (declare (not safe)) - (gx#stx-e _%hd176303176411%_)))) - (let ((_%tl176307176421%_ + (gx#stx-e _%hd179848179956%_)))) + (let ((_%tl179852179966%_ (let () (declare (not safe)) - (##cdr _%e176305176416%_))) - (_%hd176306176419%_ + (##cdr _%e179850179961%_))) + (_%hd179851179964%_ (let () (declare (not safe)) - (##car _%e176305176416%_)))) + (##car _%e179850179961%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd176306176419%_)) + (gx#identifier? _%hd179851179964%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd176306176419%_)) + _%hd179851179964%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176307176421%_)) - (let ((_%e176308176424%_ + _%tl179852179966%_)) + (let ((_%e179853179969%_ (let () (declare (not safe)) (gx#stx-e - _%tl176307176421%_)))) - (let ((_%tl176310176429%_ + _%tl179852179966%_)))) + (let ((_%tl179855179974%_ (let () (declare (not safe)) - (##cdr _%e176308176424%_))) - (_%hd176309176427%_ + (##cdr _%e179853179969%_))) + (_%hd179854179972%_ (let () (declare (not safe)) - (##car _%e176308176424%_)))) + (##car _%e179853179969%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176310176429%_)) + _%tl179855179974%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176304176413%_)) - (_%__kont176716176717%_ - _%hd176309176427%_ - _%hd176300176403%_) + _%tl179849179958%_)) + (_%__kont180260180261%_ + _%hd179854179972%_ + _%hd179845179948%_) (let () (declare (not safe)) - (_%g176286176326%_))) + (_%g179831179871%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176304176413%_)) - (_%__kont176718176719%_ - _%hd176303176411%_ - _%hd176294176387%_) + _%tl179849179958%_)) + (_%__kont180262180263%_ + _%hd179848179956%_ + _%hd179839179932%_) (let () (declare (not safe)) - (_%g176286176326%_)))))) + (_%g179831179871%_)))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176304176413%_)) - (_%__kont176718176719%_ - _%hd176303176411%_ - _%hd176294176387%_) + _%tl179849179958%_)) + (_%__kont180262180263%_ + _%hd179848179956%_ + _%hd179839179932%_) (let () (declare (not safe)) - (_%g176286176326%_)))) + (_%g179831179871%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176304176413%_)) - (_%__kont176718176719%_ - _%hd176303176411%_ - _%hd176294176387%_) + _%tl179849179958%_)) + (_%__kont180262180263%_ + _%hd179848179956%_ + _%hd179839179932%_) (let () (declare (not safe)) - (_%g176286176326%_)))) + (_%g179831179871%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176304176413%_)) - (_%__kont176718176719%_ - _%hd176303176411%_ - _%hd176294176387%_) + (gx#stx-null? _%tl179849179958%_)) + (_%__kont180262180263%_ + _%hd179848179956%_ + _%hd179839179932%_) (let () (declare (not safe)) - (_%g176286176326%_)))))) + (_%g179831179871%_)))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176304176413%_)) - (_%__kont176718176719%_ - _%hd176303176411%_ - _%hd176294176387%_) + (gx#stx-null? _%tl179849179958%_)) + (_%__kont180262180263%_ + _%hd179848179956%_ + _%hd179839179932%_) (let () (declare (not safe)) - (_%g176286176326%_)))))) - (let () (declare (not safe)) (_%g176286176326%_))) + (_%g179831179871%_)))))) + (let () (declare (not safe)) (_%g179831179871%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176295176389%_)) - (let ((_%e176319176347%_ + (gx#stx-pair? _%tl179840179934%_)) + (let ((_%e179864179892%_ (let () (declare (not safe)) - (gx#stx-e _%tl176295176389%_)))) - (let ((_%tl176321176352%_ + (gx#stx-e _%tl179840179934%_)))) + (let ((_%tl179866179897%_ (let () (declare (not safe)) - (##cdr _%e176319176347%_))) - (_%hd176320176350%_ + (##cdr _%e179864179892%_))) + (_%hd179865179895%_ (let () (declare (not safe)) - (##car _%e176319176347%_)))) + (##car _%e179864179892%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176321176352%_)) - (_%__kont176718176719%_ - _%hd176320176350%_ - _%hd176294176387%_) + (gx#stx-null? _%tl179866179897%_)) + (_%__kont180262180263%_ + _%hd179865179895%_ + _%hd179839179932%_) (let () (declare (not safe)) - (_%g176286176326%_))))) - (let () (declare (not safe)) (_%g176286176326%_)))))) + (_%g179831179871%_))))) + (let () (declare (not safe)) (_%g179831179871%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176295176389%_)) - (let ((_%e176319176347%_ + _%tl179840179934%_)) + (let ((_%e179864179892%_ (let () (declare (not safe)) (gx#stx-e - _%tl176295176389%_)))) - (let ((_%tl176321176352%_ + _%tl179840179934%_)))) + (let ((_%tl179866179897%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e176319176347%_))) - (_%hd176320176350%_ - (let () (declare (not safe)) (##car _%e176319176347%_)))) + (##cdr _%e179864179892%_))) + (_%hd179865179895%_ + (let () (declare (not safe)) (##car _%e179864179892%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176321176352%_)) - (_%__kont176718176719%_ - _%hd176320176350%_ - _%hd176294176387%_) - (let () (declare (not safe)) (_%g176286176326%_))))) + (gx#stx-null? _%tl179866179897%_)) + (_%__kont180262180263%_ + _%hd179865179895%_ + _%hd179839179932%_) + (let () (declare (not safe)) (_%g179831179871%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g176286176326%_)))) + (_%g179831179871%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176295176389%_)) - (let ((_%e176319176347%_ + _%tl179840179934%_)) + (let ((_%e179864179892%_ (let () (declare (not safe)) (gx#stx-e - _%tl176295176389%_)))) - (let ((_%tl176321176352%_ + _%tl179840179934%_)))) + (let ((_%tl179866179897%_ (let () (declare (not safe)) - (##cdr _%e176319176347%_))) - (_%hd176320176350%_ + (##cdr _%e179864179892%_))) + (_%hd179865179895%_ (let () (declare (not safe)) - (##car _%e176319176347%_)))) + (##car _%e179864179892%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176321176352%_)) - (_%__kont176718176719%_ - _%hd176320176350%_ - _%hd176294176387%_) + _%tl179866179897%_)) + (_%__kont180262180263%_ + _%hd179865179895%_ + _%hd179839179932%_) (let () (declare (not safe)) - (_%g176286176326%_))))) + (_%g179831179871%_))))) (let () (declare (not safe)) - (_%g176286176326%_)))) + (_%g179831179871%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176295176389%_)) - (let ((_%e176319176347%_ + _%tl179840179934%_)) + (let ((_%e179864179892%_ (let () (declare (not safe)) (gx#stx-e - _%tl176295176389%_)))) - (let ((_%tl176321176352%_ + _%tl179840179934%_)))) + (let ((_%tl179866179897%_ (let () (declare (not safe)) - (##cdr _%e176319176347%_))) - (_%hd176320176350%_ + (##cdr _%e179864179892%_))) + (_%hd179865179895%_ (let () (declare (not safe)) - (##car _%e176319176347%_)))) + (##car _%e179864179892%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176321176352%_)) - (_%__kont176718176719%_ - _%hd176320176350%_ - _%hd176294176387%_) + _%tl179866179897%_)) + (_%__kont180262180263%_ + _%hd179865179895%_ + _%hd179839179932%_) (let () (declare (not safe)) - (_%g176286176326%_))))) + (_%g179831179871%_))))) (let () (declare (not safe)) - (_%g176286176326%_)))))) + (_%g179831179871%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176295176389%_)) - (let ((_%e176319176347%_ + (gx#stx-pair? _%tl179840179934%_)) + (let ((_%e179864179892%_ (let () (declare (not safe)) - (gx#stx-e _%tl176295176389%_)))) - (let ((_%tl176321176352%_ + (gx#stx-e _%tl179840179934%_)))) + (let ((_%tl179866179897%_ (let () (declare (not safe)) - (##cdr _%e176319176347%_))) - (_%hd176320176350%_ + (##cdr _%e179864179892%_))) + (_%hd179865179895%_ (let () (declare (not safe)) - (##car _%e176319176347%_)))) + (##car _%e179864179892%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176321176352%_)) - (_%__kont176718176719%_ - _%hd176320176350%_ - _%hd176294176387%_) + _%tl179866179897%_)) + (_%__kont180262180263%_ + _%hd179865179895%_ + _%hd179839179932%_) (let () (declare (not safe)) - (_%g176286176326%_))))) + (_%g179831179871%_))))) (let () (declare (not safe)) - (_%g176286176326%_)))))) - (let () (declare (not safe)) (_%g176286176326%_))))) - (let () (declare (not safe)) (_%g176286176326%_))))))) + (_%g179831179871%_)))))) + (let () (declare (not safe)) (_%g179831179871%_))))) + (let () (declare (not safe)) (_%g179831179871%_))))))) (define gxc#eval-in-ssxi-context - (lambda (_%expr176279%_) - (let ((__tmp179766 + (lambda (_%expr179824%_) + (let ((__tmp183310 (lambda () (eval '(import :gerbil/compiler/ssxi)) (let () (declare (not safe)) - (gx#eval-syntax__0 _%expr176279%_)))) - (__tmp179765 - (let ((__obj179688 + (gx#eval-syntax__0 _%expr179824%_)))) + (__tmp183309 + (let ((__obj183232 (let () (declare (not safe)) (##structure gx#top-context::t '#f '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gx#top-context:::init!__0 __obj179688)) - __obj179688))) + (gx#top-context:::init!__0 __obj183232)) + __obj183232))) (declare (not safe)) (call-with-parameters__1 - __tmp179766 + __tmp183310 gx#current-expander-context - __tmp179765)))) + __tmp183309)))) (define gxc#collect-type-define-values% - (lambda (_%self176141%_ _%stx176142%_) - (let* ((_%__stx176798176799%_ _%stx176142%_) - (_%g176145176175%_ + (lambda (_%self179686%_ _%stx179687%_) + (let* ((_%__stx180342180343%_ _%stx179687%_) + (_%g179690179720%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176798176799%_))))) - (let ((_%__kont176800176801%_ - (lambda (_%L176255%_ _%L176256%_) - (let ((_%sym176272%_ + _%__stx180342180343%_))))) + (let ((_%__kont180344180345%_ + (lambda (_%g179692179800%_ _%g179693179801%_) + (let ((_%sym179817%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L176256%_)))) + (gxc#identifier-symbol _%g179693179801%_)))) (if (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%sym176272%_)) + (gxc#optimizer-lookup-type _%sym179817%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self176141%_ _%L176255%_)) - (let ((_%type176274%_ - (gxc#apply-basic-expression-type _%L176255%_))) - (if _%type176274%_ + (gxc#compile-e__1 _%self179686%_ _%g179692179800%_)) + (let ((_%type179819%_ + (gxc#apply-basic-expression-type + _%g179692179800%_))) + (if _%type179819%_ (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym176272%_ - _%type176274%_)) + _%sym179817%_ + _%type179819%_)) '#!void) (let () (declare (not safe)) (gxc#compile-e__1 - _%self176141%_ - _%L176255%_))))))) - (_%__kont176802176803%_ - (lambda (_%L176204%_) + _%self179686%_ + _%g179692179800%_))))))) + (_%__kont180346180347%_ + (lambda (_%g179706179749%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self176141%_ _%L176204%_))))) - (let ((_%__match176831176832%_ - (lambda (_%e176149176223%_ - _%hd176150176226%_ - _%tl176151176228%_ - _%e176152176231%_ - _%hd176153176234%_ - _%tl176154176236%_ - _%e176155176239%_ - _%hd176156176242%_ - _%tl176157176244%_ - _%e176158176247%_ - _%hd176159176250%_ - _%tl176160176252%_) - (let ((_%L176255%_ _%hd176159176250%_) - (_%L176256%_ _%hd176156176242%_)) + (gxc#compile-e__1 _%self179686%_ _%g179706179749%_))))) + (let ((_%__match180375180376%_ + (lambda (_%e179694179768%_ + _%hd179695179771%_ + _%tl179696179773%_ + _%e179697179776%_ + _%hd179698179779%_ + _%tl179699179781%_ + _%e179700179784%_ + _%hd179701179787%_ + _%tl179702179789%_ + _%e179703179792%_ + _%hd179704179795%_ + _%tl179705179797%_) + (let ((_%g179692179800%_ _%hd179704179795%_) + (_%g179693179801%_ _%hd179701179787%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L176256%_)) - (_%__kont176800176801%_ _%L176255%_ _%L176256%_) - (_%__kont176802176803%_ _%hd176159176250%_)))))) + (gx#identifier? _%g179693179801%_)) + (_%__kont180344180345%_ + _%g179692179800%_ + _%g179693179801%_) + (_%__kont180346180347%_ _%hd179704179795%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176798176799%_)) - (let ((_%e176149176223%_ + (gx#stx-pair? _%__stx180342180343%_)) + (let ((_%e179694179768%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176798176799%_)))) - (let ((_%tl176151176228%_ + (gx#stx-e _%__stx180342180343%_)))) + (let ((_%tl179696179773%_ (let () (declare (not safe)) - (##cdr _%e176149176223%_))) - (_%hd176150176226%_ + (##cdr _%e179694179768%_))) + (_%hd179695179771%_ (let () (declare (not safe)) - (##car _%e176149176223%_)))) + (##car _%e179694179768%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176151176228%_)) - (let ((_%e176152176231%_ + (gx#stx-pair? _%tl179696179773%_)) + (let ((_%e179697179776%_ (let () (declare (not safe)) - (gx#stx-e _%tl176151176228%_)))) - (let ((_%tl176154176236%_ + (gx#stx-e _%tl179696179773%_)))) + (let ((_%tl179699179781%_ (let () (declare (not safe)) - (##cdr _%e176152176231%_))) - (_%hd176153176234%_ + (##cdr _%e179697179776%_))) + (_%hd179698179779%_ (let () (declare (not safe)) - (##car _%e176152176231%_)))) + (##car _%e179697179776%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd176153176234%_)) - (let ((_%e176155176239%_ + (gx#stx-pair? _%hd179698179779%_)) + (let ((_%e179700179784%_ (let () (declare (not safe)) - (gx#stx-e _%hd176153176234%_)))) - (let ((_%tl176157176244%_ + (gx#stx-e _%hd179698179779%_)))) + (let ((_%tl179702179789%_ (let () (declare (not safe)) - (##cdr _%e176155176239%_))) - (_%hd176156176242%_ + (##cdr _%e179700179784%_))) + (_%hd179701179787%_ (let () (declare (not safe)) - (##car _%e176155176239%_)))) + (##car _%e179700179784%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176157176244%_)) + (gx#stx-null? _%tl179702179789%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176154176236%_)) - (let ((_%e176158176247%_ + _%tl179699179781%_)) + (let ((_%e179703179792%_ (let () (declare (not safe)) (gx#stx-e - _%tl176154176236%_)))) - (let ((_%tl176160176252%_ + _%tl179699179781%_)))) + (let ((_%tl179705179797%_ (let () (declare (not safe)) - (##cdr _%e176158176247%_))) - (_%hd176159176250%_ + (##cdr _%e179703179792%_))) + (_%hd179704179795%_ (let () (declare (not safe)) - (##car _%e176158176247%_)))) + (##car _%e179703179792%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176160176252%_)) - (_%__match176831176832%_ - _%e176149176223%_ - _%hd176150176226%_ - _%tl176151176228%_ - _%e176152176231%_ - _%hd176153176234%_ - _%tl176154176236%_ - _%e176155176239%_ - _%hd176156176242%_ - _%tl176157176244%_ - _%e176158176247%_ - _%hd176159176250%_ - _%tl176160176252%_) + _%tl179705179797%_)) + (_%__match180375180376%_ + _%e179694179768%_ + _%hd179695179771%_ + _%tl179696179773%_ + _%e179697179776%_ + _%hd179698179779%_ + _%tl179699179781%_ + _%e179700179784%_ + _%hd179701179787%_ + _%tl179702179789%_ + _%e179703179792%_ + _%hd179704179795%_ + _%tl179705179797%_) (let () (declare (not safe)) - (_%g176145176175%_))))) + (_%g179690179720%_))))) (let () (declare (not safe)) - (_%g176145176175%_))) + (_%g179690179720%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176154176236%_)) - (let ((_%e176168176196%_ + _%tl179699179781%_)) + (let ((_%e179713179741%_ (let () (declare (not safe)) (gx#stx-e - _%tl176154176236%_)))) - (let ((_%tl176170176201%_ + _%tl179699179781%_)))) + (let ((_%tl179715179746%_ (let () (declare (not safe)) - (##cdr _%e176168176196%_))) - (_%hd176169176199%_ + (##cdr _%e179713179741%_))) + (_%hd179714179744%_ (let () (declare (not safe)) - (##car _%e176168176196%_)))) + (##car _%e179713179741%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176170176201%_)) - (_%__kont176802176803%_ - _%hd176169176199%_) + _%tl179715179746%_)) + (_%__kont180346180347%_ + _%hd179714179744%_) (let () (declare (not safe)) - (_%g176145176175%_))))) + (_%g179690179720%_))))) (let () (declare (not safe)) - (_%g176145176175%_)))))) + (_%g179690179720%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176154176236%_)) - (let ((_%e176168176196%_ + (gx#stx-pair? _%tl179699179781%_)) + (let ((_%e179713179741%_ (let () (declare (not safe)) - (gx#stx-e _%tl176154176236%_)))) - (let ((_%tl176170176201%_ + (gx#stx-e _%tl179699179781%_)))) + (let ((_%tl179715179746%_ (let () (declare (not safe)) - (##cdr _%e176168176196%_))) - (_%hd176169176199%_ + (##cdr _%e179713179741%_))) + (_%hd179714179744%_ (let () (declare (not safe)) - (##car _%e176168176196%_)))) + (##car _%e179713179741%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176170176201%_)) - (_%__kont176802176803%_ - _%hd176169176199%_) + _%tl179715179746%_)) + (_%__kont180346180347%_ + _%hd179714179744%_) (let () (declare (not safe)) - (_%g176145176175%_))))) + (_%g179690179720%_))))) (let () (declare (not safe)) - (_%g176145176175%_)))))) - (let () (declare (not safe)) (_%g176145176175%_))))) - (let () (declare (not safe)) (_%g176145176175%_)))))))) + (_%g179690179720%_)))))) + (let () (declare (not safe)) (_%g179690179720%_))))) + (let () (declare (not safe)) (_%g179690179720%_)))))))) (define gxc#collect-type-begin-annotation% - (lambda (_%self175896%_ _%stx175897%_) - (let* ((_%__stx176876176877%_ _%stx175897%_) - (_%g175900175940%_ + (lambda (_%self179443%_ _%stx179444%_) + (let* ((_%__stx180420180421%_ _%stx179444%_) + (_%g179447179487%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176876176877%_))))) - (let ((_%__kont176878176879%_ - (lambda (_%L176046%_ _%L176047%_) + _%__stx180420180421%_))))) + (let ((_%__kont180422180423%_ + (lambda (_%g179449179591%_ _%g179450179592%_) (for-each - (lambda (_%assertion176067%_) - (let* ((_%__stx176854176855%_ _%assertion176067%_) - (_%g176070176084%_ + (lambda (_%assertion179612%_) + (let* ((_%__stx180398180399%_ _%assertion179612%_) + (_%g179615179629%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176854176855%_))))) - (let ((_%__kont176856176857%_ - (lambda (_%L176112%_ _%L176113%_) - (let ((__tmp179769 + _%__stx180398180399%_))))) + (let ((_%__kont180400180401%_ + (lambda (_%g179617179657%_ _%g179618179658%_) + (let ((__tmp183313 (let () (declare (not safe)) - (gxc#identifier-symbol _%L176113%_))) - (__tmp179767 - (let ((__tmp179768 + (gxc#identifier-symbol + _%g179618179658%_))) + (__tmp183311 + (let ((__tmp183312 (let () (declare (not safe)) (gxc#identifier-symbol - _%L176112%_)))) + _%g179617179657%_)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx175897%_ - __tmp179768)))) + _%stx179444%_ + __tmp183312)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp179769 - __tmp179767 + __tmp183313 + __tmp183311 '#t)))) - (_%__kont176858176859%_ + (_%__kont180402180403%_ (lambda () (let () (declare (not safe)) (gxc#raise-compile-error '"malformed type assertion" - _%stx175897%_ - _%assertion176067%_))))) - (let ((_%__match176873176874%_ - (lambda (_%e176074176096%_ - _%hd176075176099%_ - _%tl176076176101%_ - _%e176077176104%_ - _%hd176078176107%_ - _%tl176079176109%_) - (let ((_%L176112%_ _%hd176078176107%_) - (_%L176113%_ _%hd176075176099%_)) + _%stx179444%_ + _%assertion179612%_))))) + (let ((_%__match180417180418%_ + (lambda (_%e179619179641%_ + _%hd179620179644%_ + _%tl179621179646%_ + _%e179622179649%_ + _%hd179623179652%_ + _%tl179624179654%_) + (let ((_%g179617179657%_ _%hd179623179652%_) + (_%g179618179658%_ + _%hd179620179644%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L176113%_)) + (gx#identifier? + _%g179618179658%_)) (let () (declare (not safe)) - (gx#identifier? _%L176112%_))) - (_%__kont176856176857%_ - _%L176112%_ - _%L176113%_) - (_%__kont176858176859%_)))))) + (gx#identifier? + _%g179617179657%_))) + (_%__kont180400180401%_ + _%g179617179657%_ + _%g179618179658%_) + (_%__kont180402180403%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176854176855%_)) - (let ((_%e176074176096%_ + (gx#stx-pair? _%__stx180398180399%_)) + (let ((_%e179619179641%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176854176855%_)))) - (let ((_%tl176076176101%_ + (gx#stx-e _%__stx180398180399%_)))) + (let ((_%tl179621179646%_ (let () (declare (not safe)) - (##cdr _%e176074176096%_))) - (_%hd176075176099%_ + (##cdr _%e179619179641%_))) + (_%hd179620179644%_ (let () (declare (not safe)) - (##car _%e176074176096%_)))) + (##car _%e179619179641%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176076176101%_)) - (let ((_%e176077176104%_ + (gx#stx-pair? _%tl179621179646%_)) + (let ((_%e179622179649%_ (let () (declare (not safe)) (gx#stx-e - _%tl176076176101%_)))) - (let ((_%tl176079176109%_ + _%tl179621179646%_)))) + (let ((_%tl179624179654%_ (let () (declare (not safe)) - (##cdr _%e176077176104%_))) - (_%hd176078176107%_ + (##cdr _%e179622179649%_))) + (_%hd179623179652%_ (let () (declare (not safe)) - (##car _%e176077176104%_)))) + (##car _%e179622179649%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176079176109%_)) - (_%__match176873176874%_ - _%e176074176096%_ - _%hd176075176099%_ - _%tl176076176101%_ - _%e176077176104%_ - _%hd176078176107%_ - _%tl176079176109%_) - (_%__kont176858176859%_)))) - (_%__kont176858176859%_)))) - (_%__kont176858176859%_)))))) - (let ((__tmp179770 - (lambda (_%g176130176133%_ _%g176131176135%_) - (cons _%g176130176133%_ _%g176131176135%_)))) + _%tl179624179654%_)) + (_%__match180417180418%_ + _%e179619179641%_ + _%hd179620179644%_ + _%tl179621179646%_ + _%e179622179649%_ + _%hd179623179652%_ + _%tl179624179654%_) + (_%__kont180402180403%_)))) + (_%__kont180402180403%_)))) + (_%__kont180402180403%_)))))) + (let ((__tmp183314 + (lambda (_%g179675179678%_ _%g179676179680%_) + (cons _%g179675179678%_ _%g179676179680%_)))) (declare (not safe)) - (__foldr1 __tmp179770 '() _%L176047%_))) + (__foldr1 __tmp183314 '() _%g179450179592%_))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self175896%_ _%L176046%_)))) - (_%__kont176882176883%_ - (lambda (_%L175969%_ _%L175970%_) + (gxc#compile-e__1 _%self179443%_ _%g179449179591%_)))) + (_%__kont180426180427%_ + (lambda (_%g179472179516%_ _%g179473179517%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self175896%_ _%L175969%_))))) - (let ((_%__match176913176914%_ - (lambda (_%e175904175990%_ - _%hd175905175993%_ - _%tl175906175995%_ - _%e175907175998%_ - _%hd175908176001%_ - _%tl175909176003%_ - _%e175910176006%_ - _%hd175911176009%_ - _%tl175912176011%_ - _%__splice176880176881%_ - _%target175913176014%_ - _%tl175915176016%_) - (letrec ((_%loop175916176019%_ - (lambda (_%hd175914176022%_ - _%assertion175920176024%_) + (gxc#compile-e__1 _%self179443%_ _%g179472179516%_))))) + (let ((_%__match180457180458%_ + (lambda (_%e179451179537%_ + _%hd179452179540%_ + _%tl179453179542%_ + _%e179454179545%_ + _%hd179455179548%_ + _%tl179456179550%_ + _%e179457179553%_ + _%hd179458179556%_ + _%tl179459179558%_ + _%__splice180424180425%_ + _%target179460179561%_ + _%tl179462179563%_) + (letrec ((_%loop179463179566%_ + (lambda (_%hd179461179569%_ + _%assertion179467179571%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175914176022%_)) - (let ((_%e175917176027%_ + (gx#stx-pair? _%hd179461179569%_)) + (let ((_%e179464179573%_ (let () (declare (not safe)) - (gx#stx-e _%hd175914176022%_)))) - (let ((_%lp-tl175919176032%_ + (gx#stx-e _%hd179461179569%_)))) + (let ((_%lp-tl179466179578%_ (let () (declare (not safe)) - (##cdr _%e175917176027%_))) - (_%lp-hd175918176030%_ + (##cdr _%e179464179573%_))) + (_%lp-hd179465179576%_ (let () (declare (not safe)) - (##car _%e175917176027%_)))) - (_%loop175916176019%_ - _%lp-tl175919176032%_ - (cons _%lp-hd175918176030%_ - _%assertion175920176024%_)))) - (let ((_%assertion175921176035%_ - (reverse _%assertion175920176024%_))) + (##car _%e179464179573%_)))) + (_%loop179463179566%_ + _%lp-tl179466179578%_ + (cons _%lp-hd179465179576%_ + _%assertion179467179571%_)))) + (let ((_%assertion179468179581%_ + (reverse _%assertion179467179571%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175909176003%_)) - (let ((_%e175922176038%_ + (gx#stx-pair? _%tl179456179550%_)) + (let ((_%e179469179583%_ (let () (declare (not safe)) (gx#stx-e - _%tl175909176003%_)))) - (let ((_%tl175924176043%_ + _%tl179456179550%_)))) + (let ((_%tl179471179588%_ (let () (declare (not safe)) - (##cdr _%e175922176038%_))) - (_%hd175923176041%_ + (##cdr _%e179469179583%_))) + (_%hd179470179586%_ (let () (declare (not safe)) - (##car _%e175922176038%_)))) + (##car _%e179469179583%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175924176043%_)) - (_%__kont176878176879%_ - _%hd175923176041%_ - _%assertion175921176035%_) + _%tl179471179588%_)) + (_%__kont180422180423%_ + _%hd179470179586%_ + _%assertion179468179581%_) (let () (declare (not safe)) - (_%g175900175940%_))))) + (_%g179447179487%_))))) (let () (declare (not safe)) - (_%g175900175940%_)))))))) - (_%loop175916176019%_ _%target175913176014%_ '()))))) + (_%g179447179487%_)))))))) + (_%loop179463179566%_ _%target179460179561%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176876176877%_)) - (let ((_%e175904175990%_ + (gx#stx-pair? _%__stx180420180421%_)) + (let ((_%e179451179537%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176876176877%_)))) - (let ((_%tl175906175995%_ + (gx#stx-e _%__stx180420180421%_)))) + (let ((_%tl179453179542%_ (let () (declare (not safe)) - (##cdr _%e175904175990%_))) - (_%hd175905175993%_ + (##cdr _%e179451179537%_))) + (_%hd179452179540%_ (let () (declare (not safe)) - (##car _%e175904175990%_)))) + (##car _%e179451179537%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175906175995%_)) - (let ((_%e175907175998%_ + (gx#stx-pair? _%tl179453179542%_)) + (let ((_%e179454179545%_ (let () (declare (not safe)) - (gx#stx-e _%tl175906175995%_)))) - (let ((_%tl175909176003%_ + (gx#stx-e _%tl179453179542%_)))) + (let ((_%tl179456179550%_ (let () (declare (not safe)) - (##cdr _%e175907175998%_))) - (_%hd175908176001%_ + (##cdr _%e179454179545%_))) + (_%hd179455179548%_ (let () (declare (not safe)) - (##car _%e175907175998%_)))) + (##car _%e179454179545%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175908176001%_)) - (let ((_%e175910176006%_ + (gx#stx-pair? _%hd179455179548%_)) + (let ((_%e179457179553%_ (let () (declare (not safe)) - (gx#stx-e _%hd175908176001%_)))) - (let ((_%tl175912176011%_ + (gx#stx-e _%hd179455179548%_)))) + (let ((_%tl179459179558%_ (let () (declare (not safe)) - (##cdr _%e175910176006%_))) - (_%hd175911176009%_ + (##cdr _%e179457179553%_))) + (_%hd179458179556%_ (let () (declare (not safe)) - (##car _%e175910176006%_)))) + (##car _%e179457179553%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175911176009%_)) + _%hd179458179556%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.assert - _%hd175911176009%_)) + _%hd179458179556%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl175912176011%_)) - (let ((_%__splice176880176881%_ + _%tl179459179558%_)) + (let ((_%__splice180424180425%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl175912176011%_ + _%tl179459179558%_ '0)))) - (let ((_%tl175915176016%_ + (let ((_%tl179462179563%_ (let () (declare (not safe)) (##vector-ref - _%__splice176880176881%_ + _%__splice180424180425%_ '1))) - (_%target175913176014%_ + (_%target179460179561%_ (let () (declare (not safe)) (##vector-ref - _%__splice176880176881%_ + _%__splice180424180425%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175915176016%_)) - (_%__match176913176914%_ - _%e175904175990%_ - _%hd175905175993%_ - _%tl175906175995%_ - _%e175907175998%_ - _%hd175908176001%_ - _%tl175909176003%_ - _%e175910176006%_ - _%hd175911176009%_ - _%tl175912176011%_ - _%__splice176880176881%_ - _%target175913176014%_ - _%tl175915176016%_) + _%tl179462179563%_)) + (_%__match180457180458%_ + _%e179451179537%_ + _%hd179452179540%_ + _%tl179453179542%_ + _%e179454179545%_ + _%hd179455179548%_ + _%tl179456179550%_ + _%e179457179553%_ + _%hd179458179556%_ + _%tl179459179558%_ + _%__splice180424180425%_ + _%target179460179561%_ + _%tl179462179563%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl175909176003%_)) - (let ((_%e175933175961%_ + (gx#stx-pair? _%tl179456179550%_)) + (let ((_%e179480179508%_ (let () (declare (not safe)) - (gx#stx-e _%tl175909176003%_)))) - (let ((_%tl175935175966%_ + (gx#stx-e _%tl179456179550%_)))) + (let ((_%tl179482179513%_ (let () (declare (not safe)) - (##cdr _%e175933175961%_))) - (_%hd175934175964%_ + (##cdr _%e179480179508%_))) + (_%hd179481179511%_ (let () (declare (not safe)) - (##car _%e175933175961%_)))) + (##car _%e179480179508%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175935175966%_)) - (_%__kont176882176883%_ - _%hd175934175964%_ - _%hd175908176001%_) + (gx#stx-null? _%tl179482179513%_)) + (_%__kont180426180427%_ + _%hd179481179511%_ + _%hd179455179548%_) (let () (declare (not safe)) - (_%g175900175940%_))))) - (let () (declare (not safe)) (_%g175900175940%_)))))) + (_%g179447179487%_))))) + (let () (declare (not safe)) (_%g179447179487%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175909176003%_)) - (let ((_%e175933175961%_ + _%tl179456179550%_)) + (let ((_%e179480179508%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl175909176003%_)))) - (let ((_%tl175935175966%_ - (let () (declare (not safe)) (##cdr _%e175933175961%_))) - (_%hd175934175964%_ + (gx#stx-e _%tl179456179550%_)))) + (let ((_%tl179482179513%_ + (let () (declare (not safe)) (##cdr _%e179480179508%_))) + (_%hd179481179511%_ (let () (declare (not safe)) - (##car _%e175933175961%_)))) + (##car _%e179480179508%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175935175966%_)) - (_%__kont176882176883%_ - _%hd175934175964%_ - _%hd175908176001%_) - (let () (declare (not safe)) (_%g175900175940%_))))) - (let () (declare (not safe)) (_%g175900175940%_)))) + (gx#stx-null? _%tl179482179513%_)) + (_%__kont180426180427%_ + _%hd179481179511%_ + _%hd179455179548%_) + (let () (declare (not safe)) (_%g179447179487%_))))) + (let () (declare (not safe)) (_%g179447179487%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175909176003%_)) - (let ((_%e175933175961%_ + _%tl179456179550%_)) + (let ((_%e179480179508%_ (let () (declare (not safe)) (gx#stx-e - _%tl175909176003%_)))) - (let ((_%tl175935175966%_ + _%tl179456179550%_)))) + (let ((_%tl179482179513%_ (let () (declare (not safe)) - (##cdr _%e175933175961%_))) - (_%hd175934175964%_ + (##cdr _%e179480179508%_))) + (_%hd179481179511%_ (let () (declare (not safe)) - (##car _%e175933175961%_)))) + (##car _%e179480179508%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175935175966%_)) - (_%__kont176882176883%_ - _%hd175934175964%_ - _%hd175908176001%_) + _%tl179482179513%_)) + (_%__kont180426180427%_ + _%hd179481179511%_ + _%hd179455179548%_) (let () (declare (not safe)) - (_%g175900175940%_))))) + (_%g179447179487%_))))) (let () (declare (not safe)) - (_%g175900175940%_)))) + (_%g179447179487%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175909176003%_)) - (let ((_%e175933175961%_ + _%tl179456179550%_)) + (let ((_%e179480179508%_ (let () (declare (not safe)) (gx#stx-e - _%tl175909176003%_)))) - (let ((_%tl175935175966%_ + _%tl179456179550%_)))) + (let ((_%tl179482179513%_ (let () (declare (not safe)) - (##cdr _%e175933175961%_))) - (_%hd175934175964%_ + (##cdr _%e179480179508%_))) + (_%hd179481179511%_ (let () (declare (not safe)) - (##car _%e175933175961%_)))) + (##car _%e179480179508%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175935175966%_)) - (_%__kont176882176883%_ - _%hd175934175964%_ - _%hd175908176001%_) + _%tl179482179513%_)) + (_%__kont180426180427%_ + _%hd179481179511%_ + _%hd179455179548%_) (let () (declare (not safe)) - (_%g175900175940%_))))) + (_%g179447179487%_))))) (let () (declare (not safe)) - (_%g175900175940%_)))))) + (_%g179447179487%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175909176003%_)) - (let ((_%e175933175961%_ + (gx#stx-pair? _%tl179456179550%_)) + (let ((_%e179480179508%_ (let () (declare (not safe)) - (gx#stx-e _%tl175909176003%_)))) - (let ((_%tl175935175966%_ + (gx#stx-e _%tl179456179550%_)))) + (let ((_%tl179482179513%_ (let () (declare (not safe)) - (##cdr _%e175933175961%_))) - (_%hd175934175964%_ + (##cdr _%e179480179508%_))) + (_%hd179481179511%_ (let () (declare (not safe)) - (##car _%e175933175961%_)))) + (##car _%e179480179508%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175935175966%_)) - (_%__kont176882176883%_ - _%hd175934175964%_ - _%hd175908176001%_) + _%tl179482179513%_)) + (_%__kont180426180427%_ + _%hd179481179511%_ + _%hd179455179548%_) (let () (declare (not safe)) - (_%g175900175940%_))))) + (_%g179447179487%_))))) (let () (declare (not safe)) - (_%g175900175940%_)))))) - (let () (declare (not safe)) (_%g175900175940%_))))) - (let () (declare (not safe)) (_%g175900175940%_)))))))) + (_%g179447179487%_)))))) + (let () (declare (not safe)) (_%g179447179487%_))))) + (let () (declare (not safe)) (_%g179447179487%_)))))))) (define gxc#collect-type-lambda% - (lambda (_%self175840%_ _%stx175841%_) - (let* ((_%g175843175857%_ - (lambda (_%g175844175854%_) + (lambda (_%self179387%_ _%stx179388%_) + (let* ((_%g179390179404%_ + (lambda (_%g179391179401%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175844175854%_)))) - (_%g175842175893%_ - (lambda (_%g175844175860%_) + _%g179391179401%_)))) + (_%g179389179440%_ + (lambda (_%g179391179407%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175844175860%_)) - (let ((_%e175847175862%_ + (gx#stx-pair? _%g179391179407%_)) + (let ((_%e179394179409%_ (let () (declare (not safe)) - (gx#stx-e _%g175844175860%_)))) - (let ((_%hd175848175865%_ + (gx#stx-e _%g179391179407%_)))) + (let ((_%hd179395179412%_ (let () (declare (not safe)) - (##car _%e175847175862%_))) - (_%tl175849175867%_ + (##car _%e179394179409%_))) + (_%tl179396179414%_ (let () (declare (not safe)) - (##cdr _%e175847175862%_)))) + (##cdr _%e179394179409%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175849175867%_)) - (let ((_%e175850175870%_ + (gx#stx-pair? _%tl179396179414%_)) + (let ((_%e179397179417%_ (let () (declare (not safe)) - (gx#stx-e _%tl175849175867%_)))) - (let ((_%hd175851175873%_ + (gx#stx-e _%tl179396179414%_)))) + (let ((_%hd179398179420%_ (let () (declare (not safe)) - (##car _%e175850175870%_))) - (_%tl175852175875%_ + (##car _%e179397179417%_))) + (_%tl179399179422%_ (let () (declare (not safe)) - (##cdr _%e175850175870%_)))) - ((lambda (_%L175878%_ _%L175879%_) - (let ((__tmp179772 + (##cdr _%e179397179417%_)))) + ((lambda (_%g179392179425%_ + _%g179393179426%_) + (let ((__tmp183316 (lambda () (gxc#collect-type-lambda-formals-tail - _%stx175841%_ - _%L175879%_) + _%stx179388%_ + _%g179393179426%_) (let () (declare (not safe)) (gxc#apply-body-lambda% - _%self175840%_ - _%stx175841%_)))) - (__tmp179771 + _%self179387%_ + _%stx179388%_)))) + (__tmp183315 (let () (declare (not safe)) (gxc#xform-let-locals - _%L175879%_)))) + _%g179393179426%_)))) (declare (not safe)) (call-with-parameters__1 - __tmp179772 + __tmp183316 gxc#current-compile-local-env - __tmp179771))) - _%tl175852175875%_ - _%hd175851175873%_))) - (_%g175843175857%_ _%g175844175860%_)))) - (_%g175843175857%_ _%g175844175860%_))))) - (_%g175842175893%_ _%stx175841%_)))) + __tmp183315))) + _%tl179399179422%_ + _%hd179398179420%_))) + (_%g179390179404%_ _%g179391179407%_)))) + (_%g179390179404%_ _%g179391179407%_))))) + (_%g179389179440%_ _%stx179388%_)))) (define gxc#collect-type-case-lambda% - (lambda (_%self175656%_ _%stx175657%_) - (let* ((_%g175659175687%_ - (lambda (_%g175660175684%_) + (lambda (_%self179207%_ _%stx179208%_) + (let* ((_%g179210179238%_ + (lambda (_%g179211179235%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175660175684%_)))) - (_%g175658175837%_ - (lambda (_%g175660175690%_) + _%g179211179235%_)))) + (_%g179209179384%_ + (lambda (_%g179211179241%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175660175690%_)) - (let ((_%e175663175692%_ + (gx#stx-pair? _%g179211179241%_)) + (let ((_%e179214179243%_ (let () (declare (not safe)) - (gx#stx-e _%g175660175690%_)))) - (let ((_%hd175664175695%_ + (gx#stx-e _%g179211179241%_)))) + (let ((_%hd179215179246%_ (let () (declare (not safe)) - (##car _%e175663175692%_))) - (_%tl175665175697%_ + (##car _%e179214179243%_))) + (_%tl179216179248%_ (let () (declare (not safe)) - (##cdr _%e175663175692%_)))) + (##cdr _%e179214179243%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl175665175697%_)) - (let ((_g179773_ + (gx#stx-pair/null? _%tl179216179248%_)) + (let ((_g183317_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl175665175697%_ + _%tl179216179248%_ '0)))) (begin - (let ((_g179774_ + (let ((_g183318_ (let () (declare (not safe)) - (if (##values? _g179773_) - (##values-length _g179773_) + (if (##values? _g183317_) + (##values-length _g183317_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g179774_ 2))) + (##fx= _g183318_ 2))) (error "Context expects 2 values" - _g179774_))) - (let ((_%target175666175700%_ + _g183318_))) + (let ((_%target179217179251%_ (let () (declare (not safe)) - (##values-ref _g179773_ 0))) - (_%tl175668175702%_ + (##values-ref _g183317_ 0))) + (_%tl179219179253%_ (let () (declare (not safe)) - (##values-ref _g179773_ 1)))) + (##values-ref _g183317_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175668175702%_)) - (letrec ((_%loop175669175705%_ - (lambda (_%hd175667175708%_ - _%body175673175710%_ - _%hd175674175712%_) + (gx#stx-null? _%tl179219179253%_)) + (letrec ((_%loop179220179256%_ + (lambda (_%hd179218179259%_ + _%body179224179261%_ + _%hd179225179262%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175667175708%_)) - (let ((_%e175670175715%_ + _%hd179218179259%_)) + (let ((_%e179221179264%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd175667175708%_)))) - (let ((_%lp-hd175671175718%_ + (gx#stx-e _%hd179218179259%_)))) + (let ((_%lp-hd179222179267%_ (let () (declare (not safe)) - (##car _%e175670175715%_))) - (_%lp-tl175672175720%_ + (##car _%e179221179264%_))) + (_%lp-tl179223179269%_ (let () (declare (not safe)) - (##cdr _%e175670175715%_)))) + (##cdr _%e179221179264%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd175671175718%_)) - (let ((_%e175677175723%_ + (gx#stx-pair? _%lp-hd179222179267%_)) + (let ((_%e179228179272%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd175671175718%_)))) - (let ((_%hd175678175726%_ + (gx#stx-e _%lp-hd179222179267%_)))) + (let ((_%hd179229179275%_ (let () (declare (not safe)) - (##car _%e175677175723%_))) - (_%tl175679175728%_ + (##car _%e179228179272%_))) + (_%tl179230179277%_ (let () (declare (not safe)) - (##cdr _%e175677175723%_)))) + (##cdr _%e179228179272%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175679175728%_)) - (let ((_%e175680175731%_ + (gx#stx-pair? _%tl179230179277%_)) + (let ((_%e179231179280%_ (let () (declare (not safe)) - (gx#stx-e _%tl175679175728%_)))) - (let ((_%hd175681175734%_ + (gx#stx-e _%tl179230179277%_)))) + (let ((_%hd179232179283%_ (let () (declare (not safe)) - (##car _%e175680175731%_))) - (_%tl175682175736%_ + (##car _%e179231179280%_))) + (_%tl179233179285%_ (let () (declare (not safe)) - (##cdr _%e175680175731%_)))) + (##cdr _%e179231179280%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175682175736%_)) - (_%loop175669175705%_ - _%lp-tl175672175720%_ - (cons _%hd175681175734%_ - _%body175673175710%_) - (cons _%hd175678175726%_ - _%hd175674175712%_)) - (_%g175659175687%_ - _%g175660175690%_)))) - (_%g175659175687%_ _%g175660175690%_)))) - (_%g175659175687%_ _%g175660175690%_)))) - (let ((_%body175675175739%_ (reverse _%body175673175710%_)) - (_%hd175676175741%_ (reverse _%hd175674175712%_))) - ((lambda (_%L175744%_ _%L175745%_) + (gx#stx-null? _%tl179233179285%_)) + (_%loop179220179256%_ + _%lp-tl179223179269%_ + (cons _%hd179232179283%_ + _%body179224179261%_) + (cons _%hd179229179275%_ + _%hd179225179262%_)) + (_%g179210179238%_ + _%g179211179241%_)))) + (_%g179210179238%_ _%g179211179241%_)))) + (_%g179210179238%_ _%g179211179241%_)))) + (let ((_%body179226179288%_ (reverse _%body179224179261%_)) + (_%hd179227179289%_ (reverse _%hd179225179262%_))) + ((lambda (_%g179212179291%_ _%g179213179292%_) (for-each - (lambda (_%g175759175761%_) + (lambda (_%g179306179308%_) (gxc#collect-type-lambda-formals-tail - _%stx175657%_ - _%g175759175761%_)) - (let ((__tmp179775 - (lambda (_%g175763175766%_ _%g175764175768%_) - (cons _%g175763175766%_ _%g175764175768%_)))) + _%stx179208%_ + _%g179306179308%_)) + (let ((__tmp183319 + (lambda (_%g179310179313%_ _%g179311179315%_) + (cons _%g179310179313%_ _%g179311179315%_)))) (declare (not safe)) - (__foldr1 __tmp179775 '() _%L175745%_))) + (__foldr1 __tmp183319 '() _%g179213179292%_))) (for-each - (lambda (_%clause175771%_) - (let* ((_%g175773175787%_ - (lambda (_%g175774175784%_) + (lambda (_%clause179318%_) + (let* ((_%g179320179334%_ + (lambda (_%g179321179331%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175774175784%_)))) - (_%g175772175824%_ - (lambda (_%g175774175790%_) + _%g179321179331%_)))) + (_%g179319179371%_ + (lambda (_%g179321179337%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175774175790%_)) - (let ((_%e175777175792%_ + (gx#stx-pair? _%g179321179337%_)) + (let ((_%e179324179339%_ (let () (declare (not safe)) - (gx#stx-e _%g175774175790%_)))) - (let ((_%hd175778175795%_ + (gx#stx-e _%g179321179337%_)))) + (let ((_%hd179325179342%_ (let () (declare (not safe)) - (##car _%e175777175792%_))) - (_%tl175779175797%_ + (##car _%e179324179339%_))) + (_%tl179326179344%_ (let () (declare (not safe)) - (##cdr _%e175777175792%_)))) + (##cdr _%e179324179339%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175779175797%_)) - (let ((_%e175780175800%_ + _%tl179326179344%_)) + (let ((_%e179327179347%_ (let () (declare (not safe)) (gx#stx-e - _%tl175779175797%_)))) - (let ((_%hd175781175803%_ + _%tl179326179344%_)))) + (let ((_%hd179328179350%_ (let () (declare (not safe)) - (##car _%e175780175800%_))) - (_%tl175782175805%_ + (##car _%e179327179347%_))) + (_%tl179329179352%_ (let () (declare (not safe)) - (##cdr _%e175780175800%_)))) + (##cdr _%e179327179347%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175782175805%_)) - ((lambda (_%L175808%_ - _%L175809%_) - (let ((__tmp179777 + _%tl179329179352%_)) + ((lambda (_%g179322179355%_ + _%g179323179356%_) + (let ((__tmp183321 (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-body-case-lambda% - _%self175656%_ - _%stx175657%_)))) - (__tmp179776 + _%self179207%_ + _%stx179208%_)))) + (__tmp183320 (let () (declare (not safe)) - (gxc#xform-let-locals _%L175809%_)))) + (gxc#xform-let-locals _%g179323179356%_)))) (declare (not safe)) (call-with-parameters__1 - __tmp179777 + __tmp183321 gxc#current-compile-local-env - __tmp179776))) - _%hd175781175803%_ - _%hd175778175795%_) - (_%g175773175787%_ _%g175774175790%_)))) + __tmp183320))) + _%hd179328179350%_ + _%hd179325179342%_) + (_%g179320179334%_ _%g179321179337%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175773175787%_ - _%g175774175790%_)))) - (_%g175773175787%_ _%g175774175790%_))))) - (_%g175772175824%_ _%clause175771%_))) + (_%g179320179334%_ + _%g179321179337%_)))) + (_%g179320179334%_ _%g179321179337%_))))) + (_%g179319179371%_ _%clause179318%_))) (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L175744%_ - _%L175745%_)) - (let ((__tmp179778 - (lambda (_%g175826175830%_ - _%g175827175832%_ - _%g175828175834%_) - (cons (cons _%g175827175832%_ - (cons _%g175826175830%_ '())) - _%g175828175834%_)))) + _%g179212179291%_ + _%g179213179292%_)) + (let ((__tmp183322 + (lambda (_%g179373179377%_ + _%g179374179379%_ + _%g179375179381%_) + (cons (cons _%g179374179379%_ + (cons _%g179373179377%_ '())) + _%g179375179381%_)))) (declare (not safe)) (__foldr2 - __tmp179778 + __tmp183322 '() - _%L175744%_ - _%L175745%_))))) - _%body175675175739%_ - _%hd175676175741%_)))))) + _%g179212179291%_ + _%g179213179292%_))))) + _%body179226179288%_ + _%hd179227179289%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop175669175705%_ - _%target175666175700%_ + (_%loop179220179256%_ + _%target179217179251%_ '() '())) - (_%g175659175687%_ - _%g175660175690%_))))) - (_%g175659175687%_ _%g175660175690%_)))) - (_%g175659175687%_ _%g175660175690%_))))) - (_%g175658175837%_ _%stx175657%_)))) + (_%g179210179238%_ + _%g179211179241%_))))) + (_%g179210179238%_ _%g179211179241%_)))) + (_%g179210179238%_ _%g179211179241%_))))) + (_%g179209179384%_ _%stx179208%_)))) (define gxc#collect-type-lambda-formals-tail - (lambda (_%stx175588%_ _%formals175589%_) - (let _%loop175591%_ ((_%rest175593%_ _%formals175589%_)) - (let* ((_%__stx176936176937%_ _%rest175593%_) - (_%g175597175608%_ + (lambda (_%stx179139%_ _%formals179140%_) + (let _%loop179142%_ ((_%rest179144%_ _%formals179140%_)) + (let* ((_%__stx180480180481%_ _%rest179144%_) + (_%g179148179159%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176936176937%_))))) - (let ((_%__kont176938176939%_ - (lambda (_%L175644%_) (_%loop175591%_ _%L175644%_))) - (_%__kont176940176941%_ - (lambda (_%L175620%_) - (let ((__tmp179780 + _%__stx180480180481%_))))) + (let ((_%__kont180482180483%_ + (lambda (_%g179150179195%_) + (_%loop179142%_ _%g179150179195%_))) + (_%__kont180484180485%_ + (lambda (_%g179154179171%_) + (let ((__tmp183324 (let () (declare (not safe)) - (gxc#identifier-symbol _%L175620%_))) - (__tmp179779 + (gxc#identifier-symbol _%g179154179171%_))) + (__tmp183323 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx175588%_ + _%stx179139%_ 'list::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp179780 - __tmp179779 + __tmp183324 + __tmp183323 '#t)))) - (_%__kont176942176943%_ (lambda () '#!void))) - (let ((_%g175595175631%_ + (_%__kont180486180487%_ (lambda () '#!void))) + (let ((_%g179146179182%_ (lambda () - (let ((_%L175620%_ _%__stx176936176937%_)) + (let ((_%g179154179171%_ _%__stx180480180481%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L175620%_)) - (_%__kont176940176941%_ _%L175620%_) - (_%__kont176942176943%_)))))) + (gx#identifier? _%g179154179171%_)) + (_%__kont180484180485%_ _%g179154179171%_) + (_%__kont180486180487%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176936176937%_)) - (let ((_%e175600175636%_ + (gx#stx-pair? _%__stx180480180481%_)) + (let ((_%e179151179187%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176936176937%_)))) - (let ((_%tl175602175641%_ + (gx#stx-e _%__stx180480180481%_)))) + (let ((_%tl179153179192%_ (let () (declare (not safe)) - (##cdr _%e175600175636%_))) - (_%hd175601175639%_ + (##cdr _%e179151179187%_))) + (_%hd179152179190%_ (let () (declare (not safe)) - (##car _%e175600175636%_)))) - (_%__kont176938176939%_ _%tl175602175641%_))) - (let () (declare (not safe)) (_%g175595175631%_))))))))) + (##car _%e179151179187%_)))) + (_%__kont180482180483%_ _%tl179153179192%_))) + (let () (declare (not safe)) (_%g179146179182%_))))))))) (define gxc#collect-type-let-values%__% - (lambda (_%self175347%_ _%stx175348%_ _%expression-type175349%_) - (letrec ((_%collect-e175351%_ - (lambda (_%hd175520%_ _%expr175521%_) - (let* ((_%__stx176952176953%_ _%hd175520%_) - (_%g175524175534%_ + (lambda (_%self178903%_ _%stx178904%_ _%expression-type178905%_) + (letrec ((_%collect-e178907%_ + (lambda (_%hd179072%_ _%expr179073%_) + (let* ((_%__stx180496180497%_ _%hd179072%_) + (_%g179076179086%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176952176953%_))))) - (let ((_%__kont176954176955%_ - (lambda (_%L175554%_) - (let* ((_%sym175565%_ + _%__stx180496180497%_))))) + (let ((_%__kont180498180499%_ + (lambda (_%g179078179106%_) + (let* ((_%sym179117%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L175554%_))) - (_%type175566175568%_ - (_%expression-type175349%_ - _%expr175521%_))) - (if _%type175566175568%_ - (let ((_%type175571%_ - _%type175566175568%_)) + (gxc#identifier-symbol + _%g179078179106%_))) + (_%type179118179120%_ + (_%expression-type178905%_ + _%expr179073%_))) + (if _%type179118179120%_ + (let ((_%type179122%_ + _%type179118179120%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type175571%_ + _%type179122%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp179781 + (let ((__tmp183325 (let () (declare (not safe)) (##unchecked-structure-ref - _%type175571%_ + _%type179122%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym175565%_ - __tmp179781)) - (let ((__tmp179782 + _%sym179117%_ + __tmp183325)) + (let ((__tmp183326 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx175348%_ + _%stx178904%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym175565%_ - __tmp179782 + _%sym179117%_ + __tmp183326 '#t))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym175565%_ - _%type175571%_ + _%sym179117%_ + _%type179122%_ '#t)))) '#f)))) - (_%__kont176956176957%_ (lambda () '#!void))) - (let ((_%__match176965176966%_ - (lambda (_%e175527175546%_ - _%hd175528175549%_ - _%tl175529175551%_) - (let ((_%L175554%_ _%hd175528175549%_)) + (_%__kont180500180501%_ (lambda () '#!void))) + (let ((_%__match180509180510%_ + (lambda (_%e179079179098%_ + _%hd179080179101%_ + _%tl179081179103%_) + (let ((_%g179078179106%_ _%hd179080179101%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L175554%_)) - (_%__kont176954176955%_ _%L175554%_) - (_%__kont176956176957%_)))))) + (gx#identifier? _%g179078179106%_)) + (_%__kont180498180499%_ + _%g179078179106%_) + (_%__kont180500180501%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176952176953%_)) - (let ((_%e175527175546%_ + (gx#stx-pair? _%__stx180496180497%_)) + (let ((_%e179079179098%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176952176953%_)))) - (let ((_%tl175529175551%_ + (gx#stx-e _%__stx180496180497%_)))) + (let ((_%tl179081179103%_ (let () (declare (not safe)) - (##cdr _%e175527175546%_))) - (_%hd175528175549%_ + (##cdr _%e179079179098%_))) + (_%hd179080179101%_ (let () (declare (not safe)) - (##car _%e175527175546%_)))) + (##car _%e179079179098%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175529175551%_)) - (_%__match176965176966%_ - _%e175527175546%_ - _%hd175528175549%_ - _%tl175529175551%_) - (_%__kont176956176957%_)))) - (_%__kont176956176957%_)))))))) - (let* ((_%g175353175388%_ - (lambda (_%g175354175385%_) + (gx#stx-null? _%tl179081179103%_)) + (_%__match180509180510%_ + _%e179079179098%_ + _%hd179080179101%_ + _%tl179081179103%_) + (_%__kont180500180501%_)))) + (_%__kont180500180501%_)))))))) + (let* ((_%g178909178944%_ + (lambda (_%g178910178941%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175354175385%_)))) - (_%g175352175517%_ - (lambda (_%g175354175391%_) + _%g178910178941%_)))) + (_%g178908179069%_ + (lambda (_%g178910178947%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175354175391%_)) - (let ((_%e175358175393%_ + (gx#stx-pair? _%g178910178947%_)) + (let ((_%e178914178949%_ (let () (declare (not safe)) - (gx#stx-e _%g175354175391%_)))) - (let ((_%hd175359175396%_ + (gx#stx-e _%g178910178947%_)))) + (let ((_%hd178915178952%_ (let () (declare (not safe)) - (##car _%e175358175393%_))) - (_%tl175360175398%_ + (##car _%e178914178949%_))) + (_%tl178916178954%_ (let () (declare (not safe)) - (##cdr _%e175358175393%_)))) + (##cdr _%e178914178949%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175360175398%_)) - (let ((_%e175361175401%_ + (gx#stx-pair? _%tl178916178954%_)) + (let ((_%e178917178957%_ (let () (declare (not safe)) - (gx#stx-e _%tl175360175398%_)))) - (let ((_%hd175362175404%_ + (gx#stx-e _%tl178916178954%_)))) + (let ((_%hd178918178960%_ (let () (declare (not safe)) - (##car _%e175361175401%_))) - (_%tl175363175406%_ + (##car _%e178917178957%_))) + (_%tl178919178962%_ (let () (declare (not safe)) - (##cdr _%e175361175401%_)))) + (##cdr _%e178917178957%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd175362175404%_)) - (let ((_g179783_ + _%hd178918178960%_)) + (let ((_g183327_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd175362175404%_ + _%hd178918178960%_ '0)))) (begin - (let ((_g179784_ + (let ((_g183328_ (let () (declare (not safe)) - (if (##values? _g179783_) + (if (##values? _g183327_) (##values-length - _g179783_) + _g183327_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g179784_ 2))) + (##fx= _g183328_ 2))) (error "Context expects 2 values" - _g179784_))) - (let ((_%target175364175409%_ + _g183328_))) + (let ((_%target178920178965%_ (let () (declare (not safe)) (##values-ref - _g179783_ + _g183327_ 0))) - (_%tl175366175411%_ + (_%tl178922178967%_ (let () (declare (not safe)) (##values-ref - _g179783_ + _g183327_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175366175411%_)) - (letrec ((_%loop175367175414%_ - (lambda (_%hd175365175417%_ + _%tl178922178967%_)) + (letrec ((_%loop178923178970%_ + (lambda (_%hd178921178973%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr175371175419%_ - _%hd175372175421%_) + _%expr178927178975%_ + _%hd178928178976%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175365175417%_)) - (let ((_%e175368175424%_ + (gx#stx-pair? _%hd178921178973%_)) + (let ((_%e178924178978%_ (let () (declare (not safe)) - (gx#stx-e _%hd175365175417%_)))) - (let ((_%lp-hd175369175427%_ + (gx#stx-e _%hd178921178973%_)))) + (let ((_%lp-hd178925178981%_ (let () (declare (not safe)) - (##car _%e175368175424%_))) - (_%lp-tl175370175429%_ + (##car _%e178924178978%_))) + (_%lp-tl178926178983%_ (let () (declare (not safe)) - (##cdr _%e175368175424%_)))) + (##cdr _%e178924178978%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd175369175427%_)) - (let ((_%e175375175432%_ + (gx#stx-pair? _%lp-hd178925178981%_)) + (let ((_%e178931178986%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd175369175427%_)))) - (let ((_%hd175376175435%_ + (gx#stx-e _%lp-hd178925178981%_)))) + (let ((_%hd178932178989%_ (let () (declare (not safe)) - (##car _%e175375175432%_))) - (_%tl175377175437%_ + (##car _%e178931178986%_))) + (_%tl178933178991%_ (let () (declare (not safe)) - (##cdr _%e175375175432%_)))) + (##cdr _%e178931178986%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175377175437%_)) - (let ((_%e175378175440%_ + (gx#stx-pair? _%tl178933178991%_)) + (let ((_%e178934178994%_ (let () (declare (not safe)) (gx#stx-e - _%tl175377175437%_)))) - (let ((_%hd175379175443%_ + _%tl178933178991%_)))) + (let ((_%hd178935178997%_ (let () (declare (not safe)) - (##car _%e175378175440%_))) - (_%tl175380175445%_ + (##car _%e178934178994%_))) + (_%tl178936178999%_ (let () (declare (not safe)) - (##cdr _%e175378175440%_)))) + (##cdr _%e178934178994%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175380175445%_)) - (_%loop175367175414%_ - _%lp-tl175370175429%_ - (cons _%hd175379175443%_ - _%expr175371175419%_) - (cons _%hd175376175435%_ - _%hd175372175421%_)) - (_%g175353175388%_ - _%g175354175391%_)))) - (_%g175353175388%_ - _%g175354175391%_)))) - (_%g175353175388%_ _%g175354175391%_)))) - (let ((_%expr175373175448%_ - (reverse _%expr175371175419%_)) - (_%hd175374175450%_ - (reverse _%hd175372175421%_))) + _%tl178936178999%_)) + (_%loop178923178970%_ + _%lp-tl178926178983%_ + (cons _%hd178935178997%_ + _%expr178927178975%_) + (cons _%hd178932178989%_ + _%hd178928178976%_)) + (_%g178909178944%_ + _%g178910178947%_)))) + (_%g178909178944%_ + _%g178910178947%_)))) + (_%g178909178944%_ _%g178910178947%_)))) + (let ((_%expr178929179002%_ + (reverse _%expr178927178975%_)) + (_%hd178930179003%_ + (reverse _%hd178928178976%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175363175406%_)) - (let ((_%e175381175453%_ + (gx#stx-pair? _%tl178919178962%_)) + (let ((_%e178937179005%_ (let () (declare (not safe)) - (gx#stx-e _%tl175363175406%_)))) - (let ((_%hd175382175456%_ + (gx#stx-e _%tl178919178962%_)))) + (let ((_%hd178938179008%_ (let () (declare (not safe)) - (##car _%e175381175453%_))) - (_%tl175383175458%_ + (##car _%e178937179005%_))) + (_%tl178939179010%_ (let () (declare (not safe)) - (##cdr _%e175381175453%_)))) + (##cdr _%e178937179005%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175383175458%_)) - ((lambda (_%L175461%_ - _%L175462%_ - _%L175463%_) + (gx#stx-null? _%tl178939179010%_)) + ((lambda (_%g178911179013%_ + _%g178912179014%_ + _%g178913179015%_) (for-each - _%collect-e175351%_ - (let ((__tmp179785 - (lambda (_%g175483175486%_ - _%g175484175488%_) - (cons _%g175483175486%_ - _%g175484175488%_)))) + _%collect-e178907%_ + (let ((__tmp183329 + (lambda (_%g179035179038%_ + _%g179036179040%_) + (cons _%g179035179038%_ + _%g179036179040%_)))) (declare (not safe)) (__foldr1 - __tmp179785 + __tmp183329 '() - _%L175463%_)) - (let ((__tmp179786 - (lambda (_%g175490175493%_ - _%g175491175495%_) - (cons _%g175490175493%_ - _%g175491175495%_)))) + _%g178913179015%_)) + (let ((__tmp183330 + (lambda (_%g179042179045%_ + _%g179043179047%_) + (cons _%g179042179045%_ + _%g179043179047%_)))) (declare (not safe)) (__foldr1 - __tmp179786 + __tmp183330 '() - _%L175462%_))) + _%g178912179014%_))) (for-each - (lambda (_%g175497175499%_) + (lambda (_%g179049179051%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self175347%_ - _%g175497175499%_))) - (let ((__tmp179787 - (lambda (_%g175501175504%_ - _%g175502175506%_) - (cons _%g175501175504%_ - _%g175502175506%_)))) + _%self178903%_ + _%g179049179051%_))) + (let ((__tmp183331 + (lambda (_%g179053179056%_ + _%g179054179058%_) + (cons _%g179053179056%_ + _%g179054179058%_)))) (declare (not safe)) (__foldr1 - __tmp179787 + __tmp183331 '() - _%L175462%_))) - (let ((__tmp179791 + _%g178912179014%_))) + (let ((__tmp183335 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self175347%_ - _%L175461%_)))) - (__tmp179788 - (let ((__tmp179789 - (let ((__tmp179790 - (lambda (_%g175509175512%_ + _%self178903%_ + _%g178911179013%_)))) + (__tmp183332 + (let ((__tmp183333 + (let ((__tmp183334 + (lambda (_%g179061179064%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g175510175514%_) - (cons _%g175509175512%_ _%g175510175514%_)))) + _%g179062179066%_) + (cons _%g179061179064%_ _%g179062179066%_)))) (declare (not safe)) - (__foldr1 __tmp179790 '() _%L175463%_)))) + (__foldr1 __tmp183334 '() _%g178913179015%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp179789)))) + __tmp183333)))) (declare (not safe)) (call-with-parameters__1 - __tmp179791 + __tmp183335 gxc#current-compile-local-env - __tmp179788))) - _%hd175382175456%_ - _%expr175373175448%_ - _%hd175374175450%_) - (_%g175353175388%_ - _%g175354175391%_)))) - (_%g175353175388%_ _%g175354175391%_))))))) + __tmp183332))) + _%hd178938179008%_ + _%expr178929179002%_ + _%hd178930179003%_) + (_%g178909178944%_ + _%g178910178947%_)))) + (_%g178909178944%_ _%g178910178947%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop175367175414%_ - _%target175364175409%_ + (_%loop178923178970%_ + _%target178920178965%_ '() '())) - (_%g175353175388%_ - _%g175354175391%_))))) - (_%g175353175388%_ - _%g175354175391%_)))) - (_%g175353175388%_ _%g175354175391%_)))) - (_%g175353175388%_ _%g175354175391%_))))) - (_%g175352175517%_ _%stx175348%_))))) + (_%g178909178944%_ + _%g178910178947%_))))) + (_%g178909178944%_ + _%g178910178947%_)))) + (_%g178909178944%_ _%g178910178947%_)))) + (_%g178909178944%_ _%g178910178947%_))))) + (_%g178908179069%_ _%stx178904%_))))) (define gxc#collect-type-let-values%__0 - (lambda (_%self175579%_ _%stx175580%_) - (let ((_%expression-type175582%_ gxc#apply-basic-expression-type)) + (lambda (_%self179130%_ _%stx179131%_) + (let ((_%expression-type179133%_ gxc#apply-basic-expression-type)) (gxc#collect-type-let-values%__% - _%self175579%_ - _%stx175580%_ - _%expression-type175582%_)))) + _%self179130%_ + _%stx179131%_ + _%expression-type179133%_)))) (define gxc#collect-type-let-values% - (lambda _g179792_ - (let ((_g179793_ (let () (declare (not safe)) (##length _g179792_)))) - (cond ((let () (declare (not safe)) (##fx= _g179793_ 2)) - (apply gxc#collect-type-let-values%__0 _g179792_)) - ((let () (declare (not safe)) (##fx= _g179793_ 3)) - (apply gxc#collect-type-let-values%__% _g179792_)) + (lambda _g183336_ + (let ((_g183337_ (let () (declare (not safe)) (##length _g183336_)))) + (cond ((let () (declare (not safe)) (##fx= _g183337_ 2)) + (apply gxc#collect-type-let-values%__0 _g183336_)) + ((let () (declare (not safe)) (##fx= _g183337_ 3)) + (apply gxc#collect-type-let-values%__% _g183336_)) (else (##raise-wrong-number-of-arguments-exception gxc#collect-type-let-values% - _g179792_)))))) + _g183336_)))))) (define gxc#collect-type-letrec-values%__% - (lambda (_%self175080%_ _%stx175081%_ _%expression-type175082%_) - (letrec ((_%collect-e175084%_ - (lambda (_%hd175278%_ _%expr175279%_) - (let* ((_%__stx176968176969%_ _%hd175278%_) - (_%g175282175292%_ + (lambda (_%self178641%_ _%stx178642%_ _%expression-type178643%_) + (letrec ((_%collect-e178645%_ + (lambda (_%hd178835%_ _%expr178836%_) + (let* ((_%__stx180512180513%_ _%hd178835%_) + (_%g178839178849%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176968176969%_))))) - (let ((_%__kont176970176971%_ - (lambda (_%L175312%_) - (let* ((_%sym175323%_ + _%__stx180512180513%_))))) + (let ((_%__kont180514180515%_ + (lambda (_%g178841178869%_) + (let* ((_%sym178880%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L175312%_))) - (_%type175324175326%_ - (_%expression-type175082%_ - _%expr175279%_))) - (if _%type175324175326%_ - (let ((_%type175329%_ - _%type175324175326%_)) + (gxc#identifier-symbol + _%g178841178869%_))) + (_%type178881178883%_ + (_%expression-type178643%_ + _%expr178836%_))) + (if _%type178881178883%_ + (let ((_%type178885%_ + _%type178881178883%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type175329%_ + _%type178885%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp179794 + (let ((__tmp183338 (let () (declare (not safe)) (##unchecked-structure-ref - _%type175329%_ + _%type178885%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym175323%_ - __tmp179794)) - (let ((__tmp179795 + _%sym178880%_ + __tmp183338)) + (let ((__tmp183339 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx175081%_ + _%stx178642%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym175323%_ - __tmp179795 + _%sym178880%_ + __tmp183339 '#t))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym175323%_ - _%type175329%_ + _%sym178880%_ + _%type178885%_ '#t)))) '#f)))) - (_%__kont176972176973%_ (lambda () '#!void))) - (let ((_%__match176981176982%_ - (lambda (_%e175285175304%_ - _%hd175286175307%_ - _%tl175287175309%_) - (let ((_%L175312%_ _%hd175286175307%_)) + (_%__kont180516180517%_ (lambda () '#!void))) + (let ((_%__match180525180526%_ + (lambda (_%e178842178861%_ + _%hd178843178864%_ + _%tl178844178866%_) + (let ((_%g178841178869%_ _%hd178843178864%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L175312%_)) - (_%__kont176970176971%_ _%L175312%_) - (_%__kont176972176973%_)))))) + (gx#identifier? _%g178841178869%_)) + (_%__kont180514180515%_ + _%g178841178869%_) + (_%__kont180516180517%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176968176969%_)) - (let ((_%e175285175304%_ + (gx#stx-pair? _%__stx180512180513%_)) + (let ((_%e178842178861%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176968176969%_)))) - (let ((_%tl175287175309%_ + (gx#stx-e _%__stx180512180513%_)))) + (let ((_%tl178844178866%_ (let () (declare (not safe)) - (##cdr _%e175285175304%_))) - (_%hd175286175307%_ + (##cdr _%e178842178861%_))) + (_%hd178843178864%_ (let () (declare (not safe)) - (##car _%e175285175304%_)))) + (##car _%e178842178861%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175287175309%_)) - (_%__match176981176982%_ - _%e175285175304%_ - _%hd175286175307%_ - _%tl175287175309%_) - (_%__kont176972176973%_)))) - (_%__kont176972176973%_)))))))) - (let* ((_%g175086175121%_ - (lambda (_%g175087175118%_) + (gx#stx-null? _%tl178844178866%_)) + (_%__match180525180526%_ + _%e178842178861%_ + _%hd178843178864%_ + _%tl178844178866%_) + (_%__kont180516180517%_)))) + (_%__kont180516180517%_)))))))) + (let* ((_%g178647178682%_ + (lambda (_%g178648178679%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175087175118%_)))) - (_%g175085175275%_ - (lambda (_%g175087175124%_) + _%g178648178679%_)))) + (_%g178646178832%_ + (lambda (_%g178648178685%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175087175124%_)) - (let ((_%e175091175126%_ + (gx#stx-pair? _%g178648178685%_)) + (let ((_%e178652178687%_ (let () (declare (not safe)) - (gx#stx-e _%g175087175124%_)))) - (let ((_%hd175092175129%_ + (gx#stx-e _%g178648178685%_)))) + (let ((_%hd178653178690%_ (let () (declare (not safe)) - (##car _%e175091175126%_))) - (_%tl175093175131%_ + (##car _%e178652178687%_))) + (_%tl178654178692%_ (let () (declare (not safe)) - (##cdr _%e175091175126%_)))) + (##cdr _%e178652178687%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175093175131%_)) - (let ((_%e175094175134%_ + (gx#stx-pair? _%tl178654178692%_)) + (let ((_%e178655178695%_ (let () (declare (not safe)) - (gx#stx-e _%tl175093175131%_)))) - (let ((_%hd175095175137%_ + (gx#stx-e _%tl178654178692%_)))) + (let ((_%hd178656178698%_ (let () (declare (not safe)) - (##car _%e175094175134%_))) - (_%tl175096175139%_ + (##car _%e178655178695%_))) + (_%tl178657178700%_ (let () (declare (not safe)) - (##cdr _%e175094175134%_)))) + (##cdr _%e178655178695%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd175095175137%_)) - (let ((_g179796_ + _%hd178656178698%_)) + (let ((_g183340_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd175095175137%_ + _%hd178656178698%_ '0)))) (begin - (let ((_g179797_ + (let ((_g183341_ (let () (declare (not safe)) - (if (##values? _g179796_) + (if (##values? _g183340_) (##values-length - _g179796_) + _g183340_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g179797_ 2))) + (##fx= _g183341_ 2))) (error "Context expects 2 values" - _g179797_))) - (let ((_%target175097175142%_ + _g183341_))) + (let ((_%target178658178703%_ (let () (declare (not safe)) (##values-ref - _g179796_ + _g183340_ 0))) - (_%tl175099175144%_ + (_%tl178660178705%_ (let () (declare (not safe)) (##values-ref - _g179796_ + _g183340_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175099175144%_)) - (letrec ((_%loop175100175147%_ - (lambda (_%hd175098175150%_ + _%tl178660178705%_)) + (letrec ((_%loop178661178708%_ + (lambda (_%hd178659178711%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr175104175152%_ - _%hd175105175154%_) + _%expr178665178713%_ + _%hd178666178714%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175098175150%_)) - (let ((_%e175101175157%_ + (gx#stx-pair? _%hd178659178711%_)) + (let ((_%e178662178716%_ (let () (declare (not safe)) - (gx#stx-e _%hd175098175150%_)))) - (let ((_%lp-hd175102175160%_ + (gx#stx-e _%hd178659178711%_)))) + (let ((_%lp-hd178663178719%_ (let () (declare (not safe)) - (##car _%e175101175157%_))) - (_%lp-tl175103175162%_ + (##car _%e178662178716%_))) + (_%lp-tl178664178721%_ (let () (declare (not safe)) - (##cdr _%e175101175157%_)))) + (##cdr _%e178662178716%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd175102175160%_)) - (let ((_%e175108175165%_ + (gx#stx-pair? _%lp-hd178663178719%_)) + (let ((_%e178669178724%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd175102175160%_)))) - (let ((_%hd175109175168%_ + (gx#stx-e _%lp-hd178663178719%_)))) + (let ((_%hd178670178727%_ (let () (declare (not safe)) - (##car _%e175108175165%_))) - (_%tl175110175170%_ + (##car _%e178669178724%_))) + (_%tl178671178729%_ (let () (declare (not safe)) - (##cdr _%e175108175165%_)))) + (##cdr _%e178669178724%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175110175170%_)) - (let ((_%e175111175173%_ + (gx#stx-pair? _%tl178671178729%_)) + (let ((_%e178672178732%_ (let () (declare (not safe)) (gx#stx-e - _%tl175110175170%_)))) - (let ((_%hd175112175176%_ + _%tl178671178729%_)))) + (let ((_%hd178673178735%_ (let () (declare (not safe)) - (##car _%e175111175173%_))) - (_%tl175113175178%_ + (##car _%e178672178732%_))) + (_%tl178674178737%_ (let () (declare (not safe)) - (##cdr _%e175111175173%_)))) + (##cdr _%e178672178732%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175113175178%_)) - (_%loop175100175147%_ - _%lp-tl175103175162%_ - (cons _%hd175112175176%_ - _%expr175104175152%_) - (cons _%hd175109175168%_ - _%hd175105175154%_)) - (_%g175086175121%_ - _%g175087175124%_)))) - (_%g175086175121%_ - _%g175087175124%_)))) - (_%g175086175121%_ _%g175087175124%_)))) - (let ((_%expr175106175181%_ - (reverse _%expr175104175152%_)) - (_%hd175107175183%_ - (reverse _%hd175105175154%_))) + _%tl178674178737%_)) + (_%loop178661178708%_ + _%lp-tl178664178721%_ + (cons _%hd178673178735%_ + _%expr178665178713%_) + (cons _%hd178670178727%_ + _%hd178666178714%_)) + (_%g178647178682%_ + _%g178648178685%_)))) + (_%g178647178682%_ + _%g178648178685%_)))) + (_%g178647178682%_ _%g178648178685%_)))) + (let ((_%expr178667178740%_ + (reverse _%expr178665178713%_)) + (_%hd178668178741%_ + (reverse _%hd178666178714%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175096175139%_)) - (let ((_%e175114175186%_ + (gx#stx-pair? _%tl178657178700%_)) + (let ((_%e178675178743%_ (let () (declare (not safe)) - (gx#stx-e _%tl175096175139%_)))) - (let ((_%hd175115175189%_ + (gx#stx-e _%tl178657178700%_)))) + (let ((_%hd178676178746%_ (let () (declare (not safe)) - (##car _%e175114175186%_))) - (_%tl175116175191%_ + (##car _%e178675178743%_))) + (_%tl178677178748%_ (let () (declare (not safe)) - (##cdr _%e175114175186%_)))) + (##cdr _%e178675178743%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175116175191%_)) - ((lambda (_%L175194%_ - _%L175195%_ - _%L175196%_) - (let ((__tmp179801 + (gx#stx-null? _%tl178677178748%_)) + ((lambda (_%g178649178751%_ + _%g178650178752%_ + _%g178651178753%_) + (let ((__tmp183345 (lambda () (for-each - _%collect-e175084%_ - (let ((__tmp179802 - (lambda (_%g175217175220%_ + _%collect-e178645%_ + (let ((__tmp183346 + (lambda (_%g178774178777%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g175218175222%_) - (cons _%g175217175220%_ _%g175218175222%_)))) + _%g178775178779%_) + (cons _%g178774178777%_ _%g178775178779%_)))) (declare (not safe)) - (__foldr1 __tmp179802 '() _%L175196%_)) + (__foldr1 __tmp183346 '() _%g178651178753%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp179803 - (lambda (_%g175224175227%_ + (let ((__tmp183347 + (lambda (_%g178781178784%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g175225175229%_) - (cons _%g175224175227%_ _%g175225175229%_)))) + _%g178782178786%_) + (cons _%g178781178784%_ _%g178782178786%_)))) (declare (not safe)) - (__foldr1 __tmp179803 '() _%L175195%_))) + (__foldr1 __tmp183347 '() _%g178650178752%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g175231175233%_) + (lambda (_%g178788178790%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self175080%_ - _%g175231175233%_))) - (let ((__tmp179804 - (lambda (_%g175235175238%_ + _%self178641%_ + _%g178788178790%_))) + (let ((__tmp183348 + (lambda (_%g178792178795%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g175236175240%_) - (cons _%g175235175238%_ _%g175236175240%_)))) + _%g178793178797%_) + (cons _%g178792178795%_ _%g178793178797%_)))) (declare (not safe)) - (__foldr1 __tmp179804 '() _%L175195%_))) + (__foldr1 __tmp183348 '() _%g178650178752%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - _%collect-e175084%_ - (let ((__tmp179805 - (lambda (_%g175242175245%_ + _%collect-e178645%_ + (let ((__tmp183349 + (lambda (_%g178799178802%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g175243175247%_) - (cons _%g175242175245%_ _%g175243175247%_)))) + _%g178800178804%_) + (cons _%g178799178802%_ _%g178800178804%_)))) (declare (not safe)) - (__foldr1 __tmp179805 '() _%L175196%_)) + (__foldr1 __tmp183349 '() _%g178651178753%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp179806 - (lambda (_%g175249175252%_ + (let ((__tmp183350 + (lambda (_%g178806178809%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g175250175254%_) - (cons _%g175249175252%_ _%g175250175254%_)))) + _%g178807178811%_) + (cons _%g178806178809%_ _%g178807178811%_)))) (declare (not safe)) - (__foldr1 __tmp179806 '() _%L175195%_))) + (__foldr1 __tmp183350 '() _%g178650178752%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g175256175258%_) + (lambda (_%g178813178815%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self175080%_ - _%g175256175258%_))) - (let ((__tmp179807 - (lambda (_%g175260175263%_ + _%self178641%_ + _%g178813178815%_))) + (let ((__tmp183351 + (lambda (_%g178817178820%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g175261175265%_) - (cons _%g175260175263%_ _%g175261175265%_)))) + _%g178818178822%_) + (cons _%g178817178820%_ _%g178818178822%_)))) (declare (not safe)) - (__foldr1 __tmp179807 '() _%L175195%_))) + (__foldr1 __tmp183351 '() _%g178650178752%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self175080%_ - _%L175194%_)))) - (__tmp179798 - (let ((__tmp179799 - (let ((__tmp179800 - (lambda (_%g175267175270%_ + _%self178641%_ + _%g178649178751%_)))) + (__tmp183342 + (let ((__tmp183343 + (let ((__tmp183344 + (lambda (_%g178824178827%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g175268175272%_) - (cons _%g175267175270%_ _%g175268175272%_)))) + _%g178825178829%_) + (cons _%g178824178827%_ _%g178825178829%_)))) (declare (not safe)) - (__foldr1 __tmp179800 '() _%L175196%_)))) + (__foldr1 __tmp183344 '() _%g178651178753%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp179799)))) + __tmp183343)))) (declare (not safe)) (call-with-parameters__1 - __tmp179801 + __tmp183345 gxc#current-compile-local-env - __tmp179798))) - _%hd175115175189%_ - _%expr175106175181%_ - _%hd175107175183%_) - (_%g175086175121%_ - _%g175087175124%_)))) - (_%g175086175121%_ _%g175087175124%_))))))) + __tmp183342))) + _%hd178676178746%_ + _%expr178667178740%_ + _%hd178668178741%_) + (_%g178647178682%_ + _%g178648178685%_)))) + (_%g178647178682%_ _%g178648178685%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop175100175147%_ - _%target175097175142%_ + (_%loop178661178708%_ + _%target178658178703%_ '() '())) - (_%g175086175121%_ - _%g175087175124%_))))) - (_%g175086175121%_ - _%g175087175124%_)))) - (_%g175086175121%_ _%g175087175124%_)))) - (_%g175086175121%_ _%g175087175124%_))))) - (_%g175085175275%_ _%stx175081%_))))) + (_%g178647178682%_ + _%g178648178685%_))))) + (_%g178647178682%_ + _%g178648178685%_)))) + (_%g178647178682%_ _%g178648178685%_)))) + (_%g178647178682%_ _%g178648178685%_))))) + (_%g178646178832%_ _%stx178642%_))))) (define gxc#collect-type-letrec-values%__0 - (lambda (_%self175337%_ _%stx175338%_) - (let ((_%expression-type175340%_ gxc#apply-basic-expression-type)) + (lambda (_%self178893%_ _%stx178894%_) + (let ((_%expression-type178896%_ gxc#apply-basic-expression-type)) (gxc#collect-type-letrec-values%__% - _%self175337%_ - _%stx175338%_ - _%expression-type175340%_)))) + _%self178893%_ + _%stx178894%_ + _%expression-type178896%_)))) (define gxc#collect-type-letrec-values% - (lambda _g179808_ - (let ((_g179809_ (let () (declare (not safe)) (##length _g179808_)))) - (cond ((let () (declare (not safe)) (##fx= _g179809_ 2)) - (apply gxc#collect-type-letrec-values%__0 _g179808_)) - ((let () (declare (not safe)) (##fx= _g179809_ 3)) - (apply gxc#collect-type-letrec-values%__% _g179808_)) + (lambda _g183352_ + (let ((_g183353_ (let () (declare (not safe)) (##length _g183352_)))) + (cond ((let () (declare (not safe)) (##fx= _g183353_ 2)) + (apply gxc#collect-type-letrec-values%__0 _g183352_)) + ((let () (declare (not safe)) (##fx= _g183353_ 3)) + (apply gxc#collect-type-letrec-values%__% _g183352_)) (else (##raise-wrong-number-of-arguments-exception gxc#collect-type-letrec-values% - _g179808_)))))) + _g183352_)))))) (define gxc#collect-top-level-type-let-values% - (lambda (_%self175076%_ _%stx175077%_) + (lambda (_%self178637%_ _%stx178638%_) (gxc#collect-type-let-values%__% - _%self175076%_ - _%stx175077%_ + _%self178637%_ + _%stx178638%_ gxc#apply-raw-expression-type))) (define gxc#collect-top-level-type-letrec-values% - (lambda (_%self175073%_ _%stx175074%_) + (lambda (_%self178634%_ _%stx178635%_) (gxc#collect-type-letrec-values%__% - _%self175073%_ - _%stx175074%_ + _%self178634%_ + _%stx178635%_ gxc#apply-raw-expression-type))) (define gxc#collect-top-level-type-call% - (lambda (_%self174560%_ _%stx174561%_) - (let* ((_%__stx176984176985%_ _%stx174561%_) - (_%g174565174680%_ + (lambda (_%self178123%_ _%stx178124%_) + (let* ((_%__stx180528180529%_ _%stx178124%_) + (_%g178128178243%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176984176985%_))))) - (let ((_%__kont176986176987%_ - (lambda (_%L175023%_ - _%L175024%_ - _%L175025%_ - _%L175026%_ - _%L175027%_) - (let ((__tmp179813 + _%__stx180528180529%_))))) + (let ((_%__kont180530180531%_ + (lambda (_%g178130178584%_ + _%g178131178585%_ + _%g178132178586%_ + _%g178133178587%_ + _%g178134178588%_) + (let ((__tmp183357 + (let () + (declare (not safe)) + (gxc#identifier-symbol _%g178133178587%_))) + (__tmp183356 (let () (declare (not safe)) - (gxc#identifier-symbol _%L175026%_))) - (__tmp179812 - (let () (declare (not safe)) (gx#stx-e _%L175025%_))) - (__tmp179811 + (gx#stx-e _%g178132178586%_))) + (__tmp183355 (let () (declare (not safe)) - (gxc#identifier-symbol _%L175024%_))) - (__tmp179810 + (gxc#identifier-symbol _%g178131178585%_))) + (__tmp183354 (let () (declare (not safe)) - (gx#stx-e _%L175023%_)))) + (gx#stx-e _%g178130178584%_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp179813 - __tmp179812 - __tmp179811 - __tmp179810)))) - (_%__kont176988176989%_ - (lambda (_%L174851%_ _%L174852%_ _%L174853%_ _%L174854%_) - (let ((__tmp179816 + __tmp183357 + __tmp183356 + __tmp183355 + __tmp183354)))) + (_%__kont180532180533%_ + (lambda (_%g178183178412%_ + _%g178184178413%_ + _%g178185178414%_ + _%g178186178415%_) + (let ((__tmp183360 (let () (declare (not safe)) - (gxc#identifier-symbol _%L174853%_))) - (__tmp179815 - (let () (declare (not safe)) (gx#stx-e _%L174852%_))) - (__tmp179814 + (gxc#identifier-symbol _%g178185178414%_))) + (__tmp183359 (let () (declare (not safe)) - (gxc#identifier-symbol _%L174851%_)))) + (gx#stx-e _%g178184178413%_))) + (__tmp183358 + (let () + (declare (not safe)) + (gxc#identifier-symbol _%g178183178412%_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp179816 - __tmp179815 - __tmp179814 + __tmp183360 + __tmp183359 + __tmp183358 '#f)))) - (_%__kont176990176991%_ - (lambda (_%L174717%_) + (_%__kont180534180535%_ + (lambda (_%g178226178278%_) (for-each - (lambda (_%g174730174732%_) + (lambda (_%g178291178293%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self174560%_ _%g174730174732%_))) - (let ((__tmp179817 - (lambda (_%g174734174737%_ _%g174735174739%_) - (cons _%g174734174737%_ _%g174735174739%_)))) + (gxc#compile-e__1 _%self178123%_ _%g178291178293%_))) + (let ((__tmp183361 + (lambda (_%g178295178298%_ _%g178296178300%_) + (cons _%g178295178298%_ _%g178296178300%_)))) (declare (not safe)) - (__foldr1 __tmp179817 '() _%L174717%_)))))) - (let* ((_%__match177241177242%_ - (lambda (_%e174664174685%_ - _%hd174665174688%_ - _%tl174666174690%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) - (letrec ((_%loop174670174698%_ - (lambda (_%hd174668174701%_ - _%expr174674174703%_) + (__foldr1 __tmp183361 '() _%g178226178278%_)))))) + (let* ((_%__match180785180786%_ + (lambda (_%e178227178248%_ + _%hd178228178251%_ + _%tl178229178253%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) + (letrec ((_%loop178233178261%_ + (lambda (_%hd178231178264%_ + _%expr178237178266%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174668174701%_)) - (let ((_%e174671174706%_ + (gx#stx-pair? _%hd178231178264%_)) + (let ((_%e178234178268%_ (let () (declare (not safe)) - (gx#stx-e _%hd174668174701%_)))) - (let ((_%lp-tl174673174711%_ + (gx#stx-e _%hd178231178264%_)))) + (let ((_%lp-tl178236178273%_ (let () (declare (not safe)) - (##cdr _%e174671174706%_))) - (_%lp-hd174672174709%_ + (##cdr _%e178234178268%_))) + (_%lp-hd178235178271%_ (let () (declare (not safe)) - (##car _%e174671174706%_)))) - (_%loop174670174698%_ - _%lp-tl174673174711%_ - (cons _%lp-hd174672174709%_ - _%expr174674174703%_)))) - (let ((_%expr174675174714%_ - (reverse _%expr174674174703%_))) - (_%__kont176990176991%_ - _%expr174675174714%_)))))) - (_%loop174670174698%_ _%target174667174693%_ '())))) - (_%__match177121177122%_ - (lambda (_%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%e174575174903%_ - _%hd174576174906%_ - _%tl174577174908%_ - _%e174578174911%_ - _%hd174579174914%_ - _%tl174580174916%_ - _%e174581174919%_ - _%hd174582174922%_ - _%tl174583174924%_ - _%e174584174927%_ - _%hd174585174930%_ - _%tl174586174932%_ - _%e174587174935%_ - _%hd174588174938%_ - _%tl174589174940%_ - _%e174590174943%_ - _%hd174591174946%_ - _%tl174592174948%_ - _%e174593174951%_ - _%hd174594174954%_ - _%tl174595174956%_ - _%e174596174959%_ - _%hd174597174962%_ - _%tl174598174964%_ - _%e174599174967%_ - _%hd174600174970%_ - _%tl174601174972%_ - _%e174602174975%_ - _%hd174603174978%_ - _%tl174604174980%_ - _%e174605174983%_ - _%hd174606174986%_ - _%tl174607174988%_ - _%e174608174991%_ - _%hd174609174994%_ - _%tl174610174996%_ - _%e174611174999%_ - _%hd174612175002%_ - _%tl174613175004%_ - _%e174614175007%_ - _%hd174615175010%_ - _%tl174616175012%_ - _%e174617175015%_ - _%hd174618175018%_ - _%tl174619175020%_) - (let ((_%L175023%_ _%hd174618175018%_) - (_%L175024%_ _%hd174609174994%_) - (_%L175025%_ _%hd174600174970%_) - (_%L175026%_ _%hd174591174946%_) - (_%L175027%_ _%hd174582174922%_)) + (##car _%e178234178268%_)))) + (_%loop178233178261%_ + _%lp-tl178236178273%_ + (cons _%lp-hd178235178271%_ + _%expr178237178266%_)))) + (let ((_%expr178238178276%_ + (reverse _%expr178237178266%_))) + (_%__kont180534180535%_ + _%expr178238178276%_)))))) + (_%loop178233178261%_ _%target178230178256%_ '())))) + (_%__match180665180666%_ + (lambda (_%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%e178138178464%_ + _%hd178139178467%_ + _%tl178140178469%_ + _%e178141178472%_ + _%hd178142178475%_ + _%tl178143178477%_ + _%e178144178480%_ + _%hd178145178483%_ + _%tl178146178485%_ + _%e178147178488%_ + _%hd178148178491%_ + _%tl178149178493%_ + _%e178150178496%_ + _%hd178151178499%_ + _%tl178152178501%_ + _%e178153178504%_ + _%hd178154178507%_ + _%tl178155178509%_ + _%e178156178512%_ + _%hd178157178515%_ + _%tl178158178517%_ + _%e178159178520%_ + _%hd178160178523%_ + _%tl178161178525%_ + _%e178162178528%_ + _%hd178163178531%_ + _%tl178164178533%_ + _%e178165178536%_ + _%hd178166178539%_ + _%tl178167178541%_ + _%e178168178544%_ + _%hd178169178547%_ + _%tl178170178549%_ + _%e178171178552%_ + _%hd178172178555%_ + _%tl178173178557%_ + _%e178174178560%_ + _%hd178175178563%_ + _%tl178176178565%_ + _%e178177178568%_ + _%hd178178178571%_ + _%tl178179178573%_ + _%e178180178576%_ + _%hd178181178579%_ + _%tl178182178581%_) + (let ((_%g178130178584%_ _%hd178181178579%_) + (_%g178131178585%_ _%hd178172178555%_) + (_%g178132178586%_ _%hd178163178531%_) + (_%g178133178587%_ _%hd178154178507%_) + (_%g178134178588%_ _%hd178145178483%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L175027%_ + _%g178134178588%_ 'bind-method!)) - (_%__kont176986176987%_ - _%L175023%_ - _%L175024%_ - _%L175025%_ - _%L175026%_ - _%L175027%_) + (_%__kont180530180531%_ + _%g178130178584%_ + _%g178131178585%_ + _%g178132178586%_ + _%g178133178587%_ + _%g178134178588%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + (gx#stx-pair/null? _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + (gx#stx-null? _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))))))) + (_%g178128178243%_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176984176985%_)) - (let ((_%e174572174895%_ + (gx#stx-pair? _%__stx180528180529%_)) + (let ((_%e178135178456%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176984176985%_)))) - (let ((_%tl174574174900%_ + (gx#stx-e _%__stx180528180529%_)))) + (let ((_%tl178137178461%_ (let () (declare (not safe)) - (##cdr _%e174572174895%_))) - (_%hd174573174898%_ + (##cdr _%e178135178456%_))) + (_%hd178136178459%_ (let () (declare (not safe)) - (##car _%e174572174895%_)))) + (##car _%e178135178456%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174574174900%_)) - (let ((_%e174575174903%_ + (gx#stx-pair? _%tl178137178461%_)) + (let ((_%e178138178464%_ (let () (declare (not safe)) - (gx#stx-e _%tl174574174900%_)))) - (let ((_%tl174577174908%_ + (gx#stx-e _%tl178137178461%_)))) + (let ((_%tl178140178469%_ (let () (declare (not safe)) - (##cdr _%e174575174903%_))) - (_%hd174576174906%_ + (##cdr _%e178138178464%_))) + (_%hd178139178467%_ (let () (declare (not safe)) - (##car _%e174575174903%_)))) + (##car _%e178138178464%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174576174906%_)) - (let ((_%e174578174911%_ + (gx#stx-pair? _%hd178139178467%_)) + (let ((_%e178141178472%_ (let () (declare (not safe)) - (gx#stx-e _%hd174576174906%_)))) - (let ((_%tl174580174916%_ + (gx#stx-e _%hd178139178467%_)))) + (let ((_%tl178143178477%_ (let () (declare (not safe)) - (##cdr _%e174578174911%_))) - (_%hd174579174914%_ + (##cdr _%e178141178472%_))) + (_%hd178142178475%_ (let () (declare (not safe)) - (##car _%e174578174911%_)))) + (##car _%e178141178472%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd174579174914%_)) + _%hd178142178475%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd174579174914%_)) + _%hd178142178475%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174580174916%_)) - (let ((_%e174581174919%_ + _%tl178143178477%_)) + (let ((_%e178144178480%_ (let () (declare (not safe)) (gx#stx-e - _%tl174580174916%_)))) - (let ((_%tl174583174924%_ + _%tl178143178477%_)))) + (let ((_%tl178146178485%_ (let () (declare (not safe)) - (##cdr _%e174581174919%_))) - (_%hd174582174922%_ + (##cdr _%e178144178480%_))) + (_%hd178145178483%_ (let () (declare (not safe)) - (##car _%e174581174919%_)))) + (##car _%e178144178480%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174583174924%_)) + _%tl178146178485%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl174577174908%_)) - (let ((_%e174584174927%_ + (gx#stx-pair? _%tl178140178469%_)) + (let ((_%e178147178488%_ (let () (declare (not safe)) - (gx#stx-e _%tl174577174908%_)))) - (let ((_%tl174586174932%_ + (gx#stx-e _%tl178140178469%_)))) + (let ((_%tl178149178493%_ (let () (declare (not safe)) - (##cdr _%e174584174927%_))) - (_%hd174585174930%_ + (##cdr _%e178147178488%_))) + (_%hd178148178491%_ (let () (declare (not safe)) - (##car _%e174584174927%_)))) + (##car _%e178147178488%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174585174930%_)) - (let ((_%e174587174935%_ + (gx#stx-pair? _%hd178148178491%_)) + (let ((_%e178150178496%_ (let () (declare (not safe)) - (gx#stx-e _%hd174585174930%_)))) - (let ((_%tl174589174940%_ + (gx#stx-e _%hd178148178491%_)))) + (let ((_%tl178152178501%_ (let () (declare (not safe)) - (##cdr _%e174587174935%_))) - (_%hd174588174938%_ + (##cdr _%e178150178496%_))) + (_%hd178151178499%_ (let () (declare (not safe)) - (##car _%e174587174935%_)))) + (##car _%e178150178496%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd174588174938%_)) + (gx#identifier? _%hd178151178499%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd174588174938%_)) + _%hd178151178499%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174589174940%_)) - (let ((_%e174590174943%_ + _%tl178152178501%_)) + (let ((_%e178153178504%_ (let () (declare (not safe)) (gx#stx-e - _%tl174589174940%_)))) - (let ((_%tl174592174948%_ + _%tl178152178501%_)))) + (let ((_%tl178155178509%_ (let () (declare (not safe)) - (##cdr _%e174590174943%_))) - (_%hd174591174946%_ + (##cdr _%e178153178504%_))) + (_%hd178154178507%_ (let () (declare (not safe)) - (##car _%e174590174943%_)))) + (##car _%e178153178504%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174592174948%_)) + _%tl178155178509%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174586174932%_)) - (let ((_%e174593174951%_ + _%tl178149178493%_)) + (let ((_%e178156178512%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl174586174932%_)))) - (let ((_%tl174595174956%_ + (gx#stx-e _%tl178149178493%_)))) + (let ((_%tl178158178517%_ (let () (declare (not safe)) - (##cdr _%e174593174951%_))) - (_%hd174594174954%_ + (##cdr _%e178156178512%_))) + (_%hd178157178515%_ (let () (declare (not safe)) - (##car _%e174593174951%_)))) + (##car _%e178156178512%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174594174954%_)) - (let ((_%e174596174959%_ + (gx#stx-pair? _%hd178157178515%_)) + (let ((_%e178159178520%_ (let () (declare (not safe)) - (gx#stx-e _%hd174594174954%_)))) - (let ((_%tl174598174964%_ + (gx#stx-e _%hd178157178515%_)))) + (let ((_%tl178161178525%_ (let () (declare (not safe)) - (##cdr _%e174596174959%_))) - (_%hd174597174962%_ + (##cdr _%e178159178520%_))) + (_%hd178160178523%_ (let () (declare (not safe)) - (##car _%e174596174959%_)))) + (##car _%e178159178520%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd174597174962%_)) + (gx#identifier? _%hd178160178523%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd174597174962%_)) + _%hd178160178523%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174598174964%_)) - (let ((_%e174599174967%_ + (gx#stx-pair? _%tl178161178525%_)) + (let ((_%e178162178528%_ (let () (declare (not safe)) (gx#stx-e - _%tl174598174964%_)))) - (let ((_%tl174601174972%_ + _%tl178161178525%_)))) + (let ((_%tl178164178533%_ (let () (declare (not safe)) - (##cdr _%e174599174967%_))) - (_%hd174600174970%_ + (##cdr _%e178162178528%_))) + (_%hd178163178531%_ (let () (declare (not safe)) - (##car _%e174599174967%_)))) + (##car _%e178162178528%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174601174972%_)) + _%tl178164178533%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174595174956%_)) - (let ((_%e174602174975%_ + _%tl178158178517%_)) + (let ((_%e178165178536%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl174595174956%_)))) - (let ((_%tl174604174980%_ - (let () (declare (not safe)) (##cdr _%e174602174975%_))) - (_%hd174603174978%_ + (gx#stx-e _%tl178158178517%_)))) + (let ((_%tl178167178541%_ + (let () (declare (not safe)) (##cdr _%e178165178536%_))) + (_%hd178166178539%_ (let () (declare (not safe)) - (##car _%e174602174975%_)))) + (##car _%e178165178536%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174603174978%_)) - (let ((_%e174605174983%_ + (gx#stx-pair? _%hd178166178539%_)) + (let ((_%e178168178544%_ (let () (declare (not safe)) - (gx#stx-e _%hd174603174978%_)))) - (let ((_%tl174607174988%_ + (gx#stx-e _%hd178166178539%_)))) + (let ((_%tl178170178549%_ (let () (declare (not safe)) - (##cdr _%e174605174983%_))) - (_%hd174606174986%_ + (##cdr _%e178168178544%_))) + (_%hd178169178547%_ (let () (declare (not safe)) - (##car _%e174605174983%_)))) + (##car _%e178168178544%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd174606174986%_)) + (gx#identifier? _%hd178169178547%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd174606174986%_)) + (gx#stx-eq? '%#ref _%hd178169178547%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174607174988%_)) - (let ((_%e174608174991%_ + (gx#stx-pair? _%tl178170178549%_)) + (let ((_%e178171178552%_ (let () (declare (not safe)) - (gx#stx-e _%tl174607174988%_)))) - (let ((_%tl174610174996%_ + (gx#stx-e _%tl178170178549%_)))) + (let ((_%tl178173178557%_ (let () (declare (not safe)) - (##cdr _%e174608174991%_))) - (_%hd174609174994%_ + (##cdr _%e178171178552%_))) + (_%hd178172178555%_ (let () (declare (not safe)) - (##car _%e174608174991%_)))) + (##car _%e178171178552%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174610174996%_)) + _%tl178173178557%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174604174980%_)) - (let ((_%e174611174999%_ + _%tl178167178541%_)) + (let ((_%e178174178560%_ (let () (declare (not safe)) (gx#stx-e - _%tl174604174980%_)))) - (let ((_%tl174613175004%_ + _%tl178167178541%_)))) + (let ((_%tl178176178565%_ (let () (declare (not safe)) - (##cdr _%e174611174999%_))) - (_%hd174612175002%_ + (##cdr _%e178174178560%_))) + (_%hd178175178563%_ (let () (declare (not safe)) - (##car _%e174611174999%_)))) + (##car _%e178174178560%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174612175002%_)) - (let ((_%e174614175007%_ + _%hd178175178563%_)) + (let ((_%e178177178568%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd174612175002%_)))) - (let ((_%tl174616175012%_ + (gx#stx-e _%hd178175178563%_)))) + (let ((_%tl178179178573%_ (let () (declare (not safe)) - (##cdr _%e174614175007%_))) - (_%hd174615175010%_ + (##cdr _%e178177178568%_))) + (_%hd178178178571%_ (let () (declare (not safe)) - (##car _%e174614175007%_)))) + (##car _%e178177178568%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd174615175010%_)) + (gx#identifier? _%hd178178178571%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd174615175010%_)) + (gx#stx-eq? '%#quote _%hd178178178571%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174616175012%_)) - (let ((_%e174617175015%_ + (gx#stx-pair? _%tl178179178573%_)) + (let ((_%e178180178576%_ (let () (declare (not safe)) - (gx#stx-e _%tl174616175012%_)))) - (let ((_%tl174619175020%_ + (gx#stx-e _%tl178179178573%_)))) + (let ((_%tl178182178581%_ (let () (declare (not safe)) - (##cdr _%e174617175015%_))) - (_%hd174618175018%_ + (##cdr _%e178180178576%_))) + (_%hd178181178579%_ (let () (declare (not safe)) - (##car _%e174617175015%_)))) + (##car _%e178180178576%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174619175020%_)) + (gx#stx-null? _%tl178182178581%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174613175004%_)) - (_%__match177121177122%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%e174575174903%_ - _%hd174576174906%_ - _%tl174577174908%_ - _%e174578174911%_ - _%hd174579174914%_ - _%tl174580174916%_ - _%e174581174919%_ - _%hd174582174922%_ - _%tl174583174924%_ - _%e174584174927%_ - _%hd174585174930%_ - _%tl174586174932%_ - _%e174587174935%_ - _%hd174588174938%_ - _%tl174589174940%_ - _%e174590174943%_ - _%hd174591174946%_ - _%tl174592174948%_ - _%e174593174951%_ - _%hd174594174954%_ - _%tl174595174956%_ - _%e174596174959%_ - _%hd174597174962%_ - _%tl174598174964%_ - _%e174599174967%_ - _%hd174600174970%_ - _%tl174601174972%_ - _%e174602174975%_ - _%hd174603174978%_ - _%tl174604174980%_ - _%e174605174983%_ - _%hd174606174986%_ - _%tl174607174988%_ - _%e174608174991%_ - _%hd174609174994%_ - _%tl174610174996%_ - _%e174611174999%_ - _%hd174612175002%_ - _%tl174613175004%_ - _%e174614175007%_ - _%hd174615175010%_ - _%tl174616175012%_ - _%e174617175015%_ - _%hd174618175018%_ - _%tl174619175020%_) + _%tl178176178565%_)) + (_%__match180665180666%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%e178138178464%_ + _%hd178139178467%_ + _%tl178140178469%_ + _%e178141178472%_ + _%hd178142178475%_ + _%tl178143178477%_ + _%e178144178480%_ + _%hd178145178483%_ + _%tl178146178485%_ + _%e178147178488%_ + _%hd178148178491%_ + _%tl178149178493%_ + _%e178150178496%_ + _%hd178151178499%_ + _%tl178152178501%_ + _%e178153178504%_ + _%hd178154178507%_ + _%tl178155178509%_ + _%e178156178512%_ + _%hd178157178515%_ + _%tl178158178517%_ + _%e178159178520%_ + _%hd178160178523%_ + _%tl178161178525%_ + _%e178162178528%_ + _%hd178163178531%_ + _%tl178164178533%_ + _%e178165178536%_ + _%hd178166178539%_ + _%tl178167178541%_ + _%e178168178544%_ + _%hd178169178547%_ + _%tl178170178549%_ + _%e178171178552%_ + _%hd178172178555%_ + _%tl178173178557%_ + _%e178174178560%_ + _%hd178175178563%_ + _%tl178176178565%_ + _%e178177178568%_ + _%hd178178178571%_ + _%tl178179178573%_ + _%e178180178576%_ + _%hd178181178579%_ + _%tl178182178581%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))) + (_%g178128178243%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))))) + (_%g178128178243%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + (gx#stx-pair/null? _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))) + (_%g178128178243%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + (gx#stx-pair/null? _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + (gx#stx-null? _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))) + (_%g178128178243%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + (gx#stx-pair/null? _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + (gx#stx-null? _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))))) + (_%g178128178243%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + (gx#stx-pair/null? _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) - (##vector-ref _%__splice176992176993%_ '1))) - (_%target174667174693%_ + (##vector-ref _%__splice180536180537%_ '1))) + (_%target178230178256%_ (let () (declare (not safe)) - (##vector-ref _%__splice176992176993%_ '0)))) + (##vector-ref _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + (gx#stx-null? _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) - (let () (declare (not safe)) (_%g174565174680%_)))))) + (_%g178128178243%_))))) + (let () (declare (not safe)) (_%g178128178243%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl174604174980%_)) - (if (let ((__tmp179818 + _%tl178167178541%_)) + (if (let ((__tmp183362 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp179818 'bind-method!)) - (let ((_%L174851%_ _%hd174609174994%_) - (_%L174852%_ _%hd174600174970%_) - (_%L174853%_ _%hd174591174946%_) - (_%L174854%_ _%hd174582174922%_)) - (_%__kont176988176989%_ - _%L174851%_ - _%L174852%_ - _%L174853%_ - _%L174854%_)) + (gxc#runtime-identifier=? __tmp183362 'bind-method!)) + (let ((_%g178183178412%_ _%hd178172178555%_) + (_%g178184178413%_ _%hd178163178531%_) + (_%g178185178414%_ _%hd178154178507%_) + (_%g178186178415%_ _%hd178145178483%_)) + (_%__kont180532180533%_ + _%g178183178412%_ + _%g178184178413%_ + _%g178185178414%_ + _%g178186178415%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + (gx#stx-pair/null? _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) - (##vector-ref _%__splice176992176993%_ '1))) - (_%target174667174693%_ + (##vector-ref _%__splice180536180537%_ '1))) + (_%target178230178256%_ (let () (declare (not safe)) - (##vector-ref _%__splice176992176993%_ '0)))) + (##vector-ref _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + (gx#stx-null? _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) - (let () (declare (not safe)) (_%g174565174680%_)))) + (_%g178128178243%_))))) + (let () (declare (not safe)) (_%g178128178243%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + (gx#stx-pair/null? _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) - (##vector-ref _%__splice176992176993%_ '1))) - (_%target174667174693%_ + (##vector-ref _%__splice180536180537%_ '1))) + (_%target178230178256%_ (let () (declare (not safe)) - (##vector-ref _%__splice176992176993%_ '0)))) + (##vector-ref _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) - (let () (declare (not safe)) (_%g174565174680%_))))) - (let () (declare (not safe)) (_%g174565174680%_))))) + (gx#stx-null? _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) + (let () (declare (not safe)) (_%g178128178243%_))))) + (let () (declare (not safe)) (_%g178128178243%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))))) + (_%g178128178243%_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))) + (_%g178128178243%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + (gx#stx-pair/null? _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))) + (_%g178128178243%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + (gx#stx-pair/null? _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + (gx#stx-null? _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))))) + (_%g178128178243%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + (gx#stx-pair/null? _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + (gx#stx-null? _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) - (let () (declare (not safe)) (_%g174565174680%_)))))) + (_%g178128178243%_))))) + (let () (declare (not safe)) (_%g178128178243%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + (gx#stx-pair/null? _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) - (##vector-ref _%__splice176992176993%_ '1))) - (_%target174667174693%_ + (##vector-ref _%__splice180536180537%_ '1))) + (_%target178230178256%_ (let () (declare (not safe)) - (##vector-ref _%__splice176992176993%_ '0)))) + (##vector-ref _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) - (let () (declare (not safe)) (_%g174565174680%_))))) - (let () (declare (not safe)) (_%g174565174680%_)))) + (gx#stx-null? _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) + (let () (declare (not safe)) (_%g178128178243%_))))) + (let () (declare (not safe)) (_%g178128178243%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) - (##vector-ref _%__splice176992176993%_ '1))) - (_%target174667174693%_ + (##vector-ref _%__splice180536180537%_ '1))) + (_%target178230178256%_ (let () (declare (not safe)) - (##vector-ref _%__splice176992176993%_ '0)))) + (##vector-ref _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) - (let () (declare (not safe)) (_%g174565174680%_))))) - (let () (declare (not safe)) (_%g174565174680%_)))))) + (gx#stx-null? _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) + (let () (declare (not safe)) (_%g178128178243%_))))) + (let () (declare (not safe)) (_%g178128178243%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))) + (_%g178128178243%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))) + (_%g178128178243%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + (gx#stx-pair/null? _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))))) + (_%g178128178243%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + (gx#stx-pair/null? _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + (gx#stx-null? _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))))) + (_%g178128178243%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + (gx#stx-pair/null? _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) - (##vector-ref _%__splice176992176993%_ '1))) - (_%target174667174693%_ + (##vector-ref _%__splice180536180537%_ '1))) + (_%target178230178256%_ (let () (declare (not safe)) - (##vector-ref _%__splice176992176993%_ '0)))) + (##vector-ref _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + (gx#stx-null? _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) - (let () (declare (not safe)) (_%g174565174680%_)))) + (_%g178128178243%_))))) + (let () (declare (not safe)) (_%g178128178243%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + (gx#stx-pair/null? _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) - (##vector-ref _%__splice176992176993%_ '1))) - (_%target174667174693%_ + (##vector-ref _%__splice180536180537%_ '1))) + (_%target178230178256%_ (let () (declare (not safe)) - (##vector-ref _%__splice176992176993%_ '0)))) + (##vector-ref _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) - (let () (declare (not safe)) (_%g174565174680%_))))) - (let () (declare (not safe)) (_%g174565174680%_)))))) + (gx#stx-null? _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) + (let () (declare (not safe)) (_%g178128178243%_))))) + (let () (declare (not safe)) (_%g178128178243%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))) + (_%g178128178243%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))) + (_%g178128178243%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))))) + (_%g178128178243%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + (gx#stx-pair/null? _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + (gx#stx-null? _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))))) + (_%g178128178243%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + (gx#stx-pair/null? _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + (gx#stx-null? _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) - (let () (declare (not safe)) (_%g174565174680%_)))) + (_%g178128178243%_))))) + (let () (declare (not safe)) (_%g178128178243%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + (gx#stx-pair/null? _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) - (##vector-ref _%__splice176992176993%_ '1))) - (_%target174667174693%_ + (##vector-ref _%__splice180536180537%_ '1))) + (_%target178230178256%_ (let () (declare (not safe)) - (##vector-ref _%__splice176992176993%_ '0)))) + (##vector-ref _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + (gx#stx-null? _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) - (let () (declare (not safe)) (_%g174565174680%_)))))) + (_%g178128178243%_))))) + (let () (declare (not safe)) (_%g178128178243%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) - (##vector-ref _%__splice176992176993%_ '1))) - (_%target174667174693%_ + (##vector-ref _%__splice180536180537%_ '1))) + (_%target178230178256%_ (let () (declare (not safe)) - (##vector-ref _%__splice176992176993%_ '0)))) + (##vector-ref _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) - (let () (declare (not safe)) (_%g174565174680%_))))) - (let () (declare (not safe)) (_%g174565174680%_)))) + (gx#stx-null? _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) + (let () (declare (not safe)) (_%g178128178243%_))))) + (let () (declare (not safe)) (_%g178128178243%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))) + (_%g178128178243%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))))) + (_%g178128178243%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + (gx#stx-pair/null? _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))))) + (_%g178128178243%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174574174900%_)) - (let ((_%__splice176992176993%_ + (gx#stx-pair/null? _%tl178137178461%_)) + (let ((_%__splice180536180537%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl174574174900%_ + _%tl178137178461%_ '0)))) - (let ((_%tl174669174695%_ + (let ((_%tl178232178258%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '1))) - (_%target174667174693%_ + (_%target178230178256%_ (let () (declare (not safe)) (##vector-ref - _%__splice176992176993%_ + _%__splice180536180537%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174669174695%_)) - (_%__match177241177242%_ - _%e174572174895%_ - _%hd174573174898%_ - _%tl174574174900%_ - _%__splice176992176993%_ - _%target174667174693%_ - _%tl174669174695%_) + (gx#stx-null? _%tl178232178258%_)) + (_%__match180785180786%_ + _%e178135178456%_ + _%hd178136178459%_ + _%tl178137178461%_ + _%__splice180536180537%_ + _%target178230178256%_ + _%tl178232178258%_) (let () (declare (not safe)) - (_%g174565174680%_))))) + (_%g178128178243%_))))) (let () (declare (not safe)) - (_%g174565174680%_)))))) - (let () (declare (not safe)) (_%g174565174680%_)))))))) + (_%g178128178243%_)))))) + (let () (declare (not safe)) (_%g178128178243%_)))))))) (define gxc#collect-type-setq% - (lambda (_%self174483%_ _%stx174484%_) - (let* ((_%g174486174503%_ - (lambda (_%g174487174500%_) + (lambda (_%self178046%_ _%stx178047%_) + (let* ((_%g178049178066%_ + (lambda (_%g178050178063%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174487174500%_)))) - (_%g174485174557%_ - (lambda (_%g174487174506%_) + _%g178050178063%_)))) + (_%g178048178120%_ + (lambda (_%g178050178069%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g174487174506%_)) - (let ((_%e174490174508%_ + (gx#stx-pair? _%g178050178069%_)) + (let ((_%e178053178071%_ (let () (declare (not safe)) - (gx#stx-e _%g174487174506%_)))) - (let ((_%hd174491174511%_ + (gx#stx-e _%g178050178069%_)))) + (let ((_%hd178054178074%_ (let () (declare (not safe)) - (##car _%e174490174508%_))) - (_%tl174492174513%_ + (##car _%e178053178071%_))) + (_%tl178055178076%_ (let () (declare (not safe)) - (##cdr _%e174490174508%_)))) + (##cdr _%e178053178071%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174492174513%_)) - (let ((_%e174493174516%_ + (gx#stx-pair? _%tl178055178076%_)) + (let ((_%e178056178079%_ (let () (declare (not safe)) - (gx#stx-e _%tl174492174513%_)))) - (let ((_%hd174494174519%_ + (gx#stx-e _%tl178055178076%_)))) + (let ((_%hd178057178082%_ (let () (declare (not safe)) - (##car _%e174493174516%_))) - (_%tl174495174521%_ + (##car _%e178056178079%_))) + (_%tl178058178084%_ (let () (declare (not safe)) - (##cdr _%e174493174516%_)))) + (##cdr _%e178056178079%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174495174521%_)) - (let ((_%e174496174524%_ + (gx#stx-pair? _%tl178058178084%_)) + (let ((_%e178059178087%_ (let () (declare (not safe)) - (gx#stx-e _%tl174495174521%_)))) - (let ((_%hd174497174527%_ + (gx#stx-e _%tl178058178084%_)))) + (let ((_%hd178060178090%_ (let () (declare (not safe)) - (##car _%e174496174524%_))) - (_%tl174498174529%_ + (##car _%e178059178087%_))) + (_%tl178061178092%_ (let () (declare (not safe)) - (##cdr _%e174496174524%_)))) + (##cdr _%e178059178087%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174498174529%_)) - ((lambda (_%L174532%_ - _%L174533%_) - (let* ((_%sym174548%_ + _%tl178061178092%_)) + ((lambda (_%g178051178095%_ + _%g178052178096%_) + (let* ((_%sym178111%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L174533%_))) - (_%bind-type174550%_ + _%g178052178096%_))) + (_%bind-type178113%_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _%sym174548%_))) - (_%expr-type174552%_ + _%sym178111%_))) + (_%expr-type178115%_ (gxc#apply-basic-expression-type - _%L174532%_)) - (_%reduced-type174554%_ + _%g178051178095%_)) + (_%reduced-type178117%_ (gxc#greatest-common-type - _%stx174484%_ - _%bind-type174550%_ - _%expr-type174552%_))) - (if _%reduced-type174554%_ - (let ((__tmp179819 - (memq _%sym174548%_ + _%stx178047%_ + _%bind-type178113%_ + _%expr-type178115%_))) + (if _%reduced-type178117%_ + (let ((__tmp183363 + (memq _%sym178111%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#current-compile-local-env))))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym174548%_ - _%reduced-type174554%_ - __tmp179819)) + _%sym178111%_ + _%reduced-type178117%_ + __tmp183363)) '#!void) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self174483%_ - _%L174532%_)))) - _%hd174497174527%_ - _%hd174494174519%_) - (_%g174486174503%_ - _%g174487174506%_)))) - (_%g174486174503%_ _%g174487174506%_)))) - (_%g174486174503%_ _%g174487174506%_)))) - (_%g174486174503%_ _%g174487174506%_))))) - (_%g174485174557%_ _%stx174484%_)))) + _%self178046%_ + _%g178051178095%_)))) + _%hd178060178090%_ + _%hd178057178082%_) + (_%g178049178066%_ + _%g178050178069%_)))) + (_%g178049178066%_ _%g178050178069%_)))) + (_%g178049178066%_ _%g178050178069%_)))) + (_%g178049178066%_ _%g178050178069%_))))) + (_%g178048178120%_ _%stx178047%_)))) (define gxc#apply-path-type-if% - (lambda (_%self174083%_ _%stx174084%_) - (let* ((_%__stx177244177245%_ _%stx174084%_) - (_%g174088174177%_ + (lambda (_%self177646%_ _%stx177647%_) + (let* ((_%__stx180788180789%_ _%stx177647%_) + (_%g177651177740%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx177244177245%_))))) - (let ((_%__kont177246177247%_ - (lambda (_%L174435%_ _%L174436%_ _%L174437%_ _%L174438%_) - (let ((_%$e174470%_ - (let ((__tmp179820 + _%__stx180788180789%_))))) + (let ((_%__kont180790180791%_ + (lambda (_%g177653177998%_ + _%g177654177999%_ + _%g177655178000%_ + _%g177656178001%_) + (let ((_%$e178033%_ + (let ((__tmp183364 (let () (declare (not safe)) - (gxc#identifier-symbol _%L174438%_)))) + (gxc#identifier-symbol _%g177656178001%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp179820)))) - (if _%$e174470%_ - ((lambda (_%pred-type174473%_) + (gxc#optimizer-lookup-type __tmp183364)))) + (if _%$e178033%_ + ((lambda (_%pred-type178036%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type174473%_ + _%pred-type178036%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type174473%_ + _%pred-type178036%_ 'gxc#!primitive-predicate::t))) (begin - (let ((__tmp179823 + (let ((__tmp183367 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self174083%_ - _%L174436%_)))) - (__tmp179821 + _%self177646%_ + _%g177654177999%_)))) + (__tmp183365 (cons (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L174437%_)) - (let ((__tmp179822 + _%g177655178000%_)) + (let ((__tmp183366 (##structure-ref - _%pred-type174473%_ + _%pred-type178036%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx174084%_ - __tmp179822))) + _%stx177647%_ + __tmp183366))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) (declare (not safe)) (call-with-parameters__1 - __tmp179823 + __tmp183367 gxc#current-compile-path-type - __tmp179821)) + __tmp183365)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self174083%_ - _%L174435%_))) + _%self177646%_ + _%g177653177998%_))) (let () (declare (not safe)) (gxc#apply-operands - _%self174083%_ - _%stx174084%_)))) - _%$e174470%_) + _%self177646%_ + _%stx177647%_)))) + _%$e178033%_) (let () (declare (not safe)) (gxc#apply-operands - _%self174083%_ - _%stx174084%_)))))) - (_%__kont177248177249%_ - (lambda (_%L174311%_ _%L174312%_ _%L174313%_ _%L174314%_) + _%self177646%_ + _%stx177647%_)))))) + (_%__kont180792180793%_ + (lambda (_%g177690177874%_ + _%g177691177875%_ + _%g177692177876%_ + _%g177693177877%_) (gxc#apply-path-type-if% - _%self174083%_ - (let ((__tmp179824 + _%self177646%_ + (let ((__tmp183368 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L174313%_ - (cons _%L174311%_ - (cons _%L174312%_ '())))))) + (cons _%g177692177876%_ + (cons _%g177690177874%_ + (cons _%g177691177875%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp179824 _%stx174084%_))))) - (_%__kont177250177251%_ - (lambda (_%L174214%_ _%L174215%_ _%L174216%_) + (gxc#xform-wrap-source __tmp183368 _%stx177647%_))))) + (_%__kont180794180795%_ + (lambda (_%g177721177777%_ + _%g177722177778%_ + _%g177723177779%_) (let () (declare (not safe)) - (gxc#apply-operands _%self174083%_ _%stx174084%_))))) - (let ((_%__match177405177406%_ - (lambda (_%e174131174239%_ - _%hd174132174242%_ - _%tl174133174244%_ - _%e174134174247%_ - _%hd174135174250%_ - _%tl174136174252%_ - _%e174137174255%_ - _%hd174138174258%_ - _%tl174139174260%_ - _%e174140174263%_ - _%hd174141174266%_ - _%tl174142174268%_ - _%e174143174271%_ - _%hd174144174274%_ - _%tl174145174276%_ - _%e174146174279%_ - _%hd174147174282%_ - _%tl174148174284%_ - _%e174149174287%_ - _%hd174150174290%_ - _%tl174151174292%_ - _%e174152174295%_ - _%hd174153174298%_ - _%tl174154174300%_ - _%e174155174303%_ - _%hd174156174306%_ - _%tl174157174308%_) - (let ((_%L174311%_ _%hd174156174306%_) - (_%L174312%_ _%hd174153174298%_) - (_%L174313%_ _%hd174150174290%_) - (_%L174314%_ _%hd174147174282%_)) + (gxc#apply-operands _%self177646%_ _%stx177647%_))))) + (let ((_%__match180949180950%_ + (lambda (_%e177694177802%_ + _%hd177695177805%_ + _%tl177696177807%_ + _%e177697177810%_ + _%hd177698177813%_ + _%tl177699177815%_ + _%e177700177818%_ + _%hd177701177821%_ + _%tl177702177823%_ + _%e177703177826%_ + _%hd177704177829%_ + _%tl177705177831%_ + _%e177706177834%_ + _%hd177707177837%_ + _%tl177708177839%_ + _%e177709177842%_ + _%hd177710177845%_ + _%tl177711177847%_ + _%e177712177850%_ + _%hd177713177853%_ + _%tl177714177855%_ + _%e177715177858%_ + _%hd177716177861%_ + _%tl177717177863%_ + _%e177718177866%_ + _%hd177719177869%_ + _%tl177720177871%_) + (let ((_%g177690177874%_ _%hd177719177869%_) + (_%g177691177875%_ _%hd177716177861%_) + (_%g177692177876%_ _%hd177713177853%_) + (_%g177693177877%_ _%hd177710177845%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L174314%_ 'not)) - (_%__kont177248177249%_ - _%L174311%_ - _%L174312%_ - _%L174313%_ - _%L174314%_) - (_%__kont177250177251%_ - _%hd174156174306%_ - _%hd174153174298%_ - _%hd174135174250%_)))))) + (gxc#runtime-identifier=? _%g177693177877%_ 'not)) + (_%__kont180792180793%_ + _%g177690177874%_ + _%g177691177875%_ + _%g177692177876%_ + _%g177693177877%_) + (_%__kont180794180795%_ + _%hd177719177869%_ + _%hd177716177861%_ + _%hd177698177813%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx177244177245%_)) - (let ((_%e174094174347%_ + (gx#stx-pair? _%__stx180788180789%_)) + (let ((_%e177657177910%_ (let () (declare (not safe)) - (gx#stx-e _%__stx177244177245%_)))) - (let ((_%tl174096174352%_ + (gx#stx-e _%__stx180788180789%_)))) + (let ((_%tl177659177915%_ (let () (declare (not safe)) - (##cdr _%e174094174347%_))) - (_%hd174095174350%_ + (##cdr _%e177657177910%_))) + (_%hd177658177913%_ (let () (declare (not safe)) - (##car _%e174094174347%_)))) + (##car _%e177657177910%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174096174352%_)) - (let ((_%e174097174355%_ + (gx#stx-pair? _%tl177659177915%_)) + (let ((_%e177660177918%_ (let () (declare (not safe)) - (gx#stx-e _%tl174096174352%_)))) - (let ((_%tl174099174360%_ + (gx#stx-e _%tl177659177915%_)))) + (let ((_%tl177662177923%_ (let () (declare (not safe)) - (##cdr _%e174097174355%_))) - (_%hd174098174358%_ + (##cdr _%e177660177918%_))) + (_%hd177661177921%_ (let () (declare (not safe)) - (##car _%e174097174355%_)))) + (##car _%e177660177918%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174098174358%_)) - (let ((_%e174100174363%_ + (gx#stx-pair? _%hd177661177921%_)) + (let ((_%e177663177926%_ (let () (declare (not safe)) - (gx#stx-e _%hd174098174358%_)))) - (let ((_%tl174102174368%_ + (gx#stx-e _%hd177661177921%_)))) + (let ((_%tl177665177931%_ (let () (declare (not safe)) - (##cdr _%e174100174363%_))) - (_%hd174101174366%_ + (##cdr _%e177663177926%_))) + (_%hd177664177929%_ (let () (declare (not safe)) - (##car _%e174100174363%_)))) + (##car _%e177663177926%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd174101174366%_)) + _%hd177664177929%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd174101174366%_)) + _%hd177664177929%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174102174368%_)) - (let ((_%e174103174371%_ + _%tl177665177931%_)) + (let ((_%e177666177934%_ (let () (declare (not safe)) (gx#stx-e - _%tl174102174368%_)))) - (let ((_%tl174105174376%_ + _%tl177665177931%_)))) + (let ((_%tl177668177939%_ (let () (declare (not safe)) - (##cdr _%e174103174371%_))) - (_%hd174104174374%_ + (##cdr _%e177666177934%_))) + (_%hd177667177937%_ (let () (declare (not safe)) - (##car _%e174103174371%_)))) + (##car _%e177666177934%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174104174374%_)) - (let ((_%e174106174379%_ + _%hd177667177937%_)) + (let ((_%e177669177942%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd174104174374%_)))) - (let ((_%tl174108174384%_ + (gx#stx-e _%hd177667177937%_)))) + (let ((_%tl177671177947%_ (let () (declare (not safe)) - (##cdr _%e174106174379%_))) - (_%hd174107174382%_ + (##cdr _%e177669177942%_))) + (_%hd177670177945%_ (let () (declare (not safe)) - (##car _%e174106174379%_)))) + (##car _%e177669177942%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd174107174382%_)) + (gx#identifier? _%hd177670177945%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd174107174382%_)) + (gx#stx-eq? '%#ref _%hd177670177945%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174108174384%_)) - (let ((_%e174109174387%_ + (gx#stx-pair? _%tl177671177947%_)) + (let ((_%e177672177950%_ (let () (declare (not safe)) - (gx#stx-e _%tl174108174384%_)))) - (let ((_%tl174111174392%_ + (gx#stx-e _%tl177671177947%_)))) + (let ((_%tl177674177955%_ (let () (declare (not safe)) - (##cdr _%e174109174387%_))) - (_%hd174110174390%_ + (##cdr _%e177672177950%_))) + (_%hd177673177953%_ (let () (declare (not safe)) - (##car _%e174109174387%_)))) + (##car _%e177672177950%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174111174392%_)) + (gx#stx-null? _%tl177674177955%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174105174376%_)) - (let ((_%e174112174395%_ + _%tl177668177939%_)) + (let ((_%e177675177958%_ (let () (declare (not safe)) (gx#stx-e - _%tl174105174376%_)))) - (let ((_%tl174114174400%_ + _%tl177668177939%_)))) + (let ((_%tl177677177963%_ (let () (declare (not safe)) - (##cdr _%e174112174395%_))) - (_%hd174113174398%_ + (##cdr _%e177675177958%_))) + (_%hd177676177961%_ (let () (declare (not safe)) - (##car _%e174112174395%_)))) + (##car _%e177675177958%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174113174398%_)) - (let ((_%e174115174403%_ + _%hd177676177961%_)) + (let ((_%e177678177966%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd174113174398%_)))) - (let ((_%tl174117174408%_ - (let () (declare (not safe)) (##cdr _%e174115174403%_))) - (_%hd174116174406%_ + (gx#stx-e _%hd177676177961%_)))) + (let ((_%tl177680177971%_ + (let () (declare (not safe)) (##cdr _%e177678177966%_))) + (_%hd177679177969%_ (let () (declare (not safe)) - (##car _%e174115174403%_)))) + (##car _%e177678177966%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd174116174406%_)) + (gx#identifier? _%hd177679177969%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd174116174406%_)) + (gx#stx-eq? '%#ref _%hd177679177969%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174117174408%_)) - (let ((_%e174118174411%_ + (gx#stx-pair? _%tl177680177971%_)) + (let ((_%e177681177974%_ (let () (declare (not safe)) - (gx#stx-e _%tl174117174408%_)))) - (let ((_%tl174120174416%_ + (gx#stx-e _%tl177680177971%_)))) + (let ((_%tl177683177979%_ (let () (declare (not safe)) - (##cdr _%e174118174411%_))) - (_%hd174119174414%_ + (##cdr _%e177681177974%_))) + (_%hd177682177977%_ (let () (declare (not safe)) - (##car _%e174118174411%_)))) + (##car _%e177681177974%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174120174416%_)) + (gx#stx-null? _%tl177683177979%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174114174400%_)) + (gx#stx-null? _%tl177677177963%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174099174360%_)) - (let ((_%e174121174419%_ + _%tl177662177923%_)) + (let ((_%e177684177982%_ (let () (declare (not safe)) (gx#stx-e - _%tl174099174360%_)))) - (let ((_%tl174123174424%_ + _%tl177662177923%_)))) + (let ((_%tl177686177987%_ (let () (declare (not safe)) - (##cdr _%e174121174419%_))) - (_%hd174122174422%_ + (##cdr _%e177684177982%_))) + (_%hd177685177985%_ (let () (declare (not safe)) - (##car _%e174121174419%_)))) + (##car _%e177684177982%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174123174424%_)) - (let ((_%e174124174427%_ + _%tl177686177987%_)) + (let ((_%e177687177990%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl174123174424%_)))) - (let ((_%tl174126174432%_ - (let () (declare (not safe)) (##cdr _%e174124174427%_))) - (_%hd174125174430%_ + (gx#stx-e _%tl177686177987%_)))) + (let ((_%tl177689177995%_ + (let () (declare (not safe)) (##cdr _%e177687177990%_))) + (_%hd177688177993%_ (let () (declare (not safe)) - (##car _%e174124174427%_)))) + (##car _%e177687177990%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174126174432%_)) - (_%__kont177246177247%_ - _%hd174125174430%_ - _%hd174122174422%_ - _%hd174119174414%_ - _%hd174110174390%_) - (let () (declare (not safe)) (_%g174088174177%_))))) - (let () (declare (not safe)) (_%g174088174177%_))))) + (gx#stx-null? _%tl177689177995%_)) + (_%__kont180790180791%_ + _%hd177688177993%_ + _%hd177685177985%_ + _%hd177682177977%_ + _%hd177673177953%_) + (let () (declare (not safe)) (_%g177651177740%_))))) + (let () (declare (not safe)) (_%g177651177740%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g174088174177%_))) + (_%g177651177740%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174099174360%_)) - (let ((_%e174167174198%_ + _%tl177662177923%_)) + (let ((_%e177730177761%_ (let () (declare (not safe)) (gx#stx-e - _%tl174099174360%_)))) - (let ((_%tl174169174203%_ + _%tl177662177923%_)))) + (let ((_%tl177732177766%_ (let () (declare (not safe)) - (##cdr _%e174167174198%_))) - (_%hd174168174201%_ + (##cdr _%e177730177761%_))) + (_%hd177731177764%_ (let () (declare (not safe)) - (##car _%e174167174198%_)))) + (##car _%e177730177761%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174169174203%_)) - (let ((_%e174170174206%_ + _%tl177732177766%_)) + (let ((_%e177733177769%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl174169174203%_)))) - (let ((_%tl174172174211%_ - (let () (declare (not safe)) (##cdr _%e174170174206%_))) - (_%hd174171174209%_ + (gx#stx-e _%tl177732177766%_)))) + (let ((_%tl177735177774%_ + (let () (declare (not safe)) (##cdr _%e177733177769%_))) + (_%hd177734177772%_ (let () (declare (not safe)) - (##car _%e174170174206%_)))) + (##car _%e177733177769%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174172174211%_)) - (_%__kont177250177251%_ - _%hd174171174209%_ - _%hd174168174201%_ - _%hd174098174358%_) - (let () (declare (not safe)) (_%g174088174177%_))))) - (let () (declare (not safe)) (_%g174088174177%_))))) + (gx#stx-null? _%tl177735177774%_)) + (_%__kont180794180795%_ + _%hd177734177772%_ + _%hd177731177764%_ + _%hd177661177921%_) + (let () (declare (not safe)) (_%g177651177740%_))))) + (let () (declare (not safe)) (_%g177651177740%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g174088174177%_)))) + (_%g177651177740%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174114174400%_)) + (gx#stx-null? _%tl177677177963%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174099174360%_)) - (let ((_%e174152174295%_ + _%tl177662177923%_)) + (let ((_%e177715177858%_ (let () (declare (not safe)) (gx#stx-e - _%tl174099174360%_)))) - (let ((_%tl174154174300%_ + _%tl177662177923%_)))) + (let ((_%tl177717177863%_ (let () (declare (not safe)) - (##cdr _%e174152174295%_))) - (_%hd174153174298%_ + (##cdr _%e177715177858%_))) + (_%hd177716177861%_ (let () (declare (not safe)) - (##car _%e174152174295%_)))) + (##car _%e177715177858%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174154174300%_)) - (let ((_%e174155174303%_ + _%tl177717177863%_)) + (let ((_%e177718177866%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl174154174300%_)))) - (let ((_%tl174157174308%_ - (let () (declare (not safe)) (##cdr _%e174155174303%_))) - (_%hd174156174306%_ + (gx#stx-e _%tl177717177863%_)))) + (let ((_%tl177720177871%_ + (let () (declare (not safe)) (##cdr _%e177718177866%_))) + (_%hd177719177869%_ (let () (declare (not safe)) - (##car _%e174155174303%_)))) + (##car _%e177718177866%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174157174308%_)) - (_%__match177405177406%_ - _%e174094174347%_ - _%hd174095174350%_ - _%tl174096174352%_ - _%e174097174355%_ - _%hd174098174358%_ - _%tl174099174360%_ - _%e174100174363%_ - _%hd174101174366%_ - _%tl174102174368%_ - _%e174103174371%_ - _%hd174104174374%_ - _%tl174105174376%_ - _%e174106174379%_ - _%hd174107174382%_ - _%tl174108174384%_ - _%e174109174387%_ - _%hd174110174390%_ - _%tl174111174392%_ - _%e174112174395%_ - _%hd174113174398%_ - _%tl174114174400%_ - _%e174152174295%_ - _%hd174153174298%_ - _%tl174154174300%_ - _%e174155174303%_ - _%hd174156174306%_ - _%tl174157174308%_) - (let () (declare (not safe)) (_%g174088174177%_))))) - (let () (declare (not safe)) (_%g174088174177%_))))) + (gx#stx-null? _%tl177720177871%_)) + (_%__match180949180950%_ + _%e177657177910%_ + _%hd177658177913%_ + _%tl177659177915%_ + _%e177660177918%_ + _%hd177661177921%_ + _%tl177662177923%_ + _%e177663177926%_ + _%hd177664177929%_ + _%tl177665177931%_ + _%e177666177934%_ + _%hd177667177937%_ + _%tl177668177939%_ + _%e177669177942%_ + _%hd177670177945%_ + _%tl177671177947%_ + _%e177672177950%_ + _%hd177673177953%_ + _%tl177674177955%_ + _%e177675177958%_ + _%hd177676177961%_ + _%tl177677177963%_ + _%e177715177858%_ + _%hd177716177861%_ + _%tl177717177863%_ + _%e177718177866%_ + _%hd177719177869%_ + _%tl177720177871%_) + (let () (declare (not safe)) (_%g177651177740%_))))) + (let () (declare (not safe)) (_%g177651177740%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g174088174177%_))) + (_%g177651177740%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174099174360%_)) - (let ((_%e174167174198%_ + _%tl177662177923%_)) + (let ((_%e177730177761%_ (let () (declare (not safe)) (gx#stx-e - _%tl174099174360%_)))) - (let ((_%tl174169174203%_ + _%tl177662177923%_)))) + (let ((_%tl177732177766%_ (let () (declare (not safe)) - (##cdr _%e174167174198%_))) - (_%hd174168174201%_ + (##cdr _%e177730177761%_))) + (_%hd177731177764%_ (let () (declare (not safe)) - (##car _%e174167174198%_)))) + (##car _%e177730177761%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174169174203%_)) - (let ((_%e174170174206%_ + _%tl177732177766%_)) + (let ((_%e177733177769%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl174169174203%_)))) - (let ((_%tl174172174211%_ - (let () (declare (not safe)) (##cdr _%e174170174206%_))) - (_%hd174171174209%_ + (gx#stx-e _%tl177732177766%_)))) + (let ((_%tl177735177774%_ + (let () (declare (not safe)) (##cdr _%e177733177769%_))) + (_%hd177734177772%_ (let () (declare (not safe)) - (##car _%e174170174206%_)))) + (##car _%e177733177769%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174172174211%_)) - (_%__kont177250177251%_ - _%hd174171174209%_ - _%hd174168174201%_ - _%hd174098174358%_) - (let () (declare (not safe)) (_%g174088174177%_))))) - (let () (declare (not safe)) (_%g174088174177%_))))) + (gx#stx-null? _%tl177735177774%_)) + (_%__kont180794180795%_ + _%hd177734177772%_ + _%hd177731177764%_ + _%hd177661177921%_) + (let () (declare (not safe)) (_%g177651177740%_))))) + (let () (declare (not safe)) (_%g177651177740%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g174088174177%_))))))) + (_%g177651177740%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174114174400%_)) + (gx#stx-null? _%tl177677177963%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174099174360%_)) - (let ((_%e174152174295%_ + (gx#stx-pair? _%tl177662177923%_)) + (let ((_%e177715177858%_ (let () (declare (not safe)) - (gx#stx-e _%tl174099174360%_)))) - (let ((_%tl174154174300%_ + (gx#stx-e _%tl177662177923%_)))) + (let ((_%tl177717177863%_ (let () (declare (not safe)) - (##cdr _%e174152174295%_))) - (_%hd174153174298%_ + (##cdr _%e177715177858%_))) + (_%hd177716177861%_ (let () (declare (not safe)) - (##car _%e174152174295%_)))) + (##car _%e177715177858%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174154174300%_)) - (let ((_%e174155174303%_ + _%tl177717177863%_)) + (let ((_%e177718177866%_ (let () (declare (not safe)) (gx#stx-e - _%tl174154174300%_)))) - (let ((_%tl174157174308%_ + _%tl177717177863%_)))) + (let ((_%tl177720177871%_ (let () (declare (not safe)) - (##cdr _%e174155174303%_))) - (_%hd174156174306%_ + (##cdr _%e177718177866%_))) + (_%hd177719177869%_ (let () (declare (not safe)) - (##car _%e174155174303%_)))) + (##car _%e177718177866%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174157174308%_)) - (_%__match177405177406%_ - _%e174094174347%_ - _%hd174095174350%_ - _%tl174096174352%_ - _%e174097174355%_ - _%hd174098174358%_ - _%tl174099174360%_ - _%e174100174363%_ - _%hd174101174366%_ - _%tl174102174368%_ - _%e174103174371%_ - _%hd174104174374%_ - _%tl174105174376%_ - _%e174106174379%_ - _%hd174107174382%_ - _%tl174108174384%_ - _%e174109174387%_ - _%hd174110174390%_ - _%tl174111174392%_ - _%e174112174395%_ - _%hd174113174398%_ - _%tl174114174400%_ - _%e174152174295%_ - _%hd174153174298%_ - _%tl174154174300%_ - _%e174155174303%_ - _%hd174156174306%_ - _%tl174157174308%_) + _%tl177720177871%_)) + (_%__match180949180950%_ + _%e177657177910%_ + _%hd177658177913%_ + _%tl177659177915%_ + _%e177660177918%_ + _%hd177661177921%_ + _%tl177662177923%_ + _%e177663177926%_ + _%hd177664177929%_ + _%tl177665177931%_ + _%e177666177934%_ + _%hd177667177937%_ + _%tl177668177939%_ + _%e177669177942%_ + _%hd177670177945%_ + _%tl177671177947%_ + _%e177672177950%_ + _%hd177673177953%_ + _%tl177674177955%_ + _%e177675177958%_ + _%hd177676177961%_ + _%tl177677177963%_ + _%e177715177858%_ + _%hd177716177861%_ + _%tl177717177863%_ + _%e177718177866%_ + _%hd177719177869%_ + _%tl177720177871%_) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_))) + (_%g177651177740%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174099174360%_)) - (let ((_%e174167174198%_ + (gx#stx-pair? _%tl177662177923%_)) + (let ((_%e177730177761%_ (let () (declare (not safe)) - (gx#stx-e _%tl174099174360%_)))) - (let ((_%tl174169174203%_ + (gx#stx-e _%tl177662177923%_)))) + (let ((_%tl177732177766%_ (let () (declare (not safe)) - (##cdr _%e174167174198%_))) - (_%hd174168174201%_ + (##cdr _%e177730177761%_))) + (_%hd177731177764%_ (let () (declare (not safe)) - (##car _%e174167174198%_)))) + (##car _%e177730177761%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174169174203%_)) - (let ((_%e174170174206%_ + _%tl177732177766%_)) + (let ((_%e177733177769%_ (let () (declare (not safe)) (gx#stx-e - _%tl174169174203%_)))) - (let ((_%tl174172174211%_ + _%tl177732177766%_)))) + (let ((_%tl177735177774%_ (let () (declare (not safe)) - (##cdr _%e174170174206%_))) - (_%hd174171174209%_ + (##cdr _%e177733177769%_))) + (_%hd177734177772%_ (let () (declare (not safe)) - (##car _%e174170174206%_)))) + (##car _%e177733177769%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174172174211%_)) - (_%__kont177250177251%_ - _%hd174171174209%_ - _%hd174168174201%_ - _%hd174098174358%_) + _%tl177735177774%_)) + (_%__kont180794180795%_ + _%hd177734177772%_ + _%hd177731177764%_ + _%hd177661177921%_) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174114174400%_)) + (gx#stx-null? _%tl177677177963%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174099174360%_)) - (let ((_%e174152174295%_ + (gx#stx-pair? _%tl177662177923%_)) + (let ((_%e177715177858%_ (let () (declare (not safe)) - (gx#stx-e _%tl174099174360%_)))) - (let ((_%tl174154174300%_ + (gx#stx-e _%tl177662177923%_)))) + (let ((_%tl177717177863%_ (let () (declare (not safe)) - (##cdr _%e174152174295%_))) - (_%hd174153174298%_ + (##cdr _%e177715177858%_))) + (_%hd177716177861%_ (let () (declare (not safe)) - (##car _%e174152174295%_)))) + (##car _%e177715177858%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174154174300%_)) - (let ((_%e174155174303%_ + (gx#stx-pair? _%tl177717177863%_)) + (let ((_%e177718177866%_ (let () (declare (not safe)) (gx#stx-e - _%tl174154174300%_)))) - (let ((_%tl174157174308%_ + _%tl177717177863%_)))) + (let ((_%tl177720177871%_ (let () (declare (not safe)) - (##cdr _%e174155174303%_))) - (_%hd174156174306%_ + (##cdr _%e177718177866%_))) + (_%hd177719177869%_ (let () (declare (not safe)) - (##car _%e174155174303%_)))) + (##car _%e177718177866%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174157174308%_)) - (_%__match177405177406%_ - _%e174094174347%_ - _%hd174095174350%_ - _%tl174096174352%_ - _%e174097174355%_ - _%hd174098174358%_ - _%tl174099174360%_ - _%e174100174363%_ - _%hd174101174366%_ - _%tl174102174368%_ - _%e174103174371%_ - _%hd174104174374%_ - _%tl174105174376%_ - _%e174106174379%_ - _%hd174107174382%_ - _%tl174108174384%_ - _%e174109174387%_ - _%hd174110174390%_ - _%tl174111174392%_ - _%e174112174395%_ - _%hd174113174398%_ - _%tl174114174400%_ - _%e174152174295%_ - _%hd174153174298%_ - _%tl174154174300%_ - _%e174155174303%_ - _%hd174156174306%_ - _%tl174157174308%_) + _%tl177720177871%_)) + (_%__match180949180950%_ + _%e177657177910%_ + _%hd177658177913%_ + _%tl177659177915%_ + _%e177660177918%_ + _%hd177661177921%_ + _%tl177662177923%_ + _%e177663177926%_ + _%hd177664177929%_ + _%tl177665177931%_ + _%e177666177934%_ + _%hd177667177937%_ + _%tl177668177939%_ + _%e177669177942%_ + _%hd177670177945%_ + _%tl177671177947%_ + _%e177672177950%_ + _%hd177673177953%_ + _%tl177674177955%_ + _%e177675177958%_ + _%hd177676177961%_ + _%tl177677177963%_ + _%e177715177858%_ + _%hd177716177861%_ + _%tl177717177863%_ + _%e177718177866%_ + _%hd177719177869%_ + _%tl177720177871%_) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_))) + (_%g177651177740%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174099174360%_)) - (let ((_%e174167174198%_ + (gx#stx-pair? _%tl177662177923%_)) + (let ((_%e177730177761%_ (let () (declare (not safe)) - (gx#stx-e _%tl174099174360%_)))) - (let ((_%tl174169174203%_ + (gx#stx-e _%tl177662177923%_)))) + (let ((_%tl177732177766%_ (let () (declare (not safe)) - (##cdr _%e174167174198%_))) - (_%hd174168174201%_ + (##cdr _%e177730177761%_))) + (_%hd177731177764%_ (let () (declare (not safe)) - (##car _%e174167174198%_)))) + (##car _%e177730177761%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174169174203%_)) - (let ((_%e174170174206%_ + (gx#stx-pair? _%tl177732177766%_)) + (let ((_%e177733177769%_ (let () (declare (not safe)) (gx#stx-e - _%tl174169174203%_)))) - (let ((_%tl174172174211%_ + _%tl177732177766%_)))) + (let ((_%tl177735177774%_ (let () (declare (not safe)) - (##cdr _%e174170174206%_))) - (_%hd174171174209%_ + (##cdr _%e177733177769%_))) + (_%hd177734177772%_ (let () (declare (not safe)) - (##car _%e174170174206%_)))) + (##car _%e177733177769%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174172174211%_)) - (_%__kont177250177251%_ - _%hd174171174209%_ - _%hd174168174201%_ - _%hd174098174358%_) + _%tl177735177774%_)) + (_%__kont180794180795%_ + _%hd177734177772%_ + _%hd177731177764%_ + _%hd177661177921%_) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174114174400%_)) + (gx#stx-null? _%tl177677177963%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174099174360%_)) - (let ((_%e174152174295%_ + (gx#stx-pair? _%tl177662177923%_)) + (let ((_%e177715177858%_ (let () (declare (not safe)) - (gx#stx-e _%tl174099174360%_)))) - (let ((_%tl174154174300%_ + (gx#stx-e _%tl177662177923%_)))) + (let ((_%tl177717177863%_ (let () (declare (not safe)) - (##cdr _%e174152174295%_))) - (_%hd174153174298%_ + (##cdr _%e177715177858%_))) + (_%hd177716177861%_ (let () (declare (not safe)) - (##car _%e174152174295%_)))) + (##car _%e177715177858%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174154174300%_)) - (let ((_%e174155174303%_ + (gx#stx-pair? _%tl177717177863%_)) + (let ((_%e177718177866%_ (let () (declare (not safe)) - (gx#stx-e _%tl174154174300%_)))) - (let ((_%tl174157174308%_ + (gx#stx-e _%tl177717177863%_)))) + (let ((_%tl177720177871%_ (let () (declare (not safe)) - (##cdr _%e174155174303%_))) - (_%hd174156174306%_ + (##cdr _%e177718177866%_))) + (_%hd177719177869%_ (let () (declare (not safe)) - (##car _%e174155174303%_)))) + (##car _%e177718177866%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174157174308%_)) - (_%__match177405177406%_ - _%e174094174347%_ - _%hd174095174350%_ - _%tl174096174352%_ - _%e174097174355%_ - _%hd174098174358%_ - _%tl174099174360%_ - _%e174100174363%_ - _%hd174101174366%_ - _%tl174102174368%_ - _%e174103174371%_ - _%hd174104174374%_ - _%tl174105174376%_ - _%e174106174379%_ - _%hd174107174382%_ - _%tl174108174384%_ - _%e174109174387%_ - _%hd174110174390%_ - _%tl174111174392%_ - _%e174112174395%_ - _%hd174113174398%_ - _%tl174114174400%_ - _%e174152174295%_ - _%hd174153174298%_ - _%tl174154174300%_ - _%e174155174303%_ - _%hd174156174306%_ - _%tl174157174308%_) + _%tl177720177871%_)) + (_%__match180949180950%_ + _%e177657177910%_ + _%hd177658177913%_ + _%tl177659177915%_ + _%e177660177918%_ + _%hd177661177921%_ + _%tl177662177923%_ + _%e177663177926%_ + _%hd177664177929%_ + _%tl177665177931%_ + _%e177666177934%_ + _%hd177667177937%_ + _%tl177668177939%_ + _%e177669177942%_ + _%hd177670177945%_ + _%tl177671177947%_ + _%e177672177950%_ + _%hd177673177953%_ + _%tl177674177955%_ + _%e177675177958%_ + _%hd177676177961%_ + _%tl177677177963%_ + _%e177715177858%_ + _%hd177716177861%_ + _%tl177717177863%_ + _%e177718177866%_ + _%hd177719177869%_ + _%tl177720177871%_) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_))) + (_%g177651177740%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174099174360%_)) - (let ((_%e174167174198%_ + (gx#stx-pair? _%tl177662177923%_)) + (let ((_%e177730177761%_ (let () (declare (not safe)) - (gx#stx-e _%tl174099174360%_)))) - (let ((_%tl174169174203%_ + (gx#stx-e _%tl177662177923%_)))) + (let ((_%tl177732177766%_ (let () (declare (not safe)) - (##cdr _%e174167174198%_))) - (_%hd174168174201%_ + (##cdr _%e177730177761%_))) + (_%hd177731177764%_ (let () (declare (not safe)) - (##car _%e174167174198%_)))) + (##car _%e177730177761%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174169174203%_)) - (let ((_%e174170174206%_ + (gx#stx-pair? _%tl177732177766%_)) + (let ((_%e177733177769%_ (let () (declare (not safe)) - (gx#stx-e _%tl174169174203%_)))) - (let ((_%tl174172174211%_ + (gx#stx-e _%tl177732177766%_)))) + (let ((_%tl177735177774%_ (let () (declare (not safe)) - (##cdr _%e174170174206%_))) - (_%hd174171174209%_ + (##cdr _%e177733177769%_))) + (_%hd177734177772%_ (let () (declare (not safe)) - (##car _%e174170174206%_)))) + (##car _%e177733177769%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174172174211%_)) - (_%__kont177250177251%_ - _%hd174171174209%_ - _%hd174168174201%_ - _%hd174098174358%_) + _%tl177735177774%_)) + (_%__kont180794180795%_ + _%hd177734177772%_ + _%hd177731177764%_ + _%hd177661177921%_) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_))))))) + (_%g177651177740%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174114174400%_)) + (gx#stx-null? _%tl177677177963%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174099174360%_)) - (let ((_%e174152174295%_ + (gx#stx-pair? _%tl177662177923%_)) + (let ((_%e177715177858%_ (let () (declare (not safe)) - (gx#stx-e _%tl174099174360%_)))) - (let ((_%tl174154174300%_ + (gx#stx-e _%tl177662177923%_)))) + (let ((_%tl177717177863%_ (let () (declare (not safe)) - (##cdr _%e174152174295%_))) - (_%hd174153174298%_ + (##cdr _%e177715177858%_))) + (_%hd177716177861%_ (let () (declare (not safe)) - (##car _%e174152174295%_)))) + (##car _%e177715177858%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174154174300%_)) - (let ((_%e174155174303%_ + (gx#stx-pair? _%tl177717177863%_)) + (let ((_%e177718177866%_ (let () (declare (not safe)) - (gx#stx-e _%tl174154174300%_)))) - (let ((_%tl174157174308%_ + (gx#stx-e _%tl177717177863%_)))) + (let ((_%tl177720177871%_ (let () (declare (not safe)) - (##cdr _%e174155174303%_))) - (_%hd174156174306%_ + (##cdr _%e177718177866%_))) + (_%hd177719177869%_ (let () (declare (not safe)) - (##car _%e174155174303%_)))) + (##car _%e177718177866%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174157174308%_)) - (_%__match177405177406%_ - _%e174094174347%_ - _%hd174095174350%_ - _%tl174096174352%_ - _%e174097174355%_ - _%hd174098174358%_ - _%tl174099174360%_ - _%e174100174363%_ - _%hd174101174366%_ - _%tl174102174368%_ - _%e174103174371%_ - _%hd174104174374%_ - _%tl174105174376%_ - _%e174106174379%_ - _%hd174107174382%_ - _%tl174108174384%_ - _%e174109174387%_ - _%hd174110174390%_ - _%tl174111174392%_ - _%e174112174395%_ - _%hd174113174398%_ - _%tl174114174400%_ - _%e174152174295%_ - _%hd174153174298%_ - _%tl174154174300%_ - _%e174155174303%_ - _%hd174156174306%_ - _%tl174157174308%_) + (gx#stx-null? _%tl177720177871%_)) + (_%__match180949180950%_ + _%e177657177910%_ + _%hd177658177913%_ + _%tl177659177915%_ + _%e177660177918%_ + _%hd177661177921%_ + _%tl177662177923%_ + _%e177663177926%_ + _%hd177664177929%_ + _%tl177665177931%_ + _%e177666177934%_ + _%hd177667177937%_ + _%tl177668177939%_ + _%e177669177942%_ + _%hd177670177945%_ + _%tl177671177947%_ + _%e177672177950%_ + _%hd177673177953%_ + _%tl177674177955%_ + _%e177675177958%_ + _%hd177676177961%_ + _%tl177677177963%_ + _%e177715177858%_ + _%hd177716177861%_ + _%tl177717177863%_ + _%e177718177866%_ + _%hd177719177869%_ + _%tl177720177871%_) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_))))) - (let () (declare (not safe)) (_%g174088174177%_))) + (_%g177651177740%_))))) + (let () (declare (not safe)) (_%g177651177740%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174099174360%_)) - (let ((_%e174167174198%_ + (gx#stx-pair? _%tl177662177923%_)) + (let ((_%e177730177761%_ (let () (declare (not safe)) - (gx#stx-e _%tl174099174360%_)))) - (let ((_%tl174169174203%_ + (gx#stx-e _%tl177662177923%_)))) + (let ((_%tl177732177766%_ (let () (declare (not safe)) - (##cdr _%e174167174198%_))) - (_%hd174168174201%_ + (##cdr _%e177730177761%_))) + (_%hd177731177764%_ (let () (declare (not safe)) - (##car _%e174167174198%_)))) + (##car _%e177730177761%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174169174203%_)) - (let ((_%e174170174206%_ + (gx#stx-pair? _%tl177732177766%_)) + (let ((_%e177733177769%_ (let () (declare (not safe)) - (gx#stx-e _%tl174169174203%_)))) - (let ((_%tl174172174211%_ + (gx#stx-e _%tl177732177766%_)))) + (let ((_%tl177735177774%_ (let () (declare (not safe)) - (##cdr _%e174170174206%_))) - (_%hd174171174209%_ + (##cdr _%e177733177769%_))) + (_%hd177734177772%_ (let () (declare (not safe)) - (##car _%e174170174206%_)))) + (##car _%e177733177769%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174172174211%_)) - (_%__kont177250177251%_ - _%hd174171174209%_ - _%hd174168174201%_ - _%hd174098174358%_) + (gx#stx-null? _%tl177735177774%_)) + (_%__kont180794180795%_ + _%hd177734177772%_ + _%hd177731177764%_ + _%hd177661177921%_) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_))))) - (let () (declare (not safe)) (_%g174088174177%_))))))) + (_%g177651177740%_))))) + (let () (declare (not safe)) (_%g177651177740%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174099174360%_)) - (let ((_%e174167174198%_ + _%tl177662177923%_)) + (let ((_%e177730177761%_ (let () (declare (not safe)) (gx#stx-e - _%tl174099174360%_)))) - (let ((_%tl174169174203%_ + _%tl177662177923%_)))) + (let ((_%tl177732177766%_ (let () (declare (not safe)) - (##cdr _%e174167174198%_))) - (_%hd174168174201%_ + (##cdr _%e177730177761%_))) + (_%hd177731177764%_ (let () (declare (not safe)) - (##car _%e174167174198%_)))) + (##car _%e177730177761%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174169174203%_)) - (let ((_%e174170174206%_ + _%tl177732177766%_)) + (let ((_%e177733177769%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl174169174203%_)))) - (let ((_%tl174172174211%_ + (gx#stx-e _%tl177732177766%_)))) + (let ((_%tl177735177774%_ (let () (declare (not safe)) - (##cdr _%e174170174206%_))) - (_%hd174171174209%_ + (##cdr _%e177733177769%_))) + (_%hd177734177772%_ (let () (declare (not safe)) - (##car _%e174170174206%_)))) + (##car _%e177733177769%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174172174211%_)) - (_%__kont177250177251%_ - _%hd174171174209%_ - _%hd174168174201%_ - _%hd174098174358%_) - (let () (declare (not safe)) (_%g174088174177%_))))) - (let () (declare (not safe)) (_%g174088174177%_))))) + (gx#stx-null? _%tl177735177774%_)) + (_%__kont180794180795%_ + _%hd177734177772%_ + _%hd177731177764%_ + _%hd177661177921%_) + (let () (declare (not safe)) (_%g177651177740%_))))) + (let () (declare (not safe)) (_%g177651177740%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g174088174177%_)))) + (_%g177651177740%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174099174360%_)) - (let ((_%e174167174198%_ + _%tl177662177923%_)) + (let ((_%e177730177761%_ (let () (declare (not safe)) (gx#stx-e - _%tl174099174360%_)))) - (let ((_%tl174169174203%_ + _%tl177662177923%_)))) + (let ((_%tl177732177766%_ (let () (declare (not safe)) - (##cdr _%e174167174198%_))) - (_%hd174168174201%_ + (##cdr _%e177730177761%_))) + (_%hd177731177764%_ (let () (declare (not safe)) - (##car _%e174167174198%_)))) + (##car _%e177730177761%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174169174203%_)) - (let ((_%e174170174206%_ + _%tl177732177766%_)) + (let ((_%e177733177769%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl174169174203%_)))) - (let ((_%tl174172174211%_ - (let () (declare (not safe)) (##cdr _%e174170174206%_))) - (_%hd174171174209%_ + (gx#stx-e _%tl177732177766%_)))) + (let ((_%tl177735177774%_ + (let () (declare (not safe)) (##cdr _%e177733177769%_))) + (_%hd177734177772%_ (let () (declare (not safe)) - (##car _%e174170174206%_)))) + (##car _%e177733177769%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174172174211%_)) - (_%__kont177250177251%_ - _%hd174171174209%_ - _%hd174168174201%_ - _%hd174098174358%_) - (let () (declare (not safe)) (_%g174088174177%_))))) - (let () (declare (not safe)) (_%g174088174177%_))))) + (gx#stx-null? _%tl177735177774%_)) + (_%__kont180794180795%_ + _%hd177734177772%_ + _%hd177731177764%_ + _%hd177661177921%_) + (let () (declare (not safe)) (_%g177651177740%_))))) + (let () (declare (not safe)) (_%g177651177740%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g174088174177%_)))))) + (_%g177651177740%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174099174360%_)) - (let ((_%e174167174198%_ + (gx#stx-pair? _%tl177662177923%_)) + (let ((_%e177730177761%_ (let () (declare (not safe)) - (gx#stx-e _%tl174099174360%_)))) - (let ((_%tl174169174203%_ + (gx#stx-e _%tl177662177923%_)))) + (let ((_%tl177732177766%_ (let () (declare (not safe)) - (##cdr _%e174167174198%_))) - (_%hd174168174201%_ + (##cdr _%e177730177761%_))) + (_%hd177731177764%_ (let () (declare (not safe)) - (##car _%e174167174198%_)))) + (##car _%e177730177761%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174169174203%_)) - (let ((_%e174170174206%_ + _%tl177732177766%_)) + (let ((_%e177733177769%_ (let () (declare (not safe)) (gx#stx-e - _%tl174169174203%_)))) - (let ((_%tl174172174211%_ + _%tl177732177766%_)))) + (let ((_%tl177735177774%_ (let () (declare (not safe)) - (##cdr _%e174170174206%_))) - (_%hd174171174209%_ + (##cdr _%e177733177769%_))) + (_%hd177734177772%_ (let () (declare (not safe)) - (##car _%e174170174206%_)))) + (##car _%e177733177769%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174172174211%_)) - (_%__kont177250177251%_ - _%hd174171174209%_ - _%hd174168174201%_ - _%hd174098174358%_) + _%tl177735177774%_)) + (_%__kont180794180795%_ + _%hd177734177772%_ + _%hd177731177764%_ + _%hd177661177921%_) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_)))) + (_%g177651177740%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174099174360%_)) - (let ((_%e174167174198%_ + (gx#stx-pair? _%tl177662177923%_)) + (let ((_%e177730177761%_ (let () (declare (not safe)) - (gx#stx-e _%tl174099174360%_)))) - (let ((_%tl174169174203%_ + (gx#stx-e _%tl177662177923%_)))) + (let ((_%tl177732177766%_ (let () (declare (not safe)) - (##cdr _%e174167174198%_))) - (_%hd174168174201%_ + (##cdr _%e177730177761%_))) + (_%hd177731177764%_ (let () (declare (not safe)) - (##car _%e174167174198%_)))) + (##car _%e177730177761%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174169174203%_)) - (let ((_%e174170174206%_ + (gx#stx-pair? _%tl177732177766%_)) + (let ((_%e177733177769%_ (let () (declare (not safe)) (gx#stx-e - _%tl174169174203%_)))) - (let ((_%tl174172174211%_ + _%tl177732177766%_)))) + (let ((_%tl177735177774%_ (let () (declare (not safe)) - (##cdr _%e174170174206%_))) - (_%hd174171174209%_ + (##cdr _%e177733177769%_))) + (_%hd177734177772%_ (let () (declare (not safe)) - (##car _%e174170174206%_)))) + (##car _%e177733177769%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174172174211%_)) - (_%__kont177250177251%_ - _%hd174171174209%_ - _%hd174168174201%_ - _%hd174098174358%_) + _%tl177735177774%_)) + (_%__kont180794180795%_ + _%hd177734177772%_ + _%hd177731177764%_ + _%hd177661177921%_) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_)))) + (_%g177651177740%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174099174360%_)) - (let ((_%e174167174198%_ + (gx#stx-pair? _%tl177662177923%_)) + (let ((_%e177730177761%_ (let () (declare (not safe)) - (gx#stx-e _%tl174099174360%_)))) - (let ((_%tl174169174203%_ + (gx#stx-e _%tl177662177923%_)))) + (let ((_%tl177732177766%_ (let () (declare (not safe)) - (##cdr _%e174167174198%_))) - (_%hd174168174201%_ + (##cdr _%e177730177761%_))) + (_%hd177731177764%_ (let () (declare (not safe)) - (##car _%e174167174198%_)))) + (##car _%e177730177761%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174169174203%_)) - (let ((_%e174170174206%_ + (gx#stx-pair? _%tl177732177766%_)) + (let ((_%e177733177769%_ (let () (declare (not safe)) - (gx#stx-e _%tl174169174203%_)))) - (let ((_%tl174172174211%_ + (gx#stx-e _%tl177732177766%_)))) + (let ((_%tl177735177774%_ (let () (declare (not safe)) - (##cdr _%e174170174206%_))) - (_%hd174171174209%_ + (##cdr _%e177733177769%_))) + (_%hd177734177772%_ (let () (declare (not safe)) - (##car _%e174170174206%_)))) + (##car _%e177733177769%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174172174211%_)) - (_%__kont177250177251%_ - _%hd174171174209%_ - _%hd174168174201%_ - _%hd174098174358%_) + _%tl177735177774%_)) + (_%__kont180794180795%_ + _%hd177734177772%_ + _%hd177731177764%_ + _%hd177661177921%_) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_)))))) + (_%g177651177740%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174099174360%_)) - (let ((_%e174167174198%_ + (gx#stx-pair? _%tl177662177923%_)) + (let ((_%e177730177761%_ (let () (declare (not safe)) - (gx#stx-e _%tl174099174360%_)))) - (let ((_%tl174169174203%_ + (gx#stx-e _%tl177662177923%_)))) + (let ((_%tl177732177766%_ (let () (declare (not safe)) - (##cdr _%e174167174198%_))) - (_%hd174168174201%_ + (##cdr _%e177730177761%_))) + (_%hd177731177764%_ (let () (declare (not safe)) - (##car _%e174167174198%_)))) + (##car _%e177730177761%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174169174203%_)) - (let ((_%e174170174206%_ + (gx#stx-pair? _%tl177732177766%_)) + (let ((_%e177733177769%_ (let () (declare (not safe)) - (gx#stx-e _%tl174169174203%_)))) - (let ((_%tl174172174211%_ + (gx#stx-e _%tl177732177766%_)))) + (let ((_%tl177735177774%_ (let () (declare (not safe)) - (##cdr _%e174170174206%_))) - (_%hd174171174209%_ + (##cdr _%e177733177769%_))) + (_%hd177734177772%_ (let () (declare (not safe)) - (##car _%e174170174206%_)))) + (##car _%e177733177769%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174172174211%_)) - (_%__kont177250177251%_ - _%hd174171174209%_ - _%hd174168174201%_ - _%hd174098174358%_) + (gx#stx-null? _%tl177735177774%_)) + (_%__kont180794180795%_ + _%hd177734177772%_ + _%hd177731177764%_ + _%hd177661177921%_) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_))))) - (let () (declare (not safe)) (_%g174088174177%_)))))) + (_%g177651177740%_))))) + (let () (declare (not safe)) (_%g177651177740%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174099174360%_)) - (let ((_%e174167174198%_ + _%tl177662177923%_)) + (let ((_%e177730177761%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl174099174360%_)))) - (let ((_%tl174169174203%_ - (let () (declare (not safe)) (##cdr _%e174167174198%_))) - (_%hd174168174201%_ + (gx#stx-e _%tl177662177923%_)))) + (let ((_%tl177732177766%_ + (let () (declare (not safe)) (##cdr _%e177730177761%_))) + (_%hd177731177764%_ (let () (declare (not safe)) - (##car _%e174167174198%_)))) + (##car _%e177730177761%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174169174203%_)) - (let ((_%e174170174206%_ + (gx#stx-pair? _%tl177732177766%_)) + (let ((_%e177733177769%_ (let () (declare (not safe)) - (gx#stx-e _%tl174169174203%_)))) - (let ((_%tl174172174211%_ + (gx#stx-e _%tl177732177766%_)))) + (let ((_%tl177735177774%_ (let () (declare (not safe)) - (##cdr _%e174170174206%_))) - (_%hd174171174209%_ + (##cdr _%e177733177769%_))) + (_%hd177734177772%_ (let () (declare (not safe)) - (##car _%e174170174206%_)))) + (##car _%e177733177769%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174172174211%_)) - (_%__kont177250177251%_ - _%hd174171174209%_ - _%hd174168174201%_ - _%hd174098174358%_) + (gx#stx-null? _%tl177735177774%_)) + (_%__kont180794180795%_ + _%hd177734177772%_ + _%hd177731177764%_ + _%hd177661177921%_) (let () (declare (not safe)) - (_%g174088174177%_))))) - (let () (declare (not safe)) (_%g174088174177%_))))) - (let () (declare (not safe)) (_%g174088174177%_)))) + (_%g177651177740%_))))) + (let () (declare (not safe)) (_%g177651177740%_))))) + (let () (declare (not safe)) (_%g177651177740%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174099174360%_)) - (let ((_%e174167174198%_ + _%tl177662177923%_)) + (let ((_%e177730177761%_ (let () (declare (not safe)) (gx#stx-e - _%tl174099174360%_)))) - (let ((_%tl174169174203%_ + _%tl177662177923%_)))) + (let ((_%tl177732177766%_ (let () (declare (not safe)) - (##cdr _%e174167174198%_))) - (_%hd174168174201%_ + (##cdr _%e177730177761%_))) + (_%hd177731177764%_ (let () (declare (not safe)) - (##car _%e174167174198%_)))) + (##car _%e177730177761%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174169174203%_)) - (let ((_%e174170174206%_ + _%tl177732177766%_)) + (let ((_%e177733177769%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl174169174203%_)))) - (let ((_%tl174172174211%_ + (gx#stx-e _%tl177732177766%_)))) + (let ((_%tl177735177774%_ (let () (declare (not safe)) - (##cdr _%e174170174206%_))) - (_%hd174171174209%_ + (##cdr _%e177733177769%_))) + (_%hd177734177772%_ (let () (declare (not safe)) - (##car _%e174170174206%_)))) + (##car _%e177733177769%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174172174211%_)) - (_%__kont177250177251%_ - _%hd174171174209%_ - _%hd174168174201%_ - _%hd174098174358%_) - (let () (declare (not safe)) (_%g174088174177%_))))) - (let () (declare (not safe)) (_%g174088174177%_))))) + (gx#stx-null? _%tl177735177774%_)) + (_%__kont180794180795%_ + _%hd177734177772%_ + _%hd177731177764%_ + _%hd177661177921%_) + (let () (declare (not safe)) (_%g177651177740%_))))) + (let () (declare (not safe)) (_%g177651177740%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g174088174177%_)))) + (_%g177651177740%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174099174360%_)) - (let ((_%e174167174198%_ + _%tl177662177923%_)) + (let ((_%e177730177761%_ (let () (declare (not safe)) (gx#stx-e - _%tl174099174360%_)))) - (let ((_%tl174169174203%_ + _%tl177662177923%_)))) + (let ((_%tl177732177766%_ (let () (declare (not safe)) - (##cdr _%e174167174198%_))) - (_%hd174168174201%_ + (##cdr _%e177730177761%_))) + (_%hd177731177764%_ (let () (declare (not safe)) - (##car _%e174167174198%_)))) + (##car _%e177730177761%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174169174203%_)) - (let ((_%e174170174206%_ + _%tl177732177766%_)) + (let ((_%e177733177769%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl174169174203%_)))) - (let ((_%tl174172174211%_ - (let () (declare (not safe)) (##cdr _%e174170174206%_))) - (_%hd174171174209%_ + (gx#stx-e _%tl177732177766%_)))) + (let ((_%tl177735177774%_ + (let () (declare (not safe)) (##cdr _%e177733177769%_))) + (_%hd177734177772%_ (let () (declare (not safe)) - (##car _%e174170174206%_)))) + (##car _%e177733177769%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174172174211%_)) - (_%__kont177250177251%_ - _%hd174171174209%_ - _%hd174168174201%_ - _%hd174098174358%_) - (let () (declare (not safe)) (_%g174088174177%_))))) - (let () (declare (not safe)) (_%g174088174177%_))))) + (gx#stx-null? _%tl177735177774%_)) + (_%__kont180794180795%_ + _%hd177734177772%_ + _%hd177731177764%_ + _%hd177661177921%_) + (let () (declare (not safe)) (_%g177651177740%_))))) + (let () (declare (not safe)) (_%g177651177740%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g174088174177%_)))))) + (_%g177651177740%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174099174360%_)) - (let ((_%e174167174198%_ + (gx#stx-pair? _%tl177662177923%_)) + (let ((_%e177730177761%_ (let () (declare (not safe)) - (gx#stx-e _%tl174099174360%_)))) - (let ((_%tl174169174203%_ + (gx#stx-e _%tl177662177923%_)))) + (let ((_%tl177732177766%_ (let () (declare (not safe)) - (##cdr _%e174167174198%_))) - (_%hd174168174201%_ + (##cdr _%e177730177761%_))) + (_%hd177731177764%_ (let () (declare (not safe)) - (##car _%e174167174198%_)))) + (##car _%e177730177761%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174169174203%_)) - (let ((_%e174170174206%_ + _%tl177732177766%_)) + (let ((_%e177733177769%_ (let () (declare (not safe)) (gx#stx-e - _%tl174169174203%_)))) - (let ((_%tl174172174211%_ + _%tl177732177766%_)))) + (let ((_%tl177735177774%_ (let () (declare (not safe)) - (##cdr _%e174170174206%_))) - (_%hd174171174209%_ + (##cdr _%e177733177769%_))) + (_%hd177734177772%_ (let () (declare (not safe)) - (##car _%e174170174206%_)))) + (##car _%e177733177769%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174172174211%_)) - (_%__kont177250177251%_ - _%hd174171174209%_ - _%hd174168174201%_ - _%hd174098174358%_) + _%tl177735177774%_)) + (_%__kont180794180795%_ + _%hd177734177772%_ + _%hd177731177764%_ + _%hd177661177921%_) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_))))) + (_%g177651177740%_))))) (let () (declare (not safe)) - (_%g174088174177%_)))))) - (let () (declare (not safe)) (_%g174088174177%_))))) - (let () (declare (not safe)) (_%g174088174177%_)))))))) + (_%g177651177740%_)))))) + (let () (declare (not safe)) (_%g177651177740%_))))) + (let () (declare (not safe)) (_%g177651177740%_)))))))) (define gxc#refine-type-define-values% - (lambda (_%self173941%_ _%stx173942%_) - (let* ((_%__stx177434177435%_ _%stx173942%_) - (_%g173945173975%_ + (lambda (_%self177505%_ _%stx177506%_) + (let* ((_%__stx180978180979%_ _%stx177506%_) + (_%g177509177539%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx177434177435%_))))) - (let ((_%__kont177436177437%_ - (lambda (_%L174055%_ _%L174056%_) - (let ((_%sym174072%_ + _%__stx180978180979%_))))) + (let ((_%__kont180980180981%_ + (lambda (_%g177511177619%_ _%g177512177620%_) + (let ((_%sym177636%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L174056%_)))) - (if (let ((__tmp179825 + (gxc#identifier-symbol _%g177512177620%_)))) + (if (let ((__tmp183369 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp179825 _%sym174072%_)) + (hash-get __tmp183369 _%sym177636%_)) '#!void - (let ((_%type174073174075%_ - (gxc#apply-basic-expression-type _%L174055%_))) - (if _%type174073174075%_ - (let ((_%type174078%_ _%type174073174075%_)) + (let ((_%type177637177639%_ + (gxc#apply-basic-expression-type + _%g177511177619%_))) + (if _%type177637177639%_ + (let ((_%type177641%_ _%type177637177639%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type174078%_ + _%type177641%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym174072%_ - _%type174078%_)))) + _%sym177636%_ + _%type177641%_)))) '#f))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self173941%_ _%L174055%_))))) - (_%__kont177438177439%_ - (lambda (_%L174004%_) + (gxc#compile-e__1 _%self177505%_ _%g177511177619%_))))) + (_%__kont180982180983%_ + (lambda (_%g177525177568%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self173941%_ _%L174004%_))))) - (let ((_%__match177467177468%_ - (lambda (_%e173949174023%_ - _%hd173950174026%_ - _%tl173951174028%_ - _%e173952174031%_ - _%hd173953174034%_ - _%tl173954174036%_ - _%e173955174039%_ - _%hd173956174042%_ - _%tl173957174044%_ - _%e173958174047%_ - _%hd173959174050%_ - _%tl173960174052%_) - (let ((_%L174055%_ _%hd173959174050%_) - (_%L174056%_ _%hd173956174042%_)) + (gxc#compile-e__1 _%self177505%_ _%g177525177568%_))))) + (let ((_%__match181011181012%_ + (lambda (_%e177513177587%_ + _%hd177514177590%_ + _%tl177515177592%_ + _%e177516177595%_ + _%hd177517177598%_ + _%tl177518177600%_ + _%e177519177603%_ + _%hd177520177606%_ + _%tl177521177608%_ + _%e177522177611%_ + _%hd177523177614%_ + _%tl177524177616%_) + (let ((_%g177511177619%_ _%hd177523177614%_) + (_%g177512177620%_ _%hd177520177606%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L174056%_)) - (_%__kont177436177437%_ _%L174055%_ _%L174056%_) - (_%__kont177438177439%_ _%hd173959174050%_)))))) + (gx#identifier? _%g177512177620%_)) + (_%__kont180980180981%_ + _%g177511177619%_ + _%g177512177620%_) + (_%__kont180982180983%_ _%hd177523177614%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx177434177435%_)) - (let ((_%e173949174023%_ + (gx#stx-pair? _%__stx180978180979%_)) + (let ((_%e177513177587%_ (let () (declare (not safe)) - (gx#stx-e _%__stx177434177435%_)))) - (let ((_%tl173951174028%_ + (gx#stx-e _%__stx180978180979%_)))) + (let ((_%tl177515177592%_ (let () (declare (not safe)) - (##cdr _%e173949174023%_))) - (_%hd173950174026%_ + (##cdr _%e177513177587%_))) + (_%hd177514177590%_ (let () (declare (not safe)) - (##car _%e173949174023%_)))) + (##car _%e177513177587%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173951174028%_)) - (let ((_%e173952174031%_ + (gx#stx-pair? _%tl177515177592%_)) + (let ((_%e177516177595%_ (let () (declare (not safe)) - (gx#stx-e _%tl173951174028%_)))) - (let ((_%tl173954174036%_ + (gx#stx-e _%tl177515177592%_)))) + (let ((_%tl177518177600%_ (let () (declare (not safe)) - (##cdr _%e173952174031%_))) - (_%hd173953174034%_ + (##cdr _%e177516177595%_))) + (_%hd177517177598%_ (let () (declare (not safe)) - (##car _%e173952174031%_)))) + (##car _%e177516177595%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173953174034%_)) - (let ((_%e173955174039%_ + (gx#stx-pair? _%hd177517177598%_)) + (let ((_%e177519177603%_ (let () (declare (not safe)) - (gx#stx-e _%hd173953174034%_)))) - (let ((_%tl173957174044%_ + (gx#stx-e _%hd177517177598%_)))) + (let ((_%tl177521177608%_ (let () (declare (not safe)) - (##cdr _%e173955174039%_))) - (_%hd173956174042%_ + (##cdr _%e177519177603%_))) + (_%hd177520177606%_ (let () (declare (not safe)) - (##car _%e173955174039%_)))) + (##car _%e177519177603%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173957174044%_)) + (gx#stx-null? _%tl177521177608%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173954174036%_)) - (let ((_%e173958174047%_ + _%tl177518177600%_)) + (let ((_%e177522177611%_ (let () (declare (not safe)) (gx#stx-e - _%tl173954174036%_)))) - (let ((_%tl173960174052%_ + _%tl177518177600%_)))) + (let ((_%tl177524177616%_ (let () (declare (not safe)) - (##cdr _%e173958174047%_))) - (_%hd173959174050%_ + (##cdr _%e177522177611%_))) + (_%hd177523177614%_ (let () (declare (not safe)) - (##car _%e173958174047%_)))) + (##car _%e177522177611%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173960174052%_)) - (_%__match177467177468%_ - _%e173949174023%_ - _%hd173950174026%_ - _%tl173951174028%_ - _%e173952174031%_ - _%hd173953174034%_ - _%tl173954174036%_ - _%e173955174039%_ - _%hd173956174042%_ - _%tl173957174044%_ - _%e173958174047%_ - _%hd173959174050%_ - _%tl173960174052%_) + _%tl177524177616%_)) + (_%__match181011181012%_ + _%e177513177587%_ + _%hd177514177590%_ + _%tl177515177592%_ + _%e177516177595%_ + _%hd177517177598%_ + _%tl177518177600%_ + _%e177519177603%_ + _%hd177520177606%_ + _%tl177521177608%_ + _%e177522177611%_ + _%hd177523177614%_ + _%tl177524177616%_) (let () (declare (not safe)) - (_%g173945173975%_))))) + (_%g177509177539%_))))) (let () (declare (not safe)) - (_%g173945173975%_))) + (_%g177509177539%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173954174036%_)) - (let ((_%e173968173996%_ + _%tl177518177600%_)) + (let ((_%e177532177560%_ (let () (declare (not safe)) (gx#stx-e - _%tl173954174036%_)))) - (let ((_%tl173970174001%_ + _%tl177518177600%_)))) + (let ((_%tl177534177565%_ (let () (declare (not safe)) - (##cdr _%e173968173996%_))) - (_%hd173969173999%_ + (##cdr _%e177532177560%_))) + (_%hd177533177563%_ (let () (declare (not safe)) - (##car _%e173968173996%_)))) + (##car _%e177532177560%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173970174001%_)) - (_%__kont177438177439%_ - _%hd173969173999%_) + _%tl177534177565%_)) + (_%__kont180982180983%_ + _%hd177533177563%_) (let () (declare (not safe)) - (_%g173945173975%_))))) + (_%g177509177539%_))))) (let () (declare (not safe)) - (_%g173945173975%_)))))) + (_%g177509177539%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173954174036%_)) - (let ((_%e173968173996%_ + (gx#stx-pair? _%tl177518177600%_)) + (let ((_%e177532177560%_ (let () (declare (not safe)) - (gx#stx-e _%tl173954174036%_)))) - (let ((_%tl173970174001%_ + (gx#stx-e _%tl177518177600%_)))) + (let ((_%tl177534177565%_ (let () (declare (not safe)) - (##cdr _%e173968173996%_))) - (_%hd173969173999%_ + (##cdr _%e177532177560%_))) + (_%hd177533177563%_ (let () (declare (not safe)) - (##car _%e173968173996%_)))) + (##car _%e177532177560%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173970174001%_)) - (_%__kont177438177439%_ - _%hd173969173999%_) + _%tl177534177565%_)) + (_%__kont180982180983%_ + _%hd177533177563%_) (let () (declare (not safe)) - (_%g173945173975%_))))) + (_%g177509177539%_))))) (let () (declare (not safe)) - (_%g173945173975%_)))))) - (let () (declare (not safe)) (_%g173945173975%_))))) - (let () (declare (not safe)) (_%g173945173975%_)))))))) + (_%g177509177539%_)))))) + (let () (declare (not safe)) (_%g177509177539%_))))) + (let () (declare (not safe)) (_%g177509177539%_)))))))) (define gxc#refine-type-let-values% - (lambda (_%self173713%_ _%stx173714%_) - (letrec ((_%collect-e173716%_ - (lambda (_%hd173885%_ _%expr173886%_) - (let* ((_%__stx177490177491%_ _%hd173885%_) - (_%g173889173899%_ + (lambda (_%self177282%_ _%stx177283%_) + (letrec ((_%collect-e177285%_ + (lambda (_%hd177450%_ _%expr177451%_) + (let* ((_%__stx181034181035%_ _%hd177450%_) + (_%g177454177464%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx177490177491%_))))) - (let ((_%__kont177492177493%_ - (lambda (_%L173919%_) - (let ((_%sym173930%_ + _%__stx181034181035%_))))) + (let ((_%__kont181036181037%_ + (lambda (_%g177456177484%_) + (let ((_%sym177495%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L173919%_)))) - (if (let ((__tmp179826 + (gxc#identifier-symbol + _%g177456177484%_)))) + (if (let ((__tmp183370 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp179826 _%sym173930%_)) + (hash-get __tmp183370 _%sym177495%_)) '#!void - (let ((_%type173931173933%_ + (let ((_%type177496177498%_ (gxc#apply-basic-expression-type - _%expr173886%_))) - (if _%type173931173933%_ - (let ((_%type173936%_ - _%type173931173933%_)) + _%expr177451%_))) + (if _%type177496177498%_ + (let ((_%type177500%_ + _%type177496177498%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type173936%_ + _%type177500%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym173930%_ - _%type173936%_ + _%sym177495%_ + _%type177500%_ '#t)))) '#f)))))) - (_%__kont177494177495%_ (lambda () '#!void))) - (let ((_%__match177503177504%_ - (lambda (_%e173892173911%_ - _%hd173893173914%_ - _%tl173894173916%_) - (let ((_%L173919%_ _%hd173893173914%_)) + (_%__kont181038181039%_ (lambda () '#!void))) + (let ((_%__match181047181048%_ + (lambda (_%e177457177476%_ + _%hd177458177479%_ + _%tl177459177481%_) + (let ((_%g177456177484%_ _%hd177458177479%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L173919%_)) - (_%__kont177492177493%_ _%L173919%_) - (_%__kont177494177495%_)))))) + (gx#identifier? _%g177456177484%_)) + (_%__kont181036181037%_ + _%g177456177484%_) + (_%__kont181038181039%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx177490177491%_)) - (let ((_%e173892173911%_ + (gx#stx-pair? _%__stx181034181035%_)) + (let ((_%e177457177476%_ (let () (declare (not safe)) - (gx#stx-e _%__stx177490177491%_)))) - (let ((_%tl173894173916%_ + (gx#stx-e _%__stx181034181035%_)))) + (let ((_%tl177459177481%_ (let () (declare (not safe)) - (##cdr _%e173892173911%_))) - (_%hd173893173914%_ + (##cdr _%e177457177476%_))) + (_%hd177458177479%_ (let () (declare (not safe)) - (##car _%e173892173911%_)))) + (##car _%e177457177476%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173894173916%_)) - (_%__match177503177504%_ - _%e173892173911%_ - _%hd173893173914%_ - _%tl173894173916%_) - (_%__kont177494177495%_)))) - (_%__kont177494177495%_)))))))) - (let* ((_%g173718173753%_ - (lambda (_%g173719173750%_) + (gx#stx-null? _%tl177459177481%_)) + (_%__match181047181048%_ + _%e177457177476%_ + _%hd177458177479%_ + _%tl177459177481%_) + (_%__kont181038181039%_)))) + (_%__kont181038181039%_)))))))) + (let* ((_%g177287177322%_ + (lambda (_%g177288177319%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173719173750%_)))) - (_%g173717173882%_ - (lambda (_%g173719173756%_) + _%g177288177319%_)))) + (_%g177286177447%_ + (lambda (_%g177288177325%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g173719173756%_)) - (let ((_%e173723173758%_ + (gx#stx-pair? _%g177288177325%_)) + (let ((_%e177292177327%_ (let () (declare (not safe)) - (gx#stx-e _%g173719173756%_)))) - (let ((_%hd173724173761%_ + (gx#stx-e _%g177288177325%_)))) + (let ((_%hd177293177330%_ (let () (declare (not safe)) - (##car _%e173723173758%_))) - (_%tl173725173763%_ + (##car _%e177292177327%_))) + (_%tl177294177332%_ (let () (declare (not safe)) - (##cdr _%e173723173758%_)))) + (##cdr _%e177292177327%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173725173763%_)) - (let ((_%e173726173766%_ + (gx#stx-pair? _%tl177294177332%_)) + (let ((_%e177295177335%_ (let () (declare (not safe)) - (gx#stx-e _%tl173725173763%_)))) - (let ((_%hd173727173769%_ + (gx#stx-e _%tl177294177332%_)))) + (let ((_%hd177296177338%_ (let () (declare (not safe)) - (##car _%e173726173766%_))) - (_%tl173728173771%_ + (##car _%e177295177335%_))) + (_%tl177297177340%_ (let () (declare (not safe)) - (##cdr _%e173726173766%_)))) + (##cdr _%e177295177335%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd173727173769%_)) - (let ((_g179827_ + _%hd177296177338%_)) + (let ((_g183371_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd173727173769%_ + _%hd177296177338%_ '0)))) (begin - (let ((_g179828_ + (let ((_g183372_ (let () (declare (not safe)) - (if (##values? _g179827_) + (if (##values? _g183371_) (##values-length - _g179827_) + _g183371_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g179828_ 2))) + (##fx= _g183372_ 2))) (error "Context expects 2 values" - _g179828_))) - (let ((_%target173729173774%_ + _g183372_))) + (let ((_%target177298177343%_ (let () (declare (not safe)) (##values-ref - _g179827_ + _g183371_ 0))) - (_%tl173731173776%_ + (_%tl177300177345%_ (let () (declare (not safe)) (##values-ref - _g179827_ + _g183371_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173731173776%_)) - (letrec ((_%loop173732173779%_ - (lambda (_%hd173730173782%_ + _%tl177300177345%_)) + (letrec ((_%loop177301177348%_ + (lambda (_%hd177299177351%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr173736173784%_ - _%hd173737173786%_) + _%expr177305177353%_ + _%hd177306177354%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173730173782%_)) - (let ((_%e173733173789%_ + (gx#stx-pair? _%hd177299177351%_)) + (let ((_%e177302177356%_ (let () (declare (not safe)) - (gx#stx-e _%hd173730173782%_)))) - (let ((_%lp-hd173734173792%_ + (gx#stx-e _%hd177299177351%_)))) + (let ((_%lp-hd177303177359%_ (let () (declare (not safe)) - (##car _%e173733173789%_))) - (_%lp-tl173735173794%_ + (##car _%e177302177356%_))) + (_%lp-tl177304177361%_ (let () (declare (not safe)) - (##cdr _%e173733173789%_)))) + (##cdr _%e177302177356%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd173734173792%_)) - (let ((_%e173740173797%_ + (gx#stx-pair? _%lp-hd177303177359%_)) + (let ((_%e177309177364%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd173734173792%_)))) - (let ((_%hd173741173800%_ + (gx#stx-e _%lp-hd177303177359%_)))) + (let ((_%hd177310177367%_ (let () (declare (not safe)) - (##car _%e173740173797%_))) - (_%tl173742173802%_ + (##car _%e177309177364%_))) + (_%tl177311177369%_ (let () (declare (not safe)) - (##cdr _%e173740173797%_)))) + (##cdr _%e177309177364%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173742173802%_)) - (let ((_%e173743173805%_ + (gx#stx-pair? _%tl177311177369%_)) + (let ((_%e177312177372%_ (let () (declare (not safe)) (gx#stx-e - _%tl173742173802%_)))) - (let ((_%hd173744173808%_ + _%tl177311177369%_)))) + (let ((_%hd177313177375%_ (let () (declare (not safe)) - (##car _%e173743173805%_))) - (_%tl173745173810%_ + (##car _%e177312177372%_))) + (_%tl177314177377%_ (let () (declare (not safe)) - (##cdr _%e173743173805%_)))) + (##cdr _%e177312177372%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173745173810%_)) - (_%loop173732173779%_ - _%lp-tl173735173794%_ - (cons _%hd173744173808%_ - _%expr173736173784%_) - (cons _%hd173741173800%_ - _%hd173737173786%_)) - (_%g173718173753%_ - _%g173719173756%_)))) - (_%g173718173753%_ - _%g173719173756%_)))) - (_%g173718173753%_ _%g173719173756%_)))) - (let ((_%expr173738173813%_ - (reverse _%expr173736173784%_)) - (_%hd173739173815%_ - (reverse _%hd173737173786%_))) + _%tl177314177377%_)) + (_%loop177301177348%_ + _%lp-tl177304177361%_ + (cons _%hd177313177375%_ + _%expr177305177353%_) + (cons _%hd177310177367%_ + _%hd177306177354%_)) + (_%g177287177322%_ + _%g177288177325%_)))) + (_%g177287177322%_ + _%g177288177325%_)))) + (_%g177287177322%_ _%g177288177325%_)))) + (let ((_%expr177307177380%_ + (reverse _%expr177305177353%_)) + (_%hd177308177381%_ + (reverse _%hd177306177354%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173728173771%_)) - (let ((_%e173746173818%_ + (gx#stx-pair? _%tl177297177340%_)) + (let ((_%e177315177383%_ (let () (declare (not safe)) - (gx#stx-e _%tl173728173771%_)))) - (let ((_%hd173747173821%_ + (gx#stx-e _%tl177297177340%_)))) + (let ((_%hd177316177386%_ (let () (declare (not safe)) - (##car _%e173746173818%_))) - (_%tl173748173823%_ + (##car _%e177315177383%_))) + (_%tl177317177388%_ (let () (declare (not safe)) - (##cdr _%e173746173818%_)))) + (##cdr _%e177315177383%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173748173823%_)) - ((lambda (_%L173826%_ - _%L173827%_ - _%L173828%_) + (gx#stx-null? _%tl177317177388%_)) + ((lambda (_%g177289177391%_ + _%g177290177392%_ + _%g177291177393%_) (for-each - _%collect-e173716%_ - (let ((__tmp179829 - (lambda (_%g173848173851%_ - _%g173849173853%_) - (cons _%g173848173851%_ - _%g173849173853%_)))) + _%collect-e177285%_ + (let ((__tmp183373 + (lambda (_%g177413177416%_ + _%g177414177418%_) + (cons _%g177413177416%_ + _%g177414177418%_)))) (declare (not safe)) (__foldr1 - __tmp179829 + __tmp183373 '() - _%L173828%_)) - (let ((__tmp179830 - (lambda (_%g173855173858%_ - _%g173856173860%_) - (cons _%g173855173858%_ - _%g173856173860%_)))) + _%g177291177393%_)) + (let ((__tmp183374 + (lambda (_%g177420177423%_ + _%g177421177425%_) + (cons _%g177420177423%_ + _%g177421177425%_)))) (declare (not safe)) (__foldr1 - __tmp179830 + __tmp183374 '() - _%L173827%_))) + _%g177290177392%_))) (for-each - (lambda (_%g173862173864%_) + (lambda (_%g177427177429%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self173713%_ - _%g173862173864%_))) - (let ((__tmp179831 - (lambda (_%g173866173869%_ - _%g173867173871%_) - (cons _%g173866173869%_ - _%g173867173871%_)))) + _%self177282%_ + _%g177427177429%_))) + (let ((__tmp183375 + (lambda (_%g177431177434%_ + _%g177432177436%_) + (cons _%g177431177434%_ + _%g177432177436%_)))) (declare (not safe)) (__foldr1 - __tmp179831 + __tmp183375 '() - _%L173827%_))) - (let ((__tmp179835 + _%g177290177392%_))) + (let ((__tmp183379 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self173713%_ - _%L173826%_)))) - (__tmp179832 - (let ((__tmp179833 - (let ((__tmp179834 - (lambda (_%g173874173877%_ + _%self177282%_ + _%g177289177391%_)))) + (__tmp183376 + (let ((__tmp183377 + (let ((__tmp183378 + (lambda (_%g177439177442%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g173875173879%_) - (cons _%g173874173877%_ _%g173875173879%_)))) + _%g177440177444%_) + (cons _%g177439177442%_ _%g177440177444%_)))) (declare (not safe)) - (__foldr1 __tmp179834 '() _%L173828%_)))) + (__foldr1 __tmp183378 '() _%g177291177393%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp179833)))) + __tmp183377)))) (declare (not safe)) (call-with-parameters__1 - __tmp179835 + __tmp183379 gxc#current-compile-local-env - __tmp179832))) - _%hd173747173821%_ - _%expr173738173813%_ - _%hd173739173815%_) - (_%g173718173753%_ - _%g173719173756%_)))) - (_%g173718173753%_ _%g173719173756%_))))))) + __tmp183376))) + _%hd177316177386%_ + _%expr177307177380%_ + _%hd177308177381%_) + (_%g177287177322%_ + _%g177288177325%_)))) + (_%g177287177322%_ _%g177288177325%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop173732173779%_ - _%target173729173774%_ + (_%loop177301177348%_ + _%target177298177343%_ '() '())) - (_%g173718173753%_ - _%g173719173756%_))))) - (_%g173718173753%_ - _%g173719173756%_)))) - (_%g173718173753%_ _%g173719173756%_)))) - (_%g173718173753%_ _%g173719173756%_))))) - (_%g173717173882%_ _%stx173714%_))))) + (_%g177287177322%_ + _%g177288177325%_))))) + (_%g177287177322%_ + _%g177288177325%_)))) + (_%g177287177322%_ _%g177288177325%_)))) + (_%g177287177322%_ _%g177288177325%_))))) + (_%g177286177447%_ _%stx177283%_))))) (define gxc#refine-type-letrec-values% - (lambda (_%self173485%_ _%stx173486%_) - (letrec ((_%collect-e173488%_ - (lambda (_%hd173657%_ _%expr173658%_) - (let* ((_%__stx177506177507%_ _%hd173657%_) - (_%g173661173671%_ + (lambda (_%self177059%_ _%stx177060%_) + (letrec ((_%collect-e177062%_ + (lambda (_%hd177227%_ _%expr177228%_) + (let* ((_%__stx181050181051%_ _%hd177227%_) + (_%g177231177241%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx177506177507%_))))) - (let ((_%__kont177508177509%_ - (lambda (_%L173691%_) - (let ((_%sym173702%_ + _%__stx181050181051%_))))) + (let ((_%__kont181052181053%_ + (lambda (_%g177233177261%_) + (let ((_%sym177272%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L173691%_)))) - (if (let ((__tmp179836 + (gxc#identifier-symbol + _%g177233177261%_)))) + (if (let ((__tmp183380 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp179836 _%sym173702%_)) + (hash-get __tmp183380 _%sym177272%_)) '#!void - (let ((_%type173703173705%_ + (let ((_%type177273177275%_ (gxc#apply-basic-expression-type - _%expr173658%_))) - (if _%type173703173705%_ - (let ((_%type173708%_ - _%type173703173705%_)) + _%expr177228%_))) + (if _%type177273177275%_ + (let ((_%type177277%_ + _%type177273177275%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type173708%_ + _%type177277%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym173702%_ - _%type173708%_ + _%sym177272%_ + _%type177277%_ '#t)))) '#f)))))) - (_%__kont177510177511%_ (lambda () '#!void))) - (let ((_%__match177519177520%_ - (lambda (_%e173664173683%_ - _%hd173665173686%_ - _%tl173666173688%_) - (let ((_%L173691%_ _%hd173665173686%_)) + (_%__kont181054181055%_ (lambda () '#!void))) + (let ((_%__match181063181064%_ + (lambda (_%e177234177253%_ + _%hd177235177256%_ + _%tl177236177258%_) + (let ((_%g177233177261%_ _%hd177235177256%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L173691%_)) - (_%__kont177508177509%_ _%L173691%_) - (_%__kont177510177511%_)))))) + (gx#identifier? _%g177233177261%_)) + (_%__kont181052181053%_ + _%g177233177261%_) + (_%__kont181054181055%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx177506177507%_)) - (let ((_%e173664173683%_ + (gx#stx-pair? _%__stx181050181051%_)) + (let ((_%e177234177253%_ (let () (declare (not safe)) - (gx#stx-e _%__stx177506177507%_)))) - (let ((_%tl173666173688%_ + (gx#stx-e _%__stx181050181051%_)))) + (let ((_%tl177236177258%_ (let () (declare (not safe)) - (##cdr _%e173664173683%_))) - (_%hd173665173686%_ + (##cdr _%e177234177253%_))) + (_%hd177235177256%_ (let () (declare (not safe)) - (##car _%e173664173683%_)))) + (##car _%e177234177253%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173666173688%_)) - (_%__match177519177520%_ - _%e173664173683%_ - _%hd173665173686%_ - _%tl173666173688%_) - (_%__kont177510177511%_)))) - (_%__kont177510177511%_)))))))) - (let* ((_%g173490173525%_ - (lambda (_%g173491173522%_) + (gx#stx-null? _%tl177236177258%_)) + (_%__match181063181064%_ + _%e177234177253%_ + _%hd177235177256%_ + _%tl177236177258%_) + (_%__kont181054181055%_)))) + (_%__kont181054181055%_)))))))) + (let* ((_%g177064177099%_ + (lambda (_%g177065177096%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173491173522%_)))) - (_%g173489173654%_ - (lambda (_%g173491173528%_) + _%g177065177096%_)))) + (_%g177063177224%_ + (lambda (_%g177065177102%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g173491173528%_)) - (let ((_%e173495173530%_ + (gx#stx-pair? _%g177065177102%_)) + (let ((_%e177069177104%_ (let () (declare (not safe)) - (gx#stx-e _%g173491173528%_)))) - (let ((_%hd173496173533%_ + (gx#stx-e _%g177065177102%_)))) + (let ((_%hd177070177107%_ (let () (declare (not safe)) - (##car _%e173495173530%_))) - (_%tl173497173535%_ + (##car _%e177069177104%_))) + (_%tl177071177109%_ (let () (declare (not safe)) - (##cdr _%e173495173530%_)))) + (##cdr _%e177069177104%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173497173535%_)) - (let ((_%e173498173538%_ + (gx#stx-pair? _%tl177071177109%_)) + (let ((_%e177072177112%_ (let () (declare (not safe)) - (gx#stx-e _%tl173497173535%_)))) - (let ((_%hd173499173541%_ + (gx#stx-e _%tl177071177109%_)))) + (let ((_%hd177073177115%_ (let () (declare (not safe)) - (##car _%e173498173538%_))) - (_%tl173500173543%_ + (##car _%e177072177112%_))) + (_%tl177074177117%_ (let () (declare (not safe)) - (##cdr _%e173498173538%_)))) + (##cdr _%e177072177112%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd173499173541%_)) - (let ((_g179837_ + _%hd177073177115%_)) + (let ((_g183381_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd173499173541%_ + _%hd177073177115%_ '0)))) (begin - (let ((_g179838_ + (let ((_g183382_ (let () (declare (not safe)) - (if (##values? _g179837_) + (if (##values? _g183381_) (##values-length - _g179837_) + _g183381_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g179838_ 2))) + (##fx= _g183382_ 2))) (error "Context expects 2 values" - _g179838_))) - (let ((_%target173501173546%_ + _g183382_))) + (let ((_%target177075177120%_ (let () (declare (not safe)) (##values-ref - _g179837_ + _g183381_ 0))) - (_%tl173503173548%_ + (_%tl177077177122%_ (let () (declare (not safe)) (##values-ref - _g179837_ + _g183381_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173503173548%_)) - (letrec ((_%loop173504173551%_ - (lambda (_%hd173502173554%_ + _%tl177077177122%_)) + (letrec ((_%loop177078177125%_ + (lambda (_%hd177076177128%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr173508173556%_ - _%hd173509173558%_) + _%expr177082177130%_ + _%hd177083177131%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173502173554%_)) - (let ((_%e173505173561%_ + (gx#stx-pair? _%hd177076177128%_)) + (let ((_%e177079177133%_ (let () (declare (not safe)) - (gx#stx-e _%hd173502173554%_)))) - (let ((_%lp-hd173506173564%_ + (gx#stx-e _%hd177076177128%_)))) + (let ((_%lp-hd177080177136%_ (let () (declare (not safe)) - (##car _%e173505173561%_))) - (_%lp-tl173507173566%_ + (##car _%e177079177133%_))) + (_%lp-tl177081177138%_ (let () (declare (not safe)) - (##cdr _%e173505173561%_)))) + (##cdr _%e177079177133%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd173506173564%_)) - (let ((_%e173512173569%_ + (gx#stx-pair? _%lp-hd177080177136%_)) + (let ((_%e177086177141%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd173506173564%_)))) - (let ((_%hd173513173572%_ + (gx#stx-e _%lp-hd177080177136%_)))) + (let ((_%hd177087177144%_ (let () (declare (not safe)) - (##car _%e173512173569%_))) - (_%tl173514173574%_ + (##car _%e177086177141%_))) + (_%tl177088177146%_ (let () (declare (not safe)) - (##cdr _%e173512173569%_)))) + (##cdr _%e177086177141%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173514173574%_)) - (let ((_%e173515173577%_ + (gx#stx-pair? _%tl177088177146%_)) + (let ((_%e177089177149%_ (let () (declare (not safe)) (gx#stx-e - _%tl173514173574%_)))) - (let ((_%hd173516173580%_ + _%tl177088177146%_)))) + (let ((_%hd177090177152%_ (let () (declare (not safe)) - (##car _%e173515173577%_))) - (_%tl173517173582%_ + (##car _%e177089177149%_))) + (_%tl177091177154%_ (let () (declare (not safe)) - (##cdr _%e173515173577%_)))) + (##cdr _%e177089177149%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173517173582%_)) - (_%loop173504173551%_ - _%lp-tl173507173566%_ - (cons _%hd173516173580%_ - _%expr173508173556%_) - (cons _%hd173513173572%_ - _%hd173509173558%_)) - (_%g173490173525%_ - _%g173491173528%_)))) - (_%g173490173525%_ - _%g173491173528%_)))) - (_%g173490173525%_ _%g173491173528%_)))) - (let ((_%expr173510173585%_ - (reverse _%expr173508173556%_)) - (_%hd173511173587%_ - (reverse _%hd173509173558%_))) + _%tl177091177154%_)) + (_%loop177078177125%_ + _%lp-tl177081177138%_ + (cons _%hd177090177152%_ + _%expr177082177130%_) + (cons _%hd177087177144%_ + _%hd177083177131%_)) + (_%g177064177099%_ + _%g177065177102%_)))) + (_%g177064177099%_ + _%g177065177102%_)))) + (_%g177064177099%_ _%g177065177102%_)))) + (let ((_%expr177084177157%_ + (reverse _%expr177082177130%_)) + (_%hd177085177158%_ + (reverse _%hd177083177131%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173500173543%_)) - (let ((_%e173518173590%_ + (gx#stx-pair? _%tl177074177117%_)) + (let ((_%e177092177160%_ (let () (declare (not safe)) - (gx#stx-e _%tl173500173543%_)))) - (let ((_%hd173519173593%_ + (gx#stx-e _%tl177074177117%_)))) + (let ((_%hd177093177163%_ (let () (declare (not safe)) - (##car _%e173518173590%_))) - (_%tl173520173595%_ + (##car _%e177092177160%_))) + (_%tl177094177165%_ (let () (declare (not safe)) - (##cdr _%e173518173590%_)))) + (##cdr _%e177092177160%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173520173595%_)) - ((lambda (_%L173598%_ - _%L173599%_ - _%L173600%_) - (let ((__tmp179842 + (gx#stx-null? _%tl177094177165%_)) + ((lambda (_%g177066177168%_ + _%g177067177169%_ + _%g177068177170%_) + (let ((__tmp183386 (lambda () (for-each - _%collect-e173488%_ - (let ((__tmp179843 - (lambda (_%g173621173624%_ + _%collect-e177062%_ + (let ((__tmp183387 + (lambda (_%g177191177194%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g173622173626%_) - (cons _%g173621173624%_ _%g173622173626%_)))) + _%g177192177196%_) + (cons _%g177191177194%_ _%g177192177196%_)))) (declare (not safe)) - (__foldr1 __tmp179843 '() _%L173600%_)) + (__foldr1 __tmp183387 '() _%g177068177170%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp179844 - (lambda (_%g173628173631%_ + (let ((__tmp183388 + (lambda (_%g177198177201%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g173629173633%_) - (cons _%g173628173631%_ _%g173629173633%_)))) + _%g177199177203%_) + (cons _%g177198177201%_ _%g177199177203%_)))) (declare (not safe)) - (__foldr1 __tmp179844 '() _%L173599%_))) + (__foldr1 __tmp183388 '() _%g177067177169%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g173635173637%_) + (lambda (_%g177205177207%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self173485%_ - _%g173635173637%_))) - (let ((__tmp179845 - (lambda (_%g173639173642%_ + _%self177059%_ + _%g177205177207%_))) + (let ((__tmp183389 + (lambda (_%g177209177212%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g173640173644%_) - (cons _%g173639173642%_ _%g173640173644%_)))) + _%g177210177214%_) + (cons _%g177209177212%_ _%g177210177214%_)))) (declare (not safe)) - (__foldr1 __tmp179845 '() _%L173599%_))) + (__foldr1 __tmp183389 '() _%g177067177169%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self173485%_ - _%L173598%_)))) - (__tmp179839 - (let ((__tmp179840 - (let ((__tmp179841 - (lambda (_%g173646173649%_ + _%self177059%_ + _%g177066177168%_)))) + (__tmp183383 + (let ((__tmp183384 + (let ((__tmp183385 + (lambda (_%g177216177219%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g173647173651%_) - (cons _%g173646173649%_ _%g173647173651%_)))) + _%g177217177221%_) + (cons _%g177216177219%_ _%g177217177221%_)))) (declare (not safe)) - (__foldr1 __tmp179841 '() _%L173600%_)))) + (__foldr1 __tmp183385 '() _%g177068177170%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp179840)))) + __tmp183384)))) (declare (not safe)) (call-with-parameters__1 - __tmp179842 + __tmp183386 gxc#current-compile-local-env - __tmp179839))) - _%hd173519173593%_ - _%expr173510173585%_ - _%hd173511173587%_) - (_%g173490173525%_ - _%g173491173528%_)))) - (_%g173490173525%_ _%g173491173528%_))))))) + __tmp183383))) + _%hd177093177163%_ + _%expr177084177157%_ + _%hd177085177158%_) + (_%g177064177099%_ + _%g177065177102%_)))) + (_%g177064177099%_ _%g177065177102%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop173504173551%_ - _%target173501173546%_ + (_%loop177078177125%_ + _%target177075177120%_ '() '())) - (_%g173490173525%_ - _%g173491173528%_))))) - (_%g173490173525%_ - _%g173491173528%_)))) - (_%g173490173525%_ _%g173491173528%_)))) - (_%g173490173525%_ _%g173491173528%_))))) - (_%g173489173654%_ _%stx173486%_))))) + (_%g177064177099%_ + _%g177065177102%_))))) + (_%g177064177099%_ + _%g177065177102%_)))) + (_%g177064177099%_ _%g177065177102%_)))) + (_%g177064177099%_ _%g177065177102%_))))) + (_%g177063177224%_ _%stx177060%_))))) (define gxc#refine-type-lambda% - (lambda (_%self173429%_ _%stx173430%_) - (let* ((_%g173432173446%_ - (lambda (_%g173433173443%_) + (lambda (_%self177003%_ _%stx177004%_) + (let* ((_%g177006177020%_ + (lambda (_%g177007177017%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173433173443%_)))) - (_%g173431173482%_ - (lambda (_%g173433173449%_) + _%g177007177017%_)))) + (_%g177005177056%_ + (lambda (_%g177007177023%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g173433173449%_)) - (let ((_%e173436173451%_ + (gx#stx-pair? _%g177007177023%_)) + (let ((_%e177010177025%_ (let () (declare (not safe)) - (gx#stx-e _%g173433173449%_)))) - (let ((_%hd173437173454%_ + (gx#stx-e _%g177007177023%_)))) + (let ((_%hd177011177028%_ (let () (declare (not safe)) - (##car _%e173436173451%_))) - (_%tl173438173456%_ + (##car _%e177010177025%_))) + (_%tl177012177030%_ (let () (declare (not safe)) - (##cdr _%e173436173451%_)))) + (##cdr _%e177010177025%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173438173456%_)) - (let ((_%e173439173459%_ + (gx#stx-pair? _%tl177012177030%_)) + (let ((_%e177013177033%_ (let () (declare (not safe)) - (gx#stx-e _%tl173438173456%_)))) - (let ((_%hd173440173462%_ + (gx#stx-e _%tl177012177030%_)))) + (let ((_%hd177014177036%_ (let () (declare (not safe)) - (##car _%e173439173459%_))) - (_%tl173441173464%_ + (##car _%e177013177033%_))) + (_%tl177015177038%_ (let () (declare (not safe)) - (##cdr _%e173439173459%_)))) - ((lambda (_%L173467%_ _%L173468%_) - (let ((__tmp179847 + (##cdr _%e177013177033%_)))) + ((lambda (_%g177008177041%_ + _%g177009177042%_) + (let ((__tmp183391 (lambda () (let () (declare (not safe)) (gxc#apply-body-lambda% - _%self173429%_ - _%stx173430%_)))) - (__tmp179846 + _%self177003%_ + _%stx177004%_)))) + (__tmp183390 (let () (declare (not safe)) (gxc#xform-let-locals - _%L173468%_)))) + _%g177009177042%_)))) (declare (not safe)) (call-with-parameters__1 - __tmp179847 + __tmp183391 gxc#current-compile-local-env - __tmp179846))) - _%tl173441173464%_ - _%hd173440173462%_))) - (_%g173432173446%_ _%g173433173449%_)))) - (_%g173432173446%_ _%g173433173449%_))))) - (_%g173431173482%_ _%stx173430%_)))) + __tmp183390))) + _%tl177015177038%_ + _%hd177014177036%_))) + (_%g177006177020%_ _%g177007177023%_)))) + (_%g177006177020%_ _%g177007177023%_))))) + (_%g177005177056%_ _%stx177004%_)))) (define gxc#refine-type-case-lambda% - (lambda (_%self173256%_ _%stx173257%_) - (let* ((_%g173259173287%_ - (lambda (_%g173260173284%_) + (lambda (_%self176834%_ _%stx176835%_) + (let* ((_%g176837176865%_ + (lambda (_%g176838176862%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173260173284%_)))) - (_%g173258173426%_ - (lambda (_%g173260173290%_) + _%g176838176862%_)))) + (_%g176836177000%_ + (lambda (_%g176838176868%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g173260173290%_)) - (let ((_%e173263173292%_ + (gx#stx-pair? _%g176838176868%_)) + (let ((_%e176841176870%_ (let () (declare (not safe)) - (gx#stx-e _%g173260173290%_)))) - (let ((_%hd173264173295%_ + (gx#stx-e _%g176838176868%_)))) + (let ((_%hd176842176873%_ (let () (declare (not safe)) - (##car _%e173263173292%_))) - (_%tl173265173297%_ + (##car _%e176841176870%_))) + (_%tl176843176875%_ (let () (declare (not safe)) - (##cdr _%e173263173292%_)))) + (##cdr _%e176841176870%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl173265173297%_)) - (let ((_g179848_ + (gx#stx-pair/null? _%tl176843176875%_)) + (let ((_g183392_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl173265173297%_ + _%tl176843176875%_ '0)))) (begin - (let ((_g179849_ + (let ((_g183393_ (let () (declare (not safe)) - (if (##values? _g179848_) - (##values-length _g179848_) + (if (##values? _g183392_) + (##values-length _g183392_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g179849_ 2))) + (##fx= _g183393_ 2))) (error "Context expects 2 values" - _g179849_))) - (let ((_%target173266173300%_ + _g183393_))) + (let ((_%target176844176878%_ (let () (declare (not safe)) - (##values-ref _g179848_ 0))) - (_%tl173268173302%_ + (##values-ref _g183392_ 0))) + (_%tl176846176880%_ (let () (declare (not safe)) - (##values-ref _g179848_ 1)))) + (##values-ref _g183392_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173268173302%_)) - (letrec ((_%loop173269173305%_ - (lambda (_%hd173267173308%_ - _%body173273173310%_ - _%hd173274173312%_) + (gx#stx-null? _%tl176846176880%_)) + (letrec ((_%loop176847176883%_ + (lambda (_%hd176845176886%_ + _%body176851176888%_ + _%hd176852176889%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd173267173308%_)) - (let ((_%e173270173315%_ + _%hd176845176886%_)) + (let ((_%e176848176891%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd173267173308%_)))) - (let ((_%lp-hd173271173318%_ + (gx#stx-e _%hd176845176886%_)))) + (let ((_%lp-hd176849176894%_ (let () (declare (not safe)) - (##car _%e173270173315%_))) - (_%lp-tl173272173320%_ + (##car _%e176848176891%_))) + (_%lp-tl176850176896%_ (let () (declare (not safe)) - (##cdr _%e173270173315%_)))) + (##cdr _%e176848176891%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd173271173318%_)) - (let ((_%e173277173323%_ + (gx#stx-pair? _%lp-hd176849176894%_)) + (let ((_%e176855176899%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd173271173318%_)))) - (let ((_%hd173278173326%_ + (gx#stx-e _%lp-hd176849176894%_)))) + (let ((_%hd176856176902%_ (let () (declare (not safe)) - (##car _%e173277173323%_))) - (_%tl173279173328%_ + (##car _%e176855176899%_))) + (_%tl176857176904%_ (let () (declare (not safe)) - (##cdr _%e173277173323%_)))) + (##cdr _%e176855176899%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173279173328%_)) - (let ((_%e173280173331%_ + (gx#stx-pair? _%tl176857176904%_)) + (let ((_%e176858176907%_ (let () (declare (not safe)) - (gx#stx-e _%tl173279173328%_)))) - (let ((_%hd173281173334%_ + (gx#stx-e _%tl176857176904%_)))) + (let ((_%hd176859176910%_ (let () (declare (not safe)) - (##car _%e173280173331%_))) - (_%tl173282173336%_ + (##car _%e176858176907%_))) + (_%tl176860176912%_ (let () (declare (not safe)) - (##cdr _%e173280173331%_)))) + (##cdr _%e176858176907%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173282173336%_)) - (_%loop173269173305%_ - _%lp-tl173272173320%_ - (cons _%hd173281173334%_ - _%body173273173310%_) - (cons _%hd173278173326%_ - _%hd173274173312%_)) - (_%g173259173287%_ - _%g173260173290%_)))) - (_%g173259173287%_ _%g173260173290%_)))) - (_%g173259173287%_ _%g173260173290%_)))) - (let ((_%body173275173339%_ (reverse _%body173273173310%_)) - (_%hd173276173341%_ (reverse _%hd173274173312%_))) - ((lambda (_%L173344%_ _%L173345%_) + (gx#stx-null? _%tl176860176912%_)) + (_%loop176847176883%_ + _%lp-tl176850176896%_ + (cons _%hd176859176910%_ + _%body176851176888%_) + (cons _%hd176856176902%_ + _%hd176852176889%_)) + (_%g176837176865%_ + _%g176838176868%_)))) + (_%g176837176865%_ _%g176838176868%_)))) + (_%g176837176865%_ _%g176838176868%_)))) + (let ((_%body176853176915%_ (reverse _%body176851176888%_)) + (_%hd176854176916%_ (reverse _%hd176852176889%_))) + ((lambda (_%g176839176918%_ _%g176840176919%_) (for-each - (lambda (_%clause173360%_) - (let* ((_%g173362173376%_ - (lambda (_%g173363173373%_) + (lambda (_%clause176934%_) + (let* ((_%g176936176950%_ + (lambda (_%g176937176947%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173363173373%_)))) - (_%g173361173413%_ - (lambda (_%g173363173379%_) + _%g176937176947%_)))) + (_%g176935176987%_ + (lambda (_%g176937176953%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g173363173379%_)) - (let ((_%e173366173381%_ + (gx#stx-pair? _%g176937176953%_)) + (let ((_%e176940176955%_ (let () (declare (not safe)) - (gx#stx-e _%g173363173379%_)))) - (let ((_%hd173367173384%_ + (gx#stx-e _%g176937176953%_)))) + (let ((_%hd176941176958%_ (let () (declare (not safe)) - (##car _%e173366173381%_))) - (_%tl173368173386%_ + (##car _%e176940176955%_))) + (_%tl176942176960%_ (let () (declare (not safe)) - (##cdr _%e173366173381%_)))) + (##cdr _%e176940176955%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173368173386%_)) - (let ((_%e173369173389%_ + _%tl176942176960%_)) + (let ((_%e176943176963%_ (let () (declare (not safe)) (gx#stx-e - _%tl173368173386%_)))) - (let ((_%hd173370173392%_ + _%tl176942176960%_)))) + (let ((_%hd176944176966%_ (let () (declare (not safe)) - (##car _%e173369173389%_))) - (_%tl173371173394%_ + (##car _%e176943176963%_))) + (_%tl176945176968%_ (let () (declare (not safe)) - (##cdr _%e173369173389%_)))) + (##cdr _%e176943176963%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173371173394%_)) - ((lambda (_%L173397%_ - _%L173398%_) - (let ((__tmp179851 + _%tl176945176968%_)) + ((lambda (_%g176938176971%_ + _%g176939176972%_) + (let ((__tmp183395 (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-body-case-lambda% - _%self173256%_ - _%stx173257%_)))) - (__tmp179850 + _%self176834%_ + _%stx176835%_)))) + (__tmp183394 (let () (declare (not safe)) - (gxc#xform-let-locals _%L173398%_)))) + (gxc#xform-let-locals _%g176939176972%_)))) (declare (not safe)) (call-with-parameters__1 - __tmp179851 + __tmp183395 gxc#current-compile-local-env - __tmp179850))) - _%hd173370173392%_ - _%hd173367173384%_) - (_%g173362173376%_ _%g173363173379%_)))) + __tmp183394))) + _%hd176944176966%_ + _%hd176941176958%_) + (_%g176936176950%_ _%g176937176953%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g173362173376%_ - _%g173363173379%_)))) - (_%g173362173376%_ _%g173363173379%_))))) - (_%g173361173413%_ _%clause173360%_))) + (_%g176936176950%_ + _%g176937176953%_)))) + (_%g176936176950%_ _%g176937176953%_))))) + (_%g176935176987%_ _%clause176934%_))) (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L173344%_ - _%L173345%_)) - (let ((__tmp179852 - (lambda (_%g173415173419%_ - _%g173416173421%_ - _%g173417173423%_) - (cons (cons _%g173416173421%_ - (cons _%g173415173419%_ '())) - _%g173417173423%_)))) + _%g176839176918%_ + _%g176840176919%_)) + (let ((__tmp183396 + (lambda (_%g176989176993%_ + _%g176990176995%_ + _%g176991176997%_) + (cons (cons _%g176990176995%_ + (cons _%g176989176993%_ '())) + _%g176991176997%_)))) (declare (not safe)) (__foldr2 - __tmp179852 + __tmp183396 '() - _%L173344%_ - _%L173345%_))))) - _%body173275173339%_ - _%hd173276173341%_)))))) + _%g176839176918%_ + _%g176840176919%_))))) + _%body176853176915%_ + _%hd176854176916%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop173269173305%_ - _%target173266173300%_ + (_%loop176847176883%_ + _%target176844176878%_ '() '())) - (_%g173259173287%_ - _%g173260173290%_))))) - (_%g173259173287%_ _%g173260173290%_)))) - (_%g173259173287%_ _%g173260173290%_))))) - (_%g173258173426%_ _%stx173257%_)))) + (_%g176837176865%_ + _%g176838176868%_))))) + (_%g176837176865%_ _%g176838176868%_)))) + (_%g176837176865%_ _%g176838176868%_))))) + (_%g176836177000%_ _%stx176835%_)))) (define gxc#basic-expression-type-annotations (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-begin-annotation% - (lambda (_%self173134%_ _%stx173135%_) - (let* ((_%g173137173154%_ - (lambda (_%g173138173151%_) + (lambda (_%self176712%_ _%stx176713%_) + (let* ((_%g176715176732%_ + (lambda (_%g176716176729%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173138173151%_)))) - (_%g173136173253%_ - (lambda (_%g173138173157%_) + _%g176716176729%_)))) + (_%g176714176831%_ + (lambda (_%g176716176735%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g173138173157%_)) - (let ((_%e173141173159%_ + (gx#stx-pair? _%g176716176735%_)) + (let ((_%e176719176737%_ (let () (declare (not safe)) - (gx#stx-e _%g173138173157%_)))) - (let ((_%hd173142173162%_ + (gx#stx-e _%g176716176735%_)))) + (let ((_%hd176720176740%_ (let () (declare (not safe)) - (##car _%e173141173159%_))) - (_%tl173143173164%_ + (##car _%e176719176737%_))) + (_%tl176721176742%_ (let () (declare (not safe)) - (##cdr _%e173141173159%_)))) + (##cdr _%e176719176737%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173143173164%_)) - (let ((_%e173144173167%_ + (gx#stx-pair? _%tl176721176742%_)) + (let ((_%e176722176745%_ (let () (declare (not safe)) - (gx#stx-e _%tl173143173164%_)))) - (let ((_%hd173145173170%_ + (gx#stx-e _%tl176721176742%_)))) + (let ((_%hd176723176748%_ (let () (declare (not safe)) - (##car _%e173144173167%_))) - (_%tl173146173172%_ + (##car _%e176722176745%_))) + (_%tl176724176750%_ (let () (declare (not safe)) - (##cdr _%e173144173167%_)))) + (##cdr _%e176722176745%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173146173172%_)) - (let ((_%e173147173175%_ + (gx#stx-pair? _%tl176724176750%_)) + (let ((_%e176725176753%_ (let () (declare (not safe)) - (gx#stx-e _%tl173146173172%_)))) - (let ((_%hd173148173178%_ + (gx#stx-e _%tl176724176750%_)))) + (let ((_%hd176726176756%_ (let () (declare (not safe)) - (##car _%e173147173175%_))) - (_%tl173149173180%_ + (##car _%e176725176753%_))) + (_%tl176727176758%_ (let () (declare (not safe)) - (##cdr _%e173147173175%_)))) + (##cdr _%e176725176753%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173149173180%_)) - ((lambda (_%L173183%_ - _%L173184%_) - (let* ((_%__stx177522177523%_ - _%L173184%_) - (_%g173200173211%_ + _%tl176727176758%_)) + ((lambda (_%g176717176761%_ + _%g176718176762%_) + (let* ((_%__stx181066181067%_ + _%g176718176762%_) + (_%g176778176789%_ (lambda () (let () (declare @@ -7897,325 +7935,331 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx177522177523%_))))) - (let ((_%__kont177524177525%_ - (lambda (_%L173231%_ + _%__stx181066181067%_))))) + (let ((_%__kont181068181069%_ + (lambda (_%g176780176809%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L173232%_) - (let ((_%$e173244%_ - (let ((__tmp179853 + _%g176781176810%_) + (let ((_%$e176822%_ + (let ((__tmp183397 (let () (declare (not safe)) - (gx#stx-e _%L173232%_)))) + (gx#stx-e _%g176781176810%_)))) (declare (not safe)) (__hash-get gxc#basic-expression-type-annotations - __tmp179853)))) - (if _%$e173244%_ - ((lambda (_%type-e173247%_) - (_%type-e173247%_ _%stx173135%_ _%L173184%_)) - _%$e173244%_) + __tmp183397)))) + (if _%$e176822%_ + ((lambda (_%type-e176825%_) + (_%type-e176825%_ + _%stx176713%_ + _%g176718176762%_)) + _%$e176822%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self173134%_ _%L173183%_)))))) - (_%__kont177526177527%_ + (gxc#compile-e__1 + _%self176712%_ + _%g176717176761%_)))))) + (_%__kont181070181071%_ (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self173134%_ _%L173183%_))))) + (gxc#compile-e__1 _%self176712%_ _%g176717176761%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match177533177534%_ - (lambda (_%e173204173223%_ + (let ((_%__match181077181078%_ + (lambda (_%e176782176801%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd173205173226%_ - _%tl173206173228%_) - (let ((_%L173231%_ _%tl173206173228%_) - (_%L173232%_ _%hd173205173226%_)) + _%hd176783176804%_ + _%tl176784176806%_) + (let ((_%g176780176809%_ _%tl176784176806%_) + (_%g176781176810%_ _%hd176783176804%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L173232%_)) - (_%__kont177524177525%_ _%L173231%_ _%L173232%_) - (_%__kont177526177527%_)))))) + (gx#identifier? _%g176781176810%_)) + (_%__kont181068181069%_ + _%g176780176809%_ + _%g176781176810%_) + (_%__kont181070181071%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx177522177523%_)) - (let ((_%e173204173223%_ + (gx#stx-pair? _%__stx181066181067%_)) + (let ((_%e176782176801%_ (let () (declare (not safe)) - (gx#stx-e _%__stx177522177523%_)))) - (let ((_%tl173206173228%_ + (gx#stx-e _%__stx181066181067%_)))) + (let ((_%tl176784176806%_ (let () (declare (not safe)) - (##cdr _%e173204173223%_))) - (_%hd173205173226%_ + (##cdr _%e176782176801%_))) + (_%hd176783176804%_ (let () (declare (not safe)) - (##car _%e173204173223%_)))) - (_%__match177533177534%_ - _%e173204173223%_ - _%hd173205173226%_ - _%tl173206173228%_))) - (_%__kont177526177527%_)))))) + (##car _%e176782176801%_)))) + (_%__match181077181078%_ + _%e176782176801%_ + _%hd176783176804%_ + _%tl176784176806%_))) + (_%__kont181070181071%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd173148173178%_ - _%hd173145173170%_) - (_%g173137173154%_ - _%g173138173157%_)))) - (_%g173137173154%_ _%g173138173157%_)))) - (_%g173137173154%_ _%g173138173157%_)))) - (_%g173137173154%_ _%g173138173157%_))))) - (_%g173136173253%_ _%stx173135%_)))) + _%hd176726176756%_ + _%hd176723176748%_) + (_%g176715176732%_ + _%g176716176735%_)))) + (_%g176715176732%_ _%g176716176735%_)))) + (_%g176715176732%_ _%g176716176735%_)))) + (_%g176715176732%_ _%g176716176735%_))))) + (_%g176714176831%_ _%stx176713%_)))) (define gxc#basic-expression-type-annotation-typedecl - (lambda (_%stx173082%_ _%ann173083%_) - (let* ((_%g173085173098%_ - (lambda (_%g173086173095%_) + (lambda (_%stx176660%_ _%ann176661%_) + (let* ((_%g176663176676%_ + (lambda (_%g176664176673%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173086173095%_)))) - (_%g173084173131%_ - (lambda (_%g173086173101%_) + _%g176664176673%_)))) + (_%g176662176709%_ + (lambda (_%g176664176679%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g173086173101%_)) - (let ((_%e173088173103%_ + (gx#stx-pair? _%g176664176679%_)) + (let ((_%e176666176681%_ (let () (declare (not safe)) - (gx#stx-e _%g173086173101%_)))) - (let ((_%hd173089173106%_ + (gx#stx-e _%g176664176679%_)))) + (let ((_%hd176667176684%_ (let () (declare (not safe)) - (##car _%e173088173103%_))) - (_%tl173090173108%_ + (##car _%e176666176681%_))) + (_%tl176668176686%_ (let () (declare (not safe)) - (##cdr _%e173088173103%_)))) + (##cdr _%e176666176681%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173090173108%_)) - (let ((_%e173091173111%_ + (gx#stx-pair? _%tl176668176686%_)) + (let ((_%e176669176689%_ (let () (declare (not safe)) - (gx#stx-e _%tl173090173108%_)))) - (let ((_%hd173092173114%_ + (gx#stx-e _%tl176668176686%_)))) + (let ((_%hd176670176692%_ (let () (declare (not safe)) - (##car _%e173091173111%_))) - (_%tl173093173116%_ + (##car _%e176669176689%_))) + (_%tl176671176694%_ (let () (declare (not safe)) - (##cdr _%e173091173111%_)))) + (##cdr _%e176669176689%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173093173116%_)) - ((lambda (_%L173119%_) - (let ((__tmp179854 + (gx#stx-null? _%tl176671176694%_)) + ((lambda (_%g176665176697%_) + (let ((__tmp183398 (let () (declare (not safe)) (gxc#identifier-symbol - _%L173119%_)))) + _%g176665176697%_)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx173082%_ - __tmp179854))) - _%hd173092173114%_) - (_%g173085173098%_ _%g173086173101%_)))) - (_%g173085173098%_ _%g173086173101%_)))) - (_%g173085173098%_ _%g173086173101%_))))) - (_%g173084173131%_ _%ann173083%_)))) + _%stx176660%_ + __tmp183398))) + _%hd176670176692%_) + (_%g176663176676%_ _%g176664176679%_)))) + (_%g176663176676%_ _%g176664176679%_)))) + (_%g176663176676%_ _%g176664176679%_))))) + (_%g176662176709%_ _%ann176661%_)))) (define gxc#basic-expression-type-annotation-mop.class - (lambda (_%stx172926%_ _%ann172927%_) - (let* ((_%g172929172966%_ - (lambda (_%g172930172963%_) + (lambda (_%stx176504%_ _%ann176505%_) + (let* ((_%g176507176544%_ + (lambda (_%g176508176541%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g172930172963%_)))) - (_%g172928173079%_ - (lambda (_%g172930172969%_) + _%g176508176541%_)))) + (_%g176506176657%_ + (lambda (_%g176508176547%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g172930172969%_)) - (let ((_%e172938172971%_ + (gx#stx-pair? _%g176508176547%_)) + (let ((_%e176516176549%_ (let () (declare (not safe)) - (gx#stx-e _%g172930172969%_)))) - (let ((_%hd172939172974%_ + (gx#stx-e _%g176508176547%_)))) + (let ((_%hd176517176552%_ (let () (declare (not safe)) - (##car _%e172938172971%_))) - (_%tl172940172976%_ + (##car _%e176516176549%_))) + (_%tl176518176554%_ (let () (declare (not safe)) - (##cdr _%e172938172971%_)))) + (##cdr _%e176516176549%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172940172976%_)) - (let ((_%e172941172979%_ + (gx#stx-pair? _%tl176518176554%_)) + (let ((_%e176519176557%_ (let () (declare (not safe)) - (gx#stx-e _%tl172940172976%_)))) - (let ((_%hd172942172982%_ + (gx#stx-e _%tl176518176554%_)))) + (let ((_%hd176520176560%_ (let () (declare (not safe)) - (##car _%e172941172979%_))) - (_%tl172943172984%_ + (##car _%e176519176557%_))) + (_%tl176521176562%_ (let () (declare (not safe)) - (##cdr _%e172941172979%_)))) + (##cdr _%e176519176557%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172943172984%_)) - (let ((_%e172944172987%_ + (gx#stx-pair? _%tl176521176562%_)) + (let ((_%e176522176565%_ (let () (declare (not safe)) - (gx#stx-e _%tl172943172984%_)))) - (let ((_%hd172945172990%_ + (gx#stx-e _%tl176521176562%_)))) + (let ((_%hd176523176568%_ (let () (declare (not safe)) - (##car _%e172944172987%_))) - (_%tl172946172992%_ + (##car _%e176522176565%_))) + (_%tl176524176570%_ (let () (declare (not safe)) - (##cdr _%e172944172987%_)))) + (##cdr _%e176522176565%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172946172992%_)) - (let ((_%e172947172995%_ + _%tl176524176570%_)) + (let ((_%e176525176573%_ (let () (declare (not safe)) (gx#stx-e - _%tl172946172992%_)))) - (let ((_%hd172948172998%_ + _%tl176524176570%_)))) + (let ((_%hd176526176576%_ (let () (declare (not safe)) - (##car _%e172947172995%_))) - (_%tl172949173000%_ + (##car _%e176525176573%_))) + (_%tl176527176578%_ (let () (declare (not safe)) - (##cdr _%e172947172995%_)))) + (##cdr _%e176525176573%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172949173000%_)) - (let ((_%e172950173003%_ + _%tl176527176578%_)) + (let ((_%e176528176581%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl172949173000%_)))) - (let ((_%hd172951173006%_ - (let () (declare (not safe)) (##car _%e172950173003%_))) - (_%tl172952173008%_ + (gx#stx-e _%tl176527176578%_)))) + (let ((_%hd176529176584%_ + (let () (declare (not safe)) (##car _%e176528176581%_))) + (_%tl176530176586%_ (let () (declare (not safe)) - (##cdr _%e172950173003%_)))) + (##cdr _%e176528176581%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172952173008%_)) - (let ((_%e172953173011%_ + (gx#stx-pair? _%tl176530176586%_)) + (let ((_%e176531176589%_ (let () (declare (not safe)) - (gx#stx-e _%tl172952173008%_)))) - (let ((_%hd172954173014%_ + (gx#stx-e _%tl176530176586%_)))) + (let ((_%hd176532176592%_ (let () (declare (not safe)) - (##car _%e172953173011%_))) - (_%tl172955173016%_ + (##car _%e176531176589%_))) + (_%tl176533176594%_ (let () (declare (not safe)) - (##cdr _%e172953173011%_)))) + (##cdr _%e176531176589%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172955173016%_)) - (let ((_%e172956173019%_ + (gx#stx-pair? _%tl176533176594%_)) + (let ((_%e176534176597%_ (let () (declare (not safe)) - (gx#stx-e _%tl172955173016%_)))) - (let ((_%hd172957173022%_ + (gx#stx-e _%tl176533176594%_)))) + (let ((_%hd176535176600%_ (let () (declare (not safe)) - (##car _%e172956173019%_))) - (_%tl172958173024%_ + (##car _%e176534176597%_))) + (_%tl176536176602%_ (let () (declare (not safe)) - (##cdr _%e172956173019%_)))) + (##cdr _%e176534176597%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172958173024%_)) - (let ((_%e172959173027%_ + (gx#stx-pair? _%tl176536176602%_)) + (let ((_%e176537176605%_ (let () (declare (not safe)) - (gx#stx-e _%tl172958173024%_)))) - (let ((_%hd172960173030%_ + (gx#stx-e _%tl176536176602%_)))) + (let ((_%hd176538176608%_ (let () (declare (not safe)) - (##car _%e172959173027%_))) - (_%tl172961173032%_ + (##car _%e176537176605%_))) + (_%tl176539176610%_ (let () (declare (not safe)) - (##cdr _%e172959173027%_)))) + (##cdr _%e176537176605%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172961173032%_)) - ((lambda (_%L173035%_ - _%L173036%_ - _%L173037%_ - _%L173038%_ - _%L173039%_ - _%L173040%_ - _%L173041%_) - (let ((_%type-id173071%_ + _%tl176539176610%_)) + ((lambda (_%g176509176613%_ + _%g176510176614%_ + _%g176511176615%_ + _%g176512176616%_ + _%g176513176617%_ + _%g176514176618%_ + _%g176515176619%_) + (let ((_%type-id176649%_ (let () (declare (not safe)) (gx#stx-e - _%L173041%_))) - (_%super173072%_ + _%g176515176619%_))) + (_%super176650%_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _%L173040%_))) - (_%slots173073%_ + _%g176514176618%_))) + (_%slots176651%_ (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _%L173039%_))) - (_%ctor-method173074%_ + _%g176513176617%_))) + (_%ctor-method176652%_ (let () (declare (not safe)) (gx#stx-e - _%L173038%_))) - (_%struct?173075%_ + _%g176512176616%_))) + (_%struct?176653%_ (let () (declare (not safe)) (gx#stx-e - _%L173037%_))) - (_%final?173076%_ + _%g176511176615%_))) + (_%final?176654%_ (let () (declare (not safe)) (gx#stx-e - _%L173036%_))) - (_%metaclass173077%_ + _%g176510176614%_))) + (_%metaclass176655%_ (if (let () (declare (not safe)) (gx#stx-e - _%L173035%_)) + _%g176509176613%_)) (let () (declare (not safe)) (gxc#identifier-symbol - _%L173035%_)) + _%g176509176613%_)) '#f))) - (let ((__obj179690 + (let ((__obj183234 (let () (declare (not safe)) @@ -8223,8 +8267,8 @@ gxc#!class-meta::t '#f '#f)))) - (let ((__tmp179855 - (let ((__obj179689 + (let ((__tmp183399 + (let ((__obj183233 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -8244,115 +8288,115 @@ (let () (declare (not safe)) (gxc#!class:::init!__0 - __obj179689 - _%type-id173071%_ - _%super173072%_ - _%slots173073%_ - _%ctor-method173074%_ - _%struct?173075%_ - _%final?173076%_ + __obj183233 + _%type-id176649%_ + _%super176650%_ + _%slots176651%_ + _%ctor-method176652%_ + _%struct?176653%_ + _%final?176654%_ '#f - _%metaclass173077%_)) - __obj179689))) + _%metaclass176655%_)) + __obj183233))) (declare (not safe)) - (gxc#!class-meta:::init! __obj179690 __tmp179855)) + (gxc#!class-meta:::init! __obj183234 __tmp183399)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - __obj179690))) - _%hd172960173030%_ - _%hd172957173022%_ - _%hd172954173014%_ - _%hd172951173006%_ - _%hd172948172998%_ - _%hd172945172990%_ - _%hd172942172982%_) - (_%g172929172966%_ - _%g172930172969%_)))) - (_%g172929172966%_ _%g172930172969%_)))) - (_%g172929172966%_ _%g172930172969%_)))) - (_%g172929172966%_ _%g172930172969%_)))) - (_%g172929172966%_ _%g172930172969%_)))) + __obj183234))) + _%hd176538176608%_ + _%hd176535176600%_ + _%hd176532176592%_ + _%hd176529176584%_ + _%hd176526176576%_ + _%hd176523176568%_ + _%hd176520176560%_) + (_%g176507176544%_ + _%g176508176547%_)))) + (_%g176507176544%_ _%g176508176547%_)))) + (_%g176507176544%_ _%g176508176547%_)))) + (_%g176507176544%_ _%g176508176547%_)))) + (_%g176507176544%_ _%g176508176547%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g172929172966%_ - _%g172930172969%_)))) - (_%g172929172966%_ _%g172930172969%_)))) - (_%g172929172966%_ _%g172930172969%_)))) - (_%g172929172966%_ _%g172930172969%_))))) - (_%g172928173079%_ _%ann172927%_)))) + (_%g176507176544%_ + _%g176508176547%_)))) + (_%g176507176544%_ _%g176508176547%_)))) + (_%g176507176544%_ _%g176508176547%_)))) + (_%g176507176544%_ _%g176508176547%_))))) + (_%g176506176657%_ _%ann176505%_)))) (define gxc#basic-expression-type-annotation-mop.system - (lambda (_%stx172855%_ _%ann172856%_) - (let* ((_%g172858172875%_ - (lambda (_%g172859172872%_) + (lambda (_%stx176433%_ _%ann176434%_) + (let* ((_%g176436176453%_ + (lambda (_%g176437176450%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g172859172872%_)))) - (_%g172857172923%_ - (lambda (_%g172859172878%_) + _%g176437176450%_)))) + (_%g176435176501%_ + (lambda (_%g176437176456%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g172859172878%_)) - (let ((_%e172862172880%_ + (gx#stx-pair? _%g176437176456%_)) + (let ((_%e176440176458%_ (let () (declare (not safe)) - (gx#stx-e _%g172859172878%_)))) - (let ((_%hd172863172883%_ + (gx#stx-e _%g176437176456%_)))) + (let ((_%hd176441176461%_ (let () (declare (not safe)) - (##car _%e172862172880%_))) - (_%tl172864172885%_ + (##car _%e176440176458%_))) + (_%tl176442176463%_ (let () (declare (not safe)) - (##cdr _%e172862172880%_)))) + (##cdr _%e176440176458%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172864172885%_)) - (let ((_%e172865172888%_ + (gx#stx-pair? _%tl176442176463%_)) + (let ((_%e176443176466%_ (let () (declare (not safe)) - (gx#stx-e _%tl172864172885%_)))) - (let ((_%hd172866172891%_ + (gx#stx-e _%tl176442176463%_)))) + (let ((_%hd176444176469%_ (let () (declare (not safe)) - (##car _%e172865172888%_))) - (_%tl172867172893%_ + (##car _%e176443176466%_))) + (_%tl176445176471%_ (let () (declare (not safe)) - (##cdr _%e172865172888%_)))) + (##cdr _%e176443176466%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172867172893%_)) - (let ((_%e172868172896%_ + (gx#stx-pair? _%tl176445176471%_)) + (let ((_%e176446176474%_ (let () (declare (not safe)) - (gx#stx-e _%tl172867172893%_)))) - (let ((_%hd172869172899%_ + (gx#stx-e _%tl176445176471%_)))) + (let ((_%hd176447176477%_ (let () (declare (not safe)) - (##car _%e172868172896%_))) - (_%tl172870172901%_ + (##car _%e176446176474%_))) + (_%tl176448176479%_ (let () (declare (not safe)) - (##cdr _%e172868172896%_)))) + (##cdr _%e176446176474%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172870172901%_)) - ((lambda (_%L172904%_ - _%L172905%_) - (let ((_%type-id172920%_ + _%tl176448176479%_)) + ((lambda (_%g176438176482%_ + _%g176439176483%_) + (let ((_%type-id176498%_ (let () (declare (not safe)) (gx#stx-e - _%L172905%_))) - (_%super172921%_ + _%g176439176483%_))) + (_%super176499%_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _%L172904%_)))) - (let ((__obj179692 + _%g176438176482%_)))) + (let ((__obj183236 (let () (declare (not safe)) @@ -8360,8 +8404,8 @@ gxc#!class-meta::t '#f '#f)))) - (let ((__tmp179856 - (let ((__obj179691 + (let ((__tmp183400 + (let ((__obj183235 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -8381,589 +8425,593 @@ (let () (declare (not safe)) (gxc#!class:::init!__0 - __obj179691 - _%type-id172920%_ - _%super172921%_ + __obj183235 + _%type-id176498%_ + _%super176499%_ '() '#f '#f '#f '#t '#f)) - __obj179691))) + __obj183235))) (declare (not safe)) - (gxc#!class-meta:::init! __obj179692 __tmp179856)) + (gxc#!class-meta:::init! __obj183236 __tmp183400)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - __obj179692))) - _%hd172869172899%_ - _%hd172866172891%_) - (_%g172858172875%_ - _%g172859172878%_)))) - (_%g172858172875%_ _%g172859172878%_)))) - (_%g172858172875%_ _%g172859172878%_)))) - (_%g172858172875%_ _%g172859172878%_))))) - (_%g172857172923%_ _%ann172856%_)))) + __obj183236))) + _%hd176447176477%_ + _%hd176444176469%_) + (_%g176436176453%_ + _%g176437176456%_)))) + (_%g176436176453%_ _%g176437176456%_)))) + (_%g176436176453%_ _%g176437176456%_)))) + (_%g176436176453%_ _%g176437176456%_))))) + (_%g176435176501%_ _%ann176434%_)))) (define gxc#basic-expression-type-annotation-mop.constructor - (lambda (_%stx172803%_ _%ann172804%_) - (let* ((_%g172806172819%_ - (lambda (_%g172807172816%_) + (lambda (_%stx176381%_ _%ann176382%_) + (let* ((_%g176384176397%_ + (lambda (_%g176385176394%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g172807172816%_)))) - (_%g172805172852%_ - (lambda (_%g172807172822%_) + _%g176385176394%_)))) + (_%g176383176430%_ + (lambda (_%g176385176400%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g172807172822%_)) - (let ((_%e172809172824%_ + (gx#stx-pair? _%g176385176400%_)) + (let ((_%e176387176402%_ (let () (declare (not safe)) - (gx#stx-e _%g172807172822%_)))) - (let ((_%hd172810172827%_ + (gx#stx-e _%g176385176400%_)))) + (let ((_%hd176388176405%_ (let () (declare (not safe)) - (##car _%e172809172824%_))) - (_%tl172811172829%_ + (##car _%e176387176402%_))) + (_%tl176389176407%_ (let () (declare (not safe)) - (##cdr _%e172809172824%_)))) + (##cdr _%e176387176402%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172811172829%_)) - (let ((_%e172812172832%_ + (gx#stx-pair? _%tl176389176407%_)) + (let ((_%e176390176410%_ (let () (declare (not safe)) - (gx#stx-e _%tl172811172829%_)))) - (let ((_%hd172813172835%_ + (gx#stx-e _%tl176389176407%_)))) + (let ((_%hd176391176413%_ (let () (declare (not safe)) - (##car _%e172812172832%_))) - (_%tl172814172837%_ + (##car _%e176390176410%_))) + (_%tl176392176415%_ (let () (declare (not safe)) - (##cdr _%e172812172832%_)))) + (##cdr _%e176390176410%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172814172837%_)) - ((lambda (_%L172840%_) - (let ((__obj179693 + (gx#stx-null? _%tl176392176415%_)) + ((lambda (_%g176386176418%_) + (let ((__obj183237 (let () (declare (not safe)) (##structure gxc#!constructor::t '#f '#f)))) - (let ((__tmp179857 + (let ((__tmp183401 (let () (declare (not safe)) (gxc#identifier-symbol - _%L172840%_)))) + _%g176386176418%_)))) (declare (not safe)) (gxc#!constructor:::init! - __obj179693 - __tmp179857)) - __obj179693)) - _%hd172813172835%_) - (_%g172806172819%_ _%g172807172822%_)))) - (_%g172806172819%_ _%g172807172822%_)))) - (_%g172806172819%_ _%g172807172822%_))))) - (_%g172805172852%_ _%ann172804%_)))) + __obj183237 + __tmp183401)) + __obj183237)) + _%hd176391176413%_) + (_%g176384176397%_ _%g176385176400%_)))) + (_%g176384176397%_ _%g176385176400%_)))) + (_%g176384176397%_ _%g176385176400%_))))) + (_%g176383176430%_ _%ann176382%_)))) (define gxc#basic-expression-type-annotation-mop.predicate - (lambda (_%stx172751%_ _%ann172752%_) - (let* ((_%g172754172767%_ - (lambda (_%g172755172764%_) + (lambda (_%stx176329%_ _%ann176330%_) + (let* ((_%g176332176345%_ + (lambda (_%g176333176342%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g172755172764%_)))) - (_%g172753172800%_ - (lambda (_%g172755172770%_) + _%g176333176342%_)))) + (_%g176331176378%_ + (lambda (_%g176333176348%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g172755172770%_)) - (let ((_%e172757172772%_ + (gx#stx-pair? _%g176333176348%_)) + (let ((_%e176335176350%_ (let () (declare (not safe)) - (gx#stx-e _%g172755172770%_)))) - (let ((_%hd172758172775%_ + (gx#stx-e _%g176333176348%_)))) + (let ((_%hd176336176353%_ (let () (declare (not safe)) - (##car _%e172757172772%_))) - (_%tl172759172777%_ + (##car _%e176335176350%_))) + (_%tl176337176355%_ (let () (declare (not safe)) - (##cdr _%e172757172772%_)))) + (##cdr _%e176335176350%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172759172777%_)) - (let ((_%e172760172780%_ + (gx#stx-pair? _%tl176337176355%_)) + (let ((_%e176338176358%_ (let () (declare (not safe)) - (gx#stx-e _%tl172759172777%_)))) - (let ((_%hd172761172783%_ + (gx#stx-e _%tl176337176355%_)))) + (let ((_%hd176339176361%_ (let () (declare (not safe)) - (##car _%e172760172780%_))) - (_%tl172762172785%_ + (##car _%e176338176358%_))) + (_%tl176340176363%_ (let () (declare (not safe)) - (##cdr _%e172760172780%_)))) + (##cdr _%e176338176358%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172762172785%_)) - ((lambda (_%L172788%_) - (let ((__obj179694 + (gx#stx-null? _%tl176340176363%_)) + ((lambda (_%g176334176366%_) + (let ((__obj183238 (let () (declare (not safe)) (##structure gxc#!predicate::t '#f '#f)))) - (let ((__tmp179858 + (let ((__tmp183402 (let () (declare (not safe)) (gxc#identifier-symbol - _%L172788%_)))) + _%g176334176366%_)))) (declare (not safe)) (gxc#!predicate:::init! - __obj179694 - __tmp179858)) - __obj179694)) - _%hd172761172783%_) - (_%g172754172767%_ _%g172755172770%_)))) - (_%g172754172767%_ _%g172755172770%_)))) - (_%g172754172767%_ _%g172755172770%_))))) - (_%g172753172800%_ _%ann172752%_)))) + __obj183238 + __tmp183402)) + __obj183238)) + _%hd176339176361%_) + (_%g176332176345%_ _%g176333176348%_)))) + (_%g176332176345%_ _%g176333176348%_)))) + (_%g176332176345%_ _%g176333176348%_))))) + (_%g176331176378%_ _%ann176330%_)))) (define gxc#basic-expression-type-annotation-mop.accessor - (lambda (_%stx172667%_ _%ann172668%_) - (let* ((_%g172670172691%_ - (lambda (_%g172671172688%_) + (lambda (_%stx176245%_ _%ann176246%_) + (let* ((_%g176248176269%_ + (lambda (_%g176249176266%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g172671172688%_)))) - (_%g172669172748%_ - (lambda (_%g172671172694%_) + _%g176249176266%_)))) + (_%g176247176326%_ + (lambda (_%g176249176272%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g172671172694%_)) - (let ((_%e172675172696%_ + (gx#stx-pair? _%g176249176272%_)) + (let ((_%e176253176274%_ (let () (declare (not safe)) - (gx#stx-e _%g172671172694%_)))) - (let ((_%hd172676172699%_ + (gx#stx-e _%g176249176272%_)))) + (let ((_%hd176254176277%_ (let () (declare (not safe)) - (##car _%e172675172696%_))) - (_%tl172677172701%_ + (##car _%e176253176274%_))) + (_%tl176255176279%_ (let () (declare (not safe)) - (##cdr _%e172675172696%_)))) + (##cdr _%e176253176274%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172677172701%_)) - (let ((_%e172678172704%_ + (gx#stx-pair? _%tl176255176279%_)) + (let ((_%e176256176282%_ (let () (declare (not safe)) - (gx#stx-e _%tl172677172701%_)))) - (let ((_%hd172679172707%_ + (gx#stx-e _%tl176255176279%_)))) + (let ((_%hd176257176285%_ (let () (declare (not safe)) - (##car _%e172678172704%_))) - (_%tl172680172709%_ + (##car _%e176256176282%_))) + (_%tl176258176287%_ (let () (declare (not safe)) - (##cdr _%e172678172704%_)))) + (##cdr _%e176256176282%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172680172709%_)) - (let ((_%e172681172712%_ + (gx#stx-pair? _%tl176258176287%_)) + (let ((_%e176259176290%_ (let () (declare (not safe)) - (gx#stx-e _%tl172680172709%_)))) - (let ((_%hd172682172715%_ + (gx#stx-e _%tl176258176287%_)))) + (let ((_%hd176260176293%_ (let () (declare (not safe)) - (##car _%e172681172712%_))) - (_%tl172683172717%_ + (##car _%e176259176290%_))) + (_%tl176261176295%_ (let () (declare (not safe)) - (##cdr _%e172681172712%_)))) + (##cdr _%e176259176290%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172683172717%_)) - (let ((_%e172684172720%_ + _%tl176261176295%_)) + (let ((_%e176262176298%_ (let () (declare (not safe)) (gx#stx-e - _%tl172683172717%_)))) - (let ((_%hd172685172723%_ + _%tl176261176295%_)))) + (let ((_%hd176263176301%_ (let () (declare (not safe)) - (##car _%e172684172720%_))) - (_%tl172686172725%_ + (##car _%e176262176298%_))) + (_%tl176264176303%_ (let () (declare (not safe)) - (##cdr _%e172684172720%_)))) + (##cdr _%e176262176298%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172686172725%_)) - ((lambda (_%L172728%_ - _%L172729%_ - _%L172730%_) - (let ((__obj179695 + _%tl176264176303%_)) + ((lambda (_%g176250176306%_ + _%g176251176307%_ + _%g176252176308%_) + (let ((__obj183239 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure gxc#!accessor::t '#f '#f '#f '#f)))) - (let ((__tmp179861 + (let ((__tmp183405 + (let () + (declare (not safe)) + (gxc#identifier-symbol _%g176252176308%_))) + (__tmp183404 (let () (declare (not safe)) - (gxc#identifier-symbol _%L172730%_))) - (__tmp179860 - (let () (declare (not safe)) (gx#stx-e _%L172729%_))) - (__tmp179859 + (gx#stx-e _%g176251176307%_))) + (__tmp183403 (let () (declare (not safe)) - (gx#stx-e _%L172728%_)))) + (gx#stx-e _%g176250176306%_)))) (declare (not safe)) (gxc#!accessor:::init! - __obj179695 - __tmp179861 - __tmp179860 - __tmp179859)) - __obj179695)) - _%hd172685172723%_ - _%hd172682172715%_ - _%hd172679172707%_) - (_%g172670172691%_ _%g172671172694%_)))) + __obj183239 + __tmp183405 + __tmp183404 + __tmp183403)) + __obj183239)) + _%hd176263176301%_ + _%hd176260176293%_ + _%hd176257176285%_) + (_%g176248176269%_ _%g176249176272%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g172670172691%_ - _%g172671172694%_)))) - (_%g172670172691%_ _%g172671172694%_)))) - (_%g172670172691%_ _%g172671172694%_)))) - (_%g172670172691%_ _%g172671172694%_))))) - (_%g172669172748%_ _%ann172668%_)))) + (_%g176248176269%_ + _%g176249176272%_)))) + (_%g176248176269%_ _%g176249176272%_)))) + (_%g176248176269%_ _%g176249176272%_)))) + (_%g176248176269%_ _%g176249176272%_))))) + (_%g176247176326%_ _%ann176246%_)))) (define gxc#basic-expression-type-annotation-mop.mutator - (lambda (_%stx172583%_ _%ann172584%_) - (let* ((_%g172586172607%_ - (lambda (_%g172587172604%_) + (lambda (_%stx176161%_ _%ann176162%_) + (let* ((_%g176164176185%_ + (lambda (_%g176165176182%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g172587172604%_)))) - (_%g172585172664%_ - (lambda (_%g172587172610%_) + _%g176165176182%_)))) + (_%g176163176242%_ + (lambda (_%g176165176188%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g172587172610%_)) - (let ((_%e172591172612%_ + (gx#stx-pair? _%g176165176188%_)) + (let ((_%e176169176190%_ (let () (declare (not safe)) - (gx#stx-e _%g172587172610%_)))) - (let ((_%hd172592172615%_ + (gx#stx-e _%g176165176188%_)))) + (let ((_%hd176170176193%_ (let () (declare (not safe)) - (##car _%e172591172612%_))) - (_%tl172593172617%_ + (##car _%e176169176190%_))) + (_%tl176171176195%_ (let () (declare (not safe)) - (##cdr _%e172591172612%_)))) + (##cdr _%e176169176190%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172593172617%_)) - (let ((_%e172594172620%_ + (gx#stx-pair? _%tl176171176195%_)) + (let ((_%e176172176198%_ (let () (declare (not safe)) - (gx#stx-e _%tl172593172617%_)))) - (let ((_%hd172595172623%_ + (gx#stx-e _%tl176171176195%_)))) + (let ((_%hd176173176201%_ (let () (declare (not safe)) - (##car _%e172594172620%_))) - (_%tl172596172625%_ + (##car _%e176172176198%_))) + (_%tl176174176203%_ (let () (declare (not safe)) - (##cdr _%e172594172620%_)))) + (##cdr _%e176172176198%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172596172625%_)) - (let ((_%e172597172628%_ + (gx#stx-pair? _%tl176174176203%_)) + (let ((_%e176175176206%_ (let () (declare (not safe)) - (gx#stx-e _%tl172596172625%_)))) - (let ((_%hd172598172631%_ + (gx#stx-e _%tl176174176203%_)))) + (let ((_%hd176176176209%_ (let () (declare (not safe)) - (##car _%e172597172628%_))) - (_%tl172599172633%_ + (##car _%e176175176206%_))) + (_%tl176177176211%_ (let () (declare (not safe)) - (##cdr _%e172597172628%_)))) + (##cdr _%e176175176206%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172599172633%_)) - (let ((_%e172600172636%_ + _%tl176177176211%_)) + (let ((_%e176178176214%_ (let () (declare (not safe)) (gx#stx-e - _%tl172599172633%_)))) - (let ((_%hd172601172639%_ + _%tl176177176211%_)))) + (let ((_%hd176179176217%_ (let () (declare (not safe)) - (##car _%e172600172636%_))) - (_%tl172602172641%_ + (##car _%e176178176214%_))) + (_%tl176180176219%_ (let () (declare (not safe)) - (##cdr _%e172600172636%_)))) + (##cdr _%e176178176214%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172602172641%_)) - ((lambda (_%L172644%_ - _%L172645%_ - _%L172646%_) - (let ((__obj179696 + _%tl176180176219%_)) + ((lambda (_%g176166176222%_ + _%g176167176223%_ + _%g176168176224%_) + (let ((__obj183240 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure gxc#!mutator::t '#f '#f '#f '#f)))) - (let ((__tmp179864 + (let ((__tmp183408 + (let () + (declare (not safe)) + (gxc#identifier-symbol _%g176168176224%_))) + (__tmp183407 (let () (declare (not safe)) - (gxc#identifier-symbol _%L172646%_))) - (__tmp179863 - (let () (declare (not safe)) (gx#stx-e _%L172645%_))) - (__tmp179862 + (gx#stx-e _%g176167176223%_))) + (__tmp183406 (let () (declare (not safe)) - (gx#stx-e _%L172644%_)))) + (gx#stx-e _%g176166176222%_)))) (declare (not safe)) (gxc#!mutator:::init! - __obj179696 - __tmp179864 - __tmp179863 - __tmp179862)) - __obj179696)) - _%hd172601172639%_ - _%hd172598172631%_ - _%hd172595172623%_) - (_%g172586172607%_ _%g172587172610%_)))) + __obj183240 + __tmp183408 + __tmp183407 + __tmp183406)) + __obj183240)) + _%hd176179176217%_ + _%hd176176176209%_ + _%hd176173176201%_) + (_%g176164176185%_ _%g176165176188%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g172586172607%_ - _%g172587172610%_)))) - (_%g172586172607%_ _%g172587172610%_)))) - (_%g172586172607%_ _%g172587172610%_)))) - (_%g172586172607%_ _%g172587172610%_))))) - (_%g172585172664%_ _%ann172584%_)))) + (_%g176164176185%_ + _%g176165176188%_)))) + (_%g176164176185%_ _%g176165176188%_)))) + (_%g176164176185%_ _%g176165176188%_)))) + (_%g176164176185%_ _%g176165176188%_))))) + (_%g176163176242%_ _%ann176162%_)))) (define gxc#basic-expression-type-annotation-interface - (lambda (_%stx172515%_ _%ann172516%_) - (let* ((_%g172518172535%_ - (lambda (_%g172519172532%_) + (lambda (_%stx176093%_ _%ann176094%_) + (let* ((_%g176096176113%_ + (lambda (_%g176097176110%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g172519172532%_)))) - (_%g172517172580%_ - (lambda (_%g172519172538%_) + _%g176097176110%_)))) + (_%g176095176158%_ + (lambda (_%g176097176116%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g172519172538%_)) - (let ((_%e172522172540%_ + (gx#stx-pair? _%g176097176116%_)) + (let ((_%e176100176118%_ (let () (declare (not safe)) - (gx#stx-e _%g172519172538%_)))) - (let ((_%hd172523172543%_ + (gx#stx-e _%g176097176116%_)))) + (let ((_%hd176101176121%_ (let () (declare (not safe)) - (##car _%e172522172540%_))) - (_%tl172524172545%_ + (##car _%e176100176118%_))) + (_%tl176102176123%_ (let () (declare (not safe)) - (##cdr _%e172522172540%_)))) + (##cdr _%e176100176118%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172524172545%_)) - (let ((_%e172525172548%_ + (gx#stx-pair? _%tl176102176123%_)) + (let ((_%e176103176126%_ (let () (declare (not safe)) - (gx#stx-e _%tl172524172545%_)))) - (let ((_%hd172526172551%_ + (gx#stx-e _%tl176102176123%_)))) + (let ((_%hd176104176129%_ (let () (declare (not safe)) - (##car _%e172525172548%_))) - (_%tl172527172553%_ + (##car _%e176103176126%_))) + (_%tl176105176131%_ (let () (declare (not safe)) - (##cdr _%e172525172548%_)))) + (##cdr _%e176103176126%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172527172553%_)) - (let ((_%e172528172556%_ + (gx#stx-pair? _%tl176105176131%_)) + (let ((_%e176106176134%_ (let () (declare (not safe)) - (gx#stx-e _%tl172527172553%_)))) - (let ((_%hd172529172559%_ + (gx#stx-e _%tl176105176131%_)))) + (let ((_%hd176107176137%_ (let () (declare (not safe)) - (##car _%e172528172556%_))) - (_%tl172530172561%_ + (##car _%e176106176134%_))) + (_%tl176108176139%_ (let () (declare (not safe)) - (##cdr _%e172528172556%_)))) + (##cdr _%e176106176134%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172530172561%_)) - ((lambda (_%L172564%_ - _%L172565%_) - (let ((__tmp179866 + _%tl176108176139%_)) + ((lambda (_%g176098176142%_ + _%g176099176143%_) + (let ((__tmp183410 (let () (declare (not safe)) (gxc#identifier-symbol - _%L172565%_))) - (__tmp179865 + _%g176099176143%_))) + (__tmp183409 (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _%L172564%_)))) + _%g176098176142%_)))) (declare (not safe)) (##structure gxc#!interface::t - __tmp179866 - __tmp179865))) - _%hd172529172559%_ - _%hd172526172551%_) - (_%g172518172535%_ - _%g172519172538%_)))) - (_%g172518172535%_ _%g172519172538%_)))) - (_%g172518172535%_ _%g172519172538%_)))) - (_%g172518172535%_ _%g172519172538%_))))) - (_%g172517172580%_ _%ann172516%_)))) + __tmp183410 + __tmp183409))) + _%hd176107176137%_ + _%hd176104176129%_) + (_%g176096176113%_ + _%g176097176116%_)))) + (_%g176096176113%_ _%g176097176116%_)))) + (_%g176096176113%_ _%g176097176116%_)))) + (_%g176096176113%_ _%g176097176116%_))))) + (_%g176095176158%_ _%ann176094%_)))) (define gxc#basic-expression-type-annotation-predicate - (lambda (_%stx172463%_ _%ann172464%_) - (let* ((_%g172466172479%_ - (lambda (_%g172467172476%_) + (lambda (_%stx176041%_ _%ann176042%_) + (let* ((_%g176044176057%_ + (lambda (_%g176045176054%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g172467172476%_)))) - (_%g172465172512%_ - (lambda (_%g172467172482%_) + _%g176045176054%_)))) + (_%g176043176090%_ + (lambda (_%g176045176060%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g172467172482%_)) - (let ((_%e172469172484%_ + (gx#stx-pair? _%g176045176060%_)) + (let ((_%e176047176062%_ (let () (declare (not safe)) - (gx#stx-e _%g172467172482%_)))) - (let ((_%hd172470172487%_ + (gx#stx-e _%g176045176060%_)))) + (let ((_%hd176048176065%_ (let () (declare (not safe)) - (##car _%e172469172484%_))) - (_%tl172471172489%_ + (##car _%e176047176062%_))) + (_%tl176049176067%_ (let () (declare (not safe)) - (##cdr _%e172469172484%_)))) + (##cdr _%e176047176062%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172471172489%_)) - (let ((_%e172472172492%_ + (gx#stx-pair? _%tl176049176067%_)) + (let ((_%e176050176070%_ (let () (declare (not safe)) - (gx#stx-e _%tl172471172489%_)))) - (let ((_%hd172473172495%_ + (gx#stx-e _%tl176049176067%_)))) + (let ((_%hd176051176073%_ (let () (declare (not safe)) - (##car _%e172472172492%_))) - (_%tl172474172497%_ + (##car _%e176050176070%_))) + (_%tl176052176075%_ (let () (declare (not safe)) - (##cdr _%e172472172492%_)))) + (##cdr _%e176050176070%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172474172497%_)) - ((lambda (_%L172500%_) - (let ((__obj179697 + (gx#stx-null? _%tl176052176075%_)) + ((lambda (_%g176046176078%_) + (let ((__obj183241 (let () (declare (not safe)) (##structure gxc#!primitive-predicate::t '#f '#f)))) - (let ((__tmp179867 + (let ((__tmp183411 (let () (declare (not safe)) (gxc#identifier-symbol - _%L172500%_)))) + _%g176046176078%_)))) (declare (not safe)) (gxc#!primitive-predicate:::init! - __obj179697 - __tmp179867)) - __obj179697)) - _%hd172473172495%_) - (_%g172466172479%_ _%g172467172482%_)))) - (_%g172466172479%_ _%g172467172482%_)))) - (_%g172466172479%_ _%g172467172482%_))))) - (_%g172465172512%_ _%ann172464%_)))) + __obj183241 + __tmp183411)) + __obj183241)) + _%hd176051176073%_) + (_%g176044176057%_ _%g176045176060%_)))) + (_%g176044176057%_ _%g176045176060%_)))) + (_%g176044176057%_ _%g176045176060%_))))) + (_%g176043176090%_ _%ann176042%_)))) (define gxc#basic-expression-type-annotation-abort - (lambda (_%stx172433%_ _%ann172434%_) - (let* ((_%g172436172445%_ - (lambda (_%g172437172442%_) + (lambda (_%stx176011%_ _%ann176012%_) + (let* ((_%g176014176023%_ + (lambda (_%g176015176020%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g172437172442%_)))) - (_%g172435172460%_ - (lambda (_%g172437172448%_) + _%g176015176020%_)))) + (_%g176013176038%_ + (lambda (_%g176015176026%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g172437172448%_)) - (let ((_%e172438172450%_ + (gx#stx-pair? _%g176015176026%_)) + (let ((_%e176016176028%_ (let () (declare (not safe)) - (gx#stx-e _%g172437172448%_)))) - (let ((_%hd172439172453%_ + (gx#stx-e _%g176015176026%_)))) + (let ((_%hd176017176031%_ (let () (declare (not safe)) - (##car _%e172438172450%_))) - (_%tl172440172455%_ + (##car _%e176016176028%_))) + (_%tl176018176033%_ (let () (declare (not safe)) - (##cdr _%e172438172450%_)))) + (##cdr _%e176016176028%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172440172455%_)) + (gx#stx-null? _%tl176018176033%_)) ((lambda () - (let ((__obj179698 + (let ((__obj183242 (let () (declare (not safe)) (##structure gxc#!abort::t '#f)))) (let () (declare (not safe)) - (gxc#!abort:::init! __obj179698)) - __obj179698))) - (_%g172436172445%_ _%g172437172448%_)))) - (_%g172436172445%_ _%g172437172448%_))))) - (_%g172435172460%_ _%ann172434%_)))) + (gxc#!abort:::init! __obj183242)) + __obj183242))) + (_%g176014176023%_ _%g176015176026%_)))) + (_%g176014176023%_ _%g176015176026%_))))) + (_%g176013176038%_ _%ann176012%_)))) (let () (declare (not safe)) (__hash-put! @@ -9025,19 +9073,19 @@ '@abort gxc#basic-expression-type-annotation-abort)) (define gxc#raw-expression-type-lambda% - (lambda (_%self172365%_ _%stx172366%_) - (let* ((_%__stx177536177537%_ _%stx172366%_) - (_%g172369172383%_ + (lambda (_%self175943%_ _%stx175944%_) + (let* ((_%__stx181080181081%_ _%stx175944%_) + (_%g175947175961%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx177536177537%_))))) - (let ((_%__kont177538177539%_ - (lambda (_%L172421%_) - (let ((__obj179699 + _%__stx181080181081%_))))) + (let ((_%__kont181082181083%_ + (lambda (_%g175949175999%_) + (let ((__obj183243 (let () (declare (not safe)) (##structure @@ -9048,22 +9096,24 @@ '#f '#f '#f)))) - (let ((__tmp179869 (gxc#lambda-form-arity _%L172421%_)) - (__tmp179868 - (gxc#dispatch-lambda-form-delegate _%L172421%_))) + (let ((__tmp183413 + (gxc#lambda-form-arity _%g175949175999%_)) + (__tmp183412 + (gxc#dispatch-lambda-form-delegate + _%g175949175999%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f absent-value - __obj179699 - __tmp179869 - __tmp179868)) - __obj179699))) - (_%__kont177540177541%_ - (lambda (_%L172396%_) - (let* ((_%signature172406%_ - (gxc#lambda-form-infer-signature _%L172396%_)) - (__obj179700 + __obj183243 + __tmp183413 + __tmp183412)) + __obj183243))) + (_%__kont181084181085%_ + (lambda (_%g175953175974%_) + (let* ((_%signature175984%_ + (gxc#lambda-form-infer-signature _%g175953175974%_)) + (__obj183244 (let () (declare (not safe)) (##structure @@ -9074,98 +9124,99 @@ '#f '#f '#f)))) - (let ((__tmp179870 (gxc#lambda-form-arity _%L172396%_))) + (let ((__tmp183414 + (gxc#lambda-form-arity _%g175953175974%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature172406%_ - __obj179700 - __tmp179870 + _%signature175984%_ + __obj183244 + __tmp183414 '#f)) - __obj179700)))) - (let ((_%__match177547177548%_ - (lambda (_%e172372172413%_ - _%hd172373172416%_ - _%tl172374172418%_) - (let ((_%L172421%_ _%tl172374172418%_)) - (if (gxc#dispatch-lambda-form? _%L172421%_) - (_%__kont177538177539%_ _%L172421%_) - (_%__kont177540177541%_ _%tl172374172418%_)))))) + __obj183244)))) + (let ((_%__match181091181092%_ + (lambda (_%e175950175991%_ + _%hd175951175994%_ + _%tl175952175996%_) + (let ((_%g175949175999%_ _%tl175952175996%_)) + (if (gxc#dispatch-lambda-form? _%g175949175999%_) + (_%__kont181082181083%_ _%g175949175999%_) + (_%__kont181084181085%_ _%tl175952175996%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx177536177537%_)) - (let ((_%e172372172413%_ + (gx#stx-pair? _%__stx181080181081%_)) + (let ((_%e175950175991%_ (let () (declare (not safe)) - (gx#stx-e _%__stx177536177537%_)))) - (let ((_%tl172374172418%_ + (gx#stx-e _%__stx181080181081%_)))) + (let ((_%tl175952175996%_ (let () (declare (not safe)) - (##cdr _%e172372172413%_))) - (_%hd172373172416%_ + (##cdr _%e175950175991%_))) + (_%hd175951175994%_ (let () (declare (not safe)) - (##car _%e172372172413%_)))) - (_%__match177547177548%_ - _%e172372172413%_ - _%hd172373172416%_ - _%tl172374172418%_))) - (let () (declare (not safe)) (_%g172369172383%_)))))))) + (##car _%e175950175991%_)))) + (_%__match181091181092%_ + _%e175950175991%_ + _%hd175951175994%_ + _%tl175952175996%_))) + (let () (declare (not safe)) (_%g175947175961%_)))))))) (define gxc#basic-expression-type-lambda% - (lambda (_%self171509%_ _%stx171510%_) - (let* ((_%__stx177556177557%_ _%stx171510%_) - (_%g171515171707%_ + (lambda (_%self175095%_ _%stx175096%_) + (let* ((_%__stx181100181101%_ _%stx175096%_) + (_%g175101175293%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx177556177557%_))))) - (let ((_%__kont177558177559%_ - (lambda (_%L172302%_ - _%L172303%_ - _%L172304%_ - _%L172305%_ - _%L172306%_ - _%L172307%_) - (let* ((_%tab172357%_ + _%__stx181100181101%_))))) + (let ((_%__kont181102181103%_ + (lambda (_%g175103175880%_ + _%g175104175881%_ + _%g175105175882%_ + _%g175106175883%_ + _%g175107175884%_ + _%g175108175885%_) + (let* ((_%tab175935%_ (let () (declare (not safe)) - (gx#stx-e _%L172304%_))) - (_%keys172359%_ - (if _%tab172357%_ - (let ((__tmp179871 - (vector->list _%tab172357%_))) + (gx#stx-e _%g175105175882%_))) + (_%keys175937%_ + (if _%tab175935%_ + (let ((__tmp183415 + (vector->list _%tab175935%_))) (declare (not safe)) - (##filter identity __tmp179871)) + (##filter identity __tmp183415)) '#f)) - (__obj179701 + (__obj183245 (let () (declare (not safe)) (##structure gxc#!kw-lambda::t '#f '#f '#f '#f)))) - (let ((__tmp179872 + (let ((__tmp183416 (let () (declare (not safe)) - (gxc#identifier-symbol _%L172303%_)))) + (gxc#identifier-symbol _%g175104175881%_)))) (declare (not safe)) (gxc#!kw-lambda:::init! - __obj179701 - _%keys172359%_ - __tmp179872)) - __obj179701))) - (_%__kont177560177561%_ - (lambda (_%L172035%_ - _%L172036%_ - _%L172037%_ - _%L172038%_ - _%L172039%_ - _%L172040%_ - _%L172041%_ - _%L172042%_ - _%L172043%_ - _%L172044%_) - (let ((__obj179702 + __obj183245 + _%keys175937%_ + __tmp183416)) + __obj183245))) + (_%__kont181104181105%_ + (lambda (_%g175166175613%_ + _%g175167175614%_ + _%g175168175615%_ + _%g175169175616%_ + _%g175170175617%_ + _%g175171175618%_ + _%g175172175619%_ + _%g175173175620%_ + _%g175174175621%_ + _%g175175175622%_) + (let ((__obj183246 (let () (declare (not safe)) (##structure @@ -9174,28 +9225,31 @@ '#f '#f '#f)))) - (let ((__tmp179874 + (let ((__tmp183418 (map gx#stx-e - (let ((__tmp179875 - (lambda (_%g172137172140%_ - _%g172138172142%_) - (cons _%g172137172140%_ - _%g172138172142%_)))) + (let ((__tmp183419 + (lambda (_%g175715175718%_ + _%g175716175720%_) + (cons _%g175715175718%_ + _%g175716175720%_)))) (declare (not safe)) - (__foldr1 __tmp179875 '() _%L172037%_)))) - (__tmp179873 + (__foldr1 + __tmp183419 + '() + _%g175168175615%_)))) + (__tmp183417 (let () (declare (not safe)) - (gxc#identifier-symbol _%L172041%_)))) + (gxc#identifier-symbol _%g175172175619%_)))) (declare (not safe)) (gxc#!kw-lambda-primary:::init! - __obj179702 - __tmp179874 - __tmp179873)) - __obj179702))) - (_%__kont177564177565%_ - (lambda (_%L171745%_) - (let ((__obj179703 + __obj183246 + __tmp183418 + __tmp183417)) + __obj183246))) + (_%__kont181108181109%_ + (lambda (_%g175281175331%_) + (let ((__obj183247 (let () (declare (not safe)) (##structure @@ -9206,22 +9260,24 @@ '#f '#f '#f)))) - (let ((__tmp179877 (gxc#lambda-form-arity _%L171745%_)) - (__tmp179876 - (gxc#dispatch-lambda-form-delegate _%L171745%_))) + (let ((__tmp183421 + (gxc#lambda-form-arity _%g175281175331%_)) + (__tmp183420 + (gxc#dispatch-lambda-form-delegate + _%g175281175331%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f absent-value - __obj179703 - __tmp179877 - __tmp179876)) - __obj179703))) - (_%__kont177566177567%_ - (lambda (_%L171720%_) - (let* ((_%signature171730%_ - (gxc#lambda-form-infer-signature _%L171720%_)) - (__obj179704 + __obj183247 + __tmp183421 + __tmp183420)) + __obj183247))) + (_%__kont181110181111%_ + (lambda (_%g175285175306%_) + (let* ((_%signature175316%_ + (gxc#lambda-form-infer-signature _%g175285175306%_)) + (__obj183248 (let () (declare (not safe)) (##structure @@ -9232,1937 +9288,1938 @@ '#f '#f '#f)))) - (let ((__tmp179878 (gxc#lambda-form-arity _%L171720%_))) + (let ((__tmp183422 + (gxc#lambda-form-arity _%g175285175306%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature171730%_ - __obj179704 - __tmp179878 + _%signature175316%_ + __obj183248 + __tmp183422 '#f)) - __obj179704)))) - (let* ((_%__match177865177866%_ - (lambda (_%e171696171737%_ - _%hd171697171740%_ - _%tl171698171742%_) - (let ((_%L171745%_ _%tl171698171742%_)) - (if (gxc#dispatch-lambda-form? _%L171745%_) - (_%__kont177564177565%_ _%L171745%_) - (_%__kont177566177567%_ _%tl171698171742%_))))) - (_%__match177859177860%_ - (lambda (_%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_ - _%e171593171767%_ - _%hd171594171770%_ - _%tl171595171772%_ - _%e171596171775%_ - _%hd171597171778%_ - _%tl171598171780%_ - _%e171599171783%_ - _%hd171600171786%_ - _%tl171601171788%_ - _%e171602171791%_ - _%hd171603171794%_ - _%tl171604171796%_ - _%e171605171799%_ - _%hd171606171802%_ - _%tl171607171804%_ - _%e171608171807%_ - _%hd171609171810%_ - _%tl171610171812%_ - _%e171611171815%_ - _%hd171612171818%_ - _%tl171613171820%_ - _%e171614171823%_ - _%hd171615171826%_ - _%tl171616171828%_ - _%e171617171831%_ - _%hd171618171834%_ - _%tl171619171836%_ - _%e171620171839%_ - _%hd171621171842%_ - _%tl171622171844%_ - _%e171623171847%_ - _%hd171624171850%_ - _%tl171625171852%_ - _%e171626171855%_ - _%hd171627171858%_ - _%tl171628171860%_ - _%e171629171863%_ - _%hd171630171866%_ - _%tl171631171868%_ - _%__splice177562177563%_ - _%target171632171871%_ - _%tl171634171873%_ - _%e171647171876%_ - _%hd171648171879%_ - _%tl171649171881%_ - _%e171650171884%_ - _%hd171651171887%_ - _%tl171652171889%_ - _%e171653171892%_ - _%hd171654171895%_ - _%tl171655171897%_) - (letrec ((_%loop171635171900%_ - (lambda (_%hd171633171903%_ - _%-absent-value171639171905%_ - _%key171640171907%_ - _%-xkwvar171641171909%_ - _%-hash-ref171642171911%_) + __obj183248)))) + (let* ((_%__match181409181410%_ + (lambda (_%e175282175323%_ + _%hd175283175326%_ + _%tl175284175328%_) + (let ((_%g175281175331%_ _%tl175284175328%_)) + (if (gxc#dispatch-lambda-form? _%g175281175331%_) + (_%__kont181108181109%_ _%g175281175331%_) + (_%__kont181110181111%_ _%tl175284175328%_))))) + (_%__match181403181404%_ + (lambda (_%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_ + _%e175179175353%_ + _%hd175180175356%_ + _%tl175181175358%_ + _%e175182175361%_ + _%hd175183175364%_ + _%tl175184175366%_ + _%e175185175369%_ + _%hd175186175372%_ + _%tl175187175374%_ + _%e175188175377%_ + _%hd175189175380%_ + _%tl175190175382%_ + _%e175191175385%_ + _%hd175192175388%_ + _%tl175193175390%_ + _%e175194175393%_ + _%hd175195175396%_ + _%tl175196175398%_ + _%e175197175401%_ + _%hd175198175404%_ + _%tl175199175406%_ + _%e175200175409%_ + _%hd175201175412%_ + _%tl175202175414%_ + _%e175203175417%_ + _%hd175204175420%_ + _%tl175205175422%_ + _%e175206175425%_ + _%hd175207175428%_ + _%tl175208175430%_ + _%e175209175433%_ + _%hd175210175436%_ + _%tl175211175438%_ + _%e175212175441%_ + _%hd175213175444%_ + _%tl175214175446%_ + _%e175215175449%_ + _%hd175216175452%_ + _%tl175217175454%_ + _%__splice181106181107%_ + _%target175218175457%_ + _%tl175220175459%_ + _%e175233175462%_ + _%hd175234175465%_ + _%tl175235175467%_ + _%e175236175470%_ + _%hd175237175473%_ + _%tl175238175475%_ + _%e175239175478%_ + _%hd175240175481%_ + _%tl175241175483%_) + (letrec ((_%loop175221175486%_ + (lambda (_%hd175219175489%_ + _%-absent-value175225175491%_ + _%key175226175492%_ + _%-xkwvar175227175493%_ + _%-hash-ref175228175494%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171633171903%_)) - (let ((_%e171636171914%_ + (gx#stx-pair? _%hd175219175489%_)) + (let ((_%e175222175496%_ (let () (declare (not safe)) - (gx#stx-e _%hd171633171903%_)))) - (let ((_%lp-tl171638171919%_ + (gx#stx-e _%hd175219175489%_)))) + (let ((_%lp-tl175224175501%_ (let () (declare (not safe)) - (##cdr _%e171636171914%_))) - (_%lp-hd171637171917%_ + (##cdr _%e175222175496%_))) + (_%lp-hd175223175499%_ (let () (declare (not safe)) - (##car _%e171636171914%_)))) + (##car _%e175222175496%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd171637171917%_)) - (let ((_%e171656171922%_ + _%lp-hd175223175499%_)) + (let ((_%e175242175504%_ (let () (declare (not safe)) (gx#stx-e - _%lp-hd171637171917%_)))) - (let ((_%tl171658171927%_ + _%lp-hd175223175499%_)))) + (let ((_%tl175244175509%_ (let () (declare (not safe)) - (##cdr _%e171656171922%_))) - (_%hd171657171925%_ + (##cdr _%e175242175504%_))) + (_%hd175243175507%_ (let () (declare (not safe)) - (##car _%e171656171922%_)))) + (##car _%e175242175504%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd171657171925%_)) + _%hd175243175507%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd171657171925%_)) + _%hd175243175507%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl171658171927%_)) - (let ((_%e171659171930%_ + (gx#stx-pair? _%tl175244175509%_)) + (let ((_%e175245175512%_ (let () (declare (not safe)) - (gx#stx-e _%tl171658171927%_)))) - (let ((_%tl171661171935%_ + (gx#stx-e _%tl175244175509%_)))) + (let ((_%tl175247175517%_ (let () (declare (not safe)) - (##cdr _%e171659171930%_))) - (_%hd171660171933%_ + (##cdr _%e175245175512%_))) + (_%hd175246175515%_ (let () (declare (not safe)) - (##car _%e171659171930%_)))) + (##car _%e175245175512%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171660171933%_)) - (let ((_%e171662171938%_ + (gx#stx-pair? _%hd175246175515%_)) + (let ((_%e175248175520%_ (let () (declare (not safe)) - (gx#stx-e _%hd171660171933%_)))) - (let ((_%tl171664171943%_ + (gx#stx-e _%hd175246175515%_)))) + (let ((_%tl175250175525%_ (let () (declare (not safe)) - (##cdr _%e171662171938%_))) - (_%hd171663171941%_ + (##cdr _%e175248175520%_))) + (_%hd175249175523%_ (let () (declare (not safe)) - (##car _%e171662171938%_)))) + (##car _%e175248175520%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171663171941%_)) + (gx#identifier? _%hd175249175523%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd171663171941%_)) + _%hd175249175523%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171664171943%_)) - (let ((_%e171665171946%_ + _%tl175250175525%_)) + (let ((_%e175251175528%_ (let () (declare (not safe)) (gx#stx-e - _%tl171664171943%_)))) - (let ((_%tl171667171951%_ + _%tl175250175525%_)))) + (let ((_%tl175253175533%_ (let () (declare (not safe)) - (##cdr _%e171665171946%_))) - (_%hd171666171949%_ + (##cdr _%e175251175528%_))) + (_%hd175252175531%_ (let () (declare (not safe)) - (##car _%e171665171946%_)))) + (##car _%e175251175528%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171667171951%_)) + _%tl175253175533%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171661171935%_)) - (let ((_%e171668171954%_ + _%tl175247175517%_)) + (let ((_%e175254175536%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl171661171935%_)))) - (let ((_%tl171670171959%_ + (gx#stx-e _%tl175247175517%_)))) + (let ((_%tl175256175541%_ (let () (declare (not safe)) - (##cdr _%e171668171954%_))) - (_%hd171669171957%_ + (##cdr _%e175254175536%_))) + (_%hd175255175539%_ (let () (declare (not safe)) - (##car _%e171668171954%_)))) + (##car _%e175254175536%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171669171957%_)) - (let ((_%e171671171962%_ + (gx#stx-pair? _%hd175255175539%_)) + (let ((_%e175257175544%_ (let () (declare (not safe)) - (gx#stx-e _%hd171669171957%_)))) - (let ((_%tl171673171967%_ + (gx#stx-e _%hd175255175539%_)))) + (let ((_%tl175259175549%_ (let () (declare (not safe)) - (##cdr _%e171671171962%_))) - (_%hd171672171965%_ + (##cdr _%e175257175544%_))) + (_%hd175258175547%_ (let () (declare (not safe)) - (##car _%e171671171962%_)))) + (##car _%e175257175544%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171672171965%_)) + (gx#identifier? _%hd175258175547%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd171672171965%_)) + (gx#stx-eq? '%#ref _%hd175258175547%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171673171967%_)) - (let ((_%e171674171970%_ + (gx#stx-pair? _%tl175259175549%_)) + (let ((_%e175260175552%_ (let () (declare (not safe)) (gx#stx-e - _%tl171673171967%_)))) - (let ((_%tl171676171975%_ + _%tl175259175549%_)))) + (let ((_%tl175262175557%_ (let () (declare (not safe)) - (##cdr _%e171674171970%_))) - (_%hd171675171973%_ + (##cdr _%e175260175552%_))) + (_%hd175261175555%_ (let () (declare (not safe)) - (##car _%e171674171970%_)))) + (##car _%e175260175552%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171676171975%_)) + _%tl175262175557%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171670171959%_)) - (let ((_%e171677171978%_ + _%tl175256175541%_)) + (let ((_%e175263175560%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl171670171959%_)))) - (let ((_%tl171679171983%_ - (let () (declare (not safe)) (##cdr _%e171677171978%_))) - (_%hd171678171981%_ + (gx#stx-e _%tl175256175541%_)))) + (let ((_%tl175265175565%_ + (let () (declare (not safe)) (##cdr _%e175263175560%_))) + (_%hd175264175563%_ (let () (declare (not safe)) - (##car _%e171677171978%_)))) + (##car _%e175263175560%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171678171981%_)) - (let ((_%e171680171986%_ + (gx#stx-pair? _%hd175264175563%_)) + (let ((_%e175266175568%_ (let () (declare (not safe)) - (gx#stx-e _%hd171678171981%_)))) - (let ((_%tl171682171991%_ + (gx#stx-e _%hd175264175563%_)))) + (let ((_%tl175268175573%_ (let () (declare (not safe)) - (##cdr _%e171680171986%_))) - (_%hd171681171989%_ + (##cdr _%e175266175568%_))) + (_%hd175267175571%_ (let () (declare (not safe)) - (##car _%e171680171986%_)))) + (##car _%e175266175568%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171681171989%_)) + (gx#identifier? _%hd175267175571%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd171681171989%_)) + (gx#stx-eq? '%#quote _%hd175267175571%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171682171991%_)) - (let ((_%e171683171994%_ + (gx#stx-pair? _%tl175268175573%_)) + (let ((_%e175269175576%_ (let () (declare (not safe)) - (gx#stx-e _%tl171682171991%_)))) - (let ((_%tl171685171999%_ + (gx#stx-e _%tl175268175573%_)))) + (let ((_%tl175271175581%_ (let () (declare (not safe)) - (##cdr _%e171683171994%_))) - (_%hd171684171997%_ + (##cdr _%e175269175576%_))) + (_%hd175270175579%_ (let () (declare (not safe)) - (##car _%e171683171994%_)))) + (##car _%e175269175576%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171685171999%_)) + _%tl175271175581%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171679171983%_)) - (let ((_%e171686172002%_ + _%tl175265175565%_)) + (let ((_%e175272175584%_ (let () (declare (not safe)) (gx#stx-e - _%tl171679171983%_)))) - (let ((_%tl171688172007%_ + _%tl175265175565%_)))) + (let ((_%tl175274175589%_ (let () (declare (not safe)) - (##cdr _%e171686172002%_))) - (_%hd171687172005%_ + (##cdr _%e175272175584%_))) + (_%hd175273175587%_ (let () (declare (not safe)) - (##car _%e171686172002%_)))) + (##car _%e175272175584%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd171687172005%_)) - (let ((_%e171689172010%_ + _%hd175273175587%_)) + (let ((_%e175275175592%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd171687172005%_)))) - (let ((_%tl171691172015%_ + (gx#stx-e _%hd175273175587%_)))) + (let ((_%tl175277175597%_ (let () (declare (not safe)) - (##cdr _%e171689172010%_))) - (_%hd171690172013%_ + (##cdr _%e175275175592%_))) + (_%hd175276175595%_ (let () (declare (not safe)) - (##car _%e171689172010%_)))) + (##car _%e175275175592%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171690172013%_)) + (gx#identifier? _%hd175276175595%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd171690172013%_)) + (gx#stx-eq? '%#ref _%hd175276175595%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171691172015%_)) - (let ((_%e171692172018%_ + (gx#stx-pair? _%tl175277175597%_)) + (let ((_%e175278175600%_ (let () (declare (not safe)) - (gx#stx-e _%tl171691172015%_)))) - (let ((_%tl171694172023%_ + (gx#stx-e _%tl175277175597%_)))) + (let ((_%tl175280175605%_ (let () (declare (not safe)) - (##cdr _%e171692172018%_))) - (_%hd171693172021%_ + (##cdr _%e175278175600%_))) + (_%hd175279175603%_ (let () (declare (not safe)) - (##car _%e171692172018%_)))) + (##car _%e175278175600%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171694172023%_)) + (gx#stx-null? _%tl175280175605%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171688172007%_)) - (_%loop171635171900%_ - _%lp-tl171638171919%_ - (cons _%hd171693172021%_ - _%-absent-value171639171905%_) - (cons _%hd171684171997%_ - _%key171640171907%_) - (cons _%hd171675171973%_ - _%-xkwvar171641171909%_) - (cons _%hd171666171949%_ - _%-hash-ref171642171911%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) + _%tl175274175589%_)) + (_%loop175221175486%_ + _%lp-tl175224175501%_ + (cons _%hd175279175603%_ + _%-absent-value175225175491%_) + (cons _%hd175270175579%_ + _%key175226175492%_) + (cons _%hd175261175555%_ + _%-xkwvar175227175493%_) + (cons _%hd175252175531%_ + _%-hash-ref175228175494%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (let ((_%-hash-ref171646172032%_ - (reverse _%-hash-ref171642171911%_)) - (_%-xkwvar171645172030%_ - (reverse _%-xkwvar171641171909%_)) - (_%key171644172028%_ - (reverse _%key171640171907%_)) - (_%-absent-value171643172026%_ - (reverse _%-absent-value171639171905%_))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (let ((_%-hash-ref175232175611%_ + (reverse _%-hash-ref175228175494%_)) + (_%-xkwvar175231175610%_ + (reverse _%-xkwvar175227175493%_)) + (_%key175230175609%_ + (reverse _%key175226175492%_)) + (_%-absent-value175229175608%_ + (reverse _%-absent-value175225175491%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171601171788%_)) - (let ((_%L172035%_ - _%hd171654171895%_) - (_%L172036%_ - _%-absent-value171643172026%_) - (_%L172037%_ - _%key171644172028%_) - (_%L172038%_ - _%-xkwvar171645172030%_) - (_%L172039%_ - _%-hash-ref171646172032%_) - (_%L172040%_ - _%hd171630171866%_) - (_%L172041%_ - _%hd171621171842%_) - (_%L172042%_ - _%hd171612171818%_) - (_%L172043%_ - _%tl171598171780%_) - (_%L172044%_ - _%hd171597171778%_)) + _%tl175187175374%_)) + (let ((_%g175166175613%_ + _%hd175240175481%_) + (_%g175167175614%_ + _%-absent-value175229175608%_) + (_%g175168175615%_ + _%key175230175609%_) + (_%g175169175616%_ + _%-xkwvar175231175610%_) + (_%g175170175617%_ + _%-hash-ref175232175611%_) + (_%g175171175618%_ + _%hd175216175452%_) + (_%g175172175619%_ + _%hd175207175428%_) + (_%g175173175620%_ + _%hd175198175404%_) + (_%g175174175621%_ + _%tl175184175366%_) + (_%g175175175622%_ + _%hd175183175364%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L172044%_)) + _%g175175175622%_)) (let () (declare (not safe)) (gx#identifier? - _%L172043%_)) + _%g175174175621%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172042%_ + _%g175173175620%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L172044%_ - _%L172040%_)) - (let ((__tmp179879 - (let ((__tmp179880 + _%g175175175622%_ + _%g175171175618%_)) + (let ((__tmp183423 + (let ((__tmp183424 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g172097172100%_ _%g172098172102%_) - (cons _%g172097172100%_ _%g172098172102%_)))) + (lambda (_%g175675175678%_ _%g175676175680%_) + (cons _%g175675175678%_ _%g175676175680%_)))) (declare (not safe)) - (__foldr1 __tmp179880 '() _%L172037%_)))) + (__foldr1 __tmp183424 '() _%g175168175615%_)))) (declare (not safe)) - (__andmap1 gx#stx-keyword? __tmp179879)) - (let ((__tmp179883 - (lambda (_%g172104172106%_) + (__andmap1 gx#stx-keyword? __tmp183423)) + (let ((__tmp183427 + (lambda (_%g175682175684%_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%g172104172106%_ + _%g175682175684%_ 'symbolic-table-ref)))) - (__tmp179881 - (let ((__tmp179882 - (lambda (_%g172108172111%_ _%g172109172113%_) - (cons _%g172108172111%_ _%g172109172113%_)))) + (__tmp183425 + (let ((__tmp183426 + (lambda (_%g175686175689%_ _%g175687175691%_) + (cons _%g175686175689%_ _%g175687175691%_)))) (declare (not safe)) - (__foldr1 __tmp179882 '() _%L172039%_)))) + (__foldr1 __tmp183426 '() _%g175170175617%_)))) (declare (not safe)) - (__andmap1 __tmp179883 __tmp179881)) - (let ((__tmp179886 - (lambda (_%g172115172117%_) + (__andmap1 __tmp183427 __tmp183425)) + (let ((__tmp183430 + (lambda (_%g175693175695%_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%g172115172117%_ + _%g175693175695%_ 'absent-value)))) - (__tmp179884 - (let ((__tmp179885 - (lambda (_%g172119172122%_ _%g172120172124%_) - (cons _%g172119172122%_ _%g172120172124%_)))) + (__tmp183428 + (let ((__tmp183429 + (lambda (_%g175697175700%_ _%g175698175702%_) + (cons _%g175697175700%_ _%g175698175702%_)))) (declare (not safe)) - (__foldr1 __tmp179885 '() _%L172036%_)))) + (__foldr1 __tmp183429 '() _%g175167175614%_)))) (declare (not safe)) - (__andmap1 __tmp179886 __tmp179884)) - (let ((__tmp179889 - (lambda (_%g172126172128%_) + (__andmap1 __tmp183430 __tmp183428)) + (let ((__tmp183433 + (lambda (_%g175704175706%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g172126172128%_ - _%L172044%_)))) - (__tmp179887 - (let ((__tmp179888 - (lambda (_%g172130172133%_ _%g172131172135%_) - (cons _%g172130172133%_ _%g172131172135%_)))) + _%g175704175706%_ + _%g175175175622%_)))) + (__tmp183431 + (let ((__tmp183432 + (lambda (_%g175708175711%_ _%g175709175713%_) + (cons _%g175708175711%_ _%g175709175713%_)))) (declare (not safe)) - (__foldr1 __tmp179888 '() _%L172038%_)))) + (__foldr1 __tmp183432 '() _%g175169175616%_)))) (declare (not safe)) - (__andmap1 __tmp179889 __tmp179887))) + (__andmap1 __tmp183433 __tmp183431))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177560177561%_ - _%L172035%_ - _%L172036%_ - _%L172037%_ - _%L172038%_ - _%L172039%_ - _%L172040%_ - _%L172041%_ - _%L172042%_ - _%L172043%_ - _%L172044%_) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_))))))) - (_%loop171635171900%_ - _%target171632171871%_ + (_%__kont181104181105%_ + _%g175166175613%_ + _%g175167175614%_ + _%g175168175615%_ + _%g175169175616%_ + _%g175170175617%_ + _%g175171175618%_ + _%g175172175619%_ + _%g175173175620%_ + _%g175174175621%_ + _%g175175175622%_) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_))))))) + (_%loop175221175486%_ + _%target175218175457%_ '() '() '() '())))) - (_%__match177731177732%_ - (lambda (_%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_ - _%e171593171767%_ - _%hd171594171770%_ - _%tl171595171772%_) + (_%__match181275181276%_ + (lambda (_%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_ + _%e175179175353%_ + _%hd175180175356%_ + _%tl175181175358%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171594171770%_)) - (let ((_%e171596171775%_ + (gx#stx-pair? _%hd175180175356%_)) + (let ((_%e175182175361%_ (let () (declare (not safe)) - (gx#stx-e _%hd171594171770%_)))) - (let ((_%tl171598171780%_ + (gx#stx-e _%hd175180175356%_)))) + (let ((_%tl175184175366%_ (let () (declare (not safe)) - (##cdr _%e171596171775%_))) - (_%hd171597171778%_ + (##cdr _%e175182175361%_))) + (_%hd175183175364%_ (let () (declare (not safe)) - (##car _%e171596171775%_)))) + (##car _%e175182175361%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171595171772%_)) - (let ((_%e171599171783%_ + (gx#stx-pair? _%tl175181175358%_)) + (let ((_%e175185175369%_ (let () (declare (not safe)) - (gx#stx-e _%tl171595171772%_)))) - (let ((_%tl171601171788%_ + (gx#stx-e _%tl175181175358%_)))) + (let ((_%tl175187175374%_ (let () (declare (not safe)) - (##cdr _%e171599171783%_))) - (_%hd171600171786%_ + (##cdr _%e175185175369%_))) + (_%hd175186175372%_ (let () (declare (not safe)) - (##car _%e171599171783%_)))) + (##car _%e175185175369%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171600171786%_)) - (let ((_%e171602171791%_ + (gx#stx-pair? _%hd175186175372%_)) + (let ((_%e175188175377%_ (let () (declare (not safe)) (gx#stx-e - _%hd171600171786%_)))) - (let ((_%tl171604171796%_ + _%hd175186175372%_)))) + (let ((_%tl175190175382%_ (let () (declare (not safe)) - (##cdr _%e171602171791%_))) - (_%hd171603171794%_ + (##cdr _%e175188175377%_))) + (_%hd175189175380%_ (let () (declare (not safe)) - (##car _%e171602171791%_)))) + (##car _%e175188175377%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd171603171794%_)) + _%hd175189175380%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd171603171794%_)) + _%hd175189175380%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171604171796%_)) - (let ((_%e171605171799%_ + _%tl175190175382%_)) + (let ((_%e175191175385%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl171604171796%_)))) - (let ((_%tl171607171804%_ + (gx#stx-e _%tl175190175382%_)))) + (let ((_%tl175193175390%_ (let () (declare (not safe)) - (##cdr _%e171605171799%_))) - (_%hd171606171802%_ + (##cdr _%e175191175385%_))) + (_%hd175192175388%_ (let () (declare (not safe)) - (##car _%e171605171799%_)))) + (##car _%e175191175385%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171606171802%_)) - (let ((_%e171608171807%_ + (gx#stx-pair? _%hd175192175388%_)) + (let ((_%e175194175393%_ (let () (declare (not safe)) - (gx#stx-e _%hd171606171802%_)))) - (let ((_%tl171610171812%_ + (gx#stx-e _%hd175192175388%_)))) + (let ((_%tl175196175398%_ (let () (declare (not safe)) - (##cdr _%e171608171807%_))) - (_%hd171609171810%_ + (##cdr _%e175194175393%_))) + (_%hd175195175396%_ (let () (declare (not safe)) - (##car _%e171608171807%_)))) + (##car _%e175194175393%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171609171810%_)) + (gx#identifier? _%hd175195175396%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd171609171810%_)) + (gx#stx-eq? '%#ref _%hd175195175396%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171610171812%_)) - (let ((_%e171611171815%_ + (gx#stx-pair? _%tl175196175398%_)) + (let ((_%e175197175401%_ (let () (declare (not safe)) (gx#stx-e - _%tl171610171812%_)))) - (let ((_%tl171613171820%_ + _%tl175196175398%_)))) + (let ((_%tl175199175406%_ (let () (declare (not safe)) - (##cdr _%e171611171815%_))) - (_%hd171612171818%_ + (##cdr _%e175197175401%_))) + (_%hd175198175404%_ (let () (declare (not safe)) - (##car _%e171611171815%_)))) + (##car _%e175197175401%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171613171820%_)) + _%tl175199175406%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171607171804%_)) - (let ((_%e171614171823%_ + _%tl175193175390%_)) + (let ((_%e175200175409%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl171607171804%_)))) - (let ((_%tl171616171828%_ - (let () (declare (not safe)) (##cdr _%e171614171823%_))) - (_%hd171615171826%_ + (gx#stx-e _%tl175193175390%_)))) + (let ((_%tl175202175414%_ + (let () (declare (not safe)) (##cdr _%e175200175409%_))) + (_%hd175201175412%_ (let () (declare (not safe)) - (##car _%e171614171823%_)))) + (##car _%e175200175409%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171615171826%_)) - (let ((_%e171617171831%_ + (gx#stx-pair? _%hd175201175412%_)) + (let ((_%e175203175417%_ (let () (declare (not safe)) - (gx#stx-e _%hd171615171826%_)))) - (let ((_%tl171619171836%_ + (gx#stx-e _%hd175201175412%_)))) + (let ((_%tl175205175422%_ (let () (declare (not safe)) - (##cdr _%e171617171831%_))) - (_%hd171618171834%_ + (##cdr _%e175203175417%_))) + (_%hd175204175420%_ (let () (declare (not safe)) - (##car _%e171617171831%_)))) + (##car _%e175203175417%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171618171834%_)) + (gx#identifier? _%hd175204175420%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd171618171834%_)) + (gx#stx-eq? '%#ref _%hd175204175420%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171619171836%_)) - (let ((_%e171620171839%_ + (gx#stx-pair? _%tl175205175422%_)) + (let ((_%e175206175425%_ (let () (declare (not safe)) - (gx#stx-e _%tl171619171836%_)))) - (let ((_%tl171622171844%_ + (gx#stx-e _%tl175205175422%_)))) + (let ((_%tl175208175430%_ (let () (declare (not safe)) - (##cdr _%e171620171839%_))) - (_%hd171621171842%_ + (##cdr _%e175206175425%_))) + (_%hd175207175428%_ (let () (declare (not safe)) - (##car _%e171620171839%_)))) + (##car _%e175206175425%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171622171844%_)) + _%tl175208175430%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171616171828%_)) - (let ((_%e171623171847%_ + _%tl175202175414%_)) + (let ((_%e175209175433%_ (let () (declare (not safe)) (gx#stx-e - _%tl171616171828%_)))) - (let ((_%tl171625171852%_ + _%tl175202175414%_)))) + (let ((_%tl175211175438%_ (let () (declare (not safe)) - (##cdr _%e171623171847%_))) - (_%hd171624171850%_ + (##cdr _%e175209175433%_))) + (_%hd175210175436%_ (let () (declare (not safe)) - (##car _%e171623171847%_)))) + (##car _%e175209175433%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd171624171850%_)) - (let ((_%e171626171855%_ + _%hd175210175436%_)) + (let ((_%e175212175441%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd171624171850%_)))) - (let ((_%tl171628171860%_ + (gx#stx-e _%hd175210175436%_)))) + (let ((_%tl175214175446%_ (let () (declare (not safe)) - (##cdr _%e171626171855%_))) - (_%hd171627171858%_ + (##cdr _%e175212175441%_))) + (_%hd175213175444%_ (let () (declare (not safe)) - (##car _%e171626171855%_)))) + (##car _%e175212175441%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171627171858%_)) + (gx#identifier? _%hd175213175444%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd171627171858%_)) + (gx#stx-eq? '%#ref _%hd175213175444%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171628171860%_)) - (let ((_%e171629171863%_ + (gx#stx-pair? _%tl175214175446%_)) + (let ((_%e175215175449%_ (let () (declare (not safe)) - (gx#stx-e _%tl171628171860%_)))) - (let ((_%tl171631171868%_ + (gx#stx-e _%tl175214175446%_)))) + (let ((_%tl175217175454%_ (let () (declare (not safe)) - (##cdr _%e171629171863%_))) - (_%hd171630171866%_ + (##cdr _%e175215175449%_))) + (_%hd175216175452%_ (let () (declare (not safe)) - (##car _%e171629171863%_)))) + (##car _%e175215175449%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171631171868%_)) + (gx#stx-null? _%tl175217175454%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl171625171852%_)) - (if (let ((__tmp179890 + _%tl175211175438%_)) + (if (let ((__tmp183434 (let () (declare (not safe)) (gx#stx-length - _%tl171625171852%_)))) + _%tl175211175438%_)))) (declare (not safe)) - (##fx>= __tmp179890 '1)) - (let ((_%__splice177562177563%_ + (##fx>= __tmp183434 '1)) + (let ((_%__splice181106181107%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl171625171852%_ + _%tl175211175438%_ '1)))) - (let ((_%tl171634171873%_ + (let ((_%tl175220175459%_ (let () (declare (not safe)) (##vector-ref - _%__splice177562177563%_ + _%__splice181106181107%_ '1))) - (_%target171632171871%_ + (_%target175218175457%_ (let () (declare (not safe)) (##vector-ref - _%__splice177562177563%_ + _%__splice181106181107%_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171634171873%_)) - (let ((_%e171647171876%_ + _%tl175220175459%_)) + (let ((_%e175233175462%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl171634171873%_)))) - (let ((_%tl171649171881%_ + (gx#stx-e _%tl175220175459%_)))) + (let ((_%tl175235175467%_ (let () (declare (not safe)) - (##cdr _%e171647171876%_))) - (_%hd171648171879%_ + (##cdr _%e175233175462%_))) + (_%hd175234175465%_ (let () (declare (not safe)) - (##car _%e171647171876%_)))) + (##car _%e175233175462%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171648171879%_)) - (let ((_%e171650171884%_ + (gx#stx-pair? _%hd175234175465%_)) + (let ((_%e175236175470%_ (let () (declare (not safe)) - (gx#stx-e _%hd171648171879%_)))) - (let ((_%tl171652171889%_ + (gx#stx-e _%hd175234175465%_)))) + (let ((_%tl175238175475%_ (let () (declare (not safe)) - (##cdr _%e171650171884%_))) - (_%hd171651171887%_ + (##cdr _%e175236175470%_))) + (_%hd175237175473%_ (let () (declare (not safe)) - (##car _%e171650171884%_)))) + (##car _%e175236175470%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171651171887%_)) + (gx#identifier? _%hd175237175473%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd171651171887%_)) + (gx#stx-eq? '%#ref _%hd175237175473%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171652171889%_)) - (let ((_%e171653171892%_ + (gx#stx-pair? _%tl175238175475%_)) + (let ((_%e175239175478%_ (let () (declare (not safe)) (gx#stx-e - _%tl171652171889%_)))) - (let ((_%tl171655171897%_ + _%tl175238175475%_)))) + (let ((_%tl175241175483%_ (let () (declare (not safe)) - (##cdr _%e171653171892%_))) - (_%hd171654171895%_ + (##cdr _%e175239175478%_))) + (_%hd175240175481%_ (let () (declare (not safe)) - (##car _%e171653171892%_)))) + (##car _%e175239175478%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171655171897%_)) + _%tl175241175483%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171649171881%_)) - (_%__match177859177860%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_ - _%e171593171767%_ - _%hd171594171770%_ - _%tl171595171772%_ - _%e171596171775%_ - _%hd171597171778%_ - _%tl171598171780%_ - _%e171599171783%_ - _%hd171600171786%_ - _%tl171601171788%_ - _%e171602171791%_ - _%hd171603171794%_ - _%tl171604171796%_ - _%e171605171799%_ - _%hd171606171802%_ - _%tl171607171804%_ - _%e171608171807%_ - _%hd171609171810%_ - _%tl171610171812%_ - _%e171611171815%_ - _%hd171612171818%_ - _%tl171613171820%_ - _%e171614171823%_ - _%hd171615171826%_ - _%tl171616171828%_ - _%e171617171831%_ - _%hd171618171834%_ - _%tl171619171836%_ - _%e171620171839%_ - _%hd171621171842%_ - _%tl171622171844%_ - _%e171623171847%_ - _%hd171624171850%_ - _%tl171625171852%_ - _%e171626171855%_ - _%hd171627171858%_ - _%tl171628171860%_ - _%e171629171863%_ - _%hd171630171866%_ - _%tl171631171868%_ - _%__splice177562177563%_ - _%target171632171871%_ - _%tl171634171873%_ - _%e171647171876%_ - _%hd171648171879%_ - _%tl171649171881%_ - _%e171650171884%_ - _%hd171651171887%_ - _%tl171652171889%_ - _%e171653171892%_ - _%hd171654171895%_ - _%tl171655171897%_) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) + _%tl175235175467%_)) + (_%__match181403181404%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_ + _%e175179175353%_ + _%hd175180175356%_ + _%tl175181175358%_ + _%e175182175361%_ + _%hd175183175364%_ + _%tl175184175366%_ + _%e175185175369%_ + _%hd175186175372%_ + _%tl175187175374%_ + _%e175188175377%_ + _%hd175189175380%_ + _%tl175190175382%_ + _%e175191175385%_ + _%hd175192175388%_ + _%tl175193175390%_ + _%e175194175393%_ + _%hd175195175396%_ + _%tl175196175398%_ + _%e175197175401%_ + _%hd175198175404%_ + _%tl175199175406%_ + _%e175200175409%_ + _%hd175201175412%_ + _%tl175202175414%_ + _%e175203175417%_ + _%hd175204175420%_ + _%tl175205175422%_ + _%e175206175425%_ + _%hd175207175428%_ + _%tl175208175430%_ + _%e175209175433%_ + _%hd175210175436%_ + _%tl175211175438%_ + _%e175212175441%_ + _%hd175213175444%_ + _%tl175214175446%_ + _%e175215175449%_ + _%hd175216175452%_ + _%tl175217175454%_ + _%__splice181106181107%_ + _%target175218175457%_ + _%tl175220175459%_ + _%e175233175462%_ + _%hd175234175465%_ + _%tl175235175467%_ + _%e175236175470%_ + _%hd175237175473%_ + _%tl175238175475%_ + _%e175239175478%_ + _%hd175240175481%_ + _%tl175241175483%_) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177865177866%_ - _%e171590171759%_ - _%hd171591171762%_ - _%tl171592171764%_)))) - (_%__match177719177720%_ - (lambda (_%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_ - _%e171529172166%_ - _%hd171530172169%_ - _%tl171531172171%_ - _%e171532172174%_ - _%hd171533172177%_ - _%tl171534172179%_ - _%e171535172182%_ - _%hd171536172185%_ - _%tl171537172187%_ - _%e171538172190%_ - _%hd171539172193%_ - _%tl171540172195%_ - _%e171541172198%_ - _%hd171542172201%_ - _%tl171543172203%_ - _%e171544172206%_ - _%hd171545172209%_ - _%tl171546172211%_ - _%e171547172214%_ - _%hd171548172217%_ - _%tl171549172219%_ - _%e171550172222%_ - _%hd171551172225%_ - _%tl171552172227%_ - _%e171553172230%_ - _%hd171554172233%_ - _%tl171555172235%_ - _%e171556172238%_ - _%hd171557172241%_ - _%tl171558172243%_ - _%e171559172246%_ - _%hd171560172249%_ - _%tl171561172251%_ - _%e171562172254%_ - _%hd171563172257%_ - _%tl171564172259%_ - _%e171565172262%_ - _%hd171566172265%_ - _%tl171567172267%_ - _%e171568172270%_ - _%hd171569172273%_ - _%tl171570172275%_ - _%e171571172278%_ - _%hd171572172281%_ - _%tl171573172283%_ - _%e171574172286%_ - _%hd171575172289%_ - _%tl171576172291%_ - _%e171577172294%_ - _%hd171578172297%_ - _%tl171579172299%_) - (let ((_%L172302%_ _%hd171578172297%_) - (_%L172303%_ _%hd171569172273%_) - (_%L172304%_ _%hd171560172249%_) - (_%L172305%_ _%hd171551172225%_) - (_%L172306%_ _%hd171542172201%_) - (_%L172307%_ _%hd171527172161%_)) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181409181410%_ + _%e175176175345%_ + _%hd175177175348%_ + _%tl175178175350%_)))) + (_%__match181263181264%_ + (lambda (_%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_ + _%e175115175744%_ + _%hd175116175747%_ + _%tl175117175749%_ + _%e175118175752%_ + _%hd175119175755%_ + _%tl175120175757%_ + _%e175121175760%_ + _%hd175122175763%_ + _%tl175123175765%_ + _%e175124175768%_ + _%hd175125175771%_ + _%tl175126175773%_ + _%e175127175776%_ + _%hd175128175779%_ + _%tl175129175781%_ + _%e175130175784%_ + _%hd175131175787%_ + _%tl175132175789%_ + _%e175133175792%_ + _%hd175134175795%_ + _%tl175135175797%_ + _%e175136175800%_ + _%hd175137175803%_ + _%tl175138175805%_ + _%e175139175808%_ + _%hd175140175811%_ + _%tl175141175813%_ + _%e175142175816%_ + _%hd175143175819%_ + _%tl175144175821%_ + _%e175145175824%_ + _%hd175146175827%_ + _%tl175147175829%_ + _%e175148175832%_ + _%hd175149175835%_ + _%tl175150175837%_ + _%e175151175840%_ + _%hd175152175843%_ + _%tl175153175845%_ + _%e175154175848%_ + _%hd175155175851%_ + _%tl175156175853%_ + _%e175157175856%_ + _%hd175158175859%_ + _%tl175159175861%_ + _%e175160175864%_ + _%hd175161175867%_ + _%tl175162175869%_ + _%e175163175872%_ + _%hd175164175875%_ + _%tl175165175877%_) + (let ((_%g175103175880%_ _%hd175164175875%_) + (_%g175104175881%_ _%hd175155175851%_) + (_%g175105175882%_ _%hd175146175827%_) + (_%g175106175883%_ _%hd175137175803%_) + (_%g175107175884%_ _%hd175128175779%_) + (_%g175108175885%_ _%hd175113175739%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L172307%_)) + (gx#identifier? _%g175108175885%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172306%_ + _%g175107175884%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172305%_ + _%g175106175883%_ 'keyword-dispatch)) (let () (declare (not safe)) (gx#free-identifier=? - _%L172307%_ - _%L172302%_))) - (_%__kont177558177559%_ - _%L172302%_ - _%L172303%_ - _%L172304%_ - _%L172305%_ - _%L172306%_ - _%L172307%_) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)))))) + _%g175108175885%_ + _%g175103175880%_))) + (_%__kont181102181103%_ + _%g175103175880%_ + _%g175104175881%_ + _%g175105175882%_ + _%g175106175883%_ + _%g175107175884%_ + _%g175108175885%_) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx177556177557%_)) - (let ((_%e171523172150%_ + (gx#stx-pair? _%__stx181100181101%_)) + (let ((_%e175109175728%_ (let () (declare (not safe)) - (gx#stx-e _%__stx177556177557%_)))) - (let ((_%tl171525172155%_ + (gx#stx-e _%__stx181100181101%_)))) + (let ((_%tl175111175733%_ (let () (declare (not safe)) - (##cdr _%e171523172150%_))) - (_%hd171524172153%_ + (##cdr _%e175109175728%_))) + (_%hd175110175731%_ (let () (declare (not safe)) - (##car _%e171523172150%_)))) + (##car _%e175109175728%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171525172155%_)) - (let ((_%e171526172158%_ + (gx#stx-pair? _%tl175111175733%_)) + (let ((_%e175112175736%_ (let () (declare (not safe)) - (gx#stx-e _%tl171525172155%_)))) - (let ((_%tl171528172163%_ + (gx#stx-e _%tl175111175733%_)))) + (let ((_%tl175114175741%_ (let () (declare (not safe)) - (##cdr _%e171526172158%_))) - (_%hd171527172161%_ + (##cdr _%e175112175736%_))) + (_%hd175113175739%_ (let () (declare (not safe)) - (##car _%e171526172158%_)))) + (##car _%e175112175736%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171528172163%_)) - (let ((_%e171529172166%_ + (gx#stx-pair? _%tl175114175741%_)) + (let ((_%e175115175744%_ (let () (declare (not safe)) - (gx#stx-e _%tl171528172163%_)))) - (let ((_%tl171531172171%_ + (gx#stx-e _%tl175114175741%_)))) + (let ((_%tl175117175749%_ (let () (declare (not safe)) - (##cdr _%e171529172166%_))) - (_%hd171530172169%_ + (##cdr _%e175115175744%_))) + (_%hd175116175747%_ (let () (declare (not safe)) - (##car _%e171529172166%_)))) + (##car _%e175115175744%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171530172169%_)) - (let ((_%e171532172174%_ + (gx#stx-pair? _%hd175116175747%_)) + (let ((_%e175118175752%_ (let () (declare (not safe)) (gx#stx-e - _%hd171530172169%_)))) - (let ((_%tl171534172179%_ + _%hd175116175747%_)))) + (let ((_%tl175120175757%_ (let () (declare (not safe)) - (##cdr _%e171532172174%_))) - (_%hd171533172177%_ + (##cdr _%e175118175752%_))) + (_%hd175119175755%_ (let () (declare (not safe)) - (##car _%e171532172174%_)))) + (##car _%e175118175752%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd171533172177%_)) + _%hd175119175755%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd171533172177%_)) + _%hd175119175755%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171534172179%_)) - (let ((_%e171535172182%_ + _%tl175120175757%_)) + (let ((_%e175121175760%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl171534172179%_)))) - (let ((_%tl171537172187%_ + (gx#stx-e _%tl175120175757%_)))) + (let ((_%tl175123175765%_ (let () (declare (not safe)) - (##cdr _%e171535172182%_))) - (_%hd171536172185%_ + (##cdr _%e175121175760%_))) + (_%hd175122175763%_ (let () (declare (not safe)) - (##car _%e171535172182%_)))) + (##car _%e175121175760%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171536172185%_)) - (let ((_%e171538172190%_ + (gx#stx-pair? _%hd175122175763%_)) + (let ((_%e175124175768%_ (let () (declare (not safe)) - (gx#stx-e _%hd171536172185%_)))) - (let ((_%tl171540172195%_ + (gx#stx-e _%hd175122175763%_)))) + (let ((_%tl175126175773%_ (let () (declare (not safe)) - (##cdr _%e171538172190%_))) - (_%hd171539172193%_ + (##cdr _%e175124175768%_))) + (_%hd175125175771%_ (let () (declare (not safe)) - (##car _%e171538172190%_)))) + (##car _%e175124175768%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171539172193%_)) + (gx#identifier? _%hd175125175771%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd171539172193%_)) + (gx#stx-eq? '%#ref _%hd175125175771%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171540172195%_)) - (let ((_%e171541172198%_ + (gx#stx-pair? _%tl175126175773%_)) + (let ((_%e175127175776%_ (let () (declare (not safe)) (gx#stx-e - _%tl171540172195%_)))) - (let ((_%tl171543172203%_ + _%tl175126175773%_)))) + (let ((_%tl175129175781%_ (let () (declare (not safe)) - (##cdr _%e171541172198%_))) - (_%hd171542172201%_ + (##cdr _%e175127175776%_))) + (_%hd175128175779%_ (let () (declare (not safe)) - (##car _%e171541172198%_)))) + (##car _%e175127175776%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171543172203%_)) + _%tl175129175781%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171537172187%_)) - (let ((_%e171544172206%_ + _%tl175123175765%_)) + (let ((_%e175130175784%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl171537172187%_)))) - (let ((_%tl171546172211%_ - (let () (declare (not safe)) (##cdr _%e171544172206%_))) - (_%hd171545172209%_ + (gx#stx-e _%tl175123175765%_)))) + (let ((_%tl175132175789%_ + (let () (declare (not safe)) (##cdr _%e175130175784%_))) + (_%hd175131175787%_ (let () (declare (not safe)) - (##car _%e171544172206%_)))) + (##car _%e175130175784%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171545172209%_)) - (let ((_%e171547172214%_ + (gx#stx-pair? _%hd175131175787%_)) + (let ((_%e175133175792%_ (let () (declare (not safe)) - (gx#stx-e _%hd171545172209%_)))) - (let ((_%tl171549172219%_ + (gx#stx-e _%hd175131175787%_)))) + (let ((_%tl175135175797%_ (let () (declare (not safe)) - (##cdr _%e171547172214%_))) - (_%hd171548172217%_ + (##cdr _%e175133175792%_))) + (_%hd175134175795%_ (let () (declare (not safe)) - (##car _%e171547172214%_)))) + (##car _%e175133175792%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171548172217%_)) + (gx#identifier? _%hd175134175795%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd171548172217%_)) + (gx#stx-eq? '%#ref _%hd175134175795%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171549172219%_)) - (let ((_%e171550172222%_ + (gx#stx-pair? _%tl175135175797%_)) + (let ((_%e175136175800%_ (let () (declare (not safe)) - (gx#stx-e _%tl171549172219%_)))) - (let ((_%tl171552172227%_ + (gx#stx-e _%tl175135175797%_)))) + (let ((_%tl175138175805%_ (let () (declare (not safe)) - (##cdr _%e171550172222%_))) - (_%hd171551172225%_ + (##cdr _%e175136175800%_))) + (_%hd175137175803%_ (let () (declare (not safe)) - (##car _%e171550172222%_)))) + (##car _%e175136175800%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171552172227%_)) + _%tl175138175805%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171546172211%_)) - (let ((_%e171553172230%_ + _%tl175132175789%_)) + (let ((_%e175139175808%_ (let () (declare (not safe)) (gx#stx-e - _%tl171546172211%_)))) - (let ((_%tl171555172235%_ + _%tl175132175789%_)))) + (let ((_%tl175141175813%_ (let () (declare (not safe)) - (##cdr _%e171553172230%_))) - (_%hd171554172233%_ + (##cdr _%e175139175808%_))) + (_%hd175140175811%_ (let () (declare (not safe)) - (##car _%e171553172230%_)))) + (##car _%e175139175808%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd171554172233%_)) - (let ((_%e171556172238%_ + _%hd175140175811%_)) + (let ((_%e175142175816%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd171554172233%_)))) - (let ((_%tl171558172243%_ + (gx#stx-e _%hd175140175811%_)))) + (let ((_%tl175144175821%_ (let () (declare (not safe)) - (##cdr _%e171556172238%_))) - (_%hd171557172241%_ + (##cdr _%e175142175816%_))) + (_%hd175143175819%_ (let () (declare (not safe)) - (##car _%e171556172238%_)))) + (##car _%e175142175816%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171557172241%_)) + (gx#identifier? _%hd175143175819%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd171557172241%_)) + (gx#stx-eq? '%#quote _%hd175143175819%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171558172243%_)) - (let ((_%e171559172246%_ + (gx#stx-pair? _%tl175144175821%_)) + (let ((_%e175145175824%_ (let () (declare (not safe)) - (gx#stx-e _%tl171558172243%_)))) - (let ((_%tl171561172251%_ + (gx#stx-e _%tl175144175821%_)))) + (let ((_%tl175147175829%_ (let () (declare (not safe)) - (##cdr _%e171559172246%_))) - (_%hd171560172249%_ + (##cdr _%e175145175824%_))) + (_%hd175146175827%_ (let () (declare (not safe)) - (##car _%e171559172246%_)))) + (##car _%e175145175824%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171561172251%_)) + (gx#stx-null? _%tl175147175829%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171555172235%_)) - (let ((_%e171562172254%_ + _%tl175141175813%_)) + (let ((_%e175148175832%_ (let () (declare (not safe)) (gx#stx-e - _%tl171555172235%_)))) - (let ((_%tl171564172259%_ + _%tl175141175813%_)))) + (let ((_%tl175150175837%_ (let () (declare (not safe)) - (##cdr _%e171562172254%_))) - (_%hd171563172257%_ + (##cdr _%e175148175832%_))) + (_%hd175149175835%_ (let () (declare (not safe)) - (##car _%e171562172254%_)))) + (##car _%e175148175832%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd171563172257%_)) - (let ((_%e171565172262%_ + _%hd175149175835%_)) + (let ((_%e175151175840%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd171563172257%_)))) - (let ((_%tl171567172267%_ - (let () (declare (not safe)) (##cdr _%e171565172262%_))) - (_%hd171566172265%_ + (gx#stx-e _%hd175149175835%_)))) + (let ((_%tl175153175845%_ + (let () (declare (not safe)) (##cdr _%e175151175840%_))) + (_%hd175152175843%_ (let () (declare (not safe)) - (##car _%e171565172262%_)))) + (##car _%e175151175840%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171566172265%_)) + (gx#identifier? _%hd175152175843%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd171566172265%_)) + (gx#stx-eq? '%#ref _%hd175152175843%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171567172267%_)) - (let ((_%e171568172270%_ + (gx#stx-pair? _%tl175153175845%_)) + (let ((_%e175154175848%_ (let () (declare (not safe)) - (gx#stx-e _%tl171567172267%_)))) - (let ((_%tl171570172275%_ + (gx#stx-e _%tl175153175845%_)))) + (let ((_%tl175156175853%_ (let () (declare (not safe)) - (##cdr _%e171568172270%_))) - (_%hd171569172273%_ + (##cdr _%e175154175848%_))) + (_%hd175155175851%_ (let () (declare (not safe)) - (##car _%e171568172270%_)))) + (##car _%e175154175848%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171570172275%_)) + (gx#stx-null? _%tl175156175853%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171564172259%_)) - (let ((_%e171571172278%_ + (gx#stx-pair? _%tl175150175837%_)) + (let ((_%e175157175856%_ (let () (declare (not safe)) (gx#stx-e - _%tl171564172259%_)))) - (let ((_%tl171573172283%_ + _%tl175150175837%_)))) + (let ((_%tl175159175861%_ (let () (declare (not safe)) - (##cdr _%e171571172278%_))) - (_%hd171572172281%_ + (##cdr _%e175157175856%_))) + (_%hd175158175859%_ (let () (declare (not safe)) - (##car _%e171571172278%_)))) + (##car _%e175157175856%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd171572172281%_)) - (let ((_%e171574172286%_ + _%hd175158175859%_)) + (let ((_%e175160175864%_ (let () (declare (not safe)) (gx#stx-e - _%hd171572172281%_)))) - (let ((_%tl171576172291%_ + _%hd175158175859%_)))) + (let ((_%tl175162175869%_ (let () (declare (not safe)) - (##cdr _%e171574172286%_))) - (_%hd171575172289%_ + (##cdr _%e175160175864%_))) + (_%hd175161175867%_ (let () (declare (not safe)) - (##car _%e171574172286%_)))) + (##car _%e175160175864%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd171575172289%_)) + _%hd175161175867%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd171575172289%_)) + (gx#stx-eq? '%#ref _%hd175161175867%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171576172291%_)) - (let ((_%e171577172294%_ + (gx#stx-pair? _%tl175162175869%_)) + (let ((_%e175163175872%_ (let () (declare (not safe)) - (gx#stx-e _%tl171576172291%_)))) - (let ((_%tl171579172299%_ + (gx#stx-e _%tl175162175869%_)))) + (let ((_%tl175165175877%_ (let () (declare (not safe)) - (##cdr _%e171577172294%_))) - (_%hd171578172297%_ + (##cdr _%e175163175872%_))) + (_%hd175164175875%_ (let () (declare (not safe)) - (##car _%e171577172294%_)))) + (##car _%e175163175872%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171579172299%_)) + (gx#stx-null? _%tl175165175877%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171573172283%_)) + (gx#stx-null? _%tl175159175861%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171531172171%_)) - (_%__match177719177720%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_ - _%e171529172166%_ - _%hd171530172169%_ - _%tl171531172171%_ - _%e171532172174%_ - _%hd171533172177%_ - _%tl171534172179%_ - _%e171535172182%_ - _%hd171536172185%_ - _%tl171537172187%_ - _%e171538172190%_ - _%hd171539172193%_ - _%tl171540172195%_ - _%e171541172198%_ - _%hd171542172201%_ - _%tl171543172203%_ - _%e171544172206%_ - _%hd171545172209%_ - _%tl171546172211%_ - _%e171547172214%_ - _%hd171548172217%_ - _%tl171549172219%_ - _%e171550172222%_ - _%hd171551172225%_ - _%tl171552172227%_ - _%e171553172230%_ - _%hd171554172233%_ - _%tl171555172235%_ - _%e171556172238%_ - _%hd171557172241%_ - _%tl171558172243%_ - _%e171559172246%_ - _%hd171560172249%_ - _%tl171561172251%_ - _%e171562172254%_ - _%hd171563172257%_ - _%tl171564172259%_ - _%e171565172262%_ - _%hd171566172265%_ - _%tl171567172267%_ - _%e171568172270%_ - _%hd171569172273%_ - _%tl171570172275%_ - _%e171571172278%_ - _%hd171572172281%_ - _%tl171573172283%_ - _%e171574172286%_ - _%hd171575172289%_ - _%tl171576172291%_ - _%e171577172294%_ - _%hd171578172297%_ - _%tl171579172299%_) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)))) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)))) + (gx#stx-null? _%tl175117175749%_)) + (_%__match181263181264%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_ + _%e175115175744%_ + _%hd175116175747%_ + _%tl175117175749%_ + _%e175118175752%_ + _%hd175119175755%_ + _%tl175120175757%_ + _%e175121175760%_ + _%hd175122175763%_ + _%tl175123175765%_ + _%e175124175768%_ + _%hd175125175771%_ + _%tl175126175773%_ + _%e175127175776%_ + _%hd175128175779%_ + _%tl175129175781%_ + _%e175130175784%_ + _%hd175131175787%_ + _%tl175132175789%_ + _%e175133175792%_ + _%hd175134175795%_ + _%tl175135175797%_ + _%e175136175800%_ + _%hd175137175803%_ + _%tl175138175805%_ + _%e175139175808%_ + _%hd175140175811%_ + _%tl175141175813%_ + _%e175142175816%_ + _%hd175143175819%_ + _%tl175144175821%_ + _%e175145175824%_ + _%hd175146175827%_ + _%tl175147175829%_ + _%e175148175832%_ + _%hd175149175835%_ + _%tl175150175837%_ + _%e175151175840%_ + _%hd175152175843%_ + _%tl175153175845%_ + _%e175154175848%_ + _%hd175155175851%_ + _%tl175156175853%_ + _%e175157175856%_ + _%hd175158175859%_ + _%tl175159175861%_ + _%e175160175864%_ + _%hd175161175867%_ + _%tl175162175869%_ + _%e175163175872%_ + _%hd175164175875%_ + _%tl175165175877%_) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)))) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)))) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)))) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)))) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)))) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)))) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)))) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)))) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)))) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)))) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)))) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)))) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)))) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)))) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)))) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)))) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)))) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)))) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)))) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)))) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)))) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)))) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)))) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)))) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)))) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)))) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)))) - (_%__match177731177732%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_ - _%e171526172158%_ - _%hd171527172161%_ - _%tl171528172163%_)))) - (_%__match177865177866%_ - _%e171523172150%_ - _%hd171524172153%_ - _%tl171525172155%_)))) - (let () (declare (not safe)) (_%g171515171707%_)))))))) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)))) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)))) + (_%__match181275181276%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_ + _%e175112175736%_ + _%hd175113175739%_ + _%tl175114175741%_)))) + (_%__match181409181410%_ + _%e175109175728%_ + _%hd175110175731%_ + _%tl175111175733%_)))) + (let () (declare (not safe)) (_%g175101175293%_)))))))) (define gxc#basic-expression-type-case-lambda% - (lambda (_%self171379%_ _%stx171380%_) - (letrec ((_%clause-e171382%_ - (lambda (_%form171505%_) - (let* ((_%signature171507%_ - (gxc#lambda-form-infer-signature _%form171505%_)) - (__obj179705 + (lambda (_%self174966%_ _%stx174967%_) + (letrec ((_%clause-e174969%_ + (lambda (_%form175091%_) + (let* ((_%signature175093%_ + (gxc#lambda-form-infer-signature _%form175091%_)) + (__obj183249 (let () (declare (not safe)) (##structure @@ -11173,126 +11230,127 @@ '#f '#f '#f)))) - (let ((__tmp179892 - (gxc#lambda-form-arity _%form171505%_)) - (__tmp179891 - (if (gxc#dispatch-lambda-form? _%form171505%_) + (let ((__tmp183436 + (gxc#lambda-form-arity _%form175091%_)) + (__tmp183435 + (if (gxc#dispatch-lambda-form? _%form175091%_) (gxc#dispatch-lambda-form-delegate - _%form171505%_) + _%form175091%_) '#f))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature171507%_ - __obj179705 - __tmp179892 - __tmp179891)) - __obj179705))) - (_%return-type-e171383%_ - (lambda (_%clauses171433%_) - (let _%loop171435%_ ((_%rest171437%_ _%clauses171433%_) - (_%result171438%_ '#f)) - (let* ((_%rest171439171447%_ _%rest171437%_) - (_%else171441171455%_ - (lambda () _%result171438%_)) - (_%K171443171493%_ - (lambda (_%rest171458%_ _%clause171459%_) - (let* ((_%clause171461%_ _%clause171459%_) - (_%return171485%_ - (let* ((_%signature171474%_ + _%signature175093%_ + __obj183249 + __tmp183436 + __tmp183435)) + __obj183249))) + (_%return-type-e174970%_ + (lambda (_%clauses175019%_) + (let _%loop175021%_ ((_%rest175023%_ _%clauses175019%_) + (_%result175024%_ '#f)) + (let* ((_%rest175025175033%_ _%rest175023%_) + (_%else175027175041%_ + (lambda () _%result175024%_)) + (_%K175029175079%_ + (lambda (_%rest175044%_ _%clause175045%_) + (let* ((_%clause175047%_ _%clause175045%_) + (_%return175071%_ + (let* ((_%signature175060%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%clause171461%_ + _%clause175047%_ '2 '#f '#f))) - (_%signature171476%_ - _%signature171474%_)) - (if _%signature171476%_ + (_%signature175062%_ + _%signature175060%_)) + (if _%signature175062%_ (if (let () (declare (not safe)) (##unchecked-structure-ref - _%signature171476%_ + _%signature175062%_ '1 '#f '#f)) - (let ((__tmp179893 + (let ((__tmp183437 (let () (declare (not safe)) (##unchecked-structure-ref - _%signature171476%_ + _%signature175062%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx171380%_ - __tmp179893)) + _%stx174967%_ + __tmp183437)) '#f) '#f))) - (_%result171490%_ - (if (and _%result171438%_ - _%return171485%_) + (_%result175076%_ + (if (and _%result175024%_ + _%return175071%_) (gxc#greatest-common-type - _%stx171380%_ - _%result171438%_ - _%return171485%_) - (let ((_%$e171487%_ - _%result171438%_)) - (if _%$e171487%_ - _%$e171487%_ - _%return171485%_))))) - (_%loop171435%_ - _%rest171458%_ - _%result171490%_))))) - (if (pair? _%rest171439171447%_) - (let ((_%hd171444171496%_ + _%stx174967%_ + _%result175024%_ + _%return175071%_) + (let ((_%$e175073%_ + _%result175024%_)) + (if _%$e175073%_ + _%$e175073%_ + _%return175071%_))))) + (_%loop175021%_ + _%rest175044%_ + _%result175076%_))))) + (if (pair? _%rest175025175033%_) + (let ((_%hd175030175082%_ (let () (declare (not safe)) - (##car _%rest171439171447%_))) - (_%tl171445171498%_ + (##car _%rest175025175033%_))) + (_%tl175031175084%_ (let () (declare (not safe)) - (##cdr _%rest171439171447%_)))) - (let* ((_%clause171501%_ _%hd171444171496%_) - (_%rest171503%_ _%tl171445171498%_)) - (_%K171443171493%_ - _%rest171503%_ - _%clause171501%_))) - (_%else171441171455%_))))))) - (let* ((_%g171385171395%_ - (lambda (_%g171386171392%_) + (##cdr _%rest175025175033%_)))) + (let* ((_%clause175087%_ _%hd175030175082%_) + (_%rest175089%_ _%tl175031175084%_)) + (_%K175029175079%_ + _%rest175089%_ + _%clause175087%_))) + (_%else175027175041%_))))))) + (let* ((_%g174972174982%_ + (lambda (_%g174973174979%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g171386171392%_)))) - (_%g171384171430%_ - (lambda (_%g171386171398%_) + _%g174973174979%_)))) + (_%g174971175016%_ + (lambda (_%g174973174985%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g171386171398%_)) - (let ((_%e171388171400%_ + (gx#stx-pair? _%g174973174985%_)) + (let ((_%e174975174987%_ (let () (declare (not safe)) - (gx#stx-e _%g171386171398%_)))) - (let ((_%hd171389171403%_ + (gx#stx-e _%g174973174985%_)))) + (let ((_%hd174976174990%_ (let () (declare (not safe)) - (##car _%e171388171400%_))) - (_%tl171390171405%_ + (##car _%e174975174987%_))) + (_%tl174977174992%_ (let () (declare (not safe)) - (##cdr _%e171388171400%_)))) - ((lambda (_%L171408%_) - (let* ((_%clauses171419%_ - (map _%clause-e171382%_ _%L171408%_)) - (_%return171421%_ - (_%return-type-e171383%_ - _%clauses171419%_)) - (__obj179707 + (##cdr _%e174975174987%_)))) + ((lambda (_%g174974174995%_) + (let* ((_%clauses175006%_ + (map _%clause-e174969%_ + _%g174974174995%_)) + (_%return175008%_ + (_%return-type-e174970%_ + _%clauses175006%_)) + (__obj183251 (let () (declare (not safe)) (##structure @@ -11300,17 +11358,17 @@ '#f '#f '#f)))) - (let ((__tmp179894 - (if _%return171421%_ - (let ((_%return-type171423171425%_ + (let ((__tmp183438 + (if _%return175008%_ + (let ((_%return-type175010175012%_ (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%return171421%_)))) - (if _%return-type171423171425%_ - (let* ((_%return-type171428%_ - _%return-type171423171425%_) - (__obj179706 + _%return175008%_)))) + (if _%return-type175010175012%_ + (let* ((_%return-type175014%_ + _%return-type175010175012%_) + (__obj183250 (let () (declare (not safe)) @@ -11324,215 +11382,217 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179706 - _%return-type171428%_ + __obj183250 + _%return-type175014%_ '1 '#f '#f)) - __obj179706) + __obj183250) '#f)) '#f))) (declare (not safe)) (gxc#!case-lambda:::init!__% '#f - __tmp179894 - __obj179707 - _%clauses171419%_)) - __obj179707)) - _%tl171390171405%_))) - (_%g171385171395%_ _%g171386171398%_))))) - (_%g171384171430%_ _%stx171380%_))))) + __tmp183438 + __obj183251 + _%clauses175006%_)) + __obj183251)) + _%tl174977174992%_))) + (_%g174972174982%_ _%g174973174985%_))))) + (_%g174971175016%_ _%stx174967%_))))) (define gxc#basic-expression-type-special (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-call% - (lambda (_%self171239%_ _%stx171240%_) - (letrec ((_%type-e171242%_ - (lambda (_%rator171372%_ _%rator-type171373%_ _%args171374%_) - (if (not _%rator-type171373%_) + (lambda (_%self174826%_ _%stx174827%_) + (letrec ((_%type-e174829%_ + (lambda (_%rator174959%_ _%rator-type174960%_ _%args174961%_) + (if (not _%rator-type174960%_) '#f (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type171373%_ + _%rator-type174960%_ 'gxc#!procedure::t)) - (let ((__method179708 + (let ((__method183252 (let () (declare (not safe)) (__method-ref - _%rator-type171373%_ + _%rator-type174960%_ 'return-type)))) - (if __method179708 + (if __method183252 (let () (declare (not safe)) - (__method179708 - _%rator-type171373%_ - _%self171239%_ - _%stx171240%_ - _%args171374%_)) + (__method183252 + _%rator-type174960%_ + _%self174826%_ + _%stx174827%_ + _%args174961%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type171373%_ + _%rator-type174960%_ 'return-type)) '#!void))) '#f))))) - (let* ((_%__stx177874177875%_ _%stx171240%_) - (_%g171245171273%_ + (let* ((_%__stx181418181419%_ _%stx174827%_) + (_%g174832174860%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx177874177875%_))))) - (let ((_%__kont177876177877%_ - (lambda (_%L171346%_ _%L171347%_) - (let ((_%$e171363%_ - (let ((__tmp179895 + _%__stx181418181419%_))))) + (let ((_%__kont181420181421%_ + (lambda (_%g174834174933%_ _%g174835174934%_) + (let ((_%$e174950%_ + (let ((__tmp183439 (let () (declare (not safe)) - (gxc#identifier-symbol _%L171347%_)))) + (gxc#identifier-symbol + _%g174835174934%_)))) (declare (not safe)) (__hash-get gxc#basic-expression-type-special - __tmp179895)))) - (if _%$e171363%_ - ((lambda (_%type-e171366%_) - (_%type-e171366%_ _%self171239%_ _%stx171240%_)) - _%$e171363%_) - (_%type-e171242%_ - _%L171347%_ - (let ((__tmp179896 + __tmp183439)))) + (if _%$e174950%_ + ((lambda (_%type-e174953%_) + (_%type-e174953%_ _%self174826%_ _%stx174827%_)) + _%$e174950%_) + (_%type-e174829%_ + _%g174835174934%_ + (let ((__tmp183440 (let () (declare (not safe)) - (gxc#identifier-symbol _%L171347%_)))) + (gxc#identifier-symbol + _%g174835174934%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp179896)) - _%L171346%_))))) - (_%__kont177878177879%_ - (lambda (_%L171294%_ _%L171295%_) - (_%type-e171242%_ - _%L171295%_ - (gxc#apply-basic-expression-type _%L171295%_) - _%L171294%_)))) + (gxc#optimizer-resolve-type __tmp183440)) + _%g174834174933%_))))) + (_%__kont181422181423%_ + (lambda (_%g174848174881%_ _%g174849174882%_) + (_%type-e174829%_ + _%g174849174882%_ + (gxc#apply-basic-expression-type _%g174849174882%_) + _%g174848174881%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx177874177875%_)) - (let ((_%e171249171314%_ + (gx#stx-pair? _%__stx181418181419%_)) + (let ((_%e174836174901%_ (let () (declare (not safe)) - (gx#stx-e _%__stx177874177875%_)))) - (let ((_%tl171251171319%_ + (gx#stx-e _%__stx181418181419%_)))) + (let ((_%tl174838174906%_ (let () (declare (not safe)) - (##cdr _%e171249171314%_))) - (_%hd171250171317%_ + (##cdr _%e174836174901%_))) + (_%hd174837174904%_ (let () (declare (not safe)) - (##car _%e171249171314%_)))) + (##car _%e174836174901%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171251171319%_)) - (let ((_%e171252171322%_ + (gx#stx-pair? _%tl174838174906%_)) + (let ((_%e174839174909%_ (let () (declare (not safe)) - (gx#stx-e _%tl171251171319%_)))) - (let ((_%tl171254171327%_ + (gx#stx-e _%tl174838174906%_)))) + (let ((_%tl174841174914%_ (let () (declare (not safe)) - (##cdr _%e171252171322%_))) - (_%hd171253171325%_ + (##cdr _%e174839174909%_))) + (_%hd174840174912%_ (let () (declare (not safe)) - (##car _%e171252171322%_)))) + (##car _%e174839174909%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171253171325%_)) - (let ((_%e171255171330%_ + (gx#stx-pair? _%hd174840174912%_)) + (let ((_%e174842174917%_ (let () (declare (not safe)) - (gx#stx-e _%hd171253171325%_)))) - (let ((_%tl171257171335%_ + (gx#stx-e _%hd174840174912%_)))) + (let ((_%tl174844174922%_ (let () (declare (not safe)) - (##cdr _%e171255171330%_))) - (_%hd171256171333%_ + (##cdr _%e174842174917%_))) + (_%hd174843174920%_ (let () (declare (not safe)) - (##car _%e171255171330%_)))) + (##car _%e174842174917%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd171256171333%_)) + _%hd174843174920%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd171256171333%_)) + _%hd174843174920%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171257171335%_)) - (let ((_%e171258171338%_ + _%tl174844174922%_)) + (let ((_%e174845174925%_ (let () (declare (not safe)) (gx#stx-e - _%tl171257171335%_)))) - (let ((_%tl171260171343%_ + _%tl174844174922%_)))) + (let ((_%tl174847174930%_ (let () (declare (not safe)) - (##cdr _%e171258171338%_))) - (_%hd171259171341%_ + (##cdr _%e174845174925%_))) + (_%hd174846174928%_ (let () (declare (not safe)) - (##car _%e171258171338%_)))) + (##car _%e174845174925%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171260171343%_)) - (_%__kont177876177877%_ - _%tl171254171327%_ - _%hd171259171341%_) - (_%__kont177878177879%_ - _%tl171254171327%_ - _%hd171253171325%_)))) - (_%__kont177878177879%_ - _%tl171254171327%_ - _%hd171253171325%_)) - (_%__kont177878177879%_ - _%tl171254171327%_ - _%hd171253171325%_)) - (_%__kont177878177879%_ - _%tl171254171327%_ - _%hd171253171325%_)))) - (_%__kont177878177879%_ - _%tl171254171327%_ - _%hd171253171325%_)))) - (let () (declare (not safe)) (_%g171245171273%_))))) - (let () (declare (not safe)) (_%g171245171273%_)))))))) + _%tl174847174930%_)) + (_%__kont181420181421%_ + _%tl174841174914%_ + _%hd174846174928%_) + (_%__kont181422181423%_ + _%tl174841174914%_ + _%hd174840174912%_)))) + (_%__kont181422181423%_ + _%tl174841174914%_ + _%hd174840174912%_)) + (_%__kont181422181423%_ + _%tl174841174914%_ + _%hd174840174912%_)) + (_%__kont181422181423%_ + _%tl174841174914%_ + _%hd174840174912%_)))) + (_%__kont181422181423%_ + _%tl174841174914%_ + _%hd174840174912%_)))) + (let () (declare (not safe)) (_%g174832174860%_))))) + (let () (declare (not safe)) (_%g174832174860%_)))))))) (define gxc#!procedure::return-type - (lambda (_%self171223%_ _%ctx171224%_ _%stx171225%_ _%args171226%_) - (let ((_%self171229%_ _%self171223%_)) + (lambda (_%self174810%_ _%ctx174811%_ _%stx174812%_ _%args174813%_) + (let ((_%self174816%_ _%self174810%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self171229%_ '2 '#f '#f)) - (let ((__tmp179897 - (let ((__tmp179898 + (##unchecked-structure-ref _%self174816%_ '2 '#f '#f)) + (let ((__tmp183441 + (let ((__tmp183442 (let () (declare (not safe)) (##unchecked-structure-ref - _%self171229%_ + _%self174816%_ '2 '#f '#f)))) (declare (not safe)) - (##unchecked-structure-ref __tmp179898 '1 '#f '#f)))) + (##unchecked-structure-ref __tmp183442 '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx171225%_ __tmp179897)) + (gxc#optimizer-resolve-class _%stx174812%_ __tmp183441)) '#f)))) (let () (declare (not safe)) @@ -11550,58 +11610,58 @@ gxc#!procedure::apply-return-type '#f)) (define gxc#!lambda::return-type - (lambda (_%self170957%_ _%ctx170958%_ _%stx170959%_ _%args170960%_) - (let ((_%self170963%_ _%self170957%_)) + (lambda (_%self174545%_ _%ctx174546%_ _%stx174547%_ _%args174548%_) + (let ((_%self174551%_ _%self174545%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self170963%_ '4 '#f '#f)) - (let ((_%dispatch-type170972170974%_ - (let ((__tmp179899 + (##unchecked-structure-ref _%self174551%_ '4 '#f '#f)) + (let ((_%dispatch-type174560174562%_ + (let ((__tmp183443 (let () (declare (not safe)) (##unchecked-structure-ref - _%self170963%_ + _%self174551%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp179899)))) - (if _%dispatch-type170972170974%_ - (let ((_%dispatch-type170977%_ - _%dispatch-type170972170974%_)) + (gxc#optimizer-lookup-type __tmp183443)))) + (if _%dispatch-type174560174562%_ + (let ((_%dispatch-type174564%_ + _%dispatch-type174560174562%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%dispatch-type170977%_ + _%dispatch-type174564%_ 'gxc#!procedure::t)) - (let ((__method179709 + (let ((__method183253 (let () (declare (not safe)) (__method-ref - _%dispatch-type170977%_ + _%dispatch-type174564%_ 'return-type)))) - (if __method179709 + (if __method183253 (let () (declare (not safe)) - (__method179709 - _%dispatch-type170977%_ - _%ctx170958%_ - _%stx170959%_ - _%args170960%_)) + (__method183253 + _%dispatch-type174564%_ + _%ctx174546%_ + _%stx174547%_ + _%args174548%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%dispatch-type170977%_ + _%dispatch-type174564%_ 'return-type)) '#!void))) '#f)) '#f)) (gxc#!procedure::return-type - _%self170963%_ - _%ctx170958%_ - _%stx170959%_ - _%args170960%_))))) + _%self174551%_ + _%ctx174546%_ + _%stx174547%_ + _%args174548%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11618,51 +11678,51 @@ gxc#!lambda::apply-return-type '#f)) (define gxc#!case-lambda::return-type - (lambda (_%self170687%_ _%ctx170688%_ _%stx170689%_ _%args170690%_) - (let* ((_%self170693%_ _%self170687%_) - (_%$e170707%_ - (let ((__tmp179901 - (lambda (_%g170702170704%_) + (lambda (_%self174275%_ _%ctx174276%_ _%stx174277%_ _%args174278%_) + (let* ((_%self174281%_ _%self174275%_) + (_%$e174295%_ + (let ((__tmp183445 + (lambda (_%g174290174292%_) (gxc#!lambda-arity-match? - _%g170702170704%_ - _%args170690%_))) - (__tmp179900 + _%g174290174292%_ + _%args174278%_))) + (__tmp183444 (let () (declare (not safe)) (##unchecked-structure-ref - _%self170693%_ + _%self174281%_ '3 '#f '#f)))) (declare (not safe)) - (__find __tmp179901 __tmp179900)))) - (if _%$e170707%_ - ((lambda (_%clause170710%_) - (let ((__method179710 + (__find __tmp183445 __tmp183444)))) + (if _%$e174295%_ + ((lambda (_%clause174298%_) + (let ((__method183254 (let () (declare (not safe)) - (__method-ref _%clause170710%_ 'return-type)))) - (if __method179710 + (__method-ref _%clause174298%_ 'return-type)))) + (if __method183254 (let () (declare (not safe)) - (__method179710 - _%clause170710%_ - _%ctx170688%_ - _%stx170689%_ - _%args170690%_)) + (__method183254 + _%clause174298%_ + _%ctx174276%_ + _%stx174277%_ + _%args174278%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause170710%_ + _%clause174298%_ 'return-type)) '#!void)))) - _%$e170707%_) + _%$e174295%_) (gxc#!procedure::return-type - _%self170693%_ - _%ctx170688%_ - _%stx170689%_ - _%args170690%_))))) + _%self174281%_ + _%ctx174276%_ + _%stx174277%_ + _%args174278%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11671,72 +11731,72 @@ gxc#!case-lambda::return-type '#f)) (define gxc#!case-lambda::apply-return-type - (lambda (_%self170535%_ _%ctx170536%_ _%stx170537%_ _%args170538%_) - (let* ((_%self170541%_ _%self170535%_) - (_%candidates170555%_ - (filter (lambda (_%g170550170552%_) + (lambda (_%self174123%_ _%ctx174124%_ _%stx174125%_ _%args174126%_) + (let* ((_%self174129%_ _%self174123%_) + (_%candidates174143%_ + (filter (lambda (_%g174138174140%_) (gxc#!lambda-arity-match-apply? - _%g170550170552%_ - _%args170538%_)) + _%g174138174140%_ + _%args174126%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%self170541%_ + _%self174129%_ '3 '#f '#f)))) - (_%candidate-types170559%_ - (let ((__tmp179902 - (lambda (_%candidate170557%_) - (let ((__method179711 + (_%candidate-types174147%_ + (let ((__tmp183446 + (lambda (_%candidate174145%_) + (let ((__method183255 (let () (declare (not safe)) (__method-ref - _%candidate170557%_ + _%candidate174145%_ 'apply-return-type)))) - (if __method179711 + (if __method183255 (let () (declare (not safe)) - (__method179711 - _%candidate170557%_ - _%ctx170536%_ - _%stx170537%_ - _%args170538%_)) + (__method183255 + _%candidate174145%_ + _%ctx174124%_ + _%stx174125%_ + _%args174126%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%candidate170557%_ + _%candidate174145%_ 'apply-return-type)) '#!void)))))) (declare (not safe)) - (##map __tmp179902 _%candidates170555%_)))) - (if (pair? _%candidate-types170559%_) - (let ((__tmp179905 - (lambda (_%candidate-type170562%_ _%ret170563%_) - (if _%ret170563%_ - (if _%candidate-type170562%_ + (##map __tmp183446 _%candidates174143%_)))) + (if (pair? _%candidate-types174147%_) + (let ((__tmp183449 + (lambda (_%candidate-type174150%_ _%ret174151%_) + (if _%ret174151%_ + (if _%candidate-type174150%_ (gxc#greatest-common-type - _%stx170537%_ - _%candidate-type170562%_ - _%ret170563%_) + _%stx174125%_ + _%candidate-type174150%_ + _%ret174151%_) '#f) '#f))) - (__tmp179904 + (__tmp183448 (let () (declare (not safe)) - (##car _%candidate-types170559%_))) - (__tmp179903 + (##car _%candidate-types174147%_))) + (__tmp183447 (let () (declare (not safe)) - (##cdr _%candidate-types170559%_)))) + (##cdr _%candidate-types174147%_)))) (declare (not safe)) - (__foldl1 __tmp179905 __tmp179904 __tmp179903)) + (__foldl1 __tmp183449 __tmp183448 __tmp183447)) (gxc#!procedure::return-type - _%self170541%_ - _%ctx170536%_ - _%stx170537%_ - _%args170538%_))))) + _%self174129%_ + _%ctx174124%_ + _%stx174125%_ + _%args174126%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11745,134 +11805,134 @@ gxc#!case-lambda::apply-return-type '#f)) (define gxc#!kw-lambda::return-type - (lambda (_%self170341%_ _%ctx170342%_ _%stx170343%_ _%args170344%_) - (let* ((_%self170347%_ _%self170341%_) - (_%g170356170367%_ - (let ((__tmp179906 + (lambda (_%self173930%_ _%ctx173931%_ _%stx173932%_ _%args173933%_) + (let* ((_%self173936%_ _%self173930%_) + (_%g173945173956%_ + (let ((__tmp183450 (let () (declare (not safe)) (##unchecked-structure-ref - _%self170347%_ + _%self173936%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp179906))) - (_%E170359170371%_ + (gxc#optimizer-lookup-type __tmp183450))) + (_%E173948173960%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g170356170367%_ + _%g173945173956%_ '((!kw-lambda-primary _ _ keys main)) '((? !procedure? proc)))) '#!void))) - (let ((_%K170361170394%_ - (lambda (_%main170385%_ _%keys170386%_) - (let ((_%main-type170387170389%_ + (let ((_%K173950173982%_ + (lambda (_%main173974%_ _%keys173975%_) + (let ((_%main-type173976173978%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%main170385%_)))) - (if _%main-type170387170389%_ - (let* ((_%main-type170392%_ _%main-type170387170389%_) - (__method179712 + (gxc#optimizer-lookup-type _%main173974%_)))) + (if _%main-type173976173978%_ + (let* ((_%main-type173980%_ _%main-type173976173978%_) + (__method183256 (let () (declare (not safe)) (__method-ref - _%main-type170392%_ + _%main-type173980%_ 'return-type)))) - (if __method179712 - (let ((__tmp179907 + (if __method183256 + (let ((__tmp183451 (gxc#extract-keyword-args - _%args170344%_))) + _%args173933%_))) (declare (not safe)) - (__method179712 - _%main-type170392%_ - _%ctx170342%_ - _%stx170343%_ - __tmp179907)) + (__method183256 + _%main-type173980%_ + _%ctx173931%_ + _%stx173932%_ + __tmp183451)) (begin (let () (declare (not safe)) (error '"Missing method" - _%main-type170392%_ + _%main-type173980%_ 'return-type)) '#!void))) '#f)))) - (_%K170360170377%_ - (lambda (_%proc170375%_) - (let ((__method179713 + (_%K173949173966%_ + (lambda (_%proc173964%_) + (let ((__method183257 (let () (declare (not safe)) - (__method-ref _%proc170375%_ 'return-type)))) - (if __method179713 - (let ((__tmp179908 - (gxc#extract-keyword-args _%args170344%_))) + (__method-ref _%proc173964%_ 'return-type)))) + (if __method183257 + (let ((__tmp183452 + (gxc#extract-keyword-args _%args173933%_))) (declare (not safe)) - (__method179713 - _%proc170375%_ - _%proc170375%_ - _%ctx170342%_ - _%stx170343%_ - __tmp179908)) + (__method183257 + _%proc173964%_ + _%proc173964%_ + _%ctx173931%_ + _%stx173932%_ + __tmp183452)) (begin (let () (declare (not safe)) (error '"Missing method" - _%proc170375%_ + _%proc173964%_ 'return-type)) '#!void)))))) - (let ((_%try-match170358170382%_ + (let ((_%try-match173947173971%_ (lambda () (if (let () (declare (not safe)) (##structure-instance-of? - _%g170356170367%_ + _%g173945173956%_ 'gxc#!procedure::t)) - (let ((_%proc170380%_ _%g170356170367%_)) - (_%K170360170377%_ _%proc170380%_)) - (_%E170359170371%_))))) + (let ((_%proc173969%_ _%g173945173956%_)) + (_%K173949173966%_ _%proc173969%_)) + (_%E173948173960%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g170356170367%_ + _%g173945173956%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e170362170397%_ + (let* ((_%e173951173985%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g170356170367%_ + _%g173945173956%_ '1 '#f '#f))) - (_%e170363170400%_ + (_%e173952173988%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g170356170367%_ + _%g173945173956%_ '2 '#f '#f))) - (_%e170364170403%_ + (_%e173953173991%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g170356170367%_ + _%g173945173956%_ '3 '#f '#f))) - (_%e170365170408%_ + (_%e173954173996%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g170356170367%_ + _%g173945173956%_ '4 '#f '#f)))) - (let ((_%keys170406%_ _%e170364170403%_) - (_%main170411%_ _%e170365170408%_)) - (_%K170361170394%_ _%main170411%_ _%keys170406%_))) - (_%try-match170358170382%_))))))) + (let ((_%keys173994%_ _%e173953173991%_) + (_%main173999%_ _%e173954173996%_)) + (_%K173950173982%_ _%main173999%_ _%keys173994%_))) + (_%try-match173947173971%_))))))) (let () (declare (not safe)) (__bind-method!__% @@ -11881,134 +11941,134 @@ gxc#!kw-lambda::return-type '#f)) (define gxc#!kw-lambda::apply-return-type - (lambda (_%self170147%_ _%ctx170148%_ _%stx170149%_ _%args170150%_) - (let* ((_%self170153%_ _%self170147%_) - (_%g170162170173%_ - (let ((__tmp179909 + (lambda (_%self173737%_ _%ctx173738%_ _%stx173739%_ _%args173740%_) + (let* ((_%self173743%_ _%self173737%_) + (_%g173752173763%_ + (let ((__tmp183453 (let () (declare (not safe)) (##unchecked-structure-ref - _%self170153%_ + _%self173743%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp179909))) - (_%E170165170177%_ + (gxc#optimizer-lookup-type __tmp183453))) + (_%E173755173767%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g170162170173%_ + _%g173752173763%_ '((!kw-lambda-primary _ _ keys main)) '((? !procedure? proc)))) '#!void))) - (let ((_%K170167170200%_ - (lambda (_%main170191%_ _%keys170192%_) - (let ((_%main-type170193170195%_ + (let ((_%K173757173789%_ + (lambda (_%main173781%_ _%keys173782%_) + (let ((_%main-type173783173785%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%main170191%_)))) - (if _%main-type170193170195%_ - (let* ((_%main-type170198%_ _%main-type170193170195%_) - (__method179714 + (gxc#optimizer-lookup-type _%main173781%_)))) + (if _%main-type173783173785%_ + (let* ((_%main-type173787%_ _%main-type173783173785%_) + (__method183258 (let () (declare (not safe)) (__method-ref - _%main-type170198%_ + _%main-type173787%_ 'apply-return-type)))) - (if __method179714 - (let ((__tmp179910 + (if __method183258 + (let ((__tmp183454 (gxc#extract-keyword-args - _%args170150%_))) + _%args173740%_))) (declare (not safe)) - (__method179714 - _%main-type170198%_ - _%ctx170148%_ - _%stx170149%_ - __tmp179910)) + (__method183258 + _%main-type173787%_ + _%ctx173738%_ + _%stx173739%_ + __tmp183454)) (begin (let () (declare (not safe)) (error '"Missing method" - _%main-type170198%_ + _%main-type173787%_ 'apply-return-type)) '#!void))) '#f)))) - (_%K170166170183%_ - (lambda (_%proc170181%_) - (let ((__method179715 + (_%K173756173773%_ + (lambda (_%proc173771%_) + (let ((__method183259 (let () (declare (not safe)) - (__method-ref _%proc170181%_ 'apply-return-type)))) - (if __method179715 - (let ((__tmp179911 - (gxc#extract-keyword-args _%args170150%_))) + (__method-ref _%proc173771%_ 'apply-return-type)))) + (if __method183259 + (let ((__tmp183455 + (gxc#extract-keyword-args _%args173740%_))) (declare (not safe)) - (__method179715 - _%proc170181%_ - _%proc170181%_ - _%ctx170148%_ - _%stx170149%_ - __tmp179911)) + (__method183259 + _%proc173771%_ + _%proc173771%_ + _%ctx173738%_ + _%stx173739%_ + __tmp183455)) (begin (let () (declare (not safe)) (error '"Missing method" - _%proc170181%_ + _%proc173771%_ 'apply-return-type)) '#!void)))))) - (let ((_%try-match170164170188%_ + (let ((_%try-match173754173778%_ (lambda () (if (let () (declare (not safe)) (##structure-instance-of? - _%g170162170173%_ + _%g173752173763%_ 'gxc#!procedure::t)) - (let ((_%proc170186%_ _%g170162170173%_)) - (_%K170166170183%_ _%proc170186%_)) - (_%E170165170177%_))))) + (let ((_%proc173776%_ _%g173752173763%_)) + (_%K173756173773%_ _%proc173776%_)) + (_%E173755173767%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g170162170173%_ + _%g173752173763%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e170168170203%_ + (let* ((_%e173758173792%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g170162170173%_ + _%g173752173763%_ '1 '#f '#f))) - (_%e170169170206%_ + (_%e173759173795%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g170162170173%_ + _%g173752173763%_ '2 '#f '#f))) - (_%e170170170209%_ + (_%e173760173798%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g170162170173%_ + _%g173752173763%_ '3 '#f '#f))) - (_%e170171170214%_ + (_%e173761173803%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g170162170173%_ + _%g173752173763%_ '4 '#f '#f)))) - (let ((_%keys170212%_ _%e170170170209%_) - (_%main170217%_ _%e170171170214%_)) - (_%K170167170200%_ _%main170217%_ _%keys170212%_))) - (_%try-match170164170188%_))))))) + (let ((_%keys173801%_ _%e173760173798%_) + (_%main173806%_ _%e173761173803%_)) + (_%K173757173789%_ _%main173806%_ _%keys173801%_))) + (_%try-match173754173778%_))))))) (let () (declare (not safe)) (__bind-method!__% @@ -12017,788 +12077,796 @@ gxc#!kw-lambda::apply-return-type '#f)) (define gxc#extract-keyword-args - (lambda (_%args169896%_) - (let _%loop169898%_ ((_%rest169900%_ _%args169896%_) - (_%result169901%_ '())) - (let* ((_%__stx177954177955%_ _%rest169900%_) - (_%g169905169931%_ + (lambda (_%args173486%_) + (let _%loop173488%_ ((_%rest173490%_ _%args173486%_) + (_%result173491%_ '())) + (let* ((_%__stx181498181499%_ _%rest173490%_) + (_%g173495173521%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx177954177955%_))))) - (let ((_%__kont177956177957%_ - (lambda (_%L170003%_ _%L170004%_ _%L170005%_) - (_%loop169898%_ - _%L170003%_ - (cons _%L170004%_ _%result169901%_)))) - (_%__kont177958177959%_ - (lambda (_%L169951%_ _%L169952%_) - (_%loop169898%_ - _%L169951%_ - (cons _%L169952%_ _%result169901%_)))) - (_%__kont177960177961%_ - (lambda () (reverse! _%result169901%_)))) - (let ((_%__match177991177992%_ - (lambda (_%e169910169971%_ - _%hd169911169974%_ - _%tl169912169976%_ - _%e169913169979%_ - _%hd169914169982%_ - _%tl169915169984%_ - _%e169916169987%_ - _%hd169917169990%_ - _%tl169918169992%_ - _%e169919169995%_ - _%hd169920169998%_ - _%tl169921170000%_) - (let ((_%L170003%_ _%tl169921170000%_) - (_%L170004%_ _%hd169920169998%_) - (_%L170005%_ _%hd169917169990%_)) + _%__stx181498181499%_))))) + (let ((_%__kont181500181501%_ + (lambda (_%g173497173593%_ + _%g173498173594%_ + _%g173499173595%_) + (_%loop173488%_ + _%g173497173593%_ + (cons _%g173498173594%_ _%result173491%_)))) + (_%__kont181502181503%_ + (lambda (_%g173512173541%_ _%g173513173542%_) + (_%loop173488%_ + _%g173512173541%_ + (cons _%g173513173542%_ _%result173491%_)))) + (_%__kont181504181505%_ + (lambda () (reverse! _%result173491%_)))) + (let ((_%__match181535181536%_ + (lambda (_%e173500173561%_ + _%hd173501173564%_ + _%tl173502173566%_ + _%e173503173569%_ + _%hd173504173572%_ + _%tl173505173574%_ + _%e173506173577%_ + _%hd173507173580%_ + _%tl173508173582%_ + _%e173509173585%_ + _%hd173510173588%_ + _%tl173511173590%_) + (let ((_%g173497173593%_ _%tl173511173590%_) + (_%g173498173594%_ _%hd173510173588%_) + (_%g173499173595%_ _%hd173507173580%_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _%L170005%_)) - (_%__kont177956177957%_ - _%L170003%_ - _%L170004%_ - _%L170005%_) - (_%__kont177958177959%_ - _%tl169912169976%_ - _%hd169911169974%_)))))) + (gx#stx-keyword? _%g173499173595%_)) + (_%__kont181500181501%_ + _%g173497173593%_ + _%g173498173594%_ + _%g173499173595%_) + (_%__kont181502181503%_ + _%tl173502173566%_ + _%hd173501173564%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx177954177955%_)) - (let ((_%e169910169971%_ + (gx#stx-pair? _%__stx181498181499%_)) + (let ((_%e173500173561%_ (let () (declare (not safe)) - (gx#stx-e _%__stx177954177955%_)))) - (let ((_%tl169912169976%_ + (gx#stx-e _%__stx181498181499%_)))) + (let ((_%tl173502173566%_ (let () (declare (not safe)) - (##cdr _%e169910169971%_))) - (_%hd169911169974%_ + (##cdr _%e173500173561%_))) + (_%hd173501173564%_ (let () (declare (not safe)) - (##car _%e169910169971%_)))) + (##car _%e173500173561%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd169911169974%_)) - (let ((_%e169913169979%_ + (gx#stx-pair? _%hd173501173564%_)) + (let ((_%e173503173569%_ (let () (declare (not safe)) - (gx#stx-e _%hd169911169974%_)))) - (let ((_%tl169915169984%_ + (gx#stx-e _%hd173501173564%_)))) + (let ((_%tl173505173574%_ (let () (declare (not safe)) - (##cdr _%e169913169979%_))) - (_%hd169914169982%_ + (##cdr _%e173503173569%_))) + (_%hd173504173572%_ (let () (declare (not safe)) - (##car _%e169913169979%_)))) + (##car _%e173503173569%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd169914169982%_)) + (gx#identifier? _%hd173504173572%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd169914169982%_)) + _%hd173504173572%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169915169984%_)) - (let ((_%e169916169987%_ + _%tl173505173574%_)) + (let ((_%e173506173577%_ (let () (declare (not safe)) (gx#stx-e - _%tl169915169984%_)))) - (let ((_%tl169918169992%_ + _%tl173505173574%_)))) + (let ((_%tl173508173582%_ (let () (declare (not safe)) - (##cdr _%e169916169987%_))) - (_%hd169917169990%_ + (##cdr _%e173506173577%_))) + (_%hd173507173580%_ (let () (declare (not safe)) - (##car _%e169916169987%_)))) + (##car _%e173506173577%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl169918169992%_)) + _%tl173508173582%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169912169976%_)) - (let ((_%e169919169995%_ + _%tl173502173566%_)) + (let ((_%e173509173585%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl169912169976%_)))) - (let ((_%tl169921170000%_ + (gx#stx-e _%tl173502173566%_)))) + (let ((_%tl173511173590%_ (let () (declare (not safe)) - (##cdr _%e169919169995%_))) - (_%hd169920169998%_ + (##cdr _%e173509173585%_))) + (_%hd173510173588%_ (let () (declare (not safe)) - (##car _%e169919169995%_)))) - (_%__match177991177992%_ - _%e169910169971%_ - _%hd169911169974%_ - _%tl169912169976%_ - _%e169913169979%_ - _%hd169914169982%_ - _%tl169915169984%_ - _%e169916169987%_ - _%hd169917169990%_ - _%tl169918169992%_ - _%e169919169995%_ - _%hd169920169998%_ - _%tl169921170000%_))) - (_%__kont177958177959%_ _%tl169912169976%_ _%hd169911169974%_)) + (##car _%e173509173585%_)))) + (_%__match181535181536%_ + _%e173500173561%_ + _%hd173501173564%_ + _%tl173502173566%_ + _%e173503173569%_ + _%hd173504173572%_ + _%tl173505173574%_ + _%e173506173577%_ + _%hd173507173580%_ + _%tl173508173582%_ + _%e173509173585%_ + _%hd173510173588%_ + _%tl173511173590%_))) + (_%__kont181502181503%_ _%tl173502173566%_ _%hd173501173564%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177958177959%_ - _%tl169912169976%_ - _%hd169911169974%_)))) - (_%__kont177958177959%_ - _%tl169912169976%_ - _%hd169911169974%_)) - (_%__kont177958177959%_ - _%tl169912169976%_ - _%hd169911169974%_)) - (_%__kont177958177959%_ - _%tl169912169976%_ - _%hd169911169974%_)))) - (_%__kont177958177959%_ - _%tl169912169976%_ - _%hd169911169974%_)))) - (_%__kont177960177961%_)))))))) + (_%__kont181502181503%_ + _%tl173502173566%_ + _%hd173501173564%_)))) + (_%__kont181502181503%_ + _%tl173502173566%_ + _%hd173501173564%_)) + (_%__kont181502181503%_ + _%tl173502173566%_ + _%hd173501173564%_)) + (_%__kont181502181503%_ + _%tl173502173566%_ + _%hd173501173564%_)))) + (_%__kont181502181503%_ + _%tl173502173566%_ + _%hd173501173564%_)))) + (_%__kont181504181505%_)))))))) (define gxc#!lambda-arity-match? - (lambda (_%self169828%_ _%args169829%_) - (let* ((_%self169830169838%_ _%self169828%_) - (_%E169832169842%_ + (lambda (_%self173419%_ _%args173420%_) + (let* ((_%self173421173429%_ _%self173419%_) + (_%E173423173432%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self169830169838%_ + _%self173421173429%_ '((!lambda _ _ arity)))) '#!void)) - (_%K169833169882%_ - (lambda (_%arity169845%_) - (let* ((_%arity169846169855%_ _%arity169845%_) - (_%E169849169859%_ + (_%K173424173472%_ + (lambda (_%arity173435%_) + (let* ((_%arity173436173445%_ _%arity173435%_) + (_%E173439173449%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arity169846169855%_ + _%arity173436173445%_ '((? fixnum?)) '([arity]))) '#!void))) - (let ((_%K169853169879%_ + (let ((_%K173443173469%_ (lambda () - (fx= (length _%args169829%_) _%arity169845%_))) - (_%K169850169865%_ - (lambda (_%arity169863%_) - (fx>= (length _%args169829%_) _%arity169863%_)))) - (let* ((_%__match178010178011%_ - (lambda (_%hd169851169868%_ _%tl169852169870%_) - (let ((_%arity169873%_ _%hd169851169868%_)) - (_%E169849169859%_)))) - (_%try-match169848169875%_ + (fx= (length _%args173420%_) _%arity173435%_))) + (_%K173440173455%_ + (lambda (_%arity173453%_) + (fx>= (length _%args173420%_) _%arity173453%_)))) + (let* ((_%__match181554181555%_ + (lambda (_%hd173441173458%_ _%tl173442173460%_) + (let ((_%arity173463%_ _%hd173441173458%_)) + (_%E173439173449%_)))) + (_%try-match173438173465%_ (lambda () - (if (pair? _%arity169846169855%_) - (let ((_%tl169852169870%_ + (if (pair? _%arity173436173445%_) + (let ((_%tl173442173460%_ (let () (declare (not safe)) - (##cdr _%arity169846169855%_))) - (_%hd169851169868%_ + (##cdr _%arity173436173445%_))) + (_%hd173441173458%_ (let () (declare (not safe)) - (##car _%arity169846169855%_)))) - (if (null? _%tl169852169870%_) - (let ((_%arity169873%_ - _%hd169851169868%_)) - (_%K169850169865%_ - _%arity169873%_)) - (_%__match178010178011%_ - _%hd169851169868%_ - _%tl169852169870%_))) - (_%E169849169859%_))))) - (if (fixnum? _%arity169846169855%_) - (_%K169853169879%_) - (_%try-match169848169875%_)))))))) + (##car _%arity173436173445%_)))) + (if (null? _%tl173442173460%_) + (let ((_%arity173463%_ + _%hd173441173458%_)) + (_%K173440173455%_ + _%arity173463%_)) + (_%__match181554181555%_ + _%hd173441173458%_ + _%tl173442173460%_))) + (_%E173439173449%_))))) + (if (fixnum? _%arity173436173445%_) + (_%K173443173469%_) + (_%try-match173438173465%_)))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%self169830169838%_ + _%self173421173429%_ 'gxc#!lambda::t)) - (let* ((_%e169834169885%_ + (let* ((_%e173425173475%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self169830169838%_ + _%self173421173429%_ '1 '#f '#f))) - (_%e169835169888%_ + (_%e173426173478%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self169830169838%_ + _%self173421173429%_ '2 '#f '#f))) - (_%e169836169891%_ + (_%e173427173481%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self169830169838%_ + _%self173421173429%_ '3 '#f '#f))) - (_%arity169894%_ _%e169836169891%_)) - (_%K169833169882%_ _%arity169894%_)) - (_%E169832169842%_))))) + (_%arity173484%_ _%e173427173481%_)) + (_%K173424173472%_ _%arity173484%_)) + (_%E173423173432%_))))) (define gxc#!lambda-arity-match-apply? - (lambda (_%self169760%_ _%args169761%_) - (let* ((_%self169762169770%_ _%self169760%_) - (_%E169764169774%_ + (lambda (_%self173352%_ _%args173353%_) + (let* ((_%self173354173362%_ _%self173352%_) + (_%E173356173365%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self169762169770%_ + _%self173354173362%_ '((!lambda _ _ arity)))) '#!void)) - (_%K169765169814%_ - (lambda (_%arity169777%_) - (let* ((_%arity169778169787%_ _%arity169777%_) - (_%E169781169791%_ + (_%K173357173405%_ + (lambda (_%arity173368%_) + (let* ((_%arity173369173378%_ _%arity173368%_) + (_%E173372173382%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arity169778169787%_ + _%arity173369173378%_ '((? fixnum?)) '([arity]))) '#!void))) - (let ((_%K169785169811%_ + (let ((_%K173376173402%_ (lambda () - (let ((__tmp179912 (length _%args169761%_))) + (let ((__tmp183456 (length _%args173353%_))) (declare (not safe)) - (##fx>= _%arity169777%_ __tmp179912)))) - (_%K169782169797%_ (lambda (_%arity169795%_) '#t))) - (let* ((_%__match178023178024%_ - (lambda (_%hd169783169800%_ _%tl169784169802%_) - (let ((_%arity169805%_ _%hd169783169800%_)) - (_%E169781169791%_)))) - (_%try-match169780169807%_ + (##fx>= _%arity173368%_ __tmp183456)))) + (_%K173373173388%_ (lambda (_%arity173386%_) '#t))) + (let* ((_%__match181567181568%_ + (lambda (_%hd173374173391%_ _%tl173375173393%_) + (let ((_%arity173396%_ _%hd173374173391%_)) + (_%E173372173382%_)))) + (_%try-match173371173398%_ (lambda () - (if (pair? _%arity169778169787%_) - (let ((_%tl169784169802%_ + (if (pair? _%arity173369173378%_) + (let ((_%tl173375173393%_ (let () (declare (not safe)) - (##cdr _%arity169778169787%_))) - (_%hd169783169800%_ + (##cdr _%arity173369173378%_))) + (_%hd173374173391%_ (let () (declare (not safe)) - (##car _%arity169778169787%_)))) - (if (null? _%tl169784169802%_) - (let ((_%arity169805%_ - _%hd169783169800%_)) - (_%K169782169797%_ - _%arity169805%_)) - (_%__match178023178024%_ - _%hd169783169800%_ - _%tl169784169802%_))) - (_%E169781169791%_))))) - (if (fixnum? _%arity169778169787%_) - (_%K169785169811%_) - (_%try-match169780169807%_)))))))) + (##car _%arity173369173378%_)))) + (if (null? _%tl173375173393%_) + (let ((_%arity173396%_ + _%hd173374173391%_)) + (_%K173373173388%_ + _%arity173396%_)) + (_%__match181567181568%_ + _%hd173374173391%_ + _%tl173375173393%_))) + (_%E173372173382%_))))) + (if (fixnum? _%arity173369173378%_) + (_%K173376173402%_) + (_%try-match173371173398%_)))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%self169762169770%_ + _%self173354173362%_ 'gxc#!lambda::t)) - (let* ((_%e169766169817%_ + (let* ((_%e173358173408%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self169762169770%_ + _%self173354173362%_ '1 '#f '#f))) - (_%e169767169820%_ + (_%e173359173411%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self169762169770%_ + _%self173354173362%_ '2 '#f '#f))) - (_%e169768169823%_ + (_%e173360173414%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self169762169770%_ + _%self173354173362%_ '3 '#f '#f))) - (_%arity169826%_ _%e169768169823%_)) - (_%K169765169814%_ _%arity169826%_)) - (_%E169764169774%_))))) + (_%arity173417%_ _%e173360173414%_)) + (_%K173357173405%_ _%arity173417%_)) + (_%E173356173365%_))))) (define gxc#basic-expression-type-special-cast - (lambda (_%ctx169647%_ _%stx169648%_) - (let* ((_%g169650169676%_ - (lambda (_%g169651169673%_) + (lambda (_%ctx173240%_ _%stx173241%_) + (let* ((_%g173243173269%_ + (lambda (_%g173244173266%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g169651169673%_)))) - (_%g169649169757%_ - (lambda (_%g169651169679%_) + _%g173244173266%_)))) + (_%g173242173349%_ + (lambda (_%g173244173272%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g169651169679%_)) - (let ((_%e169654169681%_ + (gx#stx-pair? _%g173244173272%_)) + (let ((_%e173247173274%_ (let () (declare (not safe)) - (gx#stx-e _%g169651169679%_)))) - (let ((_%hd169655169684%_ + (gx#stx-e _%g173244173272%_)))) + (let ((_%hd173248173277%_ (let () (declare (not safe)) - (##car _%e169654169681%_))) - (_%tl169656169686%_ + (##car _%e173247173274%_))) + (_%tl173249173279%_ (let () (declare (not safe)) - (##cdr _%e169654169681%_)))) + (##cdr _%e173247173274%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169656169686%_)) - (let ((_%e169657169689%_ + (gx#stx-pair? _%tl173249173279%_)) + (let ((_%e173250173282%_ (let () (declare (not safe)) - (gx#stx-e _%tl169656169686%_)))) - (let ((_%hd169658169692%_ + (gx#stx-e _%tl173249173279%_)))) + (let ((_%hd173251173285%_ (let () (declare (not safe)) - (##car _%e169657169689%_))) - (_%tl169659169694%_ + (##car _%e173250173282%_))) + (_%tl173252173287%_ (let () (declare (not safe)) - (##cdr _%e169657169689%_)))) + (##cdr _%e173250173282%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169659169694%_)) - (let ((_%e169660169697%_ + (gx#stx-pair? _%tl173252173287%_)) + (let ((_%e173253173290%_ (let () (declare (not safe)) - (gx#stx-e _%tl169659169694%_)))) - (let ((_%hd169661169700%_ + (gx#stx-e _%tl173252173287%_)))) + (let ((_%hd173254173293%_ (let () (declare (not safe)) - (##car _%e169660169697%_))) - (_%tl169662169702%_ + (##car _%e173253173290%_))) + (_%tl173255173295%_ (let () (declare (not safe)) - (##cdr _%e169660169697%_)))) + (##cdr _%e173253173290%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd169661169700%_)) - (let ((_%e169663169705%_ + _%hd173254173293%_)) + (let ((_%e173256173298%_ (let () (declare (not safe)) (gx#stx-e - _%hd169661169700%_)))) - (let ((_%hd169664169708%_ + _%hd173254173293%_)))) + (let ((_%hd173257173301%_ (let () (declare (not safe)) - (##car _%e169663169705%_))) - (_%tl169665169710%_ + (##car _%e173256173298%_))) + (_%tl173258173303%_ (let () (declare (not safe)) - (##cdr _%e169663169705%_)))) + (##cdr _%e173256173298%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd169664169708%_)) + _%hd173257173301%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd169664169708%_)) + _%hd173257173301%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl169665169710%_)) - (let ((_%e169666169713%_ + (gx#stx-pair? _%tl173258173303%_)) + (let ((_%e173259173306%_ (let () (declare (not safe)) - (gx#stx-e _%tl169665169710%_)))) - (let ((_%hd169667169716%_ + (gx#stx-e _%tl173258173303%_)))) + (let ((_%hd173260173309%_ (let () (declare (not safe)) - (##car _%e169666169713%_))) - (_%tl169668169718%_ + (##car _%e173259173306%_))) + (_%tl173261173311%_ (let () (declare (not safe)) - (##cdr _%e169666169713%_)))) + (##cdr _%e173259173306%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169668169718%_)) + (gx#stx-null? _%tl173261173311%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169662169702%_)) - (let ((_%e169669169721%_ + (gx#stx-pair? _%tl173255173295%_)) + (let ((_%e173262173314%_ (let () (declare (not safe)) - (gx#stx-e _%tl169662169702%_)))) - (let ((_%hd169670169724%_ + (gx#stx-e _%tl173255173295%_)))) + (let ((_%hd173263173317%_ (let () (declare (not safe)) - (##car _%e169669169721%_))) - (_%tl169671169726%_ + (##car _%e173262173314%_))) + (_%tl173264173319%_ (let () (declare (not safe)) - (##cdr _%e169669169721%_)))) + (##cdr _%e173262173314%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169671169726%_)) - ((lambda (_%L169729%_ _%L169730%_) - (let ((_%interface-type169750169752%_ - (let ((__tmp179913 + (gx#stx-null? _%tl173264173319%_)) + ((lambda (_%g173245173322%_ + _%g173246173323%_) + (let ((_%interface-type173343173345%_ + (let ((__tmp183457 (let () (declare (not safe)) (gxc#identifier-symbol - _%L169730%_)))) + _%g173246173323%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp179913)))) - (if _%interface-type169750169752%_ - (let ((_%interface-type169755%_ - _%interface-type169750169752%_)) + __tmp183457)))) + (if _%interface-type173343173345%_ + (let ((_%interface-type173347%_ + _%interface-type173343173345%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%interface-type169755%_ + _%interface-type173347%_ 'gxc#!interface::t)) - (let ((__tmp179914 + (let ((__tmp183458 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%interface-type169755%_ + _%interface-type173347%_ '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx169648%_ __tmp179914)) + (gxc#optimizer-resolve-class _%stx173241%_ __tmp183458)) (let () (declare (not safe)) (gxc#raise-compile-error '"cast to non interface" - _%stx169648%_ - _%L169730%_ - _%interface-type169755%_)))) + _%stx173241%_ + _%g173246173323%_ + _%interface-type173347%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#f))) - _%hd169670169724%_ - _%hd169667169716%_) - (_%g169650169676%_ - _%g169651169679%_)))) - (_%g169650169676%_ _%g169651169679%_)) - (_%g169650169676%_ _%g169651169679%_)))) - (_%g169650169676%_ _%g169651169679%_)) - (_%g169650169676%_ _%g169651169679%_)) - (_%g169650169676%_ _%g169651169679%_)))) + _%hd173263173317%_ + _%hd173260173309%_) + (_%g173243173269%_ + _%g173244173272%_)))) + (_%g173243173269%_ _%g173244173272%_)) + (_%g173243173269%_ _%g173244173272%_)))) + (_%g173243173269%_ _%g173244173272%_)) + (_%g173243173269%_ _%g173244173272%_)) + (_%g173243173269%_ _%g173244173272%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g169650169676%_ - _%g169651169679%_)))) - (_%g169650169676%_ _%g169651169679%_)))) - (_%g169650169676%_ _%g169651169679%_)))) - (_%g169650169676%_ _%g169651169679%_))))) - (_%g169649169757%_ _%stx169648%_)))) + (_%g173243173269%_ + _%g173244173272%_)))) + (_%g173243173269%_ _%g173244173272%_)))) + (_%g173243173269%_ _%g173244173272%_)))) + (_%g173243173269%_ _%g173244173272%_))))) + (_%g173242173349%_ _%stx173241%_)))) (define gxc#basic-expression-type-special-apply - (lambda (_%ctx169437%_ _%stx169438%_) - (letrec ((_%type-e169440%_ - (lambda (_%rator169643%_ _%rator-type169644%_ _%args169645%_) + (lambda (_%ctx173032%_ _%stx173033%_) + (letrec ((_%type-e173035%_ + (lambda (_%rator173236%_ _%rator-type173237%_ _%args173238%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type169644%_ + _%rator-type173237%_ 'gxc#!procedure::t)) - (let ((__method179716 + (let ((__method183260 (let () (declare (not safe)) (__method-ref - _%rator-type169644%_ + _%rator-type173237%_ 'apply-return-type)))) - (if __method179716 + (if __method183260 (let () (declare (not safe)) - (__method179716 - _%rator-type169644%_ - _%ctx169437%_ - _%stx169438%_ - _%args169645%_)) + (__method183260 + _%rator-type173237%_ + _%ctx173032%_ + _%stx173033%_ + _%args173238%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type169644%_ + _%rator-type173237%_ 'apply-return-type)) '#!void))) '#f)))) - (let* ((_%__stx178026178027%_ _%stx169438%_) - (_%g169444169486%_ + (let* ((_%__stx181570181571%_ _%stx173033%_) + (_%g173039173081%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx178026178027%_))))) - (let ((_%__kont178028178029%_ - (lambda (_%L169607%_ _%L169608%_ _%L169609%_ _%L169610%_) - (let ((_%rator-type169633169635%_ - (gxc#apply-basic-expression-type _%L169608%_))) - (if _%rator-type169633169635%_ - (let ((_%rator-type169638%_ - _%rator-type169633169635%_)) - (_%type-e169440%_ - _%L169608%_ - _%rator-type169638%_ - (cons _%L169609%_ _%L169607%_))) + _%__stx181570181571%_))))) + (let ((_%__kont181572181573%_ + (lambda (_%g173041173201%_ + _%g173042173202%_ + _%g173043173203%_ + _%g173044173204%_) + (let ((_%rator-type173227173229%_ + (gxc#apply-basic-expression-type + _%g173042173202%_))) + (if _%rator-type173227173229%_ + (let ((_%rator-type173231%_ + _%rator-type173227173229%_)) + (_%type-e173035%_ + _%g173042173202%_ + _%rator-type173231%_ + (cons _%g173043173203%_ _%g173041173201%_))) '#f)))) - (_%__kont178030178031%_ - (lambda (_%L169522%_ _%L169523%_) - (let ((_%rator-type169539169541%_ - (gxc#apply-basic-expression-type _%L169523%_))) - (if _%rator-type169539169541%_ - (let ((_%rator-type169544%_ - _%rator-type169539169541%_)) - (_%type-e169440%_ - _%L169523%_ - _%rator-type169544%_ - _%L169522%_)) + (_%__kont181574181575%_ + (lambda (_%g173066173117%_ _%g173067173118%_) + (let ((_%rator-type173134173136%_ + (gxc#apply-basic-expression-type + _%g173067173118%_))) + (if _%rator-type173134173136%_ + (let ((_%rator-type173138%_ + _%rator-type173134173136%_)) + (_%type-e173035%_ + _%g173067173118%_ + _%rator-type173138%_ + _%g173066173117%_)) '#f)))) - (_%__kont178032178033%_ (lambda () '#f))) - (let ((_%__match178081178082%_ - (lambda (_%e169450169551%_ - _%hd169451169554%_ - _%tl169452169556%_ - _%e169453169559%_ - _%hd169454169562%_ - _%tl169455169564%_ - _%e169456169567%_ - _%hd169457169570%_ - _%tl169458169572%_ - _%e169459169575%_ - _%hd169460169578%_ - _%tl169461169580%_ - _%e169462169583%_ - _%hd169463169586%_ - _%tl169464169588%_ - _%e169465169591%_ - _%hd169466169594%_ - _%tl169467169596%_ - _%e169468169599%_ - _%hd169469169602%_ - _%tl169470169604%_) - (let ((_%L169607%_ _%tl169470169604%_) - (_%L169608%_ _%hd169469169602%_) - (_%L169609%_ _%hd169466169594%_) - (_%L169610%_ _%hd169463169586%_)) + (_%__kont181576181577%_ (lambda () '#f))) + (let ((_%__match181625181626%_ + (lambda (_%e173045173145%_ + _%hd173046173148%_ + _%tl173047173150%_ + _%e173048173153%_ + _%hd173049173156%_ + _%tl173050173158%_ + _%e173051173161%_ + _%hd173052173164%_ + _%tl173053173166%_ + _%e173054173169%_ + _%hd173055173172%_ + _%tl173056173174%_ + _%e173057173177%_ + _%hd173058173180%_ + _%tl173059173182%_ + _%e173060173185%_ + _%hd173061173188%_ + _%tl173062173190%_ + _%e173063173193%_ + _%hd173064173196%_ + _%tl173065173198%_) + (let ((_%g173041173201%_ _%tl173065173198%_) + (_%g173042173202%_ _%hd173064173196%_) + (_%g173043173203%_ _%hd173061173188%_) + (_%g173044173204%_ _%hd173058173180%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L169610%_ + _%g173044173204%_ 'keyword-dispatch)) - (_%__kont178028178029%_ - _%L169607%_ - _%L169608%_ - _%L169609%_ - _%L169610%_) - (_%__kont178030178031%_ - _%tl169458169572%_ - _%hd169457169570%_)))))) + (_%__kont181572181573%_ + _%g173041173201%_ + _%g173042173202%_ + _%g173043173203%_ + _%g173044173204%_) + (_%__kont181574181575%_ + _%tl173053173166%_ + _%hd173052173164%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx178026178027%_)) - (let ((_%e169450169551%_ + (gx#stx-pair? _%__stx181570181571%_)) + (let ((_%e173045173145%_ (let () (declare (not safe)) - (gx#stx-e _%__stx178026178027%_)))) - (let ((_%tl169452169556%_ + (gx#stx-e _%__stx181570181571%_)))) + (let ((_%tl173047173150%_ (let () (declare (not safe)) - (##cdr _%e169450169551%_))) - (_%hd169451169554%_ + (##cdr _%e173045173145%_))) + (_%hd173046173148%_ (let () (declare (not safe)) - (##car _%e169450169551%_)))) + (##car _%e173045173145%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169452169556%_)) - (let ((_%e169453169559%_ + (gx#stx-pair? _%tl173047173150%_)) + (let ((_%e173048173153%_ (let () (declare (not safe)) - (gx#stx-e _%tl169452169556%_)))) - (let ((_%tl169455169564%_ + (gx#stx-e _%tl173047173150%_)))) + (let ((_%tl173050173158%_ (let () (declare (not safe)) - (##cdr _%e169453169559%_))) - (_%hd169454169562%_ + (##cdr _%e173048173153%_))) + (_%hd173049173156%_ (let () (declare (not safe)) - (##car _%e169453169559%_)))) + (##car _%e173048173153%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169455169564%_)) - (let ((_%e169456169567%_ + (gx#stx-pair? _%tl173050173158%_)) + (let ((_%e173051173161%_ (let () (declare (not safe)) - (gx#stx-e _%tl169455169564%_)))) - (let ((_%tl169458169572%_ + (gx#stx-e _%tl173050173158%_)))) + (let ((_%tl173053173166%_ (let () (declare (not safe)) - (##cdr _%e169456169567%_))) - (_%hd169457169570%_ + (##cdr _%e173051173161%_))) + (_%hd173052173164%_ (let () (declare (not safe)) - (##car _%e169456169567%_)))) + (##car _%e173051173161%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd169457169570%_)) - (let ((_%e169459169575%_ + _%hd173052173164%_)) + (let ((_%e173054173169%_ (let () (declare (not safe)) (gx#stx-e - _%hd169457169570%_)))) - (let ((_%tl169461169580%_ + _%hd173052173164%_)))) + (let ((_%tl173056173174%_ (let () (declare (not safe)) - (##cdr _%e169459169575%_))) - (_%hd169460169578%_ + (##cdr _%e173054173169%_))) + (_%hd173055173172%_ (let () (declare (not safe)) - (##car _%e169459169575%_)))) + (##car _%e173054173169%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd169460169578%_)) + _%hd173055173172%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd169460169578%_)) + _%hd173055173172%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169461169580%_)) - (let ((_%e169462169583%_ + _%tl173056173174%_)) + (let ((_%e173057173177%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl169461169580%_)))) - (let ((_%tl169464169588%_ + (gx#stx-e _%tl173056173174%_)))) + (let ((_%tl173059173182%_ (let () (declare (not safe)) - (##cdr _%e169462169583%_))) - (_%hd169463169586%_ + (##cdr _%e173057173177%_))) + (_%hd173058173180%_ (let () (declare (not safe)) - (##car _%e169462169583%_)))) + (##car _%e173057173177%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169464169588%_)) + (gx#stx-null? _%tl173059173182%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169458169572%_)) - (let ((_%e169465169591%_ + (gx#stx-pair? _%tl173053173166%_)) + (let ((_%e173060173185%_ (let () (declare (not safe)) - (gx#stx-e _%tl169458169572%_)))) - (let ((_%tl169467169596%_ + (gx#stx-e _%tl173053173166%_)))) + (let ((_%tl173062173190%_ (let () (declare (not safe)) - (##cdr _%e169465169591%_))) - (_%hd169466169594%_ + (##cdr _%e173060173185%_))) + (_%hd173061173188%_ (let () (declare (not safe)) - (##car _%e169465169591%_)))) + (##car _%e173060173185%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169467169596%_)) - (let ((_%e169468169599%_ + (gx#stx-pair? _%tl173062173190%_)) + (let ((_%e173063173193%_ (let () (declare (not safe)) (gx#stx-e - _%tl169467169596%_)))) - (let ((_%tl169470169604%_ + _%tl173062173190%_)))) + (let ((_%tl173065173198%_ (let () (declare (not safe)) - (##cdr _%e169468169599%_))) - (_%hd169469169602%_ + (##cdr _%e173063173193%_))) + (_%hd173064173196%_ (let () (declare (not safe)) - (##car _%e169468169599%_)))) - (_%__match178081178082%_ - _%e169450169551%_ - _%hd169451169554%_ - _%tl169452169556%_ - _%e169453169559%_ - _%hd169454169562%_ - _%tl169455169564%_ - _%e169456169567%_ - _%hd169457169570%_ - _%tl169458169572%_ - _%e169459169575%_ - _%hd169460169578%_ - _%tl169461169580%_ - _%e169462169583%_ - _%hd169463169586%_ - _%tl169464169588%_ - _%e169465169591%_ - _%hd169466169594%_ - _%tl169467169596%_ - _%e169468169599%_ - _%hd169469169602%_ - _%tl169470169604%_))) - (_%__kont178030178031%_ - _%tl169458169572%_ - _%hd169457169570%_)))) - (_%__kont178030178031%_ - _%tl169458169572%_ - _%hd169457169570%_)) - (_%__kont178030178031%_ - _%tl169458169572%_ - _%hd169457169570%_)))) - (_%__kont178030178031%_ - _%tl169458169572%_ - _%hd169457169570%_)) - (_%__kont178030178031%_ _%tl169458169572%_ _%hd169457169570%_)) + (##car _%e173063173193%_)))) + (_%__match181625181626%_ + _%e173045173145%_ + _%hd173046173148%_ + _%tl173047173150%_ + _%e173048173153%_ + _%hd173049173156%_ + _%tl173050173158%_ + _%e173051173161%_ + _%hd173052173164%_ + _%tl173053173166%_ + _%e173054173169%_ + _%hd173055173172%_ + _%tl173056173174%_ + _%e173057173177%_ + _%hd173058173180%_ + _%tl173059173182%_ + _%e173060173185%_ + _%hd173061173188%_ + _%tl173062173190%_ + _%e173063173193%_ + _%hd173064173196%_ + _%tl173065173198%_))) + (_%__kont181574181575%_ + _%tl173053173166%_ + _%hd173052173164%_)))) + (_%__kont181574181575%_ + _%tl173053173166%_ + _%hd173052173164%_)) + (_%__kont181574181575%_ + _%tl173053173166%_ + _%hd173052173164%_)))) + (_%__kont181574181575%_ + _%tl173053173166%_ + _%hd173052173164%_)) + (_%__kont181574181575%_ _%tl173053173166%_ _%hd173052173164%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178030178031%_ - _%tl169458169572%_ - _%hd169457169570%_)))) - (_%__kont178030178031%_ - _%tl169458169572%_ - _%hd169457169570%_)))) - (_%__kont178032178033%_)))) - (_%__kont178032178033%_)))) - (_%__kont178032178033%_)))))))) + (_%__kont181574181575%_ + _%tl173053173166%_ + _%hd173052173164%_)))) + (_%__kont181574181575%_ + _%tl173053173166%_ + _%hd173052173164%_)))) + (_%__kont181576181577%_)))) + (_%__kont181576181577%_)))) + (_%__kont181576181577%_)))))))) (let () (declare (not safe)) (__hash-put! @@ -12818,1758 +12886,1774 @@ '##apply gxc#basic-expression-type-special-apply)) (define gxc#basic-expression-type-ref% - (lambda (_%self169385%_ _%stx169386%_) - (let* ((_%g169388169401%_ - (lambda (_%g169389169398%_) + (lambda (_%self172980%_ _%stx172981%_) + (let* ((_%g172983172996%_ + (lambda (_%g172984172993%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g169389169398%_)))) - (_%g169387169434%_ - (lambda (_%g169389169404%_) + _%g172984172993%_)))) + (_%g172982173029%_ + (lambda (_%g172984172999%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g169389169404%_)) - (let ((_%e169391169406%_ + (gx#stx-pair? _%g172984172999%_)) + (let ((_%e172986173001%_ (let () (declare (not safe)) - (gx#stx-e _%g169389169404%_)))) - (let ((_%hd169392169409%_ + (gx#stx-e _%g172984172999%_)))) + (let ((_%hd172987173004%_ (let () (declare (not safe)) - (##car _%e169391169406%_))) - (_%tl169393169411%_ + (##car _%e172986173001%_))) + (_%tl172988173006%_ (let () (declare (not safe)) - (##cdr _%e169391169406%_)))) + (##cdr _%e172986173001%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169393169411%_)) - (let ((_%e169394169414%_ + (gx#stx-pair? _%tl172988173006%_)) + (let ((_%e172989173009%_ (let () (declare (not safe)) - (gx#stx-e _%tl169393169411%_)))) - (let ((_%hd169395169417%_ + (gx#stx-e _%tl172988173006%_)))) + (let ((_%hd172990173012%_ (let () (declare (not safe)) - (##car _%e169394169414%_))) - (_%tl169396169419%_ + (##car _%e172989173009%_))) + (_%tl172991173014%_ (let () (declare (not safe)) - (##cdr _%e169394169414%_)))) + (##cdr _%e172989173009%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169396169419%_)) - ((lambda (_%L169422%_) - (let ((__tmp179915 + (gx#stx-null? _%tl172991173014%_)) + ((lambda (_%g172985173017%_) + (let ((__tmp183459 (let () (declare (not safe)) (gxc#identifier-symbol - _%L169422%_)))) + _%g172985173017%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp179915))) - _%hd169395169417%_) - (_%g169388169401%_ _%g169389169404%_)))) - (_%g169388169401%_ _%g169389169404%_)))) - (_%g169388169401%_ _%g169389169404%_))))) - (_%g169387169434%_ _%stx169386%_)))) + __tmp183459))) + _%hd172990173012%_) + (_%g172983172996%_ _%g172984172999%_)))) + (_%g172983172996%_ _%g172984172999%_)))) + (_%g172983172996%_ _%g172984172999%_))))) + (_%g172982173029%_ _%stx172981%_)))) (define gxc#basic-expression-type-if% - (lambda (_%self168964%_ _%stx168965%_) - (letrec ((_%type-e168967%_ - (lambda (_%type-K169379%_ _%type-E169380%_) + (lambda (_%self172559%_ _%stx172560%_) + (letrec ((_%type-e172562%_ + (lambda (_%type-K172974%_ _%type-E172975%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%type-E169380%_ + _%type-E172975%_ 'gxc#!abort::t)) - _%type-K169379%_ + _%type-K172974%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-K169379%_ + _%type-K172974%_ 'gxc#!abort::t)) - _%type-E169380%_ + _%type-E172975%_ (gxc#greatest-common-type - _%stx168965%_ - _%type-K169379%_ - _%type-E169380%_))))) - (_%basic-type-e168968%_ - (lambda (_%K169373%_ _%E169374%_) - (let ((_%type-K169376%_ - (gxc#apply-basic-expression-type _%K169373%_)) - (_%type-E169377%_ - (gxc#apply-basic-expression-type _%E169374%_))) - (_%type-e168967%_ _%type-K169376%_ _%type-E169377%_))))) - (let* ((_%__stx178102178103%_ _%stx168965%_) - (_%g168972169061%_ + _%stx172560%_ + _%type-K172974%_ + _%type-E172975%_))))) + (_%basic-type-e172563%_ + (lambda (_%K172968%_ _%E172969%_) + (let ((_%type-K172971%_ + (gxc#apply-basic-expression-type _%K172968%_)) + (_%type-E172972%_ + (gxc#apply-basic-expression-type _%E172969%_))) + (_%type-e172562%_ _%type-K172971%_ _%type-E172972%_))))) + (let* ((_%__stx181646181647%_ _%stx172560%_) + (_%g172567172656%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx178102178103%_))))) - (let ((_%__kont178104178105%_ - (lambda (_%L169320%_ _%L169321%_ _%L169322%_ _%L169323%_) - (let ((_%$e169355%_ - (let ((__tmp179916 + _%__stx181646181647%_))))) + (let ((_%__kont181648181649%_ + (lambda (_%g172569172915%_ + _%g172570172916%_ + _%g172571172917%_ + _%g172572172918%_) + (let ((_%$e172950%_ + (let ((__tmp183460 (let () (declare (not safe)) - (gxc#identifier-symbol _%L169323%_)))) + (gxc#identifier-symbol + _%g172572172918%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp179916)))) - (if _%$e169355%_ - ((lambda (_%pred-type169358%_) + (gxc#optimizer-lookup-type __tmp183460)))) + (if _%$e172950%_ + ((lambda (_%pred-type172953%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type169358%_ + _%pred-type172953%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type169358%_ + _%pred-type172953%_ 'gxc#!primitive-predicate::t))) - (let* ((_%type-K169364%_ - (let ((__tmp179919 + (let* ((_%type-K172959%_ + (let ((__tmp183463 (lambda () (gxc#apply-basic-expression-type - _%L169321%_))) - (__tmp179917 + _%g172570172916%_))) + (__tmp183461 (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#identifier-symbol _%L169322%_)) - (let ((__tmp179918 + (gxc#identifier-symbol _%g172571172917%_)) + (let ((__tmp183462 (##structure-ref - _%pred-type169358%_ + _%pred-type172953%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168965%_ - __tmp179918))) + _%stx172560%_ + __tmp183462))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters__1 - __tmp179919 + __tmp183463 gxc#current-compile-path-type - __tmp179917))) - (_%type-E169366%_ + __tmp183461))) + (_%type-E172961%_ (gxc#apply-basic-expression-type - _%L169320%_))) - (_%type-e168967%_ - _%type-K169364%_ - _%type-E169366%_)) - (_%basic-type-e168968%_ - _%L169321%_ - _%L169320%_))) - _%$e169355%_) - (_%basic-type-e168968%_ _%L169321%_ _%L169320%_))))) - (_%__kont178106178107%_ - (lambda (_%L169196%_ _%L169197%_ _%L169198%_ _%L169199%_) + _%g172569172915%_))) + (_%type-e172562%_ + _%type-K172959%_ + _%type-E172961%_)) + (_%basic-type-e172563%_ + _%g172570172916%_ + _%g172569172915%_))) + _%$e172950%_) + (_%basic-type-e172563%_ + _%g172570172916%_ + _%g172569172915%_))))) + (_%__kont181650181651%_ + (lambda (_%g172606172791%_ + _%g172607172792%_ + _%g172608172793%_ + _%g172609172794%_) (gxc#basic-expression-type-if% - _%self168964%_ - (let ((__tmp179920 + _%self172559%_ + (let ((__tmp183464 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L169198%_ - (cons _%L169196%_ - (cons _%L169197%_ '())))))) + (cons _%g172608172793%_ + (cons _%g172606172791%_ + (cons _%g172607172792%_ + '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp179920 _%stx168965%_))))) - (_%__kont178108178109%_ - (lambda (_%L169098%_ _%L169099%_ _%L169100%_) - (_%basic-type-e168968%_ _%L169099%_ _%L169098%_)))) - (let ((_%__match178263178264%_ - (lambda (_%e169015169124%_ - _%hd169016169127%_ - _%tl169017169129%_ - _%e169018169132%_ - _%hd169019169135%_ - _%tl169020169137%_ - _%e169021169140%_ - _%hd169022169143%_ - _%tl169023169145%_ - _%e169024169148%_ - _%hd169025169151%_ - _%tl169026169153%_ - _%e169027169156%_ - _%hd169028169159%_ - _%tl169029169161%_ - _%e169030169164%_ - _%hd169031169167%_ - _%tl169032169169%_ - _%e169033169172%_ - _%hd169034169175%_ - _%tl169035169177%_ - _%e169036169180%_ - _%hd169037169183%_ - _%tl169038169185%_ - _%e169039169188%_ - _%hd169040169191%_ - _%tl169041169193%_) - (let ((_%L169196%_ _%hd169040169191%_) - (_%L169197%_ _%hd169037169183%_) - (_%L169198%_ _%hd169034169175%_) - (_%L169199%_ _%hd169031169167%_)) + (gxc#xform-wrap-source __tmp183464 _%stx172560%_))))) + (_%__kont181652181653%_ + (lambda (_%g172637172693%_ + _%g172638172694%_ + _%g172639172695%_) + (_%basic-type-e172563%_ + _%g172638172694%_ + _%g172637172693%_)))) + (let ((_%__match181807181808%_ + (lambda (_%e172610172719%_ + _%hd172611172722%_ + _%tl172612172724%_ + _%e172613172727%_ + _%hd172614172730%_ + _%tl172615172732%_ + _%e172616172735%_ + _%hd172617172738%_ + _%tl172618172740%_ + _%e172619172743%_ + _%hd172620172746%_ + _%tl172621172748%_ + _%e172622172751%_ + _%hd172623172754%_ + _%tl172624172756%_ + _%e172625172759%_ + _%hd172626172762%_ + _%tl172627172764%_ + _%e172628172767%_ + _%hd172629172770%_ + _%tl172630172772%_ + _%e172631172775%_ + _%hd172632172778%_ + _%tl172633172780%_ + _%e172634172783%_ + _%hd172635172786%_ + _%tl172636172788%_) + (let ((_%g172606172791%_ _%hd172635172786%_) + (_%g172607172792%_ _%hd172632172778%_) + (_%g172608172793%_ _%hd172629172770%_) + (_%g172609172794%_ _%hd172626172762%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L169199%_ 'not)) - (_%__kont178106178107%_ - _%L169196%_ - _%L169197%_ - _%L169198%_ - _%L169199%_) - (_%__kont178108178109%_ - _%hd169040169191%_ - _%hd169037169183%_ - _%hd169019169135%_)))))) + (gxc#runtime-identifier=? + _%g172609172794%_ + 'not)) + (_%__kont181650181651%_ + _%g172606172791%_ + _%g172607172792%_ + _%g172608172793%_ + _%g172609172794%_) + (_%__kont181652181653%_ + _%hd172635172786%_ + _%hd172632172778%_ + _%hd172614172730%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx178102178103%_)) - (let ((_%e168978169232%_ + (gx#stx-pair? _%__stx181646181647%_)) + (let ((_%e172573172827%_ (let () (declare (not safe)) - (gx#stx-e _%__stx178102178103%_)))) - (let ((_%tl168980169237%_ + (gx#stx-e _%__stx181646181647%_)))) + (let ((_%tl172575172832%_ (let () (declare (not safe)) - (##cdr _%e168978169232%_))) - (_%hd168979169235%_ + (##cdr _%e172573172827%_))) + (_%hd172574172830%_ (let () (declare (not safe)) - (##car _%e168978169232%_)))) + (##car _%e172573172827%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168980169237%_)) - (let ((_%e168981169240%_ + (gx#stx-pair? _%tl172575172832%_)) + (let ((_%e172576172835%_ (let () (declare (not safe)) - (gx#stx-e _%tl168980169237%_)))) - (let ((_%tl168983169245%_ + (gx#stx-e _%tl172575172832%_)))) + (let ((_%tl172578172840%_ (let () (declare (not safe)) - (##cdr _%e168981169240%_))) - (_%hd168982169243%_ + (##cdr _%e172576172835%_))) + (_%hd172577172838%_ (let () (declare (not safe)) - (##car _%e168981169240%_)))) + (##car _%e172576172835%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd168982169243%_)) - (let ((_%e168984169248%_ + (gx#stx-pair? _%hd172577172838%_)) + (let ((_%e172579172843%_ (let () (declare (not safe)) - (gx#stx-e _%hd168982169243%_)))) - (let ((_%tl168986169253%_ + (gx#stx-e _%hd172577172838%_)))) + (let ((_%tl172581172848%_ (let () (declare (not safe)) - (##cdr _%e168984169248%_))) - (_%hd168985169251%_ + (##cdr _%e172579172843%_))) + (_%hd172580172846%_ (let () (declare (not safe)) - (##car _%e168984169248%_)))) + (##car _%e172579172843%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd168985169251%_)) + _%hd172580172846%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd168985169251%_)) + _%hd172580172846%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168986169253%_)) - (let ((_%e168987169256%_ + _%tl172581172848%_)) + (let ((_%e172582172851%_ (let () (declare (not safe)) (gx#stx-e - _%tl168986169253%_)))) - (let ((_%tl168989169261%_ + _%tl172581172848%_)))) + (let ((_%tl172584172856%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e168987169256%_))) - (_%hd168988169259%_ - (let () (declare (not safe)) (##car _%e168987169256%_)))) + (##cdr _%e172582172851%_))) + (_%hd172583172854%_ + (let () (declare (not safe)) (##car _%e172582172851%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd168988169259%_)) - (let ((_%e168990169264%_ + (gx#stx-pair? _%hd172583172854%_)) + (let ((_%e172585172859%_ (let () (declare (not safe)) - (gx#stx-e _%hd168988169259%_)))) - (let ((_%tl168992169269%_ + (gx#stx-e _%hd172583172854%_)))) + (let ((_%tl172587172864%_ (let () (declare (not safe)) - (##cdr _%e168990169264%_))) - (_%hd168991169267%_ + (##cdr _%e172585172859%_))) + (_%hd172586172862%_ (let () (declare (not safe)) - (##car _%e168990169264%_)))) + (##car _%e172585172859%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd168991169267%_)) + (gx#identifier? _%hd172586172862%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd168991169267%_)) + (gx#stx-eq? '%#ref _%hd172586172862%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168992169269%_)) - (let ((_%e168993169272%_ + (gx#stx-pair? _%tl172587172864%_)) + (let ((_%e172588172867%_ (let () (declare (not safe)) - (gx#stx-e _%tl168992169269%_)))) - (let ((_%tl168995169277%_ + (gx#stx-e _%tl172587172864%_)))) + (let ((_%tl172590172872%_ (let () (declare (not safe)) - (##cdr _%e168993169272%_))) - (_%hd168994169275%_ + (##cdr _%e172588172867%_))) + (_%hd172589172870%_ (let () (declare (not safe)) - (##car _%e168993169272%_)))) + (##car _%e172588172867%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl168995169277%_)) + _%tl172590172872%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168989169261%_)) - (let ((_%e168996169280%_ + _%tl172584172856%_)) + (let ((_%e172591172875%_ (let () (declare (not safe)) (gx#stx-e - _%tl168989169261%_)))) - (let ((_%tl168998169285%_ + _%tl172584172856%_)))) + (let ((_%tl172593172880%_ (let () (declare (not safe)) - (##cdr _%e168996169280%_))) - (_%hd168997169283%_ + (##cdr _%e172591172875%_))) + (_%hd172592172878%_ (let () (declare (not safe)) - (##car _%e168996169280%_)))) + (##car _%e172591172875%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd168997169283%_)) - (let ((_%e168999169288%_ + _%hd172592172878%_)) + (let ((_%e172594172883%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd168997169283%_)))) - (let ((_%tl169001169293%_ + (gx#stx-e _%hd172592172878%_)))) + (let ((_%tl172596172888%_ (let () (declare (not safe)) - (##cdr _%e168999169288%_))) - (_%hd169000169291%_ + (##cdr _%e172594172883%_))) + (_%hd172595172886%_ (let () (declare (not safe)) - (##car _%e168999169288%_)))) + (##car _%e172594172883%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd169000169291%_)) + (gx#identifier? _%hd172595172886%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd169000169291%_)) + (gx#stx-eq? '%#ref _%hd172595172886%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169001169293%_)) - (let ((_%e169002169296%_ + (gx#stx-pair? _%tl172596172888%_)) + (let ((_%e172597172891%_ (let () (declare (not safe)) - (gx#stx-e _%tl169001169293%_)))) - (let ((_%tl169004169301%_ + (gx#stx-e _%tl172596172888%_)))) + (let ((_%tl172599172896%_ (let () (declare (not safe)) - (##cdr _%e169002169296%_))) - (_%hd169003169299%_ + (##cdr _%e172597172891%_))) + (_%hd172598172894%_ (let () (declare (not safe)) - (##car _%e169002169296%_)))) + (##car _%e172597172891%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169004169301%_)) + (gx#stx-null? _%tl172599172896%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl168998169285%_)) + _%tl172593172880%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168983169245%_)) - (let ((_%e169005169304%_ + _%tl172578172840%_)) + (let ((_%e172600172899%_ (let () (declare (not safe)) (gx#stx-e - _%tl168983169245%_)))) - (let ((_%tl169007169309%_ + _%tl172578172840%_)))) + (let ((_%tl172602172904%_ (let () (declare (not safe)) - (##cdr _%e169005169304%_))) - (_%hd169006169307%_ + (##cdr _%e172600172899%_))) + (_%hd172601172902%_ (let () (declare (not safe)) - (##car _%e169005169304%_)))) + (##car _%e172600172899%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169007169309%_)) - (let ((_%e169008169312%_ + _%tl172602172904%_)) + (let ((_%e172603172907%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl169007169309%_)))) - (let ((_%tl169010169317%_ + (gx#stx-e _%tl172602172904%_)))) + (let ((_%tl172605172912%_ (let () (declare (not safe)) - (##cdr _%e169008169312%_))) - (_%hd169009169315%_ + (##cdr _%e172603172907%_))) + (_%hd172604172910%_ (let () (declare (not safe)) - (##car _%e169008169312%_)))) + (##car _%e172603172907%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169010169317%_)) - (_%__kont178104178105%_ - _%hd169009169315%_ - _%hd169006169307%_ - _%hd169003169299%_ - _%hd168994169275%_) - (let () (declare (not safe)) (_%g168972169061%_))))) - (let () (declare (not safe)) (_%g168972169061%_))))) + (gx#stx-null? _%tl172605172912%_)) + (_%__kont181648181649%_ + _%hd172604172910%_ + _%hd172601172902%_ + _%hd172598172894%_ + _%hd172589172870%_) + (let () (declare (not safe)) (_%g172567172656%_))))) + (let () (declare (not safe)) (_%g172567172656%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g168972169061%_))) + (_%g172567172656%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168983169245%_)) - (let ((_%e169051169082%_ + _%tl172578172840%_)) + (let ((_%e172646172677%_ (let () (declare (not safe)) (gx#stx-e - _%tl168983169245%_)))) - (let ((_%tl169053169087%_ + _%tl172578172840%_)))) + (let ((_%tl172648172682%_ (let () (declare (not safe)) - (##cdr _%e169051169082%_))) - (_%hd169052169085%_ + (##cdr _%e172646172677%_))) + (_%hd172647172680%_ (let () (declare (not safe)) - (##car _%e169051169082%_)))) + (##car _%e172646172677%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169053169087%_)) - (let ((_%e169054169090%_ + _%tl172648172682%_)) + (let ((_%e172649172685%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl169053169087%_)))) - (let ((_%tl169056169095%_ + (gx#stx-e _%tl172648172682%_)))) + (let ((_%tl172651172690%_ (let () (declare (not safe)) - (##cdr _%e169054169090%_))) - (_%hd169055169093%_ + (##cdr _%e172649172685%_))) + (_%hd172650172688%_ (let () (declare (not safe)) - (##car _%e169054169090%_)))) + (##car _%e172649172685%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169056169095%_)) - (_%__kont178108178109%_ - _%hd169055169093%_ - _%hd169052169085%_ - _%hd168982169243%_) - (let () (declare (not safe)) (_%g168972169061%_))))) - (let () (declare (not safe)) (_%g168972169061%_))))) + (gx#stx-null? _%tl172651172690%_)) + (_%__kont181652181653%_ + _%hd172650172688%_ + _%hd172647172680%_ + _%hd172577172838%_) + (let () (declare (not safe)) (_%g172567172656%_))))) + (let () (declare (not safe)) (_%g172567172656%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g168972169061%_)))) + (_%g172567172656%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl168998169285%_)) + _%tl172593172880%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168983169245%_)) - (let ((_%e169036169180%_ + _%tl172578172840%_)) + (let ((_%e172631172775%_ (let () (declare (not safe)) (gx#stx-e - _%tl168983169245%_)))) - (let ((_%tl169038169185%_ + _%tl172578172840%_)))) + (let ((_%tl172633172780%_ (let () (declare (not safe)) - (##cdr _%e169036169180%_))) - (_%hd169037169183%_ + (##cdr _%e172631172775%_))) + (_%hd172632172778%_ (let () (declare (not safe)) - (##car _%e169036169180%_)))) + (##car _%e172631172775%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169038169185%_)) - (let ((_%e169039169188%_ + _%tl172633172780%_)) + (let ((_%e172634172783%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl169038169185%_)))) - (let ((_%tl169041169193%_ + (gx#stx-e _%tl172633172780%_)))) + (let ((_%tl172636172788%_ (let () (declare (not safe)) - (##cdr _%e169039169188%_))) - (_%hd169040169191%_ + (##cdr _%e172634172783%_))) + (_%hd172635172786%_ (let () (declare (not safe)) - (##car _%e169039169188%_)))) + (##car _%e172634172783%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169041169193%_)) - (_%__match178263178264%_ - _%e168978169232%_ - _%hd168979169235%_ - _%tl168980169237%_ - _%e168981169240%_ - _%hd168982169243%_ - _%tl168983169245%_ - _%e168984169248%_ - _%hd168985169251%_ - _%tl168986169253%_ - _%e168987169256%_ - _%hd168988169259%_ - _%tl168989169261%_ - _%e168990169264%_ - _%hd168991169267%_ - _%tl168992169269%_ - _%e168993169272%_ - _%hd168994169275%_ - _%tl168995169277%_ - _%e168996169280%_ - _%hd168997169283%_ - _%tl168998169285%_ - _%e169036169180%_ - _%hd169037169183%_ - _%tl169038169185%_ - _%e169039169188%_ - _%hd169040169191%_ - _%tl169041169193%_) - (let () (declare (not safe)) (_%g168972169061%_))))) - (let () (declare (not safe)) (_%g168972169061%_))))) + (gx#stx-null? _%tl172636172788%_)) + (_%__match181807181808%_ + _%e172573172827%_ + _%hd172574172830%_ + _%tl172575172832%_ + _%e172576172835%_ + _%hd172577172838%_ + _%tl172578172840%_ + _%e172579172843%_ + _%hd172580172846%_ + _%tl172581172848%_ + _%e172582172851%_ + _%hd172583172854%_ + _%tl172584172856%_ + _%e172585172859%_ + _%hd172586172862%_ + _%tl172587172864%_ + _%e172588172867%_ + _%hd172589172870%_ + _%tl172590172872%_ + _%e172591172875%_ + _%hd172592172878%_ + _%tl172593172880%_ + _%e172631172775%_ + _%hd172632172778%_ + _%tl172633172780%_ + _%e172634172783%_ + _%hd172635172786%_ + _%tl172636172788%_) + (let () (declare (not safe)) (_%g172567172656%_))))) + (let () (declare (not safe)) (_%g172567172656%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g168972169061%_))) + (_%g172567172656%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168983169245%_)) - (let ((_%e169051169082%_ + _%tl172578172840%_)) + (let ((_%e172646172677%_ (let () (declare (not safe)) (gx#stx-e - _%tl168983169245%_)))) - (let ((_%tl169053169087%_ + _%tl172578172840%_)))) + (let ((_%tl172648172682%_ (let () (declare (not safe)) - (##cdr _%e169051169082%_))) - (_%hd169052169085%_ + (##cdr _%e172646172677%_))) + (_%hd172647172680%_ (let () (declare (not safe)) - (##car _%e169051169082%_)))) + (##car _%e172646172677%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169053169087%_)) - (let ((_%e169054169090%_ + _%tl172648172682%_)) + (let ((_%e172649172685%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl169053169087%_)))) - (let ((_%tl169056169095%_ + (gx#stx-e _%tl172648172682%_)))) + (let ((_%tl172651172690%_ (let () (declare (not safe)) - (##cdr _%e169054169090%_))) - (_%hd169055169093%_ + (##cdr _%e172649172685%_))) + (_%hd172650172688%_ (let () (declare (not safe)) - (##car _%e169054169090%_)))) + (##car _%e172649172685%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169056169095%_)) - (_%__kont178108178109%_ - _%hd169055169093%_ - _%hd169052169085%_ - _%hd168982169243%_) - (let () (declare (not safe)) (_%g168972169061%_))))) - (let () (declare (not safe)) (_%g168972169061%_))))) + (gx#stx-null? _%tl172651172690%_)) + (_%__kont181652181653%_ + _%hd172650172688%_ + _%hd172647172680%_ + _%hd172577172838%_) + (let () (declare (not safe)) (_%g172567172656%_))))) + (let () (declare (not safe)) (_%g172567172656%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g168972169061%_))))))) + (_%g172567172656%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl168998169285%_)) + (gx#stx-null? _%tl172593172880%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168983169245%_)) - (let ((_%e169036169180%_ + (gx#stx-pair? _%tl172578172840%_)) + (let ((_%e172631172775%_ (let () (declare (not safe)) (gx#stx-e - _%tl168983169245%_)))) - (let ((_%tl169038169185%_ + _%tl172578172840%_)))) + (let ((_%tl172633172780%_ (let () (declare (not safe)) - (##cdr _%e169036169180%_))) - (_%hd169037169183%_ + (##cdr _%e172631172775%_))) + (_%hd172632172778%_ (let () (declare (not safe)) - (##car _%e169036169180%_)))) + (##car _%e172631172775%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169038169185%_)) - (let ((_%e169039169188%_ + _%tl172633172780%_)) + (let ((_%e172634172783%_ (let () (declare (not safe)) (gx#stx-e - _%tl169038169185%_)))) - (let ((_%tl169041169193%_ + _%tl172633172780%_)))) + (let ((_%tl172636172788%_ (let () (declare (not safe)) - (##cdr _%e169039169188%_))) - (_%hd169040169191%_ + (##cdr _%e172634172783%_))) + (_%hd172635172786%_ (let () (declare (not safe)) - (##car _%e169039169188%_)))) + (##car _%e172634172783%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl169041169193%_)) - (_%__match178263178264%_ - _%e168978169232%_ - _%hd168979169235%_ - _%tl168980169237%_ - _%e168981169240%_ - _%hd168982169243%_ - _%tl168983169245%_ - _%e168984169248%_ - _%hd168985169251%_ - _%tl168986169253%_ - _%e168987169256%_ - _%hd168988169259%_ - _%tl168989169261%_ - _%e168990169264%_ - _%hd168991169267%_ - _%tl168992169269%_ - _%e168993169272%_ - _%hd168994169275%_ - _%tl168995169277%_ - _%e168996169280%_ - _%hd168997169283%_ - _%tl168998169285%_ - _%e169036169180%_ - _%hd169037169183%_ - _%tl169038169185%_ - _%e169039169188%_ - _%hd169040169191%_ - _%tl169041169193%_) + _%tl172636172788%_)) + (_%__match181807181808%_ + _%e172573172827%_ + _%hd172574172830%_ + _%tl172575172832%_ + _%e172576172835%_ + _%hd172577172838%_ + _%tl172578172840%_ + _%e172579172843%_ + _%hd172580172846%_ + _%tl172581172848%_ + _%e172582172851%_ + _%hd172583172854%_ + _%tl172584172856%_ + _%e172585172859%_ + _%hd172586172862%_ + _%tl172587172864%_ + _%e172588172867%_ + _%hd172589172870%_ + _%tl172590172872%_ + _%e172591172875%_ + _%hd172592172878%_ + _%tl172593172880%_ + _%e172631172775%_ + _%hd172632172778%_ + _%tl172633172780%_ + _%e172634172783%_ + _%hd172635172786%_ + _%tl172636172788%_) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_))) + (_%g172567172656%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168983169245%_)) - (let ((_%e169051169082%_ + (gx#stx-pair? _%tl172578172840%_)) + (let ((_%e172646172677%_ (let () (declare (not safe)) (gx#stx-e - _%tl168983169245%_)))) - (let ((_%tl169053169087%_ + _%tl172578172840%_)))) + (let ((_%tl172648172682%_ (let () (declare (not safe)) - (##cdr _%e169051169082%_))) - (_%hd169052169085%_ + (##cdr _%e172646172677%_))) + (_%hd172647172680%_ (let () (declare (not safe)) - (##car _%e169051169082%_)))) + (##car _%e172646172677%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169053169087%_)) - (let ((_%e169054169090%_ + _%tl172648172682%_)) + (let ((_%e172649172685%_ (let () (declare (not safe)) (gx#stx-e - _%tl169053169087%_)))) - (let ((_%tl169056169095%_ + _%tl172648172682%_)))) + (let ((_%tl172651172690%_ (let () (declare (not safe)) - (##cdr _%e169054169090%_))) - (_%hd169055169093%_ + (##cdr _%e172649172685%_))) + (_%hd172650172688%_ (let () (declare (not safe)) - (##car _%e169054169090%_)))) + (##car _%e172649172685%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl169056169095%_)) - (_%__kont178108178109%_ - _%hd169055169093%_ - _%hd169052169085%_ - _%hd168982169243%_) + _%tl172651172690%_)) + (_%__kont181652181653%_ + _%hd172650172688%_ + _%hd172647172680%_ + _%hd172577172838%_) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl168998169285%_)) + (gx#stx-null? _%tl172593172880%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168983169245%_)) - (let ((_%e169036169180%_ + (gx#stx-pair? _%tl172578172840%_)) + (let ((_%e172631172775%_ (let () (declare (not safe)) - (gx#stx-e _%tl168983169245%_)))) - (let ((_%tl169038169185%_ + (gx#stx-e _%tl172578172840%_)))) + (let ((_%tl172633172780%_ (let () (declare (not safe)) - (##cdr _%e169036169180%_))) - (_%hd169037169183%_ + (##cdr _%e172631172775%_))) + (_%hd172632172778%_ (let () (declare (not safe)) - (##car _%e169036169180%_)))) + (##car _%e172631172775%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169038169185%_)) - (let ((_%e169039169188%_ + _%tl172633172780%_)) + (let ((_%e172634172783%_ (let () (declare (not safe)) (gx#stx-e - _%tl169038169185%_)))) - (let ((_%tl169041169193%_ + _%tl172633172780%_)))) + (let ((_%tl172636172788%_ (let () (declare (not safe)) - (##cdr _%e169039169188%_))) - (_%hd169040169191%_ + (##cdr _%e172634172783%_))) + (_%hd172635172786%_ (let () (declare (not safe)) - (##car _%e169039169188%_)))) + (##car _%e172634172783%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl169041169193%_)) - (_%__match178263178264%_ - _%e168978169232%_ - _%hd168979169235%_ - _%tl168980169237%_ - _%e168981169240%_ - _%hd168982169243%_ - _%tl168983169245%_ - _%e168984169248%_ - _%hd168985169251%_ - _%tl168986169253%_ - _%e168987169256%_ - _%hd168988169259%_ - _%tl168989169261%_ - _%e168990169264%_ - _%hd168991169267%_ - _%tl168992169269%_ - _%e168993169272%_ - _%hd168994169275%_ - _%tl168995169277%_ - _%e168996169280%_ - _%hd168997169283%_ - _%tl168998169285%_ - _%e169036169180%_ - _%hd169037169183%_ - _%tl169038169185%_ - _%e169039169188%_ - _%hd169040169191%_ - _%tl169041169193%_) + _%tl172636172788%_)) + (_%__match181807181808%_ + _%e172573172827%_ + _%hd172574172830%_ + _%tl172575172832%_ + _%e172576172835%_ + _%hd172577172838%_ + _%tl172578172840%_ + _%e172579172843%_ + _%hd172580172846%_ + _%tl172581172848%_ + _%e172582172851%_ + _%hd172583172854%_ + _%tl172584172856%_ + _%e172585172859%_ + _%hd172586172862%_ + _%tl172587172864%_ + _%e172588172867%_ + _%hd172589172870%_ + _%tl172590172872%_ + _%e172591172875%_ + _%hd172592172878%_ + _%tl172593172880%_ + _%e172631172775%_ + _%hd172632172778%_ + _%tl172633172780%_ + _%e172634172783%_ + _%hd172635172786%_ + _%tl172636172788%_) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_))) + (_%g172567172656%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168983169245%_)) - (let ((_%e169051169082%_ + (gx#stx-pair? _%tl172578172840%_)) + (let ((_%e172646172677%_ (let () (declare (not safe)) - (gx#stx-e _%tl168983169245%_)))) - (let ((_%tl169053169087%_ + (gx#stx-e _%tl172578172840%_)))) + (let ((_%tl172648172682%_ (let () (declare (not safe)) - (##cdr _%e169051169082%_))) - (_%hd169052169085%_ + (##cdr _%e172646172677%_))) + (_%hd172647172680%_ (let () (declare (not safe)) - (##car _%e169051169082%_)))) + (##car _%e172646172677%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169053169087%_)) - (let ((_%e169054169090%_ + _%tl172648172682%_)) + (let ((_%e172649172685%_ (let () (declare (not safe)) (gx#stx-e - _%tl169053169087%_)))) - (let ((_%tl169056169095%_ + _%tl172648172682%_)))) + (let ((_%tl172651172690%_ (let () (declare (not safe)) - (##cdr _%e169054169090%_))) - (_%hd169055169093%_ + (##cdr _%e172649172685%_))) + (_%hd172650172688%_ (let () (declare (not safe)) - (##car _%e169054169090%_)))) + (##car _%e172649172685%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl169056169095%_)) - (_%__kont178108178109%_ - _%hd169055169093%_ - _%hd169052169085%_ - _%hd168982169243%_) + _%tl172651172690%_)) + (_%__kont181652181653%_ + _%hd172650172688%_ + _%hd172647172680%_ + _%hd172577172838%_) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl168998169285%_)) + (gx#stx-null? _%tl172593172880%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168983169245%_)) - (let ((_%e169036169180%_ + (gx#stx-pair? _%tl172578172840%_)) + (let ((_%e172631172775%_ (let () (declare (not safe)) - (gx#stx-e _%tl168983169245%_)))) - (let ((_%tl169038169185%_ + (gx#stx-e _%tl172578172840%_)))) + (let ((_%tl172633172780%_ (let () (declare (not safe)) - (##cdr _%e169036169180%_))) - (_%hd169037169183%_ + (##cdr _%e172631172775%_))) + (_%hd172632172778%_ (let () (declare (not safe)) - (##car _%e169036169180%_)))) + (##car _%e172631172775%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169038169185%_)) - (let ((_%e169039169188%_ + (gx#stx-pair? _%tl172633172780%_)) + (let ((_%e172634172783%_ (let () (declare (not safe)) (gx#stx-e - _%tl169038169185%_)))) - (let ((_%tl169041169193%_ + _%tl172633172780%_)))) + (let ((_%tl172636172788%_ (let () (declare (not safe)) - (##cdr _%e169039169188%_))) - (_%hd169040169191%_ + (##cdr _%e172634172783%_))) + (_%hd172635172786%_ (let () (declare (not safe)) - (##car _%e169039169188%_)))) + (##car _%e172634172783%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl169041169193%_)) - (_%__match178263178264%_ - _%e168978169232%_ - _%hd168979169235%_ - _%tl168980169237%_ - _%e168981169240%_ - _%hd168982169243%_ - _%tl168983169245%_ - _%e168984169248%_ - _%hd168985169251%_ - _%tl168986169253%_ - _%e168987169256%_ - _%hd168988169259%_ - _%tl168989169261%_ - _%e168990169264%_ - _%hd168991169267%_ - _%tl168992169269%_ - _%e168993169272%_ - _%hd168994169275%_ - _%tl168995169277%_ - _%e168996169280%_ - _%hd168997169283%_ - _%tl168998169285%_ - _%e169036169180%_ - _%hd169037169183%_ - _%tl169038169185%_ - _%e169039169188%_ - _%hd169040169191%_ - _%tl169041169193%_) + _%tl172636172788%_)) + (_%__match181807181808%_ + _%e172573172827%_ + _%hd172574172830%_ + _%tl172575172832%_ + _%e172576172835%_ + _%hd172577172838%_ + _%tl172578172840%_ + _%e172579172843%_ + _%hd172580172846%_ + _%tl172581172848%_ + _%e172582172851%_ + _%hd172583172854%_ + _%tl172584172856%_ + _%e172585172859%_ + _%hd172586172862%_ + _%tl172587172864%_ + _%e172588172867%_ + _%hd172589172870%_ + _%tl172590172872%_ + _%e172591172875%_ + _%hd172592172878%_ + _%tl172593172880%_ + _%e172631172775%_ + _%hd172632172778%_ + _%tl172633172780%_ + _%e172634172783%_ + _%hd172635172786%_ + _%tl172636172788%_) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_))) + (_%g172567172656%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168983169245%_)) - (let ((_%e169051169082%_ + (gx#stx-pair? _%tl172578172840%_)) + (let ((_%e172646172677%_ (let () (declare (not safe)) - (gx#stx-e _%tl168983169245%_)))) - (let ((_%tl169053169087%_ + (gx#stx-e _%tl172578172840%_)))) + (let ((_%tl172648172682%_ (let () (declare (not safe)) - (##cdr _%e169051169082%_))) - (_%hd169052169085%_ + (##cdr _%e172646172677%_))) + (_%hd172647172680%_ (let () (declare (not safe)) - (##car _%e169051169082%_)))) + (##car _%e172646172677%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169053169087%_)) - (let ((_%e169054169090%_ + (gx#stx-pair? _%tl172648172682%_)) + (let ((_%e172649172685%_ (let () (declare (not safe)) (gx#stx-e - _%tl169053169087%_)))) - (let ((_%tl169056169095%_ + _%tl172648172682%_)))) + (let ((_%tl172651172690%_ (let () (declare (not safe)) - (##cdr _%e169054169090%_))) - (_%hd169055169093%_ + (##cdr _%e172649172685%_))) + (_%hd172650172688%_ (let () (declare (not safe)) - (##car _%e169054169090%_)))) + (##car _%e172649172685%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl169056169095%_)) - (_%__kont178108178109%_ - _%hd169055169093%_ - _%hd169052169085%_ - _%hd168982169243%_) + _%tl172651172690%_)) + (_%__kont181652181653%_ + _%hd172650172688%_ + _%hd172647172680%_ + _%hd172577172838%_) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_))))))) + (_%g172567172656%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl168998169285%_)) + (gx#stx-null? _%tl172593172880%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168983169245%_)) - (let ((_%e169036169180%_ + (gx#stx-pair? _%tl172578172840%_)) + (let ((_%e172631172775%_ (let () (declare (not safe)) - (gx#stx-e _%tl168983169245%_)))) - (let ((_%tl169038169185%_ + (gx#stx-e _%tl172578172840%_)))) + (let ((_%tl172633172780%_ (let () (declare (not safe)) - (##cdr _%e169036169180%_))) - (_%hd169037169183%_ + (##cdr _%e172631172775%_))) + (_%hd172632172778%_ (let () (declare (not safe)) - (##car _%e169036169180%_)))) + (##car _%e172631172775%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169038169185%_)) - (let ((_%e169039169188%_ + (gx#stx-pair? _%tl172633172780%_)) + (let ((_%e172634172783%_ (let () (declare (not safe)) - (gx#stx-e _%tl169038169185%_)))) - (let ((_%tl169041169193%_ + (gx#stx-e _%tl172633172780%_)))) + (let ((_%tl172636172788%_ (let () (declare (not safe)) - (##cdr _%e169039169188%_))) - (_%hd169040169191%_ + (##cdr _%e172634172783%_))) + (_%hd172635172786%_ (let () (declare (not safe)) - (##car _%e169039169188%_)))) + (##car _%e172634172783%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169041169193%_)) - (_%__match178263178264%_ - _%e168978169232%_ - _%hd168979169235%_ - _%tl168980169237%_ - _%e168981169240%_ - _%hd168982169243%_ - _%tl168983169245%_ - _%e168984169248%_ - _%hd168985169251%_ - _%tl168986169253%_ - _%e168987169256%_ - _%hd168988169259%_ - _%tl168989169261%_ - _%e168990169264%_ - _%hd168991169267%_ - _%tl168992169269%_ - _%e168993169272%_ - _%hd168994169275%_ - _%tl168995169277%_ - _%e168996169280%_ - _%hd168997169283%_ - _%tl168998169285%_ - _%e169036169180%_ - _%hd169037169183%_ - _%tl169038169185%_ - _%e169039169188%_ - _%hd169040169191%_ - _%tl169041169193%_) + (gx#stx-null? _%tl172636172788%_)) + (_%__match181807181808%_ + _%e172573172827%_ + _%hd172574172830%_ + _%tl172575172832%_ + _%e172576172835%_ + _%hd172577172838%_ + _%tl172578172840%_ + _%e172579172843%_ + _%hd172580172846%_ + _%tl172581172848%_ + _%e172582172851%_ + _%hd172583172854%_ + _%tl172584172856%_ + _%e172585172859%_ + _%hd172586172862%_ + _%tl172587172864%_ + _%e172588172867%_ + _%hd172589172870%_ + _%tl172590172872%_ + _%e172591172875%_ + _%hd172592172878%_ + _%tl172593172880%_ + _%e172631172775%_ + _%hd172632172778%_ + _%tl172633172780%_ + _%e172634172783%_ + _%hd172635172786%_ + _%tl172636172788%_) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_))))) - (let () (declare (not safe)) (_%g168972169061%_))) + (_%g172567172656%_))))) + (let () (declare (not safe)) (_%g172567172656%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168983169245%_)) - (let ((_%e169051169082%_ + (gx#stx-pair? _%tl172578172840%_)) + (let ((_%e172646172677%_ (let () (declare (not safe)) - (gx#stx-e _%tl168983169245%_)))) - (let ((_%tl169053169087%_ + (gx#stx-e _%tl172578172840%_)))) + (let ((_%tl172648172682%_ (let () (declare (not safe)) - (##cdr _%e169051169082%_))) - (_%hd169052169085%_ + (##cdr _%e172646172677%_))) + (_%hd172647172680%_ (let () (declare (not safe)) - (##car _%e169051169082%_)))) + (##car _%e172646172677%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169053169087%_)) - (let ((_%e169054169090%_ + (gx#stx-pair? _%tl172648172682%_)) + (let ((_%e172649172685%_ (let () (declare (not safe)) - (gx#stx-e _%tl169053169087%_)))) - (let ((_%tl169056169095%_ + (gx#stx-e _%tl172648172682%_)))) + (let ((_%tl172651172690%_ (let () (declare (not safe)) - (##cdr _%e169054169090%_))) - (_%hd169055169093%_ + (##cdr _%e172649172685%_))) + (_%hd172650172688%_ (let () (declare (not safe)) - (##car _%e169054169090%_)))) + (##car _%e172649172685%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169056169095%_)) - (_%__kont178108178109%_ - _%hd169055169093%_ - _%hd169052169085%_ - _%hd168982169243%_) + (gx#stx-null? _%tl172651172690%_)) + (_%__kont181652181653%_ + _%hd172650172688%_ + _%hd172647172680%_ + _%hd172577172838%_) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_))))) - (let () (declare (not safe)) (_%g168972169061%_))))))) + (_%g172567172656%_))))) + (let () (declare (not safe)) (_%g172567172656%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168983169245%_)) - (let ((_%e169051169082%_ + _%tl172578172840%_)) + (let ((_%e172646172677%_ (let () (declare (not safe)) (gx#stx-e - _%tl168983169245%_)))) - (let ((_%tl169053169087%_ + _%tl172578172840%_)))) + (let ((_%tl172648172682%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e169051169082%_))) - (_%hd169052169085%_ - (let () (declare (not safe)) (##car _%e169051169082%_)))) + (##cdr _%e172646172677%_))) + (_%hd172647172680%_ + (let () (declare (not safe)) (##car _%e172646172677%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169053169087%_)) - (let ((_%e169054169090%_ + (gx#stx-pair? _%tl172648172682%_)) + (let ((_%e172649172685%_ (let () (declare (not safe)) - (gx#stx-e _%tl169053169087%_)))) - (let ((_%tl169056169095%_ + (gx#stx-e _%tl172648172682%_)))) + (let ((_%tl172651172690%_ (let () (declare (not safe)) - (##cdr _%e169054169090%_))) - (_%hd169055169093%_ + (##cdr _%e172649172685%_))) + (_%hd172650172688%_ (let () (declare (not safe)) - (##car _%e169054169090%_)))) + (##car _%e172649172685%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169056169095%_)) - (_%__kont178108178109%_ - _%hd169055169093%_ - _%hd169052169085%_ - _%hd168982169243%_) + (gx#stx-null? _%tl172651172690%_)) + (_%__kont181652181653%_ + _%hd172650172688%_ + _%hd172647172680%_ + _%hd172577172838%_) (let () (declare (not safe)) - (_%g168972169061%_))))) - (let () (declare (not safe)) (_%g168972169061%_))))) + (_%g172567172656%_))))) + (let () (declare (not safe)) (_%g172567172656%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g168972169061%_)))) + (_%g172567172656%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168983169245%_)) - (let ((_%e169051169082%_ + _%tl172578172840%_)) + (let ((_%e172646172677%_ (let () (declare (not safe)) (gx#stx-e - _%tl168983169245%_)))) - (let ((_%tl169053169087%_ + _%tl172578172840%_)))) + (let ((_%tl172648172682%_ (let () (declare (not safe)) - (##cdr _%e169051169082%_))) - (_%hd169052169085%_ + (##cdr _%e172646172677%_))) + (_%hd172647172680%_ (let () (declare (not safe)) - (##car _%e169051169082%_)))) + (##car _%e172646172677%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169053169087%_)) - (let ((_%e169054169090%_ + _%tl172648172682%_)) + (let ((_%e172649172685%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl169053169087%_)))) - (let ((_%tl169056169095%_ + (gx#stx-e _%tl172648172682%_)))) + (let ((_%tl172651172690%_ (let () (declare (not safe)) - (##cdr _%e169054169090%_))) - (_%hd169055169093%_ + (##cdr _%e172649172685%_))) + (_%hd172650172688%_ (let () (declare (not safe)) - (##car _%e169054169090%_)))) + (##car _%e172649172685%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169056169095%_)) - (_%__kont178108178109%_ - _%hd169055169093%_ - _%hd169052169085%_ - _%hd168982169243%_) - (let () (declare (not safe)) (_%g168972169061%_))))) - (let () (declare (not safe)) (_%g168972169061%_))))) + (gx#stx-null? _%tl172651172690%_)) + (_%__kont181652181653%_ + _%hd172650172688%_ + _%hd172647172680%_ + _%hd172577172838%_) + (let () (declare (not safe)) (_%g172567172656%_))))) + (let () (declare (not safe)) (_%g172567172656%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g168972169061%_)))))) + (_%g172567172656%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168983169245%_)) - (let ((_%e169051169082%_ + (gx#stx-pair? _%tl172578172840%_)) + (let ((_%e172646172677%_ (let () (declare (not safe)) (gx#stx-e - _%tl168983169245%_)))) - (let ((_%tl169053169087%_ + _%tl172578172840%_)))) + (let ((_%tl172648172682%_ (let () (declare (not safe)) - (##cdr _%e169051169082%_))) - (_%hd169052169085%_ + (##cdr _%e172646172677%_))) + (_%hd172647172680%_ (let () (declare (not safe)) - (##car _%e169051169082%_)))) + (##car _%e172646172677%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169053169087%_)) - (let ((_%e169054169090%_ + _%tl172648172682%_)) + (let ((_%e172649172685%_ (let () (declare (not safe)) (gx#stx-e - _%tl169053169087%_)))) - (let ((_%tl169056169095%_ + _%tl172648172682%_)))) + (let ((_%tl172651172690%_ (let () (declare (not safe)) - (##cdr _%e169054169090%_))) - (_%hd169055169093%_ + (##cdr _%e172649172685%_))) + (_%hd172650172688%_ (let () (declare (not safe)) - (##car _%e169054169090%_)))) + (##car _%e172649172685%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl169056169095%_)) - (_%__kont178108178109%_ - _%hd169055169093%_ - _%hd169052169085%_ - _%hd168982169243%_) + _%tl172651172690%_)) + (_%__kont181652181653%_ + _%hd172650172688%_ + _%hd172647172680%_ + _%hd172577172838%_) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_)))) + (_%g172567172656%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168983169245%_)) - (let ((_%e169051169082%_ + (gx#stx-pair? _%tl172578172840%_)) + (let ((_%e172646172677%_ (let () (declare (not safe)) - (gx#stx-e _%tl168983169245%_)))) - (let ((_%tl169053169087%_ + (gx#stx-e _%tl172578172840%_)))) + (let ((_%tl172648172682%_ (let () (declare (not safe)) - (##cdr _%e169051169082%_))) - (_%hd169052169085%_ + (##cdr _%e172646172677%_))) + (_%hd172647172680%_ (let () (declare (not safe)) - (##car _%e169051169082%_)))) + (##car _%e172646172677%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169053169087%_)) - (let ((_%e169054169090%_ + _%tl172648172682%_)) + (let ((_%e172649172685%_ (let () (declare (not safe)) (gx#stx-e - _%tl169053169087%_)))) - (let ((_%tl169056169095%_ + _%tl172648172682%_)))) + (let ((_%tl172651172690%_ (let () (declare (not safe)) - (##cdr _%e169054169090%_))) - (_%hd169055169093%_ + (##cdr _%e172649172685%_))) + (_%hd172650172688%_ (let () (declare (not safe)) - (##car _%e169054169090%_)))) + (##car _%e172649172685%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl169056169095%_)) - (_%__kont178108178109%_ - _%hd169055169093%_ - _%hd169052169085%_ - _%hd168982169243%_) + _%tl172651172690%_)) + (_%__kont181652181653%_ + _%hd172650172688%_ + _%hd172647172680%_ + _%hd172577172838%_) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_)))) + (_%g172567172656%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168983169245%_)) - (let ((_%e169051169082%_ + (gx#stx-pair? _%tl172578172840%_)) + (let ((_%e172646172677%_ (let () (declare (not safe)) - (gx#stx-e _%tl168983169245%_)))) - (let ((_%tl169053169087%_ + (gx#stx-e _%tl172578172840%_)))) + (let ((_%tl172648172682%_ (let () (declare (not safe)) - (##cdr _%e169051169082%_))) - (_%hd169052169085%_ + (##cdr _%e172646172677%_))) + (_%hd172647172680%_ (let () (declare (not safe)) - (##car _%e169051169082%_)))) + (##car _%e172646172677%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169053169087%_)) - (let ((_%e169054169090%_ + (gx#stx-pair? _%tl172648172682%_)) + (let ((_%e172649172685%_ (let () (declare (not safe)) (gx#stx-e - _%tl169053169087%_)))) - (let ((_%tl169056169095%_ + _%tl172648172682%_)))) + (let ((_%tl172651172690%_ (let () (declare (not safe)) - (##cdr _%e169054169090%_))) - (_%hd169055169093%_ + (##cdr _%e172649172685%_))) + (_%hd172650172688%_ (let () (declare (not safe)) - (##car _%e169054169090%_)))) + (##car _%e172649172685%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl169056169095%_)) - (_%__kont178108178109%_ - _%hd169055169093%_ - _%hd169052169085%_ - _%hd168982169243%_) + _%tl172651172690%_)) + (_%__kont181652181653%_ + _%hd172650172688%_ + _%hd172647172680%_ + _%hd172577172838%_) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_)))))) + (_%g172567172656%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168983169245%_)) - (let ((_%e169051169082%_ + (gx#stx-pair? _%tl172578172840%_)) + (let ((_%e172646172677%_ (let () (declare (not safe)) - (gx#stx-e _%tl168983169245%_)))) - (let ((_%tl169053169087%_ + (gx#stx-e _%tl172578172840%_)))) + (let ((_%tl172648172682%_ (let () (declare (not safe)) - (##cdr _%e169051169082%_))) - (_%hd169052169085%_ + (##cdr _%e172646172677%_))) + (_%hd172647172680%_ (let () (declare (not safe)) - (##car _%e169051169082%_)))) + (##car _%e172646172677%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169053169087%_)) - (let ((_%e169054169090%_ + (gx#stx-pair? _%tl172648172682%_)) + (let ((_%e172649172685%_ (let () (declare (not safe)) - (gx#stx-e _%tl169053169087%_)))) - (let ((_%tl169056169095%_ + (gx#stx-e _%tl172648172682%_)))) + (let ((_%tl172651172690%_ (let () (declare (not safe)) - (##cdr _%e169054169090%_))) - (_%hd169055169093%_ + (##cdr _%e172649172685%_))) + (_%hd172650172688%_ (let () (declare (not safe)) - (##car _%e169054169090%_)))) + (##car _%e172649172685%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169056169095%_)) - (_%__kont178108178109%_ - _%hd169055169093%_ - _%hd169052169085%_ - _%hd168982169243%_) + (gx#stx-null? _%tl172651172690%_)) + (_%__kont181652181653%_ + _%hd172650172688%_ + _%hd172647172680%_ + _%hd172577172838%_) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_))))) - (let () (declare (not safe)) (_%g168972169061%_)))))) + (_%g172567172656%_))))) + (let () (declare (not safe)) (_%g172567172656%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168983169245%_)) - (let ((_%e169051169082%_ + _%tl172578172840%_)) + (let ((_%e172646172677%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl168983169245%_)))) - (let ((_%tl169053169087%_ + (gx#stx-e _%tl172578172840%_)))) + (let ((_%tl172648172682%_ (let () (declare (not safe)) - (##cdr _%e169051169082%_))) - (_%hd169052169085%_ + (##cdr _%e172646172677%_))) + (_%hd172647172680%_ (let () (declare (not safe)) - (##car _%e169051169082%_)))) + (##car _%e172646172677%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169053169087%_)) - (let ((_%e169054169090%_ + (gx#stx-pair? _%tl172648172682%_)) + (let ((_%e172649172685%_ (let () (declare (not safe)) - (gx#stx-e _%tl169053169087%_)))) - (let ((_%tl169056169095%_ + (gx#stx-e _%tl172648172682%_)))) + (let ((_%tl172651172690%_ (let () (declare (not safe)) - (##cdr _%e169054169090%_))) - (_%hd169055169093%_ + (##cdr _%e172649172685%_))) + (_%hd172650172688%_ (let () (declare (not safe)) - (##car _%e169054169090%_)))) + (##car _%e172649172685%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169056169095%_)) - (_%__kont178108178109%_ - _%hd169055169093%_ - _%hd169052169085%_ - _%hd168982169243%_) + (gx#stx-null? _%tl172651172690%_)) + (_%__kont181652181653%_ + _%hd172650172688%_ + _%hd172647172680%_ + _%hd172577172838%_) (let () (declare (not safe)) - (_%g168972169061%_))))) - (let () (declare (not safe)) (_%g168972169061%_))))) - (let () (declare (not safe)) (_%g168972169061%_)))) + (_%g172567172656%_))))) + (let () (declare (not safe)) (_%g172567172656%_))))) + (let () (declare (not safe)) (_%g172567172656%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168983169245%_)) - (let ((_%e169051169082%_ + _%tl172578172840%_)) + (let ((_%e172646172677%_ (let () (declare (not safe)) (gx#stx-e - _%tl168983169245%_)))) - (let ((_%tl169053169087%_ + _%tl172578172840%_)))) + (let ((_%tl172648172682%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e169051169082%_))) - (_%hd169052169085%_ - (let () (declare (not safe)) (##car _%e169051169082%_)))) + (##cdr _%e172646172677%_))) + (_%hd172647172680%_ + (let () (declare (not safe)) (##car _%e172646172677%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl169053169087%_)) - (let ((_%e169054169090%_ + (gx#stx-pair? _%tl172648172682%_)) + (let ((_%e172649172685%_ (let () (declare (not safe)) - (gx#stx-e _%tl169053169087%_)))) - (let ((_%tl169056169095%_ + (gx#stx-e _%tl172648172682%_)))) + (let ((_%tl172651172690%_ (let () (declare (not safe)) - (##cdr _%e169054169090%_))) - (_%hd169055169093%_ + (##cdr _%e172649172685%_))) + (_%hd172650172688%_ (let () (declare (not safe)) - (##car _%e169054169090%_)))) + (##car _%e172649172685%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169056169095%_)) - (_%__kont178108178109%_ - _%hd169055169093%_ - _%hd169052169085%_ - _%hd168982169243%_) + (gx#stx-null? _%tl172651172690%_)) + (_%__kont181652181653%_ + _%hd172650172688%_ + _%hd172647172680%_ + _%hd172577172838%_) (let () (declare (not safe)) - (_%g168972169061%_))))) - (let () (declare (not safe)) (_%g168972169061%_))))) + (_%g172567172656%_))))) + (let () (declare (not safe)) (_%g172567172656%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g168972169061%_)))) + (_%g172567172656%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168983169245%_)) - (let ((_%e169051169082%_ + _%tl172578172840%_)) + (let ((_%e172646172677%_ (let () (declare (not safe)) (gx#stx-e - _%tl168983169245%_)))) - (let ((_%tl169053169087%_ + _%tl172578172840%_)))) + (let ((_%tl172648172682%_ (let () (declare (not safe)) - (##cdr _%e169051169082%_))) - (_%hd169052169085%_ + (##cdr _%e172646172677%_))) + (_%hd172647172680%_ (let () (declare (not safe)) - (##car _%e169051169082%_)))) + (##car _%e172646172677%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169053169087%_)) - (let ((_%e169054169090%_ + _%tl172648172682%_)) + (let ((_%e172649172685%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl169053169087%_)))) - (let ((_%tl169056169095%_ + (gx#stx-e _%tl172648172682%_)))) + (let ((_%tl172651172690%_ (let () (declare (not safe)) - (##cdr _%e169054169090%_))) - (_%hd169055169093%_ + (##cdr _%e172649172685%_))) + (_%hd172650172688%_ (let () (declare (not safe)) - (##car _%e169054169090%_)))) + (##car _%e172649172685%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl169056169095%_)) - (_%__kont178108178109%_ - _%hd169055169093%_ - _%hd169052169085%_ - _%hd168982169243%_) - (let () (declare (not safe)) (_%g168972169061%_))))) - (let () (declare (not safe)) (_%g168972169061%_))))) + (gx#stx-null? _%tl172651172690%_)) + (_%__kont181652181653%_ + _%hd172650172688%_ + _%hd172647172680%_ + _%hd172577172838%_) + (let () (declare (not safe)) (_%g172567172656%_))))) + (let () (declare (not safe)) (_%g172567172656%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g168972169061%_)))))) + (_%g172567172656%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168983169245%_)) - (let ((_%e169051169082%_ + (gx#stx-pair? _%tl172578172840%_)) + (let ((_%e172646172677%_ (let () (declare (not safe)) (gx#stx-e - _%tl168983169245%_)))) - (let ((_%tl169053169087%_ + _%tl172578172840%_)))) + (let ((_%tl172648172682%_ (let () (declare (not safe)) - (##cdr _%e169051169082%_))) - (_%hd169052169085%_ + (##cdr _%e172646172677%_))) + (_%hd172647172680%_ (let () (declare (not safe)) - (##car _%e169051169082%_)))) + (##car _%e172646172677%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl169053169087%_)) - (let ((_%e169054169090%_ + _%tl172648172682%_)) + (let ((_%e172649172685%_ (let () (declare (not safe)) (gx#stx-e - _%tl169053169087%_)))) - (let ((_%tl169056169095%_ + _%tl172648172682%_)))) + (let ((_%tl172651172690%_ (let () (declare (not safe)) - (##cdr _%e169054169090%_))) - (_%hd169055169093%_ + (##cdr _%e172649172685%_))) + (_%hd172650172688%_ (let () (declare (not safe)) - (##car _%e169054169090%_)))) + (##car _%e172649172685%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl169056169095%_)) - (_%__kont178108178109%_ - _%hd169055169093%_ - _%hd169052169085%_ - _%hd168982169243%_) + _%tl172651172690%_)) + (_%__kont181652181653%_ + _%hd172650172688%_ + _%hd172647172680%_ + _%hd172577172838%_) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_))))) + (_%g172567172656%_))))) (let () (declare (not safe)) - (_%g168972169061%_)))))) + (_%g172567172656%_)))))) (let () (declare (not safe)) - (_%g168972169061%_))))) - (let () (declare (not safe)) (_%g168972169061%_))))))))) + (_%g172567172656%_))))) + (let () (declare (not safe)) (_%g172567172656%_))))))))) (define gxc#greatest-common-type - (lambda (_%stx168820%_ _%type-a168821%_ _%type-b168822%_) - (letrec ((_%common-e168824%_ - (lambda (_%left168924%_ _%right168925%_) - (let _%loop168927%_ ((_%rest168929%_ _%left168924%_)) - (let* ((_%rest168930168938%_ _%rest168929%_) - (_%else168932168946%_ + (lambda (_%stx172415%_ _%type-a172416%_ _%type-b172417%_) + (letrec ((_%common-e172419%_ + (lambda (_%left172519%_ _%right172520%_) + (let _%loop172522%_ ((_%rest172524%_ _%left172519%_)) + (let* ((_%rest172525172533%_ _%rest172524%_) + (_%else172527172541%_ (lambda () (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168820%_ + _%stx172415%_ 't::t)))) - (_%K168934168952%_ - (lambda (_%rest168949%_ _%klass-name168950%_) - (if (memq _%klass-name168950%_ _%right168925%_) + (_%K172529172547%_ + (lambda (_%rest172544%_ _%klass-name172545%_) + (if (memq _%klass-name172545%_ _%right172520%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168820%_ - _%klass-name168950%_)) - (_%loop168927%_ _%rest168949%_))))) - (if (pair? _%rest168930168938%_) - (let ((_%hd168935168955%_ + _%stx172415%_ + _%klass-name172545%_)) + (_%loop172522%_ _%rest172544%_))))) + (if (pair? _%rest172525172533%_) + (let ((_%hd172530172550%_ (let () (declare (not safe)) - (##car _%rest168930168938%_))) - (_%tl168936168957%_ + (##car _%rest172525172533%_))) + (_%tl172531172552%_ (let () (declare (not safe)) - (##cdr _%rest168930168938%_)))) - (let* ((_%klass-name168960%_ _%hd168935168955%_) - (_%rest168962%_ _%tl168936168957%_)) - (_%K168934168952%_ - _%rest168962%_ - _%klass-name168960%_))) - (_%else168932168946%_)))))) - (_%common-tail168825%_ - (lambda (_%precedence-list-a168844%_ - _%precedence-list-b168845%_) - (let* ((_%rev-precedence-list-a168847%_ - (reverse _%precedence-list-a168844%_)) - (_%rev-precedence-list-b168849%_ - (reverse _%precedence-list-b168845%_))) - (let _%loop168852%_ ((_%rest-a168854%_ - _%rev-precedence-list-a168847%_) - (_%rest-b168855%_ - _%rev-precedence-list-b168849%_) - (_%result168856%_ '#f)) - (let* ((_%rest-a168857168865%_ _%rest-a168854%_) - (_%else168859168873%_ + (##cdr _%rest172525172533%_)))) + (let* ((_%klass-name172555%_ _%hd172530172550%_) + (_%rest172557%_ _%tl172531172552%_)) + (_%K172529172547%_ + _%rest172557%_ + _%klass-name172555%_))) + (_%else172527172541%_)))))) + (_%common-tail172420%_ + (lambda (_%precedence-list-a172439%_ + _%precedence-list-b172440%_) + (let* ((_%rev-precedence-list-a172442%_ + (reverse _%precedence-list-a172439%_)) + (_%rev-precedence-list-b172444%_ + (reverse _%precedence-list-b172440%_))) + (let _%loop172447%_ ((_%rest-a172449%_ + _%rev-precedence-list-a172442%_) + (_%rest-b172450%_ + _%rev-precedence-list-b172444%_) + (_%result172451%_ '#f)) + (let* ((_%rest-a172452172460%_ _%rest-a172449%_) + (_%else172454172468%_ (lambda () - (if _%result168856%_ + (if _%result172451%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168820%_ - _%result168856%_)) + _%stx172415%_ + _%result172451%_)) '#f))) - (_%K168861168912%_ - (lambda (_%rest-a168876%_ _%super-a168877%_) - (let* ((_%rest-b168878168886%_ - _%rest-b168855%_) - (_%else168880168894%_ + (_%K172456172507%_ + (lambda (_%rest-a172471%_ _%super-a172472%_) + (let* ((_%rest-b172473172481%_ + _%rest-b172450%_) + (_%else172475172489%_ (lambda () - (if _%result168856%_ + (if _%result172451%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168820%_ - _%result168856%_)) + _%stx172415%_ + _%result172451%_)) '#f))) - (_%K168882168900%_ - (lambda (_%rest-b168897%_ - _%super-b168898%_) - (if (eq? _%super-a168877%_ - _%super-b168898%_) - (_%loop168852%_ - _%rest-a168876%_ - _%rest-b168897%_ - _%super-a168877%_) - (if _%result168856%_ + (_%K172477172495%_ + (lambda (_%rest-b172492%_ + _%super-b172493%_) + (if (eq? _%super-a172472%_ + _%super-b172493%_) + (_%loop172447%_ + _%rest-a172471%_ + _%rest-b172492%_ + _%super-a172472%_) + (if _%result172451%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168820%_ - _%result168856%_)) + _%stx172415%_ + _%result172451%_)) '#f))))) - (if (pair? _%rest-b168878168886%_) - (let ((_%hd168883168903%_ + (if (pair? _%rest-b172473172481%_) + (let ((_%hd172478172498%_ (let () (declare (not safe)) - (##car _%rest-b168878168886%_))) - (_%tl168884168905%_ + (##car _%rest-b172473172481%_))) + (_%tl172479172500%_ (let () (declare (not safe)) - (##cdr _%rest-b168878168886%_)))) - (let* ((_%super-b168908%_ - _%hd168883168903%_) - (_%rest-b168910%_ - _%tl168884168905%_)) - (_%K168882168900%_ - _%rest-b168910%_ - _%super-b168908%_))) - (_%else168880168894%_)))))) - (if (pair? _%rest-a168857168865%_) - (let ((_%hd168862168915%_ + (##cdr _%rest-b172473172481%_)))) + (let* ((_%super-b172503%_ + _%hd172478172498%_) + (_%rest-b172505%_ + _%tl172479172500%_)) + (_%K172477172495%_ + _%rest-b172505%_ + _%super-b172503%_))) + (_%else172475172489%_)))))) + (if (pair? _%rest-a172452172460%_) + (let ((_%hd172457172510%_ (let () (declare (not safe)) - (##car _%rest-a168857168865%_))) - (_%tl168863168917%_ + (##car _%rest-a172452172460%_))) + (_%tl172458172512%_ (let () (declare (not safe)) - (##cdr _%rest-a168857168865%_)))) - (let* ((_%super-a168920%_ _%hd168862168915%_) - (_%rest-a168922%_ _%tl168863168917%_)) - (_%K168861168912%_ - _%rest-a168922%_ - _%super-a168920%_))) - (_%else168859168873%_)))))))) - (if (or (not _%type-a168821%_) (not _%type-b168822%_)) + (##cdr _%rest-a172452172460%_)))) + (let* ((_%super-a172515%_ _%hd172457172510%_) + (_%rest-a172517%_ _%tl172458172512%_)) + (_%K172456172507%_ + _%rest-a172517%_ + _%super-a172515%_))) + (_%else172454172468%_)))))))) + (if (or (not _%type-a172416%_) (not _%type-b172417%_)) (let () (declare (not safe)) - (gxc#optimizer-resolve-class _%stx168820%_ 't::t)) + (gxc#optimizer-resolve-class _%stx172415%_ 't::t)) (if (let () (declare (not safe)) - (gxc#!type-subtype? _%type-a168821%_ _%type-b168822%_)) - _%type-b168822%_ + (gxc#!type-subtype? _%type-a172416%_ _%type-b172417%_)) + _%type-b172417%_ (if (let () (declare (not safe)) - (gxc#!type-subtype? _%type-b168822%_ _%type-a168821%_)) - _%type-a168821%_ + (gxc#!type-subtype? _%type-b172417%_ _%type-a172416%_)) + _%type-a172416%_ (if (and (let () (declare (not safe)) (##structure-instance-of? - _%type-a168821%_ + _%type-a172416%_ 'gxc#!class::t)) (let () (declare (not safe)) (##structure-instance-of? - _%type-b168822%_ + _%type-b172417%_ 'gxc#!class::t))) - (let* ((_%precedence-list-a168834%_ + (let* ((_%precedence-list-a172429%_ (##structure-ref - _%type-a168821%_ + _%type-a172416%_ '3 gxc#!class::t '#f)) - (_%precedence-list-b168836%_ + (_%precedence-list-b172431%_ (##structure-ref - _%type-b168822%_ + _%type-b172417%_ '3 gxc#!class::t '#f))) - (if (> (length _%precedence-list-a168834%_) - (length _%precedence-list-b168836%_)) - (_%common-e168824%_ - _%precedence-list-b168836%_ - _%precedence-list-a168834%_) - (if (< (length _%precedence-list-a168834%_) - (length _%precedence-list-b168836%_)) - (_%common-e168824%_ - _%precedence-list-a168834%_ - _%precedence-list-b168836%_) - (_%common-tail168825%_ - _%precedence-list-a168834%_ - _%precedence-list-b168836%_)))) + (if (> (length _%precedence-list-a172429%_) + (length _%precedence-list-b172431%_)) + (_%common-e172419%_ + _%precedence-list-b172431%_ + _%precedence-list-a172429%_) + (if (< (length _%precedence-list-a172429%_) + (length _%precedence-list-b172431%_)) + (_%common-e172419%_ + _%precedence-list-a172429%_ + _%precedence-list-b172431%_) + (_%common-tail172420%_ + _%precedence-list-a172429%_ + _%precedence-list-b172431%_)))) (if (and (eq? (##structure-ref - _%type-a168821%_ + _%type-a172416%_ '1 gxc#!type::t '#f) 'procedure) (eq? (##structure-ref - _%type-b168822%_ + _%type-b172417%_ '1 gxc#!type::t '#f) @@ -14577,3425 +14661,3457 @@ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168820%_ + _%stx172415%_ 'procedure::t)) '#f)))))))) (define gxc#basic-expression-type-quote% - (lambda (_%self168731%_ _%stx168732%_) - (let* ((_%g168734168747%_ - (lambda (_%g168735168744%_) + (lambda (_%self172326%_ _%stx172327%_) + (let* ((_%g172329172342%_ + (lambda (_%g172330172339%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g168735168744%_)))) - (_%g168733168817%_ - (lambda (_%g168735168750%_) + _%g172330172339%_)))) + (_%g172328172412%_ + (lambda (_%g172330172345%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g168735168750%_)) - (let ((_%e168737168752%_ + (gx#stx-pair? _%g172330172345%_)) + (let ((_%e172332172347%_ (let () (declare (not safe)) - (gx#stx-e _%g168735168750%_)))) - (let ((_%hd168738168755%_ + (gx#stx-e _%g172330172345%_)))) + (let ((_%hd172333172350%_ (let () (declare (not safe)) - (##car _%e168737168752%_))) - (_%tl168739168757%_ + (##car _%e172332172347%_))) + (_%tl172334172352%_ (let () (declare (not safe)) - (##cdr _%e168737168752%_)))) + (##cdr _%e172332172347%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168739168757%_)) - (let ((_%e168740168760%_ + (gx#stx-pair? _%tl172334172352%_)) + (let ((_%e172335172355%_ (let () (declare (not safe)) - (gx#stx-e _%tl168739168757%_)))) - (let ((_%hd168741168763%_ + (gx#stx-e _%tl172334172352%_)))) + (let ((_%hd172336172358%_ (let () (declare (not safe)) - (##car _%e168740168760%_))) - (_%tl168742168765%_ + (##car _%e172335172355%_))) + (_%tl172337172360%_ (let () (declare (not safe)) - (##cdr _%e168740168760%_)))) + (##cdr _%e172335172355%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl168742168765%_)) - ((lambda (_%L168768%_) - (let ((_%obj168780%_ + (gx#stx-null? _%tl172337172360%_)) + ((lambda (_%g172331172363%_) + (let ((_%obj172375%_ (let () (declare (not safe)) - (gx#stx-e _%L168768%_)))) + (gx#stx-e + _%g172331172363%_)))) (if (let () (declare (not safe)) - (immediate? _%obj168780%_)) - (if (char? _%obj168780%_) + (immediate? _%obj172375%_)) + (if (char? _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'char::t)) - (if (eq? _%obj168780%_ '#t) + (if (eq? _%obj172375%_ '#t) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'true::t)) - (if (not _%obj168780%_) + (if (not _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'false::t)) - (if (eq? _%obj168780%_ + (if (eq? _%obj172375%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!void) (let () (declare (not safe)) - (gxc#optimizer-resolve-class _%stx168732%_ 'void::t)) - (if (eof-object? _%obj168780%_) + (gxc#optimizer-resolve-class _%stx172327%_ 'void::t)) + (if (eof-object? _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'eof::t)) - (if (fixnum? _%obj168780%_) + (if (fixnum? _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'fixnum::t)) - (if (flonum? _%obj168780%_) + (if (flonum? _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'flonum::t)) - (if (null? _%obj168780%_) + (if (null? _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'null::t)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'special::t)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (number? _%obj168780%_) - (if (flonum? _%obj168780%_) + (if (number? _%obj172375%_) + (if (flonum? _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'flonum::t)) (if (let () (declare (not safe)) (##bignum? - _%obj168780%_)) + _%obj172375%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'bignum::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##ratnum? _%obj168780%_)) + (##ratnum? _%obj172375%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'ratnum::t)) (if (let () (declare (not safe)) - (##cpxnum? _%obj168780%_)) + (##cpxnum? _%obj172375%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'cpxnum::t)) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (symbol? _%obj168780%_) + (if (symbol? _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'symbol::t)) (if (keyword? - _%obj168780%_) + _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'keyword::t)) - (if (pair? _%obj168780%_) + (if (pair? _%obj172375%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#optimizer-resolve-class _%stx168732%_ 'pair::t)) - (if (sequence? _%obj168780%_) - (if (vector? _%obj168780%_) + (gxc#optimizer-resolve-class _%stx172327%_ 'pair::t)) + (if (sequence? _%obj172375%_) + (if (vector? _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'vector::t)) - (if (string? _%obj168780%_) + (if (string? _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'string::t)) - (if (u8vector? _%obj168780%_) + (if (u8vector? _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'u8vector::t)) - (if (s8vector? _%obj168780%_) + (if (s8vector? _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 's8vector::t)) - (if (u16vector? _%obj168780%_) + (if (u16vector? _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'u16vector::t)) - (if (s16vector? _%obj168780%_) + (if (s16vector? _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 's16vector::t)) (if (u32vector? - _%obj168780%_) + _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'u32vector::t)) (if (s32vector? - _%obj168780%_) + _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 's32vector::t)) (if (u64vector? - _%obj168780%_) + _%obj172375%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'u64vector::t)) - (if (s64vector? _%obj168780%_) + (if (s64vector? _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 's64vector::t)) - (if (f32vector? _%obj168780%_) + (if (f32vector? _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'f32vector::t)) - (if (f64vector? _%obj168780%_) + (if (f64vector? _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'f64vector::t)) '#f)))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (box? _%obj168780%_) + (if (box? _%obj172375%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx168732%_ + _%stx172327%_ 'box::t)) '#f))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd168741168763%_) - (_%g168734168747%_ _%g168735168750%_)))) - (_%g168734168747%_ _%g168735168750%_)))) - (_%g168734168747%_ _%g168735168750%_))))) - (_%g168733168817%_ _%stx168732%_)))) + _%hd172336172358%_) + (_%g172329172342%_ _%g172330172345%_)))) + (_%g172329172342%_ _%g172330172345%_)))) + (_%g172329172342%_ _%g172330172345%_))))) + (_%g172328172412%_ _%stx172327%_)))) (define gxc#dispatch-lambda-form? - (lambda (_%form167965%_) - (let* ((_%__stx178292178293%_ _%form167965%_) - (_%g167970168127%_ + (lambda (_%form171568%_) + (let* ((_%__stx181836181837%_ _%form171568%_) + (_%g171573171730%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx178292178293%_))))) - (let ((_%__kont178294178295%_ - (lambda (_%L168651%_ _%L168652%_ _%L168653%_) '#t)) - (_%__kont178300178301%_ - (lambda (_%L168439%_ - _%L168440%_ - _%L168441%_ - _%L168442%_ - _%L168443%_ - _%L168444%_) + _%__stx181836181837%_))))) + (let ((_%__kont181838181839%_ + (lambda (_%g171575172246%_ + _%g171576172247%_ + _%g171577172248%_) '#t)) - (_%__kont178306178307%_ - (lambda (_%L168235%_ _%L168236%_ _%L168237%_ _%L168238%_) + (_%__kont181844181845%_ + (lambda (_%g171620172038%_ + _%g171621172039%_ + _%g171622172040%_ + _%g171623172041%_ + _%g171624172042%_ + _%g171625172043%_) '#t)) - (_%__kont178308178309%_ (lambda () '#f))) - (let* ((_%__match178433178434%_ - (lambda (_%e168087168139%_ - _%hd168088168142%_ - _%tl168089168144%_ - _%e168090168147%_ - _%hd168091168150%_ - _%tl168092168152%_ - _%e168093168155%_ - _%hd168094168158%_ - _%tl168095168160%_ - _%e168096168163%_ - _%hd168097168166%_ - _%tl168098168168%_ - _%e168099168171%_ - _%hd168100168174%_ - _%tl168101168176%_ - _%e168102168179%_ - _%hd168103168182%_ - _%tl168104168184%_ - _%e168105168187%_ - _%hd168106168190%_ - _%tl168107168192%_ - _%e168108168195%_ - _%hd168109168198%_ - _%tl168110168200%_ - _%e168111168203%_ - _%hd168112168206%_ - _%tl168113168208%_ - _%e168114168211%_ - _%hd168115168214%_ - _%tl168116168216%_ - _%e168117168219%_ - _%hd168118168222%_ - _%tl168119168224%_ - _%e168120168227%_ - _%hd168121168230%_ - _%tl168122168232%_) - (let ((_%L168235%_ _%hd168121168230%_) - (_%L168236%_ _%hd168112168206%_) - (_%L168237%_ _%hd168103168182%_) - (_%L168238%_ _%hd168088168142%_)) + (_%__kont181850181851%_ + (lambda (_%g171686171838%_ + _%g171687171839%_ + _%g171688171840%_ + _%g171689171841%_) + '#t)) + (_%__kont181852181853%_ (lambda () '#f))) + (let* ((_%__match181977181978%_ + (lambda (_%e171690171742%_ + _%hd171691171745%_ + _%tl171692171747%_ + _%e171693171750%_ + _%hd171694171753%_ + _%tl171695171755%_ + _%e171696171758%_ + _%hd171697171761%_ + _%tl171698171763%_ + _%e171699171766%_ + _%hd171700171769%_ + _%tl171701171771%_ + _%e171702171774%_ + _%hd171703171777%_ + _%tl171704171779%_ + _%e171705171782%_ + _%hd171706171785%_ + _%tl171707171787%_ + _%e171708171790%_ + _%hd171709171793%_ + _%tl171710171795%_ + _%e171711171798%_ + _%hd171712171801%_ + _%tl171713171803%_ + _%e171714171806%_ + _%hd171715171809%_ + _%tl171716171811%_ + _%e171717171814%_ + _%hd171718171817%_ + _%tl171719171819%_ + _%e171720171822%_ + _%hd171721171825%_ + _%tl171722171827%_ + _%e171723171830%_ + _%hd171724171833%_ + _%tl171725171835%_) + (let ((_%g171686171838%_ _%hd171724171833%_) + (_%g171687171839%_ _%hd171715171809%_) + (_%g171688171840%_ _%hd171706171785%_) + (_%g171689171841%_ _%hd171691171745%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L168238%_)) + (gx#identifier? _%g171689171841%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L168237%_ + _%g171688171840%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L168238%_ - _%L168235%_)) + _%g171689171841%_ + _%g171686171838%_)) (not (let () (declare (not safe)) (gx#free-identifier=? - _%L168236%_ - _%L168238%_)))) - (_%__kont178306178307%_ - _%L168235%_ - _%L168236%_ - _%L168237%_ - _%L168238%_) - (_%__kont178308178309%_))))) - (_%__match178405178406%_ - (lambda (_%e168087168139%_ - _%hd168088168142%_ - _%tl168089168144%_ - _%e168090168147%_ - _%hd168091168150%_ - _%tl168092168152%_ - _%e168093168155%_ - _%hd168094168158%_ - _%tl168095168160%_ - _%e168096168163%_ - _%hd168097168166%_ - _%tl168098168168%_ - _%e168099168171%_ - _%hd168100168174%_ - _%tl168101168176%_ - _%e168102168179%_ - _%hd168103168182%_ - _%tl168104168184%_ - _%e168105168187%_ - _%hd168106168190%_ - _%tl168107168192%_ - _%e168108168195%_ - _%hd168109168198%_ - _%tl168110168200%_ - _%e168111168203%_ - _%hd168112168206%_ - _%tl168113168208%_) + _%g171687171839%_ + _%g171689171841%_)))) + (_%__kont181850181851%_ + _%g171686171838%_ + _%g171687171839%_ + _%g171688171840%_ + _%g171689171841%_) + (_%__kont181852181853%_))))) + (_%__match181949181950%_ + (lambda (_%e171690171742%_ + _%hd171691171745%_ + _%tl171692171747%_ + _%e171693171750%_ + _%hd171694171753%_ + _%tl171695171755%_ + _%e171696171758%_ + _%hd171697171761%_ + _%tl171698171763%_ + _%e171699171766%_ + _%hd171700171769%_ + _%tl171701171771%_ + _%e171702171774%_ + _%hd171703171777%_ + _%tl171704171779%_ + _%e171705171782%_ + _%hd171706171785%_ + _%tl171707171787%_ + _%e171708171790%_ + _%hd171709171793%_ + _%tl171710171795%_ + _%e171711171798%_ + _%hd171712171801%_ + _%tl171713171803%_ + _%e171714171806%_ + _%hd171715171809%_ + _%tl171716171811%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168107168192%_)) - (let ((_%e168114168211%_ + (gx#stx-pair? _%tl171710171795%_)) + (let ((_%e171717171814%_ (let () (declare (not safe)) - (gx#stx-e _%tl168107168192%_)))) - (let ((_%tl168116168216%_ + (gx#stx-e _%tl171710171795%_)))) + (let ((_%tl171719171819%_ (let () (declare (not safe)) - (##cdr _%e168114168211%_))) - (_%hd168115168214%_ + (##cdr _%e171717171814%_))) + (_%hd171718171817%_ (let () (declare (not safe)) - (##car _%e168114168211%_)))) + (##car _%e171717171814%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd168115168214%_)) - (let ((_%e168117168219%_ + (gx#stx-pair? _%hd171718171817%_)) + (let ((_%e171720171822%_ (let () (declare (not safe)) - (gx#stx-e _%hd168115168214%_)))) - (let ((_%tl168119168224%_ + (gx#stx-e _%hd171718171817%_)))) + (let ((_%tl171722171827%_ (let () (declare (not safe)) - (##cdr _%e168117168219%_))) - (_%hd168118168222%_ + (##cdr _%e171720171822%_))) + (_%hd171721171825%_ (let () (declare (not safe)) - (##car _%e168117168219%_)))) + (##car _%e171720171822%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd168118168222%_)) + _%hd171721171825%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd168118168222%_)) + _%hd171721171825%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168119168224%_)) - (let ((_%e168120168227%_ + _%tl171722171827%_)) + (let ((_%e171723171830%_ (let () (declare (not safe)) (gx#stx-e - _%tl168119168224%_)))) - (let ((_%tl168122168232%_ + _%tl171722171827%_)))) + (let ((_%tl171725171835%_ (let () (declare (not safe)) - (##cdr _%e168120168227%_))) - (_%hd168121168230%_ + (##cdr _%e171723171830%_))) + (_%hd171724171833%_ (let () (declare (not safe)) - (##car _%e168120168227%_)))) + (##car _%e171723171830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl168122168232%_)) + _%tl171725171835%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl168116168216%_)) + (gx#stx-null? _%tl171719171819%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl168092168152%_)) - (_%__match178433178434%_ - _%e168087168139%_ - _%hd168088168142%_ - _%tl168089168144%_ - _%e168090168147%_ - _%hd168091168150%_ - _%tl168092168152%_ - _%e168093168155%_ - _%hd168094168158%_ - _%tl168095168160%_ - _%e168096168163%_ - _%hd168097168166%_ - _%tl168098168168%_ - _%e168099168171%_ - _%hd168100168174%_ - _%tl168101168176%_ - _%e168102168179%_ - _%hd168103168182%_ - _%tl168104168184%_ - _%e168105168187%_ - _%hd168106168190%_ - _%tl168107168192%_ - _%e168108168195%_ - _%hd168109168198%_ - _%tl168110168200%_ - _%e168111168203%_ - _%hd168112168206%_ - _%tl168113168208%_ - _%e168114168211%_ - _%hd168115168214%_ - _%tl168116168216%_ - _%e168117168219%_ - _%hd168118168222%_ - _%tl168119168224%_ - _%e168120168227%_ - _%hd168121168230%_ - _%tl168122168232%_) - (_%__kont178308178309%_)) - (_%__kont178308178309%_)) - (_%__kont178308178309%_)))) + (gx#stx-null? _%tl171695171755%_)) + (_%__match181977181978%_ + _%e171690171742%_ + _%hd171691171745%_ + _%tl171692171747%_ + _%e171693171750%_ + _%hd171694171753%_ + _%tl171695171755%_ + _%e171696171758%_ + _%hd171697171761%_ + _%tl171698171763%_ + _%e171699171766%_ + _%hd171700171769%_ + _%tl171701171771%_ + _%e171702171774%_ + _%hd171703171777%_ + _%tl171704171779%_ + _%e171705171782%_ + _%hd171706171785%_ + _%tl171707171787%_ + _%e171708171790%_ + _%hd171709171793%_ + _%tl171710171795%_ + _%e171711171798%_ + _%hd171712171801%_ + _%tl171713171803%_ + _%e171714171806%_ + _%hd171715171809%_ + _%tl171716171811%_ + _%e171717171814%_ + _%hd171718171817%_ + _%tl171719171819%_ + _%e171720171822%_ + _%hd171721171825%_ + _%tl171722171827%_ + _%e171723171830%_ + _%hd171724171833%_ + _%tl171725171835%_) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178308178309%_)) - (_%__kont178308178309%_)) - (_%__kont178308178309%_)))) - (_%__kont178308178309%_)))) - (_%__kont178308178309%_)))) - (_%__match178335178336%_ - (lambda (_%e168023168279%_ - _%hd168024168282%_ - _%tl168025168284%_ - _%__splice178302178303%_ - _%target168026168287%_ - _%tl168028168289%_) - (letrec ((_%loop168029168292%_ - (lambda (_%hd168027168295%_ - _%arg168033168297%_) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)))) + (_%__kont181852181853%_)))) + (_%__kont181852181853%_)))) + (_%__match181879181880%_ + (lambda (_%e171626171882%_ + _%hd171627171885%_ + _%tl171628171887%_ + _%__splice181846181847%_ + _%target171629171890%_ + _%tl171631171892%_) + (letrec ((_%loop171632171895%_ + (lambda (_%hd171630171898%_ + _%arg171636171900%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd168027168295%_)) - (let ((_%e168030168300%_ + (gx#stx-pair? _%hd171630171898%_)) + (let ((_%e171633171902%_ (let () (declare (not safe)) - (gx#stx-e _%hd168027168295%_)))) - (let ((_%lp-tl168032168305%_ + (gx#stx-e _%hd171630171898%_)))) + (let ((_%lp-tl171635171907%_ (let () (declare (not safe)) - (##cdr _%e168030168300%_))) - (_%lp-hd168031168303%_ + (##cdr _%e171633171902%_))) + (_%lp-hd171634171905%_ (let () (declare (not safe)) - (##car _%e168030168300%_)))) - (_%loop168029168292%_ - _%lp-tl168032168305%_ - (cons _%lp-hd168031168303%_ - _%arg168033168297%_)))) - (let ((_%arg168034168308%_ - (reverse _%arg168033168297%_))) + (##car _%e171633171902%_)))) + (_%loop171632171895%_ + _%lp-tl171635171907%_ + (cons _%lp-hd171634171905%_ + _%arg171636171900%_)))) + (let ((_%arg171637171910%_ + (reverse _%arg171636171900%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168025168284%_)) - (let ((_%e168035168311%_ + _%tl171628171887%_)) + (let ((_%e171638171912%_ (let () (declare (not safe)) (gx#stx-e - _%tl168025168284%_)))) - (let ((_%tl168037168316%_ + _%tl171628171887%_)))) + (let ((_%tl171640171917%_ (let () (declare (not safe)) - (##cdr _%e168035168311%_))) - (_%hd168036168314%_ + (##cdr _%e171638171912%_))) + (_%hd171639171915%_ (let () (declare (not safe)) - (##car _%e168035168311%_)))) + (##car _%e171638171912%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd168036168314%_)) - (let ((_%e168038168319%_ + _%hd171639171915%_)) + (let ((_%e171641171920%_ (let () (declare (not safe)) (gx#stx-e - _%hd168036168314%_)))) - (let ((_%tl168040168324%_ + _%hd171639171915%_)))) + (let ((_%tl171643171925%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e168038168319%_))) - (_%hd168039168322%_ - (let () (declare (not safe)) (##car _%e168038168319%_)))) + (##cdr _%e171641171920%_))) + (_%hd171642171923%_ + (let () (declare (not safe)) (##car _%e171641171920%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd168039168322%_)) + (gx#identifier? _%hd171642171923%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd168039168322%_)) + (gx#stx-eq? '%#call _%hd171642171923%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168040168324%_)) - (let ((_%e168041168327%_ + (gx#stx-pair? _%tl171643171925%_)) + (let ((_%e171644171928%_ (let () (declare (not safe)) - (gx#stx-e _%tl168040168324%_)))) - (let ((_%tl168043168332%_ + (gx#stx-e _%tl171643171925%_)))) + (let ((_%tl171646171933%_ (let () (declare (not safe)) - (##cdr _%e168041168327%_))) - (_%hd168042168330%_ + (##cdr _%e171644171928%_))) + (_%hd171645171931%_ (let () (declare (not safe)) - (##car _%e168041168327%_)))) + (##car _%e171644171928%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd168042168330%_)) - (let ((_%e168044168335%_ + (gx#stx-pair? _%hd171645171931%_)) + (let ((_%e171647171936%_ (let () (declare (not safe)) - (gx#stx-e _%hd168042168330%_)))) - (let ((_%tl168046168340%_ + (gx#stx-e _%hd171645171931%_)))) + (let ((_%tl171649171941%_ (let () (declare (not safe)) - (##cdr _%e168044168335%_))) - (_%hd168045168338%_ + (##cdr _%e171647171936%_))) + (_%hd171648171939%_ (let () (declare (not safe)) - (##car _%e168044168335%_)))) + (##car _%e171647171936%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd168045168338%_)) + _%hd171648171939%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd168045168338%_)) + _%hd171648171939%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168046168340%_)) - (let ((_%e168047168343%_ + _%tl171649171941%_)) + (let ((_%e171650171944%_ (let () (declare (not safe)) (gx#stx-e - _%tl168046168340%_)))) - (let ((_%tl168049168348%_ + _%tl171649171941%_)))) + (let ((_%tl171652171949%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e168047168343%_))) - (_%hd168048168346%_ - (let () (declare (not safe)) (##car _%e168047168343%_)))) + (##cdr _%e171650171944%_))) + (_%hd171651171947%_ + (let () (declare (not safe)) (##car _%e171650171944%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl168049168348%_)) + (gx#stx-null? _%tl171652171949%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168043168332%_)) - (let ((_%e168050168351%_ + (gx#stx-pair? _%tl171646171933%_)) + (let ((_%e171653171952%_ (let () (declare (not safe)) - (gx#stx-e _%tl168043168332%_)))) - (let ((_%tl168052168356%_ + (gx#stx-e _%tl171646171933%_)))) + (let ((_%tl171655171957%_ (let () (declare (not safe)) - (##cdr _%e168050168351%_))) - (_%hd168051168354%_ + (##cdr _%e171653171952%_))) + (_%hd171654171955%_ (let () (declare (not safe)) - (##car _%e168050168351%_)))) + (##car _%e171653171952%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd168051168354%_)) - (let ((_%e168053168359%_ + (gx#stx-pair? _%hd171654171955%_)) + (let ((_%e171656171960%_ (let () (declare (not safe)) - (gx#stx-e _%hd168051168354%_)))) - (let ((_%tl168055168364%_ + (gx#stx-e _%hd171654171955%_)))) + (let ((_%tl171658171965%_ (let () (declare (not safe)) - (##cdr _%e168053168359%_))) - (_%hd168054168362%_ + (##cdr _%e171656171960%_))) + (_%hd171657171963%_ (let () (declare (not safe)) - (##car _%e168053168359%_)))) + (##car _%e171656171960%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd168054168362%_)) + (gx#identifier? _%hd171657171963%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd168054168362%_)) + _%hd171657171963%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168055168364%_)) - (let ((_%e168056168367%_ + _%tl171658171965%_)) + (let ((_%e171659171968%_ (let () (declare (not safe)) (gx#stx-e - _%tl168055168364%_)))) - (let ((_%tl168058168372%_ + _%tl171658171965%_)))) + (let ((_%tl171661171973%_ (let () (declare (not safe)) - (##cdr _%e168056168367%_))) - (_%hd168057168370%_ + (##cdr _%e171659171968%_))) + (_%hd171660171971%_ (let () (declare (not safe)) - (##car _%e168056168367%_)))) + (##car _%e171659171968%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl168058168372%_)) + _%tl171661171973%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl168052168356%_)) - (if (let ((__tmp179921 + _%tl171655171957%_)) + (if (let ((__tmp183465 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-length _%tl168052168356%_)))) + (gx#stx-length _%tl171655171957%_)))) (declare (not safe)) - (##fx>= __tmp179921 '1)) - (let ((_%__splice178304178305%_ + (##fx>= __tmp183465 '1)) + (let ((_%__splice181848181849%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl168052168356%_ + _%tl171655171957%_ '1)))) - (let ((_%tl168061168377%_ + (let ((_%tl171664171978%_ (let () (declare (not safe)) - (##vector-ref _%__splice178304178305%_ '1))) - (_%target168059168375%_ + (##vector-ref _%__splice181848181849%_ '1))) + (_%target171662171976%_ (let () (declare (not safe)) (##vector-ref - _%__splice178304178305%_ + _%__splice181848181849%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168061168377%_)) - (let ((_%e168068168380%_ + (gx#stx-pair? _%tl171664171978%_)) + (let ((_%e171671171981%_ (let () (declare (not safe)) - (gx#stx-e _%tl168061168377%_)))) - (let ((_%tl168070168385%_ + (gx#stx-e _%tl171664171978%_)))) + (let ((_%tl171673171986%_ (let () (declare (not safe)) - (##cdr _%e168068168380%_))) - (_%hd168069168383%_ + (##cdr _%e171671171981%_))) + (_%hd171672171984%_ (let () (declare (not safe)) - (##car _%e168068168380%_)))) + (##car _%e171671171981%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd168069168383%_)) - (let ((_%e168071168388%_ + (gx#stx-pair? _%hd171672171984%_)) + (let ((_%e171674171989%_ (let () (declare (not safe)) (gx#stx-e - _%hd168069168383%_)))) - (let ((_%tl168073168393%_ + _%hd171672171984%_)))) + (let ((_%tl171676171994%_ (let () (declare (not safe)) - (##cdr _%e168071168388%_))) - (_%hd168072168391%_ + (##cdr _%e171674171989%_))) + (_%hd171675171992%_ (let () (declare (not safe)) - (##car _%e168071168388%_)))) + (##car _%e171674171989%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd168072168391%_)) + _%hd171675171992%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd168072168391%_)) + _%hd171675171992%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168073168393%_)) - (let ((_%e168074168396%_ + _%tl171676171994%_)) + (let ((_%e171677171997%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl168073168393%_)))) - (let ((_%tl168076168401%_ + (gx#stx-e _%tl171676171994%_)))) + (let ((_%tl171679172002%_ (let () (declare (not safe)) - (##cdr _%e168074168396%_))) - (_%hd168075168399%_ + (##cdr _%e171677171997%_))) + (_%hd171678172000%_ (let () (declare (not safe)) - (##car _%e168074168396%_)))) + (##car _%e171677171997%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl168076168401%_)) + (gx#stx-null? _%tl171679172002%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl168070168385%_)) - (letrec ((_%loop168062168404%_ - (lambda (_%hd168060168407%_ - _%xarg168066168409%_) + (gx#stx-null? _%tl171673171986%_)) + (letrec ((_%loop171665172005%_ + (lambda (_%hd171663172008%_ + _%xarg171669172010%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd168060168407%_)) - (let ((_%e168063168412%_ + _%hd171663172008%_)) + (let ((_%e171666172012%_ (let () (declare (not safe)) (gx#stx-e - _%hd168060168407%_)))) - (let ((_%lp-tl168065168417%_ + _%hd171663172008%_)))) + (let ((_%lp-tl171668172017%_ (let () (declare (not safe)) - (##cdr _%e168063168412%_))) - (_%lp-hd168064168415%_ + (##cdr _%e171666172012%_))) + (_%lp-hd171667172015%_ (let () (declare (not safe)) - (##car _%e168063168412%_)))) + (##car _%e171666172012%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd168064168415%_)) - (let ((_%e168077168420%_ + _%lp-hd171667172015%_)) + (let ((_%e171680172020%_ (let () (declare (not safe)) (gx#stx-e - _%lp-hd168064168415%_)))) - (let ((_%tl168079168425%_ + _%lp-hd171667172015%_)))) + (let ((_%tl171682172025%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e168077168420%_))) - (_%hd168078168423%_ - (let () (declare (not safe)) (##car _%e168077168420%_)))) + (##cdr _%e171680172020%_))) + (_%hd171681172023%_ + (let () (declare (not safe)) (##car _%e171680172020%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd168078168423%_)) + (gx#identifier? _%hd171681172023%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd168078168423%_)) + (gx#stx-eq? '%#ref _%hd171681172023%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168079168425%_)) - (let ((_%e168080168428%_ + (gx#stx-pair? _%tl171682172025%_)) + (let ((_%e171683172028%_ (let () (declare (not safe)) - (gx#stx-e _%tl168079168425%_)))) - (let ((_%tl168082168433%_ + (gx#stx-e _%tl171682172025%_)))) + (let ((_%tl171685172033%_ (let () (declare (not safe)) - (##cdr _%e168080168428%_))) - (_%hd168081168431%_ + (##cdr _%e171683172028%_))) + (_%hd171684172031%_ (let () (declare (not safe)) - (##car _%e168080168428%_)))) + (##car _%e171683172028%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl168082168433%_)) - (_%loop168062168404%_ - _%lp-tl168065168417%_ - (cons _%hd168081168431%_ - _%xarg168066168409%_)) - (_%__match178405178406%_ - _%e168023168279%_ - _%hd168024168282%_ - _%tl168025168284%_ - _%e168035168311%_ - _%hd168036168314%_ - _%tl168037168316%_ - _%e168038168319%_ - _%hd168039168322%_ - _%tl168040168324%_ - _%e168041168327%_ - _%hd168042168330%_ - _%tl168043168332%_ - _%e168044168335%_ - _%hd168045168338%_ - _%tl168046168340%_ - _%e168047168343%_ - _%hd168048168346%_ - _%tl168049168348%_ - _%e168050168351%_ - _%hd168051168354%_ - _%tl168052168356%_ - _%e168053168359%_ - _%hd168054168362%_ - _%tl168055168364%_ - _%e168056168367%_ - _%hd168057168370%_ - _%tl168058168372%_)))) - (_%__match178405178406%_ - _%e168023168279%_ - _%hd168024168282%_ - _%tl168025168284%_ - _%e168035168311%_ - _%hd168036168314%_ - _%tl168037168316%_ - _%e168038168319%_ - _%hd168039168322%_ - _%tl168040168324%_ - _%e168041168327%_ - _%hd168042168330%_ - _%tl168043168332%_ - _%e168044168335%_ - _%hd168045168338%_ - _%tl168046168340%_ - _%e168047168343%_ - _%hd168048168346%_ - _%tl168049168348%_ - _%e168050168351%_ - _%hd168051168354%_ - _%tl168052168356%_ - _%e168053168359%_ - _%hd168054168362%_ - _%tl168055168364%_ - _%e168056168367%_ - _%hd168057168370%_ - _%tl168058168372%_)) - (_%__match178405178406%_ - _%e168023168279%_ - _%hd168024168282%_ - _%tl168025168284%_ - _%e168035168311%_ - _%hd168036168314%_ - _%tl168037168316%_ - _%e168038168319%_ - _%hd168039168322%_ - _%tl168040168324%_ - _%e168041168327%_ - _%hd168042168330%_ - _%tl168043168332%_ - _%e168044168335%_ - _%hd168045168338%_ - _%tl168046168340%_ - _%e168047168343%_ - _%hd168048168346%_ - _%tl168049168348%_ - _%e168050168351%_ - _%hd168051168354%_ - _%tl168052168356%_ - _%e168053168359%_ - _%hd168054168362%_ - _%tl168055168364%_ - _%e168056168367%_ - _%hd168057168370%_ - _%tl168058168372%_)) - (_%__match178405178406%_ - _%e168023168279%_ - _%hd168024168282%_ - _%tl168025168284%_ - _%e168035168311%_ - _%hd168036168314%_ - _%tl168037168316%_ - _%e168038168319%_ - _%hd168039168322%_ - _%tl168040168324%_ - _%e168041168327%_ - _%hd168042168330%_ - _%tl168043168332%_ - _%e168044168335%_ - _%hd168045168338%_ - _%tl168046168340%_ - _%e168047168343%_ - _%hd168048168346%_ - _%tl168049168348%_ - _%e168050168351%_ - _%hd168051168354%_ - _%tl168052168356%_ - _%e168053168359%_ - _%hd168054168362%_ - _%tl168055168364%_ - _%e168056168367%_ - _%hd168057168370%_ - _%tl168058168372%_)))) + (gx#stx-null? _%tl171685172033%_)) + (_%loop171665172005%_ + _%lp-tl171668172017%_ + (cons _%hd171684172031%_ + _%xarg171669172010%_)) + (_%__match181949181950%_ + _%e171626171882%_ + _%hd171627171885%_ + _%tl171628171887%_ + _%e171638171912%_ + _%hd171639171915%_ + _%tl171640171917%_ + _%e171641171920%_ + _%hd171642171923%_ + _%tl171643171925%_ + _%e171644171928%_ + _%hd171645171931%_ + _%tl171646171933%_ + _%e171647171936%_ + _%hd171648171939%_ + _%tl171649171941%_ + _%e171650171944%_ + _%hd171651171947%_ + _%tl171652171949%_ + _%e171653171952%_ + _%hd171654171955%_ + _%tl171655171957%_ + _%e171656171960%_ + _%hd171657171963%_ + _%tl171658171965%_ + _%e171659171968%_ + _%hd171660171971%_ + _%tl171661171973%_)))) + (_%__match181949181950%_ + _%e171626171882%_ + _%hd171627171885%_ + _%tl171628171887%_ + _%e171638171912%_ + _%hd171639171915%_ + _%tl171640171917%_ + _%e171641171920%_ + _%hd171642171923%_ + _%tl171643171925%_ + _%e171644171928%_ + _%hd171645171931%_ + _%tl171646171933%_ + _%e171647171936%_ + _%hd171648171939%_ + _%tl171649171941%_ + _%e171650171944%_ + _%hd171651171947%_ + _%tl171652171949%_ + _%e171653171952%_ + _%hd171654171955%_ + _%tl171655171957%_ + _%e171656171960%_ + _%hd171657171963%_ + _%tl171658171965%_ + _%e171659171968%_ + _%hd171660171971%_ + _%tl171661171973%_)) + (_%__match181949181950%_ + _%e171626171882%_ + _%hd171627171885%_ + _%tl171628171887%_ + _%e171638171912%_ + _%hd171639171915%_ + _%tl171640171917%_ + _%e171641171920%_ + _%hd171642171923%_ + _%tl171643171925%_ + _%e171644171928%_ + _%hd171645171931%_ + _%tl171646171933%_ + _%e171647171936%_ + _%hd171648171939%_ + _%tl171649171941%_ + _%e171650171944%_ + _%hd171651171947%_ + _%tl171652171949%_ + _%e171653171952%_ + _%hd171654171955%_ + _%tl171655171957%_ + _%e171656171960%_ + _%hd171657171963%_ + _%tl171658171965%_ + _%e171659171968%_ + _%hd171660171971%_ + _%tl171661171973%_)) + (_%__match181949181950%_ + _%e171626171882%_ + _%hd171627171885%_ + _%tl171628171887%_ + _%e171638171912%_ + _%hd171639171915%_ + _%tl171640171917%_ + _%e171641171920%_ + _%hd171642171923%_ + _%tl171643171925%_ + _%e171644171928%_ + _%hd171645171931%_ + _%tl171646171933%_ + _%e171647171936%_ + _%hd171648171939%_ + _%tl171649171941%_ + _%e171650171944%_ + _%hd171651171947%_ + _%tl171652171949%_ + _%e171653171952%_ + _%hd171654171955%_ + _%tl171655171957%_ + _%e171656171960%_ + _%hd171657171963%_ + _%tl171658171965%_ + _%e171659171968%_ + _%hd171660171971%_ + _%tl171661171973%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match178405178406%_ - _%e168023168279%_ - _%hd168024168282%_ - _%tl168025168284%_ - _%e168035168311%_ - _%hd168036168314%_ - _%tl168037168316%_ - _%e168038168319%_ - _%hd168039168322%_ - _%tl168040168324%_ - _%e168041168327%_ - _%hd168042168330%_ - _%tl168043168332%_ - _%e168044168335%_ - _%hd168045168338%_ - _%tl168046168340%_ - _%e168047168343%_ - _%hd168048168346%_ - _%tl168049168348%_ - _%e168050168351%_ - _%hd168051168354%_ - _%tl168052168356%_ - _%e168053168359%_ - _%hd168054168362%_ - _%tl168055168364%_ - _%e168056168367%_ - _%hd168057168370%_ - _%tl168058168372%_)))) - (let ((_%xarg168067168436%_ - (reverse _%xarg168066168409%_))) + (_%__match181949181950%_ + _%e171626171882%_ + _%hd171627171885%_ + _%tl171628171887%_ + _%e171638171912%_ + _%hd171639171915%_ + _%tl171640171917%_ + _%e171641171920%_ + _%hd171642171923%_ + _%tl171643171925%_ + _%e171644171928%_ + _%hd171645171931%_ + _%tl171646171933%_ + _%e171647171936%_ + _%hd171648171939%_ + _%tl171649171941%_ + _%e171650171944%_ + _%hd171651171947%_ + _%tl171652171949%_ + _%e171653171952%_ + _%hd171654171955%_ + _%tl171655171957%_ + _%e171656171960%_ + _%hd171657171963%_ + _%tl171658171965%_ + _%e171659171968%_ + _%hd171660171971%_ + _%tl171661171973%_)))) + (let ((_%xarg171670172036%_ + (reverse _%xarg171669172010%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl168037168316%_)) - (let ((_%L168439%_ - _%hd168075168399%_) - (_%L168440%_ - _%xarg168067168436%_) - (_%L168441%_ - _%hd168057168370%_) - (_%L168442%_ - _%hd168048168346%_) - (_%L168443%_ - _%tl168028168289%_) - (_%L168444%_ - _%arg168034168308%_)) - (if (and (let ((__tmp179922 + _%tl171640171917%_)) + (let ((_%g171620172038%_ + _%hd171678172000%_) + (_%g171621172039%_ + _%xarg171670172036%_) + (_%g171622172040%_ + _%hd171660171971%_) + (_%g171623172041%_ + _%hd171651171947%_) + (_%g171624172042%_ + _%tl171631171892%_) + (_%g171625172043%_ + _%arg171637171910%_)) + (if (and (let ((__tmp183466 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp179923 - (lambda (_%g168487168490%_ - _%g168488168492%_) - (cons _%g168487168490%_ - _%g168488168492%_)))) + (let ((__tmp183467 + (lambda (_%g172086172089%_ + _%g172087172091%_) + (cons _%g172086172089%_ + _%g172087172091%_)))) (declare (not safe)) - (__foldr1 __tmp179923 '() _%L168444%_)))) + (__foldr1 __tmp183467 '() _%g171625172043%_)))) + (declare (not safe)) + (gx#identifier-list? __tmp183466)) + (let () (declare (not safe)) - (gx#identifier-list? __tmp179922)) - (let () (declare (not safe)) (gx#identifier? _%L168443%_)) + (gx#identifier? _%g171624172042%_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L168442%_ 'apply)) - (let ((__tmp179926 - (length (let ((__tmp179927 - (lambda (_%g168494168497%_ - _%g168495168499%_) - (cons _%g168494168497%_ - _%g168495168499%_)))) + (gxc#runtime-identifier=? _%g171623172041%_ 'apply)) + (let ((__tmp183470 + (length (let ((__tmp183471 + (lambda (_%g172093172096%_ + _%g172094172098%_) + (cons _%g172093172096%_ + _%g172094172098%_)))) (declare (not safe)) - (__foldr1 __tmp179927 '() _%L168444%_)))) - (__tmp179924 - (length (let ((__tmp179925 - (lambda (_%g168501168504%_ - _%g168502168506%_) - (cons _%g168501168504%_ - _%g168502168506%_)))) + (__foldr1 + __tmp183471 + '() + _%g171625172043%_)))) + (__tmp183468 + (length (let ((__tmp183469 + (lambda (_%g172100172103%_ + _%g172101172105%_) + (cons _%g172100172103%_ + _%g172101172105%_)))) (declare (not safe)) (__foldr1 - __tmp179925 + __tmp183469 '() - _%L168440%_))))) + _%g171621172039%_))))) (declare (not safe)) - (##fx= __tmp179926 __tmp179924)) - (let ((__tmp179930 - (let ((__tmp179931 - (lambda (_%g168508168511%_ - _%g168509168513%_) - (cons _%g168508168511%_ - _%g168509168513%_)))) + (##fx= __tmp183470 __tmp183468)) + (let ((__tmp183474 + (let ((__tmp183475 + (lambda (_%g172107172110%_ + _%g172108172112%_) + (cons _%g172107172110%_ + _%g172108172112%_)))) (declare (not safe)) - (__foldr1 __tmp179931 '() _%L168444%_))) - (__tmp179928 - (let ((__tmp179929 - (lambda (_%g168515168518%_ - _%g168516168520%_) - (cons _%g168515168518%_ - _%g168516168520%_)))) + (__foldr1 __tmp183475 '() _%g171625172043%_))) + (__tmp183472 + (let ((__tmp183473 + (lambda (_%g172114172117%_ + _%g172115172119%_) + (cons _%g172114172117%_ + _%g172115172119%_)))) (declare (not safe)) - (__foldr1 __tmp179929 '() _%L168440%_)))) + (__foldr1 __tmp183473 '() _%g171621172039%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp179930 - __tmp179928)) + __tmp183474 + __tmp183472)) (let () (declare (not safe)) - (gx#free-identifier=? _%L168443%_ _%L168439%_)) - (not (let ((__tmp179935 - (lambda (_%g168522168524%_) + (gx#free-identifier=? + _%g171624172042%_ + _%g171620172038%_)) + (not (let ((__tmp183479 + (lambda (_%g172121172123%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g168522168524%_ - _%L168441%_)))) - (__tmp179932 - (let ((__tmp179934 - (lambda (_%g168526168529%_ - _%g168527168531%_) - (cons _%g168526168529%_ - _%g168527168531%_))) - (__tmp179933 (cons _%L168443%_ '()))) + _%g172121172123%_ + _%g171622172040%_)))) + (__tmp183476 + (let ((__tmp183478 + (lambda (_%g172125172128%_ + _%g172126172130%_) + (cons _%g172125172128%_ + _%g172126172130%_))) + (__tmp183477 + (cons _%g171624172042%_ '()))) (declare (not safe)) (__foldr1 - __tmp179934 - __tmp179933 - _%L168444%_)))) + __tmp183478 + __tmp183477 + _%g171625172043%_)))) (declare (not safe)) - (__find __tmp179935 __tmp179932)))) - (_%__kont178300178301%_ - _%L168439%_ - _%L168440%_ - _%L168441%_ - _%L168442%_ - _%L168443%_ - _%L168444%_) - (_%__match178405178406%_ - _%e168023168279%_ - _%hd168024168282%_ - _%tl168025168284%_ - _%e168035168311%_ - _%hd168036168314%_ - _%tl168037168316%_ - _%e168038168319%_ - _%hd168039168322%_ - _%tl168040168324%_ - _%e168041168327%_ - _%hd168042168330%_ - _%tl168043168332%_ - _%e168044168335%_ - _%hd168045168338%_ - _%tl168046168340%_ - _%e168047168343%_ - _%hd168048168346%_ - _%tl168049168348%_ - _%e168050168351%_ - _%hd168051168354%_ - _%tl168052168356%_ - _%e168053168359%_ - _%hd168054168362%_ - _%tl168055168364%_ - _%e168056168367%_ - _%hd168057168370%_ - _%tl168058168372%_))) + (__find __tmp183479 __tmp183476)))) + (_%__kont181844181845%_ + _%g171620172038%_ + _%g171621172039%_ + _%g171622172040%_ + _%g171623172041%_ + _%g171624172042%_ + _%g171625172043%_) + (_%__match181949181950%_ + _%e171626171882%_ + _%hd171627171885%_ + _%tl171628171887%_ + _%e171638171912%_ + _%hd171639171915%_ + _%tl171640171917%_ + _%e171641171920%_ + _%hd171642171923%_ + _%tl171643171925%_ + _%e171644171928%_ + _%hd171645171931%_ + _%tl171646171933%_ + _%e171647171936%_ + _%hd171648171939%_ + _%tl171649171941%_ + _%e171650171944%_ + _%hd171651171947%_ + _%tl171652171949%_ + _%e171653171952%_ + _%hd171654171955%_ + _%tl171655171957%_ + _%e171656171960%_ + _%hd171657171963%_ + _%tl171658171965%_ + _%e171659171968%_ + _%hd171660171971%_ + _%tl171661171973%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match178405178406%_ - _%e168023168279%_ - _%hd168024168282%_ - _%tl168025168284%_ - _%e168035168311%_ - _%hd168036168314%_ - _%tl168037168316%_ - _%e168038168319%_ - _%hd168039168322%_ - _%tl168040168324%_ - _%e168041168327%_ - _%hd168042168330%_ - _%tl168043168332%_ - _%e168044168335%_ - _%hd168045168338%_ - _%tl168046168340%_ - _%e168047168343%_ - _%hd168048168346%_ - _%tl168049168348%_ - _%e168050168351%_ - _%hd168051168354%_ - _%tl168052168356%_ - _%e168053168359%_ - _%hd168054168362%_ - _%tl168055168364%_ - _%e168056168367%_ - _%hd168057168370%_ - _%tl168058168372%_))))))) - (_%loop168062168404%_ - _%target168059168375%_ + (_%__match181949181950%_ + _%e171626171882%_ + _%hd171627171885%_ + _%tl171628171887%_ + _%e171638171912%_ + _%hd171639171915%_ + _%tl171640171917%_ + _%e171641171920%_ + _%hd171642171923%_ + _%tl171643171925%_ + _%e171644171928%_ + _%hd171645171931%_ + _%tl171646171933%_ + _%e171647171936%_ + _%hd171648171939%_ + _%tl171649171941%_ + _%e171650171944%_ + _%hd171651171947%_ + _%tl171652171949%_ + _%e171653171952%_ + _%hd171654171955%_ + _%tl171655171957%_ + _%e171656171960%_ + _%hd171657171963%_ + _%tl171658171965%_ + _%e171659171968%_ + _%hd171660171971%_ + _%tl171661171973%_))))))) + (_%loop171665172005%_ + _%target171662171976%_ '())) - (_%__match178405178406%_ - _%e168023168279%_ - _%hd168024168282%_ - _%tl168025168284%_ - _%e168035168311%_ - _%hd168036168314%_ - _%tl168037168316%_ - _%e168038168319%_ - _%hd168039168322%_ - _%tl168040168324%_ - _%e168041168327%_ - _%hd168042168330%_ - _%tl168043168332%_ - _%e168044168335%_ - _%hd168045168338%_ - _%tl168046168340%_ - _%e168047168343%_ - _%hd168048168346%_ - _%tl168049168348%_ - _%e168050168351%_ - _%hd168051168354%_ - _%tl168052168356%_ - _%e168053168359%_ - _%hd168054168362%_ - _%tl168055168364%_ - _%e168056168367%_ - _%hd168057168370%_ - _%tl168058168372%_)) - (_%__match178405178406%_ - _%e168023168279%_ - _%hd168024168282%_ - _%tl168025168284%_ - _%e168035168311%_ - _%hd168036168314%_ - _%tl168037168316%_ - _%e168038168319%_ - _%hd168039168322%_ - _%tl168040168324%_ - _%e168041168327%_ - _%hd168042168330%_ - _%tl168043168332%_ - _%e168044168335%_ - _%hd168045168338%_ - _%tl168046168340%_ - _%e168047168343%_ - _%hd168048168346%_ - _%tl168049168348%_ - _%e168050168351%_ - _%hd168051168354%_ - _%tl168052168356%_ - _%e168053168359%_ - _%hd168054168362%_ - _%tl168055168364%_ - _%e168056168367%_ - _%hd168057168370%_ - _%tl168058168372%_)))) - (_%__match178405178406%_ - _%e168023168279%_ - _%hd168024168282%_ - _%tl168025168284%_ - _%e168035168311%_ - _%hd168036168314%_ - _%tl168037168316%_ - _%e168038168319%_ - _%hd168039168322%_ - _%tl168040168324%_ - _%e168041168327%_ - _%hd168042168330%_ - _%tl168043168332%_ - _%e168044168335%_ - _%hd168045168338%_ - _%tl168046168340%_ - _%e168047168343%_ - _%hd168048168346%_ - _%tl168049168348%_ - _%e168050168351%_ - _%hd168051168354%_ - _%tl168052168356%_ - _%e168053168359%_ - _%hd168054168362%_ - _%tl168055168364%_ - _%e168056168367%_ - _%hd168057168370%_ - _%tl168058168372%_)) + (_%__match181949181950%_ + _%e171626171882%_ + _%hd171627171885%_ + _%tl171628171887%_ + _%e171638171912%_ + _%hd171639171915%_ + _%tl171640171917%_ + _%e171641171920%_ + _%hd171642171923%_ + _%tl171643171925%_ + _%e171644171928%_ + _%hd171645171931%_ + _%tl171646171933%_ + _%e171647171936%_ + _%hd171648171939%_ + _%tl171649171941%_ + _%e171650171944%_ + _%hd171651171947%_ + _%tl171652171949%_ + _%e171653171952%_ + _%hd171654171955%_ + _%tl171655171957%_ + _%e171656171960%_ + _%hd171657171963%_ + _%tl171658171965%_ + _%e171659171968%_ + _%hd171660171971%_ + _%tl171661171973%_)) + (_%__match181949181950%_ + _%e171626171882%_ + _%hd171627171885%_ + _%tl171628171887%_ + _%e171638171912%_ + _%hd171639171915%_ + _%tl171640171917%_ + _%e171641171920%_ + _%hd171642171923%_ + _%tl171643171925%_ + _%e171644171928%_ + _%hd171645171931%_ + _%tl171646171933%_ + _%e171647171936%_ + _%hd171648171939%_ + _%tl171649171941%_ + _%e171650171944%_ + _%hd171651171947%_ + _%tl171652171949%_ + _%e171653171952%_ + _%hd171654171955%_ + _%tl171655171957%_ + _%e171656171960%_ + _%hd171657171963%_ + _%tl171658171965%_ + _%e171659171968%_ + _%hd171660171971%_ + _%tl171661171973%_)))) + (_%__match181949181950%_ + _%e171626171882%_ + _%hd171627171885%_ + _%tl171628171887%_ + _%e171638171912%_ + _%hd171639171915%_ + _%tl171640171917%_ + _%e171641171920%_ + _%hd171642171923%_ + _%tl171643171925%_ + _%e171644171928%_ + _%hd171645171931%_ + _%tl171646171933%_ + _%e171647171936%_ + _%hd171648171939%_ + _%tl171649171941%_ + _%e171650171944%_ + _%hd171651171947%_ + _%tl171652171949%_ + _%e171653171952%_ + _%hd171654171955%_ + _%tl171655171957%_ + _%e171656171960%_ + _%hd171657171963%_ + _%tl171658171965%_ + _%e171659171968%_ + _%hd171660171971%_ + _%tl171661171973%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match178405178406%_ - _%e168023168279%_ - _%hd168024168282%_ - _%tl168025168284%_ - _%e168035168311%_ - _%hd168036168314%_ - _%tl168037168316%_ - _%e168038168319%_ - _%hd168039168322%_ - _%tl168040168324%_ - _%e168041168327%_ - _%hd168042168330%_ - _%tl168043168332%_ - _%e168044168335%_ - _%hd168045168338%_ - _%tl168046168340%_ - _%e168047168343%_ - _%hd168048168346%_ - _%tl168049168348%_ - _%e168050168351%_ - _%hd168051168354%_ - _%tl168052168356%_ - _%e168053168359%_ - _%hd168054168362%_ - _%tl168055168364%_ - _%e168056168367%_ - _%hd168057168370%_ - _%tl168058168372%_)) - (_%__match178405178406%_ - _%e168023168279%_ - _%hd168024168282%_ - _%tl168025168284%_ - _%e168035168311%_ - _%hd168036168314%_ - _%tl168037168316%_ - _%e168038168319%_ - _%hd168039168322%_ - _%tl168040168324%_ - _%e168041168327%_ - _%hd168042168330%_ - _%tl168043168332%_ - _%e168044168335%_ - _%hd168045168338%_ - _%tl168046168340%_ - _%e168047168343%_ - _%hd168048168346%_ - _%tl168049168348%_ - _%e168050168351%_ - _%hd168051168354%_ - _%tl168052168356%_ - _%e168053168359%_ - _%hd168054168362%_ - _%tl168055168364%_ - _%e168056168367%_ - _%hd168057168370%_ - _%tl168058168372%_)))) - (_%__match178405178406%_ - _%e168023168279%_ - _%hd168024168282%_ - _%tl168025168284%_ - _%e168035168311%_ - _%hd168036168314%_ - _%tl168037168316%_ - _%e168038168319%_ - _%hd168039168322%_ - _%tl168040168324%_ - _%e168041168327%_ - _%hd168042168330%_ - _%tl168043168332%_ - _%e168044168335%_ - _%hd168045168338%_ - _%tl168046168340%_ - _%e168047168343%_ - _%hd168048168346%_ - _%tl168049168348%_ - _%e168050168351%_ - _%hd168051168354%_ - _%tl168052168356%_ - _%e168053168359%_ - _%hd168054168362%_ - _%tl168055168364%_ - _%e168056168367%_ - _%hd168057168370%_ - _%tl168058168372%_)))) - (_%__match178405178406%_ - _%e168023168279%_ - _%hd168024168282%_ - _%tl168025168284%_ - _%e168035168311%_ - _%hd168036168314%_ - _%tl168037168316%_ - _%e168038168319%_ - _%hd168039168322%_ - _%tl168040168324%_ - _%e168041168327%_ - _%hd168042168330%_ - _%tl168043168332%_ - _%e168044168335%_ - _%hd168045168338%_ - _%tl168046168340%_ - _%e168047168343%_ - _%hd168048168346%_ - _%tl168049168348%_ - _%e168050168351%_ - _%hd168051168354%_ - _%tl168052168356%_ - _%e168053168359%_ - _%hd168054168362%_ - _%tl168055168364%_ - _%e168056168367%_ - _%hd168057168370%_ - _%tl168058168372%_)))) - (_%__match178405178406%_ - _%e168023168279%_ - _%hd168024168282%_ - _%tl168025168284%_ - _%e168035168311%_ - _%hd168036168314%_ - _%tl168037168316%_ - _%e168038168319%_ - _%hd168039168322%_ - _%tl168040168324%_ - _%e168041168327%_ - _%hd168042168330%_ - _%tl168043168332%_ - _%e168044168335%_ - _%hd168045168338%_ - _%tl168046168340%_ - _%e168047168343%_ - _%hd168048168346%_ - _%tl168049168348%_ - _%e168050168351%_ - _%hd168051168354%_ - _%tl168052168356%_ - _%e168053168359%_ - _%hd168054168362%_ - _%tl168055168364%_ - _%e168056168367%_ - _%hd168057168370%_ - _%tl168058168372%_)) - (_%__match178405178406%_ - _%e168023168279%_ - _%hd168024168282%_ - _%tl168025168284%_ - _%e168035168311%_ - _%hd168036168314%_ - _%tl168037168316%_ - _%e168038168319%_ - _%hd168039168322%_ - _%tl168040168324%_ - _%e168041168327%_ - _%hd168042168330%_ - _%tl168043168332%_ - _%e168044168335%_ - _%hd168045168338%_ - _%tl168046168340%_ - _%e168047168343%_ - _%hd168048168346%_ - _%tl168049168348%_ - _%e168050168351%_ - _%hd168051168354%_ - _%tl168052168356%_ - _%e168053168359%_ - _%hd168054168362%_ - _%tl168055168364%_ - _%e168056168367%_ - _%hd168057168370%_ - _%tl168058168372%_)) - (_%__kont178308178309%_)))) + (_%__match181949181950%_ + _%e171626171882%_ + _%hd171627171885%_ + _%tl171628171887%_ + _%e171638171912%_ + _%hd171639171915%_ + _%tl171640171917%_ + _%e171641171920%_ + _%hd171642171923%_ + _%tl171643171925%_ + _%e171644171928%_ + _%hd171645171931%_ + _%tl171646171933%_ + _%e171647171936%_ + _%hd171648171939%_ + _%tl171649171941%_ + _%e171650171944%_ + _%hd171651171947%_ + _%tl171652171949%_ + _%e171653171952%_ + _%hd171654171955%_ + _%tl171655171957%_ + _%e171656171960%_ + _%hd171657171963%_ + _%tl171658171965%_ + _%e171659171968%_ + _%hd171660171971%_ + _%tl171661171973%_)) + (_%__match181949181950%_ + _%e171626171882%_ + _%hd171627171885%_ + _%tl171628171887%_ + _%e171638171912%_ + _%hd171639171915%_ + _%tl171640171917%_ + _%e171641171920%_ + _%hd171642171923%_ + _%tl171643171925%_ + _%e171644171928%_ + _%hd171645171931%_ + _%tl171646171933%_ + _%e171647171936%_ + _%hd171648171939%_ + _%tl171649171941%_ + _%e171650171944%_ + _%hd171651171947%_ + _%tl171652171949%_ + _%e171653171952%_ + _%hd171654171955%_ + _%tl171655171957%_ + _%e171656171960%_ + _%hd171657171963%_ + _%tl171658171965%_ + _%e171659171968%_ + _%hd171660171971%_ + _%tl171661171973%_)))) + (_%__match181949181950%_ + _%e171626171882%_ + _%hd171627171885%_ + _%tl171628171887%_ + _%e171638171912%_ + _%hd171639171915%_ + _%tl171640171917%_ + _%e171641171920%_ + _%hd171642171923%_ + _%tl171643171925%_ + _%e171644171928%_ + _%hd171645171931%_ + _%tl171646171933%_ + _%e171647171936%_ + _%hd171648171939%_ + _%tl171649171941%_ + _%e171650171944%_ + _%hd171651171947%_ + _%tl171652171949%_ + _%e171653171952%_ + _%hd171654171955%_ + _%tl171655171957%_ + _%e171656171960%_ + _%hd171657171963%_ + _%tl171658171965%_ + _%e171659171968%_ + _%hd171660171971%_ + _%tl171661171973%_)))) + (_%__match181949181950%_ + _%e171626171882%_ + _%hd171627171885%_ + _%tl171628171887%_ + _%e171638171912%_ + _%hd171639171915%_ + _%tl171640171917%_ + _%e171641171920%_ + _%hd171642171923%_ + _%tl171643171925%_ + _%e171644171928%_ + _%hd171645171931%_ + _%tl171646171933%_ + _%e171647171936%_ + _%hd171648171939%_ + _%tl171649171941%_ + _%e171650171944%_ + _%hd171651171947%_ + _%tl171652171949%_ + _%e171653171952%_ + _%hd171654171955%_ + _%tl171655171957%_ + _%e171656171960%_ + _%hd171657171963%_ + _%tl171658171965%_ + _%e171659171968%_ + _%hd171660171971%_ + _%tl171661171973%_)))) + (_%__match181949181950%_ + _%e171626171882%_ + _%hd171627171885%_ + _%tl171628171887%_ + _%e171638171912%_ + _%hd171639171915%_ + _%tl171640171917%_ + _%e171641171920%_ + _%hd171642171923%_ + _%tl171643171925%_ + _%e171644171928%_ + _%hd171645171931%_ + _%tl171646171933%_ + _%e171647171936%_ + _%hd171648171939%_ + _%tl171649171941%_ + _%e171650171944%_ + _%hd171651171947%_ + _%tl171652171949%_ + _%e171653171952%_ + _%hd171654171955%_ + _%tl171655171957%_ + _%e171656171960%_ + _%hd171657171963%_ + _%tl171658171965%_ + _%e171659171968%_ + _%hd171660171971%_ + _%tl171661171973%_)) + (_%__match181949181950%_ + _%e171626171882%_ + _%hd171627171885%_ + _%tl171628171887%_ + _%e171638171912%_ + _%hd171639171915%_ + _%tl171640171917%_ + _%e171641171920%_ + _%hd171642171923%_ + _%tl171643171925%_ + _%e171644171928%_ + _%hd171645171931%_ + _%tl171646171933%_ + _%e171647171936%_ + _%hd171648171939%_ + _%tl171649171941%_ + _%e171650171944%_ + _%hd171651171947%_ + _%tl171652171949%_ + _%e171653171952%_ + _%hd171654171955%_ + _%tl171655171957%_ + _%e171656171960%_ + _%hd171657171963%_ + _%tl171658171965%_ + _%e171659171968%_ + _%hd171660171971%_ + _%tl171661171973%_)) + (_%__kont181852181853%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178308178309%_)) - (_%__kont178308178309%_)) - (_%__kont178308178309%_)))) - (_%__kont178308178309%_)))) - (_%__kont178308178309%_)) - (_%__kont178308178309%_)))) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)))) + (_%__kont181852181853%_)))) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178308178309%_)) - (_%__kont178308178309%_)) - (_%__kont178308178309%_)))) - (_%__kont178308178309%_)))) - (_%__kont178308178309%_)) - (_%__kont178308178309%_)) - (_%__kont178308178309%_)))) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)))) + (_%__kont181852181853%_)))) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178308178309%_)))) - (_%__kont178308178309%_))))))) - (_%loop168029168292%_ _%target168026168287%_ '())))) - (_%__match178323178324%_ - (lambda (_%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_) - (letrec ((_%loop167981168552%_ - (lambda (_%hd167979168555%_ - _%arg167985168557%_) + (_%__kont181852181853%_)))) + (_%__kont181852181853%_))))))) + (_%loop171632171895%_ _%target171629171890%_ '())))) + (_%__match181867181868%_ + (lambda (_%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_) + (letrec ((_%loop171584172151%_ + (lambda (_%hd171582172154%_ + _%arg171588172156%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167979168555%_)) - (let ((_%e167982168560%_ + (gx#stx-pair? _%hd171582172154%_)) + (let ((_%e171585172158%_ (let () (declare (not safe)) - (gx#stx-e _%hd167979168555%_)))) - (let ((_%lp-tl167984168565%_ + (gx#stx-e _%hd171582172154%_)))) + (let ((_%lp-tl171587172163%_ (let () (declare (not safe)) - (##cdr _%e167982168560%_))) - (_%lp-hd167983168563%_ + (##cdr _%e171585172158%_))) + (_%lp-hd171586172161%_ (let () (declare (not safe)) - (##car _%e167982168560%_)))) - (_%loop167981168552%_ - _%lp-tl167984168565%_ - (cons _%lp-hd167983168563%_ - _%arg167985168557%_)))) - (let ((_%arg167986168568%_ - (reverse _%arg167985168557%_))) + (##car _%e171585172158%_)))) + (_%loop171584172151%_ + _%lp-tl171587172163%_ + (cons _%lp-hd171586172161%_ + _%arg171588172156%_)))) + (let ((_%arg171589172166%_ + (reverse _%arg171588172156%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167977168544%_)) - (let ((_%e167987168571%_ + _%tl171580172143%_)) + (let ((_%e171590172168%_ (let () (declare (not safe)) (gx#stx-e - _%tl167977168544%_)))) - (let ((_%tl167989168576%_ + _%tl171580172143%_)))) + (let ((_%tl171592172173%_ (let () (declare (not safe)) - (##cdr _%e167987168571%_))) - (_%hd167988168574%_ + (##cdr _%e171590172168%_))) + (_%hd171591172171%_ (let () (declare (not safe)) - (##car _%e167987168571%_)))) + (##car _%e171590172168%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd167988168574%_)) - (let ((_%e167990168579%_ + _%hd171591172171%_)) + (let ((_%e171593172176%_ (let () (declare (not safe)) (gx#stx-e - _%hd167988168574%_)))) - (let ((_%tl167992168584%_ + _%hd171591172171%_)))) + (let ((_%tl171595172181%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e167990168579%_))) - (_%hd167991168582%_ - (let () (declare (not safe)) (##car _%e167990168579%_)))) + (##cdr _%e171593172176%_))) + (_%hd171594172179%_ + (let () (declare (not safe)) (##car _%e171593172176%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd167991168582%_)) + (gx#identifier? _%hd171594172179%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd167991168582%_)) + (gx#stx-eq? '%#call _%hd171594172179%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167992168584%_)) - (let ((_%e167993168587%_ + (gx#stx-pair? _%tl171595172181%_)) + (let ((_%e171596172184%_ (let () (declare (not safe)) - (gx#stx-e _%tl167992168584%_)))) - (let ((_%tl167995168592%_ + (gx#stx-e _%tl171595172181%_)))) + (let ((_%tl171598172189%_ (let () (declare (not safe)) - (##cdr _%e167993168587%_))) - (_%hd167994168590%_ + (##cdr _%e171596172184%_))) + (_%hd171597172187%_ (let () (declare (not safe)) - (##car _%e167993168587%_)))) + (##car _%e171596172184%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167994168590%_)) - (let ((_%e167996168595%_ + (gx#stx-pair? _%hd171597172187%_)) + (let ((_%e171599172192%_ (let () (declare (not safe)) - (gx#stx-e _%hd167994168590%_)))) - (let ((_%tl167998168600%_ + (gx#stx-e _%hd171597172187%_)))) + (let ((_%tl171601172197%_ (let () (declare (not safe)) - (##cdr _%e167996168595%_))) - (_%hd167997168598%_ + (##cdr _%e171599172192%_))) + (_%hd171600172195%_ (let () (declare (not safe)) - (##car _%e167996168595%_)))) + (##car _%e171599172192%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd167997168598%_)) + _%hd171600172195%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd167997168598%_)) + _%hd171600172195%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167998168600%_)) - (let ((_%e167999168603%_ + _%tl171601172197%_)) + (let ((_%e171602172200%_ (let () (declare (not safe)) (gx#stx-e - _%tl167998168600%_)))) - (let ((_%tl168001168608%_ + _%tl171601172197%_)))) + (let ((_%tl171604172205%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e167999168603%_))) - (_%hd168000168606%_ - (let () (declare (not safe)) (##car _%e167999168603%_)))) + (##cdr _%e171602172200%_))) + (_%hd171603172203%_ + (let () (declare (not safe)) (##car _%e171602172200%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl168001168608%_)) + (gx#stx-null? _%tl171604172205%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl167995168592%_)) - (let ((_%__splice178298178299%_ + (gx#stx-pair/null? _%tl171598172189%_)) + (let ((_%__splice181842181843%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl167995168592%_ + _%tl171598172189%_ '0)))) - (let ((_%tl168004168613%_ + (let ((_%tl171607172210%_ (let () (declare (not safe)) - (##vector-ref _%__splice178298178299%_ '1))) - (_%target168002168611%_ + (##vector-ref _%__splice181842181843%_ '1))) + (_%target171605172208%_ (let () (declare (not safe)) (##vector-ref - _%__splice178298178299%_ + _%__splice181842181843%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl168004168613%_)) - (letrec ((_%loop168005168616%_ - (lambda (_%hd168003168619%_ - _%xarg168009168621%_) + (gx#stx-null? _%tl171607172210%_)) + (letrec ((_%loop171608172213%_ + (lambda (_%hd171606172216%_ + _%xarg171612172218%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd168003168619%_)) - (let ((_%e168006168624%_ + _%hd171606172216%_)) + (let ((_%e171609172220%_ (let () (declare (not safe)) (gx#stx-e - _%hd168003168619%_)))) - (let ((_%lp-tl168008168629%_ + _%hd171606172216%_)))) + (let ((_%lp-tl171611172225%_ (let () (declare (not safe)) - (##cdr _%e168006168624%_))) - (_%lp-hd168007168627%_ + (##cdr _%e171609172220%_))) + (_%lp-hd171610172223%_ (let () (declare (not safe)) - (##car _%e168006168624%_)))) + (##car _%e171609172220%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd168007168627%_)) - (let ((_%e168011168632%_ + _%lp-hd171610172223%_)) + (let ((_%e171614172228%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%lp-hd168007168627%_)))) - (let ((_%tl168013168637%_ + (gx#stx-e _%lp-hd171610172223%_)))) + (let ((_%tl171616172233%_ (let () (declare (not safe)) - (##cdr _%e168011168632%_))) - (_%hd168012168635%_ + (##cdr _%e171614172228%_))) + (_%hd171615172231%_ (let () (declare (not safe)) - (##car _%e168011168632%_)))) + (##car _%e171614172228%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd168012168635%_)) + (gx#identifier? _%hd171615172231%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd168012168635%_)) + (gx#stx-eq? '%#ref _%hd171615172231%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168013168637%_)) - (let ((_%e168014168640%_ + (gx#stx-pair? _%tl171616172233%_)) + (let ((_%e171617172236%_ (let () (declare (not safe)) - (gx#stx-e _%tl168013168637%_)))) - (let ((_%tl168016168645%_ + (gx#stx-e _%tl171616172233%_)))) + (let ((_%tl171619172241%_ (let () (declare (not safe)) - (##cdr _%e168014168640%_))) - (_%hd168015168643%_ + (##cdr _%e171617172236%_))) + (_%hd171618172239%_ (let () (declare (not safe)) - (##car _%e168014168640%_)))) + (##car _%e171617172236%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl168016168645%_)) - (_%loop168005168616%_ - _%lp-tl168008168629%_ - (cons _%hd168015168643%_ - _%xarg168009168621%_)) - (_%__match178335178336%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_)))) - (_%__match178335178336%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_)) - (_%__match178335178336%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_)) - (_%__match178335178336%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_)))) - (_%__match178335178336%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_)))) + (gx#stx-null? _%tl171619172241%_)) + (_%loop171608172213%_ + _%lp-tl171611172225%_ + (cons _%hd171618172239%_ + _%xarg171612172218%_)) + (_%__match181879181880%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_)))) + (_%__match181879181880%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_)) + (_%__match181879181880%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_)) + (_%__match181879181880%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_)))) + (_%__match181879181880%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%xarg168010168648%_ - (reverse _%xarg168009168621%_))) + (let ((_%xarg171613172244%_ + (reverse _%xarg171612172218%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167989168576%_)) - (let ((_%L168651%_ - _%xarg168010168648%_) - (_%L168652%_ - _%hd168000168606%_) - (_%L168653%_ - _%arg167986168568%_)) - (if (and (let ((__tmp179936 + _%tl171592172173%_)) + (let ((_%g171575172246%_ + _%xarg171613172244%_) + (_%g171576172247%_ + _%hd171603172203%_) + (_%g171577172248%_ + _%arg171589172166%_)) + (if (and (let ((__tmp183480 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp179937 - (lambda (_%g168681168684%_ - _%g168682168686%_) - (cons _%g168681168684%_ - _%g168682168686%_)))) + (let ((__tmp183481 + (lambda (_%g172276172279%_ + _%g172277172281%_) + (cons _%g172276172279%_ + _%g172277172281%_)))) (declare (not safe)) - (__foldr1 __tmp179937 '() _%L168653%_)))) + (__foldr1 + __tmp183481 + '() + _%g171577172248%_)))) (declare (not safe)) - (gx#identifier-list? __tmp179936)) - (let ((__tmp179940 - (length (let ((__tmp179941 - (lambda (_%g168688168691%_ - _%g168689168693%_) - (cons _%g168688168691%_ - _%g168689168693%_)))) + (gx#identifier-list? __tmp183480)) + (let ((__tmp183484 + (length (let ((__tmp183485 + (lambda (_%g172283172286%_ + _%g172284172288%_) + (cons _%g172283172286%_ + _%g172284172288%_)))) (declare (not safe)) (__foldr1 - __tmp179941 + __tmp183485 '() - _%L168653%_)))) - (__tmp179938 - (length (let ((__tmp179939 - (lambda (_%g168695168698%_ - _%g168696168700%_) - (cons _%g168695168698%_ - _%g168696168700%_)))) + _%g171577172248%_)))) + (__tmp183482 + (length (let ((__tmp183483 + (lambda (_%g172290172293%_ + _%g172291172295%_) + (cons _%g172290172293%_ + _%g172291172295%_)))) (declare (not safe)) (__foldr1 - __tmp179939 + __tmp183483 '() - _%L168651%_))))) + _%g171575172246%_))))) (declare (not safe)) - (##fx= __tmp179940 __tmp179938)) - (let ((__tmp179944 - (let ((__tmp179945 - (lambda (_%g168702168705%_ - _%g168703168707%_) - (cons _%g168702168705%_ - _%g168703168707%_)))) + (##fx= __tmp183484 __tmp183482)) + (let ((__tmp183488 + (let ((__tmp183489 + (lambda (_%g172297172300%_ + _%g172298172302%_) + (cons _%g172297172300%_ + _%g172298172302%_)))) (declare (not safe)) - (__foldr1 __tmp179945 '() _%L168653%_))) - (__tmp179942 - (let ((__tmp179943 - (lambda (_%g168709168712%_ - _%g168710168714%_) - (cons _%g168709168712%_ - _%g168710168714%_)))) + (__foldr1 + __tmp183489 + '() + _%g171577172248%_))) + (__tmp183486 + (let ((__tmp183487 + (lambda (_%g172304172307%_ + _%g172305172309%_) + (cons _%g172304172307%_ + _%g172305172309%_)))) (declare (not safe)) - (__foldr1 __tmp179943 '() _%L168651%_)))) + (__foldr1 + __tmp183487 + '() + _%g171575172246%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp179944 - __tmp179942)) - (not (let ((__tmp179948 - (lambda (_%g168716168718%_) + __tmp183488 + __tmp183486)) + (not (let ((__tmp183492 + (lambda (_%g172311172313%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g168716168718%_ - _%L168652%_)))) - (__tmp179946 - (let ((__tmp179947 - (lambda (_%g168720168723%_ - _%g168721168725%_) - (cons _%g168720168723%_ - _%g168721168725%_)))) + _%g172311172313%_ + _%g171576172247%_)))) + (__tmp183490 + (let ((__tmp183491 + (lambda (_%g172315172318%_ + _%g172316172320%_) + (cons _%g172315172318%_ + _%g172316172320%_)))) (declare (not safe)) (__foldr1 - __tmp179947 + __tmp183491 '() - _%L168653%_)))) + _%g171577172248%_)))) (declare (not safe)) - (__find __tmp179948 __tmp179946)))) - (_%__kont178294178295%_ - _%L168651%_ - _%L168652%_ - _%L168653%_) - (_%__match178335178336%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_))) - (_%__match178335178336%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_))))))) + (__find __tmp183492 __tmp183490)))) + (_%__kont181838181839%_ + _%g171575172246%_ + _%g171576172247%_ + _%g171577172248%_) + (_%__match181879181880%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_))) + (_%__match181879181880%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop168005168616%_ - _%target168002168611%_ + (_%loop171608172213%_ + _%target171605172208%_ '())) - (_%__match178335178336%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_)))) - (_%__match178335178336%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_)) - (_%__match178335178336%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_)))) + (_%__match181879181880%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_)))) + (_%__match181879181880%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_)) + (_%__match181879181880%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match178335178336%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_)) - (_%__match178335178336%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_)) - (_%__match178335178336%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_)))) - (_%__match178335178336%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_)))) - (_%__match178335178336%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_)) - (_%__match178335178336%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_)) - (_%__match178335178336%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_)))) + (_%__match181879181880%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_)) + (_%__match181879181880%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_)) + (_%__match181879181880%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_)))) + (_%__match181879181880%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_)))) + (_%__match181879181880%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_)) + (_%__match181879181880%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_)) + (_%__match181879181880%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match178335178336%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_)))) - (_%__match178335178336%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_))))))) - (_%loop167981168552%_ _%target167978168547%_ '()))))) + (_%__match181879181880%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_)))) + (_%__match181879181880%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_))))))) + (_%loop171584172151%_ _%target171581172146%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx178292178293%_)) - (let ((_%e167975168539%_ + (gx#stx-pair? _%__stx181836181837%_)) + (let ((_%e171578172138%_ (let () (declare (not safe)) - (gx#stx-e _%__stx178292178293%_)))) - (let ((_%tl167977168544%_ + (gx#stx-e _%__stx181836181837%_)))) + (let ((_%tl171580172143%_ (let () (declare (not safe)) - (##cdr _%e167975168539%_))) - (_%hd167976168542%_ + (##cdr _%e171578172138%_))) + (_%hd171579172141%_ (let () (declare (not safe)) - (##car _%e167975168539%_)))) + (##car _%e171578172138%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd167976168542%_)) - (let ((_%__splice178296178297%_ + (gx#stx-pair/null? _%hd171579172141%_)) + (let ((_%__splice181840181841%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%hd167976168542%_ + _%hd171579172141%_ '0)))) - (let ((_%tl167980168549%_ + (let ((_%tl171583172148%_ (let () (declare (not safe)) (##vector-ref - _%__splice178296178297%_ + _%__splice181840181841%_ '1))) - (_%target167978168547%_ + (_%target171581172146%_ (let () (declare (not safe)) (##vector-ref - _%__splice178296178297%_ + _%__splice181840181841%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167980168549%_)) - (_%__match178323178324%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_) - (_%__match178335178336%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%__splice178296178297%_ - _%target167978168547%_ - _%tl167980168549%_)))) + (gx#stx-null? _%tl171583172148%_)) + (_%__match181867181868%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_) + (_%__match181879181880%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%__splice181840181841%_ + _%target171581172146%_ + _%tl171583172148%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167977168544%_)) - (let ((_%e168090168147%_ + (gx#stx-pair? _%tl171580172143%_)) + (let ((_%e171693171750%_ (let () (declare (not safe)) - (gx#stx-e _%tl167977168544%_)))) - (let ((_%tl168092168152%_ + (gx#stx-e _%tl171580172143%_)))) + (let ((_%tl171695171755%_ (let () (declare (not safe)) - (##cdr _%e168090168147%_))) - (_%hd168091168150%_ + (##cdr _%e171693171750%_))) + (_%hd171694171753%_ (let () (declare (not safe)) - (##car _%e168090168147%_)))) + (##car _%e171693171750%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd168091168150%_)) - (let ((_%e168093168155%_ + (gx#stx-pair? _%hd171694171753%_)) + (let ((_%e171696171758%_ (let () (declare (not safe)) - (gx#stx-e _%hd168091168150%_)))) - (let ((_%tl168095168160%_ + (gx#stx-e _%hd171694171753%_)))) + (let ((_%tl171698171763%_ (let () (declare (not safe)) - (##cdr _%e168093168155%_))) - (_%hd168094168158%_ + (##cdr _%e171696171758%_))) + (_%hd171697171761%_ (let () (declare (not safe)) - (##car _%e168093168155%_)))) + (##car _%e171696171758%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd168094168158%_)) + _%hd171697171761%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd168094168158%_)) + _%hd171697171761%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168095168160%_)) - (let ((_%e168096168163%_ + _%tl171698171763%_)) + (let ((_%e171699171766%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl168095168160%_)))) - (let ((_%tl168098168168%_ - (let () (declare (not safe)) (##cdr _%e168096168163%_))) - (_%hd168097168166%_ + (gx#stx-e _%tl171698171763%_)))) + (let ((_%tl171701171771%_ + (let () (declare (not safe)) (##cdr _%e171699171766%_))) + (_%hd171700171769%_ (let () (declare (not safe)) - (##car _%e168096168163%_)))) + (##car _%e171699171766%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd168097168166%_)) - (let ((_%e168099168171%_ + (gx#stx-pair? _%hd171700171769%_)) + (let ((_%e171702171774%_ (let () (declare (not safe)) - (gx#stx-e _%hd168097168166%_)))) - (let ((_%tl168101168176%_ + (gx#stx-e _%hd171700171769%_)))) + (let ((_%tl171704171779%_ (let () (declare (not safe)) - (##cdr _%e168099168171%_))) - (_%hd168100168174%_ + (##cdr _%e171702171774%_))) + (_%hd171703171777%_ (let () (declare (not safe)) - (##car _%e168099168171%_)))) + (##car _%e171702171774%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd168100168174%_)) + (gx#identifier? _%hd171703171777%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd168100168174%_)) + (gx#stx-eq? '%#ref _%hd171703171777%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168101168176%_)) - (let ((_%e168102168179%_ + (gx#stx-pair? _%tl171704171779%_)) + (let ((_%e171705171782%_ (let () (declare (not safe)) - (gx#stx-e _%tl168101168176%_)))) - (let ((_%tl168104168184%_ + (gx#stx-e _%tl171704171779%_)))) + (let ((_%tl171707171787%_ (let () (declare (not safe)) - (##cdr _%e168102168179%_))) - (_%hd168103168182%_ + (##cdr _%e171705171782%_))) + (_%hd171706171785%_ (let () (declare (not safe)) - (##car _%e168102168179%_)))) + (##car _%e171705171782%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl168104168184%_)) + _%tl171707171787%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168098168168%_)) - (let ((_%e168105168187%_ + _%tl171701171771%_)) + (let ((_%e171708171790%_ (let () (declare (not safe)) (gx#stx-e - _%tl168098168168%_)))) - (let ((_%tl168107168192%_ + _%tl171701171771%_)))) + (let ((_%tl171710171795%_ (let () (declare (not safe)) - (##cdr _%e168105168187%_))) - (_%hd168106168190%_ + (##cdr _%e171708171790%_))) + (_%hd171709171793%_ (let () (declare (not safe)) - (##car _%e168105168187%_)))) + (##car _%e171708171790%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd168106168190%_)) - (let ((_%e168108168195%_ + _%hd171709171793%_)) + (let ((_%e171711171798%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd168106168190%_)))) - (let ((_%tl168110168200%_ + (gx#stx-e _%hd171709171793%_)))) + (let ((_%tl171713171803%_ (let () (declare (not safe)) - (##cdr _%e168108168195%_))) - (_%hd168109168198%_ + (##cdr _%e171711171798%_))) + (_%hd171712171801%_ (let () (declare (not safe)) - (##car _%e168108168195%_)))) + (##car _%e171711171798%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd168109168198%_)) + (gx#identifier? _%hd171712171801%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd168109168198%_)) + (gx#stx-eq? '%#ref _%hd171712171801%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168110168200%_)) - (let ((_%e168111168203%_ + (gx#stx-pair? _%tl171713171803%_)) + (let ((_%e171714171806%_ (let () (declare (not safe)) - (gx#stx-e _%tl168110168200%_)))) - (let ((_%tl168113168208%_ + (gx#stx-e _%tl171713171803%_)))) + (let ((_%tl171716171811%_ (let () (declare (not safe)) - (##cdr _%e168111168203%_))) - (_%hd168112168206%_ + (##cdr _%e171714171806%_))) + (_%hd171715171809%_ (let () (declare (not safe)) - (##car _%e168111168203%_)))) + (##car _%e171714171806%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl168113168208%_)) + (gx#stx-null? _%tl171716171811%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl168107168192%_)) - (let ((_%e168114168211%_ + _%tl171710171795%_)) + (let ((_%e171717171814%_ (let () (declare (not safe)) (gx#stx-e - _%tl168107168192%_)))) - (let ((_%tl168116168216%_ + _%tl171710171795%_)))) + (let ((_%tl171719171819%_ (let () (declare (not safe)) - (##cdr _%e168114168211%_))) - (_%hd168115168214%_ + (##cdr _%e171717171814%_))) + (_%hd171718171817%_ (let () (declare (not safe)) - (##car _%e168114168211%_)))) + (##car _%e171717171814%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd168115168214%_)) - (let ((_%e168117168219%_ + _%hd171718171817%_)) + (let ((_%e171720171822%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd168115168214%_)))) - (let ((_%tl168119168224%_ - (let () (declare (not safe)) (##cdr _%e168117168219%_))) - (_%hd168118168222%_ + (gx#stx-e _%hd171718171817%_)))) + (let ((_%tl171722171827%_ + (let () (declare (not safe)) (##cdr _%e171720171822%_))) + (_%hd171721171825%_ (let () (declare (not safe)) - (##car _%e168117168219%_)))) + (##car _%e171720171822%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd168118168222%_)) + (gx#identifier? _%hd171721171825%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd168118168222%_)) + (gx#stx-eq? '%#ref _%hd171721171825%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl168119168224%_)) - (let ((_%e168120168227%_ + (gx#stx-pair? _%tl171722171827%_)) + (let ((_%e171723171830%_ (let () (declare (not safe)) - (gx#stx-e _%tl168119168224%_)))) - (let ((_%tl168122168232%_ + (gx#stx-e _%tl171722171827%_)))) + (let ((_%tl171725171835%_ (let () (declare (not safe)) - (##cdr _%e168120168227%_))) - (_%hd168121168230%_ + (##cdr _%e171723171830%_))) + (_%hd171724171833%_ (let () (declare (not safe)) - (##car _%e168120168227%_)))) + (##car _%e171723171830%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl168122168232%_)) + (gx#stx-null? _%tl171725171835%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl168116168216%_)) + (gx#stx-null? _%tl171719171819%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl168092168152%_)) - (_%__match178433178434%_ - _%e167975168539%_ - _%hd167976168542%_ - _%tl167977168544%_ - _%e168090168147%_ - _%hd168091168150%_ - _%tl168092168152%_ - _%e168093168155%_ - _%hd168094168158%_ - _%tl168095168160%_ - _%e168096168163%_ - _%hd168097168166%_ - _%tl168098168168%_ - _%e168099168171%_ - _%hd168100168174%_ - _%tl168101168176%_ - _%e168102168179%_ - _%hd168103168182%_ - _%tl168104168184%_ - _%e168105168187%_ - _%hd168106168190%_ - _%tl168107168192%_ - _%e168108168195%_ - _%hd168109168198%_ - _%tl168110168200%_ - _%e168111168203%_ - _%hd168112168206%_ - _%tl168113168208%_ - _%e168114168211%_ - _%hd168115168214%_ - _%tl168116168216%_ - _%e168117168219%_ - _%hd168118168222%_ - _%tl168119168224%_ - _%e168120168227%_ - _%hd168121168230%_ - _%tl168122168232%_) - (_%__kont178308178309%_)) - (_%__kont178308178309%_)) - (_%__kont178308178309%_)))) - (_%__kont178308178309%_)) - (_%__kont178308178309%_)) - (_%__kont178308178309%_)))) - (_%__kont178308178309%_)))) + _%tl171695171755%_)) + (_%__match181977181978%_ + _%e171578172138%_ + _%hd171579172141%_ + _%tl171580172143%_ + _%e171693171750%_ + _%hd171694171753%_ + _%tl171695171755%_ + _%e171696171758%_ + _%hd171697171761%_ + _%tl171698171763%_ + _%e171699171766%_ + _%hd171700171769%_ + _%tl171701171771%_ + _%e171702171774%_ + _%hd171703171777%_ + _%tl171704171779%_ + _%e171705171782%_ + _%hd171706171785%_ + _%tl171707171787%_ + _%e171708171790%_ + _%hd171709171793%_ + _%tl171710171795%_ + _%e171711171798%_ + _%hd171712171801%_ + _%tl171713171803%_ + _%e171714171806%_ + _%hd171715171809%_ + _%tl171716171811%_ + _%e171717171814%_ + _%hd171718171817%_ + _%tl171719171819%_ + _%e171720171822%_ + _%hd171721171825%_ + _%tl171722171827%_ + _%e171723171830%_ + _%hd171724171833%_ + _%tl171725171835%_) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)))) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)))) + (_%__kont181852181853%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178308178309%_)) - (_%__kont178308178309%_)))) - (_%__kont178308178309%_)) - (_%__kont178308178309%_)) - (_%__kont178308178309%_)))) - (_%__kont178308178309%_)))) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)))) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)))) + (_%__kont181852181853%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178308178309%_)) - (_%__kont178308178309%_)))) - (_%__kont178308178309%_)) - (_%__kont178308178309%_)) - (_%__kont178308178309%_)))) - (_%__kont178308178309%_)))) - (_%__kont178308178309%_)) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)))) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)))) + (_%__kont181852181853%_)))) + (_%__kont181852181853%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178308178309%_)) - (_%__kont178308178309%_)))) - (_%__kont178308178309%_)))) - (_%__kont178308178309%_))))) - (_%__kont178308178309%_))))))) + (_%__kont181852181853%_)) + (_%__kont181852181853%_)))) + (_%__kont181852181853%_)))) + (_%__kont181852181853%_))))) + (_%__kont181852181853%_))))))) (define gxc#dispatch-lambda-form-delegate - (lambda (_%form167433%_) - (let* ((_%__stx178436178437%_ _%form167433%_) - (_%g167437167561%_ + (lambda (_%form171042%_) + (let* ((_%__stx181980181981%_ _%form171042%_) + (_%g171046171170%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx178436178437%_))))) - (let ((_%__kont178438178439%_ - (lambda (_%L167931%_ _%L167932%_ _%L167933%_) + _%__stx181980181981%_))))) + (let ((_%__kont181982181983%_ + (lambda (_%g171048171534%_ + _%g171049171535%_ + _%g171050171536%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L167932%_)))) - (_%__kont178444178445%_ - (lambda (_%L167779%_ _%L167780%_ _%L167781%_ _%L167782%_) + (gxc#identifier-symbol _%g171049171535%_)))) + (_%__kont181988181989%_ + (lambda (_%g171093171386%_ + _%g171094171387%_ + _%g171095171388%_ + _%g171096171389%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L167779%_)))) - (_%__kont178448178449%_ - (lambda (_%L167646%_ _%L167647%_ _%L167648%_) + (gxc#identifier-symbol _%g171093171386%_)))) + (_%__kont181992181993%_ + (lambda (_%g171133171255%_ + _%g171134171256%_ + _%g171135171257%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L167646%_))))) - (let* ((_%__match178545178546%_ - (lambda (_%e167527167566%_ - _%hd167528167569%_ - _%tl167529167571%_ - _%e167530167574%_ - _%hd167531167577%_ - _%tl167532167579%_ - _%e167533167582%_ - _%hd167534167585%_ - _%tl167535167587%_ - _%e167536167590%_ - _%hd167537167593%_ - _%tl167538167595%_ - _%e167539167598%_ - _%hd167540167601%_ - _%tl167541167603%_ - _%e167542167606%_ - _%hd167543167609%_ - _%tl167544167611%_ - _%e167545167614%_ - _%hd167546167617%_ - _%tl167547167619%_ - _%e167548167622%_ - _%hd167549167625%_ - _%tl167550167627%_ - _%e167551167630%_ - _%hd167552167633%_ - _%tl167553167635%_) + (gxc#identifier-symbol _%g171133171255%_))))) + (let* ((_%__match182089182090%_ + (lambda (_%e171136171175%_ + _%hd171137171178%_ + _%tl171138171180%_ + _%e171139171183%_ + _%hd171140171186%_ + _%tl171141171188%_ + _%e171142171191%_ + _%hd171143171194%_ + _%tl171144171196%_ + _%e171145171199%_ + _%hd171146171202%_ + _%tl171147171204%_ + _%e171148171207%_ + _%hd171149171210%_ + _%tl171150171212%_ + _%e171151171215%_ + _%hd171152171218%_ + _%tl171153171220%_ + _%e171154171223%_ + _%hd171155171226%_ + _%tl171156171228%_ + _%e171157171231%_ + _%hd171158171234%_ + _%tl171159171236%_ + _%e171160171239%_ + _%hd171161171242%_ + _%tl171162171244%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167547167619%_)) - (let ((_%e167554167638%_ + (gx#stx-pair? _%tl171156171228%_)) + (let ((_%e171163171247%_ (let () (declare (not safe)) - (gx#stx-e _%tl167547167619%_)))) - (let ((_%tl167556167643%_ + (gx#stx-e _%tl171156171228%_)))) + (let ((_%tl171165171252%_ (let () (declare (not safe)) - (##cdr _%e167554167638%_))) - (_%hd167555167641%_ + (##cdr _%e171163171247%_))) + (_%hd171164171250%_ (let () (declare (not safe)) - (##car _%e167554167638%_)))) + (##car _%e171163171247%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167556167643%_)) + (gx#stx-null? _%tl171165171252%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167532167579%_)) - (_%__kont178448178449%_ - _%hd167552167633%_ - _%hd167543167609%_ - _%hd167528167569%_) + (gx#stx-null? _%tl171141171188%_)) + (_%__kont181992181993%_ + _%hd171161171242%_ + _%hd171152171218%_ + _%hd171137171178%_) (let () (declare (not safe)) - (_%g167437167561%_))) + (_%g171046171170%_))) (let () (declare (not safe)) - (_%g167437167561%_))))) - (let () (declare (not safe)) (_%g167437167561%_))))) - (_%__match178475178476%_ - (lambda (_%e167488167683%_ - _%hd167489167686%_ - _%tl167490167688%_ - _%__splice178446178447%_ - _%target167491167691%_ - _%tl167493167693%_) - (letrec ((_%loop167494167696%_ - (lambda (_%hd167492167699%_ - _%arg167498167701%_) + (_%g171046171170%_))))) + (let () (declare (not safe)) (_%g171046171170%_))))) + (_%__match182019182020%_ + (lambda (_%e171097171292%_ + _%hd171098171295%_ + _%tl171099171297%_ + _%__splice181990181991%_ + _%target171100171300%_ + _%tl171102171302%_) + (letrec ((_%loop171103171305%_ + (lambda (_%hd171101171308%_ + _%arg171107171310%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167492167699%_)) - (let ((_%e167495167704%_ + (gx#stx-pair? _%hd171101171308%_)) + (let ((_%e171104171312%_ (let () (declare (not safe)) - (gx#stx-e _%hd167492167699%_)))) - (let ((_%lp-tl167497167709%_ + (gx#stx-e _%hd171101171308%_)))) + (let ((_%lp-tl171106171317%_ (let () (declare (not safe)) - (##cdr _%e167495167704%_))) - (_%lp-hd167496167707%_ + (##cdr _%e171104171312%_))) + (_%lp-hd171105171315%_ (let () (declare (not safe)) - (##car _%e167495167704%_)))) - (_%loop167494167696%_ - _%lp-tl167497167709%_ - (cons _%lp-hd167496167707%_ - _%arg167498167701%_)))) - (let ((_%arg167499167712%_ - (reverse _%arg167498167701%_))) + (##car _%e171104171312%_)))) + (_%loop171103171305%_ + _%lp-tl171106171317%_ + (cons _%lp-hd171105171315%_ + _%arg171107171310%_)))) + (let ((_%arg171108171320%_ + (reverse _%arg171107171310%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167490167688%_)) - (let ((_%e167500167715%_ + _%tl171099171297%_)) + (let ((_%e171109171322%_ (let () (declare (not safe)) (gx#stx-e - _%tl167490167688%_)))) - (let ((_%tl167502167720%_ + _%tl171099171297%_)))) + (let ((_%tl171111171327%_ (let () (declare (not safe)) - (##cdr _%e167500167715%_))) - (_%hd167501167718%_ + (##cdr _%e171109171322%_))) + (_%hd171110171325%_ (let () (declare (not safe)) - (##car _%e167500167715%_)))) + (##car _%e171109171322%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd167501167718%_)) - (let ((_%e167503167723%_ + _%hd171110171325%_)) + (let ((_%e171112171330%_ (let () (declare (not safe)) (gx#stx-e - _%hd167501167718%_)))) - (let ((_%tl167505167728%_ + _%hd171110171325%_)))) + (let ((_%tl171114171335%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e167503167723%_))) - (_%hd167504167726%_ - (let () (declare (not safe)) (##car _%e167503167723%_)))) + (##cdr _%e171112171330%_))) + (_%hd171113171333%_ + (let () (declare (not safe)) (##car _%e171112171330%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd167504167726%_)) + (gx#identifier? _%hd171113171333%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd167504167726%_)) + (gx#stx-eq? '%#call _%hd171113171333%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167505167728%_)) - (let ((_%e167506167731%_ + (gx#stx-pair? _%tl171114171335%_)) + (let ((_%e171115171338%_ (let () (declare (not safe)) - (gx#stx-e _%tl167505167728%_)))) - (let ((_%tl167508167736%_ + (gx#stx-e _%tl171114171335%_)))) + (let ((_%tl171117171343%_ (let () (declare (not safe)) - (##cdr _%e167506167731%_))) - (_%hd167507167734%_ + (##cdr _%e171115171338%_))) + (_%hd171116171341%_ (let () (declare (not safe)) - (##car _%e167506167731%_)))) + (##car _%e171115171338%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167507167734%_)) - (let ((_%e167509167739%_ + (gx#stx-pair? _%hd171116171341%_)) + (let ((_%e171118171346%_ (let () (declare (not safe)) - (gx#stx-e _%hd167507167734%_)))) - (let ((_%tl167511167744%_ + (gx#stx-e _%hd171116171341%_)))) + (let ((_%tl171120171351%_ (let () (declare (not safe)) - (##cdr _%e167509167739%_))) - (_%hd167510167742%_ + (##cdr _%e171118171346%_))) + (_%hd171119171349%_ (let () (declare (not safe)) - (##car _%e167509167739%_)))) + (##car _%e171118171346%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd167510167742%_)) + _%hd171119171349%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd167510167742%_)) + _%hd171119171349%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167511167744%_)) - (let ((_%e167512167747%_ + _%tl171120171351%_)) + (let ((_%e171121171354%_ (let () (declare (not safe)) (gx#stx-e - _%tl167511167744%_)))) - (let ((_%tl167514167752%_ + _%tl171120171351%_)))) + (let ((_%tl171123171359%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e167512167747%_))) - (_%hd167513167750%_ - (let () (declare (not safe)) (##car _%e167512167747%_)))) + (##cdr _%e171121171354%_))) + (_%hd171122171357%_ + (let () (declare (not safe)) (##car _%e171121171354%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167514167752%_)) + (gx#stx-null? _%tl171123171359%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167508167736%_)) - (let ((_%e167515167755%_ + (gx#stx-pair? _%tl171117171343%_)) + (let ((_%e171124171362%_ (let () (declare (not safe)) - (gx#stx-e _%tl167508167736%_)))) - (let ((_%tl167517167760%_ + (gx#stx-e _%tl171117171343%_)))) + (let ((_%tl171126171367%_ (let () (declare (not safe)) - (##cdr _%e167515167755%_))) - (_%hd167516167758%_ + (##cdr _%e171124171362%_))) + (_%hd171125171365%_ (let () (declare (not safe)) - (##car _%e167515167755%_)))) + (##car _%e171124171362%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167516167758%_)) - (let ((_%e167518167763%_ + (gx#stx-pair? _%hd171125171365%_)) + (let ((_%e171127171370%_ (let () (declare (not safe)) - (gx#stx-e _%hd167516167758%_)))) - (let ((_%tl167520167768%_ + (gx#stx-e _%hd171125171365%_)))) + (let ((_%tl171129171375%_ (let () (declare (not safe)) - (##cdr _%e167518167763%_))) - (_%hd167519167766%_ + (##cdr _%e171127171370%_))) + (_%hd171128171373%_ (let () (declare (not safe)) - (##car _%e167518167763%_)))) + (##car _%e171127171370%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd167519167766%_)) + (gx#identifier? _%hd171128171373%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd167519167766%_)) + _%hd171128171373%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167520167768%_)) - (let ((_%e167521167771%_ + _%tl171129171375%_)) + (let ((_%e171130171378%_ (let () (declare (not safe)) (gx#stx-e - _%tl167520167768%_)))) - (let ((_%tl167523167776%_ + _%tl171129171375%_)))) + (let ((_%tl171132171383%_ (let () (declare (not safe)) - (##cdr _%e167521167771%_))) - (_%hd167522167774%_ + (##cdr _%e171130171378%_))) + (_%hd171131171381%_ (let () (declare (not safe)) - (##car _%e167521167771%_)))) + (##car _%e171130171378%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167523167776%_)) + _%tl171132171383%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167502167720%_)) - (_%__kont178444178445%_ - _%hd167522167774%_ - _%hd167513167750%_ - _%tl167493167693%_ - _%arg167499167712%_) - (_%__match178545178546%_ - _%e167488167683%_ - _%hd167489167686%_ - _%tl167490167688%_ - _%e167500167715%_ - _%hd167501167718%_ - _%tl167502167720%_ - _%e167503167723%_ - _%hd167504167726%_ - _%tl167505167728%_ - _%e167506167731%_ - _%hd167507167734%_ - _%tl167508167736%_ - _%e167509167739%_ - _%hd167510167742%_ - _%tl167511167744%_ - _%e167512167747%_ - _%hd167513167750%_ - _%tl167514167752%_ - _%e167515167755%_ - _%hd167516167758%_ - _%tl167517167760%_ - _%e167518167763%_ - _%hd167519167766%_ - _%tl167520167768%_ - _%e167521167771%_ - _%hd167522167774%_ - _%tl167523167776%_)) + _%tl171111171327%_)) + (_%__kont181988181989%_ + _%hd171131171381%_ + _%hd171122171357%_ + _%tl171102171302%_ + _%arg171108171320%_) + (_%__match182089182090%_ + _%e171097171292%_ + _%hd171098171295%_ + _%tl171099171297%_ + _%e171109171322%_ + _%hd171110171325%_ + _%tl171111171327%_ + _%e171112171330%_ + _%hd171113171333%_ + _%tl171114171335%_ + _%e171115171338%_ + _%hd171116171341%_ + _%tl171117171343%_ + _%e171118171346%_ + _%hd171119171349%_ + _%tl171120171351%_ + _%e171121171354%_ + _%hd171122171357%_ + _%tl171123171359%_ + _%e171124171362%_ + _%hd171125171365%_ + _%tl171126171367%_ + _%e171127171370%_ + _%hd171128171373%_ + _%tl171129171375%_ + _%e171130171378%_ + _%hd171131171381%_ + _%tl171132171383%_)) (let () (declare (not safe)) - (_%g167437167561%_))))) + (_%g171046171170%_))))) (let () (declare (not safe)) - (_%g167437167561%_))) + (_%g171046171170%_))) (let () (declare (not safe)) - (_%g167437167561%_))) + (_%g171046171170%_))) (let () (declare (not safe)) - (_%g167437167561%_))))) + (_%g171046171170%_))))) (let () (declare (not safe)) - (_%g167437167561%_))))) - (let () (declare (not safe)) (_%g167437167561%_))) - (let () (declare (not safe)) (_%g167437167561%_))))) + (_%g171046171170%_))))) + (let () (declare (not safe)) (_%g171046171170%_))) + (let () (declare (not safe)) (_%g171046171170%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g167437167561%_))) + (_%g171046171170%_))) (let () (declare (not safe)) - (_%g167437167561%_))) + (_%g171046171170%_))) (let () (declare (not safe)) - (_%g167437167561%_))))) + (_%g171046171170%_))))) (let () (declare (not safe)) - (_%g167437167561%_))))) - (let () (declare (not safe)) (_%g167437167561%_))) - (let () (declare (not safe)) (_%g167437167561%_))) - (let () (declare (not safe)) (_%g167437167561%_))))) + (_%g171046171170%_))))) + (let () (declare (not safe)) (_%g171046171170%_))) + (let () (declare (not safe)) (_%g171046171170%_))) + (let () (declare (not safe)) (_%g171046171170%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g167437167561%_))))) + (_%g171046171170%_))))) (let () (declare (not safe)) - (_%g167437167561%_)))))))) - (_%loop167494167696%_ _%target167491167691%_ '())))) - (_%__match178463178464%_ - (lambda (_%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_) - (letrec ((_%loop167448167832%_ - (lambda (_%hd167446167835%_ - _%arg167452167837%_) + (_%g171046171170%_)))))))) + (_%loop171103171305%_ _%target171100171300%_ '())))) + (_%__match182007182008%_ + (lambda (_%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_) + (letrec ((_%loop171057171439%_ + (lambda (_%hd171055171442%_ + _%arg171061171444%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167446167835%_)) - (let ((_%e167449167840%_ + (gx#stx-pair? _%hd171055171442%_)) + (let ((_%e171058171446%_ (let () (declare (not safe)) - (gx#stx-e _%hd167446167835%_)))) - (let ((_%lp-tl167451167845%_ + (gx#stx-e _%hd171055171442%_)))) + (let ((_%lp-tl171060171451%_ (let () (declare (not safe)) - (##cdr _%e167449167840%_))) - (_%lp-hd167450167843%_ + (##cdr _%e171058171446%_))) + (_%lp-hd171059171449%_ (let () (declare (not safe)) - (##car _%e167449167840%_)))) - (_%loop167448167832%_ - _%lp-tl167451167845%_ - (cons _%lp-hd167450167843%_ - _%arg167452167837%_)))) - (let ((_%arg167453167848%_ - (reverse _%arg167452167837%_))) + (##car _%e171058171446%_)))) + (_%loop171057171439%_ + _%lp-tl171060171451%_ + (cons _%lp-hd171059171449%_ + _%arg171061171444%_)))) + (let ((_%arg171062171454%_ + (reverse _%arg171061171444%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167444167824%_)) - (let ((_%e167454167851%_ + _%tl171053171431%_)) + (let ((_%e171063171456%_ (let () (declare (not safe)) (gx#stx-e - _%tl167444167824%_)))) - (let ((_%tl167456167856%_ + _%tl171053171431%_)))) + (let ((_%tl171065171461%_ (let () (declare (not safe)) - (##cdr _%e167454167851%_))) - (_%hd167455167854%_ + (##cdr _%e171063171456%_))) + (_%hd171064171459%_ (let () (declare (not safe)) - (##car _%e167454167851%_)))) + (##car _%e171063171456%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd167455167854%_)) - (let ((_%e167457167859%_ + _%hd171064171459%_)) + (let ((_%e171066171464%_ (let () (declare (not safe)) (gx#stx-e - _%hd167455167854%_)))) - (let ((_%tl167459167864%_ + _%hd171064171459%_)))) + (let ((_%tl171068171469%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e167457167859%_))) - (_%hd167458167862%_ - (let () (declare (not safe)) (##car _%e167457167859%_)))) + (##cdr _%e171066171464%_))) + (_%hd171067171467%_ + (let () (declare (not safe)) (##car _%e171066171464%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd167458167862%_)) + (gx#identifier? _%hd171067171467%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd167458167862%_)) + (gx#stx-eq? '%#call _%hd171067171467%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167459167864%_)) - (let ((_%e167460167867%_ + (gx#stx-pair? _%tl171068171469%_)) + (let ((_%e171069171472%_ (let () (declare (not safe)) - (gx#stx-e _%tl167459167864%_)))) - (let ((_%tl167462167872%_ + (gx#stx-e _%tl171068171469%_)))) + (let ((_%tl171071171477%_ (let () (declare (not safe)) - (##cdr _%e167460167867%_))) - (_%hd167461167870%_ + (##cdr _%e171069171472%_))) + (_%hd171070171475%_ (let () (declare (not safe)) - (##car _%e167460167867%_)))) + (##car _%e171069171472%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167461167870%_)) - (let ((_%e167463167875%_ + (gx#stx-pair? _%hd171070171475%_)) + (let ((_%e171072171480%_ (let () (declare (not safe)) - (gx#stx-e _%hd167461167870%_)))) - (let ((_%tl167465167880%_ + (gx#stx-e _%hd171070171475%_)))) + (let ((_%tl171074171485%_ (let () (declare (not safe)) - (##cdr _%e167463167875%_))) - (_%hd167464167878%_ + (##cdr _%e171072171480%_))) + (_%hd171073171483%_ (let () (declare (not safe)) - (##car _%e167463167875%_)))) + (##car _%e171072171480%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd167464167878%_)) + _%hd171073171483%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd167464167878%_)) + _%hd171073171483%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167465167880%_)) - (let ((_%e167466167883%_ + _%tl171074171485%_)) + (let ((_%e171075171488%_ (let () (declare (not safe)) (gx#stx-e - _%tl167465167880%_)))) - (let ((_%tl167468167888%_ + _%tl171074171485%_)))) + (let ((_%tl171077171493%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e167466167883%_))) - (_%hd167467167886%_ - (let () (declare (not safe)) (##car _%e167466167883%_)))) + (##cdr _%e171075171488%_))) + (_%hd171076171491%_ + (let () (declare (not safe)) (##car _%e171075171488%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167468167888%_)) + (gx#stx-null? _%tl171077171493%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl167462167872%_)) - (let ((_%__splice178442178443%_ + (gx#stx-pair/null? _%tl171071171477%_)) + (let ((_%__splice181986181987%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl167462167872%_ + _%tl171071171477%_ '0)))) - (let ((_%tl167471167893%_ + (let ((_%tl171080171498%_ (let () (declare (not safe)) - (##vector-ref _%__splice178442178443%_ '1))) - (_%target167469167891%_ + (##vector-ref _%__splice181986181987%_ '1))) + (_%target171078171496%_ (let () (declare (not safe)) (##vector-ref - _%__splice178442178443%_ + _%__splice181986181987%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167471167893%_)) - (letrec ((_%loop167472167896%_ - (lambda (_%hd167470167899%_ - _%xarg167476167901%_) + (gx#stx-null? _%tl171080171498%_)) + (letrec ((_%loop171081171501%_ + (lambda (_%hd171079171504%_ + _%xarg171085171506%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd167470167899%_)) - (let ((_%e167473167904%_ + _%hd171079171504%_)) + (let ((_%e171082171508%_ (let () (declare (not safe)) (gx#stx-e - _%hd167470167899%_)))) - (let ((_%lp-tl167475167909%_ + _%hd171079171504%_)))) + (let ((_%lp-tl171084171513%_ (let () (declare (not safe)) - (##cdr _%e167473167904%_))) - (_%lp-hd167474167907%_ + (##cdr _%e171082171508%_))) + (_%lp-hd171083171511%_ (let () (declare (not safe)) - (##car _%e167473167904%_)))) + (##car _%e171082171508%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd167474167907%_)) - (let ((_%e167478167912%_ + _%lp-hd171083171511%_)) + (let ((_%e171087171516%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%lp-hd167474167907%_)))) - (let ((_%tl167480167917%_ + (gx#stx-e _%lp-hd171083171511%_)))) + (let ((_%tl171089171521%_ (let () (declare (not safe)) - (##cdr _%e167478167912%_))) - (_%hd167479167915%_ + (##cdr _%e171087171516%_))) + (_%hd171088171519%_ (let () (declare (not safe)) - (##car _%e167478167912%_)))) + (##car _%e171087171516%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd167479167915%_)) + (gx#identifier? _%hd171088171519%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd167479167915%_)) + (gx#stx-eq? '%#ref _%hd171088171519%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167480167917%_)) - (let ((_%e167481167920%_ + (gx#stx-pair? _%tl171089171521%_)) + (let ((_%e171090171524%_ (let () (declare (not safe)) - (gx#stx-e _%tl167480167917%_)))) - (let ((_%tl167483167925%_ + (gx#stx-e _%tl171089171521%_)))) + (let ((_%tl171092171529%_ (let () (declare (not safe)) - (##cdr _%e167481167920%_))) - (_%hd167482167923%_ + (##cdr _%e171090171524%_))) + (_%hd171091171527%_ (let () (declare (not safe)) - (##car _%e167481167920%_)))) + (##car _%e171090171524%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167483167925%_)) - (_%loop167472167896%_ - _%lp-tl167475167909%_ - (cons _%hd167482167923%_ - _%xarg167476167901%_)) - (_%__match178475178476%_ - _%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_)))) - (_%__match178475178476%_ - _%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_)) - (_%__match178475178476%_ - _%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_)) - (_%__match178475178476%_ - _%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_)))) - (_%__match178475178476%_ - _%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_)))) + (gx#stx-null? _%tl171092171529%_)) + (_%loop171081171501%_ + _%lp-tl171084171513%_ + (cons _%hd171091171527%_ + _%xarg171085171506%_)) + (_%__match182019182020%_ + _%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_)))) + (_%__match182019182020%_ + _%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_)) + (_%__match182019182020%_ + _%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_)) + (_%__match182019182020%_ + _%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_)))) + (_%__match182019182020%_ + _%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%xarg167477167928%_ - (reverse _%xarg167476167901%_))) + (let ((_%xarg171086171532%_ + (reverse _%xarg171085171506%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167456167856%_)) - (_%__kont178438178439%_ - _%xarg167477167928%_ - _%hd167467167886%_ - _%arg167453167848%_) - (_%__match178475178476%_ - _%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_))))))) - (_%loop167472167896%_ - _%target167469167891%_ + _%tl171065171461%_)) + (_%__kont181982181983%_ + _%xarg171086171532%_ + _%hd171076171491%_ + _%arg171062171454%_) + (_%__match182019182020%_ + _%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_))))))) + (_%loop171081171501%_ + _%target171078171496%_ '())) - (_%__match178475178476%_ - _%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_)))) - (_%__match178475178476%_ - _%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_)) - (_%__match178475178476%_ - _%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_)))) + (_%__match182019182020%_ + _%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_)))) + (_%__match182019182020%_ + _%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_)) + (_%__match182019182020%_ + _%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match178475178476%_ - _%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_)) - (_%__match178475178476%_ - _%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_)) - (_%__match178475178476%_ - _%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_)))) - (_%__match178475178476%_ - _%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_)))) - (_%__match178475178476%_ - _%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_)) - (_%__match178475178476%_ - _%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_)) - (_%__match178475178476%_ - _%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_)))) + (_%__match182019182020%_ + _%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_)) + (_%__match182019182020%_ + _%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_)) + (_%__match182019182020%_ + _%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_)))) + (_%__match182019182020%_ + _%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_)))) + (_%__match182019182020%_ + _%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_)) + (_%__match182019182020%_ + _%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_)) + (_%__match182019182020%_ + _%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match178475178476%_ - _%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_)))) - (_%__match178475178476%_ - _%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_))))))) - (_%loop167448167832%_ _%target167445167827%_ '()))))) + (_%__match182019182020%_ + _%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_)))) + (_%__match182019182020%_ + _%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_))))))) + (_%loop171057171439%_ _%target171054171434%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx178436178437%_)) - (let ((_%e167442167819%_ + (gx#stx-pair? _%__stx181980181981%_)) + (let ((_%e171051171426%_ (let () (declare (not safe)) - (gx#stx-e _%__stx178436178437%_)))) - (let ((_%tl167444167824%_ + (gx#stx-e _%__stx181980181981%_)))) + (let ((_%tl171053171431%_ (let () (declare (not safe)) - (##cdr _%e167442167819%_))) - (_%hd167443167822%_ + (##cdr _%e171051171426%_))) + (_%hd171052171429%_ (let () (declare (not safe)) - (##car _%e167442167819%_)))) + (##car _%e171051171426%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd167443167822%_)) - (let ((_%__splice178440178441%_ + (gx#stx-pair/null? _%hd171052171429%_)) + (let ((_%__splice181984181985%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%hd167443167822%_ + _%hd171052171429%_ '0)))) - (let ((_%tl167447167829%_ + (let ((_%tl171056171436%_ (let () (declare (not safe)) (##vector-ref - _%__splice178440178441%_ + _%__splice181984181985%_ '1))) - (_%target167445167827%_ + (_%target171054171434%_ (let () (declare (not safe)) (##vector-ref - _%__splice178440178441%_ + _%__splice181984181985%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167447167829%_)) - (_%__match178463178464%_ - _%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_) - (_%__match178475178476%_ - _%e167442167819%_ - _%hd167443167822%_ - _%tl167444167824%_ - _%__splice178440178441%_ - _%target167445167827%_ - _%tl167447167829%_)))) + (gx#stx-null? _%tl171056171436%_)) + (_%__match182007182008%_ + _%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_) + (_%__match182019182020%_ + _%e171051171426%_ + _%hd171052171429%_ + _%tl171053171431%_ + _%__splice181984181985%_ + _%target171054171434%_ + _%tl171056171436%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167444167824%_)) - (let ((_%e167530167574%_ + (gx#stx-pair? _%tl171053171431%_)) + (let ((_%e171139171183%_ (let () (declare (not safe)) - (gx#stx-e _%tl167444167824%_)))) - (let ((_%tl167532167579%_ + (gx#stx-e _%tl171053171431%_)))) + (let ((_%tl171141171188%_ (let () (declare (not safe)) - (##cdr _%e167530167574%_))) - (_%hd167531167577%_ + (##cdr _%e171139171183%_))) + (_%hd171140171186%_ (let () (declare (not safe)) - (##car _%e167530167574%_)))) + (##car _%e171139171183%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167531167577%_)) - (let ((_%e167533167582%_ + (gx#stx-pair? _%hd171140171186%_)) + (let ((_%e171142171191%_ (let () (declare (not safe)) - (gx#stx-e _%hd167531167577%_)))) - (let ((_%tl167535167587%_ + (gx#stx-e _%hd171140171186%_)))) + (let ((_%tl171144171196%_ (let () (declare (not safe)) - (##cdr _%e167533167582%_))) - (_%hd167534167585%_ + (##cdr _%e171142171191%_))) + (_%hd171143171194%_ (let () (declare (not safe)) - (##car _%e167533167582%_)))) + (##car _%e171142171191%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd167534167585%_)) + _%hd171143171194%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd167534167585%_)) + _%hd171143171194%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167535167587%_)) - (let ((_%e167536167590%_ + _%tl171144171196%_)) + (let ((_%e171145171199%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl167535167587%_)))) - (let ((_%tl167538167595%_ - (let () (declare (not safe)) (##cdr _%e167536167590%_))) - (_%hd167537167593%_ + (gx#stx-e _%tl171144171196%_)))) + (let ((_%tl171147171204%_ + (let () (declare (not safe)) (##cdr _%e171145171199%_))) + (_%hd171146171202%_ (let () (declare (not safe)) - (##car _%e167536167590%_)))) + (##car _%e171145171199%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167537167593%_)) - (let ((_%e167539167598%_ + (gx#stx-pair? _%hd171146171202%_)) + (let ((_%e171148171207%_ (let () (declare (not safe)) - (gx#stx-e _%hd167537167593%_)))) - (let ((_%tl167541167603%_ + (gx#stx-e _%hd171146171202%_)))) + (let ((_%tl171150171212%_ (let () (declare (not safe)) - (##cdr _%e167539167598%_))) - (_%hd167540167601%_ + (##cdr _%e171148171207%_))) + (_%hd171149171210%_ (let () (declare (not safe)) - (##car _%e167539167598%_)))) + (##car _%e171148171207%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd167540167601%_)) + (gx#identifier? _%hd171149171210%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd167540167601%_)) + (gx#stx-eq? '%#ref _%hd171149171210%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167541167603%_)) - (let ((_%e167542167606%_ + (gx#stx-pair? _%tl171150171212%_)) + (let ((_%e171151171215%_ (let () (declare (not safe)) - (gx#stx-e _%tl167541167603%_)))) - (let ((_%tl167544167611%_ + (gx#stx-e _%tl171150171212%_)))) + (let ((_%tl171153171220%_ (let () (declare (not safe)) - (##cdr _%e167542167606%_))) - (_%hd167543167609%_ + (##cdr _%e171151171215%_))) + (_%hd171152171218%_ (let () (declare (not safe)) - (##car _%e167542167606%_)))) + (##car _%e171151171215%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167544167611%_)) + _%tl171153171220%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167538167595%_)) - (let ((_%e167545167614%_ + _%tl171147171204%_)) + (let ((_%e171154171223%_ (let () (declare (not safe)) (gx#stx-e - _%tl167538167595%_)))) - (let ((_%tl167547167619%_ + _%tl171147171204%_)))) + (let ((_%tl171156171228%_ (let () (declare (not safe)) - (##cdr _%e167545167614%_))) - (_%hd167546167617%_ + (##cdr _%e171154171223%_))) + (_%hd171155171226%_ (let () (declare (not safe)) - (##car _%e167545167614%_)))) + (##car _%e171154171223%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd167546167617%_)) - (let ((_%e167548167622%_ + _%hd171155171226%_)) + (let ((_%e171157171231%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd167546167617%_)))) - (let ((_%tl167550167627%_ + (gx#stx-e _%hd171155171226%_)))) + (let ((_%tl171159171236%_ (let () (declare (not safe)) - (##cdr _%e167548167622%_))) - (_%hd167549167625%_ + (##cdr _%e171157171231%_))) + (_%hd171158171234%_ (let () (declare (not safe)) - (##car _%e167548167622%_)))) + (##car _%e171157171231%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd167549167625%_)) + (gx#identifier? _%hd171158171234%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd167549167625%_)) + (gx#stx-eq? '%#ref _%hd171158171234%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167550167627%_)) - (let ((_%e167551167630%_ + (gx#stx-pair? _%tl171159171236%_)) + (let ((_%e171160171239%_ (let () (declare (not safe)) - (gx#stx-e _%tl167550167627%_)))) - (let ((_%tl167553167635%_ + (gx#stx-e _%tl171159171236%_)))) + (let ((_%tl171162171244%_ (let () (declare (not safe)) - (##cdr _%e167551167630%_))) - (_%hd167552167633%_ + (##cdr _%e171160171239%_))) + (_%hd171161171242%_ (let () (declare (not safe)) - (##car _%e167551167630%_)))) + (##car _%e171160171239%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167553167635%_)) + (gx#stx-null? _%tl171162171244%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167547167619%_)) - (let ((_%e167554167638%_ + _%tl171156171228%_)) + (let ((_%e171163171247%_ (let () (declare (not safe)) (gx#stx-e - _%tl167547167619%_)))) - (let ((_%tl167556167643%_ + _%tl171156171228%_)))) + (let ((_%tl171165171252%_ (let () (declare (not safe)) - (##cdr _%e167554167638%_))) - (_%hd167555167641%_ + (##cdr _%e171163171247%_))) + (_%hd171164171250%_ (let () (declare (not safe)) - (##car _%e167554167638%_)))) + (##car _%e171163171247%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167556167643%_)) + _%tl171165171252%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167532167579%_)) - (_%__kont178448178449%_ - _%hd167552167633%_ - _%hd167543167609%_ - _%hd167443167822%_) + _%tl171141171188%_)) + (_%__kont181992181993%_ + _%hd171161171242%_ + _%hd171152171218%_ + _%hd171052171429%_) (let () (declare (not safe)) - (_%g167437167561%_))) + (_%g171046171170%_))) (let () (declare (not safe)) - (_%g167437167561%_))))) + (_%g171046171170%_))))) (let () (declare (not safe)) - (_%g167437167561%_))) + (_%g171046171170%_))) (let () (declare (not safe)) - (_%g167437167561%_))))) + (_%g171046171170%_))))) (let () (declare (not safe)) - (_%g167437167561%_))) + (_%g171046171170%_))) (let () (declare (not safe)) - (_%g167437167561%_))) - (let () (declare (not safe)) (_%g167437167561%_))))) - (let () (declare (not safe)) (_%g167437167561%_))))) + (_%g171046171170%_))) + (let () (declare (not safe)) (_%g171046171170%_))))) + (let () (declare (not safe)) (_%g171046171170%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g167437167561%_))) + (_%g171046171170%_))) (let () (declare (not safe)) - (_%g167437167561%_))))) + (_%g171046171170%_))))) (let () (declare (not safe)) - (_%g167437167561%_))) + (_%g171046171170%_))) (let () (declare (not safe)) - (_%g167437167561%_))) + (_%g171046171170%_))) (let () (declare (not safe)) - (_%g167437167561%_))))) - (let () (declare (not safe)) (_%g167437167561%_))))) - (let () (declare (not safe)) (_%g167437167561%_))) + (_%g171046171170%_))))) + (let () (declare (not safe)) (_%g171046171170%_))))) + (let () (declare (not safe)) (_%g171046171170%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g167437167561%_))) + (_%g171046171170%_))) (let () (declare (not safe)) - (_%g167437167561%_))))) + (_%g171046171170%_))))) (let () (declare (not safe)) - (_%g167437167561%_))))) + (_%g171046171170%_))))) (let () (declare (not safe)) - (_%g167437167561%_)))))) - (let () (declare (not safe)) (_%g167437167561%_)))))))) + (_%g171046171170%_)))))) + (let () (declare (not safe)) (_%g171046171170%_)))))))) (define gxc#lambda-form-arity - (lambda (_%form167237%_) - (let* ((_%g167239167253%_ - (lambda (_%g167240167250%_) + (lambda (_%form170850%_) + (let* ((_%g170852170866%_ + (lambda (_%g170853170863%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g167240167250%_)))) - (_%g167238167430%_ - (lambda (_%g167240167256%_) + _%g170853170863%_)))) + (_%g170851171039%_ + (lambda (_%g170853170869%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g167240167256%_)) - (let ((_%e167243167258%_ + (gx#stx-pair? _%g170853170869%_)) + (let ((_%e170856170871%_ (let () (declare (not safe)) - (gx#stx-e _%g167240167256%_)))) - (let ((_%hd167244167261%_ + (gx#stx-e _%g170853170869%_)))) + (let ((_%hd170857170874%_ (let () (declare (not safe)) - (##car _%e167243167258%_))) - (_%tl167245167263%_ + (##car _%e170856170871%_))) + (_%tl170858170876%_ (let () (declare (not safe)) - (##cdr _%e167243167258%_)))) + (##cdr _%e170856170871%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167245167263%_)) - (let ((_%e167246167266%_ + (gx#stx-pair? _%tl170858170876%_)) + (let ((_%e170859170879%_ (let () (declare (not safe)) - (gx#stx-e _%tl167245167263%_)))) - (let ((_%hd167247167269%_ + (gx#stx-e _%tl170858170876%_)))) + (let ((_%hd170860170882%_ (let () (declare (not safe)) - (##car _%e167246167266%_))) - (_%tl167248167271%_ + (##car _%e170859170879%_))) + (_%tl170861170884%_ (let () (declare (not safe)) - (##cdr _%e167246167266%_)))) + (##cdr _%e170859170879%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167248167271%_)) - ((lambda (_%L167274%_ _%L167275%_) - (let* ((_%__stx178558178559%_ - _%L167275%_) - (_%g167290167318%_ + (gx#stx-null? _%tl170861170884%_)) + ((lambda (_%g170854170887%_ + _%g170855170888%_) + (let* ((_%__stx182102182103%_ + _%g170855170888%_) + (_%g170903170931%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx178558178559%_))))) - (let ((_%__kont178560178561%_ - (lambda (_%L167409%_) - (length (let ((__tmp179949 + _%__stx182102182103%_))))) + (let ((_%__kont182104182105%_ + (lambda (_%g170905171018%_) + (length (let ((__tmp183493 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g167419167422%_ _%g167420167424%_) - (cons _%g167419167422%_ _%g167420167424%_)))) + (lambda (_%g171028171031%_ _%g171029171033%_) + (cons _%g171028171031%_ _%g171029171033%_)))) (declare (not safe)) - (__foldr1 __tmp179949 '() _%L167409%_))))) + (__foldr1 __tmp183493 '() _%g170905171018%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178564178565%_ - (lambda (_%L167360%_ - _%L167361%_) - (cons (length (let ((__tmp179950 + (_%__kont182108182109%_ + (lambda (_%g170915170971%_ + _%g170916170972%_) + (cons (length (let ((__tmp183494 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g167372167375%_ _%g167373167377%_) - (cons _%g167372167375%_ - _%g167373167377%_)))) + (lambda (_%g170983170986%_ _%g170984170988%_) + (cons _%g170983170986%_ + _%g170984170988%_)))) (declare (not safe)) - (__foldr1 __tmp179950 '() _%L167361%_))) + (__foldr1 __tmp183494 '() _%g170916170972%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178568178569%_ - (lambda (_%L167323%_) + (_%__kont182112182113%_ + (lambda (_%g170926170936%_) (cons '0 '())))) - (let* ((_%__match178583178584%_ - (lambda (_%__splice178566178567%_ - _%target167304167336%_ - _%tl167306167338%_) - (letrec ((_%loop167307167341%_ + (let* ((_%__match182127182128%_ + (lambda (_%__splice182110182111%_ + _%target170917170949%_ + _%tl170919170951%_) + (letrec ((_%loop170920170954%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd167305167344%_ _%arg167311167346%_) + (lambda (_%hd170918170957%_ _%arg170924170959%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167305167344%_)) - (let ((_%e167308167349%_ + (gx#stx-pair? _%hd170918170957%_)) + (let ((_%e170921170961%_ (let () (declare (not safe)) - (gx#stx-e _%hd167305167344%_)))) - (let ((_%lp-tl167310167354%_ + (gx#stx-e _%hd170918170957%_)))) + (let ((_%lp-tl170923170966%_ (let () (declare (not safe)) - (##cdr _%e167308167349%_))) - (_%lp-hd167309167352%_ + (##cdr _%e170921170961%_))) + (_%lp-hd170922170964%_ (let () (declare (not safe)) - (##car _%e167308167349%_)))) - (_%loop167307167341%_ - _%lp-tl167310167354%_ - (cons _%lp-hd167309167352%_ - _%arg167311167346%_)))) - (let ((_%arg167312167357%_ - (reverse _%arg167311167346%_))) - (_%__kont178564178565%_ - _%tl167306167338%_ - _%arg167312167357%_)))))) - (_%loop167307167341%_ _%target167304167336%_ '())))) + (##car _%e170921170961%_)))) + (_%loop170920170954%_ + _%lp-tl170923170966%_ + (cons _%lp-hd170922170964%_ + _%arg170924170959%_)))) + (let ((_%arg170925170969%_ + (reverse _%arg170924170959%_))) + (_%__kont182108182109%_ + _%tl170919170951%_ + _%arg170925170969%_)))))) + (_%loop170920170954%_ _%target170917170949%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match178577178578%_ - (lambda (_%__splice178562178563%_ - _%target167293167385%_ - _%tl167295167387%_) - (letrec ((_%loop167296167390%_ + (_%__match182121182122%_ + (lambda (_%__splice182106182107%_ + _%target170906170996%_ + _%tl170908170998%_) + (letrec ((_%loop170909171001%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd167294167393%_ _%arg167300167395%_) + (lambda (_%hd170907171004%_ _%arg170913171006%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167294167393%_)) - (let ((_%e167297167398%_ + (gx#stx-pair? _%hd170907171004%_)) + (let ((_%e170910171008%_ (let () (declare (not safe)) - (gx#stx-e _%hd167294167393%_)))) - (let ((_%lp-tl167299167403%_ + (gx#stx-e _%hd170907171004%_)))) + (let ((_%lp-tl170912171013%_ (let () (declare (not safe)) - (##cdr _%e167297167398%_))) - (_%lp-hd167298167401%_ + (##cdr _%e170910171008%_))) + (_%lp-hd170911171011%_ (let () (declare (not safe)) - (##car _%e167297167398%_)))) - (_%loop167296167390%_ - _%lp-tl167299167403%_ - (cons _%lp-hd167298167401%_ - _%arg167300167395%_)))) - (let ((_%arg167301167406%_ - (reverse _%arg167300167395%_))) - (_%__kont178560178561%_ - _%arg167301167406%_)))))) - (_%loop167296167390%_ _%target167293167385%_ '()))))) + (##car _%e170910171008%_)))) + (_%loop170909171001%_ + _%lp-tl170912171013%_ + (cons _%lp-hd170911171011%_ + _%arg170913171006%_)))) + (let ((_%arg170914171016%_ + (reverse _%arg170913171006%_))) + (_%__kont182104182105%_ + _%arg170914171016%_)))))) + (_%loop170909171001%_ _%target170906170996%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%__stx178558178559%_)) - (let ((_%__splice178562178563%_ + _%__stx182102182103%_)) + (let ((_%__splice182106182107%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%__stx178558178559%_ + _%__stx182102182103%_ '0)))) - (let ((_%tl167295167387%_ + (let ((_%tl170908170998%_ (let () (declare (not safe)) (##vector-ref - _%__splice178562178563%_ + _%__splice182106182107%_ '1))) - (_%target167293167385%_ + (_%target170906170996%_ (let () (declare (not safe)) (##vector-ref - _%__splice178562178563%_ + _%__splice182106182107%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167295167387%_)) - (_%__match178577178578%_ - _%__splice178562178563%_ - _%target167293167385%_ - _%tl167295167387%_) - (_%__match178583178584%_ - _%__splice178562178563%_ - _%target167293167385%_ - _%tl167295167387%_)))) - (_%__kont178568178569%_ - _%__stx178558178559%_)))))) - _%hd167247167269%_ - _%hd167244167261%_) - (_%g167239167253%_ _%g167240167256%_)))) - (_%g167239167253%_ _%g167240167256%_)))) - (_%g167239167253%_ _%g167240167256%_))))) - (_%g167238167430%_ _%form167237%_)))) + _%tl170908170998%_)) + (_%__match182121182122%_ + _%__splice182106182107%_ + _%target170906170996%_ + _%tl170908170998%_) + (_%__match182127182128%_ + _%__splice182106182107%_ + _%target170906170996%_ + _%tl170908170998%_)))) + (_%__kont182112182113%_ + _%__stx182102182103%_)))))) + _%hd170860170882%_ + _%hd170857170874%_) + (_%g170852170866%_ _%g170853170869%_)))) + (_%g170852170866%_ _%g170853170869%_)))) + (_%g170852170866%_ _%g170853170869%_))))) + (_%g170851171039%_ _%form170850%_)))) (define gxc#lambda-form-infer-signature - (lambda (_%form167163%_) - (letrec ((_%default-signature167165%_ + (lambda (_%form170776%_) + (letrec ((_%default-signature170778%_ (lambda () - (let ((__obj179717 + (let ((__obj183261 (let () (declare (not safe)) (##structure @@ -18008,12 +18124,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179717 + __obj183261 't::t '1 '#f '#f)) - (let ((__tmp179951 + (let ((__tmp183495 (##structure-ref (let () (declare (not safe)) @@ -18023,74 +18139,75 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj179717 - __tmp179951 + __obj183261 + __tmp183495 '5 '#f '#f)) - __obj179717)))) - (let* ((_%g167167167181%_ - (lambda (_%g167168167178%_) + __obj183261)))) + (let* ((_%g170780170794%_ + (lambda (_%g170781170791%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g167168167178%_)))) - (_%g167166167233%_ - (lambda (_%g167168167184%_) + _%g170781170791%_)))) + (_%g170779170846%_ + (lambda (_%g170781170797%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g167168167184%_)) - (let ((_%e167171167186%_ + (gx#stx-pair? _%g170781170797%_)) + (let ((_%e170784170799%_ (let () (declare (not safe)) - (gx#stx-e _%g167168167184%_)))) - (let ((_%hd167172167189%_ + (gx#stx-e _%g170781170797%_)))) + (let ((_%hd170785170802%_ (let () (declare (not safe)) - (##car _%e167171167186%_))) - (_%tl167173167191%_ + (##car _%e170784170799%_))) + (_%tl170786170804%_ (let () (declare (not safe)) - (##cdr _%e167171167186%_)))) + (##cdr _%e170784170799%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167173167191%_)) - (let ((_%e167174167194%_ + (gx#stx-pair? _%tl170786170804%_)) + (let ((_%e170787170807%_ (let () (declare (not safe)) - (gx#stx-e _%tl167173167191%_)))) - (let ((_%hd167175167197%_ + (gx#stx-e _%tl170786170804%_)))) + (let ((_%hd170788170810%_ (let () (declare (not safe)) - (##car _%e167174167194%_))) - (_%tl167176167199%_ + (##car _%e170787170807%_))) + (_%tl170789170812%_ (let () (declare (not safe)) - (##cdr _%e167174167194%_)))) + (##cdr _%e170787170807%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167176167199%_)) - ((lambda (_%L167202%_ _%L167203%_) - (let ((_%$e167217%_ + (gx#stx-null? _%tl170789170812%_)) + ((lambda (_%g170782170815%_ + _%g170783170816%_) + (let ((_%$e170830%_ (gxc#apply-extract-lambda-signature - _%L167202%_))) - (if _%$e167217%_ - _%$e167217%_ - (let ((_%$e167220%_ + _%g170782170815%_))) + (if _%$e170830%_ + _%$e170830%_ + (let ((_%$e170833%_ (gxc#apply-basic-expression-type - _%L167202%_))) - (if _%$e167220%_ - ((lambda (_%return-type167223%_) + _%g170782170815%_))) + (if _%$e170833%_ + ((lambda (_%return-type170836%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-instance-of? - _%return-type167223%_ + _%return-type170836%_ 'gxc#!procedure::t)) - (let ((__obj179719 + (let ((__obj183263 (let () (declare (not safe)) (##structure @@ -18103,12 +18220,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179719 + __obj183263 'procedure::t '1 '#f '#f)) - (let ((__tmp179952 + (let ((__tmp183496 (##structure-ref (let () (declare (not safe)) @@ -18118,20 +18235,20 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj179719 - __tmp179952 + __obj183263 + __tmp183496 '5 '#f '#f)) - __obj179719) - (let ((_%$e167226%_ + __obj183263) + (let ((_%$e170839%_ (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%return-type167223%_)))) - (if _%$e167226%_ - ((lambda (_%return-type-name167229%_) - (let ((__obj179718 + _%return-type170836%_)))) + (if _%$e170839%_ + ((lambda (_%return-type-name170842%_) + (let ((__obj183262 (let () (declare (not safe)) (##structure @@ -18144,12 +18261,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179718 - _%return-type-name167229%_ + __obj183262 + _%return-type-name170842%_ '1 '#f '#f)) - (let ((__tmp179953 + (let ((__tmp183497 (##structure-ref (let () (declare (not safe)) @@ -18159,124 +18276,124 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj179718 - __tmp179953 + __obj183262 + __tmp183497 '5 '#f '#f)) - __obj179718)) - _%$e167226%_) - (_%default-signature167165%_))))) - _%$e167220%_) - (_%default-signature167165%_)))))) + __obj183262)) + _%$e170839%_) + (_%default-signature170778%_))))) + _%$e170833%_) + (_%default-signature170778%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd167175167197%_ - _%hd167172167189%_) - (_%g167167167181%_ - _%g167168167184%_)))) - (_%g167167167181%_ _%g167168167184%_)))) - (_%g167167167181%_ _%g167168167184%_))))) - (_%g167166167233%_ _%form167163%_))))) + _%hd170788170810%_ + _%hd170785170802%_) + (_%g170780170794%_ + _%g170781170797%_)))) + (_%g170780170794%_ _%g170781170797%_)))) + (_%g170780170794%_ _%g170781170797%_))))) + (_%g170779170846%_ _%form170776%_))))) (define gxc#extract-lambda-signature-begin-annotation% - (lambda (_%self166902%_ _%stx166903%_) - (let* ((_%__stx178599178600%_ _%stx166903%_) - (_%g166906166946%_ + (lambda (_%self170517%_ _%stx170518%_) + (let* ((_%__stx182143182144%_ _%stx170518%_) + (_%g170521170561%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx178599178600%_))))) - (let ((_%__kont178601178602%_ - (lambda (_%L167052%_ _%L167053%_) - (let _%loop167073%_ ((_%rest167075%_ - (let ((__tmp179958 - (lambda (_%g167152167155%_ - _%g167153167157%_) - (cons _%g167152167155%_ - _%g167153167157%_)))) + _%__stx182143182144%_))))) + (let ((_%__kont182145182146%_ + (lambda (_%g170523170665%_ _%g170524170666%_) + (let _%loop170686%_ ((_%rest170688%_ + (let ((__tmp183502 + (lambda (_%g170765170768%_ + _%g170766170770%_) + (cons _%g170765170768%_ + _%g170766170770%_)))) (declare (not safe)) (__foldr1 - __tmp179958 + __tmp183502 '() - _%L167053%_))) - (_%result167076%_ '())) - (let* ((_%rest167077167090%_ _%rest167075%_) - (_%E167081167094%_ + _%g170524170666%_))) + (_%result170689%_ '())) + (let* ((_%rest170690170703%_ _%rest170688%_) + (_%E170694170707%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest167077167090%_ + _%rest170690170703%_ '([(? stx-keyword? key) arg . rest]) '([]) '(_))) '#!void))) - (let ((_%K167084167134%_ - (lambda (_%rest167120%_ - _%arg167121%_ - _%key167122%_) - (let ((_%$e167124%_ + (let ((_%K170697170747%_ + (lambda (_%rest170733%_ + _%arg170734%_ + _%key170735%_) + (let ((_%$e170737%_ (let () (declare (not safe)) - (gx#stx-e _%key167122%_)))) - (if (eq? 'return: _%$e167124%_) - (_%loop167073%_ - _%rest167120%_ + (gx#stx-e _%key170735%_)))) + (if (eq? 'return: _%$e170737%_) + (_%loop170686%_ + _%rest170733%_ (cons 'return: (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%arg167121%_)) - _%result167076%_))) - (if (eq? 'effect: _%$e167124%_) - (_%loop167073%_ - _%rest167120%_ + _%arg170734%_)) + _%result170689%_))) + (if (eq? 'effect: _%$e170737%_) + (_%loop170686%_ + _%rest170733%_ (cons 'effect: - (cons (if _%arg167121%_ + (cons (if _%arg170734%_ (map gx#stx-e - _%arg167121%_) + _%arg170734%_) '#f) - _%result167076%_))) - (if (eq? 'arguments: _%$e167124%_) - (_%loop167073%_ - _%rest167120%_ + _%result170689%_))) + (if (eq? 'arguments: _%$e170737%_) + (_%loop170686%_ + _%rest170733%_ (cons 'arguments: (cons (let () (declare (not safe)) (gxc#map* gxc#identifier-symbol - _%arg167121%_)) - _%result167076%_))) + _%arg170734%_)) + _%result170689%_))) (if (eq? 'unchecked: - _%$e167124%_) - (_%loop167073%_ - _%rest167120%_ + _%$e170737%_) + (_%loop170686%_ + _%rest170733%_ (cons 'unchecked: (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _%arg167121%_)) - _%result167076%_))) + (gxc#identifier-symbol _%arg170734%_)) + _%result170689%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp179954 - (let ((__tmp179955 - (lambda (_%g167126167129%_ + (let ((__tmp183498 + (let ((__tmp183499 + (lambda (_%g170739170742%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g167127167131%_) - (cons _%g167126167129%_ _%g167127167131%_)))) + _%g170740170744%_) + (cons _%g170739170742%_ _%g170740170744%_)))) (declare (not safe)) - (__foldr1 __tmp179955 '() _%L167053%_)))) + (__foldr1 __tmp183499 '() _%g170524170666%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"bad lambda signature" - _%stx166903%_ - __tmp179954 - _%key167122%_))))))))) - (_%K167083167114%_ + _%stx170518%_ + __tmp183498 + _%key170735%_))))))))) + (_%K170696170727%_ (lambda () (apply gxc#make-!signature 'origin: @@ -18287,1824 +18404,1829 @@ '1 gx#expander-context::t '#f) - _%result167076%_))) - (_%K167082167106%_ + _%result170689%_))) + (_%K170695170719%_ (lambda () - (let ((__tmp179956 - (let ((__tmp179957 - (lambda (_%g167098167101%_ - _%g167099167103%_) - (cons _%g167098167101%_ - _%g167099167103%_)))) + (let ((__tmp183500 + (let ((__tmp183501 + (lambda (_%g170711170714%_ + _%g170712170716%_) + (cons _%g170711170714%_ + _%g170712170716%_)))) (declare (not safe)) (__foldr1 - __tmp179957 + __tmp183501 '() - _%L167053%_)))) + _%g170524170666%_)))) (declare (not safe)) (gxc#raise-compile-error '"bad lambda signature" - _%stx166903%_ - __tmp179956))))) - (let ((_%try-match167079167117%_ + _%stx170518%_ + __tmp183500))))) + (let ((_%try-match170692170730%_ (lambda () - (if (null? _%rest167077167090%_) - (_%K167083167114%_) - (_%K167082167106%_))))) - (if (pair? _%rest167077167090%_) - (let ((_%tl167086167139%_ + (if (null? _%rest170690170703%_) + (_%K170696170727%_) + (_%K170695170719%_))))) + (if (pair? _%rest170690170703%_) + (let ((_%tl170699170752%_ (let () (declare (not safe)) - (##cdr _%rest167077167090%_))) - (_%hd167085167137%_ + (##cdr _%rest170690170703%_))) + (_%hd170698170750%_ (let () (declare (not safe)) - (##car _%rest167077167090%_)))) + (##car _%rest170690170703%_)))) (if (let () (declare (not safe)) - (gx#stx-keyword? _%hd167085167137%_)) - (if (pair? _%tl167086167139%_) - (let ((_%tl167088167146%_ + (gx#stx-keyword? _%hd170698170750%_)) + (if (pair? _%tl170699170752%_) + (let ((_%tl170701170759%_ (let () (declare (not safe)) - (##cdr _%tl167086167139%_))) - (_%hd167087167144%_ + (##cdr _%tl170699170752%_))) + (_%hd170700170757%_ (let () (declare (not safe)) - (##car _%tl167086167139%_)))) - (let ((_%key167142%_ - _%hd167085167137%_) - (_%arg167149%_ - _%hd167087167144%_) - (_%rest167151%_ - _%tl167088167146%_)) - (_%K167084167134%_ - _%rest167151%_ - _%arg167149%_ - _%key167142%_))) - (_%K167082167106%_)) - (_%K167082167106%_))) - (_%try-match167079167117%_)))))))) - (_%__kont178605178606%_ - (lambda (_%L166975%_ _%L166976%_) + (##car _%tl170699170752%_)))) + (let ((_%key170755%_ + _%hd170698170750%_) + (_%arg170762%_ + _%hd170700170757%_) + (_%rest170764%_ + _%tl170701170759%_)) + (_%K170697170747%_ + _%rest170764%_ + _%arg170762%_ + _%key170755%_))) + (_%K170695170719%_)) + (_%K170695170719%_))) + (_%try-match170692170730%_)))))))) + (_%__kont182149182150%_ + (lambda (_%g170546170590%_ _%g170547170591%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self166902%_ _%L166975%_))))) - (let ((_%__match178636178637%_ - (lambda (_%e166910166996%_ - _%hd166911166999%_ - _%tl166912167001%_ - _%e166913167004%_ - _%hd166914167007%_ - _%tl166915167009%_ - _%e166916167012%_ - _%hd166917167015%_ - _%tl166918167017%_ - _%__splice178603178604%_ - _%target166919167020%_ - _%tl166921167022%_) - (letrec ((_%loop166922167025%_ - (lambda (_%hd166920167028%_ - _%signature166926167030%_) + (gxc#compile-e__1 _%self170517%_ _%g170546170590%_))))) + (let ((_%__match182180182181%_ + (lambda (_%e170525170611%_ + _%hd170526170614%_ + _%tl170527170616%_ + _%e170528170619%_ + _%hd170529170622%_ + _%tl170530170624%_ + _%e170531170627%_ + _%hd170532170630%_ + _%tl170533170632%_ + _%__splice182147182148%_ + _%target170534170635%_ + _%tl170536170637%_) + (letrec ((_%loop170537170640%_ + (lambda (_%hd170535170643%_ + _%signature170541170645%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166920167028%_)) - (let ((_%e166923167033%_ + (gx#stx-pair? _%hd170535170643%_)) + (let ((_%e170538170647%_ (let () (declare (not safe)) - (gx#stx-e _%hd166920167028%_)))) - (let ((_%lp-tl166925167038%_ + (gx#stx-e _%hd170535170643%_)))) + (let ((_%lp-tl170540170652%_ (let () (declare (not safe)) - (##cdr _%e166923167033%_))) - (_%lp-hd166924167036%_ + (##cdr _%e170538170647%_))) + (_%lp-hd170539170650%_ (let () (declare (not safe)) - (##car _%e166923167033%_)))) - (_%loop166922167025%_ - _%lp-tl166925167038%_ - (cons _%lp-hd166924167036%_ - _%signature166926167030%_)))) - (let ((_%signature166927167041%_ - (reverse _%signature166926167030%_))) + (##car _%e170538170647%_)))) + (_%loop170537170640%_ + _%lp-tl170540170652%_ + (cons _%lp-hd170539170650%_ + _%signature170541170645%_)))) + (let ((_%signature170542170655%_ + (reverse _%signature170541170645%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166915167009%_)) - (let ((_%e166928167044%_ + (gx#stx-pair? _%tl170530170624%_)) + (let ((_%e170543170657%_ (let () (declare (not safe)) (gx#stx-e - _%tl166915167009%_)))) - (let ((_%tl166930167049%_ + _%tl170530170624%_)))) + (let ((_%tl170545170662%_ (let () (declare (not safe)) - (##cdr _%e166928167044%_))) - (_%hd166929167047%_ + (##cdr _%e170543170657%_))) + (_%hd170544170660%_ (let () (declare (not safe)) - (##car _%e166928167044%_)))) + (##car _%e170543170657%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166930167049%_)) - (_%__kont178601178602%_ - _%hd166929167047%_ - _%signature166927167041%_) + _%tl170545170662%_)) + (_%__kont182145182146%_ + _%hd170544170660%_ + _%signature170542170655%_) (let () (declare (not safe)) - (_%g166906166946%_))))) + (_%g170521170561%_))))) (let () (declare (not safe)) - (_%g166906166946%_)))))))) - (_%loop166922167025%_ _%target166919167020%_ '()))))) + (_%g170521170561%_)))))))) + (_%loop170537170640%_ _%target170534170635%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx178599178600%_)) - (let ((_%e166910166996%_ + (gx#stx-pair? _%__stx182143182144%_)) + (let ((_%e170525170611%_ (let () (declare (not safe)) - (gx#stx-e _%__stx178599178600%_)))) - (let ((_%tl166912167001%_ + (gx#stx-e _%__stx182143182144%_)))) + (let ((_%tl170527170616%_ (let () (declare (not safe)) - (##cdr _%e166910166996%_))) - (_%hd166911166999%_ + (##cdr _%e170525170611%_))) + (_%hd170526170614%_ (let () (declare (not safe)) - (##car _%e166910166996%_)))) + (##car _%e170525170611%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166912167001%_)) - (let ((_%e166913167004%_ + (gx#stx-pair? _%tl170527170616%_)) + (let ((_%e170528170619%_ (let () (declare (not safe)) - (gx#stx-e _%tl166912167001%_)))) - (let ((_%tl166915167009%_ + (gx#stx-e _%tl170527170616%_)))) + (let ((_%tl170530170624%_ (let () (declare (not safe)) - (##cdr _%e166913167004%_))) - (_%hd166914167007%_ + (##cdr _%e170528170619%_))) + (_%hd170529170622%_ (let () (declare (not safe)) - (##car _%e166913167004%_)))) + (##car _%e170528170619%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166914167007%_)) - (let ((_%e166916167012%_ + (gx#stx-pair? _%hd170529170622%_)) + (let ((_%e170531170627%_ (let () (declare (not safe)) - (gx#stx-e _%hd166914167007%_)))) - (let ((_%tl166918167017%_ + (gx#stx-e _%hd170529170622%_)))) + (let ((_%tl170533170632%_ (let () (declare (not safe)) - (##cdr _%e166916167012%_))) - (_%hd166917167015%_ + (##cdr _%e170531170627%_))) + (_%hd170532170630%_ (let () (declare (not safe)) - (##car _%e166916167012%_)))) + (##car _%e170531170627%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd166917167015%_)) + _%hd170532170630%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.signature - _%hd166917167015%_)) + _%hd170532170630%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl166918167017%_)) - (let ((_%__splice178603178604%_ + _%tl170533170632%_)) + (let ((_%__splice182147182148%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl166918167017%_ + _%tl170533170632%_ '0)))) - (let ((_%tl166921167022%_ + (let ((_%tl170536170637%_ (let () (declare (not safe)) (##vector-ref - _%__splice178603178604%_ + _%__splice182147182148%_ '1))) - (_%target166919167020%_ + (_%target170534170635%_ (let () (declare (not safe)) (##vector-ref - _%__splice178603178604%_ + _%__splice182147182148%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166921167022%_)) - (_%__match178636178637%_ - _%e166910166996%_ - _%hd166911166999%_ - _%tl166912167001%_ - _%e166913167004%_ - _%hd166914167007%_ - _%tl166915167009%_ - _%e166916167012%_ - _%hd166917167015%_ - _%tl166918167017%_ - _%__splice178603178604%_ - _%target166919167020%_ - _%tl166921167022%_) + _%tl170536170637%_)) + (_%__match182180182181%_ + _%e170525170611%_ + _%hd170526170614%_ + _%tl170527170616%_ + _%e170528170619%_ + _%hd170529170622%_ + _%tl170530170624%_ + _%e170531170627%_ + _%hd170532170630%_ + _%tl170533170632%_ + _%__splice182147182148%_ + _%target170534170635%_ + _%tl170536170637%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl166915167009%_)) - (let ((_%e166939166967%_ + (gx#stx-pair? _%tl170530170624%_)) + (let ((_%e170554170582%_ (let () (declare (not safe)) - (gx#stx-e _%tl166915167009%_)))) - (let ((_%tl166941166972%_ + (gx#stx-e _%tl170530170624%_)))) + (let ((_%tl170556170587%_ (let () (declare (not safe)) - (##cdr _%e166939166967%_))) - (_%hd166940166970%_ + (##cdr _%e170554170582%_))) + (_%hd170555170585%_ (let () (declare (not safe)) - (##car _%e166939166967%_)))) + (##car _%e170554170582%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166941166972%_)) - (_%__kont178605178606%_ - _%hd166940166970%_ - _%hd166914167007%_) + (gx#stx-null? _%tl170556170587%_)) + (_%__kont182149182150%_ + _%hd170555170585%_ + _%hd170529170622%_) (let () (declare (not safe)) - (_%g166906166946%_))))) - (let () (declare (not safe)) (_%g166906166946%_)))))) + (_%g170521170561%_))))) + (let () (declare (not safe)) (_%g170521170561%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166915167009%_)) - (let ((_%e166939166967%_ + _%tl170530170624%_)) + (let ((_%e170554170582%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl166915167009%_)))) - (let ((_%tl166941166972%_ - (let () (declare (not safe)) (##cdr _%e166939166967%_))) - (_%hd166940166970%_ + (gx#stx-e _%tl170530170624%_)))) + (let ((_%tl170556170587%_ + (let () (declare (not safe)) (##cdr _%e170554170582%_))) + (_%hd170555170585%_ (let () (declare (not safe)) - (##car _%e166939166967%_)))) + (##car _%e170554170582%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166941166972%_)) - (_%__kont178605178606%_ - _%hd166940166970%_ - _%hd166914167007%_) - (let () (declare (not safe)) (_%g166906166946%_))))) - (let () (declare (not safe)) (_%g166906166946%_)))) + (gx#stx-null? _%tl170556170587%_)) + (_%__kont182149182150%_ + _%hd170555170585%_ + _%hd170529170622%_) + (let () (declare (not safe)) (_%g170521170561%_))))) + (let () (declare (not safe)) (_%g170521170561%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166915167009%_)) - (let ((_%e166939166967%_ + _%tl170530170624%_)) + (let ((_%e170554170582%_ (let () (declare (not safe)) (gx#stx-e - _%tl166915167009%_)))) - (let ((_%tl166941166972%_ + _%tl170530170624%_)))) + (let ((_%tl170556170587%_ (let () (declare (not safe)) - (##cdr _%e166939166967%_))) - (_%hd166940166970%_ + (##cdr _%e170554170582%_))) + (_%hd170555170585%_ (let () (declare (not safe)) - (##car _%e166939166967%_)))) + (##car _%e170554170582%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166941166972%_)) - (_%__kont178605178606%_ - _%hd166940166970%_ - _%hd166914167007%_) + _%tl170556170587%_)) + (_%__kont182149182150%_ + _%hd170555170585%_ + _%hd170529170622%_) (let () (declare (not safe)) - (_%g166906166946%_))))) + (_%g170521170561%_))))) (let () (declare (not safe)) - (_%g166906166946%_)))) + (_%g170521170561%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166915167009%_)) - (let ((_%e166939166967%_ + _%tl170530170624%_)) + (let ((_%e170554170582%_ (let () (declare (not safe)) (gx#stx-e - _%tl166915167009%_)))) - (let ((_%tl166941166972%_ + _%tl170530170624%_)))) + (let ((_%tl170556170587%_ (let () (declare (not safe)) - (##cdr _%e166939166967%_))) - (_%hd166940166970%_ + (##cdr _%e170554170582%_))) + (_%hd170555170585%_ (let () (declare (not safe)) - (##car _%e166939166967%_)))) + (##car _%e170554170582%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166941166972%_)) - (_%__kont178605178606%_ - _%hd166940166970%_ - _%hd166914167007%_) + _%tl170556170587%_)) + (_%__kont182149182150%_ + _%hd170555170585%_ + _%hd170529170622%_) (let () (declare (not safe)) - (_%g166906166946%_))))) + (_%g170521170561%_))))) (let () (declare (not safe)) - (_%g166906166946%_)))))) + (_%g170521170561%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166915167009%_)) - (let ((_%e166939166967%_ + (gx#stx-pair? _%tl170530170624%_)) + (let ((_%e170554170582%_ (let () (declare (not safe)) - (gx#stx-e _%tl166915167009%_)))) - (let ((_%tl166941166972%_ + (gx#stx-e _%tl170530170624%_)))) + (let ((_%tl170556170587%_ (let () (declare (not safe)) - (##cdr _%e166939166967%_))) - (_%hd166940166970%_ + (##cdr _%e170554170582%_))) + (_%hd170555170585%_ (let () (declare (not safe)) - (##car _%e166939166967%_)))) + (##car _%e170554170582%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166941166972%_)) - (_%__kont178605178606%_ - _%hd166940166970%_ - _%hd166914167007%_) + _%tl170556170587%_)) + (_%__kont182149182150%_ + _%hd170555170585%_ + _%hd170529170622%_) (let () (declare (not safe)) - (_%g166906166946%_))))) + (_%g170521170561%_))))) (let () (declare (not safe)) - (_%g166906166946%_)))))) - (let () (declare (not safe)) (_%g166906166946%_))))) - (let () (declare (not safe)) (_%g166906166946%_)))))))) + (_%g170521170561%_)))))) + (let () (declare (not safe)) (_%g170521170561%_))))) + (let () (declare (not safe)) (_%g170521170561%_)))))))) (define gxc#lambda-expr? - (lambda (_%expr166855%_) - (let* ((_%__stx178659178660%_ _%expr166855%_) - (_%g166858166868%_ + (lambda (_%expr170470%_) + (let* ((_%__stx182203182204%_ _%expr170470%_) + (_%g170473170483%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx178659178660%_))))) - (let ((_%__kont178661178662%_ (lambda (_%L166888%_) '#t)) - (_%__kont178663178664%_ (lambda () '#f))) + _%__stx182203182204%_))))) + (let ((_%__kont182205182206%_ (lambda (_%g170475170503%_) '#t)) + (_%__kont182207182208%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx178659178660%_)) - (let ((_%e166861166880%_ + (gx#stx-pair? _%__stx182203182204%_)) + (let ((_%e170476170495%_ (let () (declare (not safe)) - (gx#stx-e _%__stx178659178660%_)))) - (let ((_%tl166863166885%_ + (gx#stx-e _%__stx182203182204%_)))) + (let ((_%tl170478170500%_ (let () (declare (not safe)) - (##cdr _%e166861166880%_))) - (_%hd166862166883%_ + (##cdr _%e170476170495%_))) + (_%hd170477170498%_ (let () (declare (not safe)) - (##car _%e166861166880%_)))) + (##car _%e170476170495%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166862166883%_)) + (gx#identifier? _%hd170477170498%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd166862166883%_)) - (_%__kont178661178662%_ _%tl166863166885%_) - (_%__kont178663178664%_)) - (_%__kont178663178664%_)))) - (_%__kont178663178664%_)))))) + (gx#stx-eq? '%#lambda _%hd170477170498%_)) + (_%__kont182205182206%_ _%tl170478170500%_) + (_%__kont182207182208%_)) + (_%__kont182207182208%_)))) + (_%__kont182207182208%_)))))) (define gxc#case-lambda-expr? - (lambda (_%expr166808%_) - (let* ((_%__stx178677178678%_ _%expr166808%_) - (_%g166811166821%_ + (lambda (_%expr170423%_) + (let* ((_%__stx182221182222%_ _%expr170423%_) + (_%g170426170436%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx178677178678%_))))) - (let ((_%__kont178679178680%_ (lambda (_%L166841%_) '#t)) - (_%__kont178681178682%_ (lambda () '#f))) + _%__stx182221182222%_))))) + (let ((_%__kont182223182224%_ (lambda (_%g170428170456%_) '#t)) + (_%__kont182225182226%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx178677178678%_)) - (let ((_%e166814166833%_ + (gx#stx-pair? _%__stx182221182222%_)) + (let ((_%e170429170448%_ (let () (declare (not safe)) - (gx#stx-e _%__stx178677178678%_)))) - (let ((_%tl166816166838%_ + (gx#stx-e _%__stx182221182222%_)))) + (let ((_%tl170431170453%_ (let () (declare (not safe)) - (##cdr _%e166814166833%_))) - (_%hd166815166836%_ + (##cdr _%e170429170448%_))) + (_%hd170430170451%_ (let () (declare (not safe)) - (##car _%e166814166833%_)))) + (##car _%e170429170448%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166815166836%_)) + (gx#identifier? _%hd170430170451%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#case-lambda _%hd166815166836%_)) - (_%__kont178679178680%_ _%tl166816166838%_) - (_%__kont178681178682%_)) - (_%__kont178681178682%_)))) - (_%__kont178681178682%_)))))) + (gx#stx-eq? '%#case-lambda _%hd170430170451%_)) + (_%__kont182223182224%_ _%tl170431170453%_) + (_%__kont182225182226%_)) + (_%__kont182225182226%_)))) + (_%__kont182225182226%_)))))) (define gxc#opt-lambda-expr? - (lambda (_%expr166677%_) - (let* ((_%__stx178695178696%_ _%expr166677%_) - (_%g166680166710%_ + (lambda (_%expr170292%_) + (let* ((_%__stx182239182240%_ _%expr170292%_) + (_%g170295170325%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx178695178696%_))))) - (let ((_%__kont178697178698%_ - (lambda (_%L166778%_ _%L166779%_ _%L166780%_) + _%__stx182239182240%_))))) + (let ((_%__kont182241182242%_ + (lambda (_%g170297170393%_ + _%g170298170394%_ + _%g170299170395%_) (if (let () (declare (not safe)) - (gx#identifier? _%L166780%_)) - (if (gxc#lambda-expr? _%L166779%_) - (gxc#case-lambda-expr? _%L166778%_) + (gx#identifier? _%g170299170395%_)) + (if (gxc#lambda-expr? _%g170298170394%_) + (gxc#case-lambda-expr? _%g170297170393%_) '#f) '#f))) - (_%__kont178699178700%_ (lambda () '#f))) + (_%__kont182243182244%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx178695178696%_)) - (let ((_%e166685166722%_ + (gx#stx-pair? _%__stx182239182240%_)) + (let ((_%e170300170337%_ (let () (declare (not safe)) - (gx#stx-e _%__stx178695178696%_)))) - (let ((_%tl166687166727%_ + (gx#stx-e _%__stx182239182240%_)))) + (let ((_%tl170302170342%_ (let () (declare (not safe)) - (##cdr _%e166685166722%_))) - (_%hd166686166725%_ + (##cdr _%e170300170337%_))) + (_%hd170301170340%_ (let () (declare (not safe)) - (##car _%e166685166722%_)))) + (##car _%e170300170337%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166686166725%_)) + (gx#identifier? _%hd170301170340%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd166686166725%_)) + (gx#stx-eq? '%#let-values _%hd170301170340%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166687166727%_)) - (let ((_%e166688166730%_ + (gx#stx-pair? _%tl170302170342%_)) + (let ((_%e170303170345%_ (let () (declare (not safe)) - (gx#stx-e _%tl166687166727%_)))) - (let ((_%tl166690166735%_ + (gx#stx-e _%tl170302170342%_)))) + (let ((_%tl170305170350%_ (let () (declare (not safe)) - (##cdr _%e166688166730%_))) - (_%hd166689166733%_ + (##cdr _%e170303170345%_))) + (_%hd170304170348%_ (let () (declare (not safe)) - (##car _%e166688166730%_)))) + (##car _%e170303170345%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166689166733%_)) - (let ((_%e166691166738%_ + (gx#stx-pair? _%hd170304170348%_)) + (let ((_%e170306170353%_ (let () (declare (not safe)) (gx#stx-e - _%hd166689166733%_)))) - (let ((_%tl166693166743%_ + _%hd170304170348%_)))) + (let ((_%tl170308170358%_ (let () (declare (not safe)) - (##cdr _%e166691166738%_))) - (_%hd166692166741%_ + (##cdr _%e170306170353%_))) + (_%hd170307170356%_ (let () (declare (not safe)) - (##car _%e166691166738%_)))) + (##car _%e170306170353%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd166692166741%_)) - (let ((_%e166694166746%_ + _%hd170307170356%_)) + (let ((_%e170309170361%_ (let () (declare (not safe)) (gx#stx-e - _%hd166692166741%_)))) - (let ((_%tl166696166751%_ + _%hd170307170356%_)))) + (let ((_%tl170311170366%_ (let () (declare (not safe)) - (##cdr _%e166694166746%_))) - (_%hd166695166749%_ + (##cdr _%e170309170361%_))) + (_%hd170310170364%_ (let () (declare (not safe)) - (##car _%e166694166746%_)))) + (##car _%e170309170361%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd166695166749%_)) - (let ((_%e166697166754%_ + _%hd170310170364%_)) + (let ((_%e170312170369%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd166695166749%_)))) - (let ((_%tl166699166759%_ + (gx#stx-e _%hd170310170364%_)))) + (let ((_%tl170314170374%_ (let () (declare (not safe)) - (##cdr _%e166697166754%_))) - (_%hd166698166757%_ + (##cdr _%e170312170369%_))) + (_%hd170313170372%_ (let () (declare (not safe)) - (##car _%e166697166754%_)))) + (##car _%e170312170369%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166699166759%_)) + (gx#stx-null? _%tl170314170374%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166696166751%_)) - (let ((_%e166700166762%_ + (gx#stx-pair? _%tl170311170366%_)) + (let ((_%e170315170377%_ (let () (declare (not safe)) - (gx#stx-e _%tl166696166751%_)))) - (let ((_%tl166702166767%_ + (gx#stx-e _%tl170311170366%_)))) + (let ((_%tl170317170382%_ (let () (declare (not safe)) - (##cdr _%e166700166762%_))) - (_%hd166701166765%_ + (##cdr _%e170315170377%_))) + (_%hd170316170380%_ (let () (declare (not safe)) - (##car _%e166700166762%_)))) + (##car _%e170315170377%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166702166767%_)) + (gx#stx-null? _%tl170317170382%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166693166743%_)) + (gx#stx-null? _%tl170308170358%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166690166735%_)) - (let ((_%e166703166770%_ + _%tl170305170350%_)) + (let ((_%e170318170385%_ (let () (declare (not safe)) (gx#stx-e - _%tl166690166735%_)))) - (let ((_%tl166705166775%_ + _%tl170305170350%_)))) + (let ((_%tl170320170390%_ (let () (declare (not safe)) - (##cdr _%e166703166770%_))) - (_%hd166704166773%_ + (##cdr _%e170318170385%_))) + (_%hd170319170388%_ (let () (declare (not safe)) - (##car _%e166703166770%_)))) + (##car _%e170318170385%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166705166775%_)) - (_%__kont178697178698%_ - _%hd166704166773%_ - _%hd166701166765%_ - _%hd166698166757%_) - (_%__kont178699178700%_)))) - (_%__kont178699178700%_)) - (_%__kont178699178700%_)) - (_%__kont178699178700%_)))) - (_%__kont178699178700%_)) - (_%__kont178699178700%_)))) - (_%__kont178699178700%_)))) + _%tl170320170390%_)) + (_%__kont182241182242%_ + _%hd170319170388%_ + _%hd170316170380%_ + _%hd170313170372%_) + (_%__kont182243182244%_)))) + (_%__kont182243182244%_)) + (_%__kont182243182244%_)) + (_%__kont182243182244%_)))) + (_%__kont182243182244%_)) + (_%__kont182243182244%_)))) + (_%__kont182243182244%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178699178700%_)))) - (_%__kont178699178700%_)))) - (_%__kont178699178700%_)) - (_%__kont178699178700%_)) - (_%__kont178699178700%_)))) - (_%__kont178699178700%_)))))) + (_%__kont182243182244%_)))) + (_%__kont182243182244%_)))) + (_%__kont182243182244%_)) + (_%__kont182243182244%_)) + (_%__kont182243182244%_)))) + (_%__kont182243182244%_)))))) (define gxc#kw-lambda-expr? - (lambda (_%expr166002%_) - (let* ((_%__stx178757178758%_ _%expr166002%_) - (_%g166005166163%_ + (lambda (_%expr169617%_) + (let* ((_%__stx182301182302%_ _%expr169617%_) + (_%g169620169778%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx178757178758%_))))) - (let ((_%__kont178759178760%_ - (lambda (_%L166551%_ - _%L166552%_ - _%L166553%_ - _%L166554%_ - _%L166555%_ - _%L166556%_ - _%L166557%_ - _%L166558%_ - _%L166559%_ - _%L166560%_ - _%L166561%_) + _%__stx182301182302%_))))) + (let ((_%__kont182303182304%_ + (lambda (_%g169622170166%_ + _%g169623170167%_ + _%g169624170168%_ + _%g169625170169%_ + _%g169626170170%_ + _%g169627170171%_ + _%g169628170172%_ + _%g169629170173%_ + _%g169630170174%_ + _%g169631170175%_ + _%g169632170176%_) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L166558%_ 'apply)) + (gxc#runtime-identifier=? _%g169629170173%_ 'apply)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L166554%_ 'apply)) + (gxc#runtime-identifier=? + _%g169625170169%_ + 'apply)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L166553%_ + _%g169624170168%_ 'keyword-dispatch)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L166561%_ - _%L166552%_)) + _%g169632170176%_ + _%g169623170167%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L166560%_ - _%L166557%_)) + _%g169631170175%_ + _%g169628170172%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L166555%_ - _%L166551%_)) + _%g169626170170%_ + _%g169622170166%_)) (let () (declare (not safe)) (gx#free-identifier=? - _%L166559%_ - _%L166556%_)) + _%g169630170174%_ + _%g169627170171%_)) '#f) '#f) '#f) '#f) '#f) '#f))) - (_%__kont178761178762%_ (lambda () '#f))) + (_%__kont182305182306%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx178757178758%_)) - (let ((_%e166018166175%_ + (gx#stx-pair? _%__stx182301182302%_)) + (let ((_%e169633169790%_ (let () (declare (not safe)) - (gx#stx-e _%__stx178757178758%_)))) - (let ((_%tl166020166180%_ + (gx#stx-e _%__stx182301182302%_)))) + (let ((_%tl169635169795%_ (let () (declare (not safe)) - (##cdr _%e166018166175%_))) - (_%hd166019166178%_ + (##cdr _%e169633169790%_))) + (_%hd169634169793%_ (let () (declare (not safe)) - (##car _%e166018166175%_)))) + (##car _%e169633169790%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166019166178%_)) + (gx#identifier? _%hd169634169793%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd166019166178%_)) + (gx#stx-eq? '%#let-values _%hd169634169793%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166020166180%_)) - (let ((_%e166021166183%_ + (gx#stx-pair? _%tl169635169795%_)) + (let ((_%e169636169798%_ (let () (declare (not safe)) - (gx#stx-e _%tl166020166180%_)))) - (let ((_%tl166023166188%_ + (gx#stx-e _%tl169635169795%_)))) + (let ((_%tl169638169803%_ (let () (declare (not safe)) - (##cdr _%e166021166183%_))) - (_%hd166022166186%_ + (##cdr _%e169636169798%_))) + (_%hd169637169801%_ (let () (declare (not safe)) - (##car _%e166021166183%_)))) + (##car _%e169636169798%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166022166186%_)) - (let ((_%e166024166191%_ + (gx#stx-pair? _%hd169637169801%_)) + (let ((_%e169639169806%_ (let () (declare (not safe)) (gx#stx-e - _%hd166022166186%_)))) - (let ((_%tl166026166196%_ + _%hd169637169801%_)))) + (let ((_%tl169641169811%_ (let () (declare (not safe)) - (##cdr _%e166024166191%_))) - (_%hd166025166194%_ + (##cdr _%e169639169806%_))) + (_%hd169640169809%_ (let () (declare (not safe)) - (##car _%e166024166191%_)))) + (##car _%e169639169806%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd166025166194%_)) - (let ((_%e166027166199%_ + _%hd169640169809%_)) + (let ((_%e169642169814%_ (let () (declare (not safe)) (gx#stx-e - _%hd166025166194%_)))) - (let ((_%tl166029166204%_ + _%hd169640169809%_)))) + (let ((_%tl169644169819%_ (let () (declare (not safe)) - (##cdr _%e166027166199%_))) - (_%hd166028166202%_ + (##cdr _%e169642169814%_))) + (_%hd169643169817%_ (let () (declare (not safe)) - (##car _%e166027166199%_)))) + (##car _%e169642169814%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd166028166202%_)) - (let ((_%e166030166207%_ + _%hd169643169817%_)) + (let ((_%e169645169822%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd166028166202%_)))) - (let ((_%tl166032166212%_ + (gx#stx-e _%hd169643169817%_)))) + (let ((_%tl169647169827%_ (let () (declare (not safe)) - (##cdr _%e166030166207%_))) - (_%hd166031166210%_ + (##cdr _%e169645169822%_))) + (_%hd169646169825%_ (let () (declare (not safe)) - (##car _%e166030166207%_)))) + (##car _%e169645169822%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166032166212%_)) + (gx#stx-null? _%tl169647169827%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166029166204%_)) - (let ((_%e166033166215%_ + (gx#stx-pair? _%tl169644169819%_)) + (let ((_%e169648169830%_ (let () (declare (not safe)) - (gx#stx-e _%tl166029166204%_)))) - (let ((_%tl166035166220%_ + (gx#stx-e _%tl169644169819%_)))) + (let ((_%tl169650169835%_ (let () (declare (not safe)) - (##cdr _%e166033166215%_))) - (_%hd166034166218%_ + (##cdr _%e169648169830%_))) + (_%hd169649169833%_ (let () (declare (not safe)) - (##car _%e166033166215%_)))) + (##car _%e169648169830%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166034166218%_)) - (let ((_%e166036166223%_ + (gx#stx-pair? _%hd169649169833%_)) + (let ((_%e169651169838%_ (let () (declare (not safe)) - (gx#stx-e _%hd166034166218%_)))) - (let ((_%tl166038166228%_ + (gx#stx-e _%hd169649169833%_)))) + (let ((_%tl169653169843%_ (let () (declare (not safe)) - (##cdr _%e166036166223%_))) - (_%hd166037166226%_ + (##cdr _%e169651169838%_))) + (_%hd169652169841%_ (let () (declare (not safe)) - (##car _%e166036166223%_)))) + (##car _%e169651169838%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd166037166226%_)) + _%hd169652169841%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd166037166226%_)) + _%hd169652169841%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166038166228%_)) - (let ((_%e166039166231%_ + _%tl169653169843%_)) + (let ((_%e169654169846%_ (let () (declare (not safe)) (gx#stx-e - _%tl166038166228%_)))) - (let ((_%tl166041166236%_ + _%tl169653169843%_)))) + (let ((_%tl169656169851%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e166039166231%_))) - (_%hd166040166234%_ - (let () (declare (not safe)) (##car _%e166039166231%_)))) + (##cdr _%e169654169846%_))) + (_%hd169655169849%_ + (let () (declare (not safe)) (##car _%e169654169846%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166040166234%_)) - (let ((_%e166042166239%_ + (gx#stx-pair? _%hd169655169849%_)) + (let ((_%e169657169854%_ (let () (declare (not safe)) - (gx#stx-e _%hd166040166234%_)))) - (let ((_%tl166044166244%_ + (gx#stx-e _%hd169655169849%_)))) + (let ((_%tl169659169859%_ (let () (declare (not safe)) - (##cdr _%e166042166239%_))) - (_%hd166043166242%_ + (##cdr _%e169657169854%_))) + (_%hd169658169857%_ (let () (declare (not safe)) - (##car _%e166042166239%_)))) + (##car _%e169657169854%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166043166242%_)) - (let ((_%e166045166247%_ + (gx#stx-pair? _%hd169658169857%_)) + (let ((_%e169660169862%_ (let () (declare (not safe)) - (gx#stx-e _%hd166043166242%_)))) - (let ((_%tl166047166252%_ + (gx#stx-e _%hd169658169857%_)))) + (let ((_%tl169662169867%_ (let () (declare (not safe)) - (##cdr _%e166045166247%_))) - (_%hd166046166250%_ + (##cdr _%e169660169862%_))) + (_%hd169661169865%_ (let () (declare (not safe)) - (##car _%e166045166247%_)))) + (##car _%e169660169862%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166046166250%_)) - (let ((_%e166048166255%_ + (gx#stx-pair? _%hd169661169865%_)) + (let ((_%e169663169870%_ (let () (declare (not safe)) - (gx#stx-e _%hd166046166250%_)))) - (let ((_%tl166050166260%_ + (gx#stx-e _%hd169661169865%_)))) + (let ((_%tl169665169875%_ (let () (declare (not safe)) - (##cdr _%e166048166255%_))) - (_%hd166049166258%_ + (##cdr _%e169663169870%_))) + (_%hd169664169873%_ (let () (declare (not safe)) - (##car _%e166048166255%_)))) + (##car _%e169663169870%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166050166260%_)) + _%tl169665169875%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166047166252%_)) - (let ((_%e166051166263%_ + _%tl169662169867%_)) + (let ((_%e169666169878%_ (let () (declare (not safe)) (gx#stx-e - _%tl166047166252%_)))) - (let ((_%tl166053166268%_ + _%tl169662169867%_)))) + (let ((_%tl169668169883%_ (let () (declare (not safe)) - (##cdr _%e166051166263%_))) - (_%hd166052166266%_ + (##cdr _%e169666169878%_))) + (_%hd169667169881%_ (let () (declare (not safe)) - (##car _%e166051166263%_)))) + (##car _%e169666169878%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166053166268%_)) + _%tl169668169883%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166044166244%_)) + _%tl169659169859%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl166041166236%_)) - (let ((_%e166054166271%_ + (gx#stx-pair? _%tl169656169851%_)) + (let ((_%e169669169886%_ (let () (declare (not safe)) - (gx#stx-e _%tl166041166236%_)))) - (let ((_%tl166056166276%_ + (gx#stx-e _%tl169656169851%_)))) + (let ((_%tl169671169891%_ (let () (declare (not safe)) - (##cdr _%e166054166271%_))) - (_%hd166055166274%_ + (##cdr _%e169669169886%_))) + (_%hd169670169889%_ (let () (declare (not safe)) - (##car _%e166054166271%_)))) + (##car _%e169669169886%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166055166274%_)) - (let ((_%e166057166279%_ + (gx#stx-pair? _%hd169670169889%_)) + (let ((_%e169672169894%_ (let () (declare (not safe)) - (gx#stx-e _%hd166055166274%_)))) - (let ((_%tl166059166284%_ + (gx#stx-e _%hd169670169889%_)))) + (let ((_%tl169674169899%_ (let () (declare (not safe)) - (##cdr _%e166057166279%_))) - (_%hd166058166282%_ + (##cdr _%e169672169894%_))) + (_%hd169673169897%_ (let () (declare (not safe)) - (##car _%e166057166279%_)))) + (##car _%e169672169894%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166058166282%_)) + (gx#identifier? _%hd169673169897%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd166058166282%_)) + _%hd169673169897%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166059166284%_)) - (let ((_%e166060166287%_ + _%tl169674169899%_)) + (let ((_%e169675169902%_ (let () (declare (not safe)) (gx#stx-e - _%tl166059166284%_)))) - (let ((_%tl166062166292%_ + _%tl169674169899%_)))) + (let ((_%tl169677169907%_ (let () (declare (not safe)) - (##cdr _%e166060166287%_))) - (_%hd166061166290%_ + (##cdr _%e169675169902%_))) + (_%hd169676169905%_ (let () (declare (not safe)) - (##car _%e166060166287%_)))) + (##car _%e169675169902%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd166061166290%_)) - (let ((_%e166063166295%_ + _%hd169676169905%_)) + (let ((_%e169678169910%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd166061166290%_)))) - (let ((_%tl166065166300%_ + (gx#stx-e _%hd169676169905%_)))) + (let ((_%tl169680169915%_ (let () (declare (not safe)) - (##cdr _%e166063166295%_))) - (_%hd166064166298%_ + (##cdr _%e169678169910%_))) + (_%hd169679169913%_ (let () (declare (not safe)) - (##car _%e166063166295%_)))) + (##car _%e169678169910%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166062166292%_)) - (let ((_%e166066166303%_ + (gx#stx-pair? _%tl169677169907%_)) + (let ((_%e169681169918%_ (let () (declare (not safe)) - (gx#stx-e _%tl166062166292%_)))) - (let ((_%tl166068166308%_ + (gx#stx-e _%tl169677169907%_)))) + (let ((_%tl169683169923%_ (let () (declare (not safe)) - (##cdr _%e166066166303%_))) - (_%hd166067166306%_ + (##cdr _%e169681169918%_))) + (_%hd169682169921%_ (let () (declare (not safe)) - (##car _%e166066166303%_)))) + (##car _%e169681169918%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166067166306%_)) - (let ((_%e166069166311%_ + (gx#stx-pair? _%hd169682169921%_)) + (let ((_%e169684169926%_ (let () (declare (not safe)) - (gx#stx-e _%hd166067166306%_)))) - (let ((_%tl166071166316%_ + (gx#stx-e _%hd169682169921%_)))) + (let ((_%tl169686169931%_ (let () (declare (not safe)) - (##cdr _%e166069166311%_))) - (_%hd166070166314%_ + (##cdr _%e169684169926%_))) + (_%hd169685169929%_ (let () (declare (not safe)) - (##car _%e166069166311%_)))) + (##car _%e169684169926%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166070166314%_)) + (gx#identifier? _%hd169685169929%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd166070166314%_)) + _%hd169685169929%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166071166316%_)) - (let ((_%e166072166319%_ + _%tl169686169931%_)) + (let ((_%e169687169934%_ (let () (declare (not safe)) (gx#stx-e - _%tl166071166316%_)))) - (let ((_%tl166074166324%_ + _%tl169686169931%_)))) + (let ((_%tl169689169939%_ (let () (declare (not safe)) - (##cdr _%e166072166319%_))) - (_%hd166073166322%_ + (##cdr _%e169687169934%_))) + (_%hd169688169937%_ (let () (declare (not safe)) - (##car _%e166072166319%_)))) + (##car _%e169687169934%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd166073166322%_)) - (let ((_%e166075166327%_ + _%hd169688169937%_)) + (let ((_%e169690169942%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd166073166322%_)))) - (let ((_%tl166077166332%_ + (gx#stx-e _%hd169688169937%_)))) + (let ((_%tl169692169947%_ (let () (declare (not safe)) - (##cdr _%e166075166327%_))) - (_%hd166076166330%_ + (##cdr _%e169690169942%_))) + (_%hd169691169945%_ (let () (declare (not safe)) - (##car _%e166075166327%_)))) + (##car _%e169690169942%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166076166330%_)) + (gx#identifier? _%hd169691169945%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd166076166330%_)) + (gx#stx-eq? '%#ref _%hd169691169945%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166077166332%_)) - (let ((_%e166078166335%_ + (gx#stx-pair? _%tl169692169947%_)) + (let ((_%e169693169950%_ (let () (declare (not safe)) - (gx#stx-e _%tl166077166332%_)))) - (let ((_%tl166080166340%_ + (gx#stx-e _%tl169692169947%_)))) + (let ((_%tl169695169955%_ (let () (declare (not safe)) - (##cdr _%e166078166335%_))) - (_%hd166079166338%_ + (##cdr _%e169693169950%_))) + (_%hd169694169953%_ (let () (declare (not safe)) - (##car _%e166078166335%_)))) + (##car _%e169693169950%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166080166340%_)) + (gx#stx-null? _%tl169695169955%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166074166324%_)) - (let ((_%e166081166343%_ + _%tl169689169939%_)) + (let ((_%e169696169958%_ (let () (declare (not safe)) (gx#stx-e - _%tl166074166324%_)))) - (let ((_%tl166083166348%_ + _%tl169689169939%_)))) + (let ((_%tl169698169963%_ (let () (declare (not safe)) - (##cdr _%e166081166343%_))) - (_%hd166082166346%_ + (##cdr _%e169696169958%_))) + (_%hd169697169961%_ (let () (declare (not safe)) - (##car _%e166081166343%_)))) + (##car _%e169696169958%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd166082166346%_)) - (let ((_%e166084166351%_ + _%hd169697169961%_)) + (let ((_%e169699169966%_ (let () (declare (not safe)) (gx#stx-e - _%hd166082166346%_)))) - (let ((_%tl166086166356%_ + _%hd169697169961%_)))) + (let ((_%tl169701169971%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e166084166351%_))) - (_%hd166085166354%_ - (let () (declare (not safe)) (##car _%e166084166351%_)))) + (##cdr _%e169699169966%_))) + (_%hd169700169969%_ + (let () (declare (not safe)) (##car _%e169699169966%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166085166354%_)) + (gx#identifier? _%hd169700169969%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd166085166354%_)) + (gx#stx-eq? '%#ref _%hd169700169969%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166086166356%_)) - (let ((_%e166087166359%_ + (gx#stx-pair? _%tl169701169971%_)) + (let ((_%e169702169974%_ (let () (declare (not safe)) - (gx#stx-e _%tl166086166356%_)))) - (let ((_%tl166089166364%_ + (gx#stx-e _%tl169701169971%_)))) + (let ((_%tl169704169979%_ (let () (declare (not safe)) - (##cdr _%e166087166359%_))) - (_%hd166088166362%_ + (##cdr _%e169702169974%_))) + (_%hd169703169977%_ (let () (declare (not safe)) - (##car _%e166087166359%_)))) + (##car _%e169702169974%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166089166364%_)) + (gx#stx-null? _%tl169704169979%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166083166348%_)) - (let ((_%e166090166367%_ + (gx#stx-pair? _%tl169698169963%_)) + (let ((_%e169705169982%_ (let () (declare (not safe)) (gx#stx-e - _%tl166083166348%_)))) - (let ((_%tl166092166372%_ + _%tl169698169963%_)))) + (let ((_%tl169707169987%_ (let () (declare (not safe)) - (##cdr _%e166090166367%_))) - (_%hd166091166370%_ + (##cdr _%e169705169982%_))) + (_%hd169706169985%_ (let () (declare (not safe)) - (##car _%e166090166367%_)))) + (##car _%e169705169982%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd166091166370%_)) - (let ((_%e166093166375%_ + _%hd169706169985%_)) + (let ((_%e169708169990%_ (let () (declare (not safe)) (gx#stx-e - _%hd166091166370%_)))) - (let ((_%tl166095166380%_ + _%hd169706169985%_)))) + (let ((_%tl169710169995%_ (let () (declare (not safe)) - (##cdr _%e166093166375%_))) - (_%hd166094166378%_ + (##cdr _%e169708169990%_))) + (_%hd169709169993%_ (let () (declare (not safe)) - (##car _%e166093166375%_)))) + (##car _%e169708169990%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd166094166378%_)) + _%hd169709169993%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd166094166378%_)) + _%hd169709169993%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl166095166380%_)) - (let ((_%e166096166383%_ + (gx#stx-pair? _%tl169710169995%_)) + (let ((_%e169711169998%_ (let () (declare (not safe)) - (gx#stx-e _%tl166095166380%_)))) - (let ((_%tl166098166388%_ + (gx#stx-e _%tl169710169995%_)))) + (let ((_%tl169713170003%_ (let () (declare (not safe)) - (##cdr _%e166096166383%_))) - (_%hd166097166386%_ + (##cdr _%e169711169998%_))) + (_%hd169712170001%_ (let () (declare (not safe)) - (##car _%e166096166383%_)))) + (##car _%e169711169998%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166098166388%_)) + (gx#stx-null? _%tl169713170003%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166068166308%_)) + (gx#stx-null? _%tl169683169923%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166056166276%_)) + (gx#stx-null? _%tl169671169891%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166035166220%_)) + _%tl169650169835%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166026166196%_)) + _%tl169641169811%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166023166188%_)) - (let ((_%e166099166391%_ + _%tl169638169803%_)) + (let ((_%e169714170006%_ (let () (declare (not safe)) (gx#stx-e - _%tl166023166188%_)))) - (let ((_%tl166101166396%_ + _%tl169638169803%_)))) + (let ((_%tl169716170011%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e166099166391%_))) - (_%hd166100166394%_ - (let () (declare (not safe)) (##car _%e166099166391%_)))) + (##cdr _%e169714170006%_))) + (_%hd169715170009%_ + (let () (declare (not safe)) (##car _%e169714170006%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166100166394%_)) - (let ((_%e166102166399%_ + (gx#stx-pair? _%hd169715170009%_)) + (let ((_%e169717170014%_ (let () (declare (not safe)) - (gx#stx-e _%hd166100166394%_)))) - (let ((_%tl166104166404%_ + (gx#stx-e _%hd169715170009%_)))) + (let ((_%tl169719170019%_ (let () (declare (not safe)) - (##cdr _%e166102166399%_))) - (_%hd166103166402%_ + (##cdr _%e169717170014%_))) + (_%hd169718170017%_ (let () (declare (not safe)) - (##car _%e166102166399%_)))) + (##car _%e169717170014%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166103166402%_)) + (gx#identifier? _%hd169718170017%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd166103166402%_)) + (gx#stx-eq? '%#lambda _%hd169718170017%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166104166404%_)) - (let ((_%e166105166407%_ + (gx#stx-pair? _%tl169719170019%_)) + (let ((_%e169720170022%_ (let () (declare (not safe)) - (gx#stx-e _%tl166104166404%_)))) - (let ((_%tl166107166412%_ + (gx#stx-e _%tl169719170019%_)))) + (let ((_%tl169722170027%_ (let () (declare (not safe)) - (##cdr _%e166105166407%_))) - (_%hd166106166410%_ + (##cdr _%e169720170022%_))) + (_%hd169721170025%_ (let () (declare (not safe)) - (##car _%e166105166407%_)))) + (##car _%e169720170022%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166107166412%_)) - (let ((_%e166108166415%_ + _%tl169722170027%_)) + (let ((_%e169723170030%_ (let () (declare (not safe)) (gx#stx-e - _%tl166107166412%_)))) - (let ((_%tl166110166420%_ + _%tl169722170027%_)))) + (let ((_%tl169725170035%_ (let () (declare (not safe)) - (##cdr _%e166108166415%_))) - (_%hd166109166418%_ + (##cdr _%e169723170030%_))) + (_%hd169724170033%_ (let () (declare (not safe)) - (##car _%e166108166415%_)))) + (##car _%e169723170030%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd166109166418%_)) - (let ((_%e166111166423%_ + _%hd169724170033%_)) + (let ((_%e169726170038%_ (let () (declare (not safe)) (gx#stx-e - _%hd166109166418%_)))) - (let ((_%tl166113166428%_ + _%hd169724170033%_)))) + (let ((_%tl169728170043%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e166111166423%_))) - (_%hd166112166426%_ - (let () (declare (not safe)) (##car _%e166111166423%_)))) + (##cdr _%e169726170038%_))) + (_%hd169727170041%_ + (let () (declare (not safe)) (##car _%e169726170038%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166112166426%_)) + (gx#identifier? _%hd169727170041%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd166112166426%_)) + (gx#stx-eq? '%#call _%hd169727170041%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166113166428%_)) - (let ((_%e166114166431%_ + (gx#stx-pair? _%tl169728170043%_)) + (let ((_%e169729170046%_ (let () (declare (not safe)) - (gx#stx-e _%tl166113166428%_)))) - (let ((_%tl166116166436%_ + (gx#stx-e _%tl169728170043%_)))) + (let ((_%tl169731170051%_ (let () (declare (not safe)) - (##cdr _%e166114166431%_))) - (_%hd166115166434%_ + (##cdr _%e169729170046%_))) + (_%hd169730170049%_ (let () (declare (not safe)) - (##car _%e166114166431%_)))) + (##car _%e169729170046%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166115166434%_)) - (let ((_%e166117166439%_ + (gx#stx-pair? _%hd169730170049%_)) + (let ((_%e169732170054%_ (let () (declare (not safe)) - (gx#stx-e _%hd166115166434%_)))) - (let ((_%tl166119166444%_ + (gx#stx-e _%hd169730170049%_)))) + (let ((_%tl169734170059%_ (let () (declare (not safe)) - (##cdr _%e166117166439%_))) - (_%hd166118166442%_ + (##cdr _%e169732170054%_))) + (_%hd169733170057%_ (let () (declare (not safe)) - (##car _%e166117166439%_)))) + (##car _%e169732170054%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd166118166442%_)) + _%hd169733170057%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd166118166442%_)) + _%hd169733170057%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166119166444%_)) - (let ((_%e166120166447%_ + _%tl169734170059%_)) + (let ((_%e169735170062%_ (let () (declare (not safe)) (gx#stx-e - _%tl166119166444%_)))) - (let ((_%tl166122166452%_ + _%tl169734170059%_)))) + (let ((_%tl169737170067%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e166120166447%_))) - (_%hd166121166450%_ - (let () (declare (not safe)) (##car _%e166120166447%_)))) + (##cdr _%e169735170062%_))) + (_%hd169736170065%_ + (let () (declare (not safe)) (##car _%e169735170062%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166122166452%_)) + (gx#stx-null? _%tl169737170067%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166116166436%_)) - (let ((_%e166123166455%_ + (gx#stx-pair? _%tl169731170051%_)) + (let ((_%e169738170070%_ (let () (declare (not safe)) - (gx#stx-e _%tl166116166436%_)))) - (let ((_%tl166125166460%_ + (gx#stx-e _%tl169731170051%_)))) + (let ((_%tl169740170075%_ (let () (declare (not safe)) - (##cdr _%e166123166455%_))) - (_%hd166124166458%_ + (##cdr _%e169738170070%_))) + (_%hd169739170073%_ (let () (declare (not safe)) - (##car _%e166123166455%_)))) + (##car _%e169738170070%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166124166458%_)) - (let ((_%e166126166463%_ + (gx#stx-pair? _%hd169739170073%_)) + (let ((_%e169741170078%_ (let () (declare (not safe)) - (gx#stx-e _%hd166124166458%_)))) - (let ((_%tl166128166468%_ + (gx#stx-e _%hd169739170073%_)))) + (let ((_%tl169743170083%_ (let () (declare (not safe)) - (##cdr _%e166126166463%_))) - (_%hd166127166466%_ + (##cdr _%e169741170078%_))) + (_%hd169742170081%_ (let () (declare (not safe)) - (##car _%e166126166463%_)))) + (##car _%e169741170078%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166127166466%_)) + (gx#identifier? _%hd169742170081%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd166127166466%_)) + _%hd169742170081%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166128166468%_)) - (let ((_%e166129166471%_ + _%tl169743170083%_)) + (let ((_%e169744170086%_ (let () (declare (not safe)) (gx#stx-e - _%tl166128166468%_)))) - (let ((_%tl166131166476%_ + _%tl169743170083%_)))) + (let ((_%tl169746170091%_ (let () (declare (not safe)) - (##cdr _%e166129166471%_))) - (_%hd166130166474%_ + (##cdr _%e169744170086%_))) + (_%hd169745170089%_ (let () (declare (not safe)) - (##car _%e166129166471%_)))) + (##car _%e169744170086%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166131166476%_)) + _%tl169746170091%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166125166460%_)) - (let ((_%e166132166479%_ + _%tl169740170075%_)) + (let ((_%e169747170094%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl166125166460%_)))) - (let ((_%tl166134166484%_ + (gx#stx-e _%tl169740170075%_)))) + (let ((_%tl169749170099%_ (let () (declare (not safe)) - (##cdr _%e166132166479%_))) - (_%hd166133166482%_ + (##cdr _%e169747170094%_))) + (_%hd169748170097%_ (let () (declare (not safe)) - (##car _%e166132166479%_)))) + (##car _%e169747170094%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166133166482%_)) - (let ((_%e166135166487%_ + (gx#stx-pair? _%hd169748170097%_)) + (let ((_%e169750170102%_ (let () (declare (not safe)) - (gx#stx-e _%hd166133166482%_)))) - (let ((_%tl166137166492%_ + (gx#stx-e _%hd169748170097%_)))) + (let ((_%tl169752170107%_ (let () (declare (not safe)) - (##cdr _%e166135166487%_))) - (_%hd166136166490%_ + (##cdr _%e169750170102%_))) + (_%hd169751170105%_ (let () (declare (not safe)) - (##car _%e166135166487%_)))) + (##car _%e169750170102%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166136166490%_)) + (gx#identifier? _%hd169751170105%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd166136166490%_)) + _%hd169751170105%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166137166492%_)) - (let ((_%e166138166495%_ + _%tl169752170107%_)) + (let ((_%e169753170110%_ (let () (declare (not safe)) (gx#stx-e - _%tl166137166492%_)))) - (let ((_%tl166140166500%_ + _%tl169752170107%_)))) + (let ((_%tl169755170115%_ (let () (declare (not safe)) - (##cdr _%e166138166495%_))) - (_%hd166139166498%_ + (##cdr _%e169753170110%_))) + (_%hd169754170113%_ (let () (declare (not safe)) - (##car _%e166138166495%_)))) + (##car _%e169753170110%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166140166500%_)) + _%tl169755170115%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166134166484%_)) - (let ((_%e166141166503%_ + _%tl169749170099%_)) + (let ((_%e169756170118%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl166134166484%_)))) - (let ((_%tl166143166508%_ + (gx#stx-e _%tl169749170099%_)))) + (let ((_%tl169758170123%_ (let () (declare (not safe)) - (##cdr _%e166141166503%_))) - (_%hd166142166506%_ + (##cdr _%e169756170118%_))) + (_%hd169757170121%_ (let () (declare (not safe)) - (##car _%e166141166503%_)))) + (##car _%e169756170118%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166142166506%_)) - (let ((_%e166144166511%_ + (gx#stx-pair? _%hd169757170121%_)) + (let ((_%e169759170126%_ (let () (declare (not safe)) - (gx#stx-e _%hd166142166506%_)))) - (let ((_%tl166146166516%_ + (gx#stx-e _%hd169757170121%_)))) + (let ((_%tl169761170131%_ (let () (declare (not safe)) - (##cdr _%e166144166511%_))) - (_%hd166145166514%_ + (##cdr _%e169759170126%_))) + (_%hd169760170129%_ (let () (declare (not safe)) - (##car _%e166144166511%_)))) + (##car _%e169759170126%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166145166514%_)) + (gx#identifier? _%hd169760170129%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd166145166514%_)) + (gx#stx-eq? '%#ref _%hd169760170129%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166146166516%_)) - (let ((_%e166147166519%_ + (gx#stx-pair? _%tl169761170131%_)) + (let ((_%e169762170134%_ (let () (declare (not safe)) (gx#stx-e - _%tl166146166516%_)))) - (let ((_%tl166149166524%_ + _%tl169761170131%_)))) + (let ((_%tl169764170139%_ (let () (declare (not safe)) - (##cdr _%e166147166519%_))) - (_%hd166148166522%_ + (##cdr _%e169762170134%_))) + (_%hd169763170137%_ (let () (declare (not safe)) - (##car _%e166147166519%_)))) + (##car _%e169762170134%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166149166524%_)) + _%tl169764170139%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl166143166508%_)) - (let ((_%e166150166527%_ + _%tl169758170123%_)) + (let ((_%e169765170142%_ (let () (declare (not safe)) (gx#stx-e - _%tl166143166508%_)))) - (let ((_%tl166152166532%_ + _%tl169758170123%_)))) + (let ((_%tl169767170147%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e166150166527%_))) - (_%hd166151166530%_ - (let () (declare (not safe)) (##car _%e166150166527%_)))) + (##cdr _%e169765170142%_))) + (_%hd169766170145%_ + (let () (declare (not safe)) (##car _%e169765170142%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166151166530%_)) - (let ((_%e166153166535%_ + (gx#stx-pair? _%hd169766170145%_)) + (let ((_%e169768170150%_ (let () (declare (not safe)) - (gx#stx-e _%hd166151166530%_)))) - (let ((_%tl166155166540%_ + (gx#stx-e _%hd169766170145%_)))) + (let ((_%tl169770170155%_ (let () (declare (not safe)) - (##cdr _%e166153166535%_))) - (_%hd166154166538%_ + (##cdr _%e169768170150%_))) + (_%hd169769170153%_ (let () (declare (not safe)) - (##car _%e166153166535%_)))) + (##car _%e169768170150%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd166154166538%_)) + (gx#identifier? _%hd169769170153%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd166154166538%_)) + (gx#stx-eq? '%#ref _%hd169769170153%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166155166540%_)) - (let ((_%e166156166543%_ + (gx#stx-pair? _%tl169770170155%_)) + (let ((_%e169771170158%_ (let () (declare (not safe)) - (gx#stx-e _%tl166155166540%_)))) - (let ((_%tl166158166548%_ + (gx#stx-e _%tl169770170155%_)))) + (let ((_%tl169773170163%_ (let () (declare (not safe)) - (##cdr _%e166156166543%_))) - (_%hd166157166546%_ + (##cdr _%e169771170158%_))) + (_%hd169772170161%_ (let () (declare (not safe)) - (##car _%e166156166543%_)))) + (##car _%e169771170158%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166158166548%_)) + _%tl169773170163%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166152166532%_)) + _%tl169767170147%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166110166420%_)) + _%tl169725170035%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166101166396%_)) - (_%__kont178759178760%_ - _%hd166157166546%_ - _%hd166148166522%_ - _%hd166130166474%_ - _%hd166121166450%_ - _%hd166106166410%_ - _%hd166097166386%_ - _%hd166088166362%_ - _%hd166079166338%_ - _%hd166064166298%_ - _%hd166049166258%_ - _%hd166031166210%_) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)))) + _%tl169716170011%_)) + (_%__kont182303182304%_ + _%hd169772170161%_ + _%hd169763170137%_ + _%hd169745170089%_ + _%hd169736170065%_ + _%hd169721170025%_ + _%hd169712170001%_ + _%hd169703169977%_ + _%hd169694169953%_ + _%hd169679169913%_ + _%hd169664169873%_ + _%hd169646169825%_) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)))) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)))) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)) - (_%__kont178761178762%_)))) - (_%__kont178761178762%_)))))) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)) + (_%__kont182305182306%_)))) + (_%__kont182305182306%_)))))) (define gxc#lift-case-lambda-clauses__% - (lambda (_%stx165744%_ _%id165745%_ _%clauses165746%_ _%gensym?165747%_) - (let _%lp165749%_ ((_%rest165751%_ _%clauses165746%_) - (_%ids165752%_ '()) - (_%impls165753%_ '()) - (_%clauses165754%_ '())) - (let* ((_%rest165755165763%_ _%rest165751%_) - (_%else165757165771%_ + (lambda (_%stx169363%_ _%id169364%_ _%clauses169365%_ _%gensym?169366%_) + (let _%lp169368%_ ((_%rest169370%_ _%clauses169365%_) + (_%ids169371%_ '()) + (_%impls169372%_ '()) + (_%clauses169373%_ '())) + (let* ((_%rest169374169382%_ _%rest169370%_) + (_%else169376169390%_ (lambda () - (values (reverse _%ids165752%_) - (reverse _%impls165753%_) - (reverse _%clauses165754%_)))) - (_%K165759165976%_ - (lambda (_%rest165774%_ _%clause165775%_) - (if (gxc#dispatch-lambda-form? _%clause165775%_) - (_%lp165749%_ - _%rest165774%_ - _%ids165752%_ - _%impls165753%_ - (cons _%clause165775%_ _%clauses165754%_)) - (let* ((_%g165777165788%_ - (lambda (_%g165778165785%_) + (values (reverse _%ids169371%_) + (reverse _%impls169372%_) + (reverse _%clauses169373%_)))) + (_%K169378169591%_ + (lambda (_%rest169393%_ _%clause169394%_) + (if (gxc#dispatch-lambda-form? _%clause169394%_) + (_%lp169368%_ + _%rest169393%_ + _%ids169371%_ + _%impls169372%_ + (cons _%clause169394%_ _%clauses169373%_)) + (let* ((_%g169396169407%_ + (lambda (_%g169397169404%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g165778165785%_)))) - (_%g165776165973%_ - (lambda (_%g165778165791%_) + _%g169397169404%_)))) + (_%g169395169588%_ + (lambda (_%g169397169410%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g165778165791%_)) - (let ((_%e165781165793%_ + (gx#stx-pair? _%g169397169410%_)) + (let ((_%e169400169412%_ (let () (declare (not safe)) - (gx#stx-e _%g165778165791%_)))) - (let ((_%hd165782165796%_ + (gx#stx-e _%g169397169410%_)))) + (let ((_%hd169401169415%_ (let () (declare (not safe)) - (##car _%e165781165793%_))) - (_%tl165783165798%_ + (##car _%e169400169412%_))) + (_%tl169402169417%_ (let () (declare (not safe)) - (##cdr _%e165781165793%_)))) - ((lambda (_%L165801%_ _%L165802%_) - (let* ((_%id165819%_ - (let ((__tmp179961 + (##cdr _%e169400169412%_)))) + ((lambda (_%g169398169420%_ + _%g169399169421%_) + (let* ((_%id169438%_ + (let ((__tmp183505 (let () (declare (not safe)) (gx#stx-e - _%id165745%_))) - (__tmp179960 - (length _%clauses165754%_)) - (__tmp179959 - (if _%gensym?165747%_ + _%id169364%_))) + (__tmp183504 + (length _%clauses169373%_)) + (__tmp183503 + (if _%gensym?169366%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##gensym '__)) '""))) (declare (not safe)) - (make-symbol__1 __tmp179961 '"__" __tmp179960 __tmp179959))) + (make-symbol__1 __tmp183505 '"__" __tmp183504 __tmp183503))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%id165821%_ - (let ((__tmp179962 + (_%id169440%_ + (let ((__tmp183506 (let () (declare (not safe)) (gx#stx-source - _%stx165744%_)))) + _%stx169363%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id165819%_ - __tmp179962))) - (_%impl165823%_ - (let ((__tmp179963 + _%id169438%_ + __tmp183506))) + (_%impl169442%_ + (let ((__tmp183507 (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons _%L165802%_ _%L165801%_)))) + (cons _%g169399169421%_ _%g169398169420%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp179963 _%stx165744%_))) + (gxc#xform-wrap-source __tmp183507 _%stx169363%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%clause165970%_ - (let* ((_%__stx179141179142%_ - _%L165802%_) - (_%g165827165855%_ + (_%clause169585%_ + (let* ((_%__stx182685182686%_ + _%g169399169421%_) + (_%g169446169474%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -20112,353 +20234,349 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx179141179142%_))))) - (let ((_%__kont179143179144%_ - (lambda (_%L165949%_) - (cons _%L165802%_ - (cons (let ((__tmp179964 + _%__stx182685182686%_))))) + (let ((_%__kont182687182688%_ + (lambda (_%g169448169564%_) + (cons _%g169399169421%_ + (cons (let ((__tmp183508 (cons '%#call (cons (cons '%#ref - (cons _%id165821%_ + (cons _%id169440%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (let ((__tmp179965 - (lambda (_%g165959165962%_ _%g165960165964%_) + (let ((__tmp183509 + (lambda (_%g169574169577%_ _%g169575169579%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g165959165962%_ '())) - _%g165960165964%_)))) + (cons _%g169574169577%_ '())) + _%g169575169579%_)))) (declare (not safe)) - (__foldr1 __tmp179965 '() _%L165949%_)))))) + (__foldr1 __tmp183509 '() _%g169448169564%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp179964 - _%stx165744%_)) + __tmp183508 + _%stx169363%_)) '())))) - (_%__kont179147179148%_ - (lambda (_%L165900%_ _%L165901%_) - (cons _%L165802%_ - (cons (let ((__tmp179966 + (_%__kont182691182692%_ + (lambda (_%g169458169517%_ _%g169459169518%_) + (cons _%g169399169421%_ + (cons (let ((__tmp183510 (cons '%#call (cons (cons '%#ref (cons 'apply '())) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id165821%_ '())) - (let ((__tmp179969 + (cons _%id169440%_ '())) + (let ((__tmp183513 (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L165900%_ '())) + (cons _%g169458169517%_ '())) '())) - (__tmp179967 - (let ((__tmp179968 - (lambda (_%g165912165915%_ - _%g165913165917%_) + (__tmp183511 + (let ((__tmp183512 + (lambda (_%g169529169532%_ + _%g169530169534%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g165912165915%_ '())) - _%g165913165917%_)))) + (cons _%g169529169532%_ '())) + _%g169530169534%_)))) (declare (not safe)) - (__foldr1 __tmp179968 '() _%L165901%_)))) + (__foldr1 __tmp183512 '() _%g169459169518%_)))) (declare (not safe)) - (__foldr1 cons __tmp179969 __tmp179967))))))) + (__foldr1 cons __tmp183513 __tmp183511))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp179966 - _%stx165744%_)) + __tmp183510 + _%stx169363%_)) '())))) - (_%__kont179151179152%_ - (lambda (_%L165860%_) - (cons _%L165802%_ - (cons (let ((__tmp179970 + (_%__kont182695182696%_ + (lambda (_%g169469169479%_) + (cons _%g169399169421%_ + (cons (let ((__tmp183514 (cons '%#call (cons (cons '%#ref (cons 'apply '())) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id165821%_ '())) + (cons _%id169440%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L165860%_ '())) + (cons _%g169469169479%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp179970 - _%stx165744%_)) + __tmp183514 + _%stx169363%_)) '()))))) - (let* ((_%__match179166179167%_ - (lambda (_%__splice179149179150%_ - _%target165841165876%_ - _%tl165843165878%_) - (letrec ((_%loop165844165881%_ - (lambda (_%hd165842165884%_ - _%arg165848165886%_) + (let* ((_%__match182710182711%_ + (lambda (_%__splice182693182694%_ + _%target169460169495%_ + _%tl169462169497%_) + (letrec ((_%loop169463169500%_ + (lambda (_%hd169461169503%_ + _%arg169467169505%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165842165884%_)) - (let ((_%e165845165889%_ + (gx#stx-pair? _%hd169461169503%_)) + (let ((_%e169464169507%_ (let () (declare (not safe)) (gx#stx-e - _%hd165842165884%_)))) - (let ((_%lp-tl165847165894%_ + _%hd169461169503%_)))) + (let ((_%lp-tl169466169512%_ (let () (declare (not safe)) - (##cdr _%e165845165889%_))) - (_%lp-hd165846165892%_ + (##cdr _%e169464169507%_))) + (_%lp-hd169465169510%_ (let () (declare (not safe)) - (##car _%e165845165889%_)))) - (_%loop165844165881%_ - _%lp-tl165847165894%_ - (cons _%lp-hd165846165892%_ - _%arg165848165886%_)))) - (let ((_%arg165849165897%_ - (reverse _%arg165848165886%_))) - (_%__kont179147179148%_ - _%tl165843165878%_ - _%arg165849165897%_)))))) - (_%loop165844165881%_ - _%target165841165876%_ + (##car _%e169464169507%_)))) + (_%loop169463169500%_ + _%lp-tl169466169512%_ + (cons _%lp-hd169465169510%_ + _%arg169467169505%_)))) + (let ((_%arg169468169515%_ + (reverse _%arg169467169505%_))) + (_%__kont182691182692%_ + _%tl169462169497%_ + _%arg169468169515%_)))))) + (_%loop169463169500%_ + _%target169460169495%_ '())))) - (_%__match179160179161%_ - (lambda (_%__splice179145179146%_ - _%target165830165925%_ - _%tl165832165927%_) - (letrec ((_%loop165833165930%_ - (lambda (_%hd165831165933%_ - _%arg165837165935%_) + (_%__match182704182705%_ + (lambda (_%__splice182689182690%_ + _%target169449169542%_ + _%tl169451169544%_) + (letrec ((_%loop169452169547%_ + (lambda (_%hd169450169550%_ + _%arg169456169552%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165831165933%_)) - (let ((_%e165834165938%_ + (gx#stx-pair? _%hd169450169550%_)) + (let ((_%e169453169554%_ (let () (declare (not safe)) (gx#stx-e - _%hd165831165933%_)))) - (let ((_%lp-tl165836165943%_ + _%hd169450169550%_)))) + (let ((_%lp-tl169455169559%_ (let () (declare (not safe)) - (##cdr _%e165834165938%_))) - (_%lp-hd165835165941%_ + (##cdr _%e169453169554%_))) + (_%lp-hd169454169557%_ (let () (declare (not safe)) - (##car _%e165834165938%_)))) - (_%loop165833165930%_ - _%lp-tl165836165943%_ - (cons _%lp-hd165835165941%_ - _%arg165837165935%_)))) - (let ((_%arg165838165946%_ - (reverse _%arg165837165935%_))) - (_%__kont179143179144%_ - _%arg165838165946%_)))))) - (_%loop165833165930%_ - _%target165830165925%_ + (##car _%e169453169554%_)))) + (_%loop169452169547%_ + _%lp-tl169455169559%_ + (cons _%lp-hd169454169557%_ + _%arg169456169552%_)))) + (let ((_%arg169457169562%_ + (reverse _%arg169456169552%_))) + (_%__kont182687182688%_ + _%arg169457169562%_)))))) + (_%loop169452169547%_ + _%target169449169542%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%__stx179141179142%_)) - (let ((_%__splice179145179146%_ + (gx#stx-pair/null? _%__stx182685182686%_)) + (let ((_%__splice182689182690%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%__stx179141179142%_ + _%__stx182685182686%_ '0)))) - (let ((_%tl165832165927%_ + (let ((_%tl169451169544%_ (let () (declare (not safe)) - (##vector-ref _%__splice179145179146%_ '1))) - (_%target165830165925%_ + (##vector-ref _%__splice182689182690%_ '1))) + (_%target169449169542%_ (let () (declare (not safe)) - (##vector-ref _%__splice179145179146%_ '0)))) + (##vector-ref _%__splice182689182690%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165832165927%_)) - (_%__match179160179161%_ - _%__splice179145179146%_ - _%target165830165925%_ - _%tl165832165927%_) - (_%__match179166179167%_ - _%__splice179145179146%_ - _%target165830165925%_ - _%tl165832165927%_)))) - (_%__kont179151179152%_ _%__stx179141179142%_))))))) + (gx#stx-null? _%tl169451169544%_)) + (_%__match182704182705%_ + _%__splice182689182690%_ + _%target169449169542%_ + _%tl169451169544%_) + (_%__match182710182711%_ + _%__splice182689182690%_ + _%target169449169542%_ + _%tl169451169544%_)))) + (_%__kont182695182696%_ _%__stx182685182686%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp165749%_ - _%rest165774%_ - (cons _%id165821%_ - _%ids165752%_) - (cons _%impl165823%_ - _%impls165753%_) - (cons _%clause165970%_ - _%clauses165754%_)))) - _%tl165783165798%_ - _%hd165782165796%_))) - (_%g165777165788%_ _%g165778165791%_))))) - (_%g165776165973%_ _%clause165775%_)))))) - (if (pair? _%rest165755165763%_) - (let ((_%hd165760165979%_ + (_%lp169368%_ + _%rest169393%_ + (cons _%id169440%_ + _%ids169371%_) + (cons _%impl169442%_ + _%impls169372%_) + (cons _%clause169585%_ + _%clauses169373%_)))) + _%tl169402169417%_ + _%hd169401169415%_))) + (_%g169396169407%_ _%g169397169410%_))))) + (_%g169395169588%_ _%clause169394%_)))))) + (if (pair? _%rest169374169382%_) + (let ((_%hd169379169594%_ (let () (declare (not safe)) - (##car _%rest165755165763%_))) - (_%tl165761165981%_ + (##car _%rest169374169382%_))) + (_%tl169380169596%_ (let () (declare (not safe)) - (##cdr _%rest165755165763%_)))) - (let* ((_%clause165984%_ _%hd165760165979%_) - (_%rest165986%_ _%tl165761165981%_)) - (_%K165759165976%_ _%rest165986%_ _%clause165984%_))) - (_%else165757165771%_)))))) + (##cdr _%rest169374169382%_)))) + (let* ((_%clause169599%_ _%hd169379169594%_) + (_%rest169601%_ _%tl169380169596%_)) + (_%K169378169591%_ _%rest169601%_ _%clause169599%_))) + (_%else169376169390%_)))))) (define gxc#lift-case-lambda-clauses__0 - (lambda (_%stx165991%_ _%id165992%_ _%clauses165993%_) - (let ((_%gensym?165995%_ '#f)) + (lambda (_%stx169606%_ _%id169607%_ _%clauses169608%_) + (let ((_%gensym?169610%_ '#f)) (gxc#lift-case-lambda-clauses__% - _%stx165991%_ - _%id165992%_ - _%clauses165993%_ - _%gensym?165995%_)))) + _%stx169606%_ + _%id169607%_ + _%clauses169608%_ + _%gensym?169610%_)))) (define gxc#lift-case-lambda-clauses - (lambda _g179971_ - (let ((_g179972_ (let () (declare (not safe)) (##length _g179971_)))) - (cond ((let () (declare (not safe)) (##fx= _g179972_ 3)) - (apply gxc#lift-case-lambda-clauses__0 _g179971_)) - ((let () (declare (not safe)) (##fx= _g179972_ 4)) - (apply gxc#lift-case-lambda-clauses__% _g179971_)) + (lambda _g183515_ + (let ((_g183516_ (let () (declare (not safe)) (##length _g183515_)))) + (cond ((let () (declare (not safe)) (##fx= _g183516_ 3)) + (apply gxc#lift-case-lambda-clauses__0 _g183515_)) + ((let () (declare (not safe)) (##fx= _g183516_ 4)) + (apply gxc#lift-case-lambda-clauses__% _g183515_)) (else (##raise-wrong-number-of-arguments-exception gxc#lift-case-lambda-clauses - _g179971_)))))) + _g183515_)))))) (define gxc#lift-top-lambda-define-values% - (lambda (_%self165016%_ _%stx165017%_) - (letrec ((_%case-lambda-clause-def165019%_ - (lambda (_%id165740%_ _%impl165741%_) - (let ((__tmp179973 + (lambda (_%self168635%_ _%stx168636%_) + (letrec ((_%case-lambda-clause-def168638%_ + (lambda (_%id169359%_ _%impl169360%_) + (let ((__tmp183517 (cons '%#define-values - (cons (cons _%id165740%_ '()) + (cons (cons _%id169359%_ '()) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self165016%_ - _%impl165741%_)) + _%self168635%_ + _%impl169360%_)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp179973 _%stx165017%_)))) - (_%opt-lambda-dispatch-name165020%_ - (lambda (_%id165736%_) - (if (uninterned-symbol? _%id165736%_) - (let ((_%str165738%_ (symbol->string _%id165736%_))) - (if (let () - (declare (not safe)) - (##string-prefix? '"opt-lambda" _%str165738%_)) - '"%" - _%id165736%_)) - _%id165736%_))) - (_%kw-lambda-dispatch-name165021%_ - (lambda (_%id165731%_ _%name165732%_) - (if (uninterned-symbol? _%id165731%_) - (let ((_%str165734%_ (symbol->string _%id165731%_))) - (if (let () - (declare (not safe)) - (##string-prefix? '"kw-lambda" _%str165734%_)) - _%name165732%_ - _%id165731%_)) - _%id165731%_)))) - (let* ((_%__stx179189179190%_ _%stx165017%_) - (_%g165026165085%_ + (gxc#xform-wrap-source __tmp183517 _%stx168636%_)))) + (_%opt-lambda-dispatch-name168639%_ + (lambda (_%id169355%_) + (let ((_%str169357%_ (symbol->string _%id169355%_))) + (if (let () + (declare (not safe)) + (##string-prefix? '"opt-lambda" _%str169357%_)) + '"%" + _%id169355%_)))) + (_%kw-lambda-dispatch-name168640%_ + (lambda (_%id169350%_ _%name169351%_) + (let ((_%str169353%_ (symbol->string _%id169350%_))) + (if (let () + (declare (not safe)) + (##string-prefix? '"kw-lambda" _%str169353%_)) + _%name169351%_ + _%id169350%_))))) + (let* ((_%__stx182733182734%_ _%stx168636%_) + (_%g168645168704%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx179189179190%_))))) - (let ((_%__kont179191179192%_ - (lambda (_%L165639%_ _%L165640%_) - (let* ((_%__stx179169179170%_ _%L165639%_) - (_%g165657165671%_ + _%__stx182733182734%_))))) + (let ((_%__kont182735182736%_ + (lambda (_%g168647169258%_ _%g168648169259%_) + (let* ((_%__stx182713182714%_ _%g168647169258%_) + (_%g169276169290%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx179169179170%_))))) - (let ((_%__kont179171179172%_ - (lambda (_%L165716%_) _%stx165017%_)) - (_%__kont179173179174%_ - (lambda (_%L165684%_) - (let ((_g179974_ + _%__stx182713182714%_))))) + (let ((_%__kont182715182716%_ + (lambda (_%g169278169335%_) _%stx168636%_)) + (_%__kont182717182718%_ + (lambda (_%g169282169303%_) + (let ((_g183518_ (gxc#lift-case-lambda-clauses__0 - _%stx165017%_ - _%L165640%_ - _%L165684%_))) + _%stx168636%_ + _%g168648169259%_ + _%g169282169303%_))) (begin - (let ((_g179975_ + (let ((_g183519_ (let () (declare (not safe)) - (if (##values? _g179974_) - (##values-length _g179974_) + (if (##values? _g183518_) + (##values-length _g183518_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g179975_ 3))) + (##fx= _g183519_ 3))) (error "Context expects 3 values" - _g179975_))) - (let ((_%ids165694%_ + _g183519_))) + (let ((_%ids169313%_ (let () (declare (not safe)) - (##values-ref _g179974_ 0))) - (_%impls165695%_ + (##values-ref _g183518_ 0))) + (_%impls169314%_ (let () (declare (not safe)) - (##values-ref _g179974_ 1))) - (_%clauses165696%_ + (##values-ref _g183518_ 1))) + (_%clauses169315%_ (let () (declare (not safe)) - (##values-ref _g179974_ 2)))) - (let* ((_%_165698%_ + (##values-ref _g183518_ 2)))) + (let* ((_%_169317%_ (for-each gx#core-bind-runtime! - _%ids165694%_)) - (_%defs165700%_ - (map _%case-lambda-clause-def165019%_ - _%ids165694%_ - _%impls165695%_))) - (let ((__tmp179977 + _%ids169313%_)) + (_%defs169319%_ + (map _%case-lambda-clause-def168638%_ + _%ids169313%_ + _%impls169314%_))) + (let ((__tmp183521 (let () (declare (not safe)) (gxc#identifier-symbol - _%L165640%_))) - (__tmp179976 + _%g168648169259%_))) + (__tmp183520 (map gxc#identifier-symbol - _%ids165694%_))) + _%ids169313%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp179977 + __tmp183521 '" => " - __tmp179976)) - (let ((__tmp179978 + __tmp183520)) + (let ((__tmp183522 (cons '%#begin - (let ((__tmp179979 - (cons (let ((__tmp179980 + (let ((__tmp183523 + (cons (let ((__tmp183524 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#define-values - (cons (cons _%L165640%_ '()) - (cons (let ((__tmp179982 + (cons (cons _%g168648169259%_ '()) + (cons (let ((__tmp183526 (cons '%#case-lambda - _%clauses165696%_)) - (__tmp179981 + _%clauses169315%_)) + (__tmp183525 (let () (declare (not safe)) @@ -20467,1128 +20585,1139 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp179982 - __tmp179981)) + __tmp183526 + __tmp183525)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp179980 _%stx165017%_)) + (gxc#xform-wrap-source __tmp183524 _%stx168636%_)) '()))) (declare (not safe)) - (__foldr1 cons __tmp179979 _%defs165700%_))))) + (__foldr1 cons __tmp183523 _%defs169319%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp179978 - _%stx165017%_))))))))) - (let ((_%__match179180179181%_ - (lambda (_%e165660165708%_ - _%hd165661165711%_ - _%tl165662165713%_) - (let ((_%L165716%_ _%tl165662165713%_)) + __tmp183522 + _%stx168636%_))))))))) + (let ((_%__match182724182725%_ + (lambda (_%e169279169327%_ + _%hd169280169330%_ + _%tl169281169332%_) + (let ((_%g169278169335%_ _%tl169281169332%_)) (if (let () (declare (not safe)) (__andmap1 gxc#dispatch-lambda-form? - _%L165716%_)) - (_%__kont179171179172%_ _%L165716%_) - (_%__kont179173179174%_ - _%tl165662165713%_)))))) + _%g169278169335%_)) + (_%__kont182715182716%_ + _%g169278169335%_) + (_%__kont182717182718%_ + _%tl169281169332%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx179169179170%_)) - (let ((_%e165660165708%_ + (gx#stx-pair? _%__stx182713182714%_)) + (let ((_%e169279169327%_ (let () (declare (not safe)) - (gx#stx-e _%__stx179169179170%_)))) - (let ((_%tl165662165713%_ + (gx#stx-e _%__stx182713182714%_)))) + (let ((_%tl169281169332%_ (let () (declare (not safe)) - (##cdr _%e165660165708%_))) - (_%hd165661165711%_ + (##cdr _%e169279169327%_))) + (_%hd169280169330%_ (let () (declare (not safe)) - (##car _%e165660165708%_)))) - (_%__match179180179181%_ - _%e165660165708%_ - _%hd165661165711%_ - _%tl165662165713%_))) + (##car _%e169279169327%_)))) + (_%__match182724182725%_ + _%e169279169327%_ + _%hd169280169330%_ + _%tl169281169332%_))) (let () (declare (not safe)) - (_%g165657165671%_)))))))) - (_%__kont179193179194%_ - (lambda (_%L165456%_ _%L165457%_) - (let* ((_%g165473165503%_ - (lambda (_%g165474165500%_) + (_%g169276169290%_)))))))) + (_%__kont182737182738%_ + (lambda (_%g168661169075%_ _%g168662169076%_) + (let* ((_%g169092169122%_ + (lambda (_%g169093169119%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g165474165500%_)))) - (_%g165472165599%_ - (lambda (_%g165474165506%_) + _%g169093169119%_)))) + (_%g169091169218%_ + (lambda (_%g169093169125%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g165474165506%_)) - (let ((_%e165478165508%_ + (gx#stx-pair? _%g169093169125%_)) + (let ((_%e169097169127%_ (let () (declare (not safe)) - (gx#stx-e _%g165474165506%_)))) - (let ((_%hd165479165511%_ + (gx#stx-e _%g169093169125%_)))) + (let ((_%hd169098169130%_ (let () (declare (not safe)) - (##car _%e165478165508%_))) - (_%tl165480165513%_ + (##car _%e169097169127%_))) + (_%tl169099169132%_ (let () (declare (not safe)) - (##cdr _%e165478165508%_)))) + (##cdr _%e169097169127%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165480165513%_)) - (let ((_%e165481165516%_ + (gx#stx-pair? _%tl169099169132%_)) + (let ((_%e169100169135%_ (let () (declare (not safe)) (gx#stx-e - _%tl165480165513%_)))) - (let ((_%hd165482165519%_ + _%tl169099169132%_)))) + (let ((_%hd169101169138%_ (let () (declare (not safe)) - (##car _%e165481165516%_))) - (_%tl165483165521%_ + (##car _%e169100169135%_))) + (_%tl169102169140%_ (let () (declare (not safe)) - (##cdr _%e165481165516%_)))) + (##cdr _%e169100169135%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165482165519%_)) - (let ((_%e165484165524%_ + _%hd169101169138%_)) + (let ((_%e169103169143%_ (let () (declare (not safe)) (gx#stx-e - _%hd165482165519%_)))) - (let ((_%hd165485165527%_ + _%hd169101169138%_)))) + (let ((_%hd169104169146%_ (let () (declare (not safe)) - (##car _%e165484165524%_))) - (_%tl165486165529%_ + (##car _%e169103169143%_))) + (_%tl169105169148%_ (let () (declare (not safe)) - (##cdr _%e165484165524%_)))) + (##cdr _%e169103169143%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165485165527%_)) - (let ((_%e165487165532%_ + _%hd169104169146%_)) + (let ((_%e169106169151%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd165485165527%_)))) - (let ((_%hd165488165535%_ + (gx#stx-e _%hd169104169146%_)))) + (let ((_%hd169107169154%_ (let () (declare (not safe)) - (##car _%e165487165532%_))) - (_%tl165489165537%_ + (##car _%e169106169151%_))) + (_%tl169108169156%_ (let () (declare (not safe)) - (##cdr _%e165487165532%_)))) + (##cdr _%e169106169151%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165488165535%_)) - (let ((_%e165490165540%_ + (gx#stx-pair? _%hd169107169154%_)) + (let ((_%e169109169159%_ (let () (declare (not safe)) - (gx#stx-e _%hd165488165535%_)))) - (let ((_%hd165491165543%_ + (gx#stx-e _%hd169107169154%_)))) + (let ((_%hd169110169162%_ (let () (declare (not safe)) - (##car _%e165490165540%_))) - (_%tl165492165545%_ + (##car _%e169109169159%_))) + (_%tl169111169164%_ (let () (declare (not safe)) - (##cdr _%e165490165540%_)))) + (##cdr _%e169109169159%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165492165545%_)) + (gx#stx-null? _%tl169111169164%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165489165537%_)) - (let ((_%e165493165548%_ + (gx#stx-pair? _%tl169108169156%_)) + (let ((_%e169112169167%_ (let () (declare (not safe)) (gx#stx-e - _%tl165489165537%_)))) - (let ((_%hd165494165551%_ + _%tl169108169156%_)))) + (let ((_%hd169113169170%_ (let () (declare (not safe)) - (##car _%e165493165548%_))) - (_%tl165495165553%_ + (##car _%e169112169167%_))) + (_%tl169114169172%_ (let () (declare (not safe)) - (##cdr _%e165493165548%_)))) + (##cdr _%e169112169167%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165495165553%_)) + _%tl169114169172%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165486165529%_)) + _%tl169105169148%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165483165521%_)) - (let ((_%e165496165556%_ + _%tl169102169140%_)) + (let ((_%e169115169175%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165483165521%_)))) - (let ((_%hd165497165559%_ + (gx#stx-e _%tl169102169140%_)))) + (let ((_%hd169116169178%_ (let () (declare (not safe)) - (##car _%e165496165556%_))) - (_%tl165498165561%_ + (##car _%e169115169175%_))) + (_%tl169117169180%_ (let () (declare (not safe)) - (##cdr _%e165496165556%_)))) + (##cdr _%e169115169175%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165498165561%_)) - ((lambda (_%L165564%_ _%L165565%_ _%L165566%_) - (let* ((_%lambda-id165590%_ - (let ((__tmp179984 + (gx#stx-null? _%tl169117169180%_)) + ((lambda (_%g169094169183%_ + _%g169095169184%_ + _%g169096169185%_) + (let* ((_%lambda-id169209%_ + (let ((__tmp183528 (let () (declare (not safe)) - (gx#stx-e _%L165457%_))) - (__tmp179983 - (_%opt-lambda-dispatch-name165020%_ + (gx#stx-e _%g168662169076%_))) + (__tmp183527 + (_%opt-lambda-dispatch-name168639%_ (let () (declare (not safe)) - (gx#stx-e _%L165566%_))))) + (gx#stx-e _%g169096169185%_))))) (declare (not safe)) (make-symbol__1 - __tmp179984 + __tmp183528 '"__" - __tmp179983))) - (_%lambda-id165592%_ - (let ((__tmp179985 + __tmp183527))) + (_%lambda-id169211%_ + (let ((__tmp183529 (let () (declare (not safe)) - (gx#stx-source _%stx165017%_)))) + (gx#stx-source _%stx168636%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%lambda-id165590%_ - __tmp179985))) - (_%_165594%_ + _%lambda-id169209%_ + __tmp183529))) + (_%_169213%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%lambda-id165592%_))) - (_%new-case-lambda-expr165596%_ + _%lambda-id169211%_))) + (_%new-case-lambda-expr169215%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L165566%_ - _%lambda-id165592%_ - _%L165564%_)))) - (let ((__tmp179987 + _%g169096169185%_ + _%lambda-id169211%_ + _%g169094169183%_)))) + (let ((__tmp183531 (let () (declare (not safe)) - (gxc#identifier-symbol _%L165457%_))) - (__tmp179986 + (gxc#identifier-symbol + _%g168662169076%_))) + (__tmp183530 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id165592%_)))) + _%lambda-id169211%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp179987 + __tmp183531 '" => " - __tmp179986)) - (let ((__tmp179988 + __tmp183530)) + (let ((__tmp183532 (cons '%#begin - (cons (let ((__tmp179989 + (cons (let ((__tmp183533 (cons '%#define-values - (cons (cons _%lambda-id165592%_ + (cons (cons _%lambda-id169211%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self165016%_ - _%L165565%_)) + _%self168635%_ + _%g169095169184%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp179989 - _%stx165017%_)) + __tmp183533 + _%stx168636%_)) (cons (gxc#lift-top-lambda-define-values% - _%self165016%_ - (let ((__tmp179990 + _%self168635%_ + (let ((__tmp183534 (cons '%#define-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L165457%_ '()) - (cons _%new-case-lambda-expr165596%_ '()))))) + (cons (cons _%g168662169076%_ '()) + (cons _%new-case-lambda-expr169215%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp179990 _%stx165017%_))) + (gxc#xform-wrap-source __tmp183534 _%stx168636%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp179988 - _%stx165017%_)))) - _%hd165497165559%_ - _%hd165494165551%_ - _%hd165491165543%_) - (_%g165473165503%_ _%g165474165506%_)))) - (_%g165473165503%_ _%g165474165506%_)) + __tmp183532 + _%stx168636%_)))) + _%hd169116169178%_ + _%hd169113169170%_ + _%hd169110169162%_) + (_%g169092169122%_ _%g169093169125%_)))) + (_%g169092169122%_ _%g169093169125%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g165473165503%_ - _%g165474165506%_)) - (_%g165473165503%_ - _%g165474165506%_)))) - (_%g165473165503%_ _%g165474165506%_)) - (_%g165473165503%_ _%g165474165506%_)))) - (_%g165473165503%_ _%g165474165506%_)))) - (_%g165473165503%_ _%g165474165506%_)))) + (_%g169092169122%_ + _%g169093169125%_)) + (_%g169092169122%_ + _%g169093169125%_)))) + (_%g169092169122%_ _%g169093169125%_)) + (_%g169092169122%_ _%g169093169125%_)))) + (_%g169092169122%_ _%g169093169125%_)))) + (_%g169092169122%_ _%g169093169125%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g165473165503%_ - _%g165474165506%_)))) - (_%g165473165503%_ - _%g165474165506%_)))) - (_%g165473165503%_ _%g165474165506%_))))) - (_%g165472165599%_ _%L165456%_)))) - (_%__kont179195179196%_ - (lambda (_%L165168%_ _%L165169%_) - (let* ((_%g165185165238%_ - (lambda (_%g165186165235%_) + (_%g169092169122%_ + _%g169093169125%_)))) + (_%g169092169122%_ + _%g169093169125%_)))) + (_%g169092169122%_ _%g169093169125%_))))) + (_%g169091169218%_ _%g168661169075%_)))) + (_%__kont182739182740%_ + (lambda (_%g168675168787%_ _%g168676168788%_) + (let* ((_%g168804168857%_ + (lambda (_%g168805168854%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g165186165235%_)))) - (_%g165184165416%_ - (lambda (_%g165186165241%_) + _%g168805168854%_)))) + (_%g168803169035%_ + (lambda (_%g168805168860%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g165186165241%_)) - (let ((_%e165192165243%_ + (gx#stx-pair? _%g168805168860%_)) + (let ((_%e168811168862%_ (let () (declare (not safe)) - (gx#stx-e _%g165186165241%_)))) - (let ((_%hd165193165246%_ + (gx#stx-e _%g168805168860%_)))) + (let ((_%hd168812168865%_ (let () (declare (not safe)) - (##car _%e165192165243%_))) - (_%tl165194165248%_ + (##car _%e168811168862%_))) + (_%tl168813168867%_ (let () (declare (not safe)) - (##cdr _%e165192165243%_)))) + (##cdr _%e168811168862%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165194165248%_)) - (let ((_%e165195165251%_ + (gx#stx-pair? _%tl168813168867%_)) + (let ((_%e168814168870%_ (let () (declare (not safe)) (gx#stx-e - _%tl165194165248%_)))) - (let ((_%hd165196165254%_ + _%tl168813168867%_)))) + (let ((_%hd168815168873%_ (let () (declare (not safe)) - (##car _%e165195165251%_))) - (_%tl165197165256%_ + (##car _%e168814168870%_))) + (_%tl168816168875%_ (let () (declare (not safe)) - (##cdr _%e165195165251%_)))) + (##cdr _%e168814168870%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165196165254%_)) - (let ((_%e165198165259%_ + _%hd168815168873%_)) + (let ((_%e168817168878%_ (let () (declare (not safe)) (gx#stx-e - _%hd165196165254%_)))) - (let ((_%hd165199165262%_ + _%hd168815168873%_)))) + (let ((_%hd168818168881%_ (let () (declare (not safe)) - (##car _%e165198165259%_))) - (_%tl165200165264%_ + (##car _%e168817168878%_))) + (_%tl168819168883%_ (let () (declare (not safe)) - (##cdr _%e165198165259%_)))) + (##cdr _%e168817168878%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165199165262%_)) - (let ((_%e165201165267%_ + _%hd168818168881%_)) + (let ((_%e168820168886%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd165199165262%_)))) - (let ((_%hd165202165270%_ + (gx#stx-e _%hd168818168881%_)))) + (let ((_%hd168821168889%_ (let () (declare (not safe)) - (##car _%e165201165267%_))) - (_%tl165203165272%_ + (##car _%e168820168886%_))) + (_%tl168822168891%_ (let () (declare (not safe)) - (##cdr _%e165201165267%_)))) + (##cdr _%e168820168886%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165202165270%_)) - (let ((_%e165204165275%_ + (gx#stx-pair? _%hd168821168889%_)) + (let ((_%e168823168894%_ (let () (declare (not safe)) - (gx#stx-e _%hd165202165270%_)))) - (let ((_%hd165205165278%_ + (gx#stx-e _%hd168821168889%_)))) + (let ((_%hd168824168897%_ (let () (declare (not safe)) - (##car _%e165204165275%_))) - (_%tl165206165280%_ + (##car _%e168823168894%_))) + (_%tl168825168899%_ (let () (declare (not safe)) - (##cdr _%e165204165275%_)))) + (##cdr _%e168823168894%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165206165280%_)) + (gx#stx-null? _%tl168825168899%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165203165272%_)) - (let ((_%e165207165283%_ + (gx#stx-pair? _%tl168822168891%_)) + (let ((_%e168826168902%_ (let () (declare (not safe)) (gx#stx-e - _%tl165203165272%_)))) - (let ((_%hd165208165286%_ + _%tl168822168891%_)))) + (let ((_%hd168827168905%_ (let () (declare (not safe)) - (##car _%e165207165283%_))) - (_%tl165209165288%_ + (##car _%e168826168902%_))) + (_%tl168828168907%_ (let () (declare (not safe)) - (##cdr _%e165207165283%_)))) + (##cdr _%e168826168902%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165208165286%_)) - (let ((_%e165210165291%_ + _%hd168827168905%_)) + (let ((_%e168829168910%_ (let () (declare (not safe)) (gx#stx-e - _%hd165208165286%_)))) - (let ((_%hd165211165294%_ + _%hd168827168905%_)))) + (let ((_%hd168830168913%_ (let () (declare (not safe)) - (##car _%e165210165291%_))) - (_%tl165212165296%_ + (##car _%e168829168910%_))) + (_%tl168831168915%_ (let () (declare (not safe)) - (##cdr _%e165210165291%_)))) + (##cdr _%e168829168910%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165212165296%_)) - (let ((_%e165213165299%_ + _%tl168831168915%_)) + (let ((_%e168832168918%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165212165296%_)))) - (let ((_%hd165214165302%_ + (gx#stx-e _%tl168831168915%_)))) + (let ((_%hd168833168921%_ (let () (declare (not safe)) - (##car _%e165213165299%_))) - (_%tl165215165304%_ + (##car _%e168832168918%_))) + (_%tl168834168923%_ (let () (declare (not safe)) - (##cdr _%e165213165299%_)))) + (##cdr _%e168832168918%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165214165302%_)) - (let ((_%e165216165307%_ + (gx#stx-pair? _%hd168833168921%_)) + (let ((_%e168835168926%_ (let () (declare (not safe)) - (gx#stx-e _%hd165214165302%_)))) - (let ((_%hd165217165310%_ + (gx#stx-e _%hd168833168921%_)))) + (let ((_%hd168836168929%_ (let () (declare (not safe)) - (##car _%e165216165307%_))) - (_%tl165218165312%_ + (##car _%e168835168926%_))) + (_%tl168837168931%_ (let () (declare (not safe)) - (##cdr _%e165216165307%_)))) + (##cdr _%e168835168926%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165217165310%_)) - (let ((_%e165219165315%_ + (gx#stx-pair? _%hd168836168929%_)) + (let ((_%e168838168934%_ (let () (declare (not safe)) - (gx#stx-e _%hd165217165310%_)))) - (let ((_%hd165220165318%_ + (gx#stx-e _%hd168836168929%_)))) + (let ((_%hd168839168937%_ (let () (declare (not safe)) - (##car _%e165219165315%_))) - (_%tl165221165320%_ + (##car _%e168838168934%_))) + (_%tl168840168939%_ (let () (declare (not safe)) - (##cdr _%e165219165315%_)))) + (##cdr _%e168838168934%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165220165318%_)) - (let ((_%e165222165323%_ + (gx#stx-pair? _%hd168839168937%_)) + (let ((_%e168841168942%_ (let () (declare (not safe)) (gx#stx-e - _%hd165220165318%_)))) - (let ((_%hd165223165326%_ + _%hd168839168937%_)))) + (let ((_%hd168842168945%_ (let () (declare (not safe)) - (##car _%e165222165323%_))) - (_%tl165224165328%_ + (##car _%e168841168942%_))) + (_%tl168843168947%_ (let () (declare (not safe)) - (##cdr _%e165222165323%_)))) + (##cdr _%e168841168942%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165224165328%_)) + _%tl168843168947%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165221165320%_)) - (let ((_%e165225165331%_ + _%tl168840168939%_)) + (let ((_%e168844168950%_ (let () (declare (not safe)) (gx#stx-e - _%tl165221165320%_)))) - (let ((_%hd165226165334%_ + _%tl168840168939%_)))) + (let ((_%hd168845168953%_ (let () (declare (not safe)) - (##car _%e165225165331%_))) - (_%tl165227165336%_ + (##car _%e168844168950%_))) + (_%tl168846168955%_ (let () (declare (not safe)) - (##cdr _%e165225165331%_)))) + (##cdr _%e168844168950%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165227165336%_)) + _%tl168846168955%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-null? _%tl165218165312%_)) + (gx#stx-null? _%tl168837168931%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165215165304%_)) - (let ((_%e165228165339%_ + (gx#stx-pair? _%tl168834168923%_)) + (let ((_%e168847168958%_ (let () (declare (not safe)) - (gx#stx-e _%tl165215165304%_)))) - (let ((_%hd165229165342%_ + (gx#stx-e _%tl168834168923%_)))) + (let ((_%hd168848168961%_ (let () (declare (not safe)) - (##car _%e165228165339%_))) - (_%tl165230165344%_ + (##car _%e168847168958%_))) + (_%tl168849168963%_ (let () (declare (not safe)) - (##cdr _%e165228165339%_)))) + (##cdr _%e168847168958%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165230165344%_)) + (gx#stx-null? _%tl168849168963%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165209165288%_)) + (gx#stx-null? _%tl168828168907%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165200165264%_)) + (gx#stx-null? _%tl168819168883%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165197165256%_)) - (let ((_%e165231165347%_ + _%tl168816168875%_)) + (let ((_%e168850168966%_ (let () (declare (not safe)) (gx#stx-e - _%tl165197165256%_)))) - (let ((_%hd165232165350%_ + _%tl168816168875%_)))) + (let ((_%hd168851168969%_ (let () (declare (not safe)) - (##car _%e165231165347%_))) - (_%tl165233165352%_ + (##car _%e168850168966%_))) + (_%tl168852168971%_ (let () (declare (not safe)) - (##cdr _%e165231165347%_)))) + (##cdr _%e168850168966%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165233165352%_)) - ((lambda (_%L165355%_ + _%tl168852168971%_)) + ((lambda (_%g168806168974%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L165356%_ - _%L165357%_ - _%L165358%_ - _%L165359%_) - (let* ((_%get-kws-id165399%_ - (let ((__tmp179992 + _%g168807168975%_ + _%g168808168976%_ + _%g168809168977%_ + _%g168810168978%_) + (let* ((_%get-kws-id169018%_ + (let ((__tmp183536 (let () (declare (not safe)) - (gx#stx-e _%L165169%_))) - (__tmp179991 - (_%kw-lambda-dispatch-name165021%_ + (gx#stx-e _%g168676168788%_))) + (__tmp183535 + (_%kw-lambda-dispatch-name168640%_ (let () (declare (not safe)) - (gx#stx-e _%L165359%_)) + (gx#stx-e _%g168810168978%_)) '"@"))) (declare (not safe)) - (make-symbol__1 __tmp179992 '"__" __tmp179991))) - (_%get-kws-id165401%_ - (let ((__tmp179993 + (make-symbol__1 __tmp183536 '"__" __tmp183535))) + (_%get-kws-id169020%_ + (let ((__tmp183537 (let () (declare (not safe)) - (gx#stx-source _%stx165017%_)))) + (gx#stx-source _%stx168636%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id165399%_ - __tmp179993))) - (_%main-id165403%_ - (let ((__tmp179995 + _%get-kws-id169018%_ + __tmp183537))) + (_%main-id169022%_ + (let ((__tmp183539 (let () (declare (not safe)) - (gx#stx-e _%L165169%_))) - (__tmp179994 - (_%kw-lambda-dispatch-name165021%_ + (gx#stx-e _%g168676168788%_))) + (__tmp183538 + (_%kw-lambda-dispatch-name168640%_ (let () (declare (not safe)) - (gx#stx-e _%L165358%_)) + (gx#stx-e _%g168809168977%_)) '"%"))) (declare (not safe)) - (make-symbol__1 __tmp179995 '"__" __tmp179994))) - (_%main-id165405%_ - (let ((__tmp179996 + (make-symbol__1 __tmp183539 '"__" __tmp183538))) + (_%main-id169024%_ + (let ((__tmp183540 (let () (declare (not safe)) - (gx#stx-source _%stx165017%_)))) + (gx#stx-source _%stx168636%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id165403%_ - __tmp179996))) - (_%_165407%_ + _%main-id169022%_ + __tmp183540))) + (_%_169026%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%get-kws-id165401%_))) - (_%_165409%_ + (gx#core-bind-runtime!__0 _%get-kws-id169020%_))) + (_%_169028%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%main-id165405%_))) - (_%new-kw-dispatch165411%_ + (gx#core-bind-runtime!__0 _%main-id169024%_))) + (_%new-kw-dispatch169030%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L165359%_ - _%get-kws-id165401%_ - _%L165355%_))) - (_%new-get-kws165413%_ + _%g168810168978%_ + _%get-kws-id169020%_ + _%g168806168974%_))) + (_%new-get-kws169032%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L165358%_ - _%main-id165405%_ - _%L165356%_)))) - (let ((__tmp179999 + _%g168809168977%_ + _%main-id169024%_ + _%g168807168975%_)))) + (let ((__tmp183543 (let () (declare (not safe)) - (gxc#identifier-symbol _%L165169%_))) - (__tmp179998 + (gxc#identifier-symbol _%g168676168788%_))) + (__tmp183542 (let () (declare (not safe)) - (gxc#identifier-symbol _%get-kws-id165401%_))) - (__tmp179997 + (gxc#identifier-symbol _%get-kws-id169020%_))) + (__tmp183541 (let () (declare (not safe)) - (gxc#identifier-symbol _%main-id165405%_)))) + (gxc#identifier-symbol _%main-id169024%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp179999 + __tmp183543 '" => " - __tmp179998 + __tmp183542 '" => " - __tmp179997)) - (let ((__tmp180000 + __tmp183541)) + (let ((__tmp183544 (cons '%#begin (cons (gxc#lift-top-lambda-define-values% - _%self165016%_ - (let ((__tmp180001 + _%self168635%_ + (let ((__tmp183545 (cons '%#define-values - (cons (cons _%main-id165405%_ + (cons (cons _%main-id169024%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L165357%_ '()))))) + (cons _%g168808168976%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp180001 - _%stx165017%_))) - (cons (let ((__tmp180002 + __tmp183545 + _%stx168636%_))) + (cons (let ((__tmp183546 (cons '%#define-values - (cons (cons _%get-kws-id165401%_ + (cons (cons _%get-kws-id169020%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%new-get-kws165413%_ '()))))) + (cons _%new-get-kws169032%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp180002 - _%stx165017%_)) - (cons (let ((__tmp180003 + __tmp183546 + _%stx168636%_)) + (cons (let ((__tmp183547 (cons '%#define-values - (cons (cons _%L165169%_ + (cons (cons _%g168676168788%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%new-kw-dispatch165411%_ '()))))) + (cons _%new-kw-dispatch169030%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp180003 - _%stx165017%_)) + __tmp183547 + _%stx168636%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp180000 _%stx165017%_)))) - _%hd165232165350%_ - _%hd165229165342%_ - _%hd165226165334%_ - _%hd165223165326%_ - _%hd165205165278%_) - (_%g165185165238%_ _%g165186165241%_)))) + (gxc#xform-wrap-source __tmp183544 _%stx168636%_)))) + _%hd168851168969%_ + _%hd168848168961%_ + _%hd168845168953%_ + _%hd168842168945%_ + _%hd168824168897%_) + (_%g168804168857%_ _%g168805168860%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g165185165238%_ - _%g165186165241%_)) - (_%g165185165238%_ - _%g165186165241%_)) - (_%g165185165238%_ _%g165186165241%_)) - (_%g165185165238%_ _%g165186165241%_)))) - (_%g165185165238%_ _%g165186165241%_)) - (_%g165185165238%_ _%g165186165241%_)) - (_%g165185165238%_ _%g165186165241%_)))) + (_%g168804168857%_ + _%g168805168860%_)) + (_%g168804168857%_ + _%g168805168860%_)) + (_%g168804168857%_ _%g168805168860%_)) + (_%g168804168857%_ _%g168805168860%_)))) + (_%g168804168857%_ _%g168805168860%_)) + (_%g168804168857%_ _%g168805168860%_)) + (_%g168804168857%_ _%g168805168860%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g165185165238%_ - _%g165186165241%_)) - (_%g165185165238%_ - _%g165186165241%_)))) - (_%g165185165238%_ _%g165186165241%_)))) - (_%g165185165238%_ _%g165186165241%_)))) - (_%g165185165238%_ _%g165186165241%_)))) - (_%g165185165238%_ _%g165186165241%_)))) + (_%g168804168857%_ + _%g168805168860%_)) + (_%g168804168857%_ + _%g168805168860%_)))) + (_%g168804168857%_ _%g168805168860%_)))) + (_%g168804168857%_ _%g168805168860%_)))) + (_%g168804168857%_ _%g168805168860%_)))) + (_%g168804168857%_ _%g168805168860%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g165185165238%_ - _%g165186165241%_)))) - (_%g165185165238%_ _%g165186165241%_)) - (_%g165185165238%_ _%g165186165241%_)))) - (_%g165185165238%_ _%g165186165241%_)))) - (_%g165185165238%_ _%g165186165241%_)))) + (_%g168804168857%_ + _%g168805168860%_)))) + (_%g168804168857%_ _%g168805168860%_)) + (_%g168804168857%_ _%g168805168860%_)))) + (_%g168804168857%_ _%g168805168860%_)))) + (_%g168804168857%_ _%g168805168860%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g165185165238%_ - _%g165186165241%_)))) - (_%g165185165238%_ - _%g165186165241%_)))) - (_%g165185165238%_ _%g165186165241%_))))) - (_%g165184165416%_ _%L165168%_)))) - (_%__kont179197179198%_ - (lambda (_%L165114%_ _%L165115%_) - (let ((__tmp180004 + (_%g168804168857%_ + _%g168805168860%_)))) + (_%g168804168857%_ + _%g168805168860%_)))) + (_%g168804168857%_ _%g168805168860%_))))) + (_%g168803169035%_ _%g168675168787%_)))) + (_%__kont182741182742%_ + (lambda (_%g168689168733%_ _%g168690168734%_) + (let ((__tmp183548 (cons '%#define-values - (cons _%L165115%_ + (cons _%g168690168734%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self165016%_ - _%L165114%_)) + _%self168635%_ + _%g168689168733%_)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp180004 _%stx165017%_))))) - (let* ((_%__match179282179283%_ - (lambda (_%e165058165136%_ - _%hd165059165139%_ - _%tl165060165141%_ - _%e165061165144%_ - _%hd165062165147%_ - _%tl165063165149%_ - _%e165064165152%_ - _%hd165065165155%_ - _%tl165066165157%_ - _%e165067165160%_ - _%hd165068165163%_ - _%tl165069165165%_) - (let ((_%L165168%_ _%hd165068165163%_) - (_%L165169%_ _%hd165065165155%_)) + (gxc#xform-wrap-source __tmp183548 _%stx168636%_))))) + (let* ((_%__match182826182827%_ + (lambda (_%e168677168755%_ + _%hd168678168758%_ + _%tl168679168760%_ + _%e168680168763%_ + _%hd168681168766%_ + _%tl168682168768%_ + _%e168683168771%_ + _%hd168684168774%_ + _%tl168685168776%_ + _%e168686168779%_ + _%hd168687168782%_ + _%tl168688168784%_) + (let ((_%g168675168787%_ _%hd168687168782%_) + (_%g168676168788%_ _%hd168684168774%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L165169%_)) - (gxc#kw-lambda-expr? _%L165168%_)) - (_%__kont179195179196%_ _%L165168%_ _%L165169%_) - (_%__kont179197179198%_ - _%hd165068165163%_ - _%hd165062165147%_))))) - (_%__match179254179255%_ - (lambda (_%e165044165424%_ - _%hd165045165427%_ - _%tl165046165429%_ - _%e165047165432%_ - _%hd165048165435%_ - _%tl165049165437%_ - _%e165050165440%_ - _%hd165051165443%_ - _%tl165052165445%_ - _%e165053165448%_ - _%hd165054165451%_ - _%tl165055165453%_) - (let ((_%L165456%_ _%hd165054165451%_) - (_%L165457%_ _%hd165051165443%_)) + (gx#identifier? _%g168676168788%_)) + (gxc#kw-lambda-expr? _%g168675168787%_)) + (_%__kont182739182740%_ + _%g168675168787%_ + _%g168676168788%_) + (_%__kont182741182742%_ + _%hd168687168782%_ + _%hd168681168766%_))))) + (_%__match182798182799%_ + (lambda (_%e168663169043%_ + _%hd168664169046%_ + _%tl168665169048%_ + _%e168666169051%_ + _%hd168667169054%_ + _%tl168668169056%_ + _%e168669169059%_ + _%hd168670169062%_ + _%tl168671169064%_ + _%e168672169067%_ + _%hd168673169070%_ + _%tl168674169072%_) + (let ((_%g168661169075%_ _%hd168673169070%_) + (_%g168662169076%_ _%hd168670169062%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L165457%_)) - (gxc#opt-lambda-expr? _%L165456%_)) - (_%__kont179193179194%_ _%L165456%_ _%L165457%_) - (_%__match179282179283%_ - _%e165044165424%_ - _%hd165045165427%_ - _%tl165046165429%_ - _%e165047165432%_ - _%hd165048165435%_ - _%tl165049165437%_ - _%e165050165440%_ - _%hd165051165443%_ - _%tl165052165445%_ - _%e165053165448%_ - _%hd165054165451%_ - _%tl165055165453%_))))) - (_%__match179226179227%_ - (lambda (_%e165030165607%_ - _%hd165031165610%_ - _%tl165032165612%_ - _%e165033165615%_ - _%hd165034165618%_ - _%tl165035165620%_ - _%e165036165623%_ - _%hd165037165626%_ - _%tl165038165628%_ - _%e165039165631%_ - _%hd165040165634%_ - _%tl165041165636%_) - (let ((_%L165639%_ _%hd165040165634%_) - (_%L165640%_ _%hd165037165626%_)) + (gx#identifier? _%g168662169076%_)) + (gxc#opt-lambda-expr? _%g168661169075%_)) + (_%__kont182737182738%_ + _%g168661169075%_ + _%g168662169076%_) + (_%__match182826182827%_ + _%e168663169043%_ + _%hd168664169046%_ + _%tl168665169048%_ + _%e168666169051%_ + _%hd168667169054%_ + _%tl168668169056%_ + _%e168669169059%_ + _%hd168670169062%_ + _%tl168671169064%_ + _%e168672169067%_ + _%hd168673169070%_ + _%tl168674169072%_))))) + (_%__match182770182771%_ + (lambda (_%e168649169226%_ + _%hd168650169229%_ + _%tl168651169231%_ + _%e168652169234%_ + _%hd168653169237%_ + _%tl168654169239%_ + _%e168655169242%_ + _%hd168656169245%_ + _%tl168657169247%_ + _%e168658169250%_ + _%hd168659169253%_ + _%tl168660169255%_) + (let ((_%g168647169258%_ _%hd168659169253%_) + (_%g168648169259%_ _%hd168656169245%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L165640%_)) - (gxc#case-lambda-expr? _%L165639%_)) - (_%__kont179191179192%_ _%L165639%_ _%L165640%_) - (_%__match179254179255%_ - _%e165030165607%_ - _%hd165031165610%_ - _%tl165032165612%_ - _%e165033165615%_ - _%hd165034165618%_ - _%tl165035165620%_ - _%e165036165623%_ - _%hd165037165626%_ - _%tl165038165628%_ - _%e165039165631%_ - _%hd165040165634%_ - _%tl165041165636%_)))))) + (gx#identifier? _%g168648169259%_)) + (gxc#case-lambda-expr? _%g168647169258%_)) + (_%__kont182735182736%_ + _%g168647169258%_ + _%g168648169259%_) + (_%__match182798182799%_ + _%e168649169226%_ + _%hd168650169229%_ + _%tl168651169231%_ + _%e168652169234%_ + _%hd168653169237%_ + _%tl168654169239%_ + _%e168655169242%_ + _%hd168656169245%_ + _%tl168657169247%_ + _%e168658169250%_ + _%hd168659169253%_ + _%tl168660169255%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx179189179190%_)) - (let ((_%e165030165607%_ + (gx#stx-pair? _%__stx182733182734%_)) + (let ((_%e168649169226%_ (let () (declare (not safe)) - (gx#stx-e _%__stx179189179190%_)))) - (let ((_%tl165032165612%_ + (gx#stx-e _%__stx182733182734%_)))) + (let ((_%tl168651169231%_ (let () (declare (not safe)) - (##cdr _%e165030165607%_))) - (_%hd165031165610%_ + (##cdr _%e168649169226%_))) + (_%hd168650169229%_ (let () (declare (not safe)) - (##car _%e165030165607%_)))) + (##car _%e168649169226%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165032165612%_)) - (let ((_%e165033165615%_ + (gx#stx-pair? _%tl168651169231%_)) + (let ((_%e168652169234%_ (let () (declare (not safe)) - (gx#stx-e _%tl165032165612%_)))) - (let ((_%tl165035165620%_ + (gx#stx-e _%tl168651169231%_)))) + (let ((_%tl168654169239%_ (let () (declare (not safe)) - (##cdr _%e165033165615%_))) - (_%hd165034165618%_ + (##cdr _%e168652169234%_))) + (_%hd168653169237%_ (let () (declare (not safe)) - (##car _%e165033165615%_)))) + (##car _%e168652169234%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165034165618%_)) - (let ((_%e165036165623%_ + (gx#stx-pair? _%hd168653169237%_)) + (let ((_%e168655169242%_ (let () (declare (not safe)) - (gx#stx-e _%hd165034165618%_)))) - (let ((_%tl165038165628%_ + (gx#stx-e _%hd168653169237%_)))) + (let ((_%tl168657169247%_ (let () (declare (not safe)) - (##cdr _%e165036165623%_))) - (_%hd165037165626%_ + (##cdr _%e168655169242%_))) + (_%hd168656169245%_ (let () (declare (not safe)) - (##car _%e165036165623%_)))) + (##car _%e168655169242%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165038165628%_)) + _%tl168657169247%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165035165620%_)) - (let ((_%e165039165631%_ + _%tl168654169239%_)) + (let ((_%e168658169250%_ (let () (declare (not safe)) (gx#stx-e - _%tl165035165620%_)))) - (let ((_%tl165041165636%_ + _%tl168654169239%_)))) + (let ((_%tl168660169255%_ (let () (declare (not safe)) - (##cdr _%e165039165631%_))) - (_%hd165040165634%_ + (##cdr _%e168658169250%_))) + (_%hd168659169253%_ (let () (declare (not safe)) - (##car _%e165039165631%_)))) + (##car _%e168658169250%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165041165636%_)) - (_%__match179226179227%_ - _%e165030165607%_ - _%hd165031165610%_ - _%tl165032165612%_ - _%e165033165615%_ - _%hd165034165618%_ - _%tl165035165620%_ - _%e165036165623%_ - _%hd165037165626%_ - _%tl165038165628%_ - _%e165039165631%_ - _%hd165040165634%_ - _%tl165041165636%_) + _%tl168660169255%_)) + (_%__match182770182771%_ + _%e168649169226%_ + _%hd168650169229%_ + _%tl168651169231%_ + _%e168652169234%_ + _%hd168653169237%_ + _%tl168654169239%_ + _%e168655169242%_ + _%hd168656169245%_ + _%tl168657169247%_ + _%e168658169250%_ + _%hd168659169253%_ + _%tl168660169255%_) (let () (declare (not safe)) - (_%g165026165085%_))))) + (_%g168645168704%_))))) (let () (declare (not safe)) - (_%g165026165085%_))) + (_%g168645168704%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165035165620%_)) - (let ((_%e165078165106%_ + _%tl168654169239%_)) + (let ((_%e168697168725%_ (let () (declare (not safe)) (gx#stx-e - _%tl165035165620%_)))) - (let ((_%tl165080165111%_ + _%tl168654169239%_)))) + (let ((_%tl168699168730%_ (let () (declare (not safe)) - (##cdr _%e165078165106%_))) - (_%hd165079165109%_ + (##cdr _%e168697168725%_))) + (_%hd168698168728%_ (let () (declare (not safe)) - (##car _%e165078165106%_)))) + (##car _%e168697168725%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165080165111%_)) - (_%__kont179197179198%_ - _%hd165079165109%_ - _%hd165034165618%_) + _%tl168699168730%_)) + (_%__kont182741182742%_ + _%hd168698168728%_ + _%hd168653169237%_) (let () (declare (not safe)) - (_%g165026165085%_))))) + (_%g168645168704%_))))) (let () (declare (not safe)) - (_%g165026165085%_)))))) + (_%g168645168704%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165035165620%_)) - (let ((_%e165078165106%_ + (gx#stx-pair? _%tl168654169239%_)) + (let ((_%e168697168725%_ (let () (declare (not safe)) (gx#stx-e - _%tl165035165620%_)))) - (let ((_%tl165080165111%_ + _%tl168654169239%_)))) + (let ((_%tl168699168730%_ (let () (declare (not safe)) - (##cdr _%e165078165106%_))) - (_%hd165079165109%_ + (##cdr _%e168697168725%_))) + (_%hd168698168728%_ (let () (declare (not safe)) - (##car _%e165078165106%_)))) + (##car _%e168697168725%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165080165111%_)) - (_%__kont179197179198%_ - _%hd165079165109%_ - _%hd165034165618%_) + _%tl168699168730%_)) + (_%__kont182741182742%_ + _%hd168698168728%_ + _%hd168653169237%_) (let () (declare (not safe)) - (_%g165026165085%_))))) + (_%g168645168704%_))))) (let () (declare (not safe)) - (_%g165026165085%_)))))) + (_%g168645168704%_)))))) (let () (declare (not safe)) - (_%g165026165085%_))))) - (let () (declare (not safe)) (_%g165026165085%_))))))))) + (_%g168645168704%_))))) + (let () (declare (not safe)) (_%g168645168704%_))))))))) (define gxc#lift-top-lambda-let-values% - (lambda (_%self163943%_ _%stx163944%_) - (letrec* ((_%bind-e__176668176669%_ - (lambda (_%id165000%_ _%expr165001%_ _%compile?165002%_) - (cons (cons _%id165000%_ '()) - (cons (if _%compile?165002%_ + (lambda (_%self167564%_ _%stx167565%_) + (letrec* ((_%bind-e__180212180213%_ + (lambda (_%id168619%_ _%expr168620%_ _%compile?168621%_) + (cons (cons _%id168619%_ '()) + (cons (if _%compile?168621%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self163943%_ - _%expr165001%_)) - _%expr165001%_) + _%self167564%_ + _%expr168620%_)) + _%expr168620%_) '())))) - (_%bind-e__0__176670176671%_ - (lambda (_%id165007%_ _%expr165008%_) - (let ((_%compile?165010%_ '#t)) - (_%bind-e__176668176669%_ - _%id165007%_ - _%expr165008%_ - _%compile?165010%_)))) - (_%bind-e163946%_ - (lambda _g180005_ - (let ((_g180006_ + (_%bind-e__0__180214180215%_ + (lambda (_%id168626%_ _%expr168627%_) + (let ((_%compile?168629%_ '#t)) + (_%bind-e__180212180213%_ + _%id168626%_ + _%expr168627%_ + _%compile?168629%_)))) + (_%bind-e167567%_ + (lambda _g183549_ + (let ((_g183550_ (let () (declare (not safe)) - (##length _g180005_)))) - (cond ((let () (declare (not safe)) (##fx= _g180006_ 2)) - (apply _%bind-e__0__176670176671%_ _g180005_)) - ((let () (declare (not safe)) (##fx= _g180006_ 3)) - (apply _%bind-e__176668176669%_ _g180005_)) + (##length _g183549_)))) + (cond ((let () (declare (not safe)) (##fx= _g183550_ 2)) + (apply _%bind-e__0__180214180215%_ _g183549_)) + ((let () (declare (not safe)) (##fx= _g183550_ 3)) + (apply _%bind-e__180212180213%_ _g183549_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g180005_)))))) - (_%compile-bindings163947%_ - (lambda (_%bindings164582%_) - (let _%lp164584%_ ((_%rest164586%_ _%bindings164582%_) - (_%lift1164587%_ '()) - (_%lift2164588%_ '()) - (_%bind164589%_ '())) - (let* ((_%rest164590164598%_ _%rest164586%_) - (_%else164592164606%_ + _g183549_)))))) + (_%compile-bindings167568%_ + (lambda (_%bindings168201%_) + (let _%lp168203%_ ((_%rest168205%_ _%bindings168201%_) + (_%lift1168206%_ '()) + (_%lift2168207%_ '()) + (_%bind168208%_ '())) + (let* ((_%rest168209168217%_ _%rest168205%_) + (_%else168211168225%_ (lambda () - (values (reverse _%lift1164587%_) - (reverse _%lift2164588%_) - (reverse _%bind164589%_)))) - (_%K164594164987%_ - (lambda (_%rest164609%_ _%hd164610%_) - (let* ((_%__stx179325179326%_ _%hd164610%_) - (_%g164614164650%_ + (values (reverse _%lift1168206%_) + (reverse _%lift2168207%_) + (reverse _%bind168208%_)))) + (_%K168213168606%_ + (lambda (_%rest168228%_ _%hd168229%_) + (let* ((_%__stx182869182870%_ _%hd168229%_) + (_%g168233168269%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx179325179326%_))))) - (let ((_%__kont179327179328%_ - (lambda (_%L164893%_ _%L164894%_) - (let* ((_%__stx179305179306%_ - _%L164893%_) - (_%g164909164923%_ + _%__stx182869182870%_))))) + (let ((_%__kont182871182872%_ + (lambda (_%g168235168512%_ + _%g168236168513%_) + (let* ((_%__stx182849182850%_ + _%g168235168512%_) + (_%g168528168542%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx179305179306%_))))) - (let ((_%__kont179307179308%_ - (lambda (_%L164972%_) - (_%lp164584%_ - _%rest164609%_ - _%lift1164587%_ - _%lift2164588%_ - (cons (_%bind-e__176668176669%_ - _%L164894%_ - _%L164893%_ + _%__stx182849182850%_))))) + (let ((_%__kont182851182852%_ + (lambda (_%g168530168591%_) + (_%lp168203%_ + _%rest168228%_ + _%lift1168206%_ + _%lift2168207%_ + (cons (_%bind-e__180212180213%_ + _%g168236168513%_ + _%g168235168512%_ '#f) - _%bind164589%_)))) - (_%__kont179309179310%_ - (lambda (_%L164936%_) - (let ((_g180007_ + _%bind168208%_)))) + (_%__kont182853182854%_ + (lambda (_%g168534168555%_) + (let ((_g183551_ (gxc#lift-case-lambda-clauses__% - _%stx163944%_ - _%L164894%_ - _%L164936%_ + _%stx167565%_ + _%g168236168513%_ + _%g168534168555%_ '#t))) (begin - (let ((_g180008_ + (let ((_g183552_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g180007_) - (##values-length _g180007_) + (if (##values? _g183551_) + (##values-length _g183551_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g180008_ 3))) - (error "Context expects 3 values" _g180008_))) - (let ((_%ids164946%_ + (##fx= _g183552_ 3))) + (error "Context expects 3 values" _g183552_))) + (let ((_%ids168565%_ (let () (declare (not safe)) - (##values-ref _g180007_ 0))) - (_%impls164947%_ + (##values-ref _g183551_ 0))) + (_%impls168566%_ (let () (declare (not safe)) - (##values-ref _g180007_ 1))) - (_%clauses164948%_ + (##values-ref _g183551_ 1))) + (_%clauses168567%_ (let () (declare (not safe)) - (##values-ref _g180007_ 2)))) - (let* ((_%_164950%_ - (for-each gx#core-bind-runtime! _%ids164946%_)) - (_%xbind164952%_ - (map _%bind-e163946%_ - _%ids164946%_ - _%impls164947%_)) - (_%expr*164954%_ - (let ((__tmp180010 - (cons '%#case-lambda _%clauses164948%_)) - (__tmp180009 + (##values-ref _g183551_ 2)))) + (let* ((_%_168569%_ + (for-each gx#core-bind-runtime! _%ids168565%_)) + (_%xbind168571%_ + (map _%bind-e167567%_ + _%ids168565%_ + _%impls168566%_)) + (_%expr*168573%_ + (let ((__tmp183554 + (cons '%#case-lambda _%clauses168567%_)) + (__tmp183553 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -21596,1408 +21725,1414 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp180010 - __tmp180009))) - (_%bind*164956%_ - (_%bind-e__176668176669%_ - _%L164894%_ - _%expr*164954%_ + __tmp183554 + __tmp183553))) + (_%bind*168575%_ + (_%bind-e__180212180213%_ + _%g168236168513%_ + _%expr*168573%_ '#f))) - (let ((__tmp180012 + (let ((__tmp183556 (let () (declare (not safe)) - (gxc#identifier-symbol _%L164894%_))) - (__tmp180011 - (map gxc#identifier-symbol _%ids164946%_))) + (gxc#identifier-symbol _%g168236168513%_))) + (__tmp183555 + (map gxc#identifier-symbol _%ids168565%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp180012 + __tmp183556 '" => " - __tmp180011)) - (_%lp164584%_ - _%rest164609%_ - _%lift1164587%_ + __tmp183555)) + (_%lp168203%_ + _%rest168228%_ + _%lift1168206%_ (let () (declare (not safe)) - (__foldl1 cons _%lift2164588%_ _%xbind164952%_)) - (cons _%bind*164956%_ _%bind164589%_))))))))) + (__foldl1 cons _%lift2168207%_ _%xbind168571%_)) + (cons _%bind*168575%_ _%bind168208%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match179316179317%_ - (lambda (_%e164912164964%_ - _%hd164913164967%_ - _%tl164914164969%_) - (let ((_%L164972%_ - _%tl164914164969%_)) + (let ((_%__match182860182861%_ + (lambda (_%e168531168583%_ + _%hd168532168586%_ + _%tl168533168588%_) + (let ((_%g168530168591%_ + _%tl168533168588%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__andmap1 gxc#dispatch-lambda-form? _%L164972%_)) - (_%__kont179307179308%_ _%L164972%_) - (_%__kont179309179310%_ _%tl164914164969%_)))))) + (__andmap1 + gxc#dispatch-lambda-form? + _%g168530168591%_)) + (_%__kont182851182852%_ _%g168530168591%_) + (_%__kont182853182854%_ _%tl168533168588%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx179305179306%_)) - (let ((_%e164912164964%_ + _%__stx182849182850%_)) + (let ((_%e168531168583%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx179305179306%_)))) - (let ((_%tl164914164969%_ - (let () (declare (not safe)) (##cdr _%e164912164964%_))) - (_%hd164913164967%_ + (gx#stx-e _%__stx182849182850%_)))) + (let ((_%tl168533168588%_ + (let () (declare (not safe)) (##cdr _%e168531168583%_))) + (_%hd168532168586%_ (let () (declare (not safe)) - (##car _%e164912164964%_)))) - (_%__match179316179317%_ - _%e164912164964%_ - _%hd164913164967%_ - _%tl164914164969%_))) - (let () (declare (not safe)) (_%g164909164923%_)))))))) + (##car _%e168531168583%_)))) + (_%__match182860182861%_ + _%e168531168583%_ + _%hd168532168586%_ + _%tl168533168588%_))) + (let () (declare (not safe)) (_%g168528168542%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont179329179330%_ - (lambda (_%L164720%_ _%L164721%_) - (let* ((_%g164735164765%_ - (lambda (_%g164736164762%_) + (_%__kont182873182874%_ + (lambda (_%g168246168339%_ + _%g168247168340%_) + (let* ((_%g168354168384%_ + (lambda (_%g168355168381%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164736164762%_)))) - (_%g164734164861%_ - (lambda (_%g164736164768%_) + _%g168355168381%_)))) + (_%g168353168480%_ + (lambda (_%g168355168387%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g164736164768%_)) - (let ((_%e164740164770%_ + _%g168355168387%_)) + (let ((_%e168359168389%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g164736164768%_)))) - (let ((_%hd164741164773%_ + (gx#stx-e _%g168355168387%_)))) + (let ((_%hd168360168392%_ (let () (declare (not safe)) - (##car _%e164740164770%_))) - (_%tl164742164775%_ + (##car _%e168359168389%_))) + (_%tl168361168394%_ (let () (declare (not safe)) - (##cdr _%e164740164770%_)))) + (##cdr _%e168359168389%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164742164775%_)) - (let ((_%e164743164778%_ + (gx#stx-pair? _%tl168361168394%_)) + (let ((_%e168362168397%_ (let () (declare (not safe)) - (gx#stx-e _%tl164742164775%_)))) - (let ((_%hd164744164781%_ + (gx#stx-e _%tl168361168394%_)))) + (let ((_%hd168363168400%_ (let () (declare (not safe)) - (##car _%e164743164778%_))) - (_%tl164745164783%_ + (##car _%e168362168397%_))) + (_%tl168364168402%_ (let () (declare (not safe)) - (##cdr _%e164743164778%_)))) + (##cdr _%e168362168397%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164744164781%_)) - (let ((_%e164746164786%_ + (gx#stx-pair? _%hd168363168400%_)) + (let ((_%e168365168405%_ (let () (declare (not safe)) - (gx#stx-e _%hd164744164781%_)))) - (let ((_%hd164747164789%_ + (gx#stx-e _%hd168363168400%_)))) + (let ((_%hd168366168408%_ (let () (declare (not safe)) - (##car _%e164746164786%_))) - (_%tl164748164791%_ + (##car _%e168365168405%_))) + (_%tl168367168410%_ (let () (declare (not safe)) - (##cdr _%e164746164786%_)))) + (##cdr _%e168365168405%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164747164789%_)) - (let ((_%e164749164794%_ + (gx#stx-pair? _%hd168366168408%_)) + (let ((_%e168368168413%_ (let () (declare (not safe)) (gx#stx-e - _%hd164747164789%_)))) - (let ((_%hd164750164797%_ + _%hd168366168408%_)))) + (let ((_%hd168369168416%_ (let () (declare (not safe)) - (##car _%e164749164794%_))) - (_%tl164751164799%_ + (##car _%e168368168413%_))) + (_%tl168370168418%_ (let () (declare (not safe)) - (##cdr _%e164749164794%_)))) + (##cdr _%e168368168413%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd164750164797%_)) - (let ((_%e164752164802%_ + _%hd168369168416%_)) + (let ((_%e168371168421%_ (let () (declare (not safe)) (gx#stx-e - _%hd164750164797%_)))) - (let ((_%hd164753164805%_ + _%hd168369168416%_)))) + (let ((_%hd168372168424%_ (let () (declare (not safe)) - (##car _%e164752164802%_))) - (_%tl164754164807%_ + (##car _%e168371168421%_))) + (_%tl168373168426%_ (let () (declare (not safe)) - (##cdr _%e164752164802%_)))) + (##cdr _%e168371168421%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164754164807%_)) + _%tl168373168426%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl164751164799%_)) - (let ((_%e164755164810%_ + (gx#stx-pair? _%tl168370168418%_)) + (let ((_%e168374168429%_ (let () (declare (not safe)) - (gx#stx-e _%tl164751164799%_)))) - (let ((_%hd164756164813%_ + (gx#stx-e _%tl168370168418%_)))) + (let ((_%hd168375168432%_ (let () (declare (not safe)) - (##car _%e164755164810%_))) - (_%tl164757164815%_ + (##car _%e168374168429%_))) + (_%tl168376168434%_ (let () (declare (not safe)) - (##cdr _%e164755164810%_)))) + (##cdr _%e168374168429%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164757164815%_)) + (gx#stx-null? _%tl168376168434%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164748164791%_)) + (gx#stx-null? _%tl168367168410%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164745164783%_)) - (let ((_%e164758164818%_ + (gx#stx-pair? _%tl168364168402%_)) + (let ((_%e168377168437%_ (let () (declare (not safe)) - (gx#stx-e _%tl164745164783%_)))) - (let ((_%hd164759164821%_ + (gx#stx-e _%tl168364168402%_)))) + (let ((_%hd168378168440%_ (let () (declare (not safe)) - (##car _%e164758164818%_))) - (_%tl164760164823%_ + (##car _%e168377168437%_))) + (_%tl168379168442%_ (let () (declare (not safe)) - (##cdr _%e164758164818%_)))) + (##cdr _%e168377168437%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164760164823%_)) - ((lambda (_%L164826%_ - _%L164827%_ - _%L164828%_) - (let* ((_%lambda-id164852%_ - (let ((__tmp180014 + _%tl168379168442%_)) + ((lambda (_%g168356168445%_ + _%g168357168446%_ + _%g168358168447%_) + (let* ((_%lambda-id168471%_ + (let ((__tmp183558 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%L164721%_))) - (__tmp180013 + (gx#stx-e _%g168247168340%_))) + (__tmp183557 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) - (make-symbol__1 __tmp180014 __tmp180013))) - (_%lambda-id164854%_ - (let ((__tmp180015 + (make-symbol__1 __tmp183558 __tmp183557))) + (_%lambda-id168473%_ + (let ((__tmp183559 (let () (declare (not safe)) - (gx#stx-source _%stx163944%_)))) + (gx#stx-source _%stx167565%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%lambda-id164852%_ __tmp180015))) - (_%_164856%_ + (gx#core-quote-syntax__1 _%lambda-id168471%_ __tmp183559))) + (_%_168475%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%lambda-id164854%_))) - (_%new-case-lambda-expr164858%_ + (gx#core-bind-runtime!__0 _%lambda-id168473%_))) + (_%new-case-lambda-expr168477%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L164828%_ - _%lambda-id164854%_ - _%L164826%_)))) + _%g168358168447%_ + _%lambda-id168473%_ + _%g168356168445%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp180017 + (let ((__tmp183561 (let () (declare (not safe)) (gxc#identifier-symbol - _%L164721%_))) - (__tmp180016 + _%g168247168340%_))) + (__tmp183560 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id164854%_)))) + _%lambda-id168473%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp180017 + __tmp183561 '" => " - __tmp180016)) - (_%lp164584%_ - (cons (_%bind-e__176668176669%_ - _%L164721%_ - _%new-case-lambda-expr164858%_ + __tmp183560)) + (_%lp168203%_ + (cons (_%bind-e__180212180213%_ + _%g168247168340%_ + _%new-case-lambda-expr168477%_ '#f) - _%rest164609%_) - (cons (_%bind-e__0__176670176671%_ - _%lambda-id164854%_ - _%L164827%_) - _%lift1164587%_) - _%lift2164588%_ - _%bind164589%_))) - _%hd164759164821%_ - _%hd164756164813%_ - _%hd164753164805%_) - (_%g164735164765%_ - _%g164736164768%_)))) - (_%g164735164765%_ _%g164736164768%_)) - (_%g164735164765%_ _%g164736164768%_)) - (_%g164735164765%_ _%g164736164768%_)))) - (_%g164735164765%_ _%g164736164768%_)) - (_%g164735164765%_ _%g164736164768%_)))) + _%rest168228%_) + (cons (_%bind-e__0__180214180215%_ + _%lambda-id168473%_ + _%g168357168446%_) + _%lift1168206%_) + _%lift2168207%_ + _%bind168208%_))) + _%hd168378168440%_ + _%hd168375168432%_ + _%hd168372168424%_) + (_%g168354168384%_ + _%g168355168387%_)))) + (_%g168354168384%_ _%g168355168387%_)) + (_%g168354168384%_ _%g168355168387%_)) + (_%g168354168384%_ _%g168355168387%_)))) + (_%g168354168384%_ _%g168355168387%_)) + (_%g168354168384%_ _%g168355168387%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g164735164765%_ - _%g164736164768%_)))) - (_%g164735164765%_ - _%g164736164768%_)))) - (_%g164735164765%_ _%g164736164768%_)))) - (_%g164735164765%_ _%g164736164768%_)))) - (_%g164735164765%_ _%g164736164768%_))))) + (_%g168354168384%_ + _%g168355168387%_)))) + (_%g168354168384%_ + _%g168355168387%_)))) + (_%g168354168384%_ _%g168355168387%_)))) + (_%g168354168384%_ _%g168355168387%_)))) + (_%g168354168384%_ _%g168355168387%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g164734164861%_ - _%L164720%_)))) - (_%__kont179331179332%_ - (lambda (_%L164671%_ _%L164672%_) - (_%lp164584%_ - _%rest164609%_ - _%lift1164587%_ - _%lift2164588%_ - (cons (cons _%L164672%_ + (_%g168353168480%_ + _%g168246168339%_)))) + (_%__kont182875182876%_ + (lambda (_%g168257168290%_ + _%g168258168291%_) + (_%lp168203%_ + _%rest168228%_ + _%lift1168206%_ + _%lift2168207%_ + (cons (cons _%g168258168291%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self163943%_ _%L164671%_)) + (gxc#compile-e__1 _%self167564%_ _%g168257168290%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind164589%_))))) - (let* ((_%__match179376179377%_ - (lambda (_%e164629164696%_ - _%hd164630164699%_ - _%tl164631164701%_ - _%e164632164704%_ - _%hd164633164707%_ - _%tl164634164709%_ - _%e164635164712%_ - _%hd164636164715%_ - _%tl164637164717%_) - (let ((_%L164720%_ - _%hd164636164715%_) - (_%L164721%_ - _%hd164633164707%_)) + _%bind168208%_))))) + (let* ((_%__match182920182921%_ + (lambda (_%e168248168315%_ + _%hd168249168318%_ + _%tl168250168320%_ + _%e168251168323%_ + _%hd168252168326%_ + _%tl168253168328%_ + _%e168254168331%_ + _%hd168255168334%_ + _%tl168256168336%_) + (let ((_%g168246168339%_ + _%hd168255168334%_) + (_%g168247168340%_ + _%hd168252168326%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L164721%_)) + _%g168247168340%_)) (gxc#opt-lambda-expr? - _%L164720%_)) - (_%__kont179329179330%_ - _%L164720%_ - _%L164721%_) - (_%__kont179331179332%_ - _%hd164636164715%_ - _%hd164630164699%_))))) - (_%__match179354179355%_ - (lambda (_%e164618164869%_ - _%hd164619164872%_ - _%tl164620164874%_ - _%e164621164877%_ - _%hd164622164880%_ - _%tl164623164882%_ - _%e164624164885%_ - _%hd164625164888%_ - _%tl164626164890%_) - (let ((_%L164893%_ - _%hd164625164888%_) - (_%L164894%_ - _%hd164622164880%_)) + _%g168246168339%_)) + (_%__kont182873182874%_ + _%g168246168339%_ + _%g168247168340%_) + (_%__kont182875182876%_ + _%hd168255168334%_ + _%hd168249168318%_))))) + (_%__match182898182899%_ + (lambda (_%e168237168488%_ + _%hd168238168491%_ + _%tl168239168493%_ + _%e168240168496%_ + _%hd168241168499%_ + _%tl168242168501%_ + _%e168243168504%_ + _%hd168244168507%_ + _%tl168245168509%_) + (let ((_%g168235168512%_ + _%hd168244168507%_) + (_%g168236168513%_ + _%hd168241168499%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L164894%_)) + _%g168236168513%_)) (gxc#case-lambda-expr? - _%L164893%_)) - (_%__kont179327179328%_ - _%L164893%_ - _%L164894%_) - (_%__match179376179377%_ - _%e164618164869%_ - _%hd164619164872%_ - _%tl164620164874%_ - _%e164621164877%_ - _%hd164622164880%_ - _%tl164623164882%_ - _%e164624164885%_ - _%hd164625164888%_ - _%tl164626164890%_)))))) + _%g168235168512%_)) + (_%__kont182871182872%_ + _%g168235168512%_ + _%g168236168513%_) + (_%__match182920182921%_ + _%e168237168488%_ + _%hd168238168491%_ + _%tl168239168493%_ + _%e168240168496%_ + _%hd168241168499%_ + _%tl168242168501%_ + _%e168243168504%_ + _%hd168244168507%_ + _%tl168245168509%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx179325179326%_)) - (let ((_%e164618164869%_ + _%__stx182869182870%_)) + (let ((_%e168237168488%_ (let () (declare (not safe)) (gx#stx-e - _%__stx179325179326%_)))) - (let ((_%tl164620164874%_ + _%__stx182869182870%_)))) + (let ((_%tl168239168493%_ (let () (declare (not safe)) - (##cdr _%e164618164869%_))) - (_%hd164619164872%_ + (##cdr _%e168237168488%_))) + (_%hd168238168491%_ (let () (declare (not safe)) - (##car _%e164618164869%_)))) + (##car _%e168237168488%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd164619164872%_)) - (let ((_%e164621164877%_ + _%hd168238168491%_)) + (let ((_%e168240168496%_ (let () (declare (not safe)) (gx#stx-e - _%hd164619164872%_)))) - (let ((_%tl164623164882%_ + _%hd168238168491%_)))) + (let ((_%tl168242168501%_ (let () (declare (not safe)) - (##cdr _%e164621164877%_))) - (_%hd164622164880%_ + (##cdr _%e168240168496%_))) + (_%hd168241168499%_ (let () (declare (not safe)) - (##car _%e164621164877%_)))) + (##car _%e168240168496%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164623164882%_)) + _%tl168242168501%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl164620164874%_)) - (let ((_%e164624164885%_ + (gx#stx-pair? _%tl168239168493%_)) + (let ((_%e168243168504%_ (let () (declare (not safe)) - (gx#stx-e _%tl164620164874%_)))) - (let ((_%tl164626164890%_ + (gx#stx-e _%tl168239168493%_)))) + (let ((_%tl168245168509%_ (let () (declare (not safe)) - (##cdr _%e164624164885%_))) - (_%hd164625164888%_ + (##cdr _%e168243168504%_))) + (_%hd168244168507%_ (let () (declare (not safe)) - (##car _%e164624164885%_)))) + (##car _%e168243168504%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164626164890%_)) - (_%__match179354179355%_ - _%e164618164869%_ - _%hd164619164872%_ - _%tl164620164874%_ - _%e164621164877%_ - _%hd164622164880%_ - _%tl164623164882%_ - _%e164624164885%_ - _%hd164625164888%_ - _%tl164626164890%_) + (gx#stx-null? _%tl168245168509%_)) + (_%__match182898182899%_ + _%e168237168488%_ + _%hd168238168491%_ + _%tl168239168493%_ + _%e168240168496%_ + _%hd168241168499%_ + _%tl168242168501%_ + _%e168243168504%_ + _%hd168244168507%_ + _%tl168245168509%_) (let () (declare (not safe)) - (_%g164614164650%_))))) - (let () (declare (not safe)) (_%g164614164650%_))) + (_%g168233168269%_))))) + (let () (declare (not safe)) (_%g168233168269%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164620164874%_)) - (let ((_%e164643164663%_ + (gx#stx-pair? _%tl168239168493%_)) + (let ((_%e168262168282%_ (let () (declare (not safe)) - (gx#stx-e _%tl164620164874%_)))) - (let ((_%tl164645164668%_ + (gx#stx-e _%tl168239168493%_)))) + (let ((_%tl168264168287%_ (let () (declare (not safe)) - (##cdr _%e164643164663%_))) - (_%hd164644164666%_ + (##cdr _%e168262168282%_))) + (_%hd168263168285%_ (let () (declare (not safe)) - (##car _%e164643164663%_)))) + (##car _%e168262168282%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164645164668%_)) - (_%__kont179331179332%_ - _%hd164644164666%_ - _%hd164619164872%_) + (gx#stx-null? _%tl168264168287%_)) + (_%__kont182875182876%_ + _%hd168263168285%_ + _%hd168238168491%_) (let () (declare (not safe)) - (_%g164614164650%_))))) - (let () (declare (not safe)) (_%g164614164650%_)))))) + (_%g168233168269%_))))) + (let () (declare (not safe)) (_%g168233168269%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164620164874%_)) - (let ((_%e164643164663%_ + _%tl168239168493%_)) + (let ((_%e168262168282%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl164620164874%_)))) - (let ((_%tl164645164668%_ + (gx#stx-e _%tl168239168493%_)))) + (let ((_%tl168264168287%_ (let () (declare (not safe)) - (##cdr _%e164643164663%_))) - (_%hd164644164666%_ + (##cdr _%e168262168282%_))) + (_%hd168263168285%_ (let () (declare (not safe)) - (##car _%e164643164663%_)))) + (##car _%e168262168282%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164645164668%_)) - (_%__kont179331179332%_ - _%hd164644164666%_ - _%hd164619164872%_) - (let () (declare (not safe)) (_%g164614164650%_))))) - (let () (declare (not safe)) (_%g164614164650%_)))))) + (gx#stx-null? _%tl168264168287%_)) + (_%__kont182875182876%_ + _%hd168263168285%_ + _%hd168238168491%_) + (let () (declare (not safe)) (_%g168233168269%_))))) + (let () (declare (not safe)) (_%g168233168269%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g164614164650%_))))))))) - (if (pair? _%rest164590164598%_) - (let ((_%hd164595164990%_ + (_%g168233168269%_))))))))) + (if (pair? _%rest168209168217%_) + (let ((_%hd168214168609%_ (let () (declare (not safe)) - (##car _%rest164590164598%_))) - (_%tl164596164992%_ + (##car _%rest168209168217%_))) + (_%tl168215168611%_ (let () (declare (not safe)) - (##cdr _%rest164590164598%_)))) - (let* ((_%hd164995%_ _%hd164595164990%_) - (_%rest164997%_ _%tl164596164992%_)) - (_%K164594164987%_ - _%rest164997%_ - _%hd164995%_))) - (_%else164592164606%_)))))) - (_%lift-kw-lambda?163948%_ - (lambda (_%bind164506%_) - (let* ((_%__stx179393179394%_ _%bind164506%_) - (_%g164509164526%_ + (##cdr _%rest168209168217%_)))) + (let* ((_%hd168614%_ _%hd168214168609%_) + (_%rest168616%_ _%tl168215168611%_)) + (_%K168213168606%_ + _%rest168616%_ + _%hd168614%_))) + (_%else168211168225%_)))))) + (_%lift-kw-lambda?167569%_ + (lambda (_%bind168125%_) + (let* ((_%__stx182937182938%_ _%bind168125%_) + (_%g168128168145%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx179393179394%_))))) - (let ((_%__kont179395179396%_ - (lambda (_%L164562%_ _%L164563%_) + _%__stx182937182938%_))))) + (let ((_%__kont182939182940%_ + (lambda (_%g168130168181%_ _%g168131168182%_) (if (let () (declare (not safe)) - (gx#identifier? _%L164563%_)) - (gxc#kw-lambda-expr? _%L164562%_) + (gx#identifier? _%g168131168182%_)) + (gxc#kw-lambda-expr? _%g168130168181%_) '#f))) - (_%__kont179397179398%_ (lambda () '#f))) + (_%__kont182941182942%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx179393179394%_)) - (let ((_%e164513164538%_ + (gx#stx-pair? _%__stx182937182938%_)) + (let ((_%e168132168157%_ (let () (declare (not safe)) - (gx#stx-e _%__stx179393179394%_)))) - (let ((_%tl164515164543%_ + (gx#stx-e _%__stx182937182938%_)))) + (let ((_%tl168134168162%_ (let () (declare (not safe)) - (##cdr _%e164513164538%_))) - (_%hd164514164541%_ + (##cdr _%e168132168157%_))) + (_%hd168133168160%_ (let () (declare (not safe)) - (##car _%e164513164538%_)))) + (##car _%e168132168157%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164514164541%_)) - (let ((_%e164516164546%_ + (gx#stx-pair? _%hd168133168160%_)) + (let ((_%e168135168165%_ (let () (declare (not safe)) - (gx#stx-e _%hd164514164541%_)))) - (let ((_%tl164518164551%_ + (gx#stx-e _%hd168133168160%_)))) + (let ((_%tl168137168170%_ (let () (declare (not safe)) - (##cdr _%e164516164546%_))) - (_%hd164517164549%_ + (##cdr _%e168135168165%_))) + (_%hd168136168168%_ (let () (declare (not safe)) - (##car _%e164516164546%_)))) + (##car _%e168135168165%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164518164551%_)) + _%tl168137168170%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164515164543%_)) - (let ((_%e164519164554%_ + _%tl168134168162%_)) + (let ((_%e168138168173%_ (let () (declare (not safe)) (gx#stx-e - _%tl164515164543%_)))) - (let ((_%tl164521164559%_ + _%tl168134168162%_)))) + (let ((_%tl168140168178%_ (let () (declare (not safe)) - (##cdr _%e164519164554%_))) - (_%hd164520164557%_ + (##cdr _%e168138168173%_))) + (_%hd168139168176%_ (let () (declare (not safe)) - (##car _%e164519164554%_)))) + (##car _%e168138168173%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164521164559%_)) - (_%__kont179395179396%_ - _%hd164520164557%_ - _%hd164517164549%_) - (_%__kont179397179398%_)))) - (_%__kont179397179398%_)) - (_%__kont179397179398%_)))) - (_%__kont179397179398%_)))) - (_%__kont179397179398%_)))))) - (_%lift-kw-lambda-bindings163949%_ - (lambda (_%bindings164116%_) - (let _%lp164118%_ ((_%rest164120%_ _%bindings164116%_) - (_%lift1164121%_ '()) - (_%lift2164122%_ '()) - (_%bind164123%_ '())) - (let* ((_%rest164124164132%_ _%rest164120%_) - (_%else164126164140%_ + _%tl168140168178%_)) + (_%__kont182939182940%_ + _%hd168139168176%_ + _%hd168136168168%_) + (_%__kont182941182942%_)))) + (_%__kont182941182942%_)) + (_%__kont182941182942%_)))) + (_%__kont182941182942%_)))) + (_%__kont182941182942%_)))))) + (_%lift-kw-lambda-bindings167570%_ + (lambda (_%bindings167735%_) + (let _%lp167737%_ ((_%rest167739%_ _%bindings167735%_) + (_%lift1167740%_ '()) + (_%lift2167741%_ '()) + (_%bind167742%_ '())) + (let* ((_%rest167743167751%_ _%rest167739%_) + (_%else167745167759%_ (lambda () - (values (reverse _%lift1164121%_) - (reverse _%lift2164122%_) - (reverse _%bind164123%_)))) - (_%K164128164494%_ - (lambda (_%rest164143%_ _%hd164144%_) - (let* ((_%__stx179423179424%_ _%hd164144%_) - (_%g164147164172%_ + (values (reverse _%lift1167740%_) + (reverse _%lift2167741%_) + (reverse _%bind167742%_)))) + (_%K167747168113%_ + (lambda (_%rest167762%_ _%hd167763%_) + (let* ((_%__stx182967182968%_ _%hd167763%_) + (_%g167766167791%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx179423179424%_))))) - (let ((_%__kont179425179426%_ - (lambda (_%L164242%_ _%L164243%_) - (let* ((_%g164257164310%_ - (lambda (_%g164258164307%_) + _%__stx182967182968%_))))) + (let ((_%__kont182969182970%_ + (lambda (_%g167768167861%_ + _%g167769167862%_) + (let* ((_%g167876167929%_ + (lambda (_%g167877167926%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164258164307%_)))) - (_%g164256164488%_ - (lambda (_%g164258164313%_) + _%g167877167926%_)))) + (_%g167875168107%_ + (lambda (_%g167877167932%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g164258164313%_)) - (let ((_%e164264164315%_ + _%g167877167932%_)) + (let ((_%e167883167934%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g164258164313%_)))) - (let ((_%hd164265164318%_ + (gx#stx-e _%g167877167932%_)))) + (let ((_%hd167884167937%_ (let () (declare (not safe)) - (##car _%e164264164315%_))) - (_%tl164266164320%_ + (##car _%e167883167934%_))) + (_%tl167885167939%_ (let () (declare (not safe)) - (##cdr _%e164264164315%_)))) + (##cdr _%e167883167934%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164266164320%_)) - (let ((_%e164267164323%_ + (gx#stx-pair? _%tl167885167939%_)) + (let ((_%e167886167942%_ (let () (declare (not safe)) - (gx#stx-e _%tl164266164320%_)))) - (let ((_%hd164268164326%_ + (gx#stx-e _%tl167885167939%_)))) + (let ((_%hd167887167945%_ (let () (declare (not safe)) - (##car _%e164267164323%_))) - (_%tl164269164328%_ + (##car _%e167886167942%_))) + (_%tl167888167947%_ (let () (declare (not safe)) - (##cdr _%e164267164323%_)))) + (##cdr _%e167886167942%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164268164326%_)) - (let ((_%e164270164331%_ + (gx#stx-pair? _%hd167887167945%_)) + (let ((_%e167889167950%_ (let () (declare (not safe)) - (gx#stx-e _%hd164268164326%_)))) - (let ((_%hd164271164334%_ + (gx#stx-e _%hd167887167945%_)))) + (let ((_%hd167890167953%_ (let () (declare (not safe)) - (##car _%e164270164331%_))) - (_%tl164272164336%_ + (##car _%e167889167950%_))) + (_%tl167891167955%_ (let () (declare (not safe)) - (##cdr _%e164270164331%_)))) + (##cdr _%e167889167950%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164271164334%_)) - (let ((_%e164273164339%_ + (gx#stx-pair? _%hd167890167953%_)) + (let ((_%e167892167958%_ (let () (declare (not safe)) (gx#stx-e - _%hd164271164334%_)))) - (let ((_%hd164274164342%_ + _%hd167890167953%_)))) + (let ((_%hd167893167961%_ (let () (declare (not safe)) - (##car _%e164273164339%_))) - (_%tl164275164344%_ + (##car _%e167892167958%_))) + (_%tl167894167963%_ (let () (declare (not safe)) - (##cdr _%e164273164339%_)))) + (##cdr _%e167892167958%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd164274164342%_)) - (let ((_%e164276164347%_ + _%hd167893167961%_)) + (let ((_%e167895167966%_ (let () (declare (not safe)) (gx#stx-e - _%hd164274164342%_)))) - (let ((_%hd164277164350%_ + _%hd167893167961%_)))) + (let ((_%hd167896167969%_ (let () (declare (not safe)) - (##car _%e164276164347%_))) - (_%tl164278164352%_ + (##car _%e167895167966%_))) + (_%tl167897167971%_ (let () (declare (not safe)) - (##cdr _%e164276164347%_)))) + (##cdr _%e167895167966%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164278164352%_)) + _%tl167897167971%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl164275164344%_)) - (let ((_%e164279164355%_ + (gx#stx-pair? _%tl167894167963%_)) + (let ((_%e167898167974%_ (let () (declare (not safe)) - (gx#stx-e _%tl164275164344%_)))) - (let ((_%hd164280164358%_ + (gx#stx-e _%tl167894167963%_)))) + (let ((_%hd167899167977%_ (let () (declare (not safe)) - (##car _%e164279164355%_))) - (_%tl164281164360%_ + (##car _%e167898167974%_))) + (_%tl167900167979%_ (let () (declare (not safe)) - (##cdr _%e164279164355%_)))) + (##cdr _%e167898167974%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164280164358%_)) - (let ((_%e164282164363%_ + (gx#stx-pair? _%hd167899167977%_)) + (let ((_%e167901167982%_ (let () (declare (not safe)) - (gx#stx-e _%hd164280164358%_)))) - (let ((_%hd164283164366%_ + (gx#stx-e _%hd167899167977%_)))) + (let ((_%hd167902167985%_ (let () (declare (not safe)) - (##car _%e164282164363%_))) - (_%tl164284164368%_ + (##car _%e167901167982%_))) + (_%tl167903167987%_ (let () (declare (not safe)) - (##cdr _%e164282164363%_)))) + (##cdr _%e167901167982%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164284164368%_)) - (let ((_%e164285164371%_ + (gx#stx-pair? _%tl167903167987%_)) + (let ((_%e167904167990%_ (let () (declare (not safe)) - (gx#stx-e _%tl164284164368%_)))) - (let ((_%hd164286164374%_ + (gx#stx-e _%tl167903167987%_)))) + (let ((_%hd167905167993%_ (let () (declare (not safe)) - (##car _%e164285164371%_))) - (_%tl164287164376%_ + (##car _%e167904167990%_))) + (_%tl167906167995%_ (let () (declare (not safe)) - (##cdr _%e164285164371%_)))) + (##cdr _%e167904167990%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd164286164374%_)) - (let ((_%e164288164379%_ + _%hd167905167993%_)) + (let ((_%e167907167998%_ (let () (declare (not safe)) (gx#stx-e - _%hd164286164374%_)))) - (let ((_%hd164289164382%_ + _%hd167905167993%_)))) + (let ((_%hd167908168001%_ (let () (declare (not safe)) - (##car _%e164288164379%_))) - (_%tl164290164384%_ + (##car _%e167907167998%_))) + (_%tl167909168003%_ (let () (declare (not safe)) - (##cdr _%e164288164379%_)))) + (##cdr _%e167907167998%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd164289164382%_)) - (let ((_%e164291164387%_ + _%hd167908168001%_)) + (let ((_%e167910168006%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd164289164382%_)))) - (let ((_%hd164292164390%_ - (let () (declare (not safe)) (##car _%e164291164387%_))) - (_%tl164293164392%_ + (gx#stx-e _%hd167908168001%_)))) + (let ((_%hd167911168009%_ + (let () (declare (not safe)) (##car _%e167910168006%_))) + (_%tl167912168011%_ (let () (declare (not safe)) - (##cdr _%e164291164387%_)))) + (##cdr _%e167910168006%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164292164390%_)) - (let ((_%e164294164395%_ + (gx#stx-pair? _%hd167911168009%_)) + (let ((_%e167913168014%_ (let () (declare (not safe)) - (gx#stx-e _%hd164292164390%_)))) - (let ((_%hd164295164398%_ + (gx#stx-e _%hd167911168009%_)))) + (let ((_%hd167914168017%_ (let () (declare (not safe)) - (##car _%e164294164395%_))) - (_%tl164296164400%_ + (##car _%e167913168014%_))) + (_%tl167915168019%_ (let () (declare (not safe)) - (##cdr _%e164294164395%_)))) + (##cdr _%e167913168014%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164296164400%_)) + (gx#stx-null? _%tl167915168019%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164293164392%_)) - (let ((_%e164297164403%_ + (gx#stx-pair? _%tl167912168011%_)) + (let ((_%e167916168022%_ (let () (declare (not safe)) - (gx#stx-e _%tl164293164392%_)))) - (let ((_%hd164298164406%_ + (gx#stx-e _%tl167912168011%_)))) + (let ((_%hd167917168025%_ (let () (declare (not safe)) - (##car _%e164297164403%_))) - (_%tl164299164408%_ + (##car _%e167916168022%_))) + (_%tl167918168027%_ (let () (declare (not safe)) - (##cdr _%e164297164403%_)))) + (##cdr _%e167916168022%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164299164408%_)) + (gx#stx-null? _%tl167918168027%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164290164384%_)) + _%tl167909168003%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164287164376%_)) - (let ((_%e164300164411%_ + _%tl167906167995%_)) + (let ((_%e167919168030%_ (let () (declare (not safe)) (gx#stx-e - _%tl164287164376%_)))) - (let ((_%hd164301164414%_ + _%tl167906167995%_)))) + (let ((_%hd167920168033%_ (let () (declare (not safe)) - (##car _%e164300164411%_))) - (_%tl164302164416%_ + (##car _%e167919168030%_))) + (_%tl167921168035%_ (let () (declare (not safe)) - (##cdr _%e164300164411%_)))) + (##cdr _%e167919168030%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164302164416%_)) + _%tl167921168035%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl164281164360%_)) + (gx#stx-null? _%tl167900167979%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164272164336%_)) + (gx#stx-null? _%tl167891167955%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164269164328%_)) - (let ((_%e164303164419%_ + (gx#stx-pair? _%tl167888167947%_)) + (let ((_%e167922168038%_ (let () (declare (not safe)) - (gx#stx-e _%tl164269164328%_)))) - (let ((_%hd164304164422%_ + (gx#stx-e _%tl167888167947%_)))) + (let ((_%hd167923168041%_ (let () (declare (not safe)) - (##car _%e164303164419%_))) - (_%tl164305164424%_ + (##car _%e167922168038%_))) + (_%tl167924168043%_ (let () (declare (not safe)) - (##cdr _%e164303164419%_)))) + (##cdr _%e167922168038%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164305164424%_)) - ((lambda (_%L164427%_ - _%L164428%_ - _%L164429%_ - _%L164430%_ - _%L164431%_) - (let* ((_%get-kws-id164471%_ - (let ((__tmp180019 + (gx#stx-null? _%tl167924168043%_)) + ((lambda (_%g167878168046%_ + _%g167879168047%_ + _%g167880168048%_ + _%g167881168049%_ + _%g167882168050%_) + (let* ((_%get-kws-id168090%_ + (let ((__tmp183563 (let () (declare (not safe)) (gx#stx-e - _%L164243%_))) - (__tmp180018 + _%g167769167862%_))) + (__tmp183562 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp180019 - __tmp180018))) - (_%get-kws-id164473%_ - (let ((__tmp180020 + __tmp183563 + __tmp183562))) + (_%get-kws-id168092%_ + (let ((__tmp183564 (let () (declare (not safe)) (gx#stx-source - _%stx163944%_)))) + _%stx167565%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id164471%_ - __tmp180020))) - (_%main-id164475%_ - (let ((__tmp180022 + _%get-kws-id168090%_ + __tmp183564))) + (_%main-id168094%_ + (let ((__tmp183566 (let () (declare (not safe)) (gx#stx-e - _%L164243%_))) - (__tmp180021 + _%g167769167862%_))) + (__tmp183565 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp180022 - __tmp180021))) - (_%main-id164477%_ - (let ((__tmp180023 + __tmp183566 + __tmp183565))) + (_%main-id168096%_ + (let ((__tmp183567 (let () (declare (not safe)) (gx#stx-source - _%stx163944%_)))) + _%stx167565%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id164475%_ - __tmp180023))) - (_%_164479%_ + _%main-id168094%_ + __tmp183567))) + (_%_168098%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%get-kws-id164473%_))) - (_%_164481%_ + _%get-kws-id168092%_))) + (_%_168100%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%main-id164477%_))) - (_%new-kw-dispatch164483%_ + _%main-id168096%_))) + (_%new-kw-dispatch168102%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L164431%_ - _%get-kws-id164473%_ - _%L164427%_))) - (_%new-get-kws164485%_ + _%g167882168050%_ + _%get-kws-id168092%_ + _%g167878168046%_))) + (_%new-get-kws168104%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L164430%_ - _%main-id164477%_ - _%L164428%_)))) - (let ((__tmp180026 + _%g167881168049%_ + _%main-id168096%_ + _%g167879168047%_)))) + (let ((__tmp183570 (let () (declare (not safe)) (gxc#identifier-symbol - _%L164243%_))) - (__tmp180025 + _%g167769167862%_))) + (__tmp183569 (let () (declare (not safe)) (gxc#identifier-symbol - _%get-kws-id164473%_))) - (__tmp180024 + _%get-kws-id168092%_))) + (__tmp183568 (let () (declare (not safe)) (gxc#identifier-symbol - _%main-id164477%_)))) + _%main-id168096%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp180026 + __tmp183570 '" => " - __tmp180025 + __tmp183569 '" => " - __tmp180024)) - (_%lp164118%_ - _%rest164143%_ - (cons (_%bind-e__176668176669%_ - _%main-id164477%_ - _%L164429%_ + __tmp183568)) + (_%lp167737%_ + _%rest167762%_ + (cons (_%bind-e__180212180213%_ + _%main-id168096%_ + _%g167880168048%_ '#f) - _%lift1164121%_) - (cons (_%bind-e__176668176669%_ - _%get-kws-id164473%_ - _%new-get-kws164485%_ + _%lift1167740%_) + (cons (_%bind-e__180212180213%_ + _%get-kws-id168092%_ + _%new-get-kws168104%_ '#f) - _%lift2164122%_) - (cons (_%bind-e__176668176669%_ - _%L164243%_ - _%new-kw-dispatch164483%_ + _%lift2167741%_) + (cons (_%bind-e__180212180213%_ + _%g167769167862%_ + _%new-kw-dispatch168102%_ '#f) - _%bind164123%_)))) - _%hd164304164422%_ - _%hd164301164414%_ - _%hd164298164406%_ - _%hd164295164398%_ - _%hd164277164350%_) - (_%g164257164310%_ _%g164258164313%_)))) - (_%g164257164310%_ _%g164258164313%_)) - (_%g164257164310%_ _%g164258164313%_)) - (_%g164257164310%_ _%g164258164313%_)) - (_%g164257164310%_ _%g164258164313%_)))) + _%bind167742%_)))) + _%hd167923168041%_ + _%hd167920168033%_ + _%hd167917168025%_ + _%hd167914168017%_ + _%hd167896167969%_) + (_%g167876167929%_ _%g167877167932%_)))) + (_%g167876167929%_ _%g167877167932%_)) + (_%g167876167929%_ _%g167877167932%_)) + (_%g167876167929%_ _%g167877167932%_)) + (_%g167876167929%_ _%g167877167932%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g164257164310%_ - _%g164258164313%_)) - (_%g164257164310%_ - _%g164258164313%_)) - (_%g164257164310%_ - _%g164258164313%_)))) - (_%g164257164310%_ _%g164258164313%_)) - (_%g164257164310%_ _%g164258164313%_)))) - (_%g164257164310%_ _%g164258164313%_)))) - (_%g164257164310%_ _%g164258164313%_)))) + (_%g167876167929%_ + _%g167877167932%_)) + (_%g167876167929%_ + _%g167877167932%_)) + (_%g167876167929%_ + _%g167877167932%_)))) + (_%g167876167929%_ _%g167877167932%_)) + (_%g167876167929%_ _%g167877167932%_)))) + (_%g167876167929%_ _%g167877167932%_)))) + (_%g167876167929%_ _%g167877167932%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g164257164310%_ - _%g164258164313%_)))) - (_%g164257164310%_ _%g164258164313%_)))) - (_%g164257164310%_ _%g164258164313%_)))) - (_%g164257164310%_ _%g164258164313%_)) - (_%g164257164310%_ _%g164258164313%_)))) + (_%g167876167929%_ + _%g167877167932%_)))) + (_%g167876167929%_ _%g167877167932%_)))) + (_%g167876167929%_ _%g167877167932%_)))) + (_%g167876167929%_ _%g167877167932%_)) + (_%g167876167929%_ _%g167877167932%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g164257164310%_ - _%g164258164313%_)))) - (_%g164257164310%_ - _%g164258164313%_)))) - (_%g164257164310%_ _%g164258164313%_)))) - (_%g164257164310%_ _%g164258164313%_)))) - (_%g164257164310%_ _%g164258164313%_))))) + (_%g167876167929%_ + _%g167877167932%_)))) + (_%g167876167929%_ + _%g167877167932%_)))) + (_%g167876167929%_ _%g167877167932%_)))) + (_%g167876167929%_ _%g167877167932%_)))) + (_%g167876167929%_ _%g167877167932%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g164256164488%_ - _%L164242%_)))) - (_%__kont179427179428%_ - (lambda (_%L164193%_ _%L164194%_) - (_%lp164118%_ - _%rest164143%_ - _%lift1164121%_ - _%lift2164122%_ - (cons (cons _%L164194%_ - (cons _%L164193%_ + (_%g167875168107%_ + _%g167768167861%_)))) + (_%__kont182971182972%_ + (lambda (_%g167779167812%_ + _%g167780167813%_) + (_%lp167737%_ + _%rest167762%_ + _%lift1167740%_ + _%lift2167741%_ + (cons (cons _%g167780167813%_ + (cons _%g167779167812%_ '())) - _%bind164123%_))))) - (let ((_%__match179450179451%_ - (lambda (_%e164151164218%_ - _%hd164152164221%_ - _%tl164153164223%_ - _%e164154164226%_ - _%hd164155164229%_ - _%tl164156164231%_ - _%e164157164234%_ - _%hd164158164237%_ - _%tl164159164239%_) - (let ((_%L164242%_ - _%hd164158164237%_) - (_%L164243%_ - _%hd164155164229%_)) + _%bind167742%_))))) + (let ((_%__match182994182995%_ + (lambda (_%e167770167837%_ + _%hd167771167840%_ + _%tl167772167842%_ + _%e167773167845%_ + _%hd167774167848%_ + _%tl167775167850%_ + _%e167776167853%_ + _%hd167777167856%_ + _%tl167778167858%_) + (let ((_%g167768167861%_ + _%hd167777167856%_) + (_%g167769167862%_ + _%hd167774167848%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L164243%_)) + _%g167769167862%_)) (gxc#kw-lambda-expr? - _%L164242%_)) - (_%__kont179425179426%_ - _%L164242%_ - _%L164243%_) - (_%__kont179427179428%_ - _%hd164158164237%_ - _%hd164152164221%_)))))) + _%g167768167861%_)) + (_%__kont182969182970%_ + _%g167768167861%_ + _%g167769167862%_) + (_%__kont182971182972%_ + _%hd167777167856%_ + _%hd167771167840%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx179423179424%_)) - (let ((_%e164151164218%_ + _%__stx182967182968%_)) + (let ((_%e167770167837%_ (let () (declare (not safe)) (gx#stx-e - _%__stx179423179424%_)))) - (let ((_%tl164153164223%_ + _%__stx182967182968%_)))) + (let ((_%tl167772167842%_ (let () (declare (not safe)) - (##cdr _%e164151164218%_))) - (_%hd164152164221%_ + (##cdr _%e167770167837%_))) + (_%hd167771167840%_ (let () (declare (not safe)) - (##car _%e164151164218%_)))) + (##car _%e167770167837%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd164152164221%_)) - (let ((_%e164154164226%_ + _%hd167771167840%_)) + (let ((_%e167773167845%_ (let () (declare (not safe)) (gx#stx-e - _%hd164152164221%_)))) - (let ((_%tl164156164231%_ + _%hd167771167840%_)))) + (let ((_%tl167775167850%_ (let () (declare (not safe)) - (##cdr _%e164154164226%_))) - (_%hd164155164229%_ + (##cdr _%e167773167845%_))) + (_%hd167774167848%_ (let () (declare (not safe)) - (##car _%e164154164226%_)))) + (##car _%e167773167845%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164156164231%_)) + _%tl167775167850%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl164153164223%_)) - (let ((_%e164157164234%_ + (gx#stx-pair? _%tl167772167842%_)) + (let ((_%e167776167853%_ (let () (declare (not safe)) - (gx#stx-e _%tl164153164223%_)))) - (let ((_%tl164159164239%_ + (gx#stx-e _%tl167772167842%_)))) + (let ((_%tl167778167858%_ (let () (declare (not safe)) - (##cdr _%e164157164234%_))) - (_%hd164158164237%_ + (##cdr _%e167776167853%_))) + (_%hd167777167856%_ (let () (declare (not safe)) - (##car _%e164157164234%_)))) + (##car _%e167776167853%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164159164239%_)) - (_%__match179450179451%_ - _%e164151164218%_ - _%hd164152164221%_ - _%tl164153164223%_ - _%e164154164226%_ - _%hd164155164229%_ - _%tl164156164231%_ - _%e164157164234%_ - _%hd164158164237%_ - _%tl164159164239%_) + (gx#stx-null? _%tl167778167858%_)) + (_%__match182994182995%_ + _%e167770167837%_ + _%hd167771167840%_ + _%tl167772167842%_ + _%e167773167845%_ + _%hd167774167848%_ + _%tl167775167850%_ + _%e167776167853%_ + _%hd167777167856%_ + _%tl167778167858%_) (let () (declare (not safe)) - (_%g164147164172%_))))) - (let () (declare (not safe)) (_%g164147164172%_))) + (_%g167766167791%_))))) + (let () (declare (not safe)) (_%g167766167791%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164153164223%_)) - (let ((_%e164165164185%_ + (gx#stx-pair? _%tl167772167842%_)) + (let ((_%e167784167804%_ (let () (declare (not safe)) - (gx#stx-e _%tl164153164223%_)))) - (let ((_%tl164167164190%_ + (gx#stx-e _%tl167772167842%_)))) + (let ((_%tl167786167809%_ (let () (declare (not safe)) - (##cdr _%e164165164185%_))) - (_%hd164166164188%_ + (##cdr _%e167784167804%_))) + (_%hd167785167807%_ (let () (declare (not safe)) - (##car _%e164165164185%_)))) + (##car _%e167784167804%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164167164190%_)) - (_%__kont179427179428%_ - _%hd164166164188%_ - _%hd164152164221%_) + (gx#stx-null? _%tl167786167809%_)) + (_%__kont182971182972%_ + _%hd167785167807%_ + _%hd167771167840%_) (let () (declare (not safe)) - (_%g164147164172%_))))) - (let () (declare (not safe)) (_%g164147164172%_)))))) + (_%g167766167791%_))))) + (let () (declare (not safe)) (_%g167766167791%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164153164223%_)) - (let ((_%e164165164185%_ + _%tl167772167842%_)) + (let ((_%e167784167804%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl164153164223%_)))) - (let ((_%tl164167164190%_ + (gx#stx-e _%tl167772167842%_)))) + (let ((_%tl167786167809%_ (let () (declare (not safe)) - (##cdr _%e164165164185%_))) - (_%hd164166164188%_ + (##cdr _%e167784167804%_))) + (_%hd167785167807%_ (let () (declare (not safe)) - (##car _%e164165164185%_)))) + (##car _%e167784167804%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164167164190%_)) - (_%__kont179427179428%_ - _%hd164166164188%_ - _%hd164152164221%_) - (let () (declare (not safe)) (_%g164147164172%_))))) - (let () (declare (not safe)) (_%g164147164172%_)))))) + (gx#stx-null? _%tl167786167809%_)) + (_%__kont182971182972%_ + _%hd167785167807%_ + _%hd167771167840%_) + (let () (declare (not safe)) (_%g167766167791%_))))) + (let () (declare (not safe)) (_%g167766167791%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g164147164172%_))))))))) - (if (pair? _%rest164124164132%_) - (let ((_%hd164129164497%_ + (_%g167766167791%_))))))))) + (if (pair? _%rest167743167751%_) + (let ((_%hd167748168116%_ (let () (declare (not safe)) - (##car _%rest164124164132%_))) - (_%tl164130164499%_ + (##car _%rest167743167751%_))) + (_%tl167749168118%_ (let () (declare (not safe)) - (##cdr _%rest164124164132%_)))) - (let* ((_%hd164502%_ _%hd164129164497%_) - (_%rest164504%_ _%tl164130164499%_)) - (_%K164128164494%_ - _%rest164504%_ - _%hd164502%_))) - (_%else164126164140%_))))))) - (let* ((_%__stx179467179468%_ _%stx163944%_) - (_%g163952163978%_ + (##cdr _%rest167743167751%_)))) + (let* ((_%hd168121%_ _%hd167748168116%_) + (_%rest168123%_ _%tl167749168118%_)) + (_%K167747168113%_ + _%rest168123%_ + _%hd168121%_))) + (_%else167745167759%_))))))) + (let* ((_%__stx183011183012%_ _%stx167565%_) + (_%g167573167599%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx179467179468%_))))) - (let ((_%__kont179469179470%_ - (lambda (_%L164038%_ _%L164039%_) - (let ((__tmp180028 + _%__stx183011183012%_))))) + (let ((_%__kont183013183014%_ + (lambda (_%g167575167657%_ _%g167576167658%_) + (let ((__tmp183572 (lambda () - (if (let ((__tmp180029 - (let ((__tmp180030 - (lambda (_%g164067164070%_ - _%g164068164072%_) - (cons _%g164067164070%_ - _%g164068164072%_)))) + (if (let ((__tmp183573 + (let ((__tmp183574 + (lambda (_%g167686167689%_ + _%g167687167691%_) + (cons _%g167686167689%_ + _%g167687167691%_)))) (declare (not safe)) (__foldr1 - __tmp180030 + __tmp183574 '() - _%L164039%_)))) + _%g167576167658%_)))) (declare (not safe)) (__ormap1 - _%lift-kw-lambda?163948%_ - __tmp180029)) - (let ((_g180031_ - (_%lift-kw-lambda-bindings163949%_ - (let ((__tmp180033 - (lambda (_%g164074164077%_ - _%g164075164079%_) - (cons _%g164074164077%_ - _%g164075164079%_)))) + _%lift-kw-lambda?167569%_ + __tmp183573)) + (let ((_g183575_ + (_%lift-kw-lambda-bindings167570%_ + (let ((__tmp183577 + (lambda (_%g167693167696%_ + _%g167694167698%_) + (cons _%g167693167696%_ + _%g167694167698%_)))) (declare (not safe)) (__foldr1 - __tmp180033 + __tmp183577 '() - _%L164039%_))))) + _%g167576167658%_))))) (begin - (let ((_g180032_ + (let ((_g183576_ (let () (declare (not safe)) - (if (##values? _g180031_) - (##values-length _g180031_) + (if (##values? _g183575_) + (##values-length _g183575_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g180032_ 3))) + (##fx= _g183576_ 3))) (error "Context expects 3 values" - _g180032_))) - (let ((_%lift1164082%_ + _g183576_))) + (let ((_%lift1167701%_ (let () (declare (not safe)) - (##values-ref _g180031_ 0))) - (_%lift2164083%_ + (##values-ref _g183575_ 0))) + (_%lift2167702%_ (let () (declare (not safe)) - (##values-ref _g180031_ 1))) - (_%hd164084%_ + (##values-ref _g183575_ 1))) + (_%hd167703%_ (let () (declare (not safe)) - (##values-ref _g180031_ 2)))) - (let* ((_%expr164086%_ - (let ((__tmp180034 + (##values-ref _g183575_ 2)))) + (let* ((_%expr167705%_ + (let ((__tmp183578 (cons '%#let-values - (cons _%hd164084%_ + (cons _%hd167703%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L164038%_ '()))))) + (cons _%g167575167657%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp180034 - _%stx163944%_))) - (_%expr164088%_ - (let ((__tmp180035 + __tmp183578 + _%stx167565%_))) + (_%expr167707%_ + (let ((__tmp183579 (cons '%#let-values - (cons _%lift2164083%_ + (cons _%lift2167702%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr164086%_ '()))))) + (cons _%expr167705%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp180035 - _%stx163944%_))) - (_%expr164090%_ - (let ((__tmp180036 + __tmp183579 + _%stx167565%_))) + (_%expr167709%_ + (let ((__tmp183580 (cons '%#let-values - (cons _%lift1164082%_ + (cons _%lift1167701%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr164088%_ '()))))) + (cons _%expr167707%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp180036 - _%stx163944%_)))) + __tmp183580 + _%stx167565%_)))) (gxc#lift-top-lambda-let-values% - _%self163943%_ - _%expr164090%_))))) - (let ((_g180037_ - (_%compile-bindings163947%_ - (let ((__tmp180039 - (lambda (_%g164092164095%_ - _%g164093164097%_) - (cons _%g164092164095%_ - _%g164093164097%_)))) + _%self167564%_ + _%expr167709%_))))) + (let ((_g183581_ + (_%compile-bindings167568%_ + (let ((__tmp183583 + (lambda (_%g167711167714%_ + _%g167712167716%_) + (cons _%g167711167714%_ + _%g167712167716%_)))) (declare (not safe)) (__foldr1 - __tmp180039 + __tmp183583 '() - _%L164039%_))))) + _%g167576167658%_))))) (begin - (let ((_g180038_ + (let ((_g183582_ (let () (declare (not safe)) - (if (##values? _g180037_) - (##values-length _g180037_) + (if (##values? _g183581_) + (##values-length _g183581_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g180038_ 3))) + (##fx= _g183582_ 3))) (error "Context expects 3 values" - _g180038_))) - (let ((_%lift1164100%_ + _g183582_))) + (let ((_%lift1167719%_ (let () (declare (not safe)) - (##values-ref _g180037_ 0))) - (_%lift2164101%_ + (##values-ref _g183581_ 0))) + (_%lift2167720%_ (let () (declare (not safe)) - (##values-ref _g180037_ 1))) - (_%hd164102%_ + (##values-ref _g183581_ 1))) + (_%hd167721%_ (let () (declare (not safe)) - (##values-ref _g180037_ 2)))) - (let* ((_%body164104%_ + (##values-ref _g183581_ 2)))) + (let* ((_%body167723%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self163943%_ - _%L164038%_))) - (_%expr164106%_ - (let ((__tmp180040 + _%self167564%_ + _%g167575167657%_))) + (_%expr167725%_ + (let ((__tmp183584 (cons '%#let-values - (cons _%hd164102%_ + (cons _%hd167721%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%body164104%_ '()))))) + (cons _%body167723%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp180040 - _%stx163944%_))) - (_%expr164108%_ - (if (null? _%lift2164101%_) - _%expr164106%_ - (let ((__tmp180041 + __tmp183584 + _%stx167565%_))) + (_%expr167727%_ + (if (null? _%lift2167720%_) + _%expr167725%_ + (let ((__tmp183585 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lift2164101%_ (cons _%expr164106%_ '()))))) + (cons _%lift2167720%_ (cons _%expr167725%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp180041 _%stx163944%_)))) + (gxc#xform-wrap-source __tmp183585 _%stx167565%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%expr164110%_ - (if (null? _%lift1164100%_) - _%expr164108%_ - (let ((__tmp180042 + (_%expr167729%_ + (if (null? _%lift1167719%_) + _%expr167727%_ + (let ((__tmp183586 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lift1164100%_ (cons _%expr164108%_ '()))))) + (cons _%lift1167719%_ (cons _%expr167727%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp180042 _%stx163944%_))))) + (gxc#xform-wrap-source __tmp183586 _%stx167565%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%expr164110%_))))))) - (__tmp180027 - (let ((__obj179720 + _%expr167729%_))))))) + (__tmp183571 + (let ((__obj183264 (let () (declare (not safe)) (##structure @@ -23009,278 +23144,279 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj179720)) - __obj179720))) + (gx#local-context:::init!__0 __obj183264)) + __obj183264))) (declare (not safe)) (call-with-parameters__1 - __tmp180028 + __tmp183572 gx#current-expander-context - __tmp180027)))) - (_%__kont179473179474%_ + __tmp183571)))) + (_%__kont183017183018%_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _%self163943%_ _%stx163944%_))))) - (let ((_%__match179494179495%_ - (lambda (_%e163956163990%_ - _%hd163957163993%_ - _%tl163958163995%_ - _%e163959163998%_ - _%hd163960164001%_ - _%tl163961164003%_ - _%__splice179471179472%_ - _%target163962164006%_ - _%tl163964164008%_) - (letrec ((_%loop163965164011%_ - (lambda (_%hd163963164014%_ - _%bind163969164016%_) + (gxc#xform-let-values% _%self167564%_ _%stx167565%_))))) + (let ((_%__match183038183039%_ + (lambda (_%e167577167611%_ + _%hd167578167614%_ + _%tl167579167616%_ + _%e167580167619%_ + _%hd167581167622%_ + _%tl167582167624%_ + _%__splice183015183016%_ + _%target167583167627%_ + _%tl167585167629%_) + (letrec ((_%loop167586167632%_ + (lambda (_%hd167584167635%_ + _%bind167590167637%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163963164014%_)) - (let ((_%e163966164019%_ + (gx#stx-pair? _%hd167584167635%_)) + (let ((_%e167587167639%_ (let () (declare (not safe)) (gx#stx-e - _%hd163963164014%_)))) - (let ((_%lp-tl163968164024%_ + _%hd167584167635%_)))) + (let ((_%lp-tl167589167644%_ (let () (declare (not safe)) - (##cdr _%e163966164019%_))) - (_%lp-hd163967164022%_ + (##cdr _%e167587167639%_))) + (_%lp-hd167588167642%_ (let () (declare (not safe)) - (##car _%e163966164019%_)))) - (_%loop163965164011%_ - _%lp-tl163968164024%_ - (cons _%lp-hd163967164022%_ - _%bind163969164016%_)))) - (let ((_%bind163970164027%_ - (reverse _%bind163969164016%_))) + (##car _%e167587167639%_)))) + (_%loop167586167632%_ + _%lp-tl167589167644%_ + (cons _%lp-hd167588167642%_ + _%bind167590167637%_)))) + (let ((_%bind167591167647%_ + (reverse _%bind167590167637%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163961164003%_)) - (let ((_%e163971164030%_ + _%tl167582167624%_)) + (let ((_%e167592167649%_ (let () (declare (not safe)) (gx#stx-e - _%tl163961164003%_)))) - (let ((_%tl163973164035%_ + _%tl167582167624%_)))) + (let ((_%tl167594167654%_ (let () (declare (not safe)) - (##cdr _%e163971164030%_))) - (_%hd163972164033%_ + (##cdr _%e167592167649%_))) + (_%hd167593167652%_ (let () (declare (not safe)) - (##car _%e163971164030%_)))) + (##car _%e167592167649%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163973164035%_)) - (let ((_%L164038%_ - _%hd163972164033%_) - (_%L164039%_ - _%bind163970164027%_)) - (if (let ((__tmp180043 + _%tl167594167654%_)) + (let ((_%g167575167657%_ + _%hd167593167652%_) + (_%g167576167658%_ + _%bind167591167647%_)) + (if (let ((__tmp183587 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp180044 - (lambda (_%g164059164062%_ _%g164060164064%_) - (cons _%g164059164062%_ - _%g164060164064%_)))) + (let ((__tmp183588 + (lambda (_%g167678167681%_ _%g167679167683%_) + (cons _%g167678167681%_ + _%g167679167683%_)))) (declare (not safe)) - (__foldr1 __tmp180044 '() _%L164039%_)))) + (__foldr1 __tmp183588 '() _%g167576167658%_)))) (declare (not safe)) - (__ormap1 gxc#lift-top-lambda-binding? __tmp180043)) - (_%__kont179469179470%_ _%L164038%_ _%L164039%_) - (_%__kont179473179474%_))) + (__ormap1 gxc#lift-top-lambda-binding? __tmp183587)) + (_%__kont183013183014%_ _%g167575167657%_ _%g167576167658%_) + (_%__kont183017183018%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont179473179474%_)))) - (_%__kont179473179474%_))))))) - (_%loop163965164011%_ _%target163962164006%_ '()))))) + (_%__kont183017183018%_)))) + (_%__kont183017183018%_))))))) + (_%loop167586167632%_ _%target167583167627%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx179467179468%_)) - (let ((_%e163956163990%_ + (gx#stx-pair? _%__stx183011183012%_)) + (let ((_%e167577167611%_ (let () (declare (not safe)) - (gx#stx-e _%__stx179467179468%_)))) - (let ((_%tl163958163995%_ + (gx#stx-e _%__stx183011183012%_)))) + (let ((_%tl167579167616%_ (let () (declare (not safe)) - (##cdr _%e163956163990%_))) - (_%hd163957163993%_ + (##cdr _%e167577167611%_))) + (_%hd167578167614%_ (let () (declare (not safe)) - (##car _%e163956163990%_)))) + (##car _%e167577167611%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163958163995%_)) - (let ((_%e163959163998%_ + (gx#stx-pair? _%tl167579167616%_)) + (let ((_%e167580167619%_ (let () (declare (not safe)) - (gx#stx-e _%tl163958163995%_)))) - (let ((_%tl163961164003%_ + (gx#stx-e _%tl167579167616%_)))) + (let ((_%tl167582167624%_ (let () (declare (not safe)) - (##cdr _%e163959163998%_))) - (_%hd163960164001%_ + (##cdr _%e167580167619%_))) + (_%hd167581167622%_ (let () (declare (not safe)) - (##car _%e163959163998%_)))) + (##car _%e167580167619%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd163960164001%_)) - (let ((_%__splice179471179472%_ + (gx#stx-pair/null? _%hd167581167622%_)) + (let ((_%__splice183015183016%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%hd163960164001%_ + _%hd167581167622%_ '0)))) - (let ((_%tl163964164008%_ + (let ((_%tl167585167629%_ (let () (declare (not safe)) (##vector-ref - _%__splice179471179472%_ + _%__splice183015183016%_ '1))) - (_%target163962164006%_ + (_%target167583167627%_ (let () (declare (not safe)) (##vector-ref - _%__splice179471179472%_ + _%__splice183015183016%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163964164008%_)) - (_%__match179494179495%_ - _%e163956163990%_ - _%hd163957163993%_ - _%tl163958163995%_ - _%e163959163998%_ - _%hd163960164001%_ - _%tl163961164003%_ - _%__splice179471179472%_ - _%target163962164006%_ - _%tl163964164008%_) - (_%__kont179473179474%_)))) - (_%__kont179473179474%_)))) - (_%__kont179473179474%_)))) - (_%__kont179473179474%_)))))))) + _%tl167585167629%_)) + (_%__match183038183039%_ + _%e167577167611%_ + _%hd167578167614%_ + _%tl167579167616%_ + _%e167580167619%_ + _%hd167581167622%_ + _%tl167582167624%_ + _%__splice183015183016%_ + _%target167583167627%_ + _%tl167585167629%_) + (_%__kont183017183018%_)))) + (_%__kont183017183018%_)))) + (_%__kont183017183018%_)))) + (_%__kont183017183018%_)))))))) (define gxc#lift-top-lambda-letrec-values% - (lambda (_%self163082%_ _%stx163083%_) - (letrec* ((_%bind-e__176673176674%_ - (lambda (_%id163927%_ _%expr163928%_ _%compile?163929%_) - (cons (cons _%id163927%_ '()) - (cons (if _%compile?163929%_ + (lambda (_%self166705%_ _%stx166706%_) + (letrec* ((_%bind-e__180217180218%_ + (lambda (_%id167548%_ _%expr167549%_ _%compile?167550%_) + (cons (cons _%id167548%_ '()) + (cons (if _%compile?167550%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self163082%_ - _%expr163928%_)) - _%expr163928%_) + _%self166705%_ + _%expr167549%_)) + _%expr167549%_) '())))) - (_%bind-e__0__176675176676%_ - (lambda (_%id163934%_ _%expr163935%_) - (let ((_%compile?163937%_ '#t)) - (_%bind-e__176673176674%_ - _%id163934%_ - _%expr163935%_ - _%compile?163937%_)))) - (_%bind-e163085%_ - (lambda _g180045_ - (let ((_g180046_ + (_%bind-e__0__180219180220%_ + (lambda (_%id167555%_ _%expr167556%_) + (let ((_%compile?167558%_ '#t)) + (_%bind-e__180217180218%_ + _%id167555%_ + _%expr167556%_ + _%compile?167558%_)))) + (_%bind-e166708%_ + (lambda _g183589_ + (let ((_g183590_ (let () (declare (not safe)) - (##length _g180045_)))) - (cond ((let () (declare (not safe)) (##fx= _g180046_ 2)) - (apply _%bind-e__0__176675176676%_ _g180045_)) - ((let () (declare (not safe)) (##fx= _g180046_ 3)) - (apply _%bind-e__176673176674%_ _g180045_)) + (##length _g183589_)))) + (cond ((let () (declare (not safe)) (##fx= _g183590_ 2)) + (apply _%bind-e__0__180219180220%_ _g183589_)) + ((let () (declare (not safe)) (##fx= _g183590_ 3)) + (apply _%bind-e__180217180218%_ _g183589_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g180045_)))))) - (_%compile-bindings163086%_ - (lambda (_%rest163221%_) - (let _%lp163223%_ ((_%rest163225%_ _%rest163221%_) - (_%bind163226%_ '())) - (let* ((_%rest163227163235%_ _%rest163225%_) - (_%else163229163243%_ - (lambda () (reverse _%bind163226%_))) - (_%K163231163914%_ - (lambda (_%rest163246%_ _%hd163247%_) - (let* ((_%__stx179517179518%_ _%hd163247%_) - (_%g163252163299%_ + _g183589_)))))) + (_%compile-bindings166709%_ + (lambda (_%rest166842%_) + (let _%lp166844%_ ((_%rest166846%_ _%rest166842%_) + (_%bind166847%_ '())) + (let* ((_%rest166848166856%_ _%rest166846%_) + (_%else166850166864%_ + (lambda () (reverse _%bind166847%_))) + (_%K166852167535%_ + (lambda (_%rest166867%_ _%hd166868%_) + (let* ((_%__stx183061183062%_ _%hd166868%_) + (_%g166873166920%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx179517179518%_))))) - (let ((_%__kont179519179520%_ - (lambda (_%L163820%_ _%L163821%_) - (let* ((_%__stx179497179498%_ - _%L163820%_) - (_%g163836163850%_ + _%__stx183061183062%_))))) + (let ((_%__kont183063183064%_ + (lambda (_%g166875167441%_ + _%g166876167442%_) + (let* ((_%__stx183041183042%_ + _%g166875167441%_) + (_%g167457167471%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx179497179498%_))))) - (let ((_%__kont179499179500%_ - (lambda (_%L163899%_) - (_%lp163223%_ - _%rest163246%_ - (cons (_%bind-e__176673176674%_ - _%L163821%_ - _%L163820%_ + _%__stx183041183042%_))))) + (let ((_%__kont183043183044%_ + (lambda (_%g167459167520%_) + (_%lp166844%_ + _%rest166867%_ + (cons (_%bind-e__180217180218%_ + _%g166876167442%_ + _%g166875167441%_ '#f) - _%bind163226%_)))) - (_%__kont179501179502%_ - (lambda (_%L163863%_) - (let ((_g180047_ + _%bind166847%_)))) + (_%__kont183045183046%_ + (lambda (_%g167463167484%_) + (let ((_g183591_ (gxc#lift-case-lambda-clauses__% - _%stx163083%_ - _%L163821%_ - _%L163863%_ + _%stx166706%_ + _%g166876167442%_ + _%g167463167484%_ '#t))) (begin - (let ((_g180048_ + (let ((_g183592_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g180047_) - (##values-length _g180047_) + (if (##values? _g183591_) + (##values-length _g183591_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g180048_ 3))) - (error "Context expects 3 values" _g180048_))) - (let ((_%ids163873%_ + (##fx= _g183592_ 3))) + (error "Context expects 3 values" _g183592_))) + (let ((_%ids167494%_ (let () (declare (not safe)) - (##values-ref _g180047_ 0))) - (_%impls163874%_ + (##values-ref _g183591_ 0))) + (_%impls167495%_ (let () (declare (not safe)) - (##values-ref _g180047_ 1))) - (_%clauses163875%_ + (##values-ref _g183591_ 1))) + (_%clauses167496%_ (let () (declare (not safe)) - (##values-ref _g180047_ 2)))) - (let* ((_%_163877%_ - (for-each gx#core-bind-runtime! _%ids163873%_)) - (_%xbind163879%_ - (map _%bind-e163085%_ - _%ids163873%_ - _%impls163874%_)) - (_%expr*163881%_ - (let ((__tmp180050 - (cons '%#case-lambda _%clauses163875%_)) - (__tmp180049 + (##values-ref _g183591_ 2)))) + (let* ((_%_167498%_ + (for-each gx#core-bind-runtime! _%ids167494%_)) + (_%xbind167500%_ + (map _%bind-e166708%_ + _%ids167494%_ + _%impls167495%_)) + (_%expr*167502%_ + (let ((__tmp183594 + (cons '%#case-lambda _%clauses167496%_)) + (__tmp183593 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -23288,1015 +23424,1022 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp180050 - __tmp180049))) - (_%bind*163883%_ - (_%bind-e__176673176674%_ - _%L163821%_ - _%expr*163881%_ + __tmp183594 + __tmp183593))) + (_%bind*167504%_ + (_%bind-e__180217180218%_ + _%g166876167442%_ + _%expr*167502%_ '#f))) - (let ((__tmp180052 + (let ((__tmp183596 (let () (declare (not safe)) - (gxc#identifier-symbol _%L163821%_))) - (__tmp180051 - (map gxc#identifier-symbol _%ids163873%_))) + (gxc#identifier-symbol _%g166876167442%_))) + (__tmp183595 + (map gxc#identifier-symbol _%ids167494%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp180052 + __tmp183596 '" => " - __tmp180051)) - (_%lp163223%_ - _%rest163246%_ - (cons _%bind*163883%_ + __tmp183595)) + (_%lp166844%_ + _%rest166867%_ + (cons _%bind*167504%_ (let () (declare (not safe)) (__foldl1 cons - _%bind163226%_ - _%xbind163879%_))))))))))) + _%bind166847%_ + _%xbind167500%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match179508179509%_ - (lambda (_%e163839163891%_ - _%hd163840163894%_ - _%tl163841163896%_) - (let ((_%L163899%_ - _%tl163841163896%_)) + (let ((_%__match183052183053%_ + (lambda (_%e167460167512%_ + _%hd167461167515%_ + _%tl167462167517%_) + (let ((_%g167459167520%_ + _%tl167462167517%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__andmap1 gxc#dispatch-lambda-form? _%L163899%_)) - (_%__kont179499179500%_ _%L163899%_) - (_%__kont179501179502%_ _%tl163841163896%_)))))) + (__andmap1 + gxc#dispatch-lambda-form? + _%g167459167520%_)) + (_%__kont183043183044%_ _%g167459167520%_) + (_%__kont183045183046%_ _%tl167462167517%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx179497179498%_)) - (let ((_%e163839163891%_ + _%__stx183041183042%_)) + (let ((_%e167460167512%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx179497179498%_)))) - (let ((_%tl163841163896%_ - (let () (declare (not safe)) (##cdr _%e163839163891%_))) - (_%hd163840163894%_ + (gx#stx-e _%__stx183041183042%_)))) + (let ((_%tl167462167517%_ + (let () (declare (not safe)) (##cdr _%e167460167512%_))) + (_%hd167461167515%_ (let () (declare (not safe)) - (##car _%e163839163891%_)))) - (_%__match179508179509%_ - _%e163839163891%_ - _%hd163840163894%_ - _%tl163841163896%_))) - (let () (declare (not safe)) (_%g163836163850%_)))))))) + (##car _%e167460167512%_)))) + (_%__match183052183053%_ + _%e167460167512%_ + _%hd167461167515%_ + _%tl167462167517%_))) + (let () (declare (not safe)) (_%g167457167471%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont179521179522%_ - (lambda (_%L163647%_ _%L163648%_) - (let* ((_%g163662163692%_ - (lambda (_%g163663163689%_) + (_%__kont183065183066%_ + (lambda (_%g166886167268%_ + _%g166887167269%_) + (let* ((_%g167283167313%_ + (lambda (_%g167284167310%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163663163689%_)))) - (_%g163661163788%_ - (lambda (_%g163663163695%_) + _%g167284167310%_)))) + (_%g167282167409%_ + (lambda (_%g167284167316%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g163663163695%_)) - (let ((_%e163667163697%_ + _%g167284167316%_)) + (let ((_%e167288167318%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g163663163695%_)))) - (let ((_%hd163668163700%_ + (gx#stx-e _%g167284167316%_)))) + (let ((_%hd167289167321%_ (let () (declare (not safe)) - (##car _%e163667163697%_))) - (_%tl163669163702%_ + (##car _%e167288167318%_))) + (_%tl167290167323%_ (let () (declare (not safe)) - (##cdr _%e163667163697%_)))) + (##cdr _%e167288167318%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163669163702%_)) - (let ((_%e163670163705%_ + (gx#stx-pair? _%tl167290167323%_)) + (let ((_%e167291167326%_ (let () (declare (not safe)) - (gx#stx-e _%tl163669163702%_)))) - (let ((_%hd163671163708%_ + (gx#stx-e _%tl167290167323%_)))) + (let ((_%hd167292167329%_ (let () (declare (not safe)) - (##car _%e163670163705%_))) - (_%tl163672163710%_ + (##car _%e167291167326%_))) + (_%tl167293167331%_ (let () (declare (not safe)) - (##cdr _%e163670163705%_)))) + (##cdr _%e167291167326%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163671163708%_)) - (let ((_%e163673163713%_ + (gx#stx-pair? _%hd167292167329%_)) + (let ((_%e167294167334%_ (let () (declare (not safe)) - (gx#stx-e _%hd163671163708%_)))) - (let ((_%hd163674163716%_ + (gx#stx-e _%hd167292167329%_)))) + (let ((_%hd167295167337%_ (let () (declare (not safe)) - (##car _%e163673163713%_))) - (_%tl163675163718%_ + (##car _%e167294167334%_))) + (_%tl167296167339%_ (let () (declare (not safe)) - (##cdr _%e163673163713%_)))) + (##cdr _%e167294167334%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163674163716%_)) - (let ((_%e163676163721%_ + (gx#stx-pair? _%hd167295167337%_)) + (let ((_%e167297167342%_ (let () (declare (not safe)) (gx#stx-e - _%hd163674163716%_)))) - (let ((_%hd163677163724%_ + _%hd167295167337%_)))) + (let ((_%hd167298167345%_ (let () (declare (not safe)) - (##car _%e163676163721%_))) - (_%tl163678163726%_ + (##car _%e167297167342%_))) + (_%tl167299167347%_ (let () (declare (not safe)) - (##cdr _%e163676163721%_)))) + (##cdr _%e167297167342%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd163677163724%_)) - (let ((_%e163679163729%_ + _%hd167298167345%_)) + (let ((_%e167300167350%_ (let () (declare (not safe)) (gx#stx-e - _%hd163677163724%_)))) - (let ((_%hd163680163732%_ + _%hd167298167345%_)))) + (let ((_%hd167301167353%_ (let () (declare (not safe)) - (##car _%e163679163729%_))) - (_%tl163681163734%_ + (##car _%e167300167350%_))) + (_%tl167302167355%_ (let () (declare (not safe)) - (##cdr _%e163679163729%_)))) + (##cdr _%e167300167350%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163681163734%_)) + _%tl167302167355%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl163678163726%_)) - (let ((_%e163682163737%_ + (gx#stx-pair? _%tl167299167347%_)) + (let ((_%e167303167358%_ (let () (declare (not safe)) - (gx#stx-e _%tl163678163726%_)))) - (let ((_%hd163683163740%_ + (gx#stx-e _%tl167299167347%_)))) + (let ((_%hd167304167361%_ (let () (declare (not safe)) - (##car _%e163682163737%_))) - (_%tl163684163742%_ + (##car _%e167303167358%_))) + (_%tl167305167363%_ (let () (declare (not safe)) - (##cdr _%e163682163737%_)))) + (##cdr _%e167303167358%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163684163742%_)) + (gx#stx-null? _%tl167305167363%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163675163718%_)) + (gx#stx-null? _%tl167296167339%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163672163710%_)) - (let ((_%e163685163745%_ + (gx#stx-pair? _%tl167293167331%_)) + (let ((_%e167306167366%_ (let () (declare (not safe)) - (gx#stx-e _%tl163672163710%_)))) - (let ((_%hd163686163748%_ + (gx#stx-e _%tl167293167331%_)))) + (let ((_%hd167307167369%_ (let () (declare (not safe)) - (##car _%e163685163745%_))) - (_%tl163687163750%_ + (##car _%e167306167366%_))) + (_%tl167308167371%_ (let () (declare (not safe)) - (##cdr _%e163685163745%_)))) + (##cdr _%e167306167366%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163687163750%_)) - ((lambda (_%L163753%_ - _%L163754%_ - _%L163755%_) - (let* ((_%lambda-id163779%_ - (let ((__tmp180054 + _%tl167308167371%_)) + ((lambda (_%g167285167374%_ + _%g167286167375%_ + _%g167287167376%_) + (let* ((_%lambda-id167400%_ + (let ((__tmp183598 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%L163648%_))) - (__tmp180053 + (gx#stx-e _%g166887167269%_))) + (__tmp183597 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) - (make-symbol__1 __tmp180054 __tmp180053))) - (_%lambda-id163781%_ - (let ((__tmp180055 + (make-symbol__1 __tmp183598 __tmp183597))) + (_%lambda-id167402%_ + (let ((__tmp183599 (let () (declare (not safe)) - (gx#stx-source _%stx163083%_)))) + (gx#stx-source _%stx166706%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%lambda-id163779%_ __tmp180055))) - (_%_163783%_ + (gx#core-quote-syntax__1 _%lambda-id167400%_ __tmp183599))) + (_%_167404%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%lambda-id163781%_))) - (_%new-case-lambda-expr163785%_ + (gx#core-bind-runtime!__0 _%lambda-id167402%_))) + (_%new-case-lambda-expr167406%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L163755%_ - _%lambda-id163781%_ - _%L163753%_)))) + _%g167287167376%_ + _%lambda-id167402%_ + _%g167285167374%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp180057 + (let ((__tmp183601 (let () (declare (not safe)) (gxc#identifier-symbol - _%L163648%_))) - (__tmp180056 + _%g166887167269%_))) + (__tmp183600 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id163781%_)))) + _%lambda-id167402%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp180057 + __tmp183601 '" => " - __tmp180056)) - (_%lp163223%_ - (cons (_%bind-e__176673176674%_ - _%L163648%_ - _%new-case-lambda-expr163785%_ + __tmp183600)) + (_%lp166844%_ + (cons (_%bind-e__180217180218%_ + _%g166887167269%_ + _%new-case-lambda-expr167406%_ '#f) - _%rest163246%_) - (cons (_%bind-e__0__176675176676%_ - _%lambda-id163781%_ - _%L163754%_) - _%bind163226%_)))) - _%hd163686163748%_ - _%hd163683163740%_ - _%hd163680163732%_) - (_%g163662163692%_ - _%g163663163695%_)))) - (_%g163662163692%_ _%g163663163695%_)) - (_%g163662163692%_ _%g163663163695%_)) - (_%g163662163692%_ _%g163663163695%_)))) - (_%g163662163692%_ _%g163663163695%_)) - (_%g163662163692%_ _%g163663163695%_)))) + _%rest166867%_) + (cons (_%bind-e__0__180219180220%_ + _%lambda-id167402%_ + _%g167286167375%_) + _%bind166847%_)))) + _%hd167307167369%_ + _%hd167304167361%_ + _%hd167301167353%_) + (_%g167283167313%_ + _%g167284167316%_)))) + (_%g167283167313%_ _%g167284167316%_)) + (_%g167283167313%_ _%g167284167316%_)) + (_%g167283167313%_ _%g167284167316%_)))) + (_%g167283167313%_ _%g167284167316%_)) + (_%g167283167313%_ _%g167284167316%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g163662163692%_ - _%g163663163695%_)))) - (_%g163662163692%_ - _%g163663163695%_)))) - (_%g163662163692%_ _%g163663163695%_)))) - (_%g163662163692%_ _%g163663163695%_)))) - (_%g163662163692%_ _%g163663163695%_))))) + (_%g167283167313%_ + _%g167284167316%_)))) + (_%g167283167313%_ + _%g167284167316%_)))) + (_%g167283167313%_ _%g167284167316%_)))) + (_%g167283167313%_ _%g167284167316%_)))) + (_%g167283167313%_ _%g167284167316%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g163661163788%_ - _%L163647%_)))) - (_%__kont179523179524%_ - (lambda (_%L163369%_ _%L163370%_) - (let* ((_%g163384163437%_ - (lambda (_%g163385163434%_) + (_%g167282167409%_ + _%g166886167268%_)))) + (_%__kont183067183068%_ + (lambda (_%g166897166990%_ + _%g166898166991%_) + (let* ((_%g167005167058%_ + (lambda (_%g167006167055%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163385163434%_)))) - (_%g163383163615%_ - (lambda (_%g163385163440%_) + _%g167006167055%_)))) + (_%g167004167236%_ + (lambda (_%g167006167061%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g163385163440%_)) - (let ((_%e163391163442%_ + _%g167006167061%_)) + (let ((_%e167012167063%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g163385163440%_)))) - (let ((_%hd163392163445%_ + (gx#stx-e _%g167006167061%_)))) + (let ((_%hd167013167066%_ (let () (declare (not safe)) - (##car _%e163391163442%_))) - (_%tl163393163447%_ + (##car _%e167012167063%_))) + (_%tl167014167068%_ (let () (declare (not safe)) - (##cdr _%e163391163442%_)))) + (##cdr _%e167012167063%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163393163447%_)) - (let ((_%e163394163450%_ + (gx#stx-pair? _%tl167014167068%_)) + (let ((_%e167015167071%_ (let () (declare (not safe)) - (gx#stx-e _%tl163393163447%_)))) - (let ((_%hd163395163453%_ + (gx#stx-e _%tl167014167068%_)))) + (let ((_%hd167016167074%_ (let () (declare (not safe)) - (##car _%e163394163450%_))) - (_%tl163396163455%_ + (##car _%e167015167071%_))) + (_%tl167017167076%_ (let () (declare (not safe)) - (##cdr _%e163394163450%_)))) + (##cdr _%e167015167071%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163395163453%_)) - (let ((_%e163397163458%_ + (gx#stx-pair? _%hd167016167074%_)) + (let ((_%e167018167079%_ (let () (declare (not safe)) - (gx#stx-e _%hd163395163453%_)))) - (let ((_%hd163398163461%_ + (gx#stx-e _%hd167016167074%_)))) + (let ((_%hd167019167082%_ (let () (declare (not safe)) - (##car _%e163397163458%_))) - (_%tl163399163463%_ + (##car _%e167018167079%_))) + (_%tl167020167084%_ (let () (declare (not safe)) - (##cdr _%e163397163458%_)))) + (##cdr _%e167018167079%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163398163461%_)) - (let ((_%e163400163466%_ + (gx#stx-pair? _%hd167019167082%_)) + (let ((_%e167021167087%_ (let () (declare (not safe)) (gx#stx-e - _%hd163398163461%_)))) - (let ((_%hd163401163469%_ + _%hd167019167082%_)))) + (let ((_%hd167022167090%_ (let () (declare (not safe)) - (##car _%e163400163466%_))) - (_%tl163402163471%_ + (##car _%e167021167087%_))) + (_%tl167023167092%_ (let () (declare (not safe)) - (##cdr _%e163400163466%_)))) + (##cdr _%e167021167087%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd163401163469%_)) - (let ((_%e163403163474%_ + _%hd167022167090%_)) + (let ((_%e167024167095%_ (let () (declare (not safe)) (gx#stx-e - _%hd163401163469%_)))) - (let ((_%hd163404163477%_ + _%hd167022167090%_)))) + (let ((_%hd167025167098%_ (let () (declare (not safe)) - (##car _%e163403163474%_))) - (_%tl163405163479%_ + (##car _%e167024167095%_))) + (_%tl167026167100%_ (let () (declare (not safe)) - (##cdr _%e163403163474%_)))) + (##cdr _%e167024167095%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163405163479%_)) + _%tl167026167100%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl163402163471%_)) - (let ((_%e163406163482%_ + (gx#stx-pair? _%tl167023167092%_)) + (let ((_%e167027167103%_ (let () (declare (not safe)) - (gx#stx-e _%tl163402163471%_)))) - (let ((_%hd163407163485%_ + (gx#stx-e _%tl167023167092%_)))) + (let ((_%hd167028167106%_ (let () (declare (not safe)) - (##car _%e163406163482%_))) - (_%tl163408163487%_ + (##car _%e167027167103%_))) + (_%tl167029167108%_ (let () (declare (not safe)) - (##cdr _%e163406163482%_)))) + (##cdr _%e167027167103%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163407163485%_)) - (let ((_%e163409163490%_ + (gx#stx-pair? _%hd167028167106%_)) + (let ((_%e167030167111%_ (let () (declare (not safe)) - (gx#stx-e _%hd163407163485%_)))) - (let ((_%hd163410163493%_ + (gx#stx-e _%hd167028167106%_)))) + (let ((_%hd167031167114%_ (let () (declare (not safe)) - (##car _%e163409163490%_))) - (_%tl163411163495%_ + (##car _%e167030167111%_))) + (_%tl167032167116%_ (let () (declare (not safe)) - (##cdr _%e163409163490%_)))) + (##cdr _%e167030167111%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163411163495%_)) - (let ((_%e163412163498%_ + (gx#stx-pair? _%tl167032167116%_)) + (let ((_%e167033167119%_ (let () (declare (not safe)) - (gx#stx-e _%tl163411163495%_)))) - (let ((_%hd163413163501%_ + (gx#stx-e _%tl167032167116%_)))) + (let ((_%hd167034167122%_ (let () (declare (not safe)) - (##car _%e163412163498%_))) - (_%tl163414163503%_ + (##car _%e167033167119%_))) + (_%tl167035167124%_ (let () (declare (not safe)) - (##cdr _%e163412163498%_)))) + (##cdr _%e167033167119%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd163413163501%_)) - (let ((_%e163415163506%_ + _%hd167034167122%_)) + (let ((_%e167036167127%_ (let () (declare (not safe)) (gx#stx-e - _%hd163413163501%_)))) - (let ((_%hd163416163509%_ + _%hd167034167122%_)))) + (let ((_%hd167037167130%_ (let () (declare (not safe)) - (##car _%e163415163506%_))) - (_%tl163417163511%_ + (##car _%e167036167127%_))) + (_%tl167038167132%_ (let () (declare (not safe)) - (##cdr _%e163415163506%_)))) + (##cdr _%e167036167127%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd163416163509%_)) - (let ((_%e163418163514%_ + _%hd167037167130%_)) + (let ((_%e167039167135%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd163416163509%_)))) - (let ((_%hd163419163517%_ - (let () (declare (not safe)) (##car _%e163418163514%_))) - (_%tl163420163519%_ + (gx#stx-e _%hd167037167130%_)))) + (let ((_%hd167040167138%_ + (let () (declare (not safe)) (##car _%e167039167135%_))) + (_%tl167041167140%_ (let () (declare (not safe)) - (##cdr _%e163418163514%_)))) + (##cdr _%e167039167135%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163419163517%_)) - (let ((_%e163421163522%_ + (gx#stx-pair? _%hd167040167138%_)) + (let ((_%e167042167143%_ (let () (declare (not safe)) - (gx#stx-e _%hd163419163517%_)))) - (let ((_%hd163422163525%_ + (gx#stx-e _%hd167040167138%_)))) + (let ((_%hd167043167146%_ (let () (declare (not safe)) - (##car _%e163421163522%_))) - (_%tl163423163527%_ + (##car _%e167042167143%_))) + (_%tl167044167148%_ (let () (declare (not safe)) - (##cdr _%e163421163522%_)))) + (##cdr _%e167042167143%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163423163527%_)) + (gx#stx-null? _%tl167044167148%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163420163519%_)) - (let ((_%e163424163530%_ + (gx#stx-pair? _%tl167041167140%_)) + (let ((_%e167045167151%_ (let () (declare (not safe)) - (gx#stx-e _%tl163420163519%_)))) - (let ((_%hd163425163533%_ + (gx#stx-e _%tl167041167140%_)))) + (let ((_%hd167046167154%_ (let () (declare (not safe)) - (##car _%e163424163530%_))) - (_%tl163426163535%_ + (##car _%e167045167151%_))) + (_%tl167047167156%_ (let () (declare (not safe)) - (##cdr _%e163424163530%_)))) + (##cdr _%e167045167151%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163426163535%_)) + (gx#stx-null? _%tl167047167156%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163417163511%_)) + _%tl167038167132%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163414163503%_)) - (let ((_%e163427163538%_ + _%tl167035167124%_)) + (let ((_%e167048167159%_ (let () (declare (not safe)) (gx#stx-e - _%tl163414163503%_)))) - (let ((_%hd163428163541%_ + _%tl167035167124%_)))) + (let ((_%hd167049167162%_ (let () (declare (not safe)) - (##car _%e163427163538%_))) - (_%tl163429163543%_ + (##car _%e167048167159%_))) + (_%tl167050167164%_ (let () (declare (not safe)) - (##cdr _%e163427163538%_)))) + (##cdr _%e167048167159%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163429163543%_)) + _%tl167050167164%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl163408163487%_)) + (gx#stx-null? _%tl167029167108%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163399163463%_)) + (gx#stx-null? _%tl167020167084%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163396163455%_)) - (let ((_%e163430163546%_ + (gx#stx-pair? _%tl167017167076%_)) + (let ((_%e167051167167%_ (let () (declare (not safe)) - (gx#stx-e _%tl163396163455%_)))) - (let ((_%hd163431163549%_ + (gx#stx-e _%tl167017167076%_)))) + (let ((_%hd167052167170%_ (let () (declare (not safe)) - (##car _%e163430163546%_))) - (_%tl163432163551%_ + (##car _%e167051167167%_))) + (_%tl167053167172%_ (let () (declare (not safe)) - (##cdr _%e163430163546%_)))) + (##cdr _%e167051167167%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163432163551%_)) - ((lambda (_%L163554%_ - _%L163555%_ - _%L163556%_ - _%L163557%_ - _%L163558%_) - (let* ((_%get-kws-id163598%_ - (let ((__tmp180059 + (gx#stx-null? _%tl167053167172%_)) + ((lambda (_%g167007167175%_ + _%g167008167176%_ + _%g167009167177%_ + _%g167010167178%_ + _%g167011167179%_) + (let* ((_%get-kws-id167219%_ + (let ((__tmp183603 (let () (declare (not safe)) (gx#stx-e - _%L163370%_))) - (__tmp180058 + _%g166898166991%_))) + (__tmp183602 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp180059 - __tmp180058))) - (_%get-kws-id163600%_ - (let ((__tmp180060 + __tmp183603 + __tmp183602))) + (_%get-kws-id167221%_ + (let ((__tmp183604 (let () (declare (not safe)) (gx#stx-source - _%stx163083%_)))) + _%stx166706%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id163598%_ - __tmp180060))) - (_%main-id163602%_ - (let ((__tmp180062 + _%get-kws-id167219%_ + __tmp183604))) + (_%main-id167223%_ + (let ((__tmp183606 (let () (declare (not safe)) (gx#stx-e - _%L163370%_))) - (__tmp180061 + _%g166898166991%_))) + (__tmp183605 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp180062 - __tmp180061))) - (_%main-id163604%_ - (let ((__tmp180063 + __tmp183606 + __tmp183605))) + (_%main-id167225%_ + (let ((__tmp183607 (let () (declare (not safe)) (gx#stx-source - _%stx163083%_)))) + _%stx166706%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id163602%_ - __tmp180063))) - (_%_163606%_ + _%main-id167223%_ + __tmp183607))) + (_%_167227%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%get-kws-id163600%_))) - (_%_163608%_ + _%get-kws-id167221%_))) + (_%_167229%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%main-id163604%_))) - (_%new-kw-dispatch163610%_ + _%main-id167225%_))) + (_%new-kw-dispatch167231%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L163558%_ - _%get-kws-id163600%_ - _%L163554%_))) - (_%new-get-kws163612%_ + _%g167011167179%_ + _%get-kws-id167221%_ + _%g167007167175%_))) + (_%new-get-kws167233%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L163557%_ - _%main-id163604%_ - _%L163555%_)))) - (let ((__tmp180066 + _%g167010167178%_ + _%main-id167225%_ + _%g167008167176%_)))) + (let ((__tmp183610 (let () (declare (not safe)) (gxc#identifier-symbol - _%L163370%_))) - (__tmp180065 + _%g166898166991%_))) + (__tmp183609 (let () (declare (not safe)) (gxc#identifier-symbol - _%get-kws-id163600%_))) - (__tmp180064 + _%get-kws-id167221%_))) + (__tmp183608 (let () (declare (not safe)) (gxc#identifier-symbol - _%main-id163604%_)))) + _%main-id167225%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp180066 + __tmp183610 '" => " - __tmp180065 + __tmp183609 '" => " - __tmp180064)) - (_%lp163223%_ - (cons (_%bind-e__176673176674%_ - _%main-id163604%_ - _%L163556%_ + __tmp183608)) + (_%lp166844%_ + (cons (_%bind-e__180217180218%_ + _%main-id167225%_ + _%g167009167177%_ '#f) - (cons (_%bind-e__176673176674%_ - _%get-kws-id163600%_ - _%new-get-kws163612%_ + (cons (_%bind-e__180217180218%_ + _%get-kws-id167221%_ + _%new-get-kws167233%_ '#f) - (cons (_%bind-e__176673176674%_ - _%L163370%_ - _%new-kw-dispatch163610%_ + (cons (_%bind-e__180217180218%_ + _%g166898166991%_ + _%new-kw-dispatch167231%_ '#f) - _%rest163246%_))) - _%bind163226%_))) - _%hd163431163549%_ - _%hd163428163541%_ - _%hd163425163533%_ - _%hd163422163525%_ - _%hd163404163477%_) - (_%g163384163437%_ _%g163385163440%_)))) - (_%g163384163437%_ _%g163385163440%_)) - (_%g163384163437%_ _%g163385163440%_)) - (_%g163384163437%_ _%g163385163440%_)) - (_%g163384163437%_ _%g163385163440%_)))) + _%rest166867%_))) + _%bind166847%_))) + _%hd167052167170%_ + _%hd167049167162%_ + _%hd167046167154%_ + _%hd167043167146%_ + _%hd167025167098%_) + (_%g167005167058%_ _%g167006167061%_)))) + (_%g167005167058%_ _%g167006167061%_)) + (_%g167005167058%_ _%g167006167061%_)) + (_%g167005167058%_ _%g167006167061%_)) + (_%g167005167058%_ _%g167006167061%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g163384163437%_ - _%g163385163440%_)) - (_%g163384163437%_ - _%g163385163440%_)) - (_%g163384163437%_ - _%g163385163440%_)))) - (_%g163384163437%_ _%g163385163440%_)) - (_%g163384163437%_ _%g163385163440%_)))) - (_%g163384163437%_ _%g163385163440%_)))) - (_%g163384163437%_ _%g163385163440%_)))) + (_%g167005167058%_ + _%g167006167061%_)) + (_%g167005167058%_ + _%g167006167061%_)) + (_%g167005167058%_ + _%g167006167061%_)))) + (_%g167005167058%_ _%g167006167061%_)) + (_%g167005167058%_ _%g167006167061%_)))) + (_%g167005167058%_ _%g167006167061%_)))) + (_%g167005167058%_ _%g167006167061%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g163384163437%_ - _%g163385163440%_)))) - (_%g163384163437%_ _%g163385163440%_)))) - (_%g163384163437%_ _%g163385163440%_)))) - (_%g163384163437%_ _%g163385163440%_)) - (_%g163384163437%_ _%g163385163440%_)))) + (_%g167005167058%_ + _%g167006167061%_)))) + (_%g167005167058%_ _%g167006167061%_)))) + (_%g167005167058%_ _%g167006167061%_)))) + (_%g167005167058%_ _%g167006167061%_)) + (_%g167005167058%_ _%g167006167061%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g163384163437%_ - _%g163385163440%_)))) - (_%g163384163437%_ - _%g163385163440%_)))) - (_%g163384163437%_ _%g163385163440%_)))) - (_%g163384163437%_ _%g163385163440%_)))) - (_%g163384163437%_ _%g163385163440%_))))) + (_%g167005167058%_ + _%g167006167061%_)))) + (_%g167005167058%_ + _%g167006167061%_)))) + (_%g167005167058%_ _%g167006167061%_)))) + (_%g167005167058%_ _%g167006167061%_)))) + (_%g167005167058%_ _%g167006167061%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g163383163615%_ - _%L163369%_)))) - (_%__kont179525179526%_ - (lambda (_%L163320%_ _%L163321%_) - (_%lp163223%_ - _%rest163246%_ - (cons (cons _%L163321%_ + (_%g167004167236%_ + _%g166897166990%_)))) + (_%__kont183069183070%_ + (lambda (_%g166908166941%_ + _%g166909166942%_) + (_%lp166844%_ + _%rest166867%_ + (cons (cons _%g166909166942%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self163082%_ _%L163320%_)) + (gxc#compile-e__1 _%self166705%_ _%g166908166941%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind163226%_))))) - (let* ((_%__match179592179593%_ - (lambda (_%e163278163345%_ - _%hd163279163348%_ - _%tl163280163350%_ - _%e163281163353%_ - _%hd163282163356%_ - _%tl163283163358%_ - _%e163284163361%_ - _%hd163285163364%_ - _%tl163286163366%_) - (let ((_%L163369%_ - _%hd163285163364%_) - (_%L163370%_ - _%hd163282163356%_)) + _%bind166847%_))))) + (let* ((_%__match183136183137%_ + (lambda (_%e166899166966%_ + _%hd166900166969%_ + _%tl166901166971%_ + _%e166902166974%_ + _%hd166903166977%_ + _%tl166904166979%_ + _%e166905166982%_ + _%hd166906166985%_ + _%tl166907166987%_) + (let ((_%g166897166990%_ + _%hd166906166985%_) + (_%g166898166991%_ + _%hd166903166977%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L163370%_)) + _%g166898166991%_)) (gxc#kw-lambda-expr? - _%L163369%_)) - (_%__kont179523179524%_ - _%L163369%_ - _%L163370%_) - (_%__kont179525179526%_ - _%hd163285163364%_ - _%hd163279163348%_))))) - (_%__match179570179571%_ - (lambda (_%e163267163623%_ - _%hd163268163626%_ - _%tl163269163628%_ - _%e163270163631%_ - _%hd163271163634%_ - _%tl163272163636%_ - _%e163273163639%_ - _%hd163274163642%_ - _%tl163275163644%_) - (let ((_%L163647%_ - _%hd163274163642%_) - (_%L163648%_ - _%hd163271163634%_)) + _%g166897166990%_)) + (_%__kont183067183068%_ + _%g166897166990%_ + _%g166898166991%_) + (_%__kont183069183070%_ + _%hd166906166985%_ + _%hd166900166969%_))))) + (_%__match183114183115%_ + (lambda (_%e166888167244%_ + _%hd166889167247%_ + _%tl166890167249%_ + _%e166891167252%_ + _%hd166892167255%_ + _%tl166893167257%_ + _%e166894167260%_ + _%hd166895167263%_ + _%tl166896167265%_) + (let ((_%g166886167268%_ + _%hd166895167263%_) + (_%g166887167269%_ + _%hd166892167255%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L163648%_)) + _%g166887167269%_)) (gxc#opt-lambda-expr? - _%L163647%_)) - (_%__kont179521179522%_ - _%L163647%_ - _%L163648%_) - (_%__match179592179593%_ - _%e163267163623%_ - _%hd163268163626%_ - _%tl163269163628%_ - _%e163270163631%_ - _%hd163271163634%_ - _%tl163272163636%_ - _%e163273163639%_ - _%hd163274163642%_ - _%tl163275163644%_))))) - (_%__match179548179549%_ - (lambda (_%e163256163796%_ - _%hd163257163799%_ - _%tl163258163801%_ - _%e163259163804%_ - _%hd163260163807%_ - _%tl163261163809%_ - _%e163262163812%_ - _%hd163263163815%_ - _%tl163264163817%_) - (let ((_%L163820%_ - _%hd163263163815%_) - (_%L163821%_ - _%hd163260163807%_)) + _%g166886167268%_)) + (_%__kont183065183066%_ + _%g166886167268%_ + _%g166887167269%_) + (_%__match183136183137%_ + _%e166888167244%_ + _%hd166889167247%_ + _%tl166890167249%_ + _%e166891167252%_ + _%hd166892167255%_ + _%tl166893167257%_ + _%e166894167260%_ + _%hd166895167263%_ + _%tl166896167265%_))))) + (_%__match183092183093%_ + (lambda (_%e166877167417%_ + _%hd166878167420%_ + _%tl166879167422%_ + _%e166880167425%_ + _%hd166881167428%_ + _%tl166882167430%_ + _%e166883167433%_ + _%hd166884167436%_ + _%tl166885167438%_) + (let ((_%g166875167441%_ + _%hd166884167436%_) + (_%g166876167442%_ + _%hd166881167428%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L163821%_)) + _%g166876167442%_)) (gxc#case-lambda-expr? - _%L163820%_)) - (_%__kont179519179520%_ - _%L163820%_ - _%L163821%_) - (_%__match179570179571%_ - _%e163256163796%_ - _%hd163257163799%_ - _%tl163258163801%_ - _%e163259163804%_ - _%hd163260163807%_ - _%tl163261163809%_ - _%e163262163812%_ - _%hd163263163815%_ - _%tl163264163817%_)))))) + _%g166875167441%_)) + (_%__kont183063183064%_ + _%g166875167441%_ + _%g166876167442%_) + (_%__match183114183115%_ + _%e166877167417%_ + _%hd166878167420%_ + _%tl166879167422%_ + _%e166880167425%_ + _%hd166881167428%_ + _%tl166882167430%_ + _%e166883167433%_ + _%hd166884167436%_ + _%tl166885167438%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx179517179518%_)) - (let ((_%e163256163796%_ + _%__stx183061183062%_)) + (let ((_%e166877167417%_ (let () (declare (not safe)) (gx#stx-e - _%__stx179517179518%_)))) - (let ((_%tl163258163801%_ + _%__stx183061183062%_)))) + (let ((_%tl166879167422%_ (let () (declare (not safe)) - (##cdr _%e163256163796%_))) - (_%hd163257163799%_ + (##cdr _%e166877167417%_))) + (_%hd166878167420%_ (let () (declare (not safe)) - (##car _%e163256163796%_)))) + (##car _%e166877167417%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd163257163799%_)) - (let ((_%e163259163804%_ + _%hd166878167420%_)) + (let ((_%e166880167425%_ (let () (declare (not safe)) (gx#stx-e - _%hd163257163799%_)))) - (let ((_%tl163261163809%_ + _%hd166878167420%_)))) + (let ((_%tl166882167430%_ (let () (declare (not safe)) - (##cdr _%e163259163804%_))) - (_%hd163260163807%_ + (##cdr _%e166880167425%_))) + (_%hd166881167428%_ (let () (declare (not safe)) - (##car _%e163259163804%_)))) + (##car _%e166880167425%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163261163809%_)) + _%tl166882167430%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl163258163801%_)) - (let ((_%e163262163812%_ + (gx#stx-pair? _%tl166879167422%_)) + (let ((_%e166883167433%_ (let () (declare (not safe)) - (gx#stx-e _%tl163258163801%_)))) - (let ((_%tl163264163817%_ + (gx#stx-e _%tl166879167422%_)))) + (let ((_%tl166885167438%_ (let () (declare (not safe)) - (##cdr _%e163262163812%_))) - (_%hd163263163815%_ + (##cdr _%e166883167433%_))) + (_%hd166884167436%_ (let () (declare (not safe)) - (##car _%e163262163812%_)))) + (##car _%e166883167433%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163264163817%_)) - (_%__match179548179549%_ - _%e163256163796%_ - _%hd163257163799%_ - _%tl163258163801%_ - _%e163259163804%_ - _%hd163260163807%_ - _%tl163261163809%_ - _%e163262163812%_ - _%hd163263163815%_ - _%tl163264163817%_) + (gx#stx-null? _%tl166885167438%_)) + (_%__match183092183093%_ + _%e166877167417%_ + _%hd166878167420%_ + _%tl166879167422%_ + _%e166880167425%_ + _%hd166881167428%_ + _%tl166882167430%_ + _%e166883167433%_ + _%hd166884167436%_ + _%tl166885167438%_) (let () (declare (not safe)) - (_%g163252163299%_))))) - (let () (declare (not safe)) (_%g163252163299%_))) + (_%g166873166920%_))))) + (let () (declare (not safe)) (_%g166873166920%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163258163801%_)) - (let ((_%e163292163312%_ + (gx#stx-pair? _%tl166879167422%_)) + (let ((_%e166913166933%_ (let () (declare (not safe)) - (gx#stx-e _%tl163258163801%_)))) - (let ((_%tl163294163317%_ + (gx#stx-e _%tl166879167422%_)))) + (let ((_%tl166915166938%_ (let () (declare (not safe)) - (##cdr _%e163292163312%_))) - (_%hd163293163315%_ + (##cdr _%e166913166933%_))) + (_%hd166914166936%_ (let () (declare (not safe)) - (##car _%e163292163312%_)))) + (##car _%e166913166933%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163294163317%_)) - (_%__kont179525179526%_ - _%hd163293163315%_ - _%hd163257163799%_) + (gx#stx-null? _%tl166915166938%_)) + (_%__kont183069183070%_ + _%hd166914166936%_ + _%hd166878167420%_) (let () (declare (not safe)) - (_%g163252163299%_))))) - (let () (declare (not safe)) (_%g163252163299%_)))))) + (_%g166873166920%_))))) + (let () (declare (not safe)) (_%g166873166920%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163258163801%_)) - (let ((_%e163292163312%_ + _%tl166879167422%_)) + (let ((_%e166913166933%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl163258163801%_)))) - (let ((_%tl163294163317%_ + (gx#stx-e _%tl166879167422%_)))) + (let ((_%tl166915166938%_ (let () (declare (not safe)) - (##cdr _%e163292163312%_))) - (_%hd163293163315%_ + (##cdr _%e166913166933%_))) + (_%hd166914166936%_ (let () (declare (not safe)) - (##car _%e163292163312%_)))) + (##car _%e166913166933%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163294163317%_)) - (_%__kont179525179526%_ - _%hd163293163315%_ - _%hd163257163799%_) - (let () (declare (not safe)) (_%g163252163299%_))))) - (let () (declare (not safe)) (_%g163252163299%_)))))) + (gx#stx-null? _%tl166915166938%_)) + (_%__kont183069183070%_ + _%hd166914166936%_ + _%hd166878167420%_) + (let () (declare (not safe)) (_%g166873166920%_))))) + (let () (declare (not safe)) (_%g166873166920%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g163252163299%_))))))))) - (if (pair? _%rest163227163235%_) - (let ((_%hd163232163917%_ + (_%g166873166920%_))))))))) + (if (pair? _%rest166848166856%_) + (let ((_%hd166853167538%_ (let () (declare (not safe)) - (##car _%rest163227163235%_))) - (_%tl163233163919%_ + (##car _%rest166848166856%_))) + (_%tl166854167540%_ (let () (declare (not safe)) - (##cdr _%rest163227163235%_)))) - (let* ((_%hd163922%_ _%hd163232163917%_) - (_%rest163924%_ _%tl163233163919%_)) - (_%K163231163914%_ - _%rest163924%_ - _%hd163922%_))) - (_%else163229163243%_))))))) - (let* ((_%__stx179609179610%_ _%stx163083%_) - (_%g163089163116%_ + (##cdr _%rest166848166856%_)))) + (let* ((_%hd167543%_ _%hd166853167538%_) + (_%rest167545%_ _%tl166854167540%_)) + (_%K166852167535%_ + _%rest167545%_ + _%hd167543%_))) + (_%else166850166864%_))))))) + (let* ((_%__stx183153183154%_ _%stx166706%_) + (_%g166712166739%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx179609179610%_))))) - (let ((_%__kont179611179612%_ - (lambda (_%L163176%_ _%L163177%_ _%L163178%_) - (let ((__tmp180068 + _%__stx183153183154%_))))) + (let ((_%__kont183155183156%_ + (lambda (_%g166714166797%_ + _%g166715166798%_ + _%g166716166799%_) + (let ((__tmp183612 (lambda () - (let ((_%hd163215%_ - (_%compile-bindings163086%_ - (let ((__tmp180069 - (lambda (_%g163207163210%_ - _%g163208163212%_) - (cons _%g163207163210%_ - _%g163208163212%_)))) + (let ((_%hd166836%_ + (_%compile-bindings166709%_ + (let ((__tmp183613 + (lambda (_%g166828166831%_ + _%g166829166833%_) + (cons _%g166828166831%_ + _%g166829166833%_)))) (declare (not safe)) (__foldr1 - __tmp180069 + __tmp183613 '() - _%L163177%_)))) - (_%body163216%_ + _%g166715166798%_)))) + (_%body166837%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self163082%_ - _%L163176%_)))) - (let ((__tmp180070 - (cons _%L163178%_ - (cons _%hd163215%_ - (cons _%body163216%_ + _%self166705%_ + _%g166714166797%_)))) + (let ((__tmp183614 + (cons _%g166716166799%_ + (cons _%hd166836%_ + (cons _%body166837%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp180070 - _%stx163083%_))))) - (__tmp180067 - (let ((__obj179721 + __tmp183614 + _%stx166706%_))))) + (__tmp183611 + (let ((__obj183265 (let () (declare (not safe)) (##structure @@ -24308,249 +24451,252 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj179721)) - __obj179721))) + (gx#local-context:::init!__0 __obj183265)) + __obj183265))) (declare (not safe)) (call-with-parameters__1 - __tmp180068 + __tmp183612 gx#current-expander-context - __tmp180067)))) - (_%__kont179615179616%_ + __tmp183611)))) + (_%__kont183159183160%_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _%self163082%_ _%stx163083%_))))) - (let ((_%__match179636179637%_ - (lambda (_%e163094163128%_ - _%hd163095163131%_ - _%tl163096163133%_ - _%e163097163136%_ - _%hd163098163139%_ - _%tl163099163141%_ - _%__splice179613179614%_ - _%target163100163144%_ - _%tl163102163146%_) - (letrec ((_%loop163103163149%_ - (lambda (_%hd163101163152%_ - _%bind163107163154%_) + (gxc#xform-let-values% _%self166705%_ _%stx166706%_))))) + (let ((_%__match183180183181%_ + (lambda (_%e166717166751%_ + _%hd166718166754%_ + _%tl166719166756%_ + _%e166720166759%_ + _%hd166721166762%_ + _%tl166722166764%_ + _%__splice183157183158%_ + _%target166723166767%_ + _%tl166725166769%_) + (letrec ((_%loop166726166772%_ + (lambda (_%hd166724166775%_ + _%bind166730166777%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163101163152%_)) - (let ((_%e163104163157%_ + (gx#stx-pair? _%hd166724166775%_)) + (let ((_%e166727166779%_ (let () (declare (not safe)) (gx#stx-e - _%hd163101163152%_)))) - (let ((_%lp-tl163106163162%_ + _%hd166724166775%_)))) + (let ((_%lp-tl166729166784%_ (let () (declare (not safe)) - (##cdr _%e163104163157%_))) - (_%lp-hd163105163160%_ + (##cdr _%e166727166779%_))) + (_%lp-hd166728166782%_ (let () (declare (not safe)) - (##car _%e163104163157%_)))) - (_%loop163103163149%_ - _%lp-tl163106163162%_ - (cons _%lp-hd163105163160%_ - _%bind163107163154%_)))) - (let ((_%bind163108163165%_ - (reverse _%bind163107163154%_))) + (##car _%e166727166779%_)))) + (_%loop166726166772%_ + _%lp-tl166729166784%_ + (cons _%lp-hd166728166782%_ + _%bind166730166777%_)))) + (let ((_%bind166731166787%_ + (reverse _%bind166730166777%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163099163141%_)) - (let ((_%e163109163168%_ + _%tl166722166764%_)) + (let ((_%e166732166789%_ (let () (declare (not safe)) (gx#stx-e - _%tl163099163141%_)))) - (let ((_%tl163111163173%_ + _%tl166722166764%_)))) + (let ((_%tl166734166794%_ (let () (declare (not safe)) - (##cdr _%e163109163168%_))) - (_%hd163110163171%_ + (##cdr _%e166732166789%_))) + (_%hd166733166792%_ (let () (declare (not safe)) - (##car _%e163109163168%_)))) + (##car _%e166732166789%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163111163173%_)) - (let ((_%L163176%_ - _%hd163110163171%_) - (_%L163177%_ - _%bind163108163165%_) - (_%L163178%_ - _%hd163095163131%_)) - (if (let ((__tmp180071 + _%tl166734166794%_)) + (let ((_%g166714166797%_ + _%hd166733166792%_) + (_%g166715166798%_ + _%bind166731166787%_) + (_%g166716166799%_ + _%hd166718166754%_)) + (if (let ((__tmp183615 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp180072 - (lambda (_%g163199163202%_ _%g163200163204%_) - (cons _%g163199163202%_ - _%g163200163204%_)))) + (let ((__tmp183616 + (lambda (_%g166820166823%_ _%g166821166825%_) + (cons _%g166820166823%_ + _%g166821166825%_)))) (declare (not safe)) - (__foldr1 __tmp180072 '() _%L163177%_)))) + (__foldr1 __tmp183616 '() _%g166715166798%_)))) (declare (not safe)) - (__ormap1 gxc#lift-top-lambda-binding? __tmp180071)) - (_%__kont179611179612%_ _%L163176%_ _%L163177%_ _%L163178%_) - (_%__kont179615179616%_))) + (__ormap1 gxc#lift-top-lambda-binding? __tmp183615)) + (_%__kont183155183156%_ + _%g166714166797%_ + _%g166715166798%_ + _%g166716166799%_) + (_%__kont183159183160%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont179615179616%_)))) - (_%__kont179615179616%_))))))) - (_%loop163103163149%_ _%target163100163144%_ '()))))) + (_%__kont183159183160%_)))) + (_%__kont183159183160%_))))))) + (_%loop166726166772%_ _%target166723166767%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx179609179610%_)) - (let ((_%e163094163128%_ + (gx#stx-pair? _%__stx183153183154%_)) + (let ((_%e166717166751%_ (let () (declare (not safe)) - (gx#stx-e _%__stx179609179610%_)))) - (let ((_%tl163096163133%_ + (gx#stx-e _%__stx183153183154%_)))) + (let ((_%tl166719166756%_ (let () (declare (not safe)) - (##cdr _%e163094163128%_))) - (_%hd163095163131%_ + (##cdr _%e166717166751%_))) + (_%hd166718166754%_ (let () (declare (not safe)) - (##car _%e163094163128%_)))) + (##car _%e166717166751%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163096163133%_)) - (let ((_%e163097163136%_ + (gx#stx-pair? _%tl166719166756%_)) + (let ((_%e166720166759%_ (let () (declare (not safe)) - (gx#stx-e _%tl163096163133%_)))) - (let ((_%tl163099163141%_ + (gx#stx-e _%tl166719166756%_)))) + (let ((_%tl166722166764%_ (let () (declare (not safe)) - (##cdr _%e163097163136%_))) - (_%hd163098163139%_ + (##cdr _%e166720166759%_))) + (_%hd166721166762%_ (let () (declare (not safe)) - (##car _%e163097163136%_)))) + (##car _%e166720166759%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd163098163139%_)) - (let ((_%__splice179613179614%_ + (gx#stx-pair/null? _%hd166721166762%_)) + (let ((_%__splice183157183158%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%hd163098163139%_ + _%hd166721166762%_ '0)))) - (let ((_%tl163102163146%_ + (let ((_%tl166725166769%_ (let () (declare (not safe)) (##vector-ref - _%__splice179613179614%_ + _%__splice183157183158%_ '1))) - (_%target163100163144%_ + (_%target166723166767%_ (let () (declare (not safe)) (##vector-ref - _%__splice179613179614%_ + _%__splice183157183158%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163102163146%_)) - (_%__match179636179637%_ - _%e163094163128%_ - _%hd163095163131%_ - _%tl163096163133%_ - _%e163097163136%_ - _%hd163098163139%_ - _%tl163099163141%_ - _%__splice179613179614%_ - _%target163100163144%_ - _%tl163102163146%_) - (_%__kont179615179616%_)))) - (_%__kont179615179616%_)))) - (_%__kont179615179616%_)))) - (_%__kont179615179616%_)))))))) + _%tl166725166769%_)) + (_%__match183180183181%_ + _%e166717166751%_ + _%hd166718166754%_ + _%tl166719166756%_ + _%e166720166759%_ + _%hd166721166762%_ + _%tl166722166764%_ + _%__splice183157183158%_ + _%target166723166767%_ + _%tl166725166769%_) + (_%__kont183159183160%_)))) + (_%__kont183159183160%_)))) + (_%__kont183159183160%_)))) + (_%__kont183159183160%_)))))))) (define gxc#lift-top-lambda-binding? - (lambda (_%bind163000%_) - (let* ((_%__stx179639179640%_ _%bind163000%_) - (_%g163003163020%_ + (lambda (_%bind166623%_) + (let* ((_%__stx183183183184%_ _%bind166623%_) + (_%g166626166643%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx179639179640%_))))) - (let ((_%__kont179641179642%_ - (lambda (_%L163056%_ _%L163057%_) + _%__stx183183183184%_))))) + (let ((_%__kont183185183186%_ + (lambda (_%g166628166679%_ _%g166629166680%_) (if (let () (declare (not safe)) - (gx#identifier? _%L163057%_)) - (let ((_%$e163073%_ - (gxc#case-lambda-expr? _%L163056%_))) - (if _%$e163073%_ - _%$e163073%_ - (let ((_%$e163076%_ - (gxc#opt-lambda-expr? _%L163056%_))) - (if _%$e163076%_ - _%$e163076%_ - (gxc#kw-lambda-expr? _%L163056%_))))) + (gx#identifier? _%g166629166680%_)) + (let ((_%$e166696%_ + (gxc#case-lambda-expr? _%g166628166679%_))) + (if _%$e166696%_ + _%$e166696%_ + (let ((_%$e166699%_ + (gxc#opt-lambda-expr? _%g166628166679%_))) + (if _%$e166699%_ + _%$e166699%_ + (gxc#kw-lambda-expr? _%g166628166679%_))))) '#f))) - (_%__kont179643179644%_ (lambda () '#f))) + (_%__kont183187183188%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx179639179640%_)) - (let ((_%e163007163032%_ + (gx#stx-pair? _%__stx183183183184%_)) + (let ((_%e166630166655%_ (let () (declare (not safe)) - (gx#stx-e _%__stx179639179640%_)))) - (let ((_%tl163009163037%_ + (gx#stx-e _%__stx183183183184%_)))) + (let ((_%tl166632166660%_ (let () (declare (not safe)) - (##cdr _%e163007163032%_))) - (_%hd163008163035%_ + (##cdr _%e166630166655%_))) + (_%hd166631166658%_ (let () (declare (not safe)) - (##car _%e163007163032%_)))) + (##car _%e166630166655%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163008163035%_)) - (let ((_%e163010163040%_ + (gx#stx-pair? _%hd166631166658%_)) + (let ((_%e166633166663%_ (let () (declare (not safe)) - (gx#stx-e _%hd163008163035%_)))) - (let ((_%tl163012163045%_ + (gx#stx-e _%hd166631166658%_)))) + (let ((_%tl166635166668%_ (let () (declare (not safe)) - (##cdr _%e163010163040%_))) - (_%hd163011163043%_ + (##cdr _%e166633166663%_))) + (_%hd166634166666%_ (let () (declare (not safe)) - (##car _%e163010163040%_)))) + (##car _%e166633166663%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163012163045%_)) + (gx#stx-null? _%tl166635166668%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163009163037%_)) - (let ((_%e163013163048%_ + (gx#stx-pair? _%tl166632166660%_)) + (let ((_%e166636166671%_ (let () (declare (not safe)) - (gx#stx-e _%tl163009163037%_)))) - (let ((_%tl163015163053%_ + (gx#stx-e _%tl166632166660%_)))) + (let ((_%tl166638166676%_ (let () (declare (not safe)) - (##cdr _%e163013163048%_))) - (_%hd163014163051%_ + (##cdr _%e166636166671%_))) + (_%hd166637166674%_ (let () (declare (not safe)) - (##car _%e163013163048%_)))) + (##car _%e166636166671%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163015163053%_)) - (_%__kont179641179642%_ - _%hd163014163051%_ - _%hd163011163043%_) - (_%__kont179643179644%_)))) - (_%__kont179643179644%_)) - (_%__kont179643179644%_)))) - (_%__kont179643179644%_)))) - (_%__kont179643179644%_)))))))) + _%tl166638166676%_)) + (_%__kont183185183186%_ + _%hd166637166674%_ + _%hd166634166666%_) + (_%__kont183187183188%_)))) + (_%__kont183187183188%_)) + (_%__kont183187183188%_)))) + (_%__kont183187183188%_)))) + (_%__kont183187183188%_)))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top~1.scm b/src/bootstrap/gerbil/compiler/optimize-top~1.scm index d9d62764da..dda9eb76bd 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top~1.scm @@ -1,237 +1,237 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g180074_| + (define |gxc[1]#_g183618_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180076_| + (define |gxc[1]#_g183620_| (##structure gx#syntax-quote::t '::collect-top-level-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180078_| + (define |gxc[1]#_g183622_| (##structure gx#syntax-quote::t 'make-::collect-top-level-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180080_| + (define |gxc[1]#_g183624_| (##structure gx#syntax-quote::t '::collect-top-level-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180083_| + (define |gxc[1]#_g183627_| (##structure gx#syntax-quote::t '::collect-top-level-declarations::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180085_| + (define |gxc[1]#_g183629_| (##structure gx#syntax-quote::t 'make-::collect-top-level-declarations #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180087_| + (define |gxc[1]#_g183631_| (##structure gx#syntax-quote::t '::collect-top-level-declarations? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180089_| + (define |gxc[1]#_g183633_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180091_| + (define |gxc[1]#_g183635_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180093_| + (define |gxc[1]#_g183637_| (##structure gx#syntax-quote::t 'make-::basic-expression-top-level-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180095_| + (define |gxc[1]#_g183639_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180098_| + (define |gxc[1]#_g183642_| (##structure gx#syntax-quote::t '::collect-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180100_| + (define |gxc[1]#_g183644_| (##structure gx#syntax-quote::t 'make-::collect-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180102_| + (define |gxc[1]#_g183646_| (##structure gx#syntax-quote::t '::collect-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180105_| + (define |gxc[1]#_g183649_| (##structure gx#syntax-quote::t '::collect-mutable-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180107_| + (define |gxc[1]#_g183651_| (##structure gx#syntax-quote::t 'make-::collect-mutable-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180109_| + (define |gxc[1]#_g183653_| (##structure gx#syntax-quote::t '::collect-mutable-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180112_| + (define |gxc[1]#_g183656_| (##structure gx#syntax-quote::t '::refine-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180114_| + (define |gxc[1]#_g183658_| (##structure gx#syntax-quote::t 'make-::refine-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180116_| + (define |gxc[1]#_g183660_| (##structure gx#syntax-quote::t '::refine-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180119_| + (define |gxc[1]#_g183663_| (##structure gx#syntax-quote::t '::raw-expression-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180121_| + (define |gxc[1]#_g183665_| (##structure gx#syntax-quote::t 'make-::raw-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180123_| + (define |gxc[1]#_g183667_| (##structure gx#syntax-quote::t '::raw-expression-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180125_| + (define |gxc[1]#_g183669_| (##structure gx#syntax-quote::t '::raw-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180127_| + (define |gxc[1]#_g183671_| (##structure gx#syntax-quote::t '::basic-expression-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180129_| + (define |gxc[1]#_g183673_| (##structure gx#syntax-quote::t 'make-::basic-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180131_| + (define |gxc[1]#_g183675_| (##structure gx#syntax-quote::t '::basic-expression-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180133_| + (define |gxc[1]#_g183677_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180135_| + (define |gxc[1]#_g183679_| (##structure gx#syntax-quote::t '::lift-top-lambdas::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180137_| + (define |gxc[1]#_g183681_| (##structure gx#syntax-quote::t 'make-::lift-top-lambdas #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180139_| + (define |gxc[1]#_g183683_| (##structure gx#syntax-quote::t '::lift-top-lambdas? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180142_| + (define |gxc[1]#_g183686_| (##structure gx#syntax-quote::t '::extract-lambda-signature::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180144_| + (define |gxc[1]#_g183688_| (##structure gx#syntax-quote::t 'make-::extract-lambda-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g180146_| + (define |gxc[1]#_g183690_| (##structure gx#syntax-quote::t '::extract-lambda-signature? @@ -240,7 +240,7 @@ '())) (begin (define |gxc[:0:]#::collect-top-level-type-info| - (let ((__obj179668 + (let ((__obj183212 (let () (declare (not safe)) (##structure @@ -269,7 +269,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179668 + __obj183212 'gxc#::collect-top-level-type-info::t '1 '#f @@ -277,65 +277,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179668 + __obj183212 '::collect-top-level-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179668 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj183212 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179668 '() '6 '#f '#f)) - (let ((__tmp180073 (cons |gxc[1]#_g180074_| '()))) + (##unchecked-structure-set! __obj183212 '() '7 '#f '#f)) + (let ((__tmp183617 (cons |gxc[1]#_g183618_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj179668 __tmp180073 '3 '#f '#f)) + (##unchecked-structure-set! __obj183212 __tmp183617 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179668 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj183212 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179668 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj183212 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179668 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj183212 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179668 '#f '11 '#f '#f)) - (let ((__tmp180075 |gxc[1]#_g180076_|)) + (##unchecked-structure-set! __obj183212 '#f '12 '#f '#f)) + (let ((__tmp183619 |gxc[1]#_g183620_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179668 __tmp180075 '12 '#f '#f)) - (let ((__tmp180077 |gxc[1]#_g180078_|)) + (##unchecked-structure-set! __obj183212 __tmp183619 '3 '#f '#f)) + (let ((__tmp183621 |gxc[1]#_g183622_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179668 __tmp180077 '13 '#f '#f)) - (let ((__tmp180079 |gxc[1]#_g180080_|)) + (##unchecked-structure-set! __obj183212 __tmp183621 '13 '#f '#f)) + (let ((__tmp183623 |gxc[1]#_g183624_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179668 __tmp180079 '14 '#f '#f)) + (##unchecked-structure-set! __obj183212 __tmp183623 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179668 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj183212 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179668 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj183212 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179668 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj183212 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179668 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj183212 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179668 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj183212 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179668 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj183212 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179668 '() '20 '#f '#f)) - __obj179668)) + (##unchecked-structure-set! __obj183212 '() '20 '#f '#f)) + __obj183212)) (define |gxc[:0:]#::collect-top-level-declarations| - (let ((__obj179670 + (let ((__obj183214 (let () (declare (not safe)) (##structure @@ -364,7 +364,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179670 + __obj183214 'gxc#::collect-top-level-declarations::t '1 '#f @@ -372,65 +372,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179670 + __obj183214 '::collect-top-level-declarations '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179670 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj183214 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179670 '() '6 '#f '#f)) - (let ((__tmp180081 (cons |gxc[1]#_g180074_| '()))) + (##unchecked-structure-set! __obj183214 '() '7 '#f '#f)) + (let ((__tmp183625 (cons |gxc[1]#_g183618_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj179670 __tmp180081 '3 '#f '#f)) + (##unchecked-structure-set! __obj183214 __tmp183625 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179670 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj183214 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179670 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj183214 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179670 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj183214 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179670 '#f '11 '#f '#f)) - (let ((__tmp180082 |gxc[1]#_g180083_|)) + (##unchecked-structure-set! __obj183214 '#f '12 '#f '#f)) + (let ((__tmp183626 |gxc[1]#_g183627_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179670 __tmp180082 '12 '#f '#f)) - (let ((__tmp180084 |gxc[1]#_g180085_|)) + (##unchecked-structure-set! __obj183214 __tmp183626 '3 '#f '#f)) + (let ((__tmp183628 |gxc[1]#_g183629_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179670 __tmp180084 '13 '#f '#f)) - (let ((__tmp180086 |gxc[1]#_g180087_|)) + (##unchecked-structure-set! __obj183214 __tmp183628 '13 '#f '#f)) + (let ((__tmp183630 |gxc[1]#_g183631_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179670 __tmp180086 '14 '#f '#f)) + (##unchecked-structure-set! __obj183214 __tmp183630 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179670 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj183214 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179670 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj183214 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179670 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj183214 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179670 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj183214 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179670 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj183214 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179670 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj183214 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179670 '() '20 '#f '#f)) - __obj179670)) + (##unchecked-structure-set! __obj183214 '() '20 '#f '#f)) + __obj183214)) (define |gxc[:0:]#::basic-expression-top-level-type| - (let ((__obj179672 + (let ((__obj183216 (let () (declare (not safe)) (##structure @@ -459,7 +459,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179672 + __obj183216 'gxc#::basic-expression-top-level-type::t '1 '#f @@ -467,65 +467,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179672 + __obj183216 '::basic-expression-top-level-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179672 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj183216 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179672 '() '6 '#f '#f)) - (let ((__tmp180088 (cons |gxc[1]#_g180089_| '()))) + (##unchecked-structure-set! __obj183216 '() '7 '#f '#f)) + (let ((__tmp183632 (cons |gxc[1]#_g183633_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj179672 __tmp180088 '3 '#f '#f)) + (##unchecked-structure-set! __obj183216 __tmp183632 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179672 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj183216 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179672 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj183216 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179672 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj183216 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179672 '#f '11 '#f '#f)) - (let ((__tmp180090 |gxc[1]#_g180091_|)) + (##unchecked-structure-set! __obj183216 '#f '12 '#f '#f)) + (let ((__tmp183634 |gxc[1]#_g183635_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179672 __tmp180090 '12 '#f '#f)) - (let ((__tmp180092 |gxc[1]#_g180093_|)) + (##unchecked-structure-set! __obj183216 __tmp183634 '3 '#f '#f)) + (let ((__tmp183636 |gxc[1]#_g183637_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179672 __tmp180092 '13 '#f '#f)) - (let ((__tmp180094 |gxc[1]#_g180095_|)) + (##unchecked-structure-set! __obj183216 __tmp183636 '13 '#f '#f)) + (let ((__tmp183638 |gxc[1]#_g183639_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179672 __tmp180094 '14 '#f '#f)) + (##unchecked-structure-set! __obj183216 __tmp183638 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179672 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj183216 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179672 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj183216 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179672 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj183216 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179672 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj183216 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179672 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj183216 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179672 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj183216 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179672 '() '20 '#f '#f)) - __obj179672)) + (##unchecked-structure-set! __obj183216 '() '20 '#f '#f)) + __obj183216)) (define |gxc[:0:]#::collect-type-info| - (let ((__obj179674 + (let ((__obj183218 (let () (declare (not safe)) (##structure @@ -554,7 +554,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179674 + __obj183218 'gxc#::collect-type-info::t '1 '#f @@ -562,65 +562,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179674 + __obj183218 '::collect-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179674 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj183218 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179674 '() '6 '#f '#f)) - (let ((__tmp180096 (cons |gxc[1]#_g180074_| '()))) + (##unchecked-structure-set! __obj183218 '() '7 '#f '#f)) + (let ((__tmp183640 (cons |gxc[1]#_g183618_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj179674 __tmp180096 '3 '#f '#f)) + (##unchecked-structure-set! __obj183218 __tmp183640 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179674 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj183218 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179674 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj183218 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179674 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj183218 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179674 '#f '11 '#f '#f)) - (let ((__tmp180097 |gxc[1]#_g180098_|)) + (##unchecked-structure-set! __obj183218 '#f '12 '#f '#f)) + (let ((__tmp183641 |gxc[1]#_g183642_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179674 __tmp180097 '12 '#f '#f)) - (let ((__tmp180099 |gxc[1]#_g180100_|)) + (##unchecked-structure-set! __obj183218 __tmp183641 '3 '#f '#f)) + (let ((__tmp183643 |gxc[1]#_g183644_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179674 __tmp180099 '13 '#f '#f)) - (let ((__tmp180101 |gxc[1]#_g180102_|)) + (##unchecked-structure-set! __obj183218 __tmp183643 '13 '#f '#f)) + (let ((__tmp183645 |gxc[1]#_g183646_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179674 __tmp180101 '14 '#f '#f)) + (##unchecked-structure-set! __obj183218 __tmp183645 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179674 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj183218 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179674 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj183218 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179674 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj183218 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179674 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj183218 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179674 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj183218 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179674 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj183218 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179674 '() '20 '#f '#f)) - __obj179674)) + (##unchecked-structure-set! __obj183218 '() '20 '#f '#f)) + __obj183218)) (define |gxc[:0:]#::collect-mutable-type-info| - (let ((__obj179676 + (let ((__obj183220 (let () (declare (not safe)) (##structure @@ -649,7 +649,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179676 + __obj183220 'gxc#::collect-mutable-type-info::t '1 '#f @@ -657,65 +657,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179676 + __obj183220 '::collect-mutable-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179676 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj183220 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179676 '() '6 '#f '#f)) - (let ((__tmp180103 (cons |gxc[1]#_g180074_| '()))) + (##unchecked-structure-set! __obj183220 '() '7 '#f '#f)) + (let ((__tmp183647 (cons |gxc[1]#_g183618_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj179676 __tmp180103 '3 '#f '#f)) + (##unchecked-structure-set! __obj183220 __tmp183647 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179676 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj183220 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179676 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj183220 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179676 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj183220 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179676 '#f '11 '#f '#f)) - (let ((__tmp180104 |gxc[1]#_g180105_|)) + (##unchecked-structure-set! __obj183220 '#f '12 '#f '#f)) + (let ((__tmp183648 |gxc[1]#_g183649_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179676 __tmp180104 '12 '#f '#f)) - (let ((__tmp180106 |gxc[1]#_g180107_|)) + (##unchecked-structure-set! __obj183220 __tmp183648 '3 '#f '#f)) + (let ((__tmp183650 |gxc[1]#_g183651_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179676 __tmp180106 '13 '#f '#f)) - (let ((__tmp180108 |gxc[1]#_g180109_|)) + (##unchecked-structure-set! __obj183220 __tmp183650 '13 '#f '#f)) + (let ((__tmp183652 |gxc[1]#_g183653_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179676 __tmp180108 '14 '#f '#f)) + (##unchecked-structure-set! __obj183220 __tmp183652 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179676 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj183220 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179676 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj183220 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179676 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj183220 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179676 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj183220 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179676 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj183220 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179676 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj183220 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179676 '() '20 '#f '#f)) - __obj179676)) + (##unchecked-structure-set! __obj183220 '() '20 '#f '#f)) + __obj183220)) (define |gxc[:0:]#::refine-type-info| - (let ((__obj179678 + (let ((__obj183222 (let () (declare (not safe)) (##structure @@ -744,7 +744,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179678 + __obj183222 'gxc#::refine-type-info::t '1 '#f @@ -752,65 +752,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179678 + __obj183222 '::refine-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179678 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj183222 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179678 '() '6 '#f '#f)) - (let ((__tmp180110 (cons |gxc[1]#_g180074_| '()))) + (##unchecked-structure-set! __obj183222 '() '7 '#f '#f)) + (let ((__tmp183654 (cons |gxc[1]#_g183618_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj179678 __tmp180110 '3 '#f '#f)) + (##unchecked-structure-set! __obj183222 __tmp183654 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179678 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj183222 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179678 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj183222 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179678 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj183222 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179678 '#f '11 '#f '#f)) - (let ((__tmp180111 |gxc[1]#_g180112_|)) + (##unchecked-structure-set! __obj183222 '#f '12 '#f '#f)) + (let ((__tmp183655 |gxc[1]#_g183656_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179678 __tmp180111 '12 '#f '#f)) - (let ((__tmp180113 |gxc[1]#_g180114_|)) + (##unchecked-structure-set! __obj183222 __tmp183655 '3 '#f '#f)) + (let ((__tmp183657 |gxc[1]#_g183658_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179678 __tmp180113 '13 '#f '#f)) - (let ((__tmp180115 |gxc[1]#_g180116_|)) + (##unchecked-structure-set! __obj183222 __tmp183657 '13 '#f '#f)) + (let ((__tmp183659 |gxc[1]#_g183660_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179678 __tmp180115 '14 '#f '#f)) + (##unchecked-structure-set! __obj183222 __tmp183659 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179678 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj183222 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179678 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj183222 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179678 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj183222 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179678 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj183222 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179678 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj183222 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179678 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj183222 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179678 '() '20 '#f '#f)) - __obj179678)) + (##unchecked-structure-set! __obj183222 '() '20 '#f '#f)) + __obj183222)) (define |gxc[:0:]#::raw-expression-type| - (let ((__obj179680 + (let ((__obj183224 (let () (declare (not safe)) (##structure @@ -839,7 +839,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179680 + __obj183224 'gxc#::raw-expression-type::t '1 '#f @@ -847,65 +847,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179680 + __obj183224 '::raw-expression-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179680 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj183224 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179680 '() '6 '#f '#f)) - (let ((__tmp180117 (cons |gxc[1]#_g180089_| '()))) + (##unchecked-structure-set! __obj183224 '() '7 '#f '#f)) + (let ((__tmp183661 (cons |gxc[1]#_g183633_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj179680 __tmp180117 '3 '#f '#f)) + (##unchecked-structure-set! __obj183224 __tmp183661 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179680 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj183224 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179680 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj183224 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179680 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj183224 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179680 '#f '11 '#f '#f)) - (let ((__tmp180118 |gxc[1]#_g180119_|)) + (##unchecked-structure-set! __obj183224 '#f '12 '#f '#f)) + (let ((__tmp183662 |gxc[1]#_g183663_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179680 __tmp180118 '12 '#f '#f)) - (let ((__tmp180120 |gxc[1]#_g180121_|)) + (##unchecked-structure-set! __obj183224 __tmp183662 '3 '#f '#f)) + (let ((__tmp183664 |gxc[1]#_g183665_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179680 __tmp180120 '13 '#f '#f)) - (let ((__tmp180122 |gxc[1]#_g180123_|)) + (##unchecked-structure-set! __obj183224 __tmp183664 '13 '#f '#f)) + (let ((__tmp183666 |gxc[1]#_g183667_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179680 __tmp180122 '14 '#f '#f)) + (##unchecked-structure-set! __obj183224 __tmp183666 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179680 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj183224 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179680 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj183224 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179680 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj183224 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179680 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj183224 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179680 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj183224 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179680 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj183224 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179680 '() '20 '#f '#f)) - __obj179680)) + (##unchecked-structure-set! __obj183224 '() '20 '#f '#f)) + __obj183224)) (define |gxc[:0:]#::basic-expression-type| - (let ((__obj179682 + (let ((__obj183226 (let () (declare (not safe)) (##structure @@ -934,7 +934,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179682 + __obj183226 'gxc#::basic-expression-type::t '1 '#f @@ -942,66 +942,66 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179682 + __obj183226 '::basic-expression-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179682 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj183226 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179682 '() '6 '#f '#f)) - (let ((__tmp180124 - (cons |gxc[1]#_g180125_| (cons |gxc[1]#_g180089_| '())))) + (##unchecked-structure-set! __obj183226 '() '7 '#f '#f)) + (let ((__tmp183668 + (cons |gxc[1]#_g183669_| (cons |gxc[1]#_g183633_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj179682 __tmp180124 '3 '#f '#f)) + (##unchecked-structure-set! __obj183226 __tmp183668 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179682 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj183226 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179682 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj183226 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179682 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj183226 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179682 '#f '11 '#f '#f)) - (let ((__tmp180126 |gxc[1]#_g180127_|)) + (##unchecked-structure-set! __obj183226 '#f '12 '#f '#f)) + (let ((__tmp183670 |gxc[1]#_g183671_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179682 __tmp180126 '12 '#f '#f)) - (let ((__tmp180128 |gxc[1]#_g180129_|)) + (##unchecked-structure-set! __obj183226 __tmp183670 '3 '#f '#f)) + (let ((__tmp183672 |gxc[1]#_g183673_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179682 __tmp180128 '13 '#f '#f)) - (let ((__tmp180130 |gxc[1]#_g180131_|)) + (##unchecked-structure-set! __obj183226 __tmp183672 '13 '#f '#f)) + (let ((__tmp183674 |gxc[1]#_g183675_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179682 __tmp180130 '14 '#f '#f)) + (##unchecked-structure-set! __obj183226 __tmp183674 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179682 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj183226 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179682 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj183226 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179682 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj183226 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179682 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj183226 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179682 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj183226 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179682 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj183226 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179682 '() '20 '#f '#f)) - __obj179682)) + (##unchecked-structure-set! __obj183226 '() '20 '#f '#f)) + __obj183226)) (define |gxc[:0:]#::lift-top-lambdas| - (let ((__obj179684 + (let ((__obj183228 (let () (declare (not safe)) (##structure @@ -1030,7 +1030,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179684 + __obj183228 'gxc#::lift-top-lambdas::t '1 '#f @@ -1038,65 +1038,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179684 + __obj183228 '::lift-top-lambdas '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179684 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj183228 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179684 '() '6 '#f '#f)) - (let ((__tmp180132 (cons |gxc[1]#_g180133_| '()))) + (##unchecked-structure-set! __obj183228 '() '7 '#f '#f)) + (let ((__tmp183676 (cons |gxc[1]#_g183677_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj179684 __tmp180132 '3 '#f '#f)) + (##unchecked-structure-set! __obj183228 __tmp183676 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179684 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj183228 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179684 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj183228 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179684 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj183228 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179684 '#f '11 '#f '#f)) - (let ((__tmp180134 |gxc[1]#_g180135_|)) + (##unchecked-structure-set! __obj183228 '#f '12 '#f '#f)) + (let ((__tmp183678 |gxc[1]#_g183679_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179684 __tmp180134 '12 '#f '#f)) - (let ((__tmp180136 |gxc[1]#_g180137_|)) + (##unchecked-structure-set! __obj183228 __tmp183678 '3 '#f '#f)) + (let ((__tmp183680 |gxc[1]#_g183681_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179684 __tmp180136 '13 '#f '#f)) - (let ((__tmp180138 |gxc[1]#_g180139_|)) + (##unchecked-structure-set! __obj183228 __tmp183680 '13 '#f '#f)) + (let ((__tmp183682 |gxc[1]#_g183683_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179684 __tmp180138 '14 '#f '#f)) + (##unchecked-structure-set! __obj183228 __tmp183682 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179684 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj183228 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179684 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj183228 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179684 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj183228 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179684 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj183228 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179684 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj183228 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179684 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj183228 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179684 '() '20 '#f '#f)) - __obj179684)) + (##unchecked-structure-set! __obj183228 '() '20 '#f '#f)) + __obj183228)) (define |gxc[:0:]#::extract-lambda-signature| - (let ((__obj179686 + (let ((__obj183230 (let () (declare (not safe)) (##structure @@ -1125,7 +1125,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179686 + __obj183230 'gxc#::extract-lambda-signature::t '1 '#f @@ -1133,189 +1133,189 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj179686 + __obj183230 '::extract-lambda-signature '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179686 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj183230 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179686 '() '6 '#f '#f)) - (let ((__tmp180140 (cons |gxc[1]#_g180089_| '()))) + (##unchecked-structure-set! __obj183230 '() '7 '#f '#f)) + (let ((__tmp183684 (cons |gxc[1]#_g183633_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj179686 __tmp180140 '3 '#f '#f)) + (##unchecked-structure-set! __obj183230 __tmp183684 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179686 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj183230 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179686 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj183230 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179686 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj183230 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179686 '#f '11 '#f '#f)) - (let ((__tmp180141 |gxc[1]#_g180142_|)) + (##unchecked-structure-set! __obj183230 '#f '12 '#f '#f)) + (let ((__tmp183685 |gxc[1]#_g183686_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179686 __tmp180141 '12 '#f '#f)) - (let ((__tmp180143 |gxc[1]#_g180144_|)) + (##unchecked-structure-set! __obj183230 __tmp183685 '3 '#f '#f)) + (let ((__tmp183687 |gxc[1]#_g183688_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179686 __tmp180143 '13 '#f '#f)) - (let ((__tmp180145 |gxc[1]#_g180146_|)) + (##unchecked-structure-set! __obj183230 __tmp183687 '13 '#f '#f)) + (let ((__tmp183689 |gxc[1]#_g183690_|)) (declare (not safe)) - (##unchecked-structure-set! __obj179686 __tmp180145 '14 '#f '#f)) + (##unchecked-structure-set! __obj183230 __tmp183689 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179686 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj183230 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179686 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj183230 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179686 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj183230 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179686 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj183230 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179686 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj183230 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179686 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj183230 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj179686 '() '20 '#f '#f)) - __obj179686)) + (##unchecked-structure-set! __obj183230 '() '20 '#f '#f)) + __obj183230)) (define |gxc[:0:]#defbasic-expression-type-annotations| - (lambda (_%$stx162723%_) - (let* ((_%g162727162756%_ - (lambda (_%g162728162752%_) + (lambda (_%$stx166354%_) + (let* ((_%g166358166387%_ + (lambda (_%g166359166383%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162728162752%_)))) - (_%g162726162857%_ - (lambda (_%g162728162760%_) + _%g166359166383%_)))) + (_%g166357166484%_ + (lambda (_%g166359166391%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162728162760%_)) - (let ((_%e162731162763%_ + (gx#stx-pair? _%g166359166391%_)) + (let ((_%e166362166394%_ (let () (declare (not safe)) - (gx#syntax-e _%g162728162760%_)))) - (let ((_%hd162732162767%_ + (gx#syntax-e _%g166359166391%_)))) + (let ((_%hd166363166398%_ (let () (declare (not safe)) - (##car _%e162731162763%_))) - (_%tl162733162770%_ + (##car _%e166362166394%_))) + (_%tl166364166401%_ (let () (declare (not safe)) - (##cdr _%e162731162763%_)))) + (##cdr _%e166362166394%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl162733162770%_)) - (let ((_g180147_ + (gx#stx-pair/null? _%tl166364166401%_)) + (let ((_g183691_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl162733162770%_ + _%tl166364166401%_ '0)))) (begin - (let ((_g180148_ + (let ((_g183692_ (let () (declare (not safe)) - (if (##values? _g180147_) - (##values-length _g180147_) + (if (##values? _g183691_) + (##values-length _g183691_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g180148_ 2))) + (##fx= _g183692_ 2))) (error "Context expects 2 values" - _g180148_))) - (let ((_%target162734162773%_ + _g183692_))) + (let ((_%target166365166404%_ (let () (declare (not safe)) - (##values-ref _g180147_ 0))) - (_%tl162736162776%_ + (##values-ref _g183691_ 0))) + (_%tl166367166407%_ (let () (declare (not safe)) - (##values-ref _g180147_ 1)))) + (##values-ref _g183691_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162736162776%_)) - (letrec ((_%loop162737162779%_ - (lambda (_%hd162735162783%_ - _%type-e162741162786%_ - _%id162742162788%_) + (gx#stx-null? _%tl166367166407%_)) + (letrec ((_%loop166368166410%_ + (lambda (_%hd166366166414%_ + _%type-e166372166417%_ + _%id166373166418%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162735162783%_)) - (let ((_%e162738162791%_ + _%hd166366166414%_)) + (let ((_%e166369166420%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd162735162783%_)))) - (let ((_%lp-hd162739162795%_ + (gx#syntax-e _%hd166366166414%_)))) + (let ((_%lp-hd166370166424%_ (let () (declare (not safe)) - (##car _%e162738162791%_))) - (_%lp-tl162740162798%_ + (##car _%e166369166420%_))) + (_%lp-tl166371166427%_ (let () (declare (not safe)) - (##cdr _%e162738162791%_)))) + (##cdr _%e166369166420%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd162739162795%_)) - (let ((_%e162745162801%_ + (gx#stx-pair? _%lp-hd166370166424%_)) + (let ((_%e166376166430%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd162739162795%_)))) - (let ((_%hd162746162805%_ + (gx#syntax-e _%lp-hd166370166424%_)))) + (let ((_%hd166377166434%_ (let () (declare (not safe)) - (##car _%e162745162801%_))) - (_%tl162747162808%_ + (##car _%e166376166430%_))) + (_%tl166378166437%_ (let () (declare (not safe)) - (##cdr _%e162745162801%_)))) + (##cdr _%e166376166430%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162747162808%_)) - (let ((_%e162748162811%_ + (gx#stx-pair? _%tl166378166437%_)) + (let ((_%e166379166440%_ (let () (declare (not safe)) - (gx#syntax-e _%tl162747162808%_)))) - (let ((_%hd162749162815%_ + (gx#syntax-e _%tl166378166437%_)))) + (let ((_%hd166380166444%_ (let () (declare (not safe)) - (##car _%e162748162811%_))) - (_%tl162750162818%_ + (##car _%e166379166440%_))) + (_%tl166381166447%_ (let () (declare (not safe)) - (##cdr _%e162748162811%_)))) + (##cdr _%e166379166440%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162750162818%_)) - (_%loop162737162779%_ - _%lp-tl162740162798%_ - (cons _%hd162749162815%_ - _%type-e162741162786%_) - (cons _%hd162746162805%_ - _%id162742162788%_)) - (_%g162727162756%_ - _%g162728162760%_)))) - (_%g162727162756%_ _%g162728162760%_)))) - (_%g162727162756%_ _%g162728162760%_)))) - (let ((_%type-e162743162821%_ (reverse _%type-e162741162786%_)) - (_%id162744162824%_ (reverse _%id162742162788%_))) - ((lambda (_%L162827%_ _%L162829%_) + (gx#stx-null? _%tl166381166447%_)) + (_%loop166368166410%_ + _%lp-tl166371166427%_ + (cons _%hd166380166444%_ + _%type-e166372166417%_) + (cons _%hd166377166434%_ + _%id166373166418%_)) + (_%g166358166387%_ + _%g166359166391%_)))) + (_%g166358166387%_ _%g166359166391%_)))) + (_%g166358166387%_ _%g166359166391%_)))) + (let ((_%type-e166374166450%_ (reverse _%type-e166372166417%_)) + (_%id166375166452%_ (reverse _%id166373166418%_))) + ((lambda (_%g166360166454%_ _%g166361166456%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -1323,12 +1323,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L162827%_ - _%L162829%_)) - (let ((__tmp180149 - (lambda (_%g162845162849%_ - _%g162846162852%_ - _%g162847162854%_) + _%g166360166454%_ + _%g166361166456%_)) + (let ((__tmp183693 + (lambda (_%g166472166476%_ + _%g166473166479%_ + _%g166474166481%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1343,154 +1343,154 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g162846162852%_ '())) - (cons _%g162845162849%_ '())))) + (cons _%g166473166479%_ '())) + (cons _%g166472166476%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g162847162854%_)))) + _%g166474166481%_)))) (declare (not safe)) (__foldr2 - __tmp180149 + __tmp183693 '() - _%L162827%_ - _%L162829%_))))) - _%type-e162743162821%_ - _%id162744162824%_)))))) + _%g166360166454%_ + _%g166361166456%_))))) + _%type-e166374166450%_ + _%id166375166452%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop162737162779%_ - _%target162734162773%_ + (_%loop166368166410%_ + _%target166365166404%_ '() '())) - (_%g162727162756%_ - _%g162728162760%_))))) - (_%g162727162756%_ _%g162728162760%_)))) - (_%g162727162756%_ _%g162728162760%_))))) - (_%g162726162857%_ _%$stx162723%_)))) + (_%g166358166387%_ + _%g166359166391%_))))) + (_%g166358166387%_ _%g166359166391%_)))) + (_%g166358166387%_ _%g166359166391%_))))) + (_%g166357166484%_ _%$stx166354%_)))) (define |gxc[:0:]#defbasic-expression-type-special| - (lambda (_%$stx162862%_) - (let* ((_%g162866162895%_ - (lambda (_%g162867162891%_) + (lambda (_%$stx166489%_) + (let* ((_%g166493166522%_ + (lambda (_%g166494166518%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162867162891%_)))) - (_%g162865162995%_ - (lambda (_%g162867162899%_) + _%g166494166518%_)))) + (_%g166492166618%_ + (lambda (_%g166494166526%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162867162899%_)) - (let ((_%e162870162902%_ + (gx#stx-pair? _%g166494166526%_)) + (let ((_%e166497166529%_ (let () (declare (not safe)) - (gx#syntax-e _%g162867162899%_)))) - (let ((_%hd162871162906%_ + (gx#syntax-e _%g166494166526%_)))) + (let ((_%hd166498166533%_ (let () (declare (not safe)) - (##car _%e162870162902%_))) - (_%tl162872162909%_ + (##car _%e166497166529%_))) + (_%tl166499166536%_ (let () (declare (not safe)) - (##cdr _%e162870162902%_)))) + (##cdr _%e166497166529%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl162872162909%_)) - (let ((_g180150_ + (gx#stx-pair/null? _%tl166499166536%_)) + (let ((_g183694_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl162872162909%_ + _%tl166499166536%_ '0)))) (begin - (let ((_g180151_ + (let ((_g183695_ (let () (declare (not safe)) - (if (##values? _g180150_) - (##values-length _g180150_) + (if (##values? _g183694_) + (##values-length _g183694_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g180151_ 2))) + (##fx= _g183695_ 2))) (error "Context expects 2 values" - _g180151_))) - (let ((_%target162873162912%_ + _g183695_))) + (let ((_%target166500166539%_ (let () (declare (not safe)) - (##values-ref _g180150_ 0))) - (_%tl162875162915%_ + (##values-ref _g183694_ 0))) + (_%tl166502166542%_ (let () (declare (not safe)) - (##values-ref _g180150_ 1)))) + (##values-ref _g183694_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162875162915%_)) - (letrec ((_%loop162876162918%_ - (lambda (_%hd162874162922%_ - _%type-e162880162925%_ - _%id162881162927%_) + (gx#stx-null? _%tl166502166542%_)) + (letrec ((_%loop166503166545%_ + (lambda (_%hd166501166549%_ + _%type-e166507166552%_ + _%id166508166553%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162874162922%_)) - (let ((_%e162877162930%_ + _%hd166501166549%_)) + (let ((_%e166504166555%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd162874162922%_)))) - (let ((_%lp-hd162878162934%_ + (gx#syntax-e _%hd166501166549%_)))) + (let ((_%lp-hd166505166559%_ (let () (declare (not safe)) - (##car _%e162877162930%_))) - (_%lp-tl162879162937%_ + (##car _%e166504166555%_))) + (_%lp-tl166506166562%_ (let () (declare (not safe)) - (##cdr _%e162877162930%_)))) + (##cdr _%e166504166555%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd162878162934%_)) - (let ((_%e162884162940%_ + (gx#stx-pair? _%lp-hd166505166559%_)) + (let ((_%e166511166565%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd162878162934%_)))) - (let ((_%hd162885162944%_ + (gx#syntax-e _%lp-hd166505166559%_)))) + (let ((_%hd166512166569%_ (let () (declare (not safe)) - (##car _%e162884162940%_))) - (_%tl162886162947%_ + (##car _%e166511166565%_))) + (_%tl166513166572%_ (let () (declare (not safe)) - (##cdr _%e162884162940%_)))) + (##cdr _%e166511166565%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162886162947%_)) - (let ((_%e162887162950%_ + (gx#stx-pair? _%tl166513166572%_)) + (let ((_%e166514166575%_ (let () (declare (not safe)) - (gx#syntax-e _%tl162886162947%_)))) - (let ((_%hd162888162954%_ + (gx#syntax-e _%tl166513166572%_)))) + (let ((_%hd166515166579%_ (let () (declare (not safe)) - (##car _%e162887162950%_))) - (_%tl162889162957%_ + (##car _%e166514166575%_))) + (_%tl166516166582%_ (let () (declare (not safe)) - (##cdr _%e162887162950%_)))) + (##cdr _%e166514166575%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162889162957%_)) - (_%loop162876162918%_ - _%lp-tl162879162937%_ - (cons _%hd162888162954%_ - _%type-e162880162925%_) - (cons _%hd162885162944%_ - _%id162881162927%_)) - (_%g162866162895%_ - _%g162867162899%_)))) - (_%g162866162895%_ _%g162867162899%_)))) - (_%g162866162895%_ _%g162867162899%_)))) - (let ((_%type-e162882162960%_ (reverse _%type-e162880162925%_)) - (_%id162883162963%_ (reverse _%id162881162927%_))) - ((lambda (_%L162966%_ _%L162968%_) + (gx#stx-null? _%tl166516166582%_)) + (_%loop166503166545%_ + _%lp-tl166506166562%_ + (cons _%hd166515166579%_ + _%type-e166507166552%_) + (cons _%hd166512166569%_ + _%id166508166553%_)) + (_%g166493166522%_ + _%g166494166526%_)))) + (_%g166493166522%_ _%g166494166526%_)))) + (_%g166493166522%_ _%g166494166526%_)))) + (let ((_%type-e166509166585%_ (reverse _%type-e166507166552%_)) + (_%id166510166587%_ (reverse _%id166508166553%_))) + ((lambda (_%g166495166589%_ _%g166496166591%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -1498,12 +1498,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L162966%_ - _%L162968%_)) - (let ((__tmp180152 - (lambda (_%g162983162987%_ - _%g162984162990%_ - _%g162985162992%_) + _%g166495166589%_ + _%g166496166591%_)) + (let ((__tmp183696 + (lambda (_%g166606166610%_ + _%g166607166613%_ + _%g166608166615%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1518,25 +1518,25 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g162984162990%_ '())) - (cons _%g162983162987%_ '())))) + (cons _%g166607166613%_ '())) + (cons _%g166606166610%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g162985162992%_)))) + _%g166608166615%_)))) (declare (not safe)) (__foldr2 - __tmp180152 + __tmp183696 '() - _%L162966%_ - _%L162968%_))))) - _%type-e162882162960%_ - _%id162883162963%_)))))) + _%g166495166589%_ + _%g166496166591%_))))) + _%type-e166509166585%_ + _%id166510166587%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop162876162918%_ - _%target162873162912%_ + (_%loop166503166545%_ + _%target166500166539%_ '() '())) - (_%g162866162895%_ - _%g162867162899%_))))) - (_%g162866162895%_ _%g162867162899%_)))) - (_%g162866162895%_ _%g162867162899%_))))) - (_%g162865162995%_ _%$stx162862%_)))))) + (_%g166493166522%_ + _%g166494166526%_))))) + (_%g166493166522%_ _%g166494166526%_)))) + (_%g166493166522%_ _%g166494166526%_))))) + (_%g166492166618%_ _%$stx166489%_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform~0.scm b/src/bootstrap/gerbil/compiler/optimize-xform~0.scm index 4576a55ebd..8c8d919271 100644 --- a/src/bootstrap/gerbil/compiler/optimize-xform~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-xform~0.scm @@ -1,27 +1,27 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-xform::timestamp 1756721297) + (define gerbil/compiler/optimize-xform::timestamp 1769384631) (begin (define gxc#::collect-mutators::t - (let ((__tmp162588 (list gxc#::void::t)) - (__tmp162587 (cons (cons 'final: '#t) '()))) + (let ((__tmp166219 (list gxc#::void::t)) + (__tmp166218 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-mutators::t '::collect-mutators - __tmp162588 + __tmp166219 '() - __tmp162587 + __tmp166218 '#f))) (define gxc#::collect-mutators? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-mutators::t))) (define gxc#make-::collect-mutators - (lambda _%$args162574%_ - (apply make-instance gxc#::collect-mutators::t _%$args162574%_))) + (lambda _%$args166205%_ + (apply make-instance gxc#::collect-mutators::t _%$args166205%_))) (define gxc#::collect-mutators-bind-methods! - (let ((__tmp162589 + (let ((__tmp166220 (lambda () (force gxc#::void-bind-methods!) (let () @@ -166,44 +166,44 @@ (declare (not safe)) (__seal-class! gxc#::collect-mutators::t))))) (declare (not safe)) - (__make-atomic-promise __tmp162589))) + (__make-atomic-promise __tmp166220))) (define gxc#apply-collect-mutators - (lambda (_%stx162566%_) + (lambda (_%stx166197%_) (force gxc#::collect-mutators-bind-methods!) - (let* ((_%self162569%_ - (let ((__obj162577 + (let* ((_%self166200%_ + (let ((__obj166208 (let () (declare (not safe)) (##structure gxc#::collect-mutators::t)))) - __obj162577)) - (__tmp162590 + __obj166208)) + (__tmp166221 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self162569%_ _%stx162566%_))))) + (gxc#compile-e__1 _%self166200%_ _%stx166197%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp162590 + __tmp166221 gxc#current-compile-method - _%self162569%_)))) + _%self166200%_)))) (define gxc#::expression-subst::t - (let ((__tmp162592 (list gxc#::basic-xform-expression::t)) - (__tmp162591 (cons (cons 'final: '#t) '()))) + (let ((__tmp166223 (list gxc#::basic-xform-expression::t)) + (__tmp166222 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::expression-subst::t '::expression-subst - __tmp162592 + __tmp166223 '(id new-id) - __tmp162591 + __tmp166222 '#f))) (define gxc#::expression-subst? (let () (declare (not safe)) (__make-class-predicate gxc#::expression-subst::t))) (define gxc#make-::expression-subst - (lambda _%$args162563%_ - (apply make-instance gxc#::expression-subst::t _%$args162563%_))) + (lambda _%$args166194%_ + (apply make-instance gxc#::expression-subst::t _%$args166194%_))) (define gxc#::expression-subst-id (let () (declare (not safe)) @@ -241,7 +241,7 @@ gxc#::expression-subst::t 'new-id))) (define gxc#::expression-subst-bind-methods! - (let ((__tmp162593 + (let ((__tmp166224 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (let () @@ -266,95 +266,95 @@ (declare (not safe)) (__seal-class! gxc#::expression-subst::t))))) (declare (not safe)) - (__make-atomic-promise __tmp162593))) + (__make-atomic-promise __tmp166224))) (define gxc#apply-expression-subst__% - (lambda (_%@@keywords162533%_ - _%id162529162534%_ - _%new-id162530162536%_ - _%stx162538%_) - (let* ((_%id162541%_ - (if (eq? _%id162529162534%_ absent-value) + (lambda (_%@@keywords166166%_ + _%id166162166167%_ + _%new-id166163166168%_ + _%stx166169%_) + (let* ((_%id166172%_ + (if (eq? _%id166162166167%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'id:)) - _%id162529162534%_)) - (_%new-id162543%_ - (if (eq? _%new-id162530162536%_ absent-value) + _%id166162166167%_)) + (_%new-id166174%_ + (if (eq? _%new-id166163166168%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'new-id:)) - _%new-id162530162536%_))) + _%new-id166163166168%_))) (force gxc#::expression-subst-bind-methods!) - (let* ((_%self162545%_ - (let ((__obj162579 + (let* ((_%self166176%_ + (let ((__obj166210 (let () (declare (not safe)) (##structure gxc#::expression-subst::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj162579 - _%id162541%_ + __obj166210 + _%id166172%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj162579 - _%new-id162543%_ + __obj166210 + _%new-id166174%_ '2 '#f '#f)) - __obj162579)) - (__tmp162594 + __obj166210)) + (__tmp166225 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self162545%_ _%stx162538%_))))) + (gxc#compile-e__1 _%self166176%_ _%stx166169%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp162594 + __tmp166225 gxc#current-compile-method - _%self162545%_))))) + _%self166176%_))))) (define gxc#apply-expression-subst__@ - (lambda (_%@@keywords162552%_ . _%args162553%_) + (lambda (_%@@keywords166183%_ . _%args166184%_) (apply gxc#apply-expression-subst__% - _%@@keywords162552%_ + _%@@keywords166183%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords162552%_ 'id: absent-value)) + (symbolic-table-ref _%@@keywords166183%_ 'id: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords162552%_ + _%@@keywords166183%_ 'new-id: absent-value)) - _%args162553%_))) + _%args166184%_))) (define gxc#apply-expression-subst - (lambda _%args162531162559%_ + (lambda _%args166164166190%_ (apply keyword-dispatch '#(id: new-id:) gxc#apply-expression-subst__@ - _%args162531162559%_))) + _%args166164166190%_))) (define gxc#::expression-subst*::t - (let ((__tmp162596 (list gxc#::basic-xform-expression::t)) - (__tmp162595 (cons (cons 'final: '#t) '()))) + (let ((__tmp166227 (list gxc#::basic-xform-expression::t)) + (__tmp166226 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::expression-subst*::t '::expression-subst* - __tmp162596 + __tmp166227 '(subst) - __tmp162595 + __tmp166226 '#f))) (define gxc#::expression-subst*? (let () (declare (not safe)) (__make-class-predicate gxc#::expression-subst*::t))) (define gxc#make-::expression-subst* - (lambda _%$args162525%_ - (apply make-instance gxc#::expression-subst*::t _%$args162525%_))) + (lambda _%$args166158%_ + (apply make-instance gxc#::expression-subst*::t _%$args166158%_))) (define gxc#::expression-subst*-subst (let () (declare (not safe)) @@ -376,7 +376,7 @@ gxc#::expression-subst*::t 'subst))) (define gxc#::expression-subst*-bind-methods! - (let ((__tmp162597 + (let ((__tmp166228 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (let () @@ -401,64 +401,64 @@ (declare (not safe)) (__seal-class! gxc#::expression-subst*::t))))) (declare (not safe)) - (__make-atomic-promise __tmp162597))) + (__make-atomic-promise __tmp166228))) (define gxc#apply-expression-subst*__% - (lambda (_%@@keywords162499%_ _%subst162496162500%_ _%stx162502%_) - (let ((_%subst162505%_ - (if (eq? _%subst162496162500%_ absent-value) + (lambda (_%@@keywords166133%_ _%subst166130166134%_ _%stx166135%_) + (let ((_%subst166138%_ + (if (eq? _%subst166130166134%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'subst:)) - _%subst162496162500%_))) + _%subst166130166134%_))) (force gxc#::expression-subst*-bind-methods!) - (let* ((_%self162507%_ - (let ((__obj162581 + (let* ((_%self166140%_ + (let ((__obj166212 (let () (declare (not safe)) (##structure gxc#::expression-subst*::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj162581 - _%subst162505%_ + __obj166212 + _%subst166138%_ '1 '#f '#f)) - __obj162581)) - (__tmp162598 + __obj166212)) + (__tmp166229 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self162507%_ _%stx162502%_))))) + (gxc#compile-e__1 _%self166140%_ _%stx166135%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp162598 + __tmp166229 gxc#current-compile-method - _%self162507%_))))) + _%self166140%_))))) (define gxc#apply-expression-subst*__@ - (lambda (_%@@keywords162514%_ . _%args162515%_) + (lambda (_%@@keywords166147%_ . _%args166148%_) (apply gxc#apply-expression-subst*__% - _%@@keywords162514%_ + _%@@keywords166147%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords162514%_ + _%@@keywords166147%_ 'subst: absent-value)) - _%args162515%_))) + _%args166148%_))) (define gxc#apply-expression-subst* - (lambda _%args162497162521%_ + (lambda _%args166131166154%_ (apply keyword-dispatch '#(subst:) gxc#apply-expression-subst*__@ - _%args162497162521%_))) + _%args166131166154%_))) (define gxc#::find-expression::t - (let ((__tmp162599 (list gxc#::false-expression::t))) + (let ((__tmp166230 (list gxc#::false-expression::t))) (declare (not safe)) (__make-class-type 'gxc#::find-expression::t '::find-expression - __tmp162599 + __tmp166230 '() '() '#f))) @@ -467,10 +467,10 @@ (declare (not safe)) (__make-class-predicate gxc#::find-expression::t))) (define gxc#make-::find-expression - (lambda _%$args162492%_ - (apply make-instance gxc#::find-expression::t _%$args162492%_))) + (lambda _%$args166126%_ + (apply make-instance gxc#::find-expression::t _%$args166126%_))) (define gxc#::find-expression-bind-methods! - (let ((__tmp162600 + (let ((__tmp166231 (lambda () (force gxc#::false-expression-bind-methods!) (let () @@ -588,25 +588,25 @@ '%#struct-unchecked-set! gxc#find-body%))))) (declare (not safe)) - (__make-atomic-promise __tmp162600))) + (__make-atomic-promise __tmp166231))) (define gxc#::find-var-refs::t - (let ((__tmp162602 (list gxc#::find-expression::t)) - (__tmp162601 (cons (cons 'final: '#t) '()))) + (let ((__tmp166233 (list gxc#::find-expression::t)) + (__tmp166232 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-var-refs::t '::find-var-refs - __tmp162602 + __tmp166233 '(ids) - __tmp162601 + __tmp166232 '#f))) (define gxc#::find-var-refs? (let () (declare (not safe)) (__make-class-predicate gxc#::find-var-refs::t))) (define gxc#make-::find-var-refs - (lambda _%$args162488%_ - (apply make-instance gxc#::find-var-refs::t _%$args162488%_))) + (lambda _%$args166122%_ + (apply make-instance gxc#::find-var-refs::t _%$args166122%_))) (define gxc#::find-var-refs-ids (let () (declare (not safe)) @@ -624,7 +624,7 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#::find-var-refs::t 'ids))) (define gxc#::find-var-refs-bind-methods! - (let ((__tmp162603 + (let ((__tmp166234 (lambda () (force gxc#::find-expression-bind-methods!) (let () @@ -643,72 +643,72 @@ (declare (not safe)) (__seal-class! gxc#::find-var-refs::t))))) (declare (not safe)) - (__make-atomic-promise __tmp162603))) + (__make-atomic-promise __tmp166234))) (define gxc#apply-find-var-refs__% - (lambda (_%@@keywords162462%_ _%ids162459162463%_ _%stx162465%_) - (let ((_%ids162468%_ - (if (eq? _%ids162459162463%_ absent-value) + (lambda (_%@@keywords166097%_ _%ids166094166098%_ _%stx166099%_) + (let ((_%ids166102%_ + (if (eq? _%ids166094166098%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'ids:)) - _%ids162459162463%_))) + _%ids166094166098%_))) (force gxc#::find-var-refs-bind-methods!) - (let* ((_%self162470%_ - (let ((__obj162584 + (let* ((_%self166104%_ + (let ((__obj166215 (let () (declare (not safe)) (##structure gxc#::find-var-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj162584 - _%ids162468%_ + __obj166215 + _%ids166102%_ '1 '#f '#f)) - __obj162584)) - (__tmp162604 + __obj166215)) + (__tmp166235 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self162470%_ _%stx162465%_))))) + (gxc#compile-e__1 _%self166104%_ _%stx166099%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp162604 + __tmp166235 gxc#current-compile-method - _%self162470%_))))) + _%self166104%_))))) (define gxc#apply-find-var-refs__@ - (lambda (_%@@keywords162477%_ . _%args162478%_) + (lambda (_%@@keywords166111%_ . _%args166112%_) (apply gxc#apply-find-var-refs__% - _%@@keywords162477%_ + _%@@keywords166111%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords162477%_ 'ids: absent-value)) - _%args162478%_))) + (symbolic-table-ref _%@@keywords166111%_ 'ids: absent-value)) + _%args166112%_))) (define gxc#apply-find-var-refs - (lambda _%args162460162484%_ + (lambda _%args166095166118%_ (apply keyword-dispatch '#(ids:) gxc#apply-find-var-refs__@ - _%args162460162484%_))) + _%args166095166118%_))) (define gxc#::collect-runtime-refs::t - (let ((__tmp162606 (list gxc#::collect-expression-refs::t)) - (__tmp162605 (cons (cons 'final: '#t) '()))) + (let ((__tmp166237 (list gxc#::collect-expression-refs::t)) + (__tmp166236 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-runtime-refs::t '::collect-runtime-refs - __tmp162606 + __tmp166237 '() - __tmp162605 + __tmp166236 '#f))) (define gxc#::collect-runtime-refs? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-runtime-refs::t))) (define gxc#make-::collect-runtime-refs - (lambda _%$args162455%_ - (apply make-instance gxc#::collect-runtime-refs::t _%$args162455%_))) + (lambda _%$args166090%_ + (apply make-instance gxc#::collect-runtime-refs::t _%$args166090%_))) (define gxc#::collect-runtime-refs-table (let () (declare (not safe)) @@ -730,7 +730,7 @@ gxc#::collect-runtime-refs::t 'table))) (define gxc#::collect-runtime-refs-bind-methods! - (let ((__tmp162607 + (let ((__tmp166238 (lambda () (force gxc#::collect-expression-refs-bind-methods!) (let () @@ -749,1158 +749,1158 @@ (declare (not safe)) (__seal-class! gxc#::collect-runtime-refs::t))))) (declare (not safe)) - (__make-atomic-promise __tmp162607))) + (__make-atomic-promise __tmp166238))) (define gxc#apply-collect-runtime-refs__% - (lambda (_%@@keywords162429%_ _%table162426162430%_ _%stx162432%_) - (let ((_%table162435%_ - (if (eq? _%table162426162430%_ absent-value) + (lambda (_%@@keywords166065%_ _%table166062166066%_ _%stx166067%_) + (let ((_%table166070%_ + (if (eq? _%table166062166066%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _%table162426162430%_))) + _%table166062166066%_))) (force gxc#::collect-runtime-refs-bind-methods!) - (let* ((_%self162437%_ - (let ((__obj162586 + (let* ((_%self166072%_ + (let ((__obj166217 (let () (declare (not safe)) (##structure gxc#::collect-runtime-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj162586 - _%table162435%_ + __obj166217 + _%table166070%_ '1 '#f '#f)) - __obj162586)) - (__tmp162608 + __obj166217)) + (__tmp166239 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self162437%_ _%stx162432%_))))) + (gxc#compile-e__1 _%self166072%_ _%stx166067%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp162608 + __tmp166239 gxc#current-compile-method - _%self162437%_))))) + _%self166072%_))))) (define gxc#apply-collect-runtime-refs__@ - (lambda (_%@@keywords162444%_ . _%args162445%_) + (lambda (_%@@keywords166079%_ . _%args166080%_) (apply gxc#apply-collect-runtime-refs__% - _%@@keywords162444%_ + _%@@keywords166079%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords162444%_ + _%@@keywords166079%_ 'table: absent-value)) - _%args162445%_))) + _%args166080%_))) (define gxc#apply-collect-runtime-refs - (lambda _%args162427162451%_ + (lambda _%args166063166086%_ (apply keyword-dispatch '#(table:) gxc#apply-collect-runtime-refs__@ - _%args162427162451%_))) + _%args166063166086%_))) (define gxc#collect-mutators-setq% - (lambda (_%self162355%_ _%stx162356%_) - (let* ((_%g162358162375%_ - (lambda (_%g162359162372%_) + (lambda (_%self165991%_ _%stx165992%_) + (let* ((_%g165994166011%_ + (lambda (_%g165995166008%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162359162372%_)))) - (_%g162357162422%_ - (lambda (_%g162359162378%_) + _%g165995166008%_)))) + (_%g165993166058%_ + (lambda (_%g165995166014%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162359162378%_)) - (let ((_%e162362162380%_ + (gx#stx-pair? _%g165995166014%_)) + (let ((_%e165998166016%_ (let () (declare (not safe)) - (gx#stx-e _%g162359162378%_)))) - (let ((_%hd162363162383%_ + (gx#stx-e _%g165995166014%_)))) + (let ((_%hd165999166019%_ (let () (declare (not safe)) - (##car _%e162362162380%_))) - (_%tl162364162385%_ + (##car _%e165998166016%_))) + (_%tl166000166021%_ (let () (declare (not safe)) - (##cdr _%e162362162380%_)))) + (##cdr _%e165998166016%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162364162385%_)) - (let ((_%e162365162388%_ + (gx#stx-pair? _%tl166000166021%_)) + (let ((_%e166001166024%_ (let () (declare (not safe)) - (gx#stx-e _%tl162364162385%_)))) - (let ((_%hd162366162391%_ + (gx#stx-e _%tl166000166021%_)))) + (let ((_%hd166002166027%_ (let () (declare (not safe)) - (##car _%e162365162388%_))) - (_%tl162367162393%_ + (##car _%e166001166024%_))) + (_%tl166003166029%_ (let () (declare (not safe)) - (##cdr _%e162365162388%_)))) + (##cdr _%e166001166024%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162367162393%_)) - (let ((_%e162368162396%_ + (gx#stx-pair? _%tl166003166029%_)) + (let ((_%e166004166032%_ (let () (declare (not safe)) - (gx#stx-e _%tl162367162393%_)))) - (let ((_%hd162369162399%_ + (gx#stx-e _%tl166003166029%_)))) + (let ((_%hd166005166035%_ (let () (declare (not safe)) - (##car _%e162368162396%_))) - (_%tl162370162401%_ + (##car _%e166004166032%_))) + (_%tl166006166037%_ (let () (declare (not safe)) - (##cdr _%e162368162396%_)))) + (##cdr _%e166004166032%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162370162401%_)) - ((lambda (_%L162404%_ - _%L162405%_) - (let ((_%sym162420%_ + _%tl166006166037%_)) + ((lambda (_%g165996166040%_ + _%g165997166041%_) + (let ((_%sym166056%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L162405%_)))) + _%g165997166041%_)))) (let () (declare (not safe)) (gxc#verbose '"collect mutator " - _%sym162420%_)) - (let ((__tmp162609 + _%sym166056%_)) + (let ((__tmp166240 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) (hash-put! - __tmp162609 - _%sym162420%_ + __tmp166240 + _%sym166056%_ '#t)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self162355%_ - _%L162404%_)))) - _%hd162369162399%_ - _%hd162366162391%_) - (_%g162358162375%_ - _%g162359162378%_)))) - (_%g162358162375%_ _%g162359162378%_)))) - (_%g162358162375%_ _%g162359162378%_)))) - (_%g162358162375%_ _%g162359162378%_))))) - (_%g162357162422%_ _%stx162356%_)))) + _%self165991%_ + _%g165996166040%_)))) + _%hd166005166035%_ + _%hd166002166027%_) + (_%g165994166011%_ + _%g165995166014%_)))) + (_%g165994166011%_ _%g165995166014%_)))) + (_%g165994166011%_ _%g165995166014%_)))) + (_%g165994166011%_ _%g165995166014%_))))) + (_%g165993166058%_ _%stx165992%_)))) (define gxc#expression-subst-ref% - (lambda (_%self162303%_ _%stx162304%_) - (let* ((_%g162306162319%_ - (lambda (_%g162307162316%_) + (lambda (_%self165939%_ _%stx165940%_) + (let* ((_%g165942165955%_ + (lambda (_%g165943165952%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162307162316%_)))) - (_%g162305162352%_ - (lambda (_%g162307162322%_) + _%g165943165952%_)))) + (_%g165941165988%_ + (lambda (_%g165943165958%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162307162322%_)) - (let ((_%e162309162324%_ + (gx#stx-pair? _%g165943165958%_)) + (let ((_%e165945165960%_ (let () (declare (not safe)) - (gx#stx-e _%g162307162322%_)))) - (let ((_%hd162310162327%_ + (gx#stx-e _%g165943165958%_)))) + (let ((_%hd165946165963%_ (let () (declare (not safe)) - (##car _%e162309162324%_))) - (_%tl162311162329%_ + (##car _%e165945165960%_))) + (_%tl165947165965%_ (let () (declare (not safe)) - (##cdr _%e162309162324%_)))) + (##cdr _%e165945165960%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162311162329%_)) - (let ((_%e162312162332%_ + (gx#stx-pair? _%tl165947165965%_)) + (let ((_%e165948165968%_ (let () (declare (not safe)) - (gx#stx-e _%tl162311162329%_)))) - (let ((_%hd162313162335%_ + (gx#stx-e _%tl165947165965%_)))) + (let ((_%hd165949165971%_ (let () (declare (not safe)) - (##car _%e162312162332%_))) - (_%tl162314162337%_ + (##car _%e165948165968%_))) + (_%tl165950165973%_ (let () (declare (not safe)) - (##cdr _%e162312162332%_)))) + (##cdr _%e165948165968%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162314162337%_)) - ((lambda (_%L162340%_) - (if (let ((__tmp162610 + (gx#stx-null? _%tl165950165973%_)) + ((lambda (_%g165944165976%_) + (if (let ((__tmp166241 (let () (declare (not safe)) (slot-ref__0 - _%self162303%_ + _%self165939%_ 'id)))) (declare (not safe)) (gx#free-identifier=? - _%L162340%_ - __tmp162610)) - (let ((__tmp162611 + _%g165944165976%_ + __tmp166241)) + (let ((__tmp166242 (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self162303%_ 'new-id)) + (slot-ref__0 _%self165939%_ 'new-id)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp162611 - _%stx162304%_)) - _%stx162304%_)) - _%hd162313162335%_) - (_%g162306162319%_ _%g162307162322%_)))) - (_%g162306162319%_ _%g162307162322%_)))) - (_%g162306162319%_ _%g162307162322%_))))) - (_%g162305162352%_ _%stx162304%_)))) + __tmp166242 + _%stx165940%_)) + _%stx165940%_)) + _%hd165949165971%_) + (_%g165942165955%_ _%g165943165958%_)))) + (_%g165942165955%_ _%g165943165958%_)))) + (_%g165942165955%_ _%g165943165958%_))))) + (_%g165941165988%_ _%stx165940%_)))) (define gxc#expression-subst*-ref% - (lambda (_%self162243%_ _%stx162244%_) - (let* ((_%g162246162259%_ - (lambda (_%g162247162256%_) + (lambda (_%self165879%_ _%stx165880%_) + (let* ((_%g165882165895%_ + (lambda (_%g165883165892%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162247162256%_)))) - (_%g162245162300%_ - (lambda (_%g162247162262%_) + _%g165883165892%_)))) + (_%g165881165936%_ + (lambda (_%g165883165898%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162247162262%_)) - (let ((_%e162249162264%_ + (gx#stx-pair? _%g165883165898%_)) + (let ((_%e165885165900%_ (let () (declare (not safe)) - (gx#stx-e _%g162247162262%_)))) - (let ((_%hd162250162267%_ + (gx#stx-e _%g165883165898%_)))) + (let ((_%hd165886165903%_ (let () (declare (not safe)) - (##car _%e162249162264%_))) - (_%tl162251162269%_ + (##car _%e165885165900%_))) + (_%tl165887165905%_ (let () (declare (not safe)) - (##cdr _%e162249162264%_)))) + (##cdr _%e165885165900%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162251162269%_)) - (let ((_%e162252162272%_ + (gx#stx-pair? _%tl165887165905%_)) + (let ((_%e165888165908%_ (let () (declare (not safe)) - (gx#stx-e _%tl162251162269%_)))) - (let ((_%hd162253162275%_ + (gx#stx-e _%tl165887165905%_)))) + (let ((_%hd165889165911%_ (let () (declare (not safe)) - (##car _%e162252162272%_))) - (_%tl162254162277%_ + (##car _%e165888165908%_))) + (_%tl165890165913%_ (let () (declare (not safe)) - (##cdr _%e162252162272%_)))) + (##cdr _%e165888165908%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162254162277%_)) - ((lambda (_%L162280%_) - (let ((_%$e162294%_ - (let ((__tmp162613 - (lambda (_%sub162292%_) - (let ((__tmp162614 - (car _%sub162292%_))) + (gx#stx-null? _%tl165890165913%_)) + ((lambda (_%g165884165916%_) + (let ((_%$e165930%_ + (let ((__tmp166244 + (lambda (_%sub165928%_) + (let ((__tmp166245 + (car _%sub165928%_))) (declare (not safe)) (gx#free-identifier=? - _%L162280%_ - __tmp162614)))) - (__tmp162612 + _%g165884165916%_ + __tmp166245)))) + (__tmp166243 (let () (declare (not safe)) (slot-ref__0 - _%self162243%_ + _%self165879%_ 'subst)))) (declare (not safe)) - (__find __tmp162613 - __tmp162612)))) - (if _%$e162294%_ - ((lambda (_%sub162297%_) - (let ((__tmp162615 + (__find __tmp166244 + __tmp166243)))) + (if _%$e165930%_ + ((lambda (_%sub165933%_) + (let ((__tmp166246 (cons '%#ref - (cons (cdr _%sub162297%_) + (cons (cdr _%sub165933%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp162615 - _%stx162244%_))) - _%$e162294%_) - _%stx162244%_))) - _%hd162253162275%_) - (_%g162246162259%_ _%g162247162262%_)))) - (_%g162246162259%_ _%g162247162262%_)))) - (_%g162246162259%_ _%g162247162262%_))))) - (_%g162245162300%_ _%stx162244%_)))) + __tmp166246 + _%stx165880%_))) + _%$e165930%_) + _%stx165880%_))) + _%hd165889165911%_) + (_%g165882165895%_ _%g165883165898%_)))) + (_%g165882165895%_ _%g165883165898%_)))) + (_%g165882165895%_ _%g165883165898%_))))) + (_%g165881165936%_ _%stx165880%_)))) (define gxc#expression-subst-setq% - (lambda (_%self162172%_ _%stx162173%_) - (let* ((_%g162175162192%_ - (lambda (_%g162176162189%_) + (lambda (_%self165808%_ _%stx165809%_) + (let* ((_%g165811165828%_ + (lambda (_%g165812165825%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162176162189%_)))) - (_%g162174162240%_ - (lambda (_%g162176162195%_) + _%g165812165825%_)))) + (_%g165810165876%_ + (lambda (_%g165812165831%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162176162195%_)) - (let ((_%e162179162197%_ + (gx#stx-pair? _%g165812165831%_)) + (let ((_%e165815165833%_ (let () (declare (not safe)) - (gx#stx-e _%g162176162195%_)))) - (let ((_%hd162180162200%_ + (gx#stx-e _%g165812165831%_)))) + (let ((_%hd165816165836%_ (let () (declare (not safe)) - (##car _%e162179162197%_))) - (_%tl162181162202%_ + (##car _%e165815165833%_))) + (_%tl165817165838%_ (let () (declare (not safe)) - (##cdr _%e162179162197%_)))) + (##cdr _%e165815165833%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162181162202%_)) - (let ((_%e162182162205%_ + (gx#stx-pair? _%tl165817165838%_)) + (let ((_%e165818165841%_ (let () (declare (not safe)) - (gx#stx-e _%tl162181162202%_)))) - (let ((_%hd162183162208%_ + (gx#stx-e _%tl165817165838%_)))) + (let ((_%hd165819165844%_ (let () (declare (not safe)) - (##car _%e162182162205%_))) - (_%tl162184162210%_ + (##car _%e165818165841%_))) + (_%tl165820165846%_ (let () (declare (not safe)) - (##cdr _%e162182162205%_)))) + (##cdr _%e165818165841%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162184162210%_)) - (let ((_%e162185162213%_ + (gx#stx-pair? _%tl165820165846%_)) + (let ((_%e165821165849%_ (let () (declare (not safe)) - (gx#stx-e _%tl162184162210%_)))) - (let ((_%hd162186162216%_ + (gx#stx-e _%tl165820165846%_)))) + (let ((_%hd165822165852%_ (let () (declare (not safe)) - (##car _%e162185162213%_))) - (_%tl162187162218%_ + (##car _%e165821165849%_))) + (_%tl165823165854%_ (let () (declare (not safe)) - (##cdr _%e162185162213%_)))) + (##cdr _%e165821165849%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162187162218%_)) - ((lambda (_%L162221%_ - _%L162222%_) - (let ((_%new-expr162237%_ + _%tl165823165854%_)) + ((lambda (_%g165813165857%_ + _%g165814165858%_) + (let ((_%new-expr165873%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self162172%_ - _%L162221%_))) - (_%new-xid162238%_ - (if (let ((__tmp162616 + _%self165808%_ + _%g165813165857%_))) + (_%new-xid165874%_ + (if (let ((__tmp166247 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (slot-ref__0 _%self162172%_ 'id)))) + (slot-ref__0 _%self165808%_ 'id)))) (declare (not safe)) - (gx#free-identifier=? _%L162222%_ __tmp162616)) + (gx#free-identifier=? _%g165814165858%_ __tmp166247)) (let () (declare (not safe)) - (slot-ref__0 _%self162172%_ 'new-id)) - _%L162222%_))) + (slot-ref__0 _%self165808%_ 'new-id)) + _%g165814165858%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp162617 + (let ((__tmp166248 (cons '%#set! - (cons _%new-xid162238%_ + (cons _%new-xid165874%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%new-expr162237%_ '()))))) + (cons _%new-expr165873%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp162617 - _%stx162173%_)))) - _%hd162186162216%_ - _%hd162183162208%_) - (_%g162175162192%_ - _%g162176162195%_)))) - (_%g162175162192%_ _%g162176162195%_)))) - (_%g162175162192%_ _%g162176162195%_)))) - (_%g162175162192%_ _%g162176162195%_))))) - (_%g162174162240%_ _%stx162173%_)))) + __tmp166248 + _%stx165809%_)))) + _%hd165822165852%_ + _%hd165819165844%_) + (_%g165811165828%_ + _%g165812165831%_)))) + (_%g165811165828%_ _%g165812165831%_)))) + (_%g165811165828%_ _%g165812165831%_)))) + (_%g165811165828%_ _%g165812165831%_))))) + (_%g165810165876%_ _%stx165809%_)))) (define gxc#expression-subst*-setq% - (lambda (_%self162095%_ _%stx162096%_) - (let* ((_%g162098162115%_ - (lambda (_%g162099162112%_) + (lambda (_%self165731%_ _%stx165732%_) + (let* ((_%g165734165751%_ + (lambda (_%g165735165748%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162099162112%_)))) - (_%g162097162169%_ - (lambda (_%g162099162118%_) + _%g165735165748%_)))) + (_%g165733165805%_ + (lambda (_%g165735165754%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162099162118%_)) - (let ((_%e162102162120%_ + (gx#stx-pair? _%g165735165754%_)) + (let ((_%e165738165756%_ (let () (declare (not safe)) - (gx#stx-e _%g162099162118%_)))) - (let ((_%hd162103162123%_ + (gx#stx-e _%g165735165754%_)))) + (let ((_%hd165739165759%_ (let () (declare (not safe)) - (##car _%e162102162120%_))) - (_%tl162104162125%_ + (##car _%e165738165756%_))) + (_%tl165740165761%_ (let () (declare (not safe)) - (##cdr _%e162102162120%_)))) + (##cdr _%e165738165756%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162104162125%_)) - (let ((_%e162105162128%_ + (gx#stx-pair? _%tl165740165761%_)) + (let ((_%e165741165764%_ (let () (declare (not safe)) - (gx#stx-e _%tl162104162125%_)))) - (let ((_%hd162106162131%_ + (gx#stx-e _%tl165740165761%_)))) + (let ((_%hd165742165767%_ (let () (declare (not safe)) - (##car _%e162105162128%_))) - (_%tl162107162133%_ + (##car _%e165741165764%_))) + (_%tl165743165769%_ (let () (declare (not safe)) - (##cdr _%e162105162128%_)))) + (##cdr _%e165741165764%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162107162133%_)) - (let ((_%e162108162136%_ + (gx#stx-pair? _%tl165743165769%_)) + (let ((_%e165744165772%_ (let () (declare (not safe)) - (gx#stx-e _%tl162107162133%_)))) - (let ((_%hd162109162139%_ + (gx#stx-e _%tl165743165769%_)))) + (let ((_%hd165745165775%_ (let () (declare (not safe)) - (##car _%e162108162136%_))) - (_%tl162110162141%_ + (##car _%e165744165772%_))) + (_%tl165746165777%_ (let () (declare (not safe)) - (##cdr _%e162108162136%_)))) + (##cdr _%e165744165772%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162110162141%_)) - ((lambda (_%L162144%_ - _%L162145%_) - (let ((_%new-expr162166%_ + _%tl165746165777%_)) + ((lambda (_%g165736165780%_ + _%g165737165781%_) + (let ((_%new-expr165802%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self162095%_ - _%L162144%_))) - (_%new-xid162167%_ - (let ((_%$e162162%_ - (let ((__tmp162619 + _%self165731%_ + _%g165736165780%_))) + (_%new-xid165803%_ + (let ((_%$e165798%_ + (let ((__tmp166250 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%sub162160%_) - (let ((__tmp162620 (car _%sub162160%_))) + (lambda (_%sub165796%_) + (let ((__tmp166251 (car _%sub165796%_))) (declare (not safe)) (gx#free-identifier=? - _%L162145%_ - __tmp162620)))) - (__tmp162618 + _%g165737165781%_ + __tmp166251)))) + (__tmp166249 (let () (declare (not safe)) - (slot-ref__0 _%self162095%_ 'subst)))) + (slot-ref__0 _%self165731%_ 'subst)))) (declare (not safe)) - (__find __tmp162619 __tmp162618)))) - (if _%$e162162%_ (cdr _%$e162162%_) _%L162145%_)))) + (__find __tmp166250 __tmp166249)))) + (if _%$e165798%_ (cdr _%$e165798%_) _%g165737165781%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp162621 + (let ((__tmp166252 (cons '%#set! - (cons _%new-xid162167%_ + (cons _%new-xid165803%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%new-expr162166%_ '()))))) + (cons _%new-expr165802%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp162621 - _%stx162096%_)))) - _%hd162109162139%_ - _%hd162106162131%_) - (_%g162098162115%_ - _%g162099162118%_)))) - (_%g162098162115%_ _%g162099162118%_)))) - (_%g162098162115%_ _%g162099162118%_)))) - (_%g162098162115%_ _%g162099162118%_))))) - (_%g162097162169%_ _%stx162096%_)))) + __tmp166252 + _%stx165732%_)))) + _%hd165745165775%_ + _%hd165742165767%_) + (_%g165734165751%_ + _%g165735165754%_)))) + (_%g165734165751%_ _%g165735165754%_)))) + (_%g165734165751%_ _%g165735165754%_)))) + (_%g165734165751%_ _%g165735165754%_))))) + (_%g165733165805%_ _%stx165732%_)))) (define gxc#collect-runtime-refs-ref% - (lambda (_%self162041%_ _%stx162042%_) - (let* ((_%g162044162057%_ - (lambda (_%g162045162054%_) + (lambda (_%self165677%_ _%stx165678%_) + (let* ((_%g165680165693%_ + (lambda (_%g165681165690%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162045162054%_)))) - (_%g162043162092%_ - (lambda (_%g162045162060%_) + _%g165681165690%_)))) + (_%g165679165728%_ + (lambda (_%g165681165696%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162045162060%_)) - (let ((_%e162047162062%_ + (gx#stx-pair? _%g165681165696%_)) + (let ((_%e165683165698%_ (let () (declare (not safe)) - (gx#stx-e _%g162045162060%_)))) - (let ((_%hd162048162065%_ + (gx#stx-e _%g165681165696%_)))) + (let ((_%hd165684165701%_ (let () (declare (not safe)) - (##car _%e162047162062%_))) - (_%tl162049162067%_ + (##car _%e165683165698%_))) + (_%tl165685165703%_ (let () (declare (not safe)) - (##cdr _%e162047162062%_)))) + (##cdr _%e165683165698%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162049162067%_)) - (let ((_%e162050162070%_ + (gx#stx-pair? _%tl165685165703%_)) + (let ((_%e165686165706%_ (let () (declare (not safe)) - (gx#stx-e _%tl162049162067%_)))) - (let ((_%hd162051162073%_ + (gx#stx-e _%tl165685165703%_)))) + (let ((_%hd165687165709%_ (let () (declare (not safe)) - (##car _%e162050162070%_))) - (_%tl162052162075%_ + (##car _%e165686165706%_))) + (_%tl165688165711%_ (let () (declare (not safe)) - (##cdr _%e162050162070%_)))) + (##cdr _%e165686165706%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162052162075%_)) - ((lambda (_%L162078%_) - (let* ((_%eid162090%_ + (gx#stx-null? _%tl165688165711%_)) + ((lambda (_%g165682165714%_) + (let* ((_%eid165726%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L162078%_))) - (__tmp162622 + _%g165682165714%_))) + (__tmp166253 (let () (declare (not safe)) (slot-ref__0 - _%self162041%_ + _%self165677%_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp162622 - _%eid162090%_ + __tmp166253 + _%eid165726%_ 1+ '0))) - _%hd162051162073%_) - (_%g162044162057%_ _%g162045162060%_)))) - (_%g162044162057%_ _%g162045162060%_)))) - (_%g162044162057%_ _%g162045162060%_))))) - (_%g162043162092%_ _%stx162042%_)))) + _%hd165687165709%_) + (_%g165680165693%_ _%g165681165696%_)))) + (_%g165680165693%_ _%g165681165696%_)))) + (_%g165680165693%_ _%g165681165696%_))))) + (_%g165679165728%_ _%stx165678%_)))) (define gxc#collect-runtime-refs-setq% - (lambda (_%self161971%_ _%stx161972%_) - (let* ((_%g161974161991%_ - (lambda (_%g161975161988%_) + (lambda (_%self165607%_ _%stx165608%_) + (let* ((_%g165610165627%_ + (lambda (_%g165611165624%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g161975161988%_)))) - (_%g161973162038%_ - (lambda (_%g161975161994%_) + _%g165611165624%_)))) + (_%g165609165674%_ + (lambda (_%g165611165630%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g161975161994%_)) - (let ((_%e161978161996%_ + (gx#stx-pair? _%g165611165630%_)) + (let ((_%e165614165632%_ (let () (declare (not safe)) - (gx#stx-e _%g161975161994%_)))) - (let ((_%hd161979161999%_ + (gx#stx-e _%g165611165630%_)))) + (let ((_%hd165615165635%_ (let () (declare (not safe)) - (##car _%e161978161996%_))) - (_%tl161980162001%_ + (##car _%e165614165632%_))) + (_%tl165616165637%_ (let () (declare (not safe)) - (##cdr _%e161978161996%_)))) + (##cdr _%e165614165632%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161980162001%_)) - (let ((_%e161981162004%_ + (gx#stx-pair? _%tl165616165637%_)) + (let ((_%e165617165640%_ (let () (declare (not safe)) - (gx#stx-e _%tl161980162001%_)))) - (let ((_%hd161982162007%_ + (gx#stx-e _%tl165616165637%_)))) + (let ((_%hd165618165643%_ (let () (declare (not safe)) - (##car _%e161981162004%_))) - (_%tl161983162009%_ + (##car _%e165617165640%_))) + (_%tl165619165645%_ (let () (declare (not safe)) - (##cdr _%e161981162004%_)))) + (##cdr _%e165617165640%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161983162009%_)) - (let ((_%e161984162012%_ + (gx#stx-pair? _%tl165619165645%_)) + (let ((_%e165620165648%_ (let () (declare (not safe)) - (gx#stx-e _%tl161983162009%_)))) - (let ((_%hd161985162015%_ + (gx#stx-e _%tl165619165645%_)))) + (let ((_%hd165621165651%_ (let () (declare (not safe)) - (##car _%e161984162012%_))) - (_%tl161986162017%_ + (##car _%e165620165648%_))) + (_%tl165622165653%_ (let () (declare (not safe)) - (##cdr _%e161984162012%_)))) + (##cdr _%e165620165648%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161986162017%_)) - ((lambda (_%L162020%_ - _%L162021%_) - (let ((_%eid162036%_ + _%tl165622165653%_)) + ((lambda (_%g165612165656%_ + _%g165613165657%_) + (let ((_%eid165672%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L162021%_)))) - (let ((__tmp162623 + _%g165613165657%_)))) + (let ((__tmp166254 (let () (declare (not safe)) (slot-ref__0 - _%self161971%_ + _%self165607%_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp162623 - _%eid162036%_ + __tmp166254 + _%eid165672%_ 1+ '0)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self161971%_ - _%L162020%_)))) - _%hd161985162015%_ - _%hd161982162007%_) - (_%g161974161991%_ - _%g161975161994%_)))) - (_%g161974161991%_ _%g161975161994%_)))) - (_%g161974161991%_ _%g161975161994%_)))) - (_%g161974161991%_ _%g161975161994%_))))) - (_%g161973162038%_ _%stx161972%_)))) + _%self165607%_ + _%g165612165656%_)))) + _%hd165621165651%_ + _%hd165618165643%_) + (_%g165610165627%_ + _%g165611165630%_)))) + (_%g165610165627%_ _%g165611165630%_)))) + (_%g165610165627%_ _%g165611165630%_)))) + (_%g165610165627%_ _%g165611165630%_))))) + (_%g165609165674%_ _%stx165608%_)))) (define gxc#find-body% - (lambda (_%self161884%_ _%stx161885%_) - (let* ((_%g161887161906%_ - (lambda (_%g161888161903%_) + (lambda (_%self165522%_ _%stx165523%_) + (let* ((_%g165525165544%_ + (lambda (_%g165526165541%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g161888161903%_)))) - (_%g161886161968%_ - (lambda (_%g161888161909%_) + _%g165526165541%_)))) + (_%g165524165604%_ + (lambda (_%g165526165547%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g161888161909%_)) - (let ((_%e161890161911%_ + (gx#stx-pair? _%g165526165547%_)) + (let ((_%e165528165549%_ (let () (declare (not safe)) - (gx#stx-e _%g161888161909%_)))) - (let ((_%hd161891161914%_ + (gx#stx-e _%g165526165547%_)))) + (let ((_%hd165529165552%_ (let () (declare (not safe)) - (##car _%e161890161911%_))) - (_%tl161892161916%_ + (##car _%e165528165549%_))) + (_%tl165530165554%_ (let () (declare (not safe)) - (##cdr _%e161890161911%_)))) + (##cdr _%e165528165549%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl161892161916%_)) - (let ((_g162624_ + (gx#stx-pair/null? _%tl165530165554%_)) + (let ((_g166255_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl161892161916%_ + _%tl165530165554%_ '0)))) (begin - (let ((_g162625_ + (let ((_g166256_ (let () (declare (not safe)) - (if (##values? _g162624_) - (##values-length _g162624_) + (if (##values? _g166255_) + (##values-length _g166255_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g162625_ 2))) + (##fx= _g166256_ 2))) (error "Context expects 2 values" - _g162625_))) - (let ((_%target161893161919%_ + _g166256_))) + (let ((_%target165531165557%_ (let () (declare (not safe)) - (##values-ref _g162624_ 0))) - (_%tl161895161921%_ + (##values-ref _g166255_ 0))) + (_%tl165533165559%_ (let () (declare (not safe)) - (##values-ref _g162624_ 1)))) + (##values-ref _g166255_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161895161921%_)) - (letrec ((_%loop161896161924%_ - (lambda (_%hd161894161927%_ - _%expr161900161929%_) + (gx#stx-null? _%tl165533165559%_)) + (letrec ((_%loop165534165562%_ + (lambda (_%hd165532165565%_ + _%expr165538165567%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd161894161927%_)) - (let ((_%e161897161932%_ + _%hd165532165565%_)) + (let ((_%e165535165569%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd161894161927%_)))) - (let ((_%lp-hd161898161935%_ + (gx#stx-e _%hd165532165565%_)))) + (let ((_%lp-hd165536165572%_ (let () (declare (not safe)) - (##car _%e161897161932%_))) - (_%lp-tl161899161937%_ + (##car _%e165535165569%_))) + (_%lp-tl165537165574%_ (let () (declare (not safe)) - (##cdr _%e161897161932%_)))) - (_%loop161896161924%_ - _%lp-tl161899161937%_ - (cons _%lp-hd161898161935%_ _%expr161900161929%_)))) - (let ((_%expr161901161940%_ (reverse _%expr161900161929%_))) - ((lambda (_%L161943%_) - (let ((__tmp162628 - (lambda (_%g161956161958%_) + (##cdr _%e165535165569%_)))) + (_%loop165534165562%_ + _%lp-tl165537165574%_ + (cons _%lp-hd165536165572%_ _%expr165538165567%_)))) + (let ((_%expr165539165577%_ (reverse _%expr165538165567%_))) + ((lambda (_%g165527165579%_) + (let ((__tmp166259 + (lambda (_%g165592165594%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self161884%_ - _%g161956161958%_)))) - (__tmp162626 - (let ((__tmp162627 - (lambda (_%g161960161963%_ - _%g161961161965%_) - (cons _%g161960161963%_ - _%g161961161965%_)))) + _%self165522%_ + _%g165592165594%_)))) + (__tmp166257 + (let ((__tmp166258 + (lambda (_%g165596165599%_ + _%g165597165601%_) + (cons _%g165596165599%_ + _%g165597165601%_)))) (declare (not safe)) - (__foldr1 __tmp162627 '() _%L161943%_)))) + (__foldr1 __tmp166258 '() _%g165527165579%_)))) (declare (not safe)) - (__ormap1 __tmp162628 __tmp162626))) - _%expr161901161940%_)))))) + (__ormap1 __tmp166259 __tmp166257))) + _%expr165539165577%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop161896161924%_ - _%target161893161919%_ + (_%loop165534165562%_ + _%target165531165557%_ '())) - (_%g161887161906%_ - _%g161888161909%_))))) - (_%g161887161906%_ _%g161888161909%_)))) - (_%g161887161906%_ _%g161888161909%_))))) - (_%g161886161968%_ _%stx161885%_)))) + (_%g165525165544%_ + _%g165526165547%_))))) + (_%g165525165544%_ _%g165526165547%_)))) + (_%g165525165544%_ _%g165526165547%_))))) + (_%g165524165604%_ _%stx165523%_)))) (define gxc#find-let-values% - (lambda (_%self161734%_ _%stx161735%_) - (let* ((_%g161737161772%_ - (lambda (_%g161738161769%_) + (lambda (_%self165376%_ _%stx165377%_) + (let* ((_%g165379165414%_ + (lambda (_%g165380165411%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g161738161769%_)))) - (_%g161736161881%_ - (lambda (_%g161738161775%_) + _%g165380165411%_)))) + (_%g165378165519%_ + (lambda (_%g165380165417%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g161738161775%_)) - (let ((_%e161742161777%_ + (gx#stx-pair? _%g165380165417%_)) + (let ((_%e165384165419%_ (let () (declare (not safe)) - (gx#stx-e _%g161738161775%_)))) - (let ((_%hd161743161780%_ + (gx#stx-e _%g165380165417%_)))) + (let ((_%hd165385165422%_ (let () (declare (not safe)) - (##car _%e161742161777%_))) - (_%tl161744161782%_ + (##car _%e165384165419%_))) + (_%tl165386165424%_ (let () (declare (not safe)) - (##cdr _%e161742161777%_)))) + (##cdr _%e165384165419%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161744161782%_)) - (let ((_%e161745161785%_ + (gx#stx-pair? _%tl165386165424%_)) + (let ((_%e165387165427%_ (let () (declare (not safe)) - (gx#stx-e _%tl161744161782%_)))) - (let ((_%hd161746161788%_ + (gx#stx-e _%tl165386165424%_)))) + (let ((_%hd165388165430%_ (let () (declare (not safe)) - (##car _%e161745161785%_))) - (_%tl161747161790%_ + (##car _%e165387165427%_))) + (_%tl165389165432%_ (let () (declare (not safe)) - (##cdr _%e161745161785%_)))) + (##cdr _%e165387165427%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd161746161788%_)) - (let ((_g162629_ + (gx#stx-pair/null? _%hd165388165430%_)) + (let ((_g166260_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd161746161788%_ + _%hd165388165430%_ '0)))) (begin - (let ((_g162630_ + (let ((_g166261_ (let () (declare (not safe)) - (if (##values? _g162629_) + (if (##values? _g166260_) (##values-length - _g162629_) + _g166260_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g162630_ 2))) + (##fx= _g166261_ 2))) (error "Context expects 2 values" - _g162630_))) - (let ((_%target161748161793%_ + _g166261_))) + (let ((_%target165390165435%_ (let () (declare (not safe)) - (##values-ref _g162629_ 0))) - (_%tl161750161795%_ + (##values-ref _g166260_ 0))) + (_%tl165392165437%_ (let () (declare (not safe)) (##values-ref - _g162629_ + _g166260_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161750161795%_)) - (letrec ((_%loop161751161798%_ - (lambda (_%hd161749161801%_ + _%tl165392165437%_)) + (letrec ((_%loop165393165440%_ + (lambda (_%hd165391165443%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr161755161803%_ - _%bind161756161805%_) + _%expr165397165445%_ + _%bind165398165446%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161749161801%_)) - (let ((_%e161752161808%_ + (gx#stx-pair? _%hd165391165443%_)) + (let ((_%e165394165448%_ (let () (declare (not safe)) - (gx#stx-e _%hd161749161801%_)))) - (let ((_%lp-hd161753161811%_ + (gx#stx-e _%hd165391165443%_)))) + (let ((_%lp-hd165395165451%_ (let () (declare (not safe)) - (##car _%e161752161808%_))) - (_%lp-tl161754161813%_ + (##car _%e165394165448%_))) + (_%lp-tl165396165453%_ (let () (declare (not safe)) - (##cdr _%e161752161808%_)))) + (##cdr _%e165394165448%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd161753161811%_)) - (let ((_%e161759161816%_ + (gx#stx-pair? _%lp-hd165395165451%_)) + (let ((_%e165401165456%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd161753161811%_)))) - (let ((_%hd161760161819%_ + (gx#stx-e _%lp-hd165395165451%_)))) + (let ((_%hd165402165459%_ (let () (declare (not safe)) - (##car _%e161759161816%_))) - (_%tl161761161821%_ + (##car _%e165401165456%_))) + (_%tl165403165461%_ (let () (declare (not safe)) - (##cdr _%e161759161816%_)))) + (##cdr _%e165401165456%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161761161821%_)) - (let ((_%e161762161824%_ + (gx#stx-pair? _%tl165403165461%_)) + (let ((_%e165404165464%_ (let () (declare (not safe)) (gx#stx-e - _%tl161761161821%_)))) - (let ((_%hd161763161827%_ + _%tl165403165461%_)))) + (let ((_%hd165405165467%_ (let () (declare (not safe)) - (##car _%e161762161824%_))) - (_%tl161764161829%_ + (##car _%e165404165464%_))) + (_%tl165406165469%_ (let () (declare (not safe)) - (##cdr _%e161762161824%_)))) + (##cdr _%e165404165464%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161764161829%_)) - (_%loop161751161798%_ - _%lp-tl161754161813%_ - (cons _%hd161763161827%_ - _%expr161755161803%_) - (cons _%hd161760161819%_ - _%bind161756161805%_)) - (_%g161737161772%_ - _%g161738161775%_)))) - (_%g161737161772%_ - _%g161738161775%_)))) - (_%g161737161772%_ _%g161738161775%_)))) - (let ((_%expr161757161832%_ - (reverse _%expr161755161803%_)) - (_%bind161758161834%_ - (reverse _%bind161756161805%_))) + _%tl165406165469%_)) + (_%loop165393165440%_ + _%lp-tl165396165453%_ + (cons _%hd165405165467%_ + _%expr165397165445%_) + (cons _%hd165402165459%_ + _%bind165398165446%_)) + (_%g165379165414%_ + _%g165380165417%_)))) + (_%g165379165414%_ + _%g165380165417%_)))) + (_%g165379165414%_ _%g165380165417%_)))) + (let ((_%expr165399165472%_ + (reverse _%expr165397165445%_)) + (_%bind165400165473%_ + (reverse _%bind165398165446%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161747161790%_)) - (let ((_%e161765161837%_ + (gx#stx-pair? _%tl165389165432%_)) + (let ((_%e165407165475%_ (let () (declare (not safe)) - (gx#stx-e _%tl161747161790%_)))) - (let ((_%hd161766161840%_ + (gx#stx-e _%tl165389165432%_)))) + (let ((_%hd165408165478%_ (let () (declare (not safe)) - (##car _%e161765161837%_))) - (_%tl161767161842%_ + (##car _%e165407165475%_))) + (_%tl165409165480%_ (let () (declare (not safe)) - (##cdr _%e161765161837%_)))) + (##cdr _%e165407165475%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161767161842%_)) - ((lambda (_%L161845%_ - _%L161846%_ - _%L161847%_) - (let ((_%$e161878%_ - (let ((__tmp162633 - (lambda (_%g161866161868%_) + (gx#stx-null? _%tl165409165480%_)) + ((lambda (_%g165381165483%_ + _%g165382165484%_ + _%g165383165485%_) + (let ((_%$e165516%_ + (let ((__tmp166264 + (lambda (_%g165504165506%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self161734%_ - _%g161866161868%_)))) - (__tmp162631 - (let ((__tmp162632 - (lambda (_%g161870161873%_ + _%self165376%_ + _%g165504165506%_)))) + (__tmp166262 + (let ((__tmp166263 + (lambda (_%g165508165511%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g161871161875%_) - (cons _%g161870161873%_ _%g161871161875%_)))) + _%g165509165513%_) + (cons _%g165508165511%_ _%g165509165513%_)))) (declare (not safe)) - (__foldr1 __tmp162632 '() _%L161846%_)))) + (__foldr1 __tmp166263 '() _%g165382165484%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__ormap1 - __tmp162633 - __tmp162631)))) - (if _%$e161878%_ - _%$e161878%_ + __tmp166264 + __tmp166262)))) + (if _%$e165516%_ + _%$e165516%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self161734%_ - _%L161845%_))))) - _%hd161766161840%_ - _%expr161757161832%_ - _%bind161758161834%_) - (_%g161737161772%_ _%g161738161775%_)))) - (_%g161737161772%_ _%g161738161775%_))))))) + _%self165376%_ + _%g165381165483%_))))) + _%hd165408165478%_ + _%expr165399165472%_ + _%bind165400165473%_) + (_%g165379165414%_ _%g165380165417%_)))) + (_%g165379165414%_ _%g165380165417%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop161751161798%_ - _%target161748161793%_ + (_%loop165393165440%_ + _%target165390165435%_ '() '())) - (_%g161737161772%_ - _%g161738161775%_))))) - (_%g161737161772%_ _%g161738161775%_)))) - (_%g161737161772%_ _%g161738161775%_)))) - (_%g161737161772%_ _%g161738161775%_))))) - (_%g161736161881%_ _%stx161735%_)))) + (_%g165379165414%_ + _%g165380165417%_))))) + (_%g165379165414%_ _%g165380165417%_)))) + (_%g165379165414%_ _%g165380165417%_)))) + (_%g165379165414%_ _%g165380165417%_))))) + (_%g165378165519%_ _%stx165377%_)))) (define gxc#find-var-refs-ref% - (lambda (_%self161678%_ _%stx161679%_) - (let* ((_%g161681161694%_ - (lambda (_%g161682161691%_) + (lambda (_%self165320%_ _%stx165321%_) + (let* ((_%g165323165336%_ + (lambda (_%g165324165333%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g161682161691%_)))) - (_%g161680161731%_ - (lambda (_%g161682161697%_) + _%g165324165333%_)))) + (_%g165322165373%_ + (lambda (_%g165324165339%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g161682161697%_)) - (let ((_%e161684161699%_ + (gx#stx-pair? _%g165324165339%_)) + (let ((_%e165326165341%_ (let () (declare (not safe)) - (gx#stx-e _%g161682161697%_)))) - (let ((_%hd161685161702%_ + (gx#stx-e _%g165324165339%_)))) + (let ((_%hd165327165344%_ (let () (declare (not safe)) - (##car _%e161684161699%_))) - (_%tl161686161704%_ + (##car _%e165326165341%_))) + (_%tl165328165346%_ (let () (declare (not safe)) - (##cdr _%e161684161699%_)))) + (##cdr _%e165326165341%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161686161704%_)) - (let ((_%e161687161707%_ + (gx#stx-pair? _%tl165328165346%_)) + (let ((_%e165329165349%_ (let () (declare (not safe)) - (gx#stx-e _%tl161686161704%_)))) - (let ((_%hd161688161710%_ + (gx#stx-e _%tl165328165346%_)))) + (let ((_%hd165330165352%_ (let () (declare (not safe)) - (##car _%e161687161707%_))) - (_%tl161689161712%_ + (##car _%e165329165349%_))) + (_%tl165331165354%_ (let () (declare (not safe)) - (##cdr _%e161687161707%_)))) + (##cdr _%e165329165349%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl161689161712%_)) - ((lambda (_%L161715%_) - (let ((__tmp162635 - (lambda (_%g161726161728%_) + (gx#stx-null? _%tl165331165354%_)) + ((lambda (_%g165325165357%_) + (let ((__tmp166266 + (lambda (_%g165368165370%_) (let () (declare (not safe)) (gx#free-identifier=? - _%L161715%_ - _%g161726161728%_)))) - (__tmp162634 + _%g165325165357%_ + _%g165368165370%_)))) + (__tmp166265 (let () (declare (not safe)) (slot-ref__0 - _%self161678%_ + _%self165320%_ 'ids)))) (declare (not safe)) - (__find __tmp162635 __tmp162634))) - _%hd161688161710%_) - (_%g161681161694%_ _%g161682161697%_)))) - (_%g161681161694%_ _%g161682161697%_)))) - (_%g161681161694%_ _%g161682161697%_))))) - (_%g161680161731%_ _%stx161679%_)))) + (__find __tmp166266 __tmp166265))) + _%hd165330165352%_) + (_%g165323165336%_ _%g165324165339%_)))) + (_%g165323165336%_ _%g165324165339%_)))) + (_%g165323165336%_ _%g165324165339%_))))) + (_%g165322165373%_ _%stx165321%_)))) (define gxc#find-var-refs-setq% - (lambda (_%self161603%_ _%stx161604%_) - (let* ((_%g161606161623%_ - (lambda (_%g161607161620%_) + (lambda (_%self165245%_ _%stx165246%_) + (let* ((_%g165248165265%_ + (lambda (_%g165249165262%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g161607161620%_)))) - (_%g161605161675%_ - (lambda (_%g161607161626%_) + _%g165249165262%_)))) + (_%g165247165317%_ + (lambda (_%g165249165268%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g161607161626%_)) - (let ((_%e161610161628%_ + (gx#stx-pair? _%g165249165268%_)) + (let ((_%e165252165270%_ (let () (declare (not safe)) - (gx#stx-e _%g161607161626%_)))) - (let ((_%hd161611161631%_ + (gx#stx-e _%g165249165268%_)))) + (let ((_%hd165253165273%_ (let () (declare (not safe)) - (##car _%e161610161628%_))) - (_%tl161612161633%_ + (##car _%e165252165270%_))) + (_%tl165254165275%_ (let () (declare (not safe)) - (##cdr _%e161610161628%_)))) + (##cdr _%e165252165270%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161612161633%_)) - (let ((_%e161613161636%_ + (gx#stx-pair? _%tl165254165275%_)) + (let ((_%e165255165278%_ (let () (declare (not safe)) - (gx#stx-e _%tl161612161633%_)))) - (let ((_%hd161614161639%_ + (gx#stx-e _%tl165254165275%_)))) + (let ((_%hd165256165281%_ (let () (declare (not safe)) - (##car _%e161613161636%_))) - (_%tl161615161641%_ + (##car _%e165255165278%_))) + (_%tl165257165283%_ (let () (declare (not safe)) - (##cdr _%e161613161636%_)))) + (##cdr _%e165255165278%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl161615161641%_)) - (let ((_%e161616161644%_ + (gx#stx-pair? _%tl165257165283%_)) + (let ((_%e165258165286%_ (let () (declare (not safe)) - (gx#stx-e _%tl161615161641%_)))) - (let ((_%hd161617161647%_ + (gx#stx-e _%tl165257165283%_)))) + (let ((_%hd165259165289%_ (let () (declare (not safe)) - (##car _%e161616161644%_))) - (_%tl161618161649%_ + (##car _%e165258165286%_))) + (_%tl165260165291%_ (let () (declare (not safe)) - (##cdr _%e161616161644%_)))) + (##cdr _%e165258165286%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161618161649%_)) - ((lambda (_%L161652%_ - _%L161653%_) - (let ((_%$e161672%_ - (let ((__tmp162637 - (lambda (_%g161667161669%_) + _%tl165260165291%_)) + ((lambda (_%g165250165294%_ + _%g165251165295%_) + (let ((_%$e165314%_ + (let ((__tmp166268 + (lambda (_%g165309165311%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#free-identifier=? - _%L161653%_ - _%g161667161669%_)))) - (__tmp162636 + _%g165251165295%_ + _%g165309165311%_)))) + (__tmp166267 (let () (declare (not safe)) - (slot-ref__0 _%self161603%_ 'ids)))) + (slot-ref__0 _%self165245%_ 'ids)))) (declare (not safe)) - (__find __tmp162637 __tmp162636)))) + (__find __tmp166268 __tmp166267)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e161672%_ - _%$e161672%_ + (if _%$e165314%_ + _%$e165314%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self161603%_ - _%L161652%_))))) - _%hd161617161647%_ - _%hd161614161639%_) - (_%g161606161623%_ - _%g161607161626%_)))) - (_%g161606161623%_ _%g161607161626%_)))) - (_%g161606161623%_ _%g161607161626%_)))) - (_%g161606161623%_ _%g161607161626%_))))) - (_%g161605161675%_ _%stx161604%_)))))) + _%self165245%_ + _%g165250165294%_))))) + _%hd165259165289%_ + _%hd165256165281%_) + (_%g165248165265%_ + _%g165249165268%_)))) + (_%g165248165265%_ _%g165249165268%_)))) + (_%g165248165265%_ _%g165249165268%_)))) + (_%g165248165265%_ _%g165249165268%_))))) + (_%g165247165317%_ _%stx165246%_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform~1.scm b/src/bootstrap/gerbil/compiler/optimize-xform~1.scm index b8a8418293..414e82163d 100644 --- a/src/bootstrap/gerbil/compiler/optimize-xform~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-xform~1.scm @@ -1,300 +1,300 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g162639_| + (define |gxc[1]#_g166270_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162641_| + (define |gxc[1]#_g166272_| (##structure gx#syntax-quote::t '::collect-mutators::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162643_| + (define |gxc[1]#_g166274_| (##structure gx#syntax-quote::t 'make-::collect-mutators #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162645_| + (define |gxc[1]#_g166276_| (##structure gx#syntax-quote::t '::collect-mutators? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162647_| + (define |gxc[1]#_g166278_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162649_| + (define |gxc[1]#_g166280_| (##structure gx#syntax-quote::t '::expression-subst::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162651_| + (define |gxc[1]#_g166282_| (##structure gx#syntax-quote::t 'make-::expression-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162653_| + (define |gxc[1]#_g166284_| (##structure gx#syntax-quote::t '::expression-subst? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162655_| + (define |gxc[1]#_g166286_| (##structure gx#syntax-quote::t '::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162656_| + (define |gxc[1]#_g166287_| (##structure gx#syntax-quote::t '::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162658_| + (define |gxc[1]#_g166289_| (##structure gx#syntax-quote::t '::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162659_| + (define |gxc[1]#_g166290_| (##structure gx#syntax-quote::t '::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162661_| + (define |gxc[1]#_g166292_| (##structure gx#syntax-quote::t '&::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162662_| + (define |gxc[1]#_g166293_| (##structure gx#syntax-quote::t '&::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162664_| + (define |gxc[1]#_g166295_| (##structure gx#syntax-quote::t '&::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162665_| + (define |gxc[1]#_g166296_| (##structure gx#syntax-quote::t '&::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162668_| + (define |gxc[1]#_g166299_| (##structure gx#syntax-quote::t '::expression-subst*::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162670_| + (define |gxc[1]#_g166301_| (##structure gx#syntax-quote::t 'make-::expression-subst* #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162672_| + (define |gxc[1]#_g166303_| (##structure gx#syntax-quote::t '::expression-subst*? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162674_| + (define |gxc[1]#_g166305_| (##structure gx#syntax-quote::t '::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162676_| + (define |gxc[1]#_g166307_| (##structure gx#syntax-quote::t '::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162678_| + (define |gxc[1]#_g166309_| (##structure gx#syntax-quote::t '&::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162680_| + (define |gxc[1]#_g166311_| (##structure gx#syntax-quote::t '&::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162682_| + (define |gxc[1]#_g166313_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162684_| + (define |gxc[1]#_g166315_| (##structure gx#syntax-quote::t '::find-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162686_| + (define |gxc[1]#_g166317_| (##structure gx#syntax-quote::t 'make-::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162688_| + (define |gxc[1]#_g166319_| (##structure gx#syntax-quote::t '::find-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162690_| + (define |gxc[1]#_g166321_| (##structure gx#syntax-quote::t '::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162692_| + (define |gxc[1]#_g166323_| (##structure gx#syntax-quote::t '::find-var-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162694_| + (define |gxc[1]#_g166325_| (##structure gx#syntax-quote::t 'make-::find-var-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162696_| + (define |gxc[1]#_g166327_| (##structure gx#syntax-quote::t '::find-var-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162698_| + (define |gxc[1]#_g166329_| (##structure gx#syntax-quote::t '::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162700_| + (define |gxc[1]#_g166331_| (##structure gx#syntax-quote::t '::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162702_| + (define |gxc[1]#_g166333_| (##structure gx#syntax-quote::t '&::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162704_| + (define |gxc[1]#_g166335_| (##structure gx#syntax-quote::t '&::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162706_| + (define |gxc[1]#_g166337_| (##structure gx#syntax-quote::t '::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162708_| + (define |gxc[1]#_g166339_| (##structure gx#syntax-quote::t '::collect-runtime-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162710_| + (define |gxc[1]#_g166341_| (##structure gx#syntax-quote::t 'make-::collect-runtime-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162712_| + (define |gxc[1]#_g166343_| (##structure gx#syntax-quote::t '::collect-runtime-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162714_| + (define |gxc[1]#_g166345_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162716_| + (define |gxc[1]#_g166347_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162718_| + (define |gxc[1]#_g166349_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g162720_| + (define |gxc[1]#_g166351_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table-set! @@ -303,7 +303,7 @@ '())) (begin (define |gxc[:0:]#::collect-mutators| - (let ((__obj162576 + (let ((__obj166207 (let () (declare (not safe)) (##structure @@ -332,7 +332,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj162576 + __obj166207 'gxc#::collect-mutators::t '1 '#f @@ -340,65 +340,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj162576 + __obj166207 '::collect-mutators '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162576 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj166207 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162576 '() '6 '#f '#f)) - (let ((__tmp162638 (cons |gxc[1]#_g162639_| '()))) + (##unchecked-structure-set! __obj166207 '() '7 '#f '#f)) + (let ((__tmp166269 (cons |gxc[1]#_g166270_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj162576 __tmp162638 '3 '#f '#f)) + (##unchecked-structure-set! __obj166207 __tmp166269 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162576 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj166207 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162576 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj166207 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162576 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj166207 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162576 '#f '11 '#f '#f)) - (let ((__tmp162640 |gxc[1]#_g162641_|)) + (##unchecked-structure-set! __obj166207 '#f '12 '#f '#f)) + (let ((__tmp166271 |gxc[1]#_g166272_|)) (declare (not safe)) - (##unchecked-structure-set! __obj162576 __tmp162640 '12 '#f '#f)) - (let ((__tmp162642 |gxc[1]#_g162643_|)) + (##unchecked-structure-set! __obj166207 __tmp166271 '3 '#f '#f)) + (let ((__tmp166273 |gxc[1]#_g166274_|)) (declare (not safe)) - (##unchecked-structure-set! __obj162576 __tmp162642 '13 '#f '#f)) - (let ((__tmp162644 |gxc[1]#_g162645_|)) + (##unchecked-structure-set! __obj166207 __tmp166273 '13 '#f '#f)) + (let ((__tmp166275 |gxc[1]#_g166276_|)) (declare (not safe)) - (##unchecked-structure-set! __obj162576 __tmp162644 '14 '#f '#f)) + (##unchecked-structure-set! __obj166207 __tmp166275 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162576 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj166207 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162576 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj166207 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162576 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj166207 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162576 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj166207 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162576 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj166207 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162576 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj166207 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162576 '() '20 '#f '#f)) - __obj162576)) + (##unchecked-structure-set! __obj166207 '() '20 '#f '#f)) + __obj166207)) (define |gxc[:0:]#::expression-subst| - (let ((__obj162578 + (let ((__obj166209 (let () (declare (not safe)) (##structure @@ -427,7 +427,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj162578 + __obj166209 'gxc#::expression-subst::t '1 '#f @@ -435,73 +435,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj162578 + __obj166209 '::expression-subst '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162578 '(id new-id) '4 '#f '#f)) + (##unchecked-structure-set! __obj166209 '(id new-id) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162578 '(id new-id) '6 '#f '#f)) - (let ((__tmp162646 (cons |gxc[1]#_g162647_| '()))) + (##unchecked-structure-set! __obj166209 '(id new-id) '7 '#f '#f)) + (let ((__tmp166277 (cons |gxc[1]#_g166278_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj162578 __tmp162646 '3 '#f '#f)) + (##unchecked-structure-set! __obj166209 __tmp166277 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162578 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj166209 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162578 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj166209 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162578 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj166209 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162578 '#f '11 '#f '#f)) - (let ((__tmp162648 |gxc[1]#_g162649_|)) + (##unchecked-structure-set! __obj166209 '#f '12 '#f '#f)) + (let ((__tmp166279 |gxc[1]#_g166280_|)) (declare (not safe)) - (##unchecked-structure-set! __obj162578 __tmp162648 '12 '#f '#f)) - (let ((__tmp162650 |gxc[1]#_g162651_|)) + (##unchecked-structure-set! __obj166209 __tmp166279 '3 '#f '#f)) + (let ((__tmp166281 |gxc[1]#_g166282_|)) (declare (not safe)) - (##unchecked-structure-set! __obj162578 __tmp162650 '13 '#f '#f)) - (let ((__tmp162652 |gxc[1]#_g162653_|)) + (##unchecked-structure-set! __obj166209 __tmp166281 '13 '#f '#f)) + (let ((__tmp166283 |gxc[1]#_g166284_|)) (declare (not safe)) - (##unchecked-structure-set! __obj162578 __tmp162652 '14 '#f '#f)) - (let ((__tmp162654 - (cons (cons 'id |gxc[1]#_g162655_|) - (cons (cons 'new-id |gxc[1]#_g162656_|) '())))) + (##unchecked-structure-set! __obj166209 __tmp166283 '14 '#f '#f)) + (let ((__tmp166285 + (cons (cons 'id |gxc[1]#_g166286_|) + (cons (cons 'new-id |gxc[1]#_g166287_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj162578 __tmp162654 '15 '#f '#f)) - (let ((__tmp162657 - (cons (cons 'id |gxc[1]#_g162658_|) - (cons (cons 'new-id |gxc[1]#_g162659_|) '())))) + (##unchecked-structure-set! __obj166209 __tmp166285 '15 '#f '#f)) + (let ((__tmp166288 + (cons (cons 'id |gxc[1]#_g166289_|) + (cons (cons 'new-id |gxc[1]#_g166290_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj162578 __tmp162657 '16 '#f '#f)) - (let ((__tmp162660 - (cons (cons 'id |gxc[1]#_g162661_|) - (cons (cons 'new-id |gxc[1]#_g162662_|) '())))) + (##unchecked-structure-set! __obj166209 __tmp166288 '16 '#f '#f)) + (let ((__tmp166291 + (cons (cons 'id |gxc[1]#_g166292_|) + (cons (cons 'new-id |gxc[1]#_g166293_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj162578 __tmp162660 '17 '#f '#f)) - (let ((__tmp162663 - (cons (cons 'id |gxc[1]#_g162664_|) - (cons (cons 'new-id |gxc[1]#_g162665_|) '())))) + (##unchecked-structure-set! __obj166209 __tmp166291 '17 '#f '#f)) + (let ((__tmp166294 + (cons (cons 'id |gxc[1]#_g166295_|) + (cons (cons 'new-id |gxc[1]#_g166296_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj162578 __tmp162663 '18 '#f '#f)) + (##unchecked-structure-set! __obj166209 __tmp166294 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162578 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj166209 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162578 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj166209 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162578 '() '20 '#f '#f)) - __obj162578)) + (##unchecked-structure-set! __obj166209 '() '20 '#f '#f)) + __obj166209)) (define |gxc[:0:]#::expression-subst*| - (let ((__obj162580 + (let ((__obj166211 (let () (declare (not safe)) (##structure @@ -530,7 +530,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj162580 + __obj166211 'gxc#::expression-subst*::t '1 '#f @@ -538,65 +538,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj162580 + __obj166211 '::expression-subst* '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162580 '(subst) '4 '#f '#f)) + (##unchecked-structure-set! __obj166211 '(subst) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162580 '(subst) '6 '#f '#f)) - (let ((__tmp162666 (cons |gxc[1]#_g162647_| '()))) + (##unchecked-structure-set! __obj166211 '(subst) '7 '#f '#f)) + (let ((__tmp166297 (cons |gxc[1]#_g166278_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj162580 __tmp162666 '3 '#f '#f)) + (##unchecked-structure-set! __obj166211 __tmp166297 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162580 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj166211 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162580 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj166211 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162580 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj166211 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162580 '#f '11 '#f '#f)) - (let ((__tmp162667 |gxc[1]#_g162668_|)) + (##unchecked-structure-set! __obj166211 '#f '12 '#f '#f)) + (let ((__tmp166298 |gxc[1]#_g166299_|)) (declare (not safe)) - (##unchecked-structure-set! __obj162580 __tmp162667 '12 '#f '#f)) - (let ((__tmp162669 |gxc[1]#_g162670_|)) + (##unchecked-structure-set! __obj166211 __tmp166298 '3 '#f '#f)) + (let ((__tmp166300 |gxc[1]#_g166301_|)) (declare (not safe)) - (##unchecked-structure-set! __obj162580 __tmp162669 '13 '#f '#f)) - (let ((__tmp162671 |gxc[1]#_g162672_|)) + (##unchecked-structure-set! __obj166211 __tmp166300 '13 '#f '#f)) + (let ((__tmp166302 |gxc[1]#_g166303_|)) (declare (not safe)) - (##unchecked-structure-set! __obj162580 __tmp162671 '14 '#f '#f)) - (let ((__tmp162673 (cons (cons 'subst |gxc[1]#_g162674_|) '()))) + (##unchecked-structure-set! __obj166211 __tmp166302 '14 '#f '#f)) + (let ((__tmp166304 (cons (cons 'subst |gxc[1]#_g166305_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj162580 __tmp162673 '15 '#f '#f)) - (let ((__tmp162675 (cons (cons 'subst |gxc[1]#_g162676_|) '()))) + (##unchecked-structure-set! __obj166211 __tmp166304 '15 '#f '#f)) + (let ((__tmp166306 (cons (cons 'subst |gxc[1]#_g166307_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj162580 __tmp162675 '16 '#f '#f)) - (let ((__tmp162677 (cons (cons 'subst |gxc[1]#_g162678_|) '()))) + (##unchecked-structure-set! __obj166211 __tmp166306 '16 '#f '#f)) + (let ((__tmp166308 (cons (cons 'subst |gxc[1]#_g166309_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj162580 __tmp162677 '17 '#f '#f)) - (let ((__tmp162679 (cons (cons 'subst |gxc[1]#_g162680_|) '()))) + (##unchecked-structure-set! __obj166211 __tmp166308 '17 '#f '#f)) + (let ((__tmp166310 (cons (cons 'subst |gxc[1]#_g166311_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj162580 __tmp162679 '18 '#f '#f)) + (##unchecked-structure-set! __obj166211 __tmp166310 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162580 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj166211 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162580 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj166211 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162580 '() '20 '#f '#f)) - __obj162580)) + (##unchecked-structure-set! __obj166211 '() '20 '#f '#f)) + __obj166211)) (define |gxc[:0:]#::find-expression| - (let ((__obj162582 + (let ((__obj166213 (let () (declare (not safe)) (##structure @@ -625,7 +625,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj162582 + __obj166213 'gxc#::find-expression::t '1 '#f @@ -633,65 +633,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj162582 + __obj166213 '::find-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162582 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj166213 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162582 '() '6 '#f '#f)) - (let ((__tmp162681 (cons |gxc[1]#_g162682_| '()))) + (##unchecked-structure-set! __obj166213 '() '7 '#f '#f)) + (let ((__tmp166312 (cons |gxc[1]#_g166313_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj162582 __tmp162681 '3 '#f '#f)) + (##unchecked-structure-set! __obj166213 __tmp166312 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162582 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj166213 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162582 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj166213 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162582 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj166213 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162582 '#f '11 '#f '#f)) - (let ((__tmp162683 |gxc[1]#_g162684_|)) + (##unchecked-structure-set! __obj166213 '#f '12 '#f '#f)) + (let ((__tmp166314 |gxc[1]#_g166315_|)) (declare (not safe)) - (##unchecked-structure-set! __obj162582 __tmp162683 '12 '#f '#f)) - (let ((__tmp162685 |gxc[1]#_g162686_|)) + (##unchecked-structure-set! __obj166213 __tmp166314 '3 '#f '#f)) + (let ((__tmp166316 |gxc[1]#_g166317_|)) (declare (not safe)) - (##unchecked-structure-set! __obj162582 __tmp162685 '13 '#f '#f)) - (let ((__tmp162687 |gxc[1]#_g162688_|)) + (##unchecked-structure-set! __obj166213 __tmp166316 '13 '#f '#f)) + (let ((__tmp166318 |gxc[1]#_g166319_|)) (declare (not safe)) - (##unchecked-structure-set! __obj162582 __tmp162687 '14 '#f '#f)) + (##unchecked-structure-set! __obj166213 __tmp166318 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162582 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj166213 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162582 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj166213 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162582 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj166213 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162582 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj166213 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162582 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj166213 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162582 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj166213 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162582 '() '20 '#f '#f)) - __obj162582)) + (##unchecked-structure-set! __obj166213 '() '20 '#f '#f)) + __obj166213)) (define |gxc[:0:]#::find-var-refs| - (let ((__obj162583 + (let ((__obj166214 (let () (declare (not safe)) (##structure @@ -720,68 +720,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj162583 + __obj166214 'gxc#::find-var-refs::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162583 '::find-var-refs '2 '#f '#f)) + (##unchecked-structure-set! __obj166214 '::find-var-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162583 '(ids) '4 '#f '#f)) + (##unchecked-structure-set! __obj166214 '(ids) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162583 '(ids) '6 '#f '#f)) - (let ((__tmp162689 (cons |gxc[1]#_g162690_| '()))) + (##unchecked-structure-set! __obj166214 '(ids) '7 '#f '#f)) + (let ((__tmp166320 (cons |gxc[1]#_g166321_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj162583 __tmp162689 '3 '#f '#f)) + (##unchecked-structure-set! __obj166214 __tmp166320 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162583 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj166214 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162583 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj166214 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162583 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj166214 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162583 '#f '11 '#f '#f)) - (let ((__tmp162691 |gxc[1]#_g162692_|)) + (##unchecked-structure-set! __obj166214 '#f '12 '#f '#f)) + (let ((__tmp166322 |gxc[1]#_g166323_|)) (declare (not safe)) - (##unchecked-structure-set! __obj162583 __tmp162691 '12 '#f '#f)) - (let ((__tmp162693 |gxc[1]#_g162694_|)) + (##unchecked-structure-set! __obj166214 __tmp166322 '3 '#f '#f)) + (let ((__tmp166324 |gxc[1]#_g166325_|)) (declare (not safe)) - (##unchecked-structure-set! __obj162583 __tmp162693 '13 '#f '#f)) - (let ((__tmp162695 |gxc[1]#_g162696_|)) + (##unchecked-structure-set! __obj166214 __tmp166324 '13 '#f '#f)) + (let ((__tmp166326 |gxc[1]#_g166327_|)) (declare (not safe)) - (##unchecked-structure-set! __obj162583 __tmp162695 '14 '#f '#f)) - (let ((__tmp162697 (cons (cons 'ids |gxc[1]#_g162698_|) '()))) + (##unchecked-structure-set! __obj166214 __tmp166326 '14 '#f '#f)) + (let ((__tmp166328 (cons (cons 'ids |gxc[1]#_g166329_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj162583 __tmp162697 '15 '#f '#f)) - (let ((__tmp162699 (cons (cons 'ids |gxc[1]#_g162700_|) '()))) + (##unchecked-structure-set! __obj166214 __tmp166328 '15 '#f '#f)) + (let ((__tmp166330 (cons (cons 'ids |gxc[1]#_g166331_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj162583 __tmp162699 '16 '#f '#f)) - (let ((__tmp162701 (cons (cons 'ids |gxc[1]#_g162702_|) '()))) + (##unchecked-structure-set! __obj166214 __tmp166330 '16 '#f '#f)) + (let ((__tmp166332 (cons (cons 'ids |gxc[1]#_g166333_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj162583 __tmp162701 '17 '#f '#f)) - (let ((__tmp162703 (cons (cons 'ids |gxc[1]#_g162704_|) '()))) + (##unchecked-structure-set! __obj166214 __tmp166332 '17 '#f '#f)) + (let ((__tmp166334 (cons (cons 'ids |gxc[1]#_g166335_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj162583 __tmp162703 '18 '#f '#f)) + (##unchecked-structure-set! __obj166214 __tmp166334 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162583 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj166214 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162583 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj166214 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162583 '() '20 '#f '#f)) - __obj162583)) + (##unchecked-structure-set! __obj166214 '() '20 '#f '#f)) + __obj166214)) (define |gxc[:0:]#::collect-runtime-refs| - (let ((__obj162585 + (let ((__obj166216 (let () (declare (not safe)) (##structure @@ -810,7 +810,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj162585 + __obj166216 'gxc#::collect-runtime-refs::t '1 '#f @@ -818,60 +818,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj162585 + __obj166216 '::collect-runtime-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162585 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj166216 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162585 '(table) '6 '#f '#f)) - (let ((__tmp162705 (cons |gxc[1]#_g162706_| '()))) + (##unchecked-structure-set! __obj166216 '(table) '7 '#f '#f)) + (let ((__tmp166336 (cons |gxc[1]#_g166337_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj162585 __tmp162705 '3 '#f '#f)) + (##unchecked-structure-set! __obj166216 __tmp166336 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162585 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj166216 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162585 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj166216 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162585 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj166216 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162585 '#f '11 '#f '#f)) - (let ((__tmp162707 |gxc[1]#_g162708_|)) + (##unchecked-structure-set! __obj166216 '#f '12 '#f '#f)) + (let ((__tmp166338 |gxc[1]#_g166339_|)) (declare (not safe)) - (##unchecked-structure-set! __obj162585 __tmp162707 '12 '#f '#f)) - (let ((__tmp162709 |gxc[1]#_g162710_|)) + (##unchecked-structure-set! __obj166216 __tmp166338 '3 '#f '#f)) + (let ((__tmp166340 |gxc[1]#_g166341_|)) (declare (not safe)) - (##unchecked-structure-set! __obj162585 __tmp162709 '13 '#f '#f)) - (let ((__tmp162711 |gxc[1]#_g162712_|)) + (##unchecked-structure-set! __obj166216 __tmp166340 '13 '#f '#f)) + (let ((__tmp166342 |gxc[1]#_g166343_|)) (declare (not safe)) - (##unchecked-structure-set! __obj162585 __tmp162711 '14 '#f '#f)) - (let ((__tmp162713 (cons (cons 'table |gxc[1]#_g162714_|) '()))) + (##unchecked-structure-set! __obj166216 __tmp166342 '14 '#f '#f)) + (let ((__tmp166344 (cons (cons 'table |gxc[1]#_g166345_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj162585 __tmp162713 '15 '#f '#f)) - (let ((__tmp162715 (cons (cons 'table |gxc[1]#_g162716_|) '()))) + (##unchecked-structure-set! __obj166216 __tmp166344 '15 '#f '#f)) + (let ((__tmp166346 (cons (cons 'table |gxc[1]#_g166347_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj162585 __tmp162715 '16 '#f '#f)) - (let ((__tmp162717 (cons (cons 'table |gxc[1]#_g162718_|) '()))) + (##unchecked-structure-set! __obj166216 __tmp166346 '16 '#f '#f)) + (let ((__tmp166348 (cons (cons 'table |gxc[1]#_g166349_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj162585 __tmp162717 '17 '#f '#f)) - (let ((__tmp162719 (cons (cons 'table |gxc[1]#_g162720_|) '()))) + (##unchecked-structure-set! __obj166216 __tmp166348 '17 '#f '#f)) + (let ((__tmp166350 (cons (cons 'table |gxc[1]#_g166351_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj162585 __tmp162719 '18 '#f '#f)) + (##unchecked-structure-set! __obj166216 __tmp166350 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162585 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj166216 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162585 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj166216 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj162585 '() '20 '#f '#f)) - __obj162585)))) + (##unchecked-structure-set! __obj166216 '() '20 '#f '#f)) + __obj166216)))) diff --git a/src/bootstrap/gerbil/compiler/optimize~0.scm b/src/bootstrap/gerbil/compiler/optimize~0.scm index 7e98c2475c..1542285cb9 100644 --- a/src/bootstrap/gerbil/compiler/optimize~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize~0.scm @@ -1,13 +1,13 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize::timestamp 1756721303) + (define gerbil/compiler/optimize::timestamp 1769384636) (begin (define gxc#optimizer-info-init! (lambda () (if (let () (declare (not safe)) (gxc#current-compile-optimizer-info)) '#!void - (let ((__tmp209392 - (let ((__obj209386 + (let ((__tmp212811 + (let ((__obj212805 (let () (declare (not safe)) (##structure @@ -18,19 +18,19 @@ '#f)))) (let () (declare (not safe)) - (gxc#optimizer-info:::init! __obj209386)) - __obj209386))) + (gxc#optimizer-info:::init! __obj212805)) + __obj212805))) (declare (not safe)) - (gxc#current-compile-optimizer-info __tmp209392))))) + (gxc#current-compile-optimizer-info __tmp212811))))) (define gxc#optimize! - (lambda (_%ctx208994%_) - (let ((__tmp209394 + (lambda (_%ctx212413%_) + (let ((__tmp212813 (lambda () - (let ((__tmp209396 + (let ((__tmp212815 (lambda () - (gxc#optimizer-load-builtin-ssxi _%ctx208994%_) - (gxc#optimizer-load-ssxi-deps _%ctx208994%_) - (let ((__tmp209398 + (gxc#optimizer-load-builtin-ssxi _%ctx212413%_) + (gxc#optimizer-load-ssxi-deps _%ctx212413%_) + (let ((__tmp212817 (##structure-ref (let () (declare (not safe)) @@ -38,45 +38,45 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp209397 + (__tmp212816 (##structure-ref - _%ctx208994%_ + _%ctx212413%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-put! __tmp209398 __tmp209397 '#t)) - (let ((_%code208998%_ + (hash-put! __tmp212817 __tmp212816 '#t)) + (let ((_%code212417%_ (gxc#optimize-source (##structure-ref - _%ctx208994%_ + _%ctx212413%_ '11 gx#module-context::t '#f)))) (##structure-set! - _%ctx208994%_ - _%code208998%_ + _%ctx212413%_ + _%code212417%_ '11 gx#module-context::t '#f)))) - (__tmp209395 + (__tmp212814 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (call-with-parameters__1 - __tmp209396 + __tmp212815 gxc#current-compile-local-type - __tmp209395)))) - (__tmp209393 (let () (declare (not safe)) (make-hash-table-eq)))) + __tmp212814)))) + (__tmp212812 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (call-with-parameters__1 - __tmp209394 + __tmp212813 gxc#current-compile-mutators - __tmp209393)))) + __tmp212812)))) (define gxc#optimizer-load-builtin-ssxi - (lambda (_%ctx208980%_) - (letrec ((_%load-it!208982%_ - (lambda (_%id208992%_) - (if (let ((__tmp209399 + (lambda (_%ctx212399%_) + (letrec ((_%load-it!212401%_ + (lambda (_%id212411%_) + (if (let ((__tmp212818 (##structure-ref (let () (declare (not safe)) @@ -85,11 +85,11 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp209399 _%id208992%_)) + (hash-get __tmp212818 _%id212411%_)) '#!void (begin - (gxc#optimizer-import-ssxi-by-id _%id208992%_) - (let ((__tmp209400 + (gxc#optimizer-import-ssxi-by-id _%id212411%_) + (let ((__tmp212819 (##structure-ref (let () (declare (not safe)) @@ -98,29 +98,29 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp209400 _%id208992%_ '#t))))))) - (let* ((_%modid208984%_ + (hash-put! __tmp212819 _%id212411%_ '#t))))))) + (let* ((_%modid212403%_ (##structure-ref - _%ctx208980%_ + _%ctx212399%_ '1 gx#expander-context::t '#f)) - (_%modid-str208986%_ (symbol->string _%modid208984%_))) + (_%modid-str212405%_ (symbol->string _%modid212403%_))) (if (or (let () (declare (not safe)) - (##string-prefix? '"gerbil/runtime" _%modid-str208986%_)) + (##string-prefix? '"gerbil/runtime" _%modid-str212405%_)) (let () (declare (not safe)) - (##string-prefix? '"gerbil/core" _%modid-str208986%_))) + (##string-prefix? '"gerbil/core" _%modid-str212405%_))) (let () (declare (not safe)) (##for-each - _%load-it!208982%_ + _%load-it!212401%_ '(gerbil/builtin gerbil/builtin-inline-rules))) (let () (declare (not safe)) (##for-each - _%load-it!208982%_ + _%load-it!212401%_ '(gerbil/builtin gerbil/builtin-inline-rules gerbil/runtime/gambit @@ -142,35 +142,35 @@ gerbil/runtime/init gerbil/runtime)))))))) (define gxc#optimizer-load-ssxi-deps - (lambda (_%ctx208917%_) - (letrec* ((_%deps208919%_ - (let* ((_%imports208970%_ + (lambda (_%ctx212336%_) + (letrec* ((_%deps212338%_ + (let* ((_%imports212389%_ (##structure-ref - _%ctx208917%_ + _%ctx212336%_ '8 gx#module-context::t '#f)) - (_%$e208972%_ + (_%$e212391%_ (let () (declare (not safe)) - (gx#core-context-prelude__% _%ctx208917%_)))) - (if _%$e208972%_ - ((lambda (_%g208974208976%_) - (cons _%g208974208976%_ _%imports208970%_)) - _%$e208972%_) - _%imports208970%_)))) - (let _%lp208921%_ ((_%rest208923%_ _%deps208919%_)) - (let* ((_%rest208924208932%_ _%rest208923%_) - (_%else208926208940%_ (lambda () '#!void)) - (_%K208928208958%_ - (lambda (_%rest208943%_ _%hd208944%_) + (gx#core-context-prelude__% _%ctx212336%_)))) + (if _%$e212391%_ + ((lambda (_%g212393212395%_) + (cons _%g212393212395%_ _%imports212389%_)) + _%$e212391%_) + _%imports212389%_)))) + (let _%lp212340%_ ((_%rest212342%_ _%deps212338%_)) + (let* ((_%rest212343212351%_ _%rest212342%_) + (_%else212345212359%_ (lambda () '#!void)) + (_%K212347212377%_ + (lambda (_%rest212362%_ _%hd212363%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd208944%_ + _%hd212363%_ 'gx#module-context::t)) (let () - (if (let ((__tmp209402 + (if (let ((__tmp212821 (##structure-ref (let () (declare (not safe)) @@ -178,52 +178,52 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp209401 + (__tmp212820 (let () (declare (not safe)) (##unchecked-structure-ref - _%hd208944%_ + _%hd212363%_ '1 '#f '#f)))) (declare (not safe)) - (hash-get __tmp209402 __tmp209401)) + (hash-get __tmp212821 __tmp212820)) '#!void (begin - (let ((_%$e208947%_ + (let ((_%$e212366%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%hd208944%_)))) - (if _%$e208947%_ - ((lambda (_%pre208950%_) - (_%lp208921%_ - (cons _%pre208950%_ + _%hd212363%_)))) + (if _%$e212366%_ + ((lambda (_%pre212369%_) + (_%lp212340%_ + (cons _%pre212369%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd208944%_ + _%hd212363%_ '8 '#f '#f))))) - _%$e208947%_) - (_%lp208921%_ + _%$e212366%_) + (_%lp212340%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd208944%_ + _%hd212363%_ '8 '#f '#f))))) - (gxc#optimizer-load-ssxi _%hd208944%_))) - (_%lp208921%_ _%rest208943%_)) + (gxc#optimizer-load-ssxi _%hd212363%_))) + (_%lp212340%_ _%rest212362%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd208944%_ + _%hd212363%_ 'gx#prelude-context::t)) (let () - (if (let ((__tmp209404 + (if (let ((__tmp212823 (##structure-ref (let () (declare (not safe)) @@ -231,103 +231,103 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp209403 + (__tmp212822 (let () (declare (not safe)) (##unchecked-structure-ref - _%hd208944%_ + _%hd212363%_ '1 '#f '#f)))) (declare (not safe)) - (hash-get __tmp209404 __tmp209403)) + (hash-get __tmp212823 __tmp212822)) '#!void (begin - (_%lp208921%_ + (_%lp212340%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd208944%_ + _%hd212363%_ '7 '#f '#f))) - (gxc#optimizer-load-ssxi _%hd208944%_))) - (_%lp208921%_ _%rest208943%_)) + (gxc#optimizer-load-ssxi _%hd212363%_))) + (_%lp212340%_ _%rest212362%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd208944%_ + _%hd212363%_ 'gx#module-import::t)) - (_%lp208921%_ + (_%lp212340%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd208944%_ + _%hd212363%_ '1 '#f '#f)) - _%rest208943%_)) + _%rest212362%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd208944%_ + _%hd212363%_ 'gx#module-export::t)) - (_%lp208921%_ + (_%lp212340%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd208944%_ + _%hd212363%_ '1 '#f '#f)) - _%rest208943%_)) + _%rest212362%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd208944%_ + _%hd212363%_ 'gx#import-set::t)) - (_%lp208921%_ + (_%lp212340%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd208944%_ + _%hd212363%_ '1 '#f '#f)) - _%rest208943%_)) + _%rest212362%_)) (let () (declare (not safe)) (error '"Unexpected module import" - _%hd208944%_)))))))))) - (if (pair? _%rest208924208932%_) - (let ((_%hd208929208961%_ + _%hd212363%_)))))))))) + (if (pair? _%rest212343212351%_) + (let ((_%hd212348212380%_ (let () (declare (not safe)) - (##car _%rest208924208932%_))) - (_%tl208930208963%_ + (##car _%rest212343212351%_))) + (_%tl212349212382%_ (let () (declare (not safe)) - (##cdr _%rest208924208932%_)))) - (let* ((_%hd208966%_ _%hd208929208961%_) - (_%rest208968%_ _%tl208930208963%_)) - (_%K208928208958%_ _%rest208968%_ _%hd208966%_))) + (##cdr _%rest212343212351%_)))) + (let* ((_%hd212385%_ _%hd212348212380%_) + (_%rest212387%_ _%tl212349212382%_)) + (_%K212347212377%_ _%rest212387%_ _%hd212385%_))) '#!void)))))) (define gxc#optimizer-load-ssxi - (lambda (_%ctx208897%_) + (lambda (_%ctx212316%_) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%ctx208897%_ + _%ctx212316%_ 'gx#module-context::t)) (list? (let () (declare (not safe)) (##unchecked-structure-ref - _%ctx208897%_ + _%ctx212316%_ '7 '#f '#f)))) '#!void - (let* ((_%ht208899%_ + (let* ((_%ht212318%_ (##structure-ref (let () (declare (not safe)) @@ -335,172 +335,172 @@ '3 gxc#optimizer-info::t '#f)) - (_%id208901%_ + (_%id212320%_ (##structure-ref - _%ctx208897%_ + _%ctx212316%_ '1 gx#expander-context::t '#f)) - (_%mod208903%_ + (_%mod212322%_ (let () (declare (not safe)) - (hash-get _%ht208899%_ _%id208901%_))) - (_%$e208906%_ _%mod208903%_)) - (if _%$e208906%_ - _%$e208906%_ - (let* ((_%mod208909%_ - (gxc#optimizer-import-ssxi _%ctx208897%_)) - (_%val208914%_ - (let ((_%$e208911%_ _%mod208909%_)) - (if _%$e208911%_ _%$e208911%_ '#!void)))) + (hash-get _%ht212318%_ _%id212320%_))) + (_%$e212325%_ _%mod212322%_)) + (if _%$e212325%_ + _%$e212325%_ + (let* ((_%mod212328%_ + (gxc#optimizer-import-ssxi _%ctx212316%_)) + (_%val212333%_ + (let ((_%$e212330%_ _%mod212328%_)) + (if _%$e212330%_ _%$e212330%_ '#!void)))) (let () (declare (not safe)) - (hash-put! _%ht208899%_ _%id208901%_ _%val208914%_)) - _%val208914%_)))))) + (hash-put! _%ht212318%_ _%id212320%_ _%val212333%_)) + _%val212333%_)))))) (define gxc#optimizer-import-ssxi - (lambda (_%ctx208895%_) - (if (##structure-ref _%ctx208895%_ '1 gx#expander-context::t '#f) + (lambda (_%ctx212314%_) + (if (##structure-ref _%ctx212314%_ '1 gx#expander-context::t '#f) (gxc#optimizer-import-ssxi-by-id - (##structure-ref _%ctx208895%_ '1 gx#expander-context::t '#f)) + (##structure-ref _%ctx212314%_ '1 gx#expander-context::t '#f)) '#f))) (define gxc#optimizer-import-ssxi-by-id - (lambda (_%id208872%_) - (letrec ((_%catch-e208874%_ - (lambda (_%exn208893%_) + (lambda (_%id212292%_) + (letrec ((_%catch-e212294%_ + (lambda (_%exn212312%_) (if (equal? (let () (declare (not safe)) - (error-message _%exn208893%_)) + (error-message _%exn212312%_)) '"cannot find library module") '#!void (begin (let () (declare (not safe)) - (display-exception__0 _%exn208893%_)) + (display-exception__0 _%exn212312%_)) (let () (declare (not safe)) (displayln '"*** WARNING Failed to load ssxi module for " - _%id208872%_)))) + _%id212292%_)))) '#f)) - (_%import-e208875%_ + (_%import-e212295%_ (lambda () - (let* ((_%str-id208878%_ - (let ((__tmp209405 + (let* ((_%str-id212298%_ + (let ((__tmp212824 (let () (declare (not safe)) (gxc#module-id->path-string - _%id208872%_)))) + _%id212292%_)))) (declare (not safe)) - (##string-append __tmp209405 '".ssxi"))) - (_%artefact-path208886%_ - (let ((_%odir208879208881%_ + (##string-append __tmp212824 '".ssxi"))) + (_%artefact-path212305%_ + (let ((_%odir212299212301%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%odir208879208881%_ - (let ((_%odir208884%_ _%odir208879208881%_)) + (if _%odir212299212301%_ + (let ((_%odir212303%_ _%odir212299212301%_)) (path-expand (let () (declare (not safe)) (##string-append - _%str-id208878%_ + _%str-id212298%_ '".ss")) - _%odir208884%_)) + _%odir212303%_)) '#f))) - (_%library-path208888%_ - (let ((__tmp209406 + (_%library-path212307%_ + (let ((__tmp212825 (let () (declare (not safe)) (##string-append '":" - _%str-id208878%_ + _%str-id212298%_ '".ss")))) (declare (not safe)) - (##string->symbol __tmp209406))) - (_%ssxi-path208890%_ - (if (and _%artefact-path208886%_ - (file-exists? _%artefact-path208886%_)) - _%artefact-path208886%_ - _%library-path208888%_))) + (##string->symbol __tmp212825))) + (_%ssxi-path212309%_ + (if (and _%artefact-path212305%_ + (file-exists? _%artefact-path212305%_)) + _%artefact-path212305%_ + _%library-path212307%_))) (let () (declare (not safe)) (gxc#verbose '"Loading ssxi module " - _%ssxi-path208890%_)) + _%ssxi-path212309%_)) (let () (declare (not safe)) - (gx#import-module__% _%ssxi-path208890%_ '#t '#t)))))) + (gx#import-module__% _%ssxi-path212309%_ '#t '#t)))))) (let () (declare (not safe)) - (__with-catch _%catch-e208874%_ _%import-e208875%_))))) + (__with-catch _%catch-e212294%_ _%import-e212295%_))))) (define gxc#optimize-source - (lambda (_%stx208857%_) + (lambda (_%stx212277%_) (let () (declare (not safe)) - (gxc#apply-collect-mutators _%stx208857%_)) + (gxc#apply-collect-mutators _%stx212277%_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-type-info _%stx208857%_)) - (let* ((_%stx208859%_ + (gxc#apply-collect-top-level-type-info _%stx212277%_)) + (let* ((_%stx212279%_ (let () (declare (not safe)) - (gxc#apply-generate-method-specializers _%stx208857%_))) - (_%stx208861%_ + (gxc#apply-generate-method-specializers _%stx212277%_))) + (_%stx212281%_ (let () (declare (not safe)) - (gxc#apply-lift-top-lambdas _%stx208859%_)))) + (gxc#apply-lift-top-lambdas _%stx212279%_)))) (let () (declare (not safe)) - (gxc#apply-collect-type-info _%stx208861%_)) + (gxc#apply-collect-type-info _%stx212281%_)) (let () (declare (not safe)) - (gxc#apply-collect-mutable-type-info _%stx208861%_)) - (let _%fixpoint208864%_ ((_%current208866%_ + (gxc#apply-collect-mutable-type-info _%stx212281%_)) + (let _%fixpoint212284%_ ((_%current212286%_ (let () (declare (not safe)) (gxc#optimizer-current-types)))) (let () (declare (not safe)) - (gxc#apply-refine-type-info _%stx208861%_)) - (let ((_%refined208868%_ + (gxc#apply-refine-type-info _%stx212281%_)) + (let ((_%refined212288%_ (let () (declare (not safe)) (gxc#optimizer-current-types)))) - (if (equal? _%current208866%_ _%refined208868%_) + (if (equal? _%current212286%_ _%refined212288%_) '#!void - (_%fixpoint208864%_ _%refined208868%_)))) + (_%fixpoint212284%_ _%refined212288%_)))) (let () (declare (not safe)) - (gxc#apply-check-return-type _%stx208861%_)) + (gxc#apply-check-return-type _%stx212281%_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-declarations _%stx208861%_)) - (let ((_%stx208870%_ + (gxc#apply-collect-top-level-declarations _%stx212281%_)) + (let ((_%stx212290%_ (let () (declare (not safe)) - (gxc#apply-optimize-annotated _%stx208861%_)))) + (gxc#apply-optimize-annotated _%stx212281%_)))) (declare (not safe)) - (gxc#apply-optimize-call _%stx208870%_))))) + (gxc#apply-optimize-call _%stx212290%_))))) (define gxc#::generate-ssxi::t - (let ((__tmp209408 (list gxc#::generate-runtime-empty::t)) - (__tmp209407 (cons (cons 'final: '#t) '()))) + (let ((__tmp212827 (list gxc#::generate-runtime-empty::t)) + (__tmp212826 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-ssxi::t '::generate-ssxi - __tmp209408 + __tmp212827 '() - __tmp209407 + __tmp212826 '#f))) (define gxc#::generate-ssxi? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-ssxi::t))) (define gxc#make-::generate-ssxi - (lambda _%$args208854%_ - (apply make-instance gxc#::generate-ssxi::t _%$args208854%_))) + (lambda _%$args212274%_ + (apply make-instance gxc#::generate-ssxi::t _%$args212274%_))) (define gxc#::generate-ssxi-bind-methods! - (let ((__tmp209409 + (let ((__tmp212828 (lambda () (force gxc#::generate-runtime-empty-bind-methods!) (let () @@ -543,201 +543,202 @@ (declare (not safe)) (__seal-class! gxc#::generate-ssxi::t))))) (declare (not safe)) - (__make-atomic-promise __tmp209409))) + (__make-atomic-promise __tmp212828))) (define gxc#apply-generate-ssxi - (lambda (_%stx208846%_) + (lambda (_%stx212266%_) (force gxc#::generate-ssxi-bind-methods!) - (let* ((_%self208849%_ - (let ((__obj209388 + (let* ((_%self212269%_ + (let ((__obj212807 (let () (declare (not safe)) (##structure gxc#::generate-ssxi::t)))) - __obj209388)) - (__tmp209410 + __obj212807)) + (__tmp212829 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self208849%_ _%stx208846%_))))) + (gxc#compile-e__1 _%self212269%_ _%stx212266%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp209410 + __tmp212829 gxc#current-compile-method - _%self208849%_)))) + _%self212269%_)))) (define gxc#generate-ssxi-begin-syntax% - (lambda (_%self208806%_ _%stx208807%_) - (let* ((_%g208809208819%_ - (lambda (_%g208810208816%_) + (lambda (_%self212226%_ _%stx212227%_) + (let* ((_%g212229212239%_ + (lambda (_%g212230212236%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g208810208816%_)))) - (_%g208808208843%_ - (lambda (_%g208810208822%_) + _%g212230212236%_)))) + (_%g212228212263%_ + (lambda (_%g212230212242%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g208810208822%_)) - (let ((_%e208812208824%_ + (gx#stx-pair? _%g212230212242%_)) + (let ((_%e212232212244%_ (let () (declare (not safe)) - (gx#stx-e _%g208810208822%_)))) - (let ((_%hd208813208827%_ + (gx#stx-e _%g212230212242%_)))) + (let ((_%hd212233212247%_ (let () (declare (not safe)) - (##car _%e208812208824%_))) - (_%tl208814208829%_ + (##car _%e212232212244%_))) + (_%tl212234212249%_ (let () (declare (not safe)) - (##cdr _%e208812208824%_)))) - ((lambda (_%L208832%_) - (let ((__tmp209413 + (##cdr _%e212232212244%_)))) + ((lambda (_%g212231212252%_) + (let ((__tmp212832 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-begin% - _%self208806%_ - _%stx208807%_)))) - (__tmp209411 - (let ((__tmp209412 + _%self212226%_ + _%stx212227%_)))) + (__tmp212830 + (let ((__tmp212831 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp209412 '1)))) + (##fx+ __tmp212831 '1)))) (declare (not safe)) (call-with-parameters__1 - __tmp209413 + __tmp212832 gx#current-expander-phi - __tmp209411))) - _%tl208814208829%_))) - (_%g208809208819%_ _%g208810208822%_))))) - (_%g208808208843%_ _%stx208807%_)))) + __tmp212830))) + _%tl212234212249%_))) + (_%g212229212239%_ _%g212230212242%_))))) + (_%g212228212263%_ _%stx212227%_)))) (define gxc#generate-ssxi-module% - (lambda (_%self208745%_ _%stx208746%_) - (let* ((_%g208748208762%_ - (lambda (_%g208749208759%_) + (lambda (_%self212165%_ _%stx212166%_) + (let* ((_%g212168212182%_ + (lambda (_%g212169212179%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g208749208759%_)))) - (_%g208747208803%_ - (lambda (_%g208749208765%_) + _%g212169212179%_)))) + (_%g212167212223%_ + (lambda (_%g212169212185%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g208749208765%_)) - (let ((_%e208752208767%_ + (gx#stx-pair? _%g212169212185%_)) + (let ((_%e212172212187%_ (let () (declare (not safe)) - (gx#stx-e _%g208749208765%_)))) - (let ((_%hd208753208770%_ + (gx#stx-e _%g212169212185%_)))) + (let ((_%hd212173212190%_ (let () (declare (not safe)) - (##car _%e208752208767%_))) - (_%tl208754208772%_ + (##car _%e212172212187%_))) + (_%tl212174212192%_ (let () (declare (not safe)) - (##cdr _%e208752208767%_)))) + (##cdr _%e212172212187%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl208754208772%_)) - (let ((_%e208755208775%_ + (gx#stx-pair? _%tl212174212192%_)) + (let ((_%e212175212195%_ (let () (declare (not safe)) - (gx#stx-e _%tl208754208772%_)))) - (let ((_%hd208756208778%_ + (gx#stx-e _%tl212174212192%_)))) + (let ((_%hd212176212198%_ (let () (declare (not safe)) - (##car _%e208755208775%_))) - (_%tl208757208780%_ + (##car _%e212175212195%_))) + (_%tl212177212200%_ (let () (declare (not safe)) - (##cdr _%e208755208775%_)))) - ((lambda (_%L208783%_ _%L208784%_) - (let* ((_%ctx208797%_ + (##cdr _%e212175212195%_)))) + ((lambda (_%g212170212203%_ + _%g212171212204%_) + (let* ((_%ctx212217%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L208784%_))) - (_%code208799%_ + _%g212171212204%_))) + (_%code212219%_ (##structure-ref - _%ctx208797%_ + _%ctx212217%_ '11 gx#module-context::t '#f)) - (__tmp209414 + (__tmp212833 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self208745%_ - _%code208799%_))))) + _%self212165%_ + _%code212219%_))))) (declare (not safe)) (call-with-parameters__1 - __tmp209414 + __tmp212833 gx#current-expander-context - _%ctx208797%_))) - _%tl208757208780%_ - _%hd208756208778%_))) - (_%g208748208762%_ _%g208749208765%_)))) - (_%g208748208762%_ _%g208749208765%_))))) - (_%g208747208803%_ _%stx208746%_)))) + _%ctx212217%_))) + _%tl212177212200%_ + _%hd212176212198%_))) + (_%g212168212182%_ _%g212169212185%_)))) + (_%g212168212182%_ _%g212169212185%_))))) + (_%g212167212223%_ _%stx212166%_)))) (define gxc#generate-ssxi-define-values% - (lambda (_%self208550%_ _%stx208551%_) - (letrec ((_%generate-e208553%_ - (lambda (_%id208730%_) - (let* ((_%sym208732%_ - (if (let ((__tmp209415 + (lambda (_%self211972%_ _%stx211973%_) + (letrec ((_%generate-e211975%_ + (lambda (_%id212150%_) + (let* ((_%sym212152%_ + (if (let ((__tmp212834 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'id)))) (declare (not safe)) - (gx#identifier? __tmp209415)) + (gx#identifier? __tmp212834)) (let () (declare (not safe)) - (gxc#identifier-symbol _%id208730%_)) + (gxc#identifier-symbol _%id212150%_)) '#f)) - (_%$e208734%_ + (_%$e212154%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-class _%sym208732%_)))) - (if _%$e208734%_ - ((lambda (_%klass208737%_) + (gxc#optimizer-lookup-class _%sym212152%_)))) + (if _%$e212154%_ + ((lambda (_%klass212157%_) (let () (declare (not safe)) (gxc#verbose '"generate class decl" - _%sym208732%_)) + _%sym212152%_)) (cons 'begin (cons (cons 'declare-class - (cons _%sym208732%_ - (cons (let ((__method209389 + (cons _%sym212152%_ + (cons (let ((__method212808 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__method-ref _%klass208737%_ 'typedecl)))) - (if __method209389 + (__method-ref _%klass212157%_ 'typedecl)))) + (if __method212808 (let () (declare (not safe)) - (__method209389 _%klass208737%_)) + (__method212808 _%klass212157%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%klass208737%_ + _%klass212157%_ 'typedecl)) '#!void))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'declare-type - (cons _%sym208732%_ + (cons _%sym212152%_ (cons (cons 'optimizer-resolve-class ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'quote (cons (cons 'typedecl - (cons _%sym208732%_ + (cons _%sym212152%_ '())) '())) (cons (cons 'quote (cons 'class::t '())) @@ -745,1309 +746,1317 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%$e208734%_) - (let ((_%$e208739%_ + _%$e212154%_) + (let ((_%$e212159%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%sym208732%_)))) - (if _%$e208739%_ - ((lambda (_%type208742%_) + (gxc#optimizer-lookup-type _%sym212152%_)))) + (if _%$e212159%_ + ((lambda (_%type212162%_) (let () (declare (not safe)) (gxc#verbose '"generate typedecl " - _%sym208732%_ + _%sym212152%_ '" " - _%type208742%_)) + _%type212162%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type208742%_ + _%type212162%_ 'gxc#!class::t)) (cons 'declare-type - (cons _%sym208732%_ + (cons _%sym212152%_ (cons (cons 'optimizer-resolve-class (cons (cons 'quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'typedecl - (cons _%sym208732%_ '())) + (cons _%sym212152%_ '())) '())) (cons (cons 'quote (cons (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%type208742%_)) + _%type212162%_)) '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons 'declare-type - (cons _%sym208732%_ - (cons (let ((__method209390 + (cons _%sym212152%_ + (cons (let ((__method212809 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__method-ref _%type208742%_ 'typedecl)))) - (if __method209390 + (__method-ref _%type212162%_ 'typedecl)))) + (if __method212809 (let () (declare (not safe)) - (__method209390 _%type208742%_)) + (__method212809 _%type212162%_)) (begin (let () (declare (not safe)) - (error '"Missing method" _%type208742%_ 'typedecl)) + (error '"Missing method" _%type212162%_ 'typedecl)) '#!void))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e208739%_) + _%$e212159%_) '(begin)))))))) - (let* ((_%__stx209001209002%_ _%stx208551%_) - (_%g208556208594%_ + (let* ((_%__stx212420212421%_ _%stx211973%_) + (_%g211978212016%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx209001209002%_))))) - (let ((_%__kont209003209004%_ - (lambda (_%L208712%_) (_%generate-e208553%_ _%L208712%_))) - (_%__kont209005209006%_ - (lambda (_%L208647%_) - (let ((_%types208673%_ - (map _%generate-e208553%_ - (let ((__tmp209416 - (lambda (_%g208665208668%_ - _%g208666208670%_) - (cons _%g208665208668%_ - _%g208666208670%_)))) + _%__stx212420212421%_))))) + (let ((_%__kont212422212423%_ + (lambda (_%g211980212132%_) + (_%generate-e211975%_ _%g211980212132%_))) + (_%__kont212424212425%_ + (lambda (_%g211993212067%_) + (let ((_%types212093%_ + (map _%generate-e211975%_ + (let ((__tmp212835 + (lambda (_%g212085212088%_ + _%g212086212090%_) + (cons _%g212085212088%_ + _%g212086212090%_)))) (declare (not safe)) - (__foldr1 __tmp209416 '() _%L208647%_))))) - (cons 'begin _%types208673%_))))) - (let ((_%__match209056209057%_ - (lambda (_%e208572208599%_ - _%hd208573208602%_ - _%tl208574208604%_ - _%e208575208607%_ - _%hd208576208610%_ - _%tl208577208612%_ - _%__splice209007209008%_ - _%target208578208615%_ - _%tl208580208617%_) - (letrec ((_%loop208581208620%_ - (lambda (_%hd208579208623%_ - _%id208585208625%_) + (__foldr1 + __tmp212835 + '() + _%g211993212067%_))))) + (cons 'begin _%types212093%_))))) + (let ((_%__match212475212476%_ + (lambda (_%e211994212021%_ + _%hd211995212024%_ + _%tl211996212026%_ + _%e211997212029%_ + _%hd211998212032%_ + _%tl211999212034%_ + _%__splice212426212427%_ + _%target212000212037%_ + _%tl212002212039%_) + (letrec ((_%loop212003212042%_ + (lambda (_%hd212001212045%_ + _%id212007212047%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd208579208623%_)) - (let ((_%e208582208628%_ + (gx#stx-pair? _%hd212001212045%_)) + (let ((_%e212004212049%_ (let () (declare (not safe)) (gx#stx-e - _%hd208579208623%_)))) - (let ((_%lp-tl208584208633%_ + _%hd212001212045%_)))) + (let ((_%lp-tl212006212054%_ (let () (declare (not safe)) - (##cdr _%e208582208628%_))) - (_%lp-hd208583208631%_ + (##cdr _%e212004212049%_))) + (_%lp-hd212005212052%_ (let () (declare (not safe)) - (##car _%e208582208628%_)))) - (_%loop208581208620%_ - _%lp-tl208584208633%_ - (cons _%lp-hd208583208631%_ - _%id208585208625%_)))) - (let ((_%id208586208636%_ - (reverse _%id208585208625%_))) + (##car _%e212004212049%_)))) + (_%loop212003212042%_ + _%lp-tl212006212054%_ + (cons _%lp-hd212005212052%_ + _%id212007212047%_)))) + (let ((_%id212008212057%_ + (reverse _%id212007212047%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208577208612%_)) - (let ((_%e208587208639%_ + _%tl211999212034%_)) + (let ((_%e212009212059%_ (let () (declare (not safe)) (gx#stx-e - _%tl208577208612%_)))) - (let ((_%tl208589208644%_ + _%tl211999212034%_)))) + (let ((_%tl212011212064%_ (let () (declare (not safe)) - (##cdr _%e208587208639%_))) - (_%hd208588208642%_ + (##cdr _%e212009212059%_))) + (_%hd212010212062%_ (let () (declare (not safe)) - (##car _%e208587208639%_)))) + (##car _%e212009212059%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl208589208644%_)) - (_%__kont209005209006%_ - _%id208586208636%_) + _%tl212011212064%_)) + (_%__kont212424212425%_ + _%id212008212057%_) (let () (declare (not safe)) - (_%g208556208594%_))))) + (_%g211978212016%_))))) (let () (declare (not safe)) - (_%g208556208594%_)))))))) - (_%loop208581208620%_ _%target208578208615%_ '()))))) + (_%g211978212016%_)))))))) + (_%loop212003212042%_ _%target212000212037%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx209001209002%_)) - (let ((_%e208559208680%_ + (gx#stx-pair? _%__stx212420212421%_)) + (let ((_%e211981212100%_ (let () (declare (not safe)) - (gx#stx-e _%__stx209001209002%_)))) - (let ((_%tl208561208685%_ + (gx#stx-e _%__stx212420212421%_)))) + (let ((_%tl211983212105%_ (let () (declare (not safe)) - (##cdr _%e208559208680%_))) - (_%hd208560208683%_ + (##cdr _%e211981212100%_))) + (_%hd211982212103%_ (let () (declare (not safe)) - (##car _%e208559208680%_)))) + (##car _%e211981212100%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl208561208685%_)) - (let ((_%e208562208688%_ + (gx#stx-pair? _%tl211983212105%_)) + (let ((_%e211984212108%_ (let () (declare (not safe)) - (gx#stx-e _%tl208561208685%_)))) - (let ((_%tl208564208693%_ + (gx#stx-e _%tl211983212105%_)))) + (let ((_%tl211986212113%_ (let () (declare (not safe)) - (##cdr _%e208562208688%_))) - (_%hd208563208691%_ + (##cdr _%e211984212108%_))) + (_%hd211985212111%_ (let () (declare (not safe)) - (##car _%e208562208688%_)))) + (##car _%e211984212108%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd208563208691%_)) - (let ((_%e208565208696%_ + (gx#stx-pair? _%hd211985212111%_)) + (let ((_%e211987212116%_ (let () (declare (not safe)) - (gx#stx-e _%hd208563208691%_)))) - (let ((_%tl208567208701%_ + (gx#stx-e _%hd211985212111%_)))) + (let ((_%tl211989212121%_ (let () (declare (not safe)) - (##cdr _%e208565208696%_))) - (_%hd208566208699%_ + (##cdr _%e211987212116%_))) + (_%hd211988212119%_ (let () (declare (not safe)) - (##car _%e208565208696%_)))) + (##car _%e211987212116%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl208567208701%_)) + _%tl211989212121%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208564208693%_)) - (let ((_%e208568208704%_ + _%tl211986212113%_)) + (let ((_%e211990212124%_ (let () (declare (not safe)) (gx#stx-e - _%tl208564208693%_)))) - (let ((_%tl208570208709%_ + _%tl211986212113%_)))) + (let ((_%tl211992212129%_ (let () (declare (not safe)) - (##cdr _%e208568208704%_))) - (_%hd208569208707%_ + (##cdr _%e211990212124%_))) + (_%hd211991212127%_ (let () (declare (not safe)) - (##car _%e208568208704%_)))) + (##car _%e211990212124%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl208570208709%_)) - (_%__kont209003209004%_ - _%hd208566208699%_) + _%tl211992212129%_)) + (_%__kont212422212423%_ + _%hd211988212119%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd208563208691%_)) - (let ((_%__splice209007209008%_ + _%hd211985212111%_)) + (let ((_%__splice212426212427%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%hd208563208691%_ + _%hd211985212111%_ '0)))) - (let ((_%tl208580208617%_ + (let ((_%tl212002212039%_ (let () (declare (not safe)) - (##vector-ref _%__splice209007209008%_ '1))) - (_%target208578208615%_ + (##vector-ref _%__splice212426212427%_ '1))) + (_%target212000212037%_ (let () (declare (not safe)) - (##vector-ref _%__splice209007209008%_ '0)))) + (##vector-ref _%__splice212426212427%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl208580208617%_)) - (_%__match209056209057%_ - _%e208559208680%_ - _%hd208560208683%_ - _%tl208561208685%_ - _%e208562208688%_ - _%hd208563208691%_ - _%tl208564208693%_ - _%__splice209007209008%_ - _%target208578208615%_ - _%tl208580208617%_) + (gx#stx-null? _%tl212002212039%_)) + (_%__match212475212476%_ + _%e211981212100%_ + _%hd211982212103%_ + _%tl211983212105%_ + _%e211984212108%_ + _%hd211985212111%_ + _%tl211986212113%_ + _%__splice212426212427%_ + _%target212000212037%_ + _%tl212002212039%_) (let () (declare (not safe)) - (_%g208556208594%_))))) - (let () (declare (not safe)) (_%g208556208594%_)))))) + (_%g211978212016%_))))) + (let () (declare (not safe)) (_%g211978212016%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd208563208691%_)) - (let ((_%__splice209007209008%_ + _%hd211985212111%_)) + (let ((_%__splice212426212427%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%hd208563208691%_ + _%hd211985212111%_ '0)))) - (let ((_%tl208580208617%_ + (let ((_%tl212002212039%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice209007209008%_ '1))) - (_%target208578208615%_ + (##vector-ref _%__splice212426212427%_ '1))) + (_%target212000212037%_ (let () (declare (not safe)) - (##vector-ref _%__splice209007209008%_ '0)))) + (##vector-ref _%__splice212426212427%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl208580208617%_)) - (_%__match209056209057%_ - _%e208559208680%_ - _%hd208560208683%_ - _%tl208561208685%_ - _%e208562208688%_ - _%hd208563208691%_ - _%tl208564208693%_ - _%__splice209007209008%_ - _%target208578208615%_ - _%tl208580208617%_) - (let () (declare (not safe)) (_%g208556208594%_))))) + (gx#stx-null? _%tl212002212039%_)) + (_%__match212475212476%_ + _%e211981212100%_ + _%hd211982212103%_ + _%tl211983212105%_ + _%e211984212108%_ + _%hd211985212111%_ + _%tl211986212113%_ + _%__splice212426212427%_ + _%target212000212037%_ + _%tl212002212039%_) + (let () (declare (not safe)) (_%g211978212016%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g208556208594%_)))) + (_%g211978212016%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd208563208691%_)) - (let ((_%__splice209007209008%_ + _%hd211985212111%_)) + (let ((_%__splice212426212427%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%hd208563208691%_ + _%hd211985212111%_ '0)))) - (let ((_%tl208580208617%_ + (let ((_%tl212002212039%_ (let () (declare (not safe)) (##vector-ref - _%__splice209007209008%_ + _%__splice212426212427%_ '1))) - (_%target208578208615%_ + (_%target212000212037%_ (let () (declare (not safe)) (##vector-ref - _%__splice209007209008%_ + _%__splice212426212427%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl208580208617%_)) - (_%__match209056209057%_ - _%e208559208680%_ - _%hd208560208683%_ - _%tl208561208685%_ - _%e208562208688%_ - _%hd208563208691%_ - _%tl208564208693%_ - _%__splice209007209008%_ - _%target208578208615%_ - _%tl208580208617%_) + _%tl212002212039%_)) + (_%__match212475212476%_ + _%e211981212100%_ + _%hd211982212103%_ + _%tl211983212105%_ + _%e211984212108%_ + _%hd211985212111%_ + _%tl211986212113%_ + _%__splice212426212427%_ + _%target212000212037%_ + _%tl212002212039%_) (let () (declare (not safe)) - (_%g208556208594%_))))) + (_%g211978212016%_))))) (let () (declare (not safe)) - (_%g208556208594%_)))))) + (_%g211978212016%_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd208563208691%_)) - (let ((_%__splice209007209008%_ + _%hd211985212111%_)) + (let ((_%__splice212426212427%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%hd208563208691%_ + _%hd211985212111%_ '0)))) - (let ((_%tl208580208617%_ + (let ((_%tl212002212039%_ (let () (declare (not safe)) (##vector-ref - _%__splice209007209008%_ + _%__splice212426212427%_ '1))) - (_%target208578208615%_ + (_%target212000212037%_ (let () (declare (not safe)) (##vector-ref - _%__splice209007209008%_ + _%__splice212426212427%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl208580208617%_)) - (_%__match209056209057%_ - _%e208559208680%_ - _%hd208560208683%_ - _%tl208561208685%_ - _%e208562208688%_ - _%hd208563208691%_ - _%tl208564208693%_ - _%__splice209007209008%_ - _%target208578208615%_ - _%tl208580208617%_) + _%tl212002212039%_)) + (_%__match212475212476%_ + _%e211981212100%_ + _%hd211982212103%_ + _%tl211983212105%_ + _%e211984212108%_ + _%hd211985212111%_ + _%tl211986212113%_ + _%__splice212426212427%_ + _%target212000212037%_ + _%tl212002212039%_) (let () (declare (not safe)) - (_%g208556208594%_))))) + (_%g211978212016%_))))) (let () (declare (not safe)) - (_%g208556208594%_)))))) + (_%g211978212016%_)))))) (let () (declare (not safe)) - (_%g208556208594%_))))) - (let () (declare (not safe)) (_%g208556208594%_))))))))) + (_%g211978212016%_))))) + (let () (declare (not safe)) (_%g211978212016%_))))))))) (define gxc#generate-ssxi-call% - (lambda (_%self208103%_ _%stx208104%_) - (let* ((_%__stx209059209060%_ _%stx208104%_) - (_%g208108208210%_ + (lambda (_%self211525%_ _%stx211526%_) + (let* ((_%__stx212478212479%_ _%stx211526%_) + (_%g211530211632%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx209059209060%_))))) - (let ((_%__kont209061209062%_ - (lambda (_%L208500%_ - _%L208501%_ - _%L208502%_ - _%L208503%_ - _%L208504%_) + _%__stx212478212479%_))))) + (let ((_%__kont212480212481%_ + (lambda (_%g211532211922%_ + _%g211533211923%_ + _%g211534211924%_ + _%g211535211925%_ + _%g211536211926%_) (cons 'declare-method (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L208503%_)) + (gxc#identifier-symbol _%g211535211925%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L208502%_)) + (gx#stx-e _%g211534211924%_)) (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L208501%_)) + _%g211533211923%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L208500%_)) + (gx#stx-e + _%g211532211922%_)) '()))))))) - (_%__kont209063209064%_ - (lambda (_%L208326%_ _%L208327%_ _%L208328%_ _%L208329%_) + (_%__kont212482212483%_ + (lambda (_%g211585211748%_ + _%g211586211749%_ + _%g211587211750%_ + _%g211588211751%_) (cons 'declare-method (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L208328%_)) + (gxc#identifier-symbol _%g211587211750%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L208327%_)) + (gx#stx-e _%g211586211749%_)) (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L208326%_)) + _%g211585211748%_)) (cons '#f '()))))))) - (_%__kont209065209066%_ (lambda () '(begin)))) - (let ((_%__match209194209195%_ - (lambda (_%e208115208372%_ - _%hd208116208375%_ - _%tl208117208377%_ - _%e208118208380%_ - _%hd208119208383%_ - _%tl208120208385%_ - _%e208121208388%_ - _%hd208122208391%_ - _%tl208123208393%_ - _%e208124208396%_ - _%hd208125208399%_ - _%tl208126208401%_ - _%e208127208404%_ - _%hd208128208407%_ - _%tl208129208409%_ - _%e208130208412%_ - _%hd208131208415%_ - _%tl208132208417%_ - _%e208133208420%_ - _%hd208134208423%_ - _%tl208135208425%_ - _%e208136208428%_ - _%hd208137208431%_ - _%tl208138208433%_ - _%e208139208436%_ - _%hd208140208439%_ - _%tl208141208441%_ - _%e208142208444%_ - _%hd208143208447%_ - _%tl208144208449%_ - _%e208145208452%_ - _%hd208146208455%_ - _%tl208147208457%_ - _%e208148208460%_ - _%hd208149208463%_ - _%tl208150208465%_ - _%e208151208468%_ - _%hd208152208471%_ - _%tl208153208473%_ - _%e208154208476%_ - _%hd208155208479%_ - _%tl208156208481%_ - _%e208157208484%_ - _%hd208158208487%_ - _%tl208159208489%_ - _%e208160208492%_ - _%hd208161208495%_ - _%tl208162208497%_) - (let ((_%L208500%_ _%hd208161208495%_) - (_%L208501%_ _%hd208152208471%_) - (_%L208502%_ _%hd208143208447%_) - (_%L208503%_ _%hd208134208423%_) - (_%L208504%_ _%hd208125208399%_)) + (_%__kont212484212485%_ (lambda () '(begin)))) + (let ((_%__match212613212614%_ + (lambda (_%e211537211794%_ + _%hd211538211797%_ + _%tl211539211799%_ + _%e211540211802%_ + _%hd211541211805%_ + _%tl211542211807%_ + _%e211543211810%_ + _%hd211544211813%_ + _%tl211545211815%_ + _%e211546211818%_ + _%hd211547211821%_ + _%tl211548211823%_ + _%e211549211826%_ + _%hd211550211829%_ + _%tl211551211831%_ + _%e211552211834%_ + _%hd211553211837%_ + _%tl211554211839%_ + _%e211555211842%_ + _%hd211556211845%_ + _%tl211557211847%_ + _%e211558211850%_ + _%hd211559211853%_ + _%tl211560211855%_ + _%e211561211858%_ + _%hd211562211861%_ + _%tl211563211863%_ + _%e211564211866%_ + _%hd211565211869%_ + _%tl211566211871%_ + _%e211567211874%_ + _%hd211568211877%_ + _%tl211569211879%_ + _%e211570211882%_ + _%hd211571211885%_ + _%tl211572211887%_ + _%e211573211890%_ + _%hd211574211893%_ + _%tl211575211895%_ + _%e211576211898%_ + _%hd211577211901%_ + _%tl211578211903%_ + _%e211579211906%_ + _%hd211580211909%_ + _%tl211581211911%_ + _%e211582211914%_ + _%hd211583211917%_ + _%tl211584211919%_) + (let ((_%g211532211922%_ _%hd211583211917%_) + (_%g211533211923%_ _%hd211574211893%_) + (_%g211534211924%_ _%hd211565211869%_) + (_%g211535211925%_ _%hd211556211845%_) + (_%g211536211926%_ _%hd211547211821%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L208504%_ + _%g211536211926%_ 'bind-method!)) - (_%__kont209061209062%_ - _%L208500%_ - _%L208501%_ - _%L208502%_ - _%L208503%_ - _%L208504%_) - (_%__kont209065209066%_)))))) + (_%__kont212480212481%_ + _%g211532211922%_ + _%g211533211923%_ + _%g211534211924%_ + _%g211535211925%_ + _%g211536211926%_) + (_%__kont212484212485%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx209059209060%_)) - (let ((_%e208115208372%_ + (gx#stx-pair? _%__stx212478212479%_)) + (let ((_%e211537211794%_ (let () (declare (not safe)) - (gx#stx-e _%__stx209059209060%_)))) - (let ((_%tl208117208377%_ + (gx#stx-e _%__stx212478212479%_)))) + (let ((_%tl211539211799%_ (let () (declare (not safe)) - (##cdr _%e208115208372%_))) - (_%hd208116208375%_ + (##cdr _%e211537211794%_))) + (_%hd211538211797%_ (let () (declare (not safe)) - (##car _%e208115208372%_)))) + (##car _%e211537211794%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl208117208377%_)) - (let ((_%e208118208380%_ + (gx#stx-pair? _%tl211539211799%_)) + (let ((_%e211540211802%_ (let () (declare (not safe)) - (gx#stx-e _%tl208117208377%_)))) - (let ((_%tl208120208385%_ + (gx#stx-e _%tl211539211799%_)))) + (let ((_%tl211542211807%_ (let () (declare (not safe)) - (##cdr _%e208118208380%_))) - (_%hd208119208383%_ + (##cdr _%e211540211802%_))) + (_%hd211541211805%_ (let () (declare (not safe)) - (##car _%e208118208380%_)))) + (##car _%e211540211802%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd208119208383%_)) - (let ((_%e208121208388%_ + (gx#stx-pair? _%hd211541211805%_)) + (let ((_%e211543211810%_ (let () (declare (not safe)) - (gx#stx-e _%hd208119208383%_)))) - (let ((_%tl208123208393%_ + (gx#stx-e _%hd211541211805%_)))) + (let ((_%tl211545211815%_ (let () (declare (not safe)) - (##cdr _%e208121208388%_))) - (_%hd208122208391%_ + (##cdr _%e211543211810%_))) + (_%hd211544211813%_ (let () (declare (not safe)) - (##car _%e208121208388%_)))) + (##car _%e211543211810%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd208122208391%_)) + _%hd211544211813%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd208122208391%_)) + _%hd211544211813%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208123208393%_)) - (let ((_%e208124208396%_ + _%tl211545211815%_)) + (let ((_%e211546211818%_ (let () (declare (not safe)) (gx#stx-e - _%tl208123208393%_)))) - (let ((_%tl208126208401%_ + _%tl211545211815%_)))) + (let ((_%tl211548211823%_ (let () (declare (not safe)) - (##cdr _%e208124208396%_))) - (_%hd208125208399%_ + (##cdr _%e211546211818%_))) + (_%hd211547211821%_ (let () (declare (not safe)) - (##car _%e208124208396%_)))) + (##car _%e211546211818%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl208126208401%_)) + _%tl211548211823%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl208120208385%_)) - (let ((_%e208127208404%_ + (gx#stx-pair? _%tl211542211807%_)) + (let ((_%e211549211826%_ (let () (declare (not safe)) - (gx#stx-e _%tl208120208385%_)))) - (let ((_%tl208129208409%_ + (gx#stx-e _%tl211542211807%_)))) + (let ((_%tl211551211831%_ (let () (declare (not safe)) - (##cdr _%e208127208404%_))) - (_%hd208128208407%_ + (##cdr _%e211549211826%_))) + (_%hd211550211829%_ (let () (declare (not safe)) - (##car _%e208127208404%_)))) + (##car _%e211549211826%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd208128208407%_)) - (let ((_%e208130208412%_ + (gx#stx-pair? _%hd211550211829%_)) + (let ((_%e211552211834%_ (let () (declare (not safe)) - (gx#stx-e _%hd208128208407%_)))) - (let ((_%tl208132208417%_ + (gx#stx-e _%hd211550211829%_)))) + (let ((_%tl211554211839%_ (let () (declare (not safe)) - (##cdr _%e208130208412%_))) - (_%hd208131208415%_ + (##cdr _%e211552211834%_))) + (_%hd211553211837%_ (let () (declare (not safe)) - (##car _%e208130208412%_)))) + (##car _%e211552211834%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd208131208415%_)) + (gx#identifier? _%hd211553211837%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd208131208415%_)) + _%hd211553211837%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208132208417%_)) - (let ((_%e208133208420%_ + _%tl211554211839%_)) + (let ((_%e211555211842%_ (let () (declare (not safe)) (gx#stx-e - _%tl208132208417%_)))) - (let ((_%tl208135208425%_ + _%tl211554211839%_)))) + (let ((_%tl211557211847%_ (let () (declare (not safe)) - (##cdr _%e208133208420%_))) - (_%hd208134208423%_ + (##cdr _%e211555211842%_))) + (_%hd211556211845%_ (let () (declare (not safe)) - (##car _%e208133208420%_)))) + (##car _%e211555211842%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl208135208425%_)) + _%tl211557211847%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208129208409%_)) - (let ((_%e208136208428%_ + _%tl211551211831%_)) + (let ((_%e211558211850%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl208129208409%_)))) - (let ((_%tl208138208433%_ + (gx#stx-e _%tl211551211831%_)))) + (let ((_%tl211560211855%_ (let () (declare (not safe)) - (##cdr _%e208136208428%_))) - (_%hd208137208431%_ + (##cdr _%e211558211850%_))) + (_%hd211559211853%_ (let () (declare (not safe)) - (##car _%e208136208428%_)))) + (##car _%e211558211850%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd208137208431%_)) - (let ((_%e208139208436%_ + (gx#stx-pair? _%hd211559211853%_)) + (let ((_%e211561211858%_ (let () (declare (not safe)) - (gx#stx-e _%hd208137208431%_)))) - (let ((_%tl208141208441%_ + (gx#stx-e _%hd211559211853%_)))) + (let ((_%tl211563211863%_ (let () (declare (not safe)) - (##cdr _%e208139208436%_))) - (_%hd208140208439%_ + (##cdr _%e211561211858%_))) + (_%hd211562211861%_ (let () (declare (not safe)) - (##car _%e208139208436%_)))) + (##car _%e211561211858%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd208140208439%_)) + (gx#identifier? _%hd211562211861%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd208140208439%_)) + _%hd211562211861%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl208141208441%_)) - (let ((_%e208142208444%_ + (gx#stx-pair? _%tl211563211863%_)) + (let ((_%e211564211866%_ (let () (declare (not safe)) (gx#stx-e - _%tl208141208441%_)))) - (let ((_%tl208144208449%_ + _%tl211563211863%_)))) + (let ((_%tl211566211871%_ (let () (declare (not safe)) - (##cdr _%e208142208444%_))) - (_%hd208143208447%_ + (##cdr _%e211564211866%_))) + (_%hd211565211869%_ (let () (declare (not safe)) - (##car _%e208142208444%_)))) + (##car _%e211564211866%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl208144208449%_)) + _%tl211566211871%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208138208433%_)) - (let ((_%e208145208452%_ + _%tl211560211855%_)) + (let ((_%e211567211874%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl208138208433%_)))) - (let ((_%tl208147208457%_ - (let () (declare (not safe)) (##cdr _%e208145208452%_))) - (_%hd208146208455%_ + (gx#stx-e _%tl211560211855%_)))) + (let ((_%tl211569211879%_ + (let () (declare (not safe)) (##cdr _%e211567211874%_))) + (_%hd211568211877%_ (let () (declare (not safe)) - (##car _%e208145208452%_)))) + (##car _%e211567211874%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd208146208455%_)) - (let ((_%e208148208460%_ + (gx#stx-pair? _%hd211568211877%_)) + (let ((_%e211570211882%_ (let () (declare (not safe)) - (gx#stx-e _%hd208146208455%_)))) - (let ((_%tl208150208465%_ + (gx#stx-e _%hd211568211877%_)))) + (let ((_%tl211572211887%_ (let () (declare (not safe)) - (##cdr _%e208148208460%_))) - (_%hd208149208463%_ + (##cdr _%e211570211882%_))) + (_%hd211571211885%_ (let () (declare (not safe)) - (##car _%e208148208460%_)))) + (##car _%e211570211882%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd208149208463%_)) + (gx#identifier? _%hd211571211885%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd208149208463%_)) + (gx#stx-eq? '%#ref _%hd211571211885%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl208150208465%_)) - (let ((_%e208151208468%_ + (gx#stx-pair? _%tl211572211887%_)) + (let ((_%e211573211890%_ (let () (declare (not safe)) - (gx#stx-e _%tl208150208465%_)))) - (let ((_%tl208153208473%_ + (gx#stx-e _%tl211572211887%_)))) + (let ((_%tl211575211895%_ (let () (declare (not safe)) - (##cdr _%e208151208468%_))) - (_%hd208152208471%_ + (##cdr _%e211573211890%_))) + (_%hd211574211893%_ (let () (declare (not safe)) - (##car _%e208151208468%_)))) + (##car _%e211573211890%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl208153208473%_)) + _%tl211575211895%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208147208457%_)) - (let ((_%e208154208476%_ + _%tl211569211879%_)) + (let ((_%e211576211898%_ (let () (declare (not safe)) (gx#stx-e - _%tl208147208457%_)))) - (let ((_%tl208156208481%_ + _%tl211569211879%_)))) + (let ((_%tl211578211903%_ (let () (declare (not safe)) - (##cdr _%e208154208476%_))) - (_%hd208155208479%_ + (##cdr _%e211576211898%_))) + (_%hd211577211901%_ (let () (declare (not safe)) - (##car _%e208154208476%_)))) + (##car _%e211576211898%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd208155208479%_)) - (let ((_%e208157208484%_ + _%hd211577211901%_)) + (let ((_%e211579211906%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd208155208479%_)))) - (let ((_%tl208159208489%_ + (gx#stx-e _%hd211577211901%_)))) + (let ((_%tl211581211911%_ (let () (declare (not safe)) - (##cdr _%e208157208484%_))) - (_%hd208158208487%_ + (##cdr _%e211579211906%_))) + (_%hd211580211909%_ (let () (declare (not safe)) - (##car _%e208157208484%_)))) + (##car _%e211579211906%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd208158208487%_)) + (gx#identifier? _%hd211580211909%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd208158208487%_)) + (gx#stx-eq? '%#quote _%hd211580211909%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl208159208489%_)) - (let ((_%e208160208492%_ + (gx#stx-pair? _%tl211581211911%_)) + (let ((_%e211582211914%_ (let () (declare (not safe)) - (gx#stx-e _%tl208159208489%_)))) - (let ((_%tl208162208497%_ + (gx#stx-e _%tl211581211911%_)))) + (let ((_%tl211584211919%_ (let () (declare (not safe)) - (##cdr _%e208160208492%_))) - (_%hd208161208495%_ + (##cdr _%e211582211914%_))) + (_%hd211583211917%_ (let () (declare (not safe)) - (##car _%e208160208492%_)))) + (##car _%e211582211914%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl208162208497%_)) + (gx#stx-null? _%tl211584211919%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl208156208481%_)) - (_%__match209194209195%_ - _%e208115208372%_ - _%hd208116208375%_ - _%tl208117208377%_ - _%e208118208380%_ - _%hd208119208383%_ - _%tl208120208385%_ - _%e208121208388%_ - _%hd208122208391%_ - _%tl208123208393%_ - _%e208124208396%_ - _%hd208125208399%_ - _%tl208126208401%_ - _%e208127208404%_ - _%hd208128208407%_ - _%tl208129208409%_ - _%e208130208412%_ - _%hd208131208415%_ - _%tl208132208417%_ - _%e208133208420%_ - _%hd208134208423%_ - _%tl208135208425%_ - _%e208136208428%_ - _%hd208137208431%_ - _%tl208138208433%_ - _%e208139208436%_ - _%hd208140208439%_ - _%tl208141208441%_ - _%e208142208444%_ - _%hd208143208447%_ - _%tl208144208449%_ - _%e208145208452%_ - _%hd208146208455%_ - _%tl208147208457%_ - _%e208148208460%_ - _%hd208149208463%_ - _%tl208150208465%_ - _%e208151208468%_ - _%hd208152208471%_ - _%tl208153208473%_ - _%e208154208476%_ - _%hd208155208479%_ - _%tl208156208481%_ - _%e208157208484%_ - _%hd208158208487%_ - _%tl208159208489%_ - _%e208160208492%_ - _%hd208161208495%_ - _%tl208162208497%_) - (_%__kont209065209066%_)) - (_%__kont209065209066%_)))) - (_%__kont209065209066%_)) - (_%__kont209065209066%_)) - (_%__kont209065209066%_)))) - (_%__kont209065209066%_)))) + _%tl211578211903%_)) + (_%__match212613212614%_ + _%e211537211794%_ + _%hd211538211797%_ + _%tl211539211799%_ + _%e211540211802%_ + _%hd211541211805%_ + _%tl211542211807%_ + _%e211543211810%_ + _%hd211544211813%_ + _%tl211545211815%_ + _%e211546211818%_ + _%hd211547211821%_ + _%tl211548211823%_ + _%e211549211826%_ + _%hd211550211829%_ + _%tl211551211831%_ + _%e211552211834%_ + _%hd211553211837%_ + _%tl211554211839%_ + _%e211555211842%_ + _%hd211556211845%_ + _%tl211557211847%_ + _%e211558211850%_ + _%hd211559211853%_ + _%tl211560211855%_ + _%e211561211858%_ + _%hd211562211861%_ + _%tl211563211863%_ + _%e211564211866%_ + _%hd211565211869%_ + _%tl211566211871%_ + _%e211567211874%_ + _%hd211568211877%_ + _%tl211569211879%_ + _%e211570211882%_ + _%hd211571211885%_ + _%tl211572211887%_ + _%e211573211890%_ + _%hd211574211893%_ + _%tl211575211895%_ + _%e211576211898%_ + _%hd211577211901%_ + _%tl211578211903%_ + _%e211579211906%_ + _%hd211580211909%_ + _%tl211581211911%_ + _%e211582211914%_ + _%hd211583211917%_ + _%tl211584211919%_) + (_%__kont212484212485%_)) + (_%__kont212484212485%_)))) + (_%__kont212484212485%_)) + (_%__kont212484212485%_)) + (_%__kont212484212485%_)))) + (_%__kont212484212485%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl208147208457%_)) - (if (let ((__tmp209417 + _%tl211569211879%_)) + (if (let ((__tmp212836 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp209417 'bind-method!)) - (let ((_%L208326%_ _%hd208152208471%_) - (_%L208327%_ _%hd208143208447%_) - (_%L208328%_ _%hd208134208423%_) - (_%L208329%_ _%hd208125208399%_)) - (_%__kont209063209064%_ - _%L208326%_ - _%L208327%_ - _%L208328%_ - _%L208329%_)) - (_%__kont209065209066%_)) - (_%__kont209065209066%_))) + (gxc#runtime-identifier=? __tmp212836 'bind-method!)) + (let ((_%g211585211748%_ _%hd211574211893%_) + (_%g211586211749%_ _%hd211565211869%_) + (_%g211587211750%_ _%hd211556211845%_) + (_%g211588211751%_ _%hd211547211821%_)) + (_%__kont212482212483%_ + _%g211585211748%_ + _%g211586211749%_ + _%g211587211750%_ + _%g211588211751%_)) + (_%__kont212484212485%_)) + (_%__kont212484212485%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont209065209066%_)))) - (_%__kont209065209066%_)) - (_%__kont209065209066%_)) - (_%__kont209065209066%_)))) - (_%__kont209065209066%_)))) - (_%__kont209065209066%_)) + (_%__kont212484212485%_)))) + (_%__kont212484212485%_)) + (_%__kont212484212485%_)) + (_%__kont212484212485%_)))) + (_%__kont212484212485%_)))) + (_%__kont212484212485%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont209065209066%_)))) - (_%__kont209065209066%_)) - (_%__kont209065209066%_)) - (_%__kont209065209066%_)))) - (_%__kont209065209066%_)))) - (_%__kont209065209066%_)) - (_%__kont209065209066%_)))) + (_%__kont212484212485%_)))) + (_%__kont212484212485%_)) + (_%__kont212484212485%_)) + (_%__kont212484212485%_)))) + (_%__kont212484212485%_)))) + (_%__kont212484212485%_)) + (_%__kont212484212485%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont209065209066%_)) - (_%__kont209065209066%_)) - (_%__kont209065209066%_)))) - (_%__kont209065209066%_)))) - (_%__kont209065209066%_)) - (_%__kont209065209066%_)))) + (_%__kont212484212485%_)) + (_%__kont212484212485%_)) + (_%__kont212484212485%_)))) + (_%__kont212484212485%_)))) + (_%__kont212484212485%_)) + (_%__kont212484212485%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont209065209066%_)) - (_%__kont209065209066%_)) - (_%__kont209065209066%_)))) - (_%__kont209065209066%_)))) - (_%__kont209065209066%_)))) - (_%__kont209065209066%_))))))) + (_%__kont212484212485%_)) + (_%__kont212484212485%_)) + (_%__kont212484212485%_)))) + (_%__kont212484212485%_)))) + (_%__kont212484212485%_)))) + (_%__kont212484212485%_))))))) (define gxc#generate-ssxi-begin-annotation% - (lambda (_%self207927%_ _%stx207928%_) - (let* ((_%__stx209303209304%_ _%stx207928%_) - (_%g207931207971%_ + (lambda (_%self211349%_ _%stx211350%_) + (let* ((_%__stx212722212723%_ _%stx211350%_) + (_%g211353211393%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx209303209304%_))))) - (let ((_%__kont209305209306%_ - (lambda (_%L208077%_ _%L208078%_) + _%__stx212722212723%_))))) + (let ((_%__kont212724212725%_ + (lambda (_%g211355211499%_ _%g211356211500%_) (cons 'declare-inline-rule! (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L208078%_)) - (cons _%L208077%_ '()))))) - (_%__kont209307209308%_ - (lambda (_%L208000%_ _%L208001%_) '(begin)))) + (gxc#identifier-symbol _%g211356211500%_)) + (cons _%g211355211499%_ '()))))) + (_%__kont212726212727%_ + (lambda (_%g211378211422%_ _%g211379211423%_) '(begin)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx209303209304%_)) - (let ((_%e207935208021%_ + (gx#stx-pair? _%__stx212722212723%_)) + (let ((_%e211357211443%_ (let () (declare (not safe)) - (gx#stx-e _%__stx209303209304%_)))) - (let ((_%tl207937208026%_ + (gx#stx-e _%__stx212722212723%_)))) + (let ((_%tl211359211448%_ (let () (declare (not safe)) - (##cdr _%e207935208021%_))) - (_%hd207936208024%_ + (##cdr _%e211357211443%_))) + (_%hd211358211446%_ (let () (declare (not safe)) - (##car _%e207935208021%_)))) + (##car _%e211357211443%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207937208026%_)) - (let ((_%e207938208029%_ + (gx#stx-pair? _%tl211359211448%_)) + (let ((_%e211360211451%_ (let () (declare (not safe)) - (gx#stx-e _%tl207937208026%_)))) - (let ((_%tl207940208034%_ + (gx#stx-e _%tl211359211448%_)))) + (let ((_%tl211362211456%_ (let () (declare (not safe)) - (##cdr _%e207938208029%_))) - (_%hd207939208032%_ + (##cdr _%e211360211451%_))) + (_%hd211361211454%_ (let () (declare (not safe)) - (##car _%e207938208029%_)))) + (##car _%e211360211451%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207939208032%_)) - (let ((_%e207941208037%_ + (gx#stx-pair? _%hd211361211454%_)) + (let ((_%e211363211459%_ (let () (declare (not safe)) - (gx#stx-e _%hd207939208032%_)))) - (let ((_%tl207943208042%_ + (gx#stx-e _%hd211361211454%_)))) + (let ((_%tl211365211464%_ (let () (declare (not safe)) - (##cdr _%e207941208037%_))) - (_%hd207942208040%_ + (##cdr _%e211363211459%_))) + (_%hd211364211462%_ (let () (declare (not safe)) - (##car _%e207941208037%_)))) + (##car _%e211363211459%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207942208040%_)) + (gx#identifier? _%hd211364211462%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@inline - _%hd207942208040%_)) + _%hd211364211462%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207943208042%_)) - (let ((_%e207944208045%_ + _%tl211365211464%_)) + (let ((_%e211366211467%_ (let () (declare (not safe)) (gx#stx-e - _%tl207943208042%_)))) - (let ((_%tl207946208050%_ + _%tl211365211464%_)))) + (let ((_%tl211368211472%_ (let () (declare (not safe)) - (##cdr _%e207944208045%_))) - (_%hd207945208048%_ + (##cdr _%e211366211467%_))) + (_%hd211367211470%_ (let () (declare (not safe)) - (##car _%e207944208045%_)))) + (##car _%e211366211467%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207946208050%_)) + _%tl211368211472%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207940208034%_)) - (let ((_%e207947208053%_ + _%tl211362211456%_)) + (let ((_%e211369211475%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl207940208034%_)))) - (let ((_%tl207949208058%_ + (gx#stx-e _%tl211362211456%_)))) + (let ((_%tl211371211480%_ (let () (declare (not safe)) - (##cdr _%e207947208053%_))) - (_%hd207948208056%_ + (##cdr _%e211369211475%_))) + (_%hd211370211478%_ (let () (declare (not safe)) - (##car _%e207947208053%_)))) + (##car _%e211369211475%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207948208056%_)) - (let ((_%e207950208061%_ + (gx#stx-pair? _%hd211370211478%_)) + (let ((_%e211372211483%_ (let () (declare (not safe)) - (gx#stx-e _%hd207948208056%_)))) - (let ((_%tl207952208066%_ + (gx#stx-e _%hd211370211478%_)))) + (let ((_%tl211374211488%_ (let () (declare (not safe)) - (##cdr _%e207950208061%_))) - (_%hd207951208064%_ + (##cdr _%e211372211483%_))) + (_%hd211373211486%_ (let () (declare (not safe)) - (##car _%e207950208061%_)))) + (##car _%e211372211483%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207951208064%_)) + (gx#identifier? _%hd211373211486%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd207951208064%_)) + _%hd211373211486%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207952208066%_)) - (let ((_%e207953208069%_ + _%tl211374211488%_)) + (let ((_%e211375211491%_ (let () (declare (not safe)) (gx#stx-e - _%tl207952208066%_)))) - (let ((_%tl207955208074%_ + _%tl211374211488%_)))) + (let ((_%tl211377211496%_ (let () (declare (not safe)) - (##cdr _%e207953208069%_))) - (_%hd207954208072%_ + (##cdr _%e211375211491%_))) + (_%hd211376211494%_ (let () (declare (not safe)) - (##car _%e207953208069%_)))) + (##car _%e211375211491%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207955208074%_)) + _%tl211377211496%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207949208058%_)) - (_%__kont209305209306%_ - _%hd207954208072%_ - _%hd207945208048%_) + _%tl211371211480%_)) + (_%__kont212724212725%_ + _%hd211376211494%_ + _%hd211367211470%_) (let () (declare (not safe)) - (_%g207931207971%_))) + (_%g211353211393%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207949208058%_)) - (_%__kont209307209308%_ - _%hd207948208056%_ - _%hd207939208032%_) + _%tl211371211480%_)) + (_%__kont212726212727%_ + _%hd211370211478%_ + _%hd211361211454%_) (let () (declare (not safe)) - (_%g207931207971%_)))))) + (_%g211353211393%_)))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207949208058%_)) - (_%__kont209307209308%_ - _%hd207948208056%_ - _%hd207939208032%_) + _%tl211371211480%_)) + (_%__kont212726212727%_ + _%hd211370211478%_ + _%hd211361211454%_) (let () (declare (not safe)) - (_%g207931207971%_)))) + (_%g211353211393%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207949208058%_)) - (_%__kont209307209308%_ - _%hd207948208056%_ - _%hd207939208032%_) + _%tl211371211480%_)) + (_%__kont212726212727%_ + _%hd211370211478%_ + _%hd211361211454%_) (let () (declare (not safe)) - (_%g207931207971%_)))) + (_%g211353211393%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207949208058%_)) - (_%__kont209307209308%_ - _%hd207948208056%_ - _%hd207939208032%_) + (gx#stx-null? _%tl211371211480%_)) + (_%__kont212726212727%_ + _%hd211370211478%_ + _%hd211361211454%_) (let () (declare (not safe)) - (_%g207931207971%_)))))) + (_%g211353211393%_)))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207949208058%_)) - (_%__kont209307209308%_ - _%hd207948208056%_ - _%hd207939208032%_) + (gx#stx-null? _%tl211371211480%_)) + (_%__kont212726212727%_ + _%hd211370211478%_ + _%hd211361211454%_) (let () (declare (not safe)) - (_%g207931207971%_)))))) - (let () (declare (not safe)) (_%g207931207971%_))) + (_%g211353211393%_)))))) + (let () (declare (not safe)) (_%g211353211393%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207940208034%_)) - (let ((_%e207964207992%_ + (gx#stx-pair? _%tl211362211456%_)) + (let ((_%e211386211414%_ (let () (declare (not safe)) - (gx#stx-e _%tl207940208034%_)))) - (let ((_%tl207966207997%_ + (gx#stx-e _%tl211362211456%_)))) + (let ((_%tl211388211419%_ (let () (declare (not safe)) - (##cdr _%e207964207992%_))) - (_%hd207965207995%_ + (##cdr _%e211386211414%_))) + (_%hd211387211417%_ (let () (declare (not safe)) - (##car _%e207964207992%_)))) + (##car _%e211386211414%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207966207997%_)) - (_%__kont209307209308%_ - _%hd207965207995%_ - _%hd207939208032%_) + (gx#stx-null? _%tl211388211419%_)) + (_%__kont212726212727%_ + _%hd211387211417%_ + _%hd211361211454%_) (let () (declare (not safe)) - (_%g207931207971%_))))) - (let () (declare (not safe)) (_%g207931207971%_)))))) + (_%g211353211393%_))))) + (let () (declare (not safe)) (_%g211353211393%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207940208034%_)) - (let ((_%e207964207992%_ + _%tl211362211456%_)) + (let ((_%e211386211414%_ (let () (declare (not safe)) (gx#stx-e - _%tl207940208034%_)))) - (let ((_%tl207966207997%_ + _%tl211362211456%_)))) + (let ((_%tl211388211419%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e207964207992%_))) - (_%hd207965207995%_ - (let () (declare (not safe)) (##car _%e207964207992%_)))) + (##cdr _%e211386211414%_))) + (_%hd211387211417%_ + (let () (declare (not safe)) (##car _%e211386211414%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207966207997%_)) - (_%__kont209307209308%_ - _%hd207965207995%_ - _%hd207939208032%_) - (let () (declare (not safe)) (_%g207931207971%_))))) + (gx#stx-null? _%tl211388211419%_)) + (_%__kont212726212727%_ + _%hd211387211417%_ + _%hd211361211454%_) + (let () (declare (not safe)) (_%g211353211393%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g207931207971%_)))) + (_%g211353211393%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207940208034%_)) - (let ((_%e207964207992%_ + _%tl211362211456%_)) + (let ((_%e211386211414%_ (let () (declare (not safe)) (gx#stx-e - _%tl207940208034%_)))) - (let ((_%tl207966207997%_ + _%tl211362211456%_)))) + (let ((_%tl211388211419%_ (let () (declare (not safe)) - (##cdr _%e207964207992%_))) - (_%hd207965207995%_ + (##cdr _%e211386211414%_))) + (_%hd211387211417%_ (let () (declare (not safe)) - (##car _%e207964207992%_)))) + (##car _%e211386211414%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207966207997%_)) - (_%__kont209307209308%_ - _%hd207965207995%_ - _%hd207939208032%_) + _%tl211388211419%_)) + (_%__kont212726212727%_ + _%hd211387211417%_ + _%hd211361211454%_) (let () (declare (not safe)) - (_%g207931207971%_))))) + (_%g211353211393%_))))) (let () (declare (not safe)) - (_%g207931207971%_)))) + (_%g211353211393%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207940208034%_)) - (let ((_%e207964207992%_ + _%tl211362211456%_)) + (let ((_%e211386211414%_ (let () (declare (not safe)) (gx#stx-e - _%tl207940208034%_)))) - (let ((_%tl207966207997%_ + _%tl211362211456%_)))) + (let ((_%tl211388211419%_ (let () (declare (not safe)) - (##cdr _%e207964207992%_))) - (_%hd207965207995%_ + (##cdr _%e211386211414%_))) + (_%hd211387211417%_ (let () (declare (not safe)) - (##car _%e207964207992%_)))) + (##car _%e211386211414%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207966207997%_)) - (_%__kont209307209308%_ - _%hd207965207995%_ - _%hd207939208032%_) + _%tl211388211419%_)) + (_%__kont212726212727%_ + _%hd211387211417%_ + _%hd211361211454%_) (let () (declare (not safe)) - (_%g207931207971%_))))) + (_%g211353211393%_))))) (let () (declare (not safe)) - (_%g207931207971%_)))))) + (_%g211353211393%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207940208034%_)) - (let ((_%e207964207992%_ + (gx#stx-pair? _%tl211362211456%_)) + (let ((_%e211386211414%_ (let () (declare (not safe)) - (gx#stx-e _%tl207940208034%_)))) - (let ((_%tl207966207997%_ + (gx#stx-e _%tl211362211456%_)))) + (let ((_%tl211388211419%_ (let () (declare (not safe)) - (##cdr _%e207964207992%_))) - (_%hd207965207995%_ + (##cdr _%e211386211414%_))) + (_%hd211387211417%_ (let () (declare (not safe)) - (##car _%e207964207992%_)))) + (##car _%e211386211414%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207966207997%_)) - (_%__kont209307209308%_ - _%hd207965207995%_ - _%hd207939208032%_) + _%tl211388211419%_)) + (_%__kont212726212727%_ + _%hd211387211417%_ + _%hd211361211454%_) (let () (declare (not safe)) - (_%g207931207971%_))))) + (_%g211353211393%_))))) (let () (declare (not safe)) - (_%g207931207971%_)))))) - (let () (declare (not safe)) (_%g207931207971%_))))) - (let () (declare (not safe)) (_%g207931207971%_))))))) + (_%g211353211393%_)))))) + (let () (declare (not safe)) (_%g211353211393%_))))) + (let () (declare (not safe)) (_%g211353211393%_))))))) (define gxc#!alias::typedecl - (lambda (_%self207914%_) - (let ((_%self207917%_ _%self207914%_)) + (lambda (_%self211336%_) + (let ((_%self211339%_ _%self211336%_)) (cons '@alias (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self207917%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self211339%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) (__bind-method!__% gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f)) (define gxc#!class::typedecl - (lambda (_%self207687%_) - (let* ((_%self207690%_ _%self207687%_) - (_%self207699207715%_ _%self207690%_) - (_%E207701207719%_ + (lambda (_%self211110%_) + (let* ((_%self211113%_ _%self211110%_) + (_%self211122211138%_ _%self211113%_) + (_%E211124211141%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self207699207715%_ + _%self211122211138%_ '((!class id super precendence-list @@ -2060,123 +2069,123 @@ metaclass methods)))) '#!void)) - (_%K207702207734%_ - (lambda (_%methods207722%_ - _%metaclass207723%_ - _%system?207724%_ - _%final?207725%_ - _%struct?207726%_ - _%constructor207727%_ - _%fields207728%_ - _%slots207729%_ - _%precendence-list207730%_ - _%super207731%_ - _%id207732%_) + (_%K211125211156%_ + (lambda (_%methods211144%_ + _%metaclass211145%_ + _%system?211146%_ + _%final?211147%_ + _%struct?211148%_ + _%constructor211149%_ + _%fields211150%_ + _%slots211151%_ + _%precendence-list211152%_ + _%super211153%_ + _%id211154%_) (cons '@class - (cons _%id207732%_ - (cons _%super207731%_ - (cons _%precendence-list207730%_ - (cons _%slots207729%_ - (cons _%fields207728%_ - (cons _%constructor207727%_ - (cons _%struct?207726%_ + (cons _%id211154%_ + (cons _%super211153%_ + (cons _%precendence-list211152%_ + (cons _%slots211151%_ + (cons _%fields211150%_ + (cons _%constructor211149%_ + (cons _%struct?211148%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%final?207725%_ - (cons _%system?207724%_ - (cons _%metaclass207723%_ - (cons (if _%methods207722%_ + (cons _%final?211147%_ + (cons _%system?211146%_ + (cons _%metaclass211145%_ + (cons (if _%methods211144%_ (let () (declare (not safe)) (hash->list - _%methods207722%_)) + _%methods211144%_)) '#f) '())))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%e207703207737%_ + (_%e211126211159%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self207699207715%_ '1 '#f '#f))) - (_%id207740%_ _%e207703207737%_) - (_%e207704207742%_ + (##unchecked-structure-ref _%self211122211138%_ '1 '#f '#f))) + (_%id211162%_ _%e211126211159%_) + (_%e211127211164%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self207699207715%_ '2 '#f '#f))) - (_%super207745%_ _%e207704207742%_) - (_%e207705207747%_ + (##unchecked-structure-ref _%self211122211138%_ '2 '#f '#f))) + (_%super211167%_ _%e211127211164%_) + (_%e211128211169%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self207699207715%_ '3 '#f '#f))) - (_%precendence-list207750%_ _%e207705207747%_) - (_%e207706207752%_ + (##unchecked-structure-ref _%self211122211138%_ '3 '#f '#f))) + (_%precendence-list211172%_ _%e211128211169%_) + (_%e211129211174%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self207699207715%_ '4 '#f '#f))) - (_%slots207755%_ _%e207706207752%_) - (_%e207707207757%_ + (##unchecked-structure-ref _%self211122211138%_ '4 '#f '#f))) + (_%slots211177%_ _%e211129211174%_) + (_%e211130211179%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self207699207715%_ '5 '#f '#f))) - (_%fields207760%_ _%e207707207757%_) - (_%e207708207762%_ + (##unchecked-structure-ref _%self211122211138%_ '5 '#f '#f))) + (_%fields211182%_ _%e211130211179%_) + (_%e211131211184%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self207699207715%_ '6 '#f '#f))) - (_%constructor207765%_ _%e207708207762%_) - (_%e207709207767%_ + (##unchecked-structure-ref _%self211122211138%_ '6 '#f '#f))) + (_%constructor211187%_ _%e211131211184%_) + (_%e211132211189%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self207699207715%_ '7 '#f '#f))) - (_%struct?207770%_ _%e207709207767%_) - (_%e207710207772%_ + (##unchecked-structure-ref _%self211122211138%_ '7 '#f '#f))) + (_%struct?211192%_ _%e211132211189%_) + (_%e211133211194%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self207699207715%_ '8 '#f '#f))) - (_%final?207775%_ _%e207710207772%_) - (_%e207711207777%_ + (##unchecked-structure-ref _%self211122211138%_ '8 '#f '#f))) + (_%final?211197%_ _%e211133211194%_) + (_%e211134211199%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self207699207715%_ '9 '#f '#f))) - (_%system?207780%_ _%e207711207777%_) - (_%e207712207782%_ + (##unchecked-structure-ref _%self211122211138%_ '9 '#f '#f))) + (_%system?211202%_ _%e211134211199%_) + (_%e211135211204%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self207699207715%_ + _%self211122211138%_ '10 '#f '#f))) - (_%metaclass207785%_ _%e207712207782%_) - (_%e207713207787%_ + (_%metaclass211207%_ _%e211135211204%_) + (_%e211136211209%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self207699207715%_ + _%self211122211138%_ '11 '#f '#f))) - (_%methods207790%_ _%e207713207787%_)) - (_%K207702207734%_ - _%methods207790%_ - _%metaclass207785%_ - _%system?207780%_ - _%final?207775%_ - _%struct?207770%_ - _%constructor207765%_ - _%fields207760%_ - _%slots207755%_ - _%precendence-list207750%_ - _%super207745%_ - _%id207740%_)))) + (_%methods211212%_ _%e211136211209%_)) + (_%K211125211156%_ + _%methods211212%_ + _%metaclass211207%_ + _%system?211202%_ + _%final?211197%_ + _%struct?211192%_ + _%constructor211187%_ + _%fields211182%_ + _%slots211177%_ + _%precendence-list211172%_ + _%super211167%_ + _%id211162%_)))) (let () (declare (not safe)) (__bind-method!__% gxc#!class::t 'typedecl gxc#!class::typedecl '#f)) (define gxc#!predicate::typedecl - (lambda (_%self207552%_) - (let ((_%self207555%_ _%self207552%_)) + (lambda (_%self210975%_) + (let ((_%self210978%_ _%self210975%_)) (cons '@predicate (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self207555%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self210978%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) @@ -2186,12 +2195,12 @@ gxc#!predicate::typedecl '#f)) (define gxc#!constructor::typedecl - (lambda (_%self207417%_) - (let ((_%self207420%_ _%self207417%_)) + (lambda (_%self210840%_) + (let ((_%self210843%_ _%self210840%_)) (cons '@constructor (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self207420%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self210843%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) @@ -2201,23 +2210,23 @@ gxc#!constructor::typedecl '#f)) (define gxc#!accessor::typedecl - (lambda (_%self207282%_) - (let ((_%self207285%_ _%self207282%_)) + (lambda (_%self210705%_) + (let ((_%self210708%_ _%self210705%_)) (cons '@accessor (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self207285%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self210708%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self207285%_ + _%self210708%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self207285%_ + _%self210708%_ '4 '#f '#f)) @@ -2230,23 +2239,23 @@ gxc#!accessor::typedecl '#f)) (define gxc#!mutator::typedecl - (lambda (_%self207147%_) - (let ((_%self207150%_ _%self207147%_)) + (lambda (_%self210570%_) + (let ((_%self210573%_ _%self210570%_)) (cons '@mutator (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self207150%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self210573%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self207150%_ + _%self210573%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self207150%_ + _%self210573%_ '4 '#f '#f)) @@ -2255,16 +2264,16 @@ (declare (not safe)) (__bind-method!__% gxc#!mutator::t 'typedecl gxc#!mutator::typedecl '#f)) (define gxc#!interface::typedecl - (lambda (_%self207012%_) - (let ((_%self207015%_ _%self207012%_)) + (lambda (_%self210435%_) + (let ((_%self210438%_ _%self210435%_)) (cons '@interface (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self207015%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self210438%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self207015%_ + _%self210438%_ '2 '#f '#f)) @@ -2277,33 +2286,33 @@ gxc#!interface::typedecl '#f)) (define gxc#!lambda::typedecl - (lambda (_%self206825%_) - (let* ((_%self206828%_ _%self206825%_) - (_%self206837206846%_ _%self206828%_) - (_%E206839206850%_ + (lambda (_%self210249%_) + (let* ((_%self210252%_ _%self210249%_) + (_%self210261210270%_ _%self210252%_) + (_%E210263210273%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self206837206846%_ + _%self210261210270%_ '((!lambda _ signature arity dispatch)))) '#!void)) - (_%K206840206869%_ - (lambda (_%dispatch206853%_ - _%arity206854%_ - _%signature206855%_) - (if _%signature206855%_ - (let ((_%signature206857%_ _%signature206855%_)) + (_%K210264210292%_ + (lambda (_%dispatch210276%_ + _%arity210277%_ + _%signature210278%_) + (if _%signature210278%_ + (let ((_%signature210280%_ _%signature210278%_)) (cons '@lambda - (cons _%arity206854%_ - (cons _%dispatch206853%_ + (cons _%arity210277%_ + (cons _%dispatch210276%_ (cons 'signature: (cons (cons 'return: (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%signature206857%_ + _%signature210280%_ '1 '#f '#f)) @@ -2311,7 +2320,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature206857%_ + _%signature210280%_ '2 '#f '#f)) @@ -2319,7 +2328,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature206857%_ + _%signature210280%_ '3 '#f '#f)) @@ -2329,7 +2338,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%signature206857%_ + _%signature210280%_ '4 '#f '#f)) @@ -2337,7 +2346,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature206857%_ + _%signature210280%_ '5 '#f '#f)) @@ -2346,62 +2355,62 @@ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '@lambda - (cons _%arity206854%_ - (cons _%dispatch206853%_ '())))))) - (_%e206841206872%_ + (cons _%arity210277%_ + (cons _%dispatch210276%_ '())))))) + (_%e210265210295%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self206837206846%_ '1 '#f '#f))) - (_%e206842206875%_ + (##unchecked-structure-ref _%self210261210270%_ '1 '#f '#f))) + (_%e210266210298%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self206837206846%_ '2 '#f '#f))) - (_%signature206878%_ _%e206842206875%_) - (_%e206843206880%_ + (##unchecked-structure-ref _%self210261210270%_ '2 '#f '#f))) + (_%signature210301%_ _%e210266210298%_) + (_%e210267210303%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self206837206846%_ '3 '#f '#f))) - (_%arity206883%_ _%e206843206880%_) - (_%e206844206885%_ + (##unchecked-structure-ref _%self210261210270%_ '3 '#f '#f))) + (_%arity210306%_ _%e210267210303%_) + (_%e210268210308%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self206837206846%_ '4 '#f '#f))) - (_%dispatch206888%_ _%e206844206885%_)) - (_%K206840206869%_ - _%dispatch206888%_ - _%arity206883%_ - _%signature206878%_)))) + (##unchecked-structure-ref _%self210261210270%_ '4 '#f '#f))) + (_%dispatch210311%_ _%e210268210308%_)) + (_%K210264210292%_ + _%dispatch210311%_ + _%arity210306%_ + _%signature210301%_)))) (let () (declare (not safe)) (__bind-method!__% gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f)) (define gxc#!case-lambda::typedecl - (lambda (_%self206685%_) - (let ((_%self206688%_ _%self206685%_)) - (letrec ((_%clause-e206699%_ - (lambda (_%clause206701%_) - (cdr (let ((__method209391 + (lambda (_%self210109%_) + (let ((_%self210112%_ _%self210109%_)) + (letrec ((_%clause-e210123%_ + (lambda (_%clause210125%_) + (cdr (let ((__method212810 (let () (declare (not safe)) (__method-ref - _%clause206701%_ + _%clause210125%_ 'typedecl)))) - (if __method209391 + (if __method212810 (let () (declare (not safe)) - (__method209391 _%clause206701%_)) + (__method212810 _%clause210125%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause206701%_ + _%clause210125%_ 'typedecl)) '#!void))))))) (cons '@case-lambda - (map _%clause-e206699%_ + (map _%clause-e210123%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self206688%_ + _%self210112%_ '3 '#f '#f)))))))) @@ -2413,16 +2422,16 @@ gxc#!case-lambda::typedecl '#f)) (define gxc#!kw-lambda::typedecl - (lambda (_%self206550%_) - (let ((_%self206553%_ _%self206550%_)) + (lambda (_%self209974%_) + (let ((_%self209977%_ _%self209974%_)) (cons '@kw-lambda (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self206553%_ '3 '#f '#f)) + (##unchecked-structure-ref _%self209977%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self206553%_ + _%self209977%_ '4 '#f '#f)) @@ -2435,16 +2444,16 @@ gxc#!kw-lambda::typedecl '#f)) (define gxc#!kw-lambda-primary::typedecl - (lambda (_%self206415%_) - (let ((_%self206418%_ _%self206415%_)) + (lambda (_%self209839%_) + (let ((_%self209842%_ _%self209839%_)) (cons '@kw-lambda-dispatch (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self206418%_ '3 '#f '#f)) + (##unchecked-structure-ref _%self209842%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self206418%_ + _%self209842%_ '4 '#f '#f)) @@ -2457,12 +2466,12 @@ gxc#!kw-lambda-primary::typedecl '#f)) (define gxc#!primitive-predicate::typedecl - (lambda (_%self206280%_) - (let ((_%self206283%_ _%self206280%_)) + (lambda (_%self209704%_) + (let ((_%self209707%_ _%self209704%_)) (cons '@primitive-predicate (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self206283%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self209707%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) diff --git a/src/bootstrap/gerbil/compiler/optimize~1.scm b/src/bootstrap/gerbil/compiler/optimize~1.scm index fa7dc0260a..a45d66bae7 100644 --- a/src/bootstrap/gerbil/compiler/optimize~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize~1.scm @@ -1,27 +1,27 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g209419_| + (define |gxc[1]#_g212838_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209421_| + (define |gxc[1]#_g212840_| (##structure gx#syntax-quote::t '::generate-ssxi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209423_| + (define |gxc[1]#_g212842_| (##structure gx#syntax-quote::t 'make-::generate-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209425_| + (define |gxc[1]#_g212844_| (##structure gx#syntax-quote::t '::generate-ssxi? @@ -29,7 +29,7 @@ (gx#current-expander-context) '())) (define |gxc[:0:]#::generate-ssxi| - (let ((__obj209387 + (let ((__obj212806 (let () (declare (not safe)) (##structure @@ -58,63 +58,63 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj209387 + __obj212806 'gxc#::generate-ssxi::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj209387 '::generate-ssxi '2 '#f '#f)) + (##unchecked-structure-set! __obj212806 '::generate-ssxi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj209387 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj212806 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj209387 '() '6 '#f '#f)) - (let ((__tmp209418 (cons |gxc[1]#_g209419_| '()))) + (##unchecked-structure-set! __obj212806 '() '7 '#f '#f)) + (let ((__tmp212837 (cons |gxc[1]#_g212838_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj209387 __tmp209418 '3 '#f '#f)) + (##unchecked-structure-set! __obj212806 __tmp212837 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj209387 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj212806 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj209387 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj212806 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj209387 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj212806 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj209387 '#f '11 '#f '#f)) - (let ((__tmp209420 |gxc[1]#_g209421_|)) + (##unchecked-structure-set! __obj212806 '#f '12 '#f '#f)) + (let ((__tmp212839 |gxc[1]#_g212840_|)) (declare (not safe)) - (##unchecked-structure-set! __obj209387 __tmp209420 '12 '#f '#f)) - (let ((__tmp209422 |gxc[1]#_g209423_|)) + (##unchecked-structure-set! __obj212806 __tmp212839 '3 '#f '#f)) + (let ((__tmp212841 |gxc[1]#_g212842_|)) (declare (not safe)) - (##unchecked-structure-set! __obj209387 __tmp209422 '13 '#f '#f)) - (let ((__tmp209424 |gxc[1]#_g209425_|)) + (##unchecked-structure-set! __obj212806 __tmp212841 '13 '#f '#f)) + (let ((__tmp212843 |gxc[1]#_g212844_|)) (declare (not safe)) - (##unchecked-structure-set! __obj209387 __tmp209424 '14 '#f '#f)) + (##unchecked-structure-set! __obj212806 __tmp212843 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj209387 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj212806 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj209387 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj212806 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj209387 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj212806 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj209387 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj212806 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj209387 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj212806 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj209387 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj212806 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj209387 '() '20 '#f '#f)) - __obj209387))) + (##unchecked-structure-set! __obj212806 '() '20 '#f '#f)) + __obj212806))) diff --git a/src/bootstrap/gerbil/compiler/ssxi~1.scm b/src/bootstrap/gerbil/compiler/ssxi~1.scm index 198bed54d1..8f572101ff 100644 --- a/src/bootstrap/gerbil/compiler/ssxi~1.scm +++ b/src/bootstrap/gerbil/compiler/ssxi~1.scm @@ -1,76 +1,76 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g217998_| + (define |gxc[1]#_g221373_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218005_| + (define |gxc[1]#_g221380_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218007_| + (define |gxc[1]#_g221382_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218009_| + (define |gxc[1]#_g221384_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218011_| + (define |gxc[1]#_g221386_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218013_| + (define |gxc[1]#_g221388_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218025_| + (define |gxc[1]#_g221400_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218027_| + (define |gxc[1]#_g221402_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218029_| + (define |gxc[1]#_g221404_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218031_| + (define |gxc[1]#_g221406_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g218033_| + (define |gxc[1]#_g221408_| (##structure gx#syntax-quote::t 'quote @@ -79,73 +79,73 @@ '())) (begin (define |gxc[:0:]#declare-type| - (lambda (_%$stx211416%_) - (let* ((_%g211420211438%_ - (lambda (_%g211421211434%_) + (lambda (_%$stx214831%_) + (let* ((_%g214835214853%_ + (lambda (_%g214836214849%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g211421211434%_)))) - (_%g211419211493%_ - (lambda (_%g211421211442%_) + _%g214836214849%_)))) + (_%g214834214908%_ + (lambda (_%g214836214857%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g211421211442%_)) - (let ((_%e211424211445%_ + (gx#stx-pair? _%g214836214857%_)) + (let ((_%e214839214860%_ (let () (declare (not safe)) - (gx#syntax-e _%g211421211442%_)))) - (let ((_%hd211425211449%_ + (gx#syntax-e _%g214836214857%_)))) + (let ((_%hd214840214864%_ (let () (declare (not safe)) - (##car _%e211424211445%_))) - (_%tl211426211452%_ + (##car _%e214839214860%_))) + (_%tl214841214867%_ (let () (declare (not safe)) - (##cdr _%e211424211445%_)))) + (##cdr _%e214839214860%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl211426211452%_)) - (let ((_%e211427211455%_ + (gx#stx-pair? _%tl214841214867%_)) + (let ((_%e214842214870%_ (let () (declare (not safe)) - (gx#syntax-e _%tl211426211452%_)))) - (let ((_%hd211428211459%_ + (gx#syntax-e _%tl214841214867%_)))) + (let ((_%hd214843214874%_ (let () (declare (not safe)) - (##car _%e211427211455%_))) - (_%tl211429211462%_ + (##car _%e214842214870%_))) + (_%tl214844214877%_ (let () (declare (not safe)) - (##cdr _%e211427211455%_)))) + (##cdr _%e214842214870%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl211429211462%_)) - (let ((_%e211430211465%_ + (gx#stx-pair? _%tl214844214877%_)) + (let ((_%e214845214880%_ (let () (declare (not safe)) (gx#syntax-e - _%tl211429211462%_)))) - (let ((_%hd211431211469%_ + _%tl214844214877%_)))) + (let ((_%hd214846214884%_ (let () (declare (not safe)) - (##car _%e211430211465%_))) - (_%tl211432211472%_ + (##car _%e214845214880%_))) + (_%tl214847214887%_ (let () (declare (not safe)) - (##cdr _%e211430211465%_)))) + (##cdr _%e214845214880%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl211432211472%_)) - ((lambda (_%L211475%_ - _%L211477%_) + _%tl214847214887%_)) + ((lambda (_%g214837214890%_ + _%g214838214892%_) (if (let () (declare (not safe)) (gx#identifier? - _%L211477%_)) + _%g214838214892%_)) (cons (let () (declare (not safe)) @@ -156,87 +156,87 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L211477%_ '())) - (cons _%L211475%_ '()))) + (cons _%g214838214892%_ '())) + (cons _%g214837214890%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g211420211438%_ - _%g211421211442%_))) - _%hd211431211469%_ - _%hd211428211459%_) - (_%g211420211438%_ - _%g211421211442%_)))) - (_%g211420211438%_ _%g211421211442%_)))) - (_%g211420211438%_ _%g211421211442%_)))) - (_%g211420211438%_ _%g211421211442%_))))) - (_%g211419211493%_ _%$stx211416%_)))) + (_%g214835214853%_ + _%g214836214857%_))) + _%hd214846214884%_ + _%hd214843214874%_) + (_%g214835214853%_ + _%g214836214857%_)))) + (_%g214835214853%_ _%g214836214857%_)))) + (_%g214835214853%_ _%g214836214857%_)))) + (_%g214835214853%_ _%g214836214857%_))))) + (_%g214834214908%_ _%$stx214831%_)))) (define |gxc[:0:]#declare-class| - (lambda (_%$stx211497%_) - (let* ((_%g211501211519%_ - (lambda (_%g211502211515%_) + (lambda (_%$stx214912%_) + (let* ((_%g214916214934%_ + (lambda (_%g214917214930%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g211502211515%_)))) - (_%g211500211574%_ - (lambda (_%g211502211523%_) + _%g214917214930%_)))) + (_%g214915214989%_ + (lambda (_%g214917214938%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g211502211523%_)) - (let ((_%e211505211526%_ + (gx#stx-pair? _%g214917214938%_)) + (let ((_%e214920214941%_ (let () (declare (not safe)) - (gx#syntax-e _%g211502211523%_)))) - (let ((_%hd211506211530%_ + (gx#syntax-e _%g214917214938%_)))) + (let ((_%hd214921214945%_ (let () (declare (not safe)) - (##car _%e211505211526%_))) - (_%tl211507211533%_ + (##car _%e214920214941%_))) + (_%tl214922214948%_ (let () (declare (not safe)) - (##cdr _%e211505211526%_)))) + (##cdr _%e214920214941%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl211507211533%_)) - (let ((_%e211508211536%_ + (gx#stx-pair? _%tl214922214948%_)) + (let ((_%e214923214951%_ (let () (declare (not safe)) - (gx#syntax-e _%tl211507211533%_)))) - (let ((_%hd211509211540%_ + (gx#syntax-e _%tl214922214948%_)))) + (let ((_%hd214924214955%_ (let () (declare (not safe)) - (##car _%e211508211536%_))) - (_%tl211510211543%_ + (##car _%e214923214951%_))) + (_%tl214925214958%_ (let () (declare (not safe)) - (##cdr _%e211508211536%_)))) + (##cdr _%e214923214951%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl211510211543%_)) - (let ((_%e211511211546%_ + (gx#stx-pair? _%tl214925214958%_)) + (let ((_%e214926214961%_ (let () (declare (not safe)) (gx#syntax-e - _%tl211510211543%_)))) - (let ((_%hd211512211550%_ + _%tl214925214958%_)))) + (let ((_%hd214927214965%_ (let () (declare (not safe)) - (##car _%e211511211546%_))) - (_%tl211513211553%_ + (##car _%e214926214961%_))) + (_%tl214928214968%_ (let () (declare (not safe)) - (##cdr _%e211511211546%_)))) + (##cdr _%e214926214961%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl211513211553%_)) - ((lambda (_%L211556%_ - _%L211558%_) + _%tl214928214968%_)) + ((lambda (_%g214918214971%_ + _%g214919214973%_) (if (let () (declare (not safe)) (gx#identifier? - _%L211558%_)) + _%g214919214973%_)) (cons (let () (declare (not safe)) @@ -247,146 +247,146 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L211558%_ '())) - (cons _%L211556%_ '()))) + (cons _%g214919214973%_ '())) + (cons _%g214918214971%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g211501211519%_ - _%g211502211523%_))) - _%hd211512211550%_ - _%hd211509211540%_) - (_%g211501211519%_ - _%g211502211523%_)))) - (_%g211501211519%_ _%g211502211523%_)))) - (_%g211501211519%_ _%g211502211523%_)))) - (_%g211501211519%_ _%g211502211523%_))))) - (_%g211500211574%_ _%$stx211497%_)))) + (_%g214916214934%_ + _%g214917214938%_))) + _%hd214927214965%_ + _%hd214924214955%_) + (_%g214916214934%_ + _%g214917214938%_)))) + (_%g214916214934%_ _%g214917214938%_)))) + (_%g214916214934%_ _%g214917214938%_)))) + (_%g214916214934%_ _%g214917214938%_))))) + (_%g214915214989%_ _%$stx214912%_)))) (define |gxc[:0:]#declare-type*| - (lambda (_%$stx211578%_) - (let* ((_%g211582211611%_ - (lambda (_%g211583211607%_) + (lambda (_%$stx214993%_) + (let* ((_%g214997215026%_ + (lambda (_%g214998215022%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g211583211607%_)))) - (_%g211581211711%_ - (lambda (_%g211583211615%_) + _%g214998215022%_)))) + (_%g214996215122%_ + (lambda (_%g214998215030%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g211583211615%_)) - (let ((_%e211586211618%_ + (gx#stx-pair? _%g214998215030%_)) + (let ((_%e215001215033%_ (let () (declare (not safe)) - (gx#syntax-e _%g211583211615%_)))) - (let ((_%hd211587211622%_ + (gx#syntax-e _%g214998215030%_)))) + (let ((_%hd215002215037%_ (let () (declare (not safe)) - (##car _%e211586211618%_))) - (_%tl211588211625%_ + (##car _%e215001215033%_))) + (_%tl215003215040%_ (let () (declare (not safe)) - (##cdr _%e211586211618%_)))) + (##cdr _%e215001215033%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl211588211625%_)) - (let ((_g217976_ + (gx#stx-pair/null? _%tl215003215040%_)) + (let ((_g221351_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl211588211625%_ + _%tl215003215040%_ '0)))) (begin - (let ((_g217977_ + (let ((_g221352_ (let () (declare (not safe)) - (if (##values? _g217976_) - (##values-length _g217976_) + (if (##values? _g221351_) + (##values-length _g221351_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g217977_ 2))) + (##fx= _g221352_ 2))) (error "Context expects 2 values" - _g217977_))) - (let ((_%target211589211628%_ + _g221352_))) + (let ((_%target215004215043%_ (let () (declare (not safe)) - (##values-ref _g217976_ 0))) - (_%tl211591211631%_ + (##values-ref _g221351_ 0))) + (_%tl215006215046%_ (let () (declare (not safe)) - (##values-ref _g217976_ 1)))) + (##values-ref _g221351_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl211591211631%_)) - (letrec ((_%loop211592211634%_ - (lambda (_%hd211590211638%_ - _%type211596211641%_ - _%symbol211597211643%_) + (gx#stx-null? _%tl215006215046%_)) + (letrec ((_%loop215007215049%_ + (lambda (_%hd215005215053%_ + _%type215011215056%_ + _%symbol215012215057%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd211590211638%_)) - (let ((_%e211593211646%_ + _%hd215005215053%_)) + (let ((_%e215008215059%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd211590211638%_)))) - (let ((_%lp-hd211594211650%_ + (gx#syntax-e _%hd215005215053%_)))) + (let ((_%lp-hd215009215063%_ (let () (declare (not safe)) - (##car _%e211593211646%_))) - (_%lp-tl211595211653%_ + (##car _%e215008215059%_))) + (_%lp-tl215010215066%_ (let () (declare (not safe)) - (##cdr _%e211593211646%_)))) + (##cdr _%e215008215059%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd211594211650%_)) - (let ((_%e211600211656%_ + (gx#stx-pair? _%lp-hd215009215063%_)) + (let ((_%e215015215069%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd211594211650%_)))) - (let ((_%hd211601211660%_ + (gx#syntax-e _%lp-hd215009215063%_)))) + (let ((_%hd215016215073%_ (let () (declare (not safe)) - (##car _%e211600211656%_))) - (_%tl211602211663%_ + (##car _%e215015215069%_))) + (_%tl215017215076%_ (let () (declare (not safe)) - (##cdr _%e211600211656%_)))) + (##cdr _%e215015215069%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl211602211663%_)) - (let ((_%e211603211666%_ + (gx#stx-pair? _%tl215017215076%_)) + (let ((_%e215018215079%_ (let () (declare (not safe)) - (gx#syntax-e _%tl211602211663%_)))) - (let ((_%hd211604211670%_ + (gx#syntax-e _%tl215017215076%_)))) + (let ((_%hd215019215083%_ (let () (declare (not safe)) - (##car _%e211603211666%_))) - (_%tl211605211673%_ + (##car _%e215018215079%_))) + (_%tl215020215086%_ (let () (declare (not safe)) - (##cdr _%e211603211666%_)))) + (##cdr _%e215018215079%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl211605211673%_)) - (_%loop211592211634%_ - _%lp-tl211595211653%_ - (cons _%hd211604211670%_ - _%type211596211641%_) - (cons _%hd211601211660%_ - _%symbol211597211643%_)) - (_%g211582211611%_ - _%g211583211615%_)))) - (_%g211582211611%_ _%g211583211615%_)))) - (_%g211582211611%_ _%g211583211615%_)))) - (let ((_%type211598211676%_ (reverse _%type211596211641%_)) - (_%symbol211599211679%_ - (reverse _%symbol211597211643%_))) - ((lambda (_%L211682%_ _%L211684%_) + (gx#stx-null? _%tl215020215086%_)) + (_%loop215007215049%_ + _%lp-tl215010215066%_ + (cons _%hd215019215083%_ + _%type215011215056%_) + (cons _%hd215016215073%_ + _%symbol215012215057%_)) + (_%g214997215026%_ + _%g214998215030%_)))) + (_%g214997215026%_ _%g214998215030%_)))) + (_%g214997215026%_ _%g214998215030%_)))) + (let ((_%type215013215089%_ (reverse _%type215011215056%_)) + (_%symbol215014215091%_ + (reverse _%symbol215012215057%_))) + ((lambda (_%g214999215093%_ _%g215000215095%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -394,52 +394,55 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L211682%_ - _%L211684%_)) - (let ((__tmp217978 - (lambda (_%g211699211703%_ - _%g211700211706%_ - _%g211701211708%_) + _%g214999215093%_ + _%g215000215095%_)) + (let ((__tmp221353 + (lambda (_%g215110215114%_ + _%g215111215117%_ + _%g215112215119%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%g211700211706%_ - (cons _%g211699211703%_ + (cons _%g215111215117%_ + (cons _%g215110215114%_ '()))) - _%g211701211708%_)))) + _%g215112215119%_)))) (declare (not safe)) (__foldr2 - __tmp217978 + __tmp221353 '() - _%L211682%_ - _%L211684%_))))) - _%type211598211676%_ - _%symbol211599211679%_)))))) + _%g214999215093%_ + _%g215000215095%_))))) + _%type215013215089%_ + _%symbol215014215091%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop211592211634%_ - _%target211589211628%_ + (_%loop215007215049%_ + _%target215004215043%_ '() '())) - (_%g211582211611%_ - _%g211583211615%_))))) - (_%g211582211611%_ _%g211583211615%_)))) - (_%g211582211611%_ _%g211583211615%_))))) - (_%g211581211711%_ _%$stx211578%_)))) + (_%g214997215026%_ + _%g214998215030%_))))) + (_%g214997215026%_ _%g214998215030%_)))) + (_%g214997215026%_ _%g214998215030%_))))) + (_%g214996215122%_ _%$stx214993%_)))) (define |gxc[:0:]#declare-method| - (lambda (_%$stx211716%_) - (let* ((_%__stx217287217288%_ _%$stx211716%_) - (_%g211721211763%_ + (lambda (_%$stx215127%_) + (let* ((_%__stx220662220663%_ _%$stx215127%_) + (_%g215132215174%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx217287217288%_))))) - (let ((_%__kont217290217291%_ - (lambda (_%L211891%_ _%L211893%_ _%L211894%_ _%L211895%_) + _%__stx220662220663%_))))) + (let ((_%__kont220665220666%_ + (lambda (_%g215134215302%_ + _%g215135215304%_ + _%g215136215305%_ + _%g215137215306%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -448,342 +451,347 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L211895%_ '())) + (cons _%g215137215306%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L211894%_ '())) + (cons _%g215136215305%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L211893%_ '())) - (cons _%L211891%_ '()))))))) - (_%__kont217292217293%_ - (lambda (_%L211810%_ _%L211812%_ _%L211813%_ _%L211814%_) - (cons _%L211814%_ - (cons _%L211813%_ - (cons _%L211812%_ - (cons _%L211810%_ + (cons _%g215135215304%_ '())) + (cons _%g215134215302%_ '()))))))) + (_%__kont220667220668%_ + (lambda (_%g215153215221%_ + _%g215154215223%_ + _%g215155215224%_ + _%g215156215225%_) + (cons _%g215156215225%_ + (cons _%g215155215224%_ + (cons _%g215154215223%_ + (cons _%g215153215221%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rebind?)) '())))))))) - (let ((_%__match217326217327%_ - (lambda (_%e211727211841%_ - _%hd211728211845%_ - _%tl211729211848%_ - _%e211730211851%_ - _%hd211731211855%_ - _%tl211732211858%_ - _%e211733211861%_ - _%hd211734211865%_ - _%tl211735211868%_ - _%e211736211871%_ - _%hd211737211875%_ - _%tl211738211878%_ - _%e211739211881%_ - _%hd211740211885%_ - _%tl211741211888%_) - (let ((_%L211891%_ _%hd211740211885%_) - (_%L211893%_ _%hd211737211875%_) - (_%L211894%_ _%hd211734211865%_) - (_%L211895%_ _%hd211731211855%_)) + (let ((_%__match220701220702%_ + (lambda (_%e215138215252%_ + _%hd215139215256%_ + _%tl215140215259%_ + _%e215141215262%_ + _%hd215142215266%_ + _%tl215143215269%_ + _%e215144215272%_ + _%hd215145215276%_ + _%tl215146215279%_ + _%e215147215282%_ + _%hd215148215286%_ + _%tl215149215289%_ + _%e215150215292%_ + _%hd215151215296%_ + _%tl215152215299%_) + (let ((_%g215134215302%_ _%hd215151215296%_) + (_%g215135215304%_ _%hd215148215286%_) + (_%g215136215305%_ _%hd215145215276%_) + (_%g215137215306%_ _%hd215142215266%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L211895%_)) + (gx#identifier? _%g215137215306%_)) (let () (declare (not safe)) - (gx#identifier? _%L211894%_)) + (gx#identifier? _%g215136215305%_)) (let () (declare (not safe)) - (gx#identifier? _%L211893%_))) - (_%__kont217290217291%_ - _%L211891%_ - _%L211893%_ - _%L211894%_ - _%L211895%_) + (gx#identifier? _%g215135215304%_))) + (_%__kont220665220666%_ + _%g215134215302%_ + _%g215135215304%_ + _%g215136215305%_ + _%g215137215306%_) (let () (declare (not safe)) - (_%g211721211763%_))))))) + (_%g215132215174%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx217287217288%_)) - (let ((_%e211727211841%_ + (gx#stx-pair? _%__stx220662220663%_)) + (let ((_%e215138215252%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx217287217288%_)))) - (let ((_%tl211729211848%_ + (gx#syntax-e _%__stx220662220663%_)))) + (let ((_%tl215140215259%_ (let () (declare (not safe)) - (##cdr _%e211727211841%_))) - (_%hd211728211845%_ + (##cdr _%e215138215252%_))) + (_%hd215139215256%_ (let () (declare (not safe)) - (##car _%e211727211841%_)))) + (##car _%e215138215252%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl211729211848%_)) - (let ((_%e211730211851%_ + (gx#stx-pair? _%tl215140215259%_)) + (let ((_%e215141215262%_ (let () (declare (not safe)) - (gx#syntax-e _%tl211729211848%_)))) - (let ((_%tl211732211858%_ + (gx#syntax-e _%tl215140215259%_)))) + (let ((_%tl215143215269%_ (let () (declare (not safe)) - (##cdr _%e211730211851%_))) - (_%hd211731211855%_ + (##cdr _%e215141215262%_))) + (_%hd215142215266%_ (let () (declare (not safe)) - (##car _%e211730211851%_)))) + (##car _%e215141215262%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl211732211858%_)) - (let ((_%e211733211861%_ + (gx#stx-pair? _%tl215143215269%_)) + (let ((_%e215144215272%_ (let () (declare (not safe)) - (gx#syntax-e _%tl211732211858%_)))) - (let ((_%tl211735211868%_ + (gx#syntax-e _%tl215143215269%_)))) + (let ((_%tl215146215279%_ (let () (declare (not safe)) - (##cdr _%e211733211861%_))) - (_%hd211734211865%_ + (##cdr _%e215144215272%_))) + (_%hd215145215276%_ (let () (declare (not safe)) - (##car _%e211733211861%_)))) + (##car _%e215144215272%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl211735211868%_)) - (let ((_%e211736211871%_ + (gx#stx-pair? _%tl215146215279%_)) + (let ((_%e215147215282%_ (let () (declare (not safe)) (gx#syntax-e - _%tl211735211868%_)))) - (let ((_%tl211738211878%_ + _%tl215146215279%_)))) + (let ((_%tl215149215289%_ (let () (declare (not safe)) - (##cdr _%e211736211871%_))) - (_%hd211737211875%_ + (##cdr _%e215147215282%_))) + (_%hd215148215286%_ (let () (declare (not safe)) - (##car _%e211736211871%_)))) + (##car _%e215147215282%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl211738211878%_)) - (let ((_%e211739211881%_ + _%tl215149215289%_)) + (let ((_%e215150215292%_ (let () (declare (not safe)) (gx#syntax-e - _%tl211738211878%_)))) - (let ((_%tl211741211888%_ + _%tl215149215289%_)))) + (let ((_%tl215152215299%_ (let () (declare (not safe)) - (##cdr _%e211739211881%_))) - (_%hd211740211885%_ + (##cdr _%e215150215292%_))) + (_%hd215151215296%_ (let () (declare (not safe)) - (##car _%e211739211881%_)))) + (##car _%e215150215292%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl211741211888%_)) - (_%__match217326217327%_ - _%e211727211841%_ - _%hd211728211845%_ - _%tl211729211848%_ - _%e211730211851%_ - _%hd211731211855%_ - _%tl211732211858%_ - _%e211733211861%_ - _%hd211734211865%_ - _%tl211735211868%_ - _%e211736211871%_ - _%hd211737211875%_ - _%tl211738211878%_ - _%e211739211881%_ - _%hd211740211885%_ - _%tl211741211888%_) + _%tl215152215299%_)) + (_%__match220701220702%_ + _%e215138215252%_ + _%hd215139215256%_ + _%tl215140215259%_ + _%e215141215262%_ + _%hd215142215266%_ + _%tl215143215269%_ + _%e215144215272%_ + _%hd215145215276%_ + _%tl215146215279%_ + _%e215147215282%_ + _%hd215148215286%_ + _%tl215149215289%_ + _%e215150215292%_ + _%hd215151215296%_ + _%tl215152215299%_) (let () (declare (not safe)) - (_%g211721211763%_))))) + (_%g215132215174%_))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl211738211878%_)) - (_%__kont217292217293%_ - _%hd211737211875%_ - _%hd211734211865%_ - _%hd211731211855%_ - _%hd211728211845%_) + _%tl215149215289%_)) + (_%__kont220667220668%_ + _%hd215148215286%_ + _%hd215145215276%_ + _%hd215142215266%_ + _%hd215139215256%_) (let () (declare (not safe)) - (_%g211721211763%_)))))) + (_%g215132215174%_)))))) (let () (declare (not safe)) - (_%g211721211763%_))))) + (_%g215132215174%_))))) (let () (declare (not safe)) - (_%g211721211763%_))))) - (let () (declare (not safe)) (_%g211721211763%_))))) - (let () (declare (not safe)) (_%g211721211763%_)))))))) + (_%g215132215174%_))))) + (let () (declare (not safe)) (_%g215132215174%_))))) + (let () (declare (not safe)) (_%g215132215174%_)))))))) (define |gxc[:0:]#declare-method*| - (lambda (_%$stx211920%_) - (let* ((_%g211924211959%_ - (lambda (_%g211925211955%_) + (lambda (_%$stx215331%_) + (let* ((_%g215335215370%_ + (lambda (_%g215336215366%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g211925211955%_)))) - (_%g211923212078%_ - (lambda (_%g211925211963%_) + _%g215336215366%_)))) + (_%g215334215483%_ + (lambda (_%g215336215374%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g211925211963%_)) - (let ((_%e211929211966%_ + (gx#stx-pair? _%g215336215374%_)) + (let ((_%e215340215377%_ (let () (declare (not safe)) - (gx#syntax-e _%g211925211963%_)))) - (let ((_%hd211930211970%_ + (gx#syntax-e _%g215336215374%_)))) + (let ((_%hd215341215381%_ (let () (declare (not safe)) - (##car _%e211929211966%_))) - (_%tl211931211973%_ + (##car _%e215340215377%_))) + (_%tl215342215384%_ (let () (declare (not safe)) - (##cdr _%e211929211966%_)))) + (##cdr _%e215340215377%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl211931211973%_)) - (let ((_g217979_ + (gx#stx-pair/null? _%tl215342215384%_)) + (let ((_g221354_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl211931211973%_ + _%tl215342215384%_ '0)))) (begin - (let ((_g217980_ + (let ((_g221355_ (let () (declare (not safe)) - (if (##values? _g217979_) - (##values-length _g217979_) + (if (##values? _g221354_) + (##values-length _g221354_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g217980_ 2))) + (##fx= _g221355_ 2))) (error "Context expects 2 values" - _g217980_))) - (let ((_%target211932211976%_ + _g221355_))) + (let ((_%target215343215387%_ (let () (declare (not safe)) - (##values-ref _g217979_ 0))) - (_%tl211934211979%_ + (##values-ref _g221354_ 0))) + (_%tl215345215390%_ (let () (declare (not safe)) - (##values-ref _g217979_ 1)))) + (##values-ref _g221354_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl211934211979%_)) - (letrec ((_%loop211935211982%_ - (lambda (_%hd211933211986%_ - _%symbol211939211989%_ - _%method211940211991%_ - _%type-t211941211993%_) + (gx#stx-null? _%tl215345215390%_)) + (letrec ((_%loop215346215393%_ + (lambda (_%hd215344215397%_ + _%symbol215350215400%_ + _%method215351215401%_ + _%type-t215352215402%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd211933211986%_)) - (let ((_%e211936211996%_ + _%hd215344215397%_)) + (let ((_%e215347215404%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd211933211986%_)))) - (let ((_%lp-hd211937212000%_ + (gx#syntax-e _%hd215344215397%_)))) + (let ((_%lp-hd215348215408%_ (let () (declare (not safe)) - (##car _%e211936211996%_))) - (_%lp-tl211938212003%_ + (##car _%e215347215404%_))) + (_%lp-tl215349215411%_ (let () (declare (not safe)) - (##cdr _%e211936211996%_)))) + (##cdr _%e215347215404%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd211937212000%_)) - (let ((_%e211945212006%_ + (gx#stx-pair? _%lp-hd215348215408%_)) + (let ((_%e215356215414%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd211937212000%_)))) - (let ((_%hd211946212010%_ + (gx#syntax-e _%lp-hd215348215408%_)))) + (let ((_%hd215357215418%_ (let () (declare (not safe)) - (##car _%e211945212006%_))) - (_%tl211947212013%_ + (##car _%e215356215414%_))) + (_%tl215358215421%_ (let () (declare (not safe)) - (##cdr _%e211945212006%_)))) + (##cdr _%e215356215414%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl211947212013%_)) - (let ((_%e211948212016%_ + (gx#stx-pair? _%tl215358215421%_)) + (let ((_%e215359215424%_ (let () (declare (not safe)) - (gx#syntax-e _%tl211947212013%_)))) - (let ((_%hd211949212020%_ + (gx#syntax-e _%tl215358215421%_)))) + (let ((_%hd215360215428%_ (let () (declare (not safe)) - (##car _%e211948212016%_))) - (_%tl211950212023%_ + (##car _%e215359215424%_))) + (_%tl215361215431%_ (let () (declare (not safe)) - (##cdr _%e211948212016%_)))) + (##cdr _%e215359215424%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl211950212023%_)) - (let ((_%e211951212026%_ + (gx#stx-pair? _%tl215361215431%_)) + (let ((_%e215362215434%_ (let () (declare (not safe)) (gx#syntax-e - _%tl211950212023%_)))) - (let ((_%hd211952212030%_ + _%tl215361215431%_)))) + (let ((_%hd215363215438%_ (let () (declare (not safe)) - (##car _%e211951212026%_))) - (_%tl211953212033%_ + (##car _%e215362215434%_))) + (_%tl215364215441%_ (let () (declare (not safe)) - (##cdr _%e211951212026%_)))) + (##cdr _%e215362215434%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl211953212033%_)) - (_%loop211935211982%_ - _%lp-tl211938212003%_ - (cons _%hd211952212030%_ - _%symbol211939211989%_) - (cons _%hd211949212020%_ - _%method211940211991%_) - (cons _%hd211946212010%_ - _%type-t211941211993%_)) - (_%g211924211959%_ - _%g211925211963%_)))) - (_%g211924211959%_ - _%g211925211963%_)))) - (_%g211924211959%_ _%g211925211963%_)))) - (_%g211924211959%_ _%g211925211963%_)))) - (let ((_%symbol211942212036%_ (reverse _%symbol211939211989%_)) - (_%method211943212039%_ (reverse _%method211940211991%_)) - (_%type-t211944212041%_ - (reverse _%type-t211941211993%_))) - ((lambda (_%L212044%_ _%L212046%_ _%L212047%_) + _%tl215364215441%_)) + (_%loop215346215393%_ + _%lp-tl215349215411%_ + (cons _%hd215363215438%_ + _%symbol215350215400%_) + (cons _%hd215360215428%_ + _%method215351215401%_) + (cons _%hd215357215418%_ + _%type-t215352215402%_)) + (_%g215335215370%_ + _%g215336215374%_)))) + (_%g215335215370%_ + _%g215336215374%_)))) + (_%g215335215370%_ _%g215336215374%_)))) + (_%g215335215370%_ _%g215336215374%_)))) + (let ((_%symbol215353215444%_ (reverse _%symbol215350215400%_)) + (_%method215354215446%_ (reverse _%method215351215401%_)) + (_%type-t215355215447%_ + (reverse _%type-t215352215402%_))) + ((lambda (_%g215337215449%_ + _%g215338215451%_ + _%g215339215452%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -791,196 +799,198 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L212044%_ - _%L212046%_ - _%L212047%_)) - (let ((__tmp217981 - (lambda (_%g212063212068%_ - _%g212064212071%_ - _%g212065212073%_ - _%g212066212075%_) + _%g215337215449%_ + _%g215338215451%_ + _%g215339215452%_)) + (let ((__tmp221356 + (lambda (_%g215468215473%_ + _%g215469215476%_ + _%g215470215478%_ + _%g215471215480%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method)) - (cons _%g212065212073%_ - (cons _%g212064212071%_ - (cons _%g212063212068%_ + (cons _%g215470215478%_ + (cons _%g215469215476%_ + (cons _%g215468215473%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g212066212075%_)))) + _%g215471215480%_)))) (declare (not safe)) (__foldr* - __tmp217981 + __tmp221356 '() - _%L212044%_ - _%L212046%_ - _%L212047%_))))) - _%symbol211942212036%_ - _%method211943212039%_ - _%type-t211944212041%_)))))) + _%g215337215449%_ + _%g215338215451%_ + _%g215339215452%_))))) + _%symbol215353215444%_ + _%method215354215446%_ + _%type-t215355215447%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop211935211982%_ - _%target211932211976%_ + (_%loop215346215393%_ + _%target215343215387%_ '() '() '())) - (_%g211924211959%_ - _%g211925211963%_))))) - (_%g211924211959%_ _%g211925211963%_)))) - (_%g211924211959%_ _%g211925211963%_))))) - (_%g211923212078%_ _%$stx211920%_)))) + (_%g215335215370%_ + _%g215336215374%_))))) + (_%g215335215370%_ _%g215336215374%_)))) + (_%g215335215370%_ _%g215336215374%_))))) + (_%g215334215483%_ _%$stx215331%_)))) (define |gxc[:0:]#declare-methods| - (lambda (_%$stx212083%_) - (let* ((_%g212087212120%_ - (lambda (_%g212088212116%_) + (lambda (_%$stx215488%_) + (let* ((_%g215492215525%_ + (lambda (_%g215493215521%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g212088212116%_)))) - (_%g212086212234%_ - (lambda (_%g212088212124%_) + _%g215493215521%_)))) + (_%g215491215635%_ + (lambda (_%g215493215529%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g212088212124%_)) - (let ((_%e212092212127%_ + (gx#stx-pair? _%g215493215529%_)) + (let ((_%e215497215532%_ (let () (declare (not safe)) - (gx#syntax-e _%g212088212124%_)))) - (let ((_%hd212093212131%_ + (gx#syntax-e _%g215493215529%_)))) + (let ((_%hd215498215536%_ (let () (declare (not safe)) - (##car _%e212092212127%_))) - (_%tl212094212134%_ + (##car _%e215497215532%_))) + (_%tl215499215539%_ (let () (declare (not safe)) - (##cdr _%e212092212127%_)))) + (##cdr _%e215497215532%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl212094212134%_)) - (let ((_%e212095212137%_ + (gx#stx-pair? _%tl215499215539%_)) + (let ((_%e215500215542%_ (let () (declare (not safe)) - (gx#syntax-e _%tl212094212134%_)))) - (let ((_%hd212096212141%_ + (gx#syntax-e _%tl215499215539%_)))) + (let ((_%hd215501215546%_ (let () (declare (not safe)) - (##car _%e212095212137%_))) - (_%tl212097212144%_ + (##car _%e215500215542%_))) + (_%tl215502215549%_ (let () (declare (not safe)) - (##cdr _%e212095212137%_)))) + (##cdr _%e215500215542%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl212097212144%_)) - (let ((_g217982_ + (gx#stx-pair/null? _%tl215502215549%_)) + (let ((_g221357_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl212097212144%_ + _%tl215502215549%_ '0)))) (begin - (let ((_g217983_ + (let ((_g221358_ (let () (declare (not safe)) - (if (##values? _g217982_) + (if (##values? _g221357_) (##values-length - _g217982_) + _g221357_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g217983_ 2))) + (##fx= _g221358_ 2))) (error "Context expects 2 values" - _g217983_))) - (let ((_%target212098212147%_ + _g221358_))) + (let ((_%target215503215552%_ (let () (declare (not safe)) - (##values-ref _g217982_ 0))) - (_%tl212100212150%_ + (##values-ref _g221357_ 0))) + (_%tl215505215555%_ (let () (declare (not safe)) (##values-ref - _g217982_ + _g221357_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl212100212150%_)) - (letrec ((_%loop212101212153%_ - (lambda (_%hd212099212157%_ + _%tl215505215555%_)) + (letrec ((_%loop215506215558%_ + (lambda (_%hd215504215562%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%symbol212105212160%_ - _%method212106212162%_) + _%symbol215510215565%_ + _%method215511215566%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd212099212157%_)) - (let ((_%e212102212165%_ + (gx#stx-pair? _%hd215504215562%_)) + (let ((_%e215507215568%_ (let () (declare (not safe)) - (gx#syntax-e _%hd212099212157%_)))) - (let ((_%lp-hd212103212169%_ + (gx#syntax-e _%hd215504215562%_)))) + (let ((_%lp-hd215508215572%_ (let () (declare (not safe)) - (##car _%e212102212165%_))) - (_%lp-tl212104212172%_ + (##car _%e215507215568%_))) + (_%lp-tl215509215575%_ (let () (declare (not safe)) - (##cdr _%e212102212165%_)))) + (##cdr _%e215507215568%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd212103212169%_)) - (let ((_%e212109212175%_ + (gx#stx-pair? _%lp-hd215508215572%_)) + (let ((_%e215514215578%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd212103212169%_)))) - (let ((_%hd212110212179%_ + (gx#syntax-e _%lp-hd215508215572%_)))) + (let ((_%hd215515215582%_ (let () (declare (not safe)) - (##car _%e212109212175%_))) - (_%tl212111212182%_ + (##car _%e215514215578%_))) + (_%tl215516215585%_ (let () (declare (not safe)) - (##cdr _%e212109212175%_)))) + (##cdr _%e215514215578%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl212111212182%_)) - (let ((_%e212112212185%_ + (gx#stx-pair? _%tl215516215585%_)) + (let ((_%e215517215588%_ (let () (declare (not safe)) (gx#syntax-e - _%tl212111212182%_)))) - (let ((_%hd212113212189%_ + _%tl215516215585%_)))) + (let ((_%hd215518215592%_ (let () (declare (not safe)) - (##car _%e212112212185%_))) - (_%tl212114212192%_ + (##car _%e215517215588%_))) + (_%tl215519215595%_ (let () (declare (not safe)) - (##cdr _%e212112212185%_)))) + (##cdr _%e215517215588%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl212114212192%_)) - (_%loop212101212153%_ - _%lp-tl212104212172%_ - (cons _%hd212113212189%_ - _%symbol212105212160%_) - (cons _%hd212110212179%_ - _%method212106212162%_)) - (_%g212087212120%_ - _%g212088212124%_)))) - (_%g212087212120%_ - _%g212088212124%_)))) - (_%g212087212120%_ _%g212088212124%_)))) - (let ((_%symbol212107212195%_ - (reverse _%symbol212105212160%_)) - (_%method212108212198%_ - (reverse _%method212106212162%_))) - ((lambda (_%L212201%_ _%L212203%_ _%L212204%_) + _%tl215519215595%_)) + (_%loop215506215558%_ + _%lp-tl215509215575%_ + (cons _%hd215518215592%_ + _%symbol215510215565%_) + (cons _%hd215515215582%_ + _%method215511215566%_)) + (_%g215492215525%_ + _%g215493215529%_)))) + (_%g215492215525%_ + _%g215493215529%_)))) + (_%g215492215525%_ _%g215493215529%_)))) + (let ((_%symbol215512215598%_ + (reverse _%symbol215510215565%_)) + (_%method215513215600%_ + (reverse _%method215511215566%_))) + ((lambda (_%g215494215602%_ + _%g215495215604%_ + _%g215496215605%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -988,90 +998,90 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L212201%_ - _%L212203%_)) - (let ((__tmp217984 - (lambda (_%g212222212226%_ - _%g212223212229%_ - _%g212224212231%_) + _%g215494215602%_ + _%g215495215604%_)) + (let ((__tmp221359 + (lambda (_%g215623215627%_ + _%g215624215630%_ + _%g215625215632%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method)) - (cons _%L212204%_ - (cons _%g212223212229%_ + (cons _%g215496215605%_ + (cons _%g215624215630%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%g212222212226%_ '())))) + (cons _%g215623215627%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g212224212231%_)))) + _%g215625215632%_)))) (declare (not safe)) (__foldr2 - __tmp217984 + __tmp221359 '() - _%L212201%_ - _%L212203%_))))) - _%symbol212107212195%_ - _%method212108212198%_ - _%hd212096212141%_)))))) + _%g215494215602%_ + _%g215495215604%_))))) + _%symbol215512215598%_ + _%method215513215600%_ + _%hd215501215546%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop212101212153%_ - _%target212098212147%_ + (_%loop215506215558%_ + _%target215503215552%_ '() '())) - (_%g212087212120%_ - _%g212088212124%_))))) - (_%g212087212120%_ _%g212088212124%_)))) - (_%g212087212120%_ _%g212088212124%_)))) - (_%g212087212120%_ _%g212088212124%_))))) - (_%g212086212234%_ _%$stx212083%_)))) + (_%g215492215525%_ + _%g215493215529%_))))) + (_%g215492215525%_ _%g215493215529%_)))) + (_%g215492215525%_ _%g215493215529%_)))) + (_%g215492215525%_ _%g215493215529%_))))) + (_%g215491215635%_ _%$stx215488%_)))) (define |gxc[:0:]#@alias| - (lambda (_%$stx212239%_) - (let* ((_%g212243212257%_ - (lambda (_%g212244212253%_) + (lambda (_%$stx215640%_) + (let* ((_%g215644215658%_ + (lambda (_%g215645215654%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g212244212253%_)))) - (_%g212242212298%_ - (lambda (_%g212244212261%_) + _%g215645215654%_)))) + (_%g215643215699%_ + (lambda (_%g215645215662%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g212244212261%_)) - (let ((_%e212246212264%_ + (gx#stx-pair? _%g215645215662%_)) + (let ((_%e215647215665%_ (let () (declare (not safe)) - (gx#syntax-e _%g212244212261%_)))) - (let ((_%hd212247212268%_ + (gx#syntax-e _%g215645215662%_)))) + (let ((_%hd215648215669%_ (let () (declare (not safe)) - (##car _%e212246212264%_))) - (_%tl212248212271%_ + (##car _%e215647215665%_))) + (_%tl215649215672%_ (let () (declare (not safe)) - (##cdr _%e212246212264%_)))) + (##cdr _%e215647215665%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl212248212271%_)) - (let ((_%e212249212274%_ + (gx#stx-pair? _%tl215649215672%_)) + (let ((_%e215650215675%_ (let () (declare (not safe)) - (gx#syntax-e _%tl212248212271%_)))) - (let ((_%hd212250212278%_ + (gx#syntax-e _%tl215649215672%_)))) + (let ((_%hd215651215679%_ (let () (declare (not safe)) - (##car _%e212249212274%_))) - (_%tl212251212281%_ + (##car _%e215650215675%_))) + (_%tl215652215682%_ (let () (declare (not safe)) - (##cdr _%e212249212274%_)))) + (##cdr _%e215650215675%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl212251212281%_)) - ((lambda (_%L212284%_) + (gx#stx-null? _%tl215652215682%_)) + ((lambda (_%g215646215685%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1083,230 +1093,230 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L212284%_ + (cons _%g215646215685%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd212250212278%_) - (_%g212243212257%_ _%g212244212261%_)))) - (_%g212243212257%_ _%g212244212261%_)))) - (_%g212243212257%_ _%g212244212261%_))))) - (_%g212242212298%_ _%$stx212239%_)))) + _%hd215651215679%_) + (_%g215644215658%_ _%g215645215662%_)))) + (_%g215644215658%_ _%g215645215662%_)))) + (_%g215644215658%_ _%g215645215662%_))))) + (_%g215643215699%_ _%$stx215640%_)))) (define |gxc[:0:]#@class| - (lambda (_%$stx212302%_) - (let* ((_%g212306212360%_ - (lambda (_%g212307212356%_) + (lambda (_%$stx215703%_) + (let* ((_%g215707215761%_ + (lambda (_%g215708215757%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g212307212356%_)))) - (_%g212305212541%_ - (lambda (_%g212307212364%_) + _%g215708215757%_)))) + (_%g215706215942%_ + (lambda (_%g215708215765%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g212307212364%_)) - (let ((_%e212319212367%_ + (gx#stx-pair? _%g215708215765%_)) + (let ((_%e215720215768%_ (let () (declare (not safe)) - (gx#syntax-e _%g212307212364%_)))) - (let ((_%hd212320212371%_ + (gx#syntax-e _%g215708215765%_)))) + (let ((_%hd215721215772%_ (let () (declare (not safe)) - (##car _%e212319212367%_))) - (_%tl212321212374%_ + (##car _%e215720215768%_))) + (_%tl215722215775%_ (let () (declare (not safe)) - (##cdr _%e212319212367%_)))) + (##cdr _%e215720215768%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl212321212374%_)) - (let ((_%e212322212377%_ + (gx#stx-pair? _%tl215722215775%_)) + (let ((_%e215723215778%_ (let () (declare (not safe)) - (gx#syntax-e _%tl212321212374%_)))) - (let ((_%hd212323212381%_ + (gx#syntax-e _%tl215722215775%_)))) + (let ((_%hd215724215782%_ (let () (declare (not safe)) - (##car _%e212322212377%_))) - (_%tl212324212384%_ + (##car _%e215723215778%_))) + (_%tl215725215785%_ (let () (declare (not safe)) - (##cdr _%e212322212377%_)))) + (##cdr _%e215723215778%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl212324212384%_)) - (let ((_%e212325212387%_ + (gx#stx-pair? _%tl215725215785%_)) + (let ((_%e215726215788%_ (let () (declare (not safe)) (gx#syntax-e - _%tl212324212384%_)))) - (let ((_%hd212326212391%_ + _%tl215725215785%_)))) + (let ((_%hd215727215792%_ (let () (declare (not safe)) - (##car _%e212325212387%_))) - (_%tl212327212394%_ + (##car _%e215726215788%_))) + (_%tl215728215795%_ (let () (declare (not safe)) - (##cdr _%e212325212387%_)))) + (##cdr _%e215726215788%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl212327212394%_)) - (let ((_%e212328212397%_ + _%tl215728215795%_)) + (let ((_%e215729215798%_ (let () (declare (not safe)) (gx#syntax-e - _%tl212327212394%_)))) - (let ((_%hd212329212401%_ + _%tl215728215795%_)))) + (let ((_%hd215730215802%_ (let () (declare (not safe)) - (##car _%e212328212397%_))) - (_%tl212330212404%_ + (##car _%e215729215798%_))) + (_%tl215731215805%_ (let () (declare (not safe)) - (##cdr _%e212328212397%_)))) + (##cdr _%e215729215798%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl212330212404%_)) - (let ((_%e212331212407%_ + _%tl215731215805%_)) + (let ((_%e215732215808%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl212330212404%_)))) - (let ((_%hd212332212411%_ - (let () (declare (not safe)) (##car _%e212331212407%_))) - (_%tl212333212414%_ + (gx#syntax-e _%tl215731215805%_)))) + (let ((_%hd215733215812%_ + (let () (declare (not safe)) (##car _%e215732215808%_))) + (_%tl215734215815%_ (let () (declare (not safe)) - (##cdr _%e212331212407%_)))) + (##cdr _%e215732215808%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl212333212414%_)) - (let ((_%e212334212417%_ + (gx#stx-pair? _%tl215734215815%_)) + (let ((_%e215735215818%_ (let () (declare (not safe)) - (gx#syntax-e _%tl212333212414%_)))) - (let ((_%hd212335212421%_ + (gx#syntax-e _%tl215734215815%_)))) + (let ((_%hd215736215822%_ (let () (declare (not safe)) - (##car _%e212334212417%_))) - (_%tl212336212424%_ + (##car _%e215735215818%_))) + (_%tl215737215825%_ (let () (declare (not safe)) - (##cdr _%e212334212417%_)))) + (##cdr _%e215735215818%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl212336212424%_)) - (let ((_%e212337212427%_ + (gx#stx-pair? _%tl215737215825%_)) + (let ((_%e215738215828%_ (let () (declare (not safe)) - (gx#syntax-e _%tl212336212424%_)))) - (let ((_%hd212338212431%_ + (gx#syntax-e _%tl215737215825%_)))) + (let ((_%hd215739215832%_ (let () (declare (not safe)) - (##car _%e212337212427%_))) - (_%tl212339212434%_ + (##car _%e215738215828%_))) + (_%tl215740215835%_ (let () (declare (not safe)) - (##cdr _%e212337212427%_)))) + (##cdr _%e215738215828%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl212339212434%_)) - (let ((_%e212340212437%_ + (gx#stx-pair? _%tl215740215835%_)) + (let ((_%e215741215838%_ (let () (declare (not safe)) (gx#syntax-e - _%tl212339212434%_)))) - (let ((_%hd212341212441%_ + _%tl215740215835%_)))) + (let ((_%hd215742215842%_ (let () (declare (not safe)) - (##car _%e212340212437%_))) - (_%tl212342212444%_ + (##car _%e215741215838%_))) + (_%tl215743215845%_ (let () (declare (not safe)) - (##cdr _%e212340212437%_)))) + (##cdr _%e215741215838%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl212342212444%_)) - (let ((_%e212343212447%_ + _%tl215743215845%_)) + (let ((_%e215744215848%_ (let () (declare (not safe)) (gx#syntax-e - _%tl212342212444%_)))) - (let ((_%hd212344212451%_ + _%tl215743215845%_)))) + (let ((_%hd215745215852%_ (let () (declare (not safe)) - (##car _%e212343212447%_))) - (_%tl212345212454%_ + (##car _%e215744215848%_))) + (_%tl215746215855%_ (let () (declare (not safe)) - (##cdr _%e212343212447%_)))) + (##cdr _%e215744215848%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl212345212454%_)) - (let ((_%e212346212457%_ + _%tl215746215855%_)) + (let ((_%e215747215858%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl212345212454%_)))) - (let ((_%hd212347212461%_ - (let () (declare (not safe)) (##car _%e212346212457%_))) - (_%tl212348212464%_ + (gx#syntax-e _%tl215746215855%_)))) + (let ((_%hd215748215862%_ + (let () (declare (not safe)) (##car _%e215747215858%_))) + (_%tl215749215865%_ (let () (declare (not safe)) - (##cdr _%e212346212457%_)))) + (##cdr _%e215747215858%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl212348212464%_)) - (let ((_%e212349212467%_ + (gx#stx-pair? _%tl215749215865%_)) + (let ((_%e215750215868%_ (let () (declare (not safe)) - (gx#syntax-e _%tl212348212464%_)))) - (let ((_%hd212350212471%_ + (gx#syntax-e _%tl215749215865%_)))) + (let ((_%hd215751215872%_ (let () (declare (not safe)) - (##car _%e212349212467%_))) - (_%tl212351212474%_ + (##car _%e215750215868%_))) + (_%tl215752215875%_ (let () (declare (not safe)) - (##cdr _%e212349212467%_)))) + (##cdr _%e215750215868%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl212351212474%_)) - (let ((_%e212352212477%_ + (gx#stx-pair? _%tl215752215875%_)) + (let ((_%e215753215878%_ (let () (declare (not safe)) - (gx#syntax-e _%tl212351212474%_)))) - (let ((_%hd212353212481%_ + (gx#syntax-e _%tl215752215875%_)))) + (let ((_%hd215754215882%_ (let () (declare (not safe)) - (##car _%e212352212477%_))) - (_%tl212354212484%_ + (##car _%e215753215878%_))) + (_%tl215755215885%_ (let () (declare (not safe)) - (##cdr _%e212352212477%_)))) + (##cdr _%e215753215878%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl212354212484%_)) - ((lambda (_%L212487%_ - _%L212489%_ - _%L212490%_ - _%L212491%_ - _%L212492%_ - _%L212493%_ - _%L212494%_ - _%L212495%_ - _%L212496%_ - _%L212497%_ - _%L212498%_) + (gx#stx-null? _%tl215755215885%_)) + ((lambda (_%g215709215888%_ + _%g215710215890%_ + _%g215711215891%_ + _%g215712215892%_ + _%g215713215893%_ + _%g215714215894%_ + _%g215715215895%_ + _%g215716215896%_ + _%g215717215897%_ + _%g215718215898%_ + _%g215719215899%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1318,7 +1328,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L212498%_ + (cons _%g215719215899%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1326,115 +1336,115 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L212497%_ '())) + (cons _%g215718215898%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L212496%_ '())) + (cons _%g215717215897%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L212495%_ '())) + (cons _%g215716215896%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L212494%_ '())) + (cons _%g215715215895%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L212493%_ '())) - (cons _%L212492%_ - (cons _%L212491%_ - (cons _%L212490%_ + (cons _%g215714215894%_ '())) + (cons _%g215713215893%_ + (cons _%g215712215892%_ + (cons _%g215711215891%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L212489%_ '())) + (cons _%g215710215890%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L212487%_ '())) + (cons _%g215709215888%_ '())) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd212353212481%_ - _%hd212350212471%_ - _%hd212347212461%_ - _%hd212344212451%_ - _%hd212341212441%_ - _%hd212338212431%_ - _%hd212335212421%_ - _%hd212332212411%_ - _%hd212329212401%_ - _%hd212326212391%_ - _%hd212323212381%_) - (_%g212306212360%_ _%g212307212364%_)))) - (_%g212306212360%_ _%g212307212364%_)))) - (_%g212306212360%_ _%g212307212364%_)))) - (_%g212306212360%_ _%g212307212364%_)))) + _%hd215754215882%_ + _%hd215751215872%_ + _%hd215748215862%_ + _%hd215745215852%_ + _%hd215742215842%_ + _%hd215739215832%_ + _%hd215736215822%_ + _%hd215733215812%_ + _%hd215730215802%_ + _%hd215727215792%_ + _%hd215724215782%_) + (_%g215707215761%_ _%g215708215765%_)))) + (_%g215707215761%_ _%g215708215765%_)))) + (_%g215707215761%_ _%g215708215765%_)))) + (_%g215707215761%_ _%g215708215765%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g212306212360%_ - _%g212307212364%_)))) - (_%g212306212360%_ _%g212307212364%_)))) - (_%g212306212360%_ _%g212307212364%_)))) - (_%g212306212360%_ _%g212307212364%_)))) - (_%g212306212360%_ _%g212307212364%_)))) + (_%g215707215761%_ + _%g215708215765%_)))) + (_%g215707215761%_ _%g215708215765%_)))) + (_%g215707215761%_ _%g215708215765%_)))) + (_%g215707215761%_ _%g215708215765%_)))) + (_%g215707215761%_ _%g215708215765%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g212306212360%_ - _%g212307212364%_)))) - (_%g212306212360%_ _%g212307212364%_)))) - (_%g212306212360%_ _%g212307212364%_)))) - (_%g212306212360%_ _%g212307212364%_))))) - (_%g212305212541%_ _%$stx212302%_)))) + (_%g215707215761%_ + _%g215708215765%_)))) + (_%g215707215761%_ _%g215708215765%_)))) + (_%g215707215761%_ _%g215708215765%_)))) + (_%g215707215761%_ _%g215708215765%_))))) + (_%g215706215942%_ _%$stx215703%_)))) (define |gxc[:0:]#@predicate| - (lambda (_%$stx212545%_) - (let* ((_%g212549212563%_ - (lambda (_%g212550212559%_) + (lambda (_%$stx215946%_) + (let* ((_%g215950215964%_ + (lambda (_%g215951215960%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g212550212559%_)))) - (_%g212548212604%_ - (lambda (_%g212550212567%_) + _%g215951215960%_)))) + (_%g215949216005%_ + (lambda (_%g215951215968%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g212550212567%_)) - (let ((_%e212552212570%_ + (gx#stx-pair? _%g215951215968%_)) + (let ((_%e215953215971%_ (let () (declare (not safe)) - (gx#syntax-e _%g212550212567%_)))) - (let ((_%hd212553212574%_ + (gx#syntax-e _%g215951215968%_)))) + (let ((_%hd215954215975%_ (let () (declare (not safe)) - (##car _%e212552212570%_))) - (_%tl212554212577%_ + (##car _%e215953215971%_))) + (_%tl215955215978%_ (let () (declare (not safe)) - (##cdr _%e212552212570%_)))) + (##cdr _%e215953215971%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl212554212577%_)) - (let ((_%e212555212580%_ + (gx#stx-pair? _%tl215955215978%_)) + (let ((_%e215956215981%_ (let () (declare (not safe)) - (gx#syntax-e _%tl212554212577%_)))) - (let ((_%hd212556212584%_ + (gx#syntax-e _%tl215955215978%_)))) + (let ((_%hd215957215985%_ (let () (declare (not safe)) - (##car _%e212555212580%_))) - (_%tl212557212587%_ + (##car _%e215956215981%_))) + (_%tl215958215988%_ (let () (declare (not safe)) - (##cdr _%e212555212580%_)))) + (##cdr _%e215956215981%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl212557212587%_)) - ((lambda (_%L212590%_) + (gx#stx-null? _%tl215958215988%_)) + ((lambda (_%g215952215991%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1446,62 +1456,62 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L212590%_ + (cons _%g215952215991%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd212556212584%_) - (_%g212549212563%_ _%g212550212567%_)))) - (_%g212549212563%_ _%g212550212567%_)))) - (_%g212549212563%_ _%g212550212567%_))))) - (_%g212548212604%_ _%$stx212545%_)))) + _%hd215957215985%_) + (_%g215950215964%_ _%g215951215968%_)))) + (_%g215950215964%_ _%g215951215968%_)))) + (_%g215950215964%_ _%g215951215968%_))))) + (_%g215949216005%_ _%$stx215946%_)))) (define |gxc[:0:]#@constructor| - (lambda (_%$stx212608%_) - (let* ((_%g212612212626%_ - (lambda (_%g212613212622%_) + (lambda (_%$stx216009%_) + (let* ((_%g216013216027%_ + (lambda (_%g216014216023%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g212613212622%_)))) - (_%g212611212667%_ - (lambda (_%g212613212630%_) + _%g216014216023%_)))) + (_%g216012216068%_ + (lambda (_%g216014216031%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g212613212630%_)) - (let ((_%e212615212633%_ + (gx#stx-pair? _%g216014216031%_)) + (let ((_%e216016216034%_ (let () (declare (not safe)) - (gx#syntax-e _%g212613212630%_)))) - (let ((_%hd212616212637%_ + (gx#syntax-e _%g216014216031%_)))) + (let ((_%hd216017216038%_ (let () (declare (not safe)) - (##car _%e212615212633%_))) - (_%tl212617212640%_ + (##car _%e216016216034%_))) + (_%tl216018216041%_ (let () (declare (not safe)) - (##cdr _%e212615212633%_)))) + (##cdr _%e216016216034%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl212617212640%_)) - (let ((_%e212618212643%_ + (gx#stx-pair? _%tl216018216041%_)) + (let ((_%e216019216044%_ (let () (declare (not safe)) - (gx#syntax-e _%tl212617212640%_)))) - (let ((_%hd212619212647%_ + (gx#syntax-e _%tl216018216041%_)))) + (let ((_%hd216020216048%_ (let () (declare (not safe)) - (##car _%e212618212643%_))) - (_%tl212620212650%_ + (##car _%e216019216044%_))) + (_%tl216021216051%_ (let () (declare (not safe)) - (##cdr _%e212618212643%_)))) + (##cdr _%e216019216044%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl212620212650%_)) - ((lambda (_%L212653%_) + (gx#stx-null? _%tl216021216051%_)) + ((lambda (_%g216015216054%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1513,98 +1523,98 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L212653%_ + (cons _%g216015216054%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd212619212647%_) - (_%g212612212626%_ _%g212613212630%_)))) - (_%g212612212626%_ _%g212613212630%_)))) - (_%g212612212626%_ _%g212613212630%_))))) - (_%g212611212667%_ _%$stx212608%_)))) + _%hd216020216048%_) + (_%g216013216027%_ _%g216014216031%_)))) + (_%g216013216027%_ _%g216014216031%_)))) + (_%g216013216027%_ _%g216014216031%_))))) + (_%g216012216068%_ _%$stx216009%_)))) (define |gxc[:0:]#@accessor| - (lambda (_%$stx212671%_) - (let* ((_%g212675212697%_ - (lambda (_%g212676212693%_) + (lambda (_%$stx216072%_) + (let* ((_%g216076216098%_ + (lambda (_%g216077216094%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g212676212693%_)))) - (_%g212674212766%_ - (lambda (_%g212676212701%_) + _%g216077216094%_)))) + (_%g216075216167%_ + (lambda (_%g216077216102%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g212676212701%_)) - (let ((_%e212680212704%_ + (gx#stx-pair? _%g216077216102%_)) + (let ((_%e216081216105%_ (let () (declare (not safe)) - (gx#syntax-e _%g212676212701%_)))) - (let ((_%hd212681212708%_ + (gx#syntax-e _%g216077216102%_)))) + (let ((_%hd216082216109%_ (let () (declare (not safe)) - (##car _%e212680212704%_))) - (_%tl212682212711%_ + (##car _%e216081216105%_))) + (_%tl216083216112%_ (let () (declare (not safe)) - (##cdr _%e212680212704%_)))) + (##cdr _%e216081216105%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl212682212711%_)) - (let ((_%e212683212714%_ + (gx#stx-pair? _%tl216083216112%_)) + (let ((_%e216084216115%_ (let () (declare (not safe)) - (gx#syntax-e _%tl212682212711%_)))) - (let ((_%hd212684212718%_ + (gx#syntax-e _%tl216083216112%_)))) + (let ((_%hd216085216119%_ (let () (declare (not safe)) - (##car _%e212683212714%_))) - (_%tl212685212721%_ + (##car _%e216084216115%_))) + (_%tl216086216122%_ (let () (declare (not safe)) - (##cdr _%e212683212714%_)))) + (##cdr _%e216084216115%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl212685212721%_)) - (let ((_%e212686212724%_ + (gx#stx-pair? _%tl216086216122%_)) + (let ((_%e216087216125%_ (let () (declare (not safe)) (gx#syntax-e - _%tl212685212721%_)))) - (let ((_%hd212687212728%_ + _%tl216086216122%_)))) + (let ((_%hd216088216129%_ (let () (declare (not safe)) - (##car _%e212686212724%_))) - (_%tl212688212731%_ + (##car _%e216087216125%_))) + (_%tl216089216132%_ (let () (declare (not safe)) - (##cdr _%e212686212724%_)))) + (##cdr _%e216087216125%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl212688212731%_)) - (let ((_%e212689212734%_ + _%tl216089216132%_)) + (let ((_%e216090216135%_ (let () (declare (not safe)) (gx#syntax-e - _%tl212688212731%_)))) - (let ((_%hd212690212738%_ + _%tl216089216132%_)))) + (let ((_%hd216091216139%_ (let () (declare (not safe)) - (##car _%e212689212734%_))) - (_%tl212691212741%_ + (##car _%e216090216135%_))) + (_%tl216092216142%_ (let () (declare (not safe)) - (##cdr _%e212689212734%_)))) + (##cdr _%e216090216135%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl212691212741%_)) - ((lambda (_%L212744%_ - _%L212746%_ - _%L212747%_) + _%tl216092216142%_)) + ((lambda (_%g216078216145%_ + _%g216079216147%_ + _%g216080216148%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1612,105 +1622,105 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L212747%_ '())) + (cons _%g216080216148%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L212746%_ '())) - (cons _%L212744%_ '()))))) - _%hd212690212738%_ - _%hd212687212728%_ - _%hd212684212718%_) - (_%g212675212697%_ _%g212676212701%_)))) + (cons _%g216079216147%_ '())) + (cons _%g216078216145%_ '()))))) + _%hd216091216139%_ + _%hd216088216129%_ + _%hd216085216119%_) + (_%g216076216098%_ _%g216077216102%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g212675212697%_ - _%g212676212701%_)))) - (_%g212675212697%_ _%g212676212701%_)))) - (_%g212675212697%_ _%g212676212701%_)))) - (_%g212675212697%_ _%g212676212701%_))))) - (_%g212674212766%_ _%$stx212671%_)))) + (_%g216076216098%_ + _%g216077216102%_)))) + (_%g216076216098%_ _%g216077216102%_)))) + (_%g216076216098%_ _%g216077216102%_)))) + (_%g216076216098%_ _%g216077216102%_))))) + (_%g216075216167%_ _%$stx216072%_)))) (define |gxc[:0:]#@mutator| - (lambda (_%$stx212770%_) - (let* ((_%g212774212796%_ - (lambda (_%g212775212792%_) + (lambda (_%$stx216171%_) + (let* ((_%g216175216197%_ + (lambda (_%g216176216193%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g212775212792%_)))) - (_%g212773212865%_ - (lambda (_%g212775212800%_) + _%g216176216193%_)))) + (_%g216174216266%_ + (lambda (_%g216176216201%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g212775212800%_)) - (let ((_%e212779212803%_ + (gx#stx-pair? _%g216176216201%_)) + (let ((_%e216180216204%_ (let () (declare (not safe)) - (gx#syntax-e _%g212775212800%_)))) - (let ((_%hd212780212807%_ + (gx#syntax-e _%g216176216201%_)))) + (let ((_%hd216181216208%_ (let () (declare (not safe)) - (##car _%e212779212803%_))) - (_%tl212781212810%_ + (##car _%e216180216204%_))) + (_%tl216182216211%_ (let () (declare (not safe)) - (##cdr _%e212779212803%_)))) + (##cdr _%e216180216204%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl212781212810%_)) - (let ((_%e212782212813%_ + (gx#stx-pair? _%tl216182216211%_)) + (let ((_%e216183216214%_ (let () (declare (not safe)) - (gx#syntax-e _%tl212781212810%_)))) - (let ((_%hd212783212817%_ + (gx#syntax-e _%tl216182216211%_)))) + (let ((_%hd216184216218%_ (let () (declare (not safe)) - (##car _%e212782212813%_))) - (_%tl212784212820%_ + (##car _%e216183216214%_))) + (_%tl216185216221%_ (let () (declare (not safe)) - (##cdr _%e212782212813%_)))) + (##cdr _%e216183216214%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl212784212820%_)) - (let ((_%e212785212823%_ + (gx#stx-pair? _%tl216185216221%_)) + (let ((_%e216186216224%_ (let () (declare (not safe)) (gx#syntax-e - _%tl212784212820%_)))) - (let ((_%hd212786212827%_ + _%tl216185216221%_)))) + (let ((_%hd216187216228%_ (let () (declare (not safe)) - (##car _%e212785212823%_))) - (_%tl212787212830%_ + (##car _%e216186216224%_))) + (_%tl216188216231%_ (let () (declare (not safe)) - (##cdr _%e212785212823%_)))) + (##cdr _%e216186216224%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl212787212830%_)) - (let ((_%e212788212833%_ + _%tl216188216231%_)) + (let ((_%e216189216234%_ (let () (declare (not safe)) (gx#syntax-e - _%tl212787212830%_)))) - (let ((_%hd212789212837%_ + _%tl216188216231%_)))) + (let ((_%hd216190216238%_ (let () (declare (not safe)) - (##car _%e212788212833%_))) - (_%tl212790212840%_ + (##car _%e216189216234%_))) + (_%tl216191216241%_ (let () (declare (not safe)) - (##cdr _%e212788212833%_)))) + (##cdr _%e216189216234%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl212790212840%_)) - ((lambda (_%L212843%_ - _%L212845%_ - _%L212846%_) + _%tl216191216241%_)) + ((lambda (_%g216177216244%_ + _%g216178216246%_ + _%g216179216247%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1718,69 +1728,69 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L212846%_ '())) + (cons _%g216179216247%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L212845%_ '())) - (cons _%L212843%_ '()))))) - _%hd212789212837%_ - _%hd212786212827%_ - _%hd212783212817%_) - (_%g212774212796%_ _%g212775212800%_)))) + (cons _%g216178216246%_ '())) + (cons _%g216177216244%_ '()))))) + _%hd216190216238%_ + _%hd216187216228%_ + _%hd216184216218%_) + (_%g216175216197%_ _%g216176216201%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g212774212796%_ - _%g212775212800%_)))) - (_%g212774212796%_ _%g212775212800%_)))) - (_%g212774212796%_ _%g212775212800%_)))) - (_%g212774212796%_ _%g212775212800%_))))) - (_%g212773212865%_ _%$stx212770%_)))) + (_%g216175216197%_ + _%g216176216201%_)))) + (_%g216175216197%_ _%g216176216201%_)))) + (_%g216175216197%_ _%g216176216201%_)))) + (_%g216175216197%_ _%g216176216201%_))))) + (_%g216174216266%_ _%$stx216171%_)))) (define |gxc[:0:]#@primitive-predicate| - (lambda (_%$stx212869%_) - (let* ((_%g212873212887%_ - (lambda (_%g212874212883%_) + (lambda (_%$stx216270%_) + (let* ((_%g216274216288%_ + (lambda (_%g216275216284%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g212874212883%_)))) - (_%g212872212928%_ - (lambda (_%g212874212891%_) + _%g216275216284%_)))) + (_%g216273216329%_ + (lambda (_%g216275216292%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g212874212891%_)) - (let ((_%e212876212894%_ + (gx#stx-pair? _%g216275216292%_)) + (let ((_%e216277216295%_ (let () (declare (not safe)) - (gx#syntax-e _%g212874212891%_)))) - (let ((_%hd212877212898%_ + (gx#syntax-e _%g216275216292%_)))) + (let ((_%hd216278216299%_ (let () (declare (not safe)) - (##car _%e212876212894%_))) - (_%tl212878212901%_ + (##car _%e216277216295%_))) + (_%tl216279216302%_ (let () (declare (not safe)) - (##cdr _%e212876212894%_)))) + (##cdr _%e216277216295%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl212878212901%_)) - (let ((_%e212879212904%_ + (gx#stx-pair? _%tl216279216302%_)) + (let ((_%e216280216305%_ (let () (declare (not safe)) - (gx#syntax-e _%tl212878212901%_)))) - (let ((_%hd212880212908%_ + (gx#syntax-e _%tl216279216302%_)))) + (let ((_%hd216281216309%_ (let () (declare (not safe)) - (##car _%e212879212904%_))) - (_%tl212881212911%_ + (##car _%e216280216305%_))) + (_%tl216282216312%_ (let () (declare (not safe)) - (##cdr _%e212879212904%_)))) + (##cdr _%e216280216305%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl212881212911%_)) - ((lambda (_%L212914%_) + (gx#stx-null? _%tl216282216312%_)) + ((lambda (_%g216276216315%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1792,80 +1802,80 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L212914%_ + (cons _%g216276216315%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd212880212908%_) - (_%g212873212887%_ _%g212874212891%_)))) - (_%g212873212887%_ _%g212874212891%_)))) - (_%g212873212887%_ _%g212874212891%_))))) - (_%g212872212928%_ _%$stx212869%_)))) + _%hd216281216309%_) + (_%g216274216288%_ _%g216275216292%_)))) + (_%g216274216288%_ _%g216275216292%_)))) + (_%g216274216288%_ _%g216275216292%_))))) + (_%g216273216329%_ _%$stx216270%_)))) (define |gxc[:0:]#@interface| - (lambda (_%$stx212932%_) - (let* ((_%g212936212954%_ - (lambda (_%g212937212950%_) + (lambda (_%$stx216333%_) + (let* ((_%g216337216355%_ + (lambda (_%g216338216351%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g212937212950%_)))) - (_%g212935213009%_ - (lambda (_%g212937212958%_) + _%g216338216351%_)))) + (_%g216336216410%_ + (lambda (_%g216338216359%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g212937212958%_)) - (let ((_%e212940212961%_ + (gx#stx-pair? _%g216338216359%_)) + (let ((_%e216341216362%_ (let () (declare (not safe)) - (gx#syntax-e _%g212937212958%_)))) - (let ((_%hd212941212965%_ + (gx#syntax-e _%g216338216359%_)))) + (let ((_%hd216342216366%_ (let () (declare (not safe)) - (##car _%e212940212961%_))) - (_%tl212942212968%_ + (##car _%e216341216362%_))) + (_%tl216343216369%_ (let () (declare (not safe)) - (##cdr _%e212940212961%_)))) + (##cdr _%e216341216362%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl212942212968%_)) - (let ((_%e212943212971%_ + (gx#stx-pair? _%tl216343216369%_)) + (let ((_%e216344216372%_ (let () (declare (not safe)) - (gx#syntax-e _%tl212942212968%_)))) - (let ((_%hd212944212975%_ + (gx#syntax-e _%tl216343216369%_)))) + (let ((_%hd216345216376%_ (let () (declare (not safe)) - (##car _%e212943212971%_))) - (_%tl212945212978%_ + (##car _%e216344216372%_))) + (_%tl216346216379%_ (let () (declare (not safe)) - (##cdr _%e212943212971%_)))) + (##cdr _%e216344216372%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl212945212978%_)) - (let ((_%e212946212981%_ + (gx#stx-pair? _%tl216346216379%_)) + (let ((_%e216347216382%_ (let () (declare (not safe)) (gx#syntax-e - _%tl212945212978%_)))) - (let ((_%hd212947212985%_ + _%tl216346216379%_)))) + (let ((_%hd216348216386%_ (let () (declare (not safe)) - (##car _%e212946212981%_))) - (_%tl212948212988%_ + (##car _%e216347216382%_))) + (_%tl216349216389%_ (let () (declare (not safe)) - (##cdr _%e212946212981%_)))) + (##cdr _%e216347216382%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl212948212988%_)) - ((lambda (_%L212991%_ - _%L212993%_) + _%tl216349216389%_)) + ((lambda (_%g216339216392%_ + _%g216340216394%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1875,59 +1885,61 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L212993%_ '())) + (cons _%g216340216394%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L212991%_ '())) + (cons _%g216339216392%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd212947212985%_ - _%hd212944212975%_) - (_%g212936212954%_ - _%g212937212958%_)))) - (_%g212936212954%_ _%g212937212958%_)))) - (_%g212936212954%_ _%g212937212958%_)))) - (_%g212936212954%_ _%g212937212958%_))))) - (_%g212935213009%_ _%$stx212932%_)))) + _%hd216348216386%_ + _%hd216345216376%_) + (_%g216337216355%_ + _%g216338216359%_)))) + (_%g216337216355%_ _%g216338216359%_)))) + (_%g216337216355%_ _%g216338216359%_)))) + (_%g216337216355%_ _%g216338216359%_))))) + (_%g216336216410%_ _%$stx216333%_)))) (define |gxc[:0:]#@lambda| - (lambda (_%$stx213013%_) - (let* ((_%__stx217355217356%_ _%$stx213013%_) - (_%g213020213081%_ + (lambda (_%$stx216414%_) + (let* ((_%__stx220730220731%_ _%$stx216414%_) + (_%g216421216482%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx217355217356%_))))) - (let ((_%__kont217358217359%_ - (lambda (_%L213319%_ _%L213321%_) + _%__stx220730220731%_))))) + (let ((_%__kont220733220734%_ + (lambda (_%g216423216720%_ _%g216424216722%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda)) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L213321%_ '())) + (cons _%g216424216722%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L213319%_ '())) + (cons _%g216423216720%_ '())) '()))))) - (_%__kont217360217361%_ - (lambda (_%L213258%_ _%L213260%_ _%L213261%_) + (_%__kont220735220736%_ + (lambda (_%g216434216659%_ + _%g216435216661%_ + _%g216436216662%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda)) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L213261%_ '())) + (cons _%g216436216662%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L213260%_ '())) + (cons _%g216435216661%_ '())) (cons 'signature: (cons (cons (let () (declare (not safe)) @@ -1942,478 +1954,481 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L213258%_ '())) + (cons _%g216434216659%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (_%__kont217362217363%_ - (lambda (_%L213182%_ _%L213184%_) - (cons _%L213184%_ (cons _%L213182%_ (cons '#f '()))))) - (_%__kont217364217365%_ - (lambda (_%L213132%_ _%L213134%_ _%L213135%_) - (cons _%L213135%_ - (cons _%L213134%_ + (_%__kont220737220738%_ + (lambda (_%g216453216583%_ _%g216454216585%_) + (cons _%g216454216585%_ + (cons _%g216453216583%_ (cons '#f '()))))) + (_%__kont220739220740%_ + (lambda (_%g216461216533%_ + _%g216462216535%_ + _%g216463216536%_) + (cons _%g216463216536%_ + (cons _%g216462216535%_ (cons '#f (cons 'signature: - (cons _%L213132%_ '())))))))) + (cons _%g216461216533%_ '())))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx217355217356%_)) - (let ((_%e213024213289%_ + (gx#stx-pair? _%__stx220730220731%_)) + (let ((_%e216425216690%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx217355217356%_)))) - (let ((_%tl213026213296%_ + (gx#syntax-e _%__stx220730220731%_)))) + (let ((_%tl216427216697%_ (let () (declare (not safe)) - (##cdr _%e213024213289%_))) - (_%hd213025213293%_ + (##cdr _%e216425216690%_))) + (_%hd216426216694%_ (let () (declare (not safe)) - (##car _%e213024213289%_)))) + (##car _%e216425216690%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl213026213296%_)) - (let ((_%e213027213299%_ + (gx#stx-pair? _%tl216427216697%_)) + (let ((_%e216428216700%_ (let () (declare (not safe)) - (gx#syntax-e _%tl213026213296%_)))) - (let ((_%tl213029213306%_ + (gx#syntax-e _%tl216427216697%_)))) + (let ((_%tl216430216707%_ (let () (declare (not safe)) - (##cdr _%e213027213299%_))) - (_%hd213028213303%_ + (##cdr _%e216428216700%_))) + (_%hd216429216704%_ (let () (declare (not safe)) - (##car _%e213027213299%_)))) + (##car _%e216428216700%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl213029213306%_)) - (let ((_%e213030213309%_ + (gx#stx-pair? _%tl216430216707%_)) + (let ((_%e216431216710%_ (let () (declare (not safe)) - (gx#syntax-e _%tl213029213306%_)))) - (let ((_%tl213032213316%_ + (gx#syntax-e _%tl216430216707%_)))) + (let ((_%tl216433216717%_ (let () (declare (not safe)) - (##cdr _%e213030213309%_))) - (_%hd213031213313%_ + (##cdr _%e216431216710%_))) + (_%hd216432216714%_ (let () (declare (not safe)) - (##car _%e213030213309%_)))) + (##car _%e216431216710%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl213032213316%_)) - (_%__kont217358217359%_ - _%hd213031213313%_ - _%hd213028213303%_) + (gx#stx-null? _%tl216433216717%_)) + (_%__kont220733220734%_ + _%hd216432216714%_ + _%hd216429216704%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl213032213316%_)) - (let ((_%e213045213234%_ + _%tl216433216717%_)) + (let ((_%e216446216635%_ (let () (declare (not safe)) (gx#syntax-e - _%tl213032213316%_)))) - (let ((_%tl213047213241%_ + _%tl216433216717%_)))) + (let ((_%tl216448216642%_ (let () (declare (not safe)) - (##cdr _%e213045213234%_))) - (_%hd213046213238%_ + (##cdr _%e216446216635%_))) + (_%hd216447216639%_ (let () (declare (not safe)) - (##car _%e213045213234%_)))) + (##car _%e216446216635%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd213046213238%_)) - (let ((_%e213048213244%_ + _%hd216447216639%_)) + (let ((_%e216449216645%_ (let () (declare (not safe)) (gx#stx-e - _%hd213046213238%_)))) - (if (equal? _%e213048213244%_ + _%hd216447216639%_)))) + (if (equal? _%e216449216645%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'signature:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl213047213241%_)) - (let ((_%e213049213248%_ + (gx#stx-pair? _%tl216448216642%_)) + (let ((_%e216450216649%_ (let () (declare (not safe)) - (gx#syntax-e _%tl213047213241%_)))) - (let ((_%tl213051213255%_ + (gx#syntax-e _%tl216448216642%_)))) + (let ((_%tl216452216656%_ (let () (declare (not safe)) - (##cdr _%e213049213248%_))) - (_%hd213050213252%_ + (##cdr _%e216450216649%_))) + (_%hd216451216653%_ (let () (declare (not safe)) - (##car _%e213049213248%_)))) + (##car _%e216450216649%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl213051213255%_)) - (_%__kont217360217361%_ - _%hd213050213252%_ - _%hd213031213313%_ - _%hd213028213303%_) + (gx#stx-null? _%tl216452216656%_)) + (_%__kont220735220736%_ + _%hd216451216653%_ + _%hd216432216714%_ + _%hd216429216704%_) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd213031213313%_)) - (let ((_%e213072213118%_ + (gx#stx-datum? _%hd216432216714%_)) + (let ((_%e216473216519%_ (let () (declare (not safe)) - (gx#stx-e _%hd213031213313%_)))) + (gx#stx-e _%hd216432216714%_)))) (declare (not safe)) - (_%g213020213081%_)) + (_%g216421216482%_)) (let () (declare (not safe)) - (_%g213020213081%_)))))) + (_%g216421216482%_)))))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd213031213313%_)) - (let ((_%e213072213118%_ + (gx#stx-datum? _%hd216432216714%_)) + (let ((_%e216473216519%_ (let () (declare (not safe)) - (gx#stx-e _%hd213031213313%_)))) - (if (equal? _%e213072213118%_ 'signature:) + (gx#stx-e _%hd216432216714%_)))) + (if (equal? _%e216473216519%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl213047213241%_)) - (_%__kont217364217365%_ - _%hd213046213238%_ - _%hd213028213303%_ - _%hd213025213293%_) + (gx#stx-null? _%tl216448216642%_)) + (_%__kont220739220740%_ + _%hd216447216639%_ + _%hd216429216704%_ + _%hd216426216694%_) (let () (declare (not safe)) - (_%g213020213081%_))) + (_%g216421216482%_))) (let () (declare (not safe)) - (_%g213020213081%_)))) - (let () (declare (not safe)) (_%g213020213081%_)))) + (_%g216421216482%_)))) + (let () (declare (not safe)) (_%g216421216482%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd213031213313%_)) - (let ((_%e213072213118%_ + (gx#stx-datum? _%hd216432216714%_)) + (let ((_%e216473216519%_ (let () (declare (not safe)) - (gx#stx-e _%hd213031213313%_)))) - (if (equal? _%e213072213118%_ 'signature:) + (gx#stx-e _%hd216432216714%_)))) + (if (equal? _%e216473216519%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl213047213241%_)) - (_%__kont217364217365%_ - _%hd213046213238%_ - _%hd213028213303%_ - _%hd213025213293%_) + (gx#stx-null? _%tl216448216642%_)) + (_%__kont220739220740%_ + _%hd216447216639%_ + _%hd216429216704%_ + _%hd216426216694%_) (let () (declare (not safe)) - (_%g213020213081%_))) - (let () (declare (not safe)) (_%g213020213081%_)))) - (let () (declare (not safe)) (_%g213020213081%_))))) + (_%g216421216482%_))) + (let () (declare (not safe)) (_%g216421216482%_)))) + (let () (declare (not safe)) (_%g216421216482%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _%hd213031213313%_)) - (let ((_%e213072213118%_ + _%hd216432216714%_)) + (let ((_%e216473216519%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd213031213313%_)))) - (if (equal? _%e213072213118%_ 'signature:) + (gx#stx-e _%hd216432216714%_)))) + (if (equal? _%e216473216519%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl213047213241%_)) - (_%__kont217364217365%_ - _%hd213046213238%_ - _%hd213028213303%_ - _%hd213025213293%_) - (let () (declare (not safe)) (_%g213020213081%_))) - (let () (declare (not safe)) (_%g213020213081%_)))) - (let () (declare (not safe)) (_%g213020213081%_)))))) + (gx#stx-null? _%tl216448216642%_)) + (_%__kont220739220740%_ + _%hd216447216639%_ + _%hd216429216704%_ + _%hd216426216694%_) + (let () (declare (not safe)) (_%g216421216482%_))) + (let () (declare (not safe)) (_%g216421216482%_)))) + (let () (declare (not safe)) (_%g216421216482%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _%hd213031213313%_)) - (let ((_%e213072213118%_ + _%hd216432216714%_)) + (let ((_%e216473216519%_ (let () (declare (not safe)) (gx#stx-e - _%hd213031213313%_)))) + _%hd216432216714%_)))) (declare (not safe)) - (_%g213020213081%_)) + (_%g216421216482%_)) (let () (declare (not safe)) - (_%g213020213081%_))))))) + (_%g216421216482%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl213029213306%_)) - (_%__kont217362217363%_ - _%hd213028213303%_ - _%hd213025213293%_) + (gx#stx-null? _%tl216430216707%_)) + (_%__kont220737220738%_ + _%hd216429216704%_ + _%hd216426216694%_) (let () (declare (not safe)) - (_%g213020213081%_)))))) - (let () (declare (not safe)) (_%g213020213081%_))))) - (let () (declare (not safe)) (_%g213020213081%_))))))) + (_%g216421216482%_)))))) + (let () (declare (not safe)) (_%g216421216482%_))))) + (let () (declare (not safe)) (_%g216421216482%_))))))) (define |gxc[:0:]#@case-lambda| - (lambda (_%$stx213340%_) - (let* ((_%g213344213373%_ - (lambda (_%g213345213369%_) + (lambda (_%$stx216741%_) + (let* ((_%g216745216774%_ + (lambda (_%g216746216770%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g213345213369%_)))) - (_%g213343213482%_ - (lambda (_%g213345213377%_) + _%g216746216770%_)))) + (_%g216744216879%_ + (lambda (_%g216746216778%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g213345213377%_)) - (let ((_%e213347213380%_ + (gx#stx-pair? _%g216746216778%_)) + (let ((_%e216748216781%_ (let () (declare (not safe)) - (gx#syntax-e _%g213345213377%_)))) - (let ((_%hd213348213384%_ + (gx#syntax-e _%g216746216778%_)))) + (let ((_%hd216749216785%_ (let () (declare (not safe)) - (##car _%e213347213380%_))) - (_%tl213349213387%_ + (##car _%e216748216781%_))) + (_%tl216750216788%_ (let () (declare (not safe)) - (##cdr _%e213347213380%_)))) + (##cdr _%e216748216781%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl213349213387%_)) - (let ((_g217985_ + (gx#stx-pair/null? _%tl216750216788%_)) + (let ((_g221360_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl213349213387%_ + _%tl216750216788%_ '0)))) (begin - (let ((_g217986_ + (let ((_g221361_ (let () (declare (not safe)) - (if (##values? _g217985_) - (##values-length _g217985_) + (if (##values? _g221360_) + (##values-length _g221360_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g217986_ 2))) + (##fx= _g221361_ 2))) (error "Context expects 2 values" - _g217986_))) - (let ((_%target213350213390%_ + _g221361_))) + (let ((_%target216751216791%_ (let () (declare (not safe)) - (##values-ref _g217985_ 0))) - (_%tl213352213393%_ + (##values-ref _g221360_ 0))) + (_%tl216753216794%_ (let () (declare (not safe)) - (##values-ref _g217985_ 1)))) + (##values-ref _g221360_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl213352213393%_)) - (letrec ((_%loop213353213396%_ - (lambda (_%hd213351213400%_ - _%clause213357213403%_) + (gx#stx-null? _%tl216753216794%_)) + (letrec ((_%loop216754216797%_ + (lambda (_%hd216752216801%_ + _%clause216758216804%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd213351213400%_)) - (let ((_%e213354213406%_ + _%hd216752216801%_)) + (let ((_%e216755216806%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd213351213400%_)))) - (let ((_%lp-hd213355213410%_ + (gx#syntax-e _%hd216752216801%_)))) + (let ((_%lp-hd216756216810%_ (let () (declare (not safe)) - (##car _%e213354213406%_))) - (_%lp-tl213356213413%_ + (##car _%e216755216806%_))) + (_%lp-tl216757216813%_ (let () (declare (not safe)) - (##cdr _%e213354213406%_)))) + (##cdr _%e216755216806%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%lp-hd213355213410%_)) - (let ((_g217987_ + (gx#stx-pair/null? _%lp-hd216756216810%_)) + (let ((_g221362_ (let () (declare (not safe)) (gx#syntax-split-splice - _%lp-hd213355213410%_ + _%lp-hd216756216810%_ '0)))) (begin - (let ((_g217988_ + (let ((_g221363_ (let () (declare (not safe)) - (if (##values? _g217987_) - (##values-length _g217987_) + (if (##values? _g221362_) + (##values-length _g221362_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g217988_ 2))) + (##fx= _g221363_ 2))) (error "Context expects 2 values" - _g217988_))) - (let ((_%target213359213416%_ + _g221363_))) + (let ((_%target216760216816%_ (let () (declare (not safe)) - (##values-ref _g217987_ 0))) - (_%tl213361213419%_ + (##values-ref _g221362_ 0))) + (_%tl216762216819%_ (let () (declare (not safe)) - (##values-ref _g217987_ 1)))) + (##values-ref _g221362_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl213361213419%_)) - (letrec ((_%loop213362213422%_ - (lambda (_%hd213360213426%_ - _%clause213366213429%_) + (gx#stx-null? _%tl216762216819%_)) + (letrec ((_%loop216763216822%_ + (lambda (_%hd216761216826%_ + _%clause216767216829%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd213360213426%_)) - (let ((_%e213363213432%_ + _%hd216761216826%_)) + (let ((_%e216764216831%_ (let () (declare (not safe)) (gx#syntax-e - _%hd213360213426%_)))) - (let ((_%lp-hd213364213436%_ + _%hd216761216826%_)))) + (let ((_%lp-hd216765216835%_ (let () (declare (not safe)) - (##car _%e213363213432%_))) - (_%lp-tl213365213439%_ + (##car _%e216764216831%_))) + (_%lp-tl216766216838%_ (let () (declare (not safe)) - (##cdr _%e213363213432%_)))) - (_%loop213362213422%_ - _%lp-tl213365213439%_ - (cons _%lp-hd213364213436%_ - _%clause213366213429%_)))) - (let ((_%clause213367213442%_ - (reverse _%clause213366213429%_))) - (_%loop213353213396%_ - _%lp-tl213356213413%_ - (cons _%clause213367213442%_ - _%clause213357213403%_))))))) - (_%loop213362213422%_ - _%target213359213416%_ + (##cdr _%e216764216831%_)))) + (_%loop216763216822%_ + _%lp-tl216766216838%_ + (cons _%lp-hd216765216835%_ + _%clause216767216829%_)))) + (let ((_%clause216768216841%_ + (reverse _%clause216767216829%_))) + (_%loop216754216797%_ + _%lp-tl216757216813%_ + (cons _%clause216768216841%_ + _%clause216758216804%_))))))) + (_%loop216763216822%_ + _%target216760216816%_ '())) - (_%g213344213373%_ _%g213345213377%_))))) - (_%g213344213373%_ _%g213345213377%_)))) - (let ((_%clause213358213446%_ - (reverse _%clause213357213403%_))) - ((lambda (_%L213450%_) + (_%g216745216774%_ _%g216746216778%_))))) + (_%g216745216774%_ _%g216746216778%_)))) + (let ((_%clause216759216844%_ + (reverse _%clause216758216804%_))) + ((lambda (_%g216747216847%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!case-lambda)) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)) - (let ((__tmp217989 - (lambda (_%g213465213470%_ - _%g213466213473%_) + (let ((__tmp221364 + (lambda (_%g216862216867%_ + _%g216863216870%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda)) - (let ((__tmp217990 + (let ((__tmp221365 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g213467213476%_ _%g213468213479%_) - (cons _%g213467213476%_ _%g213468213479%_)))) + (lambda (_%g216864216873%_ _%g216865216876%_) + (cons _%g216864216873%_ _%g216865216876%_)))) (declare (not safe)) - (__foldr1 __tmp217990 '() _%g213465213470%_))) - _%g213466213473%_)))) + (__foldr1 __tmp221365 '() _%g216862216867%_))) + _%g216863216870%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp217989 + __tmp221364 '() - _%L213450%_))) + _%g216747216847%_))) '()))) - _%clause213358213446%_)))))) + _%clause216759216844%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop213353213396%_ - _%target213350213390%_ + (_%loop216754216797%_ + _%target216751216791%_ '())) - (_%g213344213373%_ - _%g213345213377%_))))) - (_%g213344213373%_ _%g213345213377%_)))) - (_%g213344213373%_ _%g213345213377%_))))) - (_%g213343213482%_ _%$stx213340%_)))) + (_%g216745216774%_ + _%g216746216778%_))))) + (_%g216745216774%_ _%g216746216778%_)))) + (_%g216745216774%_ _%g216746216778%_))))) + (_%g216744216879%_ _%$stx216741%_)))) (define |gxc[:0:]#@kw-lambda| - (lambda (_%$stx213488%_) - (let* ((_%g213492213510%_ - (lambda (_%g213493213506%_) + (lambda (_%$stx216885%_) + (let* ((_%g216889216907%_ + (lambda (_%g216890216903%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g213493213506%_)))) - (_%g213491213565%_ - (lambda (_%g213493213514%_) + _%g216890216903%_)))) + (_%g216888216962%_ + (lambda (_%g216890216911%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g213493213514%_)) - (let ((_%e213496213517%_ + (gx#stx-pair? _%g216890216911%_)) + (let ((_%e216893216914%_ (let () (declare (not safe)) - (gx#syntax-e _%g213493213514%_)))) - (let ((_%hd213497213521%_ + (gx#syntax-e _%g216890216911%_)))) + (let ((_%hd216894216918%_ (let () (declare (not safe)) - (##car _%e213496213517%_))) - (_%tl213498213524%_ + (##car _%e216893216914%_))) + (_%tl216895216921%_ (let () (declare (not safe)) - (##cdr _%e213496213517%_)))) + (##cdr _%e216893216914%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl213498213524%_)) - (let ((_%e213499213527%_ + (gx#stx-pair? _%tl216895216921%_)) + (let ((_%e216896216924%_ (let () (declare (not safe)) - (gx#syntax-e _%tl213498213524%_)))) - (let ((_%hd213500213531%_ + (gx#syntax-e _%tl216895216921%_)))) + (let ((_%hd216897216928%_ (let () (declare (not safe)) - (##car _%e213499213527%_))) - (_%tl213501213534%_ + (##car _%e216896216924%_))) + (_%tl216898216931%_ (let () (declare (not safe)) - (##cdr _%e213499213527%_)))) + (##cdr _%e216896216924%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl213501213534%_)) - (let ((_%e213502213537%_ + (gx#stx-pair? _%tl216898216931%_)) + (let ((_%e216899216934%_ (let () (declare (not safe)) (gx#syntax-e - _%tl213501213534%_)))) - (let ((_%hd213503213541%_ + _%tl216898216931%_)))) + (let ((_%hd216900216938%_ (let () (declare (not safe)) - (##car _%e213502213537%_))) - (_%tl213504213544%_ + (##car _%e216899216934%_))) + (_%tl216901216941%_ (let () (declare (not safe)) - (##cdr _%e213502213537%_)))) + (##cdr _%e216899216934%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl213504213544%_)) - ((lambda (_%L213547%_ - _%L213549%_) + _%tl216901216941%_)) + ((lambda (_%g216891216944%_ + _%g216892216946%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2423,85 +2438,85 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L213549%_ '())) + (cons _%g216892216946%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L213547%_ '())) + (cons _%g216891216944%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd213503213541%_ - _%hd213500213531%_) - (_%g213492213510%_ - _%g213493213514%_)))) - (_%g213492213510%_ _%g213493213514%_)))) - (_%g213492213510%_ _%g213493213514%_)))) - (_%g213492213510%_ _%g213493213514%_))))) - (_%g213491213565%_ _%$stx213488%_)))) + _%hd216900216938%_ + _%hd216897216928%_) + (_%g216889216907%_ + _%g216890216911%_)))) + (_%g216889216907%_ _%g216890216911%_)))) + (_%g216889216907%_ _%g216890216911%_)))) + (_%g216889216907%_ _%g216890216911%_))))) + (_%g216888216962%_ _%$stx216885%_)))) (define |gxc[:0:]#@kw-lambda-dispatch| - (lambda (_%$stx213569%_) - (let* ((_%g213573213591%_ - (lambda (_%g213574213587%_) + (lambda (_%$stx216966%_) + (let* ((_%g216970216988%_ + (lambda (_%g216971216984%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g213574213587%_)))) - (_%g213572213646%_ - (lambda (_%g213574213595%_) + _%g216971216984%_)))) + (_%g216969217043%_ + (lambda (_%g216971216992%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g213574213595%_)) - (let ((_%e213577213598%_ + (gx#stx-pair? _%g216971216992%_)) + (let ((_%e216974216995%_ (let () (declare (not safe)) - (gx#syntax-e _%g213574213595%_)))) - (let ((_%hd213578213602%_ + (gx#syntax-e _%g216971216992%_)))) + (let ((_%hd216975216999%_ (let () (declare (not safe)) - (##car _%e213577213598%_))) - (_%tl213579213605%_ + (##car _%e216974216995%_))) + (_%tl216976217002%_ (let () (declare (not safe)) - (##cdr _%e213577213598%_)))) + (##cdr _%e216974216995%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl213579213605%_)) - (let ((_%e213580213608%_ + (gx#stx-pair? _%tl216976217002%_)) + (let ((_%e216977217005%_ (let () (declare (not safe)) - (gx#syntax-e _%tl213579213605%_)))) - (let ((_%hd213581213612%_ + (gx#syntax-e _%tl216976217002%_)))) + (let ((_%hd216978217009%_ (let () (declare (not safe)) - (##car _%e213580213608%_))) - (_%tl213582213615%_ + (##car _%e216977217005%_))) + (_%tl216979217012%_ (let () (declare (not safe)) - (##cdr _%e213580213608%_)))) + (##cdr _%e216977217005%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl213582213615%_)) - (let ((_%e213583213618%_ + (gx#stx-pair? _%tl216979217012%_)) + (let ((_%e216980217015%_ (let () (declare (not safe)) (gx#syntax-e - _%tl213582213615%_)))) - (let ((_%hd213584213622%_ + _%tl216979217012%_)))) + (let ((_%hd216981217019%_ (let () (declare (not safe)) - (##car _%e213583213618%_))) - (_%tl213585213625%_ + (##car _%e216980217015%_))) + (_%tl216982217022%_ (let () (declare (not safe)) - (##cdr _%e213583213618%_)))) + (##cdr _%e216980217015%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl213585213625%_)) - ((lambda (_%L213628%_ - _%L213630%_) + _%tl216982217022%_)) + ((lambda (_%g216972217025%_ + _%g216973217027%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2511,147 +2526,147 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L213630%_ '())) + (cons _%g216973217027%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L213628%_ '())) + (cons _%g216972217025%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd213584213622%_ - _%hd213581213612%_) - (_%g213573213591%_ - _%g213574213595%_)))) - (_%g213573213591%_ _%g213574213595%_)))) - (_%g213573213591%_ _%g213574213595%_)))) - (_%g213573213591%_ _%g213574213595%_))))) - (_%g213572213646%_ _%$stx213569%_)))) + _%hd216981217019%_ + _%hd216978217009%_) + (_%g216970216988%_ + _%g216971216992%_)))) + (_%g216970216988%_ _%g216971216992%_)))) + (_%g216970216988%_ _%g216971216992%_)))) + (_%g216970216988%_ _%g216971216992%_))))) + (_%g216969217043%_ _%$stx216966%_)))) (define |gxc[:0:]#declare-inline-rules!| - (lambda (_%$stx213650%_) - (let* ((_%g213654213683%_ - (lambda (_%g213655213679%_) + (lambda (_%$stx217047%_) + (let* ((_%g217051217080%_ + (lambda (_%g217052217076%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g213655213679%_)))) - (_%g213653213783%_ - (lambda (_%g213655213687%_) + _%g217052217076%_)))) + (_%g217050217176%_ + (lambda (_%g217052217084%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g213655213687%_)) - (let ((_%e213658213690%_ + (gx#stx-pair? _%g217052217084%_)) + (let ((_%e217055217087%_ (let () (declare (not safe)) - (gx#syntax-e _%g213655213687%_)))) - (let ((_%hd213659213694%_ + (gx#syntax-e _%g217052217084%_)))) + (let ((_%hd217056217091%_ (let () (declare (not safe)) - (##car _%e213658213690%_))) - (_%tl213660213697%_ + (##car _%e217055217087%_))) + (_%tl217057217094%_ (let () (declare (not safe)) - (##cdr _%e213658213690%_)))) + (##cdr _%e217055217087%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl213660213697%_)) - (let ((_g217991_ + (gx#stx-pair/null? _%tl217057217094%_)) + (let ((_g221366_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl213660213697%_ + _%tl217057217094%_ '0)))) (begin - (let ((_g217992_ + (let ((_g221367_ (let () (declare (not safe)) - (if (##values? _g217991_) - (##values-length _g217991_) + (if (##values? _g221366_) + (##values-length _g221366_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g217992_ 2))) + (##fx= _g221367_ 2))) (error "Context expects 2 values" - _g217992_))) - (let ((_%target213661213700%_ + _g221367_))) + (let ((_%target217058217097%_ (let () (declare (not safe)) - (##values-ref _g217991_ 0))) - (_%tl213663213703%_ + (##values-ref _g221366_ 0))) + (_%tl217060217100%_ (let () (declare (not safe)) - (##values-ref _g217991_ 1)))) + (##values-ref _g221366_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl213663213703%_)) - (letrec ((_%loop213664213706%_ - (lambda (_%hd213662213710%_ - _%rule213668213713%_ - _%proc213669213715%_) + (gx#stx-null? _%tl217060217100%_)) + (letrec ((_%loop217061217103%_ + (lambda (_%hd217059217107%_ + _%rule217065217110%_ + _%proc217066217111%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd213662213710%_)) - (let ((_%e213665213718%_ + _%hd217059217107%_)) + (let ((_%e217062217113%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd213662213710%_)))) - (let ((_%lp-hd213666213722%_ + (gx#syntax-e _%hd217059217107%_)))) + (let ((_%lp-hd217063217117%_ (let () (declare (not safe)) - (##car _%e213665213718%_))) - (_%lp-tl213667213725%_ + (##car _%e217062217113%_))) + (_%lp-tl217064217120%_ (let () (declare (not safe)) - (##cdr _%e213665213718%_)))) + (##cdr _%e217062217113%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd213666213722%_)) - (let ((_%e213672213728%_ + (gx#stx-pair? _%lp-hd217063217117%_)) + (let ((_%e217069217123%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd213666213722%_)))) - (let ((_%hd213673213732%_ + (gx#syntax-e _%lp-hd217063217117%_)))) + (let ((_%hd217070217127%_ (let () (declare (not safe)) - (##car _%e213672213728%_))) - (_%tl213674213735%_ + (##car _%e217069217123%_))) + (_%tl217071217130%_ (let () (declare (not safe)) - (##cdr _%e213672213728%_)))) + (##cdr _%e217069217123%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl213674213735%_)) - (let ((_%e213675213738%_ + (gx#stx-pair? _%tl217071217130%_)) + (let ((_%e217072217133%_ (let () (declare (not safe)) - (gx#syntax-e _%tl213674213735%_)))) - (let ((_%hd213676213742%_ + (gx#syntax-e _%tl217071217130%_)))) + (let ((_%hd217073217137%_ (let () (declare (not safe)) - (##car _%e213675213738%_))) - (_%tl213677213745%_ + (##car _%e217072217133%_))) + (_%tl217074217140%_ (let () (declare (not safe)) - (##cdr _%e213675213738%_)))) + (##cdr _%e217072217133%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl213677213745%_)) - (_%loop213664213706%_ - _%lp-tl213667213725%_ - (cons _%hd213676213742%_ - _%rule213668213713%_) - (cons _%hd213673213732%_ - _%proc213669213715%_)) - (_%g213654213683%_ - _%g213655213687%_)))) - (_%g213654213683%_ _%g213655213687%_)))) - (_%g213654213683%_ _%g213655213687%_)))) - (let ((_%rule213670213748%_ (reverse _%rule213668213713%_)) - (_%proc213671213751%_ (reverse _%proc213669213715%_))) - ((lambda (_%L213754%_ _%L213756%_) + (gx#stx-null? _%tl217074217140%_)) + (_%loop217061217103%_ + _%lp-tl217064217120%_ + (cons _%hd217073217137%_ + _%rule217065217110%_) + (cons _%hd217070217127%_ + _%proc217066217111%_)) + (_%g217051217080%_ + _%g217052217084%_)))) + (_%g217051217080%_ _%g217052217084%_)))) + (_%g217051217080%_ _%g217052217084%_)))) + (let ((_%rule217067217143%_ (reverse _%rule217065217110%_)) + (_%proc217068217145%_ (reverse _%proc217066217111%_))) + ((lambda (_%g217053217147%_ _%g217054217149%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2659,103 +2674,103 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L213754%_ - _%L213756%_)) - (let ((__tmp217993 - (lambda (_%g213771213775%_ - _%g213772213778%_ - _%g213773213780%_) + _%g217053217147%_ + _%g217054217149%_)) + (let ((__tmp221368 + (lambda (_%g217164217168%_ + _%g217165217171%_ + _%g217166217173%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-inline-rule!)) - (cons _%g213772213778%_ - (cons _%g213771213775%_ + (cons _%g217165217171%_ + (cons _%g217164217168%_ '()))) - _%g213773213780%_)))) + _%g217166217173%_)))) (declare (not safe)) (__foldr2 - __tmp217993 + __tmp221368 '() - _%L213754%_ - _%L213756%_))))) - _%rule213670213748%_ - _%proc213671213751%_)))))) + _%g217053217147%_ + _%g217054217149%_))))) + _%rule217067217143%_ + _%proc217068217145%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop213664213706%_ - _%target213661213700%_ + (_%loop217061217103%_ + _%target217058217097%_ '() '())) - (_%g213654213683%_ - _%g213655213687%_))))) - (_%g213654213683%_ _%g213655213687%_)))) - (_%g213654213683%_ _%g213655213687%_))))) - (_%g213653213783%_ _%$stx213650%_)))) + (_%g217051217080%_ + _%g217052217084%_))))) + (_%g217051217080%_ _%g217052217084%_)))) + (_%g217051217080%_ _%g217052217084%_))))) + (_%g217050217176%_ _%$stx217047%_)))) (define |gxc[:0:]#declare-inline-rule!| - (lambda (_%$stx213788%_) - (let* ((_%g213792213810%_ - (lambda (_%g213793213806%_) + (lambda (_%$stx217181%_) + (let* ((_%g217185217203%_ + (lambda (_%g217186217199%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g213793213806%_)))) - (_%g213791213865%_ - (lambda (_%g213793213814%_) + _%g217186217199%_)))) + (_%g217184217258%_ + (lambda (_%g217186217207%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g213793213814%_)) - (let ((_%e213796213817%_ + (gx#stx-pair? _%g217186217207%_)) + (let ((_%e217189217210%_ (let () (declare (not safe)) - (gx#syntax-e _%g213793213814%_)))) - (let ((_%hd213797213821%_ + (gx#syntax-e _%g217186217207%_)))) + (let ((_%hd217190217214%_ (let () (declare (not safe)) - (##car _%e213796213817%_))) - (_%tl213798213824%_ + (##car _%e217189217210%_))) + (_%tl217191217217%_ (let () (declare (not safe)) - (##cdr _%e213796213817%_)))) + (##cdr _%e217189217210%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl213798213824%_)) - (let ((_%e213799213827%_ + (gx#stx-pair? _%tl217191217217%_)) + (let ((_%e217192217220%_ (let () (declare (not safe)) - (gx#syntax-e _%tl213798213824%_)))) - (let ((_%hd213800213831%_ + (gx#syntax-e _%tl217191217217%_)))) + (let ((_%hd217193217224%_ (let () (declare (not safe)) - (##car _%e213799213827%_))) - (_%tl213801213834%_ + (##car _%e217192217220%_))) + (_%tl217194217227%_ (let () (declare (not safe)) - (##cdr _%e213799213827%_)))) + (##cdr _%e217192217220%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl213801213834%_)) - (let ((_%e213802213837%_ + (gx#stx-pair? _%tl217194217227%_)) + (let ((_%e217195217230%_ (let () (declare (not safe)) (gx#syntax-e - _%tl213801213834%_)))) - (let ((_%hd213803213841%_ + _%tl217194217227%_)))) + (let ((_%hd217196217234%_ (let () (declare (not safe)) - (##car _%e213802213837%_))) - (_%tl213804213844%_ + (##car _%e217195217230%_))) + (_%tl217197217237%_ (let () (declare (not safe)) - (##cdr _%e213802213837%_)))) + (##cdr _%e217195217230%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl213804213844%_)) - ((lambda (_%L213847%_ - _%L213849%_) + _%tl217197217237%_)) + ((lambda (_%g217187217240%_ + _%g217188217242%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2775,7 +2790,8 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L213849%_ '())) + (cons _%g217188217242%_ + '())) '())) '())) (cons (cons (let () @@ -2805,7 +2821,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'type)) '())) - (cons _%L213847%_ '()))) + (cons _%g217187217240%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare (not safe)) @@ -2817,39 +2833,41 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L213849%_ '())) + (cons _%g217188217242%_ '())) (cons '"; ignoring inline rule" '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd213803213841%_ - _%hd213800213831%_) - (_%g213792213810%_ - _%g213793213814%_)))) - (_%g213792213810%_ _%g213793213814%_)))) - (_%g213792213810%_ _%g213793213814%_)))) - (_%g213792213810%_ _%g213793213814%_))))) - (_%g213791213865%_ _%$stx213788%_)))) + _%hd217196217234%_ + _%hd217193217224%_) + (_%g217185217203%_ + _%g217186217207%_)))) + (_%g217185217203%_ _%g217186217207%_)))) + (_%g217185217203%_ _%g217186217207%_)))) + (_%g217185217203%_ _%g217186217207%_))))) + (_%g217184217258%_ _%$stx217181%_)))) (define |gxc[:0:]#declare-primitive-predicates| - (lambda (_%$stx213869%_) - (let* ((_%__stx217473217474%_ _%$stx213869%_) - (_%g213874213899%_ + (lambda (_%$stx217262%_) + (let* ((_%__stx220848220849%_ _%$stx217262%_) + (_%g217267217292%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx217473217474%_))))) - (let ((_%__kont217476217477%_ + _%__stx220848220849%_))))) + (let ((_%__kont220851220852%_ (lambda () (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) '()))) - (_%__kont217478217479%_ - (lambda (_%L213946%_ _%L213948%_ _%L213949%_) + (_%__kont220853220854%_ + (lambda (_%g217272217339%_ + _%g217273217341%_ + _%g217274217342%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2858,121 +2876,124 @@ (gx#datum->syntax__0 '#f 'declare-primitive-predicate)) - (cons _%L213949%_ (cons _%L213948%_ '()))) + (cons _%g217274217342%_ + (cons _%g217273217341%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-predicates)) - _%L213946%_) + _%g217272217339%_) '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx217473217474%_)) - (let ((_%e213876213975%_ + (gx#stx-pair? _%__stx220848220849%_)) + (let ((_%e217269217368%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx217473217474%_)))) - (let ((_%tl213878213982%_ + (gx#syntax-e _%__stx220848220849%_)))) + (let ((_%tl217271217375%_ (let () (declare (not safe)) - (##cdr _%e213876213975%_))) - (_%hd213877213979%_ + (##cdr _%e217269217368%_))) + (_%hd217270217372%_ (let () (declare (not safe)) - (##car _%e213876213975%_)))) + (##car _%e217269217368%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl213878213982%_)) - (_%__kont217476217477%_) + (gx#stx-null? _%tl217271217375%_)) + (_%__kont220851220852%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl213878213982%_)) - (let ((_%e213885213916%_ + (gx#stx-pair? _%tl217271217375%_)) + (let ((_%e217278217309%_ (let () (declare (not safe)) - (gx#syntax-e _%tl213878213982%_)))) - (let ((_%tl213887213923%_ + (gx#syntax-e _%tl217271217375%_)))) + (let ((_%tl217280217316%_ (let () (declare (not safe)) - (##cdr _%e213885213916%_))) - (_%hd213886213920%_ + (##cdr _%e217278217309%_))) + (_%hd217279217313%_ (let () (declare (not safe)) - (##car _%e213885213916%_)))) + (##car _%e217278217309%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd213886213920%_)) - (let ((_%e213888213926%_ + (gx#stx-pair? _%hd217279217313%_)) + (let ((_%e217281217319%_ (let () (declare (not safe)) (gx#syntax-e - _%hd213886213920%_)))) - (let ((_%tl213890213933%_ + _%hd217279217313%_)))) + (let ((_%tl217283217326%_ (let () (declare (not safe)) - (##cdr _%e213888213926%_))) - (_%hd213889213930%_ + (##cdr _%e217281217319%_))) + (_%hd217282217323%_ (let () (declare (not safe)) - (##car _%e213888213926%_)))) + (##car _%e217281217319%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl213890213933%_)) - (let ((_%e213891213936%_ + _%tl217283217326%_)) + (let ((_%e217284217329%_ (let () (declare (not safe)) (gx#syntax-e - _%tl213890213933%_)))) - (let ((_%tl213893213943%_ + _%tl217283217326%_)))) + (let ((_%tl217286217336%_ (let () (declare (not safe)) - (##cdr _%e213891213936%_))) - (_%hd213892213940%_ + (##cdr _%e217284217329%_))) + (_%hd217285217333%_ (let () (declare (not safe)) - (##car _%e213891213936%_)))) + (##car _%e217284217329%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl213893213943%_)) - (_%__kont217478217479%_ - _%tl213887213923%_ - _%hd213892213940%_ - _%hd213889213930%_) + _%tl217286217336%_)) + (_%__kont220853220854%_ + _%tl217280217316%_ + _%hd217285217333%_ + _%hd217282217323%_) (let () (declare (not safe)) - (_%g213874213899%_))))) + (_%g217267217292%_))))) (let () (declare (not safe)) - (_%g213874213899%_))))) + (_%g217267217292%_))))) (let () (declare (not safe)) - (_%g213874213899%_))))) + (_%g217267217292%_))))) (let () (declare (not safe)) - (_%g213874213899%_)))))) - (let () (declare (not safe)) (_%g213874213899%_))))))) + (_%g217267217292%_)))))) + (let () (declare (not safe)) (_%g217267217292%_))))))) (define |gxc[:0:]#declare-primitive-procedures| - (lambda (_%$stx213993%_) - (let* ((_%__stx217517217518%_ _%$stx213993%_) - (_%g213998214029%_ + (lambda (_%$stx217386%_) + (let* ((_%__stx220892220893%_ _%$stx217386%_) + (_%g217391217422%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx217517217518%_))))) - (let ((_%__kont217520217521%_ + _%__stx220892220893%_))))) + (let ((_%__kont220895220896%_ (lambda () (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) '()))) - (_%__kont217522217523%_ - (lambda (_%L214096%_ _%L214098%_ _%L214099%_) + (_%__kont220897220898%_ + (lambda (_%g217396217487%_ + _%g217397217489%_ + _%g217398217490%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2981,889 +3002,895 @@ (gx#datum->syntax__0 '#f 'declare-primitive-procedure)) - (cons _%L214099%_ - (let ((__tmp217994 - (lambda (_%g214119214122%_ - _%g214120214125%_) - (cons _%g214119214122%_ - _%g214120214125%_)))) + (cons _%g217398217490%_ + (let ((__tmp221369 + (lambda (_%g217510217513%_ + _%g217511217516%_) + (cons _%g217510217513%_ + _%g217511217516%_)))) (declare (not safe)) (__foldr1 - __tmp217994 + __tmp221369 '() - _%L214098%_)))) + _%g217397217489%_)))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-procedures)) - _%L214096%_) + _%g217396217487%_) '())))))) - (let ((_%__match217560217561%_ - (lambda (_%e214006214036%_ - _%hd214007214040%_ - _%tl214008214043%_ - _%e214009214046%_ - _%hd214010214050%_ - _%tl214011214053%_ - _%e214012214056%_ - _%hd214013214060%_ - _%tl214014214063%_ - _%__splice217524217525%_ - _%target214015214066%_ - _%tl214017214069%_) - (letrec ((_%loop214018214072%_ - (lambda (_%hd214016214076%_ _%sig214022214079%_) + (let ((_%__match220935220936%_ + (lambda (_%e217399217429%_ + _%hd217400217433%_ + _%tl217401217436%_ + _%e217402217439%_ + _%hd217403217443%_ + _%tl217404217446%_ + _%e217405217449%_ + _%hd217406217453%_ + _%tl217407217456%_ + _%__splice220899220900%_ + _%target217408217459%_ + _%tl217410217462%_) + (letrec ((_%loop217411217465%_ + (lambda (_%hd217409217469%_ _%sig217415217472%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd214016214076%_)) - (let ((_%e214019214082%_ + (gx#stx-pair? _%hd217409217469%_)) + (let ((_%e217412217474%_ (let () (declare (not safe)) (gx#syntax-e - _%hd214016214076%_)))) - (let ((_%lp-tl214021214089%_ + _%hd217409217469%_)))) + (let ((_%lp-tl217414217481%_ (let () (declare (not safe)) - (##cdr _%e214019214082%_))) - (_%lp-hd214020214086%_ + (##cdr _%e217412217474%_))) + (_%lp-hd217413217478%_ (let () (declare (not safe)) - (##car _%e214019214082%_)))) - (_%loop214018214072%_ - _%lp-tl214021214089%_ - (cons _%lp-hd214020214086%_ - _%sig214022214079%_)))) - (let ((_%sig214023214092%_ - (reverse _%sig214022214079%_))) - (_%__kont217522217523%_ - _%tl214011214053%_ - _%sig214023214092%_ - _%hd214013214060%_)))))) - (_%loop214018214072%_ _%target214015214066%_ '()))))) + (##car _%e217412217474%_)))) + (_%loop217411217465%_ + _%lp-tl217414217481%_ + (cons _%lp-hd217413217478%_ + _%sig217415217472%_)))) + (let ((_%sig217416217484%_ + (reverse _%sig217415217472%_))) + (_%__kont220897220898%_ + _%tl217404217446%_ + _%sig217416217484%_ + _%hd217406217453%_)))))) + (_%loop217411217465%_ _%target217408217459%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx217517217518%_)) - (let ((_%e214000214135%_ + (gx#stx-pair? _%__stx220892220893%_)) + (let ((_%e217393217526%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx217517217518%_)))) - (let ((_%tl214002214142%_ + (gx#syntax-e _%__stx220892220893%_)))) + (let ((_%tl217395217533%_ (let () (declare (not safe)) - (##cdr _%e214000214135%_))) - (_%hd214001214139%_ + (##cdr _%e217393217526%_))) + (_%hd217394217530%_ (let () (declare (not safe)) - (##car _%e214000214135%_)))) + (##car _%e217393217526%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl214002214142%_)) - (_%__kont217520217521%_) + (gx#stx-null? _%tl217395217533%_)) + (_%__kont220895220896%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl214002214142%_)) - (let ((_%e214009214046%_ + (gx#stx-pair? _%tl217395217533%_)) + (let ((_%e217402217439%_ (let () (declare (not safe)) - (gx#syntax-e _%tl214002214142%_)))) - (let ((_%tl214011214053%_ + (gx#syntax-e _%tl217395217533%_)))) + (let ((_%tl217404217446%_ (let () (declare (not safe)) - (##cdr _%e214009214046%_))) - (_%hd214010214050%_ + (##cdr _%e217402217439%_))) + (_%hd217403217443%_ (let () (declare (not safe)) - (##car _%e214009214046%_)))) + (##car _%e217402217439%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd214010214050%_)) - (let ((_%e214012214056%_ + (gx#stx-pair? _%hd217403217443%_)) + (let ((_%e217405217449%_ (let () (declare (not safe)) (gx#syntax-e - _%hd214010214050%_)))) - (let ((_%tl214014214063%_ + _%hd217403217443%_)))) + (let ((_%tl217407217456%_ (let () (declare (not safe)) - (##cdr _%e214012214056%_))) - (_%hd214013214060%_ + (##cdr _%e217405217449%_))) + (_%hd217406217453%_ (let () (declare (not safe)) - (##car _%e214012214056%_)))) + (##car _%e217405217449%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl214014214063%_)) - (let ((_%__splice217524217525%_ + _%tl217407217456%_)) + (let ((_%__splice220899220900%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl214014214063%_ + _%tl217407217456%_ '0)))) - (let ((_%tl214017214069%_ + (let ((_%tl217410217462%_ (let () (declare (not safe)) (##vector-ref - _%__splice217524217525%_ + _%__splice220899220900%_ '1))) - (_%target214015214066%_ + (_%target217408217459%_ (let () (declare (not safe)) (##vector-ref - _%__splice217524217525%_ + _%__splice220899220900%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl214017214069%_)) - (_%__match217560217561%_ - _%e214000214135%_ - _%hd214001214139%_ - _%tl214002214142%_ - _%e214009214046%_ - _%hd214010214050%_ - _%tl214011214053%_ - _%e214012214056%_ - _%hd214013214060%_ - _%tl214014214063%_ - _%__splice217524217525%_ - _%target214015214066%_ - _%tl214017214069%_) + _%tl217410217462%_)) + (_%__match220935220936%_ + _%e217393217526%_ + _%hd217394217530%_ + _%tl217395217533%_ + _%e217402217439%_ + _%hd217403217443%_ + _%tl217404217446%_ + _%e217405217449%_ + _%hd217406217453%_ + _%tl217407217456%_ + _%__splice220899220900%_ + _%target217408217459%_ + _%tl217410217462%_) (let () (declare (not safe)) - (_%g213998214029%_))))) + (_%g217391217422%_))))) (let () (declare (not safe)) - (_%g213998214029%_))))) + (_%g217391217422%_))))) (let () (declare (not safe)) - (_%g213998214029%_))))) + (_%g217391217422%_))))) (let () (declare (not safe)) - (_%g213998214029%_)))))) - (let () (declare (not safe)) (_%g213998214029%_)))))))) + (_%g217391217422%_)))))) + (let () (declare (not safe)) (_%g217391217422%_)))))))) (define |gxc[:0:]#declare-primitive-procedure| - (lambda (_%$stx214154%_) - (let* ((_%__stx217563217564%_ _%$stx214154%_) - (_%g214159214206%_ + (lambda (_%$stx217545%_) + (let* ((_%__stx220938220939%_ _%$stx217545%_) + (_%g217550217597%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx217563217564%_))))) - (let ((_%__kont217566217567%_ - (lambda (_%L214368%_ _%L214370%_) + _%__stx220938220939%_))))) + (let ((_%__kont220941220942%_ + (lambda (_%g217552217755%_ _%g217553217757%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-case-lambda)) - (cons _%L214370%_ - (let ((__tmp217995 - (lambda (_%g214390214393%_ - _%g214391214396%_) - (cons _%g214390214393%_ - _%g214391214396%_)))) + (cons _%g217553217757%_ + (let ((__tmp221370 + (lambda (_%g217777217780%_ + _%g217778217783%_) + (cons _%g217777217780%_ + _%g217778217783%_)))) (declare (not safe)) - (__foldr1 __tmp217995 '() _%L214368%_)))))) - (_%__kont217570217571%_ - (lambda (_%L214263%_ _%L214265%_) + (__foldr1 + __tmp221370 + '() + _%g217552217755%_)))))) + (_%__kont220945220946%_ + (lambda (_%g217575217652%_ _%g217576217654%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-lambda)) - (cons _%L214265%_ - (let ((__tmp217996 - (lambda (_%g214282214285%_ - _%g214283214288%_) - (cons _%g214282214285%_ - _%g214283214288%_)))) + (cons _%g217576217654%_ + (let ((__tmp221371 + (lambda (_%g217671217674%_ + _%g217672217677%_) + (cons _%g217671217674%_ + _%g217672217677%_)))) (declare (not safe)) - (__foldr1 __tmp217996 '() _%L214263%_))))))) - (let* ((_%__match217630217631%_ - (lambda (_%e214186214213%_ - _%hd214187214217%_ - _%tl214188214220%_ - _%e214189214223%_ - _%hd214190214227%_ - _%tl214191214230%_ - _%__splice217572217573%_ - _%target214192214233%_ - _%tl214194214236%_) - (letrec ((_%loop214195214239%_ - (lambda (_%hd214193214243%_ - _%sig214199214246%_) + (__foldr1 + __tmp221371 + '() + _%g217575217652%_))))))) + (let* ((_%__match221005221006%_ + (lambda (_%e217577217604%_ + _%hd217578217608%_ + _%tl217579217611%_ + _%e217580217614%_ + _%hd217581217618%_ + _%tl217582217621%_ + _%__splice220947220948%_ + _%target217583217624%_ + _%tl217585217627%_) + (letrec ((_%loop217586217630%_ + (lambda (_%hd217584217634%_ + _%sig217590217637%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd214193214243%_)) - (let ((_%e214196214249%_ + (gx#stx-pair? _%hd217584217634%_)) + (let ((_%e217587217639%_ (let () (declare (not safe)) (gx#syntax-e - _%hd214193214243%_)))) - (let ((_%lp-tl214198214256%_ + _%hd217584217634%_)))) + (let ((_%lp-tl217589217646%_ (let () (declare (not safe)) - (##cdr _%e214196214249%_))) - (_%lp-hd214197214253%_ + (##cdr _%e217587217639%_))) + (_%lp-hd217588217643%_ (let () (declare (not safe)) - (##car _%e214196214249%_)))) - (_%loop214195214239%_ - _%lp-tl214198214256%_ - (cons _%lp-hd214197214253%_ - _%sig214199214246%_)))) - (let ((_%sig214200214259%_ - (reverse _%sig214199214246%_))) - (_%__kont217570217571%_ - _%sig214200214259%_ - _%hd214190214227%_)))))) - (_%loop214195214239%_ _%target214192214233%_ '())))) - (_%__match217622217623%_ - (lambda (_%e214186214213%_ - _%hd214187214217%_ - _%tl214188214220%_ - _%e214189214223%_ - _%hd214190214227%_ - _%tl214191214230%_) + (##car _%e217587217639%_)))) + (_%loop217586217630%_ + _%lp-tl217589217646%_ + (cons _%lp-hd217588217643%_ + _%sig217590217637%_)))) + (let ((_%sig217591217649%_ + (reverse _%sig217590217637%_))) + (_%__kont220945220946%_ + _%sig217591217649%_ + _%hd217581217618%_)))))) + (_%loop217586217630%_ _%target217583217624%_ '())))) + (_%__match220997220998%_ + (lambda (_%e217577217604%_ + _%hd217578217608%_ + _%tl217579217611%_ + _%e217580217614%_ + _%hd217581217618%_ + _%tl217582217621%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl214191214230%_)) - (let ((_%__splice217572217573%_ + (gx#stx-pair/null? _%tl217582217621%_)) + (let ((_%__splice220947220948%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl214191214230%_ + _%tl217582217621%_ '0)))) - (let ((_%tl214194214236%_ + (let ((_%tl217585217627%_ (let () (declare (not safe)) (##vector-ref - _%__splice217572217573%_ + _%__splice220947220948%_ '1))) - (_%target214192214233%_ + (_%target217583217624%_ (let () (declare (not safe)) (##vector-ref - _%__splice217572217573%_ + _%__splice220947220948%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl214194214236%_)) - (_%__match217630217631%_ - _%e214186214213%_ - _%hd214187214217%_ - _%tl214188214220%_ - _%e214189214223%_ - _%hd214190214227%_ - _%tl214191214230%_ - _%__splice217572217573%_ - _%target214192214233%_ - _%tl214194214236%_) + (gx#stx-null? _%tl217585217627%_)) + (_%__match221005221006%_ + _%e217577217604%_ + _%hd217578217608%_ + _%tl217579217611%_ + _%e217580217614%_ + _%hd217581217618%_ + _%tl217582217621%_ + _%__splice220947220948%_ + _%target217583217624%_ + _%tl217585217627%_) (let () (declare (not safe)) - (_%g214159214206%_))))) - (let () (declare (not safe)) (_%g214159214206%_))))) - (_%__match217610217611%_ - (lambda (_%e214163214298%_ - _%hd214164214302%_ - _%tl214165214305%_ - _%e214166214308%_ - _%hd214167214312%_ - _%tl214168214315%_ - _%e214169214318%_ - _%hd214170214322%_ - _%tl214171214325%_ - _%e214172214328%_ - _%hd214173214332%_ - _%tl214174214335%_ - _%__splice217568217569%_ - _%target214175214338%_ - _%tl214177214341%_) - (letrec ((_%loop214178214344%_ - (lambda (_%hd214176214348%_ - _%sig214182214351%_) + (_%g217550217597%_))))) + (let () (declare (not safe)) (_%g217550217597%_))))) + (_%__match220985220986%_ + (lambda (_%e217554217687%_ + _%hd217555217691%_ + _%tl217556217694%_ + _%e217557217697%_ + _%hd217558217701%_ + _%tl217559217704%_ + _%e217560217707%_ + _%hd217561217711%_ + _%tl217562217714%_ + _%e217563217717%_ + _%hd217564217721%_ + _%tl217565217724%_ + _%__splice220943220944%_ + _%target217566217727%_ + _%tl217568217730%_) + (letrec ((_%loop217569217733%_ + (lambda (_%hd217567217737%_ + _%sig217573217740%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd214176214348%_)) - (let ((_%e214179214354%_ + (gx#stx-pair? _%hd217567217737%_)) + (let ((_%e217570217742%_ (let () (declare (not safe)) (gx#syntax-e - _%hd214176214348%_)))) - (let ((_%lp-tl214181214361%_ + _%hd217567217737%_)))) + (let ((_%lp-tl217572217749%_ (let () (declare (not safe)) - (##cdr _%e214179214354%_))) - (_%lp-hd214180214358%_ + (##cdr _%e217570217742%_))) + (_%lp-hd217571217746%_ (let () (declare (not safe)) - (##car _%e214179214354%_)))) - (_%loop214178214344%_ - _%lp-tl214181214361%_ - (cons _%lp-hd214180214358%_ - _%sig214182214351%_)))) - (let ((_%sig214183214364%_ - (reverse _%sig214182214351%_))) + (##car _%e217570217742%_)))) + (_%loop217569217733%_ + _%lp-tl217572217749%_ + (cons _%lp-hd217571217746%_ + _%sig217573217740%_)))) + (let ((_%sig217574217752%_ + (reverse _%sig217573217740%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl214171214325%_)) - (_%__kont217566217567%_ - _%sig214183214364%_ - _%hd214167214312%_) - (_%__match217622217623%_ - _%e214163214298%_ - _%hd214164214302%_ - _%tl214165214305%_ - _%e214166214308%_ - _%hd214167214312%_ - _%tl214168214315%_))))))) - (_%loop214178214344%_ _%target214175214338%_ '()))))) + _%tl217562217714%_)) + (_%__kont220941220942%_ + _%sig217574217752%_ + _%hd217558217701%_) + (_%__match220997220998%_ + _%e217554217687%_ + _%hd217555217691%_ + _%tl217556217694%_ + _%e217557217697%_ + _%hd217558217701%_ + _%tl217559217704%_))))))) + (_%loop217569217733%_ _%target217566217727%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx217563217564%_)) - (let ((_%e214163214298%_ + (gx#stx-pair? _%__stx220938220939%_)) + (let ((_%e217554217687%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx217563217564%_)))) - (let ((_%tl214165214305%_ + (gx#syntax-e _%__stx220938220939%_)))) + (let ((_%tl217556217694%_ (let () (declare (not safe)) - (##cdr _%e214163214298%_))) - (_%hd214164214302%_ + (##cdr _%e217554217687%_))) + (_%hd217555217691%_ (let () (declare (not safe)) - (##car _%e214163214298%_)))) + (##car _%e217554217687%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl214165214305%_)) - (let ((_%e214166214308%_ + (gx#stx-pair? _%tl217556217694%_)) + (let ((_%e217557217697%_ (let () (declare (not safe)) - (gx#syntax-e _%tl214165214305%_)))) - (let ((_%tl214168214315%_ + (gx#syntax-e _%tl217556217694%_)))) + (let ((_%tl217559217704%_ (let () (declare (not safe)) - (##cdr _%e214166214308%_))) - (_%hd214167214312%_ + (##cdr _%e217557217697%_))) + (_%hd217558217701%_ (let () (declare (not safe)) - (##car _%e214166214308%_)))) + (##car _%e217557217697%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl214168214315%_)) - (let ((_%e214169214318%_ + (gx#stx-pair? _%tl217559217704%_)) + (let ((_%e217560217707%_ (let () (declare (not safe)) - (gx#syntax-e _%tl214168214315%_)))) - (let ((_%tl214171214325%_ + (gx#syntax-e _%tl217559217704%_)))) + (let ((_%tl217562217714%_ (let () (declare (not safe)) - (##cdr _%e214169214318%_))) - (_%hd214170214322%_ + (##cdr _%e217560217707%_))) + (_%hd217561217711%_ (let () (declare (not safe)) - (##car _%e214169214318%_)))) + (##car _%e217560217707%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd214170214322%_)) - (let ((_%e214172214328%_ + (gx#stx-pair? _%hd217561217711%_)) + (let ((_%e217563217717%_ (let () (declare (not safe)) (gx#syntax-e - _%hd214170214322%_)))) - (let ((_%tl214174214335%_ + _%hd217561217711%_)))) + (let ((_%tl217565217724%_ (let () (declare (not safe)) - (##cdr _%e214172214328%_))) - (_%hd214173214332%_ + (##cdr _%e217563217717%_))) + (_%hd217564217721%_ (let () (declare (not safe)) - (##car _%e214172214328%_)))) + (##car _%e217563217717%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd214173214332%_)) - (if (let ((__tmp217997 - |gxc[1]#_g217998_|)) + _%hd217564217721%_)) + (if (let ((__tmp221372 + |gxc[1]#_g221373_|)) (declare (not safe)) (gx#free-identifier=? - __tmp217997 - _%hd214173214332%_)) + __tmp221372 + _%hd217564217721%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl214174214335%_)) - (let ((_%__splice217568217569%_ + _%tl217565217724%_)) + (let ((_%__splice220943220944%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl214174214335%_ + _%tl217565217724%_ '0)))) - (let ((_%tl214177214341%_ + (let ((_%tl217568217730%_ (let () (declare (not safe)) - (##vector-ref _%__splice217568217569%_ '1))) - (_%target214175214338%_ + (##vector-ref _%__splice220943220944%_ '1))) + (_%target217566217727%_ (let () (declare (not safe)) - (##vector-ref _%__splice217568217569%_ '0)))) + (##vector-ref _%__splice220943220944%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl214177214341%_)) - (_%__match217610217611%_ - _%e214163214298%_ - _%hd214164214302%_ - _%tl214165214305%_ - _%e214166214308%_ - _%hd214167214312%_ - _%tl214168214315%_ - _%e214169214318%_ - _%hd214170214322%_ - _%tl214171214325%_ - _%e214172214328%_ - _%hd214173214332%_ - _%tl214174214335%_ - _%__splice217568217569%_ - _%target214175214338%_ - _%tl214177214341%_) + (gx#stx-null? _%tl217568217730%_)) + (_%__match220985220986%_ + _%e217554217687%_ + _%hd217555217691%_ + _%tl217556217694%_ + _%e217557217697%_ + _%hd217558217701%_ + _%tl217559217704%_ + _%e217560217707%_ + _%hd217561217711%_ + _%tl217562217714%_ + _%e217563217717%_ + _%hd217564217721%_ + _%tl217565217724%_ + _%__splice220943220944%_ + _%target217566217727%_ + _%tl217568217730%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl214168214315%_)) - (let ((_%__splice217572217573%_ + (gx#stx-pair/null? _%tl217559217704%_)) + (let ((_%__splice220947220948%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl214168214315%_ + _%tl217559217704%_ '0)))) - (let ((_%tl214194214236%_ + (let ((_%tl217585217627%_ (let () (declare (not safe)) (##vector-ref - _%__splice217572217573%_ + _%__splice220947220948%_ '1))) - (_%target214192214233%_ + (_%target217583217624%_ (let () (declare (not safe)) (##vector-ref - _%__splice217572217573%_ + _%__splice220947220948%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl214194214236%_)) - (_%__match217630217631%_ - _%e214163214298%_ - _%hd214164214302%_ - _%tl214165214305%_ - _%e214166214308%_ - _%hd214167214312%_ - _%tl214168214315%_ - _%__splice217572217573%_ - _%target214192214233%_ - _%tl214194214236%_) + (gx#stx-null? _%tl217585217627%_)) + (_%__match221005221006%_ + _%e217554217687%_ + _%hd217555217691%_ + _%tl217556217694%_ + _%e217557217697%_ + _%hd217558217701%_ + _%tl217559217704%_ + _%__splice220947220948%_ + _%target217583217624%_ + _%tl217585217627%_) (let () (declare (not safe)) - (_%g214159214206%_))))) + (_%g217550217597%_))))) (let () (declare (not safe)) - (_%g214159214206%_)))))) + (_%g217550217597%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl214168214315%_)) - (let ((_%__splice217572217573%_ + (gx#stx-pair/null? _%tl217559217704%_)) + (let ((_%__splice220947220948%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl214168214315%_ + _%tl217559217704%_ '0)))) - (let ((_%tl214194214236%_ + (let ((_%tl217585217627%_ (let () (declare (not safe)) - (##vector-ref _%__splice217572217573%_ '1))) - (_%target214192214233%_ + (##vector-ref _%__splice220947220948%_ '1))) + (_%target217583217624%_ (let () (declare (not safe)) - (##vector-ref _%__splice217572217573%_ '0)))) + (##vector-ref _%__splice220947220948%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl214194214236%_)) - (_%__match217630217631%_ - _%e214163214298%_ - _%hd214164214302%_ - _%tl214165214305%_ - _%e214166214308%_ - _%hd214167214312%_ - _%tl214168214315%_ - _%__splice217572217573%_ - _%target214192214233%_ - _%tl214194214236%_) + (gx#stx-null? _%tl217585217627%_)) + (_%__match221005221006%_ + _%e217554217687%_ + _%hd217555217691%_ + _%tl217556217694%_ + _%e217557217697%_ + _%hd217558217701%_ + _%tl217559217704%_ + _%__splice220947220948%_ + _%target217583217624%_ + _%tl217585217627%_) (let () (declare (not safe)) - (_%g214159214206%_))))) - (let () (declare (not safe)) (_%g214159214206%_)))) + (_%g217550217597%_))))) + (let () (declare (not safe)) (_%g217550217597%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl214168214315%_)) - (let ((_%__splice217572217573%_ + (gx#stx-pair/null? _%tl217559217704%_)) + (let ((_%__splice220947220948%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl214168214315%_ + _%tl217559217704%_ '0)))) - (let ((_%tl214194214236%_ + (let ((_%tl217585217627%_ (let () (declare (not safe)) - (##vector-ref _%__splice217572217573%_ '1))) - (_%target214192214233%_ + (##vector-ref _%__splice220947220948%_ '1))) + (_%target217583217624%_ (let () (declare (not safe)) - (##vector-ref _%__splice217572217573%_ '0)))) + (##vector-ref _%__splice220947220948%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl214194214236%_)) - (_%__match217630217631%_ - _%e214163214298%_ - _%hd214164214302%_ - _%tl214165214305%_ - _%e214166214308%_ - _%hd214167214312%_ - _%tl214168214315%_ - _%__splice217572217573%_ - _%target214192214233%_ - _%tl214194214236%_) - (let () (declare (not safe)) (_%g214159214206%_))))) - (let () (declare (not safe)) (_%g214159214206%_)))) + (gx#stx-null? _%tl217585217627%_)) + (_%__match221005221006%_ + _%e217554217687%_ + _%hd217555217691%_ + _%tl217556217694%_ + _%e217557217697%_ + _%hd217558217701%_ + _%tl217559217704%_ + _%__splice220947220948%_ + _%target217583217624%_ + _%tl217585217627%_) + (let () (declare (not safe)) (_%g217550217597%_))))) + (let () (declare (not safe)) (_%g217550217597%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl214168214315%_)) - (let ((_%__splice217572217573%_ + _%tl217559217704%_)) + (let ((_%__splice220947220948%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#syntax-split-splice->vector - _%tl214168214315%_ + _%tl217559217704%_ '0)))) - (let ((_%tl214194214236%_ + (let ((_%tl217585217627%_ (let () (declare (not safe)) - (##vector-ref _%__splice217572217573%_ '1))) - (_%target214192214233%_ + (##vector-ref _%__splice220947220948%_ '1))) + (_%target217583217624%_ (let () (declare (not safe)) - (##vector-ref _%__splice217572217573%_ '0)))) + (##vector-ref _%__splice220947220948%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl214194214236%_)) - (_%__match217630217631%_ - _%e214163214298%_ - _%hd214164214302%_ - _%tl214165214305%_ - _%e214166214308%_ - _%hd214167214312%_ - _%tl214168214315%_ - _%__splice217572217573%_ - _%target214192214233%_ - _%tl214194214236%_) - (let () (declare (not safe)) (_%g214159214206%_))))) - (let () (declare (not safe)) (_%g214159214206%_)))))) + (gx#stx-null? _%tl217585217627%_)) + (_%__match221005221006%_ + _%e217554217687%_ + _%hd217555217691%_ + _%tl217556217694%_ + _%e217557217697%_ + _%hd217558217701%_ + _%tl217559217704%_ + _%__splice220947220948%_ + _%target217583217624%_ + _%tl217585217627%_) + (let () (declare (not safe)) (_%g217550217597%_))))) + (let () (declare (not safe)) (_%g217550217597%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl214168214315%_)) - (let ((_%__splice217572217573%_ + _%tl217559217704%_)) + (let ((_%__splice220947220948%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl214168214315%_ + _%tl217559217704%_ '0)))) - (let ((_%tl214194214236%_ + (let ((_%tl217585217627%_ (let () (declare (not safe)) (##vector-ref - _%__splice217572217573%_ + _%__splice220947220948%_ '1))) - (_%target214192214233%_ + (_%target217583217624%_ (let () (declare (not safe)) (##vector-ref - _%__splice217572217573%_ + _%__splice220947220948%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl214194214236%_)) - (_%__match217630217631%_ - _%e214163214298%_ - _%hd214164214302%_ - _%tl214165214305%_ - _%e214166214308%_ - _%hd214167214312%_ - _%tl214168214315%_ - _%__splice217572217573%_ - _%target214192214233%_ - _%tl214194214236%_) + _%tl217585217627%_)) + (_%__match221005221006%_ + _%e217554217687%_ + _%hd217555217691%_ + _%tl217556217694%_ + _%e217557217697%_ + _%hd217558217701%_ + _%tl217559217704%_ + _%__splice220947220948%_ + _%target217583217624%_ + _%tl217585217627%_) (let () (declare (not safe)) - (_%g214159214206%_))))) + (_%g217550217597%_))))) (let () (declare (not safe)) - (_%g214159214206%_)))))) + (_%g217550217597%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl214168214315%_)) - (let ((_%__splice217572217573%_ + (gx#stx-pair/null? _%tl217559217704%_)) + (let ((_%__splice220947220948%_ (let () (declare (not safe)) (gx#syntax-split-splice->vector - _%tl214168214315%_ + _%tl217559217704%_ '0)))) - (let ((_%tl214194214236%_ + (let ((_%tl217585217627%_ (let () (declare (not safe)) (##vector-ref - _%__splice217572217573%_ + _%__splice220947220948%_ '1))) - (_%target214192214233%_ + (_%target217583217624%_ (let () (declare (not safe)) (##vector-ref - _%__splice217572217573%_ + _%__splice220947220948%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl214194214236%_)) - (_%__match217630217631%_ - _%e214163214298%_ - _%hd214164214302%_ - _%tl214165214305%_ - _%e214166214308%_ - _%hd214167214312%_ - _%tl214168214315%_ - _%__splice217572217573%_ - _%target214192214233%_ - _%tl214194214236%_) + _%tl217585217627%_)) + (_%__match221005221006%_ + _%e217554217687%_ + _%hd217555217691%_ + _%tl217556217694%_ + _%e217557217697%_ + _%hd217558217701%_ + _%tl217559217704%_ + _%__splice220947220948%_ + _%target217583217624%_ + _%tl217585217627%_) (let () (declare (not safe)) - (_%g214159214206%_))))) + (_%g217550217597%_))))) (let () (declare (not safe)) - (_%g214159214206%_)))))) - (let () (declare (not safe)) (_%g214159214206%_))))) - (let () (declare (not safe)) (_%g214159214206%_)))))))) + (_%g217550217597%_)))))) + (let () (declare (not safe)) (_%g217550217597%_))))) + (let () (declare (not safe)) (_%g217550217597%_)))))))) (define |gxc[1]#verify-procedure!| - (lambda (_%ctx215553%_ _%id215555%_) - (let ((_%proc215559%_ - (let ((__tmp217999 + (lambda (_%ctx218940%_ _%id218942%_) + (let ((_%proc218946%_ + (let ((__tmp221374 (lambda () (let () (declare (not safe)) - (gx#eval-syntax__0 _%id215555%_))))) + (gx#eval-syntax__0 _%id218942%_))))) (declare (not safe)) - (__with-catch false __tmp217999)))) - (if (procedure? _%proc215559%_) + (__with-catch false __tmp221374)))) + (if (procedure? _%proc218946%_) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"unknown procedure" - _%ctx215553%_ - _%id215555%_)))))) + _%ctx218940%_ + _%id218942%_)))))) (define |gxc[1]#verify-class!| - (lambda (_%ctx215544%_ _%id215546%_) - (let ((_%klass215550%_ - (let ((__tmp218000 + (lambda (_%ctx218931%_ _%id218933%_) + (let ((_%klass218937%_ + (let ((__tmp221375 (lambda () (let () (declare (not safe)) - (gx#eval-syntax__0 _%id215546%_))))) + (gx#eval-syntax__0 _%id218933%_))))) (declare (not safe)) - (__with-catch false __tmp218000)))) + (__with-catch false __tmp221375)))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass215550%_ 'class)) + (##structure-instance-of? _%klass218937%_ 'class)) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"unknown class" - _%ctx215544%_ - _%id215546%_)))))) + _%ctx218931%_ + _%id218933%_)))))) (define |gxc[1]#parse-signature| - (lambda (_%ctx214794%_ _%proc214796%_ _%sig214797%_) - (letrec ((_%signature-arity214799%_ - (lambda (_%args215476%_) - (let _%loop215479%_ ((_%rest215482%_ _%args215476%_) - (_%count215484%_ '0)) - (let* ((_%rest215485215496%_ _%rest215482%_) - (_%E215489215502%_ + (lambda (_%ctx218181%_ _%proc218183%_ _%sig218184%_) + (letrec ((_%signature-arity218186%_ + (lambda (_%args218863%_) + (let _%loop218866%_ ((_%rest218869%_ _%args218863%_) + (_%count218871%_ '0)) + (let* ((_%rest218872218883%_ _%rest218869%_) + (_%E218876218889%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest215485215496%_ + _%rest218872218883%_ '([_ . rest]) '([]) '(_))) '#!void))) - (let ((_%K215492215533%_ - (lambda (_%rest215530%_) - (_%loop215479%_ - _%rest215530%_ + (let ((_%K218879218920%_ + (lambda (_%rest218917%_) + (_%loop218866%_ + _%rest218917%_ (let () (declare (not safe)) - (##fx+ _%count215484%_ '1))))) - (_%K215491215522%_ (lambda () _%count215484%_)) - (_%K215490215510%_ - (lambda () (cons _%count215484%_ '())))) - (let ((_%try-match215487215526%_ + (##fx+ _%count218871%_ '1))))) + (_%K218878218909%_ (lambda () _%count218871%_)) + (_%K218877218897%_ + (lambda () (cons _%count218871%_ '())))) + (let ((_%try-match218874218913%_ (lambda () - (if (null? _%rest215485215496%_) - (_%K215491215522%_) - (_%K215490215510%_))))) - (if (pair? _%rest215485215496%_) - (let* ((_%tl215494215537%_ + (if (null? _%rest218872218883%_) + (_%K218878218909%_) + (_%K218877218897%_))))) + (if (pair? _%rest218872218883%_) + (let* ((_%tl218881218924%_ (let () (declare (not safe)) - (##cdr _%rest215485215496%_))) - (_%rest215541%_ _%tl215494215537%_)) - (_%K215492215533%_ _%rest215541%_)) - (_%try-match215487215526%_)))))))) - (_%make-signature214801%_ - (lambda (_%args215358%_ - _%return215360%_ - _%effect215361%_ - _%unchecked215362%_) - (let ((__tmp218001 - (lambda (_%g215363215365%_) + (##cdr _%rest218872218883%_))) + (_%rest218928%_ _%tl218881218924%_)) + (_%K218879218920%_ _%rest218928%_)) + (_%try-match218874218913%_)))))))) + (_%make-signature218188%_ + (lambda (_%args218745%_ + _%return218747%_ + _%effect218748%_ + _%unchecked218749%_) + (let ((__tmp221376 + (lambda (_%g218750218752%_) (|gxc[1]#verify-class!| - _%ctx214794%_ - _%g215363215365%_)))) + _%ctx218181%_ + _%g218750218752%_)))) (declare (not safe)) - (gx#stx-for-each1 __tmp218001 _%args215358%_)) - (|gxc[1]#verify-class!| _%ctx214794%_ _%return215360%_) - (if _%unchecked215362%_ + (gx#stx-for-each1 __tmp221376 _%args218745%_)) + (|gxc[1]#verify-class!| _%ctx218181%_ _%return218747%_) + (if _%unchecked218749%_ (|gxc[1]#verify-procedure!| - _%ctx214794%_ - _%unchecked215362%_) + _%ctx218181%_ + _%unchecked218749%_) '#!void) - (let ((_%arity215369%_ - (_%signature-arity214799%_ + (let ((_%arity218756%_ + (_%signature-arity218186%_ (let () (declare (not safe)) - (gx#stx-map1 gx#stx-e _%args215358%_))))) - (if _%effect215361%_ - (let ((_%effect215372%_ + (gx#stx-map1 gx#stx-e _%args218745%_))))) + (if _%effect218748%_ + (let ((_%effect218759%_ (let () (declare (not safe)) - (gx#syntax->datum _%effect215361%_)))) - (if (and (list? _%effect215372%_) + (gx#syntax->datum _%effect218748%_)))) + (if (and (list? _%effect218759%_) (let () (declare (not safe)) - (__andmap1 symbol? _%effect215372%_))) + (__andmap1 symbol? _%effect218759%_))) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"bad effect" - _%ctx214794%_ - _%proc214796%_ - _%effect215372%_)))) + _%ctx218181%_ + _%proc218183%_ + _%effect218759%_)))) '#!void) - (cons _%arity215369%_ - (cons (let* ((_%g215375215398%_ - (lambda (_%g215376215394%_) + (cons _%arity218756%_ + (cons (let* ((_%g218762218785%_ + (lambda (_%g218763218781%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g215376215394%_)))) - (_%g215374215472%_ - (lambda (_%g215376215402%_) + _%g218763218781%_)))) + (_%g218761218859%_ + (lambda (_%g218763218789%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g215376215402%_)) - (let ((_%e215381215405%_ + _%g218763218789%_)) + (let ((_%e218768218792%_ (let () (declare (not safe)) (gx#syntax-e - _%g215376215402%_)))) - (let ((_%hd215382215409%_ + _%g218763218789%_)))) + (let ((_%hd218769218796%_ (let () (declare (not safe)) - (##car _%e215381215405%_))) - (_%tl215383215412%_ + (##car _%e218768218792%_))) + (_%tl218770218799%_ (let () (declare (not safe)) - (##cdr _%e215381215405%_)))) + (##cdr _%e218768218792%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl215383215412%_)) - (let ((_%e215384215415%_ + _%tl218770218799%_)) + (let ((_%e218771218802%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl215383215412%_)))) - (let ((_%hd215385215419%_ + (gx#syntax-e _%tl218770218799%_)))) + (let ((_%hd218772218806%_ (let () (declare (not safe)) - (##car _%e215384215415%_))) - (_%tl215386215422%_ + (##car _%e218771218802%_))) + (_%tl218773218809%_ (let () (declare (not safe)) - (##cdr _%e215384215415%_)))) + (##cdr _%e218771218802%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl215386215422%_)) - (let ((_%e215387215425%_ + (gx#stx-pair? _%tl218773218809%_)) + (let ((_%e218774218812%_ (let () (declare (not safe)) - (gx#syntax-e _%tl215386215422%_)))) - (let ((_%hd215388215429%_ + (gx#syntax-e _%tl218773218809%_)))) + (let ((_%hd218775218816%_ (let () (declare (not safe)) - (##car _%e215387215425%_))) - (_%tl215389215432%_ + (##car _%e218774218812%_))) + (_%tl218776218819%_ (let () (declare (not safe)) - (##cdr _%e215387215425%_)))) + (##cdr _%e218774218812%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl215389215432%_)) - (let ((_%e215390215435%_ + (gx#stx-pair? _%tl218776218819%_)) + (let ((_%e218777218822%_ (let () (declare (not safe)) - (gx#syntax-e _%tl215389215432%_)))) - (let ((_%hd215391215439%_ + (gx#syntax-e _%tl218776218819%_)))) + (let ((_%hd218778218826%_ (let () (declare (not safe)) - (##car _%e215390215435%_))) - (_%tl215392215442%_ + (##car _%e218777218822%_))) + (_%tl218779218829%_ (let () (declare (not safe)) - (##cdr _%e215390215435%_)))) + (##cdr _%e218777218822%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl215392215442%_)) - ((lambda (_%L215445%_ - _%L215447%_ - _%L215448%_ - _%L215449%_) + (gx#stx-null? _%tl218779218829%_)) + ((lambda (_%g218764218832%_ + _%g218765218834%_ + _%g218766218835%_ + _%g218767218836%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -3874,25 +3901,26 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L215449%_ '())) + (cons _%g218767218836%_ '())) (cons 'return: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L215448%_ '())) + (cons _%g218766218835%_ '())) (cons 'effect: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L215447%_ '())) + (cons _%g218765218834%_ + '())) (cons 'unchecked: (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L215445%_ '())) + (cons _%g218764218832%_ '())) (cons 'origin: (cons (cons (let () (declare (not safe)) @@ -3904,779 +3932,794 @@ '())))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd215391215439%_ - _%hd215388215429%_ - _%hd215385215419%_ - _%hd215382215409%_) - (_%g215375215398%_ - _%g215376215402%_)))) - (_%g215375215398%_ _%g215376215402%_)))) - (_%g215375215398%_ _%g215376215402%_)))) - (_%g215375215398%_ _%g215376215402%_)))) + _%hd218778218826%_ + _%hd218775218816%_ + _%hd218772218806%_ + _%hd218769218796%_) + (_%g218762218785%_ + _%g218763218789%_)))) + (_%g218762218785%_ _%g218763218789%_)))) + (_%g218762218785%_ _%g218763218789%_)))) + (_%g218762218785%_ _%g218763218789%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g215375215398%_ - _%g215376215402%_))))) - (_%g215374215472%_ - (list _%args215358%_ - _%return215360%_ - _%effect215361%_ - _%unchecked215362%_))) + (_%g218762218785%_ + _%g218763218789%_))))) + (_%g218761218859%_ + (list _%args218745%_ + _%return218747%_ + _%effect218748%_ + _%unchecked218749%_))) '())))))) - (|gxc[1]#verify-procedure!| _%ctx214794%_ _%proc214796%_) - (let* ((_%__stx217641217642%_ _%sig214797%_) - (_%g214808214911%_ + (|gxc[1]#verify-procedure!| _%ctx218181%_ _%proc218183%_) + (let* ((_%__stx221016221017%_ _%sig218184%_) + (_%g218195218298%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx217641217642%_))))) - (let ((_%__kont217644217645%_ - (lambda (_%L215339%_ _%L215341%_) - (_%make-signature214801%_ - _%L215341%_ - _%L215339%_ + _%__stx221016221017%_))))) + (let ((_%__kont221019221020%_ + (lambda (_%g218197218726%_ _%g218198218728%_) + (_%make-signature218188%_ + _%g218198218728%_ + _%g218197218726%_ '#f '#f))) - (_%__kont217646217647%_ - (lambda (_%L215290%_ _%L215292%_ _%L215293%_) - (_%make-signature214801%_ - _%L215293%_ - _%L215292%_ - _%L215290%_ + (_%__kont221021221022%_ + (lambda (_%g218205218677%_ + _%g218206218679%_ + _%g218207218680%_) + (_%make-signature218188%_ + _%g218207218680%_ + _%g218206218679%_ + _%g218205218677%_ '#f))) - (_%__kont217648217649%_ - (lambda (_%L215214%_ _%L215216%_ _%L215217%_) - (_%make-signature214801%_ - _%L215217%_ - _%L215216%_ - _%L215214%_ - (let ((__tmp218002 + (_%__kont221023221024%_ + (lambda (_%g218221218601%_ + _%g218222218603%_ + _%g218223218604%_) + (_%make-signature218188%_ + _%g218223218604%_ + _%g218222218603%_ + _%g218221218601%_ + (let ((__tmp221377 (let () (declare (not safe)) - (gx#stx-e _%proc214796%_)))) + (gx#stx-e _%proc218183%_)))) (declare (not safe)) - (make-symbol__1 '"##" __tmp218002))))) - (_%__kont217650217651%_ - (lambda (_%L215120%_ _%L215122%_ _%L215123%_ _%L215124%_) - (_%make-signature214801%_ - _%L215124%_ - _%L215123%_ + (make-symbol__1 '"##" __tmp221377))))) + (_%__kont221025221026%_ + (lambda (_%g218241218507%_ + _%g218242218509%_ + _%g218243218510%_ + _%g218244218511%_) + (_%make-signature218188%_ + _%g218244218511%_ + _%g218243218510%_ '#f - (let () (declare (not safe)) (gx#stx-e _%L215120%_))))) - (_%__kont217652217653%_ - (lambda (_%L215027%_ _%L215029%_) - (_%make-signature214801%_ - _%L215029%_ - _%L215027%_ + (let () + (declare (not safe)) + (gx#stx-e _%g218241218507%_))))) + (_%__kont221027221028%_ + (lambda (_%g218265218414%_ _%g218266218416%_) + (_%make-signature218188%_ + _%g218266218416%_ + _%g218265218414%_ '#f - (let ((__tmp218003 + (let ((__tmp221378 (let () (declare (not safe)) - (gx#stx-e _%proc214796%_)))) + (gx#stx-e _%proc218183%_)))) (declare (not safe)) - (make-symbol__1 '"##" __tmp218003))))) - (_%__kont217654217655%_ - (lambda (_%L214962%_ _%L214964%_ _%L214965%_) - (_%make-signature214801%_ - _%L214965%_ - _%L214964%_ + (make-symbol__1 '"##" __tmp221378))))) + (_%__kont221029221030%_ + (lambda (_%g218277218349%_ + _%g218278218351%_ + _%g218279218352%_) + (_%make-signature218188%_ + _%g218279218352%_ + _%g218278218351%_ '#f - (let () (declare (not safe)) (gx#stx-e _%L214962%_)))))) + (let () + (declare (not safe)) + (gx#stx-e _%g218277218349%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx217641217642%_)) - (let ((_%e214812215319%_ + (gx#stx-pair? _%__stx221016221017%_)) + (let ((_%e218199218706%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx217641217642%_)))) - (let ((_%tl214814215326%_ + (gx#syntax-e _%__stx221016221017%_)))) + (let ((_%tl218201218713%_ (let () (declare (not safe)) - (##cdr _%e214812215319%_))) - (_%hd214813215323%_ + (##cdr _%e218199218706%_))) + (_%hd218200218710%_ (let () (declare (not safe)) - (##car _%e214812215319%_)))) + (##car _%e218199218706%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl214814215326%_)) - (let ((_%e214815215329%_ + (gx#stx-pair? _%tl218201218713%_)) + (let ((_%e218202218716%_ (let () (declare (not safe)) - (gx#syntax-e _%tl214814215326%_)))) - (let ((_%tl214817215336%_ + (gx#syntax-e _%tl218201218713%_)))) + (let ((_%tl218204218723%_ (let () (declare (not safe)) - (##cdr _%e214815215329%_))) - (_%hd214816215333%_ + (##cdr _%e218202218716%_))) + (_%hd218203218720%_ (let () (declare (not safe)) - (##car _%e214815215329%_)))) + (##car _%e218202218716%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl214817215336%_)) - (_%__kont217644217645%_ - _%hd214816215333%_ - _%hd214813215323%_) + (gx#stx-null? _%tl218204218723%_)) + (_%__kont221019221020%_ + _%hd218203218720%_ + _%hd218200218710%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl214817215336%_)) - (let ((_%e214827215266%_ + (gx#stx-pair? _%tl218204218723%_)) + (let ((_%e218214218653%_ (let () (declare (not safe)) (gx#syntax-e - _%tl214817215336%_)))) - (let ((_%tl214829215273%_ + _%tl218204218723%_)))) + (let ((_%tl218216218660%_ (let () (declare (not safe)) - (##cdr _%e214827215266%_))) - (_%hd214828215270%_ + (##cdr _%e218214218653%_))) + (_%hd218215218657%_ (let () (declare (not safe)) - (##car _%e214827215266%_)))) + (##car _%e218214218653%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd214828215270%_)) - (let ((_%e214830215276%_ + _%hd218215218657%_)) + (let ((_%e218217218663%_ (let () (declare (not safe)) (gx#stx-e - _%hd214828215270%_)))) - (if (equal? _%e214830215276%_ + _%hd218215218657%_)))) + (if (equal? _%e218217218663%_ 'effect:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl214829215273%_)) - (let ((_%e214831215280%_ + _%tl218216218660%_)) + (let ((_%e218218218667%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl214829215273%_)))) - (let ((_%tl214833215287%_ + (gx#syntax-e _%tl218216218660%_)))) + (let ((_%tl218220218674%_ (let () (declare (not safe)) - (##cdr _%e214831215280%_))) - (_%hd214832215284%_ + (##cdr _%e218218218667%_))) + (_%hd218219218671%_ (let () (declare (not safe)) - (##car _%e214831215280%_)))) + (##car _%e218218218667%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl214833215287%_)) - (_%__kont217646217647%_ - _%hd214832215284%_ - _%hd214816215333%_ - _%hd214813215323%_) + (gx#stx-null? _%tl218220218674%_)) + (_%__kont221021221022%_ + _%hd218219218671%_ + _%hd218203218720%_ + _%hd218200218710%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl214833215287%_)) - (let ((_%e214850215200%_ + (gx#stx-pair? _%tl218220218674%_)) + (let ((_%e218237218587%_ (let () (declare (not safe)) - (gx#syntax-e _%tl214833215287%_)))) - (let ((_%tl214852215207%_ + (gx#syntax-e _%tl218220218674%_)))) + (let ((_%tl218239218594%_ (let () (declare (not safe)) - (##cdr _%e214850215200%_))) - (_%hd214851215204%_ + (##cdr _%e218237218587%_))) + (_%hd218238218591%_ (let () (declare (not safe)) - (##car _%e214850215200%_)))) + (##car _%e218237218587%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd214851215204%_)) - (let ((_%e214853215210%_ + (gx#stx-datum? _%hd218238218591%_)) + (let ((_%e218240218597%_ (let () (declare (not safe)) - (gx#stx-e _%hd214851215204%_)))) - (if (equal? _%e214853215210%_ + (gx#stx-e _%hd218238218591%_)))) + (if (equal? _%e218240218597%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-null? - _%tl214852215207%_)) - (_%__kont217648217649%_ - _%hd214832215284%_ - _%hd214816215333%_ - _%hd214813215323%_) + _%tl218239218594%_)) + (_%__kont221023221024%_ + _%hd218219218671%_ + _%hd218203218720%_ + _%hd218200218710%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl214852215207%_)) - (let ((_%e214875215110%_ + _%tl218239218594%_)) + (let ((_%e218262218497%_ (let () (declare (not safe)) (gx#syntax-e - _%tl214852215207%_)))) - (let ((_%tl214877215117%_ + _%tl218239218594%_)))) + (let ((_%tl218264218504%_ (let () (declare (not safe)) - (##cdr _%e214875215110%_))) - (_%hd214876215114%_ + (##cdr _%e218262218497%_))) + (_%hd218263218501%_ (let () (declare (not safe)) - (##car _%e214875215110%_)))) + (##car _%e218262218497%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl214877215117%_)) - (_%__kont217650217651%_ - _%hd214876215114%_ - _%hd214832215284%_ - _%hd214816215333%_ - _%hd214813215323%_) + _%tl218264218504%_)) + (_%__kont221025221026%_ + _%hd218263218501%_ + _%hd218219218671%_ + _%hd218203218720%_ + _%hd218200218710%_) (let () (declare (not safe)) - (_%g214808214911%_))))) + (_%g218195218298%_))))) (let () (declare (not safe)) - (_%g214808214911%_)))) + (_%g218195218298%_)))) (let () (declare (not safe)) - (_%g214808214911%_)))) + (_%g218195218298%_)))) (let () (declare (not safe)) - (_%g214808214911%_))))) + (_%g218195218298%_))))) (let () (declare (not safe)) - (_%g214808214911%_)))))) - (let () (declare (not safe)) (_%g214808214911%_))) + (_%g218195218298%_)))))) + (let () (declare (not safe)) (_%g218195218298%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _%e214830215276%_ + (if (equal? _%e218217218663%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-null? - _%tl214829215273%_)) - (_%__kont217652217653%_ - _%hd214816215333%_ - _%hd214813215323%_) + _%tl218216218660%_)) + (_%__kont221027221028%_ + _%hd218203218720%_ + _%hd218200218710%_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl214829215273%_)) - (let ((_%e214903214952%_ + (gx#stx-pair? _%tl218216218660%_)) + (let ((_%e218290218339%_ (let () (declare (not safe)) - (gx#syntax-e _%tl214829215273%_)))) - (let ((_%tl214905214959%_ + (gx#syntax-e _%tl218216218660%_)))) + (let ((_%tl218292218346%_ (let () (declare (not safe)) - (##cdr _%e214903214952%_))) - (_%hd214904214956%_ + (##cdr _%e218290218339%_))) + (_%hd218291218343%_ (let () (declare (not safe)) - (##car _%e214903214952%_)))) + (##car _%e218290218339%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl214905214959%_)) - (_%__kont217654217655%_ - _%hd214904214956%_ - _%hd214816215333%_ - _%hd214813215323%_) + (gx#stx-null? _%tl218292218346%_)) + (_%__kont221029221030%_ + _%hd218291218343%_ + _%hd218203218720%_ + _%hd218200218710%_) (let () (declare (not safe)) - (_%g214808214911%_))))) - (let () (declare (not safe)) (_%g214808214911%_)))) - (let () (declare (not safe)) (_%g214808214911%_))))) + (_%g218195218298%_))))) + (let () (declare (not safe)) (_%g218195218298%_)))) + (let () (declare (not safe)) (_%g218195218298%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g214808214911%_))))) + (_%g218195218298%_))))) (let () (declare (not safe)) - (_%g214808214911%_)))))) - (let () (declare (not safe)) (_%g214808214911%_))))) - (let () (declare (not safe)) (_%g214808214911%_)))))))) + (_%g218195218298%_)))))) + (let () (declare (not safe)) (_%g218195218298%_))))) + (let () (declare (not safe)) (_%g218195218298%_)))))))) (define |gxc[1]#signature->unchecked-signature| - (lambda (_%sig214405%_) - (let* ((_%g214408214488%_ - (lambda (_%g214409214484%_) + (lambda (_%sig217792%_) + (let* ((_%g217795217875%_ + (lambda (_%g217796217871%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g214409214484%_)))) - (_%g214407214790%_ - (lambda (_%g214409214492%_) + _%g217796217871%_)))) + (_%g217794218177%_ + (lambda (_%g217796217879%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g214409214492%_)) - (let ((_%e214415214495%_ + (gx#stx-pair? _%g217796217879%_)) + (let ((_%e217802217882%_ (let () (declare (not safe)) - (gx#syntax-e _%g214409214492%_)))) - (let ((_%hd214416214499%_ + (gx#syntax-e _%g217796217879%_)))) + (let ((_%hd217803217886%_ (let () (declare (not safe)) - (##car _%e214415214495%_))) - (_%tl214417214502%_ + (##car _%e217802217882%_))) + (_%tl217804217889%_ (let () (declare (not safe)) - (##cdr _%e214415214495%_)))) + (##cdr _%e217802217882%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl214417214502%_)) - (let ((_%e214418214505%_ + (gx#stx-pair? _%tl217804217889%_)) + (let ((_%e217805217892%_ (let () (declare (not safe)) - (gx#syntax-e _%tl214417214502%_)))) - (let ((_%hd214419214509%_ + (gx#syntax-e _%tl217804217889%_)))) + (let ((_%hd217806217896%_ (let () (declare (not safe)) - (##car _%e214418214505%_))) - (_%tl214420214512%_ + (##car _%e217805217892%_))) + (_%tl217807217899%_ (let () (declare (not safe)) - (##cdr _%e214418214505%_)))) + (##cdr _%e217805217892%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd214419214509%_)) - (let ((_%e214421214515%_ + (gx#stx-datum? _%hd217806217896%_)) + (let ((_%e217808217902%_ (let () (declare (not safe)) - (gx#stx-e _%hd214419214509%_)))) - (if (equal? _%e214421214515%_ + (gx#stx-e _%hd217806217896%_)))) + (if (equal? _%e217808217902%_ 'arguments:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl214420214512%_)) - (let ((_%e214422214519%_ + _%tl217807217899%_)) + (let ((_%e217809217906%_ (let () (declare (not safe)) (gx#syntax-e - _%tl214420214512%_)))) - (let ((_%hd214423214523%_ + _%tl217807217899%_)))) + (let ((_%hd217810217910%_ (let () (declare (not safe)) - (##car _%e214422214519%_))) - (_%tl214424214526%_ + (##car _%e217809217906%_))) + (_%tl217811217913%_ (let () (declare (not safe)) - (##cdr _%e214422214519%_)))) + (##cdr _%e217809217906%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd214423214523%_)) - (let ((_%e214425214529%_ + _%hd217810217910%_)) + (let ((_%e217812217916%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd214423214523%_)))) - (let ((_%hd214426214533%_ + (gx#syntax-e _%hd217810217910%_)))) + (let ((_%hd217813217920%_ (let () (declare (not safe)) - (##car _%e214425214529%_))) - (_%tl214427214536%_ + (##car _%e217812217916%_))) + (_%tl217814217923%_ (let () (declare (not safe)) - (##cdr _%e214425214529%_)))) + (##cdr _%e217812217916%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd214426214533%_)) - (if (let ((__tmp218004 |gxc[1]#_g218005_|)) + (gx#identifier? _%hd217813217920%_)) + (if (let ((__tmp221379 |gxc[1]#_g221380_|)) (declare (not safe)) (gx#free-identifier=? - __tmp218004 - _%hd214426214533%_)) + __tmp221379 + _%hd217813217920%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl214427214536%_)) - (let ((_%e214428214539%_ + (gx#stx-pair? _%tl217814217923%_)) + (let ((_%e217815217926%_ (let () (declare (not safe)) - (gx#syntax-e _%tl214427214536%_)))) - (let ((_%hd214429214543%_ + (gx#syntax-e _%tl217814217923%_)))) + (let ((_%hd217816217930%_ (let () (declare (not safe)) - (##car _%e214428214539%_))) - (_%tl214430214546%_ + (##car _%e217815217926%_))) + (_%tl217817217933%_ (let () (declare (not safe)) - (##cdr _%e214428214539%_)))) + (##cdr _%e217815217926%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl214430214546%_)) + (gx#stx-null? _%tl217817217933%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl214424214526%_)) - (let ((_%e214431214549%_ + _%tl217811217913%_)) + (let ((_%e217818217936%_ (let () (declare (not safe)) (gx#syntax-e - _%tl214424214526%_)))) - (let ((_%hd214432214553%_ + _%tl217811217913%_)))) + (let ((_%hd217819217940%_ (let () (declare (not safe)) - (##car _%e214431214549%_))) - (_%tl214433214556%_ + (##car _%e217818217936%_))) + (_%tl217820217943%_ (let () (declare (not safe)) - (##cdr _%e214431214549%_)))) + (##cdr _%e217818217936%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd214432214553%_)) - (let ((_%e214434214559%_ + _%hd217819217940%_)) + (let ((_%e217821217946%_ (let () (declare (not safe)) (gx#stx-e - _%hd214432214553%_)))) - (if (equal? _%e214434214559%_ + _%hd217819217940%_)))) + (if (equal? _%e217821217946%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'return:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl214433214556%_)) - (let ((_%e214435214563%_ + (gx#stx-pair? _%tl217820217943%_)) + (let ((_%e217822217950%_ (let () (declare (not safe)) - (gx#syntax-e _%tl214433214556%_)))) - (let ((_%hd214436214567%_ + (gx#syntax-e _%tl217820217943%_)))) + (let ((_%hd217823217954%_ (let () (declare (not safe)) - (##car _%e214435214563%_))) - (_%tl214437214570%_ + (##car _%e217822217950%_))) + (_%tl217824217957%_ (let () (declare (not safe)) - (##cdr _%e214435214563%_)))) + (##cdr _%e217822217950%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd214436214567%_)) - (let ((_%e214438214573%_ + (gx#stx-pair? _%hd217823217954%_)) + (let ((_%e217825217960%_ (let () (declare (not safe)) - (gx#syntax-e _%hd214436214567%_)))) - (let ((_%hd214439214577%_ + (gx#syntax-e _%hd217823217954%_)))) + (let ((_%hd217826217964%_ (let () (declare (not safe)) - (##car _%e214438214573%_))) - (_%tl214440214580%_ + (##car _%e217825217960%_))) + (_%tl217827217967%_ (let () (declare (not safe)) - (##cdr _%e214438214573%_)))) + (##cdr _%e217825217960%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd214439214577%_)) - (if (let ((__tmp218006 - |gxc[1]#_g218007_|)) + (gx#identifier? _%hd217826217964%_)) + (if (let ((__tmp221381 + |gxc[1]#_g221382_|)) (declare (not safe)) (gx#free-identifier=? - __tmp218006 - _%hd214439214577%_)) + __tmp221381 + _%hd217826217964%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl214440214580%_)) - (let ((_%e214441214583%_ + _%tl217827217967%_)) + (let ((_%e217828217970%_ (let () (declare (not safe)) (gx#syntax-e - _%tl214440214580%_)))) - (let ((_%hd214442214587%_ + _%tl217827217967%_)))) + (let ((_%hd217829217974%_ (let () (declare (not safe)) - (##car _%e214441214583%_))) - (_%tl214443214590%_ + (##car _%e217828217970%_))) + (_%tl217830217977%_ (let () (declare (not safe)) - (##cdr _%e214441214583%_)))) + (##cdr _%e217828217970%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl214443214590%_)) + _%tl217830217977%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl214437214570%_)) - (let ((_%e214444214593%_ + _%tl217824217957%_)) + (let ((_%e217831217980%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl214437214570%_)))) - (let ((_%hd214445214597%_ + (gx#syntax-e _%tl217824217957%_)))) + (let ((_%hd217832217984%_ (let () (declare (not safe)) - (##car _%e214444214593%_))) - (_%tl214446214600%_ + (##car _%e217831217980%_))) + (_%tl217833217987%_ (let () (declare (not safe)) - (##cdr _%e214444214593%_)))) + (##cdr _%e217831217980%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd214445214597%_)) - (let ((_%e214447214603%_ + (gx#stx-datum? _%hd217832217984%_)) + (let ((_%e217834217990%_ (let () (declare (not safe)) - (gx#stx-e _%hd214445214597%_)))) - (if (equal? _%e214447214603%_ 'effect:) + (gx#stx-e _%hd217832217984%_)))) + (if (equal? _%e217834217990%_ 'effect:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl214446214600%_)) - (let ((_%e214448214607%_ + (gx#stx-pair? _%tl217833217987%_)) + (let ((_%e217835217994%_ (let () (declare (not safe)) (gx#syntax-e - _%tl214446214600%_)))) - (let ((_%hd214449214611%_ + _%tl217833217987%_)))) + (let ((_%hd217836217998%_ (let () (declare (not safe)) - (##car _%e214448214607%_))) - (_%tl214450214614%_ + (##car _%e217835217994%_))) + (_%tl217837218001%_ (let () (declare (not safe)) - (##cdr _%e214448214607%_)))) + (##cdr _%e217835217994%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd214449214611%_)) - (let ((_%e214451214617%_ + _%hd217836217998%_)) + (let ((_%e217838218004%_ (let () (declare (not safe)) (gx#syntax-e - _%hd214449214611%_)))) - (let ((_%hd214452214621%_ + _%hd217836217998%_)))) + (let ((_%hd217839218008%_ (let () (declare (not safe)) - (##car _%e214451214617%_))) - (_%tl214453214624%_ + (##car _%e217838218004%_))) + (_%tl217840218011%_ (let () (declare (not safe)) - (##cdr _%e214451214617%_)))) + (##cdr _%e217838218004%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd214452214621%_)) - (if (let ((__tmp218008 - |gxc[1]#_g218009_|)) + _%hd217839218008%_)) + (if (let ((__tmp221383 + |gxc[1]#_g221384_|)) (declare (not safe)) (gx#free-identifier=? - __tmp218008 - _%hd214452214621%_)) + __tmp221383 + _%hd217839218008%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl214453214624%_)) - (let ((_%e214454214627%_ + _%tl217840218011%_)) + (let ((_%e217841218014%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl214453214624%_)))) - (let ((_%hd214455214631%_ + (gx#syntax-e _%tl217840218011%_)))) + (let ((_%hd217842218018%_ (let () (declare (not safe)) - (##car _%e214454214627%_))) - (_%tl214456214634%_ + (##car _%e217841218014%_))) + (_%tl217843218021%_ (let () (declare (not safe)) - (##cdr _%e214454214627%_)))) + (##cdr _%e217841218014%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl214456214634%_)) + (gx#stx-null? _%tl217843218021%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl214450214614%_)) - (let ((_%e214457214637%_ + (gx#stx-pair? _%tl217837218001%_)) + (let ((_%e217844218024%_ (let () (declare (not safe)) - (gx#syntax-e _%tl214450214614%_)))) - (let ((_%hd214458214641%_ + (gx#syntax-e _%tl217837218001%_)))) + (let ((_%hd217845218028%_ (let () (declare (not safe)) - (##car _%e214457214637%_))) - (_%tl214459214644%_ + (##car _%e217844218024%_))) + (_%tl217846218031%_ (let () (declare (not safe)) - (##cdr _%e214457214637%_)))) + (##cdr _%e217844218024%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd214458214641%_)) - (let ((_%e214460214647%_ + (gx#stx-datum? _%hd217845218028%_)) + (let ((_%e217847218034%_ (let () (declare (not safe)) (gx#stx-e - _%hd214458214641%_)))) - (if (equal? _%e214460214647%_ + _%hd217845218028%_)))) + (if (equal? _%e217847218034%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl214459214644%_)) - (let ((_%e214461214651%_ + _%tl217846218031%_)) + (let ((_%e217848218038%_ (let () (declare (not safe)) (gx#syntax-e - _%tl214459214644%_)))) - (let ((_%hd214462214655%_ + _%tl217846218031%_)))) + (let ((_%hd217849218042%_ (let () (declare (not safe)) - (##car _%e214461214651%_))) - (_%tl214463214658%_ + (##car _%e217848218038%_))) + (_%tl217850218045%_ (let () (declare (not safe)) - (##cdr _%e214461214651%_)))) + (##cdr _%e217848218038%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd214462214655%_)) - (let ((_%e214464214661%_ + _%hd217849218042%_)) + (let ((_%e217851218048%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd214462214655%_)))) - (let ((_%hd214465214665%_ + (gx#syntax-e _%hd217849218042%_)))) + (let ((_%hd217852218052%_ (let () (declare (not safe)) - (##car _%e214464214661%_))) - (_%tl214466214668%_ + (##car _%e217851218048%_))) + (_%tl217853218055%_ (let () (declare (not safe)) - (##cdr _%e214464214661%_)))) + (##cdr _%e217851218048%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd214465214665%_)) - (if (let ((__tmp218010 |gxc[1]#_g218011_|)) + (gx#identifier? _%hd217852218052%_)) + (if (let ((__tmp221385 |gxc[1]#_g221386_|)) (declare (not safe)) (gx#free-identifier=? - __tmp218010 - _%hd214465214665%_)) + __tmp221385 + _%hd217852218052%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl214466214668%_)) - (let ((_%e214467214671%_ + (gx#stx-pair? _%tl217853218055%_)) + (let ((_%e217854218058%_ (let () (declare (not safe)) - (gx#syntax-e _%tl214466214668%_)))) - (let ((_%hd214468214675%_ + (gx#syntax-e _%tl217853218055%_)))) + (let ((_%hd217855218062%_ (let () (declare (not safe)) - (##car _%e214467214671%_))) - (_%tl214469214678%_ + (##car _%e217854218058%_))) + (_%tl217856218065%_ (let () (declare (not safe)) - (##cdr _%e214467214671%_)))) + (##cdr _%e217854218058%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl214469214678%_)) + (gx#stx-null? _%tl217856218065%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl214463214658%_)) - (let ((_%e214470214681%_ + _%tl217850218045%_)) + (let ((_%e217857218068%_ (let () (declare (not safe)) (gx#syntax-e - _%tl214463214658%_)))) - (let ((_%hd214471214685%_ + _%tl217850218045%_)))) + (let ((_%hd217858218072%_ (let () (declare (not safe)) - (##car _%e214470214681%_))) - (_%tl214472214688%_ + (##car _%e217857218068%_))) + (_%tl217859218075%_ (let () (declare (not safe)) - (##cdr _%e214470214681%_)))) + (##cdr _%e217857218068%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd214471214685%_)) - (let ((_%e214473214691%_ + _%hd217858218072%_)) + (let ((_%e217860218078%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd214471214685%_)))) - (if (equal? _%e214473214691%_ 'origin:) + (gx#stx-e _%hd217858218072%_)))) + (if (equal? _%e217860218078%_ 'origin:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl214472214688%_)) - (let ((_%e214474214695%_ + (gx#stx-pair? _%tl217859218075%_)) + (let ((_%e217861218082%_ (let () (declare (not safe)) - (gx#syntax-e _%tl214472214688%_)))) - (let ((_%hd214475214699%_ + (gx#syntax-e _%tl217859218075%_)))) + (let ((_%hd217862218086%_ (let () (declare (not safe)) - (##car _%e214474214695%_))) - (_%tl214476214702%_ + (##car _%e217861218082%_))) + (_%tl217863218089%_ (let () (declare (not safe)) - (##cdr _%e214474214695%_)))) + (##cdr _%e217861218082%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd214475214699%_)) - (let ((_%e214477214705%_ + (gx#stx-pair? _%hd217862218086%_)) + (let ((_%e217864218092%_ (let () (declare (not safe)) - (gx#syntax-e _%hd214475214699%_)))) - (let ((_%hd214478214709%_ + (gx#syntax-e _%hd217862218086%_)))) + (let ((_%hd217865218096%_ (let () (declare (not safe)) - (##car _%e214477214705%_))) - (_%tl214479214712%_ + (##car _%e217864218092%_))) + (_%tl217866218099%_ (let () (declare (not safe)) - (##cdr _%e214477214705%_)))) + (##cdr _%e217864218092%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd214478214709%_)) - (if (let ((__tmp218012 - |gxc[1]#_g218013_|)) + (gx#identifier? _%hd217865218096%_)) + (if (let ((__tmp221387 + |gxc[1]#_g221388_|)) (declare (not safe)) (gx#free-identifier=? - __tmp218012 - _%hd214478214709%_)) + __tmp221387 + _%hd217865218096%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl214479214712%_)) - (let ((_%e214480214715%_ + _%tl217866218099%_)) + (let ((_%e217867218102%_ (let () (declare (not safe)) (gx#syntax-e - _%tl214479214712%_)))) - (let ((_%hd214481214719%_ + _%tl217866218099%_)))) + (let ((_%hd217868218106%_ (let () (declare (not safe)) - (##car _%e214480214715%_))) - (_%tl214482214722%_ + (##car _%e217867218102%_))) + (_%tl217869218109%_ (let () (declare (not safe)) - (##cdr _%e214480214715%_)))) + (##cdr _%e217867218102%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl214482214722%_)) + _%tl217869218109%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl214476214702%_)) - ((lambda (_%L214725%_ + _%tl217863218089%_)) + ((lambda (_%g217797218112%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L214727%_ - _%L214728%_ - _%L214729%_ - _%L214730%_) - (if (let () (declare (not safe)) (gx#stx-e _%L214727%_)) - (cons _%L214727%_ + _%g217798218114%_ + _%g217799218115%_ + _%g217800218116%_ + _%g217801218117%_) + (if (let () + (declare (not safe)) + (gx#stx-e _%g217798218114%_)) + (cons _%g217798218114%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -4687,180 +4730,180 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L214729%_ '())) + (cons _%g217800218116%_ '())) (cons 'origin: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L214725%_ '())) + (cons _%g217797218112%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '#f)) - _%hd214481214719%_ - _%hd214468214675%_ - _%hd214455214631%_ - _%hd214442214587%_ - _%hd214429214543%_) - (_%g214408214488%_ _%g214409214492%_)) - (_%g214408214488%_ _%g214409214492%_)))) + _%hd217868218106%_ + _%hd217855218062%_ + _%hd217842218018%_ + _%hd217829217974%_ + _%hd217816217930%_) + (_%g217795217875%_ _%g217796217879%_)) + (_%g217795217875%_ _%g217796217879%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g214408214488%_ - _%g214409214492%_)) - (_%g214408214488%_ - _%g214409214492%_)) - (_%g214408214488%_ - _%g214409214492%_)))) - (_%g214408214488%_ _%g214409214492%_)))) - (_%g214408214488%_ _%g214409214492%_)) - (_%g214408214488%_ _%g214409214492%_))) - (_%g214408214488%_ _%g214409214492%_)))) + (_%g217795217875%_ + _%g217796217879%_)) + (_%g217795217875%_ + _%g217796217879%_)) + (_%g217795217875%_ + _%g217796217879%_)))) + (_%g217795217875%_ _%g217796217879%_)))) + (_%g217795217875%_ _%g217796217879%_)) + (_%g217795217875%_ _%g217796217879%_))) + (_%g217795217875%_ _%g217796217879%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g214408214488%_ - _%g214409214492%_)) - (_%g214408214488%_ - _%g214409214492%_)))) - (_%g214408214488%_ _%g214409214492%_)) - (_%g214408214488%_ _%g214409214492%_)) - (_%g214408214488%_ _%g214409214492%_)))) - (_%g214408214488%_ _%g214409214492%_)))) + (_%g217795217875%_ + _%g217796217879%_)) + (_%g217795217875%_ + _%g217796217879%_)))) + (_%g217795217875%_ _%g217796217879%_)) + (_%g217795217875%_ _%g217796217879%_)) + (_%g217795217875%_ _%g217796217879%_)))) + (_%g217795217875%_ _%g217796217879%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g214408214488%_ - _%g214409214492%_)) - (_%g214408214488%_ - _%g214409214492%_))) - (_%g214408214488%_ - _%g214409214492%_)))) - (_%g214408214488%_ _%g214409214492%_)) - (_%g214408214488%_ _%g214409214492%_)))) - (_%g214408214488%_ _%g214409214492%_)) - (_%g214408214488%_ _%g214409214492%_)) + (_%g217795217875%_ + _%g217796217879%_)) + (_%g217795217875%_ + _%g217796217879%_))) + (_%g217795217875%_ + _%g217796217879%_)))) + (_%g217795217875%_ _%g217796217879%_)) + (_%g217795217875%_ _%g217796217879%_)))) + (_%g217795217875%_ _%g217796217879%_)) + (_%g217795217875%_ _%g217796217879%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g214408214488%_ - _%g214409214492%_)))) - (_%g214408214488%_ - _%g214409214492%_)))) - (_%g214408214488%_ _%g214409214492%_)) - (_%g214408214488%_ _%g214409214492%_))) - (_%g214408214488%_ _%g214409214492%_)))) - (_%g214408214488%_ _%g214409214492%_)) - (_%g214408214488%_ _%g214409214492%_)))) + (_%g217795217875%_ + _%g217796217879%_)))) + (_%g217795217875%_ + _%g217796217879%_)))) + (_%g217795217875%_ _%g217796217879%_)) + (_%g217795217875%_ _%g217796217879%_))) + (_%g217795217875%_ _%g217796217879%_)))) + (_%g217795217875%_ _%g217796217879%_)) + (_%g217795217875%_ _%g217796217879%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g214408214488%_ - _%g214409214492%_)) - (_%g214408214488%_ - _%g214409214492%_)) - (_%g214408214488%_ _%g214409214492%_)))) - (_%g214408214488%_ _%g214409214492%_)))) - (_%g214408214488%_ _%g214409214492%_)) - (_%g214408214488%_ _%g214409214492%_))) + (_%g217795217875%_ + _%g217796217879%_)) + (_%g217795217875%_ + _%g217796217879%_)) + (_%g217795217875%_ _%g217796217879%_)))) + (_%g217795217875%_ _%g217796217879%_)))) + (_%g217795217875%_ _%g217796217879%_)) + (_%g217795217875%_ _%g217796217879%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g214408214488%_ - _%g214409214492%_)))) - (_%g214408214488%_ - _%g214409214492%_)) - (_%g214408214488%_ - _%g214409214492%_)))) - (_%g214408214488%_ _%g214409214492%_)) - (_%g214408214488%_ _%g214409214492%_)) - (_%g214408214488%_ _%g214409214492%_)))) - (_%g214408214488%_ _%g214409214492%_)))) + (_%g217795217875%_ + _%g217796217879%_)))) + (_%g217795217875%_ + _%g217796217879%_)) + (_%g217795217875%_ + _%g217796217879%_)))) + (_%g217795217875%_ _%g217796217879%_)) + (_%g217795217875%_ _%g217796217879%_)) + (_%g217795217875%_ _%g217796217879%_)))) + (_%g217795217875%_ _%g217796217879%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g214408214488%_ - _%g214409214492%_)) - (_%g214408214488%_ - _%g214409214492%_))) - (_%g214408214488%_ _%g214409214492%_)))) - (_%g214408214488%_ _%g214409214492%_)))) - (_%g214408214488%_ _%g214409214492%_))))) - (_%g214407214790%_ _%sig214405%_)))) + (_%g217795217875%_ + _%g217796217879%_)) + (_%g217795217875%_ + _%g217796217879%_))) + (_%g217795217875%_ _%g217796217879%_)))) + (_%g217795217875%_ _%g217796217879%_)))) + (_%g217795217875%_ _%g217796217879%_))))) + (_%g217794218177%_ _%sig217792%_)))) (define |gxc[:0:]#declare-primitive-predicate| - (lambda (_%stx215562%_) - (let* ((_%g215565215583%_ - (lambda (_%g215566215579%_) + (lambda (_%stx218949%_) + (let* ((_%g218952218970%_ + (lambda (_%g218953218966%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g215566215579%_)))) - (_%g215564215638%_ - (lambda (_%g215566215587%_) + _%g218953218966%_)))) + (_%g218951219025%_ + (lambda (_%g218953218974%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g215566215587%_)) - (let ((_%e215569215590%_ + (gx#stx-pair? _%g218953218974%_)) + (let ((_%e218956218977%_ (let () (declare (not safe)) - (gx#syntax-e _%g215566215587%_)))) - (let ((_%hd215570215594%_ + (gx#syntax-e _%g218953218974%_)))) + (let ((_%hd218957218981%_ (let () (declare (not safe)) - (##car _%e215569215590%_))) - (_%tl215571215597%_ + (##car _%e218956218977%_))) + (_%tl218958218984%_ (let () (declare (not safe)) - (##cdr _%e215569215590%_)))) + (##cdr _%e218956218977%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl215571215597%_)) - (let ((_%e215572215600%_ + (gx#stx-pair? _%tl218958218984%_)) + (let ((_%e218959218987%_ (let () (declare (not safe)) - (gx#syntax-e _%tl215571215597%_)))) - (let ((_%hd215573215604%_ + (gx#syntax-e _%tl218958218984%_)))) + (let ((_%hd218960218991%_ (let () (declare (not safe)) - (##car _%e215572215600%_))) - (_%tl215574215607%_ + (##car _%e218959218987%_))) + (_%tl218961218994%_ (let () (declare (not safe)) - (##cdr _%e215572215600%_)))) + (##cdr _%e218959218987%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl215574215607%_)) - (let ((_%e215575215610%_ + (gx#stx-pair? _%tl218961218994%_)) + (let ((_%e218962218997%_ (let () (declare (not safe)) (gx#syntax-e - _%tl215574215607%_)))) - (let ((_%hd215576215614%_ + _%tl218961218994%_)))) + (let ((_%hd218963219001%_ (let () (declare (not safe)) - (##car _%e215575215610%_))) - (_%tl215577215617%_ + (##car _%e218962218997%_))) + (_%tl218964219004%_ (let () (declare (not safe)) - (##cdr _%e215575215610%_)))) + (##cdr _%e218962218997%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl215577215617%_)) - ((lambda (_%L215620%_ - _%L215622%_) + _%tl218964219004%_)) + ((lambda (_%g218954219007%_ + _%g218955219009%_) (if (and (let () (declare (not safe)) (gx#identifier? - _%L215622%_)) + _%g218955219009%_)) (let () (declare (not safe)) (gx#identifier? - _%L215620%_))) + _%g218954219007%_))) (begin (|gxc[1]#verify-procedure!| - _%stx215562%_ - _%L215622%_) + _%stx218949%_ + _%g218955219009%_) (|gxc[1]#verify-class!| - _%stx215562%_ - _%L215620%_) + _%stx218949%_ + _%g218954219007%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L215622%_ + (cons _%g218955219009%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -4871,268 +4914,270 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L215620%_ '())) + (cons _%g218954219007%_ + '())) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g215565215583%_ - _%g215566215587%_))) - _%hd215576215614%_ - _%hd215573215604%_) - (_%g215565215583%_ - _%g215566215587%_)))) - (_%g215565215583%_ _%g215566215587%_)))) - (_%g215565215583%_ _%g215566215587%_)))) - (_%g215565215583%_ _%g215566215587%_))))) - (_%g215564215638%_ _%stx215562%_)))) + (_%g218952218970%_ + _%g218953218974%_))) + _%hd218963219001%_ + _%hd218960218991%_) + (_%g218952218970%_ + _%g218953218974%_)))) + (_%g218952218970%_ _%g218953218974%_)))) + (_%g218952218970%_ _%g218953218974%_)))) + (_%g218952218970%_ _%g218953218974%_))))) + (_%g218951219025%_ _%stx218949%_)))) (define |gxc[:0:]#declare-primitive-lambda| - (lambda (_%stx215642%_) - (let* ((_%g215645215669%_ - (lambda (_%g215646215665%_) + (lambda (_%stx219029%_) + (let* ((_%g219032219056%_ + (lambda (_%g219033219052%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g215646215665%_)))) - (_%g215644215952%_ - (lambda (_%g215646215673%_) + _%g219033219052%_)))) + (_%g219031219337%_ + (lambda (_%g219033219060%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g215646215673%_)) - (let ((_%e215649215676%_ + (gx#stx-pair? _%g219033219060%_)) + (let ((_%e219036219063%_ (let () (declare (not safe)) - (gx#syntax-e _%g215646215673%_)))) - (let ((_%hd215650215680%_ + (gx#syntax-e _%g219033219060%_)))) + (let ((_%hd219037219067%_ (let () (declare (not safe)) - (##car _%e215649215676%_))) - (_%tl215651215683%_ + (##car _%e219036219063%_))) + (_%tl219038219070%_ (let () (declare (not safe)) - (##cdr _%e215649215676%_)))) + (##cdr _%e219036219063%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl215651215683%_)) - (let ((_%e215652215686%_ + (gx#stx-pair? _%tl219038219070%_)) + (let ((_%e219039219073%_ (let () (declare (not safe)) - (gx#syntax-e _%tl215651215683%_)))) - (let ((_%hd215653215690%_ + (gx#syntax-e _%tl219038219070%_)))) + (let ((_%hd219040219077%_ (let () (declare (not safe)) - (##car _%e215652215686%_))) - (_%tl215654215693%_ + (##car _%e219039219073%_))) + (_%tl219041219080%_ (let () (declare (not safe)) - (##cdr _%e215652215686%_)))) + (##cdr _%e219039219073%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl215654215693%_)) - (let ((_g218014_ + (gx#stx-pair/null? _%tl219041219080%_)) + (let ((_g221389_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl215654215693%_ + _%tl219041219080%_ '0)))) (begin - (let ((_g218015_ + (let ((_g221390_ (let () (declare (not safe)) - (if (##values? _g218014_) + (if (##values? _g221389_) (##values-length - _g218014_) + _g221389_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g218015_ 2))) + (##fx= _g221390_ 2))) (error "Context expects 2 values" - _g218015_))) - (let ((_%target215655215696%_ + _g221390_))) + (let ((_%target219042219083%_ (let () (declare (not safe)) - (##values-ref _g218014_ 0))) - (_%tl215657215699%_ + (##values-ref _g221389_ 0))) + (_%tl219044219086%_ (let () (declare (not safe)) (##values-ref - _g218014_ + _g221389_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl215657215699%_)) - (letrec ((_%loop215658215702%_ - (lambda (_%hd215656215706%_ + _%tl219044219086%_)) + (letrec ((_%loop219045219089%_ + (lambda (_%hd219043219093%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%signature215662215709%_) + _%signature219049219096%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd215656215706%_)) - (let ((_%e215659215712%_ + (gx#stx-pair? _%hd219043219093%_)) + (let ((_%e219046219098%_ (let () (declare (not safe)) - (gx#syntax-e _%hd215656215706%_)))) - (let ((_%lp-hd215660215716%_ + (gx#syntax-e _%hd219043219093%_)))) + (let ((_%lp-hd219047219102%_ (let () (declare (not safe)) - (##car _%e215659215712%_))) - (_%lp-tl215661215719%_ + (##car _%e219046219098%_))) + (_%lp-tl219048219105%_ (let () (declare (not safe)) - (##cdr _%e215659215712%_)))) - (_%loop215658215702%_ - _%lp-tl215661215719%_ - (cons _%lp-hd215660215716%_ - _%signature215662215709%_)))) - (let ((_%signature215663215722%_ - (reverse _%signature215662215709%_))) - ((lambda (_%L215726%_ _%L215728%_) + (##cdr _%e219046219098%_)))) + (_%loop219045219089%_ + _%lp-tl219048219105%_ + (cons _%lp-hd219047219102%_ + _%signature219049219096%_)))) + (let ((_%signature219050219108%_ + (reverse _%signature219049219096%_))) + ((lambda (_%g219034219111%_ _%g219035219113%_) (if (let () (declare (not safe)) - (gx#identifier? _%L215728%_)) - (let* ((_%g215746215761%_ - (lambda (_%g215747215757%_) + (gx#identifier? _%g219035219113%_)) + (let* ((_%g219131219146%_ + (lambda (_%g219132219142%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g215747215757%_)))) - (_%g215745215940%_ - (lambda (_%g215747215765%_) + _%g219132219142%_)))) + (_%g219130219325%_ + (lambda (_%g219132219150%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g215747215765%_)) - (let ((_%e215750215768%_ + _%g219132219150%_)) + (let ((_%e219135219153%_ (let () (declare (not safe)) (gx#syntax-e - _%g215747215765%_)))) - (let ((_%hd215751215772%_ + _%g219132219150%_)))) + (let ((_%hd219136219157%_ (let () (declare (not safe)) - (##car _%e215750215768%_))) - (_%tl215752215775%_ + (##car _%e219135219153%_))) + (_%tl219137219160%_ (let () (declare (not safe)) - (##cdr _%e215750215768%_)))) + (##cdr _%e219135219153%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl215752215775%_)) - (let ((_%e215753215778%_ + _%tl219137219160%_)) + (let ((_%e219138219163%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl215752215775%_)))) - (let ((_%hd215754215782%_ + (gx#syntax-e _%tl219137219160%_)))) + (let ((_%hd219139219167%_ (let () (declare (not safe)) - (##car _%e215753215778%_))) - (_%tl215755215785%_ + (##car _%e219138219163%_))) + (_%tl219140219170%_ (let () (declare (not safe)) - (##cdr _%e215753215778%_)))) + (##cdr _%e219138219163%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl215755215785%_)) - ((lambda (_%L215788%_ _%L215790%_) - (let* ((_%g215806215814%_ - (lambda (_%g215807215810%_) + (gx#stx-null? _%tl219140219170%_)) + ((lambda (_%g219133219173%_ _%g219134219175%_) + (let* ((_%g219191219199%_ + (lambda (_%g219192219195%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g215807215810%_)))) - (_%g215805215936%_ - (lambda (_%g215807215818%_) - ((lambda (_%L215821%_) - (let* ((_%unchecked215834%_ + _%g219192219195%_)))) + (_%g219190219321%_ + (lambda (_%g219192219203%_) + ((lambda (_%g219193219206%_) + (let* ((_%unchecked219219%_ (|gxc[1]#signature->unchecked-signature| - _%L215788%_)) - (_%g215837215845%_ - (lambda (_%g215838215841%_) + _%g219133219173%_)) + (_%g219222219230%_ + (lambda (_%g219223219226%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g215838215841%_)))) - (_%g215836215868%_ - (lambda (_%g215838215849%_) - ((lambda (_%L215852%_) + _%g219223219226%_)))) + (_%g219221219253%_ + (lambda (_%g219223219234%_) + ((lambda (_%g219224219237%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (cons _%L215821%_ - (cons _%L215852%_ + (cons _%g219193219206%_ + (cons _%g219224219237%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g215838215849%_)))) - (_%g215836215868%_ - (if _%unchecked215834%_ - (let* ((_%g215872215887%_ - (lambda (_%g215873215883%_) + _%g219223219234%_)))) + (_%g219221219253%_ + (if _%unchecked219219%_ + (let* ((_%g219257219272%_ + (lambda (_%g219258219268%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g215873215883%_)))) - (_%g215871215932%_ - (lambda (_%g215873215891%_) + _%g219258219268%_)))) + (_%g219256219317%_ + (lambda (_%g219258219276%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g215873215891%_)) - (let ((_%e215876215894%_ + _%g219258219276%_)) + (let ((_%e219261219279%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%g215873215891%_)))) - (let ((_%hd215877215898%_ + (gx#syntax-e _%g219258219276%_)))) + (let ((_%hd219262219283%_ (let () (declare (not safe)) - (##car _%e215876215894%_))) - (_%tl215878215901%_ + (##car _%e219261219279%_))) + (_%tl219263219286%_ (let () (declare (not safe)) - (##cdr _%e215876215894%_)))) + (##cdr _%e219261219279%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl215878215901%_)) - (let ((_%e215879215904%_ + (gx#stx-pair? _%tl219263219286%_)) + (let ((_%e219264219289%_ (let () (declare (not safe)) - (gx#syntax-e _%tl215878215901%_)))) - (let ((_%hd215880215908%_ + (gx#syntax-e _%tl219263219286%_)))) + (let ((_%hd219265219293%_ (let () (declare (not safe)) - (##car _%e215879215904%_))) - (_%tl215881215911%_ + (##car _%e219264219289%_))) + (_%tl219266219296%_ (let () (declare (not safe)) - (##cdr _%e215879215904%_)))) + (##cdr _%e219264219289%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl215881215911%_)) - ((lambda (_%L215914%_ _%L215916%_) + (gx#stx-null? _%tl219266219296%_)) + ((lambda (_%g219259219299%_ + _%g219260219301%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L215916%_ + (cons _%g219260219301%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -5140,26 +5185,27 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L215790%_ '())) + (cons _%g219134219175%_ '())) (cons '#f - (cons 'signature: (cons _%L215914%_ '()))))) + (cons 'signature: + (cons _%g219259219299%_ '()))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd215880215908%_ - _%hd215877215898%_) - (_%g215872215887%_ _%g215873215891%_)))) - (_%g215872215887%_ _%g215873215891%_)))) - (_%g215872215887%_ _%g215873215891%_))))) + _%hd219265219293%_ + _%hd219262219283%_) + (_%g219257219272%_ _%g219258219276%_)))) + (_%g219257219272%_ _%g219258219276%_)))) + (_%g219257219272%_ _%g219258219276%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g215871215932%_ - _%unchecked215834%_)) + (_%g219256219317%_ + _%unchecked219219%_)) '(begin))))) - _%g215807215818%_)))) - (_%g215805215936%_ + _%g219192219203%_)))) + (_%g219190219321%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L215728%_ + (cons _%g219035219113%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -5169,313 +5215,314 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L215790%_ '())) - (cons '#f (cons 'signature: (cons _%L215788%_ '()))))) + (cons _%g219134219175%_ '())) + (cons '#f (cons 'signature: (cons _%g219133219173%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - _%hd215754215782%_ - _%hd215751215772%_) - (_%g215746215761%_ _%g215747215765%_)))) - (_%g215746215761%_ _%g215747215765%_)))) + _%hd219139219167%_ + _%hd219136219157%_) + (_%g219131219146%_ _%g219132219150%_)))) + (_%g219131219146%_ _%g219132219150%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g215746215761%_ - _%g215747215765%_))))) - (_%g215745215940%_ + (_%g219131219146%_ + _%g219132219150%_))))) + (_%g219130219325%_ (|gxc[1]#parse-signature| - _%stx215642%_ - _%L215728%_ - (let ((__tmp218016 - (lambda (_%g215943215946%_ - _%g215944215949%_) - (cons _%g215943215946%_ - _%g215944215949%_)))) + _%stx219029%_ + _%g219035219113%_ + (let ((__tmp221391 + (lambda (_%g219328219331%_ + _%g219329219334%_) + (cons _%g219328219331%_ + _%g219329219334%_)))) (declare (not safe)) (__foldr1 - __tmp218016 + __tmp221391 '() - _%L215726%_))))) - (_%g215645215669%_ _%g215646215673%_))) - _%signature215663215722%_ - _%hd215653215690%_)))))) + _%g219034219111%_))))) + (_%g219032219056%_ _%g219033219060%_))) + _%signature219050219108%_ + _%hd219040219077%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop215658215702%_ - _%target215655215696%_ + (_%loop219045219089%_ + _%target219042219083%_ '())) - (_%g215645215669%_ - _%g215646215673%_))))) - (_%g215645215669%_ _%g215646215673%_)))) - (_%g215645215669%_ _%g215646215673%_)))) - (_%g215645215669%_ _%g215646215673%_))))) - (_%g215644215952%_ _%stx215642%_)))) + (_%g219032219056%_ + _%g219033219060%_))))) + (_%g219032219056%_ _%g219033219060%_)))) + (_%g219032219056%_ _%g219033219060%_)))) + (_%g219032219056%_ _%g219033219060%_))))) + (_%g219031219337%_ _%stx219029%_)))) (define |gxc[:0:]#declare-primitive-case-lambda| - (lambda (_%stx215957%_) - (let* ((_%g215960215984%_ - (lambda (_%g215961215980%_) + (lambda (_%stx219342%_) + (let* ((_%g219345219369%_ + (lambda (_%g219346219365%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g215961215980%_)))) - (_%g215959216867%_ - (lambda (_%g215961215988%_) + _%g219346219365%_)))) + (_%g219344220244%_ + (lambda (_%g219346219373%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g215961215988%_)) - (let ((_%e215964215991%_ + (gx#stx-pair? _%g219346219373%_)) + (let ((_%e219349219376%_ (let () (declare (not safe)) - (gx#syntax-e _%g215961215988%_)))) - (let ((_%hd215965215995%_ + (gx#syntax-e _%g219346219373%_)))) + (let ((_%hd219350219380%_ (let () (declare (not safe)) - (##car _%e215964215991%_))) - (_%tl215966215998%_ + (##car _%e219349219376%_))) + (_%tl219351219383%_ (let () (declare (not safe)) - (##cdr _%e215964215991%_)))) + (##cdr _%e219349219376%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl215966215998%_)) - (let ((_%e215967216001%_ + (gx#stx-pair? _%tl219351219383%_)) + (let ((_%e219352219386%_ (let () (declare (not safe)) - (gx#syntax-e _%tl215966215998%_)))) - (let ((_%hd215968216005%_ + (gx#syntax-e _%tl219351219383%_)))) + (let ((_%hd219353219390%_ (let () (declare (not safe)) - (##car _%e215967216001%_))) - (_%tl215969216008%_ + (##car _%e219352219386%_))) + (_%tl219354219393%_ (let () (declare (not safe)) - (##cdr _%e215967216001%_)))) + (##cdr _%e219352219386%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl215969216008%_)) - (let ((_g218017_ + (gx#stx-pair/null? _%tl219354219393%_)) + (let ((_g221392_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl215969216008%_ + _%tl219354219393%_ '0)))) (begin - (let ((_g218018_ + (let ((_g221393_ (let () (declare (not safe)) - (if (##values? _g218017_) + (if (##values? _g221392_) (##values-length - _g218017_) + _g221392_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g218018_ 2))) + (##fx= _g221393_ 2))) (error "Context expects 2 values" - _g218018_))) - (let ((_%target215970216011%_ + _g221393_))) + (let ((_%target219355219396%_ (let () (declare (not safe)) - (##values-ref _g218017_ 0))) - (_%tl215972216014%_ + (##values-ref _g221392_ 0))) + (_%tl219357219399%_ (let () (declare (not safe)) (##values-ref - _g218017_ + _g221392_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl215972216014%_)) - (letrec ((_%loop215973216017%_ - (lambda (_%hd215971216021%_ + _%tl219357219399%_)) + (letrec ((_%loop219358219402%_ + (lambda (_%hd219356219406%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%case-signature215977216024%_) + _%case-signature219362219409%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd215971216021%_)) - (let ((_%e215974216027%_ + (gx#stx-pair? _%hd219356219406%_)) + (let ((_%e219359219411%_ (let () (declare (not safe)) - (gx#syntax-e _%hd215971216021%_)))) - (let ((_%lp-hd215975216031%_ + (gx#syntax-e _%hd219356219406%_)))) + (let ((_%lp-hd219360219415%_ (let () (declare (not safe)) - (##car _%e215974216027%_))) - (_%lp-tl215976216034%_ + (##car _%e219359219411%_))) + (_%lp-tl219361219418%_ (let () (declare (not safe)) - (##cdr _%e215974216027%_)))) - (_%loop215973216017%_ - _%lp-tl215976216034%_ - (cons _%lp-hd215975216031%_ - _%case-signature215977216024%_)))) - (let ((_%case-signature215978216037%_ - (reverse _%case-signature215977216024%_))) - ((lambda (_%L216041%_ _%L216043%_) + (##cdr _%e219359219411%_)))) + (_%loop219358219402%_ + _%lp-tl219361219418%_ + (cons _%lp-hd219360219415%_ + _%case-signature219362219409%_)))) + (let ((_%case-signature219363219421%_ + (reverse _%case-signature219362219409%_))) + ((lambda (_%g219347219424%_ _%g219348219426%_) (if (let () (declare (not safe)) - (gx#identifier? _%L216043%_)) - (let* ((_%signatures216074%_ - (map (lambda (_%g216060216062%_) + (gx#identifier? _%g219348219426%_)) + (let* ((_%signatures219457%_ + (map (lambda (_%g219443219445%_) (|gxc[1]#parse-signature| - _%stx215957%_ - _%L216043%_ - _%g216060216062%_)) - (let ((__tmp218019 - (lambda (_%g216065216068%_ - _%g216066216071%_) - (cons _%g216065216068%_ - _%g216066216071%_)))) + _%stx219342%_ + _%g219348219426%_ + _%g219443219445%_)) + (let ((__tmp221394 + (lambda (_%g219448219451%_ + _%g219449219454%_) + (cons _%g219448219451%_ + _%g219449219454%_)))) (declare (not safe)) (__foldr1 - __tmp218019 + __tmp221394 '() - _%L216041%_)))) - (_%g216077216103%_ - (lambda (_%g216078216099%_) + _%g219347219424%_)))) + (_%g219460219486%_ + (lambda (_%g219461219482%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g216078216099%_)))) - (_%g216076216863%_ - (lambda (_%g216078216107%_) + _%g219461219482%_)))) + (_%g219459220240%_ + (lambda (_%g219461219490%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g216078216107%_)) - (let ((_g218020_ + _%g219461219490%_)) + (let ((_g221395_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g216078216107%_ + _%g219461219490%_ '0)))) (begin - (let ((_g218021_ + (let ((_g221396_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g218020_) - (##values-length _g218020_) + _g221395_) + (##values-length _g221395_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g218021_ 2))) - (error "Context expects 2 values" _g218021_))) + (##fx= _g221396_ 2))) + (error "Context expects 2 values" _g221396_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target216081216110%_ + (let ((_%target219464219493%_ (let () (declare (not safe)) (##values-ref - _g218020_ + _g221395_ 0))) - (_%tl216083216113%_ + (_%tl219466219496%_ (let () (declare (not safe)) (##values-ref - _g218020_ + _g221395_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl216083216113%_)) - (letrec ((_%loop216084216116%_ + _%tl219466219496%_)) + (letrec ((_%loop219467219499%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd216082216120%_ - _%sig216088216123%_ - _%arity216089216125%_) + (lambda (_%hd219465219503%_ + _%sig219471219506%_ + _%arity219472219507%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd216082216120%_)) - (let ((_%e216085216128%_ + (gx#stx-pair? _%hd219465219503%_)) + (let ((_%e219468219509%_ (let () (declare (not safe)) - (gx#syntax-e _%hd216082216120%_)))) - (let ((_%lp-hd216086216132%_ + (gx#syntax-e _%hd219465219503%_)))) + (let ((_%lp-hd219469219513%_ (let () (declare (not safe)) - (##car _%e216085216128%_))) - (_%lp-tl216087216135%_ + (##car _%e219468219509%_))) + (_%lp-tl219470219516%_ (let () (declare (not safe)) - (##cdr _%e216085216128%_)))) + (##cdr _%e219468219509%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd216086216132%_)) - (let ((_%e216092216138%_ + _%lp-hd219469219513%_)) + (let ((_%e219475219519%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd216086216132%_)))) - (let ((_%hd216093216142%_ + _%lp-hd219469219513%_)))) + (let ((_%hd219476219523%_ (let () (declare (not safe)) - (##car _%e216092216138%_))) - (_%tl216094216145%_ + (##car _%e219475219519%_))) + (_%tl219477219526%_ (let () (declare (not safe)) - (##cdr _%e216092216138%_)))) + (##cdr _%e219475219519%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl216094216145%_)) - (let ((_%e216095216148%_ + _%tl219477219526%_)) + (let ((_%e219478219529%_ (let () (declare (not safe)) (gx#syntax-e - _%tl216094216145%_)))) - (let ((_%hd216096216152%_ + _%tl219477219526%_)))) + (let ((_%hd219479219533%_ (let () (declare (not safe)) - (##car _%e216095216148%_))) - (_%tl216097216155%_ + (##car _%e219478219529%_))) + (_%tl219480219536%_ (let () (declare (not safe)) - (##cdr _%e216095216148%_)))) + (##cdr _%e219478219529%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl216097216155%_)) - (_%loop216084216116%_ - _%lp-tl216087216135%_ - (cons _%hd216096216152%_ - _%sig216088216123%_) - (cons _%hd216093216142%_ - _%arity216089216125%_)) - (_%g216077216103%_ - _%g216078216107%_)))) - (_%g216077216103%_ - _%g216078216107%_)))) - (_%g216077216103%_ - _%g216078216107%_)))) - (let ((_%sig216090216158%_ - (reverse _%sig216088216123%_)) - (_%arity216091216161%_ - (reverse _%arity216089216125%_))) - ((lambda (_%L216164%_ _%L216166%_) - (let* ((_%g216183216191%_ - (lambda (_%g216184216187%_) + _%tl219480219536%_)) + (_%loop219467219499%_ + _%lp-tl219470219516%_ + (cons _%hd219479219533%_ + _%sig219471219506%_) + (cons _%hd219476219523%_ + _%arity219472219507%_)) + (_%g219460219486%_ + _%g219461219490%_)))) + (_%g219460219486%_ + _%g219461219490%_)))) + (_%g219460219486%_ + _%g219461219490%_)))) + (let ((_%sig219473219539%_ + (reverse _%sig219471219506%_)) + (_%arity219474219541%_ + (reverse _%arity219472219507%_))) + ((lambda (_%g219462219543%_ + _%g219463219545%_) + (let* ((_%g219562219570%_ + (lambda (_%g219563219566%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g216184216187%_)))) - (_%g216182216848%_ - (lambda (_%g216184216195%_) - ((lambda (_%L216198%_) - (let* ((_%g216211216219%_ - (lambda (_%g216212216215%_) + _%g219563219566%_)))) + (_%g219561220225%_ + (lambda (_%g219563219574%_) + ((lambda (_%g219564219577%_) + (let* ((_%g219590219598%_ + (lambda (_%g219591219594%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -5483,551 +5530,552 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g216212216215%_)))) - (_%g216210216241%_ - (lambda (_%g216212216223%_) - ((lambda (_%L216226%_) + _%g219591219594%_)))) + (_%g219589219620%_ + (lambda (_%g219591219602%_) + ((lambda (_%g219592219605%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (cons _%L216198%_ (cons _%L216226%_ '())))) - _%g216212216223%_)))) + (cons _%g219564219577%_ + (cons _%g219592219605%_ '())))) + _%g219591219602%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g216210216241%_ - (let ((_g218022_ - (let _%loop216245%_ ((_%rest216248%_ + (_%g219589219620%_ + (let ((_g221397_ + (let _%loop219624%_ ((_%rest219627%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%signatures216074%_) - (_%unchecked-proc216250%_ '#f) - (_%unchecked-clauses216251%_ '())) - (let* ((_%rest216252216260%_ _%rest216248%_) - (_%else216254216272%_ + _%signatures219457%_) + (_%unchecked-proc219629%_ '#f) + (_%unchecked-clauses219630%_ '())) + (let* ((_%rest219631219639%_ _%rest219627%_) + (_%else219633219651%_ (lambda () - (values _%unchecked-proc216250%_ + (values _%unchecked-proc219629%_ (reverse! - _%unchecked-clauses216251%_)))) - (_%K216256216713%_ - (lambda (_%rest216276%_ _%hd216278%_) - (let* ((_%g216280216367%_ - (lambda (_%g216281216363%_) + _%unchecked-clauses219630%_)))) + (_%K219635220092%_ + (lambda (_%rest219655%_ _%hd219657%_) + (let* ((_%g219659219746%_ + (lambda (_%g219660219742%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g216281216363%_)))) - (_%g216279216709%_ - (lambda (_%g216281216371%_) + _%g219660219742%_)))) + (_%g219658220088%_ + (lambda (_%g219660219750%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g216281216371%_)) - (let ((_%e216288216374%_ + _%g219660219750%_)) + (let ((_%e219667219753%_ (let () (declare (not safe)) (gx#syntax-e - _%g216281216371%_)))) - (let ((_%hd216289216378%_ + _%g219660219750%_)))) + (let ((_%hd219668219757%_ (let () (declare (not safe)) - (##car _%e216288216374%_))) - (_%tl216290216381%_ + (##car _%e219667219753%_))) + (_%tl219669219760%_ (let () (declare (not safe)) - (##cdr _%e216288216374%_)))) + (##cdr _%e219667219753%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl216290216381%_)) - (let ((_%e216291216384%_ + _%tl219669219760%_)) + (let ((_%e219670219763%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl216290216381%_)))) - (let ((_%hd216292216388%_ + (gx#syntax-e _%tl219669219760%_)))) + (let ((_%hd219671219767%_ (let () (declare (not safe)) - (##car _%e216291216384%_))) - (_%tl216293216391%_ + (##car _%e219670219763%_))) + (_%tl219672219770%_ (let () (declare (not safe)) - (##cdr _%e216291216384%_)))) + (##cdr _%e219670219763%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd216292216388%_)) - (let ((_%e216294216394%_ + (gx#stx-pair? _%hd219671219767%_)) + (let ((_%e219673219773%_ (let () (declare (not safe)) - (gx#syntax-e _%hd216292216388%_)))) - (let ((_%hd216295216398%_ + (gx#syntax-e _%hd219671219767%_)))) + (let ((_%hd219674219777%_ (let () (declare (not safe)) - (##car _%e216294216394%_))) - (_%tl216296216401%_ + (##car _%e219673219773%_))) + (_%tl219675219780%_ (let () (declare (not safe)) - (##cdr _%e216294216394%_)))) + (##cdr _%e219673219773%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl216296216401%_)) - (let ((_%e216297216404%_ + (gx#stx-pair? _%tl219675219780%_)) + (let ((_%e219676219783%_ (let () (declare (not safe)) - (gx#syntax-e _%tl216296216401%_)))) - (let ((_%hd216298216408%_ + (gx#syntax-e _%tl219675219780%_)))) + (let ((_%hd219677219787%_ (let () (declare (not safe)) - (##car _%e216297216404%_))) - (_%tl216299216411%_ + (##car _%e219676219783%_))) + (_%tl219678219790%_ (let () (declare (not safe)) - (##cdr _%e216297216404%_)))) + (##cdr _%e219676219783%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd216298216408%_)) - (let ((_%e216300216414%_ + (gx#stx-datum? _%hd219677219787%_)) + (let ((_%e219679219793%_ (let () (declare (not safe)) (gx#stx-e - _%hd216298216408%_)))) - (if (equal? _%e216300216414%_ + _%hd219677219787%_)))) + (if (equal? _%e219679219793%_ 'arguments:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl216299216411%_)) - (let ((_%e216301216418%_ + _%tl219678219790%_)) + (let ((_%e219680219797%_ (let () (declare (not safe)) (gx#syntax-e - _%tl216299216411%_)))) - (let ((_%hd216302216422%_ + _%tl219678219790%_)))) + (let ((_%hd219681219801%_ (let () (declare (not safe)) - (##car _%e216301216418%_))) - (_%tl216303216425%_ + (##car _%e219680219797%_))) + (_%tl219682219804%_ (let () (declare (not safe)) - (##cdr _%e216301216418%_)))) + (##cdr _%e219680219797%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd216302216422%_)) - (let ((_%e216304216428%_ + _%hd219681219801%_)) + (let ((_%e219683219807%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd216302216422%_)))) - (let ((_%hd216305216432%_ + (gx#syntax-e _%hd219681219801%_)))) + (let ((_%hd219684219811%_ (let () (declare (not safe)) - (##car _%e216304216428%_))) - (_%tl216306216435%_ + (##car _%e219683219807%_))) + (_%tl219685219814%_ (let () (declare (not safe)) - (##cdr _%e216304216428%_)))) + (##cdr _%e219683219807%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd216305216432%_)) - (if (let ((__tmp218024 |gxc[1]#_g218025_|)) + (gx#identifier? _%hd219684219811%_)) + (if (let ((__tmp221399 |gxc[1]#_g221400_|)) (declare (not safe)) (gx#free-identifier=? - __tmp218024 - _%hd216305216432%_)) + __tmp221399 + _%hd219684219811%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl216306216435%_)) - (let ((_%e216307216438%_ + (gx#stx-pair? _%tl219685219814%_)) + (let ((_%e219686219817%_ (let () (declare (not safe)) - (gx#syntax-e _%tl216306216435%_)))) - (let ((_%hd216308216442%_ + (gx#syntax-e _%tl219685219814%_)))) + (let ((_%hd219687219821%_ (let () (declare (not safe)) - (##car _%e216307216438%_))) - (_%tl216309216445%_ + (##car _%e219686219817%_))) + (_%tl219688219824%_ (let () (declare (not safe)) - (##cdr _%e216307216438%_)))) + (##cdr _%e219686219817%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl216309216445%_)) + (gx#stx-null? _%tl219688219824%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl216303216425%_)) - (let ((_%e216310216448%_ + _%tl219682219804%_)) + (let ((_%e219689219827%_ (let () (declare (not safe)) (gx#syntax-e - _%tl216303216425%_)))) - (let ((_%hd216311216452%_ + _%tl219682219804%_)))) + (let ((_%hd219690219831%_ (let () (declare (not safe)) - (##car _%e216310216448%_))) - (_%tl216312216455%_ + (##car _%e219689219827%_))) + (_%tl219691219834%_ (let () (declare (not safe)) - (##cdr _%e216310216448%_)))) + (##cdr _%e219689219827%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd216311216452%_)) - (let ((_%e216313216458%_ + _%hd219690219831%_)) + (let ((_%e219692219837%_ (let () (declare (not safe)) (gx#stx-e - _%hd216311216452%_)))) - (if (equal? _%e216313216458%_ + _%hd219690219831%_)))) + (if (equal? _%e219692219837%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'return:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl216312216455%_)) - (let ((_%e216314216462%_ + (gx#stx-pair? _%tl219691219834%_)) + (let ((_%e219693219841%_ (let () (declare (not safe)) - (gx#syntax-e _%tl216312216455%_)))) - (let ((_%hd216315216466%_ + (gx#syntax-e _%tl219691219834%_)))) + (let ((_%hd219694219845%_ (let () (declare (not safe)) - (##car _%e216314216462%_))) - (_%tl216316216469%_ + (##car _%e219693219841%_))) + (_%tl219695219848%_ (let () (declare (not safe)) - (##cdr _%e216314216462%_)))) + (##cdr _%e219693219841%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd216315216466%_)) - (let ((_%e216317216472%_ + (gx#stx-pair? _%hd219694219845%_)) + (let ((_%e219696219851%_ (let () (declare (not safe)) - (gx#syntax-e _%hd216315216466%_)))) - (let ((_%hd216318216476%_ + (gx#syntax-e _%hd219694219845%_)))) + (let ((_%hd219697219855%_ (let () (declare (not safe)) - (##car _%e216317216472%_))) - (_%tl216319216479%_ + (##car _%e219696219851%_))) + (_%tl219698219858%_ (let () (declare (not safe)) - (##cdr _%e216317216472%_)))) + (##cdr _%e219696219851%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd216318216476%_)) - (if (let ((__tmp218026 - |gxc[1]#_g218027_|)) + (gx#identifier? _%hd219697219855%_)) + (if (let ((__tmp221401 + |gxc[1]#_g221402_|)) (declare (not safe)) (gx#free-identifier=? - __tmp218026 - _%hd216318216476%_)) + __tmp221401 + _%hd219697219855%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl216319216479%_)) - (let ((_%e216320216482%_ + _%tl219698219858%_)) + (let ((_%e219699219861%_ (let () (declare (not safe)) (gx#syntax-e - _%tl216319216479%_)))) - (let ((_%hd216321216486%_ + _%tl219698219858%_)))) + (let ((_%hd219700219865%_ (let () (declare (not safe)) - (##car _%e216320216482%_))) - (_%tl216322216489%_ + (##car _%e219699219861%_))) + (_%tl219701219868%_ (let () (declare (not safe)) - (##cdr _%e216320216482%_)))) + (##cdr _%e219699219861%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl216322216489%_)) + _%tl219701219868%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl216316216469%_)) - (let ((_%e216323216492%_ + _%tl219695219848%_)) + (let ((_%e219702219871%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl216316216469%_)))) - (let ((_%hd216324216496%_ + (gx#syntax-e _%tl219695219848%_)))) + (let ((_%hd219703219875%_ (let () (declare (not safe)) - (##car _%e216323216492%_))) - (_%tl216325216499%_ + (##car _%e219702219871%_))) + (_%tl219704219878%_ (let () (declare (not safe)) - (##cdr _%e216323216492%_)))) + (##cdr _%e219702219871%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd216324216496%_)) - (let ((_%e216326216502%_ + (gx#stx-datum? _%hd219703219875%_)) + (let ((_%e219705219881%_ (let () (declare (not safe)) - (gx#stx-e _%hd216324216496%_)))) - (if (equal? _%e216326216502%_ 'effect:) + (gx#stx-e _%hd219703219875%_)))) + (if (equal? _%e219705219881%_ 'effect:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl216325216499%_)) - (let ((_%e216327216506%_ + (gx#stx-pair? _%tl219704219878%_)) + (let ((_%e219706219885%_ (let () (declare (not safe)) (gx#syntax-e - _%tl216325216499%_)))) - (let ((_%hd216328216510%_ + _%tl219704219878%_)))) + (let ((_%hd219707219889%_ (let () (declare (not safe)) - (##car _%e216327216506%_))) - (_%tl216329216513%_ + (##car _%e219706219885%_))) + (_%tl219708219892%_ (let () (declare (not safe)) - (##cdr _%e216327216506%_)))) + (##cdr _%e219706219885%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd216328216510%_)) - (let ((_%e216330216516%_ + _%hd219707219889%_)) + (let ((_%e219709219895%_ (let () (declare (not safe)) (gx#syntax-e - _%hd216328216510%_)))) - (let ((_%hd216331216520%_ + _%hd219707219889%_)))) + (let ((_%hd219710219899%_ (let () (declare (not safe)) - (##car _%e216330216516%_))) - (_%tl216332216523%_ + (##car _%e219709219895%_))) + (_%tl219711219902%_ (let () (declare (not safe)) - (##cdr _%e216330216516%_)))) + (##cdr _%e219709219895%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd216331216520%_)) - (if (let ((__tmp218028 - |gxc[1]#_g218029_|)) + _%hd219710219899%_)) + (if (let ((__tmp221403 + |gxc[1]#_g221404_|)) (declare (not safe)) (gx#free-identifier=? - __tmp218028 - _%hd216331216520%_)) + __tmp221403 + _%hd219710219899%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl216332216523%_)) - (let ((_%e216333216526%_ + (gx#stx-pair? _%tl219711219902%_)) + (let ((_%e219712219905%_ (let () (declare (not safe)) - (gx#syntax-e _%tl216332216523%_)))) - (let ((_%hd216334216530%_ + (gx#syntax-e _%tl219711219902%_)))) + (let ((_%hd219713219909%_ (let () (declare (not safe)) - (##car _%e216333216526%_))) - (_%tl216335216533%_ + (##car _%e219712219905%_))) + (_%tl219714219912%_ (let () (declare (not safe)) - (##cdr _%e216333216526%_)))) + (##cdr _%e219712219905%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl216335216533%_)) + (gx#stx-null? _%tl219714219912%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl216329216513%_)) - (let ((_%e216336216536%_ + (gx#stx-pair? _%tl219708219892%_)) + (let ((_%e219715219915%_ (let () (declare (not safe)) - (gx#syntax-e _%tl216329216513%_)))) - (let ((_%hd216337216540%_ + (gx#syntax-e _%tl219708219892%_)))) + (let ((_%hd219716219919%_ (let () (declare (not safe)) - (##car _%e216336216536%_))) - (_%tl216338216543%_ + (##car _%e219715219915%_))) + (_%tl219717219922%_ (let () (declare (not safe)) - (##cdr _%e216336216536%_)))) + (##cdr _%e219715219915%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd216337216540%_)) - (let ((_%e216339216546%_ + (gx#stx-datum? _%hd219716219919%_)) + (let ((_%e219718219925%_ (let () (declare (not safe)) (gx#stx-e - _%hd216337216540%_)))) - (if (equal? _%e216339216546%_ + _%hd219716219919%_)))) + (if (equal? _%e219718219925%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl216338216543%_)) - (let ((_%e216340216550%_ + _%tl219717219922%_)) + (let ((_%e219719219929%_ (let () (declare (not safe)) (gx#syntax-e - _%tl216338216543%_)))) - (let ((_%hd216341216554%_ + _%tl219717219922%_)))) + (let ((_%hd219720219933%_ (let () (declare (not safe)) - (##car _%e216340216550%_))) - (_%tl216342216557%_ + (##car _%e219719219929%_))) + (_%tl219721219936%_ (let () (declare (not safe)) - (##cdr _%e216340216550%_)))) + (##cdr _%e219719219929%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd216341216554%_)) - (let ((_%e216343216560%_ + _%hd219720219933%_)) + (let ((_%e219722219939%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd216341216554%_)))) - (let ((_%hd216344216564%_ + (gx#syntax-e _%hd219720219933%_)))) + (let ((_%hd219723219943%_ (let () (declare (not safe)) - (##car _%e216343216560%_))) - (_%tl216345216567%_ + (##car _%e219722219939%_))) + (_%tl219724219946%_ (let () (declare (not safe)) - (##cdr _%e216343216560%_)))) + (##cdr _%e219722219939%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd216344216564%_)) - (if (let ((__tmp218030 |gxc[1]#_g218031_|)) + (gx#identifier? _%hd219723219943%_)) + (if (let ((__tmp221405 |gxc[1]#_g221406_|)) (declare (not safe)) (gx#free-identifier=? - __tmp218030 - _%hd216344216564%_)) + __tmp221405 + _%hd219723219943%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl216345216567%_)) - (let ((_%e216346216570%_ + (gx#stx-pair? _%tl219724219946%_)) + (let ((_%e219725219949%_ (let () (declare (not safe)) - (gx#syntax-e _%tl216345216567%_)))) - (let ((_%hd216347216574%_ + (gx#syntax-e _%tl219724219946%_)))) + (let ((_%hd219726219953%_ (let () (declare (not safe)) - (##car _%e216346216570%_))) - (_%tl216348216577%_ + (##car _%e219725219949%_))) + (_%tl219727219956%_ (let () (declare (not safe)) - (##cdr _%e216346216570%_)))) + (##cdr _%e219725219949%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl216348216577%_)) + (gx#stx-null? _%tl219727219956%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl216342216557%_)) - (let ((_%e216349216580%_ + _%tl219721219936%_)) + (let ((_%e219728219959%_ (let () (declare (not safe)) (gx#syntax-e - _%tl216342216557%_)))) - (let ((_%hd216350216584%_ + _%tl219721219936%_)))) + (let ((_%hd219729219963%_ (let () (declare (not safe)) - (##car _%e216349216580%_))) - (_%tl216351216587%_ + (##car _%e219728219959%_))) + (_%tl219730219966%_ (let () (declare (not safe)) - (##cdr _%e216349216580%_)))) + (##cdr _%e219728219959%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd216350216584%_)) - (let ((_%e216352216590%_ + _%hd219729219963%_)) + (let ((_%e219731219969%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd216350216584%_)))) - (if (equal? _%e216352216590%_ 'origin:) + (gx#stx-e _%hd219729219963%_)))) + (if (equal? _%e219731219969%_ 'origin:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl216351216587%_)) - (let ((_%e216353216594%_ + (gx#stx-pair? _%tl219730219966%_)) + (let ((_%e219732219973%_ (let () (declare (not safe)) - (gx#syntax-e _%tl216351216587%_)))) - (let ((_%hd216354216598%_ + (gx#syntax-e _%tl219730219966%_)))) + (let ((_%hd219733219977%_ (let () (declare (not safe)) - (##car _%e216353216594%_))) - (_%tl216355216601%_ + (##car _%e219732219973%_))) + (_%tl219734219980%_ (let () (declare (not safe)) - (##cdr _%e216353216594%_)))) + (##cdr _%e219732219973%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd216354216598%_)) - (let ((_%e216356216604%_ + (gx#stx-pair? _%hd219733219977%_)) + (let ((_%e219735219983%_ (let () (declare (not safe)) - (gx#syntax-e _%hd216354216598%_)))) - (let ((_%hd216357216608%_ + (gx#syntax-e _%hd219733219977%_)))) + (let ((_%hd219736219987%_ (let () (declare (not safe)) - (##car _%e216356216604%_))) - (_%tl216358216611%_ + (##car _%e219735219983%_))) + (_%tl219737219990%_ (let () (declare (not safe)) - (##cdr _%e216356216604%_)))) + (##cdr _%e219735219983%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd216357216608%_)) - (if (let ((__tmp218032 - |gxc[1]#_g218033_|)) + (gx#identifier? _%hd219736219987%_)) + (if (let ((__tmp221407 + |gxc[1]#_g221408_|)) (declare (not safe)) (gx#free-identifier=? - __tmp218032 - _%hd216357216608%_)) + __tmp221407 + _%hd219736219987%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl216358216611%_)) - (let ((_%e216359216614%_ + _%tl219737219990%_)) + (let ((_%e219738219993%_ (let () (declare (not safe)) (gx#syntax-e - _%tl216358216611%_)))) - (let ((_%hd216360216618%_ + _%tl219737219990%_)))) + (let ((_%hd219739219997%_ (let () (declare (not safe)) - (##car _%e216359216614%_))) - (_%tl216361216621%_ + (##car _%e219738219993%_))) + (_%tl219740220000%_ (let () (declare (not safe)) - (##cdr _%e216359216614%_)))) + (##cdr _%e219738219993%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl216361216621%_)) + _%tl219740220000%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl216355216601%_)) + (gx#stx-null? _%tl219734219980%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl216293216391%_)) - ((lambda (_%L216624%_ - _%L216626%_ - _%L216627%_ - _%L216628%_ - _%L216629%_ - _%L216630%_) - (let ((_%clause216701%_ + (gx#stx-null? _%tl219672219770%_)) + ((lambda (_%g219661220003%_ + _%g219662220005%_ + _%g219663220006%_ + _%g219664220007%_ + _%g219665220008%_ + _%g219666220009%_) + (let ((_%clause220080%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6038,7 +6086,8 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L216630%_ '())) + (cons _%g219666220009%_ + '())) (cons '#f (cons 'signature: (cons (cons (let () @@ -6051,256 +6100,256 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L216628%_ '())) + (cons _%g219664220007%_ '())) (cons 'origin: (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L216624%_ '())) + (cons _%g219661220003%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%unchecked216703%_ + (_%unchecked220082%_ (let () (declare (not safe)) - (gx#stx-e _%L216626%_)))) - (_%loop216245%_ - _%rest216276%_ - (let ((_%$e216705%_ _%unchecked216703%_)) - (if _%$e216705%_ - _%$e216705%_ - _%unchecked-proc216250%_)) - (cons _%clause216701%_ - _%unchecked-clauses216251%_)))) - _%hd216360216618%_ - _%hd216347216574%_ - _%hd216334216530%_ - _%hd216321216486%_ - _%hd216308216442%_ - _%hd216289216378%_) - (_%g216280216367%_ _%g216281216371%_)) - (_%g216280216367%_ _%g216281216371%_)) - (_%g216280216367%_ _%g216281216371%_)))) + (gx#stx-e _%g219662220005%_)))) + (_%loop219624%_ + _%rest219655%_ + (let ((_%$e220084%_ _%unchecked220082%_)) + (if _%$e220084%_ + _%$e220084%_ + _%unchecked-proc219629%_)) + (cons _%clause220080%_ + _%unchecked-clauses219630%_)))) + _%hd219739219997%_ + _%hd219726219953%_ + _%hd219713219909%_ + _%hd219700219865%_ + _%hd219687219821%_ + _%hd219668219757%_) + (_%g219659219746%_ _%g219660219750%_)) + (_%g219659219746%_ _%g219660219750%_)) + (_%g219659219746%_ _%g219660219750%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g216280216367%_ - _%g216281216371%_)) - (_%g216280216367%_ - _%g216281216371%_)) - (_%g216280216367%_ - _%g216281216371%_)))) - (_%g216280216367%_ _%g216281216371%_)))) - (_%g216280216367%_ _%g216281216371%_)) - (_%g216280216367%_ _%g216281216371%_))) - (_%g216280216367%_ _%g216281216371%_)))) + (_%g219659219746%_ + _%g219660219750%_)) + (_%g219659219746%_ + _%g219660219750%_)) + (_%g219659219746%_ + _%g219660219750%_)))) + (_%g219659219746%_ _%g219660219750%_)))) + (_%g219659219746%_ _%g219660219750%_)) + (_%g219659219746%_ _%g219660219750%_))) + (_%g219659219746%_ _%g219660219750%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g216280216367%_ - _%g216281216371%_)) - (_%g216280216367%_ - _%g216281216371%_)))) - (_%g216280216367%_ _%g216281216371%_)) - (_%g216280216367%_ _%g216281216371%_)) - (_%g216280216367%_ _%g216281216371%_)))) - (_%g216280216367%_ _%g216281216371%_)))) + (_%g219659219746%_ + _%g219660219750%_)) + (_%g219659219746%_ + _%g219660219750%_)))) + (_%g219659219746%_ _%g219660219750%_)) + (_%g219659219746%_ _%g219660219750%_)) + (_%g219659219746%_ _%g219660219750%_)))) + (_%g219659219746%_ _%g219660219750%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g216280216367%_ - _%g216281216371%_)) - (_%g216280216367%_ - _%g216281216371%_))) - (_%g216280216367%_ - _%g216281216371%_)))) - (_%g216280216367%_ _%g216281216371%_)) - (_%g216280216367%_ _%g216281216371%_)))) - (_%g216280216367%_ _%g216281216371%_)) - (_%g216280216367%_ _%g216281216371%_)) + (_%g219659219746%_ + _%g219660219750%_)) + (_%g219659219746%_ + _%g219660219750%_))) + (_%g219659219746%_ + _%g219660219750%_)))) + (_%g219659219746%_ _%g219660219750%_)) + (_%g219659219746%_ _%g219660219750%_)))) + (_%g219659219746%_ _%g219660219750%_)) + (_%g219659219746%_ _%g219660219750%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g216280216367%_ - _%g216281216371%_)))) - (_%g216280216367%_ - _%g216281216371%_)))) - (_%g216280216367%_ _%g216281216371%_)) - (_%g216280216367%_ _%g216281216371%_))) - (_%g216280216367%_ _%g216281216371%_)))) - (_%g216280216367%_ _%g216281216371%_)) - (_%g216280216367%_ _%g216281216371%_)))) + (_%g219659219746%_ + _%g219660219750%_)))) + (_%g219659219746%_ + _%g219660219750%_)))) + (_%g219659219746%_ _%g219660219750%_)) + (_%g219659219746%_ _%g219660219750%_))) + (_%g219659219746%_ _%g219660219750%_)))) + (_%g219659219746%_ _%g219660219750%_)) + (_%g219659219746%_ _%g219660219750%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g216280216367%_ - _%g216281216371%_)) - (_%g216280216367%_ - _%g216281216371%_)) - (_%g216280216367%_ _%g216281216371%_)))) - (_%g216280216367%_ _%g216281216371%_)))) - (_%g216280216367%_ _%g216281216371%_)) - (_%g216280216367%_ _%g216281216371%_))) + (_%g219659219746%_ + _%g219660219750%_)) + (_%g219659219746%_ + _%g219660219750%_)) + (_%g219659219746%_ _%g219660219750%_)))) + (_%g219659219746%_ _%g219660219750%_)))) + (_%g219659219746%_ _%g219660219750%_)) + (_%g219659219746%_ _%g219660219750%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g216280216367%_ - _%g216281216371%_)))) - (_%g216280216367%_ - _%g216281216371%_)) - (_%g216280216367%_ - _%g216281216371%_)))) - (_%g216280216367%_ _%g216281216371%_)) - (_%g216280216367%_ _%g216281216371%_)) - (_%g216280216367%_ _%g216281216371%_)))) - (_%g216280216367%_ _%g216281216371%_)))) + (_%g219659219746%_ + _%g219660219750%_)))) + (_%g219659219746%_ + _%g219660219750%_)) + (_%g219659219746%_ + _%g219660219750%_)))) + (_%g219659219746%_ _%g219660219750%_)) + (_%g219659219746%_ _%g219660219750%_)) + (_%g219659219746%_ _%g219660219750%_)))) + (_%g219659219746%_ _%g219660219750%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g216280216367%_ - _%g216281216371%_)) - (_%g216280216367%_ - _%g216281216371%_))) - (_%g216280216367%_ _%g216281216371%_)))) - (_%g216280216367%_ _%g216281216371%_)))) - (_%g216280216367%_ _%g216281216371%_)))) - (_%g216280216367%_ _%g216281216371%_)))) + (_%g219659219746%_ + _%g219660219750%_)) + (_%g219659219746%_ + _%g219660219750%_))) + (_%g219659219746%_ _%g219660219750%_)))) + (_%g219659219746%_ _%g219660219750%_)))) + (_%g219659219746%_ _%g219660219750%_)))) + (_%g219659219746%_ _%g219660219750%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g216280216367%_ - _%g216281216371%_))))) - (_%g216279216709%_ _%hd216278%_))))) - (if (pair? _%rest216252216260%_) - (let ((_%hd216257216717%_ + (_%g219659219746%_ + _%g219660219750%_))))) + (_%g219658220088%_ _%hd219657%_))))) + (if (pair? _%rest219631219639%_) + (let ((_%hd219636220096%_ (let () (declare (not safe)) - (##car _%rest216252216260%_))) - (_%tl216258216720%_ + (##car _%rest219631219639%_))) + (_%tl219637220099%_ (let () (declare (not safe)) - (##cdr _%rest216252216260%_)))) - (let* ((_%hd216723%_ _%hd216257216717%_) - (_%rest216726%_ _%tl216258216720%_)) - (_%K216256216713%_ - _%rest216726%_ - _%hd216723%_))) - (_%else216254216272%_)))))) + (##cdr _%rest219631219639%_)))) + (let* ((_%hd220102%_ _%hd219636220096%_) + (_%rest220105%_ _%tl219637220099%_)) + (_%K219635220092%_ + _%rest220105%_ + _%hd220102%_))) + (_%else219633219651%_)))))) (begin - (let ((_g218023_ + (let ((_g221398_ (let () (declare (not safe)) - (if (##values? _g218022_) - (##values-length _g218022_) + (if (##values? _g221397_) + (##values-length _g221397_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g218023_ 2))) - (error "Context expects 2 values" _g218023_))) - (let ((_%unchecked-proc216729%_ + (if (not (let () (declare (not safe)) (##fx= _g221398_ 2))) + (error "Context expects 2 values" _g221398_))) + (let ((_%unchecked-proc220108%_ (let () (declare (not safe)) - (##values-ref _g218022_ 0))) - (_%unchecked-clauses216731%_ + (##values-ref _g221397_ 0))) + (_%unchecked-clauses220110%_ (let () (declare (not safe)) - (##values-ref _g218022_ 1)))) - (if _%unchecked-proc216729%_ - (let* ((_%g216733216757%_ - (lambda (_%g216734216753%_) + (##values-ref _g221397_ 1)))) + (if _%unchecked-proc220108%_ + (let* ((_%g220112220136%_ + (lambda (_%g220113220132%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g216734216753%_)))) - (_%g216732216844%_ - (lambda (_%g216734216761%_) + _%g220113220132%_)))) + (_%g220111220221%_ + (lambda (_%g220113220140%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g216734216761%_)) - (let ((_%e216737216764%_ + (gx#stx-pair? _%g220113220140%_)) + (let ((_%e220116220143%_ (let () (declare (not safe)) (gx#syntax-e - _%g216734216761%_)))) - (let ((_%hd216738216768%_ + _%g220113220140%_)))) + (let ((_%hd220117220147%_ (let () (declare (not safe)) - (##car _%e216737216764%_))) - (_%tl216739216771%_ + (##car _%e220116220143%_))) + (_%tl220118220150%_ (let () (declare (not safe)) - (##cdr _%e216737216764%_)))) + (##cdr _%e220116220143%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl216739216771%_)) - (let ((_%e216740216774%_ + _%tl220118220150%_)) + (let ((_%e220119220153%_ (let () (declare (not safe)) (gx#syntax-e - _%tl216739216771%_)))) - (let ((_%hd216741216778%_ + _%tl220118220150%_)))) + (let ((_%hd220120220157%_ (let () (declare (not safe)) - (##car _%e216740216774%_))) - (_%tl216742216781%_ + (##car _%e220119220153%_))) + (_%tl220121220160%_ (let () (declare (not safe)) - (##cdr _%e216740216774%_)))) + (##cdr _%e220119220153%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd216741216778%_)) - (let ((_g218034_ + _%hd220120220157%_)) + (let ((_g221409_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%hd216741216778%_ '0)))) + (gx#syntax-split-splice _%hd220120220157%_ '0)))) (begin - (let ((_g218035_ + (let ((_g221410_ (let () (declare (not safe)) - (if (##values? _g218034_) - (##values-length _g218034_) + (if (##values? _g221409_) + (##values-length _g221409_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g218035_ 2))) - (error "Context expects 2 values" _g218035_))) - (let ((_%target216743216784%_ + (if (not (let () (declare (not safe)) (##fx= _g221410_ 2))) + (error "Context expects 2 values" _g221410_))) + (let ((_%target220122220163%_ (let () (declare (not safe)) - (##values-ref _g218034_ 0))) - (_%tl216745216787%_ + (##values-ref _g221409_ 0))) + (_%tl220124220166%_ (let () (declare (not safe)) - (##values-ref _g218034_ 1)))) + (##values-ref _g221409_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl216745216787%_)) - (letrec ((_%loop216746216790%_ - (lambda (_%hd216744216794%_ - _%clause216750216797%_) + (gx#stx-null? _%tl220124220166%_)) + (letrec ((_%loop220125220169%_ + (lambda (_%hd220123220173%_ + _%clause220129220176%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd216744216794%_)) - (let ((_%e216747216800%_ + (gx#stx-pair? _%hd220123220173%_)) + (let ((_%e220126220178%_ (let () (declare (not safe)) (gx#syntax-e - _%hd216744216794%_)))) - (let ((_%lp-hd216748216804%_ + _%hd220123220173%_)))) + (let ((_%lp-hd220127220182%_ (let () (declare (not safe)) - (##car _%e216747216800%_))) - (_%lp-tl216749216807%_ + (##car _%e220126220178%_))) + (_%lp-tl220128220185%_ (let () (declare (not safe)) - (##cdr _%e216747216800%_)))) - (_%loop216746216790%_ - _%lp-tl216749216807%_ - (cons _%lp-hd216748216804%_ - _%clause216750216797%_)))) - (let ((_%clause216751216810%_ - (reverse _%clause216750216797%_))) + (##cdr _%e220126220178%_)))) + (_%loop220125220169%_ + _%lp-tl220128220185%_ + (cons _%lp-hd220127220182%_ + _%clause220129220176%_)))) + (let ((_%clause220130220188%_ + (reverse _%clause220129220176%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl216742216781%_)) - ((lambda (_%L216814%_ - _%L216816%_) + _%tl220121220160%_)) + ((lambda (_%g220114220191%_ + _%g220115220193%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L216816%_ + (cons _%g220115220193%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -6312,43 +6361,43 @@ (gx#datum->syntax__0 '#f '@list)) - (let ((__tmp218036 - (lambda (_%g216835216838%_ - _%g216836216841%_) - (cons _%g216835216838%_ - _%g216836216841%_)))) + (let ((__tmp221411 + (lambda (_%g220212220215%_ + _%g220213220218%_) + (cons _%g220212220215%_ + _%g220213220218%_)))) (declare (not safe)) (__foldr1 - __tmp218036 + __tmp221411 '() - _%L216814%_))) + _%g220114220191%_))) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause216751216810%_ - _%hd216738216768%_) - (_%g216733216757%_ - _%g216734216761%_))))))) - (_%loop216746216790%_ _%target216743216784%_ '())) - (_%g216733216757%_ _%g216734216761%_))))) - (_%g216733216757%_ _%g216734216761%_)))) + _%clause220130220188%_ + _%hd220117220147%_) + (_%g220112220136%_ + _%g220113220140%_))))))) + (_%loop220125220169%_ _%target220122220163%_ '())) + (_%g220112220136%_ _%g220113220140%_))))) + (_%g220112220136%_ _%g220113220140%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g216733216757%_ - _%g216734216761%_)))) - (_%g216733216757%_ _%g216734216761%_))))) - (_%g216732216844%_ - (list _%unchecked-proc216729%_ - _%unchecked-clauses216731%_))) + (_%g220112220136%_ + _%g220113220140%_)))) + (_%g220112220136%_ _%g220113220140%_))))) + (_%g220111220221%_ + (list _%unchecked-proc220108%_ + _%unchecked-clauses220110%_))) '(begin)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g216184216195%_)))) - (_%g216182216848%_ + _%g219563219574%_)))) + (_%g219561220225%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L216043%_ + (cons _%g219348219426%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -6362,12 +6411,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L216164%_ - _%L216166%_)) - (let ((__tmp218037 - (lambda (_%g216851216855%_ - _%g216852216858%_ - _%g216853216860%_) + _%g219462219543%_ + _%g219463219545%_)) + (let ((__tmp221412 + (lambda (_%g220228220232%_ + _%g220229220235%_ + _%g220230220237%_) (cons (cons (let () (declare (not safe)) @@ -6378,55 +6427,55 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g216852216858%_ '())) + (cons _%g220229220235%_ '())) (cons '#f (cons 'signature: - (cons _%g216851216855%_ '()))))) - _%g216853216860%_)))) + (cons _%g220228220232%_ '()))))) + _%g220230220237%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp218037 + __tmp221412 '() - _%L216164%_ - _%L216166%_)))) + _%g219462219543%_ + _%g219463219545%_)))) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%sig216090216158%_ - _%arity216091216161%_)))))) - (_%loop216084216116%_ _%target216081216110%_ '() '())) - (_%g216077216103%_ _%g216078216107%_))))) + _%sig219473219539%_ + _%arity219474219541%_)))))) + (_%loop219467219499%_ _%target219464219493%_ '() '())) + (_%g219460219486%_ _%g219461219490%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g216077216103%_ - _%g216078216107%_))))) - (_%g216076216863%_ _%signatures216074%_)) - (_%g215960215984%_ _%g215961215988%_))) - _%case-signature215978216037%_ - _%hd215968216005%_)))))) + (_%g219460219486%_ + _%g219461219490%_))))) + (_%g219459220240%_ _%signatures219457%_)) + (_%g219345219369%_ _%g219346219373%_))) + _%case-signature219363219421%_ + _%hd219353219390%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop215973216017%_ - _%target215970216011%_ + (_%loop219358219402%_ + _%target219355219396%_ '())) - (_%g215960215984%_ - _%g215961215988%_))))) - (_%g215960215984%_ _%g215961215988%_)))) - (_%g215960215984%_ _%g215961215988%_)))) - (_%g215960215984%_ _%g215961215988%_))))) - (_%g215959216867%_ _%stx215957%_)))) + (_%g219345219369%_ + _%g219346219373%_))))) + (_%g219345219369%_ _%g219346219373%_)))) + (_%g219345219369%_ _%g219346219373%_)))) + (_%g219345219369%_ _%g219346219373%_))))) + (_%g219344220244%_ _%stx219342%_)))) (define |gxc[:0:]#declare-builtin-class| - (lambda (_%$stx216875%_) - (let* ((_%__stx217857217858%_ _%$stx216875%_) - (_%g216881216941%_ + (lambda (_%$stx220252%_) + (let* ((_%__stx221232221233%_ _%$stx220252%_) + (_%g220258220318%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx217857217858%_))))) - (let ((_%__kont217860217861%_ - (lambda (_%L217163%_ _%L217165%_) + _%__stx221232221233%_))))) + (let ((_%__kont221235221236%_ + (lambda (_%g220260220540%_ _%g220261220542%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6435,7 +6484,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L217165%_ '())) + (cons _%g220261220542%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6446,13 +6495,14 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L217165%_ '())) + (cons _%g220261220542%_ + '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L217163%_ '())) + (cons _%g220260220540%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)) @@ -6461,8 +6511,10 @@ (cons '#f (cons '#f (cons '#t (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont217862217863%_ - (lambda (_%L217088%_ _%L217090%_ _%L217091%_) + (_%__kont221237221238%_ + (lambda (_%g220275220465%_ + _%g220276220467%_ + _%g220277220468%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6471,7 +6523,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L217091%_ '())) + (cons _%g220277220468%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6482,23 +6534,26 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L217091%_ '())) + (cons _%g220277220468%_ + '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L217090%_ '())) + (cons _%g220276220467%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L217088%_ '())) + (cons _%g220275220465%_ '())) (cons '#f (cons '#f (cons '#f (cons '#f (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont217864217865%_ - (lambda (_%L217002%_ _%L217004%_ _%L217005%_) + (_%__kont221239221240%_ + (lambda (_%g220294220379%_ + _%g220295220381%_ + _%g220296220382%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6507,7 +6562,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L217005%_ '())) + (cons _%g220296220382%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6518,360 +6573,361 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L217005%_ '())) + (cons _%g220296220382%_ + '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L217004%_ '())) + (cons _%g220295220381%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L217002%_ '())) + (cons _%g220294220379%_ '())) (cons '#f (cons '#t (cons '#f (cons '#f (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx217857217858%_)) - (let ((_%e216885217119%_ + (gx#stx-pair? _%__stx221232221233%_)) + (let ((_%e220262220496%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx217857217858%_)))) - (let ((_%tl216887217126%_ + (gx#syntax-e _%__stx221232221233%_)))) + (let ((_%tl220264220503%_ (let () (declare (not safe)) - (##cdr _%e216885217119%_))) - (_%hd216886217123%_ + (##cdr _%e220262220496%_))) + (_%hd220263220500%_ (let () (declare (not safe)) - (##car _%e216885217119%_)))) + (##car _%e220262220496%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl216887217126%_)) - (let ((_%e216888217129%_ + (gx#stx-pair? _%tl220264220503%_)) + (let ((_%e220265220506%_ (let () (declare (not safe)) - (gx#syntax-e _%tl216887217126%_)))) - (let ((_%tl216890217136%_ + (gx#syntax-e _%tl220264220503%_)))) + (let ((_%tl220267220513%_ (let () (declare (not safe)) - (##cdr _%e216888217129%_))) - (_%hd216889217133%_ + (##cdr _%e220265220506%_))) + (_%hd220266220510%_ (let () (declare (not safe)) - (##car _%e216888217129%_)))) + (##car _%e220265220506%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd216889217133%_)) - (let ((_%e216891217139%_ + (gx#stx-datum? _%hd220266220510%_)) + (let ((_%e220268220516%_ (let () (declare (not safe)) - (gx#stx-e _%hd216889217133%_)))) - (if (equal? _%e216891217139%_ 'system:) + (gx#stx-e _%hd220266220510%_)))) + (if (equal? _%e220268220516%_ 'system:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl216890217136%_)) - (let ((_%e216892217143%_ + (gx#stx-pair? _%tl220267220513%_)) + (let ((_%e220269220520%_ (let () (declare (not safe)) (gx#syntax-e - _%tl216890217136%_)))) - (let ((_%tl216894217150%_ + _%tl220267220513%_)))) + (let ((_%tl220271220527%_ (let () (declare (not safe)) - (##cdr _%e216892217143%_))) - (_%hd216893217147%_ + (##cdr _%e220269220520%_))) + (_%hd220270220524%_ (let () (declare (not safe)) - (##car _%e216892217143%_)))) + (##car _%e220269220520%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl216894217150%_)) - (let ((_%e216895217153%_ + _%tl220271220527%_)) + (let ((_%e220272220530%_ (let () (declare (not safe)) (gx#syntax-e - _%tl216894217150%_)))) - (let ((_%tl216897217160%_ + _%tl220271220527%_)))) + (let ((_%tl220274220537%_ (let () (declare (not safe)) - (##cdr _%e216895217153%_))) - (_%hd216896217157%_ + (##cdr _%e220272220530%_))) + (_%hd220273220534%_ (let () (declare (not safe)) - (##car _%e216895217153%_)))) + (##car _%e220272220530%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl216897217160%_)) - (_%__kont217860217861%_ - _%hd216896217157%_ - _%hd216893217147%_) + _%tl220274220537%_)) + (_%__kont221235221236%_ + _%hd220273220534%_ + _%hd220270220524%_) (let () (declare (not safe)) - (_%g216881216941%_))))) + (_%g220258220318%_))))) (let () (declare (not safe)) - (_%g216881216941%_))))) + (_%g220258220318%_))))) (let () (declare (not safe)) - (_%g216881216941%_))) - (if (equal? _%e216891217139%_ 'struct:) + (_%g220258220318%_))) + (if (equal? _%e220268220516%_ 'struct:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl216890217136%_)) - (let ((_%e216908217058%_ + _%tl220267220513%_)) + (let ((_%e220285220435%_ (let () (declare (not safe)) (gx#syntax-e - _%tl216890217136%_)))) - (let ((_%tl216910217065%_ + _%tl220267220513%_)))) + (let ((_%tl220287220442%_ (let () (declare (not safe)) - (##cdr _%e216908217058%_))) - (_%hd216909217062%_ + (##cdr _%e220285220435%_))) + (_%hd220286220439%_ (let () (declare (not safe)) - (##car _%e216908217058%_)))) + (##car _%e220285220435%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl216910217065%_)) - (let ((_%e216911217068%_ + _%tl220287220442%_)) + (let ((_%e220288220445%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl216910217065%_)))) - (let ((_%tl216913217075%_ - (let () (declare (not safe)) (##cdr _%e216911217068%_))) - (_%hd216912217072%_ + (gx#syntax-e _%tl220287220442%_)))) + (let ((_%tl220290220452%_ + (let () (declare (not safe)) (##cdr _%e220288220445%_))) + (_%hd220289220449%_ (let () (declare (not safe)) - (##car _%e216911217068%_)))) + (##car _%e220288220445%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl216913217075%_)) - (let ((_%e216914217078%_ + (gx#stx-pair? _%tl220290220452%_)) + (let ((_%e220291220455%_ (let () (declare (not safe)) - (gx#syntax-e _%tl216913217075%_)))) - (let ((_%tl216916217085%_ + (gx#syntax-e _%tl220290220452%_)))) + (let ((_%tl220293220462%_ (let () (declare (not safe)) - (##cdr _%e216914217078%_))) - (_%hd216915217082%_ + (##cdr _%e220291220455%_))) + (_%hd220292220459%_ (let () (declare (not safe)) - (##car _%e216914217078%_)))) + (##car _%e220291220455%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl216916217085%_)) - (_%__kont217862217863%_ - _%hd216915217082%_ - _%hd216912217072%_ - _%hd216909217062%_) + (gx#stx-null? _%tl220293220462%_)) + (_%__kont221237221238%_ + _%hd220292220459%_ + _%hd220289220449%_ + _%hd220286220439%_) (let () (declare (not safe)) - (_%g216881216941%_))))) - (let () (declare (not safe)) (_%g216881216941%_))))) - (let () (declare (not safe)) (_%g216881216941%_))))) + (_%g220258220318%_))))) + (let () (declare (not safe)) (_%g220258220318%_))))) + (let () (declare (not safe)) (_%g220258220318%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g216881216941%_))) - (if (equal? _%e216891217139%_ + (_%g220258220318%_))) + (if (equal? _%e220268220516%_ 'class:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl216890217136%_)) - (let ((_%e216927216972%_ + _%tl220267220513%_)) + (let ((_%e220304220349%_ (let () (declare (not safe)) (gx#syntax-e - _%tl216890217136%_)))) - (let ((_%tl216929216979%_ + _%tl220267220513%_)))) + (let ((_%tl220306220356%_ (let () (declare (not safe)) - (##cdr _%e216927216972%_))) - (_%hd216928216976%_ + (##cdr _%e220304220349%_))) + (_%hd220305220353%_ (let () (declare (not safe)) - (##car _%e216927216972%_)))) + (##car _%e220304220349%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl216929216979%_)) - (let ((_%e216930216982%_ + _%tl220306220356%_)) + (let ((_%e220307220359%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl216929216979%_)))) - (let ((_%tl216932216989%_ + (gx#syntax-e _%tl220306220356%_)))) + (let ((_%tl220309220366%_ (let () (declare (not safe)) - (##cdr _%e216930216982%_))) - (_%hd216931216986%_ + (##cdr _%e220307220359%_))) + (_%hd220308220363%_ (let () (declare (not safe)) - (##car _%e216930216982%_)))) + (##car _%e220307220359%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl216932216989%_)) - (let ((_%e216933216992%_ + (gx#stx-pair? _%tl220309220366%_)) + (let ((_%e220310220369%_ (let () (declare (not safe)) - (gx#syntax-e _%tl216932216989%_)))) - (let ((_%tl216935216999%_ + (gx#syntax-e _%tl220309220366%_)))) + (let ((_%tl220312220376%_ (let () (declare (not safe)) - (##cdr _%e216933216992%_))) - (_%hd216934216996%_ + (##cdr _%e220310220369%_))) + (_%hd220311220373%_ (let () (declare (not safe)) - (##car _%e216933216992%_)))) + (##car _%e220310220369%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl216935216999%_)) - (_%__kont217864217865%_ - _%hd216934216996%_ - _%hd216931216986%_ - _%hd216928216976%_) + (gx#stx-null? _%tl220312220376%_)) + (_%__kont221239221240%_ + _%hd220311220373%_ + _%hd220308220363%_ + _%hd220305220353%_) (let () (declare (not safe)) - (_%g216881216941%_))))) - (let () (declare (not safe)) (_%g216881216941%_))))) - (let () (declare (not safe)) (_%g216881216941%_))))) + (_%g220258220318%_))))) + (let () (declare (not safe)) (_%g220258220318%_))))) + (let () (declare (not safe)) (_%g220258220318%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g216881216941%_))) + (_%g220258220318%_))) (let () (declare (not safe)) - (_%g216881216941%_)))))) + (_%g220258220318%_)))))) (let () (declare (not safe)) - (_%g216881216941%_))))) - (let () (declare (not safe)) (_%g216881216941%_))))) - (let () (declare (not safe)) (_%g216881216941%_))))))) + (_%g220258220318%_))))) + (let () (declare (not safe)) (_%g220258220318%_))))) + (let () (declare (not safe)) (_%g220258220318%_))))))) (define |gxc[:0:]#declare-builtin-classes| - (lambda (_%$stx217187%_) - (let* ((_%g217191217211%_ - (lambda (_%g217192217207%_) + (lambda (_%$stx220564%_) + (let* ((_%g220568220588%_ + (lambda (_%g220569220584%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g217192217207%_)))) - (_%g217190217282%_ - (lambda (_%g217192217215%_) + _%g220569220584%_)))) + (_%g220567220657%_ + (lambda (_%g220569220592%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g217192217215%_)) - (let ((_%e217194217218%_ + (gx#stx-pair? _%g220569220592%_)) + (let ((_%e220571220595%_ (let () (declare (not safe)) - (gx#syntax-e _%g217192217215%_)))) - (let ((_%hd217195217222%_ + (gx#syntax-e _%g220569220592%_)))) + (let ((_%hd220572220599%_ (let () (declare (not safe)) - (##car _%e217194217218%_))) - (_%tl217196217225%_ + (##car _%e220571220595%_))) + (_%tl220573220602%_ (let () (declare (not safe)) - (##cdr _%e217194217218%_)))) + (##cdr _%e220571220595%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl217196217225%_)) - (let ((_g218038_ + (gx#stx-pair/null? _%tl220573220602%_)) + (let ((_g221413_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl217196217225%_ + _%tl220573220602%_ '0)))) (begin - (let ((_g218039_ + (let ((_g221414_ (let () (declare (not safe)) - (if (##values? _g218038_) - (##values-length _g218038_) + (if (##values? _g221413_) + (##values-length _g221413_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g218039_ 2))) + (##fx= _g221414_ 2))) (error "Context expects 2 values" - _g218039_))) - (let ((_%target217197217228%_ + _g221414_))) + (let ((_%target220574220605%_ (let () (declare (not safe)) - (##values-ref _g218038_ 0))) - (_%tl217199217231%_ + (##values-ref _g221413_ 0))) + (_%tl220576220608%_ (let () (declare (not safe)) - (##values-ref _g218038_ 1)))) + (##values-ref _g221413_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl217199217231%_)) - (letrec ((_%loop217200217234%_ - (lambda (_%hd217198217238%_ - _%decl217204217241%_) + (gx#stx-null? _%tl220576220608%_)) + (letrec ((_%loop220577220611%_ + (lambda (_%hd220575220615%_ + _%decl220581220618%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd217198217238%_)) - (let ((_%e217201217244%_ + _%hd220575220615%_)) + (let ((_%e220578220620%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd217198217238%_)))) - (let ((_%lp-hd217202217248%_ + (gx#syntax-e _%hd220575220615%_)))) + (let ((_%lp-hd220579220624%_ (let () (declare (not safe)) - (##car _%e217201217244%_))) - (_%lp-tl217203217251%_ + (##car _%e220578220620%_))) + (_%lp-tl220580220627%_ (let () (declare (not safe)) - (##cdr _%e217201217244%_)))) - (_%loop217200217234%_ - _%lp-tl217203217251%_ - (cons _%lp-hd217202217248%_ _%decl217204217241%_)))) - (let ((_%decl217205217254%_ (reverse _%decl217204217241%_))) - ((lambda (_%L217258%_) + (##cdr _%e220578220620%_)))) + (_%loop220577220611%_ + _%lp-tl220580220627%_ + (cons _%lp-hd220579220624%_ _%decl220581220618%_)))) + (let ((_%decl220582220630%_ (reverse _%decl220581220618%_))) + ((lambda (_%g220570220633%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp218040 - (lambda (_%g217273217276%_ _%g217274217279%_) + (let ((__tmp221415 + (lambda (_%g220648220651%_ _%g220649220654%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-builtin-class)) - _%g217273217276%_) - _%g217274217279%_)))) + _%g220648220651%_) + _%g220649220654%_)))) (declare (not safe)) - (__foldr1 __tmp218040 '() _%L217258%_)))) - _%decl217205217254%_)))))) + (__foldr1 __tmp221415 '() _%g220570220633%_)))) + _%decl220582220630%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop217200217234%_ - _%target217197217228%_ + (_%loop220577220611%_ + _%target220574220605%_ '())) - (_%g217191217211%_ - _%g217192217215%_))))) - (_%g217191217211%_ _%g217192217215%_)))) - (_%g217191217211%_ _%g217192217215%_))))) - (_%g217190217282%_ _%$stx217187%_)))))) + (_%g220568220588%_ + _%g220569220592%_))))) + (_%g220568220588%_ _%g220569220592%_)))) + (_%g220568220588%_ _%g220569220592%_))))) + (_%g220567220657%_ _%$stx220564%_)))))) diff --git a/src/bootstrap/gerbil/core.ssi b/src/bootstrap/gerbil/core.ssi index 86d8a661e6..7068bc7a14 100644 --- a/src/bootstrap/gerbil/core.ssi +++ b/src/bootstrap/gerbil/core.ssi @@ -8,328 +8,370 @@ namespace: gerbil/core :gerbil/core/sugar (spec: (:gerbil/core/mop) - (0 MOP-3 0 MOP-3) (0 MOP-2 0 MOP-2) - (0 MOP-4 0 MOP-4) - (0 MOP-1 0 MOP-1) (0 MOP-5 0 MOP-5) - (0 defstruct-type 0 defstruct-type) + (0 MOP-1 0 MOP-1) + (0 MOP-3 0 MOP-3) + (0 MOP-4 0 MOP-4) (0 defclass-type 0 defclass-type) + (0 defstruct-type 0 defstruct-type) (1 module-type-id 1 module-type-id) (1 make-class-type-id 1 make-class-type-id) - (0 defstruct 0 defstruct) - (0 defclass 0 defclass) - (0 define-class 0 define-class) (0 @-set! 0 @-set!) (0 @ 0 @) - (0 define-struct 0 define-struct) + (0 defstruct 0 defstruct) (0 defmethod 0 defmethod) - (0 :object 0 :object) - (0 class 0 class) - (0 :keyword 0 :keyword) - (0 :ratnum 0 :ratnum) - (0 :condvar 0 :condvar) - (0 :continuation 0 :continuation) - (0 :promise 0 :promise) - (0 defsystem-class-info 0 defsystem-class-info) - (0 :u8vector 0 :u8vector) - (0 :sequence 0 :sequence) - (0 :mutex 0 :mutex) + (0 define-class 0 define-class) + (0 defclass 0 defclass) + (0 define-struct 0 define-struct) (0 :thread 0 :thread) - (0 :procedure 0 :procedure) - (0 :atom 0 :atom) + (0 :frame 0 :frame) (0 :null 0 :null) - (0 :directory-port 0 :directory-port) - (0 :s64vector 0 :s64vector) (0 :udp-port 0 :udp-port) - (0 :readtable 0 :readtable) + (0 :byte-port 0 :byte-port) + (0 :ratnum 0 :ratnum) (0 :socket-info 0 :socket-info) - (0 :real 0 :real) - (0 :class 0 :class) - (0 :string 0 :string) - (0 :event-queue-port 0 :event-queue-port) (0 :foreign 0 :foreign) - (0 :flonum 0 :flonum) - (0 :frame 0 :frame) - (0 :u8vector-port 0 :u8vector-port) - (0 :character-port 0 :character-port) - (0 :s16vector 0 :s16vector) - (0 :address-info 0 :address-info) - (0 :time 0 :time) - (0 :vector 0 :vector) - (0 :char 0 :char) - (0 :s32vector 0 :s32vector) - (0 :device-port 0 :device-port) + (0 :real 0 :real) + (0 :object 0 :object) + (0 :keyword 0 :keyword) + (0 :list 0 :list) + (0 :immediate 0 :immediate) + (0 :readtable 0 :readtable) (0 :hvector 0 :hvector) - (0 :string-port 0 :string-port) - (0 :byte-port 0 :byte-port) - (0 :number 0 :number) + (0 :writeenv 0 :writeenv) (0 :false 0 :false) - (0 :s8vector 0 :s8vector) - (0 :file-info 0 :file-info) + (0 :dssl-token 0 :dssl-token) + (0 :unbound 0 :unbound) + (0 :values 0 :values) + (0 :directory-port 0 :directory-port) + (0 :string-port 0 :string-port) + (0 :object-port 0 :object-port) + (0 :procedure 0 :procedure) + (0 :stflonum 0 :stflonum) + (0 :unbound2 0 :unbound2) + (0 :class 0 :class) + (0 :sequence 0 :sequence) + (0 :device-port 0 :device-port) + (0 :s16vector 0 :s16vector) + (0 defsystem-class-info 0 defsystem-class-info) (0 :t 0 :t) + (0 :condvar 0 :condvar) + (0 :cpxnum 0 :cpxnum) + (0 :s32vector 0 :s32vector) + (0 :builtin 0 :builtin) + (0 :u8vector 0 :u8vector) + (0 :vector 0 :vector) + (0 :f32vector 0 :f32vector) + (0 :character-port 0 :character-port) + (0 :weak 0 :weak) (0 :vm 0 :vm) - (0 :processor 0 :processor) - (0 :box 0 :box) - (0 :u16vector 0 :u16vector) - (0 :writeenv 0 :writeenv) - (0 :f64vector 0 :f64vector) - (0 :table 0 :table) - (0 :thread-group 0 :thread-group) - (0 :vector-port 0 :vector-port) - (0 :symbol 0 :symbol) - (0 :u32vector 0 :u32vector) - (0 :tcp-server-port 0 :tcp-server-port) - (0 :pair 0 :pair) - (0 :object-port 0 :object-port) - (0 :u64vector 0 :u64vector) - (0 :values 0 :values) - (0 :symbolic 0 :symbolic) - (0 :true 0 :true) + (0 :s64vector 0 :s64vector) + (0 :dssl-optional 0 :dssl-optional) + (0 :eof 0 :eof) (0 :readenv 0 :readenv) - (0 :cpxnum 0 :cpxnum) - (0 :integer 0 :integer) (0 :void 0 :void) + (0 :return 0 :return) + (0 :number 0 :number) (0 :fixnum 0 :fixnum) + (0 :table 0 :table) + (0 :string 0 :string) + (0 :subtyped 0 :subtyped) (0 :raw-device-port 0 :raw-device-port) (0 :port 0 :port) - (0 :f32vector 0 :f32vector) - (0 :weak 0 :weak) - (0 :eof 0 :eof) + (0 :mutex 0 :mutex) + (0 :dssl-rest 0 :dssl-rest) + (0 class 0 class) + (0 :u16vector 0 :u16vector) (0 :boolean 0 :boolean) + (0 :dssl-key 0 :dssl-key) + (0 :box 0 :box) + (0 :u64vector 0 :u64vector) + (0 :symbolic 0 :symbolic) (0 :bignum 0 :bignum) - (0 :immediate 0 :immediate) + (0 :address-info 0 :address-info) + (0 :tcp-server-port 0 :tcp-server-port) + (0 :s8vector 0 :s8vector) + (0 :file-info 0 :file-info) + (0 :processor 0 :processor) + (0 :continuation 0 :continuation) + (0 :u8vector-port 0 :u8vector-port) + (0 :atom 0 :atom) (0 :special 0 :special) - (0 :list 0 :list) - (1 defstruct-type 1 defstruct-type) + (0 :integer 0 :integer) + (0 :promise 0 :promise) + (0 :true 0 :true) + (0 :haflonum 0 :haflonum) + (0 :pair 0 :pair) + (0 :vector-port 0 :vector-port) + (0 :u32vector 0 :u32vector) + (0 :thread-group 0 :thread-group) + (0 :char 0 :char) + (0 :symbol 0 :symbol) + (0 :flonum 0 :flonum) + (0 :structure 0 :structure) + (0 :f64vector 0 :f64vector) + (0 :event-queue-port 0 :event-queue-port) (1 defclass-type 1 defclass-type) + (1 defstruct-type 1 defstruct-type) (2 module-type-id 2 module-type-id) (2 make-class-type-id 2 make-class-type-id) - (1 &!class-type-system?-set! 1 &!class-type-system?-set!) + (1 &!runtime-type-id 1 &!runtime-type-id) + (1 &!class-type-slot-types 1 &!class-type-slot-types) + (1 !class-type-slots 1 !class-type-slots) (1 !class-type-unchecked-mutators-set! 1 !class-type-unchecked-mutators-set!) - (1 !class-type-super 1 !class-type-super) - (1 !class-type-descriptor-set! 1 !class-type-descriptor-set!) - (1 !class-type-predicate 1 !class-type-predicate) - (1 - class-type-info::apply-macro-expander - 1 - class-type-info::apply-macro-expander) + (1 &!class-type-id-set! 1 &!class-type-id-set!) + (1 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) + (1 &!class-type-slot-contracts 1 &!class-type-slot-contracts) + (1 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) + (1 !class-type-struct?-set! 1 !class-type-struct?-set!) + (1 runtime-type-info? 1 runtime-type-info?) + (1 !class-type-slot-types-set! 1 !class-type-slot-types-set!) + (1 !runtime-type-id 1 !runtime-type-id) + (1 &!class-type-struct? 1 &!class-type-struct?) (1 &!class-type-constructor-method 1 &!class-type-constructor-method) - (1 !class-type-final? 1 !class-type-final?) - (1 &!class-type-ordered-slots 1 &!class-type-ordered-slots) - (1 !class-type-slot-types-set! 1 !class-type-slot-types-set!) - (1 !class-type-struct? 1 !class-type-struct?) - (1 !class-type-mutators 1 !class-type-mutators) - (1 !class-type-descriptor 1 !class-type-descriptor) - (1 &!class-type-slots-set! 1 &!class-type-slots-set!) - (1 &!class-type-mutators 1 &!class-type-mutators) - (1 &!class-type-metaclass 1 &!class-type-metaclass) - (1 &!class-type-slot-contracts 1 &!class-type-slot-contracts) - (1 &!class-type-system? 1 &!class-type-system?) - (1 !class-type-metaclass-set! 1 !class-type-metaclass-set!) - (1 - &!class-type-unchecked-mutators-set! - 1 - &!class-type-unchecked-mutators-set!) - (1 &!class-type-mutators-set! 1 &!class-type-mutators-set!) - (1 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) - (1 &!class-type-final?-set! 1 &!class-type-final?-set!) - (1 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + (1 !class-type-ordered-slots 1 !class-type-ordered-slots) + (1 class-type-info? 1 class-type-info?) (1 &!class-type-precedence-list-set! 1 &!class-type-precedence-list-set!) - (1 - &!class-type-unchecked-accessors - 1 - &!class-type-unchecked-accessors) - (1 !class-type-name-set! 1 !class-type-name-set!) - (1 !class-type-accessors 1 !class-type-accessors) - (1 &!class-type-final? 1 &!class-type-final?) - (1 &!class-type-slot-types 1 &!class-type-slot-types) - (1 - &!class-type-unchecked-mutators - 1 - &!class-type-unchecked-mutators) - (1 &!class-type-constructor 1 &!class-type-constructor) - (1 - !class-type-slot-contracts-set! - 1 - !class-type-slot-contracts-set!) - (1 &!class-type-descriptor 1 &!class-type-descriptor) - (1 &!class-type-struct? 1 &!class-type-struct?) + (1 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) + (1 !class-type-metaclass-set! 1 !class-type-metaclass-set!) + (1 !class-type-system? 1 !class-type-system?) (1 &!class-type-precedence-list 1 &!class-type-precedence-list) + (1 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) (1 &!class-type-name 1 &!class-type-name) - (1 !class-type-mutators-set! 1 !class-type-mutators-set!) - (1 !class-type-slot-defaults 1 !class-type-slot-defaults) - (1 !class-type-slots 1 !class-type-slots) - (1 !class-type-final?-set! 1 !class-type-final?-set!) (1 !class-type-slots-set! 1 !class-type-slots-set!) - (1 !class-type-slot-contracts 1 !class-type-slot-contracts) - (1 !class-type-constructor-method 1 !class-type-constructor-method) - (1 make-class-type-info 1 make-class-type-info) + (1 !class-type-descriptor 1 !class-type-descriptor) + (1 !runtime-type-id-set! 1 !runtime-type-id-set!) + (1 !runtime-type-name-set! 1 !runtime-type-name-set!) + (1 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) + (1 !class-type-metaclass 1 !class-type-metaclass) + (1 class-type-info::t 1 class-type-info::t) (1 - &!class-type-unchecked-accessors-set! + syntax-local-runtime-type-info? 1 - &!class-type-unchecked-accessors-set!) - (1 &!class-type-accessors 1 &!class-type-accessors) - (1 !class-type-super-set! 1 !class-type-super-set!) - (1 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) - (1 &!class-type-slot-defaults 1 &!class-type-slot-defaults) - (1 &!class-type-id 1 &!class-type-id) - (1 !class-type-constructor 1 !class-type-constructor) - (1 !class-type-ordered-slots 1 !class-type-ordered-slots) - (1 class-type-info? 1 class-type-info?) + syntax-local-runtime-type-info?) + (1 &!class-type-name-set! 1 &!class-type-name-set!) (1 - &!class-type-ordered-slots-set! + &!class-type-unchecked-accessors-set! 1 - &!class-type-ordered-slots-set!) + &!class-type-unchecked-accessors-set!) (1 - &!class-type-slot-contracts-set! + !class-type-slot-contracts-set! 1 - &!class-type-slot-contracts-set!) - (1 &!class-type-accessors-set! 1 &!class-type-accessors-set!) - (1 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) - (1 !class-type-id 1 !class-type-id) - (1 !class-type-slot-types 1 !class-type-slot-types) - (1 !class-type-metaclass 1 !class-type-metaclass) - (1 syntax-local-class-type-info? 1 syntax-local-class-type-info?) - (1 &!class-type-predicate 1 &!class-type-predicate) - (1 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) - (1 !class-type-predicate-set! 1 !class-type-predicate-set!) - (1 !class-type-constructor-set! 1 !class-type-constructor-set!) - (1 &!class-type-predicate-set! 1 &!class-type-predicate-set!) + !class-type-slot-contracts-set!) + (1 !class-type-descriptor-set! 1 !class-type-descriptor-set!) (1 - !class-type-unchecked-accessors + !class-type-unchecked-accessors-set! 1 - !class-type-unchecked-accessors) + !class-type-unchecked-accessors-set!) (1 !class-type-accessors-set! 1 !class-type-accessors-set!) - (1 !class-type-system? 1 !class-type-system?) - (1 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) - (1 &!class-type-constructor-set! 1 &!class-type-constructor-set!) - (1 &!class-type-super-set! 1 &!class-type-super-set!) - (1 &!class-type-super 1 &!class-type-super) - (1 !class-type-name 1 !class-type-name) (1 - !class-type-constructor-method-set! + &!class-type-unchecked-accessors 1 - !class-type-constructor-method-set!) + &!class-type-unchecked-accessors) + (1 &!class-type-predicate 1 &!class-type-predicate) + (1 !class-type-super 1 !class-type-super) (1 !class-type-precedence-list-set! 1 !class-type-precedence-list-set!) - (1 &!class-type-name-set! 1 &!class-type-name-set!) - (1 !class-type-struct?-set! 1 !class-type-struct?-set!) - (1 !class-type-id-set! 1 !class-type-id-set!) + (1 + !class-type-unchecked-accessors + 1 + !class-type-unchecked-accessors) + (1 !runtime-type-descriptor-set! 1 !runtime-type-descriptor-set!) + (1 !class-type-precedence-list 1 !class-type-precedence-list) + (1 !class-type-accessors 1 !class-type-accessors) + (1 &!class-type-slot-defaults 1 &!class-type-slot-defaults) (1 !class-type-system?-set! 1 !class-type-system?-set!) + (1 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + (1 !class-type-constructor-method 1 !class-type-constructor-method) + (1 !class-type-slot-defaults 1 !class-type-slot-defaults) + (1 !class-type-final?-set! 1 !class-type-final?-set!) + (1 !class-type-final? 1 !class-type-final?) (1 - !class-type-unchecked-accessors-set! + class-type-info::apply-macro-expander 1 - !class-type-unchecked-accessors-set!) + class-type-info::apply-macro-expander) + (1 &!runtime-type-name-set! 1 &!runtime-type-name-set!) + (1 &!class-type-descriptor 1 &!class-type-descriptor) + (1 + &!class-type-unchecked-mutators + 1 + &!class-type-unchecked-mutators) + (1 &!class-type-predicate-set! 1 &!class-type-predicate-set!) + (1 !class-type-slot-types 1 !class-type-slot-types) + (1 !runtime-type-name 1 !runtime-type-name) + (1 + &!class-type-unchecked-mutators-set! + 1 + &!class-type-unchecked-mutators-set!) + (1 !class-type-id-set! 1 !class-type-id-set!) + (1 runtime-type-info::t 1 runtime-type-info::t) + (1 + &!class-type-ordered-slots-set! + 1 + &!class-type-ordered-slots-set!) + (1 !class-type-struct? 1 !class-type-struct?) + (1 !class-type-predicate 1 !class-type-predicate) + (1 !class-type-constructor 1 !class-type-constructor) + (1 make-runtime-type-info 1 make-runtime-type-info) + (1 !class-type-predicate-set! 1 !class-type-predicate-set!) + (1 + !class-type-constructor-method-set! + 1 + !class-type-constructor-method-set!) + (1 &!class-type-accessors-set! 1 &!class-type-accessors-set!) + (1 &!class-type-system?-set! 1 &!class-type-system?-set!) + (1 &!class-type-final? 1 &!class-type-final?) + (1 syntax-local-class-type-info? 1 syntax-local-class-type-info?) + (1 &!class-type-metaclass 1 &!class-type-metaclass) + (1 &!runtime-type-id-set! 1 &!runtime-type-id-set!) + (1 &!runtime-type-name 1 &!runtime-type-name) + (1 &!class-type-constructor 1 &!class-type-constructor) + (1 !class-type-mutators-set! 1 !class-type-mutators-set!) + (1 !class-type-slot-contracts 1 !class-type-slot-contracts) + (1 !runtime-type-descriptor 1 !runtime-type-descriptor) + (1 &!class-type-constructor-set! 1 &!class-type-constructor-set!) + (1 &!class-type-super-set! 1 &!class-type-super-set!) + (1 &!runtime-type-descriptor-set! 1 &!runtime-type-descriptor-set!) + (1 &!class-type-super 1 &!class-type-super) + (1 !class-type-constructor-set! 1 !class-type-constructor-set!) + (1 !class-type-name 1 !class-type-name) + (1 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) + (1 &!class-type-final?-set! 1 &!class-type-final?-set!) + (1 &!class-type-slots 1 &!class-type-slots) + (1 &!class-type-id 1 &!class-type-id) + (1 &!class-type-mutators 1 &!class-type-mutators) + (1 &!class-type-accessors 1 &!class-type-accessors) + (1 &!class-type-ordered-slots 1 &!class-type-ordered-slots) + (1 make-class-type-info 1 make-class-type-info) + (1 &!runtime-type-descriptor 1 &!runtime-type-descriptor) + (1 &!class-type-slots-set! 1 &!class-type-slots-set!) + (1 + &!class-type-slot-contracts-set! + 1 + &!class-type-slot-contracts-set!) (1 &!class-type-slot-defaults-set! 1 &!class-type-slot-defaults-set!) - (1 class-type-info::t 1 class-type-info::t) + (1 &!class-type-mutators-set! 1 &!class-type-mutators-set!) (1 &!class-type-constructor-method-set! 1 &!class-type-constructor-method-set!) - (1 !class-type-precedence-list 1 !class-type-precedence-list) - (1 &!class-type-id-set! 1 &!class-type-id-set!) - (1 &!class-type-slots 1 &!class-type-slots) - (1 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) + (1 &!class-type-system? 1 &!class-type-system?) + (1 !class-type-id 1 !class-type-id) + (1 !class-type-mutators 1 !class-type-mutators) + (1 !class-type-super-set! 1 !class-type-super-set!) + (1 !class-type-name-set! 1 !class-type-name-set!) + (1 runtime-type-info 1 runtime-type-info) (1 class-type-info 1 class-type-info) - (1 defstruct 1 defstruct) - (1 defclass 1 defclass) - (1 define-class 1 define-class) (1 @-set! 1 @-set!) (1 @ 1 @) - (1 define-struct 1 define-struct) + (1 defstruct 1 defstruct) (1 defmethod 1 defmethod) - (1 :object 1 :object) - (1 class 1 class) - (1 :keyword 1 :keyword) - (1 :ratnum 1 :ratnum) - (1 :condvar 1 :condvar) - (1 :continuation 1 :continuation) - (1 :promise 1 :promise) - (1 defsystem-class-info 1 defsystem-class-info) - (1 :u8vector 1 :u8vector) - (1 :sequence 1 :sequence) - (1 :mutex 1 :mutex) + (1 define-class 1 define-class) + (1 defclass 1 defclass) + (1 define-struct 1 define-struct) (1 :thread 1 :thread) - (1 :procedure 1 :procedure) - (1 :atom 1 :atom) + (1 :frame 1 :frame) (1 :null 1 :null) - (1 :directory-port 1 :directory-port) - (1 :s64vector 1 :s64vector) (1 :udp-port 1 :udp-port) - (1 :readtable 1 :readtable) + (1 :byte-port 1 :byte-port) + (1 :ratnum 1 :ratnum) (1 :socket-info 1 :socket-info) - (1 :real 1 :real) - (1 :class 1 :class) - (1 :string 1 :string) - (1 :event-queue-port 1 :event-queue-port) (1 :foreign 1 :foreign) - (1 :flonum 1 :flonum) - (1 :frame 1 :frame) - (1 :u8vector-port 1 :u8vector-port) - (1 :character-port 1 :character-port) - (1 :s16vector 1 :s16vector) - (1 :address-info 1 :address-info) - (1 :time 1 :time) - (1 :vector 1 :vector) - (1 :char 1 :char) - (1 :s32vector 1 :s32vector) - (1 :device-port 1 :device-port) + (1 :real 1 :real) + (1 :object 1 :object) + (1 :keyword 1 :keyword) + (1 :list 1 :list) + (1 :immediate 1 :immediate) + (1 :readtable 1 :readtable) (1 :hvector 1 :hvector) - (1 :string-port 1 :string-port) - (1 :byte-port 1 :byte-port) - (1 :number 1 :number) + (1 :writeenv 1 :writeenv) (1 :false 1 :false) - (1 :s8vector 1 :s8vector) - (1 :file-info 1 :file-info) + (1 :dssl-token 1 :dssl-token) + (1 :unbound 1 :unbound) + (1 :values 1 :values) + (1 :directory-port 1 :directory-port) + (1 :string-port 1 :string-port) + (1 :object-port 1 :object-port) + (1 :procedure 1 :procedure) + (1 :stflonum 1 :stflonum) + (1 :unbound2 1 :unbound2) + (1 :class 1 :class) + (1 :sequence 1 :sequence) + (1 :device-port 1 :device-port) + (1 :s16vector 1 :s16vector) + (1 defsystem-class-info 1 defsystem-class-info) (1 :t 1 :t) + (1 :condvar 1 :condvar) + (1 :cpxnum 1 :cpxnum) + (1 :s32vector 1 :s32vector) + (1 :builtin 1 :builtin) + (1 :u8vector 1 :u8vector) + (1 :vector 1 :vector) + (1 :f32vector 1 :f32vector) + (1 :character-port 1 :character-port) + (1 :weak 1 :weak) (1 :vm 1 :vm) - (1 :processor 1 :processor) - (1 :box 1 :box) - (1 :u16vector 1 :u16vector) - (1 :writeenv 1 :writeenv) - (1 :f64vector 1 :f64vector) - (1 :table 1 :table) - (1 :thread-group 1 :thread-group) - (1 :vector-port 1 :vector-port) - (1 :symbol 1 :symbol) - (1 :u32vector 1 :u32vector) - (1 :tcp-server-port 1 :tcp-server-port) - (1 :pair 1 :pair) - (1 :object-port 1 :object-port) - (1 :u64vector 1 :u64vector) - (1 :values 1 :values) - (1 :symbolic 1 :symbolic) - (1 :true 1 :true) + (1 :s64vector 1 :s64vector) + (1 :dssl-optional 1 :dssl-optional) + (1 :eof 1 :eof) (1 :readenv 1 :readenv) - (1 :cpxnum 1 :cpxnum) - (1 :integer 1 :integer) (1 :void 1 :void) + (1 :return 1 :return) + (1 :number 1 :number) (1 :fixnum 1 :fixnum) + (1 :table 1 :table) + (1 :string 1 :string) + (1 :subtyped 1 :subtyped) (1 :raw-device-port 1 :raw-device-port) (1 :port 1 :port) - (1 :f32vector 1 :f32vector) - (1 :weak 1 :weak) - (1 :eof 1 :eof) + (1 :mutex 1 :mutex) + (1 :dssl-rest 1 :dssl-rest) + (1 class 1 class) + (1 :u16vector 1 :u16vector) (1 :boolean 1 :boolean) + (1 :dssl-key 1 :dssl-key) + (1 :box 1 :box) + (1 :u64vector 1 :u64vector) + (1 :symbolic 1 :symbolic) (1 :bignum 1 :bignum) - (1 :immediate 1 :immediate) + (1 :address-info 1 :address-info) + (1 :tcp-server-port 1 :tcp-server-port) + (1 :s8vector 1 :s8vector) + (1 :file-info 1 :file-info) + (1 :processor 1 :processor) + (1 :continuation 1 :continuation) + (1 :u8vector-port 1 :u8vector-port) + (1 :atom 1 :atom) (1 :special 1 :special) - (1 :list 1 :list)) + (1 :integer 1 :integer) + (1 :promise 1 :promise) + (1 :true 1 :true) + (1 :haflonum 1 :haflonum) + (1 :pair 1 :pair) + (1 :vector-port 1 :vector-port) + (1 :u32vector 1 :u32vector) + (1 :thread-group 1 :thread-group) + (1 :char 1 :char) + (1 :symbol 1 :symbol) + (1 :flonum 1 :flonum) + (1 :structure 1 :structure) + (1 :f64vector 1 :f64vector) + (1 :event-queue-port 1 :event-queue-port)) :gerbil/core/match :gerbil/core/more-sugar :gerbil/core/contract @@ -337,328 +379,370 @@ namespace: gerbil/core (phi: 1 :gerbil/core/sugar) (spec: (:gerbil/core/mop) - (1 MOP-3 0 MOP-3) (1 MOP-2 0 MOP-2) - (1 MOP-4 0 MOP-4) - (1 MOP-1 0 MOP-1) (1 MOP-5 0 MOP-5) - (1 defstruct-type 0 defstruct-type) + (1 MOP-1 0 MOP-1) + (1 MOP-3 0 MOP-3) + (1 MOP-4 0 MOP-4) (1 defclass-type 0 defclass-type) + (1 defstruct-type 0 defstruct-type) (2 module-type-id 1 module-type-id) (2 make-class-type-id 1 make-class-type-id) - (1 defstruct 0 defstruct) - (1 defclass 0 defclass) - (1 define-class 0 define-class) (1 @-set! 0 @-set!) (1 @ 0 @) - (1 define-struct 0 define-struct) + (1 defstruct 0 defstruct) (1 defmethod 0 defmethod) - (1 :object 0 :object) - (1 class 0 class) - (1 :keyword 0 :keyword) - (1 :ratnum 0 :ratnum) - (1 :condvar 0 :condvar) - (1 :continuation 0 :continuation) - (1 :promise 0 :promise) - (1 defsystem-class-info 0 defsystem-class-info) - (1 :u8vector 0 :u8vector) - (1 :sequence 0 :sequence) - (1 :mutex 0 :mutex) + (1 define-class 0 define-class) + (1 defclass 0 defclass) + (1 define-struct 0 define-struct) (1 :thread 0 :thread) - (1 :procedure 0 :procedure) - (1 :atom 0 :atom) + (1 :frame 0 :frame) (1 :null 0 :null) - (1 :directory-port 0 :directory-port) - (1 :s64vector 0 :s64vector) (1 :udp-port 0 :udp-port) - (1 :readtable 0 :readtable) + (1 :byte-port 0 :byte-port) + (1 :ratnum 0 :ratnum) (1 :socket-info 0 :socket-info) + (1 :foreign 0 :foreign) (1 :real 0 :real) + (1 :object 0 :object) + (1 :keyword 0 :keyword) + (1 :list 0 :list) + (1 :immediate 0 :immediate) + (1 :readtable 0 :readtable) + (1 :hvector 0 :hvector) + (1 :writeenv 0 :writeenv) + (1 :false 0 :false) + (1 :dssl-token 0 :dssl-token) + (1 :unbound 0 :unbound) + (1 :values 0 :values) + (1 :directory-port 0 :directory-port) + (1 :string-port 0 :string-port) + (1 :object-port 0 :object-port) + (1 :procedure 0 :procedure) + (1 :stflonum 0 :stflonum) + (1 :unbound2 0 :unbound2) (1 :class 0 :class) - (1 :string 0 :string) - (1 :event-queue-port 0 :event-queue-port) - (1 :foreign 0 :foreign) - (1 :flonum 0 :flonum) - (1 :frame 0 :frame) - (1 :u8vector-port 0 :u8vector-port) - (1 :character-port 0 :character-port) - (1 :s16vector 0 :s16vector) - (1 :address-info 0 :address-info) - (1 :time 0 :time) - (1 :vector 0 :vector) - (1 :char 0 :char) - (1 :s32vector 0 :s32vector) + (1 :sequence 0 :sequence) (1 :device-port 0 :device-port) - (1 :hvector 0 :hvector) - (1 :string-port 0 :string-port) - (1 :byte-port 0 :byte-port) - (1 :number 0 :number) - (1 :false 0 :false) - (1 :s8vector 0 :s8vector) - (1 :file-info 0 :file-info) + (1 :s16vector 0 :s16vector) + (1 defsystem-class-info 0 defsystem-class-info) (1 :t 0 :t) + (1 :condvar 0 :condvar) + (1 :cpxnum 0 :cpxnum) + (1 :s32vector 0 :s32vector) + (1 :builtin 0 :builtin) + (1 :u8vector 0 :u8vector) + (1 :vector 0 :vector) + (1 :f32vector 0 :f32vector) + (1 :character-port 0 :character-port) + (1 :weak 0 :weak) (1 :vm 0 :vm) - (1 :processor 0 :processor) - (1 :box 0 :box) - (1 :u16vector 0 :u16vector) - (1 :writeenv 0 :writeenv) - (1 :f64vector 0 :f64vector) - (1 :table 0 :table) - (1 :thread-group 0 :thread-group) - (1 :vector-port 0 :vector-port) - (1 :symbol 0 :symbol) - (1 :u32vector 0 :u32vector) - (1 :tcp-server-port 0 :tcp-server-port) - (1 :pair 0 :pair) - (1 :object-port 0 :object-port) - (1 :u64vector 0 :u64vector) - (1 :values 0 :values) - (1 :symbolic 0 :symbolic) - (1 :true 0 :true) + (1 :s64vector 0 :s64vector) + (1 :dssl-optional 0 :dssl-optional) + (1 :eof 0 :eof) (1 :readenv 0 :readenv) - (1 :cpxnum 0 :cpxnum) - (1 :integer 0 :integer) (1 :void 0 :void) + (1 :return 0 :return) + (1 :number 0 :number) (1 :fixnum 0 :fixnum) + (1 :table 0 :table) + (1 :string 0 :string) + (1 :subtyped 0 :subtyped) (1 :raw-device-port 0 :raw-device-port) (1 :port 0 :port) - (1 :f32vector 0 :f32vector) - (1 :weak 0 :weak) - (1 :eof 0 :eof) + (1 :mutex 0 :mutex) + (1 :dssl-rest 0 :dssl-rest) + (1 class 0 class) + (1 :u16vector 0 :u16vector) (1 :boolean 0 :boolean) + (1 :dssl-key 0 :dssl-key) + (1 :box 0 :box) + (1 :u64vector 0 :u64vector) + (1 :symbolic 0 :symbolic) (1 :bignum 0 :bignum) - (1 :immediate 0 :immediate) + (1 :address-info 0 :address-info) + (1 :tcp-server-port 0 :tcp-server-port) + (1 :s8vector 0 :s8vector) + (1 :file-info 0 :file-info) + (1 :processor 0 :processor) + (1 :continuation 0 :continuation) + (1 :u8vector-port 0 :u8vector-port) + (1 :atom 0 :atom) (1 :special 0 :special) - (1 :list 0 :list) - (2 defstruct-type 1 defstruct-type) + (1 :integer 0 :integer) + (1 :promise 0 :promise) + (1 :true 0 :true) + (1 :haflonum 0 :haflonum) + (1 :pair 0 :pair) + (1 :vector-port 0 :vector-port) + (1 :u32vector 0 :u32vector) + (1 :thread-group 0 :thread-group) + (1 :char 0 :char) + (1 :symbol 0 :symbol) + (1 :flonum 0 :flonum) + (1 :structure 0 :structure) + (1 :f64vector 0 :f64vector) + (1 :event-queue-port 0 :event-queue-port) (2 defclass-type 1 defclass-type) + (2 defstruct-type 1 defstruct-type) (3 module-type-id 2 module-type-id) (3 make-class-type-id 2 make-class-type-id) - (2 &!class-type-system?-set! 1 &!class-type-system?-set!) + (2 &!runtime-type-id 1 &!runtime-type-id) + (2 &!class-type-slot-types 1 &!class-type-slot-types) + (2 !class-type-slots 1 !class-type-slots) (2 !class-type-unchecked-mutators-set! 1 !class-type-unchecked-mutators-set!) - (2 !class-type-super 1 !class-type-super) - (2 !class-type-descriptor-set! 1 !class-type-descriptor-set!) - (2 !class-type-predicate 1 !class-type-predicate) - (2 - class-type-info::apply-macro-expander - 1 - class-type-info::apply-macro-expander) + (2 &!class-type-id-set! 1 &!class-type-id-set!) + (2 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) + (2 &!class-type-slot-contracts 1 &!class-type-slot-contracts) + (2 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) + (2 !class-type-struct?-set! 1 !class-type-struct?-set!) + (2 runtime-type-info? 1 runtime-type-info?) + (2 !class-type-slot-types-set! 1 !class-type-slot-types-set!) + (2 !runtime-type-id 1 !runtime-type-id) + (2 &!class-type-struct? 1 &!class-type-struct?) (2 &!class-type-constructor-method 1 &!class-type-constructor-method) - (2 !class-type-final? 1 !class-type-final?) - (2 &!class-type-ordered-slots 1 &!class-type-ordered-slots) - (2 !class-type-slot-types-set! 1 !class-type-slot-types-set!) - (2 !class-type-struct? 1 !class-type-struct?) - (2 !class-type-mutators 1 !class-type-mutators) - (2 !class-type-descriptor 1 !class-type-descriptor) - (2 &!class-type-slots-set! 1 &!class-type-slots-set!) - (2 &!class-type-mutators 1 &!class-type-mutators) - (2 &!class-type-metaclass 1 &!class-type-metaclass) - (2 &!class-type-slot-contracts 1 &!class-type-slot-contracts) - (2 &!class-type-system? 1 &!class-type-system?) + (2 !class-type-ordered-slots 1 !class-type-ordered-slots) + (2 class-type-info? 1 class-type-info?) + (2 + &!class-type-precedence-list-set! + 1 + &!class-type-precedence-list-set!) + (2 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) (2 !class-type-metaclass-set! 1 !class-type-metaclass-set!) + (2 !class-type-system? 1 !class-type-system?) + (2 &!class-type-precedence-list 1 &!class-type-precedence-list) + (2 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) + (2 &!class-type-name 1 &!class-type-name) + (2 !class-type-slots-set! 1 !class-type-slots-set!) + (2 !class-type-descriptor 1 !class-type-descriptor) + (2 !runtime-type-id-set! 1 !runtime-type-id-set!) + (2 !runtime-type-name-set! 1 !runtime-type-name-set!) + (2 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) + (2 !class-type-metaclass 1 !class-type-metaclass) + (2 class-type-info::t 1 class-type-info::t) (2 - &!class-type-unchecked-mutators-set! + syntax-local-runtime-type-info? 1 - &!class-type-unchecked-mutators-set!) - (2 &!class-type-mutators-set! 1 &!class-type-mutators-set!) - (2 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) - (2 &!class-type-final?-set! 1 &!class-type-final?-set!) - (2 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + syntax-local-runtime-type-info?) + (2 &!class-type-name-set! 1 &!class-type-name-set!) (2 - &!class-type-precedence-list-set! + &!class-type-unchecked-accessors-set! 1 - &!class-type-precedence-list-set!) + &!class-type-unchecked-accessors-set!) + (2 + !class-type-slot-contracts-set! + 1 + !class-type-slot-contracts-set!) + (2 !class-type-descriptor-set! 1 !class-type-descriptor-set!) + (2 + !class-type-unchecked-accessors-set! + 1 + !class-type-unchecked-accessors-set!) + (2 !class-type-accessors-set! 1 !class-type-accessors-set!) (2 &!class-type-unchecked-accessors 1 &!class-type-unchecked-accessors) - (2 !class-type-name-set! 1 !class-type-name-set!) - (2 !class-type-accessors 1 !class-type-accessors) - (2 &!class-type-final? 1 &!class-type-final?) - (2 &!class-type-slot-types 1 &!class-type-slot-types) + (2 &!class-type-predicate 1 &!class-type-predicate) + (2 !class-type-super 1 !class-type-super) (2 - &!class-type-unchecked-mutators + !class-type-precedence-list-set! 1 - &!class-type-unchecked-mutators) - (2 &!class-type-constructor 1 &!class-type-constructor) + !class-type-precedence-list-set!) (2 - !class-type-slot-contracts-set! + !class-type-unchecked-accessors 1 - !class-type-slot-contracts-set!) - (2 &!class-type-descriptor 1 &!class-type-descriptor) - (2 &!class-type-struct? 1 &!class-type-struct?) - (2 &!class-type-precedence-list 1 &!class-type-precedence-list) - (2 &!class-type-name 1 &!class-type-name) - (2 !class-type-mutators-set! 1 !class-type-mutators-set!) + !class-type-unchecked-accessors) + (2 !runtime-type-descriptor-set! 1 !runtime-type-descriptor-set!) + (2 !class-type-precedence-list 1 !class-type-precedence-list) + (2 !class-type-accessors 1 !class-type-accessors) + (2 &!class-type-slot-defaults 1 &!class-type-slot-defaults) + (2 !class-type-system?-set! 1 !class-type-system?-set!) + (2 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + (2 !class-type-constructor-method 1 !class-type-constructor-method) (2 !class-type-slot-defaults 1 !class-type-slot-defaults) - (2 !class-type-slots 1 !class-type-slots) (2 !class-type-final?-set! 1 !class-type-final?-set!) - (2 !class-type-slots-set! 1 !class-type-slots-set!) - (2 !class-type-slot-contracts 1 !class-type-slot-contracts) - (2 !class-type-constructor-method 1 !class-type-constructor-method) - (2 make-class-type-info 1 make-class-type-info) + (2 !class-type-final? 1 !class-type-final?) (2 - &!class-type-unchecked-accessors-set! + class-type-info::apply-macro-expander 1 - &!class-type-unchecked-accessors-set!) - (2 &!class-type-accessors 1 &!class-type-accessors) - (2 !class-type-super-set! 1 !class-type-super-set!) - (2 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) - (2 &!class-type-slot-defaults 1 &!class-type-slot-defaults) - (2 &!class-type-id 1 &!class-type-id) - (2 !class-type-constructor 1 !class-type-constructor) - (2 !class-type-ordered-slots 1 !class-type-ordered-slots) - (2 class-type-info? 1 class-type-info?) + class-type-info::apply-macro-expander) + (2 &!runtime-type-name-set! 1 &!runtime-type-name-set!) + (2 &!class-type-descriptor 1 &!class-type-descriptor) + (2 + &!class-type-unchecked-mutators + 1 + &!class-type-unchecked-mutators) + (2 &!class-type-predicate-set! 1 &!class-type-predicate-set!) + (2 !class-type-slot-types 1 !class-type-slot-types) + (2 !runtime-type-name 1 !runtime-type-name) + (2 + &!class-type-unchecked-mutators-set! + 1 + &!class-type-unchecked-mutators-set!) + (2 !class-type-id-set! 1 !class-type-id-set!) + (2 runtime-type-info::t 1 runtime-type-info::t) (2 &!class-type-ordered-slots-set! 1 &!class-type-ordered-slots-set!) + (2 !class-type-struct? 1 !class-type-struct?) + (2 !class-type-predicate 1 !class-type-predicate) + (2 !class-type-constructor 1 !class-type-constructor) + (2 make-runtime-type-info 1 make-runtime-type-info) + (2 !class-type-predicate-set! 1 !class-type-predicate-set!) (2 - &!class-type-slot-contracts-set! + !class-type-constructor-method-set! 1 - &!class-type-slot-contracts-set!) + !class-type-constructor-method-set!) (2 &!class-type-accessors-set! 1 &!class-type-accessors-set!) - (2 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) - (2 !class-type-id 1 !class-type-id) - (2 !class-type-slot-types 1 !class-type-slot-types) - (2 !class-type-metaclass 1 !class-type-metaclass) + (2 &!class-type-system?-set! 1 &!class-type-system?-set!) + (2 &!class-type-final? 1 &!class-type-final?) (2 syntax-local-class-type-info? 1 syntax-local-class-type-info?) - (2 &!class-type-predicate 1 &!class-type-predicate) - (2 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) - (2 !class-type-predicate-set! 1 !class-type-predicate-set!) - (2 !class-type-constructor-set! 1 !class-type-constructor-set!) - (2 &!class-type-predicate-set! 1 &!class-type-predicate-set!) - (2 - !class-type-unchecked-accessors - 1 - !class-type-unchecked-accessors) - (2 !class-type-accessors-set! 1 !class-type-accessors-set!) - (2 !class-type-system? 1 !class-type-system?) - (2 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) + (2 &!class-type-metaclass 1 &!class-type-metaclass) + (2 &!runtime-type-id-set! 1 &!runtime-type-id-set!) + (2 &!runtime-type-name 1 &!runtime-type-name) + (2 &!class-type-constructor 1 &!class-type-constructor) + (2 !class-type-mutators-set! 1 !class-type-mutators-set!) + (2 !class-type-slot-contracts 1 !class-type-slot-contracts) + (2 !runtime-type-descriptor 1 !runtime-type-descriptor) (2 &!class-type-constructor-set! 1 &!class-type-constructor-set!) (2 &!class-type-super-set! 1 &!class-type-super-set!) + (2 &!runtime-type-descriptor-set! 1 &!runtime-type-descriptor-set!) (2 &!class-type-super 1 &!class-type-super) + (2 !class-type-constructor-set! 1 !class-type-constructor-set!) (2 !class-type-name 1 !class-type-name) + (2 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) + (2 &!class-type-final?-set! 1 &!class-type-final?-set!) + (2 &!class-type-slots 1 &!class-type-slots) + (2 &!class-type-id 1 &!class-type-id) + (2 &!class-type-mutators 1 &!class-type-mutators) + (2 &!class-type-accessors 1 &!class-type-accessors) + (2 &!class-type-ordered-slots 1 &!class-type-ordered-slots) + (2 make-class-type-info 1 make-class-type-info) + (2 &!runtime-type-descriptor 1 &!runtime-type-descriptor) + (2 &!class-type-slots-set! 1 &!class-type-slots-set!) (2 - !class-type-constructor-method-set! + &!class-type-slot-contracts-set! 1 - !class-type-constructor-method-set!) + &!class-type-slot-contracts-set!) (2 - !class-type-precedence-list-set! + &!class-type-slot-defaults-set! 1 - !class-type-precedence-list-set!) - (2 &!class-type-name-set! 1 &!class-type-name-set!) - (2 !class-type-struct?-set! 1 !class-type-struct?-set!) - (2 !class-type-id-set! 1 !class-type-id-set!) - (2 !class-type-system?-set! 1 !class-type-system?-set!) - (2 - !class-type-unchecked-accessors-set! - 1 - !class-type-unchecked-accessors-set!) - (2 - &!class-type-slot-defaults-set! - 1 - &!class-type-slot-defaults-set!) - (2 class-type-info::t 1 class-type-info::t) + &!class-type-slot-defaults-set!) + (2 &!class-type-mutators-set! 1 &!class-type-mutators-set!) (2 &!class-type-constructor-method-set! 1 &!class-type-constructor-method-set!) - (2 !class-type-precedence-list 1 !class-type-precedence-list) - (2 &!class-type-id-set! 1 &!class-type-id-set!) - (2 &!class-type-slots 1 &!class-type-slots) - (2 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) + (2 &!class-type-system? 1 &!class-type-system?) + (2 !class-type-id 1 !class-type-id) + (2 !class-type-mutators 1 !class-type-mutators) + (2 !class-type-super-set! 1 !class-type-super-set!) + (2 !class-type-name-set! 1 !class-type-name-set!) + (2 runtime-type-info 1 runtime-type-info) (2 class-type-info 1 class-type-info) - (2 defstruct 1 defstruct) - (2 defclass 1 defclass) - (2 define-class 1 define-class) (2 @-set! 1 @-set!) (2 @ 1 @) - (2 define-struct 1 define-struct) + (2 defstruct 1 defstruct) (2 defmethod 1 defmethod) - (2 :object 1 :object) - (2 class 1 class) - (2 :keyword 1 :keyword) - (2 :ratnum 1 :ratnum) - (2 :condvar 1 :condvar) - (2 :continuation 1 :continuation) - (2 :promise 1 :promise) - (2 defsystem-class-info 1 defsystem-class-info) - (2 :u8vector 1 :u8vector) - (2 :sequence 1 :sequence) - (2 :mutex 1 :mutex) + (2 define-class 1 define-class) + (2 defclass 1 defclass) + (2 define-struct 1 define-struct) (2 :thread 1 :thread) - (2 :procedure 1 :procedure) - (2 :atom 1 :atom) + (2 :frame 1 :frame) (2 :null 1 :null) - (2 :directory-port 1 :directory-port) - (2 :s64vector 1 :s64vector) (2 :udp-port 1 :udp-port) - (2 :readtable 1 :readtable) + (2 :byte-port 1 :byte-port) + (2 :ratnum 1 :ratnum) (2 :socket-info 1 :socket-info) - (2 :real 1 :real) - (2 :class 1 :class) - (2 :string 1 :string) - (2 :event-queue-port 1 :event-queue-port) (2 :foreign 1 :foreign) - (2 :flonum 1 :flonum) - (2 :frame 1 :frame) - (2 :u8vector-port 1 :u8vector-port) - (2 :character-port 1 :character-port) - (2 :s16vector 1 :s16vector) - (2 :address-info 1 :address-info) - (2 :time 1 :time) - (2 :vector 1 :vector) - (2 :char 1 :char) - (2 :s32vector 1 :s32vector) - (2 :device-port 1 :device-port) + (2 :real 1 :real) + (2 :object 1 :object) + (2 :keyword 1 :keyword) + (2 :list 1 :list) + (2 :immediate 1 :immediate) + (2 :readtable 1 :readtable) (2 :hvector 1 :hvector) - (2 :string-port 1 :string-port) - (2 :byte-port 1 :byte-port) - (2 :number 1 :number) + (2 :writeenv 1 :writeenv) (2 :false 1 :false) - (2 :s8vector 1 :s8vector) - (2 :file-info 1 :file-info) + (2 :dssl-token 1 :dssl-token) + (2 :unbound 1 :unbound) + (2 :values 1 :values) + (2 :directory-port 1 :directory-port) + (2 :string-port 1 :string-port) + (2 :object-port 1 :object-port) + (2 :procedure 1 :procedure) + (2 :stflonum 1 :stflonum) + (2 :unbound2 1 :unbound2) + (2 :class 1 :class) + (2 :sequence 1 :sequence) + (2 :device-port 1 :device-port) + (2 :s16vector 1 :s16vector) + (2 defsystem-class-info 1 defsystem-class-info) (2 :t 1 :t) + (2 :condvar 1 :condvar) + (2 :cpxnum 1 :cpxnum) + (2 :s32vector 1 :s32vector) + (2 :builtin 1 :builtin) + (2 :u8vector 1 :u8vector) + (2 :vector 1 :vector) + (2 :f32vector 1 :f32vector) + (2 :character-port 1 :character-port) + (2 :weak 1 :weak) (2 :vm 1 :vm) - (2 :processor 1 :processor) - (2 :box 1 :box) - (2 :u16vector 1 :u16vector) - (2 :writeenv 1 :writeenv) - (2 :f64vector 1 :f64vector) - (2 :table 1 :table) - (2 :thread-group 1 :thread-group) - (2 :vector-port 1 :vector-port) - (2 :symbol 1 :symbol) - (2 :u32vector 1 :u32vector) - (2 :tcp-server-port 1 :tcp-server-port) - (2 :pair 1 :pair) - (2 :object-port 1 :object-port) - (2 :u64vector 1 :u64vector) - (2 :values 1 :values) - (2 :symbolic 1 :symbolic) - (2 :true 1 :true) + (2 :s64vector 1 :s64vector) + (2 :dssl-optional 1 :dssl-optional) + (2 :eof 1 :eof) (2 :readenv 1 :readenv) - (2 :cpxnum 1 :cpxnum) - (2 :integer 1 :integer) (2 :void 1 :void) + (2 :return 1 :return) + (2 :number 1 :number) (2 :fixnum 1 :fixnum) + (2 :table 1 :table) + (2 :string 1 :string) + (2 :subtyped 1 :subtyped) (2 :raw-device-port 1 :raw-device-port) (2 :port 1 :port) - (2 :f32vector 1 :f32vector) - (2 :weak 1 :weak) - (2 :eof 1 :eof) + (2 :mutex 1 :mutex) + (2 :dssl-rest 1 :dssl-rest) + (2 class 1 class) + (2 :u16vector 1 :u16vector) (2 :boolean 1 :boolean) + (2 :dssl-key 1 :dssl-key) + (2 :box 1 :box) + (2 :u64vector 1 :u64vector) + (2 :symbolic 1 :symbolic) (2 :bignum 1 :bignum) - (2 :immediate 1 :immediate) + (2 :address-info 1 :address-info) + (2 :tcp-server-port 1 :tcp-server-port) + (2 :s8vector 1 :s8vector) + (2 :file-info 1 :file-info) + (2 :processor 1 :processor) + (2 :continuation 1 :continuation) + (2 :u8vector-port 1 :u8vector-port) + (2 :atom 1 :atom) (2 :special 1 :special) - (2 :list 1 :list)) + (2 :integer 1 :integer) + (2 :promise 1 :promise) + (2 :true 1 :true) + (2 :haflonum 1 :haflonum) + (2 :pair 1 :pair) + (2 :vector-port 1 :vector-port) + (2 :u32vector 1 :u32vector) + (2 :thread-group 1 :thread-group) + (2 :char 1 :char) + (2 :symbol 1 :symbol) + (2 :flonum 1 :flonum) + (2 :structure 1 :structure) + (2 :f64vector 1 :f64vector) + (2 :event-queue-port 1 :event-queue-port)) (phi: 1 :gerbil/core/match) (phi: 1 :gerbil/core/more-sugar) (phi: 1 :gerbil/core/contract) @@ -669,2717 +753,2758 @@ namespace: gerbil/core (phi: 2 :gerbil/core/expander)) (%#export (spec: 1 !class-precedence-list !class-precedence-list) + (spec: 1 &type-env-super-set! &type-env-super-set!) (spec: 1 type-env-var-set! type-env-var-set!) + (spec: 1 type-env-var type-env-var) + (spec: 1 &type-env-checked? &type-env-checked?) (spec: 1 make-type-env make-type-env) - (spec: 1 type-env-lookup type-env-lookup) - (spec: 1 &type-env-super-set! &type-env-super-set!) - (spec: 1 type-env-checked?-set! type-env-checked?-set!) + (spec: 1 &type-env-super &type-env-super) + (spec: 1 type-env-checked? type-env-checked?) + (spec: 1 &type-env-type-set! &type-env-type-set!) (spec: 1 type-env type-env) - (spec: 1 type-env-super-set! type-env-super-set!) - (spec: 1 type-env? type-env?) - (spec: 1 type-env-var type-env-var) - (spec: 1 type-env-type type-env-type) (spec: 1 &type-env-type &type-env-type) - (spec: 1 type-env-type-set! type-env-type-set!) - (spec: 1 current-type-env current-type-env) - (spec: 1 &type-env-type-set! &type-env-type-set!) - (spec: 1 type-env::t type-env::t) - (spec: 1 type-env-checked? type-env-checked?) + (spec: 1 type-env-lookup type-env-lookup) + (spec: 1 type-env-type type-env-type) (spec: 1 &type-env-var &type-env-var) - (spec: 1 &type-env-checked? &type-env-checked?) - (spec: 1 type-env-super type-env-super) (spec: 1 &type-env-checked?-set! &type-env-checked?-set!) (spec: 1 &type-env-var-set! &type-env-var-set!) - (spec: 1 &type-env-super &type-env-super) - (spec: - 1 - interface-info-instance-type-set! - interface-info-instance-type-set!) - (spec: 1 &interface-info-namespace &interface-info-namespace) - (spec: 1 &interface-info-instance-type &interface-info-instance-type) + (spec: 1 type-env-super-set! type-env-super-set!) + (spec: 1 type-env::t type-env::t) + (spec: 1 type-env-type-set! type-env-type-set!) + (spec: 1 type-env-super type-env-super) + (spec: 1 type-env-checked?-set! type-env-checked?-set!) + (spec: 1 type-env? type-env?) + (spec: 1 current-type-env current-type-env) + (spec: 1 interface-info-namespace interface-info-namespace) (spec: 1 - interface-info-interface-methods-set! - interface-info-interface-methods-set!) + interface-info-instance-satisfies-predicate-set! + interface-info-instance-satisfies-predicate-set!) (spec: 1 - &interface-info-instance-constructor-set! - &interface-info-instance-constructor-set!) + &interface-info-instance-predicate + &interface-info-instance-predicate) (spec: 1 - &interface-info-interface-precedence-list-set! - &interface-info-interface-precedence-list-set!) - (spec: 1 interface-info? interface-info?) + &interface-info-instance-try-constructor-set! + &interface-info-instance-try-constructor-set!) (spec: 1 - &interface-info-interface-mixin-set! - &interface-info-interface-mixin-set!) + &interface-info-instance-constructor + &interface-info-instance-constructor) (spec: 1 - &interface-info-implementation-methods-set! - &interface-info-implementation-methods-set!) + interface-info-instance-satisfies-predicate + interface-info-instance-satisfies-predicate) (spec: 1 - &interface-info-unchecked-implementation-methods-set! - &interface-info-unchecked-implementation-methods-set!) + interface-info-interface-descriptor-set! + interface-info-interface-descriptor-set!) + (spec: 1 make-interface-info make-interface-info) (spec: 1 - interface-info-instance-try-constructor-set! - interface-info-instance-try-constructor-set!) + &interface-info-interface-methods + &interface-info-interface-methods) (spec: 1 - interface-info-unchecked-implementation-methods-set! - interface-info-unchecked-implementation-methods-set!) - (spec: 1 syntax-local-interface-info? syntax-local-interface-info?) + interface-info-interface-mixin-set! + interface-info-interface-mixin-set!) (spec: 1 - &interface-info-instance-try-constructor-set! - &interface-info-instance-try-constructor-set!) + interface-info-instance-constructor-set! + interface-info-instance-constructor-set!) (spec: 1 - interface-info-interface-precedence-list - interface-info-interface-precedence-list) + interface-info-interface-mixin + interface-info-interface-mixin) + (spec: 1 interface-info-id-set! interface-info-id-set!) + (spec: 1 interface-info? interface-info?) (spec: 1 - interface-info-interface-mixin-set! - interface-info-interface-mixin-set!) - (spec: 1 interface-info-namespace interface-info-namespace) + interface-info-interface-methods + interface-info-interface-methods) (spec: 1 - &interface-info-interface-descriptor-set! - &interface-info-interface-descriptor-set!) + interface-info-implementation-methods + interface-info-implementation-methods) (spec: 1 - interface-mixin->precedence-list - interface-mixin->precedence-list) + &interface-info-interface-methods-set! + &interface-info-interface-methods-set!) (spec: 1 interface-info::t interface-info::t) - (spec: 1 interface-info-namespace-set! interface-info-namespace-set!) - (spec: 1 &interface-info-name &interface-info-name) - (spec: - 1 - interface-info-implementation-methods - interface-info-implementation-methods) (spec: 1 - &interface-info-interface-methods - &interface-info-interface-methods) + &interface-info-instance-satisfies-predicate + &interface-info-instance-satisfies-predicate) (spec: 1 interface-info-interface-precedence-list-set! interface-info-interface-precedence-list-set!) (spec: 1 - &interface-info-instance-type-set! - &interface-info-instance-type-set!) - (spec: 1 interface-info-name interface-info-name) - (spec: - 1 - &interface-info-implementation-methods - &interface-info-implementation-methods) + &interface-info-implementation-methods-set! + &interface-info-implementation-methods-set!) (spec: 1 - interface-info-interface-descriptor - interface-info-interface-descriptor) + interface-info-implementation-methods-set! + interface-info-implementation-methods-set!) (spec: 1 - &interface-info-instance-constructor - &interface-info-instance-constructor) + &interface-info-namespace-set! + &interface-info-namespace-set!) + (spec: 1 &interface-info-id-set! &interface-info-id-set!) (spec: 1 - &interface-info-instance-satisfies-predicate-set! - &interface-info-instance-satisfies-predicate-set!) + interface-info-instance-predicate-set! + interface-info-instance-predicate-set!) + (spec: 1 &interface-info-name-set! &interface-info-name-set!) (spec: 1 &interface-info-instance-try-constructor &interface-info-instance-try-constructor) (spec: 1 - &interface-info-interface-precedence-list - &interface-info-interface-precedence-list) + interface-info-unchecked-implementation-methods + interface-info-unchecked-implementation-methods) (spec: 1 - &interface-info-instance-predicate-set! - &interface-info-instance-predicate-set!) + &interface-info-interface-precedence-list-set! + &interface-info-interface-precedence-list-set!) (spec: 1 - interface-info-instance-constructor - interface-info-instance-constructor) + interface-info::apply-macro-expander + interface-info::apply-macro-expander) (spec: 1 - interface-info-interface-descriptor-set! - interface-info-interface-descriptor-set!) + interface-info-type-descriptor + interface-info-type-descriptor) (spec: 1 - interface-info-instance-try-constructor - interface-info-instance-try-constructor) + &interface-info-unchecked-implementation-methods + &interface-info-unchecked-implementation-methods) (spec: 1 - &interface-info-instance-predicate - &interface-info-instance-predicate) - (spec: 1 interface-info-instance-type interface-info-instance-type) - (spec: 1 interface-info-name-set! interface-info-name-set!) + &interface-info-instance-predicate-set! + &interface-info-instance-predicate-set!) (spec: 1 - &interface-info-instance-satisfies-predicate - &interface-info-instance-satisfies-predicate) + &interface-info-type-descriptor-set! + &interface-info-type-descriptor-set!) (spec: 1 - &interface-info-unchecked-implementation-methods - &interface-info-unchecked-implementation-methods) + interface-info-instance-try-constructor-set! + interface-info-instance-try-constructor-set!) (spec: 1 - &interface-info-namespace-set! - &interface-info-namespace-set!) - (spec: 1 interface-info interface-info) + &interface-info-instance-constructor-set! + &interface-info-instance-constructor-set!) + (spec: 1 syntax-local-interface-info? syntax-local-interface-info?) + (spec: 1 &interface-info-name &interface-info-name) (spec: 1 - interface-info-instance-satisfies-predicate - interface-info-instance-satisfies-predicate) + interface-info-instance-predicate + interface-info-instance-predicate) (spec: 1 - interface-info-instance-constructor-set! - interface-info-instance-constructor-set!) + &interface-info-type-descriptor + &interface-info-type-descriptor) (spec: 1 - interface-info-implementation-methods-set! - interface-info-implementation-methods-set!) + interface-info-instance-constructor + interface-info-instance-constructor) (spec: 1 - interface-info::apply-macro-expander - interface-info::apply-macro-expander) + interface-info-method-signature + interface-info-method-signature) (spec: 1 - interface-info-unchecked-implementation-methods - interface-info-unchecked-implementation-methods) + interface-info-type-descriptor-set! + interface-info-type-descriptor-set!) (spec: 1 - interface-info-method-signature - interface-info-method-signature) + &interface-info-interface-descriptor-set! + &interface-info-interface-descriptor-set!) (spec: 1 - &interface-info-interface-methods-set! - &interface-info-interface-methods-set!) + interface-info-unchecked-implementation-methods-set! + interface-info-unchecked-implementation-methods-set!) (spec: 1 - interface-info-interface-mixin - interface-info-interface-mixin) - (spec: 1 make-interface-info make-interface-info) + &interface-info-implementation-methods + &interface-info-implementation-methods) + (spec: 1 &interface-info-id &interface-info-id) + (spec: 1 interface-info-id interface-info-id) (spec: 1 - interface-info-instance-predicate-set! - interface-info-instance-predicate-set!) + interface-info-interface-methods-set! + interface-info-interface-methods-set!) + (spec: + 1 + interface-info-instance-try-constructor + interface-info-instance-try-constructor) + (spec: + 1 + &interface-info-interface-descriptor + &interface-info-interface-descriptor) + (spec: 1 interface-info-name interface-info-name) + (spec: 1 interface-info-namespace-set! interface-info-namespace-set!) (spec: 1 interface-identifier->precedence-list interface-identifier->precedence-list) - (spec: 1 &interface-info-name-set! &interface-info-name-set!) (spec: 1 - interface-info-instance-satisfies-predicate-set! - interface-info-instance-satisfies-predicate-set!) + interface-info-interface-descriptor + interface-info-interface-descriptor) + (spec: 1 interface-info-name-set! interface-info-name-set!) + (spec: 1 &interface-info-namespace &interface-info-namespace) (spec: 1 - interface-info-interface-methods - interface-info-interface-methods) + &interface-info-unchecked-implementation-methods-set! + &interface-info-unchecked-implementation-methods-set!) (spec: 1 - &interface-info-interface-descriptor - &interface-info-interface-descriptor) + &interface-info-interface-precedence-list + &interface-info-interface-precedence-list) + (spec: + 1 + interface-info-interface-precedence-list + interface-info-interface-precedence-list) + (spec: + 1 + &interface-info-instance-satisfies-predicate-set! + &interface-info-instance-satisfies-predicate-set!) + (spec: + 1 + interface-mixin->precedence-list + interface-mixin->precedence-list) + (spec: 1 interface-info interface-info) (spec: 1 &interface-info-interface-mixin &interface-info-interface-mixin) (spec: 1 - interface-info-instance-predicate - interface-info-instance-predicate) + &interface-info-interface-mixin-set! + &interface-info-interface-mixin-set!) (spec: 1 is-signature? is-signature?) + (spec: 0 defstruct/c defstruct/c) + (spec: 0 with-procedure-contract with-procedure-contract) (spec: 0 do-loop-step do-loop-step) + (spec: 0 defmutable defmutable) + (spec: 0 def/c def/c) + (spec: 0 case-lambda/c case-lambda/c) + (spec: 0 @method @method) + (spec: 0 def*/c def*/c) + (spec: 0 with-procedure-signature with-procedure-signature) (spec: 0 with-procedure-unchecked-contract with-procedure-unchecked-contract) + (spec: 0 defmethod/c defmethod/c) (spec: 0 with-receiver with-receiver) - (spec: 0 with-procedure-signature with-procedure-signature) - (spec: 0 @method @method) - (spec: 0 let/c let/c) - (spec: 0 defmutable defmutable) - (spec: 0 lambda/c lambda/c) - (spec: 0 do-while/c do-while/c) - (spec: 0 def*/c def*/c) (spec: 0 do/c do/c) - (spec: 0 with-procedure-contract with-procedure-contract) - (spec: 0 case-lambda/c case-lambda/c) + (spec: 0 do-loop-result do-loop-result) (spec: 0 defmutable* defmutable*) - (spec: 0 defmethod/c defmethod/c) + (spec: 0 do-while/c do-while/c) + (spec: 0 lambda/c lambda/c) (spec: 0 defclass/c defclass/c) - (spec: 0 def/c def/c) - (spec: 0 defstruct/c defstruct/c) - (spec: 0 do-loop-result do-loop-result) + (spec: 0 let/c let/c) + (spec: 1 signature-arguments-in signature-arguments-in) + (spec: 1 check-signature! check-signature!) + (spec: 1 keywordtype-descriptor resolve-type->type-descriptor) (spec: 1 resolve-type->identifier resolve-type->identifier) - (spec: 1 type-reference? type-reference?) + (spec: 1 type-reference type-reference) + (spec: 1 type-reference::t type-reference::t) + (spec: 1 type-identifier? type-identifier?) + (spec: 1 make-type-reference make-type-reference) (spec: 1 type-reference-identifier type-reference-identifier) (spec: 1 type-reference-identifier-set! type-reference-identifier-set!) - (spec: - 1 - &type-reference-identifier-set! - &type-reference-identifier-set!) - (spec: 1 type-identifier? type-identifier?) + (spec: 1 &type-reference-identifier &type-reference-identifier) + (spec: 1 resolve-type resolve-type) + (spec: 1 type-reference? type-reference?) (spec: 0 deftype deftype) - (spec: 0 ContractRules ContractRules) - (spec: 0 ClassMeta ClassMeta) - (spec: 0 TypedDefinitions TypedDefinitions) - (spec: 0 Using Using) (spec: 0 Interface Interface) (spec: 0 TypeReference TypeReference) - (spec: 0 InterfaceInfo InterfaceInfo) - (spec: 0 TypeEnv TypeEnv) + (spec: 0 Using Using) + (spec: 0 ContractRules ContractRules) + (spec: 0 TypedDefinitions TypedDefinitions) (spec: 0 TypeCast TypeCast) - (spec: 0 defsyntax-for-import defsyntax-for-import) - (spec: 0 except-in except-in) - (spec: 0 defsyntax-for-export defsyntax-for-export) - (spec: 0 struct-out struct-out) - (spec: 0 require require) - (spec: 0 defsyntax-for-import-export defsyntax-for-import-export) - (spec: 0 prefix-out prefix-out) - (spec: 0 rename-in rename-in) - (spec: 0 only-in only-in) - (spec: 0 rename-out rename-out) - (spec: 0 except-out except-out) - (spec: 0 for-template for-template) + (spec: 0 ClassMeta ClassMeta) + (spec: 0 TypeEnv TypeEnv) + (spec: 0 InterfaceInfo InterfaceInfo) (spec: 0 for-syntax for-syntax) + (spec: 0 rename-out rename-out) (spec: 0 group-in group-in) + (spec: 0 defsyntax-for-export defsyntax-for-export) + (spec: 0 rename-in rename-in) (spec: 0 prefix-in prefix-in) - (spec: 1 setf-macro setf-macro) - (spec: 1 setf-macro::t setf-macro::t) - (spec: 1 &setf-macro-macro &setf-macro-macro) + (spec: 0 struct-out struct-out) + (spec: 0 defsyntax-for-import-export defsyntax-for-import-export) + (spec: 0 require require) + (spec: 0 for-template for-template) + (spec: 0 except-out except-out) + (spec: 0 only-in only-in) + (spec: 0 prefix-out prefix-out) + (spec: 0 except-in except-in) + (spec: 0 defsyntax-for-import defsyntax-for-import) + (spec: 1 setf-macro-macro setf-macro-macro) + (spec: 1 setq-macro? setq-macro?) + (spec: 1 make-setf-macro make-setf-macro) (spec: 1 syntax-local-setf-macro? syntax-local-setf-macro?) - (spec: 1 &setq-macro-macro-set! &setq-macro-macro-set!) - (spec: 1 setq-macro setq-macro) - (spec: 1 make-setq-macro make-setq-macro) - (spec: 1 setq-macro::t setq-macro::t) - (spec: 1 setf-macro? setf-macro?) - (spec: 1 setq-macro-macro-set! setq-macro-macro-set!) + (spec: 1 setf-macro::t setf-macro::t) (spec: 1 expand-set! expand-set!) - (spec: 1 setq-macro? setq-macro?) - (spec: 1 &setf-macro-macro-set! &setf-macro-macro-set!) + (spec: 1 setq-macro-macro-set! setq-macro-macro-set!) (spec: 1 &setq-macro-macro &setq-macro-macro) - (spec: 1 setq-macro-macro setq-macro-macro) - (spec: 1 setf-macro-macro-set! setf-macro-macro-set!) + (spec: 1 setq-macro setq-macro) + (spec: 1 setf-macro setf-macro) + (spec: 1 &setf-macro-macro-set! &setf-macro-macro-set!) + (spec: 1 setf-macro? setf-macro?) + (spec: 1 setq-macro::t setq-macro::t) (spec: 1 syntax-local-setq-macro? syntax-local-setq-macro?) - (spec: 1 make-setf-macro make-setf-macro) - (spec: 1 setf-macro-macro setf-macro-macro) - (spec: 0 until until) - (spec: 0 parameterize parameterize) + (spec: 1 setf-macro-macro-set! setf-macro-macro-set!) + (spec: 1 make-setq-macro make-setq-macro) + (spec: 1 &setq-macro-macro-set! &setq-macro-macro-set!) + (spec: 1 setq-macro-macro setq-macro-macro) + (spec: 1 &setf-macro-macro &setf-macro-macro) + (spec: 0 @bytes @bytes) + (spec: 0 values-set! values-set!) (spec: 0 ~hash-table ~hash-table) - (spec: 0 hash hash) + (spec: 0 unwind-protect unwind-protect) (spec: 0 try try) (spec: 0 eval-when-compile eval-when-compile) + (spec: 0 let/cc let/cc) (spec: 0 hash-eq hash-eq) + (spec: 0 parameterize parameterize) + (spec: 0 until until) (spec: 0 finally finally) - (spec: 0 @bytes @bytes) + (spec: 0 hash hash) (spec: 0 while while) - (spec: 0 catch catch) - (spec: 0 let/cc let/cc) - (spec: 0 values-set! values-set!) - (spec: 0 unwind-protect unwind-protect) (spec: 0 hash-eqv hash-eqv) + (spec: 0 catch catch) (spec: 1 match-pattern? match-pattern?) (spec: 1 syntax-local-match-macro? syntax-local-match-macro?) (spec: 1 match-macro? match-macro?) (spec: 1 make-match-macro make-match-macro) (spec: 1 match-macro::t match-macro::t) (spec: 1 match-macro match-macro) - (spec: 0 with with) + (spec: 0 defsyntax-for-match defsyntax-for-match) (spec: 0 match match) - (spec: 0 ? ?) (spec: 0 match* match*) - (spec: 0 defsyntax-for-match defsyntax-for-match) - (spec: 0 with* with*) (spec: 0 defrules-for-match defrules-for-match) - (spec: 0 :list :list) + (spec: 0 with* with*) + (spec: 0 with with) + (spec: 0 ? ?) + (spec: 0 :event-queue-port :event-queue-port) + (spec: 0 :f64vector :f64vector) + (spec: 0 :structure :structure) + (spec: 0 :flonum :flonum) + (spec: 0 :symbol :symbol) + (spec: 0 :char :char) + (spec: 0 :thread-group :thread-group) + (spec: 0 :u32vector :u32vector) + (spec: 0 :vector-port :vector-port) + (spec: 0 :pair :pair) + (spec: 0 :haflonum :haflonum) + (spec: 0 :true :true) + (spec: 0 :promise :promise) + (spec: 0 :integer :integer) (spec: 0 :special :special) - (spec: 0 :immediate :immediate) + (spec: 0 :atom :atom) + (spec: 0 :u8vector-port :u8vector-port) + (spec: 0 :continuation :continuation) + (spec: 0 :processor :processor) + (spec: 0 :file-info :file-info) + (spec: 0 :s8vector :s8vector) + (spec: 0 :tcp-server-port :tcp-server-port) + (spec: 0 :address-info :address-info) (spec: 0 :bignum :bignum) + (spec: 0 :symbolic :symbolic) + (spec: 0 :u64vector :u64vector) + (spec: 0 :box :box) + (spec: 0 :dssl-key :dssl-key) (spec: 0 :boolean :boolean) - (spec: 0 :eof :eof) - (spec: 0 :weak :weak) - (spec: 0 :f32vector :f32vector) + (spec: 0 :u16vector :u16vector) + (spec: 0 class class) + (spec: 0 :dssl-rest :dssl-rest) + (spec: 0 :mutex :mutex) (spec: 0 :port :port) (spec: 0 :raw-device-port :raw-device-port) + (spec: 0 :subtyped :subtyped) + (spec: 0 :string :string) + (spec: 0 :table :table) (spec: 0 :fixnum :fixnum) + (spec: 0 :number :number) + (spec: 0 :return :return) (spec: 0 :void :void) - (spec: 0 :integer :integer) - (spec: 0 :cpxnum :cpxnum) (spec: 0 :readenv :readenv) - (spec: 0 :true :true) - (spec: 0 :symbolic :symbolic) - (spec: 0 :values :values) - (spec: 0 :u64vector :u64vector) - (spec: 0 :object-port :object-port) - (spec: 0 :pair :pair) - (spec: 0 :tcp-server-port :tcp-server-port) - (spec: 0 :u32vector :u32vector) - (spec: 0 :symbol :symbol) - (spec: 0 :vector-port :vector-port) - (spec: 0 :thread-group :thread-group) - (spec: 0 :table :table) - (spec: 0 :f64vector :f64vector) - (spec: 0 :writeenv :writeenv) - (spec: 0 :u16vector :u16vector) - (spec: 0 :box :box) - (spec: 0 :processor :processor) + (spec: 0 :eof :eof) + (spec: 0 :dssl-optional :dssl-optional) + (spec: 0 :s64vector :s64vector) (spec: 0 :vm :vm) - (spec: 0 :t :t) - (spec: 0 :file-info :file-info) - (spec: 0 :s8vector :s8vector) - (spec: 0 :false :false) - (spec: 0 :number :number) - (spec: 0 :byte-port :byte-port) - (spec: 0 :string-port :string-port) - (spec: 0 :hvector :hvector) - (spec: 0 :device-port :device-port) - (spec: 0 :s32vector :s32vector) - (spec: 0 :char :char) + (spec: 0 :weak :weak) + (spec: 0 :character-port :character-port) + (spec: 0 :f32vector :f32vector) (spec: 0 :vector :vector) - (spec: 0 :time :time) - (spec: 0 :address-info :address-info) + (spec: 0 :u8vector :u8vector) + (spec: 0 :builtin :builtin) + (spec: 0 :s32vector :s32vector) + (spec: 0 :cpxnum :cpxnum) + (spec: 0 :condvar :condvar) + (spec: 0 :t :t) + (spec: 0 defsystem-class-info defsystem-class-info) (spec: 0 :s16vector :s16vector) - (spec: 0 :character-port :character-port) - (spec: 0 :u8vector-port :u8vector-port) - (spec: 0 :frame :frame) - (spec: 0 :flonum :flonum) - (spec: 0 :foreign :foreign) - (spec: 0 :event-queue-port :event-queue-port) - (spec: 0 :string :string) + (spec: 0 :device-port :device-port) + (spec: 0 :sequence :sequence) (spec: 0 :class :class) + (spec: 0 :unbound2 :unbound2) + (spec: 0 :stflonum :stflonum) + (spec: 0 :procedure :procedure) + (spec: 0 :object-port :object-port) + (spec: 0 :string-port :string-port) + (spec: 0 :directory-port :directory-port) + (spec: 0 :values :values) + (spec: 0 :unbound :unbound) + (spec: 0 :dssl-token :dssl-token) + (spec: 0 :false :false) + (spec: 0 :writeenv :writeenv) + (spec: 0 :hvector :hvector) + (spec: 0 :readtable :readtable) + (spec: 0 :immediate :immediate) + (spec: 0 :list :list) + (spec: 0 :keyword :keyword) + (spec: 0 :object :object) (spec: 0 :real :real) + (spec: 0 :foreign :foreign) (spec: 0 :socket-info :socket-info) - (spec: 0 :readtable :readtable) + (spec: 0 :ratnum :ratnum) + (spec: 0 :byte-port :byte-port) (spec: 0 :udp-port :udp-port) - (spec: 0 :s64vector :s64vector) - (spec: 0 :directory-port :directory-port) (spec: 0 :null :null) - (spec: 0 :atom :atom) - (spec: 0 :procedure :procedure) + (spec: 0 :frame :frame) (spec: 0 :thread :thread) - (spec: 0 :mutex :mutex) - (spec: 0 :sequence :sequence) - (spec: 0 :u8vector :u8vector) - (spec: 0 defsystem-class-info defsystem-class-info) - (spec: 0 :promise :promise) - (spec: 0 :continuation :continuation) - (spec: 0 :condvar :condvar) - (spec: 0 :ratnum :ratnum) - (spec: 0 :keyword :keyword) - (spec: 0 class class) - (spec: 0 :object :object) (spec: 0 define-struct define-struct) + (spec: 0 define-class define-class) (spec: 0 @ @) (spec: 0 @-set! @-set!) - (spec: 0 define-class define-class) - (spec: 0 defclass-type defclass-type) (spec: 0 defstruct-type defstruct-type) - (spec: 0 MOP-5 MOP-5) - (spec: 0 MOP-1 MOP-1) + (spec: 0 defclass-type defclass-type) (spec: 0 MOP-4 MOP-4) - (spec: 0 MOP-2 MOP-2) (spec: 0 MOP-3 MOP-3) + (spec: 0 MOP-1 MOP-1) + (spec: 0 MOP-5 MOP-5) + (spec: 0 MOP-2 MOP-2) + (spec: 0 definline definline) (spec: 0 defconst defconst) (spec: 0 defsyntax defsyntax) - (spec: 0 definline definline) - (spec: 0 ~case-dispatch* ~case-dispatch*) - (spec: 0 rec rec) - (spec: 0 ~case-dispatch-bsearch ~case-dispatch-bsearch) - (spec: 0 defvalues defvalues) + (spec: 0 cut cut) (spec: 0 alet alet) + (spec: 0 ~case-dispatch ~case-dispatch) + (spec: 0 delay delay) (spec: 0 case case) - (spec: 0 begin0 begin0) - (spec: 0 quasiquote quasiquote) - (spec: 0 delay-atomic delay-atomic) - (spec: 0 alet* alet*) (spec: 0 <...> <...>) - (spec: 0 delay delay) - (spec: 0 cut cut) + (spec: 0 ~case-dispatch-bsearch ~case-dispatch-bsearch) + (spec: 0 and-let* and-let*) + (spec: 0 begin0 begin0) (spec: 0 <> <>) + (spec: 0 delay-atomic delay-atomic) (spec: 0 ~case-test ~case-test) - (spec: 0 and-let* and-let*) + (spec: 0 rec rec) (spec: 0 ~case ~case) - (spec: 0 ~case-dispatch ~case-dispatch) (spec: 0 @list @list) - (spec: 0 let* let*) - (spec: 0 letrec letrec) - (spec: 0 or or) - (spec: 0 define-rules define-rules) - (spec: 0 defsyntax% defsyntax%) - (spec: 0 define define) + (spec: 0 ~case-dispatch* ~case-dispatch*) + (spec: 0 alet* alet*) + (spec: 0 defvalues defvalues) + (spec: 0 quasiquote quasiquote) + (spec: 0 when when) (spec: 0 and and) - (spec: 0 defalias defalias) - (spec: 0 defrules defrules) - (spec: 0 let*-values let*-values) (spec: 0 letrec* letrec*) - (spec: 0 defrule defrule) - (spec: 0 cond cond) - (spec: 0 when when) - (spec: 0 syntax-error syntax-error) + (spec: 0 defalias defalias) (spec: 0 unless unless) + (spec: 0 syntax-error syntax-error) + (spec: 0 let*-values let*-values) + (spec: 0 let* let*) + (spec: 0 define-rules define-rules) (spec: 0 ~let ~let) + (spec: 0 defrule defrule) + (spec: 0 defsyntax% defsyntax%) + (spec: 0 letrec letrec) (spec: 0 compilation-target? compilation-target?) - (spec: 0 s8vector-ref-set! s8vector-ref-set!) - (spec: 0 u8vector-ref-set! u8vector-ref-set!) - (spec: 0 cdr-set! cdr-set!) - (spec: 0 random-bytes random-bytes) + (spec: 0 defrules defrules) + (spec: 0 cond cond) + (spec: 0 define define) + (spec: 0 or or) + (spec: 0 u32vector-ref-set! u32vector-ref-set!) (spec: 0 string-ref-set! string-ref-set!) - (spec: 0 car-set! car-set!) (spec: 0 u64vector-ref-set! u64vector-ref-set!) - (spec: 0 s16vector-ref-set! s16vector-ref-set!) (spec: 0 f64vector-ref-set! f64vector-ref-set!) - (spec: 0 call/values call/values) + (spec: 0 s16vector-ref-set! s16vector-ref-set!) (spec: 0 random-source-make-bytes random-source-make-bytes) + (spec: 0 u8vector-ref-set! u8vector-ref-set!) (spec: 0 u16vector-ref-set! u16vector-ref-set!) - (spec: 0 f32vector-ref-set! f32vector-ref-set!) - (spec: 0 u32vector-ref-set! u32vector-ref-set!) - (spec: 0 call/parameters call/parameters) + (spec: 0 cdr-set! cdr-set!) (spec: 0 s32vector-ref-set! s32vector-ref-set!) - (spec: 0 s64vector-ref-set! s64vector-ref-set!) + (spec: 0 call/values call/values) (spec: 0 box-set! box-set!) + (spec: 0 s8vector-ref-set! s8vector-ref-set!) (spec: 0 vector-ref-set! vector-ref-set!) - (spec: 0 make-hash-table-eqv make-hash-table-eqv) - (spec: 0 eq-hash eq-hash) - (spec: 0 absent-value absent-value) - (spec: 0 hash-find hash-find) - (spec: 0 pget pget) - (spec: 0 remq remq) - (spec: 0 fx/ fx/) - (spec: 0 symbolic::t symbolic::t) - (spec: 0 void::t void::t) - (spec: 0 HashTable::interface HashTable::interface) + (spec: 0 random-bytes random-bytes) + (spec: 0 f32vector-ref-set! f32vector-ref-set!) + (spec: 0 car-set! car-set!) + (spec: 0 s64vector-ref-set! s64vector-ref-set!) + (spec: 0 call/parameters call/parameters) + (spec: 0 class-type-properties class-type-properties) + (spec: 0 object? object?) + (spec: 0 string-join string-join) + (spec: 0 make-symbolic-table make-symbolic-table) (spec: 0 hash-ref hash-ref) - (spec: 0 class-type-sealed? class-type-sealed?) - (spec: 0 remove1 remove1) - (spec: 0 gerbil-load-expander! gerbil-load-expander!) - (spec: 0 false false) - (spec: 0 cpxnum::t cpxnum::t) - (spec: 0 spawn spawn) - (spec: 0 subclass? subclass?) - (spec: 0 mutex::t mutex::t) - (spec: 0 find find) - (spec: 0 tcp-server-port::t tcp-server-port::t) - (spec: 0 hash-merge-right! hash-merge-right!) - (spec: 0 object-port::t object-port::t) - (spec: 0 true true) + (spec: 0 vm::t vm::t) + (spec: 0 u32vector::t u32vector::t) + (spec: 0 processor::t processor::t) + (spec: 0 is-hash-table? is-hash-table?) (spec: 0 interface-descriptor-type interface-descriptor-type) - (spec: 0 char::t char::t) + (spec: 0 thread-local-get thread-local-get) + (spec: 0 syntax-error? syntax-error?) + (spec: 0 struct-instance? struct-instance?) + (spec: 0 &class-type-flags &class-type-flags) + (spec: 0 c4-linearize c4-linearize) + (spec: 0 fx>=0? fx>=0?) + (spec: 0 haflonum::t haflonum::t) + (spec: 0 slot-set! slot-set!) + (spec: 0 filter-map filter-map) + (spec: 0 s16vector::t s16vector::t) + (spec: 0 with-unwind-protect with-unwind-protect) + (spec: 0 displayln displayln) (spec: 0 raise-contract-violation-error raise-contract-violation-error) - (spec: 0 write-u8vector write-u8vector) - (spec: 0 class-type-final? class-type-final?) + (spec: 0 true true) + (spec: 0 unchecked-slot-ref unchecked-slot-ref) + (spec: 0 list->hash-table list->hash-table) + (spec: 0 pget pget) + (spec: 0 plist->hash-table-string plist->hash-table-string) + (spec: 0 module-load-order module-load-order) + (spec: 0 string-port? string-port?) + (spec: 0 foldr foldr) + (spec: 0 build-manifest/head build-manifest/head) + (spec: 0 hash-map hash-map) + (spec: 0 event-queue-port::t event-queue-port::t) + (spec: 0 eof::t eof::t) + (spec: 0 values::t values::t) + (spec: 0 class-type-seal! class-type-seal!) + (spec: 0 class-type-precedence-list class-type-precedence-list) + (spec: 0 subtyped::t subtyped::t) + (spec: 0 next-method next-method) + (spec: 0 symblic-hash symblic-hash) + (spec: 0 method-ref method-ref) + (spec: 0 hash->list hash->list) + (spec: 0 flonum::t flonum::t) + (spec: 0 set-load-path! set-load-path!) + (spec: 0 with-dynamic-lock with-dynamic-lock) + (spec: 0 time::t time::t) (spec: 0 list->hash-table-eq list->hash-table-eq) - (spec: - 0 - unhandled-actor-exception-hook-set! - unhandled-actor-exception-hook-set!) - (spec: 0 read-syntax-from-file read-syntax-from-file) + (spec: 0 1- 1-) + (spec: 0 gerbil-runtime-smp? gerbil-runtime-smp?) + (spec: 0 class-instance? class-instance?) + (spec: 0 object-fill! object-fill!) + (spec: 0 bytes->string bytes->string) + (spec: 0 fx/ fx/) + (spec: 0 make-symbol make-symbol) + (spec: 0 raise raise) + (spec: 0 f32vector::t f32vector::t) + (spec: 0 hash-merge! hash-merge!) + (spec: 0 source-location? source-location?) (spec: 0 make-hash-table-string make-hash-table-string) - (spec: 0 f64vector::t f64vector::t) + (spec: 0 display-as-string display-as-string) + (spec: 0 vector-port::t vector-port::t) + (spec: 0 error error) + (spec: 0 type-of type-of) + (spec: 0 class-type-super class-type-super) + (spec: 0 symbolic? symbolic?) + (spec: 0 interned-symbol? interned-symbol?) + (spec: 0 tcp-server-port? tcp-server-port?) + (spec: 0 char::t char::t) + (spec: 0 &class-type-constructor &class-type-constructor) + (spec: 0 string::t string::t) + (spec: 0 box::t box::t) + (spec: 0 hash-key? hash-key?) + (spec: 0 andmap andmap) + (spec: 0 remf remf) + (spec: 0 unbound::t unbound::t) + (spec: 0 gerbil-system gerbil-system) + (spec: 0 object-port? object-port?) (spec: 0 fx1- fx1-) - (spec: 0 as-string as-string) - (spec: 0 thread-local-delete! thread-local-delete!) - (spec: 0 u32vector::t u32vector::t) - (spec: 0 class-type-slot-table class-type-slot-table) - (spec: 0 make-object make-object) - (spec: 0 string-port::t string-port::t) - (spec: 0 max-char-code max-char-code) - (spec: 0 AST-e AST-e) - (spec: 0 error-message error-message) - (spec: 0 true? true?) - (spec: 0 object-type object-type) - (spec: 0 boolean::t boolean::t) - (spec: 0 plist->hash-table-eqv plist->hash-table-eqv) - (spec: 0 list->hash-table-immediate list->hash-table-immediate) - (spec: 0 character-port? character-port?) - (spec: 0 raise-unbound-key-error raise-unbound-key-error) - (spec: 0 make-class-predicate make-class-predicate) - (spec: 0 slot-ref slot-ref) - (spec: 0 HashTableLock::interface HashTableLock::interface) - (spec: 0 hash-for-each hash-for-each) - (spec: 0 fx<=0? fx<=0?) - (spec: 0 thread-local-ref thread-local-ref) + (spec: 0 hash-table? hash-table?) (spec: 0 HashTable::t HashTable::t) - (spec: 0 call-method call-method) - (spec: 0 u8vector-port::t u8vector-port::t) + (spec: 0 false::t false::t) + (spec: 0 error-irritants error-irritants) + (spec: 0 eqv-hash eqv-hash) + (spec: 0 read-syntax-from-file read-syntax-from-file) (spec: 0 weak? weak?) - (spec: 0 &interface-instance-object &interface-instance-object) - (spec: 0 exception? exception?) - (spec: 0 class-type-slot-vector class-type-slot-vector) - (spec: 0 replx replx) + (spec: 0 udp-port? udp-port?) + (spec: 0 procedure-hash procedure-hash) + (spec: 0 class-type-system? class-type-system?) + (spec: 0 __DEBUG __DEBUG) + (spec: 0 symbolic-table-set! symbolic-table-set!) + (spec: 0 mutex::t mutex::t) + (spec: 0 immediate-instance-of? immediate-instance-of?) (spec: 0 memf memf) - (spec: 0 string-rindex string-rindex) - (spec: 0 next-method next-method) - (spec: 0 error? error?) - (spec: 0 immediate-hash immediate-hash) - (spec: 0 fixnum::t fixnum::t) - (spec: 0 object? object?) - (spec: 0 values->list values->list) - (spec: 0 checked-bound-method-ref checked-bound-method-ref) - (spec: 0 box::t box::t) - (spec: 0 list->hash-table-symbolic list->hash-table-symbolic) - (spec: 0 ratnum::t ratnum::t) - (spec: 0 plist->hash-table-string plist->hash-table-string) - (spec: 0 AST-source AST-source) - (spec: 0 make-class-slot-mutator make-class-slot-mutator) - (spec: 0 string->bytes string->bytes) - (spec: 0 device-port? device-port?) - (spec: 0 direct-method-ref direct-method-ref) - (spec: 0 assget assget) - (spec: 0 hash-key? hash-key?) - (spec: 0 pgetv pgetv) - (spec: 0 file-info::t file-info::t) - (spec: 0 bind-method! bind-method!) - (spec: 0 &class-type-constructor &class-type-constructor) - (spec: 0 call-with-parameters call-with-parameters) - (spec: 0 u8vector::t u8vector::t) - (spec: 0 keyword-dispatch keyword-dispatch) - (spec: 0 with-catch with-catch) - (spec: 0 hash-table? hash-table?) - (spec: 0 class-type-struct? class-type-struct?) - (spec: 0 cons* cons*) - (spec: 0 current-thread-group current-thread-group) - (spec: 0 s32vector::t s32vector::t) - (spec: 0 dssl-object? dssl-object?) - (spec: 0 writenv? writenv?) - (spec: 0 module-load-order module-load-order) - (spec: 0 nonnegative-fixnum? nonnegative-fixnum?) - (spec: 0 andmap andmap) (spec: 0 build-manifest build-manifest) - (spec: 0 foldl foldl) - (spec: 0 fx>0? fx>0?) - (spec: 0 values-ref values-ref) - (spec: 0 substruct? substruct?) - (spec: 0 list::t list::t) + (spec: 0 string-empty? string-empty?) + (spec: 0 find-method find-method) + (spec: 0 assget assget) + (spec: 0 socket-info::t socket-info::t) + (spec: 0 character-port? character-port?) + (spec: 0 hash-length hash-length) (spec: 0 raw-device-port? raw-device-port?) - (spec: 0 event-queue-port? event-queue-port?) - (spec: 0 1+ 1+) + (spec: 0 HashTableLock::interface HashTableLock::interface) + (spec: 0 class-type-methods class-type-methods) + (spec: 0 table::t table::t) + (spec: 0 null::t null::t) + (spec: 0 interface-instance? interface-instance?) + (spec: 0 interface-descriptor-methods interface-descriptor-methods) + (spec: 0 hash-keys hash-keys) + (spec: 0 find find) + (spec: 0 sequence::t sequence::t) + (spec: 0 dssl-rest-object? dssl-rest-object?) + (spec: 0 remv remv) + (spec: 0 with-exception-handler with-exception-handler) + (spec: 0 values-count values-count) + (spec: 0 raw-device-port::t raw-device-port::t) + (spec: + 0 + datum-parsing-exception-filepos + datum-parsing-exception-filepos) + (spec: 0 port::t port::t) + (spec: 0 AST-source AST-source) + (spec: 0 load-module load-module) + (spec: 0 checked-method-ref checked-method-ref) + (spec: 0 substruct? substruct?) + (spec: 0 immediate? immediate?) + (spec: 0 hash-remove! hash-remove!) + (spec: 0 fx% fx%) + (spec: 0 error-message error-message) + (spec: 0 absent-obj absent-obj) + (spec: 0 display* display*) (spec: 0 make-class-slot-unchecked-mutator make-class-slot-unchecked-mutator) - (spec: 0 constructor-init! constructor-init!) - (spec: 0 AST? AST?) - (spec: 0 build-manifest/head build-manifest/head) - (spec: 0 immediate-instance-of? immediate-instance-of?) - (spec: 0 fx>=0? fx>=0?) - (spec: 0 values::t values::t) - (spec: 0 interface-instance::t interface-instance::t) - (spec: 0 load-module load-module) - (spec: 0 &class-type-slot-vector &class-type-slot-vector) - (spec: 0 1- 1-) - (spec: 0 string-empty? string-empty?) - (spec: 0 make-class-type make-class-type) - (spec: 0 direct-instance? direct-instance?) - (spec: 0 actor-thread? actor-thread?) - (spec: 0 hash-get hash-get) - (spec: 0 syntax-error? syntax-error?) - (spec: 0 gerbil-system-version-string gerbil-system-version-string) - (spec: 0 call-next-method call-next-method) - (spec: 0 unbound-key-error? unbound-key-error?) - (spec: 0 satisfies? satisfies?) - (spec: 0 make-atomic-promise make-atomic-promise) - (spec: 0 dump-stack-trace! dump-stack-trace!) - (spec: 0 special? special?) - (spec: 0 struct->list struct->list) - (spec: 0 vector-port::t vector-port::t) - (spec: 0 &class-type-super &class-type-super) - (spec: 0 directory-port::t directory-port::t) - (spec: 0 address-info::t address-info::t) - (spec: 0 make-instance make-instance) - (spec: 0 eqv-hash eqv-hash) - (spec: 0 hash-keys hash-keys) - (spec: 0 file-newer? file-newer?) - (spec: 0 time::t time::t) - (spec: 0 with-lock with-lock) - (spec: 0 class-type-super class-type-super) - (spec: 0 with-exception-catcher with-exception-catcher) - (spec: 0 foreign::t foreign::t) - (spec: 0 struct-instance-init! struct-instance-init!) - (spec: 0 null::t null::t) - (spec: 0 symbolic-table-delete! symbolic-table-delete!) - (spec: 0 byte-port::t byte-port::t) - (spec: 0 hash->list hash->list) - (spec: 0 interned-symbol? interned-symbol?) - (spec: 0 procedure-hash procedure-hash) - (spec: 0 class->list class->list) - (spec: 0 vector::t vector::t) - (spec: 0 socket-info::t socket-info::t) - (spec: 0 make-keyword make-keyword) - (spec: 0 t::t t::t) - (spec: 0 hash-map hash-map) + (spec: 0 error-object? error-object?) + (spec: 0 class-type-struct? class-type-struct?) + (spec: 0 keyword-rest keyword-rest) + (spec: 0 interned-keyword? interned-keyword?) + (spec: 0 class-type-name class-type-name) + (spec: 0 integer::t integer::t) + (spec: 0 cast cast) + (spec: 0 string-hash string-hash) + (spec: 0 bound-method-ref bound-method-ref) + (spec: 0 HashTable::interface HashTable::interface) + (spec: 0 source-location-path source-location-path) + (spec: 0 agetv agetv) + (spec: 0 agetq agetq) + (spec: 0 write-u8vector write-u8vector) + (spec: 0 dssl-token::t dssl-token::t) + (spec: 0 eof-object eof-object) + (spec: 0 s8vector::t s8vector::t) + (spec: 0 pgetq pgetq) + (spec: 0 remq remq) + (spec: 0 subclass? subclass?) (spec: 0 move-file move-file) - (spec: 0 bind-specializer! bind-specializer!) - (spec: 0 unchecked-slot-ref unchecked-slot-ref) + (spec: 0 builtin::t builtin::t) + (spec: 0 cons* cons*) + (spec: 0 make-hash-table-eq make-hash-table-eq) + (spec: 0 dssl-key-object? dssl-key-object?) + (spec: 0 vm? vm?) + (spec: 0 u64vector::t u64vector::t) (spec: 0 interface-cast-error? interface-cast-error?) - (spec: 0 symblic-hash symblic-hash) - (spec: 0 class-type-system? class-type-system?) - (spec: 0 make-AST make-AST) - (spec: 0 display-exception display-exception) - (spec: 0 symbolic-table-set! symbolic-table-set!) - (spec: 0 immediate? immediate?) - (spec: 0 bytes->string bytes->string) - (spec: 0 gerbil-greeting-set! gerbil-greeting-set!) - (spec: 0 class-instance? class-instance?) - (spec: 0 type-of type-of) - (spec: 0 processor::t processor::t) - (spec: 0 vm::t vm::t) - (spec: 0 remf remf) - (spec: 0 condvar::t condvar::t) - (spec: 0 hash-clear! hash-clear!) - (spec: 0 source-location-path? source-location-path?) - (spec: 0 display-as-string display-as-string) - (spec: 0 string-index string-index) - (spec: 0 agetq agetq) - (spec: 0 hash-merge! hash-merge!) - (spec: 0 hvector? hvector?) - (spec: 0 interface-descriptor-methods interface-descriptor-methods) - (spec: 0 list->hash-table list->hash-table) - (spec: 0 class-type-fields class-type-fields) - (spec: 0 return::t return::t) - (spec: 0 class-type? class-type?) - (spec: 0 make-hash-table make-hash-table) - (spec: 0 sequence? sequence?) - (spec: 0 string-port? string-port?) - (spec: 0 make-syntax-error make-syntax-error) - (spec: 0 substring->bytes substring->bytes) - (spec: 0 error-trace error-trace) - (spec: 0 thread-group::t thread-group::t) - (spec: 0 object::t object::t) - (spec: 0 bound-method-ref bound-method-ref) - (spec: 0 plist->hash-table-immediate plist->hash-table-immediate) - (spec: 0 &class-type-name &class-type-name) - (spec: 0 read-u8vector read-u8vector) + (spec: 0 class-type-slot-list class-type-slot-list) + (spec: 0 thread-local-ref thread-local-ref) + (spec: 0 gerbil-greeting gerbil-greeting) + (spec: 0 hash-fold hash-fold) + (spec: 0 stflonum::t stflonum::t) + (spec: 0 seal-class! seal-class!) + (spec: 0 actor-thread? actor-thread?) (spec: 0 make-class-slot-accessor make-class-slot-accessor) - (spec: 0 set-load-path! set-load-path!) - (spec: 0 make-hash-table-immediate make-hash-table-immediate) - (spec: 0 frame::t frame::t) - (spec: 0 struct-instance? struct-instance?) - (spec: 0 symbolic-table-ref symbolic-table-ref) - (spec: 0 u16vector::t u16vector::t) - (spec: 0 hash->plist hash->plist) - (spec: 0 procedure::t procedure::t) - (spec: 0 void? void?) - (spec: 0 class-instance-init! class-instance-init!) - (spec: 0 is-hash-table? is-hash-table?) - (spec: 0 class-type-properties class-type-properties) - (spec: 0 reload-module! reload-module!) - (spec: 0 create-directory* create-directory*) - (spec: 0 displayln displayln) - (spec: 0 agetv agetv) - (spec: 0 event-queue-port::t event-queue-port::t) - (spec: 0 true::t true::t) - (spec: 0 flonum::t flonum::t) + (spec: 0 device-port::t device-port::t) + (spec: 0 key::t key::t) + (spec: 0 interface-descriptor? interface-descriptor?) + (spec: 0 try-cast try-cast) (spec: 0 plist->hash-table-symbolic plist->hash-table-symbolic) - (spec: 0 class-type-flags class-type-flags) - (spec: 0 &class-type-precedence-list &class-type-precedence-list) - (spec: 0 raw-device-port::t raw-device-port::t) - (spec: 0 list->hash-table-eqv list->hash-table-eqv) + (spec: 0 hvector? hvector?) + (spec: 0 &class-type-super &class-type-super) + (spec: 0 call-next-method call-next-method) + (spec: 0 hash-clear! hash-clear!) + (spec: 0 bind-specializer! bind-specializer!) + (spec: 0 special::t special::t) + (spec: 0 make-promise make-promise) + (spec: 0 make-interface-descriptor make-interface-descriptor) + (spec: 0 void? void?) + (spec: 0 readenv? readenv?) + (spec: 0 dssl-optional-object? dssl-optional-object?) + (spec: 0 u8vector-port? u8vector-port?) + (spec: 0 list->hash-table-immediate list->hash-table-immediate) + (spec: 0 class-type-metaclass? class-type-metaclass?) + (spec: 0 gerbil-home gerbil-home) + (spec: 0 structure::t structure::t) + (spec: 0 string->bytes string->bytes) + (spec: 0 dssl-key? dssl-key?) + (spec: 0 hash-merge-right! hash-merge-right!) + (spec: 0 address-info::t address-info::t) (spec: 0 make-class-slot-unchecked-accessor make-class-slot-unchecked-accessor) - (spec: 0 remv remv) - (spec: 0 eof::t eof::t) - (spec: 0 make-hash-table-symbolic make-hash-table-symbolic) - (spec: 0 hash-copy hash-copy) - (spec: 0 pair::t pair::t) - (spec: 0 hash-remove! hash-remove!) - (spec: 0 promise::t promise::t) - (spec: 0 thread-local-get thread-local-get) - (spec: 0 class-of class-of) - (spec: 0 u64vector::t u64vector::t) - (spec: 0 gerbil-path gerbil-path) - (spec: 0 class-type-seal! class-type-seal!) - (spec: 0 weak::t weak::t) - (spec: 0 dssl-key-object? dssl-key-object?) - (spec: 0 string-split string-split) + (spec: 0 vector::t vector::t) + (spec: 0 direct-instance? direct-instance?) + (spec: 0 keyword-dispatch keyword-dispatch) + (spec: 0 thread-group::t thread-group::t) + (spec: 0 interface-instance-object interface-instance-object) + (spec: 0 gerbil-version-string gerbil-version-string) + (spec: 0 struct-copy struct-copy) + (spec: 0 &class-type-fields &class-type-fields) + (spec: 0 fx=0? fx=0?) + (spec: 0 hash-find hash-find) + (spec: 0 file-info::t file-info::t) + (spec: 0 remove1 remove1) + (spec: 0 with-lock with-lock) + (spec: 0 create-directory* create-directory*) + (spec: 0 list->hash-table-symbolic list->hash-table-symbolic) + (spec: 0 plist->hash-table-eqv plist->hash-table-eqv) + (spec: 0 class::t class::t) + (spec: 0 gerbil-system-version-string gerbil-system-version-string) (spec: 0 new-instance new-instance) - (spec: 0 build-manifest-set! build-manifest-set!) - (spec: 0 interface-descriptor? interface-descriptor?) + (spec: 0 struct->list struct->list) + (spec: 0 fx<=0? fx<=0?) + (spec: 0 dssl-token? dssl-token?) + (spec: 0 slot-ref slot-ref) + (spec: 0 bind-method! bind-method!) + (spec: 0 s32vector::t s32vector::t) + (spec: 0 hash-copy hash-copy) + (spec: 0 unchecked-slot-set! unchecked-slot-set!) + (spec: 0 cpxnum::t cpxnum::t) + (spec: 0 true::t true::t) + (spec: 0 plist->hash-table-eq plist->hash-table-eq) + (spec: 0 class-type? class-type?) + (spec: 0 class-type-sealed? class-type-sealed?) + (spec: 0 class-type-flags class-type-flags) + (spec: 0 object::t object::t) + (spec: 0 &class-type-slot-vector &class-type-slot-vector) + (spec: 0 string-rindex string-rindex) + (spec: 0 checked-bound-method-ref checked-bound-method-ref) + (spec: 0 build-manifest-string build-manifest-string) + (spec: 0 false false) + (spec: 0 display-exception display-exception) + (spec: 0 assgetv assgetv) + (spec: 0 hash-merge hash-merge) + (spec: 0 spawn/group spawn/group) + (spec: 0 eq-hash eq-hash) + (spec: 0 u16vector::t u16vector::t) + (spec: 0 condvar::t condvar::t) + (spec: 0 thread-local-delete! thread-local-delete!) + (spec: 0 symbolic::t symbolic::t) + (spec: 0 symbol::t symbol::t) + (spec: 0 class-type class-type) + (spec: 0 fx>0? fx>0?) + (spec: 0 struct-instance-init! struct-instance-init!) + (spec: 0 call-method call-method) + (spec: 0 file-newer? file-newer?) + (spec: 0 hash-values hash-values) + (spec: 0 return::t return::t) + (spec: 0 with-exception-stack-trace with-exception-stack-trace) + (spec: 0 unbound2::t unbound2::t) + (spec: 0 list->hash-table-eqv list->hash-table-eqv) + (spec: 0 plist->hash-table-immediate plist->hash-table-immediate) (spec: 0 class-type-id class-type-id) - (spec: 0 &class-type-properties &class-type-properties) - (spec: 0 error error) - (spec: 0 list->hash-table-string list->hash-table-string) - (spec: 0 device-port::t device-port::t) - (spec: 0 f32vector::t f32vector::t) - (spec: 0 symbolic? symbolic?) + (spec: 0 &class-type-precedence-list &class-type-precedence-list) (spec: 0 fx1+ fx1+) - (spec: 0 HashTableLock::t HashTableLock::t) + (spec: 0 string-index string-index) + (spec: 0 atom::t atom::t) + (spec: 0 f64vector::t f64vector::t) + (spec: 0 error? error?) + (spec: 0 hash-merge-right hash-merge-right) + (spec: 0 spawn spawn) + (spec: 0 read-syntax read-syntax) + (spec: 0 display-build-manifest display-build-manifest) + (spec: 0 values-ref values-ref) + (spec: 0 writenv? writenv?) + (spec: 0 character-port::t character-port::t) + (spec: 0 fixnum::t fixnum::t) + (spec: 0 sequence? sequence?) + (spec: 0 exception? exception?) + (spec: 0 make-atomic-promise make-atomic-promise) + (spec: 0 max-char-code max-char-code) + (spec: 0 1+ 1+) + (spec: 0 gerbil-system-manifest gerbil-system-manifest) + (spec: 0 object-class object-class) + (spec: 0 class-instance-init! class-instance-init!) + (spec: 0 &class-type-properties &class-type-properties) + (spec: 0 dssl-rest? dssl-rest?) + (spec: 0 fx<0? fx<0?) (spec: 0 bignum::t bignum::t) - (spec: 0 u8vector-port? u8vector-port?) - (spec: 0 gerbil-runtime-smp? gerbil-runtime-smp?) - (spec: 0 keyword->symbol keyword->symbol) - (spec: 0 c4-linearize c4-linearize) - (spec: 0 class-type-slot-list class-type-slot-list) - (spec: 0 s16vector::t s16vector::t) - (spec: 0 spawn/name spawn/name) - (spec: 0 try-cast try-cast) - (spec: 0 fx=0? fx=0?) - (spec: 0 values-count values-count) - (spec: 0 port::t port::t) - (spec: 0 class-type-metaclass? class-type-metaclass?) - (spec: 0 &class-type-slot-table &class-type-slot-table) - (spec: 0 writeenv::t writeenv::t) - (spec: 0 readenv? readenv?) - (spec: 0 interface-instance-object interface-instance-object) - (spec: 0 slot-set! slot-set!) - (spec: 0 list-modules list-modules) - (spec: 0 false::t false::t) - (spec: 0 assgetq assgetq) - (spec: 0 hash-fold hash-fold) - (spec: 0 fx<0? fx<0?) - (spec: 0 pgetq pgetq) (spec: 0 hash-update! hash-update!) - (spec: 0 thread-local-set! thread-local-set!) - (spec: 0 gerbil-system gerbil-system) - (spec: 0 udp-port::t udp-port::t) - (spec: 0 keyword-rest keyword-rest) - (spec: 0 with-dynamic-lock with-dynamic-lock) - (spec: 0 s64vector::t s64vector::t) - (spec: 0 dssl-optional-object? dssl-optional-object?) - (spec: 0 directory-port? directory-port?) - (spec: 0 raise raise) - (spec: 0 make-symbol make-symbol) - (spec: 0 assgetv assgetv) - (spec: 0 hash-length hash-length) - (spec: 0 filter-map filter-map) - (spec: 0 &class-type-fields &class-type-fields) - (spec: 0 gerbil-system-manifest gerbil-system-manifest) - (spec: 0 udp-port? udp-port?) - (spec: 0 class-type-constructor class-type-constructor) - (spec: 0 keyword::t keyword::t) - (spec: 0 with-exception-stack-trace with-exception-stack-trace) - (spec: 0 with-exception-handler with-exception-handler) - (spec: - 0 - datum-parsing-exception-filepos - datum-parsing-exception-filepos) - (spec: 0 s8vector::t s8vector::t) - (spec: 0 dssl-rest-object? dssl-rest-object?) - (spec: 0 spawn/group spawn/group) - (spec: 0 method-ref method-ref) + (spec: 0 event-queue-port? event-queue-port?) + (spec: 0 make-hash-table-immediate make-hash-table-immediate) + (spec: 0 AST? AST?) + (spec: 0 procedure::t procedure::t) + (spec: 0 class-type=? class-type=?) + (spec: 0 tcp-server-port::t tcp-server-port::t) (spec: 0 symbol->keyword symbol->keyword) - (spec: 0 build-manifest-string build-manifest-string) - (spec: 0 fxshift fxshift) - (spec: 0 interface-instance? interface-instance?) - (spec: 0 load-path load-path) - (spec: 0 readenv::t readenv::t) + (spec: 0 immediate-hash immediate-hash) + (spec: 0 build-manifest-set! build-manifest-set!) + (spec: 0 foldl foldl) + (spec: 0 assgetq assgetq) + (spec: 0 hash-get hash-get) + (spec: 0 reload-module! reload-module!) + (spec: 0 dump-stack-trace? dump-stack-trace?) + (spec: 0 AST-e AST-e) + (spec: 0 plist->hash-table plist->hash-table) + (spec: 0 class-of class-of) + (spec: 0 object-port::t object-port::t) + (spec: 0 make-keyword make-keyword) + (spec: 0 make-hash-table-symbolic make-hash-table-symbolic) + (spec: 0 directory-port? directory-port?) + (spec: 0 weak::t weak::t) (spec: 0 continuation::t continuation::t) - (spec: 0 string-hash string-hash) - (spec: 0 display* display*) - (spec: 0 add-load-path! add-load-path!) - (spec: 0 atom::t atom::t) - (spec: 0 table::t table::t) - (spec: 0 hash-merge hash-merge) - (spec: 0 thread::t thread::t) - (spec: 0 eof-object eof-object) - (spec: 0 gerbil-version-string gerbil-version-string) - (spec: 0 &class-type-flags &class-type-flags) - (spec: 0 hash-values hash-values) - (spec: 0 class-type-field-count class-type-field-count) - (spec: 0 class-type=? class-type=?) - (spec: 0 seal-class! seal-class!) - (spec: 0 foldr foldr) - (spec: 0 vector-port? vector-port?) - (spec: 0 interned-keyword? interned-keyword?) - (spec: 0 class-type-methods class-type-methods) - (spec: 0 error-object? error-object?) + (spec: 0 udp-port::t udp-port::t) + (spec: 0 make-AST make-AST) + (spec: 0 pgetv pgetv) + (spec: 0 optional::t optional::t) + (spec: 0 substring->bytes substring->bytes) + (spec: 0 frame::t frame::t) + (spec: 0 make-syntax-error make-syntax-error) + (spec: 0 special? special?) + (spec: 0 error-trace error-trace) + (spec: 0 make-hash-table make-hash-table) + (spec: 0 absent-value absent-value) + (spec: 0 make-class-type make-class-type) + (spec: 0 directory-port::t directory-port::t) (spec: 0 readtable::t readtable::t) - (spec: 0 display-build-manifest display-build-manifest) + (spec: 0 with-catch with-catch) + (spec: 0 unbound-key-error? unbound-key-error?) + (spec: 0 keyword::t keyword::t) + (spec: 0 t::t t::t) + (spec: 0 class-type-fields class-type-fields) + (spec: 0 thread::t thread::t) + (spec: 0 interface-instance::t interface-instance::t) + (spec: 0 &class-type-name &class-type-name) + (spec: 0 source-location-path? source-location-path?) (spec: 0 aget aget) - (spec: 0 make-interface-descriptor make-interface-descriptor) - (spec: 0 make-symbolic-table make-symbolic-table) - (spec: 0 hash-merge-right hash-merge-right) - (spec: 0 plist->hash-table plist->hash-table) - (spec: 0 &class-type-id &class-type-id) - (spec: 0 integer::t integer::t) - (spec: 0 cast cast) - (spec: 0 with-unwind-protect with-unwind-protect) - (spec: 0 read-syntax read-syntax) - (spec: 0 class::t class::t) - (spec: 0 dump-stack-trace? dump-stack-trace?) - (spec: 0 make-hash-table-eq make-hash-table-eq) - (spec: 0 special::t special::t) - (spec: 0 string::t string::t) - (spec: 0 symbol::t symbol::t) - (spec: 0 build-manifest/layer build-manifest/layer) - (spec: 0 number::t number::t) - (spec: 0 checked-method-ref checked-method-ref) + (spec: 0 rest::t rest::t) + (spec: 0 writeenv::t writeenv::t) + (spec: 0 with-exception-catcher with-exception-catcher) + (spec: 0 values->list values->list) + (spec: 0 dump-stack-trace! dump-stack-trace!) + (spec: 0 list::t list::t) + (spec: 0 gerbil-path gerbil-path) (spec: 0 ormap ormap) - (spec: 0 gerbil-greeting gerbil-greeting) - (spec: 0 class-type-name class-type-name) + (spec: 0 class->list class->list) (spec: 0 immediate::t immediate::t) + (spec: 0 byte-port::t byte-port::t) + (spec: 0 make-hash-table-eqv make-hash-table-eqv) (spec: 0 real::t real::t) - (spec: 0 source-location-path source-location-path) - (spec: 0 string-join string-join) - (spec: 0 error-irritants error-irritants) - (spec: 0 find-method find-method) - (spec: 0 tcp-server-port? tcp-server-port?) + (spec: 0 void::t void::t) + (spec: 0 u8vector-port::t u8vector-port::t) + (spec: 0 dssl-optional? dssl-optional?) + (spec: 0 class-type-slot-table class-type-slot-table) + (spec: 0 class-type-final? class-type-final?) + (spec: 0 symbolic-table-delete! symbolic-table-delete!) + (spec: 0 gerbil-greeting-set! gerbil-greeting-set!) + (spec: 0 number::t number::t) + (spec: 0 &class-type-id &class-type-id) + (spec: 0 boolean::t boolean::t) + (spec: 0 &interface-instance-object &interface-instance-object) + (spec: 0 hash-for-each hash-for-each) + (spec: 0 as-string as-string) + (spec: 0 s64vector::t s64vector::t) + (spec: 0 replx replx) + (spec: 0 device-port? device-port?) + (spec: 0 load-path load-path) + (spec: 0 raise-unbound-key-error raise-unbound-key-error) + (spec: 0 true? true?) + (spec: 0 class-type-constructor class-type-constructor) + (spec: 0 call-with-parameters call-with-parameters) + (spec: 0 fxshift fxshift) + (spec: 0 spawn/name spawn/name) + (spec: 0 make-object make-object) + (spec: 0 u8vector::t u8vector::t) + (spec: 0 list->hash-table-string list->hash-table-string) + (spec: 0 thread-local-set! thread-local-set!) + (spec: 0 class-type-slot-vector class-type-slot-vector) + (spec: 0 symbolic-table-ref symbolic-table-ref) + (spec: 0 nonnegative-fixnum? nonnegative-fixnum?) + (spec: 0 gerbil-load-expander! gerbil-load-expander!) + (spec: 0 HashTableLock::t HashTableLock::t) (spec: 0 hash-put! hash-put!) - (spec: 0 object-port? object-port?) - (spec: 0 hvector::t hvector::t) - (spec: 0 plist->hash-table-eq plist->hash-table-eq) - (spec: 0 unchecked-slot-set! unchecked-slot-set!) - (spec: 0 make-promise make-promise) - (spec: 0 character-port::t character-port::t) - (spec: 0 sequence::t sequence::t) - (spec: 0 byte-port? byte-port?) - (spec: 0 struct-copy struct-copy) - (spec: 0 absent-obj absent-obj) - (spec: 0 object-fill! object-fill!) - (spec: 0 gerbil-home gerbil-home) - (spec: 0 vm? vm?) - (spec: 0 class-type-precedence-list class-type-precedence-list) - (spec: 0 source-location? source-location?) - (spec: 0 u64vector? u64vector?) - (spec: 0 module-whitelist-reset! module-whitelist-reset!) - (spec: 0 file-exists-exception? file-exists-exception?) - (spec: 0 udp-read-subu8vector udp-read-subu8vector) - (spec: 0 readtable-comment-handler-set readtable-comment-handler-set) - (spec: 0 filter filter) + (spec: 0 build-manifest/layer build-manifest/layer) + (spec: 0 foreign::t foreign::t) + (spec: 0 make-class-predicate make-class-predicate) (spec: 0 - uninitialized-thread-exception-arguments - uninitialized-thread-exception-arguments) - (spec: 0 delete! delete!) + unhandled-actor-exception-hook-set! + unhandled-actor-exception-hook-set!) + (spec: 0 direct-method-ref direct-method-ref) + (spec: 0 ratnum::t ratnum::t) + (spec: 0 constructor-init! constructor-init!) + (spec: 0 string-split string-split) + (spec: 0 class-type-field-count class-type-field-count) + (spec: 0 hvector::t hvector::t) + (spec: 0 hash->plist hash->plist) + (spec: 0 byte-port? byte-port?) + (spec: 0 satisfies? satisfies?) + (spec: 0 readenv::t readenv::t) + (spec: 0 dssl-object? dssl-object?) + (spec: 0 current-thread-group current-thread-group) + (spec: 0 list-modules list-modules) + (spec: 0 pair::t pair::t) + (spec: 0 &class-type-slot-table &class-type-slot-table) + (spec: 0 string-port::t string-port::t) + (spec: 0 make-instance make-instance) + (spec: 0 add-load-path! add-load-path!) + (spec: 0 read-u8vector read-u8vector) + (spec: 0 vector-port? vector-port?) + (spec: 0 make-class-slot-mutator make-class-slot-mutator) + (spec: 0 promise::t promise::t) + (spec: 0 keyword->symbol keyword->symbol) (spec: 0 - join-timeout-exception-procedure - join-timeout-exception-procedure) - (spec: 0 remq remq) - (spec: 0 call-with-output-u8vector call-with-output-u8vector) - (spec: 0 flcos flcos) + readtable-sharing-allowed?-set + readtable-sharing-allowed?-set) + (spec: 0 table? table?) (spec: 0 - not-in-compilation-context-exception? - not-in-compilation-context-exception?) - (spec: 0 foreign-released? foreign-released?) - (spec: 0 open-udp open-udp) - (spec: 0 repl-result-history-ref repl-result-history-ref) - (spec: 0 dotted-list? dotted-list?) - (spec: 0 keyword-expected-exception? keyword-expected-exception?) - (spec: 0 fxlength fxlength) + no-such-file-or-directory-exception-arguments + no-such-file-or-directory-exception-arguments) (spec: 0 - terminated-thread-exception-arguments - terminated-thread-exception-arguments) - (spec: 0 third third) - (spec: 0 thread-resume! thread-resume!) - (spec: 0 time time) - (spec: 0 s32vector-ref s32vector-ref) - (spec: 0 char-set-intersection! char-set-intersection!) + unbound-os-environment-variable-exception-arguments + unbound-os-environment-variable-exception-arguments) (spec: 0 - permission-denied-exception-procedure - permission-denied-exception-procedure) - (spec: 0 abort abort) - (spec: 0 string-ci=?-hash string-ci=?-hash) - (spec: 0 s8vector-length s8vector-length) - (spec: - 0 - tty-paren-balance-duration-set! - tty-paren-balance-duration-set!) - (spec: 0 string-suffix? string-suffix?) - (spec: 0 u64vector->list u64vector->list) - (spec: 0 user-info user-info) - (spec: 0 write-file-string write-file-string) - (spec: 0 atanh atanh) - (spec: 0 u8vector-set u8vector-set) - (spec: 0 create-symbolic-link create-symbolic-link) - (spec: 0 protocol-info protocol-info) - (spec: 0 subf64vector-fill! subf64vector-fill!) - (spec: 0 file-info? file-info?) - (spec: 0 subvector-fill! subvector-fill!) - (spec: 0 create-fifo create-fifo) - (spec: - 0 - inactive-thread-exception-procedure - inactive-thread-exception-procedure) - (spec: 0 random-source-make-f64vectors random-source-make-f64vectors) + initialized-thread-exception-procedure + initialized-thread-exception-procedure) + (spec: 0 file-info-inode file-info-inode) + (spec: 0 mutex-name mutex-name) + (spec: 0 subvector subvector) + (spec: 0 sfun-conversion-exception? sfun-conversion-exception?) + (spec: 0 bitwise-andc1 bitwise-andc1) + (spec: 0 f64vector-copy f64vector-copy) + (spec: 0 concatenate! concatenate!) + (spec: 0 host-info-name host-info-name) + (spec: 0 subf32vector-fill! subf32vector-fill!) + (spec: 0 group-info-name group-info-name) + (spec: 0 with-output-to-port with-output-to-port) + (spec: 0 poll-point poll-point) + (spec: 0 circular-list? circular-list?) + (spec: 0 group-info group-info) + (spec: 0 every every) + (spec: 0 vector-swap! vector-swap!) + (spec: 0 fxwrap+ fxwrap+) + (spec: 0 s16vector-set! s16vector-set!) (spec: 0 - nonempty-input-port-character-buffer-exception-procedure - nonempty-input-port-character-buffer-exception-procedure) - (spec: 0 fl/ fl/) + thread-state-running-processor + thread-state-running-processor) + (spec: 0 char-set-count char-set-count) + (spec: 0 fx> fx>) + (spec: 0 os-exception-code os-exception-code) + (spec: 0 thread-group-suspend! thread-group-suspend!) + (spec: 0 flsquare flsquare) (spec: 0 - unbound-os-environment-variable-exception-procedure - unbound-os-environment-variable-exception-procedure) - (spec: 0 input-port-bytes-buffered input-port-bytes-buffered) - (spec: 0 flmin flmin) - (spec: 0 thread-group-terminate! thread-group-terminate!) - (spec: 0 readtable-start-syntax readtable-start-syntax) - (spec: 0 s16vector-shrink! s16vector-shrink!) - (spec: 0 thread-state-running? thread-state-running?) - (spec: 0 flsin flsin) - (spec: 0 list->char-set! list->char-set!) - (spec: 0 s64vector-ref s64vector-ref) - (spec: 0 char-set-complement! char-set-complement!) - (spec: 0 fx< fx<) - (spec: 0 vector-set vector-set) - (spec: 0 all-bits-set? all-bits-set?) - (spec: 0 script-file script-file) - (spec: 0 u16vector->list u16vector->list) - (spec: 0 fxremainder fxremainder) - (spec: 0 with-input-from-u8vector with-input-from-u8vector) - (spec: 0 extract-bit-field extract-bit-field) - (spec: 0 service-info? service-info?) - (spec: 0 subu16vector subu16vector) - (spec: 0 bit-count bit-count) - (spec: 0 f32vector-shrink! f32vector-shrink!) - (spec: 0 copy-bit-field copy-bit-field) - (spec: 0 file-group file-group) - (spec: 0 udp-source-socket-info udp-source-socket-info) - (spec: 0 readtable-eval-allowed?-set readtable-eval-allowed?-set) + cfun-conversion-exception-message + cfun-conversion-exception-message) + (spec: 0 open-directory open-directory) + (spec: 0 flnan? flnan?) + (spec: 0 fleven? fleven?) + (spec: 0 input-port-readtable input-port-readtable) + (spec: 0 system-type system-type) + (spec: 0 udp-write-subu8vector udp-write-subu8vector) + (spec: 0 network-info-name network-info-name) + (spec: 0 range-exception-arguments range-exception-arguments) + (spec: 0 current-directory current-directory) + (spec: 0 module-not-found-exception? module-not-found-exception?) + (spec: 0 file-info file-info) + (spec: 0 subs8vector-fill! subs8vector-fill!) + (spec: 0 conjugate conjugate) + (spec: 0 u32vector-append u32vector-append) + (spec: 0 make-tls-context make-tls-context) + (spec: 0 bit-field-clear bit-field-clear) + (spec: 0 service-info service-info) + (spec: 0 scheduler-exception-reason scheduler-exception-reason) + (spec: 0 u16vector-append u16vector-append) + (spec: 0 s8vector-append s8vector-append) + (spec: 0 tty-type-set! tty-type-set!) (spec: 0 - uninitialized-thread-exception? - uninitialized-thread-exception?) - (spec: 0 repl-backtrace-detail-level repl-backtrace-detail-level) - (spec: 0 terminated-thread-exception? terminated-thread-exception?) - (spec: 0 fldenominator fldenominator) - (spec: 0 not-pair? not-pair?) - (spec: 0 thread thread) - (spec: 0 open-vector-pipe open-vector-pipe) - (spec: 0 split-at! split-at!) - (spec: 0 drop-right drop-right) - (spec: 0 keyword? keyword?) - (spec: 0 thread-sleep! thread-sleep!) - (spec: 0 user-info-home user-info-home) - (spec: 0 vector-fold-right vector-fold-right) - (spec: 0 char-set-ref char-set-ref) - (spec: 0 fxmin fxmin) - (spec: 0 time? time?) - (spec: 0 s32vector-set! s32vector-set!) - (spec: 0 tty-text-attributes-set! tty-text-attributes-set!) - (spec: 0 process-times process-times) - (spec: 0 write-file-u8vector write-file-u8vector) - (spec: 0 configure-command-string configure-command-string) - (spec: 0 s8vector-ref s8vector-ref) - (spec: 0 make-bitwise-generator make-bitwise-generator) - (spec: 0 f32vector->list f32vector->list) - (spec: 0 u64vector-concatenate u64vector-concatenate) - (spec: 0 protocol-info-name protocol-info-name) - (spec: 0 subs16vector subs16vector) + wrong-number-of-values-exception? + wrong-number-of-values-exception?) + (spec: 0 list->u32vector list->u32vector) + (spec: 0 s32vector-copy s32vector-copy) + (spec: 0 vector-every vector-every) + (spec: 0 output-port-width output-port-width) + (spec: 0 fxior fxior) + (spec: 0 char-set-intersection char-set-intersection) (spec: 0 - wrong-number-of-values-exception-rte - wrong-number-of-values-exception-rte) + length-mismatch-exception-arg-id + length-mismatch-exception-arg-id) (spec: 0 - file-last-access-and-modification-times-set! - file-last-access-and-modification-times-set!) - (spec: 0 bitwise-fold bitwise-fold) - (spec: 0 default-random-source default-random-source) - (spec: 0 random-source-make-reals random-source-make-reals) - (spec: 0 fl<= fl<=) + rpc-remote-error-exception-message + rpc-remote-error-exception-message) + (spec: 0 thread-specific thread-specific) + (spec: 0 foreign-release! foreign-release!) + (spec: 0 open-output-vector open-output-vector) + (spec: 0 repl-error-port repl-error-port) + (spec: 0 drop-right! drop-right!) + (spec: 0 tcp-service-unregister! tcp-service-unregister!) (spec: 0 - input-port-characters-buffered - input-port-characters-buffered) - (spec: 0 flnegative? flnegative?) - (spec: 0 object->string object->string) + display-continuation-environment + display-continuation-environment) (spec: 0 - cfun-conversion-exception-code - cfun-conversion-exception-code) + invalid-utf8-encoding-exception-procedure + invalid-utf8-encoding-exception-procedure) (spec: 0 - readtable-write-cdr-read-macros? - readtable-write-cdr-read-macros?) - (spec: 0 take! take!) - (spec: 0 thread-state-uninitialized? thread-state-uninitialized?) - (spec: 0 flsqrt flsqrt) - (spec: 0 char-set-copy char-set-copy) - (spec: 0 err-code->string err-code->string) - (spec: 0 list->f64vector list->f64vector) - (spec: 0 s16vector? s16vector?) - (spec: 0 fx= fx=) - (spec: 0 output-port-byte-position output-port-byte-position) - (spec: 0 touch touch) - (spec: 0 s64vector-set! s64vector-set!) - (spec: 0 u16vector-concatenate u16vector-concatenate) - (spec: 0 fxwrap* fxwrap*) - (spec: 0 circular-list circular-list) - (spec: 0 path-extension path-extension) - (spec: 0 step-level-set! step-level-set!) - (spec: 0 make-s16vector make-s16vector) - (spec: 0 second second) - (spec: 0 bit-field-any? bit-field-any?) - (spec: 0 vector-shrink! vector-shrink!) - (spec: 0 u32vector->list u32vector->list) - (spec: 0 host-info-addresses host-info-addresses) - (spec: 0 subu16vector-move! subu16vector-move!) - (spec: 0 f32vector? f32vector?) - (spec: 0 make-will make-will) - (spec: 0 set-box! set-box!) - (spec: 0 multiple-c-return-exception? multiple-c-return-exception?) - (spec: 0 first first) + readtable-max-unescaped-char-set + readtable-max-unescaped-char-set) + (spec: 0 take take) + (spec: 0 thread-base-priority thread-base-priority) (spec: 0 - initialized-thread-exception-procedure - initialized-thread-exception-procedure) - (spec: 0 table-copy table-copy) - (spec: 0 u8vector u8vector) - (spec: 0 call/cc call/cc) - (spec: 0 flexp flexp) - (spec: 0 udp-write-u8vector udp-write-u8vector) - (spec: 0 test-bit-field? test-bit-field?) + unbound-os-environment-variable-exception? + unbound-os-environment-variable-exception?) + (spec: 0 fl< fl<) (spec: 0 - readtable-keywords-allowed?-set - readtable-keywords-allowed?-set) - (spec: 0 uninterned-keyword? uninterned-keyword?) - (spec: 0 user-info-shell user-info-shell) - (spec: 0 thread-base-priority-set! thread-base-priority-set!) - (spec: 0 fourth fourth) + no-such-file-or-directory-exception? + no-such-file-or-directory-exception?) + (spec: 0 u8vector-ref u8vector-ref) + (spec: 0 file-inode file-inode) + (spec: 0 mutex-specific-set! mutex-specific-set!) + (spec: 0 r7rs-raise-continuable r7rs-raise-continuable) + (spec: 0 create-link create-link) + (spec: 0 subvector-move! subvector-move!) + (spec: 0 seventh seventh) + (spec: 0 bitwise-eqv bitwise-eqv) + (spec: 0 f64vector? f64vector?) + (spec: 0 host-name host-name) + (spec: 0 processor-id processor-id) + (spec: 0 string-suffix-ci? string-suffix-ci?) + (spec: 0 subf64vector subf64vector) + (spec: 0 u64vector u64vector) + (spec: 0 with-input-from-port with-input-from-port) + (spec: 0 group-info-members group-info-members) (spec: 0 - started-thread-exception-procedure - started-thread-exception-procedure) - (spec: 0 vector-inc! vector-inc!) - (spec: 0 thread-specific-set! thread-specific-set!) - (spec: 0 char-set-unfold char-set-unfold) - (spec: 0 fxnand fxnand) - (spec: 0 string-contains string-contains) - (spec: 0 will-execute! will-execute!) - (spec: 0 s32vector-swap! s32vector-swap!) - (spec: 0 timeout->time timeout->time) - (spec: 0 gensym gensym) - (spec: 0 conjugate conjugate) - (spec: 0 make-condition-variable make-condition-variable) - (spec: 0 f32vector-concatenate f32vector-concatenate) - (spec: 0 protocol-info? protocol-info?) - (spec: 0 s8vector-set! s8vector-set!) - (spec: 0 current-directory current-directory) - (spec: 0 subs16vector-move! subs16vector-move!) - (spec: 0 tty? tty?) - (spec: 0 bitwise-if bitwise-if) - (spec: 0 u64vector-copy! u64vector-copy!) - (spec: 0 defer-user-interrupts defer-user-interrupts) - (spec: 0 input-port-line input-port-line) + wrong-number-of-arguments-exception? + wrong-number-of-arguments-exception?) + (spec: 0 s64vector-append s64vector-append) + (spec: 0 list= list=) + (spec: 0 fxwrapabs fxwrapabs) + (spec: 0 path-strip-directory path-strip-directory) + (spec: 0 eqv?-hash eqv?-hash) + (spec: 0 s16vector-copy! s16vector-copy!) + (spec: 0 fxabs fxabs) + (spec: 0 char-set-adjoin! char-set-adjoin!) + (spec: 0 output-port-line output-port-line) + (spec: 0 last last) + (spec: 0 thread-group? thread-group?) + (spec: 0 open-output-bytevector open-output-bytevector) + (spec: 0 fltanh fltanh) + (spec: 0 object->u8vector object->u8vector) + (spec: 0 flnumerator flnumerator) + (spec: 0 uncaught-exception? uncaught-exception?) + (spec: 0 flexpm1 flexpm1) + (spec: 0 read-file-u8vector read-file-u8vector) + (spec: 0 input-port-timeout-set! input-port-timeout-set!) + (spec: 0 system-version system-version) + (spec: 0 udp-local-socket-info udp-local-socket-info) + (spec: 0 first-set-bit first-set-bit) + (spec: 0 current-time current-time) + (spec: 0 random-source-state-set! random-source-state-set!) + (spec: 0 u64vector-set! u64vector-set!) + (spec: 0 file-info-creation-time file-info-creation-time) + (spec: 0 bitwise-unfold bitwise-unfold) + (spec: 0 continuation-return continuation-return) + (spec: 0 compile-file-to-target compile-file-to-target) + (spec: 0 service-info-name service-info-name) + (spec: 0 f64vector->list f64vector->list) + (spec: 0 u16vector-swap! u16vector-swap!) + (spec: 0 make-s32vector make-s32vector) + (spec: 0 asinh asinh) + (spec: 0 f32vector f32vector) + (spec: 0 s8vector-copy s8vector-copy) + (spec: 0 apropos apropos) + (spec: 0 tty-history-max-length-set! tty-history-max-length-set!) + (spec: 0 permission-denied-exception? permission-denied-exception?) + (spec: 0 string->uninterned-symbol string->uninterned-symbol) + (spec: 0 s32vector-fill! s32vector-fill!) + (spec: 0 list-sort list-sort) + (spec: 0 fxmax fxmax) + (spec: 0 char-set-every char-set-every) + (spec: 0 end-of-char-set? end-of-char-set?) + (spec: 0 rpc-remote-error-exception? rpc-remote-error-exception?) + (spec: 0 thread-quantum thread-quantum) + (spec: 0 foreign-tags foreign-tags) + (spec: 0 open-vector open-vector) + (spec: 0 repl-input-port repl-input-port) + (spec: 0 socket-info-family socket-info-family) + (spec: 0 thread-priority-set! thread-priority-set!) + (spec: 0 tcp-client-self-socket-info tcp-client-self-socket-info) (spec: 0 - random-source-pseudo-randomize! - random-source-pseudo-randomize!) - (spec: 0 u8vector-shrink! u8vector-shrink!) + join-timeout-exception-arguments + join-timeout-exception-arguments) + (spec: 0 display-exception-in-context display-exception-in-context) (spec: 0 - nonprocedure-operator-exception-arguments - nonprocedure-operator-exception-arguments) - (spec: 0 file-last-change-time file-last-change-time) + readtable-max-write-length-set + readtable-max-write-length-set) + (spec: 0 table-merge! table-merge!) (spec: 0 - unbound-serial-number-exception-procedure - unbound-serial-number-exception-procedure) + unbound-key-exception-arguments + unbound-key-exception-arguments) + (spec: 0 fl= fl=) (spec: 0 - wrong-number-of-values-exception? - wrong-number-of-values-exception?) - (spec: 0 fl> fl>) + default-user-interrupt-handler + default-user-interrupt-handler) + (spec: 0 input-port-column input-port-column) + (spec: 0 file-last-access-time file-last-access-time) + (spec: 0 break break) + (spec: 0 create-temporary-directory create-temporary-directory) + (spec: 0 raise raise) + (spec: 0 subu64vector-move! subu64vector-move!) (spec: 0 - cfun-conversion-exception-procedure - cfun-conversion-exception-procedure) - (spec: 0 fltan fltan) + sfun-conversion-exception-arguments + sfun-conversion-exception-arguments) + (spec: 0 bits bits) + (spec: 0 u32vector-set! u32vector-set!) (spec: 0 - readtable-write-extended-read-macros? - readtable-write-extended-read-macros?) + wrong-number-of-values-exception-code + wrong-number-of-values-exception-code) + (spec: 0 string-prefix-length-ci string-prefix-length-ci) + (spec: 0 with-input-from-string with-input-from-string) + (spec: 0 getenv getenv) + (spec: 0 s64vector-copy s64vector-copy) + (spec: 0 address-info? address-info?) + (spec: 0 string->keyword string->keyword) + (spec: 0 fxquotient fxquotient) (spec: 0 - unterminated-process-exception-arguments - unterminated-process-exception-arguments) - (spec: 0 thread-interrupt! thread-interrupt!) - (spec: 0 char-set-cursor char-set-cursor) - (spec: 0 fx>= fx>=) - (spec: 0 open-input-vector open-input-vector) - (spec: 0 list->s32vector list->s32vector) - (spec: 0 thread-state-waiting-for thread-state-waiting-for) - (spec: 0 fxwrap- fxwrap-) - (spec: 0 output-port-column output-port-column) - (spec: 0 s64vector-swap! s64vector-swap!) - (spec: 0 clear-bit-field clear-bit-field) - (spec: 0 group-info-gid group-info-gid) - (spec: 0 vector-unfold vector-unfold) - (spec: 0 any any) - (spec: 0 make-s64vector make-s64vector) - (spec: 0 bit-field-every? bit-field-every?) - (spec: 0 f64vector f64vector) - (spec: 0 u16vector-copy! u16vector-copy!) - (spec: 0 concatenate! concatenate!) - (spec: 0 host-info-name host-info-name) - (spec: 0 subu32vector-fill! subu32vector-fill!) - (spec: 0 with-output-to-process with-output-to-process) - (spec: 0 file-info-attributes file-info-attributes) - (spec: 0 u32vector-concatenate u32vector-concatenate) - (spec: 0 r7rs-raise-continuable r7rs-raise-continuable) - (spec: 0 subu64vector subu64vector) + path-strip-trailing-directory-separator + path-strip-trailing-directory-separator) + (spec: 0 list->s16vector list->s16vector) + (spec: 0 error error) + (spec: 0 output-port-readtable output-port-readtable) + (spec: 0 char-set-complement char-set-complement) + (spec: 0 fx- fx-) + (spec: 0 s16vector-length s16vector-length) + (spec: 0 thread-group-parent thread-group-parent) + (spec: 0 flscalbn flscalbn) + (spec: 0 open-output-process open-output-process) + (spec: 0 sixth sixth) + (spec: 0 fllog fllog) + (spec: 0 call-with-output-string call-with-output-string) + (spec: 0 flceiling flceiling) + (spec: 0 delete delete) + (spec: 0 integer-sqrt integer-sqrt) + (spec: 0 random-u8vector random-u8vector) + (spec: 0 mutex-lock! mutex-lock!) (spec: 0 - datum-parsing-exception-parameters - datum-parsing-exception-parameters) - (spec: 0 u8vector->object u8vector->object) - (spec: 0 flexpt flexpt) - (spec: 0 null-list? null-list?) + file-exists-exception-procedure + file-exists-exception-procedure) + (spec: 0 subs64vector subs64vector) + (spec: 0 u64vector-swap! u64vector-swap!) + (spec: 0 f32vector-set! f32vector-set!) + (spec: 0 expression-parsing-exception? expression-parsing-exception?) + (spec: 0 make-s8vector make-s8vector) + (spec: 0 make-f64vector make-f64vector) + (spec: 0 s8vector? s8vector?) + (spec: 0 tty-mode-set! tty-mode-set!) + (spec: 0 string-concatenate string-concatenate) + (spec: 0 char-set-filter! char-set-filter!) + (spec: 0 list-tabulate list-tabulate) + (spec: 0 abandoned-mutex-exception? abandoned-mutex-exception?) + (spec: 0 vector-concatenate vector-concatenate) + (spec: 0 fxeqv fxeqv) (spec: 0 - readtable-max-unescaped-char-set - readtable-max-unescaped-char-set) - (spec: 0 table-length table-length) - (spec: 0 user-info? user-info?) - (spec: 0 char-set char-set) - (spec: 0 list-sort! list-sort!) - (spec: 0 char-set-union char-set-union) - (spec: 0 fxnor fxnor) - (spec: 0 s16vector->list s16vector->list) - (spec: 0 thread-state thread-state) - (spec: 0 executable-path executable-path) - (spec: 0 make-f32vector make-f32vector) - (spec: 0 will? will?) - (spec: 0 cons* cons*) - (spec: 0 s8vector-swap! s8vector-swap!) - (spec: 0 subs32vector-fill! subs32vector-fill!) - (spec: 0 make-thread make-thread) - (spec: 0 f32vector-copy! f32vector-copy!) - (spec: 0 current-exception-handler current-exception-handler) - (spec: 0 random-source-state-set! random-source-state-set!) - (spec: 0 symbol-hash symbol-hash) - (spec: 0 u64vector-length u64vector-length) - (spec: 0 bitwise-merge bitwise-merge) - (spec: 0 u8vector? u8vector?) - (spec: 0 input-port-readtable input-port-readtable) - (spec: 0 read-file-string read-file-string) + started-thread-exception-arguments + started-thread-exception-arguments) + (spec: 0 s16vector-append s16vector-append) + (spec: 0 thread-receive thread-receive) + (spec: 0 force-output force-output) + (spec: 0 join-timeout-exception? join-timeout-exception?) + (spec: 0 rename-file rename-file) (spec: 0 - wrong-processor-c-return-exception? - wrong-processor-c-return-exception?) - (spec: 0 file-mode file-mode) - (spec: 0 unbox unbox) - (spec: 0 readtable? readtable?) - (spec: 0 flabs flabs) + readtable-write-extended-read-macros?-set + readtable-write-extended-read-macros?-set) + (spec: 0 table-search table-search) (spec: 0 - nonprocedure-operator-exception-operator - nonprocedure-operator-exception-operator) - (spec: 0 fltruncate fltruncate) + nonprocedure-operator-exception-code + nonprocedure-operator-exception-code) + (spec: 0 fl+ fl+) + (spec: 0 unbound-key-exception? unbound-key-exception?) + (spec: 0 file-info-owner file-info-owner) + (spec: 0 bits->vector bits->vector) + (spec: 0 random-source-randomize! random-source-randomize!) + (spec: 0 subu8vector-fill! subu8vector-fill!) + (spec: 0 u32vector-swap! u32vector-swap!) + (spec: 0 f64vector-set f64vector-set) + (spec: 0 protocol-info-number protocol-info-number) + (spec: 0 arithmetic-shift arithmetic-shift) + (spec: 0 condition-variable-signal! condition-variable-signal!) + (spec: 0 host-info host-info) + (spec: 0 process-status process-status) + (spec: 0 string-prefix-length string-prefix-length) + (spec: 0 s64vector? s64vector?) + (spec: 0 path-expand path-expand) + (spec: 0 fxsquare fxsquare) + (spec: 0 char-set-diff+intersection! char-set-diff+intersection!) + (spec: 0 eq?-hash eq?-hash) + (spec: 0 list->s64vector list->s64vector) (spec: 0 - unterminated-process-exception? - unterminated-process-exception?) - (spec: 0 display-procedure-environment display-procedure-environment) + thread-state-normally-terminated? + thread-state-normally-terminated?) + (spec: 0 fx<= fx<=) + (spec: 0 thread-group-specific thread-group-specific) + (spec: 0 open-input-process open-input-process) + (spec: 0 flsinh flsinh) + (spec: 0 untrace untrace) (spec: 0 - thread-mailbox-extract-and-rewind - thread-mailbox-extract-and-rewind) - (spec: 0 char-set-delete char-set-delete) - (spec: 0 fxand fxand) - (spec: 0 s32vector s32vector) - (spec: 0 thread-state-waiting? thread-state-waiting?) - (spec: 0 fxwraparithmetic-shift fxwraparithmetic-shift) - (spec: 0 path-strip-extension path-strip-extension) - (spec: 0 error-exception-parameters error-exception-parameters) - (spec: 0 list->s8vector list->s8vector) - (spec: 0 group-info-name group-info-name) - (spec: 0 pretty-print pretty-print) - (spec: 0 string->char-set! string->char-set!) - (spec: 0 any-bits-set? any-bits-set?) - (spec: 0 serial-number->object serial-number->object) - (spec: 0 f64vector-append f64vector-append) - (spec: 0 bit-field-replace-same bit-field-replace-same) - (spec: 0 u16vector-length u16vector-length) - (spec: 0 processor-id processor-id) - (spec: 0 host-name host-name) - (spec: 0 string=?-hash string=?-hash) - (spec: 0 file-info-device file-info-device) - (spec: 0 with-output-to-u8vector with-output-to-u8vector) - (spec: 0 bitwise-nand bitwise-nand) - (spec: 0 fifth fifth) - (spec: 0 u32vector-copy! u32vector-copy!) - (spec: 0 ucs-range->char-set ucs-range->char-set) - (spec: 0 read-substring read-substring) - (spec: 0 file-number-of-links file-number-of-links) - (spec: 0 unbreak unbreak) - (spec: 0 iota iota) - (spec: - 0 - nonprocedure-operator-exception-rte - nonprocedure-operator-exception-rte) - (spec: 0 flacos flacos) - (spec: 0 socket-info-address socket-info-address) - (spec: 0 untrace untrace) - (spec: 0 thread-mailbox-next thread-mailbox-next) - (spec: 0 fxarithmetic-shift-right fxarithmetic-shift-right) - (spec: 0 char-set-difference! char-set-difference!) - (spec: 0 vector-any vector-any) - (spec: 0 thread-suspend! thread-suspend!) - (spec: 0 fxxor fxxor) - (spec: 0 string->uninterned-keyword string->uninterned-keyword) - (spec: 0 error-exception? error-exception?) - (spec: 0 s32vector->list s32vector->list) - (spec: 0 primordial-exception-handler primordial-exception-handler) - (spec: 0 string-prefix? string-prefix?) - (spec: 0 bit-swap bit-swap) - (spec: 0 f64vector-length f64vector-length) - (spec: 0 u32vector-set u32vector-set) - (spec: 0 processor? processor?) - (spec: 0 write-substring write-substring) - (spec: - 0 - file-info-last-modification-time - file-info-last-modification-time) - (spec: 0 mutex-state mutex-state) - (spec: 0 u8vector-fill! u8vector-fill!) - (spec: 0 cosh cosh) - (spec: 0 r7rs-raise r7rs-raise) - (spec: 0 subu32vector-move! subu32vector-move!) - (spec: - 0 - no-such-file-or-directory-exception-procedure - no-such-file-or-directory-exception-procedure) - (spec: - 0 - fixnum-overflow-exception-arguments - fixnum-overflow-exception-arguments) - (spec: 0 datum-parsing-exception-kind datum-parsing-exception-kind) - (spec: 0 initialized-thread-exception? initialized-thread-exception?) - (spec: 0 u8vector-copy u8vector-copy) - (spec: 0 flhypot flhypot) + unknown-keyword-argument-exception-procedure + unknown-keyword-argument-exception-procedure) + (spec: 0 flcosh flcosh) + (spec: 0 readtable-eval-allowed? readtable-eval-allowed?) (spec: 0 unbound-global-exception-variable unbound-global-exception-variable) - (spec: 0 readtable-max-unescaped-char readtable-max-unescaped-char) - (spec: 0 table-for-each table-for-each) - (spec: - 0 - unknown-keyword-argument-exception-procedure - unknown-keyword-argument-exception-procedure) - (spec: 0 flonum? flonum?) - (spec: 0 user-info-uid user-info-uid) - (spec: 0 s16vector-copy s16vector-copy) - (spec: 0 thread-group->thread-list thread-group->thread-list) + (spec: 0 filter! filter!) + (spec: 0 box? box?) + (spec: 0 current-processor current-processor) + (spec: 0 initial-current-directory initial-current-directory) + (spec: 0 link-flat link-flat) + (spec: 0 u8vector-copy u8vector-copy) + (spec: 0 bit-field-set bit-field-set) + (spec: 0 subs64vector-move! subs64vector-move!) + (spec: 0 xcons xcons) + (spec: 0 f32vector-swap! f32vector-swap!) + (spec: 0 type-exception-procedure type-exception-procedure) (spec: 0 address-info-protocol address-info-protocol) - (spec: 0 every-bit-set? every-bit-set?) + (spec: 0 string-contains-ci string-contains-ci) + (spec: 0 fxfirst-set-bit fxfirst-set-bit) (spec: 0 char-set-unfold! char-set-unfold!) - (spec: 0 fxnegative? fxnegative?) (spec: 0 s64vector->list s64vector->list) - (spec: 0 arithmetic-shift arithmetic-shift) + (spec: 0 will-testator will-testator) (spec: 0 started-thread-exception? started-thread-exception?) (spec: 0 thread-state-abnormally-terminated? thread-state-abnormally-terminated?) - (spec: 0 will-testator will-testator) - (spec: 0 string-contains-ci string-contains-ci) - (spec: 0 subs64vector-fill! subs64vector-fill!) - (spec: 0 type-exception-procedure type-exception-procedure) - (spec: 0 make-table make-table) - (spec: 0 f32vector-copy f32vector-copy) - (spec: 0 u64vector-fill! u64vector-fill!) - (spec: 0 file-creation-time file-creation-time) - (spec: 0 bitwise-not bitwise-not) - (spec: 0 current-readtable current-readtable) - (spec: - 0 - module-not-found-exception-procedure - module-not-found-exception-procedure) - (spec: 0 shell-command shell-command) - (spec: 0 system-stamp system-stamp) - (spec: 0 network-info-aliases network-info-aliases) - (spec: 0 tcp-server-socket-info tcp-server-socket-info) - (spec: 0 call-with-input-string call-with-input-string) - (spec: 0 uncaught-exception-arguments uncaught-exception-arguments) - (spec: 0 open-string open-string) - (spec: 0 socket-info-port-number socket-info-port-number) - (spec: - 0 - divide-by-zero-exception-procedure - divide-by-zero-exception-procedure) - (spec: 0 fxbit-set? fxbit-set?) - (spec: 0 vector-cas! vector-cas!) - (spec: - 0 - rpc-remote-error-exception-arguments - rpc-remote-error-exception-arguments) - (spec: 0 char-set-filter char-set-filter) - (spec: 0 thread-name thread-name) - (spec: 0 list->u16vector list->u16vector) - (spec: 0 s32vector-concatenate s32vector-concatenate) - (spec: 0 println println) - (spec: 0 heap-overflow-exception? heap-overflow-exception?) - (spec: 0 string-set string-set) - (spec: 0 append-reverse append-reverse) - (spec: 0 s8vector->list s8vector->list) - (spec: 0 thread-thread-group thread-thread-group) - (spec: 0 f64vector-ref f64vector-ref) + (spec: 0 s16vector-copy s16vector-copy) + (spec: 0 user-info-uid user-info-uid) + (spec: 0 open-tcp-server open-tcp-server) + (spec: 0 flmax flmax) + (spec: 0 keyword-hash keyword-hash) + (spec: 0 drop drop) + (spec: 0 flcos flcos) + (spec: 0 object->string object->string) + (spec: 0 thread-group->thread-list thread-group->thread-list) (spec: 0 - sfun-conversion-exception-code - sfun-conversion-exception-code) - (spec: 0 u32vector-shrink! u32vector-shrink!) - (spec: 0 bits->list bits->list) - (spec: 0 file-info-number-of-links file-info-number-of-links) - (spec: 0 condition-variable-name condition-variable-name) - (spec: 0 mutex? mutex?) - (spec: 0 r7rs-with-exception-handler r7rs-with-exception-handler) - (spec: 0 subu64vector-fill! subu64vector-fill!) - (spec: 0 fixnum-overflow-exception? fixnum-overflow-exception?) - (spec: 0 u8vector-length u8vector-length) + unknown-keyword-argument-exception-arguments + unknown-keyword-argument-exception-arguments) + (spec: 0 filter filter) (spec: 0 - datum-parsing-exception-readenv - datum-parsing-exception-readenv) - (spec: 0 flinfinite? flinfinite?) + not-in-compilation-context-exception? + not-in-compilation-context-exception?) (spec: 0 - number-of-arguments-limit-exception-arguments - number-of-arguments-limit-exception-arguments) - (spec: 0 readtable-max-write-length readtable-max-write-length) - (spec: 0 table-merge table-merge) - (spec: 0 thread-group-name thread-group-name) - (spec: 0 s16vector-fill! s16vector-fill!) - (spec: 0 thread-state-initialized? thread-state-initialized?) - (spec: 0 char-set->list char-set->list) - (spec: 0 os-exception-arguments os-exception-arguments) - (spec: 0 user-name user-name) - (spec: 0 address-info-socket-type address-info-socket-type) - (spec: 0 s64vector-concatenate s64vector-concatenate) - (spec: 0 fxnot fxnot) - (spec: 0 char-set-union! char-set-union!) + readtable-keywords-allowed?-set + readtable-keywords-allowed?-set) + (spec: 0 table-copy table-copy) + (spec: 0 unbound-global-exception-rte unbound-global-exception-rte) + (spec: 0 box box) + (spec: 0 file-exists-exception? file-exists-exception?) + (spec: 0 current-thread current-thread) + (spec: 0 u8vector-concatenate u8vector-concatenate) + (spec: 0 module-whitelist-reset! module-whitelist-reset!) + (spec: 0 bit-field-rotate bit-field-rotate) + (spec: 0 f32vector-shrink! f32vector-shrink!) + (spec: 0 continuation-graft continuation-graft) + (spec: 0 subu32vector-fill! subu32vector-fill!) + (spec: 0 setenv setenv) + (spec: 0 u32vector-length u32vector-length) + (spec: 0 second second) + (spec: 0 make-s16vector make-s16vector) + (spec: 0 type-exception-arguments type-exception-arguments) + (spec: 0 u16vector-set! u16vector-set!) + (spec: 0 address-info-family address-info-family) + (spec: 0 with-exception-handler with-exception-handler) + (spec: 0 fxodd? fxodd?) + (spec: 0 char-set-xor char-set-xor) (spec: 0 - expression-parsing-exception-kind - expression-parsing-exception-kind) - (spec: 0 make-mutex make-mutex) - (spec: 0 scheduler-exception? scheduler-exception?) - (spec: 0 type-exception? type-exception?) - (spec: 0 with-exception-catcher with-exception-catcher) - (spec: 0 subs8vector subs8vector) - (spec: 0 f32vector-fill! f32vector-fill!) - (spec: 0 make-thread-group make-thread-group) - (spec: 0 u16vector-set u16vector-set) - (spec: 0 range-exception-arg-id range-exception-arg-id) - (spec: 0 u64vector-set u64vector-set) - (spec: 0 current-thread current-thread) - (spec: 0 system-type-string system-type-string) - (spec: 0 bitwise-orc2 bitwise-orc2) - (spec: 0 file-type file-type) - (spec: 0 network-info-number network-info-number) - (spec: 0 tcp-service-register! tcp-service-register!) - (spec: 0 flasinh flasinh) - (spec: 0 uncaught-exception-reason uncaught-exception-reason) + permission-denied-exception-procedure + permission-denied-exception-procedure) + (spec: 0 s64vector s64vector) + (spec: 0 string-ci=?-hash string-ci=?-hash) + (spec: 0 char-set->string char-set->string) (spec: 0 - display-continuation-dynamic-environment - display-continuation-dynamic-environment) - (spec: 0 open-tcp-client open-tcp-client) - (spec: 0 call-with-input-vector call-with-input-vector) - (spec: 0 keyword->string keyword->string) - (spec: 0 repl-highlight-source-level repl-highlight-source-level) + thread-state-abnormally-terminated-reason + thread-state-abnormally-terminated-reason) + (spec: 0 s16vector-concatenate s16vector-concatenate) + (spec: 0 dotted-list? dotted-list?) + (spec: 0 open-udp open-udp) (spec: 0 - length-mismatch-exception-arguments - length-mismatch-exception-arguments) + thread-group->thread-group-vector + thread-group->thread-group-vector) + (spec: 0 keyword-expected-exception? keyword-expected-exception?) + (spec: 0 flilogb flilogb) + (spec: 0 remove remove) + (spec: 0 call-with-input-u8vector call-with-input-u8vector) + (spec: 0 flasin flasin) + (spec: 0 deadlock-exception? deadlock-exception?) (spec: 0 - rpc-remote-error-exception-procedure - rpc-remote-error-exception-procedure) - (spec: 0 fxeven? fxeven?) - (spec: 0 char-set-fold char-set-fold) - (spec: 0 thread-priority-boost-set! thread-priority-boost-set!) - (spec: 0 list->u64vector list->u64vector) - (spec: 0 thread? thread?) - (spec: 0 s32vector-copy! s32vector-copy!) - (spec: 0 char-set<= char-set<=) - (spec: 0 string-shrink! string-shrink!) + invalid-hash-number-exception? + invalid-hash-number-exception?) + (spec: 0 readtable? readtable?) + (spec: 0 file-size file-size) + (spec: 0 uncaught-exception-procedure uncaught-exception-procedure) + (spec: 0 read-file-string read-file-string) + (spec: 0 udp-destination-set! udp-destination-set!) + (spec: 0 bitwise-orc1 bitwise-orc1) + (spec: 0 file-device file-device) + (spec: 0 condition-variable-specific condition-variable-specific) + (spec: 0 u64vector-ref u64vector-ref) + (spec: 0 f32vector-length f32vector-length) + (spec: 0 protocol-info? protocol-info?) + (spec: 0 identity identity) + (spec: 0 subs16vector-move! subs16vector-move!) + (spec: 0 string=?-hash string=?-hash) + (spec: 0 append-reverse! append-reverse!) + (spec: 0 path-extension path-extension) + (spec: 0 fxwrapsquare fxwrapsquare) + (spec: 0 s64vector-set! s64vector-set!) + (spec: 0 fxarithmetic-shift-left fxarithmetic-shift-left) + (spec: 0 char-set-difference char-set-difference) + (spec: 0 output-port-byte-position output-port-byte-position) + (spec: 0 list->f64vector list->f64vector) + (spec: 0 s16vector? s16vector?) + (spec: 0 step-level-set! step-level-set!) + (spec: 0 fold-right fold-right) + (spec: 0 thread-priority-boost thread-priority-boost) + (spec: 0 divide-by-zero-exception? divide-by-zero-exception?) + (spec: 0 thread-yield! thread-yield!) + (spec: 0 directory-files directory-files) + (spec: 0 not-pair? not-pair?) (spec: 0 - mailbox-receive-timeout-exception-arguments - mailbox-receive-timeout-exception-arguments) - (spec: 0 s8vector-concatenate s8vector-concatenate) - (spec: 0 help-browser help-browser) - (spec: 0 command-args command-args) + unterminated-process-exception-arguments + unterminated-process-exception-arguments) (spec: 0 - sfun-conversion-exception-procedure - sfun-conversion-exception-procedure) - (spec: 0 subf32vector subf32vector) - (spec: 0 proper-list? proper-list?) - (spec: 0 tty-history tty-history) - (spec: 0 f64vector-set! f64vector-set!) - (spec: 0 bitwise-and bitwise-and) - (spec: 0 identity identity) - (spec: 0 condition-variable-specific condition-variable-specific) - (spec: 0 random-f64vector random-f64vector) - (spec: 0 subu8vector subu8vector) - (spec: 0 noncontinuable-exception? noncontinuable-exception?) - (spec: 0 fl* fl*) - (spec: 0 u32vector? u32vector?) + unknown-keyword-argument-exception? + unknown-keyword-argument-exception?) (spec: 0 - unbound-key-exception-procedure - unbound-key-exception-procedure) + fixnum-overflow-exception-procedure + fixnum-overflow-exception-procedure) + (spec: 0 table-length table-length) + (spec: 0 integer-nth-root integer-nth-root) (spec: 0 - number-of-arguments-limit-exception? - number-of-arguments-limit-exception?) - (spec: 0 dead-end dead-end) + datum-parsing-exception-parameters + datum-parsing-exception-parameters) (spec: 0 - invalid-hash-number-exception-arguments - invalid-hash-number-exception-arguments) - (spec: 0 readtable-max-write-level readtable-max-write-level) - (spec: 0 table-ref table-ref) - (spec: 0 thread-group-resume! thread-group-resume!) - (spec: 0 open-dummy open-dummy) + readtable-case-conversion?-set + readtable-case-conversion?-set) + (spec: 0 file-info-last-change-time file-info-last-change-time) + (spec: 0 unbound-global-exception? unbound-global-exception?) + (spec: 0 make-will make-will) + (spec: 0 bit-set? bit-set?) + (spec: 0 f64vector-fill! f64vector-fill!) + (spec: 0 subu64vector subu64vector) + (spec: 0 u8vector-copy! u8vector-copy!) + (spec: 0 u32vector-ref u32vector-ref) + (spec: 0 make-bitwise-generator make-bitwise-generator) + (spec: 0 set-box! set-box!) + (spec: 0 u16vector-copy! u16vector-copy!) + (spec: 0 get-output-u8vector get-output-u8vector) (spec: 0 - thread-state-normally-terminated-result - thread-state-normally-terminated-result) - (spec: 0 os-exception-message os-exception-message) - (spec: 0 s64vector-copy! s64vector-copy!) - (spec: 0 char-set-adjoin char-set-adjoin) - (spec: 0 fxorc1 fxorc1) - (spec: 0 partition partition) - (spec: 0 address-infos address-infos) + port-io-exception-handler-set! + port-io-exception-handler-set!) + (spec: 0 s8vector-ref s8vector-ref) + (spec: 0 address-info-socket-info address-info-socket-info) + (spec: 0 type-exception-type-id type-exception-type-id) + (spec: 0 partition! partition!) + (spec: 0 char-set-ref char-set-ref) + (spec: 0 fxorc2 fxorc2) + (spec: 0 s32vector-set! s32vector-set!) + (spec: 0 vector-fold-right vector-fold-right) + (spec: 0 os-exception-procedure os-exception-procedure) + (spec: 0 fx* fx*) + (spec: 0 keyword? keyword?) + (spec: 0 open-event-queue open-event-queue) + (spec: 0 flpositive? flpositive?) + (spec: 0 split-at! split-at!) (spec: 0 - expression-parsing-exception-source - expression-parsing-exception-source) - (spec: 0 char-set-xor! char-set-xor!) - (spec: 0 top top) - (spec: 0 subs8vector-move! subs8vector-move!) - (spec: 0 make-u16vector make-u16vector) - (spec: 0 service-info-aliases service-info-aliases) - (spec: 0 continuation-graft continuation-graft) - (spec: 0 range-exception-procedure range-exception-procedure) - (spec: 0 u16vector-shrink! u16vector-shrink!) - (spec: 0 module-search-order-reset! module-search-order-reset!) - (spec: 0 u64vector-shrink! u64vector-shrink!) + number-of-arguments-limit-exception-procedure + number-of-arguments-limit-exception-procedure) + (spec: 0 flinteger? flinteger?) + (spec: 0 call/cc call/cc) + (spec: 0 flatan flatan) + (spec: 0 remq remq) + (spec: 0 readtable-start-syntax readtable-start-syntax) + (spec: 0 input-port-bytes-buffered input-port-bytes-buffered) + (spec: 0 tcp-client-peer-socket-info tcp-client-peer-socket-info) + (spec: 0 network-info? network-info?) (spec: 0 - current-user-interrupt-handler - current-user-interrupt-handler) - (spec: 0 system-version-string system-version-string) - (spec: 0 bitwise-xor bitwise-xor) + terminated-thread-exception-arguments + terminated-thread-exception-arguments) + (spec: 0 thread-group->thread-vector thread-group->thread-vector) + (spec: 0 current-exception-handler current-exception-handler) (spec: 0 - file-exists-exception-arguments - file-exists-exception-arguments) - (spec: 0 integer-nth-root integer-nth-root) + inactive-thread-exception-procedure + inactive-thread-exception-procedure) + (spec: 0 u8vector-shrink! u8vector-shrink!) + (spec: 0 module-search-order-add! module-search-order-add!) + (spec: 0 bitwise-if bitwise-if) + (spec: 0 random-source-make-f64vectors random-source-make-f64vectors) + (spec: 0 cons* cons*) + (spec: 0 symbol-hash symbol-hash) + (spec: 0 make-u32vector make-u32vector) + (spec: 0 f32vector-ref f32vector-ref) + (spec: 0 subs32vector-fill! subs32vector-fill!) + (spec: 0 u64vector-concatenate u64vector-concatenate) (spec: 0 - readtable-case-conversion?-set - readtable-case-conversion?-set) - (spec: 0 tenth tenth) + expression-parsing-exception-parameters + expression-parsing-exception-parameters) + (spec: 0 string-suffix? string-suffix?) (spec: 0 - not-in-compilation-context-exception-arguments - not-in-compilation-context-exception-arguments) - (spec: 0 display-exception display-exception) - (spec: 0 remove remove) - (spec: 0 flatanh flatanh) - (spec: 0 call-with-output-process call-with-output-process) + mailbox-receive-timeout-exception-procedure + mailbox-receive-timeout-exception-procedure) + (spec: 0 any any) (spec: 0 - keyword-expected-exception-arguments - keyword-expected-exception-arguments) - (spec: 0 foreign-address foreign-address) - (spec: 0 open-u8vector open-u8vector) - (spec: 0 repl-output-port repl-output-port) - (spec: 0 length-mismatch-exception? length-mismatch-exception?) - (spec: 0 thread-quantum-set! thread-quantum-set!) - (spec: 0 char-set-hash char-set-hash) - (spec: 0 fxif fxif) - (spec: 0 vector-cumulate vector-cumulate) - (spec: 0 s32vector-length s32vector-length) - (spec: 0 char-set? char-set?) - (spec: 0 gc-report-set! gc-report-set!) - (spec: 0 string-suffix-length string-suffix-length) - (spec: 0 s8vector-copy! s8vector-copy!) + unbound-serial-number-exception-procedure + unbound-serial-number-exception-procedure) + (spec: 0 fxzero? fxzero?) + (spec: 0 user-info-home user-info-home) + (spec: 0 list->u8vector list->u8vector) + (spec: 0 s64vector-swap! s64vector-swap!) + (spec: 0 with-output-to-process with-output-to-process) + (spec: 0 vector-unfold vector-unfold) + (spec: 0 char-set-cursor char-set-cursor) + (spec: 0 fxbit-count fxbit-count) (spec: 0 - mailbox-receive-timeout-exception? - mailbox-receive-timeout-exception?) - (spec: 0 command-name command-name) - (spec: 0 tty-history-set! tty-history-set!) - (spec: 0 subf32vector-move! subf32vector-move!) - (spec: 0 bitwise-andc2 bitwise-andc2) - (spec: 0 f64vector-swap! f64vector-swap!) + length-mismatch-exception-procedure + length-mismatch-exception-procedure) + (spec: 0 thread-state-waiting-for thread-state-waiting-for) + (spec: 0 write-subu8vector write-subu8vector) + (spec: 0 open-process open-process) (spec: 0 - wrong-number-of-arguments-exception-procedure - wrong-number-of-arguments-exception-procedure) - (spec: 0 condition-variable? condition-variable?) - (spec: 0 random-real random-real) - (spec: 0 subu8vector-move! subu8vector-move!) - (spec: 0 file-info-size file-info-size) - (spec: 0 fl+* fl+*) - (spec: 0 deadlock-exception? deadlock-exception?) - (spec: 0 readtable-sharing-allowed? readtable-sharing-allowed?) - (spec: 0 fllog1p fllog1p) - (spec: 0 last-pair last-pair) - (spec: 0 table-set! table-set!) + cfun-conversion-exception-procedure + cfun-conversion-exception-procedure) + (spec: 0 thread-interrupt! thread-interrupt!) (spec: 0 - invalid-hash-number-exception? - invalid-hash-number-exception?) - (spec: 0 open-file open-file) - (spec: 0 thread-group-specific-set! thread-group-specific-set!) - (spec: 0 s16vector-set s16vector-set) - (spec: 0 list->bits list->bits) - (spec: 0 flround flround) - (spec: 0 os-exception? os-exception?) - (spec: 0 s64vector-length s64vector-length) - (spec: 0 char-set-any char-set-any) - (spec: 0 fx+ fx+) - (spec: 0 make-random-source make-random-source) - (spec: 0 fxpositive? fxpositive?) - (spec: 0 with-input-from-process with-input-from-process) - (spec: 0 substring-fill! substring-fill!) - (spec: 0 get-output-vector get-output-vector) - (spec: 0 make-u64vector make-u64vector) - (spec: 0 continuation? continuation?) - (spec: 0 service-info-port-number service-info-port-number) - (spec: 0 u16vector? u16vector?) - (spec: 0 f32vector-set f32vector-set) - (spec: 0 file-info-type file-info-type) + wrong-processor-c-return-exception? + wrong-processor-c-return-exception?) (spec: 0 - unbound-os-environment-variable-exception-arguments - unbound-os-environment-variable-exception-arguments) + unterminated-process-exception? + unterminated-process-exception?) + (spec: 0 uninterned-keyword? uninterned-keyword?) + (spec: 0 fixnum? fixnum?) (spec: 0 - default-user-interrupt-handler - default-user-interrupt-handler) - (spec: 0 random-source-make-u8vectors random-source-make-u8vectors) + noncontinuable-exception-reason + noncontinuable-exception-reason) + (spec: 0 readtable-comment-handler-set readtable-comment-handler-set) + (spec: 0 datum-parsing-exception? datum-parsing-exception?) + (spec: 0 mutex-unlock! mutex-unlock!) + (spec: 0 file-info-mode file-info-mode) + (spec: 0 udp-write-u8vector udp-write-u8vector) + (spec: 0 cpu-time cpu-time) + (spec: 0 u8vector u8vector) + (spec: 0 bit-field-every? bit-field-every?) + (spec: 0 subu16vector subu16vector) + (spec: 0 condition-variable-broadcast! condition-variable-broadcast!) + (spec: 0 s8vector-set! s8vector-set!) + (spec: 0 u32vector-concatenate u32vector-concatenate) + (spec: 0 port-settings-set! port-settings-set!) + (spec: 0 gensym gensym) + (spec: 0 tty? tty?) + (spec: 0 s32vector-swap! s32vector-swap!) + (spec: 0 u16vector-length u16vector-length) + (spec: 0 will-execute! will-execute!) + (spec: 0 path-directory path-directory) + (spec: 0 char-set-unfold char-set-unfold) + (spec: 0 fxnand fxnand) + (spec: 0 timeout->time timeout->time) + (spec: 0 vector-inc! vector-inc!) + (spec: 0 fourth fourth) + (spec: 0 thread-specific-set! thread-specific-set!) + (spec: 0 user-info-shell user-info-shell) (spec: 0 - nonempty-input-port-character-buffer-exception-arguments - nonempty-input-port-character-buffer-exception-arguments) - (spec: 0 fl- fl-) - (spec: 0 input-port-column input-port-column) - (spec: 0 flmax flmax) - (spec: 0 thread-group-suspend! thread-group-suspend!) + readtable-write-cdr-read-macros? + readtable-write-cdr-read-macros?) + (spec: 0 flexpt flexpt) + (spec: 0 thread-base-priority-set! thread-base-priority-set!) + (spec: 0 terminated-thread-exception? terminated-thread-exception?) (spec: 0 - cfun-conversion-exception-message - cfun-conversion-exception-message) + not-in-compilation-context-exception-procedure + not-in-compilation-context-exception-procedure) + (spec: 0 flabs flabs) + (spec: 0 take! take!) + (spec: 0 unbox unbox) + (spec: 0 file-mode file-mode) + (spec: 0 random-source-make-reals random-source-make-reals) + (spec: 0 module-whitelist-add! module-whitelist-add!) + (spec: 0 bitwise-merge bitwise-merge) + (spec: 0 sinh sinh) + (spec: 0 console-port console-port) + (spec: 0 protocol-info protocol-info) + (spec: 0 u64vector-copy! u64vector-copy!) + (spec: 0 f32vector-concatenate f32vector-concatenate) + (spec: 0 make-u8vector make-u8vector) + (spec: 0 service-info-protocol service-info-protocol) + (spec: 0 executable-path executable-path) + (spec: 0 subf64vector-fill! subf64vector-fill!) + (spec: 0 main main) + (spec: 0 any-bits-set? any-bits-set?) + (spec: 0 s8vector-fill! s8vector-fill!) + (spec: 0 u8vector? u8vector?) + (spec: 0 fxwraparithmetic-shift fxwraparithmetic-shift) + (spec: 0 with-output-to-u8vector with-output-to-u8vector) + (spec: 0 error-exception-parameters error-exception-parameters) + (spec: 0 thread-priority thread-priority) + (spec: 0 write-file-u8vector write-file-u8vector) + (spec: 0 fxand fxand) + (spec: 0 char-set-delete char-set-delete) + (spec: 0 thread-state-waiting? thread-state-waiting?) + (spec: 0 link-incremental link-incremental) + (spec: 0 fltruncate fltruncate) + (spec: 0 open-string-pipe open-string-pipe) + (spec: 0 display-procedure-environment display-procedure-environment) (spec: 0 - readtable-write-cdr-read-macros?-set - readtable-write-cdr-read-macros?-set) - (spec: 0 take-right take-right) - (spec: 0 eighth eighth) - (spec: 0 s16vector-set! s16vector-set!) - (spec: 0 flsquare flsquare) - (spec: 0 char-set-count char-set-count) - (spec: 0 open-input-u8vector open-input-u8vector) - (spec: 0 list->char-set list->char-set) - (spec: 0 equal?-hash equal?-hash) - (spec: 0 fx> fx>) - (spec: 0 output-port-char-position output-port-char-position) + keyword-expected-exception-procedure + keyword-expected-exception-procedure) (spec: 0 - thread-state-running-processor - thread-state-running-processor) - (spec: 0 vector-swap! vector-swap!) - (spec: 0 u16vector u16vector) - (spec: 0 script-directory script-directory) - (spec: 0 circular-list? circular-list?) - (spec: 0 fxwrap+ fxwrap+) - (spec: 0 path-normalize path-normalize) - (spec: 0 with-output-to-port with-output-to-port) - (spec: 0 group-info group-info) - (spec: 0 bit-field-clear bit-field-clear) - (spec: 0 pp pp) - (spec: 0 u32vector-append u32vector-append) - (spec: 0 substring-move! substring-move!) - (spec: 0 current-time current-time) - (spec: 0 range-exception? range-exception?) - (spec: 0 system-version system-version) - (spec: 0 udp-read-u8vector udp-read-u8vector) - (spec: 0 readtable-case-conversion? readtable-case-conversion?) - (spec: 0 integer-length integer-length) - (spec: 0 tcp-service-unregister! tcp-service-unregister!) - (spec: 0 filter! filter!) + repl-result-history-max-length-set! + repl-result-history-max-length-set!) + (spec: 0 socket-info? socket-info?) + (spec: + 0 + thread-mailbox-extract-and-rewind + thread-mailbox-extract-and-rewind) + (spec: + 0 + invalid-hash-number-exception-procedure + invalid-hash-number-exception-procedure) + (spec: 0 readtable-max-write-level-set readtable-max-write-level-set) + (spec: 0 read-all read-all) + (spec: 0 u8vector->object u8vector->object) + (spec: 0 file-info-device file-info-device) + (spec: 0 random-integer random-integer) + (spec: 0 copy-bit-field copy-bit-field) + (spec: + 0 + sfun-conversion-exception-message + sfun-conversion-exception-message) + (spec: 0 bit-field-replace-same bit-field-replace-same) + (spec: 0 f64vector-append f64vector-append) + (spec: 0 subu16vector-move! subu16vector-move!) + (spec: 0 u32vector-copy! u32vector-copy!) + (spec: 0 print print) + (spec: 0 clear-bit-field clear-bit-field) + (spec: 0 with-input-from-vector with-input-from-vector) + (spec: 0 s64vector-fill! s64vector-fill!) + (spec: 0 step step) + (spec: 0 fxnor fxnor) + (spec: 0 s16vector-ref s16vector-ref) + (spec: 0 thread-state thread-state) + (spec: 0 char-set-contains? char-set-contains?) + (spec: 0 reverse! reverse!) + (spec: + 0 + cfun-conversion-exception-arguments + cfun-conversion-exception-arguments) + (spec: 0 flfloor flfloor) (spec: 0 uninitialized-thread-exception-procedure uninitialized-thread-exception-procedure) (spec: 0 - display-continuation-environment - display-continuation-environment) + nonprocedure-operator-exception? + nonprocedure-operator-exception?) (spec: 0 call-with-output-vector call-with-output-vector) - (spec: 0 flcosh flcosh) - (spec: 0 replace-bit-field replace-bit-field) - (spec: 0 open-tcp-server open-tcp-server) - (spec: 0 stack-overflow-exception? stack-overflow-exception?) - (spec: 0 drop drop) - (spec: 0 keyword-hash keyword-hash) + (spec: 0 flacosh flacosh) + (spec: 0 defer-user-interrupts defer-user-interrupts) + (spec: 0 read-subu8vector read-subu8vector) + (spec: 0 network-info network-info) + (spec: 0 file-owner file-owner) + (spec: 0 udp-read-u8vector udp-read-u8vector) + (spec: 0 file-attributes file-attributes) + (spec: + 0 + module-not-found-exception-arguments + module-not-found-exception-arguments) + (spec: 0 subs16vector subs16vector) + (spec: 0 configure-command-string configure-command-string) + (spec: 0 make-thread make-thread) + (spec: 0 f32vector-copy! f32vector-copy!) + (spec: 0 bit-field bit-field) + (spec: 0 script-directory script-directory) + (spec: 0 u16vector u16vector) + (spec: 0 u32vector u32vector) + (spec: + 0 + wrong-number-of-values-exception-rte + wrong-number-of-values-exception-rte) + (spec: 0 path-strip-volume path-strip-volume) + (spec: 0 char-set= char-set=) + (spec: 0 fxwraplogical-shift-right fxwraplogical-shift-right) + (spec: 0 list->table list->table) + (spec: 0 s32vector-set s32vector-set) + (spec: 0 output-port-readtable-set! output-port-readtable-set!) (spec: 0 char-set-for-each char-set-for-each) - (spec: 0 fxfirst-set-bit fxfirst-set-bit) + (spec: 0 fxandc2 fxandc2) + (spec: 0 length+ length+) + (spec: 0 stack-overflow-exception? stack-overflow-exception?) (spec: 0 thread-send thread-send) - (spec: 0 compile-file-to-target compile-file-to-target) - (spec: 0 s32vector-set s32vector-set) - (spec: 0 char-set= char-set=) + (spec: 0 flzero? flzero?) (spec: 0 time->seconds time->seconds) - (spec: 0 string-suffix-ci? string-suffix-ci?) - (spec: 0 sfun-conversion-exception? sfun-conversion-exception?) + (spec: 0 replace-bit-field replace-bit-field) (spec: 0 - wrong-number-of-values-exception-code - wrong-number-of-values-exception-code) - (spec: 0 bitwise-andc1 bitwise-andc1) - (spec: 0 f64vector-shrink! f64vector-shrink!) - (spec: 0 create-temporary-directory create-temporary-directory) - (spec: 0 protocol-info-aliases protocol-info-aliases) - (spec: 0 subf64vector-move! subf64vector-move!) - (spec: 0 file-inode file-inode) - (spec: 0 bitwise-eqv bitwise-eqv) - (spec: 0 random-source-randomize! random-source-randomize!) + divide-by-zero-exception-arguments + divide-by-zero-exception-arguments) (spec: 0 - unbound-os-environment-variable-exception? - unbound-os-environment-variable-exception?) - (spec: 0 fl< fl<) + number-of-arguments-limit-exception-arguments + number-of-arguments-limit-exception-arguments) + (spec: 0 flnegative? flnegative?) (spec: 0 - nonempty-input-port-character-buffer-exception? - nonempty-input-port-character-buffer-exception?) - (spec: 0 flnan? flnan?) - (spec: 0 object->serial-number object->serial-number) - (spec: 0 cfun-conversion-exception? cfun-conversion-exception?) - (spec: 0 fltanh fltanh) + uninitialized-thread-exception-arguments + uninitialized-thread-exception-arguments) + (spec: 0 flacos flacos) + (spec: 0 call-with-output-u8vector call-with-output-u8vector) (spec: 0 - readtable-write-extended-read-macros?-set - readtable-write-extended-read-macros?-set) - (spec: 0 tanh tanh) - (spec: 0 thread-group? thread-group?) - (spec: 0 char-set-cursor-next char-set-cursor-next) - (spec: 0 fxabs fxabs) - (spec: 0 open-output-bytevector open-output-bytevector) - (spec: 0 eqv?-hash eqv?-hash) - (spec: 0 list->f32vector list->f32vector) - (spec: 0 output-port-line output-port-line) - (spec: 0 fxwrapabs fxwrapabs) - (spec: 0 s16vector-swap! s16vector-swap!) - (spec: 0 s64vector-set s64vector-set) - (spec: 0 u16vector-append u16vector-append) - (spec: 0 path-strip-directory path-strip-directory) - (spec: 0 group-info-members group-info-members) - (spec: 0 string->char-set string->char-set) - (spec: 0 vector-unfold-right vector-unfold-right) - (spec: 0 make-root-thread make-root-thread) - (spec: 0 bit-field-replace bit-field-replace) - (spec: 0 f64vector->list f64vector->list) - (spec: 0 compilation-target compilation-target) - (spec: 0 host-info host-info) - (spec: 0 subu16vector-fill! subu16vector-fill!) - (spec: 0 with-output-to-string with-output-to-string) - (spec: 0 file-info-creation-time file-info-creation-time) - (spec: 0 u32vector-copy u32vector-copy) - (spec: 0 file-info file-info) - (spec: 0 udp-write-subu8vector udp-write-subu8vector) - (spec: 0 integer-sqrt integer-sqrt) - (spec: 0 readtable-comment-handler readtable-comment-handler) - (spec: 0 ninth ninth) - (spec: 0 delete delete) + nonprocedure-operator-exception-rte + nonprocedure-operator-exception-rte) + (spec: 0 input-port-readtable-set! input-port-readtable-set!) + (spec: 0 system-type-string system-type-string) + (spec: 0 udp-read-subu8vector udp-read-subu8vector) + (spec: 0 file-number-of-links file-number-of-links) + (spec: 0 range-exception-procedure range-exception-procedure) + (spec: 0 u64vector? u64vector?) + (spec: 0 fifth fifth) + (spec: 0 subs8vector-move! subs8vector-move!) + (spec: 0 make-table make-table) + (spec: 0 f32vector-copy f32vector-copy) + (spec: 0 bit-count bit-count) + (spec: 0 make-mutex make-mutex) + (spec: 0 atanh atanh) + (spec: 0 scheduler-exception? scheduler-exception?) + (spec: 0 s8vector-length s8vector-length) + (spec: 0 service-info? service-info?) (spec: 0 - join-timeout-exception-arguments - join-timeout-exception-arguments) - (spec: 0 fleven? fleven?) - (spec: 0 remove! remove!) - (spec: 0 thread-base-priority thread-base-priority) - (spec: 0 foreign-release! foreign-release!) - (spec: 0 open-u8vector-pipe open-u8vector-pipe) - (spec: 0 vector-every vector-every) - (spec: 0 drop-right! drop-right!) - (spec: 0 thread-specific thread-specific) - (spec: 0 fxior fxior) - (spec: 0 char-set-intersection char-set-intersection) + tty-paren-balance-duration-set! + tty-paren-balance-duration-set!) + (spec: 0 string->uninterned-keyword string->uninterned-keyword) + (spec: 0 u16vector-concatenate u16vector-concatenate) + (spec: 0 time time) + (spec: 0 abort abort) + (spec: 0 error-exception? error-exception?) + (spec: 0 s32vector-ref s32vector-ref) + (spec: 0 char-set-intersection! char-set-intersection!) + (spec: 0 fxlength fxlength) + (spec: 0 thread-resume! thread-resume!) + (spec: 0 user-info user-info) + (spec: 0 foreign-released? foreign-released?) + (spec: 0 socket-info-address socket-info-address) + (spec: 0 repl-result-history-ref repl-result-history-ref) + (spec: 0 third third) (spec: 0 - permission-denied-exception-arguments - permission-denied-exception-arguments) - (spec: 0 list-set list-set) - (spec: 0 s32vector-shrink! s32vector-shrink!) - (spec: 0 string-suffix-length-ci string-suffix-length-ci) - (spec: 0 process-pid process-pid) - (spec: 0 tty-type-set! tty-type-set!) - (spec: 0 s8vector-set s8vector-set) - (spec: 0 u64vector u64vector) - (spec: 0 f64vector? f64vector?) - (spec: 0 u8vector-ref u8vector-ref) - (spec: 0 protocol-info-number protocol-info-number) - (spec: 0 subs16vector-fill! subs16vector-fill!) - (spec: 0 bitwise-for-each bitwise-for-each) - (spec: 0 u8vector-set! u8vector-set!) + invalid-utf8-encoding-exception? + invalid-utf8-encoding-exception?) + (spec: 0 display-exception display-exception) + (spec: 0 real-time real-time) + (spec: 0 delete-file-or-directory delete-file-or-directory) + (spec: 0 readtable-sharing-allowed? readtable-sharing-allowed?) + (spec: 0 table-set! table-set!) + (spec: 0 fl<= fl<=) + (spec: 0 tenth tenth) (spec: 0 - wrong-number-of-values-exception-vals - wrong-number-of-values-exception-vals) - (spec: 0 input-port-readtable-set! input-port-readtable-set!) - (spec: 0 read-file-string-list read-file-string-list) - (spec: 0 file-last-access-time file-last-access-time) + initialized-thread-exception-arguments + initialized-thread-exception-arguments) + (spec: 0 mutex-state mutex-state) (spec: 0 - unbound-serial-number-exception-arguments - unbound-serial-number-exception-arguments) + file-last-access-and-modification-times-set! + file-last-access-and-modification-times-set!) + (spec: 0 subu8vector-move! subu8vector-move!) + (spec: 0 copy-file copy-file) + (spec: 0 random-real random-real) + (spec: 0 u64vector->list u64vector->list) + (spec: 0 u8vector-set u8vector-set) + (spec: 0 bitwise-fold bitwise-fold) + (spec: 0 host-info-aliases host-info-aliases) + (spec: 0 concatenate concatenate) + (spec: 0 proper-list? proper-list?) + (spec: 0 string-suffix-length string-suffix-length) + (spec: 0 command-name command-name) + (spec: 0 subf32vector subf32vector) + (spec: 0 circular-list circular-list) + (spec: 0 touch touch) + (spec: 0 s64vector-concatenate s64vector-concatenate) + (spec: 0 vector-shrink! vector-shrink!) + (spec: 0 fxwrap* fxwrap*) + (spec: 0 s16vector-fill! s16vector-fill!) + (spec: 0 err-code->string err-code->string) + (spec: 0 thread-state-uninitialized? thread-state-uninitialized?) + (spec: 0 os-exception-arguments os-exception-arguments) + (spec: 0 char-set-copy char-set-copy) + (spec: 0 fx= fx=) + (spec: 0 flsqrt flsqrt) (spec: 0 - invalid-utf8-encoding-exception-arguments - invalid-utf8-encoding-exception-arguments) - (spec: 0 object->u8vector object->u8vector) - (spec: 0 fl= fl=) - (spec: 0 tcp-client-local-socket-info tcp-client-local-socket-info) - (spec: 0 link-incremental link-incremental) - (spec: 0 display-exception-in-context display-exception-in-context) - (spec: 0 open-output-process open-output-process) - (spec: 0 fxandc1 fxandc1) - (spec: 0 char-set-delete! char-set-delete!) - (spec: 0 output-port-readtable output-port-readtable) - (spec: 0 sixth sixth) - (spec: 0 list->s16vector list->s16vector) - (spec: 0 thread-init! thread-init!) - (spec: 0 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) + cfun-conversion-exception-code + cfun-conversion-exception-code) (spec: 0 - path-strip-trailing-directory-separator - path-strip-trailing-directory-separator) - (spec: 0 error error) - (spec: 0 s64vector-shrink! s64vector-shrink!) - (spec: 0 group-info? group-info?) - (spec: 0 string->keyword string->keyword) - (spec: 0 trace trace) - (spec: 0 make-s32vector make-s32vector) - (spec: 0 seconds->time seconds->time) - (spec: 0 bit-field-reverse bit-field-reverse) - (spec: 0 f64vector-concatenate f64vector-concatenate) - (spec: 0 host-info-aliases host-info-aliases) - (spec: 0 concatenate concatenate) - (spec: 0 subu32vector subu32vector) - (spec: 0 file-info-group file-info-group) - (spec: 0 mutex-lock! mutex-lock!) - (spec: 0 u16vector-copy u16vector-copy) - (spec: 0 copy-bit copy-bit) - (spec: 0 u32vector-fill! u32vector-fill!) - (spec: 0 with-output-to-vector with-output-to-vector) - (spec: 0 first-set-bit first-set-bit) - (spec: 0 u8vector->list u8vector->list) - (spec: 0 initial-current-directory initial-current-directory) - (spec: 0 readtable-eval-allowed? readtable-eval-allowed?) - (spec: 0 flexpm1 flexpm1) - (spec: 0 delete-directory delete-directory) - (spec: 0 rename-file rename-file) + uninitialized-thread-exception? + uninitialized-thread-exception?) + (spec: 0 fldenominator fldenominator) + (spec: 0 system-version-string system-version-string) + (spec: 0 udp-source-socket-info udp-source-socket-info) + (spec: 0 network-info-aliases network-info-aliases) + (spec: 0 random-source? random-source?) (spec: 0 - terminated-thread-exception-procedure - terminated-thread-exception-procedure) - (spec: 0 uninterned-symbol? uninterned-symbol?) - (spec: 0 open-vector open-vector) - (spec: 0 flnumerator flnumerator) - (spec: 0 split-at split-at) - (spec: 0 end-of-char-set? end-of-char-set?) - (spec: 0 user-info-gid user-info-gid) - (spec: 0 foreign-tags foreign-tags) - (spec: 0 vector-fold vector-fold) - (spec: 0 acosh acosh) - (spec: 0 thread-start! thread-start!) - (spec: 0 s16vector s16vector) - (spec: 0 char-set-map char-set-map) - (spec: 0 fxmax fxmax) - (spec: 0 permission-denied-exception? permission-denied-exception?) - (spec: 0 list-sort list-sort) - (spec: 0 s32vector? s32vector?) - (spec: 0 process-status process-status) - (spec: 0 string-swap! string-swap!) - (spec: 0 write-file-string-list write-file-string-list) - (spec: 0 s8vector-shrink! s8vector-shrink!) - (spec: 0 f32vector f32vector) - (spec: 0 u64vector-append u64vector-append) - (spec: 0 random-source-state-ref random-source-state-ref) - (spec: 0 subs32vector subs32vector) - (spec: 0 bitwise-ior bitwise-ior) - (spec: 0 u8vector-swap! u8vector-swap!) - (spec: 0 thread-priority thread-priority) - (spec: 0 file-last-modification-time file-last-modification-time) + current-user-interrupt-handler + current-user-interrupt-handler) (spec: 0 - unbound-serial-number-exception? - unbound-serial-number-exception?) - (spec: 0 real-time real-time) + module-not-found-exception-procedure + module-not-found-exception-procedure) + (spec: 0 file-group file-group) + (spec: 0 shell-command shell-command) + (spec: 0 continuation? continuation?) + (spec: 0 substring-fill! substring-fill!) + (spec: 0 u32vector->list u32vector->list) + (spec: 0 f32vector? f32vector?) + (spec: 0 bit-field-any? bit-field-any?) + (spec: 0 make-thread-group make-thread-group) + (spec: 0 f32vector->list f32vector->list) + (spec: 0 make-s64vector make-s64vector) + (spec: 0 s8vector->list s8vector->list) + (spec: 0 tty-text-attributes-set! tty-text-attributes-set!) + (spec: 0 time? time?) + (spec: 0 list->u16vector list->u16vector) + (spec: 0 s32vector-concatenate s32vector-concatenate) + (spec: 0 vector-cas! vector-cas!) + (spec: 0 char-set-filter char-set-filter) + (spec: 0 fxmin fxmin) (spec: 0 - invalid-utf8-encoding-exception? - invalid-utf8-encoding-exception?) - (spec: 0 fl>= fl>=) + rpc-remote-error-exception-arguments + rpc-remote-error-exception-arguments) + (spec: 0 thread-sleep! thread-sleep!) + (spec: 0 open-vector-pipe open-vector-pipe) + (spec: 0 socket-info-port-number socket-info-port-number) + (spec: 0 thread thread) + (spec: 0 drop-right drop-right) (spec: 0 - nonprocedure-operator-exception-code - nonprocedure-operator-exception-code) + join-timeout-exception-procedure + join-timeout-exception-procedure) + (spec: 0 readtable-max-unescaped-char readtable-max-unescaped-char) (spec: 0 - unterminated-process-exception-procedure - unterminated-process-exception-procedure) - (spec: 0 open-output-u8vector open-output-u8vector) - (spec: 0 fold fold) - (spec: 0 join-timeout-exception? join-timeout-exception?) - (spec: 0 char-set-diff+intersection! char-set-diff+intersection!) - (spec: 0 fxarithmetic-shift fxarithmetic-shift) - (spec: 0 output-port-timeout-set! output-port-timeout-set!) - (spec: 0 thread-join! thread-join!) - (spec: 0 thread-state-waiting-timeout thread-state-waiting-timeout) - (spec: 0 fxwrapquotient fxwrapquotient) - (spec: 0 path-volume path-volume) - (spec: 0 error-exception-message error-exception-message) - (spec: 0 s64vector? s64vector?) - (spec: 0 list->s64vector list->s64vector) - (spec: 0 ->char-set ->char-set) - (spec: 0 compile-file compile-file) - (spec: 0 string-prefix-length string-prefix-length) - (spec: 0 any-bit-set? any-bit-set?) - (spec: 0 bit-field-set bit-field-set) - (spec: 0 f64vector-copy! f64vector-copy!) - (spec: 0 u16vector-fill! u16vector-fill!) - (spec: 0 host-info? host-info?) - (spec: 0 box? box?) - (spec: 0 file-info-last-access-time file-info-last-access-time) - (spec: 0 mutex-specific mutex-specific) - (spec: 0 copy-file copy-file) - (spec: 0 fixnum->flonum fixnum->flonum) + nonprocedure-operator-exception-arguments + nonprocedure-operator-exception-arguments) + (spec: 0 fl> fl>) (spec: 0 - initialized-thread-exception-arguments - initialized-thread-exception-arguments) - (spec: 0 table->list table->list) - (spec: 0 u8vector-append u8vector-append) - (spec: 0 flfinite? flfinite?) - (spec: 0 unbound-global-exception-code unbound-global-exception-code) - (spec: 0 delete-file-or-directory delete-file-or-directory) - (spec: 0 readtable-keywords-allowed? readtable-keywords-allowed?) - (spec: 0 flodd? flodd?) - (spec: 0 user-info-name user-info-name) + unbound-key-exception-procedure + unbound-key-exception-procedure) + (spec: 0 initialized-thread-exception? initialized-thread-exception?) + (spec: 0 u8vector-length u8vector-length) + (spec: 0 file-last-change-time file-last-change-time) + (spec: 0 r7rs-raise r7rs-raise) + (spec: 0 create-fifo create-fifo) + (spec: 0 subvector-fill! subvector-fill!) (spec: 0 - thread-group->thread-group-list - thread-group->thread-group-list) - (spec: 0 foreign? foreign?) + sfun-conversion-exception-code + sfun-conversion-exception-code) + (spec: 0 bits->list bits->list) + (spec: 0 subf32vector-move! subf32vector-move!) + (spec: 0 condition-variable? condition-variable?) + (spec: 0 host-info? host-info?) + (spec: 0 primordial-exception-handler primordial-exception-handler) + (spec: 0 string-prefix? string-prefix?) + (spec: 0 u32vector-shrink! u32vector-shrink!) + (spec: 0 write-file-string write-file-string) + (spec: 0 group-info-gid group-info-gid) (spec: 0 - started-thread-exception-arguments - started-thread-exception-arguments) - (spec: 0 list-tabulate list-tabulate) - (spec: 0 s16vector-append s16vector-append) - (spec: 0 char-set-size char-set-size) - (spec: 0 fxmodulo fxmodulo) - (spec: 0 link-flat link-flat) - (spec: 0 make-f64vector make-f64vector) - (spec: 0 string-concatenate string-concatenate) - (spec: 0 generate-proper-tail-calls generate-proper-tail-calls) - (spec: 0 s8vector? s8vector?) - (spec: 0 subs32vector-move! subs32vector-move!) - (spec: 0 f32vector-append f32vector-append) - (spec: 0 make-s8vector make-s8vector) - (spec: 0 random-source? random-source?) - (spec: 0 type-exception-arg-id type-exception-arg-id) - (spec: 0 u64vector-copy u64vector-copy) - (spec: 0 cpu-time cpu-time) - (spec: 0 raise raise) - (spec: 0 subu64vector-move! subu64vector-move!) + wrong-number-of-arguments-exception-procedure + wrong-number-of-arguments-exception-procedure) + (spec: 0 s64vector-copy! s64vector-copy!) + (spec: 0 address-infos address-infos) + (spec: 0 top top) + (spec: 0 char-set-xor! char-set-xor!) + (spec: 0 fxwrap- fxwrap-) + (spec: 0 list->s32vector list->s32vector) (spec: 0 - no-such-file-or-directory-exception-arguments - no-such-file-or-directory-exception-arguments) - (spec: 0 u8vector-concatenate u8vector-concatenate) - (spec: 0 datum-parsing-exception? datum-parsing-exception?) - (spec: 0 car+cdr car+cdr) - (spec: 0 flfloor flfloor) - (spec: 0 unbound-global-exception-rte unbound-global-exception-rte) - (spec: 0 table-merge! table-merge!) + thread-state-normally-terminated-result + thread-state-normally-terminated-result) + (spec: 0 fx>= fx>=) + (spec: 0 char-set-adjoin char-set-adjoin) + (spec: 0 output-port-column output-port-column) + (spec: 0 thread-group-resume! thread-group-resume!) + (spec: 0 open-input-vector open-input-vector) + (spec: 0 fltan fltan) + (spec: 0 fllog1p fllog1p) + (spec: 0 uncaught-exception-reason uncaught-exception-reason) + (spec: 0 flexp flexp) + (spec: 0 call-with-input-vector call-with-input-vector) + (spec: 0 read-substring read-substring) + (spec: 0 delete! delete!) + (spec: 0 first first) + (spec: 0 u64vector-set u64vector-set) + (spec: 0 file-info-attributes file-info-attributes) + (spec: 0 bitwise-orc2 bitwise-orc2) + (spec: 0 multiple-c-return-exception? multiple-c-return-exception?) + (spec: 0 subs64vector-fill! subs64vector-fill!) + (spec: 0 service-info-aliases service-info-aliases) + (spec: 0 f64vector f64vector) + (spec: 0 u16vector-shrink! u16vector-shrink!) + (spec: 0 serial-number->object serial-number->object) + (spec: 0 s8vector-concatenate s8vector-concatenate) + (spec: 0 make-condition-variable make-condition-variable) + (spec: 0 tty-history tty-history) + (spec: 0 string-contains string-contains) + (spec: 0 char-set<= char-set<=) + (spec: 0 s32vector-copy! s32vector-copy!) + (spec: 0 thread? thread?) (spec: 0 - readtable-max-write-length-set - readtable-max-write-length-set) + started-thread-exception-procedure + started-thread-exception-procedure) + (spec: 0 char-set-fold char-set-fold) + (spec: 0 fxeven? fxeven?) (spec: 0 - unknown-keyword-argument-exception-arguments - unknown-keyword-argument-exception-arguments) - (spec: 0 open-directory open-directory) - (spec: 0 s16vector-concatenate s16vector-concatenate) + rpc-remote-error-exception-procedure + rpc-remote-error-exception-procedure) + (spec: 0 thread-priority-boost-set! thread-priority-boost-set!) + (spec: 0 repl-highlight-source-level repl-highlight-source-level) + (spec: 0 repl-backtrace-detail-level repl-backtrace-detail-level) + (spec: 0 tcp-server-socket-info tcp-server-socket-info) + (spec: 0 readtable-max-write-length readtable-max-write-length) + (spec: 0 table-merge table-merge) (spec: 0 - thread-group->thread-group-vector - thread-group->thread-group-vector) - (spec: 0 char-set->string char-set->string) - (spec: 0 os-exception-code os-exception-code) - (spec: 0 address-info-family address-info-family) - (spec: 0 every every) - (spec: 0 s64vector s64vector) - (spec: 0 char-set-xor char-set-xor) - (spec: 0 fxodd? fxodd?) + nonprocedure-operator-exception-operator + nonprocedure-operator-exception-operator) + (spec: 0 fl+* fl+*) (spec: 0 - thread-state-abnormally-terminated-reason - thread-state-abnormally-terminated-reason) - (spec: 0 poll-point poll-point) - (spec: 0 console-port console-port) - (spec: 0 subs64vector subs64vector) - (spec: 0 type-exception-arguments type-exception-arguments) - (spec: 0 f32vector-length f32vector-length) - (spec: 0 make-tls-context make-tls-context) - (spec: 0 service-info service-info) - (spec: 0 u16vector-set! u16vector-set!) - (spec: 0 random-u8vector random-u8vector) - (spec: 0 with-exception-handler with-exception-handler) - (spec: 0 bitwise-nor bitwise-nor) - (spec: 0 file-attributes file-attributes) + input-port-characters-buffered + input-port-characters-buffered) + (spec: 0 default-random-source default-random-source) + (spec: 0 file-info-size file-info-size) + (spec: 0 subu64vector-fill! subu64vector-fill!) + (spec: 0 create-symbolic-link create-symbolic-link) + (spec: 0 r7rs-with-exception-handler r7rs-with-exception-handler) + (spec: 0 u32vector? u32vector?) + (spec: 0 bitwise-and bitwise-and) + (spec: 0 f64vector-set! f64vector-set!) + (spec: 0 processor? processor?) + (spec: 0 process-times process-times) + (spec: 0 host-info-addresses host-info-addresses) + (spec: 0 string-set string-set) + (spec: 0 pretty-print pretty-print) + (spec: 0 get-output-vector get-output-vector) + (spec: 0 with-input-from-process with-input-from-process) + (spec: 0 string->char-set! string->char-set!) + (spec: 0 path-strip-extension path-strip-extension) + (spec: 0 char-set-any char-set-any) + (spec: 0 fxpositive? fxpositive?) + (spec: 0 list->s8vector list->s8vector) + (spec: 0 s32vector s32vector) + (spec: 0 fx+ fx+) + (spec: 0 thread-group-specific-set! thread-group-specific-set!) + (spec: 0 call-with-output-process call-with-output-process) + (spec: 0 flround flround) + (spec: 0 flmin flmin) + (spec: 0 null-list? null-list?) + (spec: 0 flatanh flatanh) + (spec: 0 readtable-eval-allowed?-set readtable-eval-allowed?-set) + (spec: 0 system-stamp system-stamp) + (spec: 0 bitwise-xor bitwise-xor) + (spec: 0 current-readtable current-readtable) + (spec: 0 u64vector-shrink! u64vector-shrink!) (spec: 0 - module-not-found-exception-arguments - module-not-found-exception-arguments) - (spec: 0 input-port-timeout-set! input-port-timeout-set!) - (spec: 0 read-file-u8vector read-file-u8vector) - (spec: 0 ucs-range->char-set! ucs-range->char-set!) - (spec: 0 network-info network-info) - (spec: 0 file-owner file-owner) - (spec: 0 directory-files directory-files) + file-exists-exception-arguments + file-exists-exception-arguments) + (spec: 0 subs8vector subs8vector) + (spec: 0 u16vector? u16vector?) + (spec: 0 f32vector-set f32vector-set) + (spec: 0 u16vector-ref u16vector-ref) + (spec: 0 extract-bit-field extract-bit-field) + (spec: 0 tty-history-set! tty-history-set!) + (spec: 0 make-f32vector make-f32vector) + (spec: 0 s8vector-swap! s8vector-swap!) + (spec: 0 will? will?) + (spec: 0 gc-report-set! gc-report-set!) + (spec: 0 char-set-union char-set-union) + (spec: 0 list-sort! list-sort!) + (spec: 0 fxif fxif) + (spec: 0 char-set char-set) + (spec: 0 s16vector->list s16vector->list) + (spec: 0 thread-quantum-set! thread-quantum-set!) + (spec: 0 user-info? user-info?) + (spec: 0 open-u8vector open-u8vector) + (spec: 0 foreign-address foreign-address) + (spec: 0 car+cdr car+cdr) + (spec: 0 test-bit-field? test-bit-field?) (spec: 0 - invalid-utf8-encoding-exception-procedure - invalid-utf8-encoding-exception-procedure) - (spec: 0 tcp-client-peer-socket-info tcp-client-peer-socket-info) + display-continuation-dynamic-environment + display-continuation-dynamic-environment) (spec: 0 call-with-input-process call-with-input-process) - (spec: 0 flacosh flacosh) (spec: 0 - nonprocedure-operator-exception? - nonprocedure-operator-exception?) - (spec: 0 flzero? flzero?) + readtable-write-extended-read-macros? + readtable-write-extended-read-macros?) + (spec: 0 table-ref table-ref) + (spec: 0 fl/ fl/) (spec: 0 - divide-by-zero-exception-arguments - divide-by-zero-exception-arguments) - (spec: 0 thread-mailbox-rewind thread-mailbox-rewind) - (spec: 0 char-set-diff+intersection char-set-diff+intersection) - (spec: 0 fxandc2 fxandc2) - (spec: 0 output-port-readtable-set! output-port-readtable-set!) - (spec: 0 length+ length+) - (spec: 0 thread-terminate! thread-terminate!) - (spec: 0 path-strip-volume path-strip-volume) - (spec: 0 fxwraplogical-shift-right fxwraplogical-shift-right) - (spec: 0 vector->bits vector->bits) - (spec: 0 list->table list->table) - (spec: 0 s32vector-append s32vector-append) - (spec: 0 string-prefix-ci? string-prefix-ci?) - (spec: 0 void void) - (spec: 0 append! append!) - (spec: 0 s8vector s8vector) - (spec: 0 bit-field-rotate bit-field-rotate) - (spec: 0 f64vector-copy f64vector-copy) - (spec: 0 setenv setenv) - (spec: 0 condition-variable-broadcast! condition-variable-broadcast!) - (spec: 0 u16vector-ref u16vector-ref) - (spec: 0 write-subu8vector write-subu8vector) - (spec: 0 box box) - (spec: 0 file-info-inode file-info-inode) - (spec: 0 mutex-name mutex-name) - (spec: 0 random-integer random-integer) - (spec: 0 subu8vector-fill! subu8vector-fill!) + nonempty-input-port-character-buffer-exception-procedure + nonempty-input-port-character-buffer-exception-procedure) + (spec: 0 dead-end dead-end) + (spec: 0 input-port-line input-port-line) + (spec: 0 ucs-range->char-set! ucs-range->char-set!) + (spec: 0 file-info? file-info?) + (spec: 0 bitwise-nor bitwise-nor) (spec: 0 - fixnum-overflow-exception-procedure - fixnum-overflow-exception-procedure) + random-source-pseudo-randomize! + random-source-pseudo-randomize!) + (spec: 0 subu8vector subu8vector) + (spec: 0 u64vector-length u64vector-length) + (spec: 0 f64vector-swap! f64vector-swap!) + (spec: 0 protocol-info-name protocol-info-name) + (spec: 0 condition-variable-name condition-variable-name) + (spec: 0 help-browser help-browser) + (spec: 0 command-args command-args) + (spec: 0 append! append!) + (spec: 0 fxremainder fxremainder) + (spec: 0 string-prefix-ci? string-prefix-ci?) + (spec: 0 s8vector s8vector) + (spec: 0 void void) + (spec: 0 fx< fx<) + (spec: 0 char-set-diff+intersection char-set-diff+intersection) + (spec: 0 s32vector-append s32vector-append) + (spec: 0 list->char-set! list->char-set!) + (spec: 0 thread-terminate! thread-terminate!) + (spec: 0 vector->bits vector->bits) + (spec: 0 flsin flsin) + (spec: 0 thread-mailbox-rewind thread-mailbox-rewind) + (spec: 0 flinfinite? flinfinite?) + (spec: 0 fl- fl-) + (spec: 0 tcp-client-local-socket-info tcp-client-local-socket-info) (spec: 0 - no-such-file-or-directory-exception? - no-such-file-or-directory-exception?) - (spec: 0 u32vector-length u32vector-length) - (spec: 0 read-all read-all) - (spec: 0 unbound-global-exception? unbound-global-exception?) - (spec: 0 flilogb flilogb) + nonempty-input-port-character-buffer-exception-arguments + nonempty-input-port-character-buffer-exception-arguments) + (spec: 0 file-info-type file-info-type) + (spec: 0 unbreak unbreak) + (spec: 0 input-port-byte-position input-port-byte-position) + (spec: 0 read-file-string-list read-file-string-list) + (spec: 0 ucs-range->char-set ucs-range->char-set) + (spec: 0 f64vector-shrink! f64vector-shrink!) + (spec: 0 bitwise-nand bitwise-nand) (spec: 0 - unknown-keyword-argument-exception? - unknown-keyword-argument-exception?) + inactive-thread-exception-arguments + inactive-thread-exception-arguments) + (spec: 0 create-directory create-directory) + (spec: 0 random-source-state-ref random-source-state-ref) + (spec: 0 u64vector-fill! u64vector-fill!) + (spec: 0 subs32vector subs32vector) (spec: 0 - invalid-hash-number-exception-procedure - invalid-hash-number-exception-procedure) - (spec: 0 readtable-max-write-level-set readtable-max-write-level-set) - (spec: 0 table-search table-search) - (spec: 0 last last) - (spec: 0 thread-group->thread-vector thread-group->thread-vector) - (spec: 0 flpositive? flpositive?) - (spec: 0 open-event-queue open-event-queue) - (spec: 0 s16vector-copy! s16vector-copy!) - (spec: 0 os-exception-procedure os-exception-procedure) - (spec: 0 fx* fx*) - (spec: 0 address-info-socket-info address-info-socket-info) - (spec: 0 list= list=) - (spec: 0 char-set-adjoin! char-set-adjoin!) - (spec: 0 fxorc2 fxorc2) - (spec: 0 partition! partition!) - (spec: 0 s64vector-append s64vector-append) - (spec: 0 scheduler-exception-reason scheduler-exception-reason) - (spec: 0 type-exception-type-id type-exception-type-id) - (spec: 0 get-output-u8vector get-output-u8vector) + condition-variable-specific-set! + condition-variable-specific-set!) (spec: 0 - port-io-exception-handler-set! - port-io-exception-handler-set!) - (spec: 0 with-input-from-port with-input-from-port) - (spec: 0 subs64vector-move! subs64vector-move!) - (spec: 0 xcons xcons) - (spec: 0 f32vector-ref f32vector-ref) - (spec: 0 make-u32vector make-u32vector) - (spec: 0 service-info-name service-info-name) - (spec: 0 u16vector-swap! u16vector-swap!) - (spec: 0 file-device file-device) - (spec: 0 bitwise-orc1 bitwise-orc1) - (spec: 0 module-not-found-exception? module-not-found-exception?) - (spec: 0 u64vector-ref u64vector-ref) - (spec: 0 file-size file-size) - (spec: 0 network-info-name network-info-name) - (spec: 0 udp-destination-set! udp-destination-set!) - (spec: 0 tcp-client-self-socket-info tcp-client-self-socket-info) - (spec: 0 flasin flasin) - (spec: 0 call-with-input-u8vector call-with-input-u8vector) - (spec: 0 fold-right fold-right) - (spec: 0 open-output-vector open-output-vector) - (spec: 0 uncaught-exception-procedure uncaught-exception-procedure) - (spec: 0 divide-by-zero-exception? divide-by-zero-exception?) - (spec: 0 repl-error-port repl-error-port) - (spec: 0 char-set-difference char-set-difference) - (spec: 0 fxarithmetic-shift-left fxarithmetic-shift-left) - (spec: 0 output-port-width output-port-width) + expression-parsing-exception-kind + expression-parsing-exception-kind) (spec: 0 - rpc-remote-error-exception-message - rpc-remote-error-exception-message) + wrong-number-of-arguments-exception-arguments + wrong-number-of-arguments-exception-arguments) + (spec: 0 help help) + (spec: 0 fxxor fxxor) + (spec: 0 pp pp) + (spec: 0 equal?-hash equal?-hash) + (spec: 0 path-normalize path-normalize) + (spec: 0 fxarithmetic-shift-right fxarithmetic-shift-right) + (spec: 0 char-set-difference! char-set-difference!) + (spec: 0 eighth eighth) + (spec: 0 list->char-set list->char-set) + (spec: 0 s32vector->list s32vector->list) + (spec: 0 output-port-char-position output-port-char-position) + (spec: 0 thread-suspend! thread-suspend!) + (spec: 0 thread-mailbox-next thread-mailbox-next) (spec: 0 - length-mismatch-exception-arg-id - length-mismatch-exception-arg-id) - (spec: 0 fxwrapsquare fxwrapsquare) - (spec: 0 thread-priority-boost thread-priority-boost) - (spec: 0 list->u32vector list->u32vector) - (spec: 0 s32vector-copy s32vector-copy) - (spec: 0 string-prefix-length-ci string-prefix-length-ci) - (spec: 0 thread-yield! thread-yield!) - (spec: 0 append-reverse! append-reverse!) - (spec: 0 s8vector-append s8vector-append) - (spec: 0 f64vector-fill! f64vector-fill!) - (spec: 0 bit-set? bit-set?) - (spec: 0 seventh seventh) - (spec: 0 u32vector-ref u32vector-ref) - (spec: 0 file-info-last-change-time file-info-last-change-time) - (spec: 0 mutex-specific-set! mutex-specific-set!) - (spec: 0 condition-variable-signal! condition-variable-signal!) - (spec: 0 subvector subvector) - (spec: 0 u8vector-copy! u8vector-copy!) - (spec: 0 break break) - (spec: 0 fixnum? fixnum?) + display-continuation-backtrace + display-continuation-backtrace) + (spec: 0 vector-any vector-any) + (spec: 0 open-input-u8vector open-input-u8vector) + (spec: 0 fixnum-overflow-exception? fixnum-overflow-exception?) + (spec: 0 readtable-keywords-allowed? readtable-keywords-allowed?) + (spec: 0 table->list table->list) + (spec: 0 ninth ninth) (spec: 0 - inactive-thread-exception-arguments - inactive-thread-exception-arguments) - (spec: 0 create-directory create-directory) + file-info-last-modification-time + file-info-last-modification-time) + (spec: 0 continuation-capture continuation-capture) + (spec: 0 u8vector-fill! u8vector-fill!) + (spec: 0 bit-swap bit-swap) + (spec: 0 f64vector-length f64vector-length) + (spec: 0 subu32vector subu32vector) + (spec: 0 u32vector-set u32vector-set) + (spec: 0 ->char-set ->char-set) (spec: 0 - noncontinuable-exception-reason - noncontinuable-exception-reason) + permission-denied-exception-arguments + permission-denied-exception-arguments) + (spec: 0 u16vector-set u16vector-set) + (spec: 0 s8vector-set s8vector-set) + (spec: 0 address-info-socket-type address-info-socket-type) + (spec: 0 type-exception? type-exception?) + (spec: 0 with-exception-catcher with-exception-catcher) + (spec: 0 char-set-union! char-set-union!) + (spec: 0 fxnot fxnot) + (spec: 0 list-set list-set) + (spec: 0 s32vector-shrink! s32vector-shrink!) + (spec: 0 open-u8vector-pipe open-u8vector-pipe) + (spec: 0 char-set->list char-set->list) + (spec: 0 thread-state-initialized? thread-state-initialized?) + (spec: 0 compile-file compile-file) + (spec: 0 user-name user-name) + (spec: 0 object->serial-number object->serial-number) + (spec: 0 thread-group-name thread-group-name) (spec: 0 - unbound-key-exception-arguments - unbound-key-exception-arguments) - (spec: 0 flinteger? flinteger?) + number-of-arguments-limit-exception? + number-of-arguments-limit-exception?) (spec: 0 - number-of-arguments-limit-exception-procedure - number-of-arguments-limit-exception-procedure) - (spec: 0 input-port-byte-position input-port-byte-position) + nonempty-input-port-character-buffer-exception? + nonempty-input-port-character-buffer-exception?) + (spec: 0 call-with-input-string call-with-input-string) + (spec: 0 readtable-start-syntax-set readtable-start-syntax-set) + (spec: 0 uncaught-exception-arguments uncaught-exception-arguments) + (spec: 0 input-port-char-position input-port-char-position) + (spec: 0 bitwise-not bitwise-not) + (spec: 0 file-creation-time file-creation-time) + (spec: 0 inactive-thread-exception? inactive-thread-exception?) + (spec: 0 random-source-make-integers random-source-make-integers) + (spec: 0 f32vector-fill! f32vector-fill!) + (spec: 0 make-root-thread make-root-thread) + (spec: 0 subs32vector-move! subs32vector-move!) (spec: 0 - readtable-sharing-allowed?-set - readtable-sharing-allowed?-set) - (spec: 0 table? table?) - (spec: 0 thread-group-parent thread-group-parent) - (spec: 0 s16vector-length s16vector-length) - (spec: 0 flscalbn flscalbn) - (spec: 0 s64vector-copy s64vector-copy) - (spec: 0 fx- fx-) - (spec: 0 char-set-complement char-set-complement) - (spec: 0 path-directory path-directory) - (spec: 0 address-info? address-info?) + expression-parsing-exception-source + expression-parsing-exception-source) + (spec: 0 append-reverse append-reverse) + (spec: 0 with-output-to-string with-output-to-string) + (spec: 0 s64vector-set s64vector-set) + (spec: 0 list->f32vector list->f32vector) + (spec: 0 string->char-set string->char-set) + (spec: 0 fxbit-set? fxbit-set?) + (spec: 0 char-set-cursor-next char-set-cursor-next) + (spec: 0 s16vector-swap! s16vector-swap!) + (spec: 0 thread-thread-group thread-thread-group) + (spec: 0 vector-unfold-right vector-unfold-right) + (spec: 0 open-string open-string) + (spec: 0 cfun-conversion-exception? cfun-conversion-exception?) + (spec: 0 thread-name thread-name) (spec: 0 - expression-parsing-exception-parameters - expression-parsing-exception-parameters) - (spec: 0 fxquotient fxquotient) - (spec: 0 port-settings-set! port-settings-set!) - (spec: 0 with-input-from-string with-input-from-string) - (spec: 0 asinh asinh) - (spec: 0 subs8vector-fill! subs8vector-fill!) - (spec: 0 getenv getenv) - (spec: 0 service-info-protocol service-info-protocol) - (spec: 0 make-u8vector make-u8vector) - (spec: 0 continuation-capture continuation-capture) - (spec: 0 range-exception-arguments range-exception-arguments) - (spec: 0 f32vector-set! f32vector-set!) - (spec: 0 module-search-order-add! module-search-order-add!) - (spec: 0 u64vector-set! u64vector-set!) - (spec: 0 current-processor current-processor) - (spec: 0 read-subu8vector read-subu8vector) - (spec: 0 bitwise-unfold bitwise-unfold) - (spec: 0 network-info? network-info?) - (spec: 0 thread-priority-set! thread-priority-set!) - (spec: 0 udp-local-socket-info udp-local-socket-info) - (spec: 0 flatan flatan) - (spec: 0 uncaught-exception? uncaught-exception?) - (spec: 0 open-process open-process) - (spec: 0 socket-info-family socket-info-family) - (spec: 0 repl-input-port repl-input-port) - (spec: 0 fxbit-count fxbit-count) + divide-by-zero-exception-procedure + divide-by-zero-exception-procedure) + (spec: 0 iota iota) + (spec: 0 integer-length integer-length) + (spec: 0 uninterned-symbol? uninterned-symbol?) + (spec: 0 noncontinuable-exception? noncontinuable-exception?) + (spec: 0 fl* fl*) + (spec: 0 readtable-case-conversion? readtable-case-conversion?) + (spec: 0 datum-parsing-exception-kind datum-parsing-exception-kind) + (spec: 0 table-for-each table-for-each) + (spec: 0 file-info-number-of-links file-info-number-of-links) + (spec: 0 mutex? mutex?) + (spec: 0 range-exception? range-exception?) + (spec: 0 cosh cosh) + (spec: 0 u8vector->list u8vector->list) + (spec: 0 bit-field-replace bit-field-replace) + (spec: 0 f64vector-ref f64vector-ref) + (spec: 0 subu32vector-move! subu32vector-move!) + (spec: 0 u32vector-copy u32vector-copy) + (spec: 0 u16vector-copy u16vector-copy) + (spec: 0 s8vector-shrink! s8vector-shrink!) + (spec: 0 acosh acosh) + (spec: 0 partition partition) + (spec: 0 char-set-map char-set-map) + (spec: 0 fxorc1 fxorc1) + (spec: 0 s32vector? s32vector?) + (spec: 0 split-at split-at) + (spec: 0 os-exception-message os-exception-message) + (spec: 0 vector-fold vector-fold) + (spec: 0 s16vector s16vector) + (spec: 0 thread-start! thread-start!) + (spec: 0 user-info-gid user-info-gid) + (spec: 0 open-dummy open-dummy) + (spec: 0 flfinite? flfinite?) + (spec: 0 flasinh flasinh) (spec: 0 - length-mismatch-exception-procedure - length-mismatch-exception-procedure) - (spec: 0 rpc-remote-error-exception? rpc-remote-error-exception?) - (spec: 0 char-set-every char-set-every) - (spec: 0 fxzero? fxzero?) - (spec: 0 string->uninterned-symbol string->uninterned-symbol) - (spec: 0 list->u8vector list->u8vector) - (spec: 0 s32vector-fill! s32vector-fill!) - (spec: 0 thread-quantum thread-quantum) - (spec: 0 print print) + readtable-write-cdr-read-macros?-set + readtable-write-cdr-read-macros?-set) + (spec: 0 take-right take-right) (spec: 0 - mailbox-receive-timeout-exception-procedure - mailbox-receive-timeout-exception-procedure) - (spec: 0 s8vector-copy s8vector-copy) - (spec: 0 tty-history-max-length-set! tty-history-max-length-set!) + unbound-serial-number-exception-arguments + unbound-serial-number-exception-arguments) + (spec: 0 network-info-number network-info-number) + (spec: 0 file-type file-type) + (spec: 0 u8vector-set! u8vector-set!) + (spec: 0 bitwise-for-each bitwise-for-each) + (spec: 0 random-source-make-u8vectors random-source-make-u8vectors) + (spec: 0 u64vector-append u64vector-append) + (spec: 0 make-u16vector make-u16vector) + (spec: 0 seconds->time seconds->time) + (spec: 0 protocol-info-aliases protocol-info-aliases) + (spec: 0 make-random-source make-random-source) + (spec: 0 subf64vector-move! subf64vector-move!) + (spec: 0 s64vector-shrink! s64vector-shrink!) (spec: 0 - sfun-conversion-exception-arguments - sfun-conversion-exception-arguments) - (spec: 0 u32vector-set! u32vector-set!) - (spec: 0 apropos apropos) - (spec: 0 subf32vector-fill! subf32vector-fill!) - (spec: 0 bits bits) - (spec: 0 file-info-mode file-info-mode) - (spec: 0 mutex-unlock! mutex-unlock!) + mailbox-receive-timeout-exception-arguments + mailbox-receive-timeout-exception-arguments) + (spec: 0 string-suffix-length-ci string-suffix-length-ci) + (spec: 0 with-output-to-vector with-output-to-vector) + (spec: 0 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) + (spec: 0 trace trace) + (spec: 0 list->u64vector list->u64vector) + (spec: 0 write-substring write-substring) + (spec: 0 fxandc1 fxandc1) + (spec: 0 char-set-delete! char-set-delete!) (spec: 0 - condition-variable-specific-set! - condition-variable-specific-set!) - (spec: 0 subvector-move! subvector-move!) + length-mismatch-exception-arguments + length-mismatch-exception-arguments) + (spec: 0 open-tcp-client open-tcp-client) + (spec: 0 thread-init! thread-init!) + (spec: 0 keyword->string keyword->string) + (spec: 0 remove! remove!) + (spec: 0 readtable-comment-handler readtable-comment-handler) + (spec: 0 fixnum->flonum fixnum->flonum) (spec: 0 - wrong-number-of-arguments-exception-arguments - wrong-number-of-arguments-exception-arguments) - (spec: 0 file-info-owner file-info-owner) - (spec: 0 unbound-key-exception? unbound-key-exception?) - (spec: 0 create-link create-link) - (spec: 0 inactive-thread-exception? inactive-thread-exception?) - (spec: 0 random-source-make-integers random-source-make-integers) - (spec: 0 fl+ fl+) - (spec: 0 input-port-char-position input-port-char-position) - (spec: 0 take take) - (spec: 0 fllog fllog) - (spec: 0 reverse! reverse!) - (spec: 0 thread-group-specific thread-group-specific) - (spec: 0 readtable-start-syntax-set readtable-start-syntax-set) - (spec: 0 s16vector-ref s16vector-ref) + datum-parsing-exception-readenv + datum-parsing-exception-readenv) + (spec: 0 unbound-global-exception-code unbound-global-exception-code) + (spec: 0 file-info-group file-info-group) (spec: 0 - cfun-conversion-exception-arguments - cfun-conversion-exception-arguments) - (spec: 0 flsinh flsinh) - (spec: 0 open-input-process open-input-process) + sfun-conversion-exception-procedure + sfun-conversion-exception-procedure) + (spec: 0 f64vector-concatenate f64vector-concatenate) + (spec: 0 bit-field-reverse bit-field-reverse) + (spec: 0 process-pid process-pid) + (spec: 0 substring-move! substring-move!) + (spec: 0 u32vector-fill! u32vector-fill!) + (spec: 0 heap-overflow-exception? heap-overflow-exception?) + (spec: 0 println println) + (spec: 0 u8vector-append u8vector-append) + (spec: 0 generate-proper-tail-calls generate-proper-tail-calls) + (spec: 0 s64vector-length s64vector-length) + (spec: 0 type-exception-arg-id type-exception-arg-id) + (spec: 0 fxmodulo fxmodulo) + (spec: 0 char-set-size char-set-size) + (spec: 0 list->bits list->bits) + (spec: 0 s16vector-set s16vector-set) + (spec: 0 user-info-name user-info-name) + (spec: 0 foreign? foreign?) + (spec: 0 os-exception? os-exception?) + (spec: 0 last-pair last-pair) (spec: 0 - thread-state-normally-terminated? - thread-state-normally-terminated?) - (spec: 0 eq?-hash eq?-hash) - (spec: 0 s64vector-fill! s64vector-fill!) - (spec: 0 char-set-contains? char-set-contains?) - (spec: 0 fx<= fx<=) - (spec: 0 step step) - (spec: 0 path-expand path-expand) - (spec: 0 fxsquare fxsquare) - (spec: 0 with-input-from-vector with-input-from-vector) - (spec: 0 expression-parsing-exception? expression-parsing-exception?) - (spec: 0 u32vector u32vector) - (spec: 0 continuation-return continuation-return) - (spec: 0 bit-field bit-field) - (spec: 0 f32vector-swap! f32vector-swap!) - (spec: 0 module-whitelist-add! module-whitelist-add!) - (spec: 0 sinh sinh) - (spec: 0 system-type system-type) - (spec: 0 u64vector-swap! u64vector-swap!) + unterminated-process-exception-procedure + unterminated-process-exception-procedure) + (spec: 0 flodd? flodd?) + (spec: 0 open-file open-file) (spec: 0 - file-exists-exception-procedure - file-exists-exception-procedure) + thread-group->thread-group-list + thread-group->thread-group-list) + (spec: 0 flhypot flhypot) (spec: 0 - not-in-compilation-context-exception-procedure - not-in-compilation-context-exception-procedure) + unbound-serial-number-exception? + unbound-serial-number-exception?) + (spec: 0 fl>= fl>=) (spec: 0 - display-continuation-backtrace - display-continuation-backtrace) - (spec: 0 open-string-pipe open-string-pipe) - (spec: 0 socket-info? socket-info?) - (spec: 0 flceiling flceiling) - (spec: 0 call-with-output-string call-with-output-string) - (spec: 0 force-output force-output) + not-in-compilation-context-exception-arguments + not-in-compilation-context-exception-arguments) + (spec: 0 tanh tanh) + (spec: 0 u8vector-swap! u8vector-swap!) + (spec: 0 file-last-modification-time file-last-modification-time) + (spec: 0 range-exception-arg-id range-exception-arg-id) + (spec: 0 u64vector-copy u64vector-copy) + (spec: 0 module-search-order-reset! module-search-order-reset!) + (spec: 0 bitwise-ior bitwise-ior) + (spec: 0 service-info-port-number service-info-port-number) + (spec: 0 f32vector-append f32vector-append) + (spec: 0 make-u64vector make-u64vector) + (spec: 0 script-file script-file) + (spec: 0 subs16vector-fill! subs16vector-fill!) + (spec: 0 u16vector->list u16vector->list) + (spec: 0 s8vector-copy! s8vector-copy!) + (spec: 0 any-bit-set? any-bit-set?) (spec: 0 - keyword-expected-exception-procedure - keyword-expected-exception-procedure) + mailbox-receive-timeout-exception? + mailbox-receive-timeout-exception?) + (spec: 0 path-volume path-volume) + (spec: 0 char-set? char-set?) + (spec: 0 fxwrapquotient fxwrapquotient) + (spec: 0 error-exception-message error-exception-message) + (spec: 0 s32vector-length s32vector-length) + (spec: 0 output-port-timeout-set! output-port-timeout-set!) + (spec: 0 char-set-hash char-set-hash) + (spec: 0 thread-join! thread-join!) + (spec: 0 fxarithmetic-shift fxarithmetic-shift) + (spec: 0 length-mismatch-exception? length-mismatch-exception?) + (spec: 0 thread-state-waiting-timeout thread-state-waiting-timeout) + (spec: 0 fold fold) + (spec: 0 open-output-u8vector open-output-u8vector) + (spec: 0 repl-output-port repl-output-port) (spec: 0 - repl-result-history-max-length-set! - repl-result-history-max-length-set!) - (spec: 0 vector-concatenate vector-concatenate) - (spec: 0 thread-receive thread-receive) - (spec: 0 fxeqv fxeqv) - (spec: 0 char-set-filter! char-set-filter!) - (spec: 0 abandoned-mutex-exception? abandoned-mutex-exception?) - (spec: 0 main main) - (spec: 0 s8vector-fill! s8vector-fill!) - (spec: 0 help help) + keyword-expected-exception-arguments + keyword-expected-exception-arguments) (spec: 0 - sfun-conversion-exception-message - sfun-conversion-exception-message) - (spec: 0 tty-mode-set! tty-mode-set!) - (spec: 0 u32vector-swap! u32vector-swap!) - (spec: 0 subf64vector subf64vector) - (spec: 0 bits->vector bits->vector) - (spec: 0 f64vector-set f64vector-set) + terminated-thread-exception-procedure + terminated-thread-exception-procedure) (spec: 0 - wrong-number-of-arguments-exception? - wrong-number-of-arguments-exception?) - (spec: 0 bytevector-u8-ref bytevector-u8-ref) - (spec: 0 euclidean-quotient euclidean-quotient) - (spec: 0 char-foldcase char-foldcase) - (spec: 0 euclidean-remainder euclidean-remainder) - (spec: 0 string->vector string->vector) + invalid-utf8-encoding-exception-arguments + invalid-utf8-encoding-exception-arguments) + (spec: 0 tcp-service-register! tcp-service-register!) + (spec: 0 u16vector-fill! u16vector-fill!) + (spec: 0 delete-directory delete-directory) + (spec: + 0 + invalid-hash-number-exception-arguments + invalid-hash-number-exception-arguments) + (spec: 0 readtable-max-write-level readtable-max-write-level) + (spec: + 0 + fixnum-overflow-exception-arguments + fixnum-overflow-exception-arguments) + (spec: + 0 + no-such-file-or-directory-exception-procedure + no-such-file-or-directory-exception-procedure) + (spec: + 0 + unbound-os-environment-variable-exception-procedure + unbound-os-environment-variable-exception-procedure) + (spec: 0 vector-cumulate vector-cumulate) + (spec: 0 write-file-string-list write-file-string-list) + (spec: + 0 + wrong-number-of-values-exception-vals + wrong-number-of-values-exception-vals) + (spec: 0 file-info-last-access-time file-info-last-access-time) + (spec: 0 mutex-specific mutex-specific) + (spec: 0 copy-bit copy-bit) + (spec: 0 random-f64vector random-f64vector) + (spec: 0 subu16vector-fill! subu16vector-fill!) + (spec: 0 f64vector-copy! f64vector-copy!) + (spec: 0 bitwise-andc2 bitwise-andc2) + (spec: 0 string-swap! string-swap!) + (spec: 0 compilation-target compilation-target) + (spec: 0 string-shrink! string-shrink!) + (spec: 0 group-info? group-info?) + (spec: 0 with-input-from-u8vector with-input-from-u8vector) + (spec: 0 every-bit-set? every-bit-set?) + (spec: 0 all-bits-set? all-bits-set?) + (spec: 0 s64vector-ref s64vector-ref) + (spec: 0 fxnegative? fxnegative?) + (spec: 0 vector-set vector-set) + (spec: 0 s16vector-shrink! s16vector-shrink!) + (spec: 0 thread-state-running? thread-state-running?) + (spec: 0 char-set-complement! char-set-complement!) + (spec: 0 thread-group-terminate! thread-group-terminate!) + (spec: 0 flonum? flonum?) + (spec: 0 read-bytevector! read-bytevector!) + (spec: 0 string-downcase string-downcase) + (spec: 0 finite? finite?) + (spec: 0 make-list make-list) + (spec: 0 command-line command-line) + (spec: 0 ceiling-quotient ceiling-quotient) + (spec: 0 bytevector-copy bytevector-copy) + (spec: 0 open-output-bytevector open-output-bytevector) + (spec: 0 string-foldcase string-foldcase) + (spec: 0 vector-append vector-append) + (spec: 0 nan? nan?) + (spec: 0 ceiling/ ceiling/) + (spec: 0 bytevector-length bytevector-length) + (spec: 0 binary-port? binary-port?) + (spec: 0 emergency-exit emergency-exit) + (spec: 0 euclidean-quotient euclidean-quotient) + (spec: 0 input-port-open? input-port-open?) + (spec: 0 read-string read-string) + (spec: 0 close-port close-port) + (spec: 0 round-remainder round-remainder) + (spec: 0 file-exists? file-exists?) + (spec: 0 euclidean/ euclidean/) + (spec: 0 euclidean-remainder euclidean-remainder) + (spec: 0 floor-remainder floor-remainder) + (spec: 0 bytevector bytevector) + (spec: 0 get-output-bytevector get-output-bytevector) + (spec: 0 error-object? error-object?) + (spec: 0 open-input-string open-input-string) + (spec: 0 string-map string-map) + (spec: 0 textual-port? textual-port?) + (spec: 0 eof-object eof-object) + (spec: 0 exact exact) (spec: 0 vector->string vector->string) - (spec: 0 exact-integer? exact-integer?) - (spec: 0 port? port?) - (spec: 0 bytevector? bytevector?) - (spec: 0 call-with-port call-with-port) + (spec: 0 make-parameter make-parameter) + (spec: 0 vector-map vector-map) + (spec: 0 round-quotient round-quotient) + (spec: 0 boolean=? boolean=?) + (spec: 0 write-string write-string) + (spec: 0 open-input-bytevector open-input-bytevector) + (spec: 0 current-jiffy current-jiffy) + (spec: 0 inexact inexact) + (spec: 0 list-copy list-copy) (spec: 0 delete-file delete-file) + (spec: 0 digit-value digit-value) + (spec: 0 get-environment-variables get-environment-variables) + (spec: 0 make-promise make-promise) + (spec: 0 open-binary-input-file open-binary-input-file) + (spec: 0 bytevector-u8-set! bytevector-u8-set!) + (spec: 0 exit exit) + (spec: 0 error-object-irritants error-object-irritants) + (spec: 0 open-output-string open-output-string) + (spec: 0 bytevector-u8-ref bytevector-u8-ref) + (spec: 0 current-error-port current-error-port) + (spec: 0 peek-u8 peek-u8) + (spec: 0 char-foldcase char-foldcase) + (spec: 0 read-bytevector read-bytevector) + (spec: 0 string->vector string->vector) + (spec: 0 string-copy! string-copy!) + (spec: 0 call-with-port call-with-port) + (spec: 0 bytevector? bytevector?) + (spec: 0 open-binary-output-file open-binary-output-file) + (spec: 0 read-line read-line) + (spec: 0 string->utf8 string->utf8) (spec: 0 string-upcase string-upcase) - (spec: 0 open-input-string open-input-string) + (spec: 0 features features) (spec: 0 u8-ready? u8-ready?) - (spec: 0 string-map string-map) - (spec: 0 vector-append vector-append) - (spec: 0 square square) + (spec: 0 utf8->string utf8->string) + (spec: 0 bytevector-append bytevector-append) + (spec: 0 vector-copy! vector-copy!) (spec: 0 list-set! list-set!) - (spec: 0 write-bytevector write-bytevector) - (spec: 0 digit-value digit-value) - (spec: 0 features features) - (spec: 0 read-error? read-error?) - (spec: 0 boolean=? boolean=?) - (spec: 0 round-quotient round-quotient) - (spec: 0 open-binary-input-file open-binary-input-file) - (spec: 0 get-environment-variables get-environment-variables) - (spec: 0 balanced-remainder balanced-remainder) + (spec: 0 square square) + (spec: 0 vector-copy vector-copy) (spec: 0 write-shared write-shared) + (spec: 0 ceiling-remainder ceiling-remainder) + (spec: 0 bytevector-copy! bytevector-copy!) (spec: 0 output-port-open? output-port-open?) (spec: 0 round/ round/) - (spec: 0 write-string write-string) - (spec: 0 truncate-quotient truncate-quotient) - (spec: 0 get-environment-variable get-environment-variable) + (spec: 0 read-error? read-error?) + (spec: 0 balanced-remainder balanced-remainder) + (spec: 0 exact-integer? exact-integer?) + (spec: 0 port? port?) + (spec: 0 truncate-remainder truncate-remainder) (spec: 0 balanced-quotient balanced-quotient) - (spec: 0 read-u8 read-u8) - (spec: 0 write-simple write-simple) - (spec: 0 error-object-message error-object-message) - (spec: 0 promise? promise?) - (spec: 0 string->utf8 string->utf8) + (spec: 0 exact-integer-sqrt exact-integer-sqrt) + (spec: 0 current-second current-second) + (spec: 0 truncate-quotient truncate-quotient) + (spec: 0 make-bytevector make-bytevector) (spec: 0 floor-quotient floor-quotient) - (spec: 0 open-binary-output-file open-binary-output-file) + (spec: 0 write-bytevector write-bytevector) + (spec: 0 symbol=? symbol=?) (spec: 0 balanced/ balanced/) - (spec: 0 bytevector-append bytevector-append) - (spec: 0 file-error? file-error?) - (spec: 0 string-copy! string-copy!) - (spec: 0 truncate/ truncate/) - (spec: 0 vector-copy vector-copy) - (spec: 0 floor/ floor/) - (spec: 0 get-output-string get-output-string) - (spec: 0 utf8->string utf8->string) - (spec: 0 bytevector-copy! bytevector-copy!) - (spec: 0 write-u8 write-u8) - (spec: 0 read-bytevector read-bytevector) - (spec: 0 ceiling-remainder ceiling-remainder) - (spec: 0 string-for-each string-for-each) - (spec: 0 exact-integer-sqrt exact-integer-sqrt) - (spec: 0 file-exists? file-exists?) - (spec: 0 bytevector-u8-set! bytevector-u8-set!) + (spec: 0 error-object-message error-object-message) (spec: 0 infinite? infinite?) - (spec: 0 command-line command-line) - (spec: 0 euclidean/ euclidean/) - (spec: 0 input-port-open? input-port-open?) (spec: 0 jiffies-per-second jiffies-per-second) - (spec: 0 open-output-bytevector open-output-bytevector) - (spec: 0 vector-copy! vector-copy!) - (spec: 0 finite? finite?) - (spec: 0 make-bytevector make-bytevector) - (spec: 0 nan? nan?) + (spec: 0 get-output-string get-output-string) + (spec: 0 floor/ floor/) + (spec: 0 truncate/ truncate/) + (spec: 0 file-error? file-error?) + (spec: 0 write-simple write-simple) (spec: 0 flush-output-port flush-output-port) - (spec: 0 emergency-exit emergency-exit) - (spec: 0 current-error-port current-error-port) - (spec: 0 read-line read-line) - (spec: 0 round-remainder round-remainder) + (spec: 0 write-u8 write-u8) + (spec: 0 string-for-each string-for-each) (spec: 0 vector-for-each vector-for-each) - (spec: 0 symbol=? symbol=?) - (spec: 0 floor-remainder floor-remainder) - (spec: 0 vector-map vector-map) - (spec: 0 get-output-bytevector get-output-bytevector) - (spec: 0 inexact inexact) - (spec: 0 open-output-string open-output-string) - (spec: 0 current-jiffy current-jiffy) - (spec: 0 exit exit) - (spec: 0 error-object-irritants error-object-irritants) - (spec: 0 eof-object eof-object) - (spec: 0 exact exact) - (spec: 0 ceiling-quotient ceiling-quotient) - (spec: 0 read-string read-string) - (spec: 0 bytevector bytevector) - (spec: 0 error-object? error-object?) - (spec: 0 make-list make-list) - (spec: 0 read-bytevector! read-bytevector!) - (spec: 0 open-input-bytevector open-input-bytevector) - (spec: 0 ceiling/ ceiling/) - (spec: 0 make-parameter make-parameter) - (spec: 0 binary-port? binary-port?) - (spec: 0 bytevector-copy bytevector-copy) - (spec: 0 string-downcase string-downcase) - (spec: 0 close-port close-port) - (spec: 0 string-foldcase string-foldcase) - (spec: 0 textual-port? textual-port?) - (spec: 0 make-promise make-promise) - (spec: 0 truncate-remainder truncate-remainder) - (spec: 0 current-second current-second) - (spec: 0 bytevector-length bytevector-length) - (spec: 0 list-copy list-copy) - (spec: 0 peek-u8 peek-u8) - (spec: 0 rationalize rationalize) - (spec: 0 integer? integer?) - (spec: 0 cdar cdar) - (spec: 0 vector-fill! vector-fill!) - (spec: 0 pair? pair?) - (spec: 0 char-upcase char-upcase) - (spec: 0 cadadr cadadr) - (spec: 0 cdaddr cdaddr) - (spec: 0 read-char read-char) - (spec: 0 open-input-file open-input-file) - (spec: 0 eqv? eqv?) - (spec: 0 make-rectangular make-rectangular) - (spec: 0 string-length string-length) - (spec: 0 newline newline) - (spec: 0 cddadr cddadr) - (spec: 0 string-ci>? string-ci>?) - (spec: 0 list-ref list-ref) - (spec: 0 exact? exact?) - (spec: 0 eval eval) - (spec: 0 caddar caddar) - (spec: 0 log log) - (spec: 0 angle angle) - (spec: 0 >= >=) - (spec: 0 complex? complex?) - (spec: 0 cos cos) - (spec: 0 positive? positive?) + (spec: 0 read-u8 read-u8) + (spec: 0 promise? promise?) + (spec: 0 get-environment-variable get-environment-variable) (spec: 0 denominator denominator) - (spec: 0 cdddar cdddar) - (spec: 0 acos acos) - (spec: 0 char-numeric? char-numeric?) - (spec: 0 char<=? char<=?) - (spec: 0 even? even?) - (spec: 0 make-string make-string) - (spec: 0 stringsymbol string->symbol) + (spec: 0 real-part real-part) + (spec: 0 cadar cadar) + (spec: 0 write-char write-char) + (spec: 0 < <) + (spec: 0 call-with-output-file call-with-output-file) + (spec: 0 null-environment null-environment) + (spec: 0 substring substring) + (spec: 0 zero? zero?) + (spec: 0 gcd gcd) + (spec: 0 scheme-report-environment scheme-report-environment) + (spec: 0 char-ci=? char-ci=?) + (spec: 0 real? real?) + (spec: 0 caadar caadar) + (spec: 0 string>? string>?) + (spec: 0 vector-ref vector-ref) + (spec: 0 null? null?) + (spec: 0 symbol? symbol?) + (spec: 0 max max) + (spec: 0 char-ci>? char-ci>?) + (spec: 0 cdaadr cdaadr) + (spec: 0 caadr caadr) + (spec: 0 display display) + (spec: 0 sqrt sqrt) + (spec: 0 assoc assoc) + (spec: 0 string-ref string-ref) + (spec: 0 string->number string->number) + (spec: 0 vector->list vector->list) + (spec: 0 char-alphabetic? char-alphabetic?) + (spec: 0 numerator numerator) + (spec: 0 caaaar caaaar) + (spec: 0 interaction-environment interaction-environment) + (spec: 0 modulo modulo) + (spec: 0 + +) + (spec: 0 charchar integer->char) + (spec: 0 inexact? inexact?) + (spec: 0 * *) + (spec: 0 char>? char>?) + (spec: 0 pair? pair?) + (spec: 0 cdr cdr) + (spec: 0 positive? positive?) + (spec: 0 log log) + (spec: 0 char-ci<=? char-ci<=?) + (spec: 0 caaadr caaadr) + (spec: 0 newline newline) + (spec: 0 - -) + (spec: 0 list-ref list-ref) + (spec: 0 string-ci>? string-ci>?) + (spec: 0 cddadr cddadr) (spec: 0 caddr caddr) - (spec: 0 tan tan) - (spec: 0 transcript-off transcript-off) + (spec: 0 read-char read-char) + (spec: 0 peek-char peek-char) (spec: 0 string string) - (spec: 0 set-cdr! set-cdr!) - (spec: 0 cdddr cdddr) - (spec: 0 floor floor) - (spec: 0 vector-length vector-length) - (spec: 0 char=? char=?) - (spec: 0 string-copy string-copy) - (spec: 0 negative? negative?) + (spec: 0 for-each for-each) + (spec: 0 transcript-off transcript-off) + (spec: 0 rationalize rationalize) + (spec: 0 member member) + (spec: 0 close-output-port close-output-port) + (spec: 0 acos acos) + (spec: 0 char<=? char<=?) + (spec: 0 char-numeric? char-numeric?) + (spec: 0 cdddar cdddar) (spec: 0 call-with-current-continuation call-with-current-continuation) - (spec: 0 open-output-file open-output-file) - (spec: 0 * *) - (spec: 0 truncate truncate) + (spec: 0 load load) + (spec: 0 set-cdr! set-cdr!) (spec: 0 vector? vector?) - (spec: 0 call-with-input-file call-with-input-file) - (spec: 0 char-ci= >=) + (spec: 0 complex? complex?) + (spec: 0 vector-set! vector-set!) + (spec: 0 list list) + (spec: 0 values values) + (spec: 0 cdadar cdadar) + (spec: 0 floor floor) + (spec: 0 tan tan) + (spec: 0 assv assv) + (spec: 0 abs abs) + (spec: 0 magnitude magnitude) + (spec: 0 char-downcase char-downcase) + (spec: 0 cdar cdar) + (spec: 0 string-ci<=? string-ci<=?) + (spec: 0 cons cons) + (spec: 0 char-upcase char-upcase) + (spec: 0 list->string list->string) (spec: 0 length length) (spec: 0 output-port? output-port?) - (spec: 0 list->string list->string) - (spec: 0 append append) - (spec: 0 string>=? string>=?) - (spec: 0 caaaar caaaar) - (spec: 0 number->string number->string) - (spec: 0 cddddr cddddr) - (spec: 0 odd? odd?) - (spec: 0 char-ready? char-ready?) - (spec: 0 exp exp) - (spec: 0 charexact inexact->exact) - (spec: 0 force force) - (spec: 0 char-ci>=? char-ci>=?) - (spec: 0 not not) - (spec: 0 write write) - (spec: 0 string? string?) - (spec: 0 imag-part imag-part) - (spec: 0 caaar caaar) - (spec: 0 cddr cddr) - (spec: 0 eof-object? eof-object?) - (spec: 0 exact->inexact exact->inexact) - (spec: 0 asin asin) - (spec: 0 char>=? char>=?) + (spec: 0 vector-fill! vector-fill!) + (spec: 0 caddar caddar) + (spec: 0 <= <=) + (spec: 0 angle angle) (spec: 0 list? list?) - (spec: 0 inexact? inexact?) - (spec: 0 integer->char integer->char) - (spec: 0 string-append string-append) - (spec: 0 / /) - (spec: 0 apply apply) - (spec: 0 memv memv) - (spec: 0 caaddr caaddr) + (spec: 0 with-output-to-file with-output-to-file) (spec: 0 cdaaar cdaaar) - (spec: 0 read read) - (spec: 0 ceiling ceiling) - (spec: 0 eq? eq?) - (spec: 0 make-polar make-polar) - (spec: 0 char? char?) - (spec: 0 reverse reverse) - (spec: 0 sin sin) + (spec: 0 input-port? input-port?) + (spec: 0 not not) + (spec: 0 exact? exact?) + (spec: 0 eval eval) + (spec: 0 char-ci>=? char-ci>=?) + (spec: 0 caaddr caaddr) (spec: 0 string-fill! string-fill!) + (spec: 0 char? char?) (spec: 0 with-input-from-file with-input-from-file) - (spec: 0 dynamic-wind dynamic-wind) - (spec: 0 string-civector list->vector) - (spec: 0 caar caar) + (spec: 0 reverse reverse) (spec: 0 cdaar cdaar) - (spec: 0 number? number?) - (spec: 0 equal? equal?) + (spec: 0 ceiling ceiling) + (spec: 0 integer? integer?) (spec: 0 assq assq) - (spec: 0 <= <=) + (spec: 0 apply apply) + (spec: 0 even? even?) (spec: 0 expt expt) - (spec: 0 cadaar cadaar) - (spec: 0 cdadar cdadar) - (spec: 0 numerator numerator) - (spec: 0 assv assv) - (spec: 0 = =) - (spec: 0 map map) - (spec: 0 modulo modulo) - (spec: 0 quotient quotient) - (spec: 0 remainder remainder) - (spec: 0 char-downcase char-downcase) + (spec: 0 make-string make-string) + (spec: 0 caar caar) + (spec: 0 negative? negative?) + (spec: 0 string>=? string>=?) + (spec: 0 write write) + (spec: 0 equal? equal?) + (spec: 0 open-output-file open-output-file) + (spec: 0 char=? char=?) + (spec: 0 make-rectangular make-rectangular) + (spec: 0 string-copy string-copy) + (spec: 0 vector-length vector-length) + (spec: 0 cdddr cdddr) + (spec: 0 string? string?) + (spec: 0 stringlist string->list) + (spec: 0 char->integer char->integer) + (spec: 0 eqv? eqv?) + (spec: 0 call-with-input-file call-with-input-file) + (spec: 0 open-input-file open-input-file) + (spec: 0 symbol->string symbol->string) + (spec: 0 asin asin) + (spec: 0 append append) + (spec: 0 string<=? string<=?) + (spec: 0 char-ci=? char>=?) + (spec: 0 string-ci=? string-ci=?) + (spec: 0 close-input-port close-input-port) + (spec: 0 cddr cddr) + (spec: 0 eof-object? eof-object?) + (spec: 0 exact->inexact exact->inexact) + (spec: 0 current-input-port current-input-port) + (spec: 0 map map) + (spec: 0 make-polar make-polar) + (spec: 0 min min) (spec: 0 procedure? procedure?) - (spec: 0 write-char write-char) - (spec: 0 cadar cadar) (spec: 0 lcm lcm) - (spec: 0 > >) + (spec: 0 force force) + (spec: 0 remainder remainder) + (spec: 0 string=? string=?) (spec: 0 boolean? boolean?) - (spec: 0 rational? rational?) - (spec: 0 call-with-values call-with-values) - (spec: 0 cdadr cdadr) - (spec: 0 string-ci=? string-ci=?) - (spec: 0 atan atan) - (spec: 0 min min) - (spec: 0 symbol->string symbol->string) - (spec: 0 cadddr cadddr) - (spec: 0 round round) - (spec: 0 vector vector) - (spec: 0 + +) - (spec: 0 max max) - (spec: 0 interaction-environment interaction-environment) - (spec: 0 cddaar cddaar) - (spec: 0 null-environment null-environment) (spec: 0 string-ci>=? string-ci>=?) (spec: 0 char-upper-case? char-upper-case?) - (spec: 0 cons cons) - (spec: 0 gcd gcd) - (spec: 0 input-port? input-port?) - (spec: 0 cadr cadr) - (spec: 0 char-alphabetic? char-alphabetic?) - (spec: 0 vector->list vector->list) - (spec: 0 close-input-port close-input-port) - (spec: 0 string->number string->number) - (spec: 0 string=? string=?) - (spec: 0 transcript-on transcript-on) + (spec: 0 eq? eq?) + (spec: 0 dynamic-wind dynamic-wind) + (spec: 0 cddaar cddaar) (spec: 0 car car) - (spec: 0 null? null?) - (spec: 0 cddar cddar) - (spec: 0 char-lower-case? char-lower-case?) - (spec: 0 sqrt sqrt) + (spec: 0 cadddr cadddr) + (spec: 0 current-output-port current-output-port) + (spec: 0 inexact->exact inexact->exact) + (spec: 0 number? number?) + (spec: 0 string-append string-append) + (spec: 0 round round) + (spec: 0 vector vector) + (spec: 0 rational? rational?) + (spec: 0 quotient quotient) + (spec: 0 = =) + (spec: 0 imag-part imag-part) (spec: 0 char-whitespace? char-whitespace?) - (spec: 0 string<=? string<=?) - (spec: 0 current-input-port current-input-port) - (spec: 0 cdr cdr) - (spec: 0 list-tail list-tail) - (spec: 0 char>? char>?) - (spec: 0 symbol? symbol?) - (spec: 0 real-part real-part) - (spec: 0 char->integer char->integer) - (spec: 0 string->list string->list) - (spec: 0 - -) - (spec: 0 magnitude magnitude) - (spec: 0 string>? string>?) - (spec: 0 caaadr caaadr) - (spec: 0 real? real?) - (spec: 0 char-ci<=? char-ci<=?) - (spec: 0 string->symbol string->symbol) - (spec: 0 close-output-port close-output-port) - (spec: 0 caadar caadar) - (spec: 0 load load) - (spec: 0 vector-ref vector-ref) - (spec: 0 scheme-report-environment scheme-report-environment) - (spec: 0 display display) - (spec: 0 call-with-output-file call-with-output-file) - (spec: 0 char-ci=? char-ci=?) - (spec: 0 for-each for-each) - (spec: 0 member member) - (spec: 0 peek-char peek-char) - (spec: 0 string-ref string-ref) - (spec: 0 caadr caadr) - (spec: 0 cdaadr cdaadr) - (spec: 0 list list) - (spec: 0 values values) - (spec: 0 vector-set! vector-set!) - (spec: 0 assoc assoc) - (spec: 0 < <) - (spec: 0 make-vector make-vector) - (spec: 0 substring substring) - (spec: 0 zero? zero?) - (spec: 0 char-ci>? char-ci>?) - (spec: 0 string-set! string-set!) - (spec: 0 memq memq) - (spec: 0 Runtime Runtime) - (spec: 0 GambitRuntime GambitRuntime) - (spec: 0 RuntimeAliases RuntimeAliases) + (spec: 0 memv memv) + (spec: 0 char-lower-case? char-lower-case?) + (spec: 0 cddar cddar) + (spec: 0 cadr cadr) + (spec: 0 cdaddr cdaddr) + (spec: 0 sin sin) + (spec: 0 number->string number->string) + (spec: 0 exp exp) + (spec: 0 string-civector list->vector) + (spec: 0 transcript-on transcript-on) + (spec: 0 read read) + (spec: 0 cadadr cadadr) + (spec: 0 > >) + (spec: 0 string-length string-length) + (spec: 0 / /) + (spec: 0 odd? odd?) (spec: 0 GerbilRuntime GerbilRuntime) + (spec: 0 RuntimeAliases RuntimeAliases) + (spec: 0 GambitRuntime GambitRuntime) + (spec: 0 Runtime Runtime) (spec: 0 R5RSRuntime R5RSRuntime) (spec: 0 R7RSRuntime R7RSRuntime) (spec: 0 %%app-dotted %%app) @@ -3397,3117 +3522,3196 @@ namespace: gerbil/core (spec: 0 do-while/c do-while) (spec: 1 identifier-rules identifier-rules) (spec: 1 quasisyntax quasisyntax) + (spec: 1 with-identifiers with-identifiers) + (spec: 1 defsyntax-case defsyntax-case) + (spec: 1 with-identifier with-identifier) (spec: 1 macro-object-macro-set! macro-object-macro-set!) + (spec: 1 macro-object macro-object) + (spec: 1 ¯o-object-macro-set! ¯o-object-macro-set!) (spec: 1 macro-object-macro macro-object-macro) (spec: 1 macro-object::t macro-object::t) - (spec: 1 make-macro-object make-macro-object) (spec: 1 ¯o-object-macro ¯o-object-macro) - (spec: 1 ¯o-object-macro-set! ¯o-object-macro-set!) - (spec: 1 macro-object macro-object) + (spec: 1 make-macro-object make-macro-object) (spec: 1 macro-object::apply-macro-expander macro-object::apply-macro-expander) (spec: 1 macro-object? macro-object?) - (spec: 1 with-syntax with-syntax) - (spec: 1 syntax-rules syntax-rules) (spec: 1 syntax/loc syntax/loc) (spec: 1 with-syntax* with-syntax*) - (spec: 1 syntax syntax) + (spec: 1 syntax-rules syntax-rules) + (spec: 1 with-syntax with-syntax) (spec: 1 syntax-case syntax-case) - (spec: 1 stx-box? stx-box?) - (spec: 1 expander-binding? expander-binding?) - (spec: 1 make-import-export-expander make-import-export-expander) - (spec: 1 core-expand core-expand) - (spec: 1 top-context? top-context?) - (spec: 1 make-syntax-pattern make-syntax-pattern) - (spec: 1 identifier? identifier?) - (spec: 1 local-context? local-context?) - (spec: 1 ellipsis? ellipsis?) - (spec: 1 stx-datum? stx-datum?) - (spec: 1 import-binding-e import-binding-e) - (spec: 1 user-expander? user-expander?) - (spec: 1 module-import-weak? module-import-weak?) + (spec: 1 syntax syntax) + (spec: 1 module-import? module-import?) + (spec: 1 expander-context-id expander-context-id) + (spec: + 1 + core-resolve-library-module-path + core-resolve-library-module-path) + (spec: 1 expander-binding-e expander-binding-e) + (spec: 1 user-expander-context user-expander-context) (spec: 1 core-context-top core-context-top) - (spec: 1 stx-eq? stx-eq?) - (spec: 1 syntax-e syntax-e) - (spec: 1 module-import-source module-import-source) - (spec: 1 syntax-pattern-depth syntax-pattern-depth) + (spec: 1 syntax-error? syntax-error?) + (spec: 1 gentemps gentemps) (spec: 1 eval-module eval-module) - (spec: 1 stx-getq stx-getq) - (spec: 1 check-duplicate-identifiers check-duplicate-identifiers) - (spec: 1 module-context-ns module-context-ns) - (spec: 1 core-quote-syntax core-quote-syntax) + (spec: 1 make-export-expander make-export-expander) + (spec: 1 eval-syntax eval-syntax) + (spec: 1 core-expand-import-source core-expand-import-source) + (spec: 1 stx-pair? stx-pair?) + (spec: 1 module-context-code module-context-code) + (spec: 1 alias-binding-e alias-binding-e) (spec: 1 core-module-export->import core-module-export->import) - (spec: 1 resolve-identifier resolve-identifier) - (spec: 1 module-export-context module-export-context) - (spec: 1 module-context-export module-context-export) - (spec: 1 core-resolve-module-path core-resolve-module-path) - (spec: 1 export-set-source export-set-source) - (spec: 1 core-identifier=? core-identifier=?) - (spec: 1 syntax-pattern-id syntax-pattern-id) + (spec: 1 module-context-import module-context-import) (spec: 1 stx-char? stx-char?) - (spec: 1 syntax->datum syntax->datum) - (spec: 1 user-expander-phi user-expander-phi) - (spec: 1 stx-plist? stx-plist?) - (spec: 1 prelude-context? prelude-context?) - (spec: 1 eval-syntax eval-syntax) - (spec: 1 current-expander-marks current-expander-marks) + (spec: 1 stx-foldr stx-foldr) + (spec: 1 make-user-expander make-user-expander) + (spec: 1 syntax-pattern-id syntax-pattern-id) + (spec: 1 stx-source stx-source) + (spec: 1 stx-eq? stx-eq?) + (spec: 1 stx-equal? stx-equal?) (spec: 1 macro-expand-syntax macro-expand-syntax) - (spec: 1 make-local-context make-local-context) - (spec: 1 top-binding? top-binding?) - (spec: 1 syntax-error? syntax-error?) - (spec: 1 stx-length stx-length) + (spec: 1 stx-getq stx-getq) + (spec: 1 current-module-reader-path current-module-reader-path) + (spec: 1 syntax-local-temp syntax-local-temp) + (spec: 1 syntax-binding-e syntax-binding-e) (spec: 1 module-context? module-context?) + (spec: 1 binding-id binding-id) + (spec: 1 module-import-source module-import-source) + (spec: 1 syntax-local-value syntax-local-value) + (spec: 1 stx-andmap stx-andmap) + (spec: 1 resolve-identifier resolve-identifier) + (spec: 1 core-resolve-identifier core-resolve-identifier) + (spec: 1 core-library-module-path? core-library-module-path?) + (spec: 1 alias-binding? alias-binding?) + (spec: 1 stx-cdr stx-cdr) + (spec: 1 underscore? underscore?) + (spec: 1 core-quote-syntax core-quote-syntax) + (spec: 1 current-module-reader-args current-module-reader-args) + (spec: 1 stx-plist? stx-plist?) (spec: 1 extern-binding? extern-binding?) - (spec: 1 module-export-phi module-export-phi) - (spec: 1 import-set? import-set?) + (spec: 1 stx-identifier stx-identifier) + (spec: 1 expander-binding? expander-binding?) + (spec: 1 import-set-imports import-set-imports) + (spec: 1 stx-box? stx-box?) + (spec: 1 bound-identifier=? bound-identifier=?) + (spec: 1 core-expand core-expand) + (spec: 1 expander? expander?) + (spec: 1 module-export-key module-export-key) + (spec: 1 syntax->datum syntax->datum) + (spec: 1 core-resolve-module-path core-resolve-module-path) + (spec: 1 stx-datum? stx-datum?) (spec: 1 core-expand-head core-expand-head) - (spec: 1 import-module import-module) - (spec: 1 import-set-source import-set-source) - (spec: 1 stx-reverse stx-reverse) - (spec: 1 stx-number? stx-number?) - (spec: 1 core-resolve-identifier core-resolve-identifier) - (spec: 1 stx-null? stx-null?) - (spec: 1 syntax-split-splice syntax-split-splice) - (spec: 1 syntax-local-rewrap syntax-local-rewrap) - (spec: 1 import-set-phi import-set-phi) - (spec: 1 export-set? export-set?) - (spec: 1 export-set-phi export-set-phi) (spec: 1 genident genident) - (spec: 1 gentemps gentemps) - (spec: 1 syntax-local-value syntax-local-value) - (spec: 1 bound-identifier=? bound-identifier=?) - (spec: 1 stx-pair/null? stx-pair/null?) - (spec: 1 core-expand-expression+1 core-expand-expression+1) - (spec: 1 stx-cdr stx-cdr) - (spec: 1 syntax-local-pattern? syntax-local-pattern?) + (spec: 1 binding? binding?) + (spec: 1 core-expand-export-source core-expand-export-source) + (spec: 1 syntax-local-unwrap syntax-local-unwrap) + (spec: 1 stx-list? stx-list?) + (spec: 1 stx-ormap stx-ormap) + (spec: 1 make-syntax-pattern make-syntax-pattern) + (spec: 1 syntax-local-rewrap syntax-local-rewrap) (spec: 1 syntax-binding? syntax-binding?) - (spec: 1 stx-list-ref stx-list-ref) - (spec: 1 expander-e expander-e) - (spec: 1 expander-binding-e expander-binding-e) - (spec: 1 stx-last stx-last) + (spec: 1 module-context-ns module-context-ns) + (spec: 1 make-module-export make-module-export) + (spec: 1 prelude-context? prelude-context?) + (spec: 1 raise-syntax-error raise-syntax-error) (spec: 1 stx-false? stx-false?) - (spec: 1 stx-car stx-car) + (spec: 1 check-duplicate-identifiers check-duplicate-identifiers) + (spec: 1 runtime-binding? runtime-binding?) + (spec: 1 ellipsis? ellipsis?) + (spec: 1 module-export-name module-export-name) + (spec: 1 export-set-exports export-set-exports) (spec: 1 stx-foldl stx-foldl) - (spec: 1 core-identifier-key core-identifier-key) - (spec: 1 stx-list-tail stx-list-tail) - (spec: 1 current-compilation-target current-compilation-target) - (spec: 1 stx-andmap stx-andmap) - (spec: 1 current-expander-compiling? current-expander-compiling?) - (spec: 1 module-context-code module-context-code) - (spec: 1 stx-wrap-source stx-wrap-source) - (spec: 1 expander? expander?) + (spec: 1 stx-last-pair stx-last-pair) + (spec: 1 syntax-check-splice-targets syntax-check-splice-targets) + (spec: 1 identifier? identifier?) + (spec: 1 import-set-phi import-set-phi) + (spec: 1 local-context? local-context?) + (spec: 1 stx-last stx-last) + (spec: 1 export-expander? export-expander?) + (spec: 1 export-set-phi export-set-phi) + (spec: 1 stx-number? stx-number?) (spec: 1 stx-keyword? stx-keyword?) - (spec: 1 module-binding? module-binding?) - (spec: 1 feature-expander? feature-expander?) - (spec: 1 module-import-name module-import-name) - (spec: 1 stx-for-each stx-for-each) + (spec: 1 import-set? import-set?) + (spec: 1 current-compilation-target current-compilation-target) (spec: 1 stx-eqv? stx-eqv?) - (spec: 1 free-identifier=? free-identifier=?) - (spec: 1 syntax-pattern? syntax-pattern?) + (spec: 1 stx-car stx-car) + (spec: 1 expander-e expander-e) + (spec: 1 module-export? module-export?) + (spec: 1 stx-length stx-length) + (spec: 1 import-binding? import-binding?) + (spec: 1 core-apply-expander core-apply-expander) + (spec: 1 macro-expand-syntax-case macro-expand-syntax-case) + (spec: 1 import-binding-e import-binding-e) (spec: 1 current-expander-phi current-expander-phi) - (spec: 1 stx-list? stx-list?) - (spec: 1 import-export-expander? import-export-expander?) - (spec: 1 syntax->list syntax->list) - (spec: 1 stx-boolean? stx-boolean?) - (spec: 1 core-library-module-path? core-library-module-path?) - (spec: 1 syntax-binding-e syntax-binding-e) - (spec: 1 user-expander-context user-expander-context) - (spec: 1 export-expander? export-expander?) - (spec: 1 datum->syntax datum->syntax) - (spec: 1 stx-fixnum? stx-fixnum?) - (spec: 1 core-apply-expander core-apply-expander) - (spec: 1 alias-binding? alias-binding?) + (spec: 1 core-expand-expression+1 core-expand-expression+1) + (spec: 1 current-expander-marks current-expander-marks) + (spec: 1 module-export-phi module-export-phi) + (spec: 1 import-set-source import-set-source) + (spec: 1 syntax-local-introduce syntax-local-introduce) + (spec: 1 export-set? export-set?) + (spec: 1 stx-null? stx-null?) + (spec: 1 make-import-expander make-import-expander) + (spec: 1 core-identifier=? core-identifier=?) + (spec: 1 stx-reverse stx-reverse) + (spec: 1 stx-string? stx-string?) + (spec: 1 syntax-pattern? syntax-pattern?) + (spec: 1 syntax-pattern-depth syntax-pattern-depth) + (spec: 1 export-set-source export-set-source) + (spec: 1 stx-list-ref stx-list-ref) + (spec: 1 make-module-import make-module-import) + (spec: 1 identifier-list? identifier-list?) + (spec: 1 current-expander-context current-expander-context) + (spec: 1 user-expander? user-expander?) (spec: 1 syntax-local-e syntax-local-e) - (spec: 1 make-export-expander make-export-expander) - (spec: 1 current-module-reader-path current-module-reader-path) - (spec: 1 module-import? module-import?) - (spec: 1 make-module-export make-module-export) - (spec: 1 module-export-key module-export-key) - (spec: 1 export-set-exports export-set-exports) - (spec: 1 stx-e stx-e) - (spec: 1 syntax-check-splice-targets syntax-check-splice-targets) - (spec: 1 stx-last-pair stx-last-pair) - (spec: 1 stx-ormap stx-ormap) + (spec: 1 user-expander-phi user-expander-phi) + (spec: 1 import-expander? import-expander?) + (spec: 1 make-import-export-expander make-import-export-expander) + (spec: 1 syntax->list syntax->list) (spec: 1 core-resolve-module-export core-resolve-module-export) - (spec: 1 core-expand-export-source core-expand-export-source) - (spec: 1 binding-id binding-id) - (spec: 1 module-export-weak? module-export-weak?) - (spec: 1 identifier-list? identifier-list?) - (spec: 1 stx-map stx-map) - (spec: 1 stx-identifier stx-identifier) - (spec: 1 stx-pair? stx-pair?) - (spec: 1 stx-equal? stx-equal?) + (spec: 1 top-binding? top-binding?) + (spec: 1 stx-e stx-e) + (spec: 1 module-binding? module-binding?) + (spec: 1 core-identifier-key core-identifier-key) + (spec: 1 stx-wrap-source stx-wrap-source) + (spec: 1 module-export-context module-export-context) + (spec: 1 free-identifier=? free-identifier=?) + (spec: 1 current-expander-compiling? current-expander-compiling?) + (spec: 1 stx-for-each stx-for-each) + (spec: 1 feature-expander? feature-expander?) + (spec: 1 syntax-split-splice syntax-split-splice) + (spec: 1 module-import-name module-import-name) + (spec: 1 module-import-weak? module-import-weak?) + (spec: 1 stx-boolean? stx-boolean?) (spec: 1 current-expander-path current-expander-path) - (spec: 1 expander-context-id expander-context-id) - (spec: 1 import-set-imports import-set-imports) - (spec: 1 macro-expand-syntax-case macro-expand-syntax-case) - (spec: 1 binding? binding?) - (spec: 1 import-expander? import-expander?) - (spec: 1 module-import-phi module-import-phi) - (spec: 1 stx-foldr stx-foldr) - (spec: 1 core-expand-import-source core-expand-import-source) - (spec: 1 stx-source stx-source) + (spec: 1 import-module import-module) (spec: 1 stx-vector? stx-vector?) - (spec: 1 module-context-import module-context-import) - (spec: 1 make-import-expander make-import-expander) - (spec: 1 current-expander-context current-expander-context) - (spec: 1 current-module-reader-args current-module-reader-args) - (spec: 1 make-user-expander make-user-expander) - (spec: - 1 - core-resolve-library-module-path - core-resolve-library-module-path) - (spec: 1 underscore? underscore?) - (spec: 1 syntax-local-unwrap syntax-local-unwrap) - (spec: 1 runtime-binding? runtime-binding?) - (spec: 1 make-module-import make-module-import) - (spec: 1 raise-syntax-error raise-syntax-error) - (spec: 1 syntax-local-introduce syntax-local-introduce) - (spec: 1 alias-binding-e alias-binding-e) - (spec: 1 module-export? module-export?) - (spec: 1 import-binding? import-binding?) - (spec: 1 module-export-name module-export-name) - (spec: 1 stx-string? stx-string?) + (spec: 1 stx-map stx-map) + (spec: 1 make-local-context make-local-context) + (spec: 1 syntax-local-pattern? syntax-local-pattern?) + (spec: 1 module-export-weak? module-export-weak?) + (spec: 1 stx-fixnum? stx-fixnum?) + (spec: 1 stx-list-tail stx-list-tail) + (spec: 1 syntax-e syntax-e) + (spec: 1 module-context-export module-context-export) + (spec: 1 top-context? top-context?) + (spec: 1 module-import-phi module-import-phi) + (spec: 1 stx-pair/null? stx-pair/null?) + (spec: 1 datum->syntax datum->syntax) + (spec: 1 import-export-expander? import-export-expander?) + (spec: 1 SyntaxSugar SyntaxSugar) (spec: 1 SyntaxCase SyntaxCase) (spec: 1 ExpanderRuntime ExpanderRuntime) - (spec: 1 SyntaxSugar SyntaxSugar) (spec: 2 !class-precedence-list !class-precedence-list) + (spec: 2 &type-env-super-set! &type-env-super-set!) (spec: 2 type-env-var-set! type-env-var-set!) + (spec: 2 type-env-var type-env-var) + (spec: 2 &type-env-checked? &type-env-checked?) (spec: 2 make-type-env make-type-env) - (spec: 2 type-env-lookup type-env-lookup) - (spec: 2 &type-env-super-set! &type-env-super-set!) - (spec: 2 type-env-checked?-set! type-env-checked?-set!) + (spec: 2 &type-env-super &type-env-super) + (spec: 2 type-env-checked? type-env-checked?) + (spec: 2 &type-env-type-set! &type-env-type-set!) (spec: 2 type-env type-env) - (spec: 2 type-env-super-set! type-env-super-set!) - (spec: 2 type-env? type-env?) - (spec: 2 type-env-var type-env-var) - (spec: 2 type-env-type type-env-type) (spec: 2 &type-env-type &type-env-type) - (spec: 2 type-env-type-set! type-env-type-set!) - (spec: 2 current-type-env current-type-env) - (spec: 2 &type-env-type-set! &type-env-type-set!) - (spec: 2 type-env::t type-env::t) - (spec: 2 type-env-checked? type-env-checked?) + (spec: 2 type-env-lookup type-env-lookup) + (spec: 2 type-env-type type-env-type) (spec: 2 &type-env-var &type-env-var) - (spec: 2 &type-env-checked? &type-env-checked?) - (spec: 2 type-env-super type-env-super) (spec: 2 &type-env-checked?-set! &type-env-checked?-set!) (spec: 2 &type-env-var-set! &type-env-var-set!) - (spec: 2 &type-env-super &type-env-super) - (spec: - 2 - interface-info-instance-type-set! - interface-info-instance-type-set!) - (spec: 2 &interface-info-namespace &interface-info-namespace) - (spec: 2 &interface-info-instance-type &interface-info-instance-type) + (spec: 2 type-env-super-set! type-env-super-set!) + (spec: 2 type-env::t type-env::t) + (spec: 2 type-env-type-set! type-env-type-set!) + (spec: 2 type-env-super type-env-super) + (spec: 2 type-env-checked?-set! type-env-checked?-set!) + (spec: 2 type-env? type-env?) + (spec: 2 current-type-env current-type-env) + (spec: 2 interface-info-namespace interface-info-namespace) (spec: 2 - interface-info-interface-methods-set! - interface-info-interface-methods-set!) + interface-info-instance-satisfies-predicate-set! + interface-info-instance-satisfies-predicate-set!) (spec: 2 - &interface-info-instance-constructor-set! - &interface-info-instance-constructor-set!) + &interface-info-instance-predicate + &interface-info-instance-predicate) (spec: 2 - &interface-info-interface-precedence-list-set! - &interface-info-interface-precedence-list-set!) - (spec: 2 interface-info? interface-info?) + &interface-info-instance-try-constructor-set! + &interface-info-instance-try-constructor-set!) (spec: 2 - &interface-info-interface-mixin-set! - &interface-info-interface-mixin-set!) + &interface-info-instance-constructor + &interface-info-instance-constructor) (spec: 2 - &interface-info-implementation-methods-set! - &interface-info-implementation-methods-set!) + interface-info-instance-satisfies-predicate + interface-info-instance-satisfies-predicate) (spec: 2 - &interface-info-unchecked-implementation-methods-set! - &interface-info-unchecked-implementation-methods-set!) + interface-info-interface-descriptor-set! + interface-info-interface-descriptor-set!) + (spec: 2 make-interface-info make-interface-info) (spec: 2 - interface-info-instance-try-constructor-set! - interface-info-instance-try-constructor-set!) + &interface-info-interface-methods + &interface-info-interface-methods) (spec: 2 - interface-info-unchecked-implementation-methods-set! - interface-info-unchecked-implementation-methods-set!) - (spec: 2 syntax-local-interface-info? syntax-local-interface-info?) + interface-info-interface-mixin-set! + interface-info-interface-mixin-set!) (spec: 2 - &interface-info-instance-try-constructor-set! - &interface-info-instance-try-constructor-set!) + interface-info-instance-constructor-set! + interface-info-instance-constructor-set!) (spec: 2 - interface-info-interface-precedence-list - interface-info-interface-precedence-list) + interface-info-interface-mixin + interface-info-interface-mixin) + (spec: 2 interface-info-id-set! interface-info-id-set!) + (spec: 2 interface-info? interface-info?) (spec: 2 - interface-info-interface-mixin-set! - interface-info-interface-mixin-set!) - (spec: 2 interface-info-namespace interface-info-namespace) + interface-info-interface-methods + interface-info-interface-methods) (spec: 2 - &interface-info-interface-descriptor-set! - &interface-info-interface-descriptor-set!) + interface-info-implementation-methods + interface-info-implementation-methods) (spec: 2 - interface-mixin->precedence-list - interface-mixin->precedence-list) + &interface-info-interface-methods-set! + &interface-info-interface-methods-set!) (spec: 2 interface-info::t interface-info::t) - (spec: 2 interface-info-namespace-set! interface-info-namespace-set!) - (spec: 2 &interface-info-name &interface-info-name) - (spec: - 2 - interface-info-implementation-methods - interface-info-implementation-methods) (spec: 2 - &interface-info-interface-methods - &interface-info-interface-methods) + &interface-info-instance-satisfies-predicate + &interface-info-instance-satisfies-predicate) (spec: 2 interface-info-interface-precedence-list-set! interface-info-interface-precedence-list-set!) (spec: 2 - &interface-info-instance-type-set! - &interface-info-instance-type-set!) - (spec: 2 interface-info-name interface-info-name) - (spec: - 2 - &interface-info-implementation-methods - &interface-info-implementation-methods) + &interface-info-implementation-methods-set! + &interface-info-implementation-methods-set!) (spec: 2 - interface-info-interface-descriptor - interface-info-interface-descriptor) + interface-info-implementation-methods-set! + interface-info-implementation-methods-set!) (spec: 2 - &interface-info-instance-constructor - &interface-info-instance-constructor) + &interface-info-namespace-set! + &interface-info-namespace-set!) + (spec: 2 &interface-info-id-set! &interface-info-id-set!) (spec: 2 - &interface-info-instance-satisfies-predicate-set! - &interface-info-instance-satisfies-predicate-set!) + interface-info-instance-predicate-set! + interface-info-instance-predicate-set!) + (spec: 2 &interface-info-name-set! &interface-info-name-set!) (spec: 2 &interface-info-instance-try-constructor &interface-info-instance-try-constructor) (spec: 2 - &interface-info-interface-precedence-list - &interface-info-interface-precedence-list) + interface-info-unchecked-implementation-methods + interface-info-unchecked-implementation-methods) (spec: 2 - &interface-info-instance-predicate-set! - &interface-info-instance-predicate-set!) + &interface-info-interface-precedence-list-set! + &interface-info-interface-precedence-list-set!) (spec: 2 - interface-info-instance-constructor - interface-info-instance-constructor) + interface-info::apply-macro-expander + interface-info::apply-macro-expander) (spec: 2 - interface-info-interface-descriptor-set! - interface-info-interface-descriptor-set!) + interface-info-type-descriptor + interface-info-type-descriptor) (spec: 2 - interface-info-instance-try-constructor - interface-info-instance-try-constructor) + &interface-info-unchecked-implementation-methods + &interface-info-unchecked-implementation-methods) (spec: 2 - &interface-info-instance-predicate - &interface-info-instance-predicate) - (spec: 2 interface-info-instance-type interface-info-instance-type) - (spec: 2 interface-info-name-set! interface-info-name-set!) + &interface-info-instance-predicate-set! + &interface-info-instance-predicate-set!) (spec: 2 - &interface-info-instance-satisfies-predicate - &interface-info-instance-satisfies-predicate) + &interface-info-type-descriptor-set! + &interface-info-type-descriptor-set!) (spec: 2 - &interface-info-unchecked-implementation-methods - &interface-info-unchecked-implementation-methods) + interface-info-instance-try-constructor-set! + interface-info-instance-try-constructor-set!) (spec: 2 - &interface-info-namespace-set! - &interface-info-namespace-set!) - (spec: 2 interface-info interface-info) + &interface-info-instance-constructor-set! + &interface-info-instance-constructor-set!) + (spec: 2 syntax-local-interface-info? syntax-local-interface-info?) + (spec: 2 &interface-info-name &interface-info-name) (spec: 2 - interface-info-instance-satisfies-predicate - interface-info-instance-satisfies-predicate) + interface-info-instance-predicate + interface-info-instance-predicate) (spec: 2 - interface-info-instance-constructor-set! - interface-info-instance-constructor-set!) + &interface-info-type-descriptor + &interface-info-type-descriptor) (spec: 2 - interface-info-implementation-methods-set! - interface-info-implementation-methods-set!) + interface-info-instance-constructor + interface-info-instance-constructor) (spec: 2 - interface-info::apply-macro-expander - interface-info::apply-macro-expander) + interface-info-method-signature + interface-info-method-signature) (spec: 2 - interface-info-unchecked-implementation-methods - interface-info-unchecked-implementation-methods) + interface-info-type-descriptor-set! + interface-info-type-descriptor-set!) (spec: 2 - interface-info-method-signature - interface-info-method-signature) + &interface-info-interface-descriptor-set! + &interface-info-interface-descriptor-set!) (spec: 2 - &interface-info-interface-methods-set! - &interface-info-interface-methods-set!) + interface-info-unchecked-implementation-methods-set! + interface-info-unchecked-implementation-methods-set!) (spec: 2 - interface-info-interface-mixin - interface-info-interface-mixin) - (spec: 2 make-interface-info make-interface-info) + &interface-info-implementation-methods + &interface-info-implementation-methods) + (spec: 2 &interface-info-id &interface-info-id) + (spec: 2 interface-info-id interface-info-id) (spec: 2 - interface-info-instance-predicate-set! - interface-info-instance-predicate-set!) + interface-info-interface-methods-set! + interface-info-interface-methods-set!) + (spec: + 2 + interface-info-instance-try-constructor + interface-info-instance-try-constructor) + (spec: + 2 + &interface-info-interface-descriptor + &interface-info-interface-descriptor) + (spec: 2 interface-info-name interface-info-name) + (spec: 2 interface-info-namespace-set! interface-info-namespace-set!) (spec: 2 interface-identifier->precedence-list interface-identifier->precedence-list) - (spec: 2 &interface-info-name-set! &interface-info-name-set!) (spec: 2 - interface-info-instance-satisfies-predicate-set! - interface-info-instance-satisfies-predicate-set!) + interface-info-interface-descriptor + interface-info-interface-descriptor) + (spec: 2 interface-info-name-set! interface-info-name-set!) + (spec: 2 &interface-info-namespace &interface-info-namespace) (spec: 2 - interface-info-interface-methods - interface-info-interface-methods) + &interface-info-unchecked-implementation-methods-set! + &interface-info-unchecked-implementation-methods-set!) (spec: 2 - &interface-info-interface-descriptor - &interface-info-interface-descriptor) + &interface-info-interface-precedence-list + &interface-info-interface-precedence-list) + (spec: + 2 + interface-info-interface-precedence-list + interface-info-interface-precedence-list) + (spec: + 2 + &interface-info-instance-satisfies-predicate-set! + &interface-info-instance-satisfies-predicate-set!) + (spec: + 2 + interface-mixin->precedence-list + interface-mixin->precedence-list) + (spec: 2 interface-info interface-info) (spec: 2 &interface-info-interface-mixin &interface-info-interface-mixin) (spec: 2 - interface-info-instance-predicate - interface-info-instance-predicate) + &interface-info-interface-mixin-set! + &interface-info-interface-mixin-set!) (spec: 2 is-signature? is-signature?) + (spec: 1 defstruct/c defstruct/c) + (spec: 1 with-procedure-contract with-procedure-contract) (spec: 1 do-loop-step do-loop-step) + (spec: 1 defmutable defmutable) + (spec: 1 def/c def/c) + (spec: 1 case-lambda/c case-lambda/c) + (spec: 1 @method @method) + (spec: 1 def*/c def*/c) + (spec: 1 with-procedure-signature with-procedure-signature) (spec: 1 with-procedure-unchecked-contract with-procedure-unchecked-contract) + (spec: 1 defmethod/c defmethod/c) (spec: 1 with-receiver with-receiver) - (spec: 1 with-procedure-signature with-procedure-signature) - (spec: 1 @method @method) - (spec: 1 let/c let/c) - (spec: 1 defmutable defmutable) - (spec: 1 lambda/c lambda/c) - (spec: 1 do-while/c do-while/c) - (spec: 1 def*/c def*/c) (spec: 1 do/c do/c) - (spec: 1 with-procedure-contract with-procedure-contract) - (spec: 1 case-lambda/c case-lambda/c) + (spec: 1 do-loop-result do-loop-result) (spec: 1 defmutable* defmutable*) - (spec: 1 defmethod/c defmethod/c) + (spec: 1 do-while/c do-while/c) + (spec: 1 lambda/c lambda/c) (spec: 1 defclass/c defclass/c) - (spec: 1 def/c def/c) - (spec: 1 defstruct/c defstruct/c) - (spec: 1 do-loop-result do-loop-result) + (spec: 1 let/c let/c) + (spec: 2 signature-arguments-in signature-arguments-in) + (spec: 2 check-signature! check-signature!) + (spec: 2 keywordtype-descriptor resolve-type->type-descriptor) (spec: 2 resolve-type->identifier resolve-type->identifier) - (spec: 2 type-reference? type-reference?) + (spec: 2 type-reference type-reference) + (spec: 2 type-reference::t type-reference::t) + (spec: 2 type-identifier? type-identifier?) + (spec: 2 make-type-reference make-type-reference) (spec: 2 type-reference-identifier type-reference-identifier) (spec: 2 type-reference-identifier-set! type-reference-identifier-set!) - (spec: - 2 - &type-reference-identifier-set! - &type-reference-identifier-set!) - (spec: 2 type-identifier? type-identifier?) + (spec: 2 &type-reference-identifier &type-reference-identifier) + (spec: 2 resolve-type resolve-type) + (spec: 2 type-reference? type-reference?) (spec: 1 deftype deftype) - (spec: 1 ContractRules ContractRules) - (spec: 1 ClassMeta ClassMeta) - (spec: 1 TypedDefinitions TypedDefinitions) - (spec: 1 Using Using) (spec: 1 Interface Interface) (spec: 1 TypeReference TypeReference) - (spec: 1 InterfaceInfo InterfaceInfo) - (spec: 1 TypeEnv TypeEnv) + (spec: 1 Using Using) + (spec: 1 ContractRules ContractRules) + (spec: 1 TypedDefinitions TypedDefinitions) (spec: 1 TypeCast TypeCast) - (spec: 2 setf-macro setf-macro) - (spec: 2 setf-macro::t setf-macro::t) - (spec: 2 &setf-macro-macro &setf-macro-macro) + (spec: 1 ClassMeta ClassMeta) + (spec: 1 TypeEnv TypeEnv) + (spec: 1 InterfaceInfo InterfaceInfo) + (spec: 2 setf-macro-macro setf-macro-macro) + (spec: 2 setq-macro? setq-macro?) + (spec: 2 make-setf-macro make-setf-macro) (spec: 2 syntax-local-setf-macro? syntax-local-setf-macro?) - (spec: 2 &setq-macro-macro-set! &setq-macro-macro-set!) - (spec: 2 setq-macro setq-macro) - (spec: 2 make-setq-macro make-setq-macro) - (spec: 2 setq-macro::t setq-macro::t) - (spec: 2 setf-macro? setf-macro?) - (spec: 2 setq-macro-macro-set! setq-macro-macro-set!) + (spec: 2 setf-macro::t setf-macro::t) (spec: 2 expand-set! expand-set!) - (spec: 2 setq-macro? setq-macro?) - (spec: 2 &setf-macro-macro-set! &setf-macro-macro-set!) + (spec: 2 setq-macro-macro-set! setq-macro-macro-set!) (spec: 2 &setq-macro-macro &setq-macro-macro) - (spec: 2 setq-macro-macro setq-macro-macro) - (spec: 2 setf-macro-macro-set! setf-macro-macro-set!) + (spec: 2 setq-macro setq-macro) + (spec: 2 setf-macro setf-macro) + (spec: 2 &setf-macro-macro-set! &setf-macro-macro-set!) + (spec: 2 setf-macro? setf-macro?) + (spec: 2 setq-macro::t setq-macro::t) (spec: 2 syntax-local-setq-macro? syntax-local-setq-macro?) - (spec: 2 make-setf-macro make-setf-macro) - (spec: 2 setf-macro-macro setf-macro-macro) - (spec: 1 until until) - (spec: 1 parameterize parameterize) + (spec: 2 setf-macro-macro-set! setf-macro-macro-set!) + (spec: 2 make-setq-macro make-setq-macro) + (spec: 2 &setq-macro-macro-set! &setq-macro-macro-set!) + (spec: 2 setq-macro-macro setq-macro-macro) + (spec: 2 &setf-macro-macro &setf-macro-macro) + (spec: 1 @bytes @bytes) + (spec: 1 values-set! values-set!) (spec: 1 ~hash-table ~hash-table) - (spec: 1 hash hash) + (spec: 1 unwind-protect unwind-protect) (spec: 1 try try) (spec: 1 eval-when-compile eval-when-compile) + (spec: 1 let/cc let/cc) (spec: 1 hash-eq hash-eq) + (spec: 1 parameterize parameterize) + (spec: 1 until until) (spec: 1 finally finally) - (spec: 1 @bytes @bytes) + (spec: 1 hash hash) (spec: 1 while while) - (spec: 1 catch catch) - (spec: 1 let/cc let/cc) - (spec: 1 values-set! values-set!) - (spec: 1 unwind-protect unwind-protect) (spec: 1 hash-eqv hash-eqv) + (spec: 1 catch catch) (spec: 2 match-pattern? match-pattern?) (spec: 2 syntax-local-match-macro? syntax-local-match-macro?) (spec: 2 match-macro? match-macro?) (spec: 2 make-match-macro make-match-macro) (spec: 2 match-macro::t match-macro::t) (spec: 2 match-macro match-macro) - (spec: 1 with with) + (spec: 1 defsyntax-for-match defsyntax-for-match) (spec: 1 match match) - (spec: 1 ? ?) (spec: 1 match* match*) - (spec: 1 defsyntax-for-match defsyntax-for-match) - (spec: 1 with* with*) (spec: 1 defrules-for-match defrules-for-match) - (spec: 1 :list :list) + (spec: 1 with* with*) + (spec: 1 with with) + (spec: 1 ? ?) + (spec: 1 :event-queue-port :event-queue-port) + (spec: 1 :f64vector :f64vector) + (spec: 1 :structure :structure) + (spec: 1 :flonum :flonum) + (spec: 1 :symbol :symbol) + (spec: 1 :char :char) + (spec: 1 :thread-group :thread-group) + (spec: 1 :u32vector :u32vector) + (spec: 1 :vector-port :vector-port) + (spec: 1 :pair :pair) + (spec: 1 :haflonum :haflonum) + (spec: 1 :true :true) + (spec: 1 :promise :promise) + (spec: 1 :integer :integer) (spec: 1 :special :special) - (spec: 1 :immediate :immediate) + (spec: 1 :atom :atom) + (spec: 1 :u8vector-port :u8vector-port) + (spec: 1 :continuation :continuation) + (spec: 1 :processor :processor) + (spec: 1 :file-info :file-info) + (spec: 1 :s8vector :s8vector) + (spec: 1 :tcp-server-port :tcp-server-port) + (spec: 1 :address-info :address-info) (spec: 1 :bignum :bignum) + (spec: 1 :symbolic :symbolic) + (spec: 1 :u64vector :u64vector) + (spec: 1 :box :box) + (spec: 1 :dssl-key :dssl-key) (spec: 1 :boolean :boolean) - (spec: 1 :eof :eof) - (spec: 1 :weak :weak) - (spec: 1 :f32vector :f32vector) + (spec: 1 :u16vector :u16vector) + (spec: 1 class class) + (spec: 1 :dssl-rest :dssl-rest) + (spec: 1 :mutex :mutex) (spec: 1 :port :port) (spec: 1 :raw-device-port :raw-device-port) + (spec: 1 :subtyped :subtyped) + (spec: 1 :string :string) + (spec: 1 :table :table) (spec: 1 :fixnum :fixnum) + (spec: 1 :number :number) + (spec: 1 :return :return) (spec: 1 :void :void) - (spec: 1 :integer :integer) - (spec: 1 :cpxnum :cpxnum) (spec: 1 :readenv :readenv) - (spec: 1 :true :true) - (spec: 1 :symbolic :symbolic) - (spec: 1 :values :values) - (spec: 1 :u64vector :u64vector) - (spec: 1 :object-port :object-port) - (spec: 1 :pair :pair) - (spec: 1 :tcp-server-port :tcp-server-port) - (spec: 1 :u32vector :u32vector) - (spec: 1 :symbol :symbol) - (spec: 1 :vector-port :vector-port) - (spec: 1 :thread-group :thread-group) - (spec: 1 :table :table) - (spec: 1 :f64vector :f64vector) - (spec: 1 :writeenv :writeenv) - (spec: 1 :u16vector :u16vector) - (spec: 1 :box :box) - (spec: 1 :processor :processor) + (spec: 1 :eof :eof) + (spec: 1 :dssl-optional :dssl-optional) + (spec: 1 :s64vector :s64vector) (spec: 1 :vm :vm) - (spec: 1 :t :t) - (spec: 1 :file-info :file-info) - (spec: 1 :s8vector :s8vector) - (spec: 1 :false :false) - (spec: 1 :number :number) - (spec: 1 :byte-port :byte-port) - (spec: 1 :string-port :string-port) - (spec: 1 :hvector :hvector) - (spec: 1 :device-port :device-port) - (spec: 1 :s32vector :s32vector) - (spec: 1 :char :char) + (spec: 1 :weak :weak) + (spec: 1 :character-port :character-port) + (spec: 1 :f32vector :f32vector) (spec: 1 :vector :vector) - (spec: 1 :time :time) - (spec: 1 :address-info :address-info) + (spec: 1 :u8vector :u8vector) + (spec: 1 :builtin :builtin) + (spec: 1 :s32vector :s32vector) + (spec: 1 :cpxnum :cpxnum) + (spec: 1 :condvar :condvar) + (spec: 1 :t :t) + (spec: 1 defsystem-class-info defsystem-class-info) (spec: 1 :s16vector :s16vector) - (spec: 1 :character-port :character-port) - (spec: 1 :u8vector-port :u8vector-port) - (spec: 1 :frame :frame) - (spec: 1 :flonum :flonum) - (spec: 1 :foreign :foreign) - (spec: 1 :event-queue-port :event-queue-port) - (spec: 1 :string :string) + (spec: 1 :device-port :device-port) + (spec: 1 :sequence :sequence) (spec: 1 :class :class) + (spec: 1 :unbound2 :unbound2) + (spec: 1 :stflonum :stflonum) + (spec: 1 :procedure :procedure) + (spec: 1 :object-port :object-port) + (spec: 1 :string-port :string-port) + (spec: 1 :directory-port :directory-port) + (spec: 1 :values :values) + (spec: 1 :unbound :unbound) + (spec: 1 :dssl-token :dssl-token) + (spec: 1 :false :false) + (spec: 1 :writeenv :writeenv) + (spec: 1 :hvector :hvector) + (spec: 1 :readtable :readtable) + (spec: 1 :immediate :immediate) + (spec: 1 :list :list) + (spec: 1 :keyword :keyword) + (spec: 1 :object :object) (spec: 1 :real :real) + (spec: 1 :foreign :foreign) (spec: 1 :socket-info :socket-info) - (spec: 1 :readtable :readtable) + (spec: 1 :ratnum :ratnum) + (spec: 1 :byte-port :byte-port) (spec: 1 :udp-port :udp-port) - (spec: 1 :s64vector :s64vector) - (spec: 1 :directory-port :directory-port) (spec: 1 :null :null) - (spec: 1 :atom :atom) - (spec: 1 :procedure :procedure) + (spec: 1 :frame :frame) (spec: 1 :thread :thread) - (spec: 1 :mutex :mutex) - (spec: 1 :sequence :sequence) - (spec: 1 :u8vector :u8vector) - (spec: 1 defsystem-class-info defsystem-class-info) - (spec: 1 :promise :promise) - (spec: 1 :continuation :continuation) - (spec: 1 :condvar :condvar) - (spec: 1 :ratnum :ratnum) - (spec: 1 :keyword :keyword) - (spec: 1 class class) - (spec: 1 :object :object) (spec: 1 define-struct define-struct) + (spec: 1 define-class define-class) (spec: 1 @ @) (spec: 1 @-set! @-set!) - (spec: 1 define-class define-class) - (spec: 1 defclass-type defclass-type) (spec: 1 defstruct-type defstruct-type) - (spec: 1 MOP-5 MOP-5) - (spec: 1 MOP-1 MOP-1) + (spec: 1 defclass-type defclass-type) (spec: 1 MOP-4 MOP-4) - (spec: 1 MOP-2 MOP-2) (spec: 1 MOP-3 MOP-3) - (spec: 1 :list :list) + (spec: 1 MOP-1 MOP-1) + (spec: 1 MOP-5 MOP-5) + (spec: 1 MOP-2 MOP-2) + (spec: 1 :event-queue-port :event-queue-port) + (spec: 1 :f64vector :f64vector) + (spec: 1 :structure :structure) + (spec: 1 :flonum :flonum) + (spec: 1 :symbol :symbol) + (spec: 1 :char :char) + (spec: 1 :thread-group :thread-group) + (spec: 1 :u32vector :u32vector) + (spec: 1 :vector-port :vector-port) + (spec: 1 :pair :pair) + (spec: 1 :haflonum :haflonum) + (spec: 1 :true :true) + (spec: 1 :promise :promise) + (spec: 1 :integer :integer) (spec: 1 :special :special) - (spec: 1 :immediate :immediate) + (spec: 1 :atom :atom) + (spec: 1 :u8vector-port :u8vector-port) + (spec: 1 :continuation :continuation) + (spec: 1 :processor :processor) + (spec: 1 :file-info :file-info) + (spec: 1 :s8vector :s8vector) + (spec: 1 :tcp-server-port :tcp-server-port) + (spec: 1 :address-info :address-info) (spec: 1 :bignum :bignum) + (spec: 1 :symbolic :symbolic) + (spec: 1 :u64vector :u64vector) + (spec: 1 :box :box) + (spec: 1 :dssl-key :dssl-key) (spec: 1 :boolean :boolean) - (spec: 1 :eof :eof) - (spec: 1 :weak :weak) - (spec: 1 :f32vector :f32vector) + (spec: 1 :u16vector :u16vector) + (spec: 1 class class) + (spec: 1 :dssl-rest :dssl-rest) + (spec: 1 :mutex :mutex) (spec: 1 :port :port) (spec: 1 :raw-device-port :raw-device-port) + (spec: 1 :subtyped :subtyped) + (spec: 1 :string :string) + (spec: 1 :table :table) (spec: 1 :fixnum :fixnum) + (spec: 1 :number :number) + (spec: 1 :return :return) (spec: 1 :void :void) - (spec: 1 :integer :integer) - (spec: 1 :cpxnum :cpxnum) (spec: 1 :readenv :readenv) - (spec: 1 :true :true) - (spec: 1 :symbolic :symbolic) - (spec: 1 :values :values) - (spec: 1 :u64vector :u64vector) - (spec: 1 :object-port :object-port) - (spec: 1 :pair :pair) - (spec: 1 :tcp-server-port :tcp-server-port) - (spec: 1 :u32vector :u32vector) - (spec: 1 :symbol :symbol) - (spec: 1 :vector-port :vector-port) - (spec: 1 :thread-group :thread-group) - (spec: 1 :table :table) - (spec: 1 :f64vector :f64vector) - (spec: 1 :writeenv :writeenv) - (spec: 1 :u16vector :u16vector) - (spec: 1 :box :box) - (spec: 1 :processor :processor) + (spec: 1 :eof :eof) + (spec: 1 :dssl-optional :dssl-optional) + (spec: 1 :s64vector :s64vector) (spec: 1 :vm :vm) - (spec: 1 :t :t) - (spec: 1 :file-info :file-info) - (spec: 1 :s8vector :s8vector) - (spec: 1 :false :false) - (spec: 1 :number :number) - (spec: 1 :byte-port :byte-port) - (spec: 1 :string-port :string-port) - (spec: 1 :hvector :hvector) - (spec: 1 :device-port :device-port) - (spec: 1 :s32vector :s32vector) - (spec: 1 :char :char) + (spec: 1 :weak :weak) + (spec: 1 :character-port :character-port) + (spec: 1 :f32vector :f32vector) (spec: 1 :vector :vector) - (spec: 1 :time :time) - (spec: 1 :address-info :address-info) + (spec: 1 :u8vector :u8vector) + (spec: 1 :builtin :builtin) + (spec: 1 :s32vector :s32vector) + (spec: 1 :cpxnum :cpxnum) + (spec: 1 :condvar :condvar) + (spec: 1 :t :t) + (spec: 1 defsystem-class-info defsystem-class-info) (spec: 1 :s16vector :s16vector) - (spec: 1 :character-port :character-port) - (spec: 1 :u8vector-port :u8vector-port) - (spec: 1 :frame :frame) - (spec: 1 :flonum :flonum) - (spec: 1 :foreign :foreign) - (spec: 1 :event-queue-port :event-queue-port) - (spec: 1 :string :string) + (spec: 1 :device-port :device-port) + (spec: 1 :sequence :sequence) (spec: 1 :class :class) + (spec: 1 :unbound2 :unbound2) + (spec: 1 :stflonum :stflonum) + (spec: 1 :procedure :procedure) + (spec: 1 :object-port :object-port) + (spec: 1 :string-port :string-port) + (spec: 1 :directory-port :directory-port) + (spec: 1 :values :values) + (spec: 1 :unbound :unbound) + (spec: 1 :dssl-token :dssl-token) + (spec: 1 :false :false) + (spec: 1 :writeenv :writeenv) + (spec: 1 :hvector :hvector) + (spec: 1 :readtable :readtable) + (spec: 1 :immediate :immediate) + (spec: 1 :list :list) + (spec: 1 :keyword :keyword) + (spec: 1 :object :object) (spec: 1 :real :real) + (spec: 1 :foreign :foreign) (spec: 1 :socket-info :socket-info) - (spec: 1 :readtable :readtable) + (spec: 1 :ratnum :ratnum) + (spec: 1 :byte-port :byte-port) (spec: 1 :udp-port :udp-port) - (spec: 1 :s64vector :s64vector) - (spec: 1 :directory-port :directory-port) (spec: 1 :null :null) - (spec: 1 :atom :atom) - (spec: 1 :procedure :procedure) + (spec: 1 :frame :frame) (spec: 1 :thread :thread) - (spec: 1 :mutex :mutex) - (spec: 1 :sequence :sequence) - (spec: 1 :u8vector :u8vector) - (spec: 1 defsystem-class-info defsystem-class-info) - (spec: 1 :promise :promise) - (spec: 1 :continuation :continuation) - (spec: 1 :condvar :condvar) - (spec: 1 :ratnum :ratnum) - (spec: 1 :keyword :keyword) - (spec: 1 class class) - (spec: 1 :object :object) (spec: 1 define-struct define-struct) + (spec: 1 define-class define-class) (spec: 1 @ @) (spec: 1 @-set! @-set!) - (spec: 1 define-class define-class) (spec: 1 class-type-info class-type-info) - (spec: - 1 - !class-type-unchecked-mutators - !class-type-unchecked-mutators) - (spec: 1 &!class-type-slots &!class-type-slots) - (spec: 1 &!class-type-id-set! &!class-type-id-set!) - (spec: 1 !class-type-precedence-list !class-type-precedence-list) + (spec: 1 runtime-type-info runtime-type-info) + (spec: 1 !class-type-name-set! !class-type-name-set!) + (spec: 1 !class-type-super-set! !class-type-super-set!) + (spec: 1 !class-type-mutators !class-type-mutators) + (spec: 1 !class-type-id !class-type-id) + (spec: 1 &!class-type-system? &!class-type-system?) (spec: 1 &!class-type-constructor-method-set! &!class-type-constructor-method-set!) - (spec: 1 class-type-info::t class-type-info::t) + (spec: 1 &!class-type-mutators-set! &!class-type-mutators-set!) (spec: 1 &!class-type-slot-defaults-set! &!class-type-slot-defaults-set!) (spec: 1 - !class-type-unchecked-accessors-set! - !class-type-unchecked-accessors-set!) - (spec: 1 !class-type-system?-set! !class-type-system?-set!) - (spec: 1 !class-type-id-set! !class-type-id-set!) - (spec: 1 !class-type-struct?-set! !class-type-struct?-set!) - (spec: 1 &!class-type-name-set! &!class-type-name-set!) + &!class-type-slot-contracts-set! + &!class-type-slot-contracts-set!) + (spec: 1 &!class-type-slots-set! &!class-type-slots-set!) + (spec: 1 &!runtime-type-descriptor &!runtime-type-descriptor) + (spec: 1 make-class-type-info make-class-type-info) + (spec: 1 &!class-type-ordered-slots &!class-type-ordered-slots) + (spec: 1 &!class-type-accessors &!class-type-accessors) + (spec: 1 &!class-type-mutators &!class-type-mutators) + (spec: 1 &!class-type-id &!class-type-id) + (spec: 1 &!class-type-slots &!class-type-slots) + (spec: 1 &!class-type-final?-set! &!class-type-final?-set!) + (spec: 1 &!class-type-slot-types-set! &!class-type-slot-types-set!) + (spec: 1 !class-type-name !class-type-name) + (spec: 1 !class-type-constructor-set! !class-type-constructor-set!) + (spec: 1 &!class-type-super &!class-type-super) (spec: 1 - !class-type-precedence-list-set! - !class-type-precedence-list-set!) + &!runtime-type-descriptor-set! + &!runtime-type-descriptor-set!) + (spec: 1 &!class-type-super-set! &!class-type-super-set!) + (spec: 1 &!class-type-constructor-set! &!class-type-constructor-set!) + (spec: 1 !runtime-type-descriptor !runtime-type-descriptor) + (spec: 1 !class-type-slot-contracts !class-type-slot-contracts) + (spec: 1 !class-type-mutators-set! !class-type-mutators-set!) + (spec: 1 &!class-type-constructor &!class-type-constructor) + (spec: 1 &!runtime-type-name &!runtime-type-name) + (spec: 1 &!runtime-type-id-set! &!runtime-type-id-set!) + (spec: 1 &!class-type-metaclass &!class-type-metaclass) + (spec: 1 syntax-local-class-type-info? syntax-local-class-type-info?) + (spec: 1 &!class-type-final? &!class-type-final?) + (spec: 1 &!class-type-system?-set! &!class-type-system?-set!) + (spec: 1 &!class-type-accessors-set! &!class-type-accessors-set!) (spec: 1 !class-type-constructor-method-set! !class-type-constructor-method-set!) - (spec: 1 !class-type-name !class-type-name) - (spec: 1 &!class-type-super &!class-type-super) - (spec: 1 &!class-type-super-set! &!class-type-super-set!) - (spec: 1 &!class-type-constructor-set! &!class-type-constructor-set!) - (spec: 1 &!class-type-slot-types-set! &!class-type-slot-types-set!) - (spec: 1 !class-type-system? !class-type-system?) - (spec: 1 !class-type-accessors-set! !class-type-accessors-set!) + (spec: 1 !class-type-predicate-set! !class-type-predicate-set!) + (spec: 1 make-runtime-type-info make-runtime-type-info) + (spec: 1 !class-type-constructor !class-type-constructor) + (spec: 1 !class-type-predicate !class-type-predicate) + (spec: 1 !class-type-struct? !class-type-struct?) (spec: 1 - !class-type-unchecked-accessors - !class-type-unchecked-accessors) - (spec: 1 &!class-type-predicate-set! &!class-type-predicate-set!) - (spec: 1 !class-type-constructor-set! !class-type-constructor-set!) - (spec: 1 !class-type-predicate-set! !class-type-predicate-set!) + &!class-type-ordered-slots-set! + &!class-type-ordered-slots-set!) + (spec: 1 runtime-type-info::t runtime-type-info::t) + (spec: 1 !class-type-id-set! !class-type-id-set!) (spec: 1 - !class-type-slot-defaults-set! - !class-type-slot-defaults-set!) - (spec: 1 &!class-type-predicate &!class-type-predicate) - (spec: 1 syntax-local-class-type-info? syntax-local-class-type-info?) - (spec: 1 !class-type-metaclass !class-type-metaclass) + &!class-type-unchecked-mutators-set! + &!class-type-unchecked-mutators-set!) + (spec: 1 !runtime-type-name !runtime-type-name) (spec: 1 !class-type-slot-types !class-type-slot-types) - (spec: 1 !class-type-id !class-type-id) + (spec: 1 &!class-type-predicate-set! &!class-type-predicate-set!) (spec: 1 - !class-type-ordered-slots-set! - !class-type-ordered-slots-set!) - (spec: 1 &!class-type-accessors-set! &!class-type-accessors-set!) + &!class-type-unchecked-mutators + &!class-type-unchecked-mutators) + (spec: 1 &!class-type-descriptor &!class-type-descriptor) + (spec: 1 &!runtime-type-name-set! &!runtime-type-name-set!) (spec: 1 - &!class-type-slot-contracts-set! - &!class-type-slot-contracts-set!) + class-type-info::apply-macro-expander + class-type-info::apply-macro-expander) + (spec: 1 !class-type-final? !class-type-final?) + (spec: 1 !class-type-final?-set! !class-type-final?-set!) + (spec: 1 !class-type-slot-defaults !class-type-slot-defaults) (spec: 1 - &!class-type-ordered-slots-set! - &!class-type-ordered-slots-set!) - (spec: 1 class-type-info? class-type-info?) - (spec: 1 !class-type-ordered-slots !class-type-ordered-slots) - (spec: 1 !class-type-constructor !class-type-constructor) - (spec: 1 &!class-type-id &!class-type-id) + !class-type-constructor-method + !class-type-constructor-method) + (spec: 1 &!class-type-struct?-set! &!class-type-struct?-set!) + (spec: 1 !class-type-system?-set! !class-type-system?-set!) (spec: 1 &!class-type-slot-defaults &!class-type-slot-defaults) - (spec: 1 &!class-type-metaclass-set! &!class-type-metaclass-set!) - (spec: 1 !class-type-super-set! !class-type-super-set!) - (spec: 1 &!class-type-accessors &!class-type-accessors) + (spec: 1 !class-type-accessors !class-type-accessors) + (spec: 1 !class-type-precedence-list !class-type-precedence-list) + (spec: 1 !runtime-type-descriptor-set! !runtime-type-descriptor-set!) (spec: 1 - &!class-type-unchecked-accessors-set! - &!class-type-unchecked-accessors-set!) - (spec: 1 make-class-type-info make-class-type-info) + !class-type-unchecked-accessors + !class-type-unchecked-accessors) (spec: 1 - !class-type-constructor-method - !class-type-constructor-method) - (spec: 1 !class-type-slot-contracts !class-type-slot-contracts) - (spec: 1 !class-type-slots-set! !class-type-slots-set!) - (spec: 1 !class-type-final?-set! !class-type-final?-set!) - (spec: 1 !class-type-slots !class-type-slots) - (spec: 1 !class-type-slot-defaults !class-type-slot-defaults) - (spec: 1 !class-type-mutators-set! !class-type-mutators-set!) - (spec: 1 &!class-type-name &!class-type-name) - (spec: 1 &!class-type-precedence-list &!class-type-precedence-list) - (spec: 1 &!class-type-struct? &!class-type-struct?) - (spec: 1 &!class-type-descriptor &!class-type-descriptor) + !class-type-precedence-list-set! + !class-type-precedence-list-set!) + (spec: 1 !class-type-super !class-type-super) + (spec: 1 &!class-type-predicate &!class-type-predicate) + (spec: + 1 + &!class-type-unchecked-accessors + &!class-type-unchecked-accessors) + (spec: 1 !class-type-accessors-set! !class-type-accessors-set!) + (spec: + 1 + !class-type-unchecked-accessors-set! + !class-type-unchecked-accessors-set!) + (spec: 1 !class-type-descriptor-set! !class-type-descriptor-set!) (spec: 1 !class-type-slot-contracts-set! !class-type-slot-contracts-set!) - (spec: 1 &!class-type-constructor &!class-type-constructor) (spec: 1 - &!class-type-unchecked-mutators - &!class-type-unchecked-mutators) - (spec: 1 &!class-type-slot-types &!class-type-slot-types) - (spec: 1 &!class-type-final? &!class-type-final?) - (spec: 1 !class-type-accessors !class-type-accessors) - (spec: 1 !class-type-name-set! !class-type-name-set!) + &!class-type-unchecked-accessors-set! + &!class-type-unchecked-accessors-set!) + (spec: 1 &!class-type-name-set! &!class-type-name-set!) (spec: 1 - &!class-type-unchecked-accessors - &!class-type-unchecked-accessors) + syntax-local-runtime-type-info? + syntax-local-runtime-type-info?) + (spec: 1 class-type-info::t class-type-info::t) + (spec: 1 !class-type-metaclass !class-type-metaclass) (spec: 1 - &!class-type-precedence-list-set! - &!class-type-precedence-list-set!) - (spec: 1 &!class-type-struct?-set! &!class-type-struct?-set!) - (spec: 1 &!class-type-final?-set! &!class-type-final?-set!) - (spec: 1 &!class-type-descriptor-set! &!class-type-descriptor-set!) - (spec: 1 &!class-type-mutators-set! &!class-type-mutators-set!) + !class-type-unchecked-mutators + !class-type-unchecked-mutators) + (spec: 1 !runtime-type-name-set! !runtime-type-name-set!) + (spec: 1 !runtime-type-id-set! !runtime-type-id-set!) + (spec: 1 !class-type-descriptor !class-type-descriptor) + (spec: 1 !class-type-slots-set! !class-type-slots-set!) + (spec: 1 &!class-type-name &!class-type-name) (spec: 1 - &!class-type-unchecked-mutators-set! - &!class-type-unchecked-mutators-set!) + !class-type-ordered-slots-set! + !class-type-ordered-slots-set!) + (spec: 1 &!class-type-precedence-list &!class-type-precedence-list) + (spec: 1 !class-type-system? !class-type-system?) (spec: 1 !class-type-metaclass-set! !class-type-metaclass-set!) - (spec: 1 &!class-type-system? &!class-type-system?) - (spec: 1 &!class-type-slot-contracts &!class-type-slot-contracts) - (spec: 1 &!class-type-metaclass &!class-type-metaclass) - (spec: 1 &!class-type-mutators &!class-type-mutators) - (spec: 1 &!class-type-slots-set! &!class-type-slots-set!) - (spec: 1 !class-type-descriptor !class-type-descriptor) - (spec: 1 !class-type-mutators !class-type-mutators) - (spec: 1 !class-type-struct? !class-type-struct?) - (spec: 1 !class-type-slot-types-set! !class-type-slot-types-set!) - (spec: 1 &!class-type-ordered-slots &!class-type-ordered-slots) - (spec: 1 !class-type-final? !class-type-final?) + (spec: 1 &!class-type-metaclass-set! &!class-type-metaclass-set!) + (spec: + 1 + &!class-type-precedence-list-set! + &!class-type-precedence-list-set!) + (spec: 1 class-type-info? class-type-info?) + (spec: 1 !class-type-ordered-slots !class-type-ordered-slots) (spec: 1 &!class-type-constructor-method &!class-type-constructor-method) + (spec: 1 &!class-type-struct? &!class-type-struct?) + (spec: 1 !runtime-type-id !runtime-type-id) + (spec: 1 !class-type-slot-types-set! !class-type-slot-types-set!) + (spec: 1 runtime-type-info? runtime-type-info?) + (spec: 1 !class-type-struct?-set! !class-type-struct?-set!) (spec: 1 - class-type-info::apply-macro-expander - class-type-info::apply-macro-expander) - (spec: 1 !class-type-predicate !class-type-predicate) - (spec: 1 !class-type-descriptor-set! !class-type-descriptor-set!) - (spec: 1 !class-type-super !class-type-super) + !class-type-slot-defaults-set! + !class-type-slot-defaults-set!) + (spec: 1 &!class-type-slot-contracts &!class-type-slot-contracts) + (spec: 1 &!class-type-descriptor-set! &!class-type-descriptor-set!) + (spec: 1 &!class-type-id-set! &!class-type-id-set!) (spec: 1 !class-type-unchecked-mutators-set! !class-type-unchecked-mutators-set!) - (spec: 1 &!class-type-system?-set! &!class-type-system?-set!) - (spec: 1 defclass-type defclass-type) + (spec: 1 !class-type-slots !class-type-slots) + (spec: 1 &!class-type-slot-types &!class-type-slot-types) + (spec: 1 &!runtime-type-id &!runtime-type-id) (spec: 1 defstruct-type defstruct-type) + (spec: 1 defclass-type defclass-type) (spec: 1 make-class-type-id make-class-type-id) (spec: 1 module-type-id module-type-id) + (spec: 1 definline definline) (spec: 1 defconst defconst) (spec: 1 defsyntax defsyntax) - (spec: 1 definline definline) - (spec: 1 ~case-dispatch* ~case-dispatch*) - (spec: 1 rec rec) - (spec: 1 ~case-dispatch-bsearch ~case-dispatch-bsearch) - (spec: 1 defvalues defvalues) + (spec: 1 cut cut) (spec: 1 alet alet) + (spec: 1 ~case-dispatch ~case-dispatch) + (spec: 1 delay delay) (spec: 1 case case) - (spec: 1 begin0 begin0) - (spec: 1 quasiquote quasiquote) - (spec: 1 delay-atomic delay-atomic) - (spec: 1 alet* alet*) (spec: 1 <...> <...>) - (spec: 1 delay delay) - (spec: 1 cut cut) + (spec: 1 ~case-dispatch-bsearch ~case-dispatch-bsearch) + (spec: 1 and-let* and-let*) + (spec: 1 begin0 begin0) (spec: 1 <> <>) + (spec: 1 delay-atomic delay-atomic) (spec: 1 ~case-test ~case-test) - (spec: 1 and-let* and-let*) + (spec: 1 rec rec) (spec: 1 ~case ~case) - (spec: 1 ~case-dispatch ~case-dispatch) (spec: 1 @list @list) - (spec: 1 let* let*) - (spec: 1 letrec letrec) - (spec: 1 or or) - (spec: 1 define-rules define-rules) - (spec: 1 defsyntax% defsyntax%) - (spec: 1 define define) + (spec: 1 ~case-dispatch* ~case-dispatch*) + (spec: 1 alet* alet*) + (spec: 1 defvalues defvalues) + (spec: 1 quasiquote quasiquote) + (spec: 1 when when) (spec: 1 and and) + (spec: 1 letrec* letrec*) (spec: 1 defalias defalias) - (spec: 1 defrules defrules) + (spec: 1 unless unless) + (spec: 1 syntax-error syntax-error) (spec: 1 let*-values let*-values) - (spec: 1 letrec* letrec*) + (spec: 1 let* let*) + (spec: 1 define-rules define-rules) + (spec: 1 ~let ~let) (spec: 1 defrule defrule) - (spec: 1 cond cond) - (spec: 1 when when) - (spec: 1 syntax-error syntax-error) - (spec: 1 unless unless) - (spec: 1 ~let ~let) + (spec: 1 defsyntax% defsyntax%) + (spec: 1 letrec letrec) (spec: 1 compilation-target? compilation-target?) - (spec: 1 s8vector-ref-set! s8vector-ref-set!) - (spec: 1 u8vector-ref-set! u8vector-ref-set!) - (spec: 1 cdr-set! cdr-set!) - (spec: 1 random-bytes random-bytes) + (spec: 1 defrules defrules) + (spec: 1 cond cond) + (spec: 1 define define) + (spec: 1 or or) + (spec: 1 u32vector-ref-set! u32vector-ref-set!) (spec: 1 string-ref-set! string-ref-set!) - (spec: 1 car-set! car-set!) (spec: 1 u64vector-ref-set! u64vector-ref-set!) - (spec: 1 s16vector-ref-set! s16vector-ref-set!) (spec: 1 f64vector-ref-set! f64vector-ref-set!) - (spec: 1 call/values call/values) + (spec: 1 s16vector-ref-set! s16vector-ref-set!) (spec: 1 random-source-make-bytes random-source-make-bytes) + (spec: 1 u8vector-ref-set! u8vector-ref-set!) (spec: 1 u16vector-ref-set! u16vector-ref-set!) - (spec: 1 f32vector-ref-set! f32vector-ref-set!) - (spec: 1 u32vector-ref-set! u32vector-ref-set!) - (spec: 1 call/parameters call/parameters) + (spec: 1 cdr-set! cdr-set!) (spec: 1 s32vector-ref-set! s32vector-ref-set!) - (spec: 1 s64vector-ref-set! s64vector-ref-set!) + (spec: 1 call/values call/values) (spec: 1 box-set! box-set!) + (spec: 1 s8vector-ref-set! s8vector-ref-set!) (spec: 1 vector-ref-set! vector-ref-set!) - (spec: 1 make-hash-table-eqv make-hash-table-eqv) - (spec: 1 eq-hash eq-hash) - (spec: 1 absent-value absent-value) - (spec: 1 hash-find hash-find) - (spec: 1 pget pget) - (spec: 1 remq remq) - (spec: 1 fx/ fx/) - (spec: 1 symbolic::t symbolic::t) - (spec: 1 void::t void::t) - (spec: 1 HashTable::interface HashTable::interface) + (spec: 1 random-bytes random-bytes) + (spec: 1 f32vector-ref-set! f32vector-ref-set!) + (spec: 1 car-set! car-set!) + (spec: 1 s64vector-ref-set! s64vector-ref-set!) + (spec: 1 call/parameters call/parameters) + (spec: 1 class-type-properties class-type-properties) + (spec: 1 object? object?) + (spec: 1 string-join string-join) + (spec: 1 make-symbolic-table make-symbolic-table) (spec: 1 hash-ref hash-ref) - (spec: 1 class-type-sealed? class-type-sealed?) - (spec: 1 remove1 remove1) - (spec: 1 gerbil-load-expander! gerbil-load-expander!) - (spec: 1 false false) - (spec: 1 cpxnum::t cpxnum::t) - (spec: 1 spawn spawn) - (spec: 1 subclass? subclass?) - (spec: 1 mutex::t mutex::t) - (spec: 1 find find) - (spec: 1 tcp-server-port::t tcp-server-port::t) - (spec: 1 hash-merge-right! hash-merge-right!) - (spec: 1 object-port::t object-port::t) - (spec: 1 true true) + (spec: 1 vm::t vm::t) + (spec: 1 u32vector::t u32vector::t) + (spec: 1 processor::t processor::t) + (spec: 1 is-hash-table? is-hash-table?) (spec: 1 interface-descriptor-type interface-descriptor-type) - (spec: 1 char::t char::t) + (spec: 1 thread-local-get thread-local-get) + (spec: 1 syntax-error? syntax-error?) + (spec: 1 struct-instance? struct-instance?) + (spec: 1 &class-type-flags &class-type-flags) + (spec: 1 c4-linearize c4-linearize) + (spec: 1 fx>=0? fx>=0?) + (spec: 1 haflonum::t haflonum::t) + (spec: 1 slot-set! slot-set!) + (spec: 1 filter-map filter-map) + (spec: 1 s16vector::t s16vector::t) + (spec: 1 with-unwind-protect with-unwind-protect) + (spec: 1 displayln displayln) (spec: 1 raise-contract-violation-error raise-contract-violation-error) - (spec: 1 write-u8vector write-u8vector) - (spec: 1 class-type-final? class-type-final?) + (spec: 1 true true) + (spec: 1 unchecked-slot-ref unchecked-slot-ref) + (spec: 1 list->hash-table list->hash-table) + (spec: 1 pget pget) + (spec: 1 plist->hash-table-string plist->hash-table-string) + (spec: 1 module-load-order module-load-order) + (spec: 1 string-port? string-port?) + (spec: 1 foldr foldr) + (spec: 1 build-manifest/head build-manifest/head) + (spec: 1 hash-map hash-map) + (spec: 1 event-queue-port::t event-queue-port::t) + (spec: 1 eof::t eof::t) + (spec: 1 values::t values::t) + (spec: 1 class-type-seal! class-type-seal!) + (spec: 1 class-type-precedence-list class-type-precedence-list) + (spec: 1 subtyped::t subtyped::t) + (spec: 1 next-method next-method) + (spec: 1 symblic-hash symblic-hash) + (spec: 1 method-ref method-ref) + (spec: 1 hash->list hash->list) + (spec: 1 flonum::t flonum::t) + (spec: 1 set-load-path! set-load-path!) + (spec: 1 with-dynamic-lock with-dynamic-lock) + (spec: 1 time::t time::t) (spec: 1 list->hash-table-eq list->hash-table-eq) - (spec: - 1 - unhandled-actor-exception-hook-set! - unhandled-actor-exception-hook-set!) - (spec: 1 read-syntax-from-file read-syntax-from-file) + (spec: 1 1- 1-) + (spec: 1 gerbil-runtime-smp? gerbil-runtime-smp?) + (spec: 1 class-instance? class-instance?) + (spec: 1 object-fill! object-fill!) + (spec: 1 bytes->string bytes->string) + (spec: 1 fx/ fx/) + (spec: 1 make-symbol make-symbol) + (spec: 1 raise raise) + (spec: 1 f32vector::t f32vector::t) + (spec: 1 hash-merge! hash-merge!) + (spec: 1 source-location? source-location?) (spec: 1 make-hash-table-string make-hash-table-string) - (spec: 1 f64vector::t f64vector::t) + (spec: 1 display-as-string display-as-string) + (spec: 1 vector-port::t vector-port::t) + (spec: 1 error error) + (spec: 1 type-of type-of) + (spec: 1 class-type-super class-type-super) + (spec: 1 symbolic? symbolic?) + (spec: 1 interned-symbol? interned-symbol?) + (spec: 1 tcp-server-port? tcp-server-port?) + (spec: 1 char::t char::t) + (spec: 1 &class-type-constructor &class-type-constructor) + (spec: 1 string::t string::t) + (spec: 1 box::t box::t) + (spec: 1 hash-key? hash-key?) + (spec: 1 andmap andmap) + (spec: 1 remf remf) + (spec: 1 unbound::t unbound::t) + (spec: 1 gerbil-system gerbil-system) + (spec: 1 object-port? object-port?) (spec: 1 fx1- fx1-) - (spec: 1 as-string as-string) - (spec: 1 thread-local-delete! thread-local-delete!) - (spec: 1 u32vector::t u32vector::t) - (spec: 1 class-type-slot-table class-type-slot-table) - (spec: 1 make-object make-object) - (spec: 1 string-port::t string-port::t) - (spec: 1 max-char-code max-char-code) - (spec: 1 AST-e AST-e) - (spec: 1 error-message error-message) - (spec: 1 true? true?) - (spec: 1 object-type object-type) - (spec: 1 boolean::t boolean::t) - (spec: 1 plist->hash-table-eqv plist->hash-table-eqv) - (spec: 1 list->hash-table-immediate list->hash-table-immediate) - (spec: 1 character-port? character-port?) - (spec: 1 raise-unbound-key-error raise-unbound-key-error) - (spec: 1 make-class-predicate make-class-predicate) - (spec: 1 slot-ref slot-ref) - (spec: 1 HashTableLock::interface HashTableLock::interface) - (spec: 1 hash-for-each hash-for-each) - (spec: 1 fx<=0? fx<=0?) - (spec: 1 thread-local-ref thread-local-ref) + (spec: 1 hash-table? hash-table?) (spec: 1 HashTable::t HashTable::t) - (spec: 1 call-method call-method) - (spec: 1 u8vector-port::t u8vector-port::t) + (spec: 1 false::t false::t) + (spec: 1 error-irritants error-irritants) + (spec: 1 eqv-hash eqv-hash) + (spec: 1 read-syntax-from-file read-syntax-from-file) (spec: 1 weak? weak?) - (spec: 1 &interface-instance-object &interface-instance-object) - (spec: 1 exception? exception?) - (spec: 1 class-type-slot-vector class-type-slot-vector) - (spec: 1 replx replx) + (spec: 1 udp-port? udp-port?) + (spec: 1 procedure-hash procedure-hash) + (spec: 1 class-type-system? class-type-system?) + (spec: 1 __DEBUG __DEBUG) + (spec: 1 symbolic-table-set! symbolic-table-set!) + (spec: 1 mutex::t mutex::t) + (spec: 1 immediate-instance-of? immediate-instance-of?) (spec: 1 memf memf) - (spec: 1 string-rindex string-rindex) - (spec: 1 next-method next-method) - (spec: 1 error? error?) - (spec: 1 immediate-hash immediate-hash) - (spec: 1 fixnum::t fixnum::t) - (spec: 1 object? object?) - (spec: 1 values->list values->list) - (spec: 1 checked-bound-method-ref checked-bound-method-ref) - (spec: 1 box::t box::t) - (spec: 1 list->hash-table-symbolic list->hash-table-symbolic) - (spec: 1 ratnum::t ratnum::t) - (spec: 1 plist->hash-table-string plist->hash-table-string) - (spec: 1 AST-source AST-source) - (spec: 1 make-class-slot-mutator make-class-slot-mutator) - (spec: 1 string->bytes string->bytes) - (spec: 1 device-port? device-port?) - (spec: 1 direct-method-ref direct-method-ref) - (spec: 1 assget assget) - (spec: 1 hash-key? hash-key?) - (spec: 1 pgetv pgetv) - (spec: 1 file-info::t file-info::t) - (spec: 1 bind-method! bind-method!) - (spec: 1 &class-type-constructor &class-type-constructor) - (spec: 1 call-with-parameters call-with-parameters) - (spec: 1 u8vector::t u8vector::t) - (spec: 1 keyword-dispatch keyword-dispatch) - (spec: 1 with-catch with-catch) - (spec: 1 hash-table? hash-table?) - (spec: 1 class-type-struct? class-type-struct?) - (spec: 1 cons* cons*) - (spec: 1 current-thread-group current-thread-group) - (spec: 1 s32vector::t s32vector::t) - (spec: 1 dssl-object? dssl-object?) - (spec: 1 writenv? writenv?) - (spec: 1 module-load-order module-load-order) - (spec: 1 nonnegative-fixnum? nonnegative-fixnum?) - (spec: 1 andmap andmap) (spec: 1 build-manifest build-manifest) - (spec: 1 foldl foldl) - (spec: 1 fx>0? fx>0?) - (spec: 1 values-ref values-ref) - (spec: 1 substruct? substruct?) - (spec: 1 list::t list::t) + (spec: 1 string-empty? string-empty?) + (spec: 1 find-method find-method) + (spec: 1 assget assget) + (spec: 1 socket-info::t socket-info::t) + (spec: 1 character-port? character-port?) + (spec: 1 hash-length hash-length) (spec: 1 raw-device-port? raw-device-port?) - (spec: 1 event-queue-port? event-queue-port?) - (spec: 1 1+ 1+) + (spec: 1 HashTableLock::interface HashTableLock::interface) + (spec: 1 class-type-methods class-type-methods) + (spec: 1 table::t table::t) + (spec: 1 null::t null::t) + (spec: 1 interface-instance? interface-instance?) + (spec: 1 interface-descriptor-methods interface-descriptor-methods) + (spec: 1 hash-keys hash-keys) + (spec: 1 find find) + (spec: 1 sequence::t sequence::t) + (spec: 1 dssl-rest-object? dssl-rest-object?) + (spec: 1 remv remv) + (spec: 1 with-exception-handler with-exception-handler) + (spec: 1 values-count values-count) + (spec: 1 raw-device-port::t raw-device-port::t) + (spec: + 1 + datum-parsing-exception-filepos + datum-parsing-exception-filepos) + (spec: 1 port::t port::t) + (spec: 1 AST-source AST-source) + (spec: 1 load-module load-module) + (spec: 1 checked-method-ref checked-method-ref) + (spec: 1 substruct? substruct?) + (spec: 1 immediate? immediate?) + (spec: 1 hash-remove! hash-remove!) + (spec: 1 fx% fx%) + (spec: 1 error-message error-message) + (spec: 1 absent-obj absent-obj) + (spec: 1 display* display*) (spec: 1 make-class-slot-unchecked-mutator make-class-slot-unchecked-mutator) - (spec: 1 constructor-init! constructor-init!) - (spec: 1 AST? AST?) - (spec: 1 build-manifest/head build-manifest/head) - (spec: 1 immediate-instance-of? immediate-instance-of?) - (spec: 1 fx>=0? fx>=0?) - (spec: 1 values::t values::t) - (spec: 1 interface-instance::t interface-instance::t) - (spec: 1 load-module load-module) - (spec: 1 &class-type-slot-vector &class-type-slot-vector) - (spec: 1 1- 1-) - (spec: 1 string-empty? string-empty?) - (spec: 1 make-class-type make-class-type) - (spec: 1 direct-instance? direct-instance?) + (spec: 1 error-object? error-object?) + (spec: 1 class-type-struct? class-type-struct?) + (spec: 1 keyword-rest keyword-rest) + (spec: 1 interned-keyword? interned-keyword?) + (spec: 1 class-type-name class-type-name) + (spec: 1 integer::t integer::t) + (spec: 1 cast cast) + (spec: 1 string-hash string-hash) + (spec: 1 bound-method-ref bound-method-ref) + (spec: 1 HashTable::interface HashTable::interface) + (spec: 1 source-location-path source-location-path) + (spec: 1 agetv agetv) + (spec: 1 agetq agetq) + (spec: 1 write-u8vector write-u8vector) + (spec: 1 dssl-token::t dssl-token::t) + (spec: 1 eof-object eof-object) + (spec: 1 s8vector::t s8vector::t) + (spec: 1 pgetq pgetq) + (spec: 1 remq remq) + (spec: 1 subclass? subclass?) + (spec: 1 move-file move-file) + (spec: 1 builtin::t builtin::t) + (spec: 1 cons* cons*) + (spec: 1 make-hash-table-eq make-hash-table-eq) + (spec: 1 dssl-key-object? dssl-key-object?) + (spec: 1 vm? vm?) + (spec: 1 u64vector::t u64vector::t) + (spec: 1 interface-cast-error? interface-cast-error?) + (spec: 1 class-type-slot-list class-type-slot-list) + (spec: 1 thread-local-ref thread-local-ref) + (spec: 1 gerbil-greeting gerbil-greeting) + (spec: 1 hash-fold hash-fold) + (spec: 1 stflonum::t stflonum::t) + (spec: 1 seal-class! seal-class!) (spec: 1 actor-thread? actor-thread?) - (spec: 1 hash-get hash-get) - (spec: 1 syntax-error? syntax-error?) - (spec: 1 gerbil-system-version-string gerbil-system-version-string) - (spec: 1 call-next-method call-next-method) - (spec: 1 unbound-key-error? unbound-key-error?) - (spec: 1 satisfies? satisfies?) - (spec: 1 make-atomic-promise make-atomic-promise) - (spec: 1 dump-stack-trace! dump-stack-trace!) - (spec: 1 special? special?) - (spec: 1 struct->list struct->list) - (spec: 1 vector-port::t vector-port::t) + (spec: 1 make-class-slot-accessor make-class-slot-accessor) + (spec: 1 device-port::t device-port::t) + (spec: 1 key::t key::t) + (spec: 1 interface-descriptor? interface-descriptor?) + (spec: 1 try-cast try-cast) + (spec: 1 plist->hash-table-symbolic plist->hash-table-symbolic) + (spec: 1 hvector? hvector?) (spec: 1 &class-type-super &class-type-super) - (spec: 1 directory-port::t directory-port::t) + (spec: 1 call-next-method call-next-method) + (spec: 1 hash-clear! hash-clear!) + (spec: 1 bind-specializer! bind-specializer!) + (spec: 1 special::t special::t) + (spec: 1 make-promise make-promise) + (spec: 1 make-interface-descriptor make-interface-descriptor) + (spec: 1 void? void?) + (spec: 1 readenv? readenv?) + (spec: 1 dssl-optional-object? dssl-optional-object?) + (spec: 1 u8vector-port? u8vector-port?) + (spec: 1 list->hash-table-immediate list->hash-table-immediate) + (spec: 1 class-type-metaclass? class-type-metaclass?) + (spec: 1 gerbil-home gerbil-home) + (spec: 1 structure::t structure::t) + (spec: 1 string->bytes string->bytes) + (spec: 1 dssl-key? dssl-key?) + (spec: 1 hash-merge-right! hash-merge-right!) (spec: 1 address-info::t address-info::t) - (spec: 1 make-instance make-instance) - (spec: 1 eqv-hash eqv-hash) - (spec: 1 hash-keys hash-keys) - (spec: 1 file-newer? file-newer?) - (spec: 1 time::t time::t) - (spec: 1 with-lock with-lock) - (spec: 1 class-type-super class-type-super) - (spec: 1 with-exception-catcher with-exception-catcher) - (spec: 1 foreign::t foreign::t) - (spec: 1 struct-instance-init! struct-instance-init!) - (spec: 1 null::t null::t) - (spec: 1 symbolic-table-delete! symbolic-table-delete!) - (spec: 1 byte-port::t byte-port::t) - (spec: 1 hash->list hash->list) - (spec: 1 interned-symbol? interned-symbol?) - (spec: 1 procedure-hash procedure-hash) - (spec: 1 class->list class->list) + (spec: + 1 + make-class-slot-unchecked-accessor + make-class-slot-unchecked-accessor) (spec: 1 vector::t vector::t) - (spec: 1 socket-info::t socket-info::t) - (spec: 1 make-keyword make-keyword) - (spec: 1 t::t t::t) - (spec: 1 hash-map hash-map) - (spec: 1 move-file move-file) - (spec: 1 bind-specializer! bind-specializer!) - (spec: 1 unchecked-slot-ref unchecked-slot-ref) - (spec: 1 interface-cast-error? interface-cast-error?) - (spec: 1 symblic-hash symblic-hash) - (spec: 1 class-type-system? class-type-system?) - (spec: 1 make-AST make-AST) + (spec: 1 direct-instance? direct-instance?) + (spec: 1 keyword-dispatch keyword-dispatch) + (spec: 1 thread-group::t thread-group::t) + (spec: 1 interface-instance-object interface-instance-object) + (spec: 1 gerbil-version-string gerbil-version-string) + (spec: 1 struct-copy struct-copy) + (spec: 1 &class-type-fields &class-type-fields) + (spec: 1 fx=0? fx=0?) + (spec: 1 hash-find hash-find) + (spec: 1 file-info::t file-info::t) + (spec: 1 remove1 remove1) + (spec: 1 with-lock with-lock) + (spec: 1 create-directory* create-directory*) + (spec: 1 list->hash-table-symbolic list->hash-table-symbolic) + (spec: 1 plist->hash-table-eqv plist->hash-table-eqv) + (spec: 1 class::t class::t) + (spec: 1 gerbil-system-version-string gerbil-system-version-string) + (spec: 1 new-instance new-instance) + (spec: 1 struct->list struct->list) + (spec: 1 fx<=0? fx<=0?) + (spec: 1 dssl-token? dssl-token?) + (spec: 1 slot-ref slot-ref) + (spec: 1 bind-method! bind-method!) + (spec: 1 s32vector::t s32vector::t) + (spec: 1 hash-copy hash-copy) + (spec: 1 unchecked-slot-set! unchecked-slot-set!) + (spec: 1 cpxnum::t cpxnum::t) + (spec: 1 true::t true::t) + (spec: 1 plist->hash-table-eq plist->hash-table-eq) + (spec: 1 class-type? class-type?) + (spec: 1 class-type-sealed? class-type-sealed?) + (spec: 1 class-type-flags class-type-flags) + (spec: 1 object::t object::t) + (spec: 1 &class-type-slot-vector &class-type-slot-vector) + (spec: 1 string-rindex string-rindex) + (spec: 1 checked-bound-method-ref checked-bound-method-ref) + (spec: 1 build-manifest-string build-manifest-string) + (spec: 1 false false) (spec: 1 display-exception display-exception) - (spec: 1 symbolic-table-set! symbolic-table-set!) - (spec: 1 immediate? immediate?) - (spec: 1 bytes->string bytes->string) - (spec: 1 gerbil-greeting-set! gerbil-greeting-set!) - (spec: 1 class-instance? class-instance?) - (spec: 1 type-of type-of) - (spec: 1 processor::t processor::t) - (spec: 1 vm::t vm::t) - (spec: 1 remf remf) + (spec: 1 assgetv assgetv) + (spec: 1 hash-merge hash-merge) + (spec: 1 spawn/group spawn/group) + (spec: 1 eq-hash eq-hash) + (spec: 1 u16vector::t u16vector::t) (spec: 1 condvar::t condvar::t) - (spec: 1 hash-clear! hash-clear!) - (spec: 1 source-location-path? source-location-path?) - (spec: 1 display-as-string display-as-string) - (spec: 1 string-index string-index) - (spec: 1 agetq agetq) - (spec: 1 hash-merge! hash-merge!) - (spec: 1 hvector? hvector?) - (spec: 1 interface-descriptor-methods interface-descriptor-methods) - (spec: 1 list->hash-table list->hash-table) - (spec: 1 class-type-fields class-type-fields) + (spec: 1 thread-local-delete! thread-local-delete!) + (spec: 1 symbolic::t symbolic::t) + (spec: 1 symbol::t symbol::t) + (spec: 1 class-type class-type) + (spec: 1 fx>0? fx>0?) + (spec: 1 struct-instance-init! struct-instance-init!) + (spec: 1 call-method call-method) + (spec: 1 file-newer? file-newer?) + (spec: 1 hash-values hash-values) (spec: 1 return::t return::t) - (spec: 1 class-type? class-type?) - (spec: 1 make-hash-table make-hash-table) - (spec: 1 sequence? sequence?) - (spec: 1 string-port? string-port?) - (spec: 1 make-syntax-error make-syntax-error) - (spec: 1 substring->bytes substring->bytes) - (spec: 1 error-trace error-trace) - (spec: 1 thread-group::t thread-group::t) - (spec: 1 object::t object::t) - (spec: 1 bound-method-ref bound-method-ref) + (spec: 1 with-exception-stack-trace with-exception-stack-trace) + (spec: 1 unbound2::t unbound2::t) + (spec: 1 list->hash-table-eqv list->hash-table-eqv) (spec: 1 plist->hash-table-immediate plist->hash-table-immediate) - (spec: 1 &class-type-name &class-type-name) - (spec: 1 read-u8vector read-u8vector) - (spec: 1 make-class-slot-accessor make-class-slot-accessor) - (spec: 1 set-load-path! set-load-path!) + (spec: 1 class-type-id class-type-id) + (spec: 1 &class-type-precedence-list &class-type-precedence-list) + (spec: 1 fx1+ fx1+) + (spec: 1 string-index string-index) + (spec: 1 atom::t atom::t) + (spec: 1 f64vector::t f64vector::t) + (spec: 1 error? error?) + (spec: 1 hash-merge-right hash-merge-right) + (spec: 1 spawn spawn) + (spec: 1 read-syntax read-syntax) + (spec: 1 display-build-manifest display-build-manifest) + (spec: 1 values-ref values-ref) + (spec: 1 writenv? writenv?) + (spec: 1 character-port::t character-port::t) + (spec: 1 fixnum::t fixnum::t) + (spec: 1 sequence? sequence?) + (spec: 1 exception? exception?) + (spec: 1 make-atomic-promise make-atomic-promise) + (spec: 1 max-char-code max-char-code) + (spec: 1 1+ 1+) + (spec: 1 gerbil-system-manifest gerbil-system-manifest) + (spec: 1 object-class object-class) + (spec: 1 class-instance-init! class-instance-init!) + (spec: 1 &class-type-properties &class-type-properties) + (spec: 1 dssl-rest? dssl-rest?) + (spec: 1 fx<0? fx<0?) + (spec: 1 bignum::t bignum::t) + (spec: 1 hash-update! hash-update!) + (spec: 1 event-queue-port? event-queue-port?) (spec: 1 make-hash-table-immediate make-hash-table-immediate) - (spec: 1 frame::t frame::t) - (spec: 1 struct-instance? struct-instance?) - (spec: 1 symbolic-table-ref symbolic-table-ref) - (spec: 1 u16vector::t u16vector::t) - (spec: 1 hash->plist hash->plist) + (spec: 1 AST? AST?) (spec: 1 procedure::t procedure::t) - (spec: 1 void? void?) - (spec: 1 class-instance-init! class-instance-init!) - (spec: 1 is-hash-table? is-hash-table?) - (spec: 1 class-type-properties class-type-properties) + (spec: 1 class-type=? class-type=?) + (spec: 1 tcp-server-port::t tcp-server-port::t) + (spec: 1 symbol->keyword symbol->keyword) + (spec: 1 immediate-hash immediate-hash) + (spec: 1 build-manifest-set! build-manifest-set!) + (spec: 1 foldl foldl) + (spec: 1 assgetq assgetq) + (spec: 1 hash-get hash-get) (spec: 1 reload-module! reload-module!) - (spec: 1 create-directory* create-directory*) - (spec: 1 displayln displayln) - (spec: 1 agetv agetv) - (spec: 1 event-queue-port::t event-queue-port::t) - (spec: 1 true::t true::t) - (spec: 1 flonum::t flonum::t) - (spec: 1 plist->hash-table-symbolic plist->hash-table-symbolic) - (spec: 1 class-type-flags class-type-flags) - (spec: 1 &class-type-precedence-list &class-type-precedence-list) - (spec: 1 raw-device-port::t raw-device-port::t) - (spec: 1 list->hash-table-eqv list->hash-table-eqv) - (spec: - 1 - make-class-slot-unchecked-accessor - make-class-slot-unchecked-accessor) - (spec: 1 remv remv) - (spec: 1 eof::t eof::t) + (spec: 1 dump-stack-trace? dump-stack-trace?) + (spec: 1 AST-e AST-e) + (spec: 1 plist->hash-table plist->hash-table) + (spec: 1 class-of class-of) + (spec: 1 object-port::t object-port::t) + (spec: 1 make-keyword make-keyword) (spec: 1 make-hash-table-symbolic make-hash-table-symbolic) - (spec: 1 hash-copy hash-copy) - (spec: 1 pair::t pair::t) - (spec: 1 hash-remove! hash-remove!) - (spec: 1 promise::t promise::t) - (spec: 1 thread-local-get thread-local-get) - (spec: 1 class-of class-of) - (spec: 1 u64vector::t u64vector::t) - (spec: 1 gerbil-path gerbil-path) - (spec: 1 class-type-seal! class-type-seal!) + (spec: 1 directory-port? directory-port?) (spec: 1 weak::t weak::t) - (spec: 1 dssl-key-object? dssl-key-object?) - (spec: 1 string-split string-split) - (spec: 1 new-instance new-instance) - (spec: 1 build-manifest-set! build-manifest-set!) - (spec: 1 interface-descriptor? interface-descriptor?) - (spec: 1 class-type-id class-type-id) - (spec: 1 &class-type-properties &class-type-properties) - (spec: 1 error error) - (spec: 1 list->hash-table-string list->hash-table-string) - (spec: 1 device-port::t device-port::t) - (spec: 1 f32vector::t f32vector::t) - (spec: 1 symbolic? symbolic?) - (spec: 1 fx1+ fx1+) - (spec: 1 HashTableLock::t HashTableLock::t) - (spec: 1 bignum::t bignum::t) - (spec: 1 u8vector-port? u8vector-port?) - (spec: 1 gerbil-runtime-smp? gerbil-runtime-smp?) - (spec: 1 keyword->symbol keyword->symbol) - (spec: 1 c4-linearize c4-linearize) - (spec: 1 class-type-slot-list class-type-slot-list) - (spec: 1 s16vector::t s16vector::t) - (spec: 1 spawn/name spawn/name) - (spec: 1 try-cast try-cast) - (spec: 1 fx=0? fx=0?) - (spec: 1 values-count values-count) - (spec: 1 port::t port::t) - (spec: 1 class-type-metaclass? class-type-metaclass?) - (spec: 1 &class-type-slot-table &class-type-slot-table) - (spec: 1 writeenv::t writeenv::t) - (spec: 1 readenv? readenv?) - (spec: 1 interface-instance-object interface-instance-object) - (spec: 1 slot-set! slot-set!) - (spec: 1 list-modules list-modules) - (spec: 1 false::t false::t) - (spec: 1 assgetq assgetq) - (spec: 1 hash-fold hash-fold) - (spec: 1 fx<0? fx<0?) - (spec: 1 pgetq pgetq) - (spec: 1 hash-update! hash-update!) - (spec: 1 thread-local-set! thread-local-set!) - (spec: 1 gerbil-system gerbil-system) + (spec: 1 continuation::t continuation::t) (spec: 1 udp-port::t udp-port::t) - (spec: 1 keyword-rest keyword-rest) - (spec: 1 with-dynamic-lock with-dynamic-lock) - (spec: 1 s64vector::t s64vector::t) - (spec: 1 dssl-optional-object? dssl-optional-object?) - (spec: 1 directory-port? directory-port?) - (spec: 1 raise raise) - (spec: 1 make-symbol make-symbol) - (spec: 1 assgetv assgetv) - (spec: 1 hash-length hash-length) - (spec: 1 filter-map filter-map) - (spec: 1 &class-type-fields &class-type-fields) - (spec: 1 gerbil-system-manifest gerbil-system-manifest) - (spec: 1 udp-port? udp-port?) - (spec: 1 class-type-constructor class-type-constructor) + (spec: 1 make-AST make-AST) + (spec: 1 pgetv pgetv) + (spec: 1 optional::t optional::t) + (spec: 1 substring->bytes substring->bytes) + (spec: 1 frame::t frame::t) + (spec: 1 make-syntax-error make-syntax-error) + (spec: 1 special? special?) + (spec: 1 error-trace error-trace) + (spec: 1 make-hash-table make-hash-table) + (spec: 1 absent-value absent-value) + (spec: 1 make-class-type make-class-type) + (spec: 1 directory-port::t directory-port::t) + (spec: 1 readtable::t readtable::t) + (spec: 1 with-catch with-catch) + (spec: 1 unbound-key-error? unbound-key-error?) (spec: 1 keyword::t keyword::t) - (spec: 1 with-exception-stack-trace with-exception-stack-trace) - (spec: 1 with-exception-handler with-exception-handler) - (spec: - 1 - datum-parsing-exception-filepos - datum-parsing-exception-filepos) - (spec: 1 s8vector::t s8vector::t) - (spec: 1 dssl-rest-object? dssl-rest-object?) - (spec: 1 spawn/group spawn/group) - (spec: 1 method-ref method-ref) - (spec: 1 symbol->keyword symbol->keyword) - (spec: 1 build-manifest-string build-manifest-string) - (spec: 1 fxshift fxshift) - (spec: 1 interface-instance? interface-instance?) - (spec: 1 load-path load-path) - (spec: 1 readenv::t readenv::t) - (spec: 1 continuation::t continuation::t) - (spec: 1 string-hash string-hash) - (spec: 1 display* display*) - (spec: 1 add-load-path! add-load-path!) - (spec: 1 atom::t atom::t) - (spec: 1 table::t table::t) - (spec: 1 hash-merge hash-merge) + (spec: 1 t::t t::t) + (spec: 1 class-type-fields class-type-fields) (spec: 1 thread::t thread::t) - (spec: 1 eof-object eof-object) - (spec: 1 gerbil-version-string gerbil-version-string) - (spec: 1 &class-type-flags &class-type-flags) - (spec: 1 hash-values hash-values) - (spec: 1 class-type-field-count class-type-field-count) - (spec: 1 class-type=? class-type=?) - (spec: 1 seal-class! seal-class!) - (spec: 1 foldr foldr) - (spec: 1 vector-port? vector-port?) - (spec: 1 interned-keyword? interned-keyword?) - (spec: 1 class-type-methods class-type-methods) - (spec: 1 error-object? error-object?) - (spec: 1 readtable::t readtable::t) - (spec: 1 display-build-manifest display-build-manifest) + (spec: 1 interface-instance::t interface-instance::t) + (spec: 1 &class-type-name &class-type-name) + (spec: 1 source-location-path? source-location-path?) (spec: 1 aget aget) - (spec: 1 make-interface-descriptor make-interface-descriptor) - (spec: 1 make-symbolic-table make-symbolic-table) - (spec: 1 hash-merge-right hash-merge-right) - (spec: 1 plist->hash-table plist->hash-table) - (spec: 1 &class-type-id &class-type-id) - (spec: 1 integer::t integer::t) - (spec: 1 cast cast) - (spec: 1 with-unwind-protect with-unwind-protect) - (spec: 1 read-syntax read-syntax) - (spec: 1 class::t class::t) - (spec: 1 dump-stack-trace? dump-stack-trace?) - (spec: 1 make-hash-table-eq make-hash-table-eq) - (spec: 1 special::t special::t) - (spec: 1 string::t string::t) - (spec: 1 symbol::t symbol::t) - (spec: 1 build-manifest/layer build-manifest/layer) - (spec: 1 number::t number::t) - (spec: 1 checked-method-ref checked-method-ref) + (spec: 1 rest::t rest::t) + (spec: 1 writeenv::t writeenv::t) + (spec: 1 with-exception-catcher with-exception-catcher) + (spec: 1 values->list values->list) + (spec: 1 dump-stack-trace! dump-stack-trace!) + (spec: 1 list::t list::t) + (spec: 1 gerbil-path gerbil-path) (spec: 1 ormap ormap) - (spec: 1 gerbil-greeting gerbil-greeting) - (spec: 1 class-type-name class-type-name) + (spec: 1 class->list class->list) (spec: 1 immediate::t immediate::t) + (spec: 1 byte-port::t byte-port::t) + (spec: 1 make-hash-table-eqv make-hash-table-eqv) (spec: 1 real::t real::t) - (spec: 1 source-location-path source-location-path) - (spec: 1 string-join string-join) - (spec: 1 error-irritants error-irritants) - (spec: 1 find-method find-method) - (spec: 1 tcp-server-port? tcp-server-port?) + (spec: 1 void::t void::t) + (spec: 1 u8vector-port::t u8vector-port::t) + (spec: 1 dssl-optional? dssl-optional?) + (spec: 1 class-type-slot-table class-type-slot-table) + (spec: 1 class-type-final? class-type-final?) + (spec: 1 symbolic-table-delete! symbolic-table-delete!) + (spec: 1 gerbil-greeting-set! gerbil-greeting-set!) + (spec: 1 number::t number::t) + (spec: 1 &class-type-id &class-type-id) + (spec: 1 boolean::t boolean::t) + (spec: 1 &interface-instance-object &interface-instance-object) + (spec: 1 hash-for-each hash-for-each) + (spec: 1 as-string as-string) + (spec: 1 s64vector::t s64vector::t) + (spec: 1 replx replx) + (spec: 1 device-port? device-port?) + (spec: 1 load-path load-path) + (spec: 1 raise-unbound-key-error raise-unbound-key-error) + (spec: 1 true? true?) + (spec: 1 class-type-constructor class-type-constructor) + (spec: 1 call-with-parameters call-with-parameters) + (spec: 1 fxshift fxshift) + (spec: 1 spawn/name spawn/name) + (spec: 1 make-object make-object) + (spec: 1 u8vector::t u8vector::t) + (spec: 1 list->hash-table-string list->hash-table-string) + (spec: 1 thread-local-set! thread-local-set!) + (spec: 1 class-type-slot-vector class-type-slot-vector) + (spec: 1 symbolic-table-ref symbolic-table-ref) + (spec: 1 nonnegative-fixnum? nonnegative-fixnum?) + (spec: 1 gerbil-load-expander! gerbil-load-expander!) + (spec: 1 HashTableLock::t HashTableLock::t) (spec: 1 hash-put! hash-put!) - (spec: 1 object-port? object-port?) - (spec: 1 hvector::t hvector::t) - (spec: 1 plist->hash-table-eq plist->hash-table-eq) - (spec: 1 unchecked-slot-set! unchecked-slot-set!) - (spec: 1 make-promise make-promise) - (spec: 1 character-port::t character-port::t) - (spec: 1 sequence::t sequence::t) - (spec: 1 byte-port? byte-port?) - (spec: 1 struct-copy struct-copy) - (spec: 1 absent-obj absent-obj) - (spec: 1 object-fill! object-fill!) - (spec: 1 gerbil-home gerbil-home) - (spec: 1 vm? vm?) - (spec: 1 class-type-precedence-list class-type-precedence-list) - (spec: 1 source-location? source-location?) - (spec: 1 u64vector? u64vector?) - (spec: 1 module-whitelist-reset! module-whitelist-reset!) - (spec: 1 file-exists-exception? file-exists-exception?) - (spec: 1 udp-read-subu8vector udp-read-subu8vector) - (spec: 1 readtable-comment-handler-set readtable-comment-handler-set) - (spec: 1 filter filter) - (spec: - 1 - uninitialized-thread-exception-arguments - uninitialized-thread-exception-arguments) - (spec: 1 delete! delete!) - (spec: - 1 - join-timeout-exception-procedure - join-timeout-exception-procedure) - (spec: 1 remq remq) - (spec: 1 call-with-output-u8vector call-with-output-u8vector) - (spec: 1 flcos flcos) - (spec: - 1 - not-in-compilation-context-exception? - not-in-compilation-context-exception?) - (spec: 1 foreign-released? foreign-released?) - (spec: 1 open-udp open-udp) - (spec: 1 repl-result-history-ref repl-result-history-ref) - (spec: 1 dotted-list? dotted-list?) - (spec: 1 keyword-expected-exception? keyword-expected-exception?) - (spec: 1 fxlength fxlength) - (spec: - 1 - terminated-thread-exception-arguments - terminated-thread-exception-arguments) - (spec: 1 third third) - (spec: 1 thread-resume! thread-resume!) - (spec: 1 time time) - (spec: 1 s32vector-ref s32vector-ref) - (spec: 1 char-set-intersection! char-set-intersection!) - (spec: - 1 - permission-denied-exception-procedure - permission-denied-exception-procedure) - (spec: 1 abort abort) - (spec: 1 string-ci=?-hash string-ci=?-hash) - (spec: 1 s8vector-length s8vector-length) - (spec: - 1 - tty-paren-balance-duration-set! - tty-paren-balance-duration-set!) - (spec: 1 string-suffix? string-suffix?) - (spec: 1 u64vector->list u64vector->list) - (spec: 1 user-info user-info) - (spec: 1 write-file-string write-file-string) - (spec: 1 atanh atanh) - (spec: 1 u8vector-set u8vector-set) - (spec: 1 create-symbolic-link create-symbolic-link) - (spec: 1 protocol-info protocol-info) - (spec: 1 subf64vector-fill! subf64vector-fill!) - (spec: 1 file-info? file-info?) - (spec: 1 subvector-fill! subvector-fill!) - (spec: 1 create-fifo create-fifo) - (spec: - 1 - inactive-thread-exception-procedure - inactive-thread-exception-procedure) - (spec: 1 random-source-make-f64vectors random-source-make-f64vectors) + (spec: 1 build-manifest/layer build-manifest/layer) + (spec: 1 foreign::t foreign::t) + (spec: 1 make-class-predicate make-class-predicate) (spec: 1 - nonempty-input-port-character-buffer-exception-procedure - nonempty-input-port-character-buffer-exception-procedure) - (spec: 1 fl/ fl/) + unhandled-actor-exception-hook-set! + unhandled-actor-exception-hook-set!) + (spec: 1 direct-method-ref direct-method-ref) + (spec: 1 ratnum::t ratnum::t) + (spec: 1 constructor-init! constructor-init!) + (spec: 1 string-split string-split) + (spec: 1 class-type-field-count class-type-field-count) + (spec: 1 hvector::t hvector::t) + (spec: 1 hash->plist hash->plist) + (spec: 1 byte-port? byte-port?) + (spec: 1 satisfies? satisfies?) + (spec: 1 readenv::t readenv::t) + (spec: 1 dssl-object? dssl-object?) + (spec: 1 current-thread-group current-thread-group) + (spec: 1 list-modules list-modules) + (spec: 1 pair::t pair::t) + (spec: 1 &class-type-slot-table &class-type-slot-table) + (spec: 1 string-port::t string-port::t) + (spec: 1 make-instance make-instance) + (spec: 1 add-load-path! add-load-path!) + (spec: 1 read-u8vector read-u8vector) + (spec: 1 vector-port? vector-port?) + (spec: 1 make-class-slot-mutator make-class-slot-mutator) + (spec: 1 promise::t promise::t) + (spec: 1 keyword->symbol keyword->symbol) (spec: 1 - unbound-os-environment-variable-exception-procedure - unbound-os-environment-variable-exception-procedure) - (spec: 1 input-port-bytes-buffered input-port-bytes-buffered) - (spec: 1 flmin flmin) - (spec: 1 thread-group-terminate! thread-group-terminate!) - (spec: 1 readtable-start-syntax readtable-start-syntax) - (spec: 1 s16vector-shrink! s16vector-shrink!) - (spec: 1 thread-state-running? thread-state-running?) - (spec: 1 flsin flsin) - (spec: 1 list->char-set! list->char-set!) - (spec: 1 s64vector-ref s64vector-ref) - (spec: 1 char-set-complement! char-set-complement!) - (spec: 1 fx< fx<) - (spec: 1 vector-set vector-set) - (spec: 1 all-bits-set? all-bits-set?) - (spec: 1 script-file script-file) - (spec: 1 u16vector->list u16vector->list) - (spec: 1 fxremainder fxremainder) - (spec: 1 with-input-from-u8vector with-input-from-u8vector) - (spec: 1 extract-bit-field extract-bit-field) - (spec: 1 service-info? service-info?) - (spec: 1 subu16vector subu16vector) - (spec: 1 bit-count bit-count) - (spec: 1 f32vector-shrink! f32vector-shrink!) - (spec: 1 copy-bit-field copy-bit-field) - (spec: 1 file-group file-group) - (spec: 1 udp-source-socket-info udp-source-socket-info) - (spec: 1 readtable-eval-allowed?-set readtable-eval-allowed?-set) + readtable-sharing-allowed?-set + readtable-sharing-allowed?-set) + (spec: 1 table? table?) (spec: 1 - uninitialized-thread-exception? - uninitialized-thread-exception?) - (spec: 1 repl-backtrace-detail-level repl-backtrace-detail-level) - (spec: 1 terminated-thread-exception? terminated-thread-exception?) - (spec: 1 fldenominator fldenominator) - (spec: 1 not-pair? not-pair?) - (spec: 1 thread thread) - (spec: 1 open-vector-pipe open-vector-pipe) - (spec: 1 split-at! split-at!) - (spec: 1 drop-right drop-right) - (spec: 1 keyword? keyword?) - (spec: 1 thread-sleep! thread-sleep!) - (spec: 1 user-info-home user-info-home) - (spec: 1 vector-fold-right vector-fold-right) - (spec: 1 char-set-ref char-set-ref) - (spec: 1 fxmin fxmin) - (spec: 1 time? time?) - (spec: 1 s32vector-set! s32vector-set!) - (spec: 1 tty-text-attributes-set! tty-text-attributes-set!) - (spec: 1 process-times process-times) - (spec: 1 write-file-u8vector write-file-u8vector) - (spec: 1 configure-command-string configure-command-string) - (spec: 1 s8vector-ref s8vector-ref) - (spec: 1 make-bitwise-generator make-bitwise-generator) - (spec: 1 f32vector->list f32vector->list) - (spec: 1 u64vector-concatenate u64vector-concatenate) - (spec: 1 protocol-info-name protocol-info-name) - (spec: 1 subs16vector subs16vector) + no-such-file-or-directory-exception-arguments + no-such-file-or-directory-exception-arguments) (spec: 1 - wrong-number-of-values-exception-rte - wrong-number-of-values-exception-rte) + unbound-os-environment-variable-exception-arguments + unbound-os-environment-variable-exception-arguments) (spec: 1 - file-last-access-and-modification-times-set! - file-last-access-and-modification-times-set!) - (spec: 1 bitwise-fold bitwise-fold) - (spec: 1 default-random-source default-random-source) - (spec: 1 random-source-make-reals random-source-make-reals) - (spec: 1 fl<= fl<=) + initialized-thread-exception-procedure + initialized-thread-exception-procedure) + (spec: 1 file-info-inode file-info-inode) + (spec: 1 mutex-name mutex-name) + (spec: 1 subvector subvector) + (spec: 1 sfun-conversion-exception? sfun-conversion-exception?) + (spec: 1 bitwise-andc1 bitwise-andc1) + (spec: 1 f64vector-copy f64vector-copy) + (spec: 1 concatenate! concatenate!) + (spec: 1 host-info-name host-info-name) + (spec: 1 subf32vector-fill! subf32vector-fill!) + (spec: 1 group-info-name group-info-name) + (spec: 1 with-output-to-port with-output-to-port) + (spec: 1 poll-point poll-point) + (spec: 1 circular-list? circular-list?) + (spec: 1 group-info group-info) + (spec: 1 every every) + (spec: 1 vector-swap! vector-swap!) + (spec: 1 fxwrap+ fxwrap+) + (spec: 1 s16vector-set! s16vector-set!) (spec: 1 - input-port-characters-buffered - input-port-characters-buffered) - (spec: 1 flnegative? flnegative?) - (spec: 1 object->string object->string) + thread-state-running-processor + thread-state-running-processor) + (spec: 1 char-set-count char-set-count) + (spec: 1 fx> fx>) + (spec: 1 os-exception-code os-exception-code) + (spec: 1 thread-group-suspend! thread-group-suspend!) + (spec: 1 flsquare flsquare) (spec: 1 - cfun-conversion-exception-code - cfun-conversion-exception-code) + cfun-conversion-exception-message + cfun-conversion-exception-message) + (spec: 1 open-directory open-directory) + (spec: 1 flnan? flnan?) + (spec: 1 fleven? fleven?) + (spec: 1 input-port-readtable input-port-readtable) + (spec: 1 system-type system-type) + (spec: 1 udp-write-subu8vector udp-write-subu8vector) + (spec: 1 network-info-name network-info-name) + (spec: 1 range-exception-arguments range-exception-arguments) + (spec: 1 current-directory current-directory) + (spec: 1 module-not-found-exception? module-not-found-exception?) + (spec: 1 file-info file-info) + (spec: 1 subs8vector-fill! subs8vector-fill!) + (spec: 1 conjugate conjugate) + (spec: 1 u32vector-append u32vector-append) + (spec: 1 make-tls-context make-tls-context) + (spec: 1 bit-field-clear bit-field-clear) + (spec: 1 service-info service-info) + (spec: 1 scheduler-exception-reason scheduler-exception-reason) + (spec: 1 u16vector-append u16vector-append) + (spec: 1 s8vector-append s8vector-append) + (spec: 1 tty-type-set! tty-type-set!) (spec: 1 - readtable-write-cdr-read-macros? - readtable-write-cdr-read-macros?) - (spec: 1 take! take!) - (spec: 1 thread-state-uninitialized? thread-state-uninitialized?) - (spec: 1 flsqrt flsqrt) - (spec: 1 char-set-copy char-set-copy) - (spec: 1 err-code->string err-code->string) - (spec: 1 list->f64vector list->f64vector) - (spec: 1 s16vector? s16vector?) - (spec: 1 fx= fx=) - (spec: 1 output-port-byte-position output-port-byte-position) - (spec: 1 touch touch) - (spec: 1 s64vector-set! s64vector-set!) - (spec: 1 u16vector-concatenate u16vector-concatenate) - (spec: 1 fxwrap* fxwrap*) - (spec: 1 circular-list circular-list) - (spec: 1 path-extension path-extension) - (spec: 1 step-level-set! step-level-set!) - (spec: 1 make-s16vector make-s16vector) - (spec: 1 second second) - (spec: 1 bit-field-any? bit-field-any?) - (spec: 1 vector-shrink! vector-shrink!) - (spec: 1 u32vector->list u32vector->list) - (spec: 1 host-info-addresses host-info-addresses) - (spec: 1 subu16vector-move! subu16vector-move!) - (spec: 1 f32vector? f32vector?) - (spec: 1 make-will make-will) - (spec: 1 set-box! set-box!) - (spec: 1 multiple-c-return-exception? multiple-c-return-exception?) - (spec: 1 first first) + wrong-number-of-values-exception? + wrong-number-of-values-exception?) + (spec: 1 list->u32vector list->u32vector) + (spec: 1 s32vector-copy s32vector-copy) + (spec: 1 vector-every vector-every) + (spec: 1 output-port-width output-port-width) + (spec: 1 fxior fxior) + (spec: 1 char-set-intersection char-set-intersection) (spec: 1 - initialized-thread-exception-procedure - initialized-thread-exception-procedure) - (spec: 1 table-copy table-copy) - (spec: 1 u8vector u8vector) - (spec: 1 call/cc call/cc) - (spec: 1 flexp flexp) - (spec: 1 udp-write-u8vector udp-write-u8vector) - (spec: 1 test-bit-field? test-bit-field?) + length-mismatch-exception-arg-id + length-mismatch-exception-arg-id) (spec: 1 - readtable-keywords-allowed?-set - readtable-keywords-allowed?-set) - (spec: 1 uninterned-keyword? uninterned-keyword?) - (spec: 1 user-info-shell user-info-shell) - (spec: 1 thread-base-priority-set! thread-base-priority-set!) - (spec: 1 fourth fourth) + rpc-remote-error-exception-message + rpc-remote-error-exception-message) + (spec: 1 thread-specific thread-specific) + (spec: 1 foreign-release! foreign-release!) + (spec: 1 open-output-vector open-output-vector) + (spec: 1 repl-error-port repl-error-port) + (spec: 1 drop-right! drop-right!) + (spec: 1 tcp-service-unregister! tcp-service-unregister!) (spec: 1 - started-thread-exception-procedure - started-thread-exception-procedure) - (spec: 1 vector-inc! vector-inc!) - (spec: 1 thread-specific-set! thread-specific-set!) - (spec: 1 char-set-unfold char-set-unfold) - (spec: 1 fxnand fxnand) - (spec: 1 string-contains string-contains) - (spec: 1 will-execute! will-execute!) - (spec: 1 s32vector-swap! s32vector-swap!) - (spec: 1 timeout->time timeout->time) - (spec: 1 gensym gensym) - (spec: 1 conjugate conjugate) - (spec: 1 make-condition-variable make-condition-variable) - (spec: 1 f32vector-concatenate f32vector-concatenate) - (spec: 1 protocol-info? protocol-info?) - (spec: 1 s8vector-set! s8vector-set!) - (spec: 1 current-directory current-directory) - (spec: 1 subs16vector-move! subs16vector-move!) - (spec: 1 tty? tty?) - (spec: 1 bitwise-if bitwise-if) - (spec: 1 u64vector-copy! u64vector-copy!) - (spec: 1 defer-user-interrupts defer-user-interrupts) - (spec: 1 input-port-line input-port-line) + display-continuation-environment + display-continuation-environment) (spec: 1 - random-source-pseudo-randomize! - random-source-pseudo-randomize!) - (spec: 1 u8vector-shrink! u8vector-shrink!) + invalid-utf8-encoding-exception-procedure + invalid-utf8-encoding-exception-procedure) (spec: 1 - nonprocedure-operator-exception-arguments - nonprocedure-operator-exception-arguments) - (spec: 1 file-last-change-time file-last-change-time) + readtable-max-unescaped-char-set + readtable-max-unescaped-char-set) + (spec: 1 take take) + (spec: 1 thread-base-priority thread-base-priority) (spec: 1 - unbound-serial-number-exception-procedure - unbound-serial-number-exception-procedure) + unbound-os-environment-variable-exception? + unbound-os-environment-variable-exception?) + (spec: 1 fl< fl<) (spec: 1 - wrong-number-of-values-exception? - wrong-number-of-values-exception?) - (spec: 1 fl> fl>) + no-such-file-or-directory-exception? + no-such-file-or-directory-exception?) + (spec: 1 u8vector-ref u8vector-ref) + (spec: 1 file-inode file-inode) + (spec: 1 mutex-specific-set! mutex-specific-set!) + (spec: 1 r7rs-raise-continuable r7rs-raise-continuable) + (spec: 1 create-link create-link) + (spec: 1 subvector-move! subvector-move!) + (spec: 1 seventh seventh) + (spec: 1 bitwise-eqv bitwise-eqv) + (spec: 1 f64vector? f64vector?) + (spec: 1 host-name host-name) + (spec: 1 processor-id processor-id) + (spec: 1 string-suffix-ci? string-suffix-ci?) + (spec: 1 subf64vector subf64vector) + (spec: 1 u64vector u64vector) + (spec: 1 with-input-from-port with-input-from-port) + (spec: 1 group-info-members group-info-members) + (spec: + 1 + wrong-number-of-arguments-exception? + wrong-number-of-arguments-exception?) + (spec: 1 s64vector-append s64vector-append) + (spec: 1 list= list=) + (spec: 1 fxwrapabs fxwrapabs) + (spec: 1 path-strip-directory path-strip-directory) + (spec: 1 eqv?-hash eqv?-hash) + (spec: 1 s16vector-copy! s16vector-copy!) + (spec: 1 fxabs fxabs) + (spec: 1 char-set-adjoin! char-set-adjoin!) + (spec: 1 output-port-line output-port-line) + (spec: 1 last last) + (spec: 1 thread-group? thread-group?) + (spec: 1 open-output-bytevector open-output-bytevector) + (spec: 1 fltanh fltanh) + (spec: 1 object->u8vector object->u8vector) + (spec: 1 flnumerator flnumerator) + (spec: 1 uncaught-exception? uncaught-exception?) + (spec: 1 flexpm1 flexpm1) + (spec: 1 read-file-u8vector read-file-u8vector) + (spec: 1 input-port-timeout-set! input-port-timeout-set!) + (spec: 1 system-version system-version) + (spec: 1 udp-local-socket-info udp-local-socket-info) + (spec: 1 first-set-bit first-set-bit) + (spec: 1 current-time current-time) + (spec: 1 random-source-state-set! random-source-state-set!) + (spec: 1 u64vector-set! u64vector-set!) + (spec: 1 file-info-creation-time file-info-creation-time) + (spec: 1 bitwise-unfold bitwise-unfold) + (spec: 1 continuation-return continuation-return) + (spec: 1 compile-file-to-target compile-file-to-target) + (spec: 1 service-info-name service-info-name) + (spec: 1 f64vector->list f64vector->list) + (spec: 1 u16vector-swap! u16vector-swap!) + (spec: 1 make-s32vector make-s32vector) + (spec: 1 asinh asinh) + (spec: 1 f32vector f32vector) + (spec: 1 s8vector-copy s8vector-copy) + (spec: 1 apropos apropos) + (spec: 1 tty-history-max-length-set! tty-history-max-length-set!) + (spec: 1 permission-denied-exception? permission-denied-exception?) + (spec: 1 string->uninterned-symbol string->uninterned-symbol) + (spec: 1 s32vector-fill! s32vector-fill!) + (spec: 1 list-sort list-sort) + (spec: 1 fxmax fxmax) + (spec: 1 char-set-every char-set-every) + (spec: 1 end-of-char-set? end-of-char-set?) + (spec: 1 rpc-remote-error-exception? rpc-remote-error-exception?) + (spec: 1 thread-quantum thread-quantum) + (spec: 1 foreign-tags foreign-tags) + (spec: 1 open-vector open-vector) + (spec: 1 repl-input-port repl-input-port) + (spec: 1 socket-info-family socket-info-family) + (spec: 1 thread-priority-set! thread-priority-set!) + (spec: 1 tcp-client-self-socket-info tcp-client-self-socket-info) (spec: 1 - cfun-conversion-exception-procedure - cfun-conversion-exception-procedure) - (spec: 1 fltan fltan) + join-timeout-exception-arguments + join-timeout-exception-arguments) + (spec: 1 display-exception-in-context display-exception-in-context) (spec: 1 - readtable-write-extended-read-macros? - readtable-write-extended-read-macros?) + readtable-max-write-length-set + readtable-max-write-length-set) + (spec: 1 table-merge! table-merge!) (spec: 1 - unterminated-process-exception-arguments - unterminated-process-exception-arguments) - (spec: 1 thread-interrupt! thread-interrupt!) - (spec: 1 char-set-cursor char-set-cursor) - (spec: 1 fx>= fx>=) - (spec: 1 open-input-vector open-input-vector) - (spec: 1 list->s32vector list->s32vector) - (spec: 1 thread-state-waiting-for thread-state-waiting-for) - (spec: 1 fxwrap- fxwrap-) - (spec: 1 output-port-column output-port-column) - (spec: 1 s64vector-swap! s64vector-swap!) - (spec: 1 clear-bit-field clear-bit-field) - (spec: 1 group-info-gid group-info-gid) - (spec: 1 vector-unfold vector-unfold) - (spec: 1 any any) - (spec: 1 make-s64vector make-s64vector) - (spec: 1 bit-field-every? bit-field-every?) - (spec: 1 f64vector f64vector) - (spec: 1 u16vector-copy! u16vector-copy!) - (spec: 1 concatenate! concatenate!) - (spec: 1 host-info-name host-info-name) - (spec: 1 subu32vector-fill! subu32vector-fill!) - (spec: 1 with-output-to-process with-output-to-process) - (spec: 1 file-info-attributes file-info-attributes) - (spec: 1 u32vector-concatenate u32vector-concatenate) - (spec: 1 r7rs-raise-continuable r7rs-raise-continuable) - (spec: 1 subu64vector subu64vector) + unbound-key-exception-arguments + unbound-key-exception-arguments) + (spec: 1 fl= fl=) (spec: 1 - datum-parsing-exception-parameters - datum-parsing-exception-parameters) - (spec: 1 u8vector->object u8vector->object) - (spec: 1 flexpt flexpt) - (spec: 1 null-list? null-list?) + default-user-interrupt-handler + default-user-interrupt-handler) + (spec: 1 input-port-column input-port-column) + (spec: 1 file-last-access-time file-last-access-time) + (spec: 1 break break) + (spec: 1 create-temporary-directory create-temporary-directory) + (spec: 1 raise raise) + (spec: 1 subu64vector-move! subu64vector-move!) (spec: 1 - readtable-max-unescaped-char-set - readtable-max-unescaped-char-set) - (spec: 1 table-length table-length) - (spec: 1 user-info? user-info?) - (spec: 1 char-set char-set) - (spec: 1 list-sort! list-sort!) - (spec: 1 char-set-union char-set-union) - (spec: 1 fxnor fxnor) - (spec: 1 s16vector->list s16vector->list) - (spec: 1 thread-state thread-state) - (spec: 1 executable-path executable-path) - (spec: 1 make-f32vector make-f32vector) - (spec: 1 will? will?) - (spec: 1 cons* cons*) - (spec: 1 s8vector-swap! s8vector-swap!) - (spec: 1 subs32vector-fill! subs32vector-fill!) - (spec: 1 make-thread make-thread) - (spec: 1 f32vector-copy! f32vector-copy!) - (spec: 1 current-exception-handler current-exception-handler) - (spec: 1 random-source-state-set! random-source-state-set!) - (spec: 1 symbol-hash symbol-hash) - (spec: 1 u64vector-length u64vector-length) - (spec: 1 bitwise-merge bitwise-merge) - (spec: 1 u8vector? u8vector?) - (spec: 1 input-port-readtable input-port-readtable) - (spec: 1 read-file-string read-file-string) + sfun-conversion-exception-arguments + sfun-conversion-exception-arguments) + (spec: 1 bits bits) + (spec: 1 u32vector-set! u32vector-set!) (spec: 1 - wrong-processor-c-return-exception? - wrong-processor-c-return-exception?) - (spec: 1 file-mode file-mode) - (spec: 1 unbox unbox) - (spec: 1 readtable? readtable?) - (spec: 1 flabs flabs) + wrong-number-of-values-exception-code + wrong-number-of-values-exception-code) + (spec: 1 string-prefix-length-ci string-prefix-length-ci) + (spec: 1 with-input-from-string with-input-from-string) + (spec: 1 getenv getenv) + (spec: 1 s64vector-copy s64vector-copy) + (spec: 1 address-info? address-info?) + (spec: 1 string->keyword string->keyword) + (spec: 1 fxquotient fxquotient) (spec: 1 - nonprocedure-operator-exception-operator - nonprocedure-operator-exception-operator) - (spec: 1 fltruncate fltruncate) + path-strip-trailing-directory-separator + path-strip-trailing-directory-separator) + (spec: 1 list->s16vector list->s16vector) + (spec: 1 error error) + (spec: 1 output-port-readtable output-port-readtable) + (spec: 1 char-set-complement char-set-complement) + (spec: 1 fx- fx-) + (spec: 1 s16vector-length s16vector-length) + (spec: 1 thread-group-parent thread-group-parent) + (spec: 1 flscalbn flscalbn) + (spec: 1 open-output-process open-output-process) + (spec: 1 sixth sixth) + (spec: 1 fllog fllog) + (spec: 1 call-with-output-string call-with-output-string) + (spec: 1 flceiling flceiling) + (spec: 1 delete delete) + (spec: 1 integer-sqrt integer-sqrt) + (spec: 1 random-u8vector random-u8vector) + (spec: 1 mutex-lock! mutex-lock!) (spec: 1 - unterminated-process-exception? - unterminated-process-exception?) - (spec: 1 display-procedure-environment display-procedure-environment) + file-exists-exception-procedure + file-exists-exception-procedure) + (spec: 1 subs64vector subs64vector) + (spec: 1 u64vector-swap! u64vector-swap!) + (spec: 1 f32vector-set! f32vector-set!) + (spec: 1 expression-parsing-exception? expression-parsing-exception?) + (spec: 1 make-s8vector make-s8vector) + (spec: 1 make-f64vector make-f64vector) + (spec: 1 s8vector? s8vector?) + (spec: 1 tty-mode-set! tty-mode-set!) + (spec: 1 string-concatenate string-concatenate) + (spec: 1 char-set-filter! char-set-filter!) + (spec: 1 list-tabulate list-tabulate) + (spec: 1 abandoned-mutex-exception? abandoned-mutex-exception?) + (spec: 1 vector-concatenate vector-concatenate) + (spec: 1 fxeqv fxeqv) (spec: 1 - thread-mailbox-extract-and-rewind - thread-mailbox-extract-and-rewind) - (spec: 1 char-set-delete char-set-delete) - (spec: 1 fxand fxand) - (spec: 1 s32vector s32vector) - (spec: 1 thread-state-waiting? thread-state-waiting?) - (spec: 1 fxwraparithmetic-shift fxwraparithmetic-shift) - (spec: 1 path-strip-extension path-strip-extension) - (spec: 1 error-exception-parameters error-exception-parameters) - (spec: 1 list->s8vector list->s8vector) - (spec: 1 group-info-name group-info-name) - (spec: 1 pretty-print pretty-print) - (spec: 1 string->char-set! string->char-set!) - (spec: 1 any-bits-set? any-bits-set?) - (spec: 1 serial-number->object serial-number->object) - (spec: 1 f64vector-append f64vector-append) - (spec: 1 bit-field-replace-same bit-field-replace-same) - (spec: 1 u16vector-length u16vector-length) - (spec: 1 processor-id processor-id) - (spec: 1 host-name host-name) - (spec: 1 string=?-hash string=?-hash) - (spec: 1 file-info-device file-info-device) - (spec: 1 with-output-to-u8vector with-output-to-u8vector) - (spec: 1 bitwise-nand bitwise-nand) - (spec: 1 fifth fifth) - (spec: 1 u32vector-copy! u32vector-copy!) - (spec: 1 ucs-range->char-set ucs-range->char-set) - (spec: 1 read-substring read-substring) - (spec: 1 file-number-of-links file-number-of-links) - (spec: 1 unbreak unbreak) - (spec: 1 iota iota) + started-thread-exception-arguments + started-thread-exception-arguments) + (spec: 1 s16vector-append s16vector-append) + (spec: 1 thread-receive thread-receive) + (spec: 1 force-output force-output) + (spec: 1 join-timeout-exception? join-timeout-exception?) + (spec: 1 rename-file rename-file) (spec: 1 - nonprocedure-operator-exception-rte - nonprocedure-operator-exception-rte) - (spec: 1 flacos flacos) - (spec: 1 socket-info-address socket-info-address) - (spec: 1 untrace untrace) - (spec: 1 thread-mailbox-next thread-mailbox-next) - (spec: 1 fxarithmetic-shift-right fxarithmetic-shift-right) - (spec: 1 char-set-difference! char-set-difference!) - (spec: 1 vector-any vector-any) - (spec: 1 thread-suspend! thread-suspend!) - (spec: 1 fxxor fxxor) - (spec: 1 string->uninterned-keyword string->uninterned-keyword) - (spec: 1 error-exception? error-exception?) - (spec: 1 s32vector->list s32vector->list) - (spec: 1 primordial-exception-handler primordial-exception-handler) - (spec: 1 string-prefix? string-prefix?) - (spec: 1 bit-swap bit-swap) - (spec: 1 f64vector-length f64vector-length) - (spec: 1 u32vector-set u32vector-set) - (spec: 1 processor? processor?) - (spec: 1 write-substring write-substring) + readtable-write-extended-read-macros?-set + readtable-write-extended-read-macros?-set) + (spec: 1 table-search table-search) (spec: 1 - file-info-last-modification-time - file-info-last-modification-time) - (spec: 1 mutex-state mutex-state) - (spec: 1 u8vector-fill! u8vector-fill!) - (spec: 1 cosh cosh) - (spec: 1 r7rs-raise r7rs-raise) - (spec: 1 subu32vector-move! subu32vector-move!) + nonprocedure-operator-exception-code + nonprocedure-operator-exception-code) + (spec: 1 fl+ fl+) + (spec: 1 unbound-key-exception? unbound-key-exception?) + (spec: 1 file-info-owner file-info-owner) + (spec: 1 bits->vector bits->vector) + (spec: 1 random-source-randomize! random-source-randomize!) + (spec: 1 subu8vector-fill! subu8vector-fill!) + (spec: 1 u32vector-swap! u32vector-swap!) + (spec: 1 f64vector-set f64vector-set) + (spec: 1 protocol-info-number protocol-info-number) + (spec: 1 arithmetic-shift arithmetic-shift) + (spec: 1 condition-variable-signal! condition-variable-signal!) + (spec: 1 host-info host-info) + (spec: 1 process-status process-status) + (spec: 1 string-prefix-length string-prefix-length) + (spec: 1 s64vector? s64vector?) + (spec: 1 path-expand path-expand) + (spec: 1 fxsquare fxsquare) + (spec: 1 char-set-diff+intersection! char-set-diff+intersection!) + (spec: 1 eq?-hash eq?-hash) + (spec: 1 list->s64vector list->s64vector) (spec: 1 - no-such-file-or-directory-exception-procedure - no-such-file-or-directory-exception-procedure) + thread-state-normally-terminated? + thread-state-normally-terminated?) + (spec: 1 fx<= fx<=) + (spec: 1 thread-group-specific thread-group-specific) + (spec: 1 open-input-process open-input-process) + (spec: 1 flsinh flsinh) + (spec: 1 untrace untrace) (spec: 1 - fixnum-overflow-exception-arguments - fixnum-overflow-exception-arguments) - (spec: 1 datum-parsing-exception-kind datum-parsing-exception-kind) - (spec: 1 initialized-thread-exception? initialized-thread-exception?) - (spec: 1 u8vector-copy u8vector-copy) - (spec: 1 flhypot flhypot) + unknown-keyword-argument-exception-procedure + unknown-keyword-argument-exception-procedure) + (spec: 1 flcosh flcosh) + (spec: 1 readtable-eval-allowed? readtable-eval-allowed?) (spec: 1 unbound-global-exception-variable unbound-global-exception-variable) - (spec: 1 readtable-max-unescaped-char readtable-max-unescaped-char) - (spec: 1 table-for-each table-for-each) - (spec: - 1 - unknown-keyword-argument-exception-procedure - unknown-keyword-argument-exception-procedure) - (spec: 1 flonum? flonum?) - (spec: 1 user-info-uid user-info-uid) - (spec: 1 s16vector-copy s16vector-copy) - (spec: 1 thread-group->thread-list thread-group->thread-list) + (spec: 1 filter! filter!) + (spec: 1 box? box?) + (spec: 1 current-processor current-processor) + (spec: 1 initial-current-directory initial-current-directory) + (spec: 1 link-flat link-flat) + (spec: 1 u8vector-copy u8vector-copy) + (spec: 1 bit-field-set bit-field-set) + (spec: 1 subs64vector-move! subs64vector-move!) + (spec: 1 xcons xcons) + (spec: 1 f32vector-swap! f32vector-swap!) + (spec: 1 type-exception-procedure type-exception-procedure) (spec: 1 address-info-protocol address-info-protocol) - (spec: 1 every-bit-set? every-bit-set?) + (spec: 1 string-contains-ci string-contains-ci) + (spec: 1 fxfirst-set-bit fxfirst-set-bit) (spec: 1 char-set-unfold! char-set-unfold!) - (spec: 1 fxnegative? fxnegative?) (spec: 1 s64vector->list s64vector->list) - (spec: 1 arithmetic-shift arithmetic-shift) + (spec: 1 will-testator will-testator) (spec: 1 started-thread-exception? started-thread-exception?) (spec: 1 thread-state-abnormally-terminated? thread-state-abnormally-terminated?) - (spec: 1 will-testator will-testator) - (spec: 1 string-contains-ci string-contains-ci) - (spec: 1 subs64vector-fill! subs64vector-fill!) - (spec: 1 type-exception-procedure type-exception-procedure) - (spec: 1 make-table make-table) - (spec: 1 f32vector-copy f32vector-copy) - (spec: 1 u64vector-fill! u64vector-fill!) - (spec: 1 file-creation-time file-creation-time) - (spec: 1 bitwise-not bitwise-not) - (spec: 1 current-readtable current-readtable) + (spec: 1 s16vector-copy s16vector-copy) + (spec: 1 user-info-uid user-info-uid) + (spec: 1 open-tcp-server open-tcp-server) + (spec: 1 flmax flmax) + (spec: 1 keyword-hash keyword-hash) + (spec: 1 drop drop) + (spec: 1 flcos flcos) + (spec: 1 object->string object->string) + (spec: 1 thread-group->thread-list thread-group->thread-list) (spec: 1 - module-not-found-exception-procedure - module-not-found-exception-procedure) - (spec: 1 shell-command shell-command) - (spec: 1 system-stamp system-stamp) - (spec: 1 network-info-aliases network-info-aliases) - (spec: 1 tcp-server-socket-info tcp-server-socket-info) - (spec: 1 call-with-input-string call-with-input-string) - (spec: 1 uncaught-exception-arguments uncaught-exception-arguments) - (spec: 1 open-string open-string) - (spec: 1 socket-info-port-number socket-info-port-number) + unknown-keyword-argument-exception-arguments + unknown-keyword-argument-exception-arguments) + (spec: 1 filter filter) (spec: 1 - divide-by-zero-exception-procedure - divide-by-zero-exception-procedure) - (spec: 1 fxbit-set? fxbit-set?) - (spec: 1 vector-cas! vector-cas!) + not-in-compilation-context-exception? + not-in-compilation-context-exception?) (spec: 1 - rpc-remote-error-exception-arguments - rpc-remote-error-exception-arguments) - (spec: 1 char-set-filter char-set-filter) - (spec: 1 thread-name thread-name) - (spec: 1 list->u16vector list->u16vector) - (spec: 1 s32vector-concatenate s32vector-concatenate) - (spec: 1 println println) - (spec: 1 heap-overflow-exception? heap-overflow-exception?) - (spec: 1 string-set string-set) - (spec: 1 append-reverse append-reverse) - (spec: 1 s8vector->list s8vector->list) - (spec: 1 thread-thread-group thread-thread-group) - (spec: 1 f64vector-ref f64vector-ref) + readtable-keywords-allowed?-set + readtable-keywords-allowed?-set) + (spec: 1 table-copy table-copy) + (spec: 1 unbound-global-exception-rte unbound-global-exception-rte) + (spec: 1 box box) + (spec: 1 file-exists-exception? file-exists-exception?) + (spec: 1 current-thread current-thread) + (spec: 1 u8vector-concatenate u8vector-concatenate) + (spec: 1 module-whitelist-reset! module-whitelist-reset!) + (spec: 1 bit-field-rotate bit-field-rotate) + (spec: 1 f32vector-shrink! f32vector-shrink!) + (spec: 1 continuation-graft continuation-graft) + (spec: 1 subu32vector-fill! subu32vector-fill!) + (spec: 1 setenv setenv) + (spec: 1 u32vector-length u32vector-length) + (spec: 1 second second) + (spec: 1 make-s16vector make-s16vector) + (spec: 1 type-exception-arguments type-exception-arguments) + (spec: 1 u16vector-set! u16vector-set!) + (spec: 1 address-info-family address-info-family) + (spec: 1 with-exception-handler with-exception-handler) + (spec: 1 fxodd? fxodd?) + (spec: 1 char-set-xor char-set-xor) (spec: 1 - sfun-conversion-exception-code - sfun-conversion-exception-code) - (spec: 1 u32vector-shrink! u32vector-shrink!) - (spec: 1 bits->list bits->list) - (spec: 1 file-info-number-of-links file-info-number-of-links) - (spec: 1 condition-variable-name condition-variable-name) - (spec: 1 mutex? mutex?) - (spec: 1 r7rs-with-exception-handler r7rs-with-exception-handler) - (spec: 1 subu64vector-fill! subu64vector-fill!) - (spec: 1 fixnum-overflow-exception? fixnum-overflow-exception?) - (spec: 1 u8vector-length u8vector-length) + permission-denied-exception-procedure + permission-denied-exception-procedure) + (spec: 1 s64vector s64vector) + (spec: 1 string-ci=?-hash string-ci=?-hash) + (spec: 1 char-set->string char-set->string) (spec: 1 - datum-parsing-exception-readenv - datum-parsing-exception-readenv) - (spec: 1 flinfinite? flinfinite?) + thread-state-abnormally-terminated-reason + thread-state-abnormally-terminated-reason) + (spec: 1 s16vector-concatenate s16vector-concatenate) + (spec: 1 dotted-list? dotted-list?) + (spec: 1 open-udp open-udp) (spec: 1 - number-of-arguments-limit-exception-arguments - number-of-arguments-limit-exception-arguments) - (spec: 1 readtable-max-write-length readtable-max-write-length) - (spec: 1 table-merge table-merge) - (spec: 1 thread-group-name thread-group-name) - (spec: 1 s16vector-fill! s16vector-fill!) - (spec: 1 thread-state-initialized? thread-state-initialized?) - (spec: 1 char-set->list char-set->list) - (spec: 1 os-exception-arguments os-exception-arguments) - (spec: 1 user-name user-name) - (spec: 1 address-info-socket-type address-info-socket-type) - (spec: 1 s64vector-concatenate s64vector-concatenate) - (spec: 1 fxnot fxnot) - (spec: 1 char-set-union! char-set-union!) + thread-group->thread-group-vector + thread-group->thread-group-vector) + (spec: 1 keyword-expected-exception? keyword-expected-exception?) + (spec: 1 flilogb flilogb) + (spec: 1 remove remove) + (spec: 1 call-with-input-u8vector call-with-input-u8vector) + (spec: 1 flasin flasin) + (spec: 1 deadlock-exception? deadlock-exception?) (spec: 1 - expression-parsing-exception-kind - expression-parsing-exception-kind) - (spec: 1 make-mutex make-mutex) - (spec: 1 scheduler-exception? scheduler-exception?) - (spec: 1 type-exception? type-exception?) - (spec: 1 with-exception-catcher with-exception-catcher) - (spec: 1 subs8vector subs8vector) - (spec: 1 f32vector-fill! f32vector-fill!) - (spec: 1 make-thread-group make-thread-group) - (spec: 1 u16vector-set u16vector-set) - (spec: 1 range-exception-arg-id range-exception-arg-id) - (spec: 1 u64vector-set u64vector-set) - (spec: 1 current-thread current-thread) - (spec: 1 system-type-string system-type-string) - (spec: 1 bitwise-orc2 bitwise-orc2) - (spec: 1 file-type file-type) - (spec: 1 network-info-number network-info-number) - (spec: 1 tcp-service-register! tcp-service-register!) - (spec: 1 flasinh flasinh) - (spec: 1 uncaught-exception-reason uncaught-exception-reason) + invalid-hash-number-exception? + invalid-hash-number-exception?) + (spec: 1 readtable? readtable?) + (spec: 1 file-size file-size) + (spec: 1 uncaught-exception-procedure uncaught-exception-procedure) + (spec: 1 read-file-string read-file-string) + (spec: 1 udp-destination-set! udp-destination-set!) + (spec: 1 bitwise-orc1 bitwise-orc1) + (spec: 1 file-device file-device) + (spec: 1 condition-variable-specific condition-variable-specific) + (spec: 1 u64vector-ref u64vector-ref) + (spec: 1 f32vector-length f32vector-length) + (spec: 1 protocol-info? protocol-info?) + (spec: 1 identity identity) + (spec: 1 subs16vector-move! subs16vector-move!) + (spec: 1 string=?-hash string=?-hash) + (spec: 1 append-reverse! append-reverse!) + (spec: 1 path-extension path-extension) + (spec: 1 fxwrapsquare fxwrapsquare) + (spec: 1 s64vector-set! s64vector-set!) + (spec: 1 fxarithmetic-shift-left fxarithmetic-shift-left) + (spec: 1 char-set-difference char-set-difference) + (spec: 1 output-port-byte-position output-port-byte-position) + (spec: 1 list->f64vector list->f64vector) + (spec: 1 s16vector? s16vector?) + (spec: 1 step-level-set! step-level-set!) + (spec: 1 fold-right fold-right) + (spec: 1 thread-priority-boost thread-priority-boost) + (spec: 1 divide-by-zero-exception? divide-by-zero-exception?) + (spec: 1 thread-yield! thread-yield!) + (spec: 1 directory-files directory-files) + (spec: 1 not-pair? not-pair?) (spec: 1 - display-continuation-dynamic-environment - display-continuation-dynamic-environment) - (spec: 1 open-tcp-client open-tcp-client) - (spec: 1 call-with-input-vector call-with-input-vector) - (spec: 1 keyword->string keyword->string) - (spec: 1 repl-highlight-source-level repl-highlight-source-level) + unterminated-process-exception-arguments + unterminated-process-exception-arguments) (spec: 1 - length-mismatch-exception-arguments - length-mismatch-exception-arguments) + unknown-keyword-argument-exception? + unknown-keyword-argument-exception?) (spec: 1 - rpc-remote-error-exception-procedure - rpc-remote-error-exception-procedure) - (spec: 1 fxeven? fxeven?) - (spec: 1 char-set-fold char-set-fold) - (spec: 1 thread-priority-boost-set! thread-priority-boost-set!) - (spec: 1 list->u64vector list->u64vector) - (spec: 1 thread? thread?) - (spec: 1 s32vector-copy! s32vector-copy!) - (spec: 1 char-set<= char-set<=) - (spec: 1 string-shrink! string-shrink!) + fixnum-overflow-exception-procedure + fixnum-overflow-exception-procedure) + (spec: 1 table-length table-length) + (spec: 1 integer-nth-root integer-nth-root) (spec: 1 - mailbox-receive-timeout-exception-arguments - mailbox-receive-timeout-exception-arguments) - (spec: 1 s8vector-concatenate s8vector-concatenate) - (spec: 1 help-browser help-browser) - (spec: 1 command-args command-args) + datum-parsing-exception-parameters + datum-parsing-exception-parameters) + (spec: + 1 + readtable-case-conversion?-set + readtable-case-conversion?-set) + (spec: 1 file-info-last-change-time file-info-last-change-time) + (spec: 1 unbound-global-exception? unbound-global-exception?) + (spec: 1 make-will make-will) + (spec: 1 bit-set? bit-set?) + (spec: 1 f64vector-fill! f64vector-fill!) + (spec: 1 subu64vector subu64vector) + (spec: 1 u8vector-copy! u8vector-copy!) + (spec: 1 u32vector-ref u32vector-ref) + (spec: 1 make-bitwise-generator make-bitwise-generator) + (spec: 1 set-box! set-box!) + (spec: 1 u16vector-copy! u16vector-copy!) + (spec: 1 get-output-u8vector get-output-u8vector) (spec: 1 - sfun-conversion-exception-procedure - sfun-conversion-exception-procedure) - (spec: 1 subf32vector subf32vector) - (spec: 1 proper-list? proper-list?) - (spec: 1 tty-history tty-history) - (spec: 1 f64vector-set! f64vector-set!) - (spec: 1 bitwise-and bitwise-and) - (spec: 1 identity identity) - (spec: 1 condition-variable-specific condition-variable-specific) - (spec: 1 random-f64vector random-f64vector) - (spec: 1 subu8vector subu8vector) - (spec: 1 noncontinuable-exception? noncontinuable-exception?) - (spec: 1 fl* fl*) - (spec: 1 u32vector? u32vector?) + port-io-exception-handler-set! + port-io-exception-handler-set!) + (spec: 1 s8vector-ref s8vector-ref) + (spec: 1 address-info-socket-info address-info-socket-info) + (spec: 1 type-exception-type-id type-exception-type-id) + (spec: 1 partition! partition!) + (spec: 1 char-set-ref char-set-ref) + (spec: 1 fxorc2 fxorc2) + (spec: 1 s32vector-set! s32vector-set!) + (spec: 1 vector-fold-right vector-fold-right) + (spec: 1 os-exception-procedure os-exception-procedure) + (spec: 1 fx* fx*) + (spec: 1 keyword? keyword?) + (spec: 1 open-event-queue open-event-queue) + (spec: 1 flpositive? flpositive?) + (spec: 1 split-at! split-at!) (spec: 1 - unbound-key-exception-procedure - unbound-key-exception-procedure) + number-of-arguments-limit-exception-procedure + number-of-arguments-limit-exception-procedure) + (spec: 1 flinteger? flinteger?) + (spec: 1 call/cc call/cc) + (spec: 1 flatan flatan) + (spec: 1 remq remq) + (spec: 1 readtable-start-syntax readtable-start-syntax) + (spec: 1 input-port-bytes-buffered input-port-bytes-buffered) + (spec: 1 tcp-client-peer-socket-info tcp-client-peer-socket-info) + (spec: 1 network-info? network-info?) (spec: 1 - number-of-arguments-limit-exception? - number-of-arguments-limit-exception?) - (spec: 1 dead-end dead-end) + terminated-thread-exception-arguments + terminated-thread-exception-arguments) + (spec: 1 thread-group->thread-vector thread-group->thread-vector) + (spec: 1 current-exception-handler current-exception-handler) (spec: 1 - invalid-hash-number-exception-arguments - invalid-hash-number-exception-arguments) - (spec: 1 readtable-max-write-level readtable-max-write-level) - (spec: 1 table-ref table-ref) - (spec: 1 thread-group-resume! thread-group-resume!) - (spec: 1 open-dummy open-dummy) + inactive-thread-exception-procedure + inactive-thread-exception-procedure) + (spec: 1 u8vector-shrink! u8vector-shrink!) + (spec: 1 module-search-order-add! module-search-order-add!) + (spec: 1 bitwise-if bitwise-if) + (spec: 1 random-source-make-f64vectors random-source-make-f64vectors) + (spec: 1 cons* cons*) + (spec: 1 symbol-hash symbol-hash) + (spec: 1 make-u32vector make-u32vector) + (spec: 1 f32vector-ref f32vector-ref) + (spec: 1 subs32vector-fill! subs32vector-fill!) + (spec: 1 u64vector-concatenate u64vector-concatenate) (spec: 1 - thread-state-normally-terminated-result - thread-state-normally-terminated-result) - (spec: 1 os-exception-message os-exception-message) - (spec: 1 s64vector-copy! s64vector-copy!) - (spec: 1 char-set-adjoin char-set-adjoin) - (spec: 1 fxorc1 fxorc1) - (spec: 1 partition partition) - (spec: 1 address-infos address-infos) + expression-parsing-exception-parameters + expression-parsing-exception-parameters) + (spec: 1 string-suffix? string-suffix?) (spec: 1 - expression-parsing-exception-source - expression-parsing-exception-source) - (spec: 1 char-set-xor! char-set-xor!) - (spec: 1 top top) - (spec: 1 subs8vector-move! subs8vector-move!) - (spec: 1 make-u16vector make-u16vector) - (spec: 1 service-info-aliases service-info-aliases) - (spec: 1 continuation-graft continuation-graft) - (spec: 1 range-exception-procedure range-exception-procedure) - (spec: 1 u16vector-shrink! u16vector-shrink!) - (spec: 1 module-search-order-reset! module-search-order-reset!) - (spec: 1 u64vector-shrink! u64vector-shrink!) + mailbox-receive-timeout-exception-procedure + mailbox-receive-timeout-exception-procedure) + (spec: 1 any any) (spec: 1 - current-user-interrupt-handler - current-user-interrupt-handler) - (spec: 1 system-version-string system-version-string) - (spec: 1 bitwise-xor bitwise-xor) + unbound-serial-number-exception-procedure + unbound-serial-number-exception-procedure) + (spec: 1 fxzero? fxzero?) + (spec: 1 user-info-home user-info-home) + (spec: 1 list->u8vector list->u8vector) + (spec: 1 s64vector-swap! s64vector-swap!) + (spec: 1 with-output-to-process with-output-to-process) + (spec: 1 vector-unfold vector-unfold) + (spec: 1 char-set-cursor char-set-cursor) + (spec: 1 fxbit-count fxbit-count) (spec: 1 - file-exists-exception-arguments - file-exists-exception-arguments) - (spec: 1 integer-nth-root integer-nth-root) + length-mismatch-exception-procedure + length-mismatch-exception-procedure) + (spec: 1 thread-state-waiting-for thread-state-waiting-for) + (spec: 1 write-subu8vector write-subu8vector) + (spec: 1 open-process open-process) (spec: 1 - readtable-case-conversion?-set - readtable-case-conversion?-set) - (spec: 1 tenth tenth) + cfun-conversion-exception-procedure + cfun-conversion-exception-procedure) + (spec: 1 thread-interrupt! thread-interrupt!) (spec: 1 - not-in-compilation-context-exception-arguments - not-in-compilation-context-exception-arguments) - (spec: 1 display-exception display-exception) - (spec: 1 remove remove) - (spec: 1 flatanh flatanh) - (spec: 1 call-with-output-process call-with-output-process) + wrong-processor-c-return-exception? + wrong-processor-c-return-exception?) (spec: 1 - keyword-expected-exception-arguments - keyword-expected-exception-arguments) - (spec: 1 foreign-address foreign-address) - (spec: 1 open-u8vector open-u8vector) - (spec: 1 repl-output-port repl-output-port) - (spec: 1 length-mismatch-exception? length-mismatch-exception?) - (spec: 1 thread-quantum-set! thread-quantum-set!) - (spec: 1 char-set-hash char-set-hash) - (spec: 1 fxif fxif) - (spec: 1 vector-cumulate vector-cumulate) - (spec: 1 s32vector-length s32vector-length) - (spec: 1 char-set? char-set?) - (spec: 1 gc-report-set! gc-report-set!) - (spec: 1 string-suffix-length string-suffix-length) - (spec: 1 s8vector-copy! s8vector-copy!) + unterminated-process-exception? + unterminated-process-exception?) + (spec: 1 uninterned-keyword? uninterned-keyword?) + (spec: 1 fixnum? fixnum?) (spec: 1 - mailbox-receive-timeout-exception? - mailbox-receive-timeout-exception?) - (spec: 1 command-name command-name) - (spec: 1 tty-history-set! tty-history-set!) - (spec: 1 subf32vector-move! subf32vector-move!) - (spec: 1 bitwise-andc2 bitwise-andc2) - (spec: 1 f64vector-swap! f64vector-swap!) + noncontinuable-exception-reason + noncontinuable-exception-reason) + (spec: 1 readtable-comment-handler-set readtable-comment-handler-set) + (spec: 1 datum-parsing-exception? datum-parsing-exception?) + (spec: 1 mutex-unlock! mutex-unlock!) + (spec: 1 file-info-mode file-info-mode) + (spec: 1 udp-write-u8vector udp-write-u8vector) + (spec: 1 cpu-time cpu-time) + (spec: 1 u8vector u8vector) + (spec: 1 bit-field-every? bit-field-every?) + (spec: 1 subu16vector subu16vector) + (spec: 1 condition-variable-broadcast! condition-variable-broadcast!) + (spec: 1 s8vector-set! s8vector-set!) + (spec: 1 u32vector-concatenate u32vector-concatenate) + (spec: 1 port-settings-set! port-settings-set!) + (spec: 1 gensym gensym) + (spec: 1 tty? tty?) + (spec: 1 s32vector-swap! s32vector-swap!) + (spec: 1 u16vector-length u16vector-length) + (spec: 1 will-execute! will-execute!) + (spec: 1 path-directory path-directory) + (spec: 1 char-set-unfold char-set-unfold) + (spec: 1 fxnand fxnand) + (spec: 1 timeout->time timeout->time) + (spec: 1 vector-inc! vector-inc!) + (spec: 1 fourth fourth) + (spec: 1 thread-specific-set! thread-specific-set!) + (spec: 1 user-info-shell user-info-shell) (spec: 1 - wrong-number-of-arguments-exception-procedure - wrong-number-of-arguments-exception-procedure) - (spec: 1 condition-variable? condition-variable?) - (spec: 1 random-real random-real) - (spec: 1 subu8vector-move! subu8vector-move!) - (spec: 1 file-info-size file-info-size) - (spec: 1 fl+* fl+*) - (spec: 1 deadlock-exception? deadlock-exception?) - (spec: 1 readtable-sharing-allowed? readtable-sharing-allowed?) - (spec: 1 fllog1p fllog1p) - (spec: 1 last-pair last-pair) - (spec: 1 table-set! table-set!) + readtable-write-cdr-read-macros? + readtable-write-cdr-read-macros?) + (spec: 1 flexpt flexpt) + (spec: 1 thread-base-priority-set! thread-base-priority-set!) + (spec: 1 terminated-thread-exception? terminated-thread-exception?) (spec: 1 - invalid-hash-number-exception? - invalid-hash-number-exception?) - (spec: 1 open-file open-file) - (spec: 1 thread-group-specific-set! thread-group-specific-set!) - (spec: 1 s16vector-set s16vector-set) - (spec: 1 list->bits list->bits) - (spec: 1 flround flround) - (spec: 1 os-exception? os-exception?) - (spec: 1 s64vector-length s64vector-length) - (spec: 1 char-set-any char-set-any) - (spec: 1 fx+ fx+) - (spec: 1 make-random-source make-random-source) - (spec: 1 fxpositive? fxpositive?) - (spec: 1 with-input-from-process with-input-from-process) - (spec: 1 substring-fill! substring-fill!) - (spec: 1 get-output-vector get-output-vector) - (spec: 1 make-u64vector make-u64vector) - (spec: 1 continuation? continuation?) - (spec: 1 service-info-port-number service-info-port-number) - (spec: 1 u16vector? u16vector?) - (spec: 1 f32vector-set f32vector-set) - (spec: 1 file-info-type file-info-type) + not-in-compilation-context-exception-procedure + not-in-compilation-context-exception-procedure) + (spec: 1 flabs flabs) + (spec: 1 take! take!) + (spec: 1 unbox unbox) + (spec: 1 file-mode file-mode) + (spec: 1 random-source-make-reals random-source-make-reals) + (spec: 1 module-whitelist-add! module-whitelist-add!) + (spec: 1 bitwise-merge bitwise-merge) + (spec: 1 sinh sinh) + (spec: 1 console-port console-port) + (spec: 1 protocol-info protocol-info) + (spec: 1 u64vector-copy! u64vector-copy!) + (spec: 1 f32vector-concatenate f32vector-concatenate) + (spec: 1 make-u8vector make-u8vector) + (spec: 1 service-info-protocol service-info-protocol) + (spec: 1 executable-path executable-path) + (spec: 1 subf64vector-fill! subf64vector-fill!) + (spec: 1 main main) + (spec: 1 any-bits-set? any-bits-set?) + (spec: 1 s8vector-fill! s8vector-fill!) + (spec: 1 u8vector? u8vector?) + (spec: 1 fxwraparithmetic-shift fxwraparithmetic-shift) + (spec: 1 with-output-to-u8vector with-output-to-u8vector) + (spec: 1 error-exception-parameters error-exception-parameters) + (spec: 1 thread-priority thread-priority) + (spec: 1 write-file-u8vector write-file-u8vector) + (spec: 1 fxand fxand) + (spec: 1 char-set-delete char-set-delete) + (spec: 1 thread-state-waiting? thread-state-waiting?) + (spec: 1 link-incremental link-incremental) + (spec: 1 fltruncate fltruncate) + (spec: 1 open-string-pipe open-string-pipe) + (spec: 1 display-procedure-environment display-procedure-environment) (spec: 1 - unbound-os-environment-variable-exception-arguments - unbound-os-environment-variable-exception-arguments) + keyword-expected-exception-procedure + keyword-expected-exception-procedure) (spec: 1 - default-user-interrupt-handler - default-user-interrupt-handler) - (spec: 1 random-source-make-u8vectors random-source-make-u8vectors) + repl-result-history-max-length-set! + repl-result-history-max-length-set!) + (spec: 1 socket-info? socket-info?) (spec: 1 - nonempty-input-port-character-buffer-exception-arguments - nonempty-input-port-character-buffer-exception-arguments) - (spec: 1 fl- fl-) - (spec: 1 input-port-column input-port-column) - (spec: 1 flmax flmax) - (spec: 1 thread-group-suspend! thread-group-suspend!) + thread-mailbox-extract-and-rewind + thread-mailbox-extract-and-rewind) (spec: 1 - cfun-conversion-exception-message - cfun-conversion-exception-message) + invalid-hash-number-exception-procedure + invalid-hash-number-exception-procedure) + (spec: 1 readtable-max-write-level-set readtable-max-write-level-set) + (spec: 1 read-all read-all) + (spec: 1 u8vector->object u8vector->object) + (spec: 1 file-info-device file-info-device) + (spec: 1 random-integer random-integer) + (spec: 1 copy-bit-field copy-bit-field) (spec: 1 - readtable-write-cdr-read-macros?-set - readtable-write-cdr-read-macros?-set) - (spec: 1 take-right take-right) - (spec: 1 eighth eighth) - (spec: 1 s16vector-set! s16vector-set!) - (spec: 1 flsquare flsquare) - (spec: 1 char-set-count char-set-count) - (spec: 1 open-input-u8vector open-input-u8vector) - (spec: 1 list->char-set list->char-set) - (spec: 1 equal?-hash equal?-hash) - (spec: 1 fx> fx>) - (spec: 1 output-port-char-position output-port-char-position) + sfun-conversion-exception-message + sfun-conversion-exception-message) + (spec: 1 bit-field-replace-same bit-field-replace-same) + (spec: 1 f64vector-append f64vector-append) + (spec: 1 subu16vector-move! subu16vector-move!) + (spec: 1 u32vector-copy! u32vector-copy!) + (spec: 1 print print) + (spec: 1 clear-bit-field clear-bit-field) + (spec: 1 with-input-from-vector with-input-from-vector) + (spec: 1 s64vector-fill! s64vector-fill!) + (spec: 1 step step) + (spec: 1 fxnor fxnor) + (spec: 1 s16vector-ref s16vector-ref) + (spec: 1 thread-state thread-state) + (spec: 1 char-set-contains? char-set-contains?) + (spec: 1 reverse! reverse!) (spec: 1 - thread-state-running-processor - thread-state-running-processor) - (spec: 1 vector-swap! vector-swap!) - (spec: 1 u16vector u16vector) - (spec: 1 script-directory script-directory) - (spec: 1 circular-list? circular-list?) - (spec: 1 fxwrap+ fxwrap+) - (spec: 1 path-normalize path-normalize) - (spec: 1 with-output-to-port with-output-to-port) - (spec: 1 group-info group-info) - (spec: 1 bit-field-clear bit-field-clear) - (spec: 1 pp pp) - (spec: 1 u32vector-append u32vector-append) - (spec: 1 substring-move! substring-move!) - (spec: 1 current-time current-time) - (spec: 1 range-exception? range-exception?) - (spec: 1 system-version system-version) - (spec: 1 udp-read-u8vector udp-read-u8vector) - (spec: 1 readtable-case-conversion? readtable-case-conversion?) - (spec: 1 integer-length integer-length) - (spec: 1 tcp-service-unregister! tcp-service-unregister!) - (spec: 1 filter! filter!) + cfun-conversion-exception-arguments + cfun-conversion-exception-arguments) + (spec: 1 flfloor flfloor) (spec: 1 uninitialized-thread-exception-procedure uninitialized-thread-exception-procedure) (spec: 1 - display-continuation-environment - display-continuation-environment) + nonprocedure-operator-exception? + nonprocedure-operator-exception?) (spec: 1 call-with-output-vector call-with-output-vector) - (spec: 1 flcosh flcosh) - (spec: 1 replace-bit-field replace-bit-field) - (spec: 1 open-tcp-server open-tcp-server) - (spec: 1 stack-overflow-exception? stack-overflow-exception?) - (spec: 1 drop drop) - (spec: 1 keyword-hash keyword-hash) - (spec: 1 char-set-for-each char-set-for-each) - (spec: 1 fxfirst-set-bit fxfirst-set-bit) - (spec: 1 thread-send thread-send) - (spec: 1 compile-file-to-target compile-file-to-target) - (spec: 1 s32vector-set s32vector-set) - (spec: 1 char-set= char-set=) - (spec: 1 time->seconds time->seconds) - (spec: 1 string-suffix-ci? string-suffix-ci?) - (spec: 1 sfun-conversion-exception? sfun-conversion-exception?) - (spec: - 1 - wrong-number-of-values-exception-code - wrong-number-of-values-exception-code) - (spec: 1 bitwise-andc1 bitwise-andc1) - (spec: 1 f64vector-shrink! f64vector-shrink!) - (spec: 1 create-temporary-directory create-temporary-directory) - (spec: 1 protocol-info-aliases protocol-info-aliases) - (spec: 1 subf64vector-move! subf64vector-move!) - (spec: 1 file-inode file-inode) - (spec: 1 bitwise-eqv bitwise-eqv) - (spec: 1 random-source-randomize! random-source-randomize!) + (spec: 1 flacosh flacosh) + (spec: 1 defer-user-interrupts defer-user-interrupts) + (spec: 1 read-subu8vector read-subu8vector) + (spec: 1 network-info network-info) + (spec: 1 file-owner file-owner) + (spec: 1 udp-read-u8vector udp-read-u8vector) + (spec: 1 file-attributes file-attributes) (spec: 1 - unbound-os-environment-variable-exception? - unbound-os-environment-variable-exception?) - (spec: 1 fl< fl<) + module-not-found-exception-arguments + module-not-found-exception-arguments) + (spec: 1 subs16vector subs16vector) + (spec: 1 configure-command-string configure-command-string) + (spec: 1 make-thread make-thread) + (spec: 1 f32vector-copy! f32vector-copy!) + (spec: 1 bit-field bit-field) + (spec: 1 script-directory script-directory) + (spec: 1 u16vector u16vector) + (spec: 1 u32vector u32vector) (spec: 1 - nonempty-input-port-character-buffer-exception? - nonempty-input-port-character-buffer-exception?) - (spec: 1 flnan? flnan?) - (spec: 1 object->serial-number object->serial-number) - (spec: 1 cfun-conversion-exception? cfun-conversion-exception?) - (spec: 1 fltanh fltanh) + wrong-number-of-values-exception-rte + wrong-number-of-values-exception-rte) + (spec: 1 path-strip-volume path-strip-volume) + (spec: 1 char-set= char-set=) + (spec: 1 fxwraplogical-shift-right fxwraplogical-shift-right) + (spec: 1 list->table list->table) + (spec: 1 s32vector-set s32vector-set) + (spec: 1 output-port-readtable-set! output-port-readtable-set!) + (spec: 1 char-set-for-each char-set-for-each) + (spec: 1 fxandc2 fxandc2) + (spec: 1 length+ length+) + (spec: 1 stack-overflow-exception? stack-overflow-exception?) + (spec: 1 thread-send thread-send) + (spec: 1 flzero? flzero?) + (spec: 1 time->seconds time->seconds) + (spec: 1 replace-bit-field replace-bit-field) (spec: 1 - readtable-write-extended-read-macros?-set - readtable-write-extended-read-macros?-set) - (spec: 1 tanh tanh) - (spec: 1 thread-group? thread-group?) - (spec: 1 char-set-cursor-next char-set-cursor-next) - (spec: 1 fxabs fxabs) - (spec: 1 open-output-bytevector open-output-bytevector) - (spec: 1 eqv?-hash eqv?-hash) - (spec: 1 list->f32vector list->f32vector) - (spec: 1 output-port-line output-port-line) - (spec: 1 fxwrapabs fxwrapabs) - (spec: 1 s16vector-swap! s16vector-swap!) - (spec: 1 s64vector-set s64vector-set) - (spec: 1 u16vector-append u16vector-append) - (spec: 1 path-strip-directory path-strip-directory) - (spec: 1 group-info-members group-info-members) - (spec: 1 string->char-set string->char-set) - (spec: 1 vector-unfold-right vector-unfold-right) - (spec: 1 make-root-thread make-root-thread) - (spec: 1 bit-field-replace bit-field-replace) - (spec: 1 f64vector->list f64vector->list) - (spec: 1 compilation-target compilation-target) - (spec: 1 host-info host-info) - (spec: 1 subu16vector-fill! subu16vector-fill!) - (spec: 1 with-output-to-string with-output-to-string) - (spec: 1 file-info-creation-time file-info-creation-time) - (spec: 1 u32vector-copy u32vector-copy) - (spec: 1 file-info file-info) - (spec: 1 udp-write-subu8vector udp-write-subu8vector) - (spec: 1 integer-sqrt integer-sqrt) - (spec: 1 readtable-comment-handler readtable-comment-handler) - (spec: 1 ninth ninth) - (spec: 1 delete delete) + divide-by-zero-exception-arguments + divide-by-zero-exception-arguments) (spec: 1 - join-timeout-exception-arguments - join-timeout-exception-arguments) - (spec: 1 fleven? fleven?) - (spec: 1 remove! remove!) - (spec: 1 thread-base-priority thread-base-priority) - (spec: 1 foreign-release! foreign-release!) - (spec: 1 open-u8vector-pipe open-u8vector-pipe) - (spec: 1 vector-every vector-every) - (spec: 1 drop-right! drop-right!) - (spec: 1 thread-specific thread-specific) - (spec: 1 fxior fxior) - (spec: 1 char-set-intersection char-set-intersection) + number-of-arguments-limit-exception-arguments + number-of-arguments-limit-exception-arguments) + (spec: 1 flnegative? flnegative?) (spec: 1 - permission-denied-exception-arguments - permission-denied-exception-arguments) - (spec: 1 list-set list-set) - (spec: 1 s32vector-shrink! s32vector-shrink!) - (spec: 1 string-suffix-length-ci string-suffix-length-ci) - (spec: 1 process-pid process-pid) - (spec: 1 tty-type-set! tty-type-set!) - (spec: 1 s8vector-set s8vector-set) - (spec: 1 u64vector u64vector) - (spec: 1 f64vector? f64vector?) - (spec: 1 u8vector-ref u8vector-ref) - (spec: 1 protocol-info-number protocol-info-number) - (spec: 1 subs16vector-fill! subs16vector-fill!) - (spec: 1 bitwise-for-each bitwise-for-each) - (spec: 1 u8vector-set! u8vector-set!) + uninitialized-thread-exception-arguments + uninitialized-thread-exception-arguments) + (spec: 1 flacos flacos) + (spec: 1 call-with-output-u8vector call-with-output-u8vector) (spec: 1 - wrong-number-of-values-exception-vals - wrong-number-of-values-exception-vals) + nonprocedure-operator-exception-rte + nonprocedure-operator-exception-rte) (spec: 1 input-port-readtable-set! input-port-readtable-set!) - (spec: 1 read-file-string-list read-file-string-list) - (spec: 1 file-last-access-time file-last-access-time) + (spec: 1 system-type-string system-type-string) + (spec: 1 udp-read-subu8vector udp-read-subu8vector) + (spec: 1 file-number-of-links file-number-of-links) + (spec: 1 range-exception-procedure range-exception-procedure) + (spec: 1 u64vector? u64vector?) + (spec: 1 fifth fifth) + (spec: 1 subs8vector-move! subs8vector-move!) + (spec: 1 make-table make-table) + (spec: 1 f32vector-copy f32vector-copy) + (spec: 1 bit-count bit-count) + (spec: 1 make-mutex make-mutex) + (spec: 1 atanh atanh) + (spec: 1 scheduler-exception? scheduler-exception?) + (spec: 1 s8vector-length s8vector-length) + (spec: 1 service-info? service-info?) + (spec: + 1 + tty-paren-balance-duration-set! + tty-paren-balance-duration-set!) + (spec: 1 string->uninterned-keyword string->uninterned-keyword) + (spec: 1 u16vector-concatenate u16vector-concatenate) + (spec: 1 time time) + (spec: 1 abort abort) + (spec: 1 error-exception? error-exception?) + (spec: 1 s32vector-ref s32vector-ref) + (spec: 1 char-set-intersection! char-set-intersection!) + (spec: 1 fxlength fxlength) + (spec: 1 thread-resume! thread-resume!) + (spec: 1 user-info user-info) + (spec: 1 foreign-released? foreign-released?) + (spec: 1 socket-info-address socket-info-address) + (spec: 1 repl-result-history-ref repl-result-history-ref) + (spec: 1 third third) (spec: 1 - unbound-serial-number-exception-arguments - unbound-serial-number-exception-arguments) + invalid-utf8-encoding-exception? + invalid-utf8-encoding-exception?) + (spec: 1 display-exception display-exception) + (spec: 1 real-time real-time) + (spec: 1 delete-file-or-directory delete-file-or-directory) + (spec: 1 readtable-sharing-allowed? readtable-sharing-allowed?) + (spec: 1 table-set! table-set!) + (spec: 1 fl<= fl<=) + (spec: 1 tenth tenth) (spec: 1 - invalid-utf8-encoding-exception-arguments - invalid-utf8-encoding-exception-arguments) - (spec: 1 object->u8vector object->u8vector) - (spec: 1 fl= fl=) - (spec: 1 tcp-client-local-socket-info tcp-client-local-socket-info) - (spec: 1 link-incremental link-incremental) - (spec: 1 display-exception-in-context display-exception-in-context) - (spec: 1 open-output-process open-output-process) - (spec: 1 fxandc1 fxandc1) - (spec: 1 char-set-delete! char-set-delete!) - (spec: 1 output-port-readtable output-port-readtable) - (spec: 1 sixth sixth) - (spec: 1 list->s16vector list->s16vector) - (spec: 1 thread-init! thread-init!) - (spec: 1 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) + initialized-thread-exception-arguments + initialized-thread-exception-arguments) + (spec: 1 mutex-state mutex-state) (spec: 1 - path-strip-trailing-directory-separator - path-strip-trailing-directory-separator) - (spec: 1 error error) - (spec: 1 s64vector-shrink! s64vector-shrink!) - (spec: 1 group-info? group-info?) - (spec: 1 string->keyword string->keyword) - (spec: 1 trace trace) - (spec: 1 make-s32vector make-s32vector) - (spec: 1 seconds->time seconds->time) - (spec: 1 bit-field-reverse bit-field-reverse) - (spec: 1 f64vector-concatenate f64vector-concatenate) + file-last-access-and-modification-times-set! + file-last-access-and-modification-times-set!) + (spec: 1 subu8vector-move! subu8vector-move!) + (spec: 1 copy-file copy-file) + (spec: 1 random-real random-real) + (spec: 1 u64vector->list u64vector->list) + (spec: 1 u8vector-set u8vector-set) + (spec: 1 bitwise-fold bitwise-fold) (spec: 1 host-info-aliases host-info-aliases) (spec: 1 concatenate concatenate) - (spec: 1 subu32vector subu32vector) - (spec: 1 file-info-group file-info-group) - (spec: 1 mutex-lock! mutex-lock!) - (spec: 1 u16vector-copy u16vector-copy) - (spec: 1 copy-bit copy-bit) - (spec: 1 u32vector-fill! u32vector-fill!) - (spec: 1 with-output-to-vector with-output-to-vector) - (spec: 1 first-set-bit first-set-bit) - (spec: 1 u8vector->list u8vector->list) - (spec: 1 initial-current-directory initial-current-directory) - (spec: 1 readtable-eval-allowed? readtable-eval-allowed?) - (spec: 1 flexpm1 flexpm1) - (spec: 1 delete-directory delete-directory) - (spec: 1 rename-file rename-file) + (spec: 1 proper-list? proper-list?) + (spec: 1 string-suffix-length string-suffix-length) + (spec: 1 command-name command-name) + (spec: 1 subf32vector subf32vector) + (spec: 1 circular-list circular-list) + (spec: 1 touch touch) + (spec: 1 s64vector-concatenate s64vector-concatenate) + (spec: 1 vector-shrink! vector-shrink!) + (spec: 1 fxwrap* fxwrap*) + (spec: 1 s16vector-fill! s16vector-fill!) + (spec: 1 err-code->string err-code->string) + (spec: 1 thread-state-uninitialized? thread-state-uninitialized?) + (spec: 1 os-exception-arguments os-exception-arguments) + (spec: 1 char-set-copy char-set-copy) + (spec: 1 fx= fx=) + (spec: 1 flsqrt flsqrt) (spec: 1 - terminated-thread-exception-procedure - terminated-thread-exception-procedure) - (spec: 1 uninterned-symbol? uninterned-symbol?) - (spec: 1 open-vector open-vector) - (spec: 1 flnumerator flnumerator) - (spec: 1 split-at split-at) - (spec: 1 end-of-char-set? end-of-char-set?) - (spec: 1 user-info-gid user-info-gid) - (spec: 1 foreign-tags foreign-tags) - (spec: 1 vector-fold vector-fold) - (spec: 1 acosh acosh) - (spec: 1 thread-start! thread-start!) - (spec: 1 s16vector s16vector) - (spec: 1 char-set-map char-set-map) - (spec: 1 fxmax fxmax) - (spec: 1 permission-denied-exception? permission-denied-exception?) - (spec: 1 list-sort list-sort) - (spec: 1 s32vector? s32vector?) - (spec: 1 process-status process-status) - (spec: 1 string-swap! string-swap!) - (spec: 1 write-file-string-list write-file-string-list) - (spec: 1 s8vector-shrink! s8vector-shrink!) - (spec: 1 f32vector f32vector) - (spec: 1 u64vector-append u64vector-append) - (spec: 1 random-source-state-ref random-source-state-ref) - (spec: 1 subs32vector subs32vector) - (spec: 1 bitwise-ior bitwise-ior) - (spec: 1 u8vector-swap! u8vector-swap!) - (spec: 1 thread-priority thread-priority) - (spec: 1 file-last-modification-time file-last-modification-time) + cfun-conversion-exception-code + cfun-conversion-exception-code) (spec: 1 - unbound-serial-number-exception? - unbound-serial-number-exception?) - (spec: 1 real-time real-time) + uninitialized-thread-exception? + uninitialized-thread-exception?) + (spec: 1 fldenominator fldenominator) + (spec: 1 system-version-string system-version-string) + (spec: 1 udp-source-socket-info udp-source-socket-info) + (spec: 1 network-info-aliases network-info-aliases) + (spec: 1 random-source? random-source?) (spec: 1 - invalid-utf8-encoding-exception? - invalid-utf8-encoding-exception?) - (spec: 1 fl>= fl>=) + current-user-interrupt-handler + current-user-interrupt-handler) (spec: 1 - nonprocedure-operator-exception-code - nonprocedure-operator-exception-code) + module-not-found-exception-procedure + module-not-found-exception-procedure) + (spec: 1 file-group file-group) + (spec: 1 shell-command shell-command) + (spec: 1 continuation? continuation?) + (spec: 1 substring-fill! substring-fill!) + (spec: 1 u32vector->list u32vector->list) + (spec: 1 f32vector? f32vector?) + (spec: 1 bit-field-any? bit-field-any?) + (spec: 1 make-thread-group make-thread-group) + (spec: 1 f32vector->list f32vector->list) + (spec: 1 make-s64vector make-s64vector) + (spec: 1 s8vector->list s8vector->list) + (spec: 1 tty-text-attributes-set! tty-text-attributes-set!) + (spec: 1 time? time?) + (spec: 1 list->u16vector list->u16vector) + (spec: 1 s32vector-concatenate s32vector-concatenate) + (spec: 1 vector-cas! vector-cas!) + (spec: 1 char-set-filter char-set-filter) + (spec: 1 fxmin fxmin) (spec: 1 - unterminated-process-exception-procedure - unterminated-process-exception-procedure) - (spec: 1 open-output-u8vector open-output-u8vector) - (spec: 1 fold fold) - (spec: 1 join-timeout-exception? join-timeout-exception?) - (spec: 1 char-set-diff+intersection! char-set-diff+intersection!) - (spec: 1 fxarithmetic-shift fxarithmetic-shift) - (spec: 1 output-port-timeout-set! output-port-timeout-set!) - (spec: 1 thread-join! thread-join!) - (spec: 1 thread-state-waiting-timeout thread-state-waiting-timeout) - (spec: 1 fxwrapquotient fxwrapquotient) - (spec: 1 path-volume path-volume) - (spec: 1 error-exception-message error-exception-message) - (spec: 1 s64vector? s64vector?) - (spec: 1 list->s64vector list->s64vector) - (spec: 1 ->char-set ->char-set) - (spec: 1 compile-file compile-file) - (spec: 1 string-prefix-length string-prefix-length) - (spec: 1 any-bit-set? any-bit-set?) - (spec: 1 bit-field-set bit-field-set) - (spec: 1 f64vector-copy! f64vector-copy!) - (spec: 1 u16vector-fill! u16vector-fill!) - (spec: 1 host-info? host-info?) - (spec: 1 box? box?) - (spec: 1 file-info-last-access-time file-info-last-access-time) - (spec: 1 mutex-specific mutex-specific) - (spec: 1 copy-file copy-file) - (spec: 1 fixnum->flonum fixnum->flonum) + rpc-remote-error-exception-arguments + rpc-remote-error-exception-arguments) + (spec: 1 thread-sleep! thread-sleep!) + (spec: 1 open-vector-pipe open-vector-pipe) + (spec: 1 socket-info-port-number socket-info-port-number) + (spec: 1 thread thread) + (spec: 1 drop-right drop-right) (spec: 1 - initialized-thread-exception-arguments - initialized-thread-exception-arguments) - (spec: 1 table->list table->list) - (spec: 1 u8vector-append u8vector-append) - (spec: 1 flfinite? flfinite?) - (spec: 1 unbound-global-exception-code unbound-global-exception-code) - (spec: 1 delete-file-or-directory delete-file-or-directory) - (spec: 1 readtable-keywords-allowed? readtable-keywords-allowed?) - (spec: 1 flodd? flodd?) - (spec: 1 user-info-name user-info-name) + join-timeout-exception-procedure + join-timeout-exception-procedure) + (spec: 1 readtable-max-unescaped-char readtable-max-unescaped-char) (spec: 1 - thread-group->thread-group-list - thread-group->thread-group-list) - (spec: 1 foreign? foreign?) + nonprocedure-operator-exception-arguments + nonprocedure-operator-exception-arguments) + (spec: 1 fl> fl>) (spec: 1 - started-thread-exception-arguments - started-thread-exception-arguments) - (spec: 1 list-tabulate list-tabulate) - (spec: 1 s16vector-append s16vector-append) - (spec: 1 char-set-size char-set-size) - (spec: 1 fxmodulo fxmodulo) - (spec: 1 link-flat link-flat) - (spec: 1 make-f64vector make-f64vector) - (spec: 1 string-concatenate string-concatenate) - (spec: 1 generate-proper-tail-calls generate-proper-tail-calls) - (spec: 1 s8vector? s8vector?) - (spec: 1 subs32vector-move! subs32vector-move!) - (spec: 1 f32vector-append f32vector-append) - (spec: 1 make-s8vector make-s8vector) - (spec: 1 random-source? random-source?) - (spec: 1 type-exception-arg-id type-exception-arg-id) - (spec: 1 u64vector-copy u64vector-copy) - (spec: 1 cpu-time cpu-time) - (spec: 1 raise raise) - (spec: 1 subu64vector-move! subu64vector-move!) + unbound-key-exception-procedure + unbound-key-exception-procedure) + (spec: 1 initialized-thread-exception? initialized-thread-exception?) + (spec: 1 u8vector-length u8vector-length) + (spec: 1 file-last-change-time file-last-change-time) + (spec: 1 r7rs-raise r7rs-raise) + (spec: 1 create-fifo create-fifo) + (spec: 1 subvector-fill! subvector-fill!) + (spec: + 1 + sfun-conversion-exception-code + sfun-conversion-exception-code) + (spec: 1 bits->list bits->list) + (spec: 1 subf32vector-move! subf32vector-move!) + (spec: 1 condition-variable? condition-variable?) + (spec: 1 host-info? host-info?) + (spec: 1 primordial-exception-handler primordial-exception-handler) + (spec: 1 string-prefix? string-prefix?) + (spec: 1 u32vector-shrink! u32vector-shrink!) + (spec: 1 write-file-string write-file-string) + (spec: 1 group-info-gid group-info-gid) (spec: 1 - no-such-file-or-directory-exception-arguments - no-such-file-or-directory-exception-arguments) - (spec: 1 u8vector-concatenate u8vector-concatenate) - (spec: 1 datum-parsing-exception? datum-parsing-exception?) - (spec: 1 car+cdr car+cdr) - (spec: 1 flfloor flfloor) - (spec: 1 unbound-global-exception-rte unbound-global-exception-rte) - (spec: 1 table-merge! table-merge!) + wrong-number-of-arguments-exception-procedure + wrong-number-of-arguments-exception-procedure) + (spec: 1 s64vector-copy! s64vector-copy!) + (spec: 1 address-infos address-infos) + (spec: 1 top top) + (spec: 1 char-set-xor! char-set-xor!) + (spec: 1 fxwrap- fxwrap-) + (spec: 1 list->s32vector list->s32vector) (spec: 1 - readtable-max-write-length-set - readtable-max-write-length-set) + thread-state-normally-terminated-result + thread-state-normally-terminated-result) + (spec: 1 fx>= fx>=) + (spec: 1 char-set-adjoin char-set-adjoin) + (spec: 1 output-port-column output-port-column) + (spec: 1 thread-group-resume! thread-group-resume!) + (spec: 1 open-input-vector open-input-vector) + (spec: 1 fltan fltan) + (spec: 1 fllog1p fllog1p) + (spec: 1 uncaught-exception-reason uncaught-exception-reason) + (spec: 1 flexp flexp) + (spec: 1 call-with-input-vector call-with-input-vector) + (spec: 1 read-substring read-substring) + (spec: 1 delete! delete!) + (spec: 1 first first) + (spec: 1 u64vector-set u64vector-set) + (spec: 1 file-info-attributes file-info-attributes) + (spec: 1 bitwise-orc2 bitwise-orc2) + (spec: 1 multiple-c-return-exception? multiple-c-return-exception?) + (spec: 1 subs64vector-fill! subs64vector-fill!) + (spec: 1 service-info-aliases service-info-aliases) + (spec: 1 f64vector f64vector) + (spec: 1 u16vector-shrink! u16vector-shrink!) + (spec: 1 serial-number->object serial-number->object) + (spec: 1 s8vector-concatenate s8vector-concatenate) + (spec: 1 make-condition-variable make-condition-variable) + (spec: 1 tty-history tty-history) + (spec: 1 string-contains string-contains) + (spec: 1 char-set<= char-set<=) + (spec: 1 s32vector-copy! s32vector-copy!) + (spec: 1 thread? thread?) (spec: 1 - unknown-keyword-argument-exception-arguments - unknown-keyword-argument-exception-arguments) - (spec: 1 open-directory open-directory) - (spec: 1 s16vector-concatenate s16vector-concatenate) + started-thread-exception-procedure + started-thread-exception-procedure) + (spec: 1 char-set-fold char-set-fold) + (spec: 1 fxeven? fxeven?) (spec: 1 - thread-group->thread-group-vector - thread-group->thread-group-vector) - (spec: 1 char-set->string char-set->string) - (spec: 1 os-exception-code os-exception-code) - (spec: 1 address-info-family address-info-family) - (spec: 1 every every) - (spec: 1 s64vector s64vector) - (spec: 1 char-set-xor char-set-xor) - (spec: 1 fxodd? fxodd?) + rpc-remote-error-exception-procedure + rpc-remote-error-exception-procedure) + (spec: 1 thread-priority-boost-set! thread-priority-boost-set!) + (spec: 1 repl-highlight-source-level repl-highlight-source-level) + (spec: 1 repl-backtrace-detail-level repl-backtrace-detail-level) + (spec: 1 tcp-server-socket-info tcp-server-socket-info) + (spec: 1 readtable-max-write-length readtable-max-write-length) + (spec: 1 table-merge table-merge) (spec: 1 - thread-state-abnormally-terminated-reason - thread-state-abnormally-terminated-reason) - (spec: 1 poll-point poll-point) - (spec: 1 console-port console-port) - (spec: 1 subs64vector subs64vector) - (spec: 1 type-exception-arguments type-exception-arguments) - (spec: 1 f32vector-length f32vector-length) - (spec: 1 make-tls-context make-tls-context) - (spec: 1 service-info service-info) - (spec: 1 u16vector-set! u16vector-set!) - (spec: 1 random-u8vector random-u8vector) - (spec: 1 with-exception-handler with-exception-handler) - (spec: 1 bitwise-nor bitwise-nor) - (spec: 1 file-attributes file-attributes) + nonprocedure-operator-exception-operator + nonprocedure-operator-exception-operator) + (spec: 1 fl+* fl+*) (spec: 1 - module-not-found-exception-arguments - module-not-found-exception-arguments) - (spec: 1 input-port-timeout-set! input-port-timeout-set!) - (spec: 1 read-file-u8vector read-file-u8vector) - (spec: 1 ucs-range->char-set! ucs-range->char-set!) - (spec: 1 network-info network-info) - (spec: 1 file-owner file-owner) - (spec: 1 directory-files directory-files) + input-port-characters-buffered + input-port-characters-buffered) + (spec: 1 default-random-source default-random-source) + (spec: 1 file-info-size file-info-size) + (spec: 1 subu64vector-fill! subu64vector-fill!) + (spec: 1 create-symbolic-link create-symbolic-link) + (spec: 1 r7rs-with-exception-handler r7rs-with-exception-handler) + (spec: 1 u32vector? u32vector?) + (spec: 1 bitwise-and bitwise-and) + (spec: 1 f64vector-set! f64vector-set!) + (spec: 1 processor? processor?) + (spec: 1 process-times process-times) + (spec: 1 host-info-addresses host-info-addresses) + (spec: 1 string-set string-set) + (spec: 1 pretty-print pretty-print) + (spec: 1 get-output-vector get-output-vector) + (spec: 1 with-input-from-process with-input-from-process) + (spec: 1 string->char-set! string->char-set!) + (spec: 1 path-strip-extension path-strip-extension) + (spec: 1 char-set-any char-set-any) + (spec: 1 fxpositive? fxpositive?) + (spec: 1 list->s8vector list->s8vector) + (spec: 1 s32vector s32vector) + (spec: 1 fx+ fx+) + (spec: 1 thread-group-specific-set! thread-group-specific-set!) + (spec: 1 call-with-output-process call-with-output-process) + (spec: 1 flround flround) + (spec: 1 flmin flmin) + (spec: 1 null-list? null-list?) + (spec: 1 flatanh flatanh) + (spec: 1 readtable-eval-allowed?-set readtable-eval-allowed?-set) + (spec: 1 system-stamp system-stamp) + (spec: 1 bitwise-xor bitwise-xor) + (spec: 1 current-readtable current-readtable) + (spec: 1 u64vector-shrink! u64vector-shrink!) (spec: 1 - invalid-utf8-encoding-exception-procedure - invalid-utf8-encoding-exception-procedure) - (spec: 1 tcp-client-peer-socket-info tcp-client-peer-socket-info) + file-exists-exception-arguments + file-exists-exception-arguments) + (spec: 1 subs8vector subs8vector) + (spec: 1 u16vector? u16vector?) + (spec: 1 f32vector-set f32vector-set) + (spec: 1 u16vector-ref u16vector-ref) + (spec: 1 extract-bit-field extract-bit-field) + (spec: 1 tty-history-set! tty-history-set!) + (spec: 1 make-f32vector make-f32vector) + (spec: 1 s8vector-swap! s8vector-swap!) + (spec: 1 will? will?) + (spec: 1 gc-report-set! gc-report-set!) + (spec: 1 char-set-union char-set-union) + (spec: 1 list-sort! list-sort!) + (spec: 1 fxif fxif) + (spec: 1 char-set char-set) + (spec: 1 s16vector->list s16vector->list) + (spec: 1 thread-quantum-set! thread-quantum-set!) + (spec: 1 user-info? user-info?) + (spec: 1 open-u8vector open-u8vector) + (spec: 1 foreign-address foreign-address) + (spec: 1 car+cdr car+cdr) + (spec: 1 test-bit-field? test-bit-field?) + (spec: + 1 + display-continuation-dynamic-environment + display-continuation-dynamic-environment) (spec: 1 call-with-input-process call-with-input-process) - (spec: 1 flacosh flacosh) (spec: 1 - nonprocedure-operator-exception? - nonprocedure-operator-exception?) - (spec: 1 flzero? flzero?) + readtable-write-extended-read-macros? + readtable-write-extended-read-macros?) + (spec: 1 table-ref table-ref) + (spec: 1 fl/ fl/) (spec: 1 - divide-by-zero-exception-arguments - divide-by-zero-exception-arguments) - (spec: 1 thread-mailbox-rewind thread-mailbox-rewind) + nonempty-input-port-character-buffer-exception-procedure + nonempty-input-port-character-buffer-exception-procedure) + (spec: 1 dead-end dead-end) + (spec: 1 input-port-line input-port-line) + (spec: 1 ucs-range->char-set! ucs-range->char-set!) + (spec: 1 file-info? file-info?) + (spec: 1 bitwise-nor bitwise-nor) + (spec: + 1 + random-source-pseudo-randomize! + random-source-pseudo-randomize!) + (spec: 1 subu8vector subu8vector) + (spec: 1 u64vector-length u64vector-length) + (spec: 1 f64vector-swap! f64vector-swap!) + (spec: 1 protocol-info-name protocol-info-name) + (spec: 1 condition-variable-name condition-variable-name) + (spec: 1 help-browser help-browser) + (spec: 1 command-args command-args) + (spec: 1 append! append!) + (spec: 1 fxremainder fxremainder) + (spec: 1 string-prefix-ci? string-prefix-ci?) + (spec: 1 s8vector s8vector) + (spec: 1 void void) + (spec: 1 fx< fx<) (spec: 1 char-set-diff+intersection char-set-diff+intersection) - (spec: 1 fxandc2 fxandc2) - (spec: 1 output-port-readtable-set! output-port-readtable-set!) - (spec: 1 length+ length+) + (spec: 1 s32vector-append s32vector-append) + (spec: 1 list->char-set! list->char-set!) (spec: 1 thread-terminate! thread-terminate!) - (spec: 1 path-strip-volume path-strip-volume) - (spec: 1 fxwraplogical-shift-right fxwraplogical-shift-right) (spec: 1 vector->bits vector->bits) - (spec: 1 list->table list->table) - (spec: 1 s32vector-append s32vector-append) - (spec: 1 string-prefix-ci? string-prefix-ci?) - (spec: 1 void void) - (spec: 1 append! append!) - (spec: 1 s8vector s8vector) - (spec: 1 bit-field-rotate bit-field-rotate) - (spec: 1 f64vector-copy f64vector-copy) - (spec: 1 setenv setenv) - (spec: 1 condition-variable-broadcast! condition-variable-broadcast!) - (spec: 1 u16vector-ref u16vector-ref) - (spec: 1 write-subu8vector write-subu8vector) - (spec: 1 box box) - (spec: 1 file-info-inode file-info-inode) - (spec: 1 mutex-name mutex-name) - (spec: 1 random-integer random-integer) - (spec: 1 subu8vector-fill! subu8vector-fill!) + (spec: 1 flsin flsin) + (spec: 1 thread-mailbox-rewind thread-mailbox-rewind) + (spec: 1 flinfinite? flinfinite?) + (spec: 1 fl- fl-) + (spec: 1 tcp-client-local-socket-info tcp-client-local-socket-info) (spec: 1 - fixnum-overflow-exception-procedure - fixnum-overflow-exception-procedure) + nonempty-input-port-character-buffer-exception-arguments + nonempty-input-port-character-buffer-exception-arguments) + (spec: 1 file-info-type file-info-type) + (spec: 1 unbreak unbreak) + (spec: 1 input-port-byte-position input-port-byte-position) + (spec: 1 read-file-string-list read-file-string-list) + (spec: 1 ucs-range->char-set ucs-range->char-set) + (spec: 1 f64vector-shrink! f64vector-shrink!) + (spec: 1 bitwise-nand bitwise-nand) (spec: 1 - no-such-file-or-directory-exception? - no-such-file-or-directory-exception?) - (spec: 1 u32vector-length u32vector-length) - (spec: 1 read-all read-all) - (spec: 1 unbound-global-exception? unbound-global-exception?) - (spec: 1 flilogb flilogb) + inactive-thread-exception-arguments + inactive-thread-exception-arguments) + (spec: 1 create-directory create-directory) + (spec: 1 random-source-state-ref random-source-state-ref) + (spec: 1 u64vector-fill! u64vector-fill!) + (spec: 1 subs32vector subs32vector) + (spec: + 1 + condition-variable-specific-set! + condition-variable-specific-set!) (spec: 1 - unknown-keyword-argument-exception? - unknown-keyword-argument-exception?) + expression-parsing-exception-kind + expression-parsing-exception-kind) (spec: 1 - invalid-hash-number-exception-procedure - invalid-hash-number-exception-procedure) - (spec: 1 readtable-max-write-level-set readtable-max-write-level-set) - (spec: 1 table-search table-search) - (spec: 1 last last) - (spec: 1 thread-group->thread-vector thread-group->thread-vector) - (spec: 1 flpositive? flpositive?) - (spec: 1 open-event-queue open-event-queue) - (spec: 1 s16vector-copy! s16vector-copy!) - (spec: 1 os-exception-procedure os-exception-procedure) - (spec: 1 fx* fx*) - (spec: 1 address-info-socket-info address-info-socket-info) - (spec: 1 list= list=) - (spec: 1 char-set-adjoin! char-set-adjoin!) - (spec: 1 fxorc2 fxorc2) - (spec: 1 partition! partition!) - (spec: 1 s64vector-append s64vector-append) - (spec: 1 scheduler-exception-reason scheduler-exception-reason) - (spec: 1 type-exception-type-id type-exception-type-id) - (spec: 1 get-output-u8vector get-output-u8vector) + wrong-number-of-arguments-exception-arguments + wrong-number-of-arguments-exception-arguments) + (spec: 1 help help) + (spec: 1 fxxor fxxor) + (spec: 1 pp pp) + (spec: 1 equal?-hash equal?-hash) + (spec: 1 path-normalize path-normalize) + (spec: 1 fxarithmetic-shift-right fxarithmetic-shift-right) + (spec: 1 char-set-difference! char-set-difference!) + (spec: 1 eighth eighth) + (spec: 1 list->char-set list->char-set) + (spec: 1 s32vector->list s32vector->list) + (spec: 1 output-port-char-position output-port-char-position) + (spec: 1 thread-suspend! thread-suspend!) + (spec: 1 thread-mailbox-next thread-mailbox-next) (spec: 1 - port-io-exception-handler-set! - port-io-exception-handler-set!) - (spec: 1 with-input-from-port with-input-from-port) - (spec: 1 subs64vector-move! subs64vector-move!) - (spec: 1 xcons xcons) - (spec: 1 f32vector-ref f32vector-ref) - (spec: 1 make-u32vector make-u32vector) - (spec: 1 service-info-name service-info-name) - (spec: 1 u16vector-swap! u16vector-swap!) - (spec: 1 file-device file-device) - (spec: 1 bitwise-orc1 bitwise-orc1) - (spec: 1 module-not-found-exception? module-not-found-exception?) - (spec: 1 u64vector-ref u64vector-ref) - (spec: 1 file-size file-size) - (spec: 1 network-info-name network-info-name) - (spec: 1 udp-destination-set! udp-destination-set!) - (spec: 1 tcp-client-self-socket-info tcp-client-self-socket-info) - (spec: 1 flasin flasin) - (spec: 1 call-with-input-u8vector call-with-input-u8vector) - (spec: 1 fold-right fold-right) - (spec: 1 open-output-vector open-output-vector) - (spec: 1 uncaught-exception-procedure uncaught-exception-procedure) - (spec: 1 divide-by-zero-exception? divide-by-zero-exception?) - (spec: 1 repl-error-port repl-error-port) - (spec: 1 char-set-difference char-set-difference) - (spec: 1 fxarithmetic-shift-left fxarithmetic-shift-left) - (spec: 1 output-port-width output-port-width) + display-continuation-backtrace + display-continuation-backtrace) + (spec: 1 vector-any vector-any) + (spec: 1 open-input-u8vector open-input-u8vector) + (spec: 1 fixnum-overflow-exception? fixnum-overflow-exception?) + (spec: 1 readtable-keywords-allowed? readtable-keywords-allowed?) + (spec: 1 table->list table->list) + (spec: 1 ninth ninth) (spec: 1 - rpc-remote-error-exception-message - rpc-remote-error-exception-message) + file-info-last-modification-time + file-info-last-modification-time) + (spec: 1 continuation-capture continuation-capture) + (spec: 1 u8vector-fill! u8vector-fill!) + (spec: 1 bit-swap bit-swap) + (spec: 1 f64vector-length f64vector-length) + (spec: 1 subu32vector subu32vector) + (spec: 1 u32vector-set u32vector-set) + (spec: 1 ->char-set ->char-set) (spec: 1 - length-mismatch-exception-arg-id - length-mismatch-exception-arg-id) - (spec: 1 fxwrapsquare fxwrapsquare) - (spec: 1 thread-priority-boost thread-priority-boost) - (spec: 1 list->u32vector list->u32vector) - (spec: 1 s32vector-copy s32vector-copy) - (spec: 1 string-prefix-length-ci string-prefix-length-ci) - (spec: 1 thread-yield! thread-yield!) - (spec: 1 append-reverse! append-reverse!) - (spec: 1 s8vector-append s8vector-append) - (spec: 1 f64vector-fill! f64vector-fill!) - (spec: 1 bit-set? bit-set?) - (spec: 1 seventh seventh) - (spec: 1 u32vector-ref u32vector-ref) - (spec: 1 file-info-last-change-time file-info-last-change-time) - (spec: 1 mutex-specific-set! mutex-specific-set!) - (spec: 1 condition-variable-signal! condition-variable-signal!) - (spec: 1 subvector subvector) - (spec: 1 u8vector-copy! u8vector-copy!) - (spec: 1 break break) - (spec: 1 fixnum? fixnum?) + permission-denied-exception-arguments + permission-denied-exception-arguments) + (spec: 1 u16vector-set u16vector-set) + (spec: 1 s8vector-set s8vector-set) + (spec: 1 address-info-socket-type address-info-socket-type) + (spec: 1 type-exception? type-exception?) + (spec: 1 with-exception-catcher with-exception-catcher) + (spec: 1 char-set-union! char-set-union!) + (spec: 1 fxnot fxnot) + (spec: 1 list-set list-set) + (spec: 1 s32vector-shrink! s32vector-shrink!) + (spec: 1 open-u8vector-pipe open-u8vector-pipe) + (spec: 1 char-set->list char-set->list) + (spec: 1 thread-state-initialized? thread-state-initialized?) + (spec: 1 compile-file compile-file) + (spec: 1 user-name user-name) + (spec: 1 object->serial-number object->serial-number) + (spec: 1 thread-group-name thread-group-name) (spec: 1 - inactive-thread-exception-arguments - inactive-thread-exception-arguments) - (spec: 1 create-directory create-directory) + number-of-arguments-limit-exception? + number-of-arguments-limit-exception?) (spec: 1 - noncontinuable-exception-reason - noncontinuable-exception-reason) + nonempty-input-port-character-buffer-exception? + nonempty-input-port-character-buffer-exception?) + (spec: 1 call-with-input-string call-with-input-string) + (spec: 1 readtable-start-syntax-set readtable-start-syntax-set) + (spec: 1 uncaught-exception-arguments uncaught-exception-arguments) + (spec: 1 input-port-char-position input-port-char-position) + (spec: 1 bitwise-not bitwise-not) + (spec: 1 file-creation-time file-creation-time) + (spec: 1 inactive-thread-exception? inactive-thread-exception?) + (spec: 1 random-source-make-integers random-source-make-integers) + (spec: 1 f32vector-fill! f32vector-fill!) + (spec: 1 make-root-thread make-root-thread) + (spec: 1 subs32vector-move! subs32vector-move!) (spec: 1 - unbound-key-exception-arguments - unbound-key-exception-arguments) - (spec: 1 flinteger? flinteger?) + expression-parsing-exception-source + expression-parsing-exception-source) + (spec: 1 append-reverse append-reverse) + (spec: 1 with-output-to-string with-output-to-string) + (spec: 1 s64vector-set s64vector-set) + (spec: 1 list->f32vector list->f32vector) + (spec: 1 string->char-set string->char-set) + (spec: 1 fxbit-set? fxbit-set?) + (spec: 1 char-set-cursor-next char-set-cursor-next) + (spec: 1 s16vector-swap! s16vector-swap!) + (spec: 1 thread-thread-group thread-thread-group) + (spec: 1 vector-unfold-right vector-unfold-right) + (spec: 1 open-string open-string) + (spec: 1 cfun-conversion-exception? cfun-conversion-exception?) + (spec: 1 thread-name thread-name) (spec: 1 - number-of-arguments-limit-exception-procedure - number-of-arguments-limit-exception-procedure) - (spec: 1 input-port-byte-position input-port-byte-position) + divide-by-zero-exception-procedure + divide-by-zero-exception-procedure) + (spec: 1 iota iota) + (spec: 1 integer-length integer-length) + (spec: 1 uninterned-symbol? uninterned-symbol?) + (spec: 1 noncontinuable-exception? noncontinuable-exception?) + (spec: 1 fl* fl*) + (spec: 1 readtable-case-conversion? readtable-case-conversion?) + (spec: 1 datum-parsing-exception-kind datum-parsing-exception-kind) + (spec: 1 table-for-each table-for-each) + (spec: 1 file-info-number-of-links file-info-number-of-links) + (spec: 1 mutex? mutex?) + (spec: 1 range-exception? range-exception?) + (spec: 1 cosh cosh) + (spec: 1 u8vector->list u8vector->list) + (spec: 1 bit-field-replace bit-field-replace) + (spec: 1 f64vector-ref f64vector-ref) + (spec: 1 subu32vector-move! subu32vector-move!) + (spec: 1 u32vector-copy u32vector-copy) + (spec: 1 u16vector-copy u16vector-copy) + (spec: 1 s8vector-shrink! s8vector-shrink!) + (spec: 1 acosh acosh) + (spec: 1 partition partition) + (spec: 1 char-set-map char-set-map) + (spec: 1 fxorc1 fxorc1) + (spec: 1 s32vector? s32vector?) + (spec: 1 split-at split-at) + (spec: 1 os-exception-message os-exception-message) + (spec: 1 vector-fold vector-fold) + (spec: 1 s16vector s16vector) + (spec: 1 thread-start! thread-start!) + (spec: 1 user-info-gid user-info-gid) + (spec: 1 open-dummy open-dummy) + (spec: 1 flfinite? flfinite?) + (spec: 1 flasinh flasinh) (spec: 1 - readtable-sharing-allowed?-set - readtable-sharing-allowed?-set) - (spec: 1 table? table?) - (spec: 1 thread-group-parent thread-group-parent) - (spec: 1 s16vector-length s16vector-length) - (spec: 1 flscalbn flscalbn) - (spec: 1 s64vector-copy s64vector-copy) - (spec: 1 fx- fx-) - (spec: 1 char-set-complement char-set-complement) - (spec: 1 path-directory path-directory) - (spec: 1 address-info? address-info?) + readtable-write-cdr-read-macros?-set + readtable-write-cdr-read-macros?-set) + (spec: 1 take-right take-right) (spec: 1 - expression-parsing-exception-parameters - expression-parsing-exception-parameters) - (spec: 1 fxquotient fxquotient) - (spec: 1 port-settings-set! port-settings-set!) - (spec: 1 with-input-from-string with-input-from-string) - (spec: 1 asinh asinh) - (spec: 1 subs8vector-fill! subs8vector-fill!) - (spec: 1 getenv getenv) - (spec: 1 service-info-protocol service-info-protocol) - (spec: 1 make-u8vector make-u8vector) - (spec: 1 continuation-capture continuation-capture) - (spec: 1 range-exception-arguments range-exception-arguments) - (spec: 1 f32vector-set! f32vector-set!) - (spec: 1 module-search-order-add! module-search-order-add!) - (spec: 1 u64vector-set! u64vector-set!) - (spec: 1 current-processor current-processor) - (spec: 1 read-subu8vector read-subu8vector) - (spec: 1 bitwise-unfold bitwise-unfold) - (spec: 1 network-info? network-info?) - (spec: 1 thread-priority-set! thread-priority-set!) - (spec: 1 udp-local-socket-info udp-local-socket-info) - (spec: 1 flatan flatan) - (spec: 1 uncaught-exception? uncaught-exception?) - (spec: 1 open-process open-process) - (spec: 1 socket-info-family socket-info-family) - (spec: 1 repl-input-port repl-input-port) - (spec: 1 fxbit-count fxbit-count) + unbound-serial-number-exception-arguments + unbound-serial-number-exception-arguments) + (spec: 1 network-info-number network-info-number) + (spec: 1 file-type file-type) + (spec: 1 u8vector-set! u8vector-set!) + (spec: 1 bitwise-for-each bitwise-for-each) + (spec: 1 random-source-make-u8vectors random-source-make-u8vectors) + (spec: 1 u64vector-append u64vector-append) + (spec: 1 make-u16vector make-u16vector) + (spec: 1 seconds->time seconds->time) + (spec: 1 protocol-info-aliases protocol-info-aliases) + (spec: 1 make-random-source make-random-source) + (spec: 1 subf64vector-move! subf64vector-move!) + (spec: 1 s64vector-shrink! s64vector-shrink!) (spec: 1 - length-mismatch-exception-procedure - length-mismatch-exception-procedure) - (spec: 1 rpc-remote-error-exception? rpc-remote-error-exception?) - (spec: 1 char-set-every char-set-every) - (spec: 1 fxzero? fxzero?) - (spec: 1 string->uninterned-symbol string->uninterned-symbol) - (spec: 1 list->u8vector list->u8vector) - (spec: 1 s32vector-fill! s32vector-fill!) - (spec: 1 thread-quantum thread-quantum) - (spec: 1 print print) + mailbox-receive-timeout-exception-arguments + mailbox-receive-timeout-exception-arguments) + (spec: 1 string-suffix-length-ci string-suffix-length-ci) + (spec: 1 with-output-to-vector with-output-to-vector) + (spec: 1 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) + (spec: 1 trace trace) + (spec: 1 list->u64vector list->u64vector) + (spec: 1 write-substring write-substring) + (spec: 1 fxandc1 fxandc1) + (spec: 1 char-set-delete! char-set-delete!) (spec: 1 - mailbox-receive-timeout-exception-procedure - mailbox-receive-timeout-exception-procedure) - (spec: 1 s8vector-copy s8vector-copy) - (spec: 1 tty-history-max-length-set! tty-history-max-length-set!) + length-mismatch-exception-arguments + length-mismatch-exception-arguments) + (spec: 1 open-tcp-client open-tcp-client) + (spec: 1 thread-init! thread-init!) + (spec: 1 keyword->string keyword->string) + (spec: 1 remove! remove!) + (spec: 1 readtable-comment-handler readtable-comment-handler) + (spec: 1 fixnum->flonum fixnum->flonum) (spec: 1 - sfun-conversion-exception-arguments - sfun-conversion-exception-arguments) - (spec: 1 u32vector-set! u32vector-set!) - (spec: 1 apropos apropos) - (spec: 1 subf32vector-fill! subf32vector-fill!) - (spec: 1 bits bits) - (spec: 1 file-info-mode file-info-mode) - (spec: 1 mutex-unlock! mutex-unlock!) + datum-parsing-exception-readenv + datum-parsing-exception-readenv) + (spec: 1 unbound-global-exception-code unbound-global-exception-code) + (spec: 1 file-info-group file-info-group) (spec: 1 - condition-variable-specific-set! - condition-variable-specific-set!) - (spec: 1 subvector-move! subvector-move!) + sfun-conversion-exception-procedure + sfun-conversion-exception-procedure) + (spec: 1 f64vector-concatenate f64vector-concatenate) + (spec: 1 bit-field-reverse bit-field-reverse) + (spec: 1 process-pid process-pid) + (spec: 1 substring-move! substring-move!) + (spec: 1 u32vector-fill! u32vector-fill!) + (spec: 1 heap-overflow-exception? heap-overflow-exception?) + (spec: 1 println println) + (spec: 1 u8vector-append u8vector-append) + (spec: 1 generate-proper-tail-calls generate-proper-tail-calls) + (spec: 1 s64vector-length s64vector-length) + (spec: 1 type-exception-arg-id type-exception-arg-id) + (spec: 1 fxmodulo fxmodulo) + (spec: 1 char-set-size char-set-size) + (spec: 1 list->bits list->bits) + (spec: 1 s16vector-set s16vector-set) + (spec: 1 user-info-name user-info-name) + (spec: 1 foreign? foreign?) + (spec: 1 os-exception? os-exception?) + (spec: 1 last-pair last-pair) (spec: 1 - wrong-number-of-arguments-exception-arguments - wrong-number-of-arguments-exception-arguments) - (spec: 1 file-info-owner file-info-owner) - (spec: 1 unbound-key-exception? unbound-key-exception?) - (spec: 1 create-link create-link) - (spec: 1 inactive-thread-exception? inactive-thread-exception?) - (spec: 1 random-source-make-integers random-source-make-integers) - (spec: 1 fl+ fl+) - (spec: 1 input-port-char-position input-port-char-position) - (spec: 1 take take) - (spec: 1 fllog fllog) - (spec: 1 reverse! reverse!) - (spec: 1 thread-group-specific thread-group-specific) - (spec: 1 readtable-start-syntax-set readtable-start-syntax-set) - (spec: 1 s16vector-ref s16vector-ref) + unterminated-process-exception-procedure + unterminated-process-exception-procedure) + (spec: 1 flodd? flodd?) + (spec: 1 open-file open-file) (spec: 1 - cfun-conversion-exception-arguments - cfun-conversion-exception-arguments) - (spec: 1 flsinh flsinh) - (spec: 1 open-input-process open-input-process) + thread-group->thread-group-list + thread-group->thread-group-list) + (spec: 1 flhypot flhypot) (spec: 1 - thread-state-normally-terminated? - thread-state-normally-terminated?) - (spec: 1 eq?-hash eq?-hash) - (spec: 1 s64vector-fill! s64vector-fill!) - (spec: 1 char-set-contains? char-set-contains?) - (spec: 1 fx<= fx<=) - (spec: 1 step step) - (spec: 1 path-expand path-expand) - (spec: 1 fxsquare fxsquare) - (spec: 1 with-input-from-vector with-input-from-vector) - (spec: 1 expression-parsing-exception? expression-parsing-exception?) - (spec: 1 u32vector u32vector) - (spec: 1 continuation-return continuation-return) - (spec: 1 bit-field bit-field) - (spec: 1 f32vector-swap! f32vector-swap!) - (spec: 1 module-whitelist-add! module-whitelist-add!) - (spec: 1 sinh sinh) - (spec: 1 system-type system-type) - (spec: 1 u64vector-swap! u64vector-swap!) + unbound-serial-number-exception? + unbound-serial-number-exception?) + (spec: 1 fl>= fl>=) (spec: 1 - file-exists-exception-procedure - file-exists-exception-procedure) + not-in-compilation-context-exception-arguments + not-in-compilation-context-exception-arguments) + (spec: 1 tanh tanh) + (spec: 1 u8vector-swap! u8vector-swap!) + (spec: 1 file-last-modification-time file-last-modification-time) + (spec: 1 range-exception-arg-id range-exception-arg-id) + (spec: 1 u64vector-copy u64vector-copy) + (spec: 1 module-search-order-reset! module-search-order-reset!) + (spec: 1 bitwise-ior bitwise-ior) + (spec: 1 service-info-port-number service-info-port-number) + (spec: 1 f32vector-append f32vector-append) + (spec: 1 make-u64vector make-u64vector) + (spec: 1 script-file script-file) + (spec: 1 subs16vector-fill! subs16vector-fill!) + (spec: 1 u16vector->list u16vector->list) + (spec: 1 s8vector-copy! s8vector-copy!) + (spec: 1 any-bit-set? any-bit-set?) (spec: 1 - not-in-compilation-context-exception-procedure - not-in-compilation-context-exception-procedure) + mailbox-receive-timeout-exception? + mailbox-receive-timeout-exception?) + (spec: 1 path-volume path-volume) + (spec: 1 char-set? char-set?) + (spec: 1 fxwrapquotient fxwrapquotient) + (spec: 1 error-exception-message error-exception-message) + (spec: 1 s32vector-length s32vector-length) + (spec: 1 output-port-timeout-set! output-port-timeout-set!) + (spec: 1 char-set-hash char-set-hash) + (spec: 1 thread-join! thread-join!) + (spec: 1 fxarithmetic-shift fxarithmetic-shift) + (spec: 1 length-mismatch-exception? length-mismatch-exception?) + (spec: 1 thread-state-waiting-timeout thread-state-waiting-timeout) + (spec: 1 fold fold) + (spec: 1 open-output-u8vector open-output-u8vector) + (spec: 1 repl-output-port repl-output-port) (spec: 1 - display-continuation-backtrace - display-continuation-backtrace) - (spec: 1 open-string-pipe open-string-pipe) - (spec: 1 socket-info? socket-info?) - (spec: 1 flceiling flceiling) - (spec: 1 call-with-output-string call-with-output-string) - (spec: 1 force-output force-output) + keyword-expected-exception-arguments + keyword-expected-exception-arguments) (spec: 1 - keyword-expected-exception-procedure - keyword-expected-exception-procedure) + terminated-thread-exception-procedure + terminated-thread-exception-procedure) (spec: 1 - repl-result-history-max-length-set! - repl-result-history-max-length-set!) - (spec: 1 vector-concatenate vector-concatenate) - (spec: 1 thread-receive thread-receive) - (spec: 1 fxeqv fxeqv) - (spec: 1 char-set-filter! char-set-filter!) - (spec: 1 abandoned-mutex-exception? abandoned-mutex-exception?) - (spec: 1 main main) - (spec: 1 s8vector-fill! s8vector-fill!) - (spec: 1 help help) + invalid-utf8-encoding-exception-arguments + invalid-utf8-encoding-exception-arguments) + (spec: 1 tcp-service-register! tcp-service-register!) + (spec: 1 u16vector-fill! u16vector-fill!) + (spec: 1 delete-directory delete-directory) (spec: 1 - sfun-conversion-exception-message - sfun-conversion-exception-message) - (spec: 1 tty-mode-set! tty-mode-set!) - (spec: 1 u32vector-swap! u32vector-swap!) - (spec: 1 subf64vector subf64vector) - (spec: 1 bits->vector bits->vector) - (spec: 1 f64vector-set f64vector-set) + invalid-hash-number-exception-arguments + invalid-hash-number-exception-arguments) + (spec: 1 readtable-max-write-level readtable-max-write-level) (spec: 1 - wrong-number-of-arguments-exception? - wrong-number-of-arguments-exception?) + fixnum-overflow-exception-arguments + fixnum-overflow-exception-arguments) + (spec: + 1 + no-such-file-or-directory-exception-procedure + no-such-file-or-directory-exception-procedure) + (spec: + 1 + unbound-os-environment-variable-exception-procedure + unbound-os-environment-variable-exception-procedure) + (spec: 1 vector-cumulate vector-cumulate) + (spec: 1 write-file-string-list write-file-string-list) + (spec: + 1 + wrong-number-of-values-exception-vals + wrong-number-of-values-exception-vals) + (spec: 1 file-info-last-access-time file-info-last-access-time) + (spec: 1 mutex-specific mutex-specific) + (spec: 1 copy-bit copy-bit) + (spec: 1 random-f64vector random-f64vector) + (spec: 1 subu16vector-fill! subu16vector-fill!) + (spec: 1 f64vector-copy! f64vector-copy!) + (spec: 1 bitwise-andc2 bitwise-andc2) + (spec: 1 string-swap! string-swap!) + (spec: 1 compilation-target compilation-target) + (spec: 1 string-shrink! string-shrink!) + (spec: 1 group-info? group-info?) + (spec: 1 with-input-from-u8vector with-input-from-u8vector) + (spec: 1 every-bit-set? every-bit-set?) + (spec: 1 all-bits-set? all-bits-set?) + (spec: 1 s64vector-ref s64vector-ref) + (spec: 1 fxnegative? fxnegative?) + (spec: 1 vector-set vector-set) + (spec: 1 s16vector-shrink! s16vector-shrink!) + (spec: 1 thread-state-running? thread-state-running?) + (spec: 1 char-set-complement! char-set-complement!) + (spec: 1 thread-group-terminate! thread-group-terminate!) + (spec: 1 flonum? flonum?) + (spec: 1 read-bytevector! read-bytevector!) + (spec: 1 string-downcase string-downcase) + (spec: 1 finite? finite?) + (spec: 1 make-list make-list) + (spec: 1 command-line command-line) + (spec: 1 ceiling-quotient ceiling-quotient) + (spec: 1 bytevector-copy bytevector-copy) + (spec: 1 open-output-bytevector open-output-bytevector) + (spec: 1 string-foldcase string-foldcase) + (spec: 1 vector-append vector-append) + (spec: 1 nan? nan?) + (spec: 1 ceiling/ ceiling/) + (spec: 1 bytevector-length bytevector-length) + (spec: 1 binary-port? binary-port?) + (spec: 1 emergency-exit emergency-exit) + (spec: 1 euclidean-quotient euclidean-quotient) + (spec: 1 input-port-open? input-port-open?) + (spec: 1 read-string read-string) + (spec: 1 close-port close-port) + (spec: 1 round-remainder round-remainder) + (spec: 1 file-exists? file-exists?) + (spec: 1 euclidean/ euclidean/) + (spec: 1 euclidean-remainder euclidean-remainder) + (spec: 1 floor-remainder floor-remainder) + (spec: 1 bytevector bytevector) + (spec: 1 get-output-bytevector get-output-bytevector) + (spec: 1 error-object? error-object?) + (spec: 1 open-input-string open-input-string) + (spec: 1 string-map string-map) + (spec: 1 textual-port? textual-port?) + (spec: 1 eof-object eof-object) + (spec: 1 exact exact) + (spec: 1 vector->string vector->string) + (spec: 1 make-parameter make-parameter) + (spec: 1 vector-map vector-map) + (spec: 1 round-quotient round-quotient) + (spec: 1 boolean=? boolean=?) + (spec: 1 write-string write-string) + (spec: 1 open-input-bytevector open-input-bytevector) + (spec: 1 current-jiffy current-jiffy) + (spec: 1 inexact inexact) + (spec: 1 list-copy list-copy) + (spec: 1 delete-file delete-file) + (spec: 1 digit-value digit-value) + (spec: 1 get-environment-variables get-environment-variables) + (spec: 1 make-promise make-promise) + (spec: 1 open-binary-input-file open-binary-input-file) + (spec: 1 bytevector-u8-set! bytevector-u8-set!) + (spec: 1 exit exit) + (spec: 1 error-object-irritants error-object-irritants) + (spec: 1 open-output-string open-output-string) (spec: 1 bytevector-u8-ref bytevector-u8-ref) - (spec: 1 euclidean-quotient euclidean-quotient) + (spec: 1 current-error-port current-error-port) + (spec: 1 peek-u8 peek-u8) (spec: 1 char-foldcase char-foldcase) - (spec: 1 euclidean-remainder euclidean-remainder) + (spec: 1 read-bytevector read-bytevector) (spec: 1 string->vector string->vector) - (spec: 1 vector->string vector->string) - (spec: 1 exact-integer? exact-integer?) - (spec: 1 port? port?) - (spec: 1 bytevector? bytevector?) + (spec: 1 string-copy! string-copy!) (spec: 1 call-with-port call-with-port) - (spec: 1 delete-file delete-file) + (spec: 1 bytevector? bytevector?) + (spec: 1 open-binary-output-file open-binary-output-file) + (spec: 1 read-line read-line) + (spec: 1 string->utf8 string->utf8) (spec: 1 string-upcase string-upcase) - (spec: 1 open-input-string open-input-string) + (spec: 1 features features) (spec: 1 u8-ready? u8-ready?) - (spec: 1 string-map string-map) - (spec: 1 vector-append vector-append) - (spec: 1 square square) + (spec: 1 utf8->string utf8->string) + (spec: 1 bytevector-append bytevector-append) + (spec: 1 vector-copy! vector-copy!) (spec: 1 list-set! list-set!) - (spec: 1 write-bytevector write-bytevector) - (spec: 1 digit-value digit-value) - (spec: 1 features features) - (spec: 1 read-error? read-error?) - (spec: 1 boolean=? boolean=?) - (spec: 1 round-quotient round-quotient) - (spec: 1 open-binary-input-file open-binary-input-file) - (spec: 1 get-environment-variables get-environment-variables) - (spec: 1 balanced-remainder balanced-remainder) + (spec: 1 square square) + (spec: 1 vector-copy vector-copy) (spec: 1 write-shared write-shared) + (spec: 1 ceiling-remainder ceiling-remainder) + (spec: 1 bytevector-copy! bytevector-copy!) (spec: 1 output-port-open? output-port-open?) (spec: 1 round/ round/) - (spec: 1 write-string write-string) - (spec: 1 truncate-quotient truncate-quotient) - (spec: 1 get-environment-variable get-environment-variable) + (spec: 1 read-error? read-error?) + (spec: 1 balanced-remainder balanced-remainder) + (spec: 1 exact-integer? exact-integer?) + (spec: 1 port? port?) + (spec: 1 truncate-remainder truncate-remainder) (spec: 1 balanced-quotient balanced-quotient) - (spec: 1 read-u8 read-u8) - (spec: 1 write-simple write-simple) - (spec: 1 error-object-message error-object-message) - (spec: 1 promise? promise?) - (spec: 1 string->utf8 string->utf8) + (spec: 1 exact-integer-sqrt exact-integer-sqrt) + (spec: 1 current-second current-second) + (spec: 1 truncate-quotient truncate-quotient) + (spec: 1 make-bytevector make-bytevector) (spec: 1 floor-quotient floor-quotient) - (spec: 1 open-binary-output-file open-binary-output-file) + (spec: 1 write-bytevector write-bytevector) + (spec: 1 symbol=? symbol=?) (spec: 1 balanced/ balanced/) - (spec: 1 bytevector-append bytevector-append) - (spec: 1 file-error? file-error?) - (spec: 1 string-copy! string-copy!) - (spec: 1 truncate/ truncate/) - (spec: 1 vector-copy vector-copy) - (spec: 1 floor/ floor/) - (spec: 1 get-output-string get-output-string) - (spec: 1 utf8->string utf8->string) - (spec: 1 bytevector-copy! bytevector-copy!) - (spec: 1 write-u8 write-u8) - (spec: 1 read-bytevector read-bytevector) - (spec: 1 ceiling-remainder ceiling-remainder) - (spec: 1 string-for-each string-for-each) - (spec: 1 exact-integer-sqrt exact-integer-sqrt) - (spec: 1 file-exists? file-exists?) - (spec: 1 bytevector-u8-set! bytevector-u8-set!) + (spec: 1 error-object-message error-object-message) (spec: 1 infinite? infinite?) - (spec: 1 command-line command-line) - (spec: 1 euclidean/ euclidean/) - (spec: 1 input-port-open? input-port-open?) (spec: 1 jiffies-per-second jiffies-per-second) - (spec: 1 open-output-bytevector open-output-bytevector) - (spec: 1 vector-copy! vector-copy!) - (spec: 1 finite? finite?) - (spec: 1 make-bytevector make-bytevector) - (spec: 1 nan? nan?) + (spec: 1 get-output-string get-output-string) + (spec: 1 floor/ floor/) + (spec: 1 truncate/ truncate/) + (spec: 1 file-error? file-error?) + (spec: 1 write-simple write-simple) (spec: 1 flush-output-port flush-output-port) - (spec: 1 emergency-exit emergency-exit) - (spec: 1 current-error-port current-error-port) - (spec: 1 read-line read-line) - (spec: 1 round-remainder round-remainder) + (spec: 1 write-u8 write-u8) + (spec: 1 string-for-each string-for-each) (spec: 1 vector-for-each vector-for-each) - (spec: 1 symbol=? symbol=?) - (spec: 1 floor-remainder floor-remainder) - (spec: 1 vector-map vector-map) - (spec: 1 get-output-bytevector get-output-bytevector) - (spec: 1 inexact inexact) - (spec: 1 open-output-string open-output-string) - (spec: 1 current-jiffy current-jiffy) - (spec: 1 exit exit) - (spec: 1 error-object-irritants error-object-irritants) - (spec: 1 eof-object eof-object) - (spec: 1 exact exact) - (spec: 1 ceiling-quotient ceiling-quotient) - (spec: 1 read-string read-string) - (spec: 1 bytevector bytevector) - (spec: 1 error-object? error-object?) - (spec: 1 make-list make-list) - (spec: 1 read-bytevector! read-bytevector!) - (spec: 1 open-input-bytevector open-input-bytevector) - (spec: 1 ceiling/ ceiling/) - (spec: 1 make-parameter make-parameter) - (spec: 1 binary-port? binary-port?) - (spec: 1 bytevector-copy bytevector-copy) - (spec: 1 string-downcase string-downcase) - (spec: 1 close-port close-port) - (spec: 1 string-foldcase string-foldcase) - (spec: 1 textual-port? textual-port?) - (spec: 1 make-promise make-promise) - (spec: 1 truncate-remainder truncate-remainder) - (spec: 1 current-second current-second) - (spec: 1 bytevector-length bytevector-length) - (spec: 1 list-copy list-copy) - (spec: 1 peek-u8 peek-u8) - (spec: 1 rationalize rationalize) - (spec: 1 integer? integer?) - (spec: 1 cdar cdar) - (spec: 1 vector-fill! vector-fill!) + (spec: 1 read-u8 read-u8) + (spec: 1 promise? promise?) + (spec: 1 get-environment-variable get-environment-variable) + (spec: 1 denominator denominator) + (spec: 1 cadaar cadaar) + (spec: 1 cos cos) + (spec: 1 string-set! string-set!) + (spec: 1 list-tail list-tail) + (spec: 1 cdadr cdadr) + (spec: 1 call-with-values call-with-values) + (spec: 1 atan atan) + (spec: 1 string->symbol string->symbol) + (spec: 1 real-part real-part) + (spec: 1 cadar cadar) + (spec: 1 write-char write-char) + (spec: 1 < <) + (spec: 1 call-with-output-file call-with-output-file) + (spec: 1 null-environment null-environment) + (spec: 1 substring substring) + (spec: 1 zero? zero?) + (spec: 1 gcd gcd) + (spec: 1 scheme-report-environment scheme-report-environment) + (spec: 1 char-ci=? char-ci=?) + (spec: 1 real? real?) + (spec: 1 caadar caadar) + (spec: 1 string>? string>?) + (spec: 1 vector-ref vector-ref) + (spec: 1 null? null?) + (spec: 1 symbol? symbol?) + (spec: 1 max max) + (spec: 1 char-ci>? char-ci>?) + (spec: 1 cdaadr cdaadr) + (spec: 1 caadr caadr) + (spec: 1 display display) + (spec: 1 sqrt sqrt) + (spec: 1 assoc assoc) + (spec: 1 string-ref string-ref) + (spec: 1 string->number string->number) + (spec: 1 vector->list vector->list) + (spec: 1 char-alphabetic? char-alphabetic?) + (spec: 1 numerator numerator) + (spec: 1 caaaar caaaar) + (spec: 1 interaction-environment interaction-environment) + (spec: 1 modulo modulo) + (spec: 1 + +) + (spec: 1 charchar integer->char) + (spec: 1 inexact? inexact?) + (spec: 1 * *) + (spec: 1 char>? char>?) (spec: 1 pair? pair?) - (spec: 1 char-upcase char-upcase) - (spec: 1 cadadr cadadr) - (spec: 1 cdaddr cdaddr) - (spec: 1 read-char read-char) - (spec: 1 open-input-file open-input-file) - (spec: 1 eqv? eqv?) - (spec: 1 make-rectangular make-rectangular) - (spec: 1 string-length string-length) + (spec: 1 cdr cdr) + (spec: 1 positive? positive?) + (spec: 1 log log) + (spec: 1 char-ci<=? char-ci<=?) + (spec: 1 caaadr caaadr) (spec: 1 newline newline) - (spec: 1 cddadr cddadr) - (spec: 1 string-ci>? string-ci>?) + (spec: 1 - -) (spec: 1 list-ref list-ref) - (spec: 1 exact? exact?) - (spec: 1 eval eval) - (spec: 1 caddar caddar) - (spec: 1 log log) - (spec: 1 angle angle) - (spec: 1 >= >=) - (spec: 1 complex? complex?) - (spec: 1 cos cos) - (spec: 1 positive? positive?) - (spec: 1 denominator denominator) - (spec: 1 cdddar cdddar) - (spec: 1 acos acos) - (spec: 1 char-numeric? char-numeric?) - (spec: 1 char<=? char<=?) - (spec: 1 even? even?) - (spec: 1 make-string make-string) - (spec: 1 string? string-ci>?) + (spec: 1 cddadr cddadr) (spec: 1 caddr caddr) - (spec: 1 tan tan) - (spec: 1 transcript-off transcript-off) - (spec: 1 string string) - (spec: 1 set-cdr! set-cdr!) - (spec: 1 cdddr cdddr) - (spec: 1 floor floor) - (spec: 1 vector-length vector-length) - (spec: 1 char=? char=?) - (spec: 1 string-copy string-copy) - (spec: 1 negative? negative?) + (spec: 1 read-char read-char) + (spec: 1 peek-char peek-char) + (spec: 1 string string) + (spec: 1 for-each for-each) + (spec: 1 transcript-off transcript-off) + (spec: 1 rationalize rationalize) + (spec: 1 member member) + (spec: 1 close-output-port close-output-port) + (spec: 1 acos acos) + (spec: 1 char<=? char<=?) + (spec: 1 char-numeric? char-numeric?) + (spec: 1 cdddar cdddar) (spec: 1 call-with-current-continuation call-with-current-continuation) - (spec: 1 open-output-file open-output-file) - (spec: 1 * *) - (spec: 1 truncate truncate) + (spec: 1 load load) + (spec: 1 set-cdr! set-cdr!) (spec: 1 vector? vector?) - (spec: 1 call-with-input-file call-with-input-file) - (spec: 1 char-ci= >=) + (spec: 1 complex? complex?) + (spec: 1 vector-set! vector-set!) + (spec: 1 list list) + (spec: 1 values values) + (spec: 1 cdadar cdadar) + (spec: 1 floor floor) + (spec: 1 tan tan) + (spec: 1 assv assv) + (spec: 1 abs abs) + (spec: 1 magnitude magnitude) + (spec: 1 char-downcase char-downcase) + (spec: 1 cdar cdar) + (spec: 1 string-ci<=? string-ci<=?) + (spec: 1 cons cons) + (spec: 1 char-upcase char-upcase) + (spec: 1 list->string list->string) (spec: 1 length length) (spec: 1 output-port? output-port?) - (spec: 1 list->string list->string) - (spec: 1 append append) - (spec: 1 string>=? string>=?) - (spec: 1 caaaar caaaar) - (spec: 1 number->string number->string) - (spec: 1 cddddr cddddr) - (spec: 1 odd? odd?) - (spec: 1 char-ready? char-ready?) - (spec: 1 exp exp) - (spec: 1 charexact inexact->exact) - (spec: 1 force force) - (spec: 1 char-ci>=? char-ci>=?) - (spec: 1 not not) - (spec: 1 write write) - (spec: 1 string? string?) - (spec: 1 imag-part imag-part) - (spec: 1 caaar caaar) - (spec: 1 cddr cddr) - (spec: 1 eof-object? eof-object?) - (spec: 1 exact->inexact exact->inexact) - (spec: 1 asin asin) - (spec: 1 char>=? char>=?) + (spec: 1 vector-fill! vector-fill!) + (spec: 1 caddar caddar) + (spec: 1 <= <=) + (spec: 1 angle angle) (spec: 1 list? list?) - (spec: 1 inexact? inexact?) - (spec: 1 integer->char integer->char) - (spec: 1 string-append string-append) - (spec: 1 / /) - (spec: 1 apply apply) - (spec: 1 memv memv) - (spec: 1 caaddr caaddr) + (spec: 1 with-output-to-file with-output-to-file) (spec: 1 cdaaar cdaaar) - (spec: 1 read read) - (spec: 1 ceiling ceiling) - (spec: 1 eq? eq?) - (spec: 1 make-polar make-polar) - (spec: 1 char? char?) - (spec: 1 reverse reverse) - (spec: 1 sin sin) + (spec: 1 input-port? input-port?) + (spec: 1 not not) + (spec: 1 exact? exact?) + (spec: 1 eval eval) + (spec: 1 char-ci>=? char-ci>=?) + (spec: 1 caaddr caaddr) (spec: 1 string-fill! string-fill!) + (spec: 1 char? char?) (spec: 1 with-input-from-file with-input-from-file) - (spec: 1 dynamic-wind dynamic-wind) - (spec: 1 string-civector list->vector) - (spec: 1 caar caar) + (spec: 1 reverse reverse) (spec: 1 cdaar cdaar) - (spec: 1 number? number?) - (spec: 1 equal? equal?) + (spec: 1 ceiling ceiling) + (spec: 1 integer? integer?) (spec: 1 assq assq) - (spec: 1 <= <=) + (spec: 1 apply apply) + (spec: 1 even? even?) (spec: 1 expt expt) - (spec: 1 cadaar cadaar) - (spec: 1 cdadar cdadar) - (spec: 1 numerator numerator) - (spec: 1 assv assv) - (spec: 1 = =) - (spec: 1 map map) - (spec: 1 modulo modulo) - (spec: 1 quotient quotient) - (spec: 1 remainder remainder) - (spec: 1 char-downcase char-downcase) + (spec: 1 make-string make-string) + (spec: 1 caar caar) + (spec: 1 negative? negative?) + (spec: 1 string>=? string>=?) + (spec: 1 write write) + (spec: 1 equal? equal?) + (spec: 1 open-output-file open-output-file) + (spec: 1 char=? char=?) + (spec: 1 make-rectangular make-rectangular) + (spec: 1 string-copy string-copy) + (spec: 1 vector-length vector-length) + (spec: 1 cdddr cdddr) + (spec: 1 string? string?) + (spec: 1 stringlist string->list) + (spec: 1 char->integer char->integer) + (spec: 1 eqv? eqv?) + (spec: 1 call-with-input-file call-with-input-file) + (spec: 1 open-input-file open-input-file) + (spec: 1 symbol->string symbol->string) + (spec: 1 asin asin) + (spec: 1 append append) + (spec: 1 string<=? string<=?) + (spec: 1 char-ci=? char>=?) + (spec: 1 string-ci=? string-ci=?) + (spec: 1 close-input-port close-input-port) + (spec: 1 cddr cddr) + (spec: 1 eof-object? eof-object?) + (spec: 1 exact->inexact exact->inexact) + (spec: 1 current-input-port current-input-port) + (spec: 1 map map) + (spec: 1 make-polar make-polar) + (spec: 1 min min) (spec: 1 procedure? procedure?) - (spec: 1 write-char write-char) - (spec: 1 cadar cadar) (spec: 1 lcm lcm) - (spec: 1 > >) + (spec: 1 force force) + (spec: 1 remainder remainder) + (spec: 1 string=? string=?) (spec: 1 boolean? boolean?) - (spec: 1 rational? rational?) - (spec: 1 call-with-values call-with-values) - (spec: 1 cdadr cdadr) - (spec: 1 string-ci=? string-ci=?) - (spec: 1 atan atan) - (spec: 1 min min) - (spec: 1 symbol->string symbol->string) + (spec: 1 string-ci>=? string-ci>=?) + (spec: 1 char-upper-case? char-upper-case?) + (spec: 1 eq? eq?) + (spec: 1 dynamic-wind dynamic-wind) + (spec: 1 cddaar cddaar) + (spec: 1 car car) (spec: 1 cadddr cadddr) + (spec: 1 current-output-port current-output-port) + (spec: 1 inexact->exact inexact->exact) + (spec: 1 number? number?) + (spec: 1 string-append string-append) (spec: 1 round round) (spec: 1 vector vector) - (spec: 1 + +) - (spec: 1 max max) - (spec: 1 interaction-environment interaction-environment) - (spec: 1 cddaar cddaar) - (spec: 1 null-environment null-environment) - (spec: 1 string-ci>=? string-ci>=?) - (spec: 1 char-upper-case? char-upper-case?) - (spec: 1 cons cons) - (spec: 1 gcd gcd) - (spec: 1 input-port? input-port?) + (spec: 1 rational? rational?) + (spec: 1 quotient quotient) + (spec: 1 = =) + (spec: 1 imag-part imag-part) + (spec: 1 char-whitespace? char-whitespace?) + (spec: 1 memv memv) + (spec: 1 char-lower-case? char-lower-case?) + (spec: 1 cddar cddar) (spec: 1 cadr cadr) - (spec: 1 char-alphabetic? char-alphabetic?) - (spec: 1 vector->list vector->list) - (spec: 1 close-input-port close-input-port) - (spec: 1 string->number string->number) - (spec: 1 string=? string=?) + (spec: 1 cdaddr cdaddr) + (spec: 1 sin sin) + (spec: 1 number->string number->string) + (spec: 1 exp exp) + (spec: 1 string-civector list->vector) (spec: 1 transcript-on transcript-on) - (spec: 1 car car) - (spec: 1 null? null?) - (spec: 1 cddar cddar) - (spec: 1 char-lower-case? char-lower-case?) - (spec: 1 sqrt sqrt) - (spec: 1 char-whitespace? char-whitespace?) - (spec: 1 string<=? string<=?) - (spec: 1 current-input-port current-input-port) - (spec: 1 cdr cdr) - (spec: 1 list-tail list-tail) - (spec: 1 char>? char>?) - (spec: 1 symbol? symbol?) - (spec: 1 real-part real-part) - (spec: 1 char->integer char->integer) - (spec: 1 string->list string->list) - (spec: 1 - -) - (spec: 1 magnitude magnitude) - (spec: 1 string>? string>?) - (spec: 1 caaadr caaadr) - (spec: 1 real? real?) - (spec: 1 char-ci<=? char-ci<=?) - (spec: 1 string->symbol string->symbol) - (spec: 1 close-output-port close-output-port) - (spec: 1 caadar caadar) - (spec: 1 load load) - (spec: 1 vector-ref vector-ref) - (spec: 1 scheme-report-environment scheme-report-environment) - (spec: 1 display display) - (spec: 1 call-with-output-file call-with-output-file) - (spec: 1 char-ci=? char-ci=?) - (spec: 1 for-each for-each) - (spec: 1 member member) - (spec: 1 peek-char peek-char) - (spec: 1 string-ref string-ref) - (spec: 1 caadr caadr) - (spec: 1 cdaadr cdaadr) - (spec: 1 list list) - (spec: 1 values values) - (spec: 1 vector-set! vector-set!) - (spec: 1 assoc assoc) - (spec: 1 < <) - (spec: 1 make-vector make-vector) - (spec: 1 substring substring) - (spec: 1 zero? zero?) - (spec: 1 char-ci>? char-ci>?) - (spec: 1 string-set! string-set!) - (spec: 1 memq memq) - (spec: 1 Runtime Runtime) - (spec: 1 GambitRuntime GambitRuntime) - (spec: 1 RuntimeAliases RuntimeAliases) + (spec: 1 read read) + (spec: 1 cadadr cadadr) + (spec: 1 > >) + (spec: 1 string-length string-length) + (spec: 1 / /) + (spec: 1 odd? odd?) (spec: 1 GerbilRuntime GerbilRuntime) + (spec: 1 RuntimeAliases RuntimeAliases) + (spec: 1 GambitRuntime GambitRuntime) + (spec: 1 Runtime Runtime) (spec: 1 R5RSRuntime R5RSRuntime) (spec: 1 R7RSRuntime R7RSRuntime) (spec: 1 %%app-dotted %%app) diff --git a/src/bootstrap/gerbil/core/contract.scm b/src/bootstrap/gerbil/core/contract.scm index f083f5b7b3..fc8c487f26 100644 --- a/src/bootstrap/gerbil/core/contract.scm +++ b/src/bootstrap/gerbil/core/contract.scm @@ -12,6 +12,5 @@ (load-module "gerbil/core/contract~Using") (load-module "gerbil/core/contract~ContractRules") (load-module "gerbil/core/contract~Interface") - (load-module "gerbil/core/contract~TypedDefinitions") - (load-module "gerbil/core/mop")) + (load-module "gerbil/core/contract~TypedDefinitions")) (begin)) diff --git a/src/bootstrap/gerbil/core/contract.ssi b/src/bootstrap/gerbil/core/contract.ssi index cd503aa570..080631905a 100644 --- a/src/bootstrap/gerbil/core/contract.ssi +++ b/src/bootstrap/gerbil/core/contract.ssi @@ -10,656 +10,740 @@ namespace: gerbil/core/contract :gerbil/core/sugar (spec: (:gerbil/core/mop) - (0 MOP-3 0 MOP-3) (0 MOP-2 0 MOP-2) - (0 MOP-4 0 MOP-4) - (0 MOP-1 0 MOP-1) (0 MOP-5 0 MOP-5) - (0 defstruct-type 0 defstruct-type) + (0 MOP-1 0 MOP-1) + (0 MOP-3 0 MOP-3) + (0 MOP-4 0 MOP-4) (0 defclass-type 0 defclass-type) + (0 defstruct-type 0 defstruct-type) (1 module-type-id 1 module-type-id) (1 make-class-type-id 1 make-class-type-id) - (0 defstruct 0 defstruct) - (0 defclass 0 defclass) - (0 define-class 0 define-class) (0 @-set! 0 @-set!) (0 @ 0 @) - (0 define-struct 0 define-struct) + (0 defstruct 0 defstruct) (0 defmethod 0 defmethod) - (0 :object 0 :object) - (0 class 0 class) - (0 :keyword 0 :keyword) - (0 :ratnum 0 :ratnum) - (0 :condvar 0 :condvar) - (0 :continuation 0 :continuation) - (0 :promise 0 :promise) - (0 defsystem-class-info 0 defsystem-class-info) - (0 :u8vector 0 :u8vector) - (0 :sequence 0 :sequence) - (0 :mutex 0 :mutex) + (0 define-class 0 define-class) + (0 defclass 0 defclass) + (0 define-struct 0 define-struct) (0 :thread 0 :thread) - (0 :procedure 0 :procedure) - (0 :atom 0 :atom) + (0 :frame 0 :frame) (0 :null 0 :null) - (0 :directory-port 0 :directory-port) - (0 :s64vector 0 :s64vector) (0 :udp-port 0 :udp-port) - (0 :readtable 0 :readtable) + (0 :byte-port 0 :byte-port) + (0 :ratnum 0 :ratnum) (0 :socket-info 0 :socket-info) - (0 :real 0 :real) - (0 :class 0 :class) - (0 :string 0 :string) - (0 :event-queue-port 0 :event-queue-port) (0 :foreign 0 :foreign) - (0 :flonum 0 :flonum) - (0 :frame 0 :frame) - (0 :u8vector-port 0 :u8vector-port) - (0 :character-port 0 :character-port) - (0 :s16vector 0 :s16vector) - (0 :address-info 0 :address-info) - (0 :time 0 :time) - (0 :vector 0 :vector) - (0 :char 0 :char) - (0 :s32vector 0 :s32vector) - (0 :device-port 0 :device-port) + (0 :real 0 :real) + (0 :object 0 :object) + (0 :keyword 0 :keyword) + (0 :list 0 :list) + (0 :immediate 0 :immediate) + (0 :readtable 0 :readtable) (0 :hvector 0 :hvector) - (0 :string-port 0 :string-port) - (0 :byte-port 0 :byte-port) - (0 :number 0 :number) + (0 :writeenv 0 :writeenv) (0 :false 0 :false) - (0 :s8vector 0 :s8vector) - (0 :file-info 0 :file-info) + (0 :dssl-token 0 :dssl-token) + (0 :unbound 0 :unbound) + (0 :values 0 :values) + (0 :directory-port 0 :directory-port) + (0 :string-port 0 :string-port) + (0 :object-port 0 :object-port) + (0 :procedure 0 :procedure) + (0 :stflonum 0 :stflonum) + (0 :unbound2 0 :unbound2) + (0 :class 0 :class) + (0 :sequence 0 :sequence) + (0 :device-port 0 :device-port) + (0 :s16vector 0 :s16vector) + (0 defsystem-class-info 0 defsystem-class-info) (0 :t 0 :t) + (0 :condvar 0 :condvar) + (0 :cpxnum 0 :cpxnum) + (0 :s32vector 0 :s32vector) + (0 :builtin 0 :builtin) + (0 :u8vector 0 :u8vector) + (0 :vector 0 :vector) + (0 :f32vector 0 :f32vector) + (0 :character-port 0 :character-port) + (0 :weak 0 :weak) (0 :vm 0 :vm) - (0 :processor 0 :processor) - (0 :box 0 :box) - (0 :u16vector 0 :u16vector) - (0 :writeenv 0 :writeenv) - (0 :f64vector 0 :f64vector) - (0 :table 0 :table) - (0 :thread-group 0 :thread-group) - (0 :vector-port 0 :vector-port) - (0 :symbol 0 :symbol) - (0 :u32vector 0 :u32vector) - (0 :tcp-server-port 0 :tcp-server-port) - (0 :pair 0 :pair) - (0 :object-port 0 :object-port) - (0 :u64vector 0 :u64vector) - (0 :values 0 :values) - (0 :symbolic 0 :symbolic) - (0 :true 0 :true) + (0 :s64vector 0 :s64vector) + (0 :dssl-optional 0 :dssl-optional) + (0 :eof 0 :eof) (0 :readenv 0 :readenv) - (0 :cpxnum 0 :cpxnum) - (0 :integer 0 :integer) (0 :void 0 :void) + (0 :return 0 :return) + (0 :number 0 :number) (0 :fixnum 0 :fixnum) + (0 :table 0 :table) + (0 :string 0 :string) + (0 :subtyped 0 :subtyped) (0 :raw-device-port 0 :raw-device-port) (0 :port 0 :port) - (0 :f32vector 0 :f32vector) - (0 :weak 0 :weak) - (0 :eof 0 :eof) + (0 :mutex 0 :mutex) + (0 :dssl-rest 0 :dssl-rest) + (0 class 0 class) + (0 :u16vector 0 :u16vector) (0 :boolean 0 :boolean) + (0 :dssl-key 0 :dssl-key) + (0 :box 0 :box) + (0 :u64vector 0 :u64vector) + (0 :symbolic 0 :symbolic) (0 :bignum 0 :bignum) - (0 :immediate 0 :immediate) + (0 :address-info 0 :address-info) + (0 :tcp-server-port 0 :tcp-server-port) + (0 :s8vector 0 :s8vector) + (0 :file-info 0 :file-info) + (0 :processor 0 :processor) + (0 :continuation 0 :continuation) + (0 :u8vector-port 0 :u8vector-port) + (0 :atom 0 :atom) (0 :special 0 :special) - (0 :list 0 :list) - (1 defstruct-type 1 defstruct-type) + (0 :integer 0 :integer) + (0 :promise 0 :promise) + (0 :true 0 :true) + (0 :haflonum 0 :haflonum) + (0 :pair 0 :pair) + (0 :vector-port 0 :vector-port) + (0 :u32vector 0 :u32vector) + (0 :thread-group 0 :thread-group) + (0 :char 0 :char) + (0 :symbol 0 :symbol) + (0 :flonum 0 :flonum) + (0 :structure 0 :structure) + (0 :f64vector 0 :f64vector) + (0 :event-queue-port 0 :event-queue-port) (1 defclass-type 1 defclass-type) + (1 defstruct-type 1 defstruct-type) (2 module-type-id 2 module-type-id) (2 make-class-type-id 2 make-class-type-id) - (1 &!class-type-system?-set! 1 &!class-type-system?-set!) + (1 &!runtime-type-id 1 &!runtime-type-id) + (1 &!class-type-slot-types 1 &!class-type-slot-types) + (1 !class-type-slots 1 !class-type-slots) (1 !class-type-unchecked-mutators-set! 1 !class-type-unchecked-mutators-set!) - (1 !class-type-super 1 !class-type-super) - (1 !class-type-descriptor-set! 1 !class-type-descriptor-set!) - (1 !class-type-predicate 1 !class-type-predicate) - (1 - class-type-info::apply-macro-expander - 1 - class-type-info::apply-macro-expander) + (1 &!class-type-id-set! 1 &!class-type-id-set!) + (1 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) + (1 &!class-type-slot-contracts 1 &!class-type-slot-contracts) + (1 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) + (1 !class-type-struct?-set! 1 !class-type-struct?-set!) + (1 runtime-type-info? 1 runtime-type-info?) + (1 !class-type-slot-types-set! 1 !class-type-slot-types-set!) + (1 !runtime-type-id 1 !runtime-type-id) + (1 &!class-type-struct? 1 &!class-type-struct?) (1 &!class-type-constructor-method 1 &!class-type-constructor-method) - (1 !class-type-final? 1 !class-type-final?) - (1 &!class-type-ordered-slots 1 &!class-type-ordered-slots) - (1 !class-type-slot-types-set! 1 !class-type-slot-types-set!) - (1 !class-type-struct? 1 !class-type-struct?) - (1 !class-type-mutators 1 !class-type-mutators) - (1 !class-type-descriptor 1 !class-type-descriptor) - (1 &!class-type-slots-set! 1 &!class-type-slots-set!) - (1 &!class-type-mutators 1 &!class-type-mutators) - (1 &!class-type-metaclass 1 &!class-type-metaclass) - (1 &!class-type-slot-contracts 1 &!class-type-slot-contracts) - (1 &!class-type-system? 1 &!class-type-system?) - (1 !class-type-metaclass-set! 1 !class-type-metaclass-set!) - (1 - &!class-type-unchecked-mutators-set! - 1 - &!class-type-unchecked-mutators-set!) - (1 &!class-type-mutators-set! 1 &!class-type-mutators-set!) - (1 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) - (1 &!class-type-final?-set! 1 &!class-type-final?-set!) - (1 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + (1 !class-type-ordered-slots 1 !class-type-ordered-slots) + (1 class-type-info? 1 class-type-info?) (1 &!class-type-precedence-list-set! 1 &!class-type-precedence-list-set!) - (1 - &!class-type-unchecked-accessors - 1 - &!class-type-unchecked-accessors) - (1 !class-type-name-set! 1 !class-type-name-set!) - (1 !class-type-accessors 1 !class-type-accessors) - (1 &!class-type-final? 1 &!class-type-final?) - (1 &!class-type-slot-types 1 &!class-type-slot-types) - (1 - &!class-type-unchecked-mutators - 1 - &!class-type-unchecked-mutators) - (1 &!class-type-constructor 1 &!class-type-constructor) - (1 - !class-type-slot-contracts-set! - 1 - !class-type-slot-contracts-set!) - (1 &!class-type-descriptor 1 &!class-type-descriptor) - (1 &!class-type-struct? 1 &!class-type-struct?) + (1 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) + (1 !class-type-metaclass-set! 1 !class-type-metaclass-set!) + (1 !class-type-system? 1 !class-type-system?) (1 &!class-type-precedence-list 1 &!class-type-precedence-list) + (1 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) (1 &!class-type-name 1 &!class-type-name) - (1 !class-type-mutators-set! 1 !class-type-mutators-set!) - (1 !class-type-slot-defaults 1 !class-type-slot-defaults) - (1 !class-type-slots 1 !class-type-slots) - (1 !class-type-final?-set! 1 !class-type-final?-set!) (1 !class-type-slots-set! 1 !class-type-slots-set!) - (1 !class-type-slot-contracts 1 !class-type-slot-contracts) - (1 !class-type-constructor-method 1 !class-type-constructor-method) - (1 make-class-type-info 1 make-class-type-info) + (1 !class-type-descriptor 1 !class-type-descriptor) + (1 !runtime-type-id-set! 1 !runtime-type-id-set!) + (1 !runtime-type-name-set! 1 !runtime-type-name-set!) + (1 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) + (1 !class-type-metaclass 1 !class-type-metaclass) + (1 class-type-info::t 1 class-type-info::t) (1 - &!class-type-unchecked-accessors-set! + syntax-local-runtime-type-info? 1 - &!class-type-unchecked-accessors-set!) - (1 &!class-type-accessors 1 &!class-type-accessors) - (1 !class-type-super-set! 1 !class-type-super-set!) - (1 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) - (1 &!class-type-slot-defaults 1 &!class-type-slot-defaults) - (1 &!class-type-id 1 &!class-type-id) - (1 !class-type-constructor 1 !class-type-constructor) - (1 !class-type-ordered-slots 1 !class-type-ordered-slots) - (1 class-type-info? 1 class-type-info?) + syntax-local-runtime-type-info?) + (1 &!class-type-name-set! 1 &!class-type-name-set!) (1 - &!class-type-ordered-slots-set! + &!class-type-unchecked-accessors-set! 1 - &!class-type-ordered-slots-set!) + &!class-type-unchecked-accessors-set!) (1 - &!class-type-slot-contracts-set! + !class-type-slot-contracts-set! 1 - &!class-type-slot-contracts-set!) - (1 &!class-type-accessors-set! 1 &!class-type-accessors-set!) - (1 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) - (1 !class-type-id 1 !class-type-id) - (1 !class-type-slot-types 1 !class-type-slot-types) - (1 !class-type-metaclass 1 !class-type-metaclass) - (1 syntax-local-class-type-info? 1 syntax-local-class-type-info?) - (1 &!class-type-predicate 1 &!class-type-predicate) - (1 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) - (1 !class-type-predicate-set! 1 !class-type-predicate-set!) - (1 !class-type-constructor-set! 1 !class-type-constructor-set!) - (1 &!class-type-predicate-set! 1 &!class-type-predicate-set!) + !class-type-slot-contracts-set!) + (1 !class-type-descriptor-set! 1 !class-type-descriptor-set!) (1 - !class-type-unchecked-accessors + !class-type-unchecked-accessors-set! 1 - !class-type-unchecked-accessors) + !class-type-unchecked-accessors-set!) (1 !class-type-accessors-set! 1 !class-type-accessors-set!) - (1 !class-type-system? 1 !class-type-system?) - (1 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) - (1 &!class-type-constructor-set! 1 &!class-type-constructor-set!) - (1 &!class-type-super-set! 1 &!class-type-super-set!) - (1 &!class-type-super 1 &!class-type-super) - (1 !class-type-name 1 !class-type-name) (1 - !class-type-constructor-method-set! + &!class-type-unchecked-accessors 1 - !class-type-constructor-method-set!) + &!class-type-unchecked-accessors) + (1 &!class-type-predicate 1 &!class-type-predicate) + (1 !class-type-super 1 !class-type-super) (1 !class-type-precedence-list-set! 1 !class-type-precedence-list-set!) - (1 &!class-type-name-set! 1 &!class-type-name-set!) - (1 !class-type-struct?-set! 1 !class-type-struct?-set!) - (1 !class-type-id-set! 1 !class-type-id-set!) + (1 + !class-type-unchecked-accessors + 1 + !class-type-unchecked-accessors) + (1 !runtime-type-descriptor-set! 1 !runtime-type-descriptor-set!) + (1 !class-type-precedence-list 1 !class-type-precedence-list) + (1 !class-type-accessors 1 !class-type-accessors) + (1 &!class-type-slot-defaults 1 &!class-type-slot-defaults) (1 !class-type-system?-set! 1 !class-type-system?-set!) + (1 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + (1 !class-type-constructor-method 1 !class-type-constructor-method) + (1 !class-type-slot-defaults 1 !class-type-slot-defaults) + (1 !class-type-final?-set! 1 !class-type-final?-set!) + (1 !class-type-final? 1 !class-type-final?) (1 - !class-type-unchecked-accessors-set! + class-type-info::apply-macro-expander 1 - !class-type-unchecked-accessors-set!) + class-type-info::apply-macro-expander) + (1 &!runtime-type-name-set! 1 &!runtime-type-name-set!) + (1 &!class-type-descriptor 1 &!class-type-descriptor) + (1 + &!class-type-unchecked-mutators + 1 + &!class-type-unchecked-mutators) + (1 &!class-type-predicate-set! 1 &!class-type-predicate-set!) + (1 !class-type-slot-types 1 !class-type-slot-types) + (1 !runtime-type-name 1 !runtime-type-name) + (1 + &!class-type-unchecked-mutators-set! + 1 + &!class-type-unchecked-mutators-set!) + (1 !class-type-id-set! 1 !class-type-id-set!) + (1 runtime-type-info::t 1 runtime-type-info::t) + (1 + &!class-type-ordered-slots-set! + 1 + &!class-type-ordered-slots-set!) + (1 !class-type-struct? 1 !class-type-struct?) + (1 !class-type-predicate 1 !class-type-predicate) + (1 !class-type-constructor 1 !class-type-constructor) + (1 make-runtime-type-info 1 make-runtime-type-info) + (1 !class-type-predicate-set! 1 !class-type-predicate-set!) + (1 + !class-type-constructor-method-set! + 1 + !class-type-constructor-method-set!) + (1 &!class-type-accessors-set! 1 &!class-type-accessors-set!) + (1 &!class-type-system?-set! 1 &!class-type-system?-set!) + (1 &!class-type-final? 1 &!class-type-final?) + (1 syntax-local-class-type-info? 1 syntax-local-class-type-info?) + (1 &!class-type-metaclass 1 &!class-type-metaclass) + (1 &!runtime-type-id-set! 1 &!runtime-type-id-set!) + (1 &!runtime-type-name 1 &!runtime-type-name) + (1 &!class-type-constructor 1 &!class-type-constructor) + (1 !class-type-mutators-set! 1 !class-type-mutators-set!) + (1 !class-type-slot-contracts 1 !class-type-slot-contracts) + (1 !runtime-type-descriptor 1 !runtime-type-descriptor) + (1 &!class-type-constructor-set! 1 &!class-type-constructor-set!) + (1 &!class-type-super-set! 1 &!class-type-super-set!) + (1 &!runtime-type-descriptor-set! 1 &!runtime-type-descriptor-set!) + (1 &!class-type-super 1 &!class-type-super) + (1 !class-type-constructor-set! 1 !class-type-constructor-set!) + (1 !class-type-name 1 !class-type-name) + (1 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) + (1 &!class-type-final?-set! 1 &!class-type-final?-set!) + (1 &!class-type-slots 1 &!class-type-slots) + (1 &!class-type-id 1 &!class-type-id) + (1 &!class-type-mutators 1 &!class-type-mutators) + (1 &!class-type-accessors 1 &!class-type-accessors) + (1 &!class-type-ordered-slots 1 &!class-type-ordered-slots) + (1 make-class-type-info 1 make-class-type-info) + (1 &!runtime-type-descriptor 1 &!runtime-type-descriptor) + (1 &!class-type-slots-set! 1 &!class-type-slots-set!) + (1 + &!class-type-slot-contracts-set! + 1 + &!class-type-slot-contracts-set!) (1 &!class-type-slot-defaults-set! 1 &!class-type-slot-defaults-set!) - (1 class-type-info::t 1 class-type-info::t) + (1 &!class-type-mutators-set! 1 &!class-type-mutators-set!) (1 &!class-type-constructor-method-set! 1 &!class-type-constructor-method-set!) - (1 !class-type-precedence-list 1 !class-type-precedence-list) - (1 &!class-type-id-set! 1 &!class-type-id-set!) - (1 &!class-type-slots 1 &!class-type-slots) - (1 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) + (1 &!class-type-system? 1 &!class-type-system?) + (1 !class-type-id 1 !class-type-id) + (1 !class-type-mutators 1 !class-type-mutators) + (1 !class-type-super-set! 1 !class-type-super-set!) + (1 !class-type-name-set! 1 !class-type-name-set!) + (1 runtime-type-info 1 runtime-type-info) (1 class-type-info 1 class-type-info) - (1 defstruct 1 defstruct) - (1 defclass 1 defclass) - (1 define-class 1 define-class) (1 @-set! 1 @-set!) (1 @ 1 @) - (1 define-struct 1 define-struct) + (1 defstruct 1 defstruct) (1 defmethod 1 defmethod) - (1 :object 1 :object) - (1 class 1 class) - (1 :keyword 1 :keyword) - (1 :ratnum 1 :ratnum) - (1 :condvar 1 :condvar) - (1 :continuation 1 :continuation) - (1 :promise 1 :promise) - (1 defsystem-class-info 1 defsystem-class-info) - (1 :u8vector 1 :u8vector) - (1 :sequence 1 :sequence) - (1 :mutex 1 :mutex) + (1 define-class 1 define-class) + (1 defclass 1 defclass) + (1 define-struct 1 define-struct) (1 :thread 1 :thread) - (1 :procedure 1 :procedure) - (1 :atom 1 :atom) + (1 :frame 1 :frame) (1 :null 1 :null) - (1 :directory-port 1 :directory-port) - (1 :s64vector 1 :s64vector) (1 :udp-port 1 :udp-port) - (1 :readtable 1 :readtable) + (1 :byte-port 1 :byte-port) + (1 :ratnum 1 :ratnum) (1 :socket-info 1 :socket-info) - (1 :real 1 :real) - (1 :class 1 :class) - (1 :string 1 :string) - (1 :event-queue-port 1 :event-queue-port) (1 :foreign 1 :foreign) - (1 :flonum 1 :flonum) - (1 :frame 1 :frame) - (1 :u8vector-port 1 :u8vector-port) - (1 :character-port 1 :character-port) - (1 :s16vector 1 :s16vector) - (1 :address-info 1 :address-info) - (1 :time 1 :time) - (1 :vector 1 :vector) - (1 :char 1 :char) - (1 :s32vector 1 :s32vector) - (1 :device-port 1 :device-port) + (1 :real 1 :real) + (1 :object 1 :object) + (1 :keyword 1 :keyword) + (1 :list 1 :list) + (1 :immediate 1 :immediate) + (1 :readtable 1 :readtable) (1 :hvector 1 :hvector) - (1 :string-port 1 :string-port) - (1 :byte-port 1 :byte-port) - (1 :number 1 :number) + (1 :writeenv 1 :writeenv) (1 :false 1 :false) - (1 :s8vector 1 :s8vector) - (1 :file-info 1 :file-info) + (1 :dssl-token 1 :dssl-token) + (1 :unbound 1 :unbound) + (1 :values 1 :values) + (1 :directory-port 1 :directory-port) + (1 :string-port 1 :string-port) + (1 :object-port 1 :object-port) + (1 :procedure 1 :procedure) + (1 :stflonum 1 :stflonum) + (1 :unbound2 1 :unbound2) + (1 :class 1 :class) + (1 :sequence 1 :sequence) + (1 :device-port 1 :device-port) + (1 :s16vector 1 :s16vector) + (1 defsystem-class-info 1 defsystem-class-info) (1 :t 1 :t) + (1 :condvar 1 :condvar) + (1 :cpxnum 1 :cpxnum) + (1 :s32vector 1 :s32vector) + (1 :builtin 1 :builtin) + (1 :u8vector 1 :u8vector) + (1 :vector 1 :vector) + (1 :f32vector 1 :f32vector) + (1 :character-port 1 :character-port) + (1 :weak 1 :weak) (1 :vm 1 :vm) - (1 :processor 1 :processor) - (1 :box 1 :box) - (1 :u16vector 1 :u16vector) - (1 :writeenv 1 :writeenv) - (1 :f64vector 1 :f64vector) - (1 :table 1 :table) - (1 :thread-group 1 :thread-group) - (1 :vector-port 1 :vector-port) - (1 :symbol 1 :symbol) - (1 :u32vector 1 :u32vector) - (1 :tcp-server-port 1 :tcp-server-port) - (1 :pair 1 :pair) - (1 :object-port 1 :object-port) - (1 :u64vector 1 :u64vector) - (1 :values 1 :values) - (1 :symbolic 1 :symbolic) - (1 :true 1 :true) + (1 :s64vector 1 :s64vector) + (1 :dssl-optional 1 :dssl-optional) + (1 :eof 1 :eof) (1 :readenv 1 :readenv) - (1 :cpxnum 1 :cpxnum) - (1 :integer 1 :integer) (1 :void 1 :void) + (1 :return 1 :return) + (1 :number 1 :number) (1 :fixnum 1 :fixnum) + (1 :table 1 :table) + (1 :string 1 :string) + (1 :subtyped 1 :subtyped) (1 :raw-device-port 1 :raw-device-port) (1 :port 1 :port) - (1 :f32vector 1 :f32vector) - (1 :weak 1 :weak) - (1 :eof 1 :eof) + (1 :mutex 1 :mutex) + (1 :dssl-rest 1 :dssl-rest) + (1 class 1 class) + (1 :u16vector 1 :u16vector) (1 :boolean 1 :boolean) + (1 :dssl-key 1 :dssl-key) + (1 :box 1 :box) + (1 :u64vector 1 :u64vector) + (1 :symbolic 1 :symbolic) (1 :bignum 1 :bignum) - (1 :immediate 1 :immediate) + (1 :address-info 1 :address-info) + (1 :tcp-server-port 1 :tcp-server-port) + (1 :s8vector 1 :s8vector) + (1 :file-info 1 :file-info) + (1 :processor 1 :processor) + (1 :continuation 1 :continuation) + (1 :u8vector-port 1 :u8vector-port) + (1 :atom 1 :atom) (1 :special 1 :special) - (1 :list 1 :list)) + (1 :integer 1 :integer) + (1 :promise 1 :promise) + (1 :true 1 :true) + (1 :haflonum 1 :haflonum) + (1 :pair 1 :pair) + (1 :vector-port 1 :vector-port) + (1 :u32vector 1 :u32vector) + (1 :thread-group 1 :thread-group) + (1 :char 1 :char) + (1 :symbol 1 :symbol) + (1 :flonum 1 :flonum) + (1 :structure 1 :structure) + (1 :f64vector 1 :f64vector) + (1 :event-queue-port 1 :event-queue-port)) :gerbil/core/match :gerbil/core/more-sugar (phi: 1 :gerbil/core/runtime) (phi: 1 :gerbil/core/sugar) (spec: (:gerbil/core/mop) - (1 MOP-3 0 MOP-3) (1 MOP-2 0 MOP-2) - (1 MOP-4 0 MOP-4) - (1 MOP-1 0 MOP-1) (1 MOP-5 0 MOP-5) - (1 defstruct-type 0 defstruct-type) + (1 MOP-1 0 MOP-1) + (1 MOP-3 0 MOP-3) + (1 MOP-4 0 MOP-4) (1 defclass-type 0 defclass-type) + (1 defstruct-type 0 defstruct-type) (2 module-type-id 1 module-type-id) (2 make-class-type-id 1 make-class-type-id) - (1 defstruct 0 defstruct) - (1 defclass 0 defclass) - (1 define-class 0 define-class) (1 @-set! 0 @-set!) (1 @ 0 @) - (1 define-struct 0 define-struct) + (1 defstruct 0 defstruct) (1 defmethod 0 defmethod) - (1 :object 0 :object) - (1 class 0 class) - (1 :keyword 0 :keyword) - (1 :ratnum 0 :ratnum) - (1 :condvar 0 :condvar) - (1 :continuation 0 :continuation) - (1 :promise 0 :promise) - (1 defsystem-class-info 0 defsystem-class-info) - (1 :u8vector 0 :u8vector) - (1 :sequence 0 :sequence) - (1 :mutex 0 :mutex) + (1 define-class 0 define-class) + (1 defclass 0 defclass) + (1 define-struct 0 define-struct) (1 :thread 0 :thread) - (1 :procedure 0 :procedure) - (1 :atom 0 :atom) + (1 :frame 0 :frame) (1 :null 0 :null) - (1 :directory-port 0 :directory-port) - (1 :s64vector 0 :s64vector) (1 :udp-port 0 :udp-port) - (1 :readtable 0 :readtable) + (1 :byte-port 0 :byte-port) + (1 :ratnum 0 :ratnum) (1 :socket-info 0 :socket-info) - (1 :real 0 :real) - (1 :class 0 :class) - (1 :string 0 :string) - (1 :event-queue-port 0 :event-queue-port) (1 :foreign 0 :foreign) - (1 :flonum 0 :flonum) - (1 :frame 0 :frame) - (1 :u8vector-port 0 :u8vector-port) - (1 :character-port 0 :character-port) - (1 :s16vector 0 :s16vector) - (1 :address-info 0 :address-info) - (1 :time 0 :time) - (1 :vector 0 :vector) - (1 :char 0 :char) - (1 :s32vector 0 :s32vector) - (1 :device-port 0 :device-port) + (1 :real 0 :real) + (1 :object 0 :object) + (1 :keyword 0 :keyword) + (1 :list 0 :list) + (1 :immediate 0 :immediate) + (1 :readtable 0 :readtable) (1 :hvector 0 :hvector) - (1 :string-port 0 :string-port) - (1 :byte-port 0 :byte-port) - (1 :number 0 :number) + (1 :writeenv 0 :writeenv) (1 :false 0 :false) - (1 :s8vector 0 :s8vector) - (1 :file-info 0 :file-info) + (1 :dssl-token 0 :dssl-token) + (1 :unbound 0 :unbound) + (1 :values 0 :values) + (1 :directory-port 0 :directory-port) + (1 :string-port 0 :string-port) + (1 :object-port 0 :object-port) + (1 :procedure 0 :procedure) + (1 :stflonum 0 :stflonum) + (1 :unbound2 0 :unbound2) + (1 :class 0 :class) + (1 :sequence 0 :sequence) + (1 :device-port 0 :device-port) + (1 :s16vector 0 :s16vector) + (1 defsystem-class-info 0 defsystem-class-info) (1 :t 0 :t) + (1 :condvar 0 :condvar) + (1 :cpxnum 0 :cpxnum) + (1 :s32vector 0 :s32vector) + (1 :builtin 0 :builtin) + (1 :u8vector 0 :u8vector) + (1 :vector 0 :vector) + (1 :f32vector 0 :f32vector) + (1 :character-port 0 :character-port) + (1 :weak 0 :weak) (1 :vm 0 :vm) - (1 :processor 0 :processor) - (1 :box 0 :box) - (1 :u16vector 0 :u16vector) - (1 :writeenv 0 :writeenv) - (1 :f64vector 0 :f64vector) - (1 :table 0 :table) - (1 :thread-group 0 :thread-group) - (1 :vector-port 0 :vector-port) - (1 :symbol 0 :symbol) - (1 :u32vector 0 :u32vector) - (1 :tcp-server-port 0 :tcp-server-port) - (1 :pair 0 :pair) - (1 :object-port 0 :object-port) - (1 :u64vector 0 :u64vector) - (1 :values 0 :values) - (1 :symbolic 0 :symbolic) - (1 :true 0 :true) + (1 :s64vector 0 :s64vector) + (1 :dssl-optional 0 :dssl-optional) + (1 :eof 0 :eof) (1 :readenv 0 :readenv) - (1 :cpxnum 0 :cpxnum) - (1 :integer 0 :integer) (1 :void 0 :void) + (1 :return 0 :return) + (1 :number 0 :number) (1 :fixnum 0 :fixnum) + (1 :table 0 :table) + (1 :string 0 :string) + (1 :subtyped 0 :subtyped) (1 :raw-device-port 0 :raw-device-port) (1 :port 0 :port) - (1 :f32vector 0 :f32vector) - (1 :weak 0 :weak) - (1 :eof 0 :eof) + (1 :mutex 0 :mutex) + (1 :dssl-rest 0 :dssl-rest) + (1 class 0 class) + (1 :u16vector 0 :u16vector) (1 :boolean 0 :boolean) + (1 :dssl-key 0 :dssl-key) + (1 :box 0 :box) + (1 :u64vector 0 :u64vector) + (1 :symbolic 0 :symbolic) (1 :bignum 0 :bignum) - (1 :immediate 0 :immediate) + (1 :address-info 0 :address-info) + (1 :tcp-server-port 0 :tcp-server-port) + (1 :s8vector 0 :s8vector) + (1 :file-info 0 :file-info) + (1 :processor 0 :processor) + (1 :continuation 0 :continuation) + (1 :u8vector-port 0 :u8vector-port) + (1 :atom 0 :atom) (1 :special 0 :special) - (1 :list 0 :list) - (2 defstruct-type 1 defstruct-type) + (1 :integer 0 :integer) + (1 :promise 0 :promise) + (1 :true 0 :true) + (1 :haflonum 0 :haflonum) + (1 :pair 0 :pair) + (1 :vector-port 0 :vector-port) + (1 :u32vector 0 :u32vector) + (1 :thread-group 0 :thread-group) + (1 :char 0 :char) + (1 :symbol 0 :symbol) + (1 :flonum 0 :flonum) + (1 :structure 0 :structure) + (1 :f64vector 0 :f64vector) + (1 :event-queue-port 0 :event-queue-port) (2 defclass-type 1 defclass-type) + (2 defstruct-type 1 defstruct-type) (3 module-type-id 2 module-type-id) (3 make-class-type-id 2 make-class-type-id) - (2 &!class-type-system?-set! 1 &!class-type-system?-set!) + (2 &!runtime-type-id 1 &!runtime-type-id) + (2 &!class-type-slot-types 1 &!class-type-slot-types) + (2 !class-type-slots 1 !class-type-slots) (2 !class-type-unchecked-mutators-set! 1 !class-type-unchecked-mutators-set!) - (2 !class-type-super 1 !class-type-super) - (2 !class-type-descriptor-set! 1 !class-type-descriptor-set!) - (2 !class-type-predicate 1 !class-type-predicate) - (2 - class-type-info::apply-macro-expander - 1 - class-type-info::apply-macro-expander) + (2 &!class-type-id-set! 1 &!class-type-id-set!) + (2 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) + (2 &!class-type-slot-contracts 1 &!class-type-slot-contracts) + (2 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) + (2 !class-type-struct?-set! 1 !class-type-struct?-set!) + (2 runtime-type-info? 1 runtime-type-info?) + (2 !class-type-slot-types-set! 1 !class-type-slot-types-set!) + (2 !runtime-type-id 1 !runtime-type-id) + (2 &!class-type-struct? 1 &!class-type-struct?) (2 &!class-type-constructor-method 1 &!class-type-constructor-method) - (2 !class-type-final? 1 !class-type-final?) - (2 &!class-type-ordered-slots 1 &!class-type-ordered-slots) - (2 !class-type-slot-types-set! 1 !class-type-slot-types-set!) - (2 !class-type-struct? 1 !class-type-struct?) - (2 !class-type-mutators 1 !class-type-mutators) - (2 !class-type-descriptor 1 !class-type-descriptor) - (2 &!class-type-slots-set! 1 &!class-type-slots-set!) - (2 &!class-type-mutators 1 &!class-type-mutators) - (2 &!class-type-metaclass 1 &!class-type-metaclass) - (2 &!class-type-slot-contracts 1 &!class-type-slot-contracts) - (2 &!class-type-system? 1 &!class-type-system?) + (2 !class-type-ordered-slots 1 !class-type-ordered-slots) + (2 class-type-info? 1 class-type-info?) + (2 + &!class-type-precedence-list-set! + 1 + &!class-type-precedence-list-set!) + (2 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) (2 !class-type-metaclass-set! 1 !class-type-metaclass-set!) + (2 !class-type-system? 1 !class-type-system?) + (2 &!class-type-precedence-list 1 &!class-type-precedence-list) + (2 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) + (2 &!class-type-name 1 &!class-type-name) + (2 !class-type-slots-set! 1 !class-type-slots-set!) + (2 !class-type-descriptor 1 !class-type-descriptor) + (2 !runtime-type-id-set! 1 !runtime-type-id-set!) + (2 !runtime-type-name-set! 1 !runtime-type-name-set!) + (2 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) + (2 !class-type-metaclass 1 !class-type-metaclass) + (2 class-type-info::t 1 class-type-info::t) (2 - &!class-type-unchecked-mutators-set! + syntax-local-runtime-type-info? 1 - &!class-type-unchecked-mutators-set!) - (2 &!class-type-mutators-set! 1 &!class-type-mutators-set!) - (2 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) - (2 &!class-type-final?-set! 1 &!class-type-final?-set!) - (2 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + syntax-local-runtime-type-info?) + (2 &!class-type-name-set! 1 &!class-type-name-set!) (2 - &!class-type-precedence-list-set! + &!class-type-unchecked-accessors-set! 1 - &!class-type-precedence-list-set!) + &!class-type-unchecked-accessors-set!) + (2 + !class-type-slot-contracts-set! + 1 + !class-type-slot-contracts-set!) + (2 !class-type-descriptor-set! 1 !class-type-descriptor-set!) + (2 + !class-type-unchecked-accessors-set! + 1 + !class-type-unchecked-accessors-set!) + (2 !class-type-accessors-set! 1 !class-type-accessors-set!) (2 &!class-type-unchecked-accessors 1 &!class-type-unchecked-accessors) - (2 !class-type-name-set! 1 !class-type-name-set!) + (2 &!class-type-predicate 1 &!class-type-predicate) + (2 !class-type-super 1 !class-type-super) + (2 + !class-type-precedence-list-set! + 1 + !class-type-precedence-list-set!) + (2 + !class-type-unchecked-accessors + 1 + !class-type-unchecked-accessors) + (2 !runtime-type-descriptor-set! 1 !runtime-type-descriptor-set!) + (2 !class-type-precedence-list 1 !class-type-precedence-list) (2 !class-type-accessors 1 !class-type-accessors) - (2 &!class-type-final? 1 &!class-type-final?) - (2 &!class-type-slot-types 1 &!class-type-slot-types) + (2 &!class-type-slot-defaults 1 &!class-type-slot-defaults) + (2 !class-type-system?-set! 1 !class-type-system?-set!) + (2 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + (2 !class-type-constructor-method 1 !class-type-constructor-method) + (2 !class-type-slot-defaults 1 !class-type-slot-defaults) + (2 !class-type-final?-set! 1 !class-type-final?-set!) + (2 !class-type-final? 1 !class-type-final?) + (2 + class-type-info::apply-macro-expander + 1 + class-type-info::apply-macro-expander) + (2 &!runtime-type-name-set! 1 &!runtime-type-name-set!) + (2 &!class-type-descriptor 1 &!class-type-descriptor) (2 &!class-type-unchecked-mutators 1 &!class-type-unchecked-mutators) - (2 &!class-type-constructor 1 &!class-type-constructor) - (2 - !class-type-slot-contracts-set! - 1 - !class-type-slot-contracts-set!) - (2 &!class-type-descriptor 1 &!class-type-descriptor) - (2 &!class-type-struct? 1 &!class-type-struct?) - (2 &!class-type-precedence-list 1 &!class-type-precedence-list) - (2 &!class-type-name 1 &!class-type-name) - (2 !class-type-mutators-set! 1 !class-type-mutators-set!) - (2 !class-type-slot-defaults 1 !class-type-slot-defaults) - (2 !class-type-slots 1 !class-type-slots) - (2 !class-type-final?-set! 1 !class-type-final?-set!) - (2 !class-type-slots-set! 1 !class-type-slots-set!) - (2 !class-type-slot-contracts 1 !class-type-slot-contracts) - (2 !class-type-constructor-method 1 !class-type-constructor-method) - (2 make-class-type-info 1 make-class-type-info) + (2 &!class-type-predicate-set! 1 &!class-type-predicate-set!) + (2 !class-type-slot-types 1 !class-type-slot-types) + (2 !runtime-type-name 1 !runtime-type-name) (2 - &!class-type-unchecked-accessors-set! + &!class-type-unchecked-mutators-set! 1 - &!class-type-unchecked-accessors-set!) - (2 &!class-type-accessors 1 &!class-type-accessors) - (2 !class-type-super-set! 1 !class-type-super-set!) - (2 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) - (2 &!class-type-slot-defaults 1 &!class-type-slot-defaults) - (2 &!class-type-id 1 &!class-type-id) - (2 !class-type-constructor 1 !class-type-constructor) - (2 !class-type-ordered-slots 1 !class-type-ordered-slots) - (2 class-type-info? 1 class-type-info?) + &!class-type-unchecked-mutators-set!) + (2 !class-type-id-set! 1 !class-type-id-set!) + (2 runtime-type-info::t 1 runtime-type-info::t) (2 &!class-type-ordered-slots-set! 1 &!class-type-ordered-slots-set!) + (2 !class-type-struct? 1 !class-type-struct?) + (2 !class-type-predicate 1 !class-type-predicate) + (2 !class-type-constructor 1 !class-type-constructor) + (2 make-runtime-type-info 1 make-runtime-type-info) + (2 !class-type-predicate-set! 1 !class-type-predicate-set!) (2 - &!class-type-slot-contracts-set! + !class-type-constructor-method-set! 1 - &!class-type-slot-contracts-set!) + !class-type-constructor-method-set!) (2 &!class-type-accessors-set! 1 &!class-type-accessors-set!) - (2 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) - (2 !class-type-id 1 !class-type-id) - (2 !class-type-slot-types 1 !class-type-slot-types) - (2 !class-type-metaclass 1 !class-type-metaclass) + (2 &!class-type-system?-set! 1 &!class-type-system?-set!) + (2 &!class-type-final? 1 &!class-type-final?) (2 syntax-local-class-type-info? 1 syntax-local-class-type-info?) - (2 &!class-type-predicate 1 &!class-type-predicate) - (2 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) - (2 !class-type-predicate-set! 1 !class-type-predicate-set!) - (2 !class-type-constructor-set! 1 !class-type-constructor-set!) - (2 &!class-type-predicate-set! 1 &!class-type-predicate-set!) - (2 - !class-type-unchecked-accessors - 1 - !class-type-unchecked-accessors) - (2 !class-type-accessors-set! 1 !class-type-accessors-set!) - (2 !class-type-system? 1 !class-type-system?) - (2 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) + (2 &!class-type-metaclass 1 &!class-type-metaclass) + (2 &!runtime-type-id-set! 1 &!runtime-type-id-set!) + (2 &!runtime-type-name 1 &!runtime-type-name) + (2 &!class-type-constructor 1 &!class-type-constructor) + (2 !class-type-mutators-set! 1 !class-type-mutators-set!) + (2 !class-type-slot-contracts 1 !class-type-slot-contracts) + (2 !runtime-type-descriptor 1 !runtime-type-descriptor) (2 &!class-type-constructor-set! 1 &!class-type-constructor-set!) (2 &!class-type-super-set! 1 &!class-type-super-set!) + (2 &!runtime-type-descriptor-set! 1 &!runtime-type-descriptor-set!) (2 &!class-type-super 1 &!class-type-super) + (2 !class-type-constructor-set! 1 !class-type-constructor-set!) (2 !class-type-name 1 !class-type-name) + (2 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) + (2 &!class-type-final?-set! 1 &!class-type-final?-set!) + (2 &!class-type-slots 1 &!class-type-slots) + (2 &!class-type-id 1 &!class-type-id) + (2 &!class-type-mutators 1 &!class-type-mutators) + (2 &!class-type-accessors 1 &!class-type-accessors) + (2 &!class-type-ordered-slots 1 &!class-type-ordered-slots) + (2 make-class-type-info 1 make-class-type-info) + (2 &!runtime-type-descriptor 1 &!runtime-type-descriptor) + (2 &!class-type-slots-set! 1 &!class-type-slots-set!) (2 - !class-type-constructor-method-set! - 1 - !class-type-constructor-method-set!) - (2 - !class-type-precedence-list-set! - 1 - !class-type-precedence-list-set!) - (2 &!class-type-name-set! 1 &!class-type-name-set!) - (2 !class-type-struct?-set! 1 !class-type-struct?-set!) - (2 !class-type-id-set! 1 !class-type-id-set!) - (2 !class-type-system?-set! 1 !class-type-system?-set!) - (2 - !class-type-unchecked-accessors-set! + &!class-type-slot-contracts-set! 1 - !class-type-unchecked-accessors-set!) + &!class-type-slot-contracts-set!) (2 &!class-type-slot-defaults-set! 1 &!class-type-slot-defaults-set!) - (2 class-type-info::t 1 class-type-info::t) + (2 &!class-type-mutators-set! 1 &!class-type-mutators-set!) (2 &!class-type-constructor-method-set! 1 &!class-type-constructor-method-set!) - (2 !class-type-precedence-list 1 !class-type-precedence-list) - (2 &!class-type-id-set! 1 &!class-type-id-set!) - (2 &!class-type-slots 1 &!class-type-slots) - (2 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) + (2 &!class-type-system? 1 &!class-type-system?) + (2 !class-type-id 1 !class-type-id) + (2 !class-type-mutators 1 !class-type-mutators) + (2 !class-type-super-set! 1 !class-type-super-set!) + (2 !class-type-name-set! 1 !class-type-name-set!) + (2 runtime-type-info 1 runtime-type-info) (2 class-type-info 1 class-type-info) - (2 defstruct 1 defstruct) - (2 defclass 1 defclass) - (2 define-class 1 define-class) (2 @-set! 1 @-set!) (2 @ 1 @) - (2 define-struct 1 define-struct) + (2 defstruct 1 defstruct) (2 defmethod 1 defmethod) - (2 :object 1 :object) - (2 class 1 class) - (2 :keyword 1 :keyword) - (2 :ratnum 1 :ratnum) - (2 :condvar 1 :condvar) - (2 :continuation 1 :continuation) - (2 :promise 1 :promise) - (2 defsystem-class-info 1 defsystem-class-info) - (2 :u8vector 1 :u8vector) - (2 :sequence 1 :sequence) - (2 :mutex 1 :mutex) + (2 define-class 1 define-class) + (2 defclass 1 defclass) + (2 define-struct 1 define-struct) (2 :thread 1 :thread) - (2 :procedure 1 :procedure) - (2 :atom 1 :atom) + (2 :frame 1 :frame) (2 :null 1 :null) - (2 :directory-port 1 :directory-port) - (2 :s64vector 1 :s64vector) (2 :udp-port 1 :udp-port) - (2 :readtable 1 :readtable) + (2 :byte-port 1 :byte-port) + (2 :ratnum 1 :ratnum) (2 :socket-info 1 :socket-info) - (2 :real 1 :real) - (2 :class 1 :class) - (2 :string 1 :string) - (2 :event-queue-port 1 :event-queue-port) (2 :foreign 1 :foreign) - (2 :flonum 1 :flonum) - (2 :frame 1 :frame) - (2 :u8vector-port 1 :u8vector-port) - (2 :character-port 1 :character-port) - (2 :s16vector 1 :s16vector) - (2 :address-info 1 :address-info) - (2 :time 1 :time) - (2 :vector 1 :vector) - (2 :char 1 :char) - (2 :s32vector 1 :s32vector) - (2 :device-port 1 :device-port) + (2 :real 1 :real) + (2 :object 1 :object) + (2 :keyword 1 :keyword) + (2 :list 1 :list) + (2 :immediate 1 :immediate) + (2 :readtable 1 :readtable) (2 :hvector 1 :hvector) - (2 :string-port 1 :string-port) - (2 :byte-port 1 :byte-port) - (2 :number 1 :number) + (2 :writeenv 1 :writeenv) (2 :false 1 :false) - (2 :s8vector 1 :s8vector) - (2 :file-info 1 :file-info) + (2 :dssl-token 1 :dssl-token) + (2 :unbound 1 :unbound) + (2 :values 1 :values) + (2 :directory-port 1 :directory-port) + (2 :string-port 1 :string-port) + (2 :object-port 1 :object-port) + (2 :procedure 1 :procedure) + (2 :stflonum 1 :stflonum) + (2 :unbound2 1 :unbound2) + (2 :class 1 :class) + (2 :sequence 1 :sequence) + (2 :device-port 1 :device-port) + (2 :s16vector 1 :s16vector) + (2 defsystem-class-info 1 defsystem-class-info) (2 :t 1 :t) + (2 :condvar 1 :condvar) + (2 :cpxnum 1 :cpxnum) + (2 :s32vector 1 :s32vector) + (2 :builtin 1 :builtin) + (2 :u8vector 1 :u8vector) + (2 :vector 1 :vector) + (2 :f32vector 1 :f32vector) + (2 :character-port 1 :character-port) + (2 :weak 1 :weak) (2 :vm 1 :vm) - (2 :processor 1 :processor) - (2 :box 1 :box) - (2 :u16vector 1 :u16vector) - (2 :writeenv 1 :writeenv) - (2 :f64vector 1 :f64vector) - (2 :table 1 :table) - (2 :thread-group 1 :thread-group) - (2 :vector-port 1 :vector-port) - (2 :symbol 1 :symbol) - (2 :u32vector 1 :u32vector) - (2 :tcp-server-port 1 :tcp-server-port) - (2 :pair 1 :pair) - (2 :object-port 1 :object-port) - (2 :u64vector 1 :u64vector) - (2 :values 1 :values) - (2 :symbolic 1 :symbolic) - (2 :true 1 :true) + (2 :s64vector 1 :s64vector) + (2 :dssl-optional 1 :dssl-optional) + (2 :eof 1 :eof) (2 :readenv 1 :readenv) - (2 :cpxnum 1 :cpxnum) - (2 :integer 1 :integer) (2 :void 1 :void) + (2 :return 1 :return) + (2 :number 1 :number) (2 :fixnum 1 :fixnum) + (2 :table 1 :table) + (2 :string 1 :string) + (2 :subtyped 1 :subtyped) (2 :raw-device-port 1 :raw-device-port) (2 :port 1 :port) - (2 :f32vector 1 :f32vector) - (2 :weak 1 :weak) - (2 :eof 1 :eof) + (2 :mutex 1 :mutex) + (2 :dssl-rest 1 :dssl-rest) + (2 class 1 class) + (2 :u16vector 1 :u16vector) (2 :boolean 1 :boolean) + (2 :dssl-key 1 :dssl-key) + (2 :box 1 :box) + (2 :u64vector 1 :u64vector) + (2 :symbolic 1 :symbolic) (2 :bignum 1 :bignum) - (2 :immediate 1 :immediate) + (2 :address-info 1 :address-info) + (2 :tcp-server-port 1 :tcp-server-port) + (2 :s8vector 1 :s8vector) + (2 :file-info 1 :file-info) + (2 :processor 1 :processor) + (2 :continuation 1 :continuation) + (2 :u8vector-port 1 :u8vector-port) + (2 :atom 1 :atom) (2 :special 1 :special) - (2 :list 1 :list)) + (2 :integer 1 :integer) + (2 :promise 1 :promise) + (2 :true 1 :true) + (2 :haflonum 1 :haflonum) + (2 :pair 1 :pair) + (2 :vector-port 1 :vector-port) + (2 :u32vector 1 :u32vector) + (2 :thread-group 1 :thread-group) + (2 :char 1 :char) + (2 :symbol 1 :symbol) + (2 :flonum 1 :flonum) + (2 :structure 1 :structure) + (2 :f64vector 1 :f64vector) + (2 :event-queue-port 1 :event-queue-port)) (phi: 1 :gerbil/core/match) (phi: 1 :gerbil/core/more-sugar) (phi: 1 :gerbil/core/expander) @@ -682,10 +766,9 @@ namespace: gerbil/core/contract InterfaceInfo (%#begin (%#import :gerbil/core/expander - (spec: - (:gerbil/core/mop) - (0 @method 0 @method) - (1 @method 1 @method))) + :gerbil/core/mop + (in: :gerbil/core/mop MOP-2) + (in: :gerbil/core/mop MOP-3)) (%#export #t) (%#define-runtime interface-info::t @@ -696,9 +779,6 @@ namespace: gerbil/core/contract (%#define-runtime make-interface-info gerbil/core/contract~InterfaceInfo#make-interface-info) - (%#define-runtime - interface-info-name - gerbil/core/contract~InterfaceInfo#interface-info-name) (%#define-runtime interface-info-namespace gerbil/core/contract~InterfaceInfo#interface-info-namespace) @@ -714,9 +794,6 @@ namespace: gerbil/core/contract (%#define-runtime interface-info-interface-descriptor gerbil/core/contract~InterfaceInfo#interface-info-interface-descriptor) - (%#define-runtime - interface-info-instance-type - gerbil/core/contract~InterfaceInfo#interface-info-instance-type) (%#define-runtime interface-info-instance-constructor gerbil/core/contract~InterfaceInfo#interface-info-instance-constructor) @@ -736,8 +813,14 @@ namespace: gerbil/core/contract interface-info-unchecked-implementation-methods gerbil/core/contract~InterfaceInfo#interface-info-unchecked-implementation-methods) (%#define-runtime - interface-info-name-set! - gerbil/core/contract~InterfaceInfo#interface-info-name-set!) + interface-info-id + gerbil/core/contract~InterfaceInfo#interface-info-id) + (%#define-runtime + interface-info-name + gerbil/core/contract~InterfaceInfo#interface-info-name) + (%#define-runtime + interface-info-type-descriptor + gerbil/core/contract~InterfaceInfo#interface-info-type-descriptor) (%#define-runtime interface-info-namespace-set! gerbil/core/contract~InterfaceInfo#interface-info-namespace-set!) @@ -753,9 +836,6 @@ namespace: gerbil/core/contract (%#define-runtime interface-info-interface-descriptor-set! gerbil/core/contract~InterfaceInfo#interface-info-interface-descriptor-set!) - (%#define-runtime - interface-info-instance-type-set! - gerbil/core/contract~InterfaceInfo#interface-info-instance-type-set!) (%#define-runtime interface-info-instance-constructor-set! gerbil/core/contract~InterfaceInfo#interface-info-instance-constructor-set!) @@ -775,8 +855,14 @@ namespace: gerbil/core/contract interface-info-unchecked-implementation-methods-set! gerbil/core/contract~InterfaceInfo#interface-info-unchecked-implementation-methods-set!) (%#define-runtime - &interface-info-name - gerbil/core/contract~InterfaceInfo#&interface-info-name) + interface-info-id-set! + gerbil/core/contract~InterfaceInfo#interface-info-id-set!) + (%#define-runtime + interface-info-name-set! + gerbil/core/contract~InterfaceInfo#interface-info-name-set!) + (%#define-runtime + interface-info-type-descriptor-set! + gerbil/core/contract~InterfaceInfo#interface-info-type-descriptor-set!) (%#define-runtime &interface-info-namespace gerbil/core/contract~InterfaceInfo#&interface-info-namespace) @@ -792,9 +878,6 @@ namespace: gerbil/core/contract (%#define-runtime &interface-info-interface-descriptor gerbil/core/contract~InterfaceInfo#&interface-info-interface-descriptor) - (%#define-runtime - &interface-info-instance-type - gerbil/core/contract~InterfaceInfo#&interface-info-instance-type) (%#define-runtime &interface-info-instance-constructor gerbil/core/contract~InterfaceInfo#&interface-info-instance-constructor) @@ -814,8 +897,14 @@ namespace: gerbil/core/contract &interface-info-unchecked-implementation-methods gerbil/core/contract~InterfaceInfo#&interface-info-unchecked-implementation-methods) (%#define-runtime - &interface-info-name-set! - gerbil/core/contract~InterfaceInfo#&interface-info-name-set!) + &interface-info-id + gerbil/core/contract~InterfaceInfo#&interface-info-id) + (%#define-runtime + &interface-info-name + gerbil/core/contract~InterfaceInfo#&interface-info-name) + (%#define-runtime + &interface-info-type-descriptor + gerbil/core/contract~InterfaceInfo#&interface-info-type-descriptor) (%#define-runtime &interface-info-namespace-set! gerbil/core/contract~InterfaceInfo#&interface-info-namespace-set!) @@ -831,9 +920,6 @@ namespace: gerbil/core/contract (%#define-runtime &interface-info-interface-descriptor-set! gerbil/core/contract~InterfaceInfo#&interface-info-interface-descriptor-set!) - (%#define-runtime - &interface-info-instance-type-set! - gerbil/core/contract~InterfaceInfo#&interface-info-instance-type-set!) (%#define-runtime &interface-info-instance-constructor-set! gerbil/core/contract~InterfaceInfo#&interface-info-instance-constructor-set!) @@ -852,6 +938,15 @@ namespace: gerbil/core/contract (%#define-runtime &interface-info-unchecked-implementation-methods-set! gerbil/core/contract~InterfaceInfo#&interface-info-unchecked-implementation-methods-set!) + (%#define-runtime + &interface-info-id-set! + gerbil/core/contract~InterfaceInfo#&interface-info-id-set!) + (%#define-runtime + &interface-info-name-set! + gerbil/core/contract~InterfaceInfo#&interface-info-name-set!) + (%#define-runtime + &interface-info-type-descriptor-set! + gerbil/core/contract~InterfaceInfo#&interface-info-type-descriptor-set!) (%#begin (%#begin-syntax (%#call (%#ref load-module) (%#quote "gerbil/core/contract~1"))) @@ -944,6 +1039,9 @@ namespace: gerbil/core/contract |gerbil/core/contract~TypeCast[:0:]#:|)) (%#define-syntax :? |gerbil/core/contract~TypeCast[:0:]#:?|) (%#define-syntax :- |gerbil/core/contract~TypeCast[:0:]#:-|) + (%#define-syntax + do-with-lock + |gerbil/core/contract~TypeCast[:0:]#do-with-lock|) (%#define-syntax :~ |gerbil/core/contract~TypeCast[:0:]#:~|) (%#define-syntax ::- @@ -1113,7 +1211,10 @@ namespace: gerbil/core/contract |gerbil/core/contract~ContractRules[:0:]#in-range-inclusive?|) (%#define-syntax list-of? - |gerbil/core/contract~ContractRules[:0:]#list-of?|))) + |gerbil/core/contract~ContractRules[:0:]#list-of?|) + (%#define-syntax + one-of + |gerbil/core/contract~ContractRules[:0:]#one-of|))) (%#module ClassMeta (%#begin (%#export #t) diff --git a/src/bootstrap/gerbil/core/contract.ssxi.ss b/src/bootstrap/gerbil/core/contract.ssxi.ss index 269c7f288d..040d523798 100644 --- a/src/bootstrap/gerbil/core/contract.ssxi.ss +++ b/src/bootstrap/gerbil/core/contract.ssxi.ss @@ -5,32 +5,32 @@ package: gerbil/core (declare-class gerbil/core/contract~InterfaceInfo#interface-info::t (@class gerbil/core/contract~InterfaceInfo#interface-info::t - () - (object::t t::t) - (name namespace - interface-mixin - interface-methods - interface-precedence-list - interface-descriptor - instance-type - instance-constructor - instance-try-constructor - instance-predicate - instance-satisfies-predicate - implementation-methods - unchecked-implementation-methods) - (name namespace - interface-mixin - interface-methods - interface-precedence-list - interface-descriptor - instance-type - instance-constructor - instance-try-constructor - instance-predicate - instance-satisfies-predicate - implementation-methods - unchecked-implementation-methods) + (gerbil/core/mop~MOP-2#runtime-type-info::t) + (gerbil/core/mop~MOP-2#runtime-type-info::t object::t t::t) + (namespace + interface-mixin + interface-methods + interface-precedence-list + interface-descriptor + instance-constructor + instance-try-constructor + instance-predicate + instance-satisfies-predicate + implementation-methods + unchecked-implementation-methods) + (id name + type-descriptor + namespace + interface-mixin + interface-methods + interface-precedence-list + interface-descriptor + instance-constructor + instance-try-constructor + instance-predicate + instance-satisfies-predicate + implementation-methods + unchecked-implementation-methods) #f #f #f @@ -50,9 +50,6 @@ package: gerbil/core (declare-type gerbil/core/contract~InterfaceInfo#make-interface-info (@constructor gerbil/core/contract~InterfaceInfo#interface-info::t)) - (declare-type - gerbil/core/contract~InterfaceInfo#interface-info-name - (@accessor gerbil/core/contract~InterfaceInfo#interface-info::t name #t)) (declare-type gerbil/core/contract~InterfaceInfo#interface-info-namespace (@accessor @@ -83,12 +80,6 @@ package: gerbil/core gerbil/core/contract~InterfaceInfo#interface-info::t interface-descriptor #t)) - (declare-type - gerbil/core/contract~InterfaceInfo#interface-info-instance-type - (@accessor - gerbil/core/contract~InterfaceInfo#interface-info::t - instance-type - #t)) (declare-type gerbil/core/contract~InterfaceInfo#interface-info-instance-constructor (@accessor @@ -126,8 +117,17 @@ package: gerbil/core unchecked-implementation-methods #t)) (declare-type - gerbil/core/contract~InterfaceInfo#interface-info-name-set! - (@mutator gerbil/core/contract~InterfaceInfo#interface-info::t name #t)) + gerbil/core/contract~InterfaceInfo#interface-info-id + (@accessor gerbil/core/contract~InterfaceInfo#interface-info::t id #t)) + (declare-type + gerbil/core/contract~InterfaceInfo#interface-info-name + (@accessor gerbil/core/contract~InterfaceInfo#interface-info::t name #t)) + (declare-type + gerbil/core/contract~InterfaceInfo#interface-info-type-descriptor + (@accessor + gerbil/core/contract~InterfaceInfo#interface-info::t + type-descriptor + #t)) (declare-type gerbil/core/contract~InterfaceInfo#interface-info-namespace-set! (@mutator @@ -158,12 +158,6 @@ package: gerbil/core gerbil/core/contract~InterfaceInfo#interface-info::t interface-descriptor #t)) - (declare-type - gerbil/core/contract~InterfaceInfo#interface-info-instance-type-set! - (@mutator - gerbil/core/contract~InterfaceInfo#interface-info::t - instance-type - #t)) (declare-type gerbil/core/contract~InterfaceInfo#interface-info-instance-constructor-set! (@mutator @@ -201,8 +195,17 @@ package: gerbil/core unchecked-implementation-methods #t)) (declare-type - gerbil/core/contract~InterfaceInfo#&interface-info-name - (@accessor gerbil/core/contract~InterfaceInfo#interface-info::t name #f)) + gerbil/core/contract~InterfaceInfo#interface-info-id-set! + (@mutator gerbil/core/contract~InterfaceInfo#interface-info::t id #t)) + (declare-type + gerbil/core/contract~InterfaceInfo#interface-info-name-set! + (@mutator gerbil/core/contract~InterfaceInfo#interface-info::t name #t)) + (declare-type + gerbil/core/contract~InterfaceInfo#interface-info-type-descriptor-set! + (@mutator + gerbil/core/contract~InterfaceInfo#interface-info::t + type-descriptor + #t)) (declare-type gerbil/core/contract~InterfaceInfo#&interface-info-namespace (@accessor @@ -233,12 +236,6 @@ package: gerbil/core gerbil/core/contract~InterfaceInfo#interface-info::t interface-descriptor #f)) - (declare-type - gerbil/core/contract~InterfaceInfo#&interface-info-instance-type - (@accessor - gerbil/core/contract~InterfaceInfo#interface-info::t - instance-type - #f)) (declare-type gerbil/core/contract~InterfaceInfo#&interface-info-instance-constructor (@accessor @@ -276,8 +273,17 @@ package: gerbil/core unchecked-implementation-methods #f)) (declare-type - gerbil/core/contract~InterfaceInfo#&interface-info-name-set! - (@mutator gerbil/core/contract~InterfaceInfo#interface-info::t name #f)) + gerbil/core/contract~InterfaceInfo#&interface-info-id + (@accessor gerbil/core/contract~InterfaceInfo#interface-info::t id #f)) + (declare-type + gerbil/core/contract~InterfaceInfo#&interface-info-name + (@accessor gerbil/core/contract~InterfaceInfo#interface-info::t name #f)) + (declare-type + gerbil/core/contract~InterfaceInfo#&interface-info-type-descriptor + (@accessor + gerbil/core/contract~InterfaceInfo#interface-info::t + type-descriptor + #f)) (declare-type gerbil/core/contract~InterfaceInfo#&interface-info-namespace-set! (@mutator @@ -308,12 +314,6 @@ package: gerbil/core gerbil/core/contract~InterfaceInfo#interface-info::t interface-descriptor #f)) - (declare-type - gerbil/core/contract~InterfaceInfo#&interface-info-instance-type-set! - (@mutator - gerbil/core/contract~InterfaceInfo#interface-info::t - instance-type - #f)) (declare-type gerbil/core/contract~InterfaceInfo#&interface-info-instance-constructor-set! (@mutator @@ -350,6 +350,18 @@ package: gerbil/core gerbil/core/contract~InterfaceInfo#interface-info::t unchecked-implementation-methods #f)) + (declare-type + gerbil/core/contract~InterfaceInfo#&interface-info-id-set! + (@mutator gerbil/core/contract~InterfaceInfo#interface-info::t id #f)) + (declare-type + gerbil/core/contract~InterfaceInfo#&interface-info-name-set! + (@mutator gerbil/core/contract~InterfaceInfo#interface-info::t name #f)) + (declare-type + gerbil/core/contract~InterfaceInfo#&interface-info-type-descriptor-set! + (@mutator + gerbil/core/contract~InterfaceInfo#interface-info::t + type-descriptor + #f)) (declare-type gerbil/core/contract~InterfaceInfo#interface-info::apply-macro-expander (optimizer-resolve-class diff --git a/src/bootstrap/gerbil/core/contract~1.scm b/src/bootstrap/gerbil/core/contract~1.scm index 5fd433770e..8e171ea6dd 100644 --- a/src/bootstrap/gerbil/core/contract~1.scm +++ b/src/bootstrap/gerbil/core/contract~1.scm @@ -1,392 +1,427 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~InterfaceInfo[1]#_g91733_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92586_| (##structure gx#syntax-quote::t - 'interface-info::t + 'runtime-type-info #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91735_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92588_| (##structure gx#syntax-quote::t - 'make-interface-info + 'interface-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91737_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92590_| (##structure gx#syntax-quote::t - 'interface-info? + 'make-interface-info #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91739_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92592_| (##structure gx#syntax-quote::t - 'interface-info-name + 'interface-info? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91740_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92594_| (##structure gx#syntax-quote::t 'interface-info-namespace #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91741_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92595_| (##structure gx#syntax-quote::t 'interface-info-interface-mixin #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91742_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92596_| (##structure gx#syntax-quote::t 'interface-info-interface-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91743_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92597_| (##structure gx#syntax-quote::t 'interface-info-interface-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91744_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92598_| (##structure gx#syntax-quote::t 'interface-info-interface-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91745_| - (##structure - gx#syntax-quote::t - 'interface-info-instance-type - #f - (gx#current-expander-context) - '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91746_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92599_| (##structure gx#syntax-quote::t 'interface-info-instance-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91747_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92600_| (##structure gx#syntax-quote::t 'interface-info-instance-try-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91748_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92601_| (##structure gx#syntax-quote::t 'interface-info-instance-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91749_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92602_| (##structure gx#syntax-quote::t 'interface-info-instance-satisfies-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91750_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92603_| (##structure gx#syntax-quote::t 'interface-info-implementation-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91751_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92604_| (##structure gx#syntax-quote::t 'interface-info-unchecked-implementation-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91753_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92605_| (##structure gx#syntax-quote::t - 'interface-info-name-set! + 'interface-info-id #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91754_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92606_| (##structure gx#syntax-quote::t - 'interface-info-namespace-set! + 'interface-info-name #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91755_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92607_| (##structure gx#syntax-quote::t - 'interface-info-interface-mixin-set! + 'interface-info-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91756_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92609_| (##structure gx#syntax-quote::t - 'interface-info-interface-methods-set! + 'interface-info-namespace-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91757_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92610_| (##structure gx#syntax-quote::t - 'interface-info-interface-precedence-list-set! + 'interface-info-interface-mixin-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91758_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92611_| (##structure gx#syntax-quote::t - 'interface-info-interface-descriptor-set! + 'interface-info-interface-methods-set! + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/contract~InterfaceInfo[1]#_g92612_| + (##structure + gx#syntax-quote::t + 'interface-info-interface-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91759_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92613_| (##structure gx#syntax-quote::t - 'interface-info-instance-type-set! + 'interface-info-interface-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91760_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92614_| (##structure gx#syntax-quote::t 'interface-info-instance-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91761_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92615_| (##structure gx#syntax-quote::t 'interface-info-instance-try-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91762_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92616_| (##structure gx#syntax-quote::t 'interface-info-instance-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91763_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92617_| (##structure gx#syntax-quote::t 'interface-info-instance-satisfies-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91764_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92618_| (##structure gx#syntax-quote::t 'interface-info-implementation-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91765_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92619_| (##structure gx#syntax-quote::t 'interface-info-unchecked-implementation-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91767_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92620_| (##structure gx#syntax-quote::t - '&interface-info-name + 'interface-info-id-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91768_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92621_| (##structure gx#syntax-quote::t - '&interface-info-namespace + 'interface-info-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91769_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92622_| (##structure gx#syntax-quote::t - '&interface-info-interface-mixin + 'interface-info-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91770_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92624_| (##structure gx#syntax-quote::t - '&interface-info-interface-methods + '&interface-info-namespace #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91771_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92625_| (##structure gx#syntax-quote::t - '&interface-info-interface-precedence-list + '&interface-info-interface-mixin #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91772_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92626_| (##structure gx#syntax-quote::t - '&interface-info-interface-descriptor + '&interface-info-interface-methods + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/contract~InterfaceInfo[1]#_g92627_| + (##structure + gx#syntax-quote::t + '&interface-info-interface-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91773_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92628_| (##structure gx#syntax-quote::t - '&interface-info-instance-type + '&interface-info-interface-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91774_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92629_| (##structure gx#syntax-quote::t '&interface-info-instance-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91775_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92630_| (##structure gx#syntax-quote::t '&interface-info-instance-try-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91776_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92631_| (##structure gx#syntax-quote::t '&interface-info-instance-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91777_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92632_| (##structure gx#syntax-quote::t '&interface-info-instance-satisfies-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91778_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92633_| (##structure gx#syntax-quote::t '&interface-info-implementation-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91779_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92634_| (##structure gx#syntax-quote::t '&interface-info-unchecked-implementation-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91781_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92635_| (##structure gx#syntax-quote::t - '&interface-info-name-set! + '&interface-info-id #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91782_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92636_| (##structure gx#syntax-quote::t - '&interface-info-namespace-set! + '&interface-info-name #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91783_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92637_| (##structure gx#syntax-quote::t - '&interface-info-interface-mixin-set! + '&interface-info-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91784_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92639_| (##structure gx#syntax-quote::t - '&interface-info-interface-methods-set! + '&interface-info-namespace-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91785_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92640_| (##structure gx#syntax-quote::t - '&interface-info-interface-precedence-list-set! + '&interface-info-interface-mixin-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91786_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92641_| (##structure gx#syntax-quote::t - '&interface-info-interface-descriptor-set! + '&interface-info-interface-methods-set! + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/contract~InterfaceInfo[1]#_g92642_| + (##structure + gx#syntax-quote::t + '&interface-info-interface-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91787_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92643_| (##structure gx#syntax-quote::t - '&interface-info-instance-type-set! + '&interface-info-interface-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91788_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92644_| (##structure gx#syntax-quote::t '&interface-info-instance-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91789_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92645_| (##structure gx#syntax-quote::t '&interface-info-instance-try-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91790_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92646_| (##structure gx#syntax-quote::t '&interface-info-instance-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91791_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92647_| (##structure gx#syntax-quote::t '&interface-info-instance-satisfies-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91792_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92648_| (##structure gx#syntax-quote::t '&interface-info-implementation-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g91793_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g92649_| (##structure gx#syntax-quote::t '&interface-info-unchecked-implementation-methods-set! #f (gx#current-expander-context) '())) + (define |gerbil/core/contract~InterfaceInfo[1]#_g92650_| + (##structure + gx#syntax-quote::t + '&interface-info-id-set! + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/contract~InterfaceInfo[1]#_g92651_| + (##structure + gx#syntax-quote::t + '&interface-info-name-set! + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/contract~InterfaceInfo[1]#_g92652_| + (##structure + gx#syntax-quote::t + '&interface-info-type-descriptor-set! + #f + (gx#current-expander-context) + '())) (define |gerbil/core/contract~InterfaceInfo[:0:]#interface-info| - (let ((__obj91640 + (let ((__obj92493 (let () (declare (not safe)) (##structure @@ -415,183 +450,191 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj91640 + __obj92493 'gerbil/core/contract~InterfaceInfo#interface-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj91640 'interface-info '2 '#f '#f)) + (##unchecked-structure-set! __obj92493 'interface-info '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj91640 - '(name namespace - interface-mixin - interface-methods - interface-precedence-list - interface-descriptor - instance-type - instance-constructor - instance-try-constructor - instance-predicate - instance-satisfies-predicate - implementation-methods - unchecked-implementation-methods) - '4 + __obj92493 + '(namespace + interface-mixin + interface-methods + interface-precedence-list + interface-descriptor + instance-constructor + instance-try-constructor + instance-predicate + instance-satisfies-predicate + implementation-methods + unchecked-implementation-methods) + '5 '#f '#f)) - (let () + (let ((__tmp92585 + (cons |gerbil/core/contract~InterfaceInfo[1]#_g92586_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj91640 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj92493 __tmp92585 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj91640 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj92493 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj91640 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj92493 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj91640 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj92493 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj91640 '#f '11 '#f '#f)) - (let ((__tmp91732 |gerbil/core/contract~InterfaceInfo[1]#_g91733_|)) + (##unchecked-structure-set! __obj92493 '#f '12 '#f '#f)) + (let ((__tmp92587 |gerbil/core/contract~InterfaceInfo[1]#_g92588_|)) (declare (not safe)) - (##unchecked-structure-set! __obj91640 __tmp91732 '12 '#f '#f)) - (let ((__tmp91734 |gerbil/core/contract~InterfaceInfo[1]#_g91735_|)) + (##unchecked-structure-set! __obj92493 __tmp92587 '3 '#f '#f)) + (let ((__tmp92589 |gerbil/core/contract~InterfaceInfo[1]#_g92590_|)) (declare (not safe)) - (##unchecked-structure-set! __obj91640 __tmp91734 '13 '#f '#f)) - (let ((__tmp91736 |gerbil/core/contract~InterfaceInfo[1]#_g91737_|)) + (##unchecked-structure-set! __obj92493 __tmp92589 '13 '#f '#f)) + (let ((__tmp92591 |gerbil/core/contract~InterfaceInfo[1]#_g92592_|)) (declare (not safe)) - (##unchecked-structure-set! __obj91640 __tmp91736 '14 '#f '#f)) - (let ((__tmp91738 - (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g91739_|) - (cons (cons 'namespace - |gerbil/core/contract~InterfaceInfo[1]#_g91740_|) - (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g91741_|) - (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g91742_|) - (cons (cons 'interface-precedence-list - |gerbil/core/contract~InterfaceInfo[1]#_g91743_|) - (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g91744_|) - (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g91745_|) - (cons (cons 'instance-constructor + (##unchecked-structure-set! __obj92493 __tmp92591 '14 '#f '#f)) + (let ((__tmp92593 + (cons (cons 'namespace + |gerbil/core/contract~InterfaceInfo[1]#_g92594_|) + (cons (cons 'interface-mixin + |gerbil/core/contract~InterfaceInfo[1]#_g92595_|) + (cons (cons 'interface-methods + |gerbil/core/contract~InterfaceInfo[1]#_g92596_|) + (cons (cons 'interface-precedence-list + |gerbil/core/contract~InterfaceInfo[1]#_g92597_|) + (cons (cons 'interface-descriptor + |gerbil/core/contract~InterfaceInfo[1]#_g92598_|) + (cons (cons 'instance-constructor + |gerbil/core/contract~InterfaceInfo[1]#_g92599_|) + (cons (cons 'instance-try-constructor + |gerbil/core/contract~InterfaceInfo[1]#_g92600_|) + (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g91746_|) - (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g91747_|) - (cons (cons 'instance-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g91748_|) - (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g91749_|) - (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g91750_|) - (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g91751_|) - '()))))))))))))))) + |gerbil/core/contract~InterfaceInfo[1]#_g92601_|) + (cons (cons 'instance-satisfies-predicate + |gerbil/core/contract~InterfaceInfo[1]#_g92602_|) + (cons (cons 'implementation-methods + |gerbil/core/contract~InterfaceInfo[1]#_g92603_|) + (cons (cons 'unchecked-implementation-methods + |gerbil/core/contract~InterfaceInfo[1]#_g92604_|) + (cons (cons 'id + |gerbil/core/contract~InterfaceInfo[1]#_g92605_|) + (cons (cons 'name + |gerbil/core/contract~InterfaceInfo[1]#_g92606_|) + (cons (cons 'type-descriptor + |gerbil/core/contract~InterfaceInfo[1]#_g92607_|) + '())))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj91640 __tmp91738 '15 '#f '#f)) - (let ((__tmp91752 - (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g91753_|) - (cons (cons 'namespace - |gerbil/core/contract~InterfaceInfo[1]#_g91754_|) - (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g91755_|) - (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g91756_|) - (cons (cons 'interface-precedence-list - |gerbil/core/contract~InterfaceInfo[1]#_g91757_|) - (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g91758_|) - (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g91759_|) - (cons (cons 'instance-constructor + (##unchecked-structure-set! __obj92493 __tmp92593 '15 '#f '#f)) + (let ((__tmp92608 + (cons (cons 'namespace + |gerbil/core/contract~InterfaceInfo[1]#_g92609_|) + (cons (cons 'interface-mixin + |gerbil/core/contract~InterfaceInfo[1]#_g92610_|) + (cons (cons 'interface-methods + |gerbil/core/contract~InterfaceInfo[1]#_g92611_|) + (cons (cons 'interface-precedence-list + |gerbil/core/contract~InterfaceInfo[1]#_g92612_|) + (cons (cons 'interface-descriptor + |gerbil/core/contract~InterfaceInfo[1]#_g92613_|) + (cons (cons 'instance-constructor + |gerbil/core/contract~InterfaceInfo[1]#_g92614_|) + (cons (cons 'instance-try-constructor + |gerbil/core/contract~InterfaceInfo[1]#_g92615_|) + (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g91760_|) - (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g91761_|) - (cons (cons 'instance-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g91762_|) - (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g91763_|) - (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g91764_|) - (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g91765_|) - '()))))))))))))))) + |gerbil/core/contract~InterfaceInfo[1]#_g92616_|) + (cons (cons 'instance-satisfies-predicate + |gerbil/core/contract~InterfaceInfo[1]#_g92617_|) + (cons (cons 'implementation-methods + |gerbil/core/contract~InterfaceInfo[1]#_g92618_|) + (cons (cons 'unchecked-implementation-methods + |gerbil/core/contract~InterfaceInfo[1]#_g92619_|) + (cons (cons 'id + |gerbil/core/contract~InterfaceInfo[1]#_g92620_|) + (cons (cons 'name + |gerbil/core/contract~InterfaceInfo[1]#_g92621_|) + (cons (cons 'type-descriptor + |gerbil/core/contract~InterfaceInfo[1]#_g92622_|) + '())))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj91640 __tmp91752 '16 '#f '#f)) - (let ((__tmp91766 - (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g91767_|) - (cons (cons 'namespace - |gerbil/core/contract~InterfaceInfo[1]#_g91768_|) - (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g91769_|) - (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g91770_|) - (cons (cons 'interface-precedence-list - |gerbil/core/contract~InterfaceInfo[1]#_g91771_|) - (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g91772_|) - (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g91773_|) - (cons (cons 'instance-constructor + (##unchecked-structure-set! __obj92493 __tmp92608 '16 '#f '#f)) + (let ((__tmp92623 + (cons (cons 'namespace + |gerbil/core/contract~InterfaceInfo[1]#_g92624_|) + (cons (cons 'interface-mixin + |gerbil/core/contract~InterfaceInfo[1]#_g92625_|) + (cons (cons 'interface-methods + |gerbil/core/contract~InterfaceInfo[1]#_g92626_|) + (cons (cons 'interface-precedence-list + |gerbil/core/contract~InterfaceInfo[1]#_g92627_|) + (cons (cons 'interface-descriptor + |gerbil/core/contract~InterfaceInfo[1]#_g92628_|) + (cons (cons 'instance-constructor + |gerbil/core/contract~InterfaceInfo[1]#_g92629_|) + (cons (cons 'instance-try-constructor + |gerbil/core/contract~InterfaceInfo[1]#_g92630_|) + (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g91774_|) - (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g91775_|) - (cons (cons 'instance-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g91776_|) - (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g91777_|) - (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g91778_|) - (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g91779_|) - '()))))))))))))))) + |gerbil/core/contract~InterfaceInfo[1]#_g92631_|) + (cons (cons 'instance-satisfies-predicate + |gerbil/core/contract~InterfaceInfo[1]#_g92632_|) + (cons (cons 'implementation-methods + |gerbil/core/contract~InterfaceInfo[1]#_g92633_|) + (cons (cons 'unchecked-implementation-methods + |gerbil/core/contract~InterfaceInfo[1]#_g92634_|) + (cons (cons 'id + |gerbil/core/contract~InterfaceInfo[1]#_g92635_|) + (cons (cons 'name + |gerbil/core/contract~InterfaceInfo[1]#_g92636_|) + (cons (cons 'type-descriptor + |gerbil/core/contract~InterfaceInfo[1]#_g92637_|) + '())))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj91640 __tmp91766 '17 '#f '#f)) - (let ((__tmp91780 - (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g91781_|) - (cons (cons 'namespace - |gerbil/core/contract~InterfaceInfo[1]#_g91782_|) - (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g91783_|) - (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g91784_|) - (cons (cons 'interface-precedence-list - |gerbil/core/contract~InterfaceInfo[1]#_g91785_|) - (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g91786_|) - (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g91787_|) - (cons (cons 'instance-constructor + (##unchecked-structure-set! __obj92493 __tmp92623 '17 '#f '#f)) + (let ((__tmp92638 + (cons (cons 'namespace + |gerbil/core/contract~InterfaceInfo[1]#_g92639_|) + (cons (cons 'interface-mixin + |gerbil/core/contract~InterfaceInfo[1]#_g92640_|) + (cons (cons 'interface-methods + |gerbil/core/contract~InterfaceInfo[1]#_g92641_|) + (cons (cons 'interface-precedence-list + |gerbil/core/contract~InterfaceInfo[1]#_g92642_|) + (cons (cons 'interface-descriptor + |gerbil/core/contract~InterfaceInfo[1]#_g92643_|) + (cons (cons 'instance-constructor + |gerbil/core/contract~InterfaceInfo[1]#_g92644_|) + (cons (cons 'instance-try-constructor + |gerbil/core/contract~InterfaceInfo[1]#_g92645_|) + (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g91788_|) - (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g91789_|) - (cons (cons 'instance-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g91790_|) - (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g91791_|) - (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g91792_|) - (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g91793_|) - '()))))))))))))))) + |gerbil/core/contract~InterfaceInfo[1]#_g92646_|) + (cons (cons 'instance-satisfies-predicate + |gerbil/core/contract~InterfaceInfo[1]#_g92647_|) + (cons (cons 'implementation-methods + |gerbil/core/contract~InterfaceInfo[1]#_g92648_|) + (cons (cons 'unchecked-implementation-methods + |gerbil/core/contract~InterfaceInfo[1]#_g92649_|) + (cons (cons 'id + |gerbil/core/contract~InterfaceInfo[1]#_g92650_|) + (cons (cons 'name + |gerbil/core/contract~InterfaceInfo[1]#_g92651_|) + (cons (cons 'type-descriptor + |gerbil/core/contract~InterfaceInfo[1]#_g92652_|) + '())))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj91640 __tmp91780 '18 '#f '#f)) - __obj91640))) + (##unchecked-structure-set! __obj92493 __tmp92638 '18 '#f '#f)) + __obj92493))) diff --git a/src/bootstrap/gerbil/core/contract~2.scm b/src/bootstrap/gerbil/core/contract~2.scm index ac2774d894..e12ddb9e8b 100644 --- a/src/bootstrap/gerbil/core/contract~2.scm +++ b/src/bootstrap/gerbil/core/contract~2.scm @@ -12,10 +12,10 @@ (make-class-predicate |gerbil/core/contract~TypeReference[1]#type-reference::t|)) (define |gerbil/core/contract~TypeReference[1]#make-type-reference| - (lambda _%$args48595%_ + (lambda _%$args49262%_ (apply make-instance |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%$args48595%_))) + _%$args49262%_))) (define |gerbil/core/contract~TypeReference[1]#type-reference-identifier| (make-class-slot-accessor |gerbil/core/contract~TypeReference[1]#type-reference::t| @@ -33,232 +33,233 @@ |gerbil/core/contract~TypeReference[1]#type-reference::t| 'identifier)) (define |gerbil/core/contract~TypeReference[1]#type-identifier?| - (lambda (_%id48576%_) - (if (gx#identifier? _%id48576%_) - (let ((_%t4857848580%_ (gx#syntax-local-value _%id48576%_ false))) - (if _%t4857848580%_ - (let* ((_%t48584%_ _%t4857848580%_) - (_%$e48587%_ + (lambda (_%id49244%_) + (if (gx#identifier? _%id49244%_) + (let ((_%t4924649248%_ (gx#syntax-local-value _%id49244%_ false))) + (if _%t4924649248%_ + (let* ((_%t49251%_ _%t4924649248%_) + (_%$e49254%_ (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t48584%_)))) - (if _%$e48587%_ - _%$e48587%_ - (let ((_%$e48591%_ + _%t49251%_)))) + (if _%$e49254%_ + _%$e49254%_ + (let ((_%$e49258%_ (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t48584%_)))) - (if _%$e48591%_ - _%$e48591%_ + _%t49251%_)))) + (if _%$e49258%_ + _%$e49258%_ (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%t48584%_)))))) + _%t49251%_)))))) '#f)) '#f))) (define |gerbil/core/contract~TypeReference[1]#resolve-type| - (lambda (_%stx48556%_ _%id48558%_) - (let _%loop48560%_ ((_%t48563%_ - (gx#syntax-local-value _%id48558%_ false))) + (lambda (_%stx49224%_ _%id49226%_) + (let _%loop49228%_ ((_%t49231%_ + (gx#syntax-local-value _%id49226%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t48563%_)) - _%t48563%_ + _%t49231%_)) + _%t49231%_ (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t48563%_)) - _%t48563%_ + _%t49231%_)) + _%t49231%_ (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%t48563%_)) - (_%loop48560%_ + _%t49231%_)) + (_%loop49228%_ (gx#syntax-local-value - (let ((__obj91648 _%t48563%_)) + (let ((__obj92500 _%t49231%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91648 + __obj92500 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91648 + __obj92500 '1 '#f '#f)) - (unchecked-slot-ref __obj91648 'identifier))) + (unchecked-slot-ref __obj92500 'identifier))) false)) - (if (not _%t48563%_) + (if (not _%t49231%_) (gx#raise-syntax-error '#f '"unresolved type" - _%stx48556%_ - _%id48558%_) + _%stx49224%_ + _%id49226%_) (gx#raise-syntax-error '#f '"unexpected type; expected class, interface or type reference" - _%stx48556%_ - _%id48558%_ - _%t48563%_)))))))) + _%stx49224%_ + _%id49226%_ + _%t49231%_)))))))) (define |gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - (lambda (_%stx48532%_ _%id48534%_) - (let _%loop48536%_ ((_%id48539%_ _%id48534%_) - (_%t48541%_ - (gx#syntax-local-value _%id48534%_ false))) + (lambda (_%stx49200%_ _%id49202%_) + (let _%loop49204%_ ((_%id49207%_ _%id49202%_) + (_%t49209%_ + (gx#syntax-local-value _%id49202%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t48541%_)) - _%id48539%_ + _%t49209%_)) + _%id49207%_ (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t48541%_)) - _%id48539%_ + _%t49209%_)) + _%id49207%_ (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%t48541%_)) - (let ((_%id48549%_ - (let ((__obj91649 _%t48541%_)) + _%t49209%_)) + (let ((_%id49217%_ + (let ((__obj92501 _%t49209%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91649 + __obj92501 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91649 + __obj92501 '1 '#f '#f)) (unchecked-slot-ref - __obj91649 + __obj92501 'identifier))))) - (_%loop48536%_ - _%id48549%_ - (gx#syntax-local-value _%id48549%_ false))) - (if (not _%t48541%_) + (_%loop49204%_ + _%id49217%_ + (gx#syntax-local-value _%id49217%_ false))) + (if (not _%t49209%_) (gx#raise-syntax-error '#f '"unresolved type" - _%stx48532%_ - _%id48539%_) + _%stx49200%_ + _%id49207%_) (gx#raise-syntax-error '#f '"unexpected type; expected class, interface or type reference" - _%stx48532%_ - _%id48539%_ - _%t48541%_)))))))) + _%stx49200%_ + _%id49207%_ + _%t49209%_)))))))) (define |gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - (lambda (_%stx48519%_ _%id48521%_) - (let ((_%t48523%_ + (lambda (_%stx49187%_ _%id49189%_) + (let ((_%t49191%_ (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx48519%_ - _%id48521%_))) + _%stx49187%_ + _%id49189%_))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t48523%_)) - (let ((__obj91651 _%t48523%_)) + _%t49191%_)) + (let ((__obj92503 _%t49191%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91651 + __obj92503 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91651 '12 '#f '#f)) - (unchecked-slot-ref __obj91651 'type-descriptor))) + (##unchecked-structure-ref __obj92503 '3 '#f '#f)) + (unchecked-slot-ref __obj92503 'type-descriptor))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t48523%_)) - (let ((__obj91650 _%t48523%_)) + _%t49191%_)) + (let ((__obj92502 _%t49191%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91650 - 'gerbil/core/contract~InterfaceInfo#interface-info::t)) + __obj92502 + 'gerbil.core#runtime-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91650 '7 '#f '#f)) - (unchecked-slot-ref __obj91650 'instance-type))) + (##unchecked-structure-ref __obj92502 '3 '#f '#f)) + (unchecked-slot-ref __obj92502 'type-descriptor))) (gx#raise-syntax-error '#f '"unexpected type; expected class, interface or type reference" - _%stx48519%_ - _%id48521%_ - _%t48523%_)))))) + _%stx49187%_ + _%id49189%_ + _%t49191%_)))))) (define |gerbil/core/contract~TypeReference[:0:]#deftype| - (lambda (_%$stx48599%_) - (let* ((_%g4860348621%_ - (lambda (_%g4860448617%_) + (lambda (_%$stx49266%_) + (let* ((_%g4927049288%_ + (lambda (_%g4927149284%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4860448617%_))) - (_%g4860248676%_ - (lambda (_%g4860448625%_) - (if (gx#stx-pair? _%g4860448625%_) - (let ((_%e4860748628%_ (gx#syntax-e _%g4860448625%_))) - (let ((_%hd4860848632%_ + _%g4927149284%_))) + (_%g4926949343%_ + (lambda (_%g4927149292%_) + (if (gx#stx-pair? _%g4927149292%_) + (let ((_%e4927449295%_ (gx#syntax-e _%g4927149292%_))) + (let ((_%hd4927549299%_ (let () (declare (not safe)) - (##car _%e4860748628%_))) - (_%tl4860948635%_ + (##car _%e4927449295%_))) + (_%tl4927649302%_ (let () (declare (not safe)) - (##cdr _%e4860748628%_)))) - (if (gx#stx-pair? _%tl4860948635%_) - (let ((_%e4861048638%_ - (gx#syntax-e _%tl4860948635%_))) - (let ((_%hd4861148642%_ + (##cdr _%e4927449295%_)))) + (if (gx#stx-pair? _%tl4927649302%_) + (let ((_%e4927749305%_ + (gx#syntax-e _%tl4927649302%_))) + (let ((_%hd4927849309%_ (let () (declare (not safe)) - (##car _%e4861048638%_))) - (_%tl4861248645%_ + (##car _%e4927749305%_))) + (_%tl4927949312%_ (let () (declare (not safe)) - (##cdr _%e4861048638%_)))) - (if (gx#stx-pair? _%tl4861248645%_) - (let ((_%e4861348648%_ - (gx#syntax-e _%tl4861248645%_))) - (let ((_%hd4861448652%_ + (##cdr _%e4927749305%_)))) + (if (gx#stx-pair? _%tl4927949312%_) + (let ((_%e4928049315%_ + (gx#syntax-e _%tl4927949312%_))) + (let ((_%hd4928149319%_ (let () (declare (not safe)) - (##car _%e4861348648%_))) - (_%tl4861548655%_ + (##car _%e4928049315%_))) + (_%tl4928249322%_ (let () (declare (not safe)) - (##cdr _%e4861348648%_)))) - (if (gx#stx-null? _%tl4861548655%_) - ((lambda (_%L48658%_ _%L48660%_) + (##cdr _%e4928049315%_)))) + (if (gx#stx-null? _%tl4928249322%_) + ((lambda (_%g4927249325%_ + _%g4927349327%_) (if (and (gx#identifier? - _%L48660%_) + _%g4927349327%_) (gx#identifier? - _%L48658%_)) + _%g4927249325%_)) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L48660%_ + (cons _%g4927349327%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -267,17 +268,18 @@ (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L48658%_ '())) + (cons _%g4927249325%_ + '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4860348621%_ - _%g4860448625%_))) - _%hd4861448652%_ - _%hd4861148642%_) - (_%g4860348621%_ - _%g4860448625%_)))) - (_%g4860348621%_ _%g4860448625%_)))) - (_%g4860348621%_ _%g4860448625%_)))) - (_%g4860348621%_ _%g4860448625%_))))) - (_%g4860248676%_ _%$stx48599%_))))) + (_%g4927049288%_ + _%g4927149292%_))) + _%hd4928149319%_ + _%hd4927849309%_) + (_%g4927049288%_ + _%g4927149292%_)))) + (_%g4927049288%_ _%g4927149292%_)))) + (_%g4927049288%_ _%g4927149292%_)))) + (_%g4927049288%_ _%g4927149292%_))))) + (_%g4926949343%_ _%$stx49266%_))))) diff --git a/src/bootstrap/gerbil/core/contract~3.scm b/src/bootstrap/gerbil/core/contract~3.scm index f3f561e4c9..2d97d1c02c 100644 --- a/src/bootstrap/gerbil/core/contract~3.scm +++ b/src/bootstrap/gerbil/core/contract~3.scm @@ -1,48 +1,48 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~TypeReference[2]#_g91795_| + (define |gerbil/core/contract~TypeReference[2]#_g92654_| (##structure gx#syntax-quote::t 'type-reference::t #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g91797_| + (define |gerbil/core/contract~TypeReference[2]#_g92656_| (##structure gx#syntax-quote::t 'make-type-reference #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g91799_| + (define |gerbil/core/contract~TypeReference[2]#_g92658_| (##structure gx#syntax-quote::t 'type-reference? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g91801_| + (define |gerbil/core/contract~TypeReference[2]#_g92660_| (##structure gx#syntax-quote::t 'type-reference-identifier #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g91803_| + (define |gerbil/core/contract~TypeReference[2]#_g92662_| (##structure gx#syntax-quote::t 'type-reference-identifier-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g91805_| + (define |gerbil/core/contract~TypeReference[2]#_g92664_| (##structure gx#syntax-quote::t '&type-reference-identifier #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g91807_| + (define |gerbil/core/contract~TypeReference[2]#_g92666_| (##structure gx#syntax-quote::t '&type-reference-identifier-set! @@ -50,7 +50,7 @@ (gx#current-expander-context) '())) (define |gerbil/core/contract~TypeReference[:1:]#type-reference| - (let ((__obj91647 + (let ((__obj92499 (let () (declare (not safe)) (##structure @@ -79,63 +79,63 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj91647 + __obj92499 'gerbil/core/contract~TypeReference#type-reference::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj91647 'type-reference '2 '#f '#f)) + (##unchecked-structure-set! __obj92499 'type-reference '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj91647 '(identifier) '4 '#f '#f)) + (##unchecked-structure-set! __obj92499 '(identifier) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj91647 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj92499 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj91647 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj92499 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj91647 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj92499 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj91647 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj92499 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj91647 '#f '11 '#f '#f)) - (let ((__tmp91794 |gerbil/core/contract~TypeReference[2]#_g91795_|)) + (##unchecked-structure-set! __obj92499 '#f '12 '#f '#f)) + (let ((__tmp92653 |gerbil/core/contract~TypeReference[2]#_g92654_|)) (declare (not safe)) - (##unchecked-structure-set! __obj91647 __tmp91794 '12 '#f '#f)) - (let ((__tmp91796 |gerbil/core/contract~TypeReference[2]#_g91797_|)) + (##unchecked-structure-set! __obj92499 __tmp92653 '3 '#f '#f)) + (let ((__tmp92655 |gerbil/core/contract~TypeReference[2]#_g92656_|)) (declare (not safe)) - (##unchecked-structure-set! __obj91647 __tmp91796 '13 '#f '#f)) - (let ((__tmp91798 |gerbil/core/contract~TypeReference[2]#_g91799_|)) + (##unchecked-structure-set! __obj92499 __tmp92655 '13 '#f '#f)) + (let ((__tmp92657 |gerbil/core/contract~TypeReference[2]#_g92658_|)) (declare (not safe)) - (##unchecked-structure-set! __obj91647 __tmp91798 '14 '#f '#f)) - (let ((__tmp91800 + (##unchecked-structure-set! __obj92499 __tmp92657 '14 '#f '#f)) + (let ((__tmp92659 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g91801_|) + |gerbil/core/contract~TypeReference[2]#_g92660_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj91647 __tmp91800 '15 '#f '#f)) - (let ((__tmp91802 + (##unchecked-structure-set! __obj92499 __tmp92659 '15 '#f '#f)) + (let ((__tmp92661 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g91803_|) + |gerbil/core/contract~TypeReference[2]#_g92662_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj91647 __tmp91802 '16 '#f '#f)) - (let ((__tmp91804 + (##unchecked-structure-set! __obj92499 __tmp92661 '16 '#f '#f)) + (let ((__tmp92663 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g91805_|) + |gerbil/core/contract~TypeReference[2]#_g92664_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj91647 __tmp91804 '17 '#f '#f)) - (let ((__tmp91806 + (##unchecked-structure-set! __obj92499 __tmp92663 '17 '#f '#f)) + (let ((__tmp92665 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g91807_|) + |gerbil/core/contract~TypeReference[2]#_g92666_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj91647 __tmp91806 '18 '#f '#f)) - __obj91647))) + (##unchecked-structure-set! __obj92499 __tmp92665 '18 '#f '#f)) + __obj92499))) diff --git a/src/bootstrap/gerbil/core/contract~4.scm b/src/bootstrap/gerbil/core/contract~4.scm index 50db2a2bc5..cfc2876adb 100644 --- a/src/bootstrap/gerbil/core/contract~4.scm +++ b/src/bootstrap/gerbil/core/contract~4.scm @@ -1,142 +1,147 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~TypeCast[1]#_g91810_| + (define |gerbil/core/contract~TypeCast[1]#_g92669_| + (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) + (define |gerbil/core/contract~TypeCast[1]#_g92670_| + (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) + (define |gerbil/core/contract~TypeCast[1]#_g92671_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (begin (define |gerbil/core/contract~TypeCast[:0:]#:| - (lambda (_%stx48681%_) - (let* ((_%g4868448702%_ - (lambda (_%g4868548698%_) + (lambda (_%stx49348%_) + (let* ((_%g4935149369%_ + (lambda (_%g4935249365%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4868548698%_))) - (_%g4868348897%_ - (lambda (_%g4868548706%_) - (if (gx#stx-pair? _%g4868548706%_) - (let ((_%e4868848709%_ (gx#syntax-e _%g4868548706%_))) - (let ((_%hd4868948713%_ + _%g4935249365%_))) + (_%g4935049564%_ + (lambda (_%g4935249373%_) + (if (gx#stx-pair? _%g4935249373%_) + (let ((_%e4935549376%_ (gx#syntax-e _%g4935249373%_))) + (let ((_%hd4935649380%_ (let () (declare (not safe)) - (##car _%e4868848709%_))) - (_%tl4869048716%_ + (##car _%e4935549376%_))) + (_%tl4935749383%_ (let () (declare (not safe)) - (##cdr _%e4868848709%_)))) - (if (gx#stx-pair? _%tl4869048716%_) - (let ((_%e4869148719%_ - (gx#syntax-e _%tl4869048716%_))) - (let ((_%hd4869248723%_ + (##cdr _%e4935549376%_)))) + (if (gx#stx-pair? _%tl4935749383%_) + (let ((_%e4935849386%_ + (gx#syntax-e _%tl4935749383%_))) + (let ((_%hd4935949390%_ (let () (declare (not safe)) - (##car _%e4869148719%_))) - (_%tl4869348726%_ + (##car _%e4935849386%_))) + (_%tl4936049393%_ (let () (declare (not safe)) - (##cdr _%e4869148719%_)))) - (if (gx#stx-pair? _%tl4869348726%_) - (let ((_%e4869448729%_ - (gx#syntax-e _%tl4869348726%_))) - (let ((_%hd4869548733%_ + (##cdr _%e4935849386%_)))) + (if (gx#stx-pair? _%tl4936049393%_) + (let ((_%e4936149396%_ + (gx#syntax-e _%tl4936049393%_))) + (let ((_%hd4936249400%_ (let () (declare (not safe)) - (##car _%e4869448729%_))) - (_%tl4869648736%_ + (##car _%e4936149396%_))) + (_%tl4936349403%_ (let () (declare (not safe)) - (##cdr _%e4869448729%_)))) - (if (gx#stx-null? _%tl4869648736%_) - ((lambda (_%L48739%_ _%L48741%_) + (##cdr _%e4936149396%_)))) + (if (gx#stx-null? _%tl4936349403%_) + ((lambda (_%g4935349406%_ + _%g4935449408%_) (if (gx#identifier? - _%L48739%_) - (let ((_%meta48758%_ + _%g4935349406%_) + (let ((_%meta49425%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx48681%_ - _%L48739%_)))) + _%stx49348%_ + _%g4935349406%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%meta48758%_)) - (let* ((_%g4876348778%_ + _%meta49425%_)) + (let* ((_%g4943049445%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g4876448774%_) + (lambda (_%g4943149441%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4876448774%_))) - (_%g4876248825%_ - (lambda (_%g4876448782%_) - (if (gx#stx-pair? _%g4876448782%_) - (let ((_%e4876748785%_ - (gx#syntax-e _%g4876448782%_))) - (let ((_%hd4876848789%_ + _%g4943149441%_))) + (_%g4942949492%_ + (lambda (_%g4943149449%_) + (if (gx#stx-pair? _%g4943149449%_) + (let ((_%e4943449452%_ + (gx#syntax-e _%g4943149449%_))) + (let ((_%hd4943549456%_ (let () (declare (not safe)) - (##car _%e4876748785%_))) - (_%tl4876948792%_ + (##car _%e4943449452%_))) + (_%tl4943649459%_ (let () (declare (not safe)) - (##cdr _%e4876748785%_)))) - (if (gx#stx-pair? _%tl4876948792%_) - (let ((_%e4877048795%_ + (##cdr _%e4943449452%_)))) + (if (gx#stx-pair? _%tl4943649459%_) + (let ((_%e4943749462%_ (gx#syntax-e - _%tl4876948792%_))) - (let ((_%hd4877148799%_ + _%tl4943649459%_))) + (let ((_%hd4943849466%_ (let () (declare (not safe)) - (##car _%e4877048795%_))) - (_%tl4877248802%_ + (##car _%e4943749462%_))) + (_%tl4943949469%_ (let () (declare (not safe)) - (##cdr _%e4877048795%_)))) + (##cdr _%e4943749462%_)))) (if (gx#stx-null? - _%tl4877248802%_) - ((lambda (_%L48805%_ - _%L48807%_) - (if (let ((__tmp91808 - (let ((__obj91653 + _%tl4943949469%_) + ((lambda (_%g4943249472%_ + _%g4943349474%_) + (if (let ((__tmp92667 + (let ((__obj92505 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%meta48758%_)) + _%meta49425%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91653 + __obj92505 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91653 + __obj92505 '1 '#f '#f)) - (unchecked-slot-ref __obj91653 'id))))) + (unchecked-slot-ref __obj92505 'id))))) (declare (not safe)) - (##memq __tmp91808 '(t void))) + (##memq __tmp92667 '(t void))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L48807%_ '())) - (cons _%L48741%_ '()))) + (cons _%g4943349474%_ '())) + (cons _%g4935449408%_ '()))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L48807%_ '())) + (cons _%g4943349474%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L48741%_ '())) + (cons _%g4935449408%_ '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L48805%_ + (cons (cons _%g4943249472%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'val) '())) (cons (gx#datum->syntax '#f 'val) (cons (cons (gx#datum->syntax '#f 'error) (cons '"bad cast" - (cons _%L48807%_ + (cons _%g4943349474%_ (cons (gx#datum->syntax '#f 'val) @@ -146,85 +151,85 @@ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4877148799%_ - _%hd4876848789%_) - (_%g4876348778%_ - _%g4876448782%_)))) - (_%g4876348778%_ _%g4876448782%_)))) - (_%g4876348778%_ _%g4876448782%_))))) - (_%g4876248825%_ - (list (let ((__obj91654 _%meta48758%_)) + _%hd4943849466%_ + _%hd4943549456%_) + (_%g4943049445%_ + _%g4943149449%_)))) + (_%g4943049445%_ _%g4943149449%_)))) + (_%g4943049445%_ _%g4943149449%_))))) + (_%g4942949492%_ + (list (let ((__obj92506 _%meta49425%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91654 + __obj92506 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91654 - '12 + __obj92506 + '3 '#f '#f)) (unchecked-slot-ref - __obj91654 + __obj92506 'type-descriptor))) - (let ((__obj91655 _%meta48758%_)) + (let ((__obj92507 _%meta49425%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91655 + __obj92507 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91655 + __obj92507 '14 '#f '#f)) (unchecked-slot-ref - __obj91655 + __obj92507 'predicate)))))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%meta48758%_)) - (let* ((_%g4883148846%_ - (lambda (_%g4883248842%_) + _%meta49425%_)) + (let* ((_%g4949849513%_ + (lambda (_%g4949949509%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4883248842%_))) - (_%g4883048891%_ - (lambda (_%g4883248850%_) - (if (gx#stx-pair? _%g4883248850%_) - (let ((_%e4883548853%_ - (gx#syntax-e _%g4883248850%_))) - (let ((_%hd4883648857%_ + _%g4949949509%_))) + (_%g4949749558%_ + (lambda (_%g4949949517%_) + (if (gx#stx-pair? _%g4949949517%_) + (let ((_%e4950249520%_ + (gx#syntax-e _%g4949949517%_))) + (let ((_%hd4950349524%_ (let () (declare (not safe)) - (##car _%e4883548853%_))) - (_%tl4883748860%_ + (##car _%e4950249520%_))) + (_%tl4950449527%_ (let () (declare (not safe)) - (##cdr _%e4883548853%_)))) - (if (gx#stx-pair? _%tl4883748860%_) - (let ((_%e4883848863%_ + (##cdr _%e4950249520%_)))) + (if (gx#stx-pair? _%tl4950449527%_) + (let ((_%e4950549530%_ (gx#syntax-e - _%tl4883748860%_))) - (let ((_%hd4883948867%_ + _%tl4950449527%_))) + (let ((_%hd4950649534%_ (let () (declare (not safe)) - (##car _%e4883848863%_))) - (_%tl4884048870%_ + (##car _%e4950549530%_))) + (_%tl4950749537%_ (let () (declare (not safe)) - (##cdr _%e4883848863%_)))) + (##cdr _%e4950549530%_)))) (if (gx#stx-null? - _%tl4884048870%_) - ((lambda (_%L48873%_ - _%L48875%_) + _%tl4950749537%_) + ((lambda (_%g4950049540%_ + _%g4950149542%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -232,179 +237,181 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L48875%_ '())) - (cons (cons _%L48873%_ (cons _%L48741%_ '())) + (cons _%g4950149542%_ '())) + (cons (cons _%g4950049540%_ + (cons _%g4935449408%_ '())) '())))) - _%hd4883948867%_ - _%hd4883648857%_) + _%hd4950649534%_ + _%hd4950349524%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4883148846%_ - _%g4883248850%_)))) - (_%g4883148846%_ - _%g4883248850%_)))) - (_%g4883148846%_ _%g4883248850%_))))) - (_%g4883048891%_ - (list (let ((__obj91652 _%meta48758%_)) + (_%g4949849513%_ + _%g4949949517%_)))) + (_%g4949849513%_ + _%g4949949517%_)))) + (_%g4949849513%_ _%g4949949517%_))))) + (_%g4949749558%_ + (list (let ((__obj92504 _%meta49425%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91652 - 'gerbil/core/contract~InterfaceInfo#interface-info::t)) + __obj92504 + 'gerbil.core#runtime-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91652 - '7 + __obj92504 + '3 '#f '#f)) (unchecked-slot-ref - __obj91652 - 'instance-type))) + __obj92504 + 'type-descriptor))) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - _%stx48681%_ - _%L48739%_))))) + _%stx49348%_ + _%g4935349406%_))))) (gx#raise-syntax-error '#f '"not a class type or interface" - _%stx48681%_ - _%L48739%_)))) + _%stx49348%_ + _%g4935349406%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4868448702%_ - _%g4868548706%_))) - _%hd4869548733%_ - _%hd4869248723%_) - (_%g4868448702%_ - _%g4868548706%_)))) - (_%g4868448702%_ _%g4868548706%_)))) - (_%g4868448702%_ _%g4868548706%_)))) - (_%g4868448702%_ _%g4868548706%_))))) - (_%g4868348897%_ _%stx48681%_)))) + (_%g4935149369%_ + _%g4935249373%_))) + _%hd4936249400%_ + _%hd4935949390%_) + (_%g4935149369%_ + _%g4935249373%_)))) + (_%g4935149369%_ _%g4935249373%_)))) + (_%g4935149369%_ _%g4935249373%_)))) + (_%g4935149369%_ _%g4935249373%_))))) + (_%g4935049564%_ _%stx49348%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:?| - (lambda (_%stx48901%_) - (let* ((_%g4890448922%_ - (lambda (_%g4890548918%_) + (lambda (_%stx49568%_) + (let* ((_%g4957149589%_ + (lambda (_%g4957249585%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4890548918%_))) - (_%g4890349116%_ - (lambda (_%g4890548926%_) - (if (gx#stx-pair? _%g4890548926%_) - (let ((_%e4890848929%_ (gx#syntax-e _%g4890548926%_))) - (let ((_%hd4890948933%_ + _%g4957249585%_))) + (_%g4957049783%_ + (lambda (_%g4957249593%_) + (if (gx#stx-pair? _%g4957249593%_) + (let ((_%e4957549596%_ (gx#syntax-e _%g4957249593%_))) + (let ((_%hd4957649600%_ (let () (declare (not safe)) - (##car _%e4890848929%_))) - (_%tl4891048936%_ + (##car _%e4957549596%_))) + (_%tl4957749603%_ (let () (declare (not safe)) - (##cdr _%e4890848929%_)))) - (if (gx#stx-pair? _%tl4891048936%_) - (let ((_%e4891148939%_ - (gx#syntax-e _%tl4891048936%_))) - (let ((_%hd4891248943%_ + (##cdr _%e4957549596%_)))) + (if (gx#stx-pair? _%tl4957749603%_) + (let ((_%e4957849606%_ + (gx#syntax-e _%tl4957749603%_))) + (let ((_%hd4957949610%_ (let () (declare (not safe)) - (##car _%e4891148939%_))) - (_%tl4891348946%_ + (##car _%e4957849606%_))) + (_%tl4958049613%_ (let () (declare (not safe)) - (##cdr _%e4891148939%_)))) - (if (gx#stx-pair? _%tl4891348946%_) - (let ((_%e4891448949%_ - (gx#syntax-e _%tl4891348946%_))) - (let ((_%hd4891548953%_ + (##cdr _%e4957849606%_)))) + (if (gx#stx-pair? _%tl4958049613%_) + (let ((_%e4958149616%_ + (gx#syntax-e _%tl4958049613%_))) + (let ((_%hd4958249620%_ (let () (declare (not safe)) - (##car _%e4891448949%_))) - (_%tl4891648956%_ + (##car _%e4958149616%_))) + (_%tl4958349623%_ (let () (declare (not safe)) - (##cdr _%e4891448949%_)))) - (if (gx#stx-null? _%tl4891648956%_) - ((lambda (_%L48959%_ _%L48961%_) + (##cdr _%e4958149616%_)))) + (if (gx#stx-null? _%tl4958349623%_) + ((lambda (_%g4957349626%_ + _%g4957449628%_) (if (gx#identifier? - _%L48959%_) - (let ((_%meta48977%_ + _%g4957349626%_) + (let ((_%meta49644%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx48901%_ - _%L48959%_)))) + _%stx49568%_ + _%g4957349626%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%meta48977%_)) - (let* ((_%g4898248997%_ + _%meta49644%_)) + (let* ((_%g4964949664%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g4898348993%_) + (lambda (_%g4965049660%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4898348993%_))) - (_%g4898149044%_ - (lambda (_%g4898349001%_) - (if (gx#stx-pair? _%g4898349001%_) - (let ((_%e4898649004%_ - (gx#syntax-e _%g4898349001%_))) - (let ((_%hd4898749008%_ + _%g4965049660%_))) + (_%g4964849711%_ + (lambda (_%g4965049668%_) + (if (gx#stx-pair? _%g4965049668%_) + (let ((_%e4965349671%_ + (gx#syntax-e _%g4965049668%_))) + (let ((_%hd4965449675%_ (let () (declare (not safe)) - (##car _%e4898649004%_))) - (_%tl4898849011%_ + (##car _%e4965349671%_))) + (_%tl4965549678%_ (let () (declare (not safe)) - (##cdr _%e4898649004%_)))) - (if (gx#stx-pair? _%tl4898849011%_) - (let ((_%e4898949014%_ + (##cdr _%e4965349671%_)))) + (if (gx#stx-pair? _%tl4965549678%_) + (let ((_%e4965649681%_ (gx#syntax-e - _%tl4898849011%_))) - (let ((_%hd4899049018%_ + _%tl4965549678%_))) + (let ((_%hd4965749685%_ (let () (declare (not safe)) - (##car _%e4898949014%_))) - (_%tl4899149021%_ + (##car _%e4965649681%_))) + (_%tl4965849688%_ (let () (declare (not safe)) - (##cdr _%e4898949014%_)))) + (##cdr _%e4965649681%_)))) (if (gx#stx-null? - _%tl4899149021%_) - ((lambda (_%L49024%_ - _%L49026%_) - (if (let ((__tmp91809 - (let ((__obj91657 + _%tl4965849688%_) + ((lambda (_%g4965149691%_ + _%g4965249693%_) + (if (let ((__tmp92668 + (let ((__obj92509 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%meta48977%_)) + _%meta49644%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91657 + __obj92509 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91657 + __obj92509 '1 '#f '#f)) - (unchecked-slot-ref __obj91657 'id))))) + (unchecked-slot-ref __obj92509 'id))))) (declare (not safe)) - (##memq __tmp91809 '(t void))) + (##memq __tmp92668 '(t void))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L49026%_ '())) - (cons _%L48961%_ '()))) + (cons _%g4965249693%_ '())) + (cons _%g4957449628%_ '()))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L49026%_ '())) + (cons _%g4965249693%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L48961%_ '())) + (cons _%g4957449628%_ '())) (cons (cons (gx#datum->syntax '#f 'if) @@ -415,7 +422,7 @@ (cons (cons (gx#datum->syntax '#f 'not) (cons (gx#datum->syntax '#f 'val) '())) - (cons (cons _%L49024%_ + (cons (cons _%g4965149691%_ (cons (gx#datum->syntax '#f 'val) @@ -426,8 +433,8 @@ '#f 'contract-violation!) (cons '"bad cast" - (cons _%L48961%_ - (cons _%L49024%_ + (cons _%g4957449628%_ + (cons _%g4965149691%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -439,85 +446,85 @@ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4899049018%_ - _%hd4898749008%_) - (_%g4898248997%_ - _%g4898349001%_)))) - (_%g4898248997%_ _%g4898349001%_)))) - (_%g4898248997%_ _%g4898349001%_))))) - (_%g4898149044%_ - (list (let ((__obj91658 _%meta48977%_)) + _%hd4965749685%_ + _%hd4965449675%_) + (_%g4964949664%_ + _%g4965049668%_)))) + (_%g4964949664%_ _%g4965049668%_)))) + (_%g4964949664%_ _%g4965049668%_))))) + (_%g4964849711%_ + (list (let ((__obj92510 _%meta49644%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91658 + __obj92510 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91658 - '12 + __obj92510 + '3 '#f '#f)) (unchecked-slot-ref - __obj91658 + __obj92510 'type-descriptor))) - (let ((__obj91659 _%meta48977%_)) + (let ((__obj92511 _%meta49644%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91659 + __obj92511 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91659 + __obj92511 '14 '#f '#f)) (unchecked-slot-ref - __obj91659 + __obj92511 'predicate)))))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%meta48977%_)) - (let* ((_%g4905049065%_ - (lambda (_%g4905149061%_) + _%meta49644%_)) + (let* ((_%g4971749732%_ + (lambda (_%g4971849728%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4905149061%_))) - (_%g4904949110%_ - (lambda (_%g4905149069%_) - (if (gx#stx-pair? _%g4905149069%_) - (let ((_%e4905449072%_ - (gx#syntax-e _%g4905149069%_))) - (let ((_%hd4905549076%_ + _%g4971849728%_))) + (_%g4971649777%_ + (lambda (_%g4971849736%_) + (if (gx#stx-pair? _%g4971849736%_) + (let ((_%e4972149739%_ + (gx#syntax-e _%g4971849736%_))) + (let ((_%hd4972249743%_ (let () (declare (not safe)) - (##car _%e4905449072%_))) - (_%tl4905649079%_ + (##car _%e4972149739%_))) + (_%tl4972349746%_ (let () (declare (not safe)) - (##cdr _%e4905449072%_)))) - (if (gx#stx-pair? _%tl4905649079%_) - (let ((_%e4905749082%_ + (##cdr _%e4972149739%_)))) + (if (gx#stx-pair? _%tl4972349746%_) + (let ((_%e4972449749%_ (gx#syntax-e - _%tl4905649079%_))) - (let ((_%hd4905849086%_ + _%tl4972349746%_))) + (let ((_%hd4972549753%_ (let () (declare (not safe)) - (##car _%e4905749082%_))) - (_%tl4905949089%_ + (##car _%e4972449749%_))) + (_%tl4972649756%_ (let () (declare (not safe)) - (##cdr _%e4905749082%_)))) + (##cdr _%e4972449749%_)))) (if (gx#stx-null? - _%tl4905949089%_) - ((lambda (_%L49092%_ - _%L49094%_) + _%tl4972649756%_) + ((lambda (_%g4971949759%_ + _%g4972049761%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -525,10 +532,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L49094%_ '())) + (cons _%g4972049761%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L48961%_ '())) + (cons _%g4957449628%_ '())) (cons (cons (gx#datum->syntax '#f 'and) @@ -536,152 +543,847 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'val) - (cons (cons _%L49092%_ + (cons (cons _%g4971949759%_ (cons (gx#datum->syntax '#f 'val) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) - _%hd4905849086%_ - _%hd4905549076%_) + _%hd4972549753%_ + _%hd4972249743%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4905049065%_ - _%g4905149069%_)))) - (_%g4905049065%_ - _%g4905149069%_)))) - (_%g4905049065%_ _%g4905149069%_))))) - (_%g4904949110%_ - (list (let ((__obj91656 _%meta48977%_)) + (_%g4971749732%_ + _%g4971849736%_)))) + (_%g4971749732%_ + _%g4971849736%_)))) + (_%g4971749732%_ _%g4971849736%_))))) + (_%g4971649777%_ + (list (let ((__obj92508 _%meta49644%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91656 - 'gerbil/core/contract~InterfaceInfo#interface-info::t)) + __obj92508 + 'gerbil.core#runtime-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91656 - '7 + __obj92508 + '3 '#f '#f)) (unchecked-slot-ref - __obj91656 - 'instance-type))) + __obj92508 + 'type-descriptor))) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - _%stx48901%_ - _%L48959%_))))) + _%stx49568%_ + _%g4957349626%_))))) (gx#raise-syntax-error '#f '"not a class type or interface" - _%stx48901%_ - _%L48959%_)))) + _%stx49568%_ + _%g4957349626%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4890448922%_ - _%g4890548926%_))) - _%hd4891548953%_ - _%hd4891248943%_) - (_%g4890448922%_ - _%g4890548926%_)))) - (_%g4890448922%_ _%g4890548926%_)))) - (_%g4890448922%_ _%g4890548926%_)))) - (_%g4890448922%_ _%g4890548926%_))))) - (_%g4890349116%_ _%stx48901%_)))) + (_%g4957149589%_ + _%g4957249593%_))) + _%hd4958249620%_ + _%hd4957949610%_) + (_%g4957149589%_ + _%g4957249593%_)))) + (_%g4957149589%_ _%g4957249593%_)))) + (_%g4957149589%_ _%g4957249593%_)))) + (_%g4957149589%_ _%g4957249593%_))))) + (_%g4957049783%_ _%stx49568%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:-| - (lambda (_%stx49120%_) - (let* ((_%g4912349141%_ - (lambda (_%g4912449137%_) + (lambda (_%stx49787%_) + (let* ((_%g4979049808%_ + (lambda (_%g4979149804%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4912449137%_))) - (_%g4912249227%_ - (lambda (_%g4912449145%_) - (if (gx#stx-pair? _%g4912449145%_) - (let ((_%e4912749148%_ (gx#syntax-e _%g4912449145%_))) - (let ((_%hd4912849152%_ + _%g4979149804%_))) + (_%g4978949894%_ + (lambda (_%g4979149812%_) + (if (gx#stx-pair? _%g4979149812%_) + (let ((_%e4979449815%_ (gx#syntax-e _%g4979149812%_))) + (let ((_%hd4979549819%_ (let () (declare (not safe)) - (##car _%e4912749148%_))) - (_%tl4912949155%_ + (##car _%e4979449815%_))) + (_%tl4979649822%_ (let () (declare (not safe)) - (##cdr _%e4912749148%_)))) - (if (gx#stx-pair? _%tl4912949155%_) - (let ((_%e4913049158%_ - (gx#syntax-e _%tl4912949155%_))) - (let ((_%hd4913149162%_ + (##cdr _%e4979449815%_)))) + (if (gx#stx-pair? _%tl4979649822%_) + (let ((_%e4979749825%_ + (gx#syntax-e _%tl4979649822%_))) + (let ((_%hd4979849829%_ (let () (declare (not safe)) - (##car _%e4913049158%_))) - (_%tl4913249165%_ + (##car _%e4979749825%_))) + (_%tl4979949832%_ (let () (declare (not safe)) - (##cdr _%e4913049158%_)))) - (if (gx#stx-pair? _%tl4913249165%_) - (let ((_%e4913349168%_ - (gx#syntax-e _%tl4913249165%_))) - (let ((_%hd4913449172%_ + (##cdr _%e4979749825%_)))) + (if (gx#stx-pair? _%tl4979949832%_) + (let ((_%e4980049835%_ + (gx#syntax-e _%tl4979949832%_))) + (let ((_%hd4980149839%_ (let () (declare (not safe)) - (##car _%e4913349168%_))) - (_%tl4913549175%_ + (##car _%e4980049835%_))) + (_%tl4980249842%_ (let () (declare (not safe)) - (##cdr _%e4913349168%_)))) - (if (gx#stx-null? _%tl4913549175%_) - ((lambda (_%L49178%_ _%L49180%_) + (##cdr _%e4980049835%_)))) + (if (gx#stx-null? _%tl4980249842%_) + ((lambda (_%g4979249845%_ + _%g4979349847%_) (if (gx#identifier? - _%L49178%_) - (let* ((_%g4919649204%_ - (lambda (_%g4919749200%_) + _%g4979249845%_) + (let* ((_%g4986349871%_ + (lambda (_%g4986449867%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4919749200%_))) - (_%g4919549223%_ - (lambda (_%g4919749208%_) - ((lambda (_%L49211%_) + _%g4986449867%_))) + (_%g4986249890%_ + (lambda (_%g4986449875%_) + ((lambda (_%g4986549878%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L49211%_ '())) - (cons _%L49180%_ '())))) - _%g4919749208%_)))) - (_%g4919549223%_ + (cons _%g4986549878%_ '())) + (cons _%g4979349847%_ '())))) + _%g4986449875%_)))) + (_%g4986249890%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx49120%_ - _%L49178%_)))) + _%stx49787%_ + _%g4979249845%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g4979049808%_ + _%g4979149812%_))) + _%hd4980149839%_ + _%hd4979849829%_) + (_%g4979049808%_ + _%g4979149812%_)))) + (_%g4979049808%_ _%g4979149812%_)))) + (_%g4979049808%_ _%g4979149812%_)))) + (_%g4979049808%_ _%g4979149812%_))))) + (_%g4978949894%_ _%stx49787%_)))) + (define |gerbil/core/contract~TypeCast[:0:]#do-with-lock| + (lambda (_%$stx49898%_) + (let* ((_%__stx8660086601%_ _%$stx49898%_) + (_%g4990449988%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx8660086601%_)))) + (let ((_%__kont8660386604%_ + (lambda (_%g4990650292%_ + _%g4990750294%_ + _%g4990850295%_ + _%g4990950296%_) + (cons (gx#datum->syntax '#f ':-) + (cons (cons (gx#datum->syntax '#f 'do-with-lock) + (cons _%g4990950296%_ + (cons _%g4990750294%_ + (foldr (lambda (_%g5032050323%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g5032150326%_) + (cons _%g5032050323%_ _%g5032150326%_)) + '() + _%g4990650292%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons _%g4990850295%_ '()))))) + (_%__kont8660786608%_ + (lambda (_%g4993450170%_ + _%g4993550172%_ + _%g4993650173%_ + _%g4993750174%_) + (cons (gx#datum->syntax '#f ':) + (cons (cons (gx#datum->syntax '#f 'do-with-lock) + (cons _%g4993750174%_ + (cons _%g4993550172%_ + (foldr (lambda (_%g5019850201%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g5019950204%_) + (cons _%g5019850201%_ _%g5019950204%_)) + '() + _%g4993450170%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons _%g4993650173%_ '()))))) + (_%__kont8661186612%_ + (lambda (_%g4996250053%_ _%g4996350055%_ _%g4996450056%_) + (cons (gx#datum->syntax '#f 'with-lock) + (cons _%g4996450056%_ + (cons (cons (gx#datum->syntax '#f 'lambda) + (cons '() + (cons _%g4996350055%_ + (foldr (lambda (_%g5007650079%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g5007750082%_) + (cons _%g5007650079%_ _%g5007750082%_)) + '() + _%g4996250053%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))))) + (let* ((_%__match8672586726%_ + (lambda (_%e4996549995%_ + _%hd4996649999%_ + _%tl4996750002%_ + _%e4996850005%_ + _%hd4996950009%_ + _%tl4997050012%_ + _%e4997150015%_ + _%hd4997250019%_ + _%tl4997350022%_ + _%__splice8661386614%_ + _%target4997450025%_ + _%tl4997650028%_) + (letrec ((_%loop4997750031%_ + (lambda (_%hd4997550035%_ _%rest4998150038%_) + (if (gx#stx-pair? _%hd4997550035%_) + (let ((_%e4997850040%_ + (gx#syntax-e _%hd4997550035%_))) + (let ((_%lp-tl4998050047%_ + (let () + (declare (not safe)) + (##cdr _%e4997850040%_))) + (_%lp-hd4997950044%_ + (let () + (declare (not safe)) + (##car _%e4997850040%_)))) + (_%loop4997750031%_ + _%lp-tl4998050047%_ + (cons _%lp-hd4997950044%_ + _%rest4998150038%_)))) + (let ((_%rest4998250050%_ + (reverse _%rest4998150038%_))) + (_%__kont8661186612%_ + _%rest4998250050%_ + _%hd4997250019%_ + _%hd4996950009%_)))))) + (_%loop4997750031%_ _%target4997450025%_ '())))) + (_%__match8669986700%_ + (lambda (_%e4993850092%_ + _%hd4993950096%_ + _%tl4994050099%_ + _%e4994150102%_ + _%hd4994250106%_ + _%tl4994350109%_ + _%e4994450112%_ + _%hd4994550116%_ + _%tl4994650119%_ + _%e4994750122%_ + _%hd4994850126%_ + _%tl4994950129%_ + _%e4995050132%_ + _%hd4995150136%_ + _%tl4995250139%_ + _%__splice8660986610%_ + _%target4995350142%_ + _%tl4995550145%_) + (letrec ((_%loop4995650148%_ + (lambda (_%hd4995450152%_ _%rest4996050155%_) + (if (gx#stx-pair? _%hd4995450152%_) + (let ((_%e4995750157%_ + (gx#syntax-e _%hd4995450152%_))) + (let ((_%lp-tl4995950164%_ + (let () + (declare (not safe)) + (##cdr _%e4995750157%_))) + (_%lp-hd4995850161%_ + (let () + (declare (not safe)) + (##car _%e4995750157%_)))) + (_%loop4995650148%_ + _%lp-tl4995950164%_ + (cons _%lp-hd4995850161%_ + _%rest4996050155%_)))) + (let ((_%rest4996150167%_ + (reverse _%rest4996050155%_))) + (_%__kont8660786608%_ + _%rest4996150167%_ + _%hd4995150136%_ + _%hd4994850126%_ + _%hd4994250106%_)))))) + (_%loop4995650148%_ _%target4995350142%_ '())))) + (_%__match8665786658%_ + (lambda (_%e4991050214%_ + _%hd4991150218%_ + _%tl4991250221%_ + _%e4991350224%_ + _%hd4991450228%_ + _%tl4991550231%_ + _%e4991650234%_ + _%hd4991750238%_ + _%tl4991850241%_ + _%e4991950244%_ + _%hd4992050248%_ + _%tl4992150251%_ + _%e4992250254%_ + _%hd4992350258%_ + _%tl4992450261%_ + _%__splice8660586606%_ + _%target4992550264%_ + _%tl4992750267%_) + (letrec ((_%loop4992850270%_ + (lambda (_%hd4992650274%_ _%rest4993250277%_) + (if (gx#stx-pair? _%hd4992650274%_) + (let ((_%e4992950279%_ + (gx#syntax-e _%hd4992650274%_))) + (let ((_%lp-tl4993150286%_ + (let () + (declare (not safe)) + (##cdr _%e4992950279%_))) + (_%lp-hd4993050283%_ + (let () + (declare (not safe)) + (##car _%e4992950279%_)))) + (_%loop4992850270%_ + _%lp-tl4993150286%_ + (cons _%lp-hd4993050283%_ + _%rest4993250277%_)))) + (let ((_%rest4993350289%_ + (reverse _%rest4993250277%_))) + (_%__kont8660386604%_ + _%rest4993350289%_ + _%hd4992350258%_ + _%hd4992050248%_ + _%hd4991450228%_)))))) + (_%loop4992850270%_ _%target4992550264%_ '()))))) + (if (gx#stx-pair? _%__stx8660086601%_) + (let ((_%e4991050214%_ (gx#syntax-e _%__stx8660086601%_))) + (let ((_%tl4991250221%_ + (let () + (declare (not safe)) + (##cdr _%e4991050214%_))) + (_%hd4991150218%_ + (let () + (declare (not safe)) + (##car _%e4991050214%_)))) + (if (gx#stx-pair? _%tl4991250221%_) + (let ((_%e4991350224%_ + (gx#syntax-e _%tl4991250221%_))) + (let ((_%tl4991550231%_ + (let () + (declare (not safe)) + (##cdr _%e4991350224%_))) + (_%hd4991450228%_ + (let () + (declare (not safe)) + (##car _%e4991350224%_)))) + (if (gx#stx-pair? _%tl4991550231%_) + (let ((_%e4991650234%_ + (gx#syntax-e _%tl4991550231%_))) + (let ((_%tl4991850241%_ + (let () + (declare (not safe)) + (##cdr _%e4991650234%_))) + (_%hd4991750238%_ + (let () + (declare (not safe)) + (##car _%e4991650234%_)))) + (if (gx#identifier? _%hd4991750238%_) + (if (gx#free-identifier=? + |gerbil/core/contract~TypeCast[1]#_g92669_| + _%hd4991750238%_) + (if (gx#stx-pair? + _%tl4991850241%_) + (let ((_%e4991950244%_ + (gx#syntax-e + _%tl4991850241%_))) + (let ((_%tl4992150251%_ + (let () + (declare + (not safe)) + (##cdr _%e4991950244%_))) + (_%hd4992050248%_ + (let () + (declare + (not safe)) + (##car _%e4991950244%_)))) + (if (gx#stx-pair? + _%tl4992150251%_) + (let ((_%e4992250254%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _%tl4992150251%_))) + (let ((_%tl4992450261%_ + (let () + (declare (not safe)) + (##cdr _%e4992250254%_))) + (_%hd4992350258%_ + (let () + (declare (not safe)) + (##car _%e4992250254%_)))) + (if (gx#stx-pair/null? _%tl4992450261%_) + (let ((_%__splice8660586606%_ + (gx#syntax-split-splice->vector + _%tl4992450261%_ + '0))) + (let ((_%tl4992750267%_ + (let () + (declare (not safe)) + (##vector-ref _%__splice8660586606%_ '1))) + (_%target4992550264%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice8660586606%_ + '0)))) + (if (gx#stx-null? _%tl4992750267%_) + (_%__match8665786658%_ + _%e4991050214%_ + _%hd4991150218%_ + _%tl4991250221%_ + _%e4991350224%_ + _%hd4991450228%_ + _%tl4991550231%_ + _%e4991650234%_ + _%hd4991750238%_ + _%tl4991850241%_ + _%e4991950244%_ + _%hd4992050248%_ + _%tl4992150251%_ + _%e4992250254%_ + _%hd4992350258%_ + _%tl4992450261%_ + _%__splice8660586606%_ + _%target4992550264%_ + _%tl4992750267%_) + (if (gx#stx-pair/null? _%tl4991850241%_) + (let ((_%__splice8661386614%_ + (gx#syntax-split-splice->vector + _%tl4991850241%_ + '0))) + (let ((_%tl4997650028%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice8661386614%_ + '1))) + (_%target4997450025%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice8661386614%_ + '0)))) + (if (gx#stx-null? _%tl4997650028%_) + (_%__match8672586726%_ + _%e4991050214%_ + _%hd4991150218%_ + _%tl4991250221%_ + _%e4991350224%_ + _%hd4991450228%_ + _%tl4991550231%_ + _%e4991650234%_ + _%hd4991750238%_ + _%tl4991850241%_ + _%__splice8661386614%_ + _%target4997450025%_ + _%tl4997650028%_) + (let () + (declare (not safe)) + (_%g4990449988%_))))) + (let () + (declare (not safe)) + (_%g4990449988%_)))))) + (if (gx#stx-pair/null? _%tl4991850241%_) + (let ((_%__splice8661386614%_ + (gx#syntax-split-splice->vector + _%tl4991850241%_ + '0))) + (let ((_%tl4997650028%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice8661386614%_ + '1))) + (_%target4997450025%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice8661386614%_ + '0)))) + (if (gx#stx-null? _%tl4997650028%_) + (_%__match8672586726%_ + _%e4991050214%_ + _%hd4991150218%_ + _%tl4991250221%_ + _%e4991350224%_ + _%hd4991450228%_ + _%tl4991550231%_ + _%e4991650234%_ + _%hd4991750238%_ + _%tl4991850241%_ + _%__splice8661386614%_ + _%target4997450025%_ + _%tl4997650028%_) + (let () + (declare (not safe)) + (_%g4990449988%_))))) + (let () + (declare (not safe)) + (_%g4990449988%_)))))) + (if (gx#stx-pair/null? _%tl4991850241%_) + (let ((_%__splice8661386614%_ + (gx#syntax-split-splice->vector + _%tl4991850241%_ + '0))) + (let ((_%tl4997650028%_ + (let () + (declare (not safe)) + (##vector-ref _%__splice8661386614%_ '1))) + (_%target4997450025%_ + (let () + (declare (not safe)) + (##vector-ref _%__splice8661386614%_ '0)))) + (if (gx#stx-null? _%tl4997650028%_) + (_%__match8672586726%_ + _%e4991050214%_ + _%hd4991150218%_ + _%tl4991250221%_ + _%e4991350224%_ + _%hd4991450228%_ + _%tl4991550231%_ + _%e4991650234%_ + _%hd4991750238%_ + _%tl4991850241%_ + _%__splice8661386614%_ + _%target4997450025%_ + _%tl4997650028%_) + (let () + (declare (not safe)) + (_%g4990449988%_))))) + (let () (declare (not safe)) (_%g4990449988%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair/null? + _%tl4991850241%_) + (let ((_%__splice8661386614%_ + (gx#syntax-split-splice->vector + _%tl4991850241%_ + '0))) + (let ((_%tl4997650028%_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##vector-ref _%__splice8661386614%_ '1))) + (_%target4997450025%_ + (let () + (declare (not safe)) + (##vector-ref _%__splice8661386614%_ '0)))) + (if (gx#stx-null? _%tl4997650028%_) + (_%__match8672586726%_ + _%e4991050214%_ + _%hd4991150218%_ + _%tl4991250221%_ + _%e4991350224%_ + _%hd4991450228%_ + _%tl4991550231%_ + _%e4991650234%_ + _%hd4991750238%_ + _%tl4991850241%_ + _%__splice8661386614%_ + _%target4997450025%_ + _%tl4997650028%_) + (let () (declare (not safe)) (_%g4990449988%_))))) + (let () (declare (not safe)) (_%g4990449988%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#free-identifier=? + |gerbil/core/contract~TypeCast[1]#_g92670_| + _%hd4991750238%_) + (if (gx#stx-pair? + _%tl4991850241%_) + (let ((_%e4994750122%_ + (gx#syntax-e + _%tl4991850241%_))) + (let ((_%tl4994950129%_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##cdr _%e4994750122%_))) + (_%hd4994850126%_ + (let () (declare (not safe)) (##car _%e4994750122%_)))) + (if (gx#stx-pair? _%tl4994950129%_) + (let ((_%e4995050132%_ (gx#syntax-e _%tl4994950129%_))) + (let ((_%tl4995250139%_ + (let () + (declare (not safe)) + (##cdr _%e4995050132%_))) + (_%hd4995150136%_ + (let () + (declare (not safe)) + (##car _%e4995050132%_)))) + (if (gx#stx-pair/null? _%tl4995250139%_) + (let ((_%__splice8660986610%_ + (gx#syntax-split-splice->vector + _%tl4995250139%_ + '0))) + (let ((_%tl4995550145%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice8660986610%_ + '1))) + (_%target4995350142%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice8660986610%_ + '0)))) + (if (gx#stx-null? _%tl4995550145%_) + (_%__match8669986700%_ + _%e4991050214%_ + _%hd4991150218%_ + _%tl4991250221%_ + _%e4991350224%_ + _%hd4991450228%_ + _%tl4991550231%_ + _%e4991650234%_ + _%hd4991750238%_ + _%tl4991850241%_ + _%e4994750122%_ + _%hd4994850126%_ + _%tl4994950129%_ + _%e4995050132%_ + _%hd4995150136%_ + _%tl4995250139%_ + _%__splice8660986610%_ + _%target4995350142%_ + _%tl4995550145%_) + (if (gx#stx-pair/null? _%tl4991850241%_) + (let ((_%__splice8661386614%_ + (gx#syntax-split-splice->vector + _%tl4991850241%_ + '0))) + (let ((_%tl4997650028%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice8661386614%_ + '1))) + (_%target4997450025%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice8661386614%_ + '0)))) + (if (gx#stx-null? + _%tl4997650028%_) + (_%__match8672586726%_ + _%e4991050214%_ + _%hd4991150218%_ + _%tl4991250221%_ + _%e4991350224%_ + _%hd4991450228%_ + _%tl4991550231%_ + _%e4991650234%_ + _%hd4991750238%_ + _%tl4991850241%_ + _%__splice8661386614%_ + _%target4997450025%_ + _%tl4997650028%_) + (let () + (declare (not safe)) + (_%g4990449988%_))))) + (let () + (declare (not safe)) + (_%g4990449988%_)))))) + (if (gx#stx-pair/null? _%tl4991850241%_) + (let ((_%__splice8661386614%_ + (gx#syntax-split-splice->vector + _%tl4991850241%_ + '0))) + (let ((_%tl4997650028%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice8661386614%_ + '1))) + (_%target4997450025%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice8661386614%_ + '0)))) + (if (gx#stx-null? _%tl4997650028%_) + (_%__match8672586726%_ + _%e4991050214%_ + _%hd4991150218%_ + _%tl4991250221%_ + _%e4991350224%_ + _%hd4991450228%_ + _%tl4991550231%_ + _%e4991650234%_ + _%hd4991750238%_ + _%tl4991850241%_ + _%__splice8661386614%_ + _%target4997450025%_ + _%tl4997650028%_) + (let () + (declare (not safe)) + (_%g4990449988%_))))) + (let () + (declare (not safe)) + (_%g4990449988%_)))))) + (if (gx#stx-pair/null? _%tl4991850241%_) + (let ((_%__splice8661386614%_ + (gx#syntax-split-splice->vector + _%tl4991850241%_ + '0))) + (let ((_%tl4997650028%_ + (let () + (declare (not safe)) + (##vector-ref _%__splice8661386614%_ '1))) + (_%target4997450025%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice8661386614%_ + '0)))) + (if (gx#stx-null? _%tl4997650028%_) + (_%__match8672586726%_ + _%e4991050214%_ + _%hd4991150218%_ + _%tl4991250221%_ + _%e4991350224%_ + _%hd4991450228%_ + _%tl4991550231%_ + _%e4991650234%_ + _%hd4991750238%_ + _%tl4991850241%_ + _%__splice8661386614%_ + _%target4997450025%_ + _%tl4997650028%_) + (let () + (declare (not safe)) + (_%g4990449988%_))))) + (let () (declare (not safe)) (_%g4990449988%_)))))) + (if (gx#stx-pair/null? _%tl4991850241%_) + (let ((_%__splice8661386614%_ + (gx#syntax-split-splice->vector _%tl4991850241%_ '0))) + (let ((_%tl4997650028%_ + (let () + (declare (not safe)) + (##vector-ref _%__splice8661386614%_ '1))) + (_%target4997450025%_ + (let () + (declare (not safe)) + (##vector-ref _%__splice8661386614%_ '0)))) + (if (gx#stx-null? _%tl4997650028%_) + (_%__match8672586726%_ + _%e4991050214%_ + _%hd4991150218%_ + _%tl4991250221%_ + _%e4991350224%_ + _%hd4991450228%_ + _%tl4991550231%_ + _%e4991650234%_ + _%hd4991750238%_ + _%tl4991850241%_ + _%__splice8661386614%_ + _%target4997450025%_ + _%tl4997650028%_) + (let () (declare (not safe)) (_%g4990449988%_))))) + (let () (declare (not safe)) (_%g4990449988%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair/null? + _%tl4991850241%_) + (let ((_%__splice8661386614%_ + (gx#syntax-split-splice->vector + _%tl4991850241%_ + '0))) + (let ((_%tl4997650028%_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##vector-ref _%__splice8661386614%_ '1))) + (_%target4997450025%_ + (let () + (declare (not safe)) + (##vector-ref _%__splice8661386614%_ '0)))) + (if (gx#stx-null? _%tl4997650028%_) + (_%__match8672586726%_ + _%e4991050214%_ + _%hd4991150218%_ + _%tl4991250221%_ + _%e4991350224%_ + _%hd4991450228%_ + _%tl4991550231%_ + _%e4991650234%_ + _%hd4991750238%_ + _%tl4991850241%_ + _%__splice8661386614%_ + _%target4997450025%_ + _%tl4997650028%_) + (let () (declare (not safe)) (_%g4990449988%_))))) + (let () (declare (not safe)) (_%g4990449988%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4912349141%_ - _%g4912449145%_))) - _%hd4913449172%_ - _%hd4913149162%_) - (_%g4912349141%_ - _%g4912449145%_)))) - (_%g4912349141%_ _%g4912449145%_)))) - (_%g4912349141%_ _%g4912449145%_)))) - (_%g4912349141%_ _%g4912449145%_))))) - (_%g4912249227%_ _%stx49120%_)))) + (if (gx#stx-pair/null? + _%tl4991850241%_) + (let ((_%__splice8661386614%_ + (gx#syntax-split-splice->vector + _%tl4991850241%_ + '0))) + (let ((_%tl4997650028%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice8661386614%_ + '1))) + (_%target4997450025%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice8661386614%_ + '0)))) + (if (gx#stx-null? + _%tl4997650028%_) + (_%__match8672586726%_ + _%e4991050214%_ + _%hd4991150218%_ + _%tl4991250221%_ + _%e4991350224%_ + _%hd4991450228%_ + _%tl4991550231%_ + _%e4991650234%_ + _%hd4991750238%_ + _%tl4991850241%_ + _%__splice8661386614%_ + _%target4997450025%_ + _%tl4997650028%_) + (let () + (declare (not safe)) + (_%g4990449988%_))))) + (let () + (declare (not safe)) + (_%g4990449988%_)))))) + (let () + (declare (not safe)) + (_%g4990449988%_))))) + (let () (declare (not safe)) (_%g4990449988%_))))) + (let () (declare (not safe)) (_%g4990449988%_)))))))) (define |gerbil/core/contract~TypeCast[:0:]#:~| - (lambda (_%$stx49231%_) - (let* ((_%__stx8578185782%_ _%$stx49231%_) - (_%g4923649272%_ + (lambda (_%$stx50336%_) + (let* ((_%__stx8672886729%_ _%$stx50336%_) + (_%g5034150377%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8578185782%_)))) - (let ((_%__kont8578485785%_ - (lambda (_%L49390%_ _%L49392%_) + _%__stx8672886729%_)))) + (let ((_%__kont8673186732%_ + (lambda (_%g5034350495%_ _%g5034450497%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L49392%_ '())) + (cons _%g5034450497%_ '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L49390%_ + (cons (cons _%g5034350495%_ (cons (gx#datum->syntax '#f 'val) @@ -693,237 +1395,238 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'contract-violation!) - (cons _%L49392%_ - (cons _%L49390%_ + (cons _%g5034450497%_ + (cons _%g5034350495%_ (cons (gx#datum->syntax '#f 'val) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont8578685787%_ - (lambda (_%L49329%_ _%L49331%_ _%L49332%_) + (_%__kont8673386734%_ + (lambda (_%g5035450434%_ _%g5035550436%_ _%g5035650437%_) (cons (gx#datum->syntax '#f ':-) (cons (cons (gx#datum->syntax '#f ':~) - (cons _%L49332%_ (cons _%L49331%_ '()))) - (cons _%L49329%_ '())))))) - (if (gx#stx-pair? _%__stx8578185782%_) - (let ((_%e4924049360%_ (gx#syntax-e _%__stx8578185782%_))) - (let ((_%tl4924249367%_ - (let () (declare (not safe)) (##cdr _%e4924049360%_))) - (_%hd4924149364%_ + (cons _%g5035650437%_ + (cons _%g5035550436%_ '()))) + (cons _%g5035450434%_ '())))))) + (if (gx#stx-pair? _%__stx8672886729%_) + (let ((_%e5034550465%_ (gx#syntax-e _%__stx8672886729%_))) + (let ((_%tl5034750472%_ + (let () (declare (not safe)) (##cdr _%e5034550465%_))) + (_%hd5034650469%_ (let () (declare (not safe)) - (##car _%e4924049360%_)))) - (if (gx#stx-pair? _%tl4924249367%_) - (let ((_%e4924349370%_ (gx#syntax-e _%tl4924249367%_))) - (let ((_%tl4924549377%_ + (##car _%e5034550465%_)))) + (if (gx#stx-pair? _%tl5034750472%_) + (let ((_%e5034850475%_ (gx#syntax-e _%tl5034750472%_))) + (let ((_%tl5035050482%_ (let () (declare (not safe)) - (##cdr _%e4924349370%_))) - (_%hd4924449374%_ + (##cdr _%e5034850475%_))) + (_%hd5034950479%_ (let () (declare (not safe)) - (##car _%e4924349370%_)))) - (if (gx#stx-pair? _%tl4924549377%_) - (let ((_%e4924649380%_ - (gx#syntax-e _%tl4924549377%_))) - (let ((_%tl4924849387%_ + (##car _%e5034850475%_)))) + (if (gx#stx-pair? _%tl5035050482%_) + (let ((_%e5035150485%_ + (gx#syntax-e _%tl5035050482%_))) + (let ((_%tl5035350492%_ (let () (declare (not safe)) - (##cdr _%e4924649380%_))) - (_%hd4924749384%_ + (##cdr _%e5035150485%_))) + (_%hd5035250489%_ (let () (declare (not safe)) - (##car _%e4924649380%_)))) - (if (gx#stx-null? _%tl4924849387%_) - (_%__kont8578485785%_ - _%hd4924749384%_ - _%hd4924449374%_) - (if (gx#stx-pair? _%tl4924849387%_) - (let ((_%e4926149309%_ + (##car _%e5035150485%_)))) + (if (gx#stx-null? _%tl5035350492%_) + (_%__kont8673186732%_ + _%hd5035250489%_ + _%hd5034950479%_) + (if (gx#stx-pair? _%tl5035350492%_) + (let ((_%e5036650414%_ (gx#syntax-e - _%tl4924849387%_))) - (let ((_%tl4926349316%_ + _%tl5035350492%_))) + (let ((_%tl5036850421%_ (let () (declare (not safe)) - (##cdr _%e4926149309%_))) - (_%hd4926249313%_ + (##cdr _%e5036650414%_))) + (_%hd5036750418%_ (let () (declare (not safe)) - (##car _%e4926149309%_)))) + (##car _%e5036650414%_)))) (if (gx#identifier? - _%hd4926249313%_) + _%hd5036750418%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypeCast[1]#_g91810_| - _%hd4926249313%_) + |gerbil/core/contract~TypeCast[1]#_g92671_| + _%hd5036750418%_) (if (gx#stx-pair? - _%tl4926349316%_) - (let ((_%e4926449319%_ + _%tl5036850421%_) + (let ((_%e5036950424%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4926349316%_))) - (let ((_%tl4926649326%_ + (gx#syntax-e _%tl5036850421%_))) + (let ((_%tl5037150431%_ (let () (declare (not safe)) - (##cdr _%e4926449319%_))) - (_%hd4926549323%_ + (##cdr _%e5036950424%_))) + (_%hd5037050428%_ (let () (declare (not safe)) - (##car _%e4926449319%_)))) - (if (gx#stx-null? _%tl4926649326%_) - (_%__kont8578685787%_ - _%hd4926549323%_ - _%hd4924749384%_ - _%hd4924449374%_) - (let () (declare (not safe)) (_%g4923649272%_))))) - (let () (declare (not safe)) (_%g4923649272%_))) - (let () (declare (not safe)) (_%g4923649272%_))) + (##car _%e5036950424%_)))) + (if (gx#stx-null? _%tl5037150431%_) + (_%__kont8673386734%_ + _%hd5037050428%_ + _%hd5035250489%_ + _%hd5034950479%_) + (let () (declare (not safe)) (_%g5034150377%_))))) + (let () (declare (not safe)) (_%g5034150377%_))) + (let () (declare (not safe)) (_%g5034150377%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4923649272%_))))) + (_%g5034150377%_))))) (let () (declare (not safe)) - (_%g4923649272%_)))))) + (_%g5034150377%_)))))) (let () (declare (not safe)) - (_%g4923649272%_))))) - (let () (declare (not safe)) (_%g4923649272%_))))) - (let () (declare (not safe)) (_%g4923649272%_))))))) + (_%g5034150377%_))))) + (let () (declare (not safe)) (_%g5034150377%_))))) + (let () (declare (not safe)) (_%g5034150377%_))))))) (define |gerbil/core/contract~TypeCast[:0:]#::-| - (lambda (_%$stx49411%_) - (let ((_%g4941449421%_ - (lambda (_%g4941549417%_) + (lambda (_%$stx50516%_) + (let ((_%g5051950526%_ + (lambda (_%g5052050522%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4941549417%_)))) - (_%g4941449421%_ _%$stx49411%_)))) + _%g5052050522%_)))) + (_%g5051950526%_ _%$stx50516%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:=| - (lambda (_%$stx49425%_) - (let ((_%g4942849435%_ - (lambda (_%g4942949431%_) + (lambda (_%$stx50530%_) + (let ((_%g5053350540%_ + (lambda (_%g5053450536%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4942949431%_)))) - (_%g4942849435%_ _%$stx49425%_)))) + _%g5053450536%_)))) + (_%g5053350540%_ _%$stx50530%_)))) (define |gerbil/core/contract~TypeCast[:0:]#check-nil!| - (lambda (_%$stx49439%_) - (let* ((_%g4944349457%_ - (lambda (_%g4944449453%_) + (lambda (_%$stx50544%_) + (let* ((_%g5054850562%_ + (lambda (_%g5054950558%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4944449453%_))) - (_%g4944249498%_ - (lambda (_%g4944449461%_) - (if (gx#stx-pair? _%g4944449461%_) - (let ((_%e4944649464%_ (gx#syntax-e _%g4944449461%_))) - (let ((_%hd4944749468%_ + _%g5054950558%_))) + (_%g5054750603%_ + (lambda (_%g5054950566%_) + (if (gx#stx-pair? _%g5054950566%_) + (let ((_%e5055150569%_ (gx#syntax-e _%g5054950566%_))) + (let ((_%hd5055250573%_ (let () (declare (not safe)) - (##car _%e4944649464%_))) - (_%tl4944849471%_ + (##car _%e5055150569%_))) + (_%tl5055350576%_ (let () (declare (not safe)) - (##cdr _%e4944649464%_)))) - (if (gx#stx-pair? _%tl4944849471%_) - (let ((_%e4944949474%_ - (gx#syntax-e _%tl4944849471%_))) - (let ((_%hd4945049478%_ + (##cdr _%e5055150569%_)))) + (if (gx#stx-pair? _%tl5055350576%_) + (let ((_%e5055450579%_ + (gx#syntax-e _%tl5055350576%_))) + (let ((_%hd5055550583%_ (let () (declare (not safe)) - (##car _%e4944949474%_))) - (_%tl4945149481%_ + (##car _%e5055450579%_))) + (_%tl5055650586%_ (let () (declare (not safe)) - (##cdr _%e4944949474%_)))) - (if (gx#stx-null? _%tl4945149481%_) - ((lambda (_%L49484%_) + (##cdr _%e5055450579%_)))) + (if (gx#stx-null? _%tl5055650586%_) + ((lambda (_%g5055050589%_) (cons (gx#datum->syntax '#f 'or) - (cons _%L49484%_ + (cons _%g5055050589%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'nil-dereference!) - (cons _%L49484%_ '())) + (cons _%g5055050589%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4945049478%_) - (_%g4944349457%_ _%g4944449461%_)))) - (_%g4944349457%_ _%g4944449461%_)))) - (_%g4944349457%_ _%g4944449461%_))))) - (_%g4944249498%_ _%$stx49439%_)))) + _%hd5055550583%_) + (_%g5054850562%_ _%g5054950566%_)))) + (_%g5054850562%_ _%g5054950566%_)))) + (_%g5054850562%_ _%g5054950566%_))))) + (_%g5054750603%_ _%$stx50544%_)))) (define |gerbil/core/contract~TypeCast[:0:]#contract-violation!| - (lambda (_%stx49502%_) - (let* ((_%g4950549528%_ - (lambda (_%g4950649524%_) + (lambda (_%stx50607%_) + (let* ((_%g5061050633%_ + (lambda (_%g5061150629%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4950649524%_))) - (_%g4950449652%_ - (lambda (_%g4950649532%_) - (if (gx#stx-pair? _%g4950649532%_) - (let ((_%e4951149535%_ (gx#syntax-e _%g4950649532%_))) - (let ((_%hd4951249539%_ + _%g5061150629%_))) + (_%g5060950757%_ + (lambda (_%g5061150637%_) + (if (gx#stx-pair? _%g5061150637%_) + (let ((_%e5061650640%_ (gx#syntax-e _%g5061150637%_))) + (let ((_%hd5061750644%_ (let () (declare (not safe)) - (##car _%e4951149535%_))) - (_%tl4951349542%_ + (##car _%e5061650640%_))) + (_%tl5061850647%_ (let () (declare (not safe)) - (##cdr _%e4951149535%_)))) - (if (gx#stx-pair? _%tl4951349542%_) - (let ((_%e4951449545%_ - (gx#syntax-e _%tl4951349542%_))) - (let ((_%hd4951549549%_ + (##cdr _%e5061650640%_)))) + (if (gx#stx-pair? _%tl5061850647%_) + (let ((_%e5061950650%_ + (gx#syntax-e _%tl5061850647%_))) + (let ((_%hd5062050654%_ (let () (declare (not safe)) - (##car _%e4951449545%_))) - (_%tl4951649552%_ + (##car _%e5061950650%_))) + (_%tl5062150657%_ (let () (declare (not safe)) - (##cdr _%e4951449545%_)))) - (if (gx#stx-pair? _%tl4951649552%_) - (let ((_%e4951749555%_ - (gx#syntax-e _%tl4951649552%_))) - (let ((_%hd4951849559%_ + (##cdr _%e5061950650%_)))) + (if (gx#stx-pair? _%tl5062150657%_) + (let ((_%e5062250660%_ + (gx#syntax-e _%tl5062150657%_))) + (let ((_%hd5062350664%_ (let () (declare (not safe)) - (##car _%e4951749555%_))) - (_%tl4951949562%_ + (##car _%e5062250660%_))) + (_%tl5062450667%_ (let () (declare (not safe)) - (##cdr _%e4951749555%_)))) - (if (gx#stx-pair? _%tl4951949562%_) - (let ((_%e4952049565%_ + (##cdr _%e5062250660%_)))) + (if (gx#stx-pair? _%tl5062450667%_) + (let ((_%e5062550670%_ (gx#syntax-e - _%tl4951949562%_))) - (let ((_%hd4952149569%_ + _%tl5062450667%_))) + (let ((_%hd5062650674%_ (let () (declare (not safe)) - (##car _%e4952049565%_))) - (_%tl4952249572%_ + (##car _%e5062550670%_))) + (_%tl5062750677%_ (let () (declare (not safe)) - (##cdr _%e4952049565%_)))) + (##cdr _%e5062550670%_)))) (if (gx#stx-null? - _%tl4952249572%_) - ((lambda (_%L49575%_ - _%L49577%_ - _%L49578%_ - _%L49579%_) - (let* ((_%g4959949607%_ + _%tl5062750677%_) + ((lambda (_%g5061250680%_ + _%g5061350682%_ + _%g5061450683%_ + _%g5061550684%_) + (let* ((_%g5070450712%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g4960049603%_) + (lambda (_%g5070550708%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4960049603%_))) - (_%g4959849626%_ - (lambda (_%g4960049611%_) - ((lambda (_%L49614%_) + _%g5070550708%_))) + (_%g5070350731%_ + (lambda (_%g5070550716%_) + ((lambda (_%g5070650719%_) (cons (gx#datum->syntax '#f 'abort!) (cons (cons (gx#datum->syntax '#f @@ -934,92 +1637,93 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L49614%_ '())) + (cons _%g5070650719%_ '())) (cons 'contract: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L49577%_ '())) + (cons _%g5061350682%_ '())) (cons 'value: - (cons _%L49575%_ '())))))))) + (cons _%g5061250680%_ '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%g4960049611%_)))) - (_%g4959849626%_ - (let ((_%$e49638%_ - (let ((_%$e49630%_ (gx#stx-source _%L49578%_))) - (if _%$e49630%_ - _%$e49630%_ - (let ((_%$e49634%_ - (gx#stx-source _%stx49502%_))) - (if _%$e49634%_ - _%$e49634%_ - (gx#stx-source _%L49579%_))))))) - (if _%$e49638%_ - ((lambda (_%locat49642%_) + _%g5070550716%_)))) + (_%g5070350731%_ + (let ((_%$e50743%_ + (let ((_%$e50735%_ (gx#stx-source _%g5061450683%_))) + (if _%$e50735%_ + _%$e50735%_ + (let ((_%$e50739%_ + (gx#stx-source _%stx50607%_))) + (if _%$e50739%_ + _%$e50739%_ + (gx#stx-source _%g5061550684%_))))))) + (if _%$e50743%_ + ((lambda (_%locat50747%_) (call-with-output-string '"" - (lambda (_%g4964449646%_) + (lambda (_%g5074950751%_) (let () (declare (not safe)) (##display-locat - _%locat49642%_ + _%locat50747%_ '#t - _%g4964449646%_))))) - _%$e49638%_) + _%g5074950751%_))))) + _%$e50743%_) (gx#expander-context-id (gx#core-context-top))))))) - _%hd4952149569%_ - _%hd4951849559%_ - _%hd4951549549%_ - _%hd4951249539%_) - (_%g4950549528%_ _%g4950649532%_)))) + _%hd5062650674%_ + _%hd5062350664%_ + _%hd5062050654%_ + _%hd5061750644%_) + (_%g5061050633%_ _%g5061150637%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4950549528%_ - _%g4950649532%_)))) - (_%g4950549528%_ _%g4950649532%_)))) - (_%g4950549528%_ _%g4950649532%_)))) - (_%g4950549528%_ _%g4950649532%_))))) - (_%g4950449652%_ _%stx49502%_)))) + (_%g5061050633%_ + _%g5061150637%_)))) + (_%g5061050633%_ _%g5061150637%_)))) + (_%g5061050633%_ _%g5061150637%_)))) + (_%g5061050633%_ _%g5061150637%_))))) + (_%g5060950757%_ _%stx50607%_)))) (define |gerbil/core/contract~TypeCast[:0:]#nil-dereference!| - (lambda (_%stx49656%_) - (let* ((_%g4965949674%_ - (lambda (_%g4966049670%_) + (lambda (_%stx50761%_) + (let* ((_%g5076450779%_ + (lambda (_%g5076550775%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4966049670%_))) - (_%g4965849770%_ - (lambda (_%g4966049678%_) - (if (gx#stx-pair? _%g4966049678%_) - (let ((_%e4966349681%_ (gx#syntax-e _%g4966049678%_))) - (let ((_%hd4966449685%_ + _%g5076550775%_))) + (_%g5076350875%_ + (lambda (_%g5076550783%_) + (if (gx#stx-pair? _%g5076550783%_) + (let ((_%e5076850786%_ (gx#syntax-e _%g5076550783%_))) + (let ((_%hd5076950790%_ (let () (declare (not safe)) - (##car _%e4966349681%_))) - (_%tl4966549688%_ + (##car _%e5076850786%_))) + (_%tl5077050793%_ (let () (declare (not safe)) - (##cdr _%e4966349681%_)))) - (if (gx#stx-pair? _%tl4966549688%_) - (let ((_%e4966649691%_ - (gx#syntax-e _%tl4966549688%_))) - (let ((_%hd4966749695%_ + (##cdr _%e5076850786%_)))) + (if (gx#stx-pair? _%tl5077050793%_) + (let ((_%e5077150796%_ + (gx#syntax-e _%tl5077050793%_))) + (let ((_%hd5077250800%_ (let () (declare (not safe)) - (##car _%e4966649691%_))) - (_%tl4966849698%_ + (##car _%e5077150796%_))) + (_%tl5077350803%_ (let () (declare (not safe)) - (##cdr _%e4966649691%_)))) - (if (gx#stx-null? _%tl4966849698%_) - ((lambda (_%L49701%_ _%L49703%_) - (let* ((_%g4971749725%_ - (lambda (_%g4971849721%_) + (##cdr _%e5077150796%_)))) + (if (gx#stx-null? _%tl5077350803%_) + ((lambda (_%g5076650806%_ + _%g5076750808%_) + (let* ((_%g5082250830%_ + (lambda (_%g5082350826%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4971849721%_))) - (_%g4971649744%_ - (lambda (_%g4971849729%_) - ((lambda (_%L49732%_) + _%g5082350826%_))) + (_%g5082150849%_ + (lambda (_%g5082350834%_) + ((lambda (_%g5082450837%_) (cons (gx#datum->syntax '#f 'abort!) @@ -1032,86 +1736,89 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L49732%_ '())) + (cons _%g5082450837%_ + '())) (cons 'contract: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L49701%_ '())) + (cons _%g5076650806%_ '())) '())) (cons 'value: (cons '#f '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g4971849729%_)))) - (_%g4971649744%_ - (let ((_%$e49756%_ - (let ((_%$e49748%_ + _%g5082350834%_)))) + (_%g5082150849%_ + (let ((_%$e50861%_ + (let ((_%$e50853%_ (gx#stx-source - _%L49701%_))) - (if _%$e49748%_ - _%$e49748%_ - (let ((_%$e49752%_ + _%g5076650806%_))) + (if _%$e50853%_ + _%$e50853%_ + (let ((_%$e50857%_ (gx#stx-source ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%stx49656%_))) - (if _%$e49752%_ _%$e49752%_ (gx#stx-source _%L49703%_))))))) + _%stx50761%_))) + (if _%$e50857%_ + _%$e50857%_ + (gx#stx-source _%g5076750808%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e49756%_ - ((lambda (_%locat49760%_) + (if _%$e50861%_ + ((lambda (_%locat50865%_) (call-with-output-string '"" - (lambda (_%g4976249764%_) + (lambda (_%g5086750869%_) (let () (declare (not safe)) (##display-locat - _%locat49760%_ + _%locat50865%_ '#t - _%g4976249764%_))))) - _%$e49756%_) + _%g5086750869%_))))) + _%$e50861%_) (gx#expander-context-id (gx#core-context-top))))))) - _%hd4966749695%_ - _%hd4966449685%_) - (_%g4965949674%_ _%g4966049678%_)))) - (_%g4965949674%_ _%g4966049678%_)))) - (_%g4965949674%_ _%g4966049678%_))))) - (_%g4965849770%_ _%stx49656%_)))) + _%hd5077250800%_ + _%hd5076950790%_) + (_%g5076450779%_ _%g5076550783%_)))) + (_%g5076450779%_ _%g5076550783%_)))) + (_%g5076450779%_ _%g5076550783%_))))) + (_%g5076350875%_ _%stx50761%_)))) (define |gerbil/core/contract~TypeCast[:0:]#abort!| - (lambda (_%$stx49774%_) - (let* ((_%g4977849792%_ - (lambda (_%g4977949788%_) + (lambda (_%$stx50879%_) + (let* ((_%g5088350897%_ + (lambda (_%g5088450893%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4977949788%_))) - (_%g4977749833%_ - (lambda (_%g4977949796%_) - (if (gx#stx-pair? _%g4977949796%_) - (let ((_%e4978149799%_ (gx#syntax-e _%g4977949796%_))) - (let ((_%hd4978249803%_ + _%g5088450893%_))) + (_%g5088250938%_ + (lambda (_%g5088450901%_) + (if (gx#stx-pair? _%g5088450901%_) + (let ((_%e5088650904%_ (gx#syntax-e _%g5088450901%_))) + (let ((_%hd5088750908%_ (let () (declare (not safe)) - (##car _%e4978149799%_))) - (_%tl4978349806%_ + (##car _%e5088650904%_))) + (_%tl5088850911%_ (let () (declare (not safe)) - (##cdr _%e4978149799%_)))) - (if (gx#stx-pair? _%tl4978349806%_) - (let ((_%e4978449809%_ - (gx#syntax-e _%tl4978349806%_))) - (let ((_%hd4978549813%_ + (##cdr _%e5088650904%_)))) + (if (gx#stx-pair? _%tl5088850911%_) + (let ((_%e5088950914%_ + (gx#syntax-e _%tl5088850911%_))) + (let ((_%hd5089050918%_ (let () (declare (not safe)) - (##car _%e4978449809%_))) - (_%tl4978649816%_ + (##car _%e5088950914%_))) + (_%tl5089150921%_ (let () (declare (not safe)) - (##cdr _%e4978449809%_)))) - (if (gx#stx-null? _%tl4978649816%_) - ((lambda (_%L49819%_) + (##cdr _%e5088950914%_)))) + (if (gx#stx-null? _%tl5089150921%_) + ((lambda (_%g5088550924%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -1123,13 +1830,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin) - (cons _%L49819%_ + (cons _%g5088550924%_ (cons (cons (gx#datum->syntax '#f 'void) '()) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4978549813%_) - (_%g4977849792%_ _%g4977949796%_)))) - (_%g4977849792%_ _%g4977949796%_)))) - (_%g4977849792%_ _%g4977949796%_))))) - (_%g4977749833%_ _%$stx49774%_)))))) + _%hd5089050918%_) + (_%g5088350897%_ _%g5088450901%_)))) + (_%g5088350897%_ _%g5088450901%_)))) + (_%g5088350897%_ _%g5088450901%_))))) + (_%g5088250938%_ _%$stx50879%_)))))) diff --git a/src/bootstrap/gerbil/core/contract~5.scm b/src/bootstrap/gerbil/core/contract~5.scm index 7391e8aa01..084ac7ec3e 100644 --- a/src/bootstrap/gerbil/core/contract~5.scm +++ b/src/bootstrap/gerbil/core/contract~5.scm @@ -1,132 +1,132 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~TypeEnv[1]#_g91812_| + (define |gerbil/core/contract~TypeEnv[1]#_g92673_| (##structure gx#syntax-quote::t 'type-env::t #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g91814_| + (define |gerbil/core/contract~TypeEnv[1]#_g92675_| (##structure gx#syntax-quote::t 'make-type-env #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g91816_| + (define |gerbil/core/contract~TypeEnv[1]#_g92677_| (##structure gx#syntax-quote::t 'type-env? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g91818_| + (define |gerbil/core/contract~TypeEnv[1]#_g92679_| (##structure gx#syntax-quote::t 'type-env-var #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g91819_| + (define |gerbil/core/contract~TypeEnv[1]#_g92680_| (##structure gx#syntax-quote::t 'type-env-type #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g91820_| + (define |gerbil/core/contract~TypeEnv[1]#_g92681_| (##structure gx#syntax-quote::t 'type-env-checked? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g91821_| + (define |gerbil/core/contract~TypeEnv[1]#_g92682_| (##structure gx#syntax-quote::t 'type-env-super #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g91823_| + (define |gerbil/core/contract~TypeEnv[1]#_g92684_| (##structure gx#syntax-quote::t 'type-env-var-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g91824_| + (define |gerbil/core/contract~TypeEnv[1]#_g92685_| (##structure gx#syntax-quote::t 'type-env-type-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g91825_| + (define |gerbil/core/contract~TypeEnv[1]#_g92686_| (##structure gx#syntax-quote::t 'type-env-checked?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g91826_| + (define |gerbil/core/contract~TypeEnv[1]#_g92687_| (##structure gx#syntax-quote::t 'type-env-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g91828_| + (define |gerbil/core/contract~TypeEnv[1]#_g92689_| (##structure gx#syntax-quote::t '&type-env-var #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g91829_| + (define |gerbil/core/contract~TypeEnv[1]#_g92690_| (##structure gx#syntax-quote::t '&type-env-type #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g91830_| + (define |gerbil/core/contract~TypeEnv[1]#_g92691_| (##structure gx#syntax-quote::t '&type-env-checked? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g91831_| + (define |gerbil/core/contract~TypeEnv[1]#_g92692_| (##structure gx#syntax-quote::t '&type-env-super #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g91833_| + (define |gerbil/core/contract~TypeEnv[1]#_g92694_| (##structure gx#syntax-quote::t '&type-env-var-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g91834_| + (define |gerbil/core/contract~TypeEnv[1]#_g92695_| (##structure gx#syntax-quote::t '&type-env-type-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g91835_| + (define |gerbil/core/contract~TypeEnv[1]#_g92696_| (##structure gx#syntax-quote::t '&type-env-checked?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g91836_| + (define |gerbil/core/contract~TypeEnv[1]#_g92697_| (##structure gx#syntax-quote::t '&type-env-super-set! @@ -134,7 +134,7 @@ (gx#current-expander-context) '())) (define |gerbil/core/contract~TypeEnv[:0:]#type-env| - (let ((__obj91660 + (let ((__obj92512 (let () (declare (not safe)) (##structure @@ -163,88 +163,88 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj91660 + __obj92512 'gerbil/core/contract~TypeEnv#type-env::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj91660 'type-env '2 '#f '#f)) + (##unchecked-structure-set! __obj92512 'type-env '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj91660 + __obj92512 '(var type checked? super) - '4 + '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj91660 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj92512 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj91660 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj92512 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj91660 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj92512 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj91660 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj92512 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj91660 '#f '11 '#f '#f)) - (let ((__tmp91811 |gerbil/core/contract~TypeEnv[1]#_g91812_|)) + (##unchecked-structure-set! __obj92512 '#f '12 '#f '#f)) + (let ((__tmp92672 |gerbil/core/contract~TypeEnv[1]#_g92673_|)) (declare (not safe)) - (##unchecked-structure-set! __obj91660 __tmp91811 '12 '#f '#f)) - (let ((__tmp91813 |gerbil/core/contract~TypeEnv[1]#_g91814_|)) + (##unchecked-structure-set! __obj92512 __tmp92672 '3 '#f '#f)) + (let ((__tmp92674 |gerbil/core/contract~TypeEnv[1]#_g92675_|)) (declare (not safe)) - (##unchecked-structure-set! __obj91660 __tmp91813 '13 '#f '#f)) - (let ((__tmp91815 |gerbil/core/contract~TypeEnv[1]#_g91816_|)) + (##unchecked-structure-set! __obj92512 __tmp92674 '13 '#f '#f)) + (let ((__tmp92676 |gerbil/core/contract~TypeEnv[1]#_g92677_|)) (declare (not safe)) - (##unchecked-structure-set! __obj91660 __tmp91815 '14 '#f '#f)) - (let ((__tmp91817 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g91818_|) + (##unchecked-structure-set! __obj92512 __tmp92676 '14 '#f '#f)) + (let ((__tmp92678 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g92679_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g91819_|) + |gerbil/core/contract~TypeEnv[1]#_g92680_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g91820_|) + |gerbil/core/contract~TypeEnv[1]#_g92681_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g91821_|) + |gerbil/core/contract~TypeEnv[1]#_g92682_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj91660 __tmp91817 '15 '#f '#f)) - (let ((__tmp91822 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g91823_|) + (##unchecked-structure-set! __obj92512 __tmp92678 '15 '#f '#f)) + (let ((__tmp92683 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g92684_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g91824_|) + |gerbil/core/contract~TypeEnv[1]#_g92685_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g91825_|) + |gerbil/core/contract~TypeEnv[1]#_g92686_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g91826_|) + |gerbil/core/contract~TypeEnv[1]#_g92687_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj91660 __tmp91822 '16 '#f '#f)) - (let ((__tmp91827 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g91828_|) + (##unchecked-structure-set! __obj92512 __tmp92683 '16 '#f '#f)) + (let ((__tmp92688 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g92689_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g91829_|) + |gerbil/core/contract~TypeEnv[1]#_g92690_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g91830_|) + |gerbil/core/contract~TypeEnv[1]#_g92691_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g91831_|) + |gerbil/core/contract~TypeEnv[1]#_g92692_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj91660 __tmp91827 '17 '#f '#f)) - (let ((__tmp91832 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g91833_|) + (##unchecked-structure-set! __obj92512 __tmp92688 '17 '#f '#f)) + (let ((__tmp92693 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g92694_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g91834_|) + |gerbil/core/contract~TypeEnv[1]#_g92695_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g91835_|) + |gerbil/core/contract~TypeEnv[1]#_g92696_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g91836_|) + |gerbil/core/contract~TypeEnv[1]#_g92697_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj91660 __tmp91832 '18 '#f '#f)) - __obj91660))) + (##unchecked-structure-set! __obj92512 __tmp92693 '18 '#f '#f)) + __obj92512))) diff --git a/src/bootstrap/gerbil/core/contract~6.scm b/src/bootstrap/gerbil/core/contract~6.scm index 28ac32641c..da2ec3e87c 100644 --- a/src/bootstrap/gerbil/core/contract~6.scm +++ b/src/bootstrap/gerbil/core/contract~6.scm @@ -1,32 +1,32 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~Using[1]#_g91837_| + (define |gerbil/core/contract~Using[1]#_g92698_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g91838_| + (define |gerbil/core/contract~Using[1]#_g92699_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g91839_| + (define |gerbil/core/contract~Using[1]#_g92700_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g91842_| + (define |gerbil/core/contract~Using[1]#_g92703_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g91843_| + (define |gerbil/core/contract~Using[1]#_g92704_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g91846_| + (define |gerbil/core/contract~Using[1]#_g92707_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g91847_| + (define |gerbil/core/contract~Using[1]#_g92708_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g91848_| + (define |gerbil/core/contract~Using[1]#_g92709_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g91849_| + (define |gerbil/core/contract~Using[1]#_g92710_| (##structure gx#syntax-quote::t '::- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g91853_| + (define |gerbil/core/contract~Using[1]#_g92714_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g91854_| + (define |gerbil/core/contract~Using[1]#_g92715_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g91855_| + (define |gerbil/core/contract~Using[1]#_g92716_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g91856_| + (define |gerbil/core/contract~Using[1]#_g92717_| (##structure gx#syntax-quote::t '::- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g91860_| + (define |gerbil/core/contract~Using[1]#_g92721_| (##structure gx#syntax-quote::t '%%ref-dotted @@ -35,5046 +35,5105 @@ '())) (begin (define |gerbil/core/contract~Using[:0:]#using| - (lambda (_%stx49852%_) - (let* ((_%__stx8584785848%_ _%stx49852%_) - (_%g4986150070%_ + (lambda (_%stx50957%_) + (let* ((_%__stx8679486795%_ _%stx50957%_) + (_%g5096651175%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8584785848%_)))) - (let ((_%__kont8585085851%_ - (lambda (_%L50976%_ - _%L50978%_ - _%L50979%_ - _%L50980%_ - _%L50981%_) + _%__stx8679486795%_)))) + (let ((_%__kont8679786798%_ + (lambda (_%g5096852067%_ + _%g5096952069%_ + _%g5097052070%_ + _%g5097152071%_ + _%g5097252072%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L50981%_ (cons _%L50980%_ '())) + (cons (cons _%g5097252072%_ + (cons _%g5097152071%_ '())) (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L50981%_ - (cons _%L50979%_ - (cons _%L50978%_ + (cons (cons _%g5097252072%_ + (cons _%g5097052070%_ + (cons _%g5096952069%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g5102451027%_ + (foldr (lambda (_%g5211552118%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g5102551030%_) - (cons _%g5102451027%_ _%g5102551030%_)) + _%g5211652121%_) + (cons _%g5211552118%_ _%g5211652121%_)) '() - _%L50976%_))) + _%g5096852067%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont8585485855%_ - (lambda (_%L50820%_ - _%L50822%_ - _%L50823%_ - _%L50824%_ - _%L50825%_ - _%L50826%_) + (_%__kont8680186802%_ + (lambda (_%g5100051913%_ + _%g5100151915%_ + _%g5100251916%_ + _%g5100351917%_ + _%g5100451918%_ + _%g5100551919%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L50826%_ (cons _%L50825%_ '())) + (cons (cons _%g5100551919%_ + (cons _%g5100451918%_ '())) (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L50826%_ + (cons (cons _%g5100551919%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L50824%_ + (cons _%g5100351917%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L50826%_ + (cons (cons _%g5100551919%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L50823%_ (cons _%L50822%_ '()))) - (foldr (lambda (_%g5087050873%_ _%g5087150876%_) - (cons _%g5087050873%_ _%g5087150876%_)) + (cons _%g5100251916%_ + (cons _%g5100151915%_ '()))) + (foldr (lambda (_%g5196351966%_ _%g5196451969%_) + (cons _%g5196351966%_ _%g5196451969%_)) '() - _%L50820%_))) + _%g5100051913%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont8585885859%_ - (lambda (_%L50637%_ _%L50639%_ _%L50640%_ _%L50641%_) - (let ((_%meta50678%_ + (_%__kont8680586806%_ + (lambda (_%g5103951732%_ + _%g5104051734%_ + _%g5104151735%_ + _%g5104251736%_) + (let ((_%meta51773%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx49852%_ - _%L50639%_)))) + _%stx50957%_ + _%g5104051734%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%meta50678%_)) + _%meta51773%_)) (cons (gx#datum->syntax '#f 'with-interface) - (cons (cons _%L50641%_ - (cons _%L50640%_ - (cons _%L50639%_ '()))) - (foldr (lambda (_%g5068250685%_ - _%g5068350688%_) - (cons _%g5068250685%_ - _%g5068350688%_)) + (cons (cons _%g5104251736%_ + (cons _%g5104151735%_ + (cons _%g5104051734%_ '()))) + (foldr (lambda (_%g5177751780%_ + _%g5177851783%_) + (cons _%g5177751780%_ + _%g5177851783%_)) '() - _%L50637%_))) + _%g5103951732%_))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%meta50678%_)) + _%meta51773%_)) (cons (gx#datum->syntax '#f 'with-class) - (cons (cons _%L50641%_ - (cons _%L50640%_ - (cons _%L50639%_ '()))) - (foldr (lambda (_%g5069250695%_ - _%g5069350698%_) - (cons _%g5069250695%_ - _%g5069350698%_)) + (cons (cons _%g5104251736%_ + (cons _%g5104151735%_ + (cons _%g5104051734%_ + '()))) + (foldr (lambda (_%g5178751790%_ + _%g5178851793%_) + (cons _%g5178751790%_ + _%g5178851793%_)) '() - _%L50637%_))) + _%g5103951732%_))) (gx#raise-syntax-error '#f '"unexpected type; must be a class type or interface" - _%stx49852%_ - _%L50639%_ - _%meta50678%_)))))) - (_%__kont8586285863%_ - (lambda (_%L50515%_ _%L50517%_ _%L50518%_) + _%stx50957%_ + _%g5104051734%_ + _%meta51773%_)))))) + (_%__kont8680986810%_ + (lambda (_%g5106751612%_ _%g5106851614%_ _%g5106951615%_) (cons (gx#datum->syntax '#f 'with-contract) - (cons (cons _%L50518%_ + (cons (cons _%g5106951615%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L50517%_ '()))) - (foldr (lambda (_%g5054150544%_ _%g5054250547%_) - (cons _%g5054150544%_ _%g5054250547%_)) + (cons _%g5106851614%_ '()))) + (foldr (lambda (_%g5163851641%_ _%g5163951644%_) + (cons _%g5163851641%_ _%g5163951644%_)) '() - _%L50515%_))))) - (_%__kont8586685867%_ - (lambda (_%L50373%_ - _%L50375%_ - _%L50376%_ - _%L50377%_ - _%L50378%_) + _%g5106751612%_))))) + (_%__kont8681386814%_ + (lambda (_%g5109451472%_ + _%g5109551474%_ + _%g5109651475%_ + _%g5109751476%_ + _%g5109851477%_) (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L50378%_ + (cons (cons _%g5109851477%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L50377%_ '()))) + (cons _%g5109751476%_ '()))) (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L50378%_ - (cons _%L50376%_ - (cons _%L50375%_ + (cons (cons _%g5109851477%_ + (cons _%g5109651475%_ + (cons _%g5109551474%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g5041950422%_ + (foldr (lambda (_%g5151851521%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g5042050425%_) - (cons _%g5041950422%_ _%g5042050425%_)) + _%g5151951524%_) + (cons _%g5151851521%_ _%g5151951524%_)) '() - _%L50373%_))) + _%g5109451472%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont8587085871%_ - (lambda (_%L50231%_ _%L50233%_ _%L50234%_ _%L50235%_) + (_%__kont8681786818%_ + (lambda (_%g5112951332%_ + _%g5113051334%_ + _%g5113151335%_ + _%g5113251336%_) (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L50235%_ _%L50234%_) + (cons (cons _%g5113251336%_ _%g5113151335%_) (cons (cons (gx#datum->syntax '#f 'using) - (cons _%L50233%_ - (foldr (lambda (_%g5025750260%_ + (cons _%g5113051334%_ + (foldr (lambda (_%g5135851361%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g5025850263%_) - (cons _%g5025750260%_ _%g5025850263%_)) + _%g5135951364%_) + (cons _%g5135851361%_ _%g5135951364%_)) '() - _%L50231%_))) + _%g5112951332%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont8587485875%_ - (lambda (_%L50127%_) + (_%__kont8682186822%_ + (lambda (_%g5115451230%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g5014550148%_ _%g5014650151%_) - (cons _%g5014550148%_ _%g5014650151%_)) + (foldr (lambda (_%g5124851251%_ _%g5124951254%_) + (cons _%g5124851251%_ _%g5124951254%_)) '() - _%L50127%_)))))) - (let* ((_%__match8618086181%_ - (lambda (_%e5005050077%_ - _%hd5005150081%_ - _%tl5005250084%_ - _%e5005350087%_ - _%hd5005450091%_ - _%tl5005550094%_ - _%__splice8587685877%_ - _%target5005650097%_ - _%tl5005850100%_) - (letrec ((_%loop5005950103%_ - (lambda (_%hd5005750107%_ _%body5006350110%_) - (if (gx#stx-pair? _%hd5005750107%_) - (let ((_%e5006050113%_ - (gx#syntax-e _%hd5005750107%_))) - (let ((_%lp-tl5006250120%_ + _%g5115451230%_)))))) + (let* ((_%__match8712787128%_ + (lambda (_%e5115551182%_ + _%hd5115651186%_ + _%tl5115751189%_ + _%e5115851192%_ + _%hd5115951196%_ + _%tl5116051199%_ + _%__splice8682386824%_ + _%target5116151202%_ + _%tl5116351205%_) + (letrec ((_%loop5116451208%_ + (lambda (_%hd5116251212%_ _%body5116851215%_) + (if (gx#stx-pair? _%hd5116251212%_) + (let ((_%e5116551217%_ + (gx#syntax-e _%hd5116251212%_))) + (let ((_%lp-tl5116751224%_ (let () (declare (not safe)) - (##cdr _%e5006050113%_))) - (_%lp-hd5006150117%_ + (##cdr _%e5116551217%_))) + (_%lp-hd5116651221%_ (let () (declare (not safe)) - (##car _%e5006050113%_)))) - (_%loop5005950103%_ - _%lp-tl5006250120%_ - (cons _%lp-hd5006150117%_ - _%body5006350110%_)))) - (let ((_%body5006450123%_ - (reverse _%body5006350110%_))) - (_%__kont8587485875%_ - _%body5006450123%_)))))) - (_%loop5005950103%_ _%target5005650097%_ '())))) - (_%__match8615886159%_ - (lambda (_%e5002850161%_ - _%hd5002950165%_ - _%tl5003050168%_ - _%e5003150171%_ - _%hd5003250175%_ - _%tl5003350178%_ - _%e5003450181%_ - _%hd5003550185%_ - _%tl5003650188%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) - (letrec ((_%loop5004350207%_ - (lambda (_%hd5004150211%_ _%body5004750214%_) - (if (gx#stx-pair? _%hd5004150211%_) - (let ((_%e5004450217%_ - (gx#syntax-e _%hd5004150211%_))) - (let ((_%lp-tl5004650224%_ + (##car _%e5116551217%_)))) + (_%loop5116451208%_ + _%lp-tl5116751224%_ + (cons _%lp-hd5116651221%_ + _%body5116851215%_)))) + (let ((_%body5116951227%_ + (reverse _%body5116851215%_))) + (_%__kont8682186822%_ + _%body5116951227%_)))))) + (_%loop5116451208%_ _%target5116151202%_ '())))) + (_%__match8710587106%_ + (lambda (_%e5113351264%_ + _%hd5113451268%_ + _%tl5113551271%_ + _%e5113651274%_ + _%hd5113751278%_ + _%tl5113851281%_ + _%e5113951284%_ + _%hd5114051288%_ + _%tl5114151291%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) + (letrec ((_%loop5114851310%_ + (lambda (_%hd5114651314%_ _%body5115251317%_) + (if (gx#stx-pair? _%hd5114651314%_) + (let ((_%e5114951319%_ + (gx#syntax-e _%hd5114651314%_))) + (let ((_%lp-tl5115151326%_ (let () (declare (not safe)) - (##cdr _%e5004450217%_))) - (_%lp-hd5004550221%_ + (##cdr _%e5114951319%_))) + (_%lp-hd5115051323%_ (let () (declare (not safe)) - (##car _%e5004450217%_)))) - (_%loop5004350207%_ - _%lp-tl5004650224%_ - (cons _%lp-hd5004550221%_ - _%body5004750214%_)))) - (let ((_%body5004850227%_ - (reverse _%body5004750214%_))) - (let ((_%L50231%_ _%body5004850227%_) - (_%L50233%_ _%tl5003650188%_) - (_%L50234%_ _%tl5003950198%_) - (_%L50235%_ _%hd5003850195%_)) - (if (gx#identifier? _%L50235%_) - (_%__kont8587085871%_ - _%L50231%_ - _%L50233%_ - _%L50234%_ - _%L50235%_) + (##car _%e5114951319%_)))) + (_%loop5114851310%_ + _%lp-tl5115151326%_ + (cons _%lp-hd5115051323%_ + _%body5115251317%_)))) + (let ((_%body5115351329%_ + (reverse _%body5115251317%_))) + (let ((_%g5112951332%_ + _%body5115351329%_) + (_%g5113051334%_ + _%tl5114151291%_) + (_%g5113151335%_ + _%tl5114451301%_) + (_%g5113251336%_ + _%hd5114351298%_)) + (if (gx#identifier? _%g5113251336%_) + (_%__kont8681786818%_ + _%g5112951332%_ + _%g5113051334%_ + _%g5113151335%_ + _%g5113251336%_) (let () (declare (not safe)) - (_%g4986150070%_))))))))) - (_%loop5004350207%_ _%target5004050201%_ '())))) - (_%__match8614486145%_ - (lambda (_%e5002850161%_ - _%hd5002950165%_ - _%tl5003050168%_ - _%e5003150171%_ - _%hd5003250175%_ - _%tl5003350178%_ - _%e5003450181%_ - _%hd5003550185%_ - _%tl5003650188%_) - (if (gx#stx-pair? _%hd5003550185%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd5003550185%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_))))))))) + (_%loop5114851310%_ _%target5114551304%_ '())))) + (_%__match8709187092%_ + (lambda (_%e5113351264%_ + _%hd5113451268%_ + _%tl5113551271%_ + _%e5113651274%_ + _%hd5113751278%_ + _%tl5113851281%_ + _%e5113951284%_ + _%hd5114051288%_ + _%tl5114151291%_) + (if (gx#stx-pair? _%hd5114051288%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5114051288%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl5003350178%_) - (let ((_%__splice8587285873%_ + (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5113851281%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl5003350178%_ + _%tl5113851281%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '1))) - (_%target5004050201%_ + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e5002850161%_ - _%hd5002950165%_ - _%tl5003050168%_ - _%e5003150171%_ - _%hd5003250175%_ - _%tl5003350178%_ - _%e5003450181%_ - _%hd5003550185%_ - _%tl5003650188%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5113351264%_ + _%hd5113451268%_ + _%tl5113551271%_ + _%e5113651274%_ + _%hd5113751278%_ + _%tl5113851281%_ + _%e5113951284%_ + _%hd5114051288%_ + _%tl5114151291%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))) - (_%__match8612686127%_ - (lambda (_%e4999450273%_ - _%hd4999550277%_ - _%tl4999650280%_ - _%e4999750283%_ - _%hd4999850287%_ - _%tl4999950290%_ - _%e5000050293%_ - _%hd5000150297%_ - _%tl5000250300%_ - _%e5000350303%_ - _%hd5000450307%_ - _%tl5000550310%_ - _%e5000650313%_ - _%hd5000750317%_ - _%tl5000850320%_ - _%e5000950323%_ - _%hd5001050327%_ - _%tl5001150330%_ - _%e5001250333%_ - _%hd5001350337%_ - _%tl5001450340%_ - _%__splice8586885869%_ - _%target5001550343%_ - _%tl5001750346%_) - (letrec ((_%loop5001850349%_ - (lambda (_%hd5001650353%_ _%body5002250356%_) - (if (gx#stx-pair? _%hd5001650353%_) - (let ((_%e5001950359%_ - (gx#syntax-e _%hd5001650353%_))) - (let ((_%lp-tl5002150366%_ + (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))) + (_%__match8707387074%_ + (lambda (_%e5109951374%_ + _%hd5110051378%_ + _%tl5110151381%_ + _%e5110251384%_ + _%hd5110351388%_ + _%tl5110451391%_ + _%e5110551394%_ + _%hd5110651398%_ + _%tl5110751401%_ + _%e5110851404%_ + _%hd5110951408%_ + _%tl5111051411%_ + _%e5111151414%_ + _%hd5111251418%_ + _%tl5111351421%_ + _%e5111451424%_ + _%hd5111551428%_ + _%tl5111651431%_ + _%e5111751434%_ + _%hd5111851438%_ + _%tl5111951441%_ + _%__splice8681586816%_ + _%target5112051444%_ + _%tl5112251447%_) + (letrec ((_%loop5112351450%_ + (lambda (_%hd5112151454%_ _%body5112751457%_) + (if (gx#stx-pair? _%hd5112151454%_) + (let ((_%e5112451459%_ + (gx#syntax-e _%hd5112151454%_))) + (let ((_%lp-tl5112651466%_ (let () (declare (not safe)) - (##cdr _%e5001950359%_))) - (_%lp-hd5002050363%_ + (##cdr _%e5112451459%_))) + (_%lp-hd5112551463%_ (let () (declare (not safe)) - (##car _%e5001950359%_)))) - (_%loop5001850349%_ - _%lp-tl5002150366%_ - (cons _%lp-hd5002050363%_ - _%body5002250356%_)))) - (let ((_%body5002350369%_ - (reverse _%body5002250356%_))) - (let ((_%L50373%_ _%body5002350369%_) - (_%L50375%_ _%hd5001350337%_) - (_%L50376%_ _%hd5001050327%_) - (_%L50377%_ _%hd5000750317%_) - (_%L50378%_ _%hd5000150297%_)) - (if (and (gx#identifier? _%L50378%_) - (gx#identifier? _%L50375%_) - (gx#identifier? _%L50376%_) + (##car _%e5112451459%_)))) + (_%loop5112351450%_ + _%lp-tl5112651466%_ + (cons _%lp-hd5112551463%_ + _%body5112751457%_)))) + (let ((_%body5112851469%_ + (reverse _%body5112751457%_))) + (let ((_%g5109451472%_ + _%body5112851469%_) + (_%g5109551474%_ + _%hd5111851438%_) + (_%g5109651475%_ + _%hd5111551428%_) + (_%g5109751476%_ + _%hd5111251418%_) + (_%g5109851477%_ + _%hd5110651398%_)) + (if (and (gx#identifier? + _%g5109851477%_) + (gx#identifier? + _%g5109551474%_) + (gx#identifier? + _%g5109651475%_) (or (gx#free-identifier=? - _%L50376%_ + _%g5109651475%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L50376%_ + _%g5109651475%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L50376%_ + _%g5109651475%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L50376%_ + _%g5109651475%_ (gx#datum->syntax '#f ':?)))) - (_%__kont8586685867%_ - _%L50373%_ - _%L50375%_ - _%L50376%_ - _%L50377%_ - _%L50378%_) - (_%__match8614486145%_ - _%e4999450273%_ - _%hd4999550277%_ - _%tl4999650280%_ - _%e4999750283%_ - _%hd4999850287%_ - _%tl4999950290%_ - _%e5000050293%_ - _%hd5000150297%_ - _%tl5000250300%_)))))))) - (_%loop5001850349%_ _%target5001550343%_ '())))) - (_%__match8607086071%_ - (lambda (_%e4996550435%_ - _%hd4996650439%_ - _%tl4996750442%_ - _%e4996850445%_ - _%hd4996950449%_ - _%tl4997050452%_ - _%e4997150455%_ - _%hd4997250459%_ - _%tl4997350462%_ - _%e4997450465%_ - _%hd4997550469%_ - _%tl4997650472%_ - _%e4997750475%_ - _%hd4997850479%_ - _%tl4997950482%_ - _%__splice8586485865%_ - _%target4998050485%_ - _%tl4998250488%_) - (letrec ((_%loop4998350491%_ - (lambda (_%hd4998150495%_ _%body4998750498%_) - (if (gx#stx-pair? _%hd4998150495%_) - (let ((_%e4998450501%_ - (gx#syntax-e _%hd4998150495%_))) - (let ((_%lp-tl4998650508%_ + (_%__kont8681386814%_ + _%g5109451472%_ + _%g5109551474%_ + _%g5109651475%_ + _%g5109751476%_ + _%g5109851477%_) + (_%__match8709187092%_ + _%e5109951374%_ + _%hd5110051378%_ + _%tl5110151381%_ + _%e5110251384%_ + _%hd5110351388%_ + _%tl5110451391%_ + _%e5110551394%_ + _%hd5110651398%_ + _%tl5110751401%_)))))))) + (_%loop5112351450%_ _%target5112051444%_ '())))) + (_%__match8701787018%_ + (lambda (_%e5107051534%_ + _%hd5107151538%_ + _%tl5107251541%_ + _%e5107351544%_ + _%hd5107451548%_ + _%tl5107551551%_ + _%e5107651554%_ + _%hd5107751558%_ + _%tl5107851561%_ + _%e5107951564%_ + _%hd5108051568%_ + _%tl5108151571%_ + _%e5108251574%_ + _%hd5108351578%_ + _%tl5108451581%_ + _%__splice8681186812%_ + _%target5108551584%_ + _%tl5108751587%_) + (letrec ((_%loop5108851590%_ + (lambda (_%hd5108651594%_ _%body5109251597%_) + (if (gx#stx-pair? _%hd5108651594%_) + (let ((_%e5108951599%_ + (gx#syntax-e _%hd5108651594%_))) + (let ((_%lp-tl5109151606%_ (let () (declare (not safe)) - (##cdr _%e4998450501%_))) - (_%lp-hd4998550505%_ + (##cdr _%e5108951599%_))) + (_%lp-hd5109051603%_ (let () (declare (not safe)) - (##car _%e4998450501%_)))) - (_%loop4998350491%_ - _%lp-tl4998650508%_ - (cons _%lp-hd4998550505%_ - _%body4998750498%_)))) - (let ((_%body4998850511%_ - (reverse _%body4998750498%_))) - (let ((_%L50515%_ _%body4998850511%_) - (_%L50517%_ _%hd4997850479%_) - (_%L50518%_ _%hd4997250459%_)) - (if (gx#identifier? _%L50518%_) - (_%__kont8586285863%_ - _%L50515%_ - _%L50517%_ - _%L50518%_) - (_%__match8614486145%_ - _%e4996550435%_ - _%hd4996650439%_ - _%tl4996750442%_ - _%e4996850445%_ - _%hd4996950449%_ - _%tl4997050452%_ - _%e4997150455%_ - _%hd4997250459%_ - _%tl4997350462%_)))))))) - (_%loop4998350491%_ _%target4998050485%_ '())))) - (_%__match8605086051%_ - (lambda (_%e4996550435%_ - _%hd4996650439%_ - _%tl4996750442%_ - _%e4996850445%_ - _%hd4996950449%_ - _%tl4997050452%_ - _%e4997150455%_ - _%hd4997250459%_ - _%tl4997350462%_ - _%e4997450465%_ - _%hd4997550469%_ - _%tl4997650472%_) - (if (gx#identifier? _%hd4997550469%_) + (##car _%e5108951599%_)))) + (_%loop5108851590%_ + _%lp-tl5109151606%_ + (cons _%lp-hd5109051603%_ + _%body5109251597%_)))) + (let ((_%body5109351609%_ + (reverse _%body5109251597%_))) + (let ((_%g5106751612%_ + _%body5109351609%_) + (_%g5106851614%_ + _%hd5108351578%_) + (_%g5106951615%_ + _%hd5107751558%_)) + (if (gx#identifier? _%g5106951615%_) + (_%__kont8680986810%_ + _%g5106751612%_ + _%g5106851614%_ + _%g5106951615%_) + (_%__match8709187092%_ + _%e5107051534%_ + _%hd5107151538%_ + _%tl5107251541%_ + _%e5107351544%_ + _%hd5107451548%_ + _%tl5107551551%_ + _%e5107651554%_ + _%hd5107751558%_ + _%tl5107851561%_)))))))) + (_%loop5108851590%_ _%target5108551584%_ '())))) + (_%__match8699786998%_ + (lambda (_%e5107051534%_ + _%hd5107151538%_ + _%tl5107251541%_ + _%e5107351544%_ + _%hd5107451548%_ + _%tl5107551551%_ + _%e5107651554%_ + _%hd5107751558%_ + _%tl5107851561%_ + _%e5107951564%_ + _%hd5108051568%_ + _%tl5108151571%_) + (if (gx#identifier? _%hd5108051568%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91837_| - _%hd4997550469%_) - (if (gx#stx-pair? _%tl4997650472%_) - (let ((_%e4997750475%_ - (gx#syntax-e _%tl4997650472%_))) - (let ((_%tl4997950482%_ + |gerbil/core/contract~Using[1]#_g92698_| + _%hd5108051568%_) + (if (gx#stx-pair? _%tl5108151571%_) + (let ((_%e5108251574%_ + (gx#syntax-e _%tl5108151571%_))) + (let ((_%tl5108451581%_ (let () (declare (not safe)) - (##cdr _%e4997750475%_))) - (_%hd4997850479%_ + (##cdr _%e5108251574%_))) + (_%hd5108351578%_ (let () (declare (not safe)) - (##car _%e4997750475%_)))) - (if (gx#stx-null? _%tl4997950482%_) + (##car _%e5108251574%_)))) + (if (gx#stx-null? _%tl5108451581%_) (if (gx#stx-pair/null? - _%tl4997050452%_) - (let ((_%__splice8586485865%_ + _%tl5107551551%_) + (let ((_%__splice8681186812%_ (gx#syntax-split-splice->vector - _%tl4997050452%_ + _%tl5107551551%_ '0))) - (let ((_%tl4998250488%_ + (let ((_%tl5108751587%_ (let () (declare (not safe)) (##vector-ref - _%__splice8586485865%_ + _%__splice8681186812%_ '1))) - (_%target4998050485%_ + (_%target5108551584%_ (let () (declare (not safe)) (##vector-ref - _%__splice8586485865%_ + _%__splice8681186812%_ '0)))) (if (gx#stx-null? - _%tl4998250488%_) - (_%__match8607086071%_ - _%e4996550435%_ - _%hd4996650439%_ - _%tl4996750442%_ - _%e4996850445%_ - _%hd4996950449%_ - _%tl4997050452%_ - _%e4997150455%_ - _%hd4997250459%_ - _%tl4997350462%_ - _%e4997450465%_ - _%hd4997550469%_ - _%tl4997650472%_ - _%e4997750475%_ - _%hd4997850479%_ - _%tl4997950482%_ - _%__splice8586485865%_ - _%target4998050485%_ - _%tl4998250488%_) + _%tl5108751587%_) + (_%__match8701787018%_ + _%e5107051534%_ + _%hd5107151538%_ + _%tl5107251541%_ + _%e5107351544%_ + _%hd5107451548%_ + _%tl5107551551%_ + _%e5107651554%_ + _%hd5107751558%_ + _%tl5107851561%_ + _%e5107951564%_ + _%hd5108051568%_ + _%tl5108151571%_ + _%e5108251574%_ + _%hd5108351578%_ + _%tl5108451581%_ + _%__splice8681186812%_ + _%target5108551584%_ + _%tl5108751587%_) (if (gx#stx-pair? - _%hd4997250459%_) - (let ((_%e5003750191%_ + _%hd5107751558%_) + (let ((_%e5114251294%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd4997250459%_))) - (let ((_%tl5003950198%_ + (gx#syntax-e _%hd5107751558%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))))) + (##car _%e5114251294%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4997250459%_) - (let ((_%e5003750191%_ + _%hd5107751558%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4997250459%_))) - (let ((_%tl5003950198%_ + _%hd5107751558%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) + (_%g5096651175%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) - (if (gx#stx-pair? _%tl4997950482%_) - (let ((_%e5000950323%_ + (_%g5096651175%_)))) + (if (gx#stx-pair? _%tl5108451581%_) + (let ((_%e5111451424%_ (gx#syntax-e - _%tl4997950482%_))) - (let ((_%tl5001150330%_ + _%tl5108451581%_))) + (let ((_%tl5111651431%_ (let () (declare (not safe)) - (##cdr _%e5000950323%_))) - (_%hd5001050327%_ + (##cdr _%e5111451424%_))) + (_%hd5111551428%_ (let () (declare (not safe)) - (##car _%e5000950323%_)))) + (##car _%e5111451424%_)))) (if (gx#stx-pair? - _%tl5001150330%_) - (let ((_%e5001250333%_ + _%tl5111651431%_) + (let ((_%e5111751434%_ (gx#syntax-e - _%tl5001150330%_))) - (let ((_%tl5001450340%_ + _%tl5111651431%_))) + (let ((_%tl5111951441%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5001250333%_))) - (_%hd5001350337%_ - (let () (declare (not safe)) (##car _%e5001250333%_)))) - (if (gx#stx-null? _%tl5001450340%_) - (if (gx#stx-pair/null? _%tl4997050452%_) - (let ((_%__splice8586885869%_ + (##cdr _%e5111751434%_))) + (_%hd5111851438%_ + (let () (declare (not safe)) (##car _%e5111751434%_)))) + (if (gx#stx-null? _%tl5111951441%_) + (if (gx#stx-pair/null? _%tl5107551551%_) + (let ((_%__splice8681586816%_ (gx#syntax-split-splice->vector - _%tl4997050452%_ + _%tl5107551551%_ '0))) - (let ((_%tl5001750346%_ + (let ((_%tl5112251447%_ (let () (declare (not safe)) - (##vector-ref _%__splice8586885869%_ '1))) - (_%target5001550343%_ + (##vector-ref _%__splice8681586816%_ '1))) + (_%target5112051444%_ (let () (declare (not safe)) (##vector-ref - _%__splice8586885869%_ + _%__splice8681586816%_ '0)))) - (if (gx#stx-null? _%tl5001750346%_) - (_%__match8612686127%_ - _%e4996550435%_ - _%hd4996650439%_ - _%tl4996750442%_ - _%e4996850445%_ - _%hd4996950449%_ - _%tl4997050452%_ - _%e4997150455%_ - _%hd4997250459%_ - _%tl4997350462%_ - _%e4997450465%_ - _%hd4997550469%_ - _%tl4997650472%_ - _%e4997750475%_ - _%hd4997850479%_ - _%tl4997950482%_ - _%e5000950323%_ - _%hd5001050327%_ - _%tl5001150330%_ - _%e5001250333%_ - _%hd5001350337%_ - _%tl5001450340%_ - _%__splice8586885869%_ - _%target5001550343%_ - _%tl5001750346%_) - (if (gx#stx-pair? _%hd4997250459%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4997250459%_))) - (let ((_%tl5003950198%_ + (if (gx#stx-null? _%tl5112251447%_) + (_%__match8707387074%_ + _%e5107051534%_ + _%hd5107151538%_ + _%tl5107251541%_ + _%e5107351544%_ + _%hd5107451548%_ + _%tl5107551551%_ + _%e5107651554%_ + _%hd5107751558%_ + _%tl5107851561%_ + _%e5107951564%_ + _%hd5108051568%_ + _%tl5108151571%_ + _%e5108251574%_ + _%hd5108351578%_ + _%tl5108451581%_ + _%e5111451424%_ + _%hd5111551428%_ + _%tl5111651431%_ + _%e5111751434%_ + _%hd5111851438%_ + _%tl5111951441%_ + _%__splice8681586816%_ + _%target5112051444%_ + _%tl5112251447%_) + (if (gx#stx-pair? _%hd5107751558%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5107751558%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) + (_%g5096651175%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))))) - (if (gx#stx-pair? _%hd4997250459%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4997250459%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_)))))) + (if (gx#stx-pair? _%hd5107751558%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5107751558%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4997250459%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4997250459%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5107751558%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5107751558%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl4997050452%_) - (let ((_%__splice8587285873%_ + (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5107551551%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4997050452%_ + _%tl5107551551%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '1))) - (_%target5004050201%_ + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4996550435%_ - _%hd4996650439%_ - _%tl4996750442%_ - _%e4996850445%_ - _%hd4996950449%_ - _%tl4997050452%_ - _%e4997150455%_ - _%hd4997250459%_ - _%tl4997350462%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5107051534%_ + _%hd5107151538%_ + _%tl5107251541%_ + _%e5107351544%_ + _%hd5107451548%_ + _%tl5107551551%_ + _%e5107651554%_ + _%hd5107751558%_ + _%tl5107851561%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_)))))) - (if (gx#stx-pair? _%hd4997250459%_) - (let ((_%e5003750191%_ (gx#syntax-e _%hd4997250459%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_)))))) + (if (gx#stx-pair? _%hd5107751558%_) + (let ((_%e5114251294%_ (gx#syntax-e _%hd5107751558%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl4997050452%_) - (let ((_%__splice8587285873%_ + (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5107551551%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4997050452%_ + _%tl5107551551%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '1))) - (_%target5004050201%_ + (##vector-ref _%__splice8681986820%_ '1))) + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4996550435%_ - _%hd4996650439%_ - _%tl4996750442%_ - _%e4996850445%_ - _%hd4996950449%_ - _%tl4997050452%_ - _%e4997150455%_ - _%hd4997250459%_ - _%tl4997350462%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5107051534%_ + _%hd5107151538%_ + _%tl5107251541%_ + _%e5107351544%_ + _%hd5107451548%_ + _%tl5107551551%_ + _%e5107651554%_ + _%hd5107751558%_ + _%tl5107851561%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_)))))) + (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4997250459%_) - (let ((_%e5003750191%_ + _%hd5107751558%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4997250459%_))) - (let ((_%tl5003950198%_ + _%hd5107751558%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (if (gx#stx-pair/null? - _%tl4997050452%_) - (let ((_%__splice8587285873%_ + _%tl5107551551%_) + (let ((_%__splice8681986820%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice->vector _%tl4997050452%_ '0))) - (let ((_%tl5004250204%_ + (gx#syntax-split-splice->vector _%tl5107551551%_ '0))) + (let ((_%tl5114751307%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '1))) - (_%target5004050201%_ + (##vector-ref _%__splice8681986820%_ '1))) + (_%target5114551304%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4996550435%_ - _%hd4996650439%_ - _%tl4996750442%_ - _%e4996850445%_ - _%hd4996950449%_ - _%tl4997050452%_ - _%e4997150455%_ - _%hd4997250459%_ - _%tl4997350462%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) - (let () (declare (not safe)) (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))) + (##vector-ref _%__splice8681986820%_ '0)))) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5107051534%_ + _%hd5107151538%_ + _%tl5107251541%_ + _%e5107351544%_ + _%hd5107451548%_ + _%tl5107551551%_ + _%e5107651554%_ + _%hd5107751558%_ + _%tl5107851561%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) + (let () (declare (not safe)) (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4986150070%_))))))) - (if (gx#stx-pair? _%hd4997250459%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4997250459%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_))))))) + (if (gx#stx-pair? _%hd5107751558%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5107751558%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (if (gx#stx-pair/null? - _%tl4997050452%_) - (let ((_%__splice8587285873%_ + _%tl5107551551%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4997050452%_ + _%tl5107551551%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '1))) - (_%target5004050201%_ + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) (if (gx#stx-null? - _%tl5004250204%_) - (_%__match8615886159%_ - _%e4996550435%_ - _%hd4996650439%_ - _%tl4996750442%_ - _%e4996850445%_ - _%hd4996950449%_ - _%tl4997050452%_ - _%e4997150455%_ - _%hd4997250459%_ - _%tl4997350462%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + _%tl5114751307%_) + (_%__match8710587106%_ + _%e5107051534%_ + _%hd5107151538%_ + _%tl5107251541%_ + _%e5107351544%_ + _%hd5107451548%_ + _%tl5107551551%_ + _%e5107651554%_ + _%hd5107751558%_ + _%tl5107851561%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4997250459%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4997250459%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5107751558%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5107751558%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl4997050452%_) - (let ((_%__splice8587285873%_ + (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5107551551%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4997050452%_ + _%tl5107551551%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '1))) - (_%target5004050201%_ + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) (if (gx#stx-null? - _%tl5004250204%_) - (_%__match8615886159%_ - _%e4996550435%_ - _%hd4996650439%_ - _%tl4996750442%_ - _%e4996850445%_ - _%hd4996950449%_ - _%tl4997050452%_ - _%e4997150455%_ - _%hd4997250459%_ - _%tl4997350462%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + _%tl5114751307%_) + (_%__match8710587106%_ + _%e5107051534%_ + _%hd5107151538%_ + _%tl5107251541%_ + _%e5107351544%_ + _%hd5107451548%_ + _%tl5107551551%_ + _%e5107651554%_ + _%hd5107751558%_ + _%tl5107851561%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4997250459%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4997250459%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5107751558%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5107751558%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl4997050452%_) - (let ((_%__splice8587285873%_ + (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5107551551%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4997050452%_ + _%tl5107551551%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '1))) - (_%target5004050201%_ + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4996550435%_ - _%hd4996650439%_ - _%tl4996750442%_ - _%e4996850445%_ - _%hd4996950449%_ - _%tl4997050452%_ - _%e4997150455%_ - _%hd4997250459%_ - _%tl4997350462%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5107051534%_ + _%hd5107151538%_ + _%tl5107251541%_ + _%e5107351544%_ + _%hd5107451548%_ + _%tl5107551551%_ + _%e5107651554%_ + _%hd5107751558%_ + _%tl5107851561%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_)))))) - (_%__match8602686027%_ - (lambda (_%e4993850557%_ - _%hd4993950561%_ - _%tl4994050564%_ - _%e4994150567%_ - _%hd4994250571%_ - _%tl4994350574%_ - _%e4994450577%_ - _%hd4994550581%_ - _%tl4994650584%_ - _%e4994750587%_ - _%hd4994850591%_ - _%tl4994950594%_ - _%e4995050597%_ - _%hd4995150601%_ - _%tl4995250604%_ - _%__splice8586085861%_ - _%target4995350607%_ - _%tl4995550610%_) - (letrec ((_%loop4995650613%_ - (lambda (_%hd4995450617%_ _%body4996050620%_) - (if (gx#stx-pair? _%hd4995450617%_) - (let ((_%e4995750623%_ - (gx#syntax-e _%hd4995450617%_))) - (let ((_%lp-tl4995950630%_ + (_%g5096651175%_)))))) + (_%__match8697386974%_ + (lambda (_%e5104351654%_ + _%hd5104451658%_ + _%tl5104551661%_ + _%e5104651664%_ + _%hd5104751668%_ + _%tl5104851671%_ + _%e5104951674%_ + _%hd5105051678%_ + _%tl5105151681%_ + _%e5105251684%_ + _%hd5105351688%_ + _%tl5105451691%_ + _%e5105551694%_ + _%hd5105651698%_ + _%tl5105751701%_ + _%__splice8680786808%_ + _%target5105851704%_ + _%tl5106051707%_) + (letrec ((_%loop5106151710%_ + (lambda (_%hd5105951714%_ _%body5106551717%_) + (if (gx#stx-pair? _%hd5105951714%_) + (let ((_%e5106251719%_ + (gx#syntax-e _%hd5105951714%_))) + (let ((_%lp-tl5106451726%_ (let () (declare (not safe)) - (##cdr _%e4995750623%_))) - (_%lp-hd4995850627%_ + (##cdr _%e5106251719%_))) + (_%lp-hd5106351723%_ (let () (declare (not safe)) - (##car _%e4995750623%_)))) - (_%loop4995650613%_ - _%lp-tl4995950630%_ - (cons _%lp-hd4995850627%_ - _%body4996050620%_)))) - (let ((_%body4996150633%_ - (reverse _%body4996050620%_))) - (let ((_%L50637%_ _%body4996150633%_) - (_%L50639%_ _%hd4995150601%_) - (_%L50640%_ _%hd4994850591%_) - (_%L50641%_ _%hd4994550581%_)) - (if (and (gx#identifier? _%L50641%_) - (gx#identifier? _%L50639%_) - (gx#identifier? _%L50640%_) + (##car _%e5106251719%_)))) + (_%loop5106151710%_ + _%lp-tl5106451726%_ + (cons _%lp-hd5106351723%_ + _%body5106551717%_)))) + (let ((_%body5106651729%_ + (reverse _%body5106551717%_))) + (let ((_%g5103951732%_ + _%body5106651729%_) + (_%g5104051734%_ + _%hd5105651698%_) + (_%g5104151735%_ + _%hd5105351688%_) + (_%g5104251736%_ + _%hd5105051678%_)) + (if (and (gx#identifier? + _%g5104251736%_) + (gx#identifier? + _%g5104051734%_) + (gx#identifier? + _%g5104151735%_) (or (gx#free-identifier=? - _%L50640%_ + _%g5104151735%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L50640%_ + _%g5104151735%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L50640%_ + _%g5104151735%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L50640%_ + _%g5104151735%_ (gx#datum->syntax '#f ':?)))) - (_%__kont8585885859%_ - _%L50637%_ - _%L50639%_ - _%L50640%_ - _%L50641%_) - (_%__match8605086051%_ - _%e4993850557%_ - _%hd4993950561%_ - _%tl4994050564%_ - _%e4994150567%_ - _%hd4994250571%_ - _%tl4994350574%_ - _%e4994450577%_ - _%hd4994550581%_ - _%tl4994650584%_ - _%e4994750587%_ - _%hd4994850591%_ - _%tl4994950594%_)))))))) - (_%loop4995650613%_ _%target4995350607%_ '())))) - (_%__match8598685987%_ - (lambda (_%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e4991050740%_ - _%hd4991150744%_ - _%tl4991250747%_ - _%e4991350750%_ - _%hd4991450754%_ - _%tl4991550757%_ - _%e4991650760%_ - _%hd4991750764%_ - _%tl4991850767%_ - _%e4991950770%_ - _%hd4992050774%_ - _%tl4992150777%_ - _%e4992250780%_ - _%hd4992350784%_ - _%tl4992450787%_ - _%__splice8585685857%_ - _%target4992550790%_ - _%tl4992750793%_) - (letrec ((_%loop4992850796%_ - (lambda (_%hd4992650800%_ _%body4993250803%_) - (if (gx#stx-pair? _%hd4992650800%_) - (let ((_%e4992950806%_ - (gx#syntax-e _%hd4992650800%_))) - (let ((_%lp-tl4993150813%_ + (_%__kont8680586806%_ + _%g5103951732%_ + _%g5104051734%_ + _%g5104151735%_ + _%g5104251736%_) + (_%__match8699786998%_ + _%e5104351654%_ + _%hd5104451658%_ + _%tl5104551661%_ + _%e5104651664%_ + _%hd5104751668%_ + _%tl5104851671%_ + _%e5104951674%_ + _%hd5105051678%_ + _%tl5105151681%_ + _%e5105251684%_ + _%hd5105351688%_ + _%tl5105451691%_)))))))) + (_%loop5106151710%_ _%target5105851704%_ '())))) + (_%__match8693386934%_ + (lambda (_%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5101551835%_ + _%hd5101651839%_ + _%tl5101751842%_ + _%e5101851845%_ + _%hd5101951849%_ + _%tl5102051852%_ + _%e5102151855%_ + _%hd5102251859%_ + _%tl5102351862%_ + _%e5102451865%_ + _%hd5102551869%_ + _%tl5102651872%_ + _%e5102751875%_ + _%hd5102851879%_ + _%tl5102951882%_ + _%__splice8680386804%_ + _%target5103051885%_ + _%tl5103251888%_) + (letrec ((_%loop5103351891%_ + (lambda (_%hd5103151895%_ _%body5103751898%_) + (if (gx#stx-pair? _%hd5103151895%_) + (let ((_%e5103451900%_ + (gx#syntax-e _%hd5103151895%_))) + (let ((_%lp-tl5103651907%_ (let () (declare (not safe)) - (##cdr _%e4992950806%_))) - (_%lp-hd4993050810%_ + (##cdr _%e5103451900%_))) + (_%lp-hd5103551904%_ (let () (declare (not safe)) - (##car _%e4992950806%_)))) - (_%loop4992850796%_ - _%lp-tl4993150813%_ - (cons _%lp-hd4993050810%_ - _%body4993250803%_)))) - (let ((_%body4993350816%_ - (reverse _%body4993250803%_))) - (let ((_%L50820%_ _%body4993350816%_) - (_%L50822%_ _%hd4992350784%_) - (_%L50823%_ _%hd4992050774%_) - (_%L50824%_ _%hd4991750764%_) - (_%L50825%_ _%hd4991150744%_) - (_%L50826%_ _%hd4990850734%_)) - (if (and (gx#identifier? _%L50826%_) - (gx#identifier? _%L50822%_) - (gx#identifier? _%L50823%_) + (##car _%e5103451900%_)))) + (_%loop5103351891%_ + _%lp-tl5103651907%_ + (cons _%lp-hd5103551904%_ + _%body5103751898%_)))) + (let ((_%body5103851910%_ + (reverse _%body5103751898%_))) + (let ((_%g5100051913%_ + _%body5103851910%_) + (_%g5100151915%_ + _%hd5102851879%_) + (_%g5100251916%_ + _%hd5102551869%_) + (_%g5100351917%_ + _%hd5102251859%_) + (_%g5100451918%_ + _%hd5101651839%_) + (_%g5100551919%_ + _%hd5101351829%_)) + (if (and (gx#identifier? + _%g5100551919%_) + (gx#identifier? + _%g5100151915%_) + (gx#identifier? + _%g5100251916%_) (or (gx#free-identifier=? - _%L50823%_ + _%g5100251916%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L50823%_ + _%g5100251916%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L50823%_ + _%g5100251916%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L50823%_ + _%g5100251916%_ (gx#datum->syntax '#f ':?)))) - (_%__kont8585485855%_ - _%L50820%_ - _%L50822%_ - _%L50823%_ - _%L50824%_ - _%L50825%_ - _%L50826%_) - (_%__match8605086051%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e4991050740%_ - _%hd4991150744%_ - _%tl4991250747%_)))))))) - (_%loop4992850796%_ _%target4992550790%_ '())))) - (_%__match8595485955%_ - (lambda (_%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e4991050740%_ - _%hd4991150744%_ - _%tl4991250747%_ - _%e4991350750%_ - _%hd4991450754%_ - _%tl4991550757%_) - (if (gx#identifier? _%hd4991450754%_) + (_%__kont8680186802%_ + _%g5100051913%_ + _%g5100151915%_ + _%g5100251916%_ + _%g5100351917%_ + _%g5100451918%_ + _%g5100551919%_) + (_%__match8699786998%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5101551835%_ + _%hd5101651839%_ + _%tl5101751842%_)))))))) + (_%loop5103351891%_ _%target5103051885%_ '())))) + (_%__match8690186902%_ + (lambda (_%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5101551835%_ + _%hd5101651839%_ + _%tl5101751842%_ + _%e5101851845%_ + _%hd5101951849%_ + _%tl5102051852%_) + (if (gx#identifier? _%hd5101951849%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91838_| - _%hd4991450754%_) - (if (gx#stx-pair? _%tl4991550757%_) - (let ((_%e4991650760%_ - (gx#syntax-e _%tl4991550757%_))) - (let ((_%tl4991850767%_ + |gerbil/core/contract~Using[1]#_g92699_| + _%hd5101951849%_) + (if (gx#stx-pair? _%tl5102051852%_) + (let ((_%e5102151855%_ + (gx#syntax-e _%tl5102051852%_))) + (let ((_%tl5102351862%_ (let () (declare (not safe)) - (##cdr _%e4991650760%_))) - (_%hd4991750764%_ + (##cdr _%e5102151855%_))) + (_%hd5102251859%_ (let () (declare (not safe)) - (##car _%e4991650760%_)))) - (if (gx#stx-pair? _%tl4991850767%_) - (let ((_%e4991950770%_ + (##car _%e5102151855%_)))) + (if (gx#stx-pair? _%tl5102351862%_) + (let ((_%e5102451865%_ (gx#syntax-e - _%tl4991850767%_))) - (let ((_%tl4992150777%_ + _%tl5102351862%_))) + (let ((_%tl5102651872%_ (let () (declare (not safe)) - (##cdr _%e4991950770%_))) - (_%hd4992050774%_ + (##cdr _%e5102451865%_))) + (_%hd5102551869%_ (let () (declare (not safe)) - (##car _%e4991950770%_)))) + (##car _%e5102451865%_)))) (if (gx#stx-pair? - _%tl4992150777%_) - (let ((_%e4992250780%_ + _%tl5102651872%_) + (let ((_%e5102751875%_ (gx#syntax-e - _%tl4992150777%_))) - (let ((_%tl4992450787%_ + _%tl5102651872%_))) + (let ((_%tl5102951882%_ (let () (declare (not safe)) - (##cdr _%e4992250780%_))) - (_%hd4992350784%_ + (##cdr _%e5102751875%_))) + (_%hd5102851879%_ (let () (declare (not safe)) - (##car _%e4992250780%_)))) + (##car _%e5102751875%_)))) (if (gx#stx-null? - _%tl4992450787%_) + _%tl5102951882%_) (if (gx#stx-pair/null? - _%tl4990650727%_) - (let ((_%__splice8585685857%_ + _%tl5101151822%_) + (let ((_%__splice8680386804%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl4992750793%_ + (let ((_%tl5103251888%_ (let () (declare (not safe)) - (##vector-ref _%__splice8585685857%_ '1))) - (_%target4992550790%_ + (##vector-ref _%__splice8680386804%_ '1))) + (_%target5103051885%_ (let () (declare (not safe)) - (##vector-ref _%__splice8585685857%_ '0)))) - (if (gx#stx-null? _%tl4992750793%_) - (_%__match8598685987%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e4991050740%_ - _%hd4991150744%_ - _%tl4991250747%_ - _%e4991350750%_ - _%hd4991450754%_ - _%tl4991550757%_ - _%e4991650760%_ - _%hd4991750764%_ - _%tl4991850767%_ - _%e4991950770%_ - _%hd4992050774%_ - _%tl4992150777%_ - _%e4992250780%_ - _%hd4992350784%_ - _%tl4992450787%_ - _%__splice8585685857%_ - _%target4992550790%_ - _%tl4992750793%_) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4990850734%_))) - (let ((_%tl5003950198%_ + (##vector-ref _%__splice8680386804%_ '0)))) + (if (gx#stx-null? _%tl5103251888%_) + (_%__match8693386934%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5101551835%_ + _%hd5101651839%_ + _%tl5101751842%_ + _%e5101851845%_ + _%hd5101951849%_ + _%tl5102051852%_ + _%e5102151855%_ + _%hd5102251859%_ + _%tl5102351862%_ + _%e5102451865%_ + _%hd5102551869%_ + _%tl5102651872%_ + _%e5102751875%_ + _%hd5102851879%_ + _%tl5102951882%_ + _%__splice8680386804%_ + _%target5103051885%_ + _%tl5103251888%_) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) + (_%g5096651175%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))))) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4990850734%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_)))))) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ (gx#syntax-e _%hd4990850734%_))) - (let ((_%tl5003950198%_ + (##car _%e5114251294%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ (gx#syntax-e _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl4990650727%_) - (let ((_%__splice8587285873%_ + (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5101151822%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '1))) - (_%target5004050201%_ + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_)))))) + (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd4991150744%_) + _%hd5101651839%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91837_| - _%hd4991150744%_) + |gerbil/core/contract~Using[1]#_g92698_| + _%hd5101651839%_) (if (gx#stx-null? - _%tl4992150777%_) + _%tl5102651872%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl4990650727%_) - (let ((_%__splice8586885869%_ + _%tl5101151822%_) + (let ((_%__splice8681586816%_ (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl5001750346%_ + (let ((_%tl5112251447%_ (let () (declare (not safe)) - (##vector-ref _%__splice8586885869%_ '1))) - (_%target5001550343%_ + (##vector-ref _%__splice8681586816%_ '1))) + (_%target5112051444%_ (let () (declare (not safe)) (##vector-ref - _%__splice8586885869%_ + _%__splice8681586816%_ '0)))) - (if (gx#stx-null? _%tl5001750346%_) - (_%__match8612686127%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e4991050740%_ - _%hd4991150744%_ - _%tl4991250747%_ - _%e4991350750%_ - _%hd4991450754%_ - _%tl4991550757%_ - _%e4991650760%_ - _%hd4991750764%_ - _%tl4991850767%_ - _%e4991950770%_ - _%hd4992050774%_ - _%tl4992150777%_ - _%__splice8586885869%_ - _%target5001550343%_ - _%tl5001750346%_) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4990850734%_))) - (let ((_%tl5003950198%_ + (if (gx#stx-null? _%tl5112251447%_) + (_%__match8707387074%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5101551835%_ + _%hd5101651839%_ + _%tl5101751842%_ + _%e5101851845%_ + _%hd5101951849%_ + _%tl5102051852%_ + _%e5102151855%_ + _%hd5102251859%_ + _%tl5102351862%_ + _%e5102451865%_ + _%hd5102551869%_ + _%tl5102651872%_ + _%__splice8681586816%_ + _%target5112051444%_ + _%tl5112251447%_) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) + (_%g5096651175%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))))) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4990850734%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_)))))) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4990850734%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl4990650727%_) - (let ((_%__splice8587285873%_ + (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5101151822%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '1))) - (_%target5004050201%_ + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ (gx#syntax-e _%hd4990850734%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ (gx#syntax-e _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl4990650727%_) - (let ((_%__splice8587285873%_ + (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5101151822%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '1))) - (_%target5004050201%_ + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ (gx#syntax-e _%hd4990850734%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ (gx#syntax-e _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl4990650727%_) - (let ((_%__splice8587285873%_ + (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5101151822%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '1))) - (_%target5004050201%_ + (##vector-ref _%__splice8681986820%_ '1))) + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))))) + (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4990850734%_))) - (let ((_%tl5003950198%_ + _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (if (gx#stx-pair/null? - _%tl4990650727%_) - (let ((_%__splice8587285873%_ + _%tl5101151822%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '1))) - (_%target5004050201%_ + (##vector-ref _%__splice8681986820%_ '1))) + (_%target5114551304%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) - (let () (declare (not safe)) (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))) + (##vector-ref _%__splice8681986820%_ '0)))) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) + (let () (declare (not safe)) (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4986150070%_)))))) - (if (gx#stx-null? _%tl4991550757%_) - (if (gx#stx-pair/null? _%tl4990650727%_) - (let ((_%__splice8586085861%_ + (_%g5096651175%_)))))) + (if (gx#stx-null? _%tl5102051852%_) + (if (gx#stx-pair/null? _%tl5101151822%_) + (let ((_%__splice8680786808%_ (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl4995550610%_ + (let ((_%tl5106051707%_ (let () (declare (not safe)) (##vector-ref - _%__splice8586085861%_ + _%__splice8680786808%_ '1))) - (_%target4995350607%_ + (_%target5105851704%_ (let () (declare (not safe)) (##vector-ref - _%__splice8586085861%_ + _%__splice8680786808%_ '0)))) (if (gx#stx-null? - _%tl4995550610%_) - (_%__match8602686027%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e4991050740%_ - _%hd4991150744%_ - _%tl4991250747%_ - _%e4991350750%_ - _%hd4991450754%_ - _%tl4991550757%_ - _%__splice8586085861%_ - _%target4995350607%_ - _%tl4995550610%_) + _%tl5106051707%_) + (_%__match8697386974%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5101551835%_ + _%hd5101651839%_ + _%tl5101751842%_ + _%e5101851845%_ + _%hd5101951849%_ + _%tl5102051852%_ + _%__splice8680786808%_ + _%target5105851704%_ + _%tl5106051707%_) (if (gx#stx-pair? - _%hd4990850734%_) - (let ((_%e5003750191%_ + _%hd5101351829%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4990850734%_))) - (let ((_%tl5003950198%_ + _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ - (let () (declare (not safe)) (##car _%e5003750191%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))))) + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ + (let () (declare (not safe)) (##car _%e5114251294%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4990850734%_))) - (let ((_%tl5003950198%_ + _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) + (_%g5096651175%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ + (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4990850734%_))) - (let ((_%tl5003950198%_ + _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (if (gx#stx-pair/null? - _%tl4990650727%_) - (let ((_%__splice8587285873%_ + _%tl5101151822%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '1))) - (_%target5004050201%_ + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) (if (gx#stx-null? - _%tl5004250204%_) - (_%__match8615886159%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + _%tl5114751307%_) + (_%__match8710587106%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) - (if (gx#stx-null? _%tl4991550757%_) - (if (gx#stx-pair/null? _%tl4990650727%_) - (let ((_%__splice8586085861%_ + (_%g5096651175%_))))) + (if (gx#stx-null? _%tl5102051852%_) + (if (gx#stx-pair/null? _%tl5101151822%_) + (let ((_%__splice8680786808%_ (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl4995550610%_ + (let ((_%tl5106051707%_ (let () (declare (not safe)) (##vector-ref - _%__splice8586085861%_ + _%__splice8680786808%_ '1))) - (_%target4995350607%_ + (_%target5105851704%_ (let () (declare (not safe)) (##vector-ref - _%__splice8586085861%_ + _%__splice8680786808%_ '0)))) - (if (gx#stx-null? _%tl4995550610%_) - (_%__match8602686027%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e4991050740%_ - _%hd4991150744%_ - _%tl4991250747%_ - _%e4991350750%_ - _%hd4991450754%_ - _%tl4991550757%_ - _%__splice8586085861%_ - _%target4995350607%_ - _%tl4995550610%_) + (if (gx#stx-null? _%tl5106051707%_) + (_%__match8697386974%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5101551835%_ + _%hd5101651839%_ + _%tl5101751842%_ + _%e5101851845%_ + _%hd5101951849%_ + _%tl5102051852%_ + _%__splice8680786808%_ + _%target5105851704%_ + _%tl5106051707%_) (if (gx#stx-pair? - _%hd4990850734%_) - (let ((_%e5003750191%_ + _%hd5101351829%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4990850734%_))) - (let ((_%tl5003950198%_ + _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) + (_%g5096651175%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))))) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ + (_%g5096651175%_)))))) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4990850734%_))) - (let ((_%tl5003950198%_ + _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) + (_%g5096651175%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) - (if (gx#identifier? _%hd4991150744%_) + (_%g5096651175%_)))) + (if (gx#identifier? _%hd5101651839%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91837_| - _%hd4991150744%_) - (if (gx#stx-pair? _%tl4991550757%_) - (let ((_%e5000950323%_ + |gerbil/core/contract~Using[1]#_g92698_| + _%hd5101651839%_) + (if (gx#stx-pair? _%tl5102051852%_) + (let ((_%e5111451424%_ (gx#syntax-e - _%tl4991550757%_))) - (let ((_%tl5001150330%_ + _%tl5102051852%_))) + (let ((_%tl5111651431%_ (let () (declare (not safe)) - (##cdr _%e5000950323%_))) - (_%hd5001050327%_ + (##cdr _%e5111451424%_))) + (_%hd5111551428%_ (let () (declare (not safe)) - (##car _%e5000950323%_)))) + (##car _%e5111451424%_)))) (if (gx#stx-pair? - _%tl5001150330%_) - (let ((_%e5001250333%_ + _%tl5111651431%_) + (let ((_%e5111751434%_ (gx#syntax-e - _%tl5001150330%_))) - (let ((_%tl5001450340%_ + _%tl5111651431%_))) + (let ((_%tl5111951441%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5001250333%_))) - (_%hd5001350337%_ - (let () (declare (not safe)) (##car _%e5001250333%_)))) - (if (gx#stx-null? _%tl5001450340%_) - (if (gx#stx-pair/null? _%tl4990650727%_) - (let ((_%__splice8586885869%_ + (##cdr _%e5111751434%_))) + (_%hd5111851438%_ + (let () (declare (not safe)) (##car _%e5111751434%_)))) + (if (gx#stx-null? _%tl5111951441%_) + (if (gx#stx-pair/null? _%tl5101151822%_) + (let ((_%__splice8681586816%_ (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl5001750346%_ + (let ((_%tl5112251447%_ (let () (declare (not safe)) - (##vector-ref _%__splice8586885869%_ '1))) - (_%target5001550343%_ + (##vector-ref _%__splice8681586816%_ '1))) + (_%target5112051444%_ (let () (declare (not safe)) (##vector-ref - _%__splice8586885869%_ + _%__splice8681586816%_ '0)))) - (if (gx#stx-null? _%tl5001750346%_) - (_%__match8612686127%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e4991050740%_ - _%hd4991150744%_ - _%tl4991250747%_ - _%e4991350750%_ - _%hd4991450754%_ - _%tl4991550757%_ - _%e5000950323%_ - _%hd5001050327%_ - _%tl5001150330%_ - _%e5001250333%_ - _%hd5001350337%_ - _%tl5001450340%_ - _%__splice8586885869%_ - _%target5001550343%_ - _%tl5001750346%_) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4990850734%_))) - (let ((_%tl5003950198%_ + (if (gx#stx-null? _%tl5112251447%_) + (_%__match8707387074%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5101551835%_ + _%hd5101651839%_ + _%tl5101751842%_ + _%e5101851845%_ + _%hd5101951849%_ + _%tl5102051852%_ + _%e5111451424%_ + _%hd5111551428%_ + _%tl5111651431%_ + _%e5111751434%_ + _%hd5111851438%_ + _%tl5111951441%_ + _%__splice8681586816%_ + _%target5112051444%_ + _%tl5112251447%_) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) + (_%g5096651175%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))))) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4990850734%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_)))))) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4990850734%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl4990650727%_) - (let ((_%__splice8587285873%_ + (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5101151822%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '1))) - (_%target5004050201%_ + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_)))))) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ (gx#syntax-e _%hd4990850734%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_)))))) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ (gx#syntax-e _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl4990650727%_) - (let ((_%__splice8587285873%_ + (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5101151822%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '1))) - (_%target5004050201%_ + (##vector-ref _%__splice8681986820%_ '1))) + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_)))))) + (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4990850734%_) - (let ((_%e5003750191%_ + _%hd5101351829%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4990850734%_))) - (let ((_%tl5003950198%_ + _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (if (gx#stx-pair/null? - _%tl4990650727%_) - (let ((_%__splice8587285873%_ + _%tl5101151822%_) + (let ((_%__splice8681986820%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice->vector _%tl4990650727%_ '0))) - (let ((_%tl5004250204%_ + (gx#syntax-split-splice->vector _%tl5101151822%_ '0))) + (let ((_%tl5114751307%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '1))) - (_%target5004050201%_ + (##vector-ref _%__splice8681986820%_ '1))) + (_%target5114551304%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) - (let () (declare (not safe)) (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))) + (##vector-ref _%__splice8681986820%_ '0)))) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) + (let () (declare (not safe)) (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ + (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4990850734%_))) - (let ((_%tl5003950198%_ + _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (if (gx#stx-pair/null? - _%tl4990650727%_) - (let ((_%__splice8587285873%_ + _%tl5101151822%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '1))) - (_%target5004050201%_ + (##vector-ref _%__splice8681986820%_ '1))) + (_%target5114551304%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) - (let () (declare (not safe)) (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))) + (##vector-ref _%__splice8681986820%_ '0)))) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) + (let () (declare (not safe)) (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ + (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4990850734%_))) - (let ((_%tl5003950198%_ + _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (if (gx#stx-pair/null? - _%tl4990650727%_) - (let ((_%__splice8587285873%_ + _%tl5101151822%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '1))) - (_%target5004050201%_ + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) (if (gx#stx-null? - _%tl5004250204%_) - (_%__match8615886159%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + _%tl5114751307%_) + (_%__match8710587106%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_)))))) - (if (gx#stx-null? _%tl4991550757%_) - (if (gx#stx-pair/null? _%tl4990650727%_) - (let ((_%__splice8586085861%_ + (_%g5096651175%_)))))) + (if (gx#stx-null? _%tl5102051852%_) + (if (gx#stx-pair/null? _%tl5101151822%_) + (let ((_%__splice8680786808%_ (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl4995550610%_ + (let ((_%tl5106051707%_ (let () (declare (not safe)) (##vector-ref - _%__splice8586085861%_ + _%__splice8680786808%_ '1))) - (_%target4995350607%_ + (_%target5105851704%_ (let () (declare (not safe)) (##vector-ref - _%__splice8586085861%_ + _%__splice8680786808%_ '0)))) - (if (gx#stx-null? _%tl4995550610%_) - (_%__match8602686027%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e4991050740%_ - _%hd4991150744%_ - _%tl4991250747%_ - _%e4991350750%_ - _%hd4991450754%_ - _%tl4991550757%_ - _%__splice8586085861%_ - _%target4995350607%_ - _%tl4995550610%_) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ + (if (gx#stx-null? _%tl5106051707%_) + (_%__match8697386974%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5101551835%_ + _%hd5101651839%_ + _%tl5101751842%_ + _%e5101851845%_ + _%hd5101951849%_ + _%tl5102051852%_ + _%__splice8680786808%_ + _%target5105851704%_ + _%tl5106051707%_) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4990850734%_))) - (let ((_%tl5003950198%_ + _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) + (_%g5096651175%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))))) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4990850734%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_)))))) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) + (_%g5096651175%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) - (if (gx#identifier? _%hd4991150744%_) + (_%g5096651175%_)))) + (if (gx#identifier? _%hd5101651839%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91837_| - _%hd4991150744%_) - (if (gx#stx-pair? _%tl4991550757%_) - (let ((_%e5000950323%_ + |gerbil/core/contract~Using[1]#_g92698_| + _%hd5101651839%_) + (if (gx#stx-pair? _%tl5102051852%_) + (let ((_%e5111451424%_ (gx#syntax-e - _%tl4991550757%_))) - (let ((_%tl5001150330%_ + _%tl5102051852%_))) + (let ((_%tl5111651431%_ (let () (declare (not safe)) - (##cdr _%e5000950323%_))) - (_%hd5001050327%_ + (##cdr _%e5111451424%_))) + (_%hd5111551428%_ (let () (declare (not safe)) - (##car _%e5000950323%_)))) + (##car _%e5111451424%_)))) (if (gx#stx-pair? - _%tl5001150330%_) - (let ((_%e5001250333%_ + _%tl5111651431%_) + (let ((_%e5111751434%_ (gx#syntax-e - _%tl5001150330%_))) - (let ((_%tl5001450340%_ + _%tl5111651431%_))) + (let ((_%tl5111951441%_ (let () (declare (not safe)) - (##cdr _%e5001250333%_))) - (_%hd5001350337%_ + (##cdr _%e5111751434%_))) + (_%hd5111851438%_ (let () (declare (not safe)) - (##car _%e5001250333%_)))) + (##car _%e5111751434%_)))) (if (gx#stx-null? - _%tl5001450340%_) + _%tl5111951441%_) (if (gx#stx-pair/null? - _%tl4990650727%_) - (let ((_%__splice8586885869%_ + _%tl5101151822%_) + (let ((_%__splice8681586816%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl5001750346%_ + (let ((_%tl5112251447%_ (let () (declare (not safe)) - (##vector-ref _%__splice8586885869%_ '1))) - (_%target5001550343%_ + (##vector-ref _%__splice8681586816%_ '1))) + (_%target5112051444%_ (let () (declare (not safe)) - (##vector-ref _%__splice8586885869%_ '0)))) - (if (gx#stx-null? _%tl5001750346%_) - (_%__match8612686127%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e4991050740%_ - _%hd4991150744%_ - _%tl4991250747%_ - _%e4991350750%_ - _%hd4991450754%_ - _%tl4991550757%_ - _%e5000950323%_ - _%hd5001050327%_ - _%tl5001150330%_ - _%e5001250333%_ - _%hd5001350337%_ - _%tl5001450340%_ - _%__splice8586885869%_ - _%target5001550343%_ - _%tl5001750346%_) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4990850734%_))) - (let ((_%tl5003950198%_ + (##vector-ref _%__splice8681586816%_ '0)))) + (if (gx#stx-null? _%tl5112251447%_) + (_%__match8707387074%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5101551835%_ + _%hd5101651839%_ + _%tl5101751842%_ + _%e5101851845%_ + _%hd5101951849%_ + _%tl5102051852%_ + _%e5111451424%_ + _%hd5111551428%_ + _%tl5111651431%_ + _%e5111751434%_ + _%hd5111851438%_ + _%tl5111951441%_ + _%__splice8681586816%_ + _%target5112051444%_ + _%tl5112251447%_) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) + (_%g5096651175%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))))) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4990850734%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_)))))) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ (gx#syntax-e _%hd4990850734%_))) - (let ((_%tl5003950198%_ + (##car _%e5114251294%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ (gx#syntax-e _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl4990650727%_) - (let ((_%__splice8587285873%_ + (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5101151822%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '1))) - (_%target5004050201%_ + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_)))))) + (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4990850734%_) - (let ((_%e5003750191%_ + _%hd5101351829%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4990850734%_))) - (let ((_%tl5003950198%_ + _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ - (let () (declare (not safe)) (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl4990650727%_) - (let ((_%__splice8587285873%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ + (let () (declare (not safe)) (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5101151822%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '1))) - (_%target5004050201%_ + (##vector-ref _%__splice8681986820%_ '1))) + (_%target5114551304%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + (##vector-ref _%__splice8681986820%_ '0)))) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_)))))) + (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4990850734%_))) - (let ((_%tl5003950198%_ + _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (if (gx#stx-pair/null? - _%tl4990650727%_) - (let ((_%__splice8587285873%_ + _%tl5101151822%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '1))) - (_%target5004050201%_ + (##vector-ref _%__splice8681986820%_ '1))) + (_%target5114551304%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) - (let () (declare (not safe)) (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))) + (##vector-ref _%__splice8681986820%_ '0)))) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) + (let () (declare (not safe)) (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ + (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4990850734%_))) - (let ((_%tl5003950198%_ + _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (if (gx#stx-pair/null? - _%tl4990650727%_) - (let ((_%__splice8587285873%_ + _%tl5101151822%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '1))) - (_%target5004050201%_ + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) (if (gx#stx-null? - _%tl5004250204%_) - (_%__match8615886159%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + _%tl5114751307%_) + (_%__match8710587106%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4990850734%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4990850734%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5101351829%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5101351829%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (if (gx#stx-pair/null? - _%tl4990650727%_) - (let ((_%__splice8587285873%_ + _%tl5101151822%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4990650727%_ + _%tl5101151822%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '1))) - (_%target5004050201%_ + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) (if (gx#stx-null? - _%tl5004250204%_) - (_%__match8615886159%_ - _%e4990150710%_ - _%hd4990250714%_ - _%tl4990350717%_ - _%e4990450720%_ - _%hd4990550724%_ - _%tl4990650727%_ - _%e4990750730%_ - _%hd4990850734%_ - _%tl4990950737%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + _%tl5114751307%_) + (_%__match8710587106%_ + _%e5100651805%_ + _%hd5100751809%_ + _%tl5100851812%_ + _%e5100951815%_ + _%hd5101051819%_ + _%tl5101151822%_ + _%e5101251825%_ + _%hd5101351829%_ + _%tl5101451832%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_)))))))) - (_%__match8592485925%_ - (lambda (_%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e4987750916%_ - _%hd4987850920%_ - _%tl4987950923%_ - _%e4988050926%_ - _%hd4988150930%_ - _%tl4988250933%_ - _%e4988350936%_ - _%hd4988450940%_ - _%tl4988550943%_ - _%__splice8585285853%_ - _%target4988650946%_ - _%tl4988850949%_) - (letrec ((_%loop4988950952%_ - (lambda (_%hd4988750956%_ _%body4989350959%_) - (if (gx#stx-pair? _%hd4988750956%_) - (let ((_%e4989050962%_ - (gx#syntax-e _%hd4988750956%_))) - (let ((_%lp-tl4989250969%_ + (_%g5096651175%_)))))))) + (_%__match8687186872%_ + (lambda (_%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5098252009%_ + _%hd5098352013%_ + _%tl5098452016%_ + _%e5098552019%_ + _%hd5098652023%_ + _%tl5098752026%_ + _%e5098852029%_ + _%hd5098952033%_ + _%tl5099052036%_ + _%__splice8679986800%_ + _%target5099152039%_ + _%tl5099352042%_) + (letrec ((_%loop5099452045%_ + (lambda (_%hd5099252049%_ _%body5099852052%_) + (if (gx#stx-pair? _%hd5099252049%_) + (let ((_%e5099552054%_ + (gx#syntax-e _%hd5099252049%_))) + (let ((_%lp-tl5099752061%_ (let () (declare (not safe)) - (##cdr _%e4989050962%_))) - (_%lp-hd4989150966%_ + (##cdr _%e5099552054%_))) + (_%lp-hd5099652058%_ (let () (declare (not safe)) - (##car _%e4989050962%_)))) - (_%loop4988950952%_ - _%lp-tl4989250969%_ - (cons _%lp-hd4989150966%_ - _%body4989350959%_)))) - (let ((_%body4989450972%_ - (reverse _%body4989350959%_))) - (let ((_%L50976%_ _%body4989450972%_) - (_%L50978%_ _%hd4988450940%_) - (_%L50979%_ _%hd4988150930%_) - (_%L50980%_ _%hd4987850920%_) - (_%L50981%_ _%hd4987550910%_)) - (if (and (gx#identifier? _%L50981%_) - (gx#identifier? _%L50979%_) + (##car _%e5099552054%_)))) + (_%loop5099452045%_ + _%lp-tl5099752061%_ + (cons _%lp-hd5099652058%_ + _%body5099852052%_)))) + (let ((_%body5099952064%_ + (reverse _%body5099852052%_))) + (let ((_%g5096852067%_ + _%body5099952064%_) + (_%g5096952069%_ + _%hd5098952033%_) + (_%g5097052070%_ + _%hd5098652023%_) + (_%g5097152071%_ + _%hd5098352013%_) + (_%g5097252072%_ + _%hd5098052003%_)) + (if (and (gx#identifier? + _%g5097252072%_) + (gx#identifier? + _%g5097052070%_) (or (gx#free-identifier=? - _%L50979%_ + _%g5097052070%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L50979%_ + _%g5097052070%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L50979%_ + _%g5097052070%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L50979%_ + _%g5097052070%_ (gx#datum->syntax '#f ':~)) (gx#free-identifier=? - _%L50979%_ + _%g5097052070%_ (gx#datum->syntax '#f ':?)))) - (_%__kont8585085851%_ - _%L50976%_ - _%L50978%_ - _%L50979%_ - _%L50980%_ - _%L50981%_) - (_%__match8595485955%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e4987750916%_ - _%hd4987850920%_ - _%tl4987950923%_ - _%e4988050926%_ - _%hd4988150930%_ - _%tl4988250933%_)))))))) - (_%loop4988950952%_ _%target4988650946%_ '()))))) - (if (gx#stx-pair? _%__stx8584785848%_) - (let ((_%e4986850886%_ (gx#syntax-e _%__stx8584785848%_))) - (let ((_%tl4987050893%_ + (_%__kont8679786798%_ + _%g5096852067%_ + _%g5096952069%_ + _%g5097052070%_ + _%g5097152071%_ + _%g5097252072%_) + (_%__match8690186902%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5098252009%_ + _%hd5098352013%_ + _%tl5098452016%_ + _%e5098552019%_ + _%hd5098652023%_ + _%tl5098752026%_)))))))) + (_%loop5099452045%_ _%target5099152039%_ '()))))) + (if (gx#stx-pair? _%__stx8679486795%_) + (let ((_%e5097351979%_ (gx#syntax-e _%__stx8679486795%_))) + (let ((_%tl5097551986%_ (let () (declare (not safe)) - (##cdr _%e4986850886%_))) - (_%hd4986950890%_ + (##cdr _%e5097351979%_))) + (_%hd5097451983%_ (let () (declare (not safe)) - (##car _%e4986850886%_)))) - (if (gx#stx-pair? _%tl4987050893%_) - (let ((_%e4987150896%_ - (gx#syntax-e _%tl4987050893%_))) - (let ((_%tl4987350903%_ + (##car _%e5097351979%_)))) + (if (gx#stx-pair? _%tl5097551986%_) + (let ((_%e5097651989%_ + (gx#syntax-e _%tl5097551986%_))) + (let ((_%tl5097851996%_ (let () (declare (not safe)) - (##cdr _%e4987150896%_))) - (_%hd4987250900%_ + (##cdr _%e5097651989%_))) + (_%hd5097751993%_ (let () (declare (not safe)) - (##car _%e4987150896%_)))) - (if (gx#stx-pair? _%hd4987250900%_) - (let ((_%e4987450906%_ - (gx#syntax-e _%hd4987250900%_))) - (let ((_%tl4987650913%_ + (##car _%e5097651989%_)))) + (if (gx#stx-pair? _%hd5097751993%_) + (let ((_%e5097951999%_ + (gx#syntax-e _%hd5097751993%_))) + (let ((_%tl5098152006%_ (let () (declare (not safe)) - (##cdr _%e4987450906%_))) - (_%hd4987550910%_ + (##cdr _%e5097951999%_))) + (_%hd5098052003%_ (let () (declare (not safe)) - (##car _%e4987450906%_)))) - (if (gx#stx-pair? _%tl4987650913%_) - (let ((_%e4987750916%_ + (##car _%e5097951999%_)))) + (if (gx#stx-pair? _%tl5098152006%_) + (let ((_%e5098252009%_ (gx#syntax-e - _%tl4987650913%_))) - (let ((_%tl4987950923%_ + _%tl5098152006%_))) + (let ((_%tl5098452016%_ (let () (declare (not safe)) - (##cdr _%e4987750916%_))) - (_%hd4987850920%_ + (##cdr _%e5098252009%_))) + (_%hd5098352013%_ (let () (declare (not safe)) - (##car _%e4987750916%_)))) + (##car _%e5098252009%_)))) (if (gx#stx-pair? - _%tl4987950923%_) - (let ((_%e4988050926%_ + _%tl5098452016%_) + (let ((_%e5098552019%_ (gx#syntax-e - _%tl4987950923%_))) - (let ((_%tl4988250933%_ + _%tl5098452016%_))) + (let ((_%tl5098752026%_ (let () (declare (not safe)) - (##cdr _%e4988050926%_))) - (_%hd4988150930%_ + (##cdr _%e5098552019%_))) + (_%hd5098652023%_ (let () (declare (not safe)) - (##car _%e4988050926%_)))) + (##car _%e5098552019%_)))) (if (gx#stx-pair? - _%tl4988250933%_) - (let ((_%e4988350936%_ + _%tl5098752026%_) + (let ((_%e5098852029%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4988250933%_))) - (let ((_%tl4988550943%_ + (gx#syntax-e _%tl5098752026%_))) + (let ((_%tl5099052036%_ (let () (declare (not safe)) - (##cdr _%e4988350936%_))) - (_%hd4988450940%_ + (##cdr _%e5098852029%_))) + (_%hd5098952033%_ (let () (declare (not safe)) - (##car _%e4988350936%_)))) - (if (gx#stx-null? _%tl4988550943%_) - (if (gx#stx-pair/null? _%tl4987350903%_) - (let ((_%__splice8585285853%_ + (##car _%e5098852029%_)))) + (if (gx#stx-null? _%tl5099052036%_) + (if (gx#stx-pair/null? _%tl5097851996%_) + (let ((_%__splice8679986800%_ (gx#syntax-split-splice->vector - _%tl4987350903%_ + _%tl5097851996%_ '0))) - (let ((_%tl4988850949%_ + (let ((_%tl5099352042%_ (let () (declare (not safe)) (##vector-ref - _%__splice8585285853%_ + _%__splice8679986800%_ '1))) - (_%target4988650946%_ + (_%target5099152039%_ (let () (declare (not safe)) (##vector-ref - _%__splice8585285853%_ + _%__splice8679986800%_ '0)))) - (if (gx#stx-null? _%tl4988850949%_) - (_%__match8592485925%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e4987750916%_ - _%hd4987850920%_ - _%tl4987950923%_ - _%e4988050926%_ - _%hd4988150930%_ - _%tl4988250933%_ - _%e4988350936%_ - _%hd4988450940%_ - _%tl4988550943%_ - _%__splice8585285853%_ - _%target4988650946%_ - _%tl4988850949%_) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ + (if (gx#stx-null? _%tl5099352042%_) + (_%__match8687186872%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5098252009%_ + _%hd5098352013%_ + _%tl5098452016%_ + _%e5098552019%_ + _%hd5098652023%_ + _%tl5098752026%_ + _%e5098852029%_ + _%hd5098952033%_ + _%tl5099052036%_ + _%__splice8679986800%_ + _%target5099152039%_ + _%tl5099352042%_) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4987550910%_))) - (let ((_%tl5003950198%_ + _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) + (_%g5096651175%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))))) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4987550910%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_)))))) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) + (_%g5096651175%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) - (if (gx#identifier? _%hd4988150930%_) + (_%g5096651175%_)))) + (if (gx#identifier? _%hd5098652023%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91838_| - _%hd4988150930%_) - (if (gx#stx-pair? _%tl4988550943%_) - (let ((_%e4991950770%_ - (gx#syntax-e _%tl4988550943%_))) - (let ((_%tl4992150777%_ + |gerbil/core/contract~Using[1]#_g92699_| + _%hd5098652023%_) + (if (gx#stx-pair? _%tl5099052036%_) + (let ((_%e5102451865%_ + (gx#syntax-e _%tl5099052036%_))) + (let ((_%tl5102651872%_ (let () (declare (not safe)) - (##cdr _%e4991950770%_))) - (_%hd4992050774%_ + (##cdr _%e5102451865%_))) + (_%hd5102551869%_ (let () (declare (not safe)) - (##car _%e4991950770%_)))) - (if (gx#stx-pair? _%tl4992150777%_) - (let ((_%e4992250780%_ + (##car _%e5102451865%_)))) + (if (gx#stx-pair? _%tl5102651872%_) + (let ((_%e5102751875%_ (gx#syntax-e - _%tl4992150777%_))) - (let ((_%tl4992450787%_ + _%tl5102651872%_))) + (let ((_%tl5102951882%_ (let () (declare (not safe)) - (##cdr _%e4992250780%_))) - (_%hd4992350784%_ + (##cdr _%e5102751875%_))) + (_%hd5102851879%_ (let () (declare (not safe)) - (##car _%e4992250780%_)))) + (##car _%e5102751875%_)))) (if (gx#stx-null? - _%tl4992450787%_) + _%tl5102951882%_) (if (gx#stx-pair/null? - _%tl4987350903%_) - (let ((_%__splice8585685857%_ + _%tl5097851996%_) + (let ((_%__splice8680386804%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice->vector _%tl4987350903%_ '0))) - (let ((_%tl4992750793%_ + (gx#syntax-split-splice->vector _%tl5097851996%_ '0))) + (let ((_%tl5103251888%_ (let () (declare (not safe)) - (##vector-ref _%__splice8585685857%_ '1))) - (_%target4992550790%_ + (##vector-ref _%__splice8680386804%_ '1))) + (_%target5103051885%_ (let () (declare (not safe)) - (##vector-ref _%__splice8585685857%_ '0)))) - (if (gx#stx-null? _%tl4992750793%_) - (_%__match8598685987%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e4987750916%_ - _%hd4987850920%_ - _%tl4987950923%_ - _%e4988050926%_ - _%hd4988150930%_ - _%tl4988250933%_ - _%e4988350936%_ - _%hd4988450940%_ - _%tl4988550943%_ - _%e4991950770%_ - _%hd4992050774%_ - _%tl4992150777%_ - _%e4992250780%_ - _%hd4992350784%_ - _%tl4992450787%_ - _%__splice8585685857%_ - _%target4992550790%_ - _%tl4992750793%_) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4987550910%_))) - (let ((_%tl5003950198%_ + (##vector-ref _%__splice8680386804%_ '0)))) + (if (gx#stx-null? _%tl5103251888%_) + (_%__match8693386934%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5098252009%_ + _%hd5098352013%_ + _%tl5098452016%_ + _%e5098552019%_ + _%hd5098652023%_ + _%tl5098752026%_ + _%e5098852029%_ + _%hd5098952033%_ + _%tl5099052036%_ + _%e5102451865%_ + _%hd5102551869%_ + _%tl5102651872%_ + _%e5102751875%_ + _%hd5102851879%_ + _%tl5102951882%_ + _%__splice8680386804%_ + _%target5103051885%_ + _%tl5103251888%_) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) + (_%g5096651175%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))))) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ (gx#syntax-e _%hd4987550910%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_)))))) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ (gx#syntax-e _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ (gx#syntax-e _%hd4987550910%_))) - (let ((_%tl5003950198%_ + (##car _%e5114251294%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ (gx#syntax-e _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl4987350903%_) - (let ((_%__splice8587285873%_ + (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5097851996%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4987350903%_ + _%tl5097851996%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '1))) - (_%target5004050201%_ + (##vector-ref _%__splice8681986820%_ '1))) + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_)))))) + (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd4987850920%_) + _%hd5098352013%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91837_| - _%hd4987850920%_) + |gerbil/core/contract~Using[1]#_g92698_| + _%hd5098352013%_) (if (gx#stx-null? - _%tl4992150777%_) + _%tl5102651872%_) (if (gx#stx-pair/null? - _%tl4987350903%_) - (let ((_%__splice8586885869%_ + _%tl5097851996%_) + (let ((_%__splice8681586816%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice->vector - _%tl4987350903%_ + _%tl5097851996%_ '0))) - (let ((_%tl5001750346%_ + (let ((_%tl5112251447%_ (let () (declare (not safe)) - (##vector-ref _%__splice8586885869%_ '1))) - (_%target5001550343%_ + (##vector-ref _%__splice8681586816%_ '1))) + (_%target5112051444%_ (let () (declare (not safe)) - (##vector-ref _%__splice8586885869%_ '0)))) - (if (gx#stx-null? _%tl5001750346%_) - (_%__match8612686127%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e4987750916%_ - _%hd4987850920%_ - _%tl4987950923%_ - _%e4988050926%_ - _%hd4988150930%_ - _%tl4988250933%_ - _%e4988350936%_ - _%hd4988450940%_ - _%tl4988550943%_ - _%e4991950770%_ - _%hd4992050774%_ - _%tl4992150777%_ - _%__splice8586885869%_ - _%target5001550343%_ - _%tl5001750346%_) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4987550910%_))) - (let ((_%tl5003950198%_ + (##vector-ref _%__splice8681586816%_ '0)))) + (if (gx#stx-null? _%tl5112251447%_) + (_%__match8707387074%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5098252009%_ + _%hd5098352013%_ + _%tl5098452016%_ + _%e5098552019%_ + _%hd5098652023%_ + _%tl5098752026%_ + _%e5098852029%_ + _%hd5098952033%_ + _%tl5099052036%_ + _%e5102451865%_ + _%hd5102551869%_ + _%tl5102651872%_ + _%__splice8681586816%_ + _%target5112051444%_ + _%tl5112251447%_) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) + (_%g5096651175%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))))) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4987550910%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_)))))) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ (gx#syntax-e _%hd4987550910%_))) - (let ((_%tl5003950198%_ + (##car _%e5114251294%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ (gx#syntax-e _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl4987350903%_) - (let ((_%__splice8587285873%_ + (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5097851996%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4987350903%_ + _%tl5097851996%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '1))) - (_%target5004050201%_ + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ (gx#syntax-e _%hd4987550910%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ (gx#syntax-e _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl4987350903%_) - (let ((_%__splice8587285873%_ + (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5097851996%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4987350903%_ + _%tl5097851996%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '1))) - (_%target5004050201%_ + (##vector-ref _%__splice8681986820%_ '1))) + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_)))) + (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4987550910%_) - (let ((_%e5003750191%_ + _%hd5098052003%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4987550910%_))) - (let ((_%tl5003950198%_ + _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ - (let () (declare (not safe)) (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl4987350903%_) - (let ((_%__splice8587285873%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ + (let () (declare (not safe)) (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5097851996%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4987350903%_ + _%tl5097851996%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '1))) - (_%target5004050201%_ + (##vector-ref _%__splice8681986820%_ '1))) + (_%target5114551304%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + (##vector-ref _%__splice8681986820%_ '0)))) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))))) + (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4987550910%_))) - (let ((_%tl5003950198%_ + _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (if (gx#stx-pair/null? - _%tl4987350903%_) - (let ((_%__splice8587285873%_ + _%tl5097851996%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4987350903%_ + _%tl5097851996%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '1))) - (_%target5004050201%_ + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) (if (gx#stx-null? - _%tl5004250204%_) - (_%__match8615886159%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + _%tl5114751307%_) + (_%__match8710587106%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_)))) - (if (gx#identifier? _%hd4987850920%_) + (_%g5096651175%_)))) + (if (gx#identifier? _%hd5098352013%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91837_| - _%hd4987850920%_) - (if (gx#stx-pair? _%tl4988550943%_) - (let ((_%e5001250333%_ + |gerbil/core/contract~Using[1]#_g92698_| + _%hd5098352013%_) + (if (gx#stx-pair? _%tl5099052036%_) + (let ((_%e5111751434%_ (gx#syntax-e - _%tl4988550943%_))) - (let ((_%tl5001450340%_ + _%tl5099052036%_))) + (let ((_%tl5111951441%_ (let () (declare (not safe)) - (##cdr _%e5001250333%_))) - (_%hd5001350337%_ + (##cdr _%e5111751434%_))) + (_%hd5111851438%_ (let () (declare (not safe)) - (##car _%e5001250333%_)))) + (##car _%e5111751434%_)))) (if (gx#stx-null? - _%tl5001450340%_) + _%tl5111951441%_) (if (gx#stx-pair/null? - _%tl4987350903%_) - (let ((_%__splice8586885869%_ + _%tl5097851996%_) + (let ((_%__splice8681586816%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice->vector _%tl4987350903%_ '0))) - (let ((_%tl5001750346%_ + (gx#syntax-split-splice->vector _%tl5097851996%_ '0))) + (let ((_%tl5112251447%_ (let () (declare (not safe)) - (##vector-ref _%__splice8586885869%_ '1))) - (_%target5001550343%_ + (##vector-ref _%__splice8681586816%_ '1))) + (_%target5112051444%_ (let () (declare (not safe)) - (##vector-ref _%__splice8586885869%_ '0)))) - (if (gx#stx-null? _%tl5001750346%_) - (_%__match8612686127%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e4987750916%_ - _%hd4987850920%_ - _%tl4987950923%_ - _%e4988050926%_ - _%hd4988150930%_ - _%tl4988250933%_ - _%e4988350936%_ - _%hd4988450940%_ - _%tl4988550943%_ - _%e5001250333%_ - _%hd5001350337%_ - _%tl5001450340%_ - _%__splice8586885869%_ - _%target5001550343%_ - _%tl5001750346%_) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4987550910%_))) - (let ((_%tl5003950198%_ + (##vector-ref _%__splice8681586816%_ '0)))) + (if (gx#stx-null? _%tl5112251447%_) + (_%__match8707387074%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5098252009%_ + _%hd5098352013%_ + _%tl5098452016%_ + _%e5098552019%_ + _%hd5098652023%_ + _%tl5098752026%_ + _%e5098852029%_ + _%hd5098952033%_ + _%tl5099052036%_ + _%e5111751434%_ + _%hd5111851438%_ + _%tl5111951441%_ + _%__splice8681586816%_ + _%target5112051444%_ + _%tl5112251447%_) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) + (_%g5096651175%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))))) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ (gx#syntax-e _%hd4987550910%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_)))))) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ (gx#syntax-e _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ (gx#syntax-e _%hd4987550910%_))) - (let ((_%tl5003950198%_ + (##car _%e5114251294%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ (gx#syntax-e _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl4987350903%_) - (let ((_%__splice8587285873%_ + (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5097851996%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4987350903%_ + _%tl5097851996%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '1))) - (_%target5004050201%_ + (##vector-ref _%__splice8681986820%_ '1))) + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_)))))) + (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4987550910%_) - (let ((_%e5003750191%_ + _%hd5098052003%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4987550910%_))) - (let ((_%tl5003950198%_ + _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (if (gx#stx-pair/null? - _%tl4987350903%_) - (let ((_%__splice8587285873%_ + _%tl5097851996%_) + (let ((_%__splice8681986820%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice->vector _%tl4987350903%_ '0))) - (let ((_%tl5004250204%_ + (gx#syntax-split-splice->vector _%tl5097851996%_ '0))) + (let ((_%tl5114751307%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '1))) - (_%target5004050201%_ + (##vector-ref _%__splice8681986820%_ '1))) + (_%target5114551304%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) - (let () (declare (not safe)) (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))) + (##vector-ref _%__splice8681986820%_ '0)))) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) + (let () (declare (not safe)) (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ + (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4987550910%_))) - (let ((_%tl5003950198%_ + _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (if (gx#stx-pair/null? - _%tl4987350903%_) - (let ((_%__splice8587285873%_ + _%tl5097851996%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4987350903%_ + _%tl5097851996%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '1))) - (_%target5004050201%_ + (##vector-ref _%__splice8681986820%_ '1))) + (_%target5114551304%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) - (let () (declare (not safe)) (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))) + (##vector-ref _%__splice8681986820%_ '0)))) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) + (let () (declare (not safe)) (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ + (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4987550910%_))) - (let ((_%tl5003950198%_ + _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (if (gx#stx-pair/null? - _%tl4987350903%_) - (let ((_%__splice8587285873%_ + _%tl5097851996%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4987350903%_ + _%tl5097851996%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '1))) - (_%target5004050201%_ + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) (if (gx#stx-null? - _%tl5004250204%_) - (_%__match8615886159%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + _%tl5114751307%_) + (_%__match8710587106%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) - (if (gx#identifier? _%hd4987850920%_) + (_%g5096651175%_))))) + (if (gx#identifier? _%hd5098352013%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91837_| - _%hd4987850920%_) - (if (gx#stx-pair? _%tl4988550943%_) - (let ((_%e5001250333%_ + |gerbil/core/contract~Using[1]#_g92698_| + _%hd5098352013%_) + (if (gx#stx-pair? _%tl5099052036%_) + (let ((_%e5111751434%_ (gx#syntax-e - _%tl4988550943%_))) - (let ((_%tl5001450340%_ + _%tl5099052036%_))) + (let ((_%tl5111951441%_ (let () (declare (not safe)) - (##cdr _%e5001250333%_))) - (_%hd5001350337%_ + (##cdr _%e5111751434%_))) + (_%hd5111851438%_ (let () (declare (not safe)) - (##car _%e5001250333%_)))) + (##car _%e5111751434%_)))) (if (gx#stx-null? - _%tl5001450340%_) + _%tl5111951441%_) (if (gx#stx-pair/null? - _%tl4987350903%_) - (let ((_%__splice8586885869%_ + _%tl5097851996%_) + (let ((_%__splice8681586816%_ (gx#syntax-split-splice->vector - _%tl4987350903%_ + _%tl5097851996%_ '0))) - (let ((_%tl5001750346%_ + (let ((_%tl5112251447%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8586885869%_ '1))) - (_%target5001550343%_ + (##vector-ref _%__splice8681586816%_ '1))) + (_%target5112051444%_ (let () (declare (not safe)) - (##vector-ref _%__splice8586885869%_ '0)))) - (if (gx#stx-null? _%tl5001750346%_) - (_%__match8612686127%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e4987750916%_ - _%hd4987850920%_ - _%tl4987950923%_ - _%e4988050926%_ - _%hd4988150930%_ - _%tl4988250933%_ - _%e4988350936%_ - _%hd4988450940%_ - _%tl4988550943%_ - _%e5001250333%_ - _%hd5001350337%_ - _%tl5001450340%_ - _%__splice8586885869%_ - _%target5001550343%_ - _%tl5001750346%_) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4987550910%_))) - (let ((_%tl5003950198%_ + (##vector-ref _%__splice8681586816%_ '0)))) + (if (gx#stx-null? _%tl5112251447%_) + (_%__match8707387074%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5098252009%_ + _%hd5098352013%_ + _%tl5098452016%_ + _%e5098552019%_ + _%hd5098652023%_ + _%tl5098752026%_ + _%e5098852029%_ + _%hd5098952033%_ + _%tl5099052036%_ + _%e5111751434%_ + _%hd5111851438%_ + _%tl5111951441%_ + _%__splice8681586816%_ + _%target5112051444%_ + _%tl5112251447%_) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))))) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ (gx#syntax-e _%hd4987550910%_))) - (let ((_%tl5003950198%_ + (##car _%e5114251294%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))))) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ (gx#syntax-e _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))) + (##car _%e5114251294%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4987550910%_) - (let ((_%e5003750191%_ + _%hd5098052003%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4987550910%_))) - (let ((_%tl5003950198%_ + _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ - (let () (declare (not safe)) (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl4987350903%_) - (let ((_%__splice8587285873%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ + (let () (declare (not safe)) (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5097851996%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4987350903%_ + _%tl5097851996%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '1))) - (_%target5004050201%_ + (##vector-ref _%__splice8681986820%_ '1))) + (_%target5114551304%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + (##vector-ref _%__splice8681986820%_ '0)))) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_)))))) + (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4987550910%_))) - (let ((_%tl5003950198%_ + _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (if (gx#stx-pair/null? - _%tl4987350903%_) - (let ((_%__splice8587285873%_ + _%tl5097851996%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4987350903%_ + _%tl5097851996%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '1))) - (_%target5004050201%_ + (##vector-ref _%__splice8681986820%_ '1))) + (_%target5114551304%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) - (let () (declare (not safe)) (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))) + (##vector-ref _%__splice8681986820%_ '0)))) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) + (let () (declare (not safe)) (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ + (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4987550910%_))) - (let ((_%tl5003950198%_ + _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (if (gx#stx-pair/null? - _%tl4987350903%_) - (let ((_%__splice8587285873%_ + _%tl5097851996%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4987350903%_ + _%tl5097851996%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '1))) - (_%target5004050201%_ + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) (if (gx#stx-null? - _%tl5004250204%_) - (_%__match8615886159%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + _%tl5114751307%_) + (_%__match8710587106%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4987550910%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (if (gx#stx-pair/null? - _%tl4987350903%_) - (let ((_%__splice8587285873%_ + _%tl5097851996%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4987350903%_ + _%tl5097851996%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '1))) - (_%target5004050201%_ + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) (if (gx#stx-null? - _%tl5004250204%_) - (_%__match8615886159%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + _%tl5114751307%_) + (_%__match8710587106%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_)))))))) - (if (gx#stx-null? _%tl4988250933%_) - (if (gx#stx-pair/null? _%tl4987350903%_) - (let ((_%__splice8586085861%_ + (_%g5096651175%_)))))))) + (if (gx#stx-null? _%tl5098752026%_) + (if (gx#stx-pair/null? _%tl5097851996%_) + (let ((_%__splice8680786808%_ (gx#syntax-split-splice->vector - _%tl4987350903%_ + _%tl5097851996%_ '0))) - (let ((_%tl4995550610%_ + (let ((_%tl5106051707%_ (let () (declare (not safe)) - (##vector-ref _%__splice8586085861%_ '1))) - (_%target4995350607%_ + (##vector-ref _%__splice8680786808%_ '1))) + (_%target5105851704%_ (let () (declare (not safe)) (##vector-ref - _%__splice8586085861%_ + _%__splice8680786808%_ '0)))) - (if (gx#stx-null? _%tl4995550610%_) - (_%__match8602686027%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e4987750916%_ - _%hd4987850920%_ - _%tl4987950923%_ - _%e4988050926%_ - _%hd4988150930%_ - _%tl4988250933%_ - _%__splice8586085861%_ - _%target4995350607%_ - _%tl4995550610%_) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4987550910%_))) - (let ((_%tl5003950198%_ + (if (gx#stx-null? _%tl5106051707%_) + (_%__match8697386974%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5098252009%_ + _%hd5098352013%_ + _%tl5098452016%_ + _%e5098552019%_ + _%hd5098652023%_ + _%tl5098752026%_ + _%__splice8680786808%_ + _%target5105851704%_ + _%tl5106051707%_) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) + (_%g5096651175%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))))) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4987550910%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_)))))) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (let () (declare (not safe)) - (_%g4986150070%_)))) - (let () (declare (not safe)) (_%g4986150070%_)))) - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ - (gx#syntax-e _%hd4987550910%_))) - (let ((_%tl5003950198%_ + (_%g5096651175%_)))) + (let () (declare (not safe)) (_%g5096651175%_)))) + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ + (gx#syntax-e _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl4987350903%_) - (let ((_%__splice8587285873%_ + (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5097851996%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4987350903%_ + _%tl5097851996%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '1))) - (_%target5004050201%_ + (_%target5114551304%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587285873%_ + _%__splice8681986820%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))))) + (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4987550910%_) - (let ((_%e5003750191%_ + _%hd5098052003%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4987550910%_))) - (let ((_%tl5003950198%_ + _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ - (let () (declare (not safe)) (##car _%e5003750191%_)))) - (if (gx#stx-pair/null? _%tl4987350903%_) - (let ((_%__splice8587285873%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ + (let () (declare (not safe)) (##car _%e5114251294%_)))) + (if (gx#stx-pair/null? _%tl5097851996%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4987350903%_ + _%tl5097851996%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '1))) - (_%target5004050201%_ + (##vector-ref _%__splice8681986820%_ '1))) + (_%target5114551304%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) + (##vector-ref _%__splice8681986820%_ '0)))) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) (let () (declare (not safe)) - (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_)))))) + (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4987550910%_) - (let ((_%e5003750191%_ + (if (gx#stx-pair? _%hd5098052003%_) + (let ((_%e5114251294%_ (gx#syntax-e - _%hd4987550910%_))) - (let ((_%tl5003950198%_ + _%hd5098052003%_))) + (let ((_%tl5114451301%_ (let () (declare (not safe)) - (##cdr _%e5003750191%_))) - (_%hd5003850195%_ + (##cdr _%e5114251294%_))) + (_%hd5114351298%_ (let () (declare (not safe)) - (##car _%e5003750191%_)))) + (##car _%e5114251294%_)))) (if (gx#stx-pair/null? - _%tl4987350903%_) - (let ((_%__splice8587285873%_ + _%tl5097851996%_) + (let ((_%__splice8681986820%_ (gx#syntax-split-splice->vector - _%tl4987350903%_ + _%tl5097851996%_ '0))) - (let ((_%tl5004250204%_ + (let ((_%tl5114751307%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '1))) - (_%target5004050201%_ + (##vector-ref _%__splice8681986820%_ '1))) + (_%target5114551304%_ (let () (declare (not safe)) - (##vector-ref _%__splice8587285873%_ '0)))) - (if (gx#stx-null? _%tl5004250204%_) - (_%__match8615886159%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%e4987450906%_ - _%hd4987550910%_ - _%tl4987650913%_ - _%e5003750191%_ - _%hd5003850195%_ - _%tl5003950198%_ - _%__splice8587285873%_ - _%target5004050201%_ - _%tl5004250204%_) - (let () (declare (not safe)) (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_))))) + (##vector-ref _%__splice8681986820%_ '0)))) + (if (gx#stx-null? _%tl5114751307%_) + (_%__match8710587106%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%e5097951999%_ + _%hd5098052003%_ + _%tl5098152006%_ + _%e5114251294%_ + _%hd5114351298%_ + _%tl5114451301%_ + _%__splice8681986820%_ + _%target5114551304%_ + _%tl5114751307%_) + (let () (declare (not safe)) (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4986150070%_)))))) - (if (gx#stx-null? _%hd4987250900%_) - (if (gx#stx-pair/null? _%tl4987350903%_) - (let ((_%__splice8587685877%_ + (_%g5096651175%_)))))) + (if (gx#stx-null? _%hd5097751993%_) + (if (gx#stx-pair/null? _%tl5097851996%_) + (let ((_%__splice8682386824%_ (gx#syntax-split-splice->vector - _%tl4987350903%_ + _%tl5097851996%_ '0))) - (let ((_%tl5005850100%_ + (let ((_%tl5116351205%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587685877%_ + _%__splice8682386824%_ '1))) - (_%target5005650097%_ + (_%target5116151202%_ (let () (declare (not safe)) (##vector-ref - _%__splice8587685877%_ + _%__splice8682386824%_ '0)))) (if (gx#stx-null? - _%tl5005850100%_) - (_%__match8618086181%_ - _%e4986850886%_ - _%hd4986950890%_ - _%tl4987050893%_ - _%e4987150896%_ - _%hd4987250900%_ - _%tl4987350903%_ - _%__splice8587685877%_ - _%target5005650097%_ - _%tl5005850100%_) + _%tl5116351205%_) + (_%__match8712787128%_ + _%e5097351979%_ + _%hd5097451983%_ + _%tl5097551986%_ + _%e5097651989%_ + _%hd5097751993%_ + _%tl5097851996%_ + _%__splice8682386824%_ + _%target5116151202%_ + _%tl5116351205%_) (let () (declare (not safe)) - (_%g4986150070%_))))) + (_%g5096651175%_))))) (let () (declare (not safe)) - (_%g4986150070%_))) + (_%g5096651175%_))) (let () (declare (not safe)) - (_%g4986150070%_)))))) - (let () (declare (not safe)) (_%g4986150070%_))))) - (let () (declare (not safe)) (_%g4986150070%_)))))))) + (_%g5096651175%_)))))) + (let () (declare (not safe)) (_%g5096651175%_))))) + (let () (declare (not safe)) (_%g5096651175%_)))))))) (define |gerbil/core/contract~Using[:0:]#with-contract| - (lambda (_%$stx51044%_) - (let* ((_%g5104851082%_ - (lambda (_%g5104951078%_) + (lambda (_%$stx52135%_) + (let* ((_%g5213952173%_ + (lambda (_%g5214052169%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5104951078%_))) - (_%g5104751205%_ - (lambda (_%g5104951086%_) - (if (gx#stx-pair? _%g5104951086%_) - (let ((_%e5105351089%_ (gx#syntax-e _%g5104951086%_))) - (let ((_%hd5105451093%_ + _%g5214052169%_))) + (_%g5213852294%_ + (lambda (_%g5214052177%_) + (if (gx#stx-pair? _%g5214052177%_) + (let ((_%e5214452180%_ (gx#syntax-e _%g5214052177%_))) + (let ((_%hd5214552184%_ (let () (declare (not safe)) - (##car _%e5105351089%_))) - (_%tl5105551096%_ + (##car _%e5214452180%_))) + (_%tl5214652187%_ (let () (declare (not safe)) - (##cdr _%e5105351089%_)))) - (if (gx#stx-pair? _%tl5105551096%_) - (let ((_%e5105651099%_ - (gx#syntax-e _%tl5105551096%_))) - (let ((_%hd5105751103%_ + (##cdr _%e5214452180%_)))) + (if (gx#stx-pair? _%tl5214652187%_) + (let ((_%e5214752190%_ + (gx#syntax-e _%tl5214652187%_))) + (let ((_%hd5214852194%_ (let () (declare (not safe)) - (##car _%e5105651099%_))) - (_%tl5105851106%_ + (##car _%e5214752190%_))) + (_%tl5214952197%_ (let () (declare (not safe)) - (##cdr _%e5105651099%_)))) - (if (gx#stx-pair? _%hd5105751103%_) - (let ((_%e5105951109%_ - (gx#syntax-e _%hd5105751103%_))) - (let ((_%hd5106051113%_ + (##cdr _%e5214752190%_)))) + (if (gx#stx-pair? _%hd5214852194%_) + (let ((_%e5215052200%_ + (gx#syntax-e _%hd5214852194%_))) + (let ((_%hd5215152204%_ (let () (declare (not safe)) - (##car _%e5105951109%_))) - (_%tl5106151116%_ + (##car _%e5215052200%_))) + (_%tl5215252207%_ (let () (declare (not safe)) - (##cdr _%e5105951109%_)))) - (if (gx#stx-pair? _%tl5106151116%_) - (let ((_%e5106251119%_ + (##cdr _%e5215052200%_)))) + (if (gx#stx-pair? _%tl5215252207%_) + (let ((_%e5215352210%_ (gx#syntax-e - _%tl5106151116%_))) - (let ((_%hd5106351123%_ + _%tl5215252207%_))) + (let ((_%hd5215452214%_ (let () (declare (not safe)) - (##car _%e5106251119%_))) - (_%tl5106451126%_ + (##car _%e5215352210%_))) + (_%tl5215552217%_ (let () (declare (not safe)) - (##cdr _%e5106251119%_)))) + (##cdr _%e5215352210%_)))) (if (gx#identifier? - _%hd5106351123%_) + _%hd5215452214%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91839_| - _%hd5106351123%_) + |gerbil/core/contract~Using[1]#_g92700_| + _%hd5215452214%_) (if (gx#stx-pair? - _%tl5106451126%_) - (let ((_%e5106551129%_ + _%tl5215552217%_) + (let ((_%e5215652220%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5106451126%_))) - (let ((_%hd5106651133%_ + (gx#syntax-e _%tl5215552217%_))) + (let ((_%hd5215752224%_ (let () (declare (not safe)) - (##car _%e5106551129%_))) - (_%tl5106751136%_ + (##car _%e5215652220%_))) + (_%tl5215852227%_ (let () (declare (not safe)) - (##cdr _%e5106551129%_)))) - (if (gx#stx-null? _%tl5106751136%_) - (if (gx#stx-pair/null? _%tl5105851106%_) - (let ((_g91840_ + (##cdr _%e5215652220%_)))) + (if (gx#stx-null? _%tl5215852227%_) + (if (gx#stx-pair/null? _%tl5214952197%_) + (let ((_g92701_ (gx#syntax-split-splice - _%tl5105851106%_ + _%tl5214952197%_ '0))) (begin - (let ((_g91841_ + (let ((_g92702_ (let () (declare (not safe)) - (if (##values? _g91840_) - (##values-length _g91840_) + (if (##values? _g92701_) + (##values-length _g92701_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91841_ 2))) + (##fx= _g92702_ 2))) (error "Context expects 2 values" - _g91841_))) - (let ((_%target5106851139%_ + _g92702_))) + (let ((_%target5215952230%_ (let () (declare (not safe)) - (##values-ref _g91840_ 0))) - (_%tl5107051142%_ + (##values-ref _g92701_ 0))) + (_%tl5216152233%_ (let () (declare (not safe)) - (##values-ref _g91840_ 1)))) - (if (gx#stx-null? _%tl5107051142%_) - (letrec ((_%loop5107151145%_ - (lambda (_%hd5106951149%_ - _%body5107551152%_) + (##values-ref _g92701_ 1)))) + (if (gx#stx-null? _%tl5216152233%_) + (letrec ((_%loop5216252236%_ + (lambda (_%hd5216052240%_ + _%body5216652243%_) (if (gx#stx-pair? - _%hd5106951149%_) - (let ((_%e5107251155%_ + _%hd5216052240%_) + (let ((_%e5216352245%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd5106951149%_))) - (let ((_%lp-hd5107351159%_ + (gx#syntax-e _%hd5216052240%_))) + (let ((_%lp-hd5216452249%_ (let () (declare (not safe)) - (##car _%e5107251155%_))) - (_%lp-tl5107451162%_ + (##car _%e5216352245%_))) + (_%lp-tl5216552252%_ (let () (declare (not safe)) - (##cdr _%e5107251155%_)))) - (_%loop5107151145%_ - _%lp-tl5107451162%_ - (cons _%lp-hd5107351159%_ _%body5107551152%_)))) - (let ((_%body5107651165%_ (reverse _%body5107551152%_))) - ((lambda (_%L51169%_ _%L51171%_ _%L51172%_) - (if (gx#identifier? _%L51172%_) + (##cdr _%e5216352245%_)))) + (_%loop5216252236%_ + _%lp-tl5216552252%_ + (cons _%lp-hd5216452249%_ _%body5216652243%_)))) + (let ((_%body5216752255%_ (reverse _%body5216652243%_))) + ((lambda (_%g5214152258%_ + _%g5214252260%_ + _%g5214352261%_) + (if (gx#identifier? _%g5214352261%_) (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L51171%_ - (cons _%L51172%_ '())) + (cons (cons _%g5214252260%_ + (cons _%g5214352261%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g5119651199%_ + (foldr (lambda (_%g5228552288%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g5119751202%_) - (cons _%g5119651199%_ _%g5119751202%_)) + _%g5228652291%_) + (cons _%g5228552288%_ _%g5228652291%_)) '() - _%L51169%_))) + _%g5214152258%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'contract-violation!) - (cons _%L51172%_ + (cons _%g5214352261%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L51171%_ (cons _%L51172%_ '())))) + (cons _%g5214252260%_ (cons _%g5214352261%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (_%g5104851082%_ _%g5104951086%_))) - _%body5107651165%_ - _%hd5106651133%_ - _%hd5106051113%_)))))) + (_%g5213952173%_ _%g5214052177%_))) + _%body5216752255%_ + _%hd5215752224%_ + _%hd5215152204%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop5107151145%_ - _%target5106851139%_ + (_%loop5216252236%_ + _%target5215952230%_ '())) - (_%g5104851082%_ - _%g5104951086%_))))) - (_%g5104851082%_ _%g5104951086%_)) - (_%g5104851082%_ _%g5104951086%_)))) - (_%g5104851082%_ _%g5104951086%_)) - (_%g5104851082%_ _%g5104951086%_)) - (_%g5104851082%_ _%g5104951086%_)))) + (_%g5213952173%_ + _%g5214052177%_))))) + (_%g5213952173%_ _%g5214052177%_)) + (_%g5213952173%_ _%g5214052177%_)))) + (_%g5213952173%_ _%g5214052177%_)) + (_%g5213952173%_ _%g5214052177%_)) + (_%g5213952173%_ _%g5214052177%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5104851082%_ - _%g5104951086%_)))) - (_%g5104851082%_ _%g5104951086%_)))) - (_%g5104851082%_ _%g5104951086%_)))) - (_%g5104851082%_ _%g5104951086%_))))) - (_%g5104751205%_ _%$stx51044%_)))) + (_%g5213952173%_ + _%g5214052177%_)))) + (_%g5213952173%_ _%g5214052177%_)))) + (_%g5213952173%_ _%g5214052177%_)))) + (_%g5213952173%_ _%g5214052177%_))))) + (_%g5213852294%_ _%$stx52135%_)))) (define |gerbil/core/contract~Using[1]#!class-slot-type| - (lambda (_%klass51772%_ _%slot51774%_) - (let ((_%$e51776%_ - (let ((__obj91661 _%klass51772%_)) + (lambda (_%klass52858%_ _%slot52860%_) + (let ((_%$e52862%_ + (let ((__obj92513 _%klass52858%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91661 + __obj92513 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91661 '19 '#f '#f)) + (##unchecked-structure-ref __obj92513 '19 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91661 + __obj92513 'slot-types))))) - (if _%$e51776%_ - ((lambda (_%slot-types51780%_) - (agetq _%slot51774%_ _%slot-types51780%_)) - _%$e51776%_) + (if _%$e52862%_ + ((lambda (_%slot-types52866%_) + (agetq _%slot52860%_ _%slot-types52866%_)) + _%$e52862%_) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-default| - (lambda (_%klass51753%_ _%slot51755%_) - (let ((_%$e51757%_ - (let ((__obj91662 _%klass51753%_)) + (lambda (_%klass52839%_ _%slot52841%_) + (let ((_%$e52843%_ + (let ((__obj92514 _%klass52839%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91662 + __obj92514 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91662 '20 '#f '#f)) + (##unchecked-structure-ref __obj92514 '20 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91662 + __obj92514 'slot-defaults))))) - (if _%$e51757%_ - ((lambda (_%slot-defaults51761%_) - (let ((_%$e51764%_ - (agetq _%slot51755%_ _%slot-defaults51761%_))) - (if _%$e51764%_ - (gx#syntax-local-introduce _%$e51764%_) + (if _%$e52843%_ + ((lambda (_%slot-defaults52847%_) + (let ((_%$e52850%_ + (agetq _%slot52841%_ _%slot-defaults52847%_))) + (if _%$e52850%_ + (gx#syntax-local-introduce _%$e52850%_) '#f))) - _%$e51757%_) + _%$e52843%_) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-contract| - (lambda (_%klass51734%_ _%slot51736%_) - (let ((_%$e51738%_ - (let ((__obj91663 _%klass51734%_)) + (lambda (_%klass52820%_ _%slot52822%_) + (let ((_%$e52824%_ + (let ((__obj92515 _%klass52820%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91663 + __obj92515 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91663 '20 '#f '#f)) + (##unchecked-structure-ref __obj92515 '20 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91663 + __obj92515 'slot-defaults))))) - (if _%$e51738%_ - ((lambda (_%slot-defaults51742%_) - (let ((_%$e51745%_ - (agetq _%slot51736%_ _%slot-defaults51742%_))) - (if _%$e51745%_ - (gx#syntax-local-introduce _%$e51745%_) + (if _%$e52824%_ + ((lambda (_%slot-defaults52828%_) + (let ((_%$e52831%_ + (agetq _%slot52822%_ _%slot-defaults52828%_))) + (if _%$e52831%_ + (gx#syntax-local-introduce _%$e52831%_) '#f))) - _%$e51738%_) + _%$e52824%_) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-checked-method-contract?| - (lambda (_%klass51502%_ _%slot51504%_) - (let ((_%contract5150551507%_ + (lambda (_%klass52589%_ _%slot52591%_) + (let ((_%contract5259252594%_ (|gerbil/core/contract~Using[1]#!class-slot-contract| - _%klass51502%_ - _%slot51504%_))) - (if _%contract5150551507%_ - (let* ((_%contract51511%_ _%contract5150551507%_) - (_%__stx8618386184%_ _%contract51511%_) - (_%g5151651553%_ + _%klass52589%_ + _%slot52591%_))) + (if _%contract5259252594%_ + (let* ((_%contract52597%_ _%contract5259252594%_) + (_%__stx8713087131%_ _%contract52597%_) + (_%g5260252639%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8618386184%_)))) - (let ((_%__kont8618686187%_ - (lambda (_%L51703%_ _%L51705%_) + _%__stx8713087131%_)))) + (let ((_%__kont8713387134%_ + (lambda (_%g5260452789%_ _%g5260552791%_) (not (gx#free-identifier=? - _%L51705%_ + _%g5260552791%_ (gx#datum->syntax '#f ':-))))) - (_%__kont8618886189%_ - (lambda (_%L51643%_ _%L51645%_ _%L51646%_) + (_%__kont8713587136%_ + (lambda (_%g5261252729%_ + _%g5261352731%_ + _%g5261452732%_) (not (gx#free-identifier=? - _%L51645%_ + _%g5261352731%_ (gx#datum->syntax '#f ':-))))) - (_%__kont8619086191%_ (lambda (_%L51580%_) '#f))) - (let* ((_%__match8623686237%_ - (lambda (_%e5152951603%_ - _%hd5153051607%_ - _%tl5153151610%_ - _%e5153251613%_ - _%hd5153351617%_ - _%tl5153451620%_ - _%e5153551623%_ - _%hd5153651627%_ - _%tl5153751630%_ - _%e5153851633%_ - _%hd5153951637%_ - _%tl5154051640%_) - (let ((_%L51643%_ _%hd5153951637%_) - (_%L51645%_ _%hd5153651627%_) - (_%L51646%_ _%hd5153351617%_)) - (if (and (gx#identifier? _%L51645%_) + (_%__kont8713787138%_ (lambda (_%g5262752666%_) '#f))) + (let* ((_%__match8718387184%_ + (lambda (_%e5261552689%_ + _%hd5261652693%_ + _%tl5261752696%_ + _%e5261852699%_ + _%hd5261952703%_ + _%tl5262052706%_ + _%e5262152709%_ + _%hd5262252713%_ + _%tl5262352716%_ + _%e5262452719%_ + _%hd5262552723%_ + _%tl5262652726%_) + (let ((_%g5261252729%_ _%hd5262552723%_) + (_%g5261352731%_ _%hd5262252713%_) + (_%g5261452732%_ _%hd5261952703%_)) + (if (and (gx#identifier? _%g5261352731%_) (or (gx#free-identifier=? - _%L51645%_ + _%g5261352731%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L51645%_ + _%g5261352731%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L51645%_ + _%g5261352731%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L51645%_ + _%g5261352731%_ (gx#datum->syntax '#f ':?)))) - (_%__kont8618886189%_ - _%L51643%_ - _%L51645%_ - _%L51646%_) + (_%__kont8713587136%_ + _%g5261252729%_ + _%g5261352731%_ + _%g5261452732%_) (let () (declare (not safe)) - (_%g5151651553%_)))))) - (_%__match8620686207%_ - (lambda (_%e5152051683%_ - _%hd5152151687%_ - _%tl5152251690%_ - _%e5152351693%_ - _%hd5152451697%_ - _%tl5152551700%_) - (let ((_%L51703%_ _%hd5152451697%_) - (_%L51705%_ _%hd5152151687%_)) - (if (and (gx#identifier? _%L51705%_) + (_%g5260252639%_)))))) + (_%__match8715387154%_ + (lambda (_%e5260652769%_ + _%hd5260752773%_ + _%tl5260852776%_ + _%e5260952779%_ + _%hd5261052783%_ + _%tl5261152786%_) + (let ((_%g5260452789%_ _%hd5261052783%_) + (_%g5260552791%_ _%hd5260752773%_)) + (if (and (gx#identifier? _%g5260552791%_) (or (gx#free-identifier=? - _%L51705%_ + _%g5260552791%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L51705%_ + _%g5260552791%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L51705%_ + _%g5260552791%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L51705%_ + _%g5260552791%_ (gx#datum->syntax '#f ':?)))) - (_%__kont8618686187%_ _%L51703%_ _%L51705%_) - (if (gx#identifier? _%hd5152151687%_) + (_%__kont8713387134%_ + _%g5260452789%_ + _%g5260552791%_) + (if (gx#identifier? _%hd5260752773%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91842_| - _%hd5152151687%_) - (_%__kont8619086191%_ - _%hd5152451697%_) + |gerbil/core/contract~Using[1]#_g92703_| + _%hd5260752773%_) + (_%__kont8713787138%_ + _%hd5261052783%_) (let () (declare (not safe)) - (_%g5151651553%_))) + (_%g5260252639%_))) (let () (declare (not safe)) - (_%g5151651553%_)))))))) - (if (gx#stx-pair? _%__stx8618386184%_) - (let ((_%e5152051683%_ - (gx#syntax-e _%__stx8618386184%_))) - (let ((_%tl5152251690%_ + (_%g5260252639%_)))))))) + (if (gx#stx-pair? _%__stx8713087131%_) + (let ((_%e5260652769%_ + (gx#syntax-e _%__stx8713087131%_))) + (let ((_%tl5260852776%_ (let () (declare (not safe)) - (##cdr _%e5152051683%_))) - (_%hd5152151687%_ + (##cdr _%e5260652769%_))) + (_%hd5260752773%_ (let () (declare (not safe)) - (##car _%e5152051683%_)))) - (if (gx#stx-pair? _%tl5152251690%_) - (let ((_%e5152351693%_ - (gx#syntax-e _%tl5152251690%_))) - (let ((_%tl5152551700%_ + (##car _%e5260652769%_)))) + (if (gx#stx-pair? _%tl5260852776%_) + (let ((_%e5260952779%_ + (gx#syntax-e _%tl5260852776%_))) + (let ((_%tl5261152786%_ (let () (declare (not safe)) - (##cdr _%e5152351693%_))) - (_%hd5152451697%_ + (##cdr _%e5260952779%_))) + (_%hd5261052783%_ (let () (declare (not safe)) - (##car _%e5152351693%_)))) - (if (gx#stx-null? _%tl5152551700%_) - (_%__match8620686207%_ - _%e5152051683%_ - _%hd5152151687%_ - _%tl5152251690%_ - _%e5152351693%_ - _%hd5152451697%_ - _%tl5152551700%_) - (if (gx#identifier? _%hd5152151687%_) + (##car _%e5260952779%_)))) + (if (gx#stx-null? _%tl5261152786%_) + (_%__match8715387154%_ + _%e5260652769%_ + _%hd5260752773%_ + _%tl5260852776%_ + _%e5260952779%_ + _%hd5261052783%_ + _%tl5261152786%_) + (if (gx#identifier? _%hd5260752773%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91842_| - _%hd5152151687%_) + |gerbil/core/contract~Using[1]#_g92703_| + _%hd5260752773%_) (if (gx#stx-pair? - _%tl5152551700%_) - (let ((_%e5153551623%_ + _%tl5261152786%_) + (let ((_%e5262152709%_ (gx#syntax-e - _%tl5152551700%_))) - (let ((_%tl5153751630%_ + _%tl5261152786%_))) + (let ((_%tl5262352716%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5153551623%_))) - (_%hd5153651627%_ - (let () (declare (not safe)) (##car _%e5153551623%_)))) - (if (gx#stx-pair? _%tl5153751630%_) - (let ((_%e5153851633%_ (gx#syntax-e _%tl5153751630%_))) - (let ((_%tl5154051640%_ + (##cdr _%e5262152709%_))) + (_%hd5262252713%_ + (let () (declare (not safe)) (##car _%e5262152709%_)))) + (if (gx#stx-pair? _%tl5262352716%_) + (let ((_%e5262452719%_ (gx#syntax-e _%tl5262352716%_))) + (let ((_%tl5262652726%_ (let () (declare (not safe)) - (##cdr _%e5153851633%_))) - (_%hd5153951637%_ + (##cdr _%e5262452719%_))) + (_%hd5262552723%_ (let () (declare (not safe)) - (##car _%e5153851633%_)))) - (if (gx#stx-null? _%tl5154051640%_) - (_%__match8623686237%_ - _%e5152051683%_ - _%hd5152151687%_ - _%tl5152251690%_ - _%e5152351693%_ - _%hd5152451697%_ - _%tl5152551700%_ - _%e5153551623%_ - _%hd5153651627%_ - _%tl5153751630%_ - _%e5153851633%_ - _%hd5153951637%_ - _%tl5154051640%_) - (let () (declare (not safe)) (_%g5151651553%_))))) - (let () (declare (not safe)) (_%g5151651553%_))))) + (##car _%e5262452719%_)))) + (if (gx#stx-null? _%tl5262652726%_) + (_%__match8718387184%_ + _%e5260652769%_ + _%hd5260752773%_ + _%tl5260852776%_ + _%e5260952779%_ + _%hd5261052783%_ + _%tl5261152786%_ + _%e5262152709%_ + _%hd5262252713%_ + _%tl5262352716%_ + _%e5262452719%_ + _%hd5262552723%_ + _%tl5262652726%_) + (let () (declare (not safe)) (_%g5260252639%_))))) + (let () (declare (not safe)) (_%g5260252639%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5151651553%_))) + (_%g5260252639%_))) (let () (declare (not safe)) - (_%g5151651553%_))) + (_%g5260252639%_))) (let () (declare (not safe)) - (_%g5151651553%_)))))) + (_%g5260252639%_)))))) (let () (declare (not safe)) - (_%g5151651553%_))))) - (let () (declare (not safe)) (_%g5151651553%_)))))) + (_%g5260252639%_))))) + (let () (declare (not safe)) (_%g5260252639%_)))))) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-checked-mutator-contract?| - (lambda (_%klass51270%_ _%slot51272%_) - (let ((_%contract5127351275%_ + (lambda (_%klass52358%_ _%slot52360%_) + (let ((_%contract5236152363%_ (|gerbil/core/contract~Using[1]#!class-slot-contract| - _%klass51270%_ - _%slot51272%_))) - (if _%contract5127351275%_ - (let* ((_%contract51279%_ _%contract5127351275%_) - (_%__stx8625786258%_ _%contract51279%_) - (_%g5128451321%_ + _%klass52358%_ + _%slot52360%_))) + (if _%contract5236152363%_ + (let* ((_%contract52366%_ _%contract5236152363%_) + (_%__stx8720487205%_ _%contract52366%_) + (_%g5237152408%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8625786258%_)))) - (let ((_%__kont8626086261%_ - (lambda (_%L51471%_ _%L51473%_) + _%__stx8720487205%_)))) + (let ((_%__kont8720787208%_ + (lambda (_%g5237352558%_ _%g5237452560%_) (not (gx#free-identifier=? - _%L51473%_ + _%g5237452560%_ (gx#datum->syntax '#f ':-))))) - (_%__kont8626286263%_ - (lambda (_%L51411%_ _%L51413%_ _%L51414%_) '#t)) - (_%__kont8626486265%_ (lambda (_%L51348%_) '#t))) - (let* ((_%__match8631086311%_ - (lambda (_%e5129751371%_ - _%hd5129851375%_ - _%tl5129951378%_ - _%e5130051381%_ - _%hd5130151385%_ - _%tl5130251388%_ - _%e5130351391%_ - _%hd5130451395%_ - _%tl5130551398%_ - _%e5130651401%_ - _%hd5130751405%_ - _%tl5130851408%_) - (let ((_%L51411%_ _%hd5130751405%_) - (_%L51413%_ _%hd5130451395%_) - (_%L51414%_ _%hd5130151385%_)) - (if (and (gx#identifier? _%L51413%_) + (_%__kont8720987210%_ + (lambda (_%g5238152498%_ + _%g5238252500%_ + _%g5238352501%_) + '#t)) + (_%__kont8721187212%_ (lambda (_%g5239652435%_) '#t))) + (let* ((_%__match8725787258%_ + (lambda (_%e5238452458%_ + _%hd5238552462%_ + _%tl5238652465%_ + _%e5238752468%_ + _%hd5238852472%_ + _%tl5238952475%_ + _%e5239052478%_ + _%hd5239152482%_ + _%tl5239252485%_ + _%e5239352488%_ + _%hd5239452492%_ + _%tl5239552495%_) + (let ((_%g5238152498%_ _%hd5239452492%_) + (_%g5238252500%_ _%hd5239152482%_) + (_%g5238352501%_ _%hd5238852472%_)) + (if (and (gx#identifier? _%g5238252500%_) (or (gx#free-identifier=? - _%L51413%_ + _%g5238252500%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L51413%_ + _%g5238252500%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L51413%_ + _%g5238252500%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L51413%_ + _%g5238252500%_ (gx#datum->syntax '#f ':?)))) - (_%__kont8626286263%_ - _%L51411%_ - _%L51413%_ - _%L51414%_) + (_%__kont8720987210%_ + _%g5238152498%_ + _%g5238252500%_ + _%g5238352501%_) (let () (declare (not safe)) - (_%g5128451321%_)))))) - (_%__match8628086281%_ - (lambda (_%e5128851451%_ - _%hd5128951455%_ - _%tl5129051458%_ - _%e5129151461%_ - _%hd5129251465%_ - _%tl5129351468%_) - (let ((_%L51471%_ _%hd5129251465%_) - (_%L51473%_ _%hd5128951455%_)) - (if (and (gx#identifier? _%L51473%_) + (_%g5237152408%_)))))) + (_%__match8722787228%_ + (lambda (_%e5237552538%_ + _%hd5237652542%_ + _%tl5237752545%_ + _%e5237852548%_ + _%hd5237952552%_ + _%tl5238052555%_) + (let ((_%g5237352558%_ _%hd5237952552%_) + (_%g5237452560%_ _%hd5237652542%_)) + (if (and (gx#identifier? _%g5237452560%_) (or (gx#free-identifier=? - _%L51473%_ + _%g5237452560%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L51473%_ + _%g5237452560%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L51473%_ + _%g5237452560%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L51473%_ + _%g5237452560%_ (gx#datum->syntax '#f ':?)))) - (_%__kont8626086261%_ _%L51471%_ _%L51473%_) - (if (gx#identifier? _%hd5128951455%_) + (_%__kont8720787208%_ + _%g5237352558%_ + _%g5237452560%_) + (if (gx#identifier? _%hd5237652542%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91843_| - _%hd5128951455%_) - (_%__kont8626486265%_ - _%hd5129251465%_) + |gerbil/core/contract~Using[1]#_g92704_| + _%hd5237652542%_) + (_%__kont8721187212%_ + _%hd5237952552%_) (let () (declare (not safe)) - (_%g5128451321%_))) + (_%g5237152408%_))) (let () (declare (not safe)) - (_%g5128451321%_)))))))) - (if (gx#stx-pair? _%__stx8625786258%_) - (let ((_%e5128851451%_ - (gx#syntax-e _%__stx8625786258%_))) - (let ((_%tl5129051458%_ + (_%g5237152408%_)))))))) + (if (gx#stx-pair? _%__stx8720487205%_) + (let ((_%e5237552538%_ + (gx#syntax-e _%__stx8720487205%_))) + (let ((_%tl5237752545%_ (let () (declare (not safe)) - (##cdr _%e5128851451%_))) - (_%hd5128951455%_ + (##cdr _%e5237552538%_))) + (_%hd5237652542%_ (let () (declare (not safe)) - (##car _%e5128851451%_)))) - (if (gx#stx-pair? _%tl5129051458%_) - (let ((_%e5129151461%_ - (gx#syntax-e _%tl5129051458%_))) - (let ((_%tl5129351468%_ + (##car _%e5237552538%_)))) + (if (gx#stx-pair? _%tl5237752545%_) + (let ((_%e5237852548%_ + (gx#syntax-e _%tl5237752545%_))) + (let ((_%tl5238052555%_ (let () (declare (not safe)) - (##cdr _%e5129151461%_))) - (_%hd5129251465%_ + (##cdr _%e5237852548%_))) + (_%hd5237952552%_ (let () (declare (not safe)) - (##car _%e5129151461%_)))) - (if (gx#stx-null? _%tl5129351468%_) - (_%__match8628086281%_ - _%e5128851451%_ - _%hd5128951455%_ - _%tl5129051458%_ - _%e5129151461%_ - _%hd5129251465%_ - _%tl5129351468%_) - (if (gx#identifier? _%hd5128951455%_) + (##car _%e5237852548%_)))) + (if (gx#stx-null? _%tl5238052555%_) + (_%__match8722787228%_ + _%e5237552538%_ + _%hd5237652542%_ + _%tl5237752545%_ + _%e5237852548%_ + _%hd5237952552%_ + _%tl5238052555%_) + (if (gx#identifier? _%hd5237652542%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91843_| - _%hd5128951455%_) + |gerbil/core/contract~Using[1]#_g92704_| + _%hd5237652542%_) (if (gx#stx-pair? - _%tl5129351468%_) - (let ((_%e5130351391%_ + _%tl5238052555%_) + (let ((_%e5239052478%_ (gx#syntax-e - _%tl5129351468%_))) - (let ((_%tl5130551398%_ + _%tl5238052555%_))) + (let ((_%tl5239252485%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5130351391%_))) - (_%hd5130451395%_ - (let () (declare (not safe)) (##car _%e5130351391%_)))) - (if (gx#stx-pair? _%tl5130551398%_) - (let ((_%e5130651401%_ (gx#syntax-e _%tl5130551398%_))) - (let ((_%tl5130851408%_ + (##cdr _%e5239052478%_))) + (_%hd5239152482%_ + (let () (declare (not safe)) (##car _%e5239052478%_)))) + (if (gx#stx-pair? _%tl5239252485%_) + (let ((_%e5239352488%_ (gx#syntax-e _%tl5239252485%_))) + (let ((_%tl5239552495%_ (let () (declare (not safe)) - (##cdr _%e5130651401%_))) - (_%hd5130751405%_ + (##cdr _%e5239352488%_))) + (_%hd5239452492%_ (let () (declare (not safe)) - (##car _%e5130651401%_)))) - (if (gx#stx-null? _%tl5130851408%_) - (_%__match8631086311%_ - _%e5128851451%_ - _%hd5128951455%_ - _%tl5129051458%_ - _%e5129151461%_ - _%hd5129251465%_ - _%tl5129351468%_ - _%e5130351391%_ - _%hd5130451395%_ - _%tl5130551398%_ - _%e5130651401%_ - _%hd5130751405%_ - _%tl5130851408%_) - (let () (declare (not safe)) (_%g5128451321%_))))) - (let () (declare (not safe)) (_%g5128451321%_))))) + (##car _%e5239352488%_)))) + (if (gx#stx-null? _%tl5239552495%_) + (_%__match8725787258%_ + _%e5237552538%_ + _%hd5237652542%_ + _%tl5237752545%_ + _%e5237852548%_ + _%hd5237952552%_ + _%tl5238052555%_ + _%e5239052478%_ + _%hd5239152482%_ + _%tl5239252485%_ + _%e5239352488%_ + _%hd5239452492%_ + _%tl5239552495%_) + (let () (declare (not safe)) (_%g5237152408%_))))) + (let () (declare (not safe)) (_%g5237152408%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5128451321%_))) + (_%g5237152408%_))) (let () (declare (not safe)) - (_%g5128451321%_))) + (_%g5237152408%_))) (let () (declare (not safe)) - (_%g5128451321%_)))))) + (_%g5237152408%_)))))) (let () (declare (not safe)) - (_%g5128451321%_))))) - (let () (declare (not safe)) (_%g5128451321%_)))))) + (_%g5237152408%_))))) + (let () (declare (not safe)) (_%g5237152408%_)))))) '#f)))) (define |gerbil/core/contract~Using[1]#dotted-identifier?| - (lambda (_%id51256%_) - (if (gx#identifier? _%id51256%_) - (let* ((_%str51259%_ (symbol->string (gx#stx-e _%id51256%_))) - (_%index5126151263%_ (string-index _%str51259%_ '#\.))) - (if _%index5126151263%_ - (let ((_%index51267%_ _%index5126151263%_)) - (if (let () (declare (not safe)) (##fx> _%index51267%_ '0)) + (lambda (_%id52345%_) + (if (gx#identifier? _%id52345%_) + (let* ((_%str52348%_ (symbol->string (gx#stx-e _%id52345%_))) + (_%index5235052352%_ (string-index _%str52348%_ '#\.))) + (if _%index5235052352%_ + (let ((_%index52355%_ _%index5235052352%_)) + (if (let () (declare (not safe)) (##fx> _%index52355%_ '0)) (not (ormap string-empty? - (string-split _%str51259%_ '#\.))) + (string-split _%str52348%_ '#\.))) '#f)) '#f)) '#f))) (define |gerbil/core/contract~Using[1]#split-dotted-identifier| - (lambda (_%stx51249%_ _%id51251%_) - (let ((_%parts51253%_ - (string-split (symbol->string (gx#stx-e _%id51251%_)) '#\.))) - (if (find string-empty? _%parts51253%_) + (lambda (_%stx52338%_ _%id52340%_) + (let ((_%parts52342%_ + (string-split (symbol->string (gx#stx-e _%id52340%_)) '#\.))) + (if (find string-empty? _%parts52342%_) (gx#raise-syntax-error '#f '"bad dotted identifier" - _%stx51249%_ - _%id51251%_) - (cons (gx#stx-identifier _%id51251%_ (car _%parts51253%_)) - (map string->symbol (cdr _%parts51253%_))))))) + _%stx52338%_ + _%id52340%_) + (cons (gx#stx-identifier _%id52340%_ (car _%parts52342%_)) + (map string->symbol (cdr _%parts52342%_))))))) (define |gerbil/core/contract~Using[1]#get-slot-accessor| - (lambda (_%stx51230%_ _%klass-or-id51232%_ _%slot51233%_) - (let* ((_%klass51235%_ - (if (gx#identifier? _%klass-or-id51232%_) + (lambda (_%stx52319%_ _%klass-or-id52321%_ _%slot52322%_) + (let* ((_%klass52324%_ + (if (gx#identifier? _%klass-or-id52321%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx51230%_ - _%klass-or-id51232%_)) - _%klass-or-id51232%_)) - (_%accessors51238%_ - (let ((__obj91664 _%klass51235%_)) + _%stx52319%_ + _%klass-or-id52321%_)) + _%klass-or-id52321%_)) + (_%accessors52327%_ + (let ((__obj92516 _%klass52324%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91664 + __obj92516 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91664 '17 '#f '#f)) + (##unchecked-structure-ref __obj92516 '17 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91664 + __obj92516 'unchecked-accessors)))) - (_%$e51243%_ (agetq _%slot51233%_ _%accessors51238%_))) - (if _%$e51243%_ - _%$e51243%_ + (_%$e52332%_ (agetq _%slot52322%_ _%accessors52327%_))) + (if _%$e52332%_ + _%$e52332%_ (gx#raise-syntax-error '#f '"no accessor for slot" - _%stx51230%_ - _%klass51235%_ - _%slot51233%_))))) + _%stx52319%_ + _%klass52324%_ + _%slot52322%_))))) (define |gerbil/core/contract~Using[1]#get-slot-mutator| - (lambda (_%stx51210%_ - _%klass-or-id51212%_ - _%slot51213%_ - _%checked?51214%_) - (let* ((_%klass51216%_ - (if (gx#identifier? _%klass-or-id51212%_) + (lambda (_%stx52299%_ + _%klass-or-id52301%_ + _%slot52302%_ + _%checked?52303%_) + (let* ((_%klass52305%_ + (if (gx#identifier? _%klass-or-id52301%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx51210%_ - _%klass-or-id51212%_)) - _%klass-or-id51212%_)) - (_%mutators51219%_ - (if _%checked?51214%_ - (let ((__obj91665 _%klass51216%_)) + _%stx52299%_ + _%klass-or-id52301%_)) + _%klass-or-id52301%_)) + (_%mutators52308%_ + (if _%checked?52303%_ + (let ((__obj92517 _%klass52305%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91665 + __obj92517 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91665 '16 '#f '#f)) + (##unchecked-structure-ref __obj92517 '16 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91665 + __obj92517 'mutators))) - (let ((__obj91666 _%klass51216%_)) + (let ((__obj92518 _%klass52305%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91666 + __obj92518 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91666 '18 '#f '#f)) + (##unchecked-structure-ref __obj92518 '18 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91666 + __obj92518 'unchecked-mutators))))) - (_%$e51224%_ (agetq _%slot51213%_ _%mutators51219%_))) - (if _%$e51224%_ - _%$e51224%_ + (_%$e52313%_ (agetq _%slot52302%_ _%mutators52308%_))) + (if _%$e52313%_ + _%$e52313%_ (gx#raise-syntax-error '#f '"no mutator for slot" - _%stx51210%_ - _%klass51216%_ - _%slot51213%_))))) + _%stx52299%_ + _%klass52305%_ + _%slot52302%_))))) (define |gerbil/core/contract~Using[:0:]#with-class| - (lambda (_%stx51785%_) - (letrec ((_%expand-body51788%_ - (lambda (_%klass52696%_ - _%var52698%_ - _%Type52699%_ - _%body52700%_ - _%checked?52701%_) - (let* ((_%g5270352747%_ - (lambda (_%g5270452743%_) + (lambda (_%stx52871%_) + (letrec ((_%expand-body52874%_ + (lambda (_%klass53772%_ + _%var53774%_ + _%Type53775%_ + _%body53776%_ + _%checked?53777%_) + (let* ((_%g5377953823%_ + (lambda (_%g5378053819%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5270452743%_))) - (_%g5270252904%_ - (lambda (_%g5270452751%_) - (if (gx#stx-pair? _%g5270452751%_) - (let ((_%e5271252754%_ - (gx#syntax-e _%g5270452751%_))) - (let ((_%hd5271352758%_ + _%g5378053819%_))) + (_%g5377853978%_ + (lambda (_%g5378053827%_) + (if (gx#stx-pair? _%g5378053827%_) + (let ((_%e5378853830%_ + (gx#syntax-e _%g5378053827%_))) + (let ((_%hd5378953834%_ (let () (declare (not safe)) - (##car _%e5271252754%_))) - (_%tl5271452761%_ + (##car _%e5378853830%_))) + (_%tl5379053837%_ (let () (declare (not safe)) - (##cdr _%e5271252754%_)))) - (if (gx#stx-pair? _%tl5271452761%_) - (let ((_%e5271552764%_ + (##cdr _%e5378853830%_)))) + (if (gx#stx-pair? _%tl5379053837%_) + (let ((_%e5379153840%_ (gx#syntax-e - _%tl5271452761%_))) - (let ((_%hd5271652768%_ + _%tl5379053837%_))) + (let ((_%hd5379253844%_ (let () (declare (not safe)) - (##car _%e5271552764%_))) - (_%tl5271752771%_ + (##car _%e5379153840%_))) + (_%tl5379353847%_ (let () (declare (not safe)) - (##cdr _%e5271552764%_)))) + (##cdr _%e5379153840%_)))) (if (gx#stx-pair? - _%tl5271752771%_) - (let ((_%e5271852774%_ + _%tl5379353847%_) + (let ((_%e5379453850%_ (gx#syntax-e - _%tl5271752771%_))) - (let ((_%hd5271952778%_ + _%tl5379353847%_))) + (let ((_%hd5379553854%_ (let () (declare (not safe)) - (##car _%e5271852774%_))) - (_%tl5272052781%_ + (##car _%e5379453850%_))) + (_%tl5379653857%_ (let () (declare (not safe)) - (##cdr _%e5271852774%_)))) + (##cdr _%e5379453850%_)))) (if (gx#stx-pair? - _%tl5272052781%_) - (let ((_%e5272152784%_ + _%tl5379653857%_) + (let ((_%e5379753860%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5272052781%_))) - (let ((_%hd5272252788%_ + (gx#syntax-e _%tl5379653857%_))) + (let ((_%hd5379853864%_ (let () (declare (not safe)) - (##car _%e5272152784%_))) - (_%tl5272352791%_ + (##car _%e5379753860%_))) + (_%tl5379953867%_ (let () (declare (not safe)) - (##cdr _%e5272152784%_)))) - (if (gx#stx-pair? _%tl5272352791%_) - (let ((_%e5272452794%_ - (gx#syntax-e _%tl5272352791%_))) - (let ((_%hd5272552798%_ + (##cdr _%e5379753860%_)))) + (if (gx#stx-pair? _%tl5379953867%_) + (let ((_%e5380053870%_ + (gx#syntax-e _%tl5379953867%_))) + (let ((_%hd5380153874%_ (let () (declare (not safe)) - (##car _%e5272452794%_))) - (_%tl5272652801%_ + (##car _%e5380053870%_))) + (_%tl5380253877%_ (let () (declare (not safe)) - (##cdr _%e5272452794%_)))) - (if (gx#stx-pair? _%tl5272652801%_) - (let ((_%e5272752804%_ - (gx#syntax-e _%tl5272652801%_))) - (let ((_%hd5272852808%_ + (##cdr _%e5380053870%_)))) + (if (gx#stx-pair? _%tl5380253877%_) + (let ((_%e5380353880%_ + (gx#syntax-e _%tl5380253877%_))) + (let ((_%hd5380453884%_ (let () (declare (not safe)) - (##car _%e5272752804%_))) - (_%tl5272952811%_ + (##car _%e5380353880%_))) + (_%tl5380553887%_ (let () (declare (not safe)) - (##cdr _%e5272752804%_)))) - (if (gx#stx-pair? _%tl5272952811%_) - (let ((_%e5273052814%_ + (##cdr _%e5380353880%_)))) + (if (gx#stx-pair? _%tl5380553887%_) + (let ((_%e5380653890%_ (gx#syntax-e - _%tl5272952811%_))) - (let ((_%hd5273152818%_ + _%tl5380553887%_))) + (let ((_%hd5380753894%_ (let () (declare (not safe)) - (##car _%e5273052814%_))) - (_%tl5273252821%_ + (##car _%e5380653890%_))) + (_%tl5380853897%_ (let () (declare (not safe)) - (##cdr _%e5273052814%_)))) + (##cdr _%e5380653890%_)))) (if (gx#stx-pair/null? - _%hd5273152818%_) - (let ((_g91844_ + _%hd5380753894%_) + (let ((_g92705_ (gx#syntax-split-splice - _%hd5273152818%_ + _%hd5380753894%_ '0))) (begin - (let ((_g91845_ + (let ((_g92706_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g91844_) - (##values-length _g91844_) + (if (##values? _g92705_) + (##values-length _g92705_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g91845_ 2))) - (error "Context expects 2 values" _g91845_))) - (let ((_%target5273352824%_ - (let () (declare (not safe)) (##values-ref _g91844_ 0))) - (_%tl5273552827%_ - (let () (declare (not safe)) (##values-ref _g91844_ 1)))) - (if (gx#stx-null? _%tl5273552827%_) - (letrec ((_%loop5273652830%_ - (lambda (_%hd5273452834%_ _%body5274052837%_) - (if (gx#stx-pair? _%hd5273452834%_) - (let ((_%e5273752840%_ - (gx#syntax-e _%hd5273452834%_))) - (let ((_%lp-hd5273852844%_ + (if (not (let () (declare (not safe)) (##fx= _g92706_ 2))) + (error "Context expects 2 values" _g92706_))) + (let ((_%target5380953900%_ + (let () (declare (not safe)) (##values-ref _g92705_ 0))) + (_%tl5381153903%_ + (let () (declare (not safe)) (##values-ref _g92705_ 1)))) + (if (gx#stx-null? _%tl5381153903%_) + (letrec ((_%loop5381253906%_ + (lambda (_%hd5381053910%_ _%body5381653913%_) + (if (gx#stx-pair? _%hd5381053910%_) + (let ((_%e5381353915%_ + (gx#syntax-e _%hd5381053910%_))) + (let ((_%lp-hd5381453919%_ (let () (declare (not safe)) - (##car _%e5273752840%_))) - (_%lp-tl5273952847%_ + (##car _%e5381353915%_))) + (_%lp-tl5381553922%_ (let () (declare (not safe)) - (##cdr _%e5273752840%_)))) - (_%loop5273652830%_ - _%lp-tl5273952847%_ - (cons _%lp-hd5273852844%_ - _%body5274052837%_)))) - (let ((_%body5274152850%_ - (reverse _%body5274052837%_))) - (if (gx#stx-null? _%tl5273252821%_) - ((lambda (_%L52854%_ - _%L52856%_ - _%L52857%_ - _%L52858%_ - _%L52859%_ - _%L52860%_ - _%L52861%_) + (##cdr _%e5381353915%_)))) + (_%loop5381253906%_ + _%lp-tl5381553922%_ + (cons _%lp-hd5381453919%_ + _%body5381653913%_)))) + (let ((_%body5381753925%_ + (reverse _%body5381653913%_))) + (if (gx#stx-null? _%tl5380853897%_) + ((lambda (_%g5378153928%_ + _%g5378253930%_ + _%g5378353931%_ + _%g5378453932%_ + _%g5378553933%_ + _%g5378653934%_ + _%g5378753935%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L52859%_ + (cons (cons _%g5378553933%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L52860%_ '())) - (cons _%L52859%_ '()))) + (cons _%g5378653934%_ '())) + (cons _%g5378553933%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'let-syntax) - (cons (cons (cons _%L52861%_ + (cons (cons (cons _%g5378753935%_ (cons (cons (gx#datum->syntax '#f 'make-type-env) @@ -5082,1105 +5141,1127 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L52859%_ '())) + (cons _%g5378553933%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L52858%_ '())) - (cons _%L52857%_ + (cons _%g5378453932%_ '())) + (cons _%g5378353931%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L52856%_ '())) + (cons _%g5378253930%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g5289552898%_ + (foldr (lambda (_%g5396953972%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g5289652901%_) - (cons _%g5289552898%_ _%g5289652901%_)) + _%g5397053975%_) + (cons _%g5396953972%_ _%g5397053975%_)) '() - _%L52854%_))) + _%g5378153928%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body5274152850%_ - _%hd5272852808%_ - _%hd5272552798%_ - _%hd5272252788%_ - _%hd5271952778%_ - _%hd5271652768%_ - _%hd5271352758%_) - (_%g5270352747%_ - _%g5270452751%_))))))) - (_%loop5273652830%_ _%target5273352824%_ '())) - (_%g5270352747%_ _%g5270452751%_))))) + _%body5381753925%_ + _%hd5380453884%_ + _%hd5380153874%_ + _%hd5379853864%_ + _%hd5379553854%_ + _%hd5379253844%_ + _%hd5378953834%_) + (_%g5377953823%_ + _%g5378053827%_))))))) + (_%loop5381253906%_ _%target5380953900%_ '())) + (_%g5377953823%_ _%g5378053827%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5270352747%_ - _%g5270452751%_)))) - (_%g5270352747%_ _%g5270452751%_)))) - (_%g5270352747%_ _%g5270452751%_)))) - (_%g5270352747%_ _%g5270452751%_)))) - (_%g5270352747%_ _%g5270452751%_)))) + (_%g5377953823%_ + _%g5378053827%_)))) + (_%g5377953823%_ _%g5378053827%_)))) + (_%g5377953823%_ _%g5378053827%_)))) + (_%g5377953823%_ _%g5378053827%_)))) + (_%g5377953823%_ _%g5378053827%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5270352747%_ - _%g5270452751%_)))) - (_%g5270352747%_ _%g5270452751%_)))) - (_%g5270352747%_ _%g5270452751%_))))) - (_%g5270252904%_ + (_%g5377953823%_ + _%g5378053827%_)))) + (_%g5377953823%_ _%g5378053827%_)))) + (_%g5377953823%_ _%g5378053827%_))))) + (_%g5377853978%_ (list (gx#syntax-local-introduce '@@type) - (let ((__obj91667 _%klass52696%_)) + (let ((__obj92519 _%klass53772%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91667 + __obj92519 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91667 - '12 + __obj92519 + '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91667 + __obj92519 'type-descriptor))) - _%var52698%_ - _%klass52696%_ - _%checked?52701%_ + _%var53774%_ + _%klass53772%_ + _%checked?53777%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#current-type-env)) - _%body52700%_))))) - (_%expand51790%_ - (lambda (_%var52588%_ - _%Type52590%_ - _%body52591%_ - _%checked?52592%_ - _%checked-mutators?52593%_ - _%maybe?52594%_) - (let* ((_%klass52596%_ - (gx#syntax-local-value _%Type52590%_ false)) - (_%expr-body52603%_ - (_%expand-body51788%_ - _%klass52596%_ - _%var52588%_ - _%Type52590%_ - _%body52591%_ - (let ((_%$e52599%_ _%checked?52592%_)) - (if _%$e52599%_ - _%$e52599%_ - _%checked-mutators?52593%_))))) - (if _%checked?52592%_ - (let* ((_%g5260852627%_ - (lambda (_%g5260952623%_) + _%body53776%_))))) + (_%expand52876%_ + (lambda (_%var53664%_ + _%Type53666%_ + _%body53667%_ + _%checked?53668%_ + _%checked-mutators?53669%_ + _%maybe?53670%_) + (let* ((_%klass53672%_ + (gx#syntax-local-value _%Type53666%_ false)) + (_%expr-body53679%_ + (_%expand-body52874%_ + _%klass53672%_ + _%var53664%_ + _%Type53666%_ + _%body53667%_ + (let ((_%$e53675%_ _%checked?53668%_)) + (if _%$e53675%_ + _%$e53675%_ + _%checked-mutators?53669%_))))) + (if _%checked?53668%_ + (let* ((_%g5368453703%_ + (lambda (_%g5368553699%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5260952623%_))) - (_%g5260752689%_ - (lambda (_%g5260952631%_) - (if (gx#stx-pair? _%g5260952631%_) - (let ((_%e5261352634%_ - (gx#syntax-e _%g5260952631%_))) - (let ((_%hd5261452638%_ + _%g5368553699%_))) + (_%g5368353765%_ + (lambda (_%g5368553707%_) + (if (gx#stx-pair? _%g5368553707%_) + (let ((_%e5368953710%_ + (gx#syntax-e _%g5368553707%_))) + (let ((_%hd5369053714%_ (let () (declare (not safe)) - (##car _%e5261352634%_))) - (_%tl5261552641%_ + (##car _%e5368953710%_))) + (_%tl5369153717%_ (let () (declare (not safe)) - (##cdr _%e5261352634%_)))) - (if (gx#stx-pair? _%tl5261552641%_) - (let ((_%e5261652644%_ + (##cdr _%e5368953710%_)))) + (if (gx#stx-pair? _%tl5369153717%_) + (let ((_%e5369253720%_ (gx#syntax-e - _%tl5261552641%_))) - (let ((_%hd5261752648%_ + _%tl5369153717%_))) + (let ((_%hd5369353724%_ (let () (declare (not safe)) - (##car _%e5261652644%_))) - (_%tl5261852651%_ + (##car _%e5369253720%_))) + (_%tl5369453727%_ (let () (declare (not safe)) - (##cdr _%e5261652644%_)))) + (##cdr _%e5369253720%_)))) (if (gx#stx-pair? - _%tl5261852651%_) - (let ((_%e5261952654%_ + _%tl5369453727%_) + (let ((_%e5369553730%_ (gx#syntax-e - _%tl5261852651%_))) - (let ((_%hd5262052658%_ + _%tl5369453727%_))) + (let ((_%hd5369653734%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e5261952654%_))) - (_%tl5262152661%_ + (let () (declare (not safe)) (##car _%e5369553730%_))) + (_%tl5369753737%_ (let () (declare (not safe)) - (##cdr _%e5261952654%_)))) - (if (gx#stx-null? _%tl5262152661%_) - ((lambda (_%L52664%_ _%L52666%_ _%L52667%_) + (##cdr _%e5369553730%_)))) + (if (gx#stx-null? _%tl5369753737%_) + ((lambda (_%g5368653740%_ + _%g5368753742%_ + _%g5368853743%_) (cons (gx#datum->syntax '#f 'with-contract) - (cons (cons _%L52666%_ + (cons (cons _%g5368753742%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L52667%_ '()))) - (cons _%L52664%_ '())))) - _%hd5262052658%_ - _%hd5261752648%_ - _%hd5261452638%_) - (_%g5260852627%_ _%g5260952631%_)))) - (_%g5260852627%_ _%g5260952631%_)))) + (cons _%g5368853743%_ '()))) + (cons _%g5368653740%_ '())))) + _%hd5369653734%_ + _%hd5369353724%_ + _%hd5369053714%_) + (_%g5368453703%_ _%g5368553707%_)))) + (_%g5368453703%_ _%g5368553707%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5260852627%_ - _%g5260952631%_)))) - (_%g5260852627%_ _%g5260952631%_))))) - (_%g5260752689%_ - (list (let ((_%instance?52693%_ - (let ((__obj91668 _%klass52596%_)) + (_%g5368453703%_ + _%g5368553707%_)))) + (_%g5368453703%_ _%g5368553707%_))))) + (_%g5368353765%_ + (list (let ((_%instance?53769%_ + (let ((__obj92520 _%klass53672%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91668 + __obj92520 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91668 + __obj92520 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91668 + __obj92520 'predicate))))) - (if _%maybe?52594%_ + (if _%maybe?53670%_ (cons '? (cons (cons 'or (cons 'not ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%instance?52693%_ '()))) + (cons _%instance?53769%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - _%instance?52693%_)) - _%var52588%_ - _%expr-body52603%_))) - _%expr-body52603%_))))) - (let* ((_%__stx8633186332%_ _%stx51785%_) - (_%g5179651939%_ + _%instance?53769%_)) + _%var53664%_ + _%expr-body53679%_))) + _%expr-body53679%_))))) + (let* ((_%__stx8727887279%_ _%stx52871%_) + (_%g5288253025%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8633186332%_)))) - (let ((_%__kont8633486335%_ - (lambda (_%L52516%_ _%L52518%_ _%L52519%_ _%L52520%_) - (let* ((_%g5254552553%_ - (lambda (_%g5254652549%_) + _%__stx8727887279%_)))) + (let ((_%__kont8728187282%_ + (lambda (_%g5288453592%_ + _%g5288553594%_ + _%g5288653595%_ + _%g5288753596%_) + (let* ((_%g5362153629%_ + (lambda (_%g5362253625%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5254652549%_))) - (_%g5254452580%_ - (lambda (_%g5254652557%_) - ((lambda (_%L52560%_) + _%g5362253625%_))) + (_%g5362053656%_ + (lambda (_%g5362253633%_) + ((lambda (_%g5362353636%_) (cons (gx#datum->syntax '#f 'with-class) - (cons (cons _%L52520%_ - (cons _%L52519%_ - (cons _%L52560%_ + (cons (cons _%g5288753596%_ + (cons _%g5288653595%_ + (cons _%g5362353636%_ '()))) - (foldr (lambda (_%g5257152574%_ - _%g5257252577%_) - (cons _%g5257152574%_ - _%g5257252577%_)) + (foldr (lambda (_%g5364753650%_ + _%g5364853653%_) + (cons _%g5364753650%_ + _%g5364853653%_)) '() - _%L52516%_)))) - _%g5254652557%_)))) - (_%g5254452580%_ - (let ((__obj91669 (gx#syntax-local-value _%L52518%_))) + _%g5288453592%_)))) + _%g5362253633%_)))) + (_%g5362053656%_ + (let ((__obj92521 + (gx#syntax-local-value _%g5288553594%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91669 + __obj92521 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91669 + __obj92521 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj91669 + __obj92521 'identifier))))))) - (_%__kont8633886339%_ - (lambda (_%L52394%_ _%L52396%_ _%L52397%_) - (_%expand51790%_ - _%L52397%_ - _%L52396%_ - (foldr (lambda (_%g5242052423%_ _%g5242152426%_) - (cons _%g5242052423%_ _%g5242152426%_)) + (_%__kont8728587286%_ + (lambda (_%g5291253472%_ _%g5291353474%_ _%g5291453475%_) + (_%expand52876%_ + _%g5291453475%_ + _%g5291353474%_ + (foldr (lambda (_%g5349853501%_ _%g5349953504%_) + (cons _%g5349853501%_ _%g5349953504%_)) '() - _%L52394%_) + _%g5291253472%_) '#t '#t '#f))) - (_%__kont8634286343%_ - (lambda (_%L52272%_ _%L52274%_ _%L52275%_) - (_%expand51790%_ - _%L52275%_ - _%L52274%_ - (foldr (lambda (_%g5229852301%_ _%g5229952304%_) - (cons _%g5229852301%_ _%g5229952304%_)) + (_%__kont8728987290%_ + (lambda (_%g5293953352%_ _%g5294053354%_ _%g5294153355%_) + (_%expand52876%_ + _%g5294153355%_ + _%g5294053354%_ + (foldr (lambda (_%g5337853381%_ _%g5337953384%_) + (cons _%g5337853381%_ _%g5337953384%_)) '() - _%L52272%_) + _%g5293953352%_) '#t '#t '#t))) - (_%__kont8634686347%_ - (lambda (_%L52150%_ _%L52152%_ _%L52153%_) - (_%expand51790%_ - _%L52153%_ - _%L52152%_ - (foldr (lambda (_%g5217652179%_ _%g5217752182%_) - (cons _%g5217652179%_ _%g5217752182%_)) + (_%__kont8729387294%_ + (lambda (_%g5296653232%_ _%g5296753234%_ _%g5296853235%_) + (_%expand52876%_ + _%g5296853235%_ + _%g5296753234%_ + (foldr (lambda (_%g5325853261%_ _%g5325953264%_) + (cons _%g5325853261%_ _%g5325953264%_)) '() - _%L52150%_) + _%g5296653232%_) '#f '#f '#f))) - (_%__kont8635086351%_ - (lambda (_%L52026%_ _%L52028%_ _%L52029%_) - (_%expand51790%_ - _%L52029%_ - _%L52028%_ - (foldr (lambda (_%g5205452057%_ _%g5205552060%_) - (cons _%g5205452057%_ _%g5205552060%_)) + (_%__kont8729787298%_ + (lambda (_%g5299353110%_ _%g5299453112%_ _%g5299553113%_) + (_%expand52876%_ + _%g5299553113%_ + _%g5299453112%_ + (foldr (lambda (_%g5313853141%_ _%g5313953144%_) + (cons _%g5313853141%_ _%g5313953144%_)) '() - _%L52026%_) + _%g5299353110%_) '#f '#t '#f)))) - (let* ((_%__match8657086571%_ - (lambda (_%e5191051946%_ - _%hd5191151950%_ - _%tl5191251953%_ - _%e5191351956%_ - _%hd5191451960%_ - _%tl5191551963%_ - _%e5191651966%_ - _%hd5191751970%_ - _%tl5191851973%_ - _%e5191951976%_ - _%hd5192051980%_ - _%tl5192151983%_ - _%e5192251986%_ - _%hd5192351990%_ - _%tl5192451993%_ - _%__splice8635286353%_ - _%target5192551996%_ - _%tl5192751999%_) - (letrec ((_%loop5192852002%_ - (lambda (_%hd5192652006%_ _%body5193252009%_) - (if (gx#stx-pair? _%hd5192652006%_) - (let ((_%e5192952012%_ - (gx#syntax-e _%hd5192652006%_))) - (let ((_%lp-tl5193152019%_ + (let* ((_%__match8751787518%_ + (lambda (_%e5299653032%_ + _%hd5299753036%_ + _%tl5299853039%_ + _%e5299953042%_ + _%hd5300053046%_ + _%tl5300153049%_ + _%e5300253052%_ + _%hd5300353056%_ + _%tl5300453059%_ + _%e5300553062%_ + _%hd5300653066%_ + _%tl5300753069%_ + _%e5300853072%_ + _%hd5300953076%_ + _%tl5301053079%_ + _%__splice8729987300%_ + _%target5301153082%_ + _%tl5301353085%_) + (letrec ((_%loop5301453088%_ + (lambda (_%hd5301253092%_ _%body5301853095%_) + (if (gx#stx-pair? _%hd5301253092%_) + (let ((_%e5301553097%_ + (gx#syntax-e _%hd5301253092%_))) + (let ((_%lp-tl5301753104%_ (let () (declare (not safe)) - (##cdr _%e5192952012%_))) - (_%lp-hd5193052016%_ + (##cdr _%e5301553097%_))) + (_%lp-hd5301653101%_ (let () (declare (not safe)) - (##car _%e5192952012%_)))) - (_%loop5192852002%_ - _%lp-tl5193152019%_ - (cons _%lp-hd5193052016%_ - _%body5193252009%_)))) - (let ((_%body5193352022%_ - (reverse _%body5193252009%_))) - (let ((_%L52026%_ _%body5193352022%_) - (_%L52028%_ _%hd5192351990%_) - (_%L52029%_ _%hd5191751970%_)) + (##car _%e5301553097%_)))) + (_%loop5301453088%_ + _%lp-tl5301753104%_ + (cons _%lp-hd5301653101%_ + _%body5301853095%_)))) + (let ((_%body5301953107%_ + (reverse _%body5301853095%_))) + (let ((_%g5299353110%_ + _%body5301953107%_) + (_%g5299453112%_ + _%hd5300953076%_) + (_%g5299553113%_ + _%hd5300353056%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L52028%_)) - (_%__kont8635086351%_ - _%L52026%_ - _%L52028%_ - _%L52029%_) + _%g5299453112%_)) + (_%__kont8729787298%_ + _%g5299353110%_ + _%g5299453112%_ + _%g5299553113%_) (let () (declare (not safe)) - (_%g5179651939%_))))))))) - (_%loop5192852002%_ _%target5192551996%_ '())))) - (_%__match8652686527%_ - (lambda (_%e5188352070%_ - _%hd5188452074%_ - _%tl5188552077%_ - _%e5188652080%_ - _%hd5188752084%_ - _%tl5188852087%_ - _%e5188952090%_ - _%hd5189052094%_ - _%tl5189152097%_ - _%e5189252100%_ - _%hd5189352104%_ - _%tl5189452107%_ - _%e5189552110%_ - _%hd5189652114%_ - _%tl5189752117%_ - _%__splice8634886349%_ - _%target5189852120%_ - _%tl5190052123%_) - (letrec ((_%loop5190152126%_ - (lambda (_%hd5189952130%_ _%body5190552133%_) - (if (gx#stx-pair? _%hd5189952130%_) - (let ((_%e5190252136%_ - (gx#syntax-e _%hd5189952130%_))) - (let ((_%lp-tl5190452143%_ + (_%g5288253025%_))))))))) + (_%loop5301453088%_ _%target5301153082%_ '())))) + (_%__match8747387474%_ + (lambda (_%e5296953154%_ + _%hd5297053158%_ + _%tl5297153161%_ + _%e5297253164%_ + _%hd5297353168%_ + _%tl5297453171%_ + _%e5297553174%_ + _%hd5297653178%_ + _%tl5297753181%_ + _%e5297853184%_ + _%hd5297953188%_ + _%tl5298053191%_ + _%e5298153194%_ + _%hd5298253198%_ + _%tl5298353201%_ + _%__splice8729587296%_ + _%target5298453204%_ + _%tl5298653207%_) + (letrec ((_%loop5298753210%_ + (lambda (_%hd5298553214%_ _%body5299153217%_) + (if (gx#stx-pair? _%hd5298553214%_) + (let ((_%e5298853219%_ + (gx#syntax-e _%hd5298553214%_))) + (let ((_%lp-tl5299053226%_ (let () (declare (not safe)) - (##cdr _%e5190252136%_))) - (_%lp-hd5190352140%_ + (##cdr _%e5298853219%_))) + (_%lp-hd5298953223%_ (let () (declare (not safe)) - (##car _%e5190252136%_)))) - (_%loop5190152126%_ - _%lp-tl5190452143%_ - (cons _%lp-hd5190352140%_ - _%body5190552133%_)))) - (let ((_%body5190652146%_ - (reverse _%body5190552133%_))) - (let ((_%L52150%_ _%body5190652146%_) - (_%L52152%_ _%hd5189652114%_) - (_%L52153%_ _%hd5189052094%_)) + (##car _%e5298853219%_)))) + (_%loop5298753210%_ + _%lp-tl5299053226%_ + (cons _%lp-hd5298953223%_ + _%body5299153217%_)))) + (let ((_%body5299253229%_ + (reverse _%body5299153217%_))) + (let ((_%g5296653232%_ + _%body5299253229%_) + (_%g5296753234%_ + _%hd5298253198%_) + (_%g5296853235%_ + _%hd5297653178%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L52152%_)) - (_%__kont8634686347%_ - _%L52150%_ - _%L52152%_ - _%L52153%_) + _%g5296753234%_)) + (_%__kont8729387294%_ + _%g5296653232%_ + _%g5296753234%_ + _%g5296853235%_) (let () (declare (not safe)) - (_%g5179651939%_))))))))) - (_%loop5190152126%_ _%target5189852120%_ '())))) - (_%__match8648286483%_ - (lambda (_%e5185652192%_ - _%hd5185752196%_ - _%tl5185852199%_ - _%e5185952202%_ - _%hd5186052206%_ - _%tl5186152209%_ - _%e5186252212%_ - _%hd5186352216%_ - _%tl5186452219%_ - _%e5186552222%_ - _%hd5186652226%_ - _%tl5186752229%_ - _%e5186852232%_ - _%hd5186952236%_ - _%tl5187052239%_ - _%__splice8634486345%_ - _%target5187152242%_ - _%tl5187352245%_) - (letrec ((_%loop5187452248%_ - (lambda (_%hd5187252252%_ _%body5187852255%_) - (if (gx#stx-pair? _%hd5187252252%_) - (let ((_%e5187552258%_ - (gx#syntax-e _%hd5187252252%_))) - (let ((_%lp-tl5187752265%_ + (_%g5288253025%_))))))))) + (_%loop5298753210%_ _%target5298453204%_ '())))) + (_%__match8742987430%_ + (lambda (_%e5294253274%_ + _%hd5294353278%_ + _%tl5294453281%_ + _%e5294553284%_ + _%hd5294653288%_ + _%tl5294753291%_ + _%e5294853294%_ + _%hd5294953298%_ + _%tl5295053301%_ + _%e5295153304%_ + _%hd5295253308%_ + _%tl5295353311%_ + _%e5295453314%_ + _%hd5295553318%_ + _%tl5295653321%_ + _%__splice8729187292%_ + _%target5295753324%_ + _%tl5295953327%_) + (letrec ((_%loop5296053330%_ + (lambda (_%hd5295853334%_ _%body5296453337%_) + (if (gx#stx-pair? _%hd5295853334%_) + (let ((_%e5296153339%_ + (gx#syntax-e _%hd5295853334%_))) + (let ((_%lp-tl5296353346%_ (let () (declare (not safe)) - (##cdr _%e5187552258%_))) - (_%lp-hd5187652262%_ + (##cdr _%e5296153339%_))) + (_%lp-hd5296253343%_ (let () (declare (not safe)) - (##car _%e5187552258%_)))) - (_%loop5187452248%_ - _%lp-tl5187752265%_ - (cons _%lp-hd5187652262%_ - _%body5187852255%_)))) - (let ((_%body5187952268%_ - (reverse _%body5187852255%_))) - (let ((_%L52272%_ _%body5187952268%_) - (_%L52274%_ _%hd5186952236%_) - (_%L52275%_ _%hd5186352216%_)) + (##car _%e5296153339%_)))) + (_%loop5296053330%_ + _%lp-tl5296353346%_ + (cons _%lp-hd5296253343%_ + _%body5296453337%_)))) + (let ((_%body5296553349%_ + (reverse _%body5296453337%_))) + (let ((_%g5293953352%_ + _%body5296553349%_) + (_%g5294053354%_ + _%hd5295553318%_) + (_%g5294153355%_ + _%hd5294953298%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L52274%_)) - (_%__kont8634286343%_ - _%L52272%_ - _%L52274%_ - _%L52275%_) + _%g5294053354%_)) + (_%__kont8728987290%_ + _%g5293953352%_ + _%g5294053354%_ + _%g5294153355%_) (let () (declare (not safe)) - (_%g5179651939%_))))))))) - (_%loop5187452248%_ _%target5187152242%_ '())))) - (_%__match8643886439%_ - (lambda (_%e5182952314%_ - _%hd5183052318%_ - _%tl5183152321%_ - _%e5183252324%_ - _%hd5183352328%_ - _%tl5183452331%_ - _%e5183552334%_ - _%hd5183652338%_ - _%tl5183752341%_ - _%e5183852344%_ - _%hd5183952348%_ - _%tl5184052351%_ - _%e5184152354%_ - _%hd5184252358%_ - _%tl5184352361%_ - _%__splice8634086341%_ - _%target5184452364%_ - _%tl5184652367%_) - (letrec ((_%loop5184752370%_ - (lambda (_%hd5184552374%_ _%body5185152377%_) - (if (gx#stx-pair? _%hd5184552374%_) - (let ((_%e5184852380%_ - (gx#syntax-e _%hd5184552374%_))) - (let ((_%lp-tl5185052387%_ + (_%g5288253025%_))))))))) + (_%loop5296053330%_ _%target5295753324%_ '())))) + (_%__match8738587386%_ + (lambda (_%e5291553394%_ + _%hd5291653398%_ + _%tl5291753401%_ + _%e5291853404%_ + _%hd5291953408%_ + _%tl5292053411%_ + _%e5292153414%_ + _%hd5292253418%_ + _%tl5292353421%_ + _%e5292453424%_ + _%hd5292553428%_ + _%tl5292653431%_ + _%e5292753434%_ + _%hd5292853438%_ + _%tl5292953441%_ + _%__splice8728787288%_ + _%target5293053444%_ + _%tl5293253447%_) + (letrec ((_%loop5293353450%_ + (lambda (_%hd5293153454%_ _%body5293753457%_) + (if (gx#stx-pair? _%hd5293153454%_) + (let ((_%e5293453459%_ + (gx#syntax-e _%hd5293153454%_))) + (let ((_%lp-tl5293653466%_ (let () (declare (not safe)) - (##cdr _%e5184852380%_))) - (_%lp-hd5184952384%_ + (##cdr _%e5293453459%_))) + (_%lp-hd5293553463%_ (let () (declare (not safe)) - (##car _%e5184852380%_)))) - (_%loop5184752370%_ - _%lp-tl5185052387%_ - (cons _%lp-hd5184952384%_ - _%body5185152377%_)))) - (let ((_%body5185252390%_ - (reverse _%body5185152377%_))) - (let ((_%L52394%_ _%body5185252390%_) - (_%L52396%_ _%hd5184252358%_) - (_%L52397%_ _%hd5183652338%_)) + (##car _%e5293453459%_)))) + (_%loop5293353450%_ + _%lp-tl5293653466%_ + (cons _%lp-hd5293553463%_ + _%body5293753457%_)))) + (let ((_%body5293853469%_ + (reverse _%body5293753457%_))) + (let ((_%g5291253472%_ + _%body5293853469%_) + (_%g5291353474%_ + _%hd5292853438%_) + (_%g5291453475%_ + _%hd5292253418%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L52396%_)) - (_%__kont8633886339%_ - _%L52394%_ - _%L52396%_ - _%L52397%_) + _%g5291353474%_)) + (_%__kont8728587286%_ + _%g5291253472%_ + _%g5291353474%_ + _%g5291453475%_) (let () (declare (not safe)) - (_%g5179651939%_))))))))) - (_%loop5184752370%_ _%target5184452364%_ '())))) - (_%__match8641886419%_ - (lambda (_%e5182952314%_ - _%hd5183052318%_ - _%tl5183152321%_ - _%e5183252324%_ - _%hd5183352328%_ - _%tl5183452331%_ - _%e5183552334%_ - _%hd5183652338%_ - _%tl5183752341%_ - _%e5183852344%_ - _%hd5183952348%_ - _%tl5184052351%_) - (if (gx#identifier? _%hd5183952348%_) + (_%g5288253025%_))))))))) + (_%loop5293353450%_ _%target5293053444%_ '())))) + (_%__match8736587366%_ + (lambda (_%e5291553394%_ + _%hd5291653398%_ + _%tl5291753401%_ + _%e5291853404%_ + _%hd5291953408%_ + _%tl5292053411%_ + _%e5292153414%_ + _%hd5292253418%_ + _%tl5292353421%_ + _%e5292453424%_ + _%hd5292553428%_ + _%tl5292653431%_) + (if (gx#identifier? _%hd5292553428%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91846_| - _%hd5183952348%_) - (if (gx#stx-pair? _%tl5184052351%_) - (let ((_%e5184152354%_ - (gx#syntax-e _%tl5184052351%_))) - (let ((_%tl5184352361%_ + |gerbil/core/contract~Using[1]#_g92707_| + _%hd5292553428%_) + (if (gx#stx-pair? _%tl5292653431%_) + (let ((_%e5292753434%_ + (gx#syntax-e _%tl5292653431%_))) + (let ((_%tl5292953441%_ (let () (declare (not safe)) - (##cdr _%e5184152354%_))) - (_%hd5184252358%_ + (##cdr _%e5292753434%_))) + (_%hd5292853438%_ (let () (declare (not safe)) - (##car _%e5184152354%_)))) - (if (gx#stx-null? _%tl5184352361%_) + (##car _%e5292753434%_)))) + (if (gx#stx-null? _%tl5292953441%_) (if (gx#stx-pair/null? - _%tl5183452331%_) - (let ((_%__splice8634086341%_ + _%tl5292053411%_) + (let ((_%__splice8728787288%_ (gx#syntax-split-splice->vector - _%tl5183452331%_ + _%tl5292053411%_ '0))) - (let ((_%tl5184652367%_ + (let ((_%tl5293253447%_ (let () (declare (not safe)) (##vector-ref - _%__splice8634086341%_ + _%__splice8728787288%_ '1))) - (_%target5184452364%_ + (_%target5293053444%_ (let () (declare (not safe)) (##vector-ref - _%__splice8634086341%_ + _%__splice8728787288%_ '0)))) (if (gx#stx-null? - _%tl5184652367%_) - (_%__match8643886439%_ - _%e5182952314%_ - _%hd5183052318%_ - _%tl5183152321%_ - _%e5183252324%_ - _%hd5183352328%_ - _%tl5183452331%_ - _%e5183552334%_ - _%hd5183652338%_ - _%tl5183752341%_ - _%e5183852344%_ - _%hd5183952348%_ - _%tl5184052351%_ - _%e5184152354%_ - _%hd5184252358%_ - _%tl5184352361%_ - _%__splice8634086341%_ - _%target5184452364%_ - _%tl5184652367%_) + _%tl5293253447%_) + (_%__match8738587386%_ + _%e5291553394%_ + _%hd5291653398%_ + _%tl5291753401%_ + _%e5291853404%_ + _%hd5291953408%_ + _%tl5292053411%_ + _%e5292153414%_ + _%hd5292253418%_ + _%tl5292353421%_ + _%e5292453424%_ + _%hd5292553428%_ + _%tl5292653431%_ + _%e5292753434%_ + _%hd5292853438%_ + _%tl5292953441%_ + _%__splice8728787288%_ + _%target5293053444%_ + _%tl5293253447%_) (let () (declare (not safe)) - (_%g5179651939%_))))) + (_%g5288253025%_))))) (let () (declare (not safe)) - (_%g5179651939%_))) + (_%g5288253025%_))) (let () (declare (not safe)) - (_%g5179651939%_))))) + (_%g5288253025%_))))) (let () (declare (not safe)) - (_%g5179651939%_))) + (_%g5288253025%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91847_| - _%hd5183952348%_) - (if (gx#stx-pair? _%tl5184052351%_) - (let ((_%e5186852232%_ - (gx#syntax-e _%tl5184052351%_))) - (let ((_%tl5187052239%_ + |gerbil/core/contract~Using[1]#_g92708_| + _%hd5292553428%_) + (if (gx#stx-pair? _%tl5292653431%_) + (let ((_%e5295453314%_ + (gx#syntax-e _%tl5292653431%_))) + (let ((_%tl5295653321%_ (let () (declare (not safe)) - (##cdr _%e5186852232%_))) - (_%hd5186952236%_ + (##cdr _%e5295453314%_))) + (_%hd5295553318%_ (let () (declare (not safe)) - (##car _%e5186852232%_)))) - (if (gx#stx-null? _%tl5187052239%_) + (##car _%e5295453314%_)))) + (if (gx#stx-null? _%tl5295653321%_) (if (gx#stx-pair/null? - _%tl5183452331%_) - (let ((_%__splice8634486345%_ + _%tl5292053411%_) + (let ((_%__splice8729187292%_ (gx#syntax-split-splice->vector - _%tl5183452331%_ + _%tl5292053411%_ '0))) - (let ((_%tl5187352245%_ + (let ((_%tl5295953327%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice8634486345%_ '1))) - (_%target5187152242%_ + (##vector-ref _%__splice8729187292%_ '1))) + (_%target5295753324%_ (let () (declare (not safe)) - (##vector-ref _%__splice8634486345%_ '0)))) - (if (gx#stx-null? _%tl5187352245%_) - (_%__match8648286483%_ - _%e5182952314%_ - _%hd5183052318%_ - _%tl5183152321%_ - _%e5183252324%_ - _%hd5183352328%_ - _%tl5183452331%_ - _%e5183552334%_ - _%hd5183652338%_ - _%tl5183752341%_ - _%e5183852344%_ - _%hd5183952348%_ - _%tl5184052351%_ - _%e5186852232%_ - _%hd5186952236%_ - _%tl5187052239%_ - _%__splice8634486345%_ - _%target5187152242%_ - _%tl5187352245%_) - (let () (declare (not safe)) (_%g5179651939%_))))) + (##vector-ref _%__splice8729187292%_ '0)))) + (if (gx#stx-null? _%tl5295953327%_) + (_%__match8742987430%_ + _%e5291553394%_ + _%hd5291653398%_ + _%tl5291753401%_ + _%e5291853404%_ + _%hd5291953408%_ + _%tl5292053411%_ + _%e5292153414%_ + _%hd5292253418%_ + _%tl5292353421%_ + _%e5292453424%_ + _%hd5292553428%_ + _%tl5292653431%_ + _%e5295453314%_ + _%hd5295553318%_ + _%tl5295653321%_ + _%__splice8729187292%_ + _%target5295753324%_ + _%tl5295953327%_) + (let () (declare (not safe)) (_%g5288253025%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5179651939%_))) + (_%g5288253025%_))) (let () (declare (not safe)) - (_%g5179651939%_))))) + (_%g5288253025%_))))) (let () (declare (not safe)) - (_%g5179651939%_))) + (_%g5288253025%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91848_| - _%hd5183952348%_) - (if (gx#stx-pair? _%tl5184052351%_) - (let ((_%e5189552110%_ + |gerbil/core/contract~Using[1]#_g92709_| + _%hd5292553428%_) + (if (gx#stx-pair? _%tl5292653431%_) + (let ((_%e5298153194%_ (gx#syntax-e - _%tl5184052351%_))) - (let ((_%tl5189752117%_ + _%tl5292653431%_))) + (let ((_%tl5298353201%_ (let () (declare (not safe)) - (##cdr _%e5189552110%_))) - (_%hd5189652114%_ + (##cdr _%e5298153194%_))) + (_%hd5298253198%_ (let () (declare (not safe)) - (##car _%e5189552110%_)))) + (##car _%e5298153194%_)))) (if (gx#stx-null? - _%tl5189752117%_) + _%tl5298353201%_) (if (gx#stx-pair/null? - _%tl5183452331%_) - (let ((_%__splice8634886349%_ + _%tl5292053411%_) + (let ((_%__splice8729587296%_ (gx#syntax-split-splice->vector - _%tl5183452331%_ + _%tl5292053411%_ '0))) - (let ((_%tl5190052123%_ + (let ((_%tl5298653207%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice8634886349%_ '1))) - (_%target5189852120%_ + (##vector-ref _%__splice8729587296%_ '1))) + (_%target5298453204%_ (let () (declare (not safe)) - (##vector-ref _%__splice8634886349%_ '0)))) - (if (gx#stx-null? _%tl5190052123%_) - (_%__match8652686527%_ - _%e5182952314%_ - _%hd5183052318%_ - _%tl5183152321%_ - _%e5183252324%_ - _%hd5183352328%_ - _%tl5183452331%_ - _%e5183552334%_ - _%hd5183652338%_ - _%tl5183752341%_ - _%e5183852344%_ - _%hd5183952348%_ - _%tl5184052351%_ - _%e5189552110%_ - _%hd5189652114%_ - _%tl5189752117%_ - _%__splice8634886349%_ - _%target5189852120%_ - _%tl5190052123%_) - (let () (declare (not safe)) (_%g5179651939%_))))) - (let () (declare (not safe)) (_%g5179651939%_))) + (##vector-ref _%__splice8729587296%_ '0)))) + (if (gx#stx-null? _%tl5298653207%_) + (_%__match8747387474%_ + _%e5291553394%_ + _%hd5291653398%_ + _%tl5291753401%_ + _%e5291853404%_ + _%hd5291953408%_ + _%tl5292053411%_ + _%e5292153414%_ + _%hd5292253418%_ + _%tl5292353421%_ + _%e5292453424%_ + _%hd5292553428%_ + _%tl5292653431%_ + _%e5298153194%_ + _%hd5298253198%_ + _%tl5298353201%_ + _%__splice8729587296%_ + _%target5298453204%_ + _%tl5298653207%_) + (let () (declare (not safe)) (_%g5288253025%_))))) + (let () (declare (not safe)) (_%g5288253025%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5179651939%_))))) + (_%g5288253025%_))))) (let () (declare (not safe)) - (_%g5179651939%_))) + (_%g5288253025%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91849_| - _%hd5183952348%_) - (if (gx#stx-pair? _%tl5184052351%_) - (let ((_%e5192251986%_ + |gerbil/core/contract~Using[1]#_g92710_| + _%hd5292553428%_) + (if (gx#stx-pair? _%tl5292653431%_) + (let ((_%e5300853072%_ (gx#syntax-e - _%tl5184052351%_))) - (let ((_%tl5192451993%_ + _%tl5292653431%_))) + (let ((_%tl5301053079%_ (let () (declare (not safe)) - (##cdr _%e5192251986%_))) - (_%hd5192351990%_ + (##cdr _%e5300853072%_))) + (_%hd5300953076%_ (let () (declare (not safe)) - (##car _%e5192251986%_)))) + (##car _%e5300853072%_)))) (if (gx#stx-null? - _%tl5192451993%_) + _%tl5301053079%_) (if (gx#stx-pair/null? - _%tl5183452331%_) - (let ((_%__splice8635286353%_ + _%tl5292053411%_) + (let ((_%__splice8729987300%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice->vector - _%tl5183452331%_ + _%tl5292053411%_ '0))) - (let ((_%tl5192751999%_ + (let ((_%tl5301353085%_ (let () (declare (not safe)) - (##vector-ref _%__splice8635286353%_ '1))) - (_%target5192551996%_ + (##vector-ref _%__splice8729987300%_ '1))) + (_%target5301153082%_ (let () (declare (not safe)) - (##vector-ref _%__splice8635286353%_ '0)))) - (if (gx#stx-null? _%tl5192751999%_) - (_%__match8657086571%_ - _%e5182952314%_ - _%hd5183052318%_ - _%tl5183152321%_ - _%e5183252324%_ - _%hd5183352328%_ - _%tl5183452331%_ - _%e5183552334%_ - _%hd5183652338%_ - _%tl5183752341%_ - _%e5183852344%_ - _%hd5183952348%_ - _%tl5184052351%_ - _%e5192251986%_ - _%hd5192351990%_ - _%tl5192451993%_ - _%__splice8635286353%_ - _%target5192551996%_ - _%tl5192751999%_) - (let () (declare (not safe)) (_%g5179651939%_))))) - (let () (declare (not safe)) (_%g5179651939%_))) - (let () (declare (not safe)) (_%g5179651939%_))))) + (##vector-ref _%__splice8729987300%_ '0)))) + (if (gx#stx-null? _%tl5301353085%_) + (_%__match8751787518%_ + _%e5291553394%_ + _%hd5291653398%_ + _%tl5291753401%_ + _%e5291853404%_ + _%hd5291953408%_ + _%tl5292053411%_ + _%e5292153414%_ + _%hd5292253418%_ + _%tl5292353421%_ + _%e5292453424%_ + _%hd5292553428%_ + _%tl5292653431%_ + _%e5300853072%_ + _%hd5300953076%_ + _%tl5301053079%_ + _%__splice8729987300%_ + _%target5301153082%_ + _%tl5301353085%_) + (let () (declare (not safe)) (_%g5288253025%_))))) + (let () (declare (not safe)) (_%g5288253025%_))) + (let () (declare (not safe)) (_%g5288253025%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5179651939%_))) + (_%g5288253025%_))) (let () (declare (not safe)) - (_%g5179651939%_)))))) - (let () (declare (not safe)) (_%g5179651939%_))))) - (_%__match8639486395%_ - (lambda (_%e5180252436%_ - _%hd5180352440%_ - _%tl5180452443%_ - _%e5180552446%_ - _%hd5180652450%_ - _%tl5180752453%_ - _%e5180852456%_ - _%hd5180952460%_ - _%tl5181052463%_ - _%e5181152466%_ - _%hd5181252470%_ - _%tl5181352473%_ - _%e5181452476%_ - _%hd5181552480%_ - _%tl5181652483%_ - _%__splice8633686337%_ - _%target5181752486%_ - _%tl5181952489%_) - (letrec ((_%loop5182052492%_ - (lambda (_%hd5181852496%_ _%body5182452499%_) - (if (gx#stx-pair? _%hd5181852496%_) - (let ((_%e5182152502%_ - (gx#syntax-e _%hd5181852496%_))) - (let ((_%lp-tl5182352509%_ + (_%g5288253025%_)))))) + (let () (declare (not safe)) (_%g5288253025%_))))) + (_%__match8734187342%_ + (lambda (_%e5288853514%_ + _%hd5288953518%_ + _%tl5289053521%_ + _%e5289153524%_ + _%hd5289253528%_ + _%tl5289353531%_ + _%e5289453534%_ + _%hd5289553538%_ + _%tl5289653541%_ + _%e5289753544%_ + _%hd5289853548%_ + _%tl5289953551%_ + _%e5290053554%_ + _%hd5290153558%_ + _%tl5290253561%_ + _%__splice8728387284%_ + _%target5290353564%_ + _%tl5290553567%_) + (letrec ((_%loop5290653570%_ + (lambda (_%hd5290453574%_ _%body5291053577%_) + (if (gx#stx-pair? _%hd5290453574%_) + (let ((_%e5290753579%_ + (gx#syntax-e _%hd5290453574%_))) + (let ((_%lp-tl5290953586%_ (let () (declare (not safe)) - (##cdr _%e5182152502%_))) - (_%lp-hd5182252506%_ + (##cdr _%e5290753579%_))) + (_%lp-hd5290853583%_ (let () (declare (not safe)) - (##car _%e5182152502%_)))) - (_%loop5182052492%_ - _%lp-tl5182352509%_ - (cons _%lp-hd5182252506%_ - _%body5182452499%_)))) - (let ((_%body5182552512%_ - (reverse _%body5182452499%_))) - (let ((_%L52516%_ _%body5182552512%_) - (_%L52518%_ _%hd5181552480%_) - (_%L52519%_ _%hd5181252470%_) - (_%L52520%_ _%hd5180952460%_)) - (if (let ((__tmp91850 + (##car _%e5290753579%_)))) + (_%loop5290653570%_ + _%lp-tl5290953586%_ + (cons _%lp-hd5290853583%_ + _%body5291053577%_)))) + (let ((_%body5291153589%_ + (reverse _%body5291053577%_))) + (let ((_%g5288453592%_ + _%body5291153589%_) + (_%g5288553594%_ + _%hd5290153558%_) + (_%g5288653595%_ + _%hd5289853548%_) + (_%g5288753596%_ + _%hd5289553538%_)) + (if (let ((__tmp92711 (gx#syntax-local-value - _%L52518%_ + _%g5288553594%_ false))) (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - __tmp91850)) - (_%__kont8633486335%_ - _%L52516%_ - _%L52518%_ - _%L52519%_ - _%L52520%_) - (_%__match8641886419%_ - _%e5180252436%_ - _%hd5180352440%_ - _%tl5180452443%_ - _%e5180552446%_ - _%hd5180652450%_ - _%tl5180752453%_ - _%e5180852456%_ - _%hd5180952460%_ - _%tl5181052463%_ - _%e5181152466%_ - _%hd5181252470%_ - _%tl5181352473%_)))))))) - (_%loop5182052492%_ _%target5181752486%_ '()))))) - (if (gx#stx-pair? _%__stx8633186332%_) - (let ((_%e5180252436%_ (gx#syntax-e _%__stx8633186332%_))) - (let ((_%tl5180452443%_ + __tmp92711)) + (_%__kont8728187282%_ + _%g5288453592%_ + _%g5288553594%_ + _%g5288653595%_ + _%g5288753596%_) + (_%__match8736587366%_ + _%e5288853514%_ + _%hd5288953518%_ + _%tl5289053521%_ + _%e5289153524%_ + _%hd5289253528%_ + _%tl5289353531%_ + _%e5289453534%_ + _%hd5289553538%_ + _%tl5289653541%_ + _%e5289753544%_ + _%hd5289853548%_ + _%tl5289953551%_)))))))) + (_%loop5290653570%_ _%target5290353564%_ '()))))) + (if (gx#stx-pair? _%__stx8727887279%_) + (let ((_%e5288853514%_ (gx#syntax-e _%__stx8727887279%_))) + (let ((_%tl5289053521%_ (let () (declare (not safe)) - (##cdr _%e5180252436%_))) - (_%hd5180352440%_ + (##cdr _%e5288853514%_))) + (_%hd5288953518%_ (let () (declare (not safe)) - (##car _%e5180252436%_)))) - (if (gx#stx-pair? _%tl5180452443%_) - (let ((_%e5180552446%_ - (gx#syntax-e _%tl5180452443%_))) - (let ((_%tl5180752453%_ + (##car _%e5288853514%_)))) + (if (gx#stx-pair? _%tl5289053521%_) + (let ((_%e5289153524%_ + (gx#syntax-e _%tl5289053521%_))) + (let ((_%tl5289353531%_ (let () (declare (not safe)) - (##cdr _%e5180552446%_))) - (_%hd5180652450%_ + (##cdr _%e5289153524%_))) + (_%hd5289253528%_ (let () (declare (not safe)) - (##car _%e5180552446%_)))) - (if (gx#stx-pair? _%hd5180652450%_) - (let ((_%e5180852456%_ - (gx#syntax-e _%hd5180652450%_))) - (let ((_%tl5181052463%_ + (##car _%e5289153524%_)))) + (if (gx#stx-pair? _%hd5289253528%_) + (let ((_%e5289453534%_ + (gx#syntax-e _%hd5289253528%_))) + (let ((_%tl5289653541%_ (let () (declare (not safe)) - (##cdr _%e5180852456%_))) - (_%hd5180952460%_ + (##cdr _%e5289453534%_))) + (_%hd5289553538%_ (let () (declare (not safe)) - (##car _%e5180852456%_)))) - (if (gx#stx-pair? _%tl5181052463%_) - (let ((_%e5181152466%_ + (##car _%e5289453534%_)))) + (if (gx#stx-pair? _%tl5289653541%_) + (let ((_%e5289753544%_ (gx#syntax-e - _%tl5181052463%_))) - (let ((_%tl5181352473%_ + _%tl5289653541%_))) + (let ((_%tl5289953551%_ (let () (declare (not safe)) - (##cdr _%e5181152466%_))) - (_%hd5181252470%_ + (##cdr _%e5289753544%_))) + (_%hd5289853548%_ (let () (declare (not safe)) - (##car _%e5181152466%_)))) + (##car _%e5289753544%_)))) (if (gx#stx-pair? - _%tl5181352473%_) - (let ((_%e5181452476%_ + _%tl5289953551%_) + (let ((_%e5290053554%_ (gx#syntax-e - _%tl5181352473%_))) - (let ((_%tl5181652483%_ + _%tl5289953551%_))) + (let ((_%tl5290253561%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5181452476%_))) - (_%hd5181552480%_ - (let () (declare (not safe)) (##car _%e5181452476%_)))) - (if (gx#stx-null? _%tl5181652483%_) - (if (gx#stx-pair/null? _%tl5180752453%_) - (let ((_%__splice8633686337%_ + (##cdr _%e5290053554%_))) + (_%hd5290153558%_ + (let () (declare (not safe)) (##car _%e5290053554%_)))) + (if (gx#stx-null? _%tl5290253561%_) + (if (gx#stx-pair/null? _%tl5289353531%_) + (let ((_%__splice8728387284%_ (gx#syntax-split-splice->vector - _%tl5180752453%_ + _%tl5289353531%_ '0))) - (let ((_%tl5181952489%_ + (let ((_%tl5290553567%_ (let () (declare (not safe)) - (##vector-ref _%__splice8633686337%_ '1))) - (_%target5181752486%_ + (##vector-ref _%__splice8728387284%_ '1))) + (_%target5290353564%_ (let () (declare (not safe)) - (##vector-ref _%__splice8633686337%_ '0)))) - (if (gx#stx-null? _%tl5181952489%_) - (_%__match8639486395%_ - _%e5180252436%_ - _%hd5180352440%_ - _%tl5180452443%_ - _%e5180552446%_ - _%hd5180652450%_ - _%tl5180752453%_ - _%e5180852456%_ - _%hd5180952460%_ - _%tl5181052463%_ - _%e5181152466%_ - _%hd5181252470%_ - _%tl5181352473%_ - _%e5181452476%_ - _%hd5181552480%_ - _%tl5181652483%_ - _%__splice8633686337%_ - _%target5181752486%_ - _%tl5181952489%_) + (##vector-ref _%__splice8728387284%_ '0)))) + (if (gx#stx-null? _%tl5290553567%_) + (_%__match8734187342%_ + _%e5288853514%_ + _%hd5288953518%_ + _%tl5289053521%_ + _%e5289153524%_ + _%hd5289253528%_ + _%tl5289353531%_ + _%e5289453534%_ + _%hd5289553538%_ + _%tl5289653541%_ + _%e5289753544%_ + _%hd5289853548%_ + _%tl5289953551%_ + _%e5290053554%_ + _%hd5290153558%_ + _%tl5290253561%_ + _%__splice8728387284%_ + _%target5290353564%_ + _%tl5290553567%_) (let () (declare (not safe)) - (_%g5179651939%_))))) - (let () (declare (not safe)) (_%g5179651939%_))) - (let () (declare (not safe)) (_%g5179651939%_))))) + (_%g5288253025%_))))) + (let () (declare (not safe)) (_%g5288253025%_))) + (let () (declare (not safe)) (_%g5288253025%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5179651939%_))))) + (_%g5288253025%_))))) (let () (declare (not safe)) - (_%g5179651939%_))))) + (_%g5288253025%_))))) (let () (declare (not safe)) - (_%g5179651939%_))))) - (let () (declare (not safe)) (_%g5179651939%_))))) - (let () (declare (not safe)) (_%g5179651939%_))))))))) + (_%g5288253025%_))))) + (let () (declare (not safe)) (_%g5288253025%_))))) + (let () (declare (not safe)) (_%g5288253025%_))))))))) (define |gerbil/core/contract~Using[:0:]#with-interface| - (lambda (_%stx52914%_) - (letrec ((_%expand-body52917%_ - (lambda (_%var53918%_ - _%Interface53920%_ - _%body53921%_ - _%checked?53922%_) - (let* ((_%type53924%_ + (lambda (_%stx53988%_) + (letrec ((_%expand-body53991%_ + (lambda (_%var54982%_ + _%Interface54984%_ + _%body54985%_ + _%checked?54986%_) + (let* ((_%type54988%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx52914%_ - _%Interface53920%_))) - (_%g5392753971%_ - (lambda (_%g5392853967%_) + _%stx53988%_ + _%Interface54984%_))) + (_%g5499155035%_ + (lambda (_%g5499255031%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5392853967%_))) - (_%g5392654129%_ - (lambda (_%g5392853975%_) - (if (gx#stx-pair? _%g5392853975%_) - (let ((_%e5393653978%_ - (gx#syntax-e _%g5392853975%_))) - (let ((_%hd5393753982%_ + _%g5499255031%_))) + (_%g5499055191%_ + (lambda (_%g5499255039%_) + (if (gx#stx-pair? _%g5499255039%_) + (let ((_%e5500055042%_ + (gx#syntax-e _%g5499255039%_))) + (let ((_%hd5500155046%_ (let () (declare (not safe)) - (##car _%e5393653978%_))) - (_%tl5393853985%_ + (##car _%e5500055042%_))) + (_%tl5500255049%_ (let () (declare (not safe)) - (##cdr _%e5393653978%_)))) - (if (gx#stx-pair? _%tl5393853985%_) - (let ((_%e5393953988%_ + (##cdr _%e5500055042%_)))) + (if (gx#stx-pair? _%tl5500255049%_) + (let ((_%e5500355052%_ (gx#syntax-e - _%tl5393853985%_))) - (let ((_%hd5394053992%_ + _%tl5500255049%_))) + (let ((_%hd5500455056%_ (let () (declare (not safe)) - (##car _%e5393953988%_))) - (_%tl5394153995%_ + (##car _%e5500355052%_))) + (_%tl5500555059%_ (let () (declare (not safe)) - (##cdr _%e5393953988%_)))) + (##cdr _%e5500355052%_)))) (if (gx#stx-pair? - _%tl5394153995%_) - (let ((_%e5394253998%_ + _%tl5500555059%_) + (let ((_%e5500655062%_ (gx#syntax-e - _%tl5394153995%_))) - (let ((_%hd5394354002%_ + _%tl5500555059%_))) + (let ((_%hd5500755066%_ (let () (declare (not safe)) - (##car _%e5394253998%_))) - (_%tl5394454005%_ + (##car _%e5500655062%_))) + (_%tl5500855069%_ (let () (declare (not safe)) - (##cdr _%e5394253998%_)))) + (##cdr _%e5500655062%_)))) (if (gx#stx-pair? - _%tl5394454005%_) - (let ((_%e5394554008%_ + _%tl5500855069%_) + (let ((_%e5500955072%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5394454005%_))) - (let ((_%hd5394654012%_ + (gx#syntax-e _%tl5500855069%_))) + (let ((_%hd5501055076%_ (let () (declare (not safe)) - (##car _%e5394554008%_))) - (_%tl5394754015%_ + (##car _%e5500955072%_))) + (_%tl5501155079%_ (let () (declare (not safe)) - (##cdr _%e5394554008%_)))) - (if (gx#stx-pair? _%tl5394754015%_) - (let ((_%e5394854018%_ - (gx#syntax-e _%tl5394754015%_))) - (let ((_%hd5394954022%_ + (##cdr _%e5500955072%_)))) + (if (gx#stx-pair? _%tl5501155079%_) + (let ((_%e5501255082%_ + (gx#syntax-e _%tl5501155079%_))) + (let ((_%hd5501355086%_ (let () (declare (not safe)) - (##car _%e5394854018%_))) - (_%tl5395054025%_ + (##car _%e5501255082%_))) + (_%tl5501455089%_ (let () (declare (not safe)) - (##cdr _%e5394854018%_)))) - (if (gx#stx-pair? _%tl5395054025%_) - (let ((_%e5395154028%_ - (gx#syntax-e _%tl5395054025%_))) - (let ((_%hd5395254032%_ + (##cdr _%e5501255082%_)))) + (if (gx#stx-pair? _%tl5501455089%_) + (let ((_%e5501555092%_ + (gx#syntax-e _%tl5501455089%_))) + (let ((_%hd5501655096%_ (let () (declare (not safe)) - (##car _%e5395154028%_))) - (_%tl5395354035%_ + (##car _%e5501555092%_))) + (_%tl5501755099%_ (let () (declare (not safe)) - (##cdr _%e5395154028%_)))) - (if (gx#stx-pair? _%tl5395354035%_) - (let ((_%e5395454038%_ + (##cdr _%e5501555092%_)))) + (if (gx#stx-pair? _%tl5501755099%_) + (let ((_%e5501855102%_ (gx#syntax-e - _%tl5395354035%_))) - (let ((_%hd5395554042%_ + _%tl5501755099%_))) + (let ((_%hd5501955106%_ (let () (declare (not safe)) - (##car _%e5395454038%_))) - (_%tl5395654045%_ + (##car _%e5501855102%_))) + (_%tl5502055109%_ (let () (declare (not safe)) - (##cdr _%e5395454038%_)))) + (##cdr _%e5501855102%_)))) (if (gx#stx-pair/null? - _%hd5395554042%_) - (let ((_g91851_ + _%hd5501955106%_) + (let ((_g92712_ (gx#syntax-split-splice - _%hd5395554042%_ + _%hd5501955106%_ '0))) (begin - (let ((_g91852_ + (let ((_g92713_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g91851_) - (##values-length _g91851_) + (if (##values? _g92712_) + (##values-length _g92712_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g91852_ 2))) - (error "Context expects 2 values" _g91852_))) - (let ((_%target5395754048%_ - (let () (declare (not safe)) (##values-ref _g91851_ 0))) - (_%tl5395954051%_ - (let () (declare (not safe)) (##values-ref _g91851_ 1)))) - (if (gx#stx-null? _%tl5395954051%_) - (letrec ((_%loop5396054054%_ - (lambda (_%hd5395854058%_ _%body5396454061%_) - (if (gx#stx-pair? _%hd5395854058%_) - (let ((_%e5396154064%_ - (gx#syntax-e _%hd5395854058%_))) - (let ((_%lp-hd5396254068%_ + (if (not (let () (declare (not safe)) (##fx= _g92713_ 2))) + (error "Context expects 2 values" _g92713_))) + (let ((_%target5502155112%_ + (let () (declare (not safe)) (##values-ref _g92712_ 0))) + (_%tl5502355115%_ + (let () (declare (not safe)) (##values-ref _g92712_ 1)))) + (if (gx#stx-null? _%tl5502355115%_) + (letrec ((_%loop5502455118%_ + (lambda (_%hd5502255122%_ _%body5502855125%_) + (if (gx#stx-pair? _%hd5502255122%_) + (let ((_%e5502555127%_ + (gx#syntax-e _%hd5502255122%_))) + (let ((_%lp-hd5502655131%_ (let () (declare (not safe)) - (##car _%e5396154064%_))) - (_%lp-tl5396354071%_ + (##car _%e5502555127%_))) + (_%lp-tl5502755134%_ (let () (declare (not safe)) - (##cdr _%e5396154064%_)))) - (_%loop5396054054%_ - _%lp-tl5396354071%_ - (cons _%lp-hd5396254068%_ - _%body5396454061%_)))) - (let ((_%body5396554074%_ - (reverse _%body5396454061%_))) - (if (gx#stx-null? _%tl5395654045%_) - ((lambda (_%L54078%_ - _%L54080%_ - _%L54081%_ - _%L54082%_ - _%L54083%_ - _%L54084%_ - _%L54085%_) + (##cdr _%e5502555127%_)))) + (_%loop5502455118%_ + _%lp-tl5502755134%_ + (cons _%lp-hd5502655131%_ + _%body5502855125%_)))) + (let ((_%body5502955137%_ + (reverse _%body5502855125%_))) + (if (gx#stx-null? _%tl5502055109%_) + ((lambda (_%g5499355140%_ + _%g5499455142%_ + _%g5499555143%_ + _%g5499655144%_ + _%g5499755145%_ + _%g5499855146%_ + _%g5499955147%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L54082%_ + (cons (cons _%g5499655144%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L54083%_ '())) - (cons _%L54082%_ '()))) + (cons _%g5499755145%_ '())) + (cons _%g5499655144%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'let-syntax) - (cons (cons (cons _%L54085%_ + (cons (cons (cons _%g5499955147%_ (cons (cons (gx#datum->syntax '#f 'make-type-env) @@ -6188,131 +6269,131 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L54082%_ '())) + (cons _%g5499655144%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L54084%_ '())) - (cons _%L54081%_ + (cons _%g5499855146%_ '())) + (cons _%g5499555143%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L54080%_ '())) + (cons _%g5499455142%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g5412054123%_ + (foldr (lambda (_%g5518255185%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g5412154126%_) - (cons _%g5412054123%_ _%g5412154126%_)) + _%g5518355188%_) + (cons _%g5518255185%_ _%g5518355188%_)) '() - _%L54078%_))) + _%g5499355140%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body5396554074%_ - _%hd5395254032%_ - _%hd5394954022%_ - _%hd5394654012%_ - _%hd5394354002%_ - _%hd5394053992%_ - _%hd5393753982%_) - (_%g5392753971%_ - _%g5392853975%_))))))) - (_%loop5396054054%_ _%target5395754048%_ '())) - (_%g5392753971%_ _%g5392853975%_))))) + _%body5502955137%_ + _%hd5501655096%_ + _%hd5501355086%_ + _%hd5501055076%_ + _%hd5500755066%_ + _%hd5500455056%_ + _%hd5500155046%_) + (_%g5499155035%_ + _%g5499255039%_))))))) + (_%loop5502455118%_ _%target5502155112%_ '())) + (_%g5499155035%_ _%g5499255039%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5392753971%_ - _%g5392853975%_)))) - (_%g5392753971%_ _%g5392853975%_)))) - (_%g5392753971%_ _%g5392853975%_)))) - (_%g5392753971%_ _%g5392853975%_)))) - (_%g5392753971%_ _%g5392853975%_)))) + (_%g5499155035%_ + _%g5499255039%_)))) + (_%g5499155035%_ _%g5499255039%_)))) + (_%g5499155035%_ _%g5499255039%_)))) + (_%g5499155035%_ _%g5499255039%_)))) + (_%g5499155035%_ _%g5499255039%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5392753971%_ - _%g5392853975%_)))) - (_%g5392753971%_ _%g5392853975%_)))) - (_%g5392753971%_ _%g5392853975%_))))) - (_%g5392654129%_ + (_%g5499155035%_ + _%g5499255039%_)))) + (_%g5499155035%_ _%g5499255039%_)))) + (_%g5499155035%_ _%g5499255039%_))))) + (_%g5499055191%_ (list (gx#syntax-local-introduce '@@type) - _%type53924%_ - (let ((__obj91670 _%type53924%_)) + _%type54988%_ + (let ((__obj92522 _%type54988%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91670 - 'gerbil/core/contract~InterfaceInfo#interface-info::t)) + __obj92522 + 'gerbil.core#runtime-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91670 - '7 + __obj92522 + '3 '#f '#f)) (class-slot-ref - gerbil/core/contract~InterfaceInfo#interface-info::t - __obj91670 - 'instance-type))) - _%var53918%_ - _%checked?53922%_ + gerbil/core/mop~MOP-2#runtime-type-info::t + __obj92522 + 'type-descriptor))) + _%var54982%_ + _%checked?54986%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#current-type-env)) - _%body53921%_))))) - (_%expand52919%_ - (lambda (_%var53717%_ - _%Interface53719%_ - _%body53720%_ - _%checked?53721%_ - _%checked-methods?53722%_ - _%maybe?53723%_) - (let* ((_%g5372553733%_ - (lambda (_%g5372653729%_) + _%body54985%_))))) + (_%expand53993%_ + (lambda (_%var54781%_ + _%Interface54783%_ + _%body54784%_ + _%checked?54785%_ + _%checked-methods?54786%_ + _%maybe?54787%_) + (let* ((_%g5478954797%_ + (lambda (_%g5479054793%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5372653729%_))) - (_%g5372453910%_ - (lambda (_%g5372653737%_) - ((lambda (_%L53740%_) - (if _%checked?53721%_ - (if _%maybe?53723%_ - (let* ((_%g5375253767%_ - (lambda (_%g5375353763%_) + _%g5479054793%_))) + (_%g5478854974%_ + (lambda (_%g5479054801%_) + ((lambda (_%g5479154804%_) + (if _%checked?54785%_ + (if _%maybe?54787%_ + (let* ((_%g5481654831%_ + (lambda (_%g5481754827%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5375353763%_))) - (_%g5375153813%_ - (lambda (_%g5375353771%_) + _%g5481754827%_))) + (_%g5481554877%_ + (lambda (_%g5481754835%_) (if (gx#stx-pair? - _%g5375353771%_) - (let ((_%e5375653774%_ + _%g5481754835%_) + (let ((_%e5482054838%_ (gx#syntax-e - _%g5375353771%_))) - (let ((_%hd5375753778%_ + _%g5481754835%_))) + (let ((_%hd5482154842%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e5375653774%_))) - (_%tl5375853781%_ - (let () (declare (not safe)) (##cdr _%e5375653774%_)))) - (if (gx#stx-pair? _%tl5375853781%_) - (let ((_%e5375953784%_ (gx#syntax-e _%tl5375853781%_))) - (let ((_%hd5376053788%_ + (##car _%e5482054838%_))) + (_%tl5482254845%_ + (let () (declare (not safe)) (##cdr _%e5482054838%_)))) + (if (gx#stx-pair? _%tl5482254845%_) + (let ((_%e5482354848%_ (gx#syntax-e _%tl5482254845%_))) + (let ((_%hd5482454852%_ (let () (declare (not safe)) - (##car _%e5375953784%_))) - (_%tl5376153791%_ + (##car _%e5482354848%_))) + (_%tl5482554855%_ (let () (declare (not safe)) - (##cdr _%e5375953784%_)))) - (if (gx#stx-null? _%tl5376153791%_) - ((lambda (_%L53794%_ _%L53796%_) + (##cdr _%e5482354848%_)))) + (if (gx#stx-null? _%tl5482554855%_) + ((lambda (_%g5481854858%_ _%g5481954860%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L53796%_ - (cons (cons _%L53794%_ - (cons _%L53796%_ + (cons (cons _%g5481954860%_ + (cons (cons _%g5481854858%_ + (cons _%g5481954860%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -6320,2665 +6401,2694 @@ (cons (cons (gx#datum->syntax '#f 'if) - (cons _%L53796%_ - (cons _%L53740%_ + (cons _%g5481954860%_ + (cons _%g5479154804%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'nil-dereference!) - (cons _%L53796%_ '())) + (cons _%g5481954860%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd5376053788%_ - _%hd5375753778%_) - (_%g5375253767%_ _%g5375353771%_)))) - (_%g5375253767%_ _%g5375353771%_)))) - (_%g5375253767%_ _%g5375353771%_))))) + _%hd5482454852%_ + _%hd5482154842%_) + (_%g5481654831%_ _%g5481754835%_)))) + (_%g5481654831%_ _%g5481754835%_)))) + (_%g5481654831%_ _%g5481754835%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5375153813%_ - (list _%var53717%_ - _%Interface53719%_))) - (let* ((_%g5381753832%_ - (lambda (_%g5381853828%_) + (_%g5481554877%_ + (list _%var54781%_ + _%Interface54783%_))) + (let* ((_%g5488154896%_ + (lambda (_%g5488254892%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5381853828%_))) - (_%g5381653876%_ - (lambda (_%g5381853836%_) + _%g5488254892%_))) + (_%g5488054940%_ + (lambda (_%g5488254900%_) (if (gx#stx-pair? - _%g5381853836%_) - (let ((_%e5382153839%_ + _%g5488254900%_) + (let ((_%e5488554903%_ (gx#syntax-e - _%g5381853836%_))) - (let ((_%hd5382253843%_ + _%g5488254900%_))) + (let ((_%hd5488654907%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e5382153839%_))) - (_%tl5382353846%_ - (let () (declare (not safe)) (##cdr _%e5382153839%_)))) - (if (gx#stx-pair? _%tl5382353846%_) - (let ((_%e5382453849%_ (gx#syntax-e _%tl5382353846%_))) - (let ((_%hd5382553853%_ + (##car _%e5488554903%_))) + (_%tl5488754910%_ + (let () (declare (not safe)) (##cdr _%e5488554903%_)))) + (if (gx#stx-pair? _%tl5488754910%_) + (let ((_%e5488854913%_ (gx#syntax-e _%tl5488754910%_))) + (let ((_%hd5488954917%_ (let () (declare (not safe)) - (##car _%e5382453849%_))) - (_%tl5382653856%_ + (##car _%e5488854913%_))) + (_%tl5489054920%_ (let () (declare (not safe)) - (##cdr _%e5382453849%_)))) - (if (gx#stx-null? _%tl5382653856%_) - ((lambda (_%L53859%_ _%L53861%_) + (##cdr _%e5488854913%_)))) + (if (gx#stx-null? _%tl5489054920%_) + ((lambda (_%g5488354923%_ _%g5488454925%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L53861%_ - (cons (cons _%L53859%_ - (cons _%L53861%_ + (cons (cons _%g5488454925%_ + (cons (cons _%g5488354923%_ + (cons _%g5488454925%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L53740%_ '())))) - _%hd5382553853%_ - _%hd5382253843%_) - (_%g5381753832%_ _%g5381853836%_)))) - (_%g5381753832%_ _%g5381853836%_)))) - (_%g5381753832%_ _%g5381853836%_))))) + (cons _%g5479154804%_ '())))) + _%hd5488954917%_ + _%hd5488654907%_) + (_%g5488154896%_ _%g5488254900%_)))) + (_%g5488154896%_ _%g5488254900%_)))) + (_%g5488154896%_ _%g5488254900%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5381653876%_ - (list _%var53717%_ - _%Interface53719%_)))) - (if _%maybe?53723%_ - (let* ((_%g5388053888%_ - (lambda (_%g5388153884%_) + (_%g5488054940%_ + (list _%var54781%_ + _%Interface54783%_)))) + (if _%maybe?54787%_ + (let* ((_%g5494454952%_ + (lambda (_%g5494554948%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5388153884%_))) - (_%g5387953906%_ - (lambda (_%g5388153892%_) - ((lambda (_%L53895%_) + _%g5494554948%_))) + (_%g5494354970%_ + (lambda (_%g5494554956%_) + ((lambda (_%g5494654959%_) (cons (gx#datum->syntax '#f 'if) - (cons _%L53895%_ + (cons _%g5494654959%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L53740%_ + (cons _%g5479154804%_ (cons (cons (gx#datum->syntax '#f 'nil-dereference!) - (cons _%L53895%_ '())) + (cons _%g5494654959%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g5388153892%_)))) - (_%g5387953906%_ _%var53717%_)) - _%L53740%_))) - _%g5372653737%_)))) - (_%g5372453910%_ - (_%expand-body52917%_ - _%var53717%_ - _%Interface53719%_ - _%body53720%_ - (let ((_%$e53914%_ _%checked?53721%_)) - (if _%$e53914%_ - _%$e53914%_ - _%checked-methods?53722%_)))))))) - (let* ((_%__stx8657386574%_ _%stx52914%_) - (_%g5292553068%_ + _%g5494554956%_)))) + (_%g5494354970%_ _%var54781%_)) + _%g5479154804%_))) + _%g5479054801%_)))) + (_%g5478854974%_ + (_%expand-body53991%_ + _%var54781%_ + _%Interface54783%_ + _%body54784%_ + (let ((_%$e54978%_ _%checked?54785%_)) + (if _%$e54978%_ + _%$e54978%_ + _%checked-methods?54786%_)))))))) + (let* ((_%__stx8752087521%_ _%stx53988%_) + (_%g5399954142%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8657386574%_)))) - (let ((_%__kont8657686577%_ - (lambda (_%L53645%_ _%L53647%_ _%L53648%_ _%L53649%_) - (let* ((_%g5367453682%_ - (lambda (_%g5367553678%_) + _%__stx8752087521%_)))) + (let ((_%__kont8752387524%_ + (lambda (_%g5400154709%_ + _%g5400254711%_ + _%g5400354712%_ + _%g5400454713%_) + (let* ((_%g5473854746%_ + (lambda (_%g5473954742%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5367553678%_))) - (_%g5367353709%_ - (lambda (_%g5367553686%_) - ((lambda (_%L53689%_) + _%g5473954742%_))) + (_%g5473754773%_ + (lambda (_%g5473954750%_) + ((lambda (_%g5474054753%_) (cons (gx#datum->syntax '#f 'with-interface) - (cons (cons _%L53649%_ - (cons _%L53648%_ - (cons _%L53689%_ + (cons (cons _%g5400454713%_ + (cons _%g5400354712%_ + (cons _%g5474054753%_ '()))) - (foldr (lambda (_%g5370053703%_ - _%g5370153706%_) - (cons _%g5370053703%_ - _%g5370153706%_)) + (foldr (lambda (_%g5476454767%_ + _%g5476554770%_) + (cons _%g5476454767%_ + _%g5476554770%_)) '() - _%L53645%_)))) - _%g5367553686%_)))) - (_%g5367353709%_ - (let ((__obj91671 (gx#syntax-local-value _%L53647%_))) + _%g5400154709%_)))) + _%g5473954750%_)))) + (_%g5473754773%_ + (let ((__obj92523 + (gx#syntax-local-value _%g5400254711%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91671 + __obj92523 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91671 + __obj92523 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj91671 + __obj92523 'identifier))))))) - (_%__kont8658086581%_ - (lambda (_%L53523%_ _%L53525%_ _%L53526%_) - (_%expand52919%_ - _%L53526%_ - _%L53525%_ - (foldr (lambda (_%g5354953552%_ _%g5355053555%_) - (cons _%g5354953552%_ _%g5355053555%_)) + (_%__kont8752787528%_ + (lambda (_%g5402954589%_ _%g5403054591%_ _%g5403154592%_) + (_%expand53993%_ + _%g5403154592%_ + _%g5403054591%_ + (foldr (lambda (_%g5461554618%_ _%g5461654621%_) + (cons _%g5461554618%_ _%g5461654621%_)) '() - _%L53523%_) + _%g5402954589%_) '#t '#t '#f))) - (_%__kont8658486585%_ - (lambda (_%L53401%_ _%L53403%_ _%L53404%_) - (_%expand52919%_ - _%L53404%_ - _%L53403%_ - (foldr (lambda (_%g5342753430%_ _%g5342853433%_) - (cons _%g5342753430%_ _%g5342853433%_)) + (_%__kont8753187532%_ + (lambda (_%g5405654469%_ _%g5405754471%_ _%g5405854472%_) + (_%expand53993%_ + _%g5405854472%_ + _%g5405754471%_ + (foldr (lambda (_%g5449554498%_ _%g5449654501%_) + (cons _%g5449554498%_ _%g5449654501%_)) '() - _%L53401%_) + _%g5405654469%_) '#t '#t '#t))) - (_%__kont8658886589%_ - (lambda (_%L53279%_ _%L53281%_ _%L53282%_) - (_%expand52919%_ - _%L53282%_ - _%L53281%_ - (foldr (lambda (_%g5330553308%_ _%g5330653311%_) - (cons _%g5330553308%_ _%g5330653311%_)) + (_%__kont8753587536%_ + (lambda (_%g5408354349%_ _%g5408454351%_ _%g5408554352%_) + (_%expand53993%_ + _%g5408554352%_ + _%g5408454351%_ + (foldr (lambda (_%g5437554378%_ _%g5437654381%_) + (cons _%g5437554378%_ _%g5437654381%_)) '() - _%L53279%_) + _%g5408354349%_) '#f '#f '#f))) - (_%__kont8659286593%_ - (lambda (_%L53155%_ _%L53157%_ _%L53158%_) - (_%expand52919%_ - _%L53158%_ - _%L53157%_ - (foldr (lambda (_%g5318353186%_ _%g5318453189%_) - (cons _%g5318353186%_ _%g5318453189%_)) + (_%__kont8753987540%_ + (lambda (_%g5411054227%_ _%g5411154229%_ _%g5411254230%_) + (_%expand53993%_ + _%g5411254230%_ + _%g5411154229%_ + (foldr (lambda (_%g5425554258%_ _%g5425654261%_) + (cons _%g5425554258%_ _%g5425654261%_)) '() - _%L53155%_) + _%g5411054227%_) '#f '#t '#f)))) - (let* ((_%__match8681286813%_ - (lambda (_%e5303953075%_ - _%hd5304053079%_ - _%tl5304153082%_ - _%e5304253085%_ - _%hd5304353089%_ - _%tl5304453092%_ - _%e5304553095%_ - _%hd5304653099%_ - _%tl5304753102%_ - _%e5304853105%_ - _%hd5304953109%_ - _%tl5305053112%_ - _%e5305153115%_ - _%hd5305253119%_ - _%tl5305353122%_ - _%__splice8659486595%_ - _%target5305453125%_ - _%tl5305653128%_) - (letrec ((_%loop5305753131%_ - (lambda (_%hd5305553135%_ _%body5306153138%_) - (if (gx#stx-pair? _%hd5305553135%_) - (let ((_%e5305853141%_ - (gx#syntax-e _%hd5305553135%_))) - (let ((_%lp-tl5306053148%_ + (let* ((_%__match8775987760%_ + (lambda (_%e5411354149%_ + _%hd5411454153%_ + _%tl5411554156%_ + _%e5411654159%_ + _%hd5411754163%_ + _%tl5411854166%_ + _%e5411954169%_ + _%hd5412054173%_ + _%tl5412154176%_ + _%e5412254179%_ + _%hd5412354183%_ + _%tl5412454186%_ + _%e5412554189%_ + _%hd5412654193%_ + _%tl5412754196%_ + _%__splice8754187542%_ + _%target5412854199%_ + _%tl5413054202%_) + (letrec ((_%loop5413154205%_ + (lambda (_%hd5412954209%_ _%body5413554212%_) + (if (gx#stx-pair? _%hd5412954209%_) + (let ((_%e5413254214%_ + (gx#syntax-e _%hd5412954209%_))) + (let ((_%lp-tl5413454221%_ (let () (declare (not safe)) - (##cdr _%e5305853141%_))) - (_%lp-hd5305953145%_ + (##cdr _%e5413254214%_))) + (_%lp-hd5413354218%_ (let () (declare (not safe)) - (##car _%e5305853141%_)))) - (_%loop5305753131%_ - _%lp-tl5306053148%_ - (cons _%lp-hd5305953145%_ - _%body5306153138%_)))) - (let ((_%body5306253151%_ - (reverse _%body5306153138%_))) - (let ((_%L53155%_ _%body5306253151%_) - (_%L53157%_ _%hd5305253119%_) - (_%L53158%_ _%hd5304653099%_)) + (##car _%e5413254214%_)))) + (_%loop5413154205%_ + _%lp-tl5413454221%_ + (cons _%lp-hd5413354218%_ + _%body5413554212%_)))) + (let ((_%body5413654224%_ + (reverse _%body5413554212%_))) + (let ((_%g5411054227%_ + _%body5413654224%_) + (_%g5411154229%_ + _%hd5412654193%_) + (_%g5411254230%_ + _%hd5412054173%_)) (if (and (gx#identifier? - _%L53158%_) + _%g5411254230%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L53157%_))) - (_%__kont8659286593%_ - _%L53155%_ - _%L53157%_ - _%L53158%_) + _%g5411154229%_))) + (_%__kont8753987540%_ + _%g5411054227%_ + _%g5411154229%_ + _%g5411254230%_) (let () (declare (not safe)) - (_%g5292553068%_))))))))) - (_%loop5305753131%_ _%target5305453125%_ '())))) - (_%__match8676886769%_ - (lambda (_%e5301253199%_ - _%hd5301353203%_ - _%tl5301453206%_ - _%e5301553209%_ - _%hd5301653213%_ - _%tl5301753216%_ - _%e5301853219%_ - _%hd5301953223%_ - _%tl5302053226%_ - _%e5302153229%_ - _%hd5302253233%_ - _%tl5302353236%_ - _%e5302453239%_ - _%hd5302553243%_ - _%tl5302653246%_ - _%__splice8659086591%_ - _%target5302753249%_ - _%tl5302953252%_) - (letrec ((_%loop5303053255%_ - (lambda (_%hd5302853259%_ _%body5303453262%_) - (if (gx#stx-pair? _%hd5302853259%_) - (let ((_%e5303153265%_ - (gx#syntax-e _%hd5302853259%_))) - (let ((_%lp-tl5303353272%_ + (_%g5399954142%_))))))))) + (_%loop5413154205%_ _%target5412854199%_ '())))) + (_%__match8771587716%_ + (lambda (_%e5408654271%_ + _%hd5408754275%_ + _%tl5408854278%_ + _%e5408954281%_ + _%hd5409054285%_ + _%tl5409154288%_ + _%e5409254291%_ + _%hd5409354295%_ + _%tl5409454298%_ + _%e5409554301%_ + _%hd5409654305%_ + _%tl5409754308%_ + _%e5409854311%_ + _%hd5409954315%_ + _%tl5410054318%_ + _%__splice8753787538%_ + _%target5410154321%_ + _%tl5410354324%_) + (letrec ((_%loop5410454327%_ + (lambda (_%hd5410254331%_ _%body5410854334%_) + (if (gx#stx-pair? _%hd5410254331%_) + (let ((_%e5410554336%_ + (gx#syntax-e _%hd5410254331%_))) + (let ((_%lp-tl5410754343%_ (let () (declare (not safe)) - (##cdr _%e5303153265%_))) - (_%lp-hd5303253269%_ + (##cdr _%e5410554336%_))) + (_%lp-hd5410654340%_ (let () (declare (not safe)) - (##car _%e5303153265%_)))) - (_%loop5303053255%_ - _%lp-tl5303353272%_ - (cons _%lp-hd5303253269%_ - _%body5303453262%_)))) - (let ((_%body5303553275%_ - (reverse _%body5303453262%_))) - (let ((_%L53279%_ _%body5303553275%_) - (_%L53281%_ _%hd5302553243%_) - (_%L53282%_ _%hd5301953223%_)) + (##car _%e5410554336%_)))) + (_%loop5410454327%_ + _%lp-tl5410754343%_ + (cons _%lp-hd5410654340%_ + _%body5410854334%_)))) + (let ((_%body5410954346%_ + (reverse _%body5410854334%_))) + (let ((_%g5408354349%_ + _%body5410954346%_) + (_%g5408454351%_ + _%hd5409954315%_) + (_%g5408554352%_ + _%hd5409354295%_)) (if (and (gx#identifier? - _%L53282%_) + _%g5408554352%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L53281%_))) - (_%__kont8658886589%_ - _%L53279%_ - _%L53281%_ - _%L53282%_) + _%g5408454351%_))) + (_%__kont8753587536%_ + _%g5408354349%_ + _%g5408454351%_ + _%g5408554352%_) (let () (declare (not safe)) - (_%g5292553068%_))))))))) - (_%loop5303053255%_ _%target5302753249%_ '())))) - (_%__match8672486725%_ - (lambda (_%e5298553321%_ - _%hd5298653325%_ - _%tl5298753328%_ - _%e5298853331%_ - _%hd5298953335%_ - _%tl5299053338%_ - _%e5299153341%_ - _%hd5299253345%_ - _%tl5299353348%_ - _%e5299453351%_ - _%hd5299553355%_ - _%tl5299653358%_ - _%e5299753361%_ - _%hd5299853365%_ - _%tl5299953368%_ - _%__splice8658686587%_ - _%target5300053371%_ - _%tl5300253374%_) - (letrec ((_%loop5300353377%_ - (lambda (_%hd5300153381%_ _%body5300753384%_) - (if (gx#stx-pair? _%hd5300153381%_) - (let ((_%e5300453387%_ - (gx#syntax-e _%hd5300153381%_))) - (let ((_%lp-tl5300653394%_ + (_%g5399954142%_))))))))) + (_%loop5410454327%_ _%target5410154321%_ '())))) + (_%__match8767187672%_ + (lambda (_%e5405954391%_ + _%hd5406054395%_ + _%tl5406154398%_ + _%e5406254401%_ + _%hd5406354405%_ + _%tl5406454408%_ + _%e5406554411%_ + _%hd5406654415%_ + _%tl5406754418%_ + _%e5406854421%_ + _%hd5406954425%_ + _%tl5407054428%_ + _%e5407154431%_ + _%hd5407254435%_ + _%tl5407354438%_ + _%__splice8753387534%_ + _%target5407454441%_ + _%tl5407654444%_) + (letrec ((_%loop5407754447%_ + (lambda (_%hd5407554451%_ _%body5408154454%_) + (if (gx#stx-pair? _%hd5407554451%_) + (let ((_%e5407854456%_ + (gx#syntax-e _%hd5407554451%_))) + (let ((_%lp-tl5408054463%_ (let () (declare (not safe)) - (##cdr _%e5300453387%_))) - (_%lp-hd5300553391%_ + (##cdr _%e5407854456%_))) + (_%lp-hd5407954460%_ (let () (declare (not safe)) - (##car _%e5300453387%_)))) - (_%loop5300353377%_ - _%lp-tl5300653394%_ - (cons _%lp-hd5300553391%_ - _%body5300753384%_)))) - (let ((_%body5300853397%_ - (reverse _%body5300753384%_))) - (let ((_%L53401%_ _%body5300853397%_) - (_%L53403%_ _%hd5299853365%_) - (_%L53404%_ _%hd5299253345%_)) + (##car _%e5407854456%_)))) + (_%loop5407754447%_ + _%lp-tl5408054463%_ + (cons _%lp-hd5407954460%_ + _%body5408154454%_)))) + (let ((_%body5408254466%_ + (reverse _%body5408154454%_))) + (let ((_%g5405654469%_ + _%body5408254466%_) + (_%g5405754471%_ + _%hd5407254435%_) + (_%g5405854472%_ + _%hd5406654415%_)) (if (and (gx#identifier? - _%L53404%_) + _%g5405854472%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L53403%_))) - (_%__kont8658486585%_ - _%L53401%_ - _%L53403%_ - _%L53404%_) + _%g5405754471%_))) + (_%__kont8753187532%_ + _%g5405654469%_ + _%g5405754471%_ + _%g5405854472%_) (let () (declare (not safe)) - (_%g5292553068%_))))))))) - (_%loop5300353377%_ _%target5300053371%_ '())))) - (_%__match8668086681%_ - (lambda (_%e5295853443%_ - _%hd5295953447%_ - _%tl5296053450%_ - _%e5296153453%_ - _%hd5296253457%_ - _%tl5296353460%_ - _%e5296453463%_ - _%hd5296553467%_ - _%tl5296653470%_ - _%e5296753473%_ - _%hd5296853477%_ - _%tl5296953480%_ - _%e5297053483%_ - _%hd5297153487%_ - _%tl5297253490%_ - _%__splice8658286583%_ - _%target5297353493%_ - _%tl5297553496%_) - (letrec ((_%loop5297653499%_ - (lambda (_%hd5297453503%_ _%body5298053506%_) - (if (gx#stx-pair? _%hd5297453503%_) - (let ((_%e5297753509%_ - (gx#syntax-e _%hd5297453503%_))) - (let ((_%lp-tl5297953516%_ + (_%g5399954142%_))))))))) + (_%loop5407754447%_ _%target5407454441%_ '())))) + (_%__match8762787628%_ + (lambda (_%e5403254511%_ + _%hd5403354515%_ + _%tl5403454518%_ + _%e5403554521%_ + _%hd5403654525%_ + _%tl5403754528%_ + _%e5403854531%_ + _%hd5403954535%_ + _%tl5404054538%_ + _%e5404154541%_ + _%hd5404254545%_ + _%tl5404354548%_ + _%e5404454551%_ + _%hd5404554555%_ + _%tl5404654558%_ + _%__splice8752987530%_ + _%target5404754561%_ + _%tl5404954564%_) + (letrec ((_%loop5405054567%_ + (lambda (_%hd5404854571%_ _%body5405454574%_) + (if (gx#stx-pair? _%hd5404854571%_) + (let ((_%e5405154576%_ + (gx#syntax-e _%hd5404854571%_))) + (let ((_%lp-tl5405354583%_ (let () (declare (not safe)) - (##cdr _%e5297753509%_))) - (_%lp-hd5297853513%_ + (##cdr _%e5405154576%_))) + (_%lp-hd5405254580%_ (let () (declare (not safe)) - (##car _%e5297753509%_)))) - (_%loop5297653499%_ - _%lp-tl5297953516%_ - (cons _%lp-hd5297853513%_ - _%body5298053506%_)))) - (let ((_%body5298153519%_ - (reverse _%body5298053506%_))) - (let ((_%L53523%_ _%body5298153519%_) - (_%L53525%_ _%hd5297153487%_) - (_%L53526%_ _%hd5296553467%_)) + (##car _%e5405154576%_)))) + (_%loop5405054567%_ + _%lp-tl5405354583%_ + (cons _%lp-hd5405254580%_ + _%body5405454574%_)))) + (let ((_%body5405554586%_ + (reverse _%body5405454574%_))) + (let ((_%g5402954589%_ + _%body5405554586%_) + (_%g5403054591%_ + _%hd5404554555%_) + (_%g5403154592%_ + _%hd5403954535%_)) (if (and (gx#identifier? - _%L53526%_) + _%g5403154592%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L53525%_))) - (_%__kont8658086581%_ - _%L53523%_ - _%L53525%_ - _%L53526%_) + _%g5403054591%_))) + (_%__kont8752787528%_ + _%g5402954589%_ + _%g5403054591%_ + _%g5403154592%_) (let () (declare (not safe)) - (_%g5292553068%_))))))))) - (_%loop5297653499%_ _%target5297353493%_ '())))) - (_%__match8666086661%_ - (lambda (_%e5295853443%_ - _%hd5295953447%_ - _%tl5296053450%_ - _%e5296153453%_ - _%hd5296253457%_ - _%tl5296353460%_ - _%e5296453463%_ - _%hd5296553467%_ - _%tl5296653470%_ - _%e5296753473%_ - _%hd5296853477%_ - _%tl5296953480%_) - (if (gx#identifier? _%hd5296853477%_) + (_%g5399954142%_))))))))) + (_%loop5405054567%_ _%target5404754561%_ '())))) + (_%__match8760787608%_ + (lambda (_%e5403254511%_ + _%hd5403354515%_ + _%tl5403454518%_ + _%e5403554521%_ + _%hd5403654525%_ + _%tl5403754528%_ + _%e5403854531%_ + _%hd5403954535%_ + _%tl5404054538%_ + _%e5404154541%_ + _%hd5404254545%_ + _%tl5404354548%_) + (if (gx#identifier? _%hd5404254545%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91853_| - _%hd5296853477%_) - (if (gx#stx-pair? _%tl5296953480%_) - (let ((_%e5297053483%_ - (gx#syntax-e _%tl5296953480%_))) - (let ((_%tl5297253490%_ + |gerbil/core/contract~Using[1]#_g92714_| + _%hd5404254545%_) + (if (gx#stx-pair? _%tl5404354548%_) + (let ((_%e5404454551%_ + (gx#syntax-e _%tl5404354548%_))) + (let ((_%tl5404654558%_ (let () (declare (not safe)) - (##cdr _%e5297053483%_))) - (_%hd5297153487%_ + (##cdr _%e5404454551%_))) + (_%hd5404554555%_ (let () (declare (not safe)) - (##car _%e5297053483%_)))) - (if (gx#stx-null? _%tl5297253490%_) + (##car _%e5404454551%_)))) + (if (gx#stx-null? _%tl5404654558%_) (if (gx#stx-pair/null? - _%tl5296353460%_) - (let ((_%__splice8658286583%_ + _%tl5403754528%_) + (let ((_%__splice8752987530%_ (gx#syntax-split-splice->vector - _%tl5296353460%_ + _%tl5403754528%_ '0))) - (let ((_%tl5297553496%_ + (let ((_%tl5404954564%_ (let () (declare (not safe)) (##vector-ref - _%__splice8658286583%_ + _%__splice8752987530%_ '1))) - (_%target5297353493%_ + (_%target5404754561%_ (let () (declare (not safe)) (##vector-ref - _%__splice8658286583%_ + _%__splice8752987530%_ '0)))) (if (gx#stx-null? - _%tl5297553496%_) - (_%__match8668086681%_ - _%e5295853443%_ - _%hd5295953447%_ - _%tl5296053450%_ - _%e5296153453%_ - _%hd5296253457%_ - _%tl5296353460%_ - _%e5296453463%_ - _%hd5296553467%_ - _%tl5296653470%_ - _%e5296753473%_ - _%hd5296853477%_ - _%tl5296953480%_ - _%e5297053483%_ - _%hd5297153487%_ - _%tl5297253490%_ - _%__splice8658286583%_ - _%target5297353493%_ - _%tl5297553496%_) + _%tl5404954564%_) + (_%__match8762787628%_ + _%e5403254511%_ + _%hd5403354515%_ + _%tl5403454518%_ + _%e5403554521%_ + _%hd5403654525%_ + _%tl5403754528%_ + _%e5403854531%_ + _%hd5403954535%_ + _%tl5404054538%_ + _%e5404154541%_ + _%hd5404254545%_ + _%tl5404354548%_ + _%e5404454551%_ + _%hd5404554555%_ + _%tl5404654558%_ + _%__splice8752987530%_ + _%target5404754561%_ + _%tl5404954564%_) (let () (declare (not safe)) - (_%g5292553068%_))))) + (_%g5399954142%_))))) (let () (declare (not safe)) - (_%g5292553068%_))) + (_%g5399954142%_))) (let () (declare (not safe)) - (_%g5292553068%_))))) + (_%g5399954142%_))))) (let () (declare (not safe)) - (_%g5292553068%_))) + (_%g5399954142%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91854_| - _%hd5296853477%_) - (if (gx#stx-pair? _%tl5296953480%_) - (let ((_%e5299753361%_ - (gx#syntax-e _%tl5296953480%_))) - (let ((_%tl5299953368%_ + |gerbil/core/contract~Using[1]#_g92715_| + _%hd5404254545%_) + (if (gx#stx-pair? _%tl5404354548%_) + (let ((_%e5407154431%_ + (gx#syntax-e _%tl5404354548%_))) + (let ((_%tl5407354438%_ (let () (declare (not safe)) - (##cdr _%e5299753361%_))) - (_%hd5299853365%_ + (##cdr _%e5407154431%_))) + (_%hd5407254435%_ (let () (declare (not safe)) - (##car _%e5299753361%_)))) - (if (gx#stx-null? _%tl5299953368%_) + (##car _%e5407154431%_)))) + (if (gx#stx-null? _%tl5407354438%_) (if (gx#stx-pair/null? - _%tl5296353460%_) - (let ((_%__splice8658686587%_ + _%tl5403754528%_) + (let ((_%__splice8753387534%_ (gx#syntax-split-splice->vector - _%tl5296353460%_ + _%tl5403754528%_ '0))) - (let ((_%tl5300253374%_ + (let ((_%tl5407654444%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice8658686587%_ '1))) - (_%target5300053371%_ + (##vector-ref _%__splice8753387534%_ '1))) + (_%target5407454441%_ (let () (declare (not safe)) - (##vector-ref _%__splice8658686587%_ '0)))) - (if (gx#stx-null? _%tl5300253374%_) - (_%__match8672486725%_ - _%e5295853443%_ - _%hd5295953447%_ - _%tl5296053450%_ - _%e5296153453%_ - _%hd5296253457%_ - _%tl5296353460%_ - _%e5296453463%_ - _%hd5296553467%_ - _%tl5296653470%_ - _%e5296753473%_ - _%hd5296853477%_ - _%tl5296953480%_ - _%e5299753361%_ - _%hd5299853365%_ - _%tl5299953368%_ - _%__splice8658686587%_ - _%target5300053371%_ - _%tl5300253374%_) - (let () (declare (not safe)) (_%g5292553068%_))))) + (##vector-ref _%__splice8753387534%_ '0)))) + (if (gx#stx-null? _%tl5407654444%_) + (_%__match8767187672%_ + _%e5403254511%_ + _%hd5403354515%_ + _%tl5403454518%_ + _%e5403554521%_ + _%hd5403654525%_ + _%tl5403754528%_ + _%e5403854531%_ + _%hd5403954535%_ + _%tl5404054538%_ + _%e5404154541%_ + _%hd5404254545%_ + _%tl5404354548%_ + _%e5407154431%_ + _%hd5407254435%_ + _%tl5407354438%_ + _%__splice8753387534%_ + _%target5407454441%_ + _%tl5407654444%_) + (let () (declare (not safe)) (_%g5399954142%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5292553068%_))) + (_%g5399954142%_))) (let () (declare (not safe)) - (_%g5292553068%_))))) + (_%g5399954142%_))))) (let () (declare (not safe)) - (_%g5292553068%_))) + (_%g5399954142%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91855_| - _%hd5296853477%_) - (if (gx#stx-pair? _%tl5296953480%_) - (let ((_%e5302453239%_ + |gerbil/core/contract~Using[1]#_g92716_| + _%hd5404254545%_) + (if (gx#stx-pair? _%tl5404354548%_) + (let ((_%e5409854311%_ (gx#syntax-e - _%tl5296953480%_))) - (let ((_%tl5302653246%_ + _%tl5404354548%_))) + (let ((_%tl5410054318%_ (let () (declare (not safe)) - (##cdr _%e5302453239%_))) - (_%hd5302553243%_ + (##cdr _%e5409854311%_))) + (_%hd5409954315%_ (let () (declare (not safe)) - (##car _%e5302453239%_)))) + (##car _%e5409854311%_)))) (if (gx#stx-null? - _%tl5302653246%_) + _%tl5410054318%_) (if (gx#stx-pair/null? - _%tl5296353460%_) - (let ((_%__splice8659086591%_ + _%tl5403754528%_) + (let ((_%__splice8753787538%_ (gx#syntax-split-splice->vector - _%tl5296353460%_ + _%tl5403754528%_ '0))) - (let ((_%tl5302953252%_ + (let ((_%tl5410354324%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice8659086591%_ '1))) - (_%target5302753249%_ + (##vector-ref _%__splice8753787538%_ '1))) + (_%target5410154321%_ (let () (declare (not safe)) - (##vector-ref _%__splice8659086591%_ '0)))) - (if (gx#stx-null? _%tl5302953252%_) - (_%__match8676886769%_ - _%e5295853443%_ - _%hd5295953447%_ - _%tl5296053450%_ - _%e5296153453%_ - _%hd5296253457%_ - _%tl5296353460%_ - _%e5296453463%_ - _%hd5296553467%_ - _%tl5296653470%_ - _%e5296753473%_ - _%hd5296853477%_ - _%tl5296953480%_ - _%e5302453239%_ - _%hd5302553243%_ - _%tl5302653246%_ - _%__splice8659086591%_ - _%target5302753249%_ - _%tl5302953252%_) - (let () (declare (not safe)) (_%g5292553068%_))))) - (let () (declare (not safe)) (_%g5292553068%_))) + (##vector-ref _%__splice8753787538%_ '0)))) + (if (gx#stx-null? _%tl5410354324%_) + (_%__match8771587716%_ + _%e5403254511%_ + _%hd5403354515%_ + _%tl5403454518%_ + _%e5403554521%_ + _%hd5403654525%_ + _%tl5403754528%_ + _%e5403854531%_ + _%hd5403954535%_ + _%tl5404054538%_ + _%e5404154541%_ + _%hd5404254545%_ + _%tl5404354548%_ + _%e5409854311%_ + _%hd5409954315%_ + _%tl5410054318%_ + _%__splice8753787538%_ + _%target5410154321%_ + _%tl5410354324%_) + (let () (declare (not safe)) (_%g5399954142%_))))) + (let () (declare (not safe)) (_%g5399954142%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5292553068%_))))) + (_%g5399954142%_))))) (let () (declare (not safe)) - (_%g5292553068%_))) + (_%g5399954142%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91856_| - _%hd5296853477%_) - (if (gx#stx-pair? _%tl5296953480%_) - (let ((_%e5305153115%_ + |gerbil/core/contract~Using[1]#_g92717_| + _%hd5404254545%_) + (if (gx#stx-pair? _%tl5404354548%_) + (let ((_%e5412554189%_ (gx#syntax-e - _%tl5296953480%_))) - (let ((_%tl5305353122%_ + _%tl5404354548%_))) + (let ((_%tl5412754196%_ (let () (declare (not safe)) - (##cdr _%e5305153115%_))) - (_%hd5305253119%_ + (##cdr _%e5412554189%_))) + (_%hd5412654193%_ (let () (declare (not safe)) - (##car _%e5305153115%_)))) + (##car _%e5412554189%_)))) (if (gx#stx-null? - _%tl5305353122%_) + _%tl5412754196%_) (if (gx#stx-pair/null? - _%tl5296353460%_) - (let ((_%__splice8659486595%_ + _%tl5403754528%_) + (let ((_%__splice8754187542%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice->vector - _%tl5296353460%_ + _%tl5403754528%_ '0))) - (let ((_%tl5305653128%_ + (let ((_%tl5413054202%_ (let () (declare (not safe)) - (##vector-ref _%__splice8659486595%_ '1))) - (_%target5305453125%_ + (##vector-ref _%__splice8754187542%_ '1))) + (_%target5412854199%_ (let () (declare (not safe)) - (##vector-ref _%__splice8659486595%_ '0)))) - (if (gx#stx-null? _%tl5305653128%_) - (_%__match8681286813%_ - _%e5295853443%_ - _%hd5295953447%_ - _%tl5296053450%_ - _%e5296153453%_ - _%hd5296253457%_ - _%tl5296353460%_ - _%e5296453463%_ - _%hd5296553467%_ - _%tl5296653470%_ - _%e5296753473%_ - _%hd5296853477%_ - _%tl5296953480%_ - _%e5305153115%_ - _%hd5305253119%_ - _%tl5305353122%_ - _%__splice8659486595%_ - _%target5305453125%_ - _%tl5305653128%_) - (let () (declare (not safe)) (_%g5292553068%_))))) - (let () (declare (not safe)) (_%g5292553068%_))) - (let () (declare (not safe)) (_%g5292553068%_))))) + (##vector-ref _%__splice8754187542%_ '0)))) + (if (gx#stx-null? _%tl5413054202%_) + (_%__match8775987760%_ + _%e5403254511%_ + _%hd5403354515%_ + _%tl5403454518%_ + _%e5403554521%_ + _%hd5403654525%_ + _%tl5403754528%_ + _%e5403854531%_ + _%hd5403954535%_ + _%tl5404054538%_ + _%e5404154541%_ + _%hd5404254545%_ + _%tl5404354548%_ + _%e5412554189%_ + _%hd5412654193%_ + _%tl5412754196%_ + _%__splice8754187542%_ + _%target5412854199%_ + _%tl5413054202%_) + (let () (declare (not safe)) (_%g5399954142%_))))) + (let () (declare (not safe)) (_%g5399954142%_))) + (let () (declare (not safe)) (_%g5399954142%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5292553068%_))) + (_%g5399954142%_))) (let () (declare (not safe)) - (_%g5292553068%_)))))) - (let () (declare (not safe)) (_%g5292553068%_))))) - (_%__match8663686637%_ - (lambda (_%e5293153565%_ - _%hd5293253569%_ - _%tl5293353572%_ - _%e5293453575%_ - _%hd5293553579%_ - _%tl5293653582%_ - _%e5293753585%_ - _%hd5293853589%_ - _%tl5293953592%_ - _%e5294053595%_ - _%hd5294153599%_ - _%tl5294253602%_ - _%e5294353605%_ - _%hd5294453609%_ - _%tl5294553612%_ - _%__splice8657886579%_ - _%target5294653615%_ - _%tl5294853618%_) - (letrec ((_%loop5294953621%_ - (lambda (_%hd5294753625%_ _%body5295353628%_) - (if (gx#stx-pair? _%hd5294753625%_) - (let ((_%e5295053631%_ - (gx#syntax-e _%hd5294753625%_))) - (let ((_%lp-tl5295253638%_ + (_%g5399954142%_)))))) + (let () (declare (not safe)) (_%g5399954142%_))))) + (_%__match8758387584%_ + (lambda (_%e5400554631%_ + _%hd5400654635%_ + _%tl5400754638%_ + _%e5400854641%_ + _%hd5400954645%_ + _%tl5401054648%_ + _%e5401154651%_ + _%hd5401254655%_ + _%tl5401354658%_ + _%e5401454661%_ + _%hd5401554665%_ + _%tl5401654668%_ + _%e5401754671%_ + _%hd5401854675%_ + _%tl5401954678%_ + _%__splice8752587526%_ + _%target5402054681%_ + _%tl5402254684%_) + (letrec ((_%loop5402354687%_ + (lambda (_%hd5402154691%_ _%body5402754694%_) + (if (gx#stx-pair? _%hd5402154691%_) + (let ((_%e5402454696%_ + (gx#syntax-e _%hd5402154691%_))) + (let ((_%lp-tl5402654703%_ (let () (declare (not safe)) - (##cdr _%e5295053631%_))) - (_%lp-hd5295153635%_ + (##cdr _%e5402454696%_))) + (_%lp-hd5402554700%_ (let () (declare (not safe)) - (##car _%e5295053631%_)))) - (_%loop5294953621%_ - _%lp-tl5295253638%_ - (cons _%lp-hd5295153635%_ - _%body5295353628%_)))) - (let ((_%body5295453641%_ - (reverse _%body5295353628%_))) - (let ((_%L53645%_ _%body5295453641%_) - (_%L53647%_ _%hd5294453609%_) - (_%L53648%_ _%hd5294153599%_) - (_%L53649%_ _%hd5293853589%_)) - (if (let ((__tmp91857 + (##car _%e5402454696%_)))) + (_%loop5402354687%_ + _%lp-tl5402654703%_ + (cons _%lp-hd5402554700%_ + _%body5402754694%_)))) + (let ((_%body5402854706%_ + (reverse _%body5402754694%_))) + (let ((_%g5400154709%_ + _%body5402854706%_) + (_%g5400254711%_ + _%hd5401854675%_) + (_%g5400354712%_ + _%hd5401554665%_) + (_%g5400454713%_ + _%hd5401254655%_)) + (if (let ((__tmp92718 (gx#syntax-local-value - _%L53647%_ + _%g5400254711%_ false))) (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - __tmp91857)) - (_%__kont8657686577%_ - _%L53645%_ - _%L53647%_ - _%L53648%_ - _%L53649%_) - (_%__match8666086661%_ - _%e5293153565%_ - _%hd5293253569%_ - _%tl5293353572%_ - _%e5293453575%_ - _%hd5293553579%_ - _%tl5293653582%_ - _%e5293753585%_ - _%hd5293853589%_ - _%tl5293953592%_ - _%e5294053595%_ - _%hd5294153599%_ - _%tl5294253602%_)))))))) - (_%loop5294953621%_ _%target5294653615%_ '()))))) - (if (gx#stx-pair? _%__stx8657386574%_) - (let ((_%e5293153565%_ (gx#syntax-e _%__stx8657386574%_))) - (let ((_%tl5293353572%_ + __tmp92718)) + (_%__kont8752387524%_ + _%g5400154709%_ + _%g5400254711%_ + _%g5400354712%_ + _%g5400454713%_) + (_%__match8760787608%_ + _%e5400554631%_ + _%hd5400654635%_ + _%tl5400754638%_ + _%e5400854641%_ + _%hd5400954645%_ + _%tl5401054648%_ + _%e5401154651%_ + _%hd5401254655%_ + _%tl5401354658%_ + _%e5401454661%_ + _%hd5401554665%_ + _%tl5401654668%_)))))))) + (_%loop5402354687%_ _%target5402054681%_ '()))))) + (if (gx#stx-pair? _%__stx8752087521%_) + (let ((_%e5400554631%_ (gx#syntax-e _%__stx8752087521%_))) + (let ((_%tl5400754638%_ (let () (declare (not safe)) - (##cdr _%e5293153565%_))) - (_%hd5293253569%_ + (##cdr _%e5400554631%_))) + (_%hd5400654635%_ (let () (declare (not safe)) - (##car _%e5293153565%_)))) - (if (gx#stx-pair? _%tl5293353572%_) - (let ((_%e5293453575%_ - (gx#syntax-e _%tl5293353572%_))) - (let ((_%tl5293653582%_ + (##car _%e5400554631%_)))) + (if (gx#stx-pair? _%tl5400754638%_) + (let ((_%e5400854641%_ + (gx#syntax-e _%tl5400754638%_))) + (let ((_%tl5401054648%_ (let () (declare (not safe)) - (##cdr _%e5293453575%_))) - (_%hd5293553579%_ + (##cdr _%e5400854641%_))) + (_%hd5400954645%_ (let () (declare (not safe)) - (##car _%e5293453575%_)))) - (if (gx#stx-pair? _%hd5293553579%_) - (let ((_%e5293753585%_ - (gx#syntax-e _%hd5293553579%_))) - (let ((_%tl5293953592%_ + (##car _%e5400854641%_)))) + (if (gx#stx-pair? _%hd5400954645%_) + (let ((_%e5401154651%_ + (gx#syntax-e _%hd5400954645%_))) + (let ((_%tl5401354658%_ (let () (declare (not safe)) - (##cdr _%e5293753585%_))) - (_%hd5293853589%_ + (##cdr _%e5401154651%_))) + (_%hd5401254655%_ (let () (declare (not safe)) - (##car _%e5293753585%_)))) - (if (gx#stx-pair? _%tl5293953592%_) - (let ((_%e5294053595%_ + (##car _%e5401154651%_)))) + (if (gx#stx-pair? _%tl5401354658%_) + (let ((_%e5401454661%_ (gx#syntax-e - _%tl5293953592%_))) - (let ((_%tl5294253602%_ + _%tl5401354658%_))) + (let ((_%tl5401654668%_ (let () (declare (not safe)) - (##cdr _%e5294053595%_))) - (_%hd5294153599%_ + (##cdr _%e5401454661%_))) + (_%hd5401554665%_ (let () (declare (not safe)) - (##car _%e5294053595%_)))) + (##car _%e5401454661%_)))) (if (gx#stx-pair? - _%tl5294253602%_) - (let ((_%e5294353605%_ + _%tl5401654668%_) + (let ((_%e5401754671%_ (gx#syntax-e - _%tl5294253602%_))) - (let ((_%tl5294553612%_ + _%tl5401654668%_))) + (let ((_%tl5401954678%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5294353605%_))) - (_%hd5294453609%_ - (let () (declare (not safe)) (##car _%e5294353605%_)))) - (if (gx#stx-null? _%tl5294553612%_) - (if (gx#stx-pair/null? _%tl5293653582%_) - (let ((_%__splice8657886579%_ + (##cdr _%e5401754671%_))) + (_%hd5401854675%_ + (let () (declare (not safe)) (##car _%e5401754671%_)))) + (if (gx#stx-null? _%tl5401954678%_) + (if (gx#stx-pair/null? _%tl5401054648%_) + (let ((_%__splice8752587526%_ (gx#syntax-split-splice->vector - _%tl5293653582%_ + _%tl5401054648%_ '0))) - (let ((_%tl5294853618%_ + (let ((_%tl5402254684%_ (let () (declare (not safe)) - (##vector-ref _%__splice8657886579%_ '1))) - (_%target5294653615%_ + (##vector-ref _%__splice8752587526%_ '1))) + (_%target5402054681%_ (let () (declare (not safe)) - (##vector-ref _%__splice8657886579%_ '0)))) - (if (gx#stx-null? _%tl5294853618%_) - (_%__match8663686637%_ - _%e5293153565%_ - _%hd5293253569%_ - _%tl5293353572%_ - _%e5293453575%_ - _%hd5293553579%_ - _%tl5293653582%_ - _%e5293753585%_ - _%hd5293853589%_ - _%tl5293953592%_ - _%e5294053595%_ - _%hd5294153599%_ - _%tl5294253602%_ - _%e5294353605%_ - _%hd5294453609%_ - _%tl5294553612%_ - _%__splice8657886579%_ - _%target5294653615%_ - _%tl5294853618%_) + (##vector-ref _%__splice8752587526%_ '0)))) + (if (gx#stx-null? _%tl5402254684%_) + (_%__match8758387584%_ + _%e5400554631%_ + _%hd5400654635%_ + _%tl5400754638%_ + _%e5400854641%_ + _%hd5400954645%_ + _%tl5401054648%_ + _%e5401154651%_ + _%hd5401254655%_ + _%tl5401354658%_ + _%e5401454661%_ + _%hd5401554665%_ + _%tl5401654668%_ + _%e5401754671%_ + _%hd5401854675%_ + _%tl5401954678%_ + _%__splice8752587526%_ + _%target5402054681%_ + _%tl5402254684%_) (let () (declare (not safe)) - (_%g5292553068%_))))) - (let () (declare (not safe)) (_%g5292553068%_))) - (let () (declare (not safe)) (_%g5292553068%_))))) + (_%g5399954142%_))))) + (let () (declare (not safe)) (_%g5399954142%_))) + (let () (declare (not safe)) (_%g5399954142%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5292553068%_))))) + (_%g5399954142%_))))) (let () (declare (not safe)) - (_%g5292553068%_))))) + (_%g5399954142%_))))) (let () (declare (not safe)) - (_%g5292553068%_))))) - (let () (declare (not safe)) (_%g5292553068%_))))) - (let () (declare (not safe)) (_%g5292553068%_))))))))) + (_%g5399954142%_))))) + (let () (declare (not safe)) (_%g5399954142%_))))) + (let () (declare (not safe)) (_%g5399954142%_))))))))) (define |gerbil/core/contract~Using[:0:]#%%app-dotted| - (lambda (_%stx54139%_) - (let* ((_%__stx8681586816%_ _%stx54139%_) - (_%g5414454204%_ + (lambda (_%stx55201%_) + (let* ((_%__stx8776287763%_ _%stx55201%_) + (_%g5520655266%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8681586816%_)))) - (let ((_%__kont8681886819%_ - (lambda (_%L54766%_ _%L54768%_) + _%__stx8776287763%_)))) + (let ((_%__kont8776587766%_ + (lambda (_%g5520855822%_ _%g5520955824%_) (cons (gx#datum->syntax '#f '%%app-dotted) (cons (cons (gx#datum->syntax '#f '%%ref-dotted) - (cons _%L54768%_ '())) - (foldr (lambda (_%g5478454787%_ _%g5478554790%_) - (cons _%g5478454787%_ _%g5478554790%_)) + (cons _%g5520955824%_ '())) + (foldr (lambda (_%g5584055843%_ _%g5584155846%_) + (cons _%g5584055843%_ _%g5584155846%_)) '() - _%L54766%_))))) - (_%__kont8682286823%_ - (lambda (_%L54352%_ _%L54354%_) + _%g5520855822%_))))) + (_%__kont8776987770%_ + (lambda (_%g5522555410%_ _%g5522655412%_) (if (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L54354%_) - (let* ((_%g5437454381%_ + _%g5522655412%_) + (let* ((_%g5543255439%_ (|gerbil/core/contract~Using[1]#split-dotted-identifier| - _%stx54139%_ - _%L54354%_)) - (_%E5437654387%_ + _%stx55201%_ + _%g5522655412%_)) + (_%E5543455445%_ (lambda () (error '"No clause matching" - _%g5437454381%_ + _%g5543255439%_ '([var . parts])) (void))) - (_%K5437754685%_ - (lambda (_%parts54391%_ _%var54393%_) - (let ((_%$e54395%_ + (_%K5543555743%_ + (lambda (_%parts55449%_ _%var55451%_) + (let ((_%$e55453%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#type-env-lookup - _%var54393%_)))) - (if _%$e54395%_ - ((lambda (_%te54399%_) - (let _%loop54402%_ ((_%parts54405%_ - _%parts54391%_) - (_%type54407%_ + _%var55451%_)))) + (if _%$e55453%_ + ((lambda (_%te55457%_) + (let _%loop55460%_ ((_%parts55463%_ + _%parts55449%_) + (_%type55465%_ (##direct-structure-ref - _%te54399%_ + _%te55457%_ '2 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%object54408%_ - _%var54393%_) - (_%checked-method?54409%_ + (_%object55466%_ + _%var55451%_) + (_%checked-method?55467%_ (##direct-structure-ref - _%te54399%_ + _%te55457%_ '3 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%nil-check?54410%_ + (_%nil-check?55468%_ '#f)) - (let* ((_%parts5441154419%_ - _%parts54405%_) - (_%else5441354480%_ + (let* ((_%parts5546955477%_ + _%parts55463%_) + (_%else5547155538%_ (lambda () - (let* ((_%g5443154439%_ - (lambda (_%g5443254435%_) + (let* ((_%g5548955497%_ + (lambda (_%g5549055493%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g5443254435%_))) - (_%g5443054476%_ - (lambda (_%g5443254443%_) - ((lambda (_%L54446%_) + _%g5549055493%_))) + (_%g5548855534%_ + (lambda (_%g5549055501%_) + ((lambda (_%g5549155504%_) (cons (gx#datum->syntax '#f '%%app) - (cons _%L54446%_ - (foldr (lambda (_%g5446754470%_ - _%g5446854473%_) - (cons _%g5446754470%_ - _%g5446854473%_)) + (cons _%g5549155504%_ + (foldr (lambda (_%g5552555528%_ + _%g5552655531%_) + (cons _%g5552555528%_ + _%g5552655531%_)) '() - _%L54352%_)))) - _%g5443254443%_)))) - (_%g5443054476%_ _%object54408%_)))) + _%g5522555410%_)))) + _%g5549055501%_)))) + (_%g5548855534%_ _%object55466%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K5441554659%_ - (lambda (_%rest54484%_ - _%part54486%_) - (if (and (not _%nil-check?54410%_) - (let ((__tmp91858 + (_%K5547355717%_ + (lambda (_%rest55542%_ + _%part55544%_) + (if (and (not _%nil-check?55468%_) + (let ((__tmp92719 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (symbol->string _%part54486%_))) + (symbol->string _%part55544%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp91858))) - (let ((_%str54490%_ (symbol->string _%part54486%_))) - (_%loop54402%_ - (cons (let ((__tmp91859 + (##string-prefix? '"?" __tmp92719))) + (let ((_%str55548%_ (symbol->string _%part55544%_))) + (_%loop55460%_ + (cons (let ((__tmp92720 (substring - _%str54490%_ + _%str55548%_ '1 - (string-length _%str54490%_)))) + (string-length _%str55548%_)))) (declare (not safe)) - (##string->symbol __tmp91859)) - _%rest54484%_) - _%type54407%_ - _%object54408%_ - _%checked-method?54409%_ + (##string->symbol __tmp92720)) + _%rest55542%_) + _%type55465%_ + _%object55466%_ + _%checked-method?55467%_ '#t)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%type54407%_)) - (let* ((_%g5449554510%_ - (lambda (_%g5449654506%_) + _%type55465%_)) + (let* ((_%g5555355568%_ + (lambda (_%g5555455564%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5449654506%_))) - (_%g5449454579%_ - (lambda (_%g5449654514%_) - (if (gx#stx-pair? _%g5449654514%_) - (let ((_%e5449954517%_ - (gx#syntax-e _%g5449654514%_))) - (let ((_%hd5450054521%_ + _%g5555455564%_))) + (_%g5555255637%_ + (lambda (_%g5555455572%_) + (if (gx#stx-pair? _%g5555455572%_) + (let ((_%e5555755575%_ + (gx#syntax-e _%g5555455572%_))) + (let ((_%hd5555855579%_ (let () (declare (not safe)) - (##car _%e5449954517%_))) - (_%tl5450154524%_ + (##car _%e5555755575%_))) + (_%tl5555955582%_ (let () (declare (not safe)) - (##cdr _%e5449954517%_)))) - (if (gx#stx-pair? _%tl5450154524%_) - (let ((_%e5450254527%_ + (##cdr _%e5555755575%_)))) + (if (gx#stx-pair? _%tl5555955582%_) + (let ((_%e5556055585%_ (gx#syntax-e - _%tl5450154524%_))) - (let ((_%hd5450354531%_ + _%tl5555955582%_))) + (let ((_%hd5556155589%_ (let () (declare (not safe)) - (##car _%e5450254527%_))) - (_%tl5450454534%_ + (##car _%e5556055585%_))) + (_%tl5556255592%_ (let () (declare (not safe)) - (##cdr _%e5450254527%_)))) + (##cdr _%e5556055585%_)))) (if (gx#stx-null? - _%tl5450454534%_) - ((lambda (_%L54537%_ - _%L54539%_) - (if (null? _%rest54484%_) + _%tl5556255592%_) + ((lambda (_%g5555555595%_ + _%g5555655597%_) + (if (null? _%rest55542%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '%%app) - (cons (cons _%L54537%_ (cons _%L54539%_ '())) - (foldr (lambda (_%g5455854561%_ _%g5455954564%_) - (cons _%g5455854561%_ _%g5455954564%_)) + (cons (cons _%g5555555595%_ + (cons _%g5555655597%_ '())) + (foldr (lambda (_%g5561655619%_ _%g5561755622%_) + (cons _%g5561655619%_ _%g5561755622%_)) '() - _%L54352%_))) - (let ((_%$e54567%_ + _%g5522555410%_))) + (let ((_%$e55625%_ (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type54407%_ - _%part54486%_))) - (if _%$e54567%_ - ((lambda (_%slot-type54571%_) - (let ((_%slot-type54574%_ + _%type55465%_ + _%part55544%_))) + (if _%$e55625%_ + ((lambda (_%slot-type55629%_) + (let ((_%slot-type55632%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx54139%_ - _%slot-type54571%_)))) - (_%loop54402%_ - _%rest54484%_ - _%slot-type54574%_ - (cons _%L54537%_ (cons _%L54539%_ '())) + _%stx55201%_ + _%slot-type55629%_)))) + (_%loop55460%_ + _%rest55542%_ + _%slot-type55632%_ + (cons _%g5555555595%_ + (cons _%g5555655597%_ '())) (|gerbil/core/contract~Using[1]#!class-slot-checked-method-contract?| - _%type54407%_ - _%part54486%_) + _%type55465%_ + _%part55544%_) '#f))) - _%$e54567%_) + _%$e55625%_) (gx#raise-syntax-error '#f '"unresolved dotted reference; unknown type for slot" - _%stx54139%_ - _%L54354%_ - _%part54486%_))))) + _%stx55201%_ + _%g5522655412%_ + _%part55544%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5450354531%_ - _%hd5450054521%_) - (_%g5449554510%_ - _%g5449654514%_)))) - (_%g5449554510%_ - _%g5449654514%_)))) - (_%g5449554510%_ _%g5449654514%_))))) - (_%g5449454579%_ - (list (if _%nil-check?54410%_ + _%hd5556155589%_ + _%hd5555855579%_) + (_%g5555355568%_ + _%g5555455572%_)))) + (_%g5555355568%_ + _%g5555455572%_)))) + (_%g5555355568%_ _%g5555455572%_))))) + (_%g5555255637%_ + (list (if _%nil-check?55468%_ (cons 'check-nil! - (cons _%object54408%_ '())) - _%object54408%_) + (cons _%object55466%_ '())) + _%object55466%_) (|gerbil/core/contract~Using[1]#get-slot-accessor| - _%stx54139%_ - _%type54407%_ - _%part54486%_)))) + _%stx55201%_ + _%type55465%_ + _%part55544%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%type54407%_)) - (if (null? _%rest54484%_) - (let* ((_%g5458554600%_ - (lambda (_%g5458654596%_) + _%type55465%_)) + (if (null? _%rest55542%_) + (let* ((_%g5564355658%_ + (lambda (_%g5564455654%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5458654596%_))) - (_%g5458454653%_ - (lambda (_%g5458654604%_) - (if (gx#stx-pair? _%g5458654604%_) - (let ((_%e5458954607%_ + _%g5564455654%_))) + (_%g5564255711%_ + (lambda (_%g5564455662%_) + (if (gx#stx-pair? _%g5564455662%_) + (let ((_%e5564755665%_ (gx#syntax-e - _%g5458654604%_))) - (let ((_%hd5459054611%_ + _%g5564455662%_))) + (let ((_%hd5564855669%_ (let () (declare (not safe)) - (##car _%e5458954607%_))) - (_%tl5459154614%_ + (##car _%e5564755665%_))) + (_%tl5564955672%_ (let () (declare (not safe)) - (##cdr _%e5458954607%_)))) + (##cdr _%e5564755665%_)))) (if (gx#stx-pair? - _%tl5459154614%_) - (let ((_%e5459254617%_ + _%tl5564955672%_) + (let ((_%e5565055675%_ (gx#syntax-e - _%tl5459154614%_))) - (let ((_%hd5459354621%_ + _%tl5564955672%_))) + (let ((_%hd5565155679%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e5459254617%_))) - (_%tl5459454624%_ - (let () (declare (not safe)) (##cdr _%e5459254617%_)))) - (if (gx#stx-null? _%tl5459454624%_) - ((lambda (_%L54627%_ _%L54629%_) - (cons _%L54627%_ - (cons _%L54629%_ - (foldr (lambda (_%g5464454647%_ - _%g5464554650%_) - (cons _%g5464454647%_ - _%g5464554650%_)) + (##car _%e5565055675%_))) + (_%tl5565255682%_ + (let () (declare (not safe)) (##cdr _%e5565055675%_)))) + (if (gx#stx-null? _%tl5565255682%_) + ((lambda (_%g5564555685%_ _%g5564655687%_) + (cons _%g5564555685%_ + (cons _%g5564655687%_ + (foldr (lambda (_%g5570255705%_ + _%g5570355708%_) + (cons _%g5570255705%_ + _%g5570355708%_)) '() - _%L54352%_)))) - _%hd5459354621%_ - _%hd5459054611%_) - (_%g5458554600%_ _%g5458654604%_)))) + _%g5522555410%_)))) + _%hd5565155679%_ + _%hd5564855669%_) + (_%g5564355658%_ _%g5564455662%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5458554600%_ - _%g5458654604%_)))) - (_%g5458554600%_ - _%g5458654604%_))))) - (_%g5458454653%_ - (list (if _%nil-check?54410%_ + (_%g5564355658%_ + _%g5564455662%_)))) + (_%g5564355658%_ + _%g5564455662%_))))) + (_%g5564255711%_ + (list (if _%nil-check?55468%_ (cons 'check-nil! - (cons _%object54408%_ '())) - _%object54408%_) + (cons _%object55466%_ '())) + _%object55466%_) (gx#stx-identifier - _%L54354%_ - (if _%checked-method?54409%_ '"" '"&") - (let ((__obj91672 _%type54407%_)) + _%g5522655412%_ + (if _%checked-method?55467%_ '"" '"&") + (let ((__obj92524 _%type55465%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91672 + __obj92524 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91672 - '1 + __obj92524 + '2 '#f '#f)) (unchecked-slot-ref - __obj91672 + __obj92524 'name))) '"-" - _%part54486%_)))) + _%part55544%_)))) (gx#raise-syntax-error '#f '"illegal dotted reference; interface has no slots" - _%stx54139%_ - _%L54354%_ - _%part54486%_)) + _%stx55201%_ + _%g5522655412%_ + _%part55544%_)) (gx#raise-syntax-error '#f '"unexpected type" - _%stx54139%_ - _%type54407%_))))))) + _%stx55201%_ + _%type55465%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%parts5441154419%_) - (let ((_%hd5441654663%_ + (if (pair? _%parts5546955477%_) + (let ((_%hd5547455721%_ (let () (declare (not safe)) - (##car _%parts5441154419%_))) - (_%tl5441754666%_ + (##car _%parts5546955477%_))) + (_%tl5547555724%_ (let () (declare (not safe)) - (##cdr _%parts5441154419%_)))) - (let* ((_%part54669%_ - _%hd5441654663%_) - (_%rest54672%_ - _%tl5441754666%_)) - (_%K5441554659%_ - _%rest54672%_ - _%part54669%_))) - (_%else5441354480%_))))) - _%$e54395%_) + (##cdr _%parts5546955477%_)))) + (let* ((_%part55727%_ + _%hd5547455721%_) + (_%rest55730%_ + _%tl5547555724%_)) + (_%K5547355717%_ + _%rest55730%_ + _%part55727%_))) + (_%else5547155538%_))))) + _%$e55453%_) (cons (gx#datum->syntax '#f '%%app) - (cons _%L54354%_ - (foldr (lambda (_%g5467654679%_ + (cons _%g5522655412%_ + (foldr (lambda (_%g5573455737%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g5467754682%_) - (cons _%g5467654679%_ _%g5467754682%_)) + _%g5573555740%_) + (cons _%g5573455737%_ _%g5573555740%_)) '() - _%L54352%_)))))))) + _%g5522555410%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%g5437454381%_) - (let ((_%hd5437854689%_ + (if (pair? _%g5543255439%_) + (let ((_%hd5543655747%_ (let () (declare (not safe)) - (##car _%g5437454381%_))) - (_%tl5437954692%_ + (##car _%g5543255439%_))) + (_%tl5543755750%_ (let () (declare (not safe)) - (##cdr _%g5437454381%_)))) - (let* ((_%var54695%_ _%hd5437854689%_) - (_%parts54698%_ _%tl5437954692%_)) - (_%K5437754685%_ - _%parts54698%_ - _%var54695%_))) - (_%E5437654387%_))) + (##cdr _%g5543255439%_)))) + (let* ((_%var55753%_ _%hd5543655747%_) + (_%parts55756%_ _%tl5543755750%_)) + (_%K5543555743%_ + _%parts55756%_ + _%var55753%_))) + (_%E5543455445%_))) (cons (gx#datum->syntax '#f '%%app) - (cons _%L54354%_ - (foldr (lambda (_%g5470054703%_ - _%g5470154706%_) - (cons _%g5470054703%_ - _%g5470154706%_)) + (cons _%g5522655412%_ + (foldr (lambda (_%g5575855761%_ + _%g5575955764%_) + (cons _%g5575855761%_ + _%g5575955764%_)) '() - _%L54352%_)))))) - (_%__kont8682686827%_ - (lambda (_%L54251%_) + _%g5522555410%_)))))) + (_%__kont8777387774%_ + (lambda (_%g5524855311%_) (cons (gx#datum->syntax '#f '%%app) - (foldr (lambda (_%g5426654269%_ _%g5426754272%_) - (cons _%g5426654269%_ _%g5426754272%_)) + (foldr (lambda (_%g5532655329%_ _%g5532755332%_) + (cons _%g5532655329%_ _%g5532755332%_)) '() - _%L54251%_))))) - (let* ((_%__match8690286903%_ - (lambda (_%e5418754211%_ - _%hd5418854215%_ - _%tl5418954218%_ - _%__splice8682886829%_ - _%target5419054221%_ - _%tl5419254224%_) - (letrec ((_%loop5419354227%_ - (lambda (_%hd5419154231%_ _%arg5419754234%_) - (if (gx#stx-pair? _%hd5419154231%_) - (let ((_%e5419454237%_ - (gx#syntax-e _%hd5419154231%_))) - (let ((_%lp-tl5419654244%_ + _%g5524855311%_))))) + (let* ((_%__match8784987850%_ + (lambda (_%e5524955273%_ + _%hd5525055277%_ + _%tl5525155280%_ + _%__splice8777587776%_ + _%target5525255283%_ + _%tl5525455286%_) + (letrec ((_%loop5525555289%_ + (lambda (_%hd5525355293%_ _%arg5525955296%_) + (if (gx#stx-pair? _%hd5525355293%_) + (let ((_%e5525655298%_ + (gx#syntax-e _%hd5525355293%_))) + (let ((_%lp-tl5525855305%_ (let () (declare (not safe)) - (##cdr _%e5419454237%_))) - (_%lp-hd5419554241%_ + (##cdr _%e5525655298%_))) + (_%lp-hd5525755302%_ (let () (declare (not safe)) - (##car _%e5419454237%_)))) - (_%loop5419354227%_ - _%lp-tl5419654244%_ - (cons _%lp-hd5419554241%_ - _%arg5419754234%_)))) - (let ((_%arg5419854247%_ - (reverse _%arg5419754234%_))) - (_%__kont8682686827%_ - _%arg5419854247%_)))))) - (_%loop5419354227%_ _%target5419054221%_ '())))) - (_%__match8688886889%_ - (lambda (_%e5416554282%_ - _%hd5416654286%_ - _%tl5416754289%_ - _%e5416854292%_ - _%hd5416954296%_ - _%tl5417054299%_ - _%e5417154302%_ - _%hd5417254306%_ - _%tl5417354309%_ - _%e5417454312%_ - _%hd5417554316%_ - _%tl5417654319%_ - _%__splice8682486825%_ - _%target5417754322%_ - _%tl5417954325%_) - (letrec ((_%loop5418054328%_ - (lambda (_%hd5417854332%_ _%rand5418454335%_) - (if (gx#stx-pair? _%hd5417854332%_) - (let ((_%e5418154338%_ - (gx#syntax-e _%hd5417854332%_))) - (let ((_%lp-tl5418354345%_ + (##car _%e5525655298%_)))) + (_%loop5525555289%_ + _%lp-tl5525855305%_ + (cons _%lp-hd5525755302%_ + _%arg5525955296%_)))) + (let ((_%arg5526055308%_ + (reverse _%arg5525955296%_))) + (_%__kont8777387774%_ + _%arg5526055308%_)))))) + (_%loop5525555289%_ _%target5525255283%_ '())))) + (_%__match8783587836%_ + (lambda (_%e5522755342%_ + _%hd5522855346%_ + _%tl5522955349%_ + _%e5523055352%_ + _%hd5523155356%_ + _%tl5523255359%_ + _%e5523355362%_ + _%hd5523455366%_ + _%tl5523555369%_ + _%e5523655372%_ + _%hd5523755376%_ + _%tl5523855379%_ + _%__splice8777187772%_ + _%target5523955382%_ + _%tl5524155385%_) + (letrec ((_%loop5524255388%_ + (lambda (_%hd5524055392%_ _%rand5524655395%_) + (if (gx#stx-pair? _%hd5524055392%_) + (let ((_%e5524355397%_ + (gx#syntax-e _%hd5524055392%_))) + (let ((_%lp-tl5524555404%_ (let () (declare (not safe)) - (##cdr _%e5418154338%_))) - (_%lp-hd5418254342%_ + (##cdr _%e5524355397%_))) + (_%lp-hd5524455401%_ (let () (declare (not safe)) - (##car _%e5418154338%_)))) - (_%loop5418054328%_ - _%lp-tl5418354345%_ - (cons _%lp-hd5418254342%_ - _%rand5418454335%_)))) - (let ((_%rand5418554348%_ - (reverse _%rand5418454335%_))) - (_%__kont8682286823%_ - _%rand5418554348%_ - _%hd5417554316%_)))))) - (_%loop5418054328%_ _%target5417754322%_ '())))) - (_%__match8686286863%_ - (lambda (_%e5416554282%_ - _%hd5416654286%_ - _%tl5416754289%_ - _%e5416854292%_ - _%hd5416954296%_ - _%tl5417054299%_) - (if (gx#stx-pair? _%hd5416954296%_) - (let ((_%e5417154302%_ - (gx#syntax-e _%hd5416954296%_))) - (let ((_%tl5417354309%_ + (##car _%e5524355397%_)))) + (_%loop5524255388%_ + _%lp-tl5524555404%_ + (cons _%lp-hd5524455401%_ + _%rand5524655395%_)))) + (let ((_%rand5524755407%_ + (reverse _%rand5524655395%_))) + (_%__kont8776987770%_ + _%rand5524755407%_ + _%hd5523755376%_)))))) + (_%loop5524255388%_ _%target5523955382%_ '())))) + (_%__match8780987810%_ + (lambda (_%e5522755342%_ + _%hd5522855346%_ + _%tl5522955349%_ + _%e5523055352%_ + _%hd5523155356%_ + _%tl5523255359%_) + (if (gx#stx-pair? _%hd5523155356%_) + (let ((_%e5523355362%_ + (gx#syntax-e _%hd5523155356%_))) + (let ((_%tl5523555369%_ (let () (declare (not safe)) - (##cdr _%e5417154302%_))) - (_%hd5417254306%_ + (##cdr _%e5523355362%_))) + (_%hd5523455366%_ (let () (declare (not safe)) - (##car _%e5417154302%_)))) - (if (gx#identifier? _%hd5417254306%_) + (##car _%e5523355362%_)))) + (if (gx#identifier? _%hd5523455366%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91860_| - _%hd5417254306%_) - (if (gx#stx-pair? _%tl5417354309%_) - (let ((_%e5417454312%_ + |gerbil/core/contract~Using[1]#_g92721_| + _%hd5523455366%_) + (if (gx#stx-pair? _%tl5523555369%_) + (let ((_%e5523655372%_ (gx#syntax-e - _%tl5417354309%_))) - (let ((_%tl5417654319%_ + _%tl5523555369%_))) + (let ((_%tl5523855379%_ (let () (declare (not safe)) - (##cdr _%e5417454312%_))) - (_%hd5417554316%_ + (##cdr _%e5523655372%_))) + (_%hd5523755376%_ (let () (declare (not safe)) - (##car _%e5417454312%_)))) + (##car _%e5523655372%_)))) (if (gx#stx-null? - _%tl5417654319%_) + _%tl5523855379%_) (if (gx#stx-pair/null? - _%tl5417054299%_) - (let ((_%__splice8682486825%_ + _%tl5523255359%_) + (let ((_%__splice8777187772%_ (gx#syntax-split-splice->vector - _%tl5417054299%_ + _%tl5523255359%_ '0))) - (let ((_%tl5417954325%_ + (let ((_%tl5524155385%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8682486825%_ '1))) - (_%target5417754322%_ + (##vector-ref _%__splice8777187772%_ '1))) + (_%target5523955382%_ (let () (declare (not safe)) - (##vector-ref _%__splice8682486825%_ '0)))) - (if (gx#stx-null? _%tl5417954325%_) - (_%__match8688886889%_ - _%e5416554282%_ - _%hd5416654286%_ - _%tl5416754289%_ - _%e5416854292%_ - _%hd5416954296%_ - _%tl5417054299%_ - _%e5417154302%_ - _%hd5417254306%_ - _%tl5417354309%_ - _%e5417454312%_ - _%hd5417554316%_ - _%tl5417654319%_ - _%__splice8682486825%_ - _%target5417754322%_ - _%tl5417954325%_) - (if (gx#stx-pair/null? _%tl5416754289%_) - (let ((_%__splice8682886829%_ + (##vector-ref _%__splice8777187772%_ '0)))) + (if (gx#stx-null? _%tl5524155385%_) + (_%__match8783587836%_ + _%e5522755342%_ + _%hd5522855346%_ + _%tl5522955349%_ + _%e5523055352%_ + _%hd5523155356%_ + _%tl5523255359%_ + _%e5523355362%_ + _%hd5523455366%_ + _%tl5523555369%_ + _%e5523655372%_ + _%hd5523755376%_ + _%tl5523855379%_ + _%__splice8777187772%_ + _%target5523955382%_ + _%tl5524155385%_) + (if (gx#stx-pair/null? _%tl5522955349%_) + (let ((_%__splice8777587776%_ (gx#syntax-split-splice->vector - _%tl5416754289%_ + _%tl5522955349%_ '0))) - (let ((_%tl5419254224%_ + (let ((_%tl5525455286%_ (let () (declare (not safe)) - (##vector-ref _%__splice8682886829%_ '1))) - (_%target5419054221%_ + (##vector-ref _%__splice8777587776%_ '1))) + (_%target5525255283%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682886829%_ + _%__splice8777587776%_ '0)))) - (if (gx#stx-null? _%tl5419254224%_) - (_%__match8690286903%_ - _%e5416554282%_ - _%hd5416654286%_ - _%tl5416754289%_ - _%__splice8682886829%_ - _%target5419054221%_ - _%tl5419254224%_) + (if (gx#stx-null? _%tl5525455286%_) + (_%__match8784987850%_ + _%e5522755342%_ + _%hd5522855346%_ + _%tl5522955349%_ + _%__splice8777587776%_ + _%target5525255283%_ + _%tl5525455286%_) (let () (declare (not safe)) - (_%g5414454204%_))))) - (let () (declare (not safe)) (_%g5414454204%_)))))) - (if (gx#stx-pair/null? _%tl5416754289%_) - (let ((_%__splice8682886829%_ - (gx#syntax-split-splice->vector _%tl5416754289%_ '0))) - (let ((_%tl5419254224%_ + (_%g5520655266%_))))) + (let () (declare (not safe)) (_%g5520655266%_)))))) + (if (gx#stx-pair/null? _%tl5522955349%_) + (let ((_%__splice8777587776%_ + (gx#syntax-split-splice->vector _%tl5522955349%_ '0))) + (let ((_%tl5525455286%_ (let () (declare (not safe)) - (##vector-ref _%__splice8682886829%_ '1))) - (_%target5419054221%_ + (##vector-ref _%__splice8777587776%_ '1))) + (_%target5525255283%_ (let () (declare (not safe)) - (##vector-ref _%__splice8682886829%_ '0)))) - (if (gx#stx-null? _%tl5419254224%_) - (_%__match8690286903%_ - _%e5416554282%_ - _%hd5416654286%_ - _%tl5416754289%_ - _%__splice8682886829%_ - _%target5419054221%_ - _%tl5419254224%_) - (let () (declare (not safe)) (_%g5414454204%_))))) - (let () (declare (not safe)) (_%g5414454204%_)))) + (##vector-ref _%__splice8777587776%_ '0)))) + (if (gx#stx-null? _%tl5525455286%_) + (_%__match8784987850%_ + _%e5522755342%_ + _%hd5522855346%_ + _%tl5522955349%_ + _%__splice8777587776%_ + _%target5525255283%_ + _%tl5525455286%_) + (let () (declare (not safe)) (_%g5520655266%_))))) + (let () (declare (not safe)) (_%g5520655266%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5416754289%_) - (let ((_%__splice8682886829%_ + _%tl5522955349%_) + (let ((_%__splice8777587776%_ (gx#syntax-split-splice->vector - _%tl5416754289%_ + _%tl5522955349%_ '0))) - (let ((_%tl5419254224%_ + (let ((_%tl5525455286%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8682886829%_ '1))) - (_%target5419054221%_ + (##vector-ref _%__splice8777587776%_ '1))) + (_%target5525255283%_ (let () (declare (not safe)) - (##vector-ref _%__splice8682886829%_ '0)))) - (if (gx#stx-null? _%tl5419254224%_) - (_%__match8690286903%_ - _%e5416554282%_ - _%hd5416654286%_ - _%tl5416754289%_ - _%__splice8682886829%_ - _%target5419054221%_ - _%tl5419254224%_) - (let () (declare (not safe)) (_%g5414454204%_))))) - (let () (declare (not safe)) (_%g5414454204%_)))))) + (##vector-ref _%__splice8777587776%_ '0)))) + (if (gx#stx-null? _%tl5525455286%_) + (_%__match8784987850%_ + _%e5522755342%_ + _%hd5522855346%_ + _%tl5522955349%_ + _%__splice8777587776%_ + _%target5525255283%_ + _%tl5525455286%_) + (let () (declare (not safe)) (_%g5520655266%_))))) + (let () (declare (not safe)) (_%g5520655266%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5416754289%_) - (let ((_%__splice8682886829%_ + _%tl5522955349%_) + (let ((_%__splice8777587776%_ (gx#syntax-split-splice->vector - _%tl5416754289%_ + _%tl5522955349%_ '0))) - (let ((_%tl5419254224%_ + (let ((_%tl5525455286%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682886829%_ + _%__splice8777587776%_ '1))) - (_%target5419054221%_ + (_%target5525255283%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682886829%_ + _%__splice8777587776%_ '0)))) (if (gx#stx-null? - _%tl5419254224%_) - (_%__match8690286903%_ - _%e5416554282%_ - _%hd5416654286%_ - _%tl5416754289%_ - _%__splice8682886829%_ - _%target5419054221%_ - _%tl5419254224%_) + _%tl5525455286%_) + (_%__match8784987850%_ + _%e5522755342%_ + _%hd5522855346%_ + _%tl5522955349%_ + _%__splice8777587776%_ + _%target5525255283%_ + _%tl5525455286%_) (let () (declare (not safe)) - (_%g5414454204%_))))) + (_%g5520655266%_))))) (let () (declare (not safe)) - (_%g5414454204%_)))) - (if (gx#stx-pair/null? _%tl5416754289%_) - (let ((_%__splice8682886829%_ + (_%g5520655266%_)))) + (if (gx#stx-pair/null? _%tl5522955349%_) + (let ((_%__splice8777587776%_ (gx#syntax-split-splice->vector - _%tl5416754289%_ + _%tl5522955349%_ '0))) - (let ((_%tl5419254224%_ + (let ((_%tl5525455286%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682886829%_ + _%__splice8777587776%_ '1))) - (_%target5419054221%_ + (_%target5525255283%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682886829%_ + _%__splice8777587776%_ '0)))) (if (gx#stx-null? - _%tl5419254224%_) - (_%__match8690286903%_ - _%e5416554282%_ - _%hd5416654286%_ - _%tl5416754289%_ - _%__splice8682886829%_ - _%target5419054221%_ - _%tl5419254224%_) + _%tl5525455286%_) + (_%__match8784987850%_ + _%e5522755342%_ + _%hd5522855346%_ + _%tl5522955349%_ + _%__splice8777587776%_ + _%target5525255283%_ + _%tl5525455286%_) (let () (declare (not safe)) - (_%g5414454204%_))))) + (_%g5520655266%_))))) (let () (declare (not safe)) - (_%g5414454204%_)))) - (if (gx#stx-pair/null? _%tl5416754289%_) - (let ((_%__splice8682886829%_ + (_%g5520655266%_)))) + (if (gx#stx-pair/null? _%tl5522955349%_) + (let ((_%__splice8777587776%_ (gx#syntax-split-splice->vector - _%tl5416754289%_ + _%tl5522955349%_ '0))) - (let ((_%tl5419254224%_ + (let ((_%tl5525455286%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682886829%_ + _%__splice8777587776%_ '1))) - (_%target5419054221%_ + (_%target5525255283%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682886829%_ + _%__splice8777587776%_ '0)))) - (if (gx#stx-null? _%tl5419254224%_) - (_%__match8690286903%_ - _%e5416554282%_ - _%hd5416654286%_ - _%tl5416754289%_ - _%__splice8682886829%_ - _%target5419054221%_ - _%tl5419254224%_) + (if (gx#stx-null? _%tl5525455286%_) + (_%__match8784987850%_ + _%e5522755342%_ + _%hd5522855346%_ + _%tl5522955349%_ + _%__splice8777587776%_ + _%target5525255283%_ + _%tl5525455286%_) (let () (declare (not safe)) - (_%g5414454204%_))))) + (_%g5520655266%_))))) (let () (declare (not safe)) - (_%g5414454204%_)))))) - (if (gx#stx-pair/null? _%tl5416754289%_) - (let ((_%__splice8682886829%_ + (_%g5520655266%_)))))) + (if (gx#stx-pair/null? _%tl5522955349%_) + (let ((_%__splice8777587776%_ (gx#syntax-split-splice->vector - _%tl5416754289%_ + _%tl5522955349%_ '0))) - (let ((_%tl5419254224%_ + (let ((_%tl5525455286%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682886829%_ + _%__splice8777587776%_ '1))) - (_%target5419054221%_ + (_%target5525255283%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682886829%_ + _%__splice8777587776%_ '0)))) - (if (gx#stx-null? _%tl5419254224%_) - (_%__match8690286903%_ - _%e5416554282%_ - _%hd5416654286%_ - _%tl5416754289%_ - _%__splice8682886829%_ - _%target5419054221%_ - _%tl5419254224%_) + (if (gx#stx-null? _%tl5525455286%_) + (_%__match8784987850%_ + _%e5522755342%_ + _%hd5522855346%_ + _%tl5522955349%_ + _%__splice8777587776%_ + _%target5525255283%_ + _%tl5525455286%_) (let () (declare (not safe)) - (_%g5414454204%_))))) + (_%g5520655266%_))))) (let () (declare (not safe)) - (_%g5414454204%_)))))) - (_%__match8685086851%_ - (lambda (_%e5414854716%_ - _%hd5414954720%_ - _%tl5415054723%_ - _%e5415154726%_ - _%hd5415254730%_ - _%tl5415354733%_ - _%__splice8682086821%_ - _%target5415454736%_ - _%tl5415654739%_) - (letrec ((_%loop5415754742%_ - (lambda (_%hd5415554746%_ _%rand5416154749%_) - (if (gx#stx-pair? _%hd5415554746%_) - (let ((_%e5415854752%_ - (gx#syntax-e _%hd5415554746%_))) - (let ((_%lp-tl5416054759%_ + (_%g5520655266%_)))))) + (_%__match8779787798%_ + (lambda (_%e5521055774%_ + _%hd5521155778%_ + _%tl5521255781%_ + _%e5521355784%_ + _%hd5521455788%_ + _%tl5521555791%_ + _%__splice8776787768%_ + _%target5521655794%_ + _%tl5521855797%_) + (letrec ((_%loop5521955800%_ + (lambda (_%hd5521755804%_ _%rand5522355807%_) + (if (gx#stx-pair? _%hd5521755804%_) + (let ((_%e5522055809%_ + (gx#syntax-e _%hd5521755804%_))) + (let ((_%lp-tl5522255816%_ (let () (declare (not safe)) - (##cdr _%e5415854752%_))) - (_%lp-hd5415954756%_ + (##cdr _%e5522055809%_))) + (_%lp-hd5522155813%_ (let () (declare (not safe)) - (##car _%e5415854752%_)))) - (_%loop5415754742%_ - _%lp-tl5416054759%_ - (cons _%lp-hd5415954756%_ - _%rand5416154749%_)))) - (let ((_%rand5416254762%_ - (reverse _%rand5416154749%_))) - (let ((_%L54766%_ _%rand5416254762%_) - (_%L54768%_ _%hd5415254730%_)) - (if (gx#identifier? _%L54768%_) - (_%__kont8681886819%_ - _%L54766%_ - _%L54768%_) - (_%__match8686286863%_ - _%e5414854716%_ - _%hd5414954720%_ - _%tl5415054723%_ - _%e5415154726%_ - _%hd5415254730%_ - _%tl5415354733%_)))))))) - (_%loop5415754742%_ _%target5415454736%_ '()))))) - (if (gx#stx-pair? _%__stx8681586816%_) - (let ((_%e5414854716%_ (gx#syntax-e _%__stx8681586816%_))) - (let ((_%tl5415054723%_ + (##car _%e5522055809%_)))) + (_%loop5521955800%_ + _%lp-tl5522255816%_ + (cons _%lp-hd5522155813%_ + _%rand5522355807%_)))) + (let ((_%rand5522455819%_ + (reverse _%rand5522355807%_))) + (let ((_%g5520855822%_ + _%rand5522455819%_) + (_%g5520955824%_ + _%hd5521455788%_)) + (if (gx#identifier? _%g5520955824%_) + (_%__kont8776587766%_ + _%g5520855822%_ + _%g5520955824%_) + (_%__match8780987810%_ + _%e5521055774%_ + _%hd5521155778%_ + _%tl5521255781%_ + _%e5521355784%_ + _%hd5521455788%_ + _%tl5521555791%_)))))))) + (_%loop5521955800%_ _%target5521655794%_ '()))))) + (if (gx#stx-pair? _%__stx8776287763%_) + (let ((_%e5521055774%_ (gx#syntax-e _%__stx8776287763%_))) + (let ((_%tl5521255781%_ (let () (declare (not safe)) - (##cdr _%e5414854716%_))) - (_%hd5414954720%_ + (##cdr _%e5521055774%_))) + (_%hd5521155778%_ (let () (declare (not safe)) - (##car _%e5414854716%_)))) - (if (gx#stx-pair? _%tl5415054723%_) - (let ((_%e5415154726%_ - (gx#syntax-e _%tl5415054723%_))) - (let ((_%tl5415354733%_ + (##car _%e5521055774%_)))) + (if (gx#stx-pair? _%tl5521255781%_) + (let ((_%e5521355784%_ + (gx#syntax-e _%tl5521255781%_))) + (let ((_%tl5521555791%_ (let () (declare (not safe)) - (##cdr _%e5415154726%_))) - (_%hd5415254730%_ + (##cdr _%e5521355784%_))) + (_%hd5521455788%_ (let () (declare (not safe)) - (##car _%e5415154726%_)))) - (if (gx#stx-pair/null? _%tl5415354733%_) - (let ((_%__splice8682086821%_ + (##car _%e5521355784%_)))) + (if (gx#stx-pair/null? _%tl5521555791%_) + (let ((_%__splice8776787768%_ (gx#syntax-split-splice->vector - _%tl5415354733%_ + _%tl5521555791%_ '0))) - (let ((_%tl5415654739%_ + (let ((_%tl5521855797%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682086821%_ + _%__splice8776787768%_ '1))) - (_%target5415454736%_ + (_%target5521655794%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682086821%_ + _%__splice8776787768%_ '0)))) - (if (gx#stx-null? _%tl5415654739%_) - (_%__match8685086851%_ - _%e5414854716%_ - _%hd5414954720%_ - _%tl5415054723%_ - _%e5415154726%_ - _%hd5415254730%_ - _%tl5415354733%_ - _%__splice8682086821%_ - _%target5415454736%_ - _%tl5415654739%_) - (if (gx#stx-pair? _%hd5415254730%_) - (let ((_%e5417154302%_ + (if (gx#stx-null? _%tl5521855797%_) + (_%__match8779787798%_ + _%e5521055774%_ + _%hd5521155778%_ + _%tl5521255781%_ + _%e5521355784%_ + _%hd5521455788%_ + _%tl5521555791%_ + _%__splice8776787768%_ + _%target5521655794%_ + _%tl5521855797%_) + (if (gx#stx-pair? _%hd5521455788%_) + (let ((_%e5523355362%_ (gx#syntax-e - _%hd5415254730%_))) - (let ((_%tl5417354309%_ + _%hd5521455788%_))) + (let ((_%tl5523555369%_ (let () (declare (not safe)) - (##cdr _%e5417154302%_))) - (_%hd5417254306%_ + (##cdr _%e5523355362%_))) + (_%hd5523455366%_ (let () (declare (not safe)) - (##car _%e5417154302%_)))) + (##car _%e5523355362%_)))) (if (gx#identifier? - _%hd5417254306%_) + _%hd5523455366%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91860_| - _%hd5417254306%_) + |gerbil/core/contract~Using[1]#_g92721_| + _%hd5523455366%_) (if (gx#stx-pair? - _%tl5417354309%_) - (let ((_%e5417454312%_ + _%tl5523555369%_) + (let ((_%e5523655372%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5417354309%_))) - (let ((_%tl5417654319%_ + (gx#syntax-e _%tl5523555369%_))) + (let ((_%tl5523855379%_ (let () (declare (not safe)) - (##cdr _%e5417454312%_))) - (_%hd5417554316%_ + (##cdr _%e5523655372%_))) + (_%hd5523755376%_ (let () (declare (not safe)) - (##car _%e5417454312%_)))) - (if (gx#stx-pair/null? _%tl5415054723%_) - (let ((_%__splice8682886829%_ + (##car _%e5523655372%_)))) + (if (gx#stx-pair/null? _%tl5521255781%_) + (let ((_%__splice8777587776%_ (gx#syntax-split-splice->vector - _%tl5415054723%_ + _%tl5521255781%_ '0))) - (let ((_%tl5419254224%_ + (let ((_%tl5525455286%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682886829%_ + _%__splice8777587776%_ '1))) - (_%target5419054221%_ + (_%target5525255283%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682886829%_ + _%__splice8777587776%_ '0)))) - (if (gx#stx-null? _%tl5419254224%_) - (_%__match8690286903%_ - _%e5414854716%_ - _%hd5414954720%_ - _%tl5415054723%_ - _%__splice8682886829%_ - _%target5419054221%_ - _%tl5419254224%_) + (if (gx#stx-null? _%tl5525455286%_) + (_%__match8784987850%_ + _%e5521055774%_ + _%hd5521155778%_ + _%tl5521255781%_ + _%__splice8777587776%_ + _%target5525255283%_ + _%tl5525455286%_) (let () (declare (not safe)) - (_%g5414454204%_))))) + (_%g5520655266%_))))) (let () (declare (not safe)) - (_%g5414454204%_))))) - (if (gx#stx-pair/null? _%tl5415054723%_) - (let ((_%__splice8682886829%_ + (_%g5520655266%_))))) + (if (gx#stx-pair/null? _%tl5521255781%_) + (let ((_%__splice8777587776%_ (gx#syntax-split-splice->vector - _%tl5415054723%_ + _%tl5521255781%_ '0))) - (let ((_%tl5419254224%_ + (let ((_%tl5525455286%_ (let () (declare (not safe)) - (##vector-ref _%__splice8682886829%_ '1))) - (_%target5419054221%_ + (##vector-ref _%__splice8777587776%_ '1))) + (_%target5525255283%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682886829%_ + _%__splice8777587776%_ '0)))) - (if (gx#stx-null? _%tl5419254224%_) - (_%__match8690286903%_ - _%e5414854716%_ - _%hd5414954720%_ - _%tl5415054723%_ - _%__splice8682886829%_ - _%target5419054221%_ - _%tl5419254224%_) + (if (gx#stx-null? _%tl5525455286%_) + (_%__match8784987850%_ + _%e5521055774%_ + _%hd5521155778%_ + _%tl5521255781%_ + _%__splice8777587776%_ + _%target5525255283%_ + _%tl5525455286%_) (let () (declare (not safe)) - (_%g5414454204%_))))) - (let () (declare (not safe)) (_%g5414454204%_)))) - (if (gx#stx-pair/null? _%tl5415054723%_) - (let ((_%__splice8682886829%_ + (_%g5520655266%_))))) + (let () (declare (not safe)) (_%g5520655266%_)))) + (if (gx#stx-pair/null? _%tl5521255781%_) + (let ((_%__splice8777587776%_ (gx#syntax-split-splice->vector - _%tl5415054723%_ + _%tl5521255781%_ '0))) - (let ((_%tl5419254224%_ + (let ((_%tl5525455286%_ (let () (declare (not safe)) - (##vector-ref _%__splice8682886829%_ '1))) - (_%target5419054221%_ + (##vector-ref _%__splice8777587776%_ '1))) + (_%target5525255283%_ (let () (declare (not safe)) - (##vector-ref _%__splice8682886829%_ '0)))) - (if (gx#stx-null? _%tl5419254224%_) - (_%__match8690286903%_ - _%e5414854716%_ - _%hd5414954720%_ - _%tl5415054723%_ - _%__splice8682886829%_ - _%target5419054221%_ - _%tl5419254224%_) + (##vector-ref _%__splice8777587776%_ '0)))) + (if (gx#stx-null? _%tl5525455286%_) + (_%__match8784987850%_ + _%e5521055774%_ + _%hd5521155778%_ + _%tl5521255781%_ + _%__splice8777587776%_ + _%target5525255283%_ + _%tl5525455286%_) (let () (declare (not safe)) - (_%g5414454204%_))))) - (let () (declare (not safe)) (_%g5414454204%_)))) - (if (gx#stx-pair/null? _%tl5415054723%_) - (let ((_%__splice8682886829%_ - (gx#syntax-split-splice->vector _%tl5415054723%_ '0))) - (let ((_%tl5419254224%_ + (_%g5520655266%_))))) + (let () (declare (not safe)) (_%g5520655266%_)))) + (if (gx#stx-pair/null? _%tl5521255781%_) + (let ((_%__splice8777587776%_ + (gx#syntax-split-splice->vector _%tl5521255781%_ '0))) + (let ((_%tl5525455286%_ (let () (declare (not safe)) - (##vector-ref _%__splice8682886829%_ '1))) - (_%target5419054221%_ + (##vector-ref _%__splice8777587776%_ '1))) + (_%target5525255283%_ (let () (declare (not safe)) - (##vector-ref _%__splice8682886829%_ '0)))) - (if (gx#stx-null? _%tl5419254224%_) - (_%__match8690286903%_ - _%e5414854716%_ - _%hd5414954720%_ - _%tl5415054723%_ - _%__splice8682886829%_ - _%target5419054221%_ - _%tl5419254224%_) - (let () (declare (not safe)) (_%g5414454204%_))))) - (let () (declare (not safe)) (_%g5414454204%_)))))) + (##vector-ref _%__splice8777587776%_ '0)))) + (if (gx#stx-null? _%tl5525455286%_) + (_%__match8784987850%_ + _%e5521055774%_ + _%hd5521155778%_ + _%tl5521255781%_ + _%__splice8777587776%_ + _%target5525255283%_ + _%tl5525455286%_) + (let () (declare (not safe)) (_%g5520655266%_))))) + (let () (declare (not safe)) (_%g5520655266%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5415054723%_) - (let ((_%__splice8682886829%_ + _%tl5521255781%_) + (let ((_%__splice8777587776%_ (gx#syntax-split-splice->vector - _%tl5415054723%_ + _%tl5521255781%_ '0))) - (let ((_%tl5419254224%_ + (let ((_%tl5525455286%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682886829%_ + _%__splice8777587776%_ '1))) - (_%target5419054221%_ + (_%target5525255283%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682886829%_ + _%__splice8777587776%_ '0)))) (if (gx#stx-null? - _%tl5419254224%_) - (_%__match8690286903%_ - _%e5414854716%_ - _%hd5414954720%_ - _%tl5415054723%_ - _%__splice8682886829%_ - _%target5419054221%_ - _%tl5419254224%_) + _%tl5525455286%_) + (_%__match8784987850%_ + _%e5521055774%_ + _%hd5521155778%_ + _%tl5521255781%_ + _%__splice8777587776%_ + _%target5525255283%_ + _%tl5525455286%_) (let () (declare (not safe)) - (_%g5414454204%_))))) + (_%g5520655266%_))))) (let () (declare (not safe)) - (_%g5414454204%_))))))) - (if (gx#stx-pair? _%hd5415254730%_) - (let ((_%e5417154302%_ - (gx#syntax-e _%hd5415254730%_))) - (let ((_%tl5417354309%_ + (_%g5520655266%_))))))) + (if (gx#stx-pair? _%hd5521455788%_) + (let ((_%e5523355362%_ + (gx#syntax-e _%hd5521455788%_))) + (let ((_%tl5523555369%_ (let () (declare (not safe)) - (##cdr _%e5417154302%_))) - (_%hd5417254306%_ + (##cdr _%e5523355362%_))) + (_%hd5523455366%_ (let () (declare (not safe)) - (##car _%e5417154302%_)))) - (if (gx#identifier? _%hd5417254306%_) + (##car _%e5523355362%_)))) + (if (gx#identifier? _%hd5523455366%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g91860_| - _%hd5417254306%_) + |gerbil/core/contract~Using[1]#_g92721_| + _%hd5523455366%_) (if (gx#stx-pair? - _%tl5417354309%_) - (let ((_%e5417454312%_ + _%tl5523555369%_) + (let ((_%e5523655372%_ (gx#syntax-e - _%tl5417354309%_))) - (let ((_%tl5417654319%_ + _%tl5523555369%_))) + (let ((_%tl5523855379%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5417454312%_))) - (_%hd5417554316%_ - (let () (declare (not safe)) (##car _%e5417454312%_)))) - (if (gx#stx-pair/null? _%tl5415054723%_) - (let ((_%__splice8682886829%_ + (##cdr _%e5523655372%_))) + (_%hd5523755376%_ + (let () (declare (not safe)) (##car _%e5523655372%_)))) + (if (gx#stx-pair/null? _%tl5521255781%_) + (let ((_%__splice8777587776%_ (gx#syntax-split-splice->vector - _%tl5415054723%_ + _%tl5521255781%_ '0))) - (let ((_%tl5419254224%_ + (let ((_%tl5525455286%_ (let () (declare (not safe)) - (##vector-ref _%__splice8682886829%_ '1))) - (_%target5419054221%_ + (##vector-ref _%__splice8777587776%_ '1))) + (_%target5525255283%_ (let () (declare (not safe)) - (##vector-ref _%__splice8682886829%_ '0)))) - (if (gx#stx-null? _%tl5419254224%_) - (_%__match8690286903%_ - _%e5414854716%_ - _%hd5414954720%_ - _%tl5415054723%_ - _%__splice8682886829%_ - _%target5419054221%_ - _%tl5419254224%_) + (##vector-ref _%__splice8777587776%_ '0)))) + (if (gx#stx-null? _%tl5525455286%_) + (_%__match8784987850%_ + _%e5521055774%_ + _%hd5521155778%_ + _%tl5521255781%_ + _%__splice8777587776%_ + _%target5525255283%_ + _%tl5525455286%_) (let () (declare (not safe)) - (_%g5414454204%_))))) - (let () (declare (not safe)) (_%g5414454204%_))))) - (if (gx#stx-pair/null? _%tl5415054723%_) - (let ((_%__splice8682886829%_ - (gx#syntax-split-splice->vector _%tl5415054723%_ '0))) - (let ((_%tl5419254224%_ + (_%g5520655266%_))))) + (let () (declare (not safe)) (_%g5520655266%_))))) + (if (gx#stx-pair/null? _%tl5521255781%_) + (let ((_%__splice8777587776%_ + (gx#syntax-split-splice->vector _%tl5521255781%_ '0))) + (let ((_%tl5525455286%_ (let () (declare (not safe)) - (##vector-ref _%__splice8682886829%_ '1))) - (_%target5419054221%_ + (##vector-ref _%__splice8777587776%_ '1))) + (_%target5525255283%_ (let () (declare (not safe)) - (##vector-ref _%__splice8682886829%_ '0)))) - (if (gx#stx-null? _%tl5419254224%_) - (_%__match8690286903%_ - _%e5414854716%_ - _%hd5414954720%_ - _%tl5415054723%_ - _%__splice8682886829%_ - _%target5419054221%_ - _%tl5419254224%_) - (let () (declare (not safe)) (_%g5414454204%_))))) - (let () (declare (not safe)) (_%g5414454204%_)))) + (##vector-ref _%__splice8777587776%_ '0)))) + (if (gx#stx-null? _%tl5525455286%_) + (_%__match8784987850%_ + _%e5521055774%_ + _%hd5521155778%_ + _%tl5521255781%_ + _%__splice8777587776%_ + _%target5525255283%_ + _%tl5525455286%_) + (let () (declare (not safe)) (_%g5520655266%_))))) + (let () (declare (not safe)) (_%g5520655266%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5415054723%_) - (let ((_%__splice8682886829%_ + _%tl5521255781%_) + (let ((_%__splice8777587776%_ (gx#syntax-split-splice->vector - _%tl5415054723%_ + _%tl5521255781%_ '0))) - (let ((_%tl5419254224%_ + (let ((_%tl5525455286%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8682886829%_ '1))) - (_%target5419054221%_ + (##vector-ref _%__splice8777587776%_ '1))) + (_%target5525255283%_ (let () (declare (not safe)) - (##vector-ref _%__splice8682886829%_ '0)))) - (if (gx#stx-null? _%tl5419254224%_) - (_%__match8690286903%_ - _%e5414854716%_ - _%hd5414954720%_ - _%tl5415054723%_ - _%__splice8682886829%_ - _%target5419054221%_ - _%tl5419254224%_) - (let () (declare (not safe)) (_%g5414454204%_))))) - (let () (declare (not safe)) (_%g5414454204%_)))) + (##vector-ref _%__splice8777587776%_ '0)))) + (if (gx#stx-null? _%tl5525455286%_) + (_%__match8784987850%_ + _%e5521055774%_ + _%hd5521155778%_ + _%tl5521255781%_ + _%__splice8777587776%_ + _%target5525255283%_ + _%tl5525455286%_) + (let () (declare (not safe)) (_%g5520655266%_))))) + (let () (declare (not safe)) (_%g5520655266%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5415054723%_) - (let ((_%__splice8682886829%_ + _%tl5521255781%_) + (let ((_%__splice8777587776%_ (gx#syntax-split-splice->vector - _%tl5415054723%_ + _%tl5521255781%_ '0))) - (let ((_%tl5419254224%_ + (let ((_%tl5525455286%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682886829%_ + _%__splice8777587776%_ '1))) - (_%target5419054221%_ + (_%target5525255283%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682886829%_ + _%__splice8777587776%_ '0)))) (if (gx#stx-null? - _%tl5419254224%_) - (_%__match8690286903%_ - _%e5414854716%_ - _%hd5414954720%_ - _%tl5415054723%_ - _%__splice8682886829%_ - _%target5419054221%_ - _%tl5419254224%_) + _%tl5525455286%_) + (_%__match8784987850%_ + _%e5521055774%_ + _%hd5521155778%_ + _%tl5521255781%_ + _%__splice8777587776%_ + _%target5525255283%_ + _%tl5525455286%_) (let () (declare (not safe)) - (_%g5414454204%_))))) + (_%g5520655266%_))))) (let () (declare (not safe)) - (_%g5414454204%_)))))) - (if (gx#stx-pair/null? _%tl5415054723%_) - (let ((_%__splice8682886829%_ + (_%g5520655266%_)))))) + (if (gx#stx-pair/null? _%tl5521255781%_) + (let ((_%__splice8777587776%_ (gx#syntax-split-splice->vector - _%tl5415054723%_ + _%tl5521255781%_ '0))) - (let ((_%tl5419254224%_ + (let ((_%tl5525455286%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682886829%_ + _%__splice8777587776%_ '1))) - (_%target5419054221%_ + (_%target5525255283%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682886829%_ + _%__splice8777587776%_ '0)))) (if (gx#stx-null? - _%tl5419254224%_) - (_%__match8690286903%_ - _%e5414854716%_ - _%hd5414954720%_ - _%tl5415054723%_ - _%__splice8682886829%_ - _%target5419054221%_ - _%tl5419254224%_) + _%tl5525455286%_) + (_%__match8784987850%_ + _%e5521055774%_ + _%hd5521155778%_ + _%tl5521255781%_ + _%__splice8777587776%_ + _%target5525255283%_ + _%tl5525455286%_) (let () (declare (not safe)) - (_%g5414454204%_))))) + (_%g5520655266%_))))) (let () (declare (not safe)) - (_%g5414454204%_))))))) - (if (gx#stx-pair/null? _%tl5415054723%_) - (let ((_%__splice8682886829%_ + (_%g5520655266%_))))))) + (if (gx#stx-pair/null? _%tl5521255781%_) + (let ((_%__splice8777587776%_ (gx#syntax-split-splice->vector - _%tl5415054723%_ + _%tl5521255781%_ '0))) - (let ((_%tl5419254224%_ + (let ((_%tl5525455286%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682886829%_ + _%__splice8777587776%_ '1))) - (_%target5419054221%_ + (_%target5525255283%_ (let () (declare (not safe)) (##vector-ref - _%__splice8682886829%_ + _%__splice8777587776%_ '0)))) - (if (gx#stx-null? _%tl5419254224%_) - (_%__match8690286903%_ - _%e5414854716%_ - _%hd5414954720%_ - _%tl5415054723%_ - _%__splice8682886829%_ - _%target5419054221%_ - _%tl5419254224%_) + (if (gx#stx-null? _%tl5525455286%_) + (_%__match8784987850%_ + _%e5521055774%_ + _%hd5521155778%_ + _%tl5521255781%_ + _%__splice8777587776%_ + _%target5525255283%_ + _%tl5525455286%_) (let () (declare (not safe)) - (_%g5414454204%_))))) + (_%g5520655266%_))))) (let () (declare (not safe)) - (_%g5414454204%_)))))) - (let () (declare (not safe)) (_%g5414454204%_)))))))) + (_%g5520655266%_)))))) + (let () (declare (not safe)) (_%g5520655266%_)))))))) (define |gerbil/core/contract~Using[:0:]#%%ref-dotted| - (lambda (_%stx54800%_) - (let* ((_%__stx8690586906%_ _%stx54800%_) - (_%g5480454825%_ + (lambda (_%stx55856%_) + (let* ((_%__stx8785287853%_ _%stx55856%_) + (_%g5586055881%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8690586906%_)))) - (let ((_%__kont8690886909%_ - (lambda (_%L54893%_) - (let* ((_%g5490554912%_ + _%__stx8785287853%_)))) + (let ((_%__kont8785587856%_ + (lambda (_%g5586255949%_) + (let* ((_%g5596155968%_ (|gerbil/core/contract~Using[1]#split-dotted-identifier| - _%stx54800%_ - _%L54893%_)) - (_%E5490754918%_ + _%stx55856%_ + _%g5586255949%_)) + (_%E5596355974%_ (lambda () (error '"No clause matching" - _%g5490554912%_ + _%g5596155968%_ '([var . parts])) (void))) - (_%K5490855134%_ - (lambda (_%parts54922%_ _%var54924%_) - (let ((_%$e54926%_ + (_%K5596456190%_ + (lambda (_%parts55978%_ _%var55980%_) + (let ((_%$e55982%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#type-env-lookup - _%var54924%_)))) - (if _%$e54926%_ - ((lambda (_%te54930%_) - (let _%loop54933%_ ((_%parts54936%_ - _%parts54922%_) - (_%type54938%_ + _%var55980%_)))) + (if _%$e55982%_ + ((lambda (_%te55986%_) + (let _%loop55989%_ ((_%parts55992%_ + _%parts55978%_) + (_%type55994%_ (##direct-structure-ref - _%te54930%_ + _%te55986%_ '2 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%object54939%_ - _%var54924%_) - (_%nil-check?54940%_ + (_%object55995%_ + _%var55980%_) + (_%nil-check?55996%_ '#f)) - (let* ((_%parts5494154949%_ - _%parts54936%_) - (_%else5494354961%_ - (lambda () _%object54939%_)) - (_%K5494555116%_ - (lambda (_%rest54965%_ - _%part54967%_) - (if (and (not _%nil-check?54940%_) - (let ((__tmp91861 + (let* ((_%parts5599756005%_ + _%parts55992%_) + (_%else5599956017%_ + (lambda () _%object55995%_)) + (_%K5600156172%_ + (lambda (_%rest56021%_ + _%part56023%_) + (if (and (not _%nil-check?55996%_) + (let ((__tmp92722 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (symbol->string _%part54967%_))) + (symbol->string _%part56023%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp91861))) - (let ((_%str54971%_ (symbol->string _%part54967%_))) - (_%loop54933%_ - (cons (let ((__tmp91862 + (##string-prefix? '"?" __tmp92722))) + (let ((_%str56027%_ (symbol->string _%part56023%_))) + (_%loop55989%_ + (cons (let ((__tmp92723 (substring - _%str54971%_ + _%str56027%_ '1 - (string-length _%str54971%_)))) + (string-length _%str56027%_)))) (declare (not safe)) - (##string->symbol __tmp91862)) - _%rest54965%_) - _%type54938%_ - _%object54939%_ + (##string->symbol __tmp92723)) + _%rest56021%_) + _%type55994%_ + _%object55995%_ '#t)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%type54938%_)) - (let* ((_%g5497654991%_ - (lambda (_%g5497754987%_) + _%type55994%_)) + (let* ((_%g5603256047%_ + (lambda (_%g5603356043%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5497754987%_))) - (_%g5497555108%_ - (lambda (_%g5497754995%_) - (if (gx#stx-pair? _%g5497754995%_) - (let ((_%e5498054998%_ - (gx#syntax-e _%g5497754995%_))) - (let ((_%hd5498155002%_ + _%g5603356043%_))) + (_%g5603156164%_ + (lambda (_%g5603356051%_) + (if (gx#stx-pair? _%g5603356051%_) + (let ((_%e5603656054%_ + (gx#syntax-e _%g5603356051%_))) + (let ((_%hd5603756058%_ (let () (declare (not safe)) - (##car _%e5498054998%_))) - (_%tl5498255005%_ + (##car _%e5603656054%_))) + (_%tl5603856061%_ (let () (declare (not safe)) - (##cdr _%e5498054998%_)))) - (if (gx#stx-pair? _%tl5498255005%_) - (let ((_%e5498355008%_ - (gx#syntax-e _%tl5498255005%_))) - (let ((_%hd5498455012%_ + (##cdr _%e5603656054%_)))) + (if (gx#stx-pair? _%tl5603856061%_) + (let ((_%e5603956064%_ + (gx#syntax-e _%tl5603856061%_))) + (let ((_%hd5604056068%_ (let () (declare (not safe)) - (##car _%e5498355008%_))) - (_%tl5498555015%_ + (##car _%e5603956064%_))) + (_%tl5604156071%_ (let () (declare (not safe)) - (##cdr _%e5498355008%_)))) - (if (gx#stx-null? _%tl5498555015%_) - ((lambda (_%L55018%_ - _%L55020%_) - (if (null? _%rest54965%_) - (let ((_%$e55050%_ + (##cdr _%e5603956064%_)))) + (if (gx#stx-null? _%tl5604156071%_) + ((lambda (_%g5603456074%_ + _%g5603556076%_) + (if (null? _%rest56021%_) + (let ((_%$e56106%_ (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type54938%_ - _%part54967%_))) - (if _%$e55050%_ - ((lambda (_%slot-type55054%_) - (let* ((_%g5505755065%_ + _%type55994%_ + _%part56023%_))) + (if _%$e56106%_ + ((lambda (_%slot-type56110%_) + (let* ((_%g5611356121%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g5505855061%_) + (lambda (_%g5611456117%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5505855061%_))) - (_%g5505655088%_ - (lambda (_%g5505855069%_) - ((lambda (_%L55072%_) + _%g5611456117%_))) + (_%g5611256144%_ + (lambda (_%g5611456125%_) + ((lambda (_%g5611556128%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L55072%_ '())) - (cons (cons _%L55018%_ - (cons _%L55020%_ + (cons _%g5611556128%_ + '())) + (cons (cons _%g5603456074%_ + (cons _%g5603556076%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g5505855069%_)))) - (_%g5505655088%_ + _%g5611456125%_)))) + (_%g5611256144%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx54800%_ - _%slot-type55054%_))))) - _%$e55050%_) - (if _%nil-check?54940%_ - (cons _%L55018%_ + _%stx55856%_ + _%slot-type56110%_))))) + _%$e56106%_) + (if _%nil-check?55996%_ + (cons _%g5603456074%_ (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L55020%_ '())) + (cons _%g5603556076%_ '())) '())) - (cons _%L55018%_ (cons _%L55020%_ '()))))) - (let ((_%$e55096%_ + (cons _%g5603456074%_ (cons _%g5603556076%_ '()))))) + (let ((_%$e56152%_ (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type54938%_ - _%part54967%_))) - (if _%$e55096%_ - ((lambda (_%type55100%_) - (let ((_%type55103%_ + _%type55994%_ + _%part56023%_))) + (if _%$e56152%_ + ((lambda (_%type56156%_) + (let ((_%type56159%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx54800%_ - _%type55100%_)))) - (if _%nil-check?54940%_ - (_%loop54933%_ - _%rest54965%_ - _%type55103%_ - (cons _%L55018%_ + _%stx55856%_ + _%type56156%_)))) + (if _%nil-check?55996%_ + (_%loop55989%_ + _%rest56021%_ + _%type56159%_ + (cons _%g5603456074%_ (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L55020%_ '())) + (cons _%g5603556076%_ '())) '())) '#f) - (_%loop54933%_ - _%rest54965%_ - _%type55103%_ - (cons _%L55018%_ (cons _%L55020%_ '())) + (_%loop55989%_ + _%rest56021%_ + _%type56159%_ + (cons _%g5603456074%_ + (cons _%g5603556076%_ '())) '#f)))) - _%$e55096%_) + _%$e56152%_) (gx#raise-syntax-error '#f '"unresolved dotted reference; unknown type for slot" - _%stx54800%_ - _%L54893%_ - _%part54967%_))))) + _%stx55856%_ + _%g5586255949%_ + _%part56023%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5498455012%_ - _%hd5498155002%_) - (_%g5497654991%_ - _%g5497754995%_)))) - (_%g5497654991%_ _%g5497754995%_)))) - (_%g5497654991%_ _%g5497754995%_))))) - (_%g5497555108%_ - (list (if _%nil-check?54940%_ - (cons 'check-nil! (cons _%object54939%_ '())) - _%object54939%_) + _%hd5604056068%_ + _%hd5603756058%_) + (_%g5603256047%_ + _%g5603356051%_)))) + (_%g5603256047%_ _%g5603356051%_)))) + (_%g5603256047%_ _%g5603356051%_))))) + (_%g5603156164%_ + (list (if _%nil-check?55996%_ + (cons 'check-nil! (cons _%object55995%_ '())) + _%object55995%_) (|gerbil/core/contract~Using[1]#get-slot-accessor| - _%stx54800%_ - _%type54938%_ - _%part54967%_)))) + _%stx55856%_ + _%type55994%_ + _%part56023%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%type54938%_)) + _%type55994%_)) (gx#raise-syntax-error '#f '"illegal dotted reference; interface has no slots") (gx#raise-syntax-error '#f '"unexpected type" - _%stx54800%_ - _%type54938%_))))))) + _%stx55856%_ + _%type55994%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%parts5494154949%_) - (let ((_%hd5494655120%_ + (if (pair? _%parts5599756005%_) + (let ((_%hd5600256176%_ (let () (declare (not safe)) - (##car _%parts5494154949%_))) - (_%tl5494755123%_ + (##car _%parts5599756005%_))) + (_%tl5600356179%_ (let () (declare (not safe)) - (##cdr _%parts5494154949%_)))) - (let* ((_%part55126%_ - _%hd5494655120%_) - (_%rest55129%_ - _%tl5494755123%_)) - (_%K5494555116%_ - _%rest55129%_ - _%part55126%_))) - (_%else5494354961%_))))) - _%$e54926%_) + (##cdr _%parts5599756005%_)))) + (let* ((_%part56182%_ + _%hd5600256176%_) + (_%rest56185%_ + _%tl5600356179%_)) + (_%K5600156172%_ + _%rest56185%_ + _%part56182%_))) + (_%else5599956017%_))))) + _%$e55982%_) (cons (gx#datum->syntax '#f '%%ref) - (cons _%L54893%_ '()))))))) - (if (pair? _%g5490554912%_) - (let ((_%hd5490955138%_ + (cons _%g5586255949%_ '()))))))) + (if (pair? _%g5596155968%_) + (let ((_%hd5596556194%_ (let () (declare (not safe)) - (##car _%g5490554912%_))) - (_%tl5491055141%_ + (##car _%g5596155968%_))) + (_%tl5596656197%_ (let () (declare (not safe)) - (##cdr _%g5490554912%_)))) - (let* ((_%var55144%_ _%hd5490955138%_) - (_%parts55147%_ _%tl5491055141%_)) - (_%K5490855134%_ _%parts55147%_ _%var55144%_))) - (_%E5490754918%_))))) - (_%__kont8691086911%_ - (lambda (_%L54852%_) + (##cdr _%g5596155968%_)))) + (let* ((_%var56200%_ _%hd5596556194%_) + (_%parts56203%_ _%tl5596656197%_)) + (_%K5596456190%_ _%parts56203%_ _%var56200%_))) + (_%E5596355974%_))))) + (_%__kont8785787858%_ + (lambda (_%g5586955908%_) (cons (gx#datum->syntax '#f '%%ref) - (cons _%L54852%_ '()))))) - (let ((_%__match8692686927%_ - (lambda (_%e5480754873%_ - _%hd5480854877%_ - _%tl5480954880%_ - _%e5481054883%_ - _%hd5481154887%_ - _%tl5481254890%_) - (let ((_%L54893%_ _%hd5481154887%_)) + (cons _%g5586955908%_ '()))))) + (let ((_%__match8787387874%_ + (lambda (_%e5586355929%_ + _%hd5586455933%_ + _%tl5586555936%_ + _%e5586655939%_ + _%hd5586755943%_ + _%tl5586855946%_) + (let ((_%g5586255949%_ _%hd5586755943%_)) (if (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L54893%_) - (_%__kont8690886909%_ _%L54893%_) - (_%__kont8691086911%_ _%hd5481154887%_)))))) - (if (gx#stx-pair? _%__stx8690586906%_) - (let ((_%e5480754873%_ (gx#syntax-e _%__stx8690586906%_))) - (let ((_%tl5480954880%_ + _%g5586255949%_) + (_%__kont8785587856%_ _%g5586255949%_) + (_%__kont8785787858%_ _%hd5586755943%_)))))) + (if (gx#stx-pair? _%__stx8785287853%_) + (let ((_%e5586355929%_ (gx#syntax-e _%__stx8785287853%_))) + (let ((_%tl5586555936%_ (let () (declare (not safe)) - (##cdr _%e5480754873%_))) - (_%hd5480854877%_ + (##cdr _%e5586355929%_))) + (_%hd5586455933%_ (let () (declare (not safe)) - (##car _%e5480754873%_)))) - (if (gx#stx-pair? _%tl5480954880%_) - (let ((_%e5481054883%_ - (gx#syntax-e _%tl5480954880%_))) - (let ((_%tl5481254890%_ + (##car _%e5586355929%_)))) + (if (gx#stx-pair? _%tl5586555936%_) + (let ((_%e5586655939%_ + (gx#syntax-e _%tl5586555936%_))) + (let ((_%tl5586855946%_ (let () (declare (not safe)) - (##cdr _%e5481054883%_))) - (_%hd5481154887%_ + (##cdr _%e5586655939%_))) + (_%hd5586755943%_ (let () (declare (not safe)) - (##car _%e5481054883%_)))) - (if (gx#stx-null? _%tl5481254890%_) - (_%__match8692686927%_ - _%e5480754873%_ - _%hd5480854877%_ - _%tl5480954880%_ - _%e5481054883%_ - _%hd5481154887%_ - _%tl5481254890%_) + (##car _%e5586655939%_)))) + (if (gx#stx-null? _%tl5586855946%_) + (_%__match8787387874%_ + _%e5586355929%_ + _%hd5586455933%_ + _%tl5586555936%_ + _%e5586655939%_ + _%hd5586755943%_ + _%tl5586855946%_) (let () (declare (not safe)) - (_%g5480454825%_))))) - (let () (declare (not safe)) (_%g5480454825%_))))) - (let () (declare (not safe)) (_%g5480454825%_)))))))) + (_%g5586055881%_))))) + (let () (declare (not safe)) (_%g5586055881%_))))) + (let () (declare (not safe)) (_%g5586055881%_)))))))) (define |gerbil/core/contract~Using[:0:]#%%set-dotted!| - (lambda (_%stx55154%_) - (let* ((_%__stx8694386944%_ _%stx55154%_) - (_%g5515855187%_ + (lambda (_%stx56210%_) + (let* ((_%__stx8789087891%_ _%stx56210%_) + (_%g5621456243%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8694386944%_)))) - (let ((_%__kont8694686947%_ - (lambda (_%L55279%_ _%L55281%_) - (let* ((_%g5529555302%_ + _%__stx8789087891%_)))) + (let ((_%__kont8789387894%_ + (lambda (_%g5621656335%_ _%g5621756337%_) + (let* ((_%g5635156358%_ (|gerbil/core/contract~Using[1]#split-dotted-identifier| - _%stx55154%_ - _%L55281%_)) - (_%E5529755308%_ + _%stx56210%_ + _%g5621756337%_)) + (_%E5635356364%_ (lambda () (error '"No clause matching" - _%g5529555302%_ + _%g5635156358%_ '([var . parts])) (void))) - (_%K5529855538%_ - (lambda (_%parts55312%_ _%var55314%_) - (let ((_%$e55316%_ + (_%K5635456594%_ + (lambda (_%parts56368%_ _%var56370%_) + (let ((_%$e56372%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#type-env-lookup - _%var55314%_)))) - (if _%$e55316%_ - ((lambda (_%te55320%_) - (let _%loop55323%_ ((_%parts55326%_ - _%parts55312%_) - (_%type55328%_ + _%var56370%_)))) + (if _%$e56372%_ + ((lambda (_%te56376%_) + (let _%loop56379%_ ((_%parts56382%_ + _%parts56368%_) + (_%type56384%_ (##direct-structure-ref - _%te55320%_ + _%te56376%_ '2 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%object55329%_ - _%var55314%_) - (_%checked-mutator?55330%_ + (_%object56385%_ + _%var56370%_) + (_%checked-mutator?56386%_ (##direct-structure-ref - _%te55320%_ + _%te56376%_ '3 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%nil-check?55331%_ + (_%nil-check?56387%_ '#f)) - (let* ((_%parts5533255339%_ - _%parts55326%_) - (_%E5533455345%_ + (let* ((_%parts5638856395%_ + _%parts56382%_) + (_%E5639056401%_ (lambda () (error '"No clause matching" - _%parts5533255339%_ + _%parts5638856395%_ '([part . rest])) (void))) - (_%K5533555520%_ - (lambda (_%rest55349%_ - _%part55351%_) - (if (and (not _%nil-check?55331%_) - (let ((__tmp91863 + (_%K5639156576%_ + (lambda (_%rest56405%_ + _%part56407%_) + (if (and (not _%nil-check?56387%_) + (let ((__tmp92724 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (symbol->string _%part55351%_))) + (symbol->string _%part56407%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp91863))) - (let ((_%str55355%_ (symbol->string _%part55351%_))) - (_%loop55323%_ - (cons (let ((__tmp91864 + (##string-prefix? '"?" __tmp92724))) + (let ((_%str56411%_ (symbol->string _%part56407%_))) + (_%loop56379%_ + (cons (let ((__tmp92725 (substring - _%str55355%_ + _%str56411%_ '1 - (string-length _%str55355%_)))) + (string-length _%str56411%_)))) (declare (not safe)) - (##string->symbol __tmp91864)) - _%rest55349%_) - _%type55328%_ - _%object55329%_ - _%checked-mutator?55330%_ + (##string->symbol __tmp92725)) + _%rest56405%_) + _%type56384%_ + _%object56385%_ + _%checked-mutator?56386%_ '#t)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%type55328%_)) - (if (null? _%rest55349%_) - (let* ((_%g5536255377%_ - (lambda (_%g5536355373%_) + _%type56384%_)) + (if (null? _%rest56405%_) + (let* ((_%g5641856433%_ + (lambda (_%g5641956429%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5536355373%_))) - (_%g5536155434%_ - (lambda (_%g5536355381%_) - (if (gx#stx-pair? _%g5536355381%_) - (let ((_%e5536655384%_ - (gx#syntax-e _%g5536355381%_))) - (let ((_%hd5536755388%_ + _%g5641956429%_))) + (_%g5641756490%_ + (lambda (_%g5641956437%_) + (if (gx#stx-pair? _%g5641956437%_) + (let ((_%e5642256440%_ + (gx#syntax-e _%g5641956437%_))) + (let ((_%hd5642356444%_ (let () (declare (not safe)) - (##car _%e5536655384%_))) - (_%tl5536855391%_ + (##car _%e5642256440%_))) + (_%tl5642456447%_ (let () (declare (not safe)) - (##cdr _%e5536655384%_)))) - (if (gx#stx-pair? _%tl5536855391%_) - (let ((_%e5536955394%_ + (##cdr _%e5642256440%_)))) + (if (gx#stx-pair? _%tl5642456447%_) + (let ((_%e5642556450%_ (gx#syntax-e - _%tl5536855391%_))) - (let ((_%hd5537055398%_ + _%tl5642456447%_))) + (let ((_%hd5642656454%_ (let () (declare (not safe)) - (##car _%e5536955394%_))) - (_%tl5537155401%_ + (##car _%e5642556450%_))) + (_%tl5642756457%_ (let () (declare (not safe)) - (##cdr _%e5536955394%_)))) + (##cdr _%e5642556450%_)))) (if (gx#stx-null? - _%tl5537155401%_) - ((lambda (_%L55404%_ - _%L55406%_) - (if _%nil-check?55331%_ - (cons _%L55404%_ + _%tl5642756457%_) + ((lambda (_%g5642056460%_ + _%g5642156462%_) + (if _%nil-check?56387%_ + (cons _%g5642056460%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L55406%_ '())) - (cons _%L55279%_ '()))) - (cons _%L55404%_ (cons _%L55406%_ (cons _%L55279%_ '()))))) + (cons _%g5642156462%_ '())) + (cons _%g5621656335%_ '()))) + (cons _%g5642056460%_ + (cons _%g5642156462%_ (cons _%g5621656335%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5537055398%_ - _%hd5536755388%_) - (_%g5536255377%_ - _%g5536355381%_)))) - (_%g5536255377%_ - _%g5536355381%_)))) - (_%g5536255377%_ _%g5536355381%_))))) - (_%g5536155434%_ - (list _%object55329%_ + _%hd5642656454%_ + _%hd5642356444%_) + (_%g5641856433%_ + _%g5641956437%_)))) + (_%g5641856433%_ + _%g5641956437%_)))) + (_%g5641856433%_ _%g5641956437%_))))) + (_%g5641756490%_ + (list _%object56385%_ (|gerbil/core/contract~Using[1]#get-slot-mutator| - _%stx55154%_ - _%type55328%_ - _%part55351%_ - (if _%checked-mutator?55330%_ + _%stx56210%_ + _%type56384%_ + _%part56407%_ + (if _%checked-mutator?56386%_ (|gerbil/core/contract~Using[1]#!class-slot-contract| - _%type55328%_ - _%part55351%_) + _%type56384%_ + _%part56407%_) '#f))))) - (let ((_%$e55438%_ + (let ((_%$e56494%_ (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type55328%_ - _%part55351%_))) - (if _%$e55438%_ - ((lambda (_%type55442%_) - (let* ((_%type55445%_ + _%type56384%_ + _%part56407%_))) + (if _%$e56494%_ + ((lambda (_%type56498%_) + (let* ((_%type56501%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx55154%_ - _%type55442%_))) - (_%g5544855463%_ - (lambda (_%g5544955459%_) + _%stx56210%_ + _%type56498%_))) + (_%g5650456519%_ + (lambda (_%g5650556515%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5544955459%_))) - (_%g5544755510%_ - (lambda (_%g5544955467%_) - (if (gx#stx-pair? _%g5544955467%_) - (let ((_%e5545255470%_ + _%g5650556515%_))) + (_%g5650356566%_ + (lambda (_%g5650556523%_) + (if (gx#stx-pair? _%g5650556523%_) + (let ((_%e5650856526%_ (gx#syntax-e - _%g5544955467%_))) - (let ((_%hd5545355474%_ + _%g5650556523%_))) + (let ((_%hd5650956530%_ (let () (declare (not safe)) - (##car _%e5545255470%_))) - (_%tl5545455477%_ + (##car _%e5650856526%_))) + (_%tl5651056533%_ (let () (declare (not safe)) - (##cdr _%e5545255470%_)))) + (##cdr _%e5650856526%_)))) (if (gx#stx-pair? - _%tl5545455477%_) - (let ((_%e5545555480%_ + _%tl5651056533%_) + (let ((_%e5651156536%_ (gx#syntax-e - _%tl5545455477%_))) - (let ((_%hd5545655484%_ + _%tl5651056533%_))) + (let ((_%hd5651256540%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e5545555480%_))) - (_%tl5545755487%_ - (let () (declare (not safe)) (##cdr _%e5545555480%_)))) - (if (gx#stx-null? _%tl5545755487%_) - ((lambda (_%L55490%_ _%L55492%_) - (_%loop55323%_ - _%rest55349%_ - _%type55445%_ - (cons _%L55490%_ (cons _%L55492%_ '())) + (##car _%e5651156536%_))) + (_%tl5651356543%_ + (let () (declare (not safe)) (##cdr _%e5651156536%_)))) + (if (gx#stx-null? _%tl5651356543%_) + ((lambda (_%g5650656546%_ _%g5650756548%_) + (_%loop56379%_ + _%rest56405%_ + _%type56501%_ + (cons _%g5650656546%_ (cons _%g5650756548%_ '())) (|gerbil/core/contract~Using[1]#!class-slot-checked-mutator-contract?| - _%type55445%_ - _%part55351%_) + _%type56501%_ + _%part56407%_) '#f)) - _%hd5545655484%_ - _%hd5545355474%_) - (_%g5544855463%_ _%g5544955467%_)))) + _%hd5651256540%_ + _%hd5650956530%_) + (_%g5650456519%_ _%g5650556523%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5544855463%_ - _%g5544955467%_)))) - (_%g5544855463%_ - _%g5544955467%_))))) - (_%g5544755510%_ - (list (if _%nil-check?55331%_ + (_%g5650456519%_ + _%g5650556523%_)))) + (_%g5650456519%_ + _%g5650556523%_))))) + (_%g5650356566%_ + (list (if _%nil-check?56387%_ (cons 'check-nil! - (cons _%object55329%_ '())) - _%object55329%_) + (cons _%object56385%_ '())) + _%object56385%_) (|gerbil/core/contract~Using[1]#get-slot-accessor| - _%stx55154%_ - _%type55445%_ - _%part55351%_))))) - _%$e55438%_) + _%stx56210%_ + _%type56501%_ + _%part56407%_))))) + _%$e56494%_) (gx#raise-syntax-error '#f '"unresolved dotted reference; unknown type for slot" - _%stx55154%_ - _%L55281%_ - _%part55351%_)))) + _%stx56210%_ + _%g5621756337%_ + _%part56407%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%type55328%_)) + _%type56384%_)) (gx#raise-syntax-error '#f '"illegal dotted reference; interface has no slots") (gx#raise-syntax-error '#f '"unexpected type" - _%stx55154%_ - _%type55328%_))))))) + _%stx56210%_ + _%type56384%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%parts5533255339%_) - (let ((_%hd5533655524%_ + (if (pair? _%parts5638856395%_) + (let ((_%hd5639256580%_ (let () (declare (not safe)) - (##car _%parts5533255339%_))) - (_%tl5533755527%_ + (##car _%parts5638856395%_))) + (_%tl5639356583%_ (let () (declare (not safe)) - (##cdr _%parts5533255339%_)))) - (let* ((_%part55530%_ - _%hd5533655524%_) - (_%rest55533%_ - _%tl5533755527%_)) - (_%K5533555520%_ - _%rest55533%_ - _%part55530%_))) - (_%E5533455345%_))))) - _%$e55316%_) + (##cdr _%parts5638856395%_)))) + (let* ((_%part56586%_ + _%hd5639256580%_) + (_%rest56589%_ + _%tl5639356583%_)) + (_%K5639156576%_ + _%rest56589%_ + _%part56586%_))) + (_%E5639056401%_))))) + _%$e56372%_) (let () (declare (not safe)) (|gerbil/core/more-sugar[1]#expand-set!| - _%stx55154%_))))))) - (if (pair? _%g5529555302%_) - (let ((_%hd5529955542%_ + _%stx56210%_))))))) + (if (pair? _%g5635156358%_) + (let ((_%hd5635556598%_ (let () (declare (not safe)) - (##car _%g5529555302%_))) - (_%tl5530055545%_ + (##car _%g5635156358%_))) + (_%tl5635656601%_ (let () (declare (not safe)) - (##cdr _%g5529555302%_)))) - (let* ((_%var55548%_ _%hd5529955542%_) - (_%parts55551%_ _%tl5530055545%_)) - (_%K5529855538%_ _%parts55551%_ _%var55548%_))) - (_%E5529755308%_))))) - (_%__kont8694886949%_ - (lambda (_%L55224%_ _%L55226%_) + (##cdr _%g5635156358%_)))) + (let* ((_%var56604%_ _%hd5635556598%_) + (_%parts56607%_ _%tl5635656601%_)) + (_%K5635456594%_ _%parts56607%_ _%var56604%_))) + (_%E5635356364%_))))) + (_%__kont8789587896%_ + (lambda (_%g5622756280%_ _%g5622856282%_) (let () (declare (not safe)) - (|gerbil/core/more-sugar[1]#expand-set!| _%stx55154%_))))) - (let ((_%__match8697086971%_ - (lambda (_%e5516255249%_ - _%hd5516355253%_ - _%tl5516455256%_ - _%e5516555259%_ - _%hd5516655263%_ - _%tl5516755266%_ - _%e5516855269%_ - _%hd5516955273%_ - _%tl5517055276%_) - (let ((_%L55279%_ _%hd5516955273%_) - (_%L55281%_ _%hd5516655263%_)) + (|gerbil/core/more-sugar[1]#expand-set!| _%stx56210%_))))) + (let ((_%__match8791787918%_ + (lambda (_%e5621856305%_ + _%hd5621956309%_ + _%tl5622056312%_ + _%e5622156315%_ + _%hd5622256319%_ + _%tl5622356322%_ + _%e5622456325%_ + _%hd5622556329%_ + _%tl5622656332%_) + (let ((_%g5621656335%_ _%hd5622556329%_) + (_%g5621756337%_ _%hd5622256319%_)) (if (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L55281%_) - (_%__kont8694686947%_ _%L55279%_ _%L55281%_) - (_%__kont8694886949%_ - _%hd5516955273%_ - _%hd5516655263%_)))))) - (if (gx#stx-pair? _%__stx8694386944%_) - (let ((_%e5516255249%_ (gx#syntax-e _%__stx8694386944%_))) - (let ((_%tl5516455256%_ + _%g5621756337%_) + (_%__kont8789387894%_ + _%g5621656335%_ + _%g5621756337%_) + (_%__kont8789587896%_ + _%hd5622556329%_ + _%hd5622256319%_)))))) + (if (gx#stx-pair? _%__stx8789087891%_) + (let ((_%e5621856305%_ (gx#syntax-e _%__stx8789087891%_))) + (let ((_%tl5622056312%_ (let () (declare (not safe)) - (##cdr _%e5516255249%_))) - (_%hd5516355253%_ + (##cdr _%e5621856305%_))) + (_%hd5621956309%_ (let () (declare (not safe)) - (##car _%e5516255249%_)))) - (if (gx#stx-pair? _%tl5516455256%_) - (let ((_%e5516555259%_ - (gx#syntax-e _%tl5516455256%_))) - (let ((_%tl5516755266%_ + (##car _%e5621856305%_)))) + (if (gx#stx-pair? _%tl5622056312%_) + (let ((_%e5622156315%_ + (gx#syntax-e _%tl5622056312%_))) + (let ((_%tl5622356322%_ (let () (declare (not safe)) - (##cdr _%e5516555259%_))) - (_%hd5516655263%_ + (##cdr _%e5622156315%_))) + (_%hd5622256319%_ (let () (declare (not safe)) - (##car _%e5516555259%_)))) - (if (gx#stx-pair? _%tl5516755266%_) - (let ((_%e5516855269%_ - (gx#syntax-e _%tl5516755266%_))) - (let ((_%tl5517055276%_ + (##car _%e5622156315%_)))) + (if (gx#stx-pair? _%tl5622356322%_) + (let ((_%e5622456325%_ + (gx#syntax-e _%tl5622356322%_))) + (let ((_%tl5622656332%_ (let () (declare (not safe)) - (##cdr _%e5516855269%_))) - (_%hd5516955273%_ + (##cdr _%e5622456325%_))) + (_%hd5622556329%_ (let () (declare (not safe)) - (##car _%e5516855269%_)))) - (if (gx#stx-null? _%tl5517055276%_) - (_%__match8697086971%_ - _%e5516255249%_ - _%hd5516355253%_ - _%tl5516455256%_ - _%e5516555259%_ - _%hd5516655263%_ - _%tl5516755266%_ - _%e5516855269%_ - _%hd5516955273%_ - _%tl5517055276%_) + (##car _%e5622456325%_)))) + (if (gx#stx-null? _%tl5622656332%_) + (_%__match8791787918%_ + _%e5621856305%_ + _%hd5621956309%_ + _%tl5622056312%_ + _%e5622156315%_ + _%hd5622256319%_ + _%tl5622356322%_ + _%e5622456325%_ + _%hd5622556329%_ + _%tl5622656332%_) (let () (declare (not safe)) - (_%g5515855187%_))))) + (_%g5621456243%_))))) (let () (declare (not safe)) - (_%g5515855187%_))))) - (let () (declare (not safe)) (_%g5515855187%_))))) - (let () (declare (not safe)) (_%g5515855187%_)))))))))) + (_%g5621456243%_))))) + (let () (declare (not safe)) (_%g5621456243%_))))) + (let () (declare (not safe)) (_%g5621456243%_)))))))))) diff --git a/src/bootstrap/gerbil/core/contract~7.scm b/src/bootstrap/gerbil/core/contract~7.scm index 019b0732d7..f290d2f1b3 100644 --- a/src/bootstrap/gerbil/core/contract~7.scm +++ b/src/bootstrap/gerbil/core/contract~7.scm @@ -1,38 +1,38 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core/contract~ContractRules[:0:]#maybe| - (lambda (_%$stx55559%_) - (let* ((_%g5556355577%_ - (lambda (_%g5556455573%_) + (lambda (_%$stx56615%_) + (let* ((_%g5661956633%_ + (lambda (_%g5662056629%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5556455573%_))) - (_%g5556255619%_ - (lambda (_%g5556455581%_) - (if (gx#stx-pair? _%g5556455581%_) - (let ((_%e5556655584%_ (gx#syntax-e _%g5556455581%_))) - (let ((_%hd5556755588%_ + _%g5662056629%_))) + (_%g5661856675%_ + (lambda (_%g5662056637%_) + (if (gx#stx-pair? _%g5662056637%_) + (let ((_%e5662256640%_ (gx#syntax-e _%g5662056637%_))) + (let ((_%hd5662356644%_ (let () (declare (not safe)) - (##car _%e5556655584%_))) - (_%tl5556855591%_ + (##car _%e5662256640%_))) + (_%tl5662456647%_ (let () (declare (not safe)) - (##cdr _%e5556655584%_)))) - (if (gx#stx-pair? _%tl5556855591%_) - (let ((_%e5556955594%_ - (gx#syntax-e _%tl5556855591%_))) - (let ((_%hd5557055598%_ + (##cdr _%e5662256640%_)))) + (if (gx#stx-pair? _%tl5662456647%_) + (let ((_%e5662556650%_ + (gx#syntax-e _%tl5662456647%_))) + (let ((_%hd5662656654%_ (let () (declare (not safe)) - (##car _%e5556955594%_))) - (_%tl5557155601%_ + (##car _%e5662556650%_))) + (_%tl5662756657%_ (let () (declare (not safe)) - (##cdr _%e5556955594%_)))) - (if (gx#stx-null? _%tl5557155601%_) - ((lambda (_%L55604%_) + (##cdr _%e5662556650%_)))) + (if (gx#stx-null? _%tl5662756657%_) + ((lambda (_%g5662156660%_) (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f @@ -40,60 +40,61 @@ (cons (gx#datum->syntax '#f 'not) - (cons _%L55604%_ + (cons _%g5662156660%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd5557055598%_) - (_%g5556355577%_ _%g5556455581%_)))) - (_%g5556355577%_ _%g5556455581%_)))) - (_%g5556355577%_ _%g5556455581%_))))) - (_%g5556255619%_ _%$stx55559%_)))) + _%hd5662656654%_) + (_%g5661956633%_ _%g5662056637%_)))) + (_%g5661956633%_ _%g5662056637%_)))) + (_%g5661956633%_ _%g5662056637%_))))) + (_%g5661856675%_ _%$stx56615%_)))) (define |gerbil/core/contract~ContractRules[:0:]#in-range?| - (lambda (_%$stx55623%_) - (let* ((_%g5562755645%_ - (lambda (_%g5562855641%_) + (lambda (_%$stx56679%_) + (let* ((_%g5668356701%_ + (lambda (_%g5668456697%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5562855641%_))) - (_%g5562655700%_ - (lambda (_%g5562855649%_) - (if (gx#stx-pair? _%g5562855649%_) - (let ((_%e5563155652%_ (gx#syntax-e _%g5562855649%_))) - (let ((_%hd5563255656%_ + _%g5668456697%_))) + (_%g5668256756%_ + (lambda (_%g5668456705%_) + (if (gx#stx-pair? _%g5668456705%_) + (let ((_%e5668756708%_ (gx#syntax-e _%g5668456705%_))) + (let ((_%hd5668856712%_ (let () (declare (not safe)) - (##car _%e5563155652%_))) - (_%tl5563355659%_ + (##car _%e5668756708%_))) + (_%tl5668956715%_ (let () (declare (not safe)) - (##cdr _%e5563155652%_)))) - (if (gx#stx-pair? _%tl5563355659%_) - (let ((_%e5563455662%_ - (gx#syntax-e _%tl5563355659%_))) - (let ((_%hd5563555666%_ + (##cdr _%e5668756708%_)))) + (if (gx#stx-pair? _%tl5668956715%_) + (let ((_%e5669056718%_ + (gx#syntax-e _%tl5668956715%_))) + (let ((_%hd5669156722%_ (let () (declare (not safe)) - (##car _%e5563455662%_))) - (_%tl5563655669%_ + (##car _%e5669056718%_))) + (_%tl5669256725%_ (let () (declare (not safe)) - (##cdr _%e5563455662%_)))) - (if (gx#stx-pair? _%tl5563655669%_) - (let ((_%e5563755672%_ - (gx#syntax-e _%tl5563655669%_))) - (let ((_%hd5563855676%_ + (##cdr _%e5669056718%_)))) + (if (gx#stx-pair? _%tl5669256725%_) + (let ((_%e5669356728%_ + (gx#syntax-e _%tl5669256725%_))) + (let ((_%hd5669456732%_ (let () (declare (not safe)) - (##car _%e5563755672%_))) - (_%tl5563955679%_ + (##car _%e5669356728%_))) + (_%tl5669556735%_ (let () (declare (not safe)) - (##cdr _%e5563755672%_)))) - (if (gx#stx-null? _%tl5563955679%_) - ((lambda (_%L55682%_ _%L55684%_) + (##cdr _%e5669356728%_)))) + (if (gx#stx-null? _%tl5669556735%_) + ((lambda (_%g5668556738%_ + _%g5668656740%_) (cons (gx#datum->syntax '#f 'lambda) @@ -110,72 +111,74 @@ (cons (gx#datum->syntax '#f 'o) - (cons _%L55684%_ '()))) + (cons _%g5668656740%_ + '()))) (cons (cons (gx#datum->syntax '#f 'fx<) (cons (gx#datum->syntax '#f 'o) - (cons _%L55682%_ + (cons _%g5668556738%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5563855676%_ - _%hd5563555666%_) - (_%g5562755645%_ - _%g5562855649%_)))) - (_%g5562755645%_ _%g5562855649%_)))) - (_%g5562755645%_ _%g5562855649%_)))) - (_%g5562755645%_ _%g5562855649%_))))) - (_%g5562655700%_ _%$stx55623%_)))) + _%hd5669456732%_ + _%hd5669156722%_) + (_%g5668356701%_ + _%g5668456705%_)))) + (_%g5668356701%_ _%g5668456705%_)))) + (_%g5668356701%_ _%g5668456705%_)))) + (_%g5668356701%_ _%g5668456705%_))))) + (_%g5668256756%_ _%$stx56679%_)))) (define |gerbil/core/contract~ContractRules[:0:]#in-range-inclusive?| - (lambda (_%$stx55704%_) - (let* ((_%g5570855726%_ - (lambda (_%g5570955722%_) + (lambda (_%$stx56760%_) + (let* ((_%g5676456782%_ + (lambda (_%g5676556778%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5570955722%_))) - (_%g5570755781%_ - (lambda (_%g5570955730%_) - (if (gx#stx-pair? _%g5570955730%_) - (let ((_%e5571255733%_ (gx#syntax-e _%g5570955730%_))) - (let ((_%hd5571355737%_ + _%g5676556778%_))) + (_%g5676356837%_ + (lambda (_%g5676556786%_) + (if (gx#stx-pair? _%g5676556786%_) + (let ((_%e5676856789%_ (gx#syntax-e _%g5676556786%_))) + (let ((_%hd5676956793%_ (let () (declare (not safe)) - (##car _%e5571255733%_))) - (_%tl5571455740%_ + (##car _%e5676856789%_))) + (_%tl5677056796%_ (let () (declare (not safe)) - (##cdr _%e5571255733%_)))) - (if (gx#stx-pair? _%tl5571455740%_) - (let ((_%e5571555743%_ - (gx#syntax-e _%tl5571455740%_))) - (let ((_%hd5571655747%_ + (##cdr _%e5676856789%_)))) + (if (gx#stx-pair? _%tl5677056796%_) + (let ((_%e5677156799%_ + (gx#syntax-e _%tl5677056796%_))) + (let ((_%hd5677256803%_ (let () (declare (not safe)) - (##car _%e5571555743%_))) - (_%tl5571755750%_ + (##car _%e5677156799%_))) + (_%tl5677356806%_ (let () (declare (not safe)) - (##cdr _%e5571555743%_)))) - (if (gx#stx-pair? _%tl5571755750%_) - (let ((_%e5571855753%_ - (gx#syntax-e _%tl5571755750%_))) - (let ((_%hd5571955757%_ + (##cdr _%e5677156799%_)))) + (if (gx#stx-pair? _%tl5677356806%_) + (let ((_%e5677456809%_ + (gx#syntax-e _%tl5677356806%_))) + (let ((_%hd5677556813%_ (let () (declare (not safe)) - (##car _%e5571855753%_))) - (_%tl5572055760%_ + (##car _%e5677456809%_))) + (_%tl5677656816%_ (let () (declare (not safe)) - (##cdr _%e5571855753%_)))) - (if (gx#stx-null? _%tl5572055760%_) - ((lambda (_%L55763%_ _%L55765%_) + (##cdr _%e5677456809%_)))) + (if (gx#stx-null? _%tl5677656816%_) + ((lambda (_%g5676656819%_ + _%g5676756821%_) (cons (gx#datum->syntax '#f 'lambda) @@ -189,58 +192,58 @@ (cons (gx#datum->syntax '#f 'o) '())) (cons (cons (gx#datum->syntax '#f 'fx<=) - (cons _%L55765%_ + (cons _%g5676756821%_ (cons (gx#datum->syntax '#f 'o) - (cons _%L55763%_ + (cons _%g5676656819%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5571955757%_ - _%hd5571655747%_) - (_%g5570855726%_ - _%g5570955730%_)))) - (_%g5570855726%_ _%g5570955730%_)))) - (_%g5570855726%_ _%g5570955730%_)))) - (_%g5570855726%_ _%g5570955730%_))))) - (_%g5570755781%_ _%$stx55704%_)))) + _%hd5677556813%_ + _%hd5677256803%_) + (_%g5676456782%_ + _%g5676556786%_)))) + (_%g5676456782%_ _%g5676556786%_)))) + (_%g5676456782%_ _%g5676556786%_)))) + (_%g5676456782%_ _%g5676556786%_))))) + (_%g5676356837%_ _%$stx56760%_)))) (define |gerbil/core/contract~ContractRules[:0:]#list-of?| - (lambda (_%$stx55785%_) - (let* ((_%g5578955803%_ - (lambda (_%g5579055799%_) + (lambda (_%$stx56841%_) + (let* ((_%g5684556859%_ + (lambda (_%g5684656855%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5579055799%_))) - (_%g5578855844%_ - (lambda (_%g5579055807%_) - (if (gx#stx-pair? _%g5579055807%_) - (let ((_%e5579255810%_ (gx#syntax-e _%g5579055807%_))) - (let ((_%hd5579355814%_ + _%g5684656855%_))) + (_%g5684456900%_ + (lambda (_%g5684656863%_) + (if (gx#stx-pair? _%g5684656863%_) + (let ((_%e5684856866%_ (gx#syntax-e _%g5684656863%_))) + (let ((_%hd5684956870%_ (let () (declare (not safe)) - (##car _%e5579255810%_))) - (_%tl5579455817%_ + (##car _%e5684856866%_))) + (_%tl5685056873%_ (let () (declare (not safe)) - (##cdr _%e5579255810%_)))) - (if (gx#stx-pair? _%tl5579455817%_) - (let ((_%e5579555820%_ - (gx#syntax-e _%tl5579455817%_))) - (let ((_%hd5579655824%_ + (##cdr _%e5684856866%_)))) + (if (gx#stx-pair? _%tl5685056873%_) + (let ((_%e5685156876%_ + (gx#syntax-e _%tl5685056873%_))) + (let ((_%hd5685256880%_ (let () (declare (not safe)) - (##car _%e5579555820%_))) - (_%tl5579755827%_ + (##car _%e5685156876%_))) + (_%tl5685356883%_ (let () (declare (not safe)) - (##cdr _%e5579555820%_)))) - (if (gx#stx-null? _%tl5579755827%_) - ((lambda (_%L55830%_) + (##cdr _%e5685156876%_)))) + (if (gx#stx-null? _%tl5685356883%_) + ((lambda (_%g5684756886%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f @@ -255,14 +258,107 @@ 'list?) (cons (gx#datum->syntax '#f 'o) '())) (cons (cons (gx#datum->syntax '#f 'andmap) - (cons _%L55830%_ + (cons _%g5684756886%_ (cons (gx#datum->syntax '#f 'o) '()))) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5579655824%_) - (_%g5578955803%_ _%g5579055807%_)))) - (_%g5578955803%_ _%g5579055807%_)))) - (_%g5578955803%_ _%g5579055807%_))))) - (_%g5578855844%_ _%$stx55785%_))))) + _%hd5685256880%_) + (_%g5684556859%_ _%g5684656863%_)))) + (_%g5684556859%_ _%g5684656863%_)))) + (_%g5684556859%_ _%g5684656863%_))))) + (_%g5684456900%_ _%$stx56841%_)))) + (define |gerbil/core/contract~ContractRules[:0:]#one-of| + (lambda (_%$stx56904%_) + (let* ((_%g5690856928%_ + (lambda (_%g5690956924%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g5690956924%_))) + (_%g5690756997%_ + (lambda (_%g5690956932%_) + (if (gx#stx-pair? _%g5690956932%_) + (let ((_%e5691156935%_ (gx#syntax-e _%g5690956932%_))) + (let ((_%hd5691256939%_ + (let () + (declare (not safe)) + (##car _%e5691156935%_))) + (_%tl5691356942%_ + (let () + (declare (not safe)) + (##cdr _%e5691156935%_)))) + (if (gx#stx-pair/null? _%tl5691356942%_) + (let ((_g92726_ + (gx#syntax-split-splice + _%tl5691356942%_ + '0))) + (begin + (let ((_g92727_ + (let () + (declare (not safe)) + (if (##values? _g92726_) + (##values-length _g92726_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g92727_ 2))) + (error "Context expects 2 values" + _g92727_))) + (let ((_%target5691456945%_ + (let () + (declare (not safe)) + (##values-ref _g92726_ 0))) + (_%tl5691656948%_ + (let () + (declare (not safe)) + (##values-ref _g92726_ 1)))) + (if (gx#stx-null? _%tl5691656948%_) + (letrec ((_%loop5691756951%_ + (lambda (_%hd5691556955%_ + _%val5692156958%_) + (if (gx#stx-pair? + _%hd5691556955%_) + (let ((_%e5691856960%_ + (gx#syntax-e + _%hd5691556955%_))) + (let ((_%lp-hd5691956964%_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##car _%e5691856960%_))) + (_%lp-tl5692056967%_ + (let () (declare (not safe)) (##cdr _%e5691856960%_)))) + (_%loop5691756951%_ + _%lp-tl5692056967%_ + (cons _%lp-hd5691956964%_ _%val5692156958%_)))) + (let ((_%val5692256970%_ (reverse _%val5692156958%_))) + ((lambda (_%g5691056973%_) + (cons (gx#datum->syntax '#f 'lambda) + (cons (cons (gx#datum->syntax '#f 'o) '()) + (cons (cons (gx#datum->syntax '#f 'or) + (foldr (lambda (_%g5698856991%_ + _%g5698956994%_) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'eq?) + (cons (gx#datum->syntax '#f 'o) + (cons (cons (gx#datum->syntax '#f 'quasiquote) + (cons _%g5698856991%_ '())) + '()))) + _%g5698956994%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '() + _%g5691056973%_)) + '())))) + _%val5692256970%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop5691756951%_ + _%target5691456945%_ + '())) + (_%g5690856928%_ _%g5690956932%_))))) + (_%g5690856928%_ _%g5690956932%_)))) + (_%g5690856928%_ _%g5690956932%_))))) + (_%g5690756997%_ _%$stx56904%_))))) diff --git a/src/bootstrap/gerbil/core/contract~8.scm b/src/bootstrap/gerbil/core/contract~8.scm index 2d3d0964da..308db9364c 100644 --- a/src/bootstrap/gerbil/core/contract~8.scm +++ b/src/bootstrap/gerbil/core/contract~8.scm @@ -1,3635 +1,3709 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~Interface[1]#_g91866_| + (define |gerbil/core/contract~Interface[1]#_g92729_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91868_| + (define |gerbil/core/contract~Interface[1]#_g92731_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91869_| + (define |gerbil/core/contract~Interface[1]#_g92732_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91870_| + (define |gerbil/core/contract~Interface[1]#_g92733_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91871_| + (define |gerbil/core/contract~Interface[1]#_g92734_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91872_| + (define |gerbil/core/contract~Interface[1]#_g92735_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91874_| + (define |gerbil/core/contract~Interface[1]#_g92737_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91876_| + (define |gerbil/core/contract~Interface[1]#_g92739_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91877_| + (define |gerbil/core/contract~Interface[1]#_g92740_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91878_| + (define |gerbil/core/contract~Interface[1]#_g92741_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91879_| + (define |gerbil/core/contract~Interface[1]#_g92742_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91880_| + (define |gerbil/core/contract~Interface[1]#_g92743_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91881_| + (define |gerbil/core/contract~Interface[1]#_g92744_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91882_| + (define |gerbil/core/contract~Interface[1]#_g92745_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91888_| + (define |gerbil/core/contract~Interface[1]#_g92751_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91889_| + (define |gerbil/core/contract~Interface[1]#_g92752_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91890_| + (define |gerbil/core/contract~Interface[1]#_g92753_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91891_| + (define |gerbil/core/contract~Interface[1]#_g92754_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91892_| + (define |gerbil/core/contract~Interface[1]#_g92755_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91893_| + (define |gerbil/core/contract~Interface[1]#_g92756_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91894_| + (define |gerbil/core/contract~Interface[1]#_g92757_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91895_| + (define |gerbil/core/contract~Interface[1]#_g92758_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91896_| + (define |gerbil/core/contract~Interface[1]#_g92759_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91897_| + (define |gerbil/core/contract~Interface[1]#_g92760_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91898_| + (define |gerbil/core/contract~Interface[1]#_g92761_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91899_| + (define |gerbil/core/contract~Interface[1]#_g92762_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91900_| + (define |gerbil/core/contract~Interface[1]#_g92763_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91901_| + (define |gerbil/core/contract~Interface[1]#_g92764_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91902_| + (define |gerbil/core/contract~Interface[1]#_g92765_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91903_| + (define |gerbil/core/contract~Interface[1]#_g92766_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91904_| + (define |gerbil/core/contract~Interface[1]#_g92767_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91905_| + (define |gerbil/core/contract~Interface[1]#_g92768_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91907_| + (define |gerbil/core/contract~Interface[1]#_g92770_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g91915_| + (define |gerbil/core/contract~Interface[1]#_g92778_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) (begin (define |gerbil/core/contract~Interface[1]#check-signature!__%| - (lambda (_%@@keywords63638%_ - _%optionals-allowed?6363463640%_ - _%keywords-allowed?6363563642%_ - _%stx63644%_ - _%args63645%_ - _%return63646%_) - (let* ((_%optionals-allowed?63648%_ - (if (eq? _%optionals-allowed?6363463640%_ absent-value) + (lambda (_%@@keywords64790%_ + _%optionals-allowed?6478664792%_ + _%keywords-allowed?6478764793%_ + _%stx64794%_ + _%args64795%_ + _%return64796%_) + (let* ((_%optionals-allowed?64798%_ + (if (eq? _%optionals-allowed?6478664792%_ absent-value) '#t - _%optionals-allowed?6363463640%_)) - (_%keywords-allowed?63651%_ - (if (eq? _%keywords-allowed?6363563642%_ absent-value) + _%optionals-allowed?6478664792%_)) + (_%keywords-allowed?64801%_ + (if (eq? _%keywords-allowed?6478764793%_ absent-value) '#t - _%keywords-allowed?6363563642%_))) - (if (gx#stx-e _%return63646%_) + _%keywords-allowed?6478764793%_))) + (if (gx#stx-e _%return64796%_) (|gerbil/core/contract~Interface[1]#check-valid-type!| - _%stx63644%_ - _%return63646%_) + _%stx64794%_ + _%return64796%_) '#!void) (|gerbil/core/contract~Interface[1]#check-signature-spec!__%| '#f - _%optionals-allowed?63648%_ - _%keywords-allowed?63651%_ - _%stx63644%_ - _%args63645%_)))) + _%optionals-allowed?64798%_ + _%keywords-allowed?64801%_ + _%stx64794%_ + _%args64795%_)))) (define |gerbil/core/contract~Interface[1]#check-signature!__@| - (lambda (_%@@keywords63658%_ . _%args63660%_) + (lambda (_%@@keywords64808%_ . _%args64810%_) (apply |gerbil/core/contract~Interface[1]#check-signature!__%| - _%@@keywords63658%_ + _%@@keywords64808%_ (symbolic-table-ref - _%@@keywords63658%_ + _%@@keywords64808%_ 'optionals: absent-value) - (symbolic-table-ref _%@@keywords63658%_ 'keywords: absent-value) - _%args63660%_))) + (symbolic-table-ref _%@@keywords64808%_ 'keywords: absent-value) + _%args64810%_))) (define |gerbil/core/contract~Interface[1]#check-signature!| - (lambda _%args6363663667%_ + (lambda _%args6478864817%_ (apply keyword-dispatch '#(optionals: keywords:) |gerbil/core/contract~Interface[1]#check-signature!__@| - _%args6363663667%_))) + _%args6478864817%_))) (define |gerbil/core/contract~Interface[1]#check-valid-type!| - (lambda (_%stx63610%_ _%id63612%_) - (let* ((_%info63614%_ (gx#syntax-local-value _%id63612%_ false)) - (_%$e63625%_ - (let ((_%$e63617%_ + (lambda (_%stx64762%_ _%id64764%_) + (let* ((_%info64766%_ (gx#syntax-local-value _%id64764%_ false)) + (_%$e64777%_ + (let ((_%$e64769%_ (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%info63614%_)))) - (if _%$e63617%_ - _%$e63617%_ - (let ((_%$e63621%_ + _%info64766%_)))) + (if _%$e64769%_ + _%$e64769%_ + (let ((_%$e64773%_ (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%info63614%_)))) - (if _%$e63621%_ - _%$e63621%_ + _%info64766%_)))) + (if _%$e64773%_ + _%$e64773%_ (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%info63614%_)))))))) - (if _%$e63625%_ - _%$e63625%_ - (if (not _%info63614%_) + _%info64766%_)))))))) + (if _%$e64777%_ + _%$e64777%_ + (if (not _%info64766%_) (gx#raise-syntax-error '#f '"invalid signature; unknown type" - _%stx63610%_ - _%id63612%_) + _%stx64762%_ + _%id64764%_) (gx#raise-syntax-error '#f '"invalid signature; not a a class type or interface" - _%stx63610%_ - _%id63612%_ - _%info63614%_)))))) + _%stx64762%_ + _%id64764%_ + _%info64766%_)))))) (define |gerbil/core/contract~Interface[1]#check-signature-spec!__%| - (lambda (_%@@keywords62845%_ - _%optionals-allowed?6284162847%_ - _%keywords-allowed?6284262849%_ - _%stx62851%_ - _%signature62852%_) - (let* ((_%optionals-allowed?62854%_ - (if (eq? _%optionals-allowed?6284162847%_ absent-value) + (lambda (_%@@keywords63999%_ + _%optionals-allowed?6399564001%_ + _%keywords-allowed?6399664002%_ + _%stx64003%_ + _%signature64004%_) + (let* ((_%optionals-allowed?64006%_ + (if (eq? _%optionals-allowed?6399564001%_ absent-value) '#t - _%optionals-allowed?6284162847%_)) - (_%keywords-allowed?62857%_ - (if (eq? _%keywords-allowed?6284262849%_ absent-value) + _%optionals-allowed?6399564001%_)) + (_%keywords-allowed?64009%_ + (if (eq? _%keywords-allowed?6399664002%_ absent-value) '#t - _%keywords-allowed?6284262849%_))) - (let _%lp62860%_ ((_%rest62863%_ _%signature62852%_) - (_%have-optional?62865%_ '#f) - (_%ids62866%_ '()) - (_%kws62867%_ '())) - (let* ((_%__stx8706987070%_ _%rest62863%_) - (_%g6287762947%_ + _%keywords-allowed?6399664002%_))) + (let _%lp64012%_ ((_%rest64015%_ _%signature64004%_) + (_%have-optional?64017%_ '#f) + (_%ids64018%_ '()) + (_%kws64019%_ '())) + (let* ((_%__stx8801688017%_ _%rest64015%_) + (_%g6402964099%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8706987070%_)))) - (let ((_%__kont8707287073%_ - (lambda (_%L63563%_ _%L63565%_) - (if _%have-optional?62865%_ + _%__stx8801688017%_)))) + (let ((_%__kont8801988020%_ + (lambda (_%g6403164715%_ _%g6403264717%_) + (if _%have-optional?64017%_ (gx#raise-syntax-error '#f '"invalid signature; required argument after optionals" - _%stx62851%_ - _%signature62852%_ - _%L63565%_) - (if (null? _%kws62867%_) - (if (find (lambda (_%g6357963581%_) + _%stx64003%_ + _%signature64004%_ + _%g6403264717%_) + (if (null? _%kws64019%_) + (if (find (lambda (_%g6473164733%_) (gx#bound-identifier=? - _%g6357963581%_ - _%L63565%_)) - _%ids62866%_) + _%g6473164733%_ + _%g6403264717%_)) + _%ids64018%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx62851%_ - _%signature62852%_ - _%L63565%_) - (_%lp62860%_ - _%L63563%_ - _%have-optional?62865%_ - (cons _%L63565%_ _%ids62866%_) - _%kws62867%_)) + _%stx64003%_ + _%signature64004%_ + _%g6403264717%_) + (_%lp64012%_ + _%g6403164715%_ + _%have-optional?64017%_ + (cons _%g6403264717%_ _%ids64018%_) + _%kws64019%_)) (gx#raise-syntax-error '#f '"invalid signature; positional arguments must precede keyword arguments"))))) - (_%__kont8707487075%_ - (lambda (_%L63516%_ _%L63518%_) - (if (not _%optionals-allowed?62854%_) + (_%__kont8802188022%_ + (lambda (_%g6403664668%_ _%g6403764670%_) + (if (not _%optionals-allowed?64006%_) (gx#raise-syntax-error '#f '"invalid signature; optionals not allowed" - _%stx62851%_ - _%signature62852%_) - (if (null? _%kws62867%_) - (if (find (lambda (_%g6353663538%_) + _%stx64003%_ + _%signature64004%_) + (if (null? _%kws64019%_) + (if (find (lambda (_%g6468864690%_) (gx#bound-identifier=? - _%g6353663538%_ - _%L63518%_)) - _%ids62866%_) + _%g6468864690%_ + _%g6403764670%_)) + _%ids64018%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx62851%_ - _%signature62852%_ - _%L63518%_) - (_%lp62860%_ - _%L63516%_ + _%stx64003%_ + _%signature64004%_ + _%g6403764670%_) + (_%lp64012%_ + _%g6403664668%_ '#t - (cons _%L63518%_ _%ids62866%_) - _%kws62867%_)) + (cons _%g6403764670%_ _%ids64018%_) + _%kws64019%_)) (gx#raise-syntax-error '#f '"invalid signature; positional arguments must precede keyword arguments"))))) - (_%__kont8707687077%_ - (lambda (_%L63228%_ _%L63230%_ _%L63231%_) - (if (not _%optionals-allowed?62854%_) - (let* ((_%__stx8699386994%_ _%L63230%_) - (_%g6324863269%_ + (_%__kont8802388024%_ + (lambda (_%g6404764380%_ _%g6404864382%_ _%g6404964383%_) + (if (not _%optionals-allowed?64006%_) + (let* ((_%__stx8794087941%_ _%g6404864382%_) + (_%g6440064421%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8699386994%_)))) - (let ((_%__kont8699686997%_ - (lambda (_%L63333%_) + _%__stx8794087941%_)))) + (let ((_%__kont8794387944%_ + (lambda (_%g6440264485%_) (gx#raise-syntax-error '#f '"invalid signature; optionals not allowed" - _%stx62851%_ - _%signature62852%_))) - (_%__kont8700087001%_ (lambda () (void)))) - (let ((_%__match8702887029%_ - (lambda (_%__splice8699886999%_ - _%target6325163287%_ - _%tl6325363290%_ - _%e6325863293%_ - _%hd6325963297%_ - _%tl6326063300%_ - _%e6326163303%_ - _%hd6326263307%_ - _%tl6326363310%_) - (letrec ((_%loop6325463313%_ - (lambda (_%hd6325263317%_) + _%stx64003%_ + _%signature64004%_))) + (_%__kont8794787948%_ (lambda () (void)))) + (let ((_%__match8797587976%_ + (lambda (_%__splice8794587946%_ + _%target6440364439%_ + _%tl6440564442%_ + _%e6441064445%_ + _%hd6441164449%_ + _%tl6441264452%_ + _%e6441364455%_ + _%hd6441464459%_ + _%tl6441564462%_) + (letrec ((_%loop6440664465%_ + (lambda (_%hd6440464469%_) (if (gx#stx-pair? - _%hd6325263317%_) - (let ((_%e6325563321%_ + _%hd6440464469%_) + (let ((_%e6440764473%_ (gx#syntax-e - _%hd6325263317%_))) - (let ((_%lp-tl6325763328%_ + _%hd6440464469%_))) + (let ((_%lp-tl6440964480%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e6325563321%_))) - (_%lp-hd6325663325%_ + (let () (declare (not safe)) (##cdr _%e6440764473%_))) + (_%lp-hd6440864477%_ (let () (declare (not safe)) - (##car _%e6325563321%_)))) - (_%loop6325463313%_ _%lp-tl6325763328%_))) - (_%__kont8699686997%_ _%hd6326263307%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6325463313%_ - _%target6325163287%_))))) - (if (gx#stx-pair/null? _%__stx8699386994%_) - (if (let ((__tmp91865 + (##car _%e6440764473%_)))) + (_%loop6440664465%_ _%lp-tl6440964480%_))) + (_%__kont8794387944%_ _%hd6441464459%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6440664465%_ + _%target6440364439%_))))) + (if (gx#stx-pair/null? _%__stx8794087941%_) + (if (let ((__tmp92728 (gx#stx-length - _%__stx8699386994%_))) + _%__stx8794087941%_))) (declare (not safe)) - (##fx>= __tmp91865 '2)) - (let ((_%__splice8699886999%_ + (##fx>= __tmp92728 '2)) + (let ((_%__splice8794587946%_ (gx#syntax-split-splice->vector - _%__stx8699386994%_ + _%__stx8794087941%_ '2))) - (let ((_%tl6325363290%_ + (let ((_%tl6440564442%_ (let () (declare (not safe)) (##vector-ref - _%__splice8699886999%_ + _%__splice8794587946%_ '1))) - (_%target6325163287%_ + (_%target6440364439%_ (let () (declare (not safe)) (##vector-ref - _%__splice8699886999%_ + _%__splice8794587946%_ '0)))) (if (gx#stx-pair? - _%tl6325363290%_) - (let ((_%e6325863293%_ + _%tl6440564442%_) + (let ((_%e6441064445%_ (gx#syntax-e - _%tl6325363290%_))) - (let ((_%tl6326063300%_ + _%tl6440564442%_))) + (let ((_%tl6441264452%_ (let () (declare (not safe)) - (##cdr _%e6325863293%_))) - (_%hd6325963297%_ + (##cdr _%e6441064445%_))) + (_%hd6441164449%_ (let () (declare (not safe)) - (##car _%e6325863293%_)))) + (##car _%e6441064445%_)))) (if (gx#identifier? - _%hd6325963297%_) + _%hd6441164449%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91866_| - _%hd6325963297%_) + |gerbil/core/contract~Interface[1]#_g92729_| + _%hd6441164449%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl6326063300%_) - (let ((_%e6326163303%_ - (gx#syntax-e _%tl6326063300%_))) - (let ((_%tl6326363310%_ + _%tl6441264452%_) + (let ((_%e6441364455%_ + (gx#syntax-e _%tl6441264452%_))) + (let ((_%tl6441564462%_ (let () (declare (not safe)) - (##cdr _%e6326163303%_))) - (_%hd6326263307%_ + (##cdr _%e6441364455%_))) + (_%hd6441464459%_ (let () (declare (not safe)) - (##car _%e6326163303%_)))) - (if (gx#stx-null? _%tl6326363310%_) - (_%__match8702887029%_ - _%__splice8699886999%_ - _%target6325163287%_ - _%tl6325363290%_ - _%e6325863293%_ - _%hd6325963297%_ - _%tl6326063300%_ - _%e6326163303%_ - _%hd6326263307%_ - _%tl6326363310%_) - (_%__kont8700087001%_)))) - (_%__kont8700087001%_)) - (_%__kont8700087001%_)) - (_%__kont8700087001%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8700087001%_)))) - (_%__kont8700087001%_)) - (_%__kont8700087001%_))))) - (if (null? _%kws62867%_) - (if _%have-optional?62865%_ - (let* ((_%__stx8703187032%_ _%L63230%_) - (_%g6336263383%_ + (##car _%e6441364455%_)))) + (if (gx#stx-null? _%tl6441564462%_) + (_%__match8797587976%_ + _%__splice8794587946%_ + _%target6440364439%_ + _%tl6440564442%_ + _%e6441064445%_ + _%hd6441164449%_ + _%tl6441264452%_ + _%e6441364455%_ + _%hd6441464459%_ + _%tl6441564462%_) + (_%__kont8794787948%_)))) + (_%__kont8794787948%_)) + (_%__kont8794787948%_)) + (_%__kont8794787948%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8794787948%_)))) + (_%__kont8794787948%_)) + (_%__kont8794787948%_))))) + (if (null? _%kws64019%_) + (if _%have-optional?64017%_ + (let* ((_%__stx8797887979%_ _%g6404864382%_) + (_%g6451464535%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8703187032%_)))) - (let ((_%__kont8703487035%_ - (lambda (_%L63447%_) + _%__stx8797887979%_)))) + (let ((_%__kont8798187982%_ + (lambda (_%g6451664599%_) (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| - _%stx62851%_ - _%L63230%_) - (_%lp62860%_ - _%L63228%_ + _%stx64003%_ + _%g6404864382%_) + (_%lp64012%_ + _%g6404764380%_ '#t - (cons _%L63231%_ _%ids62866%_) - _%kws62867%_))) - (_%__kont8703887039%_ + (cons _%g6404964383%_ + _%ids64018%_) + _%kws64019%_))) + (_%__kont8798587986%_ (lambda () (gx#raise-syntax-error '#f '"invalid signature; expected optional argument" - _%stx62851%_ - _%signature62852%_ - _%L63230%_)))) - (let ((_%__match8706687067%_ - (lambda (_%__splice8703687037%_ - _%target6336563401%_ - _%tl6336763404%_ - _%e6337263407%_ - _%hd6337363411%_ - _%tl6337463414%_ - _%e6337563417%_ - _%hd6337663421%_ - _%tl6337763424%_) - (letrec ((_%loop6336863427%_ - (lambda (_%hd6336663431%_) + _%stx64003%_ + _%signature64004%_ + _%g6404864382%_)))) + (let ((_%__match8801388014%_ + (lambda (_%__splice8798387984%_ + _%target6451764553%_ + _%tl6451964556%_ + _%e6452464559%_ + _%hd6452564563%_ + _%tl6452664566%_ + _%e6452764569%_ + _%hd6452864573%_ + _%tl6452964576%_) + (letrec ((_%loop6452064579%_ + (lambda (_%hd6451864583%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd6336663431%_) - (let ((_%e6336963435%_ (gx#syntax-e _%hd6336663431%_))) - (let ((_%lp-tl6337163442%_ + _%hd6451864583%_) + (let ((_%e6452164587%_ (gx#syntax-e _%hd6451864583%_))) + (let ((_%lp-tl6452364594%_ (let () (declare (not safe)) - (##cdr _%e6336963435%_))) - (_%lp-hd6337063439%_ + (##cdr _%e6452164587%_))) + (_%lp-hd6452264591%_ (let () (declare (not safe)) - (##car _%e6336963435%_)))) - (_%loop6336863427%_ _%lp-tl6337163442%_))) - (_%__kont8703487035%_ _%hd6337663421%_))))) + (##car _%e6452164587%_)))) + (_%loop6452064579%_ _%lp-tl6452364594%_))) + (_%__kont8798187982%_ _%hd6452864573%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6336863427%_ - _%target6336563401%_))))) + (_%loop6452064579%_ + _%target6451764553%_))))) (if (gx#stx-pair/null? - _%__stx8703187032%_) - (if (let ((__tmp91867 + _%__stx8797887979%_) + (if (let ((__tmp92730 (gx#stx-length - _%__stx8703187032%_))) + _%__stx8797887979%_))) (declare (not safe)) - (##fx>= __tmp91867 '2)) - (let ((_%__splice8703687037%_ + (##fx>= __tmp92730 '2)) + (let ((_%__splice8798387984%_ (gx#syntax-split-splice->vector - _%__stx8703187032%_ + _%__stx8797887979%_ '2))) - (let ((_%tl6336763404%_ + (let ((_%tl6451964556%_ (let () (declare (not safe)) (##vector-ref - _%__splice8703687037%_ + _%__splice8798387984%_ '1))) - (_%target6336563401%_ + (_%target6451764553%_ (let () (declare (not safe)) (##vector-ref - _%__splice8703687037%_ + _%__splice8798387984%_ '0)))) (if (gx#stx-pair? - _%tl6336763404%_) - (let ((_%e6337263407%_ + _%tl6451964556%_) + (let ((_%e6452464559%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl6336763404%_))) - (let ((_%tl6337463414%_ + _%tl6451964556%_))) + (let ((_%tl6452664566%_ (let () (declare (not safe)) - (##cdr _%e6337263407%_))) - (_%hd6337363411%_ + (##cdr _%e6452464559%_))) + (_%hd6452564563%_ (let () (declare (not safe)) - (##car _%e6337263407%_)))) - (if (gx#identifier? _%hd6337363411%_) + (##car _%e6452464559%_)))) + (if (gx#identifier? _%hd6452564563%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91868_| - _%hd6337363411%_) - (if (gx#stx-pair? _%tl6337463414%_) - (let ((_%e6337563417%_ - (gx#syntax-e _%tl6337463414%_))) - (let ((_%tl6337763424%_ + |gerbil/core/contract~Interface[1]#_g92731_| + _%hd6452564563%_) + (if (gx#stx-pair? _%tl6452664566%_) + (let ((_%e6452764569%_ + (gx#syntax-e _%tl6452664566%_))) + (let ((_%tl6452964576%_ (let () (declare (not safe)) - (##cdr _%e6337563417%_))) - (_%hd6337663421%_ + (##cdr _%e6452764569%_))) + (_%hd6452864573%_ (let () (declare (not safe)) - (##car _%e6337563417%_)))) - (if (gx#stx-null? _%tl6337763424%_) - (_%__match8706687067%_ - _%__splice8703687037%_ - _%target6336563401%_ - _%tl6336763404%_ - _%e6337263407%_ - _%hd6337363411%_ - _%tl6337463414%_ - _%e6337563417%_ - _%hd6337663421%_ - _%tl6337763424%_) - (_%__kont8703887039%_)))) - (_%__kont8703887039%_)) - (_%__kont8703887039%_)) - (_%__kont8703887039%_)))) - (_%__kont8703887039%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8703887039%_)) - (_%__kont8703887039%_))))) - (if (find (lambda (_%g6346963471%_) + (##car _%e6452764569%_)))) + (if (gx#stx-null? _%tl6452964576%_) + (_%__match8801388014%_ + _%__splice8798387984%_ + _%target6451764553%_ + _%tl6451964556%_ + _%e6452464559%_ + _%hd6452564563%_ + _%tl6452664566%_ + _%e6452764569%_ + _%hd6452864573%_ + _%tl6452964576%_) + (_%__kont8798587986%_)))) + (_%__kont8798587986%_)) + (_%__kont8798587986%_)) + (_%__kont8798587986%_)))) + (_%__kont8798587986%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8798587986%_)) + (_%__kont8798587986%_))))) + (if (find (lambda (_%g6462164623%_) (gx#bound-identifier=? - _%g6346963471%_ - _%L63231%_)) - _%ids62866%_) + _%g6462164623%_ + _%g6404964383%_)) + _%ids64018%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx62851%_ - _%signature62852%_ - _%L63231%_) + _%stx64003%_ + _%signature64004%_ + _%g6404964383%_) (let () (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| - _%stx62851%_ - _%L63230%_) - (_%lp62860%_ - _%L63228%_ - _%have-optional?62865%_ - (cons _%L63231%_ _%ids62866%_) - _%kws62867%_)))) + _%stx64003%_ + _%g6404864382%_) + (_%lp64012%_ + _%g6404764380%_ + _%have-optional?64017%_ + (cons _%g6404964383%_ _%ids64018%_) + _%kws64019%_)))) (gx#raise-syntax-error '#f '"invalid signature; positional arguments must precede keyword arguments"))))) - (_%__kont8707887079%_ - (lambda (_%L63171%_ _%L63173%_ _%L63174%_) - (if (not _%keywords-allowed?62857%_) + (_%__kont8802588026%_ + (lambda (_%g6405664323%_ _%g6405764325%_ _%g6405864326%_) + (if (not _%keywords-allowed?64009%_) (gx#raise-syntax-error '#f '"invalid signature; keywords not allowed" - _%stx62851%_ - _%signature62852%_) - (if (find (lambda (_%g6318963191%_) + _%stx64003%_ + _%signature64004%_) + (if (find (lambda (_%g6434164343%_) (gx#bound-identifier=? - _%g6318963191%_ - _%L63173%_)) - _%ids62866%_) + _%g6434164343%_ + _%g6405764325%_)) + _%ids64018%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx62851%_ - _%signature62852%_ - _%L63173%_) - (if (memq (gx#stx-e _%L63174%_) _%kws62867%_) + _%stx64003%_ + _%signature64004%_ + _%g6405764325%_) + (if (memq (gx#stx-e _%g6405864326%_) + _%kws64019%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate keyword" - _%stx62851%_ - _%signature62852%_ - _%L63174%_) - (_%lp62860%_ - _%L63171%_ - _%have-optional?62865%_ - (cons _%L63173%_ _%ids62866%_) - (cons (gx#stx-e _%L63174%_) - _%kws62867%_))))))) - (_%__kont8708087081%_ - (lambda (_%L63110%_ _%L63112%_ _%L63113%_) - (if (not _%keywords-allowed?62857%_) + _%stx64003%_ + _%signature64004%_ + _%g6405864326%_) + (_%lp64012%_ + _%g6405664323%_ + _%have-optional?64017%_ + (cons _%g6405764325%_ _%ids64018%_) + (cons (gx#stx-e _%g6405864326%_) + _%kws64019%_))))))) + (_%__kont8802788028%_ + (lambda (_%g6406564262%_ _%g6406664264%_ _%g6406764265%_) + (if (not _%keywords-allowed?64009%_) (gx#raise-syntax-error '#f '"invalid signature; keywords not allowed" - _%stx62851%_ - _%signature62852%_) - (if (find (lambda (_%g6313263134%_) + _%stx64003%_ + _%signature64004%_) + (if (find (lambda (_%g6428464286%_) (gx#bound-identifier=? - _%g6313263134%_ - _%L63112%_)) - _%ids62866%_) + _%g6428464286%_ + _%g6406664264%_)) + _%ids64018%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx62851%_ - _%signature62852%_ - _%L63112%_) - (if (memq (gx#stx-e _%L63113%_) _%kws62867%_) + _%stx64003%_ + _%signature64004%_ + _%g6406664264%_) + (if (memq (gx#stx-e _%g6406764265%_) + _%kws64019%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate keyword" - _%stx62851%_ - _%signature62852%_ - _%L63113%_) - (_%lp62860%_ - _%L63110%_ - _%have-optional?62865%_ - (cons _%L63112%_ _%ids62866%_) - (cons (gx#stx-e _%L63113%_) - _%kws62867%_))))))) - (_%__kont8708287083%_ - (lambda (_%L63029%_ _%L63031%_ _%L63032%_ _%L63033%_) - (if (not _%keywords-allowed?62857%_) + _%stx64003%_ + _%signature64004%_ + _%g6406764265%_) + (_%lp64012%_ + _%g6406564262%_ + _%have-optional?64017%_ + (cons _%g6406664264%_ _%ids64018%_) + (cons (gx#stx-e _%g6406764265%_) + _%kws64019%_))))))) + (_%__kont8802988030%_ + (lambda (_%g6408064181%_ + _%g6408164183%_ + _%g6408264184%_ + _%g6408364185%_) + (if (not _%keywords-allowed?64009%_) (gx#raise-syntax-error '#f '"invalid signature; keywords not allowed" - _%stx62851%_ - _%signature62852%_) - (if (find (lambda (_%g6305163053%_) + _%stx64003%_ + _%signature64004%_) + (if (find (lambda (_%g6420364205%_) (gx#bound-identifier=? - _%g6305163053%_ - _%L63032%_)) - _%ids62866%_) + _%g6420364205%_ + _%g6408264184%_)) + _%ids64018%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx62851%_ - _%signature62852%_ - _%L63032%_) - (if (memq (gx#stx-e _%L63033%_) _%kws62867%_) + _%stx64003%_ + _%signature64004%_ + _%g6408264184%_) + (if (memq (gx#stx-e _%g6408364185%_) + _%kws64019%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate keyword" - _%stx62851%_ - _%signature62852%_ - _%L63033%_) + _%stx64003%_ + _%signature64004%_ + _%g6408364185%_) (let () (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| - _%stx62851%_ - _%L63031%_) - (_%lp62860%_ - _%L63029%_ - _%have-optional?62865%_ - (cons _%L63032%_ _%ids62866%_) - (cons (gx#stx-e _%L63033%_) - _%kws62867%_)))))))) - (_%__kont8708487085%_ (lambda (_%L62976%_) '#t)) - (_%__kont8708687087%_ (lambda () '#t)) - (_%__kont8708887089%_ + _%stx64003%_ + _%g6408164183%_) + (_%lp64012%_ + _%g6408064181%_ + _%have-optional?64017%_ + (cons _%g6408264184%_ _%ids64018%_) + (cons (gx#stx-e _%g6408364185%_) + _%kws64019%_)))))))) + (_%__kont8803188032%_ (lambda (_%g6409364128%_) '#t)) + (_%__kont8803388034%_ (lambda () '#t)) + (_%__kont8803588036%_ (lambda () (gx#raise-syntax-error '#f '"invalid signature" - _%stx62851%_ - _%signature62852%_ - _%rest62863%_)))) - (let* ((_%g6287562969%_ + _%stx64003%_ + _%signature64004%_ + _%rest64015%_)))) + (let* ((_%g6402764121%_ (lambda () - (if (gx#stx-null? _%__stx8706987070%_) - (_%__kont8708687087%_) - (_%__kont8708887089%_)))) - (_%g6287462992%_ + (if (gx#stx-null? _%__stx8801688017%_) + (_%__kont8803388034%_) + (_%__kont8803588036%_)))) + (_%g6402664144%_ (lambda () - (let ((_%L62976%_ _%__stx8706987070%_)) - (if (gx#identifier? _%L62976%_) - (_%__kont8708487085%_ _%L62976%_) + (let ((_%g6409364128%_ _%__stx8801688017%_)) + (if (gx#identifier? _%g6409364128%_) + (_%__kont8803188032%_ _%g6409364128%_) (let () (declare (not safe)) - (_%g6287562969%_)))))) - (_%__match8718487185%_ - (lambda (_%e6293262999%_ - _%hd6293363003%_ - _%tl6293463006%_ - _%e6293563009%_ - _%hd6293663013%_ - _%tl6293763016%_ - _%e6293863019%_ - _%hd6293963023%_ - _%tl6294063026%_) - (let ((_%L63029%_ _%tl6293763016%_) - (_%L63031%_ _%tl6294063026%_) - (_%L63032%_ _%hd6293963023%_) - (_%L63033%_ _%hd6293363003%_)) - (if (and (gx#stx-keyword? _%L63033%_) - (gx#identifier? _%L63032%_) + (_%g6402764121%_)))))) + (_%__match8813188132%_ + (lambda (_%e6408464151%_ + _%hd6408564155%_ + _%tl6408664158%_ + _%e6408764161%_ + _%hd6408864165%_ + _%tl6408964168%_ + _%e6409064171%_ + _%hd6409164175%_ + _%tl6409264178%_) + (let ((_%g6408064181%_ _%tl6408964168%_) + (_%g6408164183%_ _%tl6409264178%_) + (_%g6408264184%_ _%hd6409164175%_) + (_%g6408364185%_ _%hd6408564155%_)) + (if (and (gx#stx-keyword? _%g6408364185%_) + (gx#identifier? _%g6408264184%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L63031%_)) - (_%__kont8708287083%_ - _%L63029%_ - _%L63031%_ - _%L63032%_ - _%L63033%_) + _%g6408164183%_)) + (_%__kont8802988030%_ + _%g6408064181%_ + _%g6408164183%_ + _%g6408264184%_ + _%g6408364185%_) (let () (declare (not safe)) - (_%g6287462992%_)))))) - (_%__match8716687167%_ - (lambda (_%e6291663070%_ - _%hd6291763074%_ - _%tl6291863077%_ - _%e6291963080%_ - _%hd6292063084%_ - _%tl6292163087%_ - _%e6292263090%_ - _%hd6292363094%_ - _%tl6292463097%_ - _%e6292563100%_ - _%hd6292663104%_ - _%tl6292763107%_) - (let ((_%L63110%_ _%tl6292163087%_) - (_%L63112%_ _%hd6292363094%_) - (_%L63113%_ _%hd6291763074%_)) - (if (and (gx#stx-keyword? _%L63113%_) - (gx#identifier? _%L63112%_)) - (_%__kont8708087081%_ - _%L63110%_ - _%L63112%_ - _%L63113%_) - (_%__match8718487185%_ - _%e6291663070%_ - _%hd6291763074%_ - _%tl6291863077%_ - _%e6291963080%_ - _%hd6292063084%_ - _%tl6292163087%_ - _%e6292263090%_ - _%hd6292363094%_ - _%tl6292463097%_))))) - (_%__match8714087141%_ - (lambda (_%e6290763151%_ - _%hd6290863155%_ - _%tl6290963158%_ - _%e6291063161%_ - _%hd6291163165%_ - _%tl6291263168%_) - (let ((_%L63171%_ _%tl6291263168%_) - (_%L63173%_ _%hd6291163165%_) - (_%L63174%_ _%hd6290863155%_)) - (if (and (gx#stx-keyword? _%L63174%_) - (gx#identifier? _%L63173%_)) - (_%__kont8707887079%_ - _%L63171%_ - _%L63173%_ - _%L63174%_) - (if (gx#stx-pair? _%hd6291163165%_) - (let ((_%e6292263090%_ - (gx#syntax-e _%hd6291163165%_))) - (let ((_%tl6292463097%_ + (_%g6402664144%_)))))) + (_%__match8811388114%_ + (lambda (_%e6406864222%_ + _%hd6406964226%_ + _%tl6407064229%_ + _%e6407164232%_ + _%hd6407264236%_ + _%tl6407364239%_ + _%e6407464242%_ + _%hd6407564246%_ + _%tl6407664249%_ + _%e6407764252%_ + _%hd6407864256%_ + _%tl6407964259%_) + (let ((_%g6406564262%_ _%tl6407364239%_) + (_%g6406664264%_ _%hd6407564246%_) + (_%g6406764265%_ _%hd6406964226%_)) + (if (and (gx#stx-keyword? _%g6406764265%_) + (gx#identifier? _%g6406664264%_)) + (_%__kont8802788028%_ + _%g6406564262%_ + _%g6406664264%_ + _%g6406764265%_) + (_%__match8813188132%_ + _%e6406864222%_ + _%hd6406964226%_ + _%tl6407064229%_ + _%e6407164232%_ + _%hd6407264236%_ + _%tl6407364239%_ + _%e6407464242%_ + _%hd6407564246%_ + _%tl6407664249%_))))) + (_%__match8808788088%_ + (lambda (_%e6405964303%_ + _%hd6406064307%_ + _%tl6406164310%_ + _%e6406264313%_ + _%hd6406364317%_ + _%tl6406464320%_) + (let ((_%g6405664323%_ _%tl6406464320%_) + (_%g6405764325%_ _%hd6406364317%_) + (_%g6405864326%_ _%hd6406064307%_)) + (if (and (gx#stx-keyword? _%g6405864326%_) + (gx#identifier? _%g6405764325%_)) + (_%__kont8802588026%_ + _%g6405664323%_ + _%g6405764325%_ + _%g6405864326%_) + (if (gx#stx-pair? _%hd6406364317%_) + (let ((_%e6407464242%_ + (gx#syntax-e _%hd6406364317%_))) + (let ((_%tl6407664249%_ (let () (declare (not safe)) - (##cdr _%e6292263090%_))) - (_%hd6292363094%_ + (##cdr _%e6407464242%_))) + (_%hd6407564246%_ (let () (declare (not safe)) - (##car _%e6292263090%_)))) - (if (gx#stx-pair? _%tl6292463097%_) - (let ((_%e6292563100%_ + (##car _%e6407464242%_)))) + (if (gx#stx-pair? _%tl6407664249%_) + (let ((_%e6407764252%_ (gx#syntax-e - _%tl6292463097%_))) - (let ((_%tl6292763107%_ + _%tl6407664249%_))) + (let ((_%tl6407964259%_ (let () (declare (not safe)) - (##cdr _%e6292563100%_))) - (_%hd6292663104%_ + (##cdr _%e6407764252%_))) + (_%hd6407864256%_ (let () (declare (not safe)) - (##car _%e6292563100%_)))) + (##car _%e6407764252%_)))) (if (gx#stx-null? - _%tl6292763107%_) - (_%__match8716687167%_ - _%e6290763151%_ - _%hd6290863155%_ - _%tl6290963158%_ - _%e6291063161%_ - _%hd6291163165%_ - _%tl6291263168%_ - _%e6292263090%_ - _%hd6292363094%_ - _%tl6292463097%_ - _%e6292563100%_ - _%hd6292663104%_ - _%tl6292763107%_) - (_%__match8718487185%_ - _%e6290763151%_ - _%hd6290863155%_ - _%tl6290963158%_ - _%e6291063161%_ - _%hd6291163165%_ - _%tl6291263168%_ - _%e6292263090%_ - _%hd6292363094%_ - _%tl6292463097%_)))) - (_%__match8718487185%_ - _%e6290763151%_ - _%hd6290863155%_ - _%tl6290963158%_ - _%e6291063161%_ - _%hd6291163165%_ - _%tl6291263168%_ - _%e6292263090%_ - _%hd6292363094%_ - _%tl6292463097%_)))) + _%tl6407964259%_) + (_%__match8811388114%_ + _%e6405964303%_ + _%hd6406064307%_ + _%tl6406164310%_ + _%e6406264313%_ + _%hd6406364317%_ + _%tl6406464320%_ + _%e6407464242%_ + _%hd6407564246%_ + _%tl6407664249%_ + _%e6407764252%_ + _%hd6407864256%_ + _%tl6407964259%_) + (_%__match8813188132%_ + _%e6405964303%_ + _%hd6406064307%_ + _%tl6406164310%_ + _%e6406264313%_ + _%hd6406364317%_ + _%tl6406464320%_ + _%e6407464242%_ + _%hd6407564246%_ + _%tl6407664249%_)))) + (_%__match8813188132%_ + _%e6405964303%_ + _%hd6406064307%_ + _%tl6406164310%_ + _%e6406264313%_ + _%hd6406364317%_ + _%tl6406464320%_ + _%e6407464242%_ + _%hd6407564246%_ + _%tl6407664249%_)))) (let () (declare (not safe)) - (_%g6287462992%_))))))) - (_%__match8712887129%_ - (lambda (_%e6289863208%_ - _%hd6289963212%_ - _%tl6290063215%_ - _%e6290163218%_ - _%hd6290263222%_ - _%tl6290363225%_) - (let ((_%L63228%_ _%tl6290063215%_) - (_%L63230%_ _%tl6290363225%_) - (_%L63231%_ _%hd6290263222%_)) - (if (and (gx#identifier? _%L63231%_) + (_%g6402664144%_))))))) + (_%__match8807588076%_ + (lambda (_%e6405064360%_ + _%hd6405164364%_ + _%tl6405264367%_ + _%e6405364370%_ + _%hd6405464374%_ + _%tl6405564377%_) + (let ((_%g6404764380%_ _%tl6405264367%_) + (_%g6404864382%_ _%tl6405564377%_) + (_%g6404964383%_ _%hd6405464374%_)) + (if (and (gx#identifier? _%g6404964383%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L63230%_)) - (_%__kont8707687077%_ - _%L63228%_ - _%L63230%_ - _%L63231%_) - (if (gx#stx-pair? _%tl6290063215%_) - (let ((_%e6291063161%_ - (gx#syntax-e _%tl6290063215%_))) - (let ((_%tl6291263168%_ + _%g6404864382%_)) + (_%__kont8802388024%_ + _%g6404764380%_ + _%g6404864382%_ + _%g6404964383%_) + (if (gx#stx-pair? _%tl6405264367%_) + (let ((_%e6406264313%_ + (gx#syntax-e _%tl6405264367%_))) + (let ((_%tl6406464320%_ (let () (declare (not safe)) - (##cdr _%e6291063161%_))) - (_%hd6291163165%_ + (##cdr _%e6406264313%_))) + (_%hd6406364317%_ (let () (declare (not safe)) - (##car _%e6291063161%_)))) - (_%__match8714087141%_ - _%e6289863208%_ - _%hd6289963212%_ - _%tl6290063215%_ - _%e6291063161%_ - _%hd6291163165%_ - _%tl6291263168%_))) + (##car _%e6406264313%_)))) + (_%__match8808788088%_ + _%e6405064360%_ + _%hd6405164364%_ + _%tl6405264367%_ + _%e6406264313%_ + _%hd6406364317%_ + _%tl6406464320%_))) (let () (declare (not safe)) - (_%g6287462992%_))))))) - (_%__match8711687117%_ - (lambda (_%e6288663486%_ - _%hd6288763490%_ - _%tl6288863493%_ - _%e6288963496%_ - _%hd6289063500%_ - _%tl6289163503%_ - _%e6289263506%_ - _%hd6289363510%_ - _%tl6289463513%_) - (let ((_%L63516%_ _%tl6288863493%_) - (_%L63518%_ _%hd6289063500%_)) - (if (gx#identifier? _%L63518%_) - (_%__kont8707487075%_ _%L63516%_ _%L63518%_) - (_%__match8712887129%_ - _%e6288663486%_ - _%hd6288763490%_ - _%tl6288863493%_ - _%e6288963496%_ - _%hd6289063500%_ - _%tl6289163503%_))))) - (_%__match8709687097%_ - (lambda (_%e6288163553%_ - _%hd6288263557%_ - _%tl6288363560%_) - (let ((_%L63563%_ _%tl6288363560%_) - (_%L63565%_ _%hd6288263557%_)) - (if (gx#identifier? _%L63565%_) - (_%__kont8707287073%_ _%L63563%_ _%L63565%_) - (if (gx#stx-pair? _%hd6288263557%_) - (let ((_%e6288963496%_ - (gx#syntax-e _%hd6288263557%_))) - (let ((_%tl6289163503%_ + (_%g6402664144%_))))))) + (_%__match8806388064%_ + (lambda (_%e6403864638%_ + _%hd6403964642%_ + _%tl6404064645%_ + _%e6404164648%_ + _%hd6404264652%_ + _%tl6404364655%_ + _%e6404464658%_ + _%hd6404564662%_ + _%tl6404664665%_) + (let ((_%g6403664668%_ _%tl6404064645%_) + (_%g6403764670%_ _%hd6404264652%_)) + (if (gx#identifier? _%g6403764670%_) + (_%__kont8802188022%_ + _%g6403664668%_ + _%g6403764670%_) + (_%__match8807588076%_ + _%e6403864638%_ + _%hd6403964642%_ + _%tl6404064645%_ + _%e6404164648%_ + _%hd6404264652%_ + _%tl6404364655%_))))) + (_%__match8804388044%_ + (lambda (_%e6403364705%_ + _%hd6403464709%_ + _%tl6403564712%_) + (let ((_%g6403164715%_ _%tl6403564712%_) + (_%g6403264717%_ _%hd6403464709%_)) + (if (gx#identifier? _%g6403264717%_) + (_%__kont8801988020%_ + _%g6403164715%_ + _%g6403264717%_) + (if (gx#stx-pair? _%hd6403464709%_) + (let ((_%e6404164648%_ + (gx#syntax-e _%hd6403464709%_))) + (let ((_%tl6404364655%_ (let () (declare (not safe)) - (##cdr _%e6288963496%_))) - (_%hd6289063500%_ + (##cdr _%e6404164648%_))) + (_%hd6404264652%_ (let () (declare (not safe)) - (##car _%e6288963496%_)))) - (if (gx#stx-pair? _%tl6289163503%_) - (let ((_%e6289263506%_ + (##car _%e6404164648%_)))) + (if (gx#stx-pair? _%tl6404364655%_) + (let ((_%e6404464658%_ (gx#syntax-e - _%tl6289163503%_))) - (let ((_%tl6289463513%_ + _%tl6404364655%_))) + (let ((_%tl6404664665%_ (let () (declare (not safe)) - (##cdr _%e6289263506%_))) - (_%hd6289363510%_ + (##cdr _%e6404464658%_))) + (_%hd6404564662%_ (let () (declare (not safe)) - (##car _%e6289263506%_)))) + (##car _%e6404464658%_)))) (if (gx#stx-null? - _%tl6289463513%_) - (_%__match8711687117%_ - _%e6288163553%_ - _%hd6288263557%_ - _%tl6288363560%_ - _%e6288963496%_ - _%hd6289063500%_ - _%tl6289163503%_ - _%e6289263506%_ - _%hd6289363510%_ - _%tl6289463513%_) - (_%__match8712887129%_ - _%e6288163553%_ - _%hd6288263557%_ - _%tl6288363560%_ - _%e6288963496%_ - _%hd6289063500%_ - _%tl6289163503%_)))) - (_%__match8712887129%_ - _%e6288163553%_ - _%hd6288263557%_ - _%tl6288363560%_ - _%e6288963496%_ - _%hd6289063500%_ - _%tl6289163503%_)))) - (if (gx#stx-pair? _%tl6288363560%_) - (let ((_%e6291063161%_ - (gx#syntax-e _%tl6288363560%_))) - (let ((_%tl6291263168%_ + _%tl6404664665%_) + (_%__match8806388064%_ + _%e6403364705%_ + _%hd6403464709%_ + _%tl6403564712%_ + _%e6404164648%_ + _%hd6404264652%_ + _%tl6404364655%_ + _%e6404464658%_ + _%hd6404564662%_ + _%tl6404664665%_) + (_%__match8807588076%_ + _%e6403364705%_ + _%hd6403464709%_ + _%tl6403564712%_ + _%e6404164648%_ + _%hd6404264652%_ + _%tl6404364655%_)))) + (_%__match8807588076%_ + _%e6403364705%_ + _%hd6403464709%_ + _%tl6403564712%_ + _%e6404164648%_ + _%hd6404264652%_ + _%tl6404364655%_)))) + (if (gx#stx-pair? _%tl6403564712%_) + (let ((_%e6406264313%_ + (gx#syntax-e _%tl6403564712%_))) + (let ((_%tl6406464320%_ (let () (declare (not safe)) - (##cdr _%e6291063161%_))) - (_%hd6291163165%_ + (##cdr _%e6406264313%_))) + (_%hd6406364317%_ (let () (declare (not safe)) - (##car _%e6291063161%_)))) - (_%__match8714087141%_ - _%e6288163553%_ - _%hd6288263557%_ - _%tl6288363560%_ - _%e6291063161%_ - _%hd6291163165%_ - _%tl6291263168%_))) + (##car _%e6406264313%_)))) + (_%__match8808788088%_ + _%e6403364705%_ + _%hd6403464709%_ + _%tl6403564712%_ + _%e6406264313%_ + _%hd6406364317%_ + _%tl6406464320%_))) (let () (declare (not safe)) - (_%g6287462992%_))))))))) - (if (gx#stx-pair? _%__stx8706987070%_) - (let ((_%e6288163553%_ - (gx#syntax-e _%__stx8706987070%_))) - (let ((_%tl6288363560%_ + (_%g6402664144%_))))))))) + (if (gx#stx-pair? _%__stx8801688017%_) + (let ((_%e6403364705%_ + (gx#syntax-e _%__stx8801688017%_))) + (let ((_%tl6403564712%_ (let () (declare (not safe)) - (##cdr _%e6288163553%_))) - (_%hd6288263557%_ + (##cdr _%e6403364705%_))) + (_%hd6403464709%_ (let () (declare (not safe)) - (##car _%e6288163553%_)))) - (_%__match8709687097%_ - _%e6288163553%_ - _%hd6288263557%_ - _%tl6288363560%_))) - (let () (declare (not safe)) (_%g6287462992%_)))))))))) + (##car _%e6403364705%_)))) + (_%__match8804388044%_ + _%e6403364705%_ + _%hd6403464709%_ + _%tl6403564712%_))) + (let () (declare (not safe)) (_%g6402664144%_)))))))))) (define |gerbil/core/contract~Interface[1]#check-signature-spec!__@| - (lambda (_%@@keywords63597%_ . _%args63599%_) + (lambda (_%@@keywords64749%_ . _%args64751%_) (apply |gerbil/core/contract~Interface[1]#check-signature-spec!__%| - _%@@keywords63597%_ + _%@@keywords64749%_ (symbolic-table-ref - _%@@keywords63597%_ + _%@@keywords64749%_ 'optionals: absent-value) - (symbolic-table-ref _%@@keywords63597%_ 'keywords: absent-value) - _%args63599%_))) + (symbolic-table-ref _%@@keywords64749%_ 'keywords: absent-value) + _%args64751%_))) (define |gerbil/core/contract~Interface[1]#check-signature-spec!| - (lambda _%args6284363606%_ + (lambda _%args6399764758%_ (apply keyword-dispatch '#(optionals: keywords:) |gerbil/core/contract~Interface[1]#check-signature-spec!__@| - _%args6284363606%_))) + _%args6399764758%_))) (define |gerbil/core/contract~Interface[1]#signature-contract?| - (lambda (_%contract62300%_) - (let* ((_%__stx8718987190%_ _%contract62300%_) - (_%g6230962397%_ + (lambda (_%contract63454%_) + (let* ((_%__stx8813688137%_ _%contract63454%_) + (_%g6346363551%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8718987190%_)))) - (let ((_%__kont8719287193%_ - (lambda (_%L62809%_ _%L62811%_) (gx#identifier? _%L62809%_))) - (_%__kont8719487195%_ - (lambda (_%L62749%_ _%L62751%_ _%L62752%_) - (gx#identifier? _%L62751%_))) - (_%__kont8719687197%_ (lambda (_%L62689%_) '#t)) - (_%__kont8719887199%_ (lambda (_%L62643%_ _%L62645%_) '#t)) - (_%__kont8720087201%_ - (lambda (_%L62563%_ _%L62565%_ _%L62566%_) - (gx#identifier? _%L62563%_))) - (_%__kont8720287203%_ - (lambda (_%L62475%_ _%L62477%_ _%L62478%_ _%L62479%_) - (gx#identifier? _%L62477%_))) - (_%__kont8720487205%_ (lambda () '#f))) - (let* ((_%__match8737887379%_ - (lambda (_%e6237462415%_ - _%hd6237562419%_ - _%tl6237662422%_ - _%e6237762425%_ - _%hd6237862429%_ - _%tl6237962432%_ - _%e6238062435%_ - _%hd6238162439%_ - _%tl6238262442%_ - _%e6238362445%_ - _%hd6238462449%_ - _%tl6238562452%_ - _%e6238662455%_ - _%hd6238762459%_ - _%tl6238862462%_ - _%e6238962465%_ - _%hd6239062469%_ - _%tl6239162472%_) - (let ((_%L62475%_ _%hd6239062469%_) - (_%L62477%_ _%hd6238462449%_) - (_%L62478%_ _%hd6238162439%_) - (_%L62479%_ _%hd6237862429%_)) - (if (and (gx#identifier? _%L62478%_) + _%__stx8813688137%_)))) + (let ((_%__kont8813988140%_ + (lambda (_%g6346563963%_ _%g6346663965%_) + (gx#identifier? _%g6346563963%_))) + (_%__kont8814188142%_ + (lambda (_%g6347363903%_ _%g6347463905%_ _%g6347563906%_) + (gx#identifier? _%g6347463905%_))) + (_%__kont8814388144%_ (lambda (_%g6348863843%_) '#t)) + (_%__kont8814588146%_ + (lambda (_%g6349563797%_ _%g6349663799%_) '#t)) + (_%__kont8814788148%_ + (lambda (_%g6350963717%_ _%g6351063719%_ _%g6351163720%_) + (gx#identifier? _%g6350963717%_))) + (_%__kont8814988150%_ + (lambda (_%g6352463629%_ + _%g6352563631%_ + _%g6352663632%_ + _%g6352763633%_) + (gx#identifier? _%g6352563631%_))) + (_%__kont8815188152%_ (lambda () '#f))) + (let* ((_%__match8832588326%_ + (lambda (_%e6352863569%_ + _%hd6352963573%_ + _%tl6353063576%_ + _%e6353163579%_ + _%hd6353263583%_ + _%tl6353363586%_ + _%e6353463589%_ + _%hd6353563593%_ + _%tl6353663596%_ + _%e6353763599%_ + _%hd6353863603%_ + _%tl6353963606%_ + _%e6354063609%_ + _%hd6354163613%_ + _%tl6354263616%_ + _%e6354363619%_ + _%hd6354463623%_ + _%tl6354563626%_) + (let ((_%g6352463629%_ _%hd6354463623%_) + (_%g6352563631%_ _%hd6353863603%_) + (_%g6352663632%_ _%hd6353563593%_) + (_%g6352763633%_ _%hd6353263583%_)) + (if (and (gx#identifier? _%g6352663632%_) (or (gx#free-identifier=? - _%L62478%_ + _%g6352663632%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L62478%_ + _%g6352663632%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L62478%_ + _%g6352663632%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L62478%_ + _%g6352663632%_ (gx#datum->syntax '#f ':?)))) - (_%__kont8720287203%_ - _%L62475%_ - _%L62477%_ - _%L62478%_ - _%L62479%_) - (_%__kont8720487205%_))))) - (_%__match8733287333%_ - (lambda (_%e6235862523%_ - _%hd6235962527%_ - _%tl6236062530%_ - _%e6236162533%_ - _%hd6236262537%_ - _%tl6236362540%_ - _%e6236462543%_ - _%hd6236562547%_ - _%tl6236662550%_ - _%e6236762553%_ - _%hd6236862557%_ - _%tl6236962560%_) - (let ((_%L62563%_ _%hd6236862557%_) - (_%L62565%_ _%hd6236562547%_) - (_%L62566%_ _%hd6236262537%_)) - (if (and (gx#identifier? _%L62565%_) + (_%__kont8814988150%_ + _%g6352463629%_ + _%g6352563631%_ + _%g6352663632%_ + _%g6352763633%_) + (_%__kont8815188152%_))))) + (_%__match8827988280%_ + (lambda (_%e6351263677%_ + _%hd6351363681%_ + _%tl6351463684%_ + _%e6351563687%_ + _%hd6351663691%_ + _%tl6351763694%_ + _%e6351863697%_ + _%hd6351963701%_ + _%tl6352063704%_ + _%e6352163707%_ + _%hd6352263711%_ + _%tl6352363714%_) + (let ((_%g6350963717%_ _%hd6352263711%_) + (_%g6351063719%_ _%hd6351963701%_) + (_%g6351163720%_ _%hd6351663691%_)) + (if (and (gx#identifier? _%g6351063719%_) (or (gx#free-identifier=? - _%L62565%_ + _%g6351063719%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L62565%_ + _%g6351063719%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L62565%_ + _%g6351063719%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L62565%_ + _%g6351063719%_ (gx#datum->syntax '#f ':?)))) - (_%__kont8720087201%_ - _%L62563%_ - _%L62565%_ - _%L62566%_) - (_%__kont8720487205%_))))) - (_%__match8725087251%_ - (lambda (_%e6232262709%_ - _%hd6232362713%_ - _%tl6232462716%_ - _%e6232562719%_ - _%hd6232662723%_ - _%tl6232762726%_ - _%e6232862729%_ - _%hd6232962733%_ - _%tl6233062736%_ - _%e6233162739%_ - _%hd6233262743%_ - _%tl6233362746%_) - (let ((_%L62749%_ _%hd6233262743%_) - (_%L62751%_ _%hd6232662723%_) - (_%L62752%_ _%hd6232362713%_)) - (if (and (gx#identifier? _%L62752%_) + (_%__kont8814788148%_ + _%g6350963717%_ + _%g6351063719%_ + _%g6351163720%_) + (_%__kont8815188152%_))))) + (_%__match8819788198%_ + (lambda (_%e6347663863%_ + _%hd6347763867%_ + _%tl6347863870%_ + _%e6347963873%_ + _%hd6348063877%_ + _%tl6348163880%_ + _%e6348263883%_ + _%hd6348363887%_ + _%tl6348463890%_ + _%e6348563893%_ + _%hd6348663897%_ + _%tl6348763900%_) + (let ((_%g6347363903%_ _%hd6348663897%_) + (_%g6347463905%_ _%hd6348063877%_) + (_%g6347563906%_ _%hd6347763867%_)) + (if (and (gx#identifier? _%g6347563906%_) (or (gx#free-identifier=? - _%L62752%_ + _%g6347563906%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L62752%_ + _%g6347563906%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L62752%_ + _%g6347563906%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L62752%_ + _%g6347563906%_ (gx#datum->syntax '#f ':?)))) - (_%__kont8719487195%_ - _%L62749%_ - _%L62751%_ - _%L62752%_) - (if (gx#identifier? _%hd6232362713%_) + (_%__kont8814188142%_ + _%g6347363903%_ + _%g6347463905%_ + _%g6347563906%_) + (if (gx#identifier? _%hd6347763867%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91869_| - _%hd6232362713%_) - (_%__kont8719887199%_ - _%hd6233262743%_ - _%hd6232662723%_) - (_%__kont8720487205%_)) - (_%__kont8720487205%_)))))) - (_%__match8722087221%_ - (lambda (_%e6231362789%_ - _%hd6231462793%_ - _%tl6231562796%_ - _%e6231662799%_ - _%hd6231762803%_ - _%tl6231862806%_) - (let ((_%L62809%_ _%hd6231762803%_) - (_%L62811%_ _%hd6231462793%_)) - (if (and (gx#identifier? _%L62811%_) + |gerbil/core/contract~Interface[1]#_g92732_| + _%hd6347763867%_) + (_%__kont8814588146%_ + _%hd6348663897%_ + _%hd6348063877%_) + (_%__kont8815188152%_)) + (_%__kont8815188152%_)))))) + (_%__match8816788168%_ + (lambda (_%e6346763943%_ + _%hd6346863947%_ + _%tl6346963950%_ + _%e6347063953%_ + _%hd6347163957%_ + _%tl6347263960%_) + (let ((_%g6346563963%_ _%hd6347163957%_) + (_%g6346663965%_ _%hd6346863947%_)) + (if (and (gx#identifier? _%g6346663965%_) (or (gx#free-identifier=? - _%L62811%_ + _%g6346663965%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L62811%_ + _%g6346663965%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L62811%_ + _%g6346663965%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L62811%_ + _%g6346663965%_ (gx#datum->syntax '#f ':?)))) - (_%__kont8719287193%_ _%L62809%_ _%L62811%_) - (if (gx#identifier? _%hd6231462793%_) + (_%__kont8813988140%_ + _%g6346563963%_ + _%g6346663965%_) + (if (gx#identifier? _%hd6346863947%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91869_| - _%hd6231462793%_) - (_%__kont8719687197%_ _%hd6231762803%_) - (_%__kont8720487205%_)) - (_%__kont8720487205%_))))))) - (if (gx#stx-pair? _%__stx8718987190%_) - (let ((_%e6231362789%_ (gx#syntax-e _%__stx8718987190%_))) - (let ((_%tl6231562796%_ + |gerbil/core/contract~Interface[1]#_g92732_| + _%hd6346863947%_) + (_%__kont8814388144%_ _%hd6347163957%_) + (_%__kont8815188152%_)) + (_%__kont8815188152%_))))))) + (if (gx#stx-pair? _%__stx8813688137%_) + (let ((_%e6346763943%_ (gx#syntax-e _%__stx8813688137%_))) + (let ((_%tl6346963950%_ (let () (declare (not safe)) - (##cdr _%e6231362789%_))) - (_%hd6231462793%_ + (##cdr _%e6346763943%_))) + (_%hd6346863947%_ (let () (declare (not safe)) - (##car _%e6231362789%_)))) - (if (gx#stx-pair? _%tl6231562796%_) - (let ((_%e6231662799%_ - (gx#syntax-e _%tl6231562796%_))) - (let ((_%tl6231862806%_ + (##car _%e6346763943%_)))) + (if (gx#stx-pair? _%tl6346963950%_) + (let ((_%e6347063953%_ + (gx#syntax-e _%tl6346963950%_))) + (let ((_%tl6347263960%_ (let () (declare (not safe)) - (##cdr _%e6231662799%_))) - (_%hd6231762803%_ + (##cdr _%e6347063953%_))) + (_%hd6347163957%_ (let () (declare (not safe)) - (##car _%e6231662799%_)))) - (if (gx#stx-null? _%tl6231862806%_) - (_%__match8722087221%_ - _%e6231362789%_ - _%hd6231462793%_ - _%tl6231562796%_ - _%e6231662799%_ - _%hd6231762803%_ - _%tl6231862806%_) - (if (gx#stx-pair? _%tl6231862806%_) - (let ((_%e6232862729%_ - (gx#syntax-e _%tl6231862806%_))) - (let ((_%tl6233062736%_ + (##car _%e6347063953%_)))) + (if (gx#stx-null? _%tl6347263960%_) + (_%__match8816788168%_ + _%e6346763943%_ + _%hd6346863947%_ + _%tl6346963950%_ + _%e6347063953%_ + _%hd6347163957%_ + _%tl6347263960%_) + (if (gx#stx-pair? _%tl6347263960%_) + (let ((_%e6348263883%_ + (gx#syntax-e _%tl6347263960%_))) + (let ((_%tl6348463890%_ (let () (declare (not safe)) - (##cdr _%e6232862729%_))) - (_%hd6232962733%_ + (##cdr _%e6348263883%_))) + (_%hd6348363887%_ (let () (declare (not safe)) - (##car _%e6232862729%_)))) - (if (gx#identifier? _%hd6232962733%_) + (##car _%e6348263883%_)))) + (if (gx#identifier? _%hd6348363887%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91870_| - _%hd6232962733%_) + |gerbil/core/contract~Interface[1]#_g92733_| + _%hd6348363887%_) (if (gx#stx-pair? - _%tl6233062736%_) - (let ((_%e6233162739%_ + _%tl6348463890%_) + (let ((_%e6348563893%_ (gx#syntax-e - _%tl6233062736%_))) - (let ((_%tl6233362746%_ + _%tl6348463890%_))) + (let ((_%tl6348763900%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6233162739%_))) - (_%hd6233262743%_ - (let () (declare (not safe)) (##car _%e6233162739%_)))) - (if (gx#stx-null? _%tl6233362746%_) - (_%__match8725087251%_ - _%e6231362789%_ - _%hd6231462793%_ - _%tl6231562796%_ - _%e6231662799%_ - _%hd6231762803%_ - _%tl6231862806%_ - _%e6232862729%_ - _%hd6232962733%_ - _%tl6233062736%_ - _%e6233162739%_ - _%hd6233262743%_ - _%tl6233362746%_) - (if (gx#identifier? _%hd6231462793%_) + (##cdr _%e6348563893%_))) + (_%hd6348663897%_ + (let () (declare (not safe)) (##car _%e6348563893%_)))) + (if (gx#stx-null? _%tl6348763900%_) + (_%__match8819788198%_ + _%e6346763943%_ + _%hd6346863947%_ + _%tl6346963950%_ + _%e6347063953%_ + _%hd6347163957%_ + _%tl6347263960%_ + _%e6348263883%_ + _%hd6348363887%_ + _%tl6348463890%_ + _%e6348563893%_ + _%hd6348663897%_ + _%tl6348763900%_) + (if (gx#identifier? _%hd6346863947%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91869_| - _%hd6231462793%_) - (if (gx#stx-pair? _%tl6233362746%_) - (let ((_%e6238662455%_ - (gx#syntax-e _%tl6233362746%_))) - (let ((_%tl6238862462%_ + |gerbil/core/contract~Interface[1]#_g92732_| + _%hd6346863947%_) + (if (gx#stx-pair? _%tl6348763900%_) + (let ((_%e6354063609%_ + (gx#syntax-e _%tl6348763900%_))) + (let ((_%tl6354263616%_ (let () (declare (not safe)) - (##cdr _%e6238662455%_))) - (_%hd6238762459%_ + (##cdr _%e6354063609%_))) + (_%hd6354163613%_ (let () (declare (not safe)) - (##car _%e6238662455%_)))) - (if (gx#identifier? _%hd6238762459%_) + (##car _%e6354063609%_)))) + (if (gx#identifier? _%hd6354163613%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91871_| - _%hd6238762459%_) + |gerbil/core/contract~Interface[1]#_g92734_| + _%hd6354163613%_) (if (gx#stx-pair? - _%tl6238862462%_) - (let ((_%e6238962465%_ + _%tl6354263616%_) + (let ((_%e6354363619%_ (gx#syntax-e - _%tl6238862462%_))) - (let ((_%tl6239162472%_ + _%tl6354263616%_))) + (let ((_%tl6354563626%_ (let () (declare (not safe)) - (##cdr _%e6238962465%_))) - (_%hd6239062469%_ + (##cdr _%e6354363619%_))) + (_%hd6354463623%_ (let () (declare (not safe)) - (##car _%e6238962465%_)))) + (##car _%e6354363619%_)))) (if (gx#stx-null? - _%tl6239162472%_) - (_%__match8737887379%_ - _%e6231362789%_ - _%hd6231462793%_ - _%tl6231562796%_ - _%e6231662799%_ - _%hd6231762803%_ - _%tl6231862806%_ - _%e6232862729%_ - _%hd6232962733%_ - _%tl6233062736%_ - _%e6233162739%_ - _%hd6233262743%_ - _%tl6233362746%_ - _%e6238662455%_ - _%hd6238762459%_ - _%tl6238862462%_ - _%e6238962465%_ - _%hd6239062469%_ - _%tl6239162472%_) - (_%__kont8720487205%_)))) - (_%__kont8720487205%_)) - (_%__kont8720487205%_)) - (_%__kont8720487205%_)))) - (_%__kont8720487205%_)) - (_%__kont8720487205%_)) - (_%__kont8720487205%_))))) - (_%__kont8720487205%_)) + _%tl6354563626%_) + (_%__match8832588326%_ + _%e6346763943%_ + _%hd6346863947%_ + _%tl6346963950%_ + _%e6347063953%_ + _%hd6347163957%_ + _%tl6347263960%_ + _%e6348263883%_ + _%hd6348363887%_ + _%tl6348463890%_ + _%e6348563893%_ + _%hd6348663897%_ + _%tl6348763900%_ + _%e6354063609%_ + _%hd6354163613%_ + _%tl6354263616%_ + _%e6354363619%_ + _%hd6354463623%_ + _%tl6354563626%_) + (_%__kont8815188152%_)))) + (_%__kont8815188152%_)) + (_%__kont8815188152%_)) + (_%__kont8815188152%_)))) + (_%__kont8815188152%_)) + (_%__kont8815188152%_)) + (_%__kont8815188152%_))))) + (_%__kont8815188152%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd6231462793%_) + _%hd6346863947%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91869_| - _%hd6231462793%_) + |gerbil/core/contract~Interface[1]#_g92732_| + _%hd6346863947%_) (if (gx#stx-pair? - _%tl6233062736%_) - (let ((_%e6236762553%_ + _%tl6348463890%_) + (let ((_%e6352163707%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6233062736%_))) - (let ((_%tl6236962560%_ + (gx#syntax-e _%tl6348463890%_))) + (let ((_%tl6352363714%_ (let () (declare (not safe)) - (##cdr _%e6236762553%_))) - (_%hd6236862557%_ + (##cdr _%e6352163707%_))) + (_%hd6352263711%_ (let () (declare (not safe)) - (##car _%e6236762553%_)))) - (if (gx#stx-null? _%tl6236962560%_) - (_%__match8733287333%_ - _%e6231362789%_ - _%hd6231462793%_ - _%tl6231562796%_ - _%e6231662799%_ - _%hd6231762803%_ - _%tl6231862806%_ - _%e6232862729%_ - _%hd6232962733%_ - _%tl6233062736%_ - _%e6236762553%_ - _%hd6236862557%_ - _%tl6236962560%_) - (if (gx#stx-pair? _%tl6236962560%_) - (let ((_%e6238662455%_ - (gx#syntax-e _%tl6236962560%_))) - (let ((_%tl6238862462%_ + (##car _%e6352163707%_)))) + (if (gx#stx-null? _%tl6352363714%_) + (_%__match8827988280%_ + _%e6346763943%_ + _%hd6346863947%_ + _%tl6346963950%_ + _%e6347063953%_ + _%hd6347163957%_ + _%tl6347263960%_ + _%e6348263883%_ + _%hd6348363887%_ + _%tl6348463890%_ + _%e6352163707%_ + _%hd6352263711%_ + _%tl6352363714%_) + (if (gx#stx-pair? _%tl6352363714%_) + (let ((_%e6354063609%_ + (gx#syntax-e _%tl6352363714%_))) + (let ((_%tl6354263616%_ (let () (declare (not safe)) - (##cdr _%e6238662455%_))) - (_%hd6238762459%_ + (##cdr _%e6354063609%_))) + (_%hd6354163613%_ (let () (declare (not safe)) - (##car _%e6238662455%_)))) - (if (gx#identifier? _%hd6238762459%_) + (##car _%e6354063609%_)))) + (if (gx#identifier? _%hd6354163613%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91871_| - _%hd6238762459%_) + |gerbil/core/contract~Interface[1]#_g92734_| + _%hd6354163613%_) (if (gx#stx-pair? - _%tl6238862462%_) - (let ((_%e6238962465%_ + _%tl6354263616%_) + (let ((_%e6354363619%_ (gx#syntax-e - _%tl6238862462%_))) - (let ((_%tl6239162472%_ + _%tl6354263616%_))) + (let ((_%tl6354563626%_ (let () (declare (not safe)) - (##cdr _%e6238962465%_))) - (_%hd6239062469%_ + (##cdr _%e6354363619%_))) + (_%hd6354463623%_ (let () (declare (not safe)) - (##car _%e6238962465%_)))) + (##car _%e6354363619%_)))) (if (gx#stx-null? - _%tl6239162472%_) - (_%__match8737887379%_ - _%e6231362789%_ - _%hd6231462793%_ - _%tl6231562796%_ - _%e6231662799%_ - _%hd6231762803%_ - _%tl6231862806%_ - _%e6232862729%_ - _%hd6232962733%_ - _%tl6233062736%_ - _%e6236762553%_ - _%hd6236862557%_ - _%tl6236962560%_ - _%e6238662455%_ - _%hd6238762459%_ - _%tl6238862462%_ - _%e6238962465%_ - _%hd6239062469%_ - _%tl6239162472%_) - (_%__kont8720487205%_)))) - (_%__kont8720487205%_)) - (_%__kont8720487205%_)) - (_%__kont8720487205%_)))) - (_%__kont8720487205%_))))) - (_%__kont8720487205%_)) - (_%__kont8720487205%_)) - (_%__kont8720487205%_))) + _%tl6354563626%_) + (_%__match8832588326%_ + _%e6346763943%_ + _%hd6346863947%_ + _%tl6346963950%_ + _%e6347063953%_ + _%hd6347163957%_ + _%tl6347263960%_ + _%e6348263883%_ + _%hd6348363887%_ + _%tl6348463890%_ + _%e6352163707%_ + _%hd6352263711%_ + _%tl6352363714%_ + _%e6354063609%_ + _%hd6354163613%_ + _%tl6354263616%_ + _%e6354363619%_ + _%hd6354463623%_ + _%tl6354563626%_) + (_%__kont8815188152%_)))) + (_%__kont8815188152%_)) + (_%__kont8815188152%_)) + (_%__kont8815188152%_)))) + (_%__kont8815188152%_))))) + (_%__kont8815188152%_)) + (_%__kont8815188152%_)) + (_%__kont8815188152%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd6231462793%_) + _%hd6346863947%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91869_| - _%hd6231462793%_) + |gerbil/core/contract~Interface[1]#_g92732_| + _%hd6346863947%_) (if (gx#stx-pair? - _%tl6233062736%_) - (let ((_%e6236762553%_ + _%tl6348463890%_) + (let ((_%e6352163707%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6233062736%_))) - (let ((_%tl6236962560%_ + (gx#syntax-e _%tl6348463890%_))) + (let ((_%tl6352363714%_ (let () (declare (not safe)) - (##cdr _%e6236762553%_))) - (_%hd6236862557%_ + (##cdr _%e6352163707%_))) + (_%hd6352263711%_ (let () (declare (not safe)) - (##car _%e6236762553%_)))) - (if (gx#stx-null? _%tl6236962560%_) - (_%__match8733287333%_ - _%e6231362789%_ - _%hd6231462793%_ - _%tl6231562796%_ - _%e6231662799%_ - _%hd6231762803%_ - _%tl6231862806%_ - _%e6232862729%_ - _%hd6232962733%_ - _%tl6233062736%_ - _%e6236762553%_ - _%hd6236862557%_ - _%tl6236962560%_) - (if (gx#stx-pair? _%tl6236962560%_) - (let ((_%e6238662455%_ - (gx#syntax-e _%tl6236962560%_))) - (let ((_%tl6238862462%_ + (##car _%e6352163707%_)))) + (if (gx#stx-null? _%tl6352363714%_) + (_%__match8827988280%_ + _%e6346763943%_ + _%hd6346863947%_ + _%tl6346963950%_ + _%e6347063953%_ + _%hd6347163957%_ + _%tl6347263960%_ + _%e6348263883%_ + _%hd6348363887%_ + _%tl6348463890%_ + _%e6352163707%_ + _%hd6352263711%_ + _%tl6352363714%_) + (if (gx#stx-pair? _%tl6352363714%_) + (let ((_%e6354063609%_ + (gx#syntax-e _%tl6352363714%_))) + (let ((_%tl6354263616%_ (let () (declare (not safe)) - (##cdr _%e6238662455%_))) - (_%hd6238762459%_ + (##cdr _%e6354063609%_))) + (_%hd6354163613%_ (let () (declare (not safe)) - (##car _%e6238662455%_)))) - (if (gx#identifier? _%hd6238762459%_) + (##car _%e6354063609%_)))) + (if (gx#identifier? _%hd6354163613%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91871_| - _%hd6238762459%_) - (if (gx#stx-pair? _%tl6238862462%_) - (let ((_%e6238962465%_ + |gerbil/core/contract~Interface[1]#_g92734_| + _%hd6354163613%_) + (if (gx#stx-pair? _%tl6354263616%_) + (let ((_%e6354363619%_ (gx#syntax-e - _%tl6238862462%_))) - (let ((_%tl6239162472%_ + _%tl6354263616%_))) + (let ((_%tl6354563626%_ (let () (declare (not safe)) - (##cdr _%e6238962465%_))) - (_%hd6239062469%_ + (##cdr _%e6354363619%_))) + (_%hd6354463623%_ (let () (declare (not safe)) - (##car _%e6238962465%_)))) + (##car _%e6354363619%_)))) (if (gx#stx-null? - _%tl6239162472%_) - (_%__match8737887379%_ - _%e6231362789%_ - _%hd6231462793%_ - _%tl6231562796%_ - _%e6231662799%_ - _%hd6231762803%_ - _%tl6231862806%_ - _%e6232862729%_ - _%hd6232962733%_ - _%tl6233062736%_ - _%e6236762553%_ - _%hd6236862557%_ - _%tl6236962560%_ - _%e6238662455%_ - _%hd6238762459%_ - _%tl6238862462%_ - _%e6238962465%_ - _%hd6239062469%_ - _%tl6239162472%_) - (_%__kont8720487205%_)))) - (_%__kont8720487205%_)) - (_%__kont8720487205%_)) - (_%__kont8720487205%_)))) - (_%__kont8720487205%_))))) - (_%__kont8720487205%_)) - (_%__kont8720487205%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8720487205%_))))) - (_%__kont8720487205%_))))) - (_%__kont8720487205%_)))) - (_%__kont8720487205%_))))))) + _%tl6354563626%_) + (_%__match8832588326%_ + _%e6346763943%_ + _%hd6346863947%_ + _%tl6346963950%_ + _%e6347063953%_ + _%hd6347163957%_ + _%tl6347263960%_ + _%e6348263883%_ + _%hd6348363887%_ + _%tl6348463890%_ + _%e6352163707%_ + _%hd6352263711%_ + _%tl6352363714%_ + _%e6354063609%_ + _%hd6354163613%_ + _%tl6354263616%_ + _%e6354363619%_ + _%hd6354463623%_ + _%tl6354563626%_) + (_%__kont8815188152%_)))) + (_%__kont8815188152%_)) + (_%__kont8815188152%_)) + (_%__kont8815188152%_)))) + (_%__kont8815188152%_))))) + (_%__kont8815188152%_)) + (_%__kont8815188152%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8815188152%_))))) + (_%__kont8815188152%_))))) + (_%__kont8815188152%_)))) + (_%__kont8815188152%_))))))) (define |gerbil/core/contract~Interface[1]#check-signature-contract-types!| - (lambda (_%stx62107%_ _%contract62109%_) - (let* ((_%__stx8738187382%_ _%contract62109%_) - (_%g6211362145%_ + (lambda (_%stx63261%_ _%contract63263%_) + (let* ((_%__stx8832888329%_ _%contract63263%_) + (_%g6326763299%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8738187382%_)))) - (let ((_%__kont8738487385%_ - (lambda (_%L62267%_ _%L62269%_ _%L62270%_) + _%__stx8832888329%_)))) + (let ((_%__kont8833188332%_ + (lambda (_%g6326963421%_ _%g6327063423%_ _%g6327163424%_) (|gerbil/core/contract~Interface[1]#check-valid-type!| - _%stx62107%_ - _%L62269%_))) - (_%__kont8738687387%_ - (lambda (_%L62203%_ _%L62205%_ _%L62206%_ _%L62207%_) + _%stx63261%_ + _%g6327063423%_))) + (_%__kont8833388334%_ + (lambda (_%g6327863357%_ + _%g6327963359%_ + _%g6328063360%_ + _%g6328163361%_) (|gerbil/core/contract~Interface[1]#check-valid-type!| - _%stx62107%_ - _%L62205%_))) - (_%__kont8738887389%_ (lambda () (void)))) - (let* ((_%__match8743087431%_ - (lambda (_%e6212862163%_ - _%hd6212962167%_ - _%tl6213062170%_ - _%e6213162173%_ - _%hd6213262177%_ - _%tl6213362180%_ - _%e6213462183%_ - _%hd6213562187%_ - _%tl6213662190%_ - _%e6213762193%_ - _%hd6213862197%_ - _%tl6213962200%_) - (let ((_%L62203%_ _%tl6213962200%_) - (_%L62205%_ _%hd6213862197%_) - (_%L62206%_ _%hd6213562187%_) - (_%L62207%_ _%hd6213262177%_)) - (if (and (gx#identifier? _%L62206%_) + _%stx63261%_ + _%g6327963359%_))) + (_%__kont8833588336%_ (lambda () (void)))) + (let* ((_%__match8837788378%_ + (lambda (_%e6328263317%_ + _%hd6328363321%_ + _%tl6328463324%_ + _%e6328563327%_ + _%hd6328663331%_ + _%tl6328763334%_ + _%e6328863337%_ + _%hd6328963341%_ + _%tl6329063344%_ + _%e6329163347%_ + _%hd6329263351%_ + _%tl6329363354%_) + (let ((_%g6327863357%_ _%tl6329363354%_) + (_%g6327963359%_ _%hd6329263351%_) + (_%g6328063360%_ _%hd6328963341%_) + (_%g6328163361%_ _%hd6328663331%_)) + (if (and (gx#identifier? _%g6328063360%_) (or (gx#free-identifier=? - _%L62206%_ + _%g6328063360%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L62206%_ + _%g6328063360%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L62206%_ + _%g6328063360%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L62206%_ + _%g6328063360%_ (gx#datum->syntax '#f ':?)))) - (_%__kont8738687387%_ - _%L62203%_ - _%L62205%_ - _%L62206%_ - _%L62207%_) - (_%__kont8738887389%_))))) - (_%__match8740287403%_ - (lambda (_%e6211862247%_ - _%hd6211962251%_ - _%tl6212062254%_ - _%e6212162257%_ - _%hd6212262261%_ - _%tl6212362264%_) - (let ((_%L62267%_ _%tl6212362264%_) - (_%L62269%_ _%hd6212262261%_) - (_%L62270%_ _%hd6211962251%_)) - (if (and (gx#identifier? _%L62270%_) + (_%__kont8833388334%_ + _%g6327863357%_ + _%g6327963359%_ + _%g6328063360%_ + _%g6328163361%_) + (_%__kont8833588336%_))))) + (_%__match8834988350%_ + (lambda (_%e6327263401%_ + _%hd6327363405%_ + _%tl6327463408%_ + _%e6327563411%_ + _%hd6327663415%_ + _%tl6327763418%_) + (let ((_%g6326963421%_ _%tl6327763418%_) + (_%g6327063423%_ _%hd6327663415%_) + (_%g6327163424%_ _%hd6327363405%_)) + (if (and (gx#identifier? _%g6327163424%_) (or (gx#free-identifier=? - _%L62270%_ + _%g6327163424%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L62270%_ + _%g6327163424%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L62270%_ + _%g6327163424%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L62270%_ + _%g6327163424%_ (gx#datum->syntax '#f ':?)))) - (_%__kont8738487385%_ - _%L62267%_ - _%L62269%_ - _%L62270%_) - (if (gx#identifier? _%hd6211962251%_) + (_%__kont8833188332%_ + _%g6326963421%_ + _%g6327063423%_ + _%g6327163424%_) + (if (gx#identifier? _%hd6327363405%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91872_| - _%hd6211962251%_) - (if (gx#stx-pair? _%tl6212362264%_) - (let ((_%e6213462183%_ - (gx#syntax-e _%tl6212362264%_))) - (let ((_%tl6213662190%_ + |gerbil/core/contract~Interface[1]#_g92735_| + _%hd6327363405%_) + (if (gx#stx-pair? _%tl6327763418%_) + (let ((_%e6328863337%_ + (gx#syntax-e _%tl6327763418%_))) + (let ((_%tl6329063344%_ (let () (declare (not safe)) - (##cdr _%e6213462183%_))) - (_%hd6213562187%_ + (##cdr _%e6328863337%_))) + (_%hd6328963341%_ (let () (declare (not safe)) - (##car _%e6213462183%_)))) - (if (gx#stx-pair? _%tl6213662190%_) - (let ((_%e6213762193%_ + (##car _%e6328863337%_)))) + (if (gx#stx-pair? _%tl6329063344%_) + (let ((_%e6329163347%_ (gx#syntax-e - _%tl6213662190%_))) - (let ((_%tl6213962200%_ + _%tl6329063344%_))) + (let ((_%tl6329363354%_ (let () (declare (not safe)) - (##cdr _%e6213762193%_))) - (_%hd6213862197%_ + (##cdr _%e6329163347%_))) + (_%hd6329263351%_ (let () (declare (not safe)) - (##car _%e6213762193%_)))) - (_%__match8743087431%_ - _%e6211862247%_ - _%hd6211962251%_ - _%tl6212062254%_ - _%e6212162257%_ - _%hd6212262261%_ - _%tl6212362264%_ - _%e6213462183%_ - _%hd6213562187%_ - _%tl6213662190%_ - _%e6213762193%_ - _%hd6213862197%_ - _%tl6213962200%_))) - (_%__kont8738887389%_)))) - (_%__kont8738887389%_)) - (_%__kont8738887389%_)) - (_%__kont8738887389%_))))))) - (if (gx#stx-pair? _%__stx8738187382%_) - (let ((_%e6211862247%_ (gx#syntax-e _%__stx8738187382%_))) - (let ((_%tl6212062254%_ + (##car _%e6329163347%_)))) + (_%__match8837788378%_ + _%e6327263401%_ + _%hd6327363405%_ + _%tl6327463408%_ + _%e6327563411%_ + _%hd6327663415%_ + _%tl6327763418%_ + _%e6328863337%_ + _%hd6328963341%_ + _%tl6329063344%_ + _%e6329163347%_ + _%hd6329263351%_ + _%tl6329363354%_))) + (_%__kont8833588336%_)))) + (_%__kont8833588336%_)) + (_%__kont8833588336%_)) + (_%__kont8833588336%_))))))) + (if (gx#stx-pair? _%__stx8832888329%_) + (let ((_%e6327263401%_ (gx#syntax-e _%__stx8832888329%_))) + (let ((_%tl6327463408%_ (let () (declare (not safe)) - (##cdr _%e6211862247%_))) - (_%hd6211962251%_ + (##cdr _%e6327263401%_))) + (_%hd6327363405%_ (let () (declare (not safe)) - (##car _%e6211862247%_)))) - (if (gx#stx-pair? _%tl6212062254%_) - (let ((_%e6212162257%_ - (gx#syntax-e _%tl6212062254%_))) - (let ((_%tl6212362264%_ + (##car _%e6327263401%_)))) + (if (gx#stx-pair? _%tl6327463408%_) + (let ((_%e6327563411%_ + (gx#syntax-e _%tl6327463408%_))) + (let ((_%tl6327763418%_ (let () (declare (not safe)) - (##cdr _%e6212162257%_))) - (_%hd6212262261%_ + (##cdr _%e6327563411%_))) + (_%hd6327663415%_ (let () (declare (not safe)) - (##car _%e6212162257%_)))) - (_%__match8740287403%_ - _%e6211862247%_ - _%hd6211962251%_ - _%tl6212062254%_ - _%e6212162257%_ - _%hd6212262261%_ - _%tl6212362264%_))) - (_%__kont8738887389%_)))) - (_%__kont8738887389%_))))))) + (##car _%e6327563411%_)))) + (_%__match8834988350%_ + _%e6327263401%_ + _%hd6327363405%_ + _%tl6327463408%_ + _%e6327563411%_ + _%hd6327663415%_ + _%tl6327763418%_))) + (_%__kont8833588336%_)))) + (_%__kont8833588336%_))))))) (define |gerbil/core/contract~Interface[1]#signature-arguments-in| - (lambda (_%signature61463%_) - (let _%loop61466%_ ((_%rest61469%_ _%signature61463%_) - (_%result61471%_ '())) - (let* ((_%__stx8750987510%_ _%rest61469%_) - (_%g6148061552%_ + (lambda (_%signature62617%_) + (let _%loop62620%_ ((_%rest62623%_ _%signature62617%_) + (_%result62625%_ '())) + (let* ((_%__stx8845688457%_ _%rest62623%_) + (_%g6263462706%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8750987510%_)))) - (let ((_%__kont8751287513%_ - (lambda (_%L62090%_ _%L62092%_) - (_%loop61466%_ - _%L62090%_ - (cons _%L62092%_ _%result61471%_)))) - (_%__kont8751487515%_ - (lambda (_%L62054%_ _%L62056%_ _%L62057%_) - (_%loop61466%_ - _%L62054%_ - (cons (cons _%L62057%_ (cons _%L62056%_ '())) - _%result61471%_)))) - (_%__kont8751687517%_ - (lambda (_%L61891%_ _%L61893%_ _%L61894%_) - (let* ((_%__stx8747187472%_ _%L61893%_) - (_%g6190961930%_ + _%__stx8845688457%_)))) + (let ((_%__kont8845988460%_ + (lambda (_%g6263663244%_ _%g6263763246%_) + (_%loop62620%_ + _%g6263663244%_ + (cons _%g6263763246%_ _%result62625%_)))) + (_%__kont8846188462%_ + (lambda (_%g6264163208%_ _%g6264263210%_ _%g6264363211%_) + (_%loop62620%_ + _%g6264163208%_ + (cons (cons _%g6264363211%_ (cons _%g6264263210%_ '())) + _%result62625%_)))) + (_%__kont8846388464%_ + (lambda (_%g6265363045%_ _%g6265463047%_ _%g6265563048%_) + (let* ((_%__stx8841888419%_ _%g6265463047%_) + (_%g6306363084%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8747187472%_)))) - (let ((_%__kont8747487475%_ - (lambda (_%L61994%_) - (_%loop61466%_ - _%L61891%_ - (cons (cons _%L61894%_ (cons _%L61994%_ '())) - _%result61471%_)))) - (_%__kont8747887479%_ + _%__stx8841888419%_)))) + (let ((_%__kont8842188422%_ + (lambda (_%g6306563148%_) + (_%loop62620%_ + _%g6265363045%_ + (cons (cons _%g6265563048%_ + (cons _%g6306563148%_ '())) + _%result62625%_)))) + (_%__kont8842588426%_ (lambda () - (_%loop61466%_ - _%L61891%_ - (cons _%L61894%_ _%result61471%_))))) - (let ((_%__match8750687507%_ - (lambda (_%__splice8747687477%_ - _%target6191261948%_ - _%tl6191461951%_ - _%e6191961954%_ - _%hd6192061958%_ - _%tl6192161961%_ - _%e6192261964%_ - _%hd6192361968%_ - _%tl6192461971%_) - (letrec ((_%loop6191561974%_ - (lambda (_%hd6191361978%_) + (_%loop62620%_ + _%g6265363045%_ + (cons _%g6265563048%_ _%result62625%_))))) + (let ((_%__match8845388454%_ + (lambda (_%__splice8842388424%_ + _%target6306663102%_ + _%tl6306863105%_ + _%e6307363108%_ + _%hd6307463112%_ + _%tl6307563115%_ + _%e6307663118%_ + _%hd6307763122%_ + _%tl6307863125%_) + (letrec ((_%loop6306963128%_ + (lambda (_%hd6306763132%_) (if (gx#stx-pair? - _%hd6191361978%_) - (let ((_%e6191661982%_ + _%hd6306763132%_) + (let ((_%e6307063136%_ (gx#syntax-e - _%hd6191361978%_))) - (let ((_%lp-tl6191861989%_ + _%hd6306763132%_))) + (let ((_%lp-tl6307263143%_ (let () (declare (not safe)) - (##cdr _%e6191661982%_))) - (_%lp-hd6191761986%_ + (##cdr _%e6307063136%_))) + (_%lp-hd6307163140%_ (let () (declare (not safe)) - (##car _%e6191661982%_)))) - (_%loop6191561974%_ - _%lp-tl6191861989%_))) - (_%__kont8747487475%_ - _%hd6192361968%_))))) - (_%loop6191561974%_ - _%target6191261948%_))))) - (if (gx#stx-pair/null? _%__stx8747187472%_) - (if (let ((__tmp91873 - (gx#stx-length _%__stx8747187472%_))) + (##car _%e6307063136%_)))) + (_%loop6306963128%_ + _%lp-tl6307263143%_))) + (_%__kont8842188422%_ + _%hd6307763122%_))))) + (_%loop6306963128%_ + _%target6306663102%_))))) + (if (gx#stx-pair/null? _%__stx8841888419%_) + (if (let ((__tmp92736 + (gx#stx-length _%__stx8841888419%_))) (declare (not safe)) - (##fx>= __tmp91873 '2)) - (let ((_%__splice8747687477%_ + (##fx>= __tmp92736 '2)) + (let ((_%__splice8842388424%_ (gx#syntax-split-splice->vector - _%__stx8747187472%_ + _%__stx8841888419%_ '2))) - (let ((_%tl6191461951%_ + (let ((_%tl6306863105%_ (let () (declare (not safe)) (##vector-ref - _%__splice8747687477%_ + _%__splice8842388424%_ '1))) - (_%target6191261948%_ + (_%target6306663102%_ (let () (declare (not safe)) (##vector-ref - _%__splice8747687477%_ + _%__splice8842388424%_ '0)))) - (if (gx#stx-pair? _%tl6191461951%_) - (let ((_%e6191961954%_ + (if (gx#stx-pair? _%tl6306863105%_) + (let ((_%e6307363108%_ (gx#syntax-e - _%tl6191461951%_))) - (let ((_%tl6192161961%_ + _%tl6306863105%_))) + (let ((_%tl6307563115%_ (let () (declare (not safe)) - (##cdr _%e6191961954%_))) - (_%hd6192061958%_ + (##cdr _%e6307363108%_))) + (_%hd6307463112%_ (let () (declare (not safe)) - (##car _%e6191961954%_)))) + (##car _%e6307363108%_)))) (if (gx#identifier? - _%hd6192061958%_) + _%hd6307463112%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91874_| - _%hd6192061958%_) + |gerbil/core/contract~Interface[1]#_g92737_| + _%hd6307463112%_) (if (gx#stx-pair? - _%tl6192161961%_) - (let ((_%e6192261964%_ + _%tl6307563115%_) + (let ((_%e6307663118%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6192161961%_))) - (let ((_%tl6192461971%_ + (gx#syntax-e _%tl6307563115%_))) + (let ((_%tl6307863125%_ (let () (declare (not safe)) - (##cdr _%e6192261964%_))) - (_%hd6192361968%_ + (##cdr _%e6307663118%_))) + (_%hd6307763122%_ (let () (declare (not safe)) - (##car _%e6192261964%_)))) - (if (gx#stx-null? _%tl6192461971%_) - (_%__match8750687507%_ - _%__splice8747687477%_ - _%target6191261948%_ - _%tl6191461951%_ - _%e6191961954%_ - _%hd6192061958%_ - _%tl6192161961%_ - _%e6192261964%_ - _%hd6192361968%_ - _%tl6192461971%_) - (_%__kont8747887479%_)))) - (_%__kont8747887479%_)) - (_%__kont8747887479%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8747887479%_)))) - (_%__kont8747887479%_)))) - (_%__kont8747887479%_)) - (_%__kont8747887479%_))))))) - (_%__kont8751887519%_ - (lambda (_%L61847%_ _%L61849%_ _%L61850%_) - (_%loop61466%_ - _%L61847%_ - (cons _%L61849%_ (cons _%L61850%_ _%result61471%_))))) - (_%__kont8752087521%_ - (lambda (_%L61797%_ _%L61799%_ _%L61800%_ _%L61801%_) - (_%loop61466%_ - _%L61797%_ - (cons (cons _%L61800%_ (cons _%L61799%_ '())) - (cons _%L61801%_ _%result61471%_))))) - (_%__kont8752287523%_ - (lambda (_%L61620%_ _%L61622%_ _%L61623%_ _%L61624%_) - (let* ((_%__stx8743387434%_ _%L61622%_) - (_%g6164261663%_ + (##car _%e6307663118%_)))) + (if (gx#stx-null? _%tl6307863125%_) + (_%__match8845388454%_ + _%__splice8842388424%_ + _%target6306663102%_ + _%tl6306863105%_ + _%e6307363108%_ + _%hd6307463112%_ + _%tl6307563115%_ + _%e6307663118%_ + _%hd6307763122%_ + _%tl6307863125%_) + (_%__kont8842588426%_)))) + (_%__kont8842588426%_)) + (_%__kont8842588426%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8842588426%_)))) + (_%__kont8842588426%_)))) + (_%__kont8842588426%_)) + (_%__kont8842588426%_))))))) + (_%__kont8846588466%_ + (lambda (_%g6266263001%_ _%g6266363003%_ _%g6266463004%_) + (_%loop62620%_ + _%g6266263001%_ + (cons _%g6266363003%_ + (cons _%g6266463004%_ _%result62625%_))))) + (_%__kont8846788468%_ + (lambda (_%g6267162951%_ + _%g6267262953%_ + _%g6267362954%_ + _%g6267462955%_) + (_%loop62620%_ + _%g6267162951%_ + (cons (cons _%g6267362954%_ (cons _%g6267262953%_ '())) + (cons _%g6267462955%_ _%result62625%_))))) + (_%__kont8846988470%_ + (lambda (_%g6268762774%_ + _%g6268862776%_ + _%g6268962777%_ + _%g6269062778%_) + (let* ((_%__stx8838088381%_ _%g6268862776%_) + (_%g6279662817%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8743387434%_)))) - (let ((_%__kont8743687437%_ - (lambda (_%L61727%_) - (_%loop61466%_ - _%L61620%_ - (cons (cons _%L61623%_ (cons _%L61727%_ '())) - (cons _%L61624%_ _%result61471%_))))) - (_%__kont8744087441%_ + _%__stx8838088381%_)))) + (let ((_%__kont8838388384%_ + (lambda (_%g6279862881%_) + (_%loop62620%_ + _%g6268762774%_ + (cons (cons _%g6268962777%_ + (cons _%g6279862881%_ '())) + (cons _%g6269062778%_ + _%result62625%_))))) + (_%__kont8838788388%_ (lambda () - (_%loop61466%_ - _%L61620%_ - (cons _%L61623%_ - (cons _%L61624%_ _%result61471%_)))))) - (let ((_%__match8746887469%_ - (lambda (_%__splice8743887439%_ - _%target6164561681%_ - _%tl6164761684%_ - _%e6165261687%_ - _%hd6165361691%_ - _%tl6165461694%_ - _%e6165561697%_ - _%hd6165661701%_ - _%tl6165761704%_) - (letrec ((_%loop6164861707%_ - (lambda (_%hd6164661711%_) + (_%loop62620%_ + _%g6268762774%_ + (cons _%g6268962777%_ + (cons _%g6269062778%_ + _%result62625%_)))))) + (let ((_%__match8841588416%_ + (lambda (_%__splice8838588386%_ + _%target6279962835%_ + _%tl6280162838%_ + _%e6280662841%_ + _%hd6280762845%_ + _%tl6280862848%_ + _%e6280962851%_ + _%hd6281062855%_ + _%tl6281162858%_) + (letrec ((_%loop6280262861%_ + (lambda (_%hd6280062865%_) (if (gx#stx-pair? - _%hd6164661711%_) - (let ((_%e6164961715%_ + _%hd6280062865%_) + (let ((_%e6280362869%_ (gx#syntax-e - _%hd6164661711%_))) - (let ((_%lp-tl6165161722%_ + _%hd6280062865%_))) + (let ((_%lp-tl6280562876%_ (let () (declare (not safe)) - (##cdr _%e6164961715%_))) - (_%lp-hd6165061719%_ + (##cdr _%e6280362869%_))) + (_%lp-hd6280462873%_ (let () (declare (not safe)) - (##car _%e6164961715%_)))) - (_%loop6164861707%_ - _%lp-tl6165161722%_))) - (_%__kont8743687437%_ - _%hd6165661701%_))))) - (_%loop6164861707%_ - _%target6164561681%_))))) - (if (gx#stx-pair/null? _%__stx8743387434%_) - (if (let ((__tmp91875 - (gx#stx-length _%__stx8743387434%_))) + (##car _%e6280362869%_)))) + (_%loop6280262861%_ + _%lp-tl6280562876%_))) + (_%__kont8838388384%_ + _%hd6281062855%_))))) + (_%loop6280262861%_ + _%target6279962835%_))))) + (if (gx#stx-pair/null? _%__stx8838088381%_) + (if (let ((__tmp92738 + (gx#stx-length _%__stx8838088381%_))) (declare (not safe)) - (##fx>= __tmp91875 '2)) - (let ((_%__splice8743887439%_ + (##fx>= __tmp92738 '2)) + (let ((_%__splice8838588386%_ (gx#syntax-split-splice->vector - _%__stx8743387434%_ + _%__stx8838088381%_ '2))) - (let ((_%tl6164761684%_ + (let ((_%tl6280162838%_ (let () (declare (not safe)) (##vector-ref - _%__splice8743887439%_ + _%__splice8838588386%_ '1))) - (_%target6164561681%_ + (_%target6279962835%_ (let () (declare (not safe)) (##vector-ref - _%__splice8743887439%_ + _%__splice8838588386%_ '0)))) - (if (gx#stx-pair? _%tl6164761684%_) - (let ((_%e6165261687%_ + (if (gx#stx-pair? _%tl6280162838%_) + (let ((_%e6280662841%_ (gx#syntax-e - _%tl6164761684%_))) - (let ((_%tl6165461694%_ + _%tl6280162838%_))) + (let ((_%tl6280862848%_ (let () (declare (not safe)) - (##cdr _%e6165261687%_))) - (_%hd6165361691%_ + (##cdr _%e6280662841%_))) + (_%hd6280762845%_ (let () (declare (not safe)) - (##car _%e6165261687%_)))) + (##car _%e6280662841%_)))) (if (gx#identifier? - _%hd6165361691%_) + _%hd6280762845%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91876_| - _%hd6165361691%_) + |gerbil/core/contract~Interface[1]#_g92739_| + _%hd6280762845%_) (if (gx#stx-pair? - _%tl6165461694%_) - (let ((_%e6165561697%_ + _%tl6280862848%_) + (let ((_%e6280962851%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6165461694%_))) - (let ((_%tl6165761704%_ + (gx#syntax-e _%tl6280862848%_))) + (let ((_%tl6281162858%_ (let () (declare (not safe)) - (##cdr _%e6165561697%_))) - (_%hd6165661701%_ + (##cdr _%e6280962851%_))) + (_%hd6281062855%_ (let () (declare (not safe)) - (##car _%e6165561697%_)))) - (if (gx#stx-null? _%tl6165761704%_) - (_%__match8746887469%_ - _%__splice8743887439%_ - _%target6164561681%_ - _%tl6164761684%_ - _%e6165261687%_ - _%hd6165361691%_ - _%tl6165461694%_ - _%e6165561697%_ - _%hd6165661701%_ - _%tl6165761704%_) - (_%__kont8744087441%_)))) - (_%__kont8744087441%_)) - (_%__kont8744087441%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8744087441%_)))) - (_%__kont8744087441%_)))) - (_%__kont8744087441%_)) - (_%__kont8744087441%_))))))) - (_%__kont8752487525%_ - (lambda (_%L61570%_) - (foldl cons _%L61570%_ _%result61471%_))) - (_%__kont8752687527%_ - (lambda () (reverse! _%result61471%_)))) - (let* ((_%g6147861583%_ + (##car _%e6280962851%_)))) + (if (gx#stx-null? _%tl6281162858%_) + (_%__match8841588416%_ + _%__splice8838588386%_ + _%target6279962835%_ + _%tl6280162838%_ + _%e6280662841%_ + _%hd6280762845%_ + _%tl6280862848%_ + _%e6280962851%_ + _%hd6281062855%_ + _%tl6281162858%_) + (_%__kont8838788388%_)))) + (_%__kont8838788388%_)) + (_%__kont8838788388%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8838788388%_)))) + (_%__kont8838788388%_)))) + (_%__kont8838788388%_)) + (_%__kont8838788388%_))))))) + (_%__kont8847188472%_ + (lambda (_%g6270062724%_) + (foldl cons _%g6270062724%_ _%result62625%_))) + (_%__kont8847388474%_ + (lambda () (reverse! _%result62625%_)))) + (let* ((_%g6263262737%_ (lambda () - (let ((_%L61570%_ _%__stx8750987510%_)) - (if (gx#identifier? _%L61570%_) - (_%__kont8752487525%_ _%L61570%_) - (_%__kont8752687527%_))))) - (_%__match8762287623%_ - (lambda (_%e6153761590%_ - _%hd6153861594%_ - _%tl6153961597%_ - _%e6154061600%_ - _%hd6154161604%_ - _%tl6154261607%_ - _%e6154361610%_ - _%hd6154461614%_ - _%tl6154561617%_) - (let ((_%L61620%_ _%tl6154261607%_) - (_%L61622%_ _%tl6154561617%_) - (_%L61623%_ _%hd6154461614%_) - (_%L61624%_ _%hd6153861594%_)) - (if (and (gx#stx-keyword? _%L61624%_) - (gx#identifier? _%L61623%_) + (let ((_%g6270062724%_ _%__stx8845688457%_)) + (if (gx#identifier? _%g6270062724%_) + (_%__kont8847188472%_ _%g6270062724%_) + (_%__kont8847388474%_))))) + (_%__match8856988570%_ + (lambda (_%e6269162744%_ + _%hd6269262748%_ + _%tl6269362751%_ + _%e6269462754%_ + _%hd6269562758%_ + _%tl6269662761%_ + _%e6269762764%_ + _%hd6269862768%_ + _%tl6269962771%_) + (let ((_%g6268762774%_ _%tl6269662761%_) + (_%g6268862776%_ _%tl6269962771%_) + (_%g6268962777%_ _%hd6269862768%_) + (_%g6269062778%_ _%hd6269262748%_)) + (if (and (gx#stx-keyword? _%g6269062778%_) + (gx#identifier? _%g6268962777%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L61622%_)) - (_%__kont8752287523%_ - _%L61620%_ - _%L61622%_ - _%L61623%_ - _%L61624%_) + _%g6268862776%_)) + (_%__kont8846988470%_ + _%g6268762774%_ + _%g6268862776%_ + _%g6268962777%_ + _%g6269062778%_) (let () (declare (not safe)) - (_%g6147861583%_)))))) - (_%__match8760487605%_ - (lambda (_%e6152161757%_ - _%hd6152261761%_ - _%tl6152361764%_ - _%e6152461767%_ - _%hd6152561771%_ - _%tl6152661774%_ - _%e6152761777%_ - _%hd6152861781%_ - _%tl6152961784%_ - _%e6153061787%_ - _%hd6153161791%_ - _%tl6153261794%_) - (let ((_%L61797%_ _%tl6152661774%_) - (_%L61799%_ _%hd6153161791%_) - (_%L61800%_ _%hd6152861781%_) - (_%L61801%_ _%hd6152261761%_)) - (if (and (gx#stx-keyword? _%L61801%_) - (gx#identifier? _%L61800%_)) - (_%__kont8752087521%_ - _%L61797%_ - _%L61799%_ - _%L61800%_ - _%L61801%_) - (_%__match8762287623%_ - _%e6152161757%_ - _%hd6152261761%_ - _%tl6152361764%_ - _%e6152461767%_ - _%hd6152561771%_ - _%tl6152661774%_ - _%e6152761777%_ - _%hd6152861781%_ - _%tl6152961784%_))))) - (_%__match8757887579%_ - (lambda (_%e6151161827%_ - _%hd6151261831%_ - _%tl6151361834%_ - _%e6151461837%_ - _%hd6151561841%_ - _%tl6151661844%_) - (let ((_%L61847%_ _%tl6151661844%_) - (_%L61849%_ _%hd6151561841%_) - (_%L61850%_ _%hd6151261831%_)) - (if (and (gx#stx-keyword? _%L61850%_) - (gx#identifier? _%L61849%_)) - (_%__kont8751887519%_ - _%L61847%_ - _%L61849%_ - _%L61850%_) - (if (gx#stx-pair? _%hd6151561841%_) - (let ((_%e6152761777%_ - (gx#syntax-e _%hd6151561841%_))) - (let ((_%tl6152961784%_ + (_%g6263262737%_)))))) + (_%__match8855188552%_ + (lambda (_%e6267562911%_ + _%hd6267662915%_ + _%tl6267762918%_ + _%e6267862921%_ + _%hd6267962925%_ + _%tl6268062928%_ + _%e6268162931%_ + _%hd6268262935%_ + _%tl6268362938%_ + _%e6268462941%_ + _%hd6268562945%_ + _%tl6268662948%_) + (let ((_%g6267162951%_ _%tl6268062928%_) + (_%g6267262953%_ _%hd6268562945%_) + (_%g6267362954%_ _%hd6268262935%_) + (_%g6267462955%_ _%hd6267662915%_)) + (if (and (gx#stx-keyword? _%g6267462955%_) + (gx#identifier? _%g6267362954%_)) + (_%__kont8846788468%_ + _%g6267162951%_ + _%g6267262953%_ + _%g6267362954%_ + _%g6267462955%_) + (_%__match8856988570%_ + _%e6267562911%_ + _%hd6267662915%_ + _%tl6267762918%_ + _%e6267862921%_ + _%hd6267962925%_ + _%tl6268062928%_ + _%e6268162931%_ + _%hd6268262935%_ + _%tl6268362938%_))))) + (_%__match8852588526%_ + (lambda (_%e6266562981%_ + _%hd6266662985%_ + _%tl6266762988%_ + _%e6266862991%_ + _%hd6266962995%_ + _%tl6267062998%_) + (let ((_%g6266263001%_ _%tl6267062998%_) + (_%g6266363003%_ _%hd6266962995%_) + (_%g6266463004%_ _%hd6266662985%_)) + (if (and (gx#stx-keyword? _%g6266463004%_) + (gx#identifier? _%g6266363003%_)) + (_%__kont8846588466%_ + _%g6266263001%_ + _%g6266363003%_ + _%g6266463004%_) + (if (gx#stx-pair? _%hd6266962995%_) + (let ((_%e6268162931%_ + (gx#syntax-e _%hd6266962995%_))) + (let ((_%tl6268362938%_ (let () (declare (not safe)) - (##cdr _%e6152761777%_))) - (_%hd6152861781%_ + (##cdr _%e6268162931%_))) + (_%hd6268262935%_ (let () (declare (not safe)) - (##car _%e6152761777%_)))) - (if (gx#stx-pair? _%tl6152961784%_) - (let ((_%e6153061787%_ + (##car _%e6268162931%_)))) + (if (gx#stx-pair? _%tl6268362938%_) + (let ((_%e6268462941%_ (gx#syntax-e - _%tl6152961784%_))) - (let ((_%tl6153261794%_ + _%tl6268362938%_))) + (let ((_%tl6268662948%_ (let () (declare (not safe)) - (##cdr _%e6153061787%_))) - (_%hd6153161791%_ + (##cdr _%e6268462941%_))) + (_%hd6268562945%_ (let () (declare (not safe)) - (##car _%e6153061787%_)))) + (##car _%e6268462941%_)))) (if (gx#stx-null? - _%tl6153261794%_) - (_%__match8760487605%_ - _%e6151161827%_ - _%hd6151261831%_ - _%tl6151361834%_ - _%e6151461837%_ - _%hd6151561841%_ - _%tl6151661844%_ - _%e6152761777%_ - _%hd6152861781%_ - _%tl6152961784%_ - _%e6153061787%_ - _%hd6153161791%_ - _%tl6153261794%_) - (_%__match8762287623%_ - _%e6151161827%_ - _%hd6151261831%_ - _%tl6151361834%_ - _%e6151461837%_ - _%hd6151561841%_ - _%tl6151661844%_ - _%e6152761777%_ - _%hd6152861781%_ - _%tl6152961784%_)))) - (_%__match8762287623%_ - _%e6151161827%_ - _%hd6151261831%_ - _%tl6151361834%_ - _%e6151461837%_ - _%hd6151561841%_ - _%tl6151661844%_ - _%e6152761777%_ - _%hd6152861781%_ - _%tl6152961784%_)))) + _%tl6268662948%_) + (_%__match8855188552%_ + _%e6266562981%_ + _%hd6266662985%_ + _%tl6266762988%_ + _%e6266862991%_ + _%hd6266962995%_ + _%tl6267062998%_ + _%e6268162931%_ + _%hd6268262935%_ + _%tl6268362938%_ + _%e6268462941%_ + _%hd6268562945%_ + _%tl6268662948%_) + (_%__match8856988570%_ + _%e6266562981%_ + _%hd6266662985%_ + _%tl6266762988%_ + _%e6266862991%_ + _%hd6266962995%_ + _%tl6267062998%_ + _%e6268162931%_ + _%hd6268262935%_ + _%tl6268362938%_)))) + (_%__match8856988570%_ + _%e6266562981%_ + _%hd6266662985%_ + _%tl6266762988%_ + _%e6266862991%_ + _%hd6266962995%_ + _%tl6267062998%_ + _%e6268162931%_ + _%hd6268262935%_ + _%tl6268362938%_)))) (let () (declare (not safe)) - (_%g6147861583%_))))))) - (_%__match8756687567%_ - (lambda (_%e6150261871%_ - _%hd6150361875%_ - _%tl6150461878%_ - _%e6150561881%_ - _%hd6150661885%_ - _%tl6150761888%_) - (let ((_%L61891%_ _%tl6150461878%_) - (_%L61893%_ _%tl6150761888%_) - (_%L61894%_ _%hd6150661885%_)) - (if (and (gx#identifier? _%L61894%_) + (_%g6263262737%_))))))) + (_%__match8851388514%_ + (lambda (_%e6265663025%_ + _%hd6265763029%_ + _%tl6265863032%_ + _%e6265963035%_ + _%hd6266063039%_ + _%tl6266163042%_) + (let ((_%g6265363045%_ _%tl6265863032%_) + (_%g6265463047%_ _%tl6266163042%_) + (_%g6265563048%_ _%hd6266063039%_)) + (if (and (gx#identifier? _%g6265563048%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L61893%_)) - (_%__kont8751687517%_ - _%L61891%_ - _%L61893%_ - _%L61894%_) - (if (gx#stx-pair? _%tl6150461878%_) - (let ((_%e6151461837%_ - (gx#syntax-e _%tl6150461878%_))) - (let ((_%tl6151661844%_ + _%g6265463047%_)) + (_%__kont8846388464%_ + _%g6265363045%_ + _%g6265463047%_ + _%g6265563048%_) + (if (gx#stx-pair? _%tl6265863032%_) + (let ((_%e6266862991%_ + (gx#syntax-e _%tl6265863032%_))) + (let ((_%tl6267062998%_ (let () (declare (not safe)) - (##cdr _%e6151461837%_))) - (_%hd6151561841%_ + (##cdr _%e6266862991%_))) + (_%hd6266962995%_ (let () (declare (not safe)) - (##car _%e6151461837%_)))) - (_%__match8757887579%_ - _%e6150261871%_ - _%hd6150361875%_ - _%tl6150461878%_ - _%e6151461837%_ - _%hd6151561841%_ - _%tl6151661844%_))) + (##car _%e6266862991%_)))) + (_%__match8852588526%_ + _%e6265663025%_ + _%hd6265763029%_ + _%tl6265863032%_ + _%e6266862991%_ + _%hd6266962995%_ + _%tl6267062998%_))) (let () (declare (not safe)) - (_%g6147861583%_))))))) - (_%__match8755487555%_ - (lambda (_%e6149062024%_ - _%hd6149162028%_ - _%tl6149262031%_ - _%e6149362034%_ - _%hd6149462038%_ - _%tl6149562041%_ - _%e6149662044%_ - _%hd6149762048%_ - _%tl6149862051%_) - (let ((_%L62054%_ _%tl6149262031%_) - (_%L62056%_ _%hd6149762048%_) - (_%L62057%_ _%hd6149462038%_)) - (if (gx#identifier? _%L62057%_) - (_%__kont8751487515%_ - _%L62054%_ - _%L62056%_ - _%L62057%_) - (_%__match8756687567%_ - _%e6149062024%_ - _%hd6149162028%_ - _%tl6149262031%_ - _%e6149362034%_ - _%hd6149462038%_ - _%tl6149562041%_))))) - (_%__match8753487535%_ - (lambda (_%e6148462080%_ - _%hd6148562084%_ - _%tl6148662087%_) - (let ((_%L62090%_ _%tl6148662087%_) - (_%L62092%_ _%hd6148562084%_)) - (if (gx#identifier? _%L62092%_) - (_%__kont8751287513%_ _%L62090%_ _%L62092%_) - (if (gx#stx-pair? _%hd6148562084%_) - (let ((_%e6149362034%_ - (gx#syntax-e _%hd6148562084%_))) - (let ((_%tl6149562041%_ + (_%g6263262737%_))))))) + (_%__match8850188502%_ + (lambda (_%e6264463178%_ + _%hd6264563182%_ + _%tl6264663185%_ + _%e6264763188%_ + _%hd6264863192%_ + _%tl6264963195%_ + _%e6265063198%_ + _%hd6265163202%_ + _%tl6265263205%_) + (let ((_%g6264163208%_ _%tl6264663185%_) + (_%g6264263210%_ _%hd6265163202%_) + (_%g6264363211%_ _%hd6264863192%_)) + (if (gx#identifier? _%g6264363211%_) + (_%__kont8846188462%_ + _%g6264163208%_ + _%g6264263210%_ + _%g6264363211%_) + (_%__match8851388514%_ + _%e6264463178%_ + _%hd6264563182%_ + _%tl6264663185%_ + _%e6264763188%_ + _%hd6264863192%_ + _%tl6264963195%_))))) + (_%__match8848188482%_ + (lambda (_%e6263863234%_ + _%hd6263963238%_ + _%tl6264063241%_) + (let ((_%g6263663244%_ _%tl6264063241%_) + (_%g6263763246%_ _%hd6263963238%_)) + (if (gx#identifier? _%g6263763246%_) + (_%__kont8845988460%_ + _%g6263663244%_ + _%g6263763246%_) + (if (gx#stx-pair? _%hd6263963238%_) + (let ((_%e6264763188%_ + (gx#syntax-e _%hd6263963238%_))) + (let ((_%tl6264963195%_ (let () (declare (not safe)) - (##cdr _%e6149362034%_))) - (_%hd6149462038%_ + (##cdr _%e6264763188%_))) + (_%hd6264863192%_ (let () (declare (not safe)) - (##car _%e6149362034%_)))) - (if (gx#stx-pair? _%tl6149562041%_) - (let ((_%e6149662044%_ + (##car _%e6264763188%_)))) + (if (gx#stx-pair? _%tl6264963195%_) + (let ((_%e6265063198%_ (gx#syntax-e - _%tl6149562041%_))) - (let ((_%tl6149862051%_ + _%tl6264963195%_))) + (let ((_%tl6265263205%_ (let () (declare (not safe)) - (##cdr _%e6149662044%_))) - (_%hd6149762048%_ + (##cdr _%e6265063198%_))) + (_%hd6265163202%_ (let () (declare (not safe)) - (##car _%e6149662044%_)))) + (##car _%e6265063198%_)))) (if (gx#stx-null? - _%tl6149862051%_) - (_%__match8755487555%_ - _%e6148462080%_ - _%hd6148562084%_ - _%tl6148662087%_ - _%e6149362034%_ - _%hd6149462038%_ - _%tl6149562041%_ - _%e6149662044%_ - _%hd6149762048%_ - _%tl6149862051%_) - (_%__match8756687567%_ - _%e6148462080%_ - _%hd6148562084%_ - _%tl6148662087%_ - _%e6149362034%_ - _%hd6149462038%_ - _%tl6149562041%_)))) - (_%__match8756687567%_ - _%e6148462080%_ - _%hd6148562084%_ - _%tl6148662087%_ - _%e6149362034%_ - _%hd6149462038%_ - _%tl6149562041%_)))) - (if (gx#stx-pair? _%tl6148662087%_) - (let ((_%e6151461837%_ - (gx#syntax-e _%tl6148662087%_))) - (let ((_%tl6151661844%_ + _%tl6265263205%_) + (_%__match8850188502%_ + _%e6263863234%_ + _%hd6263963238%_ + _%tl6264063241%_ + _%e6264763188%_ + _%hd6264863192%_ + _%tl6264963195%_ + _%e6265063198%_ + _%hd6265163202%_ + _%tl6265263205%_) + (_%__match8851388514%_ + _%e6263863234%_ + _%hd6263963238%_ + _%tl6264063241%_ + _%e6264763188%_ + _%hd6264863192%_ + _%tl6264963195%_)))) + (_%__match8851388514%_ + _%e6263863234%_ + _%hd6263963238%_ + _%tl6264063241%_ + _%e6264763188%_ + _%hd6264863192%_ + _%tl6264963195%_)))) + (if (gx#stx-pair? _%tl6264063241%_) + (let ((_%e6266862991%_ + (gx#syntax-e _%tl6264063241%_))) + (let ((_%tl6267062998%_ (let () (declare (not safe)) - (##cdr _%e6151461837%_))) - (_%hd6151561841%_ + (##cdr _%e6266862991%_))) + (_%hd6266962995%_ (let () (declare (not safe)) - (##car _%e6151461837%_)))) - (_%__match8757887579%_ - _%e6148462080%_ - _%hd6148562084%_ - _%tl6148662087%_ - _%e6151461837%_ - _%hd6151561841%_ - _%tl6151661844%_))) + (##car _%e6266862991%_)))) + (_%__match8852588526%_ + _%e6263863234%_ + _%hd6263963238%_ + _%tl6264063241%_ + _%e6266862991%_ + _%hd6266962995%_ + _%tl6267062998%_))) (let () (declare (not safe)) - (_%g6147861583%_))))))))) - (if (gx#stx-pair? _%__stx8750987510%_) - (let ((_%e6148462080%_ (gx#syntax-e _%__stx8750987510%_))) - (let ((_%tl6148662087%_ + (_%g6263262737%_))))))))) + (if (gx#stx-pair? _%__stx8845688457%_) + (let ((_%e6263863234%_ (gx#syntax-e _%__stx8845688457%_))) + (let ((_%tl6264063241%_ (let () (declare (not safe)) - (##cdr _%e6148462080%_))) - (_%hd6148562084%_ + (##cdr _%e6263863234%_))) + (_%hd6263963238%_ (let () (declare (not safe)) - (##car _%e6148462080%_)))) - (_%__match8753487535%_ - _%e6148462080%_ - _%hd6148562084%_ - _%tl6148662087%_))) - (let () (declare (not safe)) (_%g6147861583%_))))))))) + (##car _%e6263863234%_)))) + (_%__match8848188482%_ + _%e6263863234%_ + _%hd6263963238%_ + _%tl6264063241%_))) + (let () (declare (not safe)) (_%g6263262737%_))))))))) (define |gerbil/core/contract~Interface[1]#signature-arguments-out| - (lambda (_%signature61040%_) - (let _%loop61043%_ ((_%rest61046%_ _%signature61040%_) - (_%result61048%_ '())) - (let* ((_%__stx8762587626%_ _%rest61046%_) - (_%g6105761128%_ + (lambda (_%signature62194%_) + (let _%loop62197%_ ((_%rest62200%_ _%signature62194%_) + (_%result62202%_ '())) + (let* ((_%__stx8857288573%_ _%rest62200%_) + (_%g6221162282%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8762587626%_)))) - (let ((_%__kont8762887629%_ - (lambda (_%L61446%_ _%L61448%_) - (_%loop61043%_ - _%L61446%_ - (cons _%L61448%_ _%result61048%_)))) - (_%__kont8763087631%_ - (lambda (_%L61412%_ _%L61414%_) - (_%loop61043%_ - _%L61412%_ - (cons _%L61414%_ _%result61048%_)))) - (_%__kont8763287633%_ - (lambda (_%L61358%_ _%L61360%_ _%L61361%_) - (_%loop61043%_ - _%L61358%_ - (cons _%L61361%_ _%result61048%_)))) - (_%__kont8763487635%_ - (lambda (_%L61314%_ _%L61316%_ _%L61317%_) - (_%loop61043%_ - _%L61314%_ - (cons _%L61316%_ (cons _%L61317%_ _%result61048%_))))) - (_%__kont8763687637%_ - (lambda (_%L61264%_ _%L61266%_ _%L61267%_ _%L61268%_) - (_%loop61043%_ - _%L61264%_ - (cons _%L61267%_ (cons _%L61268%_ _%result61048%_))))) - (_%__kont8763887639%_ - (lambda (_%L61196%_ _%L61198%_ _%L61199%_ _%L61200%_) - (_%loop61043%_ - _%L61196%_ - (cons _%L61199%_ (cons _%L61200%_ _%result61048%_))))) - (_%__kont8764087641%_ - (lambda (_%L61146%_) - (foldl cons (cons _%L61146%_ '()) _%result61048%_))) - (_%__kont8764287643%_ - (lambda () (reverse! _%result61048%_)))) - (let* ((_%g6105561159%_ + _%__stx8857288573%_)))) + (let ((_%__kont8857588576%_ + (lambda (_%g6221362600%_ _%g6221462602%_) + (_%loop62197%_ + _%g6221362600%_ + (cons _%g6221462602%_ _%result62202%_)))) + (_%__kont8857788578%_ + (lambda (_%g6221862566%_ _%g6221962568%_) + (_%loop62197%_ + _%g6221862566%_ + (cons _%g6221962568%_ _%result62202%_)))) + (_%__kont8857988580%_ + (lambda (_%g6222962512%_ _%g6223062514%_ _%g6223162515%_) + (_%loop62197%_ + _%g6222962512%_ + (cons _%g6223162515%_ _%result62202%_)))) + (_%__kont8858188582%_ + (lambda (_%g6223862468%_ _%g6223962470%_ _%g6224062471%_) + (_%loop62197%_ + _%g6223862468%_ + (cons _%g6223962470%_ + (cons _%g6224062471%_ _%result62202%_))))) + (_%__kont8858388584%_ + (lambda (_%g6224762418%_ + _%g6224862420%_ + _%g6224962421%_ + _%g6225062422%_) + (_%loop62197%_ + _%g6224762418%_ + (cons _%g6224962421%_ + (cons _%g6225062422%_ _%result62202%_))))) + (_%__kont8858588586%_ + (lambda (_%g6226362350%_ + _%g6226462352%_ + _%g6226562353%_ + _%g6226662354%_) + (_%loop62197%_ + _%g6226362350%_ + (cons _%g6226562353%_ + (cons _%g6226662354%_ _%result62202%_))))) + (_%__kont8858788588%_ + (lambda (_%g6227662300%_) + (foldl cons (cons _%g6227662300%_ '()) _%result62202%_))) + (_%__kont8858988590%_ + (lambda () (reverse! _%result62202%_)))) + (let* ((_%g6220962313%_ (lambda () - (let ((_%L61146%_ _%__stx8762587626%_)) - (if (gx#identifier? _%L61146%_) - (_%__kont8764087641%_ _%L61146%_) - (_%__kont8764287643%_))))) - (_%__match8773887739%_ - (lambda (_%e6111361166%_ - _%hd6111461170%_ - _%tl6111561173%_ - _%e6111661176%_ - _%hd6111761180%_ - _%tl6111861183%_ - _%e6111961186%_ - _%hd6112061190%_ - _%tl6112161193%_) - (let ((_%L61196%_ _%tl6111861183%_) - (_%L61198%_ _%tl6112161193%_) - (_%L61199%_ _%hd6112061190%_) - (_%L61200%_ _%hd6111461170%_)) - (if (and (gx#stx-keyword? _%L61200%_) - (gx#identifier? _%L61199%_) + (let ((_%g6227662300%_ _%__stx8857288573%_)) + (if (gx#identifier? _%g6227662300%_) + (_%__kont8858788588%_ _%g6227662300%_) + (_%__kont8858988590%_))))) + (_%__match8868588686%_ + (lambda (_%e6226762320%_ + _%hd6226862324%_ + _%tl6226962327%_ + _%e6227062330%_ + _%hd6227162334%_ + _%tl6227262337%_ + _%e6227362340%_ + _%hd6227462344%_ + _%tl6227562347%_) + (let ((_%g6226362350%_ _%tl6227262337%_) + (_%g6226462352%_ _%tl6227562347%_) + (_%g6226562353%_ _%hd6227462344%_) + (_%g6226662354%_ _%hd6226862324%_)) + (if (and (gx#stx-keyword? _%g6226662354%_) + (gx#identifier? _%g6226562353%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L61198%_)) - (_%__kont8763887639%_ - _%L61196%_ - _%L61198%_ - _%L61199%_ - _%L61200%_) + _%g6226462352%_)) + (_%__kont8858588586%_ + _%g6226362350%_ + _%g6226462352%_ + _%g6226562353%_ + _%g6226662354%_) (let () (declare (not safe)) - (_%g6105561159%_)))))) - (_%__match8772087721%_ - (lambda (_%e6109761224%_ - _%hd6109861228%_ - _%tl6109961231%_ - _%e6110061234%_ - _%hd6110161238%_ - _%tl6110261241%_ - _%e6110361244%_ - _%hd6110461248%_ - _%tl6110561251%_ - _%e6110661254%_ - _%hd6110761258%_ - _%tl6110861261%_) - (let ((_%L61264%_ _%tl6110261241%_) - (_%L61266%_ _%hd6110761258%_) - (_%L61267%_ _%hd6110461248%_) - (_%L61268%_ _%hd6109861228%_)) - (if (and (gx#stx-keyword? _%L61268%_) - (gx#identifier? _%L61267%_)) - (_%__kont8763687637%_ - _%L61264%_ - _%L61266%_ - _%L61267%_ - _%L61268%_) - (_%__match8773887739%_ - _%e6109761224%_ - _%hd6109861228%_ - _%tl6109961231%_ - _%e6110061234%_ - _%hd6110161238%_ - _%tl6110261241%_ - _%e6110361244%_ - _%hd6110461248%_ - _%tl6110561251%_))))) - (_%__match8769487695%_ - (lambda (_%e6108761294%_ - _%hd6108861298%_ - _%tl6108961301%_ - _%e6109061304%_ - _%hd6109161308%_ - _%tl6109261311%_) - (let ((_%L61314%_ _%tl6109261311%_) - (_%L61316%_ _%hd6109161308%_) - (_%L61317%_ _%hd6108861298%_)) - (if (and (gx#stx-keyword? _%L61317%_) - (gx#identifier? _%L61316%_)) - (_%__kont8763487635%_ - _%L61314%_ - _%L61316%_ - _%L61317%_) - (if (gx#stx-pair? _%hd6109161308%_) - (let ((_%e6110361244%_ - (gx#syntax-e _%hd6109161308%_))) - (let ((_%tl6110561251%_ + (_%g6220962313%_)))))) + (_%__match8866788668%_ + (lambda (_%e6225162378%_ + _%hd6225262382%_ + _%tl6225362385%_ + _%e6225462388%_ + _%hd6225562392%_ + _%tl6225662395%_ + _%e6225762398%_ + _%hd6225862402%_ + _%tl6225962405%_ + _%e6226062408%_ + _%hd6226162412%_ + _%tl6226262415%_) + (let ((_%g6224762418%_ _%tl6225662395%_) + (_%g6224862420%_ _%hd6226162412%_) + (_%g6224962421%_ _%hd6225862402%_) + (_%g6225062422%_ _%hd6225262382%_)) + (if (and (gx#stx-keyword? _%g6225062422%_) + (gx#identifier? _%g6224962421%_)) + (_%__kont8858388584%_ + _%g6224762418%_ + _%g6224862420%_ + _%g6224962421%_ + _%g6225062422%_) + (_%__match8868588686%_ + _%e6225162378%_ + _%hd6225262382%_ + _%tl6225362385%_ + _%e6225462388%_ + _%hd6225562392%_ + _%tl6225662395%_ + _%e6225762398%_ + _%hd6225862402%_ + _%tl6225962405%_))))) + (_%__match8864188642%_ + (lambda (_%e6224162448%_ + _%hd6224262452%_ + _%tl6224362455%_ + _%e6224462458%_ + _%hd6224562462%_ + _%tl6224662465%_) + (let ((_%g6223862468%_ _%tl6224662465%_) + (_%g6223962470%_ _%hd6224562462%_) + (_%g6224062471%_ _%hd6224262452%_)) + (if (and (gx#stx-keyword? _%g6224062471%_) + (gx#identifier? _%g6223962470%_)) + (_%__kont8858188582%_ + _%g6223862468%_ + _%g6223962470%_ + _%g6224062471%_) + (if (gx#stx-pair? _%hd6224562462%_) + (let ((_%e6225762398%_ + (gx#syntax-e _%hd6224562462%_))) + (let ((_%tl6225962405%_ (let () (declare (not safe)) - (##cdr _%e6110361244%_))) - (_%hd6110461248%_ + (##cdr _%e6225762398%_))) + (_%hd6225862402%_ (let () (declare (not safe)) - (##car _%e6110361244%_)))) - (if (gx#stx-pair? _%tl6110561251%_) - (let ((_%e6110661254%_ + (##car _%e6225762398%_)))) + (if (gx#stx-pair? _%tl6225962405%_) + (let ((_%e6226062408%_ (gx#syntax-e - _%tl6110561251%_))) - (let ((_%tl6110861261%_ + _%tl6225962405%_))) + (let ((_%tl6226262415%_ (let () (declare (not safe)) - (##cdr _%e6110661254%_))) - (_%hd6110761258%_ + (##cdr _%e6226062408%_))) + (_%hd6226162412%_ (let () (declare (not safe)) - (##car _%e6110661254%_)))) + (##car _%e6226062408%_)))) (if (gx#stx-null? - _%tl6110861261%_) - (_%__match8772087721%_ - _%e6108761294%_ - _%hd6108861298%_ - _%tl6108961301%_ - _%e6109061304%_ - _%hd6109161308%_ - _%tl6109261311%_ - _%e6110361244%_ - _%hd6110461248%_ - _%tl6110561251%_ - _%e6110661254%_ - _%hd6110761258%_ - _%tl6110861261%_) - (_%__match8773887739%_ - _%e6108761294%_ - _%hd6108861298%_ - _%tl6108961301%_ - _%e6109061304%_ - _%hd6109161308%_ - _%tl6109261311%_ - _%e6110361244%_ - _%hd6110461248%_ - _%tl6110561251%_)))) - (_%__match8773887739%_ - _%e6108761294%_ - _%hd6108861298%_ - _%tl6108961301%_ - _%e6109061304%_ - _%hd6109161308%_ - _%tl6109261311%_ - _%e6110361244%_ - _%hd6110461248%_ - _%tl6110561251%_)))) + _%tl6226262415%_) + (_%__match8866788668%_ + _%e6224162448%_ + _%hd6224262452%_ + _%tl6224362455%_ + _%e6224462458%_ + _%hd6224562462%_ + _%tl6224662465%_ + _%e6225762398%_ + _%hd6225862402%_ + _%tl6225962405%_ + _%e6226062408%_ + _%hd6226162412%_ + _%tl6226262415%_) + (_%__match8868588686%_ + _%e6224162448%_ + _%hd6224262452%_ + _%tl6224362455%_ + _%e6224462458%_ + _%hd6224562462%_ + _%tl6224662465%_ + _%e6225762398%_ + _%hd6225862402%_ + _%tl6225962405%_)))) + (_%__match8868588686%_ + _%e6224162448%_ + _%hd6224262452%_ + _%tl6224362455%_ + _%e6224462458%_ + _%hd6224562462%_ + _%tl6224662465%_ + _%e6225762398%_ + _%hd6225862402%_ + _%tl6225962405%_)))) (let () (declare (not safe)) - (_%g6105561159%_))))))) - (_%__match8768287683%_ - (lambda (_%e6107861338%_ - _%hd6107961342%_ - _%tl6108061345%_ - _%e6108161348%_ - _%hd6108261352%_ - _%tl6108361355%_) - (let ((_%L61358%_ _%tl6108061345%_) - (_%L61360%_ _%tl6108361355%_) - (_%L61361%_ _%hd6108261352%_)) - (if (and (gx#identifier? _%L61361%_) + (_%g6220962313%_))))))) + (_%__match8862988630%_ + (lambda (_%e6223262492%_ + _%hd6223362496%_ + _%tl6223462499%_ + _%e6223562502%_ + _%hd6223662506%_ + _%tl6223762509%_) + (let ((_%g6222962512%_ _%tl6223462499%_) + (_%g6223062514%_ _%tl6223762509%_) + (_%g6223162515%_ _%hd6223662506%_)) + (if (and (gx#identifier? _%g6223162515%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L61360%_)) - (_%__kont8763287633%_ - _%L61358%_ - _%L61360%_ - _%L61361%_) - (if (gx#stx-pair? _%tl6108061345%_) - (let ((_%e6109061304%_ - (gx#syntax-e _%tl6108061345%_))) - (let ((_%tl6109261311%_ + _%g6223062514%_)) + (_%__kont8857988580%_ + _%g6222962512%_ + _%g6223062514%_ + _%g6223162515%_) + (if (gx#stx-pair? _%tl6223462499%_) + (let ((_%e6224462458%_ + (gx#syntax-e _%tl6223462499%_))) + (let ((_%tl6224662465%_ (let () (declare (not safe)) - (##cdr _%e6109061304%_))) - (_%hd6109161308%_ + (##cdr _%e6224462458%_))) + (_%hd6224562462%_ (let () (declare (not safe)) - (##car _%e6109061304%_)))) - (_%__match8769487695%_ - _%e6107861338%_ - _%hd6107961342%_ - _%tl6108061345%_ - _%e6109061304%_ - _%hd6109161308%_ - _%tl6109261311%_))) + (##car _%e6224462458%_)))) + (_%__match8864188642%_ + _%e6223262492%_ + _%hd6223362496%_ + _%tl6223462499%_ + _%e6224462458%_ + _%hd6224562462%_ + _%tl6224662465%_))) (let () (declare (not safe)) - (_%g6105561159%_))))))) - (_%__match8767087671%_ - (lambda (_%e6106661382%_ - _%hd6106761386%_ - _%tl6106861389%_ - _%e6106961392%_ - _%hd6107061396%_ - _%tl6107161399%_ - _%e6107261402%_ - _%hd6107361406%_ - _%tl6107461409%_) - (let ((_%L61412%_ _%tl6106861389%_) - (_%L61414%_ _%hd6107061396%_)) - (if (gx#identifier? _%L61414%_) - (_%__kont8763087631%_ _%L61412%_ _%L61414%_) - (_%__match8768287683%_ - _%e6106661382%_ - _%hd6106761386%_ - _%tl6106861389%_ - _%e6106961392%_ - _%hd6107061396%_ - _%tl6107161399%_))))) - (_%__match8765087651%_ - (lambda (_%e6106161436%_ - _%hd6106261440%_ - _%tl6106361443%_) - (let ((_%L61446%_ _%tl6106361443%_) - (_%L61448%_ _%hd6106261440%_)) - (if (gx#identifier? _%L61448%_) - (_%__kont8762887629%_ _%L61446%_ _%L61448%_) - (if (gx#stx-pair? _%hd6106261440%_) - (let ((_%e6106961392%_ - (gx#syntax-e _%hd6106261440%_))) - (let ((_%tl6107161399%_ + (_%g6220962313%_))))))) + (_%__match8861788618%_ + (lambda (_%e6222062536%_ + _%hd6222162540%_ + _%tl6222262543%_ + _%e6222362546%_ + _%hd6222462550%_ + _%tl6222562553%_ + _%e6222662556%_ + _%hd6222762560%_ + _%tl6222862563%_) + (let ((_%g6221862566%_ _%tl6222262543%_) + (_%g6221962568%_ _%hd6222462550%_)) + (if (gx#identifier? _%g6221962568%_) + (_%__kont8857788578%_ + _%g6221862566%_ + _%g6221962568%_) + (_%__match8862988630%_ + _%e6222062536%_ + _%hd6222162540%_ + _%tl6222262543%_ + _%e6222362546%_ + _%hd6222462550%_ + _%tl6222562553%_))))) + (_%__match8859788598%_ + (lambda (_%e6221562590%_ + _%hd6221662594%_ + _%tl6221762597%_) + (let ((_%g6221362600%_ _%tl6221762597%_) + (_%g6221462602%_ _%hd6221662594%_)) + (if (gx#identifier? _%g6221462602%_) + (_%__kont8857588576%_ + _%g6221362600%_ + _%g6221462602%_) + (if (gx#stx-pair? _%hd6221662594%_) + (let ((_%e6222362546%_ + (gx#syntax-e _%hd6221662594%_))) + (let ((_%tl6222562553%_ (let () (declare (not safe)) - (##cdr _%e6106961392%_))) - (_%hd6107061396%_ + (##cdr _%e6222362546%_))) + (_%hd6222462550%_ (let () (declare (not safe)) - (##car _%e6106961392%_)))) - (if (gx#stx-pair? _%tl6107161399%_) - (let ((_%e6107261402%_ + (##car _%e6222362546%_)))) + (if (gx#stx-pair? _%tl6222562553%_) + (let ((_%e6222662556%_ (gx#syntax-e - _%tl6107161399%_))) - (let ((_%tl6107461409%_ + _%tl6222562553%_))) + (let ((_%tl6222862563%_ (let () (declare (not safe)) - (##cdr _%e6107261402%_))) - (_%hd6107361406%_ + (##cdr _%e6222662556%_))) + (_%hd6222762560%_ (let () (declare (not safe)) - (##car _%e6107261402%_)))) + (##car _%e6222662556%_)))) (if (gx#stx-null? - _%tl6107461409%_) - (_%__match8767087671%_ - _%e6106161436%_ - _%hd6106261440%_ - _%tl6106361443%_ - _%e6106961392%_ - _%hd6107061396%_ - _%tl6107161399%_ - _%e6107261402%_ - _%hd6107361406%_ - _%tl6107461409%_) - (_%__match8768287683%_ - _%e6106161436%_ - _%hd6106261440%_ - _%tl6106361443%_ - _%e6106961392%_ - _%hd6107061396%_ - _%tl6107161399%_)))) - (_%__match8768287683%_ - _%e6106161436%_ - _%hd6106261440%_ - _%tl6106361443%_ - _%e6106961392%_ - _%hd6107061396%_ - _%tl6107161399%_)))) - (if (gx#stx-pair? _%tl6106361443%_) - (let ((_%e6109061304%_ - (gx#syntax-e _%tl6106361443%_))) - (let ((_%tl6109261311%_ + _%tl6222862563%_) + (_%__match8861788618%_ + _%e6221562590%_ + _%hd6221662594%_ + _%tl6221762597%_ + _%e6222362546%_ + _%hd6222462550%_ + _%tl6222562553%_ + _%e6222662556%_ + _%hd6222762560%_ + _%tl6222862563%_) + (_%__match8862988630%_ + _%e6221562590%_ + _%hd6221662594%_ + _%tl6221762597%_ + _%e6222362546%_ + _%hd6222462550%_ + _%tl6222562553%_)))) + (_%__match8862988630%_ + _%e6221562590%_ + _%hd6221662594%_ + _%tl6221762597%_ + _%e6222362546%_ + _%hd6222462550%_ + _%tl6222562553%_)))) + (if (gx#stx-pair? _%tl6221762597%_) + (let ((_%e6224462458%_ + (gx#syntax-e _%tl6221762597%_))) + (let ((_%tl6224662465%_ (let () (declare (not safe)) - (##cdr _%e6109061304%_))) - (_%hd6109161308%_ + (##cdr _%e6224462458%_))) + (_%hd6224562462%_ (let () (declare (not safe)) - (##car _%e6109061304%_)))) - (_%__match8769487695%_ - _%e6106161436%_ - _%hd6106261440%_ - _%tl6106361443%_ - _%e6109061304%_ - _%hd6109161308%_ - _%tl6109261311%_))) + (##car _%e6224462458%_)))) + (_%__match8864188642%_ + _%e6221562590%_ + _%hd6221662594%_ + _%tl6221762597%_ + _%e6224462458%_ + _%hd6224562462%_ + _%tl6224662465%_))) (let () (declare (not safe)) - (_%g6105561159%_))))))))) - (if (gx#stx-pair? _%__stx8762587626%_) - (let ((_%e6106161436%_ (gx#syntax-e _%__stx8762587626%_))) - (let ((_%tl6106361443%_ + (_%g6220962313%_))))))))) + (if (gx#stx-pair? _%__stx8857288573%_) + (let ((_%e6221562590%_ (gx#syntax-e _%__stx8857288573%_))) + (let ((_%tl6221762597%_ (let () (declare (not safe)) - (##cdr _%e6106161436%_))) - (_%hd6106261440%_ + (##cdr _%e6221562590%_))) + (_%hd6221662594%_ (let () (declare (not safe)) - (##car _%e6106161436%_)))) - (_%__match8765087651%_ - _%e6106161436%_ - _%hd6106261440%_ - _%tl6106361443%_))) - (let () (declare (not safe)) (_%g6105561159%_))))))))) + (##car _%e6221562590%_)))) + (_%__match8859788598%_ + _%e6221562590%_ + _%hd6221662594%_ + _%tl6221762597%_))) + (let () (declare (not safe)) (_%g6220962313%_))))))))) (define |gerbil/core/contract~Interface[1]#signature-has-keywords?| - (lambda (_%signature60633%_) - (let _%loop60636%_ ((_%rest60639%_ _%signature60633%_)) - (let* ((_%__stx8774187742%_ _%rest60639%_) - (_%g6064860719%_ + (lambda (_%signature61787%_) + (let _%loop61790%_ ((_%rest61793%_ _%signature61787%_)) + (let* ((_%__stx8868888689%_ _%rest61793%_) + (_%g6180261873%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8774187742%_)))) - (let ((_%__kont8774487745%_ - (lambda (_%L61023%_ _%L61025%_) (_%loop60636%_ _%L61023%_))) - (_%__kont8774687747%_ - (lambda (_%L60987%_ _%L60989%_ _%L60990%_) - (_%loop60636%_ _%L60987%_))) - (_%__kont8774887749%_ - (lambda (_%L60933%_ _%L60935%_ _%L60936%_) - (_%loop60636%_ _%L60933%_))) - (_%__kont8775087751%_ - (lambda (_%L60889%_ _%L60891%_ _%L60892%_) '#t)) - (_%__kont8775287753%_ - (lambda (_%L60839%_ _%L60841%_ _%L60842%_ _%L60843%_) '#t)) - (_%__kont8775487755%_ - (lambda (_%L60767%_ _%L60769%_ _%L60770%_ _%L60771%_) '#t)) - (_%__kont8775687757%_ (lambda () '#f))) - (let* ((_%__match8785287853%_ - (lambda (_%e6070560737%_ - _%hd6070660741%_ - _%tl6070760744%_ - _%e6070860747%_ - _%hd6070960751%_ - _%tl6071060754%_ - _%e6071160757%_ - _%hd6071260761%_ - _%tl6071360764%_) - (let ((_%L60767%_ _%tl6071060754%_) - (_%L60769%_ _%tl6071360764%_) - (_%L60770%_ _%hd6071260761%_) - (_%L60771%_ _%hd6070660741%_)) - (if (and (gx#stx-keyword? _%L60771%_) - (gx#identifier? _%L60770%_) + _%__stx8868888689%_)))) + (let ((_%__kont8869188692%_ + (lambda (_%g6180462177%_ _%g6180562179%_) + (_%loop61790%_ _%g6180462177%_))) + (_%__kont8869388694%_ + (lambda (_%g6180962141%_ _%g6181062143%_ _%g6181162144%_) + (_%loop61790%_ _%g6180962141%_))) + (_%__kont8869588696%_ + (lambda (_%g6182162087%_ _%g6182262089%_ _%g6182362090%_) + (_%loop61790%_ _%g6182162087%_))) + (_%__kont8869788698%_ + (lambda (_%g6183062043%_ _%g6183162045%_ _%g6183262046%_) + '#t)) + (_%__kont8869988700%_ + (lambda (_%g6183961993%_ + _%g6184061995%_ + _%g6184161996%_ + _%g6184261997%_) + '#t)) + (_%__kont8870188702%_ + (lambda (_%g6185561921%_ + _%g6185661923%_ + _%g6185761924%_ + _%g6185861925%_) + '#t)) + (_%__kont8870388704%_ (lambda () '#f))) + (let* ((_%__match8879988800%_ + (lambda (_%e6185961891%_ + _%hd6186061895%_ + _%tl6186161898%_ + _%e6186261901%_ + _%hd6186361905%_ + _%tl6186461908%_ + _%e6186561911%_ + _%hd6186661915%_ + _%tl6186761918%_) + (let ((_%g6185561921%_ _%tl6186461908%_) + (_%g6185661923%_ _%tl6186761918%_) + (_%g6185761924%_ _%hd6186661915%_) + (_%g6185861925%_ _%hd6186061895%_)) + (if (and (gx#stx-keyword? _%g6185861925%_) + (gx#identifier? _%g6185761924%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L60769%_)) - (_%__kont8775487755%_ - _%L60767%_ - _%L60769%_ - _%L60770%_ - _%L60771%_) - (_%__kont8775687757%_))))) - (_%__match8783487835%_ - (lambda (_%e6068960799%_ - _%hd6069060803%_ - _%tl6069160806%_ - _%e6069260809%_ - _%hd6069360813%_ - _%tl6069460816%_ - _%e6069560819%_ - _%hd6069660823%_ - _%tl6069760826%_ - _%e6069860829%_ - _%hd6069960833%_ - _%tl6070060836%_) - (let ((_%L60839%_ _%tl6069460816%_) - (_%L60841%_ _%hd6069960833%_) - (_%L60842%_ _%hd6069660823%_) - (_%L60843%_ _%hd6069060803%_)) - (if (and (gx#stx-keyword? _%L60843%_) - (gx#identifier? _%L60842%_)) - (_%__kont8775287753%_ - _%L60839%_ - _%L60841%_ - _%L60842%_ - _%L60843%_) - (_%__match8785287853%_ - _%e6068960799%_ - _%hd6069060803%_ - _%tl6069160806%_ - _%e6069260809%_ - _%hd6069360813%_ - _%tl6069460816%_ - _%e6069560819%_ - _%hd6069660823%_ - _%tl6069760826%_))))) - (_%__match8780887809%_ - (lambda (_%e6067960869%_ - _%hd6068060873%_ - _%tl6068160876%_ - _%e6068260879%_ - _%hd6068360883%_ - _%tl6068460886%_) - (let ((_%L60889%_ _%tl6068460886%_) - (_%L60891%_ _%hd6068360883%_) - (_%L60892%_ _%hd6068060873%_)) - (if (and (gx#stx-keyword? _%L60892%_) - (gx#identifier? _%L60891%_)) - (_%__kont8775087751%_ - _%L60889%_ - _%L60891%_ - _%L60892%_) - (if (gx#stx-pair? _%hd6068360883%_) - (let ((_%e6069560819%_ - (gx#syntax-e _%hd6068360883%_))) - (let ((_%tl6069760826%_ + _%g6185661923%_)) + (_%__kont8870188702%_ + _%g6185561921%_ + _%g6185661923%_ + _%g6185761924%_ + _%g6185861925%_) + (_%__kont8870388704%_))))) + (_%__match8878188782%_ + (lambda (_%e6184361953%_ + _%hd6184461957%_ + _%tl6184561960%_ + _%e6184661963%_ + _%hd6184761967%_ + _%tl6184861970%_ + _%e6184961973%_ + _%hd6185061977%_ + _%tl6185161980%_ + _%e6185261983%_ + _%hd6185361987%_ + _%tl6185461990%_) + (let ((_%g6183961993%_ _%tl6184861970%_) + (_%g6184061995%_ _%hd6185361987%_) + (_%g6184161996%_ _%hd6185061977%_) + (_%g6184261997%_ _%hd6184461957%_)) + (if (and (gx#stx-keyword? _%g6184261997%_) + (gx#identifier? _%g6184161996%_)) + (_%__kont8869988700%_ + _%g6183961993%_ + _%g6184061995%_ + _%g6184161996%_ + _%g6184261997%_) + (_%__match8879988800%_ + _%e6184361953%_ + _%hd6184461957%_ + _%tl6184561960%_ + _%e6184661963%_ + _%hd6184761967%_ + _%tl6184861970%_ + _%e6184961973%_ + _%hd6185061977%_ + _%tl6185161980%_))))) + (_%__match8875588756%_ + (lambda (_%e6183362023%_ + _%hd6183462027%_ + _%tl6183562030%_ + _%e6183662033%_ + _%hd6183762037%_ + _%tl6183862040%_) + (let ((_%g6183062043%_ _%tl6183862040%_) + (_%g6183162045%_ _%hd6183762037%_) + (_%g6183262046%_ _%hd6183462027%_)) + (if (and (gx#stx-keyword? _%g6183262046%_) + (gx#identifier? _%g6183162045%_)) + (_%__kont8869788698%_ + _%g6183062043%_ + _%g6183162045%_ + _%g6183262046%_) + (if (gx#stx-pair? _%hd6183762037%_) + (let ((_%e6184961973%_ + (gx#syntax-e _%hd6183762037%_))) + (let ((_%tl6185161980%_ (let () (declare (not safe)) - (##cdr _%e6069560819%_))) - (_%hd6069660823%_ + (##cdr _%e6184961973%_))) + (_%hd6185061977%_ (let () (declare (not safe)) - (##car _%e6069560819%_)))) - (if (gx#stx-pair? _%tl6069760826%_) - (let ((_%e6069860829%_ + (##car _%e6184961973%_)))) + (if (gx#stx-pair? _%tl6185161980%_) + (let ((_%e6185261983%_ (gx#syntax-e - _%tl6069760826%_))) - (let ((_%tl6070060836%_ + _%tl6185161980%_))) + (let ((_%tl6185461990%_ (let () (declare (not safe)) - (##cdr _%e6069860829%_))) - (_%hd6069960833%_ + (##cdr _%e6185261983%_))) + (_%hd6185361987%_ (let () (declare (not safe)) - (##car _%e6069860829%_)))) + (##car _%e6185261983%_)))) (if (gx#stx-null? - _%tl6070060836%_) - (_%__match8783487835%_ - _%e6067960869%_ - _%hd6068060873%_ - _%tl6068160876%_ - _%e6068260879%_ - _%hd6068360883%_ - _%tl6068460886%_ - _%e6069560819%_ - _%hd6069660823%_ - _%tl6069760826%_ - _%e6069860829%_ - _%hd6069960833%_ - _%tl6070060836%_) - (_%__match8785287853%_ - _%e6067960869%_ - _%hd6068060873%_ - _%tl6068160876%_ - _%e6068260879%_ - _%hd6068360883%_ - _%tl6068460886%_ - _%e6069560819%_ - _%hd6069660823%_ - _%tl6069760826%_)))) - (_%__match8785287853%_ - _%e6067960869%_ - _%hd6068060873%_ - _%tl6068160876%_ - _%e6068260879%_ - _%hd6068360883%_ - _%tl6068460886%_ - _%e6069560819%_ - _%hd6069660823%_ - _%tl6069760826%_)))) - (_%__kont8775687757%_)))))) - (_%__match8779687797%_ - (lambda (_%e6067060913%_ - _%hd6067160917%_ - _%tl6067260920%_ - _%e6067360923%_ - _%hd6067460927%_ - _%tl6067560930%_) - (let ((_%L60933%_ _%tl6067260920%_) - (_%L60935%_ _%tl6067560930%_) - (_%L60936%_ _%hd6067460927%_)) - (if (and (gx#identifier? _%L60936%_) + _%tl6185461990%_) + (_%__match8878188782%_ + _%e6183362023%_ + _%hd6183462027%_ + _%tl6183562030%_ + _%e6183662033%_ + _%hd6183762037%_ + _%tl6183862040%_ + _%e6184961973%_ + _%hd6185061977%_ + _%tl6185161980%_ + _%e6185261983%_ + _%hd6185361987%_ + _%tl6185461990%_) + (_%__match8879988800%_ + _%e6183362023%_ + _%hd6183462027%_ + _%tl6183562030%_ + _%e6183662033%_ + _%hd6183762037%_ + _%tl6183862040%_ + _%e6184961973%_ + _%hd6185061977%_ + _%tl6185161980%_)))) + (_%__match8879988800%_ + _%e6183362023%_ + _%hd6183462027%_ + _%tl6183562030%_ + _%e6183662033%_ + _%hd6183762037%_ + _%tl6183862040%_ + _%e6184961973%_ + _%hd6185061977%_ + _%tl6185161980%_)))) + (_%__kont8870388704%_)))))) + (_%__match8874388744%_ + (lambda (_%e6182462067%_ + _%hd6182562071%_ + _%tl6182662074%_ + _%e6182762077%_ + _%hd6182862081%_ + _%tl6182962084%_) + (let ((_%g6182162087%_ _%tl6182662074%_) + (_%g6182262089%_ _%tl6182962084%_) + (_%g6182362090%_ _%hd6182862081%_)) + (if (and (gx#identifier? _%g6182362090%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L60935%_)) - (_%__kont8774887749%_ - _%L60933%_ - _%L60935%_ - _%L60936%_) - (if (gx#stx-pair? _%tl6067260920%_) - (let ((_%e6068260879%_ - (gx#syntax-e _%tl6067260920%_))) - (let ((_%tl6068460886%_ + _%g6182262089%_)) + (_%__kont8869588696%_ + _%g6182162087%_ + _%g6182262089%_ + _%g6182362090%_) + (if (gx#stx-pair? _%tl6182662074%_) + (let ((_%e6183662033%_ + (gx#syntax-e _%tl6182662074%_))) + (let ((_%tl6183862040%_ (let () (declare (not safe)) - (##cdr _%e6068260879%_))) - (_%hd6068360883%_ + (##cdr _%e6183662033%_))) + (_%hd6183762037%_ (let () (declare (not safe)) - (##car _%e6068260879%_)))) - (_%__match8780887809%_ - _%e6067060913%_ - _%hd6067160917%_ - _%tl6067260920%_ - _%e6068260879%_ - _%hd6068360883%_ - _%tl6068460886%_))) - (_%__kont8775687757%_)))))) - (_%__match8778487785%_ - (lambda (_%e6065860957%_ - _%hd6065960961%_ - _%tl6066060964%_ - _%e6066160967%_ - _%hd6066260971%_ - _%tl6066360974%_ - _%e6066460977%_ - _%hd6066560981%_ - _%tl6066660984%_) - (let ((_%L60987%_ _%tl6066060964%_) - (_%L60989%_ _%hd6066560981%_) - (_%L60990%_ _%hd6066260971%_)) - (if (gx#identifier? _%L60990%_) - (_%__kont8774687747%_ - _%L60987%_ - _%L60989%_ - _%L60990%_) - (_%__match8779687797%_ - _%e6065860957%_ - _%hd6065960961%_ - _%tl6066060964%_ - _%e6066160967%_ - _%hd6066260971%_ - _%tl6066360974%_))))) - (_%__match8776487765%_ - (lambda (_%e6065261013%_ - _%hd6065361017%_ - _%tl6065461020%_) - (let ((_%L61023%_ _%tl6065461020%_) - (_%L61025%_ _%hd6065361017%_)) - (if (gx#identifier? _%L61025%_) - (_%__kont8774487745%_ _%L61023%_ _%L61025%_) - (if (gx#stx-pair? _%hd6065361017%_) - (let ((_%e6066160967%_ - (gx#syntax-e _%hd6065361017%_))) - (let ((_%tl6066360974%_ + (##car _%e6183662033%_)))) + (_%__match8875588756%_ + _%e6182462067%_ + _%hd6182562071%_ + _%tl6182662074%_ + _%e6183662033%_ + _%hd6183762037%_ + _%tl6183862040%_))) + (_%__kont8870388704%_)))))) + (_%__match8873188732%_ + (lambda (_%e6181262111%_ + _%hd6181362115%_ + _%tl6181462118%_ + _%e6181562121%_ + _%hd6181662125%_ + _%tl6181762128%_ + _%e6181862131%_ + _%hd6181962135%_ + _%tl6182062138%_) + (let ((_%g6180962141%_ _%tl6181462118%_) + (_%g6181062143%_ _%hd6181962135%_) + (_%g6181162144%_ _%hd6181662125%_)) + (if (gx#identifier? _%g6181162144%_) + (_%__kont8869388694%_ + _%g6180962141%_ + _%g6181062143%_ + _%g6181162144%_) + (_%__match8874388744%_ + _%e6181262111%_ + _%hd6181362115%_ + _%tl6181462118%_ + _%e6181562121%_ + _%hd6181662125%_ + _%tl6181762128%_))))) + (_%__match8871188712%_ + (lambda (_%e6180662167%_ + _%hd6180762171%_ + _%tl6180862174%_) + (let ((_%g6180462177%_ _%tl6180862174%_) + (_%g6180562179%_ _%hd6180762171%_)) + (if (gx#identifier? _%g6180562179%_) + (_%__kont8869188692%_ + _%g6180462177%_ + _%g6180562179%_) + (if (gx#stx-pair? _%hd6180762171%_) + (let ((_%e6181562121%_ + (gx#syntax-e _%hd6180762171%_))) + (let ((_%tl6181762128%_ (let () (declare (not safe)) - (##cdr _%e6066160967%_))) - (_%hd6066260971%_ + (##cdr _%e6181562121%_))) + (_%hd6181662125%_ (let () (declare (not safe)) - (##car _%e6066160967%_)))) - (if (gx#stx-pair? _%tl6066360974%_) - (let ((_%e6066460977%_ + (##car _%e6181562121%_)))) + (if (gx#stx-pair? _%tl6181762128%_) + (let ((_%e6181862131%_ (gx#syntax-e - _%tl6066360974%_))) - (let ((_%tl6066660984%_ + _%tl6181762128%_))) + (let ((_%tl6182062138%_ (let () (declare (not safe)) - (##cdr _%e6066460977%_))) - (_%hd6066560981%_ + (##cdr _%e6181862131%_))) + (_%hd6181962135%_ (let () (declare (not safe)) - (##car _%e6066460977%_)))) + (##car _%e6181862131%_)))) (if (gx#stx-null? - _%tl6066660984%_) - (_%__match8778487785%_ - _%e6065261013%_ - _%hd6065361017%_ - _%tl6065461020%_ - _%e6066160967%_ - _%hd6066260971%_ - _%tl6066360974%_ - _%e6066460977%_ - _%hd6066560981%_ - _%tl6066660984%_) - (_%__match8779687797%_ - _%e6065261013%_ - _%hd6065361017%_ - _%tl6065461020%_ - _%e6066160967%_ - _%hd6066260971%_ - _%tl6066360974%_)))) - (_%__match8779687797%_ - _%e6065261013%_ - _%hd6065361017%_ - _%tl6065461020%_ - _%e6066160967%_ - _%hd6066260971%_ - _%tl6066360974%_)))) - (if (gx#stx-pair? _%tl6065461020%_) - (let ((_%e6068260879%_ - (gx#syntax-e _%tl6065461020%_))) - (let ((_%tl6068460886%_ + _%tl6182062138%_) + (_%__match8873188732%_ + _%e6180662167%_ + _%hd6180762171%_ + _%tl6180862174%_ + _%e6181562121%_ + _%hd6181662125%_ + _%tl6181762128%_ + _%e6181862131%_ + _%hd6181962135%_ + _%tl6182062138%_) + (_%__match8874388744%_ + _%e6180662167%_ + _%hd6180762171%_ + _%tl6180862174%_ + _%e6181562121%_ + _%hd6181662125%_ + _%tl6181762128%_)))) + (_%__match8874388744%_ + _%e6180662167%_ + _%hd6180762171%_ + _%tl6180862174%_ + _%e6181562121%_ + _%hd6181662125%_ + _%tl6181762128%_)))) + (if (gx#stx-pair? _%tl6180862174%_) + (let ((_%e6183662033%_ + (gx#syntax-e _%tl6180862174%_))) + (let ((_%tl6183862040%_ (let () (declare (not safe)) - (##cdr _%e6068260879%_))) - (_%hd6068360883%_ + (##cdr _%e6183662033%_))) + (_%hd6183762037%_ (let () (declare (not safe)) - (##car _%e6068260879%_)))) - (_%__match8780887809%_ - _%e6065261013%_ - _%hd6065361017%_ - _%tl6065461020%_ - _%e6068260879%_ - _%hd6068360883%_ - _%tl6068460886%_))) - (_%__kont8775687757%_)))))))) - (if (gx#stx-pair? _%__stx8774187742%_) - (let ((_%e6065261013%_ (gx#syntax-e _%__stx8774187742%_))) - (let ((_%tl6065461020%_ + (##car _%e6183662033%_)))) + (_%__match8875588756%_ + _%e6180662167%_ + _%hd6180762171%_ + _%tl6180862174%_ + _%e6183662033%_ + _%hd6183762037%_ + _%tl6183862040%_))) + (_%__kont8870388704%_)))))))) + (if (gx#stx-pair? _%__stx8868888689%_) + (let ((_%e6180662167%_ (gx#syntax-e _%__stx8868888689%_))) + (let ((_%tl6180862174%_ (let () (declare (not safe)) - (##cdr _%e6065261013%_))) - (_%hd6065361017%_ + (##cdr _%e6180662167%_))) + (_%hd6180762171%_ (let () (declare (not safe)) - (##car _%e6065261013%_)))) - (_%__match8776487765%_ - _%e6065261013%_ - _%hd6065361017%_ - _%tl6065461020%_))) - (_%__kont8775687757%_)))))))) + (##car _%e6180662167%_)))) + (_%__match8871188712%_ + _%e6180662167%_ + _%hd6180762171%_ + _%tl6180862174%_))) + (_%__kont8870388704%_)))))))) (define |gerbil/core/contract~Interface[1]#make-interface-method-lambda-signature| - (lambda (_%stx60622%_ - _%self60624%_ - _%Interface60625%_ - _%signature60626%_ - _%return60627%_ - _%unchecked-proc60628%_) - (if (gx#stx-e _%unchecked-proc60628%_) + (lambda (_%stx61776%_ + _%self61778%_ + _%Interface61779%_ + _%signature61780%_ + _%return61781%_ + _%unchecked-proc61782%_) + (if (gx#stx-e _%unchecked-proc61782%_) (|gerbil/core/contract~Interface[1]#make-procedure-lambda-signature| - _%stx60622%_ - (cons (cons _%self60624%_ (cons ': (cons _%Interface60625%_ '()))) - _%signature60626%_) - _%return60627%_ - _%unchecked-proc60628%_) - (let ((_%return-type60630%_ + _%stx61776%_ + (cons (cons _%self61778%_ (cons ': (cons _%Interface61779%_ '()))) + _%signature61780%_) + _%return61781%_ + _%unchecked-proc61782%_) + (let ((_%return-type61784%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx60622%_ - _%return60627%_)))) - (cons 'return: (cons _%return-type60630%_ '())))))) + _%stx61776%_ + _%return61781%_)))) + (cons 'return: (cons _%return-type61784%_ '())))))) (define |gerbil/core/contract~Interface[1]#make-interface-method-contract| - (lambda (_%stx60615%_ - _%self60617%_ - _%Interface60618%_ - _%signature60619%_ - _%checked?60620%_) + (lambda (_%stx61769%_ + _%self61771%_ + _%Interface61772%_ + _%signature61773%_ + _%checked?61774%_) (|gerbil/core/contract~Interface[1]#make-procedure-contract| - _%stx60615%_ - (cons (cons _%self60617%_ - (cons (if _%checked?60620%_ ': '::-) - (cons _%Interface60618%_ '()))) - _%signature60619%_) - _%checked?60620%_))) + _%stx61769%_ + (cons (cons _%self61771%_ + (cons (if _%checked?61774%_ ': '::-) + (cons _%Interface61772%_ '()))) + _%signature61773%_) + _%checked?61774%_))) (define |gerbil/core/contract~Interface[1]#make-procedure-lambda-signature| - (lambda (_%stx59854%_ - _%signature59856%_ - _%return59857%_ - _%unchecked59858%_) - (letrec ((_%type-e59860%_ - (lambda (_%contract60304%_) - (let* ((_%__stx8785587856%_ _%contract60304%_) - (_%g6031160366%_ + (lambda (_%stx61008%_ + _%signature61010%_ + _%return61011%_ + _%unchecked61012%_) + (letrec ((_%type-e61014%_ + (lambda (_%contract61458%_) + (let* ((_%__stx8880288803%_ _%contract61458%_) + (_%g6146561520%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8785587856%_)))) - (let ((_%__kont8785887859%_ - (lambda (_%L60596%_ _%L60598%_) + _%__stx8880288803%_)))) + (let ((_%__kont8880588806%_ + (lambda (_%g6146761750%_ _%g6146861752%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx59854%_ - _%L60598%_)))) - (_%__kont8786087861%_ - (lambda (_%L60548%_ _%L60550%_ _%L60551%_) + _%stx61008%_ + _%g6146861752%_)))) + (_%__kont8880788808%_ + (lambda (_%g6147561702%_ + _%g6147661704%_ + _%g6147761705%_) (gx#core-quote-syntax 't::t))) - (_%__kont8786287863%_ - (lambda (_%L60500%_ _%L60502%_ _%L60503%_) + (_%__kont8880988810%_ + (lambda (_%g6148461654%_ + _%g6148561656%_ + _%g6148661657%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx59854%_ - _%L60502%_)))) - (_%__kont8786487865%_ - (lambda (_%L60424%_ - _%L60426%_ - _%L60427%_ - _%L60428%_) + _%stx61008%_ + _%g6148561656%_)))) + (_%__kont8881188812%_ + (lambda (_%g6149961578%_ + _%g6150061580%_ + _%g6150161581%_ + _%g6150261582%_) (gx#core-quote-syntax 't::t))) - (_%__kont8786687867%_ (lambda () '#f))) - (let* ((_%__match8795687957%_ - (lambda (_%e6034960384%_ - _%hd6035060388%_ - _%tl6035160391%_ - _%e6035260394%_ - _%hd6035360398%_ - _%tl6035460401%_ - _%e6035560404%_ - _%hd6035660408%_ - _%tl6035760411%_ - _%e6035860414%_ - _%hd6035960418%_ - _%tl6036060421%_) - (let ((_%L60424%_ _%tl6036060421%_) - (_%L60426%_ _%hd6035960418%_) - (_%L60427%_ _%hd6035660408%_) - (_%L60428%_ _%hd6035360398%_)) - (if (and (gx#identifier? _%L60427%_) + (_%__kont8881388814%_ (lambda () '#f))) + (let* ((_%__match8890388904%_ + (lambda (_%e6150361538%_ + _%hd6150461542%_ + _%tl6150561545%_ + _%e6150661548%_ + _%hd6150761552%_ + _%tl6150861555%_ + _%e6150961558%_ + _%hd6151061562%_ + _%tl6151161565%_ + _%e6151261568%_ + _%hd6151361572%_ + _%tl6151461575%_) + (let ((_%g6149961578%_ _%tl6151461575%_) + (_%g6150061580%_ _%hd6151361572%_) + (_%g6150161581%_ _%hd6151061562%_) + (_%g6150261582%_ _%hd6150761552%_)) + (if (and (gx#identifier? _%g6150161581%_) (or (gx#free-identifier=? - _%L60427%_ + _%g6150161581%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L60427%_ + _%g6150161581%_ (gx#datum->syntax '#f '::-)))) - (_%__kont8786487865%_ - _%L60424%_ - _%L60426%_ - _%L60427%_ - _%L60428%_) - (_%__kont8786687867%_))))) - (_%__match8789687897%_ - (lambda (_%e6032460528%_ - _%hd6032560532%_ - _%tl6032660535%_ - _%e6032760538%_ - _%hd6032860542%_ - _%tl6032960545%_) - (let ((_%L60548%_ _%tl6032960545%_) - (_%L60550%_ _%hd6032860542%_) - (_%L60551%_ _%hd6032560532%_)) - (if (and (gx#identifier? _%L60551%_) + (_%__kont8881188812%_ + _%g6149961578%_ + _%g6150061580%_ + _%g6150161581%_ + _%g6150261582%_) + (_%__kont8881388814%_))))) + (_%__match8884388844%_ + (lambda (_%e6147861682%_ + _%hd6147961686%_ + _%tl6148061689%_ + _%e6148161692%_ + _%hd6148261696%_ + _%tl6148361699%_) + (let ((_%g6147561702%_ _%tl6148361699%_) + (_%g6147661704%_ _%hd6148261696%_) + (_%g6147761705%_ _%hd6147961686%_)) + (if (and (gx#identifier? _%g6147761705%_) (or (gx#free-identifier=? - _%L60551%_ + _%g6147761705%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L60551%_ + _%g6147761705%_ (gx#datum->syntax '#f '::-)))) - (_%__kont8786087861%_ - _%L60548%_ - _%L60550%_ - _%L60551%_) - (if (gx#identifier? _%hd6032560532%_) + (_%__kont8880788808%_ + _%g6147561702%_ + _%g6147661704%_ + _%g6147761705%_) + (if (gx#identifier? _%hd6147961686%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91877_| - _%hd6032560532%_) + |gerbil/core/contract~Interface[1]#_g92740_| + _%hd6147961686%_) (if (gx#stx-pair? - _%tl6032960545%_) - (let ((_%e6033960480%_ + _%tl6148361699%_) + (let ((_%e6149361634%_ (gx#syntax-e - _%tl6032960545%_))) - (let ((_%tl6034160487%_ + _%tl6148361699%_))) + (let ((_%tl6149561641%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6033960480%_))) - (_%hd6034060484%_ - (let () (declare (not safe)) (##car _%e6033960480%_)))) - (if (gx#identifier? _%hd6034060484%_) + (##cdr _%e6149361634%_))) + (_%hd6149461638%_ + (let () (declare (not safe)) (##car _%e6149361634%_)))) + (if (gx#identifier? _%hd6149461638%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91878_| - _%hd6034060484%_) - (if (gx#stx-pair? _%tl6034160487%_) - (let ((_%e6034260490%_ - (gx#syntax-e _%tl6034160487%_))) - (let ((_%tl6034460497%_ + |gerbil/core/contract~Interface[1]#_g92741_| + _%hd6149461638%_) + (if (gx#stx-pair? _%tl6149561641%_) + (let ((_%e6149661644%_ + (gx#syntax-e _%tl6149561641%_))) + (let ((_%tl6149861651%_ (let () (declare (not safe)) - (##cdr _%e6034260490%_))) - (_%hd6034360494%_ + (##cdr _%e6149661644%_))) + (_%hd6149761648%_ (let () (declare (not safe)) - (##car _%e6034260490%_)))) - (_%__kont8786287863%_ - _%tl6034460497%_ - _%hd6034360494%_ - _%hd6032860542%_))) - (_%__kont8786687867%_)) - (if (gx#stx-pair? _%tl6034160487%_) - (let ((_%e6035860414%_ - (gx#syntax-e _%tl6034160487%_))) - (let ((_%tl6036060421%_ + (##car _%e6149661644%_)))) + (_%__kont8880988810%_ + _%tl6149861651%_ + _%hd6149761648%_ + _%hd6148261696%_))) + (_%__kont8881388814%_)) + (if (gx#stx-pair? _%tl6149561641%_) + (let ((_%e6151261568%_ + (gx#syntax-e _%tl6149561641%_))) + (let ((_%tl6151461575%_ (let () (declare (not safe)) - (##cdr _%e6035860414%_))) - (_%hd6035960418%_ + (##cdr _%e6151261568%_))) + (_%hd6151361572%_ (let () (declare (not safe)) - (##car _%e6035860414%_)))) - (_%__match8795687957%_ - _%e6032460528%_ - _%hd6032560532%_ - _%tl6032660535%_ - _%e6032760538%_ - _%hd6032860542%_ - _%tl6032960545%_ - _%e6033960480%_ - _%hd6034060484%_ - _%tl6034160487%_ - _%e6035860414%_ - _%hd6035960418%_ - _%tl6036060421%_))) - (_%__kont8786687867%_))) - (if (gx#stx-pair? _%tl6034160487%_) - (let ((_%e6035860414%_ (gx#syntax-e _%tl6034160487%_))) - (let ((_%tl6036060421%_ + (##car _%e6151261568%_)))) + (_%__match8890388904%_ + _%e6147861682%_ + _%hd6147961686%_ + _%tl6148061689%_ + _%e6148161692%_ + _%hd6148261696%_ + _%tl6148361699%_ + _%e6149361634%_ + _%hd6149461638%_ + _%tl6149561641%_ + _%e6151261568%_ + _%hd6151361572%_ + _%tl6151461575%_))) + (_%__kont8881388814%_))) + (if (gx#stx-pair? _%tl6149561641%_) + (let ((_%e6151261568%_ (gx#syntax-e _%tl6149561641%_))) + (let ((_%tl6151461575%_ (let () (declare (not safe)) - (##cdr _%e6035860414%_))) - (_%hd6035960418%_ + (##cdr _%e6151261568%_))) + (_%hd6151361572%_ (let () (declare (not safe)) - (##car _%e6035860414%_)))) - (_%__match8795687957%_ - _%e6032460528%_ - _%hd6032560532%_ - _%tl6032660535%_ - _%e6032760538%_ - _%hd6032860542%_ - _%tl6032960545%_ - _%e6033960480%_ - _%hd6034060484%_ - _%tl6034160487%_ - _%e6035860414%_ - _%hd6035960418%_ - _%tl6036060421%_))) - (_%__kont8786687867%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8786687867%_)) - (_%__kont8786687867%_)) - (_%__kont8786687867%_))))))) - (if (gx#stx-pair? _%__stx8785587856%_) - (let ((_%e6031560576%_ - (gx#syntax-e _%__stx8785587856%_))) - (let ((_%tl6031760583%_ + (##car _%e6151261568%_)))) + (_%__match8890388904%_ + _%e6147861682%_ + _%hd6147961686%_ + _%tl6148061689%_ + _%e6148161692%_ + _%hd6148261696%_ + _%tl6148361699%_ + _%e6149361634%_ + _%hd6149461638%_ + _%tl6149561641%_ + _%e6151261568%_ + _%hd6151361572%_ + _%tl6151461575%_))) + (_%__kont8881388814%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8881388814%_)) + (_%__kont8881388814%_)) + (_%__kont8881388814%_))))))) + (if (gx#stx-pair? _%__stx8880288803%_) + (let ((_%e6146961730%_ + (gx#syntax-e _%__stx8880288803%_))) + (let ((_%tl6147161737%_ (let () (declare (not safe)) - (##cdr _%e6031560576%_))) - (_%hd6031660580%_ + (##cdr _%e6146961730%_))) + (_%hd6147061734%_ (let () (declare (not safe)) - (##car _%e6031560576%_)))) - (if (gx#identifier? _%hd6031660580%_) + (##car _%e6146961730%_)))) + (if (gx#identifier? _%hd6147061734%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91879_| - _%hd6031660580%_) - (if (gx#stx-pair? _%tl6031760583%_) - (let ((_%e6031860586%_ + |gerbil/core/contract~Interface[1]#_g92742_| + _%hd6147061734%_) + (if (gx#stx-pair? _%tl6147161737%_) + (let ((_%e6147261740%_ (gx#syntax-e - _%tl6031760583%_))) - (let ((_%tl6032060593%_ + _%tl6147161737%_))) + (let ((_%tl6147461747%_ (let () (declare (not safe)) - (##cdr _%e6031860586%_))) - (_%hd6031960590%_ + (##cdr _%e6147261740%_))) + (_%hd6147361744%_ (let () (declare (not safe)) - (##car _%e6031860586%_)))) - (_%__kont8785887859%_ - _%tl6032060593%_ - _%hd6031960590%_))) - (_%__kont8786687867%_)) - (if (gx#stx-pair? _%tl6031760583%_) - (let ((_%e6032760538%_ + (##car _%e6147261740%_)))) + (_%__kont8880588806%_ + _%tl6147461747%_ + _%hd6147361744%_))) + (_%__kont8881388814%_)) + (if (gx#stx-pair? _%tl6147161737%_) + (let ((_%e6148161692%_ (gx#syntax-e - _%tl6031760583%_))) - (let ((_%tl6032960545%_ + _%tl6147161737%_))) + (let ((_%tl6148361699%_ (let () (declare (not safe)) - (##cdr _%e6032760538%_))) - (_%hd6032860542%_ + (##cdr _%e6148161692%_))) + (_%hd6148261696%_ (let () (declare (not safe)) - (##car _%e6032760538%_)))) - (_%__match8789687897%_ - _%e6031560576%_ - _%hd6031660580%_ - _%tl6031760583%_ - _%e6032760538%_ - _%hd6032860542%_ - _%tl6032960545%_))) - (_%__kont8786687867%_))) - (if (gx#stx-pair? _%tl6031760583%_) - (let ((_%e6032760538%_ + (##car _%e6148161692%_)))) + (_%__match8884388844%_ + _%e6146961730%_ + _%hd6147061734%_ + _%tl6147161737%_ + _%e6148161692%_ + _%hd6148261696%_ + _%tl6148361699%_))) + (_%__kont8881388814%_))) + (if (gx#stx-pair? _%tl6147161737%_) + (let ((_%e6148161692%_ (gx#syntax-e - _%tl6031760583%_))) - (let ((_%tl6032960545%_ + _%tl6147161737%_))) + (let ((_%tl6148361699%_ (let () (declare (not safe)) - (##cdr _%e6032760538%_))) - (_%hd6032860542%_ + (##cdr _%e6148161692%_))) + (_%hd6148261696%_ (let () (declare (not safe)) - (##car _%e6032760538%_)))) - (_%__match8789687897%_ - _%e6031560576%_ - _%hd6031660580%_ - _%tl6031760583%_ - _%e6032760538%_ - _%hd6032860542%_ - _%tl6032960545%_))) - (_%__kont8786687867%_))))) - (_%__kont8786687867%_)))))))) - (let _%loop59863%_ ((_%rest59866%_ _%signature59856%_) - (_%has-keywords?59868%_ '#f) - (_%result59869%_ '())) - (let* ((_%__stx8795987960%_ _%rest59866%_) - (_%g5987859948%_ + (##car _%e6148161692%_)))) + (_%__match8884388844%_ + _%e6146961730%_ + _%hd6147061734%_ + _%tl6147161737%_ + _%e6148161692%_ + _%hd6148261696%_ + _%tl6148361699%_))) + (_%__kont8881388814%_))))) + (_%__kont8881388814%_)))))))) + (let _%loop61017%_ ((_%rest61020%_ _%signature61010%_) + (_%has-keywords?61022%_ '#f) + (_%result61023%_ '())) + (let* ((_%__stx8890688907%_ _%rest61020%_) + (_%g6103261102%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8795987960%_)))) - (let ((_%__kont8796287963%_ - (lambda (_%L60287%_ _%L60289%_) - (_%loop59863%_ - _%L60287%_ + _%__stx8890688907%_)))) + (let ((_%__kont8890988910%_ + (lambda (_%g6103461441%_ _%g6103561443%_) + (_%loop61017%_ + _%g6103461441%_ '#f - (cons (gx#core-quote-syntax 't::t) _%result59869%_)))) - (_%__kont8796487965%_ - (lambda (_%L60253%_ _%L60255%_) - (_%loop59863%_ - _%L60253%_ + (cons (gx#core-quote-syntax 't::t) _%result61023%_)))) + (_%__kont8891188912%_ + (lambda (_%g6103961407%_ _%g6104061409%_) + (_%loop61017%_ + _%g6103961407%_ '#f - (cons (gx#core-quote-syntax 't::t) _%result59869%_)))) - (_%__kont8796687967%_ - (lambda (_%L60199%_ _%L60201%_ _%L60202%_) - (_%loop59863%_ - _%L60199%_ + (cons (gx#core-quote-syntax 't::t) _%result61023%_)))) + (_%__kont8891388914%_ + (lambda (_%g6105061353%_ _%g6105161355%_ _%g6105261356%_) + (_%loop61017%_ + _%g6105061353%_ '#f - (cons (_%type-e59860%_ _%L60201%_) _%result59869%_)))) - (_%__kont8796887969%_ - (lambda (_%L60155%_ _%L60157%_ _%L60158%_) - (_%loop59863%_ - _%L60155%_ + (cons (_%type-e61014%_ _%g6105161355%_) + _%result61023%_)))) + (_%__kont8891588916%_ + (lambda (_%g6105961309%_ _%g6106061311%_ _%g6106161312%_) + (_%loop61017%_ + _%g6105961309%_ '#t - (cons (gx#core-quote-syntax 't::t) _%result59869%_)))) - (_%__kont8797087971%_ - (lambda (_%L60107%_ _%L60109%_ _%L60110%_) - (_%loop59863%_ - _%L60107%_ + (cons (gx#core-quote-syntax 't::t) _%result61023%_)))) + (_%__kont8891788918%_ + (lambda (_%g6106861261%_ _%g6106961263%_ _%g6107061264%_) + (_%loop61017%_ + _%g6106861261%_ '#t - (cons (gx#core-quote-syntax 't::t) _%result59869%_)))) - (_%__kont8797287973%_ - (lambda (_%L60039%_ _%L60041%_ _%L60042%_ _%L60043%_) - (_%loop59863%_ - _%L60039%_ + (cons (gx#core-quote-syntax 't::t) _%result61023%_)))) + (_%__kont8891988920%_ + (lambda (_%g6108361193%_ + _%g6108461195%_ + _%g6108561196%_ + _%g6108661197%_) + (_%loop61017%_ + _%g6108361193%_ '#t - (cons (_%type-e59860%_ _%L60041%_) _%result59869%_)))) - (_%__kont8797487975%_ - (lambda (_%L59977%_) - (let* ((_%arguments59991%_ - (if _%has-keywords?59868%_ + (cons (_%type-e61014%_ _%g6108461195%_) + _%result61023%_)))) + (_%__kont8892188922%_ + (lambda (_%g6109661131%_) + (let* ((_%arguments61145%_ + (if _%has-keywords?61022%_ (gx#core-quote-syntax 't::t) (foldl cons (gx#core-quote-syntax 't::t) - _%result59869%_))) - (_%return-type59994%_ + _%result61023%_))) + (_%return-type61148%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx59854%_ - _%return59857%_))) - (_%unchecked59997%_ - (if (not _%has-keywords?59868%_) - (if (gx#stx-e _%unchecked59858%_) + _%stx61008%_ + _%return61011%_))) + (_%unchecked61151%_ + (if (not _%has-keywords?61022%_) + (if (gx#stx-e _%unchecked61012%_) (gx#core-quote-syntax - _%unchecked59858%_) + _%unchecked61012%_) '#f) '#f))) (cons 'arguments: - (cons _%arguments59991%_ + (cons _%arguments61145%_ (cons 'return: - (cons _%return-type59994%_ + (cons _%return-type61148%_ (cons 'unchecked: - (cons _%unchecked59997%_ + (cons _%unchecked61151%_ '()))))))))) - (_%__kont8797687977%_ + (_%__kont8892388924%_ (lambda () - (let* ((_%arguments59959%_ - (if _%has-keywords?59868%_ + (let* ((_%arguments61113%_ + (if _%has-keywords?61022%_ (gx#core-quote-syntax 't::t) - (reverse! _%result59869%_))) - (_%return-type59962%_ + (reverse! _%result61023%_))) + (_%return-type61116%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx59854%_ - _%return59857%_))) - (_%unchecked59965%_ - (if (not _%has-keywords?59868%_) - (if (gx#stx-e _%unchecked59858%_) + _%stx61008%_ + _%return61011%_))) + (_%unchecked61119%_ + (if (not _%has-keywords?61022%_) + (if (gx#stx-e _%unchecked61012%_) (gx#core-quote-syntax - _%unchecked59858%_) + _%unchecked61012%_) '#f) '#f))) (cons 'arguments: - (cons _%arguments59959%_ + (cons _%arguments61113%_ (cons 'return: - (cons _%return-type59962%_ + (cons _%return-type61116%_ (cons 'unchecked: - (cons _%unchecked59965%_ + (cons _%unchecked61119%_ '())))))))))) - (let* ((_%g5987759970%_ + (let* ((_%g6103161124%_ (lambda () - (if (gx#stx-null? _%__stx8795987960%_) - (_%__kont8797687977%_) + (if (gx#stx-null? _%__stx8890688907%_) + (_%__kont8892388924%_) (let () (declare (not safe)) - (_%g5987859948%_))))) - (_%g5987660002%_ + (_%g6103261102%_))))) + (_%g6103061156%_ (lambda () - (let ((_%L59977%_ _%__stx8795987960%_)) - (if (gx#identifier? _%L59977%_) - (_%__kont8797487975%_ _%L59977%_) + (let ((_%g6109661131%_ _%__stx8890688907%_)) + (if (gx#identifier? _%g6109661131%_) + (_%__kont8892188922%_ _%g6109661131%_) (let () (declare (not safe)) - (_%g5987759970%_)))))) - (_%__match8807288073%_ - (lambda (_%e5993360009%_ - _%hd5993460013%_ - _%tl5993560016%_ - _%e5993660019%_ - _%hd5993760023%_ - _%tl5993860026%_ - _%e5993960029%_ - _%hd5994060033%_ - _%tl5994160036%_) - (let ((_%L60039%_ _%tl5993860026%_) - (_%L60041%_ _%tl5994160036%_) - (_%L60042%_ _%hd5994060033%_) - (_%L60043%_ _%hd5993460013%_)) - (if (and (gx#stx-keyword? _%L60043%_) - (gx#identifier? _%L60042%_) + (_%g6103161124%_)))))) + (_%__match8901989020%_ + (lambda (_%e6108761163%_ + _%hd6108861167%_ + _%tl6108961170%_ + _%e6109061173%_ + _%hd6109161177%_ + _%tl6109261180%_ + _%e6109361183%_ + _%hd6109461187%_ + _%tl6109561190%_) + (let ((_%g6108361193%_ _%tl6109261180%_) + (_%g6108461195%_ _%tl6109561190%_) + (_%g6108561196%_ _%hd6109461187%_) + (_%g6108661197%_ _%hd6108861167%_)) + (if (and (gx#stx-keyword? _%g6108661197%_) + (gx#identifier? _%g6108561196%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L60041%_)) - (_%__kont8797287973%_ - _%L60039%_ - _%L60041%_ - _%L60042%_ - _%L60043%_) + _%g6108461195%_)) + (_%__kont8891988920%_ + _%g6108361193%_ + _%g6108461195%_ + _%g6108561196%_ + _%g6108661197%_) (let () (declare (not safe)) - (_%g5987660002%_)))))) - (_%__match8805488055%_ - (lambda (_%e5991760067%_ - _%hd5991860071%_ - _%tl5991960074%_ - _%e5992060077%_ - _%hd5992160081%_ - _%tl5992260084%_ - _%e5992360087%_ - _%hd5992460091%_ - _%tl5992560094%_ - _%e5992660097%_ - _%hd5992760101%_ - _%tl5992860104%_) - (let ((_%L60107%_ _%tl5992260084%_) - (_%L60109%_ _%hd5992460091%_) - (_%L60110%_ _%hd5991860071%_)) - (if (and (gx#stx-keyword? _%L60110%_) - (gx#identifier? _%L60109%_)) - (_%__kont8797087971%_ - _%L60107%_ - _%L60109%_ - _%L60110%_) - (_%__match8807288073%_ - _%e5991760067%_ - _%hd5991860071%_ - _%tl5991960074%_ - _%e5992060077%_ - _%hd5992160081%_ - _%tl5992260084%_ - _%e5992360087%_ - _%hd5992460091%_ - _%tl5992560094%_))))) - (_%__match8802888029%_ - (lambda (_%e5990860135%_ - _%hd5990960139%_ - _%tl5991060142%_ - _%e5991160145%_ - _%hd5991260149%_ - _%tl5991360152%_) - (let ((_%L60155%_ _%tl5991360152%_) - (_%L60157%_ _%hd5991260149%_) - (_%L60158%_ _%hd5990960139%_)) - (if (and (gx#stx-keyword? _%L60158%_) - (gx#identifier? _%L60157%_)) - (_%__kont8796887969%_ - _%L60155%_ - _%L60157%_ - _%L60158%_) - (if (gx#stx-pair? _%hd5991260149%_) - (let ((_%e5992360087%_ - (gx#syntax-e _%hd5991260149%_))) - (let ((_%tl5992560094%_ + (_%g6103061156%_)))))) + (_%__match8900189002%_ + (lambda (_%e6107161221%_ + _%hd6107261225%_ + _%tl6107361228%_ + _%e6107461231%_ + _%hd6107561235%_ + _%tl6107661238%_ + _%e6107761241%_ + _%hd6107861245%_ + _%tl6107961248%_ + _%e6108061251%_ + _%hd6108161255%_ + _%tl6108261258%_) + (let ((_%g6106861261%_ _%tl6107661238%_) + (_%g6106961263%_ _%hd6107861245%_) + (_%g6107061264%_ _%hd6107261225%_)) + (if (and (gx#stx-keyword? _%g6107061264%_) + (gx#identifier? _%g6106961263%_)) + (_%__kont8891788918%_ + _%g6106861261%_ + _%g6106961263%_ + _%g6107061264%_) + (_%__match8901989020%_ + _%e6107161221%_ + _%hd6107261225%_ + _%tl6107361228%_ + _%e6107461231%_ + _%hd6107561235%_ + _%tl6107661238%_ + _%e6107761241%_ + _%hd6107861245%_ + _%tl6107961248%_))))) + (_%__match8897588976%_ + (lambda (_%e6106261289%_ + _%hd6106361293%_ + _%tl6106461296%_ + _%e6106561299%_ + _%hd6106661303%_ + _%tl6106761306%_) + (let ((_%g6105961309%_ _%tl6106761306%_) + (_%g6106061311%_ _%hd6106661303%_) + (_%g6106161312%_ _%hd6106361293%_)) + (if (and (gx#stx-keyword? _%g6106161312%_) + (gx#identifier? _%g6106061311%_)) + (_%__kont8891588916%_ + _%g6105961309%_ + _%g6106061311%_ + _%g6106161312%_) + (if (gx#stx-pair? _%hd6106661303%_) + (let ((_%e6107761241%_ + (gx#syntax-e _%hd6106661303%_))) + (let ((_%tl6107961248%_ (let () (declare (not safe)) - (##cdr _%e5992360087%_))) - (_%hd5992460091%_ + (##cdr _%e6107761241%_))) + (_%hd6107861245%_ (let () (declare (not safe)) - (##car _%e5992360087%_)))) - (if (gx#stx-pair? _%tl5992560094%_) - (let ((_%e5992660097%_ + (##car _%e6107761241%_)))) + (if (gx#stx-pair? _%tl6107961248%_) + (let ((_%e6108061251%_ (gx#syntax-e - _%tl5992560094%_))) - (let ((_%tl5992860104%_ + _%tl6107961248%_))) + (let ((_%tl6108261258%_ (let () (declare (not safe)) - (##cdr _%e5992660097%_))) - (_%hd5992760101%_ + (##cdr _%e6108061251%_))) + (_%hd6108161255%_ (let () (declare (not safe)) - (##car _%e5992660097%_)))) + (##car _%e6108061251%_)))) (if (gx#stx-null? - _%tl5992860104%_) - (_%__match8805488055%_ - _%e5990860135%_ - _%hd5990960139%_ - _%tl5991060142%_ - _%e5991160145%_ - _%hd5991260149%_ - _%tl5991360152%_ - _%e5992360087%_ - _%hd5992460091%_ - _%tl5992560094%_ - _%e5992660097%_ - _%hd5992760101%_ - _%tl5992860104%_) - (_%__match8807288073%_ - _%e5990860135%_ - _%hd5990960139%_ - _%tl5991060142%_ - _%e5991160145%_ - _%hd5991260149%_ - _%tl5991360152%_ - _%e5992360087%_ - _%hd5992460091%_ - _%tl5992560094%_)))) - (_%__match8807288073%_ - _%e5990860135%_ - _%hd5990960139%_ - _%tl5991060142%_ - _%e5991160145%_ - _%hd5991260149%_ - _%tl5991360152%_ - _%e5992360087%_ - _%hd5992460091%_ - _%tl5992560094%_)))) + _%tl6108261258%_) + (_%__match8900189002%_ + _%e6106261289%_ + _%hd6106361293%_ + _%tl6106461296%_ + _%e6106561299%_ + _%hd6106661303%_ + _%tl6106761306%_ + _%e6107761241%_ + _%hd6107861245%_ + _%tl6107961248%_ + _%e6108061251%_ + _%hd6108161255%_ + _%tl6108261258%_) + (_%__match8901989020%_ + _%e6106261289%_ + _%hd6106361293%_ + _%tl6106461296%_ + _%e6106561299%_ + _%hd6106661303%_ + _%tl6106761306%_ + _%e6107761241%_ + _%hd6107861245%_ + _%tl6107961248%_)))) + (_%__match8901989020%_ + _%e6106261289%_ + _%hd6106361293%_ + _%tl6106461296%_ + _%e6106561299%_ + _%hd6106661303%_ + _%tl6106761306%_ + _%e6107761241%_ + _%hd6107861245%_ + _%tl6107961248%_)))) (let () (declare (not safe)) - (_%g5987660002%_))))))) - (_%__match8801688017%_ - (lambda (_%e5989960179%_ - _%hd5990060183%_ - _%tl5990160186%_ - _%e5990260189%_ - _%hd5990360193%_ - _%tl5990460196%_) - (let ((_%L60199%_ _%tl5990160186%_) - (_%L60201%_ _%tl5990460196%_) - (_%L60202%_ _%hd5990360193%_)) - (if (and (gx#identifier? _%L60202%_) + (_%g6103061156%_))))))) + (_%__match8896388964%_ + (lambda (_%e6105361333%_ + _%hd6105461337%_ + _%tl6105561340%_ + _%e6105661343%_ + _%hd6105761347%_ + _%tl6105861350%_) + (let ((_%g6105061353%_ _%tl6105561340%_) + (_%g6105161355%_ _%tl6105861350%_) + (_%g6105261356%_ _%hd6105761347%_)) + (if (and (gx#identifier? _%g6105261356%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L60201%_)) - (_%__kont8796687967%_ - _%L60199%_ - _%L60201%_ - _%L60202%_) - (if (gx#stx-pair? _%tl5990160186%_) - (let ((_%e5991160145%_ - (gx#syntax-e _%tl5990160186%_))) - (let ((_%tl5991360152%_ + _%g6105161355%_)) + (_%__kont8891388914%_ + _%g6105061353%_ + _%g6105161355%_ + _%g6105261356%_) + (if (gx#stx-pair? _%tl6105561340%_) + (let ((_%e6106561299%_ + (gx#syntax-e _%tl6105561340%_))) + (let ((_%tl6106761306%_ (let () (declare (not safe)) - (##cdr _%e5991160145%_))) - (_%hd5991260149%_ + (##cdr _%e6106561299%_))) + (_%hd6106661303%_ (let () (declare (not safe)) - (##car _%e5991160145%_)))) - (_%__match8802888029%_ - _%e5989960179%_ - _%hd5990060183%_ - _%tl5990160186%_ - _%e5991160145%_ - _%hd5991260149%_ - _%tl5991360152%_))) + (##car _%e6106561299%_)))) + (_%__match8897588976%_ + _%e6105361333%_ + _%hd6105461337%_ + _%tl6105561340%_ + _%e6106561299%_ + _%hd6106661303%_ + _%tl6106761306%_))) (let () (declare (not safe)) - (_%g5987660002%_))))))) - (_%__match8800488005%_ - (lambda (_%e5988760223%_ - _%hd5988860227%_ - _%tl5988960230%_ - _%e5989060233%_ - _%hd5989160237%_ - _%tl5989260240%_ - _%e5989360243%_ - _%hd5989460247%_ - _%tl5989560250%_) - (let ((_%L60253%_ _%tl5988960230%_) - (_%L60255%_ _%hd5989160237%_)) - (if (gx#identifier? _%L60255%_) - (_%__kont8796487965%_ _%L60253%_ _%L60255%_) - (_%__match8801688017%_ - _%e5988760223%_ - _%hd5988860227%_ - _%tl5988960230%_ - _%e5989060233%_ - _%hd5989160237%_ - _%tl5989260240%_))))) - (_%__match8798487985%_ - (lambda (_%e5988260277%_ - _%hd5988360281%_ - _%tl5988460284%_) - (let ((_%L60287%_ _%tl5988460284%_) - (_%L60289%_ _%hd5988360281%_)) - (if (gx#identifier? _%L60289%_) - (_%__kont8796287963%_ _%L60287%_ _%L60289%_) - (if (gx#stx-pair? _%hd5988360281%_) - (let ((_%e5989060233%_ - (gx#syntax-e _%hd5988360281%_))) - (let ((_%tl5989260240%_ + (_%g6103061156%_))))))) + (_%__match8895188952%_ + (lambda (_%e6104161377%_ + _%hd6104261381%_ + _%tl6104361384%_ + _%e6104461387%_ + _%hd6104561391%_ + _%tl6104661394%_ + _%e6104761397%_ + _%hd6104861401%_ + _%tl6104961404%_) + (let ((_%g6103961407%_ _%tl6104361384%_) + (_%g6104061409%_ _%hd6104561391%_)) + (if (gx#identifier? _%g6104061409%_) + (_%__kont8891188912%_ + _%g6103961407%_ + _%g6104061409%_) + (_%__match8896388964%_ + _%e6104161377%_ + _%hd6104261381%_ + _%tl6104361384%_ + _%e6104461387%_ + _%hd6104561391%_ + _%tl6104661394%_))))) + (_%__match8893188932%_ + (lambda (_%e6103661431%_ + _%hd6103761435%_ + _%tl6103861438%_) + (let ((_%g6103461441%_ _%tl6103861438%_) + (_%g6103561443%_ _%hd6103761435%_)) + (if (gx#identifier? _%g6103561443%_) + (_%__kont8890988910%_ + _%g6103461441%_ + _%g6103561443%_) + (if (gx#stx-pair? _%hd6103761435%_) + (let ((_%e6104461387%_ + (gx#syntax-e _%hd6103761435%_))) + (let ((_%tl6104661394%_ (let () (declare (not safe)) - (##cdr _%e5989060233%_))) - (_%hd5989160237%_ + (##cdr _%e6104461387%_))) + (_%hd6104561391%_ (let () (declare (not safe)) - (##car _%e5989060233%_)))) - (if (gx#stx-pair? _%tl5989260240%_) - (let ((_%e5989360243%_ + (##car _%e6104461387%_)))) + (if (gx#stx-pair? _%tl6104661394%_) + (let ((_%e6104761397%_ (gx#syntax-e - _%tl5989260240%_))) - (let ((_%tl5989560250%_ + _%tl6104661394%_))) + (let ((_%tl6104961404%_ (let () (declare (not safe)) - (##cdr _%e5989360243%_))) - (_%hd5989460247%_ + (##cdr _%e6104761397%_))) + (_%hd6104861401%_ (let () (declare (not safe)) - (##car _%e5989360243%_)))) + (##car _%e6104761397%_)))) (if (gx#stx-null? - _%tl5989560250%_) - (_%__match8800488005%_ - _%e5988260277%_ - _%hd5988360281%_ - _%tl5988460284%_ - _%e5989060233%_ - _%hd5989160237%_ - _%tl5989260240%_ - _%e5989360243%_ - _%hd5989460247%_ - _%tl5989560250%_) - (_%__match8801688017%_ - _%e5988260277%_ - _%hd5988360281%_ - _%tl5988460284%_ - _%e5989060233%_ - _%hd5989160237%_ - _%tl5989260240%_)))) - (_%__match8801688017%_ - _%e5988260277%_ - _%hd5988360281%_ - _%tl5988460284%_ - _%e5989060233%_ - _%hd5989160237%_ - _%tl5989260240%_)))) - (if (gx#stx-pair? _%tl5988460284%_) - (let ((_%e5991160145%_ - (gx#syntax-e _%tl5988460284%_))) - (let ((_%tl5991360152%_ + _%tl6104961404%_) + (_%__match8895188952%_ + _%e6103661431%_ + _%hd6103761435%_ + _%tl6103861438%_ + _%e6104461387%_ + _%hd6104561391%_ + _%tl6104661394%_ + _%e6104761397%_ + _%hd6104861401%_ + _%tl6104961404%_) + (_%__match8896388964%_ + _%e6103661431%_ + _%hd6103761435%_ + _%tl6103861438%_ + _%e6104461387%_ + _%hd6104561391%_ + _%tl6104661394%_)))) + (_%__match8896388964%_ + _%e6103661431%_ + _%hd6103761435%_ + _%tl6103861438%_ + _%e6104461387%_ + _%hd6104561391%_ + _%tl6104661394%_)))) + (if (gx#stx-pair? _%tl6103861438%_) + (let ((_%e6106561299%_ + (gx#syntax-e _%tl6103861438%_))) + (let ((_%tl6106761306%_ (let () (declare (not safe)) - (##cdr _%e5991160145%_))) - (_%hd5991260149%_ + (##cdr _%e6106561299%_))) + (_%hd6106661303%_ (let () (declare (not safe)) - (##car _%e5991160145%_)))) - (_%__match8802888029%_ - _%e5988260277%_ - _%hd5988360281%_ - _%tl5988460284%_ - _%e5991160145%_ - _%hd5991260149%_ - _%tl5991360152%_))) + (##car _%e6106561299%_)))) + (_%__match8897588976%_ + _%e6103661431%_ + _%hd6103761435%_ + _%tl6103861438%_ + _%e6106561299%_ + _%hd6106661303%_ + _%tl6106761306%_))) (let () (declare (not safe)) - (_%g5987660002%_))))))))) - (if (gx#stx-pair? _%__stx8795987960%_) - (let ((_%e5988260277%_ - (gx#syntax-e _%__stx8795987960%_))) - (let ((_%tl5988460284%_ + (_%g6103061156%_))))))))) + (if (gx#stx-pair? _%__stx8890688907%_) + (let ((_%e6103661431%_ + (gx#syntax-e _%__stx8890688907%_))) + (let ((_%tl6103861438%_ (let () (declare (not safe)) - (##cdr _%e5988260277%_))) - (_%hd5988360281%_ + (##cdr _%e6103661431%_))) + (_%hd6103761435%_ (let () (declare (not safe)) - (##car _%e5988260277%_)))) - (_%__match8798487985%_ - _%e5988260277%_ - _%hd5988360281%_ - _%tl5988460284%_))) - (let () (declare (not safe)) (_%g5987660002%_)))))))))) + (##car _%e6103661431%_)))) + (_%__match8893188932%_ + _%e6103661431%_ + _%hd6103761435%_ + _%tl6103861438%_))) + (let () (declare (not safe)) (_%g6103061156%_)))))))))) (define |gerbil/core/contract~Interface[1]#make-procedure-contract| - (lambda (_%stx58961%_ _%signature58963%_ _%checked?58964%_) - (letrec ((_%contract-e58966%_ - (lambda (_%id59369%_ _%contract59371%_) - (let* ((_%g5937359381%_ - (lambda (_%g5937459377%_) + (lambda (_%stx60115%_ _%signature60117%_ _%checked?60118%_) + (letrec ((_%contract-e60120%_ + (lambda (_%id60523%_ _%contract60525%_) + (let* ((_%g6052760535%_ + (lambda (_%g6052860531%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5937459377%_))) - (_%g5937259850%_ - (lambda (_%g5937459385%_) - ((lambda (_%L59388%_) - (let* ((_%__stx8807788078%_ _%contract59371%_) - (_%g5940559484%_ + _%g6052860531%_))) + (_%g6052661004%_ + (lambda (_%g6052860539%_) + ((lambda (_%g6052960542%_) + (let* ((_%__stx8902489025%_ _%contract60525%_) + (_%g6055960638%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8807788078%_)))) - (let ((_%__kont8808088081%_ - (lambda (_%L59821%_ - _%L59823%_ - _%L59824%_) - (if _%checked?58964%_ - (cons _%L59388%_ - (cons _%L59824%_ - (cons _%L59823%_ + _%__stx8902489025%_)))) + (let ((_%__kont8902789028%_ + (lambda (_%g6056160975%_ + _%g6056260977%_ + _%g6056360978%_) + (if _%checked?60118%_ + (cons _%g6052960542%_ + (cons _%g6056360978%_ + (cons _%g6056260977%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L59388%_ + (cons _%g6052960542%_ (cons (gx#datum->syntax '#f '::-) - (cons _%L59823%_ + (cons _%g6056260977%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8808288083%_ - (lambda (_%L59779%_ _%L59781%_) - (cons _%L59388%_ + (_%__kont8902989030%_ + (lambda (_%g6057060933%_ + _%g6057160935%_) + (cons _%g6052960542%_ (cons (gx#datum->syntax '#f ':-) - (cons _%L59781%_ + (cons _%g6057160935%_ '()))))) - (_%__kont8808488085%_ - (lambda (_%L59721%_ - _%L59723%_ - _%L59724%_ - _%L59725%_) - (if _%checked?58964%_ - (cons _%L59388%_ + (_%__kont8903189032%_ + (lambda (_%g6057860875%_ + _%g6057960877%_ + _%g6058060878%_ + _%g6058160879%_) + (if _%checked?60118%_ + (cons _%g6052960542%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L59725%_ + (cons _%g6058160879%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L59724%_ (cons _%L59723%_ '()))))) + (cons _%g6058060878%_ (cons _%g6057960877%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L59388%_ + (cons _%g6052960542%_ (cons (gx#datum->syntax '#f '::-) - (cons _%L59723%_ + (cons _%g6057960877%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8808688087%_ - (lambda (_%L59643%_ - _%L59645%_ - _%L59646%_ - _%L59647%_) - (if _%checked?58964%_ - (cons _%L59388%_ + (_%__kont8903389034%_ + (lambda (_%g6059460797%_ + _%g6059560799%_ + _%g6059660800%_ + _%g6059760801%_) + (if _%checked?60118%_ + (cons _%g6052960542%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L59647%_ + (cons _%g6059760801%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L59646%_ (cons _%L59645%_ '()))))) + (cons _%g6059660800%_ (cons _%g6059560799%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L59388%_ + (cons _%g6052960542%_ (cons (gx#datum->syntax '#f '::-) - (cons _%L59645%_ + (cons _%g6059560799%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8808888089%_ - (lambda (_%L59575%_ - _%L59577%_ - _%L59578%_) - (if _%checked?58964%_ - (cons _%L59388%_ + (_%__kont8903589036%_ + (lambda (_%g6061060729%_ + _%g6061160731%_ + _%g6061260732%_) + (if _%checked?60118%_ + (cons _%g6052960542%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L59578%_ + (cons _%g6061260732%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f ':-) - (cons _%L59577%_ '()))))) + (cons _%g6061160731%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L59388%_ + (cons _%g6052960542%_ (cons (gx#datum->syntax '#f ':-) - (cons _%L59577%_ + (cons _%g6061160731%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8809088091%_ - (lambda (_%L59511%_ _%L59513%_) - (if _%checked?58964%_ - (cons _%L59388%_ + (_%__kont8903789038%_ + (lambda (_%g6062560665%_ + _%g6062660667%_) + (if _%checked?60118%_ + (cons _%g6052960542%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L59513%_ + (cons _%g6062660667%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L59388%_ + (cons _%g6052960542%_ (cons (gx#datum->syntax '#f ':-) @@ -3639,1958 +3713,1994 @@ ':t) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__match8817688177%_ - (lambda (_%e5944459603%_ - _%hd5944559607%_ - _%tl5944659610%_ - _%e5944759613%_ - _%hd5944859617%_ - _%tl5944959620%_ - _%e5945059623%_ - _%hd5945159627%_ - _%tl5945259630%_ - _%e5945359633%_ - _%hd5945459637%_ - _%tl5945559640%_) - (let ((_%L59643%_ - _%tl5945559640%_) - (_%L59645%_ - _%hd5945459637%_) - (_%L59646%_ - _%hd5945159627%_) - (_%L59647%_ - _%hd5944859617%_)) + (let* ((_%__match8912389124%_ + (lambda (_%e6059860757%_ + _%hd6059960761%_ + _%tl6060060764%_ + _%e6060160767%_ + _%hd6060260771%_ + _%tl6060360774%_ + _%e6060460777%_ + _%hd6060560781%_ + _%tl6060660784%_ + _%e6060760787%_ + _%hd6060860791%_ + _%tl6060960794%_) + (let ((_%g6059460797%_ + _%tl6060960794%_) + (_%g6059560799%_ + _%hd6060860791%_) + (_%g6059660800%_ + _%hd6060560781%_) + (_%g6059760801%_ + _%hd6060260771%_)) (if (or (gx#free-identifier=? - _%L59646%_ + _%g6059660800%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L59646%_ + _%g6059660800%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L59646%_ + _%g6059660800%_ (gx#datum->syntax '#f ':?))) - (_%__kont8808688087%_ - _%L59643%_ - _%L59645%_ - _%L59646%_ - _%L59647%_) + (_%__kont8903389034%_ + _%g6059460797%_ + _%g6059560799%_ + _%g6059660800%_ + _%g6059760801%_) (if (gx#identifier? - _%hd5945159627%_) + _%hd6060560781%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91880_| - _%hd5945159627%_) - (_%__kont8808888089%_ - _%tl5945559640%_ - _%hd5945459637%_ - _%hd5944859617%_) - (_%__kont8809088091%_ - _%tl5944959620%_ - _%hd5944859617%_)) - (_%__kont8809088091%_ - _%tl5944959620%_ - _%hd5944859617%_)))))) - (_%__match8814888149%_ - (lambda (_%e5942859681%_ - _%hd5942959685%_ - _%tl5943059688%_ - _%e5943159691%_ - _%hd5943259695%_ - _%tl5943359698%_ - _%e5943459701%_ - _%hd5943559705%_ - _%tl5943659708%_ - _%e5943759711%_ - _%hd5943859715%_ - _%tl5943959718%_) - (let ((_%L59721%_ - _%tl5943959718%_) - (_%L59723%_ - _%hd5943859715%_) - (_%L59724%_ - _%hd5943559705%_) - (_%L59725%_ - _%hd5943259695%_)) + |gerbil/core/contract~Interface[1]#_g92743_| + _%hd6060560781%_) + (_%__kont8903589036%_ + _%tl6060960794%_ + _%hd6060860791%_ + _%hd6060260771%_) + (_%__kont8903789038%_ + _%tl6060360774%_ + _%hd6060260771%_)) + (_%__kont8903789038%_ + _%tl6060360774%_ + _%hd6060260771%_)))))) + (_%__match8909589096%_ + (lambda (_%e6058260835%_ + _%hd6058360839%_ + _%tl6058460842%_ + _%e6058560845%_ + _%hd6058660849%_ + _%tl6058760852%_ + _%e6058860855%_ + _%hd6058960859%_ + _%tl6059060862%_ + _%e6059160865%_ + _%hd6059260869%_ + _%tl6059360872%_) + (let ((_%g6057860875%_ + _%tl6059360872%_) + (_%g6057960877%_ + _%hd6059260869%_) + (_%g6058060878%_ + _%hd6058960859%_) + (_%g6058160879%_ + _%hd6058660849%_)) (if (or (gx#free-identifier=? - _%L59724%_ + _%g6058060878%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L59724%_ + _%g6058060878%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L59724%_ + _%g6058060878%_ (gx#datum->syntax '#f ':?))) - (_%__kont8808488085%_ - _%L59721%_ - _%L59723%_ - _%L59724%_ - _%L59725%_) - (_%__match8817688177%_ - _%e5942859681%_ - _%hd5942959685%_ - _%tl5943059688%_ - _%e5943159691%_ - _%hd5943259695%_ - _%tl5943359698%_ - _%e5943459701%_ - _%hd5943559705%_ - _%tl5943659708%_ - _%e5943759711%_ - _%hd5943859715%_ - _%tl5943959718%_))))) - (_%__match8810488105%_ - (lambda (_%e5941059801%_ - _%hd5941159805%_ - _%tl5941259808%_ - _%e5941359811%_ - _%hd5941459815%_ - _%tl5941559818%_) - (let ((_%L59821%_ - _%tl5941559818%_) - (_%L59823%_ - _%hd5941459815%_) - (_%L59824%_ - _%hd5941159805%_)) + (_%__kont8903189032%_ + _%g6057860875%_ + _%g6057960877%_ + _%g6058060878%_ + _%g6058160879%_) + (_%__match8912389124%_ + _%e6058260835%_ + _%hd6058360839%_ + _%tl6058460842%_ + _%e6058560845%_ + _%hd6058660849%_ + _%tl6058760852%_ + _%e6058860855%_ + _%hd6058960859%_ + _%tl6059060862%_ + _%e6059160865%_ + _%hd6059260869%_ + _%tl6059360872%_))))) + (_%__match8905189052%_ + (lambda (_%e6056460955%_ + _%hd6056560959%_ + _%tl6056660962%_ + _%e6056760965%_ + _%hd6056860969%_ + _%tl6056960972%_) + (let ((_%g6056160975%_ + _%tl6056960972%_) + (_%g6056260977%_ + _%hd6056860969%_) + (_%g6056360978%_ + _%hd6056560959%_)) (if (or (gx#free-identifier=? - _%L59824%_ + _%g6056360978%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L59824%_ + _%g6056360978%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L59824%_ + _%g6056360978%_ (gx#datum->syntax '#f ':?))) - (_%__kont8808088081%_ - _%L59821%_ - _%L59823%_ - _%L59824%_) + (_%__kont8902789028%_ + _%g6056160975%_ + _%g6056260977%_ + _%g6056360978%_) (if (gx#identifier? - _%hd5941159805%_) + _%hd6056560959%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91881_| - _%hd5941159805%_) - (_%__kont8808288083%_ - _%tl5941559818%_ - _%hd5941459815%_) + |gerbil/core/contract~Interface[1]#_g92744_| + _%hd6056560959%_) + (_%__kont8902989030%_ + _%tl6056960972%_ + _%hd6056860969%_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~Interface[1]#_g91882_| - _%hd5941159805%_) - (if (gx#stx-pair? _%tl5941559818%_) - (let ((_%e5943459701%_ - (gx#syntax-e _%tl5941559818%_))) - (let ((_%tl5943659708%_ + |gerbil/core/contract~Interface[1]#_g92745_| + _%hd6056560959%_) + (if (gx#stx-pair? _%tl6056960972%_) + (let ((_%e6058860855%_ + (gx#syntax-e _%tl6056960972%_))) + (let ((_%tl6059060862%_ (let () (declare (not safe)) - (##cdr _%e5943459701%_))) - (_%hd5943559705%_ + (##cdr _%e6058860855%_))) + (_%hd6058960859%_ (let () (declare (not safe)) - (##car _%e5943459701%_)))) - (if (gx#stx-pair? _%tl5943659708%_) - (let ((_%e5943759711%_ - (gx#syntax-e _%tl5943659708%_))) - (let ((_%tl5943959718%_ + (##car _%e6058860855%_)))) + (if (gx#stx-pair? _%tl6059060862%_) + (let ((_%e6059160865%_ + (gx#syntax-e _%tl6059060862%_))) + (let ((_%tl6059360872%_ (let () (declare (not safe)) - (##cdr _%e5943759711%_))) - (_%hd5943859715%_ + (##cdr _%e6059160865%_))) + (_%hd6059260869%_ (let () (declare (not safe)) - (##car _%e5943759711%_)))) - (_%__match8814888149%_ - _%e5941059801%_ - _%hd5941159805%_ - _%tl5941259808%_ - _%e5941359811%_ - _%hd5941459815%_ - _%tl5941559818%_ - _%e5943459701%_ - _%hd5943559705%_ - _%tl5943659708%_ - _%e5943759711%_ - _%hd5943859715%_ - _%tl5943959718%_))) - (_%__kont8809088091%_ - _%tl5941559818%_ - _%hd5941459815%_)))) - (_%__kont8809088091%_ - _%tl5941559818%_ - _%hd5941459815%_)) - (let () (declare (not safe)) (_%g5940559484%_)))) - (let () (declare (not safe)) (_%g5940559484%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx8807788078%_) - (let ((_%e5941059801%_ + (##car _%e6059160865%_)))) + (_%__match8909589096%_ + _%e6056460955%_ + _%hd6056560959%_ + _%tl6056660962%_ + _%e6056760965%_ + _%hd6056860969%_ + _%tl6056960972%_ + _%e6058860855%_ + _%hd6058960859%_ + _%tl6059060862%_ + _%e6059160865%_ + _%hd6059260869%_ + _%tl6059360872%_))) + (_%__kont8903789038%_ + _%tl6056960972%_ + _%hd6056860969%_)))) + (_%__kont8903789038%_ + _%tl6056960972%_ + _%hd6056860969%_)) + (let () (declare (not safe)) (_%g6055960638%_)))) + (let () (declare (not safe)) (_%g6055960638%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%__stx8902489025%_) + (let ((_%e6056460955%_ (gx#syntax-e - _%__stx8807788078%_))) - (let ((_%tl5941259808%_ + _%__stx8902489025%_))) + (let ((_%tl6056660962%_ (let () (declare (not safe)) - (##cdr _%e5941059801%_))) - (_%hd5941159805%_ + (##cdr _%e6056460955%_))) + (_%hd6056560959%_ (let () (declare (not safe)) - (##car _%e5941059801%_)))) + (##car _%e6056460955%_)))) (if (gx#stx-pair? - _%tl5941259808%_) - (let ((_%e5941359811%_ + _%tl6056660962%_) + (let ((_%e6056760965%_ (gx#syntax-e - _%tl5941259808%_))) - (let ((_%tl5941559818%_ + _%tl6056660962%_))) + (let ((_%tl6056960972%_ (let () (declare (not safe)) - (##cdr _%e5941359811%_))) - (_%hd5941459815%_ + (##cdr _%e6056760965%_))) + (_%hd6056860969%_ (let () (declare (not safe)) - (##car _%e5941359811%_)))) - (_%__match8810488105%_ - _%e5941059801%_ - _%hd5941159805%_ - _%tl5941259808%_ - _%e5941359811%_ - _%hd5941459815%_ - _%tl5941559818%_))) + (##car _%e6056760965%_)))) + (_%__match8905189052%_ + _%e6056460955%_ + _%hd6056560959%_ + _%tl6056660962%_ + _%e6056760965%_ + _%hd6056860969%_ + _%tl6056960972%_))) (let () (declare (not safe)) - (_%g5940559484%_))))) + (_%g6055960638%_))))) (let () (declare (not safe)) - (_%g5940559484%_))))))) - _%g5937459385%_)))) - (_%g5937259850%_ _%id59369%_))))) - (let _%loop58969%_ ((_%rest58972%_ _%signature58963%_) - (_%result58974%_ '())) - (let* ((_%__stx8822788228%_ _%rest58972%_) - (_%g5898259051%_ + (_%g6055960638%_))))))) + _%g6052860539%_)))) + (_%g6052661004%_ _%id60523%_))))) + (let _%loop60123%_ ((_%rest60126%_ _%signature60117%_) + (_%result60128%_ '())) + (let* ((_%__stx8917489175%_ _%rest60126%_) + (_%g6013660205%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8822788228%_)))) - (let ((_%__kont8823088231%_ - (lambda (_%L59352%_ _%L59354%_) - (_%loop58969%_ _%L59352%_ _%result58974%_))) - (_%__kont8823288233%_ - (lambda (_%L59318%_ _%L59320%_) - (_%loop58969%_ _%L59318%_ _%result58974%_))) - (_%__kont8823488235%_ - (lambda (_%L59264%_ _%L59266%_ _%L59267%_) - (_%loop58969%_ - _%L59264%_ - (cons (_%contract-e58966%_ _%L59267%_ _%L59266%_) - _%result58974%_)))) - (_%__kont8823688237%_ - (lambda (_%L59220%_ _%L59222%_ _%L59223%_) - (_%loop58969%_ _%L59220%_ _%result58974%_))) - (_%__kont8823888239%_ - (lambda (_%L59172%_ _%L59174%_ _%L59175%_) - (_%loop58969%_ _%L59172%_ _%result58974%_))) - (_%__kont8824088241%_ - (lambda (_%L59099%_ _%L59101%_ _%L59102%_ _%L59103%_) - (_%loop58969%_ - _%L59099%_ - (cons (_%contract-e58966%_ _%L59102%_ _%L59101%_) - _%result58974%_)))) - (_%__kont8824288243%_ - (lambda () (reverse! (filter identity _%result58974%_))))) - (let* ((_%__match8833888339%_ - (lambda (_%e5903759069%_ - _%hd5903859073%_ - _%tl5903959076%_ - _%e5904059079%_ - _%hd5904159083%_ - _%tl5904259086%_ - _%e5904359089%_ - _%hd5904459093%_ - _%tl5904559096%_) - (let ((_%L59099%_ _%tl5904259086%_) - (_%L59101%_ _%tl5904559096%_) - (_%L59102%_ _%hd5904459093%_) - (_%L59103%_ _%hd5903859073%_)) - (if (and (gx#stx-keyword? _%L59103%_) - (gx#identifier? _%L59102%_) + _%__stx8917489175%_)))) + (let ((_%__kont8917789178%_ + (lambda (_%g6013860506%_ _%g6013960508%_) + (_%loop60123%_ _%g6013860506%_ _%result60128%_))) + (_%__kont8917989180%_ + (lambda (_%g6014360472%_ _%g6014460474%_) + (_%loop60123%_ _%g6014360472%_ _%result60128%_))) + (_%__kont8918189182%_ + (lambda (_%g6015460418%_ _%g6015560420%_ _%g6015660421%_) + (_%loop60123%_ + _%g6015460418%_ + (cons (_%contract-e60120%_ + _%g6015660421%_ + _%g6015560420%_) + _%result60128%_)))) + (_%__kont8918389184%_ + (lambda (_%g6016360374%_ _%g6016460376%_ _%g6016560377%_) + (_%loop60123%_ _%g6016360374%_ _%result60128%_))) + (_%__kont8918589186%_ + (lambda (_%g6017260326%_ _%g6017360328%_ _%g6017460329%_) + (_%loop60123%_ _%g6017260326%_ _%result60128%_))) + (_%__kont8918789188%_ + (lambda (_%g6018760253%_ + _%g6018860255%_ + _%g6018960256%_ + _%g6019060257%_) + (_%loop60123%_ + _%g6018760253%_ + (cons (_%contract-e60120%_ + _%g6018960256%_ + _%g6018860255%_) + _%result60128%_)))) + (_%__kont8918989190%_ + (lambda () (reverse! (filter identity _%result60128%_))))) + (let* ((_%__match8928589286%_ + (lambda (_%e6019160223%_ + _%hd6019260227%_ + _%tl6019360230%_ + _%e6019460233%_ + _%hd6019560237%_ + _%tl6019660240%_ + _%e6019760243%_ + _%hd6019860247%_ + _%tl6019960250%_) + (let ((_%g6018760253%_ _%tl6019660240%_) + (_%g6018860255%_ _%tl6019960250%_) + (_%g6018960256%_ _%hd6019860247%_) + (_%g6019060257%_ _%hd6019260227%_)) + (if (and (gx#stx-keyword? _%g6019060257%_) + (gx#identifier? _%g6018960256%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L59101%_)) - (_%__kont8824088241%_ - _%L59099%_ - _%L59101%_ - _%L59102%_ - _%L59103%_) - (_%__kont8824288243%_))))) - (_%__match8832088321%_ - (lambda (_%e5902159132%_ - _%hd5902259136%_ - _%tl5902359139%_ - _%e5902459142%_ - _%hd5902559146%_ - _%tl5902659149%_ - _%e5902759152%_ - _%hd5902859156%_ - _%tl5902959159%_ - _%e5903059162%_ - _%hd5903159166%_ - _%tl5903259169%_) - (let ((_%L59172%_ _%tl5902659149%_) - (_%L59174%_ _%hd5902859156%_) - (_%L59175%_ _%hd5902259136%_)) - (if (and (gx#stx-keyword? _%L59175%_) - (gx#identifier? _%L59174%_)) - (_%__kont8823888239%_ - _%L59172%_ - _%L59174%_ - _%L59175%_) - (_%__match8833888339%_ - _%e5902159132%_ - _%hd5902259136%_ - _%tl5902359139%_ - _%e5902459142%_ - _%hd5902559146%_ - _%tl5902659149%_ - _%e5902759152%_ - _%hd5902859156%_ - _%tl5902959159%_))))) - (_%__match8829488295%_ - (lambda (_%e5901259200%_ - _%hd5901359204%_ - _%tl5901459207%_ - _%e5901559210%_ - _%hd5901659214%_ - _%tl5901759217%_) - (let ((_%L59220%_ _%tl5901759217%_) - (_%L59222%_ _%hd5901659214%_) - (_%L59223%_ _%hd5901359204%_)) - (if (and (gx#stx-keyword? _%L59223%_) - (gx#identifier? _%L59222%_)) - (_%__kont8823688237%_ - _%L59220%_ - _%L59222%_ - _%L59223%_) - (if (gx#stx-pair? _%hd5901659214%_) - (let ((_%e5902759152%_ - (gx#syntax-e _%hd5901659214%_))) - (let ((_%tl5902959159%_ + _%g6018860255%_)) + (_%__kont8918789188%_ + _%g6018760253%_ + _%g6018860255%_ + _%g6018960256%_ + _%g6019060257%_) + (_%__kont8918989190%_))))) + (_%__match8926789268%_ + (lambda (_%e6017560286%_ + _%hd6017660290%_ + _%tl6017760293%_ + _%e6017860296%_ + _%hd6017960300%_ + _%tl6018060303%_ + _%e6018160306%_ + _%hd6018260310%_ + _%tl6018360313%_ + _%e6018460316%_ + _%hd6018560320%_ + _%tl6018660323%_) + (let ((_%g6017260326%_ _%tl6018060303%_) + (_%g6017360328%_ _%hd6018260310%_) + (_%g6017460329%_ _%hd6017660290%_)) + (if (and (gx#stx-keyword? _%g6017460329%_) + (gx#identifier? _%g6017360328%_)) + (_%__kont8918589186%_ + _%g6017260326%_ + _%g6017360328%_ + _%g6017460329%_) + (_%__match8928589286%_ + _%e6017560286%_ + _%hd6017660290%_ + _%tl6017760293%_ + _%e6017860296%_ + _%hd6017960300%_ + _%tl6018060303%_ + _%e6018160306%_ + _%hd6018260310%_ + _%tl6018360313%_))))) + (_%__match8924189242%_ + (lambda (_%e6016660354%_ + _%hd6016760358%_ + _%tl6016860361%_ + _%e6016960364%_ + _%hd6017060368%_ + _%tl6017160371%_) + (let ((_%g6016360374%_ _%tl6017160371%_) + (_%g6016460376%_ _%hd6017060368%_) + (_%g6016560377%_ _%hd6016760358%_)) + (if (and (gx#stx-keyword? _%g6016560377%_) + (gx#identifier? _%g6016460376%_)) + (_%__kont8918389184%_ + _%g6016360374%_ + _%g6016460376%_ + _%g6016560377%_) + (if (gx#stx-pair? _%hd6017060368%_) + (let ((_%e6018160306%_ + (gx#syntax-e _%hd6017060368%_))) + (let ((_%tl6018360313%_ (let () (declare (not safe)) - (##cdr _%e5902759152%_))) - (_%hd5902859156%_ + (##cdr _%e6018160306%_))) + (_%hd6018260310%_ (let () (declare (not safe)) - (##car _%e5902759152%_)))) - (if (gx#stx-pair? _%tl5902959159%_) - (let ((_%e5903059162%_ + (##car _%e6018160306%_)))) + (if (gx#stx-pair? _%tl6018360313%_) + (let ((_%e6018460316%_ (gx#syntax-e - _%tl5902959159%_))) - (let ((_%tl5903259169%_ + _%tl6018360313%_))) + (let ((_%tl6018660323%_ (let () (declare (not safe)) - (##cdr _%e5903059162%_))) - (_%hd5903159166%_ + (##cdr _%e6018460316%_))) + (_%hd6018560320%_ (let () (declare (not safe)) - (##car _%e5903059162%_)))) + (##car _%e6018460316%_)))) (if (gx#stx-null? - _%tl5903259169%_) - (_%__match8832088321%_ - _%e5901259200%_ - _%hd5901359204%_ - _%tl5901459207%_ - _%e5901559210%_ - _%hd5901659214%_ - _%tl5901759217%_ - _%e5902759152%_ - _%hd5902859156%_ - _%tl5902959159%_ - _%e5903059162%_ - _%hd5903159166%_ - _%tl5903259169%_) - (_%__match8833888339%_ - _%e5901259200%_ - _%hd5901359204%_ - _%tl5901459207%_ - _%e5901559210%_ - _%hd5901659214%_ - _%tl5901759217%_ - _%e5902759152%_ - _%hd5902859156%_ - _%tl5902959159%_)))) - (_%__match8833888339%_ - _%e5901259200%_ - _%hd5901359204%_ - _%tl5901459207%_ - _%e5901559210%_ - _%hd5901659214%_ - _%tl5901759217%_ - _%e5902759152%_ - _%hd5902859156%_ - _%tl5902959159%_)))) - (_%__kont8824288243%_)))))) - (_%__match8828288283%_ - (lambda (_%e5900359244%_ - _%hd5900459248%_ - _%tl5900559251%_ - _%e5900659254%_ - _%hd5900759258%_ - _%tl5900859261%_) - (let ((_%L59264%_ _%tl5900559251%_) - (_%L59266%_ _%tl5900859261%_) - (_%L59267%_ _%hd5900759258%_)) - (if (and (gx#identifier? _%L59267%_) + _%tl6018660323%_) + (_%__match8926789268%_ + _%e6016660354%_ + _%hd6016760358%_ + _%tl6016860361%_ + _%e6016960364%_ + _%hd6017060368%_ + _%tl6017160371%_ + _%e6018160306%_ + _%hd6018260310%_ + _%tl6018360313%_ + _%e6018460316%_ + _%hd6018560320%_ + _%tl6018660323%_) + (_%__match8928589286%_ + _%e6016660354%_ + _%hd6016760358%_ + _%tl6016860361%_ + _%e6016960364%_ + _%hd6017060368%_ + _%tl6017160371%_ + _%e6018160306%_ + _%hd6018260310%_ + _%tl6018360313%_)))) + (_%__match8928589286%_ + _%e6016660354%_ + _%hd6016760358%_ + _%tl6016860361%_ + _%e6016960364%_ + _%hd6017060368%_ + _%tl6017160371%_ + _%e6018160306%_ + _%hd6018260310%_ + _%tl6018360313%_)))) + (_%__kont8918989190%_)))))) + (_%__match8922989230%_ + (lambda (_%e6015760398%_ + _%hd6015860402%_ + _%tl6015960405%_ + _%e6016060408%_ + _%hd6016160412%_ + _%tl6016260415%_) + (let ((_%g6015460418%_ _%tl6015960405%_) + (_%g6015560420%_ _%tl6016260415%_) + (_%g6015660421%_ _%hd6016160412%_)) + (if (and (gx#identifier? _%g6015660421%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L59266%_)) - (_%__kont8823488235%_ - _%L59264%_ - _%L59266%_ - _%L59267%_) - (if (gx#stx-pair? _%tl5900559251%_) - (let ((_%e5901559210%_ - (gx#syntax-e _%tl5900559251%_))) - (let ((_%tl5901759217%_ + _%g6015560420%_)) + (_%__kont8918189182%_ + _%g6015460418%_ + _%g6015560420%_ + _%g6015660421%_) + (if (gx#stx-pair? _%tl6015960405%_) + (let ((_%e6016960364%_ + (gx#syntax-e _%tl6015960405%_))) + (let ((_%tl6017160371%_ (let () (declare (not safe)) - (##cdr _%e5901559210%_))) - (_%hd5901659214%_ + (##cdr _%e6016960364%_))) + (_%hd6017060368%_ (let () (declare (not safe)) - (##car _%e5901559210%_)))) - (_%__match8829488295%_ - _%e5900359244%_ - _%hd5900459248%_ - _%tl5900559251%_ - _%e5901559210%_ - _%hd5901659214%_ - _%tl5901759217%_))) - (_%__kont8824288243%_)))))) - (_%__match8827088271%_ - (lambda (_%e5899159288%_ - _%hd5899259292%_ - _%tl5899359295%_ - _%e5899459298%_ - _%hd5899559302%_ - _%tl5899659305%_ - _%e5899759308%_ - _%hd5899859312%_ - _%tl5899959315%_) - (let ((_%L59318%_ _%tl5899359295%_) - (_%L59320%_ _%hd5899559302%_)) - (if (gx#identifier? _%L59320%_) - (_%__kont8823288233%_ _%L59318%_ _%L59320%_) - (_%__match8828288283%_ - _%e5899159288%_ - _%hd5899259292%_ - _%tl5899359295%_ - _%e5899459298%_ - _%hd5899559302%_ - _%tl5899659305%_))))) - (_%__match8825088251%_ - (lambda (_%e5898659342%_ - _%hd5898759346%_ - _%tl5898859349%_) - (let ((_%L59352%_ _%tl5898859349%_) - (_%L59354%_ _%hd5898759346%_)) - (if (gx#identifier? _%L59354%_) - (_%__kont8823088231%_ _%L59352%_ _%L59354%_) - (if (gx#stx-pair? _%hd5898759346%_) - (let ((_%e5899459298%_ - (gx#syntax-e _%hd5898759346%_))) - (let ((_%tl5899659305%_ + (##car _%e6016960364%_)))) + (_%__match8924189242%_ + _%e6015760398%_ + _%hd6015860402%_ + _%tl6015960405%_ + _%e6016960364%_ + _%hd6017060368%_ + _%tl6017160371%_))) + (_%__kont8918989190%_)))))) + (_%__match8921789218%_ + (lambda (_%e6014560442%_ + _%hd6014660446%_ + _%tl6014760449%_ + _%e6014860452%_ + _%hd6014960456%_ + _%tl6015060459%_ + _%e6015160462%_ + _%hd6015260466%_ + _%tl6015360469%_) + (let ((_%g6014360472%_ _%tl6014760449%_) + (_%g6014460474%_ _%hd6014960456%_)) + (if (gx#identifier? _%g6014460474%_) + (_%__kont8917989180%_ + _%g6014360472%_ + _%g6014460474%_) + (_%__match8922989230%_ + _%e6014560442%_ + _%hd6014660446%_ + _%tl6014760449%_ + _%e6014860452%_ + _%hd6014960456%_ + _%tl6015060459%_))))) + (_%__match8919789198%_ + (lambda (_%e6014060496%_ + _%hd6014160500%_ + _%tl6014260503%_) + (let ((_%g6013860506%_ _%tl6014260503%_) + (_%g6013960508%_ _%hd6014160500%_)) + (if (gx#identifier? _%g6013960508%_) + (_%__kont8917789178%_ + _%g6013860506%_ + _%g6013960508%_) + (if (gx#stx-pair? _%hd6014160500%_) + (let ((_%e6014860452%_ + (gx#syntax-e _%hd6014160500%_))) + (let ((_%tl6015060459%_ (let () (declare (not safe)) - (##cdr _%e5899459298%_))) - (_%hd5899559302%_ + (##cdr _%e6014860452%_))) + (_%hd6014960456%_ (let () (declare (not safe)) - (##car _%e5899459298%_)))) - (if (gx#stx-pair? _%tl5899659305%_) - (let ((_%e5899759308%_ + (##car _%e6014860452%_)))) + (if (gx#stx-pair? _%tl6015060459%_) + (let ((_%e6015160462%_ (gx#syntax-e - _%tl5899659305%_))) - (let ((_%tl5899959315%_ + _%tl6015060459%_))) + (let ((_%tl6015360469%_ (let () (declare (not safe)) - (##cdr _%e5899759308%_))) - (_%hd5899859312%_ + (##cdr _%e6015160462%_))) + (_%hd6015260466%_ (let () (declare (not safe)) - (##car _%e5899759308%_)))) + (##car _%e6015160462%_)))) (if (gx#stx-null? - _%tl5899959315%_) - (_%__match8827088271%_ - _%e5898659342%_ - _%hd5898759346%_ - _%tl5898859349%_ - _%e5899459298%_ - _%hd5899559302%_ - _%tl5899659305%_ - _%e5899759308%_ - _%hd5899859312%_ - _%tl5899959315%_) - (_%__match8828288283%_ - _%e5898659342%_ - _%hd5898759346%_ - _%tl5898859349%_ - _%e5899459298%_ - _%hd5899559302%_ - _%tl5899659305%_)))) - (_%__match8828288283%_ - _%e5898659342%_ - _%hd5898759346%_ - _%tl5898859349%_ - _%e5899459298%_ - _%hd5899559302%_ - _%tl5899659305%_)))) - (if (gx#stx-pair? _%tl5898859349%_) - (let ((_%e5901559210%_ - (gx#syntax-e _%tl5898859349%_))) - (let ((_%tl5901759217%_ + _%tl6015360469%_) + (_%__match8921789218%_ + _%e6014060496%_ + _%hd6014160500%_ + _%tl6014260503%_ + _%e6014860452%_ + _%hd6014960456%_ + _%tl6015060459%_ + _%e6015160462%_ + _%hd6015260466%_ + _%tl6015360469%_) + (_%__match8922989230%_ + _%e6014060496%_ + _%hd6014160500%_ + _%tl6014260503%_ + _%e6014860452%_ + _%hd6014960456%_ + _%tl6015060459%_)))) + (_%__match8922989230%_ + _%e6014060496%_ + _%hd6014160500%_ + _%tl6014260503%_ + _%e6014860452%_ + _%hd6014960456%_ + _%tl6015060459%_)))) + (if (gx#stx-pair? _%tl6014260503%_) + (let ((_%e6016960364%_ + (gx#syntax-e _%tl6014260503%_))) + (let ((_%tl6017160371%_ (let () (declare (not safe)) - (##cdr _%e5901559210%_))) - (_%hd5901659214%_ + (##cdr _%e6016960364%_))) + (_%hd6017060368%_ (let () (declare (not safe)) - (##car _%e5901559210%_)))) - (_%__match8829488295%_ - _%e5898659342%_ - _%hd5898759346%_ - _%tl5898859349%_ - _%e5901559210%_ - _%hd5901659214%_ - _%tl5901759217%_))) - (_%__kont8824288243%_)))))))) - (if (gx#stx-pair? _%__stx8822788228%_) - (let ((_%e5898659342%_ - (gx#syntax-e _%__stx8822788228%_))) - (let ((_%tl5898859349%_ + (##car _%e6016960364%_)))) + (_%__match8924189242%_ + _%e6014060496%_ + _%hd6014160500%_ + _%tl6014260503%_ + _%e6016960364%_ + _%hd6017060368%_ + _%tl6017160371%_))) + (_%__kont8918989190%_)))))))) + (if (gx#stx-pair? _%__stx8917489175%_) + (let ((_%e6014060496%_ + (gx#syntax-e _%__stx8917489175%_))) + (let ((_%tl6014260503%_ (let () (declare (not safe)) - (##cdr _%e5898659342%_))) - (_%hd5898759346%_ + (##cdr _%e6014060496%_))) + (_%hd6014160500%_ (let () (declare (not safe)) - (##car _%e5898659342%_)))) - (_%__match8825088251%_ - _%e5898659342%_ - _%hd5898759346%_ - _%tl5898859349%_))) - (_%__kont8824288243%_))))))))) + (##car _%e6014060496%_)))) + (_%__match8919789198%_ + _%e6014060496%_ + _%hd6014160500%_ + _%tl6014260503%_))) + (_%__kont8918989190%_))))))))) (define |gerbil/core/contract~Interface[1]#compatible-signatures?| - (lambda (_%left58918%_ _%right58920%_) - (let ((_%left58922%_ (gx#syntax->list _%left58918%_)) - (_%right58924%_ (gx#syntax->list _%right58920%_))) - (let ((_%left-args58926%_ (cadr _%left58922%_)) - (_%left-return58928%_ (caddr _%left58922%_)) - (_%right-args58929%_ (cadr _%right58924%_)) - (_%right-return58930%_ (caddr _%right58924%_))) - (let ((__tmp91883 - (lambda (_%return58932%_) - (let ((_%left-arity58935%_ + (lambda (_%left60072%_ _%right60074%_) + (let ((_%left60076%_ (gx#syntax->list _%left60072%_)) + (_%right60078%_ (gx#syntax->list _%right60074%_))) + (let ((_%left-args60080%_ (cadr _%left60076%_)) + (_%left-return60082%_ (caddr _%left60076%_)) + (_%right-args60083%_ (cadr _%right60078%_)) + (_%right-return60084%_ (caddr _%right60078%_))) + (let ((__tmp92746 + (lambda (_%return60086%_) + (let ((_%left-arity60089%_ (|gerbil/core/contract~Interface[1]#signature-arity| - _%left-args58926%_)) - (_%right-arity58937%_ + _%left-args60080%_)) + (_%right-arity60091%_ (|gerbil/core/contract~Interface[1]#signature-arity| - _%right-args58929%_))) - (if (equal? _%left-arity58935%_ _%right-arity58937%_) + _%right-args60083%_))) + (if (equal? _%left-arity60089%_ _%right-arity60091%_) '#!void - (_%return58932%_ '#f))) - (let ((_%left-kws58939%_ + (_%return60086%_ '#f))) + (let ((_%left-kws60093%_ (|gerbil/core/contract~Interface[1]#signature-keywords| - _%left-args58926%_)) - (_%right-kws58941%_ + _%left-args60080%_)) + (_%right-kws60095%_ (|gerbil/core/contract~Interface[1]#signature-keywords| - _%right-args58929%_))) - (if (equal? _%left-kws58939%_ _%right-kws58941%_) + _%right-args60083%_))) + (if (equal? _%left-kws60093%_ _%right-kws60095%_) '#!void - (_%return58932%_ '#f))) - (let ((_g91884_ + (_%return60086%_ '#f))) + (let ((_g92747_ (|gerbil/core/contract~Interface[1]#signature-type-contract| - _%left-args58926%_)) - (_g91886_ + _%left-args60080%_)) + (_g92749_ (|gerbil/core/contract~Interface[1]#signature-type-contract| - _%right-args58929%_))) + _%right-args60083%_))) (begin - (let ((_g91885_ + (let ((_g92748_ (let () (declare (not safe)) - (if (##values? _g91884_) - (##values-length _g91884_) + (if (##values? _g92747_) + (##values-length _g92747_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91885_ 2))) - (error "Context expects 2 values" _g91885_))) - (let ((_g91887_ + (##fx= _g92748_ 2))) + (error "Context expects 2 values" _g92748_))) + (let ((_g92750_ (let () (declare (not safe)) - (if (##values? _g91886_) - (##values-length _g91886_) + (if (##values? _g92749_) + (##values-length _g92749_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91887_ 2))) - (error "Context expects 2 values" _g91887_))) - (let ((_%left-positional-contract58943%_ + (##fx= _g92750_ 2))) + (error "Context expects 2 values" _g92750_))) + (let ((_%left-positional-contract60097%_ (let () (declare (not safe)) - (##values-ref _g91884_ 0))) - (_%left-kw-contract58945%_ + (##values-ref _g92747_ 0))) + (_%left-kw-contract60099%_ (let () (declare (not safe)) - (##values-ref _g91884_ 1)))) - (let ((_%right-positional-contract58946%_ + (##values-ref _g92747_ 1)))) + (let ((_%right-positional-contract60100%_ (let () (declare (not safe)) - (##values-ref _g91886_ 0))) - (_%right-kw-contract58947%_ + (##values-ref _g92749_ 0))) + (_%right-kw-contract60101%_ (let () (declare (not safe)) - (##values-ref _g91886_ 1)))) - (let ((_%left-contract58957%_ - (append _%left-positional-contract58943%_ - (foldr (lambda (_%kwc58949%_ - _%r58951%_) - (cons (cdr _%kwc58949%_) - _%r58951%_)) + (##values-ref _g92749_ 1)))) + (let ((_%left-contract60111%_ + (append _%left-positional-contract60097%_ + (foldr (lambda (_%kwc60103%_ + _%r60105%_) + (cons (cdr _%kwc60103%_) + _%r60105%_)) '() - _%left-kw-contract58945%_))) - (_%right-contract58959%_ - (append _%right-positional-contract58946%_ - (foldr (lambda (_%kwc58953%_ - _%r58955%_) - (cons (cdr _%kwc58953%_) - _%r58955%_)) + _%left-kw-contract60099%_))) + (_%right-contract60113%_ + (append _%right-positional-contract60100%_ + (foldr (lambda (_%kwc60107%_ + _%r60109%_) + (cons (cdr _%kwc60107%_) + _%r60109%_)) '() - _%right-kw-contract58947%_)))) + _%right-kw-contract60101%_)))) (if (|gerbil/core/contract~Interface[1]#compatible-signature-type-contract?| - _%left-contract58957%_ - _%right-contract58959%_) + _%left-contract60111%_ + _%right-contract60113%_) '#!void - (_%return58932%_ '#f))))))) + (_%return60086%_ '#f))))))) (if (gx#free-identifier=? (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - _%left58922%_ - _%left-return58928%_)) + _%left60076%_ + _%left-return60082%_)) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - _%right58924%_ - _%right-return58930%_))) + _%right60078%_ + _%right-return60084%_))) '#!void - (_%return58932%_ '#f)) + (_%return60086%_ '#f)) '#t))) (declare (not safe)) - (##call-with-current-continuation __tmp91883)))))) + (##call-with-current-continuation __tmp92746)))))) (define |gerbil/core/contract~Interface[1]#compatible-signature-type-contract?| - (lambda (_%left58821%_ _%right58823%_) - (let _%loop58825%_ ((_%left-rest58828%_ _%left58821%_) - (_%right-rest58830%_ _%right58823%_)) - (let* ((_%left-rest5883158839%_ _%left-rest58828%_) - (_%else5883358851%_ (lambda () (null? _%right-rest58830%_))) - (_%K5883558902%_ - (lambda (_%left-rest58855%_ _%left58857%_) - (let* ((_%right-rest5885858866%_ _%right-rest58830%_) - (_%else5886058878%_ (lambda () '#f)) - (_%K5886258886%_ - (lambda (_%right-rest58882%_ _%right58884%_) + (lambda (_%left59975%_ _%right59977%_) + (let _%loop59979%_ ((_%left-rest59982%_ _%left59975%_) + (_%right-rest59984%_ _%right59977%_)) + (let* ((_%left-rest5998559993%_ _%left-rest59982%_) + (_%else5998760005%_ (lambda () (null? _%right-rest59984%_))) + (_%K5998960056%_ + (lambda (_%left-rest60009%_ _%left60011%_) + (let* ((_%right-rest6001260020%_ _%right-rest59984%_) + (_%else6001460032%_ (lambda () '#f)) + (_%K6001660040%_ + (lambda (_%right-rest60036%_ _%right60038%_) (if (|gerbil/core/contract~Interface[1]#compatible-type-contract?| - _%left58857%_ - _%right58884%_) - (_%loop58825%_ - _%left-rest58855%_ - _%right-rest58882%_) + _%left60011%_ + _%right60038%_) + (_%loop59979%_ + _%left-rest60009%_ + _%right-rest60036%_) '#f)))) - (if (pair? _%right-rest5885858866%_) - (let ((_%hd5886358890%_ + (if (pair? _%right-rest6001260020%_) + (let ((_%hd6001760044%_ (let () (declare (not safe)) - (##car _%right-rest5885858866%_))) - (_%tl5886458893%_ + (##car _%right-rest6001260020%_))) + (_%tl6001860047%_ (let () (declare (not safe)) - (##cdr _%right-rest5885858866%_)))) - (let* ((_%right58896%_ _%hd5886358890%_) - (_%right-rest58899%_ _%tl5886458893%_)) - (_%K5886258886%_ - _%right-rest58899%_ - _%right58896%_))) - (_%else5886058878%_)))))) - (if (pair? _%left-rest5883158839%_) - (let ((_%hd5883658906%_ + (##cdr _%right-rest6001260020%_)))) + (let* ((_%right60050%_ _%hd6001760044%_) + (_%right-rest60053%_ _%tl6001860047%_)) + (_%K6001660040%_ + _%right-rest60053%_ + _%right60050%_))) + (_%else6001460032%_)))))) + (if (pair? _%left-rest5998559993%_) + (let ((_%hd5999060060%_ (let () (declare (not safe)) - (##car _%left-rest5883158839%_))) - (_%tl5883758909%_ + (##car _%left-rest5998559993%_))) + (_%tl5999160063%_ (let () (declare (not safe)) - (##cdr _%left-rest5883158839%_)))) - (let* ((_%left58912%_ _%hd5883658906%_) - (_%left-rest58915%_ _%tl5883758909%_)) - (_%K5883558902%_ _%left-rest58915%_ _%left58912%_))) - (_%else5883358851%_)))))) + (##cdr _%left-rest5998559993%_)))) + (let* ((_%left60066%_ _%hd5999060060%_) + (_%left-rest60069%_ _%tl5999160063%_)) + (_%K5998960056%_ _%left-rest60069%_ _%left60066%_))) + (_%else5998760005%_)))))) (define |gerbil/core/contract~Interface[1]#compatible-type-contract?| - (lambda (_%left56950%_ _%right56952%_) - (andmap (lambda (_%a56954%_ _%b56956%_) - (let* ((_%__stx8883388834%_ _%a56954%_) - (_%g5696457042%_ + (lambda (_%left58104%_ _%right58106%_) + (andmap (lambda (_%a58108%_ _%b58110%_) + (let* ((_%__stx8978089781%_ _%a58108%_) + (_%g5811858196%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8883388834%_)))) - (let ((_%__kont8883688837%_ - (lambda (_%L58555%_ _%L58557%_) - (let* ((_%__stx8875188752%_ _%b56956%_) - (_%g5857658620%_ + _%__stx8978089781%_)))) + (let ((_%__kont8978389784%_ + (lambda (_%g5812059709%_ _%g5812159711%_) + (let* ((_%__stx8969889699%_ _%b58110%_) + (_%g5973059774%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8875188752%_)))) - (let ((_%__kont8875488755%_ - (lambda (_%L58790%_ _%L58792%_) + _%__stx8969889699%_)))) + (let ((_%__kont8970189702%_ + (lambda (_%g5973259944%_ _%g5973359946%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L58555%_ - _%L58790%_))) - (_%__kont8875688757%_ - (lambda (_%L58734%_ - _%L58736%_ - _%L58737%_) + _%g5812059709%_ + _%g5973259944%_))) + (_%__kont8970389704%_ + (lambda (_%g5974059888%_ + _%g5974159890%_ + _%g5974259891%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L58555%_ - _%L58734%_))) - (_%__kont8875888759%_ - (lambda (_%L58667%_ _%L58669%_) '#t))) - (let* ((_%__match8880088801%_ - (lambda (_%e5858958694%_ - _%hd5859058698%_ - _%tl5859158701%_ - _%e5859258704%_ - _%hd5859358708%_ - _%tl5859458711%_ - _%e5859558714%_ - _%hd5859658718%_ - _%tl5859758721%_ - _%e5859858724%_ - _%hd5859958728%_ - _%tl5860058731%_) - (let ((_%L58734%_ _%hd5859958728%_) - (_%L58736%_ _%hd5859658718%_) - (_%L58737%_ _%hd5859358708%_)) + _%g5812059709%_ + _%g5974059888%_))) + (_%__kont8970589706%_ + (lambda (_%g5975559821%_ _%g5975659823%_) + '#t))) + (let* ((_%__match8974789748%_ + (lambda (_%e5974359848%_ + _%hd5974459852%_ + _%tl5974559855%_ + _%e5974659858%_ + _%hd5974759862%_ + _%tl5974859865%_ + _%e5974959868%_ + _%hd5975059872%_ + _%tl5975159875%_ + _%e5975259878%_ + _%hd5975359882%_ + _%tl5975459885%_) + (let ((_%g5974059888%_ + _%hd5975359882%_) + (_%g5974159890%_ + _%hd5975059872%_) + (_%g5974259891%_ + _%hd5974759862%_)) (if (or (gx#free-identifier=? - _%L58736%_ + _%g5974159890%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58736%_ + _%g5974159890%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L58736%_ + _%g5974159890%_ (gx#datum->syntax '#f ':-))) - (_%__kont8875688757%_ - _%L58734%_ - _%L58736%_ - _%L58737%_) + (_%__kont8970389704%_ + _%g5974059888%_ + _%g5974159890%_ + _%g5974259891%_) (if (gx#stx-null? - _%tl5860058731%_) - (_%__kont8875888759%_ - _%hd5859658718%_ - _%hd5859358708%_) + _%tl5975459885%_) + (_%__kont8970589706%_ + _%hd5975059872%_ + _%hd5974759862%_) (let () (declare (not safe)) - (_%g5857658620%_))))))) - (_%__match8877288773%_ - (lambda (_%e5858058770%_ - _%hd5858158774%_ - _%tl5858258777%_ - _%e5858358780%_ - _%hd5858458784%_ - _%tl5858558787%_) - (let ((_%L58790%_ _%hd5858458784%_) - (_%L58792%_ _%hd5858158774%_)) + (_%g5973059774%_))))))) + (_%__match8971989720%_ + (lambda (_%e5973459924%_ + _%hd5973559928%_ + _%tl5973659931%_ + _%e5973759934%_ + _%hd5973859938%_ + _%tl5973959941%_) + (let ((_%g5973259944%_ + _%hd5973859938%_) + (_%g5973359946%_ + _%hd5973559928%_)) (if (or (gx#free-identifier=? - _%L58792%_ + _%g5973359946%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58792%_ + _%g5973359946%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L58792%_ + _%g5973359946%_ (gx#datum->syntax '#f ':-))) - (_%__kont8875488755%_ - _%L58790%_ - _%L58792%_) + (_%__kont8970189702%_ + _%g5973259944%_ + _%g5973359946%_) (if (gx#identifier? - _%hd5858158774%_) + _%hd5973559928%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91888_| - _%hd5858158774%_) + |gerbil/core/contract~Interface[1]#_g92751_| + _%hd5973559928%_) (if (gx#stx-pair? - _%tl5858558787%_) - (let ((_%e5859558714%_ + _%tl5973959941%_) + (let ((_%e5974959868%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5858558787%_))) - (let ((_%tl5859758721%_ + (gx#syntax-e _%tl5973959941%_))) + (let ((_%tl5975159875%_ (let () (declare (not safe)) - (##cdr _%e5859558714%_))) - (_%hd5859658718%_ + (##cdr _%e5974959868%_))) + (_%hd5975059872%_ (let () (declare (not safe)) - (##car _%e5859558714%_)))) - (if (gx#stx-pair? _%tl5859758721%_) - (let ((_%e5859858724%_ - (gx#syntax-e _%tl5859758721%_))) - (let ((_%tl5860058731%_ + (##car _%e5974959868%_)))) + (if (gx#stx-pair? _%tl5975159875%_) + (let ((_%e5975259878%_ + (gx#syntax-e _%tl5975159875%_))) + (let ((_%tl5975459885%_ (let () (declare (not safe)) - (##cdr _%e5859858724%_))) - (_%hd5859958728%_ + (##cdr _%e5975259878%_))) + (_%hd5975359882%_ (let () (declare (not safe)) - (##car _%e5859858724%_)))) - (_%__match8880088801%_ - _%e5858058770%_ - _%hd5858158774%_ - _%tl5858258777%_ - _%e5858358780%_ - _%hd5858458784%_ - _%tl5858558787%_ - _%e5859558714%_ - _%hd5859658718%_ - _%tl5859758721%_ - _%e5859858724%_ - _%hd5859958728%_ - _%tl5860058731%_))) - (let () (declare (not safe)) (_%g5857658620%_))))) - (let () (declare (not safe)) (_%g5857658620%_))) - (let () (declare (not safe)) (_%g5857658620%_))) + (##car _%e5975259878%_)))) + (_%__match8974789748%_ + _%e5973459924%_ + _%hd5973559928%_ + _%tl5973659931%_ + _%e5973759934%_ + _%hd5973859938%_ + _%tl5973959941%_ + _%e5974959868%_ + _%hd5975059872%_ + _%tl5975159875%_ + _%e5975259878%_ + _%hd5975359882%_ + _%tl5975459885%_))) + (let () (declare (not safe)) (_%g5973059774%_))))) + (let () (declare (not safe)) (_%g5973059774%_))) + (let () (declare (not safe)) (_%g5973059774%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5857658620%_)))))))) - (if (gx#stx-pair? _%__stx8875188752%_) - (let ((_%e5858058770%_ + (_%g5973059774%_)))))))) + (if (gx#stx-pair? _%__stx8969889699%_) + (let ((_%e5973459924%_ (gx#syntax-e - _%__stx8875188752%_))) - (let ((_%tl5858258777%_ + _%__stx8969889699%_))) + (let ((_%tl5973659931%_ (let () (declare (not safe)) - (##cdr _%e5858058770%_))) - (_%hd5858158774%_ + (##cdr _%e5973459924%_))) + (_%hd5973559928%_ (let () (declare (not safe)) - (##car _%e5858058770%_)))) - (if (gx#stx-pair? _%tl5858258777%_) - (let ((_%e5858358780%_ + (##car _%e5973459924%_)))) + (if (gx#stx-pair? _%tl5973659931%_) + (let ((_%e5973759934%_ (gx#syntax-e - _%tl5858258777%_))) - (let ((_%tl5858558787%_ + _%tl5973659931%_))) + (let ((_%tl5973959941%_ (let () (declare (not safe)) - (##cdr _%e5858358780%_))) - (_%hd5858458784%_ + (##cdr _%e5973759934%_))) + (_%hd5973859938%_ (let () (declare (not safe)) - (##car _%e5858358780%_)))) - (_%__match8877288773%_ - _%e5858058770%_ - _%hd5858158774%_ - _%tl5858258777%_ - _%e5858358780%_ - _%hd5858458784%_ - _%tl5858558787%_))) + (##car _%e5973759934%_)))) + (_%__match8971989720%_ + _%e5973459924%_ + _%hd5973559928%_ + _%tl5973659931%_ + _%e5973759934%_ + _%hd5973859938%_ + _%tl5973959941%_))) (let () (declare (not safe)) - (_%g5857658620%_))))) + (_%g5973059774%_))))) (let () (declare (not safe)) - (_%g5857658620%_)))))))) - (_%__kont8883888839%_ - (lambda (_%L58362%_) - (let* ((_%__stx8869188692%_ _%b56956%_) - (_%g5837758405%_ + (_%g5973059774%_)))))))) + (_%__kont8978589786%_ + (lambda (_%g5812859516%_) + (let* ((_%__stx8963889639%_ _%b58110%_) + (_%g5953159559%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8869188692%_)))) - (let ((_%__kont8869488695%_ - (lambda (_%L58511%_) + _%__stx8963889639%_)))) + (let ((_%__kont8964189642%_ + (lambda (_%g5953359665%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L58362%_ - _%L58511%_))) - (_%__kont8869688697%_ - (lambda (_%L58463%_ _%L58465%_) + _%g5812859516%_ + _%g5953359665%_))) + (_%__kont8964389644%_ + (lambda (_%g5954059617%_ _%g5954159619%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L58362%_ - _%L58463%_))) - (_%__kont8869888699%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx8869188692%_) - (let ((_%e5838058491%_ - (gx#syntax-e _%__stx8869188692%_))) - (let ((_%tl5838258498%_ + _%g5812859516%_ + _%g5954059617%_))) + (_%__kont8964589646%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx8963889639%_) + (let ((_%e5953459645%_ + (gx#syntax-e _%__stx8963889639%_))) + (let ((_%tl5953659652%_ (let () (declare (not safe)) - (##cdr _%e5838058491%_))) - (_%hd5838158495%_ + (##cdr _%e5953459645%_))) + (_%hd5953559649%_ (let () (declare (not safe)) - (##car _%e5838058491%_)))) - (if (gx#identifier? _%hd5838158495%_) + (##car _%e5953459645%_)))) + (if (gx#identifier? _%hd5953559649%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91889_| - _%hd5838158495%_) + |gerbil/core/contract~Interface[1]#_g92752_| + _%hd5953559649%_) (if (gx#stx-pair? - _%tl5838258498%_) - (let ((_%e5838358501%_ + _%tl5953659652%_) + (let ((_%e5953759655%_ (gx#syntax-e - _%tl5838258498%_))) - (let ((_%tl5838558508%_ + _%tl5953659652%_))) + (let ((_%tl5953959662%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5838358501%_))) - (_%hd5838458505%_ - (let () (declare (not safe)) (##car _%e5838358501%_)))) - (_%__kont8869488695%_ _%hd5838458505%_))) + (##cdr _%e5953759655%_))) + (_%hd5953859659%_ + (let () (declare (not safe)) (##car _%e5953759655%_)))) + (_%__kont8964189642%_ _%hd5953859659%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8869888699%_)) + (_%__kont8964589646%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91890_| - _%hd5838158495%_) + |gerbil/core/contract~Interface[1]#_g92753_| + _%hd5953559649%_) (if (gx#stx-pair? - _%tl5838258498%_) - (let ((_%e5839158433%_ + _%tl5953659652%_) + (let ((_%e5954559587%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5838258498%_))) - (let ((_%tl5839358440%_ + _%tl5953659652%_))) + (let ((_%tl5954759594%_ (let () (declare (not safe)) - (##cdr _%e5839158433%_))) - (_%hd5839258437%_ + (##cdr _%e5954559587%_))) + (_%hd5954659591%_ (let () (declare (not safe)) - (##car _%e5839158433%_)))) - (if (gx#stx-pair? _%tl5839358440%_) - (let ((_%e5839458443%_ - (gx#syntax-e _%tl5839358440%_))) - (let ((_%tl5839658450%_ + (##car _%e5954559587%_)))) + (if (gx#stx-pair? _%tl5954759594%_) + (let ((_%e5954859597%_ + (gx#syntax-e _%tl5954759594%_))) + (let ((_%tl5955059604%_ (let () (declare (not safe)) - (##cdr _%e5839458443%_))) - (_%hd5839558447%_ + (##cdr _%e5954859597%_))) + (_%hd5954959601%_ (let () (declare (not safe)) - (##car _%e5839458443%_)))) - (if (gx#identifier? _%hd5839558447%_) + (##car _%e5954859597%_)))) + (if (gx#identifier? _%hd5954959601%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91891_| - _%hd5839558447%_) - (if (gx#stx-pair? _%tl5839658450%_) - (let ((_%e5839758453%_ + |gerbil/core/contract~Interface[1]#_g92754_| + _%hd5954959601%_) + (if (gx#stx-pair? _%tl5955059604%_) + (let ((_%e5955159607%_ (gx#syntax-e - _%tl5839658450%_))) - (let ((_%tl5839958460%_ + _%tl5955059604%_))) + (let ((_%tl5955359614%_ (let () (declare (not safe)) - (##cdr _%e5839758453%_))) - (_%hd5839858457%_ + (##cdr _%e5955159607%_))) + (_%hd5955259611%_ (let () (declare (not safe)) - (##car _%e5839758453%_)))) - (_%__kont8869688697%_ - _%hd5839858457%_ - _%hd5839258437%_))) - (_%__kont8869888699%_)) - (_%__kont8869888699%_)) - (_%__kont8869888699%_)))) - (_%__kont8869888699%_)))) - (_%__kont8869888699%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8869888699%_))) - (_%__kont8869888699%_)))) - (_%__kont8869888699%_)))))) - (_%__kont8884088841%_ - (lambda (_%L58079%_) - (let* ((_%__stx8860588606%_ _%b56956%_) - (_%g5809458138%_ + (##car _%e5955159607%_)))) + (_%__kont8964389644%_ + _%hd5955259611%_ + _%hd5954659591%_))) + (_%__kont8964589646%_)) + (_%__kont8964589646%_)) + (_%__kont8964589646%_)))) + (_%__kont8964589646%_)))) + (_%__kont8964589646%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8964589646%_))) + (_%__kont8964589646%_)))) + (_%__kont8964589646%_)))))) + (_%__kont8978789788%_ + (lambda (_%g5813559233%_) + (let* ((_%__stx8955289553%_ _%b58110%_) + (_%g5924859292%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8860588606%_)))) - (let ((_%__kont8860888609%_ - (lambda (_%L58308%_ _%L58310%_) + _%__stx8955289553%_)))) + (let ((_%__kont8955589556%_ + (lambda (_%g5925059462%_ _%g5925159464%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L58079%_ - _%L58308%_))) - (_%__kont8861088611%_ - (lambda (_%L58250%_ - _%L58252%_ - _%L58253%_ - _%L58254%_) + _%g5813559233%_ + _%g5925059462%_))) + (_%__kont8955789558%_ + (lambda (_%g5925859404%_ + _%g5925959406%_ + _%g5926059407%_ + _%g5926159408%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L58079%_ - _%L58252%_))) - (_%__kont8861288613%_ - (lambda (_%L58185%_) '#t))) - (let* ((_%__match8865488655%_ - (lambda (_%e5810858210%_ - _%hd5810958214%_ - _%tl5811058217%_ - _%e5811158220%_ - _%hd5811258224%_ - _%tl5811358227%_ - _%e5811458230%_ - _%hd5811558234%_ - _%tl5811658237%_ - _%e5811758240%_ - _%hd5811858244%_ - _%tl5811958247%_) - (let ((_%L58250%_ _%tl5811958247%_) - (_%L58252%_ _%hd5811858244%_) - (_%L58253%_ _%hd5811558234%_) - (_%L58254%_ _%hd5811258224%_)) + _%g5813559233%_ + _%g5925959406%_))) + (_%__kont8955989560%_ + (lambda (_%g5927459339%_) '#t))) + (let* ((_%__match8960189602%_ + (lambda (_%e5926259364%_ + _%hd5926359368%_ + _%tl5926459371%_ + _%e5926559374%_ + _%hd5926659378%_ + _%tl5926759381%_ + _%e5926859384%_ + _%hd5926959388%_ + _%tl5927059391%_ + _%e5927159394%_ + _%hd5927259398%_ + _%tl5927359401%_) + (let ((_%g5925859404%_ + _%tl5927359401%_) + (_%g5925959406%_ + _%hd5927259398%_) + (_%g5926059407%_ + _%hd5926959388%_) + (_%g5926159408%_ + _%hd5926659378%_)) (if (or (gx#free-identifier=? - _%L58253%_ + _%g5926059407%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58253%_ + _%g5926059407%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L58253%_ + _%g5926059407%_ (gx#datum->syntax '#f ':-))) - (_%__kont8861088611%_ - _%L58250%_ - _%L58252%_ - _%L58253%_ - _%L58254%_) + (_%__kont8955789558%_ + _%g5925859404%_ + _%g5925959406%_ + _%g5926059407%_ + _%g5926159408%_) (if (gx#identifier? - _%hd5811558234%_) + _%hd5926959388%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91892_| - _%hd5811558234%_) + |gerbil/core/contract~Interface[1]#_g92755_| + _%hd5926959388%_) (if (gx#stx-null? - _%tl5811958247%_) - (_%__kont8861288613%_ - _%hd5811258224%_) + _%tl5927359401%_) + (_%__kont8955989560%_ + _%hd5926659378%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_%g5809458138%_))) - (let () (declare (not safe)) (_%g5809458138%_))) + (_%g5924859292%_))) + (let () (declare (not safe)) (_%g5924859292%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5809458138%_))))))) - (_%__match8862688627%_ - (lambda (_%e5809858288%_ - _%hd5809958292%_ - _%tl5810058295%_ - _%e5810158298%_ - _%hd5810258302%_ - _%tl5810358305%_) - (let ((_%L58308%_ _%hd5810258302%_) - (_%L58310%_ _%hd5809958292%_)) + (_%g5924859292%_))))))) + (_%__match8957389574%_ + (lambda (_%e5925259442%_ + _%hd5925359446%_ + _%tl5925459449%_ + _%e5925559452%_ + _%hd5925659456%_ + _%tl5925759459%_) + (let ((_%g5925059462%_ + _%hd5925659456%_) + (_%g5925159464%_ + _%hd5925359446%_)) (if (or (gx#free-identifier=? - _%L58310%_ + _%g5925159464%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58310%_ + _%g5925159464%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L58310%_ + _%g5925159464%_ (gx#datum->syntax '#f ':-))) - (_%__kont8860888609%_ - _%L58308%_ - _%L58310%_) + (_%__kont8955589556%_ + _%g5925059462%_ + _%g5925159464%_) (if (gx#identifier? - _%hd5809958292%_) + _%hd5925359446%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91893_| - _%hd5809958292%_) + |gerbil/core/contract~Interface[1]#_g92756_| + _%hd5925359446%_) (if (gx#stx-pair? - _%tl5810358305%_) - (let ((_%e5811458230%_ + _%tl5925759459%_) + (let ((_%e5926859384%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5810358305%_))) - (let ((_%tl5811658237%_ + (gx#syntax-e _%tl5925759459%_))) + (let ((_%tl5927059391%_ (let () (declare (not safe)) - (##cdr _%e5811458230%_))) - (_%hd5811558234%_ + (##cdr _%e5926859384%_))) + (_%hd5926959388%_ (let () (declare (not safe)) - (##car _%e5811458230%_)))) - (if (gx#stx-pair? _%tl5811658237%_) - (let ((_%e5811758240%_ - (gx#syntax-e _%tl5811658237%_))) - (let ((_%tl5811958247%_ + (##car _%e5926859384%_)))) + (if (gx#stx-pair? _%tl5927059391%_) + (let ((_%e5927159394%_ + (gx#syntax-e _%tl5927059391%_))) + (let ((_%tl5927359401%_ (let () (declare (not safe)) - (##cdr _%e5811758240%_))) - (_%hd5811858244%_ + (##cdr _%e5927159394%_))) + (_%hd5927259398%_ (let () (declare (not safe)) - (##car _%e5811758240%_)))) - (_%__match8865488655%_ - _%e5809858288%_ - _%hd5809958292%_ - _%tl5810058295%_ - _%e5810158298%_ - _%hd5810258302%_ - _%tl5810358305%_ - _%e5811458230%_ - _%hd5811558234%_ - _%tl5811658237%_ - _%e5811758240%_ - _%hd5811858244%_ - _%tl5811958247%_))) - (let () (declare (not safe)) (_%g5809458138%_))))) - (let () (declare (not safe)) (_%g5809458138%_))) - (let () (declare (not safe)) (_%g5809458138%_))) + (##car _%e5927159394%_)))) + (_%__match8960189602%_ + _%e5925259442%_ + _%hd5925359446%_ + _%tl5925459449%_ + _%e5925559452%_ + _%hd5925659456%_ + _%tl5925759459%_ + _%e5926859384%_ + _%hd5926959388%_ + _%tl5927059391%_ + _%e5927159394%_ + _%hd5927259398%_ + _%tl5927359401%_))) + (let () (declare (not safe)) (_%g5924859292%_))))) + (let () (declare (not safe)) (_%g5924859292%_))) + (let () (declare (not safe)) (_%g5924859292%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5809458138%_)))))))) - (if (gx#stx-pair? _%__stx8860588606%_) - (let ((_%e5809858288%_ + (_%g5924859292%_)))))))) + (if (gx#stx-pair? _%__stx8955289553%_) + (let ((_%e5925259442%_ (gx#syntax-e - _%__stx8860588606%_))) - (let ((_%tl5810058295%_ + _%__stx8955289553%_))) + (let ((_%tl5925459449%_ (let () (declare (not safe)) - (##cdr _%e5809858288%_))) - (_%hd5809958292%_ + (##cdr _%e5925259442%_))) + (_%hd5925359446%_ (let () (declare (not safe)) - (##car _%e5809858288%_)))) - (if (gx#stx-pair? _%tl5810058295%_) - (let ((_%e5810158298%_ + (##car _%e5925259442%_)))) + (if (gx#stx-pair? _%tl5925459449%_) + (let ((_%e5925559452%_ (gx#syntax-e - _%tl5810058295%_))) - (let ((_%tl5810358305%_ + _%tl5925459449%_))) + (let ((_%tl5925759459%_ (let () (declare (not safe)) - (##cdr _%e5810158298%_))) - (_%hd5810258302%_ + (##cdr _%e5925559452%_))) + (_%hd5925659456%_ (let () (declare (not safe)) - (##car _%e5810158298%_)))) - (_%__match8862688627%_ - _%e5809858288%_ - _%hd5809958292%_ - _%tl5810058295%_ - _%e5810158298%_ - _%hd5810258302%_ - _%tl5810358305%_))) + (##car _%e5925559452%_)))) + (_%__match8957389574%_ + _%e5925259442%_ + _%hd5925359446%_ + _%tl5925459449%_ + _%e5925559452%_ + _%hd5925659456%_ + _%tl5925759459%_))) (let () (declare (not safe)) - (_%g5809458138%_))))) + (_%g5924859292%_))))) (let () (declare (not safe)) - (_%g5809458138%_)))))))) - (_%__kont8884288843%_ - (lambda (_%L57798%_ _%L57800%_) - (let* ((_%__stx8852388524%_ _%b56956%_) - (_%g5781957863%_ + (_%g5924859292%_)))))))) + (_%__kont8978989790%_ + (lambda (_%g5814258952%_ _%g5814358954%_) + (let* ((_%__stx8947089471%_ _%b58110%_) + (_%g5897359017%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8852388524%_)))) - (let ((_%__kont8852688527%_ - (lambda (_%L58025%_ _%L58027%_) + _%__stx8947089471%_)))) + (let ((_%__kont8947389474%_ + (lambda (_%g5897559179%_ _%g5897659181%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L57798%_ - _%L58025%_))) - (_%__kont8852888529%_ - (lambda (_%L57977%_ - _%L57979%_ - _%L57980%_) + _%g5814258952%_ + _%g5897559179%_))) + (_%__kont8947589476%_ + (lambda (_%g5898359131%_ + _%g5898459133%_ + _%g5898559134%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L57798%_ - _%L57977%_))) - (_%__kont8853088531%_ - (lambda (_%L57910%_ _%L57912%_) '#t))) - (let ((_%__match8854488545%_ - (lambda (_%e5782358005%_ - _%hd5782458009%_ - _%tl5782558012%_ - _%e5782658015%_ - _%hd5782758019%_ - _%tl5782858022%_) - (let ((_%L58025%_ _%hd5782758019%_) - (_%L58027%_ _%hd5782458009%_)) + _%g5814258952%_ + _%g5898359131%_))) + (_%__kont8947789478%_ + (lambda (_%g5899859064%_ _%g5899959066%_) + '#t))) + (let ((_%__match8949189492%_ + (lambda (_%e5897759159%_ + _%hd5897859163%_ + _%tl5897959166%_ + _%e5898059169%_ + _%hd5898159173%_ + _%tl5898259176%_) + (let ((_%g5897559179%_ + _%hd5898159173%_) + (_%g5897659181%_ + _%hd5897859163%_)) (if (or (gx#free-identifier=? - _%L58027%_ + _%g5897659181%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58027%_ + _%g5897659181%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L58027%_ + _%g5897659181%_ (gx#datum->syntax '#f ':-))) - (_%__kont8852688527%_ - _%L58025%_ - _%L58027%_) + (_%__kont8947389474%_ + _%g5897559179%_ + _%g5897659181%_) (if (gx#identifier? - _%hd5782458009%_) + _%hd5897859163%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91894_| - _%hd5782458009%_) + |gerbil/core/contract~Interface[1]#_g92757_| + _%hd5897859163%_) (if (gx#stx-pair? - _%tl5782858022%_) - (let ((_%e5783857957%_ + _%tl5898259176%_) + (let ((_%e5899259111%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5782858022%_))) - (let ((_%tl5784057964%_ + (gx#syntax-e _%tl5898259176%_))) + (let ((_%tl5899459118%_ (let () (declare (not safe)) - (##cdr _%e5783857957%_))) - (_%hd5783957961%_ + (##cdr _%e5899259111%_))) + (_%hd5899359115%_ (let () (declare (not safe)) - (##car _%e5783857957%_)))) - (if (gx#stx-pair? _%tl5784057964%_) - (let ((_%e5784157967%_ - (gx#syntax-e _%tl5784057964%_))) - (let ((_%tl5784357974%_ + (##car _%e5899259111%_)))) + (if (gx#stx-pair? _%tl5899459118%_) + (let ((_%e5899559121%_ + (gx#syntax-e _%tl5899459118%_))) + (let ((_%tl5899759128%_ (let () (declare (not safe)) - (##cdr _%e5784157967%_))) - (_%hd5784257971%_ + (##cdr _%e5899559121%_))) + (_%hd5899659125%_ (let () (declare (not safe)) - (##car _%e5784157967%_)))) - (_%__kont8852888529%_ - _%hd5784257971%_ - _%hd5783957961%_ - _%hd5782758019%_))) - (let () (declare (not safe)) (_%g5781957863%_))))) - (let () (declare (not safe)) (_%g5781957863%_))) - (let () (declare (not safe)) (_%g5781957863%_))) + (##car _%e5899559121%_)))) + (_%__kont8947589476%_ + _%hd5899659125%_ + _%hd5899359115%_ + _%hd5898159173%_))) + (let () (declare (not safe)) (_%g5897359017%_))))) + (let () (declare (not safe)) (_%g5897359017%_))) + (let () (declare (not safe)) (_%g5897359017%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5781957863%_)))))))) - (if (gx#stx-pair? _%__stx8852388524%_) - (let ((_%e5782358005%_ + (_%g5897359017%_)))))))) + (if (gx#stx-pair? _%__stx8947089471%_) + (let ((_%e5897759159%_ (gx#syntax-e - _%__stx8852388524%_))) - (let ((_%tl5782558012%_ + _%__stx8947089471%_))) + (let ((_%tl5897959166%_ (let () (declare (not safe)) - (##cdr _%e5782358005%_))) - (_%hd5782458009%_ + (##cdr _%e5897759159%_))) + (_%hd5897859163%_ (let () (declare (not safe)) - (##car _%e5782358005%_)))) - (if (gx#stx-pair? _%tl5782558012%_) - (let ((_%e5782658015%_ + (##car _%e5897759159%_)))) + (if (gx#stx-pair? _%tl5897959166%_) + (let ((_%e5898059169%_ (gx#syntax-e - _%tl5782558012%_))) - (let ((_%tl5782858022%_ + _%tl5897959166%_))) + (let ((_%tl5898259176%_ (let () (declare (not safe)) - (##cdr _%e5782658015%_))) - (_%hd5782758019%_ + (##cdr _%e5898059169%_))) + (_%hd5898159173%_ (let () (declare (not safe)) - (##car _%e5782658015%_)))) - (_%__match8854488545%_ - _%e5782358005%_ - _%hd5782458009%_ - _%tl5782558012%_ - _%e5782658015%_ - _%hd5782758019%_ - _%tl5782858022%_))) + (##car _%e5898059169%_)))) + (_%__match8949189492%_ + _%e5897759159%_ + _%hd5897859163%_ + _%tl5897959166%_ + _%e5898059169%_ + _%hd5898159173%_ + _%tl5898259176%_))) (let () (declare (not safe)) - (_%g5781957863%_))))) + (_%g5897359017%_))))) (let () (declare (not safe)) - (_%g5781957863%_)))))))) - (_%__kont8884488845%_ - (lambda (_%L57579%_ _%L57581%_) - (let* ((_%__stx8846388464%_ _%b56956%_) - (_%g5760057628%_ + (_%g5897359017%_)))))))) + (_%__kont8979189792%_ + (lambda (_%g5815658733%_ _%g5815758735%_) + (let* ((_%__stx8941089411%_ _%b58110%_) + (_%g5875458782%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8846388464%_)))) - (let ((_%__kont8846688467%_ - (lambda (_%L57734%_) + _%__stx8941089411%_)))) + (let ((_%__kont8941389414%_ + (lambda (_%g5875658888%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L57579%_ - _%L57734%_))) - (_%__kont8846888469%_ - (lambda (_%L57686%_ _%L57688%_) + _%g5815658733%_ + _%g5875658888%_))) + (_%__kont8941589416%_ + (lambda (_%g5876358840%_ _%g5876458842%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L57579%_ - _%L57686%_))) - (_%__kont8847088471%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx8846388464%_) - (let ((_%e5760357714%_ - (gx#syntax-e _%__stx8846388464%_))) - (let ((_%tl5760557721%_ + _%g5815658733%_ + _%g5876358840%_))) + (_%__kont8941789418%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx8941089411%_) + (let ((_%e5875758868%_ + (gx#syntax-e _%__stx8941089411%_))) + (let ((_%tl5875958875%_ (let () (declare (not safe)) - (##cdr _%e5760357714%_))) - (_%hd5760457718%_ + (##cdr _%e5875758868%_))) + (_%hd5875858872%_ (let () (declare (not safe)) - (##car _%e5760357714%_)))) - (if (gx#identifier? _%hd5760457718%_) + (##car _%e5875758868%_)))) + (if (gx#identifier? _%hd5875858872%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91895_| - _%hd5760457718%_) + |gerbil/core/contract~Interface[1]#_g92758_| + _%hd5875858872%_) (if (gx#stx-pair? - _%tl5760557721%_) - (let ((_%e5760657724%_ + _%tl5875958875%_) + (let ((_%e5876058878%_ (gx#syntax-e - _%tl5760557721%_))) - (let ((_%tl5760857731%_ + _%tl5875958875%_))) + (let ((_%tl5876258885%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5760657724%_))) - (_%hd5760757728%_ - (let () (declare (not safe)) (##car _%e5760657724%_)))) - (_%__kont8846688467%_ _%hd5760757728%_))) + (##cdr _%e5876058878%_))) + (_%hd5876158882%_ + (let () (declare (not safe)) (##car _%e5876058878%_)))) + (_%__kont8941389414%_ _%hd5876158882%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8847088471%_)) + (_%__kont8941789418%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91896_| - _%hd5760457718%_) + |gerbil/core/contract~Interface[1]#_g92759_| + _%hd5875858872%_) (if (gx#stx-pair? - _%tl5760557721%_) - (let ((_%e5761457656%_ + _%tl5875958875%_) + (let ((_%e5876858810%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5760557721%_))) - (let ((_%tl5761657663%_ + _%tl5875958875%_))) + (let ((_%tl5877058817%_ (let () (declare (not safe)) - (##cdr _%e5761457656%_))) - (_%hd5761557660%_ + (##cdr _%e5876858810%_))) + (_%hd5876958814%_ (let () (declare (not safe)) - (##car _%e5761457656%_)))) - (if (gx#stx-pair? _%tl5761657663%_) - (let ((_%e5761757666%_ - (gx#syntax-e _%tl5761657663%_))) - (let ((_%tl5761957673%_ + (##car _%e5876858810%_)))) + (if (gx#stx-pair? _%tl5877058817%_) + (let ((_%e5877158820%_ + (gx#syntax-e _%tl5877058817%_))) + (let ((_%tl5877358827%_ (let () (declare (not safe)) - (##cdr _%e5761757666%_))) - (_%hd5761857670%_ + (##cdr _%e5877158820%_))) + (_%hd5877258824%_ (let () (declare (not safe)) - (##car _%e5761757666%_)))) - (if (gx#identifier? _%hd5761857670%_) + (##car _%e5877158820%_)))) + (if (gx#identifier? _%hd5877258824%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91897_| - _%hd5761857670%_) - (if (gx#stx-pair? _%tl5761957673%_) - (let ((_%e5762057676%_ + |gerbil/core/contract~Interface[1]#_g92760_| + _%hd5877258824%_) + (if (gx#stx-pair? _%tl5877358827%_) + (let ((_%e5877458830%_ (gx#syntax-e - _%tl5761957673%_))) - (let ((_%tl5762257683%_ + _%tl5877358827%_))) + (let ((_%tl5877658837%_ (let () (declare (not safe)) - (##cdr _%e5762057676%_))) - (_%hd5762157680%_ + (##cdr _%e5877458830%_))) + (_%hd5877558834%_ (let () (declare (not safe)) - (##car _%e5762057676%_)))) - (_%__kont8846888469%_ - _%hd5762157680%_ - _%hd5761557660%_))) - (_%__kont8847088471%_)) - (_%__kont8847088471%_)) - (_%__kont8847088471%_)))) - (_%__kont8847088471%_)))) - (_%__kont8847088471%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8847088471%_))) - (_%__kont8847088471%_)))) - (_%__kont8847088471%_)))))) - (_%__kont8884688847%_ - (lambda (_%L57270%_ _%L57272%_) - (let* ((_%__stx8838188382%_ _%b56956%_) - (_%g5729157335%_ + (##car _%e5877458830%_)))) + (_%__kont8941589416%_ + _%hd5877558834%_ + _%hd5876958814%_))) + (_%__kont8941789418%_)) + (_%__kont8941789418%_)) + (_%__kont8941789418%_)))) + (_%__kont8941789418%_)))) + (_%__kont8941789418%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8941789418%_))) + (_%__kont8941789418%_)))) + (_%__kont8941789418%_)))))) + (_%__kont8979389794%_ + (lambda (_%g5817058424%_ _%g5817158426%_) + (let* ((_%__stx8932889329%_ _%b58110%_) + (_%g5844558489%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8838188382%_)))) - (let ((_%__kont8838488385%_ - (lambda (_%L57505%_ _%L57507%_) + _%__stx8932889329%_)))) + (let ((_%__kont8933189332%_ + (lambda (_%g5844758659%_ _%g5844858661%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L57270%_ - _%L57505%_))) - (_%__kont8838688387%_ - (lambda (_%L57449%_ - _%L57451%_ - _%L57452%_) + _%g5817058424%_ + _%g5844758659%_))) + (_%__kont8933389334%_ + (lambda (_%g5845558603%_ + _%g5845658605%_ + _%g5845758606%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L57270%_ - _%L57449%_))) - (_%__kont8838888389%_ - (lambda (_%L57382%_ _%L57384%_) '#t))) - (let* ((_%__match8843088431%_ - (lambda (_%e5730457409%_ - _%hd5730557413%_ - _%tl5730657416%_ - _%e5730757419%_ - _%hd5730857423%_ - _%tl5730957426%_ - _%e5731057429%_ - _%hd5731157433%_ - _%tl5731257436%_ - _%e5731357439%_ - _%hd5731457443%_ - _%tl5731557446%_) - (let ((_%L57449%_ _%hd5731457443%_) - (_%L57451%_ _%hd5731157433%_) - (_%L57452%_ _%hd5730857423%_)) + _%g5817058424%_ + _%g5845558603%_))) + (_%__kont8933589336%_ + (lambda (_%g5847058536%_ _%g5847158538%_) + '#t))) + (let* ((_%__match8937789378%_ + (lambda (_%e5845858563%_ + _%hd5845958567%_ + _%tl5846058570%_ + _%e5846158573%_ + _%hd5846258577%_ + _%tl5846358580%_ + _%e5846458583%_ + _%hd5846558587%_ + _%tl5846658590%_ + _%e5846758593%_ + _%hd5846858597%_ + _%tl5846958600%_) + (let ((_%g5845558603%_ + _%hd5846858597%_) + (_%g5845658605%_ + _%hd5846558587%_) + (_%g5845758606%_ + _%hd5846258577%_)) (if (or (gx#free-identifier=? - _%L57451%_ + _%g5845658605%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L57451%_ + _%g5845658605%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L57451%_ + _%g5845658605%_ (gx#datum->syntax '#f ':-))) - (_%__kont8838688387%_ - _%L57449%_ - _%L57451%_ - _%L57452%_) + (_%__kont8933389334%_ + _%g5845558603%_ + _%g5845658605%_ + _%g5845758606%_) (if (gx#stx-null? - _%tl5731557446%_) - (_%__kont8838888389%_ - _%hd5731157433%_ - _%hd5730857423%_) + _%tl5846958600%_) + (_%__kont8933589336%_ + _%hd5846558587%_ + _%hd5846258577%_) (let () (declare (not safe)) - (_%g5729157335%_))))))) - (_%__match8840288403%_ - (lambda (_%e5729557485%_ - _%hd5729657489%_ - _%tl5729757492%_ - _%e5729857495%_ - _%hd5729957499%_ - _%tl5730057502%_) - (let ((_%L57505%_ _%hd5729957499%_) - (_%L57507%_ _%hd5729657489%_)) + (_%g5844558489%_))))))) + (_%__match8934989350%_ + (lambda (_%e5844958639%_ + _%hd5845058643%_ + _%tl5845158646%_ + _%e5845258649%_ + _%hd5845358653%_ + _%tl5845458656%_) + (let ((_%g5844758659%_ + _%hd5845358653%_) + (_%g5844858661%_ + _%hd5845058643%_)) (if (or (gx#free-identifier=? - _%L57507%_ + _%g5844858661%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L57507%_ + _%g5844858661%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L57507%_ + _%g5844858661%_ (gx#datum->syntax '#f ':-))) - (_%__kont8838488385%_ - _%L57505%_ - _%L57507%_) + (_%__kont8933189332%_ + _%g5844758659%_ + _%g5844858661%_) (if (gx#identifier? - _%hd5729657489%_) + _%hd5845058643%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91898_| - _%hd5729657489%_) + |gerbil/core/contract~Interface[1]#_g92761_| + _%hd5845058643%_) (if (gx#stx-pair? - _%tl5730057502%_) - (let ((_%e5731057429%_ + _%tl5845458656%_) + (let ((_%e5846458583%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5730057502%_))) - (let ((_%tl5731257436%_ + (gx#syntax-e _%tl5845458656%_))) + (let ((_%tl5846658590%_ (let () (declare (not safe)) - (##cdr _%e5731057429%_))) - (_%hd5731157433%_ + (##cdr _%e5846458583%_))) + (_%hd5846558587%_ (let () (declare (not safe)) - (##car _%e5731057429%_)))) - (if (gx#stx-pair? _%tl5731257436%_) - (let ((_%e5731357439%_ - (gx#syntax-e _%tl5731257436%_))) - (let ((_%tl5731557446%_ + (##car _%e5846458583%_)))) + (if (gx#stx-pair? _%tl5846658590%_) + (let ((_%e5846758593%_ + (gx#syntax-e _%tl5846658590%_))) + (let ((_%tl5846958600%_ (let () (declare (not safe)) - (##cdr _%e5731357439%_))) - (_%hd5731457443%_ + (##cdr _%e5846758593%_))) + (_%hd5846858597%_ (let () (declare (not safe)) - (##car _%e5731357439%_)))) - (_%__match8843088431%_ - _%e5729557485%_ - _%hd5729657489%_ - _%tl5729757492%_ - _%e5729857495%_ - _%hd5729957499%_ - _%tl5730057502%_ - _%e5731057429%_ - _%hd5731157433%_ - _%tl5731257436%_ - _%e5731357439%_ - _%hd5731457443%_ - _%tl5731557446%_))) - (let () (declare (not safe)) (_%g5729157335%_))))) - (let () (declare (not safe)) (_%g5729157335%_))) - (let () (declare (not safe)) (_%g5729157335%_))) + (##car _%e5846758593%_)))) + (_%__match8937789378%_ + _%e5844958639%_ + _%hd5845058643%_ + _%tl5845158646%_ + _%e5845258649%_ + _%hd5845358653%_ + _%tl5845458656%_ + _%e5846458583%_ + _%hd5846558587%_ + _%tl5846658590%_ + _%e5846758593%_ + _%hd5846858597%_ + _%tl5846958600%_))) + (let () (declare (not safe)) (_%g5844558489%_))))) + (let () (declare (not safe)) (_%g5844558489%_))) + (let () (declare (not safe)) (_%g5844558489%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5729157335%_)))))))) - (if (gx#stx-pair? _%__stx8838188382%_) - (let ((_%e5729557485%_ + (_%g5844558489%_)))))))) + (if (gx#stx-pair? _%__stx8932889329%_) + (let ((_%e5844958639%_ (gx#syntax-e - _%__stx8838188382%_))) - (let ((_%tl5729757492%_ + _%__stx8932889329%_))) + (let ((_%tl5845158646%_ (let () (declare (not safe)) - (##cdr _%e5729557485%_))) - (_%hd5729657489%_ + (##cdr _%e5844958639%_))) + (_%hd5845058643%_ (let () (declare (not safe)) - (##car _%e5729557485%_)))) - (if (gx#stx-pair? _%tl5729757492%_) - (let ((_%e5729857495%_ + (##car _%e5844958639%_)))) + (if (gx#stx-pair? _%tl5845158646%_) + (let ((_%e5845258649%_ (gx#syntax-e - _%tl5729757492%_))) - (let ((_%tl5730057502%_ + _%tl5845158646%_))) + (let ((_%tl5845458656%_ (let () (declare (not safe)) - (##cdr _%e5729857495%_))) - (_%hd5729957499%_ + (##cdr _%e5845258649%_))) + (_%hd5845358653%_ (let () (declare (not safe)) - (##car _%e5729857495%_)))) - (_%__match8840288403%_ - _%e5729557485%_ - _%hd5729657489%_ - _%tl5729757492%_ - _%e5729857495%_ - _%hd5729957499%_ - _%tl5730057502%_))) + (##car _%e5845258649%_)))) + (_%__match8934989350%_ + _%e5844958639%_ + _%hd5845058643%_ + _%tl5845158646%_ + _%e5845258649%_ + _%hd5845358653%_ + _%tl5845458656%_))) (let () (declare (not safe)) - (_%g5729157335%_))))) + (_%g5844558489%_))))) (let () (declare (not safe)) - (_%g5729157335%_)))))))) - (_%__kont8884888849%_ - (lambda (_%L57069%_) - (let* ((_%__stx8834188342%_ _%b56956%_) - (_%g5708657108%_ + (_%g5844558489%_)))))))) + (_%__kont8979589796%_ + (lambda (_%g5818458223%_) + (let* ((_%__stx8928889289%_ _%b58110%_) + (_%g5824058262%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8834188342%_)))) - (let ((_%__kont8834488345%_ - (lambda (_%L57200%_) '#f)) - (_%__kont8834688347%_ - (lambda (_%L57156%_ _%L57158%_) '#f)) - (_%__kont8834888349%_ (lambda () '#t))) - (let* ((_%__match8837888379%_ - (lambda (_%e5709457126%_ - _%hd5709557130%_ - _%tl5709657133%_ - _%e5709757136%_ - _%hd5709857140%_ - _%tl5709957143%_ - _%e5710057146%_ - _%hd5710157150%_ - _%tl5710257153%_) - (let ((_%L57156%_ _%hd5710157150%_) - (_%L57158%_ _%hd5709857140%_)) + _%__stx8928889289%_)))) + (let ((_%__kont8929189292%_ + (lambda (_%g5824258354%_) '#f)) + (_%__kont8929389294%_ + (lambda (_%g5824658310%_ _%g5824758312%_) + '#f)) + (_%__kont8929589296%_ (lambda () '#t))) + (let* ((_%__match8932589326%_ + (lambda (_%e5824858280%_ + _%hd5824958284%_ + _%tl5825058287%_ + _%e5825158290%_ + _%hd5825258294%_ + _%tl5825358297%_ + _%e5825458300%_ + _%hd5825558304%_ + _%tl5825658307%_) + (let ((_%g5824658310%_ + _%hd5825558304%_) + (_%g5824758312%_ + _%hd5825258294%_)) (if (or (gx#free-identifier=? - _%L57156%_ + _%g5824658310%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L57156%_ + _%g5824658310%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L57156%_ + _%g5824658310%_ (gx#datum->syntax '#f ':-))) - (_%__kont8834688347%_ - _%L57156%_ - _%L57158%_) - (_%__kont8834888349%_))))) - (_%__match8835688357%_ - (lambda (_%e5708957190%_ - _%hd5709057194%_ - _%tl5709157197%_) - (let ((_%L57200%_ _%hd5709057194%_)) + (_%__kont8929389294%_ + _%g5824658310%_ + _%g5824758312%_) + (_%__kont8929589296%_))))) + (_%__match8930389304%_ + (lambda (_%e5824358344%_ + _%hd5824458348%_ + _%tl5824558351%_) + (let ((_%g5824258354%_ + _%hd5824458348%_)) (if (or (gx#free-identifier=? - _%L57200%_ + _%g5824258354%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L57200%_ + _%g5824258354%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L57200%_ + _%g5824258354%_ (gx#datum->syntax '#f ':-))) - (_%__kont8834488345%_ - _%L57200%_) + (_%__kont8929189292%_ + _%g5824258354%_) (if (gx#identifier? - _%hd5709057194%_) + _%hd5824458348%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91899_| - _%hd5709057194%_) + |gerbil/core/contract~Interface[1]#_g92762_| + _%hd5824458348%_) (if (gx#stx-pair? - _%tl5709157197%_) - (let ((_%e5709757136%_ + _%tl5824558351%_) + (let ((_%e5825158290%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5709157197%_))) - (let ((_%tl5709957143%_ + (gx#syntax-e _%tl5824558351%_))) + (let ((_%tl5825358297%_ (let () (declare (not safe)) - (##cdr _%e5709757136%_))) - (_%hd5709857140%_ + (##cdr _%e5825158290%_))) + (_%hd5825258294%_ (let () (declare (not safe)) - (##car _%e5709757136%_)))) - (if (gx#stx-pair? _%tl5709957143%_) - (let ((_%e5710057146%_ - (gx#syntax-e _%tl5709957143%_))) - (let ((_%tl5710257153%_ + (##car _%e5825158290%_)))) + (if (gx#stx-pair? _%tl5825358297%_) + (let ((_%e5825458300%_ + (gx#syntax-e _%tl5825358297%_))) + (let ((_%tl5825658307%_ (let () (declare (not safe)) - (##cdr _%e5710057146%_))) - (_%hd5710157150%_ + (##cdr _%e5825458300%_))) + (_%hd5825558304%_ (let () (declare (not safe)) - (##car _%e5710057146%_)))) - (_%__match8837888379%_ - _%e5708957190%_ - _%hd5709057194%_ - _%tl5709157197%_ - _%e5709757136%_ - _%hd5709857140%_ - _%tl5709957143%_ - _%e5710057146%_ - _%hd5710157150%_ - _%tl5710257153%_))) - (_%__kont8834888349%_)))) - (_%__kont8834888349%_)) - (_%__kont8834888349%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8834888349%_))))))) - (if (gx#stx-pair? _%__stx8834188342%_) - (let ((_%e5708957190%_ + (##car _%e5825458300%_)))) + (_%__match8932589326%_ + _%e5824358344%_ + _%hd5824458348%_ + _%tl5824558351%_ + _%e5825158290%_ + _%hd5825258294%_ + _%tl5825358297%_ + _%e5825458300%_ + _%hd5825558304%_ + _%tl5825658307%_))) + (_%__kont8929589296%_)))) + (_%__kont8929589296%_)) + (_%__kont8929589296%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8929589296%_))))))) + (if (gx#stx-pair? _%__stx8928889289%_) + (let ((_%e5824358344%_ (gx#syntax-e - _%__stx8834188342%_))) - (let ((_%tl5709157197%_ + _%__stx8928889289%_))) + (let ((_%tl5824558351%_ (let () (declare (not safe)) - (##cdr _%e5708957190%_))) - (_%hd5709057194%_ + (##cdr _%e5824358344%_))) + (_%hd5824458348%_ (let () (declare (not safe)) - (##car _%e5708957190%_)))) - (_%__match8835688357%_ - _%e5708957190%_ - _%hd5709057194%_ - _%tl5709157197%_))) - (_%__kont8834888349%_)))))))) - (let ((_%__match8886288863%_ - (lambda (_%e5696858535%_ - _%hd5696958539%_ - _%tl5697058542%_ - _%e5697158545%_ - _%hd5697258549%_ - _%tl5697358552%_) - (let ((_%L58555%_ _%hd5697258549%_) - (_%L58557%_ _%hd5696958539%_)) + (##car _%e5824358344%_)))) + (_%__match8930389304%_ + _%e5824358344%_ + _%hd5824458348%_ + _%tl5824558351%_))) + (_%__kont8929589296%_)))))))) + (let ((_%__match8980989810%_ + (lambda (_%e5812259689%_ + _%hd5812359693%_ + _%tl5812459696%_ + _%e5812559699%_ + _%hd5812659703%_ + _%tl5812759706%_) + (let ((_%g5812059709%_ _%hd5812659703%_) + (_%g5812159711%_ _%hd5812359693%_)) (if (or (gx#free-identifier=? - _%L58557%_ + _%g5812159711%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58557%_ + _%g5812159711%_ (gx#datum->syntax '#f ':-))) - (_%__kont8883688837%_ - _%L58555%_ - _%L58557%_) - (if (gx#identifier? _%hd5696958539%_) + (_%__kont8978389784%_ + _%g5812059709%_ + _%g5812159711%_) + (if (gx#identifier? _%hd5812359693%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91900_| - _%hd5696958539%_) - (_%__kont8883888839%_ - _%hd5697258549%_) + |gerbil/core/contract~Interface[1]#_g92763_| + _%hd5812359693%_) + (_%__kont8978589786%_ + _%hd5812659703%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91901_| - _%hd5696958539%_) - (_%__kont8884088841%_ - _%hd5697258549%_) + |gerbil/core/contract~Interface[1]#_g92764_| + _%hd5812359693%_) + (_%__kont8978789788%_ + _%hd5812659703%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91902_| - _%hd5696958539%_) + |gerbil/core/contract~Interface[1]#_g92765_| + _%hd5812359693%_) (if (gx#stx-pair? - _%tl5697358552%_) - (let ((_%e5699657778%_ + _%tl5812759706%_) + (let ((_%e5815058932%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5697358552%_))) - (let ((_%tl5699857785%_ + _%tl5812759706%_))) + (let ((_%tl5815258939%_ (let () (declare (not safe)) - (##cdr _%e5699657778%_))) - (_%hd5699757782%_ + (##cdr _%e5815058932%_))) + (_%hd5815158936%_ (let () (declare (not safe)) - (##car _%e5699657778%_)))) - (if (gx#identifier? _%hd5699757782%_) + (##car _%e5815058932%_)))) + (if (gx#identifier? _%hd5815158936%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91903_| - _%hd5699757782%_) - (if (gx#stx-pair? _%tl5699857785%_) - (let ((_%e5699957788%_ - (gx#syntax-e _%tl5699857785%_))) - (let ((_%tl5700157795%_ + |gerbil/core/contract~Interface[1]#_g92766_| + _%hd5815158936%_) + (if (gx#stx-pair? _%tl5815258939%_) + (let ((_%e5815358942%_ + (gx#syntax-e _%tl5815258939%_))) + (let ((_%tl5815558949%_ (let () (declare (not safe)) - (##cdr _%e5699957788%_))) - (_%hd5700057792%_ + (##cdr _%e5815358942%_))) + (_%hd5815458946%_ (let () (declare (not safe)) - (##car _%e5699957788%_)))) - (_%__kont8884288843%_ - _%hd5700057792%_ - _%hd5697258549%_))) - (_%__kont8884888849%_ _%hd5697258549%_)) + (##car _%e5815358942%_)))) + (_%__kont8978989790%_ + _%hd5815458946%_ + _%hd5812659703%_))) + (_%__kont8979589796%_ _%hd5812659703%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91904_| - _%hd5699757782%_) - (if (gx#stx-pair? _%tl5699857785%_) - (let ((_%e5701357569%_ - (gx#syntax-e _%tl5699857785%_))) - (let ((_%tl5701557576%_ + |gerbil/core/contract~Interface[1]#_g92767_| + _%hd5815158936%_) + (if (gx#stx-pair? _%tl5815258939%_) + (let ((_%e5816758723%_ + (gx#syntax-e _%tl5815258939%_))) + (let ((_%tl5816958730%_ (let () (declare (not safe)) - (##cdr _%e5701357569%_))) - (_%hd5701457573%_ + (##cdr _%e5816758723%_))) + (_%hd5816858727%_ (let () (declare (not safe)) - (##car _%e5701357569%_)))) - (_%__kont8884488845%_ - _%hd5701457573%_ - _%hd5697258549%_))) - (_%__kont8884888849%_ _%hd5697258549%_)) + (##car _%e5816758723%_)))) + (_%__kont8979189792%_ + _%hd5816858727%_ + _%hd5812659703%_))) + (_%__kont8979589796%_ _%hd5812659703%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91905_| - _%hd5699757782%_) - (if (gx#stx-pair? _%tl5699857785%_) - (let ((_%e5702757260%_ + |gerbil/core/contract~Interface[1]#_g92768_| + _%hd5815158936%_) + (if (gx#stx-pair? _%tl5815258939%_) + (let ((_%e5818158414%_ (gx#syntax-e - _%tl5699857785%_))) - (let ((_%tl5702957267%_ + _%tl5815258939%_))) + (let ((_%tl5818358421%_ (let () (declare (not safe)) - (##cdr _%e5702757260%_))) - (_%hd5702857264%_ + (##cdr _%e5818158414%_))) + (_%hd5818258418%_ (let () (declare (not safe)) - (##car _%e5702757260%_)))) - (_%__kont8884688847%_ - _%hd5702857264%_ - _%hd5697258549%_))) - (_%__kont8884888849%_ - _%hd5697258549%_)) - (_%__kont8884888849%_ _%hd5697258549%_)))) - (_%__kont8884888849%_ _%hd5697258549%_)))) - (_%__kont8884888849%_ _%hd5697258549%_)) + (##car _%e5818158414%_)))) + (_%__kont8979389794%_ + _%hd5818258418%_ + _%hd5812659703%_))) + (_%__kont8979589796%_ + _%hd5812659703%_)) + (_%__kont8979589796%_ _%hd5812659703%_)))) + (_%__kont8979589796%_ _%hd5812659703%_)))) + (_%__kont8979589796%_ _%hd5812659703%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5696457042%_))))) + (_%g5811858196%_))))) (let () (declare (not safe)) - (_%g5696457042%_)))))))) - (if (gx#stx-pair? _%__stx8883388834%_) - (let ((_%e5696858535%_ - (gx#syntax-e _%__stx8883388834%_))) - (let ((_%tl5697058542%_ + (_%g5811858196%_)))))))) + (if (gx#stx-pair? _%__stx8978089781%_) + (let ((_%e5812259689%_ + (gx#syntax-e _%__stx8978089781%_))) + (let ((_%tl5812459696%_ (let () (declare (not safe)) - (##cdr _%e5696858535%_))) - (_%hd5696958539%_ + (##cdr _%e5812259689%_))) + (_%hd5812359693%_ (let () (declare (not safe)) - (##car _%e5696858535%_)))) - (if (gx#stx-pair? _%tl5697058542%_) - (let ((_%e5697158545%_ - (gx#syntax-e _%tl5697058542%_))) - (let ((_%tl5697358552%_ + (##car _%e5812259689%_)))) + (if (gx#stx-pair? _%tl5812459696%_) + (let ((_%e5812559699%_ + (gx#syntax-e _%tl5812459696%_))) + (let ((_%tl5812759706%_ (let () (declare (not safe)) - (##cdr _%e5697158545%_))) - (_%hd5697258549%_ + (##cdr _%e5812559699%_))) + (_%hd5812659703%_ (let () (declare (not safe)) - (##car _%e5697158545%_)))) - (_%__match8886288863%_ - _%e5696858535%_ - _%hd5696958539%_ - _%tl5697058542%_ - _%e5697158545%_ - _%hd5697258549%_ - _%tl5697358552%_))) + (##car _%e5812559699%_)))) + (_%__match8980989810%_ + _%e5812259689%_ + _%hd5812359693%_ + _%tl5812459696%_ + _%e5812559699%_ + _%hd5812659703%_ + _%tl5812759706%_))) (let () (declare (not safe)) - (_%g5696457042%_))))) + (_%g5811858196%_))))) (let () (declare (not safe)) - (_%g5696457042%_))))))) - _%left56950%_ - _%right56952%_))) + (_%g5811858196%_))))))) + _%left58104%_ + _%right58106%_))) (define |gerbil/core/contract~Interface[1]#contract-type-subtype?| - (lambda (_%type-a56853%_ _%type-b56855%_) - (if (not _%type-a56853%_) - (not _%type-b56855%_) - (if (not _%type-b56855%_) + (lambda (_%type-a58007%_ _%type-b58009%_) + (if (not _%type-a58007%_) + (not _%type-b58009%_) + (if (not _%type-b58009%_) '#f - (if (gx#free-identifier=? _%type-a56853%_ _%type-b56855%_) + (if (gx#free-identifier=? _%type-a58007%_ _%type-b58009%_) '#t - (let _%again56865%_ ((_%klass-a56868%_ + (let _%again58019%_ ((_%klass-a58022%_ (gx#syntax-local-value - _%type-a56853%_)) - (_%klass-b56870%_ + _%type-a58007%_)) + (_%klass-b58024%_ (gx#syntax-local-value - _%type-b56855%_))) - (if (eq? _%klass-a56868%_ _%klass-b56870%_) + _%type-b58009%_))) + (if (eq? _%klass-a58022%_ _%klass-b58024%_) '#t (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%klass-a56868%_)) + _%klass-a58022%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%klass-b56870%_)) - (if (eq? (let ((__obj91689 _%klass-a56868%_)) + _%klass-b58024%_)) + (if (eq? (let ((__obj92541 _%klass-a58022%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91689 + __obj92541 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91689 + __obj92541 '1 '#f '#f)) (unchecked-slot-ref - __obj91689 + __obj92541 'id))) - (let ((__obj91690 _%klass-b56870%_)) + (let ((__obj92542 _%klass-b58024%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91690 + __obj92542 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91690 + __obj92542 '1 '#f '#f)) (unchecked-slot-ref - __obj91690 + __obj92542 'id)))) '#t - (if (member _%type-b56855%_ + (if (member _%type-b58009%_ (let () (declare (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - _%klass-a56868%_)) + _%klass-a58022%_)) gx#free-identifier=?) '#t '#f)) @@ -5598,51 +5708,51 @@ (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b56870%_)) - (let ((_%$e56886%_ + _%klass-b58024%_)) + (let ((_%$e58040%_ (gx#syntax-local-value - (let ((__obj91687 - _%klass-b56870%_)) + (let ((__obj92539 + _%klass-b58024%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91687 + __obj92539 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91687 + __obj92539 '1 '#f '#f)) (unchecked-slot-ref - __obj91687 + __obj92539 'identifier))) false))) - (if _%$e56886%_ - ((lambda (_%klass-b56890%_) - (_%again56865%_ - _%klass-a56868%_ - _%klass-b56890%_)) - _%$e56886%_) + (if _%$e58040%_ + ((lambda (_%klass-b58044%_) + (_%again58019%_ + _%klass-a58022%_ + _%klass-b58044%_)) + _%$e58040%_) (if (gx#free-identifier=? - _%type-a56853%_ - (let ((__obj91688 - _%klass-b56870%_)) + _%type-a58007%_ + (let ((__obj92540 + _%klass-b58024%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91688 + __obj92540 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91688 + __obj92540 '1 '#f '#f)) (unchecked-slot-ref - __obj91688 + __obj92540 'identifier)))) '#t '#f))) @@ -5651,29 +5761,29 @@ (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-a56868%_)) + _%klass-a58022%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-b56870%_)) - (if (member _%type-b56855%_ - (let ((__obj91686 - _%klass-a56868%_)) + _%klass-b58024%_)) + (if (member _%type-b58009%_ + (let ((__obj92538 + _%klass-a58022%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91686 + __obj92538 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91686 - '5 + __obj92538 + '7 '#f '#f)) (unchecked-slot-ref - __obj91686 + __obj92538 'interface-precedence-list))) gx#free-identifier=?) '#t @@ -5682,53 +5792,53 @@ (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b56870%_)) - (let ((_%$e56909%_ + _%klass-b58024%_)) + (let ((_%$e58063%_ (gx#syntax-local-value - (let ((__obj91684 - _%klass-b56870%_)) + (let ((__obj92536 + _%klass-b58024%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91684 + __obj92536 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91684 + __obj92536 '1 '#f '#f)) (unchecked-slot-ref - __obj91684 + __obj92536 'identifier))) false))) - (if _%$e56909%_ - ((lambda (_%klass-b56913%_) - (_%again56865%_ - _%klass-a56868%_ - _%klass-b56913%_)) - _%$e56909%_) + (if _%$e58063%_ + ((lambda (_%klass-b58067%_) + (_%again58019%_ + _%klass-a58022%_ + _%klass-b58067%_)) + _%$e58063%_) (if (gx#free-identifier=? - _%type-a56853%_ - (let ((__obj91685 - _%klass-b56870%_)) + _%type-a58007%_ + (let ((__obj92537 + _%klass-b58024%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91685 + __obj92537 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91685 + __obj92537 '1 '#f '#f)) (unchecked-slot-ref - __obj91685 + __obj92537 'identifier)))) '#t '#f))) @@ -5737,1780 +5847,1806 @@ (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-a56868%_)) - (let ((_%$e56924%_ + _%klass-a58022%_)) + (let ((_%$e58078%_ (gx#syntax-local-value - (let ((__obj91679 - _%klass-a56868%_)) + (let ((__obj92531 + _%klass-a58022%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91679 + __obj92531 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91679 + __obj92531 '1 '#f '#f)) (unchecked-slot-ref - __obj91679 + __obj92531 'identifier))) false))) - (if _%$e56924%_ - ((lambda (_%klass-a56928%_) - (_%again56865%_ - _%klass-a56928%_ - _%klass-b56870%_)) - _%$e56924%_) + (if _%$e58078%_ + ((lambda (_%klass-a58082%_) + (_%again58019%_ + _%klass-a58082%_ + _%klass-b58024%_)) + _%$e58078%_) (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b56870%_)) - (let ((_%$e56933%_ + _%klass-b58024%_)) + (let ((_%$e58087%_ (gx#syntax-local-value - (let ((__obj91681 - _%klass-b56870%_)) + (let ((__obj92533 + _%klass-b58024%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj91681 + __obj92533 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91681 '1 '#f '#f)) - (unchecked-slot-ref __obj91681 'identifier))) + (##unchecked-structure-ref __obj92533 '1 '#f '#f)) + (unchecked-slot-ref __obj92533 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e56933%_ - ((lambda (_%klass-b56937%_) - (_%again56865%_ - _%klass-a56868%_ - _%klass-b56937%_)) - _%$e56933%_) + (if _%$e58087%_ + ((lambda (_%klass-b58091%_) + (_%again58019%_ + _%klass-a58022%_ + _%klass-b58091%_)) + _%$e58087%_) (if (gx#free-identifier=? - (let ((__obj91682 + (let ((__obj92534 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-a56868%_)) + _%klass-a58022%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91682 + __obj92534 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91682 '1 '#f '#f)) - (unchecked-slot-ref __obj91682 'identifier))) - (let ((__obj91683 _%klass-b56870%_)) + (##unchecked-structure-ref __obj92534 '1 '#f '#f)) + (unchecked-slot-ref __obj92534 'identifier))) + (let ((__obj92535 _%klass-b58024%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91683 + __obj92535 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91683 '1 '#f '#f)) - (unchecked-slot-ref __obj91683 'identifier)))) + (##unchecked-structure-ref __obj92535 '1 '#f '#f)) + (unchecked-slot-ref __obj92535 'identifier)))) '#t '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - _%type-b56855%_ - (let ((__obj91680 - _%klass-a56868%_)) + _%type-b58009%_ + (let ((__obj92532 + _%klass-a58022%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91680 + __obj92532 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91680 + __obj92532 '1 '#f '#f)) (unchecked-slot-ref - __obj91680 + __obj92532 'identifier)))) '#t '#f)))) '#f)))))))))) (define |gerbil/core/contract~Interface[1]#signature-type-contract| - (lambda (_%signature56458%_) - (let _%loop56461%_ ((_%rest56464%_ _%signature56458%_) - (_%positionals56466%_ '()) - (_%keywords56467%_ '())) - (let* ((_%__stx8900989010%_ (gx#datum->syntax '#f 'rest)) - (_%g5647556542%_ + (lambda (_%signature57612%_) + (let _%loop57615%_ ((_%rest57618%_ _%signature57612%_) + (_%positionals57620%_ '()) + (_%keywords57621%_ '())) + (let* ((_%__stx8995689957%_ (gx#datum->syntax '#f 'rest)) + (_%g5762957696%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8900989010%_)))) - (let ((_%__kont8901289013%_ - (lambda (_%L56836%_ _%L56838%_) - (_%loop56461%_ - _%L56836%_ + _%__stx8995689957%_)))) + (let ((_%__kont8995989960%_ + (lambda (_%g5763157990%_ _%g5763257992%_) + (_%loop57615%_ + _%g5763157990%_ (cons (cons (gx#datum->syntax '#f ':-) (cons (gx#datum->syntax '#f ':t) '())) - _%positionals56466%_) - _%keywords56467%_))) - (_%__kont8901489015%_ - (lambda (_%L56800%_ _%L56802%_ _%L56803%_) - (_%loop56461%_ - _%L56800%_ + _%positionals57620%_) + _%keywords57621%_))) + (_%__kont8996189962%_ + (lambda (_%g5763657954%_ _%g5763757956%_ _%g5763857957%_) + (_%loop57615%_ + _%g5763657954%_ (cons (cons (gx#datum->syntax '#f ':-) (cons (gx#datum->syntax '#f ':t) '())) - _%positionals56466%_) - _%keywords56467%_))) - (_%__kont8901689017%_ - (lambda (_%L56750%_ _%L56752%_) - (_%loop56461%_ + _%positionals57620%_) + _%keywords57621%_))) + (_%__kont8996389964%_ + (lambda (_%g5764857904%_ _%g5764957906%_) + (_%loop57615%_ (gx#datum->syntax '#f 'rest) - (cons _%L56750%_ _%positionals56466%_) - _%keywords56467%_))) - (_%__kont8901889019%_ - (lambda (_%L56716%_ _%L56718%_ _%L56719%_) - (_%loop56461%_ - _%L56716%_ - _%positionals56466%_ - (cons (cons (gx#stx-e _%L56719%_) - (cons _%L56718%_ + (cons _%g5764857904%_ _%positionals57620%_) + _%keywords57621%_))) + (_%__kont8996589966%_ + (lambda (_%g5765357870%_ _%g5765457872%_ _%g5765557873%_) + (_%loop57615%_ + _%g5765357870%_ + _%positionals57620%_ + (cons (cons (gx#stx-e _%g5765557873%_) + (cons _%g5765457872%_ (cons (gx#datum->syntax '#f ':-) (cons (gx#datum->syntax '#f ':t) '())))) - _%keywords56467%_)))) - (_%__kont8902089021%_ - (lambda (_%L56666%_ _%L56668%_ _%L56669%_ _%L56670%_) - (_%loop56461%_ - _%L56666%_ - _%positionals56466%_ - (cons (cons (gx#stx-e _%L56670%_) - (cons _%L56669%_ + _%keywords57621%_)))) + (_%__kont8996789968%_ + (lambda (_%g5766257820%_ + _%g5766357822%_ + _%g5766457823%_ + _%g5766557824%_) + (_%loop57615%_ + _%g5766257820%_ + _%positionals57620%_ + (cons (cons (gx#stx-e _%g5766557824%_) + (cons _%g5766457823%_ (cons (gx#datum->syntax '#f ':-) (cons (gx#datum->syntax '#f ':t) '())))) - _%keywords56467%_)))) - (_%__kont8902289023%_ - (lambda (_%L56594%_ _%L56596%_ _%L56597%_ _%L56598%_) - (_%loop56461%_ - _%L56594%_ - _%positionals56466%_ - (cons (cons (gx#stx-e _%L56598%_) - (cons _%L56597%_ _%L56596%_)) - _%keywords56467%_)))) - (_%__kont8902489025%_ + _%keywords57621%_)))) + (_%__kont8996989970%_ + (lambda (_%g5767857748%_ + _%g5767957750%_ + _%g5768057751%_ + _%g5768157752%_) + (_%loop57615%_ + _%g5767857748%_ + _%positionals57620%_ + (cons (cons (gx#stx-e _%g5768157752%_) + (cons _%g5768057751%_ _%g5767957750%_)) + _%keywords57621%_)))) + (_%__kont8997189972%_ (lambda () - (values (reverse! _%positionals56466%_) + (values (reverse! _%positionals57620%_) (list-sort - (lambda (_%a56553%_ _%b56555%_) + (lambda (_%a57707%_ _%b57709%_) (|gerbil/core/contract~Interface[1]#keyword= __tmp91906 '2)) - (let ((_%__splice8912689127%_ + (##fx>= __tmp92769 '2)) + (let ((_%__splice9007390074%_ (gx#syntax-split-splice->vector - _%hd5612156379%_ + _%hd5727557533%_ '2))) - (let ((_%tl5613656304%_ + (let ((_%tl5729057458%_ (let () (declare (not safe)) (##vector-ref - _%__splice8912689127%_ + _%__splice9007390074%_ '1))) - (_%target5613456301%_ + (_%target5728857455%_ (let () (declare (not safe)) (##vector-ref - _%__splice8912689127%_ + _%__splice9007390074%_ '0)))) - (if (gx#stx-pair? _%tl5613656304%_) - (let ((_%e5614156307%_ + (if (gx#stx-pair? _%tl5729057458%_) + (let ((_%e5729557461%_ (gx#syntax-e - _%tl5613656304%_))) - (let ((_%tl5614356314%_ + _%tl5729057458%_))) + (let ((_%tl5729757468%_ (let () (declare (not safe)) - (##cdr _%e5614156307%_))) - (_%hd5614256311%_ + (##cdr _%e5729557461%_))) + (_%hd5729657465%_ (let () (declare (not safe)) - (##car _%e5614156307%_)))) + (##car _%e5729557461%_)))) (if (gx#identifier? - _%hd5614256311%_) + _%hd5729657465%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91907_| - _%hd5614256311%_) + |gerbil/core/contract~Interface[1]#_g92770_| + _%hd5729657465%_) (if (gx#stx-pair? - _%tl5614356314%_) - (let ((_%e5614456317%_ + _%tl5729757468%_) + (let ((_%e5729857471%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5614356314%_))) - (let ((_%tl5614656324%_ + (gx#syntax-e _%tl5729757468%_))) + (let ((_%tl5730057478%_ (let () (declare (not safe)) - (##cdr _%e5614456317%_))) - (_%hd5614556321%_ + (##cdr _%e5729857471%_))) + (_%hd5729957475%_ (let () (declare (not safe)) - (##car _%e5614456317%_)))) - (if (gx#stx-null? _%tl5614656324%_) - (_%__match8919489195%_ - _%e5612056375%_ - _%hd5612156379%_ - _%tl5612256382%_ - _%__splice8912689127%_ - _%target5613456301%_ - _%tl5613656304%_ - _%e5614156307%_ - _%hd5614256311%_ - _%tl5614356314%_ - _%e5614456317%_ - _%hd5614556321%_ - _%tl5614656324%_) - (_%__match8920689207%_ - _%e5612056375%_ - _%hd5612156379%_ - _%tl5612256382%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_)))) - (_%__match8920689207%_ - _%e5612056375%_ - _%hd5612156379%_ - _%tl5612256382%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_)) - (_%__match8920689207%_ - _%e5612056375%_ - _%hd5612156379%_ - _%tl5612256382%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_)) - (_%__match8920689207%_ - _%e5612056375%_ - _%hd5612156379%_ - _%tl5612256382%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8920689207%_ - _%e5612056375%_ - _%hd5612156379%_ - _%tl5612256382%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_)))) - (_%__match8920689207%_ - _%e5612056375%_ - _%hd5612156379%_ - _%tl5612256382%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_)) - (_%__match8920689207%_ - _%e5612056375%_ - _%hd5612156379%_ - _%tl5612256382%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_)))))) - (_%__match8914289143%_ - (lambda (_%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_) - (let ((_%L56441%_ _%tl5611656438%_) - (_%L56443%_ _%hd5611556435%_)) - (if (gx#identifier? _%L56443%_) - (_%__kont8912089121%_ _%L56441%_ _%L56443%_) - (if (gx#stx-pair? _%hd5611556435%_) - (let ((_%e5612356385%_ - (gx#syntax-e _%hd5611556435%_))) - (let ((_%tl5612556392%_ + (##car _%e5729857471%_)))) + (if (gx#stx-null? _%tl5730057478%_) + (_%__match9014190142%_ + _%e5727457529%_ + _%hd5727557533%_ + _%tl5727657536%_ + _%__splice9007390074%_ + _%target5728857455%_ + _%tl5729057458%_ + _%e5729557461%_ + _%hd5729657465%_ + _%tl5729757468%_ + _%e5729857471%_ + _%hd5729957475%_ + _%tl5730057478%_) + (_%__match9015390154%_ + _%e5727457529%_ + _%hd5727557533%_ + _%tl5727657536%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_)))) + (_%__match9015390154%_ + _%e5727457529%_ + _%hd5727557533%_ + _%tl5727657536%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_)) + (_%__match9015390154%_ + _%e5727457529%_ + _%hd5727557533%_ + _%tl5727657536%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_)) + (_%__match9015390154%_ + _%e5727457529%_ + _%hd5727557533%_ + _%tl5727657536%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match9015390154%_ + _%e5727457529%_ + _%hd5727557533%_ + _%tl5727657536%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_)))) + (_%__match9015390154%_ + _%e5727457529%_ + _%hd5727557533%_ + _%tl5727657536%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_)) + (_%__match9015390154%_ + _%e5727457529%_ + _%hd5727557533%_ + _%tl5727657536%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_)))))) + (_%__match9008990090%_ + (lambda (_%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_) + (let ((_%g5726657595%_ _%tl5727057592%_) + (_%g5726757597%_ _%hd5726957589%_)) + (if (gx#identifier? _%g5726757597%_) + (_%__kont9006790068%_ + _%g5726657595%_ + _%g5726757597%_) + (if (gx#stx-pair? _%hd5726957589%_) + (let ((_%e5727757539%_ + (gx#syntax-e _%hd5726957589%_))) + (let ((_%tl5727957546%_ (let () (declare (not safe)) - (##cdr _%e5612356385%_))) - (_%hd5612456389%_ + (##cdr _%e5727757539%_))) + (_%hd5727857543%_ (let () (declare (not safe)) - (##car _%e5612356385%_)))) - (if (gx#stx-pair? _%tl5612556392%_) - (let ((_%e5612656395%_ + (##car _%e5727757539%_)))) + (if (gx#stx-pair? _%tl5727957546%_) + (let ((_%e5728057549%_ (gx#syntax-e - _%tl5612556392%_))) - (let ((_%tl5612856402%_ + _%tl5727957546%_))) + (let ((_%tl5728257556%_ (let () (declare (not safe)) - (##cdr _%e5612656395%_))) - (_%hd5612756399%_ + (##cdr _%e5728057549%_))) + (_%hd5728157553%_ (let () (declare (not safe)) - (##car _%e5612656395%_)))) + (##car _%e5728057549%_)))) (if (gx#stx-null? - _%tl5612856402%_) - (_%__match8916289163%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_ - _%e5612656395%_ - _%hd5612756399%_ - _%tl5612856402%_) + _%tl5728257556%_) + (_%__match9010990110%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_ + _%e5728057549%_ + _%hd5728157553%_ + _%tl5728257556%_) (if (gx#stx-pair/null? - _%hd5611556435%_) - (if (let ((__tmp91908 + _%hd5726957589%_) + (if (let ((__tmp92771 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-length _%hd5611556435%_))) + (gx#stx-length _%hd5726957589%_))) (declare (not safe)) - (##fx>= __tmp91908 '2)) - (let ((_%__splice8912689127%_ - (gx#syntax-split-splice->vector _%hd5611556435%_ '2))) - (let ((_%tl5613656304%_ + (##fx>= __tmp92771 '2)) + (let ((_%__splice9007390074%_ + (gx#syntax-split-splice->vector _%hd5726957589%_ '2))) + (let ((_%tl5729057458%_ (let () (declare (not safe)) - (##vector-ref _%__splice8912689127%_ '1))) - (_%target5613456301%_ + (##vector-ref _%__splice9007390074%_ '1))) + (_%target5728857455%_ (let () (declare (not safe)) - (##vector-ref _%__splice8912689127%_ '0)))) - (if (gx#stx-pair? _%tl5613656304%_) - (let ((_%e5614156307%_ - (gx#syntax-e _%tl5613656304%_))) - (let ((_%tl5614356314%_ + (##vector-ref _%__splice9007390074%_ '0)))) + (if (gx#stx-pair? _%tl5729057458%_) + (let ((_%e5729557461%_ + (gx#syntax-e _%tl5729057458%_))) + (let ((_%tl5729757468%_ (let () (declare (not safe)) - (##cdr _%e5614156307%_))) - (_%hd5614256311%_ + (##cdr _%e5729557461%_))) + (_%hd5729657465%_ (let () (declare (not safe)) - (##car _%e5614156307%_)))) - (if (gx#identifier? _%hd5614256311%_) + (##car _%e5729557461%_)))) + (if (gx#identifier? _%hd5729657465%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91907_| - _%hd5614256311%_) - (if (gx#stx-pair? _%tl5614356314%_) - (let ((_%e5614456317%_ + |gerbil/core/contract~Interface[1]#_g92770_| + _%hd5729657465%_) + (if (gx#stx-pair? _%tl5729757468%_) + (let ((_%e5729857471%_ (gx#syntax-e - _%tl5614356314%_))) - (let ((_%tl5614656324%_ + _%tl5729757468%_))) + (let ((_%tl5730057478%_ (let () (declare (not safe)) - (##cdr _%e5614456317%_))) - (_%hd5614556321%_ + (##cdr _%e5729857471%_))) + (_%hd5729957475%_ (let () (declare (not safe)) - (##car _%e5614456317%_)))) + (##car _%e5729857471%_)))) (if (gx#stx-null? - _%tl5614656324%_) - (_%__match8919489195%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%__splice8912689127%_ - _%target5613456301%_ - _%tl5613656304%_ - _%e5614156307%_ - _%hd5614256311%_ - _%tl5614356314%_ - _%e5614456317%_ - _%hd5614556321%_ - _%tl5614656324%_) - (_%__match8920689207%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_)))) - (_%__match8920689207%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_)) - (_%__match8920689207%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_)) - (_%__match8920689207%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_)))) - (_%__match8920689207%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_)))) - (_%__match8920689207%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_)) - (_%__match8920689207%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_))))) + _%tl5730057478%_) + (_%__match9014190142%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%__splice9007390074%_ + _%target5728857455%_ + _%tl5729057458%_ + _%e5729557461%_ + _%hd5729657465%_ + _%tl5729757468%_ + _%e5729857471%_ + _%hd5729957475%_ + _%tl5730057478%_) + (_%__match9015390154%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_)))) + (_%__match9015390154%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_)) + (_%__match9015390154%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_)) + (_%__match9015390154%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_)))) + (_%__match9015390154%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_)))) + (_%__match9015390154%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_)) + (_%__match9015390154%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd5611556435%_) - (if (let ((__tmp91909 + _%hd5726957589%_) + (if (let ((__tmp92772 (gx#stx-length - _%hd5611556435%_))) + _%hd5726957589%_))) (declare (not safe)) - (##fx>= __tmp91909 '2)) - (let ((_%__splice8912689127%_ + (##fx>= __tmp92772 '2)) + (let ((_%__splice9007390074%_ (gx#syntax-split-splice->vector - _%hd5611556435%_ + _%hd5726957589%_ '2))) - (let ((_%tl5613656304%_ + (let ((_%tl5729057458%_ (let () (declare (not safe)) (##vector-ref - _%__splice8912689127%_ + _%__splice9007390074%_ '1))) - (_%target5613456301%_ + (_%target5728857455%_ (let () (declare (not safe)) (##vector-ref - _%__splice8912689127%_ + _%__splice9007390074%_ '0)))) (if (gx#stx-pair? - _%tl5613656304%_) - (let ((_%e5614156307%_ + _%tl5729057458%_) + (let ((_%e5729557461%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5613656304%_))) - (let ((_%tl5614356314%_ + (gx#syntax-e _%tl5729057458%_))) + (let ((_%tl5729757468%_ (let () (declare (not safe)) - (##cdr _%e5614156307%_))) - (_%hd5614256311%_ + (##cdr _%e5729557461%_))) + (_%hd5729657465%_ (let () (declare (not safe)) - (##car _%e5614156307%_)))) - (if (gx#identifier? _%hd5614256311%_) + (##car _%e5729557461%_)))) + (if (gx#identifier? _%hd5729657465%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91907_| - _%hd5614256311%_) - (if (gx#stx-pair? _%tl5614356314%_) - (let ((_%e5614456317%_ - (gx#syntax-e _%tl5614356314%_))) - (let ((_%tl5614656324%_ + |gerbil/core/contract~Interface[1]#_g92770_| + _%hd5729657465%_) + (if (gx#stx-pair? _%tl5729757468%_) + (let ((_%e5729857471%_ + (gx#syntax-e _%tl5729757468%_))) + (let ((_%tl5730057478%_ (let () (declare (not safe)) - (##cdr _%e5614456317%_))) - (_%hd5614556321%_ + (##cdr _%e5729857471%_))) + (_%hd5729957475%_ (let () (declare (not safe)) - (##car _%e5614456317%_)))) - (if (gx#stx-null? _%tl5614656324%_) - (_%__match8919489195%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%__splice8912689127%_ - _%target5613456301%_ - _%tl5613656304%_ - _%e5614156307%_ - _%hd5614256311%_ - _%tl5614356314%_ - _%e5614456317%_ - _%hd5614556321%_ - _%tl5614656324%_) - (_%__match8920689207%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_)))) - (_%__match8920689207%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_)) - (_%__match8920689207%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_)) - (_%__match8920689207%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_)))) - (_%__match8920689207%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8920689207%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_)) - (_%__match8920689207%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5612356385%_ - _%hd5612456389%_ - _%tl5612556392%_))))) - (if (gx#stx-pair/null? _%hd5611556435%_) - (if (let ((__tmp91910 + (##car _%e5729857471%_)))) + (if (gx#stx-null? _%tl5730057478%_) + (_%__match9014190142%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%__splice9007390074%_ + _%target5728857455%_ + _%tl5729057458%_ + _%e5729557461%_ + _%hd5729657465%_ + _%tl5729757468%_ + _%e5729857471%_ + _%hd5729957475%_ + _%tl5730057478%_) + (_%__match9015390154%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_)))) + (_%__match9015390154%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_)) + (_%__match9015390154%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_)) + (_%__match9015390154%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_)))) + (_%__match9015390154%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match9015390154%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_)) + (_%__match9015390154%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5727757539%_ + _%hd5727857543%_ + _%tl5727957546%_))))) + (if (gx#stx-pair/null? _%hd5726957589%_) + (if (let ((__tmp92773 (gx#stx-length - _%hd5611556435%_))) + _%hd5726957589%_))) (declare (not safe)) - (##fx>= __tmp91910 '2)) - (let ((_%__splice8912689127%_ + (##fx>= __tmp92773 '2)) + (let ((_%__splice9007390074%_ (gx#syntax-split-splice->vector - _%hd5611556435%_ + _%hd5726957589%_ '2))) - (let ((_%tl5613656304%_ + (let ((_%tl5729057458%_ (let () (declare (not safe)) (##vector-ref - _%__splice8912689127%_ + _%__splice9007390074%_ '1))) - (_%target5613456301%_ + (_%target5728857455%_ (let () (declare (not safe)) (##vector-ref - _%__splice8912689127%_ + _%__splice9007390074%_ '0)))) (if (gx#stx-pair? - _%tl5613656304%_) - (let ((_%e5614156307%_ + _%tl5729057458%_) + (let ((_%e5729557461%_ (gx#syntax-e - _%tl5613656304%_))) - (let ((_%tl5614356314%_ + _%tl5729057458%_))) + (let ((_%tl5729757468%_ (let () (declare (not safe)) - (##cdr _%e5614156307%_))) - (_%hd5614256311%_ + (##cdr _%e5729557461%_))) + (_%hd5729657465%_ (let () (declare (not safe)) - (##car _%e5614156307%_)))) + (##car _%e5729557461%_)))) (if (gx#identifier? - _%hd5614256311%_) + _%hd5729657465%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g91907_| - _%hd5614256311%_) + |gerbil/core/contract~Interface[1]#_g92770_| + _%hd5729657465%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5614356314%_) - (let ((_%e5614456317%_ - (gx#syntax-e _%tl5614356314%_))) - (let ((_%tl5614656324%_ + _%tl5729757468%_) + (let ((_%e5729857471%_ + (gx#syntax-e _%tl5729757468%_))) + (let ((_%tl5730057478%_ (let () (declare (not safe)) - (##cdr _%e5614456317%_))) - (_%hd5614556321%_ + (##cdr _%e5729857471%_))) + (_%hd5729957475%_ (let () (declare (not safe)) - (##car _%e5614456317%_)))) - (if (gx#stx-null? _%tl5614656324%_) - (_%__match8919489195%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%__splice8912689127%_ - _%target5613456301%_ - _%tl5613656304%_ - _%e5614156307%_ - _%hd5614256311%_ - _%tl5614356314%_ - _%e5614456317%_ - _%hd5614556321%_ - _%tl5614656324%_) - (if (gx#stx-pair? _%tl5611656438%_) - (let ((_%e5616056217%_ - (gx#syntax-e _%tl5611656438%_))) - (let ((_%tl5616256224%_ + (##car _%e5729857471%_)))) + (if (gx#stx-null? _%tl5730057478%_) + (_%__match9014190142%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%__splice9007390074%_ + _%target5728857455%_ + _%tl5729057458%_ + _%e5729557461%_ + _%hd5729657465%_ + _%tl5729757468%_ + _%e5729857471%_ + _%hd5729957475%_ + _%tl5730057478%_) + (if (gx#stx-pair? _%tl5727057592%_) + (let ((_%e5731457371%_ + (gx#syntax-e _%tl5727057592%_))) + (let ((_%tl5731657378%_ (let () (declare (not safe)) - (##cdr _%e5616056217%_))) - (_%hd5616156221%_ + (##cdr _%e5731457371%_))) + (_%hd5731557375%_ (let () (declare (not safe)) - (##car _%e5616056217%_)))) - (_%__match8921889219%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5616056217%_ - _%hd5616156221%_ - _%tl5616256224%_))) + (##car _%e5731457371%_)))) + (_%__match9016590166%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5731457371%_ + _%hd5731557375%_ + _%tl5731657378%_))) (let () (declare (not safe)) - (_%g5610856200%_)))))) - (if (gx#stx-pair? _%tl5611656438%_) - (let ((_%e5616056217%_ - (gx#syntax-e _%tl5611656438%_))) - (let ((_%tl5616256224%_ + (_%g5726257354%_)))))) + (if (gx#stx-pair? _%tl5727057592%_) + (let ((_%e5731457371%_ + (gx#syntax-e _%tl5727057592%_))) + (let ((_%tl5731657378%_ (let () (declare (not safe)) - (##cdr _%e5616056217%_))) - (_%hd5616156221%_ + (##cdr _%e5731457371%_))) + (_%hd5731557375%_ (let () (declare (not safe)) - (##car _%e5616056217%_)))) - (_%__match8921889219%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5616056217%_ - _%hd5616156221%_ - _%tl5616256224%_))) - (let () (declare (not safe)) (_%g5610856200%_)))) - (if (gx#stx-pair? _%tl5611656438%_) - (let ((_%e5616056217%_ - (gx#syntax-e _%tl5611656438%_))) - (let ((_%tl5616256224%_ + (##car _%e5731457371%_)))) + (_%__match9016590166%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5731457371%_ + _%hd5731557375%_ + _%tl5731657378%_))) + (let () (declare (not safe)) (_%g5726257354%_)))) + (if (gx#stx-pair? _%tl5727057592%_) + (let ((_%e5731457371%_ + (gx#syntax-e _%tl5727057592%_))) + (let ((_%tl5731657378%_ (let () (declare (not safe)) - (##cdr _%e5616056217%_))) - (_%hd5616156221%_ + (##cdr _%e5731457371%_))) + (_%hd5731557375%_ (let () (declare (not safe)) - (##car _%e5616056217%_)))) - (_%__match8921889219%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5616056217%_ - _%hd5616156221%_ - _%tl5616256224%_))) - (let () (declare (not safe)) (_%g5610856200%_)))) - (if (gx#stx-pair? _%tl5611656438%_) - (let ((_%e5616056217%_ (gx#syntax-e _%tl5611656438%_))) - (let ((_%tl5616256224%_ + (##car _%e5731457371%_)))) + (_%__match9016590166%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5731457371%_ + _%hd5731557375%_ + _%tl5731657378%_))) + (let () (declare (not safe)) (_%g5726257354%_)))) + (if (gx#stx-pair? _%tl5727057592%_) + (let ((_%e5731457371%_ (gx#syntax-e _%tl5727057592%_))) + (let ((_%tl5731657378%_ (let () (declare (not safe)) - (##cdr _%e5616056217%_))) - (_%hd5616156221%_ + (##cdr _%e5731457371%_))) + (_%hd5731557375%_ (let () (declare (not safe)) - (##car _%e5616056217%_)))) - (_%__match8921889219%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5616056217%_ - _%hd5616156221%_ - _%tl5616256224%_))) - (let () (declare (not safe)) (_%g5610856200%_)))))) + (##car _%e5731457371%_)))) + (_%__match9016590166%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5731457371%_ + _%hd5731557375%_ + _%tl5731657378%_))) + (let () (declare (not safe)) (_%g5726257354%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%tl5611656438%_) - (let ((_%e5616056217%_ + _%tl5727057592%_) + (let ((_%e5731457371%_ (gx#syntax-e - _%tl5611656438%_))) - (let ((_%tl5616256224%_ + _%tl5727057592%_))) + (let ((_%tl5731657378%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5616056217%_))) - (_%hd5616156221%_ - (let () (declare (not safe)) (##car _%e5616056217%_)))) - (_%__match8921889219%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5616056217%_ - _%hd5616156221%_ - _%tl5616256224%_))) - (let () (declare (not safe)) (_%g5610856200%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl5611656438%_) - (let ((_%e5616056217%_ + (##cdr _%e5731457371%_))) + (_%hd5731557375%_ + (let () (declare (not safe)) (##car _%e5731457371%_)))) + (_%__match9016590166%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5731457371%_ + _%hd5731557375%_ + _%tl5731657378%_))) + (let () (declare (not safe)) (_%g5726257354%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%tl5727057592%_) + (let ((_%e5731457371%_ (gx#syntax-e - _%tl5611656438%_))) - (let ((_%tl5616256224%_ + _%tl5727057592%_))) + (let ((_%tl5731657378%_ (let () (declare (not safe)) - (##cdr _%e5616056217%_))) - (_%hd5616156221%_ + (##cdr _%e5731457371%_))) + (_%hd5731557375%_ (let () (declare (not safe)) - (##car _%e5616056217%_)))) - (_%__match8921889219%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5616056217%_ - _%hd5616156221%_ - _%tl5616256224%_))) + (##car _%e5731457371%_)))) + (_%__match9016590166%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5731457371%_ + _%hd5731557375%_ + _%tl5731657378%_))) (let () (declare (not safe)) - (_%g5610856200%_)))) - (if (gx#stx-pair? _%tl5611656438%_) - (let ((_%e5616056217%_ + (_%g5726257354%_)))) + (if (gx#stx-pair? _%tl5727057592%_) + (let ((_%e5731457371%_ (gx#syntax-e - _%tl5611656438%_))) - (let ((_%tl5616256224%_ + _%tl5727057592%_))) + (let ((_%tl5731657378%_ (let () (declare (not safe)) - (##cdr _%e5616056217%_))) - (_%hd5616156221%_ + (##cdr _%e5731457371%_))) + (_%hd5731557375%_ (let () (declare (not safe)) - (##car _%e5616056217%_)))) - (_%__match8921889219%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_ - _%e5616056217%_ - _%hd5616156221%_ - _%tl5616256224%_))) + (##car _%e5731457371%_)))) + (_%__match9016590166%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_ + _%e5731457371%_ + _%hd5731557375%_ + _%tl5731657378%_))) (let () (declare (not safe)) - (_%g5610856200%_)))))))))) - (if (gx#stx-pair? _%__stx8911789118%_) - (let ((_%e5611456431%_ (gx#syntax-e _%__stx8911789118%_))) - (let ((_%tl5611656438%_ + (_%g5726257354%_)))))))))) + (if (gx#stx-pair? _%__stx9006490065%_) + (let ((_%e5726857585%_ (gx#syntax-e _%__stx9006490065%_))) + (let ((_%tl5727057592%_ (let () (declare (not safe)) - (##cdr _%e5611456431%_))) - (_%hd5611556435%_ + (##cdr _%e5726857585%_))) + (_%hd5726957589%_ (let () (declare (not safe)) - (##car _%e5611456431%_)))) - (_%__match8914289143%_ - _%e5611456431%_ - _%hd5611556435%_ - _%tl5611656438%_))) - (let () (declare (not safe)) (_%g5610856200%_))))))))) + (##car _%e5726857585%_)))) + (_%__match9008990090%_ + _%e5726857585%_ + _%hd5726957589%_ + _%tl5727057592%_))) + (let () (declare (not safe)) (_%g5726257354%_))))))))) (define |gerbil/core/contract~Interface[1]#signature-keywords| - (lambda (_%spec55918%_) - (let _%lp55921%_ ((_%rest55924%_ _%spec55918%_) - (_%keywords55926%_ '())) - (let* ((_%__stx8922389224%_ _%rest55924%_) - (_%g5593155959%_ + (lambda (_%spec57072%_) + (let _%lp57075%_ ((_%rest57078%_ _%spec57072%_) + (_%keywords57080%_ '())) + (let* ((_%__stx9017090171%_ _%rest57078%_) + (_%g5708557113%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8922389224%_)))) - (let ((_%__kont8922689227%_ - (lambda (_%L56076%_ _%L56078%_) - (_%lp55921%_ _%L56076%_ _%keywords55926%_))) - (_%__kont8922889229%_ - (lambda (_%L56044%_ _%L56046%_) - (_%lp55921%_ _%L56044%_ _%keywords55926%_))) - (_%__kont8923089231%_ - (lambda (_%L55997%_ _%L55999%_) - (_%lp55921%_ - _%L55997%_ - (cons (gx#stx-e _%L55999%_) _%keywords55926%_)))) - (_%__kont8923289233%_ + _%__stx9017090171%_)))) + (let ((_%__kont9017390174%_ + (lambda (_%g5708757230%_ _%g5708857232%_) + (_%lp57075%_ _%g5708757230%_ _%keywords57080%_))) + (_%__kont9017590176%_ + (lambda (_%g5709257198%_ _%g5709357200%_) + (_%lp57075%_ _%g5709257198%_ _%keywords57080%_))) + (_%__kont9017790178%_ + (lambda (_%g5710057151%_ _%g5710157153%_) + (_%lp57075%_ + _%g5710057151%_ + (cons (gx#stx-e _%g5710157153%_) _%keywords57080%_)))) + (_%__kont9017990180%_ (lambda () (list-sort |gerbil/core/contract~Interface[1]#keywordstring (gx#stx-e _%x55914%_))) - (__tmp91911 (symbol->string (gx#stx-e _%y55916%_)))) + (lambda (_%x57068%_ _%y57070%_) + (let ((__tmp92775 (symbol->string (gx#stx-e _%x57068%_))) + (__tmp92774 (symbol->string (gx#stx-e _%y57070%_)))) (declare (not safe)) - (##stringstring (gx#stx-e _%x55910%_))) - (__tmp91913 (keyword->string (gx#stx-e _%y55912%_)))) + (lambda (_%x57064%_ _%y57066%_) + (let ((__tmp92777 (keyword->string (gx#stx-e _%x57064%_))) + (__tmp92776 (keyword->string (gx#stx-e _%y57066%_)))) (declare (not safe)) - (##string>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8931889319%_ - _%e6549865607%_ - _%hd6549965611%_ - _%tl6550065614%_ - _%e6550165617%_ - _%hd6550265621%_ - _%tl6550365624%_)))) - (_%__kont8927689277%_ - _%__stx8926789268%_)))) + (##car _%e6663566765%_)))) + (_%__match9025390254%_ + _%e6662666735%_ + _%hd6662766739%_ + _%tl6662866742%_ + _%e6662966745%_ + _%hd6663066749%_ + _%tl6663166752%_ + _%e6663266755%_ + _%hd6663366759%_ + _%tl6663466762%_ + _%e6663566765%_ + _%hd6663666769%_ + _%tl6663766772%_))) + (_%__match9026590266%_ + _%e6662666735%_ + _%hd6662766739%_ + _%tl6662866742%_ + _%e6662966745%_ + _%hd6663066749%_ + _%tl6663166752%_)) + (_%__match9026590266%_ + _%e6662666735%_ + _%hd6662766739%_ + _%tl6662866742%_ + _%e6662966745%_ + _%hd6663066749%_ + _%tl6663166752%_)) + (_%__match9026590266%_ + _%e6662666735%_ + _%hd6662766739%_ + _%tl6662866742%_ + _%e6662966745%_ + _%hd6663066749%_ + _%tl6663166752%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match9026590266%_ + _%e6662666735%_ + _%hd6662766739%_ + _%tl6662866742%_ + _%e6662966745%_ + _%hd6663066749%_ + _%tl6663166752%_)))) + (_%__kont9022390224%_ + _%__stx9021490215%_)))) (let () (declare (not safe)) - (_%g6549065555%_))))))))) - (_%make-method-defs63685%_ - (lambda (_%Interface65272%_) - (lambda (_%method65275%_ _%offset65277%_) - (let* ((_%signature65279%_ - (gx#stx-car (gx#stx-cdr _%method65275%_))) - (_%g6528265322%_ - (lambda (_%g6528365318%_) + (_%g6661866683%_))))))))) + (_%make-method-defs64835%_ + (lambda (_%Interface66402%_) + (lambda (_%method66405%_ _%offset66407%_) + (let* ((_%signature66409%_ + (gx#stx-car (gx#stx-cdr _%method66405%_))) + (_%g6641266452%_ + (lambda (_%g6641366448%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6528365318%_))) - (_%g6528165475%_ - (lambda (_%g6528365326%_) - (if (gx#stx-pair? _%g6528365326%_) - (let ((_%e6529065329%_ - (gx#syntax-e _%g6528365326%_))) - (let ((_%hd6529165333%_ + _%g6641366448%_))) + (_%g6641166603%_ + (lambda (_%g6641366456%_) + (if (gx#stx-pair? _%g6641366456%_) + (let ((_%e6642066459%_ + (gx#syntax-e _%g6641366456%_))) + (let ((_%hd6642166463%_ (let () (declare (not safe)) - (##car _%e6529065329%_))) - (_%tl6529265336%_ + (##car _%e6642066459%_))) + (_%tl6642266466%_ (let () (declare (not safe)) - (##cdr _%e6529065329%_)))) - (if (gx#stx-pair? _%tl6529265336%_) - (let ((_%e6529365339%_ + (##cdr _%e6642066459%_)))) + (if (gx#stx-pair? _%tl6642266466%_) + (let ((_%e6642366469%_ (gx#syntax-e - _%tl6529265336%_))) - (let ((_%hd6529465343%_ + _%tl6642266466%_))) + (let ((_%hd6642466473%_ (let () (declare (not safe)) - (##car _%e6529365339%_))) - (_%tl6529565346%_ + (##car _%e6642366469%_))) + (_%tl6642566476%_ (let () (declare (not safe)) - (##cdr _%e6529365339%_)))) + (##cdr _%e6642366469%_)))) (if (gx#stx-pair? - _%tl6529565346%_) - (let ((_%e6529665349%_ + _%tl6642566476%_) + (let ((_%e6642666479%_ (gx#syntax-e - _%tl6529565346%_))) - (let ((_%hd6529765353%_ + _%tl6642566476%_))) + (let ((_%hd6642766483%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e6529665349%_))) - (_%tl6529865356%_ - (let () (declare (not safe)) (##cdr _%e6529665349%_)))) - (if (gx#stx-pair? _%tl6529865356%_) - (let ((_%e6529965359%_ (gx#syntax-e _%tl6529865356%_))) - (let ((_%hd6530065363%_ + (##car _%e6642666479%_))) + (_%tl6642866486%_ + (let () (declare (not safe)) (##cdr _%e6642666479%_)))) + (if (gx#stx-pair? _%tl6642866486%_) + (let ((_%e6642966489%_ (gx#syntax-e _%tl6642866486%_))) + (let ((_%hd6643066493%_ (let () (declare (not safe)) - (##car _%e6529965359%_))) - (_%tl6530165366%_ + (##car _%e6642966489%_))) + (_%tl6643166496%_ (let () (declare (not safe)) - (##cdr _%e6529965359%_)))) - (if (gx#stx-pair? _%tl6530165366%_) - (let ((_%e6530265369%_ - (gx#syntax-e _%tl6530165366%_))) - (let ((_%hd6530365373%_ + (##cdr _%e6642966489%_)))) + (if (gx#stx-pair? _%tl6643166496%_) + (let ((_%e6643266499%_ + (gx#syntax-e _%tl6643166496%_))) + (let ((_%hd6643366503%_ (let () (declare (not safe)) - (##car _%e6530265369%_))) - (_%tl6530465376%_ + (##car _%e6643266499%_))) + (_%tl6643466506%_ (let () (declare (not safe)) - (##cdr _%e6530265369%_)))) - (if (gx#stx-pair? _%tl6530465376%_) - (let ((_%e6530565379%_ - (gx#syntax-e _%tl6530465376%_))) - (let ((_%hd6530665383%_ + (##cdr _%e6643266499%_)))) + (if (gx#stx-pair? _%tl6643466506%_) + (let ((_%e6643566509%_ + (gx#syntax-e _%tl6643466506%_))) + (let ((_%hd6643666513%_ (let () (declare (not safe)) - (##car _%e6530565379%_))) - (_%tl6530765386%_ + (##car _%e6643566509%_))) + (_%tl6643766516%_ (let () (declare (not safe)) - (##cdr _%e6530565379%_)))) + (##cdr _%e6643566509%_)))) (if (gx#stx-pair/null? - _%hd6530665383%_) - (let ((_g91916_ + _%hd6643666513%_) + (let ((_g92779_ (gx#syntax-split-splice - _%hd6530665383%_ + _%hd6643666513%_ '0))) (begin - (let ((_g91917_ + (let ((_g92780_ (let () (declare (not safe)) (if (##values? - _g91916_) + _g92779_) (##values-length - _g91916_) + _g92779_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91917_ + (##fx= _g92780_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g91917_))) + (error "Context expects 2 values" _g92780_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6530865389%_ + (let ((_%target6643866519%_ (let () (declare (not safe)) (##values-ref - _g91916_ + _g92779_ 0))) - (_%tl6531065392%_ + (_%tl6644066522%_ (let () (declare (not safe)) (##values-ref - _g91916_ + _g92779_ 1)))) (if (gx#stx-null? - _%tl6531065392%_) - (letrec ((_%loop6531165395%_ - (lambda (_%hd6530965399%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%out6531565402%_) - (if (gx#stx-pair? _%hd6530965399%_) - (let ((_%e6531265405%_ - (gx#syntax-e _%hd6530965399%_))) - (let ((_%lp-hd6531365409%_ + _%tl6644066522%_) + (letrec ((_%loop6644166525%_ + (lambda (_%hd6643966529%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%out6644566532%_) + (if (gx#stx-pair? _%hd6643966529%_) + (let ((_%e6644266534%_ + (gx#syntax-e _%hd6643966529%_))) + (let ((_%lp-hd6644366538%_ (let () (declare (not safe)) - (##car _%e6531265405%_))) - (_%lp-tl6531465412%_ + (##car _%e6644266534%_))) + (_%lp-tl6644466541%_ (let () (declare (not safe)) - (##cdr _%e6531265405%_)))) - (_%loop6531165395%_ - _%lp-tl6531465412%_ - (cons _%lp-hd6531365409%_ - _%out6531565402%_)))) - (let ((_%out6531665415%_ - (reverse _%out6531565402%_))) - (if (gx#stx-null? _%tl6530765386%_) - ((lambda (_%L65419%_ - _%L65421%_ - _%L65422%_ - _%L65423%_ - _%L65424%_ - _%L65425%_) - (if (gx#stx-list? _%signature65279%_) + (##cdr _%e6644266534%_)))) + (_%loop6644166525%_ + _%lp-tl6644466541%_ + (cons _%lp-hd6644366538%_ + _%out6644566532%_)))) + (let ((_%out6644666544%_ + (reverse _%out6644566532%_))) + (if (gx#stx-null? _%tl6643766516%_) + ((lambda (_%g6641466547%_ + _%g6641566549%_ + _%g6641666550%_ + _%g6641766551%_ + _%g6641866552%_ + _%g6641966553%_) + (if (gx#stx-list? _%signature66409%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'definterface-method) - (cons _%L65425%_ - (cons _%L65424%_ + (cons _%g6641966553%_ + (cons _%g6641866552%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -7529,13 +7665,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##unchecked-structure-ref) - (cons _%L65422%_ + (cons _%g6641666550%_ (cons '1 (cons '#f (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L65423%_ + (cons _%g6641766551%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))))) @@ -7549,14 +7685,14 @@ (cons (cons (gx#datum->syntax '#f '##unchecked-structure-ref) - (cons _%L65422%_ - (cons _%L65421%_ + (cons _%g6641666550%_ + (cons _%g6641566549%_ (cons '#f (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L65423%_ '())) + (cons _%g6641766551%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -7569,21 +7705,21 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'obj) - (foldr (lambda (_%g6545865461%_ _%g6545965464%_) - (cons _%g6545865461%_ _%g6545965464%_)) + (foldr (lambda (_%g6658666589%_ _%g6658766592%_) + (cons _%g6658666589%_ _%g6658766592%_)) '() - _%L65419%_))) + _%g6641466547%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx63678%_)) + (gx#stx-source _%stx64828%_)) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'definterface-method) - (cons _%L65425%_ - (cons _%L65424%_ + (cons _%g6641966553%_ + (cons _%g6641866552%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -7602,13 +7738,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##unchecked-structure-ref) - (cons _%L65422%_ + (cons _%g6641666550%_ (cons '1 (cons '#f (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L65423%_ + (cons _%g6641766551%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))))) @@ -7622,14 +7758,14 @@ (cons (cons (gx#datum->syntax '#f '##unchecked-structure-ref) - (cons _%L65422%_ - (cons _%L65421%_ + (cons _%g6641666550%_ + (cons _%g6641566549%_ (cons '#f (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L65423%_ '())) + (cons _%g6641766551%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -7643,933 +7779,933 @@ '#f 'f) (cons (gx#datum->syntax '#f 'obj) - (foldr (lambda (_%g6546665469%_ _%g6546765472%_) - (cons _%g6546665469%_ _%g6546765472%_)) + (foldr (lambda (_%g6659466597%_ _%g6659566600%_) + (cons _%g6659466597%_ _%g6659566600%_)) '() - _%L65419%_)))) + _%g6641466547%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx63678%_)))) - _%out6531665415%_ - _%hd6530365373%_ - _%hd6530065363%_ - _%hd6529765353%_ - _%hd6529465343%_ - _%hd6529165333%_) - (_%g6528265322%_ _%g6528365326%_))))))) - (_%loop6531165395%_ _%target6530865389%_ '())) - (_%g6528265322%_ _%g6528365326%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6528265322%_ - _%g6528365326%_)))) - (_%g6528265322%_ _%g6528365326%_)))) - (_%g6528265322%_ _%g6528365326%_)))) - (_%g6528265322%_ _%g6528365326%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6528265322%_ - _%g6528365326%_)))) - (_%g6528265322%_ - _%g6528365326%_)))) - (_%g6528265322%_ _%g6528365326%_))))) - (_%g6528165475%_ - (list _%Interface65272%_ - _%method65275%_ - (gx#stx-car _%method65275%_) + (gx#stx-source _%stx64828%_)))) + _%out6644666544%_ + _%hd6643366503%_ + _%hd6643066493%_ + _%hd6642766483%_ + _%hd6642466473%_ + _%hd6642166463%_) + (_%g6641266452%_ _%g6641366456%_))))))) + (_%loop6644166525%_ _%target6643866519%_ '())) + (_%g6641266452%_ _%g6641366456%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6641266452%_ + _%g6641366456%_)))) + (_%g6641266452%_ _%g6641366456%_)))) + (_%g6641266452%_ _%g6641366456%_)))) + (_%g6641266452%_ _%g6641366456%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6641266452%_ + _%g6641366456%_)))) + (_%g6641266452%_ + _%g6641366456%_)))) + (_%g6641266452%_ _%g6641366456%_))))) + (_%g6641166603%_ + (list _%Interface66402%_ + _%method66405%_ + (gx#stx-car _%method66405%_) (gx#syntax-local-introduce 'self) - _%offset65277%_ + _%offset66407%_ (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature65279%_))))))) - (_%make-interface-namespace63686%_ - (lambda (_%name65260%_) + _%signature66409%_))))))) + (_%make-interface-namespace64836%_ + (lambda (_%name66390%_) (if (gx#module-context? (gx#current-expander-context)) - (let ((_%$e65263%_ + (let ((_%$e66393%_ (gx#module-context-ns (gx#current-expander-context)))) - (if _%$e65263%_ - ((lambda (_%ns65267%_) - (make-symbol _%ns65267%_ '"::" _%name65260%_)) - _%$e65263%_) - _%name65260%_)) - (make-symbol (gensym _%name65260%_))))) - (_%make-method-name-spec63687%_ - (lambda (_%method-name65202%_ - _%namespace65204%_ - _%mixin65205%_) - (let _%loop65207%_ ((_%rest65210%_ _%mixin65205%_) - (_%result65212%_ + (if _%$e66393%_ + ((lambda (_%ns66397%_) + (make-symbol _%ns66397%_ '"::" _%name66390%_)) + _%$e66393%_) + _%name66390%_)) + (make-symbol (gensym _%name66390%_))))) + (_%make-method-name-spec64837%_ + (lambda (_%method-name66332%_ + _%namespace66334%_ + _%mixin66335%_) + (let _%loop66337%_ ((_%rest66340%_ _%mixin66335%_) + (_%result66342%_ (cons (make-symbol - _%namespace65204%_ + _%namespace66334%_ '"::" - _%method-name65202%_) + _%method-name66332%_) '()))) - (let* ((_%rest6521365221%_ _%rest65210%_) - (_%else6521565233%_ + (let* ((_%rest6634366351%_ _%rest66340%_) + (_%else6634566363%_ (lambda () (reverse! - (cons _%method-name65202%_ _%result65212%_)))) - (_%K6521765244%_ - (lambda (_%rest65237%_ _%info65239%_) - (if (find (lambda (_%ms65241%_) - (eq? _%method-name65202%_ - (car _%ms65241%_))) - (let ((__obj91692 _%info65239%_)) + (cons _%method-name66332%_ _%result66342%_)))) + (_%K6634766374%_ + (lambda (_%rest66367%_ _%info66369%_) + (if (find (lambda (_%ms66371%_) + (eq? _%method-name66332%_ + (car _%ms66371%_))) + (let ((__obj92544 _%info66369%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91692 + __obj92544 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91692 - '4 + __obj92544 + '6 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj91692 + __obj92544 'interface-methods)))) - (_%loop65207%_ - _%rest65237%_ + (_%loop66337%_ + _%rest66367%_ (cons (make-symbol - (let ((__obj91693 _%info65239%_)) + (let ((__obj92545 _%info66369%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91693 + __obj92545 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91693 - '2 + __obj92545 + '4 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj91693 + __obj92545 'namespace))) '"::" - _%method-name65202%_) - _%result65212%_)) - (_%loop65207%_ - _%rest65237%_ - _%result65212%_))))) - (if (pair? _%rest6521365221%_) - (let ((_%hd6521865248%_ + _%method-name66332%_) + _%result66342%_)) + (_%loop66337%_ + _%rest66367%_ + _%result66342%_))))) + (if (pair? _%rest6634366351%_) + (let ((_%hd6634866378%_ (let () (declare (not safe)) - (##car _%rest6521365221%_))) - (_%tl6521965251%_ + (##car _%rest6634366351%_))) + (_%tl6634966381%_ (let () (declare (not safe)) - (##cdr _%rest6521365221%_)))) - (let* ((_%info65254%_ _%hd6521865248%_) - (_%rest65257%_ _%tl6521965251%_)) - (_%K6521765244%_ _%rest65257%_ _%info65254%_))) - (_%else6521565233%_))))))) - (let* ((_%g6368963713%_ - (lambda (_%g6369063709%_) + (##cdr _%rest6634366351%_)))) + (let* ((_%info66384%_ _%hd6634866378%_) + (_%rest66387%_ _%tl6634966381%_)) + (_%K6634766374%_ _%rest66387%_ _%info66384%_))) + (_%else6634566363%_))))))) + (let* ((_%g6483964863%_ + (lambda (_%g6484064859%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6369063709%_))) - (_%g6368865198%_ - (lambda (_%g6369063717%_) - (if (gx#stx-pair? _%g6369063717%_) - (let ((_%e6369363720%_ (gx#syntax-e _%g6369063717%_))) - (let ((_%hd6369463724%_ + _%g6484064859%_))) + (_%g6483866328%_ + (lambda (_%g6484064867%_) + (if (gx#stx-pair? _%g6484064867%_) + (let ((_%e6484364870%_ (gx#syntax-e _%g6484064867%_))) + (let ((_%hd6484464874%_ (let () (declare (not safe)) - (##car _%e6369363720%_))) - (_%tl6369563727%_ + (##car _%e6484364870%_))) + (_%tl6484564877%_ (let () (declare (not safe)) - (##cdr _%e6369363720%_)))) - (if (gx#stx-pair? _%tl6369563727%_) - (let ((_%e6369663730%_ - (gx#syntax-e _%tl6369563727%_))) - (let ((_%hd6369763734%_ + (##cdr _%e6484364870%_)))) + (if (gx#stx-pair? _%tl6484564877%_) + (let ((_%e6484664880%_ + (gx#syntax-e _%tl6484564877%_))) + (let ((_%hd6484764884%_ (let () (declare (not safe)) - (##car _%e6369663730%_))) - (_%tl6369863737%_ + (##car _%e6484664880%_))) + (_%tl6484864887%_ (let () (declare (not safe)) - (##cdr _%e6369663730%_)))) - (if (gx#stx-pair/null? _%tl6369863737%_) - (let ((_g91918_ + (##cdr _%e6484664880%_)))) + (if (gx#stx-pair/null? _%tl6484864887%_) + (let ((_g92781_ (gx#syntax-split-splice - _%tl6369863737%_ + _%tl6484864887%_ '0))) (begin - (let ((_g91919_ + (let ((_g92782_ (let () (declare (not safe)) - (if (##values? _g91918_) + (if (##values? _g92781_) (##values-length - _g91918_) + _g92781_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91919_ 2))) + (##fx= _g92782_ 2))) (error "Context expects 2 values" - _g91919_))) - (let ((_%target6369963740%_ + _g92782_))) + (let ((_%target6484964890%_ (let () (declare (not safe)) (##values-ref - _g91918_ + _g92781_ 0))) - (_%tl6370163743%_ + (_%tl6485164893%_ (let () (declare (not safe)) (##values-ref - _g91918_ + _g92781_ 1)))) (if (gx#stx-null? - _%tl6370163743%_) - (letrec ((_%loop6370263746%_ - (lambda (_%hd6370063750%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%spec6370663753%_) - (if (gx#stx-pair? _%hd6370063750%_) - (let ((_%e6370363756%_ - (gx#syntax-e _%hd6370063750%_))) - (let ((_%lp-hd6370463760%_ + _%tl6485164893%_) + (letrec ((_%loop6485264896%_ + (lambda (_%hd6485064900%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%spec6485664903%_) + (if (gx#stx-pair? _%hd6485064900%_) + (let ((_%e6485364905%_ + (gx#syntax-e _%hd6485064900%_))) + (let ((_%lp-hd6485464909%_ (let () (declare (not safe)) - (##car _%e6370363756%_))) - (_%lp-tl6370563763%_ + (##car _%e6485364905%_))) + (_%lp-tl6485564912%_ (let () (declare (not safe)) - (##cdr _%e6370363756%_)))) - (_%loop6370263746%_ - _%lp-tl6370563763%_ - (cons _%lp-hd6370463760%_ _%spec6370663753%_)))) - (let ((_%spec6370763766%_ - (reverse _%spec6370663753%_))) - ((lambda (_%L63770%_ _%L63772%_) - (if (or (gx#identifier? _%L63772%_) - (gx#identifier-list? _%L63772%_)) - (let* ((_%g6379563803%_ - (lambda (_%g6379663799%_) + (##cdr _%e6485364905%_)))) + (_%loop6485264896%_ + _%lp-tl6485564912%_ + (cons _%lp-hd6485464909%_ _%spec6485664903%_)))) + (let ((_%spec6485764915%_ + (reverse _%spec6485664903%_))) + ((lambda (_%g6484164918%_ _%g6484264920%_) + (if (or (gx#identifier? _%g6484264920%_) + (gx#identifier-list? _%g6484264920%_)) + (let* ((_%g6494364951%_ + (lambda (_%g6494464947%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6379663799%_))) - (_%g6379465194%_ - (lambda (_%g6379663807%_) - ((lambda (_%L63810%_) - (let* ((_%g6382263830%_ - (lambda (_%g6382363826%_) + _%g6494464947%_))) + (_%g6494266324%_ + (lambda (_%g6494464955%_) + ((lambda (_%g6494564958%_) + (let* ((_%g6497064978%_ + (lambda (_%g6497164974%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6382363826%_))) - (_%g6382165190%_ - (lambda (_%g6382363834%_) - ((lambda (_%L63837%_) - (let* ((_%g6385063858%_ + _%g6497164974%_))) + (_%g6496966320%_ + (lambda (_%g6497164982%_) + ((lambda (_%g6497264985%_) + (let* ((_%g6499865006%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6385163854%_) + (lambda (_%g6499965002%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6385163854%_))) - (_%g6384965186%_ - (lambda (_%g6385163862%_) - ((lambda (_%L63865%_) - (let* ((_%g6387863886%_ - (lambda (_%g6387963882%_) + _%g6499965002%_))) + (_%g6499766316%_ + (lambda (_%g6499965010%_) + ((lambda (_%g6500065013%_) + (let* ((_%g6502665034%_ + (lambda (_%g6502765030%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6387963882%_))) - (_%g6387765182%_ - (lambda (_%g6387963890%_) - ((lambda (_%L63893%_) - (let* ((_%g6390663914%_ - (lambda (_%g6390763910%_) + _%g6502765030%_))) + (_%g6502566312%_ + (lambda (_%g6502765038%_) + ((lambda (_%g6502865041%_) + (let* ((_%g6505465062%_ + (lambda (_%g6505565058%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6390763910%_))) - (_%g6390565178%_ - (lambda (_%g6390763918%_) - ((lambda (_%L63921%_) - (let* ((_%g6393463942%_ + _%g6505565058%_))) + (_%g6505366308%_ + (lambda (_%g6505565066%_) + ((lambda (_%g6505665069%_) + (let* ((_%g6508265090%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6393563938%_) + (lambda (_%g6508365086%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6393563938%_))) - (_%g6393365174%_ - (lambda (_%g6393563946%_) - ((lambda (_%L63949%_) - (let* ((_%g6396263970%_ - (lambda (_%g6396363966%_) + _%g6508365086%_))) + (_%g6508166304%_ + (lambda (_%g6508365094%_) + ((lambda (_%g6508465097%_) + (let* ((_%g6511065118%_ + (lambda (_%g6511165114%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6396363966%_))) - (_%g6396165170%_ - (lambda (_%g6396363974%_) - ((lambda (_%L63977%_) - (let* ((_%g6399063998%_ - (lambda (_%g6399163994%_) + _%g6511165114%_))) + (_%g6510966300%_ + (lambda (_%g6511165122%_) + ((lambda (_%g6511265125%_) + (let* ((_%g6513865146%_ + (lambda (_%g6513965142%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6399163994%_))) - (_%g6398965166%_ - (lambda (_%g6399164002%_) - ((lambda (_%L64005%_) - (let* ((_%g6401864026%_ + _%g6513965142%_))) + (_%g6513766296%_ + (lambda (_%g6513965150%_) + ((lambda (_%g6514065153%_) + (let* ((_%g6516665174%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6401964022%_) + (lambda (_%g6516765170%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6401964022%_))) - (_%g6401765162%_ - (lambda (_%g6401964030%_) - ((lambda (_%L64033%_) - (let* ((_%g6404664054%_ - (lambda (_%g6404764050%_) + _%g6516765170%_))) + (_%g6516566292%_ + (lambda (_%g6516765178%_) + ((lambda (_%g6516865181%_) + (let* ((_%g6519465202%_ + (lambda (_%g6519565198%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6404764050%_))) - (_%g6404565158%_ - (lambda (_%g6404764058%_) - ((lambda (_%L64061%_) - (let* ((_%g6407464091%_ - (lambda (_%g6407564087%_) + _%g6519565198%_))) + (_%g6519366288%_ + (lambda (_%g6519565206%_) + ((lambda (_%g6519665209%_) + (let* ((_%g6522265239%_ + (lambda (_%g6522365235%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6407564087%_))) - (_%g6407365154%_ - (lambda (_%g6407564095%_) + _%g6522365235%_))) + (_%g6522166284%_ + (lambda (_%g6522365243%_) (if (gx#stx-pair/null? - _%g6407564095%_) - (let ((_g91920_ + _%g6522365243%_) + (let ((_g92783_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g6407564095%_ '0))) + (gx#syntax-split-splice _%g6522365243%_ '0))) (begin - (let ((_g91921_ + (let ((_g92784_ (let () (declare (not safe)) - (if (##values? _g91920_) - (##values-length _g91920_) + (if (##values? _g92783_) + (##values-length _g92783_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91921_ 2))) - (error "Context expects 2 values" _g91921_))) - (let ((_%target6407764098%_ + (##fx= _g92784_ 2))) + (error "Context expects 2 values" _g92784_))) + (let ((_%target6522565246%_ (let () (declare (not safe)) - (##values-ref _g91920_ 0))) - (_%tl6407964101%_ + (##values-ref _g92783_ 0))) + (_%tl6522765249%_ (let () (declare (not safe)) - (##values-ref _g91920_ 1)))) - (if (gx#stx-null? _%tl6407964101%_) - (letrec ((_%loop6408064104%_ - (lambda (_%hd6407864108%_ - _%mixin6408464111%_) - (if (gx#stx-pair? _%hd6407864108%_) - (let ((_%e6408164114%_ + (##values-ref _g92783_ 1)))) + (if (gx#stx-null? _%tl6522765249%_) + (letrec ((_%loop6522865252%_ + (lambda (_%hd6522665256%_ + _%mixin6523265259%_) + (if (gx#stx-pair? _%hd6522665256%_) + (let ((_%e6522965261%_ (gx#syntax-e - _%hd6407864108%_))) - (let ((_%lp-hd6408264118%_ + _%hd6522665256%_))) + (let ((_%lp-hd6523065265%_ (let () (declare (not safe)) - (##car _%e6408164114%_))) - (_%lp-tl6408364121%_ + (##car _%e6522965261%_))) + (_%lp-tl6523165268%_ (let () (declare (not safe)) - (##cdr _%e6408164114%_)))) - (_%loop6408064104%_ - _%lp-tl6408364121%_ - (cons _%lp-hd6408264118%_ - _%mixin6408464111%_)))) - (let ((_%mixin6408564124%_ - (reverse _%mixin6408464111%_))) - ((lambda (_%L64128%_) - (let* ((_%g6414564162%_ - (lambda (_%g6414664158%_) + (##cdr _%e6522965261%_)))) + (_%loop6522865252%_ + _%lp-tl6523165268%_ + (cons _%lp-hd6523065265%_ + _%mixin6523265259%_)))) + (let ((_%mixin6523365271%_ + (reverse _%mixin6523265259%_))) + ((lambda (_%g6522465274%_) + (let* ((_%g6529165308%_ + (lambda (_%g6529265304%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6414664158%_))) - (_%g6414465134%_ - (lambda (_%g6414664166%_) + _%g6529265304%_))) + (_%g6529066264%_ + (lambda (_%g6529265312%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6414664166%_) - (let ((_g91922_ - (gx#syntax-split-splice _%g6414664166%_ '0))) + _%g6529265312%_) + (let ((_g92785_ + (gx#syntax-split-splice _%g6529265312%_ '0))) (begin - (let ((_g91923_ + (let ((_g92786_ (let () (declare (not safe)) - (if (##values? _g91922_) - (##values-length _g91922_) + (if (##values? _g92785_) + (##values-length _g92785_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91923_ 2))) - (error "Context expects 2 values" _g91923_))) - (let ((_%target6414864169%_ + (##fx= _g92786_ 2))) + (error "Context expects 2 values" _g92786_))) + (let ((_%target6529465315%_ (let () (declare (not safe)) - (##values-ref _g91922_ 0))) - (_%tl6415064172%_ + (##values-ref _g92785_ 0))) + (_%tl6529665318%_ (let () (declare (not safe)) - (##values-ref _g91922_ 1)))) - (if (gx#stx-null? _%tl6415064172%_) - (letrec ((_%loop6415164175%_ - (lambda (_%hd6414964179%_ - _%method6415564182%_) + (##values-ref _g92785_ 1)))) + (if (gx#stx-null? _%tl6529665318%_) + (letrec ((_%loop6529765321%_ + (lambda (_%hd6529565325%_ + _%method6530165328%_) (if (gx#stx-pair? - _%hd6414964179%_) - (let ((_%e6415264185%_ + _%hd6529565325%_) + (let ((_%e6529865330%_ (gx#syntax-e - _%hd6414964179%_))) - (let ((_%lp-hd6415364189%_ + _%hd6529565325%_))) + (let ((_%lp-hd6529965334%_ (let () (declare (not safe)) - (##car _%e6415264185%_))) - (_%lp-tl6415464192%_ + (##car _%e6529865330%_))) + (_%lp-tl6530065337%_ (let () (declare (not safe)) - (##cdr _%e6415264185%_)))) - (_%loop6415164175%_ - _%lp-tl6415464192%_ - (cons _%lp-hd6415364189%_ - _%method6415564182%_)))) - (let ((_%method6415664195%_ - (reverse _%method6415564182%_))) - ((lambda (_%L64199%_) - (let* ((_%g6421664233%_ - (lambda (_%g6421764229%_) + (##cdr _%e6529865330%_)))) + (_%loop6529765321%_ + _%lp-tl6530065337%_ + (cons _%lp-hd6529965334%_ + _%method6530165328%_)))) + (let ((_%method6530265340%_ + (reverse _%method6530165328%_))) + ((lambda (_%g6529365343%_) + (let* ((_%g6536065377%_ + (lambda (_%g6536165373%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6421764229%_))) - (_%g6421565122%_ - (lambda (_%g6421764237%_) - (if (gx#stx-pair/null? _%g6421764237%_) - (let ((_g91924_ + _%g6536165373%_))) + (_%g6535966252%_ + (lambda (_%g6536165381%_) + (if (gx#stx-pair/null? _%g6536165381%_) + (let ((_g92787_ (gx#syntax-split-splice - _%g6421764237%_ + _%g6536165381%_ '0))) (begin - (let ((_g91925_ + (let ((_g92788_ (let () (declare (not safe)) - (if (##values? _g91924_) - (##values-length _g91924_) + (if (##values? _g92787_) + (##values-length _g92787_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91925_ 2))) + (##fx= _g92788_ 2))) (error "Context expects 2 values" - _g91925_))) - (let ((_%target6421964240%_ + _g92788_))) + (let ((_%target6536365384%_ (let () (declare (not safe)) - (##values-ref _g91924_ 0))) - (_%tl6422164243%_ + (##values-ref _g92787_ 0))) + (_%tl6536565387%_ (let () (declare (not safe)) - (##values-ref _g91924_ 1)))) - (if (gx#stx-null? _%tl6422164243%_) - (letrec ((_%loop6422264246%_ - (lambda (_%hd6422064250%_ - _%method-name6422664253%_) + (##values-ref _g92787_ 1)))) + (if (gx#stx-null? _%tl6536565387%_) + (letrec ((_%loop6536665390%_ + (lambda (_%hd6536465394%_ + _%method-name6537065397%_) (if (gx#stx-pair? - _%hd6422064250%_) - (let ((_%e6422364256%_ + _%hd6536465394%_) + (let ((_%e6536765399%_ (gx#syntax-e - _%hd6422064250%_))) - (let ((_%lp-hd6422464260%_ + _%hd6536465394%_))) + (let ((_%lp-hd6536865403%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6422364256%_))) - (_%lp-tl6422564263%_ - (let () (declare (not safe)) (##cdr _%e6422364256%_)))) - (_%loop6422264246%_ - _%lp-tl6422564263%_ - (cons _%lp-hd6422464260%_ _%method-name6422664253%_)))) - (let ((_%method-name6422764266%_ - (reverse _%method-name6422664253%_))) - ((lambda (_%L64270%_) - (let* ((_%g6428764304%_ - (lambda (_%g6428864300%_) + (##car _%e6536765399%_))) + (_%lp-tl6536965406%_ + (let () (declare (not safe)) (##cdr _%e6536765399%_)))) + (_%loop6536665390%_ + _%lp-tl6536965406%_ + (cons _%lp-hd6536865403%_ _%method-name6537065397%_)))) + (let ((_%method-name6537165409%_ + (reverse _%method-name6537065397%_))) + ((lambda (_%g6536265412%_) + (let* ((_%g6542965446%_ + (lambda (_%g6543065442%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6428864300%_))) - (_%g6428665110%_ - (lambda (_%g6428864308%_) - (if (gx#stx-pair/null? _%g6428864308%_) - (let ((_g91926_ + _%g6543065442%_))) + (_%g6542866240%_ + (lambda (_%g6543065450%_) + (if (gx#stx-pair/null? _%g6543065450%_) + (let ((_g92789_ (gx#syntax-split-splice - _%g6428864308%_ + _%g6543065450%_ '0))) (begin - (let ((_g91927_ + (let ((_g92790_ (let () (declare (not safe)) - (if (##values? _g91926_) - (##values-length _g91926_) + (if (##values? _g92789_) + (##values-length _g92789_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91927_ 2))) + (##fx= _g92790_ 2))) (error "Context expects 2 values" - _g91927_))) - (let ((_%target6429064311%_ + _g92790_))) + (let ((_%target6543265453%_ (let () (declare (not safe)) - (##values-ref _g91926_ 0))) - (_%tl6429264314%_ + (##values-ref _g92789_ 0))) + (_%tl6543465456%_ (let () (declare (not safe)) - (##values-ref _g91926_ 1)))) - (if (gx#stx-null? _%tl6429264314%_) - (letrec ((_%loop6429364317%_ - (lambda (_%hd6429164321%_ - _%mixin-precedence-list6429764324%_) + (##values-ref _g92789_ 1)))) + (if (gx#stx-null? _%tl6543465456%_) + (letrec ((_%loop6543565459%_ + (lambda (_%hd6543365463%_ + _%mixin-precedence-list6543965466%_) (if (gx#stx-pair? - _%hd6429164321%_) - (let ((_%e6429464327%_ + _%hd6543365463%_) + (let ((_%e6543665468%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6429164321%_))) - (let ((_%lp-hd6429564331%_ + (gx#syntax-e _%hd6543365463%_))) + (let ((_%lp-hd6543765472%_ (let () (declare (not safe)) - (##car _%e6429464327%_))) - (_%lp-tl6429664334%_ + (##car _%e6543665468%_))) + (_%lp-tl6543865475%_ (let () (declare (not safe)) - (##cdr _%e6429464327%_)))) - (_%loop6429364317%_ - _%lp-tl6429664334%_ - (cons _%lp-hd6429564331%_ - _%mixin-precedence-list6429764324%_)))) - (let ((_%mixin-precedence-list6429864337%_ - (reverse _%mixin-precedence-list6429764324%_))) - ((lambda (_%L64341%_) - (let* ((_%linearized-mixins64366%_ + (##cdr _%e6543665468%_)))) + (_%loop6543565459%_ + _%lp-tl6543865475%_ + (cons _%lp-hd6543765472%_ + _%mixin-precedence-list6543965466%_)))) + (let ((_%mixin-precedence-list6544065478%_ + (reverse _%mixin-precedence-list6543965466%_))) + ((lambda (_%g6543165481%_) + (let* ((_%linearized-mixins65506%_ (map gx#syntax-local-value - (foldr (lambda (_%g6435764360%_ - _%g6435864363%_) - (cons _%g6435764360%_ - _%g6435864363%_)) + (foldr (lambda (_%g6549765500%_ + _%g6549865503%_) + (cons _%g6549765500%_ + _%g6549865503%_)) '() - _%L64341%_))) - (_%g6436964386%_ - (lambda (_%g6437064382%_) + _%g6543165481%_))) + (_%g6550965526%_ + (lambda (_%g6551065522%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6437064382%_))) - (_%g6436865093%_ - (lambda (_%g6437064390%_) - (if (gx#stx-pair/null? _%g6437064390%_) - (let ((_g91928_ + _%g6551065522%_))) + (_%g6550866223%_ + (lambda (_%g6551065530%_) + (if (gx#stx-pair/null? _%g6551065530%_) + (let ((_g92791_ (gx#syntax-split-splice - _%g6437064390%_ + _%g6551065530%_ '0))) (begin - (let ((_g91929_ + (let ((_g92792_ (let () (declare (not safe)) - (if (##values? _g91928_) + (if (##values? _g92791_) (##values-length - _g91928_) + _g92791_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91929_ 2))) + (##fx= _g92792_ 2))) (error "Context expects 2 values" - _g91929_))) - (let ((_%target6437264393%_ + _g92792_))) + (let ((_%target6551265533%_ (let () (declare (not safe)) - (##values-ref _g91928_ 0))) - (_%tl6437464396%_ + (##values-ref _g92791_ 0))) + (_%tl6551465536%_ (let () (declare (not safe)) (##values-ref - _g91928_ + _g92791_ 1)))) (if (gx#stx-null? - _%tl6437464396%_) - (letrec ((_%loop6437564399%_ - (lambda (_%hd6437364403%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%method-name-spec6437964406%_) - (if (gx#stx-pair? _%hd6437364403%_) - (let ((_%e6437664409%_ - (gx#syntax-e _%hd6437364403%_))) - (let ((_%lp-hd6437764413%_ + _%tl6551465536%_) + (letrec ((_%loop6551565539%_ + (lambda (_%hd6551365543%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%method-name-spec6551965546%_) + (if (gx#stx-pair? _%hd6551365543%_) + (let ((_%e6551665548%_ + (gx#syntax-e _%hd6551365543%_))) + (let ((_%lp-hd6551765552%_ (let () (declare (not safe)) - (##car _%e6437664409%_))) - (_%lp-tl6437864416%_ + (##car _%e6551665548%_))) + (_%lp-tl6551865555%_ (let () (declare (not safe)) - (##cdr _%e6437664409%_)))) - (_%loop6437564399%_ - _%lp-tl6437864416%_ - (cons _%lp-hd6437764413%_ - _%method-name-spec6437964406%_)))) - (let ((_%method-name-spec6438064419%_ - (reverse _%method-name-spec6437964406%_))) - ((lambda (_%L64423%_) - (let* ((_%g6444164458%_ - (lambda (_%g6444264454%_) + (##cdr _%e6551665548%_)))) + (_%loop6551565539%_ + _%lp-tl6551865555%_ + (cons _%lp-hd6551765552%_ + _%method-name-spec6551965546%_)))) + (let ((_%method-name-spec6552065558%_ + (reverse _%method-name-spec6551965546%_))) + ((lambda (_%g6551165561%_) + (let* ((_%g6557965596%_ + (lambda (_%g6558065592%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6444264454%_))) - (_%g6444065081%_ - (lambda (_%g6444264462%_) - (if (gx#stx-pair/null? _%g6444264462%_) - (let ((_g91930_ + _%g6558065592%_))) + (_%g6557866211%_ + (lambda (_%g6558065600%_) + (if (gx#stx-pair/null? _%g6558065600%_) + (let ((_g92793_ (gx#syntax-split-splice - _%g6444264462%_ + _%g6558065600%_ '0))) (begin - (let ((_g91931_ + (let ((_g92794_ (let () (declare (not safe)) (if (##values? - _g91930_) + _g92793_) (##values-length - _g91930_) + _g92793_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91931_ + (##fx= _g92794_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g91931_))) + (error "Context expects 2 values" _g92794_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6444464465%_ + (let ((_%target6558265603%_ (let () (declare (not safe)) (##values-ref - _g91930_ + _g92793_ 0))) - (_%tl6444664468%_ + (_%tl6558465606%_ (let () (declare (not safe)) (##values-ref - _g91930_ + _g92793_ 1)))) (if (gx#stx-null? - _%tl6444664468%_) - (letrec ((_%loop6444764471%_ - (lambda (_%hd6444564475%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%method-signature6445164478%_) - (if (gx#stx-pair? _%hd6444564475%_) - (let ((_%e6444864481%_ - (gx#syntax-e _%hd6444564475%_))) - (let ((_%lp-hd6444964485%_ + _%tl6558465606%_) + (letrec ((_%loop6558565609%_ + (lambda (_%hd6558365613%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%method-signature6558965616%_) + (if (gx#stx-pair? _%hd6558365613%_) + (let ((_%e6558665618%_ + (gx#syntax-e _%hd6558365613%_))) + (let ((_%lp-hd6558765622%_ (let () (declare (not safe)) - (##car _%e6444864481%_))) - (_%lp-tl6445064488%_ + (##car _%e6558665618%_))) + (_%lp-tl6558865625%_ (let () (declare (not safe)) - (##cdr _%e6444864481%_)))) - (_%loop6444764471%_ - _%lp-tl6445064488%_ - (cons _%lp-hd6444964485%_ - _%method-signature6445164478%_)))) - (let ((_%method-signature6445264491%_ - (reverse _%method-signature6445164478%_))) - ((lambda (_%L64495%_) - (let* ((_%g6451264529%_ - (lambda (_%g6451364525%_) + (##cdr _%e6558665618%_)))) + (_%loop6558565609%_ + _%lp-tl6558865625%_ + (cons _%lp-hd6558765622%_ + _%method-signature6558965616%_)))) + (let ((_%method-signature6559065628%_ + (reverse _%method-signature6558965616%_))) + ((lambda (_%g6558165631%_) + (let* ((_%g6564865665%_ + (lambda (_%g6564965661%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6451364525%_))) - (_%g6451165066%_ - (lambda (_%g6451364533%_) + _%g6564965661%_))) + (_%g6564766196%_ + (lambda (_%g6564965669%_) (if (gx#stx-pair/null? - _%g6451364533%_) - (let ((_g91932_ + _%g6564965669%_) + (let ((_g92795_ (gx#syntax-split-splice - _%g6451364533%_ + _%g6564965669%_ '0))) (begin - (let ((_g91933_ + (let ((_g92796_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g91932_) - (##values-length _g91932_) + _g92795_) + (##values-length _g92795_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g91933_ 2))) - (error "Context expects 2 values" _g91933_))) + (if (not (let () (declare (not safe)) (##fx= _g92796_ 2))) + (error "Context expects 2 values" _g92796_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6451564536%_ + (let ((_%target6565165672%_ (let () (declare (not safe)) (##values-ref - _g91932_ + _g92795_ 0))) - (_%tl6451764539%_ + (_%tl6565365675%_ (let () (declare (not safe)) (##values-ref - _g91932_ + _g92795_ 1)))) (if (gx#stx-null? - _%tl6451764539%_) - (letrec ((_%loop6451864542%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd6451664546%_ - _%method-impl-name6452264549%_) - (if (gx#stx-pair? _%hd6451664546%_) - (let ((_%e6451964552%_ - (gx#syntax-e _%hd6451664546%_))) - (let ((_%lp-hd6452064556%_ + _%tl6565365675%_) + (letrec ((_%loop6565465678%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd6565265682%_ + _%method-impl-name6565865685%_) + (if (gx#stx-pair? _%hd6565265682%_) + (let ((_%e6565565687%_ + (gx#syntax-e _%hd6565265682%_))) + (let ((_%lp-hd6565665691%_ (let () (declare (not safe)) - (##car _%e6451964552%_))) - (_%lp-tl6452164559%_ + (##car _%e6565565687%_))) + (_%lp-tl6565765694%_ (let () (declare (not safe)) - (##cdr _%e6451964552%_)))) - (_%loop6451864542%_ - _%lp-tl6452164559%_ - (cons _%lp-hd6452064556%_ - _%method-impl-name6452264549%_)))) - (let ((_%method-impl-name6452364562%_ - (reverse _%method-impl-name6452264549%_))) - ((lambda (_%L64566%_) - (let* ((_%g6458364600%_ - (lambda (_%g6458464596%_) + (##cdr _%e6565565687%_)))) + (_%loop6565465678%_ + _%lp-tl6565765694%_ + (cons _%lp-hd6565665691%_ + _%method-impl-name6565865685%_)))) + (let ((_%method-impl-name6565965697%_ + (reverse _%method-impl-name6565865685%_))) + ((lambda (_%g6565065700%_) + (let* ((_%g6571765734%_ + (lambda (_%g6571865730%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6458464596%_))) - (_%g6458265051%_ - (lambda (_%g6458464604%_) + _%g6571865730%_))) + (_%g6571666181%_ + (lambda (_%g6571865738%_) (if (gx#stx-pair/null? - _%g6458464604%_) - (let ((_g91934_ + _%g6571865738%_) + (let ((_g92797_ (gx#syntax-split-splice - _%g6458464604%_ + _%g6571865738%_ '0))) (begin - (let ((_g91935_ + (let ((_g92798_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g91934_) - (##values-length _g91934_) + (if (##values? _g92797_) + (##values-length _g92797_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g91935_ 2))) - (error "Context expects 2 values" _g91935_))) - (let ((_%target6458664607%_ + (if (not (let () (declare (not safe)) (##fx= _g92798_ 2))) + (error "Context expects 2 values" _g92798_))) + (let ((_%target6572065741%_ (let () (declare (not safe)) - (##values-ref _g91934_ 0))) - (_%tl6458864610%_ + (##values-ref _g92797_ 0))) + (_%tl6572265744%_ (let () (declare (not safe)) - (##values-ref _g91934_ 1)))) - (if (gx#stx-null? _%tl6458864610%_) - (letrec ((_%loop6458964613%_ - (lambda (_%hd6458764617%_ - _%unchecked-method-impl-name6459364620%_) - (if (gx#stx-pair? _%hd6458764617%_) - (let ((_%e6459064623%_ - (gx#syntax-e _%hd6458764617%_))) - (let ((_%lp-hd6459164627%_ + (##values-ref _g92797_ 1)))) + (if (gx#stx-null? _%tl6572265744%_) + (letrec ((_%loop6572365747%_ + (lambda (_%hd6572165751%_ + _%unchecked-method-impl-name6572765754%_) + (if (gx#stx-pair? _%hd6572165751%_) + (let ((_%e6572465756%_ + (gx#syntax-e _%hd6572165751%_))) + (let ((_%lp-hd6572565760%_ (let () (declare (not safe)) - (##car _%e6459064623%_))) - (_%lp-tl6459264630%_ + (##car _%e6572465756%_))) + (_%lp-tl6572665763%_ (let () (declare (not safe)) - (##cdr _%e6459064623%_)))) - (_%loop6458964613%_ - _%lp-tl6459264630%_ - (cons _%lp-hd6459164627%_ - _%unchecked-method-impl-name6459364620%_)))) - (let ((_%unchecked-method-impl-name6459464633%_ - (reverse _%unchecked-method-impl-name6459364620%_))) - ((lambda (_%L64637%_) - (let* ((_%g6465464671%_ - (lambda (_%g6465564667%_) + (##cdr _%e6572465756%_)))) + (_%loop6572365747%_ + _%lp-tl6572665763%_ + (cons _%lp-hd6572565760%_ + _%unchecked-method-impl-name6572765754%_)))) + (let ((_%unchecked-method-impl-name6572865766%_ + (reverse _%unchecked-method-impl-name6572765754%_))) + ((lambda (_%g6571965769%_) + (let* ((_%g6578665803%_ + (lambda (_%g6578765799%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6465564667%_))) - (_%g6465365031%_ - (lambda (_%g6465564675%_) + _%g6578765799%_))) + (_%g6578566161%_ + (lambda (_%g6578765807%_) (if (gx#stx-pair/null? - _%g6465564675%_) - (let ((_g91936_ + _%g6578765807%_) + (let ((_g92799_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g6465564675%_ '0))) + (gx#syntax-split-splice _%g6578765807%_ '0))) (begin - (let ((_g91937_ + (let ((_g92800_ (let () (declare (not safe)) - (if (##values? _g91936_) - (##values-length _g91936_) + (if (##values? _g92799_) + (##values-length _g92799_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91937_ 2))) - (error "Context expects 2 values" _g91937_))) - (let ((_%target6465764678%_ + (##fx= _g92800_ 2))) + (error "Context expects 2 values" _g92800_))) + (let ((_%target6578965810%_ (let () (declare (not safe)) - (##values-ref _g91936_ 0))) - (_%tl6465964681%_ + (##values-ref _g92799_ 0))) + (_%tl6579165813%_ (let () (declare (not safe)) - (##values-ref _g91936_ 1)))) - (if (gx#stx-null? _%tl6465964681%_) - (letrec ((_%loop6466064684%_ - (lambda (_%hd6465864688%_ - _%defmethod-impl6466464691%_) - (if (gx#stx-pair? _%hd6465864688%_) - (let ((_%e6466164694%_ + (##values-ref _g92799_ 1)))) + (if (gx#stx-null? _%tl6579165813%_) + (letrec ((_%loop6579265816%_ + (lambda (_%hd6579065820%_ + _%defmethod-impl6579665823%_) + (if (gx#stx-pair? _%hd6579065820%_) + (let ((_%e6579365825%_ (gx#syntax-e - _%hd6465864688%_))) - (let ((_%lp-hd6466264698%_ + _%hd6579065820%_))) + (let ((_%lp-hd6579465829%_ (let () (declare (not safe)) - (##car _%e6466164694%_))) - (_%lp-tl6466364701%_ + (##car _%e6579365825%_))) + (_%lp-tl6579565832%_ (let () (declare (not safe)) - (##cdr _%e6466164694%_)))) - (_%loop6466064684%_ - _%lp-tl6466364701%_ - (cons _%lp-hd6466264698%_ - _%defmethod-impl6466464691%_)))) - (let ((_%defmethod-impl6466564704%_ - (reverse _%defmethod-impl6466464691%_))) - ((lambda (_%L64708%_) - (let* ((_%g6472564733%_ - (lambda (_%g6472664729%_) + (##cdr _%e6579365825%_)))) + (_%loop6579265816%_ + _%lp-tl6579565832%_ + (cons _%lp-hd6579465829%_ + _%defmethod-impl6579665823%_)))) + (let ((_%defmethod-impl6579765835%_ + (reverse _%defmethod-impl6579665823%_))) + ((lambda (_%g6578865838%_) + (let* ((_%g6585565863%_ + (lambda (_%g6585665859%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6472664729%_))) - (_%g6472465011%_ - (lambda (_%g6472664737%_) - ((lambda (_%L64740%_) - (let* ((_%g6475364761%_ + _%g6585665859%_))) + (_%g6585466141%_ + (lambda (_%g6585665867%_) + ((lambda (_%g6585765870%_) + (let* ((_%g6588365891%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6475464757%_) + (lambda (_%g6588465887%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6475464757%_))) - (_%g6475264991%_ - (lambda (_%g6475464765%_) - ((lambda (_%L64768%_) - (let* ((_%g6478164789%_ - (lambda (_%g6478264785%_) + _%g6588465887%_))) + (_%g6588266121%_ + (lambda (_%g6588465895%_) + ((lambda (_%g6588565898%_) + (let* ((_%g6591165919%_ + (lambda (_%g6591265915%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6478264785%_))) - (_%g6478064987%_ - (lambda (_%g6478264793%_) - ((lambda (_%L64796%_) - (let* ((_%g6480964817%_ - (lambda (_%g6481064813%_) + _%g6591265915%_))) + (_%g6591066117%_ + (lambda (_%g6591265923%_) + ((lambda (_%g6591365926%_) + (let* ((_%g6593965947%_ + (lambda (_%g6594065943%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6481064813%_))) - (_%g6480864983%_ - (lambda (_%g6481064821%_) - ((lambda (_%L64824%_) - (let* ((_%g6483764845%_ + _%g6594065943%_))) + (_%g6593866113%_ + (lambda (_%g6594065951%_) + ((lambda (_%g6594165954%_) + (let* ((_%g6596765975%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6483864841%_) + (lambda (_%g6596865971%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6483864841%_))) - (_%g6483664979%_ - (lambda (_%g6483864849%_) - ((lambda (_%L64852%_) - (let* ((_%g6486564873%_ - (lambda (_%g6486664869%_) + _%g6596865971%_))) + (_%g6596666109%_ + (lambda (_%g6596865979%_) + ((lambda (_%g6596965982%_) + (let* ((_%g6599566003%_ + (lambda (_%g6599665999%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6486664869%_))) - (_%g6486464975%_ - (lambda (_%g6486664877%_) - ((lambda (_%L64880%_) - (let* ((_%g6489364901%_ - (lambda (_%g6489464897%_) + _%g6599665999%_))) + (_%g6599466105%_ + (lambda (_%g6599666007%_) + ((lambda (_%g6599766010%_) + (let* ((_%g6602366031%_ + (lambda (_%g6602466027%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6489464897%_))) - (_%g6489264931%_ - (lambda (_%g6489464905%_) - ((lambda (_%L64908%_) + _%g6602466027%_))) + (_%g6602266061%_ + (lambda (_%g6602466035%_) + ((lambda (_%g6602566038%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin) - (cons _%L64740%_ - (cons _%L64768%_ - (cons _%L64796%_ - (cons _%L64824%_ - (cons _%L64852%_ - (cons _%L64880%_ - (cons _%L64908%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g6492264925%_ _%g6492364928%_) - (cons _%g6492264925%_ _%g6492364928%_)) + (cons _%g6585765870%_ + (cons _%g6588565898%_ + (cons _%g6591365926%_ + (cons _%g6594165954%_ + (cons _%g6596965982%_ + (cons _%g6599766010%_ + (cons _%g6602566038%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (foldr (lambda (_%g6605266055%_ _%g6605366058%_) + (cons _%g6605266055%_ _%g6605366058%_)) '() - _%L64708%_)))))))))) + _%g6578865838%_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6489464905%_)))) + _%g6602466035%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6489264931%_ + (_%g6602266061%_ (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L63810%_ + (cons _%g6494564958%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -8578,110 +8714,115 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L63810%_ '())) - (cons 'namespace: + (cons _%g6494564958%_ + '())) + (cons 'type-descriptor: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'quote) - (cons _%L63837%_ '())) - (cons 'interface-mixin: - (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g6493464945%_ - _%g6493564948%_) - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%g6493464945%_ - '())) - _%g6493564948%_)) - '() - _%L64128%_)) - (cons 'interface-precedence-list: - (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g6493664951%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6493764954%_) - (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g6493664951%_ '())) - _%g6493764954%_)) - '() - _%L64341%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons 'interface-methods: + 'quote-syntax) + (cons _%g6500065013%_ '())) + (cons 'id: + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%g6505665069%_ '())) + (cons 'namespace: + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%g6497264985%_ '())) + (cons 'interface-mixin: (cons (cons (gx#datum->syntax '#f - 'quote) - (cons (foldr (lambda (_%g6493864957%_ + '@list) + (foldr (lambda (_%g6606466075%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6606566078%_) + (cons (cons (gx#datum->syntax '#f 'quote-syntax) + (cons _%g6606466075%_ '())) + _%g6606566078%_)) + '() + _%g6522465274%_)) + (cons 'interface-precedence-list: + (cons (cons (gx#datum->syntax '#f '@list) + (foldr (lambda (_%g6606666081%_ + _%g6606766084%_) + (cons (cons (gx#datum->syntax + '#f + 'quote-syntax) + (cons _%g6606666081%_ + '())) + _%g6606766084%_)) + '() + _%g6543165481%_)) + (cons 'interface-methods: + (cons (cons (gx#datum->syntax '#f 'quote) + (cons (foldr (lambda (_%g6606866087%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6493964960%_) - (cons _%g6493864957%_ _%g6493964960%_)) - '() - _%L64199%_) - '())) - (cons 'instance-type: - (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L63865%_ '())) - (cons 'interface-descriptor: - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%L63949%_ '())) - (cons 'instance-constructor: + _%g6606966090%_) + (cons _%g6606866087%_ _%g6606966090%_)) + '() + _%g6529365343%_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())) + (cons 'interface-descriptor: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L63977%_ '())) - (cons 'instance-try-constructor: + (cons _%g6508465097%_ + '())) + (cons 'instance-constructor: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L64005%_ '())) - (cons 'instance-predicate: + (cons _%g6511265125%_ '())) + (cons 'instance-try-constructor: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L64033%_ '())) - (cons 'instance-satisfies-predicate: + (cons _%g6514065153%_ '())) + (cons 'instance-predicate: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L64061%_ '())) - (cons 'implementation-methods: + (cons _%g6516865181%_ + '())) + (cons 'instance-satisfies-predicate: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - '@list) - (foldr (lambda (_%g6494064963%_ _%g6494164966%_) - (cons (cons (gx#datum->syntax - '#f - 'quote-syntax) - (cons _%g6494064963%_ '())) - _%g6494164966%_)) - '() - _%L64566%_)) - (cons 'unchecked-implementation-methods: + 'quote-syntax) + (cons _%g6519665209%_ '())) + (cons 'implementation-methods: (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g6494264969%_ - _%g6494364972%_) + (foldr (lambda (_%g6607066093%_ + _%g6607166096%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g6494264969%_ + (cons _%g6607066093%_ '())) - _%g6494364972%_)) + _%g6607166096%_)) '() - _%L64637%_)) - '()))))))))))))))))))))))))))) + _%g6565065700%_)) + (cons 'unchecked-implementation-methods: + (cons (cons (gx#datum->syntax '#f '@list) + (foldr (lambda (_%g6607266099%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6607366102%_) + (cons (cons (gx#datum->syntax '#f 'quote-syntax) + (cons _%g6607266099%_ '())) + _%g6607366102%_)) + '() + _%g6571965769%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))))))))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6486664877%_)))) - (_%g6486464975%_ + _%g6599666007%_)))) + (_%g6599466105%_ (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L64061%_ + (cons (cons _%g6519665209%_ (cons (gx#datum->syntax '#f 'obj) @@ -8711,7 +8852,7 @@ (cons (cons (gx#datum->syntax '#f 'satisfies?) - (cons _%L63949%_ + (cons _%g6508465097%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -8722,17 +8863,17 @@ '()))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6483864849%_)))) - (_%g6483664979%_ + _%g6596865979%_)))) + (_%g6596666109%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L64033%_ + (cons _%g6516865181%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.predicate) - (cons _%L63893%_ + (cons _%g6502865041%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (gx#datum->syntax '#f 'lambda) @@ -8740,7 +8881,7 @@ (cons (cons (gx#datum->syntax '#f 'direct-instance?) - (cons _%L63865%_ + (cons _%g6500065013%_ (cons (gx#datum->syntax '#f 'obj) @@ -8749,13 +8890,13 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - _%g6481064821%_)))) + _%g6594065951%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6480864983%_ + (_%g6593866113%_ (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L64005%_ + (cons (cons _%g6514065153%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'obj) '())) (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -8777,7 +8918,7 @@ (cons (cons (gx#datum->syntax '#f 'try-cast) - (cons _%L63949%_ + (cons _%g6508465097%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -8787,10 +8928,10 @@ '()))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6478264793%_)))) - (_%g6478064987%_ + _%g6591265923%_)))) + (_%g6591066117%_ (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L63977%_ + (cons (cons _%g6511265125%_ (cons (gx#datum->syntax '#f 'obj) @@ -8803,7 +8944,7 @@ '#f '@type.signature) (cons 'return: - (cons _%L63893%_ + (cons _%g6502865041%_ (cons 'effect: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -8815,7 +8956,7 @@ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'cast) - (cons _%L63949%_ + (cons _%g6508465097%_ (cons (gx#datum->syntax '#f 'obj) @@ -8823,62 +8964,62 @@ '()))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6475464765%_)))) - (_%g6475264991%_ + _%g6588465895%_)))) + (_%g6588266121%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L63949%_ + (cons _%g6508465097%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@interface) - (cons _%L63893%_ + (cons _%g6502865041%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (foldr (lambda (_%g6499464999%_ - _%g6499565002%_) - (cons _%g6499464999%_ - _%g6499565002%_)) + (cons (foldr (lambda (_%g6612466129%_ + _%g6612566132%_) + (cons _%g6612466129%_ + _%g6612566132%_)) '() - _%L64270%_) + _%g6536265412%_) '()))) (cons (cons (gx#datum->syntax '#f 'make-interface-descriptor) - (cons _%L63865%_ + (cons _%g6500065013%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g6499665005%_ + (cons (foldr (lambda (_%g6612666135%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6499765008%_) - (cons _%g6499665005%_ _%g6499765008%_)) + _%g6612766138%_) + (cons _%g6612666135%_ _%g6612766138%_)) '() - _%L64423%_) + _%g6551165561%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - _%g6472664737%_)))) + _%g6585665867%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6472465011%_ + (_%g6585466141%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L63865%_ + (cons _%g6500065013%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.class) - (cons _%L63921%_ + (cons _%g6505665069%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'interface-instance::t) '()) - (cons (foldr (lambda (_%g6501465019%_ _%g6501565022%_) - (cons _%g6501465019%_ _%g6501565022%_)) + (cons (foldr (lambda (_%g6614466149%_ _%g6614566152%_) + (cons _%g6614466149%_ _%g6614566152%_)) '() - _%L64270%_) + _%g6536265412%_) (cons '#f (cons '#t (cons '#t (cons '#f '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -8888,21 +9029,21 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L63921%_ '())) + (cons _%g6505665069%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L63810%_ '())) + (cons _%g6494564958%_ '())) (cons (cons (gx#datum->syntax '#f '@list) (cons (gx#datum->syntax '#f 'interface-instance::t) '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g6501665025%_ + (cons (foldr (lambda (_%g6614666155%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6501765028%_) - (cons _%g6501665025%_ _%g6501765028%_)) + _%g6614766158%_) + (cons _%g6614666155%_ _%g6614766158%_)) '() - _%L64270%_) + _%g6536265412%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax @@ -8919,966 +9060,1016 @@ '()))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%defmethod-impl6466564704%_)))))) - (_%loop6466064684%_ _%target6465764678%_ '())) - (_%g6465464671%_ _%g6465564675%_))))) - (_%g6465464671%_ _%g6465564675%_))))) + _%defmethod-impl6579765835%_)))))) + (_%loop6579265816%_ _%target6578965810%_ '())) + (_%g6578665803%_ _%g6578765807%_))))) + (_%g6578665803%_ _%g6578765807%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6465365031%_ - (map (_%make-method-defs63685%_ - _%L63810%_) - (foldr (lambda (_%g6503465037%_ + (_%g6578566161%_ + (map (_%make-method-defs64835%_ + _%g6494564958%_) + (foldr (lambda (_%g6616466167%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6503565040%_) - (cons _%g6503465037%_ _%g6503565040%_)) + _%g6616566170%_) + (cons _%g6616466167%_ _%g6616566170%_)) '() - _%L64199%_) + _%g6529365343%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp91938 - (length (foldr (lambda (_%g6504265045%_ + (let ((__tmp92801 + (length (foldr (lambda (_%g6617266175%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6504365048%_) - (cons _%g6504265045%_ _%g6504365048%_)) + _%g6617366178%_) + (cons _%g6617266175%_ _%g6617366178%_)) '() - _%L64270%_)))) + _%g6536265412%_)))) (declare (not safe)) - (##iota __tmp91938 '2)))))) + (##iota __tmp92801 '2)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%unchecked-method-impl-name6459464633%_)))))) - (_%loop6458964613%_ _%target6458664607%_ '())) - (_%g6458364600%_ _%g6458464604%_))))) - (_%g6458364600%_ _%g6458464604%_))))) + _%unchecked-method-impl-name6572865766%_)))))) + (_%loop6572365747%_ _%target6572065741%_ '())) + (_%g6571765734%_ _%g6571865738%_))))) + (_%g6571765734%_ _%g6571865738%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6458265051%_ - (map (lambda (_%method-name65055%_) + (_%g6571666181%_ + (map (lambda (_%method-name66185%_) (gx#stx-identifier - _%L63810%_ + _%g6494564958%_ '"&" - _%L63810%_ + _%g6494564958%_ '"-" - _%method-name65055%_)) - (foldr (lambda (_%g6505765060%_ - _%g6505865063%_) - (cons _%g6505765060%_ - _%g6505865063%_)) + _%method-name66185%_)) + (foldr (lambda (_%g6618766190%_ + _%g6618866193%_) + (cons _%g6618766190%_ + _%g6618866193%_)) '() - _%L64270%_))))) - _%method-impl-name6452364562%_)))))) - (_%loop6451864542%_ _%target6451564536%_ '())) - (_%g6451264529%_ _%g6451364533%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6451264529%_ - _%g6451364533%_))))) - (_%g6451165066%_ - (map (lambda (_%method-name65070%_) + _%g6536265412%_))))) + _%method-impl-name6565965697%_)))))) + (_%loop6565465678%_ _%target6565165672%_ '())) + (_%g6564865665%_ _%g6564965669%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6564865665%_ + _%g6564965669%_))))) + (_%g6564766196%_ + (map (lambda (_%method-name66200%_) (gx#stx-identifier - _%L63810%_ - _%L63810%_ + _%g6494564958%_ + _%g6494564958%_ '"-" - _%method-name65070%_)) - (foldr (lambda (_%g6507265075%_ - _%g6507365078%_) - (cons _%g6507265075%_ - _%g6507365078%_)) + _%method-name66200%_)) + (foldr (lambda (_%g6620266205%_ + _%g6620366208%_) + (cons _%g6620266205%_ + _%g6620366208%_)) '() - _%L64270%_))))) - _%method-signature6445264491%_)))))) - (_%loop6444764471%_ _%target6444464465%_ '())) - (_%g6444164458%_ _%g6444264462%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6444164458%_ - _%g6444264462%_))))) - (_%g6444065081%_ + _%g6536265412%_))))) + _%method-signature6559065628%_)))))) + (_%loop6558565609%_ _%target6558265603%_ '())) + (_%g6557965596%_ _%g6558065600%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6557965596%_ + _%g6558065600%_))))) + (_%g6557866211%_ (map gx#stx-cdr - (foldr (lambda (_%g6508465087%_ - _%g6508565090%_) - (cons _%g6508465087%_ - _%g6508565090%_)) + (foldr (lambda (_%g6621466217%_ + _%g6621566220%_) + (cons _%g6621466217%_ + _%g6621566220%_)) '() - _%L64199%_))))) - _%method-name-spec6438064419%_)))))) + _%g6529365343%_))))) + _%method-name-spec6552065558%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6437564399%_ - _%target6437264393%_ + (_%loop6551565539%_ + _%target6551265533%_ '())) - (_%g6436964386%_ - _%g6437064390%_))))) - (_%g6436964386%_ _%g6437064390%_))))) - (_%g6436865093%_ - (let ((__tmp91940 - (lambda (_%g6509665098%_) - (_%make-method-name-spec63687%_ - _%g6509665098%_ - (gx#stx-e _%L63837%_) - _%linearized-mixins64366%_))) - (__tmp91939 + (_%g6550965526%_ + _%g6551065530%_))))) + (_%g6550965526%_ _%g6551065530%_))))) + (_%g6550866223%_ + (let ((__tmp92803 + (lambda (_%g6622666228%_) + (_%make-method-name-spec64837%_ + _%g6622666228%_ + (gx#stx-e _%g6497264985%_) + _%linearized-mixins65506%_))) + (__tmp92802 (map gx#stx-e - (foldr (lambda (_%g6510165104%_ - _%g6510265107%_) - (cons _%g6510165104%_ - _%g6510265107%_)) + (foldr (lambda (_%g6623166234%_ + _%g6623266237%_) + (cons _%g6623166234%_ + _%g6623266237%_)) '() - _%L64270%_)))) + _%g6536265412%_)))) (declare (not safe)) - (##map __tmp91940 __tmp91939))))) - _%mixin-precedence-list6429864337%_)))))) + (##map __tmp92803 __tmp92802))))) + _%mixin-precedence-list6544065478%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6429364317%_ - _%target6429064311%_ + (_%loop6543565459%_ + _%target6543265453%_ '())) - (_%g6428764304%_ - _%g6428864308%_))))) - (_%g6428764304%_ _%g6428864308%_))))) - (_%g6428665110%_ - (let ((__tmp91941 - (foldr (lambda (_%g6511365116%_ _%g6511465119%_) - (cons _%g6511365116%_ _%g6511465119%_)) + (_%g6542965446%_ + _%g6543065450%_))))) + (_%g6542965446%_ _%g6543065450%_))))) + (_%g6542866240%_ + (let ((__tmp92804 + (foldr (lambda (_%g6624366246%_ _%g6624466249%_) + (cons _%g6624366246%_ _%g6624466249%_)) '() - _%L64128%_))) + _%g6522465274%_))) (declare (not safe)) (gerbil/core/contract~InterfaceInfo#interface-mixin->precedence-list - __tmp91941))))) - _%method-name6422764266%_)))))) + __tmp92804))))) + _%method-name6537165409%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6422264246%_ - _%target6421964240%_ + (_%loop6536665390%_ + _%target6536365384%_ '())) - (_%g6421664233%_ _%g6421764237%_))))) - (_%g6421664233%_ _%g6421764237%_))))) - (_%g6421565122%_ + (_%g6536065377%_ _%g6536165381%_))))) + (_%g6536065377%_ _%g6536165381%_))))) + (_%g6535966252%_ (map gx#stx-car - (foldr (lambda (_%g6512565128%_ _%g6512665131%_) - (cons _%g6512565128%_ _%g6512665131%_)) + (foldr (lambda (_%g6625566258%_ _%g6625666261%_) + (cons _%g6625566258%_ _%g6625666261%_)) '() - _%L64199%_))))) + _%g6529365343%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%method6415664195%_)))))) - (_%loop6415164175%_ - _%target6414864169%_ + _%method6530265340%_)))))) + (_%loop6529765321%_ + _%target6529465315%_ '())) - (_%g6414564162%_ _%g6414664166%_))))) - (_%g6414564162%_ _%g6414664166%_))))) + (_%g6529165308%_ _%g6529265312%_))))) + (_%g6529165308%_ _%g6529265312%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6414465134%_ - (_%fold-methods63681%_ - (foldr (lambda (_%g6513765140%_ + (_%g6529066264%_ + (_%fold-methods64831%_ + (foldr (lambda (_%g6626766270%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6513865143%_) - (cons _%g6513765140%_ _%g6513865143%_)) + _%g6626866273%_) + (cons _%g6626766270%_ _%g6626866273%_)) '() - _%L64128%_) - (foldr (lambda (_%g6514565148%_ _%g6514665151%_) - (cons _%g6514565148%_ _%g6514665151%_)) + _%g6522465274%_) + (foldr (lambda (_%g6627566278%_ _%g6627666281%_) + (cons _%g6627566278%_ _%g6627666281%_)) '() - _%L63770%_))))) + _%g6484164918%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin6408564124%_)))))) - (_%loop6408064104%_ _%target6407764098%_ '())) - (_%g6407464091%_ _%g6407564095%_))))) - (_%g6407464091%_ _%g6407564095%_))))) + _%mixin6523365271%_)))))) + (_%loop6522865252%_ _%target6522565246%_ '())) + (_%g6522265239%_ _%g6522365243%_))))) + (_%g6522265239%_ _%g6522365243%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6407365154%_ - (if (gx#identifier? _%L63772%_) + (_%g6522166284%_ + (if (gx#identifier? + _%g6484264920%_) '() (gx#syntax->list (gx#stx-cdr - _%L63772%_)))))) - _%g6404764058%_)))) - (_%g6404565158%_ + _%g6484264920%_)))))) + _%g6519565206%_)))) + (_%g6519366288%_ (gx#stx-identifier - _%L63810%_ + _%g6494564958%_ '"is-" - _%L63810%_ + _%g6494564958%_ '"?")))) - _%g6401964030%_)))) - (_%g6401765162%_ - (gx#stx-identifier _%L63810%_ _%L63810%_ '"?")))) - _%g6399164002%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6398965166%_ + _%g6516765178%_)))) + (_%g6516566292%_ + (gx#stx-identifier + _%g6494564958%_ + _%g6494564958%_ + '"?")))) + _%g6513965150%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6513766296%_ (gx#stx-identifier - _%L63810%_ + _%g6494564958%_ '"try-" - _%L63810%_)))) - _%g6396363974%_)))) - (_%g6396165170%_ + _%g6494564958%_)))) + _%g6511165122%_)))) + (_%g6510966300%_ (gx#stx-identifier - _%L63810%_ + _%g6494564958%_ '"make-" - _%L63810%_)))) - _%g6393563946%_)))) - (_%g6393365174%_ + _%g6494564958%_)))) + _%g6508365094%_)))) + (_%g6508166304%_ (gx#stx-identifier - _%L63810%_ - _%L63810%_ + _%g6494564958%_ + _%g6494564958%_ '"::interface")))) - _%g6390763918%_)))) + _%g6505565066%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6390565178%_ + (_%g6505366308%_ (let () (declare (not safe)) (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L63810%_))))) - _%g6387963890%_)))) - (_%g6387765182%_ - (gx#core-quote-syntax _%L63865%_)))) - _%g6385163862%_)))) - (_%g6384965186%_ - (gx#stx-identifier _%L63810%_ _%L63810%_ '"::t")))) - _%g6382363834%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6382165190%_ - (_%make-interface-namespace63686%_ - (gx#stx-e _%L63810%_))))) - _%g6379663807%_)))) - (_%g6379465194%_ - (if (gx#identifier? _%L63772%_) - _%L63772%_ - (gx#stx-car _%L63772%_)))) - (_%g6368963713%_ _%g6369063717%_))) - _%spec6370763766%_ - _%hd6369763734%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6370263746%_ - _%target6369963740%_ + _%g6494564958%_))))) + _%g6502765038%_)))) + (_%g6502566312%_ + (gx#core-quote-syntax _%g6500065013%_)))) + _%g6499965010%_)))) + (_%g6499766316%_ + (gx#stx-identifier + _%g6494564958%_ + _%g6494564958%_ + '"::t")))) + _%g6497164982%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6496966320%_ + (_%make-interface-namespace64836%_ + (gx#stx-e + _%g6494564958%_))))) + _%g6494464955%_)))) + (_%g6494266324%_ + (if (gx#identifier? _%g6484264920%_) + _%g6484264920%_ + (gx#stx-car _%g6484264920%_)))) + (_%g6483964863%_ _%g6484064867%_))) + _%spec6485764915%_ + _%hd6484764884%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6485264896%_ + _%target6484964890%_ '())) - (_%g6368963713%_ - _%g6369063717%_))))) - (_%g6368963713%_ _%g6369063717%_)))) - (_%g6368963713%_ _%g6369063717%_)))) - (_%g6368963713%_ _%g6369063717%_))))) - (_%g6368865198%_ _%stx63678%_))))) + (_%g6483964863%_ + _%g6484064867%_))))) + (_%g6483964863%_ _%g6484064867%_)))) + (_%g6483964863%_ _%g6484064867%_)))) + (_%g6483964863%_ _%g6484064867%_))))) + (_%g6483866328%_ _%stx64828%_))))) (define |gerbil/core/contract~Interface[:0:]#definterface-method| - (lambda (_%stx65780%_) - (letrec ((_%emit-raw-method?65783%_ - (lambda (_%return66766%_) - (let ((_%return-type66769%_ - (gx#syntax-local-value _%return66766%_))) - (if (and (let () - (declare (not safe)) - (class-instance? - gerbil/core/mop~MOP-2#class-type-info::t - _%return-type66769%_)) - (let ((__tmp91942 - (let ((__obj91694 _%return-type66769%_)) + (lambda (_%stx66908%_) + (letrec ((_%emit-raw-method?66911%_ + (lambda (_%return67902%_) + (let ((_%return-type67905%_ + (gx#syntax-local-value _%return67902%_))) + (if (let () + (declare (not safe)) + (class-instance? + gerbil/core/mop~MOP-2#class-type-info::t + _%return-type67905%_)) + (not (let ((__tmp92805 + (let ((__obj92547 _%return-type67905%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91694 + __obj92547 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91694 + __obj92547 '1 '#f '#f)) (unchecked-slot-ref - __obj91694 + __obj92547 'id))))) (declare (not safe)) - (##memq __tmp91942 '(t void)))) - '#f + (##memq __tmp92805 '(t void)))) '#t)))) - (_%make-checked-method-def65785%_ - (lambda (_%Interface66527%_ - _%method-name66529%_ - _%raw-method-name66530%_ - _%unchecked-method-name66531%_ - _%signature66532%_ - _%return66533%_) - (let* ((_%g6653566583%_ - (lambda (_%g6653666579%_) + (_%make-checked-method-def66913%_ + (lambda (_%Interface67665%_ + _%method-name67667%_ + _%raw-method-name67668%_ + _%unchecked-method-name67669%_ + _%signature67670%_ + _%return67671%_) + (let* ((_%g6767367721%_ + (lambda (_%g6767467717%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6653666579%_))) - (_%g6653466762%_ - (lambda (_%g6653666587%_) - (if (gx#stx-pair? _%g6653666587%_) - (let ((_%e6654566590%_ - (gx#syntax-e _%g6653666587%_))) - (let ((_%hd6654666594%_ + _%g6767467717%_))) + (_%g6767267898%_ + (lambda (_%g6767467725%_) + (if (gx#stx-pair? _%g6767467725%_) + (let ((_%e6768367728%_ + (gx#syntax-e _%g6767467725%_))) + (let ((_%hd6768467732%_ (let () (declare (not safe)) - (##car _%e6654566590%_))) - (_%tl6654766597%_ + (##car _%e6768367728%_))) + (_%tl6768567735%_ (let () (declare (not safe)) - (##cdr _%e6654566590%_)))) - (if (gx#stx-pair? _%tl6654766597%_) - (let ((_%e6654866600%_ + (##cdr _%e6768367728%_)))) + (if (gx#stx-pair? _%tl6768567735%_) + (let ((_%e6768667738%_ (gx#syntax-e - _%tl6654766597%_))) - (let ((_%hd6654966604%_ + _%tl6768567735%_))) + (let ((_%hd6768767742%_ (let () (declare (not safe)) - (##car _%e6654866600%_))) - (_%tl6655066607%_ + (##car _%e6768667738%_))) + (_%tl6768867745%_ (let () (declare (not safe)) - (##cdr _%e6654866600%_)))) + (##cdr _%e6768667738%_)))) (if (gx#stx-pair? - _%tl6655066607%_) - (let ((_%e6655166610%_ + _%tl6768867745%_) + (let ((_%e6768967748%_ (gx#syntax-e - _%tl6655066607%_))) - (let ((_%hd6655266614%_ + _%tl6768867745%_))) + (let ((_%hd6769067752%_ (let () (declare (not safe)) - (##car _%e6655166610%_))) - (_%tl6655366617%_ + (##car _%e6768967748%_))) + (_%tl6769167755%_ (let () (declare (not safe)) - (##cdr _%e6655166610%_)))) + (##cdr _%e6768967748%_)))) (if (gx#stx-pair? - _%tl6655366617%_) - (let ((_%e6655466620%_ + _%tl6769167755%_) + (let ((_%e6769267758%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6655366617%_))) - (let ((_%hd6655566624%_ + (gx#syntax-e _%tl6769167755%_))) + (let ((_%hd6769367762%_ (let () (declare (not safe)) - (##car _%e6655466620%_))) - (_%tl6655666627%_ + (##car _%e6769267758%_))) + (_%tl6769467765%_ (let () (declare (not safe)) - (##cdr _%e6655466620%_)))) - (if (gx#stx-pair? _%tl6655666627%_) - (let ((_%e6655766630%_ - (gx#syntax-e _%tl6655666627%_))) - (let ((_%hd6655866634%_ + (##cdr _%e6769267758%_)))) + (if (gx#stx-pair? _%tl6769467765%_) + (let ((_%e6769567768%_ + (gx#syntax-e _%tl6769467765%_))) + (let ((_%hd6769667772%_ (let () (declare (not safe)) - (##car _%e6655766630%_))) - (_%tl6655966637%_ + (##car _%e6769567768%_))) + (_%tl6769767775%_ (let () (declare (not safe)) - (##cdr _%e6655766630%_)))) - (if (gx#stx-pair? _%tl6655966637%_) - (let ((_%e6656066640%_ - (gx#syntax-e _%tl6655966637%_))) - (let ((_%hd6656166644%_ + (##cdr _%e6769567768%_)))) + (if (gx#stx-pair? _%tl6769767775%_) + (let ((_%e6769867778%_ + (gx#syntax-e _%tl6769767775%_))) + (let ((_%hd6769967782%_ (let () (declare (not safe)) - (##car _%e6656066640%_))) - (_%tl6656266647%_ + (##car _%e6769867778%_))) + (_%tl6770067785%_ (let () (declare (not safe)) - (##cdr _%e6656066640%_)))) - (if (gx#stx-pair/null? _%hd6656166644%_) - (let ((_g91943_ + (##cdr _%e6769867778%_)))) + (if (gx#stx-pair/null? _%hd6769967782%_) + (let ((_g92806_ (gx#syntax-split-splice - _%hd6656166644%_ + _%hd6769967782%_ '0))) (begin - (let ((_g91944_ + (let ((_g92807_ (let () (declare (not safe)) - (if (##values? _g91943_) + (if (##values? _g92806_) (##values-length - _g91943_) + _g92806_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91944_ 2))) + (##fx= _g92807_ 2))) (error "Context expects 2 values" - _g91944_))) - (let ((_%target6656366650%_ + _g92807_))) + (let ((_%target6770167788%_ (let () (declare (not safe)) (##values-ref - _g91943_ + _g92806_ 0))) - (_%tl6656566653%_ + (_%tl6770367791%_ (let () (declare (not safe)) (##values-ref - _g91943_ + _g92806_ 1)))) (if (gx#stx-null? - _%tl6656566653%_) - (letrec ((_%loop6656666656%_ - (lambda (_%hd6656466660%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%out6657066663%_) - (if (gx#stx-pair? _%hd6656466660%_) - (let ((_%e6656766666%_ - (gx#syntax-e _%hd6656466660%_))) - (let ((_%lp-hd6656866670%_ + _%tl6770367791%_) + (letrec ((_%loop6770467794%_ + (lambda (_%hd6770267798%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%out6770867801%_) + (if (gx#stx-pair? _%hd6770267798%_) + (let ((_%e6770567803%_ + (gx#syntax-e _%hd6770267798%_))) + (let ((_%lp-hd6770667807%_ (let () (declare (not safe)) - (##car _%e6656766666%_))) - (_%lp-tl6656966673%_ + (##car _%e6770567803%_))) + (_%lp-tl6770767810%_ (let () (declare (not safe)) - (##cdr _%e6656766666%_)))) - (_%loop6656666656%_ - _%lp-tl6656966673%_ - (cons _%lp-hd6656866670%_ - _%out6657066663%_)))) - (let ((_%out6657166676%_ - (reverse _%out6657066663%_))) - (if (gx#stx-pair? _%tl6656266647%_) - (let ((_%e6657266680%_ - (gx#syntax-e _%tl6656266647%_))) - (let ((_%hd6657366684%_ + (##cdr _%e6770567803%_)))) + (_%loop6770467794%_ + _%lp-tl6770767810%_ + (cons _%lp-hd6770667807%_ + _%out6770867801%_)))) + (let ((_%out6770967813%_ + (reverse _%out6770867801%_))) + (if (gx#stx-pair? _%tl6770067785%_) + (let ((_%e6771067816%_ + (gx#syntax-e _%tl6770067785%_))) + (let ((_%hd6771167820%_ (let () (declare (not safe)) - (##car _%e6657266680%_))) - (_%tl6657466687%_ + (##car _%e6771067816%_))) + (_%tl6771267823%_ (let () (declare (not safe)) - (##cdr _%e6657266680%_)))) - (if (gx#stx-pair? _%tl6657466687%_) - (let ((_%e6657566690%_ + (##cdr _%e6771067816%_)))) + (if (gx#stx-pair? _%tl6771267823%_) + (let ((_%e6771367826%_ (gx#syntax-e - _%tl6657466687%_))) - (let ((_%hd6657666694%_ + _%tl6771267823%_))) + (let ((_%hd6771467830%_ (let () (declare (not safe)) - (##car _%e6657566690%_))) - (_%tl6657766697%_ + (##car _%e6771367826%_))) + (_%tl6771567833%_ (let () (declare (not safe)) - (##cdr _%e6657566690%_)))) + (##cdr _%e6771367826%_)))) (if (gx#stx-null? - _%tl6657766697%_) - ((lambda (_%L66700%_ - _%L66702%_ - _%L66703%_ - _%L66704%_ - _%L66705%_ - _%L66706%_ - _%L66707%_ - _%L66708%_) + _%tl6771567833%_) + ((lambda (_%g6767567836%_ + _%g6767667838%_ + _%g6767767839%_ + _%g6767867840%_ + _%g6767967841%_ + _%g6768067842%_ + _%g6768167843%_ + _%g6768267844%_) (if (gx#stx-list? - _%L66702%_) + _%g6767667838%_) (gx#stx-wrap-source (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%L66707%_ (cons _%L66705%_ _%L66704%_)) + (cons (cons _%g6768167843%_ + (cons _%g6767967841%_ _%g6767867840%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-checked-method) - (cons _%L66705%_ - (cons (cons _%L66708%_ - (cons _%L66702%_ + (cons _%g6767967841%_ + (cons (cons _%g6768267844%_ + (cons _%g6767667838%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L66700%_ (cons _%L66706%_ '())))) + (cons _%g6767567836%_ (cons _%g6768067842%_ '())))) (cons (cons (gx#datum->syntax '#f ':-) - (cons (cons _%L66706%_ - (cons _%L66705%_ - (foldr (lambda (_%g6674566748%_ - _%g6674666751%_) - (cons _%g6674566748%_ - _%g6674666751%_)) + (cons (cons _%g6768067842%_ + (cons _%g6767967841%_ + (foldr (lambda (_%g6788167884%_ + _%g6788267887%_) + (cons _%g6788167884%_ + _%g6788267887%_)) '() - _%L66703%_))) - (cons _%L66700%_ '()))) + _%g6767767839%_))) + (cons _%g6767567836%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx65780%_)) + (gx#stx-source _%stx66908%_)) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L66707%_ (cons _%L66705%_ _%L66704%_)) + (cons (cons _%g6768167843%_ + (cons _%g6767967841%_ _%g6767867840%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-checked-method) - (cons _%L66705%_ - (cons (cons _%L66708%_ - (cons _%L66702%_ + (cons _%g6767967841%_ + (cons (cons _%g6768267844%_ + (cons _%g6767667838%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L66700%_ (cons _%L66706%_ '())))) + (cons _%g6767567836%_ (cons _%g6768067842%_ '())))) (cons (cons (gx#datum->syntax '#f ':-) (cons (cons (gx#datum->syntax '#f '##apply) - (cons _%L66706%_ - (cons _%L66705%_ - (foldr (lambda (_%g6675366756%_ + (cons _%g6768067842%_ + (cons _%g6767967841%_ + (foldr (lambda (_%g6788967892%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6675466759%_) - (cons _%g6675366756%_ _%g6675466759%_)) + _%g6789067895%_) + (cons _%g6788967892%_ _%g6789067895%_)) '() - _%L66703%_)))) + _%g6767767839%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L66700%_ '()))) + (cons _%g6767567836%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx65780%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd6657666694%_ - _%hd6657366684%_ - _%out6657166676%_ - _%hd6655866634%_ - _%hd6655566624%_ - _%hd6655266614%_ - _%hd6654966604%_ - _%hd6654666594%_) - (_%g6653566583%_ - _%g6653666587%_)))) - (_%g6653566583%_ _%g6653666587%_)))) - (_%g6653566583%_ _%g6653666587%_))))))) - (_%loop6656666656%_ _%target6656366650%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6653566583%_ - _%g6653666587%_))))) - (_%g6653566583%_ _%g6653666587%_)))) - (_%g6653566583%_ _%g6653666587%_)))) - (_%g6653566583%_ _%g6653666587%_)))) - (_%g6653566583%_ _%g6653666587%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6653566583%_ - _%g6653666587%_)))) - (_%g6653566583%_ _%g6653666587%_)))) - (_%g6653566583%_ _%g6653666587%_))))) - (_%g6653466762%_ - (list _%Interface66527%_ - _%method-name66529%_ - (if (_%emit-raw-method?65783%_ _%return66533%_) - _%raw-method-name66530%_ - _%unchecked-method-name66531%_) + (gx#stx-source _%stx66908%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd6771467830%_ + _%hd6771167820%_ + _%out6770967813%_ + _%hd6769667772%_ + _%hd6769367762%_ + _%hd6769067752%_ + _%hd6768767742%_ + _%hd6768467732%_) + (_%g6767367721%_ + _%g6767467725%_)))) + (_%g6767367721%_ _%g6767467725%_)))) + (_%g6767367721%_ _%g6767467725%_))))))) + (_%loop6770467794%_ _%target6770167788%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6767367721%_ + _%g6767467725%_))))) + (_%g6767367721%_ _%g6767467725%_)))) + (_%g6767367721%_ _%g6767467725%_)))) + (_%g6767367721%_ _%g6767467725%_)))) + (_%g6767367721%_ _%g6767467725%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6767367721%_ + _%g6767467725%_)))) + (_%g6767367721%_ _%g6767467725%_)))) + (_%g6767367721%_ _%g6767467725%_))))) + (_%g6767267898%_ + (list _%Interface67665%_ + _%method-name67667%_ + (if (_%emit-raw-method?66911%_ _%return67671%_) + _%raw-method-name67668%_ + _%unchecked-method-name67669%_) (gx#syntax-local-introduce 'self) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature66532%_) + _%signature67670%_) (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature66532%_) - _%signature66532%_ - _%return66533%_))))) - (_%make-raw-method-def65786%_ - (lambda (_%Interface66289%_ - _%raw-method-name66291%_ - _%unchecked-method-name66292%_ - _%signature66293%_ - _%return66294%_) - (if (_%emit-raw-method?65783%_ _%return66294%_) - (let* ((_%g6629666344%_ - (lambda (_%g6629766340%_) + _%signature67670%_) + _%signature67670%_ + _%return67671%_))))) + (_%make-raw-method-def66914%_ + (lambda (_%Interface67413%_ + _%raw-method-name67415%_ + _%unchecked-method-name67416%_ + _%signature67417%_ + _%return67418%_) + (if (_%emit-raw-method?66911%_ _%return67418%_) + (let* ((_%g6742067468%_ + (lambda (_%g6742167464%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6629766340%_))) - (_%g6629566523%_ - (lambda (_%g6629766348%_) - (if (gx#stx-pair? _%g6629766348%_) - (let ((_%e6630666351%_ - (gx#syntax-e _%g6629766348%_))) - (let ((_%hd6630766355%_ + _%g6742167464%_))) + (_%g6741967661%_ + (lambda (_%g6742167472%_) + (if (gx#stx-pair? _%g6742167472%_) + (let ((_%e6743067475%_ + (gx#syntax-e _%g6742167472%_))) + (let ((_%hd6743167479%_ (let () (declare (not safe)) - (##car _%e6630666351%_))) - (_%tl6630866358%_ + (##car _%e6743067475%_))) + (_%tl6743267482%_ (let () (declare (not safe)) - (##cdr _%e6630666351%_)))) - (if (gx#stx-pair? _%tl6630866358%_) - (let ((_%e6630966361%_ + (##cdr _%e6743067475%_)))) + (if (gx#stx-pair? _%tl6743267482%_) + (let ((_%e6743367485%_ (gx#syntax-e - _%tl6630866358%_))) - (let ((_%hd6631066365%_ + _%tl6743267482%_))) + (let ((_%hd6743467489%_ (let () (declare (not safe)) - (##car _%e6630966361%_))) - (_%tl6631166368%_ + (##car _%e6743367485%_))) + (_%tl6743567492%_ (let () (declare (not safe)) - (##cdr _%e6630966361%_)))) + (##cdr _%e6743367485%_)))) (if (gx#stx-pair? - _%tl6631166368%_) - (let ((_%e6631266371%_ + _%tl6743567492%_) + (let ((_%e6743667495%_ (gx#syntax-e - _%tl6631166368%_))) - (let ((_%hd6631366375%_ + _%tl6743567492%_))) + (let ((_%hd6743767499%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6631266371%_))) - (_%tl6631466378%_ - (let () (declare (not safe)) (##cdr _%e6631266371%_)))) - (if (gx#stx-pair? _%tl6631466378%_) - (let ((_%e6631566381%_ (gx#syntax-e _%tl6631466378%_))) - (let ((_%hd6631666385%_ + (##car _%e6743667495%_))) + (_%tl6743867502%_ + (let () (declare (not safe)) (##cdr _%e6743667495%_)))) + (if (gx#stx-pair? _%tl6743867502%_) + (let ((_%e6743967505%_ (gx#syntax-e _%tl6743867502%_))) + (let ((_%hd6744067509%_ (let () (declare (not safe)) - (##car _%e6631566381%_))) - (_%tl6631766388%_ + (##car _%e6743967505%_))) + (_%tl6744167512%_ (let () (declare (not safe)) - (##cdr _%e6631566381%_)))) - (if (gx#stx-pair? _%tl6631766388%_) - (let ((_%e6631866391%_ - (gx#syntax-e _%tl6631766388%_))) - (let ((_%hd6631966395%_ + (##cdr _%e6743967505%_)))) + (if (gx#stx-pair? _%tl6744167512%_) + (let ((_%e6744267515%_ + (gx#syntax-e _%tl6744167512%_))) + (let ((_%hd6744367519%_ (let () (declare (not safe)) - (##car _%e6631866391%_))) - (_%tl6632066398%_ + (##car _%e6744267515%_))) + (_%tl6744467522%_ (let () (declare (not safe)) - (##cdr _%e6631866391%_)))) - (if (gx#stx-pair? _%tl6632066398%_) - (let ((_%e6632166401%_ - (gx#syntax-e _%tl6632066398%_))) - (let ((_%hd6632266405%_ + (##cdr _%e6744267515%_)))) + (if (gx#stx-pair? _%tl6744467522%_) + (let ((_%e6744567525%_ + (gx#syntax-e _%tl6744467522%_))) + (let ((_%hd6744667529%_ (let () (declare (not safe)) - (##car _%e6632166401%_))) - (_%tl6632366408%_ + (##car _%e6744567525%_))) + (_%tl6744767532%_ (let () (declare (not safe)) - (##cdr _%e6632166401%_)))) + (##cdr _%e6744567525%_)))) (if (gx#stx-pair/null? - _%hd6632266405%_) - (let ((_g91945_ + _%hd6744667529%_) + (let ((_g92808_ (gx#syntax-split-splice - _%hd6632266405%_ + _%hd6744667529%_ '0))) (begin - (let ((_g91946_ + (let ((_g92809_ (let () (declare (not safe)) (if (##values? - _g91945_) + _g92808_) (##values-length - _g91945_) + _g92808_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g91946_ 2))) - (error "Context expects 2 values" _g91946_))) + (##fx= _g92809_ 2))) + (error "Context expects 2 values" _g92809_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6632466411%_ + (let ((_%target6744867535%_ (let () (declare (not safe)) (##values-ref - _g91945_ + _g92808_ 0))) - (_%tl6632666414%_ + (_%tl6745067538%_ (let () (declare (not safe)) (##values-ref - _g91945_ + _g92808_ 1)))) (if (gx#stx-null? - _%tl6632666414%_) - (letrec ((_%loop6632766417%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd6632566421%_ _%out6633166424%_) - (if (gx#stx-pair? _%hd6632566421%_) - (let ((_%e6632866427%_ - (gx#syntax-e _%hd6632566421%_))) - (let ((_%lp-hd6632966431%_ + _%tl6745067538%_) + (letrec ((_%loop6745167541%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd6744967545%_ _%out6745567548%_) + (if (gx#stx-pair? _%hd6744967545%_) + (let ((_%e6745267550%_ + (gx#syntax-e _%hd6744967545%_))) + (let ((_%lp-hd6745367554%_ (let () (declare (not safe)) - (##car _%e6632866427%_))) - (_%lp-tl6633066434%_ + (##car _%e6745267550%_))) + (_%lp-tl6745467557%_ (let () (declare (not safe)) - (##cdr _%e6632866427%_)))) - (_%loop6632766417%_ - _%lp-tl6633066434%_ - (cons _%lp-hd6632966431%_ - _%out6633166424%_)))) - (let ((_%out6633266437%_ - (reverse _%out6633166424%_))) - (if (gx#stx-pair? _%tl6632366408%_) - (let ((_%e6633366441%_ - (gx#syntax-e _%tl6632366408%_))) - (let ((_%hd6633466445%_ + (##cdr _%e6745267550%_)))) + (_%loop6745167541%_ + _%lp-tl6745467557%_ + (cons _%lp-hd6745367554%_ + _%out6745567548%_)))) + (let ((_%out6745667560%_ + (reverse _%out6745567548%_))) + (if (gx#stx-pair? _%tl6744767532%_) + (let ((_%e6745767563%_ + (gx#syntax-e _%tl6744767532%_))) + (let ((_%hd6745867567%_ (let () (declare (not safe)) - (##car _%e6633366441%_))) - (_%tl6633566448%_ + (##car _%e6745767563%_))) + (_%tl6745967570%_ (let () (declare (not safe)) - (##cdr _%e6633366441%_)))) - (if (gx#stx-pair? _%tl6633566448%_) - (let ((_%e6633666451%_ + (##cdr _%e6745767563%_)))) + (if (gx#stx-pair? _%tl6745967570%_) + (let ((_%e6746067573%_ (gx#syntax-e - _%tl6633566448%_))) - (let ((_%hd6633766455%_ + _%tl6745967570%_))) + (let ((_%hd6746167577%_ (let () (declare (not safe)) - (##car _%e6633666451%_))) - (_%tl6633866458%_ + (##car _%e6746067573%_))) + (_%tl6746267580%_ (let () (declare (not safe)) - (##cdr _%e6633666451%_)))) + (##cdr _%e6746067573%_)))) (if (gx#stx-null? - _%tl6633866458%_) - ((lambda (_%L66461%_ - _%L66463%_ - _%L66464%_ - _%L66465%_ - _%L66466%_ - _%L66467%_ - _%L66468%_ - _%L66469%_) + _%tl6746267580%_) + ((lambda (_%g6742267583%_ + _%g6742367585%_ + _%g6742467586%_ + _%g6742567587%_ + _%g6742667588%_ + _%g6742767589%_ + _%g6742867590%_ + _%g6742967591%_) (if (gx#stx-list? - _%L66463%_) + _%g6742367585%_) (gx#stx-wrap-source (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%L66468%_ - (cons _%L66466%_ _%L66465%_)) + (cons (cons _%g6742867590%_ + (cons _%g6742667588%_ _%g6742567587%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-unchecked-method) - (cons _%L66466%_ - (cons (cons _%L66469%_ - (cons _%L66463%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L66461%_ '()))) - (cons (cons (gx#datum->syntax '#f ':) - (cons (cons _%L66467%_ - (cons _%L66466%_ - (foldr (lambda (_%g6650666509%_ - _%g6650766512%_) - (cons _%g6650666509%_ - _%g6650766512%_)) - '() - _%L66464%_))) - (cons _%L66461%_ '()))) + (cons _%g6742667588%_ + (cons (cons _%g6742967591%_ + (cons _%g6742367585%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%g6742267583%_ '()))) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (gx#datum->syntax '#f '__DEBUG) + (cons (cons (gx#datum->syntax '#f ':) + (cons (cons _%g6742767589%_ + (cons _%g6742667588%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (foldr (lambda (_%g6762867633%_ _%g6762967636%_) + (cons _%g6762867633%_ _%g6762967636%_)) + '() + _%g6742467586%_))) + (cons _%g6742267583%_ '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + ':-) + (cons (cons _%g6742767589%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%g6742667588%_ + (foldr (lambda (_%g6763067639%_ + _%g6763167642%_) + (cons _%g6763067639%_ + _%g6763167642%_)) + '() + _%g6742467586%_))) + (cons _%g6742267583%_ '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx65780%_)) + (gx#stx-source _%stx66908%_)) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L66468%_ - (cons _%L66466%_ _%L66465%_)) + (cons (cons _%g6742867590%_ + (cons _%g6742667588%_ _%g6742567587%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-unchecked-method) - (cons _%L66466%_ - (cons (cons _%L66469%_ - (cons _%L66463%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L66461%_ '()))) - (cons (cons (gx#datum->syntax '#f ':) - (cons (cons (gx#datum->syntax '#f '##apply) - (cons _%L66467%_ - (cons _%L66466%_ - (foldr (lambda (_%g6651466517%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6651566520%_) - (cons _%g6651466517%_ _%g6651566520%_)) - '() - _%L66464%_)))) + (cons _%g6742667588%_ + (cons (cons _%g6742967591%_ + (cons _%g6742367585%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%g6742267583%_ '()))) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (gx#datum->syntax '#f '__DEBUG) + (cons (cons (gx#datum->syntax '#f ':) + (cons (cons (gx#datum->syntax + '#f + '##apply) + (cons _%g6742767589%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%g6742667588%_ + (foldr (lambda (_%g6764467649%_ + _%g6764567652%_) + (cons _%g6764467649%_ + _%g6764567652%_)) + '() + _%g6742467586%_)))) + (cons _%g6742267583%_ '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + ':-) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '##apply) + (cons _%g6742767589%_ + (cons _%g6742667588%_ + (foldr (lambda (_%g6764667655%_ + _%g6764767658%_) + (cons _%g6764667655%_ + _%g6764767658%_)) + '() + _%g6742467586%_)))) + (cons _%g6742267583%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L66461%_ '()))) + '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx65780%_)))) - _%hd6633766455%_ - _%hd6633466445%_ - _%out6633266437%_ - _%hd6631966395%_ - _%hd6631666385%_ - _%hd6631366375%_ - _%hd6631066365%_ - _%hd6630766355%_) - (_%g6629666344%_ _%g6629766348%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6629666344%_ - _%g6629766348%_)))) - (_%g6629666344%_ _%g6629766348%_))))))) - (_%loop6632766417%_ _%target6632466411%_ '())) - (_%g6629666344%_ _%g6629766348%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6629666344%_ - _%g6629766348%_)))) - (_%g6629666344%_ _%g6629766348%_)))) - (_%g6629666344%_ _%g6629766348%_)))) - (_%g6629666344%_ _%g6629766348%_)))) - (_%g6629666344%_ _%g6629766348%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6629666344%_ - _%g6629766348%_)))) - (_%g6629666344%_ _%g6629766348%_))))) - (_%g6629566523%_ - (list _%Interface66289%_ - _%raw-method-name66291%_ - _%unchecked-method-name66292%_ + (gx#stx-source _%stx66908%_)))) + _%hd6746167577%_ + _%hd6745867567%_ + _%out6745667560%_ + _%hd6744367519%_ + _%hd6744067509%_ + _%hd6743767499%_ + _%hd6743467489%_ + _%hd6743167479%_) + (_%g6742067468%_ _%g6742167472%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6742067468%_ + _%g6742167472%_)))) + (_%g6742067468%_ _%g6742167472%_))))))) + (_%loop6745167541%_ _%target6744867535%_ '())) + (_%g6742067468%_ _%g6742167472%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6742067468%_ + _%g6742167472%_)))) + (_%g6742067468%_ _%g6742167472%_)))) + (_%g6742067468%_ _%g6742167472%_)))) + (_%g6742067468%_ _%g6742167472%_)))) + (_%g6742067468%_ _%g6742167472%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6742067468%_ + _%g6742167472%_)))) + (_%g6742067468%_ _%g6742167472%_))))) + (_%g6741967661%_ + (list _%Interface67413%_ + _%raw-method-name67415%_ + _%unchecked-method-name67416%_ (gx#syntax-local-introduce 'self) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature66293%_) + _%signature67417%_) (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature66293%_) - _%signature66293%_ - _%return66294%_))) + _%signature67417%_) + _%signature67417%_ + _%return67418%_))) '(begin)))) - (_%make-unchecked-method-def65787%_ - (lambda (_%Interface66077%_ - _%unchecked-method-name66079%_ - _%signature66080%_ - _%return66081%_ - _%body66082%_) - (let* ((_%g6608466128%_ - (lambda (_%g6608566124%_) + (_%make-unchecked-method-def66915%_ + (lambda (_%Interface67203%_ + _%unchecked-method-name67205%_ + _%signature67206%_ + _%return67207%_ + _%body67208%_) + (let* ((_%g6721067254%_ + (lambda (_%g6721167250%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6608566124%_))) - (_%g6608366285%_ - (lambda (_%g6608566132%_) - (if (gx#stx-pair? _%g6608566132%_) - (let ((_%e6609366135%_ - (gx#syntax-e _%g6608566132%_))) - (let ((_%hd6609466139%_ + _%g6721167250%_))) + (_%g6720967409%_ + (lambda (_%g6721167258%_) + (if (gx#stx-pair? _%g6721167258%_) + (let ((_%e6721967261%_ + (gx#syntax-e _%g6721167258%_))) + (let ((_%hd6722067265%_ (let () (declare (not safe)) - (##car _%e6609366135%_))) - (_%tl6609566142%_ + (##car _%e6721967261%_))) + (_%tl6722167268%_ (let () (declare (not safe)) - (##cdr _%e6609366135%_)))) - (if (gx#stx-pair? _%tl6609566142%_) - (let ((_%e6609666145%_ + (##cdr _%e6721967261%_)))) + (if (gx#stx-pair? _%tl6722167268%_) + (let ((_%e6722267271%_ (gx#syntax-e - _%tl6609566142%_))) - (let ((_%hd6609766149%_ + _%tl6722167268%_))) + (let ((_%hd6722367275%_ (let () (declare (not safe)) - (##car _%e6609666145%_))) - (_%tl6609866152%_ + (##car _%e6722267271%_))) + (_%tl6722467278%_ (let () (declare (not safe)) - (##cdr _%e6609666145%_)))) + (##cdr _%e6722267271%_)))) (if (gx#stx-pair? - _%tl6609866152%_) - (let ((_%e6609966155%_ + _%tl6722467278%_) + (let ((_%e6722567281%_ (gx#syntax-e - _%tl6609866152%_))) - (let ((_%hd6610066159%_ + _%tl6722467278%_))) + (let ((_%hd6722667285%_ (let () (declare (not safe)) - (##car _%e6609966155%_))) - (_%tl6610166162%_ + (##car _%e6722567281%_))) + (_%tl6722767288%_ (let () (declare (not safe)) - (##cdr _%e6609966155%_)))) + (##cdr _%e6722567281%_)))) (if (gx#stx-pair? - _%tl6610166162%_) - (let ((_%e6610266165%_ + _%tl6722767288%_) + (let ((_%e6722867291%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6610166162%_))) - (let ((_%hd6610366169%_ + (gx#syntax-e _%tl6722767288%_))) + (let ((_%hd6722967295%_ (let () (declare (not safe)) - (##car _%e6610266165%_))) - (_%tl6610466172%_ + (##car _%e6722867291%_))) + (_%tl6723067298%_ (let () (declare (not safe)) - (##cdr _%e6610266165%_)))) - (if (gx#stx-pair? _%tl6610466172%_) - (let ((_%e6610566175%_ - (gx#syntax-e _%tl6610466172%_))) - (let ((_%hd6610666179%_ + (##cdr _%e6722867291%_)))) + (if (gx#stx-pair? _%tl6723067298%_) + (let ((_%e6723167301%_ + (gx#syntax-e _%tl6723067298%_))) + (let ((_%hd6723267305%_ (let () (declare (not safe)) - (##car _%e6610566175%_))) - (_%tl6610766182%_ + (##car _%e6723167301%_))) + (_%tl6723367308%_ (let () (declare (not safe)) - (##cdr _%e6610566175%_)))) - (if (gx#stx-pair? _%tl6610766182%_) - (let ((_%e6610866185%_ - (gx#syntax-e _%tl6610766182%_))) - (let ((_%hd6610966189%_ + (##cdr _%e6723167301%_)))) + (if (gx#stx-pair? _%tl6723367308%_) + (let ((_%e6723467311%_ + (gx#syntax-e _%tl6723367308%_))) + (let ((_%hd6723567315%_ (let () (declare (not safe)) - (##car _%e6610866185%_))) - (_%tl6611066192%_ + (##car _%e6723467311%_))) + (_%tl6723667318%_ (let () (declare (not safe)) - (##cdr _%e6610866185%_)))) - (if (gx#stx-pair? _%tl6611066192%_) - (let ((_%e6611166195%_ + (##cdr _%e6723467311%_)))) + (if (gx#stx-pair? _%tl6723667318%_) + (let ((_%e6723767321%_ (gx#syntax-e - _%tl6611066192%_))) - (let ((_%hd6611266199%_ + _%tl6723667318%_))) + (let ((_%hd6723867325%_ (let () (declare (not safe)) - (##car _%e6611166195%_))) - (_%tl6611366202%_ + (##car _%e6723767321%_))) + (_%tl6723967328%_ (let () (declare (not safe)) - (##cdr _%e6611166195%_)))) + (##cdr _%e6723767321%_)))) (if (gx#stx-pair/null? - _%hd6611266199%_) - (let ((_g91947_ + _%hd6723867325%_) + (let ((_g92810_ (gx#syntax-split-splice - _%hd6611266199%_ + _%hd6723867325%_ '0))) (begin - (let ((_g91948_ + (let ((_g92811_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g91947_) - (##values-length _g91947_) + (if (##values? _g92810_) + (##values-length _g92810_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g91948_ 2))) - (error "Context expects 2 values" _g91948_))) - (let ((_%target6611466205%_ - (let () (declare (not safe)) (##values-ref _g91947_ 0))) - (_%tl6611666208%_ - (let () (declare (not safe)) (##values-ref _g91947_ 1)))) - (if (gx#stx-null? _%tl6611666208%_) - (letrec ((_%loop6611766211%_ - (lambda (_%hd6611566215%_ _%body6612166218%_) - (if (gx#stx-pair? _%hd6611566215%_) - (let ((_%e6611866221%_ - (gx#syntax-e _%hd6611566215%_))) - (let ((_%lp-hd6611966225%_ + (if (not (let () (declare (not safe)) (##fx= _g92811_ 2))) + (error "Context expects 2 values" _g92811_))) + (let ((_%target6724067331%_ + (let () (declare (not safe)) (##values-ref _g92810_ 0))) + (_%tl6724267334%_ + (let () (declare (not safe)) (##values-ref _g92810_ 1)))) + (if (gx#stx-null? _%tl6724267334%_) + (letrec ((_%loop6724367337%_ + (lambda (_%hd6724167341%_ _%body6724767344%_) + (if (gx#stx-pair? _%hd6724167341%_) + (let ((_%e6724467346%_ + (gx#syntax-e _%hd6724167341%_))) + (let ((_%lp-hd6724567350%_ (let () (declare (not safe)) - (##car _%e6611866221%_))) - (_%lp-tl6612066228%_ + (##car _%e6724467346%_))) + (_%lp-tl6724667353%_ (let () (declare (not safe)) - (##cdr _%e6611866221%_)))) - (_%loop6611766211%_ - _%lp-tl6612066228%_ - (cons _%lp-hd6611966225%_ - _%body6612166218%_)))) - (let ((_%body6612266231%_ - (reverse _%body6612166218%_))) - (if (gx#stx-null? _%tl6611366202%_) - ((lambda (_%L66235%_ - _%L66237%_ - _%L66238%_ - _%L66239%_ - _%L66240%_ - _%L66241%_ - _%L66242%_) + (##cdr _%e6724467346%_)))) + (_%loop6724367337%_ + _%lp-tl6724667353%_ + (cons _%lp-hd6724567350%_ + _%body6724767344%_)))) + (let ((_%body6724867356%_ + (reverse _%body6724767344%_))) + (if (gx#stx-null? _%tl6723967328%_) + ((lambda (_%g6721267359%_ + _%g6721367361%_ + _%g6721467362%_ + _%g6721567363%_ + _%g6721667364%_ + _%g6721767365%_ + _%g6721867366%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L66241%_ - (cons _%L66240%_ + (cons (cons _%g6721767365%_ + (cons _%g6721667364%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L66239%_)) + _%g6721567363%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-unchecked-method) - (cons _%L66240%_ - (cons (cons _%L66242%_ - (cons _%L66238%_ - (cons _%L66237%_ '()))) + (cons _%g6721667364%_ + (cons (cons _%g6721867366%_ + (cons _%g6721467362%_ + (cons _%g6721367361%_ + '()))) (cons (cons (gx#datum->syntax '#f ':-) @@ -9887,1023 +10078,1029 @@ '#f 'let) (cons '() - (foldr (lambda (_%g6627666279%_ - _%g6627766282%_) - (cons _%g6627666279%_ - _%g6627766282%_)) + (foldr (lambda (_%g6740067403%_ + _%g6740167406%_) + (cons _%g6740067403%_ + _%g6740167406%_)) '() - _%L66235%_))) - (cons _%L66237%_ '()))) + _%g6721267359%_))) + (cons _%g6721367361%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx65780%_))) - _%body6612266231%_ - _%hd6610966189%_ - _%hd6610666179%_ - _%hd6610366169%_ - _%hd6610066159%_ - _%hd6609766149%_ - _%hd6609466139%_) - (_%g6608466128%_ - _%g6608566132%_))))))) - (_%loop6611766211%_ _%target6611466205%_ '())) - (_%g6608466128%_ _%g6608566132%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6608466128%_ - _%g6608566132%_)))) - (_%g6608466128%_ _%g6608566132%_)))) - (_%g6608466128%_ _%g6608566132%_)))) - (_%g6608466128%_ _%g6608566132%_)))) - (_%g6608466128%_ _%g6608566132%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6608466128%_ - _%g6608566132%_)))) - (_%g6608466128%_ _%g6608566132%_)))) - (_%g6608466128%_ _%g6608566132%_))))) - (_%g6608366285%_ - (list _%Interface66077%_ - _%unchecked-method-name66079%_ + (gx#stx-source _%stx66908%_))) + _%body6724867356%_ + _%hd6723567315%_ + _%hd6723267305%_ + _%hd6722967295%_ + _%hd6722667285%_ + _%hd6722367275%_ + _%hd6722067265%_) + (_%g6721067254%_ + _%g6721167258%_))))))) + (_%loop6724367337%_ _%target6724067331%_ '())) + (_%g6721067254%_ _%g6721167258%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6721067254%_ + _%g6721167258%_)))) + (_%g6721067254%_ _%g6721167258%_)))) + (_%g6721067254%_ _%g6721167258%_)))) + (_%g6721067254%_ _%g6721167258%_)))) + (_%g6721067254%_ _%g6721167258%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6721067254%_ + _%g6721167258%_)))) + (_%g6721067254%_ _%g6721167258%_)))) + (_%g6721067254%_ _%g6721167258%_))))) + (_%g6720967409%_ + (list _%Interface67203%_ + _%unchecked-method-name67205%_ (gx#syntax-local-introduce 'self) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature66080%_) - _%signature66080%_ - _%return66081%_ - _%body66082%_)))))) - (let* ((_%g6578965828%_ - (lambda (_%g6579065824%_) + _%signature67206%_) + _%signature67206%_ + _%return67207%_ + _%body67208%_)))))) + (let* ((_%g6691766956%_ + (lambda (_%g6691866952%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6579065824%_))) - (_%g6578866073%_ - (lambda (_%g6579065832%_) - (if (gx#stx-pair? _%g6579065832%_) - (let ((_%e6579665835%_ (gx#syntax-e _%g6579065832%_))) - (let ((_%hd6579765839%_ + _%g6691866952%_))) + (_%g6691667199%_ + (lambda (_%g6691866960%_) + (if (gx#stx-pair? _%g6691866960%_) + (let ((_%e6692466963%_ (gx#syntax-e _%g6691866960%_))) + (let ((_%hd6692566967%_ (let () (declare (not safe)) - (##car _%e6579665835%_))) - (_%tl6579865842%_ + (##car _%e6692466963%_))) + (_%tl6692666970%_ (let () (declare (not safe)) - (##cdr _%e6579665835%_)))) - (if (gx#stx-pair? _%tl6579865842%_) - (let ((_%e6579965845%_ - (gx#syntax-e _%tl6579865842%_))) - (let ((_%hd6580065849%_ + (##cdr _%e6692466963%_)))) + (if (gx#stx-pair? _%tl6692666970%_) + (let ((_%e6692766973%_ + (gx#syntax-e _%tl6692666970%_))) + (let ((_%hd6692866977%_ (let () (declare (not safe)) - (##car _%e6579965845%_))) - (_%tl6580165852%_ + (##car _%e6692766973%_))) + (_%tl6692966980%_ (let () (declare (not safe)) - (##cdr _%e6579965845%_)))) - (if (gx#stx-pair? _%tl6580165852%_) - (let ((_%e6580265855%_ - (gx#syntax-e _%tl6580165852%_))) - (let ((_%hd6580365859%_ + (##cdr _%e6692766973%_)))) + (if (gx#stx-pair? _%tl6692966980%_) + (let ((_%e6693066983%_ + (gx#syntax-e _%tl6692966980%_))) + (let ((_%hd6693166987%_ (let () (declare (not safe)) - (##car _%e6580265855%_))) - (_%tl6580465862%_ + (##car _%e6693066983%_))) + (_%tl6693266990%_ (let () (declare (not safe)) - (##cdr _%e6580265855%_)))) - (if (gx#stx-pair? _%hd6580365859%_) - (let ((_%e6580565865%_ + (##cdr _%e6693066983%_)))) + (if (gx#stx-pair? _%hd6693166987%_) + (let ((_%e6693366993%_ (gx#syntax-e - _%hd6580365859%_))) - (let ((_%hd6580665869%_ + _%hd6693166987%_))) + (let ((_%hd6693466997%_ (let () (declare (not safe)) - (##car _%e6580565865%_))) - (_%tl6580765872%_ + (##car _%e6693366993%_))) + (_%tl6693567000%_ (let () (declare (not safe)) - (##cdr _%e6580565865%_)))) + (##cdr _%e6693366993%_)))) (if (gx#stx-pair? - _%tl6580765872%_) - (let ((_%e6580865875%_ + _%tl6693567000%_) + (let ((_%e6693667003%_ (gx#syntax-e - _%tl6580765872%_))) - (let ((_%hd6580965879%_ + _%tl6693567000%_))) + (let ((_%hd6693767007%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e6580865875%_))) - (_%tl6581065882%_ + (let () (declare (not safe)) (##car _%e6693667003%_))) + (_%tl6693867010%_ (let () (declare (not safe)) - (##cdr _%e6580865875%_)))) - (if (gx#stx-pair? _%tl6581065882%_) - (let ((_%e6581165885%_ (gx#syntax-e _%tl6581065882%_))) - (let ((_%hd6581265889%_ + (##cdr _%e6693667003%_)))) + (if (gx#stx-pair? _%tl6693867010%_) + (let ((_%e6693967013%_ (gx#syntax-e _%tl6693867010%_))) + (let ((_%hd6694067017%_ (let () (declare (not safe)) - (##car _%e6581165885%_))) - (_%tl6581365892%_ + (##car _%e6693967013%_))) + (_%tl6694167020%_ (let () (declare (not safe)) - (##cdr _%e6581165885%_)))) - (if (gx#stx-null? _%tl6581365892%_) - (if (gx#stx-pair/null? _%tl6580465862%_) - (let ((_g91949_ + (##cdr _%e6693967013%_)))) + (if (gx#stx-null? _%tl6694167020%_) + (if (gx#stx-pair/null? _%tl6693266990%_) + (let ((_g92812_ (gx#syntax-split-splice - _%tl6580465862%_ + _%tl6693266990%_ '0))) (begin - (let ((_g91950_ + (let ((_g92813_ (let () (declare (not safe)) - (if (##values? _g91949_) - (##values-length _g91949_) + (if (##values? _g92812_) + (##values-length _g92812_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91950_ 2))) + (##fx= _g92813_ 2))) (error "Context expects 2 values" - _g91950_))) - (let ((_%target6581465895%_ + _g92813_))) + (let ((_%target6694267023%_ (let () (declare (not safe)) - (##values-ref _g91949_ 0))) - (_%tl6581665898%_ + (##values-ref _g92812_ 0))) + (_%tl6694467026%_ (let () (declare (not safe)) - (##values-ref _g91949_ 1)))) - (if (gx#stx-null? _%tl6581665898%_) - (letrec ((_%loop6581765901%_ - (lambda (_%hd6581565905%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6582165908%_) - (if (gx#stx-pair? _%hd6581565905%_) - (let ((_%e6581865911%_ (gx#syntax-e _%hd6581565905%_))) - (let ((_%lp-hd6581965915%_ + (##values-ref _g92812_ 1)))) + (if (gx#stx-null? _%tl6694467026%_) + (letrec ((_%loop6694567029%_ + (lambda (_%hd6694367033%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6694967036%_) + (if (gx#stx-pair? _%hd6694367033%_) + (let ((_%e6694667038%_ (gx#syntax-e _%hd6694367033%_))) + (let ((_%lp-hd6694767042%_ (let () (declare (not safe)) - (##car _%e6581865911%_))) - (_%lp-tl6582065918%_ + (##car _%e6694667038%_))) + (_%lp-tl6694867045%_ (let () (declare (not safe)) - (##cdr _%e6581865911%_)))) - (_%loop6581765901%_ - _%lp-tl6582065918%_ - (cons _%lp-hd6581965915%_ _%body6582165908%_)))) - (let ((_%body6582265921%_ (reverse _%body6582165908%_))) - ((lambda (_%L65925%_ - _%L65927%_ - _%L65928%_ - _%L65929%_ - _%L65930%_) + (##cdr _%e6694667038%_)))) + (_%loop6694567029%_ + _%lp-tl6694867045%_ + (cons _%lp-hd6694767042%_ _%body6694967036%_)))) + (let ((_%body6695067048%_ (reverse _%body6694967036%_))) + ((lambda (_%g6691967051%_ + _%g6692067053%_ + _%g6692167054%_ + _%g6692267055%_ + _%g6692367056%_) (if (and (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L65930%_)) - (gx#identifier? _%L65929%_)) - (let* ((_%info65960%_ - (gx#syntax-local-value _%L65930%_)) - (_%interface-name65963%_ - (let ((__obj91695 _%info65960%_)) + _%g6692367056%_)) + (gx#identifier? _%g6692267055%_)) + (let* ((_%info67086%_ + (gx#syntax-local-value _%g6692367056%_)) + (_%interface-name67089%_ + (let ((__obj92548 _%info67086%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91695 + __obj92548 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91695 - '1 + __obj92548 + '2 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj91695 + __obj92548 'name)))) - (_%method-name65966%_ + (_%method-name67092%_ (gx#stx-identifier - _%L65930%_ - _%interface-name65963%_ + _%g6692367056%_ + _%interface-name67089%_ '"-" - _%L65929%_)) - (_%raw-method-name65969%_ + _%g6692267055%_)) + (_%raw-method-name67095%_ (gx#stx-identifier - _%L65930%_ + _%g6692367056%_ '"__" - _%method-name65966%_)) - (_%unchecked-method-name65972%_ + _%method-name67092%_)) + (_%unchecked-method-name67098%_ (gx#stx-identifier - _%L65930%_ + _%g6692367056%_ '"&" - _%method-name65966%_))) + _%method-name67092%_))) (|gerbil/core/contract~Interface[1]#check-signature!__%| '#f absent-value absent-value - _%stx65780%_ - _%L65928%_ - _%L65927%_) - (let* ((_%g6597765996%_ - (lambda (_%g6597865992%_) + _%stx66908%_ + _%g6692167054%_ + _%g6692067053%_) + (let* ((_%g6710367122%_ + (lambda (_%g6710467118%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6597865992%_))) - (_%g6597666061%_ - (lambda (_%g6597866000%_) - (if (gx#stx-pair? _%g6597866000%_) - (let ((_%e6598266003%_ + _%g6710467118%_))) + (_%g6710267187%_ + (lambda (_%g6710467126%_) + (if (gx#stx-pair? _%g6710467126%_) + (let ((_%e6710867129%_ (gx#syntax-e - _%g6597866000%_))) - (let ((_%hd6598366007%_ + _%g6710467126%_))) + (let ((_%hd6710967133%_ (let () (declare (not safe)) - (##car _%e6598266003%_))) - (_%tl6598466010%_ + (##car _%e6710867129%_))) + (_%tl6711067136%_ (let () (declare (not safe)) - (##cdr _%e6598266003%_)))) + (##cdr _%e6710867129%_)))) (if (gx#stx-pair? - _%tl6598466010%_) - (let ((_%e6598566013%_ + _%tl6711067136%_) + (let ((_%e6711167139%_ (gx#syntax-e - _%tl6598466010%_))) - (let ((_%hd6598666017%_ + _%tl6711067136%_))) + (let ((_%hd6711267143%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6598566013%_))) - (_%tl6598766020%_ - (let () (declare (not safe)) (##cdr _%e6598566013%_)))) - (if (gx#stx-pair? _%tl6598766020%_) - (let ((_%e6598866023%_ (gx#syntax-e _%tl6598766020%_))) - (let ((_%hd6598966027%_ + (##car _%e6711167139%_))) + (_%tl6711367146%_ + (let () (declare (not safe)) (##cdr _%e6711167139%_)))) + (if (gx#stx-pair? _%tl6711367146%_) + (let ((_%e6711467149%_ (gx#syntax-e _%tl6711367146%_))) + (let ((_%hd6711567153%_ (let () (declare (not safe)) - (##car _%e6598866023%_))) - (_%tl6599066030%_ + (##car _%e6711467149%_))) + (_%tl6711667156%_ (let () (declare (not safe)) - (##cdr _%e6598866023%_)))) - (if (gx#stx-null? _%tl6599066030%_) - ((lambda (_%L66033%_ _%L66035%_ _%L66036%_) + (##cdr _%e6711467149%_)))) + (if (gx#stx-null? _%tl6711667156%_) + ((lambda (_%g6710567159%_ + _%g6710667161%_ + _%g6710767162%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L66036%_ - (cons _%L66035%_ - (cons _%L66033%_ '()))))) - _%hd6598966027%_ - _%hd6598666017%_ - _%hd6598366007%_) - (_%g6597765996%_ _%g6597866000%_)))) - (_%g6597765996%_ _%g6597866000%_)))) - (_%g6597765996%_ _%g6597866000%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6597765996%_ - _%g6597866000%_))))) - (_%g6597666061%_ - (list (_%make-checked-method-def65785%_ - _%L65930%_ - _%method-name65966%_ - _%raw-method-name65969%_ - _%unchecked-method-name65972%_ - _%L65928%_ - _%L65927%_) - (_%make-raw-method-def65786%_ - _%L65930%_ - _%raw-method-name65969%_ - _%unchecked-method-name65972%_ - _%L65928%_ - _%L65927%_) - (_%make-unchecked-method-def65787%_ - _%L65930%_ - _%unchecked-method-name65972%_ - _%L65928%_ - _%L65927%_ - (foldr (lambda (_%g6606466067%_ - _%g6606566070%_) - (cons _%g6606466067%_ - _%g6606566070%_)) + (cons _%g6710767162%_ + (cons _%g6710667161%_ + (cons _%g6710567159%_ + '()))))) + _%hd6711567153%_ + _%hd6711267143%_ + _%hd6710967133%_) + (_%g6710367122%_ _%g6710467126%_)))) + (_%g6710367122%_ _%g6710467126%_)))) + (_%g6710367122%_ _%g6710467126%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6710367122%_ + _%g6710467126%_))))) + (_%g6710267187%_ + (list (_%make-checked-method-def66913%_ + _%g6692367056%_ + _%method-name67092%_ + _%raw-method-name67095%_ + _%unchecked-method-name67098%_ + _%g6692167054%_ + _%g6692067053%_) + (_%make-raw-method-def66914%_ + _%g6692367056%_ + _%raw-method-name67095%_ + _%unchecked-method-name67098%_ + _%g6692167054%_ + _%g6692067053%_) + (_%make-unchecked-method-def66915%_ + _%g6692367056%_ + _%unchecked-method-name67098%_ + _%g6692167054%_ + _%g6692067053%_ + (foldr (lambda (_%g6719067193%_ + _%g6719167196%_) + (cons _%g6719067193%_ + _%g6719167196%_)) '() - _%L65925%_)))))) - (_%g6578965828%_ _%g6579065832%_))) - _%body6582265921%_ - _%hd6581265889%_ - _%hd6580965879%_ - _%hd6580665869%_ - _%hd6580065849%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6581765901%_ - _%target6581465895%_ + _%g6691967051%_)))))) + (_%g6691766956%_ _%g6691866960%_))) + _%body6695067048%_ + _%hd6694067017%_ + _%hd6693767007%_ + _%hd6693466997%_ + _%hd6692866977%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6694567029%_ + _%target6694267023%_ '())) - (_%g6578965828%_ - _%g6579065832%_))))) - (_%g6578965828%_ _%g6579065832%_)) - (_%g6578965828%_ _%g6579065832%_)))) - (_%g6578965828%_ _%g6579065832%_)))) - (_%g6578965828%_ _%g6579065832%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6578965828%_ - _%g6579065832%_)))) - (_%g6578965828%_ _%g6579065832%_)))) - (_%g6578965828%_ _%g6579065832%_)))) - (_%g6578965828%_ _%g6579065832%_))))) - (_%g6578866073%_ _%stx65780%_))))) + (_%g6691766956%_ + _%g6691866960%_))))) + (_%g6691766956%_ _%g6691866960%_)) + (_%g6691766956%_ _%g6691866960%_)))) + (_%g6691766956%_ _%g6691866960%_)))) + (_%g6691766956%_ _%g6691866960%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6691766956%_ + _%g6691866960%_)))) + (_%g6691766956%_ _%g6691866960%_)))) + (_%g6691766956%_ _%g6691866960%_)))) + (_%g6691766956%_ _%g6691866960%_))))) + (_%g6691667199%_ _%stx66908%_))))) (define |gerbil/core/contract~Interface[:0:]#with-interface-method| - (lambda (_%stx66776%_) - (let* ((_%g6677966822%_ - (lambda (_%g6678066818%_) + (lambda (_%stx67912%_) + (let* ((_%g6791567958%_ + (lambda (_%g6791667954%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6678066818%_))) - (_%g6677867043%_ - (lambda (_%g6678066826%_) - (if (gx#stx-pair? _%g6678066826%_) - (let ((_%e6678766829%_ (gx#syntax-e _%g6678066826%_))) - (let ((_%hd6678866833%_ + _%g6791667954%_))) + (_%g6791468177%_ + (lambda (_%g6791667962%_) + (if (gx#stx-pair? _%g6791667962%_) + (let ((_%e6792367965%_ (gx#syntax-e _%g6791667962%_))) + (let ((_%hd6792467969%_ (let () (declare (not safe)) - (##car _%e6678766829%_))) - (_%tl6678966836%_ + (##car _%e6792367965%_))) + (_%tl6792567972%_ (let () (declare (not safe)) - (##cdr _%e6678766829%_)))) - (if (gx#stx-pair? _%tl6678966836%_) - (let ((_%e6679066839%_ - (gx#syntax-e _%tl6678966836%_))) - (let ((_%hd6679166843%_ + (##cdr _%e6792367965%_)))) + (if (gx#stx-pair? _%tl6792567972%_) + (let ((_%e6792667975%_ + (gx#syntax-e _%tl6792567972%_))) + (let ((_%hd6792767979%_ (let () (declare (not safe)) - (##car _%e6679066839%_))) - (_%tl6679266846%_ + (##car _%e6792667975%_))) + (_%tl6792867982%_ (let () (declare (not safe)) - (##cdr _%e6679066839%_)))) - (if (gx#stx-pair? _%tl6679266846%_) - (let ((_%e6679366849%_ - (gx#syntax-e _%tl6679266846%_))) - (let ((_%hd6679466853%_ + (##cdr _%e6792667975%_)))) + (if (gx#stx-pair? _%tl6792867982%_) + (let ((_%e6792967985%_ + (gx#syntax-e _%tl6792867982%_))) + (let ((_%hd6793067989%_ (let () (declare (not safe)) - (##car _%e6679366849%_))) - (_%tl6679566856%_ + (##car _%e6792967985%_))) + (_%tl6793167992%_ (let () (declare (not safe)) - (##cdr _%e6679366849%_)))) - (if (gx#stx-pair? _%hd6679466853%_) - (let ((_%e6679666859%_ + (##cdr _%e6792967985%_)))) + (if (gx#stx-pair? _%hd6793067989%_) + (let ((_%e6793267995%_ (gx#syntax-e - _%hd6679466853%_))) - (let ((_%hd6679766863%_ + _%hd6793067989%_))) + (let ((_%hd6793367999%_ (let () (declare (not safe)) - (##car _%e6679666859%_))) - (_%tl6679866866%_ + (##car _%e6793267995%_))) + (_%tl6793468002%_ (let () (declare (not safe)) - (##cdr _%e6679666859%_)))) + (##cdr _%e6793267995%_)))) (if (gx#stx-pair? - _%tl6679866866%_) - (let ((_%e6679966869%_ + _%tl6793468002%_) + (let ((_%e6793568005%_ (gx#syntax-e - _%tl6679866866%_))) - (let ((_%hd6680066873%_ + _%tl6793468002%_))) + (let ((_%hd6793668009%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6679966869%_))) - (_%tl6680166876%_ - (let () (declare (not safe)) (##cdr _%e6679966869%_)))) - (if (gx#stx-pair? _%tl6680166876%_) - (let ((_%e6680266879%_ (gx#syntax-e _%tl6680166876%_))) - (let ((_%hd6680366883%_ + (##car _%e6793568005%_))) + (_%tl6793768012%_ + (let () (declare (not safe)) (##cdr _%e6793568005%_)))) + (if (gx#stx-pair? _%tl6793768012%_) + (let ((_%e6793868015%_ (gx#syntax-e _%tl6793768012%_))) + (let ((_%hd6793968019%_ (let () (declare (not safe)) - (##car _%e6680266879%_))) - (_%tl6680466886%_ + (##car _%e6793868015%_))) + (_%tl6794068022%_ (let () (declare (not safe)) - (##cdr _%e6680266879%_)))) - (if (gx#stx-pair? _%tl6680466886%_) - (let ((_%e6680566889%_ - (gx#syntax-e _%tl6680466886%_))) - (let ((_%hd6680666893%_ + (##cdr _%e6793868015%_)))) + (if (gx#stx-pair? _%tl6794068022%_) + (let ((_%e6794168025%_ + (gx#syntax-e _%tl6794068022%_))) + (let ((_%hd6794268029%_ (let () (declare (not safe)) - (##car _%e6680566889%_))) - (_%tl6680766896%_ + (##car _%e6794168025%_))) + (_%tl6794368032%_ (let () (declare (not safe)) - (##cdr _%e6680566889%_)))) - (if (gx#stx-null? _%tl6680766896%_) - (if (gx#stx-pair/null? _%tl6679566856%_) - (let ((_g91951_ + (##cdr _%e6794168025%_)))) + (if (gx#stx-null? _%tl6794368032%_) + (if (gx#stx-pair/null? _%tl6793167992%_) + (let ((_g92814_ (gx#syntax-split-splice - _%tl6679566856%_ + _%tl6793167992%_ '0))) (begin - (let ((_g91952_ + (let ((_g92815_ (let () (declare (not safe)) - (if (##values? _g91951_) + (if (##values? _g92814_) (##values-length - _g91951_) + _g92814_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91952_ 2))) + (##fx= _g92815_ 2))) (error "Context expects 2 values" - _g91952_))) - (let ((_%target6680866899%_ + _g92815_))) + (let ((_%target6794468035%_ (let () (declare (not safe)) (##values-ref - _g91951_ + _g92814_ 0))) - (_%tl6681066902%_ + (_%tl6794668038%_ (let () (declare (not safe)) (##values-ref - _g91951_ + _g92814_ 1)))) (if (gx#stx-null? - _%tl6681066902%_) - (letrec ((_%loop6681166905%_ - (lambda (_%hd6680966909%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6681566912%_) - (if (gx#stx-pair? _%hd6680966909%_) - (let ((_%e6681266915%_ - (gx#syntax-e _%hd6680966909%_))) - (let ((_%lp-hd6681366919%_ + _%tl6794668038%_) + (letrec ((_%loop6794768041%_ + (lambda (_%hd6794568045%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6795168048%_) + (if (gx#stx-pair? _%hd6794568045%_) + (let ((_%e6794868050%_ + (gx#syntax-e _%hd6794568045%_))) + (let ((_%lp-hd6794968054%_ (let () (declare (not safe)) - (##car _%e6681266915%_))) - (_%lp-tl6681466922%_ + (##car _%e6794868050%_))) + (_%lp-tl6795068057%_ (let () (declare (not safe)) - (##cdr _%e6681266915%_)))) - (_%loop6681166905%_ - _%lp-tl6681466922%_ - (cons _%lp-hd6681366919%_ - _%body6681566912%_)))) - (let ((_%body6681666925%_ - (reverse _%body6681566912%_))) - ((lambda (_%L66929%_ - _%L66931%_ - _%L66932%_ - _%L66933%_ - _%L66934%_ - _%L66935%_) - (let* ((_%checked?66967%_ - (if (gx#stx-e _%L66931%_) '#t '#f)) - (_%g6697066985%_ - (lambda (_%g6697166981%_) + (##cdr _%e6794868050%_)))) + (_%loop6794768041%_ + _%lp-tl6795068057%_ + (cons _%lp-hd6794968054%_ + _%body6795168048%_)))) + (let ((_%body6795268060%_ + (reverse _%body6795168048%_))) + ((lambda (_%g6791768063%_ + _%g6791868065%_ + _%g6791968066%_ + _%g6792068067%_ + _%g6792168068%_ + _%g6792268069%_) + (let* ((_%checked?68101%_ + (if (gx#stx-e _%g6791868065%_) + '#t + '#f)) + (_%g6810468119%_ + (lambda (_%g6810568115%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6697166981%_))) - (_%g6696967039%_ - (lambda (_%g6697166989%_) - (if (gx#stx-pair? _%g6697166989%_) - (let ((_%e6697466992%_ + _%g6810568115%_))) + (_%g6810368173%_ + (lambda (_%g6810568123%_) + (if (gx#stx-pair? _%g6810568123%_) + (let ((_%e6810868126%_ (gx#syntax-e - _%g6697166989%_))) - (let ((_%hd6697566996%_ + _%g6810568123%_))) + (let ((_%hd6810968130%_ (let () (declare (not safe)) - (##car _%e6697466992%_))) - (_%tl6697666999%_ + (##car _%e6810868126%_))) + (_%tl6811068133%_ (let () (declare (not safe)) - (##cdr _%e6697466992%_)))) + (##cdr _%e6810868126%_)))) (if (gx#stx-pair? - _%tl6697666999%_) - (let ((_%e6697767002%_ + _%tl6811068133%_) + (let ((_%e6811168136%_ (gx#syntax-e - _%tl6697666999%_))) - (let ((_%hd6697867006%_ + _%tl6811068133%_))) + (let ((_%hd6811268140%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6697767002%_))) - (_%tl6697967009%_ - (let () (declare (not safe)) (##cdr _%e6697767002%_)))) - (if (gx#stx-null? _%tl6697967009%_) - ((lambda (_%L67012%_ _%L67014%_) + (##car _%e6811168136%_))) + (_%tl6811368143%_ + (let () (declare (not safe)) (##cdr _%e6811168136%_)))) + (if (gx#stx-null? _%tl6811368143%_) + ((lambda (_%g6810668146%_ _%g6810768148%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type.signature) - _%L67014%_) + _%g6810768148%_) (cons (cons (gx#datum->syntax '#f 'using) - (cons _%L67012%_ - (foldr (lambda (_%g6703067033%_ + (cons _%g6810668146%_ + (foldr (lambda (_%g6816468167%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6703167036%_) - (cons _%g6703067033%_ _%g6703167036%_)) + _%g6816568170%_) + (cons _%g6816468167%_ _%g6816568170%_)) '() - _%L66929%_))) + _%g6791768063%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd6697867006%_ - _%hd6697566996%_) - (_%g6697066985%_ _%g6697166989%_)))) - (_%g6697066985%_ _%g6697166989%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6697066985%_ - _%g6697166989%_))))) - (_%g6696967039%_ + _%hd6811268140%_ + _%hd6810968130%_) + (_%g6810468119%_ _%g6810568123%_)))) + (_%g6810468119%_ _%g6810568123%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6810468119%_ + _%g6810568123%_))))) + (_%g6810368173%_ (list (|gerbil/core/contract~Interface[1]#make-interface-method-lambda-signature| - _%stx66776%_ - _%L66935%_ - _%L66934%_ - _%L66933%_ - _%L66932%_ - _%L66931%_) + _%stx67912%_ + _%g6792268069%_ + _%g6792168068%_ + _%g6792068067%_ + _%g6791968066%_ + _%g6791868065%_) (|gerbil/core/contract~Interface[1]#make-interface-method-contract| - _%stx66776%_ - _%L66935%_ - _%L66934%_ - _%L66933%_ - _%checked?66967%_))))) - _%body6681666925%_ - _%hd6680666893%_ - _%hd6680366883%_ - _%hd6680066873%_ - _%hd6679766863%_ - _%hd6679166843%_)))))) - (_%loop6681166905%_ _%target6680866899%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6677966822%_ - _%g6678066826%_))))) - (_%g6677966822%_ _%g6678066826%_)) - (_%g6677966822%_ _%g6678066826%_)))) - (_%g6677966822%_ _%g6678066826%_)))) - (_%g6677966822%_ _%g6678066826%_)))) - (_%g6677966822%_ _%g6678066826%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6677966822%_ - _%g6678066826%_)))) - (_%g6677966822%_ _%g6678066826%_)))) - (_%g6677966822%_ _%g6678066826%_)))) - (_%g6677966822%_ _%g6678066826%_))))) - (_%g6677867043%_ _%stx66776%_)))) + _%stx67912%_ + _%g6792268069%_ + _%g6792168068%_ + _%g6792068067%_ + _%checked?68101%_))))) + _%body6795268060%_ + _%hd6794268029%_ + _%hd6793968019%_ + _%hd6793668009%_ + _%hd6793367999%_ + _%hd6792767979%_)))))) + (_%loop6794768041%_ _%target6794468035%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6791567958%_ + _%g6791667962%_))))) + (_%g6791567958%_ _%g6791667962%_)) + (_%g6791567958%_ _%g6791667962%_)))) + (_%g6791567958%_ _%g6791667962%_)))) + (_%g6791567958%_ _%g6791667962%_)))) + (_%g6791567958%_ _%g6791667962%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6791567958%_ + _%g6791667962%_)))) + (_%g6791567958%_ _%g6791667962%_)))) + (_%g6791567958%_ _%g6791667962%_)))) + (_%g6791567958%_ _%g6791667962%_))))) + (_%g6791468177%_ _%stx67912%_)))) (define |gerbil/core/contract~Interface[:0:]#with-interface-checked-method| - (lambda (_%$stx67048%_) - (let* ((_%g6705267095%_ - (lambda (_%g6705367091%_) + (lambda (_%$stx68182%_) + (let* ((_%g6818668229%_ + (lambda (_%g6818768225%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6705367091%_))) - (_%g6705167248%_ - (lambda (_%g6705367099%_) - (if (gx#stx-pair? _%g6705367099%_) - (let ((_%e6706067102%_ (gx#syntax-e _%g6705367099%_))) - (let ((_%hd6706167106%_ + _%g6818768225%_))) + (_%g6818568380%_ + (lambda (_%g6818768233%_) + (if (gx#stx-pair? _%g6818768233%_) + (let ((_%e6819468236%_ (gx#syntax-e _%g6818768233%_))) + (let ((_%hd6819568240%_ (let () (declare (not safe)) - (##car _%e6706067102%_))) - (_%tl6706267109%_ + (##car _%e6819468236%_))) + (_%tl6819668243%_ (let () (declare (not safe)) - (##cdr _%e6706067102%_)))) - (if (gx#stx-pair? _%tl6706267109%_) - (let ((_%e6706367112%_ - (gx#syntax-e _%tl6706267109%_))) - (let ((_%hd6706467116%_ + (##cdr _%e6819468236%_)))) + (if (gx#stx-pair? _%tl6819668243%_) + (let ((_%e6819768246%_ + (gx#syntax-e _%tl6819668243%_))) + (let ((_%hd6819868250%_ (let () (declare (not safe)) - (##car _%e6706367112%_))) - (_%tl6706567119%_ + (##car _%e6819768246%_))) + (_%tl6819968253%_ (let () (declare (not safe)) - (##cdr _%e6706367112%_)))) - (if (gx#stx-pair? _%tl6706567119%_) - (let ((_%e6706667122%_ - (gx#syntax-e _%tl6706567119%_))) - (let ((_%hd6706767126%_ + (##cdr _%e6819768246%_)))) + (if (gx#stx-pair? _%tl6819968253%_) + (let ((_%e6820068256%_ + (gx#syntax-e _%tl6819968253%_))) + (let ((_%hd6820168260%_ (let () (declare (not safe)) - (##car _%e6706667122%_))) - (_%tl6706867129%_ + (##car _%e6820068256%_))) + (_%tl6820268263%_ (let () (declare (not safe)) - (##cdr _%e6706667122%_)))) - (if (gx#stx-pair? _%hd6706767126%_) - (let ((_%e6706967132%_ + (##cdr _%e6820068256%_)))) + (if (gx#stx-pair? _%hd6820168260%_) + (let ((_%e6820368266%_ (gx#syntax-e - _%hd6706767126%_))) - (let ((_%hd6707067136%_ + _%hd6820168260%_))) + (let ((_%hd6820468270%_ (let () (declare (not safe)) - (##car _%e6706967132%_))) - (_%tl6707167139%_ + (##car _%e6820368266%_))) + (_%tl6820568273%_ (let () (declare (not safe)) - (##cdr _%e6706967132%_)))) + (##cdr _%e6820368266%_)))) (if (gx#stx-pair? - _%tl6707167139%_) - (let ((_%e6707267142%_ + _%tl6820568273%_) + (let ((_%e6820668276%_ (gx#syntax-e - _%tl6707167139%_))) - (let ((_%hd6707367146%_ + _%tl6820568273%_))) + (let ((_%hd6820768280%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6707267142%_))) - (_%tl6707467149%_ - (let () (declare (not safe)) (##cdr _%e6707267142%_)))) - (if (gx#stx-pair? _%tl6707467149%_) - (let ((_%e6707567152%_ (gx#syntax-e _%tl6707467149%_))) - (let ((_%hd6707667156%_ + (##car _%e6820668276%_))) + (_%tl6820868283%_ + (let () (declare (not safe)) (##cdr _%e6820668276%_)))) + (if (gx#stx-pair? _%tl6820868283%_) + (let ((_%e6820968286%_ (gx#syntax-e _%tl6820868283%_))) + (let ((_%hd6821068290%_ (let () (declare (not safe)) - (##car _%e6707567152%_))) - (_%tl6707767159%_ + (##car _%e6820968286%_))) + (_%tl6821168293%_ (let () (declare (not safe)) - (##cdr _%e6707567152%_)))) - (if (gx#stx-pair? _%tl6707767159%_) - (let ((_%e6707867162%_ - (gx#syntax-e _%tl6707767159%_))) - (let ((_%hd6707967166%_ + (##cdr _%e6820968286%_)))) + (if (gx#stx-pair? _%tl6821168293%_) + (let ((_%e6821268296%_ + (gx#syntax-e _%tl6821168293%_))) + (let ((_%hd6821368300%_ (let () (declare (not safe)) - (##car _%e6707867162%_))) - (_%tl6708067169%_ + (##car _%e6821268296%_))) + (_%tl6821468303%_ (let () (declare (not safe)) - (##cdr _%e6707867162%_)))) - (if (gx#stx-null? _%tl6708067169%_) - (if (gx#stx-pair/null? _%tl6706867129%_) - (let ((_g91953_ + (##cdr _%e6821268296%_)))) + (if (gx#stx-null? _%tl6821468303%_) + (if (gx#stx-pair/null? _%tl6820268263%_) + (let ((_g92816_ (gx#syntax-split-splice - _%tl6706867129%_ + _%tl6820268263%_ '0))) (begin - (let ((_g91954_ + (let ((_g92817_ (let () (declare (not safe)) - (if (##values? _g91953_) + (if (##values? _g92816_) (##values-length - _g91953_) + _g92816_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91954_ 2))) + (##fx= _g92817_ 2))) (error "Context expects 2 values" - _g91954_))) - (let ((_%target6708167172%_ + _g92817_))) + (let ((_%target6821568306%_ (let () (declare (not safe)) (##values-ref - _g91953_ + _g92816_ 0))) - (_%tl6708367175%_ + (_%tl6821768309%_ (let () (declare (not safe)) (##values-ref - _g91953_ + _g92816_ 1)))) (if (gx#stx-null? - _%tl6708367175%_) - (letrec ((_%loop6708467178%_ - (lambda (_%hd6708267182%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6708867185%_) - (if (gx#stx-pair? _%hd6708267182%_) - (let ((_%e6708567188%_ - (gx#syntax-e _%hd6708267182%_))) - (let ((_%lp-hd6708667192%_ + _%tl6821768309%_) + (letrec ((_%loop6821868312%_ + (lambda (_%hd6821668316%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6822268319%_) + (if (gx#stx-pair? _%hd6821668316%_) + (let ((_%e6821968321%_ + (gx#syntax-e _%hd6821668316%_))) + (let ((_%lp-hd6822068325%_ (let () (declare (not safe)) - (##car _%e6708567188%_))) - (_%lp-tl6708767195%_ + (##car _%e6821968321%_))) + (_%lp-tl6822168328%_ (let () (declare (not safe)) - (##cdr _%e6708567188%_)))) - (_%loop6708467178%_ - _%lp-tl6708767195%_ - (cons _%lp-hd6708667192%_ - _%body6708867185%_)))) - (let ((_%body6708967198%_ - (reverse _%body6708867185%_))) - ((lambda (_%L67202%_ - _%L67204%_ - _%L67205%_ - _%L67206%_ - _%L67207%_ - _%L67208%_) + (##cdr _%e6821968321%_)))) + (_%loop6821868312%_ + _%lp-tl6822168328%_ + (cons _%lp-hd6822068325%_ + _%body6822268319%_)))) + (let ((_%body6822368331%_ + (reverse _%body6822268319%_))) + ((lambda (_%g6818868334%_ + _%g6818968336%_ + _%g6819068337%_ + _%g6819168338%_ + _%g6819268339%_ + _%g6819368340%_) (cons (gx#datum->syntax '#f 'with-interface-method) - (cons _%L67208%_ - (cons (cons _%L67207%_ - (cons _%L67206%_ - (cons _%L67205%_ + (cons _%g6819368340%_ + (cons (cons _%g6819268339%_ + (cons _%g6819168338%_ + (cons _%g6819068337%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L67204%_ '())))) + (cons _%g6818968336%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g6723967242%_ + (foldr (lambda (_%g6837168374%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6724067245%_) - (cons _%g6723967242%_ _%g6724067245%_)) + _%g6837268377%_) + (cons _%g6837168374%_ _%g6837268377%_)) '() - _%L67202%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body6708967198%_ - _%hd6707967166%_ - _%hd6707667156%_ - _%hd6707367146%_ - _%hd6707067136%_ - _%hd6706467116%_)))))) - (_%loop6708467178%_ _%target6708167172%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6705267095%_ - _%g6705367099%_))))) - (_%g6705267095%_ _%g6705367099%_)) - (_%g6705267095%_ _%g6705367099%_)))) - (_%g6705267095%_ _%g6705367099%_)))) - (_%g6705267095%_ _%g6705367099%_)))) - (_%g6705267095%_ _%g6705367099%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6705267095%_ - _%g6705367099%_)))) - (_%g6705267095%_ _%g6705367099%_)))) - (_%g6705267095%_ _%g6705367099%_)))) - (_%g6705267095%_ _%g6705367099%_))))) - (_%g6705167248%_ _%$stx67048%_)))) + _%g6818868334%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%body6822368331%_ + _%hd6821368300%_ + _%hd6821068290%_ + _%hd6820768280%_ + _%hd6820468270%_ + _%hd6819868250%_)))))) + (_%loop6821868312%_ _%target6821568306%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6818668229%_ + _%g6818768233%_))))) + (_%g6818668229%_ _%g6818768233%_)) + (_%g6818668229%_ _%g6818768233%_)))) + (_%g6818668229%_ _%g6818768233%_)))) + (_%g6818668229%_ _%g6818768233%_)))) + (_%g6818668229%_ _%g6818768233%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6818668229%_ + _%g6818768233%_)))) + (_%g6818668229%_ _%g6818768233%_)))) + (_%g6818668229%_ _%g6818768233%_)))) + (_%g6818668229%_ _%g6818768233%_))))) + (_%g6818568380%_ _%$stx68182%_)))) (define |gerbil/core/contract~Interface[:0:]#with-interface-unchecked-method| - (lambda (_%$stx67253%_) - (let* ((_%g6725767296%_ - (lambda (_%g6725867292%_) + (lambda (_%$stx68385%_) + (let* ((_%g6838968428%_ + (lambda (_%g6839068424%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6725867292%_))) - (_%g6725667435%_ - (lambda (_%g6725867300%_) - (if (gx#stx-pair? _%g6725867300%_) - (let ((_%e6726467303%_ (gx#syntax-e _%g6725867300%_))) - (let ((_%hd6726567307%_ + _%g6839068424%_))) + (_%g6838868565%_ + (lambda (_%g6839068432%_) + (if (gx#stx-pair? _%g6839068432%_) + (let ((_%e6839668435%_ (gx#syntax-e _%g6839068432%_))) + (let ((_%hd6839768439%_ (let () (declare (not safe)) - (##car _%e6726467303%_))) - (_%tl6726667310%_ + (##car _%e6839668435%_))) + (_%tl6839868442%_ (let () (declare (not safe)) - (##cdr _%e6726467303%_)))) - (if (gx#stx-pair? _%tl6726667310%_) - (let ((_%e6726767313%_ - (gx#syntax-e _%tl6726667310%_))) - (let ((_%hd6726867317%_ + (##cdr _%e6839668435%_)))) + (if (gx#stx-pair? _%tl6839868442%_) + (let ((_%e6839968445%_ + (gx#syntax-e _%tl6839868442%_))) + (let ((_%hd6840068449%_ (let () (declare (not safe)) - (##car _%e6726767313%_))) - (_%tl6726967320%_ + (##car _%e6839968445%_))) + (_%tl6840168452%_ (let () (declare (not safe)) - (##cdr _%e6726767313%_)))) - (if (gx#stx-pair? _%tl6726967320%_) - (let ((_%e6727067323%_ - (gx#syntax-e _%tl6726967320%_))) - (let ((_%hd6727167327%_ + (##cdr _%e6839968445%_)))) + (if (gx#stx-pair? _%tl6840168452%_) + (let ((_%e6840268455%_ + (gx#syntax-e _%tl6840168452%_))) + (let ((_%hd6840368459%_ (let () (declare (not safe)) - (##car _%e6727067323%_))) - (_%tl6727267330%_ + (##car _%e6840268455%_))) + (_%tl6840468462%_ (let () (declare (not safe)) - (##cdr _%e6727067323%_)))) - (if (gx#stx-pair? _%hd6727167327%_) - (let ((_%e6727367333%_ + (##cdr _%e6840268455%_)))) + (if (gx#stx-pair? _%hd6840368459%_) + (let ((_%e6840568465%_ (gx#syntax-e - _%hd6727167327%_))) - (let ((_%hd6727467337%_ + _%hd6840368459%_))) + (let ((_%hd6840668469%_ (let () (declare (not safe)) - (##car _%e6727367333%_))) - (_%tl6727567340%_ + (##car _%e6840568465%_))) + (_%tl6840768472%_ (let () (declare (not safe)) - (##cdr _%e6727367333%_)))) + (##cdr _%e6840568465%_)))) (if (gx#stx-pair? - _%tl6727567340%_) - (let ((_%e6727667343%_ + _%tl6840768472%_) + (let ((_%e6840868475%_ (gx#syntax-e - _%tl6727567340%_))) - (let ((_%hd6727767347%_ + _%tl6840768472%_))) + (let ((_%hd6840968479%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6727667343%_))) - (_%tl6727867350%_ - (let () (declare (not safe)) (##cdr _%e6727667343%_)))) - (if (gx#stx-pair? _%tl6727867350%_) - (let ((_%e6727967353%_ (gx#syntax-e _%tl6727867350%_))) - (let ((_%hd6728067357%_ + (##car _%e6840868475%_))) + (_%tl6841068482%_ + (let () (declare (not safe)) (##cdr _%e6840868475%_)))) + (if (gx#stx-pair? _%tl6841068482%_) + (let ((_%e6841168485%_ (gx#syntax-e _%tl6841068482%_))) + (let ((_%hd6841268489%_ (let () (declare (not safe)) - (##car _%e6727967353%_))) - (_%tl6728167360%_ + (##car _%e6841168485%_))) + (_%tl6841368492%_ (let () (declare (not safe)) - (##cdr _%e6727967353%_)))) - (if (gx#stx-null? _%tl6728167360%_) - (if (gx#stx-pair/null? _%tl6727267330%_) - (let ((_g91955_ + (##cdr _%e6841168485%_)))) + (if (gx#stx-null? _%tl6841368492%_) + (if (gx#stx-pair/null? _%tl6840468462%_) + (let ((_g92818_ (gx#syntax-split-splice - _%tl6727267330%_ + _%tl6840468462%_ '0))) (begin - (let ((_g91956_ + (let ((_g92819_ (let () (declare (not safe)) - (if (##values? _g91955_) - (##values-length _g91955_) + (if (##values? _g92818_) + (##values-length _g92818_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91956_ 2))) + (##fx= _g92819_ 2))) (error "Context expects 2 values" - _g91956_))) - (let ((_%target6728267363%_ + _g92819_))) + (let ((_%target6841468495%_ (let () (declare (not safe)) - (##values-ref _g91955_ 0))) - (_%tl6728467366%_ + (##values-ref _g92818_ 0))) + (_%tl6841668498%_ (let () (declare (not safe)) - (##values-ref _g91955_ 1)))) - (if (gx#stx-null? _%tl6728467366%_) - (letrec ((_%loop6728567369%_ - (lambda (_%hd6728367373%_ - _%body6728967376%_) + (##values-ref _g92818_ 1)))) + (if (gx#stx-null? _%tl6841668498%_) + (letrec ((_%loop6841768501%_ + (lambda (_%hd6841568505%_ + _%body6842168508%_) (if (gx#stx-pair? - _%hd6728367373%_) - (let ((_%e6728667379%_ + _%hd6841568505%_) + (let ((_%e6841868510%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6728367373%_))) - (let ((_%lp-hd6728767383%_ + (gx#syntax-e _%hd6841568505%_))) + (let ((_%lp-hd6841968514%_ (let () (declare (not safe)) - (##car _%e6728667379%_))) - (_%lp-tl6728867386%_ + (##car _%e6841868510%_))) + (_%lp-tl6842068517%_ (let () (declare (not safe)) - (##cdr _%e6728667379%_)))) - (_%loop6728567369%_ - _%lp-tl6728867386%_ - (cons _%lp-hd6728767383%_ _%body6728967376%_)))) - (let ((_%body6729067389%_ (reverse _%body6728967376%_))) - ((lambda (_%L67393%_ - _%L67395%_ - _%L67396%_ - _%L67397%_ - _%L67398%_) + (##cdr _%e6841868510%_)))) + (_%loop6841768501%_ + _%lp-tl6842068517%_ + (cons _%lp-hd6841968514%_ _%body6842168508%_)))) + (let ((_%body6842268520%_ (reverse _%body6842168508%_))) + ((lambda (_%g6839168523%_ + _%g6839268525%_ + _%g6839368526%_ + _%g6839468527%_ + _%g6839568528%_) (cons (gx#datum->syntax '#f 'with-interface-method) - (cons _%L67398%_ - (cons (cons _%L67397%_ - (cons _%L67396%_ - (cons _%L67395%_ + (cons _%g6839568528%_ + (cons (cons _%g6839468527%_ + (cons _%g6839368526%_ + (cons _%g6839268525%_ (cons '#f '())))) - (foldr (lambda (_%g6742667429%_ - _%g6742767432%_) - (cons _%g6742667429%_ - _%g6742767432%_)) + (foldr (lambda (_%g6855668559%_ + _%g6855768562%_) + (cons _%g6855668559%_ + _%g6855768562%_)) '() - _%L67393%_))))) - _%body6729067389%_ - _%hd6728067357%_ - _%hd6727767347%_ - _%hd6727467337%_ - _%hd6726867317%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6728567369%_ - _%target6728267363%_ + _%g6839168523%_))))) + _%body6842268520%_ + _%hd6841268489%_ + _%hd6840968479%_ + _%hd6840668469%_ + _%hd6840068449%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6841768501%_ + _%target6841468495%_ '())) - (_%g6725767296%_ - _%g6725867300%_))))) - (_%g6725767296%_ _%g6725867300%_)) - (_%g6725767296%_ _%g6725867300%_)))) - (_%g6725767296%_ _%g6725867300%_)))) - (_%g6725767296%_ _%g6725867300%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6725767296%_ - _%g6725867300%_)))) - (_%g6725767296%_ _%g6725867300%_)))) - (_%g6725767296%_ _%g6725867300%_)))) - (_%g6725767296%_ _%g6725867300%_))))) - (_%g6725667435%_ _%$stx67253%_)))) + (_%g6838968428%_ + _%g6839068432%_))))) + (_%g6838968428%_ _%g6839068432%_)) + (_%g6838968428%_ _%g6839068432%_)))) + (_%g6838968428%_ _%g6839068432%_)))) + (_%g6838968428%_ _%g6839068432%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6838968428%_ + _%g6839068432%_)))) + (_%g6838968428%_ _%g6839068432%_)))) + (_%g6838968428%_ _%g6839068432%_)))) + (_%g6838968428%_ _%g6839068432%_))))) + (_%g6838868565%_ _%$stx68385%_)))) (define |gerbil/core/contract~Interface[:0:]#interface-out| (gx#make-export-expander - (lambda (_%stx67440%_) - (letrec ((_%expand67443%_ - (lambda (_%body67665%_ _%unchecked?67667%_) - (let* ((_%g6766967686%_ - (lambda (_%g6767067682%_) + (lambda (_%stx68570%_) + (letrec ((_%expand68573%_ + (lambda (_%body68791%_ _%unchecked?68793%_) + (let* ((_%g6879568812%_ + (lambda (_%g6879668808%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6767067682%_))) - (_%g6766867917%_ - (lambda (_%g6767067690%_) - (if (gx#stx-pair/null? _%g6767067690%_) - (let ((_g91957_ + _%g6879668808%_))) + (_%g6879469040%_ + (lambda (_%g6879668816%_) + (if (gx#stx-pair/null? _%g6879668816%_) + (let ((_g92820_ (gx#syntax-split-splice - _%g6767067690%_ + _%g6879668816%_ '0))) (begin - (let ((_g91958_ + (let ((_g92821_ (let () (declare (not safe)) - (if (##values? _g91957_) - (##values-length _g91957_) + (if (##values? _g92820_) + (##values-length _g92820_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91958_ 2))) + (##fx= _g92821_ 2))) (error "Context expects 2 values" - _g91958_))) - (let ((_%target6767267693%_ + _g92821_))) + (let ((_%target6879868819%_ (let () (declare (not safe)) - (##values-ref _g91957_ 0))) - (_%tl6767467696%_ + (##values-ref _g92820_ 0))) + (_%tl6880068822%_ (let () (declare (not safe)) - (##values-ref _g91957_ 1)))) - (if (gx#stx-null? _%tl6767467696%_) - (letrec ((_%loop6767567699%_ - (lambda (_%hd6767367703%_ - _%id6767967706%_) + (##values-ref _g92820_ 1)))) + (if (gx#stx-null? _%tl6880068822%_) + (letrec ((_%loop6880168825%_ + (lambda (_%hd6879968829%_ + _%id6880568832%_) (if (gx#stx-pair? - _%hd6767367703%_) - (let ((_%e6767667709%_ + _%hd6879968829%_) + (let ((_%e6880268834%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6767367703%_))) - (let ((_%lp-hd6767767713%_ + (gx#syntax-e _%hd6879968829%_))) + (let ((_%lp-hd6880368838%_ (let () (declare (not safe)) - (##car _%e6767667709%_))) - (_%lp-tl6767867716%_ + (##car _%e6880268834%_))) + (_%lp-tl6880468841%_ (let () (declare (not safe)) - (##cdr _%e6767667709%_)))) - (_%loop6767567699%_ - _%lp-tl6767867716%_ - (cons _%lp-hd6767767713%_ _%id6767967706%_)))) - (let ((_%id6768067719%_ (reverse _%id6767967706%_))) - ((lambda (_%L67723%_) + (##cdr _%e6880268834%_)))) + (_%loop6880168825%_ + _%lp-tl6880468841%_ + (cons _%lp-hd6880368838%_ _%id6880568832%_)))) + (let ((_%id6880668844%_ (reverse _%id6880568832%_))) + ((lambda (_%g6879768847%_) (if (gx#identifier-list? - (foldr (lambda (_%g6773667739%_ _%g6773767742%_) - (cons _%g6773667739%_ _%g6773767742%_)) + (foldr (lambda (_%g6886068863%_ _%g6886168866%_) + (cons _%g6886068863%_ _%g6886168866%_)) '() - _%L67723%_)) - (let _%lp67745%_ ((_%rest67748%_ - (foldr (lambda (_%g6790867911%_ + _%g6879768847%_)) + (let _%lp68869%_ ((_%rest68872%_ + (foldr (lambda (_%g6903169034%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6790967914%_) - (cons _%g6790867911%_ _%g6790967914%_)) + _%g6903269037%_) + (cons _%g6903169034%_ _%g6903269037%_)) '() - _%L67723%_)) + _%g6879768847%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%ids67750%_ '())) - (let* ((_%__stx8932389324%_ _%rest67748%_) - (_%g6775367765%_ + (_%ids68874%_ '())) + (let* ((_%__stx9027090271%_ _%rest68872%_) + (_%g6887768889%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8932389324%_)))) - (let ((_%__kont8932689327%_ - (lambda (_%L67793%_ _%L67795%_) - (let ((_%info67810%_ + _%__stx9027090271%_)))) + (let ((_%__kont9027390274%_ + (lambda (_%g6887968917%_ + _%g6888068919%_) + (let ((_%info68934%_ (gx#syntax-local-value - _%L67795%_ + _%g6888068919%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%info67810%_)) + _%info68934%_)) '#!void (gx#raise-syntax-error '#f '"not an interface type" - _%stx67440%_ - _%L67795%_)) - (let* ((_%info6781267825%_ - _%info67810%_) - (_%E6781467831%_ + _%stx68570%_ + _%g6888068919%_)) + (let* ((_%info6893668949%_ + _%info68934%_) + (_%E6893868954%_ (lambda () (error '"No clause matching" - _%info6781267825%_ + _%info6893668949%_ '((interface-info ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - instance-type: + type-descriptor: type interface-descriptor: descriptor @@ -10921,494 +11118,494 @@ unchecked-impl))) (void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K6781567845%_ - (lambda (_%unchecked-impl67835%_ - _%method-impl67837%_ - _%satisfies-predicate67838%_ - _%predicate67839%_ - _%try-constructor67840%_ - _%constructor67841%_ - _%descriptor67842%_ - _%type67843%_) - (_%lp67745%_ - _%L67793%_ - (cons _%L67795%_ - (cons _%type67843%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%descriptor67842%_ - (cons _%constructor67841%_ - (cons _%try-constructor67840%_ - (cons _%predicate67839%_ - (cons _%satisfies-predicate67838%_ + (_%K6893968968%_ + (lambda (_%unchecked-impl68958%_ + _%method-impl68960%_ + _%satisfies-predicate68961%_ + _%predicate68962%_ + _%try-constructor68963%_ + _%constructor68964%_ + _%descriptor68965%_ + _%type68966%_) + (_%lp68869%_ + _%g6887968917%_ + (cons _%g6888068919%_ + (cons _%type68966%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%descriptor68965%_ + (cons _%constructor68964%_ + (cons _%try-constructor68963%_ + (cons _%predicate68962%_ + (cons _%satisfies-predicate68961%_ (foldr cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (foldr cons - _%ids67750%_ - (if _%unchecked?67667%_ - _%unchecked-impl67835%_ + _%ids68874%_ + (if _%unchecked?68793%_ + _%unchecked-impl68958%_ '())) - _%method-impl67837%_)))))))))))) + _%method-impl68960%_)))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%info6781267825%_)) - (let* ((_%e6781667849%_ + _%info6893668949%_)) + (let* ((_%e6894068972%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6781267825%_ - 'instance-type))) - (_%type67853%_ - _%e6781667849%_) - (_%e6781767856%_ + _%info6893668949%_ + 'type-descriptor))) + (_%type68976%_ + _%e6894068972%_) + (_%e6894168979%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6781267825%_ + _%info6893668949%_ 'interface-descriptor))) - (_%descriptor67860%_ - _%e6781767856%_) - (_%e6781867863%_ + (_%descriptor68983%_ + _%e6894168979%_) + (_%e6894268986%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6781267825%_ + _%info6893668949%_ 'instance-constructor))) - (_%constructor67867%_ - _%e6781867863%_) - (_%e6781967870%_ + (_%constructor68990%_ + _%e6894268986%_) + (_%e6894368993%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6781267825%_ + _%info6893668949%_ 'instance-try-constructor))) - (_%try-constructor67874%_ - _%e6781967870%_) - (_%e6782067877%_ + (_%try-constructor68997%_ + _%e6894368993%_) + (_%e6894469000%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6781267825%_ + _%info6893668949%_ 'instance-predicate))) - (_%predicate67881%_ - _%e6782067877%_) - (_%e6782167884%_ + (_%predicate69004%_ + _%e6894469000%_) + (_%e6894569007%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6781267825%_ + _%info6893668949%_ 'instance-satisfies-predicate))) - (_%satisfies-predicate67888%_ - _%e6782167884%_) - (_%e6782267891%_ + (_%satisfies-predicate69011%_ + _%e6894569007%_) + (_%e6894669014%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6781267825%_ + _%info6893668949%_ 'implementation-methods))) - (_%method-impl67895%_ - _%e6782267891%_) - (_%e6782367898%_ + (_%method-impl69018%_ + _%e6894669014%_) + (_%e6894769021%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6781267825%_ + _%info6893668949%_ 'unchecked-implementation-methods))) - (_%unchecked-impl67902%_ - _%e6782367898%_)) - (_%K6781567845%_ - _%unchecked-impl67902%_ - _%method-impl67895%_ - _%satisfies-predicate67888%_ - _%predicate67881%_ - _%try-constructor67874%_ - _%constructor67867%_ - _%descriptor67860%_ - _%type67853%_)) - (_%E6781467831%_)))))) - (_%__kont8932889329%_ + (_%unchecked-impl69025%_ + _%e6894769021%_)) + (_%K6893968968%_ + _%unchecked-impl69025%_ + _%method-impl69018%_ + _%satisfies-predicate69011%_ + _%predicate69004%_ + _%try-constructor68997%_ + _%constructor68990%_ + _%descriptor68983%_ + _%type68976%_)) + (_%E6893868954%_)))))) + (_%__kont9027590276%_ (lambda () - (cons 'begin: _%ids67750%_)))) - (if (gx#stx-pair? _%__stx8932389324%_) - (let ((_%e6775767783%_ + (cons 'begin: _%ids68874%_)))) + (if (gx#stx-pair? _%__stx9027090271%_) + (let ((_%e6888168907%_ (gx#syntax-e - _%__stx8932389324%_))) - (let ((_%tl6775967790%_ + _%__stx9027090271%_))) + (let ((_%tl6888368914%_ (let () (declare (not safe)) - (##cdr _%e6775767783%_))) - (_%hd6775867787%_ + (##cdr _%e6888168907%_))) + (_%hd6888268911%_ (let () (declare (not safe)) - (##car _%e6775767783%_)))) - (_%__kont8932689327%_ - _%tl6775967790%_ - _%hd6775867787%_))) - (_%__kont8932889329%_))))) - (_%g6766967686%_ _%g6767067690%_))) - _%id6768067719%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6767567699%_ - _%target6767267693%_ + (##car _%e6888168907%_)))) + (_%__kont9027390274%_ + _%tl6888368914%_ + _%hd6888268911%_))) + (_%__kont9027590276%_))))) + (_%g6879568812%_ _%g6879668816%_))) + _%id6880668844%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6880168825%_ + _%target6879868819%_ '())) - (_%g6766967686%_ - _%g6767067690%_))))) - (_%g6766967686%_ _%g6767067690%_))))) - (_%g6766867917%_ _%body67665%_))))) - (let* ((_%__stx8933989340%_ _%stx67440%_) - (_%g6744767488%_ + (_%g6879568812%_ + _%g6879668816%_))))) + (_%g6879568812%_ _%g6879668816%_))))) + (_%g6879469040%_ _%body68791%_))))) + (let* ((_%__stx9028690287%_ _%stx68570%_) + (_%g6857768618%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8933989340%_)))) - (let ((_%__kont8934289343%_ - (lambda (_%L67631%_ _%L67633%_) - (_%expand67443%_ - (foldr (lambda (_%g6765267655%_ _%g6765367658%_) - (cons _%g6765267655%_ _%g6765367658%_)) + _%__stx9028690287%_)))) + (let ((_%__kont9028990290%_ + (lambda (_%g6857968757%_ _%g6858068759%_) + (_%expand68573%_ + (foldr (lambda (_%g6877868781%_ _%g6877968784%_) + (cons _%g6877868781%_ _%g6877968784%_)) '() - _%L67631%_) - (gx#stx-e _%L67633%_)))) - (_%__kont8934689347%_ - (lambda (_%L67535%_) - (_%expand67443%_ - (foldr (lambda (_%g6755167554%_ _%g6755267557%_) - (cons _%g6755167554%_ _%g6755267557%_)) + _%g6857968757%_) + (gx#stx-e _%g6858068759%_)))) + (_%__kont9029390294%_ + (lambda (_%g6860068663%_) + (_%expand68573%_ + (foldr (lambda (_%g6867968682%_ _%g6868068685%_) + (cons _%g6867968682%_ _%g6868068685%_)) '() - _%L67535%_) + _%g6860068663%_) '#t)))) - (let* ((_%__match8939689397%_ - (lambda (_%e6747167495%_ - _%hd6747267499%_ - _%tl6747367502%_ - _%__splice8934889349%_ - _%target6747467505%_ - _%tl6747667508%_) - (letrec ((_%loop6747767511%_ - (lambda (_%hd6747567515%_ - _%body6748167518%_) - (if (gx#stx-pair? _%hd6747567515%_) - (let ((_%e6747867521%_ + (let* ((_%__match9034390344%_ + (lambda (_%e6860168625%_ + _%hd6860268629%_ + _%tl6860368632%_ + _%__splice9029590296%_ + _%target6860468635%_ + _%tl6860668638%_) + (letrec ((_%loop6860768641%_ + (lambda (_%hd6860568645%_ + _%body6861168648%_) + (if (gx#stx-pair? _%hd6860568645%_) + (let ((_%e6860868650%_ (gx#syntax-e - _%hd6747567515%_))) - (let ((_%lp-tl6748067528%_ + _%hd6860568645%_))) + (let ((_%lp-tl6861068657%_ (let () (declare (not safe)) - (##cdr _%e6747867521%_))) - (_%lp-hd6747967525%_ + (##cdr _%e6860868650%_))) + (_%lp-hd6860968654%_ (let () (declare (not safe)) - (##car _%e6747867521%_)))) - (_%loop6747767511%_ - _%lp-tl6748067528%_ - (cons _%lp-hd6747967525%_ - _%body6748167518%_)))) - (let ((_%body6748267531%_ - (reverse _%body6748167518%_))) - (_%__kont8934689347%_ - _%body6748267531%_)))))) - (_%loop6747767511%_ _%target6747467505%_ '())))) - (_%__match8938289383%_ - (lambda (_%e6745167567%_ - _%hd6745267571%_ - _%tl6745367574%_ - _%e6745467577%_ - _%hd6745567581%_ - _%tl6745667584%_ - _%e6745767587%_ - _%e6745867591%_ - _%hd6745967595%_ - _%tl6746067598%_ - _%__splice8934489345%_ - _%target6746167601%_ - _%tl6746367604%_) - (letrec ((_%loop6746467607%_ - (lambda (_%hd6746267611%_ - _%body6746867614%_) - (if (gx#stx-pair? _%hd6746267611%_) - (let ((_%e6746567617%_ + (##car _%e6860868650%_)))) + (_%loop6860768641%_ + _%lp-tl6861068657%_ + (cons _%lp-hd6860968654%_ + _%body6861168648%_)))) + (let ((_%body6861268660%_ + (reverse _%body6861168648%_))) + (_%__kont9029390294%_ + _%body6861268660%_)))))) + (_%loop6860768641%_ _%target6860468635%_ '())))) + (_%__match9032990330%_ + (lambda (_%e6858168695%_ + _%hd6858268699%_ + _%tl6858368702%_ + _%e6858468705%_ + _%hd6858568709%_ + _%tl6858668712%_ + _%e6858768715%_ + _%e6858868719%_ + _%hd6858968723%_ + _%tl6859068726%_ + _%__splice9029190292%_ + _%target6859168729%_ + _%tl6859368732%_) + (letrec ((_%loop6859468735%_ + (lambda (_%hd6859268739%_ + _%body6859868742%_) + (if (gx#stx-pair? _%hd6859268739%_) + (let ((_%e6859568744%_ (gx#syntax-e - _%hd6746267611%_))) - (let ((_%lp-tl6746767624%_ + _%hd6859268739%_))) + (let ((_%lp-tl6859768751%_ (let () (declare (not safe)) - (##cdr _%e6746567617%_))) - (_%lp-hd6746667621%_ + (##cdr _%e6859568744%_))) + (_%lp-hd6859668748%_ (let () (declare (not safe)) - (##car _%e6746567617%_)))) - (_%loop6746467607%_ - _%lp-tl6746767624%_ - (cons _%lp-hd6746667621%_ - _%body6746867614%_)))) - (let ((_%body6746967627%_ - (reverse _%body6746867614%_))) - (_%__kont8934289343%_ - _%body6746967627%_ - _%hd6745967595%_)))))) - (_%loop6746467607%_ _%target6746167601%_ '()))))) - (if (gx#stx-pair? _%__stx8933989340%_) - (let ((_%e6745167567%_ (gx#syntax-e _%__stx8933989340%_))) - (let ((_%tl6745367574%_ + (##car _%e6859568744%_)))) + (_%loop6859468735%_ + _%lp-tl6859768751%_ + (cons _%lp-hd6859668748%_ + _%body6859868742%_)))) + (let ((_%body6859968754%_ + (reverse _%body6859868742%_))) + (_%__kont9028990290%_ + _%body6859968754%_ + _%hd6858968723%_)))))) + (_%loop6859468735%_ _%target6859168729%_ '()))))) + (if (gx#stx-pair? _%__stx9028690287%_) + (let ((_%e6858168695%_ (gx#syntax-e _%__stx9028690287%_))) + (let ((_%tl6858368702%_ (let () (declare (not safe)) - (##cdr _%e6745167567%_))) - (_%hd6745267571%_ + (##cdr _%e6858168695%_))) + (_%hd6858268699%_ (let () (declare (not safe)) - (##car _%e6745167567%_)))) - (if (gx#stx-pair? _%tl6745367574%_) - (let ((_%e6745467577%_ - (gx#syntax-e _%tl6745367574%_))) - (let ((_%tl6745667584%_ + (##car _%e6858168695%_)))) + (if (gx#stx-pair? _%tl6858368702%_) + (let ((_%e6858468705%_ + (gx#syntax-e _%tl6858368702%_))) + (let ((_%tl6858668712%_ (let () (declare (not safe)) - (##cdr _%e6745467577%_))) - (_%hd6745567581%_ + (##cdr _%e6858468705%_))) + (_%hd6858568709%_ (let () (declare (not safe)) - (##car _%e6745467577%_)))) - (if (gx#stx-datum? _%hd6745567581%_) - (let ((_%e6745767587%_ - (gx#stx-e _%hd6745567581%_))) - (if (equal? _%e6745767587%_ 'unchecked:) - (if (gx#stx-pair? _%tl6745667584%_) - (let ((_%e6745867591%_ + (##car _%e6858468705%_)))) + (if (gx#stx-datum? _%hd6858568709%_) + (let ((_%e6858768715%_ + (gx#stx-e _%hd6858568709%_))) + (if (equal? _%e6858768715%_ 'unchecked:) + (if (gx#stx-pair? _%tl6858668712%_) + (let ((_%e6858868719%_ (gx#syntax-e - _%tl6745667584%_))) - (let ((_%tl6746067598%_ + _%tl6858668712%_))) + (let ((_%tl6859068726%_ (let () (declare (not safe)) - (##cdr _%e6745867591%_))) - (_%hd6745967595%_ + (##cdr _%e6858868719%_))) + (_%hd6858968723%_ (let () (declare (not safe)) - (##car _%e6745867591%_)))) + (##car _%e6858868719%_)))) (if (gx#stx-pair/null? - _%tl6746067598%_) - (let ((_%__splice8934489345%_ + _%tl6859068726%_) + (let ((_%__splice9029190292%_ (gx#syntax-split-splice->vector - _%tl6746067598%_ + _%tl6859068726%_ '0))) - (let ((_%tl6746367604%_ + (let ((_%tl6859368732%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8934489345%_ '1))) - (_%target6746167601%_ + (##vector-ref _%__splice9029190292%_ '1))) + (_%target6859168729%_ (let () (declare (not safe)) - (##vector-ref _%__splice8934489345%_ '0)))) - (if (gx#stx-null? _%tl6746367604%_) - (_%__match8938289383%_ - _%e6745167567%_ - _%hd6745267571%_ - _%tl6745367574%_ - _%e6745467577%_ - _%hd6745567581%_ - _%tl6745667584%_ - _%e6745767587%_ - _%e6745867591%_ - _%hd6745967595%_ - _%tl6746067598%_ - _%__splice8934489345%_ - _%target6746167601%_ - _%tl6746367604%_) - (if (gx#stx-pair/null? _%tl6745367574%_) - (let ((_%__splice8934889349%_ + (##vector-ref _%__splice9029190292%_ '0)))) + (if (gx#stx-null? _%tl6859368732%_) + (_%__match9032990330%_ + _%e6858168695%_ + _%hd6858268699%_ + _%tl6858368702%_ + _%e6858468705%_ + _%hd6858568709%_ + _%tl6858668712%_ + _%e6858768715%_ + _%e6858868719%_ + _%hd6858968723%_ + _%tl6859068726%_ + _%__splice9029190292%_ + _%target6859168729%_ + _%tl6859368732%_) + (if (gx#stx-pair/null? _%tl6858368702%_) + (let ((_%__splice9029590296%_ (gx#syntax-split-splice->vector - _%tl6745367574%_ + _%tl6858368702%_ '0))) - (let ((_%tl6747667508%_ + (let ((_%tl6860668638%_ (let () (declare (not safe)) (##vector-ref - _%__splice8934889349%_ + _%__splice9029590296%_ '1))) - (_%target6747467505%_ + (_%target6860468635%_ (let () (declare (not safe)) (##vector-ref - _%__splice8934889349%_ + _%__splice9029590296%_ '0)))) - (if (gx#stx-null? _%tl6747667508%_) - (_%__match8939689397%_ - _%e6745167567%_ - _%hd6745267571%_ - _%tl6745367574%_ - _%__splice8934889349%_ - _%target6747467505%_ - _%tl6747667508%_) + (if (gx#stx-null? _%tl6860668638%_) + (_%__match9034390344%_ + _%e6858168695%_ + _%hd6858268699%_ + _%tl6858368702%_ + _%__splice9029590296%_ + _%target6860468635%_ + _%tl6860668638%_) (let () (declare (not safe)) - (_%g6744767488%_))))) - (let () (declare (not safe)) (_%g6744767488%_)))))) - (if (gx#stx-pair/null? _%tl6745367574%_) - (let ((_%__splice8934889349%_ + (_%g6857768618%_))))) + (let () (declare (not safe)) (_%g6857768618%_)))))) + (if (gx#stx-pair/null? _%tl6858368702%_) + (let ((_%__splice9029590296%_ (gx#syntax-split-splice->vector - _%tl6745367574%_ + _%tl6858368702%_ '0))) - (let ((_%tl6747667508%_ + (let ((_%tl6860668638%_ (let () (declare (not safe)) - (##vector-ref _%__splice8934889349%_ '1))) - (_%target6747467505%_ + (##vector-ref _%__splice9029590296%_ '1))) + (_%target6860468635%_ (let () (declare (not safe)) - (##vector-ref _%__splice8934889349%_ '0)))) - (if (gx#stx-null? _%tl6747667508%_) - (_%__match8939689397%_ - _%e6745167567%_ - _%hd6745267571%_ - _%tl6745367574%_ - _%__splice8934889349%_ - _%target6747467505%_ - _%tl6747667508%_) - (let () (declare (not safe)) (_%g6744767488%_))))) - (let () (declare (not safe)) (_%g6744767488%_)))))) + (##vector-ref _%__splice9029590296%_ '0)))) + (if (gx#stx-null? _%tl6860668638%_) + (_%__match9034390344%_ + _%e6858168695%_ + _%hd6858268699%_ + _%tl6858368702%_ + _%__splice9029590296%_ + _%target6860468635%_ + _%tl6860668638%_) + (let () (declare (not safe)) (_%g6857768618%_))))) + (let () (declare (not safe)) (_%g6857768618%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6745367574%_) - (let ((_%__splice8934889349%_ + _%tl6858368702%_) + (let ((_%__splice9029590296%_ (gx#syntax-split-splice->vector - _%tl6745367574%_ + _%tl6858368702%_ '0))) - (let ((_%tl6747667508%_ + (let ((_%tl6860668638%_ (let () (declare (not safe)) (##vector-ref - _%__splice8934889349%_ + _%__splice9029590296%_ '1))) - (_%target6747467505%_ + (_%target6860468635%_ (let () (declare (not safe)) (##vector-ref - _%__splice8934889349%_ + _%__splice9029590296%_ '0)))) (if (gx#stx-null? - _%tl6747667508%_) - (_%__match8939689397%_ - _%e6745167567%_ - _%hd6745267571%_ - _%tl6745367574%_ - _%__splice8934889349%_ - _%target6747467505%_ - _%tl6747667508%_) + _%tl6860668638%_) + (_%__match9034390344%_ + _%e6858168695%_ + _%hd6858268699%_ + _%tl6858368702%_ + _%__splice9029590296%_ + _%target6860468635%_ + _%tl6860668638%_) (let () (declare (not safe)) - (_%g6744767488%_))))) + (_%g6857768618%_))))) (let () (declare (not safe)) - (_%g6744767488%_)))) + (_%g6857768618%_)))) (if (gx#stx-pair/null? - _%tl6745367574%_) - (let ((_%__splice8934889349%_ + _%tl6858368702%_) + (let ((_%__splice9029590296%_ (gx#syntax-split-splice->vector - _%tl6745367574%_ + _%tl6858368702%_ '0))) - (let ((_%tl6747667508%_ + (let ((_%tl6860668638%_ (let () (declare (not safe)) (##vector-ref - _%__splice8934889349%_ + _%__splice9029590296%_ '1))) - (_%target6747467505%_ + (_%target6860468635%_ (let () (declare (not safe)) (##vector-ref - _%__splice8934889349%_ + _%__splice9029590296%_ '0)))) (if (gx#stx-null? - _%tl6747667508%_) - (_%__match8939689397%_ - _%e6745167567%_ - _%hd6745267571%_ - _%tl6745367574%_ - _%__splice8934889349%_ - _%target6747467505%_ - _%tl6747667508%_) + _%tl6860668638%_) + (_%__match9034390344%_ + _%e6858168695%_ + _%hd6858268699%_ + _%tl6858368702%_ + _%__splice9029590296%_ + _%target6860468635%_ + _%tl6860668638%_) (let () (declare (not safe)) - (_%g6744767488%_))))) + (_%g6857768618%_))))) (let () (declare (not safe)) - (_%g6744767488%_))))) - (if (gx#stx-pair/null? _%tl6745367574%_) - (let ((_%__splice8934889349%_ + (_%g6857768618%_))))) + (if (gx#stx-pair/null? _%tl6858368702%_) + (let ((_%__splice9029590296%_ (gx#syntax-split-splice->vector - _%tl6745367574%_ + _%tl6858368702%_ '0))) - (let ((_%tl6747667508%_ + (let ((_%tl6860668638%_ (let () (declare (not safe)) (##vector-ref - _%__splice8934889349%_ + _%__splice9029590296%_ '1))) - (_%target6747467505%_ + (_%target6860468635%_ (let () (declare (not safe)) (##vector-ref - _%__splice8934889349%_ + _%__splice9029590296%_ '0)))) (if (gx#stx-null? - _%tl6747667508%_) - (_%__match8939689397%_ - _%e6745167567%_ - _%hd6745267571%_ - _%tl6745367574%_ - _%__splice8934889349%_ - _%target6747467505%_ - _%tl6747667508%_) + _%tl6860668638%_) + (_%__match9034390344%_ + _%e6858168695%_ + _%hd6858268699%_ + _%tl6858368702%_ + _%__splice9029590296%_ + _%target6860468635%_ + _%tl6860668638%_) (let () (declare (not safe)) - (_%g6744767488%_))))) + (_%g6857768618%_))))) (let () (declare (not safe)) - (_%g6744767488%_)))))) - (if (gx#stx-pair/null? _%tl6745367574%_) - (let ((_%__splice8934889349%_ + (_%g6857768618%_)))))) + (if (gx#stx-pair/null? _%tl6858368702%_) + (let ((_%__splice9029590296%_ (gx#syntax-split-splice->vector - _%tl6745367574%_ + _%tl6858368702%_ '0))) - (let ((_%tl6747667508%_ + (let ((_%tl6860668638%_ (let () (declare (not safe)) (##vector-ref - _%__splice8934889349%_ + _%__splice9029590296%_ '1))) - (_%target6747467505%_ + (_%target6860468635%_ (let () (declare (not safe)) (##vector-ref - _%__splice8934889349%_ + _%__splice9029590296%_ '0)))) - (if (gx#stx-null? _%tl6747667508%_) - (_%__match8939689397%_ - _%e6745167567%_ - _%hd6745267571%_ - _%tl6745367574%_ - _%__splice8934889349%_ - _%target6747467505%_ - _%tl6747667508%_) + (if (gx#stx-null? _%tl6860668638%_) + (_%__match9034390344%_ + _%e6858168695%_ + _%hd6858268699%_ + _%tl6858368702%_ + _%__splice9029590296%_ + _%target6860468635%_ + _%tl6860668638%_) (let () (declare (not safe)) - (_%g6744767488%_))))) + (_%g6857768618%_))))) (let () (declare (not safe)) - (_%g6744767488%_)))))) - (let () (declare (not safe)) (_%g6744767488%_)))))))))))) + (_%g6857768618%_)))))) + (let () (declare (not safe)) (_%g6857768618%_)))))))))))) diff --git a/src/bootstrap/gerbil/core/contract~9.scm b/src/bootstrap/gerbil/core/contract~9.scm index 9993c4fac9..7adda73f80 100644 --- a/src/bootstrap/gerbil/core/contract~9.scm +++ b/src/bootstrap/gerbil/core/contract~9.scm @@ -1,823 +1,834 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~TypedDefinitions[1]#_g91965_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92828_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g91972_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92835_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g91975_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92838_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g91976_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92839_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g91986_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92849_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g91989_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92852_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92008_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92871_| (##structure gx#syntax-quote::t '@method #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92009_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92874_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92011_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92876_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92012_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92877_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92013_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92878_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92015_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92880_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92016_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92881_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92017_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92882_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92019_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92884_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92020_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92885_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92021_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92886_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92022_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92887_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92023_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92888_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92024_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92889_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92025_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92890_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92026_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92891_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92027_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92892_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92028_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92893_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92029_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92894_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92030_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92895_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92031_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92896_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92032_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92897_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92033_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92898_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92034_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92899_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92035_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92900_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g92036_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g92901_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (begin (define |gerbil/core/contract~TypedDefinitions[1]#is-signature?| - (lambda (_%formals67925%_) - (let _%lp67928%_ ((_%rest67931%_ _%formals67925%_)) - (let* ((_%__stx8939989400%_ _%rest67931%_) - (_%g6794068009%_ + (lambda (_%formals69048%_) + (let _%lp69051%_ ((_%rest69054%_ _%formals69048%_)) + (let* ((_%__stx9034690347%_ _%rest69054%_) + (_%g6906369132%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8939989400%_)))) - (let ((_%__kont8940289403%_ - (lambda (_%L68310%_ _%L68312%_) (_%lp67928%_ _%L68310%_))) - (_%__kont8940489405%_ - (lambda (_%L68276%_ _%L68278%_) (_%lp67928%_ _%L68276%_))) - (_%__kont8940689407%_ - (lambda (_%L68222%_ _%L68224%_ _%L68225%_) '#t)) - (_%__kont8940889409%_ - (lambda (_%L68178%_ _%L68180%_ _%L68181%_) - (_%lp67928%_ _%L68178%_))) - (_%__kont8941089411%_ - (lambda (_%L68130%_ _%L68132%_ _%L68133%_) - (_%lp67928%_ _%L68130%_))) - (_%__kont8941289413%_ - (lambda (_%L68057%_ _%L68059%_ _%L68060%_ _%L68061%_) '#t)) - (_%__kont8941489415%_ (lambda () '#f))) - (let* ((_%__match8951089511%_ - (lambda (_%e6799568027%_ - _%hd6799668031%_ - _%tl6799768034%_ - _%e6799868037%_ - _%hd6799968041%_ - _%tl6800068044%_ - _%e6800168047%_ - _%hd6800268051%_ - _%tl6800368054%_) - (let ((_%L68057%_ _%tl6800068044%_) - (_%L68059%_ _%tl6800368054%_) - (_%L68060%_ _%hd6800268051%_) - (_%L68061%_ _%hd6799668031%_)) - (if (and (gx#stx-keyword? _%L68061%_) - (gx#identifier? _%L68060%_) + _%__stx9034690347%_)))) + (let ((_%__kont9034990350%_ + (lambda (_%g6906569433%_ _%g6906669435%_) + (_%lp69051%_ _%g6906569433%_))) + (_%__kont9035190352%_ + (lambda (_%g6907069399%_ _%g6907169401%_) + (_%lp69051%_ _%g6907069399%_))) + (_%__kont9035390354%_ + (lambda (_%g6908169345%_ _%g6908269347%_ _%g6908369348%_) + '#t)) + (_%__kont9035590356%_ + (lambda (_%g6909069301%_ _%g6909169303%_ _%g6909269304%_) + (_%lp69051%_ _%g6909069301%_))) + (_%__kont9035790358%_ + (lambda (_%g6909969253%_ _%g6910069255%_ _%g6910169256%_) + (_%lp69051%_ _%g6909969253%_))) + (_%__kont9035990360%_ + (lambda (_%g6911469180%_ + _%g6911569182%_ + _%g6911669183%_ + _%g6911769184%_) + '#t)) + (_%__kont9036190362%_ (lambda () '#f))) + (let* ((_%__match9045790458%_ + (lambda (_%e6911869150%_ + _%hd6911969154%_ + _%tl6912069157%_ + _%e6912169160%_ + _%hd6912269164%_ + _%tl6912369167%_ + _%e6912469170%_ + _%hd6912569174%_ + _%tl6912669177%_) + (let ((_%g6911469180%_ _%tl6912369167%_) + (_%g6911569182%_ _%tl6912669177%_) + (_%g6911669183%_ _%hd6912569174%_) + (_%g6911769184%_ _%hd6911969154%_)) + (if (and (gx#stx-keyword? _%g6911769184%_) + (gx#identifier? _%g6911669183%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L68059%_))) - (_%__kont8941289413%_ - _%L68057%_ - _%L68059%_ - _%L68060%_ - _%L68061%_) - (_%__kont8941489415%_))))) - (_%__match8949289493%_ - (lambda (_%e6797968090%_ - _%hd6798068094%_ - _%tl6798168097%_ - _%e6798268100%_ - _%hd6798368104%_ - _%tl6798468107%_ - _%e6798568110%_ - _%hd6798668114%_ - _%tl6798768117%_ - _%e6798868120%_ - _%hd6798968124%_ - _%tl6799068127%_) - (let ((_%L68130%_ _%tl6798468107%_) - (_%L68132%_ _%hd6798668114%_) - (_%L68133%_ _%hd6798068094%_)) - (if (and (gx#stx-keyword? _%L68133%_) - (gx#identifier? _%L68132%_)) - (_%__kont8941089411%_ - _%L68130%_ - _%L68132%_ - _%L68133%_) - (_%__match8951089511%_ - _%e6797968090%_ - _%hd6798068094%_ - _%tl6798168097%_ - _%e6798268100%_ - _%hd6798368104%_ - _%tl6798468107%_ - _%e6798568110%_ - _%hd6798668114%_ - _%tl6798768117%_))))) - (_%__match8946689467%_ - (lambda (_%e6797068158%_ - _%hd6797168162%_ - _%tl6797268165%_ - _%e6797368168%_ - _%hd6797468172%_ - _%tl6797568175%_) - (let ((_%L68178%_ _%tl6797568175%_) - (_%L68180%_ _%hd6797468172%_) - (_%L68181%_ _%hd6797168162%_)) - (if (and (gx#stx-keyword? _%L68181%_) - (gx#identifier? _%L68180%_)) - (_%__kont8940889409%_ - _%L68178%_ - _%L68180%_ - _%L68181%_) - (if (gx#stx-pair? _%hd6797468172%_) - (let ((_%e6798568110%_ - (gx#syntax-e _%hd6797468172%_))) - (let ((_%tl6798768117%_ + _%g6911569182%_))) + (_%__kont9035990360%_ + _%g6911469180%_ + _%g6911569182%_ + _%g6911669183%_ + _%g6911769184%_) + (_%__kont9036190362%_))))) + (_%__match9043990440%_ + (lambda (_%e6910269213%_ + _%hd6910369217%_ + _%tl6910469220%_ + _%e6910569223%_ + _%hd6910669227%_ + _%tl6910769230%_ + _%e6910869233%_ + _%hd6910969237%_ + _%tl6911069240%_ + _%e6911169243%_ + _%hd6911269247%_ + _%tl6911369250%_) + (let ((_%g6909969253%_ _%tl6910769230%_) + (_%g6910069255%_ _%hd6910969237%_) + (_%g6910169256%_ _%hd6910369217%_)) + (if (and (gx#stx-keyword? _%g6910169256%_) + (gx#identifier? _%g6910069255%_)) + (_%__kont9035790358%_ + _%g6909969253%_ + _%g6910069255%_ + _%g6910169256%_) + (_%__match9045790458%_ + _%e6910269213%_ + _%hd6910369217%_ + _%tl6910469220%_ + _%e6910569223%_ + _%hd6910669227%_ + _%tl6910769230%_ + _%e6910869233%_ + _%hd6910969237%_ + _%tl6911069240%_))))) + (_%__match9041390414%_ + (lambda (_%e6909369281%_ + _%hd6909469285%_ + _%tl6909569288%_ + _%e6909669291%_ + _%hd6909769295%_ + _%tl6909869298%_) + (let ((_%g6909069301%_ _%tl6909869298%_) + (_%g6909169303%_ _%hd6909769295%_) + (_%g6909269304%_ _%hd6909469285%_)) + (if (and (gx#stx-keyword? _%g6909269304%_) + (gx#identifier? _%g6909169303%_)) + (_%__kont9035590356%_ + _%g6909069301%_ + _%g6909169303%_ + _%g6909269304%_) + (if (gx#stx-pair? _%hd6909769295%_) + (let ((_%e6910869233%_ + (gx#syntax-e _%hd6909769295%_))) + (let ((_%tl6911069240%_ (let () (declare (not safe)) - (##cdr _%e6798568110%_))) - (_%hd6798668114%_ + (##cdr _%e6910869233%_))) + (_%hd6910969237%_ (let () (declare (not safe)) - (##car _%e6798568110%_)))) - (if (gx#stx-pair? _%tl6798768117%_) - (let ((_%e6798868120%_ + (##car _%e6910869233%_)))) + (if (gx#stx-pair? _%tl6911069240%_) + (let ((_%e6911169243%_ (gx#syntax-e - _%tl6798768117%_))) - (let ((_%tl6799068127%_ + _%tl6911069240%_))) + (let ((_%tl6911369250%_ (let () (declare (not safe)) - (##cdr _%e6798868120%_))) - (_%hd6798968124%_ + (##cdr _%e6911169243%_))) + (_%hd6911269247%_ (let () (declare (not safe)) - (##car _%e6798868120%_)))) + (##car _%e6911169243%_)))) (if (gx#stx-null? - _%tl6799068127%_) - (_%__match8949289493%_ - _%e6797068158%_ - _%hd6797168162%_ - _%tl6797268165%_ - _%e6797368168%_ - _%hd6797468172%_ - _%tl6797568175%_ - _%e6798568110%_ - _%hd6798668114%_ - _%tl6798768117%_ - _%e6798868120%_ - _%hd6798968124%_ - _%tl6799068127%_) - (_%__match8951089511%_ - _%e6797068158%_ - _%hd6797168162%_ - _%tl6797268165%_ - _%e6797368168%_ - _%hd6797468172%_ - _%tl6797568175%_ - _%e6798568110%_ - _%hd6798668114%_ - _%tl6798768117%_)))) - (_%__match8951089511%_ - _%e6797068158%_ - _%hd6797168162%_ - _%tl6797268165%_ - _%e6797368168%_ - _%hd6797468172%_ - _%tl6797568175%_ - _%e6798568110%_ - _%hd6798668114%_ - _%tl6798768117%_)))) - (_%__kont8941489415%_)))))) - (_%__match8945489455%_ - (lambda (_%e6796168202%_ - _%hd6796268206%_ - _%tl6796368209%_ - _%e6796468212%_ - _%hd6796568216%_ - _%tl6796668219%_) - (let ((_%L68222%_ _%tl6796368209%_) - (_%L68224%_ _%tl6796668219%_) - (_%L68225%_ _%hd6796568216%_)) - (if (and (gx#identifier? _%L68225%_) + _%tl6911369250%_) + (_%__match9043990440%_ + _%e6909369281%_ + _%hd6909469285%_ + _%tl6909569288%_ + _%e6909669291%_ + _%hd6909769295%_ + _%tl6909869298%_ + _%e6910869233%_ + _%hd6910969237%_ + _%tl6911069240%_ + _%e6911169243%_ + _%hd6911269247%_ + _%tl6911369250%_) + (_%__match9045790458%_ + _%e6909369281%_ + _%hd6909469285%_ + _%tl6909569288%_ + _%e6909669291%_ + _%hd6909769295%_ + _%tl6909869298%_ + _%e6910869233%_ + _%hd6910969237%_ + _%tl6911069240%_)))) + (_%__match9045790458%_ + _%e6909369281%_ + _%hd6909469285%_ + _%tl6909569288%_ + _%e6909669291%_ + _%hd6909769295%_ + _%tl6909869298%_ + _%e6910869233%_ + _%hd6910969237%_ + _%tl6911069240%_)))) + (_%__kont9036190362%_)))))) + (_%__match9040190402%_ + (lambda (_%e6908469325%_ + _%hd6908569329%_ + _%tl6908669332%_ + _%e6908769335%_ + _%hd6908869339%_ + _%tl6908969342%_) + (let ((_%g6908169345%_ _%tl6908669332%_) + (_%g6908269347%_ _%tl6908969342%_) + (_%g6908369348%_ _%hd6908869339%_)) + (if (and (gx#identifier? _%g6908369348%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L68224%_))) - (_%__kont8940689407%_ - _%L68222%_ - _%L68224%_ - _%L68225%_) - (if (gx#stx-pair? _%tl6796368209%_) - (let ((_%e6797368168%_ - (gx#syntax-e _%tl6796368209%_))) - (let ((_%tl6797568175%_ + _%g6908269347%_))) + (_%__kont9035390354%_ + _%g6908169345%_ + _%g6908269347%_ + _%g6908369348%_) + (if (gx#stx-pair? _%tl6908669332%_) + (let ((_%e6909669291%_ + (gx#syntax-e _%tl6908669332%_))) + (let ((_%tl6909869298%_ (let () (declare (not safe)) - (##cdr _%e6797368168%_))) - (_%hd6797468172%_ + (##cdr _%e6909669291%_))) + (_%hd6909769295%_ (let () (declare (not safe)) - (##car _%e6797368168%_)))) - (_%__match8946689467%_ - _%e6796168202%_ - _%hd6796268206%_ - _%tl6796368209%_ - _%e6797368168%_ - _%hd6797468172%_ - _%tl6797568175%_))) - (_%__kont8941489415%_)))))) - (_%__match8942289423%_ - (lambda (_%e6794468300%_ - _%hd6794568304%_ - _%tl6794668307%_) - (let ((_%L68310%_ _%tl6794668307%_) - (_%L68312%_ _%hd6794568304%_)) - (if (gx#identifier? _%L68312%_) - (_%__kont8940289403%_ _%L68310%_ _%L68312%_) - (if (gx#stx-pair? _%hd6794568304%_) - (let ((_%e6795268256%_ - (gx#syntax-e _%hd6794568304%_))) - (let ((_%tl6795468263%_ + (##car _%e6909669291%_)))) + (_%__match9041390414%_ + _%e6908469325%_ + _%hd6908569329%_ + _%tl6908669332%_ + _%e6909669291%_ + _%hd6909769295%_ + _%tl6909869298%_))) + (_%__kont9036190362%_)))))) + (_%__match9036990370%_ + (lambda (_%e6906769423%_ + _%hd6906869427%_ + _%tl6906969430%_) + (let ((_%g6906569433%_ _%tl6906969430%_) + (_%g6906669435%_ _%hd6906869427%_)) + (if (gx#identifier? _%g6906669435%_) + (_%__kont9034990350%_ + _%g6906569433%_ + _%g6906669435%_) + (if (gx#stx-pair? _%hd6906869427%_) + (let ((_%e6907569379%_ + (gx#syntax-e _%hd6906869427%_))) + (let ((_%tl6907769386%_ (let () (declare (not safe)) - (##cdr _%e6795268256%_))) - (_%hd6795368260%_ + (##cdr _%e6907569379%_))) + (_%hd6907669383%_ (let () (declare (not safe)) - (##car _%e6795268256%_)))) - (if (gx#stx-pair? _%tl6795468263%_) - (let ((_%e6795568266%_ + (##car _%e6907569379%_)))) + (if (gx#stx-pair? _%tl6907769386%_) + (let ((_%e6907869389%_ (gx#syntax-e - _%tl6795468263%_))) - (let ((_%tl6795768273%_ + _%tl6907769386%_))) + (let ((_%tl6908069396%_ (let () (declare (not safe)) - (##cdr _%e6795568266%_))) - (_%hd6795668270%_ + (##cdr _%e6907869389%_))) + (_%hd6907969393%_ (let () (declare (not safe)) - (##car _%e6795568266%_)))) + (##car _%e6907869389%_)))) (if (gx#stx-null? - _%tl6795768273%_) - (_%__kont8940489405%_ - _%tl6794668307%_ - _%hd6795368260%_) - (_%__match8945489455%_ - _%e6794468300%_ - _%hd6794568304%_ - _%tl6794668307%_ - _%e6795268256%_ - _%hd6795368260%_ - _%tl6795468263%_)))) - (_%__match8945489455%_ - _%e6794468300%_ - _%hd6794568304%_ - _%tl6794668307%_ - _%e6795268256%_ - _%hd6795368260%_ - _%tl6795468263%_)))) - (if (gx#stx-pair? _%tl6794668307%_) - (let ((_%e6797368168%_ - (gx#syntax-e _%tl6794668307%_))) - (let ((_%tl6797568175%_ + _%tl6908069396%_) + (_%__kont9035190352%_ + _%tl6906969430%_ + _%hd6907669383%_) + (_%__match9040190402%_ + _%e6906769423%_ + _%hd6906869427%_ + _%tl6906969430%_ + _%e6907569379%_ + _%hd6907669383%_ + _%tl6907769386%_)))) + (_%__match9040190402%_ + _%e6906769423%_ + _%hd6906869427%_ + _%tl6906969430%_ + _%e6907569379%_ + _%hd6907669383%_ + _%tl6907769386%_)))) + (if (gx#stx-pair? _%tl6906969430%_) + (let ((_%e6909669291%_ + (gx#syntax-e _%tl6906969430%_))) + (let ((_%tl6909869298%_ (let () (declare (not safe)) - (##cdr _%e6797368168%_))) - (_%hd6797468172%_ + (##cdr _%e6909669291%_))) + (_%hd6909769295%_ (let () (declare (not safe)) - (##car _%e6797368168%_)))) - (_%__match8946689467%_ - _%e6794468300%_ - _%hd6794568304%_ - _%tl6794668307%_ - _%e6797368168%_ - _%hd6797468172%_ - _%tl6797568175%_))) - (_%__kont8941489415%_)))))))) - (if (gx#stx-pair? _%__stx8939989400%_) - (let ((_%e6794468300%_ (gx#syntax-e _%__stx8939989400%_))) - (let ((_%tl6794668307%_ + (##car _%e6909669291%_)))) + (_%__match9041390414%_ + _%e6906769423%_ + _%hd6906869427%_ + _%tl6906969430%_ + _%e6909669291%_ + _%hd6909769295%_ + _%tl6909869298%_))) + (_%__kont9036190362%_)))))))) + (if (gx#stx-pair? _%__stx9034690347%_) + (let ((_%e6906769423%_ (gx#syntax-e _%__stx9034690347%_))) + (let ((_%tl6906969430%_ (let () (declare (not safe)) - (##cdr _%e6794468300%_))) - (_%hd6794568304%_ + (##cdr _%e6906769423%_))) + (_%hd6906869427%_ (let () (declare (not safe)) - (##car _%e6794468300%_)))) - (_%__match8942289423%_ - _%e6794468300%_ - _%hd6794568304%_ - _%tl6794668307%_))) - (_%__kont8941489415%_)))))))) + (##car _%e6906769423%_)))) + (_%__match9036990370%_ + _%e6906769423%_ + _%hd6906869427%_ + _%tl6906969430%_))) + (_%__kont9036190362%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#def/c| - (lambda (_%stx68327%_) - (letrec ((_%make-definition68330%_ - (lambda (_%id69428%_ - _%args69430%_ - _%return69431%_ - _%body69432%_) + (lambda (_%stx69450%_) + (letrec ((_%make-definition69453%_ + (lambda (_%id70539%_ + _%args70541%_ + _%return70542%_ + _%body70543%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#check-signature!__%| '#f absent-value absent-value - _%stx68327%_ - _%args69430%_ - _%return69431%_)) + _%stx69450%_ + _%args70541%_ + _%return70542%_)) (if (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-has-keywords?| - _%args69430%_)) - (_%make-keyword-def68332%_ - _%id69428%_ - _%args69430%_ - _%return69431%_ - _%body69432%_) - (let* ((_%unchecked-id69434%_ + _%args70541%_)) + (_%make-keyword-def69455%_ + _%id70539%_ + _%args70541%_ + _%return70542%_ + _%body70543%_) + (let* ((_%unchecked-id70545%_ (gx#stx-identifier - _%id69428%_ + _%id70539%_ '"__" - _%id69428%_)) - (_%g6943769452%_ - (lambda (_%g6943869448%_) + _%id70539%_)) + (_%g7054870563%_ + (lambda (_%g7054970559%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6943869448%_))) - (_%g6943669498%_ - (lambda (_%g6943869456%_) - (if (gx#stx-pair? _%g6943869456%_) - (let ((_%e6944169459%_ - (gx#syntax-e _%g6943869456%_))) - (let ((_%hd6944269463%_ + _%g7054970559%_))) + (_%g7054770609%_ + (lambda (_%g7054970567%_) + (if (gx#stx-pair? _%g7054970567%_) + (let ((_%e7055270570%_ + (gx#syntax-e _%g7054970567%_))) + (let ((_%hd7055370574%_ (let () (declare (not safe)) - (##car _%e6944169459%_))) - (_%tl6944369466%_ + (##car _%e7055270570%_))) + (_%tl7055470577%_ (let () (declare (not safe)) - (##cdr _%e6944169459%_)))) - (if (gx#stx-pair? _%tl6944369466%_) - (let ((_%e6944469469%_ + (##cdr _%e7055270570%_)))) + (if (gx#stx-pair? _%tl7055470577%_) + (let ((_%e7055570580%_ (gx#syntax-e - _%tl6944369466%_))) - (let ((_%hd6944569473%_ + _%tl7055470577%_))) + (let ((_%hd7055670584%_ (let () (declare (not safe)) - (##car _%e6944469469%_))) - (_%tl6944669476%_ + (##car _%e7055570580%_))) + (_%tl7055770587%_ (let () (declare (not safe)) - (##cdr _%e6944469469%_)))) + (##cdr _%e7055570580%_)))) (if (gx#stx-null? - _%tl6944669476%_) - ((lambda (_%L69479%_ - _%L69481%_) + _%tl7055770587%_) + ((lambda (_%g7055070590%_ + _%g7055170592%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L69481%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L69479%_ '())))) - _%hd6944569473%_ - _%hd6944269463%_) - (_%g6943769452%_ _%g6943869456%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6943769452%_ - _%g6943869456%_)))) - (_%g6943769452%_ _%g6943869456%_))))) - (_%g6943669498%_ - (list (_%make-checked-def68333%_ - _%id69428%_ - _%unchecked-id69434%_ - _%args69430%_ - _%return69431%_) - (_%make-unchecked-def68334%_ - _%unchecked-id69434%_ - _%args69430%_ - _%return69431%_ - _%body69432%_))))))) - (_%make-keyword-def68332%_ - (lambda (_%id69235%_ - _%signature69237%_ - _%return69238%_ - _%body69239%_) - (let* ((_%g6924169281%_ - (lambda (_%g6924269277%_) + (cons _%g7055170592%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%g7055070590%_ '())))) + _%hd7055670584%_ + _%hd7055370574%_) + (_%g7054870563%_ _%g7054970567%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7054870563%_ + _%g7054970567%_)))) + (_%g7054870563%_ _%g7054970567%_))))) + (_%g7054770609%_ + (list (_%make-checked-def69456%_ + _%id70539%_ + _%unchecked-id70545%_ + _%args70541%_ + _%return70542%_) + (_%make-unchecked-def69457%_ + _%unchecked-id70545%_ + _%args70541%_ + _%return70542%_ + _%body70543%_))))))) + (_%make-keyword-def69455%_ + (lambda (_%id70348%_ + _%signature70350%_ + _%return70351%_ + _%body70352%_) + (let* ((_%g7035470394%_ + (lambda (_%g7035570390%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6924269277%_))) - (_%g6924069424%_ - (lambda (_%g6924269285%_) - (if (gx#stx-pair? _%g6924269285%_) - (let ((_%e6924969288%_ - (gx#syntax-e _%g6924269285%_))) - (let ((_%hd6925069292%_ + _%g7035570390%_))) + (_%g7035370535%_ + (lambda (_%g7035570398%_) + (if (gx#stx-pair? _%g7035570398%_) + (let ((_%e7036270401%_ + (gx#syntax-e _%g7035570398%_))) + (let ((_%hd7036370405%_ (let () (declare (not safe)) - (##car _%e6924969288%_))) - (_%tl6925169295%_ + (##car _%e7036270401%_))) + (_%tl7036470408%_ (let () (declare (not safe)) - (##cdr _%e6924969288%_)))) - (if (gx#stx-pair? _%tl6925169295%_) - (let ((_%e6925269298%_ + (##cdr _%e7036270401%_)))) + (if (gx#stx-pair? _%tl7036470408%_) + (let ((_%e7036570411%_ (gx#syntax-e - _%tl6925169295%_))) - (let ((_%hd6925369302%_ + _%tl7036470408%_))) + (let ((_%hd7036670415%_ (let () (declare (not safe)) - (##car _%e6925269298%_))) - (_%tl6925469305%_ + (##car _%e7036570411%_))) + (_%tl7036770418%_ (let () (declare (not safe)) - (##cdr _%e6925269298%_)))) + (##cdr _%e7036570411%_)))) (if (gx#stx-pair? - _%tl6925469305%_) - (let ((_%e6925569308%_ + _%tl7036770418%_) + (let ((_%e7036870421%_ (gx#syntax-e - _%tl6925469305%_))) - (let ((_%hd6925669312%_ + _%tl7036770418%_))) + (let ((_%hd7036970425%_ (let () (declare (not safe)) - (##car _%e6925569308%_))) - (_%tl6925769315%_ + (##car _%e7036870421%_))) + (_%tl7037070428%_ (let () (declare (not safe)) - (##cdr _%e6925569308%_)))) + (##cdr _%e7036870421%_)))) (if (gx#stx-pair? - _%tl6925769315%_) - (let ((_%e6925869318%_ + _%tl7037070428%_) + (let ((_%e7037170431%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6925769315%_))) - (let ((_%hd6925969322%_ + (gx#syntax-e _%tl7037070428%_))) + (let ((_%hd7037270435%_ (let () (declare (not safe)) - (##car _%e6925869318%_))) - (_%tl6926069325%_ + (##car _%e7037170431%_))) + (_%tl7037370438%_ (let () (declare (not safe)) - (##cdr _%e6925869318%_)))) - (if (gx#stx-pair? _%tl6926069325%_) - (let ((_%e6926169328%_ - (gx#syntax-e _%tl6926069325%_))) - (let ((_%hd6926269332%_ + (##cdr _%e7037170431%_)))) + (if (gx#stx-pair? _%tl7037370438%_) + (let ((_%e7037470441%_ + (gx#syntax-e _%tl7037370438%_))) + (let ((_%hd7037570445%_ (let () (declare (not safe)) - (##car _%e6926169328%_))) - (_%tl6926369335%_ + (##car _%e7037470441%_))) + (_%tl7037670448%_ (let () (declare (not safe)) - (##cdr _%e6926169328%_)))) - (if (gx#stx-pair? _%tl6926369335%_) - (let ((_%e6926469338%_ - (gx#syntax-e _%tl6926369335%_))) - (let ((_%hd6926569342%_ + (##cdr _%e7037470441%_)))) + (if (gx#stx-pair? _%tl7037670448%_) + (let ((_%e7037770451%_ + (gx#syntax-e _%tl7037670448%_))) + (let ((_%hd7037870455%_ (let () (declare (not safe)) - (##car _%e6926469338%_))) - (_%tl6926669345%_ + (##car _%e7037770451%_))) + (_%tl7037970458%_ (let () (declare (not safe)) - (##cdr _%e6926469338%_)))) - (if (gx#stx-pair/null? _%hd6926569342%_) - (let ((_g91959_ + (##cdr _%e7037770451%_)))) + (if (gx#stx-pair/null? _%hd7037870455%_) + (let ((_g92822_ (gx#syntax-split-splice - _%hd6926569342%_ + _%hd7037870455%_ '0))) (begin - (let ((_g91960_ + (let ((_g92823_ (let () (declare (not safe)) - (if (##values? _g91959_) + (if (##values? _g92822_) (##values-length - _g91959_) + _g92822_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91960_ 2))) + (##fx= _g92823_ 2))) (error "Context expects 2 values" - _g91960_))) - (let ((_%target6926769348%_ + _g92823_))) + (let ((_%target7038070461%_ (let () (declare (not safe)) (##values-ref - _g91959_ + _g92822_ 0))) - (_%tl6926969351%_ + (_%tl7038270464%_ (let () (declare (not safe)) (##values-ref - _g91959_ + _g92822_ 1)))) (if (gx#stx-null? - _%tl6926969351%_) - (letrec ((_%loop6927069354%_ - (lambda (_%hd6926869358%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6927469361%_) - (if (gx#stx-pair? _%hd6926869358%_) - (let ((_%e6927169364%_ - (gx#syntax-e _%hd6926869358%_))) - (let ((_%lp-hd6927269368%_ + _%tl7038270464%_) + (letrec ((_%loop7038370467%_ + (lambda (_%hd7038170471%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body7038770474%_) + (if (gx#stx-pair? _%hd7038170471%_) + (let ((_%e7038470476%_ + (gx#syntax-e _%hd7038170471%_))) + (let ((_%lp-hd7038570480%_ (let () (declare (not safe)) - (##car _%e6927169364%_))) - (_%lp-tl6927369371%_ + (##car _%e7038470476%_))) + (_%lp-tl7038670483%_ (let () (declare (not safe)) - (##cdr _%e6927169364%_)))) - (_%loop6927069354%_ - _%lp-tl6927369371%_ - (cons _%lp-hd6927269368%_ - _%body6927469361%_)))) - (let ((_%body6927569374%_ - (reverse _%body6927469361%_))) - (if (gx#stx-null? _%tl6926669345%_) - ((lambda (_%L69378%_ - _%L69380%_ - _%L69381%_ - _%L69382%_ - _%L69383%_ - _%L69384%_) + (##cdr _%e7038470476%_)))) + (_%loop7038370467%_ + _%lp-tl7038670483%_ + (cons _%lp-hd7038570480%_ + _%body7038770474%_)))) + (let ((_%body7038870486%_ + (reverse _%body7038770474%_))) + (if (gx#stx-null? _%tl7037970458%_) + ((lambda (_%g7035670489%_ + _%g7035770491%_ + _%g7035870492%_ + _%g7035970493%_ + _%g7036070494%_ + _%g7036170495%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L69384%_ _%L69383%_) + (cons (cons _%g7036170495%_ + _%g7036070494%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) - (cons (cons _%L69382%_ + (cons (cons _%g7035970493%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L69381%_ (cons '#f '()))) + (cons _%g7035870492%_ (cons '#f '()))) (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L69380%_ '())) + (cons _%g7035770491%_ '())) (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L69382%_ - (foldr (lambda (_%g6941569418%_ + (cons _%g7035970493%_ + (foldr (lambda (_%g7052670529%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6941669421%_) - (cons _%g6941569418%_ _%g6941669421%_)) + _%g7052770532%_) + (cons _%g7052670529%_ _%g7052770532%_)) '() - _%L69378%_))) + _%g7035670489%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx68327%_))) - _%body6927569374%_ - _%hd6926269332%_ - _%hd6925969322%_ - _%hd6925669312%_ - _%hd6925369302%_ - _%hd6925069292%_) - (_%g6924169281%_ _%g6924269285%_))))))) - (_%loop6927069354%_ _%target6926769348%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6924169281%_ - _%g6924269285%_))))) - (_%g6924169281%_ _%g6924269285%_)))) - (_%g6924169281%_ _%g6924269285%_)))) - (_%g6924169281%_ _%g6924269285%_)))) - (_%g6924169281%_ _%g6924269285%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6924169281%_ - _%g6924269285%_)))) - (_%g6924169281%_ _%g6924269285%_)))) - (_%g6924169281%_ _%g6924269285%_))))) - (_%g6924069424%_ - (list _%id69235%_ + (gx#stx-source _%stx69450%_))) + _%body7038870486%_ + _%hd7037570445%_ + _%hd7037270435%_ + _%hd7036970425%_ + _%hd7036670415%_ + _%hd7036370405%_) + (_%g7035470394%_ _%g7035570398%_))))))) + (_%loop7038370467%_ _%target7038070461%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7035470394%_ + _%g7035570398%_))))) + (_%g7035470394%_ _%g7035570398%_)))) + (_%g7035470394%_ _%g7035570398%_)))) + (_%g7035470394%_ _%g7035570398%_)))) + (_%g7035470394%_ _%g7035570398%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7035470394%_ + _%g7035570398%_)))) + (_%g7035470394%_ _%g7035570398%_)))) + (_%g7035470394%_ _%g7035570398%_))))) + (_%g7035370535%_ + (list _%id70348%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature69237%_)) - _%signature69237%_ - _%return69238%_ + _%signature70350%_)) + _%signature70350%_ + _%return70351%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx68327%_ - _%return69238%_)) - _%body69239%_))))) - (_%make-checked-def68333%_ - (lambda (_%id69016%_ - _%unchecked-id69018%_ - _%signature69019%_ - _%return69020%_) - (let* ((_%g6902269066%_ - (lambda (_%g6902369062%_) + _%stx69450%_ + _%return70351%_)) + _%body70352%_))))) + (_%make-checked-def69456%_ + (lambda (_%id70131%_ + _%unchecked-id70133%_ + _%signature70134%_ + _%return70135%_) + (let* ((_%g7013770181%_ + (lambda (_%g7013870177%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6902369062%_))) - (_%g6902169231%_ - (lambda (_%g6902369070%_) - (if (gx#stx-pair? _%g6902369070%_) - (let ((_%e6903169073%_ - (gx#syntax-e _%g6902369070%_))) - (let ((_%hd6903269077%_ + _%g7013870177%_))) + (_%g7013670344%_ + (lambda (_%g7013870185%_) + (if (gx#stx-pair? _%g7013870185%_) + (let ((_%e7014670188%_ + (gx#syntax-e _%g7013870185%_))) + (let ((_%hd7014770192%_ (let () (declare (not safe)) - (##car _%e6903169073%_))) - (_%tl6903369080%_ + (##car _%e7014670188%_))) + (_%tl7014870195%_ (let () (declare (not safe)) - (##cdr _%e6903169073%_)))) - (if (gx#stx-pair? _%tl6903369080%_) - (let ((_%e6903469083%_ + (##cdr _%e7014670188%_)))) + (if (gx#stx-pair? _%tl7014870195%_) + (let ((_%e7014970198%_ (gx#syntax-e - _%tl6903369080%_))) - (let ((_%hd6903569087%_ + _%tl7014870195%_))) + (let ((_%hd7015070202%_ (let () (declare (not safe)) - (##car _%e6903469083%_))) - (_%tl6903669090%_ + (##car _%e7014970198%_))) + (_%tl7015170205%_ (let () (declare (not safe)) - (##cdr _%e6903469083%_)))) + (##cdr _%e7014970198%_)))) (if (gx#stx-pair? - _%tl6903669090%_) - (let ((_%e6903769093%_ + _%tl7015170205%_) + (let ((_%e7015270208%_ (gx#syntax-e - _%tl6903669090%_))) - (let ((_%hd6903869097%_ + _%tl7015170205%_))) + (let ((_%hd7015370212%_ (let () (declare (not safe)) - (##car _%e6903769093%_))) - (_%tl6903969100%_ + (##car _%e7015270208%_))) + (_%tl7015470215%_ (let () (declare (not safe)) - (##cdr _%e6903769093%_)))) + (##cdr _%e7015270208%_)))) (if (gx#stx-pair? - _%tl6903969100%_) - (let ((_%e6904069103%_ + _%tl7015470215%_) + (let ((_%e7015570218%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6903969100%_))) - (let ((_%hd6904169107%_ + (gx#syntax-e _%tl7015470215%_))) + (let ((_%hd7015670222%_ (let () (declare (not safe)) - (##car _%e6904069103%_))) - (_%tl6904269110%_ + (##car _%e7015570218%_))) + (_%tl7015770225%_ (let () (declare (not safe)) - (##cdr _%e6904069103%_)))) - (if (gx#stx-pair/null? _%hd6904169107%_) - (let ((_g91961_ - (gx#syntax-split-splice _%hd6904169107%_ '0))) + (##cdr _%e7015570218%_)))) + (if (gx#stx-pair/null? _%hd7015670222%_) + (let ((_g92824_ + (gx#syntax-split-splice _%hd7015670222%_ '0))) (begin - (let ((_g91962_ + (let ((_g92825_ (let () (declare (not safe)) - (if (##values? _g91961_) - (##values-length _g91961_) + (if (##values? _g92824_) + (##values-length _g92824_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91962_ 2))) + (##fx= _g92825_ 2))) (error "Context expects 2 values" - _g91962_))) - (let ((_%target6904369113%_ + _g92825_))) + (let ((_%target7015870228%_ (let () (declare (not safe)) - (##values-ref _g91961_ 0))) - (_%tl6904569116%_ + (##values-ref _g92824_ 0))) + (_%tl7016070231%_ (let () (declare (not safe)) - (##values-ref _g91961_ 1)))) - (if (gx#stx-null? _%tl6904569116%_) - (letrec ((_%loop6904669119%_ - (lambda (_%hd6904469123%_ - _%out6905069126%_) + (##values-ref _g92824_ 1)))) + (if (gx#stx-null? _%tl7016070231%_) + (letrec ((_%loop7016170234%_ + (lambda (_%hd7015970238%_ + _%out7016570241%_) (if (gx#stx-pair? - _%hd6904469123%_) - (let ((_%e6904769129%_ + _%hd7015970238%_) + (let ((_%e7016270243%_ (gx#syntax-e - _%hd6904469123%_))) - (let ((_%lp-hd6904869133%_ + _%hd7015970238%_))) + (let ((_%lp-hd7016370247%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e6904769129%_))) - (_%lp-tl6904969136%_ - (let () (declare (not safe)) (##cdr _%e6904769129%_)))) - (_%loop6904669119%_ - _%lp-tl6904969136%_ - (cons _%lp-hd6904869133%_ _%out6905069126%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%out6905169139%_ - (reverse _%out6905069126%_))) + (##car _%e7016270243%_))) + (_%lp-tl7016470250%_ + (let () (declare (not safe)) (##cdr _%e7016270243%_)))) + (_%loop7016170234%_ + _%lp-tl7016470250%_ + (cons _%lp-hd7016370247%_ _%out7016570241%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%out7016670253%_ + (reverse _%out7016570241%_))) (if (gx#stx-pair? - _%tl6904269110%_) - (let ((_%e6905269143%_ + _%tl7015770225%_) + (let ((_%e7016770256%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6904269110%_))) - (let ((_%hd6905369147%_ + (gx#syntax-e _%tl7015770225%_))) + (let ((_%hd7016870260%_ (let () (declare (not safe)) - (##car _%e6905269143%_))) - (_%tl6905469150%_ + (##car _%e7016770256%_))) + (_%tl7016970263%_ (let () (declare (not safe)) - (##cdr _%e6905269143%_)))) - (if (gx#stx-pair? _%tl6905469150%_) - (let ((_%e6905569153%_ - (gx#syntax-e _%tl6905469150%_))) - (let ((_%hd6905669157%_ + (##cdr _%e7016770256%_)))) + (if (gx#stx-pair? _%tl7016970263%_) + (let ((_%e7017070266%_ + (gx#syntax-e _%tl7016970263%_))) + (let ((_%hd7017170270%_ (let () (declare (not safe)) - (##car _%e6905569153%_))) - (_%tl6905769160%_ + (##car _%e7017070266%_))) + (_%tl7017270273%_ (let () (declare (not safe)) - (##cdr _%e6905569153%_)))) - (if (gx#stx-pair? _%tl6905769160%_) - (let ((_%e6905869163%_ - (gx#syntax-e _%tl6905769160%_))) - (let ((_%hd6905969167%_ + (##cdr _%e7017070266%_)))) + (if (gx#stx-pair? _%tl7017270273%_) + (let ((_%e7017370276%_ + (gx#syntax-e _%tl7017270273%_))) + (let ((_%hd7017470280%_ (let () (declare (not safe)) - (##car _%e6905869163%_))) - (_%tl6906069170%_ + (##car _%e7017370276%_))) + (_%tl7017570283%_ (let () (declare (not safe)) - (##cdr _%e6905869163%_)))) - (if (gx#stx-null? _%tl6906069170%_) - ((lambda (_%L69173%_ - _%L69175%_ - _%L69176%_ - _%L69177%_ - _%L69178%_ - _%L69179%_ - _%L69180%_) - (if (gx#stx-list? _%L69176%_) + (##cdr _%e7017370276%_)))) + (if (gx#stx-null? _%tl7017570283%_) + ((lambda (_%g7013970286%_ + _%g7014070288%_ + _%g7014170289%_ + _%g7014270290%_ + _%g7014370291%_ + _%g7014470292%_ + _%g7014570293%_) + (if (gx#stx-list? _%g7014170289%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L69180%_ + (cons (cons _%g7014570293%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L69178%_) + _%g7014370291%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) - (cons (cons _%L69176%_ - (cons _%L69175%_ - (cons _%L69179%_ '()))) + (cons (cons _%g7014170289%_ + (cons _%g7014070288%_ + (cons _%g7014470292%_ + '()))) (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -825,36 +836,37 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L69173%_ '())) + (cons _%g7013970286%_ '())) (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L69176%_ - (cons (cons _%L69179%_ - (foldr (lambda (_%g6921469217%_ - _%g6921569220%_) - (cons _%g6921469217%_ - _%g6921569220%_)) + (cons _%g7014170289%_ + (cons (cons _%g7014470292%_ + (foldr (lambda (_%g7032770330%_ + _%g7032870333%_) + (cons _%g7032770330%_ + _%g7032870333%_)) '() - _%L69177%_)) + _%g7014270290%_)) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx68327%_)) + (gx#stx-source _%stx69450%_)) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L69180%_ + (cons (cons _%g7014570293%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L69178%_) + _%g7014370291%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) - (cons (cons _%L69176%_ - (cons _%L69175%_ - (cons _%L69179%_ '()))) + (cons (cons _%g7014170289%_ + (cons _%g7014070288%_ + (cons _%g7014470292%_ + '()))) (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -862,17 +874,17 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L69173%_ '())) + (cons _%g7013970286%_ '())) (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L69176%_ + (cons _%g7014170289%_ (cons (cons (gx#datum->syntax '#f '##apply) - (cons _%L69179%_ - (foldr (lambda (_%g6922269225%_ + (cons _%g7014470292%_ + (foldr (lambda (_%g7033570338%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6922369228%_) - (cons _%g6922269225%_ _%g6922369228%_)) + _%g7033670341%_) + (cons _%g7033570338%_ _%g7033670341%_)) '() - _%L69177%_))) + _%g7014270290%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) @@ -881,2317 +893,2340 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _%stx68327%_)))) - _%hd6905969167%_ - _%hd6905669157%_ - _%hd6905369147%_ - _%out6905169139%_ - _%hd6903869097%_ - _%hd6903569087%_ - _%hd6903269077%_) - (_%g6902269066%_ _%g6902369070%_)))) - (_%g6902269066%_ _%g6902369070%_)))) - (_%g6902269066%_ _%g6902369070%_)))) - (_%g6902269066%_ _%g6902369070%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6904669119%_ - _%target6904369113%_ + _%stx69450%_)))) + _%hd7017470280%_ + _%hd7017170270%_ + _%hd7016870260%_ + _%out7016670253%_ + _%hd7015370212%_ + _%hd7015070202%_ + _%hd7014770192%_) + (_%g7013770181%_ _%g7013870185%_)))) + (_%g7013770181%_ _%g7013870185%_)))) + (_%g7013770181%_ _%g7013870185%_)))) + (_%g7013770181%_ _%g7013870185%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7016170234%_ + _%target7015870228%_ '())) - (_%g6902269066%_ _%g6902369070%_))))) - (_%g6902269066%_ _%g6902369070%_)))) - (_%g6902269066%_ _%g6902369070%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6902269066%_ - _%g6902369070%_)))) - (_%g6902269066%_ _%g6902369070%_)))) - (_%g6902269066%_ _%g6902369070%_))))) - (_%g6902169231%_ - (list _%id69016%_ - _%unchecked-id69018%_ + (_%g7013770181%_ _%g7013870185%_))))) + (_%g7013770181%_ _%g7013870185%_)))) + (_%g7013770181%_ _%g7013870185%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7013770181%_ + _%g7013870185%_)))) + (_%g7013770181%_ _%g7013870185%_)))) + (_%g7013770181%_ _%g7013870185%_))))) + (_%g7013670344%_ + (list _%id70131%_ + _%unchecked-id70133%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature69019%_)) + _%signature70134%_)) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature69019%_)) - _%signature69019%_ - _%return69020%_ + _%signature70134%_)) + _%signature70134%_ + _%return70135%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx68327%_ - _%return69020%_))))))) - (_%make-unchecked-def68334%_ - (lambda (_%unchecked-id68841%_ - _%signature68843%_ - _%return68844%_ - _%body68845%_) - (let* ((_%g6884768883%_ - (lambda (_%g6884868879%_) + _%stx69450%_ + _%return70135%_))))))) + (_%make-unchecked-def69457%_ + (lambda (_%unchecked-id69958%_ + _%signature69960%_ + _%return69961%_ + _%body69962%_) + (let* ((_%g6996470000%_ + (lambda (_%g6996569996%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6884868879%_))) - (_%g6884669012%_ - (lambda (_%g6884868887%_) - (if (gx#stx-pair? _%g6884868887%_) - (let ((_%e6885468890%_ - (gx#syntax-e _%g6884868887%_))) - (let ((_%hd6885568894%_ + _%g6996569996%_))) + (_%g6996370127%_ + (lambda (_%g6996570004%_) + (if (gx#stx-pair? _%g6996570004%_) + (let ((_%e6997170007%_ + (gx#syntax-e _%g6996570004%_))) + (let ((_%hd6997270011%_ (let () (declare (not safe)) - (##car _%e6885468890%_))) - (_%tl6885668897%_ + (##car _%e6997170007%_))) + (_%tl6997370014%_ (let () (declare (not safe)) - (##cdr _%e6885468890%_)))) - (if (gx#stx-pair? _%tl6885668897%_) - (let ((_%e6885768900%_ + (##cdr _%e6997170007%_)))) + (if (gx#stx-pair? _%tl6997370014%_) + (let ((_%e6997470017%_ (gx#syntax-e - _%tl6885668897%_))) - (let ((_%hd6885868904%_ + _%tl6997370014%_))) + (let ((_%hd6997570021%_ (let () (declare (not safe)) - (##car _%e6885768900%_))) - (_%tl6885968907%_ + (##car _%e6997470017%_))) + (_%tl6997670024%_ (let () (declare (not safe)) - (##cdr _%e6885768900%_)))) + (##cdr _%e6997470017%_)))) (if (gx#stx-pair? - _%tl6885968907%_) - (let ((_%e6886068910%_ + _%tl6997670024%_) + (let ((_%e6997770027%_ (gx#syntax-e - _%tl6885968907%_))) - (let ((_%hd6886168914%_ + _%tl6997670024%_))) + (let ((_%hd6997870031%_ (let () (declare (not safe)) - (##car _%e6886068910%_))) - (_%tl6886268917%_ + (##car _%e6997770027%_))) + (_%tl6997970034%_ (let () (declare (not safe)) - (##cdr _%e6886068910%_)))) + (##cdr _%e6997770027%_)))) (if (gx#stx-pair? - _%tl6886268917%_) - (let ((_%e6886368920%_ + _%tl6997970034%_) + (let ((_%e6998070037%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6886268917%_))) - (let ((_%hd6886468924%_ + (gx#syntax-e _%tl6997970034%_))) + (let ((_%hd6998170041%_ (let () (declare (not safe)) - (##car _%e6886368920%_))) - (_%tl6886568927%_ + (##car _%e6998070037%_))) + (_%tl6998270044%_ (let () (declare (not safe)) - (##cdr _%e6886368920%_)))) - (if (gx#stx-pair? _%tl6886568927%_) - (let ((_%e6886668930%_ - (gx#syntax-e _%tl6886568927%_))) - (let ((_%hd6886768934%_ + (##cdr _%e6998070037%_)))) + (if (gx#stx-pair? _%tl6998270044%_) + (let ((_%e6998370047%_ + (gx#syntax-e _%tl6998270044%_))) + (let ((_%hd6998470051%_ (let () (declare (not safe)) - (##car _%e6886668930%_))) - (_%tl6886868937%_ + (##car _%e6998370047%_))) + (_%tl6998570054%_ (let () (declare (not safe)) - (##cdr _%e6886668930%_)))) - (if (gx#stx-pair/null? _%hd6886768934%_) - (let ((_g91963_ + (##cdr _%e6998370047%_)))) + (if (gx#stx-pair/null? _%hd6998470051%_) + (let ((_g92826_ (gx#syntax-split-splice - _%hd6886768934%_ + _%hd6998470051%_ '0))) (begin - (let ((_g91964_ + (let ((_g92827_ (let () (declare (not safe)) - (if (##values? _g91963_) - (##values-length _g91963_) + (if (##values? _g92826_) + (##values-length _g92826_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91964_ 2))) + (##fx= _g92827_ 2))) (error "Context expects 2 values" - _g91964_))) - (let ((_%target6886968940%_ + _g92827_))) + (let ((_%target6998670057%_ (let () (declare (not safe)) - (##values-ref _g91963_ 0))) - (_%tl6887168943%_ + (##values-ref _g92826_ 0))) + (_%tl6998870060%_ (let () (declare (not safe)) - (##values-ref _g91963_ 1)))) - (if (gx#stx-null? _%tl6887168943%_) - (letrec ((_%loop6887268946%_ - (lambda (_%hd6887068950%_ - _%body6887668953%_) + (##values-ref _g92826_ 1)))) + (if (gx#stx-null? _%tl6998870060%_) + (letrec ((_%loop6998970063%_ + (lambda (_%hd6998770067%_ + _%body6999370070%_) (if (gx#stx-pair? - _%hd6887068950%_) - (let ((_%e6887368956%_ + _%hd6998770067%_) + (let ((_%e6999070072%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6887068950%_))) - (let ((_%lp-hd6887468960%_ + (gx#syntax-e _%hd6998770067%_))) + (let ((_%lp-hd6999170076%_ (let () (declare (not safe)) - (##car _%e6887368956%_))) - (_%lp-tl6887568963%_ + (##car _%e6999070072%_))) + (_%lp-tl6999270079%_ (let () (declare (not safe)) - (##cdr _%e6887368956%_)))) - (_%loop6887268946%_ - _%lp-tl6887568963%_ - (cons _%lp-hd6887468960%_ _%body6887668953%_)))) - (let ((_%body6887768966%_ (reverse _%body6887668953%_))) - (if (gx#stx-null? _%tl6886868937%_) - ((lambda (_%L68970%_ - _%L68972%_ - _%L68973%_ - _%L68974%_ - _%L68975%_) + (##cdr _%e6999070072%_)))) + (_%loop6998970063%_ + _%lp-tl6999270079%_ + (cons _%lp-hd6999170076%_ _%body6999370070%_)))) + (let ((_%body6999470082%_ (reverse _%body6999370070%_))) + (if (gx#stx-null? _%tl6998570054%_) + ((lambda (_%g6996670085%_ + _%g6996770087%_ + _%g6996870088%_ + _%g6996970089%_ + _%g6997070090%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L68975%_ _%L68974%_) + (cons (cons _%g6997070090%_ + _%g6996970089%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L68972%_ (cons '#f '()))) + (cons _%g6996770087%_ (cons '#f '()))) (cons (cons (gx#datum->syntax '#f 'with-procedure-unchecked-contract) - (cons _%L68973%_ - (foldr (lambda (_%g6900369006%_ - _%g6900469009%_) - (cons _%g6900369006%_ - _%g6900469009%_)) + (cons _%g6996870088%_ + (foldr (lambda (_%g7011870121%_ + _%g7011970124%_) + (cons _%g7011870121%_ + _%g7011970124%_)) '() - _%L68970%_))) + _%g6996670085%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx68327%_))) - _%body6887768966%_ - _%hd6886468924%_ - _%hd6886168914%_ - _%hd6885868904%_ - _%hd6885568894%_) - (_%g6884768883%_ _%g6884868887%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6887268946%_ - _%target6886968940%_ + (gx#stx-source _%stx69450%_))) + _%body6999470082%_ + _%hd6998170041%_ + _%hd6997870031%_ + _%hd6997570021%_ + _%hd6997270011%_) + (_%g6996470000%_ _%g6996570004%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6998970063%_ + _%target6998670057%_ '())) - (_%g6884768883%_ - _%g6884868887%_))))) - (_%g6884768883%_ _%g6884868887%_)))) - (_%g6884768883%_ _%g6884868887%_)))) - (_%g6884768883%_ _%g6884868887%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6884768883%_ - _%g6884868887%_)))) - (_%g6884768883%_ _%g6884868887%_)))) - (_%g6884768883%_ _%g6884868887%_))))) - (_%g6884669012%_ - (list _%unchecked-id68841%_ + (_%g6996470000%_ + _%g6996570004%_))))) + (_%g6996470000%_ _%g6996570004%_)))) + (_%g6996470000%_ _%g6996570004%_)))) + (_%g6996470000%_ _%g6996570004%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6996470000%_ + _%g6996570004%_)))) + (_%g6996470000%_ _%g6996570004%_)))) + (_%g6996470000%_ _%g6996570004%_))))) + (_%g6996370127%_ + (list _%unchecked-id69958%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature68843%_)) - _%signature68843%_ - _%return68844%_ - _%body68845%_)))))) - (let* ((_%__stx8951389514%_ _%stx68327%_) - (_%g6833968431%_ + _%signature69960%_)) + _%signature69960%_ + _%return69961%_ + _%body69962%_)))))) + (let* ((_%__stx9046090461%_ _%stx69450%_) + (_%g6946269554%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8951389514%_)))) - (let ((_%__kont8951689517%_ - (lambda (_%L68792%_ _%L68794%_ _%L68795%_ _%L68796%_) + _%__stx9046090461%_)))) + (let ((_%__kont9046390464%_ + (lambda (_%g6946469909%_ + _%g6946569911%_ + _%g6946669912%_ + _%g6946769913%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L68795%_) - (_%make-definition68330%_ - _%L68796%_ - _%L68795%_ - _%L68794%_ - (foldr (lambda (_%g6882068823%_ _%g6882168826%_) - (cons _%g6882068823%_ _%g6882168826%_)) + _%g6946669912%_) + (_%make-definition69453%_ + _%g6946769913%_ + _%g6946669912%_ + _%g6946569911%_ + (foldr (lambda (_%g6993769940%_ _%g6993869943%_) + (cons _%g6993769940%_ _%g6993869943%_)) '() - _%L68792%_)) + _%g6946469909%_)) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L68796%_ _%L68795%_) + (cons (cons _%g6946769913%_ _%g6946669912%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f - (cons _%L68794%_ + (cons _%g6946569911%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '#f '()))) - (foldr (lambda (_%g6882868831%_ _%g6882968834%_) - (cons _%g6882868831%_ _%g6882968834%_)) + (foldr (lambda (_%g6994569948%_ _%g6994669951%_) + (cons _%g6994569948%_ _%g6994669951%_)) '() - _%L68792%_))) + _%g6946469909%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont8952089521%_ - (lambda (_%L68666%_ _%L68668%_ _%L68669%_) + (_%__kont9046790468%_ + (lambda (_%g6949269785%_ _%g6949369787%_ _%g6949469788%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L68668%_) + _%g6949369787%_) (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L68669%_ _%L68668%_) + (cons (cons _%g6949469788%_ _%g6949369787%_) (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6868868691%_ + (foldr (lambda (_%g6980769810%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6868968694%_) - (cons _%g6868868691%_ _%g6868968694%_)) + _%g6980869813%_) + (cons _%g6980769810%_ _%g6980869813%_)) '() - _%L68666%_))))) + _%g6949269785%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L68669%_ _%L68668%_) - (foldr (lambda (_%g6869668699%_ - _%g6869768702%_) - (cons _%g6869668699%_ - _%g6869768702%_)) + (cons (cons _%g6949469788%_ _%g6949369787%_) + (foldr (lambda (_%g6981569818%_ + _%g6981669821%_) + (cons _%g6981569818%_ + _%g6981669821%_)) '() - _%L68666%_)))))) - (_%__kont8952489525%_ - (lambda (_%L68564%_ _%L68566%_ _%L68567%_ _%L68568%_) + _%g6949269785%_)))))) + (_%__kont9047190472%_ + (lambda (_%g6951369685%_ + _%g6951469687%_ + _%g6951569688%_ + _%g6951669689%_) (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L68568%_ _%L68567%_) + (cons (cons _%g6951669689%_ _%g6951569688%_) (cons (cons (gx#datum->syntax '#f 'lambda/c) - (cons _%L68566%_ - (foldr (lambda (_%g6859068593%_ + (cons _%g6951469687%_ + (foldr (lambda (_%g6971169714%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6859168596%_) - (cons _%g6859068593%_ _%g6859168596%_)) + _%g6971269717%_) + (cons _%g6971169714%_ _%g6971269717%_)) '() - _%L68564%_))) + _%g6951369685%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont8952889529%_ - (lambda (_%L68468%_ _%L68470%_) + (_%__kont9047590476%_ + (lambda (_%g6953869591%_ _%g6953969593%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L68470%_ (cons _%L68468%_ '())))))) - (let* ((_%__match8965089651%_ - (lambda (_%e6841768438%_ - _%hd6841868442%_ - _%tl6841968445%_ - _%e6842068448%_ - _%hd6842168452%_ - _%tl6842268455%_ - _%e6842368458%_ - _%hd6842468462%_ - _%tl6842568465%_) - (let ((_%L68468%_ _%hd6842468462%_) - (_%L68470%_ _%hd6842168452%_)) - (if (gx#identifier? _%L68470%_) - (_%__kont8952889529%_ _%L68468%_ _%L68470%_) + (cons _%g6953969593%_ + (cons _%g6953869591%_ '())))))) + (let* ((_%__match9059790598%_ + (lambda (_%e6954069561%_ + _%hd6954169565%_ + _%tl6954269568%_ + _%e6954369571%_ + _%hd6954469575%_ + _%tl6954569578%_ + _%e6954669581%_ + _%hd6954769585%_ + _%tl6954869588%_) + (let ((_%g6953869591%_ _%hd6954769585%_) + (_%g6953969593%_ _%hd6954469575%_)) + (if (gx#identifier? _%g6953969593%_) + (_%__kont9047590476%_ + _%g6953869591%_ + _%g6953969593%_) (let () (declare (not safe)) - (_%g6833968431%_)))))) - (_%__match8963089631%_ - (lambda (_%e6839468494%_ - _%hd6839568498%_ - _%tl6839668501%_ - _%e6839768504%_ - _%hd6839868508%_ - _%tl6839968511%_ - _%e6840068514%_ - _%hd6840168518%_ - _%tl6840268521%_ - _%e6840368524%_ - _%hd6840468528%_ - _%tl6840568531%_ - _%__splice8952689527%_ - _%target6840668534%_ - _%tl6840868537%_) - (letrec ((_%loop6840968540%_ - (lambda (_%hd6840768544%_ _%body6841368547%_) - (if (gx#stx-pair? _%hd6840768544%_) - (let ((_%e6841068550%_ - (gx#syntax-e _%hd6840768544%_))) - (let ((_%lp-tl6841268557%_ + (_%g6946269554%_)))))) + (_%__match9057790578%_ + (lambda (_%e6951769617%_ + _%hd6951869621%_ + _%tl6951969624%_ + _%e6952069627%_ + _%hd6952169631%_ + _%tl6952269634%_ + _%e6952369637%_ + _%hd6952469641%_ + _%tl6952569644%_ + _%e6952669647%_ + _%hd6952769651%_ + _%tl6952869654%_ + _%__splice9047390474%_ + _%target6952969657%_ + _%tl6953169660%_) + (letrec ((_%loop6953269663%_ + (lambda (_%hd6953069667%_ _%body6953669670%_) + (if (gx#stx-pair? _%hd6953069667%_) + (let ((_%e6953369672%_ + (gx#syntax-e _%hd6953069667%_))) + (let ((_%lp-tl6953569679%_ (let () (declare (not safe)) - (##cdr _%e6841068550%_))) - (_%lp-hd6841168554%_ + (##cdr _%e6953369672%_))) + (_%lp-hd6953469676%_ (let () (declare (not safe)) - (##car _%e6841068550%_)))) - (_%loop6840968540%_ - _%lp-tl6841268557%_ - (cons _%lp-hd6841168554%_ - _%body6841368547%_)))) - (let ((_%body6841468560%_ - (reverse _%body6841368547%_))) - (_%__kont8952489525%_ - _%body6841468560%_ - _%tl6840268521%_ - _%tl6840568531%_ - _%hd6840468528%_)))))) - (_%loop6840968540%_ _%target6840668534%_ '())))) - (_%__match8961689617%_ - (lambda (_%e6839468494%_ - _%hd6839568498%_ - _%tl6839668501%_ - _%e6839768504%_ - _%hd6839868508%_ - _%tl6839968511%_ - _%e6840068514%_ - _%hd6840168518%_ - _%tl6840268521%_) - (if (gx#stx-pair? _%hd6840168518%_) - (let ((_%e6840368524%_ - (gx#syntax-e _%hd6840168518%_))) - (let ((_%tl6840568531%_ + (##car _%e6953369672%_)))) + (_%loop6953269663%_ + _%lp-tl6953569679%_ + (cons _%lp-hd6953469676%_ + _%body6953669670%_)))) + (let ((_%body6953769682%_ + (reverse _%body6953669670%_))) + (_%__kont9047190472%_ + _%body6953769682%_ + _%tl6952569644%_ + _%tl6952869654%_ + _%hd6952769651%_)))))) + (_%loop6953269663%_ _%target6952969657%_ '())))) + (_%__match9056390564%_ + (lambda (_%e6951769617%_ + _%hd6951869621%_ + _%tl6951969624%_ + _%e6952069627%_ + _%hd6952169631%_ + _%tl6952269634%_ + _%e6952369637%_ + _%hd6952469641%_ + _%tl6952569644%_) + (if (gx#stx-pair? _%hd6952469641%_) + (let ((_%e6952669647%_ + (gx#syntax-e _%hd6952469641%_))) + (let ((_%tl6952869654%_ (let () (declare (not safe)) - (##cdr _%e6840368524%_))) - (_%hd6840468528%_ + (##cdr _%e6952669647%_))) + (_%hd6952769651%_ (let () (declare (not safe)) - (##car _%e6840368524%_)))) - (if (gx#stx-pair/null? _%tl6839968511%_) - (let ((_%__splice8952689527%_ + (##car _%e6952669647%_)))) + (if (gx#stx-pair/null? _%tl6952269634%_) + (let ((_%__splice9047390474%_ (gx#syntax-split-splice->vector - _%tl6839968511%_ + _%tl6952269634%_ '0))) - (let ((_%tl6840868537%_ + (let ((_%tl6953169660%_ (let () (declare (not safe)) (##vector-ref - _%__splice8952689527%_ + _%__splice9047390474%_ '1))) - (_%target6840668534%_ + (_%target6952969657%_ (let () (declare (not safe)) (##vector-ref - _%__splice8952689527%_ + _%__splice9047390474%_ '0)))) - (if (gx#stx-null? _%tl6840868537%_) - (_%__match8963089631%_ - _%e6839468494%_ - _%hd6839568498%_ - _%tl6839668501%_ - _%e6839768504%_ - _%hd6839868508%_ - _%tl6839968511%_ - _%e6840068514%_ - _%hd6840168518%_ - _%tl6840268521%_ - _%e6840368524%_ - _%hd6840468528%_ - _%tl6840568531%_ - _%__splice8952689527%_ - _%target6840668534%_ - _%tl6840868537%_) - (if (gx#stx-pair? _%tl6839968511%_) - (let ((_%e6842368458%_ + (if (gx#stx-null? _%tl6953169660%_) + (_%__match9057790578%_ + _%e6951769617%_ + _%hd6951869621%_ + _%tl6951969624%_ + _%e6952069627%_ + _%hd6952169631%_ + _%tl6952269634%_ + _%e6952369637%_ + _%hd6952469641%_ + _%tl6952569644%_ + _%e6952669647%_ + _%hd6952769651%_ + _%tl6952869654%_ + _%__splice9047390474%_ + _%target6952969657%_ + _%tl6953169660%_) + (if (gx#stx-pair? _%tl6952269634%_) + (let ((_%e6954669581%_ (gx#syntax-e - _%tl6839968511%_))) - (let ((_%tl6842568465%_ + _%tl6952269634%_))) + (let ((_%tl6954869588%_ (let () (declare (not safe)) - (##cdr _%e6842368458%_))) - (_%hd6842468462%_ + (##cdr _%e6954669581%_))) + (_%hd6954769585%_ (let () (declare (not safe)) - (##car _%e6842368458%_)))) + (##car _%e6954669581%_)))) (if (gx#stx-null? - _%tl6842568465%_) - (_%__match8965089651%_ - _%e6839468494%_ - _%hd6839568498%_ - _%tl6839668501%_ - _%e6839768504%_ - _%hd6839868508%_ - _%tl6839968511%_ - _%e6842368458%_ - _%hd6842468462%_ - _%tl6842568465%_) + _%tl6954869588%_) + (_%__match9059790598%_ + _%e6951769617%_ + _%hd6951869621%_ + _%tl6951969624%_ + _%e6952069627%_ + _%hd6952169631%_ + _%tl6952269634%_ + _%e6954669581%_ + _%hd6954769585%_ + _%tl6954869588%_) (let () (declare (not safe)) - (_%g6833968431%_))))) + (_%g6946269554%_))))) (let () (declare (not safe)) - (_%g6833968431%_)))))) - (if (gx#stx-pair? _%tl6839968511%_) - (let ((_%e6842368458%_ - (gx#syntax-e _%tl6839968511%_))) - (let ((_%tl6842568465%_ + (_%g6946269554%_)))))) + (if (gx#stx-pair? _%tl6952269634%_) + (let ((_%e6954669581%_ + (gx#syntax-e _%tl6952269634%_))) + (let ((_%tl6954869588%_ (let () (declare (not safe)) - (##cdr _%e6842368458%_))) - (_%hd6842468462%_ + (##cdr _%e6954669581%_))) + (_%hd6954769585%_ (let () (declare (not safe)) - (##car _%e6842368458%_)))) - (if (gx#stx-null? _%tl6842568465%_) - (_%__match8965089651%_ - _%e6839468494%_ - _%hd6839568498%_ - _%tl6839668501%_ - _%e6839768504%_ - _%hd6839868508%_ - _%tl6839968511%_ - _%e6842368458%_ - _%hd6842468462%_ - _%tl6842568465%_) + (##car _%e6954669581%_)))) + (if (gx#stx-null? _%tl6954869588%_) + (_%__match9059790598%_ + _%e6951769617%_ + _%hd6951869621%_ + _%tl6951969624%_ + _%e6952069627%_ + _%hd6952169631%_ + _%tl6952269634%_ + _%e6954669581%_ + _%hd6954769585%_ + _%tl6954869588%_) (let () (declare (not safe)) - (_%g6833968431%_))))) + (_%g6946269554%_))))) (let () (declare (not safe)) - (_%g6833968431%_)))))) - (if (gx#stx-pair? _%tl6839968511%_) - (let ((_%e6842368458%_ - (gx#syntax-e _%tl6839968511%_))) - (let ((_%tl6842568465%_ + (_%g6946269554%_)))))) + (if (gx#stx-pair? _%tl6952269634%_) + (let ((_%e6954669581%_ + (gx#syntax-e _%tl6952269634%_))) + (let ((_%tl6954869588%_ (let () (declare (not safe)) - (##cdr _%e6842368458%_))) - (_%hd6842468462%_ + (##cdr _%e6954669581%_))) + (_%hd6954769585%_ (let () (declare (not safe)) - (##car _%e6842368458%_)))) - (if (gx#stx-null? _%tl6842568465%_) - (_%__match8965089651%_ - _%e6839468494%_ - _%hd6839568498%_ - _%tl6839668501%_ - _%e6839768504%_ - _%hd6839868508%_ - _%tl6839968511%_ - _%e6842368458%_ - _%hd6842468462%_ - _%tl6842568465%_) + (##car _%e6954669581%_)))) + (if (gx#stx-null? _%tl6954869588%_) + (_%__match9059790598%_ + _%e6951769617%_ + _%hd6951869621%_ + _%tl6951969624%_ + _%e6952069627%_ + _%hd6952169631%_ + _%tl6952269634%_ + _%e6954669581%_ + _%hd6954769585%_ + _%tl6954869588%_) (let () (declare (not safe)) - (_%g6833968431%_))))) + (_%g6946269554%_))))) (let () (declare (not safe)) - (_%g6833968431%_)))))) - (_%__match8959889599%_ - (lambda (_%e6837268606%_ - _%hd6837368610%_ - _%tl6837468613%_ - _%e6837568616%_ - _%hd6837668620%_ - _%tl6837768623%_ - _%e6837868626%_ - _%hd6837968630%_ - _%tl6838068633%_ - _%__splice8952289523%_ - _%target6838168636%_ - _%tl6838368639%_) - (letrec ((_%loop6838468642%_ - (lambda (_%hd6838268646%_ _%body6838868649%_) - (if (gx#stx-pair? _%hd6838268646%_) - (let ((_%e6838568652%_ - (gx#syntax-e _%hd6838268646%_))) - (let ((_%lp-tl6838768659%_ + (_%g6946269554%_)))))) + (_%__match9054590546%_ + (lambda (_%e6949569727%_ + _%hd6949669731%_ + _%tl6949769734%_ + _%e6949869737%_ + _%hd6949969741%_ + _%tl6950069744%_ + _%e6950169747%_ + _%hd6950269751%_ + _%tl6950369754%_ + _%__splice9046990470%_ + _%target6950469757%_ + _%tl6950669760%_) + (letrec ((_%loop6950769763%_ + (lambda (_%hd6950569767%_ _%body6951169770%_) + (if (gx#stx-pair? _%hd6950569767%_) + (let ((_%e6950869772%_ + (gx#syntax-e _%hd6950569767%_))) + (let ((_%lp-tl6951069779%_ (let () (declare (not safe)) - (##cdr _%e6838568652%_))) - (_%lp-hd6838668656%_ + (##cdr _%e6950869772%_))) + (_%lp-hd6950969776%_ (let () (declare (not safe)) - (##car _%e6838568652%_)))) - (_%loop6838468642%_ - _%lp-tl6838768659%_ - (cons _%lp-hd6838668656%_ - _%body6838868649%_)))) - (let ((_%body6838968662%_ - (reverse _%body6838868649%_))) - (let ((_%L68666%_ _%body6838968662%_) - (_%L68668%_ _%tl6838068633%_) - (_%L68669%_ _%hd6837968630%_)) - (if (gx#identifier? _%L68669%_) - (_%__kont8952089521%_ - _%L68666%_ - _%L68668%_ - _%L68669%_) - (_%__match8961689617%_ - _%e6837268606%_ - _%hd6837368610%_ - _%tl6837468613%_ - _%e6837568616%_ - _%hd6837668620%_ - _%tl6837768623%_ - _%e6837868626%_ - _%hd6837968630%_ - _%tl6838068633%_)))))))) - (_%loop6838468642%_ _%target6838168636%_ '())))) - (_%__match8959089591%_ - (lambda (_%e6837268606%_ - _%hd6837368610%_ - _%tl6837468613%_ - _%e6837568616%_ - _%hd6837668620%_ - _%tl6837768623%_ - _%e6837868626%_ - _%hd6837968630%_ - _%tl6838068633%_) - (if (gx#stx-pair/null? _%tl6837768623%_) - (let ((_%__splice8952289523%_ + (##car _%e6950869772%_)))) + (_%loop6950769763%_ + _%lp-tl6951069779%_ + (cons _%lp-hd6950969776%_ + _%body6951169770%_)))) + (let ((_%body6951269782%_ + (reverse _%body6951169770%_))) + (let ((_%g6949269785%_ + _%body6951269782%_) + (_%g6949369787%_ + _%tl6950369754%_) + (_%g6949469788%_ + _%hd6950269751%_)) + (if (gx#identifier? + _%g6949469788%_) + (_%__kont9046790468%_ + _%g6949269785%_ + _%g6949369787%_ + _%g6949469788%_) + (_%__match9056390564%_ + _%e6949569727%_ + _%hd6949669731%_ + _%tl6949769734%_ + _%e6949869737%_ + _%hd6949969741%_ + _%tl6950069744%_ + _%e6950169747%_ + _%hd6950269751%_ + _%tl6950369754%_)))))))) + (_%loop6950769763%_ _%target6950469757%_ '())))) + (_%__match9053790538%_ + (lambda (_%e6949569727%_ + _%hd6949669731%_ + _%tl6949769734%_ + _%e6949869737%_ + _%hd6949969741%_ + _%tl6950069744%_ + _%e6950169747%_ + _%hd6950269751%_ + _%tl6950369754%_) + (if (gx#stx-pair/null? _%tl6950069744%_) + (let ((_%__splice9046990470%_ (gx#syntax-split-splice->vector - _%tl6837768623%_ + _%tl6950069744%_ '0))) - (let ((_%tl6838368639%_ + (let ((_%tl6950669760%_ (let () (declare (not safe)) (##vector-ref - _%__splice8952289523%_ + _%__splice9046990470%_ '1))) - (_%target6838168636%_ + (_%target6950469757%_ (let () (declare (not safe)) (##vector-ref - _%__splice8952289523%_ + _%__splice9046990470%_ '0)))) - (if (gx#stx-null? _%tl6838368639%_) - (_%__match8959889599%_ - _%e6837268606%_ - _%hd6837368610%_ - _%tl6837468613%_ - _%e6837568616%_ - _%hd6837668620%_ - _%tl6837768623%_ - _%e6837868626%_ - _%hd6837968630%_ - _%tl6838068633%_ - _%__splice8952289523%_ - _%target6838168636%_ - _%tl6838368639%_) - (if (gx#stx-pair? _%hd6837968630%_) - (let ((_%e6840368524%_ - (gx#syntax-e _%hd6837968630%_))) - (let ((_%tl6840568531%_ + (if (gx#stx-null? _%tl6950669760%_) + (_%__match9054590546%_ + _%e6949569727%_ + _%hd6949669731%_ + _%tl6949769734%_ + _%e6949869737%_ + _%hd6949969741%_ + _%tl6950069744%_ + _%e6950169747%_ + _%hd6950269751%_ + _%tl6950369754%_ + _%__splice9046990470%_ + _%target6950469757%_ + _%tl6950669760%_) + (if (gx#stx-pair? _%hd6950269751%_) + (let ((_%e6952669647%_ + (gx#syntax-e _%hd6950269751%_))) + (let ((_%tl6952869654%_ (let () (declare (not safe)) - (##cdr _%e6840368524%_))) - (_%hd6840468528%_ + (##cdr _%e6952669647%_))) + (_%hd6952769651%_ (let () (declare (not safe)) - (##car _%e6840368524%_)))) - (if (gx#stx-pair? _%tl6837768623%_) - (let ((_%e6842368458%_ + (##car _%e6952669647%_)))) + (if (gx#stx-pair? _%tl6950069744%_) + (let ((_%e6954669581%_ (gx#syntax-e - _%tl6837768623%_))) - (let ((_%tl6842568465%_ + _%tl6950069744%_))) + (let ((_%tl6954869588%_ (let () (declare (not safe)) - (##cdr _%e6842368458%_))) - (_%hd6842468462%_ + (##cdr _%e6954669581%_))) + (_%hd6954769585%_ (let () (declare (not safe)) - (##car _%e6842368458%_)))) + (##car _%e6954669581%_)))) (if (gx#stx-null? - _%tl6842568465%_) - (_%__match8965089651%_ - _%e6837268606%_ - _%hd6837368610%_ - _%tl6837468613%_ - _%e6837568616%_ - _%hd6837668620%_ - _%tl6837768623%_ - _%e6842368458%_ - _%hd6842468462%_ - _%tl6842568465%_) + _%tl6954869588%_) + (_%__match9059790598%_ + _%e6949569727%_ + _%hd6949669731%_ + _%tl6949769734%_ + _%e6949869737%_ + _%hd6949969741%_ + _%tl6950069744%_ + _%e6954669581%_ + _%hd6954769585%_ + _%tl6954869588%_) (let () (declare (not safe)) - (_%g6833968431%_))))) + (_%g6946269554%_))))) (let () (declare (not safe)) - (_%g6833968431%_))))) - (if (gx#stx-pair? _%tl6837768623%_) - (let ((_%e6842368458%_ + (_%g6946269554%_))))) + (if (gx#stx-pair? _%tl6950069744%_) + (let ((_%e6954669581%_ (gx#syntax-e - _%tl6837768623%_))) - (let ((_%tl6842568465%_ + _%tl6950069744%_))) + (let ((_%tl6954869588%_ (let () (declare (not safe)) - (##cdr _%e6842368458%_))) - (_%hd6842468462%_ + (##cdr _%e6954669581%_))) + (_%hd6954769585%_ (let () (declare (not safe)) - (##car _%e6842368458%_)))) + (##car _%e6954669581%_)))) (if (gx#stx-null? - _%tl6842568465%_) - (_%__match8965089651%_ - _%e6837268606%_ - _%hd6837368610%_ - _%tl6837468613%_ - _%e6837568616%_ - _%hd6837668620%_ - _%tl6837768623%_ - _%e6842368458%_ - _%hd6842468462%_ - _%tl6842568465%_) + _%tl6954869588%_) + (_%__match9059790598%_ + _%e6949569727%_ + _%hd6949669731%_ + _%tl6949769734%_ + _%e6949869737%_ + _%hd6949969741%_ + _%tl6950069744%_ + _%e6954669581%_ + _%hd6954769585%_ + _%tl6954869588%_) (let () (declare (not safe)) - (_%g6833968431%_))))) + (_%g6946269554%_))))) (let () (declare (not safe)) - (_%g6833968431%_))))))) - (if (gx#stx-pair? _%hd6837968630%_) - (let ((_%e6840368524%_ - (gx#syntax-e _%hd6837968630%_))) - (let ((_%tl6840568531%_ + (_%g6946269554%_))))))) + (if (gx#stx-pair? _%hd6950269751%_) + (let ((_%e6952669647%_ + (gx#syntax-e _%hd6950269751%_))) + (let ((_%tl6952869654%_ (let () (declare (not safe)) - (##cdr _%e6840368524%_))) - (_%hd6840468528%_ + (##cdr _%e6952669647%_))) + (_%hd6952769651%_ (let () (declare (not safe)) - (##car _%e6840368524%_)))) - (if (gx#stx-pair? _%tl6837768623%_) - (let ((_%e6842368458%_ - (gx#syntax-e _%tl6837768623%_))) - (let ((_%tl6842568465%_ + (##car _%e6952669647%_)))) + (if (gx#stx-pair? _%tl6950069744%_) + (let ((_%e6954669581%_ + (gx#syntax-e _%tl6950069744%_))) + (let ((_%tl6954869588%_ (let () (declare (not safe)) - (##cdr _%e6842368458%_))) - (_%hd6842468462%_ + (##cdr _%e6954669581%_))) + (_%hd6954769585%_ (let () (declare (not safe)) - (##car _%e6842368458%_)))) - (if (gx#stx-null? _%tl6842568465%_) - (_%__match8965089651%_ - _%e6837268606%_ - _%hd6837368610%_ - _%tl6837468613%_ - _%e6837568616%_ - _%hd6837668620%_ - _%tl6837768623%_ - _%e6842368458%_ - _%hd6842468462%_ - _%tl6842568465%_) + (##car _%e6954669581%_)))) + (if (gx#stx-null? _%tl6954869588%_) + (_%__match9059790598%_ + _%e6949569727%_ + _%hd6949669731%_ + _%tl6949769734%_ + _%e6949869737%_ + _%hd6949969741%_ + _%tl6950069744%_ + _%e6954669581%_ + _%hd6954769585%_ + _%tl6954869588%_) (let () (declare (not safe)) - (_%g6833968431%_))))) + (_%g6946269554%_))))) (let () (declare (not safe)) - (_%g6833968431%_))))) - (if (gx#stx-pair? _%tl6837768623%_) - (let ((_%e6842368458%_ - (gx#syntax-e _%tl6837768623%_))) - (let ((_%tl6842568465%_ + (_%g6946269554%_))))) + (if (gx#stx-pair? _%tl6950069744%_) + (let ((_%e6954669581%_ + (gx#syntax-e _%tl6950069744%_))) + (let ((_%tl6954869588%_ (let () (declare (not safe)) - (##cdr _%e6842368458%_))) - (_%hd6842468462%_ + (##cdr _%e6954669581%_))) + (_%hd6954769585%_ (let () (declare (not safe)) - (##car _%e6842368458%_)))) - (if (gx#stx-null? _%tl6842568465%_) - (_%__match8965089651%_ - _%e6837268606%_ - _%hd6837368610%_ - _%tl6837468613%_ - _%e6837568616%_ - _%hd6837668620%_ - _%tl6837768623%_ - _%e6842368458%_ - _%hd6842468462%_ - _%tl6842568465%_) + (##car _%e6954669581%_)))) + (if (gx#stx-null? _%tl6954869588%_) + (_%__match9059790598%_ + _%e6949569727%_ + _%hd6949669731%_ + _%tl6949769734%_ + _%e6949869737%_ + _%hd6949969741%_ + _%tl6950069744%_ + _%e6954669581%_ + _%hd6954769585%_ + _%tl6954869588%_) (let () (declare (not safe)) - (_%g6833968431%_))))) + (_%g6946269554%_))))) (let () (declare (not safe)) - (_%g6833968431%_))))))) - (_%__match8957289573%_ - (lambda (_%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835168732%_ - _%hd6835268736%_ - _%tl6835368739%_ - _%e6835468742%_ - _%hd6835568746%_ - _%tl6835668749%_ - _%e6835768752%_ - _%hd6835868756%_ - _%tl6835968759%_ - _%__splice8951889519%_ - _%target6836068762%_ - _%tl6836268765%_) - (letrec ((_%loop6836368768%_ - (lambda (_%hd6836168772%_ _%body6836768775%_) - (if (gx#stx-pair? _%hd6836168772%_) - (let ((_%e6836468778%_ - (gx#syntax-e _%hd6836168772%_))) - (let ((_%lp-tl6836668785%_ + (_%g6946269554%_))))))) + (_%__match9051990520%_ + (lambda (_%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947469851%_ + _%hd6947569855%_ + _%tl6947669858%_ + _%e6947769861%_ + _%hd6947869865%_ + _%tl6947969868%_ + _%e6948069871%_ + _%hd6948169875%_ + _%tl6948269878%_ + _%__splice9046590466%_ + _%target6948369881%_ + _%tl6948569884%_) + (letrec ((_%loop6948669887%_ + (lambda (_%hd6948469891%_ _%body6949069894%_) + (if (gx#stx-pair? _%hd6948469891%_) + (let ((_%e6948769896%_ + (gx#syntax-e _%hd6948469891%_))) + (let ((_%lp-tl6948969903%_ (let () (declare (not safe)) - (##cdr _%e6836468778%_))) - (_%lp-hd6836568782%_ + (##cdr _%e6948769896%_))) + (_%lp-hd6948869900%_ (let () (declare (not safe)) - (##car _%e6836468778%_)))) - (_%loop6836368768%_ - _%lp-tl6836668785%_ - (cons _%lp-hd6836568782%_ - _%body6836768775%_)))) - (let ((_%body6836868788%_ - (reverse _%body6836768775%_))) - (let ((_%L68792%_ _%body6836868788%_) - (_%L68794%_ _%hd6835868756%_) - (_%L68795%_ _%tl6835368739%_) - (_%L68796%_ _%hd6835268736%_)) - (if (gx#identifier? _%L68796%_) - (_%__kont8951689517%_ - _%L68792%_ - _%L68794%_ - _%L68795%_ - _%L68796%_) - (_%__match8959089591%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835168732%_ - _%hd6835268736%_ - _%tl6835368739%_)))))))) - (_%loop6836368768%_ _%target6836068762%_ '()))))) - (if (gx#stx-pair? _%__stx8951389514%_) - (let ((_%e6834568712%_ (gx#syntax-e _%__stx8951389514%_))) - (let ((_%tl6834768719%_ + (##car _%e6948769896%_)))) + (_%loop6948669887%_ + _%lp-tl6948969903%_ + (cons _%lp-hd6948869900%_ + _%body6949069894%_)))) + (let ((_%body6949169906%_ + (reverse _%body6949069894%_))) + (let ((_%g6946469909%_ + _%body6949169906%_) + (_%g6946569911%_ + _%hd6948169875%_) + (_%g6946669912%_ + _%tl6947669858%_) + (_%g6946769913%_ + _%hd6947569855%_)) + (if (gx#identifier? + _%g6946769913%_) + (_%__kont9046390464%_ + _%g6946469909%_ + _%g6946569911%_ + _%g6946669912%_ + _%g6946769913%_) + (_%__match9053790538%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947469851%_ + _%hd6947569855%_ + _%tl6947669858%_)))))))) + (_%loop6948669887%_ _%target6948369881%_ '()))))) + (if (gx#stx-pair? _%__stx9046090461%_) + (let ((_%e6946869831%_ (gx#syntax-e _%__stx9046090461%_))) + (let ((_%tl6947069838%_ (let () (declare (not safe)) - (##cdr _%e6834568712%_))) - (_%hd6834668716%_ + (##cdr _%e6946869831%_))) + (_%hd6946969835%_ (let () (declare (not safe)) - (##car _%e6834568712%_)))) - (if (gx#stx-pair? _%tl6834768719%_) - (let ((_%e6834868722%_ - (gx#syntax-e _%tl6834768719%_))) - (let ((_%tl6835068729%_ + (##car _%e6946869831%_)))) + (if (gx#stx-pair? _%tl6947069838%_) + (let ((_%e6947169841%_ + (gx#syntax-e _%tl6947069838%_))) + (let ((_%tl6947369848%_ (let () (declare (not safe)) - (##cdr _%e6834868722%_))) - (_%hd6834968726%_ + (##cdr _%e6947169841%_))) + (_%hd6947269845%_ (let () (declare (not safe)) - (##car _%e6834868722%_)))) - (if (gx#stx-pair? _%hd6834968726%_) - (let ((_%e6835168732%_ - (gx#syntax-e _%hd6834968726%_))) - (let ((_%tl6835368739%_ + (##car _%e6947169841%_)))) + (if (gx#stx-pair? _%hd6947269845%_) + (let ((_%e6947469851%_ + (gx#syntax-e _%hd6947269845%_))) + (let ((_%tl6947669858%_ (let () (declare (not safe)) - (##cdr _%e6835168732%_))) - (_%hd6835268736%_ + (##cdr _%e6947469851%_))) + (_%hd6947569855%_ (let () (declare (not safe)) - (##car _%e6835168732%_)))) - (if (gx#stx-pair? _%tl6835068729%_) - (let ((_%e6835468742%_ + (##car _%e6947469851%_)))) + (if (gx#stx-pair? _%tl6947369848%_) + (let ((_%e6947769861%_ (gx#syntax-e - _%tl6835068729%_))) - (let ((_%tl6835668749%_ + _%tl6947369848%_))) + (let ((_%tl6947969868%_ (let () (declare (not safe)) - (##cdr _%e6835468742%_))) - (_%hd6835568746%_ + (##cdr _%e6947769861%_))) + (_%hd6947869865%_ (let () (declare (not safe)) - (##car _%e6835468742%_)))) + (##car _%e6947769861%_)))) (if (gx#identifier? - _%hd6835568746%_) + _%hd6947869865%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g91965_| - _%hd6835568746%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92828_| + _%hd6947869865%_) (if (gx#stx-pair? - _%tl6835668749%_) - (let ((_%e6835768752%_ + _%tl6947969868%_) + (let ((_%e6948069871%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6835668749%_))) - (let ((_%tl6835968759%_ + (gx#syntax-e _%tl6947969868%_))) + (let ((_%tl6948269878%_ (let () (declare (not safe)) - (##cdr _%e6835768752%_))) - (_%hd6835868756%_ + (##cdr _%e6948069871%_))) + (_%hd6948169875%_ (let () (declare (not safe)) - (##car _%e6835768752%_)))) - (if (gx#stx-pair/null? _%tl6835968759%_) - (let ((_%__splice8951889519%_ + (##car _%e6948069871%_)))) + (if (gx#stx-pair/null? _%tl6948269878%_) + (let ((_%__splice9046590466%_ (gx#syntax-split-splice->vector - _%tl6835968759%_ + _%tl6948269878%_ '0))) - (let ((_%tl6836268765%_ + (let ((_%tl6948569884%_ (let () (declare (not safe)) (##vector-ref - _%__splice8951889519%_ + _%__splice9046590466%_ '1))) - (_%target6836068762%_ + (_%target6948369881%_ (let () (declare (not safe)) (##vector-ref - _%__splice8951889519%_ + _%__splice9046590466%_ '0)))) - (if (gx#stx-null? _%tl6836268765%_) - (_%__match8957289573%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835168732%_ - _%hd6835268736%_ - _%tl6835368739%_ - _%e6835468742%_ - _%hd6835568746%_ - _%tl6835668749%_ - _%e6835768752%_ - _%hd6835868756%_ - _%tl6835968759%_ - _%__splice8951889519%_ - _%target6836068762%_ - _%tl6836268765%_) - (if (gx#stx-pair/null? _%tl6835068729%_) - (let ((_%__splice8952289523%_ + (if (gx#stx-null? _%tl6948569884%_) + (_%__match9051990520%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947469851%_ + _%hd6947569855%_ + _%tl6947669858%_ + _%e6947769861%_ + _%hd6947869865%_ + _%tl6947969868%_ + _%e6948069871%_ + _%hd6948169875%_ + _%tl6948269878%_ + _%__splice9046590466%_ + _%target6948369881%_ + _%tl6948569884%_) + (if (gx#stx-pair/null? _%tl6947369848%_) + (let ((_%__splice9046990470%_ (gx#syntax-split-splice->vector - _%tl6835068729%_ + _%tl6947369848%_ '0))) - (let ((_%tl6838368639%_ + (let ((_%tl6950669760%_ (let () (declare (not safe)) (##vector-ref - _%__splice8952289523%_ + _%__splice9046990470%_ '1))) - (_%target6838168636%_ + (_%target6950469757%_ (let () (declare (not safe)) (##vector-ref - _%__splice8952289523%_ + _%__splice9046990470%_ '0)))) - (if (gx#stx-null? _%tl6838368639%_) - (_%__match8959889599%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835168732%_ - _%hd6835268736%_ - _%tl6835368739%_ - _%__splice8952289523%_ - _%target6838168636%_ - _%tl6838368639%_) + (if (gx#stx-null? _%tl6950669760%_) + (_%__match9054590546%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947469851%_ + _%hd6947569855%_ + _%tl6947669858%_ + _%__splice9046990470%_ + _%target6950469757%_ + _%tl6950669760%_) (if (gx#stx-pair? - _%hd6835268736%_) - (let ((_%e6840368524%_ + _%hd6947569855%_) + (let ((_%e6952669647%_ (gx#syntax-e - _%hd6835268736%_))) - (let ((_%tl6840568531%_ + _%hd6947569855%_))) + (let ((_%tl6952869654%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6840368524%_))) - (_%hd6840468528%_ - (let () (declare (not safe)) (##car _%e6840368524%_)))) - (let () (declare (not safe)) (_%g6833968431%_)))) + (##cdr _%e6952669647%_))) + (_%hd6952769651%_ + (let () (declare (not safe)) (##car _%e6952669647%_)))) + (let () (declare (not safe)) (_%g6946269554%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6833968431%_)))))) - (if (gx#stx-pair? _%hd6835268736%_) - (let ((_%e6840368524%_ + (_%g6946269554%_)))))) + (if (gx#stx-pair? _%hd6947569855%_) + (let ((_%e6952669647%_ (gx#syntax-e - _%hd6835268736%_))) - (let ((_%tl6840568531%_ + _%hd6947569855%_))) + (let ((_%tl6952869654%_ (let () (declare (not safe)) - (##cdr _%e6840368524%_))) - (_%hd6840468528%_ + (##cdr _%e6952669647%_))) + (_%hd6952769651%_ (let () (declare (not safe)) - (##car _%e6840368524%_)))) + (##car _%e6952669647%_)))) (let () (declare (not safe)) - (_%g6833968431%_)))) + (_%g6946269554%_)))) (let () (declare (not safe)) - (_%g6833968431%_))))))) - (if (gx#stx-pair/null? _%tl6835068729%_) - (let ((_%__splice8952289523%_ + (_%g6946269554%_))))))) + (if (gx#stx-pair/null? _%tl6947369848%_) + (let ((_%__splice9046990470%_ (gx#syntax-split-splice->vector - _%tl6835068729%_ + _%tl6947369848%_ '0))) - (let ((_%tl6838368639%_ + (let ((_%tl6950669760%_ (let () (declare (not safe)) (##vector-ref - _%__splice8952289523%_ + _%__splice9046990470%_ '1))) - (_%target6838168636%_ + (_%target6950469757%_ (let () (declare (not safe)) (##vector-ref - _%__splice8952289523%_ + _%__splice9046990470%_ '0)))) - (if (gx#stx-null? _%tl6838368639%_) - (_%__match8959889599%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835168732%_ - _%hd6835268736%_ - _%tl6835368739%_ - _%__splice8952289523%_ - _%target6838168636%_ - _%tl6838368639%_) - (if (gx#stx-pair? _%hd6835268736%_) - (let ((_%e6840368524%_ + (if (gx#stx-null? _%tl6950669760%_) + (_%__match9054590546%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947469851%_ + _%hd6947569855%_ + _%tl6947669858%_ + _%__splice9046990470%_ + _%target6950469757%_ + _%tl6950669760%_) + (if (gx#stx-pair? _%hd6947569855%_) + (let ((_%e6952669647%_ (gx#syntax-e - _%hd6835268736%_))) - (let ((_%tl6840568531%_ + _%hd6947569855%_))) + (let ((_%tl6952869654%_ (let () (declare (not safe)) - (##cdr _%e6840368524%_))) - (_%hd6840468528%_ + (##cdr _%e6952669647%_))) + (_%hd6952769651%_ (let () (declare (not safe)) - (##car _%e6840368524%_)))) + (##car _%e6952669647%_)))) (let () (declare (not safe)) - (_%g6833968431%_)))) + (_%g6946269554%_)))) (let () (declare (not safe)) - (_%g6833968431%_)))))) - (if (gx#stx-pair? _%hd6835268736%_) - (let ((_%e6840368524%_ - (gx#syntax-e _%hd6835268736%_))) - (let ((_%tl6840568531%_ + (_%g6946269554%_)))))) + (if (gx#stx-pair? _%hd6947569855%_) + (let ((_%e6952669647%_ + (gx#syntax-e _%hd6947569855%_))) + (let ((_%tl6952869654%_ (let () (declare (not safe)) - (##cdr _%e6840368524%_))) - (_%hd6840468528%_ + (##cdr _%e6952669647%_))) + (_%hd6952769651%_ (let () (declare (not safe)) - (##car _%e6840368524%_)))) + (##car _%e6952669647%_)))) (let () (declare (not safe)) - (_%g6833968431%_)))) + (_%g6946269554%_)))) (let () (declare (not safe)) - (_%g6833968431%_))))))) - (if (gx#stx-pair/null? _%tl6835068729%_) - (let ((_%__splice8952289523%_ + (_%g6946269554%_))))))) + (if (gx#stx-pair/null? _%tl6947369848%_) + (let ((_%__splice9046990470%_ (gx#syntax-split-splice->vector - _%tl6835068729%_ + _%tl6947369848%_ '0))) - (let ((_%tl6838368639%_ + (let ((_%tl6950669760%_ (let () (declare (not safe)) - (##vector-ref _%__splice8952289523%_ '1))) - (_%target6838168636%_ + (##vector-ref _%__splice9046990470%_ '1))) + (_%target6950469757%_ (let () (declare (not safe)) - (##vector-ref _%__splice8952289523%_ '0)))) - (if (gx#stx-null? _%tl6838368639%_) - (_%__match8959889599%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835168732%_ - _%hd6835268736%_ - _%tl6835368739%_ - _%__splice8952289523%_ - _%target6838168636%_ - _%tl6838368639%_) - (if (gx#stx-pair? _%hd6835268736%_) - (let ((_%e6840368524%_ - (gx#syntax-e _%hd6835268736%_))) - (let ((_%tl6840568531%_ + (##vector-ref _%__splice9046990470%_ '0)))) + (if (gx#stx-null? _%tl6950669760%_) + (_%__match9054590546%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947469851%_ + _%hd6947569855%_ + _%tl6947669858%_ + _%__splice9046990470%_ + _%target6950469757%_ + _%tl6950669760%_) + (if (gx#stx-pair? _%hd6947569855%_) + (let ((_%e6952669647%_ + (gx#syntax-e _%hd6947569855%_))) + (let ((_%tl6952869654%_ (let () (declare (not safe)) - (##cdr _%e6840368524%_))) - (_%hd6840468528%_ + (##cdr _%e6952669647%_))) + (_%hd6952769651%_ (let () (declare (not safe)) - (##car _%e6840368524%_)))) - (if (gx#stx-null? _%tl6835668749%_) - (_%__match8965089651%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835468742%_ - _%hd6835568746%_ - _%tl6835668749%_) + (##car _%e6952669647%_)))) + (if (gx#stx-null? _%tl6947969868%_) + (_%__match9059790598%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947769861%_ + _%hd6947869865%_ + _%tl6947969868%_) (let () (declare (not safe)) - (_%g6833968431%_))))) - (if (gx#stx-null? _%tl6835668749%_) - (_%__match8965089651%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835468742%_ - _%hd6835568746%_ - _%tl6835668749%_) + (_%g6946269554%_))))) + (if (gx#stx-null? _%tl6947969868%_) + (_%__match9059790598%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947769861%_ + _%hd6947869865%_ + _%tl6947969868%_) (let () (declare (not safe)) - (_%g6833968431%_))))))) - (if (gx#stx-pair? _%hd6835268736%_) - (let ((_%e6840368524%_ - (gx#syntax-e _%hd6835268736%_))) - (let ((_%tl6840568531%_ + (_%g6946269554%_))))))) + (if (gx#stx-pair? _%hd6947569855%_) + (let ((_%e6952669647%_ + (gx#syntax-e _%hd6947569855%_))) + (let ((_%tl6952869654%_ (let () (declare (not safe)) - (##cdr _%e6840368524%_))) - (_%hd6840468528%_ + (##cdr _%e6952669647%_))) + (_%hd6952769651%_ (let () (declare (not safe)) - (##car _%e6840368524%_)))) - (if (gx#stx-null? _%tl6835668749%_) - (_%__match8965089651%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835468742%_ - _%hd6835568746%_ - _%tl6835668749%_) + (##car _%e6952669647%_)))) + (if (gx#stx-null? _%tl6947969868%_) + (_%__match9059790598%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947769861%_ + _%hd6947869865%_ + _%tl6947969868%_) (let () (declare (not safe)) - (_%g6833968431%_))))) - (if (gx#stx-null? _%tl6835668749%_) - (_%__match8965089651%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835468742%_ - _%hd6835568746%_ - _%tl6835668749%_) + (_%g6946269554%_))))) + (if (gx#stx-null? _%tl6947969868%_) + (_%__match9059790598%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947769861%_ + _%hd6947869865%_ + _%tl6947969868%_) (let () (declare (not safe)) - (_%g6833968431%_)))))) - (if (gx#stx-pair/null? _%tl6835068729%_) - (let ((_%__splice8952289523%_ + (_%g6946269554%_)))))) + (if (gx#stx-pair/null? _%tl6947369848%_) + (let ((_%__splice9046990470%_ (gx#syntax-split-splice->vector - _%tl6835068729%_ + _%tl6947369848%_ '0))) - (let ((_%tl6838368639%_ + (let ((_%tl6950669760%_ (let () (declare (not safe)) - (##vector-ref _%__splice8952289523%_ '1))) - (_%target6838168636%_ + (##vector-ref _%__splice9046990470%_ '1))) + (_%target6950469757%_ (let () (declare (not safe)) - (##vector-ref _%__splice8952289523%_ '0)))) - (if (gx#stx-null? _%tl6838368639%_) - (_%__match8959889599%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835168732%_ - _%hd6835268736%_ - _%tl6835368739%_ - _%__splice8952289523%_ - _%target6838168636%_ - _%tl6838368639%_) - (if (gx#stx-pair? _%hd6835268736%_) - (let ((_%e6840368524%_ - (gx#syntax-e _%hd6835268736%_))) - (let ((_%tl6840568531%_ + (##vector-ref _%__splice9046990470%_ '0)))) + (if (gx#stx-null? _%tl6950669760%_) + (_%__match9054590546%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947469851%_ + _%hd6947569855%_ + _%tl6947669858%_ + _%__splice9046990470%_ + _%target6950469757%_ + _%tl6950669760%_) + (if (gx#stx-pair? _%hd6947569855%_) + (let ((_%e6952669647%_ + (gx#syntax-e _%hd6947569855%_))) + (let ((_%tl6952869654%_ (let () (declare (not safe)) - (##cdr _%e6840368524%_))) - (_%hd6840468528%_ + (##cdr _%e6952669647%_))) + (_%hd6952769651%_ (let () (declare (not safe)) - (##car _%e6840368524%_)))) - (if (gx#stx-null? _%tl6835668749%_) - (_%__match8965089651%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835468742%_ - _%hd6835568746%_ - _%tl6835668749%_) + (##car _%e6952669647%_)))) + (if (gx#stx-null? _%tl6947969868%_) + (_%__match9059790598%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947769861%_ + _%hd6947869865%_ + _%tl6947969868%_) (let () (declare (not safe)) - (_%g6833968431%_))))) - (if (gx#stx-null? _%tl6835668749%_) - (_%__match8965089651%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835468742%_ - _%hd6835568746%_ - _%tl6835668749%_) + (_%g6946269554%_))))) + (if (gx#stx-null? _%tl6947969868%_) + (_%__match9059790598%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947769861%_ + _%hd6947869865%_ + _%tl6947969868%_) (let () (declare (not safe)) - (_%g6833968431%_))))))) - (if (gx#stx-pair? _%hd6835268736%_) - (let ((_%e6840368524%_ (gx#syntax-e _%hd6835268736%_))) - (let ((_%tl6840568531%_ + (_%g6946269554%_))))))) + (if (gx#stx-pair? _%hd6947569855%_) + (let ((_%e6952669647%_ (gx#syntax-e _%hd6947569855%_))) + (let ((_%tl6952869654%_ (let () (declare (not safe)) - (##cdr _%e6840368524%_))) - (_%hd6840468528%_ + (##cdr _%e6952669647%_))) + (_%hd6952769651%_ (let () (declare (not safe)) - (##car _%e6840368524%_)))) - (if (gx#stx-null? _%tl6835668749%_) - (_%__match8965089651%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835468742%_ - _%hd6835568746%_ - _%tl6835668749%_) + (##car _%e6952669647%_)))) + (if (gx#stx-null? _%tl6947969868%_) + (_%__match9059790598%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947769861%_ + _%hd6947869865%_ + _%tl6947969868%_) (let () (declare (not safe)) - (_%g6833968431%_))))) - (if (gx#stx-null? _%tl6835668749%_) - (_%__match8965089651%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835468742%_ - _%hd6835568746%_ - _%tl6835668749%_) - (let () (declare (not safe)) (_%g6833968431%_)))))) + (_%g6946269554%_))))) + (if (gx#stx-null? _%tl6947969868%_) + (_%__match9059790598%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947769861%_ + _%hd6947869865%_ + _%tl6947969868%_) + (let () (declare (not safe)) (_%g6946269554%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6835068729%_) - (let ((_%__splice8952289523%_ + _%tl6947369848%_) + (let ((_%__splice9046990470%_ (gx#syntax-split-splice->vector - _%tl6835068729%_ + _%tl6947369848%_ '0))) - (let ((_%tl6838368639%_ + (let ((_%tl6950669760%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice8952289523%_ '1))) - (_%target6838168636%_ + (##vector-ref _%__splice9046990470%_ '1))) + (_%target6950469757%_ (let () (declare (not safe)) - (##vector-ref _%__splice8952289523%_ '0)))) - (if (gx#stx-null? _%tl6838368639%_) - (_%__match8959889599%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835168732%_ - _%hd6835268736%_ - _%tl6835368739%_ - _%__splice8952289523%_ - _%target6838168636%_ - _%tl6838368639%_) - (if (gx#stx-pair? _%hd6835268736%_) - (let ((_%e6840368524%_ - (gx#syntax-e _%hd6835268736%_))) - (let ((_%tl6840568531%_ + (##vector-ref _%__splice9046990470%_ '0)))) + (if (gx#stx-null? _%tl6950669760%_) + (_%__match9054590546%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947469851%_ + _%hd6947569855%_ + _%tl6947669858%_ + _%__splice9046990470%_ + _%target6950469757%_ + _%tl6950669760%_) + (if (gx#stx-pair? _%hd6947569855%_) + (let ((_%e6952669647%_ + (gx#syntax-e _%hd6947569855%_))) + (let ((_%tl6952869654%_ (let () (declare (not safe)) - (##cdr _%e6840368524%_))) - (_%hd6840468528%_ + (##cdr _%e6952669647%_))) + (_%hd6952769651%_ (let () (declare (not safe)) - (##car _%e6840368524%_)))) - (if (gx#stx-null? _%tl6835668749%_) - (_%__match8965089651%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835468742%_ - _%hd6835568746%_ - _%tl6835668749%_) + (##car _%e6952669647%_)))) + (if (gx#stx-null? _%tl6947969868%_) + (_%__match9059790598%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947769861%_ + _%hd6947869865%_ + _%tl6947969868%_) (let () (declare (not safe)) - (_%g6833968431%_))))) - (if (gx#stx-null? _%tl6835668749%_) - (_%__match8965089651%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835468742%_ - _%hd6835568746%_ - _%tl6835668749%_) + (_%g6946269554%_))))) + (if (gx#stx-null? _%tl6947969868%_) + (_%__match9059790598%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947769861%_ + _%hd6947869865%_ + _%tl6947969868%_) (let () (declare (not safe)) - (_%g6833968431%_))))))) - (if (gx#stx-pair? _%hd6835268736%_) - (let ((_%e6840368524%_ (gx#syntax-e _%hd6835268736%_))) - (let ((_%tl6840568531%_ + (_%g6946269554%_))))))) + (if (gx#stx-pair? _%hd6947569855%_) + (let ((_%e6952669647%_ (gx#syntax-e _%hd6947569855%_))) + (let ((_%tl6952869654%_ (let () (declare (not safe)) - (##cdr _%e6840368524%_))) - (_%hd6840468528%_ + (##cdr _%e6952669647%_))) + (_%hd6952769651%_ (let () (declare (not safe)) - (##car _%e6840368524%_)))) - (if (gx#stx-null? _%tl6835668749%_) - (_%__match8965089651%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835468742%_ - _%hd6835568746%_ - _%tl6835668749%_) - (let () (declare (not safe)) (_%g6833968431%_))))) - (if (gx#stx-null? _%tl6835668749%_) - (_%__match8965089651%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835468742%_ - _%hd6835568746%_ - _%tl6835668749%_) - (let () (declare (not safe)) (_%g6833968431%_)))))))) + (##car _%e6952669647%_)))) + (if (gx#stx-null? _%tl6947969868%_) + (_%__match9059790598%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947769861%_ + _%hd6947869865%_ + _%tl6947969868%_) + (let () (declare (not safe)) (_%g6946269554%_))))) + (if (gx#stx-null? _%tl6947969868%_) + (_%__match9059790598%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947769861%_ + _%hd6947869865%_ + _%tl6947969868%_) + (let () (declare (not safe)) (_%g6946269554%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6835068729%_) - (let ((_%__splice8952289523%_ + _%tl6947369848%_) + (let ((_%__splice9046990470%_ (gx#syntax-split-splice->vector - _%tl6835068729%_ + _%tl6947369848%_ '0))) - (let ((_%tl6838368639%_ + (let ((_%tl6950669760%_ (let () (declare (not safe)) (##vector-ref - _%__splice8952289523%_ + _%__splice9046990470%_ '1))) - (_%target6838168636%_ + (_%target6950469757%_ (let () (declare (not safe)) (##vector-ref - _%__splice8952289523%_ + _%__splice9046990470%_ '0)))) (if (gx#stx-null? - _%tl6838368639%_) - (_%__match8959889599%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6835168732%_ - _%hd6835268736%_ - _%tl6835368739%_ - _%__splice8952289523%_ - _%target6838168636%_ - _%tl6838368639%_) + _%tl6950669760%_) + (_%__match9054590546%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6947469851%_ + _%hd6947569855%_ + _%tl6947669858%_ + _%__splice9046990470%_ + _%target6950469757%_ + _%tl6950669760%_) (if (gx#stx-pair? - _%hd6835268736%_) - (let ((_%e6840368524%_ + _%hd6947569855%_) + (let ((_%e6952669647%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6835268736%_))) - (let ((_%tl6840568531%_ + (gx#syntax-e _%hd6947569855%_))) + (let ((_%tl6952869654%_ (let () (declare (not safe)) - (##cdr _%e6840368524%_))) - (_%hd6840468528%_ + (##cdr _%e6952669647%_))) + (_%hd6952769651%_ (let () (declare (not safe)) - (##car _%e6840368524%_)))) - (let () (declare (not safe)) (_%g6833968431%_)))) - (let () (declare (not safe)) (_%g6833968431%_)))))) + (##car _%e6952669647%_)))) + (let () (declare (not safe)) (_%g6946269554%_)))) + (let () (declare (not safe)) (_%g6946269554%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd6835268736%_) - (let ((_%e6840368524%_ + _%hd6947569855%_) + (let ((_%e6952669647%_ (gx#syntax-e - _%hd6835268736%_))) - (let ((_%tl6840568531%_ + _%hd6947569855%_))) + (let ((_%tl6952869654%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6840368524%_))) - (_%hd6840468528%_ - (let () (declare (not safe)) (##car _%e6840368524%_)))) - (let () (declare (not safe)) (_%g6833968431%_)))) + (##cdr _%e6952669647%_))) + (_%hd6952769651%_ + (let () (declare (not safe)) (##car _%e6952669647%_)))) + (let () (declare (not safe)) (_%g6946269554%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6833968431%_))))))) - (if (gx#stx-pair? _%tl6835068729%_) - (let ((_%e6842368458%_ - (gx#syntax-e _%tl6835068729%_))) - (let ((_%tl6842568465%_ + (_%g6946269554%_))))))) + (if (gx#stx-pair? _%tl6947369848%_) + (let ((_%e6954669581%_ + (gx#syntax-e _%tl6947369848%_))) + (let ((_%tl6954869588%_ (let () (declare (not safe)) - (##cdr _%e6842368458%_))) - (_%hd6842468462%_ + (##cdr _%e6954669581%_))) + (_%hd6954769585%_ (let () (declare (not safe)) - (##car _%e6842368458%_)))) - (if (gx#stx-null? _%tl6842568465%_) - (_%__match8965089651%_ - _%e6834568712%_ - _%hd6834668716%_ - _%tl6834768719%_ - _%e6834868722%_ - _%hd6834968726%_ - _%tl6835068729%_ - _%e6842368458%_ - _%hd6842468462%_ - _%tl6842568465%_) + (##car _%e6954669581%_)))) + (if (gx#stx-null? _%tl6954869588%_) + (_%__match9059790598%_ + _%e6946869831%_ + _%hd6946969835%_ + _%tl6947069838%_ + _%e6947169841%_ + _%hd6947269845%_ + _%tl6947369848%_ + _%e6954669581%_ + _%hd6954769585%_ + _%tl6954869588%_) (let () (declare (not safe)) - (_%g6833968431%_))))) + (_%g6946269554%_))))) (let () (declare (not safe)) - (_%g6833968431%_)))))) - (let () (declare (not safe)) (_%g6833968431%_))))) - (let () (declare (not safe)) (_%g6833968431%_))))))))) + (_%g6946269554%_)))))) + (let () (declare (not safe)) (_%g6946269554%_))))) + (let () (declare (not safe)) (_%g6946269554%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-procedure-signature| - (lambda (_%stx69508%_) - (let* ((_%__stx8965389654%_ _%stx69508%_) - (_%g6951269575%_ + (lambda (_%stx70619%_) + (let* ((_%__stx9060090601%_ _%stx70619%_) + (_%g7062370686%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8965389654%_)))) - (let ((_%__kont8965689657%_ - (lambda (_%L69826%_ _%L69828%_) - (let* ((_%g6985369861%_ - (lambda (_%g6985469857%_) + _%__stx9060090601%_)))) + (let ((_%__kont9060390604%_ + (lambda (_%g7062570933%_ _%g7062670935%_) + (let* ((_%g7096070968%_ + (lambda (_%g7096170964%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6985469857%_))) - (_%g6985269888%_ - (lambda (_%g6985469865%_) - ((lambda (_%L69868%_) + _%g7096170964%_))) + (_%g7095970995%_ + (lambda (_%g7096170972%_) + ((lambda (_%g7096270975%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type.signature) (cons 'return: - (cons _%L69868%_ '()))) + (cons _%g7096270975%_ + '()))) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g6987969882%_ + (foldr (lambda (_%g7098670989%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6988069885%_) - (cons _%g6987969882%_ _%g6988069885%_)) + _%g7098770992%_) + (cons _%g7098670989%_ _%g7098770992%_)) '() - _%L69826%_))) + _%g7062570933%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%g6985469865%_)))) - (_%g6985269888%_ + _%g7096170972%_)))) + (_%g7095970995%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx69508%_ - _%L69828%_)))))) - (_%__kont8966089661%_ - (lambda (_%L69662%_ _%L69664%_ _%L69665%_ _%L69666%_) - (let* ((_%g6969269700%_ - (lambda (_%g6969369696%_) + _%stx70619%_ + _%g7062670935%_)))))) + (_%__kont9060790608%_ + (lambda (_%g7065370771%_ + _%g7065470773%_ + _%g7065570774%_ + _%g7065670775%_) + (let* ((_%g7080170809%_ + (lambda (_%g7080270805%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6969369696%_))) - (_%g6969169727%_ - (lambda (_%g6969369704%_) - ((lambda (_%L69707%_) + _%g7080270805%_))) + (_%g7080070836%_ + (lambda (_%g7080270813%_) + ((lambda (_%g7080370816%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type.signature) - _%L69707%_) + _%g7080370816%_) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g6971869721%_ + (foldr (lambda (_%g7082770830%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6971969724%_) - (cons _%g6971869721%_ _%g6971969724%_)) + _%g7082870833%_) + (cons _%g7082770830%_ _%g7082870833%_)) '() - _%L69662%_))) + _%g7065370771%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%g6969369704%_)))) - (_%g6969169727%_ + _%g7080270813%_)))) + (_%g7080070836%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#make-procedure-lambda-signature| - _%stx69508%_ - _%L69666%_ - _%L69665%_ - _%L69664%_))))))) - (let* ((_%__match8975689757%_ - (lambda (_%e6954669582%_ - _%hd6954769586%_ - _%tl6954869589%_ - _%e6954969592%_ - _%hd6955069596%_ - _%tl6955169599%_ - _%e6955269602%_ - _%hd6955369606%_ - _%tl6955469609%_ - _%e6955569612%_ - _%hd6955669616%_ - _%tl6955769619%_ - _%e6955869622%_ - _%hd6955969626%_ - _%tl6956069629%_ - _%__splice8966289663%_ - _%target6956169632%_ - _%tl6956369635%_) - (letrec ((_%loop6956469638%_ - (lambda (_%hd6956269642%_ _%body6956869645%_) - (if (gx#stx-pair? _%hd6956269642%_) - (let ((_%e6956569648%_ - (gx#syntax-e _%hd6956269642%_))) - (let ((_%lp-tl6956769655%_ + _%stx70619%_ + _%g7065670775%_ + _%g7065570774%_ + _%g7065470773%_))))))) + (let* ((_%__match9070390704%_ + (lambda (_%e7065770693%_ + _%hd7065870697%_ + _%tl7065970700%_ + _%e7066070703%_ + _%hd7066170707%_ + _%tl7066270710%_ + _%e7066370713%_ + _%hd7066470717%_ + _%tl7066570720%_ + _%e7066670723%_ + _%hd7066770727%_ + _%tl7066870730%_ + _%e7066970733%_ + _%hd7067070737%_ + _%tl7067170740%_ + _%__splice9060990610%_ + _%target7067270743%_ + _%tl7067470746%_) + (letrec ((_%loop7067570749%_ + (lambda (_%hd7067370753%_ _%body7067970756%_) + (if (gx#stx-pair? _%hd7067370753%_) + (let ((_%e7067670758%_ + (gx#syntax-e _%hd7067370753%_))) + (let ((_%lp-tl7067870765%_ (let () (declare (not safe)) - (##cdr _%e6956569648%_))) - (_%lp-hd6956669652%_ + (##cdr _%e7067670758%_))) + (_%lp-hd7067770762%_ (let () (declare (not safe)) - (##car _%e6956569648%_)))) - (_%loop6956469638%_ - _%lp-tl6956769655%_ - (cons _%lp-hd6956669652%_ - _%body6956869645%_)))) - (let ((_%body6956969658%_ - (reverse _%body6956869645%_))) - (_%__kont8966089661%_ - _%body6956969658%_ - _%hd6955969626%_ - _%hd6955669616%_ - _%hd6955369606%_)))))) - (_%loop6956469638%_ _%target6956169632%_ '())))) - (_%__match8971689717%_ - (lambda (_%e6951669738%_ - _%hd6951769742%_ - _%tl6951869745%_ - _%e6951969748%_ - _%hd6952069752%_ - _%tl6952169755%_ - _%e6952269758%_ - _%hd6952369762%_ - _%tl6952469765%_ - _%e6952569768%_ - _%e6952669772%_ - _%hd6952769776%_ - _%tl6952869779%_ - _%e6952969782%_ - _%hd6953069786%_ - _%tl6953169789%_ - _%e6953269792%_ - _%__splice8965889659%_ - _%target6953369796%_ - _%tl6953569799%_) - (letrec ((_%loop6953669802%_ - (lambda (_%hd6953469806%_ _%body6954069809%_) - (if (gx#stx-pair? _%hd6953469806%_) - (let ((_%e6953769812%_ - (gx#syntax-e _%hd6953469806%_))) - (let ((_%lp-tl6953969819%_ + (##car _%e7067670758%_)))) + (_%loop7067570749%_ + _%lp-tl7067870765%_ + (cons _%lp-hd7067770762%_ + _%body7067970756%_)))) + (let ((_%body7068070768%_ + (reverse _%body7067970756%_))) + (_%__kont9060790608%_ + _%body7068070768%_ + _%hd7067070737%_ + _%hd7066770727%_ + _%hd7066470717%_)))))) + (_%loop7067570749%_ _%target7067270743%_ '())))) + (_%__match9066390664%_ + (lambda (_%e7062770847%_ + _%hd7062870851%_ + _%tl7062970854%_ + _%e7063070857%_ + _%hd7063170861%_ + _%tl7063270864%_ + _%e7063370867%_ + _%hd7063470871%_ + _%tl7063570874%_ + _%e7063670877%_ + _%e7063770881%_ + _%hd7063870885%_ + _%tl7063970888%_ + _%e7064070891%_ + _%hd7064170895%_ + _%tl7064270898%_ + _%e7064370901%_ + _%__splice9060590606%_ + _%target7064470905%_ + _%tl7064670908%_) + (letrec ((_%loop7064770911%_ + (lambda (_%hd7064570915%_ _%body7065170918%_) + (if (gx#stx-pair? _%hd7064570915%_) + (let ((_%e7064870920%_ + (gx#syntax-e _%hd7064570915%_))) + (let ((_%lp-tl7065070927%_ (let () (declare (not safe)) - (##cdr _%e6953769812%_))) - (_%lp-hd6953869816%_ + (##cdr _%e7064870920%_))) + (_%lp-hd7064970924%_ (let () (declare (not safe)) - (##car _%e6953769812%_)))) - (_%loop6953669802%_ - _%lp-tl6953969819%_ - (cons _%lp-hd6953869816%_ - _%body6954069809%_)))) - (let ((_%body6954169822%_ - (reverse _%body6954069809%_))) - (_%__kont8965689657%_ - _%body6954169822%_ - _%hd6952769776%_)))))) - (_%loop6953669802%_ _%target6953369796%_ '()))))) - (if (gx#stx-pair? _%__stx8965389654%_) - (let ((_%e6951669738%_ (gx#syntax-e _%__stx8965389654%_))) - (let ((_%tl6951869745%_ + (##car _%e7064870920%_)))) + (_%loop7064770911%_ + _%lp-tl7065070927%_ + (cons _%lp-hd7064970924%_ + _%body7065170918%_)))) + (let ((_%body7065270930%_ + (reverse _%body7065170918%_))) + (_%__kont9060390604%_ + _%body7065270930%_ + _%hd7063870885%_)))))) + (_%loop7064770911%_ _%target7064470905%_ '()))))) + (if (gx#stx-pair? _%__stx9060090601%_) + (let ((_%e7062770847%_ (gx#syntax-e _%__stx9060090601%_))) + (let ((_%tl7062970854%_ (let () (declare (not safe)) - (##cdr _%e6951669738%_))) - (_%hd6951769742%_ + (##cdr _%e7062770847%_))) + (_%hd7062870851%_ (let () (declare (not safe)) - (##car _%e6951669738%_)))) - (if (gx#stx-pair? _%tl6951869745%_) - (let ((_%e6951969748%_ - (gx#syntax-e _%tl6951869745%_))) - (let ((_%tl6952169755%_ + (##car _%e7062770847%_)))) + (if (gx#stx-pair? _%tl7062970854%_) + (let ((_%e7063070857%_ + (gx#syntax-e _%tl7062970854%_))) + (let ((_%tl7063270864%_ (let () (declare (not safe)) - (##cdr _%e6951969748%_))) - (_%hd6952069752%_ + (##cdr _%e7063070857%_))) + (_%hd7063170861%_ (let () (declare (not safe)) - (##car _%e6951969748%_)))) - (if (gx#stx-pair? _%hd6952069752%_) - (let ((_%e6952269758%_ - (gx#syntax-e _%hd6952069752%_))) - (let ((_%tl6952469765%_ + (##car _%e7063070857%_)))) + (if (gx#stx-pair? _%hd7063170861%_) + (let ((_%e7063370867%_ + (gx#syntax-e _%hd7063170861%_))) + (let ((_%tl7063570874%_ (let () (declare (not safe)) - (##cdr _%e6952269758%_))) - (_%hd6952369762%_ + (##cdr _%e7063370867%_))) + (_%hd7063470871%_ (let () (declare (not safe)) - (##car _%e6952269758%_)))) - (if (gx#stx-datum? _%hd6952369762%_) - (let ((_%e6952569768%_ - (gx#stx-e _%hd6952369762%_))) - (if (equal? _%e6952569768%_ '#f) + (##car _%e7063370867%_)))) + (if (gx#stx-datum? _%hd7063470871%_) + (let ((_%e7063670877%_ + (gx#stx-e _%hd7063470871%_))) + (if (equal? _%e7063670877%_ '#f) (if (gx#stx-pair? - _%tl6952469765%_) - (let ((_%e6952669772%_ + _%tl7063570874%_) + (let ((_%e7063770881%_ (gx#syntax-e - _%tl6952469765%_))) - (let ((_%tl6952869779%_ + _%tl7063570874%_))) + (let ((_%tl7063970888%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6952669772%_))) - (_%hd6952769776%_ - (let () (declare (not safe)) (##car _%e6952669772%_)))) - (if (gx#stx-pair? _%tl6952869779%_) - (let ((_%e6952969782%_ (gx#syntax-e _%tl6952869779%_))) - (let ((_%tl6953169789%_ + (##cdr _%e7063770881%_))) + (_%hd7063870885%_ + (let () (declare (not safe)) (##car _%e7063770881%_)))) + (if (gx#stx-pair? _%tl7063970888%_) + (let ((_%e7064070891%_ (gx#syntax-e _%tl7063970888%_))) + (let ((_%tl7064270898%_ (let () (declare (not safe)) - (##cdr _%e6952969782%_))) - (_%hd6953069786%_ + (##cdr _%e7064070891%_))) + (_%hd7064170895%_ (let () (declare (not safe)) - (##car _%e6952969782%_)))) - (if (gx#stx-datum? _%hd6953069786%_) - (let ((_%e6953269792%_ - (gx#stx-e _%hd6953069786%_))) - (if (equal? _%e6953269792%_ '#f) - (if (gx#stx-null? _%tl6953169789%_) - (if (gx#stx-pair/null? _%tl6952169755%_) - (let ((_%__splice8965889659%_ + (##car _%e7064070891%_)))) + (if (gx#stx-datum? _%hd7064170895%_) + (let ((_%e7064370901%_ + (gx#stx-e _%hd7064170895%_))) + (if (equal? _%e7064370901%_ '#f) + (if (gx#stx-null? _%tl7064270898%_) + (if (gx#stx-pair/null? _%tl7063270864%_) + (let ((_%__splice9060590606%_ (gx#syntax-split-splice->vector - _%tl6952169755%_ + _%tl7063270864%_ '0))) - (let ((_%tl6953569799%_ + (let ((_%tl7064670908%_ (let () (declare (not safe)) (##vector-ref - _%__splice8965889659%_ + _%__splice9060590606%_ '1))) - (_%target6953369796%_ + (_%target7064470905%_ (let () (declare (not safe)) (##vector-ref - _%__splice8965889659%_ + _%__splice9060590606%_ '0)))) (if (gx#stx-null? - _%tl6953569799%_) - (_%__match8971689717%_ - _%e6951669738%_ - _%hd6951769742%_ - _%tl6951869745%_ - _%e6951969748%_ - _%hd6952069752%_ - _%tl6952169755%_ - _%e6952269758%_ - _%hd6952369762%_ - _%tl6952469765%_ - _%e6952569768%_ - _%e6952669772%_ - _%hd6952769776%_ - _%tl6952869779%_ - _%e6952969782%_ - _%hd6953069786%_ - _%tl6953169789%_ - _%e6953269792%_ - _%__splice8965889659%_ - _%target6953369796%_ - _%tl6953569799%_) + _%tl7064670908%_) + (_%__match9066390664%_ + _%e7062770847%_ + _%hd7062870851%_ + _%tl7062970854%_ + _%e7063070857%_ + _%hd7063170861%_ + _%tl7063270864%_ + _%e7063370867%_ + _%hd7063470871%_ + _%tl7063570874%_ + _%e7063670877%_ + _%e7063770881%_ + _%hd7063870885%_ + _%tl7063970888%_ + _%e7064070891%_ + _%hd7064170895%_ + _%tl7064270898%_ + _%e7064370901%_ + _%__splice9060590606%_ + _%target7064470905%_ + _%tl7064670908%_) (let () (declare (not safe)) - (_%g6951269575%_))))) + (_%g7062370686%_))))) (let () (declare (not safe)) - (_%g6951269575%_))) + (_%g7062370686%_))) (let () (declare (not safe)) - (_%g6951269575%_))) - (if (gx#stx-null? _%tl6953169789%_) - (if (gx#stx-pair/null? _%tl6952169755%_) - (let ((_%__splice8966289663%_ + (_%g7062370686%_))) + (if (gx#stx-null? _%tl7064270898%_) + (if (gx#stx-pair/null? _%tl7063270864%_) + (let ((_%__splice9060990610%_ (gx#syntax-split-splice->vector - _%tl6952169755%_ + _%tl7063270864%_ '0))) - (let ((_%tl6956369635%_ + (let ((_%tl7067470746%_ (let () (declare (not safe)) (##vector-ref - _%__splice8966289663%_ + _%__splice9060990610%_ '1))) - (_%target6956169632%_ + (_%target7067270743%_ (let () (declare (not safe)) (##vector-ref - _%__splice8966289663%_ + _%__splice9060990610%_ '0)))) (if (gx#stx-null? - _%tl6956369635%_) - (_%__match8975689757%_ - _%e6951669738%_ - _%hd6951769742%_ - _%tl6951869745%_ - _%e6951969748%_ - _%hd6952069752%_ - _%tl6952169755%_ - _%e6952269758%_ - _%hd6952369762%_ - _%tl6952469765%_ - _%e6952669772%_ - _%hd6952769776%_ - _%tl6952869779%_ - _%e6952969782%_ - _%hd6953069786%_ - _%tl6953169789%_ - _%__splice8966289663%_ - _%target6956169632%_ - _%tl6956369635%_) + _%tl7067470746%_) + (_%__match9070390704%_ + _%e7062770847%_ + _%hd7062870851%_ + _%tl7062970854%_ + _%e7063070857%_ + _%hd7063170861%_ + _%tl7063270864%_ + _%e7063370867%_ + _%hd7063470871%_ + _%tl7063570874%_ + _%e7063770881%_ + _%hd7063870885%_ + _%tl7063970888%_ + _%e7064070891%_ + _%hd7064170895%_ + _%tl7064270898%_ + _%__splice9060990610%_ + _%target7067270743%_ + _%tl7067470746%_) (let () (declare (not safe)) - (_%g6951269575%_))))) + (_%g7062370686%_))))) (let () (declare (not safe)) - (_%g6951269575%_))) + (_%g7062370686%_))) (let () (declare (not safe)) - (_%g6951269575%_))))) - (if (gx#stx-null? _%tl6953169789%_) - (if (gx#stx-pair/null? _%tl6952169755%_) - (let ((_%__splice8966289663%_ + (_%g7062370686%_))))) + (if (gx#stx-null? _%tl7064270898%_) + (if (gx#stx-pair/null? _%tl7063270864%_) + (let ((_%__splice9060990610%_ (gx#syntax-split-splice->vector - _%tl6952169755%_ + _%tl7063270864%_ '0))) - (let ((_%tl6956369635%_ + (let ((_%tl7067470746%_ (let () (declare (not safe)) (##vector-ref - _%__splice8966289663%_ + _%__splice9060990610%_ '1))) - (_%target6956169632%_ + (_%target7067270743%_ (let () (declare (not safe)) (##vector-ref - _%__splice8966289663%_ + _%__splice9060990610%_ '0)))) - (if (gx#stx-null? _%tl6956369635%_) - (_%__match8975689757%_ - _%e6951669738%_ - _%hd6951769742%_ - _%tl6951869745%_ - _%e6951969748%_ - _%hd6952069752%_ - _%tl6952169755%_ - _%e6952269758%_ - _%hd6952369762%_ - _%tl6952469765%_ - _%e6952669772%_ - _%hd6952769776%_ - _%tl6952869779%_ - _%e6952969782%_ - _%hd6953069786%_ - _%tl6953169789%_ - _%__splice8966289663%_ - _%target6956169632%_ - _%tl6956369635%_) + (if (gx#stx-null? _%tl7067470746%_) + (_%__match9070390704%_ + _%e7062770847%_ + _%hd7062870851%_ + _%tl7062970854%_ + _%e7063070857%_ + _%hd7063170861%_ + _%tl7063270864%_ + _%e7063370867%_ + _%hd7063470871%_ + _%tl7063570874%_ + _%e7063770881%_ + _%hd7063870885%_ + _%tl7063970888%_ + _%e7064070891%_ + _%hd7064170895%_ + _%tl7064270898%_ + _%__splice9060990610%_ + _%target7067270743%_ + _%tl7067470746%_) (let () (declare (not safe)) - (_%g6951269575%_))))) + (_%g7062370686%_))))) (let () (declare (not safe)) - (_%g6951269575%_))) + (_%g7062370686%_))) (let () (declare (not safe)) - (_%g6951269575%_)))))) - (let () (declare (not safe)) (_%g6951269575%_))))) + (_%g7062370686%_)))))) + (let () (declare (not safe)) (_%g7062370686%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6951269575%_))) + (_%g7062370686%_))) (if (gx#stx-pair? - _%tl6952469765%_) - (let ((_%e6955569612%_ + _%tl7063570874%_) + (let ((_%e7066670723%_ (gx#syntax-e - _%tl6952469765%_))) - (let ((_%tl6955769619%_ + _%tl7063570874%_))) + (let ((_%tl7066870730%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6955569612%_))) - (_%hd6955669616%_ - (let () (declare (not safe)) (##car _%e6955569612%_)))) - (if (gx#stx-pair? _%tl6955769619%_) - (let ((_%e6955869622%_ (gx#syntax-e _%tl6955769619%_))) - (let ((_%tl6956069629%_ + (##cdr _%e7066670723%_))) + (_%hd7066770727%_ + (let () (declare (not safe)) (##car _%e7066670723%_)))) + (if (gx#stx-pair? _%tl7066870730%_) + (let ((_%e7066970733%_ (gx#syntax-e _%tl7066870730%_))) + (let ((_%tl7067170740%_ (let () (declare (not safe)) - (##cdr _%e6955869622%_))) - (_%hd6955969626%_ + (##cdr _%e7066970733%_))) + (_%hd7067070737%_ (let () (declare (not safe)) - (##car _%e6955869622%_)))) - (if (gx#stx-null? _%tl6956069629%_) - (if (gx#stx-pair/null? _%tl6952169755%_) - (let ((_%__splice8966289663%_ + (##car _%e7066970733%_)))) + (if (gx#stx-null? _%tl7067170740%_) + (if (gx#stx-pair/null? _%tl7063270864%_) + (let ((_%__splice9060990610%_ (gx#syntax-split-splice->vector - _%tl6952169755%_ + _%tl7063270864%_ '0))) - (let ((_%tl6956369635%_ + (let ((_%tl7067470746%_ (let () (declare (not safe)) (##vector-ref - _%__splice8966289663%_ + _%__splice9060990610%_ '1))) - (_%target6956169632%_ + (_%target7067270743%_ (let () (declare (not safe)) (##vector-ref - _%__splice8966289663%_ + _%__splice9060990610%_ '0)))) - (if (gx#stx-null? _%tl6956369635%_) - (_%__match8975689757%_ - _%e6951669738%_ - _%hd6951769742%_ - _%tl6951869745%_ - _%e6951969748%_ - _%hd6952069752%_ - _%tl6952169755%_ - _%e6952269758%_ - _%hd6952369762%_ - _%tl6952469765%_ - _%e6955569612%_ - _%hd6955669616%_ - _%tl6955769619%_ - _%e6955869622%_ - _%hd6955969626%_ - _%tl6956069629%_ - _%__splice8966289663%_ - _%target6956169632%_ - _%tl6956369635%_) + (if (gx#stx-null? _%tl7067470746%_) + (_%__match9070390704%_ + _%e7062770847%_ + _%hd7062870851%_ + _%tl7062970854%_ + _%e7063070857%_ + _%hd7063170861%_ + _%tl7063270864%_ + _%e7063370867%_ + _%hd7063470871%_ + _%tl7063570874%_ + _%e7066670723%_ + _%hd7066770727%_ + _%tl7066870730%_ + _%e7066970733%_ + _%hd7067070737%_ + _%tl7067170740%_ + _%__splice9060990610%_ + _%target7067270743%_ + _%tl7067470746%_) (let () (declare (not safe)) - (_%g6951269575%_))))) + (_%g7062370686%_))))) (let () (declare (not safe)) - (_%g6951269575%_))) - (let () (declare (not safe)) (_%g6951269575%_))))) - (let () (declare (not safe)) (_%g6951269575%_))))) + (_%g7062370686%_))) + (let () (declare (not safe)) (_%g7062370686%_))))) + (let () (declare (not safe)) (_%g7062370686%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6951269575%_))))) - (if (gx#stx-pair? _%tl6952469765%_) - (let ((_%e6955569612%_ + (_%g7062370686%_))))) + (if (gx#stx-pair? _%tl7063570874%_) + (let ((_%e7066670723%_ (gx#syntax-e - _%tl6952469765%_))) - (let ((_%tl6955769619%_ + _%tl7063570874%_))) + (let ((_%tl7066870730%_ (let () (declare (not safe)) - (##cdr _%e6955569612%_))) - (_%hd6955669616%_ + (##cdr _%e7066670723%_))) + (_%hd7066770727%_ (let () (declare (not safe)) - (##car _%e6955569612%_)))) + (##car _%e7066670723%_)))) (if (gx#stx-pair? - _%tl6955769619%_) - (let ((_%e6955869622%_ + _%tl7066870730%_) + (let ((_%e7066970733%_ (gx#syntax-e - _%tl6955769619%_))) - (let ((_%tl6956069629%_ + _%tl7066870730%_))) + (let ((_%tl7067170740%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6955869622%_))) - (_%hd6955969626%_ - (let () (declare (not safe)) (##car _%e6955869622%_)))) - (if (gx#stx-null? _%tl6956069629%_) - (if (gx#stx-pair/null? _%tl6952169755%_) - (let ((_%__splice8966289663%_ + (##cdr _%e7066970733%_))) + (_%hd7067070737%_ + (let () (declare (not safe)) (##car _%e7066970733%_)))) + (if (gx#stx-null? _%tl7067170740%_) + (if (gx#stx-pair/null? _%tl7063270864%_) + (let ((_%__splice9060990610%_ (gx#syntax-split-splice->vector - _%tl6952169755%_ + _%tl7063270864%_ '0))) - (let ((_%tl6956369635%_ + (let ((_%tl7067470746%_ (let () (declare (not safe)) - (##vector-ref _%__splice8966289663%_ '1))) - (_%target6956169632%_ + (##vector-ref _%__splice9060990610%_ '1))) + (_%target7067270743%_ (let () (declare (not safe)) (##vector-ref - _%__splice8966289663%_ + _%__splice9060990610%_ '0)))) - (if (gx#stx-null? _%tl6956369635%_) - (_%__match8975689757%_ - _%e6951669738%_ - _%hd6951769742%_ - _%tl6951869745%_ - _%e6951969748%_ - _%hd6952069752%_ - _%tl6952169755%_ - _%e6952269758%_ - _%hd6952369762%_ - _%tl6952469765%_ - _%e6955569612%_ - _%hd6955669616%_ - _%tl6955769619%_ - _%e6955869622%_ - _%hd6955969626%_ - _%tl6956069629%_ - _%__splice8966289663%_ - _%target6956169632%_ - _%tl6956369635%_) + (if (gx#stx-null? _%tl7067470746%_) + (_%__match9070390704%_ + _%e7062770847%_ + _%hd7062870851%_ + _%tl7062970854%_ + _%e7063070857%_ + _%hd7063170861%_ + _%tl7063270864%_ + _%e7063370867%_ + _%hd7063470871%_ + _%tl7063570874%_ + _%e7066670723%_ + _%hd7066770727%_ + _%tl7066870730%_ + _%e7066970733%_ + _%hd7067070737%_ + _%tl7067170740%_ + _%__splice9060990610%_ + _%target7067270743%_ + _%tl7067470746%_) (let () (declare (not safe)) - (_%g6951269575%_))))) - (let () (declare (not safe)) (_%g6951269575%_))) - (let () (declare (not safe)) (_%g6951269575%_))))) - (let () (declare (not safe)) (_%g6951269575%_))))) + (_%g7062370686%_))))) + (let () (declare (not safe)) (_%g7062370686%_))) + (let () (declare (not safe)) (_%g7062370686%_))))) + (let () (declare (not safe)) (_%g7062370686%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6951269575%_)))))) + (_%g7062370686%_)))))) (let () (declare (not safe)) - (_%g6951269575%_))))) - (let () (declare (not safe)) (_%g6951269575%_))))) - (let () (declare (not safe)) (_%g6951269575%_)))))))) + (_%g7062370686%_))))) + (let () (declare (not safe)) (_%g7062370686%_))))) + (let () (declare (not safe)) (_%g7062370686%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-procedure-contract| - (lambda (_%stx69898%_) - (let* ((_%g6990169925%_ - (lambda (_%g6990269921%_) + (lambda (_%stx71005%_) + (let* ((_%g7100871032%_ + (lambda (_%g7100971028%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6990269921%_))) - (_%g6990070041%_ - (lambda (_%g6990269929%_) - (if (gx#stx-pair? _%g6990269929%_) - (let ((_%e6990569932%_ (gx#syntax-e _%g6990269929%_))) - (let ((_%hd6990669936%_ + _%g7100971028%_))) + (_%g7100771146%_ + (lambda (_%g7100971036%_) + (if (gx#stx-pair? _%g7100971036%_) + (let ((_%e7101271039%_ (gx#syntax-e _%g7100971036%_))) + (let ((_%hd7101371043%_ (let () (declare (not safe)) - (##car _%e6990569932%_))) - (_%tl6990769939%_ + (##car _%e7101271039%_))) + (_%tl7101471046%_ (let () (declare (not safe)) - (##cdr _%e6990569932%_)))) - (if (gx#stx-pair? _%tl6990769939%_) - (let ((_%e6990869942%_ - (gx#syntax-e _%tl6990769939%_))) - (let ((_%hd6990969946%_ + (##cdr _%e7101271039%_)))) + (if (gx#stx-pair? _%tl7101471046%_) + (let ((_%e7101571049%_ + (gx#syntax-e _%tl7101471046%_))) + (let ((_%hd7101671053%_ (let () (declare (not safe)) - (##car _%e6990869942%_))) - (_%tl6991069949%_ + (##car _%e7101571049%_))) + (_%tl7101771056%_ (let () (declare (not safe)) - (##cdr _%e6990869942%_)))) - (if (gx#stx-pair/null? _%tl6991069949%_) - (let ((_g91966_ + (##cdr _%e7101571049%_)))) + (if (gx#stx-pair/null? _%tl7101771056%_) + (let ((_g92829_ (gx#syntax-split-splice - _%tl6991069949%_ + _%tl7101771056%_ '0))) (begin - (let ((_g91967_ + (let ((_g92830_ (let () (declare (not safe)) - (if (##values? _g91966_) + (if (##values? _g92829_) (##values-length - _g91966_) + _g92829_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91967_ 2))) + (##fx= _g92830_ 2))) (error "Context expects 2 values" - _g91967_))) - (let ((_%target6991169952%_ + _g92830_))) + (let ((_%target7101871059%_ (let () (declare (not safe)) - (##values-ref _g91966_ 0))) - (_%tl6991369955%_ + (##values-ref _g92829_ 0))) + (_%tl7102071062%_ (let () (declare (not safe)) - (##values-ref _g91966_ 1)))) - (if (gx#stx-null? _%tl6991369955%_) - (letrec ((_%loop6991469958%_ - (lambda (_%hd6991269962%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6991869965%_) - (if (gx#stx-pair? _%hd6991269962%_) - (let ((_%e6991569968%_ (gx#syntax-e _%hd6991269962%_))) - (let ((_%lp-hd6991669972%_ + (##values-ref _g92829_ 1)))) + (if (gx#stx-null? _%tl7102071062%_) + (letrec ((_%loop7102171065%_ + (lambda (_%hd7101971069%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body7102571072%_) + (if (gx#stx-pair? _%hd7101971069%_) + (let ((_%e7102271074%_ (gx#syntax-e _%hd7101971069%_))) + (let ((_%lp-hd7102371078%_ (let () (declare (not safe)) - (##car _%e6991569968%_))) - (_%lp-tl6991769975%_ + (##car _%e7102271074%_))) + (_%lp-tl7102471081%_ (let () (declare (not safe)) - (##cdr _%e6991569968%_)))) - (_%loop6991469958%_ - _%lp-tl6991769975%_ - (cons _%lp-hd6991669972%_ _%body6991869965%_)))) - (let ((_%body6991969978%_ - (reverse _%body6991869965%_))) - ((lambda (_%L69982%_ _%L69984%_) - (let* ((_%g7000270010%_ - (lambda (_%g7000370006%_) + (##cdr _%e7102271074%_)))) + (_%loop7102171065%_ + _%lp-tl7102471081%_ + (cons _%lp-hd7102371078%_ _%body7102571072%_)))) + (let ((_%body7102671084%_ + (reverse _%body7102571072%_))) + ((lambda (_%g7101071087%_ _%g7101171089%_) + (let* ((_%g7110771115%_ + (lambda (_%g7110871111%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7000370006%_))) - (_%g7000170037%_ - (lambda (_%g7000370014%_) - ((lambda (_%L70017%_) + _%g7110871111%_))) + (_%g7110671142%_ + (lambda (_%g7110871119%_) + ((lambda (_%g7110971122%_) (cons (gx#datum->syntax '#f 'using) - (cons _%L70017%_ - (foldr (lambda (_%g7002870031%_ + (cons _%g7110971122%_ + (foldr (lambda (_%g7113371136%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7002970034%_) - (cons _%g7002870031%_ _%g7002970034%_)) + _%g7113471139%_) + (cons _%g7113371136%_ _%g7113471139%_)) '() - _%L69982%_)))) + _%g7101071087%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7000370014%_)))) - (_%g7000170037%_ + _%g7110871119%_)))) + (_%g7110671142%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#make-procedure-contract| - _%stx69898%_ - _%L69984%_ + _%stx71005%_ + _%g7101171089%_ '#t))))) - _%body6991969978%_ - _%hd6990969946%_)))))) + _%body7102671084%_ + _%hd7101671053%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6991469958%_ - _%target6991169952%_ + (_%loop7102171065%_ + _%target7101871059%_ '())) - (_%g6990169925%_ - _%g6990269929%_))))) - (_%g6990169925%_ _%g6990269929%_)))) - (_%g6990169925%_ _%g6990269929%_)))) - (_%g6990169925%_ _%g6990269929%_))))) - (_%g6990070041%_ _%stx69898%_)))) + (_%g7100871032%_ + _%g7100971036%_))))) + (_%g7100871032%_ _%g7100971036%_)))) + (_%g7100871032%_ _%g7100971036%_)))) + (_%g7100871032%_ _%g7100971036%_))))) + (_%g7100771146%_ _%stx71005%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-procedure-unchecked-contract| - (lambda (_%stx70046%_) - (let* ((_%g7004970073%_ - (lambda (_%g7005070069%_) + (lambda (_%stx71151%_) + (let* ((_%g7115471178%_ + (lambda (_%g7115571174%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7005070069%_))) - (_%g7004870189%_ - (lambda (_%g7005070077%_) - (if (gx#stx-pair? _%g7005070077%_) - (let ((_%e7005370080%_ (gx#syntax-e _%g7005070077%_))) - (let ((_%hd7005470084%_ + _%g7115571174%_))) + (_%g7115371292%_ + (lambda (_%g7115571182%_) + (if (gx#stx-pair? _%g7115571182%_) + (let ((_%e7115871185%_ (gx#syntax-e _%g7115571182%_))) + (let ((_%hd7115971189%_ (let () (declare (not safe)) - (##car _%e7005370080%_))) - (_%tl7005570087%_ + (##car _%e7115871185%_))) + (_%tl7116071192%_ (let () (declare (not safe)) - (##cdr _%e7005370080%_)))) - (if (gx#stx-pair? _%tl7005570087%_) - (let ((_%e7005670090%_ - (gx#syntax-e _%tl7005570087%_))) - (let ((_%hd7005770094%_ + (##cdr _%e7115871185%_)))) + (if (gx#stx-pair? _%tl7116071192%_) + (let ((_%e7116171195%_ + (gx#syntax-e _%tl7116071192%_))) + (let ((_%hd7116271199%_ (let () (declare (not safe)) - (##car _%e7005670090%_))) - (_%tl7005870097%_ + (##car _%e7116171195%_))) + (_%tl7116371202%_ (let () (declare (not safe)) - (##cdr _%e7005670090%_)))) - (if (gx#stx-pair/null? _%tl7005870097%_) - (let ((_g91968_ + (##cdr _%e7116171195%_)))) + (if (gx#stx-pair/null? _%tl7116371202%_) + (let ((_g92831_ (gx#syntax-split-splice - _%tl7005870097%_ + _%tl7116371202%_ '0))) (begin - (let ((_g91969_ + (let ((_g92832_ (let () (declare (not safe)) - (if (##values? _g91968_) + (if (##values? _g92831_) (##values-length - _g91968_) + _g92831_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91969_ 2))) + (##fx= _g92832_ 2))) (error "Context expects 2 values" - _g91969_))) - (let ((_%target7005970100%_ + _g92832_))) + (let ((_%target7116471205%_ (let () (declare (not safe)) - (##values-ref _g91968_ 0))) - (_%tl7006170103%_ + (##values-ref _g92831_ 0))) + (_%tl7116671208%_ (let () (declare (not safe)) - (##values-ref _g91968_ 1)))) - (if (gx#stx-null? _%tl7006170103%_) - (letrec ((_%loop7006270106%_ - (lambda (_%hd7006070110%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body7006670113%_) - (if (gx#stx-pair? _%hd7006070110%_) - (let ((_%e7006370116%_ (gx#syntax-e _%hd7006070110%_))) - (let ((_%lp-hd7006470120%_ + (##values-ref _g92831_ 1)))) + (if (gx#stx-null? _%tl7116671208%_) + (letrec ((_%loop7116771211%_ + (lambda (_%hd7116571215%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body7117171218%_) + (if (gx#stx-pair? _%hd7116571215%_) + (let ((_%e7116871220%_ (gx#syntax-e _%hd7116571215%_))) + (let ((_%lp-hd7116971224%_ (let () (declare (not safe)) - (##car _%e7006370116%_))) - (_%lp-tl7006570123%_ + (##car _%e7116871220%_))) + (_%lp-tl7117071227%_ (let () (declare (not safe)) - (##cdr _%e7006370116%_)))) - (_%loop7006270106%_ - _%lp-tl7006570123%_ - (cons _%lp-hd7006470120%_ _%body7006670113%_)))) - (let ((_%body7006770126%_ - (reverse _%body7006670113%_))) - ((lambda (_%L70130%_ _%L70132%_) - (let* ((_%g7015070158%_ - (lambda (_%g7015170154%_) + (##cdr _%e7116871220%_)))) + (_%loop7116771211%_ + _%lp-tl7117071227%_ + (cons _%lp-hd7116971224%_ _%body7117171218%_)))) + (let ((_%body7117271230%_ + (reverse _%body7117171218%_))) + ((lambda (_%g7115671233%_ _%g7115771235%_) + (let* ((_%g7125371261%_ + (lambda (_%g7125471257%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7015170154%_))) - (_%g7014970185%_ - (lambda (_%g7015170162%_) - ((lambda (_%L70165%_) + _%g7125471257%_))) + (_%g7125271288%_ + (lambda (_%g7125471265%_) + ((lambda (_%g7125571268%_) (cons (gx#datum->syntax '#f 'using) - (cons _%L70165%_ - (foldr (lambda (_%g7017670179%_ + (cons _%g7125571268%_ + (foldr (lambda (_%g7127971282%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7017770182%_) - (cons _%g7017670179%_ _%g7017770182%_)) + _%g7128071285%_) + (cons _%g7127971282%_ _%g7128071285%_)) '() - _%L70130%_)))) + _%g7115671233%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7015170162%_)))) - (_%g7014970185%_ + _%g7125471265%_)))) + (_%g7125271288%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#make-procedure-contract| - _%stx70046%_ - _%L70132%_ + _%stx71151%_ + _%g7115771235%_ '#f))))) - _%body7006770126%_ - _%hd7005770094%_)))))) + _%body7117271230%_ + _%hd7116271199%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7006270106%_ - _%target7005970100%_ + (_%loop7116771211%_ + _%target7116471205%_ '())) - (_%g7004970073%_ - _%g7005070077%_))))) - (_%g7004970073%_ _%g7005070077%_)))) - (_%g7004970073%_ _%g7005070077%_)))) - (_%g7004970073%_ _%g7005070077%_))))) - (_%g7004870189%_ _%stx70046%_)))) + (_%g7115471178%_ + _%g7115571182%_))))) + (_%g7115471178%_ _%g7115571182%_)))) + (_%g7115471178%_ _%g7115571182%_)))) + (_%g7115471178%_ _%g7115571182%_))))) + (_%g7115371292%_ _%stx71151%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#lambda/c| - (lambda (_%stx70194%_) - (letrec ((_%make-lambda70197%_ - (lambda (_%signature70465%_ _%return70467%_ _%body70468%_) - (let* ((_%g7047070502%_ - (lambda (_%g7047170498%_) + (lambda (_%stx71297%_) + (letrec ((_%make-lambda71300%_ + (lambda (_%signature71564%_ _%return71566%_ _%body71567%_) + (let* ((_%g7156971601%_ + (lambda (_%g7157071597%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7047170498%_))) - (_%g7046970617%_ - (lambda (_%g7047170506%_) - (if (gx#stx-pair? _%g7047170506%_) - (let ((_%e7047670509%_ - (gx#syntax-e _%g7047170506%_))) - (let ((_%hd7047770513%_ + _%g7157071597%_))) + (_%g7156871714%_ + (lambda (_%g7157071605%_) + (if (gx#stx-pair? _%g7157071605%_) + (let ((_%e7157571608%_ + (gx#syntax-e _%g7157071605%_))) + (let ((_%hd7157671612%_ (let () (declare (not safe)) - (##car _%e7047670509%_))) - (_%tl7047870516%_ + (##car _%e7157571608%_))) + (_%tl7157771615%_ (let () (declare (not safe)) - (##cdr _%e7047670509%_)))) - (if (gx#stx-pair? _%tl7047870516%_) - (let ((_%e7047970519%_ + (##cdr _%e7157571608%_)))) + (if (gx#stx-pair? _%tl7157771615%_) + (let ((_%e7157871618%_ (gx#syntax-e - _%tl7047870516%_))) - (let ((_%hd7048070523%_ + _%tl7157771615%_))) + (let ((_%hd7157971622%_ (let () (declare (not safe)) - (##car _%e7047970519%_))) - (_%tl7048170526%_ + (##car _%e7157871618%_))) + (_%tl7158071625%_ (let () (declare (not safe)) - (##cdr _%e7047970519%_)))) + (##cdr _%e7157871618%_)))) (if (gx#stx-pair? - _%tl7048170526%_) - (let ((_%e7048270529%_ + _%tl7158071625%_) + (let ((_%e7158171628%_ (gx#syntax-e - _%tl7048170526%_))) - (let ((_%hd7048370533%_ + _%tl7158071625%_))) + (let ((_%hd7158271632%_ (let () (declare (not safe)) - (##car _%e7048270529%_))) - (_%tl7048470536%_ + (##car _%e7158171628%_))) + (_%tl7158371635%_ (let () (declare (not safe)) - (##cdr _%e7048270529%_)))) + (##cdr _%e7158171628%_)))) (if (gx#stx-pair? - _%tl7048470536%_) - (let ((_%e7048570539%_ + _%tl7158371635%_) + (let ((_%e7158471638%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7048470536%_))) - (let ((_%hd7048670543%_ + (gx#syntax-e _%tl7158371635%_))) + (let ((_%hd7158571642%_ (let () (declare (not safe)) - (##car _%e7048570539%_))) - (_%tl7048770546%_ + (##car _%e7158471638%_))) + (_%tl7158671645%_ (let () (declare (not safe)) - (##cdr _%e7048570539%_)))) - (if (gx#stx-pair/null? _%hd7048670543%_) - (let ((_g91970_ - (gx#syntax-split-splice _%hd7048670543%_ '0))) + (##cdr _%e7158471638%_)))) + (if (gx#stx-pair/null? _%hd7158571642%_) + (let ((_g92833_ + (gx#syntax-split-splice _%hd7158571642%_ '0))) (begin - (let ((_g91971_ + (let ((_g92834_ (let () (declare (not safe)) - (if (##values? _g91970_) - (##values-length _g91970_) + (if (##values? _g92833_) + (##values-length _g92833_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91971_ 2))) + (##fx= _g92834_ 2))) (error "Context expects 2 values" - _g91971_))) - (let ((_%target7048870549%_ + _g92834_))) + (let ((_%target7158771648%_ (let () (declare (not safe)) - (##values-ref _g91970_ 0))) - (_%tl7049070552%_ + (##values-ref _g92833_ 0))) + (_%tl7158971651%_ (let () (declare (not safe)) - (##values-ref _g91970_ 1)))) - (if (gx#stx-null? _%tl7049070552%_) - (letrec ((_%loop7049170555%_ - (lambda (_%hd7048970559%_ - _%body7049570562%_) + (##values-ref _g92833_ 1)))) + (if (gx#stx-null? _%tl7158971651%_) + (letrec ((_%loop7159071654%_ + (lambda (_%hd7158871658%_ + _%body7159471661%_) (if (gx#stx-pair? - _%hd7048970559%_) - (let ((_%e7049270565%_ + _%hd7158871658%_) + (let ((_%e7159171663%_ (gx#syntax-e - _%hd7048970559%_))) - (let ((_%lp-hd7049370569%_ + _%hd7158871658%_))) + (let ((_%lp-hd7159271667%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e7049270565%_))) - (_%lp-tl7049470572%_ - (let () (declare (not safe)) (##cdr _%e7049270565%_)))) - (_%loop7049170555%_ - _%lp-tl7049470572%_ - (cons _%lp-hd7049370569%_ _%body7049570562%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body7049670575%_ - (reverse _%body7049570562%_))) + (##car _%e7159171663%_))) + (_%lp-tl7159371670%_ + (let () (declare (not safe)) (##cdr _%e7159171663%_)))) + (_%loop7159071654%_ + _%lp-tl7159371670%_ + (cons _%lp-hd7159271667%_ _%body7159471661%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%body7159571673%_ + (reverse _%body7159471661%_))) (if (gx#stx-null? - _%tl7048770546%_) - ((lambda (_%L70579%_ + _%tl7158671645%_) + ((lambda (_%g7157171676%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L70581%_ - _%L70582%_ - _%L70583%_) + _%g7157271678%_ + _%g7157371679%_ + _%g7157471680%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) - (cons _%L70583%_ + (cons _%g7157471680%_ (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) - (cons (cons _%L70582%_ - (cons _%L70581%_ + (cons (cons _%g7157371679%_ + (cons _%g7157271678%_ (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) @@ -3200,900 +3235,905 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'with-procedure-contract) - (cons _%L70582%_ - (foldr (lambda (_%g7060870611%_ _%g7060970614%_) - (cons _%g7060870611%_ _%g7060970614%_)) + (cons _%g7157371679%_ + (foldr (lambda (_%g7170571708%_ _%g7170671711%_) + (cons _%g7170571708%_ _%g7170671711%_)) '() - _%L70579%_))) + _%g7157171676%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx70194%_))) - _%body7049670575%_ - _%hd7048370533%_ - _%hd7048070523%_ - _%hd7047770513%_) - (_%g7047070502%_ _%g7047170506%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7049170555%_ - _%target7048870549%_ + (gx#stx-source _%stx71297%_))) + _%body7159571673%_ + _%hd7158271632%_ + _%hd7157971622%_ + _%hd7157671612%_) + (_%g7156971601%_ _%g7157071605%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7159071654%_ + _%target7158771648%_ '())) - (_%g7047070502%_ _%g7047170506%_))))) - (_%g7047070502%_ _%g7047170506%_)))) - (_%g7047070502%_ _%g7047170506%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7047070502%_ - _%g7047170506%_)))) - (_%g7047070502%_ _%g7047170506%_)))) - (_%g7047070502%_ _%g7047170506%_))))) - (_%g7046970617%_ + (_%g7156971601%_ _%g7157071605%_))))) + (_%g7156971601%_ _%g7157071605%_)))) + (_%g7156971601%_ _%g7157071605%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7156971601%_ + _%g7157071605%_)))) + (_%g7156971601%_ _%g7157071605%_)))) + (_%g7156971601%_ _%g7157071605%_))))) + (_%g7156871714%_ (list (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature70465%_)) - _%signature70465%_ - _%return70467%_ - _%body70468%_)))))) - (let* ((_%__stx8975989760%_ _%stx70194%_) - (_%g7020170249%_ + _%signature71564%_)) + _%signature71564%_ + _%return71566%_ + _%body71567%_)))))) + (let* ((_%__stx9070690707%_ _%stx71297%_) + (_%g7130471352%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8975989760%_)))) - (let ((_%__kont8976289763%_ - (lambda (_%L70420%_ _%L70422%_ _%L70423%_) + _%__stx9070690707%_)))) + (let ((_%__kont9070990710%_ + (lambda (_%g7130671519%_ _%g7130771521%_ _%g7130871522%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L70423%_) - (_%make-lambda70197%_ - _%L70423%_ - _%L70422%_ - (foldr (lambda (_%g7044470447%_ _%g7044570450%_) - (cons _%g7044470447%_ _%g7044570450%_)) + _%g7130871522%_) + (_%make-lambda71300%_ + _%g7130871522%_ + _%g7130771521%_ + (foldr (lambda (_%g7154371546%_ _%g7154471549%_) + (cons _%g7154371546%_ _%g7154471549%_)) '() - _%L70420%_)) + _%g7130671519%_)) (cons (gx#datum->syntax '#f 'lambda) - (cons _%L70423%_ + (cons _%g7130871522%_ (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f - (cons _%L70422%_ + (cons _%g7130771521%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '#f '()))) - (foldr (lambda (_%g7045270455%_ _%g7045370458%_) - (cons _%g7045270455%_ _%g7045370458%_)) + (foldr (lambda (_%g7155171554%_ _%g7155271557%_) + (cons _%g7155171554%_ _%g7155271557%_)) '() - _%L70420%_))) + _%g7130671519%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont8976689767%_ - (lambda (_%L70306%_ _%L70308%_) + (_%__kont9071390714%_ + (lambda (_%g7133071407%_ _%g7133171409%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L70308%_) + _%g7133171409%_) (cons (gx#datum->syntax '#f 'lambda/c) - (cons _%L70308%_ + (cons _%g7133171409%_ (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g7032670329%_ + (foldr (lambda (_%g7142771430%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7032770332%_) - (cons _%g7032670329%_ _%g7032770332%_)) + _%g7142871433%_) + (cons _%g7142771430%_ _%g7142871433%_)) '() - _%L70306%_))))) + _%g7133071407%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (gx#datum->syntax '#f 'lambda) - (cons _%L70308%_ - (foldr (lambda (_%g7033470337%_ - _%g7033570340%_) - (cons _%g7033470337%_ - _%g7033570340%_)) + (cons _%g7133171409%_ + (foldr (lambda (_%g7143571438%_ + _%g7143671441%_) + (cons _%g7143571438%_ + _%g7143671441%_)) '() - _%L70306%_))))))) - (let* ((_%__match8982689827%_ - (lambda (_%e7022970256%_ - _%hd7023070260%_ - _%tl7023170263%_ - _%e7023270266%_ - _%hd7023370270%_ - _%tl7023470273%_ - _%__splice8976889769%_ - _%target7023570276%_ - _%tl7023770279%_) - (letrec ((_%loop7023870282%_ - (lambda (_%hd7023670286%_ _%body7024270289%_) - (if (gx#stx-pair? _%hd7023670286%_) - (let ((_%e7023970292%_ - (gx#syntax-e _%hd7023670286%_))) - (let ((_%lp-tl7024170299%_ + _%g7133071407%_))))))) + (let* ((_%__match9077390774%_ + (lambda (_%e7133271359%_ + _%hd7133371363%_ + _%tl7133471366%_ + _%e7133571369%_ + _%hd7133671373%_ + _%tl7133771376%_ + _%__splice9071590716%_ + _%target7133871379%_ + _%tl7134071382%_) + (letrec ((_%loop7134171385%_ + (lambda (_%hd7133971389%_ _%body7134571392%_) + (if (gx#stx-pair? _%hd7133971389%_) + (let ((_%e7134271394%_ + (gx#syntax-e _%hd7133971389%_))) + (let ((_%lp-tl7134471401%_ (let () (declare (not safe)) - (##cdr _%e7023970292%_))) - (_%lp-hd7024070296%_ + (##cdr _%e7134271394%_))) + (_%lp-hd7134371398%_ (let () (declare (not safe)) - (##car _%e7023970292%_)))) - (_%loop7023870282%_ - _%lp-tl7024170299%_ - (cons _%lp-hd7024070296%_ - _%body7024270289%_)))) - (let ((_%body7024370302%_ - (reverse _%body7024270289%_))) - (_%__kont8976689767%_ - _%body7024370302%_ - _%hd7023370270%_)))))) - (_%loop7023870282%_ _%target7023570276%_ '())))) - (_%__match8980689807%_ - (lambda (_%e7020670350%_ - _%hd7020770354%_ - _%tl7020870357%_ - _%e7020970360%_ - _%hd7021070364%_ - _%tl7021170367%_ - _%e7021270370%_ - _%hd7021370374%_ - _%tl7021470377%_ - _%e7021570380%_ - _%hd7021670384%_ - _%tl7021770387%_ - _%__splice8976489765%_ - _%target7021870390%_ - _%tl7022070393%_) - (letrec ((_%loop7022170396%_ - (lambda (_%hd7021970400%_ _%body7022570403%_) - (if (gx#stx-pair? _%hd7021970400%_) - (let ((_%e7022270406%_ - (gx#syntax-e _%hd7021970400%_))) - (let ((_%lp-tl7022470413%_ + (##car _%e7134271394%_)))) + (_%loop7134171385%_ + _%lp-tl7134471401%_ + (cons _%lp-hd7134371398%_ + _%body7134571392%_)))) + (let ((_%body7134671404%_ + (reverse _%body7134571392%_))) + (_%__kont9071390714%_ + _%body7134671404%_ + _%hd7133671373%_)))))) + (_%loop7134171385%_ _%target7133871379%_ '())))) + (_%__match9075390754%_ + (lambda (_%e7130971451%_ + _%hd7131071455%_ + _%tl7131171458%_ + _%e7131271461%_ + _%hd7131371465%_ + _%tl7131471468%_ + _%e7131571471%_ + _%hd7131671475%_ + _%tl7131771478%_ + _%e7131871481%_ + _%hd7131971485%_ + _%tl7132071488%_ + _%__splice9071190712%_ + _%target7132171491%_ + _%tl7132371494%_) + (letrec ((_%loop7132471497%_ + (lambda (_%hd7132271501%_ _%body7132871504%_) + (if (gx#stx-pair? _%hd7132271501%_) + (let ((_%e7132571506%_ + (gx#syntax-e _%hd7132271501%_))) + (let ((_%lp-tl7132771513%_ (let () (declare (not safe)) - (##cdr _%e7022270406%_))) - (_%lp-hd7022370410%_ + (##cdr _%e7132571506%_))) + (_%lp-hd7132671510%_ (let () (declare (not safe)) - (##car _%e7022270406%_)))) - (_%loop7022170396%_ - _%lp-tl7022470413%_ - (cons _%lp-hd7022370410%_ - _%body7022570403%_)))) - (let ((_%body7022670416%_ - (reverse _%body7022570403%_))) - (_%__kont8976289763%_ - _%body7022670416%_ - _%hd7021670384%_ - _%hd7021070364%_)))))) - (_%loop7022170396%_ _%target7021870390%_ '()))))) - (if (gx#stx-pair? _%__stx8975989760%_) - (let ((_%e7020670350%_ (gx#syntax-e _%__stx8975989760%_))) - (let ((_%tl7020870357%_ + (##car _%e7132571506%_)))) + (_%loop7132471497%_ + _%lp-tl7132771513%_ + (cons _%lp-hd7132671510%_ + _%body7132871504%_)))) + (let ((_%body7132971516%_ + (reverse _%body7132871504%_))) + (_%__kont9070990710%_ + _%body7132971516%_ + _%hd7131971485%_ + _%hd7131371465%_)))))) + (_%loop7132471497%_ _%target7132171491%_ '()))))) + (if (gx#stx-pair? _%__stx9070690707%_) + (let ((_%e7130971451%_ (gx#syntax-e _%__stx9070690707%_))) + (let ((_%tl7131171458%_ (let () (declare (not safe)) - (##cdr _%e7020670350%_))) - (_%hd7020770354%_ + (##cdr _%e7130971451%_))) + (_%hd7131071455%_ (let () (declare (not safe)) - (##car _%e7020670350%_)))) - (if (gx#stx-pair? _%tl7020870357%_) - (let ((_%e7020970360%_ - (gx#syntax-e _%tl7020870357%_))) - (let ((_%tl7021170367%_ + (##car _%e7130971451%_)))) + (if (gx#stx-pair? _%tl7131171458%_) + (let ((_%e7131271461%_ + (gx#syntax-e _%tl7131171458%_))) + (let ((_%tl7131471468%_ (let () (declare (not safe)) - (##cdr _%e7020970360%_))) - (_%hd7021070364%_ + (##cdr _%e7131271461%_))) + (_%hd7131371465%_ (let () (declare (not safe)) - (##car _%e7020970360%_)))) - (if (gx#stx-pair? _%tl7021170367%_) - (let ((_%e7021270370%_ - (gx#syntax-e _%tl7021170367%_))) - (let ((_%tl7021470377%_ + (##car _%e7131271461%_)))) + (if (gx#stx-pair? _%tl7131471468%_) + (let ((_%e7131571471%_ + (gx#syntax-e _%tl7131471468%_))) + (let ((_%tl7131771478%_ (let () (declare (not safe)) - (##cdr _%e7021270370%_))) - (_%hd7021370374%_ + (##cdr _%e7131571471%_))) + (_%hd7131671475%_ (let () (declare (not safe)) - (##car _%e7021270370%_)))) - (if (gx#identifier? _%hd7021370374%_) + (##car _%e7131571471%_)))) + (if (gx#identifier? _%hd7131671475%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g91972_| - _%hd7021370374%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92835_| + _%hd7131671475%_) (if (gx#stx-pair? - _%tl7021470377%_) - (let ((_%e7021570380%_ + _%tl7131771478%_) + (let ((_%e7131871481%_ (gx#syntax-e - _%tl7021470377%_))) - (let ((_%tl7021770387%_ + _%tl7131771478%_))) + (let ((_%tl7132071488%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e7021570380%_))) - (_%hd7021670384%_ - (let () (declare (not safe)) (##car _%e7021570380%_)))) - (if (gx#stx-pair/null? _%tl7021770387%_) - (let ((_%__splice8976489765%_ + (##cdr _%e7131871481%_))) + (_%hd7131971485%_ + (let () (declare (not safe)) (##car _%e7131871481%_)))) + (if (gx#stx-pair/null? _%tl7132071488%_) + (let ((_%__splice9071190712%_ (gx#syntax-split-splice->vector - _%tl7021770387%_ + _%tl7132071488%_ '0))) - (let ((_%tl7022070393%_ + (let ((_%tl7132371494%_ (let () (declare (not safe)) - (##vector-ref _%__splice8976489765%_ '1))) - (_%target7021870390%_ + (##vector-ref _%__splice9071190712%_ '1))) + (_%target7132171491%_ (let () (declare (not safe)) - (##vector-ref _%__splice8976489765%_ '0)))) - (if (gx#stx-null? _%tl7022070393%_) - (_%__match8980689807%_ - _%e7020670350%_ - _%hd7020770354%_ - _%tl7020870357%_ - _%e7020970360%_ - _%hd7021070364%_ - _%tl7021170367%_ - _%e7021270370%_ - _%hd7021370374%_ - _%tl7021470377%_ - _%e7021570380%_ - _%hd7021670384%_ - _%tl7021770387%_ - _%__splice8976489765%_ - _%target7021870390%_ - _%tl7022070393%_) - (if (gx#stx-pair/null? _%tl7021170367%_) - (let ((_%__splice8976889769%_ + (##vector-ref _%__splice9071190712%_ '0)))) + (if (gx#stx-null? _%tl7132371494%_) + (_%__match9075390754%_ + _%e7130971451%_ + _%hd7131071455%_ + _%tl7131171458%_ + _%e7131271461%_ + _%hd7131371465%_ + _%tl7131471468%_ + _%e7131571471%_ + _%hd7131671475%_ + _%tl7131771478%_ + _%e7131871481%_ + _%hd7131971485%_ + _%tl7132071488%_ + _%__splice9071190712%_ + _%target7132171491%_ + _%tl7132371494%_) + (if (gx#stx-pair/null? _%tl7131471468%_) + (let ((_%__splice9071590716%_ (gx#syntax-split-splice->vector - _%tl7021170367%_ + _%tl7131471468%_ '0))) - (let ((_%tl7023770279%_ + (let ((_%tl7134071382%_ (let () (declare (not safe)) (##vector-ref - _%__splice8976889769%_ + _%__splice9071590716%_ '1))) - (_%target7023570276%_ + (_%target7133871379%_ (let () (declare (not safe)) (##vector-ref - _%__splice8976889769%_ + _%__splice9071590716%_ '0)))) - (if (gx#stx-null? _%tl7023770279%_) - (_%__match8982689827%_ - _%e7020670350%_ - _%hd7020770354%_ - _%tl7020870357%_ - _%e7020970360%_ - _%hd7021070364%_ - _%tl7021170367%_ - _%__splice8976889769%_ - _%target7023570276%_ - _%tl7023770279%_) + (if (gx#stx-null? _%tl7134071382%_) + (_%__match9077390774%_ + _%e7130971451%_ + _%hd7131071455%_ + _%tl7131171458%_ + _%e7131271461%_ + _%hd7131371465%_ + _%tl7131471468%_ + _%__splice9071590716%_ + _%target7133871379%_ + _%tl7134071382%_) (let () (declare (not safe)) - (_%g7020170249%_))))) + (_%g7130471352%_))))) (let () (declare (not safe)) - (_%g7020170249%_)))))) - (if (gx#stx-pair/null? _%tl7021170367%_) - (let ((_%__splice8976889769%_ + (_%g7130471352%_)))))) + (if (gx#stx-pair/null? _%tl7131471468%_) + (let ((_%__splice9071590716%_ (gx#syntax-split-splice->vector - _%tl7021170367%_ + _%tl7131471468%_ '0))) - (let ((_%tl7023770279%_ + (let ((_%tl7134071382%_ (let () (declare (not safe)) - (##vector-ref _%__splice8976889769%_ '1))) - (_%target7023570276%_ + (##vector-ref _%__splice9071590716%_ '1))) + (_%target7133871379%_ (let () (declare (not safe)) - (##vector-ref _%__splice8976889769%_ '0)))) - (if (gx#stx-null? _%tl7023770279%_) - (_%__match8982689827%_ - _%e7020670350%_ - _%hd7020770354%_ - _%tl7020870357%_ - _%e7020970360%_ - _%hd7021070364%_ - _%tl7021170367%_ - _%__splice8976889769%_ - _%target7023570276%_ - _%tl7023770279%_) + (##vector-ref _%__splice9071590716%_ '0)))) + (if (gx#stx-null? _%tl7134071382%_) + (_%__match9077390774%_ + _%e7130971451%_ + _%hd7131071455%_ + _%tl7131171458%_ + _%e7131271461%_ + _%hd7131371465%_ + _%tl7131471468%_ + _%__splice9071590716%_ + _%target7133871379%_ + _%tl7134071382%_) (let () (declare (not safe)) - (_%g7020170249%_))))) - (let () (declare (not safe)) (_%g7020170249%_)))))) + (_%g7130471352%_))))) + (let () (declare (not safe)) (_%g7130471352%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl7021170367%_) - (let ((_%__splice8976889769%_ + _%tl7131471468%_) + (let ((_%__splice9071590716%_ (gx#syntax-split-splice->vector - _%tl7021170367%_ + _%tl7131471468%_ '0))) - (let ((_%tl7023770279%_ + (let ((_%tl7134071382%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice8976889769%_ '1))) - (_%target7023570276%_ + (##vector-ref _%__splice9071590716%_ '1))) + (_%target7133871379%_ (let () (declare (not safe)) - (##vector-ref _%__splice8976889769%_ '0)))) - (if (gx#stx-null? _%tl7023770279%_) - (_%__match8982689827%_ - _%e7020670350%_ - _%hd7020770354%_ - _%tl7020870357%_ - _%e7020970360%_ - _%hd7021070364%_ - _%tl7021170367%_ - _%__splice8976889769%_ - _%target7023570276%_ - _%tl7023770279%_) - (let () (declare (not safe)) (_%g7020170249%_))))) - (let () (declare (not safe)) (_%g7020170249%_)))) + (##vector-ref _%__splice9071590716%_ '0)))) + (if (gx#stx-null? _%tl7134071382%_) + (_%__match9077390774%_ + _%e7130971451%_ + _%hd7131071455%_ + _%tl7131171458%_ + _%e7131271461%_ + _%hd7131371465%_ + _%tl7131471468%_ + _%__splice9071590716%_ + _%target7133871379%_ + _%tl7134071382%_) + (let () (declare (not safe)) (_%g7130471352%_))))) + (let () (declare (not safe)) (_%g7130471352%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl7021170367%_) - (let ((_%__splice8976889769%_ + _%tl7131471468%_) + (let ((_%__splice9071590716%_ (gx#syntax-split-splice->vector - _%tl7021170367%_ + _%tl7131471468%_ '0))) - (let ((_%tl7023770279%_ + (let ((_%tl7134071382%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice8976889769%_ '1))) - (_%target7023570276%_ + (##vector-ref _%__splice9071590716%_ '1))) + (_%target7133871379%_ (let () (declare (not safe)) - (##vector-ref _%__splice8976889769%_ '0)))) - (if (gx#stx-null? _%tl7023770279%_) - (_%__match8982689827%_ - _%e7020670350%_ - _%hd7020770354%_ - _%tl7020870357%_ - _%e7020970360%_ - _%hd7021070364%_ - _%tl7021170367%_ - _%__splice8976889769%_ - _%target7023570276%_ - _%tl7023770279%_) - (let () (declare (not safe)) (_%g7020170249%_))))) + (##vector-ref _%__splice9071590716%_ '0)))) + (if (gx#stx-null? _%tl7134071382%_) + (_%__match9077390774%_ + _%e7130971451%_ + _%hd7131071455%_ + _%tl7131171458%_ + _%e7131271461%_ + _%hd7131371465%_ + _%tl7131471468%_ + _%__splice9071590716%_ + _%target7133871379%_ + _%tl7134071382%_) + (let () (declare (not safe)) (_%g7130471352%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g7020170249%_)))) + (_%g7130471352%_)))) (if (gx#stx-pair/null? - _%tl7021170367%_) - (let ((_%__splice8976889769%_ + _%tl7131471468%_) + (let ((_%__splice9071590716%_ (gx#syntax-split-splice->vector - _%tl7021170367%_ + _%tl7131471468%_ '0))) - (let ((_%tl7023770279%_ + (let ((_%tl7134071382%_ (let () (declare (not safe)) (##vector-ref - _%__splice8976889769%_ + _%__splice9071590716%_ '1))) - (_%target7023570276%_ + (_%target7133871379%_ (let () (declare (not safe)) (##vector-ref - _%__splice8976889769%_ + _%__splice9071590716%_ '0)))) (if (gx#stx-null? - _%tl7023770279%_) - (_%__match8982689827%_ - _%e7020670350%_ - _%hd7020770354%_ - _%tl7020870357%_ - _%e7020970360%_ - _%hd7021070364%_ - _%tl7021170367%_ - _%__splice8976889769%_ - _%target7023570276%_ - _%tl7023770279%_) + _%tl7134071382%_) + (_%__match9077390774%_ + _%e7130971451%_ + _%hd7131071455%_ + _%tl7131171458%_ + _%e7131271461%_ + _%hd7131371465%_ + _%tl7131471468%_ + _%__splice9071590716%_ + _%target7133871379%_ + _%tl7134071382%_) (let () (declare (not safe)) - (_%g7020170249%_))))) + (_%g7130471352%_))))) (let () (declare (not safe)) - (_%g7020170249%_)))))) - (if (gx#stx-pair/null? _%tl7021170367%_) - (let ((_%__splice8976889769%_ + (_%g7130471352%_)))))) + (if (gx#stx-pair/null? _%tl7131471468%_) + (let ((_%__splice9071590716%_ (gx#syntax-split-splice->vector - _%tl7021170367%_ + _%tl7131471468%_ '0))) - (let ((_%tl7023770279%_ + (let ((_%tl7134071382%_ (let () (declare (not safe)) (##vector-ref - _%__splice8976889769%_ + _%__splice9071590716%_ '1))) - (_%target7023570276%_ + (_%target7133871379%_ (let () (declare (not safe)) (##vector-ref - _%__splice8976889769%_ + _%__splice9071590716%_ '0)))) - (if (gx#stx-null? _%tl7023770279%_) - (_%__match8982689827%_ - _%e7020670350%_ - _%hd7020770354%_ - _%tl7020870357%_ - _%e7020970360%_ - _%hd7021070364%_ - _%tl7021170367%_ - _%__splice8976889769%_ - _%target7023570276%_ - _%tl7023770279%_) + (if (gx#stx-null? _%tl7134071382%_) + (_%__match9077390774%_ + _%e7130971451%_ + _%hd7131071455%_ + _%tl7131171458%_ + _%e7131271461%_ + _%hd7131371465%_ + _%tl7131471468%_ + _%__splice9071590716%_ + _%target7133871379%_ + _%tl7134071382%_) (let () (declare (not safe)) - (_%g7020170249%_))))) + (_%g7130471352%_))))) (let () (declare (not safe)) - (_%g7020170249%_)))))) - (let () (declare (not safe)) (_%g7020170249%_))))) - (let () (declare (not safe)) (_%g7020170249%_))))))))) + (_%g7130471352%_)))))) + (let () (declare (not safe)) (_%g7130471352%_))))) + (let () (declare (not safe)) (_%g7130471352%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#def*/c| - (lambda (_%$stx70624%_) - (let* ((_%g7062870652%_ - (lambda (_%g7062970648%_) + (lambda (_%$stx71721%_) + (let* ((_%g7172571749%_ + (lambda (_%g7172671745%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7062970648%_))) - (_%g7062770737%_ - (lambda (_%g7062970656%_) - (if (gx#stx-pair? _%g7062970656%_) - (let ((_%e7063270659%_ (gx#syntax-e _%g7062970656%_))) - (let ((_%hd7063370663%_ + _%g7172671745%_))) + (_%g7172471832%_ + (lambda (_%g7172671753%_) + (if (gx#stx-pair? _%g7172671753%_) + (let ((_%e7172971756%_ (gx#syntax-e _%g7172671753%_))) + (let ((_%hd7173071760%_ (let () (declare (not safe)) - (##car _%e7063270659%_))) - (_%tl7063470666%_ + (##car _%e7172971756%_))) + (_%tl7173171763%_ (let () (declare (not safe)) - (##cdr _%e7063270659%_)))) - (if (gx#stx-pair? _%tl7063470666%_) - (let ((_%e7063570669%_ - (gx#syntax-e _%tl7063470666%_))) - (let ((_%hd7063670673%_ + (##cdr _%e7172971756%_)))) + (if (gx#stx-pair? _%tl7173171763%_) + (let ((_%e7173271766%_ + (gx#syntax-e _%tl7173171763%_))) + (let ((_%hd7173371770%_ (let () (declare (not safe)) - (##car _%e7063570669%_))) - (_%tl7063770676%_ + (##car _%e7173271766%_))) + (_%tl7173471773%_ (let () (declare (not safe)) - (##cdr _%e7063570669%_)))) - (if (gx#stx-pair/null? _%tl7063770676%_) - (let ((_g91973_ + (##cdr _%e7173271766%_)))) + (if (gx#stx-pair/null? _%tl7173471773%_) + (let ((_g92836_ (gx#syntax-split-splice - _%tl7063770676%_ + _%tl7173471773%_ '0))) (begin - (let ((_g91974_ + (let ((_g92837_ (let () (declare (not safe)) - (if (##values? _g91973_) + (if (##values? _g92836_) (##values-length - _g91973_) + _g92836_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91974_ 2))) + (##fx= _g92837_ 2))) (error "Context expects 2 values" - _g91974_))) - (let ((_%target7063870679%_ + _g92837_))) + (let ((_%target7173571776%_ (let () (declare (not safe)) - (##values-ref _g91973_ 0))) - (_%tl7064070682%_ + (##values-ref _g92836_ 0))) + (_%tl7173771779%_ (let () (declare (not safe)) - (##values-ref _g91973_ 1)))) - (if (gx#stx-null? _%tl7064070682%_) - (letrec ((_%loop7064170685%_ - (lambda (_%hd7063970689%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause7064570692%_) - (if (gx#stx-pair? _%hd7063970689%_) - (let ((_%e7064270695%_ (gx#syntax-e _%hd7063970689%_))) - (let ((_%lp-hd7064370699%_ + (##values-ref _g92836_ 1)))) + (if (gx#stx-null? _%tl7173771779%_) + (letrec ((_%loop7173871782%_ + (lambda (_%hd7173671786%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%clause7174271789%_) + (if (gx#stx-pair? _%hd7173671786%_) + (let ((_%e7173971791%_ (gx#syntax-e _%hd7173671786%_))) + (let ((_%lp-hd7174071795%_ (let () (declare (not safe)) - (##car _%e7064270695%_))) - (_%lp-tl7064470702%_ + (##car _%e7173971791%_))) + (_%lp-tl7174171798%_ (let () (declare (not safe)) - (##cdr _%e7064270695%_)))) - (_%loop7064170685%_ - _%lp-tl7064470702%_ - (cons _%lp-hd7064370699%_ _%clause7064570692%_)))) - (let ((_%clause7064670705%_ - (reverse _%clause7064570692%_))) - ((lambda (_%L70709%_ _%L70711%_) + (##cdr _%e7173971791%_)))) + (_%loop7173871782%_ + _%lp-tl7174171798%_ + (cons _%lp-hd7174071795%_ _%clause7174271789%_)))) + (let ((_%clause7174371801%_ + (reverse _%clause7174271789%_))) + ((lambda (_%g7172771804%_ _%g7172871806%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L70711%_ + (cons _%g7172871806%_ (cons (cons (gx#datum->syntax '#f 'case-lambda/c) - (foldr (lambda (_%g7072870731%_ + (foldr (lambda (_%g7182371826%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7072970734%_) - (cons _%g7072870731%_ _%g7072970734%_)) + _%g7182471829%_) + (cons _%g7182371826%_ _%g7182471829%_)) '() - _%L70709%_)) + _%g7172771804%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%clause7064670705%_ - _%hd7063670673%_)))))) + _%clause7174371801%_ + _%hd7173371770%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7064170685%_ - _%target7063870679%_ + (_%loop7173871782%_ + _%target7173571776%_ '())) - (_%g7062870652%_ - _%g7062970656%_))))) - (_%g7062870652%_ _%g7062970656%_)))) - (_%g7062870652%_ _%g7062970656%_)))) - (_%g7062870652%_ _%g7062970656%_))))) - (_%g7062770737%_ _%$stx70624%_)))) + (_%g7172571749%_ + _%g7172671753%_))))) + (_%g7172571749%_ _%g7172671753%_)))) + (_%g7172571749%_ _%g7172671753%_)))) + (_%g7172571749%_ _%g7172671753%_))))) + (_%g7172471832%_ _%$stx71721%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#case-lambda/c| - (lambda (_%stx70742%_) - (letrec ((_%is-clause-signature?70745%_ - (lambda (_%clause71279%_) - (let* ((_%__stx8982989830%_ _%clause71279%_) - (_%g7128371325%_ + (lambda (_%stx71837%_) + (letrec ((_%is-clause-signature?71840%_ + (lambda (_%clause72364%_) + (let* ((_%__stx9077690777%_ _%clause72364%_) + (_%g7236872410%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8982989830%_)))) - (let ((_%__kont8983289833%_ - (lambda (_%L71457%_ _%L71459%_ _%L71460%_) '#t)) - (_%__kont8983689837%_ - (lambda (_%L71372%_ _%L71374%_) + _%__stx9077690777%_)))) + (let ((_%__kont9077990780%_ + (lambda (_%g7237072538%_ + _%g7237172540%_ + _%g7237272541%_) + '#t)) + (_%__kont9078390784%_ + (lambda (_%g7239172455%_ _%g7239272457%_) (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L71374%_)))) - (let* ((_%__match8988489885%_ - (lambda (_%e7130871332%_ - _%hd7130971336%_ - _%tl7131071339%_ - _%__splice8983889839%_ - _%target7131171342%_ - _%tl7131371345%_) - (letrec ((_%loop7131471348%_ - (lambda (_%hd7131271352%_ - _%body7131871355%_) + _%g7239272457%_)))) + (let* ((_%__match9083190832%_ + (lambda (_%e7239372417%_ + _%hd7239472421%_ + _%tl7239572424%_ + _%__splice9078590786%_ + _%target7239672427%_ + _%tl7239872430%_) + (letrec ((_%loop7239972433%_ + (lambda (_%hd7239772437%_ + _%body7240372440%_) (if (gx#stx-pair? - _%hd7131271352%_) - (let ((_%e7131571358%_ + _%hd7239772437%_) + (let ((_%e7240072442%_ (gx#syntax-e - _%hd7131271352%_))) - (let ((_%lp-tl7131771365%_ + _%hd7239772437%_))) + (let ((_%lp-tl7240272449%_ (let () (declare (not safe)) - (##cdr _%e7131571358%_))) - (_%lp-hd7131671362%_ + (##cdr _%e7240072442%_))) + (_%lp-hd7240172446%_ (let () (declare (not safe)) - (##car _%e7131571358%_)))) - (_%loop7131471348%_ - _%lp-tl7131771365%_ - (cons _%lp-hd7131671362%_ - _%body7131871355%_)))) - (let ((_%body7131971368%_ - (reverse _%body7131871355%_))) - (_%__kont8983689837%_ - _%body7131971368%_ - _%hd7130971336%_)))))) - (_%loop7131471348%_ - _%target7131171342%_ + (##car _%e7240072442%_)))) + (_%loop7239972433%_ + _%lp-tl7240272449%_ + (cons _%lp-hd7240172446%_ + _%body7240372440%_)))) + (let ((_%body7240472452%_ + (reverse _%body7240372440%_))) + (_%__kont9078390784%_ + _%body7240472452%_ + _%hd7239472421%_)))))) + (_%loop7239972433%_ + _%target7239672427%_ '())))) - (_%__match8987089871%_ - (lambda (_%e7128871397%_ - _%hd7128971401%_ - _%tl7129071404%_ - _%e7129171407%_ - _%hd7129271411%_ - _%tl7129371414%_ - _%e7129471417%_ - _%hd7129571421%_ - _%tl7129671424%_ - _%__splice8983489835%_ - _%target7129771427%_ - _%tl7129971430%_) - (letrec ((_%loop7130071433%_ - (lambda (_%hd7129871437%_ - _%body7130471440%_) + (_%__match9081790818%_ + (lambda (_%e7237372480%_ + _%hd7237472484%_ + _%tl7237572487%_ + _%e7237672490%_ + _%hd7237772494%_ + _%tl7237872497%_ + _%e7237972500%_ + _%hd7238072504%_ + _%tl7238172507%_ + _%__splice9078190782%_ + _%target7238272510%_ + _%tl7238472513%_) + (letrec ((_%loop7238572516%_ + (lambda (_%hd7238372520%_ + _%body7238972523%_) (if (gx#stx-pair? - _%hd7129871437%_) - (let ((_%e7130171443%_ + _%hd7238372520%_) + (let ((_%e7238672525%_ (gx#syntax-e - _%hd7129871437%_))) - (let ((_%lp-tl7130371450%_ + _%hd7238372520%_))) + (let ((_%lp-tl7238872532%_ (let () (declare (not safe)) - (##cdr _%e7130171443%_))) - (_%lp-hd7130271447%_ + (##cdr _%e7238672525%_))) + (_%lp-hd7238772529%_ (let () (declare (not safe)) - (##car _%e7130171443%_)))) - (_%loop7130071433%_ - _%lp-tl7130371450%_ - (cons _%lp-hd7130271447%_ - _%body7130471440%_)))) - (let ((_%body7130571453%_ - (reverse _%body7130471440%_))) - (_%__kont8983289833%_ - _%body7130571453%_ - _%hd7129571421%_ - _%hd7128971401%_)))))) - (_%loop7130071433%_ - _%target7129771427%_ + (##car _%e7238672525%_)))) + (_%loop7238572516%_ + _%lp-tl7238872532%_ + (cons _%lp-hd7238772529%_ + _%body7238972523%_)))) + (let ((_%body7239072535%_ + (reverse _%body7238972523%_))) + (_%__kont9077990780%_ + _%body7239072535%_ + _%hd7238072504%_ + _%hd7237472484%_)))))) + (_%loop7238572516%_ + _%target7238272510%_ '()))))) - (if (gx#stx-pair? _%__stx8982989830%_) - (let ((_%e7128871397%_ - (gx#syntax-e _%__stx8982989830%_))) - (let ((_%tl7129071404%_ + (if (gx#stx-pair? _%__stx9077690777%_) + (let ((_%e7237372480%_ + (gx#syntax-e _%__stx9077690777%_))) + (let ((_%tl7237572487%_ (let () (declare (not safe)) - (##cdr _%e7128871397%_))) - (_%hd7128971401%_ + (##cdr _%e7237372480%_))) + (_%hd7237472484%_ (let () (declare (not safe)) - (##car _%e7128871397%_)))) - (if (gx#stx-pair? _%tl7129071404%_) - (let ((_%e7129171407%_ - (gx#syntax-e _%tl7129071404%_))) - (let ((_%tl7129371414%_ + (##car _%e7237372480%_)))) + (if (gx#stx-pair? _%tl7237572487%_) + (let ((_%e7237672490%_ + (gx#syntax-e _%tl7237572487%_))) + (let ((_%tl7237872497%_ (let () (declare (not safe)) - (##cdr _%e7129171407%_))) - (_%hd7129271411%_ + (##cdr _%e7237672490%_))) + (_%hd7237772494%_ (let () (declare (not safe)) - (##car _%e7129171407%_)))) - (if (gx#identifier? _%hd7129271411%_) + (##car _%e7237672490%_)))) + (if (gx#identifier? _%hd7237772494%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g91975_| - _%hd7129271411%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92838_| + _%hd7237772494%_) (if (gx#stx-pair? - _%tl7129371414%_) - (let ((_%e7129471417%_ + _%tl7237872497%_) + (let ((_%e7237972500%_ (gx#syntax-e - _%tl7129371414%_))) - (let ((_%tl7129671424%_ + _%tl7237872497%_))) + (let ((_%tl7238172507%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e7129471417%_))) - (_%hd7129571421%_ - (let () (declare (not safe)) (##car _%e7129471417%_)))) - (if (gx#stx-pair/null? _%tl7129671424%_) - (let ((_%__splice8983489835%_ + (##cdr _%e7237972500%_))) + (_%hd7238072504%_ + (let () (declare (not safe)) (##car _%e7237972500%_)))) + (if (gx#stx-pair/null? _%tl7238172507%_) + (let ((_%__splice9078190782%_ (gx#syntax-split-splice->vector - _%tl7129671424%_ + _%tl7238172507%_ '0))) - (let ((_%tl7129971430%_ + (let ((_%tl7238472513%_ (let () (declare (not safe)) - (##vector-ref _%__splice8983489835%_ '1))) - (_%target7129771427%_ + (##vector-ref _%__splice9078190782%_ '1))) + (_%target7238272510%_ (let () (declare (not safe)) - (##vector-ref _%__splice8983489835%_ '0)))) - (if (gx#stx-null? _%tl7129971430%_) - (_%__match8987089871%_ - _%e7128871397%_ - _%hd7128971401%_ - _%tl7129071404%_ - _%e7129171407%_ - _%hd7129271411%_ - _%tl7129371414%_ - _%e7129471417%_ - _%hd7129571421%_ - _%tl7129671424%_ - _%__splice8983489835%_ - _%target7129771427%_ - _%tl7129971430%_) - (if (gx#stx-pair/null? _%tl7129071404%_) - (let ((_%__splice8983889839%_ + (##vector-ref _%__splice9078190782%_ '0)))) + (if (gx#stx-null? _%tl7238472513%_) + (_%__match9081790818%_ + _%e7237372480%_ + _%hd7237472484%_ + _%tl7237572487%_ + _%e7237672490%_ + _%hd7237772494%_ + _%tl7237872497%_ + _%e7237972500%_ + _%hd7238072504%_ + _%tl7238172507%_ + _%__splice9078190782%_ + _%target7238272510%_ + _%tl7238472513%_) + (if (gx#stx-pair/null? _%tl7237572487%_) + (let ((_%__splice9078590786%_ (gx#syntax-split-splice->vector - _%tl7129071404%_ + _%tl7237572487%_ '0))) - (let ((_%tl7131371345%_ + (let ((_%tl7239872430%_ (let () (declare (not safe)) (##vector-ref - _%__splice8983889839%_ + _%__splice9078590786%_ '1))) - (_%target7131171342%_ + (_%target7239672427%_ (let () (declare (not safe)) (##vector-ref - _%__splice8983889839%_ + _%__splice9078590786%_ '0)))) - (if (gx#stx-null? _%tl7131371345%_) - (_%__match8988489885%_ - _%e7128871397%_ - _%hd7128971401%_ - _%tl7129071404%_ - _%__splice8983889839%_ - _%target7131171342%_ - _%tl7131371345%_) + (if (gx#stx-null? _%tl7239872430%_) + (_%__match9083190832%_ + _%e7237372480%_ + _%hd7237472484%_ + _%tl7237572487%_ + _%__splice9078590786%_ + _%target7239672427%_ + _%tl7239872430%_) (let () (declare (not safe)) - (_%g7128371325%_))))) + (_%g7236872410%_))))) (let () (declare (not safe)) - (_%g7128371325%_)))))) - (if (gx#stx-pair/null? _%tl7129071404%_) - (let ((_%__splice8983889839%_ + (_%g7236872410%_)))))) + (if (gx#stx-pair/null? _%tl7237572487%_) + (let ((_%__splice9078590786%_ (gx#syntax-split-splice->vector - _%tl7129071404%_ + _%tl7237572487%_ '0))) - (let ((_%tl7131371345%_ + (let ((_%tl7239872430%_ (let () (declare (not safe)) - (##vector-ref _%__splice8983889839%_ '1))) - (_%target7131171342%_ + (##vector-ref _%__splice9078590786%_ '1))) + (_%target7239672427%_ (let () (declare (not safe)) (##vector-ref - _%__splice8983889839%_ + _%__splice9078590786%_ '0)))) - (if (gx#stx-null? _%tl7131371345%_) - (_%__match8988489885%_ - _%e7128871397%_ - _%hd7128971401%_ - _%tl7129071404%_ - _%__splice8983889839%_ - _%target7131171342%_ - _%tl7131371345%_) + (if (gx#stx-null? _%tl7239872430%_) + (_%__match9083190832%_ + _%e7237372480%_ + _%hd7237472484%_ + _%tl7237572487%_ + _%__splice9078590786%_ + _%target7239672427%_ + _%tl7239872430%_) (let () (declare (not safe)) - (_%g7128371325%_))))) - (let () (declare (not safe)) (_%g7128371325%_)))))) - (if (gx#stx-pair/null? _%tl7129071404%_) - (let ((_%__splice8983889839%_ - (gx#syntax-split-splice->vector _%tl7129071404%_ '0))) - (let ((_%tl7131371345%_ + (_%g7236872410%_))))) + (let () (declare (not safe)) (_%g7236872410%_)))))) + (if (gx#stx-pair/null? _%tl7237572487%_) + (let ((_%__splice9078590786%_ + (gx#syntax-split-splice->vector _%tl7237572487%_ '0))) + (let ((_%tl7239872430%_ (let () (declare (not safe)) - (##vector-ref _%__splice8983889839%_ '1))) - (_%target7131171342%_ + (##vector-ref _%__splice9078590786%_ '1))) + (_%target7239672427%_ (let () (declare (not safe)) - (##vector-ref _%__splice8983889839%_ '0)))) - (if (gx#stx-null? _%tl7131371345%_) - (_%__match8988489885%_ - _%e7128871397%_ - _%hd7128971401%_ - _%tl7129071404%_ - _%__splice8983889839%_ - _%target7131171342%_ - _%tl7131371345%_) - (let () (declare (not safe)) (_%g7128371325%_))))) - (let () (declare (not safe)) (_%g7128371325%_)))) + (##vector-ref _%__splice9078590786%_ '0)))) + (if (gx#stx-null? _%tl7239872430%_) + (_%__match9083190832%_ + _%e7237372480%_ + _%hd7237472484%_ + _%tl7237572487%_ + _%__splice9078590786%_ + _%target7239672427%_ + _%tl7239872430%_) + (let () (declare (not safe)) (_%g7236872410%_))))) + (let () (declare (not safe)) (_%g7236872410%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl7129071404%_) - (let ((_%__splice8983889839%_ + _%tl7237572487%_) + (let ((_%__splice9078590786%_ (gx#syntax-split-splice->vector - _%tl7129071404%_ + _%tl7237572487%_ '0))) - (let ((_%tl7131371345%_ + (let ((_%tl7239872430%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8983889839%_ '1))) - (_%target7131171342%_ + (##vector-ref _%__splice9078590786%_ '1))) + (_%target7239672427%_ (let () (declare (not safe)) - (##vector-ref _%__splice8983889839%_ '0)))) - (if (gx#stx-null? _%tl7131371345%_) - (_%__match8988489885%_ - _%e7128871397%_ - _%hd7128971401%_ - _%tl7129071404%_ - _%__splice8983889839%_ - _%target7131171342%_ - _%tl7131371345%_) - (let () (declare (not safe)) (_%g7128371325%_))))) - (let () (declare (not safe)) (_%g7128371325%_)))) + (##vector-ref _%__splice9078590786%_ '0)))) + (if (gx#stx-null? _%tl7239872430%_) + (_%__match9083190832%_ + _%e7237372480%_ + _%hd7237472484%_ + _%tl7237572487%_ + _%__splice9078590786%_ + _%target7239672427%_ + _%tl7239872430%_) + (let () (declare (not safe)) (_%g7236872410%_))))) + (let () (declare (not safe)) (_%g7236872410%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl7129071404%_) - (let ((_%__splice8983889839%_ + _%tl7237572487%_) + (let ((_%__splice9078590786%_ (gx#syntax-split-splice->vector - _%tl7129071404%_ + _%tl7237572487%_ '0))) - (let ((_%tl7131371345%_ + (let ((_%tl7239872430%_ (let () (declare (not safe)) (##vector-ref - _%__splice8983889839%_ + _%__splice9078590786%_ '1))) - (_%target7131171342%_ + (_%target7239672427%_ (let () (declare (not safe)) (##vector-ref - _%__splice8983889839%_ + _%__splice9078590786%_ '0)))) (if (gx#stx-null? - _%tl7131371345%_) - (_%__match8988489885%_ - _%e7128871397%_ - _%hd7128971401%_ - _%tl7129071404%_ - _%__splice8983889839%_ - _%target7131171342%_ - _%tl7131371345%_) + _%tl7239872430%_) + (_%__match9083190832%_ + _%e7237372480%_ + _%hd7237472484%_ + _%tl7237572487%_ + _%__splice9078590786%_ + _%target7239672427%_ + _%tl7239872430%_) (let () (declare (not safe)) - (_%g7128371325%_))))) + (_%g7236872410%_))))) (let () (declare (not safe)) - (_%g7128371325%_)))))) - (if (gx#stx-pair/null? _%tl7129071404%_) - (let ((_%__splice8983889839%_ + (_%g7236872410%_)))))) + (if (gx#stx-pair/null? _%tl7237572487%_) + (let ((_%__splice9078590786%_ (gx#syntax-split-splice->vector - _%tl7129071404%_ + _%tl7237572487%_ '0))) - (let ((_%tl7131371345%_ + (let ((_%tl7239872430%_ (let () (declare (not safe)) (##vector-ref - _%__splice8983889839%_ + _%__splice9078590786%_ '1))) - (_%target7131171342%_ + (_%target7239672427%_ (let () (declare (not safe)) (##vector-ref - _%__splice8983889839%_ + _%__splice9078590786%_ '0)))) (if (gx#stx-null? - _%tl7131371345%_) - (_%__match8988489885%_ - _%e7128871397%_ - _%hd7128971401%_ - _%tl7129071404%_ - _%__splice8983889839%_ - _%target7131171342%_ - _%tl7131371345%_) + _%tl7239872430%_) + (_%__match9083190832%_ + _%e7237372480%_ + _%hd7237472484%_ + _%tl7237572487%_ + _%__splice9078590786%_ + _%target7239672427%_ + _%tl7239872430%_) (let () (declare (not safe)) - (_%g7128371325%_))))) + (_%g7236872410%_))))) (let () (declare (not safe)) - (_%g7128371325%_)))))) + (_%g7236872410%_)))))) (let () (declare (not safe)) - (_%g7128371325%_)))))))) - (_%clause-e70747%_ - (lambda (_%clause71019%_) - (let* ((_%__stx8988789888%_ _%clause71019%_) - (_%g7102371065%_ + (_%g7236872410%_)))))))) + (_%clause-e71842%_ + (lambda (_%clause72108%_) + (let* ((_%__stx9083490835%_ _%clause72108%_) + (_%g7211272154%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8988789888%_)))) - (let ((_%__kont8989089891%_ - (lambda (_%L71205%_ _%L71207%_ _%L71208%_) + _%__stx9083490835%_)))) + (let ((_%__kont9083790838%_ + (lambda (_%g7211472290%_ + _%g7211572292%_ + _%g7211672293%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L71208%_) + _%g7211672293%_) (begin (let () (declare (not safe)) @@ -4101,656 +4141,658 @@ '#f '#f '#f - _%stx70742%_ - _%L71208%_ - _%L71207%_)) - (let* ((_%g7122871236%_ - (lambda (_%g7122971232%_) + _%stx71837%_ + _%g7211672293%_ + _%g7211572292%_)) + (let* ((_%g7231372321%_ + (lambda (_%g7231472317%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7122971232%_))) - (_%g7122771263%_ - (lambda (_%g7122971240%_) - ((lambda (_%L71243%_) - (cons _%L71243%_ + _%g7231472317%_))) + (_%g7231272348%_ + (lambda (_%g7231472325%_) + ((lambda (_%g7231572328%_) + (cons _%g7231572328%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'with-procedure-signature) - (cons (cons _%L71208%_ - (cons _%L71207%_ (cons '#f '()))) + (cons (cons _%g7211672293%_ + (cons _%g7211572292%_ (cons '#f '()))) (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L71208%_ - (foldr (lambda (_%g7125471257%_ + (cons _%g7211672293%_ + (foldr (lambda (_%g7233972342%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7125571260%_) - (cons _%g7125471257%_ _%g7125571260%_)) + _%g7234072345%_) + (cons _%g7233972342%_ _%g7234072345%_)) '() - _%L71205%_))) + _%g7211472290%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7122971240%_)))) - (_%g7122771263%_ + _%g7231472325%_)))) + (_%g7231272348%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%L71208%_))))) - (cons _%L71208%_ + _%g7211672293%_))))) + (cons _%g7211672293%_ (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L71207%_ (cons '#f '()))) - (foldr (lambda (_%g7126671269%_ _%g7126771272%_) - (cons _%g7126671269%_ _%g7126771272%_)) + (cons _%g7211572292%_ (cons '#f '()))) + (foldr (lambda (_%g7235172354%_ _%g7235272357%_) + (cons _%g7235172354%_ _%g7235272357%_)) '() - _%L71205%_))) + _%g7211472290%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont8989489895%_ - (lambda (_%L71112%_ _%L71114%_) + (_%__kont9084190842%_ + (lambda (_%g7213572199%_ _%g7213672201%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L71114%_) - (_%clause-e70747%_ - (cons _%L71114%_ + _%g7213672201%_) + (_%clause-e71842%_ + (cons _%g7213672201%_ (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g7112971132%_ + (foldr (lambda (_%g7221672219%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7113071135%_) - (cons _%g7112971132%_ _%g7113071135%_)) + _%g7221772222%_) + (cons _%g7221672219%_ _%g7221772222%_)) '() - _%L71112%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause71019%_)))) - (let* ((_%__match8994289943%_ - (lambda (_%e7104871072%_ - _%hd7104971076%_ - _%tl7105071079%_ - _%__splice8989689897%_ - _%target7105171082%_ - _%tl7105371085%_) - (letrec ((_%loop7105471088%_ - (lambda (_%hd7105271092%_ - _%body7105871095%_) + _%g7213572199%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%clause72108%_)))) + (let* ((_%__match9088990890%_ + (lambda (_%e7213772161%_ + _%hd7213872165%_ + _%tl7213972168%_ + _%__splice9084390844%_ + _%target7214072171%_ + _%tl7214272174%_) + (letrec ((_%loop7214372177%_ + (lambda (_%hd7214172181%_ + _%body7214772184%_) (if (gx#stx-pair? - _%hd7105271092%_) - (let ((_%e7105571098%_ + _%hd7214172181%_) + (let ((_%e7214472186%_ (gx#syntax-e - _%hd7105271092%_))) - (let ((_%lp-tl7105771105%_ + _%hd7214172181%_))) + (let ((_%lp-tl7214672193%_ (let () (declare (not safe)) - (##cdr _%e7105571098%_))) - (_%lp-hd7105671102%_ + (##cdr _%e7214472186%_))) + (_%lp-hd7214572190%_ (let () (declare (not safe)) - (##car _%e7105571098%_)))) - (_%loop7105471088%_ - _%lp-tl7105771105%_ - (cons _%lp-hd7105671102%_ - _%body7105871095%_)))) - (let ((_%body7105971108%_ - (reverse _%body7105871095%_))) - (_%__kont8989489895%_ - _%body7105971108%_ - _%hd7104971076%_)))))) - (_%loop7105471088%_ - _%target7105171082%_ + (##car _%e7214472186%_)))) + (_%loop7214372177%_ + _%lp-tl7214672193%_ + (cons _%lp-hd7214572190%_ + _%body7214772184%_)))) + (let ((_%body7214872196%_ + (reverse _%body7214772184%_))) + (_%__kont9084190842%_ + _%body7214872196%_ + _%hd7213872165%_)))))) + (_%loop7214372177%_ + _%target7214072171%_ '())))) - (_%__match8992889929%_ - (lambda (_%e7102871145%_ - _%hd7102971149%_ - _%tl7103071152%_ - _%e7103171155%_ - _%hd7103271159%_ - _%tl7103371162%_ - _%e7103471165%_ - _%hd7103571169%_ - _%tl7103671172%_ - _%__splice8989289893%_ - _%target7103771175%_ - _%tl7103971178%_) - (letrec ((_%loop7104071181%_ - (lambda (_%hd7103871185%_ - _%body7104471188%_) + (_%__match9087590876%_ + (lambda (_%e7211772232%_ + _%hd7211872236%_ + _%tl7211972239%_ + _%e7212072242%_ + _%hd7212172246%_ + _%tl7212272249%_ + _%e7212372252%_ + _%hd7212472256%_ + _%tl7212572259%_ + _%__splice9083990840%_ + _%target7212672262%_ + _%tl7212872265%_) + (letrec ((_%loop7212972268%_ + (lambda (_%hd7212772272%_ + _%body7213372275%_) (if (gx#stx-pair? - _%hd7103871185%_) - (let ((_%e7104171191%_ + _%hd7212772272%_) + (let ((_%e7213072277%_ (gx#syntax-e - _%hd7103871185%_))) - (let ((_%lp-tl7104371198%_ + _%hd7212772272%_))) + (let ((_%lp-tl7213272284%_ (let () (declare (not safe)) - (##cdr _%e7104171191%_))) - (_%lp-hd7104271195%_ + (##cdr _%e7213072277%_))) + (_%lp-hd7213172281%_ (let () (declare (not safe)) - (##car _%e7104171191%_)))) - (_%loop7104071181%_ - _%lp-tl7104371198%_ - (cons _%lp-hd7104271195%_ - _%body7104471188%_)))) - (let ((_%body7104571201%_ - (reverse _%body7104471188%_))) - (_%__kont8989089891%_ - _%body7104571201%_ - _%hd7103571169%_ - _%hd7102971149%_)))))) - (_%loop7104071181%_ - _%target7103771175%_ + (##car _%e7213072277%_)))) + (_%loop7212972268%_ + _%lp-tl7213272284%_ + (cons _%lp-hd7213172281%_ + _%body7213372275%_)))) + (let ((_%body7213472287%_ + (reverse _%body7213372275%_))) + (_%__kont9083790838%_ + _%body7213472287%_ + _%hd7212472256%_ + _%hd7211872236%_)))))) + (_%loop7212972268%_ + _%target7212672262%_ '()))))) - (if (gx#stx-pair? _%__stx8988789888%_) - (let ((_%e7102871145%_ - (gx#syntax-e _%__stx8988789888%_))) - (let ((_%tl7103071152%_ + (if (gx#stx-pair? _%__stx9083490835%_) + (let ((_%e7211772232%_ + (gx#syntax-e _%__stx9083490835%_))) + (let ((_%tl7211972239%_ (let () (declare (not safe)) - (##cdr _%e7102871145%_))) - (_%hd7102971149%_ + (##cdr _%e7211772232%_))) + (_%hd7211872236%_ (let () (declare (not safe)) - (##car _%e7102871145%_)))) - (if (gx#stx-pair? _%tl7103071152%_) - (let ((_%e7103171155%_ - (gx#syntax-e _%tl7103071152%_))) - (let ((_%tl7103371162%_ + (##car _%e7211772232%_)))) + (if (gx#stx-pair? _%tl7211972239%_) + (let ((_%e7212072242%_ + (gx#syntax-e _%tl7211972239%_))) + (let ((_%tl7212272249%_ (let () (declare (not safe)) - (##cdr _%e7103171155%_))) - (_%hd7103271159%_ + (##cdr _%e7212072242%_))) + (_%hd7212172246%_ (let () (declare (not safe)) - (##car _%e7103171155%_)))) - (if (gx#identifier? _%hd7103271159%_) + (##car _%e7212072242%_)))) + (if (gx#identifier? _%hd7212172246%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g91976_| - _%hd7103271159%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92839_| + _%hd7212172246%_) (if (gx#stx-pair? - _%tl7103371162%_) - (let ((_%e7103471165%_ + _%tl7212272249%_) + (let ((_%e7212372252%_ (gx#syntax-e - _%tl7103371162%_))) - (let ((_%tl7103671172%_ + _%tl7212272249%_))) + (let ((_%tl7212572259%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e7103471165%_))) - (_%hd7103571169%_ - (let () (declare (not safe)) (##car _%e7103471165%_)))) - (if (gx#stx-pair/null? _%tl7103671172%_) - (let ((_%__splice8989289893%_ + (##cdr _%e7212372252%_))) + (_%hd7212472256%_ + (let () (declare (not safe)) (##car _%e7212372252%_)))) + (if (gx#stx-pair/null? _%tl7212572259%_) + (let ((_%__splice9083990840%_ (gx#syntax-split-splice->vector - _%tl7103671172%_ + _%tl7212572259%_ '0))) - (let ((_%tl7103971178%_ + (let ((_%tl7212872265%_ (let () (declare (not safe)) - (##vector-ref _%__splice8989289893%_ '1))) - (_%target7103771175%_ + (##vector-ref _%__splice9083990840%_ '1))) + (_%target7212672262%_ (let () (declare (not safe)) - (##vector-ref _%__splice8989289893%_ '0)))) - (if (gx#stx-null? _%tl7103971178%_) - (_%__match8992889929%_ - _%e7102871145%_ - _%hd7102971149%_ - _%tl7103071152%_ - _%e7103171155%_ - _%hd7103271159%_ - _%tl7103371162%_ - _%e7103471165%_ - _%hd7103571169%_ - _%tl7103671172%_ - _%__splice8989289893%_ - _%target7103771175%_ - _%tl7103971178%_) - (if (gx#stx-pair/null? _%tl7103071152%_) - (let ((_%__splice8989689897%_ + (##vector-ref _%__splice9083990840%_ '0)))) + (if (gx#stx-null? _%tl7212872265%_) + (_%__match9087590876%_ + _%e7211772232%_ + _%hd7211872236%_ + _%tl7211972239%_ + _%e7212072242%_ + _%hd7212172246%_ + _%tl7212272249%_ + _%e7212372252%_ + _%hd7212472256%_ + _%tl7212572259%_ + _%__splice9083990840%_ + _%target7212672262%_ + _%tl7212872265%_) + (if (gx#stx-pair/null? _%tl7211972239%_) + (let ((_%__splice9084390844%_ (gx#syntax-split-splice->vector - _%tl7103071152%_ + _%tl7211972239%_ '0))) - (let ((_%tl7105371085%_ + (let ((_%tl7214272174%_ (let () (declare (not safe)) (##vector-ref - _%__splice8989689897%_ + _%__splice9084390844%_ '1))) - (_%target7105171082%_ + (_%target7214072171%_ (let () (declare (not safe)) (##vector-ref - _%__splice8989689897%_ + _%__splice9084390844%_ '0)))) - (if (gx#stx-null? _%tl7105371085%_) - (_%__match8994289943%_ - _%e7102871145%_ - _%hd7102971149%_ - _%tl7103071152%_ - _%__splice8989689897%_ - _%target7105171082%_ - _%tl7105371085%_) + (if (gx#stx-null? _%tl7214272174%_) + (_%__match9088990890%_ + _%e7211772232%_ + _%hd7211872236%_ + _%tl7211972239%_ + _%__splice9084390844%_ + _%target7214072171%_ + _%tl7214272174%_) (let () (declare (not safe)) - (_%g7102371065%_))))) + (_%g7211272154%_))))) (let () (declare (not safe)) - (_%g7102371065%_)))))) - (if (gx#stx-pair/null? _%tl7103071152%_) - (let ((_%__splice8989689897%_ + (_%g7211272154%_)))))) + (if (gx#stx-pair/null? _%tl7211972239%_) + (let ((_%__splice9084390844%_ (gx#syntax-split-splice->vector - _%tl7103071152%_ + _%tl7211972239%_ '0))) - (let ((_%tl7105371085%_ + (let ((_%tl7214272174%_ (let () (declare (not safe)) - (##vector-ref _%__splice8989689897%_ '1))) - (_%target7105171082%_ + (##vector-ref _%__splice9084390844%_ '1))) + (_%target7214072171%_ (let () (declare (not safe)) (##vector-ref - _%__splice8989689897%_ + _%__splice9084390844%_ '0)))) - (if (gx#stx-null? _%tl7105371085%_) - (_%__match8994289943%_ - _%e7102871145%_ - _%hd7102971149%_ - _%tl7103071152%_ - _%__splice8989689897%_ - _%target7105171082%_ - _%tl7105371085%_) + (if (gx#stx-null? _%tl7214272174%_) + (_%__match9088990890%_ + _%e7211772232%_ + _%hd7211872236%_ + _%tl7211972239%_ + _%__splice9084390844%_ + _%target7214072171%_ + _%tl7214272174%_) (let () (declare (not safe)) - (_%g7102371065%_))))) - (let () (declare (not safe)) (_%g7102371065%_)))))) - (if (gx#stx-pair/null? _%tl7103071152%_) - (let ((_%__splice8989689897%_ - (gx#syntax-split-splice->vector _%tl7103071152%_ '0))) - (let ((_%tl7105371085%_ + (_%g7211272154%_))))) + (let () (declare (not safe)) (_%g7211272154%_)))))) + (if (gx#stx-pair/null? _%tl7211972239%_) + (let ((_%__splice9084390844%_ + (gx#syntax-split-splice->vector _%tl7211972239%_ '0))) + (let ((_%tl7214272174%_ (let () (declare (not safe)) - (##vector-ref _%__splice8989689897%_ '1))) - (_%target7105171082%_ + (##vector-ref _%__splice9084390844%_ '1))) + (_%target7214072171%_ (let () (declare (not safe)) - (##vector-ref _%__splice8989689897%_ '0)))) - (if (gx#stx-null? _%tl7105371085%_) - (_%__match8994289943%_ - _%e7102871145%_ - _%hd7102971149%_ - _%tl7103071152%_ - _%__splice8989689897%_ - _%target7105171082%_ - _%tl7105371085%_) - (let () (declare (not safe)) (_%g7102371065%_))))) - (let () (declare (not safe)) (_%g7102371065%_)))) + (##vector-ref _%__splice9084390844%_ '0)))) + (if (gx#stx-null? _%tl7214272174%_) + (_%__match9088990890%_ + _%e7211772232%_ + _%hd7211872236%_ + _%tl7211972239%_ + _%__splice9084390844%_ + _%target7214072171%_ + _%tl7214272174%_) + (let () (declare (not safe)) (_%g7211272154%_))))) + (let () (declare (not safe)) (_%g7211272154%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl7103071152%_) - (let ((_%__splice8989689897%_ + _%tl7211972239%_) + (let ((_%__splice9084390844%_ (gx#syntax-split-splice->vector - _%tl7103071152%_ + _%tl7211972239%_ '0))) - (let ((_%tl7105371085%_ + (let ((_%tl7214272174%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8989689897%_ '1))) - (_%target7105171082%_ + (##vector-ref _%__splice9084390844%_ '1))) + (_%target7214072171%_ (let () (declare (not safe)) - (##vector-ref _%__splice8989689897%_ '0)))) - (if (gx#stx-null? _%tl7105371085%_) - (_%__match8994289943%_ - _%e7102871145%_ - _%hd7102971149%_ - _%tl7103071152%_ - _%__splice8989689897%_ - _%target7105171082%_ - _%tl7105371085%_) - (let () (declare (not safe)) (_%g7102371065%_))))) - (let () (declare (not safe)) (_%g7102371065%_)))) + (##vector-ref _%__splice9084390844%_ '0)))) + (if (gx#stx-null? _%tl7214272174%_) + (_%__match9088990890%_ + _%e7211772232%_ + _%hd7211872236%_ + _%tl7211972239%_ + _%__splice9084390844%_ + _%target7214072171%_ + _%tl7214272174%_) + (let () (declare (not safe)) (_%g7211272154%_))))) + (let () (declare (not safe)) (_%g7211272154%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl7103071152%_) - (let ((_%__splice8989689897%_ + _%tl7211972239%_) + (let ((_%__splice9084390844%_ (gx#syntax-split-splice->vector - _%tl7103071152%_ + _%tl7211972239%_ '0))) - (let ((_%tl7105371085%_ + (let ((_%tl7214272174%_ (let () (declare (not safe)) (##vector-ref - _%__splice8989689897%_ + _%__splice9084390844%_ '1))) - (_%target7105171082%_ + (_%target7214072171%_ (let () (declare (not safe)) (##vector-ref - _%__splice8989689897%_ + _%__splice9084390844%_ '0)))) (if (gx#stx-null? - _%tl7105371085%_) - (_%__match8994289943%_ - _%e7102871145%_ - _%hd7102971149%_ - _%tl7103071152%_ - _%__splice8989689897%_ - _%target7105171082%_ - _%tl7105371085%_) + _%tl7214272174%_) + (_%__match9088990890%_ + _%e7211772232%_ + _%hd7211872236%_ + _%tl7211972239%_ + _%__splice9084390844%_ + _%target7214072171%_ + _%tl7214272174%_) (let () (declare (not safe)) - (_%g7102371065%_))))) + (_%g7211272154%_))))) (let () (declare (not safe)) - (_%g7102371065%_)))))) - (if (gx#stx-pair/null? _%tl7103071152%_) - (let ((_%__splice8989689897%_ + (_%g7211272154%_)))))) + (if (gx#stx-pair/null? _%tl7211972239%_) + (let ((_%__splice9084390844%_ (gx#syntax-split-splice->vector - _%tl7103071152%_ + _%tl7211972239%_ '0))) - (let ((_%tl7105371085%_ + (let ((_%tl7214272174%_ (let () (declare (not safe)) (##vector-ref - _%__splice8989689897%_ + _%__splice9084390844%_ '1))) - (_%target7105171082%_ + (_%target7214072171%_ (let () (declare (not safe)) (##vector-ref - _%__splice8989689897%_ + _%__splice9084390844%_ '0)))) (if (gx#stx-null? - _%tl7105371085%_) - (_%__match8994289943%_ - _%e7102871145%_ - _%hd7102971149%_ - _%tl7103071152%_ - _%__splice8989689897%_ - _%target7105171082%_ - _%tl7105371085%_) + _%tl7214272174%_) + (_%__match9088990890%_ + _%e7211772232%_ + _%hd7211872236%_ + _%tl7211972239%_ + _%__splice9084390844%_ + _%target7214072171%_ + _%tl7214272174%_) (let () (declare (not safe)) - (_%g7102371065%_))))) + (_%g7211272154%_))))) (let () (declare (not safe)) - (_%g7102371065%_)))))) + (_%g7211272154%_)))))) (let () (declare (not safe)) - (_%g7102371065%_))))))))) - (let* ((_%__stx8994589946%_ _%stx70742%_) - (_%g7075070783%_ + (_%g7211272154%_))))))))) + (let* ((_%__stx9089290893%_ _%stx71837%_) + (_%g7184571878%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8994589946%_)))) - (let ((_%__kont8994889949%_ - (lambda (_%L70902%_) - (let* ((_%g7092570942%_ - (lambda (_%g7092670938%_) + _%__stx9089290893%_)))) + (let ((_%__kont9089590896%_ + (lambda (_%g7184771993%_) + (let* ((_%g7201672033%_ + (lambda (_%g7201772029%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7092670938%_))) - (_%g7092471003%_ - (lambda (_%g7092670946%_) - (if (gx#stx-pair/null? _%g7092670946%_) - (let ((_g91977_ + _%g7201772029%_))) + (_%g7201572092%_ + (lambda (_%g7201772037%_) + (if (gx#stx-pair/null? _%g7201772037%_) + (let ((_g92840_ (gx#syntax-split-splice - _%g7092670946%_ + _%g7201772037%_ '0))) (begin - (let ((_g91978_ + (let ((_g92841_ (let () (declare (not safe)) - (if (##values? _g91977_) - (##values-length _g91977_) + (if (##values? _g92840_) + (##values-length _g92840_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91978_ 2))) + (##fx= _g92841_ 2))) (error "Context expects 2 values" - _g91978_))) - (let ((_%target7092870949%_ + _g92841_))) + (let ((_%target7201972040%_ (let () (declare (not safe)) - (##values-ref _g91977_ 0))) - (_%tl7093070952%_ + (##values-ref _g92840_ 0))) + (_%tl7202172043%_ (let () (declare (not safe)) - (##values-ref _g91977_ 1)))) - (if (gx#stx-null? _%tl7093070952%_) - (letrec ((_%loop7093170955%_ - (lambda (_%hd7092970959%_ - _%clause7093570962%_) + (##values-ref _g92840_ 1)))) + (if (gx#stx-null? _%tl7202172043%_) + (letrec ((_%loop7202272046%_ + (lambda (_%hd7202072050%_ + _%clause7202672053%_) (if (gx#stx-pair? - _%hd7092970959%_) - (let ((_%e7093270965%_ + _%hd7202072050%_) + (let ((_%e7202372055%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd7092970959%_))) - (let ((_%lp-hd7093370969%_ + (gx#syntax-e _%hd7202072050%_))) + (let ((_%lp-hd7202472059%_ (let () (declare (not safe)) - (##car _%e7093270965%_))) - (_%lp-tl7093470972%_ + (##car _%e7202372055%_))) + (_%lp-tl7202572062%_ (let () (declare (not safe)) - (##cdr _%e7093270965%_)))) - (_%loop7093170955%_ - _%lp-tl7093470972%_ - (cons _%lp-hd7093370969%_ _%clause7093570962%_)))) - (let ((_%clause7093670975%_ - (reverse _%clause7093570962%_))) - ((lambda (_%L70979%_) + (##cdr _%e7202372055%_)))) + (_%loop7202272046%_ + _%lp-tl7202572062%_ + (cons _%lp-hd7202472059%_ _%clause7202672053%_)))) + (let ((_%clause7202772065%_ + (reverse _%clause7202672053%_))) + ((lambda (_%g7201872068%_) (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g7099470997%_ - _%g7099571000%_) - (cons _%g7099470997%_ - _%g7099571000%_)) + (foldr (lambda (_%g7208372086%_ + _%g7208472089%_) + (cons _%g7208372086%_ + _%g7208472089%_)) '() - _%L70979%_))) - _%clause7093670975%_)))))) + _%g7201872068%_))) + _%clause7202772065%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7093170955%_ - _%target7092870949%_ + (_%loop7202272046%_ + _%target7201972040%_ '())) - (_%g7092570942%_ - _%g7092670946%_))))) - (_%g7092570942%_ _%g7092670946%_))))) - (_%g7092471003%_ - (map _%clause-e70747%_ - (foldr (lambda (_%g7100671009%_ _%g7100771012%_) - (cons _%g7100671009%_ _%g7100771012%_)) + (_%g7201672033%_ + _%g7201772037%_))))) + (_%g7201672033%_ _%g7201772037%_))))) + (_%g7201572092%_ + (map _%clause-e71842%_ + (foldr (lambda (_%g7209572098%_ _%g7209672101%_) + (cons _%g7209572098%_ _%g7209672101%_)) '() - _%L70902%_)))))) - (_%__kont8995289953%_ - (lambda (_%L70830%_) + _%g7184771993%_)))))) + (_%__kont9089990900%_ + (lambda (_%g7186071923%_) (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g7084670849%_ _%g7084770852%_) - (cons _%g7084670849%_ _%g7084770852%_)) + (foldr (lambda (_%g7193971942%_ _%g7194071945%_) + (cons _%g7193971942%_ _%g7194071945%_)) '() - _%L70830%_))))) - (let* ((_%__match8998489985%_ - (lambda (_%e7076670790%_ - _%hd7076770794%_ - _%tl7076870797%_ - _%__splice8995489955%_ - _%target7076970800%_ - _%tl7077170803%_) - (letrec ((_%loop7077270806%_ - (lambda (_%hd7077070810%_ - _%clause7077670813%_) - (if (gx#stx-pair? _%hd7077070810%_) - (let ((_%e7077370816%_ - (gx#syntax-e _%hd7077070810%_))) - (let ((_%lp-tl7077570823%_ + _%g7186071923%_))))) + (let* ((_%__match9093190932%_ + (lambda (_%e7186171885%_ + _%hd7186271889%_ + _%tl7186371892%_ + _%__splice9090190902%_ + _%target7186471895%_ + _%tl7186671898%_) + (letrec ((_%loop7186771901%_ + (lambda (_%hd7186571905%_ + _%clause7187171908%_) + (if (gx#stx-pair? _%hd7186571905%_) + (let ((_%e7186871910%_ + (gx#syntax-e _%hd7186571905%_))) + (let ((_%lp-tl7187071917%_ (let () (declare (not safe)) - (##cdr _%e7077370816%_))) - (_%lp-hd7077470820%_ + (##cdr _%e7186871910%_))) + (_%lp-hd7186971914%_ (let () (declare (not safe)) - (##car _%e7077370816%_)))) - (_%loop7077270806%_ - _%lp-tl7077570823%_ - (cons _%lp-hd7077470820%_ - _%clause7077670813%_)))) - (let ((_%clause7077770826%_ - (reverse _%clause7077670813%_))) - (_%__kont8995289953%_ - _%clause7077770826%_)))))) - (_%loop7077270806%_ _%target7076970800%_ '())))) - (_%__match8997089971%_ - (lambda (_%e7075370862%_ - _%hd7075470866%_ - _%tl7075570869%_ - _%__splice8995089951%_ - _%target7075670872%_ - _%tl7075870875%_) - (letrec ((_%loop7075970878%_ - (lambda (_%hd7075770882%_ - _%clause7076370885%_) - (if (gx#stx-pair? _%hd7075770882%_) - (let ((_%e7076070888%_ - (gx#syntax-e _%hd7075770882%_))) - (let ((_%lp-tl7076270895%_ + (##car _%e7186871910%_)))) + (_%loop7186771901%_ + _%lp-tl7187071917%_ + (cons _%lp-hd7186971914%_ + _%clause7187171908%_)))) + (let ((_%clause7187271920%_ + (reverse _%clause7187171908%_))) + (_%__kont9089990900%_ + _%clause7187271920%_)))))) + (_%loop7186771901%_ _%target7186471895%_ '())))) + (_%__match9091790918%_ + (lambda (_%e7184871955%_ + _%hd7184971959%_ + _%tl7185071962%_ + _%__splice9089790898%_ + _%target7185171965%_ + _%tl7185371968%_) + (letrec ((_%loop7185471971%_ + (lambda (_%hd7185271975%_ + _%clause7185871978%_) + (if (gx#stx-pair? _%hd7185271975%_) + (let ((_%e7185571980%_ + (gx#syntax-e _%hd7185271975%_))) + (let ((_%lp-tl7185771987%_ (let () (declare (not safe)) - (##cdr _%e7076070888%_))) - (_%lp-hd7076170892%_ + (##cdr _%e7185571980%_))) + (_%lp-hd7185671984%_ (let () (declare (not safe)) - (##car _%e7076070888%_)))) - (_%loop7075970878%_ - _%lp-tl7076270895%_ - (cons _%lp-hd7076170892%_ - _%clause7076370885%_)))) - (let* ((_%clause7076470898%_ - (reverse _%clause7076370885%_)) - (_%L70902%_ - _%clause7076470898%_)) - (if (ormap _%is-clause-signature?70745%_ - (foldr (lambda (_%g7091670919%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7091770922%_) - (cons _%g7091670919%_ _%g7091770922%_)) + (##car _%e7185571980%_)))) + (_%loop7185471971%_ + _%lp-tl7185771987%_ + (cons _%lp-hd7185671984%_ + _%clause7185871978%_)))) + (let* ((_%clause7185971990%_ + (reverse _%clause7185871978%_)) + (_%g7184771993%_ + _%clause7185971990%_)) + (if (ormap _%is-clause-signature?71840%_ + (foldr (lambda (_%g7200772010%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7200872013%_) + (cons _%g7200772010%_ _%g7200872013%_)) '() - _%L70902%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8994889949%_ _%L70902%_) - (_%__match8998489985%_ - _%e7075370862%_ - _%hd7075470866%_ - _%tl7075570869%_ - _%__splice8995089951%_ - _%target7075670872%_ - _%tl7075870875%_))))))) - (_%loop7075970878%_ _%target7075670872%_ '()))))) - (if (gx#stx-pair? _%__stx8994589946%_) - (let ((_%e7075370862%_ (gx#syntax-e _%__stx8994589946%_))) - (let ((_%tl7075570869%_ + _%g7184771993%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont9089590896%_ + _%g7184771993%_) + (_%__match9093190932%_ + _%e7184871955%_ + _%hd7184971959%_ + _%tl7185071962%_ + _%__splice9089790898%_ + _%target7185171965%_ + _%tl7185371968%_))))))) + (_%loop7185471971%_ _%target7185171965%_ '()))))) + (if (gx#stx-pair? _%__stx9089290893%_) + (let ((_%e7184871955%_ (gx#syntax-e _%__stx9089290893%_))) + (let ((_%tl7185071962%_ (let () (declare (not safe)) - (##cdr _%e7075370862%_))) - (_%hd7075470866%_ + (##cdr _%e7184871955%_))) + (_%hd7184971959%_ (let () (declare (not safe)) - (##car _%e7075370862%_)))) - (if (gx#stx-pair/null? _%tl7075570869%_) - (let ((_%__splice8995089951%_ + (##car _%e7184871955%_)))) + (if (gx#stx-pair/null? _%tl7185071962%_) + (let ((_%__splice9089790898%_ (gx#syntax-split-splice->vector - _%tl7075570869%_ + _%tl7185071962%_ '0))) - (let ((_%tl7075870875%_ + (let ((_%tl7185371968%_ (let () (declare (not safe)) (##vector-ref - _%__splice8995089951%_ + _%__splice9089790898%_ '1))) - (_%target7075670872%_ + (_%target7185171965%_ (let () (declare (not safe)) (##vector-ref - _%__splice8995089951%_ + _%__splice9089790898%_ '0)))) - (if (gx#stx-null? _%tl7075870875%_) - (_%__match8997089971%_ - _%e7075370862%_ - _%hd7075470866%_ - _%tl7075570869%_ - _%__splice8995089951%_ - _%target7075670872%_ - _%tl7075870875%_) + (if (gx#stx-null? _%tl7185371968%_) + (_%__match9091790918%_ + _%e7184871955%_ + _%hd7184971959%_ + _%tl7185071962%_ + _%__splice9089790898%_ + _%target7185171965%_ + _%tl7185371968%_) (let () (declare (not safe)) - (_%g7075070783%_))))) - (let () (declare (not safe)) (_%g7075070783%_))))) - (let () (declare (not safe)) (_%g7075070783%_))))))))) + (_%g7184571878%_))))) + (let () (declare (not safe)) (_%g7184571878%_))))) + (let () (declare (not safe)) (_%g7184571878%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#@method| - (lambda (_%stx71491%_) - (let* ((_%__stx8998789988%_ _%stx71491%_) - (_%g7149571540%_ + (lambda (_%stx72572%_) + (let* ((_%__stx9093490935%_ _%stx72572%_) + (_%g7257672621%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8998789988%_)))) - (let ((_%__kont8999089991%_ - (lambda (_%L71696%_ _%L71698%_) - (let* ((_%str71715%_ (symbol->string (gx#stx-e _%L71698%_))) - (_%ix71718%_ (string-rindex _%str71715%_ '#\.)) - (_%g7172371738%_ - (lambda (_%g7172471734%_) + _%__stx9093490935%_)))) + (let ((_%__kont9093790938%_ + (lambda (_%g7257872773%_ _%g7257972775%_) + (let* ((_%str72792%_ + (symbol->string (gx#stx-e _%g7257972775%_))) + (_%ix72795%_ (string-rindex _%str72792%_ '#\.)) + (_%g7280072815%_ + (lambda (_%g7280172811%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7172471734%_))) - (_%g7172271794%_ - (lambda (_%g7172471742%_) - (if (gx#stx-pair? _%g7172471742%_) - (let ((_%e7172771745%_ - (gx#syntax-e _%g7172471742%_))) - (let ((_%hd7172871749%_ + _%g7280172811%_))) + (_%g7279972871%_ + (lambda (_%g7280172819%_) + (if (gx#stx-pair? _%g7280172819%_) + (let ((_%e7280472822%_ + (gx#syntax-e _%g7280172819%_))) + (let ((_%hd7280572826%_ (let () (declare (not safe)) - (##car _%e7172771745%_))) - (_%tl7172971752%_ + (##car _%e7280472822%_))) + (_%tl7280672829%_ (let () (declare (not safe)) - (##cdr _%e7172771745%_)))) - (if (gx#stx-pair? _%tl7172971752%_) - (let ((_%e7173071755%_ + (##cdr _%e7280472822%_)))) + (if (gx#stx-pair? _%tl7280672829%_) + (let ((_%e7280772832%_ (gx#syntax-e - _%tl7172971752%_))) - (let ((_%hd7173171759%_ + _%tl7280672829%_))) + (let ((_%hd7280872836%_ (let () (declare (not safe)) - (##car _%e7173071755%_))) - (_%tl7173271762%_ + (##car _%e7280772832%_))) + (_%tl7280972839%_ (let () (declare (not safe)) - (##cdr _%e7173071755%_)))) + (##cdr _%e7280772832%_)))) (if (gx#stx-null? - _%tl7173271762%_) - ((lambda (_%L71765%_ - _%L71767%_) + _%tl7280972839%_) + ((lambda (_%g7280272842%_ + _%g7280372844%_) (cons (gx#datum->syntax '#f 'call-method) @@ -4758,755 +4800,766 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '%%ref-dotted) - (cons _%L71767%_ '())) + (cons _%g7280372844%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L71765%_ '())) - (foldr (lambda (_%g7178571788%_ _%g7178671791%_) - (cons _%g7178571788%_ _%g7178671791%_)) + (cons _%g7280272842%_ '())) + (foldr (lambda (_%g7286272865%_ _%g7286372868%_) + (cons _%g7286272865%_ _%g7286372868%_)) '() - _%L71696%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7173171759%_ - _%hd7172871749%_) - (_%g7172371738%_ - _%g7172471742%_)))) - (_%g7172371738%_ _%g7172471742%_)))) - (_%g7172371738%_ _%g7172471742%_))))) - (_%g7172271794%_ + _%g7257872773%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd7280872836%_ + _%hd7280572826%_) + (_%g7280072815%_ + _%g7280172819%_)))) + (_%g7280072815%_ _%g7280172819%_)))) + (_%g7280072815%_ _%g7280172819%_))))) + (_%g7279972871%_ (list (gx#stx-identifier - _%L71698%_ - (substring _%str71715%_ '0 _%ix71718%_)) - (let ((__tmp91979 + _%g7257972775%_ + (substring _%str72792%_ '0 _%ix72795%_)) + (let ((__tmp92842 (substring - _%str71715%_ - (fx1+ _%ix71718%_) - (string-length _%str71715%_)))) + _%str72792%_ + (fx1+ _%ix72795%_) + (string-length _%str72792%_)))) (declare (not safe)) - (##string->symbol __tmp91979))))))) - (_%__kont8999489995%_ - (lambda (_%L71607%_ _%L71609%_ _%L71610%_) + (##string->symbol __tmp92842))))))) + (_%__kont9094190942%_ + (lambda (_%g7259572686%_ _%g7259672688%_ _%g7259772689%_) (cons (gx#datum->syntax '#f 'call-method) - (cons _%L71609%_ + (cons _%g7259672688%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L71610%_ '())) - (foldr (lambda (_%g7163071633%_ - _%g7163171636%_) - (cons _%g7163071633%_ - _%g7163171636%_)) + (cons _%g7259772689%_ '())) + (foldr (lambda (_%g7270972712%_ + _%g7271072715%_) + (cons _%g7270972712%_ + _%g7271072715%_)) '() - _%L71607%_))))))) - (let* ((_%__match9004490045%_ - (lambda (_%e7151771547%_ - _%hd7151871551%_ - _%tl7151971554%_ - _%e7152071557%_ - _%hd7152171561%_ - _%tl7152271564%_ - _%e7152371567%_ - _%hd7152471571%_ - _%tl7152571574%_ - _%__splice8999689997%_ - _%target7152671577%_ - _%tl7152871580%_) - (letrec ((_%loop7152971583%_ - (lambda (_%hd7152771587%_ _%arg7153371590%_) - (if (gx#stx-pair? _%hd7152771587%_) - (let ((_%e7153071593%_ - (gx#syntax-e _%hd7152771587%_))) - (let ((_%lp-tl7153271600%_ + _%g7259572686%_))))))) + (let* ((_%__match9099190992%_ + (lambda (_%e7259872628%_ + _%hd7259972632%_ + _%tl7260072635%_ + _%e7260172638%_ + _%hd7260272642%_ + _%tl7260372645%_ + _%e7260472648%_ + _%hd7260572652%_ + _%tl7260672655%_ + _%__splice9094390944%_ + _%target7260772658%_ + _%tl7260972661%_) + (letrec ((_%loop7261072664%_ + (lambda (_%hd7260872668%_ _%arg7261472671%_) + (if (gx#stx-pair? _%hd7260872668%_) + (let ((_%e7261172673%_ + (gx#syntax-e _%hd7260872668%_))) + (let ((_%lp-tl7261372680%_ (let () (declare (not safe)) - (##cdr _%e7153071593%_))) - (_%lp-hd7153171597%_ + (##cdr _%e7261172673%_))) + (_%lp-hd7261272677%_ (let () (declare (not safe)) - (##car _%e7153071593%_)))) - (_%loop7152971583%_ - _%lp-tl7153271600%_ - (cons _%lp-hd7153171597%_ - _%arg7153371590%_)))) - (let ((_%arg7153471603%_ - (reverse _%arg7153371590%_))) - (let ((_%L71607%_ _%arg7153471603%_) - (_%L71609%_ _%hd7152471571%_) - (_%L71610%_ _%hd7152171561%_)) - (if (gx#identifier? _%L71610%_) - (_%__kont8999489995%_ - _%L71607%_ - _%L71609%_ - _%L71610%_) + (##car _%e7261172673%_)))) + (_%loop7261072664%_ + _%lp-tl7261372680%_ + (cons _%lp-hd7261272677%_ + _%arg7261472671%_)))) + (let ((_%arg7261572683%_ + (reverse _%arg7261472671%_))) + (let ((_%g7259572686%_ + _%arg7261572683%_) + (_%g7259672688%_ + _%hd7260572652%_) + (_%g7259772689%_ + _%hd7260272642%_)) + (if (gx#identifier? _%g7259772689%_) + (_%__kont9094190942%_ + _%g7259572686%_ + _%g7259672688%_ + _%g7259772689%_) (let () (declare (not safe)) - (_%g7149571540%_))))))))) - (_%loop7152971583%_ _%target7152671577%_ '())))) - (_%__match9003090031%_ - (lambda (_%e7151771547%_ - _%hd7151871551%_ - _%tl7151971554%_ - _%e7152071557%_ - _%hd7152171561%_ - _%tl7152271564%_) - (if (gx#stx-pair? _%tl7152271564%_) - (let ((_%e7152371567%_ - (gx#syntax-e _%tl7152271564%_))) - (let ((_%tl7152571574%_ + (_%g7257672621%_))))))))) + (_%loop7261072664%_ _%target7260772658%_ '())))) + (_%__match9097790978%_ + (lambda (_%e7259872628%_ + _%hd7259972632%_ + _%tl7260072635%_ + _%e7260172638%_ + _%hd7260272642%_ + _%tl7260372645%_) + (if (gx#stx-pair? _%tl7260372645%_) + (let ((_%e7260472648%_ + (gx#syntax-e _%tl7260372645%_))) + (let ((_%tl7260672655%_ (let () (declare (not safe)) - (##cdr _%e7152371567%_))) - (_%hd7152471571%_ + (##cdr _%e7260472648%_))) + (_%hd7260572652%_ (let () (declare (not safe)) - (##car _%e7152371567%_)))) - (if (gx#stx-pair/null? _%tl7152571574%_) - (let ((_%__splice8999689997%_ + (##car _%e7260472648%_)))) + (if (gx#stx-pair/null? _%tl7260672655%_) + (let ((_%__splice9094390944%_ (gx#syntax-split-splice->vector - _%tl7152571574%_ + _%tl7260672655%_ '0))) - (let ((_%tl7152871580%_ + (let ((_%tl7260972661%_ (let () (declare (not safe)) (##vector-ref - _%__splice8999689997%_ + _%__splice9094390944%_ '1))) - (_%target7152671577%_ + (_%target7260772658%_ (let () (declare (not safe)) (##vector-ref - _%__splice8999689997%_ + _%__splice9094390944%_ '0)))) - (if (gx#stx-null? _%tl7152871580%_) - (_%__match9004490045%_ - _%e7151771547%_ - _%hd7151871551%_ - _%tl7151971554%_ - _%e7152071557%_ - _%hd7152171561%_ - _%tl7152271564%_ - _%e7152371567%_ - _%hd7152471571%_ - _%tl7152571574%_ - _%__splice8999689997%_ - _%target7152671577%_ - _%tl7152871580%_) + (if (gx#stx-null? _%tl7260972661%_) + (_%__match9099190992%_ + _%e7259872628%_ + _%hd7259972632%_ + _%tl7260072635%_ + _%e7260172638%_ + _%hd7260272642%_ + _%tl7260372645%_ + _%e7260472648%_ + _%hd7260572652%_ + _%tl7260672655%_ + _%__splice9094390944%_ + _%target7260772658%_ + _%tl7260972661%_) (let () (declare (not safe)) - (_%g7149571540%_))))) + (_%g7257672621%_))))) (let () (declare (not safe)) - (_%g7149571540%_))))) - (let () (declare (not safe)) (_%g7149571540%_))))) - (_%__match9001890019%_ - (lambda (_%e7149971646%_ - _%hd7150071650%_ - _%tl7150171653%_ - _%e7150271656%_ - _%hd7150371660%_ - _%tl7150471663%_ - _%__splice8999289993%_ - _%target7150571666%_ - _%tl7150771669%_) - (letrec ((_%loop7150871672%_ - (lambda (_%hd7150671676%_ _%arg7151271679%_) - (if (gx#stx-pair? _%hd7150671676%_) - (let ((_%e7150971682%_ - (gx#syntax-e _%hd7150671676%_))) - (let ((_%lp-tl7151171689%_ + (_%g7257672621%_))))) + (let () (declare (not safe)) (_%g7257672621%_))))) + (_%__match9096590966%_ + (lambda (_%e7258072725%_ + _%hd7258172729%_ + _%tl7258272732%_ + _%e7258372735%_ + _%hd7258472739%_ + _%tl7258572742%_ + _%__splice9093990940%_ + _%target7258672745%_ + _%tl7258872748%_) + (letrec ((_%loop7258972751%_ + (lambda (_%hd7258772755%_ _%arg7259372758%_) + (if (gx#stx-pair? _%hd7258772755%_) + (let ((_%e7259072760%_ + (gx#syntax-e _%hd7258772755%_))) + (let ((_%lp-tl7259272767%_ (let () (declare (not safe)) - (##cdr _%e7150971682%_))) - (_%lp-hd7151071686%_ + (##cdr _%e7259072760%_))) + (_%lp-hd7259172764%_ (let () (declare (not safe)) - (##car _%e7150971682%_)))) - (_%loop7150871672%_ - _%lp-tl7151171689%_ - (cons _%lp-hd7151071686%_ - _%arg7151271679%_)))) - (let ((_%arg7151371692%_ - (reverse _%arg7151271679%_))) - (let ((_%L71696%_ _%arg7151371692%_) - (_%L71698%_ _%hd7150371660%_)) + (##car _%e7259072760%_)))) + (_%loop7258972751%_ + _%lp-tl7259272767%_ + (cons _%lp-hd7259172764%_ + _%arg7259372758%_)))) + (let ((_%arg7259472770%_ + (reverse _%arg7259372758%_))) + (let ((_%g7257872773%_ + _%arg7259472770%_) + (_%g7257972775%_ + _%hd7258472739%_)) (if (let () (declare (not safe)) (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L71698%_)) - (_%__kont8999089991%_ - _%L71696%_ - _%L71698%_) - (_%__match9003090031%_ - _%e7149971646%_ - _%hd7150071650%_ - _%tl7150171653%_ - _%e7150271656%_ - _%hd7150371660%_ - _%tl7150471663%_)))))))) - (_%loop7150871672%_ _%target7150571666%_ '()))))) - (if (gx#stx-pair? _%__stx8998789988%_) - (let ((_%e7149971646%_ (gx#syntax-e _%__stx8998789988%_))) - (let ((_%tl7150171653%_ + _%g7257972775%_)) + (_%__kont9093790938%_ + _%g7257872773%_ + _%g7257972775%_) + (_%__match9097790978%_ + _%e7258072725%_ + _%hd7258172729%_ + _%tl7258272732%_ + _%e7258372735%_ + _%hd7258472739%_ + _%tl7258572742%_)))))))) + (_%loop7258972751%_ _%target7258672745%_ '()))))) + (if (gx#stx-pair? _%__stx9093490935%_) + (let ((_%e7258072725%_ (gx#syntax-e _%__stx9093490935%_))) + (let ((_%tl7258272732%_ (let () (declare (not safe)) - (##cdr _%e7149971646%_))) - (_%hd7150071650%_ + (##cdr _%e7258072725%_))) + (_%hd7258172729%_ (let () (declare (not safe)) - (##car _%e7149971646%_)))) - (if (gx#stx-pair? _%tl7150171653%_) - (let ((_%e7150271656%_ - (gx#syntax-e _%tl7150171653%_))) - (let ((_%tl7150471663%_ + (##car _%e7258072725%_)))) + (if (gx#stx-pair? _%tl7258272732%_) + (let ((_%e7258372735%_ + (gx#syntax-e _%tl7258272732%_))) + (let ((_%tl7258572742%_ (let () (declare (not safe)) - (##cdr _%e7150271656%_))) - (_%hd7150371660%_ + (##cdr _%e7258372735%_))) + (_%hd7258472739%_ (let () (declare (not safe)) - (##car _%e7150271656%_)))) - (if (gx#stx-pair/null? _%tl7150471663%_) - (let ((_%__splice8999289993%_ + (##car _%e7258372735%_)))) + (if (gx#stx-pair/null? _%tl7258572742%_) + (let ((_%__splice9093990940%_ (gx#syntax-split-splice->vector - _%tl7150471663%_ + _%tl7258572742%_ '0))) - (let ((_%tl7150771669%_ + (let ((_%tl7258872748%_ (let () (declare (not safe)) (##vector-ref - _%__splice8999289993%_ + _%__splice9093990940%_ '1))) - (_%target7150571666%_ + (_%target7258672745%_ (let () (declare (not safe)) (##vector-ref - _%__splice8999289993%_ + _%__splice9093990940%_ '0)))) - (if (gx#stx-null? _%tl7150771669%_) - (_%__match9001890019%_ - _%e7149971646%_ - _%hd7150071650%_ - _%tl7150171653%_ - _%e7150271656%_ - _%hd7150371660%_ - _%tl7150471663%_ - _%__splice8999289993%_ - _%target7150571666%_ - _%tl7150771669%_) - (if (gx#stx-pair? _%tl7150471663%_) - (let ((_%e7152371567%_ + (if (gx#stx-null? _%tl7258872748%_) + (_%__match9096590966%_ + _%e7258072725%_ + _%hd7258172729%_ + _%tl7258272732%_ + _%e7258372735%_ + _%hd7258472739%_ + _%tl7258572742%_ + _%__splice9093990940%_ + _%target7258672745%_ + _%tl7258872748%_) + (if (gx#stx-pair? _%tl7258572742%_) + (let ((_%e7260472648%_ (gx#syntax-e - _%tl7150471663%_))) - (let ((_%tl7152571574%_ + _%tl7258572742%_))) + (let ((_%tl7260672655%_ (let () (declare (not safe)) - (##cdr _%e7152371567%_))) - (_%hd7152471571%_ + (##cdr _%e7260472648%_))) + (_%hd7260572652%_ (let () (declare (not safe)) - (##car _%e7152371567%_)))) + (##car _%e7260472648%_)))) (if (gx#stx-pair/null? - _%tl7152571574%_) - (let ((_%__splice8999689997%_ + _%tl7260672655%_) + (let ((_%__splice9094390944%_ (gx#syntax-split-splice->vector - _%tl7152571574%_ + _%tl7260672655%_ '0))) - (let ((_%tl7152871580%_ + (let ((_%tl7260972661%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8999689997%_ '1))) - (_%target7152671577%_ + (##vector-ref _%__splice9094390944%_ '1))) + (_%target7260772658%_ (let () (declare (not safe)) - (##vector-ref _%__splice8999689997%_ '0)))) - (if (gx#stx-null? _%tl7152871580%_) - (_%__match9004490045%_ - _%e7149971646%_ - _%hd7150071650%_ - _%tl7150171653%_ - _%e7150271656%_ - _%hd7150371660%_ - _%tl7150471663%_ - _%e7152371567%_ - _%hd7152471571%_ - _%tl7152571574%_ - _%__splice8999689997%_ - _%target7152671577%_ - _%tl7152871580%_) - (let () (declare (not safe)) (_%g7149571540%_))))) - (let () (declare (not safe)) (_%g7149571540%_))))) + (##vector-ref _%__splice9094390944%_ '0)))) + (if (gx#stx-null? _%tl7260972661%_) + (_%__match9099190992%_ + _%e7258072725%_ + _%hd7258172729%_ + _%tl7258272732%_ + _%e7258372735%_ + _%hd7258472739%_ + _%tl7258572742%_ + _%e7260472648%_ + _%hd7260572652%_ + _%tl7260672655%_ + _%__splice9094390944%_ + _%target7260772658%_ + _%tl7260972661%_) + (let () (declare (not safe)) (_%g7257672621%_))))) + (let () (declare (not safe)) (_%g7257672621%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g7149571540%_)))))) - (if (gx#stx-pair? _%tl7150471663%_) - (let ((_%e7152371567%_ - (gx#syntax-e _%tl7150471663%_))) - (let ((_%tl7152571574%_ + (_%g7257672621%_)))))) + (if (gx#stx-pair? _%tl7258572742%_) + (let ((_%e7260472648%_ + (gx#syntax-e _%tl7258572742%_))) + (let ((_%tl7260672655%_ (let () (declare (not safe)) - (##cdr _%e7152371567%_))) - (_%hd7152471571%_ + (##cdr _%e7260472648%_))) + (_%hd7260572652%_ (let () (declare (not safe)) - (##car _%e7152371567%_)))) + (##car _%e7260472648%_)))) (if (gx#stx-pair/null? - _%tl7152571574%_) - (let ((_%__splice8999689997%_ + _%tl7260672655%_) + (let ((_%__splice9094390944%_ (gx#syntax-split-splice->vector - _%tl7152571574%_ + _%tl7260672655%_ '0))) - (let ((_%tl7152871580%_ + (let ((_%tl7260972661%_ (let () (declare (not safe)) (##vector-ref - _%__splice8999689997%_ + _%__splice9094390944%_ '1))) - (_%target7152671577%_ + (_%target7260772658%_ (let () (declare (not safe)) (##vector-ref - _%__splice8999689997%_ + _%__splice9094390944%_ '0)))) (if (gx#stx-null? - _%tl7152871580%_) - (_%__match9004490045%_ - _%e7149971646%_ - _%hd7150071650%_ - _%tl7150171653%_ - _%e7150271656%_ - _%hd7150371660%_ - _%tl7150471663%_ - _%e7152371567%_ - _%hd7152471571%_ - _%tl7152571574%_ - _%__splice8999689997%_ - _%target7152671577%_ - _%tl7152871580%_) + _%tl7260972661%_) + (_%__match9099190992%_ + _%e7258072725%_ + _%hd7258172729%_ + _%tl7258272732%_ + _%e7258372735%_ + _%hd7258472739%_ + _%tl7258572742%_ + _%e7260472648%_ + _%hd7260572652%_ + _%tl7260672655%_ + _%__splice9094390944%_ + _%target7260772658%_ + _%tl7260972661%_) (let () (declare (not safe)) - (_%g7149571540%_))))) + (_%g7257672621%_))))) (let () (declare (not safe)) - (_%g7149571540%_))))) + (_%g7257672621%_))))) (let () (declare (not safe)) - (_%g7149571540%_)))))) - (let () (declare (not safe)) (_%g7149571540%_))))) - (let () (declare (not safe)) (_%g7149571540%_)))))))) + (_%g7257672621%_)))))) + (let () (declare (not safe)) (_%g7257672621%_))))) + (let () (declare (not safe)) (_%g7257672621%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defmethod/c| - (lambda (_%stx71804%_) - (letrec ((_%interface-declaration?71807%_ - (lambda (_%body75564%_) - (let* ((_%__stx9004790048%_ _%body75564%_) - (_%g7557075593%_ + (lambda (_%stx72881%_) + (letrec ((_%interface-declaration?72884%_ + (lambda (_%body76494%_) + (let* ((_%__stx9099490995%_ _%body76494%_) + (_%g7650076523%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9004790048%_)))) - (let ((_%__kont9005090051%_ (lambda (_%L75691%_) '#t)) - (_%__kont9005290053%_ - (lambda (_%L75642%_ _%L75644%_) - (_%interface-declaration?71807%_ _%L75642%_))) - (_%__kont9005490055%_ (lambda () '#f)) - (_%__kont9005690057%_ + _%__stx9099490995%_)))) + (let ((_%__kont9099790998%_ + (lambda (_%g7650276621%_) '#t)) + (_%__kont9099991000%_ + (lambda (_%g7651076572%_ _%g7651176574%_) + (_%interface-declaration?72884%_ + _%g7651076572%_))) + (_%__kont9100191002%_ (lambda () '#f)) + (_%__kont9100391004%_ (lambda () (gx#raise-syntax-error '#f '"illegal method definition attributes" - _%stx71804%_ - _%body75564%_)))) - (let* ((_%g7556875615%_ + _%stx72881%_ + _%body76494%_)))) + (let* ((_%g7649876545%_ (lambda () - (if (gx#stx-null? _%__stx9004790048%_) - (_%__kont9005490055%_) - (_%__kont9005690057%_)))) - (_%__match9008890089%_ - (lambda (_%e7558275622%_ - _%hd7558375626%_ - _%tl7558475629%_ - _%e7558575632%_ - _%hd7558675636%_ - _%tl7558775639%_) - (let ((_%L75642%_ _%tl7558775639%_) - (_%L75644%_ _%hd7558375626%_)) - (if (gx#stx-keyword? _%L75644%_) - (_%__kont9005290053%_ - _%L75642%_ - _%L75644%_) - (_%__kont9005690057%_)))))) - (if (gx#stx-pair? _%__stx9004790048%_) - (let ((_%e7557375667%_ - (gx#syntax-e _%__stx9004790048%_))) - (let ((_%tl7557575674%_ + (if (gx#stx-null? _%__stx9099490995%_) + (_%__kont9100191002%_) + (_%__kont9100391004%_)))) + (_%__match9103591036%_ + (lambda (_%e7651276552%_ + _%hd7651376556%_ + _%tl7651476559%_ + _%e7651576562%_ + _%hd7651676566%_ + _%tl7651776569%_) + (let ((_%g7651076572%_ _%tl7651776569%_) + (_%g7651176574%_ _%hd7651376556%_)) + (if (gx#stx-keyword? _%g7651176574%_) + (_%__kont9099991000%_ + _%g7651076572%_ + _%g7651176574%_) + (_%__kont9100391004%_)))))) + (if (gx#stx-pair? _%__stx9099490995%_) + (let ((_%e7650376597%_ + (gx#syntax-e _%__stx9099490995%_))) + (let ((_%tl7650576604%_ (let () (declare (not safe)) - (##cdr _%e7557375667%_))) - (_%hd7557475671%_ + (##cdr _%e7650376597%_))) + (_%hd7650476601%_ (let () (declare (not safe)) - (##car _%e7557375667%_)))) - (if (gx#stx-datum? _%hd7557475671%_) - (let ((_%e7557675677%_ - (gx#stx-e _%hd7557475671%_))) - (if (equal? _%e7557675677%_ + (##car _%e7650376597%_)))) + (if (gx#stx-datum? _%hd7650476601%_) + (let ((_%e7650676607%_ + (gx#stx-e _%hd7650476601%_))) + (if (equal? _%e7650676607%_ 'interface:) - (if (gx#stx-pair? _%tl7557575674%_) - (let ((_%e7557775681%_ + (if (gx#stx-pair? _%tl7650576604%_) + (let ((_%e7650776611%_ (gx#syntax-e - _%tl7557575674%_))) - (let ((_%tl7557975688%_ + _%tl7650576604%_))) + (let ((_%tl7650976618%_ (let () (declare (not safe)) - (##cdr _%e7557775681%_))) - (_%hd7557875685%_ + (##cdr _%e7650776611%_))) + (_%hd7650876615%_ (let () (declare (not safe)) - (##car _%e7557775681%_)))) - (_%__kont9005090051%_ - _%tl7557975688%_))) - (_%__kont9005690057%_)) - (if (gx#stx-pair? _%tl7557575674%_) - (let ((_%e7558575632%_ + (##car _%e7650776611%_)))) + (_%__kont9099790998%_ + _%tl7650976618%_))) + (_%__kont9100391004%_)) + (if (gx#stx-pair? _%tl7650576604%_) + (let ((_%e7651576562%_ (gx#syntax-e - _%tl7557575674%_))) - (let ((_%tl7558775639%_ + _%tl7650576604%_))) + (let ((_%tl7651776569%_ (let () (declare (not safe)) - (##cdr _%e7558575632%_))) - (_%hd7558675636%_ + (##cdr _%e7651576562%_))) + (_%hd7651676566%_ (let () (declare (not safe)) - (##car _%e7558575632%_)))) - (_%__match9008890089%_ - _%e7557375667%_ - _%hd7557475671%_ - _%tl7557575674%_ - _%e7558575632%_ - _%hd7558675636%_ - _%tl7558775639%_))) - (_%__kont9005690057%_)))) - (if (gx#stx-pair? _%tl7557575674%_) - (let ((_%e7558575632%_ + (##car _%e7651576562%_)))) + (_%__match9103591036%_ + _%e7650376597%_ + _%hd7650476601%_ + _%tl7650576604%_ + _%e7651576562%_ + _%hd7651676566%_ + _%tl7651776569%_))) + (_%__kont9100391004%_)))) + (if (gx#stx-pair? _%tl7650576604%_) + (let ((_%e7651576562%_ (gx#syntax-e - _%tl7557575674%_))) - (let ((_%tl7558775639%_ + _%tl7650576604%_))) + (let ((_%tl7651776569%_ (let () (declare (not safe)) - (##cdr _%e7558575632%_))) - (_%hd7558675636%_ + (##cdr _%e7651576562%_))) + (_%hd7651676566%_ (let () (declare (not safe)) - (##car _%e7558575632%_)))) - (_%__match9008890089%_ - _%e7557375667%_ - _%hd7557475671%_ - _%tl7557575674%_ - _%e7558575632%_ - _%hd7558675636%_ - _%tl7558775639%_))) - (_%__kont9005690057%_))))) + (##car _%e7651576562%_)))) + (_%__match9103591036%_ + _%e7650376597%_ + _%hd7650476601%_ + _%tl7650576604%_ + _%e7651576562%_ + _%hd7651676566%_ + _%tl7651776569%_))) + (_%__kont9100391004%_))))) (let () (declare (not safe)) - (_%g7556875615%_)))))))) - (_%interface-declaration71809%_ - (lambda (_%body75430%_) - (let _%loop75433%_ ((_%rest75436%_ _%body75430%_) - (_%pre75438%_ '())) - (let* ((_%__stx9009390094%_ _%rest75436%_) - (_%g7544175466%_ + (_%g7649876545%_)))))))) + (_%interface-declaration72886%_ + (lambda (_%body76360%_) + (let _%loop76363%_ ((_%rest76366%_ _%body76360%_) + (_%pre76368%_ '())) + (let* ((_%__stx9104091041%_ _%rest76366%_) + (_%g7637176396%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9009390094%_)))) - (let ((_%__kont9009690097%_ - (lambda (_%L75544%_ _%L75546%_) - (if (gx#identifier? _%L75546%_) + _%__stx9104091041%_)))) + (let ((_%__kont9104391044%_ + (lambda (_%g7637376474%_ _%g7637476476%_) + (if (gx#identifier? _%g7637476476%_) (if (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L75546%_)) - (if (_%interface-declaration?71807%_ - _%L75544%_) + _%g7637476476%_)) + (if (_%interface-declaration?72884%_ + _%g7637376474%_) (gx#raise-syntax-error '#f '"duplicate interface declaration" - _%stx71804%_) - (cons _%L75546%_ + _%stx72881%_) + (cons _%g7637476476%_ (foldr cons (gx#syntax->list - _%L75544%_) + _%g7637376474%_) (reverse! - _%pre75438%_)))) + _%pre76368%_)))) (gx#raise-syntax-error '#f '"not defined as an interface" - _%stx71804%_ - _%L75546%_)) + _%stx72881%_ + _%g7637476476%_)) (gx#raise-syntax-error '#f '"bad interface specification" - _%stx71804%_ - _%L75546%_)))) - (_%__kont9009890099%_ - (lambda (_%L75493%_ _%L75495%_ _%L75496%_) - (_%loop75433%_ - _%L75493%_ - (cons _%L75495%_ - (cons _%L75496%_ _%pre75438%_)))))) - (let ((_%__match9013090131%_ - (lambda (_%e7545575473%_ - _%hd7545675477%_ - _%tl7545775480%_ - _%e7545875483%_ - _%hd7545975487%_ - _%tl7546075490%_) - (let ((_%L75493%_ _%tl7546075490%_) - (_%L75495%_ _%hd7545975487%_) - (_%L75496%_ _%hd7545675477%_)) - (if (gx#stx-keyword? _%L75496%_) - (_%__kont9009890099%_ - _%L75493%_ - _%L75495%_ - _%L75496%_) + _%stx72881%_ + _%g7637476476%_)))) + (_%__kont9104591046%_ + (lambda (_%g7638276423%_ + _%g7638376425%_ + _%g7638476426%_) + (_%loop76363%_ + _%g7638276423%_ + (cons _%g7638376425%_ + (cons _%g7638476426%_ + _%pre76368%_)))))) + (let ((_%__match9107791078%_ + (lambda (_%e7638576403%_ + _%hd7638676407%_ + _%tl7638776410%_ + _%e7638876413%_ + _%hd7638976417%_ + _%tl7639076420%_) + (let ((_%g7638276423%_ _%tl7639076420%_) + (_%g7638376425%_ _%hd7638976417%_) + (_%g7638476426%_ _%hd7638676407%_)) + (if (gx#stx-keyword? _%g7638476426%_) + (_%__kont9104591046%_ + _%g7638276423%_ + _%g7638376425%_ + _%g7638476426%_) (let () (declare (not safe)) - (_%g7544175466%_))))))) - (if (gx#stx-pair? _%__stx9009390094%_) - (let ((_%e7544575520%_ - (gx#syntax-e _%__stx9009390094%_))) - (let ((_%tl7544775527%_ + (_%g7637176396%_))))))) + (if (gx#stx-pair? _%__stx9104091041%_) + (let ((_%e7637576450%_ + (gx#syntax-e _%__stx9104091041%_))) + (let ((_%tl7637776457%_ (let () (declare (not safe)) - (##cdr _%e7544575520%_))) - (_%hd7544675524%_ + (##cdr _%e7637576450%_))) + (_%hd7637676454%_ (let () (declare (not safe)) - (##car _%e7544575520%_)))) - (if (gx#stx-datum? _%hd7544675524%_) - (let ((_%e7544875530%_ - (gx#stx-e _%hd7544675524%_))) - (if (equal? _%e7544875530%_ + (##car _%e7637576450%_)))) + (if (gx#stx-datum? _%hd7637676454%_) + (let ((_%e7637876460%_ + (gx#stx-e _%hd7637676454%_))) + (if (equal? _%e7637876460%_ 'interface:) (if (gx#stx-pair? - _%tl7544775527%_) - (let ((_%e7544975534%_ + _%tl7637776457%_) + (let ((_%e7637976464%_ (gx#syntax-e - _%tl7544775527%_))) - (let ((_%tl7545175541%_ + _%tl7637776457%_))) + (let ((_%tl7638176471%_ (let () (declare (not safe)) - (##cdr _%e7544975534%_))) - (_%hd7545075538%_ + (##cdr _%e7637976464%_))) + (_%hd7638076468%_ (let () (declare (not safe)) - (##car _%e7544975534%_)))) - (_%__kont9009690097%_ - _%tl7545175541%_ - _%hd7545075538%_))) + (##car _%e7637976464%_)))) + (_%__kont9104391044%_ + _%tl7638176471%_ + _%hd7638076468%_))) (let () (declare (not safe)) - (_%g7544175466%_))) + (_%g7637176396%_))) (if (gx#stx-pair? - _%tl7544775527%_) - (let ((_%e7545875483%_ + _%tl7637776457%_) + (let ((_%e7638876413%_ (gx#syntax-e - _%tl7544775527%_))) - (let ((_%tl7546075490%_ + _%tl7637776457%_))) + (let ((_%tl7639076420%_ (let () (declare (not safe)) - (##cdr _%e7545875483%_))) - (_%hd7545975487%_ + (##cdr _%e7638876413%_))) + (_%hd7638976417%_ (let () (declare (not safe)) - (##car _%e7545875483%_)))) - (_%__match9013090131%_ - _%e7544575520%_ - _%hd7544675524%_ - _%tl7544775527%_ - _%e7545875483%_ - _%hd7545975487%_ - _%tl7546075490%_))) + (##car _%e7638876413%_)))) + (_%__match9107791078%_ + _%e7637576450%_ + _%hd7637676454%_ + _%tl7637776457%_ + _%e7638876413%_ + _%hd7638976417%_ + _%tl7639076420%_))) (let () (declare (not safe)) - (_%g7544175466%_))))) - (if (gx#stx-pair? _%tl7544775527%_) - (let ((_%e7545875483%_ + (_%g7637176396%_))))) + (if (gx#stx-pair? _%tl7637776457%_) + (let ((_%e7638876413%_ (gx#syntax-e - _%tl7544775527%_))) - (let ((_%tl7546075490%_ + _%tl7637776457%_))) + (let ((_%tl7639076420%_ (let () (declare (not safe)) - (##cdr _%e7545875483%_))) - (_%hd7545975487%_ + (##cdr _%e7638876413%_))) + (_%hd7638976417%_ (let () (declare (not safe)) - (##car _%e7545875483%_)))) - (_%__match9013090131%_ - _%e7544575520%_ - _%hd7544675524%_ - _%tl7544775527%_ - _%e7545875483%_ - _%hd7545975487%_ - _%tl7546075490%_))) + (##car _%e7638876413%_)))) + (_%__match9107791078%_ + _%e7637576450%_ + _%hd7637676454%_ + _%tl7637776457%_ + _%e7638876413%_ + _%hd7638976417%_ + _%tl7639076420%_))) (let () (declare (not safe)) - (_%g7544175466%_)))))) + (_%g7637176396%_)))))) (let () (declare (not safe)) - (_%g7544175466%_))))))))) - (_%generate-interface-method71810%_ - (lambda (_%method-id75211%_ - _%type-id75213%_ - _%impl75214%_ - _%rest75215%_) - (let* ((_%g7521775245%_ - (lambda (_%g7521875241%_) + (_%g7637176396%_))))))))) + (_%generate-interface-method72887%_ + (lambda (_%method-id76143%_ + _%type-id76145%_ + _%impl76146%_ + _%rest76147%_) + (let* ((_%g7614976177%_ + (lambda (_%g7615076173%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7521875241%_))) - (_%g7521675426%_ - (lambda (_%g7521875249%_) - (if (gx#stx-pair? _%g7521875249%_) - (let ((_%e7522275252%_ - (gx#syntax-e _%g7521875249%_))) - (let ((_%hd7522375256%_ + _%g7615076173%_))) + (_%g7614876356%_ + (lambda (_%g7615076181%_) + (if (gx#stx-pair? _%g7615076181%_) + (let ((_%e7615476184%_ + (gx#syntax-e _%g7615076181%_))) + (let ((_%hd7615576188%_ (let () (declare (not safe)) - (##car _%e7522275252%_))) - (_%tl7522475259%_ + (##car _%e7615476184%_))) + (_%tl7615676191%_ (let () (declare (not safe)) - (##cdr _%e7522275252%_)))) - (if (gx#stx-pair? _%hd7522375256%_) - (let ((_%e7522575262%_ + (##cdr _%e7615476184%_)))) + (if (gx#stx-pair? _%hd7615576188%_) + (let ((_%e7615776194%_ (gx#syntax-e - _%hd7522375256%_))) - (let ((_%hd7522675266%_ + _%hd7615576188%_))) + (let ((_%hd7615876198%_ (let () (declare (not safe)) - (##car _%e7522575262%_))) - (_%tl7522775269%_ + (##car _%e7615776194%_))) + (_%tl7615976201%_ (let () (declare (not safe)) - (##cdr _%e7522575262%_)))) + (##cdr _%e7615776194%_)))) (if (gx#stx-pair/null? - _%tl7522775269%_) - (let ((_g91980_ + _%tl7615976201%_) + (let ((_g92843_ (gx#syntax-split-splice - _%tl7522775269%_ + _%tl7615976201%_ '0))) (begin - (let ((_g91981_ + (let ((_g92844_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g91980_) - (##values-length _g91980_) + (if (##values? _g92843_) + (##values-length _g92843_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g91981_ 2))) - (error "Context expects 2 values" _g91981_))) - (let ((_%target7522875272%_ - (let () (declare (not safe)) (##values-ref _g91980_ 0))) - (_%tl7523075275%_ - (let () (declare (not safe)) (##values-ref _g91980_ 1)))) - (if (gx#stx-null? _%tl7523075275%_) - (letrec ((_%loop7523175278%_ - (lambda (_%hd7522975282%_ _%rest7523575285%_) - (if (gx#stx-pair? _%hd7522975282%_) - (let ((_%e7523275288%_ - (gx#syntax-e _%hd7522975282%_))) - (let ((_%lp-hd7523375292%_ + (if (not (let () (declare (not safe)) (##fx= _g92844_ 2))) + (error "Context expects 2 values" _g92844_))) + (let ((_%target7616076204%_ + (let () (declare (not safe)) (##values-ref _g92843_ 0))) + (_%tl7616276207%_ + (let () (declare (not safe)) (##values-ref _g92843_ 1)))) + (if (gx#stx-null? _%tl7616276207%_) + (letrec ((_%loop7616376210%_ + (lambda (_%hd7616176214%_ _%rest7616776217%_) + (if (gx#stx-pair? _%hd7616176214%_) + (let ((_%e7616476219%_ + (gx#syntax-e _%hd7616176214%_))) + (let ((_%lp-hd7616576223%_ (let () (declare (not safe)) - (##car _%e7523275288%_))) - (_%lp-tl7523475295%_ + (##car _%e7616476219%_))) + (_%lp-tl7616676226%_ (let () (declare (not safe)) - (##cdr _%e7523275288%_)))) - (_%loop7523175278%_ - _%lp-tl7523475295%_ - (cons _%lp-hd7523375292%_ - _%rest7523575285%_)))) - (let ((_%rest7523675298%_ - (reverse _%rest7523575285%_))) - (if (gx#stx-pair? _%tl7522475259%_) - (let ((_%e7523775302%_ + (##cdr _%e7616476219%_)))) + (_%loop7616376210%_ + _%lp-tl7616676226%_ + (cons _%lp-hd7616576223%_ + _%rest7616776217%_)))) + (let ((_%rest7616876229%_ + (reverse _%rest7616776217%_))) + (if (gx#stx-pair? _%tl7615676191%_) + (let ((_%e7616976232%_ (gx#syntax-e - _%tl7522475259%_))) - (let ((_%hd7523875306%_ + _%tl7615676191%_))) + (let ((_%hd7617076236%_ (let () (declare (not safe)) - (##car _%e7523775302%_))) - (_%tl7523975309%_ + (##car _%e7616976232%_))) + (_%tl7617176239%_ (let () (declare (not safe)) - (##cdr _%e7523775302%_)))) + (##cdr _%e7616976232%_)))) (if (gx#stx-null? - _%tl7523975309%_) - ((lambda (_%L75312%_ - _%L75314%_ - _%L75315%_) - (let* ((_%info75338%_ + _%tl7617176239%_) + ((lambda (_%g7615176242%_ + _%g7615276244%_ + _%g7615376245%_) + (let* ((_%info76268%_ (gx#syntax-local-value - _%L75315%_)) - (_%method-name75341%_ + _%g7615376245%_)) + (_%method-name76271%_ (gx#stx-e - _%method-id75211%_)) - (_%method-sig75344%_ + _%method-id76143%_)) + (_%method-sig76274%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gerbil/core/contract~InterfaceInfo#interface-info-method-signature - _%info75338%_ - _%method-name75341%_)))) - (if _%method-sig75344%_ + _%info76268%_ + _%method-name76271%_)))) + (if _%method-sig76274%_ '#!void (gx#raise-syntax-error '#f '"uknown interface method" - _%stx71804%_ - _%L75315%_ - _%method-id75211%_)) - (let* ((_%g7534975364%_ - (lambda (_%g7535075360%_) + _%stx72881%_ + _%g7615376245%_ + _%method-id76143%_)) + (let* ((_%g7627976294%_ + (lambda (_%g7628076290%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7535075360%_))) - (_%g7534875422%_ - (lambda (_%g7535075368%_) - (if (gx#stx-pair? _%g7535075368%_) - (let ((_%e7535375371%_ - (gx#syntax-e _%g7535075368%_))) - (let ((_%hd7535475375%_ + _%g7628076290%_))) + (_%g7627876352%_ + (lambda (_%g7628076298%_) + (if (gx#stx-pair? _%g7628076298%_) + (let ((_%e7628376301%_ + (gx#syntax-e _%g7628076298%_))) + (let ((_%hd7628476305%_ (let () (declare (not safe)) - (##car _%e7535375371%_))) - (_%tl7535575378%_ + (##car _%e7628376301%_))) + (_%tl7628576308%_ (let () (declare (not safe)) - (##cdr _%e7535375371%_)))) - (if (gx#stx-pair? _%tl7535575378%_) - (let ((_%e7535675381%_ - (gx#syntax-e _%tl7535575378%_))) - (let ((_%hd7535775385%_ + (##cdr _%e7628376301%_)))) + (if (gx#stx-pair? _%tl7628576308%_) + (let ((_%e7628676311%_ + (gx#syntax-e _%tl7628576308%_))) + (let ((_%hd7628776315%_ (let () (declare (not safe)) - (##car _%e7535675381%_))) - (_%tl7535875388%_ + (##car _%e7628676311%_))) + (_%tl7628876318%_ (let () (declare (not safe)) - (##cdr _%e7535675381%_)))) - (if (gx#stx-null? _%tl7535875388%_) - ((lambda (_%L75391%_ _%L75393%_) + (##cdr _%e7628676311%_)))) + (if (gx#stx-null? _%tl7628876318%_) + ((lambda (_%g7628176321%_ + _%g7628276323%_) (cons (gx#datum->syntax '#f 'defmethod) @@ -5514,2164 +5567,2176 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@method~) - (cons _%L75393%_ (cons _%L75312%_ '()))) - (cons _%L75391%_ - (foldr (lambda (_%g7541375416%_ _%g7541475419%_) - (cons _%g7541375416%_ _%g7541475419%_)) + (cons _%g7628276323%_ (cons _%g7615176242%_ '()))) + (cons _%g7628176321%_ + (foldr (lambda (_%g7634376346%_ _%g7634476349%_) + (cons _%g7634376346%_ _%g7634476349%_)) '() - _%L75314%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7535775385%_ - _%hd7535475375%_) - (_%g7534975364%_ - _%g7535075368%_)))) - (_%g7534975364%_ _%g7535075368%_)))) - (_%g7534975364%_ _%g7535075368%_))))) - (_%g7534875422%_ - (list (_%generate-interface-method-name71811%_ - _%info75338%_ - _%method-id75211%_) - (_%generate-interface-method-implementation71812%_ - _%type-id75213%_ - _%method-id75211%_ - _%impl75214%_ - _%method-sig75344%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7523875306%_ - _%rest7523675298%_ - _%hd7522675266%_) - (_%g7521775245%_ - _%g7521875249%_)))) - (_%g7521775245%_ - _%g7521875249%_))))))) - (_%loop7523175278%_ _%target7522875272%_ '())) - (_%g7521775245%_ _%g7521875249%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7521775245%_ - _%g7521875249%_)))) - (_%g7521775245%_ _%g7521875249%_)))) - (_%g7521775245%_ _%g7521875249%_))))) - (_%g7521675426%_ - (list (_%interface-declaration71809%_ _%rest75215%_) - _%type-id75213%_))))) - (_%generate-interface-method-name71811%_ - (lambda (_%info75207%_ _%method-id75209%_) + _%g7615276244%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd7628776315%_ + _%hd7628476305%_) + (_%g7627976294%_ + _%g7628076298%_)))) + (_%g7627976294%_ _%g7628076298%_)))) + (_%g7627976294%_ _%g7628076298%_))))) + (_%g7627876352%_ + (list (_%generate-interface-method-name72888%_ + _%info76268%_ + _%method-id76143%_) + (_%generate-interface-method-implementation72889%_ + _%type-id76145%_ + _%method-id76143%_ + _%impl76146%_ + _%method-sig76274%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd7617076236%_ + _%rest7616876229%_ + _%hd7615876198%_) + (_%g7614976177%_ + _%g7615076181%_)))) + (_%g7614976177%_ + _%g7615076181%_))))))) + (_%loop7616376210%_ _%target7616076204%_ '())) + (_%g7614976177%_ _%g7615076181%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7614976177%_ + _%g7615076181%_)))) + (_%g7614976177%_ _%g7615076181%_)))) + (_%g7614976177%_ _%g7615076181%_))))) + (_%g7614876356%_ + (list (_%interface-declaration72886%_ _%rest76147%_) + _%type-id76145%_))))) + (_%generate-interface-method-name72888%_ + (lambda (_%info76139%_ _%method-id76141%_) (gx#stx-identifier - _%method-id75209%_ - (let ((__obj91696 _%info75207%_)) + _%method-id76141%_ + (let ((__obj92549 _%info76139%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91696 + __obj92549 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91696 '2 '#f '#f)) + (##unchecked-structure-ref __obj92549 '4 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj91696 + __obj92549 'namespace))) '"::" - _%method-id75209%_))) - (_%generate-interface-method-implementation71812%_ - (lambda (_%type-id74884%_ - _%method-id74886%_ - _%impl74887%_ - _%method-sig74888%_) - (let* ((_%__stx9013390134%_ _%impl74887%_) - (_%g7489174920%_ + _%method-id76141%_))) + (_%generate-interface-method-implementation72889%_ + (lambda (_%type-id75820%_ + _%method-id75822%_ + _%impl75823%_ + _%method-sig75824%_) + (let* ((_%__stx9108091081%_ _%impl75823%_) + (_%g7582775856%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9013390134%_)))) - (let ((_%__kont9013690137%_ - (lambda (_%L74998%_ - _%L75000%_ - _%L75001%_ - _%L75002%_) - (let* ((_%g7502975041%_ - (lambda (_%g7503075037%_) + _%__stx9108091081%_)))) + (let ((_%__kont9108391084%_ + (lambda (_%g7582975932%_ + _%g7583075934%_ + _%g7583175935%_ + _%g7583275936%_) + (let* ((_%g7596375975%_ + (lambda (_%g7596475971%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7503075037%_))) - (_%g7502875199%_ - (lambda (_%g7503075045%_) - (if (gx#stx-pair? _%g7503075045%_) - (let ((_%e7503375048%_ + _%g7596475971%_))) + (_%g7596276131%_ + (lambda (_%g7596475979%_) + (if (gx#stx-pair? _%g7596475979%_) + (let ((_%e7596775982%_ (gx#syntax-e - _%g7503075045%_))) - (let ((_%hd7503475052%_ + _%g7596475979%_))) + (let ((_%hd7596875986%_ (let () (declare (not safe)) - (##car _%e7503375048%_))) - (_%tl7503575055%_ + (##car _%e7596775982%_))) + (_%tl7596975989%_ (let () (declare (not safe)) - (##cdr _%e7503375048%_)))) - ((lambda (_%L75058%_ - _%L75060%_) - (let* ((_%g7507475082%_ - (lambda (_%g7507575078%_) + (##cdr _%e7596775982%_)))) + ((lambda (_%g7596575992%_ + _%g7596675994%_) + (let* ((_%g7600876016%_ + (lambda (_%g7600976012%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7507575078%_))) - (_%g7507375195%_ - (lambda (_%g7507575086%_) - ((lambda (_%L75089%_) + _%g7600976012%_))) + (_%g7600776127%_ + (lambda (_%g7600976020%_) + ((lambda (_%g7601076023%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g7510275119%_ - (lambda (_%g7510375115%_) + (let* ((_%g7603676053%_ + (lambda (_%g7603776049%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7510375115%_))) - (_%g7510175183%_ - (lambda (_%g7510375123%_) - (if (gx#stx-pair/null? _%g7510375123%_) - (let ((_g91982_ + _%g7603776049%_))) + (_%g7603576115%_ + (lambda (_%g7603776057%_) + (if (gx#stx-pair/null? _%g7603776057%_) + (let ((_g92845_ (gx#syntax-split-splice - _%g7510375123%_ + _%g7603776057%_ '0))) (begin - (let ((_g91983_ + (let ((_g92846_ (let () (declare (not safe)) - (if (##values? _g91982_) + (if (##values? _g92845_) (##values-length - _g91982_) + _g92845_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91983_ 2))) + (##fx= _g92846_ 2))) (error "Context expects 2 values" - _g91983_))) - (let ((_%target7510575126%_ + _g92846_))) + (let ((_%target7603976060%_ (let () (declare (not safe)) - (##values-ref _g91982_ 0))) - (_%tl7510775129%_ + (##values-ref _g92845_ 0))) + (_%tl7604176063%_ (let () (declare (not safe)) (##values-ref - _g91982_ + _g92845_ 1)))) (if (gx#stx-null? - _%tl7510775129%_) - (letrec ((_%loop7510875132%_ - (lambda (_%hd7510675136%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body7511275139%_) - (if (gx#stx-pair? _%hd7510675136%_) - (let ((_%e7510975142%_ - (gx#syntax-e _%hd7510675136%_))) - (let ((_%lp-hd7511075146%_ + _%tl7604176063%_) + (letrec ((_%loop7604276066%_ + (lambda (_%hd7604076070%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body7604676073%_) + (if (gx#stx-pair? _%hd7604076070%_) + (let ((_%e7604376075%_ + (gx#syntax-e _%hd7604076070%_))) + (let ((_%lp-hd7604476079%_ (let () (declare (not safe)) - (##car _%e7510975142%_))) - (_%lp-tl7511175149%_ + (##car _%e7604376075%_))) + (_%lp-tl7604576082%_ (let () (declare (not safe)) - (##cdr _%e7510975142%_)))) - (_%loop7510875132%_ - _%lp-tl7511175149%_ - (cons _%lp-hd7511075146%_ _%body7511275139%_)))) - (let ((_%body7511375152%_ - (reverse _%body7511275139%_))) - ((lambda (_%L75156%_) + (##cdr _%e7604376075%_)))) + (_%loop7604276066%_ + _%lp-tl7604576082%_ + (cons _%lp-hd7604476079%_ _%body7604676073%_)))) + (let ((_%body7604776085%_ + (reverse _%body7604676073%_))) + ((lambda (_%g7603876088%_) (cons (gx#datum->syntax '#f 'lambda/c) - (cons _%L75058%_ + (cons _%g7596575992%_ (cons (gx#datum->syntax '#f '=>) - (cons _%L75089%_ - (foldr (lambda (_%g7517475177%_ + (cons _%g7601076023%_ + (foldr (lambda (_%g7610676109%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7517575180%_) - (cons _%g7517475177%_ _%g7517575180%_)) + _%g7610776112%_) + (cons _%g7610676109%_ _%g7610776112%_)) '() - _%L75156%_)))))) + _%g7603876088%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body7511375152%_)))))) + _%body7604776085%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7510875132%_ - _%target7510575126%_ + (_%loop7604276066%_ + _%target7603976060%_ '())) - (_%g7510275119%_ - _%g7510375123%_))))) - (_%g7510275119%_ _%g7510375123%_))))) - (_%g7510175183%_ - (_%method-body71816%_ - _%L75060%_ - (foldr (lambda (_%g7518675189%_ _%g7518775192%_) - (cons _%g7518675189%_ _%g7518775192%_)) + (_%g7603676053%_ + _%g7603776057%_))))) + (_%g7603676053%_ _%g7603776057%_))))) + (_%g7603576115%_ + (_%method-body72893%_ + _%g7596675994%_ + (foldr (lambda (_%g7611876121%_ _%g7611976124%_) + (cons _%g7611876121%_ _%g7611976124%_)) '() - _%L74998%_) + _%g7582975932%_) '#t)))) - _%g7507575086%_)))) - (_%g7507375195%_ - (gx#syntax-local-introduce (cadr _%method-sig74888%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl7503575055%_ - _%hd7503475052%_))) - (_%g7502975041%_ - _%g7503075045%_))))) - (_%g7502875199%_ - (_%generate-interface-lambda-head71813%_ - _%L75001%_ - _%L75000%_ - _%type-id74884%_ - _%method-id74886%_ - (car _%method-sig74888%_)))))) - (_%__kont9014090141%_ (lambda () _%impl74887%_))) - (let ((_%__match9016890169%_ - (lambda (_%e7489774938%_ - _%hd7489874942%_ - _%tl7489974945%_ - _%e7490074948%_ - _%hd7490174952%_ - _%tl7490274955%_ - _%e7490374958%_ - _%hd7490474962%_ - _%tl7490574965%_ - _%__splice9013890139%_ - _%target7490674968%_ - _%tl7490874971%_) - (letrec ((_%loop7490974974%_ - (lambda (_%hd7490774978%_ - _%body7491374981%_) + _%g7600976020%_)))) + (_%g7600776127%_ + (gx#syntax-local-introduce (cadr _%method-sig75824%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%tl7596975989%_ + _%hd7596875986%_))) + (_%g7596375975%_ + _%g7596475979%_))))) + (_%g7596276131%_ + (_%generate-interface-lambda-head72890%_ + _%g7583175935%_ + _%g7583075934%_ + _%type-id75820%_ + _%method-id75822%_ + (car _%method-sig75824%_)))))) + (_%__kont9108791088%_ (lambda () _%impl75823%_))) + (let ((_%__match9111591116%_ + (lambda (_%e7583375874%_ + _%hd7583475878%_ + _%tl7583575881%_ + _%e7583675884%_ + _%hd7583775888%_ + _%tl7583875891%_ + _%e7583975894%_ + _%hd7584075898%_ + _%tl7584175901%_ + _%__splice9108591086%_ + _%target7584275904%_ + _%tl7584475907%_) + (letrec ((_%loop7584575910%_ + (lambda (_%hd7584375914%_ + _%body7584975917%_) (if (gx#stx-pair? - _%hd7490774978%_) - (let ((_%e7491074984%_ + _%hd7584375914%_) + (let ((_%e7584675919%_ (gx#syntax-e - _%hd7490774978%_))) - (let ((_%lp-tl7491274991%_ + _%hd7584375914%_))) + (let ((_%lp-tl7584875926%_ (let () (declare (not safe)) - (##cdr _%e7491074984%_))) - (_%lp-hd7491174988%_ + (##cdr _%e7584675919%_))) + (_%lp-hd7584775923%_ (let () (declare (not safe)) - (##car _%e7491074984%_)))) - (_%loop7490974974%_ - _%lp-tl7491274991%_ - (cons _%lp-hd7491174988%_ - _%body7491374981%_)))) - (let ((_%body7491474994%_ - (reverse _%body7491374981%_))) - (let ((_%L74998%_ - _%body7491474994%_) - (_%L75000%_ - _%tl7490574965%_) - (_%L75001%_ - _%hd7490474962%_) - (_%L75002%_ - _%hd7489874942%_)) + (##car _%e7584675919%_)))) + (_%loop7584575910%_ + _%lp-tl7584875926%_ + (cons _%lp-hd7584775923%_ + _%body7584975917%_)))) + (let ((_%body7585075929%_ + (reverse _%body7584975917%_))) + (let ((_%g7582975932%_ + _%body7585075929%_) + (_%g7583075934%_ + _%tl7584175901%_) + (_%g7583175935%_ + _%hd7584075898%_) + (_%g7583275936%_ + _%hd7583475878%_)) (if (and (gx#identifier? - _%L75002%_) + _%g7583275936%_) (or (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L75002%_ + _%g7583275936%_ (gx#datum->syntax '#f 'lambda/c)) (gx#free-identifier=? - _%L75002%_ + _%g7583275936%_ (gx#datum->syntax '#f 'lambda))) - (_%method-receiver?71814%_ _%L75001%_)) - (_%__kont9013690137%_ - _%L74998%_ - _%L75000%_ - _%L75001%_ - _%L75002%_) - (_%__kont9014090141%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7490974974%_ - _%target7490674968%_ + (_%method-receiver?72891%_ _%g7583175935%_)) + (_%__kont9108391084%_ + _%g7582975932%_ + _%g7583075934%_ + _%g7583175935%_ + _%g7583275936%_) + (_%__kont9108791088%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7584575910%_ + _%target7584275904%_ '()))))) - (if (gx#stx-pair? _%__stx9013390134%_) - (let ((_%e7489774938%_ - (gx#syntax-e _%__stx9013390134%_))) - (let ((_%tl7489974945%_ + (if (gx#stx-pair? _%__stx9108091081%_) + (let ((_%e7583375874%_ + (gx#syntax-e _%__stx9108091081%_))) + (let ((_%tl7583575881%_ (let () (declare (not safe)) - (##cdr _%e7489774938%_))) - (_%hd7489874942%_ + (##cdr _%e7583375874%_))) + (_%hd7583475878%_ (let () (declare (not safe)) - (##car _%e7489774938%_)))) - (if (gx#stx-pair? _%tl7489974945%_) - (let ((_%e7490074948%_ - (gx#syntax-e _%tl7489974945%_))) - (let ((_%tl7490274955%_ + (##car _%e7583375874%_)))) + (if (gx#stx-pair? _%tl7583575881%_) + (let ((_%e7583675884%_ + (gx#syntax-e _%tl7583575881%_))) + (let ((_%tl7583875891%_ (let () (declare (not safe)) - (##cdr _%e7490074948%_))) - (_%hd7490174952%_ + (##cdr _%e7583675884%_))) + (_%hd7583775888%_ (let () (declare (not safe)) - (##car _%e7490074948%_)))) - (if (gx#stx-pair? _%hd7490174952%_) - (let ((_%e7490374958%_ + (##car _%e7583675884%_)))) + (if (gx#stx-pair? _%hd7583775888%_) + (let ((_%e7583975894%_ (gx#syntax-e - _%hd7490174952%_))) - (let ((_%tl7490574965%_ + _%hd7583775888%_))) + (let ((_%tl7584175901%_ (let () (declare (not safe)) - (##cdr _%e7490374958%_))) - (_%hd7490474962%_ + (##cdr _%e7583975894%_))) + (_%hd7584075898%_ (let () (declare (not safe)) - (##car _%e7490374958%_)))) + (##car _%e7583975894%_)))) (if (gx#stx-pair/null? - _%tl7490274955%_) - (let ((_%__splice9013890139%_ + _%tl7583875891%_) + (let ((_%__splice9108591086%_ (gx#syntax-split-splice->vector - _%tl7490274955%_ + _%tl7583875891%_ '0))) - (let ((_%tl7490874971%_ + (let ((_%tl7584475907%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice9013890139%_ '1))) - (_%target7490674968%_ + (##vector-ref _%__splice9108591086%_ '1))) + (_%target7584275904%_ (let () (declare (not safe)) - (##vector-ref _%__splice9013890139%_ '0)))) - (if (gx#stx-null? _%tl7490874971%_) - (_%__match9016890169%_ - _%e7489774938%_ - _%hd7489874942%_ - _%tl7489974945%_ - _%e7490074948%_ - _%hd7490174952%_ - _%tl7490274955%_ - _%e7490374958%_ - _%hd7490474962%_ - _%tl7490574965%_ - _%__splice9013890139%_ - _%target7490674968%_ - _%tl7490874971%_) - (_%__kont9014090141%_)))) - (_%__kont9014090141%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont9014090141%_)))) - (_%__kont9014090141%_)))) - (_%__kont9014090141%_))))))) - (_%generate-interface-lambda-head71813%_ - (lambda (_%self74864%_ - _%args74866%_ - _%type-id74867%_ - _%method-id74868%_ - _%sig74869%_) - (let* ((_%receiver74871%_ - (_%lambda-receiver71817%_ _%self74864%_)) - (_g91984_ - (_%lambda-signature-explode71818%_ _%sig74869%_))) + (##vector-ref _%__splice9108591086%_ '0)))) + (if (gx#stx-null? _%tl7584475907%_) + (_%__match9111591116%_ + _%e7583375874%_ + _%hd7583475878%_ + _%tl7583575881%_ + _%e7583675884%_ + _%hd7583775888%_ + _%tl7583875891%_ + _%e7583975894%_ + _%hd7584075898%_ + _%tl7584175901%_ + _%__splice9108591086%_ + _%target7584275904%_ + _%tl7584475907%_) + (_%__kont9108791088%_)))) + (_%__kont9108791088%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont9108791088%_)))) + (_%__kont9108791088%_)))) + (_%__kont9108791088%_))))))) + (_%generate-interface-lambda-head72890%_ + (lambda (_%self75800%_ + _%args75802%_ + _%type-id75803%_ + _%method-id75804%_ + _%sig75805%_) + (let* ((_%receiver75807%_ + (_%lambda-receiver72894%_ _%self75800%_)) + (_g92847_ + (_%lambda-signature-explode72895%_ _%sig75805%_))) (begin - (let ((_g91985_ + (let ((_g92848_ (let () (declare (not safe)) - (if (##values? _g91984_) - (##values-length _g91984_) + (if (##values? _g92847_) + (##values-length _g92847_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91985_ 3))) - (error "Context expects 3 values" _g91985_))) - (let ((_%positionals74874%_ + (##fx= _g92848_ 3))) + (error "Context expects 3 values" _g92848_))) + (let ((_%positionals75810%_ (let () (declare (not safe)) - (##values-ref _g91984_ 0))) - (_%keywords74876%_ + (##values-ref _g92847_ 0))) + (_%keywords75812%_ (let () (declare (not safe)) - (##values-ref _g91984_ 1))) - (_%tail74877%_ + (##values-ref _g92847_ 1))) + (_%tail75813%_ (let () (declare (not safe)) - (##values-ref _g91984_ 2)))) - (let ((_%head74879%_ - (_%lambda-head71823%_ - _%self74864%_ - _%args74866%_ - _%positionals74874%_ - _%keywords74876%_ - _%tail74877%_ - _%type-id74867%_))) - (cons _%receiver74871%_ _%head74879%_))))))) - (_%method-receiver?71814%_ - (lambda (_%self74760%_) - (let* ((_%__stx9017190172%_ _%self74760%_) - (_%g7476474783%_ + (##values-ref _g92847_ 2)))) + (let ((_%head75815%_ + (_%lambda-head72900%_ + _%self75800%_ + _%args75802%_ + _%positionals75810%_ + _%keywords75812%_ + _%tail75813%_ + _%type-id75803%_))) + (cons _%receiver75807%_ _%head75815%_))))))) + (_%method-receiver?72891%_ + (lambda (_%self75696%_) + (let* ((_%__stx9111891119%_ _%self75696%_) + (_%g7570075719%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9017190172%_)))) - (let ((_%__kont9017490175%_ - (lambda (_%L74831%_ _%L74833%_ _%L74834%_) - (if (gx#identifier? _%L74834%_) - (if (gx#identifier? _%L74833%_) - (let ((_%$e74852%_ + _%__stx9111891119%_)))) + (let ((_%__kont9112191122%_ + (lambda (_%g7570275767%_ + _%g7570375769%_ + _%g7570475770%_) + (if (gx#identifier? _%g7570475770%_) + (if (gx#identifier? _%g7570375769%_) + (let ((_%$e75788%_ (gx#free-identifier=? - _%L74833%_ + _%g7570375769%_ (gx#datum->syntax '#f ':)))) - (if _%$e74852%_ - _%$e74852%_ - (let ((_%$e74856%_ + (if _%$e75788%_ + _%$e75788%_ + (let ((_%$e75792%_ (gx#free-identifier=? - _%L74833%_ + _%g7570375769%_ (gx#datum->syntax '#f ':-)))) - (if _%$e74856%_ - _%$e74856%_ + (if _%$e75792%_ + _%$e75792%_ (gx#free-identifier=? - _%L74833%_ + _%g7570375769%_ (gx#datum->syntax '#f '::-)))))) '#f) '#f))) - (_%__kont9017690177%_ - (lambda () (gx#identifier? _%self74760%_)))) - (if (gx#stx-pair? _%__stx9017190172%_) - (let ((_%e7476974801%_ - (gx#syntax-e _%__stx9017190172%_))) - (let ((_%tl7477174808%_ + (_%__kont9112391124%_ + (lambda () (gx#identifier? _%self75696%_)))) + (if (gx#stx-pair? _%__stx9111891119%_) + (let ((_%e7570575737%_ + (gx#syntax-e _%__stx9111891119%_))) + (let ((_%tl7570775744%_ (let () (declare (not safe)) - (##cdr _%e7476974801%_))) - (_%hd7477074805%_ + (##cdr _%e7570575737%_))) + (_%hd7570675741%_ (let () (declare (not safe)) - (##car _%e7476974801%_)))) - (if (gx#stx-pair? _%tl7477174808%_) - (let ((_%e7477274811%_ - (gx#syntax-e _%tl7477174808%_))) - (let ((_%tl7477474818%_ + (##car _%e7570575737%_)))) + (if (gx#stx-pair? _%tl7570775744%_) + (let ((_%e7570875747%_ + (gx#syntax-e _%tl7570775744%_))) + (let ((_%tl7571075754%_ (let () (declare (not safe)) - (##cdr _%e7477274811%_))) - (_%hd7477374815%_ + (##cdr _%e7570875747%_))) + (_%hd7570975751%_ (let () (declare (not safe)) - (##car _%e7477274811%_)))) - (if (gx#stx-pair? _%tl7477474818%_) - (let ((_%e7477574821%_ + (##car _%e7570875747%_)))) + (if (gx#stx-pair? _%tl7571075754%_) + (let ((_%e7571175757%_ (gx#syntax-e - _%tl7477474818%_))) - (let ((_%tl7477774828%_ + _%tl7571075754%_))) + (let ((_%tl7571375764%_ (let () (declare (not safe)) - (##cdr _%e7477574821%_))) - (_%hd7477674825%_ + (##cdr _%e7571175757%_))) + (_%hd7571275761%_ (let () (declare (not safe)) - (##car _%e7477574821%_)))) + (##car _%e7571175757%_)))) (if (gx#stx-null? - _%tl7477774828%_) - (_%__kont9017490175%_ - _%hd7477674825%_ - _%hd7477374815%_ - _%hd7477074805%_) - (_%__kont9017690177%_)))) - (_%__kont9017690177%_)))) - (_%__kont9017690177%_)))) - (_%__kont9017690177%_)))))) - (_%method-receiver71815%_ - (lambda (_%self74672%_ _%type-id74674%_) - (if (gx#identifier? _%self74672%_) - (cons _%self74672%_ - (cons '::- (cons _%type-id74674%_ '()))) - (let* ((_%g7467674695%_ - (lambda (_%g7467774691%_) + _%tl7571375764%_) + (_%__kont9112191122%_ + _%hd7571275761%_ + _%hd7570975751%_ + _%hd7570675741%_) + (_%__kont9112391124%_)))) + (_%__kont9112391124%_)))) + (_%__kont9112391124%_)))) + (_%__kont9112391124%_)))))) + (_%method-receiver72892%_ + (lambda (_%self75608%_ _%type-id75610%_) + (if (gx#identifier? _%self75608%_) + (cons _%self75608%_ + (cons '::- (cons _%type-id75610%_ '()))) + (let* ((_%g7561275631%_ + (lambda (_%g7561375627%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7467774691%_))) - (_%g7467574756%_ - (lambda (_%g7467774699%_) - (if (gx#stx-pair? _%g7467774699%_) - (let ((_%e7468174702%_ - (gx#syntax-e _%g7467774699%_))) - (let ((_%hd7468274706%_ + _%g7561375627%_))) + (_%g7561175692%_ + (lambda (_%g7561375635%_) + (if (gx#stx-pair? _%g7561375635%_) + (let ((_%e7561775638%_ + (gx#syntax-e _%g7561375635%_))) + (let ((_%hd7561875642%_ (let () (declare (not safe)) - (##car _%e7468174702%_))) - (_%tl7468374709%_ + (##car _%e7561775638%_))) + (_%tl7561975645%_ (let () (declare (not safe)) - (##cdr _%e7468174702%_)))) - (if (gx#stx-pair? _%tl7468374709%_) - (let ((_%e7468474712%_ + (##cdr _%e7561775638%_)))) + (if (gx#stx-pair? _%tl7561975645%_) + (let ((_%e7562075648%_ (gx#syntax-e - _%tl7468374709%_))) - (let ((_%hd7468574716%_ + _%tl7561975645%_))) + (let ((_%hd7562175652%_ (let () (declare (not safe)) - (##car _%e7468474712%_))) - (_%tl7468674719%_ + (##car _%e7562075648%_))) + (_%tl7562275655%_ (let () (declare (not safe)) - (##cdr _%e7468474712%_)))) + (##cdr _%e7562075648%_)))) (if (gx#stx-pair? - _%tl7468674719%_) - (let ((_%e7468774722%_ + _%tl7562275655%_) + (let ((_%e7562375658%_ (gx#syntax-e - _%tl7468674719%_))) - (let ((_%hd7468874726%_ + _%tl7562275655%_))) + (let ((_%hd7562475662%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e7468774722%_))) - (_%tl7468974729%_ - (let () (declare (not safe)) (##cdr _%e7468774722%_)))) - (if (gx#stx-null? _%tl7468974729%_) - ((lambda (_%L74732%_ _%L74734%_ _%L74735%_) + (##car _%e7562375658%_))) + (_%tl7562575665%_ + (let () (declare (not safe)) (##cdr _%e7562375658%_)))) + (if (gx#stx-null? _%tl7562575665%_) + ((lambda (_%g7561475668%_ + _%g7561575670%_ + _%g7561675671%_) (if (eq? (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx71804%_ - _%L74732%_)) + _%stx72881%_ + _%g7561475668%_)) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx71804%_ - _%type-id74674%_))) + _%stx72881%_ + _%type-id75610%_))) (if (or (gx#free-identifier=? - _%L74734%_ + _%g7561575670%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L74734%_ + _%g7561575670%_ (gx#datum->syntax '#f '::-))) - (cons _%L74735%_ - (cons '::- (cons _%type-id74674%_ '()))) - (cons _%L74735%_ - (cons ':- (cons _%type-id74674%_ '())))) + (cons _%g7561675671%_ + (cons '::- (cons _%type-id75610%_ '()))) + (cons _%g7561675671%_ + (cons ':- (cons _%type-id75610%_ '())))) (gx#raise-syntax-error '#f '"unexpected self type" - _%stx71804%_ - _%self74672%_ - _%type-id74674%_))) - _%hd7468874726%_ - _%hd7468574716%_ - _%hd7468274706%_) - (_%g7467674695%_ _%g7467774699%_)))) - (_%g7467674695%_ _%g7467774699%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7467674695%_ - _%g7467774699%_)))) - (_%g7467674695%_ _%g7467774699%_))))) - (_%g7467574756%_ _%self74672%_))))) - (_%method-body71816%_ - (lambda (_%receiver74453%_ _%body74455%_ _%interface?74456%_) - (let* ((_%g7445874466%_ - (lambda (_%g7445974462%_) + _%stx72881%_ + _%self75608%_ + _%type-id75610%_))) + _%hd7562475662%_ + _%hd7562175652%_ + _%hd7561875642%_) + (_%g7561275631%_ _%g7561375635%_)))) + (_%g7561275631%_ _%g7561375635%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7561275631%_ + _%g7561375635%_)))) + (_%g7561275631%_ _%g7561375635%_))))) + (_%g7561175692%_ _%self75608%_))))) + (_%method-body72893%_ + (lambda (_%receiver75393%_ _%body75395%_ _%interface?75396%_) + (let* ((_%g7539875406%_ + (lambda (_%g7539975402%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7445974462%_))) - (_%g7445774668%_ - (lambda (_%g7445974470%_) - ((lambda (_%L74473%_) - (let* ((_%__stx9020190202%_ _%body74455%_) - (_%g7448674520%_ + _%g7539975402%_))) + (_%g7539775604%_ + (lambda (_%g7539975410%_) + ((lambda (_%g7540075413%_) + (let* ((_%__stx9114891149%_ _%body75395%_) + (_%g7542675460%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9020190202%_)))) - (let ((_%__kont9020490205%_ - (lambda (_%L74637%_ _%L74639%_) - (if _%interface?74456%_ + _%__stx9114891149%_)))) + (let ((_%__kont9115191152%_ + (lambda (_%g7542875573%_ + _%g7542975575%_) + (if _%interface?75396%_ (gx#raise-syntax-error '#f '"unexpected return type" - _%stx71804%_ - _%L74639%_) + _%stx72881%_ + _%g7542975575%_) (cons (gx#datum->syntax '#f '=>) - (cons _%L74639%_ + (cons _%g7542975575%_ (cons (gx#stx-wrap-source ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'with-receiver) - (cons _%L74473%_ - (foldr (lambda (_%g7465574658%_ - _%g7465674661%_) - (cons _%g7465574658%_ - _%g7465674661%_)) + (cons _%g7540075413%_ + (foldr (lambda (_%g7559175594%_ + _%g7559275597%_) + (cons _%g7559175594%_ + _%g7559275597%_)) '() - _%L74637%_))) - (gx#stx-source _%stx71804%_)) + _%g7542875573%_))) + (gx#stx-source _%stx72881%_)) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont9020890209%_ - (lambda (_%L74557%_) + (_%__kont9115591156%_ + (lambda (_%g7544575495%_) (cons (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'with-receiver) - (cons _%L74473%_ - (foldr (lambda (_%g7457174574%_ + (cons _%g7540075413%_ + (foldr (lambda (_%g7550975512%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7457274577%_) - (cons _%g7457174574%_ _%g7457274577%_)) + _%g7551075515%_) + (cons _%g7550975512%_ _%g7551075515%_)) '() - _%L74557%_))) + _%g7544575495%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _%stx71804%_)) + _%stx72881%_)) '())))) - (let* ((_%__match9024490245%_ - (lambda (_%__splice9021090211%_ - _%target7450674527%_ - _%tl7450874530%_) - (letrec ((_%loop7450974533%_ - (lambda (_%hd7450774537%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body7451374540%_) - (if (gx#stx-pair? _%hd7450774537%_) - (let ((_%e7451074543%_ (gx#syntax-e _%hd7450774537%_))) - (let ((_%lp-tl7451274550%_ + (let* ((_%__match9119191192%_ + (lambda (_%__splice9115791158%_ + _%target7544675467%_ + _%tl7544875470%_) + (letrec ((_%loop7544975473%_ + (lambda (_%hd7544775477%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body7545375480%_) + (if (gx#stx-pair? _%hd7544775477%_) + (let ((_%e7545075482%_ (gx#syntax-e _%hd7544775477%_))) + (let ((_%lp-tl7545275489%_ (let () (declare (not safe)) - (##cdr _%e7451074543%_))) - (_%lp-hd7451174547%_ + (##cdr _%e7545075482%_))) + (_%lp-hd7545175486%_ (let () (declare (not safe)) - (##car _%e7451074543%_)))) - (_%loop7450974533%_ - _%lp-tl7451274550%_ - (cons _%lp-hd7451174547%_ _%body7451374540%_)))) - (let ((_%body7451474553%_ (reverse _%body7451374540%_))) - (_%__kont9020890209%_ _%body7451474553%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7450974533%_ - _%target7450674527%_ + (##car _%e7545075482%_)))) + (_%loop7544975473%_ + _%lp-tl7545275489%_ + (cons _%lp-hd7545175486%_ _%body7545375480%_)))) + (let ((_%body7545475492%_ (reverse _%body7545375480%_))) + (_%__kont9115591156%_ _%body7545475492%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7544975473%_ + _%target7544675467%_ '())))) - (_%g7448574580%_ + (_%g7542575518%_ (lambda () (if (gx#stx-pair/null? - _%__stx9020190202%_) - (let ((_%__splice9021090211%_ + _%__stx9114891149%_) + (let ((_%__splice9115791158%_ (gx#syntax-split-splice->vector - _%__stx9020190202%_ + _%__stx9114891149%_ '0))) - (let ((_%tl7450874530%_ + (let ((_%tl7544875470%_ (let () (declare (not safe)) (##vector-ref - _%__splice9021090211%_ + _%__splice9115791158%_ '1))) - (_%target7450674527%_ + (_%target7544675467%_ (let () (declare (not safe)) (##vector-ref - _%__splice9021090211%_ + _%__splice9115791158%_ '0)))) (if (gx#stx-null? - _%tl7450874530%_) - (_%__match9024490245%_ - _%__splice9021090211%_ - _%target7450674527%_ - _%tl7450874530%_) + _%tl7544875470%_) + (_%__match9119191192%_ + _%__splice9115791158%_ + _%target7544675467%_ + _%tl7544875470%_) (let () (declare (not safe)) - (_%g7448674520%_))))) + (_%g7542675460%_))))) (let () (declare (not safe)) - (_%g7448674520%_))))) - (_%__match9023690237%_ - (lambda (_%e7449074587%_ - _%hd7449174591%_ - _%tl7449274594%_ - _%e7449374597%_ - _%hd7449474601%_ - _%tl7449574604%_ - _%__splice9020690207%_ - _%target7449674607%_ - _%tl7449874610%_) - (letrec ((_%loop7449974613%_ - (lambda (_%hd7449774617%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body7450374620%_) - (if (gx#stx-pair? _%hd7449774617%_) - (let ((_%e7450074623%_ (gx#syntax-e _%hd7449774617%_))) - (let ((_%lp-tl7450274630%_ + (_%g7542675460%_))))) + (_%__match9118391184%_ + (lambda (_%e7543075525%_ + _%hd7543175529%_ + _%tl7543275532%_ + _%e7543375535%_ + _%hd7543475539%_ + _%tl7543575542%_ + _%__splice9115391154%_ + _%target7543675545%_ + _%tl7543875548%_) + (letrec ((_%loop7543975551%_ + (lambda (_%hd7543775555%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body7544375558%_) + (if (gx#stx-pair? _%hd7543775555%_) + (let ((_%e7544075560%_ (gx#syntax-e _%hd7543775555%_))) + (let ((_%lp-tl7544275567%_ (let () (declare (not safe)) - (##cdr _%e7450074623%_))) - (_%lp-hd7450174627%_ + (##cdr _%e7544075560%_))) + (_%lp-hd7544175564%_ (let () (declare (not safe)) - (##car _%e7450074623%_)))) - (_%loop7449974613%_ - _%lp-tl7450274630%_ - (cons _%lp-hd7450174627%_ _%body7450374620%_)))) - (let ((_%body7450474633%_ (reverse _%body7450374620%_))) - (_%__kont9020490205%_ - _%body7450474633%_ - _%hd7449474601%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7449974613%_ - _%target7449674607%_ + (##car _%e7544075560%_)))) + (_%loop7543975551%_ + _%lp-tl7544275567%_ + (cons _%lp-hd7544175564%_ _%body7544375558%_)))) + (let ((_%body7544475570%_ (reverse _%body7544375558%_))) + (_%__kont9115191152%_ + _%body7544475570%_ + _%hd7543475539%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7543975551%_ + _%target7543675545%_ '()))))) - (if (gx#stx-pair? _%__stx9020190202%_) - (let ((_%e7449074587%_ + (if (gx#stx-pair? _%__stx9114891149%_) + (let ((_%e7543075525%_ (gx#syntax-e - _%__stx9020190202%_))) - (let ((_%tl7449274594%_ + _%__stx9114891149%_))) + (let ((_%tl7543275532%_ (let () (declare (not safe)) - (##cdr _%e7449074587%_))) - (_%hd7449174591%_ + (##cdr _%e7543075525%_))) + (_%hd7543175529%_ (let () (declare (not safe)) - (##car _%e7449074587%_)))) + (##car _%e7543075525%_)))) (if (gx#identifier? - _%hd7449174591%_) + _%hd7543175529%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g91986_| - _%hd7449174591%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92849_| + _%hd7543175529%_) (if (gx#stx-pair? - _%tl7449274594%_) - (let ((_%e7449374597%_ + _%tl7543275532%_) + (let ((_%e7543375535%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7449274594%_))) - (let ((_%tl7449574604%_ + (gx#syntax-e _%tl7543275532%_))) + (let ((_%tl7543575542%_ (let () (declare (not safe)) - (##cdr _%e7449374597%_))) - (_%hd7449474601%_ + (##cdr _%e7543375535%_))) + (_%hd7543475539%_ (let () (declare (not safe)) - (##car _%e7449374597%_)))) - (if (gx#stx-pair/null? _%tl7449574604%_) - (let ((_%__splice9020690207%_ + (##car _%e7543375535%_)))) + (if (gx#stx-pair/null? _%tl7543575542%_) + (let ((_%__splice9115391154%_ (gx#syntax-split-splice->vector - _%tl7449574604%_ + _%tl7543575542%_ '0))) - (let ((_%tl7449874610%_ + (let ((_%tl7543875548%_ (let () (declare (not safe)) (##vector-ref - _%__splice9020690207%_ + _%__splice9115391154%_ '1))) - (_%target7449674607%_ + (_%target7543675545%_ (let () (declare (not safe)) (##vector-ref - _%__splice9020690207%_ + _%__splice9115391154%_ '0)))) - (if (gx#stx-null? _%tl7449874610%_) - (_%__match9023690237%_ - _%e7449074587%_ - _%hd7449174591%_ - _%tl7449274594%_ - _%e7449374597%_ - _%hd7449474601%_ - _%tl7449574604%_ - _%__splice9020690207%_ - _%target7449674607%_ - _%tl7449874610%_) + (if (gx#stx-null? _%tl7543875548%_) + (_%__match9118391184%_ + _%e7543075525%_ + _%hd7543175529%_ + _%tl7543275532%_ + _%e7543375535%_ + _%hd7543475539%_ + _%tl7543575542%_ + _%__splice9115391154%_ + _%target7543675545%_ + _%tl7543875548%_) (let () (declare (not safe)) - (_%g7448574580%_))))) - (let () (declare (not safe)) (_%g7448574580%_))))) - (let () (declare (not safe)) (_%g7448574580%_))) - (let () (declare (not safe)) (_%g7448574580%_))) + (_%g7542575518%_))))) + (let () (declare (not safe)) (_%g7542575518%_))))) + (let () (declare (not safe)) (_%g7542575518%_))) + (let () (declare (not safe)) (_%g7542575518%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g7448574580%_))))) + (_%g7542575518%_))))) (let () (declare (not safe)) - (_%g7448574580%_))))))) - _%g7445974470%_)))) - (_%g7445774668%_ _%receiver74453%_)))) - (_%lambda-receiver71817%_ - (lambda (_%self74450%_) - (if (gx#identifier? _%self74450%_) - _%self74450%_ - (gx#stx-car _%self74450%_)))) - (_%lambda-signature-explode71818%_ - (lambda (_%sig74343%_) - (let _%loop74346%_ ((_%rest74349%_ _%sig74343%_) - (_%args74351%_ '()) - (_%kws74352%_ '())) - (let* ((_%rest7435374368%_ _%rest74349%_) - (_%E7435774374%_ + (_%g7542575518%_))))))) + _%g7539975410%_)))) + (_%g7539775604%_ _%receiver75393%_)))) + (_%lambda-receiver72894%_ + (lambda (_%self75390%_) + (if (gx#identifier? _%self75390%_) + _%self75390%_ + (gx#stx-car _%self75390%_)))) + (_%lambda-signature-explode72895%_ + (lambda (_%sig75283%_) + (let _%loop75286%_ ((_%rest75289%_ _%sig75283%_) + (_%args75291%_ '()) + (_%kws75292%_ '())) + (let* ((_%rest7529375308%_ _%rest75289%_) + (_%E7529775314%_ (lambda () (error '"No clause matching" - _%rest7435374368%_ + _%rest7529375308%_ '([(? keyword? key) hd . rest]) '([hd . rest]) '(tail)) (void)))) - (let ((_%K7436274425%_ - (lambda (_%rest74420%_ _%hd74422%_ _%key74423%_) - (_%loop74346%_ - _%rest74420%_ - _%args74351%_ - (cons (_%argument-type71819%_ _%hd74422%_) - (cons _%key74423%_ _%kws74352%_))))) - (_%K7435974400%_ - (lambda (_%rest74396%_ _%hd74398%_) - (_%loop74346%_ - _%rest74396%_ - (cons (_%argument-type71819%_ _%hd74398%_) - _%args74351%_) - _%kws74352%_))) - (_%K7435874383%_ - (lambda (_%tail74380%_) - (values (reverse! _%args74351%_) - (reverse! _%kws74352%_) - _%tail74380%_)))) - (if (pair? _%rest7435374368%_) - (let ((_%tl7436474432%_ + (let ((_%K7530275365%_ + (lambda (_%rest75360%_ _%hd75362%_ _%key75363%_) + (_%loop75286%_ + _%rest75360%_ + _%args75291%_ + (cons (_%argument-type72896%_ _%hd75362%_) + (cons _%key75363%_ _%kws75292%_))))) + (_%K7529975340%_ + (lambda (_%rest75336%_ _%hd75338%_) + (_%loop75286%_ + _%rest75336%_ + (cons (_%argument-type72896%_ _%hd75338%_) + _%args75291%_) + _%kws75292%_))) + (_%K7529875323%_ + (lambda (_%tail75320%_) + (values (reverse! _%args75291%_) + (reverse! _%kws75292%_) + _%tail75320%_)))) + (if (pair? _%rest7529375308%_) + (let ((_%tl7530475372%_ (let () (declare (not safe)) - (##cdr _%rest7435374368%_))) - (_%hd7436374429%_ + (##cdr _%rest7529375308%_))) + (_%hd7530375369%_ (let () (declare (not safe)) - (##car _%rest7435374368%_)))) - (if (keyword? _%hd7436374429%_) - (if (pair? _%tl7436474432%_) - (let ((_%tl7436674441%_ + (##car _%rest7529375308%_)))) + (if (keyword? _%hd7530375369%_) + (if (pair? _%tl7530475372%_) + (let ((_%tl7530675381%_ (let () (declare (not safe)) - (##cdr _%tl7436474432%_))) - (_%hd7436574438%_ + (##cdr _%tl7530475372%_))) + (_%hd7530575378%_ (let () (declare (not safe)) - (##car _%tl7436474432%_)))) - (let ((_%key74435%_ _%hd7436374429%_) - (_%hd74444%_ _%hd7436574438%_) - (_%rest74447%_ - _%tl7436674441%_)) - (_%K7436274425%_ - _%rest74447%_ - _%hd74444%_ - _%key74435%_))) - (let ((_%hd74410%_ _%hd7436374429%_) - (_%rest74413%_ _%tl7436474432%_)) - (_%K7435974400%_ - _%rest74413%_ - _%hd74410%_))) - (let ((_%hd74410%_ _%hd7436374429%_) - (_%rest74413%_ _%tl7436474432%_)) - (_%K7435974400%_ - _%rest74413%_ - _%hd74410%_)))) - (let ((_%tail74387%_ _%rest7435374368%_)) - (_%K7435874383%_ _%tail74387%_)))))))) - (_%argument-type71819%_ - (lambda (_%arg74241%_) - (let* ((_%arg7424374259%_ _%arg74241%_) - (_%else7424774271%_ + (##car _%tl7530475372%_)))) + (let ((_%key75375%_ _%hd7530375369%_) + (_%hd75384%_ _%hd7530575378%_) + (_%rest75387%_ + _%tl7530675381%_)) + (_%K7530275365%_ + _%rest75387%_ + _%hd75384%_ + _%key75375%_))) + (let ((_%hd75350%_ _%hd7530375369%_) + (_%rest75353%_ _%tl7530475372%_)) + (_%K7529975340%_ + _%rest75353%_ + _%hd75350%_))) + (let ((_%hd75350%_ _%hd7530375369%_) + (_%rest75353%_ _%tl7530475372%_)) + (_%K7529975340%_ + _%rest75353%_ + _%hd75350%_)))) + (let ((_%tail75327%_ _%rest7529375308%_)) + (_%K7529875323%_ _%tail75327%_)))))))) + (_%argument-type72896%_ + (lambda (_%arg75181%_) + (let* ((_%arg7518375199%_ _%arg75181%_) + (_%else7518775211%_ (lambda () (gx#raise-syntax-error '#f '"BUG: unexpected argument in signature" - _%stx71804%_ - _%arg74241%_)))) - (let ((_%K7425774336%_ (lambda (_%id74333%_) '(:- :t))) - (_%K7425274307%_ - (lambda (_%default74303%_ _%id74305%_) '(:- :t))) - (_%K7424974281%_ - (lambda (_%contract74277%_ _%id74279%_) - (_%extract-type71820%_ _%contract74277%_)))) - (let ((_%try-match7424574329%_ + _%stx72881%_ + _%arg75181%_)))) + (let ((_%K7519775276%_ (lambda (_%id75273%_) '(:- :t))) + (_%K7519275247%_ + (lambda (_%default75243%_ _%id75245%_) '(:- :t))) + (_%K7518975221%_ + (lambda (_%contract75217%_ _%id75219%_) + (_%extract-type72897%_ _%contract75217%_)))) + (let ((_%try-match7518575269%_ (lambda () - (if (pair? _%arg7424374259%_) - (let ((_%tl7425474314%_ + (if (pair? _%arg7518375199%_) + (let ((_%tl7519475254%_ (let () (declare (not safe)) - (##cdr _%arg7424374259%_))) - (_%hd7425374311%_ + (##cdr _%arg7518375199%_))) + (_%hd7519375251%_ (let () (declare (not safe)) - (##car _%arg7424374259%_)))) - (if (pair? _%tl7425474314%_) - (let ((_%tl7425674323%_ + (##car _%arg7518375199%_)))) + (if (pair? _%tl7519475254%_) + (let ((_%tl7519675263%_ (let () (declare (not safe)) - (##cdr _%tl7425474314%_))) - (_%hd7425574320%_ + (##cdr _%tl7519475254%_))) + (_%hd7519575260%_ (let () (declare (not safe)) - (##car _%tl7425474314%_)))) - (if (null? _%tl7425674323%_) - (let ((_%id74317%_ - _%hd7425374311%_) - (_%default74326%_ - _%hd7425574320%_)) - (_%K7425274307%_ - _%default74326%_ - _%id74317%_)) - (let ((_%id74291%_ - _%hd7425374311%_) - (_%contract74294%_ - _%tl7425474314%_)) - (_%K7424974281%_ - _%contract74294%_ - _%id74291%_)))) - (let ((_%id74291%_ _%hd7425374311%_) - (_%contract74294%_ - _%tl7425474314%_)) - (_%K7424974281%_ - _%contract74294%_ - _%id74291%_)))) - (_%else7424774271%_))))) - (if (symbol? _%arg7424374259%_) - (let ((_%id74340%_ _%arg7424374259%_)) - (_%K7425774336%_ _%id74340%_)) - (_%try-match7424574329%_))))))) - (_%extract-type71820%_ - (lambda (_%contract74164%_) - (let* ((_%contract7416674177%_ _%contract74164%_) - (_%E7416974183%_ + (##car _%tl7519475254%_)))) + (if (null? _%tl7519675263%_) + (let ((_%id75257%_ + _%hd7519375251%_) + (_%default75266%_ + _%hd7519575260%_)) + (_%K7519275247%_ + _%default75266%_ + _%id75257%_)) + (let ((_%id75231%_ + _%hd7519375251%_) + (_%contract75234%_ + _%tl7519475254%_)) + (_%K7518975221%_ + _%contract75234%_ + _%id75231%_)))) + (let ((_%id75231%_ _%hd7519375251%_) + (_%contract75234%_ + _%tl7519475254%_)) + (_%K7518975221%_ + _%contract75234%_ + _%id75231%_)))) + (_%else7518775211%_))))) + (if (symbol? _%arg7518375199%_) + (let ((_%id75280%_ _%arg7518375199%_)) + (_%K7519775276%_ _%id75280%_)) + (_%try-match7518575269%_))))))) + (_%extract-type72897%_ + (lambda (_%contract75104%_) + (let* ((_%contract7510675117%_ _%contract75104%_) + (_%E7510975123%_ (lambda () (error '"No clause matching" - _%contract7416674177%_ + _%contract7510675117%_ '([sigil detail . rest]) '([])) (void)))) - (let ((_%K7417174216%_ - (lambda (_%rest74199%_ - _%detail74201%_ - _%sigil74202%_) - (let ((_%$e74204%_ _%sigil74202%_)) - (if (or (eq? ': _%$e74204%_) - (eq? '::- _%$e74204%_)) + (let ((_%K7511175156%_ + (lambda (_%rest75139%_ + _%detail75141%_ + _%sigil75142%_) + (let ((_%$e75144%_ _%sigil75142%_)) + (if (or (eq? ': _%$e75144%_) + (eq? '::- _%$e75144%_)) (cons '::- (cons (gx#syntax-local-introduce - _%detail74201%_) + _%detail75141%_) '())) - (if (eq? ':- _%$e74204%_) + (if (eq? ':- _%$e75144%_) (cons ':- (cons (gx#syntax-local-introduce - _%detail74201%_) + _%detail75141%_) '())) - (if (eq? ':? _%$e74204%_) + (if (eq? ':? _%$e75144%_) (cons ':? (cons (gx#syntax-local-introduce - _%detail74201%_) + _%detail75141%_) '())) - (if (or (eq? ':~ _%$e74204%_) - (eq? ':= _%$e74204%_)) - (_%extract-type71820%_ - _%rest74199%_) + (if (or (eq? ':~ _%$e75144%_) + (eq? ':= _%$e75144%_)) + (_%extract-type72897%_ + _%rest75139%_) (gx#raise-syntax-error '#f '"BUG: unexpected contract sigil in signature" - _%stx71804%_ - _%sigil74202%_)))))))) - (_%K7417074191%_ (lambda () '(:- :t)))) - (let ((_%try-match7416874195%_ + _%stx72881%_ + _%sigil75142%_)))))))) + (_%K7511075131%_ (lambda () '(:- :t)))) + (let ((_%try-match7510875135%_ (lambda () - (if (null? _%contract7416674177%_) - (_%K7417074191%_) - (_%E7416974183%_))))) - (if (pair? _%contract7416674177%_) - (let ((_%tl7417374223%_ + (if (null? _%contract7510675117%_) + (_%K7511075131%_) + (_%E7510975123%_))))) + (if (pair? _%contract7510675117%_) + (let ((_%tl7511375163%_ (let () (declare (not safe)) - (##cdr _%contract7416674177%_))) - (_%hd7417274220%_ + (##cdr _%contract7510675117%_))) + (_%hd7511275160%_ (let () (declare (not safe)) - (##car _%contract7416674177%_)))) - (if (pair? _%tl7417374223%_) - (let ((_%tl7417574232%_ + (##car _%contract7510675117%_)))) + (if (pair? _%tl7511375163%_) + (let ((_%tl7511575172%_ (let () (declare (not safe)) - (##cdr _%tl7417374223%_))) - (_%hd7417474229%_ + (##cdr _%tl7511375163%_))) + (_%hd7511475169%_ (let () (declare (not safe)) - (##car _%tl7417374223%_)))) - (let ((_%sigil74226%_ _%hd7417274220%_) - (_%detail74235%_ _%hd7417474229%_) - (_%rest74238%_ _%tl7417574232%_)) - (_%K7417174216%_ - _%rest74238%_ - _%detail74235%_ - _%sigil74226%_))) - (_%E7416974183%_))) - (_%try-match7416874195%_))))))) - (_%lambda-argument?71821%_ - (lambda (_%arg74053%_) - (let ((_%$e74056%_ (gx#identifier? _%arg74053%_))) - (if _%$e74056%_ - _%$e74056%_ - (let* ((_%__stx9029590296%_ _%arg74053%_) - (_%g7406174082%_ + (##car _%tl7511375163%_)))) + (let ((_%sigil75166%_ _%hd7511275160%_) + (_%detail75175%_ _%hd7511475169%_) + (_%rest75178%_ _%tl7511575172%_)) + (_%K7511175156%_ + _%rest75178%_ + _%detail75175%_ + _%sigil75166%_))) + (_%E7510975123%_))) + (_%try-match7510875135%_))))))) + (_%lambda-argument?72898%_ + (lambda (_%arg74995%_) + (let ((_%$e74998%_ (gx#identifier? _%arg74995%_))) + (if _%$e74998%_ + _%$e74998%_ + (let* ((_%__stx9124291243%_ _%arg74995%_) + (_%g7500375024%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9029590296%_)))) - (let ((_%__kont9029890299%_ - (lambda (_%L74140%_ _%L74142%_) - (gx#identifier? _%L74142%_))) - (_%__kont9030290303%_ (lambda () '#f))) - (let ((_%__match9031890319%_ - (lambda (_%e7406574100%_ - _%hd7406674104%_ - _%tl7406774107%_ - _%__splice9030090301%_ - _%target7406874110%_ - _%tl7407074113%_) - (letrec ((_%loop7407174116%_ - (lambda (_%hd7406974120%_ - _%contract7407574123%_) + _%__stx9124291243%_)))) + (let ((_%__kont9124591246%_ + (lambda (_%g7500575080%_ _%g7500675082%_) + (gx#identifier? _%g7500675082%_))) + (_%__kont9124991250%_ (lambda () '#f))) + (let ((_%__match9126591266%_ + (lambda (_%e7500775042%_ + _%hd7500875046%_ + _%tl7500975049%_ + _%__splice9124791248%_ + _%target7501075052%_ + _%tl7501275055%_) + (letrec ((_%loop7501375058%_ + (lambda (_%hd7501175062%_ + _%contract7501775065%_) (if (gx#stx-pair? - _%hd7406974120%_) - (let ((_%e7407274126%_ + _%hd7501175062%_) + (let ((_%e7501475067%_ (gx#syntax-e - _%hd7406974120%_))) - (let ((_%lp-tl7407474133%_ + _%hd7501175062%_))) + (let ((_%lp-tl7501675074%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e7407274126%_))) - (_%lp-hd7407374130%_ - (let () (declare (not safe)) (##car _%e7407274126%_)))) - (_%loop7407174116%_ - _%lp-tl7407474133%_ - (cons _%lp-hd7407374130%_ _%contract7407574123%_)))) - (let ((_%contract7407674136%_ (reverse _%contract7407574123%_))) - (_%__kont9029890299%_ - _%contract7407674136%_ - _%hd7406674104%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7407174116%_ - _%target7406874110%_ + (##cdr _%e7501475067%_))) + (_%lp-hd7501575071%_ + (let () (declare (not safe)) (##car _%e7501475067%_)))) + (_%loop7501375058%_ + _%lp-tl7501675074%_ + (cons _%lp-hd7501575071%_ _%contract7501775065%_)))) + (let ((_%contract7501875077%_ (reverse _%contract7501775065%_))) + (_%__kont9124591246%_ + _%contract7501875077%_ + _%hd7500875046%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7501375058%_ + _%target7501075052%_ '()))))) - (if (gx#stx-pair? _%__stx9029590296%_) - (let ((_%e7406574100%_ - (gx#syntax-e _%__stx9029590296%_))) - (let ((_%tl7406774107%_ + (if (gx#stx-pair? _%__stx9124291243%_) + (let ((_%e7500775042%_ + (gx#syntax-e _%__stx9124291243%_))) + (let ((_%tl7500975049%_ (let () (declare (not safe)) - (##cdr _%e7406574100%_))) - (_%hd7406674104%_ + (##cdr _%e7500775042%_))) + (_%hd7500875046%_ (let () (declare (not safe)) - (##car _%e7406574100%_)))) + (##car _%e7500775042%_)))) (if (gx#stx-pair/null? - _%tl7406774107%_) - (let ((_%__splice9030090301%_ + _%tl7500975049%_) + (let ((_%__splice9124791248%_ (gx#syntax-split-splice->vector - _%tl7406774107%_ + _%tl7500975049%_ '0))) - (let ((_%tl7407074113%_ + (let ((_%tl7501275055%_ (let () (declare (not safe)) (##vector-ref - _%__splice9030090301%_ + _%__splice9124791248%_ '1))) - (_%target7406874110%_ + (_%target7501075052%_ (let () (declare (not safe)) (##vector-ref - _%__splice9030090301%_ + _%__splice9124791248%_ '0)))) (if (gx#stx-null? - _%tl7407074113%_) - (_%__match9031890319%_ - _%e7406574100%_ - _%hd7406674104%_ - _%tl7406774107%_ - _%__splice9030090301%_ - _%target7406874110%_ - _%tl7407074113%_) - (_%__kont9030290303%_)))) - (_%__kont9030290303%_)))) - (_%__kont9030290303%_))))))))) - (_%lambda-argument-contract71822%_ - (lambda (_%arg73750%_ _%sig-contract73752%_) - (letrec ((_%verify-type73754%_ - (lambda (_%type74049%_ _%sig-type74051%_) + _%tl7501275055%_) + (_%__match9126591266%_ + _%e7500775042%_ + _%hd7500875046%_ + _%tl7500975049%_ + _%__splice9124791248%_ + _%target7501075052%_ + _%tl7501275055%_) + (_%__kont9124991250%_)))) + (_%__kont9124991250%_)))) + (_%__kont9124991250%_))))))))) + (_%lambda-argument-contract72899%_ + (lambda (_%arg74694%_ _%sig-contract74696%_) + (letrec ((_%verify-type74698%_ + (lambda (_%type74991%_ _%sig-type74993%_) (if (eq? (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx71804%_ - _%type74049%_)) + _%stx72881%_ + _%type74991%_)) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx71804%_ - _%sig-type74051%_))) + _%stx72881%_ + _%sig-type74993%_))) '#!void (gx#raise-syntax-error '#f '"invalid interface method implementation; unexpected argument type" - _%stx71804%_ - _%arg73750%_ - _%type74049%_ - _%sig-type74051%_))))) - (if (gx#identifier? _%arg73750%_) - (cons _%arg73750%_ _%sig-contract73752%_) - (let* ((_%g7375773778%_ - (lambda (_%g7375873774%_) + _%stx72881%_ + _%arg74694%_ + _%type74991%_ + _%sig-type74993%_))))) + (if (gx#identifier? _%arg74694%_) + (cons _%arg74694%_ _%sig-contract74696%_) + (let* ((_%g7470174722%_ + (lambda (_%g7470274718%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7375873774%_))) - (_%g7375674045%_ - (lambda (_%g7375873782%_) - (if (gx#stx-pair? _%g7375873782%_) - (let ((_%e7376173785%_ - (gx#syntax-e _%g7375873782%_))) - (let ((_%hd7376273789%_ + _%g7470274718%_))) + (_%g7470074987%_ + (lambda (_%g7470274726%_) + (if (gx#stx-pair? _%g7470274726%_) + (let ((_%e7470574729%_ + (gx#syntax-e _%g7470274726%_))) + (let ((_%hd7470674733%_ (let () (declare (not safe)) - (##car _%e7376173785%_))) - (_%tl7376373792%_ + (##car _%e7470574729%_))) + (_%tl7470774736%_ (let () (declare (not safe)) - (##cdr _%e7376173785%_)))) + (##cdr _%e7470574729%_)))) (if (gx#stx-pair/null? - _%tl7376373792%_) - (let ((_g91987_ + _%tl7470774736%_) + (let ((_g92850_ (gx#syntax-split-splice - _%tl7376373792%_ + _%tl7470774736%_ '0))) (begin - (let ((_g91988_ + (let ((_g92851_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g91987_) - (##values-length _g91987_) + _g92850_) + (##values-length _g92850_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g91988_ 2))) - (error "Context expects 2 values" _g91988_))) + (if (not (let () (declare (not safe)) (##fx= _g92851_ 2))) + (error "Context expects 2 values" _g92851_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7376473795%_ + (let ((_%target7470874739%_ (let () (declare (not safe)) (##values-ref - _g91987_ + _g92850_ 0))) - (_%tl7376673798%_ + (_%tl7471074742%_ (let () (declare (not safe)) (##values-ref - _g91987_ + _g92850_ 1)))) (if (gx#stx-null? - _%tl7376673798%_) - (letrec ((_%loop7376773801%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7376573805%_ _%contract7377173808%_) - (if (gx#stx-pair? _%hd7376573805%_) - (let ((_%e7376873811%_ - (gx#syntax-e _%hd7376573805%_))) - (let ((_%lp-hd7376973815%_ + _%tl7471074742%_) + (letrec ((_%loop7471174745%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7470974749%_ _%contract7471574752%_) + (if (gx#stx-pair? _%hd7470974749%_) + (let ((_%e7471274754%_ + (gx#syntax-e _%hd7470974749%_))) + (let ((_%lp-hd7471374758%_ (let () (declare (not safe)) - (##car _%e7376873811%_))) - (_%lp-tl7377073818%_ + (##car _%e7471274754%_))) + (_%lp-tl7471474761%_ (let () (declare (not safe)) - (##cdr _%e7376873811%_)))) - (_%loop7376773801%_ - _%lp-tl7377073818%_ - (cons _%lp-hd7376973815%_ - _%contract7377173808%_)))) - (let ((_%contract7377273821%_ - (reverse _%contract7377173808%_))) - ((lambda (_%L73825%_ _%L73827%_) - (let _%loop73844%_ ((_%rest73847%_ - (foldr (lambda (_%g7403674039%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7403774042%_) - (cons _%g7403674039%_ _%g7403774042%_)) + (##cdr _%e7471274754%_)))) + (_%loop7471174745%_ + _%lp-tl7471474761%_ + (cons _%lp-hd7471374758%_ + _%contract7471574752%_)))) + (let ((_%contract7471674764%_ + (reverse _%contract7471574752%_))) + ((lambda (_%g7470374767%_ _%g7470474769%_) + (let _%loop74786%_ ((_%rest74789%_ + (foldr (lambda (_%g7497874981%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7497974984%_) + (cons _%g7497874981%_ _%g7497974984%_)) '() - _%L73825%_))) + _%g7470374767%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__stx9032190322%_ - _%rest73847%_) - (_%g7385373884%_ + (let* ((_%__stx9126891269%_ + _%rest74789%_) + (_%g7479574826%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9032190322%_)))) - (let ((_%__kont9032490325%_ - (lambda (_%L74020%_) - (_%verify-type73754%_ - _%L74020%_ - (cadr _%sig-contract73752%_)) - (cons _%L73827%_ + _%__stx9126891269%_)))) + (let ((_%__kont9127191272%_ + (lambda (_%g7479774962%_) + (_%verify-type74698%_ + _%g7479774962%_ + (cadr _%sig-contract74696%_)) + (cons _%g7470474769%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':-) - (cons _%L74020%_ '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont9032690327%_ - (lambda (_%L73970%_ - _%L73972%_) - (_%verify-type73754%_ - _%L73970%_ - (cadr _%sig-contract73752%_)) - (cons _%L73827%_ - _%sig-contract73752%_))) - (_%__kont9032890329%_ - (lambda (_%L73922%_ - _%L73924%_ - _%L73925%_) - (_%loop73844%_ - _%L73922%_))) - (_%__kont9033090331%_ + (cons _%g7479774962%_ '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont9127391274%_ + (lambda (_%g7480474912%_ + _%g7480574914%_) + (_%verify-type74698%_ + _%g7480474912%_ + (cadr _%sig-contract74696%_)) + (cons _%g7470474769%_ + _%sig-contract74696%_))) + (_%__kont9127591276%_ + (lambda (_%g7481274864%_ + _%g7481374866%_ + _%g7481474867%_) + (_%loop74786%_ + _%g7481274864%_))) + (_%__kont9127791278%_ (lambda () (gx#raise-syntax-error '#f - _%stx71804%_ + _%stx72881%_ '"invalid interface method implementation; unexpected argument contract" - _%stx71804%_ - _%arg73750%_)))) - (let ((_%__match9036090361%_ - (lambda (_%e7386473950%_ - _%hd7386573954%_ - _%tl7386673957%_ - _%e7386773960%_ - _%hd7386873964%_ - _%tl7386973967%_) - (let ((_%L73970%_ - _%hd7386873964%_) - (_%L73972%_ - _%hd7386573954%_)) + _%stx72881%_ + _%arg74694%_)))) + (let ((_%__match9130791308%_ + (lambda (_%e7480674892%_ + _%hd7480774896%_ + _%tl7480874899%_ + _%e7480974902%_ + _%hd7481074906%_ + _%tl7481174909%_) + (let ((_%g7480474912%_ + _%hd7481074906%_) + (_%g7480574914%_ + _%hd7480774896%_)) (if (or (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L73972%_ + _%g7480574914%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L73972%_ + _%g7480574914%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L73972%_ + _%g7480574914%_ (gx#datum->syntax '#f ':?))) - (_%__kont9032690327%_ _%L73970%_ _%L73972%_) - (_%__kont9032890329%_ - _%tl7386973967%_ - _%hd7386873964%_ - _%hd7386573954%_)))))) + (_%__kont9127391274%_ _%g7480474912%_ _%g7480574914%_) + (_%__kont9127591276%_ + _%tl7481174909%_ + _%hd7481074906%_ + _%hd7480774896%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx9032190322%_) - (let ((_%e7385674000%_ + _%__stx9126891269%_) + (let ((_%e7479874942%_ (gx#syntax-e - _%__stx9032190322%_))) - (let ((_%tl7385874007%_ + _%__stx9126891269%_))) + (let ((_%tl7480074949%_ (let () (declare (not safe)) - (##cdr _%e7385674000%_))) - (_%hd7385774004%_ + (##cdr _%e7479874942%_))) + (_%hd7479974946%_ (let () (declare (not safe)) - (##car _%e7385674000%_)))) + (##car _%e7479874942%_)))) (if (gx#identifier? - _%hd7385774004%_) + _%hd7479974946%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g91989_| - _%hd7385774004%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92852_| + _%hd7479974946%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl7385874007%_) - (let ((_%e7385974010%_ - (gx#syntax-e _%tl7385874007%_))) - (let ((_%tl7386174017%_ + _%tl7480074949%_) + (let ((_%e7480174952%_ + (gx#syntax-e _%tl7480074949%_))) + (let ((_%tl7480374959%_ (let () (declare (not safe)) - (##cdr _%e7385974010%_))) - (_%hd7386074014%_ + (##cdr _%e7480174952%_))) + (_%hd7480274956%_ (let () (declare (not safe)) - (##car _%e7385974010%_)))) - (_%__kont9032490325%_ _%hd7386074014%_))) - (_%__kont9033090331%_)) - (if (gx#stx-pair? _%tl7385874007%_) - (let ((_%e7386773960%_ - (gx#syntax-e _%tl7385874007%_))) - (let ((_%tl7386973967%_ + (##car _%e7480174952%_)))) + (_%__kont9127191272%_ _%hd7480274956%_))) + (_%__kont9127791278%_)) + (if (gx#stx-pair? _%tl7480074949%_) + (let ((_%e7480974902%_ + (gx#syntax-e _%tl7480074949%_))) + (let ((_%tl7481174909%_ (let () (declare (not safe)) - (##cdr _%e7386773960%_))) - (_%hd7386873964%_ + (##cdr _%e7480974902%_))) + (_%hd7481074906%_ (let () (declare (not safe)) - (##car _%e7386773960%_)))) - (_%__match9036090361%_ - _%e7385674000%_ - _%hd7385774004%_ - _%tl7385874007%_ - _%e7386773960%_ - _%hd7386873964%_ - _%tl7386973967%_))) - (_%__kont9033090331%_))) - (if (gx#stx-pair? _%tl7385874007%_) - (let ((_%e7386773960%_ (gx#syntax-e _%tl7385874007%_))) - (let ((_%tl7386973967%_ + (##car _%e7480974902%_)))) + (_%__match9130791308%_ + _%e7479874942%_ + _%hd7479974946%_ + _%tl7480074949%_ + _%e7480974902%_ + _%hd7481074906%_ + _%tl7481174909%_))) + (_%__kont9127791278%_))) + (if (gx#stx-pair? _%tl7480074949%_) + (let ((_%e7480974902%_ (gx#syntax-e _%tl7480074949%_))) + (let ((_%tl7481174909%_ (let () (declare (not safe)) - (##cdr _%e7386773960%_))) - (_%hd7386873964%_ + (##cdr _%e7480974902%_))) + (_%hd7481074906%_ (let () (declare (not safe)) - (##car _%e7386773960%_)))) - (_%__match9036090361%_ - _%e7385674000%_ - _%hd7385774004%_ - _%tl7385874007%_ - _%e7386773960%_ - _%hd7386873964%_ - _%tl7386973967%_))) - (_%__kont9033090331%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont9033090331%_))))))) - _%contract7377273821%_ - _%hd7376273789%_)))))) - (_%loop7376773801%_ _%target7376473795%_ '())) - (_%g7375773778%_ _%g7375873782%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7375773778%_ - _%g7375873782%_)))) - (_%g7375773778%_ _%g7375873782%_))))) - (_%g7375674045%_ _%arg73750%_)))))) - (_%lambda-head71823%_ - (lambda (_%self73460%_ - _%args73462%_ - _%positionals73463%_ - _%keywords73464%_ - _%tail73465%_ - _%type-id73466%_) - (letrec ((_%syntax-error!73468%_ - (lambda (_%what73746%_ _%detail73748%_) + (##car _%e7480974902%_)))) + (_%__match9130791308%_ + _%e7479874942%_ + _%hd7479974946%_ + _%tl7480074949%_ + _%e7480974902%_ + _%hd7481074906%_ + _%tl7481174909%_))) + (_%__kont9127791278%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont9127791278%_))))))) + _%contract7471674764%_ + _%hd7470674733%_)))))) + (_%loop7471174745%_ _%target7470874739%_ '())) + (_%g7470174722%_ _%g7470274726%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7470174722%_ + _%g7470274726%_)))) + (_%g7470174722%_ _%g7470274726%_))))) + (_%g7470074987%_ _%arg74694%_)))))) + (_%lambda-head72900%_ + (lambda (_%self74404%_ + _%args74406%_ + _%positionals74407%_ + _%keywords74408%_ + _%tail74409%_ + _%type-id74410%_) + (letrec ((_%syntax-error!74412%_ + (lambda (_%what74690%_ _%detail74692%_) (gx#raise-syntax-error '#f (string-append '"invalid interface method implementation; " - _%what73746%_) - _%stx71804%_ - _%args73462%_ - _%detail73748%_))) - (_%finish73470%_ - (lambda (_%pos73686%_ _%kws73688%_ _%tail73689%_) - (let _%loop73691%_ ((_%rest73694%_ - _%keywords73464%_)) - (let* ((_%rest7369673706%_ _%rest73694%_) - (_%else7369873718%_ + _%what74690%_) + _%stx72881%_ + _%args74406%_ + _%detail74692%_))) + (_%finish74414%_ + (lambda (_%pos74630%_ _%kws74632%_ _%tail74633%_) + (let _%loop74635%_ ((_%rest74638%_ + _%keywords74408%_)) + (let* ((_%rest7464074650%_ _%rest74638%_) + (_%else7464274662%_ (lambda () - (cons (_%method-receiver71815%_ - _%self73460%_ - _%type-id73466%_) + (cons (_%method-receiver72892%_ + _%self74404%_ + _%type-id74410%_) (foldr cons (foldr cons - _%tail73689%_ + _%tail74633%_ (reverse! ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kws73688%_)) - (reverse! _%pos73686%_))))) + _%kws74632%_)) + (reverse! _%pos74630%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K7370073726%_ - (lambda (_%rest73722%_ _%key73724%_) - (if (memq _%key73724%_ - _%kws73688%_) - (_%loop73691%_ _%rest73722%_) - (_%syntax-error!73468%_ + (_%K7464474670%_ + (lambda (_%rest74666%_ _%key74668%_) + (if (memq _%key74668%_ + _%kws74632%_) + (_%loop74635%_ _%rest74666%_) + (_%syntax-error!74412%_ '"missing keyword argument" - _%key73724%_))))) - (if (pair? _%rest7369673706%_) - (let ((_%hd7370173730%_ + _%key74668%_))))) + (if (pair? _%rest7464074650%_) + (let ((_%hd7464574674%_ (let () (declare (not safe)) - (##car _%rest7369673706%_))) - (_%tl7370273733%_ + (##car _%rest7464074650%_))) + (_%tl7464674677%_ (let () (declare (not safe)) - (##cdr _%rest7369673706%_)))) - (let ((_%key73736%_ - _%hd7370173730%_)) - (if (pair? _%tl7370273733%_) - (let* ((_%tl7370473739%_ + (##cdr _%rest7464074650%_)))) + (let ((_%key74680%_ + _%hd7464574674%_)) + (if (pair? _%tl7464674677%_) + (let* ((_%tl7464874683%_ (let () (declare (not safe)) - (##cdr _%tl7370273733%_))) - (_%rest73743%_ - _%tl7370473739%_)) - (_%K7370073726%_ - _%rest73743%_ - _%key73736%_)) - (_%else7369873718%_)))) - (_%else7369873718%_))))))) - (let _%loop73472%_ ((_%rest-args73475%_ _%args73462%_) - (_%rest-pos73477%_ - _%positionals73463%_) - (_%pos73478%_ '()) - (_%kws73479%_ '())) - (let* ((_%__stx9037590376%_ _%rest-args73475%_) - (_%g7348573507%_ + (##cdr _%tl7464674677%_))) + (_%rest74687%_ + _%tl7464874683%_)) + (_%K7464474670%_ + _%rest74687%_ + _%key74680%_)) + (_%else7464274662%_)))) + (_%else7464274662%_))))))) + (let _%loop74416%_ ((_%rest-args74419%_ _%args74406%_) + (_%rest-pos74421%_ + _%positionals74407%_) + (_%pos74422%_ '()) + (_%kws74423%_ '())) + (let* ((_%__stx9132291323%_ _%rest-args74419%_) + (_%g7442974451%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9037590376%_)))) - (let ((_%__kont9037890379%_ - (lambda (_%L73626%_ _%L73628%_) - (let* ((_%rest-pos7363873646%_ - _%rest-pos73477%_) - (_%else7364073658%_ + _%__stx9132291323%_)))) + (let ((_%__kont9132591326%_ + (lambda (_%g7443174570%_ _%g7443274572%_) + (let* ((_%rest-pos7458274590%_ + _%rest-pos74421%_) + (_%else7458474602%_ (lambda () - (_%syntax-error!73468%_ + (_%syntax-error!74412%_ '"unexpected positional argument" - _%L73628%_))) - (_%K7364273666%_ - (lambda (_%rest-pos73662%_ - _%contract73664%_) - (_%loop73472%_ - _%L73626%_ - _%rest-pos73662%_ - (cons (_%lambda-argument-contract71822%_ - _%L73628%_ - _%contract73664%_) - _%pos73478%_) - _%kws73479%_)))) - (if (pair? _%rest-pos7363873646%_) - (let ((_%hd7364373670%_ + _%g7443274572%_))) + (_%K7458674610%_ + (lambda (_%rest-pos74606%_ + _%contract74608%_) + (_%loop74416%_ + _%g7443174570%_ + _%rest-pos74606%_ + (cons (_%lambda-argument-contract72899%_ + _%g7443274572%_ + _%contract74608%_) + _%pos74422%_) + _%kws74423%_)))) + (if (pair? _%rest-pos7458274590%_) + (let ((_%hd7458774614%_ (let () (declare (not safe)) - (##car _%rest-pos7363873646%_))) - (_%tl7364473673%_ + (##car _%rest-pos7458274590%_))) + (_%tl7458874617%_ (let () (declare (not safe)) - (##cdr _%rest-pos7363873646%_)))) - (let* ((_%contract73676%_ - _%hd7364373670%_) - (_%rest-pos73679%_ - _%tl7364473673%_)) - (_%K7364273666%_ - _%rest-pos73679%_ - _%contract73676%_))) - (_%else7364073658%_))))) - (_%__kont9038090381%_ - (lambda (_%L73578%_ _%L73580%_ _%L73581%_) - (let ((_%key73595%_ (gx#stx-e _%L73581%_))) - (if (memq _%key73595%_ _%kws73479%_) - (_%syntax-error!73468%_ + (##cdr _%rest-pos7458274590%_)))) + (let* ((_%contract74620%_ + _%hd7458774614%_) + (_%rest-pos74623%_ + _%tl7458874617%_)) + (_%K7458674610%_ + _%rest-pos74623%_ + _%contract74620%_))) + (_%else7458474602%_))))) + (_%__kont9132791328%_ + (lambda (_%g7443674522%_ + _%g7443774524%_ + _%g7443874525%_) + (let ((_%key74539%_ + (gx#stx-e _%g7443874525%_))) + (if (memq _%key74539%_ _%kws74423%_) + (_%syntax-error!74412%_ '"duplicate keyword argument" - _%key73595%_) - (let ((_%$e73600%_ - (pgetq _%key73595%_ - _%keywords73464%_))) - (if _%$e73600%_ - ((lambda (_%contract73604%_) - (_%loop73472%_ - _%L73578%_ - _%rest-pos73477%_ - _%args73462%_ - (cons (_%lambda-argument-contract71822%_ - _%L73580%_ - _%contract73604%_) - (cons _%key73595%_ - _%kws73479%_)))) - _%$e73600%_) - (_%syntax-error!73468%_ + _%key74539%_) + (let ((_%$e74544%_ + (pgetq _%key74539%_ + _%keywords74408%_))) + (if _%$e74544%_ + ((lambda (_%contract74548%_) + (_%loop74416%_ + _%g7443674522%_ + _%rest-pos74421%_ + _%args74406%_ + (cons (_%lambda-argument-contract72899%_ + _%g7443774524%_ + _%contract74548%_) + (cons _%key74539%_ + _%kws74423%_)))) + _%$e74544%_) + (_%syntax-error!74412%_ '"unexpected keyword argument" - _%key73595%_))))))) - (_%__kont9038290383%_ - (lambda (_%L73536%_) - (if (symbol? _%tail73465%_) - (_%finish73470%_ - _%pos73478%_ - _%kws73479%_ - _%L73536%_) - (_%syntax-error!73468%_ + _%key74539%_))))))) + (_%__kont9132991330%_ + (lambda (_%g7444574480%_) + (if (symbol? _%tail74409%_) + (_%finish74414%_ + _%pos74422%_ + _%kws74423%_ + _%g7444574480%_) + (_%syntax-error!74412%_ '"unpexted tail argument" - _%L73536%_)))) - (_%__kont9038490385%_ + _%g7444574480%_)))) + (_%__kont9133191332%_ (lambda () - (if (null? _%tail73465%_) - (_%finish73470%_ - _%pos73478%_ - _%kws73479%_ + (if (null? _%tail74409%_) + (_%finish74414%_ + _%pos74422%_ + _%kws74423%_ '()) - (_%syntax-error!73468%_ + (_%syntax-error!74412%_ '"missing tail argument" - _%tail73465%_)))) - (_%__kont9038690387%_ + _%tail74409%_)))) + (_%__kont9133391334%_ (lambda () - (_%syntax-error!73468%_ + (_%syntax-error!74412%_ '"unexpected formal in lambda" - _%rest-args73475%_)))) - (let* ((_%g7348373529%_ + _%rest-args74419%_)))) + (let* ((_%g7442774473%_ (lambda () - (if (gx#stx-null? _%__stx9037590376%_) - (_%__kont9038490385%_) - (_%__kont9038690387%_)))) - (_%g7348273551%_ + (if (gx#stx-null? _%__stx9132291323%_) + (_%__kont9133191332%_) + (_%__kont9133391334%_)))) + (_%g7442674495%_ (lambda () - (let ((_%L73536%_ _%__stx9037590376%_)) - (if (gx#identifier? _%L73536%_) - (_%__kont9038290383%_ _%L73536%_) + (let ((_%g7444574480%_ + _%__stx9132291323%_)) + (if (gx#identifier? _%g7444574480%_) + (_%__kont9132991330%_ + _%g7444574480%_) (let () (declare (not safe)) - (_%g7348373529%_)))))) - (_%__match9040690407%_ - (lambda (_%e7349573558%_ - _%hd7349673562%_ - _%tl7349773565%_ - _%e7349873568%_ - _%hd7349973572%_ - _%tl7350073575%_) - (let ((_%L73578%_ _%tl7350073575%_) - (_%L73580%_ _%hd7349973572%_) - (_%L73581%_ _%hd7349673562%_)) - (if (and (gx#stx-keyword? _%L73581%_) - (_%lambda-argument?71821%_ - _%L73580%_)) - (_%__kont9038090381%_ - _%L73578%_ - _%L73580%_ - _%L73581%_) + (_%g7442774473%_)))))) + (_%__match9135391354%_ + (lambda (_%e7443974502%_ + _%hd7444074506%_ + _%tl7444174509%_ + _%e7444274512%_ + _%hd7444374516%_ + _%tl7444474519%_) + (let ((_%g7443674522%_ _%tl7444474519%_) + (_%g7443774524%_ _%hd7444374516%_) + (_%g7443874525%_ _%hd7444074506%_)) + (if (and (gx#stx-keyword? + _%g7443874525%_) + (_%lambda-argument?72898%_ + _%g7443774524%_)) + (_%__kont9132791328%_ + _%g7443674522%_ + _%g7443774524%_ + _%g7443874525%_) (let () (declare (not safe)) - (_%g7348273551%_)))))) - (_%__match9039490395%_ - (lambda (_%e7348973616%_ - _%hd7349073620%_ - _%tl7349173623%_) - (let ((_%L73626%_ _%tl7349173623%_) - (_%L73628%_ _%hd7349073620%_)) - (if (_%lambda-argument?71821%_ - _%L73628%_) - (_%__kont9037890379%_ - _%L73626%_ - _%L73628%_) - (if (gx#stx-pair? _%tl7349173623%_) - (let ((_%e7349873568%_ + (_%g7442674495%_)))))) + (_%__match9134191342%_ + (lambda (_%e7443374560%_ + _%hd7443474564%_ + _%tl7443574567%_) + (let ((_%g7443174570%_ _%tl7443574567%_) + (_%g7443274572%_ _%hd7443474564%_)) + (if (_%lambda-argument?72898%_ + _%g7443274572%_) + (_%__kont9132591326%_ + _%g7443174570%_ + _%g7443274572%_) + (if (gx#stx-pair? _%tl7443574567%_) + (let ((_%e7444274512%_ (gx#syntax-e - _%tl7349173623%_))) - (let ((_%tl7350073575%_ + _%tl7443574567%_))) + (let ((_%tl7444474519%_ (let () (declare (not safe)) - (##cdr _%e7349873568%_))) - (_%hd7349973572%_ + (##cdr _%e7444274512%_))) + (_%hd7444374516%_ (let () (declare (not safe)) - (##car _%e7349873568%_)))) - (_%__match9040690407%_ - _%e7348973616%_ - _%hd7349073620%_ - _%tl7349173623%_ - _%e7349873568%_ - _%hd7349973572%_ - _%tl7350073575%_))) + (##car _%e7444274512%_)))) + (_%__match9135391354%_ + _%e7443374560%_ + _%hd7443474564%_ + _%tl7443574567%_ + _%e7444274512%_ + _%hd7444374516%_ + _%tl7444474519%_))) (let () (declare (not safe)) - (_%g7348273551%_)))))))) - (if (gx#stx-pair? _%__stx9037590376%_) - (let ((_%e7348973616%_ - (gx#syntax-e _%__stx9037590376%_))) - (let ((_%tl7349173623%_ + (_%g7442674495%_)))))))) + (if (gx#stx-pair? _%__stx9132291323%_) + (let ((_%e7443374560%_ + (gx#syntax-e _%__stx9132291323%_))) + (let ((_%tl7443574567%_ (let () (declare (not safe)) - (##cdr _%e7348973616%_))) - (_%hd7349073620%_ + (##cdr _%e7443374560%_))) + (_%hd7443474564%_ (let () (declare (not safe)) - (##car _%e7348973616%_)))) - (_%__match9039490395%_ - _%e7348973616%_ - _%hd7349073620%_ - _%tl7349173623%_))) + (##car _%e7443374560%_)))) + (_%__match9134191342%_ + _%e7443374560%_ + _%hd7443474564%_ + _%tl7443574567%_))) (let () (declare (not safe)) - (_%g7348273551%_)))))))))) - (_%generate-class-method71824%_ - (lambda (_%method-id72130%_ - _%type-id72132%_ - _%impl72133%_ - _%rest72134%_) - (let* ((_%__stx9041190412%_ _%impl72133%_) - (_%g7213872202%_ + (_%g7442674495%_)))))))))) + (_%generate-class-method72901%_ + (lambda (_%method-id73100%_ + _%type-id73102%_ + _%impl73103%_ + _%rest73104%_) + (let* ((_%__stx9135891359%_ _%impl73103%_) + (_%g7310873172%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9041190412%_)))) - (let ((_%__kont9041490415%_ - (lambda (_%L73092%_ - _%L73094%_ - _%L73095%_ - _%L73096%_) - (let* ((_%g7312173129%_ - (lambda (_%g7312273125%_) + _%__stx9135891359%_)))) + (let ((_%__kont9136191362%_ + (lambda (_%g7311074040%_ + _%g7311174042%_ + _%g7311274043%_ + _%g7311374044%_) + (let* ((_%g7406974077%_ + (lambda (_%g7407074073%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7312273125%_))) - (_%g7312073452%_ - (lambda (_%g7312273133%_) - ((lambda (_%L73136%_) - (let* ((_%g7314873156%_ - (lambda (_%g7314973152%_) + _%g7407074073%_))) + (_%g7406874396%_ + (lambda (_%g7407074081%_) + ((lambda (_%g7407174084%_) + (let* ((_%g7409674104%_ + (lambda (_%g7409774100%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7314973152%_))) - (_%g7314773448%_ - (lambda (_%g7314973160%_) - ((lambda (_%L73163%_) - (let* ((_%g7317673193%_ + _%g7409774100%_))) + (_%g7409574392%_ + (lambda (_%g7409774108%_) + ((lambda (_%g7409874111%_) + (let* ((_%g7412474141%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7317773189%_) + (lambda (_%g7412574137%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7317773189%_))) - (_%g7317573436%_ - (lambda (_%g7317773197%_) - (if (gx#stx-pair/null? _%g7317773197%_) - (let ((_g91990_ + _%g7412574137%_))) + (_%g7412374380%_ + (lambda (_%g7412574145%_) + (if (gx#stx-pair/null? _%g7412574145%_) + (let ((_g92853_ (gx#syntax-split-splice - _%g7317773197%_ + _%g7412574145%_ '0))) (begin - (let ((_g91991_ + (let ((_g92854_ (let () (declare (not safe)) - (if (##values? _g91990_) - (##values-length _g91990_) + (if (##values? _g92853_) + (##values-length _g92853_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91991_ 2))) + (##fx= _g92854_ 2))) (error "Context expects 2 values" - _g91991_))) - (let ((_%target7317973200%_ + _g92854_))) + (let ((_%target7412774148%_ (let () (declare (not safe)) - (##values-ref _g91990_ 0))) - (_%tl7318173203%_ + (##values-ref _g92853_ 0))) + (_%tl7412974151%_ (let () (declare (not safe)) - (##values-ref _g91990_ 1)))) - (if (gx#stx-null? _%tl7318173203%_) - (letrec ((_%loop7318273206%_ - (lambda (_%hd7318073210%_ - _%body7318673213%_) + (##values-ref _g92853_ 1)))) + (if (gx#stx-null? _%tl7412974151%_) + (letrec ((_%loop7413074154%_ + (lambda (_%hd7412874158%_ + _%body7413474161%_) (if (gx#stx-pair? - _%hd7318073210%_) - (let ((_%e7318373216%_ + _%hd7412874158%_) + (let ((_%e7413174163%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd7318073210%_))) - (let ((_%lp-hd7318473220%_ + _%hd7412874158%_))) + (let ((_%lp-hd7413274167%_ (let () (declare (not safe)) - (##car _%e7318373216%_))) - (_%lp-tl7318573223%_ + (##car _%e7413174163%_))) + (_%lp-tl7413374170%_ (let () (declare (not safe)) - (##cdr _%e7318373216%_)))) - (_%loop7318273206%_ - _%lp-tl7318573223%_ - (cons _%lp-hd7318473220%_ _%body7318673213%_)))) - (let ((_%body7318773226%_ (reverse _%body7318673213%_))) - ((lambda (_%L73230%_) - (let* ((_%g7324773255%_ - (lambda (_%g7324873251%_) + (##cdr _%e7413174163%_)))) + (_%loop7413074154%_ + _%lp-tl7413374170%_ + (cons _%lp-hd7413274167%_ _%body7413474161%_)))) + (let ((_%body7413574173%_ (reverse _%body7413474161%_))) + ((lambda (_%g7412674176%_) + (let* ((_%g7419374201%_ + (lambda (_%g7419474197%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7324873251%_))) - (_%g7324673424%_ - (lambda (_%g7324873259%_) - ((lambda (_%L73262%_) - (let* ((_%g7327573292%_ - (lambda (_%g7327673288%_) + _%g7419474197%_))) + (_%g7419274368%_ + (lambda (_%g7419474205%_) + ((lambda (_%g7419574208%_) + (let* ((_%g7422174238%_ + (lambda (_%g7422274234%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7327673288%_))) - (_%g7327473420%_ - (lambda (_%g7327673296%_) + _%g7422274234%_))) + (_%g7422074364%_ + (lambda (_%g7422274242%_) (if (gx#stx-pair/null? - _%g7327673296%_) - (let ((_g91992_ + _%g7422274242%_) + (let ((_g92855_ (gx#syntax-split-splice - _%g7327673296%_ + _%g7422274242%_ '0))) (begin - (let ((_g91993_ + (let ((_g92856_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g91992_) - (##values-length _g91992_) + _g92855_) + (##values-length _g92855_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g91993_ 2))) - (error "Context expects 2 values" _g91993_))) + (if (not (let () (declare (not safe)) (##fx= _g92856_ 2))) + (error "Context expects 2 values" _g92856_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7327873299%_ + (let ((_%target7422474245%_ (let () (declare (not safe)) (##values-ref - _g91992_ + _g92855_ 0))) - (_%tl7328073302%_ + (_%tl7422674248%_ (let () (declare (not safe)) (##values-ref - _g91992_ + _g92855_ 1)))) (if (gx#stx-null? - _%tl7328073302%_) - (letrec ((_%loop7328173305%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7327973309%_ _%rest7328573312%_) - (if (gx#stx-pair? _%hd7327973309%_) - (let ((_%e7328273315%_ - (gx#syntax-e _%hd7327973309%_))) - (let ((_%lp-hd7328373319%_ + _%tl7422674248%_) + (letrec ((_%loop7422774251%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7422574255%_ _%rest7423174258%_) + (if (gx#stx-pair? _%hd7422574255%_) + (let ((_%e7422874260%_ + (gx#syntax-e _%hd7422574255%_))) + (let ((_%lp-hd7422974264%_ (let () (declare (not safe)) - (##car _%e7328273315%_))) - (_%lp-tl7328473322%_ + (##car _%e7422874260%_))) + (_%lp-tl7423074267%_ (let () (declare (not safe)) - (##cdr _%e7328273315%_)))) - (_%loop7328173305%_ - _%lp-tl7328473322%_ - (cons _%lp-hd7328373319%_ - _%rest7328573312%_)))) - (let ((_%rest7328673325%_ - (reverse _%rest7328573312%_))) - ((lambda (_%L73329%_) - (let* ((_%g7334673354%_ - (lambda (_%g7334773350%_) + (##cdr _%e7422874260%_)))) + (_%loop7422774251%_ + _%lp-tl7423074267%_ + (cons _%lp-hd7422974264%_ + _%rest7423174258%_)))) + (let ((_%rest7423274270%_ + (reverse _%rest7423174258%_))) + ((lambda (_%g7422374273%_) + (let* ((_%g7429074298%_ + (lambda (_%g7429174294%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7334773350%_))) - (_%g7334573416%_ - (lambda (_%g7334773358%_) - ((lambda (_%L73361%_) - (let* ((_%g7337473382%_ - (lambda (_%g7337573378%_) + _%g7429174294%_))) + (_%g7428974360%_ + (lambda (_%g7429174302%_) + ((lambda (_%g7429274305%_) + (let* ((_%g7431874326%_ + (lambda (_%g7431974322%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7337573378%_))) - (_%g7337373412%_ - (lambda (_%g7337573386%_) - ((lambda (_%L73389%_) + _%g7431974322%_))) + (_%g7431774356%_ + (lambda (_%g7431974330%_) + ((lambda (_%g7432074333%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method~) - (cons _%L73361%_ - (cons _%L73389%_ '()))) - (cons _%L73262%_ - (foldr (lambda (_%g7340373406%_ - _%g7340473409%_) - (cons _%g7340373406%_ - _%g7340473409%_)) + (cons _%g7429274305%_ + (cons _%g7432074333%_ '()))) + (cons _%g7419574208%_ + (foldr (lambda (_%g7434774350%_ + _%g7434874353%_) + (cons _%g7434774350%_ + _%g7434874353%_)) '() - _%L73329%_))))) - _%g7337573386%_)))) - (_%g7337373412%_ _%type-id72132%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7334773358%_)))) - (_%g7334573416%_ - _%method-id72130%_))) - _%rest7328673325%_)))))) - (_%loop7328173305%_ _%target7327873299%_ '())) - (_%g7327573292%_ _%g7327673296%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7327573292%_ - _%g7327673296%_))))) - (_%g7327473420%_ _%rest72134%_))) - _%g7324873259%_)))) - (_%g7324673424%_ + _%g7422374273%_))))) + _%g7431974330%_)))) + (_%g7431774356%_ _%type-id73102%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g7429174302%_)))) + (_%g7428974360%_ + _%method-id73100%_))) + _%rest7423274270%_)))))) + (_%loop7422774251%_ _%target7422474245%_ '())) + (_%g7422174238%_ _%g7422274242%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7422174238%_ + _%g7422274242%_))))) + (_%g7422074364%_ _%rest73104%_))) + _%g7419474205%_)))) + (_%g7419274368%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda/c) - (cons (cons _%L73163%_ _%L73094%_) - (foldr (lambda (_%g7342773430%_ - _%g7342873433%_) - (cons _%g7342773430%_ - _%g7342873433%_)) + (cons (cons _%g7409874111%_ _%g7311174042%_) + (foldr (lambda (_%g7437174374%_ + _%g7437274377%_) + (cons _%g7437174374%_ + _%g7437274377%_)) '() - _%L73230%_))) - (gx#stx-source _%stx71804%_))))) - _%body7318773226%_)))))) + _%g7412674176%_))) + (gx#stx-source _%stx72881%_))))) + _%body7413574173%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7318273206%_ - _%target7317973200%_ + (_%loop7413074154%_ + _%target7412774148%_ '())) - (_%g7317673193%_ _%g7317773197%_))))) - (_%g7317673193%_ _%g7317773197%_))))) - (_%g7317573436%_ - (_%method-body71816%_ - _%L73136%_ - (foldr (lambda (_%g7343973442%_ _%g7344073445%_) - (cons _%g7343973442%_ _%g7344073445%_)) + (_%g7412474141%_ _%g7412574145%_))))) + (_%g7412474141%_ _%g7412574145%_))))) + (_%g7412374380%_ + (_%method-body72893%_ + _%g7407174084%_ + (foldr (lambda (_%g7438374386%_ _%g7438474389%_) + (cons _%g7438374386%_ _%g7438474389%_)) '() - _%L73092%_) + _%g7311074040%_) '#f)))) - _%g7314973160%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7314773448%_ - (_%method-receiver71815%_ - _%L73095%_ - _%type-id72132%_)))) - _%g7312273133%_)))) - (_%g7312073452%_ - (_%lambda-receiver71817%_ _%L73095%_))))) - (_%__kont9041890419%_ - (lambda (_%L72473%_ - _%L72475%_ - _%L72476%_ - _%L72477%_) - (let* ((_%g7250672523%_ - (lambda (_%g7250772519%_) + _%g7409774108%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7409574392%_ + (_%method-receiver72892%_ + _%g7311274043%_ + _%type-id73102%_)))) + _%g7407074081%_)))) + (_%g7406874396%_ + (_%lambda-receiver72894%_ + _%g7311274043%_))))) + (_%__kont9136591366%_ + (lambda (_%g7313273433%_ + _%g7313373435%_ + _%g7313473436%_ + _%g7313573437%_) + (let* ((_%g7346673483%_ + (lambda (_%g7346773479%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7250772519%_))) - (_%g7250573013%_ - (lambda (_%g7250772527%_) + _%g7346773479%_))) + (_%g7346573963%_ + (lambda (_%g7346773487%_) (if (gx#stx-pair/null? - _%g7250772527%_) - (let ((_g91994_ + _%g7346773487%_) + (let ((_g92857_ (gx#syntax-split-splice - _%g7250772527%_ + _%g7346773487%_ '0))) (begin - (let ((_g91995_ + (let ((_g92858_ (let () (declare (not safe)) (if (##values? - _g91994_) + _g92857_) (##values-length - _g91994_) + _g92857_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91995_ + (##fx= _g92858_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g91995_))) + (error "Context expects 2 values" _g92858_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7250972530%_ + (let ((_%target7346973490%_ (let () (declare (not safe)) (##values-ref - _g91994_ + _g92857_ 0))) - (_%tl7251172533%_ + (_%tl7347173493%_ (let () (declare (not safe)) (##values-ref - _g91994_ + _g92857_ 1)))) (if (gx#stx-null? - _%tl7251172533%_) - (letrec ((_%loop7251272536%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7251072540%_ _%receiver7251672543%_) - (if (gx#stx-pair? _%hd7251072540%_) - (let ((_%e7251372546%_ - (gx#syntax-e _%hd7251072540%_))) - (let ((_%lp-hd7251472550%_ + _%tl7347173493%_) + (letrec ((_%loop7347273496%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7347073500%_ _%receiver7347673503%_) + (if (gx#stx-pair? _%hd7347073500%_) + (let ((_%e7347373505%_ + (gx#syntax-e _%hd7347073500%_))) + (let ((_%lp-hd7347473509%_ (let () (declare (not safe)) - (##car _%e7251372546%_))) - (_%lp-tl7251572553%_ + (##car _%e7347373505%_))) + (_%lp-tl7347573512%_ (let () (declare (not safe)) - (##cdr _%e7251372546%_)))) - (_%loop7251272536%_ - _%lp-tl7251572553%_ - (cons _%lp-hd7251472550%_ - _%receiver7251672543%_)))) - (let ((_%receiver7251772556%_ - (reverse _%receiver7251672543%_))) - ((lambda (_%L72560%_) - (let* ((_%g7257672602%_ - (lambda (_%g7257772598%_) + (##cdr _%e7347373505%_)))) + (_%loop7347273496%_ + _%lp-tl7347573512%_ + (cons _%lp-hd7347473509%_ + _%receiver7347673503%_)))) + (let ((_%receiver7347773515%_ + (reverse _%receiver7347673503%_))) + ((lambda (_%g7346873518%_) + (let* ((_%g7353473560%_ + (lambda (_%g7353573556%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7257772598%_))) - (_%g7257572977%_ - (lambda (_%g7257772606%_) + _%g7353573556%_))) + (_%g7353373927%_ + (lambda (_%g7353573564%_) (if (gx#stx-pair/null? - _%g7257772606%_) - (let ((_g91996_ + _%g7353573564%_) + (let ((_g92859_ (gx#syntax-split-splice - _%g7257772606%_ + _%g7353573564%_ '0))) (begin - (let ((_g91997_ + (let ((_g92860_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g91996_) - (##values-length _g91996_) + (if (##values? _g92859_) + (##values-length _g92859_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g91997_ 2))) - (error "Context expects 2 values" _g91997_))) - (let ((_%target7257972609%_ - (let () (declare (not safe)) (##values-ref _g91996_ 0))) - (_%tl7258172612%_ - (let () (declare (not safe)) (##values-ref _g91996_ 1)))) - (if (gx#stx-null? _%tl7258172612%_) - (letrec ((_%loop7258272615%_ - (lambda (_%hd7258072619%_ _%body7258672622%_) - (if (gx#stx-pair? _%hd7258072619%_) - (let ((_%e7258372625%_ - (gx#syntax-e _%hd7258072619%_))) - (let ((_%lp-hd7258472629%_ + (if (not (let () (declare (not safe)) (##fx= _g92860_ 2))) + (error "Context expects 2 values" _g92860_))) + (let ((_%target7353773567%_ + (let () (declare (not safe)) (##values-ref _g92859_ 0))) + (_%tl7353973570%_ + (let () (declare (not safe)) (##values-ref _g92859_ 1)))) + (if (gx#stx-null? _%tl7353973570%_) + (letrec ((_%loop7354073573%_ + (lambda (_%hd7353873577%_ _%body7354473580%_) + (if (gx#stx-pair? _%hd7353873577%_) + (let ((_%e7354173582%_ + (gx#syntax-e _%hd7353873577%_))) + (let ((_%lp-hd7354273586%_ (let () (declare (not safe)) - (##car _%e7258372625%_))) - (_%lp-tl7258572632%_ + (##car _%e7354173582%_))) + (_%lp-tl7354373589%_ (let () (declare (not safe)) - (##cdr _%e7258372625%_)))) + (##cdr _%e7354173582%_)))) (if (gx#stx-pair/null? - _%lp-hd7258472629%_) - (let ((_g91998_ + _%lp-hd7354273586%_) + (let ((_g92861_ (gx#syntax-split-splice - _%lp-hd7258472629%_ + _%lp-hd7354273586%_ '0))) (begin - (let ((_g91999_ + (let ((_g92862_ (let () (declare (not safe)) (if (##values? - _g91998_) + _g92861_) (##values-length - _g91998_) + _g92861_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g91999_ + (##fx= _g92862_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g91999_))) + (error "Context expects 2 values" _g92862_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7258872635%_ + (let ((_%target7354673592%_ (let () (declare (not safe)) (##values-ref - _g91998_ + _g92861_ 0))) - (_%tl7259072638%_ + (_%tl7354873595%_ (let () (declare (not safe)) (##values-ref - _g91998_ + _g92861_ 1)))) (if (gx#stx-null? - _%tl7259072638%_) - (letrec ((_%loop7259172641%_ - (lambda (_%hd7258972645%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body7259572648%_) - (if (gx#stx-pair? _%hd7258972645%_) - (let ((_%e7259272651%_ - (gx#syntax-e _%hd7258972645%_))) - (let ((_%lp-hd7259372655%_ + _%tl7354873595%_) + (letrec ((_%loop7354973598%_ + (lambda (_%hd7354773602%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body7355373605%_) + (if (gx#stx-pair? _%hd7354773602%_) + (let ((_%e7355073607%_ + (gx#syntax-e _%hd7354773602%_))) + (let ((_%lp-hd7355173611%_ (let () (declare (not safe)) - (##car _%e7259272651%_))) - (_%lp-tl7259472658%_ + (##car _%e7355073607%_))) + (_%lp-tl7355273614%_ (let () (declare (not safe)) - (##cdr _%e7259272651%_)))) - (_%loop7259172641%_ - _%lp-tl7259472658%_ - (cons _%lp-hd7259372655%_ - _%body7259572648%_)))) - (let ((_%body7259672661%_ - (reverse _%body7259572648%_))) - (_%loop7258272615%_ - _%lp-tl7258572632%_ - (cons _%body7259672661%_ - _%body7258672622%_))))))) - (_%loop7259172641%_ _%target7258872635%_ '())) - (_%g7257672602%_ _%g7257772606%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7257672602%_ - _%g7257772606%_)))) - (let ((_%body7258772665%_ - (reverse _%body7258672622%_))) - ((lambda (_%L72669%_) - (let* ((_%g7268672703%_ - (lambda (_%g7268772699%_) + (##cdr _%e7355073607%_)))) + (_%loop7354973598%_ + _%lp-tl7355273614%_ + (cons _%lp-hd7355173611%_ + _%body7355373605%_)))) + (let ((_%body7355473617%_ + (reverse _%body7355373605%_))) + (_%loop7354073573%_ + _%lp-tl7354373589%_ + (cons _%body7355473617%_ + _%body7354473580%_))))))) + (_%loop7354973598%_ _%target7354673592%_ '())) + (_%g7353473560%_ _%g7353573564%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7353473560%_ + _%g7353573564%_)))) + (let ((_%body7354573620%_ + (reverse _%body7354473580%_))) + ((lambda (_%g7353673623%_) + (let* ((_%g7364073657%_ + (lambda (_%g7364173653%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7268772699%_))) - (_%g7268572960%_ - (lambda (_%g7268772707%_) + _%g7364173653%_))) + (_%g7363973910%_ + (lambda (_%g7364173661%_) (if (gx#stx-pair/null? - _%g7268772707%_) - (let ((_g92000_ + _%g7364173661%_) + (let ((_g92863_ (gx#syntax-split-splice - _%g7268772707%_ + _%g7364173661%_ '0))) (begin - (let ((_g92001_ + (let ((_g92864_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g92000_) - (##values-length _g92000_) + (if (##values? _g92863_) + (##values-length _g92863_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g92001_ 2))) - (error "Context expects 2 values" _g92001_))) - (let ((_%target7268972710%_ + (if (not (let () (declare (not safe)) (##fx= _g92864_ 2))) + (error "Context expects 2 values" _g92864_))) + (let ((_%target7364373664%_ (let () (declare (not safe)) - (##values-ref _g92000_ 0))) - (_%tl7269172713%_ + (##values-ref _g92863_ 0))) + (_%tl7364573667%_ (let () (declare (not safe)) - (##values-ref _g92000_ 1)))) - (if (gx#stx-null? _%tl7269172713%_) - (letrec ((_%loop7269272716%_ - (lambda (_%hd7269072720%_ - _%self7269672723%_) - (if (gx#stx-pair? _%hd7269072720%_) - (let ((_%e7269372726%_ + (##values-ref _g92863_ 1)))) + (if (gx#stx-null? _%tl7364573667%_) + (letrec ((_%loop7364673670%_ + (lambda (_%hd7364473674%_ + _%self7365073677%_) + (if (gx#stx-pair? _%hd7364473674%_) + (let ((_%e7364773679%_ (gx#syntax-e - _%hd7269072720%_))) - (let ((_%lp-hd7269472730%_ + _%hd7364473674%_))) + (let ((_%lp-hd7364873683%_ (let () (declare (not safe)) - (##car _%e7269372726%_))) - (_%lp-tl7269572733%_ + (##car _%e7364773679%_))) + (_%lp-tl7364973686%_ (let () (declare (not safe)) - (##cdr _%e7269372726%_)))) - (_%loop7269272716%_ - _%lp-tl7269572733%_ - (cons _%lp-hd7269472730%_ - _%self7269672723%_)))) - (let ((_%self7269772736%_ - (reverse _%self7269672723%_))) - ((lambda (_%L72740%_) - (let* ((_%g7275772765%_ - (lambda (_%g7275872761%_) + (##cdr _%e7364773679%_)))) + (_%loop7364673670%_ + _%lp-tl7364973686%_ + (cons _%lp-hd7364873683%_ + _%self7365073677%_)))) + (let ((_%self7365173689%_ + (reverse _%self7365073677%_))) + ((lambda (_%g7364273692%_) + (let* ((_%g7370973717%_ + (lambda (_%g7371073713%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7275872761%_))) - (_%g7275672934%_ - (lambda (_%g7275872769%_) - ((lambda (_%L72772%_) - (let* ((_%g7278572802%_ + _%g7371073713%_))) + (_%g7370873884%_ + (lambda (_%g7371073721%_) + ((lambda (_%g7371173724%_) + (let* ((_%g7373773754%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7278672798%_) + (lambda (_%g7373873750%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7278672798%_))) - (_%g7278472930%_ - (lambda (_%g7278672806%_) - (if (gx#stx-pair/null? _%g7278672806%_) - (let ((_g92002_ + _%g7373873750%_))) + (_%g7373673880%_ + (lambda (_%g7373873758%_) + (if (gx#stx-pair/null? _%g7373873758%_) + (let ((_g92865_ (gx#syntax-split-splice - _%g7278672806%_ + _%g7373873758%_ '0))) (begin - (let ((_g92003_ + (let ((_g92866_ (let () (declare (not safe)) - (if (##values? _g92002_) - (##values-length _g92002_) + (if (##values? _g92865_) + (##values-length _g92865_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92003_ 2))) + (##fx= _g92866_ 2))) (error "Context expects 2 values" - _g92003_))) - (let ((_%target7278872809%_ + _g92866_))) + (let ((_%target7374073761%_ (let () (declare (not safe)) - (##values-ref _g92002_ 0))) - (_%tl7279072812%_ + (##values-ref _g92865_ 0))) + (_%tl7374273764%_ (let () (declare (not safe)) - (##values-ref _g92002_ 1)))) - (if (gx#stx-null? _%tl7279072812%_) - (letrec ((_%loop7279172815%_ - (lambda (_%hd7278972819%_ - _%rest7279572822%_) + (##values-ref _g92865_ 1)))) + (if (gx#stx-null? _%tl7374273764%_) + (letrec ((_%loop7374373767%_ + (lambda (_%hd7374173771%_ + _%rest7374773774%_) (if (gx#stx-pair? - _%hd7278972819%_) - (let ((_%e7279272825%_ + _%hd7374173771%_) + (let ((_%e7374473776%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd7278972819%_))) - (let ((_%lp-hd7279372829%_ + (gx#syntax-e _%hd7374173771%_))) + (let ((_%lp-hd7374573780%_ (let () (declare (not safe)) - (##car _%e7279272825%_))) - (_%lp-tl7279472832%_ + (##car _%e7374473776%_))) + (_%lp-tl7374673783%_ (let () (declare (not safe)) - (##cdr _%e7279272825%_)))) - (_%loop7279172815%_ - _%lp-tl7279472832%_ - (cons _%lp-hd7279372829%_ _%rest7279572822%_)))) - (let ((_%rest7279672835%_ (reverse _%rest7279572822%_))) - ((lambda (_%L72839%_) - (let* ((_%g7285672864%_ - (lambda (_%g7285772860%_) + (##cdr _%e7374473776%_)))) + (_%loop7374373767%_ + _%lp-tl7374673783%_ + (cons _%lp-hd7374573780%_ _%rest7374773774%_)))) + (let ((_%rest7374873786%_ (reverse _%rest7374773774%_))) + ((lambda (_%g7373973789%_) + (let* ((_%g7380673814%_ + (lambda (_%g7380773810%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7285772860%_))) - (_%g7285572926%_ - (lambda (_%g7285772868%_) - ((lambda (_%L72871%_) - (let* ((_%g7288472892%_ - (lambda (_%g7288572888%_) + _%g7380773810%_))) + (_%g7380573876%_ + (lambda (_%g7380773818%_) + ((lambda (_%g7380873821%_) + (let* ((_%g7383473842%_ + (lambda (_%g7383573838%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7288572888%_))) - (_%g7288372922%_ - (lambda (_%g7288572896%_) - ((lambda (_%L72899%_) + _%g7383573838%_))) + (_%g7383373872%_ + (lambda (_%g7383573846%_) + ((lambda (_%g7383673849%_) (cons (gx#datum->syntax '#f 'defmethod) @@ -7679,1891 +7744,1794 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@method~) - (cons _%L72871%_ (cons _%L72899%_ '()))) - (cons _%L72772%_ - (foldr (lambda (_%g7291372916%_ _%g7291472919%_) - (cons _%g7291372916%_ _%g7291472919%_)) + (cons _%g7380873821%_ (cons _%g7383673849%_ '()))) + (cons _%g7371173724%_ + (foldr (lambda (_%g7386373866%_ _%g7386473869%_) + (cons _%g7386373866%_ _%g7386473869%_)) '() - _%L72839%_))))) + _%g7373973789%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7288572896%_)))) - (_%g7288372922%_ _%type-id72132%_))) - _%g7285772868%_)))) - (_%g7285572926%_ _%method-id72130%_))) - _%rest7279672835%_)))))) + _%g7383573846%_)))) + (_%g7383373872%_ _%type-id73102%_))) + _%g7380773818%_)))) + (_%g7380573876%_ _%method-id73100%_))) + _%rest7374873786%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7279172815%_ - _%target7278872809%_ + (_%loop7374373767%_ + _%target7374073761%_ '())) - (_%g7278572802%_ - _%g7278672806%_))))) - (_%g7278572802%_ _%g7278672806%_))))) - (_%g7278472930%_ _%rest72134%_))) - _%g7275872769%_)))) + (_%g7373773754%_ + _%g7373873758%_))))) + (_%g7373773754%_ _%g7373873758%_))))) + (_%g7373673880%_ _%rest73104%_))) + _%g7371073721%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7275672934%_ + (_%g7370873884%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'case-lambda/c) (begin (gx#syntax-check-splice-targets - _%L72669%_ - _%L72475%_ - _%L72740%_) - (foldr (lambda (_%g7293772944%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7293872947%_ - _%g7293972949%_ - _%g7294072951%_) - (cons (cons (cons _%g7293972949%_ _%g7293872947%_) - (foldr (lambda (_%g7294172954%_ - _%g7294272957%_) - (cons _%g7294172954%_ - _%g7294272957%_)) + _%g7353673623%_ + _%g7313373435%_ + _%g7364273692%_) + (foldr (lambda (_%g7388773894%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7388873897%_ + _%g7388973899%_ + _%g7389073901%_) + (cons (cons (cons _%g7388973899%_ _%g7388873897%_) + (foldr (lambda (_%g7389173904%_ + _%g7389273907%_) + (cons _%g7389173904%_ + _%g7389273907%_)) '() - _%g7293772944%_)) - _%g7294072951%_)) + _%g7388773894%_)) + _%g7389073901%_)) '() - _%L72669%_ - _%L72475%_ - _%L72740%_))) + _%g7353673623%_ + _%g7313373435%_ + _%g7364273692%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _%stx71804%_))))) - _%self7269772736%_)))))) - (_%loop7269272716%_ _%target7268972710%_ '())) - (_%g7268672703%_ _%g7268772707%_))))) - (_%g7268672703%_ _%g7268772707%_))))) + _%stx72881%_))))) + _%self7365173689%_)))))) + (_%loop7364673670%_ _%target7364373664%_ '())) + (_%g7364073657%_ _%g7364173661%_))))) + (_%g7364073657%_ _%g7364173661%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7268572960%_ + (_%g7363973910%_ (gx#stx-map - (lambda (_%g7296372965%_) - (_%method-receiver71815%_ - _%g7296372965%_ - _%type-id72132%_)) - (foldr (lambda (_%g7296872971%_ - _%g7296972974%_) - (cons _%g7296872971%_ - _%g7296972974%_)) + (lambda (_%g7391373915%_) + (_%method-receiver72892%_ + _%g7391373915%_ + _%type-id73102%_)) + (foldr (lambda (_%g7391873921%_ + _%g7391973924%_) + (cons _%g7391873921%_ + _%g7391973924%_)) '() - _%L72476%_))))) - _%body7258772665%_)))))) - (_%loop7258272615%_ _%target7257972609%_ '())) - (_%g7257672602%_ _%g7257772606%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7257672602%_ - _%g7257772606%_))))) - (_%g7257572977%_ + _%g7313473436%_))))) + _%body7354573620%_)))))) + (_%loop7354073573%_ _%target7353773567%_ '())) + (_%g7353473560%_ _%g7353573564%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7353473560%_ + _%g7353573564%_))))) + (_%g7353373927%_ (gx#stx-map - (lambda (_%g7298072983%_ - _%g7298172986%_) - (_%method-body71816%_ - _%g7298072983%_ - _%g7298172986%_ + (lambda (_%g7393073933%_ + _%g7393173936%_) + (_%method-body72893%_ + _%g7393073933%_ + _%g7393173936%_ '#f)) - (foldr (lambda (_%g7298872991%_ - _%g7298972994%_) - (cons _%g7298872991%_ - _%g7298972994%_)) + (foldr (lambda (_%g7393873941%_ + _%g7393973944%_) + (cons _%g7393873941%_ + _%g7393973944%_)) '() - _%L72560%_) - (foldr (lambda (_%g7299673001%_ - _%g7299773004%_) - (cons (foldr (lambda (_%g7299873007%_ + _%g7346873518%_) + (foldr (lambda (_%g7394673951%_ + _%g7394773954%_) + (cons (foldr (lambda (_%g7394873957%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7299973010%_) - (cons _%g7299873007%_ _%g7299973010%_)) + _%g7394973960%_) + (cons _%g7394873957%_ _%g7394973960%_)) '() - _%g7299673001%_) - _%g7299773004%_)) + _%g7394673951%_) + _%g7394773954%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L72473%_))))) - _%receiver7251772556%_)))))) - (_%loop7251272536%_ _%target7250972530%_ '())) - (_%g7250672523%_ _%g7250772527%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7250672523%_ - _%g7250772527%_))))) - (_%g7250573013%_ + _%g7313273433%_))))) + _%receiver7347773515%_)))))) + (_%loop7347273496%_ _%target7346973490%_ '())) + (_%g7346673483%_ _%g7346773487%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7346673483%_ + _%g7346773487%_))))) + (_%g7346573963%_ (gx#stx-map - _%lambda-receiver71817%_ - (foldr (lambda (_%g7301673019%_ - _%g7301773022%_) - (cons _%g7301673019%_ - _%g7301773022%_)) + _%lambda-receiver72894%_ + (foldr (lambda (_%g7396673969%_ + _%g7396773972%_) + (cons _%g7396673969%_ + _%g7396773972%_)) '() - _%L72476%_)))))) - (_%__kont9042290423%_ + _%g7313473436%_)))))) + (_%__kont9136991370%_ (lambda () - (let* ((_%g7221372245%_ - (lambda (_%g7221472241%_) + (let* ((_%g7318373215%_ + (lambda (_%g7318473211%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7221472241%_))) - (_%g7221272364%_ - (lambda (_%g7221472249%_) - (if (gx#stx-pair? _%g7221472249%_) - (let ((_%e7221972252%_ + _%g7318473211%_))) + (_%g7318273332%_ + (lambda (_%g7318473219%_) + (if (gx#stx-pair? _%g7318473219%_) + (let ((_%e7318973222%_ (gx#syntax-e - _%g7221472249%_))) - (let ((_%hd7222072256%_ + _%g7318473219%_))) + (let ((_%hd7319073226%_ (let () (declare (not safe)) - (##car _%e7221972252%_))) - (_%tl7222172259%_ + (##car _%e7318973222%_))) + (_%tl7319173229%_ (let () (declare (not safe)) - (##cdr _%e7221972252%_)))) + (##cdr _%e7318973222%_)))) (if (gx#stx-pair? - _%tl7222172259%_) - (let ((_%e7222272262%_ + _%tl7319173229%_) + (let ((_%e7319273232%_ (gx#syntax-e - _%tl7222172259%_))) - (let ((_%hd7222372266%_ + _%tl7319173229%_))) + (let ((_%hd7319373236%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e7222272262%_))) - (_%tl7222472269%_ - (let () (declare (not safe)) (##cdr _%e7222272262%_)))) - (if (gx#stx-pair? _%tl7222472269%_) - (let ((_%e7222572272%_ (gx#syntax-e _%tl7222472269%_))) - (let ((_%hd7222672276%_ + (##car _%e7319273232%_))) + (_%tl7319473239%_ + (let () (declare (not safe)) (##cdr _%e7319273232%_)))) + (if (gx#stx-pair? _%tl7319473239%_) + (let ((_%e7319573242%_ (gx#syntax-e _%tl7319473239%_))) + (let ((_%hd7319673246%_ (let () (declare (not safe)) - (##car _%e7222572272%_))) - (_%tl7222772279%_ + (##car _%e7319573242%_))) + (_%tl7319773249%_ (let () (declare (not safe)) - (##cdr _%e7222572272%_)))) - (if (gx#stx-pair? _%tl7222772279%_) - (let ((_%e7222872282%_ - (gx#syntax-e _%tl7222772279%_))) - (let ((_%hd7222972286%_ + (##cdr _%e7319573242%_)))) + (if (gx#stx-pair? _%tl7319773249%_) + (let ((_%e7319873252%_ + (gx#syntax-e _%tl7319773249%_))) + (let ((_%hd7319973256%_ (let () (declare (not safe)) - (##car _%e7222872282%_))) - (_%tl7223072289%_ + (##car _%e7319873252%_))) + (_%tl7320073259%_ (let () (declare (not safe)) - (##cdr _%e7222872282%_)))) - (if (gx#stx-pair/null? _%hd7222972286%_) - (let ((_g92004_ + (##cdr _%e7319873252%_)))) + (if (gx#stx-pair/null? _%hd7319973256%_) + (let ((_g92867_ (gx#syntax-split-splice - _%hd7222972286%_ + _%hd7319973256%_ '0))) (begin - (let ((_g92005_ + (let ((_g92868_ (let () (declare (not safe)) - (if (##values? _g92004_) + (if (##values? _g92867_) (##values-length - _g92004_) + _g92867_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92005_ 2))) + (##fx= _g92868_ 2))) (error "Context expects 2 values" - _g92005_))) - (let ((_%target7223172292%_ + _g92868_))) + (let ((_%target7320173262%_ (let () (declare (not safe)) - (##values-ref _g92004_ 0))) - (_%tl7223372295%_ + (##values-ref _g92867_ 0))) + (_%tl7320373265%_ (let () (declare (not safe)) - (##values-ref _g92004_ 1)))) - (if (gx#stx-null? _%tl7223372295%_) - (letrec ((_%loop7223472298%_ - (lambda (_%hd7223272302%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rest7223872305%_) - (if (gx#stx-pair? _%hd7223272302%_) - (let ((_%e7223572308%_ (gx#syntax-e _%hd7223272302%_))) - (let ((_%lp-hd7223672312%_ + (##values-ref _g92867_ 1)))) + (if (gx#stx-null? _%tl7320373265%_) + (letrec ((_%loop7320473268%_ + (lambda (_%hd7320273272%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%rest7320873275%_) + (if (gx#stx-pair? _%hd7320273272%_) + (let ((_%e7320573277%_ (gx#syntax-e _%hd7320273272%_))) + (let ((_%lp-hd7320673281%_ (let () (declare (not safe)) - (##car _%e7223572308%_))) - (_%lp-tl7223772315%_ + (##car _%e7320573277%_))) + (_%lp-tl7320773284%_ (let () (declare (not safe)) - (##cdr _%e7223572308%_)))) - (_%loop7223472298%_ - _%lp-tl7223772315%_ - (cons _%lp-hd7223672312%_ _%rest7223872305%_)))) - (let ((_%rest7223972318%_ (reverse _%rest7223872305%_))) - (if (gx#stx-null? _%tl7223072289%_) - ((lambda (_%L72322%_ - _%L72324%_ - _%L72325%_ - _%L72326%_) + (##cdr _%e7320573277%_)))) + (_%loop7320473268%_ + _%lp-tl7320773284%_ + (cons _%lp-hd7320673281%_ _%rest7320873275%_)))) + (let ((_%rest7320973287%_ (reverse _%rest7320873275%_))) + (if (gx#stx-null? _%tl7320073259%_) + ((lambda (_%g7318573290%_ + _%g7318673292%_ + _%g7318773293%_ + _%g7318873294%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method~) - (cons _%L72326%_ - (cons _%L72325%_ '()))) - (cons _%L72324%_ - (foldr (lambda (_%g7235572358%_ + (cons _%g7318873294%_ + (cons _%g7318773293%_ + '()))) + (cons _%g7318673292%_ + (foldr (lambda (_%g7332373326%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7235672361%_) - (cons _%g7235572358%_ _%g7235672361%_)) + _%g7332473329%_) + (cons _%g7332373326%_ _%g7332473329%_)) '() - _%L72322%_))))) + _%g7318573290%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%rest7223972318%_ - _%hd7222672276%_ - _%hd7222372266%_ - _%hd7222072256%_) - (_%g7221372245%_ _%g7221472249%_))))))) + _%rest7320973287%_ + _%hd7319673246%_ + _%hd7319373236%_ + _%hd7319073226%_) + (_%g7318373215%_ _%g7318473219%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7223472298%_ - _%target7223172292%_ + (_%loop7320473268%_ + _%target7320173262%_ '())) - (_%g7221372245%_ - _%g7221472249%_))))) - (_%g7221372245%_ _%g7221472249%_)))) - (_%g7221372245%_ _%g7221472249%_)))) - (_%g7221372245%_ _%g7221472249%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7221372245%_ - _%g7221472249%_)))) - (_%g7221372245%_ - _%g7221472249%_))))) - (_%g7221272364%_ - (list _%method-id72130%_ - _%type-id72132%_ - _%impl72133%_ - _%rest72134%_)))))) - (let* ((_%g7213772368%_ - (lambda () (_%__kont9042290423%_))) - (_%__match9046490465%_ - (lambda (_%e7216672375%_ - _%hd7216772379%_ - _%tl7216872382%_ - _%__splice9042090421%_ - _%target7216972385%_ - _%tl7217172388%_) - (letrec ((_%loop7217272391%_ - (lambda (_%hd7217072395%_ - _%body7217672398%_ - _%args7217772400%_ - _%self7217872402%_) + (_%g7318373215%_ + _%g7318473219%_))))) + (_%g7318373215%_ _%g7318473219%_)))) + (_%g7318373215%_ _%g7318473219%_)))) + (_%g7318373215%_ _%g7318473219%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7318373215%_ + _%g7318473219%_)))) + (_%g7318373215%_ + _%g7318473219%_))))) + (_%g7318273332%_ + (list _%method-id73100%_ + _%type-id73102%_ + _%impl73103%_ + _%rest73104%_)))))) + (let* ((_%g7310773336%_ + (lambda () (_%__kont9136991370%_))) + (_%__match9141191412%_ + (lambda (_%e7313673343%_ + _%hd7313773347%_ + _%tl7313873350%_ + _%__splice9136791368%_ + _%target7313973353%_ + _%tl7314173356%_) + (letrec ((_%loop7314273359%_ + (lambda (_%hd7314073363%_ + _%body7314673366%_ + _%args7314773367%_ + _%self7314873368%_) (if (gx#stx-pair? - _%hd7217072395%_) - (let ((_%e7217372405%_ + _%hd7314073363%_) + (let ((_%e7314373370%_ (gx#syntax-e - _%hd7217072395%_))) - (let ((_%lp-tl7217572412%_ + _%hd7314073363%_))) + (let ((_%lp-tl7314573377%_ (let () (declare (not safe)) - (##cdr _%e7217372405%_))) - (_%lp-hd7217472409%_ + (##cdr _%e7314373370%_))) + (_%lp-hd7314473374%_ (let () (declare (not safe)) - (##car _%e7217372405%_)))) + (##car _%e7314373370%_)))) (if (gx#stx-pair? - _%lp-hd7217472409%_) - (let ((_%e7218272415%_ + _%lp-hd7314473374%_) + (let ((_%e7315273380%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%lp-hd7217472409%_))) - (let ((_%tl7218472422%_ + (gx#syntax-e _%lp-hd7314473374%_))) + (let ((_%tl7315473387%_ (let () (declare (not safe)) - (##cdr _%e7218272415%_))) - (_%hd7218372419%_ + (##cdr _%e7315273380%_))) + (_%hd7315373384%_ (let () (declare (not safe)) - (##car _%e7218272415%_)))) - (if (gx#stx-pair? _%hd7218372419%_) - (let ((_%e7218572425%_ - (gx#syntax-e _%hd7218372419%_))) - (let ((_%tl7218772432%_ + (##car _%e7315273380%_)))) + (if (gx#stx-pair? _%hd7315373384%_) + (let ((_%e7315573390%_ + (gx#syntax-e _%hd7315373384%_))) + (let ((_%tl7315773397%_ (let () (declare (not safe)) - (##cdr _%e7218572425%_))) - (_%hd7218672429%_ + (##cdr _%e7315573390%_))) + (_%hd7315673394%_ (let () (declare (not safe)) - (##car _%e7218572425%_)))) - (if (gx#stx-pair/null? _%tl7218472422%_) - (let ((_g92006_ + (##car _%e7315573390%_)))) + (if (gx#stx-pair/null? _%tl7315473387%_) + (let ((_g92869_ (gx#syntax-split-splice - _%tl7218472422%_ + _%tl7315473387%_ '0))) (begin - (let ((_g92007_ + (let ((_g92870_ (let () (declare (not safe)) - (if (##values? _g92006_) - (##values-length _g92006_) + (if (##values? _g92869_) + (##values-length _g92869_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92007_ 2))) + (##fx= _g92870_ 2))) (error "Context expects 2 values" - _g92007_))) - (let ((_%target7218872435%_ + _g92870_))) + (let ((_%target7315873400%_ (let () (declare (not safe)) - (##values-ref _g92006_ 0))) - (_%tl7219072438%_ + (##values-ref _g92869_ 0))) + (_%tl7316073403%_ (let () (declare (not safe)) - (##values-ref _g92006_ 1)))) - (if (gx#stx-null? _%tl7219072438%_) - (letrec ((_%loop7219172441%_ - (lambda (_%hd7218972445%_ - _%body7219572448%_) + (##values-ref _g92869_ 1)))) + (if (gx#stx-null? _%tl7316073403%_) + (letrec ((_%loop7316173406%_ + (lambda (_%hd7315973410%_ + _%body7316573413%_) (if (gx#stx-pair? - _%hd7218972445%_) - (let ((_%e7219272451%_ + _%hd7315973410%_) + (let ((_%e7316273415%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd7218972445%_))) - (let ((_%lp-hd7219372455%_ + (gx#syntax-e _%hd7315973410%_))) + (let ((_%lp-hd7316373419%_ (let () (declare (not safe)) - (##car _%e7219272451%_))) - (_%lp-tl7219472458%_ + (##car _%e7316273415%_))) + (_%lp-tl7316473422%_ (let () (declare (not safe)) - (##cdr _%e7219272451%_)))) - (_%loop7219172441%_ - _%lp-tl7219472458%_ - (cons _%lp-hd7219372455%_ _%body7219572448%_)))) - (let ((_%body7219672461%_ (reverse _%body7219572448%_))) - (_%loop7217272391%_ - _%lp-tl7217572412%_ - (cons _%body7219672461%_ _%body7217672398%_) - (cons _%tl7218772432%_ _%args7217772400%_) - (cons _%hd7218672429%_ _%self7217872402%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7219172441%_ - _%target7218872435%_ + (##cdr _%e7316273415%_)))) + (_%loop7316173406%_ + _%lp-tl7316473422%_ + (cons _%lp-hd7316373419%_ _%body7316573413%_)))) + (let ((_%body7316673425%_ (reverse _%body7316573413%_))) + (_%loop7314273359%_ + _%lp-tl7314573377%_ + (cons _%body7316673425%_ _%body7314673366%_) + (cons _%tl7315773397%_ _%args7314773367%_) + (cons _%hd7315673394%_ _%self7314873368%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7316173406%_ + _%target7315873400%_ '())) (let () (declare (not safe)) - (_%g7213772368%_)))))) - (_%__kont9042290423%_)))) - (_%__kont9042290423%_)))) - (_%__kont9042290423%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%self7218172470%_ - (reverse _%self7217872402%_)) - (_%args7218072468%_ - (reverse _%args7217772400%_)) - (_%body7217972465%_ - (reverse _%body7217672398%_))) - (let ((_%L72473%_ - _%body7217972465%_) - (_%L72475%_ - _%args7218072468%_) - (_%L72476%_ - _%self7218172470%_) - (_%L72477%_ - _%hd7216772379%_)) + (_%g7310773336%_)))))) + (_%__kont9136991370%_)))) + (_%__kont9136991370%_)))) + (_%__kont9136991370%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%self7315173431%_ + (reverse _%self7314873368%_)) + (_%args7315073430%_ + (reverse _%args7314773367%_)) + (_%body7314973428%_ + (reverse _%body7314673366%_))) + (let ((_%g7313273433%_ + _%body7314973428%_) + (_%g7313373435%_ + _%args7315073430%_) + (_%g7313473436%_ + _%self7315173431%_) + (_%g7313573437%_ + _%hd7313773347%_)) (if (and (gx#identifier? - _%L72477%_) + _%g7313573437%_) (or (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L72477%_ + _%g7313573437%_ (gx#datum->syntax '#f 'case-lambda/c)) (gx#free-identifier=? - _%L72477%_ + _%g7313573437%_ (gx#datum->syntax '#f 'case-lambda))) (gx#stx-map - _%method-receiver?71814%_ - (foldr (lambda (_%g7249772500%_ _%g7249872503%_) - (cons _%g7249772500%_ _%g7249872503%_)) + _%method-receiver?72891%_ + (foldr (lambda (_%g7345773460%_ _%g7345873463%_) + (cons _%g7345773460%_ _%g7345873463%_)) '() - _%L72476%_))) - (_%__kont9041890419%_ - _%L72473%_ - _%L72475%_ - _%L72476%_ - _%L72477%_) - (_%__kont9042290423%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7217272391%_ - _%target7216972385%_ + _%g7313473436%_))) + (_%__kont9136591366%_ + _%g7313273433%_ + _%g7313373435%_ + _%g7313473436%_ + _%g7313573437%_) + (_%__kont9136991370%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7314273359%_ + _%target7313973353%_ '() '() '())))) - (_%__match9045690457%_ - (lambda (_%e7216672375%_ - _%hd7216772379%_ - _%tl7216872382%_) - (if (gx#stx-pair/null? _%tl7216872382%_) - (let ((_%__splice9042090421%_ + (_%__match9140391404%_ + (lambda (_%e7313673343%_ + _%hd7313773347%_ + _%tl7313873350%_) + (if (gx#stx-pair/null? _%tl7313873350%_) + (let ((_%__splice9136791368%_ (gx#syntax-split-splice->vector - _%tl7216872382%_ + _%tl7313873350%_ '0))) - (let ((_%tl7217172388%_ + (let ((_%tl7314173356%_ (let () (declare (not safe)) (##vector-ref - _%__splice9042090421%_ + _%__splice9136791368%_ '1))) - (_%target7216972385%_ + (_%target7313973353%_ (let () (declare (not safe)) (##vector-ref - _%__splice9042090421%_ + _%__splice9136791368%_ '0)))) - (if (gx#stx-null? _%tl7217172388%_) - (_%__match9046490465%_ - _%e7216672375%_ - _%hd7216772379%_ - _%tl7216872382%_ - _%__splice9042090421%_ - _%target7216972385%_ - _%tl7217172388%_) - (_%__kont9042290423%_)))) - (_%__kont9042290423%_)))) - (_%__match9045090451%_ - (lambda (_%e7214473032%_ - _%hd7214573036%_ - _%tl7214673039%_ - _%e7214773042%_ - _%hd7214873046%_ - _%tl7214973049%_ - _%e7215073052%_ - _%hd7215173056%_ - _%tl7215273059%_ - _%__splice9041690417%_ - _%target7215373062%_ - _%tl7215573065%_) - (letrec ((_%loop7215673068%_ - (lambda (_%hd7215473072%_ - _%body7216073075%_) + (if (gx#stx-null? _%tl7314173356%_) + (_%__match9141191412%_ + _%e7313673343%_ + _%hd7313773347%_ + _%tl7313873350%_ + _%__splice9136791368%_ + _%target7313973353%_ + _%tl7314173356%_) + (_%__kont9136991370%_)))) + (_%__kont9136991370%_)))) + (_%__match9139791398%_ + (lambda (_%e7311473982%_ + _%hd7311573986%_ + _%tl7311673989%_ + _%e7311773992%_ + _%hd7311873996%_ + _%tl7311973999%_ + _%e7312074002%_ + _%hd7312174006%_ + _%tl7312274009%_ + _%__splice9136391364%_ + _%target7312374012%_ + _%tl7312574015%_) + (letrec ((_%loop7312674018%_ + (lambda (_%hd7312474022%_ + _%body7313074025%_) (if (gx#stx-pair? - _%hd7215473072%_) - (let ((_%e7215773078%_ + _%hd7312474022%_) + (let ((_%e7312774027%_ (gx#syntax-e - _%hd7215473072%_))) - (let ((_%lp-tl7215973085%_ + _%hd7312474022%_))) + (let ((_%lp-tl7312974034%_ (let () (declare (not safe)) - (##cdr _%e7215773078%_))) - (_%lp-hd7215873082%_ + (##cdr _%e7312774027%_))) + (_%lp-hd7312874031%_ (let () (declare (not safe)) - (##car _%e7215773078%_)))) - (_%loop7215673068%_ - _%lp-tl7215973085%_ - (cons _%lp-hd7215873082%_ - _%body7216073075%_)))) - (let ((_%body7216173088%_ - (reverse _%body7216073075%_))) - (let ((_%L73092%_ - _%body7216173088%_) - (_%L73094%_ - _%tl7215273059%_) - (_%L73095%_ - _%hd7215173056%_) - (_%L73096%_ - _%hd7214573036%_)) + (##car _%e7312774027%_)))) + (_%loop7312674018%_ + _%lp-tl7312974034%_ + (cons _%lp-hd7312874031%_ + _%body7313074025%_)))) + (let ((_%body7313174037%_ + (reverse _%body7313074025%_))) + (let ((_%g7311074040%_ + _%body7313174037%_) + (_%g7311174042%_ + _%tl7312274009%_) + (_%g7311274043%_ + _%hd7312174006%_) + (_%g7311374044%_ + _%hd7311573986%_)) (if (and (gx#identifier? - _%L73096%_) + _%g7311374044%_) (or (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L73096%_ + _%g7311374044%_ (gx#datum->syntax '#f 'lambda/c)) (gx#free-identifier=? - _%L73096%_ + _%g7311374044%_ (gx#datum->syntax '#f 'lambda))) - (_%method-receiver?71814%_ _%L73095%_)) - (_%__kont9041490415%_ - _%L73092%_ - _%L73094%_ - _%L73095%_ - _%L73096%_) - (_%__match9045690457%_ - _%e7214473032%_ - _%hd7214573036%_ - _%tl7214673039%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7215673068%_ - _%target7215373062%_ + (_%method-receiver?72891%_ _%g7311274043%_)) + (_%__kont9136191362%_ + _%g7311074040%_ + _%g7311174042%_ + _%g7311274043%_ + _%g7311374044%_) + (_%__match9140391404%_ + _%e7311473982%_ + _%hd7311573986%_ + _%tl7311673989%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7312674018%_ + _%target7312374012%_ '()))))) - (if (gx#stx-pair? _%__stx9041190412%_) - (let ((_%e7214473032%_ - (gx#syntax-e _%__stx9041190412%_))) - (let ((_%tl7214673039%_ + (if (gx#stx-pair? _%__stx9135891359%_) + (let ((_%e7311473982%_ + (gx#syntax-e _%__stx9135891359%_))) + (let ((_%tl7311673989%_ (let () (declare (not safe)) - (##cdr _%e7214473032%_))) - (_%hd7214573036%_ + (##cdr _%e7311473982%_))) + (_%hd7311573986%_ (let () (declare (not safe)) - (##car _%e7214473032%_)))) - (if (gx#stx-pair? _%tl7214673039%_) - (let ((_%e7214773042%_ - (gx#syntax-e _%tl7214673039%_))) - (let ((_%tl7214973049%_ + (##car _%e7311473982%_)))) + (if (gx#stx-pair? _%tl7311673989%_) + (let ((_%e7311773992%_ + (gx#syntax-e _%tl7311673989%_))) + (let ((_%tl7311973999%_ (let () (declare (not safe)) - (##cdr _%e7214773042%_))) - (_%hd7214873046%_ + (##cdr _%e7311773992%_))) + (_%hd7311873996%_ (let () (declare (not safe)) - (##car _%e7214773042%_)))) - (if (gx#stx-pair? _%hd7214873046%_) - (let ((_%e7215073052%_ + (##car _%e7311773992%_)))) + (if (gx#stx-pair? _%hd7311873996%_) + (let ((_%e7312074002%_ (gx#syntax-e - _%hd7214873046%_))) - (let ((_%tl7215273059%_ + _%hd7311873996%_))) + (let ((_%tl7312274009%_ (let () (declare (not safe)) - (##cdr _%e7215073052%_))) - (_%hd7215173056%_ + (##cdr _%e7312074002%_))) + (_%hd7312174006%_ (let () (declare (not safe)) - (##car _%e7215073052%_)))) + (##car _%e7312074002%_)))) (if (gx#stx-pair/null? - _%tl7214973049%_) - (let ((_%__splice9041690417%_ + _%tl7311973999%_) + (let ((_%__splice9136391364%_ (gx#syntax-split-splice->vector - _%tl7214973049%_ + _%tl7311973999%_ '0))) - (let ((_%tl7215573065%_ + (let ((_%tl7312574015%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice9041690417%_ '1))) - (_%target7215373062%_ + (##vector-ref _%__splice9136391364%_ '1))) + (_%target7312374012%_ (let () (declare (not safe)) - (##vector-ref _%__splice9041690417%_ '0)))) - (if (gx#stx-null? _%tl7215573065%_) - (_%__match9045090451%_ - _%e7214473032%_ - _%hd7214573036%_ - _%tl7214673039%_ - _%e7214773042%_ - _%hd7214873046%_ - _%tl7214973049%_ - _%e7215073052%_ - _%hd7215173056%_ - _%tl7215273059%_ - _%__splice9041690417%_ - _%target7215373062%_ - _%tl7215573065%_) - (if (gx#stx-pair/null? _%tl7214673039%_) - (let ((_%__splice9042090421%_ + (##vector-ref _%__splice9136391364%_ '0)))) + (if (gx#stx-null? _%tl7312574015%_) + (_%__match9139791398%_ + _%e7311473982%_ + _%hd7311573986%_ + _%tl7311673989%_ + _%e7311773992%_ + _%hd7311873996%_ + _%tl7311973999%_ + _%e7312074002%_ + _%hd7312174006%_ + _%tl7312274009%_ + _%__splice9136391364%_ + _%target7312374012%_ + _%tl7312574015%_) + (if (gx#stx-pair/null? _%tl7311673989%_) + (let ((_%__splice9136791368%_ (gx#syntax-split-splice->vector - _%tl7214673039%_ + _%tl7311673989%_ '0))) - (let ((_%tl7217172388%_ + (let ((_%tl7314173356%_ (let () (declare (not safe)) - (##vector-ref _%__splice9042090421%_ '1))) - (_%target7216972385%_ + (##vector-ref _%__splice9136791368%_ '1))) + (_%target7313973353%_ (let () (declare (not safe)) (##vector-ref - _%__splice9042090421%_ + _%__splice9136791368%_ '0)))) - (if (gx#stx-null? _%tl7217172388%_) - (_%__match9046490465%_ - _%e7214473032%_ - _%hd7214573036%_ - _%tl7214673039%_ - _%__splice9042090421%_ - _%target7216972385%_ - _%tl7217172388%_) - (_%__kont9042290423%_)))) - (_%__kont9042290423%_))))) - (if (gx#stx-pair/null? _%tl7214673039%_) - (let ((_%__splice9042090421%_ - (gx#syntax-split-splice->vector _%tl7214673039%_ '0))) - (let ((_%tl7217172388%_ + (if (gx#stx-null? _%tl7314173356%_) + (_%__match9141191412%_ + _%e7311473982%_ + _%hd7311573986%_ + _%tl7311673989%_ + _%__splice9136791368%_ + _%target7313973353%_ + _%tl7314173356%_) + (_%__kont9136991370%_)))) + (_%__kont9136991370%_))))) + (if (gx#stx-pair/null? _%tl7311673989%_) + (let ((_%__splice9136791368%_ + (gx#syntax-split-splice->vector _%tl7311673989%_ '0))) + (let ((_%tl7314173356%_ (let () (declare (not safe)) - (##vector-ref _%__splice9042090421%_ '1))) - (_%target7216972385%_ + (##vector-ref _%__splice9136791368%_ '1))) + (_%target7313973353%_ (let () (declare (not safe)) - (##vector-ref _%__splice9042090421%_ '0)))) - (if (gx#stx-null? _%tl7217172388%_) - (_%__match9046490465%_ - _%e7214473032%_ - _%hd7214573036%_ - _%tl7214673039%_ - _%__splice9042090421%_ - _%target7216972385%_ - _%tl7217172388%_) - (_%__kont9042290423%_)))) - (_%__kont9042290423%_))))) + (##vector-ref _%__splice9136791368%_ '0)))) + (if (gx#stx-null? _%tl7314173356%_) + (_%__match9141191412%_ + _%e7311473982%_ + _%hd7311573986%_ + _%tl7311673989%_ + _%__splice9136791368%_ + _%target7313973353%_ + _%tl7314173356%_) + (_%__kont9136991370%_)))) + (_%__kont9136991370%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl7214673039%_) - (let ((_%__splice9042090421%_ + _%tl7311673989%_) + (let ((_%__splice9136791368%_ (gx#syntax-split-splice->vector - _%tl7214673039%_ + _%tl7311673989%_ '0))) - (let ((_%tl7217172388%_ + (let ((_%tl7314173356%_ (let () (declare (not safe)) (##vector-ref - _%__splice9042090421%_ + _%__splice9136791368%_ '1))) - (_%target7216972385%_ + (_%target7313973353%_ (let () (declare (not safe)) (##vector-ref - _%__splice9042090421%_ + _%__splice9136791368%_ '0)))) (if (gx#stx-null? - _%tl7217172388%_) - (_%__match9046490465%_ - _%e7214473032%_ - _%hd7214573036%_ - _%tl7214673039%_ - _%__splice9042090421%_ - _%target7216972385%_ - _%tl7217172388%_) - (_%__kont9042290423%_)))) - (_%__kont9042290423%_))))) - (if (gx#stx-pair/null? _%tl7214673039%_) - (let ((_%__splice9042090421%_ + _%tl7314173356%_) + (_%__match9141191412%_ + _%e7311473982%_ + _%hd7311573986%_ + _%tl7311673989%_ + _%__splice9136791368%_ + _%target7313973353%_ + _%tl7314173356%_) + (_%__kont9136991370%_)))) + (_%__kont9136991370%_))))) + (if (gx#stx-pair/null? _%tl7311673989%_) + (let ((_%__splice9136791368%_ (gx#syntax-split-splice->vector - _%tl7214673039%_ + _%tl7311673989%_ '0))) - (let ((_%tl7217172388%_ + (let ((_%tl7314173356%_ (let () (declare (not safe)) (##vector-ref - _%__splice9042090421%_ + _%__splice9136791368%_ '1))) - (_%target7216972385%_ + (_%target7313973353%_ (let () (declare (not safe)) (##vector-ref - _%__splice9042090421%_ + _%__splice9136791368%_ '0)))) (if (gx#stx-null? - _%tl7217172388%_) - (_%__match9046490465%_ - _%e7214473032%_ - _%hd7214573036%_ - _%tl7214673039%_ - _%__splice9042090421%_ - _%target7216972385%_ - _%tl7217172388%_) - (_%__kont9042290423%_)))) - (_%__kont9042290423%_))))) - (_%__kont9042290423%_)))))))) - (let* ((_%__stx9047590476%_ _%stx71804%_) - (_%g7182771883%_ - (lambda () + _%tl7314173356%_) + (_%__match9141191412%_ + _%e7311473982%_ + _%hd7311573986%_ + _%tl7311673989%_ + _%__splice9136791368%_ + _%target7313973353%_ + _%tl7314173356%_) + (_%__kont9136991370%_)))) + (_%__kont9136991370%_))))) + (_%__kont9136991370%_)))))))) + (let* ((_%g7290372941%_ + (lambda (_%g7290472937%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9047590476%_)))) - (let ((_%__kont9047890479%_ - (lambda (_%L72071%_ _%L72073%_ _%L72074%_ _%L72075%_) - (if (let () - (declare (not safe)) - (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L72074%_)) - (if (_%interface-declaration?71807%_ - (foldr (lambda (_%g7210172104%_ _%g7210272107%_) - (cons _%g7210172104%_ _%g7210272107%_)) - '() - _%L72071%_)) - (_%generate-interface-method71810%_ - _%L72075%_ - _%L72074%_ - _%L72073%_ - (foldr (lambda (_%g7210972112%_ _%g7211072115%_) - (cons _%g7210972112%_ _%g7211072115%_)) - '() - _%L72071%_)) - (_%generate-class-method71824%_ - _%L72075%_ - _%L72074%_ - _%L72073%_ - (foldr (lambda (_%g7211772120%_ _%g7211872123%_) - (cons _%g7211772120%_ _%g7211872123%_)) - '() - _%L72071%_))) - (gx#raise-syntax-error - '#f - '"not defined as class" - _%stx71804%_ - _%L72074%_)))) - (_%__kont9048290483%_ - (lambda (_%L71940%_ _%L71942%_ _%L71943%_) - (let ((_%$e71965%_ (gx#resolve-identifier _%L71943%_))) - (if _%$e71965%_ - ((lambda (_%b71969%_) - (gx#raise-syntax-error - '#f - '"booooo!" - _%stx71804%_ - (gx#binding-id _%b71969%_))) - _%$e71965%_) - (gx#raise-syntax-error - '#f - '"booooo!" - _%stx71804%_)))))) - (let ((_%__match9053490535%_ - (lambda (_%e7183371981%_ - _%hd7183471985%_ - _%tl7183571988%_ - _%e7183671991%_ - _%hd7183771995%_ - _%tl7183871998%_ - _%e7183972001%_ - _%hd7184072005%_ - _%tl7184172008%_ - _%e7184272011%_ - _%hd7184372015%_ - _%tl7184472018%_ - _%e7184572021%_ - _%hd7184672025%_ - _%tl7184772028%_ - _%e7184872031%_ - _%hd7184972035%_ - _%tl7185072038%_ - _%__splice9048090481%_ - _%target7185172041%_ - _%tl7185372044%_) - (letrec ((_%loop7185472047%_ - (lambda (_%hd7185272051%_ _%rest7185872054%_) - (if (gx#stx-pair? _%hd7185272051%_) - (let ((_%e7185572057%_ - (gx#syntax-e _%hd7185272051%_))) - (let ((_%lp-tl7185772064%_ - (let () - (declare (not safe)) - (##cdr _%e7185572057%_))) - (_%lp-hd7185672061%_ - (let () - (declare (not safe)) - (##car _%e7185572057%_)))) - (_%loop7185472047%_ - _%lp-tl7185772064%_ - (cons _%lp-hd7185672061%_ - _%rest7185872054%_)))) - (let ((_%rest7185972067%_ - (reverse _%rest7185872054%_))) - (let ((_%L72071%_ _%rest7185972067%_) - (_%L72073%_ _%hd7184972035%_) - (_%L72074%_ _%hd7184672025%_) - (_%L72075%_ _%hd7184372015%_)) - (if (and (gx#identifier? _%L72075%_) - (gx#identifier? - _%L72074%_)) - (_%__kont9047890479%_ - _%L72071%_ - _%L72073%_ - _%L72074%_ - _%L72075%_) - (_%__kont9048290483%_ - _%hd7184672025%_ - _%hd7184372015%_ - _%hd7184072005%_)))))))) - (_%loop7185472047%_ _%target7185172041%_ '()))))) - (if (gx#stx-pair? _%__stx9047590476%_) - (let ((_%e7183371981%_ (gx#syntax-e _%__stx9047590476%_))) - (let ((_%tl7183571988%_ - (let () - (declare (not safe)) - (##cdr _%e7183371981%_))) - (_%hd7183471985%_ - (let () - (declare (not safe)) - (##car _%e7183371981%_)))) - (if (gx#stx-pair? _%tl7183571988%_) - (let ((_%e7183671991%_ - (gx#syntax-e _%tl7183571988%_))) - (let ((_%tl7183871998%_ - (let () - (declare (not safe)) - (##cdr _%e7183671991%_))) - (_%hd7183771995%_ - (let () - (declare (not safe)) - (##car _%e7183671991%_)))) - (if (gx#stx-pair? _%hd7183771995%_) - (let ((_%e7183972001%_ - (gx#syntax-e _%hd7183771995%_))) - (let ((_%tl7184172008%_ - (let () - (declare (not safe)) - (##cdr _%e7183972001%_))) - (_%hd7184072005%_ - (let () - (declare (not safe)) - (##car _%e7183972001%_)))) - (if (gx#identifier? _%hd7184072005%_) - (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92008_| - _%hd7184072005%_) - (if (gx#stx-pair? - _%tl7184172008%_) - (let ((_%e7184272011%_ - (gx#syntax-e - _%tl7184172008%_))) - (let ((_%tl7184472018%_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##cdr _%e7184272011%_))) - (_%hd7184372015%_ - (let () (declare (not safe)) (##car _%e7184272011%_)))) - (if (gx#stx-pair? _%tl7184472018%_) - (let ((_%e7184572021%_ (gx#syntax-e _%tl7184472018%_))) - (let ((_%tl7184772028%_ - (let () - (declare (not safe)) - (##cdr _%e7184572021%_))) - (_%hd7184672025%_ - (let () - (declare (not safe)) - (##car _%e7184572021%_)))) - (if (gx#stx-null? _%tl7184772028%_) - (if (gx#stx-pair? _%tl7183871998%_) - (let ((_%e7184872031%_ - (gx#syntax-e _%tl7183871998%_))) - (let ((_%tl7185072038%_ + _%g7290472937%_))) + (_%g7290273096%_ + (lambda (_%g7290472945%_) + (if (gx#stx-pair? _%g7290472945%_) + (let ((_%e7290972948%_ (gx#syntax-e _%g7290472945%_))) + (let ((_%hd7291072952%_ + (let () + (declare (not safe)) + (##car _%e7290972948%_))) + (_%tl7291172955%_ + (let () + (declare (not safe)) + (##cdr _%e7290972948%_)))) + (if (gx#stx-pair? _%tl7291172955%_) + (let ((_%e7291272958%_ + (gx#syntax-e _%tl7291172955%_))) + (let ((_%hd7291372962%_ (let () (declare (not safe)) - (##cdr _%e7184872031%_))) - (_%hd7184972035%_ + (##car _%e7291272958%_))) + (_%tl7291472965%_ (let () (declare (not safe)) - (##car _%e7184872031%_)))) - (if (gx#stx-pair/null? _%tl7185072038%_) - (let ((_%__splice9048090481%_ - (gx#syntax-split-splice->vector - _%tl7185072038%_ - '0))) - (let ((_%tl7185372044%_ + (##cdr _%e7291272958%_)))) + (if (gx#stx-pair? _%hd7291372962%_) + (let ((_%e7291572968%_ + (gx#syntax-e _%hd7291372962%_))) + (let ((_%hd7291672972%_ (let () (declare (not safe)) - (##vector-ref - _%__splice9048090481%_ - '1))) - (_%target7185172041%_ + (##car _%e7291572968%_))) + (_%tl7291772975%_ (let () (declare (not safe)) - (##vector-ref - _%__splice9048090481%_ - '0)))) - (if (gx#stx-null? _%tl7185372044%_) - (_%__match9053490535%_ - _%e7183371981%_ - _%hd7183471985%_ - _%tl7183571988%_ - _%e7183671991%_ - _%hd7183771995%_ - _%tl7183871998%_ - _%e7183972001%_ - _%hd7184072005%_ - _%tl7184172008%_ - _%e7184272011%_ - _%hd7184372015%_ - _%tl7184472018%_ - _%e7184572021%_ - _%hd7184672025%_ - _%tl7184772028%_ - _%e7184872031%_ - _%hd7184972035%_ - _%tl7185072038%_ - _%__splice9048090481%_ - _%target7185172041%_ - _%tl7185372044%_) - (_%__kont9048290483%_ - _%hd7184672025%_ - _%hd7184372015%_ - _%hd7184072005%_)))) - (_%__kont9048290483%_ - _%hd7184672025%_ - _%hd7184372015%_ - _%hd7184072005%_)))) - (_%__kont9048290483%_ - _%hd7184672025%_ - _%hd7184372015%_ - _%hd7184072005%_)) - (let () (declare (not safe)) (_%g7182771883%_))))) - (let () (declare (not safe)) (_%g7182771883%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g7182771883%_))) - (if (gx#stx-pair? - _%tl7184172008%_) - (let ((_%e7187271920%_ - (gx#syntax-e - _%tl7184172008%_))) - (let ((_%tl7187471927%_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##cdr _%e7187271920%_))) - (_%hd7187371924%_ - (let () (declare (not safe)) (##car _%e7187271920%_)))) - (if (gx#stx-pair? _%tl7187471927%_) - (let ((_%e7187571930%_ (gx#syntax-e _%tl7187471927%_))) - (let ((_%tl7187771937%_ - (let () - (declare (not safe)) - (##cdr _%e7187571930%_))) - (_%hd7187671934%_ - (let () - (declare (not safe)) - (##car _%e7187571930%_)))) - (if (gx#stx-null? _%tl7187771937%_) - (_%__kont9048290483%_ - _%hd7187671934%_ - _%hd7187371924%_ - _%hd7184072005%_) - (let () (declare (not safe)) (_%g7182771883%_))))) - (let () (declare (not safe)) (_%g7182771883%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g7182771883%_)))) - (if (gx#stx-pair? _%tl7184172008%_) - (let ((_%e7187271920%_ - (gx#syntax-e - _%tl7184172008%_))) - (let ((_%tl7187471927%_ - (let () - (declare (not safe)) - (##cdr _%e7187271920%_))) - (_%hd7187371924%_ - (let () - (declare (not safe)) - (##car _%e7187271920%_)))) + (##cdr _%e7291572968%_)))) + (if (gx#identifier? + _%hd7291672972%_) + (if (gx#free-identifier=? + |gerbil/core/contract~TypedDefinitions[1]#_g92871_| + _%hd7291672972%_) (if (gx#stx-pair? - _%tl7187471927%_) - (let ((_%e7187571930%_ + _%tl7291772975%_) + (let ((_%e7291872978%_ (gx#syntax-e - _%tl7187471927%_))) - (let ((_%tl7187771937%_ + _%tl7291772975%_))) + (let ((_%hd7291972982%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e7187571930%_))) - (_%hd7187671934%_ + (let () (declare (not safe)) (##car _%e7291872978%_))) + (_%tl7292072985%_ (let () (declare (not safe)) - (##car _%e7187571930%_)))) - (if (gx#stx-null? _%tl7187771937%_) - (_%__kont9048290483%_ - _%hd7187671934%_ - _%hd7187371924%_ - _%hd7184072005%_) - (let () (declare (not safe)) (_%g7182771883%_))))) - (let () (declare (not safe)) (_%g7182771883%_))))) + (##cdr _%e7291872978%_)))) + (if (gx#stx-pair? _%tl7292072985%_) + (let ((_%e7292172988%_ (gx#syntax-e _%tl7292072985%_))) + (let ((_%hd7292272992%_ + (let () + (declare (not safe)) + (##car _%e7292172988%_))) + (_%tl7292372995%_ + (let () + (declare (not safe)) + (##cdr _%e7292172988%_)))) + (if (gx#stx-null? _%tl7292372995%_) + (if (gx#stx-pair? _%tl7291472965%_) + (let ((_%e7292472998%_ + (gx#syntax-e _%tl7291472965%_))) + (let ((_%hd7292573002%_ + (let () + (declare (not safe)) + (##car _%e7292472998%_))) + (_%tl7292673005%_ + (let () + (declare (not safe)) + (##cdr _%e7292472998%_)))) + (if (gx#stx-pair/null? + _%tl7292673005%_) + (let ((_g92872_ + (gx#syntax-split-splice + _%tl7292673005%_ + '0))) + (begin + (let ((_g92873_ + (let () + (declare (not safe)) + (if (##values? + _g92872_) + (##values-length + _g92872_) + 1)))) + (if (not (let () + (declare + (not safe)) + (##fx= _g92873_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + 2))) + (error "Context expects 2 values" _g92873_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_%g7182771883%_)))))) - (let () - (declare (not safe)) - (_%g7182771883%_))))) - (let () (declare (not safe)) (_%g7182771883%_))))) - (let () (declare (not safe)) (_%g7182771883%_))))))))) + (let ((_%target7292773008%_ + (let () + (declare (not safe)) + (##values-ref + _g92872_ + 0))) + (_%tl7292973011%_ + (let () + (declare (not safe)) + (##values-ref + _g92872_ + 1)))) + (if (gx#stx-null? + _%tl7292973011%_) + (letrec ((_%loop7293073014%_ + (lambda (_%hd7292873018%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%rest7293473021%_) + (if (gx#stx-pair? _%hd7292873018%_) + (let ((_%e7293173023%_ + (gx#syntax-e _%hd7292873018%_))) + (let ((_%lp-hd7293273027%_ + (let () + (declare (not safe)) + (##car _%e7293173023%_))) + (_%lp-tl7293373030%_ + (let () + (declare (not safe)) + (##cdr _%e7293173023%_)))) + (_%loop7293073014%_ + _%lp-tl7293373030%_ + (cons _%lp-hd7293273027%_ + _%rest7293473021%_)))) + (let ((_%rest7293573033%_ + (reverse _%rest7293473021%_))) + ((lambda (_%g7290573036%_ + _%g7290673038%_ + _%g7290773039%_ + _%g7290873040%_) + (if (and (gx#identifier? _%g7290873040%_) + (gx#identifier? _%g7290773039%_)) + (let ((_%klass73069%_ + (gx#syntax-local-value + _%g7290773039%_))) + (if (let () + (declare (not safe)) + (class-instance? + gerbil/core/mop~MOP-2#runtime-type-info::t + _%klass73069%_)) + (if (_%interface-declaration?72884%_ + (foldr (lambda (_%g7307173074%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7307273077%_) + (cons _%g7307173074%_ _%g7307273077%_)) + '() + _%g7290573036%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%generate-interface-method72887%_ + _%g7290873040%_ + _%g7290773039%_ + _%g7290673038%_ + (foldr (lambda (_%g7307973082%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7308073085%_) + (cons _%g7307973082%_ _%g7308073085%_)) + '() + _%g7290573036%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%generate-class-method72901%_ + _%g7290873040%_ + _%g7290773039%_ + _%g7290673038%_ + (foldr (lambda (_%g7308773090%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7308873093%_) + (cons _%g7308773090%_ _%g7308873093%_)) + '() + _%g7290573036%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gx#raise-syntax-error + '#f + '"not a valid class type" + _%stx72881%_ + _%g7290773039%_ + _%klass73069%_))) + (_%g7290372941%_ _%g7290472945%_))) + _%rest7293573033%_ + _%hd7292573002%_ + _%hd7292272992%_ + _%hd7291972982%_)))))) + (_%loop7293073014%_ _%target7292773008%_ '())) + (_%g7290372941%_ _%g7290472945%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7290372941%_ + _%g7290472945%_)))) + (_%g7290372941%_ _%g7290472945%_)) + (_%g7290372941%_ _%g7290472945%_)))) + (_%g7290372941%_ _%g7290472945%_)))) + (_%g7290372941%_ _%g7290472945%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7290372941%_ + _%g7290472945%_)) + (_%g7290372941%_ + _%g7290472945%_)))) + (_%g7290372941%_ _%g7290472945%_)))) + (_%g7290372941%_ _%g7290472945%_)))) + (_%g7290372941%_ _%g7290472945%_))))) + (_%g7290273096%_ _%stx72881%_))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-receiver| - (lambda (_%stx75729%_) - (let* ((_%__stx9056990570%_ _%stx75729%_) - (_%g7573375773%_ + (lambda (_%stx76659%_) + (let* ((_%__stx9142291423%_ _%stx76659%_) + (_%g7666376703%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9056990570%_)))) - (let ((_%__kont9057290573%_ - (lambda (_%L75911%_ _%L75913%_) - (let* ((_%g7592875936%_ - (lambda (_%g7592975932%_) + _%__stx9142291423%_)))) + (let ((_%__kont9142591426%_ + (lambda (_%g7666576839%_ _%g7666676841%_) + (let* ((_%g7685676864%_ + (lambda (_%g7685776860%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7592975932%_))) - (_%g7592775955%_ - (lambda (_%g7592975940%_) - ((lambda (_%L75943%_) + _%g7685776860%_))) + (_%g7685576883%_ + (lambda (_%g7685776868%_) + ((lambda (_%g7685876871%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@receiver) - (cons _%L75943%_ '())) - (cons _%L75911%_ '())))) - _%g7592975940%_)))) - (_%g7592775955%_ (gx#core-quote-syntax _%L75913%_))))) - (_%__kont9057490575%_ - (lambda (_%L75840%_ _%L75842%_ _%L75843%_ _%L75844%_) - (cons _%L75844%_ - (cons _%L75843%_ + (cons _%g7685876871%_ '())) + (cons _%g7666576839%_ '())))) + _%g7685776868%_)))) + (_%g7685576883%_ + (gx#core-quote-syntax _%g7666676841%_))))) + (_%__kont9142791428%_ + (lambda (_%g7667676768%_ + _%g7667776770%_ + _%g7667876771%_ + _%g7667976772%_) + (cons _%g7667976772%_ + (cons _%g7667876771%_ (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (cons _%L75842%_ - (foldr (lambda (_%g7586575868%_ + (cons _%g7667776770%_ + (foldr (lambda (_%g7679376796%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7586675871%_) - (cons _%g7586575868%_ _%g7586675871%_)) + _%g7679476799%_) + (cons _%g7679376796%_ _%g7679476799%_)) '() - _%L75840%_)))) + _%g7667676768%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let ((_%__match9062490625%_ - (lambda (_%e7575075780%_ - _%hd7575175784%_ - _%tl7575275787%_ - _%e7575375790%_ - _%hd7575475794%_ - _%tl7575575797%_ - _%e7575675800%_ - _%hd7575775804%_ - _%tl7575875807%_ - _%__splice9057690577%_ - _%target7575975810%_ - _%tl7576175813%_) - (letrec ((_%loop7576275816%_ - (lambda (_%hd7576075820%_ _%rest7576675823%_) - (if (gx#stx-pair? _%hd7576075820%_) - (let ((_%e7576375826%_ - (gx#syntax-e _%hd7576075820%_))) - (let ((_%lp-tl7576575833%_ + (let ((_%__match9147791478%_ + (lambda (_%e7668076710%_ + _%hd7668176714%_ + _%tl7668276717%_ + _%e7668376720%_ + _%hd7668476724%_ + _%tl7668576727%_ + _%e7668676730%_ + _%hd7668776734%_ + _%tl7668876737%_ + _%__splice9142991430%_ + _%target7668976740%_ + _%tl7669176743%_) + (letrec ((_%loop7669276746%_ + (lambda (_%hd7669076750%_ _%rest7669676753%_) + (if (gx#stx-pair? _%hd7669076750%_) + (let ((_%e7669376755%_ + (gx#syntax-e _%hd7669076750%_))) + (let ((_%lp-tl7669576762%_ (let () (declare (not safe)) - (##cdr _%e7576375826%_))) - (_%lp-hd7576475830%_ + (##cdr _%e7669376755%_))) + (_%lp-hd7669476759%_ (let () (declare (not safe)) - (##car _%e7576375826%_)))) - (_%loop7576275816%_ - _%lp-tl7576575833%_ - (cons _%lp-hd7576475830%_ - _%rest7576675823%_)))) - (let ((_%rest7576775836%_ - (reverse _%rest7576675823%_))) - (_%__kont9057490575%_ - _%rest7576775836%_ - _%hd7575775804%_ - _%hd7575475794%_ - _%hd7575175784%_)))))) - (_%loop7576275816%_ _%target7575975810%_ '()))))) - (if (gx#stx-pair? _%__stx9056990570%_) - (let ((_%e7573775881%_ (gx#syntax-e _%__stx9056990570%_))) - (let ((_%tl7573975888%_ + (##car _%e7669376755%_)))) + (_%loop7669276746%_ + _%lp-tl7669576762%_ + (cons _%lp-hd7669476759%_ + _%rest7669676753%_)))) + (let ((_%rest7669776765%_ + (reverse _%rest7669676753%_))) + (_%__kont9142791428%_ + _%rest7669776765%_ + _%hd7668776734%_ + _%hd7668476724%_ + _%hd7668176714%_)))))) + (_%loop7669276746%_ _%target7668976740%_ '()))))) + (if (gx#stx-pair? _%__stx9142291423%_) + (let ((_%e7666776809%_ (gx#syntax-e _%__stx9142291423%_))) + (let ((_%tl7666976816%_ (let () (declare (not safe)) - (##cdr _%e7573775881%_))) - (_%hd7573875885%_ + (##cdr _%e7666776809%_))) + (_%hd7666876813%_ (let () (declare (not safe)) - (##car _%e7573775881%_)))) - (if (gx#stx-pair? _%tl7573975888%_) - (let ((_%e7574075891%_ - (gx#syntax-e _%tl7573975888%_))) - (let ((_%tl7574275898%_ + (##car _%e7666776809%_)))) + (if (gx#stx-pair? _%tl7666976816%_) + (let ((_%e7667076819%_ + (gx#syntax-e _%tl7666976816%_))) + (let ((_%tl7667276826%_ (let () (declare (not safe)) - (##cdr _%e7574075891%_))) - (_%hd7574175895%_ + (##cdr _%e7667076819%_))) + (_%hd7667176823%_ (let () (declare (not safe)) - (##car _%e7574075891%_)))) - (if (gx#stx-pair? _%tl7574275898%_) - (let ((_%e7574375901%_ - (gx#syntax-e _%tl7574275898%_))) - (let ((_%tl7574575908%_ + (##car _%e7667076819%_)))) + (if (gx#stx-pair? _%tl7667276826%_) + (let ((_%e7667376829%_ + (gx#syntax-e _%tl7667276826%_))) + (let ((_%tl7667576836%_ (let () (declare (not safe)) - (##cdr _%e7574375901%_))) - (_%hd7574475905%_ + (##cdr _%e7667376829%_))) + (_%hd7667476833%_ (let () (declare (not safe)) - (##car _%e7574375901%_)))) - (if (gx#stx-null? _%tl7574575908%_) - (_%__kont9057290573%_ - _%hd7574475905%_ - _%hd7574175895%_) + (##car _%e7667376829%_)))) + (if (gx#stx-null? _%tl7667576836%_) + (_%__kont9142591426%_ + _%hd7667476833%_ + _%hd7667176823%_) (if (gx#stx-pair/null? - _%tl7574575908%_) - (let ((_%__splice9057690577%_ + _%tl7667576836%_) + (let ((_%__splice9142991430%_ (gx#syntax-split-splice->vector - _%tl7574575908%_ + _%tl7667576836%_ '0))) - (let ((_%tl7576175813%_ + (let ((_%tl7669176743%_ (let () (declare (not safe)) (##vector-ref - _%__splice9057690577%_ + _%__splice9142991430%_ '1))) - (_%target7575975810%_ + (_%target7668976740%_ (let () (declare (not safe)) (##vector-ref - _%__splice9057690577%_ + _%__splice9142991430%_ '0)))) (if (gx#stx-null? - _%tl7576175813%_) - (_%__match9062490625%_ - _%e7573775881%_ - _%hd7573875885%_ - _%tl7573975888%_ - _%e7574075891%_ - _%hd7574175895%_ - _%tl7574275898%_ - _%e7574375901%_ - _%hd7574475905%_ - _%tl7574575908%_ - _%__splice9057690577%_ - _%target7575975810%_ - _%tl7576175813%_) + _%tl7669176743%_) + (_%__match9147791478%_ + _%e7666776809%_ + _%hd7666876813%_ + _%tl7666976816%_ + _%e7667076819%_ + _%hd7667176823%_ + _%tl7667276826%_ + _%e7667376829%_ + _%hd7667476833%_ + _%tl7667576836%_ + _%__splice9142991430%_ + _%target7668976740%_ + _%tl7669176743%_) (let () (declare (not safe)) - (_%g7573375773%_))))) + (_%g7666376703%_))))) (let () (declare (not safe)) - (_%g7573375773%_)))))) + (_%g7666376703%_)))))) (let () (declare (not safe)) - (_%g7573375773%_))))) - (let () (declare (not safe)) (_%g7573375773%_))))) - (let () (declare (not safe)) (_%g7573375773%_)))))))) + (_%g7666376703%_))))) + (let () (declare (not safe)) (_%g7666376703%_))))) + (let () (declare (not safe)) (_%g7666376703%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#let/c| - (lambda (_%stx75964%_) - (let* ((_%__stx9062790628%_ _%stx75964%_) - (_%g7596976065%_ + (lambda (_%stx76892%_) + (let* ((_%__stx9148091481%_ _%stx76892%_) + (_%g7689776993%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9062790628%_)))) - (let ((_%__kont9063090631%_ - (lambda (_%L76412%_ - _%L76414%_ - _%L76415%_ - _%L76416%_ - _%L76417%_) - (let* ((_%g7644776455%_ - (lambda (_%g7644876451%_) + _%__stx9148091481%_)))) + (let ((_%__kont9148391484%_ + (lambda (_%g7689977328%_ + _%g7690077330%_ + _%g7690177331%_ + _%g7690277332%_ + _%g7690377333%_) + (let* ((_%g7736377371%_ + (lambda (_%g7736477367%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7644876451%_))) - (_%g7644676482%_ - (lambda (_%g7644876459%_) - ((lambda (_%L76462%_) + _%g7736477367%_))) + (_%g7736277398%_ + (lambda (_%g7736477375%_) + ((lambda (_%g7736577378%_) (cons (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _%L76417%_ - (cons _%L76462%_ + (cons (cons (cons _%g7690377333%_ + (cons _%g7736577378%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L76417%_ '()))) - (foldr (lambda (_%g7647376476%_ - _%g7647476479%_) - (cons _%g7647376476%_ - _%g7647476479%_)) + (cons _%g7690377333%_ '()))) + (foldr (lambda (_%g7738977392%_ + _%g7739077395%_) + (cons _%g7738977392%_ + _%g7739077395%_)) '() - _%L76415%_))) - _%g7644876459%_)))) - (_%g7644676482%_ + _%g7690177331%_))) + _%g7736477375%_)))) + (_%g7736277398%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda/c) - (cons (foldr (lambda (_%g7648576490%_ - _%g7648676493%_) - (cons _%g7648576490%_ - _%g7648676493%_)) + (cons (foldr (lambda (_%g7740177406%_ + _%g7740277409%_) + (cons _%g7740177406%_ + _%g7740277409%_)) '() - _%L76416%_) + _%g7690277332%_) (cons (gx#datum->syntax '#f '=>) - (cons _%L76414%_ - (foldr (lambda (_%g7648776496%_ - _%g7648876499%_) - (cons _%g7648776496%_ - _%g7648876499%_)) + (cons _%g7690077330%_ + (foldr (lambda (_%g7740377412%_ + _%g7740477415%_) + (cons _%g7740377412%_ + _%g7740477415%_)) '() - _%L76412%_))))) - (gx#stx-source _%stx75964%_)))))) - (_%__kont9063690637%_ - (lambda (_%L76215%_ _%L76217%_ _%L76218%_ _%L76219%_) + _%g7689977328%_))))) + (gx#stx-source _%stx76892%_)))))) + (_%__kont9148991490%_ + (lambda (_%g7694577137%_ + _%g7694677139%_ + _%g7694777140%_ + _%g7694877141%_) (cons (gx#datum->syntax '#f 'let/c) - (cons _%L76219%_ + (cons _%g7694877141%_ (cons (begin (gx#syntax-check-splice-targets - _%L76217%_ - _%L76218%_) - (foldr (lambda (_%g7625176257%_ - _%g7625276260%_ - _%g7625376262%_) - (cons (cons _%g7625276260%_ - (cons _%g7625176257%_ + _%g7694677139%_ + _%g7694777140%_) + (foldr (lambda (_%g7717377179%_ + _%g7717477182%_ + _%g7717577184%_) + (cons (cons _%g7717477182%_ + (cons _%g7717377179%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%g7625376262%_)) + _%g7717577184%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L76217%_ - _%L76218%_)) + _%g7694677139%_ + _%g7694777140%_)) (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g7625476265%_ + (foldr (lambda (_%g7717677187%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7625576268%_) - (cons _%g7625476265%_ _%g7625576268%_)) + _%g7717777190%_) + (cons _%g7717677187%_ _%g7717777190%_)) '() - _%L76215%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont9064290643%_ - (lambda (_%L76082%_) - (cons (gx#datum->syntax '#f 'let) _%L76082%_)))) - (let* ((_%__match9069690697%_ - (lambda (_%e7602176101%_ - _%hd7602276105%_ - _%tl7602376108%_ - _%e7602476111%_ - _%hd7602576115%_ - _%tl7602676118%_ - _%e7602776121%_ - _%hd7602876125%_ - _%tl7602976128%_ - _%__splice9063890639%_ - _%target7603076131%_ - _%tl7603276134%_) - (letrec ((_%loop7603376137%_ - (lambda (_%hd7603176141%_ - _%init7603776144%_ - _%var7603876146%_) - (if (gx#stx-pair? _%hd7603176141%_) - (let ((_%e7603476149%_ - (gx#syntax-e _%hd7603176141%_))) - (let ((_%lp-tl7603676156%_ + _%g7694577137%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont9149591496%_ + (lambda (_%g7698477010%_) + (cons (gx#datum->syntax '#f 'let) _%g7698477010%_)))) + (let* ((_%__match9154991550%_ + (lambda (_%e7694977029%_ + _%hd7695077033%_ + _%tl7695177036%_ + _%e7695277039%_ + _%hd7695377043%_ + _%tl7695477046%_ + _%e7695577049%_ + _%hd7695677053%_ + _%tl7695777056%_ + _%__splice9149191492%_ + _%target7695877059%_ + _%tl7696077062%_) + (letrec ((_%loop7696177065%_ + (lambda (_%hd7695977069%_ + _%init7696577072%_ + _%var7696677073%_) + (if (gx#stx-pair? _%hd7695977069%_) + (let ((_%e7696277075%_ + (gx#syntax-e _%hd7695977069%_))) + (let ((_%lp-tl7696477082%_ (let () (declare (not safe)) - (##cdr _%e7603476149%_))) - (_%lp-hd7603576153%_ + (##cdr _%e7696277075%_))) + (_%lp-hd7696377079%_ (let () (declare (not safe)) - (##car _%e7603476149%_)))) + (##car _%e7696277075%_)))) (if (gx#stx-pair? - _%lp-hd7603576153%_) - (let ((_%e7604176159%_ + _%lp-hd7696377079%_) + (let ((_%e7696977085%_ (gx#syntax-e - _%lp-hd7603576153%_))) - (let ((_%tl7604376166%_ + _%lp-hd7696377079%_))) + (let ((_%tl7697177092%_ (let () (declare (not safe)) - (##cdr _%e7604176159%_))) - (_%hd7604276163%_ + (##cdr _%e7696977085%_))) + (_%hd7697077089%_ (let () (declare (not safe)) - (##car _%e7604176159%_)))) + (##car _%e7696977085%_)))) (if (gx#stx-pair? - _%tl7604376166%_) - (let ((_%e7604476169%_ + _%tl7697177092%_) + (let ((_%e7697277095%_ (gx#syntax-e - _%tl7604376166%_))) - (let ((_%tl7604676176%_ + _%tl7697177092%_))) + (let ((_%tl7697477102%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e7604476169%_))) - (_%hd7604576173%_ - (let () (declare (not safe)) (##car _%e7604476169%_)))) - (if (gx#stx-null? _%tl7604676176%_) - (_%loop7603376137%_ - _%lp-tl7603676156%_ - (cons _%hd7604576173%_ _%init7603776144%_) - (cons _%hd7604276163%_ _%var7603876146%_)) - (_%__kont9064290643%_ _%tl7602376108%_)))) - (_%__kont9064290643%_ _%tl7602376108%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont9064290643%_ - _%tl7602376108%_)))) - (let ((_%var7604076182%_ - (reverse _%var7603876146%_)) - (_%init7603976179%_ - (reverse _%init7603776144%_))) + (##cdr _%e7697277095%_))) + (_%hd7697377099%_ + (let () (declare (not safe)) (##car _%e7697277095%_)))) + (if (gx#stx-null? _%tl7697477102%_) + (_%loop7696177065%_ + _%lp-tl7696477082%_ + (cons _%hd7697377099%_ _%init7696577072%_) + (cons _%hd7697077089%_ _%var7696677073%_)) + (_%__kont9149591496%_ _%tl7695177036%_)))) + (_%__kont9149591496%_ _%tl7695177036%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont9149591496%_ + _%tl7695177036%_)))) + (let ((_%var7696877107%_ + (reverse _%var7696677073%_)) + (_%init7696777105%_ + (reverse _%init7696577072%_))) (if (gx#stx-pair/null? - _%tl7602976128%_) - (let ((_%__splice9064090641%_ + _%tl7695777056%_) + (let ((_%__splice9149391494%_ (gx#syntax-split-splice->vector - _%tl7602976128%_ + _%tl7695777056%_ '0))) - (let ((_%tl7604976188%_ + (let ((_%tl7697777112%_ (let () (declare (not safe)) (##vector-ref - _%__splice9064090641%_ + _%__splice9149391494%_ '1))) - (_%target7604776185%_ + (_%target7697577109%_ (let () (declare (not safe)) (##vector-ref - _%__splice9064090641%_ + _%__splice9149391494%_ '0)))) (if (gx#stx-null? - _%tl7604976188%_) - (letrec ((_%loop7605076191%_ - (lambda (_%hd7604876195%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body7605476198%_) - (if (gx#stx-pair? _%hd7604876195%_) - (let ((_%e7605176201%_ - (gx#syntax-e _%hd7604876195%_))) - (let ((_%lp-tl7605376208%_ + _%tl7697777112%_) + (letrec ((_%loop7697877115%_ + (lambda (_%hd7697677119%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body7698277122%_) + (if (gx#stx-pair? _%hd7697677119%_) + (let ((_%e7697977124%_ + (gx#syntax-e _%hd7697677119%_))) + (let ((_%lp-tl7698177131%_ (let () (declare (not safe)) - (##cdr _%e7605176201%_))) - (_%lp-hd7605276205%_ + (##cdr _%e7697977124%_))) + (_%lp-hd7698077128%_ (let () (declare (not safe)) - (##car _%e7605176201%_)))) - (_%loop7605076191%_ - _%lp-tl7605376208%_ - (cons _%lp-hd7605276205%_ - _%body7605476198%_)))) - (let ((_%body7605576211%_ - (reverse _%body7605476198%_))) - (let ((_%L76215%_ _%body7605576211%_) - (_%L76217%_ _%init7603976179%_) - (_%L76218%_ _%var7604076182%_) - (_%L76219%_ _%hd7602576115%_)) - (if (and (gx#identifier? _%L76219%_) + (##car _%e7697977124%_)))) + (_%loop7697877115%_ + _%lp-tl7698177131%_ + (cons _%lp-hd7698077128%_ + _%body7698277122%_)))) + (let ((_%body7698377134%_ + (reverse _%body7698277122%_))) + (let ((_%g7694577137%_ _%body7698377134%_) + (_%g7694677139%_ _%init7696777105%_) + (_%g7694777140%_ _%var7696877107%_) + (_%g7694877141%_ _%hd7695377043%_)) + (if (and (gx#identifier? _%g7694877141%_) (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - (foldr (lambda (_%g7624376246%_ - _%g7624476249%_) - (cons _%g7624376246%_ - _%g7624476249%_)) + (foldr (lambda (_%g7716577168%_ + _%g7716677171%_) + (cons _%g7716577168%_ + _%g7716677171%_)) '() - _%L76218%_))) - (_%__kont9063690637%_ - _%L76215%_ - _%L76217%_ - _%L76218%_ - _%L76219%_) - (_%__kont9064290643%_ - _%tl7602376108%_)))))))) - (_%loop7605076191%_ _%target7604776185%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont9064290643%_ - _%tl7602376108%_)))) - (_%__kont9064290643%_ - _%tl7602376108%_))))))) - (_%loop7603376137%_ _%target7603076131%_ '() '())))) - (_%__match9067090671%_ - (lambda (_%e7597676278%_ - _%hd7597776282%_ - _%tl7597876285%_ - _%e7597976288%_ - _%hd7598076292%_ - _%tl7598176295%_ - _%e7598276298%_ - _%hd7598376302%_ - _%tl7598476305%_ - _%__splice9063290633%_ - _%target7598576308%_ - _%tl7598776311%_) - (letrec ((_%loop7598876314%_ - (lambda (_%hd7598676318%_ - _%init7599276321%_ - _%var7599376323%_) - (if (gx#stx-pair? _%hd7598676318%_) - (let ((_%e7598976326%_ - (gx#syntax-e _%hd7598676318%_))) - (let ((_%lp-tl7599176333%_ + _%g7694777140%_))) + (_%__kont9148991490%_ + _%g7694577137%_ + _%g7694677139%_ + _%g7694777140%_ + _%g7694877141%_) + (_%__kont9149591496%_ + _%tl7695177036%_)))))))) + (_%loop7697877115%_ _%target7697577109%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont9149591496%_ + _%tl7695177036%_)))) + (_%__kont9149591496%_ + _%tl7695177036%_))))))) + (_%loop7696177065%_ _%target7695877059%_ '() '())))) + (_%__match9152391524%_ + (lambda (_%e7690477200%_ + _%hd7690577204%_ + _%tl7690677207%_ + _%e7690777210%_ + _%hd7690877214%_ + _%tl7690977217%_ + _%e7691077220%_ + _%hd7691177224%_ + _%tl7691277227%_ + _%__splice9148591486%_ + _%target7691377230%_ + _%tl7691577233%_) + (letrec ((_%loop7691677236%_ + (lambda (_%hd7691477240%_ + _%init7692077243%_ + _%var7692177244%_) + (if (gx#stx-pair? _%hd7691477240%_) + (let ((_%e7691777246%_ + (gx#syntax-e _%hd7691477240%_))) + (let ((_%lp-tl7691977253%_ (let () (declare (not safe)) - (##cdr _%e7598976326%_))) - (_%lp-hd7599076330%_ + (##cdr _%e7691777246%_))) + (_%lp-hd7691877250%_ (let () (declare (not safe)) - (##car _%e7598976326%_)))) + (##car _%e7691777246%_)))) (if (gx#stx-pair? - _%lp-hd7599076330%_) - (let ((_%e7599676336%_ + _%lp-hd7691877250%_) + (let ((_%e7692477256%_ (gx#syntax-e - _%lp-hd7599076330%_))) - (let ((_%tl7599876343%_ + _%lp-hd7691877250%_))) + (let ((_%tl7692677263%_ (let () (declare (not safe)) - (##cdr _%e7599676336%_))) - (_%hd7599776340%_ + (##cdr _%e7692477256%_))) + (_%hd7692577260%_ (let () (declare (not safe)) - (##car _%e7599676336%_)))) + (##car _%e7692477256%_)))) (if (gx#stx-pair? - _%tl7599876343%_) - (let ((_%e7599976346%_ + _%tl7692677263%_) + (let ((_%e7692777266%_ (gx#syntax-e - _%tl7599876343%_))) - (let ((_%tl7600176353%_ + _%tl7692677263%_))) + (let ((_%tl7692977273%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e7599976346%_))) - (_%hd7600076350%_ - (let () (declare (not safe)) (##car _%e7599976346%_)))) - (if (gx#stx-null? _%tl7600176353%_) - (_%loop7598876314%_ - _%lp-tl7599176333%_ - (cons _%hd7600076350%_ _%init7599276321%_) - (cons _%hd7599776340%_ _%var7599376323%_)) - (_%__match9069690697%_ - _%e7597676278%_ - _%hd7597776282%_ - _%tl7597876285%_ - _%e7597976288%_ - _%hd7598076292%_ - _%tl7598176295%_ - _%e7598276298%_ - _%hd7598376302%_ - _%tl7598476305%_ - _%__splice9063290633%_ - _%target7598576308%_ - _%tl7598776311%_)))) - (_%__match9069690697%_ - _%e7597676278%_ - _%hd7597776282%_ - _%tl7597876285%_ - _%e7597976288%_ - _%hd7598076292%_ - _%tl7598176295%_ - _%e7598276298%_ - _%hd7598376302%_ - _%tl7598476305%_ - _%__splice9063290633%_ - _%target7598576308%_ - _%tl7598776311%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match9069690697%_ - _%e7597676278%_ - _%hd7597776282%_ - _%tl7597876285%_ - _%e7597976288%_ - _%hd7598076292%_ - _%tl7598176295%_ - _%e7598276298%_ - _%hd7598376302%_ - _%tl7598476305%_ - _%__splice9063290633%_ - _%target7598576308%_ - _%tl7598776311%_)))) - (let ((_%var7599576359%_ - (reverse _%var7599376323%_)) - (_%init7599476356%_ - (reverse _%init7599276321%_))) - (if (gx#stx-pair? _%tl7598476305%_) - (let ((_%e7600276362%_ + (##cdr _%e7692777266%_))) + (_%hd7692877270%_ + (let () (declare (not safe)) (##car _%e7692777266%_)))) + (if (gx#stx-null? _%tl7692977273%_) + (_%loop7691677236%_ + _%lp-tl7691977253%_ + (cons _%hd7692877270%_ _%init7692077243%_) + (cons _%hd7692577260%_ _%var7692177244%_)) + (_%__match9154991550%_ + _%e7690477200%_ + _%hd7690577204%_ + _%tl7690677207%_ + _%e7690777210%_ + _%hd7690877214%_ + _%tl7690977217%_ + _%e7691077220%_ + _%hd7691177224%_ + _%tl7691277227%_ + _%__splice9148591486%_ + _%target7691377230%_ + _%tl7691577233%_)))) + (_%__match9154991550%_ + _%e7690477200%_ + _%hd7690577204%_ + _%tl7690677207%_ + _%e7690777210%_ + _%hd7690877214%_ + _%tl7690977217%_ + _%e7691077220%_ + _%hd7691177224%_ + _%tl7691277227%_ + _%__splice9148591486%_ + _%target7691377230%_ + _%tl7691577233%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match9154991550%_ + _%e7690477200%_ + _%hd7690577204%_ + _%tl7690677207%_ + _%e7690777210%_ + _%hd7690877214%_ + _%tl7690977217%_ + _%e7691077220%_ + _%hd7691177224%_ + _%tl7691277227%_ + _%__splice9148591486%_ + _%target7691377230%_ + _%tl7691577233%_)))) + (let ((_%var7692377278%_ + (reverse _%var7692177244%_)) + (_%init7692277276%_ + (reverse _%init7692077243%_))) + (if (gx#stx-pair? _%tl7691277227%_) + (let ((_%e7693077280%_ (gx#syntax-e - _%tl7598476305%_))) - (let ((_%tl7600476369%_ + _%tl7691277227%_))) + (let ((_%tl7693277287%_ (let () (declare (not safe)) - (##cdr _%e7600276362%_))) - (_%hd7600376366%_ + (##cdr _%e7693077280%_))) + (_%hd7693177284%_ (let () (declare (not safe)) - (##car _%e7600276362%_)))) + (##car _%e7693077280%_)))) (if (gx#identifier? - _%hd7600376366%_) + _%hd7693177284%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92009_| - _%hd7600376366%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92874_| + _%hd7693177284%_) (if (gx#stx-pair? - _%tl7600476369%_) - (let ((_%e7600576372%_ + _%tl7693277287%_) + (let ((_%e7693377290%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7600476369%_))) - (let ((_%tl7600776379%_ + (gx#syntax-e _%tl7693277287%_))) + (let ((_%tl7693577297%_ (let () (declare (not safe)) - (##cdr _%e7600576372%_))) - (_%hd7600676376%_ + (##cdr _%e7693377290%_))) + (_%hd7693477294%_ (let () (declare (not safe)) - (##car _%e7600576372%_)))) - (if (gx#stx-pair/null? _%tl7600776379%_) - (let ((_%__splice9063490635%_ + (##car _%e7693377290%_)))) + (if (gx#stx-pair/null? _%tl7693577297%_) + (let ((_%__splice9148791488%_ (gx#syntax-split-splice->vector - _%tl7600776379%_ + _%tl7693577297%_ '0))) - (let ((_%tl7601076385%_ + (let ((_%tl7693877303%_ (let () (declare (not safe)) (##vector-ref - _%__splice9063490635%_ + _%__splice9148791488%_ '1))) - (_%target7600876382%_ + (_%target7693677300%_ (let () (declare (not safe)) (##vector-ref - _%__splice9063490635%_ + _%__splice9148791488%_ '0)))) - (if (gx#stx-null? _%tl7601076385%_) - (letrec ((_%loop7601176388%_ - (lambda (_%hd7600976392%_ - _%body7601576395%_) + (if (gx#stx-null? _%tl7693877303%_) + (letrec ((_%loop7693977306%_ + (lambda (_%hd7693777310%_ + _%body7694377313%_) (if (gx#stx-pair? - _%hd7600976392%_) - (let ((_%e7601276398%_ + _%hd7693777310%_) + (let ((_%e7694077315%_ (gx#syntax-e - _%hd7600976392%_))) - (let ((_%lp-tl7601476405%_ + _%hd7693777310%_))) + (let ((_%lp-tl7694277322%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e7601276398%_))) - (_%lp-hd7601376402%_ - (let () (declare (not safe)) (##car _%e7601276398%_)))) - (_%loop7601176388%_ - _%lp-tl7601476405%_ - (cons _%lp-hd7601376402%_ _%body7601576395%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body7601676408%_ - (reverse _%body7601576395%_))) - (let ((_%L76412%_ - _%body7601676408%_) - (_%L76414%_ - _%hd7600676376%_) - (_%L76415%_ - _%init7599476356%_) - (_%L76416%_ - _%var7599576359%_) - (_%L76417%_ - _%hd7598076292%_)) + (##cdr _%e7694077315%_))) + (_%lp-hd7694177319%_ + (let () (declare (not safe)) (##car _%e7694077315%_)))) + (_%loop7693977306%_ + _%lp-tl7694277322%_ + (cons _%lp-hd7694177319%_ _%body7694377313%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%body7694477325%_ + (reverse _%body7694377313%_))) + (let ((_%g7689977328%_ + _%body7694477325%_) + (_%g7690077330%_ + _%hd7693477294%_) + (_%g7690177331%_ + _%init7692277276%_) + (_%g7690277332%_ + _%var7692377278%_) + (_%g7690377333%_ + _%hd7690877214%_)) (if (gx#identifier? - _%L76417%_) - (_%__kont9063090631%_ - _%L76412%_ - _%L76414%_ - _%L76415%_ - _%L76416%_ - _%L76417%_) - (_%__match9069690697%_ - _%e7597676278%_ - _%hd7597776282%_ - _%tl7597876285%_ - _%e7597976288%_ - _%hd7598076292%_ - _%tl7598176295%_ - _%e7598276298%_ - _%hd7598376302%_ - _%tl7598476305%_ - _%__splice9063290633%_ - _%target7598576308%_ - _%tl7598776311%_)))))))) - (_%loop7601176388%_ - _%target7600876382%_ + _%g7690377333%_) + (_%__kont9148391484%_ + _%g7689977328%_ + _%g7690077330%_ + _%g7690177331%_ + _%g7690277332%_ + _%g7690377333%_) + (_%__match9154991550%_ + _%e7690477200%_ + _%hd7690577204%_ + _%tl7690677207%_ + _%e7690777210%_ + _%hd7690877214%_ + _%tl7690977217%_ + _%e7691077220%_ + _%hd7691177224%_ + _%tl7691277227%_ + _%__splice9148591486%_ + _%target7691377230%_ + _%tl7691577233%_)))))))) + (_%loop7693977306%_ + _%target7693677300%_ '())) - (_%__match9069690697%_ - _%e7597676278%_ - _%hd7597776282%_ - _%tl7597876285%_ - _%e7597976288%_ - _%hd7598076292%_ - _%tl7598176295%_ - _%e7598276298%_ - _%hd7598376302%_ - _%tl7598476305%_ - _%__splice9063290633%_ - _%target7598576308%_ - _%tl7598776311%_)))) - (_%__match9069690697%_ - _%e7597676278%_ - _%hd7597776282%_ - _%tl7597876285%_ - _%e7597976288%_ - _%hd7598076292%_ - _%tl7598176295%_ - _%e7598276298%_ - _%hd7598376302%_ - _%tl7598476305%_ - _%__splice9063290633%_ - _%target7598576308%_ - _%tl7598776311%_)))) - (_%__match9069690697%_ - _%e7597676278%_ - _%hd7597776282%_ - _%tl7597876285%_ - _%e7597976288%_ - _%hd7598076292%_ - _%tl7598176295%_ - _%e7598276298%_ - _%hd7598376302%_ - _%tl7598476305%_ - _%__splice9063290633%_ - _%target7598576308%_ - _%tl7598776311%_)) - (_%__match9069690697%_ - _%e7597676278%_ - _%hd7597776282%_ - _%tl7597876285%_ - _%e7597976288%_ - _%hd7598076292%_ - _%tl7598176295%_ - _%e7598276298%_ - _%hd7598376302%_ - _%tl7598476305%_ - _%__splice9063290633%_ - _%target7598576308%_ - _%tl7598776311%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match9069690697%_ - _%e7597676278%_ - _%hd7597776282%_ - _%tl7597876285%_ - _%e7597976288%_ - _%hd7598076292%_ - _%tl7598176295%_ - _%e7598276298%_ - _%hd7598376302%_ - _%tl7598476305%_ - _%__splice9063290633%_ - _%target7598576308%_ - _%tl7598776311%_)))) - (_%__match9069690697%_ - _%e7597676278%_ - _%hd7597776282%_ - _%tl7597876285%_ - _%e7597976288%_ - _%hd7598076292%_ - _%tl7598176295%_ - _%e7598276298%_ - _%hd7598376302%_ - _%tl7598476305%_ - _%__splice9063290633%_ - _%target7598576308%_ - _%tl7598776311%_))))))) - (_%loop7598876314%_ _%target7598576308%_ '() '()))))) - (if (gx#stx-pair? _%__stx9062790628%_) - (let ((_%e7597676278%_ (gx#syntax-e _%__stx9062790628%_))) - (let ((_%tl7597876285%_ + (_%__match9154991550%_ + _%e7690477200%_ + _%hd7690577204%_ + _%tl7690677207%_ + _%e7690777210%_ + _%hd7690877214%_ + _%tl7690977217%_ + _%e7691077220%_ + _%hd7691177224%_ + _%tl7691277227%_ + _%__splice9148591486%_ + _%target7691377230%_ + _%tl7691577233%_)))) + (_%__match9154991550%_ + _%e7690477200%_ + _%hd7690577204%_ + _%tl7690677207%_ + _%e7690777210%_ + _%hd7690877214%_ + _%tl7690977217%_ + _%e7691077220%_ + _%hd7691177224%_ + _%tl7691277227%_ + _%__splice9148591486%_ + _%target7691377230%_ + _%tl7691577233%_)))) + (_%__match9154991550%_ + _%e7690477200%_ + _%hd7690577204%_ + _%tl7690677207%_ + _%e7690777210%_ + _%hd7690877214%_ + _%tl7690977217%_ + _%e7691077220%_ + _%hd7691177224%_ + _%tl7691277227%_ + _%__splice9148591486%_ + _%target7691377230%_ + _%tl7691577233%_)) + (_%__match9154991550%_ + _%e7690477200%_ + _%hd7690577204%_ + _%tl7690677207%_ + _%e7690777210%_ + _%hd7690877214%_ + _%tl7690977217%_ + _%e7691077220%_ + _%hd7691177224%_ + _%tl7691277227%_ + _%__splice9148591486%_ + _%target7691377230%_ + _%tl7691577233%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match9154991550%_ + _%e7690477200%_ + _%hd7690577204%_ + _%tl7690677207%_ + _%e7690777210%_ + _%hd7690877214%_ + _%tl7690977217%_ + _%e7691077220%_ + _%hd7691177224%_ + _%tl7691277227%_ + _%__splice9148591486%_ + _%target7691377230%_ + _%tl7691577233%_)))) + (_%__match9154991550%_ + _%e7690477200%_ + _%hd7690577204%_ + _%tl7690677207%_ + _%e7690777210%_ + _%hd7690877214%_ + _%tl7690977217%_ + _%e7691077220%_ + _%hd7691177224%_ + _%tl7691277227%_ + _%__splice9148591486%_ + _%target7691377230%_ + _%tl7691577233%_))))))) + (_%loop7691677236%_ _%target7691377230%_ '() '()))))) + (if (gx#stx-pair? _%__stx9148091481%_) + (let ((_%e7690477200%_ (gx#syntax-e _%__stx9148091481%_))) + (let ((_%tl7690677207%_ (let () (declare (not safe)) - (##cdr _%e7597676278%_))) - (_%hd7597776282%_ + (##cdr _%e7690477200%_))) + (_%hd7690577204%_ (let () (declare (not safe)) - (##car _%e7597676278%_)))) - (if (gx#stx-pair? _%tl7597876285%_) - (let ((_%e7597976288%_ - (gx#syntax-e _%tl7597876285%_))) - (let ((_%tl7598176295%_ + (##car _%e7690477200%_)))) + (if (gx#stx-pair? _%tl7690677207%_) + (let ((_%e7690777210%_ + (gx#syntax-e _%tl7690677207%_))) + (let ((_%tl7690977217%_ (let () (declare (not safe)) - (##cdr _%e7597976288%_))) - (_%hd7598076292%_ + (##cdr _%e7690777210%_))) + (_%hd7690877214%_ (let () (declare (not safe)) - (##car _%e7597976288%_)))) - (if (gx#stx-pair? _%tl7598176295%_) - (let ((_%e7598276298%_ - (gx#syntax-e _%tl7598176295%_))) - (let ((_%tl7598476305%_ + (##car _%e7690777210%_)))) + (if (gx#stx-pair? _%tl7690977217%_) + (let ((_%e7691077220%_ + (gx#syntax-e _%tl7690977217%_))) + (let ((_%tl7691277227%_ (let () (declare (not safe)) - (##cdr _%e7598276298%_))) - (_%hd7598376302%_ + (##cdr _%e7691077220%_))) + (_%hd7691177224%_ (let () (declare (not safe)) - (##car _%e7598276298%_)))) - (if (gx#stx-pair/null? _%hd7598376302%_) - (let ((_%__splice9063290633%_ + (##car _%e7691077220%_)))) + (if (gx#stx-pair/null? _%hd7691177224%_) + (let ((_%__splice9148591486%_ (gx#syntax-split-splice->vector - _%hd7598376302%_ + _%hd7691177224%_ '0))) - (let ((_%tl7598776311%_ + (let ((_%tl7691577233%_ (let () (declare (not safe)) (##vector-ref - _%__splice9063290633%_ + _%__splice9148591486%_ '1))) - (_%target7598576308%_ + (_%target7691377230%_ (let () (declare (not safe)) (##vector-ref - _%__splice9063290633%_ + _%__splice9148591486%_ '0)))) (if (gx#stx-null? - _%tl7598776311%_) - (_%__match9067090671%_ - _%e7597676278%_ - _%hd7597776282%_ - _%tl7597876285%_ - _%e7597976288%_ - _%hd7598076292%_ - _%tl7598176295%_ - _%e7598276298%_ - _%hd7598376302%_ - _%tl7598476305%_ - _%__splice9063290633%_ - _%target7598576308%_ - _%tl7598776311%_) - (_%__kont9064290643%_ - _%tl7597876285%_)))) - (_%__kont9064290643%_ - _%tl7597876285%_)))) - (_%__kont9064290643%_ _%tl7597876285%_)))) - (_%__kont9064290643%_ _%tl7597876285%_)))) - (let () (declare (not safe)) (_%g7596976065%_)))))))) + _%tl7691577233%_) + (_%__match9152391524%_ + _%e7690477200%_ + _%hd7690577204%_ + _%tl7690677207%_ + _%e7690777210%_ + _%hd7690877214%_ + _%tl7690977217%_ + _%e7691077220%_ + _%hd7691177224%_ + _%tl7691277227%_ + _%__splice9148591486%_ + _%target7691377230%_ + _%tl7691577233%_) + (_%__kont9149591496%_ + _%tl7690677207%_)))) + (_%__kont9149591496%_ + _%tl7690677207%_)))) + (_%__kont9149591496%_ _%tl7690677207%_)))) + (_%__kont9149591496%_ _%tl7690677207%_)))) + (let () (declare (not safe)) (_%g7689776993%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defclass/c| - (lambda (_%stx76510%_) - (letrec ((_%generate76513%_ - (lambda (_%hd83684%_ _%slots83686%_ _%body83687%_) - (let* ((_%__stx9070590706%_ _%hd83684%_) - (_%g8369183713%_ + (lambda (_%stx77426%_) + (letrec ((_%generate77429%_ + (lambda (_%hd84537%_ _%slots84539%_ _%body84540%_) + (let* ((_%__stx9155891559%_ _%hd84537%_) + (_%g8454484566%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9070590706%_)))) - (let ((_%__kont9070890709%_ - (lambda (_%L83789%_ _%L83791%_) - (_%generate-defclass76534%_ - _%L83791%_ - (foldr (lambda (_%g8381383816%_ - _%g8381483819%_) - (cons _%g8381383816%_ - _%g8381483819%_)) + _%__stx9155891559%_)))) + (let ((_%__kont9156191562%_ + (lambda (_%g8454684640%_ _%g8454784642%_) + (_%generate-defclass77450%_ + _%g8454784642%_ + (foldr (lambda (_%g8466484667%_ + _%g8466584670%_) + (cons _%g8466484667%_ + _%g8466584670%_)) '() - _%L83789%_) - _%slots83686%_ - _%body83687%_))) - (_%__kont9071290713%_ - (lambda (_%L83731%_) - (_%generate-defclass76534%_ - _%L83731%_ + _%g8454684640%_) + _%slots84539%_ + _%body84540%_))) + (_%__kont9156591566%_ + (lambda (_%g8456084584%_) + (_%generate-defclass77450%_ + _%g8456084584%_ '() - _%slots83686%_ - _%body83687%_))) - (_%__kont9071490715%_ + _%slots84539%_ + _%body84540%_))) + (_%__kont9156791568%_ (lambda () (gx#raise-syntax-error '#f '"bad class head" - _%stx76510%_ - _%hd83684%_)))) - (let* ((_%g8368983742%_ + _%stx77426%_ + _%hd84537%_)))) + (let* ((_%g8454284595%_ (lambda () - (let ((_%L83731%_ _%__stx9070590706%_)) - (if (gx#identifier? _%L83731%_) - (_%__kont9071290713%_ _%L83731%_) - (_%__kont9071490715%_))))) - (_%__match9073090731%_ - (lambda (_%e8369583749%_ - _%hd8369683753%_ - _%tl8369783756%_ - _%__splice9071090711%_ - _%target8369883759%_ - _%tl8370083762%_) - (letrec ((_%loop8370183765%_ - (lambda (_%hd8369983769%_ - _%super8370583772%_) + (let ((_%g8456084584%_ _%__stx9155891559%_)) + (if (gx#identifier? _%g8456084584%_) + (_%__kont9156591566%_ _%g8456084584%_) + (_%__kont9156791568%_))))) + (_%__match9158391584%_ + (lambda (_%e8454884602%_ + _%hd8454984606%_ + _%tl8455084609%_ + _%__splice9156391564%_ + _%target8455184612%_ + _%tl8455384615%_) + (letrec ((_%loop8455484618%_ + (lambda (_%hd8455284622%_ + _%super8455884625%_) (if (gx#stx-pair? - _%hd8369983769%_) - (let ((_%e8370283775%_ + _%hd8455284622%_) + (let ((_%e8455584627%_ (gx#syntax-e - _%hd8369983769%_))) - (let ((_%lp-tl8370483782%_ + _%hd8455284622%_))) + (let ((_%lp-tl8455784634%_ (let () (declare (not safe)) - (##cdr _%e8370283775%_))) - (_%lp-hd8370383779%_ + (##cdr _%e8455584627%_))) + (_%lp-hd8455684631%_ (let () (declare (not safe)) - (##car _%e8370283775%_)))) - (_%loop8370183765%_ - _%lp-tl8370483782%_ - (cons _%lp-hd8370383779%_ - _%super8370583772%_)))) - (let ((_%super8370683785%_ - (reverse _%super8370583772%_))) - (let ((_%L83789%_ - _%super8370683785%_) - (_%L83791%_ - _%hd8369683753%_)) + (##car _%e8455584627%_)))) + (_%loop8455484618%_ + _%lp-tl8455784634%_ + (cons _%lp-hd8455684631%_ + _%super8455884625%_)))) + (let ((_%super8455984637%_ + (reverse _%super8455884625%_))) + (let ((_%g8454684640%_ + _%super8455984637%_) + (_%g8454784642%_ + _%hd8454984606%_)) (if (and (gx#identifier? - _%L83791%_) + _%g8454784642%_) (andmap gerbil/core/mop~MOP-2#syntax-local-class-type-info? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g8380583808%_ _%g8380683811%_) - (cons _%g8380583808%_ _%g8380683811%_)) + (foldr (lambda (_%g8465684659%_ _%g8465784662%_) + (cons _%g8465684659%_ _%g8465784662%_)) '() - _%L83789%_))) - (_%__kont9070890709%_ _%L83789%_ _%L83791%_) - (let () (declare (not safe)) (_%g8368983742%_))))))))) + _%g8454684640%_))) + (_%__kont9156191562%_ _%g8454684640%_ _%g8454784642%_) + (let () (declare (not safe)) (_%g8454284595%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop8370183765%_ - _%target8369883759%_ + (_%loop8455484618%_ + _%target8455184612%_ '()))))) - (if (gx#stx-pair? _%__stx9070590706%_) - (let ((_%e8369583749%_ - (gx#syntax-e _%__stx9070590706%_))) - (let ((_%tl8369783756%_ + (if (gx#stx-pair? _%__stx9155891559%_) + (let ((_%e8454884602%_ + (gx#syntax-e _%__stx9155891559%_))) + (let ((_%tl8455084609%_ (let () (declare (not safe)) - (##cdr _%e8369583749%_))) - (_%hd8369683753%_ + (##cdr _%e8454884602%_))) + (_%hd8454984606%_ (let () (declare (not safe)) - (##car _%e8369583749%_)))) - (if (gx#stx-pair/null? _%tl8369783756%_) - (let ((_%__splice9071090711%_ + (##car _%e8454884602%_)))) + (if (gx#stx-pair/null? _%tl8455084609%_) + (let ((_%__splice9156391564%_ (gx#syntax-split-splice->vector - _%tl8369783756%_ + _%tl8455084609%_ '0))) - (let ((_%tl8370083762%_ + (let ((_%tl8455384615%_ (let () (declare (not safe)) (##vector-ref - _%__splice9071090711%_ + _%__splice9156391564%_ '1))) - (_%target8369883759%_ + (_%target8455184612%_ (let () (declare (not safe)) (##vector-ref - _%__splice9071090711%_ + _%__splice9156391564%_ '0)))) - (if (gx#stx-null? _%tl8370083762%_) - (_%__match9073090731%_ - _%e8369583749%_ - _%hd8369683753%_ - _%tl8369783756%_ - _%__splice9071090711%_ - _%target8369883759%_ - _%tl8370083762%_) + (if (gx#stx-null? _%tl8455384615%_) + (_%__match9158391584%_ + _%e8454884602%_ + _%hd8454984606%_ + _%tl8455084609%_ + _%__splice9156391564%_ + _%target8455184612%_ + _%tl8455384615%_) (let () (declare (not safe)) - (_%g8368983742%_))))) + (_%g8454284595%_))))) (let () (declare (not safe)) - (_%g8368983742%_))))) + (_%g8454284595%_))))) (let () (declare (not safe)) - (_%g8368983742%_)))))))) - (_%check-typedef-body!76515%_ - (lambda (_%body83675%_) - (letrec ((_%body-opt?83678%_ - (lambda (_%key83681%_) - (let ((__tmp92010 (gx#stx-e _%key83681%_))) + (_%g8454284595%_)))))))) + (_%check-typedef-body!77431%_ + (lambda (_%body84528%_) + (letrec ((_%body-opt?84531%_ + (lambda (_%key84534%_) + (let ((__tmp92875 (gx#stx-e _%key84534%_))) (declare (not safe)) - (##memq __tmp92010 + (##memq __tmp92875 '(id: struct: name: @@ -9572,108 +9540,111 @@ final: print: equal: - metaclass:)))))) - (if (gx#stx-plist? _%body83675%_ _%body-opt?83678%_) + metaclass: + acyclic:)))))) + (if (gx#stx-plist? _%body84528%_ _%body-opt?84531%_) '#!void (gx#raise-syntax-error '#f '"invalid defclass body" - _%stx76510%_ - _%body83675%_))))) - (_%slot-name76516%_ - (lambda (_%slot-spec83672%_) + _%stx77426%_ + _%body84528%_))))) + (_%slot-name77432%_ + (lambda (_%slot-spec84525%_) (gx#stx-e - (if (gx#identifier? _%slot-spec83672%_) - _%slot-spec83672%_ - (gx#stx-car _%slot-spec83672%_))))) - (_%slot-contract76517%_ - (lambda (_%slot-spec83553%_) - (let* ((_%__stx9073390734%_ _%slot-spec83553%_) - (_%g8355883579%_ + (if (gx#identifier? _%slot-spec84525%_) + _%slot-spec84525%_ + (gx#stx-car _%slot-spec84525%_))))) + (_%slot-contract77433%_ + (lambda (_%slot-spec84406%_) + (let* ((_%__stx9158691587%_ _%slot-spec84406%_) + (_%g8441184432%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9073390734%_)))) - (let ((_%__kont9073690737%_ (lambda (_%L83659%_) '#f)) - (_%__kont9073890739%_ - (lambda (_%L83637%_ _%L83639%_) '#f)) - (_%__kont9074090741%_ - (lambda (_%L83596%_ _%L83598%_) _%L83596%_))) - (let* ((_%g8355683652%_ + _%__stx9158691587%_)))) + (let ((_%__kont9158991590%_ + (lambda (_%g8441384512%_) '#f)) + (_%__kont9159191592%_ + (lambda (_%g8441484490%_ _%g8441584492%_) '#f)) + (_%__kont9159391594%_ + (lambda (_%g8442284449%_ _%g8442384451%_) + _%g8442284449%_))) + (let* ((_%g8440984505%_ (lambda () - (if (gx#stx-pair? _%__stx9073390734%_) - (let ((_%e8356383617%_ + (if (gx#stx-pair? _%__stx9158691587%_) + (let ((_%e8441684470%_ (gx#syntax-e - _%__stx9073390734%_))) - (let ((_%tl8356583624%_ + _%__stx9158691587%_))) + (let ((_%tl8441884477%_ (let () (declare (not safe)) - (##cdr _%e8356383617%_))) - (_%hd8356483621%_ + (##cdr _%e8441684470%_))) + (_%hd8441784474%_ (let () (declare (not safe)) - (##car _%e8356383617%_)))) - (if (gx#stx-pair? _%tl8356583624%_) - (let ((_%e8356683627%_ + (##car _%e8441684470%_)))) + (if (gx#stx-pair? _%tl8441884477%_) + (let ((_%e8441984480%_ (gx#syntax-e - _%tl8356583624%_))) - (let ((_%tl8356883634%_ + _%tl8441884477%_))) + (let ((_%tl8442184487%_ (let () (declare (not safe)) - (##cdr _%e8356683627%_))) - (_%hd8356783631%_ + (##cdr _%e8441984480%_))) + (_%hd8442084484%_ (let () (declare (not safe)) - (##car _%e8356683627%_)))) + (##car _%e8441984480%_)))) (if (gx#stx-null? - _%tl8356883634%_) - (_%__kont9073890739%_ - _%hd8356783631%_ - _%hd8356483621%_) - (_%__kont9074090741%_ - _%tl8356583624%_ - _%hd8356483621%_)))) - (_%__kont9074090741%_ - _%tl8356583624%_ - _%hd8356483621%_)))) + _%tl8442184487%_) + (_%__kont9159191592%_ + _%hd8442084484%_ + _%hd8441784474%_) + (_%__kont9159391594%_ + _%tl8441884477%_ + _%hd8441784474%_)))) + (_%__kont9159391594%_ + _%tl8441884477%_ + _%hd8441784474%_)))) (let () (declare (not safe)) - (_%g8355883579%_))))) - (_%L83659%_ _%__stx9073390734%_)) - (if (gx#identifier? _%L83659%_) - (_%__kont9073690737%_ _%L83659%_) + (_%g8441184432%_))))) + (_%g8441384512%_ _%__stx9158691587%_)) + (if (gx#identifier? _%g8441384512%_) + (_%__kont9158991590%_ _%g8441384512%_) (let () (declare (not safe)) - (_%g8355683652%_)))))))) - (_%slot-contract-normalize76518%_ - (lambda (_%slot-spec83542%_) - (let ((_%contract8354483546%_ - (_%slot-contract76517%_ _%slot-spec83542%_))) - (if _%contract8354483546%_ - (let ((_%contract83550%_ _%contract8354483546%_)) - (_%contract-normalize76519%_ _%contract83550%_)) + (_%g8440984505%_)))))))) + (_%slot-contract-normalize77434%_ + (lambda (_%slot-spec84396%_) + (let ((_%contract8439884400%_ + (_%slot-contract77433%_ _%slot-spec84396%_))) + (if _%contract8439884400%_ + (let ((_%contract84403%_ _%contract8439884400%_)) + (_%contract-normalize77435%_ _%contract84403%_)) '#f)))) - (_%contract-normalize76519%_ - (lambda (_%contract83287%_) - (let* ((_%__stx9076590766%_ _%contract83287%_) - (_%g8329383337%_ + (_%contract-normalize77435%_ + (lambda (_%contract84143%_) + (let* ((_%__stx9161891619%_ _%contract84143%_) + (_%g8414984193%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9076590766%_)))) - (let ((_%__kont9076890769%_ - (lambda (_%L83513%_) - (_%contract-normalize76519%_ - (foldr (lambda (_%g8352983532%_ - _%g8353083535%_) - (cons _%g8352983532%_ - _%g8353083535%_)) + _%__stx9161891619%_)))) + (let ((_%__kont9162191622%_ + (lambda (_%g8415184367%_) + (_%contract-normalize77435%_ + (foldr (lambda (_%g8438384386%_ + _%g8438484389%_) + (cons _%g8438384386%_ + _%g8438484389%_)) '() - _%L83513%_)))) - (_%__kont9077290773%_ - (lambda (_%L83437%_ _%L83439%_) + _%g8415184367%_)))) + (_%__kont9162591626%_ + (lambda (_%g8416784293%_ _%g8416884295%_) (cons (gx#datum->syntax '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax @@ -9683,4299 +9654,4319 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'not) - (cons _%L83439%_ '()))) + (cons _%g8416884295%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (gx#datum->syntax '#f ':?) - (cons _%L83437%_ '())))))) - (_%__kont9077490775%_ (lambda (_%L83375%_) '#f)) - (_%__kont9077690777%_ - (lambda () _%contract83287%_))) - (let* ((_%g8329083456%_ + (cons _%g8416784293%_ + '())))))) + (_%__kont9162791628%_ + (lambda (_%g8418184231%_) '#f)) + (_%__kont9162991630%_ + (lambda () _%contract84143%_))) + (let* ((_%g8414684312%_ (lambda () - (if (gx#stx-pair? _%__stx9076590766%_) - (let ((_%e8331383397%_ + (if (gx#stx-pair? _%__stx9161891619%_) + (let ((_%e8416984253%_ (gx#syntax-e - _%__stx9076590766%_))) - (let ((_%tl8331583404%_ + _%__stx9161891619%_))) + (let ((_%tl8417184260%_ (let () (declare (not safe)) - (##cdr _%e8331383397%_))) - (_%hd8331483401%_ + (##cdr _%e8416984253%_))) + (_%hd8417084257%_ (let () (declare (not safe)) - (##car _%e8331383397%_)))) - (if (gx#identifier? _%hd8331483401%_) + (##car _%e8416984253%_)))) + (if (gx#identifier? _%hd8417084257%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92011_| - _%hd8331483401%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92876_| + _%hd8417084257%_) (if (gx#stx-pair? - _%tl8331583404%_) - (let ((_%e8331683407%_ + _%tl8417184260%_) + (let ((_%e8417284263%_ (gx#syntax-e - _%tl8331583404%_))) - (let ((_%tl8331883414%_ + _%tl8417184260%_))) + (let ((_%tl8417484270%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e8331683407%_))) - (_%hd8331783411%_ - (let () (declare (not safe)) (##car _%e8331683407%_)))) - (if (gx#stx-pair? _%tl8331883414%_) - (let ((_%e8331983417%_ (gx#syntax-e _%tl8331883414%_))) - (let ((_%tl8332183424%_ + (##cdr _%e8417284263%_))) + (_%hd8417384267%_ + (let () (declare (not safe)) (##car _%e8417284263%_)))) + (if (gx#stx-pair? _%tl8417484270%_) + (let ((_%e8417584273%_ (gx#syntax-e _%tl8417484270%_))) + (let ((_%tl8417784280%_ (let () (declare (not safe)) - (##cdr _%e8331983417%_))) - (_%hd8332083421%_ + (##cdr _%e8417584273%_))) + (_%hd8417684277%_ (let () (declare (not safe)) - (##car _%e8331983417%_)))) - (if (gx#identifier? _%hd8332083421%_) + (##car _%e8417584273%_)))) + (if (gx#identifier? _%hd8417684277%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92012_| - _%hd8332083421%_) - (if (gx#stx-pair? _%tl8332183424%_) - (let ((_%e8332283427%_ - (gx#syntax-e _%tl8332183424%_))) - (let ((_%tl8332483434%_ + |gerbil/core/contract~TypedDefinitions[1]#_g92877_| + _%hd8417684277%_) + (if (gx#stx-pair? _%tl8417784280%_) + (let ((_%e8417884283%_ + (gx#syntax-e _%tl8417784280%_))) + (let ((_%tl8418084290%_ (let () (declare (not safe)) - (##cdr _%e8332283427%_))) - (_%hd8332383431%_ + (##cdr _%e8417884283%_))) + (_%hd8417984287%_ (let () (declare (not safe)) - (##car _%e8332283427%_)))) - (if (gx#stx-null? _%tl8332483434%_) - (_%__kont9077290773%_ - _%hd8332383431%_ - _%hd8331783411%_) - (_%__kont9077690777%_)))) - (_%__kont9077690777%_)) - (_%__kont9077690777%_)) - (_%__kont9077690777%_)))) - (_%__kont9077690777%_)))) - (_%__kont9077690777%_)) + (##car _%e8417884283%_)))) + (if (gx#stx-null? _%tl8418084290%_) + (_%__kont9162591626%_ + _%hd8417984287%_ + _%hd8417384267%_) + (_%__kont9162991630%_)))) + (_%__kont9162991630%_)) + (_%__kont9162991630%_)) + (_%__kont9162991630%_)))) + (_%__kont9162991630%_)))) + (_%__kont9162991630%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92013_| - _%hd8331483401%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92878_| + _%hd8417084257%_) (if (gx#stx-pair? - _%tl8331583404%_) - (let ((_%e8332983365%_ + _%tl8417184260%_) + (let ((_%e8418584221%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8331583404%_))) - (let ((_%tl8333183372%_ + (gx#syntax-e _%tl8417184260%_))) + (let ((_%tl8418784228%_ (let () (declare (not safe)) - (##cdr _%e8332983365%_))) - (_%hd8333083369%_ + (##cdr _%e8418584221%_))) + (_%hd8418684225%_ (let () (declare (not safe)) - (##car _%e8332983365%_)))) - (if (gx#stx-null? _%tl8333183372%_) - (_%__kont9077490775%_ _%hd8333083369%_) - (_%__kont9077690777%_)))) - (_%__kont9077690777%_)) - (_%__kont9077690777%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont9077690777%_)))) - (_%__kont9077690777%_)))) - (_%__match9080490805%_ - (lambda (_%__splice9077090771%_ - _%target8329683463%_ - _%tl8329883466%_ - _%e8330583469%_ - _%hd8330683473%_ - _%tl8330783476%_ - _%e8330883479%_ - _%hd8330983483%_ - _%tl8331083486%_) - (letrec ((_%loop8329983489%_ - (lambda (_%hd8329783493%_ - _%pre8330383496%_) + (##car _%e8418584221%_)))) + (if (gx#stx-null? _%tl8418784228%_) + (_%__kont9162791628%_ _%hd8418684225%_) + (_%__kont9162991630%_)))) + (_%__kont9162991630%_)) + (_%__kont9162991630%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont9162991630%_)))) + (_%__kont9162991630%_)))) + (_%__match9165791658%_ + (lambda (_%__splice9162391624%_ + _%target8415284319%_ + _%tl8415484322%_ + _%e8416184325%_ + _%hd8416284329%_ + _%tl8416384332%_ + _%e8416484335%_ + _%hd8416584339%_ + _%tl8416684342%_) + (letrec ((_%loop8415584345%_ + (lambda (_%hd8415384349%_ + _%pre8415984352%_) (if (gx#stx-pair? - _%hd8329783493%_) - (let ((_%e8330083499%_ + _%hd8415384349%_) + (let ((_%e8415684354%_ (gx#syntax-e - _%hd8329783493%_))) - (let ((_%lp-tl8330283506%_ + _%hd8415384349%_))) + (let ((_%lp-tl8415884361%_ (let () (declare (not safe)) - (##cdr _%e8330083499%_))) - (_%lp-hd8330183503%_ + (##cdr _%e8415684354%_))) + (_%lp-hd8415784358%_ (let () (declare (not safe)) - (##car _%e8330083499%_)))) - (_%loop8329983489%_ - _%lp-tl8330283506%_ - (cons _%lp-hd8330183503%_ - _%pre8330383496%_)))) - (let ((_%pre8330483509%_ - (reverse _%pre8330383496%_))) - (_%__kont9076890769%_ - _%pre8330483509%_)))))) - (_%loop8329983489%_ - _%target8329683463%_ + (##car _%e8415684354%_)))) + (_%loop8415584345%_ + _%lp-tl8415884361%_ + (cons _%lp-hd8415784358%_ + _%pre8415984352%_)))) + (let ((_%pre8416084364%_ + (reverse _%pre8415984352%_))) + (_%__kont9162191622%_ + _%pre8416084364%_)))))) + (_%loop8415584345%_ + _%target8415284319%_ '()))))) - (if (gx#stx-pair/null? _%__stx9076590766%_) - (if (let ((__tmp92014 - (gx#stx-length _%__stx9076590766%_))) + (if (gx#stx-pair/null? _%__stx9161891619%_) + (if (let ((__tmp92879 + (gx#stx-length _%__stx9161891619%_))) (declare (not safe)) - (##fx>= __tmp92014 '2)) - (let ((_%__splice9077090771%_ + (##fx>= __tmp92879 '2)) + (let ((_%__splice9162391624%_ (gx#syntax-split-splice->vector - _%__stx9076590766%_ + _%__stx9161891619%_ '2))) - (let ((_%tl8329883466%_ + (let ((_%tl8415484322%_ (let () (declare (not safe)) (##vector-ref - _%__splice9077090771%_ + _%__splice9162391624%_ '1))) - (_%target8329683463%_ + (_%target8415284319%_ (let () (declare (not safe)) (##vector-ref - _%__splice9077090771%_ + _%__splice9162391624%_ '0)))) - (if (gx#stx-pair? _%tl8329883466%_) - (let ((_%e8330583469%_ + (if (gx#stx-pair? _%tl8415484322%_) + (let ((_%e8416184325%_ (gx#syntax-e - _%tl8329883466%_))) - (let ((_%tl8330783476%_ + _%tl8415484322%_))) + (let ((_%tl8416384332%_ (let () (declare (not safe)) - (##cdr _%e8330583469%_))) - (_%hd8330683473%_ + (##cdr _%e8416184325%_))) + (_%hd8416284329%_ (let () (declare (not safe)) - (##car _%e8330583469%_)))) + (##car _%e8416184325%_)))) (if (gx#identifier? - _%hd8330683473%_) + _%hd8416284329%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92015_| - _%hd8330683473%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92880_| + _%hd8416284329%_) (if (gx#stx-pair? - _%tl8330783476%_) - (let ((_%e8330883479%_ + _%tl8416384332%_) + (let ((_%e8416484335%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8330783476%_))) - (let ((_%tl8331083486%_ + (gx#syntax-e _%tl8416384332%_))) + (let ((_%tl8416684342%_ (let () (declare (not safe)) - (##cdr _%e8330883479%_))) - (_%hd8330983483%_ + (##cdr _%e8416484335%_))) + (_%hd8416584339%_ (let () (declare (not safe)) - (##car _%e8330883479%_)))) - (if (gx#stx-null? _%tl8331083486%_) - (_%__match9080490805%_ - _%__splice9077090771%_ - _%target8329683463%_ - _%tl8329883466%_ - _%e8330583469%_ - _%hd8330683473%_ - _%tl8330783476%_ - _%e8330883479%_ - _%hd8330983483%_ - _%tl8331083486%_) - (let () (declare (not safe)) (_%g8329083456%_))))) - (let () (declare (not safe)) (_%g8329083456%_))) - (let () (declare (not safe)) (_%g8329083456%_))) + (##car _%e8416484335%_)))) + (if (gx#stx-null? _%tl8416684342%_) + (_%__match9165791658%_ + _%__splice9162391624%_ + _%target8415284319%_ + _%tl8415484322%_ + _%e8416184325%_ + _%hd8416284329%_ + _%tl8416384332%_ + _%e8416484335%_ + _%hd8416584339%_ + _%tl8416684342%_) + (let () (declare (not safe)) (_%g8414684312%_))))) + (let () (declare (not safe)) (_%g8414684312%_))) + (let () (declare (not safe)) (_%g8414684312%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8329083456%_))))) + (_%g8414684312%_))))) (let () (declare (not safe)) - (_%g8329083456%_))))) + (_%g8414684312%_))))) (let () (declare (not safe)) - (_%g8329083456%_))) + (_%g8414684312%_))) (let () (declare (not safe)) - (_%g8329083456%_)))))))) - (_%slot-contract-type76520%_ - (lambda (_%slot-spec83276%_) - (let ((_%contract8327883280%_ - (_%slot-contract76517%_ _%slot-spec83276%_))) - (if _%contract8327883280%_ - (let ((_%contract83284%_ _%contract8327883280%_)) - (_%contract-type76521%_ _%contract83284%_)) + (_%g8414684312%_)))))))) + (_%slot-contract-type77436%_ + (lambda (_%slot-spec84133%_) + (let ((_%contract8413584137%_ + (_%slot-contract77433%_ _%slot-spec84133%_))) + (if _%contract8413584137%_ + (let ((_%contract84140%_ _%contract8413584137%_)) + (_%contract-type77437%_ _%contract84140%_)) '#f)))) - (_%contract-type76521%_ - (lambda (_%contract83084%_) - (let* ((_%__stx9085990860%_ _%contract83084%_) - (_%g8308983121%_ + (_%contract-type77437%_ + (lambda (_%contract83941%_) + (let* ((_%__stx9171291713%_ _%contract83941%_) + (_%g8394683978%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9085990860%_)))) - (let ((_%__kont9086290863%_ - (lambda (_%L83243%_ _%L83245%_ _%L83246%_) - _%L83245%_)) - (_%__kont9086490865%_ - (lambda (_%L83179%_ - _%L83181%_ - _%L83182%_ - _%L83183%_) - _%L83181%_)) - (_%__kont9086690867%_ (lambda () '#f))) - (let* ((_%__match9090890909%_ - (lambda (_%e8310483139%_ - _%hd8310583143%_ - _%tl8310683146%_ - _%e8310783149%_ - _%hd8310883153%_ - _%tl8310983156%_ - _%e8311083159%_ - _%hd8311183163%_ - _%tl8311283166%_ - _%e8311383169%_ - _%hd8311483173%_ - _%tl8311583176%_) - (let ((_%L83179%_ _%tl8311583176%_) - (_%L83181%_ _%hd8311483173%_) - (_%L83182%_ _%hd8311183163%_) - (_%L83183%_ _%hd8310883153%_)) - (if (and (gx#identifier? _%L83182%_) + _%__stx9171291713%_)))) + (let ((_%__kont9171591716%_ + (lambda (_%g8394884100%_ + _%g8394984102%_ + _%g8395084103%_) + _%g8394984102%_)) + (_%__kont9171791718%_ + (lambda (_%g8395784036%_ + _%g8395884038%_ + _%g8395984039%_ + _%g8396084040%_) + _%g8395884038%_)) + (_%__kont9171991720%_ (lambda () '#f))) + (let* ((_%__match9176191762%_ + (lambda (_%e8396183996%_ + _%hd8396284000%_ + _%tl8396384003%_ + _%e8396484006%_ + _%hd8396584010%_ + _%tl8396684013%_ + _%e8396784016%_ + _%hd8396884020%_ + _%tl8396984023%_ + _%e8397084026%_ + _%hd8397184030%_ + _%tl8397284033%_) + (let ((_%g8395784036%_ _%tl8397284033%_) + (_%g8395884038%_ _%hd8397184030%_) + (_%g8395984039%_ _%hd8396884020%_) + (_%g8396084040%_ _%hd8396584010%_)) + (if (and (gx#identifier? _%g8395984039%_) (or (gx#free-identifier=? - _%L83182%_ + _%g8395984039%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L83182%_ + _%g8395984039%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L83182%_ + _%g8395984039%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L83182%_ + _%g8395984039%_ (gx#datum->syntax '#f '::-)))) - (_%__kont9086490865%_ - _%L83179%_ - _%L83181%_ - _%L83182%_ - _%L83183%_) - (_%__kont9086690867%_))))) - (_%__match9088090881%_ - (lambda (_%e8309483223%_ - _%hd8309583227%_ - _%tl8309683230%_ - _%e8309783233%_ - _%hd8309883237%_ - _%tl8309983240%_) - (let ((_%L83243%_ _%tl8309983240%_) - (_%L83245%_ _%hd8309883237%_) - (_%L83246%_ _%hd8309583227%_)) - (if (and (gx#identifier? _%L83246%_) + (_%__kont9171791718%_ + _%g8395784036%_ + _%g8395884038%_ + _%g8395984039%_ + _%g8396084040%_) + (_%__kont9171991720%_))))) + (_%__match9173391734%_ + (lambda (_%e8395184080%_ + _%hd8395284084%_ + _%tl8395384087%_ + _%e8395484090%_ + _%hd8395584094%_ + _%tl8395684097%_) + (let ((_%g8394884100%_ _%tl8395684097%_) + (_%g8394984102%_ _%hd8395584094%_) + (_%g8395084103%_ _%hd8395284084%_)) + (if (and (gx#identifier? _%g8395084103%_) (or (gx#free-identifier=? - _%L83246%_ + _%g8395084103%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L83246%_ + _%g8395084103%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L83246%_ + _%g8395084103%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L83246%_ + _%g8395084103%_ (gx#datum->syntax '#f '::-)))) - (_%__kont9086290863%_ - _%L83243%_ - _%L83245%_ - _%L83246%_) - (if (gx#identifier? _%hd8309583227%_) + (_%__kont9171591716%_ + _%g8394884100%_ + _%g8394984102%_ + _%g8395084103%_) + (if (gx#identifier? _%hd8395284084%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92016_| - _%hd8309583227%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92881_| + _%hd8395284084%_) (if (gx#stx-pair? - _%tl8309983240%_) - (let ((_%e8311083159%_ + _%tl8395684097%_) + (let ((_%e8396784016%_ (gx#syntax-e - _%tl8309983240%_))) - (let ((_%tl8311283166%_ + _%tl8395684097%_))) + (let ((_%tl8396984023%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e8311083159%_))) - (_%hd8311183163%_ - (let () (declare (not safe)) (##car _%e8311083159%_)))) - (if (gx#stx-pair? _%tl8311283166%_) - (let ((_%e8311383169%_ (gx#syntax-e _%tl8311283166%_))) - (let ((_%tl8311583176%_ + (##cdr _%e8396784016%_))) + (_%hd8396884020%_ + (let () (declare (not safe)) (##car _%e8396784016%_)))) + (if (gx#stx-pair? _%tl8396984023%_) + (let ((_%e8397084026%_ (gx#syntax-e _%tl8396984023%_))) + (let ((_%tl8397284033%_ (let () (declare (not safe)) - (##cdr _%e8311383169%_))) - (_%hd8311483173%_ + (##cdr _%e8397084026%_))) + (_%hd8397184030%_ (let () (declare (not safe)) - (##car _%e8311383169%_)))) - (_%__match9090890909%_ - _%e8309483223%_ - _%hd8309583227%_ - _%tl8309683230%_ - _%e8309783233%_ - _%hd8309883237%_ - _%tl8309983240%_ - _%e8311083159%_ - _%hd8311183163%_ - _%tl8311283166%_ - _%e8311383169%_ - _%hd8311483173%_ - _%tl8311583176%_))) - (_%__kont9086690867%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont9086690867%_)) - (_%__kont9086690867%_)) - (_%__kont9086690867%_))))))) - (if (gx#stx-pair? _%__stx9085990860%_) - (let ((_%e8309483223%_ - (gx#syntax-e _%__stx9085990860%_))) - (let ((_%tl8309683230%_ + (##car _%e8397084026%_)))) + (_%__match9176191762%_ + _%e8395184080%_ + _%hd8395284084%_ + _%tl8395384087%_ + _%e8395484090%_ + _%hd8395584094%_ + _%tl8395684097%_ + _%e8396784016%_ + _%hd8396884020%_ + _%tl8396984023%_ + _%e8397084026%_ + _%hd8397184030%_ + _%tl8397284033%_))) + (_%__kont9171991720%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont9171991720%_)) + (_%__kont9171991720%_)) + (_%__kont9171991720%_))))))) + (if (gx#stx-pair? _%__stx9171291713%_) + (let ((_%e8395184080%_ + (gx#syntax-e _%__stx9171291713%_))) + (let ((_%tl8395384087%_ (let () (declare (not safe)) - (##cdr _%e8309483223%_))) - (_%hd8309583227%_ + (##cdr _%e8395184080%_))) + (_%hd8395284084%_ (let () (declare (not safe)) - (##car _%e8309483223%_)))) - (if (gx#stx-pair? _%tl8309683230%_) - (let ((_%e8309783233%_ - (gx#syntax-e _%tl8309683230%_))) - (let ((_%tl8309983240%_ + (##car _%e8395184080%_)))) + (if (gx#stx-pair? _%tl8395384087%_) + (let ((_%e8395484090%_ + (gx#syntax-e _%tl8395384087%_))) + (let ((_%tl8395684097%_ (let () (declare (not safe)) - (##cdr _%e8309783233%_))) - (_%hd8309883237%_ + (##cdr _%e8395484090%_))) + (_%hd8395584094%_ (let () (declare (not safe)) - (##car _%e8309783233%_)))) - (_%__match9088090881%_ - _%e8309483223%_ - _%hd8309583227%_ - _%tl8309683230%_ - _%e8309783233%_ - _%hd8309883237%_ - _%tl8309983240%_))) - (_%__kont9086690867%_)))) - (_%__kont9086690867%_))))))) - (_%slot-contract-predicate76522%_ - (lambda (_%slot-spec83073%_) - (let ((_%contract8307583077%_ - (_%slot-contract76517%_ _%slot-spec83073%_))) - (if _%contract8307583077%_ - (let ((_%contract83081%_ _%contract8307583077%_)) - (_%contract-predicate76523%_ _%contract83081%_)) + (##car _%e8395484090%_)))) + (_%__match9173391734%_ + _%e8395184080%_ + _%hd8395284084%_ + _%tl8395384087%_ + _%e8395484090%_ + _%hd8395584094%_ + _%tl8395684097%_))) + (_%__kont9171991720%_)))) + (_%__kont9171991720%_))))))) + (_%slot-contract-predicate77438%_ + (lambda (_%slot-spec83931%_) + (let ((_%contract8393383935%_ + (_%slot-contract77433%_ _%slot-spec83931%_))) + (if _%contract8393383935%_ + (let ((_%contract83938%_ _%contract8393383935%_)) + (_%contract-predicate77439%_ _%contract83938%_)) '#f)))) - (_%contract-predicate76523%_ - (lambda (_%contract82995%_) - (let* ((_%__stx9091190912%_ _%contract82995%_) - (_%g8299983014%_ + (_%contract-predicate77439%_ + (lambda (_%contract83853%_) + (let* ((_%__stx9176491765%_ _%contract83853%_) + (_%g8385783872%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9091190912%_)))) - (let ((_%__kont9091490915%_ - (lambda (_%L83052%_ _%L83054%_) _%L83054%_)) - (_%__kont9091690917%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx9091190912%_) - (let ((_%e8300383032%_ - (gx#syntax-e _%__stx9091190912%_))) - (let ((_%tl8300583039%_ + _%__stx9176491765%_)))) + (let ((_%__kont9176791768%_ + (lambda (_%g8385983910%_ _%g8386083912%_) + _%g8386083912%_)) + (_%__kont9176991770%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx9176491765%_) + (let ((_%e8386183890%_ + (gx#syntax-e _%__stx9176491765%_))) + (let ((_%tl8386383897%_ (let () (declare (not safe)) - (##cdr _%e8300383032%_))) - (_%hd8300483036%_ + (##cdr _%e8386183890%_))) + (_%hd8386283894%_ (let () (declare (not safe)) - (##car _%e8300383032%_)))) - (if (gx#identifier? _%hd8300483036%_) + (##car _%e8386183890%_)))) + (if (gx#identifier? _%hd8386283894%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92017_| - _%hd8300483036%_) - (if (gx#stx-pair? _%tl8300583039%_) - (let ((_%e8300683042%_ + |gerbil/core/contract~TypedDefinitions[1]#_g92882_| + _%hd8386283894%_) + (if (gx#stx-pair? _%tl8386383897%_) + (let ((_%e8386483900%_ (gx#syntax-e - _%tl8300583039%_))) - (let ((_%tl8300883049%_ + _%tl8386383897%_))) + (let ((_%tl8386683907%_ (let () (declare (not safe)) - (##cdr _%e8300683042%_))) - (_%hd8300783046%_ + (##cdr _%e8386483900%_))) + (_%hd8386583904%_ (let () (declare (not safe)) - (##car _%e8300683042%_)))) - (_%__kont9091490915%_ - _%tl8300883049%_ - _%hd8300783046%_))) - (_%__kont9091690917%_)) - (_%__kont9091690917%_)) - (_%__kont9091690917%_)))) - (_%__kont9091690917%_)))))) - (_%slot-default76524%_ - (lambda (_%slot-spec82823%_) - (let* ((_%__stx9093790938%_ _%slot-spec82823%_) - (_%g8282882860%_ + (##car _%e8386483900%_)))) + (_%__kont9176791768%_ + _%tl8386683907%_ + _%hd8386583904%_))) + (_%__kont9176991770%_)) + (_%__kont9176991770%_)) + (_%__kont9176991770%_)))) + (_%__kont9176991770%_)))))) + (_%slot-default77440%_ + (lambda (_%slot-spec83683%_) + (let* ((_%__stx9179091791%_ _%slot-spec83683%_) + (_%g8368883720%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9093790938%_)))) - (let ((_%__kont9094090941%_ - (lambda (_%L82976%_ _%L82978%_) _%L82976%_)) - (_%__kont9094290943%_ - (lambda (_%L82928%_ _%L82930%_) _%L82928%_)) - (_%__kont9094690947%_ (lambda () '#f))) - (let* ((_%__match9098890989%_ - (lambda (_%__splice9094490945%_ - _%target8284082878%_ - _%tl8284282881%_ - _%e8284982884%_ - _%hd8285082888%_ - _%tl8285182891%_ - _%e8285282894%_ - _%hd8285382898%_ - _%tl8285482901%_) - (letrec ((_%loop8284382904%_ - (lambda (_%hd8284182908%_ - _%id8284782911%_) + _%__stx9179091791%_)))) + (let ((_%__kont9179391794%_ + (lambda (_%g8369083834%_ _%g8369183836%_) + _%g8369083834%_)) + (_%__kont9179591796%_ + (lambda (_%g8369883786%_ _%g8369983788%_) + _%g8369883786%_)) + (_%__kont9179991800%_ (lambda () '#f))) + (let* ((_%__match9184191842%_ + (lambda (_%__splice9179791798%_ + _%target8370083738%_ + _%tl8370283741%_ + _%e8370983744%_ + _%hd8371083748%_ + _%tl8371183751%_ + _%e8371283754%_ + _%hd8371383758%_ + _%tl8371483761%_) + (letrec ((_%loop8370383764%_ + (lambda (_%hd8370183768%_ + _%id8370783771%_) (if (gx#stx-pair? - _%hd8284182908%_) - (let ((_%e8284482914%_ + _%hd8370183768%_) + (let ((_%e8370483773%_ (gx#syntax-e - _%hd8284182908%_))) - (let ((_%lp-tl8284682921%_ + _%hd8370183768%_))) + (let ((_%lp-tl8370683780%_ (let () (declare (not safe)) - (##cdr _%e8284482914%_))) - (_%lp-hd8284582918%_ + (##cdr _%e8370483773%_))) + (_%lp-hd8370583777%_ (let () (declare (not safe)) - (##car _%e8284482914%_)))) - (_%loop8284382904%_ - _%lp-tl8284682921%_ - (cons _%lp-hd8284582918%_ - _%id8284782911%_)))) - (let ((_%id8284882924%_ - (reverse _%id8284782911%_))) - (_%__kont9094290943%_ - _%hd8285382898%_ - _%id8284882924%_)))))) - (_%loop8284382904%_ - _%target8284082878%_ + (##car _%e8370483773%_)))) + (_%loop8370383764%_ + _%lp-tl8370683780%_ + (cons _%lp-hd8370583777%_ + _%id8370783771%_)))) + (let ((_%id8370883783%_ + (reverse _%id8370783771%_))) + (_%__kont9179591796%_ + _%hd8371383758%_ + _%id8370883783%_)))))) + (_%loop8370383764%_ + _%target8370083738%_ '())))) - (_%g8282682949%_ + (_%g8368683807%_ (lambda () - (if (gx#stx-pair/null? _%__stx9093790938%_) - (if (let ((__tmp92018 + (if (gx#stx-pair/null? _%__stx9179091791%_) + (if (let ((__tmp92883 (gx#stx-length - _%__stx9093790938%_))) + _%__stx9179091791%_))) (declare (not safe)) - (##fx>= __tmp92018 '2)) - (let ((_%__splice9094490945%_ + (##fx>= __tmp92883 '2)) + (let ((_%__splice9179791798%_ (gx#syntax-split-splice->vector - _%__stx9093790938%_ + _%__stx9179091791%_ '2))) - (let ((_%tl8284282881%_ + (let ((_%tl8370283741%_ (let () (declare (not safe)) (##vector-ref - _%__splice9094490945%_ + _%__splice9179791798%_ '1))) - (_%target8284082878%_ + (_%target8370083738%_ (let () (declare (not safe)) (##vector-ref - _%__splice9094490945%_ + _%__splice9179791798%_ '0)))) (if (gx#stx-pair? - _%tl8284282881%_) - (let ((_%e8284982884%_ + _%tl8370283741%_) + (let ((_%e8370983744%_ (gx#syntax-e - _%tl8284282881%_))) - (let ((_%tl8285182891%_ + _%tl8370283741%_))) + (let ((_%tl8371183751%_ (let () (declare (not safe)) - (##cdr _%e8284982884%_))) - (_%hd8285082888%_ + (##cdr _%e8370983744%_))) + (_%hd8371083748%_ (let () (declare (not safe)) - (##car _%e8284982884%_)))) + (##car _%e8370983744%_)))) (if (gx#identifier? - _%hd8285082888%_) + _%hd8371083748%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92019_| - _%hd8285082888%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92884_| + _%hd8371083748%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl8285182891%_) - (let ((_%e8285282894%_ - (gx#syntax-e _%tl8285182891%_))) - (let ((_%tl8285482901%_ + _%tl8371183751%_) + (let ((_%e8371283754%_ + (gx#syntax-e _%tl8371183751%_))) + (let ((_%tl8371483761%_ (let () (declare (not safe)) - (##cdr _%e8285282894%_))) - (_%hd8285382898%_ + (##cdr _%e8371283754%_))) + (_%hd8371383758%_ (let () (declare (not safe)) - (##car _%e8285282894%_)))) - (if (gx#stx-null? _%tl8285482901%_) - (_%__match9098890989%_ - _%__splice9094490945%_ - _%target8284082878%_ - _%tl8284282881%_ - _%e8284982884%_ - _%hd8285082888%_ - _%tl8285182891%_ - _%e8285282894%_ - _%hd8285382898%_ - _%tl8285482901%_) - (_%__kont9094690947%_)))) - (_%__kont9094690947%_)) - (_%__kont9094690947%_)) - (_%__kont9094690947%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont9094690947%_)))) - (_%__kont9094690947%_)) - (_%__kont9094690947%_))))) - (if (gx#stx-pair? _%__stx9093790938%_) - (let ((_%e8283282956%_ - (gx#syntax-e _%__stx9093790938%_))) - (let ((_%tl8283482963%_ + (##car _%e8371283754%_)))) + (if (gx#stx-null? _%tl8371483761%_) + (_%__match9184191842%_ + _%__splice9179791798%_ + _%target8370083738%_ + _%tl8370283741%_ + _%e8370983744%_ + _%hd8371083748%_ + _%tl8371183751%_ + _%e8371283754%_ + _%hd8371383758%_ + _%tl8371483761%_) + (_%__kont9179991800%_)))) + (_%__kont9179991800%_)) + (_%__kont9179991800%_)) + (_%__kont9179991800%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont9179991800%_)))) + (_%__kont9179991800%_)) + (_%__kont9179991800%_))))) + (if (gx#stx-pair? _%__stx9179091791%_) + (let ((_%e8369283814%_ + (gx#syntax-e _%__stx9179091791%_))) + (let ((_%tl8369483821%_ (let () (declare (not safe)) - (##cdr _%e8283282956%_))) - (_%hd8283382960%_ + (##cdr _%e8369283814%_))) + (_%hd8369383818%_ (let () (declare (not safe)) - (##car _%e8283282956%_)))) - (if (gx#stx-pair? _%tl8283482963%_) - (let ((_%e8283582966%_ - (gx#syntax-e _%tl8283482963%_))) - (let ((_%tl8283782973%_ + (##car _%e8369283814%_)))) + (if (gx#stx-pair? _%tl8369483821%_) + (let ((_%e8369583824%_ + (gx#syntax-e _%tl8369483821%_))) + (let ((_%tl8369783831%_ (let () (declare (not safe)) - (##cdr _%e8283582966%_))) - (_%hd8283682970%_ + (##cdr _%e8369583824%_))) + (_%hd8369683828%_ (let () (declare (not safe)) - (##car _%e8283582966%_)))) - (if (gx#stx-null? _%tl8283782973%_) - (_%__kont9094090941%_ - _%hd8283682970%_ - _%hd8283382960%_) + (##car _%e8369583824%_)))) + (if (gx#stx-null? _%tl8369783831%_) + (_%__kont9179391794%_ + _%hd8369683828%_ + _%hd8369383818%_) (let () (declare (not safe)) - (_%g8282682949%_))))) + (_%g8368683807%_))))) (let () (declare (not safe)) - (_%g8282682949%_))))) + (_%g8368683807%_))))) (let () (declare (not safe)) - (_%g8282682949%_)))))))) - (_%infer-slot-type76525%_ - (lambda (_%slot82721%_ _%type-a82723%_ _%type-b82724%_) - (if (not _%type-a82723%_) - _%type-b82724%_ - (if (not _%type-b82724%_) - _%type-a82723%_ + (_%g8368683807%_)))))))) + (_%infer-slot-type77441%_ + (lambda (_%slot83581%_ _%type-a83583%_ _%type-b83584%_) + (if (not _%type-a83583%_) + _%type-b83584%_ + (if (not _%type-b83584%_) + _%type-a83583%_ (if (gx#free-identifier=? - _%type-a82723%_ - _%type-b82724%_) - _%type-a82723%_ - (let _%again82734%_ ((_%klass-a82737%_ + _%type-a83583%_ + _%type-b83584%_) + _%type-a83583%_ + (let _%again83594%_ ((_%klass-a83597%_ (gx#syntax-local-value - _%type-a82723%_)) - (_%klass-b82739%_ + _%type-a83583%_)) + (_%klass-b83599%_ (gx#syntax-local-value - _%type-b82724%_))) - (if (eq? _%klass-a82737%_ _%klass-b82739%_) - _%type-a82723%_ + _%type-b83584%_))) + (if (eq? _%klass-a83597%_ _%klass-b83599%_) + _%type-a83583%_ (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%klass-a82737%_)) + _%klass-a83597%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%klass-b82739%_)) - (if (eq? (let ((__obj91708 - _%klass-a82737%_)) + _%klass-b83599%_)) + (if (eq? (let ((__obj92561 + _%klass-a83597%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj91708 + __obj92561 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91708 '1 '#f '#f)) - (unchecked-slot-ref __obj91708 'id))) - (let ((__obj91709 _%klass-b82739%_)) + (##unchecked-structure-ref __obj92561 '1 '#f '#f)) + (unchecked-slot-ref __obj92561 'id))) + (let ((__obj92562 _%klass-b83599%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91709 + __obj92562 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91709 '1 '#f '#f)) - (unchecked-slot-ref __obj91709 'id)))) + (##unchecked-structure-ref __obj92562 '1 '#f '#f)) + (unchecked-slot-ref __obj92562 'id)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%type-a82723%_ - (if (member _%type-a82723%_ + _%type-a83583%_ + (if (member _%type-a83583%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - _%klass-b82739%_)) + _%klass-b83599%_)) gx#free-identifier=?) - _%type-b82724%_ - (if (member _%type-b82724%_ + _%type-b83584%_ + (if (member _%type-b83584%_ (let () (declare (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - _%klass-a82737%_)) + _%klass-a83597%_)) gx#free-identifier=?) - _%type-a82723%_ + _%type-a83583%_ (gx#raise-syntax-error '#f '"incompatible slot types" - _%stx76510%_ - _%slot82721%_ - _%type-a82723%_ - _%type-b82724%_)))) + _%stx77426%_ + _%slot83581%_ + _%type-a83583%_ + _%type-b83584%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b82739%_)) - (let ((_%$e82757%_ + _%klass-b83599%_)) + (let ((_%$e83617%_ (gx#syntax-local-value - (let ((__obj91706 + (let ((__obj92559 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-b82739%_)) + _%klass-b83599%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91706 + __obj92559 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91706 '1 '#f '#f)) - (unchecked-slot-ref __obj91706 'identifier))) + (##unchecked-structure-ref __obj92559 '1 '#f '#f)) + (unchecked-slot-ref __obj92559 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e82757%_ - ((lambda (_%klass-b82761%_) - (_%again82734%_ - _%klass-a82737%_ - _%klass-b82761%_)) - _%$e82757%_) + (if _%$e83617%_ + ((lambda (_%klass-b83621%_) + (_%again83594%_ + _%klass-a83597%_ + _%klass-b83621%_)) + _%$e83617%_) (if (gx#free-identifier=? - _%type-a82723%_ - (let ((__obj91707 + _%type-a83583%_ + (let ((__obj92560 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-b82739%_)) + _%klass-b83599%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91707 + __obj92560 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91707 '1 '#f '#f)) - (unchecked-slot-ref __obj91707 'identifier)))) - _%type-a82723%_ + (##unchecked-structure-ref __obj92560 '1 '#f '#f)) + (unchecked-slot-ref __obj92560 'identifier)))) + _%type-a83583%_ (gx#raise-syntax-error '#f '"cannot resolve type reference to determine slot type compatibility" - _%stx76510%_ - _%slot82721%_ - _%type-a82723%_ - _%type-b82724%_)))) + _%stx77426%_ + _%slot83581%_ + _%type-a83583%_ + _%type-b83584%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"incompatible slot types" - _%stx76510%_ - _%slot82721%_ - _%type-a82723%_ - _%type-b82724%_))) + _%stx77426%_ + _%slot83581%_ + _%type-a83583%_ + _%type-b83584%_))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-a82737%_)) + _%klass-a83597%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-b82739%_)) - (if (member _%type-a82723%_ - (let ((__obj91704 + _%klass-b83599%_)) + (if (member _%type-a83583%_ + (let ((__obj92557 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-b82739%_)) + _%klass-b83599%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91704 + __obj92557 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91704 - '5 + __obj92557 + '7 '#f '#f)) (unchecked-slot-ref - __obj91704 + __obj92557 'interface-precedence-list))) gx#free-identifier=?) - _%type-b82724%_ - (if (member _%type-b82724%_ - (let ((__obj91705 _%klass-a82737%_)) + _%type-b83584%_ + (if (member _%type-b83584%_ + (let ((__obj92558 _%klass-a83597%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91705 + __obj92558 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91705 - '5 + __obj92558 + '7 '#f '#f)) (unchecked-slot-ref - __obj91705 + __obj92558 'interface-precedence-list))) gx#free-identifier=?) - _%type-a82723%_ + _%type-a83583%_ (gx#raise-syntax-error '#f '"incompatible slot types" - _%stx76510%_ - _%slot82721%_ - _%type-a82723%_ - _%type-b82724%_))) + _%stx77426%_ + _%slot83581%_ + _%type-a83583%_ + _%type-b83584%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b82739%_)) - (let ((_%$e82782%_ + _%klass-b83599%_)) + (let ((_%$e83642%_ (gx#syntax-local-value - (let ((__obj91702 + (let ((__obj92555 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-b82739%_)) + _%klass-b83599%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91702 + __obj92555 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91702 + __obj92555 '1 '#f '#f)) - (unchecked-slot-ref __obj91702 'identifier))) + (unchecked-slot-ref __obj92555 'identifier))) false))) - (if _%$e82782%_ - ((lambda (_%klass-b82786%_) - (_%again82734%_ _%klass-a82737%_ _%klass-b82786%_)) - _%$e82782%_) + (if _%$e83642%_ + ((lambda (_%klass-b83646%_) + (_%again83594%_ _%klass-a83597%_ _%klass-b83646%_)) + _%$e83642%_) (if (gx#free-identifier=? - _%type-a82723%_ - (let ((__obj91703 _%klass-b82739%_)) + _%type-a83583%_ + (let ((__obj92556 _%klass-b83599%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91703 + __obj92556 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91703 + __obj92556 '1 '#f '#f)) - (unchecked-slot-ref __obj91703 'identifier)))) - _%type-a82723%_ + (unchecked-slot-ref __obj92556 'identifier)))) + _%type-a83583%_ (gx#raise-syntax-error '#f '"cannot resolve type reference to determine slot type compatibility" - _%stx76510%_ - _%slot82721%_ - _%type-a82723%_ - _%type-b82724%_)))) + _%stx77426%_ + _%slot83581%_ + _%type-a83583%_ + _%type-b83584%_)))) (gx#raise-syntax-error '#f '"incompatible slot types" - _%stx76510%_ - _%slot82721%_ - _%type-a82723%_ - _%type-b82724%_))) + _%stx77426%_ + _%slot83581%_ + _%type-a83583%_ + _%type-b83584%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-a82737%_)) - (let ((_%$e82797%_ + _%klass-a83597%_)) + (let ((_%$e83657%_ (gx#syntax-local-value - (let ((__obj91697 + (let ((__obj92550 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-a82737%_)) + _%klass-a83597%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91697 + __obj92550 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91697 '1 '#f '#f)) - (unchecked-slot-ref __obj91697 'identifier))) + (##unchecked-structure-ref __obj92550 '1 '#f '#f)) + (unchecked-slot-ref __obj92550 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e82797%_ - ((lambda (_%klass-a82801%_) - (_%again82734%_ - _%klass-a82801%_ - _%klass-b82739%_)) - _%$e82797%_) + (if _%$e83657%_ + ((lambda (_%klass-a83661%_) + (_%again83594%_ + _%klass-a83661%_ + _%klass-b83599%_)) + _%$e83657%_) (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b82739%_)) - (let ((_%$e82806%_ + _%klass-b83599%_)) + (let ((_%$e83666%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-local-value - (let ((__obj91699 _%klass-b82739%_)) + (let ((__obj92552 _%klass-b83599%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91699 + __obj92552 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91699 + __obj92552 '1 '#f '#f)) - (unchecked-slot-ref __obj91699 'identifier))) + (unchecked-slot-ref __obj92552 'identifier))) false))) - (if _%$e82806%_ - ((lambda (_%klass-b82810%_) - (_%again82734%_ - _%klass-a82737%_ - _%klass-b82810%_)) - _%$e82806%_) + (if _%$e83666%_ + ((lambda (_%klass-b83670%_) + (_%again83594%_ + _%klass-a83597%_ + _%klass-b83670%_)) + _%$e83666%_) (if (gx#free-identifier=? - (let ((__obj91700 _%klass-a82737%_)) + (let ((__obj92553 _%klass-a83597%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91700 + __obj92553 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91700 + __obj92553 '1 '#f '#f)) (unchecked-slot-ref - __obj91700 + __obj92553 'identifier))) - (let ((__obj91701 _%klass-b82739%_)) + (let ((__obj92554 _%klass-b83599%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91701 + __obj92554 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91701 + __obj92554 '1 '#f '#f)) (unchecked-slot-ref - __obj91701 + __obj92554 'identifier)))) - _%type-a82723%_ + _%type-a83583%_ (gx#raise-syntax-error '#f '"cannot resolve type reference to determine slot type compatibility" - _%stx76510%_ - _%slot82721%_ - _%type-a82723%_ - _%type-b82724%_)))) + _%stx77426%_ + _%slot83581%_ + _%type-a83583%_ + _%type-b83584%_)))) (if (gx#free-identifier=? - _%type-b82724%_ - (let ((__obj91698 _%klass-a82737%_)) + _%type-b83584%_ + (let ((__obj92551 _%klass-a83597%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91698 + __obj92551 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91698 + __obj92551 '1 '#f '#f)) - (unchecked-slot-ref __obj91698 'identifier)))) - _%type-b82724%_ + (unchecked-slot-ref __obj92551 'identifier)))) + _%type-b83584%_ (gx#raise-syntax-error '#f '"cannot resolve type reference to determine slot type compatibility" - _%stx76510%_ - _%slot82721%_ - _%type-a82723%_ - _%type-b82724%_))))) + _%stx77426%_ + _%slot83581%_ + _%type-a83583%_ + _%type-b83584%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"unexpected slot type" - _%stx76510%_ - _%slot82721%_ - _%type-a82723%_ - _%klass-a82737%_))))))))))) - (_%get-mixin-slots76526%_ - (lambda (_%super82592%_) - (letrec* ((_%tab82595%_ (make-hash-table-eq))) - (let _%loop82598%_ ((_%rest82601%_ _%super82592%_) - (_%result82603%_ '())) - (let* ((_%rest8260482612%_ _%rest82601%_) - (_%else8260682624%_ + _%stx77426%_ + _%slot83581%_ + _%type-a83583%_ + _%klass-a83597%_))))))))))) + (_%get-mixin-slots77442%_ + (lambda (_%super83452%_) + (letrec* ((_%tab83455%_ (make-hash-table-eq))) + (let _%loop83458%_ ((_%rest83461%_ _%super83452%_) + (_%result83463%_ '())) + (let* ((_%rest8346483472%_ _%rest83461%_) + (_%else8346683484%_ (lambda () - (values (reverse! _%result82603%_) - _%tab82595%_))) - (_%K8260882705%_ - (lambda (_%rest82628%_ _%type-id82630%_) - (let* ((_%klass82632%_ + (values (reverse! _%result83463%_) + _%tab83455%_))) + (_%K8346883565%_ + (lambda (_%rest83488%_ _%type-id83490%_) + (let* ((_%klass83492%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx76510%_ - _%type-id82630%_))) - (_%slots82635%_ - (let ((__obj91710 _%klass82632%_)) + _%stx77426%_ + _%type-id83490%_))) + (_%slots83495%_ + (let ((__obj92563 _%klass83492%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91710 + __obj92563 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91710 - '4 + __obj92563 + '5 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91710 + __obj92563 'slots))))) - (let _%loop-inner82640%_ ((_%rest-slots82643%_ - _%slots82635%_) - (_%result82645%_ - _%result82603%_)) - (let* ((_%rest-slots8264682654%_ - _%rest-slots82643%_) - (_%else8264882666%_ + (let _%loop-inner83500%_ ((_%rest-slots83503%_ + _%slots83495%_) + (_%result83505%_ + _%result83463%_)) + (let* ((_%rest-slots8350683514%_ + _%rest-slots83503%_) + (_%else8350883526%_ (lambda () - (_%loop82598%_ + (_%loop83458%_ (foldr cons - _%rest82628%_ - (let ((__obj91711 - _%klass82632%_)) + _%rest83488%_ + (let ((__obj92564 + _%klass83492%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj91711 + __obj92564 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91711 '3 '#f '#f)) + (##unchecked-structure-ref __obj92564 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91711 + __obj92564 'super)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%result82645%_))) - (_%K8265082689%_ - (lambda (_%rest-slots82670%_ - _%slot82672%_) - (let ((_%slot-type82674%_ + _%result83505%_))) + (_%K8351083549%_ + (lambda (_%rest-slots83530%_ + _%slot83532%_) + (let ((_%slot-type83534%_ (hash-ref - _%tab82595%_ - _%slot82672%_ + _%tab83455%_ + _%slot83532%_ absent-value))) - (if (eq? _%slot-type82674%_ + (if (eq? _%slot-type83534%_ absent-value) (let () (hash-put! - _%tab82595%_ - _%slot82672%_ + _%tab83455%_ + _%slot83532%_ (let () (declare (not safe)) (|gerbil/core/contract~Using[1]#!class-slot-type| - _%klass82632%_ - _%slot82672%_))) - (_%loop-inner82640%_ - _%rest-slots82670%_ - (cons _%slot82672%_ - _%result82645%_))) - (if (not _%slot-type82674%_) + _%klass83492%_ + _%slot83532%_))) + (_%loop-inner83500%_ + _%rest-slots83530%_ + (cons _%slot83532%_ + _%result83505%_))) + (if (not _%slot-type83534%_) (let () (hash-put! - _%tab82595%_ - _%slot82672%_ + _%tab83455%_ + _%slot83532%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (|gerbil/core/contract~Using[1]#!class-slot-type| - _%klass82632%_ - _%slot82672%_))) - (_%loop-inner82640%_ _%rest-slots82670%_ _%result82645%_)) - (let* ((_%other-slot-type82683%_ + _%klass83492%_ + _%slot83532%_))) + (_%loop-inner83500%_ _%rest-slots83530%_ _%result83505%_)) + (let* ((_%other-slot-type83543%_ (let () (declare (not safe)) (|gerbil/core/contract~Using[1]#!class-slot-type| - _%klass82632%_ - _%slot82672%_))) - (_%slot-type82686%_ - (_%infer-slot-type76525%_ - _%slot82672%_ - _%other-slot-type82683%_ - _%slot-type82674%_))) - (hash-put! _%tab82595%_ _%slot82672%_ _%slot-type82686%_) - (_%loop-inner82640%_ - _%rest-slots82670%_ - _%result82645%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest-slots8264682654%_) - (let ((_%hd8265182693%_ + _%klass83492%_ + _%slot83532%_))) + (_%slot-type83546%_ + (_%infer-slot-type77441%_ + _%slot83532%_ + _%other-slot-type83543%_ + _%slot-type83534%_))) + (hash-put! _%tab83455%_ _%slot83532%_ _%slot-type83546%_) + (_%loop-inner83500%_ + _%rest-slots83530%_ + _%result83505%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (pair? _%rest-slots8350683514%_) + (let ((_%hd8351183553%_ (let () (declare (not safe)) - (##car _%rest-slots8264682654%_))) - (_%tl8265282696%_ + (##car _%rest-slots8350683514%_))) + (_%tl8351283556%_ (let () (declare (not safe)) - (##cdr _%rest-slots8264682654%_)))) - (let* ((_%slot82699%_ - _%hd8265182693%_) - (_%rest-slots82702%_ - _%tl8265282696%_)) - (_%K8265082689%_ - _%rest-slots82702%_ - _%slot82699%_))) - (_%else8264882666%_)))))))) - (if (pair? _%rest8260482612%_) - (let ((_%hd8260982709%_ + (##cdr _%rest-slots8350683514%_)))) + (let* ((_%slot83559%_ + _%hd8351183553%_) + (_%rest-slots83562%_ + _%tl8351283556%_)) + (_%K8351083549%_ + _%rest-slots83562%_ + _%slot83559%_))) + (_%else8350883526%_)))))))) + (if (pair? _%rest8346483472%_) + (let ((_%hd8346983569%_ (let () (declare (not safe)) - (##car _%rest8260482612%_))) - (_%tl8261082712%_ + (##car _%rest8346483472%_))) + (_%tl8347083572%_ (let () (declare (not safe)) - (##cdr _%rest8260482612%_)))) - (let* ((_%type-id82715%_ _%hd8260982709%_) - (_%rest82718%_ _%tl8261082712%_)) - (_%K8260882705%_ - _%rest82718%_ - _%type-id82715%_))) - (_%else8260682624%_))))))) - (_%get-slot-table76527%_ - (lambda (_%slots82535%_ - _%mixin-slots82537%_ - _%super82538%_ - _%contract-e82539%_ - _%getf82540%_ - _%mixf82541%_) - (letrec* ((_%tab82543%_ (make-hash-table-eq))) + (##cdr _%rest8346483472%_)))) + (let* ((_%type-id83575%_ _%hd8346983569%_) + (_%rest83578%_ _%tl8347083572%_)) + (_%K8346883565%_ + _%rest83578%_ + _%type-id83575%_))) + (_%else8346683484%_))))))) + (_%get-slot-table77443%_ + (lambda (_%slots83395%_ + _%mixin-slots83397%_ + _%super83398%_ + _%contract-e83399%_ + _%getf83400%_ + _%mixf83401%_) + (letrec* ((_%tab83403%_ (make-hash-table-eq))) (for-each - (lambda (_%slot82546%_) + (lambda (_%slot83406%_) (for-each - (lambda (_%super-type82549%_) - (let* ((_%klass82552%_ + (lambda (_%super-type83409%_) + (let* ((_%klass83412%_ (gx#syntax-local-value - _%super-type82549%_)) - (_%$e82555%_ - (hash-get _%tab82543%_ _%slot82546%_))) - (if _%$e82555%_ - ((lambda (_%a82559%_) - (let ((_%$e82562%_ - (_%getf82540%_ - _%klass82552%_ - _%slot82546%_))) - (if _%$e82562%_ - ((lambda (_%b82566%_) + _%super-type83409%_)) + (_%$e83415%_ + (hash-get _%tab83403%_ _%slot83406%_))) + (if _%$e83415%_ + ((lambda (_%a83419%_) + (let ((_%$e83422%_ + (_%getf83400%_ + _%klass83412%_ + _%slot83406%_))) + (if _%$e83422%_ + ((lambda (_%b83426%_) (hash-put! - _%tab82543%_ - _%slot82546%_ - (_%mixf82541%_ - _%slot82546%_ - _%a82559%_ - _%b82566%_))) - _%$e82562%_) + _%tab83403%_ + _%slot83406%_ + (_%mixf83401%_ + _%slot83406%_ + _%a83419%_ + _%b83426%_))) + _%$e83422%_) '#!void))) - _%$e82555%_) - (let ((_%$e82569%_ - (_%getf82540%_ - _%klass82552%_ - _%slot82546%_))) - (if _%$e82569%_ - ((lambda (_%a82573%_) + _%$e83415%_) + (let ((_%$e83429%_ + (_%getf83400%_ + _%klass83412%_ + _%slot83406%_))) + (if _%$e83429%_ + ((lambda (_%a83433%_) (hash-put! - _%tab82543%_ - _%slot82546%_ - _%a82573%_)) - _%$e82569%_) + _%tab83403%_ + _%slot83406%_ + _%a83433%_)) + _%$e83429%_) '#!void))))) - _%super82538%_)) - _%mixin-slots82537%_) + _%super83398%_)) + _%mixin-slots83397%_) (for-each - (lambda (_%slot-spec82576%_) - (let ((_%slot82579%_ - (_%slot-name76516%_ _%slot-spec82576%_)) - (_%a82581%_ - (_%contract-e82539%_ _%slot-spec82576%_))) - (if _%a82581%_ - (let ((_%$e82583%_ - (hash-get _%tab82543%_ _%slot82579%_))) - (if _%$e82583%_ - ((lambda (_%b82587%_) + (lambda (_%slot-spec83436%_) + (let ((_%slot83439%_ + (_%slot-name77432%_ _%slot-spec83436%_)) + (_%a83441%_ + (_%contract-e83399%_ _%slot-spec83436%_))) + (if _%a83441%_ + (let ((_%$e83443%_ + (hash-get _%tab83403%_ _%slot83439%_))) + (if _%$e83443%_ + ((lambda (_%b83447%_) (hash-put! - _%tab82543%_ - _%slot82579%_ - (_%mixf82541%_ - _%slot82579%_ - _%a82581%_ - _%b82587%_))) - _%$e82583%_) + _%tab83403%_ + _%slot83439%_ + (_%mixf83401%_ + _%slot83439%_ + _%a83441%_ + _%b83447%_))) + _%$e83443%_) (hash-put! - _%tab82543%_ - _%slot82579%_ - _%a82581%_))) + _%tab83403%_ + _%slot83439%_ + _%a83441%_))) '#!void))) - _%slots82535%_) - _%tab82543%_))) - (_%get-slot-contracts76528%_ - (lambda (_%slots80971%_ - _%mixin-slots80973%_ - _%super80974%_ - _%slot-type-table80975%_) - (_%get-slot-table76527%_ - _%slots80971%_ - _%mixin-slots80973%_ - _%super80974%_ - _%slot-contract-normalize76518%_ + _%slots83395%_) + _%tab83403%_))) + (_%get-slot-contracts77444%_ + (lambda (_%slots81831%_ + _%mixin-slots81833%_ + _%super81834%_ + _%slot-type-table81835%_) + (_%get-slot-table77443%_ + _%slots81831%_ + _%mixin-slots81833%_ + _%super81834%_ + _%slot-contract-normalize77434%_ |gerbil/core/contract~Using[1]#!class-slot-contract| - (lambda (_%slot80977%_ _%a80979%_ _%b80980%_) - (let* ((_%__stx9125991260%_ _%a80979%_) - (_%g8104281095%_ + (lambda (_%slot81837%_ _%a81839%_ _%b81840%_) + (let* ((_%__stx9211292113%_ _%a81839%_) + (_%g8190281955%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9125991260%_)))) - (let ((_%__kont9126291263%_ + _%__stx9211292113%_)))) + (let ((_%__kont9211592116%_ (lambda () - (let* ((_%__stx9122791228%_ _%b80980%_) - (_%g8236582383%_ + (let* ((_%__stx9208092081%_ _%b81840%_) + (_%g8322583243%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9122791228%_)))) - (let ((_%__kont9123091231%_ - (lambda (_%L82477%_) - (let* ((_%g8249682504%_ - (lambda (_%g8249782500%_) + _%__stx9208092081%_)))) + (let ((_%__kont9208392084%_ + (lambda (_%g8322783337%_) + (let* ((_%g8335683364%_ + (lambda (_%g8335783360%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8249782500%_))) - (_%g8249582523%_ - (lambda (_%g8249782508%_) - ((lambda (_%L82511%_) + _%g8335783360%_))) + (_%g8335583383%_ + (lambda (_%g8335783368%_) + ((lambda (_%g8335883371%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':) - (cons _%L82511%_ '()))) - _%g8249782508%_)))) + (cons _%g8335883371%_ '()))) + _%g8335783368%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8249582523%_ + (_%g8335583383%_ (hash-ref - _%slot-type-table80975%_ - _%slot80977%_))))) - (_%__kont9123291233%_ - (lambda (_%L82410%_) - (let* ((_%g8242982437%_ - (lambda (_%g8243082433%_) + _%slot-type-table81835%_ + _%slot81837%_))))) + (_%__kont9208592086%_ + (lambda (_%g8323183270%_) + (let* ((_%g8328983297%_ + (lambda (_%g8329083293%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8243082433%_))) - (_%g8242882456%_ - (lambda (_%g8243082441%_) - ((lambda (_%L82444%_) + _%g8329083293%_))) + (_%g8328883316%_ + (lambda (_%g8329083301%_) + ((lambda (_%g8329183304%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L82410%_ + (cons _%g8323183270%_ (cons (gx#datum->syntax '#f ':) - (cons _%L82444%_ '()))))) - _%g8243082441%_)))) + (cons _%g8329183304%_ '()))))) + _%g8329083301%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8242882456%_ + (_%g8328883316%_ (hash-ref - _%slot-type-table80975%_ - _%slot80977%_)))))) - (let ((_%__match9124091241%_ - (lambda (_%e8236882467%_ - _%hd8236982471%_ - _%tl8237082474%_) - (let ((_%L82477%_ - _%hd8236982471%_)) + _%slot-type-table81835%_ + _%slot81837%_)))))) + (let ((_%__match9209392094%_ + (lambda (_%e8322883327%_ + _%hd8322983331%_ + _%tl8323083334%_) + (let ((_%g8322783337%_ + _%hd8322983331%_)) (if (or (gx#free-identifier=? - _%L82477%_ + _%g8322783337%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L82477%_ + _%g8322783337%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L82477%_ + _%g8322783337%_ (gx#datum->syntax '#f ':-))) - (_%__kont9123091231%_ - _%L82477%_) + (_%__kont9208392084%_ + _%g8322783337%_) (if (gx#identifier? - _%hd8236982471%_) + _%hd8322983331%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92020_| - _%hd8236982471%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92885_| + _%hd8322983331%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl8237082474%_) - (let ((_%e8237582400%_ - (gx#syntax-e _%tl8237082474%_))) - (let ((_%tl8237782407%_ + _%tl8323083334%_) + (let ((_%e8323583260%_ + (gx#syntax-e _%tl8323083334%_))) + (let ((_%tl8323783267%_ (let () (declare (not safe)) - (##cdr _%e8237582400%_))) - (_%hd8237682404%_ + (##cdr _%e8323583260%_))) + (_%hd8323683264%_ (let () (declare (not safe)) - (##car _%e8237582400%_)))) - (_%__kont9123291233%_ _%hd8237682404%_))) - (let () (declare (not safe)) (_%g8236582383%_))) - (let () (declare (not safe)) (_%g8236582383%_))) - (let () (declare (not safe)) (_%g8236582383%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx9122791228%_) - (let ((_%e8236882467%_ + (##car _%e8323583260%_)))) + (_%__kont9208592086%_ _%hd8323683264%_))) + (let () (declare (not safe)) (_%g8322583243%_))) + (let () (declare (not safe)) (_%g8322583243%_))) + (let () (declare (not safe)) (_%g8322583243%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%__stx9208092081%_) + (let ((_%e8322883327%_ (gx#syntax-e - _%__stx9122791228%_))) - (let ((_%tl8237082474%_ + _%__stx9208092081%_))) + (let ((_%tl8323083334%_ (let () (declare (not safe)) - (##cdr _%e8236882467%_))) - (_%hd8236982471%_ + (##cdr _%e8322883327%_))) + (_%hd8322983331%_ (let () (declare (not safe)) - (##car _%e8236882467%_)))) - (_%__match9124091241%_ - _%e8236882467%_ - _%hd8236982471%_ - _%tl8237082474%_))) + (##car _%e8322883327%_)))) + (_%__match9209392094%_ + _%e8322883327%_ + _%hd8322983331%_ + _%tl8323083334%_))) (let () (declare (not safe)) - (_%g8236582383%_)))))))) - (_%__kont9126491265%_ + (_%g8322583243%_)))))))) + (_%__kont9211792118%_ (lambda () - (let* ((_%__stx9117991180%_ _%b80980%_) - (_%g8216182181%_ + (let* ((_%__stx9203292033%_ _%b81840%_) + (_%g8302183041%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9117991180%_)))) - (let ((_%__kont9118291183%_ + _%__stx9203292033%_)))) + (let ((_%__kont9203592036%_ (lambda () - (let* ((_%g8230382311%_ - (lambda (_%g8230482307%_) + (let* ((_%g8316383171%_ + (lambda (_%g8316483167%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8230482307%_))) - (_%g8230282335%_ - (lambda (_%g8230482315%_) - ((lambda (_%L82318%_) + _%g8316483167%_))) + (_%g8316283195%_ + (lambda (_%g8316483175%_) + ((lambda (_%g8316583178%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':?) - (cons _%L82318%_ '()))) - _%g8230482315%_)))) + (cons _%g8316583178%_ '()))) + _%g8316483175%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8230282335%_ + (_%g8316283195%_ (hash-ref - _%slot-type-table80975%_ - _%slot80977%_))))) - (_%__kont9118491185%_ - (lambda (_%L82229%_) - (let* ((_%g8225182259%_ - (lambda (_%g8225282255%_) + _%slot-type-table81835%_ + _%slot81837%_))))) + (_%__kont9203792038%_ + (lambda (_%g8302683089%_) + (let* ((_%g8311183119%_ + (lambda (_%g8311283115%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8225282255%_))) - (_%g8225082278%_ - (lambda (_%g8225282263%_) - ((lambda (_%L82266%_) + _%g8311283115%_))) + (_%g8311083138%_ + (lambda (_%g8311283123%_) + ((lambda (_%g8311383126%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L82229%_ + (cons _%g8302683089%_ (cons (gx#datum->syntax '#f ':?) - (cons _%L82266%_ '()))))) - _%g8225282263%_)))) + (cons _%g8311383126%_ '()))))) + _%g8311283123%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8225082278%_ + (_%g8311083138%_ (hash-ref - _%slot-type-table80975%_ - _%slot80977%_))))) - (_%__kont9118691187%_ + _%slot-type-table81835%_ + _%slot81837%_))))) + (_%__kont9203992040%_ (lambda () (gx#raise-syntax-error '#f '"incompatible slot contracts" - _%stx76510%_ - _%slot80977%_ - _%a80979%_ - _%b80980%_)))) - (if (gx#stx-pair? _%__stx9117991180%_) - (let ((_%e8216382289%_ + _%stx77426%_ + _%slot81837%_ + _%a81839%_ + _%b81840%_)))) + (if (gx#stx-pair? _%__stx9203292033%_) + (let ((_%e8302383149%_ (gx#syntax-e - _%__stx9117991180%_))) - (let ((_%tl8216582296%_ + _%__stx9203292033%_))) + (let ((_%tl8302583156%_ (let () (declare (not safe)) - (##cdr _%e8216382289%_))) - (_%hd8216482293%_ + (##cdr _%e8302383149%_))) + (_%hd8302483153%_ (let () (declare (not safe)) - (##car _%e8216382289%_)))) + (##car _%e8302383149%_)))) (if (gx#identifier? - _%hd8216482293%_) + _%hd8302483153%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92021_| - _%hd8216482293%_) - (_%__kont9118291183%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92886_| + _%hd8302483153%_) + (_%__kont9203592036%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92022_| - _%hd8216482293%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92887_| + _%hd8302483153%_) (if (gx#stx-pair? - _%tl8216582296%_) - (let ((_%e8217082209%_ + _%tl8302583156%_) + (let ((_%e8303083069%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8216582296%_))) - (let ((_%tl8217282216%_ + (gx#syntax-e _%tl8302583156%_))) + (let ((_%tl8303283076%_ (let () (declare (not safe)) - (##cdr _%e8217082209%_))) - (_%hd8217182213%_ + (##cdr _%e8303083069%_))) + (_%hd8303183073%_ (let () (declare (not safe)) - (##car _%e8217082209%_)))) - (if (gx#stx-pair? _%tl8217282216%_) - (let ((_%e8217382219%_ - (gx#syntax-e _%tl8217282216%_))) - (let ((_%tl8217582226%_ + (##car _%e8303083069%_)))) + (if (gx#stx-pair? _%tl8303283076%_) + (let ((_%e8303383079%_ + (gx#syntax-e _%tl8303283076%_))) + (let ((_%tl8303583086%_ (let () (declare (not safe)) - (##cdr _%e8217382219%_))) - (_%hd8217482223%_ + (##cdr _%e8303383079%_))) + (_%hd8303483083%_ (let () (declare (not safe)) - (##car _%e8217382219%_)))) - (if (gx#identifier? _%hd8217482223%_) + (##car _%e8303383079%_)))) + (if (gx#identifier? _%hd8303483083%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92023_| - _%hd8217482223%_) - (_%__kont9118491185%_ - _%hd8217182213%_) - (_%__kont9118691187%_)) - (_%__kont9118691187%_)))) - (_%__kont9118691187%_)))) - (_%__kont9118691187%_)) - (_%__kont9118691187%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont9118691187%_)))) - (_%__kont9118691187%_)))))) - (_%__kont9126691267%_ + |gerbil/core/contract~TypedDefinitions[1]#_g92888_| + _%hd8303483083%_) + (_%__kont9203792038%_ + _%hd8303183073%_) + (_%__kont9203992040%_)) + (_%__kont9203992040%_)))) + (_%__kont9203992040%_)))) + (_%__kont9203992040%_)) + (_%__kont9203992040%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont9203992040%_)))) + (_%__kont9203992040%_)))))) + (_%__kont9211992120%_ (lambda () - (let* ((_%__stx9114791148%_ _%b80980%_) - (_%g8196981988%_ + (let* ((_%__stx9200092001%_ _%b81840%_) + (_%g8282982848%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9114791148%_)))) - (let ((_%__kont9115091151%_ - (lambda (_%L82084%_) - (let* ((_%g8210382111%_ - (lambda (_%g8210482107%_) + _%__stx9200092001%_)))) + (let ((_%__kont9200392004%_ + (lambda (_%g8283182944%_) + (let* ((_%g8296382971%_ + (lambda (_%g8296482967%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8210482107%_))) - (_%g8210282130%_ - (lambda (_%g8210482115%_) - ((lambda (_%L82118%_) + _%g8296482967%_))) + (_%g8296282990%_ + (lambda (_%g8296482975%_) + ((lambda (_%g8296582978%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':-) - (cons _%L82118%_ '()))) - _%g8210482115%_)))) + (cons _%g8296582978%_ '()))) + _%g8296482975%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8210282130%_ + (_%g8296282990%_ (hash-ref - _%slot-type-table80975%_ - _%slot80977%_))))) - (_%__kont9115291153%_ - (lambda (_%L82015%_ _%L82017%_) - (let* ((_%g8203682044%_ - (lambda (_%g8203782040%_) + _%slot-type-table81835%_ + _%slot81837%_))))) + (_%__kont9200592006%_ + (lambda (_%g8283582875%_ + _%g8283682877%_) + (let* ((_%g8289682904%_ + (lambda (_%g8289782900%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8203782040%_))) - (_%g8203582063%_ - (lambda (_%g8203782048%_) - ((lambda (_%L82051%_) + _%g8289782900%_))) + (_%g8289582923%_ + (lambda (_%g8289782908%_) + ((lambda (_%g8289882911%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L82017%_ + (cons _%g8283682877%_ (cons (gx#datum->syntax '#f ':-) - (cons _%L82051%_ '()))))) - _%g8203782048%_)))) + (cons _%g8289882911%_ '()))))) + _%g8289782908%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8203582063%_ + (_%g8289582923%_ (hash-ref - _%slot-type-table80975%_ - _%slot80977%_)))))) - (let ((_%__match9116091161%_ - (lambda (_%e8197282074%_ - _%hd8197382078%_ - _%tl8197482081%_) - (let ((_%L82084%_ - _%hd8197382078%_)) + _%slot-type-table81835%_ + _%slot81837%_)))))) + (let ((_%__match9201392014%_ + (lambda (_%e8283282934%_ + _%hd8283382938%_ + _%tl8283482941%_) + (let ((_%g8283182944%_ + _%hd8283382938%_)) (if (or (gx#free-identifier=? - _%L82084%_ + _%g8283182944%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L82084%_ + _%g8283182944%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L82084%_ + _%g8283182944%_ (gx#datum->syntax '#f ':-))) - (_%__kont9115091151%_ - _%L82084%_) + (_%__kont9200392004%_ + _%g8283182944%_) (if (gx#identifier? - _%hd8197382078%_) + _%hd8283382938%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92024_| - _%hd8197382078%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92889_| + _%hd8283382938%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl8197482081%_) - (let ((_%e8198082005%_ - (gx#syntax-e _%tl8197482081%_))) - (let ((_%tl8198282012%_ + _%tl8283482941%_) + (let ((_%e8284082865%_ + (gx#syntax-e _%tl8283482941%_))) + (let ((_%tl8284282872%_ (let () (declare (not safe)) - (##cdr _%e8198082005%_))) - (_%hd8198182009%_ + (##cdr _%e8284082865%_))) + (_%hd8284182869%_ (let () (declare (not safe)) - (##car _%e8198082005%_)))) - (_%__kont9115291153%_ - _%tl8198282012%_ - _%hd8198182009%_))) - (let () (declare (not safe)) (_%g8196981988%_))) - (let () (declare (not safe)) (_%g8196981988%_))) - (let () (declare (not safe)) (_%g8196981988%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx9114791148%_) - (let ((_%e8197282074%_ + (##car _%e8284082865%_)))) + (_%__kont9200592006%_ + _%tl8284282872%_ + _%hd8284182869%_))) + (let () (declare (not safe)) (_%g8282982848%_))) + (let () (declare (not safe)) (_%g8282982848%_))) + (let () (declare (not safe)) (_%g8282982848%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%__stx9200092001%_) + (let ((_%e8283282934%_ (gx#syntax-e - _%__stx9114791148%_))) - (let ((_%tl8197482081%_ + _%__stx9200092001%_))) + (let ((_%tl8283482941%_ (let () (declare (not safe)) - (##cdr _%e8197282074%_))) - (_%hd8197382078%_ + (##cdr _%e8283282934%_))) + (_%hd8283382938%_ (let () (declare (not safe)) - (##car _%e8197282074%_)))) - (_%__match9116091161%_ - _%e8197282074%_ - _%hd8197382078%_ - _%tl8197482081%_))) + (##car _%e8283282934%_)))) + (_%__match9201392014%_ + _%e8283282934%_ + _%hd8283382938%_ + _%tl8283482941%_))) (let () (declare (not safe)) - (_%g8196981988%_)))))))) - (_%__kont9126891269%_ - (lambda (_%L81796%_) - (let* ((_%__stx9112191122%_ _%b80980%_) - (_%g8181281826%_ + (_%g8282982848%_)))))))) + (_%__kont9212192122%_ + (lambda (_%g8191382656%_) + (let* ((_%__stx9197491975%_ _%b81840%_) + (_%g8267282686%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9112191122%_)))) - (let ((_%__kont9112491125%_ - (lambda (_%L81899%_) - (let* ((_%g8191281920%_ - (lambda (_%g8191381916%_) + _%__stx9197491975%_)))) + (let ((_%__kont9197791978%_ + (lambda (_%g8267482759%_) + (let* ((_%g8277282780%_ + (lambda (_%g8277382776%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8191381916%_))) - (_%g8191181939%_ - (lambda (_%g8191381924%_) - ((lambda (_%L81927%_) + _%g8277382776%_))) + (_%g8277182799%_ + (lambda (_%g8277382784%_) + ((lambda (_%g8277482787%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f 'and) - (cons _%L81796%_ - (cons _%L81899%_ '()))) + (cons _%g8191382656%_ + (cons _%g8267482759%_ + '()))) '())) (cons (gx#datum->syntax '#f ':) - (cons _%L81927%_ '()))))) - _%g8191381924%_)))) + (cons _%g8277482787%_ '()))))) + _%g8277382784%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8191181939%_ + (_%g8277182799%_ (hash-ref - _%slot-type-table80975%_ - _%slot80977%_))))) - (_%__kont9112691127%_ + _%slot-type-table81835%_ + _%slot81837%_))))) + (_%__kont9197991980%_ (lambda () - (let* ((_%g8183781845%_ - (lambda (_%g8183881841%_) + (let* ((_%g8269782705%_ + (lambda (_%g8269882701%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8183881841%_))) - (_%g8183681868%_ - (lambda (_%g8183881849%_) - ((lambda (_%L81852%_) + _%g8269882701%_))) + (_%g8269682728%_ + (lambda (_%g8269882709%_) + ((lambda (_%g8269982712%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L81796%_ + (cons _%g8191382656%_ (cons (gx#datum->syntax '#f ':) - (cons _%L81852%_ '()))))) - _%g8183881849%_)))) + (cons _%g8269982712%_ '()))))) + _%g8269882709%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8183681868%_ + (_%g8269682728%_ (hash-ref - _%slot-type-table80975%_ - _%slot80977%_)))))) - (if (gx#stx-pair? _%__stx9112191122%_) - (let ((_%e8181581879%_ + _%slot-type-table81835%_ + _%slot81837%_)))))) + (if (gx#stx-pair? _%__stx9197491975%_) + (let ((_%e8267582739%_ (gx#syntax-e - _%__stx9112191122%_))) - (let ((_%tl8181781886%_ + _%__stx9197491975%_))) + (let ((_%tl8267782746%_ (let () (declare (not safe)) - (##cdr _%e8181581879%_))) - (_%hd8181681883%_ + (##cdr _%e8267582739%_))) + (_%hd8267682743%_ (let () (declare (not safe)) - (##car _%e8181581879%_)))) + (##car _%e8267582739%_)))) (if (gx#identifier? - _%hd8181681883%_) + _%hd8267682743%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92025_| - _%hd8181681883%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92890_| + _%hd8267682743%_) (if (gx#stx-pair? - _%tl8181781886%_) - (let ((_%e8181881889%_ + _%tl8267782746%_) + (let ((_%e8267882749%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8181781886%_))) - (let ((_%tl8182081896%_ + (gx#syntax-e _%tl8267782746%_))) + (let ((_%tl8268082756%_ (let () (declare (not safe)) - (##cdr _%e8181881889%_))) - (_%hd8181981893%_ + (##cdr _%e8267882749%_))) + (_%hd8267982753%_ (let () (declare (not safe)) - (##car _%e8181881889%_)))) - (_%__kont9112491125%_ _%hd8181981893%_))) - (_%__kont9112691127%_)) - (_%__kont9112691127%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont9112691127%_)))) - (_%__kont9112691127%_)))))) - (_%__kont9127091271%_ - (lambda (_%L81517%_) - (let* ((_%__stx9105591056%_ _%b80980%_) - (_%g8153581562%_ + (##car _%e8267882749%_)))) + (_%__kont9197791978%_ _%hd8267982753%_))) + (_%__kont9197991980%_)) + (_%__kont9197991980%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont9197991980%_)))) + (_%__kont9197991980%_)))))) + (_%__kont9212392124%_ + (lambda (_%g8192382377%_) + (let* ((_%__stx9190891909%_ _%b81840%_) + (_%g8239582422%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9105591056%_)))) - (let ((_%__kont9105891059%_ + _%__stx9190891909%_)))) + (let ((_%__kont9191191912%_ (lambda () - (let* ((_%g8171981727%_ - (lambda (_%g8172081723%_) + (let* ((_%g8257982587%_ + (lambda (_%g8258082583%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8172081723%_))) - (_%g8171881751%_ - (lambda (_%g8172081731%_) - ((lambda (_%L81734%_) + _%g8258082583%_))) + (_%g8257882611%_ + (lambda (_%g8258082591%_) + ((lambda (_%g8258182594%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L81517%_ + (cons _%g8192382377%_ (cons (gx#datum->syntax '#f ':?) - (cons _%L81734%_ '()))))) - _%g8172081731%_)))) + (cons _%g8258182594%_ '()))))) + _%g8258082591%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8171881751%_ + (_%g8257882611%_ (hash-ref - _%slot-type-table80975%_ - _%slot80977%_))))) - (_%__kont9106091061%_ - (lambda (_%L81652%_) - (let* ((_%g8166781675%_ - (lambda (_%g8166881671%_) + _%slot-type-table81835%_ + _%slot81837%_))))) + (_%__kont9191391914%_ + (lambda (_%g8240082512%_) + (let* ((_%g8252782535%_ + (lambda (_%g8252882531%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8166881671%_))) - (_%g8166681694%_ - (lambda (_%g8166881679%_) - ((lambda (_%L81682%_) + _%g8252882531%_))) + (_%g8252682554%_ + (lambda (_%g8252882539%_) + ((lambda (_%g8252982542%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f 'and) - (cons _%L81517%_ - (cons _%L81652%_ '()))) + (cons _%g8192382377%_ + (cons _%g8240082512%_ + '()))) '())) (cons (gx#datum->syntax '#f ':?) - (cons _%L81682%_ '()))))) - _%g8166881679%_)))) + (cons _%g8252982542%_ '()))))) + _%g8252882539%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8166681694%_ + (_%g8252682554%_ (hash-ref - _%slot-type-table80975%_ - _%slot80977%_))))) - (_%__kont9106291063%_ - (lambda (_%L81600%_) + _%slot-type-table81835%_ + _%slot81837%_))))) + (_%__kont9191591916%_ + (lambda (_%g8241082460%_) (gx#raise-syntax-error '#f '"incompatible slot contracts" - _%stx76510%_ - _%slot80977%_ - _%a80979%_ - _%b80980%_))) - (_%__kont9106491065%_ + _%stx77426%_ + _%slot81837%_ + _%a81839%_ + _%b81840%_))) + (_%__kont9191791918%_ (lambda () (gx#raise-syntax-error '#f '"incompatible slot contracts" - _%stx76510%_ - _%slot80977%_ - _%a80979%_ - _%b80980%_)))) - (if (gx#stx-pair? _%__stx9105591056%_) - (let ((_%e8153781705%_ + _%stx77426%_ + _%slot81837%_ + _%a81839%_ + _%b81840%_)))) + (if (gx#stx-pair? _%__stx9190891909%_) + (let ((_%e8239782565%_ (gx#syntax-e - _%__stx9105591056%_))) - (let ((_%tl8153981712%_ + _%__stx9190891909%_))) + (let ((_%tl8239982572%_ (let () (declare (not safe)) - (##cdr _%e8153781705%_))) - (_%hd8153881709%_ + (##cdr _%e8239782565%_))) + (_%hd8239882569%_ (let () (declare (not safe)) - (##car _%e8153781705%_)))) + (##car _%e8239782565%_)))) (if (gx#identifier? - _%hd8153881709%_) + _%hd8239882569%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92026_| - _%hd8153881709%_) - (_%__kont9105891059%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92891_| + _%hd8239882569%_) + (_%__kont9191191912%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92027_| - _%hd8153881709%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92892_| + _%hd8239882569%_) (if (gx#stx-pair? - _%tl8153981712%_) - (let ((_%e8154481632%_ + _%tl8239982572%_) + (let ((_%e8240482492%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8153981712%_))) - (let ((_%tl8154681639%_ + (gx#syntax-e _%tl8239982572%_))) + (let ((_%tl8240682499%_ (let () (declare (not safe)) - (##cdr _%e8154481632%_))) - (_%hd8154581636%_ + (##cdr _%e8240482492%_))) + (_%hd8240582496%_ (let () (declare (not safe)) - (##car _%e8154481632%_)))) - (if (gx#stx-pair? _%tl8154681639%_) - (let ((_%e8154781642%_ - (gx#syntax-e _%tl8154681639%_))) - (let ((_%tl8154981649%_ + (##car _%e8240482492%_)))) + (if (gx#stx-pair? _%tl8240682499%_) + (let ((_%e8240782502%_ + (gx#syntax-e _%tl8240682499%_))) + (let ((_%tl8240982509%_ (let () (declare (not safe)) - (##cdr _%e8154781642%_))) - (_%hd8154881646%_ + (##cdr _%e8240782502%_))) + (_%hd8240882506%_ (let () (declare (not safe)) - (##car _%e8154781642%_)))) - (if (gx#identifier? _%hd8154881646%_) + (##car _%e8240782502%_)))) + (if (gx#identifier? _%hd8240882506%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92028_| - _%hd8154881646%_) - (_%__kont9106091061%_ - _%hd8154581636%_) - (_%__kont9106291063%_ - _%hd8154581636%_)) - (_%__kont9106291063%_ - _%hd8154581636%_)))) - (_%__kont9106291063%_ _%hd8154581636%_)))) - (_%__kont9106491065%_)) - (_%__kont9106491065%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont9106491065%_)))) - (_%__kont9106491065%_)))))) - (_%__kont9127291273%_ - (lambda (_%L81334%_) - (let* ((_%__stx9102391024%_ _%b80980%_) - (_%g8135081368%_ + |gerbil/core/contract~TypedDefinitions[1]#_g92893_| + _%hd8240882506%_) + (_%__kont9191391914%_ + _%hd8240582496%_) + (_%__kont9191591916%_ + _%hd8240582496%_)) + (_%__kont9191591916%_ + _%hd8240582496%_)))) + (_%__kont9191591916%_ _%hd8240582496%_)))) + (_%__kont9191791918%_)) + (_%__kont9191791918%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont9191791918%_)))) + (_%__kont9191791918%_)))))) + (_%__kont9212592126%_ + (lambda (_%g8193382194%_) + (let* ((_%__stx9187691877%_ _%b81840%_) + (_%g8221082228%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9102391024%_)))) - (let ((_%__kont9102691027%_ - (lambda (_%L81457%_) - (let ((_%$e81468%_ + _%__stx9187691877%_)))) + (let ((_%__kont9187991880%_ + (lambda (_%g8221282317%_) + (let ((_%$e82328%_ (gx#free-identifier=? - _%L81457%_ + _%g8221282317%_ (gx#datum->syntax '#f ':)))) - (if _%$e81468%_ - _%$e81468%_ - (let ((_%$e81472%_ + (if _%$e82328%_ + _%$e82328%_ + (let ((_%$e82332%_ (gx#free-identifier=? - _%L81457%_ + _%g8221282317%_ (gx#datum->syntax '#f ':?)))) - (if _%$e81472%_ - _%$e81472%_ + (if _%$e82332%_ + _%$e82332%_ (gx#free-identifier=? - _%L81457%_ + _%g8221282317%_ (gx#datum->syntax '#f ':-)))))))) - (_%__kont9102891029%_ - (lambda (_%L81395%_) - (let* ((_%g8140981417%_ - (lambda (_%g8141081413%_) + (_%__kont9188191882%_ + (lambda (_%g8221682255%_) + (let* ((_%g8226982277%_ + (lambda (_%g8227082273%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8141081413%_))) - (_%g8140881436%_ - (lambda (_%g8141081421%_) - ((lambda (_%L81424%_) + _%g8227082273%_))) + (_%g8226882296%_ + (lambda (_%g8227082281%_) + ((lambda (_%g8227182284%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f 'and) - (cons _%L81334%_ - (cons _%L81395%_ '()))) + (cons _%g8193382194%_ + (cons _%g8221682255%_ + '()))) '())) (cons (gx#datum->syntax '#f ':-) - (cons _%L81424%_ '()))))) - _%g8141081421%_)))) + (cons _%g8227182284%_ '()))))) + _%g8227082281%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8140881436%_ + (_%g8226882296%_ (hash-ref - _%slot-type-table80975%_ - _%slot80977%_)))))) - (if (gx#stx-pair? _%__stx9102391024%_) - (let ((_%e8135381447%_ + _%slot-type-table81835%_ + _%slot81837%_)))))) + (if (gx#stx-pair? _%__stx9187691877%_) + (let ((_%e8221382307%_ (gx#syntax-e - _%__stx9102391024%_))) - (let ((_%tl8135581454%_ + _%__stx9187691877%_))) + (let ((_%tl8221582314%_ (let () (declare (not safe)) - (##cdr _%e8135381447%_))) - (_%hd8135481451%_ + (##cdr _%e8221382307%_))) + (_%hd8221482311%_ (let () (declare (not safe)) - (##car _%e8135381447%_)))) - (_%__kont9102691027%_ - _%hd8135481451%_))) + (##car _%e8221382307%_)))) + (_%__kont9187991880%_ + _%hd8221482311%_))) (let () (declare (not safe)) - (_%g8135081368%_))))))) - (_%__kont9127491275%_ - (lambda (_%L81122%_) - (let* ((_%__stx9099190992%_ _%b80980%_) - (_%g8113681154%_ + (_%g8221082228%_))))))) + (_%__kont9212792128%_ + (lambda (_%g8194381982%_) + (let* ((_%__stx9184491845%_ _%b81840%_) + (_%g8199682014%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9099190992%_)))) - (let ((_%__kont9099490995%_ - (lambda (_%L81237%_ _%L81239%_) - (let* ((_%g8126281270%_ - (lambda (_%g8126381266%_) + _%__stx9184491845%_)))) + (let ((_%__kont9184791848%_ + (lambda (_%g8199882097%_ + _%g8199982099%_) + (let* ((_%g8212282130%_ + (lambda (_%g8212382126%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8126381266%_))) - (_%g8126181289%_ - (lambda (_%g8126381274%_) - ((lambda (_%L81277%_) + _%g8212382126%_))) + (_%g8212182149%_ + (lambda (_%g8212382134%_) + ((lambda (_%g8212482137%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f 'and) - (cons _%L81122%_ - (cons _%L81239%_ '()))) + (cons _%g8194381982%_ + (cons _%g8199982099%_ + '()))) '())) (cons (gx#datum->syntax '#f ':) - (cons _%L81277%_ '()))))) - _%g8126381274%_)))) + (cons _%g8212482137%_ '()))))) + _%g8212382134%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8126181289%_ + (_%g8212182149%_ (hash-ref - _%slot-type-table80975%_ - _%slot80977%_))))) - (_%__kont9099690997%_ + _%slot-type-table81835%_ + _%slot81837%_))))) + (_%__kont9184991850%_ (lambda () - (let* ((_%g8116581173%_ - (lambda (_%g8116681169%_) + (let* ((_%g8202582033%_ + (lambda (_%g8202682029%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8116681169%_))) - (_%g8116481196%_ - (lambda (_%g8116681177%_) - ((lambda (_%L81180%_) + _%g8202682029%_))) + (_%g8202482056%_ + (lambda (_%g8202682037%_) + ((lambda (_%g8202782040%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L81122%_ + (cons _%g8194381982%_ (cons (gx#datum->syntax '#f ':) - (cons _%L81180%_ '()))))) - _%g8116681177%_)))) + (cons _%g8202782040%_ '()))))) + _%g8202682037%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8116481196%_ + (_%g8202482056%_ (hash-ref - _%slot-type-table80975%_ - _%slot80977%_)))))) - (let ((_%__match9102091021%_ - (lambda (_%e8114081207%_ - _%hd8114181211%_ - _%tl8114281214%_ - _%e8114381217%_ - _%hd8114481221%_ - _%tl8114581224%_ - _%e8114681227%_ - _%hd8114781231%_ - _%tl8114881234%_) - (let ((_%L81237%_ - _%hd8114781231%_) - (_%L81239%_ - _%hd8114481221%_)) + _%slot-type-table81835%_ + _%slot81837%_)))))) + (let ((_%__match9187391874%_ + (lambda (_%e8200082067%_ + _%hd8200182071%_ + _%tl8200282074%_ + _%e8200382077%_ + _%hd8200482081%_ + _%tl8200582084%_ + _%e8200682087%_ + _%hd8200782091%_ + _%tl8200882094%_) + (let ((_%g8199882097%_ + _%hd8200782091%_) + (_%g8199982099%_ + _%hd8200482081%_)) (if (or (gx#free-identifier=? - _%L81237%_ + _%g8199882097%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L81237%_ + _%g8199882097%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L81237%_ + _%g8199882097%_ (gx#datum->syntax '#f ':-))) - (_%__kont9099490995%_ - _%L81237%_ - _%L81239%_) - (_%__kont9099690997%_)))))) - (if (gx#stx-pair? _%__stx9099190992%_) - (let ((_%e8114081207%_ + (_%__kont9184791848%_ + _%g8199882097%_ + _%g8199982099%_) + (_%__kont9184991850%_)))))) + (if (gx#stx-pair? _%__stx9184491845%_) + (let ((_%e8200082067%_ (gx#syntax-e - _%__stx9099190992%_))) - (let ((_%tl8114281214%_ + _%__stx9184491845%_))) + (let ((_%tl8200282074%_ (let () (declare (not safe)) - (##cdr _%e8114081207%_))) - (_%hd8114181211%_ + (##cdr _%e8200082067%_))) + (_%hd8200182071%_ (let () (declare (not safe)) - (##car _%e8114081207%_)))) + (##car _%e8200082067%_)))) (if (gx#identifier? - _%hd8114181211%_) + _%hd8200182071%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92029_| - _%hd8114181211%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92894_| + _%hd8200182071%_) (if (gx#stx-pair? - _%tl8114281214%_) - (let ((_%e8114381217%_ + _%tl8200282074%_) + (let ((_%e8200382077%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8114281214%_))) - (let ((_%tl8114581224%_ + (gx#syntax-e _%tl8200282074%_))) + (let ((_%tl8200582084%_ (let () (declare (not safe)) - (##cdr _%e8114381217%_))) - (_%hd8114481221%_ + (##cdr _%e8200382077%_))) + (_%hd8200482081%_ (let () (declare (not safe)) - (##car _%e8114381217%_)))) - (if (gx#stx-pair? _%tl8114581224%_) - (let ((_%e8114681227%_ - (gx#syntax-e _%tl8114581224%_))) - (let ((_%tl8114881234%_ + (##car _%e8200382077%_)))) + (if (gx#stx-pair? _%tl8200582084%_) + (let ((_%e8200682087%_ + (gx#syntax-e _%tl8200582084%_))) + (let ((_%tl8200882094%_ (let () (declare (not safe)) - (##cdr _%e8114681227%_))) - (_%hd8114781231%_ + (##cdr _%e8200682087%_))) + (_%hd8200782091%_ (let () (declare (not safe)) - (##car _%e8114681227%_)))) - (_%__match9102091021%_ - _%e8114081207%_ - _%hd8114181211%_ - _%tl8114281214%_ - _%e8114381217%_ - _%hd8114481221%_ - _%tl8114581224%_ - _%e8114681227%_ - _%hd8114781231%_ - _%tl8114881234%_))) - (_%__kont9099690997%_)))) - (_%__kont9099690997%_)) - (_%__kont9099690997%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont9099690997%_)))) - (_%__kont9099690997%_)))))))) - (if (gx#stx-pair? _%__stx9125991260%_) - (let ((_%e8104482350%_ - (gx#syntax-e _%__stx9125991260%_))) - (let ((_%tl8104682357%_ + (##car _%e8200682087%_)))) + (_%__match9187391874%_ + _%e8200082067%_ + _%hd8200182071%_ + _%tl8200282074%_ + _%e8200382077%_ + _%hd8200482081%_ + _%tl8200582084%_ + _%e8200682087%_ + _%hd8200782091%_ + _%tl8200882094%_))) + (_%__kont9184991850%_)))) + (_%__kont9184991850%_)) + (_%__kont9184991850%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont9184991850%_)))) + (_%__kont9184991850%_)))))))) + (if (gx#stx-pair? _%__stx9211292113%_) + (let ((_%e8190483210%_ + (gx#syntax-e _%__stx9211292113%_))) + (let ((_%tl8190683217%_ (let () (declare (not safe)) - (##cdr _%e8104482350%_))) - (_%hd8104582354%_ + (##cdr _%e8190483210%_))) + (_%hd8190583214%_ (let () (declare (not safe)) - (##car _%e8104482350%_)))) - (if (gx#identifier? _%hd8104582354%_) + (##car _%e8190483210%_)))) + (if (gx#identifier? _%hd8190583214%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92030_| - _%hd8104582354%_) - (_%__kont9126291263%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92895_| + _%hd8190583214%_) + (_%__kont9211592116%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92031_| - _%hd8104582354%_) - (_%__kont9126491265%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92896_| + _%hd8190583214%_) + (_%__kont9211792118%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92032_| - _%hd8104582354%_) - (_%__kont9126691267%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92897_| + _%hd8190583214%_) + (_%__kont9211992120%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92033_| - _%hd8104582354%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92898_| + _%hd8190583214%_) (if (gx#stx-pair? - _%tl8104682357%_) - (let ((_%e8105781776%_ + _%tl8190683217%_) + (let ((_%e8191782636%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8104682357%_))) - (let ((_%tl8105981783%_ + (gx#syntax-e _%tl8190683217%_))) + (let ((_%tl8191982643%_ (let () (declare (not safe)) - (##cdr _%e8105781776%_))) - (_%hd8105881780%_ + (##cdr _%e8191782636%_))) + (_%hd8191882640%_ (let () (declare (not safe)) - (##car _%e8105781776%_)))) - (if (gx#stx-pair? _%tl8105981783%_) - (let ((_%e8106081786%_ - (gx#syntax-e _%tl8105981783%_))) - (let ((_%tl8106281793%_ + (##car _%e8191782636%_)))) + (if (gx#stx-pair? _%tl8191982643%_) + (let ((_%e8192082646%_ + (gx#syntax-e _%tl8191982643%_))) + (let ((_%tl8192282653%_ (let () (declare (not safe)) - (##cdr _%e8106081786%_))) - (_%hd8106181790%_ + (##cdr _%e8192082646%_))) + (_%hd8192182650%_ (let () (declare (not safe)) - (##car _%e8106081786%_)))) - (if (gx#identifier? _%hd8106181790%_) + (##car _%e8192082646%_)))) + (if (gx#identifier? _%hd8192182650%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92034_| - _%hd8106181790%_) - (_%__kont9126891269%_ _%hd8105881780%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92899_| + _%hd8192182650%_) + (_%__kont9212192122%_ _%hd8191882640%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92035_| - _%hd8106181790%_) - (_%__kont9127091271%_ - _%hd8105881780%_) + |gerbil/core/contract~TypedDefinitions[1]#_g92900_| + _%hd8192182650%_) + (_%__kont9212392124%_ + _%hd8191882640%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g92036_| - _%hd8106181790%_) - (_%__kont9127291273%_ - _%hd8105881780%_) - (_%__kont9127491275%_ - _%hd8105881780%_)))) - (_%__kont9127491275%_ _%hd8105881780%_)))) - (_%__kont9127491275%_ _%hd8105881780%_)))) - (let () (declare (not safe)) (_%g8104281095%_))) - (let () (declare (not safe)) (_%g8104281095%_)))))) + |gerbil/core/contract~TypedDefinitions[1]#_g92901_| + _%hd8192182650%_) + (_%__kont9212592126%_ + _%hd8191882640%_) + (_%__kont9212792128%_ + _%hd8191882640%_)))) + (_%__kont9212792128%_ _%hd8191882640%_)))) + (_%__kont9212792128%_ _%hd8191882640%_)))) + (let () (declare (not safe)) (_%g8190281955%_))) + (let () (declare (not safe)) (_%g8190281955%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8104281095%_))))) + (_%g8190281955%_))))) (let () (declare (not safe)) - (_%g8104281095%_))))))))) - (_%get-slot-defaults76529%_ - (lambda (_%slots80961%_ _%mixin-slots80963%_ _%super80964%_) - (_%get-slot-table76527%_ - _%slots80961%_ - _%mixin-slots80963%_ - _%super80964%_ - _%slot-default76524%_ + (_%g8190281955%_))))))))) + (_%get-slot-defaults77445%_ + (lambda (_%slots81821%_ _%mixin-slots81823%_ _%super81824%_) + (_%get-slot-table77443%_ + _%slots81821%_ + _%mixin-slots81823%_ + _%super81824%_ + _%slot-default77440%_ |gerbil/core/contract~Using[1]#!class-slot-default| - (lambda (_%slot80966%_ _%a80968%_ _%b80969%_) - _%a80968%_)))) - (_%update-slot-types!76530%_ - (lambda (_%slots80931%_ _%slot-type-table80933%_) + (lambda (_%slot81826%_ _%a81828%_ _%b81829%_) + _%a81828%_)))) + (_%update-slot-types!77446%_ + (lambda (_%slots81792%_ _%slot-type-table81794%_) (for-each - (lambda (_%slot-spec80935%_) - (let* ((_%slot80938%_ - (_%slot-name76516%_ _%slot-spec80935%_)) - (_%slot-type8094080942%_ - (_%slot-contract-type76520%_ - _%slot-spec80935%_))) - (if _%slot-type8094080942%_ - (let* ((_%slot-type80946%_ - _%slot-type8094080942%_) - (_%$e80949%_ + (lambda (_%slot-spec81796%_) + (let* ((_%slot81799%_ + (_%slot-name77432%_ _%slot-spec81796%_)) + (_%slot-type8180181803%_ + (_%slot-contract-type77436%_ + _%slot-spec81796%_))) + (if _%slot-type8180181803%_ + (let* ((_%slot-type81806%_ + _%slot-type8180181803%_) + (_%$e81809%_ (hash-get - _%slot-type-table80933%_ - _%slot80938%_))) - (if _%$e80949%_ - ((lambda (_%other-slot-type80953%_) - (let ((_%slot-type80956%_ - (_%infer-slot-type76525%_ - _%slot80938%_ - _%other-slot-type80953%_ - _%slot-type80946%_))) + _%slot-type-table81794%_ + _%slot81799%_))) + (if _%$e81809%_ + ((lambda (_%other-slot-type81813%_) + (let ((_%slot-type81816%_ + (_%infer-slot-type77441%_ + _%slot81799%_ + _%other-slot-type81813%_ + _%slot-type81806%_))) (hash-put! - _%slot-type-table80933%_ - _%slot80938%_ - _%slot-type80956%_))) - _%$e80949%_) + _%slot-type-table81794%_ + _%slot81799%_ + _%slot-type81816%_))) + _%$e81809%_) (hash-put! - _%slot-type-table80933%_ - _%slot80938%_ - _%slot-type80946%_))) + _%slot-type-table81794%_ + _%slot81799%_ + _%slot-type81806%_))) '#f))) - _%slots80931%_))) - (_%syntax-local-value/context76531%_ - (lambda (_%id80925%_) + _%slots81792%_))) + (_%syntax-local-value/context77447%_ + (lambda (_%id81786%_) (gx#syntax-local-value - _%id80925%_ - (lambda (_%id80928%_) + _%id81786%_ + (lambda (_%id81789%_) (gx#raise-syntax-error '#f '"not a class meta type binding" - _%stx76510%_ - _%id80928%_))))) - (_%order-slots76532%_ - (lambda (_%slots80856%_ _%super80858%_) - (let ((_g92037_ + _%stx77426%_ + _%id81789%_))))) + (_%order-slots77448%_ + (lambda (_%slots81717%_ _%super81719%_) + (let ((_g92902_ (c4-linearize '() - _%super80858%_ + _%super81719%_ 'get-precedence-list: - (lambda (_%klass-id80860%_) - (cons _%klass-id80860%_ - (let ((__tmp92039 - (_%syntax-local-value/context76531%_ - _%klass-id80860%_))) + (lambda (_%klass-id81721%_) + (cons _%klass-id81721%_ + (let ((__tmp92904 + (_%syntax-local-value/context77447%_ + _%klass-id81721%_))) (declare (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - __tmp92039)))) + __tmp92904)))) 'struct: - (lambda (_%klass-id80863%_) - (let ((__obj91712 - (_%syntax-local-value/context76531%_ - _%klass-id80863%_))) + (lambda (_%klass-id81724%_) + (let ((__obj92565 + (_%syntax-local-value/context77447%_ + _%klass-id81724%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91712 + __obj92565 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91712 - '7 + __obj92565 + '8 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91712 + __obj92565 'struct?)))) 'eq: gx#free-identifier=?))) (begin - (let ((_g92038_ + (let ((_g92903_ (let () (declare (not safe)) - (if (##values? _g92037_) - (##values-length _g92037_) + (if (##values? _g92902_) + (##values-length _g92902_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92038_ 2))) - (error "Context expects 2 values" _g92038_))) - (let ((_%precedence-list80866%_ + (##fx= _g92903_ 2))) + (error "Context expects 2 values" _g92903_))) + (let ((_%precedence-list81727%_ (let () (declare (not safe)) - (##values-ref _g92037_ 0))) - (_%base-struct80868%_ + (##values-ref _g92902_ 0))) + (_%base-struct81729%_ (let () (declare (not safe)) - (##values-ref _g92037_ 1)))) - (let* ((_%base-fields80882%_ - (if _%base-struct80868%_ - (let* ((_%klass80870%_ + (##values-ref _g92902_ 1)))) + (let* ((_%base-fields81743%_ + (if _%base-struct81729%_ + (let* ((_%klass81731%_ (gx#syntax-local-value - _%base-struct80868%_)) - (_%$e80873%_ - (let ((__obj91713 - _%klass80870%_)) + _%base-struct81729%_)) + (_%$e81734%_ + (let ((__obj92566 + _%klass81731%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91713 + __obj92566 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91713 - '6 + __obj92566 + '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91713 + __obj92566 'ordered-slots))))) - (if _%$e80873%_ - _%$e80873%_ - (let ((_%ordered80879%_ - (_%order-slots76532%_ - (let ((__obj91714 - _%klass80870%_)) + (if _%$e81734%_ + _%$e81734%_ + (let ((_%ordered81740%_ + (_%order-slots77448%_ + (let ((__obj92567 + _%klass81731%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91714 + __obj92567 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91714 - '4 + __obj92567 + '5 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91714 + __obj92567 'slots))) - (let ((__obj91715 - _%klass80870%_)) + (let ((__obj92568 + _%klass81731%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91715 + __obj92568 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91715 - '3 + __obj92568 + '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91715 + __obj92568 'super)))))) - (let ((__obj91716 - _%klass80870%_)) + (let ((__obj92569 + _%klass81731%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91716 + __obj92569 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj91716 - _%ordered80879%_ - '6 + __obj92569 + _%ordered81740%_ + '7 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj91716 + __obj92569 'ordered-slots - _%ordered80879%_))) - _%ordered80879%_))) + _%ordered81740%_))) + _%ordered81740%_))) '())) - (_%r-fields80885%_ - (reverse _%base-fields80882%_)) - (_%seen-slots80896%_ - (let ((_%tab80888%_ (make-hash-table-eq))) + (_%r-fields81746%_ + (reverse _%base-fields81743%_)) + (_%seen-slots81757%_ + (let ((_%tab81749%_ (make-hash-table-eq))) (for-each - (lambda (_%g8089080892%_) + (lambda (_%g8175181753%_) (hash-put! - _%tab80888%_ - _%g8089080892%_ + _%tab81749%_ + _%g8175181753%_ '#t)) - _%base-fields80882%_) - _%tab80888%_)) - (_%process-slot80902%_ - (lambda (_%slot80899%_) + _%base-fields81743%_) + _%tab81749%_)) + (_%process-slot81763%_ + (lambda (_%slot81760%_) (if (hash-get - _%seen-slots80896%_ - _%slot80899%_) + _%seen-slots81757%_ + _%slot81760%_) '#!void (begin (hash-put! - _%seen-slots80896%_ - _%slot80899%_ + _%seen-slots81757%_ + _%slot81760%_ '#t) - (set! _%r-fields80885%_ - (cons _%slot80899%_ - _%r-fields80885%_))))))) + (set! _%r-fields81746%_ + (cons _%slot81760%_ + _%r-fields81746%_))))))) (for-each - (lambda (_%mixin80907%_) - (let ((_%klass80910%_ - (gx#syntax-local-value _%mixin80907%_))) - (if (let ((__obj91717 _%klass80910%_)) + (lambda (_%mixin81768%_) + (let ((_%klass81771%_ + (gx#syntax-local-value _%mixin81768%_))) + (if (let ((__obj92570 _%klass81771%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91717 + __obj92570 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91717 - '7 + __obj92570 + '8 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91717 + __obj92570 'struct?))) '#!void - (let ((_%$e80913%_ - (let ((__obj91718 _%klass80910%_)) + (let ((_%$e81774%_ + (let ((__obj92571 _%klass81771%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91718 + __obj92571 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91718 - '6 + __obj92571 + '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91718 + __obj92571 'ordered-slots))))) - (if _%$e80913%_ - ((lambda (_%ordered80917%_) + (if _%$e81774%_ + ((lambda (_%ordered81778%_) (for-each - _%process-slot80902%_ - _%ordered80917%_)) - _%$e80913%_) - (let ((_%ordered80922%_ - (_%order-slots76532%_ - (let ((__obj91719 - _%klass80910%_)) + _%process-slot81763%_ + _%ordered81778%_)) + _%$e81774%_) + (let ((_%ordered81783%_ + (_%order-slots77448%_ + (let ((__obj92572 + _%klass81771%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91719 + __obj92572 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91719 - '4 + __obj92572 + '5 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91719 + __obj92572 'slots))) - (let ((__obj91720 - _%klass80910%_)) + (let ((__obj92573 + _%klass81771%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91720 + __obj92573 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91720 - '3 + __obj92573 + '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91720 + __obj92573 'super)))))) - (let ((__obj91721 _%klass80910%_)) + (let ((__obj92574 _%klass81771%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91721 + __obj92574 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj91721 - _%ordered80922%_ - '6 + __obj92574 + _%ordered81783%_ + '7 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj91721 + __obj92574 'ordered-slots - _%ordered80922%_))) + _%ordered81783%_))) (for-each - _%process-slot80902%_ - _%ordered80922%_))))))) - _%precedence-list80866%_) - (for-each _%process-slot80902%_ _%slots80856%_) - (reverse _%r-fields80885%_))))))) - (_%wrap76533%_ - (lambda (_%e-stx80853%_) + _%process-slot81763%_ + _%ordered81783%_))))))) + _%precedence-list81727%_) + (for-each _%process-slot81763%_ _%slots81717%_) + (reverse _%r-fields81746%_))))))) + (_%wrap77449%_ + (lambda (_%e-stx81714%_) (gx#stx-wrap-source - _%e-stx80853%_ - (gx#stx-source _%stx76510%_)))) - (_%generate-defclass76534%_ - (lambda (_%id76668%_ - _%super-ref76670%_ - _%slots76671%_ - _%body76672%_) - (letrec ((_%make-id76674%_ - (lambda _%args80850%_ + _%e-stx81714%_ + (gx#stx-source _%stx77426%_)))) + (_%generate-defclass77450%_ + (lambda (_%id77582%_ + _%super-ref77584%_ + _%slots77585%_ + _%body77586%_) + (letrec ((_%make-id77588%_ + (lambda _%args81711%_ (apply gx#stx-identifier - _%id76668%_ - _%args80850%_)))) + _%id77582%_ + _%args81711%_)))) (gx#check-duplicate-identifiers - (map _%slot-name76516%_ _%slots76671%_) - _%stx76510%_) + (map _%slot-name77432%_ _%slots77585%_) + _%stx77426%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#check-signature-spec!__%| '#f absent-value '#f - _%stx76510%_ - _%slots76671%_)) - (_%check-typedef-body!76515%_ _%body76672%_) - (let ((_g92040_ - (_%get-mixin-slots76526%_ _%super-ref76670%_))) + _%stx77426%_ + _%slots77585%_)) + (_%check-typedef-body!77431%_ _%body77586%_) + (let ((_g92905_ + (_%get-mixin-slots77442%_ _%super-ref77584%_))) (begin - (let ((_g92041_ + (let ((_g92906_ (let () (declare (not safe)) - (if (##values? _g92040_) - (##values-length _g92040_) + (if (##values? _g92905_) + (##values-length _g92905_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92041_ 2))) - (error "Context expects 2 values" _g92041_))) - (let ((_%mixin-slots76677%_ + (##fx= _g92906_ 2))) + (error "Context expects 2 values" _g92906_))) + (let ((_%mixin-slots77591%_ (let () (declare (not safe)) - (##values-ref _g92040_ 0))) - (_%slot-type-table76679%_ + (##values-ref _g92905_ 0))) + (_%slot-type-table77593%_ (let () (declare (not safe)) - (##values-ref _g92040_ 1)))) - (let* ((_%slot-contract-table76681%_ - (_%get-slot-contracts76528%_ - _%slots76671%_ - _%mixin-slots76677%_ - _%super-ref76670%_ - _%slot-type-table76679%_)) - (_%slot-default-table76684%_ - (_%get-slot-defaults76529%_ - _%slots76671%_ - _%mixin-slots76677%_ - _%super-ref76670%_)) - (_%ordered-slots76687%_ - (_%order-slots76532%_ - (map _%slot-name76516%_ _%slots76671%_) - _%super-ref76670%_))) - (_%update-slot-types!76530%_ - _%slots76671%_ - _%slot-type-table76679%_) - (let* ((_%slots76692%_ - (map _%slot-name76516%_ _%slots76671%_)) - (_%mixin-slots76698%_ - (filter (lambda (_%slot76695%_) - (not (memq _%slot76695%_ - _%slots76692%_))) - _%mixin-slots76677%_)) - (_%name76701%_ - (symbol->string (gx#stx-e _%id76668%_))) - (_%super76704%_ + (##values-ref _g92905_ 1)))) + (let* ((_%slot-contract-table77595%_ + (_%get-slot-contracts77444%_ + _%slots77585%_ + _%mixin-slots77591%_ + _%super-ref77584%_ + _%slot-type-table77593%_)) + (_%slot-default-table77598%_ + (_%get-slot-defaults77445%_ + _%slots77585%_ + _%mixin-slots77591%_ + _%super-ref77584%_)) + (_%ordered-slots77601%_ + (_%order-slots77448%_ + (map _%slot-name77432%_ _%slots77585%_) + _%super-ref77584%_))) + (_%update-slot-types!77446%_ + _%slots77585%_ + _%slot-type-table77593%_) + (let* ((_%slots77606%_ + (map _%slot-name77432%_ _%slots77585%_)) + (_%mixin-slots77612%_ + (filter (lambda (_%slot77609%_) + (not (memq _%slot77609%_ + _%slots77606%_))) + _%mixin-slots77591%_)) + (_%name77615%_ + (symbol->string (gx#stx-e _%id77582%_))) + (_%super77618%_ (map gx#syntax-local-value - _%super-ref76670%_)) - (_%struct?76707%_ - (gx#stx-getq 'struct: _%body76672%_)) - (_%g7671076718%_ - (lambda (_%g7671176714%_) + _%super-ref77584%_)) + (_%struct?77621%_ + (gx#stx-getq 'struct: _%body77586%_)) + (_%g7762477632%_ + (lambda (_%g7762577628%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7671176714%_))) - (_%g7670980846%_ - (lambda (_%g7671176722%_) - ((lambda (_%L76725%_) - (let* ((_%g7674876756%_ - (lambda (_%g7674976752%_) + _%g7762577628%_))) + (_%g7762381707%_ + (lambda (_%g7762577636%_) + ((lambda (_%g7762677639%_) + (let* ((_%g7766277670%_ + (lambda (_%g7766377666%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7674976752%_))) - (_%g7674780842%_ - (lambda (_%g7674976760%_) - ((lambda (_%L76763%_) - (let* ((_%g7677676784%_ - (lambda (_%g7677776780%_) + _%g7766377666%_))) + (_%g7766181703%_ + (lambda (_%g7766377674%_) + ((lambda (_%g7766477677%_) + (let* ((_%g7769077698%_ + (lambda (_%g7769177694%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7677776780%_))) - (_%g7677580838%_ - (lambda (_%g7677776788%_) - ((lambda (_%L76791%_) - (let* ((_%g7680476812%_ - (lambda (_%g7680576808%_) + _%g7769177694%_))) + (_%g7768981699%_ + (lambda (_%g7769177702%_) + ((lambda (_%g7769277705%_) + (let* ((_%g7771877726%_ + (lambda (_%g7771977722%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7680576808%_))) - (_%g7680380834%_ - (lambda (_%g7680576816%_) - ((lambda (_%L76819%_) - (let* ((_%g7683276840%_ - (lambda (_%g7683376836%_) + _%g7771977722%_))) + (_%g7771781695%_ + (lambda (_%g7771977730%_) + ((lambda (_%g7772077733%_) + (let* ((_%g7774677754%_ + (lambda (_%g7774777750%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7683376836%_))) - (_%g7683180830%_ - (lambda (_%g7683376844%_) - ((lambda (_%L76847%_) - (let* ((_%g7686076877%_ - (lambda (_%g7686176873%_) + _%g7774777750%_))) + (_%g7774581691%_ + (lambda (_%g7774777758%_) + ((lambda (_%g7774877761%_) + (let* ((_%g7777477791%_ + (lambda (_%g7777577787%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7686176873%_))) - (_%g7685980826%_ - (lambda (_%g7686176881%_) - (if (gx#stx-pair/null? _%g7686176881%_) - (let ((_g92042_ + _%g7777577787%_))) + (_%g7777381687%_ + (lambda (_%g7777577795%_) + (if (gx#stx-pair/null? _%g7777577795%_) + (let ((_g92907_ (gx#syntax-split-splice - _%g7686176881%_ + _%g7777577795%_ '0))) (begin - (let ((_g92043_ + (let ((_g92908_ (let () (declare (not safe)) - (if (##values? _g92042_) - (##values-length _g92042_) + (if (##values? _g92907_) + (##values-length _g92907_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92043_ 2))) + (##fx= _g92908_ 2))) (error "Context expects 2 values" - _g92043_))) - (let ((_%target7686376884%_ + _g92908_))) + (let ((_%target7777777798%_ (let () (declare (not safe)) - (##values-ref _g92042_ 0))) - (_%tl7686576887%_ + (##values-ref _g92907_ 0))) + (_%tl7777977801%_ (let () (declare (not safe)) - (##values-ref _g92042_ 1)))) - (if (gx#stx-null? _%tl7686576887%_) - (letrec ((_%loop7686676890%_ - (lambda (_%hd7686476894%_ - _%slot7687076897%_) + (##values-ref _g92907_ 1)))) + (if (gx#stx-null? _%tl7777977801%_) + (letrec ((_%loop7778077804%_ + (lambda (_%hd7777877808%_ + _%slot7778477811%_) (if (gx#stx-pair? - _%hd7686476894%_) - (let ((_%e7686776900%_ + _%hd7777877808%_) + (let ((_%e7778177813%_ (gx#syntax-e - _%hd7686476894%_))) - (let ((_%lp-hd7686876904%_ + _%hd7777877808%_))) + (let ((_%lp-hd7778277817%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e7686776900%_))) - (_%lp-tl7686976907%_ - (let () (declare (not safe)) (##cdr _%e7686776900%_)))) - (_%loop7686676890%_ - _%lp-tl7686976907%_ - (cons _%lp-hd7686876904%_ _%slot7687076897%_)))) - (let ((_%slot7687176910%_ (reverse _%slot7687076897%_))) - ((lambda (_%L76914%_) - (let* ((_%g7693176948%_ - (lambda (_%g7693276944%_) + (##car _%e7778177813%_))) + (_%lp-tl7778377820%_ + (let () (declare (not safe)) (##cdr _%e7778177813%_)))) + (_%loop7778077804%_ + _%lp-tl7778377820%_ + (cons _%lp-hd7778277817%_ _%slot7778477811%_)))) + (let ((_%slot7778577823%_ (reverse _%slot7778477811%_))) + ((lambda (_%g7777677826%_) + (let* ((_%g7784377860%_ + (lambda (_%g7784477856%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7693276944%_))) - (_%g7693080822%_ - (lambda (_%g7693276952%_) - (if (gx#stx-pair/null? _%g7693276952%_) - (let ((_g92044_ + _%g7784477856%_))) + (_%g7784281683%_ + (lambda (_%g7784477864%_) + (if (gx#stx-pair/null? _%g7784477864%_) + (let ((_g92909_ (gx#syntax-split-splice - _%g7693276952%_ + _%g7784477864%_ '0))) (begin - (let ((_g92045_ + (let ((_g92910_ (let () (declare (not safe)) - (if (##values? _g92044_) - (##values-length _g92044_) + (if (##values? _g92909_) + (##values-length _g92909_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92045_ 2))) + (##fx= _g92910_ 2))) (error "Context expects 2 values" - _g92045_))) - (let ((_%target7693476955%_ + _g92910_))) + (let ((_%target7784677867%_ (let () (declare (not safe)) - (##values-ref _g92044_ 0))) - (_%tl7693676958%_ + (##values-ref _g92909_ 0))) + (_%tl7784877870%_ (let () (declare (not safe)) - (##values-ref _g92044_ 1)))) - (if (gx#stx-null? _%tl7693676958%_) - (letrec ((_%loop7693776961%_ - (lambda (_%hd7693576965%_ - _%ordered-slot7694176968%_) + (##values-ref _g92909_ 1)))) + (if (gx#stx-null? _%tl7784877870%_) + (letrec ((_%loop7784977873%_ + (lambda (_%hd7784777877%_ + _%ordered-slot7785377880%_) (if (gx#stx-pair? - _%hd7693576965%_) - (let ((_%e7693876971%_ + _%hd7784777877%_) + (let ((_%e7785077882%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd7693576965%_))) - (let ((_%lp-hd7693976975%_ + (gx#syntax-e _%hd7784777877%_))) + (let ((_%lp-hd7785177886%_ (let () (declare (not safe)) - (##car _%e7693876971%_))) - (_%lp-tl7694076978%_ + (##car _%e7785077882%_))) + (_%lp-tl7785277889%_ (let () (declare (not safe)) - (##cdr _%e7693876971%_)))) - (_%loop7693776961%_ - _%lp-tl7694076978%_ - (cons _%lp-hd7693976975%_ - _%ordered-slot7694176968%_)))) - (let ((_%ordered-slot7694276981%_ - (reverse _%ordered-slot7694176968%_))) - ((lambda (_%L76985%_) - (let* ((_%g7700277019%_ - (lambda (_%g7700377015%_) + (##cdr _%e7785077882%_)))) + (_%loop7784977873%_ + _%lp-tl7785277889%_ + (cons _%lp-hd7785177886%_ + _%ordered-slot7785377880%_)))) + (let ((_%ordered-slot7785477892%_ + (reverse _%ordered-slot7785377880%_))) + ((lambda (_%g7784577895%_) + (let* ((_%g7791277929%_ + (lambda (_%g7791377925%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7700377015%_))) - (_%g7700180813%_ - (lambda (_%g7700377023%_) - (if (gx#stx-pair/null? _%g7700377023%_) - (let ((_g92046_ + _%g7791377925%_))) + (_%g7791181674%_ + (lambda (_%g7791377933%_) + (if (gx#stx-pair/null? _%g7791377933%_) + (let ((_g92911_ (gx#syntax-split-splice - _%g7700377023%_ + _%g7791377933%_ '0))) (begin - (let ((_g92047_ + (let ((_g92912_ (let () (declare (not safe)) - (if (##values? _g92046_) + (if (##values? _g92911_) (##values-length - _g92046_) + _g92911_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92047_ 2))) + (##fx= _g92912_ 2))) (error "Context expects 2 values" - _g92047_))) - (let ((_%target7700577026%_ + _g92912_))) + (let ((_%target7791577936%_ (let () (declare (not safe)) - (##values-ref _g92046_ 0))) - (_%tl7700777029%_ + (##values-ref _g92911_ 0))) + (_%tl7791777939%_ (let () (declare (not safe)) (##values-ref - _g92046_ + _g92911_ 1)))) (if (gx#stx-null? - _%tl7700777029%_) - (letrec ((_%loop7700877032%_ - (lambda (_%hd7700677036%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%getf7701277039%_) - (if (gx#stx-pair? _%hd7700677036%_) - (let ((_%e7700977042%_ - (gx#syntax-e _%hd7700677036%_))) - (let ((_%lp-hd7701077046%_ + _%tl7791777939%_) + (letrec ((_%loop7791877942%_ + (lambda (_%hd7791677946%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%getf7792277949%_) + (if (gx#stx-pair? _%hd7791677946%_) + (let ((_%e7791977951%_ + (gx#syntax-e _%hd7791677946%_))) + (let ((_%lp-hd7792077955%_ (let () (declare (not safe)) - (##car _%e7700977042%_))) - (_%lp-tl7701177049%_ + (##car _%e7791977951%_))) + (_%lp-tl7792177958%_ (let () (declare (not safe)) - (##cdr _%e7700977042%_)))) - (_%loop7700877032%_ - _%lp-tl7701177049%_ - (cons _%lp-hd7701077046%_ _%getf7701277039%_)))) - (let ((_%getf7701377052%_ - (reverse _%getf7701277039%_))) - ((lambda (_%L77056%_) - (let* ((_%g7707377090%_ - (lambda (_%g7707477086%_) + (##cdr _%e7791977951%_)))) + (_%loop7791877942%_ + _%lp-tl7792177958%_ + (cons _%lp-hd7792077955%_ _%getf7792277949%_)))) + (let ((_%getf7792377961%_ + (reverse _%getf7792277949%_))) + ((lambda (_%g7791477964%_) + (let* ((_%g7798177998%_ + (lambda (_%g7798277994%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7707477086%_))) - (_%g7707280804%_ - (lambda (_%g7707477094%_) - (if (gx#stx-pair/null? _%g7707477094%_) - (let ((_g92048_ + _%g7798277994%_))) + (_%g7798081665%_ + (lambda (_%g7798278002%_) + (if (gx#stx-pair/null? _%g7798278002%_) + (let ((_g92913_ (gx#syntax-split-splice - _%g7707477094%_ + _%g7798278002%_ '0))) (begin - (let ((_g92049_ + (let ((_g92914_ (let () (declare (not safe)) (if (##values? - _g92048_) + _g92913_) (##values-length - _g92048_) + _g92913_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92049_ + (##fx= _g92914_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g92049_))) + (error "Context expects 2 values" _g92914_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7707677097%_ + (let ((_%target7798478005%_ (let () (declare (not safe)) (##values-ref - _g92048_ + _g92913_ 0))) - (_%tl7707877100%_ + (_%tl7798678008%_ (let () (declare (not safe)) (##values-ref - _g92048_ + _g92913_ 1)))) (if (gx#stx-null? - _%tl7707877100%_) - (letrec ((_%loop7707977103%_ - (lambda (_%hd7707777107%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%setf7708377110%_) - (if (gx#stx-pair? _%hd7707777107%_) - (let ((_%e7708077113%_ - (gx#syntax-e _%hd7707777107%_))) - (let ((_%lp-hd7708177117%_ + _%tl7798678008%_) + (letrec ((_%loop7798778011%_ + (lambda (_%hd7798578015%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%setf7799178018%_) + (if (gx#stx-pair? _%hd7798578015%_) + (let ((_%e7798878020%_ + (gx#syntax-e _%hd7798578015%_))) + (let ((_%lp-hd7798978024%_ (let () (declare (not safe)) - (##car _%e7708077113%_))) - (_%lp-tl7708277120%_ + (##car _%e7798878020%_))) + (_%lp-tl7799078027%_ (let () (declare (not safe)) - (##cdr _%e7708077113%_)))) - (_%loop7707977103%_ - _%lp-tl7708277120%_ - (cons _%lp-hd7708177117%_ - _%setf7708377110%_)))) - (let ((_%setf7708477123%_ - (reverse _%setf7708377110%_))) - ((lambda (_%L77127%_) - (let* ((_%g7714477161%_ - (lambda (_%g7714577157%_) + (##cdr _%e7798878020%_)))) + (_%loop7798778011%_ + _%lp-tl7799078027%_ + (cons _%lp-hd7798978024%_ + _%setf7799178018%_)))) + (let ((_%setf7799278030%_ + (reverse _%setf7799178018%_))) + ((lambda (_%g7798378033%_) + (let* ((_%g7805078067%_ + (lambda (_%g7805178063%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7714577157%_))) - (_%g7714380795%_ - (lambda (_%g7714577165%_) + _%g7805178063%_))) + (_%g7804981656%_ + (lambda (_%g7805178071%_) (if (gx#stx-pair/null? - _%g7714577165%_) - (let ((_g92050_ + _%g7805178071%_) + (let ((_g92915_ (gx#syntax-split-splice - _%g7714577165%_ + _%g7805178071%_ '0))) (begin - (let ((_g92051_ + (let ((_g92916_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g92050_) - (##values-length _g92050_) + _g92915_) + (##values-length _g92915_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g92051_ 2))) - (error "Context expects 2 values" _g92051_))) + (if (not (let () (declare (not safe)) (##fx= _g92916_ 2))) + (error "Context expects 2 values" _g92916_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7714777168%_ + (let ((_%target7805378074%_ (let () (declare (not safe)) (##values-ref - _g92050_ + _g92915_ 0))) - (_%tl7714977171%_ + (_%tl7805578077%_ (let () (declare (not safe)) (##values-ref - _g92050_ + _g92915_ 1)))) (if (gx#stx-null? - _%tl7714977171%_) - (letrec ((_%loop7715077174%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7714877178%_ _%rawsetf7715477181%_) - (if (gx#stx-pair? _%hd7714877178%_) - (let ((_%e7715177184%_ - (gx#syntax-e _%hd7714877178%_))) - (let ((_%lp-hd7715277188%_ + _%tl7805578077%_) + (letrec ((_%loop7805678080%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7805478084%_ _%rawsetf7806078087%_) + (if (gx#stx-pair? _%hd7805478084%_) + (let ((_%e7805778089%_ + (gx#syntax-e _%hd7805478084%_))) + (let ((_%lp-hd7805878093%_ (let () (declare (not safe)) - (##car _%e7715177184%_))) - (_%lp-tl7715377191%_ + (##car _%e7805778089%_))) + (_%lp-tl7805978096%_ (let () (declare (not safe)) - (##cdr _%e7715177184%_)))) - (_%loop7715077174%_ - _%lp-tl7715377191%_ - (cons _%lp-hd7715277188%_ - _%rawsetf7715477181%_)))) - (let ((_%rawsetf7715577194%_ - (reverse _%rawsetf7715477181%_))) - ((lambda (_%L77198%_) - (let* ((_%g7721577232%_ - (lambda (_%g7721677228%_) + (##cdr _%e7805778089%_)))) + (_%loop7805678080%_ + _%lp-tl7805978096%_ + (cons _%lp-hd7805878093%_ + _%rawsetf7806078087%_)))) + (let ((_%rawsetf7806178099%_ + (reverse _%rawsetf7806078087%_))) + ((lambda (_%g7805278102%_) + (let* ((_%g7811978136%_ + (lambda (_%g7812078132%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7721677228%_))) - (_%g7721480791%_ - (lambda (_%g7721677236%_) + _%g7812078132%_))) + (_%g7811881652%_ + (lambda (_%g7812078140%_) (if (gx#stx-pair/null? - _%g7721677236%_) - (let ((_g92052_ + _%g7812078140%_) + (let ((_g92917_ (gx#syntax-split-splice - _%g7721677236%_ + _%g7812078140%_ '0))) (begin - (let ((_g92053_ + (let ((_g92918_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g92052_) - (##values-length _g92052_) + (if (##values? _g92917_) + (##values-length _g92917_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g92053_ 2))) - (error "Context expects 2 values" _g92053_))) - (let ((_%target7721877239%_ + (if (not (let () (declare (not safe)) (##fx= _g92918_ 2))) + (error "Context expects 2 values" _g92918_))) + (let ((_%target7812278143%_ (let () (declare (not safe)) - (##values-ref _g92052_ 0))) - (_%tl7722077242%_ + (##values-ref _g92917_ 0))) + (_%tl7812478146%_ (let () (declare (not safe)) - (##values-ref _g92052_ 1)))) - (if (gx#stx-null? _%tl7722077242%_) - (letrec ((_%loop7722177245%_ - (lambda (_%hd7721977249%_ - _%mixin-slot7722577252%_) - (if (gx#stx-pair? _%hd7721977249%_) - (let ((_%e7722277255%_ - (gx#syntax-e _%hd7721977249%_))) - (let ((_%lp-hd7722377259%_ + (##values-ref _g92917_ 1)))) + (if (gx#stx-null? _%tl7812478146%_) + (letrec ((_%loop7812578149%_ + (lambda (_%hd7812378153%_ + _%mixin-slot7812978156%_) + (if (gx#stx-pair? _%hd7812378153%_) + (let ((_%e7812678158%_ + (gx#syntax-e _%hd7812378153%_))) + (let ((_%lp-hd7812778162%_ (let () (declare (not safe)) - (##car _%e7722277255%_))) - (_%lp-tl7722477262%_ + (##car _%e7812678158%_))) + (_%lp-tl7812878165%_ (let () (declare (not safe)) - (##cdr _%e7722277255%_)))) - (_%loop7722177245%_ - _%lp-tl7722477262%_ - (cons _%lp-hd7722377259%_ - _%mixin-slot7722577252%_)))) - (let ((_%mixin-slot7722677265%_ - (reverse _%mixin-slot7722577252%_))) - ((lambda (_%L77269%_) - (let* ((_%g7728677303%_ - (lambda (_%g7728777299%_) + (##cdr _%e7812678158%_)))) + (_%loop7812578149%_ + _%lp-tl7812878165%_ + (cons _%lp-hd7812778162%_ + _%mixin-slot7812978156%_)))) + (let ((_%mixin-slot7813078168%_ + (reverse _%mixin-slot7812978156%_))) + ((lambda (_%g7812178171%_) + (let* ((_%g7818878205%_ + (lambda (_%g7818978201%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7728777299%_))) - (_%g7728580782%_ - (lambda (_%g7728777307%_) + _%g7818978201%_))) + (_%g7818781643%_ + (lambda (_%g7818978209%_) (if (gx#stx-pair/null? - _%g7728777307%_) - (let ((_g92054_ + _%g7818978209%_) + (let ((_g92919_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g7728777307%_ '0))) + (gx#syntax-split-splice _%g7818978209%_ '0))) (begin - (let ((_g92055_ + (let ((_g92920_ (let () (declare (not safe)) - (if (##values? _g92054_) - (##values-length _g92054_) + (if (##values? _g92919_) + (##values-length _g92919_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92055_ 2))) - (error "Context expects 2 values" _g92055_))) - (let ((_%target7728977310%_ + (##fx= _g92920_ 2))) + (error "Context expects 2 values" _g92920_))) + (let ((_%target7819178212%_ (let () (declare (not safe)) - (##values-ref _g92054_ 0))) - (_%tl7729177313%_ + (##values-ref _g92919_ 0))) + (_%tl7819378215%_ (let () (declare (not safe)) - (##values-ref _g92054_ 1)))) - (if (gx#stx-null? _%tl7729177313%_) - (letrec ((_%loop7729277316%_ - (lambda (_%hd7729077320%_ - _%mixin-getf7729677323%_) - (if (gx#stx-pair? _%hd7729077320%_) - (let ((_%e7729377326%_ + (##values-ref _g92919_ 1)))) + (if (gx#stx-null? _%tl7819378215%_) + (letrec ((_%loop7819478218%_ + (lambda (_%hd7819278222%_ + _%mixin-getf7819878225%_) + (if (gx#stx-pair? _%hd7819278222%_) + (let ((_%e7819578227%_ (gx#syntax-e - _%hd7729077320%_))) - (let ((_%lp-hd7729477330%_ + _%hd7819278222%_))) + (let ((_%lp-hd7819678231%_ (let () (declare (not safe)) - (##car _%e7729377326%_))) - (_%lp-tl7729577333%_ + (##car _%e7819578227%_))) + (_%lp-tl7819778234%_ (let () (declare (not safe)) - (##cdr _%e7729377326%_)))) - (_%loop7729277316%_ - _%lp-tl7729577333%_ - (cons _%lp-hd7729477330%_ - _%mixin-getf7729677323%_)))) - (let ((_%mixin-getf7729777336%_ - (reverse _%mixin-getf7729677323%_))) - ((lambda (_%L77340%_) - (let* ((_%g7735777374%_ - (lambda (_%g7735877370%_) + (##cdr _%e7819578227%_)))) + (_%loop7819478218%_ + _%lp-tl7819778234%_ + (cons _%lp-hd7819678231%_ + _%mixin-getf7819878225%_)))) + (let ((_%mixin-getf7819978237%_ + (reverse _%mixin-getf7819878225%_))) + ((lambda (_%g7819078240%_) + (let* ((_%g7825778274%_ + (lambda (_%g7825878270%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7735877370%_))) - (_%g7735680773%_ - (lambda (_%g7735877378%_) + _%g7825878270%_))) + (_%g7825681634%_ + (lambda (_%g7825878278%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7735877378%_) - (let ((_g92056_ - (gx#syntax-split-splice _%g7735877378%_ '0))) + _%g7825878278%_) + (let ((_g92921_ + (gx#syntax-split-splice _%g7825878278%_ '0))) (begin - (let ((_g92057_ + (let ((_g92922_ (let () (declare (not safe)) - (if (##values? _g92056_) - (##values-length _g92056_) + (if (##values? _g92921_) + (##values-length _g92921_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92057_ 2))) - (error "Context expects 2 values" _g92057_))) - (let ((_%target7736077381%_ + (##fx= _g92922_ 2))) + (error "Context expects 2 values" _g92922_))) + (let ((_%target7826078281%_ (let () (declare (not safe)) - (##values-ref _g92056_ 0))) - (_%tl7736277384%_ + (##values-ref _g92921_ 0))) + (_%tl7826278284%_ (let () (declare (not safe)) - (##values-ref _g92056_ 1)))) - (if (gx#stx-null? _%tl7736277384%_) - (letrec ((_%loop7736377387%_ - (lambda (_%hd7736177391%_ - _%mixin-setf7736777394%_) + (##values-ref _g92921_ 1)))) + (if (gx#stx-null? _%tl7826278284%_) + (letrec ((_%loop7826378287%_ + (lambda (_%hd7826178291%_ + _%mixin-setf7826778294%_) (if (gx#stx-pair? - _%hd7736177391%_) - (let ((_%e7736477397%_ + _%hd7826178291%_) + (let ((_%e7826478296%_ (gx#syntax-e - _%hd7736177391%_))) - (let ((_%lp-hd7736577401%_ + _%hd7826178291%_))) + (let ((_%lp-hd7826578300%_ (let () (declare (not safe)) - (##car _%e7736477397%_))) - (_%lp-tl7736677404%_ + (##car _%e7826478296%_))) + (_%lp-tl7826678303%_ (let () (declare (not safe)) - (##cdr _%e7736477397%_)))) - (_%loop7736377387%_ - _%lp-tl7736677404%_ - (cons _%lp-hd7736577401%_ - _%mixin-setf7736777394%_)))) - (let ((_%mixin-setf7736877407%_ - (reverse _%mixin-setf7736777394%_))) - ((lambda (_%L77411%_) - (let* ((_%g7742877445%_ - (lambda (_%g7742977441%_) + (##cdr _%e7826478296%_)))) + (_%loop7826378287%_ + _%lp-tl7826678303%_ + (cons _%lp-hd7826578300%_ + _%mixin-setf7826778294%_)))) + (let ((_%mixin-setf7826878306%_ + (reverse _%mixin-setf7826778294%_))) + ((lambda (_%g7825978309%_) + (let* ((_%g7832678343%_ + (lambda (_%g7832778339%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7742977441%_))) - (_%g7742780764%_ - (lambda (_%g7742977449%_) - (if (gx#stx-pair/null? _%g7742977449%_) - (let ((_g92058_ + _%g7832778339%_))) + (_%g7832581625%_ + (lambda (_%g7832778347%_) + (if (gx#stx-pair/null? _%g7832778347%_) + (let ((_g92923_ (gx#syntax-split-splice - _%g7742977449%_ + _%g7832778347%_ '0))) (begin - (let ((_g92059_ + (let ((_g92924_ (let () (declare (not safe)) - (if (##values? _g92058_) - (##values-length _g92058_) + (if (##values? _g92923_) + (##values-length _g92923_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92059_ 2))) + (##fx= _g92924_ 2))) (error "Context expects 2 values" - _g92059_))) - (let ((_%target7743177452%_ + _g92924_))) + (let ((_%target7832978350%_ (let () (declare (not safe)) - (##values-ref _g92058_ 0))) - (_%tl7743377455%_ + (##values-ref _g92923_ 0))) + (_%tl7833178353%_ (let () (declare (not safe)) - (##values-ref _g92058_ 1)))) - (if (gx#stx-null? _%tl7743377455%_) - (letrec ((_%loop7743477458%_ - (lambda (_%hd7743277462%_ - _%mixin-rawsetf7743877465%_) + (##values-ref _g92923_ 1)))) + (if (gx#stx-null? _%tl7833178353%_) + (letrec ((_%loop7833278356%_ + (lambda (_%hd7833078360%_ + _%mixin-rawsetf7833678363%_) (if (gx#stx-pair? - _%hd7743277462%_) - (let ((_%e7743577468%_ + _%hd7833078360%_) + (let ((_%e7833378365%_ (gx#syntax-e - _%hd7743277462%_))) - (let ((_%lp-hd7743677472%_ + _%hd7833078360%_))) + (let ((_%lp-hd7833478369%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e7743577468%_))) - (_%lp-tl7743777475%_ - (let () (declare (not safe)) (##cdr _%e7743577468%_)))) - (_%loop7743477458%_ - _%lp-tl7743777475%_ - (cons _%lp-hd7743677472%_ _%mixin-rawsetf7743877465%_)))) - (let ((_%mixin-rawsetf7743977478%_ - (reverse _%mixin-rawsetf7743877465%_))) - ((lambda (_%L77482%_) - (let* ((_%g7749977516%_ - (lambda (_%g7750077512%_) + (##car _%e7833378365%_))) + (_%lp-tl7833578372%_ + (let () (declare (not safe)) (##cdr _%e7833378365%_)))) + (_%loop7833278356%_ + _%lp-tl7833578372%_ + (cons _%lp-hd7833478369%_ _%mixin-rawsetf7833678363%_)))) + (let ((_%mixin-rawsetf7833778375%_ + (reverse _%mixin-rawsetf7833678363%_))) + ((lambda (_%g7832878378%_) + (let* ((_%g7839578412%_ + (lambda (_%g7839678408%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7750077512%_))) - (_%g7749880747%_ - (lambda (_%g7750077520%_) - (if (gx#stx-pair/null? _%g7750077520%_) - (let ((_g92060_ + _%g7839678408%_))) + (_%g7839481608%_ + (lambda (_%g7839678416%_) + (if (gx#stx-pair/null? _%g7839678416%_) + (let ((_g92925_ (gx#syntax-split-splice - _%g7750077520%_ + _%g7839678416%_ '0))) (begin - (let ((_g92061_ + (let ((_g92926_ (let () (declare (not safe)) - (if (##values? _g92060_) - (##values-length _g92060_) + (if (##values? _g92925_) + (##values-length _g92925_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92061_ 2))) + (##fx= _g92926_ 2))) (error "Context expects 2 values" - _g92061_))) - (let ((_%target7750277523%_ + _g92926_))) + (let ((_%target7839878419%_ (let () (declare (not safe)) - (##values-ref _g92060_ 0))) - (_%tl7750477526%_ + (##values-ref _g92925_ 0))) + (_%tl7840078422%_ (let () (declare (not safe)) - (##values-ref _g92060_ 1)))) - (if (gx#stx-null? _%tl7750477526%_) - (letrec ((_%loop7750577529%_ - (lambda (_%hd7750377533%_ - _%ugetf7750977536%_) + (##values-ref _g92925_ 1)))) + (if (gx#stx-null? _%tl7840078422%_) + (letrec ((_%loop7840178425%_ + (lambda (_%hd7839978429%_ + _%ugetf7840578432%_) (if (gx#stx-pair? - _%hd7750377533%_) - (let ((_%e7750677539%_ + _%hd7839978429%_) + (let ((_%e7840278434%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd7750377533%_))) - (let ((_%lp-hd7750777543%_ + (gx#syntax-e _%hd7839978429%_))) + (let ((_%lp-hd7840378438%_ (let () (declare (not safe)) - (##car _%e7750677539%_))) - (_%lp-tl7750877546%_ + (##car _%e7840278434%_))) + (_%lp-tl7840478441%_ (let () (declare (not safe)) - (##cdr _%e7750677539%_)))) - (_%loop7750577529%_ - _%lp-tl7750877546%_ - (cons _%lp-hd7750777543%_ _%ugetf7750977536%_)))) - (let ((_%ugetf7751077549%_ (reverse _%ugetf7750977536%_))) - ((lambda (_%L77553%_) - (let* ((_%g7757077587%_ - (lambda (_%g7757177583%_) + (##cdr _%e7840278434%_)))) + (_%loop7840178425%_ + _%lp-tl7840478441%_ + (cons _%lp-hd7840378438%_ _%ugetf7840578432%_)))) + (let ((_%ugetf7840678444%_ (reverse _%ugetf7840578432%_))) + ((lambda (_%g7839778447%_) + (let* ((_%g7846478481%_ + (lambda (_%g7846578477%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7757177583%_))) - (_%g7756980730%_ - (lambda (_%g7757177591%_) - (if (gx#stx-pair/null? _%g7757177591%_) - (let ((_g92062_ + _%g7846578477%_))) + (_%g7846381591%_ + (lambda (_%g7846578485%_) + (if (gx#stx-pair/null? _%g7846578485%_) + (let ((_g92927_ (gx#syntax-split-splice - _%g7757177591%_ + _%g7846578485%_ '0))) (begin - (let ((_g92063_ + (let ((_g92928_ (let () (declare (not safe)) - (if (##values? _g92062_) + (if (##values? _g92927_) (##values-length - _g92062_) + _g92927_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92063_ 2))) + (##fx= _g92928_ 2))) (error "Context expects 2 values" - _g92063_))) - (let ((_%target7757377594%_ + _g92928_))) + (let ((_%target7846778488%_ (let () (declare (not safe)) - (##values-ref _g92062_ 0))) - (_%tl7757577597%_ + (##values-ref _g92927_ 0))) + (_%tl7846978491%_ (let () (declare (not safe)) (##values-ref - _g92062_ + _g92927_ 1)))) (if (gx#stx-null? - _%tl7757577597%_) - (letrec ((_%loop7757677600%_ - (lambda (_%hd7757477604%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%usetf7758077607%_) - (if (gx#stx-pair? _%hd7757477604%_) - (let ((_%e7757777610%_ - (gx#syntax-e _%hd7757477604%_))) - (let ((_%lp-hd7757877614%_ + _%tl7846978491%_) + (letrec ((_%loop7847078494%_ + (lambda (_%hd7846878498%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%usetf7847478501%_) + (if (gx#stx-pair? _%hd7846878498%_) + (let ((_%e7847178503%_ + (gx#syntax-e _%hd7846878498%_))) + (let ((_%lp-hd7847278507%_ (let () (declare (not safe)) - (##car _%e7757777610%_))) - (_%lp-tl7757977617%_ + (##car _%e7847178503%_))) + (_%lp-tl7847378510%_ (let () (declare (not safe)) - (##cdr _%e7757777610%_)))) - (_%loop7757677600%_ - _%lp-tl7757977617%_ - (cons _%lp-hd7757877614%_ _%usetf7758077607%_)))) - (let ((_%usetf7758177620%_ - (reverse _%usetf7758077607%_))) - ((lambda (_%L77624%_) - (let* ((_%g7764177658%_ - (lambda (_%g7764277654%_) + (##cdr _%e7847178503%_)))) + (_%loop7847078494%_ + _%lp-tl7847378510%_ + (cons _%lp-hd7847278507%_ _%usetf7847478501%_)))) + (let ((_%usetf7847578513%_ + (reverse _%usetf7847478501%_))) + ((lambda (_%g7846678516%_) + (let* ((_%g7853378550%_ + (lambda (_%g7853478546%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7764277654%_))) - (_%g7764080713%_ - (lambda (_%g7764277662%_) - (if (gx#stx-pair/null? _%g7764277662%_) - (let ((_g92064_ + _%g7853478546%_))) + (_%g7853281574%_ + (lambda (_%g7853478554%_) + (if (gx#stx-pair/null? _%g7853478554%_) + (let ((_g92929_ (gx#syntax-split-splice - _%g7764277662%_ + _%g7853478554%_ '0))) (begin - (let ((_g92065_ + (let ((_g92930_ (let () (declare (not safe)) (if (##values? - _g92064_) + _g92929_) (##values-length - _g92064_) + _g92929_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92065_ + (##fx= _g92930_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g92065_))) + (error "Context expects 2 values" _g92930_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7764477665%_ + (let ((_%target7853678557%_ (let () (declare (not safe)) (##values-ref - _g92064_ + _g92929_ 0))) - (_%tl7764677668%_ + (_%tl7853878560%_ (let () (declare (not safe)) (##values-ref - _g92064_ + _g92929_ 1)))) (if (gx#stx-null? - _%tl7764677668%_) - (letrec ((_%loop7764777671%_ - (lambda (_%hd7764577675%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%mixin-ugetf7765177678%_) - (if (gx#stx-pair? _%hd7764577675%_) - (let ((_%e7764877681%_ - (gx#syntax-e _%hd7764577675%_))) - (let ((_%lp-hd7764977685%_ + _%tl7853878560%_) + (letrec ((_%loop7853978563%_ + (lambda (_%hd7853778567%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%mixin-ugetf7854378570%_) + (if (gx#stx-pair? _%hd7853778567%_) + (let ((_%e7854078572%_ + (gx#syntax-e _%hd7853778567%_))) + (let ((_%lp-hd7854178576%_ (let () (declare (not safe)) - (##car _%e7764877681%_))) - (_%lp-tl7765077688%_ + (##car _%e7854078572%_))) + (_%lp-tl7854278579%_ (let () (declare (not safe)) - (##cdr _%e7764877681%_)))) - (_%loop7764777671%_ - _%lp-tl7765077688%_ - (cons _%lp-hd7764977685%_ - _%mixin-ugetf7765177678%_)))) - (let ((_%mixin-ugetf7765277691%_ - (reverse _%mixin-ugetf7765177678%_))) - ((lambda (_%L77695%_) - (let* ((_%g7771277729%_ - (lambda (_%g7771377725%_) + (##cdr _%e7854078572%_)))) + (_%loop7853978563%_ + _%lp-tl7854278579%_ + (cons _%lp-hd7854178576%_ + _%mixin-ugetf7854378570%_)))) + (let ((_%mixin-ugetf7854478582%_ + (reverse _%mixin-ugetf7854378570%_))) + ((lambda (_%g7853578585%_) + (let* ((_%g7860278619%_ + (lambda (_%g7860378615%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7771377725%_))) - (_%g7771180696%_ - (lambda (_%g7771377733%_) + _%g7860378615%_))) + (_%g7860181557%_ + (lambda (_%g7860378623%_) (if (gx#stx-pair/null? - _%g7771377733%_) - (let ((_g92066_ + _%g7860378623%_) + (let ((_g92931_ (gx#syntax-split-splice - _%g7771377733%_ + _%g7860378623%_ '0))) (begin - (let ((_g92067_ + (let ((_g92932_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g92066_) - (##values-length _g92066_) + _g92931_) + (##values-length _g92931_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g92067_ 2))) - (error "Context expects 2 values" _g92067_))) + (if (not (let () (declare (not safe)) (##fx= _g92932_ 2))) + (error "Context expects 2 values" _g92932_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7771577736%_ + (let ((_%target7860578626%_ (let () (declare (not safe)) (##values-ref - _g92066_ + _g92931_ 0))) - (_%tl7771777739%_ + (_%tl7860778629%_ (let () (declare (not safe)) (##values-ref - _g92066_ + _g92931_ 1)))) (if (gx#stx-null? - _%tl7771777739%_) - (letrec ((_%loop7771877742%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7771677746%_ - _%mixin-usetf7772277749%_) - (if (gx#stx-pair? _%hd7771677746%_) - (let ((_%e7771977752%_ - (gx#syntax-e _%hd7771677746%_))) - (let ((_%lp-hd7772077756%_ + _%tl7860778629%_) + (letrec ((_%loop7860878632%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7860678636%_ + _%mixin-usetf7861278639%_) + (if (gx#stx-pair? _%hd7860678636%_) + (let ((_%e7860978641%_ + (gx#syntax-e _%hd7860678636%_))) + (let ((_%lp-hd7861078645%_ (let () (declare (not safe)) - (##car _%e7771977752%_))) - (_%lp-tl7772177759%_ + (##car _%e7860978641%_))) + (_%lp-tl7861178648%_ (let () (declare (not safe)) - (##cdr _%e7771977752%_)))) - (_%loop7771877742%_ - _%lp-tl7772177759%_ - (cons _%lp-hd7772077756%_ - _%mixin-usetf7772277749%_)))) - (let ((_%mixin-usetf7772377762%_ - (reverse _%mixin-usetf7772277749%_))) - ((lambda (_%L77766%_) - (let* ((_%type-slots77928%_ + (##cdr _%e7860978641%_)))) + (_%loop7860878632%_ + _%lp-tl7861178648%_ + (cons _%lp-hd7861078645%_ + _%mixin-usetf7861278639%_)))) + (let ((_%mixin-usetf7861378651%_ + (reverse _%mixin-usetf7861278639%_))) + ((lambda (_%g7860478654%_) + (let* ((_%type-slots78816%_ (if (gx#stx-null? - _%slots76692%_) + _%slots77606%_) '() (cons 'slots: - (cons (map (lambda (_%slot77787%_ + (cons (map (lambda (_%slot78675%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%getf77789%_ - _%setf77790%_ - _%rawsetf77791%_) - (let* ((_%g7779377816%_ - (lambda (_%g7779477812%_) + _%getf78677%_ + _%setf78678%_ + _%rawsetf78679%_) + (let* ((_%g7868178704%_ + (lambda (_%g7868278700%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7779477812%_))) - (_%g7779277892%_ - (lambda (_%g7779477820%_) - (if (gx#stx-pair? _%g7779477820%_) - (let ((_%e7779977823%_ + _%g7868278700%_))) + (_%g7868078780%_ + (lambda (_%g7868278708%_) + (if (gx#stx-pair? _%g7868278708%_) + (let ((_%e7868778711%_ (gx#syntax-e - _%g7779477820%_))) - (let ((_%hd7780077827%_ + _%g7868278708%_))) + (let ((_%hd7868878715%_ (let () (declare (not safe)) - (##car _%e7779977823%_))) - (_%tl7780177830%_ + (##car _%e7868778711%_))) + (_%tl7868978718%_ (let () (declare (not safe)) - (##cdr _%e7779977823%_)))) + (##cdr _%e7868778711%_)))) (if (gx#stx-pair? - _%tl7780177830%_) - (let ((_%e7780277833%_ + _%tl7868978718%_) + (let ((_%e7869078721%_ (gx#syntax-e - _%tl7780177830%_))) - (let ((_%hd7780377837%_ + _%tl7868978718%_))) + (let ((_%hd7869178725%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e7780277833%_))) - (_%tl7780477840%_ - (let () (declare (not safe)) (##cdr _%e7780277833%_)))) - (if (gx#stx-pair? _%tl7780477840%_) - (let ((_%e7780577843%_ (gx#syntax-e _%tl7780477840%_))) - (let ((_%hd7780677847%_ + (##car _%e7869078721%_))) + (_%tl7869278728%_ + (let () (declare (not safe)) (##cdr _%e7869078721%_)))) + (if (gx#stx-pair? _%tl7869278728%_) + (let ((_%e7869378731%_ (gx#syntax-e _%tl7869278728%_))) + (let ((_%hd7869478735%_ (let () (declare (not safe)) - (##car _%e7780577843%_))) - (_%tl7780777850%_ + (##car _%e7869378731%_))) + (_%tl7869578738%_ (let () (declare (not safe)) - (##cdr _%e7780577843%_)))) - (if (gx#stx-pair? _%tl7780777850%_) - (let ((_%e7780877853%_ - (gx#syntax-e _%tl7780777850%_))) - (let ((_%hd7780977857%_ + (##cdr _%e7869378731%_)))) + (if (gx#stx-pair? _%tl7869578738%_) + (let ((_%e7869678741%_ + (gx#syntax-e _%tl7869578738%_))) + (let ((_%hd7869778745%_ (let () (declare (not safe)) - (##car _%e7780877853%_))) - (_%tl7781077860%_ + (##car _%e7869678741%_))) + (_%tl7869878748%_ (let () (declare (not safe)) - (##cdr _%e7780877853%_)))) - (if (gx#stx-null? _%tl7781077860%_) - ((lambda (_%L77863%_ - _%L77865%_ - _%L77866%_ - _%L77867%_) + (##cdr _%e7869678741%_)))) + (if (gx#stx-null? _%tl7869878748%_) + ((lambda (_%g7868378751%_ + _%g7868478753%_ + _%g7868578754%_ + _%g7868678755%_) (if (hash-get - _%slot-contract-table76681%_ - (gx#stx-e _%L77867%_)) - (cons _%L77867%_ - (cons _%L77866%_ - (cons _%L77863%_ '()))) - (cons _%L77867%_ - (cons _%L77866%_ - (cons _%L77865%_ + _%slot-contract-table77595%_ + (gx#stx-e _%g7868678755%_)) + (cons _%g7868678755%_ + (cons _%g7868578754%_ + (cons _%g7868378751%_ + '()))) + (cons _%g7868678755%_ + (cons _%g7868578754%_ + (cons _%g7868478753%_ '()))))) - _%hd7780977857%_ - _%hd7780677847%_ - _%hd7780377837%_ - _%hd7780077827%_) - (_%g7779377816%_ _%g7779477820%_)))) - (_%g7779377816%_ _%g7779477820%_)))) - (_%g7779377816%_ _%g7779477820%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7779377816%_ - _%g7779477820%_)))) - (_%g7779377816%_ - _%g7779477820%_))))) - (_%g7779277892%_ - (list _%slot77787%_ - _%getf77789%_ - _%setf77790%_ - _%rawsetf77791%_)))) - (foldr (lambda (_%g7789577898%_ _%g7789677901%_) - (cons _%g7789577898%_ _%g7789677901%_)) + _%hd7869778745%_ + _%hd7869478735%_ + _%hd7869178725%_ + _%hd7868878715%_) + (_%g7868178704%_ _%g7868278708%_)))) + (_%g7868178704%_ _%g7868278708%_)))) + (_%g7868178704%_ _%g7868278708%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7868178704%_ + _%g7868278708%_)))) + (_%g7868178704%_ + _%g7868278708%_))))) + (_%g7868078780%_ + (list _%slot78675%_ + _%getf78677%_ + _%setf78678%_ + _%rawsetf78679%_)))) + (foldr (lambda (_%g7878378786%_ _%g7878478789%_) + (cons _%g7878378786%_ _%g7878478789%_)) '() - _%L76914%_) - (foldr (lambda (_%g7790377906%_ _%g7790477909%_) - (cons _%g7790377906%_ _%g7790477909%_)) + _%g7777677826%_) + (foldr (lambda (_%g7879178794%_ _%g7879278797%_) + (cons _%g7879178794%_ _%g7879278797%_)) '() - _%L77056%_) - (foldr (lambda (_%g7791177914%_ _%g7791277917%_) - (cons _%g7791177914%_ _%g7791277917%_)) + _%g7791477964%_) + (foldr (lambda (_%g7879978802%_ _%g7880078805%_) + (cons _%g7879978802%_ _%g7880078805%_)) '() - _%L77127%_) - (foldr (lambda (_%g7791977922%_ _%g7792077925%_) - (cons _%g7791977922%_ _%g7792077925%_)) + _%g7798378033%_) + (foldr (lambda (_%g7880778810%_ _%g7880878813%_) + (cons _%g7880778810%_ _%g7880878813%_)) '() - _%L77198%_)) + _%g7805278102%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-mixin-slots78075%_ + (_%type-mixin-slots78963%_ (if (gx#stx-null? - _%mixin-slots76698%_) + _%mixin-slots77612%_) '() (cons 'mixin: - (cons (map (lambda (_%slot77935%_ + (cons (map (lambda (_%slot78823%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%getf77937%_ - _%setf77938%_ - _%rawsetf77939%_) - (let* ((_%g7794177964%_ - (lambda (_%g7794277960%_) + _%getf78825%_ + _%setf78826%_ + _%rawsetf78827%_) + (let* ((_%g7882978852%_ + (lambda (_%g7883078848%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7794277960%_))) - (_%g7794078039%_ - (lambda (_%g7794277968%_) - (if (gx#stx-pair? _%g7794277968%_) - (let ((_%e7794777971%_ + _%g7883078848%_))) + (_%g7882878927%_ + (lambda (_%g7883078856%_) + (if (gx#stx-pair? _%g7883078856%_) + (let ((_%e7883578859%_ (gx#syntax-e - _%g7794277968%_))) - (let ((_%hd7794877975%_ + _%g7883078856%_))) + (let ((_%hd7883678863%_ (let () (declare (not safe)) - (##car _%e7794777971%_))) - (_%tl7794977978%_ + (##car _%e7883578859%_))) + (_%tl7883778866%_ (let () (declare (not safe)) - (##cdr _%e7794777971%_)))) + (##cdr _%e7883578859%_)))) (if (gx#stx-pair? - _%tl7794977978%_) - (let ((_%e7795077981%_ + _%tl7883778866%_) + (let ((_%e7883878869%_ (gx#syntax-e - _%tl7794977978%_))) - (let ((_%hd7795177985%_ + _%tl7883778866%_))) + (let ((_%hd7883978873%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e7795077981%_))) - (_%tl7795277988%_ - (let () (declare (not safe)) (##cdr _%e7795077981%_)))) - (if (gx#stx-pair? _%tl7795277988%_) - (let ((_%e7795377991%_ (gx#syntax-e _%tl7795277988%_))) - (let ((_%hd7795477995%_ + (##car _%e7883878869%_))) + (_%tl7884078876%_ + (let () (declare (not safe)) (##cdr _%e7883878869%_)))) + (if (gx#stx-pair? _%tl7884078876%_) + (let ((_%e7884178879%_ (gx#syntax-e _%tl7884078876%_))) + (let ((_%hd7884278883%_ (let () (declare (not safe)) - (##car _%e7795377991%_))) - (_%tl7795577998%_ + (##car _%e7884178879%_))) + (_%tl7884378886%_ (let () (declare (not safe)) - (##cdr _%e7795377991%_)))) - (if (gx#stx-pair? _%tl7795577998%_) - (let ((_%e7795678001%_ - (gx#syntax-e _%tl7795577998%_))) - (let ((_%hd7795778005%_ + (##cdr _%e7884178879%_)))) + (if (gx#stx-pair? _%tl7884378886%_) + (let ((_%e7884478889%_ + (gx#syntax-e _%tl7884378886%_))) + (let ((_%hd7884578893%_ (let () (declare (not safe)) - (##car _%e7795678001%_))) - (_%tl7795878008%_ + (##car _%e7884478889%_))) + (_%tl7884678896%_ (let () (declare (not safe)) - (##cdr _%e7795678001%_)))) - (if (gx#stx-null? _%tl7795878008%_) - ((lambda (_%L78011%_ - _%L78013%_ - _%L78014%_ - _%L78015%_) + (##cdr _%e7884478889%_)))) + (if (gx#stx-null? _%tl7884678896%_) + ((lambda (_%g7883178899%_ + _%g7883278901%_ + _%g7883378902%_ + _%g7883478903%_) (if (hash-get - _%slot-contract-table76681%_ - (gx#stx-e _%L78015%_)) - (cons _%L78015%_ - (cons _%L78014%_ - (cons _%L78011%_ '()))) - (cons _%L78015%_ - (cons _%L78014%_ - (cons _%L78013%_ + _%slot-contract-table77595%_ + (gx#stx-e _%g7883478903%_)) + (cons _%g7883478903%_ + (cons _%g7883378902%_ + (cons _%g7883178899%_ + '()))) + (cons _%g7883478903%_ + (cons _%g7883378902%_ + (cons _%g7883278901%_ '()))))) - _%hd7795778005%_ - _%hd7795477995%_ - _%hd7795177985%_ - _%hd7794877975%_) - (_%g7794177964%_ _%g7794277968%_)))) - (_%g7794177964%_ _%g7794277968%_)))) - (_%g7794177964%_ _%g7794277968%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7794177964%_ - _%g7794277968%_)))) - (_%g7794177964%_ - _%g7794277968%_))))) - (_%g7794078039%_ - (list _%slot77935%_ - _%getf77937%_ - _%setf77938%_ - _%rawsetf77939%_)))) - (foldr (lambda (_%g7804278045%_ _%g7804378048%_) - (cons _%g7804278045%_ _%g7804378048%_)) + _%hd7884578893%_ + _%hd7884278883%_ + _%hd7883978873%_ + _%hd7883678863%_) + (_%g7882978852%_ _%g7883078856%_)))) + (_%g7882978852%_ _%g7883078856%_)))) + (_%g7882978852%_ _%g7883078856%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7882978852%_ + _%g7883078856%_)))) + (_%g7882978852%_ + _%g7883078856%_))))) + (_%g7882878927%_ + (list _%slot78823%_ + _%getf78825%_ + _%setf78826%_ + _%rawsetf78827%_)))) + (foldr (lambda (_%g7893078933%_ _%g7893178936%_) + (cons _%g7893078933%_ _%g7893178936%_)) '() - _%L77269%_) - (foldr (lambda (_%g7805078053%_ _%g7805178056%_) - (cons _%g7805078053%_ _%g7805178056%_)) + _%g7812178171%_) + (foldr (lambda (_%g7893878941%_ _%g7893978944%_) + (cons _%g7893878941%_ _%g7893978944%_)) '() - _%L77340%_) - (foldr (lambda (_%g7805878061%_ _%g7805978064%_) - (cons _%g7805878061%_ _%g7805978064%_)) + _%g7819078240%_) + (foldr (lambda (_%g7894678949%_ _%g7894778952%_) + (cons _%g7894678949%_ _%g7894778952%_)) '() - _%L77411%_) - (foldr (lambda (_%g7806678069%_ _%g7806778072%_) - (cons _%g7806678069%_ _%g7806778072%_)) + _%g7825978309%_) + (foldr (lambda (_%g7895478957%_ _%g7895578960%_) + (cons _%g7895478957%_ _%g7895578960%_)) '() - _%L77482%_)) + _%g7832878378%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-name78082%_ + (_%type-name78970%_ (cons 'name: - (cons (let ((_%$e78078%_ + (cons (let ((_%$e78966%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'name: _%body76672%_))) - (if _%$e78078%_ _%$e78078%_ _%id76668%_)) + (gx#stx-getq 'name: _%body77586%_))) + (if _%$e78966%_ _%$e78966%_ _%id77582%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-id78089%_ + (_%type-id78977%_ (cons 'id: - (cons (let ((_%$e78085%_ + (cons (let ((_%$e78973%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'id: _%body76672%_))) - (if _%$e78085%_ - _%$e78085%_ + (gx#stx-getq 'id: _%body77586%_))) + (if _%$e78973%_ + _%$e78973%_ (let () (declare (not safe)) (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L76725%_)))) + _%g7762677639%_)))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-constructor78104%_ - (let ((_%$e78100%_ - (let ((_%e7809178093%_ + (_%type-constructor78991%_ + (let ((_%$e78987%_ + (let ((_%e7897978981%_ (gx#stx-getq 'constructor: - _%body76672%_))) - (if _%e7809178093%_ - (let ((_%e78097%_ + _%body77586%_))) + (if _%e7897978981%_ + (let ((_%e78984%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e7809178093%_)) - (cons 'constructor: (cons _%e78097%_ '()))) + _%e7897978981%_)) + (cons 'constructor: (cons _%e78984%_ '()))) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e78100%_ - _%$e78100%_ + (if _%$e78987%_ + _%$e78987%_ '()))) - (_%properties78158%_ - (let* ((_%properties78107%_ + (_%properties79048%_ + (let* ((_%properties78994%_ (if (gx#stx-e (gx#stx-getq 'transparent: - _%body76672%_)) + _%body77586%_)) (cons (cons 'transparent: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#t) '()) '())) - (_%properties78130%_ - (let ((_%$e78110%_ - (gx#stx-e (gx#stx-getq 'print: _%body76672%_)))) - (if _%$e78110%_ - ((lambda (_%print78114%_) - (let ((_%print78125%_ - (if (eq? _%print78114%_ '#t) - (foldr (lambda (_%g7811678119%_ - _%g7811778122%_) - (cons _%g7811678119%_ - _%g7811778122%_)) + (_%properties79017%_ + (let ((_%$e78997%_ + (gx#stx-e (gx#stx-getq 'print: _%body77586%_)))) + (if _%$e78997%_ + ((lambda (_%print79001%_) + (let ((_%print79012%_ + (if (eq? _%print79001%_ '#t) + (foldr (lambda (_%g7900379006%_ + _%g7900479009%_) + (cons _%g7900379006%_ + _%g7900479009%_)) '() - _%L76914%_) - _%print78114%_))) - (cons (cons 'print: _%print78125%_) - _%properties78107%_))) - _%$e78110%_) - _%properties78107%_))) - (_%properties78153%_ - (let ((_%$e78133%_ - (gx#stx-e (gx#stx-getq 'equal: _%body76672%_)))) - (if _%$e78133%_ - ((lambda (_%equal78137%_) - (let ((_%equal78148%_ - (if (eq? _%equal78137%_ '#t) - (foldr (lambda (_%g7813978142%_ - _%g7814078145%_) - (cons _%g7813978142%_ - _%g7814078145%_)) + _%g7777677826%_) + _%print79001%_))) + (cons (cons 'print: _%print79012%_) + _%properties78994%_))) + _%$e78997%_) + _%properties78994%_))) + (_%properties79040%_ + (let ((_%$e79020%_ + (gx#stx-e (gx#stx-getq 'equal: _%body77586%_)))) + (if _%$e79020%_ + ((lambda (_%equal79024%_) + (let ((_%equal79035%_ + (if (eq? _%equal79024%_ '#t) + (foldr (lambda (_%g7902679029%_ + _%g7902779032%_) + (cons _%g7902679029%_ + _%g7902779032%_)) '() - _%L76914%_) - _%equal78137%_))) - (cons (cons 'equal: _%equal78148%_) - _%properties78130%_))) - _%$e78133%_) - _%properties78130%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%properties78153%_)) - (_%type-properties78196%_ - (if (null? _%properties78158%_) + _%g7777677826%_) + _%equal79024%_))) + (cons (cons 'equal: _%equal79035%_) + _%properties79017%_))) + _%$e79020%_) + _%properties79017%_))) + (_%properties79043%_ + (if (gx#stx-e (gx#stx-getq 'acyclic: _%body77586%_)) + (cons (cons 'acyclic: '#t) '()) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%properties79043%_)) + (_%type-properties79086%_ + (if (null? _%properties79048%_) '() - (let* ((_%g7816178169%_ - (lambda (_%g7816278165%_) + (let* ((_%g7905179059%_ + (lambda (_%g7905279055%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7816278165%_))) - (_%g7816078192%_ - (lambda (_%g7816278173%_) - ((lambda (_%L78176%_) + _%g7905279055%_))) + (_%g7905079082%_ + (lambda (_%g7905279063%_) + ((lambda (_%g7905379066%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'properties: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L78176%_ '())) + (cons _%g7905379066%_ '())) '()))) - _%g7816278173%_)))) - (_%g7816078192%_ _%properties78158%_)))) + _%g7905279063%_)))) + (_%g7905079082%_ _%properties79048%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%metaclass78208%_ - (let ((_%$e78199%_ + (_%metaclass79098%_ + (let ((_%$e79089%_ (gx#stx-getq 'metaclass: - _%body76672%_))) - (if _%$e78199%_ - ((lambda (_%metaclass78203%_) + _%body77586%_))) + (if _%$e79089%_ + ((lambda (_%metaclass79093%_) (if (gx#identifier? - _%metaclass78203%_) - _%metaclass78203%_ + _%metaclass79093%_) + _%metaclass79093%_ '#f)) - _%$e78199%_) + _%$e79089%_) '#f))) - (_%final?78211%_ + (_%final?79101%_ (gx#stx-e (gx#stx-getq 'final: - _%body76672%_))) - (_%type-struct78214%_ + _%body77586%_))) + (_%type-struct79104%_ (cons 'struct: - (cons _%struct?76707%_ + (cons _%struct?77621%_ '()))) - (_%type-final78217%_ + (_%type-final79107%_ (cons 'final: - (cons _%final?78211%_ + (cons _%final?79101%_ '()))) - (_%type-metaclass78220%_ - (if _%metaclass78208%_ + (_%type-metaclass79110%_ + (if _%metaclass79098%_ (cons 'metaclass: - (cons _%metaclass78208%_ + (cons _%metaclass79098%_ '())) '())) - (_%g7822378240%_ - (lambda (_%g7822478236%_) + (_%g7911379130%_ + (lambda (_%g7911479126%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7822478236%_))) - (_%g7822280692%_ - (lambda (_%g7822478244%_) + _%g7911479126%_))) + (_%g7911281553%_ + (lambda (_%g7911479134%_) (if (gx#stx-pair/null? - _%g7822478244%_) - (let ((_g92068_ + _%g7911479134%_) + (let ((_g92933_ (gx#syntax-split-splice - _%g7822478244%_ + _%g7911479134%_ '0))) (begin - (let ((_g92069_ + (let ((_g92934_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g92068_) - (##values-length _g92068_) + (if (##values? _g92933_) + (##values-length _g92933_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g92069_ 2))) - (error "Context expects 2 values" _g92069_))) - (let ((_%target7822678247%_ + (if (not (let () (declare (not safe)) (##fx= _g92934_ 2))) + (error "Context expects 2 values" _g92934_))) + (let ((_%target7911679137%_ (let () (declare (not safe)) - (##values-ref _g92068_ 0))) - (_%tl7822878250%_ + (##values-ref _g92933_ 0))) + (_%tl7911879140%_ (let () (declare (not safe)) - (##values-ref _g92068_ 1)))) - (if (gx#stx-null? _%tl7822878250%_) - (letrec ((_%loop7822978253%_ - (lambda (_%hd7822778257%_ - _%type-body7823378260%_) - (if (gx#stx-pair? _%hd7822778257%_) - (let ((_%e7823078263%_ - (gx#syntax-e _%hd7822778257%_))) - (let ((_%lp-hd7823178267%_ + (##values-ref _g92933_ 1)))) + (if (gx#stx-null? _%tl7911879140%_) + (letrec ((_%loop7911979143%_ + (lambda (_%hd7911779147%_ + _%type-body7912379150%_) + (if (gx#stx-pair? _%hd7911779147%_) + (let ((_%e7912079152%_ + (gx#syntax-e _%hd7911779147%_))) + (let ((_%lp-hd7912179156%_ (let () (declare (not safe)) - (##car _%e7823078263%_))) - (_%lp-tl7823278270%_ + (##car _%e7912079152%_))) + (_%lp-tl7912279159%_ (let () (declare (not safe)) - (##cdr _%e7823078263%_)))) - (_%loop7822978253%_ - _%lp-tl7823278270%_ - (cons _%lp-hd7823178267%_ - _%type-body7823378260%_)))) - (let ((_%type-body7823478273%_ - (reverse _%type-body7823378260%_))) - ((lambda (_%L78277%_) - (let* ((_%g7829878306%_ - (lambda (_%g7829978302%_) + (##cdr _%e7912079152%_)))) + (_%loop7911979143%_ + _%lp-tl7912279159%_ + (cons _%lp-hd7912179156%_ + _%type-body7912379150%_)))) + (let ((_%type-body7912479162%_ + (reverse _%type-body7912379150%_))) + ((lambda (_%g7911579165%_) + (let* ((_%g7918679194%_ + (lambda (_%g7918779190%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7829978302%_))) - (_%g7829780680%_ - (lambda (_%g7829978310%_) - ((lambda (_%L78313%_) - (let* ((_%g7832678334%_ + _%g7918779190%_))) + (_%g7918581541%_ + (lambda (_%g7918779198%_) + ((lambda (_%g7918879201%_) + (let* ((_%g7921479222%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7832778330%_) + (lambda (_%g7921579218%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7832778330%_))) - (_%g7832580668%_ - (lambda (_%g7832778338%_) - ((lambda (_%L78341%_) - (let* ((_%g7835478362%_ - (lambda (_%g7835578358%_) + _%g7921579218%_))) + (_%g7921381529%_ + (lambda (_%g7921579226%_) + ((lambda (_%g7921679229%_) + (let* ((_%g7924279250%_ + (lambda (_%g7924379246%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7835578358%_))) - (_%g7835380597%_ - (lambda (_%g7835578366%_) - ((lambda (_%L78369%_) - (let* ((_%g7838278390%_ - (lambda (_%g7838378386%_) + _%g7924379246%_))) + (_%g7924181458%_ + (lambda (_%g7924379254%_) + ((lambda (_%g7924479257%_) + (let* ((_%g7927079278%_ + (lambda (_%g7927179274%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7838378386%_))) - (_%g7838180562%_ - (lambda (_%g7838378394%_) - ((lambda (_%L78397%_) - (let* ((_%g7841078418%_ + _%g7927179274%_))) + (_%g7926981423%_ + (lambda (_%g7927179282%_) + ((lambda (_%g7927279285%_) + (let* ((_%g7929879306%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7841178414%_) + (lambda (_%g7929979302%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7841178414%_))) - (_%g7840980476%_ - (lambda (_%g7841178422%_) - ((lambda (_%L78425%_) - (let* ((_%g7843878446%_ - (lambda (_%g7843978442%_) + _%g7929979302%_))) + (_%g7929781339%_ + (lambda (_%g7929979310%_) + ((lambda (_%g7930079313%_) + (let* ((_%g7932679334%_ + (lambda (_%g7932779330%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7843978442%_))) - (_%g7843780464%_ - (lambda (_%g7843978450%_) - ((lambda (_%L78453%_) - (let* ((_%g7846678474%_ - (lambda (_%g7846778470%_) + _%g7932779330%_))) + (_%g7932581327%_ + (lambda (_%g7932779338%_) + ((lambda (_%g7932879341%_) + (let* ((_%g7935479362%_ + (lambda (_%g7935579358%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7846778470%_))) - (_%g7846580452%_ - (lambda (_%g7846778478%_) - ((lambda (_%L78481%_) - (let* ((_%g7849478502%_ - (lambda (_%g7849578498%_) + _%g7935579358%_))) + (_%g7935381315%_ + (lambda (_%g7935579366%_) + ((lambda (_%g7935679369%_) + (let* ((_%g7938279390%_ + (lambda (_%g7938379386%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7849578498%_))) - (_%g7849380338%_ - (lambda (_%g7849578506%_) - ((lambda (_%L78509%_) - (let* ((_%g7852278530%_ - (lambda (_%g7852378526%_) + _%g7938379386%_))) + (_%g7938181205%_ + (lambda (_%g7938379394%_) + ((lambda (_%g7938479397%_) + (let* ((_%g7941079418%_ + (lambda (_%g7941179414%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7852378526%_))) - (_%g7852180227%_ - (lambda (_%g7852378534%_) - ((lambda (_%L78537%_) - (let* ((_%g7855078558%_ - (lambda (_%g7855178554%_) + _%g7941179414%_))) + (_%g7940981098%_ + (lambda (_%g7941179422%_) + ((lambda (_%g7941279425%_) + (let* ((_%g7943879446%_ + (lambda (_%g7943979442%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7855178554%_))) - (_%g7854980116%_ - (lambda (_%g7855178562%_) - ((lambda (_%L78565%_) - (let* ((_%g7857878586%_ - (lambda (_%g7857978582%_) + _%g7943979442%_))) + (_%g7943780991%_ + (lambda (_%g7943979450%_) + ((lambda (_%g7944079453%_) + (let* ((_%g7946679474%_ + (lambda (_%g7946779470%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7857978582%_))) - (_%g7857780112%_ - (lambda (_%g7857978590%_) - ((lambda (_%L78593%_) - (let* ((_%g7860678614%_ - (lambda (_%g7860778610%_) + _%g7946779470%_))) + (_%g7946580987%_ + (lambda (_%g7946779478%_) + ((lambda (_%g7946879481%_) + (let* ((_%g7949479502%_ + (lambda (_%g7949579498%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7860778610%_))) - (_%g7860580108%_ - (lambda (_%g7860778618%_) - ((lambda (_%L78621%_) - (let* ((_%g7863478642%_ - (lambda (_%g7863578638%_) + _%g7949579498%_))) + (_%g7949380983%_ + (lambda (_%g7949579506%_) + ((lambda (_%g7949679509%_) + (let* ((_%g7952279530%_ + (lambda (_%g7952379526%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7863578638%_))) - (_%g7863380073%_ - (lambda (_%g7863578646%_) - ((lambda (_%L78649%_) - (let* ((_%g7866278670%_ - (lambda (_%g7866378666%_) + _%g7952379526%_))) + (_%g7952180948%_ + (lambda (_%g7952379534%_) + ((lambda (_%g7952479537%_) + (let* ((_%g7955079558%_ + (lambda (_%g7955179554%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g7866378666%_))) - (_%g7866180002%_ - (lambda (_%g7866378674%_) - ((lambda (_%L78677%_) - (let* ((_%g7869078698%_ - (lambda (_%g7869178694%_) + _%g7955179554%_))) + (_%g7954980877%_ + (lambda (_%g7955179562%_) + ((lambda (_%g7955279565%_) + (let* ((_%g7957879586%_ + (lambda (_%g7957979582%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7869178694%_))) - (_%g7868979998%_ - (lambda (_%g7869178702%_) - ((lambda (_%L78705%_) - (let* ((_%g7871878726%_ - (lambda (_%g7871978722%_) + _%g7957979582%_))) + (_%g7957780873%_ + (lambda (_%g7957979590%_) + ((lambda (_%g7958079593%_) + (let* ((_%g7960679614%_ + (lambda (_%g7960779610%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7871978722%_))) - (_%g7871779994%_ - (lambda (_%g7871978730%_) - ((lambda (_%L78733%_) - (let* ((_%g7874678754%_ - (lambda (_%g7874778750%_) + _%g7960779610%_))) + (_%g7960580869%_ + (lambda (_%g7960779618%_) + ((lambda (_%g7960879621%_) + (let* ((_%g7963479642%_ + (lambda (_%g7963579638%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7874778750%_))) - (_%g7874579990%_ - (lambda (_%g7874778758%_) - ((lambda (_%L78761%_) + _%g7963579638%_))) + (_%g7963380865%_ + (lambda (_%g7963579646%_) + ((lambda (_%g7963679649%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g7877478782%_ - (lambda (_%g7877578778%_) + (let* ((_%g7966279670%_ + (lambda (_%g7966379666%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7877578778%_))) - (_%g7877379964%_ - (lambda (_%g7877578786%_) - ((lambda (_%L78789%_) - (let* ((_%g7880278810%_ - (lambda (_%g7880378806%_) + _%g7966379666%_))) + (_%g7966180839%_ + (lambda (_%g7966379674%_) + ((lambda (_%g7966479677%_) + (let* ((_%g7969079698%_ + (lambda (_%g7969179694%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7880378806%_))) - (_%g7880179938%_ - (lambda (_%g7880378814%_) - ((lambda (_%L78817%_) - (let* ((_%g7883078838%_ - (lambda (_%g7883178834%_) + _%g7969179694%_))) + (_%g7968980813%_ + (lambda (_%g7969179702%_) + ((lambda (_%g7969279705%_) + (let* ((_%g7971879726%_ + (lambda (_%g7971979722%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7883178834%_))) - (_%g7882979912%_ - (lambda (_%g7883178842%_) - ((lambda (_%L78845%_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%map-slot-usetf78863%_ - (lambda (_%slot78858%_ - _%setf78860%_ - _%rawsetf78861%_) + _%g7971979722%_))) + (_%g7971780787%_ + (lambda (_%g7971979730%_) + ((lambda (_%g7972079733%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let* ((_%map-slot-usetf79751%_ + (lambda (_%slot79746%_ + _%setf79748%_ + _%rawsetf79749%_) (cons 'cons (cons (cons 'quote - (cons _%slot78858%_ '())) + (cons _%slot79746%_ '())) (cons (if (hash-get - _%slot-contract-table76681%_ + _%slot-contract-table77595%_ (gx#stx-e - _%slot78858%_)) + _%slot79746%_)) (cons 'quote-syntax (cons (gx#stx-identifier ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rawsetf78861%_ + _%rawsetf79749%_ '"&" - _%rawsetf78861%_) + _%rawsetf79749%_) '())) - (cons 'quote-syntax (cons _%setf78860%_ '()))) + (cons 'quote-syntax (cons _%setf79748%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%g7886678874%_ - (lambda (_%g7886778870%_) + (_%g7975479762%_ + (lambda (_%g7975579758%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7886778870%_))) - (_%g7886579694%_ - (lambda (_%g7886778878%_) - ((lambda (_%L78881%_) - (let* ((_%g7889578903%_ - (lambda (_%g7889678899%_) + _%g7975579758%_))) + (_%g7975380573%_ + (lambda (_%g7975579766%_) + ((lambda (_%g7975679769%_) + (let* ((_%g7978379791%_ + (lambda (_%g7978479787%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7889678899%_))) - (_%g7889479690%_ - (lambda (_%g7889678907%_) - ((lambda (_%L78910%_) - (let* ((_%g7892378931%_ - (lambda (_%g7892478927%_) + _%g7978479787%_))) + (_%g7978280569%_ + (lambda (_%g7978479795%_) + ((lambda (_%g7978579798%_) + (let* ((_%g7981179819%_ + (lambda (_%g7981279815%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7892478927%_))) - (_%g7892279176%_ - (lambda (_%g7892478935%_) - ((lambda (_%L78938%_) - (let* ((_%g7895178968%_ + _%g7981279815%_))) + (_%g7981080061%_ + (lambda (_%g7981279823%_) + ((lambda (_%g7981379826%_) + (let* ((_%g7983979856%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7895278964%_) + (lambda (_%g7984079852%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7895278964%_))) - (_%g7895079032%_ - (lambda (_%g7895278972%_) - (if (gx#stx-pair/null? _%g7895278972%_) - (let ((_g92070_ + _%g7984079852%_))) + (_%g7983879918%_ + (lambda (_%g7984079860%_) + (if (gx#stx-pair/null? _%g7984079860%_) + (let ((_g92935_ (gx#syntax-split-splice - _%g7895278972%_ + _%g7984079860%_ '0))) (begin - (let ((_g92071_ + (let ((_g92936_ (let () (declare (not safe)) - (if (##values? _g92070_) + (if (##values? _g92935_) (##values-length - _g92070_) + _g92935_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92071_ 2))) + (##fx= _g92936_ 2))) (error "Context expects 2 values" - _g92071_))) - (let ((_%target7895478975%_ + _g92936_))) + (let ((_%target7984279863%_ (let () (declare (not safe)) - (##values-ref _g92070_ 0))) - (_%tl7895678978%_ + (##values-ref _g92935_ 0))) + (_%tl7984479866%_ (let () (declare (not safe)) - (##values-ref _g92070_ 1)))) - (if (gx#stx-null? _%tl7895678978%_) - (letrec ((_%loop7895778981%_ - (lambda (_%hd7895578985%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%defsetf7896178988%_) - (if (gx#stx-pair? _%hd7895578985%_) - (let ((_%e7895878991%_ (gx#syntax-e _%hd7895578985%_))) - (let ((_%lp-hd7895978995%_ + (##values-ref _g92935_ 1)))) + (if (gx#stx-null? _%tl7984479866%_) + (letrec ((_%loop7984579869%_ + (lambda (_%hd7984379873%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%defsetf7984979876%_) + (if (gx#stx-pair? _%hd7984379873%_) + (let ((_%e7984679878%_ (gx#syntax-e _%hd7984379873%_))) + (let ((_%lp-hd7984779882%_ (let () (declare (not safe)) - (##car _%e7895878991%_))) - (_%lp-tl7896078998%_ + (##car _%e7984679878%_))) + (_%lp-tl7984879885%_ (let () (declare (not safe)) - (##cdr _%e7895878991%_)))) - (_%loop7895778981%_ - _%lp-tl7896078998%_ - (cons _%lp-hd7895978995%_ - _%defsetf7896178988%_)))) - (let ((_%defsetf7896279001%_ - (reverse _%defsetf7896178988%_))) - ((lambda (_%L79005%_) + (##cdr _%e7984679878%_)))) + (_%loop7984579869%_ + _%lp-tl7984879885%_ + (cons _%lp-hd7984779882%_ + _%defsetf7984979876%_)))) + (let ((_%defsetf7985079888%_ + (reverse _%defsetf7984979876%_))) + ((lambda (_%g7984179891%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L78341%_ - (cons _%L78910%_ - (cons _%L78938%_ - (foldr (lambda (_%g7902379026%_ + (cons _%g7921679229%_ + (cons _%g7978579798%_ + (cons _%g7981379826%_ + (foldr (lambda (_%g7990979912%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7902479029%_) - (cons _%g7902379026%_ _%g7902479029%_)) + _%g7991079915%_) + (cons _%g7990979912%_ _%g7991079915%_)) '() - _%L79005%_)))))) + _%g7984179891%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%defsetf7896279001%_)))))) + _%defsetf7985079888%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7895778981%_ - _%target7895478975%_ + (_%loop7984579869%_ + _%target7984279863%_ '())) - (_%g7895178968%_ - _%g7895278972%_))))) - (_%g7895178968%_ _%g7895278972%_))))) - (_%g7895079032%_ - (let ((__tmp92072 - (map (lambda (_%slot79036%_ - _%setf79038%_ - _%rawsetf79039%_) - (let ((_%contract7904079042%_ + (_%g7983979856%_ + _%g7984079860%_))))) + (_%g7983979856%_ _%g7984079860%_))))) + (_%g7983879918%_ + (let ((__tmp92937 + (map (lambda (_%slot79922%_ + _%setf79924%_ + _%rawsetf79925%_) + (let ((_%contract7992679928%_ (hash-get - _%slot-contract-table76681%_ - (gx#stx-e _%slot79036%_)))) - (if _%contract7904079042%_ - (let* ((_%contract79046%_ - _%contract7904079042%_) - (_%g7904979072%_ - (lambda (_%g7905079068%_) + _%slot-contract-table77595%_ + (gx#stx-e _%slot79922%_)))) + (if _%contract7992679928%_ + (let* ((_%contract79931%_ + _%contract7992679928%_) + (_%g7993479957%_ + (lambda (_%g7993579953%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7905079068%_))) - (_%g7904879148%_ - (lambda (_%g7905079076%_) + _%g7993579953%_))) + (_%g7993380033%_ + (lambda (_%g7993579961%_) (if (gx#stx-pair? - _%g7905079076%_) - (let ((_%e7905579079%_ + _%g7993579961%_) + (let ((_%e7994079964%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g7905079076%_))) - (let ((_%hd7905679083%_ + (gx#syntax-e _%g7993579961%_))) + (let ((_%hd7994179968%_ (let () (declare (not safe)) - (##car _%e7905579079%_))) - (_%tl7905779086%_ + (##car _%e7994079964%_))) + (_%tl7994279971%_ (let () (declare (not safe)) - (##cdr _%e7905579079%_)))) - (if (gx#stx-pair? _%tl7905779086%_) - (let ((_%e7905879089%_ - (gx#syntax-e _%tl7905779086%_))) - (let ((_%hd7905979093%_ + (##cdr _%e7994079964%_)))) + (if (gx#stx-pair? _%tl7994279971%_) + (let ((_%e7994379974%_ + (gx#syntax-e _%tl7994279971%_))) + (let ((_%hd7994479978%_ (let () (declare (not safe)) - (##car _%e7905879089%_))) - (_%tl7906079096%_ + (##car _%e7994379974%_))) + (_%tl7994579981%_ (let () (declare (not safe)) - (##cdr _%e7905879089%_)))) - (if (gx#stx-pair? _%tl7906079096%_) - (let ((_%e7906179099%_ - (gx#syntax-e _%tl7906079096%_))) - (let ((_%hd7906279103%_ + (##cdr _%e7994379974%_)))) + (if (gx#stx-pair? _%tl7994579981%_) + (let ((_%e7994679984%_ + (gx#syntax-e _%tl7994579981%_))) + (let ((_%hd7994779988%_ (let () (declare (not safe)) - (##car _%e7906179099%_))) - (_%tl7906379106%_ + (##car _%e7994679984%_))) + (_%tl7994879991%_ (let () (declare (not safe)) - (##cdr _%e7906179099%_)))) - (if (gx#stx-pair? _%tl7906379106%_) - (let ((_%e7906479109%_ + (##cdr _%e7994679984%_)))) + (if (gx#stx-pair? _%tl7994879991%_) + (let ((_%e7994979994%_ (gx#syntax-e - _%tl7906379106%_))) - (let ((_%hd7906579113%_ + _%tl7994879991%_))) + (let ((_%hd7995079998%_ (let () (declare (not safe)) - (##car _%e7906479109%_))) - (_%tl7906679116%_ + (##car _%e7994979994%_))) + (_%tl7995180001%_ (let () (declare (not safe)) - (##cdr _%e7906479109%_)))) + (##cdr _%e7994979994%_)))) (if (gx#stx-null? - _%tl7906679116%_) - ((lambda (_%L79119%_ - _%L79121%_ - _%L79122%_ - _%L79123%_) - (_%wrap76533%_ + _%tl7995180001%_) + ((lambda (_%g7993680004%_ + _%g7993780006%_ + _%g7993880007%_ + _%g7993980008%_) + (_%wrap77449%_ (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L79121%_ + (cons (cons _%g7993780006%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '$obj) (cons (gx#datum->syntax '#f ':) - (cons _%L76725%_ '()))) - (cons _%L79123%_ '()))) + (cons _%g7762677639%_ + '()))) + (cons _%g7993980008%_ '()))) (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':void) - (cons (cons _%L79119%_ + (cons (cons _%g7993680004%_ (cons (gx#datum->syntax '#f '$obj) - (cons _%L79122%_ + (cons _%g7993880007%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - _%hd7906579113%_ - _%hd7906279103%_ - _%hd7905979093%_ - _%hd7905679083%_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7904979072%_ - _%g7905079076%_)))) - (_%g7904979072%_ - _%g7905079076%_)))) - (_%g7904979072%_ _%g7905079076%_)))) - (_%g7904979072%_ _%g7905079076%_)))) - (_%g7904979072%_ _%g7905079076%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7904879148%_ - (list (cons _%slot79036%_ - _%contract79046%_) - _%slot79036%_ - _%setf79038%_ + _%hd7995079998%_ + _%hd7994779988%_ + _%hd7994479978%_ + _%hd7994179968%_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7993479957%_ + _%g7993579961%_)))) + (_%g7993479957%_ + _%g7993579961%_)))) + (_%g7993479957%_ _%g7993579961%_)))) + (_%g7993479957%_ _%g7993579961%_)))) + (_%g7993479957%_ _%g7993579961%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7993380033%_ + (list (cons _%slot79922%_ + _%contract79931%_) + _%slot79922%_ + _%setf79924%_ (gx#stx-identifier - _%rawsetf79039%_ + _%rawsetf79925%_ '"&" - _%rawsetf79039%_)))) + _%rawsetf79925%_)))) '#f))) - (foldr (lambda (_%g7915179154%_ - _%g7915279157%_) - (cons _%g7915179154%_ - _%g7915279157%_)) + (foldr (lambda (_%g8003680039%_ + _%g8003780042%_) + (cons _%g8003680039%_ + _%g8003780042%_)) '() - _%L76914%_) - (foldr (lambda (_%g7915979162%_ - _%g7916079165%_) - (cons _%g7915979162%_ - _%g7916079165%_)) + _%g7777677826%_) + (foldr (lambda (_%g8004480047%_ + _%g8004580050%_) + (cons _%g8004480047%_ + _%g8004580050%_)) '() - _%L77127%_) - (foldr (lambda (_%g7916779170%_ - _%g7916879173%_) - (cons _%g7916779170%_ - _%g7916879173%_)) + _%g7798378033%_) + (foldr (lambda (_%g8005280055%_ + _%g8005380058%_) + (cons _%g8005280055%_ + _%g8005380058%_)) '() - _%L77198%_)))) + _%g7805278102%_)))) (declare (not safe)) - (##filter identity __tmp92072))))) - _%g7892478935%_)))) + (##filter identity __tmp92937))))) + _%g7981279823%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7892279176%_ - (if (or (not (null? _%type-constructor78104%_)) + (_%g7981080061%_ + (if (or (not (null? _%type-constructor78991%_)) (and (zero? (hash-length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%slot-contract-table76681%_)) - (zero? (hash-length _%slot-default-table76684%_))) - _%metaclass78208%_) + _%slot-contract-table77595%_)) + (zero? (hash-length _%slot-default-table77598%_))) + _%metaclass79098%_) (cons (gx#datum->syntax '#f 'begin) '()) - (if (and _%struct?76707%_ - (zero? (hash-length _%slot-default-table76684%_))) - (let* ((_%g7919279207%_ - (lambda (_%g7919379203%_) + (if (and _%struct?77621%_ + (zero? (hash-length _%slot-default-table77598%_))) + (let* ((_%g8007780092%_ + (lambda (_%g8007880088%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7919379203%_))) - (_%g7919179261%_ - (lambda (_%g7919379211%_) - (if (gx#stx-pair? _%g7919379211%_) - (let ((_%e7919679214%_ - (gx#syntax-e _%g7919379211%_))) - (let ((_%hd7919779218%_ + _%g8007880088%_))) + (_%g8007680146%_ + (lambda (_%g8007880096%_) + (if (gx#stx-pair? _%g8007880096%_) + (let ((_%e8008180099%_ + (gx#syntax-e _%g8007880096%_))) + (let ((_%hd8008280103%_ (let () (declare (not safe)) - (##car _%e7919679214%_))) - (_%tl7919879221%_ + (##car _%e8008180099%_))) + (_%tl8008380106%_ (let () (declare (not safe)) - (##cdr _%e7919679214%_)))) - (if (gx#stx-pair? _%tl7919879221%_) - (let ((_%e7919979224%_ + (##cdr _%e8008180099%_)))) + (if (gx#stx-pair? _%tl8008380106%_) + (let ((_%e8008480109%_ (gx#syntax-e - _%tl7919879221%_))) - (let ((_%hd7920079228%_ + _%tl8008380106%_))) + (let ((_%hd8008580113%_ (let () (declare (not safe)) - (##car _%e7919979224%_))) - (_%tl7920179231%_ + (##car _%e8008480109%_))) + (_%tl8008680116%_ (let () (declare (not safe)) - (##cdr _%e7919979224%_)))) + (##cdr _%e8008480109%_)))) (if (gx#stx-null? - _%tl7920179231%_) - ((lambda (_%L79234%_ - _%L79236%_) - (_%wrap76533%_ + _%tl8008680116%_) + ((lambda (_%g8007980119%_ + _%g8008080121%_) + (_%wrap77449%_ (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L76791%_ + (cons (cons _%g7769277705%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L79236%_) + _%g8008080121%_) (cons (gx#datum->syntax '#f '=>) - (cons _%L76725%_ + (cons _%g7762677639%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -13983,198 +13974,198 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L79234%_ '())) + (cons _%g8007980119%_ '())) (cons (cons (gx#datum->syntax '#f '##structure) - (cons _%L79234%_ - (foldr (lambda (_%g7925279255%_ - _%g7925379258%_) - (cons _%g7925279255%_ - _%g7925379258%_)) + (cons _%g8007980119%_ + (foldr (lambda (_%g8013780140%_ + _%g8013880143%_) + (cons _%g8013780140%_ + _%g8013880143%_)) '() - _%L76985%_))) + _%g7784577895%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7920079228%_ - _%hd7919779218%_) - (_%g7919279207%_ - _%g7919379211%_)))) - (_%g7919279207%_ - _%g7919379211%_)))) - (_%g7919279207%_ _%g7919379211%_))))) - (_%g7919179261%_ - (list (foldr (lambda (_%slot79265%_ _%r79267%_) - (let ((_%$e79269%_ + _%hd8008580113%_ + _%hd8008280103%_) + (_%g8007780092%_ + _%g8007880096%_)))) + (_%g8007780092%_ + _%g8007880096%_)))) + (_%g8007780092%_ _%g8007880096%_))))) + (_%g8007680146%_ + (list (foldr (lambda (_%slot80150%_ _%r80152%_) + (let ((_%$e80154%_ (hash-get - _%slot-contract-table76681%_ - (gx#stx-e _%slot79265%_)))) - (if _%$e79269%_ - ((lambda (_%contract79273%_) - (let* ((_%g7927679300%_ - (lambda (_%g7927779296%_) + _%slot-contract-table77595%_ + (gx#stx-e _%slot80150%_)))) + (if _%$e80154%_ + ((lambda (_%contract80158%_) + (let* ((_%g8016180185%_ + (lambda (_%g8016280181%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7927779296%_))) - (_%g7927579390%_ - (lambda (_%g7927779304%_) + _%g8016280181%_))) + (_%g8016080273%_ + (lambda (_%g8016280189%_) (if (gx#stx-pair? - _%g7927779304%_) - (let ((_%e7928079307%_ + _%g8016280189%_) + (let ((_%e8016580192%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g7927779304%_))) - (let ((_%hd7928179311%_ + (gx#syntax-e _%g8016280189%_))) + (let ((_%hd8016680196%_ (let () (declare (not safe)) - (##car _%e7928079307%_))) - (_%tl7928279314%_ + (##car _%e8016580192%_))) + (_%tl8016780199%_ (let () (declare (not safe)) - (##cdr _%e7928079307%_)))) - (if (gx#stx-pair? _%tl7928279314%_) - (let ((_%e7928379317%_ - (gx#syntax-e _%tl7928279314%_))) - (let ((_%hd7928479321%_ + (##cdr _%e8016580192%_)))) + (if (gx#stx-pair? _%tl8016780199%_) + (let ((_%e8016880202%_ + (gx#syntax-e _%tl8016780199%_))) + (let ((_%hd8016980206%_ (let () (declare (not safe)) - (##car _%e7928379317%_))) - (_%tl7928579324%_ + (##car _%e8016880202%_))) + (_%tl8017080209%_ (let () (declare (not safe)) - (##cdr _%e7928379317%_)))) - (if (gx#stx-pair/null? _%hd7928479321%_) - (let ((_g92073_ + (##cdr _%e8016880202%_)))) + (if (gx#stx-pair/null? _%hd8016980206%_) + (let ((_g92938_ (gx#syntax-split-splice - _%hd7928479321%_ + _%hd8016980206%_ '0))) (begin - (let ((_g92074_ + (let ((_g92939_ (let () (declare (not safe)) - (if (##values? _g92073_) + (if (##values? _g92938_) (##values-length - _g92073_) + _g92938_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92074_ 2))) + (##fx= _g92939_ 2))) (error "Context expects 2 values" - _g92074_))) - (let ((_%target7928679327%_ + _g92939_))) + (let ((_%target8017180212%_ (let () (declare (not safe)) - (##values-ref _g92073_ 0))) - (_%tl7928879330%_ + (##values-ref _g92938_ 0))) + (_%tl8017380215%_ (let () (declare (not safe)) (##values-ref - _g92073_ + _g92938_ 1)))) (if (gx#stx-null? - _%tl7928879330%_) - (letrec ((_%loop7928979333%_ - (lambda (_%hd7928779337%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%contract7929379340%_) - (if (gx#stx-pair? _%hd7928779337%_) - (let ((_%e7929079343%_ - (gx#syntax-e _%hd7928779337%_))) - (let ((_%lp-hd7929179347%_ + _%tl8017380215%_) + (letrec ((_%loop8017480218%_ + (lambda (_%hd8017280222%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%contract8017880225%_) + (if (gx#stx-pair? _%hd8017280222%_) + (let ((_%e8017580227%_ + (gx#syntax-e _%hd8017280222%_))) + (let ((_%lp-hd8017680231%_ (let () (declare (not safe)) - (##car _%e7929079343%_))) - (_%lp-tl7929279350%_ + (##car _%e8017580227%_))) + (_%lp-tl8017780234%_ (let () (declare (not safe)) - (##cdr _%e7929079343%_)))) - (_%loop7928979333%_ - _%lp-tl7929279350%_ - (cons _%lp-hd7929179347%_ - _%contract7929379340%_)))) - (let ((_%contract7929479353%_ - (reverse _%contract7929379340%_))) - (if (gx#stx-null? _%tl7928579324%_) - ((lambda (_%L79357%_ _%L79359%_) - (cons (cons _%L79359%_ - (foldr (lambda (_%g7938179384%_ - _%g7938279387%_) - (cons _%g7938179384%_ - _%g7938279387%_)) + (##cdr _%e8017580227%_)))) + (_%loop8017480218%_ + _%lp-tl8017780234%_ + (cons _%lp-hd8017680231%_ + _%contract8017880225%_)))) + (let ((_%contract8017980237%_ + (reverse _%contract8017880225%_))) + (if (gx#stx-null? _%tl8017080209%_) + ((lambda (_%g8016380240%_ _%g8016480242%_) + (cons (cons _%g8016480242%_ + (foldr (lambda (_%g8026480267%_ + _%g8026580270%_) + (cons _%g8026480267%_ + _%g8026580270%_)) '() - _%L79357%_)) - _%r79267%_)) - _%contract7929479353%_ - _%hd7928179311%_) - (_%g7927679300%_ _%g7927779304%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7928979333%_ - _%target7928679327%_ + _%g8016380240%_)) + _%r80152%_)) + _%contract8017980237%_ + _%hd8016680196%_) + (_%g8016180185%_ _%g8016280189%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop8017480218%_ + _%target8017180212%_ '())) - (_%g7927679300%_ - _%g7927779304%_))))) - (_%g7927679300%_ _%g7927779304%_)))) - (_%g7927679300%_ _%g7927779304%_)))) - (_%g7927679300%_ _%g7927779304%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7927579390%_ - (list _%slot79265%_ - _%contract79273%_)))) - _%$e79269%_) - (cons _%slot79265%_ - _%r79267%_)))) + (_%g8016180185%_ + _%g8016280189%_))))) + (_%g8016180185%_ _%g8016280189%_)))) + (_%g8016180185%_ _%g8016280189%_)))) + (_%g8016180185%_ _%g8016280189%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8016080273%_ + (list _%slot80150%_ + _%contract80158%_)))) + _%$e80154%_) + (cons _%slot80150%_ + _%r80152%_)))) '() - (foldr (lambda (_%g7939579398%_ - _%g7939679401%_) - (cons _%g7939579398%_ - _%g7939679401%_)) + (foldr (lambda (_%g8027880281%_ + _%g8027980284%_) + (cons _%g8027880281%_ + _%g8027980284%_)) '() - _%L76985%_)) - (gx#core-quote-syntax _%L76763%_)))) - (let* ((_%g7940679421%_ - (lambda (_%g7940779417%_) + _%g7784577895%_)) + (gx#core-quote-syntax _%g7766477677%_)))) + (let* ((_%g8028980304%_ + (lambda (_%g8029080300%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7940779417%_))) - (_%g7940579474%_ - (lambda (_%g7940779425%_) - (if (gx#stx-pair? _%g7940779425%_) - (let ((_%e7941079428%_ - (gx#syntax-e _%g7940779425%_))) - (let ((_%hd7941179432%_ + _%g8029080300%_))) + (_%g8028880357%_ + (lambda (_%g8029080308%_) + (if (gx#stx-pair? _%g8029080308%_) + (let ((_%e8029380311%_ + (gx#syntax-e _%g8029080308%_))) + (let ((_%hd8029480315%_ (let () (declare (not safe)) - (##car _%e7941079428%_))) - (_%tl7941279435%_ + (##car _%e8029380311%_))) + (_%tl8029580318%_ (let () (declare (not safe)) - (##cdr _%e7941079428%_)))) - (if (gx#stx-pair? _%tl7941279435%_) - (let ((_%e7941379438%_ + (##cdr _%e8029380311%_)))) + (if (gx#stx-pair? _%tl8029580318%_) + (let ((_%e8029680321%_ (gx#syntax-e - _%tl7941279435%_))) - (let ((_%hd7941479442%_ + _%tl8029580318%_))) + (let ((_%hd8029780325%_ (let () (declare (not safe)) - (##car _%e7941379438%_))) - (_%tl7941579445%_ + (##car _%e8029680321%_))) + (_%tl8029880328%_ (let () (declare (not safe)) - (##cdr _%e7941379438%_)))) + (##cdr _%e8029680321%_)))) (if (gx#stx-null? - _%tl7941579445%_) - ((lambda (_%L79448%_ - _%L79450%_) - (_%wrap76533%_ + _%tl8029880328%_) + ((lambda (_%g8029180331%_ + _%g8029280333%_) + (_%wrap77449%_ (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L76791%_ + (cons (cons _%g7769277705%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L79450%_) + _%g8029280333%_) (cons (gx#datum->syntax '#f '=>) - (cons _%L76725%_ + (cons _%g7762677639%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -14182,301 +14173,304 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L79448%_ '())) + (cons _%g8029180331%_ '())) (cons (cons (gx#datum->syntax '#f '##structure) - (cons _%L79448%_ - (foldr (lambda (_%g7946579468%_ - _%g7946679471%_) - (cons _%g7946579468%_ - _%g7946679471%_)) + (cons _%g8029180331%_ + (foldr (lambda (_%g8034880351%_ + _%g8034980354%_) + (cons _%g8034880351%_ + _%g8034980354%_)) '() - _%L76985%_))) + _%g7784577895%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7941479442%_ - _%hd7941179432%_) - (_%g7940679421%_ - _%g7940779425%_)))) - (_%g7940679421%_ - _%g7940779425%_)))) - (_%g7940679421%_ _%g7940779425%_))))) - (_%g7940579474%_ - (list (foldr (lambda (_%slot79478%_ _%r79480%_) - (let* ((_%default79482%_ + _%hd8029780325%_ + _%hd8029480315%_) + (_%g8028980304%_ + _%g8029080308%_)))) + (_%g8028980304%_ + _%g8029080308%_)))) + (_%g8028980304%_ _%g8029080308%_))))) + (_%g8028880357%_ + (list (foldr (lambda (_%slot80361%_ _%r80363%_) + (let* ((_%default80365%_ (hash-get - _%slot-default-table76684%_ - (gx#stx-e _%slot79478%_))) - (_%$e79485%_ + _%slot-default-table77598%_ + (gx#stx-e _%slot80361%_))) + (_%$e80368%_ (hash-get - _%slot-contract-table76681%_ - (gx#stx-e _%slot79478%_)))) - (if _%$e79485%_ - ((lambda (_%contract79489%_) - (let* ((_%g7949279529%_ - (lambda (_%g7949379525%_) + _%slot-contract-table77595%_ + (gx#stx-e _%slot80361%_)))) + (if _%$e80368%_ + ((lambda (_%contract80372%_) + (let* ((_%g8037580412%_ + (lambda (_%g8037680408%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7949379525%_))) - (_%g7949179676%_ - (lambda (_%g7949379533%_) + _%g8037680408%_))) + (_%g8037480555%_ + (lambda (_%g8037680416%_) (if (gx#stx-pair? - _%g7949379533%_) - (let ((_%e7949779536%_ + _%g8037680416%_) + (let ((_%e8038080419%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g7949379533%_))) - (let ((_%hd7949879540%_ + (gx#syntax-e _%g8037680416%_))) + (let ((_%hd8038180423%_ (let () (declare (not safe)) - (##car _%e7949779536%_))) - (_%tl7949979543%_ + (##car _%e8038080419%_))) + (_%tl8038280426%_ (let () (declare (not safe)) - (##cdr _%e7949779536%_)))) - (if (gx#stx-pair? _%tl7949979543%_) - (let ((_%e7950079546%_ - (gx#syntax-e _%tl7949979543%_))) - (let ((_%hd7950179550%_ + (##cdr _%e8038080419%_)))) + (if (gx#stx-pair? _%tl8038280426%_) + (let ((_%e8038380429%_ + (gx#syntax-e _%tl8038280426%_))) + (let ((_%hd8038480433%_ (let () (declare (not safe)) - (##car _%e7950079546%_))) - (_%tl7950279553%_ + (##car _%e8038380429%_))) + (_%tl8038580436%_ (let () (declare (not safe)) - (##cdr _%e7950079546%_)))) - (if (gx#stx-pair/null? _%hd7950179550%_) - (let ((_g92075_ + (##cdr _%e8038380429%_)))) + (if (gx#stx-pair/null? _%hd8038480433%_) + (let ((_g92940_ (gx#syntax-split-splice - _%hd7950179550%_ + _%hd8038480433%_ '0))) (begin - (let ((_g92076_ + (let ((_g92941_ (let () (declare (not safe)) - (if (##values? _g92075_) + (if (##values? _g92940_) (##values-length - _g92075_) + _g92940_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92076_ 2))) + (##fx= _g92941_ 2))) (error "Context expects 2 values" - _g92076_))) - (let ((_%target7950379556%_ + _g92941_))) + (let ((_%target8038680439%_ (let () (declare (not safe)) - (##values-ref _g92075_ 0))) - (_%tl7950579559%_ + (##values-ref _g92940_ 0))) + (_%tl8038880442%_ (let () (declare (not safe)) (##values-ref - _g92075_ + _g92940_ 1)))) (if (gx#stx-null? - _%tl7950579559%_) - (letrec ((_%loop7950679562%_ - (lambda (_%hd7950479566%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%contract7951079569%_) - (if (gx#stx-pair? _%hd7950479566%_) - (let ((_%e7950779572%_ - (gx#syntax-e _%hd7950479566%_))) - (let ((_%lp-hd7950879576%_ + _%tl8038880442%_) + (letrec ((_%loop8038980445%_ + (lambda (_%hd8038780449%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%contract8039380452%_) + (if (gx#stx-pair? _%hd8038780449%_) + (let ((_%e8039080454%_ + (gx#syntax-e _%hd8038780449%_))) + (let ((_%lp-hd8039180458%_ (let () (declare (not safe)) - (##car _%e7950779572%_))) - (_%lp-tl7950979579%_ + (##car _%e8039080454%_))) + (_%lp-tl8039280461%_ (let () (declare (not safe)) - (##cdr _%e7950779572%_)))) - (_%loop7950679562%_ - _%lp-tl7950979579%_ - (cons _%lp-hd7950879576%_ - _%contract7951079569%_)))) - (let ((_%contract7951179582%_ - (reverse _%contract7951079569%_))) - (if (gx#stx-pair? _%tl7950279553%_) - (let ((_%e7951279586%_ - (gx#syntax-e _%tl7950279553%_))) - (let ((_%hd7951379590%_ + (##cdr _%e8039080454%_)))) + (_%loop8038980445%_ + _%lp-tl8039280461%_ + (cons _%lp-hd8039180458%_ + _%contract8039380452%_)))) + (let ((_%contract8039480464%_ + (reverse _%contract8039380452%_))) + (if (gx#stx-pair? _%tl8038580436%_) + (let ((_%e8039580467%_ + (gx#syntax-e _%tl8038580436%_))) + (let ((_%hd8039680471%_ (let () (declare (not safe)) - (##car _%e7951279586%_))) - (_%tl7951479593%_ + (##car _%e8039580467%_))) + (_%tl8039780474%_ (let () (declare (not safe)) - (##cdr _%e7951279586%_)))) - (if (gx#stx-pair/null? _%hd7951379590%_) - (let ((_g92077_ + (##cdr _%e8039580467%_)))) + (if (gx#stx-pair/null? _%hd8039680471%_) + (let ((_g92942_ (gx#syntax-split-splice - _%hd7951379590%_ + _%hd8039680471%_ '0))) (begin - (let ((_g92078_ + (let ((_g92943_ (let () (declare (not safe)) - (if (##values? _g92077_) + (if (##values? _g92942_) (##values-length - _g92077_) + _g92942_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92078_ 2))) + (##fx= _g92943_ 2))) (error "Context expects 2 values" - _g92078_))) - (let ((_%target7951579596%_ + _g92943_))) + (let ((_%target8039880477%_ (let () (declare (not safe)) - (##values-ref _g92077_ 0))) - (_%tl7951779599%_ + (##values-ref _g92942_ 0))) + (_%tl8040080480%_ (let () (declare (not safe)) (##values-ref - _g92077_ + _g92942_ 1)))) (if (gx#stx-null? - _%tl7951779599%_) - (letrec ((_%loop7951879602%_ - (lambda (_%hd7951679606%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%default7952279609%_) - (if (gx#stx-pair? _%hd7951679606%_) - (let ((_%e7951979612%_ - (gx#syntax-e _%hd7951679606%_))) - (let ((_%lp-hd7952079616%_ + _%tl8040080480%_) + (letrec ((_%loop8040180483%_ + (lambda (_%hd8039980487%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%default8040580490%_) + (if (gx#stx-pair? _%hd8039980487%_) + (let ((_%e8040280492%_ + (gx#syntax-e _%hd8039980487%_))) + (let ((_%lp-hd8040380496%_ (let () (declare (not safe)) - (##car _%e7951979612%_))) - (_%lp-tl7952179619%_ + (##car _%e8040280492%_))) + (_%lp-tl8040480499%_ (let () (declare (not safe)) - (##cdr _%e7951979612%_)))) - (_%loop7951879602%_ - _%lp-tl7952179619%_ - (cons _%lp-hd7952079616%_ - _%default7952279609%_)))) - (let ((_%default7952379622%_ - (reverse _%default7952279609%_))) - (if (gx#stx-null? _%tl7951479593%_) - ((lambda (_%L79626%_ _%L79628%_ _%L79629%_) - (cons (symbol->keyword (gx#stx-e _%L79629%_)) - (cons (cons _%L79629%_ - (foldr (lambda (_%g7965979664%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7966079667%_) - (cons _%g7965979664%_ _%g7966079667%_)) - (foldr (lambda (_%g7966179670%_ _%g7966279673%_) - (cons _%g7966179670%_ _%g7966279673%_)) + (##cdr _%e8040280492%_)))) + (_%loop8040180483%_ + _%lp-tl8040480499%_ + (cons _%lp-hd8040380496%_ + _%default8040580490%_)))) + (let ((_%default8040680502%_ + (reverse _%default8040580490%_))) + (if (gx#stx-null? _%tl8039780474%_) + ((lambda (_%g8037780505%_ + _%g8037880507%_ + _%g8037980508%_) + (cons (symbol->keyword + (gx#stx-e _%g8037980508%_)) + (cons (cons _%g8037980508%_ + (foldr (lambda (_%g8053880543%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g8053980546%_) + (cons _%g8053880543%_ _%g8053980546%_)) + (foldr (lambda (_%g8054080549%_ _%g8054180552%_) + (cons _%g8054080549%_ _%g8054180552%_)) '() - _%L79626%_) - _%L79628%_)) + _%g8037780505%_) + _%g8037880507%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r79480%_))) - _%default7952379622%_ - _%contract7951179582%_ - _%hd7949879540%_) - (_%g7949279529%_ _%g7949379533%_))))))) + _%r80363%_))) + _%default8040680502%_ + _%contract8039480464%_ + _%hd8038180423%_) + (_%g8037580412%_ _%g8037680416%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7951879602%_ - _%target7951579596%_ + (_%loop8040180483%_ + _%target8039880477%_ '())) - (_%g7949279529%_ - _%g7949379533%_))))) - (_%g7949279529%_ _%g7949379533%_)))) - (_%g7949279529%_ _%g7949379533%_))))))) + (_%g8037580412%_ + _%g8037680416%_))))) + (_%g8037580412%_ _%g8037680416%_)))) + (_%g8037580412%_ _%g8037680416%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7950679562%_ - _%target7950379556%_ + (_%loop8038980445%_ + _%target8038680439%_ '())) - (_%g7949279529%_ - _%g7949379533%_))))) - (_%g7949279529%_ _%g7949379533%_)))) - (_%g7949279529%_ _%g7949379533%_)))) - (_%g7949279529%_ _%g7949379533%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7949179676%_ - (list _%slot79478%_ - _%contract79489%_ - (if _%default79482%_ + (_%g8037580412%_ + _%g8037680416%_))))) + (_%g8037580412%_ _%g8037680416%_)))) + (_%g8037580412%_ _%g8037680416%_)))) + (_%g8037580412%_ _%g8037680416%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8037480555%_ + (list _%slot80361%_ + _%contract80372%_ + (if _%default80365%_ (cons ':= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%default79482%_ '())) + (cons _%default80365%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e79485%_) + _%$e80368%_) (cons (symbol->keyword - (gx#stx-e _%slot79478%_)) - (cons (cons _%slot79478%_ - (cons _%default79482%_ + (gx#stx-e _%slot80361%_)) + (cons (cons _%slot80361%_ + (cons _%default80365%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%r79480%_))))) + _%r80363%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - (foldr (lambda (_%g7968179684%_ - _%g7968279687%_) - (cons _%g7968179684%_ - _%g7968279687%_)) + (foldr (lambda (_%g8056080563%_ + _%g8056180566%_) + (cons _%g8056080563%_ + _%g8056180566%_)) '() - _%L76985%_)) - (gx#core-quote-syntax _%L76763%_))))))))) + _%g7784577895%_)) + (gx#core-quote-syntax _%g7766477677%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7889678907%_)))) - (_%g7889479690%_ - (_%wrap76533%_ + _%g7978479795%_)))) + (_%g7978280569%_ + (_%wrap77449%_ (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L76725%_ + (cons _%g7762677639%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'make-class-type-info) (cons 'id: - (cons _%L78369%_ + (cons _%g7924479257%_ (cons 'name: - (cons _%L78397%_ + (cons _%g7927279285%_ (cons 'slots: - (cons _%L78453%_ + (cons _%g7932879341%_ (cons 'ordered-slots: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L78481%_ + (cons _%g7935679369%_ (cons 'super: - (cons _%L78425%_ + (cons _%g7930079313%_ (cons 'struct?: - (cons _%L78593%_ + (cons _%g7946879481%_ (cons 'final?: - (cons _%L78621%_ + (cons _%g7949679509%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'metaclass: - (cons _%L78649%_ + (cons _%g7952479537%_ (cons 'constructor-method: - (cons _%L78677%_ + (cons _%g7955279565%_ (cons 'type-descriptor: - (cons _%L78705%_ + (cons _%g7958079593%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'constructor: - (cons _%L78733%_ + (cons _%g7960879621%_ (cons 'predicate: - (cons _%L78761%_ + (cons _%g7963679649%_ (cons 'accessors: - (cons _%L78789%_ + (cons _%g7966479677%_ (cons 'mutators: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L78845%_ + (cons _%g7972079733%_ (cons 'unchecked-accessors: - (cons _%L78817%_ + (cons _%g7969279705%_ (cons 'unchecked-mutators: - (cons _%L78881%_ + (cons _%g7975679769%_ (cons 'slot-types: - (cons _%L78509%_ + (cons _%g7938479397%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'slot-contracts: - (cons _%L78537%_ + (cons _%g7941279425%_ (cons 'slot-defaults: - (cons _%L78565%_ + (cons _%g7944079453%_ '()))))))))))))))))))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -14485,225 +14479,228 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7886778878%_)))) - (_%g7886579694%_ - (let* ((_%g7969879731%_ - (lambda (_%g7969979727%_) + _%g7975579766%_)))) + (_%g7975380573%_ + (let* ((_%g8057780610%_ + (lambda (_%g8057880606%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7969979727%_))) - (_%g7969779860%_ - (lambda (_%g7969979735%_) - (if (gx#stx-pair? _%g7969979735%_) - (let ((_%e7970279738%_ + _%g8057880606%_))) + (_%g8057680735%_ + (lambda (_%g8057880614%_) + (if (gx#stx-pair? _%g8057880614%_) + (let ((_%e8058180617%_ (gx#syntax-e - _%g7969979735%_))) - (let ((_%hd7970379742%_ + _%g8057880614%_))) + (let ((_%hd8058280621%_ (let () (declare (not safe)) - (##car _%e7970279738%_))) - (_%tl7970479745%_ + (##car _%e8058180617%_))) + (_%tl8058380624%_ (let () (declare (not safe)) - (##cdr _%e7970279738%_)))) + (##cdr _%e8058180617%_)))) (if (gx#stx-pair/null? - _%hd7970379742%_) - (let ((_g92079_ + _%hd8058280621%_) + (let ((_g92944_ (gx#syntax-split-splice - _%hd7970379742%_ + _%hd8058280621%_ '0))) (begin - (let ((_g92080_ + (let ((_g92945_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g92079_) - (##values-length _g92079_) + (if (##values? _g92944_) + (##values-length _g92944_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g92080_ 2))) - (error "Context expects 2 values" _g92080_))) - (let ((_%target7970579748%_ - (let () (declare (not safe)) (##values-ref _g92079_ 0))) - (_%tl7970779751%_ - (let () (declare (not safe)) (##values-ref _g92079_ 1)))) - (if (gx#stx-null? _%tl7970779751%_) - (letrec ((_%loop7970879754%_ - (lambda (_%hd7970679758%_ - _%slot-usetf7971279761%_) - (if (gx#stx-pair? _%hd7970679758%_) - (let ((_%e7970979764%_ - (gx#syntax-e _%hd7970679758%_))) - (let ((_%lp-hd7971079768%_ + (if (not (let () (declare (not safe)) (##fx= _g92945_ 2))) + (error "Context expects 2 values" _g92945_))) + (let ((_%target8058480627%_ + (let () (declare (not safe)) (##values-ref _g92944_ 0))) + (_%tl8058680630%_ + (let () (declare (not safe)) (##values-ref _g92944_ 1)))) + (if (gx#stx-null? _%tl8058680630%_) + (letrec ((_%loop8058780633%_ + (lambda (_%hd8058580637%_ + _%slot-usetf8059180640%_) + (if (gx#stx-pair? _%hd8058580637%_) + (let ((_%e8058880642%_ + (gx#syntax-e _%hd8058580637%_))) + (let ((_%lp-hd8058980646%_ (let () (declare (not safe)) - (##car _%e7970979764%_))) - (_%lp-tl7971179771%_ + (##car _%e8058880642%_))) + (_%lp-tl8059080649%_ (let () (declare (not safe)) - (##cdr _%e7970979764%_)))) - (_%loop7970879754%_ - _%lp-tl7971179771%_ - (cons _%lp-hd7971079768%_ - _%slot-usetf7971279761%_)))) - (let ((_%slot-usetf7971379774%_ - (reverse _%slot-usetf7971279761%_))) - (if (gx#stx-pair? _%tl7970479745%_) - (let ((_%e7971479778%_ + (##cdr _%e8058880642%_)))) + (_%loop8058780633%_ + _%lp-tl8059080649%_ + (cons _%lp-hd8058980646%_ + _%slot-usetf8059180640%_)))) + (let ((_%slot-usetf8059280652%_ + (reverse _%slot-usetf8059180640%_))) + (if (gx#stx-pair? _%tl8058380624%_) + (let ((_%e8059380655%_ (gx#syntax-e - _%tl7970479745%_))) - (let ((_%hd7971579782%_ + _%tl8058380624%_))) + (let ((_%hd8059480659%_ (let () (declare (not safe)) - (##car _%e7971479778%_))) - (_%tl7971679785%_ + (##car _%e8059380655%_))) + (_%tl8059580662%_ (let () (declare (not safe)) - (##cdr _%e7971479778%_)))) + (##cdr _%e8059380655%_)))) (if (gx#stx-pair/null? - _%hd7971579782%_) - (let ((_g92081_ + _%hd8059480659%_) + (let ((_g92946_ (gx#syntax-split-splice - _%hd7971579782%_ + _%hd8059480659%_ '0))) (begin - (let ((_g92082_ + (let ((_g92947_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g92081_) - (##values-length _g92081_) + (if (##values? _g92946_) + (##values-length _g92946_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g92082_ 2))) - (error "Context expects 2 values" _g92082_))) - (let ((_%target7971779788%_ - (let () (declare (not safe)) (##values-ref _g92081_ 0))) - (_%tl7971979791%_ - (let () (declare (not safe)) (##values-ref _g92081_ 1)))) - (if (gx#stx-null? _%tl7971979791%_) - (letrec ((_%loop7972079794%_ - (lambda (_%hd7971879798%_ - _%mixin-slot-usetf7972479801%_) - (if (gx#stx-pair? _%hd7971879798%_) - (let ((_%e7972179804%_ - (gx#syntax-e _%hd7971879798%_))) - (let ((_%lp-hd7972279808%_ + (if (not (let () (declare (not safe)) (##fx= _g92947_ 2))) + (error "Context expects 2 values" _g92947_))) + (let ((_%target8059680665%_ + (let () (declare (not safe)) (##values-ref _g92946_ 0))) + (_%tl8059880668%_ + (let () (declare (not safe)) (##values-ref _g92946_ 1)))) + (if (gx#stx-null? _%tl8059880668%_) + (letrec ((_%loop8059980671%_ + (lambda (_%hd8059780675%_ + _%mixin-slot-usetf8060380678%_) + (if (gx#stx-pair? _%hd8059780675%_) + (let ((_%e8060080680%_ + (gx#syntax-e _%hd8059780675%_))) + (let ((_%lp-hd8060180684%_ (let () (declare (not safe)) - (##car _%e7972179804%_))) - (_%lp-tl7972379811%_ + (##car _%e8060080680%_))) + (_%lp-tl8060280687%_ (let () (declare (not safe)) - (##cdr _%e7972179804%_)))) - (_%loop7972079794%_ - _%lp-tl7972379811%_ - (cons _%lp-hd7972279808%_ - _%mixin-slot-usetf7972479801%_)))) - (let ((_%mixin-slot-usetf7972579814%_ - (reverse _%mixin-slot-usetf7972479801%_))) - (if (gx#stx-null? _%tl7971679785%_) - ((lambda (_%L79818%_ _%L79820%_) + (##cdr _%e8060080680%_)))) + (_%loop8059980671%_ + _%lp-tl8060280687%_ + (cons _%lp-hd8060180684%_ + _%mixin-slot-usetf8060380678%_)))) + (let ((_%mixin-slot-usetf8060480690%_ + (reverse _%mixin-slot-usetf8060380678%_))) + (if (gx#stx-null? _%tl8059580662%_) + ((lambda (_%g8057980693%_ + _%g8058080695%_) (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g7984379848%_ + (foldr (lambda (_%g8071880723%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7984479851%_) - (cons _%g7984379848%_ _%g7984479851%_)) - (foldr (lambda (_%g7984579854%_ _%g7984679857%_) - (cons _%g7984579854%_ _%g7984679857%_)) + _%g8071980726%_) + (cons _%g8071880723%_ _%g8071980726%_)) + (foldr (lambda (_%g8072080729%_ _%g8072180732%_) + (cons _%g8072080729%_ _%g8072180732%_)) '() - _%L79818%_) - _%L79820%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin-slot-usetf7972579814%_ - _%slot-usetf7971379774%_) - (_%g7969879731%_ - _%g7969979735%_))))))) - (_%loop7972079794%_ _%target7971779788%_ '())) - (_%g7969879731%_ _%g7969979735%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7969879731%_ - _%g7969979735%_)))) - (_%g7969879731%_ - _%g7969979735%_))))))) - (_%loop7970879754%_ _%target7970579748%_ '())) - (_%g7969879731%_ _%g7969979735%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7969879731%_ - _%g7969979735%_)))) - (_%g7969879731%_ _%g7969979735%_))))) - (_%g7969779860%_ - (list (map _%map-slot-usetf78863%_ - (foldr (lambda (_%g7986379866%_ - _%g7986479869%_) - (cons _%g7986379866%_ - _%g7986479869%_)) + _%g8057980693%_) + _%g8058080695%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%mixin-slot-usetf8060480690%_ + _%slot-usetf8059280652%_) + (_%g8057780610%_ + _%g8057880614%_))))))) + (_%loop8059980671%_ _%target8059680665%_ '())) + (_%g8057780610%_ _%g8057880614%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8057780610%_ + _%g8057880614%_)))) + (_%g8057780610%_ + _%g8057880614%_))))))) + (_%loop8058780633%_ _%target8058480627%_ '())) + (_%g8057780610%_ _%g8057880614%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8057780610%_ + _%g8057880614%_)))) + (_%g8057780610%_ _%g8057880614%_))))) + (_%g8057680735%_ + (list (map _%map-slot-usetf79751%_ + (foldr (lambda (_%g8073880741%_ + _%g8073980744%_) + (cons _%g8073880741%_ + _%g8073980744%_)) '() - _%L76914%_) - (foldr (lambda (_%g7987179874%_ - _%g7987279877%_) - (cons _%g7987179874%_ - _%g7987279877%_)) + _%g7777677826%_) + (foldr (lambda (_%g8074680749%_ + _%g8074780752%_) + (cons _%g8074680749%_ + _%g8074780752%_)) '() - _%L77624%_) - (foldr (lambda (_%g7987979882%_ - _%g7988079885%_) - (cons _%g7987979882%_ - _%g7988079885%_)) + _%g7846678516%_) + (foldr (lambda (_%g8075480757%_ + _%g8075580760%_) + (cons _%g8075480757%_ + _%g8075580760%_)) '() - _%L77198%_)) - (map _%map-slot-usetf78863%_ - (foldr (lambda (_%g7988779890%_ - _%g7988879893%_) - (cons _%g7988779890%_ - _%g7988879893%_)) + _%g7805278102%_)) + (map _%map-slot-usetf79751%_ + (foldr (lambda (_%g8076280765%_ + _%g8076380768%_) + (cons _%g8076280765%_ + _%g8076380768%_)) '() - _%L77269%_) - (foldr (lambda (_%g7989579898%_ - _%g7989679901%_) - (cons _%g7989579898%_ - _%g7989679901%_)) + _%g7812178171%_) + (foldr (lambda (_%g8077080773%_ + _%g8077180776%_) + (cons _%g8077080773%_ + _%g8077180776%_)) '() - _%L77766%_) - (foldr (lambda (_%g7990379906%_ - _%g7990479909%_) - (cons _%g7990379906%_ - _%g7990479909%_)) + _%g7860478654%_) + (foldr (lambda (_%g8077880781%_ + _%g8077980784%_) + (cons _%g8077880781%_ + _%g8077980784%_)) '() - _%L77482%_)))))))) - _%g7883178842%_)))) - (_%g7882979912%_ + _%g7832878378%_)))))))) + _%g7971979730%_)))) + (_%g7971780787%_ (cons (gx#datum->syntax '#f '@list) (begin - (gx#syntax-check-splice-targets _%L77127%_ _%L76914%_) - (foldr (lambda (_%g7991579922%_ - _%g7991679925%_ - _%g7991779927%_) + (gx#syntax-check-splice-targets + _%g7798378033%_ + _%g7777677826%_) + (foldr (lambda (_%g8079080797%_ + _%g8079180800%_ + _%g8079280802%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7991679925%_ + (cons _%g8079180800%_ '())) (cons ':: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%g7991579922%_ '())) + (cons _%g8079080797%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7991779927%_)) + _%g8079280802%_)) (begin (gx#syntax-check-splice-targets - _%L77411%_ - _%L77269%_) - (foldr (lambda (_%g7991879930%_ - _%g7991979933%_ - _%g7992079935%_) + _%g7825978309%_ + _%g7812178171%_) + (foldr (lambda (_%g8079380805%_ + _%g8079480808%_ + _%g8079580810%_) (cons (cons (gx#datum->syntax '#f '@list) @@ -14711,76 +14708,78 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g7991979933%_ '())) + (cons _%g8079480808%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7991879930%_ '())) + (cons _%g8079380805%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7992079935%_)) + _%g8079580810%_)) '() - _%L77411%_ - _%L77269%_)) - _%L77127%_ - _%L76914%_)))))) + _%g7825978309%_ + _%g7812178171%_)) + _%g7798378033%_ + _%g7777677826%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7880378814%_)))) - (_%g7880179938%_ + _%g7969179702%_)))) + (_%g7968980813%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L77553%_ - _%L76914%_) - (foldr (lambda (_%g7994179948%_ + _%g7839778447%_ + _%g7777677826%_) + (foldr (lambda (_%g8081680823%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7994279951%_ - _%g7994379953%_) + _%g8081780826%_ + _%g8081880828%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7994279951%_ '())) + (cons _%g8081780826%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7994179948%_ + (cons _%g8081680823%_ '())) '())))) - _%g7994379953%_)) + _%g8081880828%_)) (begin - (gx#syntax-check-splice-targets _%L77695%_ _%L77269%_) - (foldr (lambda (_%g7994479956%_ - _%g7994579959%_ - _%g7994679961%_) + (gx#syntax-check-splice-targets + _%g7853578585%_ + _%g7812178171%_) + (foldr (lambda (_%g8081980831%_ + _%g8082080834%_ + _%g8082180836%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7994579959%_ '())) + (cons _%g8082080834%_ '())) (cons ':: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%g7994479956%_ '())) + (cons _%g8081980831%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7994679961%_)) + _%g8082180836%_)) '() - _%L77695%_ - _%L77269%_)) - _%L77553%_ - _%L76914%_)))))) + _%g7853578585%_ + _%g7812178171%_)) + _%g7839778447%_ + _%g7777677826%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7877578786%_)))) - (_%g7877379964%_ + _%g7966379674%_)))) + (_%g7966180839%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L77056%_ - _%L76914%_) - (foldr (lambda (_%g7996779974%_ - _%g7996879977%_ - _%g7996979979%_) + _%g7791477964%_ + _%g7777677826%_) + (foldr (lambda (_%g8084280849%_ + _%g8084380852%_ + _%g8084480854%_) (cons (cons (gx#datum->syntax '#f '@list) @@ -14788,454 +14787,455 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g7996879977%_ '())) + (cons _%g8084380852%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7996779974%_ '())) + (cons _%g8084280849%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7996979979%_)) + _%g8084480854%_)) (begin (gx#syntax-check-splice-targets - _%L77340%_ - _%L77269%_) - (foldr (lambda (_%g7997079982%_ - _%g7997179985%_ - _%g7997279987%_) + _%g7819078240%_ + _%g7812178171%_) + (foldr (lambda (_%g8084580857%_ + _%g8084680860%_ + _%g8084780862%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7997179985%_ '())) + (cons _%g8084680860%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7997079982%_ '())) + (cons _%g8084580857%_ '())) '())))) - _%g7997279987%_)) + _%g8084780862%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L77340%_ - _%L77269%_)) - _%L77056%_ - _%L76914%_)))))) - _%g7874778758%_)))) - (_%g7874579990%_ + _%g7819078240%_ + _%g7812178171%_)) + _%g7791477964%_ + _%g7777677826%_)))))) + _%g7963579646%_)))) + (_%g7963380865%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L76819%_ '()))))) + (cons _%g7772077733%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7871978730%_)))) - (_%g7871779994%_ + _%g7960779618%_)))) + (_%g7960580869%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L76791%_ '()))))) - _%g7869178702%_)))) - (_%g7868979998%_ + (cons _%g7769277705%_ '()))))) + _%g7957979590%_)))) + (_%g7957780873%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L76763%_ '()))))) - _%g7866378674%_)))) - (_%g7866180002%_ - (if (null? _%type-constructor78104%_) + (cons _%g7766477677%_ '()))))) + _%g7955179562%_)))) + (_%g7954980877%_ + (if (null? _%type-constructor78991%_) '#f - (let* ((_%g8000680021%_ - (lambda (_%g8000780017%_) + (let* ((_%g8088180896%_ + (lambda (_%g8088280892%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8000780017%_))) - (_%g8000580069%_ - (lambda (_%g8000780025%_) - (if (gx#stx-pair? _%g8000780025%_) - (let ((_%e8000980028%_ - (gx#syntax-e _%g8000780025%_))) - (let ((_%hd8001080032%_ + _%g8088280892%_))) + (_%g8088080944%_ + (lambda (_%g8088280900%_) + (if (gx#stx-pair? _%g8088280900%_) + (let ((_%e8088480903%_ + (gx#syntax-e _%g8088280900%_))) + (let ((_%hd8088580907%_ (let () (declare (not safe)) - (##car _%e8000980028%_))) - (_%tl8001180035%_ + (##car _%e8088480903%_))) + (_%tl8088680910%_ (let () (declare (not safe)) - (##cdr _%e8000980028%_)))) - (if (gx#stx-datum? _%hd8001080032%_) - (let ((_%e8001280038%_ - (gx#stx-e _%hd8001080032%_))) - (if (equal? _%e8001280038%_ + (##cdr _%e8088480903%_)))) + (if (gx#stx-datum? _%hd8088580907%_) + (let ((_%e8088780913%_ + (gx#stx-e _%hd8088580907%_))) + (if (equal? _%e8088780913%_ 'constructor:) (if (gx#stx-pair? - _%tl8001180035%_) - (let ((_%e8001380042%_ + _%tl8088680910%_) + (let ((_%e8088880917%_ (gx#syntax-e - _%tl8001180035%_))) - (let ((_%hd8001480046%_ + _%tl8088680910%_))) + (let ((_%hd8088980921%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e8001380042%_))) - (_%tl8001580049%_ - (let () (declare (not safe)) (##cdr _%e8001380042%_)))) - (if (gx#stx-null? _%tl8001580049%_) - ((lambda (_%L80052%_) + (##car _%e8088880917%_))) + (_%tl8089080924%_ + (let () (declare (not safe)) (##cdr _%e8088880917%_)))) + (if (gx#stx-null? _%tl8089080924%_) + ((lambda (_%g8088380927%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L80052%_ '()))) - _%hd8001480046%_) - (_%g8000680021%_ _%g8000780025%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8000680021%_ - _%g8000780025%_)) - (_%g8000680021%_ - _%g8000780025%_))) - (_%g8000680021%_ _%g8000780025%_)))) - (_%g8000680021%_ _%g8000780025%_))))) - (_%g8000580069%_ _%type-constructor78104%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7863578646%_)))) - (_%g7863380073%_ - (if _%metaclass78208%_ - (let* ((_%g8007780085%_ - (lambda (_%g8007880081%_) + (cons _%g8088380927%_ '()))) + _%hd8088980921%_) + (_%g8088180896%_ _%g8088280900%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8088180896%_ + _%g8088280900%_)) + (_%g8088180896%_ + _%g8088280900%_))) + (_%g8088180896%_ _%g8088280900%_)))) + (_%g8088180896%_ _%g8088280900%_))))) + (_%g8088080944%_ _%type-constructor78991%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g7952379534%_)))) + (_%g7952180948%_ + (if _%metaclass79098%_ + (let* ((_%g8095280960%_ + (lambda (_%g8095380956%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8007880081%_))) - (_%g8007680104%_ - (lambda (_%g8007880089%_) - ((lambda (_%L80092%_) + _%g8095380956%_))) + (_%g8095180979%_ + (lambda (_%g8095380964%_) + ((lambda (_%g8095480967%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L80092%_ '()))) - _%g8007880089%_)))) + (cons _%g8095480967%_ '()))) + _%g8095380964%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8007680104%_ - _%metaclass78208%_)) + (_%g8095180979%_ + _%metaclass79098%_)) '#f)))) - _%g7860778618%_)))) - (_%g7860580108%_ _%final?78211%_))) - _%g7857978590%_)))) - (_%g7857780112%_ _%struct?76707%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7855178562%_)))) - (_%g7854980116%_ - (let* ((_%g8012080143%_ - (lambda (_%g8012180139%_) + _%g7949579506%_)))) + (_%g7949380983%_ _%final?79101%_))) + _%g7946779478%_)))) + (_%g7946580987%_ _%struct?77621%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g7943979450%_)))) + (_%g7943780991%_ + (let* ((_%g8099581018%_ + (lambda (_%g8099681014%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8012180139%_))) - (_%g8011980223%_ - (lambda (_%g8012180147%_) + _%g8099681014%_))) + (_%g8099481094%_ + (lambda (_%g8099681022%_) (if (gx#stx-pair/null? - _%g8012180147%_) - (let ((_g92083_ + _%g8099681022%_) + (let ((_g92948_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g8012180147%_ '0))) + (gx#syntax-split-splice _%g8099681022%_ '0))) (begin - (let ((_g92084_ + (let ((_g92949_ (let () (declare (not safe)) - (if (##values? _g92083_) - (##values-length _g92083_) + (if (##values? _g92948_) + (##values-length _g92948_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92084_ 2))) - (error "Context expects 2 values" _g92084_))) - (let ((_%target8012480150%_ + (##fx= _g92949_ 2))) + (error "Context expects 2 values" _g92949_))) + (let ((_%target8099981025%_ (let () (declare (not safe)) - (##values-ref _g92083_ 0))) - (_%tl8012680153%_ + (##values-ref _g92948_ 0))) + (_%tl8100181028%_ (let () (declare (not safe)) - (##values-ref _g92083_ 1)))) - (if (gx#stx-null? _%tl8012680153%_) - (letrec ((_%loop8012780156%_ - (lambda (_%hd8012580160%_ - _%default8013180163%_ - _%slot8013280165%_) - (if (gx#stx-pair? _%hd8012580160%_) - (let ((_%e8012880168%_ + (##values-ref _g92948_ 1)))) + (if (gx#stx-null? _%tl8100181028%_) + (letrec ((_%loop8100281031%_ + (lambda (_%hd8100081035%_ + _%default8100681038%_ + _%slot8100781039%_) + (if (gx#stx-pair? _%hd8100081035%_) + (let ((_%e8100381041%_ (gx#syntax-e - _%hd8012580160%_))) - (let ((_%lp-hd8012980172%_ + _%hd8100081035%_))) + (let ((_%lp-hd8100481045%_ (let () (declare (not safe)) - (##car _%e8012880168%_))) - (_%lp-tl8013080175%_ + (##car _%e8100381041%_))) + (_%lp-tl8100581048%_ (let () (declare (not safe)) - (##cdr _%e8012880168%_)))) + (##cdr _%e8100381041%_)))) (if (gx#stx-pair? - _%lp-hd8012980172%_) - (let ((_%e8013580178%_ + _%lp-hd8100481045%_) + (let ((_%e8101081051%_ (gx#syntax-e - _%lp-hd8012980172%_))) - (let ((_%hd8013680182%_ + _%lp-hd8100481045%_))) + (let ((_%hd8101181055%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e8013580178%_))) - (_%tl8013780185%_ - (let () (declare (not safe)) (##cdr _%e8013580178%_)))) - (_%loop8012780156%_ - _%lp-tl8013080175%_ - (cons _%tl8013780185%_ _%default8013180163%_) - (cons _%hd8013680182%_ _%slot8013280165%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8012080143%_ - _%g8012180147%_)))) - (let ((_%default8013380188%_ - (reverse _%default8013180163%_)) - (_%slot8013480191%_ - (reverse _%slot8013280165%_))) - ((lambda (_%L80194%_ _%L80196%_) + (##car _%e8101081051%_))) + (_%tl8101281058%_ + (let () (declare (not safe)) (##cdr _%e8101081051%_)))) + (_%loop8100281031%_ + _%lp-tl8100581048%_ + (cons _%tl8101281058%_ _%default8100681038%_) + (cons _%hd8101181055%_ _%slot8100781039%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8099581018%_ + _%g8099681022%_)))) + (let ((_%default8100881061%_ + (reverse _%default8100681038%_)) + (_%slot8100981063%_ + (reverse _%slot8100781039%_))) + ((lambda (_%g8099781065%_ + _%g8099881067%_) (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L80194%_ - _%L80196%_) - (foldr (lambda (_%g8021180215%_ + _%g8099781065%_ + _%g8099881067%_) + (foldr (lambda (_%g8108281086%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g8021280218%_ - _%g8021380220%_) + _%g8108381089%_ + _%g8108481091%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g8021280218%_ '())) + (cons _%g8108381089%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g8021180215%_ + (cons _%g8108281086%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g8021380220%_)) + _%g8108481091%_)) '() - _%L80194%_ - _%L80196%_)))) + _%g8099781065%_ + _%g8099881067%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%default8013380188%_ - _%slot8013480191%_)))))) - (_%loop8012780156%_ - _%target8012480150%_ + _%default8100881061%_ + _%slot8100981063%_)))))) + (_%loop8100281031%_ + _%target8099981025%_ '() '())) - (_%g8012080143%_ _%g8012180147%_))))) - (_%g8012080143%_ _%g8012180147%_))))) + (_%g8099581018%_ _%g8099681022%_))))) + (_%g8099581018%_ _%g8099681022%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8011980223%_ + (_%g8099481094%_ (hash->list - _%slot-default-table76684%_)))))) - _%g7852378534%_)))) - (_%g7852180227%_ - (let* ((_%g8023180254%_ - (lambda (_%g8023280250%_) + _%slot-default-table77598%_)))))) + _%g7941179422%_)))) + (_%g7940981098%_ + (let* ((_%g8110281125%_ + (lambda (_%g8110381121%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8023280250%_))) - (_%g8023080334%_ - (lambda (_%g8023280258%_) + _%g8110381121%_))) + (_%g8110181201%_ + (lambda (_%g8110381129%_) (if (gx#stx-pair/null? - _%g8023280258%_) - (let ((_g92085_ + _%g8110381129%_) + (let ((_g92950_ (gx#syntax-split-splice - _%g8023280258%_ + _%g8110381129%_ '0))) (begin - (let ((_g92086_ + (let ((_g92951_ (let () (declare (not safe)) (if (##values? - _g92085_) + _g92950_) (##values-length - _g92085_) + _g92950_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g92086_ 2))) - (error "Context expects 2 values" _g92086_))) + (##fx= _g92951_ 2))) + (error "Context expects 2 values" _g92951_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target8023580261%_ + (let ((_%target8110681132%_ (let () (declare (not safe)) (##values-ref - _g92085_ + _g92950_ 0))) - (_%tl8023780264%_ + (_%tl8110881135%_ (let () (declare (not safe)) (##values-ref - _g92085_ + _g92950_ 1)))) (if (gx#stx-null? - _%tl8023780264%_) - (letrec ((_%loop8023880267%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd8023680271%_ - _%contract8024280274%_ - _%slot8024380276%_) - (if (gx#stx-pair? _%hd8023680271%_) - (let ((_%e8023980279%_ - (gx#syntax-e _%hd8023680271%_))) - (let ((_%lp-hd8024080283%_ + _%tl8110881135%_) + (letrec ((_%loop8110981138%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd8110781142%_ + _%contract8111381145%_ + _%slot8111481146%_) + (if (gx#stx-pair? _%hd8110781142%_) + (let ((_%e8111081148%_ + (gx#syntax-e _%hd8110781142%_))) + (let ((_%lp-hd8111181152%_ (let () (declare (not safe)) - (##car _%e8023980279%_))) - (_%lp-tl8024180286%_ + (##car _%e8111081148%_))) + (_%lp-tl8111281155%_ (let () (declare (not safe)) - (##cdr _%e8023980279%_)))) - (if (gx#stx-pair? _%lp-hd8024080283%_) - (let ((_%e8024680289%_ + (##cdr _%e8111081148%_)))) + (if (gx#stx-pair? _%lp-hd8111181152%_) + (let ((_%e8111781158%_ (gx#syntax-e - _%lp-hd8024080283%_))) - (let ((_%hd8024780293%_ + _%lp-hd8111181152%_))) + (let ((_%hd8111881162%_ (let () (declare (not safe)) - (##car _%e8024680289%_))) - (_%tl8024880296%_ + (##car _%e8111781158%_))) + (_%tl8111981165%_ (let () (declare (not safe)) - (##cdr _%e8024680289%_)))) - (_%loop8023880267%_ - _%lp-tl8024180286%_ - (cons _%tl8024880296%_ - _%contract8024280274%_) - (cons _%hd8024780293%_ - _%slot8024380276%_)))) - (_%g8023180254%_ _%g8023280258%_)))) - (let ((_%contract8024480299%_ - (reverse _%contract8024280274%_)) - (_%slot8024580302%_ - (reverse _%slot8024380276%_))) - ((lambda (_%L80305%_ _%L80307%_) + (##cdr _%e8111781158%_)))) + (_%loop8110981138%_ + _%lp-tl8111281155%_ + (cons _%tl8111981165%_ + _%contract8111381145%_) + (cons _%hd8111881162%_ + _%slot8111481146%_)))) + (_%g8110281125%_ _%g8110381129%_)))) + (let ((_%contract8111581168%_ + (reverse _%contract8111381145%_)) + (_%slot8111681170%_ + (reverse _%slot8111481146%_))) + ((lambda (_%g8110481172%_ _%g8110581174%_) (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L80305%_ - _%L80307%_) - (foldr (lambda (_%g8032280326%_ - _%g8032380329%_ - _%g8032480331%_) + _%g8110481172%_ + _%g8110581174%_) + (foldr (lambda (_%g8118981193%_ + _%g8119081196%_ + _%g8119181198%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g8032380329%_ '())) + (cons _%g8119081196%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g8032280326%_ '())) + (cons _%g8118981193%_ '())) '())))) - _%g8032480331%_)) + _%g8119181198%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L80305%_ - _%L80307%_)))) - _%contract8024480299%_ - _%slot8024580302%_)))))) - (_%loop8023880267%_ _%target8023580261%_ '() '())) - (_%g8023180254%_ _%g8023280258%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8023180254%_ - _%g8023280258%_))))) - (_%g8023080334%_ + _%g8110481172%_ + _%g8110581174%_)))) + _%contract8111581168%_ + _%slot8111681170%_)))))) + (_%loop8110981138%_ _%target8110681132%_ '() '())) + (_%g8110281125%_ _%g8110381129%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8110281125%_ + _%g8110381129%_))))) + (_%g8110181201%_ (hash->list - _%slot-contract-table76681%_)))))) - _%g7849578506%_)))) - (_%g7849380338%_ - (let* ((_%g8034280365%_ - (lambda (_%g8034380361%_) + _%slot-contract-table77595%_)))))) + _%g7938379394%_)))) + (_%g7938181205%_ + (let* ((_%g8120981232%_ + (lambda (_%g8121081228%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8034380361%_))) - (_%g8034180445%_ - (lambda (_%g8034380369%_) - (if (gx#stx-pair/null? _%g8034380369%_) - (let ((_g92087_ + _%g8121081228%_))) + (_%g8120881308%_ + (lambda (_%g8121081236%_) + (if (gx#stx-pair/null? _%g8121081236%_) + (let ((_g92952_ (gx#syntax-split-splice - _%g8034380369%_ + _%g8121081236%_ '0))) (begin - (let ((_g92088_ + (let ((_g92953_ (let () (declare (not safe)) - (if (##values? _g92087_) - (##values-length _g92087_) + (if (##values? _g92952_) + (##values-length _g92952_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92088_ 2))) + (##fx= _g92953_ 2))) (error "Context expects 2 values" - _g92088_))) - (let ((_%target8034680372%_ + _g92953_))) + (let ((_%target8121381239%_ (let () (declare (not safe)) - (##values-ref _g92087_ 0))) - (_%tl8034880375%_ + (##values-ref _g92952_ 0))) + (_%tl8121581242%_ (let () (declare (not safe)) - (##values-ref _g92087_ 1)))) - (if (gx#stx-null? _%tl8034880375%_) - (letrec ((_%loop8034980378%_ - (lambda (_%hd8034780382%_ - _%type8035380385%_ - _%slot8035480387%_) + (##values-ref _g92952_ 1)))) + (if (gx#stx-null? _%tl8121581242%_) + (letrec ((_%loop8121681245%_ + (lambda (_%hd8121481249%_ + _%type8122081252%_ + _%slot8122181253%_) (if (gx#stx-pair? - _%hd8034780382%_) - (let ((_%e8035080390%_ + _%hd8121481249%_) + (let ((_%e8121781255%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd8034780382%_))) - (let ((_%lp-hd8035180394%_ + (gx#syntax-e _%hd8121481249%_))) + (let ((_%lp-hd8121881259%_ (let () (declare (not safe)) - (##car _%e8035080390%_))) - (_%lp-tl8035280397%_ + (##car _%e8121781255%_))) + (_%lp-tl8121981262%_ (let () (declare (not safe)) - (##cdr _%e8035080390%_)))) - (if (gx#stx-pair? _%lp-hd8035180394%_) - (let ((_%e8035780400%_ - (gx#syntax-e _%lp-hd8035180394%_))) - (let ((_%hd8035880404%_ + (##cdr _%e8121781255%_)))) + (if (gx#stx-pair? _%lp-hd8121881259%_) + (let ((_%e8122481265%_ + (gx#syntax-e _%lp-hd8121881259%_))) + (let ((_%hd8122581269%_ (let () (declare (not safe)) - (##car _%e8035780400%_))) - (_%tl8035980407%_ + (##car _%e8122481265%_))) + (_%tl8122681272%_ (let () (declare (not safe)) - (##cdr _%e8035780400%_)))) - (_%loop8034980378%_ - _%lp-tl8035280397%_ - (cons _%tl8035980407%_ _%type8035380385%_) - (cons _%hd8035880404%_ _%slot8035480387%_)))) - (_%g8034280365%_ _%g8034380369%_)))) - (let ((_%type8035580410%_ (reverse _%type8035380385%_)) - (_%slot8035680413%_ (reverse _%slot8035480387%_))) - ((lambda (_%L80416%_ _%L80418%_) + (##cdr _%e8122481265%_)))) + (_%loop8121681245%_ + _%lp-tl8121981262%_ + (cons _%tl8122681272%_ _%type8122081252%_) + (cons _%hd8122581269%_ _%slot8122181253%_)))) + (_%g8120981232%_ _%g8121081236%_)))) + (let ((_%type8122281275%_ (reverse _%type8122081252%_)) + (_%slot8122381277%_ (reverse _%slot8122181253%_))) + ((lambda (_%g8121181279%_ _%g8121281281%_) (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L80416%_ - _%L80418%_) - (foldr (lambda (_%g8043380437%_ - _%g8043480440%_ - _%g8043580442%_) + _%g8121181279%_ + _%g8121281281%_) + (foldr (lambda (_%g8129681300%_ + _%g8129781303%_ + _%g8129881305%_) (cons (cons (gx#datum->syntax '#f '@list) @@ -15243,239 +15243,239 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g8043480440%_ '())) + (cons _%g8129781303%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g8043380437%_ '())) + (cons _%g8129681300%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g8043580442%_)) + _%g8129881305%_)) '() - _%L80416%_ - _%L80418%_)))) - _%type8035580410%_ - _%slot8035680413%_)))))) + _%g8121181279%_ + _%g8121281281%_)))) + _%type8122281275%_ + _%slot8122381277%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop8034980378%_ - _%target8034680372%_ + (_%loop8121681245%_ + _%target8121381239%_ '() '())) - (_%g8034280365%_ - _%g8034380369%_))))) - (_%g8034280365%_ _%g8034380369%_))))) - (_%g8034180445%_ - (filter (lambda (_%st80449%_) (cdr _%st80449%_)) - (hash->list _%slot-type-table76679%_))))))) - _%g7846778478%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7846580452%_ + (_%g8120981232%_ + _%g8121081236%_))))) + (_%g8120981232%_ _%g8121081236%_))))) + (_%g8120881308%_ + (filter (lambda (_%st81312%_) (cdr _%st81312%_)) + (hash->list _%slot-type-table77593%_))))))) + _%g7935579366%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7935381315%_ (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g8045580458%_ + (cons (foldr (lambda (_%g8131881321%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g8045680461%_) - (cons _%g8045580458%_ _%g8045680461%_)) + _%g8131981324%_) + (cons _%g8131881321%_ _%g8131981324%_)) '() - _%L76985%_) + _%g7784577895%_) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7843978450%_)))) - (_%g7843780464%_ + _%g7932779338%_)))) + (_%g7932581327%_ (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g8046780470%_ - _%g8046880473%_) - (cons _%g8046780470%_ - _%g8046880473%_)) + (cons (foldr (lambda (_%g8133081333%_ + _%g8133181336%_) + (cons _%g8133081333%_ + _%g8133181336%_)) '() - _%L76914%_) + _%g7777677826%_) '()))))) - _%g7841178422%_)))) - (_%g7840980476%_ - (let* ((_%g8048080497%_ - (lambda (_%g8048180493%_) + _%g7929979310%_)))) + (_%g7929781339%_ + (let* ((_%g8134381360%_ + (lambda (_%g8134481356%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8048180493%_))) - (_%g8047980558%_ - (lambda (_%g8048180501%_) - (if (gx#stx-pair/null? _%g8048180501%_) - (let ((_g92089_ + _%g8134481356%_))) + (_%g8134281419%_ + (lambda (_%g8134481364%_) + (if (gx#stx-pair/null? _%g8134481364%_) + (let ((_g92954_ (gx#syntax-split-splice - _%g8048180501%_ + _%g8134481364%_ '0))) (begin - (let ((_g92090_ + (let ((_g92955_ (let () (declare (not safe)) - (if (##values? _g92089_) - (##values-length _g92089_) + (if (##values? _g92954_) + (##values-length _g92954_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92090_ 2))) + (##fx= _g92955_ 2))) (error "Context expects 2 values" - _g92090_))) - (let ((_%target8048380504%_ + _g92955_))) + (let ((_%target8134681367%_ (let () (declare (not safe)) - (##values-ref _g92089_ 0))) - (_%tl8048580507%_ + (##values-ref _g92954_ 0))) + (_%tl8134881370%_ (let () (declare (not safe)) - (##values-ref _g92089_ 1)))) - (if (gx#stx-null? _%tl8048580507%_) - (letrec ((_%loop8048680510%_ - (lambda (_%hd8048480514%_ - _%super-id8049080517%_) + (##values-ref _g92954_ 1)))) + (if (gx#stx-null? _%tl8134881370%_) + (letrec ((_%loop8134981373%_ + (lambda (_%hd8134781377%_ + _%super-id8135381380%_) (if (gx#stx-pair? - _%hd8048480514%_) - (let ((_%e8048780520%_ + _%hd8134781377%_) + (let ((_%e8135081382%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd8048480514%_))) - (let ((_%lp-hd8048880524%_ + (gx#syntax-e _%hd8134781377%_))) + (let ((_%lp-hd8135181386%_ (let () (declare (not safe)) - (##car _%e8048780520%_))) - (_%lp-tl8048980527%_ + (##car _%e8135081382%_))) + (_%lp-tl8135281389%_ (let () (declare (not safe)) - (##cdr _%e8048780520%_)))) - (_%loop8048680510%_ - _%lp-tl8048980527%_ - (cons _%lp-hd8048880524%_ _%super-id8049080517%_)))) - (let ((_%super-id8049180530%_ - (reverse _%super-id8049080517%_))) - ((lambda (_%L80534%_) + (##cdr _%e8135081382%_)))) + (_%loop8134981373%_ + _%lp-tl8135281389%_ + (cons _%lp-hd8135181386%_ _%super-id8135381380%_)))) + (let ((_%super-id8135481392%_ + (reverse _%super-id8135381380%_))) + ((lambda (_%g8134581395%_) (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g8054980552%_ _%g8055080555%_) + (foldr (lambda (_%g8141081413%_ _%g8141181416%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g8054980552%_ '())) - _%g8055080555%_)) + (cons _%g8141081413%_ '())) + _%g8141181416%_)) '() - _%L80534%_))) - _%super-id8049180530%_)))))) + _%g8134581395%_))) + _%super-id8135481392%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop8048680510%_ - _%target8048380504%_ + (_%loop8134981373%_ + _%target8134681367%_ '())) - (_%g8048080497%_ - _%g8048180501%_))))) - (_%g8048080497%_ _%g8048180501%_))))) - (_%g8047980558%_ _%super-ref76670%_))))) - _%g7838378394%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7838180562%_ - (let* ((_%g8056680574%_ - (lambda (_%g8056780570%_) + (_%g8134381360%_ + _%g8134481364%_))))) + (_%g8134381360%_ _%g8134481364%_))))) + (_%g8134281419%_ _%super-ref77584%_))))) + _%g7927179282%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7926981423%_ + (let* ((_%g8142781435%_ + (lambda (_%g8142881431%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8056780570%_))) - (_%g8056580593%_ - (lambda (_%g8056780578%_) - ((lambda (_%L80581%_) + _%g8142881431%_))) + (_%g8142681454%_ + (lambda (_%g8142881439%_) + ((lambda (_%g8142981442%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L80581%_ '()))) - _%g8056780578%_)))) + (cons _%g8142981442%_ '()))) + _%g8142881439%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8056580593%_ + (_%g8142681454%_ (gx#stx-car (gx#stx-cdr - _%type-name78082%_))))))) - _%g7835578366%_)))) - (_%g7835380597%_ - (let* ((_%g8060180616%_ - (lambda (_%g8060280612%_) + _%type-name78970%_))))))) + _%g7924379254%_)))) + (_%g7924181458%_ + (let* ((_%g8146281477%_ + (lambda (_%g8146381473%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8060280612%_))) - (_%g8060080664%_ - (lambda (_%g8060280620%_) - (if (gx#stx-pair? _%g8060280620%_) - (let ((_%e8060480623%_ + _%g8146381473%_))) + (_%g8146181525%_ + (lambda (_%g8146381481%_) + (if (gx#stx-pair? _%g8146381481%_) + (let ((_%e8146581484%_ (gx#syntax-e - _%g8060280620%_))) - (let ((_%hd8060580627%_ + _%g8146381481%_))) + (let ((_%hd8146681488%_ (let () (declare (not safe)) - (##car _%e8060480623%_))) - (_%tl8060680630%_ + (##car _%e8146581484%_))) + (_%tl8146781491%_ (let () (declare (not safe)) - (##cdr _%e8060480623%_)))) + (##cdr _%e8146581484%_)))) (if (gx#stx-datum? - _%hd8060580627%_) - (let ((_%e8060780633%_ + _%hd8146681488%_) + (let ((_%e8146881494%_ (gx#stx-e - _%hd8060580627%_))) - (if (equal? _%e8060780633%_ + _%hd8146681488%_))) + (if (equal? _%e8146881494%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'id:) - (if (gx#stx-pair? _%tl8060680630%_) - (let ((_%e8060880637%_ - (gx#syntax-e _%tl8060680630%_))) - (let ((_%hd8060980641%_ + (if (gx#stx-pair? _%tl8146781491%_) + (let ((_%e8146981498%_ + (gx#syntax-e _%tl8146781491%_))) + (let ((_%hd8147081502%_ (let () (declare (not safe)) - (##car _%e8060880637%_))) - (_%tl8061080644%_ + (##car _%e8146981498%_))) + (_%tl8147181505%_ (let () (declare (not safe)) - (##cdr _%e8060880637%_)))) - (if (gx#stx-null? _%tl8061080644%_) - ((lambda (_%L80647%_) + (##cdr _%e8146981498%_)))) + (if (gx#stx-null? _%tl8147181505%_) + ((lambda (_%g8146481508%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L80647%_ '()))) - _%hd8060980641%_) - (_%g8060180616%_ _%g8060280620%_)))) - (_%g8060180616%_ _%g8060280620%_)) - (_%g8060180616%_ _%g8060280620%_))) - (_%g8060180616%_ _%g8060280620%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8060180616%_ - _%g8060280620%_))))) - (_%g8060080664%_ _%type-id78089%_))))) - _%g7832778338%_)))) - (_%g7832580668%_ - (_%wrap76533%_ + (cons _%g8146481508%_ '()))) + _%hd8147081502%_) + (_%g8146281477%_ _%g8146381481%_)))) + (_%g8146281477%_ _%g8146381481%_)) + (_%g8146281477%_ _%g8146381481%_))) + (_%g8146281477%_ _%g8146381481%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8146281477%_ + _%g8146381481%_))))) + (_%g8146181525%_ _%type-id78977%_))))) + _%g7921579226%_)))) + (_%g7921381529%_ + (_%wrap77449%_ (cons (gx#datum->syntax '#f 'defclass-type) - (cons _%L76763%_ - (cons _%L76847%_ - (cons _%L78313%_ - (cons _%L76819%_ - (foldr (lambda (_%g8067180674%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g8067280677%_) - (cons _%g8067180674%_ _%g8067280677%_)) + (cons _%g7766477677%_ + (cons _%g7774877761%_ + (cons _%g7918879201%_ + (cons _%g7772077733%_ + (foldr (lambda (_%g8153281535%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g8153381538%_) + (cons _%g8153281535%_ _%g8153381538%_)) '() - _%L78277%_)))))))))) + _%g7911579165%_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7829978310%_)))) + _%g7918779198%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7829780680%_ - (if (or (not (null? _%type-constructor78104%_)) + (_%g7918581541%_ + (if (or (not (null? _%type-constructor78991%_)) (and (zero? (hash-length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%slot-contract-table76681%_)) - (zero? (hash-length _%slot-default-table76684%_))) - _%metaclass78208%_) + _%slot-contract-table77595%_)) + (zero? (hash-length _%slot-default-table77598%_))) + _%metaclass79098%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L76791%_ + _%g7769277705%_ '#f)))) - _%type-body7823478273%_)))))) - (_%loop7822978253%_ _%target7822678247%_ '())) - (_%g7822378240%_ _%g7822478244%_))))) - (_%g7822378240%_ _%g7822478244%_))))) + _%type-body7912479162%_)))))) + (_%loop7911979143%_ _%target7911679137%_ '())) + (_%g7911379130%_ _%g7911479134%_))))) + (_%g7911379130%_ _%g7911479134%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7822280692%_ + (_%g7911281553%_ (foldr cons (foldr cons (foldr cons @@ -15485,1653 +15485,1660 @@ (foldr cons (foldr cons (foldr cons - _%type-mixin-slots78075%_ - _%type-slots77928%_) - _%type-properties78196%_) - _%type-metaclass78220%_) - _%type-final78217%_) - _%type-struct78214%_) - _%type-constructor78104%_) - _%type-name78082%_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%type-id78089%_)))) - _%mixin-usetf7772377762%_)))))) - (_%loop7771877742%_ _%target7771577736%_ '())) - (_%g7771277729%_ _%g7771377733%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7771277729%_ - _%g7771377733%_))))) - (_%g7771180696%_ + _%type-mixin-slots78963%_ + _%type-slots78816%_) + _%type-properties79086%_) + _%type-metaclass79110%_) + _%type-final79107%_) + _%type-struct79104%_) + _%type-constructor78991%_) + _%type-name78970%_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%type-id78977%_)))) + _%mixin-usetf7861378651%_)))))) + (_%loop7860878632%_ _%target7860578626%_ '())) + (_%g7860278619%_ _%g7860378623%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7860278619%_ + _%g7860378623%_))))) + (_%g7860181557%_ (gx#stx-map - (lambda (_%g8069980701%_) - (_%make-id76674%_ + (lambda (_%g8156081562%_) + (_%make-id77588%_ '"&" - _%g8069980701%_)) - (foldr (lambda (_%g8070480707%_ - _%g8070580710%_) - (cons _%g8070480707%_ - _%g8070580710%_)) + _%g8156081562%_)) + (foldr (lambda (_%g8156581568%_ + _%g8156681571%_) + (cons _%g8156581568%_ + _%g8156681571%_)) '() - _%L77411%_))))) - _%mixin-ugetf7765277691%_)))))) - (_%loop7764777671%_ _%target7764477665%_ '())) - (_%g7764177658%_ _%g7764277662%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7764177658%_ - _%g7764277662%_))))) - (_%g7764080713%_ + _%g7825978309%_))))) + _%mixin-ugetf7854478582%_)))))) + (_%loop7853978563%_ _%target7853678557%_ '())) + (_%g7853378550%_ _%g7853478554%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7853378550%_ + _%g7853478554%_))))) + (_%g7853281574%_ (gx#stx-map - (lambda (_%g8071680718%_) - (_%make-id76674%_ '"&" _%g8071680718%_)) - (foldr (lambda (_%g8072180724%_ - _%g8072280727%_) - (cons _%g8072180724%_ - _%g8072280727%_)) + (lambda (_%g8157781579%_) + (_%make-id77588%_ '"&" _%g8157781579%_)) + (foldr (lambda (_%g8158281585%_ + _%g8158381588%_) + (cons _%g8158281585%_ + _%g8158381588%_)) '() - _%L77340%_))))) - _%usetf7758177620%_)))))) + _%g7819078240%_))))) + _%usetf7847578513%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7757677600%_ - _%target7757377594%_ + (_%loop7847078494%_ + _%target7846778488%_ '())) - (_%g7757077587%_ - _%g7757177591%_))))) - (_%g7757077587%_ _%g7757177591%_))))) - (_%g7756980730%_ + (_%g7846478481%_ + _%g7846578485%_))))) + (_%g7846478481%_ _%g7846578485%_))))) + (_%g7846381591%_ (gx#stx-map - (lambda (_%g8073380735%_) - (_%make-id76674%_ '"&" _%g8073380735%_)) - (foldr (lambda (_%g8073880741%_ _%g8073980744%_) - (cons _%g8073880741%_ _%g8073980744%_)) + (lambda (_%g8159481596%_) + (_%make-id77588%_ '"&" _%g8159481596%_)) + (foldr (lambda (_%g8159981602%_ _%g8160081605%_) + (cons _%g8159981602%_ _%g8160081605%_)) '() - _%L77127%_))))) - _%ugetf7751077549%_)))))) + _%g7798378033%_))))) + _%ugetf7840678444%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7750577529%_ - _%target7750277523%_ + (_%loop7840178425%_ + _%target7839878419%_ '())) - (_%g7749977516%_ - _%g7750077520%_))))) - (_%g7749977516%_ _%g7750077520%_))))) - (_%g7749880747%_ + (_%g7839578412%_ + _%g7839678416%_))))) + (_%g7839578412%_ _%g7839678416%_))))) + (_%g7839481608%_ (gx#stx-map - (lambda (_%g8075080752%_) - (_%make-id76674%_ '"&" _%g8075080752%_)) - (foldr (lambda (_%g8075580758%_ _%g8075680761%_) - (cons _%g8075580758%_ _%g8075680761%_)) + (lambda (_%g8161181613%_) + (_%make-id77588%_ '"&" _%g8161181613%_)) + (foldr (lambda (_%g8161681619%_ _%g8161781622%_) + (cons _%g8161681619%_ _%g8161781622%_)) '() - _%L77056%_))))) - _%mixin-rawsetf7743977478%_)))))) + _%g7791477964%_))))) + _%mixin-rawsetf7833778375%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7743477458%_ - _%target7743177452%_ + (_%loop7833278356%_ + _%target7832978350%_ '())) - (_%g7742877445%_ _%g7742977449%_))))) - (_%g7742877445%_ _%g7742977449%_))))) - (_%g7742780764%_ + (_%g7832678343%_ _%g7832778347%_))))) + (_%g7832678343%_ _%g7832778347%_))))) + (_%g7832581625%_ (gx#stx-map - (lambda (_%g8076780769%_) - (_%make-id76674%_ - _%name76701%_ + (lambda (_%g8162881630%_) + (_%make-id77588%_ + _%name77615%_ '"-unchecked-" - _%g8076780769%_ + _%g8162881630%_ '"-set!")) - _%mixin-slots76698%_)))) + _%mixin-slots77612%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin-setf7736877407%_)))))) - (_%loop7736377387%_ - _%target7736077381%_ + _%mixin-setf7826878306%_)))))) + (_%loop7826378287%_ + _%target7826078281%_ '())) - (_%g7735777374%_ _%g7735877378%_))))) - (_%g7735777374%_ _%g7735877378%_))))) + (_%g7825778274%_ _%g7825878278%_))))) + (_%g7825778274%_ _%g7825878278%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7735680773%_ + (_%g7825681634%_ (gx#stx-map - (lambda (_%g8077680778%_) - (_%make-id76674%_ - _%name76701%_ + (lambda (_%g8163781639%_) + (_%make-id77588%_ + _%name77615%_ '"-" - _%g8077680778%_ + _%g8163781639%_ '"-set!")) - _%mixin-slots76698%_)))) - _%mixin-getf7729777336%_)))))) - (_%loop7729277316%_ _%target7728977310%_ '())) - (_%g7728677303%_ _%g7728777307%_))))) - (_%g7728677303%_ _%g7728777307%_))))) + _%mixin-slots77612%_)))) + _%mixin-getf7819978237%_)))))) + (_%loop7819478218%_ _%target7819178212%_ '())) + (_%g7818878205%_ _%g7818978209%_))))) + (_%g7818878205%_ _%g7818978209%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7728580782%_ + (_%g7818781643%_ (gx#stx-map - (lambda (_%g8078580787%_) - (_%make-id76674%_ - _%name76701%_ + (lambda (_%g8164681648%_) + (_%make-id77588%_ + _%name77615%_ '"-" - _%g8078580787%_)) - _%mixin-slots76698%_)))) - _%mixin-slot7722677265%_)))))) - (_%loop7722177245%_ _%target7721877239%_ '())) - (_%g7721577232%_ _%g7721677236%_))))) - (_%g7721577232%_ _%g7721677236%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7721480791%_ - _%mixin-slots76698%_))) - _%rawsetf7715577194%_)))))) - (_%loop7715077174%_ _%target7714777168%_ '())) - (_%g7714477161%_ _%g7714577165%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7714477161%_ - _%g7714577165%_))))) - (_%g7714380795%_ + _%g8164681648%_)) + _%mixin-slots77612%_)))) + _%mixin-slot7813078168%_)))))) + (_%loop7812578149%_ _%target7812278143%_ '())) + (_%g7811978136%_ _%g7812078140%_))))) + (_%g7811978136%_ _%g7812078140%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7811881652%_ + _%mixin-slots77612%_))) + _%rawsetf7806178099%_)))))) + (_%loop7805678080%_ _%target7805378074%_ '())) + (_%g7805078067%_ _%g7805178071%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7805078067%_ + _%g7805178071%_))))) + (_%g7804981656%_ (gx#stx-map - (lambda (_%g8079880800%_) - (_%make-id76674%_ - _%name76701%_ + (lambda (_%g8165981661%_) + (_%make-id77588%_ + _%name77615%_ '"-unchecked-" - _%g8079880800%_ + _%g8165981661%_ '"-set!")) - _%slots76692%_)))) - _%setf7708477123%_)))))) - (_%loop7707977103%_ _%target7707677097%_ '())) - (_%g7707377090%_ _%g7707477094%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7707377090%_ - _%g7707477094%_))))) - (_%g7707280804%_ + _%slots77606%_)))) + _%setf7799278030%_)))))) + (_%loop7798778011%_ _%target7798478005%_ '())) + (_%g7798177998%_ _%g7798278002%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7798177998%_ + _%g7798278002%_))))) + (_%g7798081665%_ (gx#stx-map - (lambda (_%g8080780809%_) - (_%make-id76674%_ - _%name76701%_ + (lambda (_%g8166881670%_) + (_%make-id77588%_ + _%name77615%_ '"-" - _%g8080780809%_ + _%g8166881670%_ '"-set!")) - _%slots76692%_)))) - _%getf7701377052%_)))))) + _%slots77606%_)))) + _%getf7792377961%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7700877032%_ - _%target7700577026%_ + (_%loop7791877942%_ + _%target7791577936%_ '())) - (_%g7700277019%_ - _%g7700377023%_))))) - (_%g7700277019%_ _%g7700377023%_))))) - (_%g7700180813%_ + (_%g7791277929%_ + _%g7791377933%_))))) + (_%g7791277929%_ _%g7791377933%_))))) + (_%g7791181674%_ (gx#stx-map - (lambda (_%g8081680818%_) - (_%make-id76674%_ - _%name76701%_ + (lambda (_%g8167781679%_) + (_%make-id77588%_ + _%name77615%_ '"-" - _%g8081680818%_)) - _%slots76692%_)))) - _%ordered-slot7694276981%_)))))) + _%g8167781679%_)) + _%slots77606%_)))) + _%ordered-slot7785477892%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7693776961%_ - _%target7693476955%_ + (_%loop7784977873%_ + _%target7784677867%_ '())) - (_%g7693176948%_ - _%g7693276952%_))))) - (_%g7693176948%_ _%g7693276952%_))))) - (_%g7693080822%_ _%ordered-slots76687%_))) - _%slot7687176910%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7686676890%_ - _%target7686376884%_ + (_%g7784377860%_ + _%g7784477864%_))))) + (_%g7784377860%_ _%g7784477864%_))))) + (_%g7784281683%_ _%ordered-slots77601%_))) + _%slot7778577823%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7778077804%_ + _%target7777777798%_ '())) - (_%g7686076877%_ _%g7686176881%_))))) - (_%g7686076877%_ _%g7686176881%_))))) - (_%g7685980826%_ _%slots76692%_))) + (_%g7777477791%_ _%g7777577795%_))))) + (_%g7777477791%_ _%g7777577795%_))))) + (_%g7777381687%_ _%slots77606%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7683376844%_)))) - (_%g7683180830%_ + _%g7774777758%_)))) + (_%g7774581691%_ (map gerbil/core/mop~MOP-2#!class-type-descriptor - _%super76704%_)))) - _%g7680576816%_)))) - (_%g7680380834%_ - (_%make-id76674%_ _%name76701%_ '"?")))) - _%g7677776788%_)))) - (_%g7677580838%_ (_%make-id76674%_ '"make-" _%name76701%_)))) - _%g7674976760%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7674780842%_ - (_%make-id76674%_ - _%name76701%_ + _%super77618%_)))) + _%g7771977730%_)))) + (_%g7771781695%_ + (_%make-id77588%_ _%name77615%_ '"?")))) + _%g7769177702%_)))) + (_%g7768981699%_ (_%make-id77588%_ '"make-" _%name77615%_)))) + _%g7766377674%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7766181703%_ + (_%make-id77588%_ + _%name77615%_ '"::t")))) - _%g7671176722%_)))) - (_%g7670980846%_ _%id76668%_)))))))))) - (let* ((_%g7653676564%_ - (lambda (_%g7653776560%_) + _%g7762577636%_)))) + (_%g7762381707%_ _%id77582%_)))))))))) + (let* ((_%g7745277480%_ + (lambda (_%g7745377476%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7653776560%_))) - (_%g7653576664%_ - (lambda (_%g7653776568%_) - (if (gx#stx-pair? _%g7653776568%_) - (let ((_%e7654176571%_ (gx#syntax-e _%g7653776568%_))) - (let ((_%hd7654276575%_ + _%g7745377476%_))) + (_%g7745177578%_ + (lambda (_%g7745377484%_) + (if (gx#stx-pair? _%g7745377484%_) + (let ((_%e7745777487%_ (gx#syntax-e _%g7745377484%_))) + (let ((_%hd7745877491%_ (let () (declare (not safe)) - (##car _%e7654176571%_))) - (_%tl7654376578%_ + (##car _%e7745777487%_))) + (_%tl7745977494%_ (let () (declare (not safe)) - (##cdr _%e7654176571%_)))) - (if (gx#stx-pair? _%tl7654376578%_) - (let ((_%e7654476581%_ - (gx#syntax-e _%tl7654376578%_))) - (let ((_%hd7654576585%_ + (##cdr _%e7745777487%_)))) + (if (gx#stx-pair? _%tl7745977494%_) + (let ((_%e7746077497%_ + (gx#syntax-e _%tl7745977494%_))) + (let ((_%hd7746177501%_ (let () (declare (not safe)) - (##car _%e7654476581%_))) - (_%tl7654676588%_ + (##car _%e7746077497%_))) + (_%tl7746277504%_ (let () (declare (not safe)) - (##cdr _%e7654476581%_)))) - (if (gx#stx-pair? _%tl7654676588%_) - (let ((_%e7654776591%_ - (gx#syntax-e _%tl7654676588%_))) - (let ((_%hd7654876595%_ + (##cdr _%e7746077497%_)))) + (if (gx#stx-pair? _%tl7746277504%_) + (let ((_%e7746377507%_ + (gx#syntax-e _%tl7746277504%_))) + (let ((_%hd7746477511%_ (let () (declare (not safe)) - (##car _%e7654776591%_))) - (_%tl7654976598%_ + (##car _%e7746377507%_))) + (_%tl7746577514%_ (let () (declare (not safe)) - (##cdr _%e7654776591%_)))) + (##cdr _%e7746377507%_)))) (if (gx#stx-pair/null? - _%hd7654876595%_) - (let ((_g92091_ + _%hd7746477511%_) + (let ((_g92956_ (gx#syntax-split-splice - _%hd7654876595%_ + _%hd7746477511%_ '0))) (begin - (let ((_g92092_ + (let ((_g92957_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g92091_) - (##values-length _g92091_) + _g92956_) + (##values-length _g92956_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g92092_ 2))) - (error "Context expects 2 values" _g92092_))) + (if (not (let () (declare (not safe)) (##fx= _g92957_ 2))) + (error "Context expects 2 values" _g92957_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7655076601%_ + (let ((_%target7746677517%_ (let () (declare (not safe)) (##values-ref - _g92091_ + _g92956_ 0))) - (_%tl7655276604%_ + (_%tl7746877520%_ (let () (declare (not safe)) (##values-ref - _g92091_ + _g92956_ 1)))) (if (gx#stx-null? - _%tl7655276604%_) - (letrec ((_%loop7655376607%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7655176611%_ _%slot7655776614%_) - (if (gx#stx-pair? _%hd7655176611%_) - (let ((_%e7655476617%_ - (gx#syntax-e _%hd7655176611%_))) - (let ((_%lp-hd7655576621%_ + _%tl7746877520%_) + (letrec ((_%loop7746977523%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7746777527%_ _%slot7747377530%_) + (if (gx#stx-pair? _%hd7746777527%_) + (let ((_%e7747077532%_ + (gx#syntax-e _%hd7746777527%_))) + (let ((_%lp-hd7747177536%_ (let () (declare (not safe)) - (##car _%e7655476617%_))) - (_%lp-tl7655676624%_ + (##car _%e7747077532%_))) + (_%lp-tl7747277539%_ (let () (declare (not safe)) - (##cdr _%e7655476617%_)))) - (_%loop7655376607%_ - _%lp-tl7655676624%_ - (cons _%lp-hd7655576621%_ - _%slot7655776614%_)))) - (let ((_%slot7655876627%_ - (reverse _%slot7655776614%_))) - ((lambda (_%L76631%_ _%L76633%_ _%L76634%_) - (_%generate76513%_ - _%L76634%_ - (foldr (lambda (_%g7665576658%_ - _%g7665676661%_) - (cons _%g7665576658%_ - _%g7665676661%_)) + (##cdr _%e7747077532%_)))) + (_%loop7746977523%_ + _%lp-tl7747277539%_ + (cons _%lp-hd7747177536%_ + _%slot7747377530%_)))) + (let ((_%slot7747477542%_ + (reverse _%slot7747377530%_))) + ((lambda (_%g7745477545%_ + _%g7745577547%_ + _%g7745677548%_) + (_%generate77429%_ + _%g7745677548%_ + (foldr (lambda (_%g7756977572%_ + _%g7757077575%_) + (cons _%g7756977572%_ + _%g7757077575%_)) '() - _%L76633%_) - _%L76631%_)) - _%tl7654976598%_ - _%slot7655876627%_ - _%hd7654576585%_)))))) - (_%loop7655376607%_ _%target7655076601%_ '())) - (_%g7653676564%_ _%g7653776568%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7653676564%_ - _%g7653776568%_)))) - (_%g7653676564%_ _%g7653776568%_)))) - (_%g7653676564%_ _%g7653776568%_)))) - (_%g7653676564%_ _%g7653776568%_))))) - (_%g7653576664%_ _%stx76510%_))))) + _%g7745577547%_) + _%g7745477545%_)) + _%tl7746577514%_ + _%slot7747477542%_ + _%hd7746177501%_)))))) + (_%loop7746977523%_ _%target7746677517%_ '())) + (_%g7745277480%_ _%g7745377484%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7745277480%_ + _%g7745377484%_)))) + (_%g7745277480%_ _%g7745377484%_)))) + (_%g7745277480%_ _%g7745377484%_)))) + (_%g7745277480%_ _%g7745377484%_))))) + (_%g7745177578%_ _%stx77426%_))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defstruct/c| - (lambda (_%$stx83856%_) - (let* ((_%g8386083879%_ - (lambda (_%g8386183875%_) + (lambda (_%$stx84707%_) + (let* ((_%g8471184730%_ + (lambda (_%g8471284726%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8386183875%_))) - (_%g8385983936%_ - (lambda (_%g8386183883%_) - (if (gx#stx-pair? _%g8386183883%_) - (let ((_%e8386583886%_ (gx#syntax-e _%g8386183883%_))) - (let ((_%hd8386683890%_ + _%g8471284726%_))) + (_%g8471084787%_ + (lambda (_%g8471284734%_) + (if (gx#stx-pair? _%g8471284734%_) + (let ((_%e8471684737%_ (gx#syntax-e _%g8471284734%_))) + (let ((_%hd8471784741%_ (let () (declare (not safe)) - (##car _%e8386583886%_))) - (_%tl8386783893%_ + (##car _%e8471684737%_))) + (_%tl8471884744%_ (let () (declare (not safe)) - (##cdr _%e8386583886%_)))) - (if (gx#stx-pair? _%tl8386783893%_) - (let ((_%e8386883896%_ - (gx#syntax-e _%tl8386783893%_))) - (let ((_%hd8386983900%_ + (##cdr _%e8471684737%_)))) + (if (gx#stx-pair? _%tl8471884744%_) + (let ((_%e8471984747%_ + (gx#syntax-e _%tl8471884744%_))) + (let ((_%hd8472084751%_ (let () (declare (not safe)) - (##car _%e8386883896%_))) - (_%tl8387083903%_ + (##car _%e8471984747%_))) + (_%tl8472184754%_ (let () (declare (not safe)) - (##cdr _%e8386883896%_)))) - (if (gx#stx-pair? _%tl8387083903%_) - (let ((_%e8387183906%_ - (gx#syntax-e _%tl8387083903%_))) - (let ((_%hd8387283910%_ + (##cdr _%e8471984747%_)))) + (if (gx#stx-pair? _%tl8472184754%_) + (let ((_%e8472284757%_ + (gx#syntax-e _%tl8472184754%_))) + (let ((_%hd8472384761%_ (let () (declare (not safe)) - (##car _%e8387183906%_))) - (_%tl8387383913%_ + (##car _%e8472284757%_))) + (_%tl8472484764%_ (let () (declare (not safe)) - (##cdr _%e8387183906%_)))) - ((lambda (_%L83916%_ - _%L83918%_ - _%L83919%_) + (##cdr _%e8472284757%_)))) + ((lambda (_%g8471384767%_ + _%g8471484769%_ + _%g8471584770%_) (cons (gx#datum->syntax '#f 'defclass/c) - (cons _%L83919%_ - (cons _%L83918%_ + (cons _%g8471584770%_ + (cons _%g8471484769%_ (cons 'struct: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '#t _%L83916%_)))))) + (cons '#t _%g8471384767%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl8387383913%_ - _%hd8387283910%_ - _%hd8386983900%_))) - (_%g8386083879%_ _%g8386183883%_)))) - (_%g8386083879%_ _%g8386183883%_)))) - (_%g8386083879%_ _%g8386183883%_))))) - (_%g8385983936%_ _%$stx83856%_)))) + _%tl8472484764%_ + _%hd8472384761%_ + _%hd8472084751%_))) + (_%g8471184730%_ _%g8471284734%_)))) + (_%g8471184730%_ _%g8471284734%_)))) + (_%g8471184730%_ _%g8471284734%_))))) + (_%g8471084787%_ _%$stx84707%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#do/c| - (lambda (_%stx83940%_) - (let* ((_%g8394384014%_ - (lambda (_%g8394484010%_) + (lambda (_%stx84791%_) + (let* ((_%g8479484865%_ + (lambda (_%g8479584861%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8394484010%_))) - (_%g8394284380%_ - (lambda (_%g8394484018%_) - (if (gx#stx-pair? _%g8394484018%_) - (let ((_%e8395184021%_ (gx#syntax-e _%g8394484018%_))) - (let ((_%hd8395284025%_ + _%g8479584861%_))) + (_%g8479385217%_ + (lambda (_%g8479584869%_) + (if (gx#stx-pair? _%g8479584869%_) + (let ((_%e8480284872%_ (gx#syntax-e _%g8479584869%_))) + (let ((_%hd8480384876%_ (let () (declare (not safe)) - (##car _%e8395184021%_))) - (_%tl8395384028%_ + (##car _%e8480284872%_))) + (_%tl8480484879%_ (let () (declare (not safe)) - (##cdr _%e8395184021%_)))) - (if (gx#stx-pair? _%tl8395384028%_) - (let ((_%e8395484031%_ - (gx#syntax-e _%tl8395384028%_))) - (let ((_%hd8395584035%_ + (##cdr _%e8480284872%_)))) + (if (gx#stx-pair? _%tl8480484879%_) + (let ((_%e8480584882%_ + (gx#syntax-e _%tl8480484879%_))) + (let ((_%hd8480684886%_ (let () (declare (not safe)) - (##car _%e8395484031%_))) - (_%tl8395684038%_ + (##car _%e8480584882%_))) + (_%tl8480784889%_ (let () (declare (not safe)) - (##cdr _%e8395484031%_)))) - (if (gx#stx-pair/null? _%hd8395584035%_) - (let ((_g92093_ + (##cdr _%e8480584882%_)))) + (if (gx#stx-pair/null? _%hd8480684886%_) + (let ((_g92958_ (gx#syntax-split-splice - _%hd8395584035%_ + _%hd8480684886%_ '0))) (begin - (let ((_g92094_ + (let ((_g92959_ (let () (declare (not safe)) - (if (##values? _g92093_) + (if (##values? _g92958_) (##values-length - _g92093_) + _g92958_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92094_ 2))) + (##fx= _g92959_ 2))) (error "Context expects 2 values" - _g92094_))) - (let ((_%target8395784041%_ + _g92959_))) + (let ((_%target8480884892%_ (let () (declare (not safe)) - (##values-ref _g92093_ 0))) - (_%tl8395984044%_ + (##values-ref _g92958_ 0))) + (_%tl8481084895%_ (let () (declare (not safe)) - (##values-ref _g92093_ 1)))) - (if (gx#stx-null? _%tl8395984044%_) - (letrec ((_%loop8396084047%_ - (lambda (_%hd8395884051%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%step8396484054%_ - _%init8396584056%_ - _%var/c8396684058%_) - (if (gx#stx-pair? _%hd8395884051%_) - (let ((_%e8396184061%_ (gx#syntax-e _%hd8395884051%_))) - (let ((_%lp-hd8396284065%_ + (##values-ref _g92958_ 1)))) + (if (gx#stx-null? _%tl8481084895%_) + (letrec ((_%loop8481184898%_ + (lambda (_%hd8480984902%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%step8481584905%_ + _%init8481684906%_ + _%var/c8481784907%_) + (if (gx#stx-pair? _%hd8480984902%_) + (let ((_%e8481284909%_ (gx#syntax-e _%hd8480984902%_))) + (let ((_%lp-hd8481384913%_ (let () (declare (not safe)) - (##car _%e8396184061%_))) - (_%lp-tl8396384068%_ + (##car _%e8481284909%_))) + (_%lp-tl8481484916%_ (let () (declare (not safe)) - (##cdr _%e8396184061%_)))) - (if (gx#stx-pair? _%lp-hd8396284065%_) - (let ((_%e8397084071%_ - (gx#syntax-e _%lp-hd8396284065%_))) - (let ((_%hd8397184075%_ + (##cdr _%e8481284909%_)))) + (if (gx#stx-pair? _%lp-hd8481384913%_) + (let ((_%e8482184919%_ + (gx#syntax-e _%lp-hd8481384913%_))) + (let ((_%hd8482284923%_ (let () (declare (not safe)) - (##car _%e8397084071%_))) - (_%tl8397284078%_ + (##car _%e8482184919%_))) + (_%tl8482384926%_ (let () (declare (not safe)) - (##cdr _%e8397084071%_)))) - (if (gx#stx-pair? _%tl8397284078%_) - (let ((_%e8397384081%_ - (gx#syntax-e _%tl8397284078%_))) - (let ((_%hd8397484085%_ + (##cdr _%e8482184919%_)))) + (if (gx#stx-pair? _%tl8482384926%_) + (let ((_%e8482484929%_ + (gx#syntax-e _%tl8482384926%_))) + (let ((_%hd8482584933%_ (let () (declare (not safe)) - (##car _%e8397384081%_))) - (_%tl8397584088%_ + (##car _%e8482484929%_))) + (_%tl8482684936%_ (let () (declare (not safe)) - (##cdr _%e8397384081%_)))) + (##cdr _%e8482484929%_)))) (if (gx#stx-pair/null? - _%tl8397584088%_) - (let ((_g92095_ + _%tl8482684936%_) + (let ((_g92960_ (gx#syntax-split-splice - _%tl8397584088%_ + _%tl8482684936%_ '0))) (begin - (let ((_g92096_ + (let ((_g92961_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g92095_) - (##values-length _g92095_) + _g92960_) + (##values-length _g92960_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g92096_ 2))) - (error "Context expects 2 values" _g92096_))) + (if (not (let () (declare (not safe)) (##fx= _g92961_ 2))) + (error "Context expects 2 values" _g92961_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target8397684091%_ + (let ((_%target8482784939%_ (let () (declare (not safe)) (##values-ref - _g92095_ + _g92960_ 0))) - (_%tl8397884094%_ + (_%tl8482984942%_ (let () (declare (not safe)) (##values-ref - _g92095_ + _g92960_ 1)))) (if (gx#stx-null? - _%tl8397884094%_) - (letrec ((_%loop8397984097%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd8397784101%_ _%step8398384104%_) - (if (gx#stx-pair? _%hd8397784101%_) - (let ((_%e8398084107%_ - (gx#syntax-e _%hd8397784101%_))) - (let ((_%lp-hd8398184111%_ + _%tl8482984942%_) + (letrec ((_%loop8483084945%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd8482884949%_ _%step8483484952%_) + (if (gx#stx-pair? _%hd8482884949%_) + (let ((_%e8483184954%_ + (gx#syntax-e _%hd8482884949%_))) + (let ((_%lp-hd8483284958%_ (let () (declare (not safe)) - (##car _%e8398084107%_))) - (_%lp-tl8398284114%_ + (##car _%e8483184954%_))) + (_%lp-tl8483384961%_ (let () (declare (not safe)) - (##cdr _%e8398084107%_)))) - (_%loop8397984097%_ - _%lp-tl8398284114%_ - (cons _%lp-hd8398184111%_ - _%step8398384104%_)))) - (let ((_%step8398484117%_ - (reverse _%step8398384104%_))) - (_%loop8396084047%_ - _%lp-tl8396384068%_ - (cons _%step8398484117%_ - _%step8396484054%_) - (cons _%hd8397484085%_ _%init8396584056%_) - (cons _%hd8397184075%_ - _%var/c8396684058%_))))))) - (_%loop8397984097%_ _%target8397684091%_ '())) - (_%g8394384014%_ _%g8394484018%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8394384014%_ - _%g8394484018%_)))) - (_%g8394384014%_ _%g8394484018%_)))) - (_%g8394384014%_ _%g8394484018%_)))) - (let ((_%step8396784121%_ (reverse _%step8396484054%_)) - (_%init8396884124%_ (reverse _%init8396584056%_)) - (_%var/c8396984126%_ - (reverse _%var/c8396684058%_))) - (if (gx#stx-pair? _%tl8395684038%_) - (let ((_%e8398584129%_ - (gx#syntax-e _%tl8395684038%_))) - (let ((_%hd8398684133%_ + (##cdr _%e8483184954%_)))) + (_%loop8483084945%_ + _%lp-tl8483384961%_ + (cons _%lp-hd8483284958%_ + _%step8483484952%_)))) + (let ((_%step8483584964%_ + (reverse _%step8483484952%_))) + (_%loop8481184898%_ + _%lp-tl8481484916%_ + (cons _%step8483584964%_ + _%step8481584905%_) + (cons _%hd8482584933%_ _%init8481684906%_) + (cons _%hd8482284923%_ + _%var/c8481784907%_))))))) + (_%loop8483084945%_ _%target8482784939%_ '())) + (_%g8479484865%_ _%g8479584869%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8479484865%_ + _%g8479584869%_)))) + (_%g8479484865%_ _%g8479584869%_)))) + (_%g8479484865%_ _%g8479584869%_)))) + (let ((_%step8481884967%_ (reverse _%step8481584905%_)) + (_%init8481984969%_ (reverse _%init8481684906%_)) + (_%var/c8482084970%_ + (reverse _%var/c8481784907%_))) + (if (gx#stx-pair? _%tl8480784889%_) + (let ((_%e8483684972%_ + (gx#syntax-e _%tl8480784889%_))) + (let ((_%hd8483784976%_ (let () (declare (not safe)) - (##car _%e8398584129%_))) - (_%tl8398784136%_ + (##car _%e8483684972%_))) + (_%tl8483884979%_ (let () (declare (not safe)) - (##cdr _%e8398584129%_)))) - (if (gx#stx-pair? _%hd8398684133%_) - (let ((_%e8398884139%_ - (gx#syntax-e _%hd8398684133%_))) - (let ((_%hd8398984143%_ + (##cdr _%e8483684972%_)))) + (if (gx#stx-pair? _%hd8483784976%_) + (let ((_%e8483984982%_ + (gx#syntax-e _%hd8483784976%_))) + (let ((_%hd8484084986%_ (let () (declare (not safe)) - (##car _%e8398884139%_))) - (_%tl8399084146%_ + (##car _%e8483984982%_))) + (_%tl8484184989%_ (let () (declare (not safe)) - (##cdr _%e8398884139%_)))) + (##cdr _%e8483984982%_)))) (if (gx#stx-pair/null? - _%tl8399084146%_) - (let ((_g92097_ + _%tl8484184989%_) + (let ((_g92962_ (gx#syntax-split-splice - _%tl8399084146%_ + _%tl8484184989%_ '0))) (begin - (let ((_g92098_ + (let ((_g92963_ (let () (declare (not safe)) (if (##values? - _g92097_) + _g92962_) (##values-length - _g92097_) + _g92962_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g92098_ 2))) - (error "Context expects 2 values" _g92098_))) + (##fx= _g92963_ 2))) + (error "Context expects 2 values" _g92963_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target8399184149%_ + (let ((_%target8484284992%_ (let () (declare (not safe)) (##values-ref - _g92097_ + _g92962_ 0))) - (_%tl8399384152%_ + (_%tl8484484995%_ (let () (declare (not safe)) (##values-ref - _g92097_ + _g92962_ 1)))) (if (gx#stx-null? - _%tl8399384152%_) - (letrec ((_%loop8399484155%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd8399284159%_ _%fini8399884162%_) - (if (gx#stx-pair? _%hd8399284159%_) - (let ((_%e8399584165%_ - (gx#syntax-e _%hd8399284159%_))) - (let ((_%lp-hd8399684169%_ + _%tl8484484995%_) + (letrec ((_%loop8484584998%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd8484385002%_ _%fini8484985005%_) + (if (gx#stx-pair? _%hd8484385002%_) + (let ((_%e8484685007%_ + (gx#syntax-e _%hd8484385002%_))) + (let ((_%lp-hd8484785011%_ (let () (declare (not safe)) - (##car _%e8399584165%_))) - (_%lp-tl8399784172%_ + (##car _%e8484685007%_))) + (_%lp-tl8484885014%_ (let () (declare (not safe)) - (##cdr _%e8399584165%_)))) - (_%loop8399484155%_ - _%lp-tl8399784172%_ - (cons _%lp-hd8399684169%_ - _%fini8399884162%_)))) - (let ((_%fini8399984175%_ - (reverse _%fini8399884162%_))) - (if (gx#stx-pair/null? _%tl8398784136%_) - (let ((_g92099_ + (##cdr _%e8484685007%_)))) + (_%loop8484584998%_ + _%lp-tl8484885014%_ + (cons _%lp-hd8484785011%_ + _%fini8484985005%_)))) + (let ((_%fini8485085017%_ + (reverse _%fini8484985005%_))) + (if (gx#stx-pair/null? _%tl8483884979%_) + (let ((_g92964_ (gx#syntax-split-splice - _%tl8398784136%_ + _%tl8483884979%_ '0))) (begin - (let ((_g92100_ + (let ((_g92965_ (let () (declare (not safe)) - (if (##values? _g92099_) + (if (##values? _g92964_) (##values-length - _g92099_) + _g92964_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92100_ 2))) + (##fx= _g92965_ 2))) (error "Context expects 2 values" - _g92100_))) - (let ((_%target8400084179%_ + _g92965_))) + (let ((_%target8485185020%_ (let () (declare (not safe)) - (##values-ref _g92099_ 0))) - (_%tl8400284182%_ + (##values-ref _g92964_ 0))) + (_%tl8485385023%_ (let () (declare (not safe)) - (##values-ref _g92099_ 1)))) - (if (gx#stx-null? _%tl8400284182%_) - (letrec ((_%loop8400384185%_ - (lambda (_%hd8400184189%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body8400784192%_) - (if (gx#stx-pair? _%hd8400184189%_) - (let ((_%e8400484195%_ (gx#syntax-e _%hd8400184189%_))) - (let ((_%lp-hd8400584199%_ + (##values-ref _g92964_ 1)))) + (if (gx#stx-null? _%tl8485385023%_) + (letrec ((_%loop8485485026%_ + (lambda (_%hd8485285030%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body8485885033%_) + (if (gx#stx-pair? _%hd8485285030%_) + (let ((_%e8485585035%_ (gx#syntax-e _%hd8485285030%_))) + (let ((_%lp-hd8485685039%_ (let () (declare (not safe)) - (##car _%e8400484195%_))) - (_%lp-tl8400684202%_ + (##car _%e8485585035%_))) + (_%lp-tl8485785042%_ (let () (declare (not safe)) - (##cdr _%e8400484195%_)))) - (_%loop8400384185%_ - _%lp-tl8400684202%_ - (cons _%lp-hd8400584199%_ _%body8400784192%_)))) - (let ((_%body8400884205%_ - (reverse _%body8400784192%_))) - ((lambda (_%L84209%_ - _%L84211%_ - _%L84212%_ - _%L84213%_ - _%L84214%_ - _%L84215%_) - (let* ((_%g8424984266%_ - (lambda (_%g8425084262%_) + (##cdr _%e8485585035%_)))) + (_%loop8485485026%_ + _%lp-tl8485785042%_ + (cons _%lp-hd8485685039%_ _%body8485885033%_)))) + (let ((_%body8485985045%_ + (reverse _%body8485885033%_))) + ((lambda (_%g8479685048%_ + _%g8479785050%_ + _%g8479885051%_ + _%g8479985052%_ + _%g8480085053%_ + _%g8480185054%_) + (let* ((_%g8508885105%_ + (lambda (_%g8508985101%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8425084262%_))) - (_%g8424884365%_ - (lambda (_%g8425084270%_) - (if (gx#stx-pair/null? _%g8425084270%_) - (let ((_g92101_ + _%g8508985101%_))) + (_%g8508785202%_ + (lambda (_%g8508985109%_) + (if (gx#stx-pair/null? _%g8508985109%_) + (let ((_g92966_ (gx#syntax-split-splice - _%g8425084270%_ + _%g8508985109%_ '0))) (begin - (let ((_g92102_ + (let ((_g92967_ (let () (declare (not safe)) (if (##values? - _g92101_) + _g92966_) (##values-length - _g92101_) + _g92966_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92102_ + (##fx= _g92967_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g92102_))) - (let ((_%target8425284273%_ + _g92967_))) + (let ((_%target8509185112%_ (let () (declare (not safe)) (##values-ref - _g92101_ + _g92966_ 0))) - (_%tl8425484276%_ + (_%tl8509385115%_ (let () (declare (not safe)) (##values-ref - _g92101_ + _g92966_ 1)))) (if (gx#stx-null? - _%tl8425484276%_) - (letrec ((_%loop8425584279%_ - (lambda (_%hd8425384283%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%var8425984286%_) - (if (gx#stx-pair? _%hd8425384283%_) - (let ((_%e8425684289%_ - (gx#syntax-e _%hd8425384283%_))) - (let ((_%lp-hd8425784293%_ + _%tl8509385115%_) + (letrec ((_%loop8509485118%_ + (lambda (_%hd8509285122%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%var8509885125%_) + (if (gx#stx-pair? _%hd8509285122%_) + (let ((_%e8509585127%_ + (gx#syntax-e _%hd8509285122%_))) + (let ((_%lp-hd8509685131%_ (let () (declare (not safe)) - (##car _%e8425684289%_))) - (_%lp-tl8425884296%_ + (##car _%e8509585127%_))) + (_%lp-tl8509785134%_ (let () (declare (not safe)) - (##cdr _%e8425684289%_)))) - (_%loop8425584279%_ - _%lp-tl8425884296%_ - (cons _%lp-hd8425784293%_ - _%var8425984286%_)))) - (let ((_%var8426084299%_ - (reverse _%var8425984286%_))) - ((lambda (_%L84303%_) + (##cdr _%e8509585127%_)))) + (_%loop8509485118%_ + _%lp-tl8509785134%_ + (cons _%lp-hd8509685131%_ + _%var8509885125%_)))) + (let ((_%var8509985137%_ + (reverse _%var8509885125%_))) + ((lambda (_%g8509085140%_) (cons (gx#datum->syntax '#f 'let/c) (cons (gx#datum->syntax '#f '$loop) (cons (begin (gx#syntax-check-splice-targets - _%L84214%_ - _%L84215%_) - (foldr (lambda (_%g8431884331%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g8431984334%_ - _%g8432084336%_) - (cons (cons _%g8431984334%_ (cons _%g8431884331%_ '())) - _%g8432084336%_)) + _%g8480085053%_ + _%g8480185054%_) + (foldr (lambda (_%g8515585168%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g8515685171%_ + _%g8515785173%_) + (cons (cons _%g8515685171%_ (cons _%g8515585168%_ '())) + _%g8515785173%_)) '() - _%L84214%_ - _%L84215%_)) + _%g8480085053%_ + _%g8480185054%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'if) - (cons _%L84212%_ + (cons _%g8479885051%_ (cons (cons (gx#datum->syntax '#f 'do-loop-result) - (foldr (lambda (_%g8432184339%_ - _%g8432284342%_) - (cons _%g8432184339%_ - _%g8432284342%_)) + (foldr (lambda (_%g8515885176%_ + _%g8515985179%_) + (cons _%g8515885176%_ + _%g8515985179%_)) '() - _%L84211%_)) + _%g8479785050%_)) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g8432384345%_ + (foldr (lambda (_%g8516085182%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g8432484348%_) - (cons _%g8432384345%_ _%g8432484348%_)) + _%g8516185185%_) + (cons _%g8516085182%_ _%g8516185185%_)) (cons (cons (gx#datum->syntax '#f '$loop) (begin (gx#syntax-check-splice-targets - _%L84213%_ - _%L84303%_) - (foldr (lambda (_%g8432584351%_ - _%g8432684354%_ - _%g8432784356%_) + _%g8479985052%_ + _%g8509085140%_) + (foldr (lambda (_%g8516285188%_ + _%g8516385191%_ + _%g8516485193%_) (cons (cons (gx#datum->syntax '#f 'do-loop-step) - (cons _%g8432684354%_ - (foldr (lambda (_%g8432884359%_ + (cons _%g8516385191%_ + (foldr (lambda (_%g8516585196%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g8432984362%_) - (cons _%g8432884359%_ _%g8432984362%_)) + _%g8516685199%_) + (cons _%g8516585196%_ _%g8516685199%_)) '() - _%g8432584351%_))) + _%g8516285188%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g8432784356%_)) + _%g8516485193%_)) '() - _%L84213%_ - _%L84303%_))) + _%g8479985052%_ + _%g8509085140%_))) '()) - _%L84209%_))) + _%g8479685048%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%var8426084299%_)))))) - (_%loop8425584279%_ _%target8425284273%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8424984266%_ - _%g8425084270%_))))) - (_%g8424984266%_ - _%g8425084270%_))))) - (_%g8424884365%_ - (map (lambda (_%b84369%_) - (if (gx#identifier? _%b84369%_) - _%b84369%_ - (gx#stx-car _%b84369%_))) - (foldr (lambda (_%g8437184374%_ - _%g8437284377%_) - (cons _%g8437184374%_ - _%g8437284377%_)) + _%var8509985137%_)))))) + (_%loop8509485118%_ _%target8509185112%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8508885105%_ + _%g8508985109%_))))) + (_%g8508885105%_ + _%g8508985109%_))))) + (_%g8508785202%_ + (map (lambda (_%b85206%_) + (if (gx#identifier? _%b85206%_) + _%b85206%_ + (gx#stx-car _%b85206%_))) + (foldr (lambda (_%g8520885211%_ + _%g8520985214%_) + (cons _%g8520885211%_ + _%g8520985214%_)) '() - _%L84215%_))))) - _%body8400884205%_ - _%fini8399984175%_ - _%hd8398984143%_ - _%step8396784121%_ - _%init8396884124%_ - _%var/c8396984126%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop8400384185%_ - _%target8400084179%_ + _%g8480185054%_))))) + _%body8485985045%_ + _%fini8485085017%_ + _%hd8484084986%_ + _%step8481884967%_ + _%init8481984969%_ + _%var/c8482084970%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop8485485026%_ + _%target8485185020%_ '())) - (_%g8394384014%_ - _%g8394484018%_))))) - (_%g8394384014%_ _%g8394484018%_))))))) - (_%loop8399484155%_ _%target8399184149%_ '())) - (_%g8394384014%_ _%g8394484018%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8394384014%_ - _%g8394484018%_)))) - (_%g8394384014%_ _%g8394484018%_)))) - (_%g8394384014%_ _%g8394484018%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop8396084047%_ - _%target8395784041%_ + (_%g8479484865%_ + _%g8479584869%_))))) + (_%g8479484865%_ _%g8479584869%_))))))) + (_%loop8484584998%_ _%target8484284992%_ '())) + (_%g8479484865%_ _%g8479584869%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8479484865%_ + _%g8479584869%_)))) + (_%g8479484865%_ _%g8479584869%_)))) + (_%g8479484865%_ _%g8479584869%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop8481184898%_ + _%target8480884892%_ '() '() '())) - (_%g8394384014%_ - _%g8394484018%_))))) - (_%g8394384014%_ _%g8394484018%_)))) - (_%g8394384014%_ _%g8394484018%_)))) - (_%g8394384014%_ _%g8394484018%_))))) - (_%g8394284380%_ _%stx83940%_)))) + (_%g8479484865%_ + _%g8479584869%_))))) + (_%g8479484865%_ _%g8479584869%_)))) + (_%g8479484865%_ _%g8479584869%_)))) + (_%g8479484865%_ _%g8479584869%_))))) + (_%g8479385217%_ _%stx84791%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#do-loop-result| - (lambda (_%$stx84389%_) - (let* ((_%__stx9140391404%_ _%$stx84389%_) - (_%g8439584429%_ + (lambda (_%$stx85226%_) + (let* ((_%__stx9225692257%_ _%$stx85226%_) + (_%g8523285266%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9140391404%_)))) - (let ((_%__kont9140691407%_ (lambda () '#!void)) - (_%__kont9140891409%_ (lambda (_%L84541%_) _%L84541%_)) - (_%__kont9141091411%_ - (lambda (_%L84486%_ _%L84488%_) + _%__stx9225692257%_)))) + (let ((_%__kont9225992260%_ (lambda () '#!void)) + (_%__kont9226192262%_ + (lambda (_%g8523785376%_) _%g8523785376%_)) + (_%__kont9226392264%_ + (lambda (_%g8524485321%_ _%g8524585323%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L84488%_ - (foldr (lambda (_%g8450584508%_ _%g8450684511%_) - (cons _%g8450584508%_ _%g8450684511%_)) + (cons _%g8524585323%_ + (foldr (lambda (_%g8534085343%_ _%g8534185346%_) + (cons _%g8534085343%_ _%g8534185346%_)) '() - _%L84486%_)))))) - (let ((_%__match9145691457%_ - (lambda (_%e8440984436%_ - _%hd8441084440%_ - _%tl8441184443%_ - _%e8441284446%_ - _%hd8441384450%_ - _%tl8441484453%_ - _%__splice9141291413%_ - _%target8441584456%_ - _%tl8441784459%_) - (letrec ((_%loop8441884462%_ - (lambda (_%hd8441684466%_ _%rest8442284469%_) - (if (gx#stx-pair? _%hd8441684466%_) - (let ((_%e8441984472%_ - (gx#syntax-e _%hd8441684466%_))) - (let ((_%lp-tl8442184479%_ + _%g8524485321%_)))))) + (let ((_%__match9230992310%_ + (lambda (_%e8524685273%_ + _%hd8524785277%_ + _%tl8524885280%_ + _%e8524985283%_ + _%hd8525085287%_ + _%tl8525185290%_ + _%__splice9226592266%_ + _%target8525285293%_ + _%tl8525485296%_) + (letrec ((_%loop8525585299%_ + (lambda (_%hd8525385303%_ _%rest8525985306%_) + (if (gx#stx-pair? _%hd8525385303%_) + (let ((_%e8525685308%_ + (gx#syntax-e _%hd8525385303%_))) + (let ((_%lp-tl8525885315%_ (let () (declare (not safe)) - (##cdr _%e8441984472%_))) - (_%lp-hd8442084476%_ + (##cdr _%e8525685308%_))) + (_%lp-hd8525785312%_ (let () (declare (not safe)) - (##car _%e8441984472%_)))) - (_%loop8441884462%_ - _%lp-tl8442184479%_ - (cons _%lp-hd8442084476%_ - _%rest8442284469%_)))) - (let ((_%rest8442384482%_ - (reverse _%rest8442284469%_))) - (_%__kont9141091411%_ - _%rest8442384482%_ - _%hd8441384450%_)))))) - (_%loop8441884462%_ _%target8441584456%_ '()))))) - (if (gx#stx-pair? _%__stx9140391404%_) - (let ((_%e8439784561%_ (gx#syntax-e _%__stx9140391404%_))) - (let ((_%tl8439984568%_ + (##car _%e8525685308%_)))) + (_%loop8525585299%_ + _%lp-tl8525885315%_ + (cons _%lp-hd8525785312%_ + _%rest8525985306%_)))) + (let ((_%rest8526085318%_ + (reverse _%rest8525985306%_))) + (_%__kont9226392264%_ + _%rest8526085318%_ + _%hd8525085287%_)))))) + (_%loop8525585299%_ _%target8525285293%_ '()))))) + (if (gx#stx-pair? _%__stx9225692257%_) + (let ((_%e8523485396%_ (gx#syntax-e _%__stx9225692257%_))) + (let ((_%tl8523685403%_ (let () (declare (not safe)) - (##cdr _%e8439784561%_))) - (_%hd8439884565%_ + (##cdr _%e8523485396%_))) + (_%hd8523585400%_ (let () (declare (not safe)) - (##car _%e8439784561%_)))) - (if (gx#stx-null? _%tl8439984568%_) - (_%__kont9140691407%_) - (if (gx#stx-pair? _%tl8439984568%_) - (let ((_%e8440484531%_ - (gx#syntax-e _%tl8439984568%_))) - (let ((_%tl8440684538%_ + (##car _%e8523485396%_)))) + (if (gx#stx-null? _%tl8523685403%_) + (_%__kont9225992260%_) + (if (gx#stx-pair? _%tl8523685403%_) + (let ((_%e8524185366%_ + (gx#syntax-e _%tl8523685403%_))) + (let ((_%tl8524385373%_ (let () (declare (not safe)) - (##cdr _%e8440484531%_))) - (_%hd8440584535%_ + (##cdr _%e8524185366%_))) + (_%hd8524285370%_ (let () (declare (not safe)) - (##car _%e8440484531%_)))) - (if (gx#stx-null? _%tl8440684538%_) - (_%__kont9140891409%_ _%hd8440584535%_) - (if (gx#stx-pair/null? _%tl8440684538%_) - (let ((_%__splice9141291413%_ + (##car _%e8524185366%_)))) + (if (gx#stx-null? _%tl8524385373%_) + (_%__kont9226192262%_ _%hd8524285370%_) + (if (gx#stx-pair/null? _%tl8524385373%_) + (let ((_%__splice9226592266%_ (gx#syntax-split-splice->vector - _%tl8440684538%_ + _%tl8524385373%_ '0))) - (let ((_%tl8441784459%_ + (let ((_%tl8525485296%_ (let () (declare (not safe)) (##vector-ref - _%__splice9141291413%_ + _%__splice9226592266%_ '1))) - (_%target8441584456%_ + (_%target8525285293%_ (let () (declare (not safe)) (##vector-ref - _%__splice9141291413%_ + _%__splice9226592266%_ '0)))) (if (gx#stx-null? - _%tl8441784459%_) - (_%__match9145691457%_ - _%e8439784561%_ - _%hd8439884565%_ - _%tl8439984568%_ - _%e8440484531%_ - _%hd8440584535%_ - _%tl8440684538%_ - _%__splice9141291413%_ - _%target8441584456%_ - _%tl8441784459%_) + _%tl8525485296%_) + (_%__match9230992310%_ + _%e8523485396%_ + _%hd8523585400%_ + _%tl8523685403%_ + _%e8524185366%_ + _%hd8524285370%_ + _%tl8524385373%_ + _%__splice9226592266%_ + _%target8525285293%_ + _%tl8525485296%_) (let () (declare (not safe)) - (_%g8439584429%_))))) + (_%g8523285266%_))))) (let () (declare (not safe)) - (_%g8439584429%_)))))) + (_%g8523285266%_)))))) (let () (declare (not safe)) - (_%g8439584429%_)))))) - (let () (declare (not safe)) (_%g8439584429%_)))))))) + (_%g8523285266%_)))))) + (let () (declare (not safe)) (_%g8523285266%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#do-loop-step| - (lambda (_%$stx84580%_) - (let* ((_%__stx9145991460%_ _%$stx84580%_) - (_%g8458684632%_ + (lambda (_%$stx85415%_) + (let* ((_%__stx9231292313%_ _%$stx85415%_) + (_%g8542185467%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9145991460%_)))) - (let ((_%__kont9146291463%_ (lambda (_%L84812%_) _%L84812%_)) - (_%__kont9146491465%_ - (lambda (_%L84768%_ _%L84770%_) _%L84768%_)) - (_%__kont9146691467%_ - (lambda (_%L84699%_ _%L84701%_ _%L84702%_) + _%__stx9231292313%_)))) + (let ((_%__kont9231592316%_ + (lambda (_%g8542385645%_) _%g8542385645%_)) + (_%__kont9231792318%_ + (lambda (_%g8543085601%_ _%g8543185603%_) _%g8543085601%_)) + (_%__kont9231992320%_ + (lambda (_%g8544185532%_ _%g8544285534%_ _%g8544385535%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L84701%_ - (foldr (lambda (_%g8472284725%_ _%g8472384728%_) - (cons _%g8472284725%_ _%g8472384728%_)) + (cons _%g8544285534%_ + (foldr (lambda (_%g8555585558%_ _%g8555685561%_) + (cons _%g8555585558%_ _%g8555685561%_)) '() - _%L84699%_)))))) - (let ((_%__match9153091531%_ - (lambda (_%e8460984639%_ - _%hd8461084643%_ - _%tl8461184646%_ - _%e8461284649%_ - _%hd8461384653%_ - _%tl8461484656%_ - _%e8461584659%_ - _%hd8461684663%_ - _%tl8461784666%_ - _%__splice9146891469%_ - _%target8461884669%_ - _%tl8462084672%_) - (letrec ((_%loop8462184675%_ - (lambda (_%hd8461984679%_ _%rest8462584682%_) - (if (gx#stx-pair? _%hd8461984679%_) - (let ((_%e8462284685%_ - (gx#syntax-e _%hd8461984679%_))) - (let ((_%lp-tl8462484692%_ + _%g8544185532%_)))))) + (let ((_%__match9238392384%_ + (lambda (_%e8544485474%_ + _%hd8544585478%_ + _%tl8544685481%_ + _%e8544785484%_ + _%hd8544885488%_ + _%tl8544985491%_ + _%e8545085494%_ + _%hd8545185498%_ + _%tl8545285501%_ + _%__splice9232192322%_ + _%target8545385504%_ + _%tl8545585507%_) + (letrec ((_%loop8545685510%_ + (lambda (_%hd8545485514%_ _%rest8546085517%_) + (if (gx#stx-pair? _%hd8545485514%_) + (let ((_%e8545785519%_ + (gx#syntax-e _%hd8545485514%_))) + (let ((_%lp-tl8545985526%_ (let () (declare (not safe)) - (##cdr _%e8462284685%_))) - (_%lp-hd8462384689%_ + (##cdr _%e8545785519%_))) + (_%lp-hd8545885523%_ (let () (declare (not safe)) - (##car _%e8462284685%_)))) - (_%loop8462184675%_ - _%lp-tl8462484692%_ - (cons _%lp-hd8462384689%_ - _%rest8462584682%_)))) - (let ((_%rest8462684695%_ - (reverse _%rest8462584682%_))) - (_%__kont9146691467%_ - _%rest8462684695%_ - _%hd8461684663%_ - _%hd8461384653%_)))))) - (_%loop8462184675%_ _%target8461884669%_ '()))))) - (if (gx#stx-pair? _%__stx9145991460%_) - (let ((_%e8458984792%_ (gx#syntax-e _%__stx9145991460%_))) - (let ((_%tl8459184799%_ + (##car _%e8545785519%_)))) + (_%loop8545685510%_ + _%lp-tl8545985526%_ + (cons _%lp-hd8545885523%_ + _%rest8546085517%_)))) + (let ((_%rest8546185529%_ + (reverse _%rest8546085517%_))) + (_%__kont9231992320%_ + _%rest8546185529%_ + _%hd8545185498%_ + _%hd8544885488%_)))))) + (_%loop8545685510%_ _%target8545385504%_ '()))))) + (if (gx#stx-pair? _%__stx9231292313%_) + (let ((_%e8542485625%_ (gx#syntax-e _%__stx9231292313%_))) + (let ((_%tl8542685632%_ (let () (declare (not safe)) - (##cdr _%e8458984792%_))) - (_%hd8459084796%_ + (##cdr _%e8542485625%_))) + (_%hd8542585629%_ (let () (declare (not safe)) - (##car _%e8458984792%_)))) - (if (gx#stx-pair? _%tl8459184799%_) - (let ((_%e8459284802%_ - (gx#syntax-e _%tl8459184799%_))) - (let ((_%tl8459484809%_ + (##car _%e8542485625%_)))) + (if (gx#stx-pair? _%tl8542685632%_) + (let ((_%e8542785635%_ + (gx#syntax-e _%tl8542685632%_))) + (let ((_%tl8542985642%_ (let () (declare (not safe)) - (##cdr _%e8459284802%_))) - (_%hd8459384806%_ + (##cdr _%e8542785635%_))) + (_%hd8542885639%_ (let () (declare (not safe)) - (##car _%e8459284802%_)))) - (if (gx#stx-null? _%tl8459484809%_) - (_%__kont9146291463%_ _%hd8459384806%_) - (if (gx#stx-pair? _%tl8459484809%_) - (let ((_%e8460384758%_ - (gx#syntax-e _%tl8459484809%_))) - (let ((_%tl8460584765%_ + (##car _%e8542785635%_)))) + (if (gx#stx-null? _%tl8542985642%_) + (_%__kont9231592316%_ _%hd8542885639%_) + (if (gx#stx-pair? _%tl8542985642%_) + (let ((_%e8543885591%_ + (gx#syntax-e _%tl8542985642%_))) + (let ((_%tl8544085598%_ (let () (declare (not safe)) - (##cdr _%e8460384758%_))) - (_%hd8460484762%_ + (##cdr _%e8543885591%_))) + (_%hd8543985595%_ (let () (declare (not safe)) - (##car _%e8460384758%_)))) - (if (gx#stx-null? _%tl8460584765%_) - (_%__kont9146491465%_ - _%hd8460484762%_ - _%hd8459384806%_) + (##car _%e8543885591%_)))) + (if (gx#stx-null? _%tl8544085598%_) + (_%__kont9231792318%_ + _%hd8543985595%_ + _%hd8542885639%_) (if (gx#stx-pair/null? - _%tl8460584765%_) - (let ((_%__splice9146891469%_ + _%tl8544085598%_) + (let ((_%__splice9232192322%_ (gx#syntax-split-splice->vector - _%tl8460584765%_ + _%tl8544085598%_ '0))) - (let ((_%tl8462084672%_ + (let ((_%tl8545585507%_ (let () (declare (not safe)) (##vector-ref - _%__splice9146891469%_ + _%__splice9232192322%_ '1))) - (_%target8461884669%_ + (_%target8545385504%_ (let () (declare (not safe)) (##vector-ref - _%__splice9146891469%_ + _%__splice9232192322%_ '0)))) (if (gx#stx-null? - _%tl8462084672%_) - (_%__match9153091531%_ - _%e8458984792%_ - _%hd8459084796%_ - _%tl8459184799%_ - _%e8459284802%_ - _%hd8459384806%_ - _%tl8459484809%_ - _%e8460384758%_ - _%hd8460484762%_ - _%tl8460584765%_ - _%__splice9146891469%_ - _%target8461884669%_ - _%tl8462084672%_) + _%tl8545585507%_) + (_%__match9238392384%_ + _%e8542485625%_ + _%hd8542585629%_ + _%tl8542685632%_ + _%e8542785635%_ + _%hd8542885639%_ + _%tl8542985642%_ + _%e8543885591%_ + _%hd8543985595%_ + _%tl8544085598%_ + _%__splice9232192322%_ + _%target8545385504%_ + _%tl8545585507%_) (let () (declare (not safe)) - (_%g8458684632%_))))) + (_%g8542185467%_))))) (let () (declare (not safe)) - (_%g8458684632%_)))))) + (_%g8542185467%_)))))) (let () (declare (not safe)) - (_%g8458684632%_)))))) - (let () (declare (not safe)) (_%g8458684632%_))))) - (let () (declare (not safe)) (_%g8458684632%_)))))))) + (_%g8542185467%_)))))) + (let () (declare (not safe)) (_%g8542185467%_))))) + (let () (declare (not safe)) (_%g8542185467%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#do-while/c| - (lambda (_%stx84830%_) - (let* ((_%g8483384904%_ - (lambda (_%g8483484900%_) + (lambda (_%stx85663%_) + (let* ((_%g8566685737%_ + (lambda (_%g8566785733%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8483484900%_))) - (_%g8483285270%_ - (lambda (_%g8483484908%_) - (if (gx#stx-pair? _%g8483484908%_) - (let ((_%e8484184911%_ (gx#syntax-e _%g8483484908%_))) - (let ((_%hd8484284915%_ + _%g8566785733%_))) + (_%g8566586089%_ + (lambda (_%g8566785741%_) + (if (gx#stx-pair? _%g8566785741%_) + (let ((_%e8567485744%_ (gx#syntax-e _%g8566785741%_))) + (let ((_%hd8567585748%_ (let () (declare (not safe)) - (##car _%e8484184911%_))) - (_%tl8484384918%_ + (##car _%e8567485744%_))) + (_%tl8567685751%_ (let () (declare (not safe)) - (##cdr _%e8484184911%_)))) - (if (gx#stx-pair? _%tl8484384918%_) - (let ((_%e8484484921%_ - (gx#syntax-e _%tl8484384918%_))) - (let ((_%hd8484584925%_ + (##cdr _%e8567485744%_)))) + (if (gx#stx-pair? _%tl8567685751%_) + (let ((_%e8567785754%_ + (gx#syntax-e _%tl8567685751%_))) + (let ((_%hd8567885758%_ (let () (declare (not safe)) - (##car _%e8484484921%_))) - (_%tl8484684928%_ + (##car _%e8567785754%_))) + (_%tl8567985761%_ (let () (declare (not safe)) - (##cdr _%e8484484921%_)))) - (if (gx#stx-pair/null? _%hd8484584925%_) - (let ((_g92103_ + (##cdr _%e8567785754%_)))) + (if (gx#stx-pair/null? _%hd8567885758%_) + (let ((_g92968_ (gx#syntax-split-splice - _%hd8484584925%_ + _%hd8567885758%_ '0))) (begin - (let ((_g92104_ + (let ((_g92969_ (let () (declare (not safe)) - (if (##values? _g92103_) + (if (##values? _g92968_) (##values-length - _g92103_) + _g92968_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92104_ 2))) + (##fx= _g92969_ 2))) (error "Context expects 2 values" - _g92104_))) - (let ((_%target8484784931%_ + _g92969_))) + (let ((_%target8568085764%_ (let () (declare (not safe)) - (##values-ref _g92103_ 0))) - (_%tl8484984934%_ + (##values-ref _g92968_ 0))) + (_%tl8568285767%_ (let () (declare (not safe)) - (##values-ref _g92103_ 1)))) - (if (gx#stx-null? _%tl8484984934%_) - (letrec ((_%loop8485084937%_ - (lambda (_%hd8484884941%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%step8485484944%_ - _%init8485584946%_ - _%var/c8485684948%_) - (if (gx#stx-pair? _%hd8484884941%_) - (let ((_%e8485184951%_ (gx#syntax-e _%hd8484884941%_))) - (let ((_%lp-hd8485284955%_ + (##values-ref _g92968_ 1)))) + (if (gx#stx-null? _%tl8568285767%_) + (letrec ((_%loop8568385770%_ + (lambda (_%hd8568185774%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%step8568785777%_ + _%init8568885778%_ + _%var/c8568985779%_) + (if (gx#stx-pair? _%hd8568185774%_) + (let ((_%e8568485781%_ (gx#syntax-e _%hd8568185774%_))) + (let ((_%lp-hd8568585785%_ (let () (declare (not safe)) - (##car _%e8485184951%_))) - (_%lp-tl8485384958%_ + (##car _%e8568485781%_))) + (_%lp-tl8568685788%_ (let () (declare (not safe)) - (##cdr _%e8485184951%_)))) - (if (gx#stx-pair? _%lp-hd8485284955%_) - (let ((_%e8486084961%_ - (gx#syntax-e _%lp-hd8485284955%_))) - (let ((_%hd8486184965%_ + (##cdr _%e8568485781%_)))) + (if (gx#stx-pair? _%lp-hd8568585785%_) + (let ((_%e8569385791%_ + (gx#syntax-e _%lp-hd8568585785%_))) + (let ((_%hd8569485795%_ (let () (declare (not safe)) - (##car _%e8486084961%_))) - (_%tl8486284968%_ + (##car _%e8569385791%_))) + (_%tl8569585798%_ (let () (declare (not safe)) - (##cdr _%e8486084961%_)))) - (if (gx#stx-pair? _%tl8486284968%_) - (let ((_%e8486384971%_ - (gx#syntax-e _%tl8486284968%_))) - (let ((_%hd8486484975%_ + (##cdr _%e8569385791%_)))) + (if (gx#stx-pair? _%tl8569585798%_) + (let ((_%e8569685801%_ + (gx#syntax-e _%tl8569585798%_))) + (let ((_%hd8569785805%_ (let () (declare (not safe)) - (##car _%e8486384971%_))) - (_%tl8486584978%_ + (##car _%e8569685801%_))) + (_%tl8569885808%_ (let () (declare (not safe)) - (##cdr _%e8486384971%_)))) + (##cdr _%e8569685801%_)))) (if (gx#stx-pair/null? - _%tl8486584978%_) - (let ((_g92105_ + _%tl8569885808%_) + (let ((_g92970_ (gx#syntax-split-splice - _%tl8486584978%_ + _%tl8569885808%_ '0))) (begin - (let ((_g92106_ + (let ((_g92971_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g92105_) - (##values-length _g92105_) + _g92970_) + (##values-length _g92970_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g92106_ 2))) - (error "Context expects 2 values" _g92106_))) + (if (not (let () (declare (not safe)) (##fx= _g92971_ 2))) + (error "Context expects 2 values" _g92971_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target8486684981%_ + (let ((_%target8569985811%_ (let () (declare (not safe)) (##values-ref - _g92105_ + _g92970_ 0))) - (_%tl8486884984%_ + (_%tl8570185814%_ (let () (declare (not safe)) (##values-ref - _g92105_ + _g92970_ 1)))) (if (gx#stx-null? - _%tl8486884984%_) - (letrec ((_%loop8486984987%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd8486784991%_ _%step8487384994%_) - (if (gx#stx-pair? _%hd8486784991%_) - (let ((_%e8487084997%_ - (gx#syntax-e _%hd8486784991%_))) - (let ((_%lp-hd8487185001%_ + _%tl8570185814%_) + (letrec ((_%loop8570285817%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd8570085821%_ _%step8570685824%_) + (if (gx#stx-pair? _%hd8570085821%_) + (let ((_%e8570385826%_ + (gx#syntax-e _%hd8570085821%_))) + (let ((_%lp-hd8570485830%_ (let () (declare (not safe)) - (##car _%e8487084997%_))) - (_%lp-tl8487285004%_ + (##car _%e8570385826%_))) + (_%lp-tl8570585833%_ (let () (declare (not safe)) - (##cdr _%e8487084997%_)))) - (_%loop8486984987%_ - _%lp-tl8487285004%_ - (cons _%lp-hd8487185001%_ - _%step8487384994%_)))) - (let ((_%step8487485007%_ - (reverse _%step8487384994%_))) - (_%loop8485084937%_ - _%lp-tl8485384958%_ - (cons _%step8487485007%_ - _%step8485484944%_) - (cons _%hd8486484975%_ _%init8485584946%_) - (cons _%hd8486184965%_ - _%var/c8485684948%_))))))) - (_%loop8486984987%_ _%target8486684981%_ '())) - (_%g8483384904%_ _%g8483484908%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8483384904%_ - _%g8483484908%_)))) - (_%g8483384904%_ _%g8483484908%_)))) - (_%g8483384904%_ _%g8483484908%_)))) - (let ((_%step8485785011%_ (reverse _%step8485484944%_)) - (_%init8485885014%_ (reverse _%init8485584946%_)) - (_%var/c8485985016%_ - (reverse _%var/c8485684948%_))) - (if (gx#stx-pair? _%tl8484684928%_) - (let ((_%e8487585019%_ - (gx#syntax-e _%tl8484684928%_))) - (let ((_%hd8487685023%_ + (##cdr _%e8570385826%_)))) + (_%loop8570285817%_ + _%lp-tl8570585833%_ + (cons _%lp-hd8570485830%_ + _%step8570685824%_)))) + (let ((_%step8570785836%_ + (reverse _%step8570685824%_))) + (_%loop8568385770%_ + _%lp-tl8568685788%_ + (cons _%step8570785836%_ + _%step8568785777%_) + (cons _%hd8569785805%_ _%init8568885778%_) + (cons _%hd8569485795%_ + _%var/c8568985779%_))))))) + (_%loop8570285817%_ _%target8569985811%_ '())) + (_%g8566685737%_ _%g8566785741%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8566685737%_ + _%g8566785741%_)))) + (_%g8566685737%_ _%g8566785741%_)))) + (_%g8566685737%_ _%g8566785741%_)))) + (let ((_%step8569085839%_ (reverse _%step8568785777%_)) + (_%init8569185841%_ (reverse _%init8568885778%_)) + (_%var/c8569285842%_ + (reverse _%var/c8568985779%_))) + (if (gx#stx-pair? _%tl8567985761%_) + (let ((_%e8570885844%_ + (gx#syntax-e _%tl8567985761%_))) + (let ((_%hd8570985848%_ (let () (declare (not safe)) - (##car _%e8487585019%_))) - (_%tl8487785026%_ + (##car _%e8570885844%_))) + (_%tl8571085851%_ (let () (declare (not safe)) - (##cdr _%e8487585019%_)))) - (if (gx#stx-pair? _%hd8487685023%_) - (let ((_%e8487885029%_ - (gx#syntax-e _%hd8487685023%_))) - (let ((_%hd8487985033%_ + (##cdr _%e8570885844%_)))) + (if (gx#stx-pair? _%hd8570985848%_) + (let ((_%e8571185854%_ + (gx#syntax-e _%hd8570985848%_))) + (let ((_%hd8571285858%_ (let () (declare (not safe)) - (##car _%e8487885029%_))) - (_%tl8488085036%_ + (##car _%e8571185854%_))) + (_%tl8571385861%_ (let () (declare (not safe)) - (##cdr _%e8487885029%_)))) + (##cdr _%e8571185854%_)))) (if (gx#stx-pair/null? - _%tl8488085036%_) - (let ((_g92107_ + _%tl8571385861%_) + (let ((_g92972_ (gx#syntax-split-splice - _%tl8488085036%_ + _%tl8571385861%_ '0))) (begin - (let ((_g92108_ + (let ((_g92973_ (let () (declare (not safe)) (if (##values? - _g92107_) + _g92972_) (##values-length - _g92107_) + _g92972_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g92108_ 2))) - (error "Context expects 2 values" _g92108_))) + (##fx= _g92973_ 2))) + (error "Context expects 2 values" _g92973_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target8488185039%_ + (let ((_%target8571485864%_ (let () (declare (not safe)) (##values-ref - _g92107_ + _g92972_ 0))) - (_%tl8488385042%_ + (_%tl8571685867%_ (let () (declare (not safe)) (##values-ref - _g92107_ + _g92972_ 1)))) (if (gx#stx-null? - _%tl8488385042%_) - (letrec ((_%loop8488485045%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd8488285049%_ _%fini8488885052%_) - (if (gx#stx-pair? _%hd8488285049%_) - (let ((_%e8488585055%_ - (gx#syntax-e _%hd8488285049%_))) - (let ((_%lp-hd8488685059%_ + _%tl8571685867%_) + (letrec ((_%loop8571785870%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd8571585874%_ _%fini8572185877%_) + (if (gx#stx-pair? _%hd8571585874%_) + (let ((_%e8571885879%_ + (gx#syntax-e _%hd8571585874%_))) + (let ((_%lp-hd8571985883%_ (let () (declare (not safe)) - (##car _%e8488585055%_))) - (_%lp-tl8488785062%_ + (##car _%e8571885879%_))) + (_%lp-tl8572085886%_ (let () (declare (not safe)) - (##cdr _%e8488585055%_)))) - (_%loop8488485045%_ - _%lp-tl8488785062%_ - (cons _%lp-hd8488685059%_ - _%fini8488885052%_)))) - (let ((_%fini8488985065%_ - (reverse _%fini8488885052%_))) - (if (gx#stx-pair/null? _%tl8487785026%_) - (let ((_g92109_ + (##cdr _%e8571885879%_)))) + (_%loop8571785870%_ + _%lp-tl8572085886%_ + (cons _%lp-hd8571985883%_ + _%fini8572185877%_)))) + (let ((_%fini8572285889%_ + (reverse _%fini8572185877%_))) + (if (gx#stx-pair/null? _%tl8571085851%_) + (let ((_g92974_ (gx#syntax-split-splice - _%tl8487785026%_ + _%tl8571085851%_ '0))) (begin - (let ((_g92110_ + (let ((_g92975_ (let () (declare (not safe)) - (if (##values? _g92109_) + (if (##values? _g92974_) (##values-length - _g92109_) + _g92974_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92110_ 2))) + (##fx= _g92975_ 2))) (error "Context expects 2 values" - _g92110_))) - (let ((_%target8489085069%_ + _g92975_))) + (let ((_%target8572385892%_ (let () (declare (not safe)) - (##values-ref _g92109_ 0))) - (_%tl8489285072%_ + (##values-ref _g92974_ 0))) + (_%tl8572585895%_ (let () (declare (not safe)) - (##values-ref _g92109_ 1)))) - (if (gx#stx-null? _%tl8489285072%_) - (letrec ((_%loop8489385075%_ - (lambda (_%hd8489185079%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body8489785082%_) - (if (gx#stx-pair? _%hd8489185079%_) - (let ((_%e8489485085%_ (gx#syntax-e _%hd8489185079%_))) - (let ((_%lp-hd8489585089%_ + (##values-ref _g92974_ 1)))) + (if (gx#stx-null? _%tl8572585895%_) + (letrec ((_%loop8572685898%_ + (lambda (_%hd8572485902%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body8573085905%_) + (if (gx#stx-pair? _%hd8572485902%_) + (let ((_%e8572785907%_ (gx#syntax-e _%hd8572485902%_))) + (let ((_%lp-hd8572885911%_ (let () (declare (not safe)) - (##car _%e8489485085%_))) - (_%lp-tl8489685092%_ + (##car _%e8572785907%_))) + (_%lp-tl8572985914%_ (let () (declare (not safe)) - (##cdr _%e8489485085%_)))) - (_%loop8489385075%_ - _%lp-tl8489685092%_ - (cons _%lp-hd8489585089%_ _%body8489785082%_)))) - (let ((_%body8489885095%_ - (reverse _%body8489785082%_))) - ((lambda (_%L85099%_ - _%L85101%_ - _%L85102%_ - _%L85103%_ - _%L85104%_ - _%L85105%_) - (let* ((_%g8513985156%_ - (lambda (_%g8514085152%_) + (##cdr _%e8572785907%_)))) + (_%loop8572685898%_ + _%lp-tl8572985914%_ + (cons _%lp-hd8572885911%_ _%body8573085905%_)))) + (let ((_%body8573185917%_ + (reverse _%body8573085905%_))) + ((lambda (_%g8566885920%_ + _%g8566985922%_ + _%g8567085923%_ + _%g8567185924%_ + _%g8567285925%_ + _%g8567385926%_) + (let* ((_%g8596085977%_ + (lambda (_%g8596185973%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8514085152%_))) - (_%g8513885255%_ - (lambda (_%g8514085160%_) - (if (gx#stx-pair/null? _%g8514085160%_) - (let ((_g92111_ + _%g8596185973%_))) + (_%g8595986074%_ + (lambda (_%g8596185981%_) + (if (gx#stx-pair/null? _%g8596185981%_) + (let ((_g92976_ (gx#syntax-split-splice - _%g8514085160%_ + _%g8596185981%_ '0))) (begin - (let ((_g92112_ + (let ((_g92977_ (let () (declare (not safe)) (if (##values? - _g92111_) + _g92976_) (##values-length - _g92111_) + _g92976_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g92112_ + (##fx= _g92977_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g92112_))) - (let ((_%target8514285163%_ + _g92977_))) + (let ((_%target8596385984%_ (let () (declare (not safe)) (##values-ref - _g92111_ + _g92976_ 0))) - (_%tl8514485166%_ + (_%tl8596585987%_ (let () (declare (not safe)) (##values-ref - _g92111_ + _g92976_ 1)))) (if (gx#stx-null? - _%tl8514485166%_) - (letrec ((_%loop8514585169%_ - (lambda (_%hd8514385173%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%var8514985176%_) - (if (gx#stx-pair? _%hd8514385173%_) - (let ((_%e8514685179%_ - (gx#syntax-e _%hd8514385173%_))) - (let ((_%lp-hd8514785183%_ + _%tl8596585987%_) + (letrec ((_%loop8596685990%_ + (lambda (_%hd8596485994%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%var8597085997%_) + (if (gx#stx-pair? _%hd8596485994%_) + (let ((_%e8596785999%_ + (gx#syntax-e _%hd8596485994%_))) + (let ((_%lp-hd8596886003%_ (let () (declare (not safe)) - (##car _%e8514685179%_))) - (_%lp-tl8514885186%_ + (##car _%e8596785999%_))) + (_%lp-tl8596986006%_ (let () (declare (not safe)) - (##cdr _%e8514685179%_)))) - (_%loop8514585169%_ - _%lp-tl8514885186%_ - (cons _%lp-hd8514785183%_ - _%var8514985176%_)))) - (let ((_%var8515085189%_ - (reverse _%var8514985176%_))) - ((lambda (_%L85193%_) + (##cdr _%e8596785999%_)))) + (_%loop8596685990%_ + _%lp-tl8596986006%_ + (cons _%lp-hd8596886003%_ + _%var8597085997%_)))) + (let ((_%var8597186009%_ + (reverse _%var8597085997%_))) + ((lambda (_%g8596286012%_) (cons (gx#datum->syntax '#f 'let/c) (cons (gx#datum->syntax '#f '$loop) (cons (begin (gx#syntax-check-splice-targets - _%L85104%_ - _%L85105%_) - (foldr (lambda (_%g8520885221%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g8520985224%_ - _%g8521085226%_) - (cons (cons _%g8520985224%_ (cons _%g8520885221%_ '())) - _%g8521085226%_)) + _%g8567285925%_ + _%g8567385926%_) + (foldr (lambda (_%g8602786040%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g8602886043%_ + _%g8602986045%_) + (cons (cons _%g8602886043%_ (cons _%g8602786040%_ '())) + _%g8602986045%_)) '() - _%L85104%_ - _%L85105%_)) + _%g8567285925%_ + _%g8567385926%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g8521185229%_ + (foldr (lambda (_%g8603086048%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g8521285232%_) - (cons _%g8521185229%_ _%g8521285232%_)) + _%g8603186051%_) + (cons _%g8603086048%_ _%g8603186051%_)) (cons (cons (gx#datum->syntax '#f 'if) - (cons _%L85102%_ + (cons _%g8567085923%_ (cons (cons (gx#datum->syntax '#f '$loop) (begin (gx#syntax-check-splice-targets - _%L85103%_ - _%L85193%_) - (foldr (lambda (_%g8521385235%_ + _%g8567185924%_ + _%g8596286012%_) + (foldr (lambda (_%g8603286054%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g8521485238%_ - _%g8521585240%_) + _%g8603386057%_ + _%g8603486059%_) (cons (cons (gx#datum->syntax '#f 'do-loop-step) - (cons _%g8521485238%_ - (foldr (lambda (_%g8521685243%_ - _%g8521785246%_) - (cons _%g8521685243%_ - _%g8521785246%_)) + (cons _%g8603386057%_ + (foldr (lambda (_%g8603586062%_ + _%g8603686065%_) + (cons _%g8603586062%_ + _%g8603686065%_)) '() - _%g8521385235%_))) - _%g8521585240%_)) + _%g8603286054%_))) + _%g8603486059%_)) '() - _%L85103%_ - _%L85193%_))) + _%g8567185924%_ + _%g8596286012%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'do-loop-result) - (foldr (lambda (_%g8521885249%_ + (foldr (lambda (_%g8603786068%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g8521985252%_) - (cons _%g8521885249%_ _%g8521985252%_)) + _%g8603886071%_) + (cons _%g8603786068%_ _%g8603886071%_)) '() - _%L85101%_)) + _%g8566985922%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()) - _%L85099%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%var8515085189%_)))))) - (_%loop8514585169%_ _%target8514285163%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8513985156%_ - _%g8514085160%_))))) - (_%g8513985156%_ - _%g8514085160%_))))) - (_%g8513885255%_ - (map (lambda (_%b85259%_) - (if (gx#identifier? _%b85259%_) - _%b85259%_ - (gx#stx-car _%b85259%_))) - (foldr (lambda (_%g8526185264%_ - _%g8526285267%_) - (cons _%g8526185264%_ - _%g8526285267%_)) + _%g8566885920%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%var8597186009%_)))))) + (_%loop8596685990%_ _%target8596385984%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8596085977%_ + _%g8596185981%_))))) + (_%g8596085977%_ + _%g8596185981%_))))) + (_%g8595986074%_ + (map (lambda (_%b86078%_) + (if (gx#identifier? _%b86078%_) + _%b86078%_ + (gx#stx-car _%b86078%_))) + (foldr (lambda (_%g8608086083%_ + _%g8608186086%_) + (cons _%g8608086083%_ + _%g8608186086%_)) '() - _%L85105%_))))) - _%body8489885095%_ - _%fini8488985065%_ - _%hd8487985033%_ - _%step8485785011%_ - _%init8485885014%_ - _%var/c8485985016%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop8489385075%_ - _%target8489085069%_ + _%g8567385926%_))))) + _%body8573185917%_ + _%fini8572285889%_ + _%hd8571285858%_ + _%step8569085839%_ + _%init8569185841%_ + _%var/c8569285842%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop8572685898%_ + _%target8572385892%_ '())) - (_%g8483384904%_ - _%g8483484908%_))))) - (_%g8483384904%_ _%g8483484908%_))))))) - (_%loop8488485045%_ _%target8488185039%_ '())) - (_%g8483384904%_ _%g8483484908%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g8483384904%_ - _%g8483484908%_)))) - (_%g8483384904%_ _%g8483484908%_)))) - (_%g8483384904%_ _%g8483484908%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop8485084937%_ - _%target8484784931%_ + (_%g8566685737%_ + _%g8566785741%_))))) + (_%g8566685737%_ _%g8566785741%_))))))) + (_%loop8571785870%_ _%target8571485864%_ '())) + (_%g8566685737%_ _%g8566785741%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g8566685737%_ + _%g8566785741%_)))) + (_%g8566685737%_ _%g8566785741%_)))) + (_%g8566685737%_ _%g8566785741%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop8568385770%_ + _%target8568085764%_ '() '() '())) - (_%g8483384904%_ - _%g8483484908%_))))) - (_%g8483384904%_ _%g8483484908%_)))) - (_%g8483384904%_ _%g8483484908%_)))) - (_%g8483384904%_ _%g8483484908%_))))) - (_%g8483285270%_ _%stx84830%_)))) + (_%g8566685737%_ + _%g8566785741%_))))) + (_%g8566685737%_ _%g8566785741%_)))) + (_%g8566685737%_ _%g8566785741%_)))) + (_%g8566685737%_ _%g8566785741%_))))) + (_%g8566586089%_ _%stx85663%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defmutable*| - (lambda (_%stx85279%_) - (let* ((_%__stx9153391534%_ _%stx85279%_) - (_%g8528385317%_ + (lambda (_%stx86098%_) + (let* ((_%__stx9238692387%_ _%stx86098%_) + (_%g8610286136%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9153391534%_)))) - (let ((_%__kont9153691537%_ - (lambda (_%L85419%_ _%L85421%_ _%L85422%_ _%L85423%_) - (let* ((_%g8545085465%_ - (lambda (_%g8545185461%_) + _%__stx9238692387%_)))) + (let ((_%__kont9238992390%_ + (lambda (_%g8610486238%_ + _%g8610586240%_ + _%g8610686241%_ + _%g8610786242%_) + (let* ((_%g8626986284%_ + (lambda (_%g8627086280%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8545185461%_))) - (_%g8544985510%_ - (lambda (_%g8545185469%_) - (if (gx#stx-pair? _%g8545185469%_) - (let ((_%e8545485472%_ - (gx#syntax-e _%g8545185469%_))) - (let ((_%hd8545585476%_ + _%g8627086280%_))) + (_%g8626886329%_ + (lambda (_%g8627086288%_) + (if (gx#stx-pair? _%g8627086288%_) + (let ((_%e8627386291%_ + (gx#syntax-e _%g8627086288%_))) + (let ((_%hd8627486295%_ (let () (declare (not safe)) - (##car _%e8545485472%_))) - (_%tl8545685479%_ + (##car _%e8627386291%_))) + (_%tl8627586298%_ (let () (declare (not safe)) - (##cdr _%e8545485472%_)))) - (if (gx#stx-pair? _%tl8545685479%_) - (let ((_%e8545785482%_ + (##cdr _%e8627386291%_)))) + (if (gx#stx-pair? _%tl8627586298%_) + (let ((_%e8627686301%_ (gx#syntax-e - _%tl8545685479%_))) - (let ((_%hd8545885486%_ + _%tl8627586298%_))) + (let ((_%hd8627786305%_ (let () (declare (not safe)) - (##car _%e8545785482%_))) - (_%tl8545985489%_ + (##car _%e8627686301%_))) + (_%tl8627886308%_ (let () (declare (not safe)) - (##cdr _%e8545785482%_)))) + (##cdr _%e8627686301%_)))) (if (gx#stx-null? - _%tl8545985489%_) - ((lambda (_%L85492%_ - _%L85494%_) + _%tl8627886308%_) + ((lambda (_%g8627186311%_ + _%g8627286313%_) (cons (gx#datum->syntax '#f 'begin) @@ -17139,198 +17146,205 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons _%L85494%_ (cons _%L85422%_ '()))) + (cons _%g8627286313%_ + (cons _%g8610686241%_ '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L85423%_ '()) - (cons _%L85494%_ '()))) + (cons (cons _%g8610786242%_ '()) + (cons _%g8627286313%_ '()))) (cons (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L85492%_ + (cons (cons _%g8627186311%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'new-value) - (cons _%L85421%_ _%L85419%_)) + (cons _%g8610586240%_ _%g8610486238%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'set!) - (cons _%L85494%_ + (cons _%g8627286313%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'new-value) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8545885486%_ - _%hd8545585476%_) - (_%g8545085465%_ - _%g8545185469%_)))) - (_%g8545085465%_ _%g8545185469%_)))) - (_%g8545085465%_ _%g8545185469%_))))) - (_%g8544985510%_ - (list (gx#stx-identifier _%L85423%_ '"__" _%L85423%_) + _%hd8627786305%_ + _%hd8627486295%_) + (_%g8626986284%_ + _%g8627086288%_)))) + (_%g8626986284%_ _%g8627086288%_)))) + (_%g8626986284%_ _%g8627086288%_))))) + (_%g8626886329%_ + (list (gx#stx-identifier + _%g8610786242%_ + '"__" + _%g8610786242%_) (gx#stx-identifier - _%L85423%_ - _%L85423%_ + _%g8610786242%_ + _%g8610786242%_ '"-set!")))))) - (_%__kont9153891539%_ - (lambda (_%L85354%_ _%L85356%_) + (_%__kont9239192392%_ + (lambda (_%g8612086173%_ _%g8612186175%_) (cons (gx#datum->syntax '#f 'defmutable*) - (cons _%L85356%_ - (cons _%L85354%_ + (cons _%g8612186175%_ + (cons _%g8612086173%_ (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f ':t) '())))))))) - (let ((_%__match9156491565%_ - (lambda (_%e8528985379%_ - _%hd8529085383%_ - _%tl8529185386%_ - _%e8529285389%_ - _%hd8529385393%_ - _%tl8529485396%_ - _%e8529585399%_ - _%hd8529685403%_ - _%tl8529785406%_ - _%e8529885409%_ - _%hd8529985413%_ - _%tl8530085416%_) - (let ((_%L85419%_ _%tl8530085416%_) - (_%L85421%_ _%hd8529985413%_) - (_%L85422%_ _%hd8529685403%_) - (_%L85423%_ _%hd8529385393%_)) - (if (and (gx#identifier? _%L85423%_) - (gx#identifier? _%L85421%_) + (let ((_%__match9241792418%_ + (lambda (_%e8610886198%_ + _%hd8610986202%_ + _%tl8611086205%_ + _%e8611186208%_ + _%hd8611286212%_ + _%tl8611386215%_ + _%e8611486218%_ + _%hd8611586222%_ + _%tl8611686225%_ + _%e8611786228%_ + _%hd8611886232%_ + _%tl8611986235%_) + (let ((_%g8610486238%_ _%tl8611986235%_) + (_%g8610586240%_ _%hd8611886232%_) + (_%g8610686241%_ _%hd8611586222%_) + (_%g8610786242%_ _%hd8611286212%_)) + (if (and (gx#identifier? _%g8610786242%_) + (gx#identifier? _%g8610586240%_) (or (gx#free-identifier=? - _%L85421%_ + _%g8610586240%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L85421%_ + _%g8610586240%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L85421%_ + _%g8610586240%_ (gx#datum->syntax '#f ':~)))) - (_%__kont9153691537%_ - _%L85419%_ - _%L85421%_ - _%L85422%_ - _%L85423%_) - (let () (declare (not safe)) (_%g8528385317%_))))))) - (if (gx#stx-pair? _%__stx9153391534%_) - (let ((_%e8528985379%_ (gx#syntax-e _%__stx9153391534%_))) - (let ((_%tl8529185386%_ + (_%__kont9238992390%_ + _%g8610486238%_ + _%g8610586240%_ + _%g8610686241%_ + _%g8610786242%_) + (let () (declare (not safe)) (_%g8610286136%_))))))) + (if (gx#stx-pair? _%__stx9238692387%_) + (let ((_%e8610886198%_ (gx#syntax-e _%__stx9238692387%_))) + (let ((_%tl8611086205%_ (let () (declare (not safe)) - (##cdr _%e8528985379%_))) - (_%hd8529085383%_ + (##cdr _%e8610886198%_))) + (_%hd8610986202%_ (let () (declare (not safe)) - (##car _%e8528985379%_)))) - (if (gx#stx-pair? _%tl8529185386%_) - (let ((_%e8529285389%_ - (gx#syntax-e _%tl8529185386%_))) - (let ((_%tl8529485396%_ + (##car _%e8610886198%_)))) + (if (gx#stx-pair? _%tl8611086205%_) + (let ((_%e8611186208%_ + (gx#syntax-e _%tl8611086205%_))) + (let ((_%tl8611386215%_ (let () (declare (not safe)) - (##cdr _%e8529285389%_))) - (_%hd8529385393%_ + (##cdr _%e8611186208%_))) + (_%hd8611286212%_ (let () (declare (not safe)) - (##car _%e8529285389%_)))) - (if (gx#stx-pair? _%tl8529485396%_) - (let ((_%e8529585399%_ - (gx#syntax-e _%tl8529485396%_))) - (let ((_%tl8529785406%_ + (##car _%e8611186208%_)))) + (if (gx#stx-pair? _%tl8611386215%_) + (let ((_%e8611486218%_ + (gx#syntax-e _%tl8611386215%_))) + (let ((_%tl8611686225%_ (let () (declare (not safe)) - (##cdr _%e8529585399%_))) - (_%hd8529685403%_ + (##cdr _%e8611486218%_))) + (_%hd8611586222%_ (let () (declare (not safe)) - (##car _%e8529585399%_)))) - (if (gx#stx-pair? _%tl8529785406%_) - (let ((_%e8529885409%_ + (##car _%e8611486218%_)))) + (if (gx#stx-pair? _%tl8611686225%_) + (let ((_%e8611786228%_ (gx#syntax-e - _%tl8529785406%_))) - (let ((_%tl8530085416%_ + _%tl8611686225%_))) + (let ((_%tl8611986235%_ (let () (declare (not safe)) - (##cdr _%e8529885409%_))) - (_%hd8529985413%_ + (##cdr _%e8611786228%_))) + (_%hd8611886232%_ (let () (declare (not safe)) - (##car _%e8529885409%_)))) - (_%__match9156491565%_ - _%e8528985379%_ - _%hd8529085383%_ - _%tl8529185386%_ - _%e8529285389%_ - _%hd8529385393%_ - _%tl8529485396%_ - _%e8529585399%_ - _%hd8529685403%_ - _%tl8529785406%_ - _%e8529885409%_ - _%hd8529985413%_ - _%tl8530085416%_))) - (if (gx#stx-null? _%tl8529785406%_) - (_%__kont9153891539%_ - _%hd8529685403%_ - _%hd8529385393%_) + (##car _%e8611786228%_)))) + (_%__match9241792418%_ + _%e8610886198%_ + _%hd8610986202%_ + _%tl8611086205%_ + _%e8611186208%_ + _%hd8611286212%_ + _%tl8611386215%_ + _%e8611486218%_ + _%hd8611586222%_ + _%tl8611686225%_ + _%e8611786228%_ + _%hd8611886232%_ + _%tl8611986235%_))) + (if (gx#stx-null? _%tl8611686225%_) + (_%__kont9239192392%_ + _%hd8611586222%_ + _%hd8611286212%_) (let () (declare (not safe)) - (_%g8528385317%_)))))) + (_%g8610286136%_)))))) (let () (declare (not safe)) - (_%g8528385317%_))))) - (let () (declare (not safe)) (_%g8528385317%_))))) - (let () (declare (not safe)) (_%g8528385317%_)))))))) + (_%g8610286136%_))))) + (let () (declare (not safe)) (_%g8610286136%_))))) + (let () (declare (not safe)) (_%g8610286136%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defmutable| - (lambda (_%stx85518%_) - (let* ((_%__stx9158791588%_ _%stx85518%_) - (_%g8552285556%_ + (lambda (_%stx86337%_) + (let* ((_%__stx9244092441%_ _%stx86337%_) + (_%g8634186375%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9158791588%_)))) - (let ((_%__kont9159091591%_ - (lambda (_%L85658%_ _%L85660%_ _%L85661%_ _%L85662%_) - (let* ((_%g8568985704%_ - (lambda (_%g8569085700%_) + _%__stx9244092441%_)))) + (let ((_%__kont9244392444%_ + (lambda (_%g8634386477%_ + _%g8634486479%_ + _%g8634586480%_ + _%g8634686481%_) + (let* ((_%g8650886523%_ + (lambda (_%g8650986519%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8569085700%_))) - (_%g8568885749%_ - (lambda (_%g8569085708%_) - (if (gx#stx-pair? _%g8569085708%_) - (let ((_%e8569385711%_ - (gx#syntax-e _%g8569085708%_))) - (let ((_%hd8569485715%_ + _%g8650986519%_))) + (_%g8650786568%_ + (lambda (_%g8650986527%_) + (if (gx#stx-pair? _%g8650986527%_) + (let ((_%e8651286530%_ + (gx#syntax-e _%g8650986527%_))) + (let ((_%hd8651386534%_ (let () (declare (not safe)) - (##car _%e8569385711%_))) - (_%tl8569585718%_ + (##car _%e8651286530%_))) + (_%tl8651486537%_ (let () (declare (not safe)) - (##cdr _%e8569385711%_)))) - (if (gx#stx-pair? _%tl8569585718%_) - (let ((_%e8569685721%_ + (##cdr _%e8651286530%_)))) + (if (gx#stx-pair? _%tl8651486537%_) + (let ((_%e8651586540%_ (gx#syntax-e - _%tl8569585718%_))) - (let ((_%hd8569785725%_ + _%tl8651486537%_))) + (let ((_%hd8651686544%_ (let () (declare (not safe)) - (##car _%e8569685721%_))) - (_%tl8569885728%_ + (##car _%e8651586540%_))) + (_%tl8651786547%_ (let () (declare (not safe)) - (##cdr _%e8569685721%_)))) + (##cdr _%e8651586540%_)))) (if (gx#stx-null? - _%tl8569885728%_) - ((lambda (_%L85731%_ - _%L85733%_) + _%tl8651786547%_) + ((lambda (_%g8651086550%_ + _%g8651186552%_) (cons (gx#datum->syntax '#f 'begin) @@ -17338,21 +17352,22 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons _%L85733%_ (cons _%L85661%_ '()))) + (cons _%g8651186552%_ + (cons _%g8634586480%_ '()))) (cons (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L85731%_ + (cons (cons _%g8651086550%_ (cons (cons (gx#datum->syntax '#f 'new-value) - (cons _%L85660%_ + (cons _%g8634486479%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L85658%_)) + _%g8634386477%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'set!) - (cons _%L85733%_ + (cons _%g8651186552%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -17361,7 +17376,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L85662%_ + (cons _%g8634686481%_ (cons (cons (gx#datum->syntax '#f 'identifier-rules) @@ -17379,7 +17394,7 @@ '#f 'new-value) '()))) - (cons (cons _%L85731%_ + (cons (cons _%g8651086550%_ (cons (gx#datum->syntax '#f 'new-value) @@ -17395,7 +17410,7 @@ '#f 'new-value) '()))) - (cons (cons _%L85731%_ + (cons (cons _%g8651086550%_ (cons (gx#datum->syntax '#f 'new-value) @@ -17413,7 +17428,7 @@ 'syntax) (cons (gx#datum->syntax '#f 'the-var) '())) '())) - (cons _%L85733%_ '()))) + (cons _%g8651186552%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (cons (gx#datum->syntax '#f @@ -17423,7 +17438,7 @@ '#f 'arg) (cons (gx#datum->syntax '#f '...) '()))) - (cons (cons _%L85733%_ + (cons (cons _%g8651186552%_ (cons (gx#datum->syntax '#f 'arg) (cons (gx#datum->syntax '#f '...) '()))) '())) @@ -17433,126 +17448,129 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8569785725%_ - _%hd8569485715%_) - (_%g8568985704%_ - _%g8569085708%_)))) - (_%g8568985704%_ _%g8569085708%_)))) - (_%g8568985704%_ _%g8569085708%_))))) - (_%g8568885749%_ - (list (gx#stx-identifier _%L85662%_ '"__" _%L85662%_) + _%hd8651686544%_ + _%hd8651386534%_) + (_%g8650886523%_ + _%g8650986527%_)))) + (_%g8650886523%_ _%g8650986527%_)))) + (_%g8650886523%_ _%g8650986527%_))))) + (_%g8650786568%_ + (list (gx#stx-identifier + _%g8634686481%_ + '"__" + _%g8634686481%_) (gx#stx-identifier - _%L85662%_ - _%L85662%_ + _%g8634686481%_ + _%g8634686481%_ '"-set!")))))) - (_%__kont9159291593%_ - (lambda (_%L85593%_ _%L85595%_) + (_%__kont9244592446%_ + (lambda (_%g8635986412%_ _%g8636086414%_) (cons (gx#datum->syntax '#f 'defmutable) - (cons _%L85595%_ - (cons _%L85593%_ + (cons _%g8636086414%_ + (cons _%g8635986412%_ (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f ':t) '())))))))) - (let ((_%__match9161891619%_ - (lambda (_%e8552885618%_ - _%hd8552985622%_ - _%tl8553085625%_ - _%e8553185628%_ - _%hd8553285632%_ - _%tl8553385635%_ - _%e8553485638%_ - _%hd8553585642%_ - _%tl8553685645%_ - _%e8553785648%_ - _%hd8553885652%_ - _%tl8553985655%_) - (let ((_%L85658%_ _%tl8553985655%_) - (_%L85660%_ _%hd8553885652%_) - (_%L85661%_ _%hd8553585642%_) - (_%L85662%_ _%hd8553285632%_)) - (if (and (gx#identifier? _%L85662%_) - (gx#identifier? _%L85660%_) + (let ((_%__match9247192472%_ + (lambda (_%e8634786437%_ + _%hd8634886441%_ + _%tl8634986444%_ + _%e8635086447%_ + _%hd8635186451%_ + _%tl8635286454%_ + _%e8635386457%_ + _%hd8635486461%_ + _%tl8635586464%_ + _%e8635686467%_ + _%hd8635786471%_ + _%tl8635886474%_) + (let ((_%g8634386477%_ _%tl8635886474%_) + (_%g8634486479%_ _%hd8635786471%_) + (_%g8634586480%_ _%hd8635486461%_) + (_%g8634686481%_ _%hd8635186451%_)) + (if (and (gx#identifier? _%g8634686481%_) + (gx#identifier? _%g8634486479%_) (or (gx#free-identifier=? - _%L85660%_ + _%g8634486479%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L85660%_ + _%g8634486479%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L85660%_ + _%g8634486479%_ (gx#datum->syntax '#f ':~)))) - (_%__kont9159091591%_ - _%L85658%_ - _%L85660%_ - _%L85661%_ - _%L85662%_) - (let () (declare (not safe)) (_%g8552285556%_))))))) - (if (gx#stx-pair? _%__stx9158791588%_) - (let ((_%e8552885618%_ (gx#syntax-e _%__stx9158791588%_))) - (let ((_%tl8553085625%_ + (_%__kont9244392444%_ + _%g8634386477%_ + _%g8634486479%_ + _%g8634586480%_ + _%g8634686481%_) + (let () (declare (not safe)) (_%g8634186375%_))))))) + (if (gx#stx-pair? _%__stx9244092441%_) + (let ((_%e8634786437%_ (gx#syntax-e _%__stx9244092441%_))) + (let ((_%tl8634986444%_ (let () (declare (not safe)) - (##cdr _%e8552885618%_))) - (_%hd8552985622%_ + (##cdr _%e8634786437%_))) + (_%hd8634886441%_ (let () (declare (not safe)) - (##car _%e8552885618%_)))) - (if (gx#stx-pair? _%tl8553085625%_) - (let ((_%e8553185628%_ - (gx#syntax-e _%tl8553085625%_))) - (let ((_%tl8553385635%_ + (##car _%e8634786437%_)))) + (if (gx#stx-pair? _%tl8634986444%_) + (let ((_%e8635086447%_ + (gx#syntax-e _%tl8634986444%_))) + (let ((_%tl8635286454%_ (let () (declare (not safe)) - (##cdr _%e8553185628%_))) - (_%hd8553285632%_ + (##cdr _%e8635086447%_))) + (_%hd8635186451%_ (let () (declare (not safe)) - (##car _%e8553185628%_)))) - (if (gx#stx-pair? _%tl8553385635%_) - (let ((_%e8553485638%_ - (gx#syntax-e _%tl8553385635%_))) - (let ((_%tl8553685645%_ + (##car _%e8635086447%_)))) + (if (gx#stx-pair? _%tl8635286454%_) + (let ((_%e8635386457%_ + (gx#syntax-e _%tl8635286454%_))) + (let ((_%tl8635586464%_ (let () (declare (not safe)) - (##cdr _%e8553485638%_))) - (_%hd8553585642%_ + (##cdr _%e8635386457%_))) + (_%hd8635486461%_ (let () (declare (not safe)) - (##car _%e8553485638%_)))) - (if (gx#stx-pair? _%tl8553685645%_) - (let ((_%e8553785648%_ + (##car _%e8635386457%_)))) + (if (gx#stx-pair? _%tl8635586464%_) + (let ((_%e8635686467%_ (gx#syntax-e - _%tl8553685645%_))) - (let ((_%tl8553985655%_ + _%tl8635586464%_))) + (let ((_%tl8635886474%_ (let () (declare (not safe)) - (##cdr _%e8553785648%_))) - (_%hd8553885652%_ + (##cdr _%e8635686467%_))) + (_%hd8635786471%_ (let () (declare (not safe)) - (##car _%e8553785648%_)))) - (_%__match9161891619%_ - _%e8552885618%_ - _%hd8552985622%_ - _%tl8553085625%_ - _%e8553185628%_ - _%hd8553285632%_ - _%tl8553385635%_ - _%e8553485638%_ - _%hd8553585642%_ - _%tl8553685645%_ - _%e8553785648%_ - _%hd8553885652%_ - _%tl8553985655%_))) - (if (gx#stx-null? _%tl8553685645%_) - (_%__kont9159291593%_ - _%hd8553585642%_ - _%hd8553285632%_) + (##car _%e8635686467%_)))) + (_%__match9247192472%_ + _%e8634786437%_ + _%hd8634886441%_ + _%tl8634986444%_ + _%e8635086447%_ + _%hd8635186451%_ + _%tl8635286454%_ + _%e8635386457%_ + _%hd8635486461%_ + _%tl8635586464%_ + _%e8635686467%_ + _%hd8635786471%_ + _%tl8635886474%_))) + (if (gx#stx-null? _%tl8635586464%_) + (_%__kont9244592446%_ + _%hd8635486461%_ + _%hd8635186451%_) (let () (declare (not safe)) - (_%g8552285556%_)))))) + (_%g8634186375%_)))))) (let () (declare (not safe)) - (_%g8552285556%_))))) - (let () (declare (not safe)) (_%g8552285556%_))))) - (let () (declare (not safe)) (_%g8552285556%_)))))))))) + (_%g8634186375%_))))) + (let () (declare (not safe)) (_%g8634186375%_))))) + (let () (declare (not safe)) (_%g8634186375%_)))))))))) diff --git a/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm b/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm index 175c5f6264..bd1484aa49 100644 --- a/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm +++ b/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm @@ -1,143 +1,143 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/contract~ClassMeta::timestamp 1756721290) + (define gerbil/core/contract~ClassMeta::timestamp 1769384623) (define gerbil/core/contract~ClassMeta#!class-precedence-list - (lambda (_%klass55850%_) - (let ((_%$e55852%_ - (let ((__obj91673 _%klass55850%_)) + (lambda (_%klass57004%_) + (let ((_%$e57006%_ + (let ((__obj92525 _%klass57004%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91673 + __obj92525 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91673 '5 '#f '#f)) + (##unchecked-structure-ref __obj92525 '6 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91673 + __obj92525 'precedence-list))))) - (if _%$e55852%_ - _%$e55852%_ - (let ((_g91728_ + (if _%$e57006%_ + _%$e57006%_ + (let ((_g92581_ (c4-linearize '() - (let ((__obj91674 _%klass55850%_)) + (let ((__obj92526 _%klass57004%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91674 + __obj92526 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91674 '3 '#f '#f)) + (##unchecked-structure-ref __obj92526 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91674 + __obj92526 'super))) 'get-precedence-list: - (lambda (_%klass-id55856%_) - (cons _%klass-id55856%_ + (lambda (_%klass-id57010%_) + (cons _%klass-id57010%_ (gerbil/core/contract~ClassMeta#!class-precedence-list - (gx#syntax-local-value _%klass-id55856%_)))) + (gx#syntax-local-value _%klass-id57010%_)))) 'struct: - (lambda (_%klass-id55858%_) - (let ((__obj91675 - (gx#syntax-local-value _%klass-id55858%_))) + (lambda (_%klass-id57012%_) + (let ((__obj92527 + (gx#syntax-local-value _%klass-id57012%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91675 + __obj92527 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91675 - '7 + __obj92527 + '8 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91675 + __obj92527 'struct?)))) 'eq: gx#free-identifier=?))) (begin - (let ((_g91729_ + (let ((_g92582_ (let () (declare (not safe)) - (if (##values? _g91728_) - (##values-length _g91728_) + (if (##values? _g92581_) + (##values-length _g92581_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g91729_ 2))) - (error "Context expects 2 values" _g91729_))) - (let ((_%precedence-list55860%_ - (let () (declare (not safe)) (##values-ref _g91728_ 0))) - (_%base-struct55861%_ + (if (not (let () (declare (not safe)) (##fx= _g92582_ 2))) + (error "Context expects 2 values" _g92582_))) + (let ((_%precedence-list57014%_ + (let () (declare (not safe)) (##values-ref _g92581_ 0))) + (_%base-struct57015%_ (let () (declare (not safe)) - (##values-ref _g91728_ 1)))) - (let ((_%precedence-list55905%_ - (if (let ((__tmp91730 - (let ((__obj91676 _%klass55850%_)) + (##values-ref _g92581_ 1)))) + (let ((_%precedence-list57059%_ + (if (let ((__tmp92583 + (let ((__obj92528 _%klass57004%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91676 + __obj92528 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91676 + __obj92528 '1 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91676 + __obj92528 'id))))) (declare (not safe)) - (##memq __tmp91730 '(t object class))) - _%precedence-list55860%_ + (##memq __tmp92583 '(t object class))) + _%precedence-list57014%_ (if (member ':object - _%precedence-list55860%_ + _%precedence-list57014%_ gx#free-identifier=?) - _%precedence-list55860%_ - (if (let ((__obj91677 _%klass55850%_)) + _%precedence-list57014%_ + (if (let ((__obj92529 _%klass57004%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91677 + __obj92529 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91677 - '9 + __obj92529 + '10 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj91677 + __obj92529 'system?))) (if (member ':t - _%precedence-list55860%_ + _%precedence-list57014%_ gx#free-identifier=?) - _%precedence-list55860%_ - (let ((__tmp91731 + _%precedence-list57014%_ + (let ((__tmp92584 (cons (gx#core-quote-syntax ':t) '()))) (declare (not safe)) (##append - _%precedence-list55860%_ - __tmp91731))) - (let _%loop55867%_ ((_%tail55869%_ - _%precedence-list55860%_) - (_%head55870%_ '())) - (let* ((_%tail5587155879%_ - _%tail55869%_) - (_%else5587355887%_ + _%precedence-list57014%_ + __tmp92584))) + (let _%loop57021%_ ((_%tail57023%_ + _%precedence-list57014%_) + (_%head57024%_ '())) + (let* ((_%tail5702557033%_ + _%tail57023%_) + (_%else5702757041%_ (lambda () (foldl cons (cons (gx#core-quote-syntax @@ -146,59 +146,59 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ':t) '())) - _%head55870%_))) + _%head57024%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K5587555893%_ - (lambda (_%rest55890%_ - _%hd55891%_) + (_%K5702957047%_ + (lambda (_%rest57044%_ + _%hd57045%_) (if (gx#free-identifier=? - _%hd55891%_ + _%hd57045%_ ':t) (foldl cons (cons (gx#core-quote-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ':object) - _%tail55869%_) - _%head55870%_) + _%tail57023%_) + _%head57024%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop55867%_ - _%rest55890%_ - (cons _%hd55891%_ - _%head55870%_)))))) - (if (pair? _%tail5587155879%_) - (let ((_%hd5587655896%_ + (_%loop57021%_ + _%rest57044%_ + (cons _%hd57045%_ + _%head57024%_)))))) + (if (pair? _%tail5702557033%_) + (let ((_%hd5703057050%_ (let () (declare (not safe)) - (##car _%tail5587155879%_))) - (_%tl5587755898%_ + (##car _%tail5702557033%_))) + (_%tl5703157052%_ (let () (declare (not safe)) - (##cdr _%tail5587155879%_)))) - (let* ((_%hd55901%_ - _%hd5587655896%_) - (_%rest55903%_ - _%tl5587755898%_)) - (_%K5587555893%_ - _%rest55903%_ - _%hd55901%_))) - (_%else5587355887%_))))))))) - (let ((__obj91678 _%klass55850%_)) + (##cdr _%tail5702557033%_)))) + (let* ((_%hd57055%_ + _%hd5703057050%_) + (_%rest57057%_ + _%tl5703157052%_)) + (_%K5702957047%_ + _%rest57057%_ + _%hd57055%_))) + (_%else5702757041%_))))))))) + (let ((__obj92530 _%klass57004%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91678 + __obj92530 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj91678 - _%precedence-list55905%_ - '5 + __obj92530 + _%precedence-list57059%_ + '6 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj91678 + __obj92530 'precedence-list - _%precedence-list55905%_))) - _%precedence-list55905%_))))))))) + _%precedence-list57059%_))) + _%precedence-list57059%_))))))))) diff --git a/src/bootstrap/gerbil/core/contract~Interface.scm b/src/bootstrap/gerbil/core/contract~Interface.scm index c428df412f..6dc934b5c9 100644 --- a/src/bootstrap/gerbil/core/contract~Interface.scm +++ b/src/bootstrap/gerbil/core/contract~Interface.scm @@ -3,6 +3,5 @@ (begin (load-module "gerbil/core/contract~TypeCast") (load-module "gerbil/core/contract~TypeReference") - (load-module "gerbil/core/contract~Using") - (load-module "gerbil/core/mop")) + (load-module "gerbil/core/contract~Using")) (begin)) diff --git a/src/bootstrap/gerbil/core/contract~InterfaceInfo.scm b/src/bootstrap/gerbil/core/contract~InterfaceInfo.scm index 740d4c6353..c0f900619a 100644 --- a/src/bootstrap/gerbil/core/contract~InterfaceInfo.scm +++ b/src/bootstrap/gerbil/core/contract~InterfaceInfo.scm @@ -1,4 +1,8 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (begin (load-module "gerbil/core/expander") (load-module "gerbil/core/mop")) + (begin + (load-module "gerbil/core/expander") + (load-module "gerbil/core/mop") + (load-module "gerbil/core/mop~MOP-2") + (load-module "gerbil/core/mop~MOP-3")) (load-module "gerbil/core/contract~InterfaceInfo~0")) diff --git a/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm b/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm index 574119c7dc..d8f557e38e 100644 --- a/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm +++ b/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm @@ -1,15 +1,15 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/contract~InterfaceInfo::timestamp 1756721290) + (define gerbil/core/contract~InterfaceInfo::timestamp 1769384623) (begin - (define gerbil/core/contract~InterfaceInfo#_g91722_ + (define gerbil/core/contract~InterfaceInfo#_g92575_ (##structure gx#syntax-quote::t 'cast #f (gx#current-expander-context) '())) - (define gerbil/core/contract~InterfaceInfo#_g91723_ + (define gerbil/core/contract~InterfaceInfo#_g92576_ (##structure gx#syntax-quote::t 'immediate-instance-of? @@ -21,33 +21,28 @@ (make-class-type 'gerbil/core/contract~InterfaceInfo#interface-info::t 'interface-info - (list) - '(name namespace - interface-mixin - interface-methods - interface-precedence-list - interface-descriptor - instance-type - instance-constructor - instance-try-constructor - instance-predicate - instance-satisfies-predicate - implementation-methods - unchecked-implementation-methods) + (list gerbil/core/mop~MOP-2#runtime-type-info::t) + '(namespace + interface-mixin + interface-methods + interface-precedence-list + interface-descriptor + instance-constructor + instance-try-constructor + instance-predicate + instance-satisfies-predicate + implementation-methods + unchecked-implementation-methods) '() '#f)) (define gerbil/core/contract~InterfaceInfo#interface-info? (make-class-predicate gerbil/core/contract~InterfaceInfo#interface-info::t)) (define gerbil/core/contract~InterfaceInfo#make-interface-info - (lambda _%$args48511%_ + (lambda _%$args49179%_ (apply make-instance gerbil/core/contract~InterfaceInfo#interface-info::t - _%$args48511%_))) - (define gerbil/core/contract~InterfaceInfo#interface-info-name - (make-class-slot-accessor - gerbil/core/contract~InterfaceInfo#interface-info::t - 'name)) + _%$args49179%_))) (define gerbil/core/contract~InterfaceInfo#interface-info-namespace (make-class-slot-accessor gerbil/core/contract~InterfaceInfo#interface-info::t @@ -68,10 +63,6 @@ (make-class-slot-accessor gerbil/core/contract~InterfaceInfo#interface-info::t 'interface-descriptor)) - (define gerbil/core/contract~InterfaceInfo#interface-info-instance-type - (make-class-slot-accessor - gerbil/core/contract~InterfaceInfo#interface-info::t - 'instance-type)) (define gerbil/core/contract~InterfaceInfo#interface-info-instance-constructor (make-class-slot-accessor gerbil/core/contract~InterfaceInfo#interface-info::t @@ -96,10 +87,18 @@ (make-class-slot-accessor gerbil/core/contract~InterfaceInfo#interface-info::t 'unchecked-implementation-methods)) - (define gerbil/core/contract~InterfaceInfo#interface-info-name-set! - (make-class-slot-mutator + (define gerbil/core/contract~InterfaceInfo#interface-info-id + (make-class-slot-accessor + gerbil/core/contract~InterfaceInfo#interface-info::t + 'id)) + (define gerbil/core/contract~InterfaceInfo#interface-info-name + (make-class-slot-accessor gerbil/core/contract~InterfaceInfo#interface-info::t 'name)) + (define gerbil/core/contract~InterfaceInfo#interface-info-type-descriptor + (make-class-slot-accessor + gerbil/core/contract~InterfaceInfo#interface-info::t + 'type-descriptor)) (define gerbil/core/contract~InterfaceInfo#interface-info-namespace-set! (make-class-slot-mutator gerbil/core/contract~InterfaceInfo#interface-info::t @@ -120,10 +119,6 @@ (make-class-slot-mutator gerbil/core/contract~InterfaceInfo#interface-info::t 'interface-descriptor)) - (define gerbil/core/contract~InterfaceInfo#interface-info-instance-type-set! - (make-class-slot-mutator - gerbil/core/contract~InterfaceInfo#interface-info::t - 'instance-type)) (define gerbil/core/contract~InterfaceInfo#interface-info-instance-constructor-set! (make-class-slot-mutator gerbil/core/contract~InterfaceInfo#interface-info::t @@ -148,10 +143,18 @@ (make-class-slot-mutator gerbil/core/contract~InterfaceInfo#interface-info::t 'unchecked-implementation-methods)) - (define gerbil/core/contract~InterfaceInfo#&interface-info-name - (make-class-slot-unchecked-accessor + (define gerbil/core/contract~InterfaceInfo#interface-info-id-set! + (make-class-slot-mutator + gerbil/core/contract~InterfaceInfo#interface-info::t + 'id)) + (define gerbil/core/contract~InterfaceInfo#interface-info-name-set! + (make-class-slot-mutator gerbil/core/contract~InterfaceInfo#interface-info::t 'name)) + (define gerbil/core/contract~InterfaceInfo#interface-info-type-descriptor-set! + (make-class-slot-mutator + gerbil/core/contract~InterfaceInfo#interface-info::t + 'type-descriptor)) (define gerbil/core/contract~InterfaceInfo#&interface-info-namespace (make-class-slot-unchecked-accessor gerbil/core/contract~InterfaceInfo#interface-info::t @@ -172,10 +175,6 @@ (make-class-slot-unchecked-accessor gerbil/core/contract~InterfaceInfo#interface-info::t 'interface-descriptor)) - (define gerbil/core/contract~InterfaceInfo#&interface-info-instance-type - (make-class-slot-unchecked-accessor - gerbil/core/contract~InterfaceInfo#interface-info::t - 'instance-type)) (define gerbil/core/contract~InterfaceInfo#&interface-info-instance-constructor (make-class-slot-unchecked-accessor gerbil/core/contract~InterfaceInfo#interface-info::t @@ -200,10 +199,18 @@ (make-class-slot-unchecked-accessor gerbil/core/contract~InterfaceInfo#interface-info::t 'unchecked-implementation-methods)) - (define gerbil/core/contract~InterfaceInfo#&interface-info-name-set! - (make-class-slot-unchecked-mutator + (define gerbil/core/contract~InterfaceInfo#&interface-info-id + (make-class-slot-unchecked-accessor + gerbil/core/contract~InterfaceInfo#interface-info::t + 'id)) + (define gerbil/core/contract~InterfaceInfo#&interface-info-name + (make-class-slot-unchecked-accessor gerbil/core/contract~InterfaceInfo#interface-info::t 'name)) + (define gerbil/core/contract~InterfaceInfo#&interface-info-type-descriptor + (make-class-slot-unchecked-accessor + gerbil/core/contract~InterfaceInfo#interface-info::t + 'type-descriptor)) (define gerbil/core/contract~InterfaceInfo#&interface-info-namespace-set! (make-class-slot-unchecked-mutator gerbil/core/contract~InterfaceInfo#interface-info::t @@ -224,10 +231,6 @@ (make-class-slot-unchecked-mutator gerbil/core/contract~InterfaceInfo#interface-info::t 'interface-descriptor)) - (define gerbil/core/contract~InterfaceInfo#&interface-info-instance-type-set! - (make-class-slot-unchecked-mutator - gerbil/core/contract~InterfaceInfo#interface-info::t - 'instance-type)) (define gerbil/core/contract~InterfaceInfo#&interface-info-instance-constructor-set! (make-class-slot-unchecked-mutator gerbil/core/contract~InterfaceInfo#interface-info::t @@ -252,293 +255,267 @@ (make-class-slot-unchecked-mutator gerbil/core/contract~InterfaceInfo#interface-info::t 'unchecked-implementation-methods)) + (define gerbil/core/contract~InterfaceInfo#&interface-info-id-set! + (make-class-slot-unchecked-mutator + gerbil/core/contract~InterfaceInfo#interface-info::t + 'id)) + (define gerbil/core/contract~InterfaceInfo#&interface-info-name-set! + (make-class-slot-unchecked-mutator + gerbil/core/contract~InterfaceInfo#interface-info::t + 'name)) + (define gerbil/core/contract~InterfaceInfo#&interface-info-type-descriptor-set! + (make-class-slot-unchecked-mutator + gerbil/core/contract~InterfaceInfo#interface-info::t + 'type-descriptor)) (define gerbil/core/contract~InterfaceInfo#interface-info::apply-macro-expander - (let* ((_%g4830048314%_ - (lambda (_%g4830148311%_) + (let* ((_%g4898448998%_ + (lambda (_%g4898548995%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4830148311%_))) - (_%g4829948508%_ - (lambda (_%g4830148317%_) - (if (gx#stx-pair? _%g4830148317%_) - (let ((_%e4830448319%_ (gx#syntax-e _%g4830148317%_))) - (let ((_%hd4830548322%_ + _%g4898548995%_))) + (_%g4898349176%_ + (lambda (_%g4898549001%_) + (if (gx#stx-pair? _%g4898549001%_) + (let ((_%e4898849003%_ (gx#syntax-e _%g4898549001%_))) + (let ((_%hd4898949006%_ (let () (declare (not safe)) - (##car _%e4830448319%_))) - (_%tl4830648324%_ + (##car _%e4898849003%_))) + (_%tl4899049008%_ (let () (declare (not safe)) - (##cdr _%e4830448319%_)))) - (if (gx#stx-pair? _%tl4830648324%_) - (let ((_%e4830748327%_ - (gx#syntax-e _%tl4830648324%_))) - (let ((_%hd4830848330%_ + (##cdr _%e4898849003%_)))) + (if (gx#stx-pair? _%tl4899049008%_) + (let ((_%e4899149011%_ + (gx#syntax-e _%tl4899049008%_))) + (let ((_%hd4899249014%_ (let () (declare (not safe)) - (##car _%e4830748327%_))) - (_%tl4830948332%_ + (##car _%e4899149011%_))) + (_%tl4899349016%_ (let () (declare (not safe)) - (##cdr _%e4830748327%_)))) - (if (gx#stx-null? _%tl4830948332%_) - ((lambda (_%L48335%_ _%L48336%_) - (lambda (_%self48350%_ _%stx48351%_) - (let* ((_%__stx8575785758%_ - _%stx48351%_) - (_%g4835448367%_ + (##cdr _%e4899149011%_)))) + (if (gx#stx-null? _%tl4899349016%_) + ((lambda (_%g4898649019%_ + _%g4898749020%_) + (lambda (_%self49034%_ _%stx49035%_) + (let* ((_%__stx8657686577%_ + _%stx49035%_) + (_%g4903849051%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8575785758%_)))) - (let ((_%__kont8575985760%_ - (lambda (_%L48425%_) - (let* ((_%g4843648454%_ - (lambda (_%g4843748451%_) + _%__stx8657686577%_)))) + (let ((_%__kont8657886579%_ + (lambda (_%g4904049109%_) + (let* ((_%g4912049134%_ + (lambda (_%g4912149131%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g4843748451%_))) - (_%g4843548502%_ - (lambda (_%g4843748457%_) - (if (gx#stx-pair? _%g4843748457%_) - (let ((_%e4844148459%_ - (gx#syntax-e _%g4843748457%_))) - (let ((_%hd4844248462%_ + _%g4912149131%_))) + (_%g4911949170%_ + (lambda (_%g4912149137%_) + (if (gx#stx-pair? _%g4912149137%_) + (let ((_%e4912449139%_ + (gx#syntax-e _%g4912149137%_))) + (let ((_%hd4912549142%_ (let () (declare (not safe)) - (##car _%e4844148459%_))) - (_%tl4844348464%_ + (##car _%e4912449139%_))) + (_%tl4912649144%_ (let () (declare (not safe)) - (##cdr _%e4844148459%_)))) - (if (gx#stx-pair? _%tl4844348464%_) - (let ((_%e4844448467%_ - (gx#syntax-e _%tl4844348464%_))) - (let ((_%hd4844548470%_ + (##cdr _%e4912449139%_)))) + (if (gx#stx-pair? _%tl4912649144%_) + (let ((_%e4912749147%_ + (gx#syntax-e _%tl4912649144%_))) + (let ((_%hd4912849150%_ (let () (declare (not safe)) - (##car _%e4844448467%_))) - (_%tl4844648472%_ + (##car _%e4912749147%_))) + (_%tl4912949152%_ (let () (declare (not safe)) - (##cdr _%e4844448467%_)))) - (if (gx#stx-pair? _%tl4844648472%_) - (let ((_%e4844748475%_ - (gx#syntax-e - _%tl4844648472%_))) - (let ((_%hd4844848478%_ - (let () - (declare (not safe)) - (##car _%e4844748475%_))) - (_%tl4844948480%_ - (let () - (declare (not safe)) - (##cdr _%e4844748475%_)))) - (if (gx#stx-null? - _%tl4844948480%_) - ((lambda (_%L48483%_ - _%L48484%_ - _%L48485%_) - (cons (gx#datum->syntax - '#f - 'let) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '$obj) - (cons _%L48425%_ '())) - (cons (cons (gx#datum->syntax '#f 'begin-annotation) - (cons (cons (gx#datum->syntax - '#f - '@type) - (cons _%L48483%_ '())) - (cons (cons (gx#datum->syntax - '#f - 'if) - (cons (cons _%L48335%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L48485%_ - (cons (gx#datum->syntax '#f '$obj) '()))) - (cons (gx#datum->syntax '#f '$obj) - (cons (cons _%L48336%_ - (cons _%L48484%_ + (##cdr _%e4912749147%_)))) + (if (gx#stx-null? _%tl4912949152%_) + ((lambda (_%g4912249155%_ + _%g4912349156%_) (cons (gx#datum->syntax '#f - '$obj) - '()))) - '())))) + 'let) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '$obj) + (cons _%g4904049109%_ '())) + (cons (cons (gx#datum->syntax '#f 'begin-annotation) + (cons (cons (gx#datum->syntax '#f '@type) + (cons _%g4912349156%_ '())) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons _%g4898649019%_ + (cons _%g4912349156%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (gx#datum->syntax '#f '$obj) '()))) + (cons (gx#datum->syntax '#f '$obj) + (cons (cons _%g4898749020%_ + (cons _%g4912249155%_ + (cons (gx#datum->syntax '#f '$obj) + '()))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '())))) + '()))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4844848478%_ - _%hd4844548470%_ - _%hd4844248462%_) - (_%g4843648454%_ - _%g4843748457%_)))) - (_%g4843648454%_ - _%g4843748457%_)))) - (_%g4843648454%_ _%g4843748457%_)))) - (_%g4843648454%_ _%g4843748457%_))))) - (_%g4843548502%_ - (list (let ((__obj91641 _%self48350%_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj91641 - 'gerbil/core/contract~InterfaceInfo#interface-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj91641 - '7 - '#f - '#f)) - (class-slot-ref - gerbil/core/contract~InterfaceInfo#interface-info::t - __obj91641 - 'instance-type))) - (let ((__obj91642 _%self48350%_)) + _%hd4912849150%_ + _%hd4912549142%_) + (_%g4912049134%_ + _%g4912149137%_)))) + (_%g4912049134%_ _%g4912149137%_)))) + (_%g4912049134%_ _%g4912149137%_))))) + (_%g4911949170%_ + (list (let ((__obj92494 _%self49034%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91642 - 'gerbil/core/contract~InterfaceInfo#interface-info::t)) + __obj92494 + 'gerbil.core#runtime-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91642 - '6 + __obj92494 + '3 '#f '#f)) (class-slot-ref - gerbil/core/contract~InterfaceInfo#interface-info::t - __obj91642 - 'interface-descriptor))) - (let ((__obj91643 _%self48350%_)) + gerbil/core/mop~MOP-2#runtime-type-info::t + __obj92494 + 'type-descriptor))) + (let ((__obj92495 _%self49034%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91643 + __obj92495 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91643 - '7 + __obj92495 + '8 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj91643 - 'instance-type)))))))) + __obj92495 + 'interface-descriptor)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8576185762%_ + (_%__kont8658086581%_ (lambda () - (let* ((_%g4837448381%_ - (lambda (_%g4837548378%_) + (let* ((_%g4905849065%_ + (lambda (_%g4905949062%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g4837548378%_))) - (_%g4837348401%_ - (lambda (_%g4837548384%_) - ((lambda (_%L48386%_) _%L48386%_) _%g4837548384%_)))) - (_%g4837348401%_ - (let ((__obj91644 _%self48350%_)) + _%g4905949062%_))) + (_%g4905749085%_ + (lambda (_%g4905949068%_) + ((lambda (_%g4906049070%_) _%g4906049070%_) + _%g4905949068%_)))) + (_%g4905749085%_ + (let ((__obj92496 _%self49034%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91644 + __obj92496 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91644 '6 '#f '#f)) + (##unchecked-structure-ref __obj92496 '8 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj91644 + __obj92496 'interface-descriptor)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%g4835348404%_ + (let ((_%g4903749088%_ (lambda () (if (gx#identifier? - _%stx48351%_) - (_%__kont8576185762%_) + _%stx49035%_) + (_%__kont8658086581%_) (let () (declare (not safe)) - (_%g4835448367%_)))))) + (_%g4903849051%_)))))) (if (gx#stx-pair? - _%__stx8575785758%_) - (let ((_%e4835748409%_ + _%__stx8657686577%_) + (let ((_%e4904149093%_ (gx#syntax-e - _%__stx8575785758%_))) - (let ((_%tl4835948414%_ + _%__stx8657686577%_))) + (let ((_%tl4904349098%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4835748409%_))) - (_%hd4835848412%_ - (let () (declare (not safe)) (##car _%e4835748409%_)))) - (if (gx#stx-pair? _%tl4835948414%_) - (let ((_%e4836048417%_ (gx#syntax-e _%tl4835948414%_))) - (let ((_%tl4836248422%_ + (##cdr _%e4904149093%_))) + (_%hd4904249096%_ + (let () (declare (not safe)) (##car _%e4904149093%_)))) + (if (gx#stx-pair? _%tl4904349098%_) + (let ((_%e4904449101%_ (gx#syntax-e _%tl4904349098%_))) + (let ((_%tl4904649106%_ (let () (declare (not safe)) - (##cdr _%e4836048417%_))) - (_%hd4836148420%_ + (##cdr _%e4904449101%_))) + (_%hd4904549104%_ (let () (declare (not safe)) - (##car _%e4836048417%_)))) - (if (gx#stx-null? _%tl4836248422%_) - (_%__kont8575985760%_ _%hd4836148420%_) - (let () (declare (not safe)) (_%g4835348404%_))))) - (let () (declare (not safe)) (_%g4835348404%_))))) + (##car _%e4904449101%_)))) + (if (gx#stx-null? _%tl4904649106%_) + (_%__kont8657886579%_ _%hd4904549104%_) + (let () (declare (not safe)) (_%g4903749088%_))))) + (let () (declare (not safe)) (_%g4903749088%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4835348404%_)))))))) - _%hd4830848330%_ - _%hd4830548322%_) - (_%g4830048314%_ _%g4830148317%_)))) - (_%g4830048314%_ _%g4830148317%_)))) - (_%g4830048314%_ _%g4830148317%_))))) - (_%g4829948508%_ - (list gerbil/core/contract~InterfaceInfo#_g91722_ - gerbil/core/contract~InterfaceInfo#_g91723_)))) + (_%g4903749088%_)))))))) + _%hd4899249014%_ + _%hd4898949006%_) + (_%g4898448998%_ _%g4898549001%_)))) + (_%g4898448998%_ _%g4898549001%_)))) + (_%g4898448998%_ _%g4898549001%_))))) + (_%g4898349176%_ + (list gerbil/core/contract~InterfaceInfo#_g92575_ + gerbil/core/contract~InterfaceInfo#_g92576_)))) (bind-method! gerbil/core/contract~InterfaceInfo#interface-info::t 'apply-macro-expander gerbil/core/contract~InterfaceInfo#interface-info::apply-macro-expander '#f) (define gerbil/core/contract~InterfaceInfo#interface-identifier->precedence-list - (lambda (_%id48175%_) - (cons _%id48175%_ - (let ((__obj91645 (gx#syntax-local-value _%id48175%_))) + (lambda (_%id48860%_) + (cons _%id48860%_ + (let ((__obj92497 (gx#syntax-local-value _%id48860%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91645 + __obj92497 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj91645 '5 '#f '#f)) + (##unchecked-structure-ref __obj92497 '7 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj91645 + __obj92497 'interface-precedence-list)))))) (define gerbil/core/contract~InterfaceInfo#interface-mixin->precedence-list - (lambda (_%lst48170%_) - (let ((_g91724_ + (lambda (_%lst48855%_) + (let ((_g92577_ (c4-linearize '() - _%lst48170%_ + _%lst48855%_ 'get-precedence-list: gerbil/core/contract~InterfaceInfo#interface-identifier->precedence-list 'struct: @@ -546,76 +523,76 @@ 'eq: gx#free-identifier=?))) (begin - (let ((_g91725_ + (let ((_g92578_ (let () (declare (not safe)) - (if (##values? _g91724_) - (##values-length _g91724_) + (if (##values? _g92577_) + (##values-length _g92577_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g91725_ 2))) - (error "Context expects 2 values" _g91725_))) - (let ((_%linearized48172%_ - (let () (declare (not safe)) (##values-ref _g91724_ 0))) - (_%_48173%_ - (let () (declare (not safe)) (##values-ref _g91724_ 1)))) - _%linearized48172%_))))) + (if (not (let () (declare (not safe)) (##fx= _g92578_ 2))) + (error "Context expects 2 values" _g92578_))) + (let ((_%linearized48857%_ + (let () (declare (not safe)) (##values-ref _g92577_ 0))) + (_%_48858%_ + (let () (declare (not safe)) (##values-ref _g92577_ 1)))) + _%linearized48857%_))))) (define gerbil/core/contract~InterfaceInfo#interface-info-method-signature - (lambda (_%info48159%_ _%method48160%_) - (let ((_%sig4816148165%_ - (find (lambda (_%sig48163%_) - (eq? _%method48160%_ (car _%sig48163%_))) - (let ((__obj91646 _%info48159%_)) + (lambda (_%info48845%_ _%method48846%_) + (let ((_%sig4884748851%_ + (find (lambda (_%sig48849%_) + (eq? _%method48846%_ (car _%sig48849%_))) + (let ((__obj92498 _%info48845%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj91646 + __obj92498 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj91646 - '4 + __obj92498 + '6 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj91646 + __obj92498 'interface-methods)))))) - (if _%sig4816148165%_ - (let ((_%sig48168%_ _%sig4816148165%_)) (cdr _%sig48168%_)) + (if _%sig4884748851%_ + (let ((_%sig48853%_ _%sig4884748851%_)) (cdr _%sig48853%_)) '#f)))) (define gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% - (lambda (_%stx48140%_ _%is?48141%_) - (if (gx#identifier? _%stx48140%_) - (let ((_%e4814248144%_ - (gx#syntax-local-value _%stx48140%_ false))) - (if _%e4814248144%_ - (let ((_%e48147%_ _%e4814248144%_)) + (lambda (_%stx48827%_ _%is?48828%_) + (if (gx#identifier? _%stx48827%_) + (let ((_%e4882948831%_ + (gx#syntax-local-value _%stx48827%_ false))) + (if _%e4882948831%_ + (let ((_%e48833%_ _%e4882948831%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%e48147%_)) - (_%is?48141%_ _%e48147%_) + _%e48833%_)) + (_%is?48828%_ _%e48833%_) '#f)) '#f)) '#f))) (define gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - (lambda (_%stx48152%_) - (let ((_%is?48154%_ true)) + (lambda (_%stx48838%_) + (let ((_%is?48840%_ true)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% - _%stx48152%_ - _%is?48154%_)))) + _%stx48838%_ + _%is?48840%_)))) (define gerbil/core/contract~InterfaceInfo#syntax-local-interface-info? - (lambda _g91726_ - (let ((_g91727_ (let () (declare (not safe)) (##length _g91726_)))) - (cond ((let () (declare (not safe)) (##fx= _g91727_ 1)) + (lambda _g92579_ + (let ((_g92580_ (let () (declare (not safe)) (##length _g92579_)))) + (cond ((let () (declare (not safe)) (##fx= _g92580_ 1)) (apply gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _g91726_)) - ((let () (declare (not safe)) (##fx= _g91727_ 2)) + _g92579_)) + ((let () (declare (not safe)) (##fx= _g92580_ 2)) (apply gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% - _g91726_)) + _g92579_)) (else (##raise-wrong-number-of-arguments-exception gerbil/core/contract~InterfaceInfo#syntax-local-interface-info? - _g91726_))))))))) + _g92579_))))))))) diff --git a/src/bootstrap/gerbil/core/contract~TypeCast.scm b/src/bootstrap/gerbil/core/contract~TypeCast.scm index 18c5dd45ef..906cab3cd8 100644 --- a/src/bootstrap/gerbil/core/contract~TypeCast.scm +++ b/src/bootstrap/gerbil/core/contract~TypeCast.scm @@ -1,6 +1,2 @@ (declare (block) (standard-bindings) (extended-bindings)) -(begin - (begin - (load-module "gerbil/core/contract~TypeReference") - (load-module "gerbil/core/mop")) - (begin)) +(begin (load-module "gerbil/core/contract~TypeReference") (begin)) diff --git a/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm b/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm index 00d1aa84ec..57bf30b1d0 100644 --- a/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm +++ b/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/contract~TypeEnv::timestamp 1756721290) + (define gerbil/core/contract~TypeEnv::timestamp 1769384623) (begin (define gerbil/core/contract~TypeEnv#type-env::t (make-class-type @@ -13,10 +13,10 @@ (define gerbil/core/contract~TypeEnv#type-env? (make-class-predicate gerbil/core/contract~TypeEnv#type-env::t)) (define gerbil/core/contract~TypeEnv#make-type-env - (lambda _%$args49848%_ + (lambda _%$args50953%_ (apply make-instance gerbil/core/contract~TypeEnv#type-env::t - _%$args49848%_))) + _%$args50953%_))) (define gerbil/core/contract~TypeEnv#type-env-var (make-class-slot-accessor gerbil/core/contract~TypeEnv#type-env::t 'var)) (define gerbil/core/contract~TypeEnv#type-env-type @@ -79,22 +79,22 @@ (lambda () (gx#syntax-local-value (gx#syntax-local-introduce '@@type) false))) (define gerbil/core/contract~TypeEnv#type-env-lookup - (lambda (_%var49838%_) - (let _%loop49840%_ ((_%te49842%_ + (lambda (_%var50943%_) + (let _%loop50945%_ ((_%te50947%_ (gerbil/core/contract~TypeEnv#current-type-env))) - (if (not _%te49842%_) + (if (not _%te50947%_) '#f (if (gx#free-identifier=? - _%var49838%_ + _%var50943%_ (##direct-structure-ref - _%te49842%_ + _%te50947%_ '1 gerbil/core/contract~TypeEnv#type-env::t '#f)) - _%te49842%_ - (_%loop49840%_ + _%te50947%_ + (_%loop50945%_ (##direct-structure-ref - _%te49842%_ + _%te50947%_ '4 gerbil/core/contract~TypeEnv#type-env::t '#f))))))))) diff --git a/src/bootstrap/gerbil/core/contract~TypeReference.scm b/src/bootstrap/gerbil/core/contract~TypeReference.scm index 2abb3884f5..31a31e8b91 100644 --- a/src/bootstrap/gerbil/core/contract~TypeReference.scm +++ b/src/bootstrap/gerbil/core/contract~TypeReference.scm @@ -1,2 +1,2 @@ (declare (block) (standard-bindings) (extended-bindings)) -(begin (load-module "gerbil/core/mop") (begin)) +(begin (begin) (begin)) diff --git a/src/bootstrap/gerbil/core/contract~Using.scm b/src/bootstrap/gerbil/core/contract~Using.scm index 632ab668b6..5d428c543d 100644 --- a/src/bootstrap/gerbil/core/contract~Using.scm +++ b/src/bootstrap/gerbil/core/contract~Using.scm @@ -2,6 +2,5 @@ (begin (begin (load-module "gerbil/core/contract~TypeCast") - (load-module "gerbil/core/contract~TypeReference") - (load-module "gerbil/core/mop")) + (load-module "gerbil/core/contract~TypeReference")) (begin)) diff --git a/src/bootstrap/gerbil/core/expander.ssi b/src/bootstrap/gerbil/core/expander.ssi index 525adc40e8..6347c3c718 100644 --- a/src/bootstrap/gerbil/core/expander.ssi +++ b/src/bootstrap/gerbil/core/expander.ssi @@ -110,6 +110,7 @@ namespace: gerbil/core/expander (core-identifier-key gx#core-identifier-key) (core-apply-expander gx#core-apply-expander) (syntax-local-introduce gx#syntax-local-introduce) + (syntax-local-temp gx#syntax-local-temp) (syntax-local-rewrap gx#syntax-local-rewrap) (syntax-local-unwrap gx#syntax-local-unwrap) (syntax-local-e gx#syntax-local-e) diff --git a/src/bootstrap/gerbil/core/expander~2.scm b/src/bootstrap/gerbil/core/expander~2.scm index c7e254bdd9..df9417075b 100644 --- a/src/bootstrap/gerbil/core/expander~2.scm +++ b/src/bootstrap/gerbil/core/expander~2.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/expander~SyntaxSugar[1]#_g1921_| + (define |gerbil/core/expander~SyntaxSugar[1]#_g1900_| (##structure gx#syntax-quote::t 'values @@ -9,231 +9,231 @@ '())) (begin (define |gerbil/core/expander~SyntaxSugar[:0:]#syntax-rules| - (lambda (_%stx362%_) - (let* ((_%g365389%_ - (lambda (_%g366385%_) + (lambda (_%stx361%_) + (let* ((_%g364388%_ + (lambda (_%g365384%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g366385%_))) - (_%g364695%_ - (lambda (_%g366393%_) - (if (gx#stx-pair? _%g366393%_) - (let ((_%e369396%_ (gx#syntax-e _%g366393%_))) - (let ((_%hd370400%_ + _%g365384%_))) + (_%g363690%_ + (lambda (_%g365392%_) + (if (gx#stx-pair? _%g365392%_) + (let ((_%e368395%_ (gx#syntax-e _%g365392%_))) + (let ((_%hd369399%_ (let () (declare (not safe)) - (##car _%e369396%_))) - (_%tl371403%_ + (##car _%e368395%_))) + (_%tl370402%_ (let () (declare (not safe)) - (##cdr _%e369396%_)))) - (if (gx#stx-pair? _%tl371403%_) - (let ((_%e372406%_ (gx#syntax-e _%tl371403%_))) - (let ((_%hd373410%_ + (##cdr _%e368395%_)))) + (if (gx#stx-pair? _%tl370402%_) + (let ((_%e371405%_ (gx#syntax-e _%tl370402%_))) + (let ((_%hd372409%_ (let () (declare (not safe)) - (##car _%e372406%_))) - (_%tl374413%_ + (##car _%e371405%_))) + (_%tl373412%_ (let () (declare (not safe)) - (##cdr _%e372406%_)))) - (if (gx#stx-pair/null? _%tl374413%_) - (let ((_g1917_ (gx#syntax-split-splice - _%tl374413%_ + (##cdr _%e371405%_)))) + (if (gx#stx-pair/null? _%tl373412%_) + (let ((_g1896_ (gx#syntax-split-splice + _%tl373412%_ '0))) (begin - (let ((_g1918_ (let () + (let ((_g1897_ (let () (declare (not safe)) (if (##values? - _g1917_) + _g1896_) (##values-length - _g1917_) + _g1896_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g1918_ 2))) + (##fx= _g1897_ 2))) (error "Context expects 2 values" - _g1918_))) - (let ((_%target375416%_ + _g1897_))) + (let ((_%target374415%_ (let () (declare (not safe)) - (##values-ref _g1917_ 0))) - (_%tl377419%_ + (##values-ref _g1896_ 0))) + (_%tl376418%_ (let () (declare (not safe)) - (##values-ref _g1917_ 1)))) - (if (gx#stx-null? _%tl377419%_) - (letrec ((_%loop378422%_ - (lambda (_%hd376426%_ + (##values-ref _g1896_ 1)))) + (if (gx#stx-null? _%tl376418%_) + (letrec ((_%loop377421%_ + (lambda (_%hd375425%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clauses382429%_) - (if (gx#stx-pair? _%hd376426%_) - (let ((_%e379432%_ (gx#syntax-e _%hd376426%_))) - (let ((_%lp-hd380436%_ + _%clauses381428%_) + (if (gx#stx-pair? _%hd375425%_) + (let ((_%e378430%_ (gx#syntax-e _%hd375425%_))) + (let ((_%lp-hd379434%_ (let () (declare (not safe)) - (##car _%e379432%_))) - (_%lp-tl381439%_ + (##car _%e378430%_))) + (_%lp-tl380437%_ (let () (declare (not safe)) - (##cdr _%e379432%_)))) - (_%loop378422%_ - _%lp-tl381439%_ - (cons _%lp-hd380436%_ _%clauses382429%_)))) - (let ((_%clauses383442%_ (reverse _%clauses382429%_))) - ((lambda (_%L446%_ _%L448%_) - (if (gx#identifier-list? _%L448%_) - (let* ((_%body612%_ + (##cdr _%e378430%_)))) + (_%loop377421%_ + _%lp-tl380437%_ + (cons _%lp-hd379434%_ _%clauses381428%_)))) + (let ((_%clauses382440%_ (reverse _%clauses381428%_))) + ((lambda (_%g366443%_ _%g367445%_) + (if (gx#identifier-list? _%g367445%_) + (let* ((_%body609%_ (gx#stx-map - (lambda (_%clause469%_) - (let* ((_%__stx16541655%_ - _%clause469%_) - (_%g473500%_ + (lambda (_%clause466%_) + (let* ((_%__stx16331634%_ + _%clause466%_) + (_%g470497%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx16541655%_)))) - (let ((_%__kont16571658%_ - (lambda (_%L585%_ - _%L587%_) - (cons _%L587%_ + _%__stx16331634%_)))) + (let ((_%__kont16361637%_ + (lambda (_%g472582%_ + _%g473584%_) + (cons _%g473584%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'syntax) - (cons _%L585%_ '())) + (cons _%g472582%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont16591660%_ - (lambda (_%L537%_ - _%L539%_ - _%L540%_) - (cons _%L540%_ - (cons _%L539%_ + (_%__kont16381639%_ + (lambda (_%g480534%_ + _%g481536%_ + _%g482537%_) + (cons _%g482537%_ + (cons _%g481536%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'syntax) - (cons _%L537%_ '())) + (cons _%g480534%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx16541655%_) - (let ((_%e477565%_ + _%__stx16331634%_) + (let ((_%e474562%_ (gx#syntax-e - _%__stx16541655%_))) - (let ((_%tl479572%_ + _%__stx16331634%_))) + (let ((_%tl476569%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e477565%_))) - (_%hd478569%_ - (let () (declare (not safe)) (##car _%e477565%_)))) - (if (gx#stx-pair? _%tl479572%_) - (let ((_%e480575%_ (gx#syntax-e _%tl479572%_))) - (let ((_%tl482582%_ - (let () (declare (not safe)) (##cdr _%e480575%_))) - (_%hd481579%_ + (##cdr _%e474562%_))) + (_%hd475566%_ + (let () (declare (not safe)) (##car _%e474562%_)))) + (if (gx#stx-pair? _%tl476569%_) + (let ((_%e477572%_ (gx#syntax-e _%tl476569%_))) + (let ((_%tl479579%_ + (let () (declare (not safe)) (##cdr _%e477572%_))) + (_%hd478576%_ (let () (declare (not safe)) - (##car _%e480575%_)))) - (if (gx#stx-null? _%tl482582%_) - (_%__kont16571658%_ _%hd481579%_ _%hd478569%_) - (if (gx#stx-pair? _%tl482582%_) - (let ((_%e492527%_ (gx#syntax-e _%tl482582%_))) - (let ((_%tl494534%_ + (##car _%e477572%_)))) + (if (gx#stx-null? _%tl479579%_) + (_%__kont16361637%_ _%hd478576%_ _%hd475566%_) + (if (gx#stx-pair? _%tl479579%_) + (let ((_%e489524%_ (gx#syntax-e _%tl479579%_))) + (let ((_%tl491531%_ (let () (declare (not safe)) - (##cdr _%e492527%_))) - (_%hd493531%_ + (##cdr _%e489524%_))) + (_%hd490528%_ (let () (declare (not safe)) - (##car _%e492527%_)))) - (if (gx#stx-null? _%tl494534%_) - (_%__kont16591660%_ - _%hd493531%_ - _%hd481579%_ - _%hd478569%_) + (##car _%e489524%_)))) + (if (gx#stx-null? _%tl491531%_) + (_%__kont16381639%_ + _%hd490528%_ + _%hd478576%_ + _%hd475566%_) (let () (declare (not safe)) - (_%g473500%_))))) - (let () (declare (not safe)) (_%g473500%_)))))) - (let () (declare (not safe)) (_%g473500%_))))) + (_%g470497%_))))) + (let () (declare (not safe)) (_%g470497%_)))))) + (let () (declare (not safe)) (_%g470497%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g473500%_)))))) - (foldr (lambda (_%g603606%_ - _%g604609%_) - (cons _%g603606%_ - _%g604609%_)) + (_%g470497%_)))))) + (foldr (lambda (_%g600603%_ + _%g601606%_) + (cons _%g600603%_ + _%g601606%_)) '() - _%L446%_))) - (_%g615632%_ - (lambda (_%g616628%_) + _%g366443%_))) + (_%g612629%_ + (lambda (_%g613625%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g616628%_))) - (_%g614691%_ - (lambda (_%g616636%_) - (if (gx#stx-pair/null? _%g616636%_) - (let ((_g1919_ (gx#syntax-split-splice - _%g616636%_ + _%g613625%_))) + (_%g611686%_ + (lambda (_%g613633%_) + (if (gx#stx-pair/null? _%g613633%_) + (let ((_g1898_ (gx#syntax-split-splice + _%g613633%_ '0))) (begin - (let ((_g1920_ (let () + (let ((_g1899_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g1919_) - (##values-length _g1919_) + (if (##values? _g1898_) + (##values-length _g1898_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g1920_ 2))) - (error "Context expects 2 values" _g1920_))) + (##fx= _g1899_ 2))) + (error "Context expects 2 values" _g1899_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target618639%_ + (let ((_%target615636%_ (let () (declare (not safe)) (##values-ref - _g1919_ + _g1898_ 0))) - (_%tl620642%_ + (_%tl617639%_ (let () (declare (not safe)) (##values-ref - _g1919_ + _g1898_ 1)))) (if (gx#stx-null? - _%tl620642%_) - (letrec ((_%loop621645%_ + _%tl617639%_) + (letrec ((_%loop618642%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd619649%_ _%clause625652%_) - (if (gx#stx-pair? _%hd619649%_) - (let ((_%e622655%_ - (gx#syntax-e _%hd619649%_))) - (let ((_%lp-hd623659%_ + (lambda (_%hd616646%_ _%clause622649%_) + (if (gx#stx-pair? _%hd616646%_) + (let ((_%e619651%_ + (gx#syntax-e _%hd616646%_))) + (let ((_%lp-hd620655%_ (let () (declare (not safe)) - (##car _%e622655%_))) - (_%lp-tl624662%_ + (##car _%e619651%_))) + (_%lp-tl621658%_ (let () (declare (not safe)) - (##cdr _%e622655%_)))) - (_%loop621645%_ - _%lp-tl624662%_ - (cons _%lp-hd623659%_ - _%clause625652%_)))) - (let ((_%clause626665%_ - (reverse _%clause625652%_))) - ((lambda (_%L669%_) + (##cdr _%e619651%_)))) + (_%loop618642%_ + _%lp-tl621658%_ + (cons _%lp-hd620655%_ + _%clause622649%_)))) + (let ((_%clause623661%_ + (reverse _%clause622649%_))) + ((lambda (_%g614664%_) (cons (gx#datum->syntax '#f 'lambda%) (cons (cons (gx#datum->syntax '#f @@ -246,1272 +246,1282 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$stx) - (cons _%L448%_ - (foldr (lambda (_%g682685%_ _%g683688%_) - (cons _%g682685%_ _%g683688%_)) + (cons _%g367445%_ + (foldr (lambda (_%g677680%_ _%g678683%_) + (cons _%g677680%_ _%g678683%_)) '() - _%L669%_)))) + _%g614664%_)))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause626665%_)))))) - (_%loop621645%_ _%target618639%_ '())) - (_%g615632%_ _%g616636%_))))) + _%clause623661%_)))))) + (_%loop618642%_ _%target615636%_ '())) + (_%g612629%_ _%g613633%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g615632%_ _%g616636%_))))) - (_%g614691%_ _%body612%_)) - (_%g365389%_ _%g366393%_))) - _%clauses383442%_ - _%hd373410%_)))))) + (_%g612629%_ _%g613633%_))))) + (_%g611686%_ _%body609%_)) + (_%g364388%_ _%g365392%_))) + _%clauses382440%_ + _%hd372409%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop378422%_ - _%target375416%_ + (_%loop377421%_ + _%target374415%_ '())) - (_%g365389%_ _%g366393%_))))) - (_%g365389%_ _%g366393%_)))) - (_%g365389%_ _%g366393%_)))) - (_%g365389%_ _%g366393%_))))) - (_%g364695%_ _%stx362%_)))) + (_%g364388%_ _%g365392%_))))) + (_%g364388%_ _%g365392%_)))) + (_%g364388%_ _%g365392%_)))) + (_%g364388%_ _%g365392%_))))) + (_%g363690%_ _%stx361%_)))) (define |gerbil/core/expander~SyntaxSugar[:0:]#with-syntax| - (lambda (_%stx701%_) - (let* ((_%__stx16981699%_ _%stx701%_) - (_%g706791%_ + (lambda (_%stx696%_) + (let* ((_%__stx16771678%_ _%stx696%_) + (_%g701786%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx16981699%_)))) - (let ((_%__kont17011702%_ - (lambda (_%L1131%_) + _%__stx16771678%_)))) + (let ((_%__kont16801681%_ + (lambda (_%g7031116%_) (cons (gx#datum->syntax '#f 'let-values) (cons '() - (foldr (lambda (_%g11471150%_ _%g11481153%_) - (cons _%g11471150%_ _%g11481153%_)) + (foldr (lambda (_%g11321135%_ _%g11331138%_) + (cons _%g11321135%_ _%g11331138%_)) '() - _%L1131%_))))) - (_%__kont17051706%_ - (lambda (_%L1039%_ _%L1041%_ _%L1042%_) + _%g7031116%_))))) + (_%__kont16841685%_ + (lambda (_%g7191026%_ _%g7201028%_ _%g7211029%_) (cons (gx#datum->syntax '#f 'syntax-case) - (cons _%L1041%_ + (cons _%g7201028%_ (cons '() - (cons (cons _%L1042%_ + (cons (cons _%g7211029%_ (cons (cons (gx#datum->syntax '#f 'let-values) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g10651068%_ _%g10661071%_) - (cons _%g10651068%_ _%g10661071%_)) + (foldr (lambda (_%g10521055%_ _%g10531058%_) + (cons _%g10521055%_ _%g10531058%_)) '() - _%L1039%_))) + _%g7191026%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont17091710%_ - (lambda (_%L902%_ _%L904%_ _%L905%_) + (_%__kont16881689%_ + (lambda (_%g746891%_ _%g747893%_ _%g748894%_) (cons (gx#datum->syntax '#f 'syntax-case) (cons (cons (gx#datum->syntax '#f 'list) - (foldr (lambda (_%g927934%_ _%g928937%_) - (cons _%g927934%_ _%g928937%_)) + (foldr (lambda (_%g916923%_ _%g917926%_) + (cons _%g916923%_ _%g917926%_)) '() - _%L904%_)) + _%g747893%_)) (cons '() - (cons (cons (foldr (lambda (_%g929940%_ + (cons (cons (foldr (lambda (_%g918929%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g930943%_) - (cons _%g929940%_ _%g930943%_)) + _%g919932%_) + (cons _%g918929%_ _%g919932%_)) '() - _%L905%_) + _%g748894%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'let-values) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g931946%_ _%g932949%_) - (cons _%g931946%_ _%g932949%_)) + (foldr (lambda (_%g920935%_ _%g921938%_) + (cons _%g920935%_ _%g921938%_)) '() - _%L902%_))) + _%g746891%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (let* ((_%__match17991800%_ - (lambda (_%e754798%_ - _%hd755802%_ - _%tl756805%_ - _%e757808%_ - _%hd758812%_ - _%tl759815%_ - _%__splice17111712%_ - _%target760818%_ - _%tl762821%_) - (letrec ((_%loop763824%_ - (lambda (_%hd761828%_ - _%e767831%_ - _%pat768833%_) - (if (gx#stx-pair? _%hd761828%_) - (let ((_%e764836%_ - (gx#syntax-e _%hd761828%_))) - (let ((_%lp-tl766843%_ + (let* ((_%__match17781779%_ + (lambda (_%e749793%_ + _%hd750797%_ + _%tl751800%_ + _%e752803%_ + _%hd753807%_ + _%tl754810%_ + _%__splice16901691%_ + _%target755813%_ + _%tl757816%_) + (letrec ((_%loop758819%_ + (lambda (_%hd756823%_ + _%e762826%_ + _%pat763827%_) + (if (gx#stx-pair? _%hd756823%_) + (let ((_%e759829%_ + (gx#syntax-e _%hd756823%_))) + (let ((_%lp-tl761836%_ (let () (declare (not safe)) - (##cdr _%e764836%_))) - (_%lp-hd765840%_ + (##cdr _%e759829%_))) + (_%lp-hd760833%_ (let () (declare (not safe)) - (##car _%e764836%_)))) - (if (gx#stx-pair? _%lp-hd765840%_) - (let ((_%e771846%_ + (##car _%e759829%_)))) + (if (gx#stx-pair? _%lp-hd760833%_) + (let ((_%e766839%_ (gx#syntax-e - _%lp-hd765840%_))) - (let ((_%tl773853%_ + _%lp-hd760833%_))) + (let ((_%tl768846%_ (let () (declare (not safe)) - (##cdr _%e771846%_))) - (_%hd772850%_ + (##cdr _%e766839%_))) + (_%hd767843%_ (let () (declare (not safe)) - (##car _%e771846%_)))) + (##car _%e766839%_)))) (if (gx#stx-pair? - _%tl773853%_) - (let ((_%e774856%_ + _%tl768846%_) + (let ((_%e769849%_ (gx#syntax-e - _%tl773853%_))) - (let ((_%tl776863%_ + _%tl768846%_))) + (let ((_%tl771856%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e774856%_))) - (_%hd775860%_ - (let () (declare (not safe)) (##car _%e774856%_)))) - (if (gx#stx-null? _%tl776863%_) - (_%loop763824%_ - _%lp-tl766843%_ - (cons _%hd775860%_ _%e767831%_) - (cons _%hd772850%_ _%pat768833%_)) - (let () (declare (not safe)) (_%g706791%_))))) - (let () (declare (not safe)) (_%g706791%_))))) + (##cdr _%e769849%_))) + (_%hd770853%_ + (let () (declare (not safe)) (##car _%e769849%_)))) + (if (gx#stx-null? _%tl771856%_) + (_%loop758819%_ + _%lp-tl761836%_ + (cons _%hd770853%_ _%e762826%_) + (cons _%hd767843%_ _%pat763827%_)) + (let () (declare (not safe)) (_%g701786%_))))) + (let () (declare (not safe)) (_%g701786%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g706791%_))))) - (let ((_%pat770869%_ - (reverse _%pat768833%_)) - (_%e769866%_ - (reverse _%e767831%_))) - (if (gx#stx-pair/null? _%tl759815%_) - (let ((_%__splice17131714%_ + (_%g701786%_))))) + (let ((_%pat765861%_ + (reverse _%pat763827%_)) + (_%e764859%_ + (reverse _%e762826%_))) + (if (gx#stx-pair/null? _%tl754810%_) + (let ((_%__splice16921693%_ (gx#syntax-split-splice->vector - _%tl759815%_ + _%tl754810%_ '0))) - (let ((_%tl779875%_ + (let ((_%tl774866%_ (let () (declare (not safe)) (##vector-ref - _%__splice17131714%_ + _%__splice16921693%_ '1))) - (_%target777872%_ + (_%target772863%_ (let () (declare (not safe)) (##vector-ref - _%__splice17131714%_ + _%__splice16921693%_ '0)))) - (if (gx#stx-null? _%tl779875%_) - (letrec ((_%loop780878%_ - (lambda (_%hd778882%_ + (if (gx#stx-null? _%tl774866%_) + (letrec ((_%loop775869%_ + (lambda (_%hd773873%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body784885%_) - (if (gx#stx-pair? _%hd778882%_) - (let ((_%e781888%_ (gx#syntax-e _%hd778882%_))) - (let ((_%lp-tl783895%_ + _%body779876%_) + (if (gx#stx-pair? _%hd773873%_) + (let ((_%e776878%_ (gx#syntax-e _%hd773873%_))) + (let ((_%lp-tl778885%_ (let () (declare (not safe)) - (##cdr _%e781888%_))) - (_%lp-hd782892%_ + (##cdr _%e776878%_))) + (_%lp-hd777882%_ (let () (declare (not safe)) - (##car _%e781888%_)))) - (_%loop780878%_ - _%lp-tl783895%_ - (cons _%lp-hd782892%_ _%body784885%_)))) - (let ((_%body785898%_ (reverse _%body784885%_))) - (_%__kont17091710%_ - _%body785898%_ - _%e769866%_ - _%pat770869%_)))))) - (_%loop780878%_ _%target777872%_ '())) + (##car _%e776878%_)))) + (_%loop775869%_ + _%lp-tl778885%_ + (cons _%lp-hd777882%_ _%body779876%_)))) + (let ((_%body780888%_ (reverse _%body779876%_))) + (_%__kont16881689%_ + _%body780888%_ + _%e764859%_ + _%pat765861%_)))))) + (_%loop775869%_ _%target772863%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g706791%_))))) + (_%g701786%_))))) (let () (declare (not safe)) - (_%g706791%_)))))))) - (_%loop763824%_ _%target760818%_ '() '())))) - (_%__match17791780%_ - (lambda (_%e727959%_ - _%hd728963%_ - _%tl729966%_ - _%e730969%_ - _%hd731973%_ - _%tl732976%_ - _%e733979%_ - _%hd734983%_ - _%tl735986%_ - _%e736989%_ - _%hd737993%_ - _%tl738996%_ - _%e739999%_ - _%hd7401003%_ - _%tl7411006%_ - _%__splice17071708%_ - _%target7421009%_ - _%tl7441012%_) - (letrec ((_%loop7451015%_ - (lambda (_%hd7431019%_ _%body7491022%_) - (if (gx#stx-pair? _%hd7431019%_) - (let ((_%e7461025%_ - (gx#syntax-e _%hd7431019%_))) - (let ((_%lp-tl7481032%_ + (_%g701786%_)))))))) + (_%loop758819%_ _%target755813%_ '() '())))) + (_%__match17581759%_ + (lambda (_%e722948%_ + _%hd723952%_ + _%tl724955%_ + _%e725958%_ + _%hd726962%_ + _%tl727965%_ + _%e728968%_ + _%hd729972%_ + _%tl730975%_ + _%e731978%_ + _%hd732982%_ + _%tl733985%_ + _%e734988%_ + _%hd735992%_ + _%tl736995%_ + _%__splice16861687%_ + _%target737998%_ + _%tl7391001%_) + (letrec ((_%loop7401004%_ + (lambda (_%hd7381008%_ _%body7441011%_) + (if (gx#stx-pair? _%hd7381008%_) + (let ((_%e7411013%_ + (gx#syntax-e _%hd7381008%_))) + (let ((_%lp-tl7431020%_ (let () (declare (not safe)) - (##cdr _%e7461025%_))) - (_%lp-hd7471029%_ + (##cdr _%e7411013%_))) + (_%lp-hd7421017%_ (let () (declare (not safe)) - (##car _%e7461025%_)))) - (_%loop7451015%_ - _%lp-tl7481032%_ - (cons _%lp-hd7471029%_ - _%body7491022%_)))) - (let ((_%body7501035%_ - (reverse _%body7491022%_))) - (_%__kont17051706%_ - _%body7501035%_ - _%hd7401003%_ - _%hd737993%_)))))) - (_%loop7451015%_ _%target7421009%_ '())))) - (_%__match17371738%_ - (lambda (_%e7091081%_ - _%hd7101085%_ - _%tl7111088%_ - _%e7121091%_ - _%hd7131095%_ - _%tl7141098%_ - _%__splice17031704%_ - _%target7151101%_ - _%tl7171104%_) - (letrec ((_%loop7181107%_ - (lambda (_%hd7161111%_ _%body7221114%_) - (if (gx#stx-pair? _%hd7161111%_) - (let ((_%e7191117%_ - (gx#syntax-e _%hd7161111%_))) - (let ((_%lp-tl7211124%_ + (##car _%e7411013%_)))) + (_%loop7401004%_ + _%lp-tl7431020%_ + (cons _%lp-hd7421017%_ + _%body7441011%_)))) + (let ((_%body7451023%_ + (reverse _%body7441011%_))) + (_%__kont16841685%_ + _%body7451023%_ + _%hd735992%_ + _%hd732982%_)))))) + (_%loop7401004%_ _%target737998%_ '())))) + (_%__match17161717%_ + (lambda (_%e7041068%_ + _%hd7051072%_ + _%tl7061075%_ + _%e7071078%_ + _%hd7081082%_ + _%tl7091085%_ + _%__splice16821683%_ + _%target7101088%_ + _%tl7121091%_) + (letrec ((_%loop7131094%_ + (lambda (_%hd7111098%_ _%body7171101%_) + (if (gx#stx-pair? _%hd7111098%_) + (let ((_%e7141103%_ + (gx#syntax-e _%hd7111098%_))) + (let ((_%lp-tl7161110%_ (let () (declare (not safe)) - (##cdr _%e7191117%_))) - (_%lp-hd7201121%_ + (##cdr _%e7141103%_))) + (_%lp-hd7151107%_ (let () (declare (not safe)) - (##car _%e7191117%_)))) - (_%loop7181107%_ - _%lp-tl7211124%_ - (cons _%lp-hd7201121%_ - _%body7221114%_)))) - (let ((_%body7231127%_ - (reverse _%body7221114%_))) - (_%__kont17011702%_ - _%body7231127%_)))))) - (_%loop7181107%_ _%target7151101%_ '()))))) - (if (gx#stx-pair? _%__stx16981699%_) - (let ((_%e7091081%_ (gx#syntax-e _%__stx16981699%_))) - (let ((_%tl7111088%_ - (let () (declare (not safe)) (##cdr _%e7091081%_))) - (_%hd7101085%_ - (let () (declare (not safe)) (##car _%e7091081%_)))) - (if (gx#stx-pair? _%tl7111088%_) - (let ((_%e7121091%_ (gx#syntax-e _%tl7111088%_))) - (let ((_%tl7141098%_ + (##car _%e7141103%_)))) + (_%loop7131094%_ + _%lp-tl7161110%_ + (cons _%lp-hd7151107%_ + _%body7171101%_)))) + (let ((_%body7181113%_ + (reverse _%body7171101%_))) + (_%__kont16801681%_ + _%body7181113%_)))))) + (_%loop7131094%_ _%target7101088%_ '()))))) + (if (gx#stx-pair? _%__stx16771678%_) + (let ((_%e7041068%_ (gx#syntax-e _%__stx16771678%_))) + (let ((_%tl7061075%_ + (let () (declare (not safe)) (##cdr _%e7041068%_))) + (_%hd7051072%_ + (let () (declare (not safe)) (##car _%e7041068%_)))) + (if (gx#stx-pair? _%tl7061075%_) + (let ((_%e7071078%_ (gx#syntax-e _%tl7061075%_))) + (let ((_%tl7091085%_ (let () (declare (not safe)) - (##cdr _%e7121091%_))) - (_%hd7131095%_ + (##cdr _%e7071078%_))) + (_%hd7081082%_ (let () (declare (not safe)) - (##car _%e7121091%_)))) - (if (gx#stx-null? _%hd7131095%_) - (if (gx#stx-pair/null? _%tl7141098%_) - (let ((_%__splice17031704%_ + (##car _%e7071078%_)))) + (if (gx#stx-null? _%hd7081082%_) + (if (gx#stx-pair/null? _%tl7091085%_) + (let ((_%__splice16821683%_ (gx#syntax-split-splice->vector - _%tl7141098%_ + _%tl7091085%_ '0))) - (let ((_%tl7171104%_ + (let ((_%tl7121091%_ (let () (declare (not safe)) (##vector-ref - _%__splice17031704%_ + _%__splice16821683%_ '1))) - (_%target7151101%_ + (_%target7101088%_ (let () (declare (not safe)) (##vector-ref - _%__splice17031704%_ + _%__splice16821683%_ '0)))) - (if (gx#stx-null? _%tl7171104%_) - (_%__match17371738%_ - _%e7091081%_ - _%hd7101085%_ - _%tl7111088%_ - _%e7121091%_ - _%hd7131095%_ - _%tl7141098%_ - _%__splice17031704%_ - _%target7151101%_ - _%tl7171104%_) + (if (gx#stx-null? _%tl7121091%_) + (_%__match17161717%_ + _%e7041068%_ + _%hd7051072%_ + _%tl7061075%_ + _%e7071078%_ + _%hd7081082%_ + _%tl7091085%_ + _%__splice16821683%_ + _%target7101088%_ + _%tl7121091%_) (if (gx#stx-pair/null? - _%hd7131095%_) - (let ((_%__splice17111712%_ + _%hd7081082%_) + (let ((_%__splice16901691%_ (gx#syntax-split-splice->vector - _%hd7131095%_ + _%hd7081082%_ '0))) - (let ((_%tl762821%_ + (let ((_%tl757816%_ (let () (declare (not safe)) (##vector-ref - _%__splice17111712%_ + _%__splice16901691%_ '1))) - (_%target760818%_ + (_%target755813%_ (let () (declare (not safe)) (##vector-ref - _%__splice17111712%_ + _%__splice16901691%_ '0)))) (if (gx#stx-null? - _%tl762821%_) - (_%__match17991800%_ - _%e7091081%_ - _%hd7101085%_ - _%tl7111088%_ - _%e7121091%_ - _%hd7131095%_ - _%tl7141098%_ - _%__splice17111712%_ - _%target760818%_ - _%tl762821%_) + _%tl757816%_) + (_%__match17781779%_ + _%e7041068%_ + _%hd7051072%_ + _%tl7061075%_ + _%e7071078%_ + _%hd7081082%_ + _%tl7091085%_ + _%__splice16901691%_ + _%target755813%_ + _%tl757816%_) (let () (declare (not safe)) - (_%g706791%_))))) + (_%g701786%_))))) (let () (declare (not safe)) - (_%g706791%_)))))) - (if (gx#stx-pair/null? _%hd7131095%_) - (let ((_%__splice17111712%_ + (_%g701786%_)))))) + (if (gx#stx-pair/null? _%hd7081082%_) + (let ((_%__splice16901691%_ (gx#syntax-split-splice->vector - _%hd7131095%_ + _%hd7081082%_ '0))) - (let ((_%tl762821%_ + (let ((_%tl757816%_ (let () (declare (not safe)) (##vector-ref - _%__splice17111712%_ + _%__splice16901691%_ '1))) - (_%target760818%_ + (_%target755813%_ (let () (declare (not safe)) (##vector-ref - _%__splice17111712%_ + _%__splice16901691%_ '0)))) - (if (gx#stx-null? _%tl762821%_) - (_%__match17991800%_ - _%e7091081%_ - _%hd7101085%_ - _%tl7111088%_ - _%e7121091%_ - _%hd7131095%_ - _%tl7141098%_ - _%__splice17111712%_ - _%target760818%_ - _%tl762821%_) + (if (gx#stx-null? _%tl757816%_) + (_%__match17781779%_ + _%e7041068%_ + _%hd7051072%_ + _%tl7061075%_ + _%e7071078%_ + _%hd7081082%_ + _%tl7091085%_ + _%__splice16901691%_ + _%target755813%_ + _%tl757816%_) (let () (declare (not safe)) - (_%g706791%_))))) + (_%g701786%_))))) (let () (declare (not safe)) - (_%g706791%_)))) - (if (gx#stx-pair? _%hd7131095%_) - (let ((_%e733979%_ - (gx#syntax-e _%hd7131095%_))) - (let ((_%tl735986%_ + (_%g701786%_)))) + (if (gx#stx-pair? _%hd7081082%_) + (let ((_%e728968%_ + (gx#syntax-e _%hd7081082%_))) + (let ((_%tl730975%_ (let () (declare (not safe)) - (##cdr _%e733979%_))) - (_%hd734983%_ + (##cdr _%e728968%_))) + (_%hd729972%_ (let () (declare (not safe)) - (##car _%e733979%_)))) - (if (gx#stx-pair? _%hd734983%_) - (let ((_%e736989%_ + (##car _%e728968%_)))) + (if (gx#stx-pair? _%hd729972%_) + (let ((_%e731978%_ (gx#syntax-e - _%hd734983%_))) - (let ((_%tl738996%_ + _%hd729972%_))) + (let ((_%tl733985%_ (let () (declare (not safe)) - (##cdr _%e736989%_))) - (_%hd737993%_ + (##cdr _%e731978%_))) + (_%hd732982%_ (let () (declare (not safe)) - (##car _%e736989%_)))) + (##car _%e731978%_)))) (if (gx#stx-pair? - _%tl738996%_) - (let ((_%e739999%_ + _%tl733985%_) + (let ((_%e734988%_ (gx#syntax-e - _%tl738996%_))) - (let ((_%tl7411006%_ + _%tl733985%_))) + (let ((_%tl736995%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e739999%_))) - (_%hd7401003%_ - (let () (declare (not safe)) (##car _%e739999%_)))) - (if (gx#stx-null? _%tl7411006%_) - (if (gx#stx-null? _%tl735986%_) - (if (gx#stx-pair/null? _%tl7141098%_) - (let ((_%__splice17071708%_ + (##cdr _%e734988%_))) + (_%hd735992%_ + (let () (declare (not safe)) (##car _%e734988%_)))) + (if (gx#stx-null? _%tl736995%_) + (if (gx#stx-null? _%tl730975%_) + (if (gx#stx-pair/null? _%tl7091085%_) + (let ((_%__splice16861687%_ (gx#syntax-split-splice->vector - _%tl7141098%_ + _%tl7091085%_ '0))) - (let ((_%tl7441012%_ + (let ((_%tl7391001%_ (let () (declare (not safe)) (##vector-ref - _%__splice17071708%_ + _%__splice16861687%_ '1))) - (_%target7421009%_ + (_%target737998%_ (let () (declare (not safe)) (##vector-ref - _%__splice17071708%_ + _%__splice16861687%_ '0)))) - (if (gx#stx-null? _%tl7441012%_) - (_%__match17791780%_ - _%e7091081%_ - _%hd7101085%_ - _%tl7111088%_ - _%e7121091%_ - _%hd7131095%_ - _%tl7141098%_ - _%e733979%_ - _%hd734983%_ - _%tl735986%_ - _%e736989%_ - _%hd737993%_ - _%tl738996%_ - _%e739999%_ - _%hd7401003%_ - _%tl7411006%_ - _%__splice17071708%_ - _%target7421009%_ - _%tl7441012%_) - (if (gx#stx-pair/null? _%hd7131095%_) - (let ((_%__splice17111712%_ + (if (gx#stx-null? _%tl7391001%_) + (_%__match17581759%_ + _%e7041068%_ + _%hd7051072%_ + _%tl7061075%_ + _%e7071078%_ + _%hd7081082%_ + _%tl7091085%_ + _%e728968%_ + _%hd729972%_ + _%tl730975%_ + _%e731978%_ + _%hd732982%_ + _%tl733985%_ + _%e734988%_ + _%hd735992%_ + _%tl736995%_ + _%__splice16861687%_ + _%target737998%_ + _%tl7391001%_) + (if (gx#stx-pair/null? _%hd7081082%_) + (let ((_%__splice16901691%_ (gx#syntax-split-splice->vector - _%hd7131095%_ + _%hd7081082%_ '0))) - (let ((_%tl762821%_ + (let ((_%tl757816%_ (let () (declare (not safe)) (##vector-ref - _%__splice17111712%_ + _%__splice16901691%_ '1))) - (_%target760818%_ + (_%target755813%_ (let () (declare (not safe)) (##vector-ref - _%__splice17111712%_ + _%__splice16901691%_ '0)))) - (if (gx#stx-null? _%tl762821%_) - (_%__match17991800%_ - _%e7091081%_ - _%hd7101085%_ - _%tl7111088%_ - _%e7121091%_ - _%hd7131095%_ - _%tl7141098%_ - _%__splice17111712%_ - _%target760818%_ - _%tl762821%_) + (if (gx#stx-null? _%tl757816%_) + (_%__match17781779%_ + _%e7041068%_ + _%hd7051072%_ + _%tl7061075%_ + _%e7071078%_ + _%hd7081082%_ + _%tl7091085%_ + _%__splice16901691%_ + _%target755813%_ + _%tl757816%_) (let () (declare (not safe)) - (_%g706791%_))))) + (_%g701786%_))))) (let () (declare (not safe)) - (_%g706791%_)))))) - (if (gx#stx-pair/null? _%hd7131095%_) - (let ((_%__splice17111712%_ + (_%g701786%_)))))) + (if (gx#stx-pair/null? _%hd7081082%_) + (let ((_%__splice16901691%_ (gx#syntax-split-splice->vector - _%hd7131095%_ + _%hd7081082%_ '0))) - (let ((_%tl762821%_ + (let ((_%tl757816%_ (let () (declare (not safe)) (##vector-ref - _%__splice17111712%_ + _%__splice16901691%_ '1))) - (_%target760818%_ + (_%target755813%_ (let () (declare (not safe)) (##vector-ref - _%__splice17111712%_ + _%__splice16901691%_ '0)))) - (if (gx#stx-null? _%tl762821%_) - (_%__match17991800%_ - _%e7091081%_ - _%hd7101085%_ - _%tl7111088%_ - _%e7121091%_ - _%hd7131095%_ - _%tl7141098%_ - _%__splice17111712%_ - _%target760818%_ - _%tl762821%_) + (if (gx#stx-null? _%tl757816%_) + (_%__match17781779%_ + _%e7041068%_ + _%hd7051072%_ + _%tl7061075%_ + _%e7071078%_ + _%hd7081082%_ + _%tl7091085%_ + _%__splice16901691%_ + _%target755813%_ + _%tl757816%_) (let () (declare (not safe)) - (_%g706791%_))))) - (let () (declare (not safe)) (_%g706791%_)))) - (if (gx#stx-pair/null? _%hd7131095%_) - (let ((_%__splice17111712%_ + (_%g701786%_))))) + (let () (declare (not safe)) (_%g701786%_)))) + (if (gx#stx-pair/null? _%hd7081082%_) + (let ((_%__splice16901691%_ (gx#syntax-split-splice->vector - _%hd7131095%_ + _%hd7081082%_ '0))) - (let ((_%tl762821%_ + (let ((_%tl757816%_ (let () (declare (not safe)) (##vector-ref - _%__splice17111712%_ + _%__splice16901691%_ '1))) - (_%target760818%_ + (_%target755813%_ (let () (declare (not safe)) (##vector-ref - _%__splice17111712%_ + _%__splice16901691%_ '0)))) - (if (gx#stx-null? _%tl762821%_) - (_%__match17991800%_ - _%e7091081%_ - _%hd7101085%_ - _%tl7111088%_ - _%e7121091%_ - _%hd7131095%_ - _%tl7141098%_ - _%__splice17111712%_ - _%target760818%_ - _%tl762821%_) + (if (gx#stx-null? _%tl757816%_) + (_%__match17781779%_ + _%e7041068%_ + _%hd7051072%_ + _%tl7061075%_ + _%e7071078%_ + _%hd7081082%_ + _%tl7091085%_ + _%__splice16901691%_ + _%target755813%_ + _%tl757816%_) (let () (declare (not safe)) - (_%g706791%_))))) - (let () (declare (not safe)) (_%g706791%_)))) - (if (gx#stx-pair/null? _%hd7131095%_) - (let ((_%__splice17111712%_ + (_%g701786%_))))) + (let () (declare (not safe)) (_%g701786%_)))) + (if (gx#stx-pair/null? _%hd7081082%_) + (let ((_%__splice16901691%_ (gx#syntax-split-splice->vector - _%hd7131095%_ + _%hd7081082%_ '0))) - (let ((_%tl762821%_ + (let ((_%tl757816%_ (let () (declare (not safe)) - (##vector-ref _%__splice17111712%_ '1))) - (_%target760818%_ + (##vector-ref _%__splice16901691%_ '1))) + (_%target755813%_ (let () (declare (not safe)) - (##vector-ref _%__splice17111712%_ '0)))) - (if (gx#stx-null? _%tl762821%_) - (_%__match17991800%_ - _%e7091081%_ - _%hd7101085%_ - _%tl7111088%_ - _%e7121091%_ - _%hd7131095%_ - _%tl7141098%_ - _%__splice17111712%_ - _%target760818%_ - _%tl762821%_) + (##vector-ref _%__splice16901691%_ '0)))) + (if (gx#stx-null? _%tl757816%_) + (_%__match17781779%_ + _%e7041068%_ + _%hd7051072%_ + _%tl7061075%_ + _%e7071078%_ + _%hd7081082%_ + _%tl7091085%_ + _%__splice16901691%_ + _%target755813%_ + _%tl757816%_) (let () (declare (not safe)) - (_%g706791%_))))) - (let () (declare (not safe)) (_%g706791%_)))))) - (if (gx#stx-pair/null? _%hd7131095%_) - (let ((_%__splice17111712%_ - (gx#syntax-split-splice->vector _%hd7131095%_ '0))) - (let ((_%tl762821%_ + (_%g701786%_))))) + (let () (declare (not safe)) (_%g701786%_)))))) + (if (gx#stx-pair/null? _%hd7081082%_) + (let ((_%__splice16901691%_ + (gx#syntax-split-splice->vector _%hd7081082%_ '0))) + (let ((_%tl757816%_ (let () (declare (not safe)) - (##vector-ref _%__splice17111712%_ '1))) - (_%target760818%_ + (##vector-ref _%__splice16901691%_ '1))) + (_%target755813%_ (let () (declare (not safe)) - (##vector-ref _%__splice17111712%_ '0)))) - (if (gx#stx-null? _%tl762821%_) - (_%__match17991800%_ - _%e7091081%_ - _%hd7101085%_ - _%tl7111088%_ - _%e7121091%_ - _%hd7131095%_ - _%tl7141098%_ - _%__splice17111712%_ - _%target760818%_ - _%tl762821%_) - (let () (declare (not safe)) (_%g706791%_))))) - (let () (declare (not safe)) (_%g706791%_)))))) + (##vector-ref _%__splice16901691%_ '0)))) + (if (gx#stx-null? _%tl757816%_) + (_%__match17781779%_ + _%e7041068%_ + _%hd7051072%_ + _%tl7061075%_ + _%e7071078%_ + _%hd7081082%_ + _%tl7091085%_ + _%__splice16901691%_ + _%target755813%_ + _%tl757816%_) + (let () (declare (not safe)) (_%g701786%_))))) + (let () (declare (not safe)) (_%g701786%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd7131095%_) - (let ((_%__splice17111712%_ + _%hd7081082%_) + (let ((_%__splice16901691%_ (gx#syntax-split-splice->vector - _%hd7131095%_ + _%hd7081082%_ '0))) - (let ((_%tl762821%_ + (let ((_%tl757816%_ (let () (declare (not safe)) (##vector-ref - _%__splice17111712%_ + _%__splice16901691%_ '1))) - (_%target760818%_ + (_%target755813%_ (let () (declare (not safe)) (##vector-ref - _%__splice17111712%_ + _%__splice16901691%_ '0)))) (if (gx#stx-null? - _%tl762821%_) - (_%__match17991800%_ - _%e7091081%_ - _%hd7101085%_ - _%tl7111088%_ - _%e7121091%_ - _%hd7131095%_ - _%tl7141098%_ - _%__splice17111712%_ - _%target760818%_ - _%tl762821%_) + _%tl757816%_) + (_%__match17781779%_ + _%e7041068%_ + _%hd7051072%_ + _%tl7061075%_ + _%e7071078%_ + _%hd7081082%_ + _%tl7091085%_ + _%__splice16901691%_ + _%target755813%_ + _%tl757816%_) (let () (declare (not safe)) - (_%g706791%_))))) + (_%g701786%_))))) (let () (declare (not safe)) - (_%g706791%_)))))) - (if (gx#stx-pair/null? _%hd7131095%_) - (let ((_%__splice17111712%_ + (_%g701786%_)))))) + (if (gx#stx-pair/null? _%hd7081082%_) + (let ((_%__splice16901691%_ (gx#syntax-split-splice->vector - _%hd7131095%_ + _%hd7081082%_ '0))) - (let ((_%tl762821%_ + (let ((_%tl757816%_ (let () (declare (not safe)) (##vector-ref - _%__splice17111712%_ + _%__splice16901691%_ '1))) - (_%target760818%_ + (_%target755813%_ (let () (declare (not safe)) (##vector-ref - _%__splice17111712%_ + _%__splice16901691%_ '0)))) - (if (gx#stx-null? _%tl762821%_) - (_%__match17991800%_ - _%e7091081%_ - _%hd7101085%_ - _%tl7111088%_ - _%e7121091%_ - _%hd7131095%_ - _%tl7141098%_ - _%__splice17111712%_ - _%target760818%_ - _%tl762821%_) + (if (gx#stx-null? _%tl757816%_) + (_%__match17781779%_ + _%e7041068%_ + _%hd7051072%_ + _%tl7061075%_ + _%e7071078%_ + _%hd7081082%_ + _%tl7091085%_ + _%__splice16901691%_ + _%target755813%_ + _%tl757816%_) (let () (declare (not safe)) - (_%g706791%_))))) + (_%g701786%_))))) (let () (declare (not safe)) - (_%g706791%_))))))) - (let () (declare (not safe)) (_%g706791%_))))) - (let () (declare (not safe)) (_%g706791%_)))))))) + (_%g701786%_))))))) + (let () (declare (not safe)) (_%g701786%_))))) + (let () (declare (not safe)) (_%g701786%_)))))))) (define |gerbil/core/expander~SyntaxSugar[:0:]#with-syntax*| - (lambda (_%stx1164%_) - (let* ((_%__stx18021803%_ _%stx1164%_) - (_%g11691246%_ + (lambda (_%stx1149%_) + (let* ((_%__stx17811782%_ _%stx1149%_) + (_%g11541231%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx18021803%_)))) - (let ((_%__kont18051806%_ - (lambda (_%L1542%_) + _%__stx17811782%_)))) + (let ((_%__kont17841785%_ + (lambda (_%g11561521%_) (cons (gx#datum->syntax '#f 'let-values) (cons '() - (foldr (lambda (_%g15581561%_ _%g15591564%_) - (cons _%g15581561%_ _%g15591564%_)) + (foldr (lambda (_%g15371540%_ _%g15381543%_) + (cons _%g15371540%_ _%g15381543%_)) '() - _%L1542%_))))) - (_%__kont18091810%_ - (lambda (_%L1444%_ _%L1446%_ _%L1447%_ _%L1448%_ _%L1449%_) + _%g11561521%_))))) + (_%__kont17881789%_ + (lambda (_%g11721425%_ + _%g11731427%_ + _%g11741428%_ + _%g11751429%_ + _%g11761430%_) (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons _%L1448%_ (cons _%L1447%_ '())) '()) - (cons (cons _%L1449%_ - (cons _%L1446%_ - (foldr (lambda (_%g14761479%_ + (cons (cons (cons _%g11751429%_ + (cons _%g11741428%_ '())) + '()) + (cons (cons _%g11761430%_ + (cons _%g11731427%_ + (foldr (lambda (_%g14571460%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g14771482%_) - (cons _%g14761479%_ _%g14771482%_)) + _%g14581463%_) + (cons _%g14571460%_ _%g14581463%_)) '() - _%L1444%_))) + _%g11721425%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont18131814%_ - (lambda (_%L1313%_ _%L1315%_ _%L1316%_ _%L1317%_) + (_%__kont17921793%_ + (lambda (_%g12041296%_ + _%g12051298%_ + _%g12061299%_ + _%g12071300%_) (cons (gx#datum->syntax '#f 'with-syntax) - (cons (cons _%L1316%_ '()) - (cons (cons _%L1317%_ - (cons _%L1315%_ - (foldr (lambda (_%g13381341%_ + (cons (cons _%g12061299%_ '()) + (cons (cons _%g12071300%_ + (cons _%g12051298%_ + (foldr (lambda (_%g13211324%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g13391344%_) - (cons _%g13381341%_ _%g13391344%_)) + _%g13221327%_) + (cons _%g13211324%_ _%g13221327%_)) '() - _%L1313%_))) + _%g12041296%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match19151916%_ - (lambda (_%e12231253%_ - _%hd12241257%_ - _%tl12251260%_ - _%e12261263%_ - _%hd12271267%_ - _%tl12281270%_ - _%e12291273%_ - _%hd12301277%_ - _%tl12311280%_ - _%__splice18151816%_ - _%target12321283%_ - _%tl12341286%_) - (letrec ((_%loop12351289%_ - (lambda (_%hd12331293%_ _%body12391296%_) - (if (gx#stx-pair? _%hd12331293%_) - (let ((_%e12361299%_ - (gx#syntax-e _%hd12331293%_))) - (let ((_%lp-tl12381306%_ + (let* ((_%__match18941895%_ + (lambda (_%e12081238%_ + _%hd12091242%_ + _%tl12101245%_ + _%e12111248%_ + _%hd12121252%_ + _%tl12131255%_ + _%e12141258%_ + _%hd12151262%_ + _%tl12161265%_ + _%__splice17941795%_ + _%target12171268%_ + _%tl12191271%_) + (letrec ((_%loop12201274%_ + (lambda (_%hd12181278%_ _%body12241281%_) + (if (gx#stx-pair? _%hd12181278%_) + (let ((_%e12211283%_ + (gx#syntax-e _%hd12181278%_))) + (let ((_%lp-tl12231290%_ (let () (declare (not safe)) - (##cdr _%e12361299%_))) - (_%lp-hd12371303%_ + (##cdr _%e12211283%_))) + (_%lp-hd12221287%_ (let () (declare (not safe)) - (##car _%e12361299%_)))) - (_%loop12351289%_ - _%lp-tl12381306%_ - (cons _%lp-hd12371303%_ - _%body12391296%_)))) - (let ((_%body12401309%_ - (reverse _%body12391296%_))) - (_%__kont18131814%_ - _%body12401309%_ - _%tl12311280%_ - _%hd12301277%_ - _%hd12241257%_)))))) - (_%loop12351289%_ _%target12321283%_ '())))) - (_%__match18891890%_ - (lambda (_%e11921354%_ - _%hd11931358%_ - _%tl11941361%_ - _%e11951364%_ - _%hd11961368%_ - _%tl11971371%_ - _%e11981374%_ - _%hd11991378%_ - _%tl12001381%_ - _%e12011384%_ - _%hd12021388%_ - _%tl12031391%_ - _%e12041394%_ - _%hd12051398%_ - _%tl12061401%_ - _%e12071404%_ - _%hd12081408%_ - _%tl12091411%_ - _%__splice18111812%_ - _%target12101414%_ - _%tl12121417%_) - (letrec ((_%loop12131420%_ - (lambda (_%hd12111424%_ _%body12171427%_) - (if (gx#stx-pair? _%hd12111424%_) - (let ((_%e12141430%_ - (gx#syntax-e _%hd12111424%_))) - (let ((_%lp-tl12161437%_ + (##car _%e12211283%_)))) + (_%loop12201274%_ + _%lp-tl12231290%_ + (cons _%lp-hd12221287%_ + _%body12241281%_)))) + (let ((_%body12251293%_ + (reverse _%body12241281%_))) + (_%__kont17921793%_ + _%body12251293%_ + _%tl12161265%_ + _%hd12151262%_ + _%hd12091242%_)))))) + (_%loop12201274%_ _%target12171268%_ '())))) + (_%__match18681869%_ + (lambda (_%e11771337%_ + _%hd11781341%_ + _%tl11791344%_ + _%e11801347%_ + _%hd11811351%_ + _%tl11821354%_ + _%e11831357%_ + _%hd11841361%_ + _%tl11851364%_ + _%e11861367%_ + _%hd11871371%_ + _%tl11881374%_ + _%e11891377%_ + _%hd11901381%_ + _%tl11911384%_ + _%e11921387%_ + _%hd11931391%_ + _%tl11941394%_ + _%__splice17901791%_ + _%target11951397%_ + _%tl11971400%_) + (letrec ((_%loop11981403%_ + (lambda (_%hd11961407%_ _%body12021410%_) + (if (gx#stx-pair? _%hd11961407%_) + (let ((_%e11991412%_ + (gx#syntax-e _%hd11961407%_))) + (let ((_%lp-tl12011419%_ (let () (declare (not safe)) - (##cdr _%e12141430%_))) - (_%lp-hd12151434%_ + (##cdr _%e11991412%_))) + (_%lp-hd12001416%_ (let () (declare (not safe)) - (##car _%e12141430%_)))) - (_%loop12131420%_ - _%lp-tl12161437%_ - (cons _%lp-hd12151434%_ - _%body12171427%_)))) - (let ((_%body12181440%_ - (reverse _%body12171427%_))) - (_%__kont18091810%_ - _%body12181440%_ - _%tl12001381%_ - _%hd12081408%_ - _%tl12061401%_ - _%hd11931358%_)))))) - (_%loop12131420%_ _%target12101414%_ '())))) - (_%__match18391840%_ - (lambda (_%e11721492%_ - _%hd11731496%_ - _%tl11741499%_ - _%e11751502%_ - _%hd11761506%_ - _%tl11771509%_ - _%__splice18071808%_ - _%target11781512%_ - _%tl11801515%_) - (letrec ((_%loop11811518%_ - (lambda (_%hd11791522%_ _%body11851525%_) - (if (gx#stx-pair? _%hd11791522%_) - (let ((_%e11821528%_ - (gx#syntax-e _%hd11791522%_))) - (let ((_%lp-tl11841535%_ + (##car _%e11991412%_)))) + (_%loop11981403%_ + _%lp-tl12011419%_ + (cons _%lp-hd12001416%_ + _%body12021410%_)))) + (let ((_%body12031422%_ + (reverse _%body12021410%_))) + (_%__kont17881789%_ + _%body12031422%_ + _%tl11851364%_ + _%hd11931391%_ + _%tl11911384%_ + _%hd11781341%_)))))) + (_%loop11981403%_ _%target11951397%_ '())))) + (_%__match18181819%_ + (lambda (_%e11571473%_ + _%hd11581477%_ + _%tl11591480%_ + _%e11601483%_ + _%hd11611487%_ + _%tl11621490%_ + _%__splice17861787%_ + _%target11631493%_ + _%tl11651496%_) + (letrec ((_%loop11661499%_ + (lambda (_%hd11641503%_ _%body11701506%_) + (if (gx#stx-pair? _%hd11641503%_) + (let ((_%e11671508%_ + (gx#syntax-e _%hd11641503%_))) + (let ((_%lp-tl11691515%_ (let () (declare (not safe)) - (##cdr _%e11821528%_))) - (_%lp-hd11831532%_ + (##cdr _%e11671508%_))) + (_%lp-hd11681512%_ (let () (declare (not safe)) - (##car _%e11821528%_)))) - (_%loop11811518%_ - _%lp-tl11841535%_ - (cons _%lp-hd11831532%_ - _%body11851525%_)))) - (let ((_%body11861538%_ - (reverse _%body11851525%_))) - (_%__kont18051806%_ - _%body11861538%_)))))) - (_%loop11811518%_ _%target11781512%_ '()))))) - (if (gx#stx-pair? _%__stx18021803%_) - (let ((_%e11721492%_ (gx#syntax-e _%__stx18021803%_))) - (let ((_%tl11741499%_ - (let () (declare (not safe)) (##cdr _%e11721492%_))) - (_%hd11731496%_ + (##car _%e11671508%_)))) + (_%loop11661499%_ + _%lp-tl11691515%_ + (cons _%lp-hd11681512%_ + _%body11701506%_)))) + (let ((_%body11711518%_ + (reverse _%body11701506%_))) + (_%__kont17841785%_ + _%body11711518%_)))))) + (_%loop11661499%_ _%target11631493%_ '()))))) + (if (gx#stx-pair? _%__stx17811782%_) + (let ((_%e11571473%_ (gx#syntax-e _%__stx17811782%_))) + (let ((_%tl11591480%_ + (let () (declare (not safe)) (##cdr _%e11571473%_))) + (_%hd11581477%_ (let () (declare (not safe)) - (##car _%e11721492%_)))) - (if (gx#stx-pair? _%tl11741499%_) - (let ((_%e11751502%_ (gx#syntax-e _%tl11741499%_))) - (let ((_%tl11771509%_ + (##car _%e11571473%_)))) + (if (gx#stx-pair? _%tl11591480%_) + (let ((_%e11601483%_ (gx#syntax-e _%tl11591480%_))) + (let ((_%tl11621490%_ (let () (declare (not safe)) - (##cdr _%e11751502%_))) - (_%hd11761506%_ + (##cdr _%e11601483%_))) + (_%hd11611487%_ (let () (declare (not safe)) - (##car _%e11751502%_)))) - (if (gx#stx-null? _%hd11761506%_) - (if (gx#stx-pair/null? _%tl11771509%_) - (let ((_%__splice18071808%_ + (##car _%e11601483%_)))) + (if (gx#stx-null? _%hd11611487%_) + (if (gx#stx-pair/null? _%tl11621490%_) + (let ((_%__splice17861787%_ (gx#syntax-split-splice->vector - _%tl11771509%_ + _%tl11621490%_ '0))) - (let ((_%tl11801515%_ + (let ((_%tl11651496%_ (let () (declare (not safe)) (##vector-ref - _%__splice18071808%_ + _%__splice17861787%_ '1))) - (_%target11781512%_ + (_%target11631493%_ (let () (declare (not safe)) (##vector-ref - _%__splice18071808%_ + _%__splice17861787%_ '0)))) - (if (gx#stx-null? _%tl11801515%_) - (_%__match18391840%_ - _%e11721492%_ - _%hd11731496%_ - _%tl11741499%_ - _%e11751502%_ - _%hd11761506%_ - _%tl11771509%_ - _%__splice18071808%_ - _%target11781512%_ - _%tl11801515%_) + (if (gx#stx-null? _%tl11651496%_) + (_%__match18181819%_ + _%e11571473%_ + _%hd11581477%_ + _%tl11591480%_ + _%e11601483%_ + _%hd11611487%_ + _%tl11621490%_ + _%__splice17861787%_ + _%target11631493%_ + _%tl11651496%_) (let () (declare (not safe)) - (_%g11691246%_))))) + (_%g11541231%_))))) (let () (declare (not safe)) - (_%g11691246%_))) - (if (gx#stx-pair? _%hd11761506%_) - (let ((_%e11981374%_ - (gx#syntax-e _%hd11761506%_))) - (let ((_%tl12001381%_ + (_%g11541231%_))) + (if (gx#stx-pair? _%hd11611487%_) + (let ((_%e11831357%_ + (gx#syntax-e _%hd11611487%_))) + (let ((_%tl11851364%_ (let () (declare (not safe)) - (##cdr _%e11981374%_))) - (_%hd11991378%_ + (##cdr _%e11831357%_))) + (_%hd11841361%_ (let () (declare (not safe)) - (##car _%e11981374%_)))) - (if (gx#stx-pair? _%hd11991378%_) - (let ((_%e12011384%_ + (##car _%e11831357%_)))) + (if (gx#stx-pair? _%hd11841361%_) + (let ((_%e11861367%_ (gx#syntax-e - _%hd11991378%_))) - (let ((_%tl12031391%_ + _%hd11841361%_))) + (let ((_%tl11881374%_ (let () (declare (not safe)) - (##cdr _%e12011384%_))) - (_%hd12021388%_ + (##cdr _%e11861367%_))) + (_%hd11871371%_ (let () (declare (not safe)) - (##car _%e12011384%_)))) + (##car _%e11861367%_)))) (if (gx#stx-pair? - _%hd12021388%_) - (let ((_%e12041394%_ + _%hd11871371%_) + (let ((_%e11891377%_ (gx#syntax-e - _%hd12021388%_))) - (let ((_%tl12061401%_ + _%hd11871371%_))) + (let ((_%tl11911384%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e12041394%_))) - (_%hd12051398%_ - (let () (declare (not safe)) (##car _%e12041394%_)))) - (if (gx#identifier? _%hd12051398%_) + (##cdr _%e11891377%_))) + (_%hd11901381%_ + (let () (declare (not safe)) (##car _%e11891377%_)))) + (if (gx#identifier? _%hd11901381%_) (if (gx#free-identifier=? - |gerbil/core/expander~SyntaxSugar[1]#_g1921_| - _%hd12051398%_) - (if (gx#stx-pair? _%tl12031391%_) - (let ((_%e12071404%_ - (gx#syntax-e _%tl12031391%_))) - (let ((_%tl12091411%_ + |gerbil/core/expander~SyntaxSugar[1]#_g1900_| + _%hd11901381%_) + (if (gx#stx-pair? _%tl11881374%_) + (let ((_%e11921387%_ + (gx#syntax-e _%tl11881374%_))) + (let ((_%tl11941394%_ (let () (declare (not safe)) - (##cdr _%e12071404%_))) - (_%hd12081408%_ + (##cdr _%e11921387%_))) + (_%hd11931391%_ (let () (declare (not safe)) - (##car _%e12071404%_)))) - (if (gx#stx-null? _%tl12091411%_) - (if (gx#stx-pair/null? _%tl11771509%_) - (let ((_%__splice18111812%_ + (##car _%e11921387%_)))) + (if (gx#stx-null? _%tl11941394%_) + (if (gx#stx-pair/null? _%tl11621490%_) + (let ((_%__splice17901791%_ (gx#syntax-split-splice->vector - _%tl11771509%_ + _%tl11621490%_ '0))) - (let ((_%tl12121417%_ + (let ((_%tl11971400%_ (let () (declare (not safe)) (##vector-ref - _%__splice18111812%_ + _%__splice17901791%_ '1))) - (_%target12101414%_ + (_%target11951397%_ (let () (declare (not safe)) (##vector-ref - _%__splice18111812%_ + _%__splice17901791%_ '0)))) - (if (gx#stx-null? _%tl12121417%_) - (_%__match18891890%_ - _%e11721492%_ - _%hd11731496%_ - _%tl11741499%_ - _%e11751502%_ - _%hd11761506%_ - _%tl11771509%_ - _%e11981374%_ - _%hd11991378%_ - _%tl12001381%_ - _%e12011384%_ - _%hd12021388%_ - _%tl12031391%_ - _%e12041394%_ - _%hd12051398%_ - _%tl12061401%_ - _%e12071404%_ - _%hd12081408%_ - _%tl12091411%_ - _%__splice18111812%_ - _%target12101414%_ - _%tl12121417%_) + (if (gx#stx-null? _%tl11971400%_) + (_%__match18681869%_ + _%e11571473%_ + _%hd11581477%_ + _%tl11591480%_ + _%e11601483%_ + _%hd11611487%_ + _%tl11621490%_ + _%e11831357%_ + _%hd11841361%_ + _%tl11851364%_ + _%e11861367%_ + _%hd11871371%_ + _%tl11881374%_ + _%e11891377%_ + _%hd11901381%_ + _%tl11911384%_ + _%e11921387%_ + _%hd11931391%_ + _%tl11941394%_ + _%__splice17901791%_ + _%target11951397%_ + _%tl11971400%_) (let () (declare (not safe)) - (_%g11691246%_))))) + (_%g11541231%_))))) (let () (declare (not safe)) - (_%g11691246%_))) - (if (gx#stx-pair/null? _%tl11771509%_) - (let ((_%__splice18151816%_ + (_%g11541231%_))) + (if (gx#stx-pair/null? _%tl11621490%_) + (let ((_%__splice17941795%_ (gx#syntax-split-splice->vector - _%tl11771509%_ + _%tl11621490%_ '0))) - (let ((_%tl12341286%_ + (let ((_%tl12191271%_ (let () (declare (not safe)) (##vector-ref - _%__splice18151816%_ + _%__splice17941795%_ '1))) - (_%target12321283%_ + (_%target12171268%_ (let () (declare (not safe)) (##vector-ref - _%__splice18151816%_ + _%__splice17941795%_ '0)))) - (if (gx#stx-null? _%tl12341286%_) - (_%__match19151916%_ - _%e11721492%_ - _%hd11731496%_ - _%tl11741499%_ - _%e11751502%_ - _%hd11761506%_ - _%tl11771509%_ - _%e11981374%_ - _%hd11991378%_ - _%tl12001381%_ - _%__splice18151816%_ - _%target12321283%_ - _%tl12341286%_) + (if (gx#stx-null? _%tl12191271%_) + (_%__match18941895%_ + _%e11571473%_ + _%hd11581477%_ + _%tl11591480%_ + _%e11601483%_ + _%hd11611487%_ + _%tl11621490%_ + _%e11831357%_ + _%hd11841361%_ + _%tl11851364%_ + _%__splice17941795%_ + _%target12171268%_ + _%tl12191271%_) (let () (declare (not safe)) - (_%g11691246%_))))) + (_%g11541231%_))))) (let () (declare (not safe)) - (_%g11691246%_)))))) - (if (gx#stx-pair/null? _%tl11771509%_) - (let ((_%__splice18151816%_ + (_%g11541231%_)))))) + (if (gx#stx-pair/null? _%tl11621490%_) + (let ((_%__splice17941795%_ (gx#syntax-split-splice->vector - _%tl11771509%_ + _%tl11621490%_ '0))) - (let ((_%tl12341286%_ + (let ((_%tl12191271%_ (let () (declare (not safe)) (##vector-ref - _%__splice18151816%_ + _%__splice17941795%_ '1))) - (_%target12321283%_ + (_%target12171268%_ (let () (declare (not safe)) (##vector-ref - _%__splice18151816%_ + _%__splice17941795%_ '0)))) - (if (gx#stx-null? _%tl12341286%_) - (_%__match19151916%_ - _%e11721492%_ - _%hd11731496%_ - _%tl11741499%_ - _%e11751502%_ - _%hd11761506%_ - _%tl11771509%_ - _%e11981374%_ - _%hd11991378%_ - _%tl12001381%_ - _%__splice18151816%_ - _%target12321283%_ - _%tl12341286%_) + (if (gx#stx-null? _%tl12191271%_) + (_%__match18941895%_ + _%e11571473%_ + _%hd11581477%_ + _%tl11591480%_ + _%e11601483%_ + _%hd11611487%_ + _%tl11621490%_ + _%e11831357%_ + _%hd11841361%_ + _%tl11851364%_ + _%__splice17941795%_ + _%target12171268%_ + _%tl12191271%_) (let () (declare (not safe)) - (_%g11691246%_))))) + (_%g11541231%_))))) (let () (declare (not safe)) - (_%g11691246%_)))) - (if (gx#stx-pair/null? _%tl11771509%_) - (let ((_%__splice18151816%_ + (_%g11541231%_)))) + (if (gx#stx-pair/null? _%tl11621490%_) + (let ((_%__splice17941795%_ (gx#syntax-split-splice->vector - _%tl11771509%_ + _%tl11621490%_ '0))) - (let ((_%tl12341286%_ + (let ((_%tl12191271%_ (let () (declare (not safe)) (##vector-ref - _%__splice18151816%_ + _%__splice17941795%_ '1))) - (_%target12321283%_ + (_%target12171268%_ (let () (declare (not safe)) (##vector-ref - _%__splice18151816%_ + _%__splice17941795%_ '0)))) - (if (gx#stx-null? _%tl12341286%_) - (_%__match19151916%_ - _%e11721492%_ - _%hd11731496%_ - _%tl11741499%_ - _%e11751502%_ - _%hd11761506%_ - _%tl11771509%_ - _%e11981374%_ - _%hd11991378%_ - _%tl12001381%_ - _%__splice18151816%_ - _%target12321283%_ - _%tl12341286%_) + (if (gx#stx-null? _%tl12191271%_) + (_%__match18941895%_ + _%e11571473%_ + _%hd11581477%_ + _%tl11591480%_ + _%e11601483%_ + _%hd11611487%_ + _%tl11621490%_ + _%e11831357%_ + _%hd11841361%_ + _%tl11851364%_ + _%__splice17941795%_ + _%target12171268%_ + _%tl12191271%_) (let () (declare (not safe)) - (_%g11691246%_))))) - (let () (declare (not safe)) (_%g11691246%_)))) - (if (gx#stx-pair/null? _%tl11771509%_) - (let ((_%__splice18151816%_ + (_%g11541231%_))))) + (let () (declare (not safe)) (_%g11541231%_)))) + (if (gx#stx-pair/null? _%tl11621490%_) + (let ((_%__splice17941795%_ (gx#syntax-split-splice->vector - _%tl11771509%_ + _%tl11621490%_ '0))) - (let ((_%tl12341286%_ + (let ((_%tl12191271%_ (let () (declare (not safe)) - (##vector-ref _%__splice18151816%_ '1))) - (_%target12321283%_ + (##vector-ref _%__splice17941795%_ '1))) + (_%target12171268%_ (let () (declare (not safe)) - (##vector-ref _%__splice18151816%_ '0)))) - (if (gx#stx-null? _%tl12341286%_) - (_%__match19151916%_ - _%e11721492%_ - _%hd11731496%_ - _%tl11741499%_ - _%e11751502%_ - _%hd11761506%_ - _%tl11771509%_ - _%e11981374%_ - _%hd11991378%_ - _%tl12001381%_ - _%__splice18151816%_ - _%target12321283%_ - _%tl12341286%_) + (##vector-ref _%__splice17941795%_ '0)))) + (if (gx#stx-null? _%tl12191271%_) + (_%__match18941895%_ + _%e11571473%_ + _%hd11581477%_ + _%tl11591480%_ + _%e11601483%_ + _%hd11611487%_ + _%tl11621490%_ + _%e11831357%_ + _%hd11841361%_ + _%tl11851364%_ + _%__splice17941795%_ + _%target12171268%_ + _%tl12191271%_) (let () (declare (not safe)) - (_%g11691246%_))))) - (let () (declare (not safe)) (_%g11691246%_)))))) - (if (gx#stx-pair/null? _%tl11771509%_) - (let ((_%__splice18151816%_ - (gx#syntax-split-splice->vector _%tl11771509%_ '0))) - (let ((_%tl12341286%_ + (_%g11541231%_))))) + (let () (declare (not safe)) (_%g11541231%_)))))) + (if (gx#stx-pair/null? _%tl11621490%_) + (let ((_%__splice17941795%_ + (gx#syntax-split-splice->vector _%tl11621490%_ '0))) + (let ((_%tl12191271%_ (let () (declare (not safe)) - (##vector-ref _%__splice18151816%_ '1))) - (_%target12321283%_ + (##vector-ref _%__splice17941795%_ '1))) + (_%target12171268%_ (let () (declare (not safe)) - (##vector-ref _%__splice18151816%_ '0)))) - (if (gx#stx-null? _%tl12341286%_) - (_%__match19151916%_ - _%e11721492%_ - _%hd11731496%_ - _%tl11741499%_ - _%e11751502%_ - _%hd11761506%_ - _%tl11771509%_ - _%e11981374%_ - _%hd11991378%_ - _%tl12001381%_ - _%__splice18151816%_ - _%target12321283%_ - _%tl12341286%_) - (let () (declare (not safe)) (_%g11691246%_))))) - (let () (declare (not safe)) (_%g11691246%_)))))) + (##vector-ref _%__splice17941795%_ '0)))) + (if (gx#stx-null? _%tl12191271%_) + (_%__match18941895%_ + _%e11571473%_ + _%hd11581477%_ + _%tl11591480%_ + _%e11601483%_ + _%hd11611487%_ + _%tl11621490%_ + _%e11831357%_ + _%hd11841361%_ + _%tl11851364%_ + _%__splice17941795%_ + _%target12171268%_ + _%tl12191271%_) + (let () (declare (not safe)) (_%g11541231%_))))) + (let () (declare (not safe)) (_%g11541231%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl11771509%_) - (let ((_%__splice18151816%_ + _%tl11621490%_) + (let ((_%__splice17941795%_ (gx#syntax-split-splice->vector - _%tl11771509%_ + _%tl11621490%_ '0))) - (let ((_%tl12341286%_ + (let ((_%tl12191271%_ (let () (declare (not safe)) (##vector-ref - _%__splice18151816%_ + _%__splice17941795%_ '1))) - (_%target12321283%_ + (_%target12171268%_ (let () (declare (not safe)) (##vector-ref - _%__splice18151816%_ + _%__splice17941795%_ '0)))) (if (gx#stx-null? - _%tl12341286%_) - (_%__match19151916%_ - _%e11721492%_ - _%hd11731496%_ - _%tl11741499%_ - _%e11751502%_ - _%hd11761506%_ - _%tl11771509%_ - _%e11981374%_ - _%hd11991378%_ - _%tl12001381%_ - _%__splice18151816%_ - _%target12321283%_ - _%tl12341286%_) + _%tl12191271%_) + (_%__match18941895%_ + _%e11571473%_ + _%hd11581477%_ + _%tl11591480%_ + _%e11601483%_ + _%hd11611487%_ + _%tl11621490%_ + _%e11831357%_ + _%hd11841361%_ + _%tl11851364%_ + _%__splice17941795%_ + _%target12171268%_ + _%tl12191271%_) (let () (declare (not safe)) - (_%g11691246%_))))) + (_%g11541231%_))))) (let () (declare (not safe)) - (_%g11691246%_)))))) + (_%g11541231%_)))))) (let () (declare (not safe)) - (_%g11691246%_)))))) - (let () (declare (not safe)) (_%g11691246%_))))) - (let () (declare (not safe)) (_%g11691246%_)))))))) + (_%g11541231%_)))))) + (let () (declare (not safe)) (_%g11541231%_))))) + (let () (declare (not safe)) (_%g11541231%_)))))))) (define |gerbil/core/expander~SyntaxSugar[:0:]#syntax/loc| - (lambda (_%stx1574%_) - (let* ((_%g15771595%_ - (lambda (_%g15781591%_) + (lambda (_%stx1553%_) + (let* ((_%g15561574%_ + (lambda (_%g15571570%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g15781591%_))) - (_%g15761650%_ - (lambda (_%g15781599%_) - (if (gx#stx-pair? _%g15781599%_) - (let ((_%e15811602%_ (gx#syntax-e _%g15781599%_))) - (let ((_%hd15821606%_ + _%g15571570%_))) + (_%g15551629%_ + (lambda (_%g15571578%_) + (if (gx#stx-pair? _%g15571578%_) + (let ((_%e15601581%_ (gx#syntax-e _%g15571578%_))) + (let ((_%hd15611585%_ (let () (declare (not safe)) - (##car _%e15811602%_))) - (_%tl15831609%_ + (##car _%e15601581%_))) + (_%tl15621588%_ (let () (declare (not safe)) - (##cdr _%e15811602%_)))) - (if (gx#stx-pair? _%tl15831609%_) - (let ((_%e15841612%_ - (gx#syntax-e _%tl15831609%_))) - (let ((_%hd15851616%_ + (##cdr _%e15601581%_)))) + (if (gx#stx-pair? _%tl15621588%_) + (let ((_%e15631591%_ + (gx#syntax-e _%tl15621588%_))) + (let ((_%hd15641595%_ (let () (declare (not safe)) - (##car _%e15841612%_))) - (_%tl15861619%_ + (##car _%e15631591%_))) + (_%tl15651598%_ (let () (declare (not safe)) - (##cdr _%e15841612%_)))) - (if (gx#stx-pair? _%tl15861619%_) - (let ((_%e15871622%_ - (gx#syntax-e _%tl15861619%_))) - (let ((_%hd15881626%_ + (##cdr _%e15631591%_)))) + (if (gx#stx-pair? _%tl15651598%_) + (let ((_%e15661601%_ + (gx#syntax-e _%tl15651598%_))) + (let ((_%hd15671605%_ (let () (declare (not safe)) - (##car _%e15871622%_))) - (_%tl15891629%_ + (##car _%e15661601%_))) + (_%tl15681608%_ (let () (declare (not safe)) - (##cdr _%e15871622%_)))) - (if (gx#stx-null? _%tl15891629%_) - ((lambda (_%L1632%_ _%L1634%_) + (##cdr _%e15661601%_)))) + (if (gx#stx-null? _%tl15681608%_) + ((lambda (_%g15581611%_ + _%g15591613%_) (cons (gx#datum->syntax '#f 'stx-wrap-source) @@ -1519,15 +1529,15 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'syntax) - (cons _%L1632%_ '())) + (cons _%g15581611%_ '())) (cons (cons (gx#datum->syntax '#f 'stx-source) - (cons _%L1634%_ '())) + (cons _%g15591613%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd15881626%_ - _%hd15851616%_) - (_%g15771595%_ _%g15781599%_)))) - (_%g15771595%_ _%g15781599%_)))) - (_%g15771595%_ _%g15781599%_)))) - (_%g15771595%_ _%g15781599%_))))) - (_%g15761650%_ _%stx1574%_)))))) + _%hd15671605%_ + _%hd15641595%_) + (_%g15561574%_ _%g15571578%_)))) + (_%g15561574%_ _%g15571578%_)))) + (_%g15561574%_ _%g15571578%_)))) + (_%g15561574%_ _%g15571578%_))))) + (_%g15551629%_ _%stx1553%_)))))) diff --git a/src/bootstrap/gerbil/core/macro-object~0.scm b/src/bootstrap/gerbil/core/macro-object~0.scm index 433c3c93d7..89b90ba609 100644 --- a/src/bootstrap/gerbil/core/macro-object~0.scm +++ b/src/bootstrap/gerbil/core/macro-object~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/macro-object::timestamp 1756721289) + (define gerbil/core/macro-object::timestamp 1769384622) (begin (define gerbil/core/macro-object#macro-object::t (make-class-type @@ -13,10 +13,10 @@ (define gerbil/core/macro-object#macro-object? (make-class-predicate gerbil/core/macro-object#macro-object::t)) (define gerbil/core/macro-object#make-macro-object - (lambda _%$args27780%_ + (lambda _%$args27697%_ (apply make-instance gerbil/core/macro-object#macro-object::t - _%$args27780%_))) + _%$args27697%_))) (define gerbil/core/macro-object#macro-object-macro (make-class-slot-accessor gerbil/core/macro-object#macro-object::t @@ -34,33 +34,33 @@ gerbil/core/macro-object#macro-object::t 'macro)) (define gerbil/core/macro-object#macro-object::apply-macro-expander - (lambda (_%self27777%_ _%stx27778%_) + (lambda (_%self27694%_ _%stx27695%_) (gx#core-apply-expander - (let ((__obj27787 _%self27777%_)) + (let ((__obj27704 _%self27694%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27787 + __obj27704 'gerbil.core#macro-object::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj27787 '1 '#f '#f)) + (##unchecked-structure-ref __obj27704 '1 '#f '#f)) (class-slot-ref gerbil/core/macro-object#macro-object::t - __obj27787 + __obj27704 'macro))) - _%stx27778%_))) + _%stx27695%_))) (define gerbil/core/macro-object#macro-object::apply-macro-expander::specialize - (lambda (__klass27782 __method-table27783) - (let ((__macro27784 - (let ((__slot27785 (class-slot-offset __klass27782 'macro))) - (if __slot27785 __slot27785 (error '"Unknown slot" 'macro))))) - (lambda (_%self27777%_ _%stx27778%_) + (lambda (__klass27699 __method-table27700) + (let ((__macro27701 + (let ((__slot27702 (class-slot-offset __klass27699 'macro))) + (if __slot27702 __slot27702 (error '"Unknown slot" 'macro))))) + (lambda (_%self27694%_ _%stx27695%_) (gx#core-apply-expander (let () (declare (not safe)) - (##unchecked-structure-ref _%self27777%_ __macro27784 '#f '#f)) - _%stx27778%_))))) + (##unchecked-structure-ref _%self27694%_ __macro27701 '#f '#f)) + _%stx27695%_))))) (bind-specializer! gerbil/core/macro-object#macro-object::apply-macro-expander gerbil/core/macro-object#macro-object::apply-macro-expander::specialize) diff --git a/src/bootstrap/gerbil/core/macro-object~1.scm b/src/bootstrap/gerbil/core/macro-object~1.scm index 03748f3e2e..7893f8c38b 100644 --- a/src/bootstrap/gerbil/core/macro-object~1.scm +++ b/src/bootstrap/gerbil/core/macro-object~1.scm @@ -1,48 +1,48 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/macro-object[1]#_g27789_| + (define |gerbil/core/macro-object[1]#_g27706_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27791_| + (define |gerbil/core/macro-object[1]#_g27708_| (##structure gx#syntax-quote::t 'make-macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27793_| + (define |gerbil/core/macro-object[1]#_g27710_| (##structure gx#syntax-quote::t 'macro-object? #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27795_| + (define |gerbil/core/macro-object[1]#_g27712_| (##structure gx#syntax-quote::t 'macro-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27797_| + (define |gerbil/core/macro-object[1]#_g27714_| (##structure gx#syntax-quote::t 'macro-object-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27799_| + (define |gerbil/core/macro-object[1]#_g27716_| (##structure gx#syntax-quote::t '¯o-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27801_| + (define |gerbil/core/macro-object[1]#_g27718_| (##structure gx#syntax-quote::t '¯o-object-macro-set! @@ -50,7 +50,7 @@ (gx#current-expander-context) '())) (define |gerbil/core/macro-object[:0:]#macro-object| - (let ((__obj27786 + (let ((__obj27703 (let () (declare (not safe)) (##structure @@ -79,55 +79,55 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27786 + __obj27703 'gerbil.core#macro-object::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27786 'macro-object '2 '#f '#f)) + (##unchecked-structure-set! __obj27703 'macro-object '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27786 '(macro) '4 '#f '#f)) + (##unchecked-structure-set! __obj27703 '(macro) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27786 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj27703 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27786 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj27703 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27786 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj27703 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27786 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj27703 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27786 '#f '11 '#f '#f)) - (let ((__tmp27788 |gerbil/core/macro-object[1]#_g27789_|)) + (##unchecked-structure-set! __obj27703 '#f '12 '#f '#f)) + (let ((__tmp27705 |gerbil/core/macro-object[1]#_g27706_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27786 __tmp27788 '12 '#f '#f)) - (let ((__tmp27790 |gerbil/core/macro-object[1]#_g27791_|)) + (##unchecked-structure-set! __obj27703 __tmp27705 '3 '#f '#f)) + (let ((__tmp27707 |gerbil/core/macro-object[1]#_g27708_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27786 __tmp27790 '13 '#f '#f)) - (let ((__tmp27792 |gerbil/core/macro-object[1]#_g27793_|)) + (##unchecked-structure-set! __obj27703 __tmp27707 '13 '#f '#f)) + (let ((__tmp27709 |gerbil/core/macro-object[1]#_g27710_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27786 __tmp27792 '14 '#f '#f)) - (let ((__tmp27794 - (cons (cons 'macro |gerbil/core/macro-object[1]#_g27795_|) '()))) + (##unchecked-structure-set! __obj27703 __tmp27709 '14 '#f '#f)) + (let ((__tmp27711 + (cons (cons 'macro |gerbil/core/macro-object[1]#_g27712_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27786 __tmp27794 '15 '#f '#f)) - (let ((__tmp27796 - (cons (cons 'macro |gerbil/core/macro-object[1]#_g27797_|) '()))) + (##unchecked-structure-set! __obj27703 __tmp27711 '15 '#f '#f)) + (let ((__tmp27713 + (cons (cons 'macro |gerbil/core/macro-object[1]#_g27714_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27786 __tmp27796 '16 '#f '#f)) - (let ((__tmp27798 - (cons (cons 'macro |gerbil/core/macro-object[1]#_g27799_|) '()))) + (##unchecked-structure-set! __obj27703 __tmp27713 '16 '#f '#f)) + (let ((__tmp27715 + (cons (cons 'macro |gerbil/core/macro-object[1]#_g27716_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27786 __tmp27798 '17 '#f '#f)) - (let ((__tmp27800 - (cons (cons 'macro |gerbil/core/macro-object[1]#_g27801_|) '()))) + (##unchecked-structure-set! __obj27703 __tmp27715 '17 '#f '#f)) + (let ((__tmp27717 + (cons (cons 'macro |gerbil/core/macro-object[1]#_g27718_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27786 __tmp27800 '18 '#f '#f)) - __obj27786))) + (##unchecked-structure-set! __obj27703 __tmp27717 '18 '#f '#f)) + __obj27703))) diff --git a/src/bootstrap/gerbil/core/match~1.scm b/src/bootstrap/gerbil/core/match~1.scm index 43d9da6189..ef26abe75d 100644 --- a/src/bootstrap/gerbil/core/match~1.scm +++ b/src/bootstrap/gerbil/core/match~1.scm @@ -1,107 +1,107 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/match[1]#_g39849_| + (define |gerbil/core/match[1]#_g39730_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39850_| + (define |gerbil/core/match[1]#_g39731_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39851_| + (define |gerbil/core/match[1]#_g39732_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39852_| + (define |gerbil/core/match[1]#_g39733_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39853_| + (define |gerbil/core/match[1]#_g39734_| (##structure gx#syntax-quote::t 'apply #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39854_| + (define |gerbil/core/match[1]#_g39735_| (##structure gx#syntax-quote::t '? #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39855_| + (define |gerbil/core/match[1]#_g39736_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39856_| + (define |gerbil/core/match[1]#_g39737_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39857_| + (define |gerbil/core/match[1]#_g39738_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39858_| + (define |gerbil/core/match[1]#_g39739_| (##structure gx#syntax-quote::t 'cons #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39859_| + (define |gerbil/core/match[1]#_g39740_| (##structure gx#syntax-quote::t 'cons* #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39860_| + (define |gerbil/core/match[1]#_g39741_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39861_| + (define |gerbil/core/match[1]#_g39742_| (##structure gx#syntax-quote::t 'box #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39862_| + (define |gerbil/core/match[1]#_g39743_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39863_| + (define |gerbil/core/match[1]#_g39744_| (##structure gx#syntax-quote::t 'vector #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39876_| + (define |gerbil/core/match[1]#_g39757_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39884_| + (define |gerbil/core/match[1]#_g39765_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39885_| + (define |gerbil/core/match[1]#_g39766_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39886_| + (define |gerbil/core/match[1]#_g39767_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39891_| + (define |gerbil/core/match[1]#_g39772_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39892_| + (define |gerbil/core/match[1]#_g39773_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39893_| + (define |gerbil/core/match[1]#_g39774_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39894_| + (define |gerbil/core/match[1]#_g39775_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39895_| + (define |gerbil/core/match[1]#_g39776_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) (begin (define |gerbil/core/match[1]#match-macro::t| @@ -115,10 +115,10 @@ (define |gerbil/core/match[1]#match-macro?| (make-class-predicate |gerbil/core/match[1]#match-macro::t|)) (define |gerbil/core/match[1]#make-match-macro| - (lambda _%$args35148%_ + (lambda _%$args35051%_ (apply make-instance |gerbil/core/match[1]#match-macro::t| - _%$args35148%_))) + _%$args35051%_))) (define |gerbil/core/match[1]#match-macro-macro| (make-class-slot-accessor |gerbil/core/match[1]#match-macro::t| 'macro)) (define |gerbil/core/match[1]#match-macro-macro-set!| @@ -132,4551 +132,4608 @@ |gerbil/core/match[1]#match-macro::t| 'macro)) (define |gerbil/core/match[1]#syntax-local-match-macro?| - (lambda (_%stx35145%_) - (if (gx#identifier? _%stx35145%_) - (let ((__tmp39848 (gx#syntax-local-value _%stx35145%_ false))) + (lambda (_%stx35048%_) + (if (gx#identifier? _%stx35048%_) + (let ((__tmp39729 (gx#syntax-local-value _%stx35048%_ false))) (declare (not safe)) (class-instance? |gerbil/core/match[1]#match-macro::t| - __tmp39848)) + __tmp39729)) '#f))) (define |gerbil/core/match[1]#parse-match-pattern__%| - (lambda (_%stx33445%_ _%match-stx33447%_) - (letrec ((_%parse133449%_ - (lambda (_%hd33808%_) - (let* ((_%__stx3763637637%_ _%hd33808%_) - (_%g3383433976%_ + (lambda (_%stx33350%_ _%match-stx33352%_) + (letrec ((_%parse133354%_ + (lambda (_%hd33713%_) + (let* ((_%__stx3751737518%_ _%hd33713%_) + (_%g3373933881%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3763637637%_)))) - (let ((_%__kont3763937640%_ - (lambda (_%L34908%_ _%L34910%_) - (let* ((_%__stx3755637557%_ _%L34908%_) - (_%g3492734960%_ + _%__stx3751737518%_)))) + (let ((_%__kont3752037521%_ + (lambda (_%g3374134811%_ _%g3374234813%_) + (let* ((_%__stx3743737438%_ _%g3374134811%_) + (_%g3483034863%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3755637557%_)))) - (let ((_%__kont3755937560%_ + _%__stx3743737438%_)))) + (let ((_%__kont3744037441%_ (lambda () - (cons '?: (cons _%L34910%_ '())))) - (_%__kont3756137562%_ - (lambda (_%L35101%_) (cons '?: - (cons _%L34910%_ - (cons (_%parse133449%_ - _%L35101%_) + (cons _%g3374234813%_ '())))) + (_%__kont3744237443%_ + (lambda (_%g3483235004%_) + (cons '?: + (cons _%g3374234813%_ + (cons (_%parse133354%_ + _%g3483235004%_) '()))))) - (_%__kont3756337564%_ - (lambda (_%L35071%_) + (_%__kont3744437445%_ + (lambda (_%g3483634974%_) (cons '?: - (cons _%L34910%_ + (cons _%g3374234813%_ (cons '=>: - (cons (_%parse133449%_ + (cons (_%parse133354%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L35071%_) + _%g3483634974%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3756537566%_ - (lambda (_%L35022%_ _%L35024%_) + (_%__kont3744637447%_ + (lambda (_%g3484334925%_ + _%g3484434927%_) (cons '?: - (cons _%L34910%_ + (cons _%g3374234813%_ (cons ':: - (cons _%L35024%_ + (cons _%g3484434927%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '=>: - (cons (_%parse133449%_ _%L35022%_) '())))))))) + (cons (_%parse133354%_ _%g3484334925%_) + '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3756737568%_ + (_%__kont3744837449%_ (lambda () - (_%parse-error33456%_ _%hd33808%_)))) - (let ((_%g3492335112%_ + (_%parse-error33361%_ _%hd33713%_)))) + (let ((_%g3482635015%_ (lambda () (if (gx#stx-pair? - _%__stx3755637557%_) - (let ((_%e3493035091%_ + _%__stx3743737438%_) + (let ((_%e3483334994%_ (gx#syntax-e - _%__stx3755637557%_))) - (let ((_%tl3493235098%_ + _%__stx3743737438%_))) + (let ((_%tl3483535001%_ (let () (declare (not safe)) - (##cdr _%e3493035091%_))) - (_%hd3493135095%_ + (##cdr _%e3483334994%_))) + (_%hd3483434998%_ (let () (declare (not safe)) - (##car _%e3493035091%_)))) + (##car _%e3483334994%_)))) (if (gx#stx-null? - _%tl3493235098%_) - (_%__kont3756137562%_ - _%hd3493135095%_) + _%tl3483535001%_) + (_%__kont3744237443%_ + _%hd3483434998%_) (if (gx#identifier? - _%hd3493135095%_) + _%hd3483434998%_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/match[1]#_g39849_| - _%hd3493135095%_) - (if (gx#stx-pair? _%tl3493235098%_) - (let ((_%e3493735061%_ - (gx#syntax-e _%tl3493235098%_))) - (let ((_%tl3493935068%_ + |gerbil/core/match[1]#_g39730_| + _%hd3483434998%_) + (if (gx#stx-pair? _%tl3483535001%_) + (let ((_%e3484034964%_ + (gx#syntax-e _%tl3483535001%_))) + (let ((_%tl3484234971%_ (let () (declare (not safe)) - (##cdr _%e3493735061%_))) - (_%hd3493835065%_ + (##cdr _%e3484034964%_))) + (_%hd3484134968%_ (let () (declare (not safe)) - (##car _%e3493735061%_)))) - (if (gx#stx-null? _%tl3493935068%_) - (_%__kont3756337564%_ _%hd3493835065%_) - (_%__kont3756737568%_)))) - (_%__kont3756737568%_)) - (_%__kont3756737568%_)) - (if (gx#stx-datum? _%hd3493135095%_) - (let ((_%e3494534988%_ (gx#stx-e _%hd3493135095%_))) - (if (equal? _%e3494534988%_ '::) - (if (gx#stx-pair? _%tl3493235098%_) - (let ((_%e3494634992%_ - (gx#syntax-e _%tl3493235098%_))) - (let ((_%tl3494834999%_ + (##car _%e3484034964%_)))) + (if (gx#stx-null? _%tl3484234971%_) + (_%__kont3744437445%_ _%hd3484134968%_) + (_%__kont3744837449%_)))) + (_%__kont3744837449%_)) + (_%__kont3744837449%_)) + (if (gx#stx-datum? _%hd3483434998%_) + (let ((_%e3484834891%_ (gx#stx-e _%hd3483434998%_))) + (if (equal? _%e3484834891%_ '::) + (if (gx#stx-pair? _%tl3483535001%_) + (let ((_%e3484934895%_ + (gx#syntax-e _%tl3483535001%_))) + (let ((_%tl3485134902%_ (let () (declare (not safe)) - (##cdr _%e3494634992%_))) - (_%hd3494734996%_ + (##cdr _%e3484934895%_))) + (_%hd3485034899%_ (let () (declare (not safe)) - (##car _%e3494634992%_)))) - (if (gx#stx-pair? _%tl3494834999%_) - (let ((_%e3494935002%_ + (##car _%e3484934895%_)))) + (if (gx#stx-pair? _%tl3485134902%_) + (let ((_%e3485234905%_ (gx#syntax-e - _%tl3494834999%_))) - (let ((_%tl3495135009%_ + _%tl3485134902%_))) + (let ((_%tl3485434912%_ (let () (declare (not safe)) - (##cdr _%e3494935002%_))) - (_%hd3495035006%_ + (##cdr _%e3485234905%_))) + (_%hd3485334909%_ (let () (declare (not safe)) - (##car _%e3494935002%_)))) + (##car _%e3485234905%_)))) (if (gx#identifier? - _%hd3495035006%_) + _%hd3485334909%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39850_| - _%hd3495035006%_) + |gerbil/core/match[1]#_g39731_| + _%hd3485334909%_) (if (gx#stx-pair? - _%tl3495135009%_) - (let ((_%e3495235012%_ + _%tl3485434912%_) + (let ((_%e3485534915%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3495135009%_))) - (let ((_%tl3495435019%_ + (gx#syntax-e _%tl3485434912%_))) + (let ((_%tl3485734922%_ (let () (declare (not safe)) - (##cdr _%e3495235012%_))) - (_%hd3495335016%_ + (##cdr _%e3485534915%_))) + (_%hd3485634919%_ (let () (declare (not safe)) - (##car _%e3495235012%_)))) - (if (gx#stx-null? _%tl3495435019%_) - (_%__kont3756537566%_ - _%hd3495335016%_ - _%hd3494734996%_) - (_%__kont3756737568%_)))) - (_%__kont3756737568%_)) - (_%__kont3756737568%_)) + (##car _%e3485534915%_)))) + (if (gx#stx-null? _%tl3485734922%_) + (_%__kont3744637447%_ + _%hd3485634919%_ + _%hd3485034899%_) + (_%__kont3744837449%_)))) + (_%__kont3744837449%_)) + (_%__kont3744837449%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3756737568%_)))) - (_%__kont3756737568%_)))) - (_%__kont3756737568%_)) - (_%__kont3756737568%_))) - (_%__kont3756737568%_)))))) + (_%__kont3744837449%_)))) + (_%__kont3744837449%_)))) + (_%__kont3744837449%_)) + (_%__kont3744837449%_))) + (_%__kont3744837449%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3756737568%_))))) - (if (gx#stx-null? _%__stx3755637557%_) - (_%__kont3755937560%_) + (_%__kont3744837449%_))))) + (if (gx#stx-null? _%__stx3743737438%_) + (_%__kont3744037441%_) (let () (declare (not safe)) - (_%g3492335112%_)))))))) - (_%__kont3764137642%_ - (lambda (_%L34813%_) - (let* ((_%__stx3753837539%_ _%L34813%_) - (_%g3482534836%_ + (_%g3482635015%_)))))))) + (_%__kont3752237523%_ + (lambda (_%g3374934716%_) + (let* ((_%__stx3741937420%_ _%g3374934716%_) + (_%g3472834739%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3753837539%_)))) - (let ((_%__kont3754137542%_ - (lambda (_%L34864%_) - (_%parse133449%_ _%L34864%_))) - (_%__kont3754337544%_ + _%__stx3741937420%_)))) + (let ((_%__kont3742237423%_ + (lambda (_%g3473034767%_) + (_%parse133354%_ _%g3473034767%_))) + (_%__kont3742437425%_ (lambda () (cons 'and: (gx#stx-map - _%parse133449%_ - _%L34813%_))))) - (if (gx#stx-pair? _%__stx3753837539%_) - (let ((_%e3482834854%_ + _%parse133354%_ + _%g3374934716%_))))) + (if (gx#stx-pair? _%__stx3741937420%_) + (let ((_%e3473134757%_ (gx#syntax-e - _%__stx3753837539%_))) - (let ((_%tl3483034861%_ + _%__stx3741937420%_))) + (let ((_%tl3473334764%_ (let () (declare (not safe)) - (##cdr _%e3482834854%_))) - (_%hd3482934858%_ + (##cdr _%e3473134757%_))) + (_%hd3473234761%_ (let () (declare (not safe)) - (##car _%e3482834854%_)))) - (if (gx#stx-null? _%tl3483034861%_) - (_%__kont3754137542%_ - _%hd3482934858%_) - (_%__kont3754337544%_)))) - (_%__kont3754337544%_)))))) - (_%__kont3764337644%_ - (lambda (_%L34728%_) - (let* ((_%__stx3752037521%_ _%L34728%_) - (_%g3474034751%_ + (##car _%e3473134757%_)))) + (if (gx#stx-null? _%tl3473334764%_) + (_%__kont3742237423%_ + _%hd3473234761%_) + (_%__kont3742437425%_)))) + (_%__kont3742437425%_)))))) + (_%__kont3752437525%_ + (lambda (_%g3375334631%_) + (let* ((_%__stx3740137402%_ _%g3375334631%_) + (_%g3464334654%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3752037521%_)))) - (let ((_%__kont3752337524%_ - (lambda (_%L34779%_) - (_%parse133449%_ _%L34779%_))) - (_%__kont3752537526%_ + _%__stx3740137402%_)))) + (let ((_%__kont3740437405%_ + (lambda (_%g3464534682%_) + (_%parse133354%_ _%g3464534682%_))) + (_%__kont3740637407%_ (lambda () (cons 'or: (gx#stx-map - _%parse133449%_ - _%L34728%_))))) - (if (gx#stx-pair? _%__stx3752037521%_) - (let ((_%e3474334769%_ + _%parse133354%_ + _%g3375334631%_))))) + (if (gx#stx-pair? _%__stx3740137402%_) + (let ((_%e3464634672%_ (gx#syntax-e - _%__stx3752037521%_))) - (let ((_%tl3474534776%_ + _%__stx3740137402%_))) + (let ((_%tl3464834679%_ (let () (declare (not safe)) - (##cdr _%e3474334769%_))) - (_%hd3474434773%_ + (##cdr _%e3464634672%_))) + (_%hd3464734676%_ (let () (declare (not safe)) - (##car _%e3474334769%_)))) - (if (gx#stx-null? _%tl3474534776%_) - (_%__kont3752337524%_ - _%hd3474434773%_) - (_%__kont3752537526%_)))) - (_%__kont3752537526%_)))))) - (_%__kont3764537646%_ - (lambda (_%L34698%_) + (##car _%e3464634672%_)))) + (if (gx#stx-null? _%tl3464834679%_) + (_%__kont3740437405%_ + _%hd3464734676%_) + (_%__kont3740637407%_)))) + (_%__kont3740637407%_)))))) + (_%__kont3752637527%_ + (lambda (_%g3375734601%_) (cons 'not: - (cons (_%parse133449%_ _%L34698%_) '())))) - (_%__kont3764737648%_ - (lambda (_%L34654%_ _%L34656%_) + (cons (_%parse133354%_ _%g3375734601%_) + '())))) + (_%__kont3752837529%_ + (lambda (_%g3376434557%_ _%g3376534559%_) (cons 'cons: - (cons (_%parse133449%_ _%L34656%_) - (cons (_%parse133449%_ _%L34654%_) + (cons (_%parse133354%_ _%g3376534559%_) + (cons (_%parse133354%_ + _%g3376434557%_) '()))))) - (_%__kont3764937650%_ - (lambda (_%L34598%_ _%L34600%_ _%L34601%_) - (if (gx#stx-null? _%L34598%_) + (_%__kont3753037531%_ + (lambda (_%g3377534501%_ + _%g3377634503%_ + _%g3377734504%_) + (if (gx#stx-null? _%g3377534501%_) (cons 'cons: - (cons (_%parse133449%_ _%L34601%_) - (cons (_%parse133449%_ - _%L34600%_) + (cons (_%parse133354%_ + _%g3377734504%_) + (cons (_%parse133354%_ + _%g3377634503%_) '()))) (cons 'cons: - (cons (_%parse133449%_ _%L34601%_) - (cons (_%parse133449%_ + (cons (_%parse133354%_ + _%g3377734504%_) + (cons (_%parse133354%_ (cons (gx#datum->syntax '#f 'cons*) - (cons _%L34600%_ + (cons _%g3377634503%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L34598%_))) + _%g3377534501%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont3765137652%_ - (lambda (_%L34550%_) - (_%parse-list33451%_ _%L34550%_))) - (_%__kont3765337654%_ - (lambda (_%L34520%_) + (_%__kont3753237533%_ + (lambda (_%g3378734453%_) + (_%parse-list33356%_ _%g3378734453%_))) + (_%__kont3753437535%_ + (lambda (_%g3379134423%_) (cons 'box: - (cons (_%parse133449%_ _%L34520%_) '())))) - (_%__kont3765537656%_ - (lambda (_%L34483%_) + (cons (_%parse133354%_ _%g3379134423%_) + '())))) + (_%__kont3753637537%_ + (lambda (_%g3379834386%_) (cons 'box: - (cons (_%parse133449%_ _%L34483%_) '())))) - (_%__kont3765737658%_ - (lambda (_%L34459%_) - (_%parse133449%_ _%L34459%_))) - (_%__kont3765937660%_ - (lambda (_%L34421%_) + (cons (_%parse133354%_ _%g3379834386%_) + '())))) + (_%__kont3753837539%_ + (lambda (_%g3380034362%_) + (_%parse133354%_ _%g3380034362%_))) + (_%__kont3754037541%_ + (lambda (_%g3380734324%_) (cons 'values: - (cons (_%parse-vector33452%_ _%L34421%_) + (cons (_%parse-vector33357%_ + _%g3380734324%_) '())))) - (_%__kont3766137662%_ - (lambda (_%L34393%_) + (_%__kont3754237543%_ + (lambda (_%g3381134296%_) (cons 'vector: - (cons (_%parse-vector33452%_ _%L34393%_) + (cons (_%parse-vector33357%_ + _%g3381134296%_) '())))) - (_%__kont3766337664%_ - (lambda (_%L34354%_) + (_%__kont3754437545%_ + (lambda (_%g3381534257%_) (cons 'vector: - (cons (_%parse-vector33452%_ - (foldr (lambda (_%g3436734370%_ - _%g3436834373%_) - (cons _%g3436734370%_ - _%g3436834373%_)) + (cons (_%parse-vector33357%_ + (foldr (lambda (_%g3427034273%_ + _%g3427134276%_) + (cons _%g3427034273%_ + _%g3427134276%_)) '() - _%L34354%_)) + _%g3381534257%_)) '())))) - (_%__kont3766737668%_ - (lambda (_%L34300%_ _%L34302%_) + (_%__kont3754837549%_ + (lambda (_%g3382634205%_ _%g3382734207%_) (cons 'struct: - (cons (gx#syntax-local-value _%L34302%_) - (cons (_%parse-vector33452%_ - _%L34300%_) + (cons (gx#syntax-local-value + _%g3382734207%_) + (cons (_%parse-vector33357%_ + _%g3382634205%_) '()))))) - (_%__kont3766937670%_ - (lambda (_%L34270%_ _%L34272%_) + (_%__kont3755037551%_ + (lambda (_%g3383134175%_ _%g3383234177%_) (cons 'class: - (cons (gx#syntax-local-value _%L34272%_) - (cons (_%parse-class-body33454%_ - _%L34270%_) + (cons (gx#syntax-local-value + _%g3383234177%_) + (cons (_%parse-class-body33359%_ + _%g3383134175%_) '()))))) - (_%__kont3767137672%_ - (lambda (_%L34230%_ _%L34232%_) + (_%__kont3755237553%_ + (lambda (_%g3383634135%_ _%g3383734137%_) (cons '?: (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L34232%_ + (cons _%g3383734137%_ (cons (gx#datum->syntax '#f '<>) - (cons _%L34230%_ + (cons _%g3383634135%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (_%__kont3767337674%_ - (lambda (_%L34190%_) + (_%__kont3755437555%_ + (lambda (_%g3384434095%_) (cons 'datum: - (cons (gx#stx-e _%L34190%_) '())))) - (_%__kont3767537676%_ - (lambda (_%L34150%_) - (_%parse-qq33455%_ _%L34150%_))) - (_%__kont3767737678%_ - (lambda (_%L34106%_ _%L34108%_) + (cons (gx#stx-e _%g3384434095%_) '())))) + (_%__kont3755637557%_ + (lambda (_%g3385134055%_) + (_%parse-qq33360%_ _%g3385134055%_))) + (_%__kont3755837559%_ + (lambda (_%g3385834011%_ _%g3385934013%_) (cons 'apply: - (cons _%L34108%_ - (cons (_%parse133449%_ _%L34106%_) + (cons _%g3385934013%_ + (cons (_%parse133354%_ + _%g3385834011%_) '()))))) - (_%__kont3767937680%_ - (lambda (_%L34054%_) - (_%parse133449%_ + (_%__kont3756037561%_ + (lambda (_%g3386933959%_) + (_%parse133354%_ (gx#core-apply-expander - (gx#syntax-local-e _%L34054%_) + (gx#syntax-local-e _%g3386933959%_) (gx#stx-wrap-source - (cons 'match: _%hd33808%_) - (let ((_%$e34065%_ - (gx#stx-source _%hd33808%_))) - (if _%$e34065%_ - _%$e34065%_ - (gx#stx-source _%stx33445%_)))))))) - (_%__kont3768137682%_ - (lambda (_%L34028%_) (cons 'any: '()))) - (_%__kont3768337684%_ - (lambda (_%L34012%_) - (cons 'var: (cons _%L34012%_ '())))) - (_%__kont3768537686%_ - (lambda (_%L33994%_) + (cons 'match: _%hd33713%_) + (let ((_%$e33970%_ + (gx#stx-source _%hd33713%_))) + (if _%$e33970%_ + _%$e33970%_ + (gx#stx-source _%stx33350%_)))))))) + (_%__kont3756237563%_ + (lambda (_%g3387333933%_) (cons 'any: '()))) + (_%__kont3756437565%_ + (lambda (_%g3387433917%_) + (cons 'var: (cons _%g3387433917%_ '())))) + (_%__kont3756637567%_ + (lambda (_%g3387533899%_) (cons 'datum: - (cons (gx#stx-e _%L33994%_) '())))) - (_%__kont3768737688%_ - (lambda () (_%parse-error33456%_ _%hd33808%_)))) - (let* ((_%g3383234005%_ + (cons (gx#stx-e _%g3387533899%_) '())))) + (_%__kont3756837569%_ + (lambda () (_%parse-error33361%_ _%hd33713%_)))) + (let* ((_%g3373733910%_ (lambda () - (let ((_%L33994%_ _%__stx3763637637%_)) - (if (gx#stx-datum? _%L33994%_) - (_%__kont3768537686%_ _%L33994%_) - (_%__kont3768737688%_))))) - (_%g3383134021%_ + (let ((_%g3387533899%_ _%__stx3751737518%_)) + (if (gx#stx-datum? _%g3387533899%_) + (_%__kont3756637567%_ _%g3387533899%_) + (_%__kont3756837569%_))))) + (_%g3373633926%_ (lambda () - (let ((_%L34012%_ _%__stx3763637637%_)) - (if (and (gx#identifier? _%L34012%_) - (not (gx#ellipsis? _%L34012%_))) - (_%__kont3768337684%_ _%L34012%_) + (let ((_%g3387433917%_ _%__stx3751737518%_)) + (if (and (gx#identifier? _%g3387433917%_) + (not (gx#ellipsis? + _%g3387433917%_))) + (_%__kont3756437565%_ _%g3387433917%_) (let () (declare (not safe)) - (_%g3383234005%_)))))) - (_%g3383034037%_ + (_%g3373733910%_)))))) + (_%g3373533942%_ (lambda () - (let ((_%L34028%_ _%__stx3763637637%_)) - (if (gx#underscore? _%L34028%_) - (_%__kont3768137682%_ _%L34028%_) + (let ((_%g3387333933%_ _%__stx3751737518%_)) + (if (gx#underscore? _%g3387333933%_) + (_%__kont3756237563%_ _%g3387333933%_) (let () (declare (not safe)) - (_%g3383134021%_)))))) - (_%__match3796337964%_ - (lambda (_%e3396534044%_ - _%hd3396634048%_ - _%tl3396734051%_) - (let ((_%L34054%_ _%hd3396634048%_)) + (_%g3373633926%_)))))) + (_%__match3784437845%_ + (lambda (_%e3387033949%_ + _%hd3387133953%_ + _%tl3387233956%_) + (let ((_%g3386933959%_ _%hd3387133953%_)) (if (|gerbil/core/match[1]#syntax-local-match-macro?| - _%L34054%_) - (_%__kont3767937680%_ _%L34054%_) + _%g3386933959%_) + (_%__kont3756037561%_ _%g3386933959%_) (let () (declare (not safe)) - (_%g3383034037%_)))))) - (_%__match3789737898%_ - (lambda (_%e3393334210%_ - _%hd3393434214%_ - _%tl3393534217%_ - _%e3393634220%_ - _%hd3393734224%_ - _%tl3393834227%_) - (let ((_%L34230%_ _%hd3393734224%_) - (_%L34232%_ _%hd3393434214%_)) - (if (and (gx#identifier? _%L34232%_) + (_%g3373533942%_)))))) + (_%__match3777837779%_ + (lambda (_%e3383834115%_ + _%hd3383934119%_ + _%tl3384034122%_ + _%e3384134125%_ + _%hd3384234129%_ + _%tl3384334132%_) + (let ((_%g3383634135%_ _%hd3384234129%_) + (_%g3383734137%_ _%hd3383934119%_)) + (if (and (gx#identifier? _%g3383734137%_) (or (gx#free-identifier=? - _%L34232%_ + _%g3383734137%_ (gx#datum->syntax '#f 'eq?)) (gx#free-identifier=? - _%L34232%_ + _%g3383734137%_ (gx#datum->syntax '#f 'eqv?)) (gx#free-identifier=? - _%L34232%_ + _%g3383734137%_ (gx#datum->syntax '#f 'equal?)))) - (_%__kont3767137672%_ - _%L34230%_ - _%L34232%_) - (if (gx#identifier? _%hd3393434214%_) + (_%__kont3755237553%_ + _%g3383634135%_ + _%g3383734137%_) + (if (gx#identifier? _%hd3383934119%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39851_| - _%hd3393434214%_) - (_%__kont3767337674%_ - _%hd3393734224%_) + |gerbil/core/match[1]#_g39732_| + _%hd3383934119%_) + (_%__kont3755437555%_ + _%hd3384234129%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39852_| - _%hd3393434214%_) - (_%__kont3767537676%_ - _%hd3393734224%_) - (_%__match3796337964%_ - _%e3393334210%_ - _%hd3393434214%_ - _%tl3393534217%_))) - (_%__match3796337964%_ - _%e3393334210%_ - _%hd3393434214%_ - _%tl3393534217%_)))))) - (_%__match3788337884%_ - (lambda (_%e3392834260%_ - _%hd3392934264%_ - _%tl3393034267%_) - (let ((_%L34270%_ _%tl3393034267%_) - (_%L34272%_ _%hd3392934264%_)) + |gerbil/core/match[1]#_g39733_| + _%hd3383934119%_) + (_%__kont3755637557%_ + _%hd3384234129%_) + (_%__match3784437845%_ + _%e3383834115%_ + _%hd3383934119%_ + _%tl3384034122%_))) + (_%__match3784437845%_ + _%e3383834115%_ + _%hd3383934119%_ + _%tl3384034122%_)))))) + (_%__match3776437765%_ + (lambda (_%e3383334165%_ + _%hd3383434169%_ + _%tl3383534172%_) + (let ((_%g3383134175%_ _%tl3383534172%_) + (_%g3383234177%_ _%hd3383434169%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L34272%_)) - (_%__kont3766937670%_ - _%L34270%_ - _%L34272%_) - (if (gx#stx-pair? _%tl3393034267%_) - (let ((_%e3393634220%_ + _%g3383234177%_)) + (_%__kont3755037551%_ + _%g3383134175%_ + _%g3383234177%_) + (if (gx#stx-pair? _%tl3383534172%_) + (let ((_%e3384134125%_ (gx#syntax-e - _%tl3393034267%_))) - (let ((_%tl3393834227%_ + _%tl3383534172%_))) + (let ((_%tl3384334132%_ (let () (declare (not safe)) - (##cdr _%e3393634220%_))) - (_%hd3393734224%_ + (##cdr _%e3384134125%_))) + (_%hd3384234129%_ (let () (declare (not safe)) - (##car _%e3393634220%_)))) + (##car _%e3384134125%_)))) (if (gx#stx-null? - _%tl3393834227%_) - (_%__match3789737898%_ - _%e3392834260%_ - _%hd3392934264%_ - _%tl3393034267%_ - _%e3393634220%_ - _%hd3393734224%_ - _%tl3393834227%_) + _%tl3384334132%_) + (_%__match3777837779%_ + _%e3383334165%_ + _%hd3383434169%_ + _%tl3383534172%_ + _%e3384134125%_ + _%hd3384234129%_ + _%tl3384334132%_) (if (gx#identifier? - _%hd3392934264%_) + _%hd3383434169%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39851_| - _%hd3392934264%_) - (_%__match3796337964%_ - _%e3392834260%_ - _%hd3392934264%_ - _%tl3393034267%_) + |gerbil/core/match[1]#_g39732_| + _%hd3383434169%_) + (_%__match3784437845%_ + _%e3383334165%_ + _%hd3383434169%_ + _%tl3383534172%_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/match[1]#_g39852_| - _%hd3392934264%_) - (_%__match3796337964%_ - _%e3392834260%_ - _%hd3392934264%_ - _%tl3393034267%_) + |gerbil/core/match[1]#_g39733_| + _%hd3383434169%_) + (_%__match3784437845%_ + _%e3383334165%_ + _%hd3383434169%_ + _%tl3383534172%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39853_| - _%hd3392934264%_) - (if (gx#stx-pair? _%tl3393834227%_) - (let ((_%e3396134096%_ - (gx#syntax-e _%tl3393834227%_))) - (let ((_%tl3396334103%_ + |gerbil/core/match[1]#_g39734_| + _%hd3383434169%_) + (if (gx#stx-pair? _%tl3384334132%_) + (let ((_%e3386634001%_ + (gx#syntax-e _%tl3384334132%_))) + (let ((_%tl3386834008%_ (let () (declare (not safe)) - (##cdr _%e3396134096%_))) - (_%hd3396234100%_ + (##cdr _%e3386634001%_))) + (_%hd3386734005%_ (let () (declare (not safe)) - (##car _%e3396134096%_)))) - (if (gx#stx-null? _%tl3396334103%_) - (_%__kont3767737678%_ - _%hd3396234100%_ - _%hd3393734224%_) - (_%__match3796337964%_ - _%e3392834260%_ - _%hd3392934264%_ - _%tl3393034267%_)))) - (_%__match3796337964%_ - _%e3392834260%_ - _%hd3392934264%_ - _%tl3393034267%_)) - (_%__match3796337964%_ - _%e3392834260%_ - _%hd3392934264%_ - _%tl3393034267%_)))) - (_%__match3796337964%_ - _%e3392834260%_ - _%hd3392934264%_ - _%tl3393034267%_))))) + (##car _%e3386634001%_)))) + (if (gx#stx-null? _%tl3386834008%_) + (_%__kont3755837559%_ + _%hd3386734005%_ + _%hd3384234129%_) + (_%__match3784437845%_ + _%e3383334165%_ + _%hd3383434169%_ + _%tl3383534172%_)))) + (_%__match3784437845%_ + _%e3383334165%_ + _%hd3383434169%_ + _%tl3383534172%_)) + (_%__match3784437845%_ + _%e3383334165%_ + _%hd3383434169%_ + _%tl3383534172%_)))) + (_%__match3784437845%_ + _%e3383334165%_ + _%hd3383434169%_ + _%tl3383534172%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match3796337964%_ - _%e3392834260%_ - _%hd3392934264%_ - _%tl3393034267%_)))))) - (_%__match3787737878%_ - (lambda (_%e3392334290%_ - _%hd3392434294%_ - _%tl3392534297%_) - (let ((_%L34300%_ _%tl3392534297%_) - (_%L34302%_ _%hd3392434294%_)) + (_%__match3784437845%_ + _%e3383334165%_ + _%hd3383434169%_ + _%tl3383534172%_)))))) + (_%__match3775837759%_ + (lambda (_%e3382834195%_ + _%hd3382934199%_ + _%tl3383034202%_) + (let ((_%g3382634205%_ _%tl3383034202%_) + (_%g3382734207%_ _%hd3382934199%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% - _%L34302%_ + _%g3382734207%_ gerbil/core/mop~MOP-2#!class-type-struct?)) - (_%__kont3766737668%_ - _%L34300%_ - _%L34302%_) - (_%__match3788337884%_ - _%e3392334290%_ - _%hd3392434294%_ - _%tl3392534297%_))))) - (_%__match3787137872%_ - (lambda (_%e3391134320%_ - _%__splice3766537666%_ - _%target3391234324%_ - _%tl3391434327%_) - (letrec ((_%loop3391534330%_ - (lambda (_%hd3391334334%_ - _%body3391934337%_) + (_%__kont3754837549%_ + _%g3382634205%_ + _%g3382734207%_) + (_%__match3776437765%_ + _%e3382834195%_ + _%hd3382934199%_ + _%tl3383034202%_))))) + (_%__match3775237753%_ + (lambda (_%e3381634225%_ + _%__splice3754637547%_ + _%target3381734229%_ + _%tl3381934232%_) + (letrec ((_%loop3382034235%_ + (lambda (_%hd3381834239%_ + _%body3382434242%_) (if (gx#stx-pair? - _%hd3391334334%_) - (let ((_%e3391634340%_ + _%hd3381834239%_) + (let ((_%e3382134244%_ (gx#syntax-e - _%hd3391334334%_))) - (let ((_%lp-tl3391834347%_ + _%hd3381834239%_))) + (let ((_%lp-tl3382334251%_ (let () (declare (not safe)) - (##cdr _%e3391634340%_))) - (_%lp-hd3391734344%_ + (##cdr _%e3382134244%_))) + (_%lp-hd3382234248%_ (let () (declare (not safe)) - (##car _%e3391634340%_)))) - (_%loop3391534330%_ - _%lp-tl3391834347%_ - (cons _%lp-hd3391734344%_ - _%body3391934337%_)))) - (let ((_%body3392034350%_ - (reverse _%body3391934337%_))) - (_%__kont3766337664%_ - _%body3392034350%_)))))) - (_%loop3391534330%_ - _%target3391234324%_ + (##car _%e3382134244%_)))) + (_%loop3382034235%_ + _%lp-tl3382334251%_ + (cons _%lp-hd3382234248%_ + _%body3382434242%_)))) + (let ((_%body3382534254%_ + (reverse _%body3382434242%_))) + (_%__kont3754437545%_ + _%body3382534254%_)))))) + (_%loop3382034235%_ + _%target3381734229%_ '())))) - (_%g3382234376%_ + (_%g3372734279%_ (lambda () - (if (gx#stx-vector? _%__stx3763637637%_) - (let ((_%e3391134320%_ + (if (gx#stx-vector? _%__stx3751737518%_) + (let ((_%e3381634225%_ (vector->list (gx#syntax-e - _%__stx3763637637%_)))) - (if (gx#stx-pair/null? _%e3391134320%_) - (let ((_%__splice3766537666%_ + _%__stx3751737518%_)))) + (if (gx#stx-pair/null? _%e3381634225%_) + (let ((_%__splice3754637547%_ (gx#syntax-split-splice->vector - _%e3391134320%_ + _%e3381634225%_ '0))) - (let ((_%tl3391434327%_ + (let ((_%tl3381934232%_ (let () (declare (not safe)) (##vector-ref - _%__splice3766537666%_ + _%__splice3754637547%_ '1))) - (_%target3391234324%_ + (_%target3381734229%_ (let () (declare (not safe)) (##vector-ref - _%__splice3766537666%_ + _%__splice3754637547%_ '0)))) (if (gx#stx-null? - _%tl3391434327%_) - (_%__match3787137872%_ - _%e3391134320%_ - _%__splice3766537666%_ - _%target3391234324%_ - _%tl3391434327%_) + _%tl3381934232%_) + (_%__match3775237753%_ + _%e3381634225%_ + _%__splice3754637547%_ + _%target3381734229%_ + _%tl3381934232%_) (let () (declare (not safe)) - (_%g3383034037%_))))) + (_%g3373533942%_))))) (let () (declare (not safe)) - (_%g3383034037%_)))) + (_%g3373533942%_)))) (let () (declare (not safe)) - (_%g3383034037%_))))) - (_%g3381834493%_ + (_%g3373533942%_))))) + (_%g3372334396%_ (lambda () - (if (gx#stx-box? _%__stx3763637637%_) - (let ((_%e3389434479%_ + (if (gx#stx-box? _%__stx3751737518%_) + (let ((_%e3379934382%_ (unbox (gx#syntax-e - _%__stx3763637637%_)))) - (_%__kont3765537656%_ _%e3389434479%_)) + _%__stx3751737518%_)))) + (_%__kont3753637537%_ _%e3379934382%_)) (let () (declare (not safe)) - (_%g3382234376%_))))) - (_%__match3772537726%_ - (lambda (_%e3384934718%_ - _%hd3385034722%_ - _%tl3385134725%_) - (let ((_%L34728%_ _%tl3385134725%_)) - (if (gx#stx-list? _%L34728%_) - (_%__kont3764337644%_ _%L34728%_) - (_%__match3787737878%_ - _%e3384934718%_ - _%hd3385034722%_ - _%tl3385134725%_))))) - (_%__match3771537716%_ - (lambda (_%e3384534803%_ - _%hd3384634807%_ - _%tl3384734810%_) - (let ((_%L34813%_ _%tl3384734810%_)) - (if (gx#stx-list? _%L34813%_) - (_%__kont3764137642%_ _%L34813%_) - (_%__match3787737878%_ - _%e3384534803%_ - _%hd3384634807%_ - _%tl3384734810%_)))))) - (if (gx#stx-pair? _%__stx3763637637%_) - (let ((_%e3383834888%_ - (gx#syntax-e _%__stx3763637637%_))) - (let ((_%tl3384034895%_ + (_%g3372734279%_))))) + (_%__match3760637607%_ + (lambda (_%e3375434621%_ + _%hd3375534625%_ + _%tl3375634628%_) + (let ((_%g3375334631%_ _%tl3375634628%_)) + (if (gx#stx-list? _%g3375334631%_) + (_%__kont3752437525%_ _%g3375334631%_) + (_%__match3775837759%_ + _%e3375434621%_ + _%hd3375534625%_ + _%tl3375634628%_))))) + (_%__match3759637597%_ + (lambda (_%e3375034706%_ + _%hd3375134710%_ + _%tl3375234713%_) + (let ((_%g3374934716%_ _%tl3375234713%_)) + (if (gx#stx-list? _%g3374934716%_) + (_%__kont3752237523%_ _%g3374934716%_) + (_%__match3775837759%_ + _%e3375034706%_ + _%hd3375134710%_ + _%tl3375234713%_)))))) + (if (gx#stx-pair? _%__stx3751737518%_) + (let ((_%e3374334791%_ + (gx#syntax-e _%__stx3751737518%_))) + (let ((_%tl3374534798%_ (let () (declare (not safe)) - (##cdr _%e3383834888%_))) - (_%hd3383934892%_ + (##cdr _%e3374334791%_))) + (_%hd3374434795%_ (let () (declare (not safe)) - (##car _%e3383834888%_)))) - (if (gx#identifier? _%hd3383934892%_) + (##car _%e3374334791%_)))) + (if (gx#identifier? _%hd3374434795%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39854_| - _%hd3383934892%_) - (if (gx#stx-pair? _%tl3384034895%_) - (let ((_%e3384134898%_ + |gerbil/core/match[1]#_g39735_| + _%hd3374434795%_) + (if (gx#stx-pair? _%tl3374534798%_) + (let ((_%e3374634801%_ (gx#syntax-e - _%tl3384034895%_))) - (let ((_%tl3384334905%_ + _%tl3374534798%_))) + (let ((_%tl3374834808%_ (let () (declare (not safe)) - (##cdr _%e3384134898%_))) - (_%hd3384234902%_ + (##cdr _%e3374634801%_))) + (_%hd3374734805%_ (let () (declare (not safe)) - (##car _%e3384134898%_)))) - (_%__kont3763937640%_ - _%tl3384334905%_ - _%hd3384234902%_))) - (_%__match3787737878%_ - _%e3383834888%_ - _%hd3383934892%_ - _%tl3384034895%_)) + (##car _%e3374634801%_)))) + (_%__kont3752037521%_ + _%tl3374834808%_ + _%hd3374734805%_))) + (_%__match3775837759%_ + _%e3374334791%_ + _%hd3374434795%_ + _%tl3374534798%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39855_| - _%hd3383934892%_) - (_%__match3771537716%_ - _%e3383834888%_ - _%hd3383934892%_ - _%tl3384034895%_) + |gerbil/core/match[1]#_g39736_| + _%hd3374434795%_) + (_%__match3759637597%_ + _%e3374334791%_ + _%hd3374434795%_ + _%tl3374534798%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39856_| - _%hd3383934892%_) - (_%__match3772537726%_ - _%e3383834888%_ - _%hd3383934892%_ - _%tl3384034895%_) + |gerbil/core/match[1]#_g39737_| + _%hd3374434795%_) + (_%__match3760637607%_ + _%e3374334791%_ + _%hd3374434795%_ + _%tl3374534798%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39857_| - _%hd3383934892%_) + |gerbil/core/match[1]#_g39738_| + _%hd3374434795%_) (if (gx#stx-pair? - _%tl3384034895%_) - (let ((_%e3385634688%_ + _%tl3374534798%_) + (let ((_%e3376134591%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3384034895%_))) - (let ((_%tl3385834695%_ + (gx#syntax-e _%tl3374534798%_))) + (let ((_%tl3376334598%_ (let () (declare (not safe)) - (##cdr _%e3385634688%_))) - (_%hd3385734692%_ + (##cdr _%e3376134591%_))) + (_%hd3376234595%_ (let () (declare (not safe)) - (##car _%e3385634688%_)))) - (if (gx#stx-null? _%tl3385834695%_) - (_%__kont3764537646%_ _%hd3385734692%_) - (_%__match3787737878%_ - _%e3383834888%_ - _%hd3383934892%_ - _%tl3384034895%_)))) - (_%__match3787737878%_ - _%e3383834888%_ - _%hd3383934892%_ - _%tl3384034895%_)) + (##car _%e3376134591%_)))) + (if (gx#stx-null? _%tl3376334598%_) + (_%__kont3752637527%_ _%hd3376234595%_) + (_%__match3775837759%_ + _%e3374334791%_ + _%hd3374434795%_ + _%tl3374534798%_)))) + (_%__match3775837759%_ + _%e3374334791%_ + _%hd3374434795%_ + _%tl3374534798%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39858_| - _%hd3383934892%_) - (if (gx#stx-pair? _%tl3384034895%_) - (let ((_%e3386434634%_ (gx#syntax-e _%tl3384034895%_))) - (let ((_%tl3386634641%_ + |gerbil/core/match[1]#_g39739_| + _%hd3374434795%_) + (if (gx#stx-pair? _%tl3374534798%_) + (let ((_%e3376934537%_ (gx#syntax-e _%tl3374534798%_))) + (let ((_%tl3377134544%_ (let () (declare (not safe)) - (##cdr _%e3386434634%_))) - (_%hd3386534638%_ + (##cdr _%e3376934537%_))) + (_%hd3377034541%_ (let () (declare (not safe)) - (##car _%e3386434634%_)))) - (if (gx#stx-pair? _%tl3386634641%_) - (let ((_%e3386734644%_ - (gx#syntax-e _%tl3386634641%_))) - (let ((_%tl3386934651%_ + (##car _%e3376934537%_)))) + (if (gx#stx-pair? _%tl3377134544%_) + (let ((_%e3377234547%_ + (gx#syntax-e _%tl3377134544%_))) + (let ((_%tl3377434554%_ (let () (declare (not safe)) - (##cdr _%e3386734644%_))) - (_%hd3386834648%_ + (##cdr _%e3377234547%_))) + (_%hd3377334551%_ (let () (declare (not safe)) - (##car _%e3386734644%_)))) - (if (gx#stx-null? _%tl3386934651%_) - (_%__kont3764737648%_ - _%hd3386834648%_ - _%hd3386534638%_) - (_%__match3787737878%_ - _%e3383834888%_ - _%hd3383934892%_ - _%tl3384034895%_)))) - (_%__match3787737878%_ - _%e3383834888%_ - _%hd3383934892%_ - _%tl3384034895%_)))) - (_%__match3787737878%_ - _%e3383834888%_ - _%hd3383934892%_ - _%tl3384034895%_)) + (##car _%e3377234547%_)))) + (if (gx#stx-null? _%tl3377434554%_) + (_%__kont3752837529%_ + _%hd3377334551%_ + _%hd3377034541%_) + (_%__match3775837759%_ + _%e3374334791%_ + _%hd3374434795%_ + _%tl3374534798%_)))) + (_%__match3775837759%_ + _%e3374334791%_ + _%hd3374434795%_ + _%tl3374534798%_)))) + (_%__match3775837759%_ + _%e3374334791%_ + _%hd3374434795%_ + _%tl3374534798%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39859_| - _%hd3383934892%_) - (if (gx#stx-pair? _%tl3384034895%_) - (let ((_%e3387634578%_ - (gx#syntax-e _%tl3384034895%_))) - (let ((_%tl3387834585%_ + |gerbil/core/match[1]#_g39740_| + _%hd3374434795%_) + (if (gx#stx-pair? _%tl3374534798%_) + (let ((_%e3378134481%_ + (gx#syntax-e _%tl3374534798%_))) + (let ((_%tl3378334488%_ (let () (declare (not safe)) - (##cdr _%e3387634578%_))) - (_%hd3387734582%_ + (##cdr _%e3378134481%_))) + (_%hd3378234485%_ (let () (declare (not safe)) - (##car _%e3387634578%_)))) - (if (gx#stx-pair? _%tl3387834585%_) - (let ((_%e3387934588%_ - (gx#syntax-e _%tl3387834585%_))) - (let ((_%tl3388134595%_ + (##car _%e3378134481%_)))) + (if (gx#stx-pair? _%tl3378334488%_) + (let ((_%e3378434491%_ + (gx#syntax-e _%tl3378334488%_))) + (let ((_%tl3378634498%_ (let () (declare (not safe)) - (##cdr _%e3387934588%_))) - (_%hd3388034592%_ + (##cdr _%e3378434491%_))) + (_%hd3378534495%_ (let () (declare (not safe)) - (##car _%e3387934588%_)))) - (_%__kont3764937650%_ - _%tl3388134595%_ - _%hd3388034592%_ - _%hd3387734582%_))) - (_%__match3787737878%_ - _%e3383834888%_ - _%hd3383934892%_ - _%tl3384034895%_)))) - (_%__match3787737878%_ - _%e3383834888%_ - _%hd3383934892%_ - _%tl3384034895%_)) + (##car _%e3378434491%_)))) + (_%__kont3753037531%_ + _%tl3378634498%_ + _%hd3378534495%_ + _%hd3378234485%_))) + (_%__match3775837759%_ + _%e3374334791%_ + _%hd3374434795%_ + _%tl3374534798%_)))) + (_%__match3775837759%_ + _%e3374334791%_ + _%hd3374434795%_ + _%tl3374534798%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39860_| - _%hd3383934892%_) - (_%__kont3765137652%_ _%tl3384034895%_) + |gerbil/core/match[1]#_g39741_| + _%hd3374434795%_) + (_%__kont3753237533%_ _%tl3374534798%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39861_| - _%hd3383934892%_) - (if (gx#stx-pair? _%tl3384034895%_) - (let ((_%e3389034510%_ - (gx#syntax-e _%tl3384034895%_))) - (let ((_%tl3389234517%_ + |gerbil/core/match[1]#_g39742_| + _%hd3374434795%_) + (if (gx#stx-pair? _%tl3374534798%_) + (let ((_%e3379534413%_ + (gx#syntax-e _%tl3374534798%_))) + (let ((_%tl3379734420%_ (let () (declare (not safe)) - (##cdr _%e3389034510%_))) - (_%hd3389134514%_ + (##cdr _%e3379534413%_))) + (_%hd3379634417%_ (let () (declare (not safe)) - (##car _%e3389034510%_)))) - (if (gx#stx-null? _%tl3389234517%_) - (_%__kont3765337654%_ - _%hd3389134514%_) - (_%__match3787737878%_ - _%e3383834888%_ - _%hd3383934892%_ - _%tl3384034895%_)))) - (_%__match3787737878%_ - _%e3383834888%_ - _%hd3383934892%_ - _%tl3384034895%_)) + (##car _%e3379534413%_)))) + (if (gx#stx-null? _%tl3379734420%_) + (_%__kont3753437535%_ + _%hd3379634417%_) + (_%__match3775837759%_ + _%e3374334791%_ + _%hd3374434795%_ + _%tl3374534798%_)))) + (_%__match3775837759%_ + _%e3374334791%_ + _%hd3374434795%_ + _%tl3374534798%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39862_| - _%hd3383934892%_) - (if (gx#stx-pair? _%tl3384034895%_) - (let ((_%e3389934449%_ - (gx#syntax-e _%tl3384034895%_))) - (let ((_%tl3390134456%_ + |gerbil/core/match[1]#_g39743_| + _%hd3374434795%_) + (if (gx#stx-pair? _%tl3374534798%_) + (let ((_%e3380434352%_ + (gx#syntax-e _%tl3374534798%_))) + (let ((_%tl3380634359%_ (let () (declare (not safe)) - (##cdr _%e3389934449%_))) - (_%hd3390034453%_ + (##cdr _%e3380434352%_))) + (_%hd3380534356%_ (let () (declare (not safe)) - (##car _%e3389934449%_)))) - (if (gx#stx-null? _%tl3390134456%_) - (_%__kont3765737658%_ - _%hd3390034453%_) - (_%__kont3765937660%_ - _%tl3384034895%_)))) - (_%__kont3765937660%_ _%tl3384034895%_)) + (##car _%e3380434352%_)))) + (if (gx#stx-null? _%tl3380634359%_) + (_%__kont3753837539%_ + _%hd3380534356%_) + (_%__kont3754037541%_ + _%tl3374534798%_)))) + (_%__kont3754037541%_ _%tl3374534798%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39863_| - _%hd3383934892%_) - (_%__kont3766137662%_ _%tl3384034895%_) - (_%__match3787737878%_ - _%e3383834888%_ - _%hd3383934892%_ - _%tl3384034895%_))))))))))) + |gerbil/core/match[1]#_g39744_| + _%hd3374434795%_) + (_%__kont3754237543%_ _%tl3374534798%_) + (_%__match3775837759%_ + _%e3374334791%_ + _%hd3374434795%_ + _%tl3374534798%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match3787737878%_ - _%e3383834888%_ - _%hd3383934892%_ - _%tl3384034895%_)))) + (_%__match3775837759%_ + _%e3374334791%_ + _%hd3374434795%_ + _%tl3374534798%_)))) (let () (declare (not safe)) - (_%g3381834493%_)))))))) - (_%parse-list33451%_ - (lambda (_%body33631%_) - (let* ((_%__stx3796637967%_ _%body33631%_) - (_%g3363733666%_ + (_%g3372334396%_)))))))) + (_%parse-list33356%_ + (lambda (_%body33536%_) + (let* ((_%__stx3784737848%_ _%body33536%_) + (_%g3354233571%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3796637967%_)))) - (let ((_%__kont3796937970%_ - (lambda (_%L33790%_) - (_%parse133449%_ _%L33790%_))) - (_%__kont3797137972%_ - (lambda (_%L33742%_ _%L33744%_ _%L33745%_) + _%__stx3784737848%_)))) + (let ((_%__kont3785037851%_ + (lambda (_%g3354433695%_) + (_%parse133354%_ _%g3354433695%_))) + (_%__kont3785237853%_ + (lambda (_%g3355233647%_ + _%g3355333649%_ + _%g3355433650%_) (cons 'splice: - (cons (_%parse133449%_ _%L33745%_) - (cons (_%parse-list33451%_ - _%L33742%_) + (cons (_%parse133354%_ _%g3355433650%_) + (cons (_%parse-list33356%_ + _%g3355233647%_) '()))))) - (_%__kont3797337974%_ - (lambda (_%L33700%_ _%L33702%_) + (_%__kont3785437855%_ + (lambda (_%g3356133605%_ _%g3356233607%_) (cons 'cons: - (cons (_%parse133449%_ _%L33702%_) - (cons (_%parse-list33451%_ - _%L33700%_) + (cons (_%parse133354%_ _%g3356233607%_) + (cons (_%parse-list33356%_ + _%g3356133605%_) '()))))) - (_%__kont3797537976%_ + (_%__kont3785637857%_ (lambda () - (if (gx#stx-null? _%body33631%_) + (if (gx#stx-null? _%body33536%_) (cons 'null: '()) - (if (gx#stx-pair? _%body33631%_) - (_%parse-error33456%_ _%body33631%_) - (_%parse133449%_ _%body33631%_)))))) - (let* ((_%__match3801538016%_ - (lambda (_%e3365833690%_ - _%hd3365933694%_ - _%tl3366033697%_) - (let ((_%L33700%_ _%tl3366033697%_) - (_%L33702%_ _%hd3365933694%_)) - (if (gx#ellipsis? _%L33702%_) - (_%__kont3797537976%_) - (_%__kont3797337974%_ - _%L33700%_ - _%L33702%_))))) - (_%__match3800938010%_ - (lambda (_%e3365033722%_ - _%hd3365133726%_ - _%tl3365233729%_ - _%e3365333732%_ - _%hd3365433736%_ - _%tl3365533739%_) - (let ((_%L33742%_ _%tl3365533739%_) - (_%L33744%_ _%hd3365433736%_) - (_%L33745%_ _%hd3365133726%_)) - (if (gx#ellipsis? _%L33744%_) - (_%__kont3797137972%_ - _%L33742%_ - _%L33744%_ - _%L33745%_) - (_%__match3801538016%_ - _%e3365033722%_ - _%hd3365133726%_ - _%tl3365233729%_)))))) - (if (gx#stx-pair? _%__stx3796637967%_) - (let ((_%e3364033766%_ - (gx#syntax-e _%__stx3796637967%_))) - (let ((_%tl3364233773%_ + (if (gx#stx-pair? _%body33536%_) + (_%parse-error33361%_ _%body33536%_) + (_%parse133354%_ _%body33536%_)))))) + (let* ((_%__match3789637897%_ + (lambda (_%e3356333595%_ + _%hd3356433599%_ + _%tl3356533602%_) + (let ((_%g3356133605%_ _%tl3356533602%_) + (_%g3356233607%_ _%hd3356433599%_)) + (if (gx#ellipsis? _%g3356233607%_) + (_%__kont3785637857%_) + (_%__kont3785437855%_ + _%g3356133605%_ + _%g3356233607%_))))) + (_%__match3789037891%_ + (lambda (_%e3355533627%_ + _%hd3355633631%_ + _%tl3355733634%_ + _%e3355833637%_ + _%hd3355933641%_ + _%tl3356033644%_) + (let ((_%g3355233647%_ _%tl3356033644%_) + (_%g3355333649%_ _%hd3355933641%_) + (_%g3355433650%_ _%hd3355633631%_)) + (if (gx#ellipsis? _%g3355333649%_) + (_%__kont3785237853%_ + _%g3355233647%_ + _%g3355333649%_ + _%g3355433650%_) + (_%__match3789637897%_ + _%e3355533627%_ + _%hd3355633631%_ + _%tl3355733634%_)))))) + (if (gx#stx-pair? _%__stx3784737848%_) + (let ((_%e3354533671%_ + (gx#syntax-e _%__stx3784737848%_))) + (let ((_%tl3354733678%_ (let () (declare (not safe)) - (##cdr _%e3364033766%_))) - (_%hd3364133770%_ + (##cdr _%e3354533671%_))) + (_%hd3354633675%_ (let () (declare (not safe)) - (##car _%e3364033766%_)))) - (if (gx#stx-datum? _%hd3364133770%_) - (let ((_%e3364333776%_ - (gx#stx-e _%hd3364133770%_))) - (if (equal? _%e3364333776%_ '::) - (if (gx#stx-pair? _%tl3364233773%_) - (let ((_%e3364433780%_ + (##car _%e3354533671%_)))) + (if (gx#stx-datum? _%hd3354633675%_) + (let ((_%e3354833681%_ + (gx#stx-e _%hd3354633675%_))) + (if (equal? _%e3354833681%_ '::) + (if (gx#stx-pair? _%tl3354733678%_) + (let ((_%e3354933685%_ (gx#syntax-e - _%tl3364233773%_))) - (let ((_%tl3364633787%_ + _%tl3354733678%_))) + (let ((_%tl3355133692%_ (let () (declare (not safe)) - (##cdr _%e3364433780%_))) - (_%hd3364533784%_ + (##cdr _%e3354933685%_))) + (_%hd3355033689%_ (let () (declare (not safe)) - (##car _%e3364433780%_)))) + (##car _%e3354933685%_)))) (if (gx#stx-null? - _%tl3364633787%_) - (_%__kont3796937970%_ - _%hd3364533784%_) - (_%__match3800938010%_ - _%e3364033766%_ - _%hd3364133770%_ - _%tl3364233773%_ - _%e3364433780%_ - _%hd3364533784%_ - _%tl3364633787%_)))) - (_%__match3801538016%_ - _%e3364033766%_ - _%hd3364133770%_ - _%tl3364233773%_)) - (if (gx#stx-pair? _%tl3364233773%_) - (let ((_%e3365333732%_ + _%tl3355133692%_) + (_%__kont3785037851%_ + _%hd3355033689%_) + (_%__match3789037891%_ + _%e3354533671%_ + _%hd3354633675%_ + _%tl3354733678%_ + _%e3354933685%_ + _%hd3355033689%_ + _%tl3355133692%_)))) + (_%__match3789637897%_ + _%e3354533671%_ + _%hd3354633675%_ + _%tl3354733678%_)) + (if (gx#stx-pair? _%tl3354733678%_) + (let ((_%e3355833637%_ (gx#syntax-e - _%tl3364233773%_))) - (let ((_%tl3365533739%_ + _%tl3354733678%_))) + (let ((_%tl3356033644%_ (let () (declare (not safe)) - (##cdr _%e3365333732%_))) - (_%hd3365433736%_ + (##cdr _%e3355833637%_))) + (_%hd3355933641%_ (let () (declare (not safe)) - (##car _%e3365333732%_)))) - (_%__match3800938010%_ - _%e3364033766%_ - _%hd3364133770%_ - _%tl3364233773%_ - _%e3365333732%_ - _%hd3365433736%_ - _%tl3365533739%_))) - (_%__match3801538016%_ - _%e3364033766%_ - _%hd3364133770%_ - _%tl3364233773%_)))) - (if (gx#stx-pair? _%tl3364233773%_) - (let ((_%e3365333732%_ + (##car _%e3355833637%_)))) + (_%__match3789037891%_ + _%e3354533671%_ + _%hd3354633675%_ + _%tl3354733678%_ + _%e3355833637%_ + _%hd3355933641%_ + _%tl3356033644%_))) + (_%__match3789637897%_ + _%e3354533671%_ + _%hd3354633675%_ + _%tl3354733678%_)))) + (if (gx#stx-pair? _%tl3354733678%_) + (let ((_%e3355833637%_ (gx#syntax-e - _%tl3364233773%_))) - (let ((_%tl3365533739%_ + _%tl3354733678%_))) + (let ((_%tl3356033644%_ (let () (declare (not safe)) - (##cdr _%e3365333732%_))) - (_%hd3365433736%_ + (##cdr _%e3355833637%_))) + (_%hd3355933641%_ (let () (declare (not safe)) - (##car _%e3365333732%_)))) - (_%__match3800938010%_ - _%e3364033766%_ - _%hd3364133770%_ - _%tl3364233773%_ - _%e3365333732%_ - _%hd3365433736%_ - _%tl3365533739%_))) - (_%__match3801538016%_ - _%e3364033766%_ - _%hd3364133770%_ - _%tl3364233773%_))))) - (_%__kont3797537976%_))))))) - (_%parse-vector33452%_ - (lambda (_%body33628%_) - (if (_%simple-vector?33453%_ _%body33628%_) + (##car _%e3355833637%_)))) + (_%__match3789037891%_ + _%e3354533671%_ + _%hd3354633675%_ + _%tl3354733678%_ + _%e3355833637%_ + _%hd3355933641%_ + _%tl3356033644%_))) + (_%__match3789637897%_ + _%e3354533671%_ + _%hd3354633675%_ + _%tl3354733678%_))))) + (_%__kont3785637857%_))))))) + (_%parse-vector33357%_ + (lambda (_%body33533%_) + (if (_%simple-vector?33358%_ _%body33533%_) (cons 'simple: - (cons (gx#stx-map _%parse133449%_ _%body33628%_) + (cons (gx#stx-map _%parse133354%_ _%body33533%_) '())) (cons 'list: - (cons (_%parse-list33451%_ _%body33628%_) + (cons (_%parse-list33356%_ _%body33533%_) '()))))) - (_%simple-vector?33453%_ - (lambda (_%body33565%_) - (let* ((_%__stx3801838019%_ _%body33565%_) - (_%g3356933581%_ + (_%simple-vector?33358%_ + (lambda (_%body33470%_) + (let* ((_%__stx3789937900%_ _%body33470%_) + (_%g3347433486%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3801838019%_)))) - (let ((_%__kont3802138022%_ - (lambda (_%L33609%_ _%L33611%_) - (if (gx#ellipsis? _%L33611%_) + _%__stx3789937900%_)))) + (let ((_%__kont3790237903%_ + (lambda (_%g3347633514%_ _%g3347733516%_) + (if (gx#ellipsis? _%g3347733516%_) '#f - (_%simple-vector?33453%_ _%L33609%_)))) - (_%__kont3802338024%_ - (lambda () (gx#stx-null? _%body33565%_)))) - (if (gx#stx-pair? _%__stx3801838019%_) - (let ((_%e3357333599%_ - (gx#syntax-e _%__stx3801838019%_))) - (let ((_%tl3357533606%_ + (_%simple-vector?33358%_ _%g3347633514%_)))) + (_%__kont3790437905%_ + (lambda () (gx#stx-null? _%body33470%_)))) + (if (gx#stx-pair? _%__stx3789937900%_) + (let ((_%e3347833504%_ + (gx#syntax-e _%__stx3789937900%_))) + (let ((_%tl3348033511%_ (let () (declare (not safe)) - (##cdr _%e3357333599%_))) - (_%hd3357433603%_ + (##cdr _%e3347833504%_))) + (_%hd3347933508%_ (let () (declare (not safe)) - (##car _%e3357333599%_)))) - (_%__kont3802138022%_ - _%tl3357533606%_ - _%hd3357433603%_))) - (_%__kont3802338024%_)))))) - (_%parse-class-body33454%_ - (lambda (_%body33474%_) - (let _%recur33477%_ ((_%rest33480%_ _%body33474%_)) - (let* ((_%__stx3803438035%_ _%rest33480%_) - (_%g3348433500%_ + (##car _%e3347833504%_)))) + (_%__kont3790237903%_ + _%tl3348033511%_ + _%hd3347933508%_))) + (_%__kont3790437905%_)))))) + (_%parse-class-body33359%_ + (lambda (_%body33379%_) + (let _%recur33382%_ ((_%rest33385%_ _%body33379%_)) + (let* ((_%__stx3791537916%_ _%rest33385%_) + (_%g3338933405%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3803438035%_)))) - (let ((_%__kont3803738038%_ - (lambda (_%L33538%_ _%L33540%_ _%L33541%_) - (cons _%L33541%_ - (cons (_%parse133449%_ _%L33540%_) - (_%recur33477%_ _%L33538%_))))) - (_%__kont3803938040%_ + _%__stx3791537916%_)))) + (let ((_%__kont3791837919%_ + (lambda (_%g3339133443%_ + _%g3339233445%_ + _%g3339333446%_) + (cons _%g3339333446%_ + (cons (_%parse133354%_ _%g3339233445%_) + (_%recur33382%_ + _%g3339133443%_))))) + (_%__kont3792037921%_ (lambda () - (if (gx#stx-null? _%rest33480%_) + (if (gx#stx-null? _%rest33385%_) '() - (_%parse-error33456%_ _%rest33480%_))))) - (let ((_%__match3805338054%_ - (lambda (_%e3348933518%_ - _%hd3349033522%_ - _%tl3349133525%_ - _%e3349233528%_ - _%hd3349333532%_ - _%tl3349433535%_) - (let ((_%L33538%_ _%tl3349433535%_) - (_%L33540%_ _%hd3349333532%_) - (_%L33541%_ _%hd3349033522%_)) - (if (gx#stx-keyword? _%L33541%_) - (_%__kont3803738038%_ - _%L33538%_ - _%L33540%_ - _%L33541%_) - (_%__kont3803938040%_)))))) - (if (gx#stx-pair? _%__stx3803438035%_) - (let ((_%e3348933518%_ - (gx#syntax-e _%__stx3803438035%_))) - (let ((_%tl3349133525%_ + (_%parse-error33361%_ _%rest33385%_))))) + (let ((_%__match3793437935%_ + (lambda (_%e3339433423%_ + _%hd3339533427%_ + _%tl3339633430%_ + _%e3339733433%_ + _%hd3339833437%_ + _%tl3339933440%_) + (let ((_%g3339133443%_ _%tl3339933440%_) + (_%g3339233445%_ _%hd3339833437%_) + (_%g3339333446%_ _%hd3339533427%_)) + (if (gx#stx-keyword? _%g3339333446%_) + (_%__kont3791837919%_ + _%g3339133443%_ + _%g3339233445%_ + _%g3339333446%_) + (_%__kont3792037921%_)))))) + (if (gx#stx-pair? _%__stx3791537916%_) + (let ((_%e3339433423%_ + (gx#syntax-e _%__stx3791537916%_))) + (let ((_%tl3339633430%_ (let () (declare (not safe)) - (##cdr _%e3348933518%_))) - (_%hd3349033522%_ + (##cdr _%e3339433423%_))) + (_%hd3339533427%_ (let () (declare (not safe)) - (##car _%e3348933518%_)))) - (if (gx#stx-pair? _%tl3349133525%_) - (let ((_%e3349233528%_ - (gx#syntax-e _%tl3349133525%_))) - (let ((_%tl3349433535%_ + (##car _%e3339433423%_)))) + (if (gx#stx-pair? _%tl3339633430%_) + (let ((_%e3339733433%_ + (gx#syntax-e _%tl3339633430%_))) + (let ((_%tl3339933440%_ (let () (declare (not safe)) - (##cdr _%e3349233528%_))) - (_%hd3349333532%_ + (##cdr _%e3339733433%_))) + (_%hd3339833437%_ (let () (declare (not safe)) - (##car _%e3349233528%_)))) - (_%__match3805338054%_ - _%e3348933518%_ - _%hd3349033522%_ - _%tl3349133525%_ - _%e3349233528%_ - _%hd3349333532%_ - _%tl3349433535%_))) - (_%__kont3803938040%_)))) - (_%__kont3803938040%_)))))))) - (_%parse-qq33455%_ - (lambda (_%hd33461%_) - (let ((_%g3346333470%_ - (lambda (_%g3346433466%_) + (##car _%e3339733433%_)))) + (_%__match3793437935%_ + _%e3339433423%_ + _%hd3339533427%_ + _%tl3339633430%_ + _%e3339733433%_ + _%hd3339833437%_ + _%tl3339933440%_))) + (_%__kont3792037921%_)))) + (_%__kont3792037921%_)))))))) + (_%parse-qq33360%_ + (lambda (_%hd33366%_) + (let ((_%g3336833375%_ + (lambda (_%g3336933371%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3346433466%_)))) - (_%g3346333470%_ _%hd33461%_)))) - (_%parse-error33456%_ - (lambda (_%hd33458%_) + _%g3336933371%_)))) + (_%g3336833375%_ _%hd33366%_)))) + (_%parse-error33361%_ + (lambda (_%hd33363%_) (apply gx#raise-syntax-error '#f '"bad syntax; illegal pattern" - (if _%match-stx33447%_ - (cons _%match-stx33447%_ - (cons _%stx33445%_ - (cons _%hd33458%_ '()))) - (cons _%stx33445%_ (cons _%hd33458%_ '()))))))) - (_%parse133449%_ _%stx33445%_)))) + (if _%match-stx33352%_ + (cons _%match-stx33352%_ + (cons _%stx33350%_ + (cons _%hd33363%_ '()))) + (cons _%stx33350%_ (cons _%hd33363%_ '()))))))) + (_%parse133354%_ _%stx33350%_)))) (define |gerbil/core/match[1]#parse-match-pattern__0| - (lambda (_%stx35135%_) - (let ((_%match-stx35138%_ '#f)) + (lambda (_%stx35038%_) + (let ((_%match-stx35041%_ '#f)) (|gerbil/core/match[1]#parse-match-pattern__%| - _%stx35135%_ - _%match-stx35138%_)))) + _%stx35038%_ + _%match-stx35041%_)))) (define |gerbil/core/match[1]#parse-match-pattern| - (lambda _g39864_ - (let ((_g39865_ (let () (declare (not safe)) (##length _g39864_)))) - (cond ((let () (declare (not safe)) (##fx= _g39865_ 1)) + (lambda _g39745_ + (let ((_g39746_ (let () (declare (not safe)) (##length _g39745_)))) + (cond ((let () (declare (not safe)) (##fx= _g39746_ 1)) (apply |gerbil/core/match[1]#parse-match-pattern__0| - _g39864_)) - ((let () (declare (not safe)) (##fx= _g39865_ 2)) + _g39745_)) + ((let () (declare (not safe)) (##fx= _g39746_ 2)) (apply |gerbil/core/match[1]#parse-match-pattern__%| - _g39864_)) + _g39745_)) (else (##raise-wrong-number-of-arguments-exception |gerbil/core/match[1]#parse-match-pattern| - _g39864_)))))) + _g39745_)))))) (define |gerbil/core/match[1]#match-pattern?| - (lambda (_%stx33430%_) - (let ((__tmp39866 - (lambda (_%E33433%_) + (lambda (_%stx33335%_) + (let ((__tmp39747 + (lambda (_%E33338%_) (with-exception-handler - (let ((_%E!33436%_ (current-exception-handler))) - (lambda (_%e33439%_) - (if (syntax-error? _%e33439%_) - (_%E33433%_ '#f) + (let ((_%E!33341%_ (current-exception-handler))) + (lambda (_%e33344%_) + (if (syntax-error? _%e33344%_) + (_%E33338%_ '#f) (let () (declare (not safe)) - (_%E!33436%_ _%e33439%_))))) + (_%E!33341%_ _%e33344%_))))) (lambda () (|gerbil/core/match[1]#parse-match-pattern__0| - _%stx33430%_) + _%stx33335%_) '#t))))) (declare (not safe)) - (##call-with-current-continuation __tmp39866)))) + (##call-with-current-continuation __tmp39747)))) (define |gerbil/core/match[1]#match-pattern-vars| - (lambda (_%ptree32165%_) - (letrec ((_%loop32168%_ - (lambda (_%ptree32455%_ _%vars32457%_ _%K32458%_) - (let* ((_%__stx3815238153%_ _%ptree32455%_) - (_%g3247132581%_ + (lambda (_%ptree32070%_) + (letrec ((_%loop32073%_ + (lambda (_%ptree32360%_ _%vars32362%_ _%K32363%_) + (let* ((_%__stx3803338034%_ _%ptree32360%_) + (_%g3237632486%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3815238153%_)))) - (let ((_%__kont3815538156%_ - (lambda (_%L33211%_) - (let* ((_%__stx3807238073%_ _%L33211%_) - (_%g3322833262%_ + _%__stx3803338034%_)))) + (let ((_%__kont3803638037%_ + (lambda (_%g3237833116%_) + (let* ((_%__stx3795337954%_ _%g3237833116%_) + (_%g3313333167%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3807238073%_)))) - (let ((_%__kont3807538076%_ - (lambda (_%L33411%_) - (_%loop32168%_ - _%L33411%_ - _%vars32457%_ - _%K32458%_))) - (_%__kont3807738078%_ - (lambda (_%L33380%_) - (_%loop32168%_ - _%L33380%_ - _%vars32457%_ - _%K32458%_))) - (_%__kont3807938080%_ - (lambda (_%L33328%_) - (_%loop32168%_ - _%L33328%_ - _%vars32457%_ - _%K32458%_))) - (_%__kont3808138082%_ + _%__stx3795337954%_)))) + (let ((_%__kont3795637957%_ + (lambda (_%g3313533316%_) + (_%loop32073%_ + _%g3313533316%_ + _%vars32362%_ + _%K32363%_))) + (_%__kont3795837959%_ + (lambda (_%g3313933285%_) + (_%loop32073%_ + _%g3313933285%_ + _%vars32362%_ + _%K32363%_))) + (_%__kont3796037961%_ + (lambda (_%g3314733233%_) + (_%loop32073%_ + _%g3314733233%_ + _%vars32362%_ + _%K32363%_))) + (_%__kont3796237963%_ (lambda () - (_%K32458%_ _%vars32457%_)))) - (if (gx#stx-pair? _%__stx3807238073%_) - (let ((_%e3323133401%_ + (_%K32363%_ _%vars32362%_)))) + (if (gx#stx-pair? _%__stx3795337954%_) + (let ((_%e3313633306%_ (gx#syntax-e - _%__stx3807238073%_))) - (let ((_%tl3323333408%_ + _%__stx3795337954%_))) + (let ((_%tl3313833313%_ (let () (declare (not safe)) - (##cdr _%e3323133401%_))) - (_%hd3323233405%_ + (##cdr _%e3313633306%_))) + (_%hd3313733310%_ (let () (declare (not safe)) - (##car _%e3323133401%_)))) - (if (gx#stx-null? _%tl3323333408%_) - (_%__kont3807538076%_ - _%hd3323233405%_) + (##car _%e3313633306%_)))) + (if (gx#stx-null? _%tl3313833313%_) + (_%__kont3795637957%_ + _%hd3313733310%_) (if (gx#stx-datum? - _%hd3323233405%_) - (let ((_%e3323833366%_ + _%hd3313733310%_) + (let ((_%e3314333271%_ (gx#stx-e - _%hd3323233405%_))) - (if (equal? _%e3323833366%_ + _%hd3313733310%_))) + (if (equal? _%e3314333271%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '=>:) - (if (gx#stx-pair? _%tl3323333408%_) - (let ((_%e3323933370%_ (gx#syntax-e _%tl3323333408%_))) - (let ((_%tl3324133377%_ + (if (gx#stx-pair? _%tl3313833313%_) + (let ((_%e3314433275%_ (gx#syntax-e _%tl3313833313%_))) + (let ((_%tl3314633282%_ (let () (declare (not safe)) - (##cdr _%e3323933370%_))) - (_%hd3324033374%_ + (##cdr _%e3314433275%_))) + (_%hd3314533279%_ (let () (declare (not safe)) - (##car _%e3323933370%_)))) - (if (gx#stx-null? _%tl3324133377%_) - (_%__kont3807738078%_ _%hd3324033374%_) - (_%__kont3808138082%_)))) - (_%__kont3808138082%_)) - (if (equal? _%e3323833366%_ '::) - (if (gx#stx-pair? _%tl3323333408%_) - (let ((_%e3324733294%_ - (gx#syntax-e _%tl3323333408%_))) - (let ((_%tl3324933301%_ + (##car _%e3314433275%_)))) + (if (gx#stx-null? _%tl3314633282%_) + (_%__kont3795837959%_ _%hd3314533279%_) + (_%__kont3796237963%_)))) + (_%__kont3796237963%_)) + (if (equal? _%e3314333271%_ '::) + (if (gx#stx-pair? _%tl3313833313%_) + (let ((_%e3315233199%_ + (gx#syntax-e _%tl3313833313%_))) + (let ((_%tl3315433206%_ (let () (declare (not safe)) - (##cdr _%e3324733294%_))) - (_%hd3324833298%_ + (##cdr _%e3315233199%_))) + (_%hd3315333203%_ (let () (declare (not safe)) - (##car _%e3324733294%_)))) - (if (gx#stx-pair? _%tl3324933301%_) - (let ((_%e3325033304%_ - (gx#syntax-e _%tl3324933301%_))) - (let ((_%tl3325233311%_ + (##car _%e3315233199%_)))) + (if (gx#stx-pair? _%tl3315433206%_) + (let ((_%e3315533209%_ + (gx#syntax-e _%tl3315433206%_))) + (let ((_%tl3315733216%_ (let () (declare (not safe)) - (##cdr _%e3325033304%_))) - (_%hd3325133308%_ + (##cdr _%e3315533209%_))) + (_%hd3315633213%_ (let () (declare (not safe)) - (##car _%e3325033304%_)))) - (if (gx#stx-datum? _%hd3325133308%_) - (let ((_%e3325333314%_ - (gx#stx-e _%hd3325133308%_))) - (if (equal? _%e3325333314%_ '=>:) + (##car _%e3315533209%_)))) + (if (gx#stx-datum? _%hd3315633213%_) + (let ((_%e3315833219%_ + (gx#stx-e _%hd3315633213%_))) + (if (equal? _%e3315833219%_ '=>:) (if (gx#stx-pair? - _%tl3325233311%_) - (let ((_%e3325433318%_ + _%tl3315733216%_) + (let ((_%e3315933223%_ (gx#syntax-e - _%tl3325233311%_))) - (let ((_%tl3325633325%_ + _%tl3315733216%_))) + (let ((_%tl3316133230%_ (let () (declare (not safe)) - (##cdr _%e3325433318%_))) - (_%hd3325533322%_ + (##cdr _%e3315933223%_))) + (_%hd3316033227%_ (let () (declare (not safe)) - (##car _%e3325433318%_)))) + (##car _%e3315933223%_)))) (if (gx#stx-null? - _%tl3325633325%_) - (_%__kont3807938080%_ - _%hd3325533322%_) - (_%__kont3808138082%_)))) - (_%__kont3808138082%_)) - (_%__kont3808138082%_))) - (_%__kont3808138082%_)))) - (_%__kont3808138082%_)))) - (_%__kont3808138082%_)) - (_%__kont3808138082%_)))) + _%tl3316133230%_) + (_%__kont3796037961%_ + _%hd3316033227%_) + (_%__kont3796237963%_)))) + (_%__kont3796237963%_)) + (_%__kont3796237963%_))) + (_%__kont3796237963%_)))) + (_%__kont3796237963%_)))) + (_%__kont3796237963%_)) + (_%__kont3796237963%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3808138082%_))))) - (_%__kont3808138082%_)))))) - (_%__kont3815738158%_ - (lambda (_%L33098%_ _%L33100%_) - (let* ((_%__stx3805638057%_ _%L33098%_) - (_%g3311633128%_ + (_%__kont3796237963%_))))) + (_%__kont3796237963%_)))))) + (_%__kont3803838039%_ + (lambda (_%g3238633003%_ _%g3238733005%_) + (let* ((_%__stx3793737938%_ _%g3238633003%_) + (_%g3302133033%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3805638057%_)))) - (let ((_%__kont3805938060%_ - (lambda (_%L33156%_ _%L33158%_) - (_%loop32168%_ - _%L33158%_ - _%vars32457%_ - (lambda (_%g3317033172%_) - (_%loop32168%_ - (cons _%L33100%_ _%L33156%_) - _%g3317033172%_ - _%K32458%_))))) - (_%__kont3806138062%_ + _%__stx3793737938%_)))) + (let ((_%__kont3794037941%_ + (lambda (_%g3302333061%_ + _%g3302433063%_) + (_%loop32073%_ + _%g3302433063%_ + _%vars32362%_ + (lambda (_%g3307533077%_) + (_%loop32073%_ + (cons _%g3238733005%_ + _%g3302333061%_) + _%g3307533077%_ + _%K32363%_))))) + (_%__kont3794237943%_ (lambda () - (_%K32458%_ _%vars32457%_)))) - (if (gx#stx-pair? _%__stx3805638057%_) - (let ((_%e3312033146%_ + (_%K32363%_ _%vars32362%_)))) + (if (gx#stx-pair? _%__stx3793737938%_) + (let ((_%e3302533051%_ (gx#syntax-e - _%__stx3805638057%_))) - (let ((_%tl3312233153%_ + _%__stx3793737938%_))) + (let ((_%tl3302733058%_ (let () (declare (not safe)) - (##cdr _%e3312033146%_))) - (_%hd3312133150%_ + (##cdr _%e3302533051%_))) + (_%hd3302633055%_ (let () (declare (not safe)) - (##car _%e3312033146%_)))) - (_%__kont3805938060%_ - _%tl3312233153%_ - _%hd3312133150%_))) - (_%__kont3806138062%_)))))) - (_%__kont3815938160%_ - (lambda (_%L33067%_) - (_%loop32168%_ - _%L33067%_ - _%vars32457%_ - _%K32458%_))) - (_%__kont3816138162%_ - (lambda (_%L33013%_ _%L33015%_) - (_%loop32168%_ - _%L33015%_ - _%vars32457%_ - (lambda (_%g3303033032%_) - (_%loop32168%_ - _%L33013%_ - _%g3303033032%_ - _%K32458%_))))) - (_%__kont3816338164%_ - (lambda (_%L32949%_ _%L32951%_) - (_%loop32168%_ - _%L32951%_ - _%vars32457%_ - (lambda (_%g3296632968%_) - (_%loop32168%_ - _%L32949%_ - _%g3296632968%_ - _%K32458%_))))) - (_%__kont3816538166%_ - (lambda (_%L32894%_) - (_%loop32168%_ - _%L32894%_ - _%vars32457%_ - _%K32458%_))) - (_%__kont3816738168%_ - (lambda (_%L32844%_ _%L32846%_) - (_%loop-vector32170%_ - _%L32844%_ - _%vars32457%_ - _%K32458%_))) - (_%__kont3816938170%_ - (lambda (_%L32801%_) - (_%loop-vector32170%_ - _%L32801%_ - _%vars32457%_ - _%K32458%_))) - (_%__kont3817138172%_ - (lambda (_%L32744%_) - (_%loop-class-list32172%_ - _%L32744%_ - _%vars32457%_ - _%K32458%_))) - (_%__kont3817338174%_ - (lambda (_%L32685%_ _%L32687%_) - (_%loop32168%_ - _%L32685%_ - _%vars32457%_ - _%K32458%_))) - (_%__kont3817538176%_ - (lambda (_%L32623%_) - (if (find (lambda (_%g3263832640%_) + (##car _%e3302533051%_)))) + (_%__kont3794037941%_ + _%tl3302733058%_ + _%hd3302633055%_))) + (_%__kont3794237943%_)))))) + (_%__kont3804038041%_ + (lambda (_%g3239132972%_) + (_%loop32073%_ + _%g3239132972%_ + _%vars32362%_ + _%K32363%_))) + (_%__kont3804238043%_ + (lambda (_%g3239932918%_ _%g3240032920%_) + (_%loop32073%_ + _%g3240032920%_ + _%vars32362%_ + (lambda (_%g3293532937%_) + (_%loop32073%_ + _%g3239932918%_ + _%g3293532937%_ + _%K32363%_))))) + (_%__kont3804438045%_ + (lambda (_%g3241132854%_ _%g3241232856%_) + (_%loop32073%_ + _%g3241232856%_ + _%vars32362%_ + (lambda (_%g3287132873%_) + (_%loop32073%_ + _%g3241132854%_ + _%g3287132873%_ + _%K32363%_))))) + (_%__kont3804638047%_ + (lambda (_%g3242332799%_) + (_%loop32073%_ + _%g3242332799%_ + _%vars32362%_ + _%K32363%_))) + (_%__kont3804838049%_ + (lambda (_%g3243132749%_ _%g3243232751%_) + (_%loop-vector32075%_ + _%g3243132749%_ + _%vars32362%_ + _%K32363%_))) + (_%__kont3805038051%_ + (lambda (_%g3243932706%_) + (_%loop-vector32075%_ + _%g3243932706%_ + _%vars32362%_ + _%K32363%_))) + (_%__kont3805238053%_ + (lambda (_%g3245032649%_) + (_%loop-class-list32077%_ + _%g3245032649%_ + _%vars32362%_ + _%K32363%_))) + (_%__kont3805438055%_ + (lambda (_%g3246132590%_ _%g3246232592%_) + (_%loop32073%_ + _%g3246132590%_ + _%vars32362%_ + _%K32363%_))) + (_%__kont3805638057%_ + (lambda (_%g3247332528%_) + (if (find (lambda (_%g3254332545%_) (gx#bound-identifier=? - _%g3263832640%_ - _%L32623%_)) - _%vars32457%_) - (_%K32458%_ _%vars32457%_) - (_%K32458%_ - (cons _%L32623%_ _%vars32457%_))))) - (_%__kont3817738178%_ - (lambda () (_%K32458%_ _%vars32457%_)))) - (let* ((_%__match3830938310%_ - (lambda (_%e3252832824%_ - _%hd3252932828%_ - _%tl3253032831%_ - _%e3253132834%_ - _%hd3253232838%_ - _%tl3253332841%_) - (let ((_%L32844%_ _%hd3253232838%_) - (_%L32846%_ _%hd3252932828%_)) - (if (or (gx#stx-eq? 'values: _%L32846%_) - (gx#stx-eq? 'vector: _%L32846%_)) - (_%__kont3816738168%_ - _%L32844%_ - _%L32846%_) - (if (gx#stx-datum? _%hd3252932828%_) - (let ((_%e3253832777%_ + _%g3254332545%_ + _%g3247332528%_)) + _%vars32362%_) + (_%K32363%_ _%vars32362%_) + (_%K32363%_ + (cons _%g3247332528%_ _%vars32362%_))))) + (_%__kont3805838059%_ + (lambda () (_%K32363%_ _%vars32362%_)))) + (let* ((_%__match3819038191%_ + (lambda (_%e3243332729%_ + _%hd3243432733%_ + _%tl3243532736%_ + _%e3243632739%_ + _%hd3243732743%_ + _%tl3243832746%_) + (let ((_%g3243132749%_ _%hd3243732743%_) + (_%g3243232751%_ _%hd3243432733%_)) + (if (or (gx#stx-eq? + 'values: + _%g3243232751%_) + (gx#stx-eq? + 'vector: + _%g3243232751%_)) + (_%__kont3804838049%_ + _%g3243132749%_ + _%g3243232751%_) + (if (gx#stx-datum? _%hd3243432733%_) + (let ((_%e3244332682%_ (gx#stx-e - _%hd3252932828%_))) - (if (equal? _%e3253832777%_ + _%hd3243432733%_))) + (if (equal? _%e3244332682%_ 'struct:) - (_%__kont3817738178%_) - (if (equal? _%e3253832777%_ + (_%__kont3805838059%_) + (if (equal? _%e3244332682%_ 'class:) - (_%__kont3817738178%_) - (if (equal? _%e3253832777%_ + (_%__kont3805838059%_) + (if (equal? _%e3244332682%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'apply:) - (_%__kont3817738178%_) - (if (equal? _%e3253832777%_ 'var:) - (_%__kont3817538176%_ _%hd3253232838%_) - (_%__kont3817738178%_)))))) + (_%__kont3805838059%_) + (if (equal? _%e3244332682%_ 'var:) + (_%__kont3805638057%_ _%hd3243732743%_) + (_%__kont3805838059%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3817738178%_)))))) - (_%__match3820338204%_ - (lambda (_%e3248333088%_ - _%hd3248433092%_ - _%tl3248533095%_) - (let ((_%L33098%_ _%tl3248533095%_) - (_%L33100%_ _%hd3248433092%_)) - (if (or (gx#stx-eq? 'and: _%L33100%_) - (gx#stx-eq? 'or: _%L33100%_)) - (_%__kont3815738158%_ - _%L33098%_ - _%L33100%_) - (if (gx#stx-datum? _%hd3248433092%_) - (let ((_%e3249033053%_ + (_%__kont3805838059%_)))))) + (_%__match3808438085%_ + (lambda (_%e3238832993%_ + _%hd3238932997%_ + _%tl3239033000%_) + (let ((_%g3238633003%_ _%tl3239033000%_) + (_%g3238733005%_ _%hd3238932997%_)) + (if (or (gx#stx-eq? 'and: _%g3238733005%_) + (gx#stx-eq? 'or: _%g3238733005%_)) + (_%__kont3803838039%_ + _%g3238633003%_ + _%g3238733005%_) + (if (gx#stx-datum? _%hd3238932997%_) + (let ((_%e3239532958%_ (gx#stx-e - _%hd3248433092%_))) - (if (equal? _%e3249033053%_ + _%hd3238932997%_))) + (if (equal? _%e3239532958%_ 'not:) (if (gx#stx-pair? - _%tl3248533095%_) - (let ((_%e3249133057%_ + _%tl3239033000%_) + (let ((_%e3239632962%_ (gx#syntax-e - _%tl3248533095%_))) - (let ((_%tl3249333064%_ + _%tl3239033000%_))) + (let ((_%tl3239832969%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3249133057%_))) - (_%hd3249233061%_ - (let () (declare (not safe)) (##car _%e3249133057%_)))) - (if (gx#stx-null? _%tl3249333064%_) - (_%__kont3815938160%_ _%hd3249233061%_) - (_%__kont3817738178%_)))) - (_%__kont3817738178%_)) + (##cdr _%e3239632962%_))) + (_%hd3239732966%_ + (let () (declare (not safe)) (##car _%e3239632962%_)))) + (if (gx#stx-null? _%tl3239832969%_) + (_%__kont3804038041%_ _%hd3239732966%_) + (_%__kont3805838059%_)))) + (_%__kont3805838059%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _%e3249033053%_ + (if (equal? _%e3239532958%_ 'cons:) (if (gx#stx-pair? - _%tl3248533095%_) - (let ((_%e3250032993%_ + _%tl3239033000%_) + (let ((_%e3240532898%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3248533095%_))) - (let ((_%tl3250233000%_ + (gx#syntax-e _%tl3239033000%_))) + (let ((_%tl3240732905%_ (let () (declare (not safe)) - (##cdr _%e3250032993%_))) - (_%hd3250132997%_ + (##cdr _%e3240532898%_))) + (_%hd3240632902%_ (let () (declare (not safe)) - (##car _%e3250032993%_)))) - (if (gx#stx-pair? _%tl3250233000%_) - (let ((_%e3250333003%_ - (gx#syntax-e _%tl3250233000%_))) - (let ((_%tl3250533010%_ + (##car _%e3240532898%_)))) + (if (gx#stx-pair? _%tl3240732905%_) + (let ((_%e3240832908%_ + (gx#syntax-e _%tl3240732905%_))) + (let ((_%tl3241032915%_ (let () (declare (not safe)) - (##cdr _%e3250333003%_))) - (_%hd3250433007%_ + (##cdr _%e3240832908%_))) + (_%hd3240932912%_ (let () (declare (not safe)) - (##car _%e3250333003%_)))) - (if (gx#stx-null? _%tl3250533010%_) - (_%__kont3816138162%_ - _%hd3250433007%_ - _%hd3250132997%_) - (_%__kont3817738178%_)))) - (if (gx#stx-null? _%tl3250233000%_) - (_%__match3830938310%_ - _%e3248333088%_ - _%hd3248433092%_ - _%tl3248533095%_ - _%e3250032993%_ - _%hd3250132997%_ - _%tl3250233000%_) - (_%__kont3817738178%_))))) - (_%__kont3817738178%_)) - (if (equal? _%e3249033053%_ 'splice:) - (if (gx#stx-pair? _%tl3248533095%_) - (let ((_%e3251232929%_ (gx#syntax-e _%tl3248533095%_))) - (let ((_%tl3251432936%_ + (##car _%e3240832908%_)))) + (if (gx#stx-null? _%tl3241032915%_) + (_%__kont3804238043%_ + _%hd3240932912%_ + _%hd3240632902%_) + (_%__kont3805838059%_)))) + (if (gx#stx-null? _%tl3240732905%_) + (_%__match3819038191%_ + _%e3238832993%_ + _%hd3238932997%_ + _%tl3239033000%_ + _%e3240532898%_ + _%hd3240632902%_ + _%tl3240732905%_) + (_%__kont3805838059%_))))) + (_%__kont3805838059%_)) + (if (equal? _%e3239532958%_ 'splice:) + (if (gx#stx-pair? _%tl3239033000%_) + (let ((_%e3241732834%_ (gx#syntax-e _%tl3239033000%_))) + (let ((_%tl3241932841%_ (let () (declare (not safe)) - (##cdr _%e3251232929%_))) - (_%hd3251332933%_ + (##cdr _%e3241732834%_))) + (_%hd3241832838%_ (let () (declare (not safe)) - (##car _%e3251232929%_)))) - (if (gx#stx-pair? _%tl3251432936%_) - (let ((_%e3251532939%_ - (gx#syntax-e _%tl3251432936%_))) - (let ((_%tl3251732946%_ + (##car _%e3241732834%_)))) + (if (gx#stx-pair? _%tl3241932841%_) + (let ((_%e3242032844%_ + (gx#syntax-e _%tl3241932841%_))) + (let ((_%tl3242232851%_ (let () (declare (not safe)) - (##cdr _%e3251532939%_))) - (_%hd3251632943%_ + (##cdr _%e3242032844%_))) + (_%hd3242132848%_ (let () (declare (not safe)) - (##car _%e3251532939%_)))) - (if (gx#stx-null? _%tl3251732946%_) - (_%__kont3816338164%_ - _%hd3251632943%_ - _%hd3251332933%_) - (_%__kont3817738178%_)))) - (if (gx#stx-null? _%tl3251432936%_) - (_%__match3830938310%_ - _%e3248333088%_ - _%hd3248433092%_ - _%tl3248533095%_ - _%e3251232929%_ - _%hd3251332933%_ - _%tl3251432936%_) - (_%__kont3817738178%_))))) - (_%__kont3817738178%_)) - (if (equal? _%e3249033053%_ 'box:) - (if (gx#stx-pair? _%tl3248533095%_) - (let ((_%e3252332884%_ - (gx#syntax-e _%tl3248533095%_))) - (let ((_%tl3252532891%_ + (##car _%e3242032844%_)))) + (if (gx#stx-null? _%tl3242232851%_) + (_%__kont3804438045%_ + _%hd3242132848%_ + _%hd3241832838%_) + (_%__kont3805838059%_)))) + (if (gx#stx-null? _%tl3241932841%_) + (_%__match3819038191%_ + _%e3238832993%_ + _%hd3238932997%_ + _%tl3239033000%_ + _%e3241732834%_ + _%hd3241832838%_ + _%tl3241932841%_) + (_%__kont3805838059%_))))) + (_%__kont3805838059%_)) + (if (equal? _%e3239532958%_ 'box:) + (if (gx#stx-pair? _%tl3239033000%_) + (let ((_%e3242832789%_ + (gx#syntax-e _%tl3239033000%_))) + (let ((_%tl3243032796%_ (let () (declare (not safe)) - (##cdr _%e3252332884%_))) - (_%hd3252432888%_ + (##cdr _%e3242832789%_))) + (_%hd3242932793%_ (let () (declare (not safe)) - (##car _%e3252332884%_)))) - (if (gx#stx-null? _%tl3252532891%_) - (_%__kont3816538166%_ _%hd3252432888%_) - (_%__kont3817738178%_)))) - (_%__kont3817738178%_)) - (if (gx#stx-pair? _%tl3248533095%_) - (let ((_%e3253132834%_ - (gx#syntax-e _%tl3248533095%_))) - (let ((_%tl3253332841%_ + (##car _%e3242832789%_)))) + (if (gx#stx-null? _%tl3243032796%_) + (_%__kont3804638047%_ _%hd3242932793%_) + (_%__kont3805838059%_)))) + (_%__kont3805838059%_)) + (if (gx#stx-pair? _%tl3239033000%_) + (let ((_%e3243632739%_ + (gx#syntax-e _%tl3239033000%_))) + (let ((_%tl3243832746%_ (let () (declare (not safe)) - (##cdr _%e3253132834%_))) - (_%hd3253232838%_ + (##cdr _%e3243632739%_))) + (_%hd3243732743%_ (let () (declare (not safe)) - (##car _%e3253132834%_)))) - (if (gx#stx-null? _%tl3253332841%_) - (_%__match3830938310%_ - _%e3248333088%_ - _%hd3248433092%_ - _%tl3248533095%_ - _%e3253132834%_ - _%hd3253232838%_ - _%tl3253332841%_) - (if (equal? _%e3249033053%_ 'struct:) - (if (gx#stx-pair? _%tl3253332841%_) - (let ((_%e3254232791%_ + (##car _%e3243632739%_)))) + (if (gx#stx-null? _%tl3243832746%_) + (_%__match3819038191%_ + _%e3238832993%_ + _%hd3238932997%_ + _%tl3239033000%_ + _%e3243632739%_ + _%hd3243732743%_ + _%tl3243832746%_) + (if (equal? _%e3239532958%_ 'struct:) + (if (gx#stx-pair? _%tl3243832746%_) + (let ((_%e3244732696%_ (gx#syntax-e - _%tl3253332841%_))) - (let ((_%tl3254432798%_ + _%tl3243832746%_))) + (let ((_%tl3244932703%_ (let () (declare (not safe)) - (##cdr _%e3254232791%_))) - (_%hd3254332795%_ + (##cdr _%e3244732696%_))) + (_%hd3244832700%_ (let () (declare (not safe)) - (##car _%e3254232791%_)))) + (##car _%e3244732696%_)))) (if (gx#stx-null? - _%tl3254432798%_) - (_%__kont3816938170%_ - _%hd3254332795%_) - (_%__kont3817738178%_)))) - (_%__kont3817738178%_)) - (if (equal? _%e3249033053%_ 'class:) - (if (gx#stx-pair? _%tl3253332841%_) - (let ((_%e3255332734%_ + _%tl3244932703%_) + (_%__kont3805038051%_ + _%hd3244832700%_) + (_%__kont3805838059%_)))) + (_%__kont3805838059%_)) + (if (equal? _%e3239532958%_ 'class:) + (if (gx#stx-pair? _%tl3243832746%_) + (let ((_%e3245832639%_ (gx#syntax-e - _%tl3253332841%_))) - (let ((_%tl3255532741%_ + _%tl3243832746%_))) + (let ((_%tl3246032646%_ (let () (declare (not safe)) - (##cdr _%e3255332734%_))) - (_%hd3255432738%_ + (##cdr _%e3245832639%_))) + (_%hd3245932643%_ (let () (declare (not safe)) - (##car _%e3255332734%_)))) + (##car _%e3245832639%_)))) (if (gx#stx-null? - _%tl3255532741%_) - (_%__kont3817138172%_ - _%hd3255432738%_) - (_%__kont3817738178%_)))) - (_%__kont3817738178%_)) - (if (equal? _%e3249033053%_ 'apply:) + _%tl3246032646%_) + (_%__kont3805238053%_ + _%hd3245932643%_) + (_%__kont3805838059%_)))) + (_%__kont3805838059%_)) + (if (equal? _%e3239532958%_ 'apply:) (if (gx#stx-pair? - _%tl3253332841%_) - (let ((_%e3256532675%_ + _%tl3243832746%_) + (let ((_%e3247032580%_ (gx#syntax-e - _%tl3253332841%_))) - (let ((_%tl3256732682%_ + _%tl3243832746%_))) + (let ((_%tl3247232587%_ (let () (declare (not safe)) - (##cdr _%e3256532675%_))) - (_%hd3256632679%_ + (##cdr _%e3247032580%_))) + (_%hd3247132584%_ (let () (declare (not safe)) - (##car _%e3256532675%_)))) + (##car _%e3247032580%_)))) (if (gx#stx-null? - _%tl3256732682%_) - (_%__kont3817338174%_ - _%hd3256632679%_ - _%hd3253232838%_) - (_%__kont3817738178%_)))) - (_%__kont3817738178%_)) - (_%__kont3817738178%_))))))) - (_%__kont3817738178%_))))))) + _%tl3247232587%_) + (_%__kont3805438055%_ + _%hd3247132584%_ + _%hd3243732743%_) + (_%__kont3805838059%_)))) + (_%__kont3805838059%_)) + (_%__kont3805838059%_))))))) + (_%__kont3805838059%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl3248533095%_) - (let ((_%e3253132834%_ + (if (gx#stx-pair? _%tl3239033000%_) + (let ((_%e3243632739%_ (gx#syntax-e - _%tl3248533095%_))) - (let ((_%tl3253332841%_ + _%tl3239033000%_))) + (let ((_%tl3243832746%_ (let () (declare (not safe)) - (##cdr _%e3253132834%_))) - (_%hd3253232838%_ + (##cdr _%e3243632739%_))) + (_%hd3243732743%_ (let () (declare (not safe)) - (##car _%e3253132834%_)))) + (##car _%e3243632739%_)))) (if (gx#stx-null? - _%tl3253332841%_) - (_%__match3830938310%_ - _%e3248333088%_ - _%hd3248433092%_ - _%tl3248533095%_ - _%e3253132834%_ - _%hd3253232838%_ - _%tl3253332841%_) - (_%__kont3817738178%_)))) - (_%__kont3817738178%_)))))))) - (if (gx#stx-pair? _%__stx3815238153%_) - (let ((_%e3247433187%_ - (gx#syntax-e _%__stx3815238153%_))) - (let ((_%tl3247633194%_ + _%tl3243832746%_) + (_%__match3819038191%_ + _%e3238832993%_ + _%hd3238932997%_ + _%tl3239033000%_ + _%e3243632739%_ + _%hd3243732743%_ + _%tl3243832746%_) + (_%__kont3805838059%_)))) + (_%__kont3805838059%_)))))))) + (if (gx#stx-pair? _%__stx3803338034%_) + (let ((_%e3237933092%_ + (gx#syntax-e _%__stx3803338034%_))) + (let ((_%tl3238133099%_ (let () (declare (not safe)) - (##cdr _%e3247433187%_))) - (_%hd3247533191%_ + (##cdr _%e3237933092%_))) + (_%hd3238033096%_ (let () (declare (not safe)) - (##car _%e3247433187%_)))) - (if (gx#stx-datum? _%hd3247533191%_) - (let ((_%e3247733197%_ - (gx#stx-e _%hd3247533191%_))) - (if (equal? _%e3247733197%_ '?:) - (if (gx#stx-pair? _%tl3247633194%_) - (let ((_%e3247833201%_ + (##car _%e3237933092%_)))) + (if (gx#stx-datum? _%hd3238033096%_) + (let ((_%e3238233102%_ + (gx#stx-e _%hd3238033096%_))) + (if (equal? _%e3238233102%_ '?:) + (if (gx#stx-pair? _%tl3238133099%_) + (let ((_%e3238333106%_ (gx#syntax-e - _%tl3247633194%_))) - (let ((_%tl3248033208%_ + _%tl3238133099%_))) + (let ((_%tl3238533113%_ (let () (declare (not safe)) - (##cdr _%e3247833201%_))) - (_%hd3247933205%_ + (##cdr _%e3238333106%_))) + (_%hd3238433110%_ (let () (declare (not safe)) - (##car _%e3247833201%_)))) - (_%__kont3815538156%_ - _%tl3248033208%_))) - (_%__match3820338204%_ - _%e3247433187%_ - _%hd3247533191%_ - _%tl3247633194%_)) - (_%__match3820338204%_ - _%e3247433187%_ - _%hd3247533191%_ - _%tl3247633194%_))) - (_%__match3820338204%_ - _%e3247433187%_ - _%hd3247533191%_ - _%tl3247633194%_)))) - (_%__kont3817738178%_))))))) - (_%loop-vector32170%_ - (lambda (_%body32331%_ _%vars32333%_ _%K32334%_) - (let* ((_%__stx3841038411%_ _%body32331%_) - (_%g3233732360%_ + (##car _%e3238333106%_)))) + (_%__kont3803638037%_ + _%tl3238533113%_))) + (_%__match3808438085%_ + _%e3237933092%_ + _%hd3238033096%_ + _%tl3238133099%_)) + (_%__match3808438085%_ + _%e3237933092%_ + _%hd3238033096%_ + _%tl3238133099%_))) + (_%__match3808438085%_ + _%e3237933092%_ + _%hd3238033096%_ + _%tl3238133099%_)))) + (_%__kont3805838059%_))))))) + (_%loop-vector32075%_ + (lambda (_%body32236%_ _%vars32238%_ _%K32239%_) + (let* ((_%__stx3829138292%_ _%body32236%_) + (_%g3224232265%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3841038411%_)))) - (let ((_%__kont3841338414%_ - (lambda (_%L32437%_) - (_%loop-list32171%_ - _%L32437%_ - _%vars32333%_ - _%K32334%_))) - (_%__kont3841538416%_ - (lambda (_%L32391%_) - (_%loop32168%_ - _%L32391%_ - _%vars32333%_ - _%K32334%_)))) - (if (gx#stx-pair? _%__stx3841038411%_) - (let ((_%e3234032413%_ - (gx#syntax-e _%__stx3841038411%_))) - (let ((_%tl3234232420%_ + _%__stx3829138292%_)))) + (let ((_%__kont3829438295%_ + (lambda (_%g3224432342%_) + (_%loop-list32076%_ + _%g3224432342%_ + _%vars32238%_ + _%K32239%_))) + (_%__kont3829638297%_ + (lambda (_%g3225232296%_) + (_%loop32073%_ + _%g3225232296%_ + _%vars32238%_ + _%K32239%_)))) + (if (gx#stx-pair? _%__stx3829138292%_) + (let ((_%e3224532318%_ + (gx#syntax-e _%__stx3829138292%_))) + (let ((_%tl3224732325%_ (let () (declare (not safe)) - (##cdr _%e3234032413%_))) - (_%hd3234132417%_ + (##cdr _%e3224532318%_))) + (_%hd3224632322%_ (let () (declare (not safe)) - (##car _%e3234032413%_)))) - (if (gx#stx-datum? _%hd3234132417%_) - (let ((_%e3234332423%_ - (gx#stx-e _%hd3234132417%_))) - (if (equal? _%e3234332423%_ 'simple:) - (if (gx#stx-pair? _%tl3234232420%_) - (let ((_%e3234432427%_ + (##car _%e3224532318%_)))) + (if (gx#stx-datum? _%hd3224632322%_) + (let ((_%e3224832328%_ + (gx#stx-e _%hd3224632322%_))) + (if (equal? _%e3224832328%_ 'simple:) + (if (gx#stx-pair? _%tl3224732325%_) + (let ((_%e3224932332%_ (gx#syntax-e - _%tl3234232420%_))) - (let ((_%tl3234632434%_ + _%tl3224732325%_))) + (let ((_%tl3225132339%_ (let () (declare (not safe)) - (##cdr _%e3234432427%_))) - (_%hd3234532431%_ + (##cdr _%e3224932332%_))) + (_%hd3225032336%_ (let () (declare (not safe)) - (##car _%e3234432427%_)))) + (##car _%e3224932332%_)))) (if (gx#stx-null? - _%tl3234632434%_) - (_%__kont3841338414%_ - _%hd3234532431%_) + _%tl3225132339%_) + (_%__kont3829438295%_ + _%hd3225032336%_) (let () (declare (not safe)) - (_%g3233732360%_))))) + (_%g3224232265%_))))) (let () (declare (not safe)) - (_%g3233732360%_))) - (if (equal? _%e3234332423%_ 'list:) + (_%g3224232265%_))) + (if (equal? _%e3224832328%_ 'list:) (if (gx#stx-pair? - _%tl3234232420%_) - (let ((_%e3235232381%_ + _%tl3224732325%_) + (let ((_%e3225732286%_ (gx#syntax-e - _%tl3234232420%_))) - (let ((_%tl3235432388%_ + _%tl3224732325%_))) + (let ((_%tl3225932293%_ (let () (declare (not safe)) - (##cdr _%e3235232381%_))) - (_%hd3235332385%_ + (##cdr _%e3225732286%_))) + (_%hd3225832290%_ (let () (declare (not safe)) - (##car _%e3235232381%_)))) + (##car _%e3225732286%_)))) (if (gx#stx-null? - _%tl3235432388%_) - (_%__kont3841538416%_ - _%hd3235332385%_) + _%tl3225932293%_) + (_%__kont3829638297%_ + _%hd3225832290%_) (let () (declare (not safe)) - (_%g3233732360%_))))) + (_%g3224232265%_))))) (let () (declare (not safe)) - (_%g3233732360%_))) + (_%g3224232265%_))) (let () (declare (not safe)) - (_%g3233732360%_))))) + (_%g3224232265%_))))) (let () (declare (not safe)) - (_%g3233732360%_))))) + (_%g3224232265%_))))) (let () (declare (not safe)) - (_%g3233732360%_))))))) - (_%loop-list32171%_ - (lambda (_%rest32261%_ _%vars32263%_ _%K32264%_) - (let* ((_%__stx3846038461%_ _%rest32261%_) - (_%g3226732279%_ + (_%g3224232265%_))))))) + (_%loop-list32076%_ + (lambda (_%rest32166%_ _%vars32168%_ _%K32169%_) + (let* ((_%__stx3834138342%_ _%rest32166%_) + (_%g3217232184%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3846038461%_)))) - (let ((_%__kont3846338464%_ - (lambda (_%L32307%_ _%L32309%_) - (_%loop32168%_ - _%L32309%_ - _%vars32263%_ - (lambda (_%g3232132323%_) - (_%loop-list32171%_ - _%L32307%_ - _%g3232132323%_ - _%K32264%_))))) - (_%__kont3846538466%_ - (lambda () (_%K32264%_ _%vars32263%_)))) - (if (gx#stx-pair? _%__stx3846038461%_) - (let ((_%e3227132297%_ - (gx#syntax-e _%__stx3846038461%_))) - (let ((_%tl3227332304%_ + _%__stx3834138342%_)))) + (let ((_%__kont3834438345%_ + (lambda (_%g3217432212%_ _%g3217532214%_) + (_%loop32073%_ + _%g3217532214%_ + _%vars32168%_ + (lambda (_%g3222632228%_) + (_%loop-list32076%_ + _%g3217432212%_ + _%g3222632228%_ + _%K32169%_))))) + (_%__kont3834638347%_ + (lambda () (_%K32169%_ _%vars32168%_)))) + (if (gx#stx-pair? _%__stx3834138342%_) + (let ((_%e3217632202%_ + (gx#syntax-e _%__stx3834138342%_))) + (let ((_%tl3217832209%_ (let () (declare (not safe)) - (##cdr _%e3227132297%_))) - (_%hd3227232301%_ + (##cdr _%e3217632202%_))) + (_%hd3217732206%_ (let () (declare (not safe)) - (##car _%e3227132297%_)))) - (_%__kont3846338464%_ - _%tl3227332304%_ - _%hd3227232301%_))) - (_%__kont3846538466%_)))))) - (_%loop-class-list32172%_ - (lambda (_%rest32174%_ _%vars32176%_ _%K32177%_) - (let* ((_%__stx3847638477%_ _%rest32174%_) - (_%g3218032195%_ + (##car _%e3217632202%_)))) + (_%__kont3834438345%_ + _%tl3217832209%_ + _%hd3217732206%_))) + (_%__kont3834638347%_)))))) + (_%loop-class-list32077%_ + (lambda (_%rest32079%_ _%vars32081%_ _%K32082%_) + (let* ((_%__stx3835738358%_ _%rest32079%_) + (_%g3208532100%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3847638477%_)))) - (let ((_%__kont3847938480%_ - (lambda (_%L32233%_ _%L32235%_) - (_%loop32168%_ - _%L32235%_ - _%vars32176%_ - (lambda (_%g3225132253%_) - (_%loop-class-list32172%_ - _%L32233%_ - _%g3225132253%_ - _%K32177%_))))) - (_%__kont3848138482%_ - (lambda () (_%K32177%_ _%vars32176%_)))) - (if (gx#stx-pair? _%__stx3847638477%_) - (let ((_%e3218432213%_ - (gx#syntax-e _%__stx3847638477%_))) - (let ((_%tl3218632220%_ + _%__stx3835738358%_)))) + (let ((_%__kont3836038361%_ + (lambda (_%g3208732138%_ _%g3208832140%_) + (_%loop32073%_ + _%g3208832140%_ + _%vars32081%_ + (lambda (_%g3215632158%_) + (_%loop-class-list32077%_ + _%g3208732138%_ + _%g3215632158%_ + _%K32082%_))))) + (_%__kont3836238363%_ + (lambda () (_%K32082%_ _%vars32081%_)))) + (if (gx#stx-pair? _%__stx3835738358%_) + (let ((_%e3208932118%_ + (gx#syntax-e _%__stx3835738358%_))) + (let ((_%tl3209132125%_ (let () (declare (not safe)) - (##cdr _%e3218432213%_))) - (_%hd3218532217%_ + (##cdr _%e3208932118%_))) + (_%hd3209032122%_ (let () (declare (not safe)) - (##car _%e3218432213%_)))) - (if (gx#stx-pair? _%tl3218632220%_) - (let ((_%e3218732223%_ - (gx#syntax-e _%tl3218632220%_))) - (let ((_%tl3218932230%_ + (##car _%e3208932118%_)))) + (if (gx#stx-pair? _%tl3209132125%_) + (let ((_%e3209232128%_ + (gx#syntax-e _%tl3209132125%_))) + (let ((_%tl3209432135%_ (let () (declare (not safe)) - (##cdr _%e3218732223%_))) - (_%hd3218832227%_ + (##cdr _%e3209232128%_))) + (_%hd3209332132%_ (let () (declare (not safe)) - (##car _%e3218732223%_)))) - (_%__kont3847938480%_ - _%tl3218932230%_ - _%hd3218832227%_))) - (_%__kont3848138482%_)))) - (_%__kont3848138482%_))))))) - (_%loop32168%_ _%ptree32165%_ '() values)))) + (##car _%e3209232128%_)))) + (_%__kont3836038361%_ + _%tl3209432135%_ + _%hd3209332132%_))) + (_%__kont3836238363%_)))) + (_%__kont3836238363%_))))))) + (_%loop32073%_ _%ptree32070%_ '() values)))) (define |gerbil/core/match[1]#generate-match1| - (lambda (_%stx29091%_ _%tgt29093%_ _%ptree29094%_ _%K29095%_ _%E29096%_) - (letrec ((_%generate129098%_ - (lambda (_%tgt30364%_ _%ptree30366%_ _%K30367%_ _%E30368%_) - (let* ((_%g3037030378%_ - (lambda (_%g3037130374%_) + (lambda (_%stx29002%_ _%tgt29004%_ _%ptree29005%_ _%K29006%_ _%E29007%_) + (letrec ((_%generate129009%_ + (lambda (_%tgt30269%_ _%ptree30271%_ _%K30272%_ _%E30273%_) + (let* ((_%g3027530283%_ + (lambda (_%g3027630279%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3037130374%_))) - (_%g3036932161%_ - (lambda (_%g3037130382%_) - ((lambda (_%L30385%_) - (let* ((_%__stx3871238713%_ _%ptree30366%_) - (_%g3041230554%_ + _%g3027630279%_))) + (_%g3027432066%_ + (lambda (_%g3027630287%_) + ((lambda (_%g3027730290%_) + (let* ((_%__stx3859338594%_ _%ptree30271%_) + (_%g3031730459%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3871238713%_)))) - (let ((_%__kont3871538716%_ - (lambda (_%L31876%_ _%L31878%_) - (let* ((_%__stx3863038631%_ - _%L31876%_) - (_%g3189531930%_ + _%__stx3859338594%_)))) + (let ((_%__kont3859638597%_ + (lambda (_%g3031931781%_ + _%g3032031783%_) + (let* ((_%__stx3851138512%_ + _%g3031931781%_) + (_%g3180031835%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3863038631%_)))) - (let ((_%__kont3863338634%_ + _%__stx3851138512%_)))) + (let ((_%__kont3851438515%_ (lambda () (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '?) - (cons _%L31878%_ (cons _%L30385%_ '()))) - (cons _%K30367%_ (cons _%E30368%_ '())))))) + (cons _%g3032031783%_ + (cons _%g3027730290%_ '()))) + (cons _%K30272%_ (cons _%E30273%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3863538636%_ - (lambda (_%L32131%_) + (_%__kont3851638517%_ + (lambda (_%g3180232036%_) (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '?) - (cons _%L31878%_ (cons _%L30385%_ '()))) - (cons (_%generate129098%_ - _%tgt30364%_ - _%L32131%_ - _%K30367%_ - _%E30368%_) - (cons _%E30368%_ '())))))) + (cons _%g3032031783%_ + (cons _%g3027730290%_ '()))) + (cons (_%generate129009%_ + _%tgt30269%_ + _%g3180232036%_ + _%K30272%_ + _%E30273%_) + (cons _%E30273%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3863738638%_ - (lambda (_%L32069%_) - (let* ((_%g3208332091%_ - (lambda (_%g3208432087%_) + (_%__kont3851838519%_ + (lambda (_%g3180631974%_) + (let* ((_%g3198831996%_ + (lambda (_%g3198931992%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3208432087%_))) - (_%g3208232110%_ - (lambda (_%g3208432095%_) - ((lambda (_%L32098%_) + _%g3198931992%_))) + (_%g3198732015%_ + (lambda (_%g3198932000%_) + ((lambda (_%g3199032003%_) (cons 'let - (cons (cons (cons _%L32098%_ - (cons (cons _%L31878%_ - (cons _%L30385%_ + (cons (cons (cons _%g3199032003%_ + (cons (cons _%g3032031783%_ + (cons _%g3027730290%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons 'if - (cons _%L32098%_ - (cons (_%generate129098%_ + (cons _%g3199032003%_ + (cons (_%generate129009%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L32098%_ - _%L32069%_ - _%K30367%_ - _%E30368%_) - (cons _%E30368%_ '())))) + _%g3199032003%_ + _%g3180631974%_ + _%K30272%_ + _%E30273%_) + (cons _%E30273%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%g3208432095%_)))) - (_%g3208232110%_ (gx#genident 'e))))) + _%g3198932000%_)))) + (_%g3198732015%_ (gx#genident 'e))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3863938640%_ - (lambda (_%L31985%_ - _%L31987%_) - (let* ((_%g3200732015%_ - (lambda (_%g3200832011%_) + (_%__kont3852038521%_ + (lambda (_%g3181431890%_ + _%g3181531892%_) + (let* ((_%g3191231920%_ + (lambda (_%g3191331916%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3200832011%_))) - (_%g3200632034%_ - (lambda (_%g3200832019%_) - ((lambda (_%L32022%_) + _%g3191331916%_))) + (_%g3191131939%_ + (lambda (_%g3191331924%_) + ((lambda (_%g3191431927%_) (cons 'if (cons (cons (gx#datum->syntax '#f '?) - (cons _%L31878%_ - (cons _%L30385%_ '()))) + (cons _%g3032031783%_ + (cons _%g3027730290%_ + '()))) (cons (cons 'let - (cons (cons (cons _%L32022%_ + (cons (cons (cons _%g3191431927%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L31987%_ (cons _%L30385%_ '())) + (cons (cons _%g3181531892%_ + (cons _%g3027730290%_ '())) '())) '()) - (cons (_%generate129098%_ - _%L32022%_ - _%L31985%_ - _%K30367%_ - _%E30368%_) + (cons (_%generate129009%_ + _%g3191431927%_ + _%g3181431890%_ + _%K30272%_ + _%E30273%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%E30368%_ '()))))) - _%g3200832019%_)))) - (_%g3200632034%_ (gx#genident 'e)))))) + (cons _%E30273%_ '()))))) + _%g3191331924%_)))) + (_%g3191131939%_ (gx#genident 'e)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%g3189232142%_ + (let ((_%g3179732047%_ (lambda () (if (gx#stx-pair? - _%__stx3863038631%_) - (let ((_%e3189832121%_ + _%__stx3851138512%_) + (let ((_%e3180332026%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%__stx3863038631%_))) - (let ((_%tl3190032128%_ + (gx#syntax-e _%__stx3851138512%_))) + (let ((_%tl3180532033%_ (let () (declare (not safe)) - (##cdr _%e3189832121%_))) - (_%hd3189932125%_ + (##cdr _%e3180332026%_))) + (_%hd3180432030%_ (let () (declare (not safe)) - (##car _%e3189832121%_)))) - (if (gx#stx-null? _%tl3190032128%_) - (_%__kont3863538636%_ _%hd3189932125%_) - (if (gx#stx-datum? _%hd3189932125%_) - (let ((_%e3190532055%_ - (gx#stx-e _%hd3189932125%_))) - (if (equal? _%e3190532055%_ '=>:) - (if (gx#stx-pair? _%tl3190032128%_) - (let ((_%e3190632059%_ + (##car _%e3180332026%_)))) + (if (gx#stx-null? _%tl3180532033%_) + (_%__kont3851638517%_ _%hd3180432030%_) + (if (gx#stx-datum? _%hd3180432030%_) + (let ((_%e3181031960%_ + (gx#stx-e _%hd3180432030%_))) + (if (equal? _%e3181031960%_ '=>:) + (if (gx#stx-pair? _%tl3180532033%_) + (let ((_%e3181131964%_ (gx#syntax-e - _%tl3190032128%_))) - (let ((_%tl3190832066%_ + _%tl3180532033%_))) + (let ((_%tl3181331971%_ (let () (declare (not safe)) - (##cdr _%e3190632059%_))) - (_%hd3190732063%_ + (##cdr _%e3181131964%_))) + (_%hd3181231968%_ (let () (declare (not safe)) - (##car _%e3190632059%_)))) + (##car _%e3181131964%_)))) (if (gx#stx-null? - _%tl3190832066%_) - (_%__kont3863738638%_ - _%hd3190732063%_) + _%tl3181331971%_) + (_%__kont3851838519%_ + _%hd3181231968%_) (let () (declare (not safe)) - (_%g3189531930%_))))) + (_%g3180031835%_))))) (let () (declare (not safe)) - (_%g3189531930%_))) - (if (equal? _%e3190532055%_ '::) - (if (gx#stx-pair? _%tl3190032128%_) - (let ((_%e3191531951%_ + (_%g3180031835%_))) + (if (equal? _%e3181031960%_ '::) + (if (gx#stx-pair? _%tl3180532033%_) + (let ((_%e3182031856%_ (gx#syntax-e - _%tl3190032128%_))) - (let ((_%tl3191731958%_ + _%tl3180532033%_))) + (let ((_%tl3182231863%_ (let () (declare (not safe)) - (##cdr _%e3191531951%_))) - (_%hd3191631955%_ + (##cdr _%e3182031856%_))) + (_%hd3182131860%_ (let () (declare (not safe)) - (##car _%e3191531951%_)))) + (##car _%e3182031856%_)))) (if (gx#stx-pair? - _%tl3191731958%_) - (let ((_%e3191831961%_ + _%tl3182231863%_) + (let ((_%e3182331866%_ (gx#syntax-e - _%tl3191731958%_))) - (let ((_%tl3192031968%_ + _%tl3182231863%_))) + (let ((_%tl3182531873%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3191831961%_))) - (_%hd3191931965%_ - (let () (declare (not safe)) (##car _%e3191831961%_)))) - (if (gx#stx-datum? _%hd3191931965%_) - (let ((_%e3192131971%_ (gx#stx-e _%hd3191931965%_))) - (if (equal? _%e3192131971%_ '=>:) - (if (gx#stx-pair? _%tl3192031968%_) - (let ((_%e3192231975%_ - (gx#syntax-e _%tl3192031968%_))) - (let ((_%tl3192431982%_ + (##cdr _%e3182331866%_))) + (_%hd3182431870%_ + (let () (declare (not safe)) (##car _%e3182331866%_)))) + (if (gx#stx-datum? _%hd3182431870%_) + (let ((_%e3182631876%_ (gx#stx-e _%hd3182431870%_))) + (if (equal? _%e3182631876%_ '=>:) + (if (gx#stx-pair? _%tl3182531873%_) + (let ((_%e3182731880%_ + (gx#syntax-e _%tl3182531873%_))) + (let ((_%tl3182931887%_ (let () (declare (not safe)) - (##cdr _%e3192231975%_))) - (_%hd3192331979%_ + (##cdr _%e3182731880%_))) + (_%hd3182831884%_ (let () (declare (not safe)) - (##car _%e3192231975%_)))) - (if (gx#stx-null? _%tl3192431982%_) - (_%__kont3863938640%_ - _%hd3192331979%_ - _%hd3191631955%_) + (##car _%e3182731880%_)))) + (if (gx#stx-null? _%tl3182931887%_) + (_%__kont3852038521%_ + _%hd3182831884%_ + _%hd3182131860%_) (let () (declare (not safe)) - (_%g3189531930%_))))) + (_%g3180031835%_))))) (let () (declare (not safe)) - (_%g3189531930%_))) - (let () (declare (not safe)) (_%g3189531930%_)))) - (let () (declare (not safe)) (_%g3189531930%_))))) - (let () (declare (not safe)) (_%g3189531930%_))))) + (_%g3180031835%_))) + (let () (declare (not safe)) (_%g3180031835%_)))) + (let () (declare (not safe)) (_%g3180031835%_))))) + (let () (declare (not safe)) (_%g3180031835%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3189531930%_))) + (_%g3180031835%_))) (let () (declare (not safe)) - (_%g3189531930%_))))) + (_%g3180031835%_))))) (let () (declare (not safe)) - (_%g3189531930%_)))))) - (let () (declare (not safe)) (_%g3189531930%_)))))) + (_%g3180031835%_)))))) + (let () (declare (not safe)) (_%g3180031835%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%__stx3863038631%_) - (_%__kont3863338634%_) + _%__stx3851138512%_) + (_%__kont3851438515%_) (let () (declare (not safe)) - (_%g3189232142%_)))))))) - (_%__kont3871738718%_ - (lambda (_%L31773%_) - (let* ((_%__stx3861438615%_ - _%L31773%_) - (_%g3178631798%_ + (_%g3179732047%_)))))))) + (_%__kont3859838599%_ + (lambda (_%g3032831678%_) + (let* ((_%__stx3849538496%_ + _%g3032831678%_) + (_%g3169131703%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3861438615%_)))) - (let ((_%__kont3861738618%_ - (lambda (_%L31826%_ - _%L31828%_) - (_%generate129098%_ - _%tgt30364%_ - _%L31828%_ - (_%generate129098%_ - _%tgt30364%_ + _%__stx3849538496%_)))) + (let ((_%__kont3849838499%_ + (lambda (_%g3169331731%_ + _%g3169431733%_) + (_%generate129009%_ + _%tgt30269%_ + _%g3169431733%_ + (_%generate129009%_ + _%tgt30269%_ (cons 'and: - _%L31826%_) - _%K30367%_ - _%E30368%_) - _%E30368%_))) - (_%__kont3861938620%_ - (lambda () _%K30367%_))) + _%g3169331731%_) + _%K30272%_ + _%E30273%_) + _%E30273%_))) + (_%__kont3850038501%_ + (lambda () _%K30272%_))) (if (gx#stx-pair? - _%__stx3861438615%_) - (let ((_%e3179031816%_ + _%__stx3849538496%_) + (let ((_%e3169531721%_ (gx#syntax-e - _%__stx3861438615%_))) - (let ((_%tl3179231823%_ + _%__stx3849538496%_))) + (let ((_%tl3169731728%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3179031816%_))) - (_%hd3179131820%_ - (let () (declare (not safe)) (##car _%e3179031816%_)))) - (_%__kont3861738618%_ _%tl3179231823%_ _%hd3179131820%_))) + (##cdr _%e3169531721%_))) + (_%hd3169631725%_ + (let () (declare (not safe)) (##car _%e3169531721%_)))) + (_%__kont3849838499%_ _%tl3169731728%_ _%hd3169631725%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3861938620%_)))))) - (_%__kont3871938720%_ - (lambda (_%L31680%_) - (let* ((_%__stx3859838599%_ - _%L31680%_) - (_%g3169331705%_ + (_%__kont3850038501%_)))))) + (_%__kont3860038601%_ + (lambda (_%g3033331585%_) + (let* ((_%__stx3847938480%_ + _%g3033331585%_) + (_%g3159831610%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3859838599%_)))) - (let ((_%__kont3860138602%_ - (lambda (_%L31733%_ - _%L31735%_) - (_%generate129098%_ - _%tgt30364%_ - _%L31735%_ - _%K30367%_ - (_%generate129098%_ - _%tgt30364%_ - (cons 'or: _%L31733%_) - _%K30367%_ - _%E30368%_)))) - (_%__kont3860338604%_ - (lambda () _%E30368%_))) + _%__stx3847938480%_)))) + (let ((_%__kont3848238483%_ + (lambda (_%g3160031638%_ + _%g3160131640%_) + (_%generate129009%_ + _%tgt30269%_ + _%g3160131640%_ + _%K30272%_ + (_%generate129009%_ + _%tgt30269%_ + (cons 'or: + _%g3160031638%_) + _%K30272%_ + _%E30273%_)))) + (_%__kont3848438485%_ + (lambda () _%E30273%_))) (if (gx#stx-pair? - _%__stx3859838599%_) - (let ((_%e3169731723%_ + _%__stx3847938480%_) + (let ((_%e3160231628%_ (gx#syntax-e - _%__stx3859838599%_))) - (let ((_%tl3169931730%_ + _%__stx3847938480%_))) + (let ((_%tl3160431635%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3169731723%_))) - (_%hd3169831727%_ - (let () (declare (not safe)) (##car _%e3169731723%_)))) - (_%__kont3860138602%_ _%tl3169931730%_ _%hd3169831727%_))) + (##cdr _%e3160231628%_))) + (_%hd3160331632%_ + (let () (declare (not safe)) (##car _%e3160231628%_)))) + (_%__kont3848238483%_ _%tl3160431635%_ _%hd3160331632%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3860338604%_)))))) - (_%__kont3872138722%_ - (lambda (_%L31645%_) - (_%generate129098%_ - _%tgt30364%_ - _%L31645%_ - _%E30368%_ - _%K30367%_))) - (_%__kont3872338724%_ - (lambda (_%L31519%_ _%L31521%_) - (let* ((_%g3153831553%_ - (lambda (_%g3153931549%_) + (_%__kont3848438485%_)))))) + (_%__kont3860238603%_ + (lambda (_%g3033831550%_) + (_%generate129009%_ + _%tgt30269%_ + _%g3033831550%_ + _%E30273%_ + _%K30272%_))) + (_%__kont3860438605%_ + (lambda (_%g3034631424%_ + _%g3034731426%_) + (let* ((_%g3144331458%_ + (lambda (_%g3144431454%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3153931549%_))) - (_%g3153731610%_ - (lambda (_%g3153931557%_) + _%g3144431454%_))) + (_%g3144231515%_ + (lambda (_%g3144431462%_) (if (gx#stx-pair? - _%g3153931557%_) - (let ((_%e3154231560%_ + _%g3144431462%_) + (let ((_%e3144731465%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g3153931557%_))) - (let ((_%hd3154331564%_ + (gx#syntax-e _%g3144431462%_))) + (let ((_%hd3144831469%_ (let () (declare (not safe)) - (##car _%e3154231560%_))) - (_%tl3154431567%_ + (##car _%e3144731465%_))) + (_%tl3144931472%_ (let () (declare (not safe)) - (##cdr _%e3154231560%_)))) - (if (gx#stx-pair? _%tl3154431567%_) - (let ((_%e3154531570%_ - (gx#syntax-e _%tl3154431567%_))) - (let ((_%hd3154631574%_ + (##cdr _%e3144731465%_)))) + (if (gx#stx-pair? _%tl3144931472%_) + (let ((_%e3145031475%_ + (gx#syntax-e _%tl3144931472%_))) + (let ((_%hd3145131479%_ (let () (declare (not safe)) - (##car _%e3154531570%_))) - (_%tl3154731577%_ + (##car _%e3145031475%_))) + (_%tl3145231482%_ (let () (declare (not safe)) - (##cdr _%e3154531570%_)))) - (if (gx#stx-null? _%tl3154731577%_) - ((lambda (_%L31580%_ _%L31582%_) + (##cdr _%e3145031475%_)))) + (if (gx#stx-null? _%tl3145231482%_) + ((lambda (_%g3144531485%_ _%g3144631487%_) (cons 'if (cons (cons (gx#datum->syntax '#f 'pair?) - (cons _%L30385%_ '())) - (cons (let ((_%hd-pat31598%_ + (cons _%g3027730290%_ + '())) + (cons (let ((_%hd-pat31503%_ (gx#stx-e - _%L31521%_)) - (_%tl-pat31600%_ + _%g3034731426%_)) + (_%tl-pat31505%_ (gx#stx-e - _%L31519%_))) - (if (and (equal? _%hd-pat31598%_ + _%g3034631424%_))) + (if (and (equal? _%hd-pat31503%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '(any:)) - (equal? _%tl-pat31600%_ '(any:))) - _%K30367%_ - (if (equal? _%tl-pat31600%_ '(any:)) + (equal? _%tl-pat31505%_ '(any:))) + _%K30272%_ + (if (equal? _%tl-pat31505%_ '(any:)) (cons 'let - (cons (cons (cons _%L31582%_ + (cons (cons (cons _%g3144631487%_ (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L30385%_ + (cons _%g3027730290%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons (_%generate129098%_ - _%L31582%_ - _%L31521%_ - _%K30367%_ - _%E30368%_) + (cons (_%generate129009%_ + _%g3144631487%_ + _%g3034731426%_ + _%K30272%_ + _%E30273%_) '()))) - (if (equal? _%hd-pat31598%_ '(any:)) + (if (equal? _%hd-pat31503%_ '(any:)) (cons 'let - (cons (cons (cons _%L31580%_ + (cons (cons (cons _%g3144531485%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##cdr) - (cons _%L30385%_ '())) + (cons _%g3027730290%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons (_%generate129098%_ - _%L31580%_ - _%L31519%_ - _%K30367%_ - _%E30368%_) + (cons (_%generate129009%_ + _%g3144531485%_ + _%g3034631424%_ + _%K30272%_ + _%E30273%_) '()))) (cons 'let - (cons (cons (cons _%L31582%_ + (cons (cons (cons _%g3144631487%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##car) - (cons _%L30385%_ '())) + (cons _%g3027730290%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L31580%_ + (cons (cons _%g3144531485%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##cdr) - (cons _%L30385%_ '())) + (cons _%g3027730290%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (_%generate129098%_ - _%L31582%_ - _%L31521%_ - (_%generate129098%_ - _%L31580%_ - _%L31519%_ - _%K30367%_ - _%E30368%_) - _%E30368%_) + (cons (_%generate129009%_ + _%g3144631487%_ + _%g3034731426%_ + (_%generate129009%_ + _%g3144531485%_ + _%g3034631424%_ + _%K30272%_ + _%E30273%_) + _%E30273%_) '()))))))) - (cons _%E30368%_ '()))))) + (cons _%E30273%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd3154631574%_ - _%hd3154331564%_) - (_%g3153831553%_ _%g3153931557%_)))) - (_%g3153831553%_ _%g3153931557%_)))) - (_%g3153831553%_ _%g3153931557%_))))) + _%hd3145131479%_ + _%hd3144831469%_) + (_%g3144331458%_ _%g3144431462%_)))) + (_%g3144331458%_ _%g3144431462%_)))) + (_%g3144331458%_ _%g3144431462%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3153731610%_ + (_%g3144231515%_ (list (gx#genident 'hd) (gx#genident 'tl)))))) - (_%__kont3872538726%_ + (_%__kont3860638607%_ (lambda () (cons 'if (cons (cons (gx#datum->syntax '#f 'null?) - (cons _%L30385%_ + (cons _%g3027730290%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%K30367%_ (cons _%E30368%_ '())))))) + (cons _%K30272%_ (cons _%E30273%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3872738728%_ - (lambda (_%L31435%_ _%L31437%_) - (_%generate-splice29100%_ - _%tgt30364%_ - _%L31437%_ - _%L31435%_ - _%K30367%_ - _%E30368%_))) - (_%__kont3872938730%_ - (lambda (_%L31349%_) - (let* ((_%g3136331371%_ - (lambda (_%g3136431367%_) + (_%__kont3860838609%_ + (lambda (_%g3036231340%_ + _%g3036331342%_) + (_%generate-splice29011%_ + _%tgt30269%_ + _%g3036331342%_ + _%g3036231340%_ + _%K30272%_ + _%E30273%_))) + (_%__kont3861038611%_ + (lambda (_%g3037431254%_) + (let* ((_%g3126831276%_ + (lambda (_%g3126931272%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3136431367%_))) - (_%g3136231390%_ - (lambda (_%g3136431375%_) - ((lambda (_%L31378%_) + _%g3126931272%_))) + (_%g3126731295%_ + (lambda (_%g3126931280%_) + ((lambda (_%g3127031283%_) (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'box?) - (cons _%L30385%_ '())) + (cons _%g3027730290%_ '())) (cons (cons 'let - (cons (cons (cons _%L31378%_ + (cons (cons (cons _%g3127031283%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##unbox) - (cons _%L30385%_ '())) + (cons _%g3027730290%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons (_%generate129098%_ - _%L31378%_ - _%L31349%_ - _%K30367%_ - _%E30368%_) + (cons (_%generate129009%_ + _%g3127031283%_ + _%g3037431254%_ + _%K30272%_ + _%E30273%_) '()))) - (cons _%E30368%_ '()))))) - _%g3136431375%_)))) + (cons _%E30273%_ '()))))) + _%g3126931280%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3136231390%_ + (_%g3126731295%_ (gx#genident 'e))))) - (_%__kont3873138732%_ - (lambda (_%L31154%_) - (let* ((_%__stx3854838549%_ - _%L31154%_) - (_%g3116931192%_ + (_%__kont3861238613%_ + (lambda (_%g3038231059%_) + (let* ((_%__stx3842938430%_ + _%g3038231059%_) + (_%g3107431097%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3854838549%_)))) - (let ((_%__kont3855138552%_ - (lambda (_%L31269%_) - (let* ((_%g3128331291%_ - (lambda (_%g3128431287%_) + _%__stx3842938430%_)))) + (let ((_%__kont3843238433%_ + (lambda (_%g3107631174%_) + (let* ((_%g3118831196%_ + (lambda (_%g3118931192%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3128431287%_))) - (_%g3128231310%_ - (lambda (_%g3128431295%_) - ((lambda (_%L31298%_) + _%g3118931192%_))) + (_%g3118731215%_ + (lambda (_%g3118931200%_) + ((lambda (_%g3119031203%_) (cons 'if (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f 'values-count) - (cons _%L30385%_ + (cons _%g3027730290%_ '())) - (cons _%L31298%_ '()))) - (cons (_%generate-simple-vector29101%_ - _%tgt30364%_ - _%L31269%_ + (cons _%g3119031203%_ + '()))) + (cons (_%generate-simple-vector29012%_ + _%tgt30269%_ + _%g3107631174%_ '0 '##values-ref - _%K30367%_ - _%E30368%_) - (cons _%E30368%_ '()))))) - _%g3128431295%_)))) - (_%g3128231310%_ (gx#stx-length _%L31269%_))))) + _%K30272%_ + _%E30273%_) + (cons _%E30273%_ '()))))) + _%g3118931200%_)))) + (_%g3118731215%_ (gx#stx-length _%g3107631174%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3855338554%_ - (lambda (_%L31223%_) - (_%generate-list-vector29102%_ - _%tgt30364%_ - _%L31223%_ + (_%__kont3843438435%_ + (lambda (_%g3108431128%_) + (_%generate-list-vector29013%_ + _%tgt30269%_ + _%g3108431128%_ 'values->list - _%K30367%_ - _%E30368%_)))) + _%K30272%_ + _%E30273%_)))) (if (gx#stx-pair? - _%__stx3854838549%_) - (let ((_%e3117231245%_ + _%__stx3842938430%_) + (let ((_%e3107731150%_ (gx#syntax-e - _%__stx3854838549%_))) - (let ((_%tl3117431252%_ + _%__stx3842938430%_))) + (let ((_%tl3107931157%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3117231245%_))) - (_%hd3117331249%_ - (let () (declare (not safe)) (##car _%e3117231245%_)))) - (if (gx#stx-datum? _%hd3117331249%_) - (let ((_%e3117531255%_ (gx#stx-e _%hd3117331249%_))) - (if (equal? _%e3117531255%_ 'simple:) - (if (gx#stx-pair? _%tl3117431252%_) - (let ((_%e3117631259%_ - (gx#syntax-e _%tl3117431252%_))) - (let ((_%tl3117831266%_ + (##cdr _%e3107731150%_))) + (_%hd3107831154%_ + (let () (declare (not safe)) (##car _%e3107731150%_)))) + (if (gx#stx-datum? _%hd3107831154%_) + (let ((_%e3108031160%_ (gx#stx-e _%hd3107831154%_))) + (if (equal? _%e3108031160%_ 'simple:) + (if (gx#stx-pair? _%tl3107931157%_) + (let ((_%e3108131164%_ + (gx#syntax-e _%tl3107931157%_))) + (let ((_%tl3108331171%_ (let () (declare (not safe)) - (##cdr _%e3117631259%_))) - (_%hd3117731263%_ + (##cdr _%e3108131164%_))) + (_%hd3108231168%_ (let () (declare (not safe)) - (##car _%e3117631259%_)))) - (if (gx#stx-null? _%tl3117831266%_) - (_%__kont3855138552%_ _%hd3117731263%_) + (##car _%e3108131164%_)))) + (if (gx#stx-null? _%tl3108331171%_) + (_%__kont3843238433%_ _%hd3108231168%_) (let () (declare (not safe)) - (_%g3116931192%_))))) - (let () (declare (not safe)) (_%g3116931192%_))) - (if (equal? _%e3117531255%_ 'list:) - (if (gx#stx-pair? _%tl3117431252%_) - (let ((_%e3118431213%_ - (gx#syntax-e _%tl3117431252%_))) - (let ((_%tl3118631220%_ + (_%g3107431097%_))))) + (let () (declare (not safe)) (_%g3107431097%_))) + (if (equal? _%e3108031160%_ 'list:) + (if (gx#stx-pair? _%tl3107931157%_) + (let ((_%e3108931118%_ + (gx#syntax-e _%tl3107931157%_))) + (let ((_%tl3109131125%_ (let () (declare (not safe)) - (##cdr _%e3118431213%_))) - (_%hd3118531217%_ + (##cdr _%e3108931118%_))) + (_%hd3109031122%_ (let () (declare (not safe)) - (##car _%e3118431213%_)))) - (if (gx#stx-null? _%tl3118631220%_) - (_%__kont3855338554%_ - _%hd3118531217%_) + (##car _%e3108931118%_)))) + (if (gx#stx-null? _%tl3109131125%_) + (_%__kont3843438435%_ + _%hd3109031122%_) (let () (declare (not safe)) - (_%g3116931192%_))))) + (_%g3107431097%_))))) (let () (declare (not safe)) - (_%g3116931192%_))) + (_%g3107431097%_))) (let () (declare (not safe)) - (_%g3116931192%_))))) - (let () (declare (not safe)) (_%g3116931192%_))))) + (_%g3107431097%_))))) + (let () (declare (not safe)) (_%g3107431097%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3116931192%_))))))) - (_%__kont3873338734%_ - (lambda (_%L30959%_) - (let* ((_%__stx3849838499%_ - _%L30959%_) - (_%g3097430997%_ + (_%g3107431097%_))))))) + (_%__kont3861438615%_ + (lambda (_%g3039030864%_) + (let* ((_%__stx3837938380%_ + _%g3039030864%_) + (_%g3087930902%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3849838499%_)))) - (let ((_%__kont3850138502%_ - (lambda (_%L31074%_) - (let* ((_%g3108831096%_ - (lambda (_%g3108931092%_) + _%__stx3837938380%_)))) + (let ((_%__kont3838238383%_ + (lambda (_%g3088130979%_) + (let* ((_%g3099331001%_ + (lambda (_%g3099430997%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3108931092%_))) - (_%g3108731115%_ - (lambda (_%g3108931100%_) - ((lambda (_%L31103%_) + _%g3099430997%_))) + (_%g3099231020%_ + (lambda (_%g3099431005%_) + ((lambda (_%g3099531008%_) (cons 'if (cons (cons (gx#datum->syntax '#f 'vector?) - (cons _%L30385%_ '())) + (cons _%g3027730290%_ '())) (cons (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##vector-length) - (cons _%L30385%_ '())) - (cons _%L31103%_ '()))) - (cons (_%generate-simple-vector29101%_ - _%tgt30364%_ - _%L31074%_ + (cons _%g3027730290%_ '())) + (cons _%g3099531008%_ '()))) + (cons (_%generate-simple-vector29012%_ + _%tgt30269%_ + _%g3088130979%_ '0 '##vector-ref - _%K30367%_ - _%E30368%_) - (cons _%E30368%_ '())))) + _%K30272%_ + _%E30273%_) + (cons _%E30273%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%E30368%_ '()))))) - _%g3108931100%_)))) - (_%g3108731115%_ (gx#stx-length _%L31074%_))))) + (cons _%E30273%_ '()))))) + _%g3099431005%_)))) + (_%g3099231020%_ (gx#stx-length _%g3088130979%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3850338504%_ - (lambda (_%L31028%_) + (_%__kont3838438385%_ + (lambda (_%g3088930933%_) (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector?) - (cons _%L30385%_ '())) - (cons (_%generate-list-vector29102%_ - _%tgt30364%_ - _%L31028%_ + (cons _%g3027730290%_ '())) + (cons (_%generate-list-vector29013%_ + _%tgt30269%_ + _%g3088930933%_ 'vector->list - _%K30367%_ - _%E30368%_) - (cons _%E30368%_ '()))))))) + _%K30272%_ + _%E30273%_) + (cons _%E30273%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx3849838499%_) - (let ((_%e3097731050%_ + _%__stx3837938380%_) + (let ((_%e3088230955%_ (gx#syntax-e - _%__stx3849838499%_))) - (let ((_%tl3097931057%_ + _%__stx3837938380%_))) + (let ((_%tl3088430962%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3097731050%_))) - (_%hd3097831054%_ - (let () (declare (not safe)) (##car _%e3097731050%_)))) - (if (gx#stx-datum? _%hd3097831054%_) - (let ((_%e3098031060%_ (gx#stx-e _%hd3097831054%_))) - (if (equal? _%e3098031060%_ 'simple:) - (if (gx#stx-pair? _%tl3097931057%_) - (let ((_%e3098131064%_ - (gx#syntax-e _%tl3097931057%_))) - (let ((_%tl3098331071%_ + (##cdr _%e3088230955%_))) + (_%hd3088330959%_ + (let () (declare (not safe)) (##car _%e3088230955%_)))) + (if (gx#stx-datum? _%hd3088330959%_) + (let ((_%e3088530965%_ (gx#stx-e _%hd3088330959%_))) + (if (equal? _%e3088530965%_ 'simple:) + (if (gx#stx-pair? _%tl3088430962%_) + (let ((_%e3088630969%_ + (gx#syntax-e _%tl3088430962%_))) + (let ((_%tl3088830976%_ (let () (declare (not safe)) - (##cdr _%e3098131064%_))) - (_%hd3098231068%_ + (##cdr _%e3088630969%_))) + (_%hd3088730973%_ (let () (declare (not safe)) - (##car _%e3098131064%_)))) - (if (gx#stx-null? _%tl3098331071%_) - (_%__kont3850138502%_ _%hd3098231068%_) + (##car _%e3088630969%_)))) + (if (gx#stx-null? _%tl3088830976%_) + (_%__kont3838238383%_ _%hd3088730973%_) (let () (declare (not safe)) - (_%g3097430997%_))))) - (let () (declare (not safe)) (_%g3097430997%_))) - (if (equal? _%e3098031060%_ 'list:) - (if (gx#stx-pair? _%tl3097931057%_) - (let ((_%e3098931018%_ - (gx#syntax-e _%tl3097931057%_))) - (let ((_%tl3099131025%_ + (_%g3087930902%_))))) + (let () (declare (not safe)) (_%g3087930902%_))) + (if (equal? _%e3088530965%_ 'list:) + (if (gx#stx-pair? _%tl3088430962%_) + (let ((_%e3089430923%_ + (gx#syntax-e _%tl3088430962%_))) + (let ((_%tl3089630930%_ (let () (declare (not safe)) - (##cdr _%e3098931018%_))) - (_%hd3099031022%_ + (##cdr _%e3089430923%_))) + (_%hd3089530927%_ (let () (declare (not safe)) - (##car _%e3098931018%_)))) - (if (gx#stx-null? _%tl3099131025%_) - (_%__kont3850338504%_ - _%hd3099031022%_) + (##car _%e3089430923%_)))) + (if (gx#stx-null? _%tl3089630930%_) + (_%__kont3838438385%_ + _%hd3089530927%_) (let () (declare (not safe)) - (_%g3097430997%_))))) + (_%g3087930902%_))))) (let () (declare (not safe)) - (_%g3097430997%_))) + (_%g3087930902%_))) (let () (declare (not safe)) - (_%g3097430997%_))))) - (let () (declare (not safe)) (_%g3097430997%_))))) + (_%g3087930902%_))))) + (let () (declare (not safe)) (_%g3087930902%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3097430997%_))))))) - (_%__kont3873538736%_ - (lambda (_%L30910%_ _%L30912%_) - (_%generate-struct29103%_ - (gx#stx-e _%L30912%_) - _%tgt30364%_ - _%L30910%_ - _%K30367%_ - _%E30368%_))) - (_%__kont3873738738%_ - (lambda (_%L30851%_ _%L30853%_) - (_%generate-class29106%_ - (gx#stx-e _%L30853%_) - _%tgt30364%_ - _%L30851%_ - _%K30367%_ - _%E30368%_))) - (_%__kont3873938740%_ - (lambda (_%L30748%_) - (let* ((_%g3076230770%_ - (lambda (_%g3076330766%_) + (_%g3087930902%_))))))) + (_%__kont3861638617%_ + (lambda (_%g3039830815%_ + _%g3039930817%_) + (_%generate-struct29014%_ + (gx#stx-e _%g3039930817%_) + _%tgt30269%_ + _%g3039830815%_ + _%K30272%_ + _%E30273%_))) + (_%__kont3861838619%_ + (lambda (_%g3041030756%_ + _%g3041130758%_) + (_%generate-class29017%_ + (gx#stx-e _%g3041130758%_) + _%tgt30269%_ + _%g3041030756%_ + _%K30272%_ + _%E30273%_))) + (_%__kont3862038621%_ + (lambda (_%g3042230653%_) + (let* ((_%g3066730675%_ + (lambda (_%g3066830671%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3076330766%_))) - (_%g3076130789%_ - (lambda (_%g3076330774%_) - ((lambda (_%L30777%_) + _%g3066830671%_))) + (_%g3066630694%_ + (lambda (_%g3066830679%_) + ((lambda (_%g3066930682%_) (cons 'if - (cons (cons _%L30777%_ + (cons (cons _%g3066930682%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L30385%_ + (cons _%g3027730290%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L30748%_ '())) + (cons _%g3042230653%_ + '())) '()))) - (cons _%K30367%_ (cons _%E30368%_ '()))))) - _%g3076330774%_)))) + (cons _%K30272%_ (cons _%E30273%_ '()))))) + _%g3066830679%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3076130789%_ - (let ((_%e30793%_ - (gx#stx-e _%L30748%_))) - (if (or (symbol? _%e30793%_) - (keyword? _%e30793%_) + (_%g3066630694%_ + (let ((_%e30698%_ + (gx#stx-e + _%g3042230653%_))) + (if (or (symbol? _%e30698%_) + (keyword? _%e30698%_) (immediate? - _%e30793%_)) + _%e30698%_)) '##eq? - (if (number? _%e30793%_) + (if (number? _%e30698%_) 'eqv? 'equal?))))))) - (_%__kont3874138742%_ - (lambda (_%L30668%_ _%L30670%_) - (let* ((_%g3068630694%_ - (lambda (_%g3068730690%_) + (_%__kont3862238623%_ + (lambda (_%g3043030573%_ + _%g3043130575%_) + (let* ((_%g3059130599%_ + (lambda (_%g3059230595%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3068730690%_))) - (_%g3068530713%_ - (lambda (_%g3068730698%_) - ((lambda (_%L30701%_) + _%g3059230595%_))) + (_%g3059030618%_ + (lambda (_%g3059230603%_) + ((lambda (_%g3059330606%_) (cons 'let - (cons (cons (cons _%L30701%_ + (cons (cons (cons _%g3059330606%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L30670%_ - (cons _%L30385%_ '())) + (cons (cons _%g3043130575%_ + (cons _%g3027730290%_ + '())) '())) '()) - (cons (_%generate129098%_ - _%L30701%_ - _%L30668%_ - _%K30367%_ - _%E30368%_) + (cons (_%generate129009%_ + _%g3059330606%_ + _%g3043030573%_ + _%K30272%_ + _%E30273%_) '())))) - _%g3068730698%_)))) + _%g3059230603%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3068530713%_ + (_%g3059030618%_ (gx#genident 'e))))) - (_%__kont3874338744%_ - (lambda (_%L30610%_) + (_%__kont3862438625%_ + (lambda (_%g3044230515%_) (cons 'let - (cons (cons (cons _%L30610%_ + (cons (cons (cons _%g3044230515%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L30385%_ '())) + (cons _%g3027730290%_ '())) '()) - (cons _%K30367%_ '()))))) + (cons _%K30272%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3874538746%_ - (lambda () _%K30367%_))) - (if (gx#stx-pair? _%__stx3871238713%_) - (let ((_%e3041631852%_ + (_%__kont3862638627%_ + (lambda () _%K30272%_))) + (if (gx#stx-pair? _%__stx3859338594%_) + (let ((_%e3032131757%_ (gx#syntax-e - _%__stx3871238713%_))) - (let ((_%tl3041831859%_ + _%__stx3859338594%_))) + (let ((_%tl3032331764%_ (let () (declare (not safe)) - (##cdr _%e3041631852%_))) - (_%hd3041731856%_ + (##cdr _%e3032131757%_))) + (_%hd3032231761%_ (let () (declare (not safe)) - (##car _%e3041631852%_)))) + (##car _%e3032131757%_)))) (if (gx#stx-datum? - _%hd3041731856%_) - (let ((_%e3041931862%_ + _%hd3032231761%_) + (let ((_%e3032431767%_ (gx#stx-e - _%hd3041731856%_))) - (if (equal? _%e3041931862%_ + _%hd3032231761%_))) + (if (equal? _%e3032431767%_ '?:) (if (gx#stx-pair? - _%tl3041831859%_) - (let ((_%e3042031866%_ + _%tl3032331764%_) + (let ((_%e3032531771%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3041831859%_))) - (let ((_%tl3042231873%_ + (gx#syntax-e _%tl3032331764%_))) + (let ((_%tl3032731778%_ (let () (declare (not safe)) - (##cdr _%e3042031866%_))) - (_%hd3042131870%_ + (##cdr _%e3032531771%_))) + (_%hd3032631775%_ (let () (declare (not safe)) - (##car _%e3042031866%_)))) - (_%__kont3871538716%_ - _%tl3042231873%_ - _%hd3042131870%_))) - (let () (declare (not safe)) (_%g3041230554%_))) - (if (equal? _%e3041931862%_ 'and:) - (_%__kont3871738718%_ _%tl3041831859%_) - (if (equal? _%e3041931862%_ 'or:) - (_%__kont3871938720%_ _%tl3041831859%_) - (if (equal? _%e3041931862%_ 'not:) - (if (gx#stx-pair? _%tl3041831859%_) - (let ((_%e3043831635%_ - (gx#syntax-e _%tl3041831859%_))) - (let ((_%tl3044031642%_ + (##car _%e3032531771%_)))) + (_%__kont3859638597%_ + _%tl3032731778%_ + _%hd3032631775%_))) + (let () (declare (not safe)) (_%g3031730459%_))) + (if (equal? _%e3032431767%_ 'and:) + (_%__kont3859838599%_ _%tl3032331764%_) + (if (equal? _%e3032431767%_ 'or:) + (_%__kont3860038601%_ _%tl3032331764%_) + (if (equal? _%e3032431767%_ 'not:) + (if (gx#stx-pair? _%tl3032331764%_) + (let ((_%e3034331540%_ + (gx#syntax-e _%tl3032331764%_))) + (let ((_%tl3034531547%_ (let () (declare (not safe)) - (##cdr _%e3043831635%_))) - (_%hd3043931639%_ + (##cdr _%e3034331540%_))) + (_%hd3034431544%_ (let () (declare (not safe)) - (##car _%e3043831635%_)))) - (if (gx#stx-null? _%tl3044031642%_) - (_%__kont3872138722%_ _%hd3043931639%_) + (##car _%e3034331540%_)))) + (if (gx#stx-null? _%tl3034531547%_) + (_%__kont3860238603%_ _%hd3034431544%_) (let () (declare (not safe)) - (_%g3041230554%_))))) - (let () (declare (not safe)) (_%g3041230554%_))) - (if (equal? _%e3041931862%_ 'cons:) - (if (gx#stx-pair? _%tl3041831859%_) - (let ((_%e3044731499%_ - (gx#syntax-e _%tl3041831859%_))) - (let ((_%tl3044931506%_ + (_%g3031730459%_))))) + (let () (declare (not safe)) (_%g3031730459%_))) + (if (equal? _%e3032431767%_ 'cons:) + (if (gx#stx-pair? _%tl3032331764%_) + (let ((_%e3035231404%_ + (gx#syntax-e _%tl3032331764%_))) + (let ((_%tl3035431411%_ (let () (declare (not safe)) - (##cdr _%e3044731499%_))) - (_%hd3044831503%_ + (##cdr _%e3035231404%_))) + (_%hd3035331408%_ (let () (declare (not safe)) - (##car _%e3044731499%_)))) - (if (gx#stx-pair? _%tl3044931506%_) - (let ((_%e3045031509%_ + (##car _%e3035231404%_)))) + (if (gx#stx-pair? _%tl3035431411%_) + (let ((_%e3035531414%_ (gx#syntax-e - _%tl3044931506%_))) - (let ((_%tl3045231516%_ + _%tl3035431411%_))) + (let ((_%tl3035731421%_ (let () (declare (not safe)) - (##cdr _%e3045031509%_))) - (_%hd3045131513%_ + (##cdr _%e3035531414%_))) + (_%hd3035631418%_ (let () (declare (not safe)) - (##car _%e3045031509%_)))) + (##car _%e3035531414%_)))) (if (gx#stx-null? - _%tl3045231516%_) - (_%__kont3872338724%_ - _%hd3045131513%_ - _%hd3044831503%_) + _%tl3035731421%_) + (_%__kont3860438605%_ + _%hd3035631418%_ + _%hd3035331408%_) (let () (declare (not safe)) - (_%g3041230554%_))))) + (_%g3031730459%_))))) (let () (declare (not safe)) - (_%g3041230554%_))))) + (_%g3031730459%_))))) (let () (declare (not safe)) - (_%g3041230554%_))) - (if (equal? _%e3041931862%_ 'null:) - (if (gx#stx-null? _%tl3041831859%_) - (_%__kont3872538726%_) + (_%g3031730459%_))) + (if (equal? _%e3032431767%_ 'null:) + (if (gx#stx-null? _%tl3032331764%_) + (_%__kont3860638607%_) (let () (declare (not safe)) - (_%g3041230554%_))) - (if (equal? _%e3041931862%_ 'splice:) - (if (gx#stx-pair? _%tl3041831859%_) - (let ((_%e3046331415%_ + (_%g3031730459%_))) + (if (equal? _%e3032431767%_ 'splice:) + (if (gx#stx-pair? _%tl3032331764%_) + (let ((_%e3036831320%_ (gx#syntax-e - _%tl3041831859%_))) - (let ((_%tl3046531422%_ + _%tl3032331764%_))) + (let ((_%tl3037031327%_ (let () (declare (not safe)) - (##cdr _%e3046331415%_))) - (_%hd3046431419%_ + (##cdr _%e3036831320%_))) + (_%hd3036931324%_ (let () (declare (not safe)) - (##car _%e3046331415%_)))) + (##car _%e3036831320%_)))) (if (gx#stx-pair? - _%tl3046531422%_) - (let ((_%e3046631425%_ + _%tl3037031327%_) + (let ((_%e3037131330%_ (gx#syntax-e - _%tl3046531422%_))) - (let ((_%tl3046831432%_ + _%tl3037031327%_))) + (let ((_%tl3037331337%_ (let () (declare (not safe)) - (##cdr _%e3046631425%_))) - (_%hd3046731429%_ + (##cdr _%e3037131330%_))) + (_%hd3037231334%_ (let () (declare (not safe)) - (##car _%e3046631425%_)))) + (##car _%e3037131330%_)))) (if (gx#stx-null? - _%tl3046831432%_) - (_%__kont3872738728%_ - _%hd3046731429%_ - _%hd3046431419%_) + _%tl3037331337%_) + (_%__kont3860838609%_ + _%hd3037231334%_ + _%hd3036931324%_) (let () (declare (not safe)) - (_%g3041230554%_))))) + (_%g3031730459%_))))) (let () (declare (not safe)) - (_%g3041230554%_))))) + (_%g3031730459%_))))) (let () (declare (not safe)) - (_%g3041230554%_))) - (if (equal? _%e3041931862%_ 'box:) - (if (gx#stx-pair? _%tl3041831859%_) - (let ((_%e3047431339%_ + (_%g3031730459%_))) + (if (equal? _%e3032431767%_ 'box:) + (if (gx#stx-pair? _%tl3032331764%_) + (let ((_%e3037931244%_ (gx#syntax-e - _%tl3041831859%_))) - (let ((_%tl3047631346%_ + _%tl3032331764%_))) + (let ((_%tl3038131251%_ (let () (declare (not safe)) - (##cdr _%e3047431339%_))) - (_%hd3047531343%_ + (##cdr _%e3037931244%_))) + (_%hd3038031248%_ (let () (declare (not safe)) - (##car _%e3047431339%_)))) + (##car _%e3037931244%_)))) (if (gx#stx-null? - _%tl3047631346%_) - (_%__kont3872938730%_ - _%hd3047531343%_) + _%tl3038131251%_) + (_%__kont3861038611%_ + _%hd3038031248%_) (let () (declare (not safe)) - (_%g3041230554%_))))) + (_%g3031730459%_))))) (let () (declare (not safe)) - (_%g3041230554%_))) - (if (equal? _%e3041931862%_ + (_%g3031730459%_))) + (if (equal? _%e3032431767%_ 'values:) (if (gx#stx-pair? - _%tl3041831859%_) - (let ((_%e3048231144%_ + _%tl3032331764%_) + (let ((_%e3038731049%_ (gx#syntax-e - _%tl3041831859%_))) - (let ((_%tl3048431151%_ + _%tl3032331764%_))) + (let ((_%tl3038931056%_ (let () (declare (not safe)) - (##cdr _%e3048231144%_))) - (_%hd3048331148%_ + (##cdr _%e3038731049%_))) + (_%hd3038831053%_ (let () (declare (not safe)) - (##car _%e3048231144%_)))) + (##car _%e3038731049%_)))) (if (gx#stx-null? - _%tl3048431151%_) - (_%__kont3873138732%_ - _%hd3048331148%_) + _%tl3038931056%_) + (_%__kont3861238613%_ + _%hd3038831053%_) (let () (declare (not safe)) - (_%g3041230554%_))))) + (_%g3031730459%_))))) (let () (declare (not safe)) - (_%g3041230554%_))) - (if (equal? _%e3041931862%_ + (_%g3031730459%_))) + (if (equal? _%e3032431767%_ 'vector:) (if (gx#stx-pair? - _%tl3041831859%_) - (let ((_%e3049030949%_ + _%tl3032331764%_) + (let ((_%e3039530854%_ (gx#syntax-e - _%tl3041831859%_))) - (let ((_%tl3049230956%_ + _%tl3032331764%_))) + (let ((_%tl3039730861%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3049030949%_))) - (_%hd3049130953%_ - (let () (declare (not safe)) (##car _%e3049030949%_)))) - (if (gx#stx-null? _%tl3049230956%_) - (_%__kont3873338734%_ _%hd3049130953%_) - (let () (declare (not safe)) (_%g3041230554%_))))) - (let () (declare (not safe)) (_%g3041230554%_))) + (##cdr _%e3039530854%_))) + (_%hd3039630858%_ + (let () (declare (not safe)) (##car _%e3039530854%_)))) + (if (gx#stx-null? _%tl3039730861%_) + (_%__kont3861438615%_ _%hd3039630858%_) + (let () (declare (not safe)) (_%g3031730459%_))))) + (let () (declare (not safe)) (_%g3031730459%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _%e3041931862%_ + (if (equal? _%e3032431767%_ 'struct:) (if (gx#stx-pair? - _%tl3041831859%_) - (let ((_%e3049930890%_ + _%tl3032331764%_) + (let ((_%e3040430795%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3041831859%_))) - (let ((_%tl3050130897%_ + (gx#syntax-e _%tl3032331764%_))) + (let ((_%tl3040630802%_ (let () (declare (not safe)) - (##cdr _%e3049930890%_))) - (_%hd3050030894%_ + (##cdr _%e3040430795%_))) + (_%hd3040530799%_ (let () (declare (not safe)) - (##car _%e3049930890%_)))) - (if (gx#stx-pair? _%tl3050130897%_) - (let ((_%e3050230900%_ - (gx#syntax-e _%tl3050130897%_))) - (let ((_%tl3050430907%_ + (##car _%e3040430795%_)))) + (if (gx#stx-pair? _%tl3040630802%_) + (let ((_%e3040730805%_ + (gx#syntax-e _%tl3040630802%_))) + (let ((_%tl3040930812%_ (let () (declare (not safe)) - (##cdr _%e3050230900%_))) - (_%hd3050330904%_ + (##cdr _%e3040730805%_))) + (_%hd3040830809%_ (let () (declare (not safe)) - (##car _%e3050230900%_)))) - (if (gx#stx-null? _%tl3050430907%_) - (_%__kont3873538736%_ - _%hd3050330904%_ - _%hd3050030894%_) + (##car _%e3040730805%_)))) + (if (gx#stx-null? _%tl3040930812%_) + (_%__kont3861638617%_ + _%hd3040830809%_ + _%hd3040530799%_) (let () (declare (not safe)) - (_%g3041230554%_))))) - (let () (declare (not safe)) (_%g3041230554%_))))) - (let () (declare (not safe)) (_%g3041230554%_))) - (if (equal? _%e3041931862%_ 'class:) - (if (gx#stx-pair? _%tl3041831859%_) - (let ((_%e3051130831%_ (gx#syntax-e _%tl3041831859%_))) - (let ((_%tl3051330838%_ + (_%g3031730459%_))))) + (let () (declare (not safe)) (_%g3031730459%_))))) + (let () (declare (not safe)) (_%g3031730459%_))) + (if (equal? _%e3032431767%_ 'class:) + (if (gx#stx-pair? _%tl3032331764%_) + (let ((_%e3041630736%_ (gx#syntax-e _%tl3032331764%_))) + (let ((_%tl3041830743%_ (let () (declare (not safe)) - (##cdr _%e3051130831%_))) - (_%hd3051230835%_ + (##cdr _%e3041630736%_))) + (_%hd3041730740%_ (let () (declare (not safe)) - (##car _%e3051130831%_)))) - (if (gx#stx-pair? _%tl3051330838%_) - (let ((_%e3051430841%_ - (gx#syntax-e _%tl3051330838%_))) - (let ((_%tl3051630848%_ + (##car _%e3041630736%_)))) + (if (gx#stx-pair? _%tl3041830743%_) + (let ((_%e3041930746%_ + (gx#syntax-e _%tl3041830743%_))) + (let ((_%tl3042130753%_ (let () (declare (not safe)) - (##cdr _%e3051430841%_))) - (_%hd3051530845%_ + (##cdr _%e3041930746%_))) + (_%hd3042030750%_ (let () (declare (not safe)) - (##car _%e3051430841%_)))) - (if (gx#stx-null? _%tl3051630848%_) - (_%__kont3873738738%_ - _%hd3051530845%_ - _%hd3051230835%_) + (##car _%e3041930746%_)))) + (if (gx#stx-null? _%tl3042130753%_) + (_%__kont3861838619%_ + _%hd3042030750%_ + _%hd3041730740%_) (let () (declare (not safe)) - (_%g3041230554%_))))) + (_%g3031730459%_))))) (let () (declare (not safe)) - (_%g3041230554%_))))) - (let () (declare (not safe)) (_%g3041230554%_))) - (if (equal? _%e3041931862%_ 'datum:) - (if (gx#stx-pair? _%tl3041831859%_) - (let ((_%e3052230738%_ - (gx#syntax-e _%tl3041831859%_))) - (let ((_%tl3052430745%_ + (_%g3031730459%_))))) + (let () (declare (not safe)) (_%g3031730459%_))) + (if (equal? _%e3032431767%_ 'datum:) + (if (gx#stx-pair? _%tl3032331764%_) + (let ((_%e3042730643%_ + (gx#syntax-e _%tl3032331764%_))) + (let ((_%tl3042930650%_ (let () (declare (not safe)) - (##cdr _%e3052230738%_))) - (_%hd3052330742%_ + (##cdr _%e3042730643%_))) + (_%hd3042830647%_ (let () (declare (not safe)) - (##car _%e3052230738%_)))) - (if (gx#stx-null? _%tl3052430745%_) - (_%__kont3873938740%_ _%hd3052330742%_) + (##car _%e3042730643%_)))) + (if (gx#stx-null? _%tl3042930650%_) + (_%__kont3862038621%_ _%hd3042830647%_) (let () (declare (not safe)) - (_%g3041230554%_))))) - (let () (declare (not safe)) (_%g3041230554%_))) - (if (equal? _%e3041931862%_ 'apply:) - (if (gx#stx-pair? _%tl3041831859%_) - (let ((_%e3053130648%_ - (gx#syntax-e _%tl3041831859%_))) - (let ((_%tl3053330655%_ + (_%g3031730459%_))))) + (let () (declare (not safe)) (_%g3031730459%_))) + (if (equal? _%e3032431767%_ 'apply:) + (if (gx#stx-pair? _%tl3032331764%_) + (let ((_%e3043630553%_ + (gx#syntax-e _%tl3032331764%_))) + (let ((_%tl3043830560%_ (let () (declare (not safe)) - (##cdr _%e3053130648%_))) - (_%hd3053230652%_ + (##cdr _%e3043630553%_))) + (_%hd3043730557%_ (let () (declare (not safe)) - (##car _%e3053130648%_)))) - (if (gx#stx-pair? _%tl3053330655%_) - (let ((_%e3053430658%_ - (gx#syntax-e _%tl3053330655%_))) - (let ((_%tl3053630665%_ + (##car _%e3043630553%_)))) + (if (gx#stx-pair? _%tl3043830560%_) + (let ((_%e3043930563%_ + (gx#syntax-e _%tl3043830560%_))) + (let ((_%tl3044130570%_ (let () (declare (not safe)) - (##cdr _%e3053430658%_))) - (_%hd3053530662%_ + (##cdr _%e3043930563%_))) + (_%hd3044030567%_ (let () (declare (not safe)) - (##car _%e3053430658%_)))) - (if (gx#stx-null? _%tl3053630665%_) - (_%__kont3874138742%_ - _%hd3053530662%_ - _%hd3053230652%_) + (##car _%e3043930563%_)))) + (if (gx#stx-null? _%tl3044130570%_) + (_%__kont3862238623%_ + _%hd3044030567%_ + _%hd3043730557%_) (let () (declare (not safe)) - (_%g3041230554%_))))) + (_%g3031730459%_))))) (let () (declare (not safe)) - (_%g3041230554%_))))) - (let () (declare (not safe)) (_%g3041230554%_))) - (if (equal? _%e3041931862%_ 'var:) - (if (gx#stx-pair? _%tl3041831859%_) - (let ((_%e3054230600%_ - (gx#syntax-e _%tl3041831859%_))) - (let ((_%tl3054430607%_ + (_%g3031730459%_))))) + (let () (declare (not safe)) (_%g3031730459%_))) + (if (equal? _%e3032431767%_ 'var:) + (if (gx#stx-pair? _%tl3032331764%_) + (let ((_%e3044730505%_ + (gx#syntax-e _%tl3032331764%_))) + (let ((_%tl3044930512%_ (let () (declare (not safe)) - (##cdr _%e3054230600%_))) - (_%hd3054330604%_ + (##cdr _%e3044730505%_))) + (_%hd3044830509%_ (let () (declare (not safe)) - (##car _%e3054230600%_)))) - (if (gx#stx-null? _%tl3054430607%_) - (_%__kont3874338744%_ - _%hd3054330604%_) + (##car _%e3044730505%_)))) + (if (gx#stx-null? _%tl3044930512%_) + (_%__kont3862438625%_ + _%hd3044830509%_) (let () (declare (not safe)) - (_%g3041230554%_))))) + (_%g3031730459%_))))) (let () (declare (not safe)) - (_%g3041230554%_))) - (if (equal? _%e3041931862%_ 'any:) - (if (gx#stx-null? _%tl3041831859%_) - (_%__kont3874538746%_) + (_%g3031730459%_))) + (if (equal? _%e3032431767%_ 'any:) + (if (gx#stx-null? _%tl3032331764%_) + (_%__kont3862638627%_) (let () (declare (not safe)) - (_%g3041230554%_))) + (_%g3031730459%_))) (let () (declare (not safe)) - (_%g3041230554%_))))))))))))))))))) + (_%g3031730459%_))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3041230554%_))))) + (_%g3031730459%_))))) (let () (declare (not safe)) - (_%g3041230554%_)))))) - _%g3037130382%_)))) - (_%g3036932161%_ _%tgt30364%_)))) - (_%generate-splice29100%_ - (lambda (_%tgt29736%_ - _%hd29738%_ - _%rest29739%_ - _%K29740%_ - _%E29741%_) - (let* ((_%g2974329760%_ - (lambda (_%g2974429756%_) + (_%g3031730459%_)))))) + _%g3027630287%_)))) + (_%g3027432066%_ _%tgt30269%_)))) + (_%generate-splice29011%_ + (lambda (_%tgt29647%_ + _%hd29649%_ + _%rest29650%_ + _%K29651%_ + _%E29652%_) + (let* ((_%g2965429671%_ + (lambda (_%g2965529667%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2974429756%_))) - (_%g2974230360%_ - (lambda (_%g2974429764%_) - (if (gx#stx-pair/null? _%g2974429764%_) - (let ((_g39867_ + _%g2965529667%_))) + (_%g2965330265%_ + (lambda (_%g2965529675%_) + (if (gx#stx-pair/null? _%g2965529675%_) + (let ((_g39748_ (gx#syntax-split-splice - _%g2974429764%_ + _%g2965529675%_ '0))) (begin - (let ((_g39868_ + (let ((_g39749_ (let () (declare (not safe)) - (if (##values? _g39867_) - (##values-length _g39867_) + (if (##values? _g39748_) + (##values-length _g39748_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g39868_ 2))) + (##fx= _g39749_ 2))) (error "Context expects 2 values" - _g39868_))) - (let ((_%target2974629767%_ + _g39749_))) + (let ((_%target2965729678%_ (let () (declare (not safe)) - (##values-ref _g39867_ 0))) - (_%tl2974829770%_ + (##values-ref _g39748_ 0))) + (_%tl2965929681%_ (let () (declare (not safe)) - (##values-ref _g39867_ 1)))) - (if (gx#stx-null? _%tl2974829770%_) - (letrec ((_%loop2974929773%_ - (lambda (_%hd2974729777%_ - _%var2975329780%_) + (##values-ref _g39748_ 1)))) + (if (gx#stx-null? _%tl2965929681%_) + (letrec ((_%loop2966029684%_ + (lambda (_%hd2965829688%_ + _%var2966429691%_) (if (gx#stx-pair? - _%hd2974729777%_) - (let ((_%e2975029783%_ + _%hd2965829688%_) + (let ((_%e2966129693%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd2974729777%_))) - (let ((_%lp-hd2975129787%_ + (gx#syntax-e _%hd2965829688%_))) + (let ((_%lp-hd2966229697%_ (let () (declare (not safe)) - (##car _%e2975029783%_))) - (_%lp-tl2975229790%_ + (##car _%e2966129693%_))) + (_%lp-tl2966329700%_ (let () (declare (not safe)) - (##cdr _%e2975029783%_)))) - (_%loop2974929773%_ - _%lp-tl2975229790%_ - (cons _%lp-hd2975129787%_ _%var2975329780%_)))) - (let ((_%var2975429793%_ (reverse _%var2975329780%_))) - ((lambda (_%L29797%_) - (let* ((_%g2981329830%_ - (lambda (_%g2981429826%_) + (##cdr _%e2966129693%_)))) + (_%loop2966029684%_ + _%lp-tl2966329700%_ + (cons _%lp-hd2966229697%_ _%var2966429691%_)))) + (let ((_%var2966529703%_ (reverse _%var2966429691%_))) + ((lambda (_%g2965629706%_) + (let* ((_%g2972229739%_ + (lambda (_%g2972329735%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2981429826%_))) - (_%g2981230348%_ - (lambda (_%g2981429834%_) - (if (gx#stx-pair/null? _%g2981429834%_) - (let ((_g39869_ + _%g2972329735%_))) + (_%g2972130253%_ + (lambda (_%g2972329743%_) + (if (gx#stx-pair/null? _%g2972329743%_) + (let ((_g39750_ (gx#syntax-split-splice - _%g2981429834%_ + _%g2972329743%_ '0))) (begin - (let ((_g39870_ + (let ((_g39751_ (let () (declare (not safe)) - (if (##values? _g39869_) + (if (##values? _g39750_) (##values-length - _g39869_) + _g39750_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g39870_ 2))) + (##fx= _g39751_ 2))) (error "Context expects 2 values" - _g39870_))) - (let ((_%target2981629837%_ + _g39751_))) + (let ((_%target2972529746%_ (let () (declare (not safe)) - (##values-ref _g39869_ 0))) - (_%tl2981829840%_ + (##values-ref _g39750_ 0))) + (_%tl2972729749%_ (let () (declare (not safe)) (##values-ref - _g39869_ + _g39750_ 1)))) (if (gx#stx-null? - _%tl2981829840%_) - (letrec ((_%loop2981929843%_ - (lambda (_%hd2981729847%_ + _%tl2972729749%_) + (letrec ((_%loop2972829752%_ + (lambda (_%hd2972629756%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%var-r2982329850%_) - (if (gx#stx-pair? _%hd2981729847%_) - (let ((_%e2982029853%_ - (gx#syntax-e _%hd2981729847%_))) - (let ((_%lp-hd2982129857%_ + _%var-r2973229759%_) + (if (gx#stx-pair? _%hd2972629756%_) + (let ((_%e2972929761%_ + (gx#syntax-e _%hd2972629756%_))) + (let ((_%lp-hd2973029765%_ (let () (declare (not safe)) - (##car _%e2982029853%_))) - (_%lp-tl2982229860%_ + (##car _%e2972929761%_))) + (_%lp-tl2973129768%_ (let () (declare (not safe)) - (##cdr _%e2982029853%_)))) - (_%loop2981929843%_ - _%lp-tl2982229860%_ - (cons _%lp-hd2982129857%_ _%var-r2982329850%_)))) - (let ((_%var-r2982429863%_ - (reverse _%var-r2982329850%_))) - ((lambda (_%L29867%_) - (let* ((_%g2988429901%_ - (lambda (_%g2988529897%_) + (##cdr _%e2972929761%_)))) + (_%loop2972829752%_ + _%lp-tl2973129768%_ + (cons _%lp-hd2973029765%_ _%var-r2973229759%_)))) + (let ((_%var-r2973329771%_ + (reverse _%var-r2973229759%_))) + ((lambda (_%g2972429774%_) + (let* ((_%g2979129808%_ + (lambda (_%g2979229804%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2988529897%_))) - (_%g2988330336%_ - (lambda (_%g2988529905%_) - (if (gx#stx-pair/null? _%g2988529905%_) - (let ((_g39871_ + _%g2979229804%_))) + (_%g2979030241%_ + (lambda (_%g2979229812%_) + (if (gx#stx-pair/null? _%g2979229812%_) + (let ((_g39752_ (gx#syntax-split-splice - _%g2988529905%_ + _%g2979229812%_ '0))) (begin - (let ((_g39872_ + (let ((_g39753_ (let () (declare (not safe)) (if (##values? - _g39871_) + _g39752_) (##values-length - _g39871_) + _g39752_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g39872_ + (##fx= _g39753_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g39872_))) + (error "Context expects 2 values" _g39753_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2988729908%_ + (let ((_%target2979429815%_ (let () (declare (not safe)) (##values-ref - _g39871_ + _g39752_ 0))) - (_%tl2988929911%_ + (_%tl2979629818%_ (let () (declare (not safe)) (##values-ref - _g39871_ + _g39752_ 1)))) (if (gx#stx-null? - _%tl2988929911%_) - (letrec ((_%loop2989029914%_ - (lambda (_%hd2988829918%_ + _%tl2979629818%_) + (letrec ((_%loop2979729821%_ + (lambda (_%hd2979529825%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%init2989429921%_) - (if (gx#stx-pair? _%hd2988829918%_) - (let ((_%e2989129924%_ - (gx#syntax-e _%hd2988829918%_))) - (let ((_%lp-hd2989229928%_ + _%init2980129828%_) + (if (gx#stx-pair? _%hd2979529825%_) + (let ((_%e2979829830%_ + (gx#syntax-e _%hd2979529825%_))) + (let ((_%lp-hd2979929834%_ (let () (declare (not safe)) - (##car _%e2989129924%_))) - (_%lp-tl2989329931%_ + (##car _%e2979829830%_))) + (_%lp-tl2980029837%_ (let () (declare (not safe)) - (##cdr _%e2989129924%_)))) - (_%loop2989029914%_ - _%lp-tl2989329931%_ - (cons _%lp-hd2989229928%_ - _%init2989429921%_)))) - (let ((_%init2989529934%_ - (reverse _%init2989429921%_))) - ((lambda (_%L29938%_) - (let* ((_%g2995529963%_ - (lambda (_%g2995629959%_) + (##cdr _%e2979829830%_)))) + (_%loop2979729821%_ + _%lp-tl2980029837%_ + (cons _%lp-hd2979929834%_ + _%init2980129828%_)))) + (let ((_%init2980229840%_ + (reverse _%init2980129828%_))) + ((lambda (_%g2979329843%_) + (let* ((_%g2986029868%_ + (lambda (_%g2986129864%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2995629959%_))) - (_%g2995430332%_ - (lambda (_%g2995629967%_) - ((lambda (_%L29970%_) - (let* ((_%g2998329991%_ - (lambda (_%g2998429987%_) + _%g2986129864%_))) + (_%g2985930237%_ + (lambda (_%g2986129872%_) + ((lambda (_%g2986229875%_) + (let* ((_%g2988829896%_ + (lambda (_%g2988929892%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2998429987%_))) - (_%g2998230328%_ - (lambda (_%g2998429995%_) - ((lambda (_%L29998%_) - (let* ((_%g3001130019%_ + _%g2988929892%_))) + (_%g2988730233%_ + (lambda (_%g2988929900%_) + ((lambda (_%g2989029903%_) + (let* ((_%g2991629924%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g3001230015%_) + (lambda (_%g2991729920%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3001230015%_))) - (_%g3001030324%_ - (lambda (_%g3001230023%_) - ((lambda (_%L30026%_) - (let* ((_%g3003930047%_ - (lambda (_%g3004030043%_) + _%g2991729920%_))) + (_%g2991530229%_ + (lambda (_%g2991729928%_) + ((lambda (_%g2991829931%_) + (let* ((_%g2994429952%_ + (lambda (_%g2994529948%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3004030043%_))) - (_%g3003830320%_ - (lambda (_%g3004030051%_) - ((lambda (_%L30054%_) - (let* ((_%g3006730075%_ - (lambda (_%g3006830071%_) + _%g2994529948%_))) + (_%g2994330225%_ + (lambda (_%g2994529956%_) + ((lambda (_%g2994629959%_) + (let* ((_%g2997229980%_ + (lambda (_%g2997329976%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3006830071%_))) - (_%g3006630316%_ - (lambda (_%g3006830079%_) - ((lambda (_%L30082%_) - (let* ((_%g3009530103%_ + _%g2997329976%_))) + (_%g2997130221%_ + (lambda (_%g2997329984%_) + ((lambda (_%g2997429987%_) + (let* ((_%g3000030008%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g3009630099%_) + (lambda (_%g3000130004%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3009630099%_))) - (_%g3009430312%_ - (lambda (_%g3009630107%_) - ((lambda (_%L30110%_) - (let* ((_%g3012330131%_ - (lambda (_%g3012430127%_) + _%g3000130004%_))) + (_%g2999930217%_ + (lambda (_%g3000130012%_) + ((lambda (_%g3000230015%_) + (let* ((_%g3002830036%_ + (lambda (_%g3002930032%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3012430127%_))) - (_%g3012230308%_ - (lambda (_%g3012430135%_) - ((lambda (_%L30138%_) - (let* ((_%g3015130159%_ - (lambda (_%g3015230155%_) + _%g3002930032%_))) + (_%g3002730213%_ + (lambda (_%g3002930040%_) + ((lambda (_%g3003030043%_) + (let* ((_%g3005630064%_ + (lambda (_%g3005730060%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3015230155%_))) - (_%g3015030293%_ - (lambda (_%g3015230163%_) - ((lambda (_%L30166%_) - (let* ((_%g3017930187%_ + _%g3005730060%_))) + (_%g3005530198%_ + (lambda (_%g3005730068%_) + ((lambda (_%g3005830071%_) + (let* ((_%g3008430092%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g3018030183%_) + (lambda (_%g3008530088%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3018030183%_))) - (_%g3017830281%_ - (lambda (_%g3018030191%_) - ((lambda (_%L30194%_) - (let* ((_%g3020730215%_ - (lambda (_%g3020830211%_) + _%g3008530088%_))) + (_%g3008330186%_ + (lambda (_%g3008530096%_) + ((lambda (_%g3008630099%_) + (let* ((_%g3011230120%_ + (lambda (_%g3011330116%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3020830211%_))) - (_%g3020630277%_ - (lambda (_%g3020830219%_) - ((lambda (_%L30222%_) + _%g3011330116%_))) + (_%g3011130182%_ + (lambda (_%g3011330124%_) + ((lambda (_%g3011430127%_) (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _%L29998%_ + (cons (cons (cons _%g2989029903%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L30110%_ - (foldr (lambda (_%g3023630247%_ + (cons (cons _%g3000230015%_ + (foldr (lambda (_%g3014130152%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g3023730250%_) - (cons _%g3023630247%_ _%g3023730250%_)) + _%g3014230155%_) + (cons _%g3014130152%_ _%g3014230155%_)) '() - _%L29797%_)) + _%g2965629706%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L30138%_ '()))) + (cons _%g3003030043%_ '()))) '())) - (cons (cons _%L30054%_ + (cons (cons _%g2994629959%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L30082%_ - (cons _%L30110%_ + (cons (cons _%g2997429987%_ + (cons _%g3000230015%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g3023830253%_ _%g3023930256%_) - (cons _%g3023830253%_ _%g3023930256%_)) + (foldr (lambda (_%g3014330158%_ _%g3014430161%_) + (cons _%g3014330158%_ _%g3014430161%_)) '() - _%L29867%_))) + _%g2972429774%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L30222%_ '()))) + (cons _%g3011430127%_ + '()))) '())) - (cons (cons _%L30026%_ + (cons (cons _%g2991829931%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L30110%_ + (cons (cons _%g3000230015%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g3024030259%_ _%g3024130262%_) - (cons _%g3024030259%_ _%g3024130262%_)) + (foldr (lambda (_%g3014530164%_ _%g3014630167%_) + (cons _%g3014530164%_ _%g3014630167%_)) '() - _%L29867%_)) + _%g2972429774%_)) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'pair?) - (cons _%L30110%_ '())) - (cons (cons _%L30054%_ + (cons _%g3000230015%_ '())) + (cons (cons _%g2994629959%_ (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L30110%_ + (cons _%g3000230015%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L30110%_ - (foldr (lambda (_%g3024230265%_ _%g3024330268%_) - (cons _%g3024230265%_ _%g3024330268%_)) + (cons _%g3000230015%_ + (foldr (lambda (_%g3014730170%_ _%g3014830173%_) + (cons _%g3014730170%_ _%g3014830173%_)) '() - _%L29867%_)))) + _%g2972429774%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L30194%_ '())))) + (cons _%g3008630099%_ '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()))) - (cons (cons _%L30026%_ - (cons _%L29970%_ - (foldr (lambda (_%g3024430271%_ - _%g3024530274%_) - (cons _%g3024430271%_ - _%g3024530274%_)) + (cons (cons _%g2991829931%_ + (cons _%g2986229875%_ + (foldr (lambda (_%g3014930176%_ + _%g3015030179%_) + (cons _%g3014930176%_ + _%g3015030179%_)) '() - _%L29938%_))) + _%g2979329843%_))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3020830219%_)))) - (_%g3020630277%_ - (_%generate129098%_ - _%L30082%_ - _%hd29738%_ - _%L30166%_ - _%L30194%_)))) - _%g3018030191%_)))) - (_%g3017830281%_ - (cons _%L29998%_ - (cons _%L30110%_ - (foldr (lambda (_%g3028430287%_ - _%g3028530290%_) + _%g3011330124%_)))) + (_%g3011130182%_ + (_%generate129009%_ + _%g2997429987%_ + _%hd29649%_ + _%g3005830071%_ + _%g3008630099%_)))) + _%g3008530096%_)))) + (_%g3008330186%_ + (cons _%g2989029903%_ + (cons _%g3000230015%_ + (foldr (lambda (_%g3018930192%_ + _%g3019030195%_) (cons (cons (gx#datum->syntax '#f 'reverse) - (cons _%g3028430287%_ + (cons _%g3018930192%_ '())) - _%g3028530290%_)) + _%g3019030195%_)) '() - _%L29867%_)))))) - _%g3015230163%_)))) + _%g2972429774%_)))))) + _%g3005730068%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3015030293%_ - (cons _%L30026%_ + (_%g3005530198%_ + (cons _%g2991829931%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##cdr) - (cons _%L30110%_ '())) + (cons _%g3000230015%_ '())) (begin - (gx#syntax-check-splice-targets _%L29867%_ _%L29797%_) - (foldr (lambda (_%g3029630300%_ - _%g3029730303%_ - _%g3029830305%_) + (gx#syntax-check-splice-targets + _%g2972429774%_ + _%g2965629706%_) + (foldr (lambda (_%g3020130205%_ + _%g3020230208%_ + _%g3020330210%_) (cons (cons (gx#datum->syntax '#f 'cons) - (cons _%g3029730303%_ - (cons _%g3029630300%_ '()))) - _%g3029830305%_)) + (cons _%g3020230208%_ + (cons _%g3020130205%_ '()))) + _%g3020330210%_)) '() - _%L29867%_ - _%L29797%_))))))) + _%g2972429774%_ + _%g2965629706%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3012430135%_)))) - (_%g3012230308%_ - (_%generate129098%_ - _%L30110%_ - _%rest29739%_ - _%K29740%_ - _%E29741%_)))) - _%g3009630107%_)))) - (_%g3009430312%_ (gx#genident 'rest)))) - _%g3006830079%_)))) + _%g3002930040%_)))) + (_%g3002730213%_ + (_%generate129009%_ + _%g3000230015%_ + _%rest29650%_ + _%K29651%_ + _%E29652%_)))) + _%g3000130012%_)))) + (_%g2999930217%_ (gx#genident 'rest)))) + _%g2997329984%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3006630316%_ + (_%g2997130221%_ (gx#genident 'hd)))) - _%g3004030051%_)))) - (_%g3003830320%_ + _%g2994529956%_)))) + (_%g2994330225%_ (gx#genident 'splice-try)))) - _%g3001230023%_)))) - (_%g3001030324%_ (gx#genident 'splice-loop)))) - _%g2998429995%_)))) + _%g2991729928%_)))) + (_%g2991530229%_ (gx#genident 'splice-loop)))) + _%g2988929900%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2998230328%_ + (_%g2988730233%_ (gx#genident 'splice-rest)))) - _%g2995629967%_)))) - (_%g2995430332%_ _%tgt29736%_))) - _%init2989529934%_)))))) - (_%loop2989029914%_ _%target2988729908%_ '())) - (_%g2988429901%_ _%g2988529905%_))))) + _%g2986129872%_)))) + (_%g2985930237%_ _%tgt29647%_))) + _%init2980229840%_)))))) + (_%loop2979729821%_ _%target2979429815%_ '())) + (_%g2979129808%_ _%g2979229812%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2988429901%_ - _%g2988529905%_))))) - (_%g2988330336%_ + (_%g2979129808%_ + _%g2979229812%_))))) + (_%g2979030241%_ (make-list (gx#stx-length - (foldr (lambda (_%g3033930342%_ - _%g3034030345%_) - (cons _%g3033930342%_ - _%g3034030345%_)) + (foldr (lambda (_%g3024430247%_ + _%g3024530250%_) + (cons _%g3024430247%_ + _%g3024530250%_)) '() - _%L29797%_)) + _%g2965629706%_)) (cons (gx#datum->syntax '#f '@list) '()))))) - _%var-r2982429863%_)))))) + _%var-r2973329771%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2981929843%_ - _%target2981629837%_ + (_%loop2972829752%_ + _%target2972529746%_ '())) - (_%g2981329830%_ - _%g2981429834%_))))) - (_%g2981329830%_ _%g2981429834%_))))) - (_%g2981230348%_ + (_%g2972229739%_ + _%g2972329743%_))))) + (_%g2972229739%_ _%g2972329743%_))))) + (_%g2972130253%_ (gx#gentemps - (foldr (lambda (_%g3035130354%_ _%g3035230357%_) - (cons _%g3035130354%_ _%g3035230357%_)) + (foldr (lambda (_%g3025630259%_ _%g3025730262%_) + (cons _%g3025630259%_ _%g3025730262%_)) '() - _%L29797%_))))) - _%var2975429793%_)))))) + _%g2965629706%_))))) + _%var2966529703%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2974929773%_ - _%target2974629767%_ + (_%loop2966029684%_ + _%target2965729678%_ '())) - (_%g2974329760%_ - _%g2974429764%_))))) - (_%g2974329760%_ _%g2974429764%_))))) - (_%g2974230360%_ + (_%g2965429671%_ + _%g2965529675%_))))) + (_%g2965429671%_ _%g2965529675%_))))) + (_%g2965330265%_ (|gerbil/core/match[1]#match-pattern-vars| - _%hd29738%_))))) - (_%generate-simple-vector29101%_ - (lambda (_%tgt29559%_ - _%body29561%_ - _%start29562%_ - _%ref29563%_ - _%K29564%_ - _%E29565%_) - (let _%recur29567%_ ((_%rest29570%_ _%body29561%_) - (_%off29572%_ _%start29562%_)) - (let* ((_%__stx3907039071%_ _%rest29570%_) - (_%g2957529587%_ + _%hd29649%_))))) + (_%generate-simple-vector29012%_ + (lambda (_%tgt29470%_ + _%body29472%_ + _%start29473%_ + _%ref29474%_ + _%K29475%_ + _%E29476%_) + (let _%recur29478%_ ((_%rest29481%_ _%body29472%_) + (_%off29483%_ _%start29473%_)) + (let* ((_%__stx3895138952%_ _%rest29481%_) + (_%g2948629498%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3907039071%_)))) - (let ((_%__kont3907339074%_ - (lambda (_%L29615%_ _%L29617%_) - (let* ((_%g2963229655%_ - (lambda (_%g2963329651%_) + _%__stx3895138952%_)))) + (let ((_%__kont3895438955%_ + (lambda (_%g2948829526%_ _%g2948929528%_) + (let* ((_%g2954329566%_ + (lambda (_%g2954429562%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2963329651%_))) - (_%g2963129728%_ - (lambda (_%g2963329659%_) - (if (gx#stx-pair? _%g2963329659%_) - (let ((_%e2963829662%_ + _%g2954429562%_))) + (_%g2954229639%_ + (lambda (_%g2954429570%_) + (if (gx#stx-pair? _%g2954429570%_) + (let ((_%e2954929573%_ (gx#syntax-e - _%g2963329659%_))) - (let ((_%hd2963929666%_ + _%g2954429570%_))) + (let ((_%hd2955029577%_ (let () (declare (not safe)) - (##car _%e2963829662%_))) - (_%tl2964029669%_ + (##car _%e2954929573%_))) + (_%tl2955129580%_ (let () (declare (not safe)) - (##cdr _%e2963829662%_)))) + (##cdr _%e2954929573%_)))) (if (gx#stx-pair? - _%tl2964029669%_) - (let ((_%e2964129672%_ + _%tl2955129580%_) + (let ((_%e2955229583%_ (gx#syntax-e - _%tl2964029669%_))) - (let ((_%hd2964229676%_ + _%tl2955129580%_))) + (let ((_%hd2955329587%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e2964129672%_))) - (_%tl2964329679%_ - (let () (declare (not safe)) (##cdr _%e2964129672%_)))) - (if (gx#stx-pair? _%tl2964329679%_) - (let ((_%e2964429682%_ (gx#syntax-e _%tl2964329679%_))) - (let ((_%hd2964529686%_ + (##car _%e2955229583%_))) + (_%tl2955429590%_ + (let () (declare (not safe)) (##cdr _%e2955229583%_)))) + (if (gx#stx-pair? _%tl2955429590%_) + (let ((_%e2955529593%_ (gx#syntax-e _%tl2955429590%_))) + (let ((_%hd2955629597%_ (let () (declare (not safe)) - (##car _%e2964429682%_))) - (_%tl2964629689%_ + (##car _%e2955529593%_))) + (_%tl2955729600%_ (let () (declare (not safe)) - (##cdr _%e2964429682%_)))) - (if (gx#stx-pair? _%tl2964629689%_) - (let ((_%e2964729692%_ - (gx#syntax-e _%tl2964629689%_))) - (let ((_%hd2964829696%_ + (##cdr _%e2955529593%_)))) + (if (gx#stx-pair? _%tl2955729600%_) + (let ((_%e2955829603%_ + (gx#syntax-e _%tl2955729600%_))) + (let ((_%hd2955929607%_ (let () (declare (not safe)) - (##car _%e2964729692%_))) - (_%tl2964929699%_ + (##car _%e2955829603%_))) + (_%tl2956029610%_ (let () (declare (not safe)) - (##cdr _%e2964729692%_)))) - (if (gx#stx-null? _%tl2964929699%_) - ((lambda (_%L29702%_ - _%L29704%_ - _%L29705%_ - _%L29706%_) + (##cdr _%e2955829603%_)))) + (if (gx#stx-null? _%tl2956029610%_) + ((lambda (_%g2954529613%_ + _%g2954629615%_ + _%g2954729616%_ + _%g2954829617%_) (cons 'let - (cons (cons (cons _%L29706%_ + (cons (cons (cons _%g2954829617%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L29702%_ - (cons _%L29705%_ (cons _%L29704%_ '()))) + (cons (cons _%g2954529613%_ + (cons _%g2954729616%_ + (cons _%g2954629615%_ '()))) '())) '()) - (cons (_%generate129098%_ - _%L29706%_ - _%L29617%_ - (_%recur29567%_ _%L29615%_ (fx1+ _%off29572%_)) - _%E29565%_) + (cons (_%generate129009%_ + _%g2954829617%_ + _%g2948929528%_ + (_%recur29478%_ _%g2948829526%_ (fx1+ _%off29483%_)) + _%E29476%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd2964829696%_ - _%hd2964529686%_ - _%hd2964229676%_ - _%hd2963929666%_) - (_%g2963229655%_ _%g2963329659%_)))) - (_%g2963229655%_ _%g2963329659%_)))) - (_%g2963229655%_ _%g2963329659%_)))) - (_%g2963229655%_ _%g2963329659%_)))) + _%hd2955929607%_ + _%hd2955629597%_ + _%hd2955329587%_ + _%hd2955029577%_) + (_%g2954329566%_ _%g2954429570%_)))) + (_%g2954329566%_ _%g2954429570%_)))) + (_%g2954329566%_ _%g2954429570%_)))) + (_%g2954329566%_ _%g2954429570%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2963229655%_ - _%g2963329659%_))))) - (_%g2963129728%_ + (_%g2954329566%_ + _%g2954429570%_))))) + (_%g2954229639%_ (list (gx#genident 'e) - _%tgt29559%_ - _%off29572%_ - _%ref29563%_))))) - (_%__kont3907539076%_ (lambda () _%K29564%_))) - (if (gx#stx-pair? _%__stx3907039071%_) - (let ((_%e2957929605%_ - (gx#syntax-e _%__stx3907039071%_))) - (let ((_%tl2958129612%_ + _%tgt29470%_ + _%off29483%_ + _%ref29474%_))))) + (_%__kont3895638957%_ (lambda () _%K29475%_))) + (if (gx#stx-pair? _%__stx3895138952%_) + (let ((_%e2949029516%_ + (gx#syntax-e _%__stx3895138952%_))) + (let ((_%tl2949229523%_ (let () (declare (not safe)) - (##cdr _%e2957929605%_))) - (_%hd2958029609%_ + (##cdr _%e2949029516%_))) + (_%hd2949129520%_ (let () (declare (not safe)) - (##car _%e2957929605%_)))) - (_%__kont3907339074%_ - _%tl2958129612%_ - _%hd2958029609%_))) - (_%__kont3907539076%_))))))) - (_%generate-list-vector29102%_ - (lambda (_%tgt29451%_ - _%body29453%_ - _%->list29454%_ - _%K29455%_ - _%E29456%_) - (let* ((_%g2945829466%_ - (lambda (_%g2945929462%_) + (##car _%e2949029516%_)))) + (_%__kont3895438955%_ + _%tl2949229523%_ + _%hd2949129520%_))) + (_%__kont3895638957%_))))))) + (_%generate-list-vector29013%_ + (lambda (_%tgt29362%_ + _%body29364%_ + _%->list29365%_ + _%K29366%_ + _%E29367%_) + (let* ((_%g2936929377%_ + (lambda (_%g2937029373%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2945929462%_))) - (_%g2945729555%_ - (lambda (_%g2945929470%_) - ((lambda (_%L29473%_) - (let* ((_%g2948529493%_ - (lambda (_%g2948629489%_) + _%g2937029373%_))) + (_%g2936829466%_ + (lambda (_%g2937029381%_) + ((lambda (_%g2937129384%_) + (let* ((_%g2939629404%_ + (lambda (_%g2939729400%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2948629489%_))) - (_%g2948429551%_ - (lambda (_%g2948629497%_) - ((lambda (_%L29500%_) - (let* ((_%g2951329521%_ - (lambda (_%g2951429517%_) + _%g2939729400%_))) + (_%g2939529462%_ + (lambda (_%g2939729408%_) + ((lambda (_%g2939829411%_) + (let* ((_%g2942429432%_ + (lambda (_%g2942529428%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2951429517%_))) - (_%g2951229543%_ - (lambda (_%g2951429525%_) - ((lambda (_%L29528%_) + _%g2942529428%_))) + (_%g2942329454%_ + (lambda (_%g2942529436%_) + ((lambda (_%g2942629439%_) (cons 'let ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons _%L29473%_ (cons _%L29528%_ '())) + (cons (cons (cons _%g2937129384%_ + (cons _%g2942629439%_ '())) '()) - (cons (_%generate129098%_ - _%L29473%_ - _%body29453%_ - _%K29455%_ - _%E29456%_) + (cons (_%generate129009%_ + _%g2937129384%_ + _%body29364%_ + _%K29366%_ + _%E29367%_) '())))) - _%g2951429525%_)))) + _%g2942529436%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2951229543%_ - (let ((_%$e29547%_ - _%->list29454%_)) + (_%g2942329454%_ + (let ((_%$e29458%_ + _%->list29365%_)) (if (eq? 'values->list - _%$e29547%_) + _%$e29458%_) (cons (gx#datum->syntax '#f 'values->list) - (cons _%L29500%_ + (cons _%g2939829411%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (if (eq? 'vector->list _%$e29547%_) + (if (eq? 'vector->list _%$e29458%_) (cons (gx#datum->syntax '#f '##vector->list) - (cons _%L29500%_ '())) - (if (eq? 'struct->list _%$e29547%_) + (cons _%g2939829411%_ '())) + (if (eq? 'struct->list _%$e29458%_) (cons (gx#datum->syntax '#f '##cdr) (cons (cons (gx#datum->syntax '#f 'struct->list) - (cons _%L29500%_ '())) + (cons _%g2939829411%_ '())) '())) (gx#raise-syntax-error '#f '"Unexpected list conversion" - _%stx29091%_ - _%->list29454%_)))))))) + _%stx29002%_ + _%->list29365%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2948629497%_)))) - (_%g2948429551%_ _%tgt29451%_))) - _%g2945929470%_)))) - (_%g2945729555%_ (gx#genident 'e))))) - (_%generate-struct29103%_ - (lambda (_%info29322%_ - _%tgt29324%_ - _%body29325%_ - _%K29326%_ - _%E29327%_) - (let* ((_%__stx3908639087%_ _%body29325%_) - (_%g2933029353%_ + _%g2939729408%_)))) + (_%g2939529462%_ _%tgt29362%_))) + _%g2937029381%_)))) + (_%g2936829466%_ (gx#genident 'e))))) + (_%generate-struct29014%_ + (lambda (_%info29233%_ + _%tgt29235%_ + _%body29236%_ + _%K29237%_ + _%E29238%_) + (let* ((_%__stx3896738968%_ _%body29236%_) + (_%g2924129264%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3908639087%_)))) - (let ((_%__kont3908939090%_ - (lambda (_%L29430%_) - (let ((_%fields29444%_ - (_%struct-field-accessors29105%_ - _%info29322%_))) + _%__stx3896738968%_)))) + (let ((_%__kont3897038971%_ + (lambda (_%g2924329341%_) + (let ((_%fields29355%_ + (_%struct-field-accessors29016%_ + _%info29233%_))) (cons 'if - (cons (cons (let ((__obj39840 - _%info29322%_)) + (cons (cons (let ((__obj39721 + _%info29233%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39840 + __obj39721 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39840 + __obj39721 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39840 + __obj39721 'predicate))) - (cons _%tgt29324%_ '())) - (cons (_%generate-simple-struct-body29104%_ - _%info29322%_ - _%tgt29324%_ - _%L29430%_ - _%K29326%_ - _%E29327%_) - (cons _%E29327%_ '()))))))) - (_%__kont3909139092%_ - (lambda (_%L29384%_) + (cons _%tgt29235%_ '())) + (cons (_%generate-simple-struct-body29015%_ + _%info29233%_ + _%tgt29235%_ + _%g2924329341%_ + _%K29237%_ + _%E29238%_) + (cons _%E29238%_ '()))))))) + (_%__kont3897238973%_ + (lambda (_%g2925129295%_) (cons 'if - (cons (cons (let ((__obj39841 - _%info29322%_)) + (cons (cons (let ((__obj39722 + _%info29233%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39841 + __obj39722 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39841 + __obj39722 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39841 + __obj39722 'predicate))) - (cons _%tgt29324%_ '())) - (cons (_%generate-list-vector29102%_ - _%tgt29324%_ - _%L29384%_ + (cons _%tgt29235%_ '())) + (cons (_%generate-list-vector29013%_ + _%tgt29235%_ + _%g2925129295%_ 'struct->list - _%K29326%_ - _%E29327%_) - (cons _%E29327%_ '()))))))) - (if (gx#stx-pair? _%__stx3908639087%_) - (let ((_%e2933329406%_ - (gx#syntax-e _%__stx3908639087%_))) - (let ((_%tl2933529413%_ + _%K29237%_ + _%E29238%_) + (cons _%E29238%_ '()))))))) + (if (gx#stx-pair? _%__stx3896738968%_) + (let ((_%e2924429317%_ + (gx#syntax-e _%__stx3896738968%_))) + (let ((_%tl2924629324%_ (let () (declare (not safe)) - (##cdr _%e2933329406%_))) - (_%hd2933429410%_ + (##cdr _%e2924429317%_))) + (_%hd2924529321%_ (let () (declare (not safe)) - (##car _%e2933329406%_)))) - (if (gx#stx-datum? _%hd2933429410%_) - (let ((_%e2933629416%_ - (gx#stx-e _%hd2933429410%_))) - (if (equal? _%e2933629416%_ 'simple:) - (if (gx#stx-pair? _%tl2933529413%_) - (let ((_%e2933729420%_ + (##car _%e2924429317%_)))) + (if (gx#stx-datum? _%hd2924529321%_) + (let ((_%e2924729327%_ + (gx#stx-e _%hd2924529321%_))) + (if (equal? _%e2924729327%_ 'simple:) + (if (gx#stx-pair? _%tl2924629324%_) + (let ((_%e2924829331%_ (gx#syntax-e - _%tl2933529413%_))) - (let ((_%tl2933929427%_ + _%tl2924629324%_))) + (let ((_%tl2925029338%_ (let () (declare (not safe)) - (##cdr _%e2933729420%_))) - (_%hd2933829424%_ + (##cdr _%e2924829331%_))) + (_%hd2924929335%_ (let () (declare (not safe)) - (##car _%e2933729420%_)))) + (##car _%e2924829331%_)))) (if (gx#stx-null? - _%tl2933929427%_) - (_%__kont3908939090%_ - _%hd2933829424%_) + _%tl2925029338%_) + (_%__kont3897038971%_ + _%hd2924929335%_) (let () (declare (not safe)) - (_%g2933029353%_))))) + (_%g2924129264%_))))) (let () (declare (not safe)) - (_%g2933029353%_))) - (if (equal? _%e2933629416%_ 'list:) + (_%g2924129264%_))) + (if (equal? _%e2924729327%_ 'list:) (if (gx#stx-pair? - _%tl2933529413%_) - (let ((_%e2934529374%_ + _%tl2924629324%_) + (let ((_%e2925629285%_ (gx#syntax-e - _%tl2933529413%_))) - (let ((_%tl2934729381%_ + _%tl2924629324%_))) + (let ((_%tl2925829292%_ (let () (declare (not safe)) - (##cdr _%e2934529374%_))) - (_%hd2934629378%_ + (##cdr _%e2925629285%_))) + (_%hd2925729289%_ (let () (declare (not safe)) - (##car _%e2934529374%_)))) + (##car _%e2925629285%_)))) (if (gx#stx-null? - _%tl2934729381%_) - (_%__kont3909139092%_ - _%hd2934629378%_) + _%tl2925829292%_) + (_%__kont3897238973%_ + _%hd2925729289%_) (let () (declare (not safe)) - (_%g2933029353%_))))) + (_%g2924129264%_))))) (let () (declare (not safe)) - (_%g2933029353%_))) + (_%g2924129264%_))) (let () (declare (not safe)) - (_%g2933029353%_))))) + (_%g2924129264%_))))) (let () (declare (not safe)) - (_%g2933029353%_))))) + (_%g2924129264%_))))) (let () (declare (not safe)) - (_%g2933029353%_))))))) - (_%generate-simple-struct-body29104%_ - (lambda (_%info29242%_ - _%tgt29244%_ - _%body29245%_ - _%K29246%_ - _%E29247%_) - (let _%recur29249%_ ((_%rest29252%_ _%body29245%_) - (_%fields29254%_ - (_%struct-field-accessors29105%_ - _%info29242%_))) - (let* ((_%__stx3913639137%_ _%rest29252%_) - (_%g2925729269%_ + (_%g2924129264%_))))))) + (_%generate-simple-struct-body29015%_ + (lambda (_%info29153%_ + _%tgt29155%_ + _%body29156%_ + _%K29157%_ + _%E29158%_) + (let _%recur29160%_ ((_%rest29163%_ _%body29156%_) + (_%fields29165%_ + (_%struct-field-accessors29016%_ + _%info29153%_))) + (let* ((_%__stx3901739018%_ _%rest29163%_) + (_%g2916829180%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3913639137%_)))) - (let ((_%__kont3913939140%_ - (lambda (_%L29297%_ _%L29299%_) - (if (null? _%fields29254%_) + _%__stx3901739018%_)))) + (let ((_%__kont3902039021%_ + (lambda (_%g2917029208%_ _%g2917129210%_) + (if (null? _%fields29165%_) (gx#raise-syntax-error '#f '"too many parts for struct" - _%stx29091%_ - _%info29242%_ - (let ((__obj39842 _%info29242%_)) + _%stx29002%_ + _%info29153%_ + (let ((__obj39723 _%info29153%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39842 + __obj39723 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39842 + __obj39723 '2 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39842 + __obj39723 'name)))) - (let ((_%$tgt29314%_ (gx#genident 'e)) - (_%getf29316%_ - (car _%fields29254%_))) + (let ((_%$tgt29225%_ (gx#genident 'e)) + (_%getf29227%_ + (car _%fields29165%_))) (cons 'let - (cons (cons (cons _%$tgt29314%_ - (cons (cons _%getf29316%_ + (cons (cons (cons _%$tgt29225%_ + (cons (cons _%getf29227%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%tgt29244%_ '())) + (cons _%tgt29155%_ '())) '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (_%generate129098%_ - _%$tgt29314%_ - _%L29299%_ - (_%recur29249%_ - _%L29297%_ - (cdr _%fields29254%_)) - _%E29247%_) + (cons (_%generate129009%_ + _%$tgt29225%_ + _%g2917129210%_ + (_%recur29160%_ + _%g2917029208%_ + (cdr _%fields29165%_)) + _%E29158%_) '()))))))) - (_%__kont3914139142%_ (lambda () _%K29246%_))) - (if (gx#stx-pair? _%__stx3913639137%_) - (let ((_%e2926129287%_ - (gx#syntax-e _%__stx3913639137%_))) - (let ((_%tl2926329294%_ + (_%__kont3902239023%_ (lambda () _%K29157%_))) + (if (gx#stx-pair? _%__stx3901739018%_) + (let ((_%e2917229198%_ + (gx#syntax-e _%__stx3901739018%_))) + (let ((_%tl2917429205%_ (let () (declare (not safe)) - (##cdr _%e2926129287%_))) - (_%hd2926229291%_ + (##cdr _%e2917229198%_))) + (_%hd2917329202%_ (let () (declare (not safe)) - (##car _%e2926129287%_)))) - (_%__kont3913939140%_ - _%tl2926329294%_ - _%hd2926229291%_))) - (_%__kont3914139142%_))))))) - (_%struct-field-accessors29105%_ - (lambda (_%info29223%_) - (let _%recur29226%_ ((_%next29229%_ - (cons _%info29223%_ '()))) - (if (null? _%next29229%_) + (##car _%e2917229198%_)))) + (_%__kont3902039021%_ + _%tl2917429205%_ + _%hd2917329202%_))) + (_%__kont3902239023%_))))))) + (_%struct-field-accessors29016%_ + (lambda (_%info29134%_) + (let _%recur29137%_ ((_%next29140%_ + (cons _%info29134%_ '()))) + (if (null? _%next29140%_) '() - (let ((_%ti29232%_ (car _%next29229%_))) - (let ((__tmp39874 - (_%recur29226%_ + (let ((_%ti29143%_ (car _%next29140%_))) + (let ((__tmp39755 + (_%recur29137%_ (map gx#syntax-local-value - (let ((__obj39843 _%ti29232%_)) + (let ((__obj39724 _%ti29143%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39843 + __obj39724 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39843 - '3 + __obj39724 + '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39843 + __obj39724 'super)))))) - (__tmp39873 - (map (lambda (_%slot29235%_) - (let ((_%$e29238%_ - (agetq _%slot29235%_ - (let ((__obj39844 - _%ti29232%_)) + (__tmp39754 + (map (lambda (_%slot29146%_) + (let ((_%$e29149%_ + (agetq _%slot29146%_ + (let ((__obj39725 + _%ti29143%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj39844 + __obj39725 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj39844 '17 '#f '#f)) + (##unchecked-structure-ref __obj39725 '17 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39844 + __obj39725 'unchecked-accessors)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e29238%_ - _%$e29238%_ + (if _%$e29149%_ + _%$e29149%_ (gx#raise-syntax-error '#f '"no accessor for struct slot" - _%stx29091%_ - _%info29223%_ - _%slot29235%_)))) - (let ((__obj39845 _%ti29232%_)) + _%stx29002%_ + _%info29134%_ + _%slot29146%_)))) + (let ((__obj39726 _%ti29143%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39845 + __obj39726 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39845 - '4 + __obj39726 + '5 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39845 + __obj39726 'slots)))))) (declare (not safe)) - (##append __tmp39874 __tmp39873))))))) - (_%generate-class29106%_ - (lambda (_%info29216%_ - _%tgt29218%_ - _%body29219%_ - _%K29220%_ - _%E29221%_) + (##append __tmp39755 __tmp39754))))))) + (_%generate-class29017%_ + (lambda (_%info29127%_ + _%tgt29129%_ + _%body29130%_ + _%K29131%_ + _%E29132%_) (cons 'if - (cons (cons (let ((__obj39846 _%info29216%_)) + (cons (cons (let ((__obj39727 _%info29127%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39846 + __obj39727 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39846 + __obj39727 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39846 + __obj39727 'predicate))) - (cons _%tgt29218%_ '())) - (cons (_%generate-class-body29107%_ - _%info29216%_ - _%tgt29218%_ - _%body29219%_ - _%K29220%_ - _%E29221%_) - (cons _%E29221%_ '())))))) - (_%generate-class-body29107%_ - (lambda (_%info29109%_ - _%tgt29111%_ - _%body29112%_ - _%K29113%_ - _%E29114%_) - (let _%recur29116%_ ((_%rest29119%_ _%body29112%_)) - (let* ((_%__stx3915239153%_ _%rest29119%_) - (_%g2912329139%_ + (cons _%tgt29129%_ '())) + (cons (_%generate-class-body29018%_ + _%info29127%_ + _%tgt29129%_ + _%body29130%_ + _%K29131%_ + _%E29132%_) + (cons _%E29132%_ '())))))) + (_%generate-class-body29018%_ + (lambda (_%info29020%_ + _%tgt29022%_ + _%body29023%_ + _%K29024%_ + _%E29025%_) + (let _%recur29027%_ ((_%rest29030%_ _%body29023%_)) + (let* ((_%__stx3903339034%_ _%rest29030%_) + (_%g2903429050%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3915239153%_)))) - (let ((_%__kont3915539156%_ - (lambda (_%L29177%_ _%L29179%_ _%L29180%_) - (let ((_%$e29200%_ - (agetq (let ((__tmp39875 + _%__stx3903339034%_)))) + (let ((_%__kont3903639037%_ + (lambda (_%g2903629088%_ + _%g2903729090%_ + _%g2903829091%_) + (let ((_%$e29111%_ + (agetq (let ((__tmp39756 (keyword->string - (gx#stx-e _%L29180%_)))) + (gx#stx-e + _%g2903829091%_)))) (declare (not safe)) - (##string->symbol __tmp39875)) - (let ((__obj39847 - _%info29109%_)) + (##string->symbol __tmp39756)) + (let ((__obj39728 + _%info29020%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39847 + __obj39728 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39847 + __obj39728 '17 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39847 + __obj39728 'unchecked-accessors)))))) - (if _%$e29200%_ - ((lambda (_%getf29204%_) - (let ((_%$tgt29207%_ + (if _%$e29111%_ + ((lambda (_%getf29115%_) + (let ((_%$tgt29118%_ (gx#genident 'e))) (cons 'let - (cons (cons (cons _%$tgt29207%_ + (cons (cons (cons _%$tgt29118%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%getf29204%_ (cons _%tgt29111%_ '())) + (cons (cons _%getf29115%_ (cons _%tgt29022%_ '())) '())) '()) - (cons (_%generate129098%_ - _%$tgt29207%_ - _%L29179%_ - (_%recur29116%_ _%L29177%_) - _%E29114%_) + (cons (_%generate129009%_ + _%$tgt29118%_ + _%g2903729090%_ + (_%recur29027%_ _%g2903629088%_) + _%E29025%_) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e29200%_) + _%$e29111%_) (gx#raise-syntax-error '#f '"no slot accessor" - _%stx29091%_ - _%info29109%_ - _%L29180%_))))) - (_%__kont3915739158%_ (lambda () _%K29113%_))) - (if (gx#stx-pair? _%__stx3915239153%_) - (let ((_%e2912829157%_ - (gx#syntax-e _%__stx3915239153%_))) - (let ((_%tl2913029164%_ + _%stx29002%_ + _%info29020%_ + _%g2903829091%_))))) + (_%__kont3903839039%_ (lambda () _%K29024%_))) + (if (gx#stx-pair? _%__stx3903339034%_) + (let ((_%e2903929068%_ + (gx#syntax-e _%__stx3903339034%_))) + (let ((_%tl2904129075%_ (let () (declare (not safe)) - (##cdr _%e2912829157%_))) - (_%hd2912929161%_ + (##cdr _%e2903929068%_))) + (_%hd2904029072%_ (let () (declare (not safe)) - (##car _%e2912829157%_)))) - (if (gx#stx-pair? _%tl2913029164%_) - (let ((_%e2913129167%_ - (gx#syntax-e _%tl2913029164%_))) - (let ((_%tl2913329174%_ + (##car _%e2903929068%_)))) + (if (gx#stx-pair? _%tl2904129075%_) + (let ((_%e2904229078%_ + (gx#syntax-e _%tl2904129075%_))) + (let ((_%tl2904429085%_ (let () (declare (not safe)) - (##cdr _%e2913129167%_))) - (_%hd2913229171%_ + (##cdr _%e2904229078%_))) + (_%hd2904329082%_ (let () (declare (not safe)) - (##car _%e2913129167%_)))) - (_%__kont3915539156%_ - _%tl2913329174%_ - _%hd2913229171%_ - _%hd2912929161%_))) - (_%__kont3915739158%_)))) - (_%__kont3915739158%_)))))))) - (_%generate129098%_ - _%tgt29093%_ - _%ptree29094%_ - _%K29095%_ - _%E29096%_)))) + (##car _%e2904229078%_)))) + (_%__kont3903639037%_ + _%tl2904429085%_ + _%hd2904329082%_ + _%hd2904029072%_))) + (_%__kont3903839039%_)))) + (_%__kont3903839039%_)))))))) + (_%generate129009%_ + _%tgt29004%_ + _%ptree29005%_ + _%K29006%_ + _%E29007%_)))) (define |gerbil/core/match[1]#generate-match*| - (lambda (_%stx27904%_ _%tgt-lst27906%_ _%clauses27907%_) - (letrec ((_%parse-body27909%_ - (lambda (_%hd-len28913%_) - (let _%lp28916%_ ((_%rest28919%_ _%clauses27907%_) - (_%r28921%_ '())) - (let* ((_%__stx3920239203%_ _%rest28919%_) - (_%g2892428936%_ + (lambda (_%stx27821%_ _%tgt-lst27823%_ _%clauses27824%_) + (letrec ((_%parse-body27826%_ + (lambda (_%hd-len28824%_) + (let _%lp28827%_ ((_%rest28830%_ _%clauses27824%_) + (_%r28832%_ '())) + (let* ((_%__stx3908339084%_ _%rest28830%_) + (_%g2883528847%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3920239203%_)))) - (let ((_%__kont3920539206%_ - (lambda (_%L28964%_ _%L28966%_) - (let* ((_%__stx3917439175%_ _%L28966%_) - (_%g2898328999%_ + _%__stx3908339084%_)))) + (let ((_%__kont3908639087%_ + (lambda (_%g2883728875%_ _%g2883828877%_) + (let* ((_%__stx3905539056%_ _%g2883828877%_) + (_%g2889428910%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3917439175%_)))) - (let ((_%__kont3917739178%_ - (lambda (_%L29068%_) - (if (gx#stx-null? _%L28964%_) + _%__stx3905539056%_)))) + (let ((_%__kont3905839059%_ + (lambda (_%g2889628979%_) + (if (gx#stx-null? _%g2883728875%_) (cons (cons (gx#genident 'else) (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'begin) - _%L29068%_) - (let ((_%$e29079%_ - (gx#stx-source _%L28966%_))) - (if _%$e29079%_ - _%$e29079%_ - (gx#stx-source _%stx27904%_)))) + _%g2889628979%_) + (let ((_%$e28990%_ + (gx#stx-source _%g2883828877%_))) + (if _%$e28990%_ + _%$e28990%_ + (gx#stx-source _%stx27821%_)))) '()))) - _%r28921%_) + _%r28832%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"bad syntax; misplaced else" - _%stx27904%_ - _%L28966%_)))) - (_%__kont3917939180%_ - (lambda (_%L29027%_ _%L29029%_) - (_%lp28916%_ - _%L28964%_ + _%stx27821%_ + _%g2883828877%_)))) + (_%__kont3906039061%_ + (lambda (_%g2890028938%_ + _%g2890128940%_) + (_%lp28827%_ + _%g2883728875%_ (cons (cons (gx#genident 'try-match) (cons (gx#stx-map - (lambda (_%g2904129043%_) + (lambda (_%g2895228954%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (|gerbil/core/match[1]#parse-match-pattern__%| - _%g2904129043%_ - _%stx27904%_)) - _%L29029%_) + _%g2895228954%_ + _%stx27821%_)) + _%g2890128940%_) (cons (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'begin) _%L29027%_) - (let ((_%$e29047%_ (gx#stx-source _%L28966%_))) - (if _%$e29047%_ - _%$e29047%_ - (gx#stx-source _%stx27904%_)))) + (cons (gx#datum->syntax '#f 'begin) + _%g2890028938%_) + (let ((_%$e28958%_ + (gx#stx-source _%g2883828877%_))) + (if _%$e28958%_ + _%$e28958%_ + (gx#stx-source _%stx27821%_)))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r28921%_)))) - (_%__kont3918139182%_ + _%r28832%_)))) + (_%__kont3906239063%_ (lambda () (gx#raise-syntax-error '#f '"bad syntax; illegal match clause" - _%stx27904%_ - _%L28966%_)))) - (let* ((_%__match3919939200%_ - (lambda (_%e2899129017%_ - _%hd2899229021%_ - _%tl2899329024%_) - (let ((_%L29027%_ - _%tl2899329024%_) - (_%L29029%_ - _%hd2899229021%_)) + _%stx27821%_ + _%g2883828877%_)))) + (let* ((_%__match3908039081%_ + (lambda (_%e2890228928%_ + _%hd2890328932%_ + _%tl2890428935%_) + (let ((_%g2890028938%_ + _%tl2890428935%_) + (_%g2890128940%_ + _%hd2890328932%_)) (if (and (gx#stx-list? - _%L29029%_) + _%g2890128940%_) (fx= (gx#stx-length - _%L29029%_) - _%hd-len28913%_) + _%g2890128940%_) + _%hd-len28824%_) (gx#stx-list? - _%L29027%_) + _%g2890028938%_) (not (gx#stx-null? - _%L29027%_))) - (_%__kont3917939180%_ - _%L29027%_ - _%L29029%_) - (_%__kont3918139182%_))))) - (_%__match3919339194%_ - (lambda (_%e2898629058%_ - _%hd2898729062%_ - _%tl2898829065%_) - (let ((_%L29068%_ - _%tl2898829065%_)) + _%g2890028938%_))) + (_%__kont3906039061%_ + _%g2890028938%_ + _%g2890128940%_) + (_%__kont3906239063%_))))) + (_%__match3907439075%_ + (lambda (_%e2889728969%_ + _%hd2889828973%_ + _%tl2889928976%_) + (let ((_%g2889628979%_ + _%tl2889928976%_)) (if (and (gx#stx-list? - _%L29068%_) + _%g2889628979%_) (not (gx#stx-null? - _%L29068%_))) - (_%__kont3917739178%_ - _%L29068%_) - (_%__match3919939200%_ - _%e2898629058%_ - _%hd2898729062%_ - _%tl2898829065%_)))))) - (if (gx#stx-pair? _%__stx3917439175%_) - (let ((_%e2898629058%_ + _%g2889628979%_))) + (_%__kont3905839059%_ + _%g2889628979%_) + (_%__match3908039081%_ + _%e2889728969%_ + _%hd2889828973%_ + _%tl2889928976%_)))))) + (if (gx#stx-pair? _%__stx3905539056%_) + (let ((_%e2889728969%_ (gx#syntax-e - _%__stx3917439175%_))) - (let ((_%tl2898829065%_ + _%__stx3905539056%_))) + (let ((_%tl2889928976%_ (let () (declare (not safe)) - (##cdr _%e2898629058%_))) - (_%hd2898729062%_ + (##cdr _%e2889728969%_))) + (_%hd2889828973%_ (let () (declare (not safe)) - (##car _%e2898629058%_)))) + (##car _%e2889728969%_)))) (if (gx#identifier? - _%hd2898729062%_) + _%hd2889828973%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39876_| - _%hd2898729062%_) - (_%__match3919339194%_ - _%e2898629058%_ - _%hd2898729062%_ - _%tl2898829065%_) - (_%__match3919939200%_ - _%e2898629058%_ - _%hd2898729062%_ - _%tl2898829065%_)) - (_%__match3919939200%_ - _%e2898629058%_ - _%hd2898729062%_ - _%tl2898829065%_)))) - (_%__kont3918139182%_))))))) - (_%__kont3920739208%_ (lambda () _%r28921%_))) - (if (gx#stx-pair? _%__stx3920239203%_) - (let ((_%e2892828954%_ - (gx#syntax-e _%__stx3920239203%_))) - (let ((_%tl2893028961%_ + |gerbil/core/match[1]#_g39757_| + _%hd2889828973%_) + (_%__match3907439075%_ + _%e2889728969%_ + _%hd2889828973%_ + _%tl2889928976%_) + (_%__match3908039081%_ + _%e2889728969%_ + _%hd2889828973%_ + _%tl2889928976%_)) + (_%__match3908039081%_ + _%e2889728969%_ + _%hd2889828973%_ + _%tl2889928976%_)))) + (_%__kont3906239063%_))))))) + (_%__kont3908839089%_ (lambda () _%r28832%_))) + (if (gx#stx-pair? _%__stx3908339084%_) + (let ((_%e2883928865%_ + (gx#syntax-e _%__stx3908339084%_))) + (let ((_%tl2884128872%_ (let () (declare (not safe)) - (##cdr _%e2892828954%_))) - (_%hd2892928958%_ + (##cdr _%e2883928865%_))) + (_%hd2884028869%_ (let () (declare (not safe)) - (##car _%e2892828954%_)))) - (_%__kont3920539206%_ - _%tl2893028961%_ - _%hd2892928958%_))) - (_%__kont3920739208%_))))))) - (_%generate-body27911%_ - (lambda (_%body28615%_) - (let* ((_%g2861828626%_ - (lambda (_%g2861928622%_) + (##car _%e2883928865%_)))) + (_%__kont3908639087%_ + _%tl2884128872%_ + _%hd2884028869%_))) + (_%__kont3908839089%_))))))) + (_%generate-body27828%_ + (lambda (_%body28530%_) + (let* ((_%g2853328541%_ + (lambda (_%g2853428537%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2861928622%_))) - (_%g2861728909%_ - (lambda (_%g2861928630%_) - ((lambda (_%L28633%_) - (let* ((_%g2864528662%_ - (lambda (_%g2864628658%_) + _%g2853428537%_))) + (_%g2853228820%_ + (lambda (_%g2853428545%_) + ((lambda (_%g2853528548%_) + (let* ((_%g2856028577%_ + (lambda (_%g2856128573%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2864628658%_))) - (_%g2864428905%_ - (lambda (_%g2864628666%_) + _%g2856128573%_))) + (_%g2855928816%_ + (lambda (_%g2856128581%_) (if (gx#stx-pair/null? - _%g2864628666%_) - (let ((_g39877_ + _%g2856128581%_) + (let ((_g39758_ (gx#syntax-split-splice - _%g2864628666%_ + _%g2856128581%_ '0))) (begin - (let ((_g39878_ + (let ((_g39759_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g39877_) - (##values-length _g39877_) + _g39758_) + (##values-length _g39758_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g39878_ 2))) - (error "Context expects 2 values" _g39878_))) + (##fx= _g39759_ 2))) + (error "Context expects 2 values" _g39759_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2864828669%_ + (let ((_%target2856328584%_ (let () (declare (not safe)) (##values-ref - _g39877_ + _g39758_ 0))) - (_%tl2865028672%_ + (_%tl2856528587%_ (let () (declare (not safe)) (##values-ref - _g39877_ + _g39758_ 1)))) (if (gx#stx-null? - _%tl2865028672%_) - (letrec ((_%loop2865128675%_ + _%tl2856528587%_) + (letrec ((_%loop2856628590%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd2864928679%_ _%target2865528682%_) - (if (gx#stx-pair? _%hd2864928679%_) - (let ((_%e2865228685%_ - (gx#syntax-e _%hd2864928679%_))) - (let ((_%lp-hd2865328689%_ + (lambda (_%hd2856428594%_ _%target2857028597%_) + (if (gx#stx-pair? _%hd2856428594%_) + (let ((_%e2856728599%_ + (gx#syntax-e _%hd2856428594%_))) + (let ((_%lp-hd2856828603%_ (let () (declare (not safe)) - (##car _%e2865228685%_))) - (_%lp-tl2865428692%_ + (##car _%e2856728599%_))) + (_%lp-tl2856928606%_ (let () (declare (not safe)) - (##cdr _%e2865228685%_)))) - (_%loop2865128675%_ - _%lp-tl2865428692%_ - (cons _%lp-hd2865328689%_ - _%target2865528682%_)))) - (let ((_%target2865628695%_ - (reverse _%target2865528682%_))) - ((lambda (_%L28699%_) - (let* ((_%g2871628733%_ - (lambda (_%g2871728729%_) + (##cdr _%e2856728599%_)))) + (_%loop2856628590%_ + _%lp-tl2856928606%_ + (cons _%lp-hd2856828603%_ + _%target2857028597%_)))) + (let ((_%target2857128609%_ + (reverse _%target2857028597%_))) + ((lambda (_%g2856228612%_) + (let* ((_%g2862928646%_ + (lambda (_%g2863028642%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2871728729%_))) - (_%g2871528901%_ - (lambda (_%g2871728737%_) + _%g2863028642%_))) + (_%g2862828812%_ + (lambda (_%g2863028650%_) (if (gx#stx-pair/null? - _%g2871728737%_) - (let ((_g39879_ + _%g2863028650%_) + (let ((_g39760_ (gx#syntax-split-splice - _%g2871728737%_ + _%g2863028650%_ '0))) (begin - (let ((_g39880_ + (let ((_g39761_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g39879_) - (##values-length _g39879_) + (if (##values? _g39760_) + (##values-length _g39760_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g39880_ 2))) - (error "Context expects 2 values" _g39880_))) - (let ((_%target2871928740%_ - (let () (declare (not safe)) (##values-ref _g39879_ 0))) - (_%tl2872128743%_ + (if (not (let () (declare (not safe)) (##fx= _g39761_ 2))) + (error "Context expects 2 values" _g39761_))) + (let ((_%target2863228653%_ + (let () (declare (not safe)) (##values-ref _g39760_ 0))) + (_%tl2863428656%_ (let () (declare (not safe)) - (##values-ref _g39879_ 1)))) - (if (gx#stx-null? _%tl2872128743%_) - (letrec ((_%loop2872228746%_ - (lambda (_%hd2872028750%_ - _%fail-diagnostic2872628753%_) - (if (gx#stx-pair? _%hd2872028750%_) - (let ((_%e2872328756%_ - (gx#syntax-e _%hd2872028750%_))) - (let ((_%lp-hd2872428760%_ + (##values-ref _g39760_ 1)))) + (if (gx#stx-null? _%tl2863428656%_) + (letrec ((_%loop2863528659%_ + (lambda (_%hd2863328663%_ + _%fail-diagnostic2863928666%_) + (if (gx#stx-pair? _%hd2863328663%_) + (let ((_%e2863628668%_ + (gx#syntax-e _%hd2863328663%_))) + (let ((_%lp-hd2863728672%_ (let () (declare (not safe)) - (##car _%e2872328756%_))) - (_%lp-tl2872528763%_ + (##car _%e2863628668%_))) + (_%lp-tl2863828675%_ (let () (declare (not safe)) - (##cdr _%e2872328756%_)))) - (_%loop2872228746%_ - _%lp-tl2872528763%_ - (cons _%lp-hd2872428760%_ - _%fail-diagnostic2872628753%_)))) - (let ((_%fail-diagnostic2872728766%_ - (reverse _%fail-diagnostic2872628753%_))) - ((lambda (_%L28770%_) - (let* ((_%g2878728795%_ - (lambda (_%g2878828791%_) + (##cdr _%e2863628668%_)))) + (_%loop2863528659%_ + _%lp-tl2863828675%_ + (cons _%lp-hd2863728672%_ + _%fail-diagnostic2863928666%_)))) + (let ((_%fail-diagnostic2864028678%_ + (reverse _%fail-diagnostic2863928666%_))) + ((lambda (_%g2863128681%_) + (let* ((_%g2869828706%_ + (lambda (_%g2869928702%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2878828791%_))) - (_%g2878628881%_ - (lambda (_%g2878828799%_) - ((lambda (_%L28802%_) - (let* ((_%g2881528823%_ - (lambda (_%g2881628819%_) + _%g2869928702%_))) + (_%g2869728792%_ + (lambda (_%g2869928710%_) + ((lambda (_%g2870028713%_) + (let* ((_%g2872628734%_ + (lambda (_%g2872728730%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2881628819%_))) - (_%g2881428877%_ - (lambda (_%g2881628827%_) - ((lambda (_%L28830%_) - (let* ((_%g2884328851%_ - (lambda (_%g2884428847%_) + _%g2872728730%_))) + (_%g2872528788%_ + (lambda (_%g2872728738%_) + ((lambda (_%g2872828741%_) + (let* ((_%g2875428762%_ + (lambda (_%g2875528758%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2884428847%_))) - (_%g2884228873%_ - (lambda (_%g2884428855%_) - ((lambda (_%L28858%_) + _%g2875528758%_))) + (_%g2875328784%_ + (lambda (_%g2875528766%_) + ((lambda (_%g2875628769%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (gx#datum->syntax '#f '@match) - (cons _%L28858%_ '())))) - _%g2884428855%_)))) - (_%g2884228873%_ + (cons _%g2875628769%_ + '())))) + _%g2875528766%_)))) + (_%g2875328784%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L28633%_ - (cons _%L28802%_ '())) + (cons (cons (cons _%g2853528548%_ + (cons _%g2870028713%_ + '())) '()) - (cons _%L28830%_ '()))) - (gx#stx-source _%stx27904%_))))) - _%g2881628827%_)))) - (_%g2881428877%_ - (_%generate-clauses27912%_ - _%body28615%_ + (cons _%g2872828741%_ '()))) + (gx#stx-source _%stx27821%_))))) + _%g2872728738%_)))) + (_%g2872528788%_ + (_%generate-clauses27829%_ + _%body28530%_ (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@abort) '()) - (cons (cons _%L28633%_ '()) '()))))))) - _%g2878828799%_)))) + (cons (cons _%g2853528548%_ '()) '()))))))) + _%g2869928710%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2878628881%_ + (_%g2869728792%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f @@ -4687,244 +4744,247 @@ '#f 'error) (cons '"No clause matching" - (foldr (lambda (_%g2888428889%_ - _%g2888528892%_) - (cons _%g2888428889%_ - _%g2888528892%_)) - (foldr (lambda (_%g2888628895%_ - _%g2888728898%_) + (foldr (lambda (_%g2879528800%_ + _%g2879628803%_) + (cons _%g2879528800%_ + _%g2879628803%_)) + (foldr (lambda (_%g2879728806%_ + _%g2879828809%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g2888628895%_ '())) - _%g2888728898%_)) + (cons _%g2879728806%_ '())) + _%g2879828809%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L28770%_) - _%L28699%_))) + _%g2863128681%_) + _%g2856228612%_))) (cons (cons (gx#datum->syntax '#f 'void) '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx27904%_))))) - _%fail-diagnostic2872728766%_)))))) - (_%loop2872228746%_ _%target2871928740%_ '())) - (_%g2871628733%_ _%g2871728737%_))))) + (gx#stx-source _%stx27821%_))))) + _%fail-diagnostic2864028678%_)))))) + (_%loop2863528659%_ _%target2863228653%_ '())) + (_%g2862928646%_ _%g2863028650%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2871628733%_ - _%g2871728737%_))))) - (_%g2871528901%_ + (_%g2862928646%_ + _%g2863028650%_))))) + (_%g2862828812%_ (gx#stx-map gx#stx-car - _%clauses27907%_)))) - _%target2865628695%_)))))) - (_%loop2865128675%_ _%target2864828669%_ '())) - (_%g2864528662%_ _%g2864628666%_))))) + _%clauses27824%_)))) + _%target2857128609%_)))))) + (_%loop2856628590%_ _%target2856328584%_ '())) + (_%g2856028577%_ _%g2856128581%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2864528662%_ - _%g2864628666%_))))) - (_%g2864428905%_ _%tgt-lst27906%_))) - _%g2861928630%_)))) - (_%g2861728909%_ (gx#genident 'E))))) - (_%generate-clauses27912%_ - (lambda (_%rest28267%_ _%E28269%_) - (let* ((_%__stx3921839219%_ _%rest28267%_) - (_%g2827328289%_ + (_%g2856028577%_ + _%g2856128581%_))))) + (_%g2855928816%_ _%tgt-lst27823%_))) + _%g2853428545%_)))) + (_%g2853228820%_ (gx#genident 'E))))) + (_%generate-clauses27829%_ + (lambda (_%rest28182%_ _%E28184%_) + (let* ((_%__stx3909939100%_ _%rest28182%_) + (_%g2818828204%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3921839219%_)))) - (let ((_%__kont3922139222%_ - (lambda (_%L28523%_) - (let* ((_%g2853428552%_ - (lambda (_%g2853528548%_) + _%__stx3909939100%_)))) + (let ((_%__kont3910239103%_ + (lambda (_%g2819028438%_) + (let* ((_%g2844928467%_ + (lambda (_%g2845028463%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2853528548%_))) - (_%g2853328607%_ - (lambda (_%g2853528556%_) - (if (gx#stx-pair? _%g2853528556%_) - (let ((_%e2853828559%_ + _%g2845028463%_))) + (_%g2844828522%_ + (lambda (_%g2845028471%_) + (if (gx#stx-pair? _%g2845028471%_) + (let ((_%e2845328474%_ (gx#syntax-e - _%g2853528556%_))) - (let ((_%hd2853928563%_ + _%g2845028471%_))) + (let ((_%hd2845428478%_ (let () (declare (not safe)) - (##car _%e2853828559%_))) - (_%tl2854028566%_ + (##car _%e2845328474%_))) + (_%tl2845528481%_ (let () (declare (not safe)) - (##cdr _%e2853828559%_)))) + (##cdr _%e2845328474%_)))) (if (gx#stx-pair? - _%tl2854028566%_) - (let ((_%e2854128569%_ + _%tl2845528481%_) + (let ((_%e2845628484%_ (gx#syntax-e - _%tl2854028566%_))) - (let ((_%hd2854228573%_ + _%tl2845528481%_))) + (let ((_%hd2845728488%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e2854128569%_))) - (_%tl2854328576%_ - (let () (declare (not safe)) (##cdr _%e2854128569%_)))) - (if (gx#stx-pair? _%tl2854328576%_) - (let ((_%e2854428579%_ (gx#syntax-e _%tl2854328576%_))) - (let ((_%hd2854528583%_ + (##car _%e2845628484%_))) + (_%tl2845828491%_ + (let () (declare (not safe)) (##cdr _%e2845628484%_)))) + (if (gx#stx-pair? _%tl2845828491%_) + (let ((_%e2845928494%_ (gx#syntax-e _%tl2845828491%_))) + (let ((_%hd2846028498%_ (let () (declare (not safe)) - (##car _%e2854428579%_))) - (_%tl2854628586%_ + (##car _%e2845928494%_))) + (_%tl2846128501%_ (let () (declare (not safe)) - (##cdr _%e2854428579%_)))) - (if (gx#stx-null? _%tl2854628586%_) - ((lambda (_%L28589%_ _%L28591%_) + (##cdr _%e2845928494%_)))) + (if (gx#stx-null? _%tl2846128501%_) + ((lambda (_%g2845128504%_ _%g2845228506%_) (cons 'begin-annotation (cons '@match-body - (cons (if (gx#stx-e _%L28591%_) - (_%generate127913%_ - _%L28591%_ - _%L28589%_ - _%E28269%_) - _%L28589%_) + (cons (if (gx#stx-e + _%g2845228506%_) + (_%generate127830%_ + _%g2845228506%_ + _%g2845128504%_ + _%E28184%_) + _%g2845128504%_) '())))) - _%hd2854528583%_ - _%hd2854228573%_) - (_%g2853428552%_ _%g2853528556%_)))) - (_%g2853428552%_ _%g2853528556%_)))) + _%hd2846028498%_ + _%hd2845728488%_) + (_%g2844928467%_ _%g2845028471%_)))) + (_%g2844928467%_ _%g2845028471%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2853428552%_ - _%g2853528556%_)))) - (_%g2853428552%_ - _%g2853528556%_))))) - (_%g2853328607%_ _%L28523%_)))) - (_%__kont3922339224%_ - (lambda (_%L28317%_ _%L28319%_) - (let* ((_%g2833228351%_ - (lambda (_%g2833328347%_) + (_%g2844928467%_ + _%g2845028471%_)))) + (_%g2844928467%_ + _%g2845028471%_))))) + (_%g2844828522%_ _%g2819028438%_)))) + (_%__kont3910439105%_ + (lambda (_%g2819428232%_ _%g2819528234%_) + (let* ((_%g2824728266%_ + (lambda (_%g2824828262%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2833328347%_))) - (_%g2833128502%_ - (lambda (_%g2833328355%_) - (if (gx#stx-pair? _%g2833328355%_) - (let ((_%e2833728358%_ + _%g2824828262%_))) + (_%g2824628417%_ + (lambda (_%g2824828270%_) + (if (gx#stx-pair? _%g2824828270%_) + (let ((_%e2825228273%_ (gx#syntax-e - _%g2833328355%_))) - (let ((_%hd2833828362%_ + _%g2824828270%_))) + (let ((_%hd2825328277%_ (let () (declare (not safe)) - (##car _%e2833728358%_))) - (_%tl2833928365%_ + (##car _%e2825228273%_))) + (_%tl2825428280%_ (let () (declare (not safe)) - (##cdr _%e2833728358%_)))) + (##cdr _%e2825228273%_)))) (if (gx#stx-pair? - _%tl2833928365%_) - (let ((_%e2834028368%_ + _%tl2825428280%_) + (let ((_%e2825528283%_ (gx#syntax-e - _%tl2833928365%_))) - (let ((_%hd2834128372%_ + _%tl2825428280%_))) + (let ((_%hd2825628287%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e2834028368%_))) - (_%tl2834228375%_ - (let () (declare (not safe)) (##cdr _%e2834028368%_)))) - (if (gx#stx-pair? _%tl2834228375%_) - (let ((_%e2834328378%_ (gx#syntax-e _%tl2834228375%_))) - (let ((_%hd2834428382%_ + (##car _%e2825528283%_))) + (_%tl2825728290%_ + (let () (declare (not safe)) (##cdr _%e2825528283%_)))) + (if (gx#stx-pair? _%tl2825728290%_) + (let ((_%e2825828293%_ (gx#syntax-e _%tl2825728290%_))) + (let ((_%hd2825928297%_ (let () (declare (not safe)) - (##car _%e2834328378%_))) - (_%tl2834528385%_ + (##car _%e2825828293%_))) + (_%tl2826028300%_ (let () (declare (not safe)) - (##cdr _%e2834328378%_)))) - (if (gx#stx-null? _%tl2834528385%_) - ((lambda (_%L28388%_ _%L28390%_ _%L28391%_) - (if (gx#stx-e _%L28390%_) - (let* ((_%g2840828423%_ - (lambda (_%g2840928419%_) + (##cdr _%e2825828293%_)))) + (if (gx#stx-null? _%tl2826028300%_) + ((lambda (_%g2824928303%_ + _%g2825028305%_ + _%g2825128306%_) + (if (gx#stx-e _%g2825028305%_) + (let* ((_%g2832328338%_ + (lambda (_%g2832428334%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2840928419%_))) - (_%g2840728468%_ - (lambda (_%g2840928427%_) + _%g2832428334%_))) + (_%g2832228383%_ + (lambda (_%g2832428342%_) (if (gx#stx-pair? - _%g2840928427%_) - (let ((_%e2841228430%_ + _%g2832428342%_) + (let ((_%e2832728345%_ (gx#syntax-e - _%g2840928427%_))) - (let ((_%hd2841328434%_ + _%g2832428342%_))) + (let ((_%hd2832828349%_ (let () (declare (not safe)) - (##car _%e2841228430%_))) - (_%tl2841428437%_ + (##car _%e2832728345%_))) + (_%tl2832928352%_ (let () (declare (not safe)) - (##cdr _%e2841228430%_)))) + (##cdr _%e2832728345%_)))) (if (gx#stx-pair? - _%tl2841428437%_) - (let ((_%e2841528440%_ + _%tl2832928352%_) + (let ((_%e2833028355%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl2841428437%_))) - (let ((_%hd2841628444%_ + (gx#syntax-e _%tl2832928352%_))) + (let ((_%hd2833128359%_ (let () (declare (not safe)) - (##car _%e2841528440%_))) - (_%tl2841728447%_ + (##car _%e2833028355%_))) + (_%tl2833228362%_ (let () (declare (not safe)) - (##cdr _%e2841528440%_)))) - (if (gx#stx-null? _%tl2841728447%_) - ((lambda (_%L28450%_ _%L28452%_) + (##cdr _%e2833028355%_)))) + (if (gx#stx-null? _%tl2833228362%_) + ((lambda (_%g2832528365%_ _%g2832628367%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L28391%_ + (cons (cons (cons _%g2825128306%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons '() (cons _%L28452%_ '()))) + (cons '() (cons _%g2832628367%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _%L28450%_ '())))) - _%hd2841628444%_ - _%hd2841328434%_) - (_%g2840828423%_ _%g2840928427%_)))) - (_%g2840828423%_ _%g2840928427%_)))) + (cons _%g2832528365%_ '())))) + _%hd2833128359%_ + _%hd2832828349%_) + (_%g2832328338%_ _%g2832428342%_)))) + (_%g2832328338%_ _%g2832428342%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2840828423%_ - _%g2840928427%_))))) - (_%g2840728468%_ - (list (_%generate127913%_ - _%L28390%_ - _%L28388%_ - _%E28269%_) - (_%generate-clauses27912%_ - _%L28317%_ - (cons _%L28391%_ '()))))) - (let* ((_%g2847228480%_ - (lambda (_%g2847328476%_) + (_%g2832328338%_ + _%g2832428342%_))))) + (_%g2832228383%_ + (list (_%generate127830%_ + _%g2825028305%_ + _%g2824928303%_ + _%E28184%_) + (_%generate-clauses27829%_ + _%g2819428232%_ + (cons _%g2825128306%_ '()))))) + (let* ((_%g2838728395%_ + (lambda (_%g2838828391%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2847328476%_))) - (_%g2847128498%_ - (lambda (_%g2847328484%_) - ((lambda (_%L28487%_) + _%g2838828391%_))) + (_%g2838628413%_ + (lambda (_%g2838828399%_) + ((lambda (_%g2838928402%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L28391%_ + (cons (cons (cons _%g2825128306%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f @@ -4937,1718 +4997,1740 @@ 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L28388%_ '()))) + (cons _%g2824928303%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) - (cons _%L28487%_ '())))) + (cons _%g2838928402%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2847328484%_)))) - (_%g2847128498%_ - (_%generate-clauses27912%_ - _%L28317%_ - (cons _%L28391%_ '())))))) - _%hd2834428382%_ - _%hd2834128372%_ - _%hd2833828362%_) - (_%g2833228351%_ _%g2833328355%_)))) - (_%g2833228351%_ _%g2833328355%_)))) + _%g2838828399%_)))) + (_%g2838628413%_ + (_%generate-clauses27829%_ + _%g2819428232%_ + (cons _%g2825128306%_ '())))))) + _%hd2825928297%_ + _%hd2825628287%_ + _%hd2825328277%_) + (_%g2824728266%_ _%g2824828270%_)))) + (_%g2824728266%_ _%g2824828270%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2833228351%_ - _%g2833328355%_)))) - (_%g2833228351%_ - _%g2833328355%_))))) - (_%g2833128502%_ _%L28319%_)))) - (_%__kont3922539226%_ + (_%g2824728266%_ + _%g2824828270%_)))) + (_%g2824728266%_ + _%g2824828270%_))))) + (_%g2824628417%_ _%g2819528234%_)))) + (_%__kont3910639107%_ (lambda () (cons 'begin-annotation (cons '@match-body - (cons _%E28269%_ '())))))) - (if (gx#stx-pair? _%__stx3921839219%_) - (let ((_%e2827628513%_ - (gx#syntax-e _%__stx3921839219%_))) - (let ((_%tl2827828520%_ + (cons _%E28184%_ '())))))) + (if (gx#stx-pair? _%__stx3909939100%_) + (let ((_%e2819128428%_ + (gx#syntax-e _%__stx3909939100%_))) + (let ((_%tl2819328435%_ (let () (declare (not safe)) - (##cdr _%e2827628513%_))) - (_%hd2827728517%_ + (##cdr _%e2819128428%_))) + (_%hd2819228432%_ (let () (declare (not safe)) - (##car _%e2827628513%_)))) - (if (gx#stx-null? _%tl2827828520%_) - (_%__kont3922139222%_ _%hd2827728517%_) - (_%__kont3922339224%_ - _%tl2827828520%_ - _%hd2827728517%_)))) - (_%__kont3922539226%_)))))) - (_%generate127913%_ - (lambda (_%clause27915%_ _%body27917%_ _%E27918%_) - (let* ((_%g2792027944%_ - (lambda (_%g2792127940%_) + (##car _%e2819128428%_)))) + (if (gx#stx-null? _%tl2819328435%_) + (_%__kont3910239103%_ _%hd2819228432%_) + (_%__kont3910439105%_ + _%tl2819328435%_ + _%hd2819228432%_)))) + (_%__kont3910639107%_)))))) + (_%generate127830%_ + (lambda (_%clause27832%_ _%body27834%_ _%E27835%_) + (let* ((_%g2783727861%_ + (lambda (_%g2783827857%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2792127940%_))) - (_%g2791928263%_ - (lambda (_%g2792127948%_) - (if (gx#stx-pair? _%g2792127948%_) - (let ((_%e2792427951%_ - (gx#syntax-e _%g2792127948%_))) - (let ((_%hd2792527955%_ + _%g2783827857%_))) + (_%g2783628178%_ + (lambda (_%g2783827865%_) + (if (gx#stx-pair? _%g2783827865%_) + (let ((_%e2784127868%_ + (gx#syntax-e _%g2783827865%_))) + (let ((_%hd2784227872%_ (let () (declare (not safe)) - (##car _%e2792427951%_))) - (_%tl2792627958%_ + (##car _%e2784127868%_))) + (_%tl2784327875%_ (let () (declare (not safe)) - (##cdr _%e2792427951%_)))) - (if (gx#stx-pair? _%tl2792627958%_) - (let ((_%e2792727961%_ + (##cdr _%e2784127868%_)))) + (if (gx#stx-pair? _%tl2784327875%_) + (let ((_%e2784427878%_ (gx#syntax-e - _%tl2792627958%_))) - (let ((_%hd2792827965%_ + _%tl2784327875%_))) + (let ((_%hd2784527882%_ (let () (declare (not safe)) - (##car _%e2792727961%_))) - (_%tl2792927968%_ + (##car _%e2784427878%_))) + (_%tl2784627885%_ (let () (declare (not safe)) - (##cdr _%e2792727961%_)))) + (##cdr _%e2784427878%_)))) (if (gx#stx-pair/null? - _%hd2792827965%_) - (let ((_g39881_ + _%hd2784527882%_) + (let ((_g39762_ (gx#syntax-split-splice - _%hd2792827965%_ + _%hd2784527882%_ '0))) (begin - (let ((_g39882_ + (let ((_g39763_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g39881_) - (##values-length _g39881_) + (if (##values? _g39762_) + (##values-length _g39762_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g39882_ 2))) - (error "Context expects 2 values" _g39882_))) - (let ((_%target2793027971%_ - (let () (declare (not safe)) (##values-ref _g39881_ 0))) - (_%tl2793227974%_ - (let () (declare (not safe)) (##values-ref _g39881_ 1)))) - (if (gx#stx-null? _%tl2793227974%_) - (letrec ((_%loop2793327977%_ - (lambda (_%hd2793127981%_ _%var2793727984%_) - (if (gx#stx-pair? _%hd2793127981%_) - (let ((_%e2793427987%_ - (gx#syntax-e _%hd2793127981%_))) - (let ((_%lp-hd2793527991%_ + (if (not (let () (declare (not safe)) (##fx= _g39763_ 2))) + (error "Context expects 2 values" _g39763_))) + (let ((_%target2784727888%_ + (let () (declare (not safe)) (##values-ref _g39762_ 0))) + (_%tl2784927891%_ + (let () (declare (not safe)) (##values-ref _g39762_ 1)))) + (if (gx#stx-null? _%tl2784927891%_) + (letrec ((_%loop2785027894%_ + (lambda (_%hd2784827898%_ _%var2785427901%_) + (if (gx#stx-pair? _%hd2784827898%_) + (let ((_%e2785127903%_ + (gx#syntax-e _%hd2784827898%_))) + (let ((_%lp-hd2785227907%_ (let () (declare (not safe)) - (##car _%e2793427987%_))) - (_%lp-tl2793627994%_ + (##car _%e2785127903%_))) + (_%lp-tl2785327910%_ (let () (declare (not safe)) - (##cdr _%e2793427987%_)))) - (_%loop2793327977%_ - _%lp-tl2793627994%_ - (cons _%lp-hd2793527991%_ - _%var2793727984%_)))) - (let ((_%var2793827997%_ - (reverse _%var2793727984%_))) - (if (gx#stx-null? _%tl2792927968%_) - ((lambda (_%L28001%_ _%L28003%_) + (##cdr _%e2785127903%_)))) + (_%loop2785027894%_ + _%lp-tl2785327910%_ + (cons _%lp-hd2785227907%_ + _%var2785427901%_)))) + (let ((_%var2785527913%_ + (reverse _%var2785427901%_))) + (if (gx#stx-null? _%tl2784627885%_) + ((lambda (_%g2783927916%_ + _%g2784027918%_) (let () (gx#check-duplicate-identifiers - (foldr (lambda (_%g2802428027%_ - _%g2802528030%_) - (cons _%g2802428027%_ - _%g2802528030%_)) + (foldr (lambda (_%g2793927942%_ + _%g2794027945%_) + (cons _%g2793927942%_ + _%g2794027945%_)) '() - _%L28001%_) - _%stx27904%_) - (let* ((_%g2803328041%_ - (lambda (_%g2803428037%_) + _%g2783927916%_) + _%stx27821%_) + (let* ((_%g2794827956%_ + (lambda (_%g2794927952%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2803428037%_))) - (_%g2803228135%_ - (lambda (_%g2803428045%_) - ((lambda (_%L28048%_) - (let* ((_%g2806128069%_ + _%g2794927952%_))) + (_%g2794728050%_ + (lambda (_%g2794927960%_) + ((lambda (_%g2795027963%_) + (let* ((_%g2797627984%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2806228065%_) + (lambda (_%g2797727980%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2806228065%_))) - (_%g2806028131%_ - (lambda (_%g2806228073%_) - ((lambda (_%L28076%_) - (let* ((_%g2808928097%_ - (lambda (_%g2809028093%_) + _%g2797727980%_))) + (_%g2797528046%_ + (lambda (_%g2797727988%_) + ((lambda (_%g2797827991%_) + (let* ((_%g2800428012%_ + (lambda (_%g2800528008%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2809028093%_))) - (_%g2808828119%_ - (lambda (_%g2809028101%_) - ((lambda (_%L28104%_) + _%g2800528008%_))) + (_%g2800328034%_ + (lambda (_%g2800528016%_) + ((lambda (_%g2800628019%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L28003%_ + (cons (cons _%g2784027918%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L28104%_ '())) - (cons _%L28048%_ '()))) + (cons _%g2800628019%_ '())) + (cons _%g2795027963%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx27904%_))) - _%g2809028101%_)))) - (_%g2808828119%_ + (gx#stx-source _%stx27821%_))) + _%g2800528016%_)))) + (_%g2800328034%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) - (cons (foldr (lambda (_%g2812228125%_ + (cons (foldr (lambda (_%g2803728040%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2812328128%_) - (cons _%g2812228125%_ _%g2812328128%_)) + _%g2803828043%_) + (cons _%g2803728040%_ _%g2803828043%_)) '() - _%L28001%_) + _%g2783927916%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L28076%_ '()))) - (gx#stx-source _%stx27904%_))))) - _%g2806228073%_)))) - (_%g2806028131%_ _%body27917%_))) - _%g2803428045%_)))) + (cons _%g2797827991%_ '()))) + (gx#stx-source _%stx27821%_))))) + _%g2797727988%_)))) + (_%g2797528046%_ _%body27834%_))) + _%g2794927960%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2803228135%_ - (let _%recur28139%_ ((_%rest28142%_ + (_%g2794728050%_ + (let _%recur28054%_ ((_%rest28057%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause27915%_) - (_%rest-targets28144%_ _%tgt-lst27906%_)) + _%clause27832%_) + (_%rest-targets28059%_ _%tgt-lst27823%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__stx3924439245%_ - _%rest28142%_) - (_%g2814728159%_ + (let* ((_%__stx3912539126%_ + _%rest28057%_) + (_%g2806228074%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3924439245%_)))) - (let ((_%__kont3924739248%_ - (lambda (_%L28195%_ + _%__stx3912539126%_)))) + (let ((_%__kont3912839129%_ + (lambda (_%g2806428110%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L28197%_) - (let* ((_%g2821228224%_ - (lambda (_%g2821328220%_) + _%g2806528112%_) + (let* ((_%g2812728139%_ + (lambda (_%g2812828135%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2821328220%_))) - (_%g2821128255%_ - (lambda (_%g2821328228%_) - (if (gx#stx-pair? _%g2821328228%_) - (let ((_%e2821628231%_ - (gx#syntax-e _%g2821328228%_))) - (let ((_%hd2821728235%_ + _%g2812828135%_))) + (_%g2812628170%_ + (lambda (_%g2812828143%_) + (if (gx#stx-pair? _%g2812828143%_) + (let ((_%e2813128146%_ + (gx#syntax-e _%g2812828143%_))) + (let ((_%hd2813228150%_ (let () (declare (not safe)) - (##car _%e2821628231%_))) - (_%tl2821828238%_ + (##car _%e2813128146%_))) + (_%tl2813328153%_ (let () (declare (not safe)) - (##cdr _%e2821628231%_)))) - ((lambda (_%L28241%_ _%L28243%_) + (##cdr _%e2813128146%_)))) + ((lambda (_%g2812928156%_ + _%g2813028158%_) (|gerbil/core/match[1]#generate-match1| - _%stx27904%_ - _%L28243%_ - _%L28197%_ - (_%recur28139%_ - _%L28195%_ - _%L28241%_) - _%E27918%_)) - _%tl2821828238%_ - _%hd2821728235%_))) - (_%g2821228224%_ _%g2821328228%_))))) - (_%g2821128255%_ _%rest-targets28144%_)))) - (_%__kont3924939250%_ + _%stx27821%_ + _%g2813028158%_ + _%g2806528112%_ + (_%recur28054%_ + _%g2806428110%_ + _%g2812928156%_) + _%E27835%_)) + _%tl2813328153%_ + _%hd2813228150%_))) + (_%g2812728139%_ _%g2812828143%_))))) + (_%g2812628170%_ _%rest-targets28059%_)))) + (_%__kont3913039131%_ (lambda () - (cons _%L28003%_ - (foldr (lambda (_%g2816928172%_ _%g2817028175%_) - (cons _%g2816928172%_ _%g2817028175%_)) + (cons _%g2784027918%_ + (foldr (lambda (_%g2808428087%_ _%g2808528090%_) + (cons _%g2808428087%_ _%g2808528090%_)) '() - _%L28001%_))))) - (if (gx#stx-pair? _%__stx3924439245%_) - (let ((_%e2815128185%_ (gx#syntax-e _%__stx3924439245%_))) - (let ((_%tl2815328192%_ + _%g2783927916%_))))) + (if (gx#stx-pair? _%__stx3912539126%_) + (let ((_%e2806628100%_ (gx#syntax-e _%__stx3912539126%_))) + (let ((_%tl2806828107%_ (let () (declare (not safe)) - (##cdr _%e2815128185%_))) - (_%hd2815228189%_ + (##cdr _%e2806628100%_))) + (_%hd2806728104%_ (let () (declare (not safe)) - (##car _%e2815128185%_)))) - (_%__kont3924739248%_ - _%tl2815328192%_ - _%hd2815228189%_))) - (_%__kont3924939250%_))))))))) + (##car _%e2806628100%_)))) + (_%__kont3912839129%_ + _%tl2806828107%_ + _%hd2806728104%_))) + (_%__kont3913039131%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%var2793827997%_ - _%hd2792527955%_) - (_%g2792027944%_ - _%g2792127948%_))))))) - (_%loop2793327977%_ _%target2793027971%_ '())) - (_%g2792027944%_ _%g2792127948%_))))) + _%var2785527913%_ + _%hd2784227872%_) + (_%g2783727861%_ + _%g2783827865%_))))))) + (_%loop2785027894%_ _%target2784727888%_ '())) + (_%g2783727861%_ _%g2783827865%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2792027944%_ - _%g2792127948%_)))) - (_%g2792027944%_ _%g2792127948%_)))) - (_%g2792027944%_ _%g2792127948%_))))) - (_%g2791928263%_ + (_%g2783727861%_ + _%g2783827865%_)))) + (_%g2783727861%_ _%g2783827865%_)))) + (_%g2783727861%_ _%g2783827865%_))))) + (_%g2783628178%_ (list (gx#genident 'K) - (let ((__tmp39883 + (let ((__tmp39764 (map |gerbil/core/match[1]#match-pattern-vars| - _%clause27915%_))) + _%clause27832%_))) (declare (not safe)) - (##apply append __tmp39883)))))))) - (_%generate-body27911%_ - (_%parse-body27909%_ (gx#stx-length _%tgt-lst27906%_)))))) + (##apply append __tmp39764)))))))) + (_%generate-body27828%_ + (_%parse-body27826%_ (gx#stx-length _%tgt-lst27823%_)))))) (define |gerbil/core/match[1]#generate-match| - (lambda (_%stx27806%_ _%tgt27808%_ _%clauses27809%_) - (letrec ((_%reclause27811%_ - (lambda (_%clause27814%_) - (let* ((_%__stx3926039261%_ _%clause27814%_) - (_%g2781927834%_ + (lambda (_%stx27723%_ _%tgt27725%_ _%clauses27726%_) + (letrec ((_%reclause27728%_ + (lambda (_%clause27731%_) + (let* ((_%__stx3914139142%_ _%clause27731%_) + (_%g2773627751%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3926039261%_)))) - (let ((_%__kont3926339264%_ (lambda () _%clause27814%_)) - (_%__kont3926539266%_ - (lambda (_%L27862%_ _%L27864%_) + _%__stx3914139142%_)))) + (let ((_%__kont3914439145%_ (lambda () _%clause27731%_)) + (_%__kont3914639147%_ + (lambda (_%g2774127779%_ _%g2774227781%_) (gx#stx-wrap-source - (cons (cons _%L27864%_ '()) _%L27862%_) + (cons (cons _%g2774227781%_ '()) + _%g2774127779%_) (gx#stx-source (gx#datum->syntax '#f 'clause))))) - (_%__kont3926739268%_ + (_%__kont3914839149%_ (lambda () (gx#raise-syntax-error '#f '"bad syntax; illegal match clause" - _%stx27806%_ - _%clause27814%_)))) - (if (gx#stx-pair? _%__stx3926039261%_) - (let ((_%e2782127886%_ - (gx#syntax-e _%__stx3926039261%_))) - (let ((_%tl2782327893%_ + _%stx27723%_ + _%clause27731%_)))) + (if (gx#stx-pair? _%__stx3914139142%_) + (let ((_%e2773827803%_ + (gx#syntax-e _%__stx3914139142%_))) + (let ((_%tl2774027810%_ (let () (declare (not safe)) - (##cdr _%e2782127886%_))) - (_%hd2782227890%_ + (##cdr _%e2773827803%_))) + (_%hd2773927807%_ (let () (declare (not safe)) - (##car _%e2782127886%_)))) - (if (gx#identifier? _%hd2782227890%_) + (##car _%e2773827803%_)))) + (if (gx#identifier? _%hd2773927807%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39884_| - _%hd2782227890%_) - (_%__kont3926339264%_) - (_%__kont3926539266%_ - _%tl2782327893%_ - _%hd2782227890%_)) - (_%__kont3926539266%_ - _%tl2782327893%_ - _%hd2782227890%_)))) - (_%__kont3926739268%_))))))) + |gerbil/core/match[1]#_g39765_| + _%hd2773927807%_) + (_%__kont3914439145%_) + (_%__kont3914639147%_ + _%tl2774027810%_ + _%hd2773927807%_)) + (_%__kont3914639147%_ + _%tl2774027810%_ + _%hd2773927807%_)))) + (_%__kont3914839149%_))))))) (|gerbil/core/match[1]#generate-match*| - _%stx27806%_ - (cons _%tgt27808%_ '()) - (gx#stx-map _%reclause27811%_ _%clauses27809%_))))) + _%stx27723%_ + (cons _%tgt27725%_ '()) + (gx#stx-map _%reclause27728%_ _%clauses27726%_))))) (define |gerbil/core/match[:0:]#match| - (lambda (_%stx35161%_) - (let* ((_%__stx3928839289%_ _%stx35161%_) - (_%g3516635195%_ + (lambda (_%stx35064%_) + (let* ((_%__stx3916939170%_ _%stx35064%_) + (_%g3506935098%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3928839289%_)))) - (let ((_%__kont3929139292%_ - (lambda (_%L35435%_) - (let* ((_%g3544835456%_ - (lambda (_%g3544935452%_) + _%__stx3916939170%_)))) + (let ((_%__kont3917239173%_ + (lambda (_%g3507135338%_) + (let* ((_%g3535135359%_ + (lambda (_%g3535235355%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3544935452%_))) - (_%g3544735509%_ - (lambda (_%g3544935460%_) - ((lambda (_%L35463%_) - (let* ((_%g3547535483%_ - (lambda (_%g3547635479%_) + _%g3535235355%_))) + (_%g3535035412%_ + (lambda (_%g3535235363%_) + ((lambda (_%g3535335366%_) + (let* ((_%g3537835386%_ + (lambda (_%g3537935382%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3547635479%_))) - (_%g3547435505%_ - (lambda (_%g3547635487%_) - ((lambda (_%L35490%_) + _%g3537935382%_))) + (_%g3537735408%_ + (lambda (_%g3537935390%_) + ((lambda (_%g3538035393%_) (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L35463%_ '()) - (cons _%L35490%_ + (cons (cons _%g3535335366%_ + '()) + (cons _%g3538035393%_ '())))) - _%g3547635487%_)))) - (_%g3547435505%_ + _%g3537935390%_)))) + (_%g3537735408%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'match) - (cons _%L35463%_ _%L35435%_)) - (gx#stx-source _%stx35161%_))))) - _%g3544935460%_)))) - (_%g3544735509%_ (gx#genident 'e))))) - (_%__kont3929339294%_ - (lambda (_%L35330%_) - (let* ((_%g3534335351%_ - (lambda (_%g3534435347%_) + (cons _%g3535335366%_ + _%g3507135338%_)) + (gx#stx-source _%stx35064%_))))) + _%g3535235363%_)))) + (_%g3535035412%_ (gx#genident 'e))))) + (_%__kont3917439175%_ + (lambda (_%g3507835233%_) + (let* ((_%g3524635254%_ + (lambda (_%g3524735250%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3534435347%_))) - (_%g3534235404%_ - (lambda (_%g3534435355%_) - ((lambda (_%L35358%_) - (let* ((_%g3537035378%_ - (lambda (_%g3537135374%_) + _%g3524735250%_))) + (_%g3524535307%_ + (lambda (_%g3524735258%_) + ((lambda (_%g3524835261%_) + (let* ((_%g3527335281%_ + (lambda (_%g3527435277%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3537135374%_))) - (_%g3536935400%_ - (lambda (_%g3537135382%_) - ((lambda (_%L35385%_) + _%g3527435277%_))) + (_%g3527235303%_ + (lambda (_%g3527435285%_) + ((lambda (_%g3527535288%_) (cons (gx#datum->syntax '#f 'lambda) - (cons _%L35358%_ - (cons _%L35385%_ + (cons _%g3524835261%_ + (cons _%g3527535288%_ '())))) - _%g3537135382%_)))) - (_%g3536935400%_ + _%g3527435285%_)))) + (_%g3527235303%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'match) - (cons _%L35358%_ _%L35330%_)) - (gx#stx-source _%stx35161%_))))) - _%g3534435355%_)))) - (_%g3534235404%_ (gx#genident 'args))))) - (_%__kont3929539296%_ - (lambda (_%L35222%_ _%L35224%_) - (let* ((_%g3523835246%_ - (lambda (_%g3523935242%_) + (cons _%g3524835261%_ + _%g3507835233%_)) + (gx#stx-source _%stx35064%_))))) + _%g3524735258%_)))) + (_%g3524535307%_ (gx#genident 'args))))) + (_%__kont3917639177%_ + (lambda (_%g3508535125%_ _%g3508635127%_) + (let* ((_%g3514135149%_ + (lambda (_%g3514235145%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3523935242%_))) - (_%g3523735299%_ - (lambda (_%g3523935250%_) - ((lambda (_%L35253%_) - (let* ((_%g3526535273%_ - (lambda (_%g3526635269%_) + _%g3514235145%_))) + (_%g3514035202%_ + (lambda (_%g3514235153%_) + ((lambda (_%g3514335156%_) + (let* ((_%g3516835176%_ + (lambda (_%g3516935172%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3526635269%_))) - (_%g3526435295%_ - (lambda (_%g3526635277%_) - ((lambda (_%L35280%_) + _%g3516935172%_))) + (_%g3516735198%_ + (lambda (_%g3516935180%_) + ((lambda (_%g3517035183%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L35253%_ + (cons (cons (cons _%g3514335156%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L35224%_ '())) + (cons _%g3508635127%_ '())) '()) - (cons _%L35280%_ '())))) + (cons _%g3517035183%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3526635277%_)))) - (_%g3526435295%_ + _%g3516935180%_)))) + (_%g3516735198%_ (|gerbil/core/match[1]#generate-match| - _%stx35161%_ - _%L35253%_ - _%L35222%_)))) - _%g3523935250%_)))) - (_%g3523735299%_ (gx#genident _%L35224%_)))))) - (let* ((_%__match3934139342%_ - (lambda (_%e3518435202%_ - _%hd3518535206%_ - _%tl3518635209%_ - _%e3518735212%_ - _%hd3518835216%_ - _%tl3518935219%_) - (let ((_%L35222%_ _%tl3518935219%_) - (_%L35224%_ _%hd3518835216%_)) - (if (gx#stx-list? _%L35222%_) - (_%__kont3929539296%_ _%L35222%_ _%L35224%_) - (let () (declare (not safe)) (_%g3516635195%_)))))) - (_%__match3932939330%_ - (lambda (_%e3517635310%_ - _%hd3517735314%_ - _%tl3517835317%_ - _%e3517935320%_ - _%hd3518035324%_ - _%tl3518135327%_) - (let ((_%L35330%_ _%tl3518135327%_)) - (if (gx#stx-list? _%L35330%_) - (_%__kont3929339294%_ _%L35330%_) - (_%__match3934139342%_ - _%e3517635310%_ - _%hd3517735314%_ - _%tl3517835317%_ - _%e3517935320%_ - _%hd3518035324%_ - _%tl3518135327%_))))) - (_%__match3931339314%_ - (lambda (_%e3516935415%_ - _%hd3517035419%_ - _%tl3517135422%_ - _%e3517235425%_ - _%hd3517335429%_ - _%tl3517435432%_) - (let ((_%L35435%_ _%tl3517435432%_)) - (if (gx#stx-list? _%L35435%_) - (_%__kont3929139292%_ _%L35435%_) - (_%__match3934139342%_ - _%e3516935415%_ - _%hd3517035419%_ - _%tl3517135422%_ - _%e3517235425%_ - _%hd3517335429%_ - _%tl3517435432%_)))))) - (if (gx#stx-pair? _%__stx3928839289%_) - (let ((_%e3516935415%_ (gx#syntax-e _%__stx3928839289%_))) - (let ((_%tl3517135422%_ + _%stx35064%_ + _%g3514335156%_ + _%g3508535125%_)))) + _%g3514235153%_)))) + (_%g3514035202%_ (gx#genident _%g3508635127%_)))))) + (let* ((_%__match3922239223%_ + (lambda (_%e3508735105%_ + _%hd3508835109%_ + _%tl3508935112%_ + _%e3509035115%_ + _%hd3509135119%_ + _%tl3509235122%_) + (let ((_%g3508535125%_ _%tl3509235122%_) + (_%g3508635127%_ _%hd3509135119%_)) + (if (gx#stx-list? _%g3508535125%_) + (_%__kont3917639177%_ + _%g3508535125%_ + _%g3508635127%_) + (let () (declare (not safe)) (_%g3506935098%_)))))) + (_%__match3921039211%_ + (lambda (_%e3507935213%_ + _%hd3508035217%_ + _%tl3508135220%_ + _%e3508235223%_ + _%hd3508335227%_ + _%tl3508435230%_) + (let ((_%g3507835233%_ _%tl3508435230%_)) + (if (gx#stx-list? _%g3507835233%_) + (_%__kont3917439175%_ _%g3507835233%_) + (_%__match3922239223%_ + _%e3507935213%_ + _%hd3508035217%_ + _%tl3508135220%_ + _%e3508235223%_ + _%hd3508335227%_ + _%tl3508435230%_))))) + (_%__match3919439195%_ + (lambda (_%e3507235318%_ + _%hd3507335322%_ + _%tl3507435325%_ + _%e3507535328%_ + _%hd3507635332%_ + _%tl3507735335%_) + (let ((_%g3507135338%_ _%tl3507735335%_)) + (if (gx#stx-list? _%g3507135338%_) + (_%__kont3917239173%_ _%g3507135338%_) + (_%__match3922239223%_ + _%e3507235318%_ + _%hd3507335322%_ + _%tl3507435325%_ + _%e3507535328%_ + _%hd3507635332%_ + _%tl3507735335%_)))))) + (if (gx#stx-pair? _%__stx3916939170%_) + (let ((_%e3507235318%_ (gx#syntax-e _%__stx3916939170%_))) + (let ((_%tl3507435325%_ (let () (declare (not safe)) - (##cdr _%e3516935415%_))) - (_%hd3517035419%_ + (##cdr _%e3507235318%_))) + (_%hd3507335322%_ (let () (declare (not safe)) - (##car _%e3516935415%_)))) - (if (gx#stx-pair? _%tl3517135422%_) - (let ((_%e3517235425%_ - (gx#syntax-e _%tl3517135422%_))) - (let ((_%tl3517435432%_ + (##car _%e3507235318%_)))) + (if (gx#stx-pair? _%tl3507435325%_) + (let ((_%e3507535328%_ + (gx#syntax-e _%tl3507435325%_))) + (let ((_%tl3507735335%_ (let () (declare (not safe)) - (##cdr _%e3517235425%_))) - (_%hd3517335429%_ + (##cdr _%e3507535328%_))) + (_%hd3507635332%_ (let () (declare (not safe)) - (##car _%e3517235425%_)))) - (if (gx#identifier? _%hd3517335429%_) + (##car _%e3507535328%_)))) + (if (gx#identifier? _%hd3507635332%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39885_| - _%hd3517335429%_) - (_%__match3931339314%_ - _%e3516935415%_ - _%hd3517035419%_ - _%tl3517135422%_ - _%e3517235425%_ - _%hd3517335429%_ - _%tl3517435432%_) + |gerbil/core/match[1]#_g39766_| + _%hd3507635332%_) + (_%__match3919439195%_ + _%e3507235318%_ + _%hd3507335322%_ + _%tl3507435325%_ + _%e3507535328%_ + _%hd3507635332%_ + _%tl3507735335%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39886_| - _%hd3517335429%_) - (_%__match3932939330%_ - _%e3516935415%_ - _%hd3517035419%_ - _%tl3517135422%_ - _%e3517235425%_ - _%hd3517335429%_ - _%tl3517435432%_) - (_%__match3934139342%_ - _%e3516935415%_ - _%hd3517035419%_ - _%tl3517135422%_ - _%e3517235425%_ - _%hd3517335429%_ - _%tl3517435432%_))) - (_%__match3934139342%_ - _%e3516935415%_ - _%hd3517035419%_ - _%tl3517135422%_ - _%e3517235425%_ - _%hd3517335429%_ - _%tl3517435432%_)))) - (let () (declare (not safe)) (_%g3516635195%_))))) - (let () (declare (not safe)) (_%g3516635195%_)))))))) + |gerbil/core/match[1]#_g39767_| + _%hd3507635332%_) + (_%__match3921039211%_ + _%e3507235318%_ + _%hd3507335322%_ + _%tl3507435325%_ + _%e3507535328%_ + _%hd3507635332%_ + _%tl3507735335%_) + (_%__match3922239223%_ + _%e3507235318%_ + _%hd3507335322%_ + _%tl3507435325%_ + _%e3507535328%_ + _%hd3507635332%_ + _%tl3507735335%_))) + (_%__match3922239223%_ + _%e3507235318%_ + _%hd3507335322%_ + _%tl3507435325%_ + _%e3507535328%_ + _%hd3507635332%_ + _%tl3507735335%_)))) + (let () (declare (not safe)) (_%g3506935098%_))))) + (let () (declare (not safe)) (_%g3506935098%_)))))))) (define |gerbil/core/match[:0:]#match*| - (lambda (_%stx35517%_) - (let* ((_%g3552035544%_ - (lambda (_%g3552135540%_) + (lambda (_%stx35420%_) + (let* ((_%g3542335447%_ + (lambda (_%g3542435443%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3552135540%_))) - (_%g3551935756%_ - (lambda (_%g3552135548%_) - (if (gx#stx-pair? _%g3552135548%_) - (let ((_%e3552435551%_ (gx#syntax-e _%g3552135548%_))) - (let ((_%hd3552535555%_ + _%g3542435443%_))) + (_%g3542235655%_ + (lambda (_%g3542435451%_) + (if (gx#stx-pair? _%g3542435451%_) + (let ((_%e3542735454%_ (gx#syntax-e _%g3542435451%_))) + (let ((_%hd3542835458%_ (let () (declare (not safe)) - (##car _%e3552435551%_))) - (_%tl3552635558%_ + (##car _%e3542735454%_))) + (_%tl3542935461%_ (let () (declare (not safe)) - (##cdr _%e3552435551%_)))) - (if (gx#stx-pair? _%tl3552635558%_) - (let ((_%e3552735561%_ - (gx#syntax-e _%tl3552635558%_))) - (let ((_%hd3552835565%_ + (##cdr _%e3542735454%_)))) + (if (gx#stx-pair? _%tl3542935461%_) + (let ((_%e3543035464%_ + (gx#syntax-e _%tl3542935461%_))) + (let ((_%hd3543135468%_ (let () (declare (not safe)) - (##car _%e3552735561%_))) - (_%tl3552935568%_ + (##car _%e3543035464%_))) + (_%tl3543235471%_ (let () (declare (not safe)) - (##cdr _%e3552735561%_)))) - (if (gx#stx-pair/null? _%hd3552835565%_) - (let ((_g39887_ + (##cdr _%e3543035464%_)))) + (if (gx#stx-pair/null? _%hd3543135468%_) + (let ((_g39768_ (gx#syntax-split-splice - _%hd3552835565%_ + _%hd3543135468%_ '0))) (begin - (let ((_g39888_ + (let ((_g39769_ (let () (declare (not safe)) - (if (##values? _g39887_) + (if (##values? _g39768_) (##values-length - _g39887_) + _g39768_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g39888_ 2))) + (##fx= _g39769_ 2))) (error "Context expects 2 values" - _g39888_))) - (let ((_%target3553035571%_ + _g39769_))) + (let ((_%target3543335474%_ (let () (declare (not safe)) - (##values-ref _g39887_ 0))) - (_%tl3553235574%_ + (##values-ref _g39768_ 0))) + (_%tl3543535477%_ (let () (declare (not safe)) - (##values-ref _g39887_ 1)))) - (if (gx#stx-null? _%tl3553235574%_) - (letrec ((_%loop3553335577%_ - (lambda (_%hd3553135581%_ + (##values-ref _g39768_ 1)))) + (if (gx#stx-null? _%tl3543535477%_) + (letrec ((_%loop3543635480%_ + (lambda (_%hd3543435484%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e3553735584%_) - (if (gx#stx-pair? _%hd3553135581%_) - (let ((_%e3553435587%_ (gx#syntax-e _%hd3553135581%_))) - (let ((_%lp-hd3553535591%_ + _%e3544035487%_) + (if (gx#stx-pair? _%hd3543435484%_) + (let ((_%e3543735489%_ (gx#syntax-e _%hd3543435484%_))) + (let ((_%lp-hd3543835493%_ (let () (declare (not safe)) - (##car _%e3553435587%_))) - (_%lp-tl3553635594%_ + (##car _%e3543735489%_))) + (_%lp-tl3543935496%_ (let () (declare (not safe)) - (##cdr _%e3553435587%_)))) - (_%loop3553335577%_ - _%lp-tl3553635594%_ - (cons _%lp-hd3553535591%_ _%e3553735584%_)))) - (let ((_%e3553835597%_ (reverse _%e3553735584%_))) - ((lambda (_%L35601%_ _%L35603%_) - (if (gx#stx-list? _%L35601%_) - (let* ((_%g3562135638%_ - (lambda (_%g3562235634%_) + (##cdr _%e3543735489%_)))) + (_%loop3543635480%_ + _%lp-tl3543935496%_ + (cons _%lp-hd3543835493%_ _%e3544035487%_)))) + (let ((_%e3544135499%_ (reverse _%e3544035487%_))) + ((lambda (_%g3542535502%_ _%g3542635504%_) + (if (gx#stx-list? _%g3542535502%_) + (let* ((_%g3552235539%_ + (lambda (_%g3552335535%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3562235634%_))) - (_%g3562035744%_ - (lambda (_%g3562235642%_) + _%g3552335535%_))) + (_%g3552135643%_ + (lambda (_%g3552335543%_) (if (gx#stx-pair/null? - _%g3562235642%_) - (let ((_g39889_ + _%g3552335543%_) + (let ((_g39770_ (gx#syntax-split-splice - _%g3562235642%_ + _%g3552335543%_ '0))) (begin - (let ((_g39890_ + (let ((_g39771_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g39889_) - (##values-length _g39889_) + _g39770_) + (##values-length _g39770_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g39890_ 2))) - (error "Context expects 2 values" _g39890_))) + (##fx= _g39771_ 2))) + (error "Context expects 2 values" _g39771_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target3562435645%_ + (let ((_%target3552535546%_ (let () (declare (not safe)) (##values-ref - _g39889_ + _g39770_ 0))) - (_%tl3562635648%_ + (_%tl3552735549%_ (let () (declare (not safe)) (##values-ref - _g39889_ + _g39770_ 1)))) (if (gx#stx-null? - _%tl3562635648%_) - (letrec ((_%loop3562735651%_ + _%tl3552735549%_) + (letrec ((_%loop3552835552%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd3562535655%_ _%$e3563135658%_) - (if (gx#stx-pair? _%hd3562535655%_) - (let ((_%e3562835661%_ - (gx#syntax-e _%hd3562535655%_))) - (let ((_%lp-hd3562935665%_ + (lambda (_%hd3552635556%_ _%$e3553235559%_) + (if (gx#stx-pair? _%hd3552635556%_) + (let ((_%e3552935561%_ + (gx#syntax-e _%hd3552635556%_))) + (let ((_%lp-hd3553035565%_ (let () (declare (not safe)) - (##car _%e3562835661%_))) - (_%lp-tl3563035668%_ + (##car _%e3552935561%_))) + (_%lp-tl3553135568%_ (let () (declare (not safe)) - (##cdr _%e3562835661%_)))) - (_%loop3562735651%_ - _%lp-tl3563035668%_ - (cons _%lp-hd3562935665%_ - _%$e3563135658%_)))) - (let ((_%$e3563235671%_ - (reverse _%$e3563135658%_))) - ((lambda (_%L35675%_) - (let* ((_%g3569135699%_ - (lambda (_%g3569235695%_) + (##cdr _%e3552935561%_)))) + (_%loop3552835552%_ + _%lp-tl3553135568%_ + (cons _%lp-hd3553035565%_ + _%$e3553235559%_)))) + (let ((_%$e3553335571%_ + (reverse _%$e3553235559%_))) + ((lambda (_%g3552435574%_) + (let* ((_%g3559035598%_ + (lambda (_%g3559135594%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3569235695%_))) - (_%g3569035732%_ - (lambda (_%g3569235703%_) - ((lambda (_%L35706%_) + _%g3559135594%_))) + (_%g3558935631%_ + (lambda (_%g3559135602%_) + ((lambda (_%g3559235605%_) (cons (gx#datum->syntax '#f 'let) (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-check-splice-targets _%L35603%_ _%L35675%_) - (foldr (lambda (_%g3572035724%_ - _%g3572135727%_ - _%g3572235729%_) - (cons (cons _%g3572135727%_ - (cons _%g3572035724%_ '())) - _%g3572235729%_)) + (gx#syntax-check-splice-targets + _%g3542635504%_ + _%g3552435574%_) + (foldr (lambda (_%g3561935623%_ + _%g3562035626%_ + _%g3562135628%_) + (cons (cons _%g3562035626%_ + (cons _%g3561935623%_ '())) + _%g3562135628%_)) '() - _%L35603%_ - _%L35675%_)) - (cons _%L35706%_ '())))) + _%g3542635504%_ + _%g3552435574%_)) + (cons _%g3559235605%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3569235703%_)))) - (_%g3569035732%_ + _%g3559135602%_)))) + (_%g3558935631%_ (|gerbil/core/match[1]#generate-match*| - _%stx35517%_ - (foldr (lambda (_%g3573535738%_ - _%g3573635741%_) - (cons _%g3573535738%_ - _%g3573635741%_)) + _%stx35420%_ + (foldr (lambda (_%g3563435637%_ + _%g3563535640%_) + (cons _%g3563435637%_ + _%g3563535640%_)) '() - _%L35675%_) - _%L35601%_)))) - _%$e3563235671%_)))))) - (_%loop3562735651%_ _%target3562435645%_ '())) - (_%g3562135638%_ _%g3562235642%_))))) + _%g3552435574%_) + _%g3542535502%_)))) + _%$e3553335571%_)))))) + (_%loop3552835552%_ _%target3552535546%_ '())) + (_%g3552235539%_ _%g3552335543%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3562135638%_ - _%g3562235642%_))))) - (_%g3562035744%_ + (_%g3552235539%_ + _%g3552335543%_))))) + (_%g3552135643%_ (gx#gentemps - (foldr (lambda (_%g3574735750%_ - _%g3574835753%_) - (cons _%g3574735750%_ - _%g3574835753%_)) + (foldr (lambda (_%g3564635649%_ + _%g3564735652%_) + (cons _%g3564635649%_ + _%g3564735652%_)) '() - _%L35603%_)))) - (_%g3552035544%_ _%g3552135548%_))) - _%tl3552935568%_ - _%e3553835597%_)))))) + _%g3542635504%_)))) + (_%g3542335447%_ _%g3542435451%_))) + _%tl3543235471%_ + _%e3544135499%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop3553335577%_ - _%target3553035571%_ + (_%loop3543635480%_ + _%target3543335474%_ '())) - (_%g3552035544%_ - _%g3552135548%_))))) - (_%g3552035544%_ _%g3552135548%_)))) - (_%g3552035544%_ _%g3552135548%_)))) - (_%g3552035544%_ _%g3552135548%_))))) - (_%g3551935756%_ _%stx35517%_)))) + (_%g3542335447%_ + _%g3542435451%_))))) + (_%g3542335447%_ _%g3542435451%_)))) + (_%g3542335447%_ _%g3542435451%_)))) + (_%g3542335447%_ _%g3542435451%_))))) + (_%g3542235655%_ _%stx35420%_)))) (define |gerbil/core/match[:0:]#with| - (lambda (_%$stx35762%_) - (let* ((_%__stx3934439345%_ _%$stx35762%_) - (_%g3576835851%_ + (lambda (_%$stx35661%_) + (let* ((_%__stx3922539226%_ _%$stx35661%_) + (_%g3566735750%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3934439345%_)))) - (let ((_%__kont3934739348%_ - (lambda (_%L36181%_) + _%__stx3922539226%_)))) + (let ((_%__kont3922839229%_ + (lambda (_%g3566936070%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g3619736200%_ _%g3619836203%_) - (cons _%g3619736200%_ _%g3619836203%_)) + (foldr (lambda (_%g3608636089%_ _%g3608736092%_) + (cons _%g3608636089%_ _%g3608736092%_)) '() - _%L36181%_))))) - (_%__kont3935139352%_ - (lambda (_%L36089%_ _%L36091%_ _%L36092%_ _%L36093%_) - (cons _%L36093%_ - (cons (cons (cons _%L36092%_ (cons _%L36091%_ '())) + _%g3566936070%_))))) + (_%__kont3923239233%_ + (lambda (_%g3568535980%_ + _%g3568635982%_ + _%g3568735983%_ + _%g3568835984%_) + (cons _%g3568835984%_ + (cons (cons (cons _%g3568735983%_ + (cons _%g3568635982%_ '())) '()) - (foldr (lambda (_%g3611536118%_ _%g3611636121%_) - (cons _%g3611536118%_ _%g3611636121%_)) + (foldr (lambda (_%g3600636009%_ _%g3600736012%_) + (cons _%g3600636009%_ _%g3600736012%_)) '() - _%L36089%_))))) - (_%__kont3935539356%_ - (lambda (_%L35962%_ _%L35964%_ _%L35965%_) + _%g3568535980%_))))) + (_%__kont3923639237%_ + (lambda (_%g3571035855%_ _%g3571135857%_ _%g3571235858%_) (cons (gx#datum->syntax '#f 'match*) - (cons (foldr (lambda (_%g3598735994%_ _%g3598835997%_) - (cons _%g3598735994%_ _%g3598835997%_)) + (cons (foldr (lambda (_%g3588035887%_ _%g3588135890%_) + (cons _%g3588035887%_ _%g3588135890%_)) '() - _%L35964%_) - (cons (cons (foldr (lambda (_%g3598936000%_ - _%g3599036003%_) - (cons _%g3598936000%_ - _%g3599036003%_)) + _%g3571135857%_) + (cons (cons (foldr (lambda (_%g3588235893%_ + _%g3588335896%_) + (cons _%g3588235893%_ + _%g3588335896%_)) '() - _%L35965%_) - (foldr (lambda (_%g3599136006%_ - _%g3599236009%_) - (cons _%g3599136006%_ - _%g3599236009%_)) + _%g3571235858%_) + (foldr (lambda (_%g3588435899%_ + _%g3588535902%_) + (cons _%g3588435899%_ + _%g3588535902%_)) '() - _%L35962%_)) + _%g3571035855%_)) '())))))) - (let* ((_%__match3943739438%_ - (lambda (_%e3581435858%_ - _%hd3581535862%_ - _%tl3581635865%_ - _%e3581735868%_ - _%hd3581835872%_ - _%tl3581935875%_ - _%__splice3935739358%_ - _%target3582035878%_ - _%tl3582235881%_) - (letrec ((_%loop3582335884%_ - (lambda (_%hd3582135888%_ - _%expr3582735891%_ - _%hd3582835893%_) - (if (gx#stx-pair? _%hd3582135888%_) - (let ((_%e3582435896%_ - (gx#syntax-e _%hd3582135888%_))) - (let ((_%lp-tl3582635903%_ + (let* ((_%__match3931839319%_ + (lambda (_%e3571335757%_ + _%hd3571435761%_ + _%tl3571535764%_ + _%e3571635767%_ + _%hd3571735771%_ + _%tl3571835774%_ + _%__splice3923839239%_ + _%target3571935777%_ + _%tl3572135780%_) + (letrec ((_%loop3572235783%_ + (lambda (_%hd3572035787%_ + _%expr3572635790%_ + _%hd3572735791%_) + (if (gx#stx-pair? _%hd3572035787%_) + (let ((_%e3572335793%_ + (gx#syntax-e _%hd3572035787%_))) + (let ((_%lp-tl3572535800%_ (let () (declare (not safe)) - (##cdr _%e3582435896%_))) - (_%lp-hd3582535900%_ + (##cdr _%e3572335793%_))) + (_%lp-hd3572435797%_ (let () (declare (not safe)) - (##car _%e3582435896%_)))) + (##car _%e3572335793%_)))) (if (gx#stx-pair? - _%lp-hd3582535900%_) - (let ((_%e3583135906%_ + _%lp-hd3572435797%_) + (let ((_%e3573035803%_ (gx#syntax-e - _%lp-hd3582535900%_))) - (let ((_%tl3583335913%_ + _%lp-hd3572435797%_))) + (let ((_%tl3573235810%_ (let () (declare (not safe)) - (##cdr _%e3583135906%_))) - (_%hd3583235910%_ + (##cdr _%e3573035803%_))) + (_%hd3573135807%_ (let () (declare (not safe)) - (##car _%e3583135906%_)))) + (##car _%e3573035803%_)))) (if (gx#stx-pair? - _%tl3583335913%_) - (let ((_%e3583435916%_ + _%tl3573235810%_) + (let ((_%e3573335813%_ (gx#syntax-e - _%tl3583335913%_))) - (let ((_%tl3583635923%_ + _%tl3573235810%_))) + (let ((_%tl3573535820%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3583435916%_))) - (_%hd3583535920%_ - (let () (declare (not safe)) (##car _%e3583435916%_)))) - (if (gx#stx-null? _%tl3583635923%_) - (_%loop3582335884%_ - _%lp-tl3582635903%_ - (cons _%hd3583535920%_ _%expr3582735891%_) - (cons _%hd3583235910%_ _%hd3582835893%_)) - (let () (declare (not safe)) (_%g3576835851%_))))) - (let () (declare (not safe)) (_%g3576835851%_))))) + (##cdr _%e3573335813%_))) + (_%hd3573435817%_ + (let () (declare (not safe)) (##car _%e3573335813%_)))) + (if (gx#stx-null? _%tl3573535820%_) + (_%loop3572235783%_ + _%lp-tl3572535800%_ + (cons _%hd3573435817%_ _%expr3572635790%_) + (cons _%hd3573135807%_ _%hd3572735791%_)) + (let () (declare (not safe)) (_%g3566735750%_))))) + (let () (declare (not safe)) (_%g3566735750%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3576835851%_))))) - (let ((_%hd3583035929%_ - (reverse _%hd3582835893%_)) - (_%expr3582935926%_ - (reverse _%expr3582735891%_))) + (_%g3566735750%_))))) + (let ((_%hd3572935825%_ + (reverse _%hd3572735791%_)) + (_%expr3572835823%_ + (reverse _%expr3572635790%_))) (if (gx#stx-pair/null? - _%tl3581935875%_) - (let ((_%__splice3935939360%_ + _%tl3571835774%_) + (let ((_%__splice3924039241%_ (gx#syntax-split-splice->vector - _%tl3581935875%_ + _%tl3571835774%_ '0))) - (let ((_%tl3583935935%_ + (let ((_%tl3573835830%_ (let () (declare (not safe)) (##vector-ref - _%__splice3935939360%_ + _%__splice3924039241%_ '1))) - (_%target3583735932%_ + (_%target3573635827%_ (let () (declare (not safe)) (##vector-ref - _%__splice3935939360%_ + _%__splice3924039241%_ '0)))) (if (gx#stx-null? - _%tl3583935935%_) - (letrec ((_%loop3584035938%_ - (lambda (_%hd3583835942%_ + _%tl3573835830%_) + (letrec ((_%loop3573935833%_ + (lambda (_%hd3573735837%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body3584435945%_) - (if (gx#stx-pair? _%hd3583835942%_) - (let ((_%e3584135948%_ - (gx#syntax-e _%hd3583835942%_))) - (let ((_%lp-tl3584335955%_ + _%body3574335840%_) + (if (gx#stx-pair? _%hd3573735837%_) + (let ((_%e3574035842%_ + (gx#syntax-e _%hd3573735837%_))) + (let ((_%lp-tl3574235849%_ (let () (declare (not safe)) - (##cdr _%e3584135948%_))) - (_%lp-hd3584235952%_ + (##cdr _%e3574035842%_))) + (_%lp-hd3574135846%_ (let () (declare (not safe)) - (##car _%e3584135948%_)))) - (_%loop3584035938%_ - _%lp-tl3584335955%_ - (cons _%lp-hd3584235952%_ - _%body3584435945%_)))) - (let ((_%body3584535958%_ - (reverse _%body3584435945%_))) - (_%__kont3935539356%_ - _%body3584535958%_ - _%expr3582935926%_ - _%hd3583035929%_)))))) - (_%loop3584035938%_ _%target3583735932%_ '())) + (##car _%e3574035842%_)))) + (_%loop3573935833%_ + _%lp-tl3574235849%_ + (cons _%lp-hd3574135846%_ + _%body3574335840%_)))) + (let ((_%body3574435852%_ + (reverse _%body3574335840%_))) + (_%__kont3923639237%_ + _%body3574435852%_ + _%expr3572835823%_ + _%hd3572935825%_)))))) + (_%loop3573935833%_ _%target3573635827%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3576835851%_))))) + (_%g3566735750%_))))) (let () (declare (not safe)) - (_%g3576835851%_)))))))) - (_%loop3582335884%_ _%target3582035878%_ '() '())))) - (_%__match3942939430%_ - (lambda (_%e3581435858%_ - _%hd3581535862%_ - _%tl3581635865%_ - _%e3581735868%_ - _%hd3581835872%_ - _%tl3581935875%_) - (if (gx#stx-pair/null? _%hd3581835872%_) - (let ((_%__splice3935739358%_ + (_%g3566735750%_)))))))) + (_%loop3572235783%_ _%target3571935777%_ '() '())))) + (_%__match3931039311%_ + (lambda (_%e3571335757%_ + _%hd3571435761%_ + _%tl3571535764%_ + _%e3571635767%_ + _%hd3571735771%_ + _%tl3571835774%_) + (if (gx#stx-pair/null? _%hd3571735771%_) + (let ((_%__splice3923839239%_ (gx#syntax-split-splice->vector - _%hd3581835872%_ + _%hd3571735771%_ '0))) - (let ((_%tl3582235881%_ + (let ((_%tl3572135780%_ (let () (declare (not safe)) - (##vector-ref _%__splice3935739358%_ '1))) - (_%target3582035878%_ + (##vector-ref _%__splice3923839239%_ '1))) + (_%target3571935777%_ (let () (declare (not safe)) (##vector-ref - _%__splice3935739358%_ + _%__splice3923839239%_ '0)))) - (if (gx#stx-null? _%tl3582235881%_) - (_%__match3943739438%_ - _%e3581435858%_ - _%hd3581535862%_ - _%tl3581635865%_ - _%e3581735868%_ - _%hd3581835872%_ - _%tl3581935875%_ - _%__splice3935739358%_ - _%target3582035878%_ - _%tl3582235881%_) + (if (gx#stx-null? _%tl3572135780%_) + (_%__match3931839319%_ + _%e3571335757%_ + _%hd3571435761%_ + _%tl3571535764%_ + _%e3571635767%_ + _%hd3571735771%_ + _%tl3571835774%_ + _%__splice3923839239%_ + _%target3571935777%_ + _%tl3572135780%_) (let () (declare (not safe)) - (_%g3576835851%_))))) - (let () (declare (not safe)) (_%g3576835851%_))))) - (_%__match3941739418%_ - (lambda (_%e3579036019%_ - _%hd3579136023%_ - _%tl3579236026%_ - _%e3579336029%_ - _%hd3579436033%_ - _%tl3579536036%_ - _%e3579636039%_ - _%hd3579736043%_ - _%tl3579836046%_ - _%e3579936049%_ - _%hd3580036053%_ - _%tl3580136056%_ - _%__splice3935339354%_ - _%target3580236059%_ - _%tl3580436062%_) - (letrec ((_%loop3580536065%_ - (lambda (_%hd3580336069%_ _%body3580936072%_) - (if (gx#stx-pair? _%hd3580336069%_) - (let ((_%e3580636075%_ - (gx#syntax-e _%hd3580336069%_))) - (let ((_%lp-tl3580836082%_ + (_%g3566735750%_))))) + (let () (declare (not safe)) (_%g3566735750%_))))) + (_%__match3929839299%_ + (lambda (_%e3568935912%_ + _%hd3569035916%_ + _%tl3569135919%_ + _%e3569235922%_ + _%hd3569335926%_ + _%tl3569435929%_ + _%e3569535932%_ + _%hd3569635936%_ + _%tl3569735939%_ + _%e3569835942%_ + _%hd3569935946%_ + _%tl3570035949%_ + _%__splice3923439235%_ + _%target3570135952%_ + _%tl3570335955%_) + (letrec ((_%loop3570435958%_ + (lambda (_%hd3570235962%_ _%body3570835965%_) + (if (gx#stx-pair? _%hd3570235962%_) + (let ((_%e3570535967%_ + (gx#syntax-e _%hd3570235962%_))) + (let ((_%lp-tl3570735974%_ (let () (declare (not safe)) - (##cdr _%e3580636075%_))) - (_%lp-hd3580736079%_ + (##cdr _%e3570535967%_))) + (_%lp-hd3570635971%_ (let () (declare (not safe)) - (##car _%e3580636075%_)))) - (_%loop3580536065%_ - _%lp-tl3580836082%_ - (cons _%lp-hd3580736079%_ - _%body3580936072%_)))) - (let ((_%body3581036085%_ - (reverse _%body3580936072%_))) - (let ((_%L36089%_ _%body3581036085%_) - (_%L36091%_ _%hd3580036053%_) - (_%L36092%_ _%hd3579736043%_) - (_%L36093%_ _%hd3579136023%_)) + (##car _%e3570535967%_)))) + (_%loop3570435958%_ + _%lp-tl3570735974%_ + (cons _%lp-hd3570635971%_ + _%body3570835965%_)))) + (let ((_%body3570935977%_ + (reverse _%body3570835965%_))) + (let ((_%g3568535980%_ + _%body3570935977%_) + (_%g3568635982%_ + _%hd3569935946%_) + (_%g3568735983%_ + _%hd3569635936%_) + (_%g3568835984%_ + _%hd3569035916%_)) (if (|gerbil/core/match[1]#match-pattern?| - _%L36092%_) - (_%__kont3935139352%_ - _%L36089%_ - _%L36091%_ - _%L36092%_ - _%L36093%_) - (_%__match3942939430%_ - _%e3579036019%_ - _%hd3579136023%_ - _%tl3579236026%_ - _%e3579336029%_ - _%hd3579436033%_ - _%tl3579536036%_)))))))) - (_%loop3580536065%_ _%target3580236059%_ '())))) - (_%__match3938339384%_ - (lambda (_%e3577136131%_ - _%hd3577236135%_ - _%tl3577336138%_ - _%e3577436141%_ - _%hd3577536145%_ - _%tl3577636148%_ - _%__splice3934939350%_ - _%target3577736151%_ - _%tl3577936154%_) - (letrec ((_%loop3578036157%_ - (lambda (_%hd3577836161%_ _%body3578436164%_) - (if (gx#stx-pair? _%hd3577836161%_) - (let ((_%e3578136167%_ - (gx#syntax-e _%hd3577836161%_))) - (let ((_%lp-tl3578336174%_ + _%g3568735983%_) + (_%__kont3923239233%_ + _%g3568535980%_ + _%g3568635982%_ + _%g3568735983%_ + _%g3568835984%_) + (_%__match3931039311%_ + _%e3568935912%_ + _%hd3569035916%_ + _%tl3569135919%_ + _%e3569235922%_ + _%hd3569335926%_ + _%tl3569435929%_)))))))) + (_%loop3570435958%_ _%target3570135952%_ '())))) + (_%__match3926439265%_ + (lambda (_%e3567036022%_ + _%hd3567136026%_ + _%tl3567236029%_ + _%e3567336032%_ + _%hd3567436036%_ + _%tl3567536039%_ + _%__splice3923039231%_ + _%target3567636042%_ + _%tl3567836045%_) + (letrec ((_%loop3567936048%_ + (lambda (_%hd3567736052%_ _%body3568336055%_) + (if (gx#stx-pair? _%hd3567736052%_) + (let ((_%e3568036057%_ + (gx#syntax-e _%hd3567736052%_))) + (let ((_%lp-tl3568236064%_ (let () (declare (not safe)) - (##cdr _%e3578136167%_))) - (_%lp-hd3578236171%_ + (##cdr _%e3568036057%_))) + (_%lp-hd3568136061%_ (let () (declare (not safe)) - (##car _%e3578136167%_)))) - (_%loop3578036157%_ - _%lp-tl3578336174%_ - (cons _%lp-hd3578236171%_ - _%body3578436164%_)))) - (let ((_%body3578536177%_ - (reverse _%body3578436164%_))) - (_%__kont3934739348%_ - _%body3578536177%_)))))) - (_%loop3578036157%_ _%target3577736151%_ '()))))) - (if (gx#stx-pair? _%__stx3934439345%_) - (let ((_%e3577136131%_ (gx#syntax-e _%__stx3934439345%_))) - (let ((_%tl3577336138%_ + (##car _%e3568036057%_)))) + (_%loop3567936048%_ + _%lp-tl3568236064%_ + (cons _%lp-hd3568136061%_ + _%body3568336055%_)))) + (let ((_%body3568436067%_ + (reverse _%body3568336055%_))) + (_%__kont3922839229%_ + _%body3568436067%_)))))) + (_%loop3567936048%_ _%target3567636042%_ '()))))) + (if (gx#stx-pair? _%__stx3922539226%_) + (let ((_%e3567036022%_ (gx#syntax-e _%__stx3922539226%_))) + (let ((_%tl3567236029%_ (let () (declare (not safe)) - (##cdr _%e3577136131%_))) - (_%hd3577236135%_ + (##cdr _%e3567036022%_))) + (_%hd3567136026%_ (let () (declare (not safe)) - (##car _%e3577136131%_)))) - (if (gx#stx-pair? _%tl3577336138%_) - (let ((_%e3577436141%_ - (gx#syntax-e _%tl3577336138%_))) - (let ((_%tl3577636148%_ + (##car _%e3567036022%_)))) + (if (gx#stx-pair? _%tl3567236029%_) + (let ((_%e3567336032%_ + (gx#syntax-e _%tl3567236029%_))) + (let ((_%tl3567536039%_ (let () (declare (not safe)) - (##cdr _%e3577436141%_))) - (_%hd3577536145%_ + (##cdr _%e3567336032%_))) + (_%hd3567436036%_ (let () (declare (not safe)) - (##car _%e3577436141%_)))) - (if (gx#stx-null? _%hd3577536145%_) - (if (gx#stx-pair/null? _%tl3577636148%_) - (let ((_%__splice3934939350%_ + (##car _%e3567336032%_)))) + (if (gx#stx-null? _%hd3567436036%_) + (if (gx#stx-pair/null? _%tl3567536039%_) + (let ((_%__splice3923039231%_ (gx#syntax-split-splice->vector - _%tl3577636148%_ + _%tl3567536039%_ '0))) - (let ((_%tl3577936154%_ + (let ((_%tl3567836045%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934939350%_ + _%__splice3923039231%_ '1))) - (_%target3577736151%_ + (_%target3567636042%_ (let () (declare (not safe)) (##vector-ref - _%__splice3934939350%_ + _%__splice3923039231%_ '0)))) - (if (gx#stx-null? _%tl3577936154%_) - (_%__match3938339384%_ - _%e3577136131%_ - _%hd3577236135%_ - _%tl3577336138%_ - _%e3577436141%_ - _%hd3577536145%_ - _%tl3577636148%_ - _%__splice3934939350%_ - _%target3577736151%_ - _%tl3577936154%_) + (if (gx#stx-null? _%tl3567836045%_) + (_%__match3926439265%_ + _%e3567036022%_ + _%hd3567136026%_ + _%tl3567236029%_ + _%e3567336032%_ + _%hd3567436036%_ + _%tl3567536039%_ + _%__splice3923039231%_ + _%target3567636042%_ + _%tl3567836045%_) (if (gx#stx-pair/null? - _%hd3577536145%_) - (let ((_%__splice3935739358%_ + _%hd3567436036%_) + (let ((_%__splice3923839239%_ (gx#syntax-split-splice->vector - _%hd3577536145%_ + _%hd3567436036%_ '0))) - (let ((_%tl3582235881%_ + (let ((_%tl3572135780%_ (let () (declare (not safe)) (##vector-ref - _%__splice3935739358%_ + _%__splice3923839239%_ '1))) - (_%target3582035878%_ + (_%target3571935777%_ (let () (declare (not safe)) (##vector-ref - _%__splice3935739358%_ + _%__splice3923839239%_ '0)))) (if (gx#stx-null? - _%tl3582235881%_) - (_%__match3943739438%_ - _%e3577136131%_ - _%hd3577236135%_ - _%tl3577336138%_ - _%e3577436141%_ - _%hd3577536145%_ - _%tl3577636148%_ - _%__splice3935739358%_ - _%target3582035878%_ - _%tl3582235881%_) + _%tl3572135780%_) + (_%__match3931839319%_ + _%e3567036022%_ + _%hd3567136026%_ + _%tl3567236029%_ + _%e3567336032%_ + _%hd3567436036%_ + _%tl3567536039%_ + _%__splice3923839239%_ + _%target3571935777%_ + _%tl3572135780%_) (let () (declare (not safe)) - (_%g3576835851%_))))) + (_%g3566735750%_))))) (let () (declare (not safe)) - (_%g3576835851%_)))))) - (if (gx#stx-pair/null? _%hd3577536145%_) - (let ((_%__splice3935739358%_ + (_%g3566735750%_)))))) + (if (gx#stx-pair/null? _%hd3567436036%_) + (let ((_%__splice3923839239%_ (gx#syntax-split-splice->vector - _%hd3577536145%_ + _%hd3567436036%_ '0))) - (let ((_%tl3582235881%_ + (let ((_%tl3572135780%_ (let () (declare (not safe)) (##vector-ref - _%__splice3935739358%_ + _%__splice3923839239%_ '1))) - (_%target3582035878%_ + (_%target3571935777%_ (let () (declare (not safe)) (##vector-ref - _%__splice3935739358%_ + _%__splice3923839239%_ '0)))) (if (gx#stx-null? - _%tl3582235881%_) - (_%__match3943739438%_ - _%e3577136131%_ - _%hd3577236135%_ - _%tl3577336138%_ - _%e3577436141%_ - _%hd3577536145%_ - _%tl3577636148%_ - _%__splice3935739358%_ - _%target3582035878%_ - _%tl3582235881%_) + _%tl3572135780%_) + (_%__match3931839319%_ + _%e3567036022%_ + _%hd3567136026%_ + _%tl3567236029%_ + _%e3567336032%_ + _%hd3567436036%_ + _%tl3567536039%_ + _%__splice3923839239%_ + _%target3571935777%_ + _%tl3572135780%_) (let () (declare (not safe)) - (_%g3576835851%_))))) + (_%g3566735750%_))))) (let () (declare (not safe)) - (_%g3576835851%_)))) - (if (gx#stx-pair? _%hd3577536145%_) - (let ((_%e3579636039%_ - (gx#syntax-e _%hd3577536145%_))) - (let ((_%tl3579836046%_ + (_%g3566735750%_)))) + (if (gx#stx-pair? _%hd3567436036%_) + (let ((_%e3569535932%_ + (gx#syntax-e _%hd3567436036%_))) + (let ((_%tl3569735939%_ (let () (declare (not safe)) - (##cdr _%e3579636039%_))) - (_%hd3579736043%_ + (##cdr _%e3569535932%_))) + (_%hd3569635936%_ (let () (declare (not safe)) - (##car _%e3579636039%_)))) - (if (gx#stx-pair? _%tl3579836046%_) - (let ((_%e3579936049%_ + (##car _%e3569535932%_)))) + (if (gx#stx-pair? _%tl3569735939%_) + (let ((_%e3569835942%_ (gx#syntax-e - _%tl3579836046%_))) - (let ((_%tl3580136056%_ + _%tl3569735939%_))) + (let ((_%tl3570035949%_ (let () (declare (not safe)) - (##cdr _%e3579936049%_))) - (_%hd3580036053%_ + (##cdr _%e3569835942%_))) + (_%hd3569935946%_ (let () (declare (not safe)) - (##car _%e3579936049%_)))) + (##car _%e3569835942%_)))) (if (gx#stx-null? - _%tl3580136056%_) + _%tl3570035949%_) (if (gx#stx-pair/null? - _%tl3577636148%_) - (let ((_%__splice3935339354%_ + _%tl3567536039%_) + (let ((_%__splice3923439235%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice->vector _%tl3577636148%_ '0))) - (let ((_%tl3580436062%_ + (gx#syntax-split-splice->vector _%tl3567536039%_ '0))) + (let ((_%tl3570335955%_ (let () (declare (not safe)) - (##vector-ref _%__splice3935339354%_ '1))) - (_%target3580236059%_ + (##vector-ref _%__splice3923439235%_ '1))) + (_%target3570135952%_ (let () (declare (not safe)) - (##vector-ref _%__splice3935339354%_ '0)))) - (if (gx#stx-null? _%tl3580436062%_) - (_%__match3941739418%_ - _%e3577136131%_ - _%hd3577236135%_ - _%tl3577336138%_ - _%e3577436141%_ - _%hd3577536145%_ - _%tl3577636148%_ - _%e3579636039%_ - _%hd3579736043%_ - _%tl3579836046%_ - _%e3579936049%_ - _%hd3580036053%_ - _%tl3580136056%_ - _%__splice3935339354%_ - _%target3580236059%_ - _%tl3580436062%_) - (if (gx#stx-pair/null? _%hd3577536145%_) - (let ((_%__splice3935739358%_ + (##vector-ref _%__splice3923439235%_ '0)))) + (if (gx#stx-null? _%tl3570335955%_) + (_%__match3929839299%_ + _%e3567036022%_ + _%hd3567136026%_ + _%tl3567236029%_ + _%e3567336032%_ + _%hd3567436036%_ + _%tl3567536039%_ + _%e3569535932%_ + _%hd3569635936%_ + _%tl3569735939%_ + _%e3569835942%_ + _%hd3569935946%_ + _%tl3570035949%_ + _%__splice3923439235%_ + _%target3570135952%_ + _%tl3570335955%_) + (if (gx#stx-pair/null? _%hd3567436036%_) + (let ((_%__splice3923839239%_ (gx#syntax-split-splice->vector - _%hd3577536145%_ + _%hd3567436036%_ '0))) - (let ((_%tl3582235881%_ + (let ((_%tl3572135780%_ (let () (declare (not safe)) (##vector-ref - _%__splice3935739358%_ + _%__splice3923839239%_ '1))) - (_%target3582035878%_ + (_%target3571935777%_ (let () (declare (not safe)) (##vector-ref - _%__splice3935739358%_ + _%__splice3923839239%_ '0)))) - (if (gx#stx-null? _%tl3582235881%_) - (_%__match3943739438%_ - _%e3577136131%_ - _%hd3577236135%_ - _%tl3577336138%_ - _%e3577436141%_ - _%hd3577536145%_ - _%tl3577636148%_ - _%__splice3935739358%_ - _%target3582035878%_ - _%tl3582235881%_) + (if (gx#stx-null? _%tl3572135780%_) + (_%__match3931839319%_ + _%e3567036022%_ + _%hd3567136026%_ + _%tl3567236029%_ + _%e3567336032%_ + _%hd3567436036%_ + _%tl3567536039%_ + _%__splice3923839239%_ + _%target3571935777%_ + _%tl3572135780%_) (let () (declare (not safe)) - (_%g3576835851%_))))) + (_%g3566735750%_))))) (let () (declare (not safe)) - (_%g3576835851%_)))))) - (if (gx#stx-pair/null? _%hd3577536145%_) - (let ((_%__splice3935739358%_ + (_%g3566735750%_)))))) + (if (gx#stx-pair/null? _%hd3567436036%_) + (let ((_%__splice3923839239%_ (gx#syntax-split-splice->vector - _%hd3577536145%_ + _%hd3567436036%_ '0))) - (let ((_%tl3582235881%_ + (let ((_%tl3572135780%_ (let () (declare (not safe)) - (##vector-ref _%__splice3935739358%_ '1))) - (_%target3582035878%_ + (##vector-ref _%__splice3923839239%_ '1))) + (_%target3571935777%_ (let () (declare (not safe)) - (##vector-ref _%__splice3935739358%_ '0)))) - (if (gx#stx-null? _%tl3582235881%_) - (_%__match3943739438%_ - _%e3577136131%_ - _%hd3577236135%_ - _%tl3577336138%_ - _%e3577436141%_ - _%hd3577536145%_ - _%tl3577636148%_ - _%__splice3935739358%_ - _%target3582035878%_ - _%tl3582235881%_) + (##vector-ref _%__splice3923839239%_ '0)))) + (if (gx#stx-null? _%tl3572135780%_) + (_%__match3931839319%_ + _%e3567036022%_ + _%hd3567136026%_ + _%tl3567236029%_ + _%e3567336032%_ + _%hd3567436036%_ + _%tl3567536039%_ + _%__splice3923839239%_ + _%target3571935777%_ + _%tl3572135780%_) (let () (declare (not safe)) - (_%g3576835851%_))))) - (let () (declare (not safe)) (_%g3576835851%_)))) - (if (gx#stx-pair/null? _%hd3577536145%_) - (let ((_%__splice3935739358%_ - (gx#syntax-split-splice->vector _%hd3577536145%_ '0))) - (let ((_%tl3582235881%_ + (_%g3566735750%_))))) + (let () (declare (not safe)) (_%g3566735750%_)))) + (if (gx#stx-pair/null? _%hd3567436036%_) + (let ((_%__splice3923839239%_ + (gx#syntax-split-splice->vector _%hd3567436036%_ '0))) + (let ((_%tl3572135780%_ (let () (declare (not safe)) - (##vector-ref _%__splice3935739358%_ '1))) - (_%target3582035878%_ + (##vector-ref _%__splice3923839239%_ '1))) + (_%target3571935777%_ (let () (declare (not safe)) - (##vector-ref _%__splice3935739358%_ '0)))) - (if (gx#stx-null? _%tl3582235881%_) - (_%__match3943739438%_ - _%e3577136131%_ - _%hd3577236135%_ - _%tl3577336138%_ - _%e3577436141%_ - _%hd3577536145%_ - _%tl3577636148%_ - _%__splice3935739358%_ - _%target3582035878%_ - _%tl3582235881%_) - (let () (declare (not safe)) (_%g3576835851%_))))) - (let () (declare (not safe)) (_%g3576835851%_)))))) + (##vector-ref _%__splice3923839239%_ '0)))) + (if (gx#stx-null? _%tl3572135780%_) + (_%__match3931839319%_ + _%e3567036022%_ + _%hd3567136026%_ + _%tl3567236029%_ + _%e3567336032%_ + _%hd3567436036%_ + _%tl3567536039%_ + _%__splice3923839239%_ + _%target3571935777%_ + _%tl3572135780%_) + (let () (declare (not safe)) (_%g3566735750%_))))) + (let () (declare (not safe)) (_%g3566735750%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd3577536145%_) - (let ((_%__splice3935739358%_ + _%hd3567436036%_) + (let ((_%__splice3923839239%_ (gx#syntax-split-splice->vector - _%hd3577536145%_ + _%hd3567436036%_ '0))) - (let ((_%tl3582235881%_ + (let ((_%tl3572135780%_ (let () (declare (not safe)) (##vector-ref - _%__splice3935739358%_ + _%__splice3923839239%_ '1))) - (_%target3582035878%_ + (_%target3571935777%_ (let () (declare (not safe)) (##vector-ref - _%__splice3935739358%_ + _%__splice3923839239%_ '0)))) (if (gx#stx-null? - _%tl3582235881%_) - (_%__match3943739438%_ - _%e3577136131%_ - _%hd3577236135%_ - _%tl3577336138%_ - _%e3577436141%_ - _%hd3577536145%_ - _%tl3577636148%_ - _%__splice3935739358%_ - _%target3582035878%_ - _%tl3582235881%_) + _%tl3572135780%_) + (_%__match3931839319%_ + _%e3567036022%_ + _%hd3567136026%_ + _%tl3567236029%_ + _%e3567336032%_ + _%hd3567436036%_ + _%tl3567536039%_ + _%__splice3923839239%_ + _%target3571935777%_ + _%tl3572135780%_) (let () (declare (not safe)) - (_%g3576835851%_))))) + (_%g3566735750%_))))) (let () (declare (not safe)) - (_%g3576835851%_)))))) - (if (gx#stx-pair/null? _%hd3577536145%_) - (let ((_%__splice3935739358%_ + (_%g3566735750%_)))))) + (if (gx#stx-pair/null? _%hd3567436036%_) + (let ((_%__splice3923839239%_ (gx#syntax-split-splice->vector - _%hd3577536145%_ + _%hd3567436036%_ '0))) - (let ((_%tl3582235881%_ + (let ((_%tl3572135780%_ (let () (declare (not safe)) (##vector-ref - _%__splice3935739358%_ + _%__splice3923839239%_ '1))) - (_%target3582035878%_ + (_%target3571935777%_ (let () (declare (not safe)) (##vector-ref - _%__splice3935739358%_ + _%__splice3923839239%_ '0)))) (if (gx#stx-null? - _%tl3582235881%_) - (_%__match3943739438%_ - _%e3577136131%_ - _%hd3577236135%_ - _%tl3577336138%_ - _%e3577436141%_ - _%hd3577536145%_ - _%tl3577636148%_ - _%__splice3935739358%_ - _%target3582035878%_ - _%tl3582235881%_) + _%tl3572135780%_) + (_%__match3931839319%_ + _%e3567036022%_ + _%hd3567136026%_ + _%tl3567236029%_ + _%e3567336032%_ + _%hd3567436036%_ + _%tl3567536039%_ + _%__splice3923839239%_ + _%target3571935777%_ + _%tl3572135780%_) (let () (declare (not safe)) - (_%g3576835851%_))))) + (_%g3566735750%_))))) (let () (declare (not safe)) - (_%g3576835851%_))))))) - (let () (declare (not safe)) (_%g3576835851%_))))) - (let () (declare (not safe)) (_%g3576835851%_)))))))) + (_%g3566735750%_))))))) + (let () (declare (not safe)) (_%g3566735750%_))))) + (let () (declare (not safe)) (_%g3566735750%_)))))))) (define |gerbil/core/match[:0:]#with*| - (lambda (_%$stx36214%_) - (let* ((_%__stx3944039441%_ _%$stx36214%_) - (_%g3621936271%_ + (lambda (_%$stx36103%_) + (let* ((_%__stx3932139322%_ _%$stx36103%_) + (_%g3610836160%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3944039441%_)))) - (let ((_%__kont3944339444%_ - (lambda (_%L36441%_ - _%L36443%_ - _%L36444%_ - _%L36445%_ - _%L36446%_) + _%__stx3932139322%_)))) + (let ((_%__kont3932439325%_ + (lambda (_%g3611036326%_ + _%g3611136328%_ + _%g3611236329%_ + _%g3611336330%_ + _%g3611436331%_) (cons (gx#datum->syntax '#f 'with) - (cons (cons (cons _%L36445%_ (cons _%L36444%_ '())) + (cons (cons (cons _%g3611336330%_ + (cons _%g3611236329%_ '())) '()) - (cons (cons _%L36446%_ - (cons _%L36443%_ - (foldr (lambda (_%g3647136474%_ + (cons (cons _%g3611436331%_ + (cons _%g3611136328%_ + (foldr (lambda (_%g3635636359%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g3647236477%_) - (cons _%g3647136474%_ _%g3647236477%_)) + _%g3635736362%_) + (cons _%g3635636359%_ _%g3635736362%_)) '() - _%L36441%_))) + _%g3611036326%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont3944739448%_ - (lambda (_%L36328%_) + (_%__kont3932839329%_ + (lambda (_%g3613936215%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g3634536348%_ _%g3634636351%_) - (cons _%g3634536348%_ _%g3634636351%_)) + (foldr (lambda (_%g3623236235%_ _%g3623336238%_) + (cons _%g3623236235%_ _%g3623336238%_)) '() - _%L36328%_)))))) - (let* ((_%__match3951339514%_ - (lambda (_%e3625136278%_ - _%hd3625236282%_ - _%tl3625336285%_ - _%e3625436288%_ - _%hd3625536292%_ - _%tl3625636295%_ - _%__splice3944939450%_ - _%target3625736298%_ - _%tl3625936301%_) - (letrec ((_%loop3626036304%_ - (lambda (_%hd3625836308%_ _%body3626436311%_) - (if (gx#stx-pair? _%hd3625836308%_) - (let ((_%e3626136314%_ - (gx#syntax-e _%hd3625836308%_))) - (let ((_%lp-tl3626336321%_ + _%g3613936215%_)))))) + (let* ((_%__match3939439395%_ + (lambda (_%e3614036167%_ + _%hd3614136171%_ + _%tl3614236174%_ + _%e3614336177%_ + _%hd3614436181%_ + _%tl3614536184%_ + _%__splice3933039331%_ + _%target3614636187%_ + _%tl3614836190%_) + (letrec ((_%loop3614936193%_ + (lambda (_%hd3614736197%_ _%body3615336200%_) + (if (gx#stx-pair? _%hd3614736197%_) + (let ((_%e3615036202%_ + (gx#syntax-e _%hd3614736197%_))) + (let ((_%lp-tl3615236209%_ (let () (declare (not safe)) - (##cdr _%e3626136314%_))) - (_%lp-hd3626236318%_ + (##cdr _%e3615036202%_))) + (_%lp-hd3615136206%_ (let () (declare (not safe)) - (##car _%e3626136314%_)))) - (_%loop3626036304%_ - _%lp-tl3626336321%_ - (cons _%lp-hd3626236318%_ - _%body3626436311%_)))) - (let ((_%body3626536324%_ - (reverse _%body3626436311%_))) - (_%__kont3944739448%_ - _%body3626536324%_)))))) - (_%loop3626036304%_ _%target3625736298%_ '())))) - (_%__match3949139492%_ - (lambda (_%e3622636361%_ - _%hd3622736365%_ - _%tl3622836368%_ - _%e3622936371%_ - _%hd3623036375%_ - _%tl3623136378%_ - _%e3623236381%_ - _%hd3623336385%_ - _%tl3623436388%_ - _%e3623536391%_ - _%hd3623636395%_ - _%tl3623736398%_ - _%e3623836401%_ - _%hd3623936405%_ - _%tl3624036408%_ - _%__splice3944539446%_ - _%target3624136411%_ - _%tl3624336414%_) - (letrec ((_%loop3624436417%_ - (lambda (_%hd3624236421%_ _%body3624836424%_) - (if (gx#stx-pair? _%hd3624236421%_) - (let ((_%e3624536427%_ - (gx#syntax-e _%hd3624236421%_))) - (let ((_%lp-tl3624736434%_ + (##car _%e3615036202%_)))) + (_%loop3614936193%_ + _%lp-tl3615236209%_ + (cons _%lp-hd3615136206%_ + _%body3615336200%_)))) + (let ((_%body3615436212%_ + (reverse _%body3615336200%_))) + (_%__kont3932839329%_ + _%body3615436212%_)))))) + (_%loop3614936193%_ _%target3614636187%_ '())))) + (_%__match3937239373%_ + (lambda (_%e3611536248%_ + _%hd3611636252%_ + _%tl3611736255%_ + _%e3611836258%_ + _%hd3611936262%_ + _%tl3612036265%_ + _%e3612136268%_ + _%hd3612236272%_ + _%tl3612336275%_ + _%e3612436278%_ + _%hd3612536282%_ + _%tl3612636285%_ + _%e3612736288%_ + _%hd3612836292%_ + _%tl3612936295%_ + _%__splice3932639327%_ + _%target3613036298%_ + _%tl3613236301%_) + (letrec ((_%loop3613336304%_ + (lambda (_%hd3613136308%_ _%body3613736311%_) + (if (gx#stx-pair? _%hd3613136308%_) + (let ((_%e3613436313%_ + (gx#syntax-e _%hd3613136308%_))) + (let ((_%lp-tl3613636320%_ (let () (declare (not safe)) - (##cdr _%e3624536427%_))) - (_%lp-hd3624636431%_ + (##cdr _%e3613436313%_))) + (_%lp-hd3613536317%_ (let () (declare (not safe)) - (##car _%e3624536427%_)))) - (_%loop3624436417%_ - _%lp-tl3624736434%_ - (cons _%lp-hd3624636431%_ - _%body3624836424%_)))) - (let ((_%body3624936437%_ - (reverse _%body3624836424%_))) - (_%__kont3944339444%_ - _%body3624936437%_ - _%tl3623436388%_ - _%hd3623936405%_ - _%hd3623636395%_ - _%hd3622736365%_)))))) - (_%loop3624436417%_ _%target3624136411%_ '()))))) - (if (gx#stx-pair? _%__stx3944039441%_) - (let ((_%e3622636361%_ (gx#syntax-e _%__stx3944039441%_))) - (let ((_%tl3622836368%_ + (##car _%e3613436313%_)))) + (_%loop3613336304%_ + _%lp-tl3613636320%_ + (cons _%lp-hd3613536317%_ + _%body3613736311%_)))) + (let ((_%body3613836323%_ + (reverse _%body3613736311%_))) + (_%__kont3932439325%_ + _%body3613836323%_ + _%tl3612336275%_ + _%hd3612836292%_ + _%hd3612536282%_ + _%hd3611636252%_)))))) + (_%loop3613336304%_ _%target3613036298%_ '()))))) + (if (gx#stx-pair? _%__stx3932139322%_) + (let ((_%e3611536248%_ (gx#syntax-e _%__stx3932139322%_))) + (let ((_%tl3611736255%_ (let () (declare (not safe)) - (##cdr _%e3622636361%_))) - (_%hd3622736365%_ + (##cdr _%e3611536248%_))) + (_%hd3611636252%_ (let () (declare (not safe)) - (##car _%e3622636361%_)))) - (if (gx#stx-pair? _%tl3622836368%_) - (let ((_%e3622936371%_ - (gx#syntax-e _%tl3622836368%_))) - (let ((_%tl3623136378%_ + (##car _%e3611536248%_)))) + (if (gx#stx-pair? _%tl3611736255%_) + (let ((_%e3611836258%_ + (gx#syntax-e _%tl3611736255%_))) + (let ((_%tl3612036265%_ (let () (declare (not safe)) - (##cdr _%e3622936371%_))) - (_%hd3623036375%_ + (##cdr _%e3611836258%_))) + (_%hd3611936262%_ (let () (declare (not safe)) - (##car _%e3622936371%_)))) - (if (gx#stx-pair? _%hd3623036375%_) - (let ((_%e3623236381%_ - (gx#syntax-e _%hd3623036375%_))) - (let ((_%tl3623436388%_ + (##car _%e3611836258%_)))) + (if (gx#stx-pair? _%hd3611936262%_) + (let ((_%e3612136268%_ + (gx#syntax-e _%hd3611936262%_))) + (let ((_%tl3612336275%_ (let () (declare (not safe)) - (##cdr _%e3623236381%_))) - (_%hd3623336385%_ + (##cdr _%e3612136268%_))) + (_%hd3612236272%_ (let () (declare (not safe)) - (##car _%e3623236381%_)))) - (if (gx#stx-pair? _%hd3623336385%_) - (let ((_%e3623536391%_ + (##car _%e3612136268%_)))) + (if (gx#stx-pair? _%hd3612236272%_) + (let ((_%e3612436278%_ (gx#syntax-e - _%hd3623336385%_))) - (let ((_%tl3623736398%_ + _%hd3612236272%_))) + (let ((_%tl3612636285%_ (let () (declare (not safe)) - (##cdr _%e3623536391%_))) - (_%hd3623636395%_ + (##cdr _%e3612436278%_))) + (_%hd3612536282%_ (let () (declare (not safe)) - (##car _%e3623536391%_)))) + (##car _%e3612436278%_)))) (if (gx#stx-pair? - _%tl3623736398%_) - (let ((_%e3623836401%_ + _%tl3612636285%_) + (let ((_%e3612736288%_ (gx#syntax-e - _%tl3623736398%_))) - (let ((_%tl3624036408%_ + _%tl3612636285%_))) + (let ((_%tl3612936295%_ (let () (declare (not safe)) - (##cdr _%e3623836401%_))) - (_%hd3623936405%_ + (##cdr _%e3612736288%_))) + (_%hd3612836292%_ (let () (declare (not safe)) - (##car _%e3623836401%_)))) + (##car _%e3612736288%_)))) (if (gx#stx-null? - _%tl3624036408%_) + _%tl3612936295%_) (if (gx#stx-pair/null? - _%tl3623136378%_) - (let ((_%__splice3944539446%_ + _%tl3612036265%_) + (let ((_%__splice3932639327%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice->vector - _%tl3623136378%_ + _%tl3612036265%_ '0))) - (let ((_%tl3624336414%_ + (let ((_%tl3613236301%_ (let () (declare (not safe)) - (##vector-ref _%__splice3944539446%_ '1))) - (_%target3624136411%_ + (##vector-ref _%__splice3932639327%_ '1))) + (_%target3613036298%_ (let () (declare (not safe)) - (##vector-ref _%__splice3944539446%_ '0)))) - (if (gx#stx-null? _%tl3624336414%_) - (_%__match3949139492%_ - _%e3622636361%_ - _%hd3622736365%_ - _%tl3622836368%_ - _%e3622936371%_ - _%hd3623036375%_ - _%tl3623136378%_ - _%e3623236381%_ - _%hd3623336385%_ - _%tl3623436388%_ - _%e3623536391%_ - _%hd3623636395%_ - _%tl3623736398%_ - _%e3623836401%_ - _%hd3623936405%_ - _%tl3624036408%_ - _%__splice3944539446%_ - _%target3624136411%_ - _%tl3624336414%_) + (##vector-ref _%__splice3932639327%_ '0)))) + (if (gx#stx-null? _%tl3613236301%_) + (_%__match3937239373%_ + _%e3611536248%_ + _%hd3611636252%_ + _%tl3611736255%_ + _%e3611836258%_ + _%hd3611936262%_ + _%tl3612036265%_ + _%e3612136268%_ + _%hd3612236272%_ + _%tl3612336275%_ + _%e3612436278%_ + _%hd3612536282%_ + _%tl3612636285%_ + _%e3612736288%_ + _%hd3612836292%_ + _%tl3612936295%_ + _%__splice3932639327%_ + _%target3613036298%_ + _%tl3613236301%_) (let () (declare (not safe)) - (_%g3621936271%_))))) - (let () (declare (not safe)) (_%g3621936271%_))) - (let () (declare (not safe)) (_%g3621936271%_))))) + (_%g3610836160%_))))) + (let () (declare (not safe)) (_%g3610836160%_))) + (let () (declare (not safe)) (_%g3610836160%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3621936271%_))))) + (_%g3610836160%_))))) (let () (declare (not safe)) - (_%g3621936271%_))))) - (if (gx#stx-null? _%hd3623036375%_) - (if (gx#stx-pair/null? _%tl3623136378%_) - (let ((_%__splice3944939450%_ + (_%g3610836160%_))))) + (if (gx#stx-null? _%hd3611936262%_) + (if (gx#stx-pair/null? _%tl3612036265%_) + (let ((_%__splice3933039331%_ (gx#syntax-split-splice->vector - _%tl3623136378%_ + _%tl3612036265%_ '0))) - (let ((_%tl3625936301%_ + (let ((_%tl3614836190%_ (let () (declare (not safe)) (##vector-ref - _%__splice3944939450%_ + _%__splice3933039331%_ '1))) - (_%target3625736298%_ + (_%target3614636187%_ (let () (declare (not safe)) (##vector-ref - _%__splice3944939450%_ + _%__splice3933039331%_ '0)))) (if (gx#stx-null? - _%tl3625936301%_) - (_%__match3951339514%_ - _%e3622636361%_ - _%hd3622736365%_ - _%tl3622836368%_ - _%e3622936371%_ - _%hd3623036375%_ - _%tl3623136378%_ - _%__splice3944939450%_ - _%target3625736298%_ - _%tl3625936301%_) + _%tl3614836190%_) + (_%__match3939439395%_ + _%e3611536248%_ + _%hd3611636252%_ + _%tl3611736255%_ + _%e3611836258%_ + _%hd3611936262%_ + _%tl3612036265%_ + _%__splice3933039331%_ + _%target3614636187%_ + _%tl3614836190%_) (let () (declare (not safe)) - (_%g3621936271%_))))) + (_%g3610836160%_))))) (let () (declare (not safe)) - (_%g3621936271%_))) + (_%g3610836160%_))) (let () (declare (not safe)) - (_%g3621936271%_)))))) - (let () (declare (not safe)) (_%g3621936271%_))))) - (let () (declare (not safe)) (_%g3621936271%_)))))))) + (_%g3610836160%_)))))) + (let () (declare (not safe)) (_%g3610836160%_))))) + (let () (declare (not safe)) (_%g3610836160%_)))))))) (define |gerbil/core/match[:0:]#?| - (lambda (_%$stx36486%_) - (let* ((_%__stx3951639517%_ _%$stx36486%_) - (_%g3649736643%_ + (lambda (_%$stx36371%_) + (let* ((_%__stx3939739398%_ _%$stx36371%_) + (_%g3638236528%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3951639517%_)))) - (let ((_%__kont3951939520%_ - (lambda (_%L37247%_ _%L37249%_ _%L37250%_) + _%__stx3939739398%_)))) + (let ((_%__kont3940039401%_ + (lambda (_%g3638437128%_ _%g3638537130%_ _%g3638637131%_) (cons (gx#datum->syntax '#f 'and) - (foldr (lambda (_%g3727137274%_ _%g3727237277%_) - (cons (cons _%L37250%_ - (cons _%g3727137274%_ - (cons _%L37247%_ '()))) - _%g3727237277%_)) + (foldr (lambda (_%g3715237155%_ _%g3715337158%_) + (cons (cons _%g3638637131%_ + (cons _%g3715237155%_ + (cons _%g3638437128%_ + '()))) + _%g3715337158%_)) '() - _%L37249%_)))) - (_%__kont3952339524%_ - (lambda (_%L37137%_ _%L37139%_ _%L37140%_) + _%g3638537130%_)))) + (_%__kont3940439405%_ + (lambda (_%g3640837020%_ _%g3640937022%_ _%g3641037023%_) (cons (gx#datum->syntax '#f 'or) - (foldr (lambda (_%g3716137164%_ _%g3716237167%_) - (cons (cons _%L37140%_ - (cons _%g3716137164%_ - (cons _%L37137%_ '()))) - _%g3716237167%_)) + (foldr (lambda (_%g3704437047%_ _%g3704537050%_) + (cons (cons _%g3641037023%_ + (cons _%g3704437047%_ + (cons _%g3640837020%_ + '()))) + _%g3704537050%_)) '() - _%L37139%_)))) - (_%__kont3952739528%_ - (lambda (_%L37037%_ _%L37039%_ _%L37040%_) + _%g3640937022%_)))) + (_%__kont3940839409%_ + (lambda (_%g3643236922%_ _%g3643336924%_ _%g3643436925%_) (cons (gx#datum->syntax '#f 'not) - (cons (cons _%L37040%_ - (cons _%L37039%_ (cons _%L37037%_ '()))) + (cons (cons _%g3643436925%_ + (cons _%g3643336924%_ + (cons _%g3643236922%_ '()))) '())))) - (_%__kont3952939530%_ - (lambda (_%L36963%_ _%L36965%_) - (cons _%L36965%_ (cons _%L36963%_ '())))) - (_%__kont3953139532%_ - (lambda (_%L36911%_ _%L36913%_) + (_%__kont3941039411%_ + (lambda (_%g3645036848%_ _%g3645136850%_) + (cons _%g3645136850%_ (cons _%g3645036848%_ '())))) + (_%__kont3941239413%_ + (lambda (_%g3646136796%_ _%g3646236798%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) - (cons (cons _%L36913%_ - (cons _%L36911%_ + (cons (cons _%g3646236798%_ + (cons _%g3646136796%_ (cons (gx#datum->syntax '#f '$obj) '()))) '()))))) - (_%__kont3953339534%_ - (lambda (_%L36863%_ _%L36865%_ _%L36866%_) + (_%__kont3941439415%_ + (lambda (_%g3646936748%_ _%g3647036750%_ _%g3647136751%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) (cons (cons (gx#datum->syntax '#f 'alet) (cons (cons (gx#datum->syntax '#f '$val) - (cons (cons _%L36866%_ + (cons (cons _%g3647136751%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L36865%_ + (cons _%g3647036750%_ (cons (gx#datum->syntax '#f '$obj) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L36863%_ + (cons (cons _%g3646936748%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -6657,20 +6739,20 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont3953539536%_ - (lambda (_%L36794%_ _%L36796%_ _%L36797%_) + (_%__kont3941639417%_ + (lambda (_%g3648436679%_ _%g3648536681%_ _%g3648636682%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) (cons (cons (gx#datum->syntax '#f 'and) - (cons (cons _%L36797%_ - (cons _%L36796%_ + (cons (cons _%g3648636682%_ + (cons _%g3648536681%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$obj) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L36794%_ + (cons (cons _%g3648436679%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -6679,1806 +6761,1809 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont3953739538%_ - (lambda (_%L36714%_ _%L36716%_ _%L36717%_ _%L36718%_) + (_%__kont3941839419%_ + (lambda (_%g3650036599%_ + _%g3650136601%_ + _%g3650236602%_ + _%g3650336603%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) (cons (cons (gx#datum->syntax '#f 'and) - (cons (cons _%L36718%_ - (cons _%L36717%_ + (cons (cons _%g3650336603%_ + (cons _%g3650236602%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$obj) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L36714%_ - (cons (cons _%L36716%_ + (cons (cons _%g3650036599%_ + (cons (cons _%g3650136601%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f '$obj) '())) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match3968939690%_ - (lambda (_%e3658736823%_ - _%hd3658836827%_ - _%tl3658936830%_ - _%e3659036833%_ - _%hd3659136837%_ - _%tl3659236840%_ - _%e3659336843%_ - _%hd3659436847%_ - _%tl3659536850%_) - (if (gx#identifier? _%hd3659436847%_) + (let* ((_%__match3957039571%_ + (lambda (_%e3647236708%_ + _%hd3647336712%_ + _%tl3647436715%_ + _%e3647536718%_ + _%hd3647636722%_ + _%tl3647736725%_ + _%e3647836728%_ + _%hd3647936732%_ + _%tl3648036735%_) + (if (gx#identifier? _%hd3647936732%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39891_| - _%hd3659436847%_) - (if (gx#stx-pair? _%tl3659536850%_) - (let ((_%e3659636853%_ - (gx#syntax-e _%tl3659536850%_))) - (let ((_%tl3659836860%_ + |gerbil/core/match[1]#_g39772_| + _%hd3647936732%_) + (if (gx#stx-pair? _%tl3648036735%_) + (let ((_%e3648136738%_ + (gx#syntax-e _%tl3648036735%_))) + (let ((_%tl3648336745%_ (let () (declare (not safe)) - (##cdr _%e3659636853%_))) - (_%hd3659736857%_ + (##cdr _%e3648136738%_))) + (_%hd3648236742%_ (let () (declare (not safe)) - (##car _%e3659636853%_)))) - (if (gx#stx-null? _%tl3659836860%_) - (_%__kont3953339534%_ - _%hd3659736857%_ - _%hd3659136837%_ - _%hd3658836827%_) + (##car _%e3648136738%_)))) + (if (gx#stx-null? _%tl3648336745%_) + (_%__kont3941439415%_ + _%hd3648236742%_ + _%hd3647636722%_ + _%hd3647336712%_) (let () (declare (not safe)) - (_%g3649736643%_))))) + (_%g3638236528%_))))) (let () (declare (not safe)) - (_%g3649736643%_))) - (let () (declare (not safe)) (_%g3649736643%_))) - (if (gx#stx-datum? _%hd3659436847%_) - (let ((_%e3661136780%_ - (gx#stx-e _%hd3659436847%_))) - (if (equal? _%e3661136780%_ '::) - (if (gx#stx-pair? _%tl3659536850%_) - (let ((_%e3661236784%_ - (gx#syntax-e _%tl3659536850%_))) - (let ((_%tl3661436791%_ + (_%g3638236528%_))) + (let () (declare (not safe)) (_%g3638236528%_))) + (if (gx#stx-datum? _%hd3647936732%_) + (let ((_%e3649636665%_ + (gx#stx-e _%hd3647936732%_))) + (if (equal? _%e3649636665%_ '::) + (if (gx#stx-pair? _%tl3648036735%_) + (let ((_%e3649736669%_ + (gx#syntax-e _%tl3648036735%_))) + (let ((_%tl3649936676%_ (let () (declare (not safe)) - (##cdr _%e3661236784%_))) - (_%hd3661336788%_ + (##cdr _%e3649736669%_))) + (_%hd3649836673%_ (let () (declare (not safe)) - (##car _%e3661236784%_)))) - (if (gx#stx-null? _%tl3661436791%_) - (_%__kont3953539536%_ - _%hd3661336788%_ - _%hd3659136837%_ - _%hd3658836827%_) + (##car _%e3649736669%_)))) + (if (gx#stx-null? _%tl3649936676%_) + (_%__kont3941639417%_ + _%hd3649836673%_ + _%hd3647636722%_ + _%hd3647336712%_) (if (gx#stx-pair? - _%tl3661436791%_) - (let ((_%e3663236694%_ + _%tl3649936676%_) + (let ((_%e3651736579%_ (gx#syntax-e - _%tl3661436791%_))) - (let ((_%tl3663436701%_ + _%tl3649936676%_))) + (let ((_%tl3651936586%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3663236694%_))) - (_%hd3663336698%_ - (let () (declare (not safe)) (##car _%e3663236694%_)))) - (if (gx#identifier? _%hd3663336698%_) + (##cdr _%e3651736579%_))) + (_%hd3651836583%_ + (let () (declare (not safe)) (##car _%e3651736579%_)))) + (if (gx#identifier? _%hd3651836583%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39892_| - _%hd3663336698%_) - (if (gx#stx-pair? _%tl3663436701%_) - (let ((_%e3663536704%_ - (gx#syntax-e _%tl3663436701%_))) - (let ((_%tl3663736711%_ + |gerbil/core/match[1]#_g39773_| + _%hd3651836583%_) + (if (gx#stx-pair? _%tl3651936586%_) + (let ((_%e3652036589%_ + (gx#syntax-e _%tl3651936586%_))) + (let ((_%tl3652236596%_ (let () (declare (not safe)) - (##cdr _%e3663536704%_))) - (_%hd3663636708%_ + (##cdr _%e3652036589%_))) + (_%hd3652136593%_ (let () (declare (not safe)) - (##car _%e3663536704%_)))) - (if (gx#stx-null? _%tl3663736711%_) - (_%__kont3953739538%_ - _%hd3663636708%_ - _%hd3661336788%_ - _%hd3659136837%_ - _%hd3658836827%_) + (##car _%e3652036589%_)))) + (if (gx#stx-null? _%tl3652236596%_) + (_%__kont3941839419%_ + _%hd3652136593%_ + _%hd3649836673%_ + _%hd3647636722%_ + _%hd3647336712%_) (let () (declare (not safe)) - (_%g3649736643%_))))) - (let () (declare (not safe)) (_%g3649736643%_))) - (let () (declare (not safe)) (_%g3649736643%_))) - (let () (declare (not safe)) (_%g3649736643%_))))) + (_%g3638236528%_))))) + (let () (declare (not safe)) (_%g3638236528%_))) + (let () (declare (not safe)) (_%g3638236528%_))) + (let () (declare (not safe)) (_%g3638236528%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3649736643%_)))))) + (_%g3638236528%_)))))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_)))) + (_%g3638236528%_)))) (let () (declare (not safe)) - (_%g3649736643%_)))))) - (_%__match3966939670%_ - (lambda (_%e3657836891%_ - _%hd3657936895%_ - _%tl3658036898%_ - _%e3658136901%_ - _%hd3658236905%_ - _%tl3658336908%_) - (if (gx#stx-null? _%tl3658336908%_) - (_%__kont3953139532%_ - _%hd3658236905%_ - _%hd3657936895%_) - (if (gx#stx-pair? _%tl3658336908%_) - (let ((_%e3659336843%_ - (gx#syntax-e _%tl3658336908%_))) - (let ((_%tl3659536850%_ + (_%g3638236528%_)))))) + (_%__match3955039551%_ + (lambda (_%e3646336776%_ + _%hd3646436780%_ + _%tl3646536783%_ + _%e3646636786%_ + _%hd3646736790%_ + _%tl3646836793%_) + (if (gx#stx-null? _%tl3646836793%_) + (_%__kont3941239413%_ + _%hd3646736790%_ + _%hd3646436780%_) + (if (gx#stx-pair? _%tl3646836793%_) + (let ((_%e3647836728%_ + (gx#syntax-e _%tl3646836793%_))) + (let ((_%tl3648036735%_ (let () (declare (not safe)) - (##cdr _%e3659336843%_))) - (_%hd3659436847%_ + (##cdr _%e3647836728%_))) + (_%hd3647936732%_ (let () (declare (not safe)) - (##car _%e3659336843%_)))) - (if (gx#identifier? _%hd3659436847%_) + (##car _%e3647836728%_)))) + (if (gx#identifier? _%hd3647936732%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39891_| - _%hd3659436847%_) - (if (gx#stx-pair? _%tl3659536850%_) - (let ((_%e3659636853%_ + |gerbil/core/match[1]#_g39772_| + _%hd3647936732%_) + (if (gx#stx-pair? _%tl3648036735%_) + (let ((_%e3648136738%_ (gx#syntax-e - _%tl3659536850%_))) - (let ((_%tl3659836860%_ + _%tl3648036735%_))) + (let ((_%tl3648336745%_ (let () (declare (not safe)) - (##cdr _%e3659636853%_))) - (_%hd3659736857%_ + (##cdr _%e3648136738%_))) + (_%hd3648236742%_ (let () (declare (not safe)) - (##car _%e3659636853%_)))) + (##car _%e3648136738%_)))) (if (gx#stx-null? - _%tl3659836860%_) - (_%__kont3953339534%_ - _%hd3659736857%_ - _%hd3658236905%_ - _%hd3657936895%_) + _%tl3648336745%_) + (_%__kont3941439415%_ + _%hd3648236742%_ + _%hd3646736790%_ + _%hd3646436780%_) (let () (declare (not safe)) - (_%g3649736643%_))))) + (_%g3638236528%_))))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_))) - (if (gx#stx-datum? _%hd3659436847%_) - (let ((_%e3661136780%_ - (gx#stx-e _%hd3659436847%_))) - (if (equal? _%e3661136780%_ '::) + (_%g3638236528%_))) + (if (gx#stx-datum? _%hd3647936732%_) + (let ((_%e3649636665%_ + (gx#stx-e _%hd3647936732%_))) + (if (equal? _%e3649636665%_ '::) (if (gx#stx-pair? - _%tl3659536850%_) - (let ((_%e3661236784%_ + _%tl3648036735%_) + (let ((_%e3649736669%_ (gx#syntax-e - _%tl3659536850%_))) - (let ((_%tl3661436791%_ + _%tl3648036735%_))) + (let ((_%tl3649936676%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3661236784%_))) - (_%hd3661336788%_ - (let () (declare (not safe)) (##car _%e3661236784%_)))) - (if (gx#stx-null? _%tl3661436791%_) - (_%__kont3953539536%_ - _%hd3661336788%_ - _%hd3658236905%_ - _%hd3657936895%_) - (if (gx#stx-pair? _%tl3661436791%_) - (let ((_%e3663236694%_ (gx#syntax-e _%tl3661436791%_))) - (let ((_%tl3663436701%_ + (##cdr _%e3649736669%_))) + (_%hd3649836673%_ + (let () (declare (not safe)) (##car _%e3649736669%_)))) + (if (gx#stx-null? _%tl3649936676%_) + (_%__kont3941639417%_ + _%hd3649836673%_ + _%hd3646736790%_ + _%hd3646436780%_) + (if (gx#stx-pair? _%tl3649936676%_) + (let ((_%e3651736579%_ (gx#syntax-e _%tl3649936676%_))) + (let ((_%tl3651936586%_ (let () (declare (not safe)) - (##cdr _%e3663236694%_))) - (_%hd3663336698%_ + (##cdr _%e3651736579%_))) + (_%hd3651836583%_ (let () (declare (not safe)) - (##car _%e3663236694%_)))) - (if (gx#identifier? _%hd3663336698%_) + (##car _%e3651736579%_)))) + (if (gx#identifier? _%hd3651836583%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39892_| - _%hd3663336698%_) - (if (gx#stx-pair? _%tl3663436701%_) - (let ((_%e3663536704%_ - (gx#syntax-e _%tl3663436701%_))) - (let ((_%tl3663736711%_ + |gerbil/core/match[1]#_g39773_| + _%hd3651836583%_) + (if (gx#stx-pair? _%tl3651936586%_) + (let ((_%e3652036589%_ + (gx#syntax-e _%tl3651936586%_))) + (let ((_%tl3652236596%_ (let () (declare (not safe)) - (##cdr _%e3663536704%_))) - (_%hd3663636708%_ + (##cdr _%e3652036589%_))) + (_%hd3652136593%_ (let () (declare (not safe)) - (##car _%e3663536704%_)))) - (if (gx#stx-null? _%tl3663736711%_) - (_%__kont3953739538%_ - _%hd3663636708%_ - _%hd3661336788%_ - _%hd3658236905%_ - _%hd3657936895%_) + (##car _%e3652036589%_)))) + (if (gx#stx-null? _%tl3652236596%_) + (_%__kont3941839419%_ + _%hd3652136593%_ + _%hd3649836673%_ + _%hd3646736790%_ + _%hd3646436780%_) (let () (declare (not safe)) - (_%g3649736643%_))))) + (_%g3638236528%_))))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_))))) - (let () (declare (not safe)) (_%g3649736643%_)))))) + (_%g3638236528%_))))) + (let () (declare (not safe)) (_%g3638236528%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_)))) + (_%g3638236528%_)))) (let () (declare (not safe)) - (_%g3649736643%_)))))) + (_%g3638236528%_)))))) (let () (declare (not safe)) - (_%g3649736643%_)))))) - (_%__match3959939600%_ - (lambda (_%e3652637067%_ - _%hd3652737071%_ - _%tl3652837074%_ - _%e3652937077%_ - _%hd3653037081%_ - _%tl3653137084%_ - _%e3653237087%_ - _%hd3653337091%_ - _%tl3653437094%_ - _%__splice3952539526%_ - _%target3653537097%_ - _%tl3653737100%_) - (letrec ((_%loop3653837103%_ - (lambda (_%hd3653637107%_ _%pred3654237110%_) - (if (gx#stx-pair? _%hd3653637107%_) - (let ((_%e3653937113%_ - (gx#syntax-e _%hd3653637107%_))) - (let ((_%lp-tl3654137120%_ + (_%g3638236528%_)))))) + (_%__match3948039481%_ + (lambda (_%e3641136952%_ + _%hd3641236956%_ + _%tl3641336959%_ + _%e3641436962%_ + _%hd3641536966%_ + _%tl3641636969%_ + _%e3641736972%_ + _%hd3641836976%_ + _%tl3641936979%_ + _%__splice3940639407%_ + _%target3642036982%_ + _%tl3642236985%_) + (letrec ((_%loop3642336988%_ + (lambda (_%hd3642136992%_ _%pred3642736995%_) + (if (gx#stx-pair? _%hd3642136992%_) + (let ((_%e3642436997%_ + (gx#syntax-e _%hd3642136992%_))) + (let ((_%lp-tl3642637004%_ (let () (declare (not safe)) - (##cdr _%e3653937113%_))) - (_%lp-hd3654037117%_ + (##cdr _%e3642436997%_))) + (_%lp-hd3642537001%_ (let () (declare (not safe)) - (##car _%e3653937113%_)))) - (_%loop3653837103%_ - _%lp-tl3654137120%_ - (cons _%lp-hd3654037117%_ - _%pred3654237110%_)))) - (let ((_%pred3654337123%_ - (reverse _%pred3654237110%_))) - (if (gx#stx-pair? _%tl3653137084%_) - (let ((_%e3654437127%_ + (##car _%e3642436997%_)))) + (_%loop3642336988%_ + _%lp-tl3642637004%_ + (cons _%lp-hd3642537001%_ + _%pred3642736995%_)))) + (let ((_%pred3642837007%_ + (reverse _%pred3642736995%_))) + (if (gx#stx-pair? _%tl3641636969%_) + (let ((_%e3642937010%_ (gx#syntax-e - _%tl3653137084%_))) - (let ((_%tl3654637134%_ + _%tl3641636969%_))) + (let ((_%tl3643137017%_ (let () (declare (not safe)) - (##cdr _%e3654437127%_))) - (_%hd3654537131%_ + (##cdr _%e3642937010%_))) + (_%hd3643037014%_ (let () (declare (not safe)) - (##car _%e3654437127%_)))) + (##car _%e3642937010%_)))) (if (gx#stx-null? - _%tl3654637134%_) - (_%__kont3952339524%_ - _%hd3654537131%_ - _%pred3654337123%_ - _%hd3652737071%_) - (_%__match3968939690%_ - _%e3652637067%_ - _%hd3652737071%_ - _%tl3652837074%_ - _%e3652937077%_ - _%hd3653037081%_ - _%tl3653137084%_ - _%e3654437127%_ - _%hd3654537131%_ - _%tl3654637134%_)))) - (_%__match3966939670%_ - _%e3652637067%_ - _%hd3652737071%_ - _%tl3652837074%_ - _%e3652937077%_ - _%hd3653037081%_ - _%tl3653137084%_))))))) - (_%loop3653837103%_ _%target3653537097%_ '())))) - (_%__match3956939570%_ - (lambda (_%e3650237177%_ - _%hd3650337181%_ - _%tl3650437184%_ - _%e3650537187%_ - _%hd3650637191%_ - _%tl3650737194%_ - _%e3650837197%_ - _%hd3650937201%_ - _%tl3651037204%_ - _%__splice3952139522%_ - _%target3651137207%_ - _%tl3651337210%_) - (letrec ((_%loop3651437213%_ - (lambda (_%hd3651237217%_ _%pred3651837220%_) - (if (gx#stx-pair? _%hd3651237217%_) - (let ((_%e3651537223%_ - (gx#syntax-e _%hd3651237217%_))) - (let ((_%lp-tl3651737230%_ + _%tl3643137017%_) + (_%__kont3940439405%_ + _%hd3643037014%_ + _%pred3642837007%_ + _%hd3641236956%_) + (_%__match3957039571%_ + _%e3641136952%_ + _%hd3641236956%_ + _%tl3641336959%_ + _%e3641436962%_ + _%hd3641536966%_ + _%tl3641636969%_ + _%e3642937010%_ + _%hd3643037014%_ + _%tl3643137017%_)))) + (_%__match3955039551%_ + _%e3641136952%_ + _%hd3641236956%_ + _%tl3641336959%_ + _%e3641436962%_ + _%hd3641536966%_ + _%tl3641636969%_))))))) + (_%loop3642336988%_ _%target3642036982%_ '())))) + (_%__match3945039451%_ + (lambda (_%e3638737060%_ + _%hd3638837064%_ + _%tl3638937067%_ + _%e3639037070%_ + _%hd3639137074%_ + _%tl3639237077%_ + _%e3639337080%_ + _%hd3639437084%_ + _%tl3639537087%_ + _%__splice3940239403%_ + _%target3639637090%_ + _%tl3639837093%_) + (letrec ((_%loop3639937096%_ + (lambda (_%hd3639737100%_ _%pred3640337103%_) + (if (gx#stx-pair? _%hd3639737100%_) + (let ((_%e3640037105%_ + (gx#syntax-e _%hd3639737100%_))) + (let ((_%lp-tl3640237112%_ (let () (declare (not safe)) - (##cdr _%e3651537223%_))) - (_%lp-hd3651637227%_ + (##cdr _%e3640037105%_))) + (_%lp-hd3640137109%_ (let () (declare (not safe)) - (##car _%e3651537223%_)))) - (_%loop3651437213%_ - _%lp-tl3651737230%_ - (cons _%lp-hd3651637227%_ - _%pred3651837220%_)))) - (let ((_%pred3651937233%_ - (reverse _%pred3651837220%_))) - (if (gx#stx-pair? _%tl3650737194%_) - (let ((_%e3652037237%_ + (##car _%e3640037105%_)))) + (_%loop3639937096%_ + _%lp-tl3640237112%_ + (cons _%lp-hd3640137109%_ + _%pred3640337103%_)))) + (let ((_%pred3640437115%_ + (reverse _%pred3640337103%_))) + (if (gx#stx-pair? _%tl3639237077%_) + (let ((_%e3640537118%_ (gx#syntax-e - _%tl3650737194%_))) - (let ((_%tl3652237244%_ + _%tl3639237077%_))) + (let ((_%tl3640737125%_ (let () (declare (not safe)) - (##cdr _%e3652037237%_))) - (_%hd3652137241%_ + (##cdr _%e3640537118%_))) + (_%hd3640637122%_ (let () (declare (not safe)) - (##car _%e3652037237%_)))) + (##car _%e3640537118%_)))) (if (gx#stx-null? - _%tl3652237244%_) - (_%__kont3951939520%_ - _%hd3652137241%_ - _%pred3651937233%_ - _%hd3650337181%_) - (_%__match3968939690%_ - _%e3650237177%_ - _%hd3650337181%_ - _%tl3650437184%_ - _%e3650537187%_ - _%hd3650637191%_ - _%tl3650737194%_ - _%e3652037237%_ - _%hd3652137241%_ - _%tl3652237244%_)))) - (_%__match3966939670%_ - _%e3650237177%_ - _%hd3650337181%_ - _%tl3650437184%_ - _%e3650537187%_ - _%hd3650637191%_ - _%tl3650737194%_))))))) - (_%loop3651437213%_ _%target3651137207%_ '()))))) - (if (gx#stx-pair? _%__stx3951639517%_) - (let ((_%e3650237177%_ (gx#syntax-e _%__stx3951639517%_))) - (let ((_%tl3650437184%_ + _%tl3640737125%_) + (_%__kont3940039401%_ + _%hd3640637122%_ + _%pred3640437115%_ + _%hd3638837064%_) + (_%__match3957039571%_ + _%e3638737060%_ + _%hd3638837064%_ + _%tl3638937067%_ + _%e3639037070%_ + _%hd3639137074%_ + _%tl3639237077%_ + _%e3640537118%_ + _%hd3640637122%_ + _%tl3640737125%_)))) + (_%__match3955039551%_ + _%e3638737060%_ + _%hd3638837064%_ + _%tl3638937067%_ + _%e3639037070%_ + _%hd3639137074%_ + _%tl3639237077%_))))))) + (_%loop3639937096%_ _%target3639637090%_ '()))))) + (if (gx#stx-pair? _%__stx3939739398%_) + (let ((_%e3638737060%_ (gx#syntax-e _%__stx3939739398%_))) + (let ((_%tl3638937067%_ (let () (declare (not safe)) - (##cdr _%e3650237177%_))) - (_%hd3650337181%_ + (##cdr _%e3638737060%_))) + (_%hd3638837064%_ (let () (declare (not safe)) - (##car _%e3650237177%_)))) - (if (gx#stx-pair? _%tl3650437184%_) - (let ((_%e3650537187%_ - (gx#syntax-e _%tl3650437184%_))) - (let ((_%tl3650737194%_ + (##car _%e3638737060%_)))) + (if (gx#stx-pair? _%tl3638937067%_) + (let ((_%e3639037070%_ + (gx#syntax-e _%tl3638937067%_))) + (let ((_%tl3639237077%_ (let () (declare (not safe)) - (##cdr _%e3650537187%_))) - (_%hd3650637191%_ + (##cdr _%e3639037070%_))) + (_%hd3639137074%_ (let () (declare (not safe)) - (##car _%e3650537187%_)))) - (if (gx#stx-pair? _%hd3650637191%_) - (let ((_%e3650837197%_ - (gx#syntax-e _%hd3650637191%_))) - (let ((_%tl3651037204%_ + (##car _%e3639037070%_)))) + (if (gx#stx-pair? _%hd3639137074%_) + (let ((_%e3639337080%_ + (gx#syntax-e _%hd3639137074%_))) + (let ((_%tl3639537087%_ (let () (declare (not safe)) - (##cdr _%e3650837197%_))) - (_%hd3650937201%_ + (##cdr _%e3639337080%_))) + (_%hd3639437084%_ (let () (declare (not safe)) - (##car _%e3650837197%_)))) - (if (gx#identifier? _%hd3650937201%_) + (##car _%e3639337080%_)))) + (if (gx#identifier? _%hd3639437084%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39893_| - _%hd3650937201%_) + |gerbil/core/match[1]#_g39774_| + _%hd3639437084%_) (if (gx#stx-pair/null? - _%tl3651037204%_) - (let ((_%__splice3952139522%_ + _%tl3639537087%_) + (let ((_%__splice3940239403%_ (gx#syntax-split-splice->vector - _%tl3651037204%_ + _%tl3639537087%_ '0))) - (let ((_%tl3651337210%_ + (let ((_%tl3639837093%_ (let () (declare (not safe)) (##vector-ref - _%__splice3952139522%_ + _%__splice3940239403%_ '1))) - (_%target3651137207%_ + (_%target3639637090%_ (let () (declare (not safe)) (##vector-ref - _%__splice3952139522%_ + _%__splice3940239403%_ '0)))) (if (gx#stx-null? - _%tl3651337210%_) - (_%__match3956939570%_ - _%e3650237177%_ - _%hd3650337181%_ - _%tl3650437184%_ - _%e3650537187%_ - _%hd3650637191%_ - _%tl3650737194%_ - _%e3650837197%_ - _%hd3650937201%_ - _%tl3651037204%_ - _%__splice3952139522%_ - _%target3651137207%_ - _%tl3651337210%_) + _%tl3639837093%_) + (_%__match3945039451%_ + _%e3638737060%_ + _%hd3638837064%_ + _%tl3638937067%_ + _%e3639037070%_ + _%hd3639137074%_ + _%tl3639237077%_ + _%e3639337080%_ + _%hd3639437084%_ + _%tl3639537087%_ + _%__splice3940239403%_ + _%target3639637090%_ + _%tl3639837093%_) (if (gx#stx-pair? - _%tl3650737194%_) - (let ((_%e3657336953%_ + _%tl3639237077%_) + (let ((_%e3645836838%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3650737194%_))) - (let ((_%tl3657536960%_ + (gx#syntax-e _%tl3639237077%_))) + (let ((_%tl3646036845%_ (let () (declare (not safe)) - (##cdr _%e3657336953%_))) - (_%hd3657436957%_ + (##cdr _%e3645836838%_))) + (_%hd3645936842%_ (let () (declare (not safe)) - (##car _%e3657336953%_)))) - (if (gx#stx-null? _%tl3657536960%_) - (_%__kont3952939530%_ - _%hd3657436957%_ - _%hd3650637191%_) - (if (gx#identifier? _%hd3657436957%_) + (##car _%e3645836838%_)))) + (if (gx#stx-null? _%tl3646036845%_) + (_%__kont3941039411%_ + _%hd3645936842%_ + _%hd3639137074%_) + (if (gx#identifier? _%hd3645936842%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39891_| - _%hd3657436957%_) - (if (gx#stx-pair? _%tl3657536960%_) - (let ((_%e3659636853%_ + |gerbil/core/match[1]#_g39772_| + _%hd3645936842%_) + (if (gx#stx-pair? _%tl3646036845%_) + (let ((_%e3648136738%_ (gx#syntax-e - _%tl3657536960%_))) - (let ((_%tl3659836860%_ + _%tl3646036845%_))) + (let ((_%tl3648336745%_ (let () (declare (not safe)) - (##cdr _%e3659636853%_))) - (_%hd3659736857%_ + (##cdr _%e3648136738%_))) + (_%hd3648236742%_ (let () (declare (not safe)) - (##car _%e3659636853%_)))) + (##car _%e3648136738%_)))) (if (gx#stx-null? - _%tl3659836860%_) - (_%__kont3953339534%_ - _%hd3659736857%_ - _%hd3650637191%_ - _%hd3650337181%_) + _%tl3648336745%_) + (_%__kont3941439415%_ + _%hd3648236742%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))) + (_%g3638236528%_))))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_))) - (if (gx#stx-datum? _%hd3657436957%_) - (let ((_%e3661136780%_ - (gx#stx-e _%hd3657436957%_))) - (if (equal? _%e3661136780%_ '::) - (if (gx#stx-pair? _%tl3657536960%_) - (let ((_%e3661236784%_ + (_%g3638236528%_))) + (if (gx#stx-datum? _%hd3645936842%_) + (let ((_%e3649636665%_ + (gx#stx-e _%hd3645936842%_))) + (if (equal? _%e3649636665%_ '::) + (if (gx#stx-pair? _%tl3646036845%_) + (let ((_%e3649736669%_ (gx#syntax-e - _%tl3657536960%_))) - (let ((_%tl3661436791%_ + _%tl3646036845%_))) + (let ((_%tl3649936676%_ (let () (declare (not safe)) - (##cdr _%e3661236784%_))) - (_%hd3661336788%_ + (##cdr _%e3649736669%_))) + (_%hd3649836673%_ (let () (declare (not safe)) - (##car _%e3661236784%_)))) + (##car _%e3649736669%_)))) (if (gx#stx-null? - _%tl3661436791%_) - (_%__kont3953539536%_ - _%hd3661336788%_ - _%hd3650637191%_ - _%hd3650337181%_) + _%tl3649936676%_) + (_%__kont3941639417%_ + _%hd3649836673%_ + _%hd3639137074%_ + _%hd3638837064%_) (if (gx#stx-pair? - _%tl3661436791%_) - (let ((_%e3663236694%_ + _%tl3649936676%_) + (let ((_%e3651736579%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3661436791%_))) - (let ((_%tl3663436701%_ + (gx#syntax-e _%tl3649936676%_))) + (let ((_%tl3651936586%_ (let () (declare (not safe)) - (##cdr _%e3663236694%_))) - (_%hd3663336698%_ + (##cdr _%e3651736579%_))) + (_%hd3651836583%_ (let () (declare (not safe)) - (##car _%e3663236694%_)))) - (if (gx#identifier? _%hd3663336698%_) + (##car _%e3651736579%_)))) + (if (gx#identifier? _%hd3651836583%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39892_| - _%hd3663336698%_) - (if (gx#stx-pair? _%tl3663436701%_) - (let ((_%e3663536704%_ - (gx#syntax-e _%tl3663436701%_))) - (let ((_%tl3663736711%_ + |gerbil/core/match[1]#_g39773_| + _%hd3651836583%_) + (if (gx#stx-pair? _%tl3651936586%_) + (let ((_%e3652036589%_ + (gx#syntax-e _%tl3651936586%_))) + (let ((_%tl3652236596%_ (let () (declare (not safe)) - (##cdr _%e3663536704%_))) - (_%hd3663636708%_ + (##cdr _%e3652036589%_))) + (_%hd3652136593%_ (let () (declare (not safe)) - (##car _%e3663536704%_)))) - (if (gx#stx-null? _%tl3663736711%_) - (_%__kont3953739538%_ - _%hd3663636708%_ - _%hd3661336788%_ - _%hd3650637191%_ - _%hd3650337181%_) + (##car _%e3652036589%_)))) + (if (gx#stx-null? _%tl3652236596%_) + (_%__kont3941839419%_ + _%hd3652136593%_ + _%hd3649836673%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))) + (_%g3638236528%_))))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_))) - (let () (declare (not safe)) (_%g3649736643%_))))) - (let () (declare (not safe)) (_%g3649736643%_)))))) + (_%g3638236528%_))) + (let () (declare (not safe)) (_%g3638236528%_))))) + (let () (declare (not safe)) (_%g3638236528%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_)))) + (_%g3638236528%_)))) (let () (declare (not safe)) - (_%g3649736643%_))))))) - (if (gx#stx-null? _%tl3650737194%_) - (_%__kont3953139532%_ - _%hd3650637191%_ - _%hd3650337181%_) - (let () (declare (not safe)) (_%g3649736643%_))))))) + (_%g3638236528%_))))))) + (if (gx#stx-null? _%tl3639237077%_) + (_%__kont3941239413%_ + _%hd3639137074%_ + _%hd3638837064%_) + (let () (declare (not safe)) (_%g3638236528%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%tl3650737194%_) - (let ((_%e3657336953%_ + _%tl3639237077%_) + (let ((_%e3645836838%_ (gx#syntax-e - _%tl3650737194%_))) - (let ((_%tl3657536960%_ + _%tl3639237077%_))) + (let ((_%tl3646036845%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3657336953%_))) - (_%hd3657436957%_ - (let () (declare (not safe)) (##car _%e3657336953%_)))) - (if (gx#stx-null? _%tl3657536960%_) - (_%__kont3952939530%_ _%hd3657436957%_ _%hd3650637191%_) - (if (gx#identifier? _%hd3657436957%_) + (##cdr _%e3645836838%_))) + (_%hd3645936842%_ + (let () (declare (not safe)) (##car _%e3645836838%_)))) + (if (gx#stx-null? _%tl3646036845%_) + (_%__kont3941039411%_ _%hd3645936842%_ _%hd3639137074%_) + (if (gx#identifier? _%hd3645936842%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39891_| - _%hd3657436957%_) - (if (gx#stx-pair? _%tl3657536960%_) - (let ((_%e3659636853%_ - (gx#syntax-e _%tl3657536960%_))) - (let ((_%tl3659836860%_ + |gerbil/core/match[1]#_g39772_| + _%hd3645936842%_) + (if (gx#stx-pair? _%tl3646036845%_) + (let ((_%e3648136738%_ + (gx#syntax-e _%tl3646036845%_))) + (let ((_%tl3648336745%_ (let () (declare (not safe)) - (##cdr _%e3659636853%_))) - (_%hd3659736857%_ + (##cdr _%e3648136738%_))) + (_%hd3648236742%_ (let () (declare (not safe)) - (##car _%e3659636853%_)))) - (if (gx#stx-null? _%tl3659836860%_) - (_%__kont3953339534%_ - _%hd3659736857%_ - _%hd3650637191%_ - _%hd3650337181%_) + (##car _%e3648136738%_)))) + (if (gx#stx-null? _%tl3648336745%_) + (_%__kont3941439415%_ + _%hd3648236742%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))) + (_%g3638236528%_))))) (let () (declare (not safe)) - (_%g3649736643%_))) - (let () (declare (not safe)) (_%g3649736643%_))) - (if (gx#stx-datum? _%hd3657436957%_) - (let ((_%e3661136780%_ - (gx#stx-e _%hd3657436957%_))) - (if (equal? _%e3661136780%_ '::) - (if (gx#stx-pair? _%tl3657536960%_) - (let ((_%e3661236784%_ - (gx#syntax-e _%tl3657536960%_))) - (let ((_%tl3661436791%_ + (_%g3638236528%_))) + (let () (declare (not safe)) (_%g3638236528%_))) + (if (gx#stx-datum? _%hd3645936842%_) + (let ((_%e3649636665%_ + (gx#stx-e _%hd3645936842%_))) + (if (equal? _%e3649636665%_ '::) + (if (gx#stx-pair? _%tl3646036845%_) + (let ((_%e3649736669%_ + (gx#syntax-e _%tl3646036845%_))) + (let ((_%tl3649936676%_ (let () (declare (not safe)) - (##cdr _%e3661236784%_))) - (_%hd3661336788%_ + (##cdr _%e3649736669%_))) + (_%hd3649836673%_ (let () (declare (not safe)) - (##car _%e3661236784%_)))) - (if (gx#stx-null? _%tl3661436791%_) - (_%__kont3953539536%_ - _%hd3661336788%_ - _%hd3650637191%_ - _%hd3650337181%_) + (##car _%e3649736669%_)))) + (if (gx#stx-null? _%tl3649936676%_) + (_%__kont3941639417%_ + _%hd3649836673%_ + _%hd3639137074%_ + _%hd3638837064%_) (if (gx#stx-pair? - _%tl3661436791%_) - (let ((_%e3663236694%_ + _%tl3649936676%_) + (let ((_%e3651736579%_ (gx#syntax-e - _%tl3661436791%_))) - (let ((_%tl3663436701%_ + _%tl3649936676%_))) + (let ((_%tl3651936586%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3663236694%_))) - (_%hd3663336698%_ - (let () (declare (not safe)) (##car _%e3663236694%_)))) - (if (gx#identifier? _%hd3663336698%_) + (##cdr _%e3651736579%_))) + (_%hd3651836583%_ + (let () (declare (not safe)) (##car _%e3651736579%_)))) + (if (gx#identifier? _%hd3651836583%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39892_| - _%hd3663336698%_) - (if (gx#stx-pair? _%tl3663436701%_) - (let ((_%e3663536704%_ - (gx#syntax-e _%tl3663436701%_))) - (let ((_%tl3663736711%_ + |gerbil/core/match[1]#_g39773_| + _%hd3651836583%_) + (if (gx#stx-pair? _%tl3651936586%_) + (let ((_%e3652036589%_ + (gx#syntax-e _%tl3651936586%_))) + (let ((_%tl3652236596%_ (let () (declare (not safe)) - (##cdr _%e3663536704%_))) - (_%hd3663636708%_ + (##cdr _%e3652036589%_))) + (_%hd3652136593%_ (let () (declare (not safe)) - (##car _%e3663536704%_)))) - (if (gx#stx-null? _%tl3663736711%_) - (_%__kont3953739538%_ - _%hd3663636708%_ - _%hd3661336788%_ - _%hd3650637191%_ - _%hd3650337181%_) + (##car _%e3652036589%_)))) + (if (gx#stx-null? _%tl3652236596%_) + (_%__kont3941839419%_ + _%hd3652136593%_ + _%hd3649836673%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))) - (let () (declare (not safe)) (_%g3649736643%_))) - (let () (declare (not safe)) (_%g3649736643%_))) - (let () (declare (not safe)) (_%g3649736643%_))))) + (_%g3638236528%_))))) + (let () (declare (not safe)) (_%g3638236528%_))) + (let () (declare (not safe)) (_%g3638236528%_))) + (let () (declare (not safe)) (_%g3638236528%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3649736643%_)))))) + (_%g3638236528%_)))))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_)))) + (_%g3638236528%_)))) (let () (declare (not safe)) - (_%g3649736643%_))))))) - (if (gx#stx-null? _%tl3650737194%_) - (_%__kont3953139532%_ _%hd3650637191%_ _%hd3650337181%_) - (let () (declare (not safe)) (_%g3649736643%_))))) + (_%g3638236528%_))))))) + (if (gx#stx-null? _%tl3639237077%_) + (_%__kont3941239413%_ _%hd3639137074%_ _%hd3638837064%_) + (let () (declare (not safe)) (_%g3638236528%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39894_| - _%hd3650937201%_) + |gerbil/core/match[1]#_g39775_| + _%hd3639437084%_) (if (gx#stx-pair/null? - _%tl3651037204%_) - (let ((_%__splice3952539526%_ + _%tl3639537087%_) + (let ((_%__splice3940639407%_ (gx#syntax-split-splice->vector - _%tl3651037204%_ + _%tl3639537087%_ '0))) - (let ((_%tl3653737100%_ + (let ((_%tl3642236985%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice3952539526%_ '1))) - (_%target3653537097%_ + (##vector-ref _%__splice3940639407%_ '1))) + (_%target3642036982%_ (let () (declare (not safe)) - (##vector-ref _%__splice3952539526%_ '0)))) - (if (gx#stx-null? _%tl3653737100%_) - (_%__match3959939600%_ - _%e3650237177%_ - _%hd3650337181%_ - _%tl3650437184%_ - _%e3650537187%_ - _%hd3650637191%_ - _%tl3650737194%_ - _%e3650837197%_ - _%hd3650937201%_ - _%tl3651037204%_ - _%__splice3952539526%_ - _%target3653537097%_ - _%tl3653737100%_) - (if (gx#stx-pair? _%tl3650737194%_) - (let ((_%e3657336953%_ - (gx#syntax-e _%tl3650737194%_))) - (let ((_%tl3657536960%_ + (##vector-ref _%__splice3940639407%_ '0)))) + (if (gx#stx-null? _%tl3642236985%_) + (_%__match3948039481%_ + _%e3638737060%_ + _%hd3638837064%_ + _%tl3638937067%_ + _%e3639037070%_ + _%hd3639137074%_ + _%tl3639237077%_ + _%e3639337080%_ + _%hd3639437084%_ + _%tl3639537087%_ + _%__splice3940639407%_ + _%target3642036982%_ + _%tl3642236985%_) + (if (gx#stx-pair? _%tl3639237077%_) + (let ((_%e3645836838%_ + (gx#syntax-e _%tl3639237077%_))) + (let ((_%tl3646036845%_ (let () (declare (not safe)) - (##cdr _%e3657336953%_))) - (_%hd3657436957%_ + (##cdr _%e3645836838%_))) + (_%hd3645936842%_ (let () (declare (not safe)) - (##car _%e3657336953%_)))) - (if (gx#stx-null? _%tl3657536960%_) - (_%__kont3952939530%_ - _%hd3657436957%_ - _%hd3650637191%_) - (if (gx#identifier? _%hd3657436957%_) + (##car _%e3645836838%_)))) + (if (gx#stx-null? _%tl3646036845%_) + (_%__kont3941039411%_ + _%hd3645936842%_ + _%hd3639137074%_) + (if (gx#identifier? _%hd3645936842%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39891_| - _%hd3657436957%_) - (if (gx#stx-pair? _%tl3657536960%_) - (let ((_%e3659636853%_ + |gerbil/core/match[1]#_g39772_| + _%hd3645936842%_) + (if (gx#stx-pair? _%tl3646036845%_) + (let ((_%e3648136738%_ (gx#syntax-e - _%tl3657536960%_))) - (let ((_%tl3659836860%_ + _%tl3646036845%_))) + (let ((_%tl3648336745%_ (let () (declare (not safe)) - (##cdr _%e3659636853%_))) - (_%hd3659736857%_ + (##cdr _%e3648136738%_))) + (_%hd3648236742%_ (let () (declare (not safe)) - (##car _%e3659636853%_)))) + (##car _%e3648136738%_)))) (if (gx#stx-null? - _%tl3659836860%_) - (_%__kont3953339534%_ - _%hd3659736857%_ - _%hd3650637191%_ - _%hd3650337181%_) + _%tl3648336745%_) + (_%__kont3941439415%_ + _%hd3648236742%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))) + (_%g3638236528%_))))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_))) - (if (gx#stx-datum? _%hd3657436957%_) - (let ((_%e3661136780%_ - (gx#stx-e _%hd3657436957%_))) - (if (equal? _%e3661136780%_ '::) + (_%g3638236528%_))) + (if (gx#stx-datum? _%hd3645936842%_) + (let ((_%e3649636665%_ + (gx#stx-e _%hd3645936842%_))) + (if (equal? _%e3649636665%_ '::) (if (gx#stx-pair? - _%tl3657536960%_) - (let ((_%e3661236784%_ + _%tl3646036845%_) + (let ((_%e3649736669%_ (gx#syntax-e - _%tl3657536960%_))) - (let ((_%tl3661436791%_ + _%tl3646036845%_))) + (let ((_%tl3649936676%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3661236784%_))) - (_%hd3661336788%_ - (let () (declare (not safe)) (##car _%e3661236784%_)))) - (if (gx#stx-null? _%tl3661436791%_) - (_%__kont3953539536%_ - _%hd3661336788%_ - _%hd3650637191%_ - _%hd3650337181%_) - (if (gx#stx-pair? _%tl3661436791%_) - (let ((_%e3663236694%_ (gx#syntax-e _%tl3661436791%_))) - (let ((_%tl3663436701%_ + (##cdr _%e3649736669%_))) + (_%hd3649836673%_ + (let () (declare (not safe)) (##car _%e3649736669%_)))) + (if (gx#stx-null? _%tl3649936676%_) + (_%__kont3941639417%_ + _%hd3649836673%_ + _%hd3639137074%_ + _%hd3638837064%_) + (if (gx#stx-pair? _%tl3649936676%_) + (let ((_%e3651736579%_ (gx#syntax-e _%tl3649936676%_))) + (let ((_%tl3651936586%_ (let () (declare (not safe)) - (##cdr _%e3663236694%_))) - (_%hd3663336698%_ + (##cdr _%e3651736579%_))) + (_%hd3651836583%_ (let () (declare (not safe)) - (##car _%e3663236694%_)))) - (if (gx#identifier? _%hd3663336698%_) + (##car _%e3651736579%_)))) + (if (gx#identifier? _%hd3651836583%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39892_| - _%hd3663336698%_) - (if (gx#stx-pair? _%tl3663436701%_) - (let ((_%e3663536704%_ - (gx#syntax-e _%tl3663436701%_))) - (let ((_%tl3663736711%_ + |gerbil/core/match[1]#_g39773_| + _%hd3651836583%_) + (if (gx#stx-pair? _%tl3651936586%_) + (let ((_%e3652036589%_ + (gx#syntax-e _%tl3651936586%_))) + (let ((_%tl3652236596%_ (let () (declare (not safe)) - (##cdr _%e3663536704%_))) - (_%hd3663636708%_ + (##cdr _%e3652036589%_))) + (_%hd3652136593%_ (let () (declare (not safe)) - (##car _%e3663536704%_)))) - (if (gx#stx-null? _%tl3663736711%_) - (_%__kont3953739538%_ - _%hd3663636708%_ - _%hd3661336788%_ - _%hd3650637191%_ - _%hd3650337181%_) + (##car _%e3652036589%_)))) + (if (gx#stx-null? _%tl3652236596%_) + (_%__kont3941839419%_ + _%hd3652136593%_ + _%hd3649836673%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))) + (_%g3638236528%_))))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_))))) - (let () (declare (not safe)) (_%g3649736643%_)))))) + (_%g3638236528%_))))) + (let () (declare (not safe)) (_%g3638236528%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_)))) + (_%g3638236528%_)))) (let () (declare (not safe)) - (_%g3649736643%_))))))) - (if (gx#stx-null? _%tl3650737194%_) - (_%__kont3953139532%_ - _%hd3650637191%_ - _%hd3650337181%_) + (_%g3638236528%_))))))) + (if (gx#stx-null? _%tl3639237077%_) + (_%__kont3941239413%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))))) - (if (gx#stx-pair? _%tl3650737194%_) - (let ((_%e3657336953%_ (gx#syntax-e _%tl3650737194%_))) - (let ((_%tl3657536960%_ + (_%g3638236528%_))))))) + (if (gx#stx-pair? _%tl3639237077%_) + (let ((_%e3645836838%_ (gx#syntax-e _%tl3639237077%_))) + (let ((_%tl3646036845%_ (let () (declare (not safe)) - (##cdr _%e3657336953%_))) - (_%hd3657436957%_ + (##cdr _%e3645836838%_))) + (_%hd3645936842%_ (let () (declare (not safe)) - (##car _%e3657336953%_)))) - (if (gx#stx-null? _%tl3657536960%_) - (_%__kont3952939530%_ - _%hd3657436957%_ - _%hd3650637191%_) - (if (gx#identifier? _%hd3657436957%_) + (##car _%e3645836838%_)))) + (if (gx#stx-null? _%tl3646036845%_) + (_%__kont3941039411%_ + _%hd3645936842%_ + _%hd3639137074%_) + (if (gx#identifier? _%hd3645936842%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39891_| - _%hd3657436957%_) - (if (gx#stx-pair? _%tl3657536960%_) - (let ((_%e3659636853%_ - (gx#syntax-e _%tl3657536960%_))) - (let ((_%tl3659836860%_ + |gerbil/core/match[1]#_g39772_| + _%hd3645936842%_) + (if (gx#stx-pair? _%tl3646036845%_) + (let ((_%e3648136738%_ + (gx#syntax-e _%tl3646036845%_))) + (let ((_%tl3648336745%_ (let () (declare (not safe)) - (##cdr _%e3659636853%_))) - (_%hd3659736857%_ + (##cdr _%e3648136738%_))) + (_%hd3648236742%_ (let () (declare (not safe)) - (##car _%e3659636853%_)))) - (if (gx#stx-null? _%tl3659836860%_) - (_%__kont3953339534%_ - _%hd3659736857%_ - _%hd3650637191%_ - _%hd3650337181%_) + (##car _%e3648136738%_)))) + (if (gx#stx-null? _%tl3648336745%_) + (_%__kont3941439415%_ + _%hd3648236742%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))) + (_%g3638236528%_))))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_))) - (if (gx#stx-datum? _%hd3657436957%_) - (let ((_%e3661136780%_ - (gx#stx-e _%hd3657436957%_))) - (if (equal? _%e3661136780%_ '::) - (if (gx#stx-pair? _%tl3657536960%_) - (let ((_%e3661236784%_ + (_%g3638236528%_))) + (if (gx#stx-datum? _%hd3645936842%_) + (let ((_%e3649636665%_ + (gx#stx-e _%hd3645936842%_))) + (if (equal? _%e3649636665%_ '::) + (if (gx#stx-pair? _%tl3646036845%_) + (let ((_%e3649736669%_ (gx#syntax-e - _%tl3657536960%_))) - (let ((_%tl3661436791%_ + _%tl3646036845%_))) + (let ((_%tl3649936676%_ (let () (declare (not safe)) - (##cdr _%e3661236784%_))) - (_%hd3661336788%_ + (##cdr _%e3649736669%_))) + (_%hd3649836673%_ (let () (declare (not safe)) - (##car _%e3661236784%_)))) + (##car _%e3649736669%_)))) (if (gx#stx-null? - _%tl3661436791%_) - (_%__kont3953539536%_ - _%hd3661336788%_ - _%hd3650637191%_ - _%hd3650337181%_) + _%tl3649936676%_) + (_%__kont3941639417%_ + _%hd3649836673%_ + _%hd3639137074%_ + _%hd3638837064%_) (if (gx#stx-pair? - _%tl3661436791%_) - (let ((_%e3663236694%_ + _%tl3649936676%_) + (let ((_%e3651736579%_ (gx#syntax-e - _%tl3661436791%_))) - (let ((_%tl3663436701%_ + _%tl3649936676%_))) + (let ((_%tl3651936586%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e3663236694%_))) - (_%hd3663336698%_ + (let () (declare (not safe)) (##cdr _%e3651736579%_))) + (_%hd3651836583%_ (let () (declare (not safe)) - (##car _%e3663236694%_)))) - (if (gx#identifier? _%hd3663336698%_) + (##car _%e3651736579%_)))) + (if (gx#identifier? _%hd3651836583%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39892_| - _%hd3663336698%_) - (if (gx#stx-pair? _%tl3663436701%_) - (let ((_%e3663536704%_ - (gx#syntax-e _%tl3663436701%_))) - (let ((_%tl3663736711%_ + |gerbil/core/match[1]#_g39773_| + _%hd3651836583%_) + (if (gx#stx-pair? _%tl3651936586%_) + (let ((_%e3652036589%_ + (gx#syntax-e _%tl3651936586%_))) + (let ((_%tl3652236596%_ (let () (declare (not safe)) - (##cdr _%e3663536704%_))) - (_%hd3663636708%_ + (##cdr _%e3652036589%_))) + (_%hd3652136593%_ (let () (declare (not safe)) - (##car _%e3663536704%_)))) - (if (gx#stx-null? _%tl3663736711%_) - (_%__kont3953739538%_ - _%hd3663636708%_ - _%hd3661336788%_ - _%hd3650637191%_ - _%hd3650337181%_) + (##car _%e3652036589%_)))) + (if (gx#stx-null? _%tl3652236596%_) + (_%__kont3941839419%_ + _%hd3652136593%_ + _%hd3649836673%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))) + (_%g3638236528%_))))) (let () (declare (not safe)) - (_%g3649736643%_))) - (let () (declare (not safe)) (_%g3649736643%_))) - (let () (declare (not safe)) (_%g3649736643%_))))) - (let () (declare (not safe)) (_%g3649736643%_)))))) + (_%g3638236528%_))) + (let () (declare (not safe)) (_%g3638236528%_))) + (let () (declare (not safe)) (_%g3638236528%_))))) + (let () (declare (not safe)) (_%g3638236528%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_)))) + (_%g3638236528%_)))) (let () (declare (not safe)) - (_%g3649736643%_))))))) - (if (gx#stx-null? _%tl3650737194%_) - (_%__kont3953139532%_ _%hd3650637191%_ _%hd3650337181%_) - (let () (declare (not safe)) (_%g3649736643%_))))) + (_%g3638236528%_))))))) + (if (gx#stx-null? _%tl3639237077%_) + (_%__kont3941239413%_ _%hd3639137074%_ _%hd3638837064%_) + (let () (declare (not safe)) (_%g3638236528%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39895_| - _%hd3650937201%_) + |gerbil/core/match[1]#_g39776_| + _%hd3639437084%_) (if (gx#stx-pair? - _%tl3651037204%_) - (let ((_%e3655937017%_ + _%tl3639537087%_) + (let ((_%e3644436902%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3651037204%_))) - (let ((_%tl3656137024%_ + (gx#syntax-e _%tl3639537087%_))) + (let ((_%tl3644636909%_ (let () (declare (not safe)) - (##cdr _%e3655937017%_))) - (_%hd3656037021%_ + (##cdr _%e3644436902%_))) + (_%hd3644536906%_ (let () (declare (not safe)) - (##car _%e3655937017%_)))) - (if (gx#stx-null? _%tl3656137024%_) - (if (gx#stx-pair? _%tl3650737194%_) - (let ((_%e3656237027%_ - (gx#syntax-e _%tl3650737194%_))) - (let ((_%tl3656437034%_ + (##car _%e3644436902%_)))) + (if (gx#stx-null? _%tl3644636909%_) + (if (gx#stx-pair? _%tl3639237077%_) + (let ((_%e3644736912%_ + (gx#syntax-e _%tl3639237077%_))) + (let ((_%tl3644936919%_ (let () (declare (not safe)) - (##cdr _%e3656237027%_))) - (_%hd3656337031%_ + (##cdr _%e3644736912%_))) + (_%hd3644836916%_ (let () (declare (not safe)) - (##car _%e3656237027%_)))) - (if (gx#stx-null? _%tl3656437034%_) - (_%__kont3952739528%_ - _%hd3656337031%_ - _%hd3656037021%_ - _%hd3650337181%_) - (if (gx#identifier? _%hd3656337031%_) + (##car _%e3644736912%_)))) + (if (gx#stx-null? _%tl3644936919%_) + (_%__kont3940839409%_ + _%hd3644836916%_ + _%hd3644536906%_ + _%hd3638837064%_) + (if (gx#identifier? _%hd3644836916%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39891_| - _%hd3656337031%_) + |gerbil/core/match[1]#_g39772_| + _%hd3644836916%_) (if (gx#stx-pair? - _%tl3656437034%_) - (let ((_%e3659636853%_ + _%tl3644936919%_) + (let ((_%e3648136738%_ (gx#syntax-e - _%tl3656437034%_))) - (let ((_%tl3659836860%_ + _%tl3644936919%_))) + (let ((_%tl3648336745%_ (let () (declare (not safe)) - (##cdr _%e3659636853%_))) - (_%hd3659736857%_ + (##cdr _%e3648136738%_))) + (_%hd3648236742%_ (let () (declare (not safe)) - (##car _%e3659636853%_)))) + (##car _%e3648136738%_)))) (if (gx#stx-null? - _%tl3659836860%_) - (_%__kont3953339534%_ - _%hd3659736857%_ - _%hd3650637191%_ - _%hd3650337181%_) + _%tl3648336745%_) + (_%__kont3941439415%_ + _%hd3648236742%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))) + (_%g3638236528%_))))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_))) - (if (gx#stx-datum? _%hd3656337031%_) - (let ((_%e3661136780%_ + (_%g3638236528%_))) + (if (gx#stx-datum? _%hd3644836916%_) + (let ((_%e3649636665%_ (gx#stx-e - _%hd3656337031%_))) - (if (equal? _%e3661136780%_ + _%hd3644836916%_))) + (if (equal? _%e3649636665%_ '::) (if (gx#stx-pair? - _%tl3656437034%_) - (let ((_%e3661236784%_ + _%tl3644936919%_) + (let ((_%e3649736669%_ (gx#syntax-e - _%tl3656437034%_))) - (let ((_%tl3661436791%_ + _%tl3644936919%_))) + (let ((_%tl3649936676%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e3661236784%_))) - (_%hd3661336788%_ + (let () (declare (not safe)) (##cdr _%e3649736669%_))) + (_%hd3649836673%_ (let () (declare (not safe)) - (##car _%e3661236784%_)))) - (if (gx#stx-null? _%tl3661436791%_) - (_%__kont3953539536%_ - _%hd3661336788%_ - _%hd3650637191%_ - _%hd3650337181%_) - (if (gx#stx-pair? _%tl3661436791%_) - (let ((_%e3663236694%_ - (gx#syntax-e _%tl3661436791%_))) - (let ((_%tl3663436701%_ + (##car _%e3649736669%_)))) + (if (gx#stx-null? _%tl3649936676%_) + (_%__kont3941639417%_ + _%hd3649836673%_ + _%hd3639137074%_ + _%hd3638837064%_) + (if (gx#stx-pair? _%tl3649936676%_) + (let ((_%e3651736579%_ + (gx#syntax-e _%tl3649936676%_))) + (let ((_%tl3651936586%_ (let () (declare (not safe)) - (##cdr _%e3663236694%_))) - (_%hd3663336698%_ + (##cdr _%e3651736579%_))) + (_%hd3651836583%_ (let () (declare (not safe)) - (##car _%e3663236694%_)))) - (if (gx#identifier? _%hd3663336698%_) + (##car _%e3651736579%_)))) + (if (gx#identifier? _%hd3651836583%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39892_| - _%hd3663336698%_) - (if (gx#stx-pair? _%tl3663436701%_) - (let ((_%e3663536704%_ + |gerbil/core/match[1]#_g39773_| + _%hd3651836583%_) + (if (gx#stx-pair? _%tl3651936586%_) + (let ((_%e3652036589%_ (gx#syntax-e - _%tl3663436701%_))) - (let ((_%tl3663736711%_ + _%tl3651936586%_))) + (let ((_%tl3652236596%_ (let () (declare (not safe)) - (##cdr _%e3663536704%_))) - (_%hd3663636708%_ + (##cdr _%e3652036589%_))) + (_%hd3652136593%_ (let () (declare (not safe)) - (##car _%e3663536704%_)))) + (##car _%e3652036589%_)))) (if (gx#stx-null? - _%tl3663736711%_) - (_%__kont3953739538%_ - _%hd3663636708%_ - _%hd3661336788%_ - _%hd3650637191%_ - _%hd3650337181%_) + _%tl3652236596%_) + (_%__kont3941839419%_ + _%hd3652136593%_ + _%hd3649836673%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))) + (_%g3638236528%_))))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_))))) - (let () (declare (not safe)) (_%g3649736643%_)))))) - (let () (declare (not safe)) (_%g3649736643%_))) + (_%g3638236528%_))))) + (let () (declare (not safe)) (_%g3638236528%_)))))) + (let () (declare (not safe)) (_%g3638236528%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3649736643%_)))) + (_%g3638236528%_)))) (let () (declare (not safe)) - (_%g3649736643%_))))))) - (if (gx#stx-null? _%tl3650737194%_) - (_%__kont3953139532%_ - _%hd3650637191%_ - _%hd3650337181%_) + (_%g3638236528%_))))))) + (if (gx#stx-null? _%tl3639237077%_) + (_%__kont3941239413%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_)))) - (if (gx#stx-pair? _%tl3650737194%_) - (let ((_%e3657336953%_ - (gx#syntax-e _%tl3650737194%_))) - (let ((_%tl3657536960%_ + (_%g3638236528%_)))) + (if (gx#stx-pair? _%tl3639237077%_) + (let ((_%e3645836838%_ + (gx#syntax-e _%tl3639237077%_))) + (let ((_%tl3646036845%_ (let () (declare (not safe)) - (##cdr _%e3657336953%_))) - (_%hd3657436957%_ + (##cdr _%e3645836838%_))) + (_%hd3645936842%_ (let () (declare (not safe)) - (##car _%e3657336953%_)))) - (if (gx#stx-null? _%tl3657536960%_) - (_%__kont3952939530%_ - _%hd3657436957%_ - _%hd3650637191%_) - (if (gx#identifier? _%hd3657436957%_) + (##car _%e3645836838%_)))) + (if (gx#stx-null? _%tl3646036845%_) + (_%__kont3941039411%_ + _%hd3645936842%_ + _%hd3639137074%_) + (if (gx#identifier? _%hd3645936842%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39891_| - _%hd3657436957%_) + |gerbil/core/match[1]#_g39772_| + _%hd3645936842%_) (if (gx#stx-pair? - _%tl3657536960%_) - (let ((_%e3659636853%_ + _%tl3646036845%_) + (let ((_%e3648136738%_ (gx#syntax-e - _%tl3657536960%_))) - (let ((_%tl3659836860%_ + _%tl3646036845%_))) + (let ((_%tl3648336745%_ (let () (declare (not safe)) - (##cdr _%e3659636853%_))) - (_%hd3659736857%_ + (##cdr _%e3648136738%_))) + (_%hd3648236742%_ (let () (declare (not safe)) - (##car _%e3659636853%_)))) + (##car _%e3648136738%_)))) (if (gx#stx-null? - _%tl3659836860%_) - (_%__kont3953339534%_ - _%hd3659736857%_ - _%hd3650637191%_ - _%hd3650337181%_) + _%tl3648336745%_) + (_%__kont3941439415%_ + _%hd3648236742%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))) + (_%g3638236528%_))))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_))) - (if (gx#stx-datum? _%hd3657436957%_) - (let ((_%e3661136780%_ + (_%g3638236528%_))) + (if (gx#stx-datum? _%hd3645936842%_) + (let ((_%e3649636665%_ (gx#stx-e - _%hd3657436957%_))) - (if (equal? _%e3661136780%_ + _%hd3645936842%_))) + (if (equal? _%e3649636665%_ '::) (if (gx#stx-pair? - _%tl3657536960%_) - (let ((_%e3661236784%_ + _%tl3646036845%_) + (let ((_%e3649736669%_ (gx#syntax-e - _%tl3657536960%_))) - (let ((_%tl3661436791%_ + _%tl3646036845%_))) + (let ((_%tl3649936676%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e3661236784%_))) - (_%hd3661336788%_ + (let () (declare (not safe)) (##cdr _%e3649736669%_))) + (_%hd3649836673%_ (let () (declare (not safe)) - (##car _%e3661236784%_)))) - (if (gx#stx-null? _%tl3661436791%_) - (_%__kont3953539536%_ - _%hd3661336788%_ - _%hd3650637191%_ - _%hd3650337181%_) - (if (gx#stx-pair? _%tl3661436791%_) - (let ((_%e3663236694%_ - (gx#syntax-e _%tl3661436791%_))) - (let ((_%tl3663436701%_ + (##car _%e3649736669%_)))) + (if (gx#stx-null? _%tl3649936676%_) + (_%__kont3941639417%_ + _%hd3649836673%_ + _%hd3639137074%_ + _%hd3638837064%_) + (if (gx#stx-pair? _%tl3649936676%_) + (let ((_%e3651736579%_ + (gx#syntax-e _%tl3649936676%_))) + (let ((_%tl3651936586%_ (let () (declare (not safe)) - (##cdr _%e3663236694%_))) - (_%hd3663336698%_ + (##cdr _%e3651736579%_))) + (_%hd3651836583%_ (let () (declare (not safe)) - (##car _%e3663236694%_)))) - (if (gx#identifier? _%hd3663336698%_) + (##car _%e3651736579%_)))) + (if (gx#identifier? _%hd3651836583%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39892_| - _%hd3663336698%_) - (if (gx#stx-pair? _%tl3663436701%_) - (let ((_%e3663536704%_ + |gerbil/core/match[1]#_g39773_| + _%hd3651836583%_) + (if (gx#stx-pair? _%tl3651936586%_) + (let ((_%e3652036589%_ (gx#syntax-e - _%tl3663436701%_))) - (let ((_%tl3663736711%_ + _%tl3651936586%_))) + (let ((_%tl3652236596%_ (let () (declare (not safe)) - (##cdr _%e3663536704%_))) - (_%hd3663636708%_ + (##cdr _%e3652036589%_))) + (_%hd3652136593%_ (let () (declare (not safe)) - (##car _%e3663536704%_)))) + (##car _%e3652036589%_)))) (if (gx#stx-null? - _%tl3663736711%_) - (_%__kont3953739538%_ - _%hd3663636708%_ - _%hd3661336788%_ - _%hd3650637191%_ - _%hd3650337181%_) + _%tl3652236596%_) + (_%__kont3941839419%_ + _%hd3652136593%_ + _%hd3649836673%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))) + (_%g3638236528%_))))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_))))) - (let () (declare (not safe)) (_%g3649736643%_)))))) - (let () (declare (not safe)) (_%g3649736643%_))) + (_%g3638236528%_))))) + (let () (declare (not safe)) (_%g3638236528%_)))))) + (let () (declare (not safe)) (_%g3638236528%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3649736643%_)))) + (_%g3638236528%_)))) (let () (declare (not safe)) - (_%g3649736643%_))))))) - (if (gx#stx-null? _%tl3650737194%_) - (_%__kont3953139532%_ - _%hd3650637191%_ - _%hd3650337181%_) + (_%g3638236528%_))))))) + (if (gx#stx-null? _%tl3639237077%_) + (_%__kont3941239413%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))))) - (if (gx#stx-pair? _%tl3650737194%_) - (let ((_%e3657336953%_ (gx#syntax-e _%tl3650737194%_))) - (let ((_%tl3657536960%_ + (_%g3638236528%_))))))) + (if (gx#stx-pair? _%tl3639237077%_) + (let ((_%e3645836838%_ (gx#syntax-e _%tl3639237077%_))) + (let ((_%tl3646036845%_ (let () (declare (not safe)) - (##cdr _%e3657336953%_))) - (_%hd3657436957%_ + (##cdr _%e3645836838%_))) + (_%hd3645936842%_ (let () (declare (not safe)) - (##car _%e3657336953%_)))) - (if (gx#stx-null? _%tl3657536960%_) - (_%__kont3952939530%_ - _%hd3657436957%_ - _%hd3650637191%_) - (if (gx#identifier? _%hd3657436957%_) + (##car _%e3645836838%_)))) + (if (gx#stx-null? _%tl3646036845%_) + (_%__kont3941039411%_ + _%hd3645936842%_ + _%hd3639137074%_) + (if (gx#identifier? _%hd3645936842%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39891_| - _%hd3657436957%_) - (if (gx#stx-pair? _%tl3657536960%_) - (let ((_%e3659636853%_ + |gerbil/core/match[1]#_g39772_| + _%hd3645936842%_) + (if (gx#stx-pair? _%tl3646036845%_) + (let ((_%e3648136738%_ (gx#syntax-e - _%tl3657536960%_))) - (let ((_%tl3659836860%_ + _%tl3646036845%_))) + (let ((_%tl3648336745%_ (let () (declare (not safe)) - (##cdr _%e3659636853%_))) - (_%hd3659736857%_ + (##cdr _%e3648136738%_))) + (_%hd3648236742%_ (let () (declare (not safe)) - (##car _%e3659636853%_)))) + (##car _%e3648136738%_)))) (if (gx#stx-null? - _%tl3659836860%_) - (_%__kont3953339534%_ - _%hd3659736857%_ - _%hd3650637191%_ - _%hd3650337181%_) + _%tl3648336745%_) + (_%__kont3941439415%_ + _%hd3648236742%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))) + (_%g3638236528%_))))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_))) - (if (gx#stx-datum? _%hd3657436957%_) - (let ((_%e3661136780%_ - (gx#stx-e _%hd3657436957%_))) - (if (equal? _%e3661136780%_ '::) - (if (gx#stx-pair? _%tl3657536960%_) - (let ((_%e3661236784%_ + (_%g3638236528%_))) + (if (gx#stx-datum? _%hd3645936842%_) + (let ((_%e3649636665%_ + (gx#stx-e _%hd3645936842%_))) + (if (equal? _%e3649636665%_ '::) + (if (gx#stx-pair? _%tl3646036845%_) + (let ((_%e3649736669%_ (gx#syntax-e - _%tl3657536960%_))) - (let ((_%tl3661436791%_ + _%tl3646036845%_))) + (let ((_%tl3649936676%_ (let () (declare (not safe)) - (##cdr _%e3661236784%_))) - (_%hd3661336788%_ + (##cdr _%e3649736669%_))) + (_%hd3649836673%_ (let () (declare (not safe)) - (##car _%e3661236784%_)))) + (##car _%e3649736669%_)))) (if (gx#stx-null? - _%tl3661436791%_) - (_%__kont3953539536%_ - _%hd3661336788%_ - _%hd3650637191%_ - _%hd3650337181%_) + _%tl3649936676%_) + (_%__kont3941639417%_ + _%hd3649836673%_ + _%hd3639137074%_ + _%hd3638837064%_) (if (gx#stx-pair? - _%tl3661436791%_) - (let ((_%e3663236694%_ + _%tl3649936676%_) + (let ((_%e3651736579%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3661436791%_))) - (let ((_%tl3663436701%_ + (gx#syntax-e _%tl3649936676%_))) + (let ((_%tl3651936586%_ (let () (declare (not safe)) - (##cdr _%e3663236694%_))) - (_%hd3663336698%_ + (##cdr _%e3651736579%_))) + (_%hd3651836583%_ (let () (declare (not safe)) - (##car _%e3663236694%_)))) - (if (gx#identifier? _%hd3663336698%_) + (##car _%e3651736579%_)))) + (if (gx#identifier? _%hd3651836583%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39892_| - _%hd3663336698%_) - (if (gx#stx-pair? _%tl3663436701%_) - (let ((_%e3663536704%_ - (gx#syntax-e _%tl3663436701%_))) - (let ((_%tl3663736711%_ + |gerbil/core/match[1]#_g39773_| + _%hd3651836583%_) + (if (gx#stx-pair? _%tl3651936586%_) + (let ((_%e3652036589%_ + (gx#syntax-e _%tl3651936586%_))) + (let ((_%tl3652236596%_ (let () (declare (not safe)) - (##cdr _%e3663536704%_))) - (_%hd3663636708%_ + (##cdr _%e3652036589%_))) + (_%hd3652136593%_ (let () (declare (not safe)) - (##car _%e3663536704%_)))) - (if (gx#stx-null? _%tl3663736711%_) - (_%__kont3953739538%_ - _%hd3663636708%_ - _%hd3661336788%_ - _%hd3650637191%_ - _%hd3650337181%_) + (##car _%e3652036589%_)))) + (if (gx#stx-null? _%tl3652236596%_) + (_%__kont3941839419%_ + _%hd3652136593%_ + _%hd3649836673%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))) + (_%g3638236528%_))))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_))) - (let () (declare (not safe)) (_%g3649736643%_))))) - (let () (declare (not safe)) (_%g3649736643%_)))))) + (_%g3638236528%_))) + (let () (declare (not safe)) (_%g3638236528%_))))) + (let () (declare (not safe)) (_%g3638236528%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_)))) + (_%g3638236528%_)))) (let () (declare (not safe)) - (_%g3649736643%_))))))) - (if (gx#stx-null? _%tl3650737194%_) - (_%__kont3953139532%_ - _%hd3650637191%_ - _%hd3650337181%_) - (let () (declare (not safe)) (_%g3649736643%_))))) - (if (gx#stx-pair? _%tl3650737194%_) - (let ((_%e3657336953%_ (gx#syntax-e _%tl3650737194%_))) - (let ((_%tl3657536960%_ + (_%g3638236528%_))))))) + (if (gx#stx-null? _%tl3639237077%_) + (_%__kont3941239413%_ + _%hd3639137074%_ + _%hd3638837064%_) + (let () (declare (not safe)) (_%g3638236528%_))))) + (if (gx#stx-pair? _%tl3639237077%_) + (let ((_%e3645836838%_ (gx#syntax-e _%tl3639237077%_))) + (let ((_%tl3646036845%_ (let () (declare (not safe)) - (##cdr _%e3657336953%_))) - (_%hd3657436957%_ + (##cdr _%e3645836838%_))) + (_%hd3645936842%_ (let () (declare (not safe)) - (##car _%e3657336953%_)))) - (if (gx#stx-null? _%tl3657536960%_) - (_%__kont3952939530%_ - _%hd3657436957%_ - _%hd3650637191%_) - (if (gx#identifier? _%hd3657436957%_) + (##car _%e3645836838%_)))) + (if (gx#stx-null? _%tl3646036845%_) + (_%__kont3941039411%_ + _%hd3645936842%_ + _%hd3639137074%_) + (if (gx#identifier? _%hd3645936842%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39891_| - _%hd3657436957%_) - (if (gx#stx-pair? _%tl3657536960%_) - (let ((_%e3659636853%_ - (gx#syntax-e _%tl3657536960%_))) - (let ((_%tl3659836860%_ + |gerbil/core/match[1]#_g39772_| + _%hd3645936842%_) + (if (gx#stx-pair? _%tl3646036845%_) + (let ((_%e3648136738%_ + (gx#syntax-e _%tl3646036845%_))) + (let ((_%tl3648336745%_ (let () (declare (not safe)) - (##cdr _%e3659636853%_))) - (_%hd3659736857%_ + (##cdr _%e3648136738%_))) + (_%hd3648236742%_ (let () (declare (not safe)) - (##car _%e3659636853%_)))) - (if (gx#stx-null? _%tl3659836860%_) - (_%__kont3953339534%_ - _%hd3659736857%_ - _%hd3650637191%_ - _%hd3650337181%_) + (##car _%e3648136738%_)))) + (if (gx#stx-null? _%tl3648336745%_) + (_%__kont3941439415%_ + _%hd3648236742%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))) + (_%g3638236528%_))))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_))) - (if (gx#stx-datum? _%hd3657436957%_) - (let ((_%e3661136780%_ - (gx#stx-e _%hd3657436957%_))) - (if (equal? _%e3661136780%_ '::) - (if (gx#stx-pair? _%tl3657536960%_) - (let ((_%e3661236784%_ + (_%g3638236528%_))) + (if (gx#stx-datum? _%hd3645936842%_) + (let ((_%e3649636665%_ + (gx#stx-e _%hd3645936842%_))) + (if (equal? _%e3649636665%_ '::) + (if (gx#stx-pair? _%tl3646036845%_) + (let ((_%e3649736669%_ (gx#syntax-e - _%tl3657536960%_))) - (let ((_%tl3661436791%_ + _%tl3646036845%_))) + (let ((_%tl3649936676%_ (let () (declare (not safe)) - (##cdr _%e3661236784%_))) - (_%hd3661336788%_ + (##cdr _%e3649736669%_))) + (_%hd3649836673%_ (let () (declare (not safe)) - (##car _%e3661236784%_)))) + (##car _%e3649736669%_)))) (if (gx#stx-null? - _%tl3661436791%_) - (_%__kont3953539536%_ - _%hd3661336788%_ - _%hd3650637191%_ - _%hd3650337181%_) + _%tl3649936676%_) + (_%__kont3941639417%_ + _%hd3649836673%_ + _%hd3639137074%_ + _%hd3638837064%_) (if (gx#stx-pair? - _%tl3661436791%_) - (let ((_%e3663236694%_ + _%tl3649936676%_) + (let ((_%e3651736579%_ (gx#syntax-e - _%tl3661436791%_))) - (let ((_%tl3663436701%_ + _%tl3649936676%_))) + (let ((_%tl3651936586%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e3663236694%_))) - (_%hd3663336698%_ + (let () (declare (not safe)) (##cdr _%e3651736579%_))) + (_%hd3651836583%_ (let () (declare (not safe)) - (##car _%e3663236694%_)))) - (if (gx#identifier? _%hd3663336698%_) + (##car _%e3651736579%_)))) + (if (gx#identifier? _%hd3651836583%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39892_| - _%hd3663336698%_) - (if (gx#stx-pair? _%tl3663436701%_) - (let ((_%e3663536704%_ - (gx#syntax-e _%tl3663436701%_))) - (let ((_%tl3663736711%_ + |gerbil/core/match[1]#_g39773_| + _%hd3651836583%_) + (if (gx#stx-pair? _%tl3651936586%_) + (let ((_%e3652036589%_ + (gx#syntax-e _%tl3651936586%_))) + (let ((_%tl3652236596%_ (let () (declare (not safe)) - (##cdr _%e3663536704%_))) - (_%hd3663636708%_ + (##cdr _%e3652036589%_))) + (_%hd3652136593%_ (let () (declare (not safe)) - (##car _%e3663536704%_)))) - (if (gx#stx-null? _%tl3663736711%_) - (_%__kont3953739538%_ - _%hd3663636708%_ - _%hd3661336788%_ - _%hd3650637191%_ - _%hd3650337181%_) + (##car _%e3652036589%_)))) + (if (gx#stx-null? _%tl3652236596%_) + (_%__kont3941839419%_ + _%hd3652136593%_ + _%hd3649836673%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))) + (_%g3638236528%_))))) (let () (declare (not safe)) - (_%g3649736643%_))) - (let () (declare (not safe)) (_%g3649736643%_))) - (let () (declare (not safe)) (_%g3649736643%_))))) - (let () (declare (not safe)) (_%g3649736643%_)))))) + (_%g3638236528%_))) + (let () (declare (not safe)) (_%g3638236528%_))) + (let () (declare (not safe)) (_%g3638236528%_))))) + (let () (declare (not safe)) (_%g3638236528%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_)))) + (_%g3638236528%_)))) (let () (declare (not safe)) - (_%g3649736643%_))))))) - (if (gx#stx-null? _%tl3650737194%_) - (_%__kont3953139532%_ _%hd3650637191%_ _%hd3650337181%_) - (let () (declare (not safe)) (_%g3649736643%_))))))) + (_%g3638236528%_))))))) + (if (gx#stx-null? _%tl3639237077%_) + (_%__kont3941239413%_ _%hd3639137074%_ _%hd3638837064%_) + (let () (declare (not safe)) (_%g3638236528%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl3650737194%_) - (let ((_%e3657336953%_ + (if (gx#stx-pair? _%tl3639237077%_) + (let ((_%e3645836838%_ (gx#syntax-e - _%tl3650737194%_))) - (let ((_%tl3657536960%_ + _%tl3639237077%_))) + (let ((_%tl3646036845%_ (let () (declare (not safe)) - (##cdr _%e3657336953%_))) - (_%hd3657436957%_ + (##cdr _%e3645836838%_))) + (_%hd3645936842%_ (let () (declare (not safe)) - (##car _%e3657336953%_)))) + (##car _%e3645836838%_)))) (if (gx#stx-null? - _%tl3657536960%_) - (_%__kont3952939530%_ - _%hd3657436957%_ - _%hd3650637191%_) + _%tl3646036845%_) + (_%__kont3941039411%_ + _%hd3645936842%_ + _%hd3639137074%_) (if (gx#identifier? - _%hd3657436957%_) + _%hd3645936842%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39891_| - _%hd3657436957%_) + |gerbil/core/match[1]#_g39772_| + _%hd3645936842%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl3657536960%_) - (let ((_%e3659636853%_ - (gx#syntax-e _%tl3657536960%_))) - (let ((_%tl3659836860%_ + _%tl3646036845%_) + (let ((_%e3648136738%_ + (gx#syntax-e _%tl3646036845%_))) + (let ((_%tl3648336745%_ (let () (declare (not safe)) - (##cdr _%e3659636853%_))) - (_%hd3659736857%_ + (##cdr _%e3648136738%_))) + (_%hd3648236742%_ (let () (declare (not safe)) - (##car _%e3659636853%_)))) - (if (gx#stx-null? _%tl3659836860%_) - (_%__kont3953339534%_ - _%hd3659736857%_ - _%hd3650637191%_ - _%hd3650337181%_) + (##car _%e3648136738%_)))) + (if (gx#stx-null? _%tl3648336745%_) + (_%__kont3941439415%_ + _%hd3648236742%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))) - (let () (declare (not safe)) (_%g3649736643%_))) - (let () (declare (not safe)) (_%g3649736643%_))) - (if (gx#stx-datum? _%hd3657436957%_) - (let ((_%e3661136780%_ (gx#stx-e _%hd3657436957%_))) - (if (equal? _%e3661136780%_ '::) - (if (gx#stx-pair? _%tl3657536960%_) - (let ((_%e3661236784%_ - (gx#syntax-e _%tl3657536960%_))) - (let ((_%tl3661436791%_ + (_%g3638236528%_))))) + (let () (declare (not safe)) (_%g3638236528%_))) + (let () (declare (not safe)) (_%g3638236528%_))) + (if (gx#stx-datum? _%hd3645936842%_) + (let ((_%e3649636665%_ (gx#stx-e _%hd3645936842%_))) + (if (equal? _%e3649636665%_ '::) + (if (gx#stx-pair? _%tl3646036845%_) + (let ((_%e3649736669%_ + (gx#syntax-e _%tl3646036845%_))) + (let ((_%tl3649936676%_ (let () (declare (not safe)) - (##cdr _%e3661236784%_))) - (_%hd3661336788%_ + (##cdr _%e3649736669%_))) + (_%hd3649836673%_ (let () (declare (not safe)) - (##car _%e3661236784%_)))) - (if (gx#stx-null? _%tl3661436791%_) - (_%__kont3953539536%_ - _%hd3661336788%_ - _%hd3650637191%_ - _%hd3650337181%_) - (if (gx#stx-pair? _%tl3661436791%_) - (let ((_%e3663236694%_ + (##car _%e3649736669%_)))) + (if (gx#stx-null? _%tl3649936676%_) + (_%__kont3941639417%_ + _%hd3649836673%_ + _%hd3639137074%_ + _%hd3638837064%_) + (if (gx#stx-pair? _%tl3649936676%_) + (let ((_%e3651736579%_ (gx#syntax-e - _%tl3661436791%_))) - (let ((_%tl3663436701%_ + _%tl3649936676%_))) + (let ((_%tl3651936586%_ (let () (declare (not safe)) - (##cdr _%e3663236694%_))) - (_%hd3663336698%_ + (##cdr _%e3651736579%_))) + (_%hd3651836583%_ (let () (declare (not safe)) - (##car _%e3663236694%_)))) + (##car _%e3651736579%_)))) (if (gx#identifier? - _%hd3663336698%_) + _%hd3651836583%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39892_| - _%hd3663336698%_) + |gerbil/core/match[1]#_g39773_| + _%hd3651836583%_) (if (gx#stx-pair? - _%tl3663436701%_) - (let ((_%e3663536704%_ + _%tl3651936586%_) + (let ((_%e3652036589%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3663436701%_))) - (let ((_%tl3663736711%_ + (gx#syntax-e _%tl3651936586%_))) + (let ((_%tl3652236596%_ (let () (declare (not safe)) - (##cdr _%e3663536704%_))) - (_%hd3663636708%_ + (##cdr _%e3652036589%_))) + (_%hd3652136593%_ (let () (declare (not safe)) - (##car _%e3663536704%_)))) - (if (gx#stx-null? _%tl3663736711%_) - (_%__kont3953739538%_ - _%hd3663636708%_ - _%hd3661336788%_ - _%hd3650637191%_ - _%hd3650337181%_) - (let () (declare (not safe)) (_%g3649736643%_))))) - (let () (declare (not safe)) (_%g3649736643%_))) - (let () (declare (not safe)) (_%g3649736643%_))) + (##car _%e3652036589%_)))) + (if (gx#stx-null? _%tl3652236596%_) + (_%__kont3941839419%_ + _%hd3652136593%_ + _%hd3649836673%_ + _%hd3639137074%_ + _%hd3638837064%_) + (let () (declare (not safe)) (_%g3638236528%_))))) + (let () (declare (not safe)) (_%g3638236528%_))) + (let () (declare (not safe)) (_%g3638236528%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3649736643%_))))) + (_%g3638236528%_))))) (let () (declare (not safe)) - (_%g3649736643%_)))))) + (_%g3638236528%_)))))) (let () (declare (not safe)) - (_%g3649736643%_))) - (let () (declare (not safe)) (_%g3649736643%_)))) - (let () (declare (not safe)) (_%g3649736643%_))))))) + (_%g3638236528%_))) + (let () (declare (not safe)) (_%g3638236528%_)))) + (let () (declare (not safe)) (_%g3638236528%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl3650737194%_) - (_%__kont3953139532%_ - _%hd3650637191%_ - _%hd3650337181%_) + _%tl3639237077%_) + (_%__kont3941239413%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))))) - (if (gx#stx-pair? _%tl3650737194%_) - (let ((_%e3657336953%_ - (gx#syntax-e _%tl3650737194%_))) - (let ((_%tl3657536960%_ + (_%g3638236528%_))))))) + (if (gx#stx-pair? _%tl3639237077%_) + (let ((_%e3645836838%_ + (gx#syntax-e _%tl3639237077%_))) + (let ((_%tl3646036845%_ (let () (declare (not safe)) - (##cdr _%e3657336953%_))) - (_%hd3657436957%_ + (##cdr _%e3645836838%_))) + (_%hd3645936842%_ (let () (declare (not safe)) - (##car _%e3657336953%_)))) - (if (gx#stx-null? _%tl3657536960%_) - (_%__kont3952939530%_ - _%hd3657436957%_ - _%hd3650637191%_) + (##car _%e3645836838%_)))) + (if (gx#stx-null? _%tl3646036845%_) + (_%__kont3941039411%_ + _%hd3645936842%_ + _%hd3639137074%_) (if (gx#identifier? - _%hd3657436957%_) + _%hd3645936842%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39891_| - _%hd3657436957%_) + |gerbil/core/match[1]#_g39772_| + _%hd3645936842%_) (if (gx#stx-pair? - _%tl3657536960%_) - (let ((_%e3659636853%_ + _%tl3646036845%_) + (let ((_%e3648136738%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3657536960%_))) - (let ((_%tl3659836860%_ + (gx#syntax-e _%tl3646036845%_))) + (let ((_%tl3648336745%_ (let () (declare (not safe)) - (##cdr _%e3659636853%_))) - (_%hd3659736857%_ + (##cdr _%e3648136738%_))) + (_%hd3648236742%_ (let () (declare (not safe)) - (##car _%e3659636853%_)))) - (if (gx#stx-null? _%tl3659836860%_) - (_%__kont3953339534%_ - _%hd3659736857%_ - _%hd3650637191%_ - _%hd3650337181%_) - (let () (declare (not safe)) (_%g3649736643%_))))) - (let () (declare (not safe)) (_%g3649736643%_))) - (let () (declare (not safe)) (_%g3649736643%_))) + (##car _%e3648136738%_)))) + (if (gx#stx-null? _%tl3648336745%_) + (_%__kont3941439415%_ + _%hd3648236742%_ + _%hd3639137074%_ + _%hd3638837064%_) + (let () (declare (not safe)) (_%g3638236528%_))))) + (let () (declare (not safe)) (_%g3638236528%_))) + (let () (declare (not safe)) (_%g3638236528%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-datum? - _%hd3657436957%_) - (let ((_%e3661136780%_ + _%hd3645936842%_) + (let ((_%e3649636665%_ (gx#stx-e - _%hd3657436957%_))) - (if (equal? _%e3661136780%_ + _%hd3645936842%_))) + (if (equal? _%e3649636665%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '::) - (if (gx#stx-pair? _%tl3657536960%_) - (let ((_%e3661236784%_ (gx#syntax-e _%tl3657536960%_))) - (let ((_%tl3661436791%_ + (if (gx#stx-pair? _%tl3646036845%_) + (let ((_%e3649736669%_ (gx#syntax-e _%tl3646036845%_))) + (let ((_%tl3649936676%_ (let () (declare (not safe)) - (##cdr _%e3661236784%_))) - (_%hd3661336788%_ + (##cdr _%e3649736669%_))) + (_%hd3649836673%_ (let () (declare (not safe)) - (##car _%e3661236784%_)))) - (if (gx#stx-null? _%tl3661436791%_) - (_%__kont3953539536%_ - _%hd3661336788%_ - _%hd3650637191%_ - _%hd3650337181%_) - (if (gx#stx-pair? _%tl3661436791%_) - (let ((_%e3663236694%_ - (gx#syntax-e _%tl3661436791%_))) - (let ((_%tl3663436701%_ + (##car _%e3649736669%_)))) + (if (gx#stx-null? _%tl3649936676%_) + (_%__kont3941639417%_ + _%hd3649836673%_ + _%hd3639137074%_ + _%hd3638837064%_) + (if (gx#stx-pair? _%tl3649936676%_) + (let ((_%e3651736579%_ + (gx#syntax-e _%tl3649936676%_))) + (let ((_%tl3651936586%_ (let () (declare (not safe)) - (##cdr _%e3663236694%_))) - (_%hd3663336698%_ + (##cdr _%e3651736579%_))) + (_%hd3651836583%_ (let () (declare (not safe)) - (##car _%e3663236694%_)))) - (if (gx#identifier? _%hd3663336698%_) + (##car _%e3651736579%_)))) + (if (gx#identifier? _%hd3651836583%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39892_| - _%hd3663336698%_) + |gerbil/core/match[1]#_g39773_| + _%hd3651836583%_) (if (gx#stx-pair? - _%tl3663436701%_) - (let ((_%e3663536704%_ + _%tl3651936586%_) + (let ((_%e3652036589%_ (gx#syntax-e - _%tl3663436701%_))) - (let ((_%tl3663736711%_ + _%tl3651936586%_))) + (let ((_%tl3652236596%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3663536704%_))) - (_%hd3663636708%_ - (let () (declare (not safe)) (##car _%e3663536704%_)))) - (if (gx#stx-null? _%tl3663736711%_) - (_%__kont3953739538%_ - _%hd3663636708%_ - _%hd3661336788%_ - _%hd3650637191%_ - _%hd3650337181%_) - (let () (declare (not safe)) (_%g3649736643%_))))) + (##cdr _%e3652036589%_))) + (_%hd3652136593%_ + (let () (declare (not safe)) (##car _%e3652036589%_)))) + (if (gx#stx-null? _%tl3652236596%_) + (_%__kont3941839419%_ + _%hd3652136593%_ + _%hd3649836673%_ + _%hd3639137074%_ + _%hd3638837064%_) + (let () (declare (not safe)) (_%g3638236528%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_))) + (_%g3638236528%_))) (let () (declare (not safe)) - (_%g3649736643%_))))) + (_%g3638236528%_))))) (let () (declare (not safe)) - (_%g3649736643%_)))))) - (let () (declare (not safe)) (_%g3649736643%_))) - (let () (declare (not safe)) (_%g3649736643%_)))) - (let () (declare (not safe)) (_%g3649736643%_))))))) + (_%g3638236528%_)))))) + (let () (declare (not safe)) (_%g3638236528%_))) + (let () (declare (not safe)) (_%g3638236528%_)))) + (let () (declare (not safe)) (_%g3638236528%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? _%tl3650737194%_) - (_%__kont3953139532%_ - _%hd3650637191%_ - _%hd3650337181%_) + (if (gx#stx-null? _%tl3639237077%_) + (_%__kont3941239413%_ + _%hd3639137074%_ + _%hd3638837064%_) (let () (declare (not safe)) - (_%g3649736643%_))))))) - (let () (declare (not safe)) (_%g3649736643%_))))) - (let () (declare (not safe)) (_%g3649736643%_)))))))) + (_%g3638236528%_))))))) + (let () (declare (not safe)) (_%g3638236528%_))))) + (let () (declare (not safe)) (_%g3638236528%_)))))))) (define |gerbil/core/match[:0:]#defsyntax-for-match| - (lambda (_%$stx37286%_) - (let* ((_%__stx3978439785%_ _%$stx37286%_) - (_%g3729137325%_ + (lambda (_%$stx37167%_) + (let* ((_%__stx3966539666%_ _%$stx37167%_) + (_%g3717237206%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3978439785%_)))) - (let ((_%__kont3978739788%_ - (lambda (_%L37429%_ _%L37431%_ _%L37432%_) + _%__stx3966539666%_)))) + (let ((_%__kont3966839669%_ + (lambda (_%g3717437310%_ _%g3717537312%_ _%g3717637313%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L37432%_ + (cons _%g3717637313%_ (cons (cons (gx#datum->syntax '#f 'make-match-macro) @@ -8490,9 +8575,9 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$match-e) - (cons _%L37431%_ '())) + (cons _%g3717537312%_ '())) (cons (cons (gx#datum->syntax '#f '$macro-e) - (cons _%L37429%_ '())) + (cons _%g3717437310%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$stx) @@ -8549,11 +8634,11 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont3978939790%_ - (lambda (_%L37362%_ _%L37364%_ _%L37365%_) - (cons _%L37365%_ - (cons _%L37364%_ - (cons _%L37362%_ + (_%__kont3967039671%_ + (lambda (_%g3718937243%_ _%g3719037245%_ _%g3719137246%_) + (cons _%g3719137246%_ + (cons _%g3719037245%_ + (cons _%g3718937243%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f @@ -8570,146 +8655,146 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (let ((_%__match3981739818%_ - (lambda (_%e3729637389%_ - _%hd3729737393%_ - _%tl3729837396%_ - _%e3729937399%_ - _%hd3730037403%_ - _%tl3730137406%_ - _%e3730237409%_ - _%hd3730337413%_ - _%tl3730437416%_ - _%e3730537419%_ - _%hd3730637423%_ - _%tl3730737426%_) - (let ((_%L37429%_ _%hd3730637423%_) - (_%L37431%_ _%hd3730337413%_) - (_%L37432%_ _%hd3730037403%_)) - (if (gx#identifier? _%L37432%_) - (_%__kont3978739788%_ - _%L37429%_ - _%L37431%_ - _%L37432%_) - (let () (declare (not safe)) (_%g3729137325%_))))))) - (if (gx#stx-pair? _%__stx3978439785%_) - (let ((_%e3729637389%_ (gx#syntax-e _%__stx3978439785%_))) - (let ((_%tl3729837396%_ + (let ((_%__match3969839699%_ + (lambda (_%e3717737270%_ + _%hd3717837274%_ + _%tl3717937277%_ + _%e3718037280%_ + _%hd3718137284%_ + _%tl3718237287%_ + _%e3718337290%_ + _%hd3718437294%_ + _%tl3718537297%_ + _%e3718637300%_ + _%hd3718737304%_ + _%tl3718837307%_) + (let ((_%g3717437310%_ _%hd3718737304%_) + (_%g3717537312%_ _%hd3718437294%_) + (_%g3717637313%_ _%hd3718137284%_)) + (if (gx#identifier? _%g3717637313%_) + (_%__kont3966839669%_ + _%g3717437310%_ + _%g3717537312%_ + _%g3717637313%_) + (let () (declare (not safe)) (_%g3717237206%_))))))) + (if (gx#stx-pair? _%__stx3966539666%_) + (let ((_%e3717737270%_ (gx#syntax-e _%__stx3966539666%_))) + (let ((_%tl3717937277%_ (let () (declare (not safe)) - (##cdr _%e3729637389%_))) - (_%hd3729737393%_ + (##cdr _%e3717737270%_))) + (_%hd3717837274%_ (let () (declare (not safe)) - (##car _%e3729637389%_)))) - (if (gx#stx-pair? _%tl3729837396%_) - (let ((_%e3729937399%_ - (gx#syntax-e _%tl3729837396%_))) - (let ((_%tl3730137406%_ + (##car _%e3717737270%_)))) + (if (gx#stx-pair? _%tl3717937277%_) + (let ((_%e3718037280%_ + (gx#syntax-e _%tl3717937277%_))) + (let ((_%tl3718237287%_ (let () (declare (not safe)) - (##cdr _%e3729937399%_))) - (_%hd3730037403%_ + (##cdr _%e3718037280%_))) + (_%hd3718137284%_ (let () (declare (not safe)) - (##car _%e3729937399%_)))) - (if (gx#stx-pair? _%tl3730137406%_) - (let ((_%e3730237409%_ - (gx#syntax-e _%tl3730137406%_))) - (let ((_%tl3730437416%_ + (##car _%e3718037280%_)))) + (if (gx#stx-pair? _%tl3718237287%_) + (let ((_%e3718337290%_ + (gx#syntax-e _%tl3718237287%_))) + (let ((_%tl3718537297%_ (let () (declare (not safe)) - (##cdr _%e3730237409%_))) - (_%hd3730337413%_ + (##cdr _%e3718337290%_))) + (_%hd3718437294%_ (let () (declare (not safe)) - (##car _%e3730237409%_)))) - (if (gx#stx-pair? _%tl3730437416%_) - (let ((_%e3730537419%_ + (##car _%e3718337290%_)))) + (if (gx#stx-pair? _%tl3718537297%_) + (let ((_%e3718637300%_ (gx#syntax-e - _%tl3730437416%_))) - (let ((_%tl3730737426%_ + _%tl3718537297%_))) + (let ((_%tl3718837307%_ (let () (declare (not safe)) - (##cdr _%e3730537419%_))) - (_%hd3730637423%_ + (##cdr _%e3718637300%_))) + (_%hd3718737304%_ (let () (declare (not safe)) - (##car _%e3730537419%_)))) + (##car _%e3718637300%_)))) (if (gx#stx-null? - _%tl3730737426%_) - (_%__match3981739818%_ - _%e3729637389%_ - _%hd3729737393%_ - _%tl3729837396%_ - _%e3729937399%_ - _%hd3730037403%_ - _%tl3730137406%_ - _%e3730237409%_ - _%hd3730337413%_ - _%tl3730437416%_ - _%e3730537419%_ - _%hd3730637423%_ - _%tl3730737426%_) + _%tl3718837307%_) + (_%__match3969839699%_ + _%e3717737270%_ + _%hd3717837274%_ + _%tl3717937277%_ + _%e3718037280%_ + _%hd3718137284%_ + _%tl3718237287%_ + _%e3718337290%_ + _%hd3718437294%_ + _%tl3718537297%_ + _%e3718637300%_ + _%hd3718737304%_ + _%tl3718837307%_) (let () (declare (not safe)) - (_%g3729137325%_))))) - (if (gx#stx-null? _%tl3730437416%_) - (_%__kont3978939790%_ - _%hd3730337413%_ - _%hd3730037403%_ - _%hd3729737393%_) + (_%g3717237206%_))))) + (if (gx#stx-null? _%tl3718537297%_) + (_%__kont3967039671%_ + _%hd3718437294%_ + _%hd3718137284%_ + _%hd3717837274%_) (let () (declare (not safe)) - (_%g3729137325%_)))))) + (_%g3717237206%_)))))) (let () (declare (not safe)) - (_%g3729137325%_))))) - (let () (declare (not safe)) (_%g3729137325%_))))) - (let () (declare (not safe)) (_%g3729137325%_)))))))) + (_%g3717237206%_))))) + (let () (declare (not safe)) (_%g3717237206%_))))) + (let () (declare (not safe)) (_%g3717237206%_)))))))) (define |gerbil/core/match[:0:]#defrules-for-match| - (lambda (_%$stx37454%_) - (let* ((_%g3745837473%_ - (lambda (_%g3745937469%_) + (lambda (_%$stx37335%_) + (let* ((_%g3733937354%_ + (lambda (_%g3734037350%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3745937469%_))) - (_%g3745737516%_ - (lambda (_%g3745937477%_) - (if (gx#stx-pair? _%g3745937477%_) - (let ((_%e3746237480%_ (gx#syntax-e _%g3745937477%_))) - (let ((_%hd3746337484%_ + _%g3734037350%_))) + (_%g3733837397%_ + (lambda (_%g3734037358%_) + (if (gx#stx-pair? _%g3734037358%_) + (let ((_%e3734337361%_ (gx#syntax-e _%g3734037358%_))) + (let ((_%hd3734437365%_ (let () (declare (not safe)) - (##car _%e3746237480%_))) - (_%tl3746437487%_ + (##car _%e3734337361%_))) + (_%tl3734537368%_ (let () (declare (not safe)) - (##cdr _%e3746237480%_)))) - (if (gx#stx-pair? _%tl3746437487%_) - (let ((_%e3746537490%_ - (gx#syntax-e _%tl3746437487%_))) - (let ((_%hd3746637494%_ + (##cdr _%e3734337361%_)))) + (if (gx#stx-pair? _%tl3734537368%_) + (let ((_%e3734637371%_ + (gx#syntax-e _%tl3734537368%_))) + (let ((_%hd3734737375%_ (let () (declare (not safe)) - (##car _%e3746537490%_))) - (_%tl3746737497%_ + (##car _%e3734637371%_))) + (_%tl3734837378%_ (let () (declare (not safe)) - (##cdr _%e3746537490%_)))) - ((lambda (_%L37500%_ _%L37502%_) + (##cdr _%e3734637371%_)))) + ((lambda (_%g3734137381%_ _%g3734237383%_) (cons (gx#datum->syntax '#f 'defsyntax-for-match) - (cons _%L37502%_ + (cons _%g3734237383%_ (cons (cons (gx#datum->syntax '#f 'syntax-rules) - _%L37500%_) + _%g3734137381%_) '())))) - _%tl3746737497%_ - _%hd3746637494%_))) - (_%g3745837473%_ _%g3745937477%_)))) - (_%g3745837473%_ _%g3745937477%_))))) - (_%g3745737516%_ _%$stx37454%_)))))) + _%tl3734837378%_ + _%hd3734737375%_))) + (_%g3733937354%_ _%g3734037358%_)))) + (_%g3733937354%_ _%g3734037358%_))))) + (_%g3733837397%_ _%$stx37335%_)))))) diff --git a/src/bootstrap/gerbil/core/match~2.scm b/src/bootstrap/gerbil/core/match~2.scm index e3d3d4bed7..4abeb10378 100644 --- a/src/bootstrap/gerbil/core/match~2.scm +++ b/src/bootstrap/gerbil/core/match~2.scm @@ -1,55 +1,55 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/match[2]#_g39897_| + (define |gerbil/core/match[2]#_g39778_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39899_| + (define |gerbil/core/match[2]#_g39780_| (##structure gx#syntax-quote::t 'match-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39901_| + (define |gerbil/core/match[2]#_g39782_| (##structure gx#syntax-quote::t 'make-match-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39903_| + (define |gerbil/core/match[2]#_g39784_| (##structure gx#syntax-quote::t 'match-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39905_| + (define |gerbil/core/match[2]#_g39786_| (##structure gx#syntax-quote::t 'match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39907_| + (define |gerbil/core/match[2]#_g39788_| (##structure gx#syntax-quote::t 'match-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39909_| + (define |gerbil/core/match[2]#_g39790_| (##structure gx#syntax-quote::t '&match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39911_| + (define |gerbil/core/match[2]#_g39792_| (##structure gx#syntax-quote::t '&match-macro-macro-set! @@ -57,7 +57,7 @@ (gx#current-expander-context) '())) (define |gerbil/core/match[:1:]#match-macro| - (let ((__obj39839 + (let ((__obj39720 (let () (declare (not safe)) (##structure @@ -86,55 +86,55 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj39839 + __obj39720 'gerbil.core#match-macro::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39839 'match-macro '2 '#f '#f)) + (##unchecked-structure-set! __obj39720 'match-macro '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39839 '() '4 '#f '#f)) - (let ((__tmp39896 (cons |gerbil/core/match[2]#_g39897_| '()))) + (##unchecked-structure-set! __obj39720 '() '5 '#f '#f)) + (let ((__tmp39777 (cons |gerbil/core/match[2]#_g39778_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj39839 __tmp39896 '3 '#f '#f)) + (##unchecked-structure-set! __obj39720 __tmp39777 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39839 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj39720 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39839 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj39720 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39839 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj39720 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39839 '#f '11 '#f '#f)) - (let ((__tmp39898 |gerbil/core/match[2]#_g39899_|)) + (##unchecked-structure-set! __obj39720 '#f '12 '#f '#f)) + (let ((__tmp39779 |gerbil/core/match[2]#_g39780_|)) (declare (not safe)) - (##unchecked-structure-set! __obj39839 __tmp39898 '12 '#f '#f)) - (let ((__tmp39900 |gerbil/core/match[2]#_g39901_|)) + (##unchecked-structure-set! __obj39720 __tmp39779 '3 '#f '#f)) + (let ((__tmp39781 |gerbil/core/match[2]#_g39782_|)) (declare (not safe)) - (##unchecked-structure-set! __obj39839 __tmp39900 '13 '#f '#f)) - (let ((__tmp39902 |gerbil/core/match[2]#_g39903_|)) + (##unchecked-structure-set! __obj39720 __tmp39781 '13 '#f '#f)) + (let ((__tmp39783 |gerbil/core/match[2]#_g39784_|)) (declare (not safe)) - (##unchecked-structure-set! __obj39839 __tmp39902 '14 '#f '#f)) - (let ((__tmp39904 - (cons (cons 'macro |gerbil/core/match[2]#_g39905_|) '()))) + (##unchecked-structure-set! __obj39720 __tmp39783 '14 '#f '#f)) + (let ((__tmp39785 + (cons (cons 'macro |gerbil/core/match[2]#_g39786_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj39839 __tmp39904 '15 '#f '#f)) - (let ((__tmp39906 - (cons (cons 'macro |gerbil/core/match[2]#_g39907_|) '()))) + (##unchecked-structure-set! __obj39720 __tmp39785 '15 '#f '#f)) + (let ((__tmp39787 + (cons (cons 'macro |gerbil/core/match[2]#_g39788_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj39839 __tmp39906 '16 '#f '#f)) - (let ((__tmp39908 - (cons (cons 'macro |gerbil/core/match[2]#_g39909_|) '()))) + (##unchecked-structure-set! __obj39720 __tmp39787 '16 '#f '#f)) + (let ((__tmp39789 + (cons (cons 'macro |gerbil/core/match[2]#_g39790_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj39839 __tmp39908 '17 '#f '#f)) - (let ((__tmp39910 - (cons (cons 'macro |gerbil/core/match[2]#_g39911_|) '()))) + (##unchecked-structure-set! __obj39720 __tmp39789 '17 '#f '#f)) + (let ((__tmp39791 + (cons (cons 'macro |gerbil/core/match[2]#_g39792_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj39839 __tmp39910 '18 '#f '#f)) - __obj39839))) + (##unchecked-structure-set! __obj39720 __tmp39791 '18 '#f '#f)) + __obj39720))) diff --git a/src/bootstrap/gerbil/core/module-sugar~1.scm b/src/bootstrap/gerbil/core/module-sugar~1.scm index b5d8c4cca9..083d043cff 100644 --- a/src/bootstrap/gerbil/core/module-sugar~1.scm +++ b/src/bootstrap/gerbil/core/module-sugar~1.scm @@ -1,2891 +1,2918 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core/module-sugar[:0:]#require| - (lambda (_%$stx45168%_) - (let* ((_%__stx4782247823%_ _%$stx45168%_) - (_%g4517345192%_ + (lambda (_%$stx45886%_) + (let* ((_%__stx4850848509%_ _%$stx45886%_) + (_%g4589145910%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4782247823%_)))) - (let ((_%__kont4782547826%_ + _%__stx4850848509%_)))) + (let ((_%__kont4851148512%_ (lambda () (cons (gx#datum->syntax '#f 'begin) '()))) - (_%__kont4782747828%_ - (lambda (_%L45219%_ _%L45221%_ _%L45222%_) + (_%__kont4851348514%_ + (lambda (_%g4589645937%_ _%g4589745939%_ _%g4589845940%_) (cons (gx#datum->syntax '#f 'cond-expand) - (cons (cons _%L45221%_ - (cons (cons _%L45222%_ _%L45219%_) '())) + (cons (cons _%g4589745939%_ + (cons (cons _%g4589845940%_ _%g4589645937%_) + '())) (cons (cons (gx#datum->syntax '#f 'else) (cons (cons (gx#datum->syntax '#f 'syntax-error) (cons '"Missing required feature" - (cons _%L45221%_ + (cons _%g4589745939%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())))))) - (if (gx#stx-pair? _%__stx4782247823%_) - (let ((_%e4517545244%_ (gx#syntax-e _%__stx4782247823%_))) - (let ((_%tl4517745251%_ - (let () (declare (not safe)) (##cdr _%e4517545244%_))) - (_%hd4517645248%_ - (let () (declare (not safe)) (##car _%e4517545244%_)))) - (if (gx#stx-null? _%tl4517745251%_) - (_%__kont4782547826%_) - (if (gx#stx-pair? _%tl4517745251%_) - (let ((_%e4518445209%_ - (gx#syntax-e _%tl4517745251%_))) - (let ((_%tl4518645216%_ + (if (gx#stx-pair? _%__stx4850848509%_) + (let ((_%e4589345962%_ (gx#syntax-e _%__stx4850848509%_))) + (let ((_%tl4589545969%_ + (let () (declare (not safe)) (##cdr _%e4589345962%_))) + (_%hd4589445966%_ + (let () (declare (not safe)) (##car _%e4589345962%_)))) + (if (gx#stx-null? _%tl4589545969%_) + (_%__kont4851148512%_) + (if (gx#stx-pair? _%tl4589545969%_) + (let ((_%e4590245927%_ + (gx#syntax-e _%tl4589545969%_))) + (let ((_%tl4590445934%_ (let () (declare (not safe)) - (##cdr _%e4518445209%_))) - (_%hd4518545213%_ + (##cdr _%e4590245927%_))) + (_%hd4590345931%_ (let () (declare (not safe)) - (##car _%e4518445209%_)))) - (_%__kont4782747828%_ - _%tl4518645216%_ - _%hd4518545213%_ - _%hd4517645248%_))) - (let () (declare (not safe)) (_%g4517345192%_)))))) - (let () (declare (not safe)) (_%g4517345192%_))))))) + (##car _%e4590245927%_)))) + (_%__kont4851348514%_ + _%tl4590445934%_ + _%hd4590345931%_ + _%hd4589445966%_))) + (let () (declare (not safe)) (_%g4589145910%_)))))) + (let () (declare (not safe)) (_%g4589145910%_))))))) (define |gerbil/core/module-sugar[:0:]#defsyntax-for-import| - (lambda (_%$stx45262%_) - (let* ((_%__stx4785247853%_ _%$stx45262%_) - (_%g4526745307%_ + (lambda (_%$stx45980%_) + (let* ((_%__stx4853848539%_ _%$stx45980%_) + (_%g4598546025%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4785247853%_)))) - (let ((_%__kont4785547856%_ - (lambda (_%L45445%_ _%L45447%_) + _%__stx4853848539%_)))) + (let ((_%__kont4854148542%_ + (lambda (_%g4598746161%_ _%g4598846163%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L45447%_ + (cons _%g4598846163%_ (cons (cons (gx#datum->syntax '#f 'make-import-expander) - (cons _%L45445%_ '())) + (cons _%g4598746161%_ '())) '()))))) - (_%__kont4785747858%_ - (lambda (_%L45374%_ _%L45376%_ _%L45377%_ _%L45378%_) - (cons _%L45378%_ - (cons _%L45377%_ + (_%__kont4854348544%_ + (lambda (_%g4599846090%_ + _%g4599946092%_ + _%g4600046093%_ + _%g4600146094%_) + (cons _%g4600146094%_ + (cons _%g4600046093%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L45376%_ - (foldr (lambda (_%g4539945402%_ - _%g4540045405%_) - (cons _%g4539945402%_ - _%g4540045405%_)) + (cons _%g4599946092%_ + (foldr (lambda (_%g4611546118%_ + _%g4611646121%_) + (cons _%g4611546118%_ + _%g4611646121%_)) '() - _%L45374%_))) + _%g4599846090%_))) '())))))) - (let* ((_%__match4790747908%_ - (lambda (_%e4528445314%_ - _%hd4528545318%_ - _%tl4528645321%_ - _%e4528745324%_ - _%hd4528845328%_ - _%tl4528945331%_ - _%e4529045334%_ - _%hd4529145338%_ - _%tl4529245341%_ - _%__splice4785947860%_ - _%target4529345344%_ - _%tl4529545347%_) - (letrec ((_%loop4529645350%_ - (lambda (_%hd4529445354%_ _%body4530045357%_) - (if (gx#stx-pair? _%hd4529445354%_) - (let ((_%e4529745360%_ - (gx#syntax-e _%hd4529445354%_))) - (let ((_%lp-tl4529945367%_ + (let* ((_%__match4859348594%_ + (lambda (_%e4600246032%_ + _%hd4600346036%_ + _%tl4600446039%_ + _%e4600546042%_ + _%hd4600646046%_ + _%tl4600746049%_ + _%e4600846052%_ + _%hd4600946056%_ + _%tl4601046059%_ + _%__splice4854548546%_ + _%target4601146062%_ + _%tl4601346065%_) + (letrec ((_%loop4601446068%_ + (lambda (_%hd4601246072%_ _%body4601846075%_) + (if (gx#stx-pair? _%hd4601246072%_) + (let ((_%e4601546077%_ + (gx#syntax-e _%hd4601246072%_))) + (let ((_%lp-tl4601746084%_ (let () (declare (not safe)) - (##cdr _%e4529745360%_))) - (_%lp-hd4529845364%_ + (##cdr _%e4601546077%_))) + (_%lp-hd4601646081%_ (let () (declare (not safe)) - (##car _%e4529745360%_)))) - (_%loop4529645350%_ - _%lp-tl4529945367%_ - (cons _%lp-hd4529845364%_ - _%body4530045357%_)))) - (let ((_%body4530145370%_ - (reverse _%body4530045357%_))) - (let ((_%L45374%_ _%body4530145370%_) - (_%L45376%_ _%tl4529245341%_) - (_%L45377%_ _%hd4529145338%_) - (_%L45378%_ _%hd4528545318%_)) - (if (gx#identifier? _%L45377%_) - (_%__kont4785747858%_ - _%L45374%_ - _%L45376%_ - _%L45377%_ - _%L45378%_) + (##car _%e4601546077%_)))) + (_%loop4601446068%_ + _%lp-tl4601746084%_ + (cons _%lp-hd4601646081%_ + _%body4601846075%_)))) + (let ((_%body4601946087%_ + (reverse _%body4601846075%_))) + (let ((_%g4599846090%_ + _%body4601946087%_) + (_%g4599946092%_ _%tl4601046059%_) + (_%g4600046093%_ _%hd4600946056%_) + (_%g4600146094%_ _%hd4600346036%_)) + (if (gx#identifier? _%g4600046093%_) + (_%__kont4854348544%_ + _%g4599846090%_ + _%g4599946092%_ + _%g4600046093%_ + _%g4600146094%_) (let () (declare (not safe)) - (_%g4526745307%_))))))))) - (_%loop4529645350%_ _%target4529345344%_ '())))) - (_%__match4788147882%_ - (lambda (_%e4527145415%_ - _%hd4527245419%_ - _%tl4527345422%_ - _%e4527445425%_ - _%hd4527545429%_ - _%tl4527645432%_ - _%e4527745435%_ - _%hd4527845439%_ - _%tl4527945442%_) - (let ((_%L45445%_ _%hd4527845439%_) - (_%L45447%_ _%hd4527545429%_)) - (if (gx#identifier? _%L45447%_) - (_%__kont4785547856%_ _%L45445%_ _%L45447%_) - (if (gx#stx-pair? _%hd4527545429%_) - (let ((_%e4529045334%_ - (gx#syntax-e _%hd4527545429%_))) - (let ((_%tl4529245341%_ + (_%g4598546025%_))))))))) + (_%loop4601446068%_ _%target4601146062%_ '())))) + (_%__match4856748568%_ + (lambda (_%e4598946131%_ + _%hd4599046135%_ + _%tl4599146138%_ + _%e4599246141%_ + _%hd4599346145%_ + _%tl4599446148%_ + _%e4599546151%_ + _%hd4599646155%_ + _%tl4599746158%_) + (let ((_%g4598746161%_ _%hd4599646155%_) + (_%g4598846163%_ _%hd4599346145%_)) + (if (gx#identifier? _%g4598846163%_) + (_%__kont4854148542%_ + _%g4598746161%_ + _%g4598846163%_) + (if (gx#stx-pair? _%hd4599346145%_) + (let ((_%e4600846052%_ + (gx#syntax-e _%hd4599346145%_))) + (let ((_%tl4601046059%_ (let () (declare (not safe)) - (##cdr _%e4529045334%_))) - (_%hd4529145338%_ + (##cdr _%e4600846052%_))) + (_%hd4600946056%_ (let () (declare (not safe)) - (##car _%e4529045334%_)))) - (if (gx#stx-pair/null? _%tl4527645432%_) - (let ((_%__splice4785947860%_ + (##car _%e4600846052%_)))) + (if (gx#stx-pair/null? _%tl4599446148%_) + (let ((_%__splice4854548546%_ (gx#syntax-split-splice->vector - _%tl4527645432%_ + _%tl4599446148%_ '0))) - (let ((_%tl4529545347%_ + (let ((_%tl4601346065%_ (let () (declare (not safe)) (##vector-ref - _%__splice4785947860%_ + _%__splice4854548546%_ '1))) - (_%target4529345344%_ + (_%target4601146062%_ (let () (declare (not safe)) (##vector-ref - _%__splice4785947860%_ + _%__splice4854548546%_ '0)))) - (if (gx#stx-null? _%tl4529545347%_) - (_%__match4790747908%_ - _%e4527145415%_ - _%hd4527245419%_ - _%tl4527345422%_ - _%e4527445425%_ - _%hd4527545429%_ - _%tl4527645432%_ - _%e4529045334%_ - _%hd4529145338%_ - _%tl4529245341%_ - _%__splice4785947860%_ - _%target4529345344%_ - _%tl4529545347%_) + (if (gx#stx-null? _%tl4601346065%_) + (_%__match4859348594%_ + _%e4598946131%_ + _%hd4599046135%_ + _%tl4599146138%_ + _%e4599246141%_ + _%hd4599346145%_ + _%tl4599446148%_ + _%e4600846052%_ + _%hd4600946056%_ + _%tl4601046059%_ + _%__splice4854548546%_ + _%target4601146062%_ + _%tl4601346065%_) (let () (declare (not safe)) - (_%g4526745307%_))))) + (_%g4598546025%_))))) (let () (declare (not safe)) - (_%g4526745307%_))))) + (_%g4598546025%_))))) (let () (declare (not safe)) - (_%g4526745307%_)))))))) - (if (gx#stx-pair? _%__stx4785247853%_) - (let ((_%e4527145415%_ (gx#syntax-e _%__stx4785247853%_))) - (let ((_%tl4527345422%_ - (let () (declare (not safe)) (##cdr _%e4527145415%_))) - (_%hd4527245419%_ + (_%g4598546025%_)))))))) + (if (gx#stx-pair? _%__stx4853848539%_) + (let ((_%e4598946131%_ (gx#syntax-e _%__stx4853848539%_))) + (let ((_%tl4599146138%_ + (let () (declare (not safe)) (##cdr _%e4598946131%_))) + (_%hd4599046135%_ (let () (declare (not safe)) - (##car _%e4527145415%_)))) - (if (gx#stx-pair? _%tl4527345422%_) - (let ((_%e4527445425%_ (gx#syntax-e _%tl4527345422%_))) - (let ((_%tl4527645432%_ + (##car _%e4598946131%_)))) + (if (gx#stx-pair? _%tl4599146138%_) + (let ((_%e4599246141%_ (gx#syntax-e _%tl4599146138%_))) + (let ((_%tl4599446148%_ (let () (declare (not safe)) - (##cdr _%e4527445425%_))) - (_%hd4527545429%_ + (##cdr _%e4599246141%_))) + (_%hd4599346145%_ (let () (declare (not safe)) - (##car _%e4527445425%_)))) - (if (gx#stx-pair? _%tl4527645432%_) - (let ((_%e4527745435%_ - (gx#syntax-e _%tl4527645432%_))) - (let ((_%tl4527945442%_ + (##car _%e4599246141%_)))) + (if (gx#stx-pair? _%tl4599446148%_) + (let ((_%e4599546151%_ + (gx#syntax-e _%tl4599446148%_))) + (let ((_%tl4599746158%_ (let () (declare (not safe)) - (##cdr _%e4527745435%_))) - (_%hd4527845439%_ + (##cdr _%e4599546151%_))) + (_%hd4599646155%_ (let () (declare (not safe)) - (##car _%e4527745435%_)))) - (if (gx#stx-null? _%tl4527945442%_) - (_%__match4788147882%_ - _%e4527145415%_ - _%hd4527245419%_ - _%tl4527345422%_ - _%e4527445425%_ - _%hd4527545429%_ - _%tl4527645432%_ - _%e4527745435%_ - _%hd4527845439%_ - _%tl4527945442%_) - (if (gx#stx-pair? _%hd4527545429%_) - (let ((_%e4529045334%_ + (##car _%e4599546151%_)))) + (if (gx#stx-null? _%tl4599746158%_) + (_%__match4856748568%_ + _%e4598946131%_ + _%hd4599046135%_ + _%tl4599146138%_ + _%e4599246141%_ + _%hd4599346145%_ + _%tl4599446148%_ + _%e4599546151%_ + _%hd4599646155%_ + _%tl4599746158%_) + (if (gx#stx-pair? _%hd4599346145%_) + (let ((_%e4600846052%_ (gx#syntax-e - _%hd4527545429%_))) - (let ((_%tl4529245341%_ + _%hd4599346145%_))) + (let ((_%tl4601046059%_ (let () (declare (not safe)) - (##cdr _%e4529045334%_))) - (_%hd4529145338%_ + (##cdr _%e4600846052%_))) + (_%hd4600946056%_ (let () (declare (not safe)) - (##car _%e4529045334%_)))) + (##car _%e4600846052%_)))) (if (gx#stx-pair/null? - _%tl4527645432%_) - (let ((_%__splice4785947860%_ + _%tl4599446148%_) + (let ((_%__splice4854548546%_ (gx#syntax-split-splice->vector - _%tl4527645432%_ + _%tl4599446148%_ '0))) - (let ((_%tl4529545347%_ + (let ((_%tl4601346065%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4785947860%_ '1))) - (_%target4529345344%_ + (##vector-ref _%__splice4854548546%_ '1))) + (_%target4601146062%_ (let () (declare (not safe)) - (##vector-ref _%__splice4785947860%_ '0)))) - (if (gx#stx-null? _%tl4529545347%_) - (_%__match4790747908%_ - _%e4527145415%_ - _%hd4527245419%_ - _%tl4527345422%_ - _%e4527445425%_ - _%hd4527545429%_ - _%tl4527645432%_ - _%e4529045334%_ - _%hd4529145338%_ - _%tl4529245341%_ - _%__splice4785947860%_ - _%target4529345344%_ - _%tl4529545347%_) - (let () (declare (not safe)) (_%g4526745307%_))))) + (##vector-ref _%__splice4854548546%_ '0)))) + (if (gx#stx-null? _%tl4601346065%_) + (_%__match4859348594%_ + _%e4598946131%_ + _%hd4599046135%_ + _%tl4599146138%_ + _%e4599246141%_ + _%hd4599346145%_ + _%tl4599446148%_ + _%e4600846052%_ + _%hd4600946056%_ + _%tl4601046059%_ + _%__splice4854548546%_ + _%target4601146062%_ + _%tl4601346065%_) + (let () (declare (not safe)) (_%g4598546025%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4526745307%_))))) + (_%g4598546025%_))))) (let () (declare (not safe)) - (_%g4526745307%_)))))) - (if (gx#stx-pair? _%hd4527545429%_) - (let ((_%e4529045334%_ - (gx#syntax-e _%hd4527545429%_))) - (let ((_%tl4529245341%_ + (_%g4598546025%_)))))) + (if (gx#stx-pair? _%hd4599346145%_) + (let ((_%e4600846052%_ + (gx#syntax-e _%hd4599346145%_))) + (let ((_%tl4601046059%_ (let () (declare (not safe)) - (##cdr _%e4529045334%_))) - (_%hd4529145338%_ + (##cdr _%e4600846052%_))) + (_%hd4600946056%_ (let () (declare (not safe)) - (##car _%e4529045334%_)))) + (##car _%e4600846052%_)))) (if (gx#stx-pair/null? - _%tl4527645432%_) - (let ((_%__splice4785947860%_ + _%tl4599446148%_) + (let ((_%__splice4854548546%_ (gx#syntax-split-splice->vector - _%tl4527645432%_ + _%tl4599446148%_ '0))) - (let ((_%tl4529545347%_ + (let ((_%tl4601346065%_ (let () (declare (not safe)) (##vector-ref - _%__splice4785947860%_ + _%__splice4854548546%_ '1))) - (_%target4529345344%_ + (_%target4601146062%_ (let () (declare (not safe)) (##vector-ref - _%__splice4785947860%_ + _%__splice4854548546%_ '0)))) (if (gx#stx-null? - _%tl4529545347%_) - (_%__match4790747908%_ - _%e4527145415%_ - _%hd4527245419%_ - _%tl4527345422%_ - _%e4527445425%_ - _%hd4527545429%_ - _%tl4527645432%_ - _%e4529045334%_ - _%hd4529145338%_ - _%tl4529245341%_ - _%__splice4785947860%_ - _%target4529345344%_ - _%tl4529545347%_) + _%tl4601346065%_) + (_%__match4859348594%_ + _%e4598946131%_ + _%hd4599046135%_ + _%tl4599146138%_ + _%e4599246141%_ + _%hd4599346145%_ + _%tl4599446148%_ + _%e4600846052%_ + _%hd4600946056%_ + _%tl4601046059%_ + _%__splice4854548546%_ + _%target4601146062%_ + _%tl4601346065%_) (let () (declare (not safe)) - (_%g4526745307%_))))) + (_%g4598546025%_))))) (let () (declare (not safe)) - (_%g4526745307%_))))) + (_%g4598546025%_))))) (let () (declare (not safe)) - (_%g4526745307%_)))))) - (let () (declare (not safe)) (_%g4526745307%_))))) - (let () (declare (not safe)) (_%g4526745307%_)))))))) + (_%g4598546025%_)))))) + (let () (declare (not safe)) (_%g4598546025%_))))) + (let () (declare (not safe)) (_%g4598546025%_)))))))) (define |gerbil/core/module-sugar[:0:]#defsyntax-for-export| - (lambda (_%$stx45467%_) - (let* ((_%__stx4791047911%_ _%$stx45467%_) - (_%g4547245512%_ + (lambda (_%$stx46183%_) + (let* ((_%__stx4859648597%_ _%$stx46183%_) + (_%g4618846228%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4791047911%_)))) - (let ((_%__kont4791347914%_ - (lambda (_%L45650%_ _%L45652%_) + _%__stx4859648597%_)))) + (let ((_%__kont4859948600%_ + (lambda (_%g4619046364%_ _%g4619146366%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L45652%_ + (cons _%g4619146366%_ (cons (cons (gx#datum->syntax '#f 'make-export-expander) - (cons _%L45650%_ '())) + (cons _%g4619046364%_ '())) '()))))) - (_%__kont4791547916%_ - (lambda (_%L45579%_ _%L45581%_ _%L45582%_ _%L45583%_) - (cons _%L45583%_ - (cons _%L45582%_ + (_%__kont4860148602%_ + (lambda (_%g4620146293%_ + _%g4620246295%_ + _%g4620346296%_ + _%g4620446297%_) + (cons _%g4620446297%_ + (cons _%g4620346296%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L45581%_ - (foldr (lambda (_%g4560445607%_ - _%g4560545610%_) - (cons _%g4560445607%_ - _%g4560545610%_)) + (cons _%g4620246295%_ + (foldr (lambda (_%g4631846321%_ + _%g4631946324%_) + (cons _%g4631846321%_ + _%g4631946324%_)) '() - _%L45579%_))) + _%g4620146293%_))) '())))))) - (let* ((_%__match4796547966%_ - (lambda (_%e4548945519%_ - _%hd4549045523%_ - _%tl4549145526%_ - _%e4549245529%_ - _%hd4549345533%_ - _%tl4549445536%_ - _%e4549545539%_ - _%hd4549645543%_ - _%tl4549745546%_ - _%__splice4791747918%_ - _%target4549845549%_ - _%tl4550045552%_) - (letrec ((_%loop4550145555%_ - (lambda (_%hd4549945559%_ _%body4550545562%_) - (if (gx#stx-pair? _%hd4549945559%_) - (let ((_%e4550245565%_ - (gx#syntax-e _%hd4549945559%_))) - (let ((_%lp-tl4550445572%_ + (let* ((_%__match4865148652%_ + (lambda (_%e4620546235%_ + _%hd4620646239%_ + _%tl4620746242%_ + _%e4620846245%_ + _%hd4620946249%_ + _%tl4621046252%_ + _%e4621146255%_ + _%hd4621246259%_ + _%tl4621346262%_ + _%__splice4860348604%_ + _%target4621446265%_ + _%tl4621646268%_) + (letrec ((_%loop4621746271%_ + (lambda (_%hd4621546275%_ _%body4622146278%_) + (if (gx#stx-pair? _%hd4621546275%_) + (let ((_%e4621846280%_ + (gx#syntax-e _%hd4621546275%_))) + (let ((_%lp-tl4622046287%_ (let () (declare (not safe)) - (##cdr _%e4550245565%_))) - (_%lp-hd4550345569%_ + (##cdr _%e4621846280%_))) + (_%lp-hd4621946284%_ (let () (declare (not safe)) - (##car _%e4550245565%_)))) - (_%loop4550145555%_ - _%lp-tl4550445572%_ - (cons _%lp-hd4550345569%_ - _%body4550545562%_)))) - (let ((_%body4550645575%_ - (reverse _%body4550545562%_))) - (let ((_%L45579%_ _%body4550645575%_) - (_%L45581%_ _%tl4549745546%_) - (_%L45582%_ _%hd4549645543%_) - (_%L45583%_ _%hd4549045523%_)) - (if (gx#identifier? _%L45582%_) - (_%__kont4791547916%_ - _%L45579%_ - _%L45581%_ - _%L45582%_ - _%L45583%_) + (##car _%e4621846280%_)))) + (_%loop4621746271%_ + _%lp-tl4622046287%_ + (cons _%lp-hd4621946284%_ + _%body4622146278%_)))) + (let ((_%body4622246290%_ + (reverse _%body4622146278%_))) + (let ((_%g4620146293%_ + _%body4622246290%_) + (_%g4620246295%_ _%tl4621346262%_) + (_%g4620346296%_ _%hd4621246259%_) + (_%g4620446297%_ _%hd4620646239%_)) + (if (gx#identifier? _%g4620346296%_) + (_%__kont4860148602%_ + _%g4620146293%_ + _%g4620246295%_ + _%g4620346296%_ + _%g4620446297%_) (let () (declare (not safe)) - (_%g4547245512%_))))))))) - (_%loop4550145555%_ _%target4549845549%_ '())))) - (_%__match4793947940%_ - (lambda (_%e4547645620%_ - _%hd4547745624%_ - _%tl4547845627%_ - _%e4547945630%_ - _%hd4548045634%_ - _%tl4548145637%_ - _%e4548245640%_ - _%hd4548345644%_ - _%tl4548445647%_) - (let ((_%L45650%_ _%hd4548345644%_) - (_%L45652%_ _%hd4548045634%_)) - (if (gx#identifier? _%L45652%_) - (_%__kont4791347914%_ _%L45650%_ _%L45652%_) - (if (gx#stx-pair? _%hd4548045634%_) - (let ((_%e4549545539%_ - (gx#syntax-e _%hd4548045634%_))) - (let ((_%tl4549745546%_ + (_%g4618846228%_))))))))) + (_%loop4621746271%_ _%target4621446265%_ '())))) + (_%__match4862548626%_ + (lambda (_%e4619246334%_ + _%hd4619346338%_ + _%tl4619446341%_ + _%e4619546344%_ + _%hd4619646348%_ + _%tl4619746351%_ + _%e4619846354%_ + _%hd4619946358%_ + _%tl4620046361%_) + (let ((_%g4619046364%_ _%hd4619946358%_) + (_%g4619146366%_ _%hd4619646348%_)) + (if (gx#identifier? _%g4619146366%_) + (_%__kont4859948600%_ + _%g4619046364%_ + _%g4619146366%_) + (if (gx#stx-pair? _%hd4619646348%_) + (let ((_%e4621146255%_ + (gx#syntax-e _%hd4619646348%_))) + (let ((_%tl4621346262%_ (let () (declare (not safe)) - (##cdr _%e4549545539%_))) - (_%hd4549645543%_ + (##cdr _%e4621146255%_))) + (_%hd4621246259%_ (let () (declare (not safe)) - (##car _%e4549545539%_)))) - (if (gx#stx-pair/null? _%tl4548145637%_) - (let ((_%__splice4791747918%_ + (##car _%e4621146255%_)))) + (if (gx#stx-pair/null? _%tl4619746351%_) + (let ((_%__splice4860348604%_ (gx#syntax-split-splice->vector - _%tl4548145637%_ + _%tl4619746351%_ '0))) - (let ((_%tl4550045552%_ + (let ((_%tl4621646268%_ (let () (declare (not safe)) (##vector-ref - _%__splice4791747918%_ + _%__splice4860348604%_ '1))) - (_%target4549845549%_ + (_%target4621446265%_ (let () (declare (not safe)) (##vector-ref - _%__splice4791747918%_ + _%__splice4860348604%_ '0)))) - (if (gx#stx-null? _%tl4550045552%_) - (_%__match4796547966%_ - _%e4547645620%_ - _%hd4547745624%_ - _%tl4547845627%_ - _%e4547945630%_ - _%hd4548045634%_ - _%tl4548145637%_ - _%e4549545539%_ - _%hd4549645543%_ - _%tl4549745546%_ - _%__splice4791747918%_ - _%target4549845549%_ - _%tl4550045552%_) + (if (gx#stx-null? _%tl4621646268%_) + (_%__match4865148652%_ + _%e4619246334%_ + _%hd4619346338%_ + _%tl4619446341%_ + _%e4619546344%_ + _%hd4619646348%_ + _%tl4619746351%_ + _%e4621146255%_ + _%hd4621246259%_ + _%tl4621346262%_ + _%__splice4860348604%_ + _%target4621446265%_ + _%tl4621646268%_) (let () (declare (not safe)) - (_%g4547245512%_))))) + (_%g4618846228%_))))) (let () (declare (not safe)) - (_%g4547245512%_))))) + (_%g4618846228%_))))) (let () (declare (not safe)) - (_%g4547245512%_)))))))) - (if (gx#stx-pair? _%__stx4791047911%_) - (let ((_%e4547645620%_ (gx#syntax-e _%__stx4791047911%_))) - (let ((_%tl4547845627%_ - (let () (declare (not safe)) (##cdr _%e4547645620%_))) - (_%hd4547745624%_ + (_%g4618846228%_)))))))) + (if (gx#stx-pair? _%__stx4859648597%_) + (let ((_%e4619246334%_ (gx#syntax-e _%__stx4859648597%_))) + (let ((_%tl4619446341%_ + (let () (declare (not safe)) (##cdr _%e4619246334%_))) + (_%hd4619346338%_ (let () (declare (not safe)) - (##car _%e4547645620%_)))) - (if (gx#stx-pair? _%tl4547845627%_) - (let ((_%e4547945630%_ (gx#syntax-e _%tl4547845627%_))) - (let ((_%tl4548145637%_ + (##car _%e4619246334%_)))) + (if (gx#stx-pair? _%tl4619446341%_) + (let ((_%e4619546344%_ (gx#syntax-e _%tl4619446341%_))) + (let ((_%tl4619746351%_ (let () (declare (not safe)) - (##cdr _%e4547945630%_))) - (_%hd4548045634%_ + (##cdr _%e4619546344%_))) + (_%hd4619646348%_ (let () (declare (not safe)) - (##car _%e4547945630%_)))) - (if (gx#stx-pair? _%tl4548145637%_) - (let ((_%e4548245640%_ - (gx#syntax-e _%tl4548145637%_))) - (let ((_%tl4548445647%_ + (##car _%e4619546344%_)))) + (if (gx#stx-pair? _%tl4619746351%_) + (let ((_%e4619846354%_ + (gx#syntax-e _%tl4619746351%_))) + (let ((_%tl4620046361%_ (let () (declare (not safe)) - (##cdr _%e4548245640%_))) - (_%hd4548345644%_ + (##cdr _%e4619846354%_))) + (_%hd4619946358%_ (let () (declare (not safe)) - (##car _%e4548245640%_)))) - (if (gx#stx-null? _%tl4548445647%_) - (_%__match4793947940%_ - _%e4547645620%_ - _%hd4547745624%_ - _%tl4547845627%_ - _%e4547945630%_ - _%hd4548045634%_ - _%tl4548145637%_ - _%e4548245640%_ - _%hd4548345644%_ - _%tl4548445647%_) - (if (gx#stx-pair? _%hd4548045634%_) - (let ((_%e4549545539%_ + (##car _%e4619846354%_)))) + (if (gx#stx-null? _%tl4620046361%_) + (_%__match4862548626%_ + _%e4619246334%_ + _%hd4619346338%_ + _%tl4619446341%_ + _%e4619546344%_ + _%hd4619646348%_ + _%tl4619746351%_ + _%e4619846354%_ + _%hd4619946358%_ + _%tl4620046361%_) + (if (gx#stx-pair? _%hd4619646348%_) + (let ((_%e4621146255%_ (gx#syntax-e - _%hd4548045634%_))) - (let ((_%tl4549745546%_ + _%hd4619646348%_))) + (let ((_%tl4621346262%_ (let () (declare (not safe)) - (##cdr _%e4549545539%_))) - (_%hd4549645543%_ + (##cdr _%e4621146255%_))) + (_%hd4621246259%_ (let () (declare (not safe)) - (##car _%e4549545539%_)))) + (##car _%e4621146255%_)))) (if (gx#stx-pair/null? - _%tl4548145637%_) - (let ((_%__splice4791747918%_ + _%tl4619746351%_) + (let ((_%__splice4860348604%_ (gx#syntax-split-splice->vector - _%tl4548145637%_ + _%tl4619746351%_ '0))) - (let ((_%tl4550045552%_ + (let ((_%tl4621646268%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4791747918%_ '1))) - (_%target4549845549%_ + (##vector-ref _%__splice4860348604%_ '1))) + (_%target4621446265%_ (let () (declare (not safe)) - (##vector-ref _%__splice4791747918%_ '0)))) - (if (gx#stx-null? _%tl4550045552%_) - (_%__match4796547966%_ - _%e4547645620%_ - _%hd4547745624%_ - _%tl4547845627%_ - _%e4547945630%_ - _%hd4548045634%_ - _%tl4548145637%_ - _%e4549545539%_ - _%hd4549645543%_ - _%tl4549745546%_ - _%__splice4791747918%_ - _%target4549845549%_ - _%tl4550045552%_) - (let () (declare (not safe)) (_%g4547245512%_))))) + (##vector-ref _%__splice4860348604%_ '0)))) + (if (gx#stx-null? _%tl4621646268%_) + (_%__match4865148652%_ + _%e4619246334%_ + _%hd4619346338%_ + _%tl4619446341%_ + _%e4619546344%_ + _%hd4619646348%_ + _%tl4619746351%_ + _%e4621146255%_ + _%hd4621246259%_ + _%tl4621346262%_ + _%__splice4860348604%_ + _%target4621446265%_ + _%tl4621646268%_) + (let () (declare (not safe)) (_%g4618846228%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4547245512%_))))) + (_%g4618846228%_))))) (let () (declare (not safe)) - (_%g4547245512%_)))))) - (if (gx#stx-pair? _%hd4548045634%_) - (let ((_%e4549545539%_ - (gx#syntax-e _%hd4548045634%_))) - (let ((_%tl4549745546%_ + (_%g4618846228%_)))))) + (if (gx#stx-pair? _%hd4619646348%_) + (let ((_%e4621146255%_ + (gx#syntax-e _%hd4619646348%_))) + (let ((_%tl4621346262%_ (let () (declare (not safe)) - (##cdr _%e4549545539%_))) - (_%hd4549645543%_ + (##cdr _%e4621146255%_))) + (_%hd4621246259%_ (let () (declare (not safe)) - (##car _%e4549545539%_)))) + (##car _%e4621146255%_)))) (if (gx#stx-pair/null? - _%tl4548145637%_) - (let ((_%__splice4791747918%_ + _%tl4619746351%_) + (let ((_%__splice4860348604%_ (gx#syntax-split-splice->vector - _%tl4548145637%_ + _%tl4619746351%_ '0))) - (let ((_%tl4550045552%_ + (let ((_%tl4621646268%_ (let () (declare (not safe)) (##vector-ref - _%__splice4791747918%_ + _%__splice4860348604%_ '1))) - (_%target4549845549%_ + (_%target4621446265%_ (let () (declare (not safe)) (##vector-ref - _%__splice4791747918%_ + _%__splice4860348604%_ '0)))) (if (gx#stx-null? - _%tl4550045552%_) - (_%__match4796547966%_ - _%e4547645620%_ - _%hd4547745624%_ - _%tl4547845627%_ - _%e4547945630%_ - _%hd4548045634%_ - _%tl4548145637%_ - _%e4549545539%_ - _%hd4549645543%_ - _%tl4549745546%_ - _%__splice4791747918%_ - _%target4549845549%_ - _%tl4550045552%_) + _%tl4621646268%_) + (_%__match4865148652%_ + _%e4619246334%_ + _%hd4619346338%_ + _%tl4619446341%_ + _%e4619546344%_ + _%hd4619646348%_ + _%tl4619746351%_ + _%e4621146255%_ + _%hd4621246259%_ + _%tl4621346262%_ + _%__splice4860348604%_ + _%target4621446265%_ + _%tl4621646268%_) (let () (declare (not safe)) - (_%g4547245512%_))))) + (_%g4618846228%_))))) (let () (declare (not safe)) - (_%g4547245512%_))))) + (_%g4618846228%_))))) (let () (declare (not safe)) - (_%g4547245512%_)))))) - (let () (declare (not safe)) (_%g4547245512%_))))) - (let () (declare (not safe)) (_%g4547245512%_)))))))) + (_%g4618846228%_)))))) + (let () (declare (not safe)) (_%g4618846228%_))))) + (let () (declare (not safe)) (_%g4618846228%_)))))))) (define |gerbil/core/module-sugar[:0:]#defsyntax-for-import-export| - (lambda (_%$stx45672%_) - (let* ((_%__stx4796847969%_ _%$stx45672%_) - (_%g4567745717%_ + (lambda (_%$stx46386%_) + (let* ((_%__stx4865448655%_ _%$stx46386%_) + (_%g4639146431%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4796847969%_)))) - (let ((_%__kont4797147972%_ - (lambda (_%L45855%_ _%L45857%_) + _%__stx4865448655%_)))) + (let ((_%__kont4865748658%_ + (lambda (_%g4639346567%_ _%g4639446569%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L45857%_ + (cons _%g4639446569%_ (cons (cons (gx#datum->syntax '#f 'make-import-export-expander) - (cons _%L45855%_ '())) + (cons _%g4639346567%_ '())) '()))))) - (_%__kont4797347974%_ - (lambda (_%L45784%_ _%L45786%_ _%L45787%_ _%L45788%_) - (cons _%L45788%_ - (cons _%L45787%_ + (_%__kont4865948660%_ + (lambda (_%g4640446496%_ + _%g4640546498%_ + _%g4640646499%_ + _%g4640746500%_) + (cons _%g4640746500%_ + (cons _%g4640646499%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L45786%_ - (foldr (lambda (_%g4580945812%_ - _%g4581045815%_) - (cons _%g4580945812%_ - _%g4581045815%_)) + (cons _%g4640546498%_ + (foldr (lambda (_%g4652146524%_ + _%g4652246527%_) + (cons _%g4652146524%_ + _%g4652246527%_)) '() - _%L45784%_))) + _%g4640446496%_))) '())))))) - (let* ((_%__match4802348024%_ - (lambda (_%e4569445724%_ - _%hd4569545728%_ - _%tl4569645731%_ - _%e4569745734%_ - _%hd4569845738%_ - _%tl4569945741%_ - _%e4570045744%_ - _%hd4570145748%_ - _%tl4570245751%_ - _%__splice4797547976%_ - _%target4570345754%_ - _%tl4570545757%_) - (letrec ((_%loop4570645760%_ - (lambda (_%hd4570445764%_ _%body4571045767%_) - (if (gx#stx-pair? _%hd4570445764%_) - (let ((_%e4570745770%_ - (gx#syntax-e _%hd4570445764%_))) - (let ((_%lp-tl4570945777%_ + (let* ((_%__match4870948710%_ + (lambda (_%e4640846438%_ + _%hd4640946442%_ + _%tl4641046445%_ + _%e4641146448%_ + _%hd4641246452%_ + _%tl4641346455%_ + _%e4641446458%_ + _%hd4641546462%_ + _%tl4641646465%_ + _%__splice4866148662%_ + _%target4641746468%_ + _%tl4641946471%_) + (letrec ((_%loop4642046474%_ + (lambda (_%hd4641846478%_ _%body4642446481%_) + (if (gx#stx-pair? _%hd4641846478%_) + (let ((_%e4642146483%_ + (gx#syntax-e _%hd4641846478%_))) + (let ((_%lp-tl4642346490%_ (let () (declare (not safe)) - (##cdr _%e4570745770%_))) - (_%lp-hd4570845774%_ + (##cdr _%e4642146483%_))) + (_%lp-hd4642246487%_ (let () (declare (not safe)) - (##car _%e4570745770%_)))) - (_%loop4570645760%_ - _%lp-tl4570945777%_ - (cons _%lp-hd4570845774%_ - _%body4571045767%_)))) - (let ((_%body4571145780%_ - (reverse _%body4571045767%_))) - (let ((_%L45784%_ _%body4571145780%_) - (_%L45786%_ _%tl4570245751%_) - (_%L45787%_ _%hd4570145748%_) - (_%L45788%_ _%hd4569545728%_)) - (if (gx#identifier? _%L45787%_) - (_%__kont4797347974%_ - _%L45784%_ - _%L45786%_ - _%L45787%_ - _%L45788%_) + (##car _%e4642146483%_)))) + (_%loop4642046474%_ + _%lp-tl4642346490%_ + (cons _%lp-hd4642246487%_ + _%body4642446481%_)))) + (let ((_%body4642546493%_ + (reverse _%body4642446481%_))) + (let ((_%g4640446496%_ + _%body4642546493%_) + (_%g4640546498%_ _%tl4641646465%_) + (_%g4640646499%_ _%hd4641546462%_) + (_%g4640746500%_ _%hd4640946442%_)) + (if (gx#identifier? _%g4640646499%_) + (_%__kont4865948660%_ + _%g4640446496%_ + _%g4640546498%_ + _%g4640646499%_ + _%g4640746500%_) (let () (declare (not safe)) - (_%g4567745717%_))))))))) - (_%loop4570645760%_ _%target4570345754%_ '())))) - (_%__match4799747998%_ - (lambda (_%e4568145825%_ - _%hd4568245829%_ - _%tl4568345832%_ - _%e4568445835%_ - _%hd4568545839%_ - _%tl4568645842%_ - _%e4568745845%_ - _%hd4568845849%_ - _%tl4568945852%_) - (let ((_%L45855%_ _%hd4568845849%_) - (_%L45857%_ _%hd4568545839%_)) - (if (gx#identifier? _%L45857%_) - (_%__kont4797147972%_ _%L45855%_ _%L45857%_) - (if (gx#stx-pair? _%hd4568545839%_) - (let ((_%e4570045744%_ - (gx#syntax-e _%hd4568545839%_))) - (let ((_%tl4570245751%_ + (_%g4639146431%_))))))))) + (_%loop4642046474%_ _%target4641746468%_ '())))) + (_%__match4868348684%_ + (lambda (_%e4639546537%_ + _%hd4639646541%_ + _%tl4639746544%_ + _%e4639846547%_ + _%hd4639946551%_ + _%tl4640046554%_ + _%e4640146557%_ + _%hd4640246561%_ + _%tl4640346564%_) + (let ((_%g4639346567%_ _%hd4640246561%_) + (_%g4639446569%_ _%hd4639946551%_)) + (if (gx#identifier? _%g4639446569%_) + (_%__kont4865748658%_ + _%g4639346567%_ + _%g4639446569%_) + (if (gx#stx-pair? _%hd4639946551%_) + (let ((_%e4641446458%_ + (gx#syntax-e _%hd4639946551%_))) + (let ((_%tl4641646465%_ (let () (declare (not safe)) - (##cdr _%e4570045744%_))) - (_%hd4570145748%_ + (##cdr _%e4641446458%_))) + (_%hd4641546462%_ (let () (declare (not safe)) - (##car _%e4570045744%_)))) - (if (gx#stx-pair/null? _%tl4568645842%_) - (let ((_%__splice4797547976%_ + (##car _%e4641446458%_)))) + (if (gx#stx-pair/null? _%tl4640046554%_) + (let ((_%__splice4866148662%_ (gx#syntax-split-splice->vector - _%tl4568645842%_ + _%tl4640046554%_ '0))) - (let ((_%tl4570545757%_ + (let ((_%tl4641946471%_ (let () (declare (not safe)) (##vector-ref - _%__splice4797547976%_ + _%__splice4866148662%_ '1))) - (_%target4570345754%_ + (_%target4641746468%_ (let () (declare (not safe)) (##vector-ref - _%__splice4797547976%_ + _%__splice4866148662%_ '0)))) - (if (gx#stx-null? _%tl4570545757%_) - (_%__match4802348024%_ - _%e4568145825%_ - _%hd4568245829%_ - _%tl4568345832%_ - _%e4568445835%_ - _%hd4568545839%_ - _%tl4568645842%_ - _%e4570045744%_ - _%hd4570145748%_ - _%tl4570245751%_ - _%__splice4797547976%_ - _%target4570345754%_ - _%tl4570545757%_) + (if (gx#stx-null? _%tl4641946471%_) + (_%__match4870948710%_ + _%e4639546537%_ + _%hd4639646541%_ + _%tl4639746544%_ + _%e4639846547%_ + _%hd4639946551%_ + _%tl4640046554%_ + _%e4641446458%_ + _%hd4641546462%_ + _%tl4641646465%_ + _%__splice4866148662%_ + _%target4641746468%_ + _%tl4641946471%_) (let () (declare (not safe)) - (_%g4567745717%_))))) + (_%g4639146431%_))))) (let () (declare (not safe)) - (_%g4567745717%_))))) + (_%g4639146431%_))))) (let () (declare (not safe)) - (_%g4567745717%_)))))))) - (if (gx#stx-pair? _%__stx4796847969%_) - (let ((_%e4568145825%_ (gx#syntax-e _%__stx4796847969%_))) - (let ((_%tl4568345832%_ - (let () (declare (not safe)) (##cdr _%e4568145825%_))) - (_%hd4568245829%_ + (_%g4639146431%_)))))))) + (if (gx#stx-pair? _%__stx4865448655%_) + (let ((_%e4639546537%_ (gx#syntax-e _%__stx4865448655%_))) + (let ((_%tl4639746544%_ + (let () (declare (not safe)) (##cdr _%e4639546537%_))) + (_%hd4639646541%_ (let () (declare (not safe)) - (##car _%e4568145825%_)))) - (if (gx#stx-pair? _%tl4568345832%_) - (let ((_%e4568445835%_ (gx#syntax-e _%tl4568345832%_))) - (let ((_%tl4568645842%_ + (##car _%e4639546537%_)))) + (if (gx#stx-pair? _%tl4639746544%_) + (let ((_%e4639846547%_ (gx#syntax-e _%tl4639746544%_))) + (let ((_%tl4640046554%_ (let () (declare (not safe)) - (##cdr _%e4568445835%_))) - (_%hd4568545839%_ + (##cdr _%e4639846547%_))) + (_%hd4639946551%_ (let () (declare (not safe)) - (##car _%e4568445835%_)))) - (if (gx#stx-pair? _%tl4568645842%_) - (let ((_%e4568745845%_ - (gx#syntax-e _%tl4568645842%_))) - (let ((_%tl4568945852%_ + (##car _%e4639846547%_)))) + (if (gx#stx-pair? _%tl4640046554%_) + (let ((_%e4640146557%_ + (gx#syntax-e _%tl4640046554%_))) + (let ((_%tl4640346564%_ (let () (declare (not safe)) - (##cdr _%e4568745845%_))) - (_%hd4568845849%_ + (##cdr _%e4640146557%_))) + (_%hd4640246561%_ (let () (declare (not safe)) - (##car _%e4568745845%_)))) - (if (gx#stx-null? _%tl4568945852%_) - (_%__match4799747998%_ - _%e4568145825%_ - _%hd4568245829%_ - _%tl4568345832%_ - _%e4568445835%_ - _%hd4568545839%_ - _%tl4568645842%_ - _%e4568745845%_ - _%hd4568845849%_ - _%tl4568945852%_) - (if (gx#stx-pair? _%hd4568545839%_) - (let ((_%e4570045744%_ + (##car _%e4640146557%_)))) + (if (gx#stx-null? _%tl4640346564%_) + (_%__match4868348684%_ + _%e4639546537%_ + _%hd4639646541%_ + _%tl4639746544%_ + _%e4639846547%_ + _%hd4639946551%_ + _%tl4640046554%_ + _%e4640146557%_ + _%hd4640246561%_ + _%tl4640346564%_) + (if (gx#stx-pair? _%hd4639946551%_) + (let ((_%e4641446458%_ (gx#syntax-e - _%hd4568545839%_))) - (let ((_%tl4570245751%_ + _%hd4639946551%_))) + (let ((_%tl4641646465%_ (let () (declare (not safe)) - (##cdr _%e4570045744%_))) - (_%hd4570145748%_ + (##cdr _%e4641446458%_))) + (_%hd4641546462%_ (let () (declare (not safe)) - (##car _%e4570045744%_)))) + (##car _%e4641446458%_)))) (if (gx#stx-pair/null? - _%tl4568645842%_) - (let ((_%__splice4797547976%_ + _%tl4640046554%_) + (let ((_%__splice4866148662%_ (gx#syntax-split-splice->vector - _%tl4568645842%_ + _%tl4640046554%_ '0))) - (let ((_%tl4570545757%_ + (let ((_%tl4641946471%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4797547976%_ '1))) - (_%target4570345754%_ + (##vector-ref _%__splice4866148662%_ '1))) + (_%target4641746468%_ (let () (declare (not safe)) - (##vector-ref _%__splice4797547976%_ '0)))) - (if (gx#stx-null? _%tl4570545757%_) - (_%__match4802348024%_ - _%e4568145825%_ - _%hd4568245829%_ - _%tl4568345832%_ - _%e4568445835%_ - _%hd4568545839%_ - _%tl4568645842%_ - _%e4570045744%_ - _%hd4570145748%_ - _%tl4570245751%_ - _%__splice4797547976%_ - _%target4570345754%_ - _%tl4570545757%_) - (let () (declare (not safe)) (_%g4567745717%_))))) + (##vector-ref _%__splice4866148662%_ '0)))) + (if (gx#stx-null? _%tl4641946471%_) + (_%__match4870948710%_ + _%e4639546537%_ + _%hd4639646541%_ + _%tl4639746544%_ + _%e4639846547%_ + _%hd4639946551%_ + _%tl4640046554%_ + _%e4641446458%_ + _%hd4641546462%_ + _%tl4641646465%_ + _%__splice4866148662%_ + _%target4641746468%_ + _%tl4641946471%_) + (let () (declare (not safe)) (_%g4639146431%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4567745717%_))))) + (_%g4639146431%_))))) (let () (declare (not safe)) - (_%g4567745717%_)))))) - (if (gx#stx-pair? _%hd4568545839%_) - (let ((_%e4570045744%_ - (gx#syntax-e _%hd4568545839%_))) - (let ((_%tl4570245751%_ + (_%g4639146431%_)))))) + (if (gx#stx-pair? _%hd4639946551%_) + (let ((_%e4641446458%_ + (gx#syntax-e _%hd4639946551%_))) + (let ((_%tl4641646465%_ (let () (declare (not safe)) - (##cdr _%e4570045744%_))) - (_%hd4570145748%_ + (##cdr _%e4641446458%_))) + (_%hd4641546462%_ (let () (declare (not safe)) - (##car _%e4570045744%_)))) + (##car _%e4641446458%_)))) (if (gx#stx-pair/null? - _%tl4568645842%_) - (let ((_%__splice4797547976%_ + _%tl4640046554%_) + (let ((_%__splice4866148662%_ (gx#syntax-split-splice->vector - _%tl4568645842%_ + _%tl4640046554%_ '0))) - (let ((_%tl4570545757%_ + (let ((_%tl4641946471%_ (let () (declare (not safe)) (##vector-ref - _%__splice4797547976%_ + _%__splice4866148662%_ '1))) - (_%target4570345754%_ + (_%target4641746468%_ (let () (declare (not safe)) (##vector-ref - _%__splice4797547976%_ + _%__splice4866148662%_ '0)))) (if (gx#stx-null? - _%tl4570545757%_) - (_%__match4802348024%_ - _%e4568145825%_ - _%hd4568245829%_ - _%tl4568345832%_ - _%e4568445835%_ - _%hd4568545839%_ - _%tl4568645842%_ - _%e4570045744%_ - _%hd4570145748%_ - _%tl4570245751%_ - _%__splice4797547976%_ - _%target4570345754%_ - _%tl4570545757%_) + _%tl4641946471%_) + (_%__match4870948710%_ + _%e4639546537%_ + _%hd4639646541%_ + _%tl4639746544%_ + _%e4639846547%_ + _%hd4639946551%_ + _%tl4640046554%_ + _%e4641446458%_ + _%hd4641546462%_ + _%tl4641646465%_ + _%__splice4866148662%_ + _%target4641746468%_ + _%tl4641946471%_) (let () (declare (not safe)) - (_%g4567745717%_))))) + (_%g4639146431%_))))) (let () (declare (not safe)) - (_%g4567745717%_))))) + (_%g4639146431%_))))) (let () (declare (not safe)) - (_%g4567745717%_)))))) - (let () (declare (not safe)) (_%g4567745717%_))))) - (let () (declare (not safe)) (_%g4567745717%_)))))))) + (_%g4639146431%_)))))) + (let () (declare (not safe)) (_%g4639146431%_))))) + (let () (declare (not safe)) (_%g4639146431%_)))))))) (define |gerbil/core/module-sugar[:0:]#for-syntax| (gx#make-import-export-expander - (lambda (_%stx45877%_) - (let* ((_%g4588045900%_ - (lambda (_%g4588145896%_) + (lambda (_%stx46589%_) + (let* ((_%g4659246612%_ + (lambda (_%g4659346608%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4588145896%_))) - (_%g4587945971%_ - (lambda (_%g4588145904%_) - (if (gx#stx-pair? _%g4588145904%_) - (let ((_%e4588345907%_ (gx#syntax-e _%g4588145904%_))) - (let ((_%hd4588445911%_ + _%g4659346608%_))) + (_%g4659146681%_ + (lambda (_%g4659346616%_) + (if (gx#stx-pair? _%g4659346616%_) + (let ((_%e4659546619%_ (gx#syntax-e _%g4659346616%_))) + (let ((_%hd4659646623%_ (let () (declare (not safe)) - (##car _%e4588345907%_))) - (_%tl4588545914%_ + (##car _%e4659546619%_))) + (_%tl4659746626%_ (let () (declare (not safe)) - (##cdr _%e4588345907%_)))) - (if (gx#stx-pair/null? _%tl4588545914%_) - (let ((_g48118_ + (##cdr _%e4659546619%_)))) + (if (gx#stx-pair/null? _%tl4659746626%_) + (let ((_g48804_ (gx#syntax-split-splice - _%tl4588545914%_ + _%tl4659746626%_ '0))) (begin - (let ((_g48119_ + (let ((_g48805_ (let () (declare (not safe)) - (if (##values? _g48118_) - (##values-length _g48118_) + (if (##values? _g48804_) + (##values-length _g48804_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48119_ 2))) + (##fx= _g48805_ 2))) (error "Context expects 2 values" - _g48119_))) - (let ((_%target4588645917%_ + _g48805_))) + (let ((_%target4659846629%_ (let () (declare (not safe)) - (##values-ref _g48118_ 0))) - (_%tl4588845920%_ + (##values-ref _g48804_ 0))) + (_%tl4660046632%_ (let () (declare (not safe)) - (##values-ref _g48118_ 1)))) - (if (gx#stx-null? _%tl4588845920%_) - (letrec ((_%loop4588945923%_ - (lambda (_%hd4588745927%_ - _%body4589345930%_) + (##values-ref _g48804_ 1)))) + (if (gx#stx-null? _%tl4660046632%_) + (letrec ((_%loop4660146635%_ + (lambda (_%hd4659946639%_ + _%body4660546642%_) (if (gx#stx-pair? - _%hd4588745927%_) - (let ((_%e4589045933%_ + _%hd4659946639%_) + (let ((_%e4660246644%_ (gx#syntax-e - _%hd4588745927%_))) - (let ((_%lp-hd4589145937%_ + _%hd4659946639%_))) + (let ((_%lp-hd4660346648%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e4589045933%_))) - (_%lp-tl4589245940%_ - (let () (declare (not safe)) (##cdr _%e4589045933%_)))) - (_%loop4588945923%_ - _%lp-tl4589245940%_ - (cons _%lp-hd4589145937%_ _%body4589345930%_)))) - (let ((_%body4589445943%_ (reverse _%body4589345930%_))) - ((lambda (_%L45947%_) + (##car _%e4660246644%_))) + (_%lp-tl4660446651%_ + (let () (declare (not safe)) (##cdr _%e4660246644%_)))) + (_%loop4660146635%_ + _%lp-tl4660446651%_ + (cons _%lp-hd4660346648%_ _%body4660546642%_)))) + (let ((_%body4660646654%_ (reverse _%body4660546642%_))) + ((lambda (_%g4659446657%_) (cons 'phi: (cons '1 - (foldr (lambda (_%g4596245965%_ - _%g4596345968%_) - (cons _%g4596245965%_ - _%g4596345968%_)) + (foldr (lambda (_%g4667246675%_ + _%g4667346678%_) + (cons _%g4667246675%_ + _%g4667346678%_)) '() - _%L45947%_)))) - _%body4589445943%_)))))) + _%g4659446657%_)))) + _%body4660646654%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4588945923%_ - _%target4588645917%_ + (_%loop4660146635%_ + _%target4659846629%_ '())) - (_%g4588045900%_ _%g4588145904%_))))) - (_%g4588045900%_ _%g4588145904%_)))) - (_%g4588045900%_ _%g4588145904%_))))) - (_%g4587945971%_ _%stx45877%_))))) + (_%g4659246612%_ _%g4659346616%_))))) + (_%g4659246612%_ _%g4659346616%_)))) + (_%g4659246612%_ _%g4659346616%_))))) + (_%g4659146681%_ _%stx46589%_))))) (define |gerbil/core/module-sugar[:0:]#for-template| (gx#make-import-export-expander - (lambda (_%stx45976%_) - (let* ((_%g4597945999%_ - (lambda (_%g4598045995%_) + (lambda (_%stx46686%_) + (let* ((_%g4668946709%_ + (lambda (_%g4669046705%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4598045995%_))) - (_%g4597846070%_ - (lambda (_%g4598046003%_) - (if (gx#stx-pair? _%g4598046003%_) - (let ((_%e4598246006%_ (gx#syntax-e _%g4598046003%_))) - (let ((_%hd4598346010%_ + _%g4669046705%_))) + (_%g4668846778%_ + (lambda (_%g4669046713%_) + (if (gx#stx-pair? _%g4669046713%_) + (let ((_%e4669246716%_ (gx#syntax-e _%g4669046713%_))) + (let ((_%hd4669346720%_ (let () (declare (not safe)) - (##car _%e4598246006%_))) - (_%tl4598446013%_ + (##car _%e4669246716%_))) + (_%tl4669446723%_ (let () (declare (not safe)) - (##cdr _%e4598246006%_)))) - (if (gx#stx-pair/null? _%tl4598446013%_) - (let ((_g48120_ + (##cdr _%e4669246716%_)))) + (if (gx#stx-pair/null? _%tl4669446723%_) + (let ((_g48806_ (gx#syntax-split-splice - _%tl4598446013%_ + _%tl4669446723%_ '0))) (begin - (let ((_g48121_ + (let ((_g48807_ (let () (declare (not safe)) - (if (##values? _g48120_) - (##values-length _g48120_) + (if (##values? _g48806_) + (##values-length _g48806_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48121_ 2))) + (##fx= _g48807_ 2))) (error "Context expects 2 values" - _g48121_))) - (let ((_%target4598546016%_ + _g48807_))) + (let ((_%target4669546726%_ (let () (declare (not safe)) - (##values-ref _g48120_ 0))) - (_%tl4598746019%_ + (##values-ref _g48806_ 0))) + (_%tl4669746729%_ (let () (declare (not safe)) - (##values-ref _g48120_ 1)))) - (if (gx#stx-null? _%tl4598746019%_) - (letrec ((_%loop4598846022%_ - (lambda (_%hd4598646026%_ - _%body4599246029%_) + (##values-ref _g48806_ 1)))) + (if (gx#stx-null? _%tl4669746729%_) + (letrec ((_%loop4669846732%_ + (lambda (_%hd4669646736%_ + _%body4670246739%_) (if (gx#stx-pair? - _%hd4598646026%_) - (let ((_%e4598946032%_ + _%hd4669646736%_) + (let ((_%e4669946741%_ (gx#syntax-e - _%hd4598646026%_))) - (let ((_%lp-hd4599046036%_ + _%hd4669646736%_))) + (let ((_%lp-hd4670046745%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e4598946032%_))) - (_%lp-tl4599146039%_ - (let () (declare (not safe)) (##cdr _%e4598946032%_)))) - (_%loop4598846022%_ - _%lp-tl4599146039%_ - (cons _%lp-hd4599046036%_ _%body4599246029%_)))) - (let ((_%body4599346042%_ (reverse _%body4599246029%_))) - ((lambda (_%L46046%_) + (##car _%e4669946741%_))) + (_%lp-tl4670146748%_ + (let () (declare (not safe)) (##cdr _%e4669946741%_)))) + (_%loop4669846732%_ + _%lp-tl4670146748%_ + (cons _%lp-hd4670046745%_ _%body4670246739%_)))) + (let ((_%body4670346751%_ (reverse _%body4670246739%_))) + ((lambda (_%g4669146754%_) (cons 'phi: (cons '-1 - (foldr (lambda (_%g4606146064%_ - _%g4606246067%_) - (cons _%g4606146064%_ - _%g4606246067%_)) + (foldr (lambda (_%g4676946772%_ + _%g4677046775%_) + (cons _%g4676946772%_ + _%g4677046775%_)) '() - _%L46046%_)))) - _%body4599346042%_)))))) + _%g4669146754%_)))) + _%body4670346751%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4598846022%_ - _%target4598546016%_ + (_%loop4669846732%_ + _%target4669546726%_ '())) - (_%g4597945999%_ _%g4598046003%_))))) - (_%g4597945999%_ _%g4598046003%_)))) - (_%g4597945999%_ _%g4598046003%_))))) - (_%g4597846070%_ _%stx45976%_))))) + (_%g4668946709%_ _%g4669046713%_))))) + (_%g4668946709%_ _%g4669046713%_)))) + (_%g4668946709%_ _%g4669046713%_))))) + (_%g4668846778%_ _%stx46686%_))))) (define |gerbil/core/module-sugar[:0:]#only-in| (gx#make-import-expander - (lambda (_%stx46075%_) - (let* ((_%g4607846102%_ - (lambda (_%g4607946098%_) + (lambda (_%stx46783%_) + (let* ((_%g4678646810%_ + (lambda (_%g4678746806%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4607946098%_))) - (_%g4607746230%_ - (lambda (_%g4607946106%_) - (if (gx#stx-pair? _%g4607946106%_) - (let ((_%e4608246109%_ (gx#syntax-e _%g4607946106%_))) - (let ((_%hd4608346113%_ + _%g4678746806%_))) + (_%g4678546936%_ + (lambda (_%g4678746814%_) + (if (gx#stx-pair? _%g4678746814%_) + (let ((_%e4679046817%_ (gx#syntax-e _%g4678746814%_))) + (let ((_%hd4679146821%_ (let () (declare (not safe)) - (##car _%e4608246109%_))) - (_%tl4608446116%_ + (##car _%e4679046817%_))) + (_%tl4679246824%_ (let () (declare (not safe)) - (##cdr _%e4608246109%_)))) - (if (gx#stx-pair? _%tl4608446116%_) - (let ((_%e4608546119%_ - (gx#syntax-e _%tl4608446116%_))) - (let ((_%hd4608646123%_ + (##cdr _%e4679046817%_)))) + (if (gx#stx-pair? _%tl4679246824%_) + (let ((_%e4679346827%_ + (gx#syntax-e _%tl4679246824%_))) + (let ((_%hd4679446831%_ (let () (declare (not safe)) - (##car _%e4608546119%_))) - (_%tl4608746126%_ + (##car _%e4679346827%_))) + (_%tl4679546834%_ (let () (declare (not safe)) - (##cdr _%e4608546119%_)))) - (if (gx#stx-pair/null? _%tl4608746126%_) - (let ((_g48122_ + (##cdr _%e4679346827%_)))) + (if (gx#stx-pair/null? _%tl4679546834%_) + (let ((_g48808_ (gx#syntax-split-splice - _%tl4608746126%_ + _%tl4679546834%_ '0))) (begin - (let ((_g48123_ + (let ((_g48809_ (let () (declare (not safe)) - (if (##values? _g48122_) + (if (##values? _g48808_) (##values-length - _g48122_) + _g48808_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48123_ 2))) + (##fx= _g48809_ 2))) (error "Context expects 2 values" - _g48123_))) - (let ((_%target4608846129%_ + _g48809_))) + (let ((_%target4679646837%_ (let () (declare (not safe)) - (##values-ref _g48122_ 0))) - (_%tl4609046132%_ + (##values-ref _g48808_ 0))) + (_%tl4679846840%_ (let () (declare (not safe)) - (##values-ref _g48122_ 1)))) - (if (gx#stx-null? _%tl4609046132%_) - (letrec ((_%loop4609146135%_ - (lambda (_%hd4608946139%_ + (##values-ref _g48808_ 1)))) + (if (gx#stx-null? _%tl4679846840%_) + (letrec ((_%loop4679946843%_ + (lambda (_%hd4679746847%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id4609546142%_) - (if (gx#stx-pair? _%hd4608946139%_) - (let ((_%e4609246145%_ (gx#syntax-e _%hd4608946139%_))) - (let ((_%lp-hd4609346149%_ + _%id4680346850%_) + (if (gx#stx-pair? _%hd4679746847%_) + (let ((_%e4680046852%_ (gx#syntax-e _%hd4679746847%_))) + (let ((_%lp-hd4680146856%_ (let () (declare (not safe)) - (##car _%e4609246145%_))) - (_%lp-tl4609446152%_ + (##car _%e4680046852%_))) + (_%lp-tl4680246859%_ (let () (declare (not safe)) - (##cdr _%e4609246145%_)))) - (_%loop4609146135%_ - _%lp-tl4609446152%_ - (cons _%lp-hd4609346149%_ _%id4609546142%_)))) - (let ((_%id4609646155%_ (reverse _%id4609546142%_))) - ((lambda (_%L46159%_ _%L46161%_) + (##cdr _%e4680046852%_)))) + (_%loop4679946843%_ + _%lp-tl4680246859%_ + (cons _%lp-hd4680146856%_ _%id4680346850%_)))) + (let ((_%id4680446862%_ (reverse _%id4680346850%_))) + ((lambda (_%g4678846865%_ _%g4678946867%_) (if (gx#identifier-list? - (foldr (lambda (_%g4617846181%_ - _%g4617946184%_) - (cons _%g4617846181%_ - _%g4617946184%_)) + (foldr (lambda (_%g4688446887%_ + _%g4688546890%_) + (cons _%g4688446887%_ + _%g4688546890%_)) '() - _%L46159%_)) - (let* ((_%keys46195%_ + _%g4678846865%_)) + (let* ((_%keys46901%_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_%g4618646189%_ - _%g4618746192%_) - (cons _%g4618646189%_ - _%g4618746192%_)) + (foldr (lambda (_%g4689246895%_ + _%g4689346898%_) + (cons _%g4689246895%_ + _%g4689346898%_)) '() - _%L46159%_))) - (_%keytab46206%_ - (let ((_%ht46198%_ (make-hash-table))) + _%g4678846865%_))) + (_%keytab46912%_ + (let ((_%ht46904%_ (make-hash-table))) (for-each - (lambda (_%g4620046202%_) + (lambda (_%g4690646908%_) (hash-put! - _%ht46198%_ - _%g4620046202%_ + _%ht46904%_ + _%g4690646908%_ '#t)) - _%keys46195%_) - _%ht46198%_)) - (_%imports46209%_ + _%keys46901%_) + _%ht46904%_)) + (_%imports46915%_ (gx#core-expand-import-source - _%L46161%_)) - (_%fold-e46225%_ - (letrec ((_%fold-e46212%_ - (lambda (_%in46215%_ - _%r46217%_) + _%g4678946867%_)) + (_%fold-e46931%_ + (letrec ((_%fold-e46918%_ + (lambda (_%in46921%_ + _%r46923%_) (if (gx#module-import? - _%in46215%_) + _%in46921%_) (if (hash-get - _%keytab46206%_ + _%keytab46912%_ (gx#module-import-name - _%in46215%_)) - (cons _%in46215%_ + _%in46921%_)) + (cons _%in46921%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%r46217%_) - _%r46217%_) - (if (gx#import-set? _%in46215%_) - (foldl _%fold-e46212%_ - _%r46217%_ - (gx#import-set-imports _%in46215%_)) - _%r46217%_))))) + _%r46923%_) + _%r46923%_) + (if (gx#import-set? _%in46921%_) + (foldl _%fold-e46918%_ + _%r46923%_ + (gx#import-set-imports _%in46921%_)) + _%r46923%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e46212%_))) + _%fold-e46918%_))) (cons 'begin: - (foldl _%fold-e46225%_ + (foldl _%fold-e46931%_ '() - _%imports46209%_))) - (_%g4607846102%_ _%g4607946106%_))) - _%id4609646155%_ - _%hd4608646123%_)))))) + _%imports46915%_))) + (_%g4678646810%_ _%g4678746814%_))) + _%id4680446862%_ + _%hd4679446831%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4609146135%_ - _%target4608846129%_ + (_%loop4679946843%_ + _%target4679646837%_ '())) - (_%g4607846102%_ - _%g4607946106%_))))) - (_%g4607846102%_ _%g4607946106%_)))) - (_%g4607846102%_ _%g4607946106%_)))) - (_%g4607846102%_ _%g4607946106%_))))) - (_%g4607746230%_ _%stx46075%_))))) + (_%g4678646810%_ + _%g4678746814%_))))) + (_%g4678646810%_ _%g4678746814%_)))) + (_%g4678646810%_ _%g4678746814%_)))) + (_%g4678646810%_ _%g4678746814%_))))) + (_%g4678546936%_ _%stx46783%_))))) (define |gerbil/core/module-sugar[:0:]#except-in| (gx#make-import-expander - (lambda (_%stx46235%_) - (let* ((_%g4623846262%_ - (lambda (_%g4623946258%_) + (lambda (_%stx46941%_) + (let* ((_%g4694446968%_ + (lambda (_%g4694546964%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4623946258%_))) - (_%g4623746390%_ - (lambda (_%g4623946266%_) - (if (gx#stx-pair? _%g4623946266%_) - (let ((_%e4624246269%_ (gx#syntax-e _%g4623946266%_))) - (let ((_%hd4624346273%_ + _%g4694546964%_))) + (_%g4694347094%_ + (lambda (_%g4694546972%_) + (if (gx#stx-pair? _%g4694546972%_) + (let ((_%e4694846975%_ (gx#syntax-e _%g4694546972%_))) + (let ((_%hd4694946979%_ (let () (declare (not safe)) - (##car _%e4624246269%_))) - (_%tl4624446276%_ + (##car _%e4694846975%_))) + (_%tl4695046982%_ (let () (declare (not safe)) - (##cdr _%e4624246269%_)))) - (if (gx#stx-pair? _%tl4624446276%_) - (let ((_%e4624546279%_ - (gx#syntax-e _%tl4624446276%_))) - (let ((_%hd4624646283%_ + (##cdr _%e4694846975%_)))) + (if (gx#stx-pair? _%tl4695046982%_) + (let ((_%e4695146985%_ + (gx#syntax-e _%tl4695046982%_))) + (let ((_%hd4695246989%_ (let () (declare (not safe)) - (##car _%e4624546279%_))) - (_%tl4624746286%_ + (##car _%e4695146985%_))) + (_%tl4695346992%_ (let () (declare (not safe)) - (##cdr _%e4624546279%_)))) - (if (gx#stx-pair/null? _%tl4624746286%_) - (let ((_g48124_ + (##cdr _%e4695146985%_)))) + (if (gx#stx-pair/null? _%tl4695346992%_) + (let ((_g48810_ (gx#syntax-split-splice - _%tl4624746286%_ + _%tl4695346992%_ '0))) (begin - (let ((_g48125_ + (let ((_g48811_ (let () (declare (not safe)) - (if (##values? _g48124_) + (if (##values? _g48810_) (##values-length - _g48124_) + _g48810_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48125_ 2))) + (##fx= _g48811_ 2))) (error "Context expects 2 values" - _g48125_))) - (let ((_%target4624846289%_ + _g48811_))) + (let ((_%target4695446995%_ (let () (declare (not safe)) - (##values-ref _g48124_ 0))) - (_%tl4625046292%_ + (##values-ref _g48810_ 0))) + (_%tl4695646998%_ (let () (declare (not safe)) - (##values-ref _g48124_ 1)))) - (if (gx#stx-null? _%tl4625046292%_) - (letrec ((_%loop4625146295%_ - (lambda (_%hd4624946299%_ + (##values-ref _g48810_ 1)))) + (if (gx#stx-null? _%tl4695646998%_) + (letrec ((_%loop4695747001%_ + (lambda (_%hd4695547005%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id4625546302%_) - (if (gx#stx-pair? _%hd4624946299%_) - (let ((_%e4625246305%_ (gx#syntax-e _%hd4624946299%_))) - (let ((_%lp-hd4625346309%_ + _%id4696147008%_) + (if (gx#stx-pair? _%hd4695547005%_) + (let ((_%e4695847010%_ (gx#syntax-e _%hd4695547005%_))) + (let ((_%lp-hd4695947014%_ (let () (declare (not safe)) - (##car _%e4625246305%_))) - (_%lp-tl4625446312%_ + (##car _%e4695847010%_))) + (_%lp-tl4696047017%_ (let () (declare (not safe)) - (##cdr _%e4625246305%_)))) - (_%loop4625146295%_ - _%lp-tl4625446312%_ - (cons _%lp-hd4625346309%_ _%id4625546302%_)))) - (let ((_%id4625646315%_ (reverse _%id4625546302%_))) - ((lambda (_%L46319%_ _%L46321%_) + (##cdr _%e4695847010%_)))) + (_%loop4695747001%_ + _%lp-tl4696047017%_ + (cons _%lp-hd4695947014%_ _%id4696147008%_)))) + (let ((_%id4696247020%_ (reverse _%id4696147008%_))) + ((lambda (_%g4694647023%_ _%g4694747025%_) (if (gx#identifier-list? - (foldr (lambda (_%g4633846341%_ - _%g4633946344%_) - (cons _%g4633846341%_ - _%g4633946344%_)) + (foldr (lambda (_%g4704247045%_ + _%g4704347048%_) + (cons _%g4704247045%_ + _%g4704347048%_)) '() - _%L46319%_)) - (let* ((_%keys46355%_ + _%g4694647023%_)) + (let* ((_%keys47059%_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_%g4634646349%_ - _%g4634746352%_) - (cons _%g4634646349%_ - _%g4634746352%_)) + (foldr (lambda (_%g4705047053%_ + _%g4705147056%_) + (cons _%g4705047053%_ + _%g4705147056%_)) '() - _%L46319%_))) - (_%keytab46366%_ - (let ((_%ht46358%_ (make-hash-table))) + _%g4694647023%_))) + (_%keytab47070%_ + (let ((_%ht47062%_ (make-hash-table))) (for-each - (lambda (_%g4636046362%_) + (lambda (_%g4706447066%_) (hash-put! - _%ht46358%_ - _%g4636046362%_ + _%ht47062%_ + _%g4706447066%_ '#t)) - _%keys46355%_) - _%ht46358%_)) - (_%imports46369%_ + _%keys47059%_) + _%ht47062%_)) + (_%imports47073%_ (gx#core-expand-import-source - _%L46321%_)) - (_%fold-e46385%_ - (letrec ((_%fold-e46372%_ - (lambda (_%in46375%_ - _%r46377%_) + _%g4694747025%_)) + (_%fold-e47089%_ + (letrec ((_%fold-e47076%_ + (lambda (_%in47079%_ + _%r47081%_) (if (gx#module-import? - _%in46375%_) + _%in47079%_) (if (hash-get - _%keytab46366%_ + _%keytab47070%_ (gx#module-import-name - _%in46375%_)) - _%r46377%_ - (cons _%in46375%_ + _%in47079%_)) + _%r47081%_ + (cons _%in47079%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%r46377%_)) - (if (gx#import-set? _%in46375%_) - (foldl _%fold-e46372%_ - _%r46377%_ - (gx#import-set-imports _%in46375%_)) - (cons _%in46375%_ _%r46377%_)))))) + _%r47081%_)) + (if (gx#import-set? _%in47079%_) + (foldl _%fold-e47076%_ + _%r47081%_ + (gx#import-set-imports _%in47079%_)) + (cons _%in47079%_ _%r47081%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e46372%_))) + _%fold-e47076%_))) (cons 'begin: - (foldl _%fold-e46385%_ + (foldl _%fold-e47089%_ '() - _%imports46369%_))) - (_%g4623846262%_ _%g4623946266%_))) - _%id4625646315%_ - _%hd4624646283%_)))))) + _%imports47073%_))) + (_%g4694446968%_ _%g4694546972%_))) + _%id4696247020%_ + _%hd4695246989%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4625146295%_ - _%target4624846289%_ + (_%loop4695747001%_ + _%target4695446995%_ '())) - (_%g4623846262%_ - _%g4623946266%_))))) - (_%g4623846262%_ _%g4623946266%_)))) - (_%g4623846262%_ _%g4623946266%_)))) - (_%g4623846262%_ _%g4623946266%_))))) - (_%g4623746390%_ _%stx46235%_))))) + (_%g4694446968%_ + _%g4694546972%_))))) + (_%g4694446968%_ _%g4694546972%_)))) + (_%g4694446968%_ _%g4694546972%_)))) + (_%g4694446968%_ _%g4694546972%_))))) + (_%g4694347094%_ _%stx46941%_))))) (define |gerbil/core/module-sugar[1]#module-import-rename| - (lambda (_%in46442%_ _%rename46444%_) + (lambda (_%in47146%_ _%rename47148%_) (gx#make-module-import - (gx#module-import-source _%in46442%_) - _%rename46444%_ - (gx#module-import-phi _%in46442%_) - (gx#module-import-weak? _%in46442%_)))) + (gx#module-import-source _%in47146%_) + _%rename47148%_ + (gx#module-import-phi _%in47146%_) + (gx#module-import-weak? _%in47146%_)))) (define |gerbil/core/module-sugar[1]#prefix-identifier-key| - (lambda (_%name46395%_ _%pre46397%_) - (let* ((_%name4639846406%_ _%name46395%_) - (_%else4640046418%_ - (lambda () (make-symbol _%pre46397%_ _%name46395%_))) - (_%K4640246426%_ - (lambda (_%mark46422%_ _%id46424%_) - (cons (make-symbol _%pre46397%_ _%id46424%_) _%mark46422%_)))) - (if (pair? _%name4639846406%_) - (let ((_%hd4640346430%_ - (let () (declare (not safe)) (##car _%name4639846406%_))) - (_%tl4640446433%_ - (let () (declare (not safe)) (##cdr _%name4639846406%_)))) - (let* ((_%id46436%_ _%hd4640346430%_) - (_%mark46439%_ _%tl4640446433%_)) - (_%K4640246426%_ _%mark46439%_ _%id46436%_))) - (_%else4640046418%_))))) + (lambda (_%name47099%_ _%pre47101%_) + (let* ((_%name4710247110%_ _%name47099%_) + (_%else4710447122%_ + (lambda () (make-symbol _%pre47101%_ _%name47099%_))) + (_%K4710647130%_ + (lambda (_%mark47126%_ _%id47128%_) + (cons (make-symbol _%pre47101%_ _%id47128%_) _%mark47126%_)))) + (if (pair? _%name4710247110%_) + (let ((_%hd4710747134%_ + (let () (declare (not safe)) (##car _%name4710247110%_))) + (_%tl4710847137%_ + (let () (declare (not safe)) (##cdr _%name4710247110%_)))) + (let* ((_%id47140%_ _%hd4710747134%_) + (_%mark47143%_ _%tl4710847137%_)) + (_%K4710647130%_ _%mark47143%_ _%id47140%_))) + (_%else4710447122%_))))) (define |gerbil/core/module-sugar[:0:]#rename-in| (gx#make-import-expander - (lambda (_%stx46446%_) - (let* ((_%g4644946482%_ - (lambda (_%g4645046478%_) + (lambda (_%stx47150%_) + (let* ((_%g4715347186%_ + (lambda (_%g4715447182%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4645046478%_))) - (_%g4644846677%_ - (lambda (_%g4645046486%_) - (if (gx#stx-pair? _%g4645046486%_) - (let ((_%e4645446489%_ (gx#syntax-e _%g4645046486%_))) - (let ((_%hd4645546493%_ + _%g4715447182%_))) + (_%g4715247377%_ + (lambda (_%g4715447190%_) + (if (gx#stx-pair? _%g4715447190%_) + (let ((_%e4715847193%_ (gx#syntax-e _%g4715447190%_))) + (let ((_%hd4715947197%_ (let () (declare (not safe)) - (##car _%e4645446489%_))) - (_%tl4645646496%_ + (##car _%e4715847193%_))) + (_%tl4716047200%_ (let () (declare (not safe)) - (##cdr _%e4645446489%_)))) - (if (gx#stx-pair? _%tl4645646496%_) - (let ((_%e4645746499%_ - (gx#syntax-e _%tl4645646496%_))) - (let ((_%hd4645846503%_ + (##cdr _%e4715847193%_)))) + (if (gx#stx-pair? _%tl4716047200%_) + (let ((_%e4716147203%_ + (gx#syntax-e _%tl4716047200%_))) + (let ((_%hd4716247207%_ (let () (declare (not safe)) - (##car _%e4645746499%_))) - (_%tl4645946506%_ + (##car _%e4716147203%_))) + (_%tl4716347210%_ (let () (declare (not safe)) - (##cdr _%e4645746499%_)))) - (if (gx#stx-pair/null? _%tl4645946506%_) - (let ((_g48126_ + (##cdr _%e4716147203%_)))) + (if (gx#stx-pair/null? _%tl4716347210%_) + (let ((_g48812_ (gx#syntax-split-splice - _%tl4645946506%_ + _%tl4716347210%_ '0))) (begin - (let ((_g48127_ + (let ((_g48813_ (let () (declare (not safe)) - (if (##values? _g48126_) + (if (##values? _g48812_) (##values-length - _g48126_) + _g48812_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48127_ 2))) + (##fx= _g48813_ 2))) (error "Context expects 2 values" - _g48127_))) - (let ((_%target4646046509%_ + _g48813_))) + (let ((_%target4716447213%_ (let () (declare (not safe)) - (##values-ref _g48126_ 0))) - (_%tl4646246512%_ + (##values-ref _g48812_ 0))) + (_%tl4716647216%_ (let () (declare (not safe)) - (##values-ref _g48126_ 1)))) - (if (gx#stx-null? _%tl4646246512%_) - (letrec ((_%loop4646346515%_ - (lambda (_%hd4646146519%_ + (##values-ref _g48812_ 1)))) + (if (gx#stx-null? _%tl4716647216%_) + (letrec ((_%loop4716747219%_ + (lambda (_%hd4716547223%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%new-id4646746522%_ - _%id4646846524%_) - (if (gx#stx-pair? _%hd4646146519%_) - (let ((_%e4646446527%_ (gx#syntax-e _%hd4646146519%_))) - (let ((_%lp-hd4646546531%_ + _%new-id4717147226%_ + _%id4717247227%_) + (if (gx#stx-pair? _%hd4716547223%_) + (let ((_%e4716847229%_ (gx#syntax-e _%hd4716547223%_))) + (let ((_%lp-hd4716947233%_ (let () (declare (not safe)) - (##car _%e4646446527%_))) - (_%lp-tl4646646534%_ + (##car _%e4716847229%_))) + (_%lp-tl4717047236%_ (let () (declare (not safe)) - (##cdr _%e4646446527%_)))) - (if (gx#stx-pair? _%lp-hd4646546531%_) - (let ((_%e4647146537%_ - (gx#syntax-e _%lp-hd4646546531%_))) - (let ((_%hd4647246541%_ + (##cdr _%e4716847229%_)))) + (if (gx#stx-pair? _%lp-hd4716947233%_) + (let ((_%e4717547239%_ + (gx#syntax-e _%lp-hd4716947233%_))) + (let ((_%hd4717647243%_ (let () (declare (not safe)) - (##car _%e4647146537%_))) - (_%tl4647346544%_ + (##car _%e4717547239%_))) + (_%tl4717747246%_ (let () (declare (not safe)) - (##cdr _%e4647146537%_)))) - (if (gx#stx-pair? _%tl4647346544%_) - (let ((_%e4647446547%_ - (gx#syntax-e _%tl4647346544%_))) - (let ((_%hd4647546551%_ + (##cdr _%e4717547239%_)))) + (if (gx#stx-pair? _%tl4717747246%_) + (let ((_%e4717847249%_ + (gx#syntax-e _%tl4717747246%_))) + (let ((_%hd4717947253%_ (let () (declare (not safe)) - (##car _%e4647446547%_))) - (_%tl4647646554%_ + (##car _%e4717847249%_))) + (_%tl4718047256%_ (let () (declare (not safe)) - (##cdr _%e4647446547%_)))) - (if (gx#stx-null? _%tl4647646554%_) - (_%loop4646346515%_ - _%lp-tl4646646534%_ - (cons _%hd4647546551%_ - _%new-id4646746522%_) - (cons _%hd4647246541%_ - _%id4646846524%_)) - (_%g4644946482%_ - _%g4645046486%_)))) - (_%g4644946482%_ _%g4645046486%_)))) - (_%g4644946482%_ _%g4645046486%_)))) - (let ((_%new-id4646946557%_ - (reverse _%new-id4646746522%_)) - (_%id4647046560%_ (reverse _%id4646846524%_))) - ((lambda (_%L46563%_ _%L46565%_ _%L46566%_) + (##cdr _%e4717847249%_)))) + (if (gx#stx-null? _%tl4718047256%_) + (_%loop4716747219%_ + _%lp-tl4717047236%_ + (cons _%hd4717947253%_ + _%new-id4717147226%_) + (cons _%hd4717647243%_ + _%id4717247227%_)) + (_%g4715347186%_ + _%g4715447190%_)))) + (_%g4715347186%_ _%g4715447190%_)))) + (_%g4715347186%_ _%g4715447190%_)))) + (let ((_%new-id4717347259%_ + (reverse _%new-id4717147226%_)) + (_%id4717447261%_ (reverse _%id4717247227%_))) + ((lambda (_%g4715547263%_ + _%g4715647265%_ + _%g4715747266%_) (if (and (gx#identifier-list? - (foldr (lambda (_%g4658446587%_ - _%g4658546590%_) - (cons _%g4658446587%_ - _%g4658546590%_)) + (foldr (lambda (_%g4728447287%_ + _%g4728547290%_) + (cons _%g4728447287%_ + _%g4728547290%_)) '() - _%L46565%_)) + _%g4715647265%_)) (gx#identifier-list? - (foldr (lambda (_%g4659246595%_ - _%g4659346598%_) - (cons _%g4659246595%_ - _%g4659346598%_)) + (foldr (lambda (_%g4729247295%_ + _%g4729347298%_) + (cons _%g4729247295%_ + _%g4729347298%_)) '() - _%L46563%_))) - (let* ((_%keytab46601%_ (make-hash-table)) - (_%found46604%_ (make-hash-table)) - (_%_46627%_ + _%g4715547263%_))) + (let* ((_%keytab47301%_ (make-hash-table)) + (_%found47304%_ (make-hash-table)) + (_%_47327%_ (for-each - (lambda (_%id46607%_ _%new-id46609%_) + (lambda (_%id47307%_ _%new-id47309%_) (hash-put! - _%keytab46601%_ + _%keytab47301%_ (gx#core-identifier-key - _%id46607%_) + _%id47307%_) (gx#core-identifier-key - _%new-id46609%_))) - (foldr (lambda (_%g4661046613%_ - _%g4661146616%_) - (cons _%g4661046613%_ - _%g4661146616%_)) + _%new-id47309%_))) + (foldr (lambda (_%g4731047313%_ + _%g4731147316%_) + (cons _%g4731047313%_ + _%g4731147316%_)) '() - _%L46565%_) - (foldr (lambda (_%g4661846621%_ - _%g4661946624%_) - (cons _%g4661846621%_ - _%g4661946624%_)) + _%g4715647265%_) + (foldr (lambda (_%g4731847321%_ + _%g4731947324%_) + (cons _%g4731847321%_ + _%g4731947324%_)) '() - _%L46563%_))) - (_%imports46630%_ + _%g4715547263%_))) + (_%imports47330%_ (gx#core-expand-import-source - _%L46566%_)) - (_%fold-e46658%_ - (letrec ((_%fold-e46633%_ - (lambda (_%in46636%_ - _%r46638%_) + _%g4715747266%_)) + (_%fold-e47358%_ + (letrec ((_%fold-e47333%_ + (lambda (_%in47336%_ + _%r47338%_) (if (gx#module-import? - _%in46636%_) - (let* ((_%name46642%_ + _%in47336%_) + (let* ((_%name47342%_ (gx#module-import-name ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in46636%_)) - (_%$e46645%_ (hash-get _%keytab46601%_ _%name46642%_))) - (if _%$e46645%_ - ((lambda (_%rename46649%_) - (hash-put! _%found46604%_ _%name46642%_ '#t) + _%in47336%_)) + (_%$e47345%_ (hash-get _%keytab47301%_ _%name47342%_))) + (if _%$e47345%_ + ((lambda (_%rename47349%_) + (hash-put! _%found47304%_ _%name47342%_ '#t) (cons (|gerbil/core/module-sugar[1]#module-import-rename| - _%in46636%_ - _%rename46649%_) - _%r46638%_)) - _%$e46645%_) - (cons _%in46636%_ _%r46638%_))) - (if (gx#import-set? _%in46636%_) - (foldl _%fold-e46633%_ - _%r46638%_ - (gx#import-set-imports _%in46636%_)) - (cons _%in46636%_ _%r46638%_)))))) + _%in47336%_ + _%rename47349%_) + _%r47338%_)) + _%$e47345%_) + (cons _%in47336%_ _%r47338%_))) + (if (gx#import-set? _%in47336%_) + (foldl _%fold-e47333%_ + _%r47338%_ + (gx#import-set-imports _%in47336%_)) + (cons _%in47336%_ _%r47338%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e46633%_)) - (_%new-imports46661%_ - (foldl _%fold-e46658%_ + _%fold-e47333%_)) + (_%new-imports47361%_ + (foldl _%fold-e47358%_ '() - _%imports46630%_))) + _%imports47330%_))) (for-each - (lambda (_%id46666%_) + (lambda (_%id47366%_) (if (hash-get - _%found46604%_ - (gx#core-identifier-key _%id46666%_)) + _%found47304%_ + (gx#core-identifier-key _%id47366%_)) '#!void (gx#raise-syntax-error '#f '"bad syntax; identifier is not in the import set" - _%stx46446%_ - _%id46666%_))) - (foldr (lambda (_%g4666846671%_ - _%g4666946674%_) - (cons _%g4666846671%_ - _%g4666946674%_)) + _%stx47150%_ + _%id47366%_))) + (foldr (lambda (_%g4736847371%_ + _%g4736947374%_) + (cons _%g4736847371%_ + _%g4736947374%_)) '() - _%L46565%_)) - (cons 'begin: _%new-imports46661%_)) - (_%g4644946482%_ _%g4645046486%_))) - _%new-id4646946557%_ - _%id4647046560%_ - _%hd4645846503%_)))))) + _%g4715647265%_)) + (cons 'begin: _%new-imports47361%_)) + (_%g4715347186%_ _%g4715447190%_))) + _%new-id4717347259%_ + _%id4717447261%_ + _%hd4716247207%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4646346515%_ - _%target4646046509%_ + (_%loop4716747219%_ + _%target4716447213%_ '() '())) - (_%g4644946482%_ - _%g4645046486%_))))) - (_%g4644946482%_ _%g4645046486%_)))) - (_%g4644946482%_ _%g4645046486%_)))) - (_%g4644946482%_ _%g4645046486%_))))) - (_%g4644846677%_ _%stx46446%_))))) + (_%g4715347186%_ + _%g4715447190%_))))) + (_%g4715347186%_ _%g4715447190%_)))) + (_%g4715347186%_ _%g4715447190%_)))) + (_%g4715347186%_ _%g4715447190%_))))) + (_%g4715247377%_ _%stx47150%_))))) (define |gerbil/core/module-sugar[:0:]#prefix-in| (gx#make-import-expander - (lambda (_%stx46682%_) - (let* ((_%g4668546703%_ - (lambda (_%g4668646699%_) + (lambda (_%stx47382%_) + (let* ((_%g4738547403%_ + (lambda (_%g4738647399%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4668646699%_))) - (_%g4668446788%_ - (lambda (_%g4668646707%_) - (if (gx#stx-pair? _%g4668646707%_) - (let ((_%e4668946710%_ (gx#syntax-e _%g4668646707%_))) - (let ((_%hd4669046714%_ + _%g4738647399%_))) + (_%g4738447488%_ + (lambda (_%g4738647407%_) + (if (gx#stx-pair? _%g4738647407%_) + (let ((_%e4738947410%_ (gx#syntax-e _%g4738647407%_))) + (let ((_%hd4739047414%_ (let () (declare (not safe)) - (##car _%e4668946710%_))) - (_%tl4669146717%_ + (##car _%e4738947410%_))) + (_%tl4739147417%_ (let () (declare (not safe)) - (##cdr _%e4668946710%_)))) - (if (gx#stx-pair? _%tl4669146717%_) - (let ((_%e4669246720%_ - (gx#syntax-e _%tl4669146717%_))) - (let ((_%hd4669346724%_ + (##cdr _%e4738947410%_)))) + (if (gx#stx-pair? _%tl4739147417%_) + (let ((_%e4739247420%_ + (gx#syntax-e _%tl4739147417%_))) + (let ((_%hd4739347424%_ (let () (declare (not safe)) - (##car _%e4669246720%_))) - (_%tl4669446727%_ + (##car _%e4739247420%_))) + (_%tl4739447427%_ (let () (declare (not safe)) - (##cdr _%e4669246720%_)))) - (if (gx#stx-pair? _%tl4669446727%_) - (let ((_%e4669546730%_ - (gx#syntax-e _%tl4669446727%_))) - (let ((_%hd4669646734%_ + (##cdr _%e4739247420%_)))) + (if (gx#stx-pair? _%tl4739447427%_) + (let ((_%e4739547430%_ + (gx#syntax-e _%tl4739447427%_))) + (let ((_%hd4739647434%_ (let () (declare (not safe)) - (##car _%e4669546730%_))) - (_%tl4669746737%_ + (##car _%e4739547430%_))) + (_%tl4739747437%_ (let () (declare (not safe)) - (##cdr _%e4669546730%_)))) - (if (gx#stx-null? _%tl4669746737%_) - ((lambda (_%L46740%_ _%L46742%_) - (if (gx#identifier? _%L46740%_) - (let* ((_%pre46758%_ + (##cdr _%e4739547430%_)))) + (if (gx#stx-null? _%tl4739747437%_) + ((lambda (_%g4738747440%_ + _%g4738847442%_) + (if (gx#identifier? + _%g4738747440%_) + (let* ((_%pre47458%_ (gx#stx-e - _%L46740%_)) - (_%imports46761%_ + _%g4738747440%_)) + (_%imports47461%_ (gx#core-expand-import-source - _%L46742%_)) - (_%rename-e46767%_ - (lambda (_%name46764%_) + _%g4738847442%_)) + (_%rename-e47467%_ + (lambda (_%name47464%_) (|gerbil/core/module-sugar[1]#prefix-identifier-key| - _%name46764%_ - _%pre46758%_))) - (_%fold-e46783%_ - (letrec ((_%fold-e46770%_ + _%name47464%_ + _%pre47458%_))) + (_%fold-e47483%_ + (letrec ((_%fold-e47470%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%in46773%_ _%r46775%_) - (if (gx#module-import? _%in46773%_) + (lambda (_%in47473%_ _%r47475%_) + (if (gx#module-import? _%in47473%_) (cons (|gerbil/core/module-sugar[1]#module-import-rename| - _%in46773%_ - (_%rename-e46767%_ + _%in47473%_ + (_%rename-e47467%_ (gx#module-import-name - _%in46773%_))) - _%r46775%_) - (if (gx#import-set? _%in46773%_) - (foldl _%fold-e46770%_ - _%r46775%_ + _%in47473%_))) + _%r47475%_) + (if (gx#import-set? _%in47473%_) + (foldl _%fold-e47470%_ + _%r47475%_ (gx#import-set-imports - _%in46773%_)) - (cons _%in46773%_ _%r46775%_)))))) - _%fold-e46770%_))) - (cons 'begin: (foldl _%fold-e46783%_ '() _%imports46761%_))) + _%in47473%_)) + (cons _%in47473%_ _%r47475%_)))))) + _%fold-e47470%_))) + (cons 'begin: (foldl _%fold-e47483%_ '() _%imports47461%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4668546703%_ - _%g4668646707%_))) - _%hd4669646734%_ - _%hd4669346724%_) - (_%g4668546703%_ - _%g4668646707%_)))) - (_%g4668546703%_ _%g4668646707%_)))) - (_%g4668546703%_ _%g4668646707%_)))) - (_%g4668546703%_ _%g4668646707%_))))) - (_%g4668446788%_ _%stx46682%_))))) + (_%g4738547403%_ + _%g4738647407%_))) + _%hd4739647434%_ + _%hd4739347424%_) + (_%g4738547403%_ + _%g4738647407%_)))) + (_%g4738547403%_ _%g4738647407%_)))) + (_%g4738547403%_ _%g4738647407%_)))) + (_%g4738547403%_ _%g4738647407%_))))) + (_%g4738447488%_ _%stx47382%_))))) (define |gerbil/core/module-sugar[:0:]#group-in| (gx#make-import-expander - (lambda (_%stx46792%_) - (letrec ((_%flatten46795%_ - (lambda (_%list-of-lists47050%_) - (foldr (lambda (_%v47053%_ _%acc47055%_) - (if (null? _%v47053%_) - _%acc47055%_ - (if (pair? _%v47053%_) - (append (_%flatten46795%_ _%v47053%_) - _%acc47055%_) - (cons _%v47053%_ _%acc47055%_)))) + (lambda (_%stx47492%_) + (letrec ((_%flatten47495%_ + (lambda (_%list-of-lists47746%_) + (foldr (lambda (_%v47749%_ _%acc47751%_) + (if (null? _%v47749%_) + _%acc47751%_ + (if (pair? _%v47749%_) + (append (_%flatten47495%_ _%v47749%_) + _%acc47751%_) + (cons _%v47749%_ _%acc47751%_)))) '() - _%list-of-lists47050%_))) - (_%expand-path46797%_ - (lambda (_%top46918%_ _%mod46920%_) - (let* ((_%__stx4802648027%_ _%mod46920%_) - (_%g4692346945%_ + _%list-of-lists47746%_))) + (_%expand-path47497%_ + (lambda (_%top47616%_ _%mod47618%_) + (let* ((_%__stx4871248713%_ _%mod47618%_) + (_%g4762147643%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4802648027%_)))) - (let ((_%__kont4802948030%_ - (lambda (_%L47013%_ _%L47015%_) - (map (lambda (_%mod47030%_) + _%__stx4871248713%_)))) + (let ((_%__kont4871548716%_ + (lambda (_%g4762347709%_ _%g4762447711%_) + (map (lambda (_%mod47726%_) (gx#stx-identifier - _%top46918%_ - _%top46918%_ + _%top47616%_ + _%top47616%_ '"/" - _%mod47030%_)) - (_%flatten46795%_ - (map (lambda (_%g4703247034%_) - (_%expand-path46797%_ - _%L47015%_ - _%g4703247034%_)) - (foldr (lambda (_%g4703747040%_ - _%g4703847043%_) - (cons _%g4703747040%_ - _%g4703847043%_)) + _%mod47726%_)) + (_%flatten47495%_ + (map (lambda (_%g4772847730%_) + (_%expand-path47497%_ + _%g4762447711%_ + _%g4772847730%_)) + (foldr (lambda (_%g4773347736%_ + _%g4773447739%_) + (cons _%g4773347736%_ + _%g4773447739%_)) '() - _%L47013%_)))))) - (_%__kont4803348034%_ - (lambda (_%L46952%_) + _%g4762347709%_)))))) + (_%__kont4871948720%_ + (lambda (_%g4763747650%_) (gx#stx-identifier - _%top46918%_ - _%top46918%_ + _%top47616%_ + _%top47616%_ '"/" - _%L46952%_)))) - (let* ((_%g4692246966%_ + _%g4763747650%_)))) + (let* ((_%g4762047664%_ (lambda () - (let ((_%L46952%_ _%__stx4802648027%_)) - (if (or (gx#identifier? _%L46952%_) - (gx#stx-fixnum? _%L46952%_)) - (_%__kont4803348034%_ _%L46952%_) + (let ((_%g4763747650%_ _%__stx4871248713%_)) + (if (or (gx#identifier? _%g4763747650%_) + (gx#stx-fixnum? _%g4763747650%_)) + (_%__kont4871948720%_ _%g4763747650%_) (let () (declare (not safe)) - (_%g4692346945%_)))))) - (_%__match4804948050%_ - (lambda (_%e4692746973%_ - _%hd4692846977%_ - _%tl4692946980%_ - _%__splice4803148032%_ - _%target4693046983%_ - _%tl4693246986%_) - (letrec ((_%loop4693346989%_ - (lambda (_%hd4693146993%_ - _%mod4693746996%_) + (_%g4762147643%_)))))) + (_%__match4873548736%_ + (lambda (_%e4762547671%_ + _%hd4762647675%_ + _%tl4762747678%_ + _%__splice4871748718%_ + _%target4762847681%_ + _%tl4763047684%_) + (letrec ((_%loop4763147687%_ + (lambda (_%hd4762947691%_ + _%mod4763547694%_) (if (gx#stx-pair? - _%hd4693146993%_) - (let ((_%e4693446999%_ + _%hd4762947691%_) + (let ((_%e4763247696%_ (gx#syntax-e - _%hd4693146993%_))) - (let ((_%lp-tl4693647006%_ + _%hd4762947691%_))) + (let ((_%lp-tl4763447703%_ (let () (declare (not safe)) - (##cdr _%e4693446999%_))) - (_%lp-hd4693547003%_ + (##cdr _%e4763247696%_))) + (_%lp-hd4763347700%_ (let () (declare (not safe)) - (##car _%e4693446999%_)))) - (_%loop4693346989%_ - _%lp-tl4693647006%_ - (cons _%lp-hd4693547003%_ - _%mod4693746996%_)))) - (let ((_%mod4693847009%_ - (reverse _%mod4693746996%_))) - (_%__kont4802948030%_ - _%mod4693847009%_ - _%hd4692846977%_)))))) - (_%loop4693346989%_ - _%target4693046983%_ + (##car _%e4763247696%_)))) + (_%loop4763147687%_ + _%lp-tl4763447703%_ + (cons _%lp-hd4763347700%_ + _%mod4763547694%_)))) + (let ((_%mod4763647706%_ + (reverse _%mod4763547694%_))) + (_%__kont4871548716%_ + _%mod4763647706%_ + _%hd4762647675%_)))))) + (_%loop4763147687%_ + _%target4762847681%_ '()))))) - (if (gx#stx-pair? _%__stx4802648027%_) - (let ((_%e4692746973%_ - (gx#syntax-e _%__stx4802648027%_))) - (let ((_%tl4692946980%_ + (if (gx#stx-pair? _%__stx4871248713%_) + (let ((_%e4762547671%_ + (gx#syntax-e _%__stx4871248713%_))) + (let ((_%tl4762747678%_ (let () (declare (not safe)) - (##cdr _%e4692746973%_))) - (_%hd4692846977%_ + (##cdr _%e4762547671%_))) + (_%hd4762647675%_ (let () (declare (not safe)) - (##car _%e4692746973%_)))) - (if (gx#stx-pair/null? _%tl4692946980%_) - (let ((_%__splice4803148032%_ + (##car _%e4762547671%_)))) + (if (gx#stx-pair/null? _%tl4762747678%_) + (let ((_%__splice4871748718%_ (gx#syntax-split-splice->vector - _%tl4692946980%_ + _%tl4762747678%_ '0))) - (let ((_%tl4693246986%_ + (let ((_%tl4763047684%_ (let () (declare (not safe)) (##vector-ref - _%__splice4803148032%_ + _%__splice4871748718%_ '1))) - (_%target4693046983%_ + (_%target4762847681%_ (let () (declare (not safe)) (##vector-ref - _%__splice4803148032%_ + _%__splice4871748718%_ '0)))) - (if (gx#stx-null? _%tl4693246986%_) - (_%__match4804948050%_ - _%e4692746973%_ - _%hd4692846977%_ - _%tl4692946980%_ - _%__splice4803148032%_ - _%target4693046983%_ - _%tl4693246986%_) + (if (gx#stx-null? _%tl4763047684%_) + (_%__match4873548736%_ + _%e4762547671%_ + _%hd4762647675%_ + _%tl4762747678%_ + _%__splice4871748718%_ + _%target4762847681%_ + _%tl4763047684%_) (let () (declare (not safe)) - (_%g4692246966%_))))) + (_%g4762047664%_))))) (let () (declare (not safe)) - (_%g4692246966%_))))) + (_%g4762047664%_))))) (let () (declare (not safe)) - (_%g4692246966%_))))))))) - (let* ((_%g4679946823%_ - (lambda (_%g4680046819%_) + (_%g4762047664%_))))))))) + (let* ((_%g4749947523%_ + (lambda (_%g4750047519%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4680046819%_))) - (_%g4679846914%_ - (lambda (_%g4680046827%_) - (if (gx#stx-pair? _%g4680046827%_) - (let ((_%e4680346830%_ (gx#syntax-e _%g4680046827%_))) - (let ((_%hd4680446834%_ + _%g4750047519%_))) + (_%g4749847612%_ + (lambda (_%g4750047527%_) + (if (gx#stx-pair? _%g4750047527%_) + (let ((_%e4750347530%_ (gx#syntax-e _%g4750047527%_))) + (let ((_%hd4750447534%_ (let () (declare (not safe)) - (##car _%e4680346830%_))) - (_%tl4680546837%_ + (##car _%e4750347530%_))) + (_%tl4750547537%_ (let () (declare (not safe)) - (##cdr _%e4680346830%_)))) - (if (gx#stx-pair? _%tl4680546837%_) - (let ((_%e4680646840%_ - (gx#syntax-e _%tl4680546837%_))) - (let ((_%hd4680746844%_ + (##cdr _%e4750347530%_)))) + (if (gx#stx-pair? _%tl4750547537%_) + (let ((_%e4750647540%_ + (gx#syntax-e _%tl4750547537%_))) + (let ((_%hd4750747544%_ (let () (declare (not safe)) - (##car _%e4680646840%_))) - (_%tl4680846847%_ + (##car _%e4750647540%_))) + (_%tl4750847547%_ (let () (declare (not safe)) - (##cdr _%e4680646840%_)))) - (if (gx#stx-pair/null? _%tl4680846847%_) - (let ((_g48128_ + (##cdr _%e4750647540%_)))) + (if (gx#stx-pair/null? _%tl4750847547%_) + (let ((_g48814_ (gx#syntax-split-splice - _%tl4680846847%_ + _%tl4750847547%_ '0))) (begin - (let ((_g48129_ + (let ((_g48815_ (let () (declare (not safe)) - (if (##values? _g48128_) + (if (##values? _g48814_) (##values-length - _g48128_) + _g48814_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48129_ 2))) + (##fx= _g48815_ 2))) (error "Context expects 2 values" - _g48129_))) - (let ((_%target4680946850%_ + _g48815_))) + (let ((_%target4750947550%_ (let () (declare (not safe)) - (##values-ref _g48128_ 0))) - (_%tl4681146853%_ + (##values-ref _g48814_ 0))) + (_%tl4751147553%_ (let () (declare (not safe)) (##values-ref - _g48128_ + _g48814_ 1)))) (if (gx#stx-null? - _%tl4681146853%_) - (letrec ((_%loop4681246856%_ - (lambda (_%hd4681046860%_ + _%tl4751147553%_) + (letrec ((_%loop4751247556%_ + (lambda (_%hd4751047560%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%mod4681646863%_) - (if (gx#stx-pair? _%hd4681046860%_) - (let ((_%e4681346866%_ - (gx#syntax-e _%hd4681046860%_))) - (let ((_%lp-hd4681446870%_ + _%mod4751647563%_) + (if (gx#stx-pair? _%hd4751047560%_) + (let ((_%e4751347565%_ + (gx#syntax-e _%hd4751047560%_))) + (let ((_%lp-hd4751447569%_ (let () (declare (not safe)) - (##car _%e4681346866%_))) - (_%lp-tl4681546873%_ + (##car _%e4751347565%_))) + (_%lp-tl4751547572%_ (let () (declare (not safe)) - (##cdr _%e4681346866%_)))) - (_%loop4681246856%_ - _%lp-tl4681546873%_ - (cons _%lp-hd4681446870%_ _%mod4681646863%_)))) - (let ((_%mod4681746876%_ (reverse _%mod4681646863%_))) - ((lambda (_%L46880%_ _%L46882%_) + (##cdr _%e4751347565%_)))) + (_%loop4751247556%_ + _%lp-tl4751547572%_ + (cons _%lp-hd4751447569%_ _%mod4751647563%_)))) + (let ((_%mod4751747575%_ (reverse _%mod4751647563%_))) + ((lambda (_%g4750147578%_ _%g4750247580%_) (cons 'begin: - (_%flatten46795%_ - (map (lambda (_%g4690046902%_) - (_%expand-path46797%_ - _%L46882%_ - _%g4690046902%_)) - (foldr (lambda (_%g4690546908%_ - _%g4690646911%_) - (cons _%g4690546908%_ - _%g4690646911%_)) + (_%flatten47495%_ + (map (lambda (_%g4759847600%_) + (_%expand-path47497%_ + _%g4750247580%_ + _%g4759847600%_)) + (foldr (lambda (_%g4760347606%_ + _%g4760447609%_) + (cons _%g4760347606%_ + _%g4760447609%_)) '() - _%L46880%_))))) - _%mod4681746876%_ - _%hd4680746844%_)))))) + _%g4750147578%_))))) + _%mod4751747575%_ + _%hd4750747544%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4681246856%_ - _%target4680946850%_ + (_%loop4751247556%_ + _%target4750947550%_ '())) - (_%g4679946823%_ - _%g4680046827%_))))) - (_%g4679946823%_ _%g4680046827%_)))) - (_%g4679946823%_ _%g4680046827%_)))) - (_%g4679946823%_ _%g4680046827%_))))) - (_%g4679846914%_ _%stx46792%_)))))) + (_%g4749947523%_ + _%g4750047527%_))))) + (_%g4749947523%_ _%g4750047527%_)))) + (_%g4749947523%_ _%g4750047527%_)))) + (_%g4749947523%_ _%g4750047527%_))))) + (_%g4749847612%_ _%stx47492%_)))))) (define |gerbil/core/module-sugar[:0:]#except-out| (gx#make-export-expander - (lambda (_%stx47065%_) - (let* ((_%g4706847092%_ - (lambda (_%g4706947088%_) + (lambda (_%stx47761%_) + (let* ((_%g4776447788%_ + (lambda (_%g4776547784%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4706947088%_))) - (_%g4706747220%_ - (lambda (_%g4706947096%_) - (if (gx#stx-pair? _%g4706947096%_) - (let ((_%e4707247099%_ (gx#syntax-e _%g4706947096%_))) - (let ((_%hd4707347103%_ + _%g4776547784%_))) + (_%g4776347914%_ + (lambda (_%g4776547792%_) + (if (gx#stx-pair? _%g4776547792%_) + (let ((_%e4776847795%_ (gx#syntax-e _%g4776547792%_))) + (let ((_%hd4776947799%_ (let () (declare (not safe)) - (##car _%e4707247099%_))) - (_%tl4707447106%_ + (##car _%e4776847795%_))) + (_%tl4777047802%_ (let () (declare (not safe)) - (##cdr _%e4707247099%_)))) - (if (gx#stx-pair? _%tl4707447106%_) - (let ((_%e4707547109%_ - (gx#syntax-e _%tl4707447106%_))) - (let ((_%hd4707647113%_ + (##cdr _%e4776847795%_)))) + (if (gx#stx-pair? _%tl4777047802%_) + (let ((_%e4777147805%_ + (gx#syntax-e _%tl4777047802%_))) + (let ((_%hd4777247809%_ (let () (declare (not safe)) - (##car _%e4707547109%_))) - (_%tl4707747116%_ + (##car _%e4777147805%_))) + (_%tl4777347812%_ (let () (declare (not safe)) - (##cdr _%e4707547109%_)))) - (if (gx#stx-pair/null? _%tl4707747116%_) - (let ((_g48130_ + (##cdr _%e4777147805%_)))) + (if (gx#stx-pair/null? _%tl4777347812%_) + (let ((_g48816_ (gx#syntax-split-splice - _%tl4707747116%_ + _%tl4777347812%_ '0))) (begin - (let ((_g48131_ + (let ((_g48817_ (let () (declare (not safe)) - (if (##values? _g48130_) + (if (##values? _g48816_) (##values-length - _g48130_) + _g48816_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48131_ 2))) + (##fx= _g48817_ 2))) (error "Context expects 2 values" - _g48131_))) - (let ((_%target4707847119%_ + _g48817_))) + (let ((_%target4777447815%_ (let () (declare (not safe)) - (##values-ref _g48130_ 0))) - (_%tl4708047122%_ + (##values-ref _g48816_ 0))) + (_%tl4777647818%_ (let () (declare (not safe)) - (##values-ref _g48130_ 1)))) - (if (gx#stx-null? _%tl4708047122%_) - (letrec ((_%loop4708147125%_ - (lambda (_%hd4707947129%_ + (##values-ref _g48816_ 1)))) + (if (gx#stx-null? _%tl4777647818%_) + (letrec ((_%loop4777747821%_ + (lambda (_%hd4777547825%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id4708547132%_) - (if (gx#stx-pair? _%hd4707947129%_) - (let ((_%e4708247135%_ (gx#syntax-e _%hd4707947129%_))) - (let ((_%lp-hd4708347139%_ + _%id4778147828%_) + (if (gx#stx-pair? _%hd4777547825%_) + (let ((_%e4777847830%_ (gx#syntax-e _%hd4777547825%_))) + (let ((_%lp-hd4777947834%_ (let () (declare (not safe)) - (##car _%e4708247135%_))) - (_%lp-tl4708447142%_ + (##car _%e4777847830%_))) + (_%lp-tl4778047837%_ (let () (declare (not safe)) - (##cdr _%e4708247135%_)))) - (_%loop4708147125%_ - _%lp-tl4708447142%_ - (cons _%lp-hd4708347139%_ _%id4708547132%_)))) - (let ((_%id4708647145%_ (reverse _%id4708547132%_))) - ((lambda (_%L47149%_ _%L47151%_) + (##cdr _%e4777847830%_)))) + (_%loop4777747821%_ + _%lp-tl4778047837%_ + (cons _%lp-hd4777947834%_ _%id4778147828%_)))) + (let ((_%id4778247840%_ (reverse _%id4778147828%_))) + ((lambda (_%g4776647843%_ _%g4776747845%_) (if (gx#identifier-list? - (foldr (lambda (_%g4716847171%_ - _%g4716947174%_) - (cons _%g4716847171%_ - _%g4716947174%_)) + (foldr (lambda (_%g4786247865%_ + _%g4786347868%_) + (cons _%g4786247865%_ + _%g4786347868%_)) '() - _%L47149%_)) - (let* ((_%keys47185%_ + _%g4776647843%_)) + (let* ((_%keys47879%_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_%g4717647179%_ - _%g4717747182%_) - (cons _%g4717647179%_ - _%g4717747182%_)) + (foldr (lambda (_%g4787047873%_ + _%g4787147876%_) + (cons _%g4787047873%_ + _%g4787147876%_)) '() - _%L47149%_))) - (_%keytab47196%_ - (let ((_%ht47188%_ (make-hash-table))) + _%g4776647843%_))) + (_%keytab47890%_ + (let ((_%ht47882%_ (make-hash-table))) (for-each - (lambda (_%g4719047192%_) + (lambda (_%g4788447886%_) (hash-put! - _%ht47188%_ - _%g4719047192%_ + _%ht47882%_ + _%g4788447886%_ '#t)) - _%keys47185%_) - _%ht47188%_)) - (_%exports47199%_ + _%keys47879%_) + _%ht47882%_)) + (_%exports47893%_ (gx#core-expand-export-source - _%L47151%_)) - (_%fold-e47215%_ - (letrec ((_%fold-e47202%_ - (lambda (_%out47205%_ - _%r47207%_) + _%g4776747845%_)) + (_%fold-e47909%_ + (letrec ((_%fold-e47896%_ + (lambda (_%out47899%_ + _%r47901%_) (if (gx#module-export? - _%out47205%_) + _%out47899%_) (if (hash-get - _%keytab47196%_ + _%keytab47890%_ (gx#module-export-name - _%out47205%_)) - _%r47207%_ - (cons _%out47205%_ + _%out47899%_)) + _%r47901%_ + (cons _%out47899%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%r47207%_)) - (if (gx#export-set? _%out47205%_) - (foldl _%fold-e47202%_ - _%r47207%_ - (gx#export-set-exports _%out47205%_)) - _%r47207%_))))) + _%r47901%_)) + (if (gx#export-set? _%out47899%_) + (foldl _%fold-e47896%_ + _%r47901%_ + (gx#export-set-exports _%out47899%_)) + _%r47901%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e47202%_))) + _%fold-e47896%_))) (cons 'begin: - (foldl _%fold-e47215%_ + (foldl _%fold-e47909%_ '() - _%exports47199%_))) - (_%g4706847092%_ _%g4706947096%_))) - _%id4708647145%_ - _%hd4707647113%_)))))) + _%exports47893%_))) + (_%g4776447788%_ _%g4776547792%_))) + _%id4778247840%_ + _%hd4777247809%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4708147125%_ - _%target4707847119%_ + (_%loop4777747821%_ + _%target4777447815%_ '())) - (_%g4706847092%_ - _%g4706947096%_))))) - (_%g4706847092%_ _%g4706947096%_)))) - (_%g4706847092%_ _%g4706947096%_)))) - (_%g4706847092%_ _%g4706947096%_))))) - (_%g4706747220%_ _%stx47065%_))))) + (_%g4776447788%_ + _%g4776547792%_))))) + (_%g4776447788%_ _%g4776547792%_)))) + (_%g4776447788%_ _%g4776547792%_)))) + (_%g4776447788%_ _%g4776547792%_))))) + (_%g4776347914%_ _%stx47761%_))))) (define |gerbil/core/module-sugar[1]#module-export-rename| - (lambda (_%out47225%_ _%rename47227%_) + (lambda (_%out47919%_ _%rename47921%_) (gx#make-module-export - (gx#module-export-context _%out47225%_) - (gx#module-export-key _%out47225%_) - (gx#module-export-phi _%out47225%_) - _%rename47227%_ - (gx#module-export-weak? _%out47225%_)))) + (gx#module-export-context _%out47919%_) + (gx#module-export-key _%out47919%_) + (gx#module-export-phi _%out47919%_) + _%rename47921%_ + (gx#module-export-weak? _%out47919%_)))) (define |gerbil/core/module-sugar[:0:]#rename-out| (gx#make-export-expander - (lambda (_%stx47229%_) - (let* ((_%g4723247265%_ - (lambda (_%g4723347261%_) + (lambda (_%stx47923%_) + (let* ((_%g4792647959%_ + (lambda (_%g4792747955%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4723347261%_))) - (_%g4723147460%_ - (lambda (_%g4723347269%_) - (if (gx#stx-pair? _%g4723347269%_) - (let ((_%e4723747272%_ (gx#syntax-e _%g4723347269%_))) - (let ((_%hd4723847276%_ + _%g4792747955%_))) + (_%g4792548150%_ + (lambda (_%g4792747963%_) + (if (gx#stx-pair? _%g4792747963%_) + (let ((_%e4793147966%_ (gx#syntax-e _%g4792747963%_))) + (let ((_%hd4793247970%_ (let () (declare (not safe)) - (##car _%e4723747272%_))) - (_%tl4723947279%_ + (##car _%e4793147966%_))) + (_%tl4793347973%_ (let () (declare (not safe)) - (##cdr _%e4723747272%_)))) - (if (gx#stx-pair? _%tl4723947279%_) - (let ((_%e4724047282%_ - (gx#syntax-e _%tl4723947279%_))) - (let ((_%hd4724147286%_ + (##cdr _%e4793147966%_)))) + (if (gx#stx-pair? _%tl4793347973%_) + (let ((_%e4793447976%_ + (gx#syntax-e _%tl4793347973%_))) + (let ((_%hd4793547980%_ (let () (declare (not safe)) - (##car _%e4724047282%_))) - (_%tl4724247289%_ + (##car _%e4793447976%_))) + (_%tl4793647983%_ (let () (declare (not safe)) - (##cdr _%e4724047282%_)))) - (if (gx#stx-pair/null? _%tl4724247289%_) - (let ((_g48132_ + (##cdr _%e4793447976%_)))) + (if (gx#stx-pair/null? _%tl4793647983%_) + (let ((_g48818_ (gx#syntax-split-splice - _%tl4724247289%_ + _%tl4793647983%_ '0))) (begin - (let ((_g48133_ + (let ((_g48819_ (let () (declare (not safe)) - (if (##values? _g48132_) + (if (##values? _g48818_) (##values-length - _g48132_) + _g48818_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48133_ 2))) + (##fx= _g48819_ 2))) (error "Context expects 2 values" - _g48133_))) - (let ((_%target4724347292%_ + _g48819_))) + (let ((_%target4793747986%_ (let () (declare (not safe)) - (##values-ref _g48132_ 0))) - (_%tl4724547295%_ + (##values-ref _g48818_ 0))) + (_%tl4793947989%_ (let () (declare (not safe)) - (##values-ref _g48132_ 1)))) - (if (gx#stx-null? _%tl4724547295%_) - (letrec ((_%loop4724647298%_ - (lambda (_%hd4724447302%_ + (##values-ref _g48818_ 1)))) + (if (gx#stx-null? _%tl4793947989%_) + (letrec ((_%loop4794047992%_ + (lambda (_%hd4793847996%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%new-id4725047305%_ - _%id4725147307%_) - (if (gx#stx-pair? _%hd4724447302%_) - (let ((_%e4724747310%_ (gx#syntax-e _%hd4724447302%_))) - (let ((_%lp-hd4724847314%_ + _%new-id4794447999%_ + _%id4794548000%_) + (if (gx#stx-pair? _%hd4793847996%_) + (let ((_%e4794148002%_ (gx#syntax-e _%hd4793847996%_))) + (let ((_%lp-hd4794248006%_ (let () (declare (not safe)) - (##car _%e4724747310%_))) - (_%lp-tl4724947317%_ + (##car _%e4794148002%_))) + (_%lp-tl4794348009%_ (let () (declare (not safe)) - (##cdr _%e4724747310%_)))) - (if (gx#stx-pair? _%lp-hd4724847314%_) - (let ((_%e4725447320%_ - (gx#syntax-e _%lp-hd4724847314%_))) - (let ((_%hd4725547324%_ + (##cdr _%e4794148002%_)))) + (if (gx#stx-pair? _%lp-hd4794248006%_) + (let ((_%e4794848012%_ + (gx#syntax-e _%lp-hd4794248006%_))) + (let ((_%hd4794948016%_ (let () (declare (not safe)) - (##car _%e4725447320%_))) - (_%tl4725647327%_ + (##car _%e4794848012%_))) + (_%tl4795048019%_ (let () (declare (not safe)) - (##cdr _%e4725447320%_)))) - (if (gx#stx-pair? _%tl4725647327%_) - (let ((_%e4725747330%_ - (gx#syntax-e _%tl4725647327%_))) - (let ((_%hd4725847334%_ + (##cdr _%e4794848012%_)))) + (if (gx#stx-pair? _%tl4795048019%_) + (let ((_%e4795148022%_ + (gx#syntax-e _%tl4795048019%_))) + (let ((_%hd4795248026%_ (let () (declare (not safe)) - (##car _%e4725747330%_))) - (_%tl4725947337%_ + (##car _%e4795148022%_))) + (_%tl4795348029%_ (let () (declare (not safe)) - (##cdr _%e4725747330%_)))) - (if (gx#stx-null? _%tl4725947337%_) - (_%loop4724647298%_ - _%lp-tl4724947317%_ - (cons _%hd4725847334%_ - _%new-id4725047305%_) - (cons _%hd4725547324%_ - _%id4725147307%_)) - (_%g4723247265%_ - _%g4723347269%_)))) - (_%g4723247265%_ _%g4723347269%_)))) - (_%g4723247265%_ _%g4723347269%_)))) - (let ((_%new-id4725247340%_ - (reverse _%new-id4725047305%_)) - (_%id4725347343%_ (reverse _%id4725147307%_))) - ((lambda (_%L47346%_ _%L47348%_ _%L47349%_) + (##cdr _%e4795148022%_)))) + (if (gx#stx-null? _%tl4795348029%_) + (_%loop4794047992%_ + _%lp-tl4794348009%_ + (cons _%hd4795248026%_ + _%new-id4794447999%_) + (cons _%hd4794948016%_ + _%id4794548000%_)) + (_%g4792647959%_ + _%g4792747963%_)))) + (_%g4792647959%_ _%g4792747963%_)))) + (_%g4792647959%_ _%g4792747963%_)))) + (let ((_%new-id4794648032%_ + (reverse _%new-id4794447999%_)) + (_%id4794748034%_ (reverse _%id4794548000%_))) + ((lambda (_%g4792848036%_ + _%g4792948038%_ + _%g4793048039%_) (if (and (gx#identifier-list? - (foldr (lambda (_%g4736747370%_ - _%g4736847373%_) - (cons _%g4736747370%_ - _%g4736847373%_)) + (foldr (lambda (_%g4805748060%_ + _%g4805848063%_) + (cons _%g4805748060%_ + _%g4805848063%_)) '() - _%L47348%_)) + _%g4792948038%_)) (gx#identifier-list? - (foldr (lambda (_%g4737547378%_ - _%g4737647381%_) - (cons _%g4737547378%_ - _%g4737647381%_)) + (foldr (lambda (_%g4806548068%_ + _%g4806648071%_) + (cons _%g4806548068%_ + _%g4806648071%_)) '() - _%L47346%_))) - (let* ((_%keytab47384%_ (make-hash-table)) - (_%found47387%_ (make-hash-table)) - (_%_47410%_ + _%g4792848036%_))) + (let* ((_%keytab48074%_ (make-hash-table)) + (_%found48077%_ (make-hash-table)) + (_%_48100%_ (for-each - (lambda (_%id47390%_ _%new-id47392%_) + (lambda (_%id48080%_ _%new-id48082%_) (hash-put! - _%keytab47384%_ + _%keytab48074%_ (gx#core-identifier-key - _%id47390%_) + _%id48080%_) (gx#core-identifier-key - _%new-id47392%_))) - (foldr (lambda (_%g4739347396%_ - _%g4739447399%_) - (cons _%g4739347396%_ - _%g4739447399%_)) + _%new-id48082%_))) + (foldr (lambda (_%g4808348086%_ + _%g4808448089%_) + (cons _%g4808348086%_ + _%g4808448089%_)) '() - _%L47348%_) - (foldr (lambda (_%g4740147404%_ - _%g4740247407%_) - (cons _%g4740147404%_ - _%g4740247407%_)) + _%g4792948038%_) + (foldr (lambda (_%g4809148094%_ + _%g4809248097%_) + (cons _%g4809148094%_ + _%g4809248097%_)) '() - _%L47346%_))) - (_%exports47413%_ + _%g4792848036%_))) + (_%exports48103%_ (gx#core-expand-export-source - _%L47349%_)) - (_%fold-e47441%_ - (letrec ((_%fold-e47416%_ - (lambda (_%out47419%_ - _%r47421%_) + _%g4793048039%_)) + (_%fold-e48131%_ + (letrec ((_%fold-e48106%_ + (lambda (_%out48109%_ + _%r48111%_) (if (gx#module-export? - _%out47419%_) - (let* ((_%name47425%_ + _%out48109%_) + (let* ((_%name48115%_ (gx#module-export-name ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%out47419%_)) - (_%$e47428%_ (hash-get _%keytab47384%_ _%name47425%_))) - (if _%$e47428%_ - ((lambda (_%rename47432%_) - (hash-put! _%found47387%_ _%name47425%_ '#t) + _%out48109%_)) + (_%$e48118%_ (hash-get _%keytab48074%_ _%name48115%_))) + (if _%$e48118%_ + ((lambda (_%rename48122%_) + (hash-put! _%found48077%_ _%name48115%_ '#t) (cons (|gerbil/core/module-sugar[1]#module-export-rename| - _%out47419%_ - _%rename47432%_) - _%r47421%_)) - _%$e47428%_) - (cons _%out47419%_ _%r47421%_))) - (if (gx#export-set? _%out47419%_) - (foldl _%fold-e47416%_ - _%r47421%_ - (gx#export-set-exports _%out47419%_)) - (cons _%out47419%_ _%r47421%_)))))) + _%out48109%_ + _%rename48122%_) + _%r48111%_)) + _%$e48118%_) + (cons _%out48109%_ _%r48111%_))) + (if (gx#export-set? _%out48109%_) + (foldl _%fold-e48106%_ + _%r48111%_ + (gx#export-set-exports _%out48109%_)) + (cons _%out48109%_ _%r48111%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e47416%_)) - (_%new-exports47444%_ - (foldl _%fold-e47441%_ + _%fold-e48106%_)) + (_%new-exports48134%_ + (foldl _%fold-e48131%_ '() - _%exports47413%_))) + _%exports48103%_))) (for-each - (lambda (_%id47449%_) + (lambda (_%id48139%_) (if (hash-get - _%found47387%_ - (gx#core-identifier-key _%id47449%_)) + _%found48077%_ + (gx#core-identifier-key _%id48139%_)) '#!void (gx#raise-syntax-error '#f '"bad syntax; identifier is not in the export set" - _%stx47229%_ - _%id47449%_))) - (foldr (lambda (_%g4745147454%_ - _%g4745247457%_) - (cons _%g4745147454%_ - _%g4745247457%_)) + _%stx47923%_ + _%id48139%_))) + (foldr (lambda (_%g4814148144%_ + _%g4814248147%_) + (cons _%g4814148144%_ + _%g4814248147%_)) '() - _%L47348%_)) - (cons 'begin: _%new-exports47444%_)) - (_%g4723247265%_ _%g4723347269%_))) - _%new-id4725247340%_ - _%id4725347343%_ - _%hd4724147286%_)))))) + _%g4792948038%_)) + (cons 'begin: _%new-exports48134%_)) + (_%g4792647959%_ _%g4792747963%_))) + _%new-id4794648032%_ + _%id4794748034%_ + _%hd4793547980%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4724647298%_ - _%target4724347292%_ + (_%loop4794047992%_ + _%target4793747986%_ '() '())) - (_%g4723247265%_ - _%g4723347269%_))))) - (_%g4723247265%_ _%g4723347269%_)))) - (_%g4723247265%_ _%g4723347269%_)))) - (_%g4723247265%_ _%g4723347269%_))))) - (_%g4723147460%_ _%stx47229%_))))) + (_%g4792647959%_ + _%g4792747963%_))))) + (_%g4792647959%_ _%g4792747963%_)))) + (_%g4792647959%_ _%g4792747963%_)))) + (_%g4792647959%_ _%g4792747963%_))))) + (_%g4792548150%_ _%stx47923%_))))) (define |gerbil/core/module-sugar[:0:]#prefix-out| (gx#make-export-expander - (lambda (_%stx47465%_) - (let* ((_%g4746847486%_ - (lambda (_%g4746947482%_) + (lambda (_%stx48155%_) + (let* ((_%g4815848176%_ + (lambda (_%g4815948172%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4746947482%_))) - (_%g4746747571%_ - (lambda (_%g4746947490%_) - (if (gx#stx-pair? _%g4746947490%_) - (let ((_%e4747247493%_ (gx#syntax-e _%g4746947490%_))) - (let ((_%hd4747347497%_ + _%g4815948172%_))) + (_%g4815748261%_ + (lambda (_%g4815948180%_) + (if (gx#stx-pair? _%g4815948180%_) + (let ((_%e4816248183%_ (gx#syntax-e _%g4815948180%_))) + (let ((_%hd4816348187%_ (let () (declare (not safe)) - (##car _%e4747247493%_))) - (_%tl4747447500%_ + (##car _%e4816248183%_))) + (_%tl4816448190%_ (let () (declare (not safe)) - (##cdr _%e4747247493%_)))) - (if (gx#stx-pair? _%tl4747447500%_) - (let ((_%e4747547503%_ - (gx#syntax-e _%tl4747447500%_))) - (let ((_%hd4747647507%_ + (##cdr _%e4816248183%_)))) + (if (gx#stx-pair? _%tl4816448190%_) + (let ((_%e4816548193%_ + (gx#syntax-e _%tl4816448190%_))) + (let ((_%hd4816648197%_ (let () (declare (not safe)) - (##car _%e4747547503%_))) - (_%tl4747747510%_ + (##car _%e4816548193%_))) + (_%tl4816748200%_ (let () (declare (not safe)) - (##cdr _%e4747547503%_)))) - (if (gx#stx-pair? _%tl4747747510%_) - (let ((_%e4747847513%_ - (gx#syntax-e _%tl4747747510%_))) - (let ((_%hd4747947517%_ + (##cdr _%e4816548193%_)))) + (if (gx#stx-pair? _%tl4816748200%_) + (let ((_%e4816848203%_ + (gx#syntax-e _%tl4816748200%_))) + (let ((_%hd4816948207%_ (let () (declare (not safe)) - (##car _%e4747847513%_))) - (_%tl4748047520%_ + (##car _%e4816848203%_))) + (_%tl4817048210%_ (let () (declare (not safe)) - (##cdr _%e4747847513%_)))) - (if (gx#stx-null? _%tl4748047520%_) - ((lambda (_%L47523%_ _%L47525%_) - (if (gx#identifier? _%L47523%_) - (let* ((_%pre47541%_ + (##cdr _%e4816848203%_)))) + (if (gx#stx-null? _%tl4817048210%_) + ((lambda (_%g4816048213%_ + _%g4816148215%_) + (if (gx#identifier? + _%g4816048213%_) + (let* ((_%pre48231%_ (gx#stx-e - _%L47523%_)) - (_%exports47544%_ + _%g4816048213%_)) + (_%exports48234%_ (gx#core-expand-export-source - _%L47525%_)) - (_%rename-e47550%_ - (lambda (_%name47547%_) + _%g4816148215%_)) + (_%rename-e48240%_ + (lambda (_%name48237%_) (|gerbil/core/module-sugar[1]#prefix-identifier-key| - _%name47547%_ - _%pre47541%_))) - (_%fold-e47566%_ - (letrec ((_%fold-e47553%_ + _%name48237%_ + _%pre48231%_))) + (_%fold-e48256%_ + (letrec ((_%fold-e48243%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%out47556%_ _%r47558%_) - (if (gx#module-export? _%out47556%_) + (lambda (_%out48246%_ _%r48248%_) + (if (gx#module-export? _%out48246%_) (cons (|gerbil/core/module-sugar[1]#module-export-rename| - _%out47556%_ - (_%rename-e47550%_ + _%out48246%_ + (_%rename-e48240%_ (gx#module-export-name - _%out47556%_))) - _%r47558%_) - (if (gx#export-set? _%out47556%_) - (foldl _%fold-e47553%_ - _%r47558%_ + _%out48246%_))) + _%r48248%_) + (if (gx#export-set? _%out48246%_) + (foldl _%fold-e48243%_ + _%r48248%_ (gx#export-set-exports - _%out47556%_)) - (cons _%out47556%_ _%r47558%_)))))) - _%fold-e47553%_))) - (cons 'begin: (foldl _%fold-e47566%_ '() _%exports47544%_))) + _%out48246%_)) + (cons _%out48246%_ _%r48248%_)))))) + _%fold-e48243%_))) + (cons 'begin: (foldl _%fold-e48256%_ '() _%exports48234%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4746847486%_ - _%g4746947490%_))) - _%hd4747947517%_ - _%hd4747647507%_) - (_%g4746847486%_ - _%g4746947490%_)))) - (_%g4746847486%_ _%g4746947490%_)))) - (_%g4746847486%_ _%g4746947490%_)))) - (_%g4746847486%_ _%g4746947490%_))))) - (_%g4746747571%_ _%stx47465%_))))) + (_%g4815848176%_ + _%g4815948180%_))) + _%hd4816948207%_ + _%hd4816648197%_) + (_%g4815848176%_ + _%g4815948180%_)))) + (_%g4815848176%_ _%g4815948180%_)))) + (_%g4815848176%_ _%g4815948180%_)))) + (_%g4815848176%_ _%g4815948180%_))))) + (_%g4815748261%_ _%stx48155%_))))) (define |gerbil/core/module-sugar[:0:]#struct-out| (gx#make-export-expander - (lambda (_%stx47575%_) - (letrec ((_%identifiers47578%_ - (lambda (_%id47810%_ _%unchecked?47812%_) - (let ((_%info47814%_ - (gx#syntax-local-value _%id47810%_ false))) + (lambda (_%stx48265%_) + (letrec ((_%identifiers48268%_ + (lambda (_%id48496%_ _%unchecked?48498%_) + (let ((_%info48500%_ + (gx#syntax-local-value _%id48496%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%info47814%_)) - (cons _%id47810%_ - (cons (let ((__obj48111 _%info47814%_)) + _%info48500%_)) + (cons _%id48496%_ + (cons (let ((__obj48797 _%info48500%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj48111 + __obj48797 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj48111 - '12 + __obj48797 + '3 '#f '#f)) (unchecked-slot-ref - __obj48111 + __obj48797 'type-descriptor))) (foldr cons - (cons (let ((__obj48112 - _%info47814%_)) + (cons (let ((__obj48798 + _%info48500%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj48112 + __obj48798 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj48112 + __obj48798 '14 '#f '#f)) (unchecked-slot-ref - __obj48112 + __obj48798 'predicate))) (foldr cons (foldr cons - (if _%unchecked?47812%_ + (if _%unchecked?48498%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (foldr cons (map cdr - (let ((__obj48113 _%info47814%_)) + (let ((__obj48799 _%info48500%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj48113 + __obj48799 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj48113 + __obj48799 '18 '#f '#f)) (unchecked-slot-ref - __obj48113 + __obj48799 'unchecked-mutators)))) (map cdr - (let ((__obj48114 _%info47814%_)) + (let ((__obj48800 _%info48500%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj48114 + __obj48800 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj48114 + __obj48800 '17 '#f '#f)) (unchecked-slot-ref - __obj48114 + __obj48800 'unchecked-accessors))))) '()) (map cdr - (let ((__obj48115 _%info47814%_)) + (let ((__obj48801 _%info48500%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj48115 + __obj48801 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj48115 + __obj48801 '16 '#f '#f)) (unchecked-slot-ref - __obj48115 + __obj48801 'mutators))))) (map cdr - (let ((__obj48116 _%info47814%_)) + (let ((__obj48802 _%info48500%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj48116 + __obj48802 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj48116 + __obj48802 '15 '#f '#f)) - (unchecked-slot-ref __obj48116 'accessors)))))) + (unchecked-slot-ref __obj48802 'accessors)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%ctor47817%_ - (let ((__obj48117 - _%info47814%_)) + (let ((_%ctor48503%_ + (let ((__obj48803 + _%info48500%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj48117 + __obj48803 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj48117 + __obj48803 '13 '#f '#f)) (unchecked-slot-ref - __obj48117 + __obj48803 'constructor))))) - (if _%ctor47817%_ - (cons _%ctor47817%_ '()) + (if _%ctor48503%_ + (cons _%ctor48503%_ '()) '()))))) (gx#raise-syntax-error '#f '"no class type info" - _%stx47575%_ - _%id47810%_)))))) - (let* ((_%__stx4805248053%_ _%stx47575%_) - (_%g4758247623%_ + _%stx48265%_ + _%id48496%_)))))) + (let* ((_%__stx4873848739%_ _%stx48265%_) + (_%g4827248313%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4805248053%_)))) - (let ((_%__kont4805548056%_ - (lambda (_%L47771%_ _%L47773%_) + _%__stx4873848739%_)))) + (let ((_%__kont4874148742%_ + (lambda (_%g4827448457%_ _%g4827548459%_) (cons 'begin: (concatenate (gx#stx-map - (lambda (_%g4779247794%_) - (_%identifiers47578%_ - _%g4779247794%_ - (gx#stx-e _%L47773%_))) - (foldr (lambda (_%g4779747800%_ _%g4779847803%_) - (cons _%g4779747800%_ _%g4779847803%_)) + (lambda (_%g4847848480%_) + (_%identifiers48268%_ + _%g4847848480%_ + (gx#stx-e _%g4827548459%_))) + (foldr (lambda (_%g4848348486%_ _%g4848448489%_) + (cons _%g4848348486%_ _%g4848448489%_)) '() - _%L47771%_)))))) - (_%__kont4805948060%_ - (lambda (_%L47670%_) + _%g4827448457%_)))))) + (_%__kont4874548746%_ + (lambda (_%g4829548358%_) (cons 'begin: (concatenate (gx#stx-map - (lambda (_%g4768647688%_) - (_%identifiers47578%_ _%g4768647688%_ '#f)) - (foldr (lambda (_%g4769147694%_ _%g4769247697%_) - (cons _%g4769147694%_ _%g4769247697%_)) + (lambda (_%g4837448376%_) + (_%identifiers48268%_ _%g4837448376%_ '#f)) + (foldr (lambda (_%g4837948382%_ _%g4838048385%_) + (cons _%g4837948382%_ _%g4838048385%_)) '() - _%L47670%_))))))) - (let* ((_%__match4810948110%_ - (lambda (_%e4760647630%_ - _%hd4760747634%_ - _%tl4760847637%_ - _%__splice4806148062%_ - _%target4760947640%_ - _%tl4761147643%_) - (letrec ((_%loop4761247646%_ - (lambda (_%hd4761047650%_ _%id4761647653%_) - (if (gx#stx-pair? _%hd4761047650%_) - (let ((_%e4761347656%_ - (gx#syntax-e _%hd4761047650%_))) - (let ((_%lp-tl4761547663%_ + _%g4829548358%_))))))) + (let* ((_%__match4879548796%_ + (lambda (_%e4829648320%_ + _%hd4829748324%_ + _%tl4829848327%_ + _%__splice4874748748%_ + _%target4829948330%_ + _%tl4830148333%_) + (letrec ((_%loop4830248336%_ + (lambda (_%hd4830048340%_ _%id4830648343%_) + (if (gx#stx-pair? _%hd4830048340%_) + (let ((_%e4830348345%_ + (gx#syntax-e _%hd4830048340%_))) + (let ((_%lp-tl4830548352%_ (let () (declare (not safe)) - (##cdr _%e4761347656%_))) - (_%lp-hd4761447660%_ + (##cdr _%e4830348345%_))) + (_%lp-hd4830448349%_ (let () (declare (not safe)) - (##car _%e4761347656%_)))) - (_%loop4761247646%_ - _%lp-tl4761547663%_ - (cons _%lp-hd4761447660%_ - _%id4761647653%_)))) - (let ((_%id4761747666%_ - (reverse _%id4761647653%_))) - (_%__kont4805948060%_ - _%id4761747666%_)))))) - (_%loop4761247646%_ _%target4760947640%_ '())))) - (_%__match4809548096%_ - (lambda (_%e4758647707%_ - _%hd4758747711%_ - _%tl4758847714%_ - _%e4758947717%_ - _%hd4759047721%_ - _%tl4759147724%_ - _%e4759247727%_ - _%e4759347731%_ - _%hd4759447735%_ - _%tl4759547738%_ - _%__splice4805748058%_ - _%target4759647741%_ - _%tl4759847744%_) - (letrec ((_%loop4759947747%_ - (lambda (_%hd4759747751%_ _%id4760347754%_) - (if (gx#stx-pair? _%hd4759747751%_) - (let ((_%e4760047757%_ - (gx#syntax-e _%hd4759747751%_))) - (let ((_%lp-tl4760247764%_ + (##car _%e4830348345%_)))) + (_%loop4830248336%_ + _%lp-tl4830548352%_ + (cons _%lp-hd4830448349%_ + _%id4830648343%_)))) + (let ((_%id4830748355%_ + (reverse _%id4830648343%_))) + (_%__kont4874548746%_ + _%id4830748355%_)))))) + (_%loop4830248336%_ _%target4829948330%_ '())))) + (_%__match4878148782%_ + (lambda (_%e4827648395%_ + _%hd4827748399%_ + _%tl4827848402%_ + _%e4827948405%_ + _%hd4828048409%_ + _%tl4828148412%_ + _%e4828248415%_ + _%e4828348419%_ + _%hd4828448423%_ + _%tl4828548426%_ + _%__splice4874348744%_ + _%target4828648429%_ + _%tl4828848432%_) + (letrec ((_%loop4828948435%_ + (lambda (_%hd4828748439%_ _%id4829348442%_) + (if (gx#stx-pair? _%hd4828748439%_) + (let ((_%e4829048444%_ + (gx#syntax-e _%hd4828748439%_))) + (let ((_%lp-tl4829248451%_ (let () (declare (not safe)) - (##cdr _%e4760047757%_))) - (_%lp-hd4760147761%_ + (##cdr _%e4829048444%_))) + (_%lp-hd4829148448%_ (let () (declare (not safe)) - (##car _%e4760047757%_)))) - (_%loop4759947747%_ - _%lp-tl4760247764%_ - (cons _%lp-hd4760147761%_ - _%id4760347754%_)))) - (let ((_%id4760447767%_ - (reverse _%id4760347754%_))) - (_%__kont4805548056%_ - _%id4760447767%_ - _%hd4759447735%_)))))) - (_%loop4759947747%_ _%target4759647741%_ '()))))) - (if (gx#stx-pair? _%__stx4805248053%_) - (let ((_%e4758647707%_ (gx#syntax-e _%__stx4805248053%_))) - (let ((_%tl4758847714%_ + (##car _%e4829048444%_)))) + (_%loop4828948435%_ + _%lp-tl4829248451%_ + (cons _%lp-hd4829148448%_ + _%id4829348442%_)))) + (let ((_%id4829448454%_ + (reverse _%id4829348442%_))) + (_%__kont4874148742%_ + _%id4829448454%_ + _%hd4828448423%_)))))) + (_%loop4828948435%_ _%target4828648429%_ '()))))) + (if (gx#stx-pair? _%__stx4873848739%_) + (let ((_%e4827648395%_ (gx#syntax-e _%__stx4873848739%_))) + (let ((_%tl4827848402%_ (let () (declare (not safe)) - (##cdr _%e4758647707%_))) - (_%hd4758747711%_ + (##cdr _%e4827648395%_))) + (_%hd4827748399%_ (let () (declare (not safe)) - (##car _%e4758647707%_)))) - (if (gx#stx-pair? _%tl4758847714%_) - (let ((_%e4758947717%_ - (gx#syntax-e _%tl4758847714%_))) - (let ((_%tl4759147724%_ + (##car _%e4827648395%_)))) + (if (gx#stx-pair? _%tl4827848402%_) + (let ((_%e4827948405%_ + (gx#syntax-e _%tl4827848402%_))) + (let ((_%tl4828148412%_ (let () (declare (not safe)) - (##cdr _%e4758947717%_))) - (_%hd4759047721%_ + (##cdr _%e4827948405%_))) + (_%hd4828048409%_ (let () (declare (not safe)) - (##car _%e4758947717%_)))) - (if (gx#stx-datum? _%hd4759047721%_) - (let ((_%e4759247727%_ - (gx#stx-e _%hd4759047721%_))) - (if (equal? _%e4759247727%_ 'unchecked:) - (if (gx#stx-pair? _%tl4759147724%_) - (let ((_%e4759347731%_ + (##car _%e4827948405%_)))) + (if (gx#stx-datum? _%hd4828048409%_) + (let ((_%e4828248415%_ + (gx#stx-e _%hd4828048409%_))) + (if (equal? _%e4828248415%_ 'unchecked:) + (if (gx#stx-pair? _%tl4828148412%_) + (let ((_%e4828348419%_ (gx#syntax-e - _%tl4759147724%_))) - (let ((_%tl4759547738%_ + _%tl4828148412%_))) + (let ((_%tl4828548426%_ (let () (declare (not safe)) - (##cdr _%e4759347731%_))) - (_%hd4759447735%_ + (##cdr _%e4828348419%_))) + (_%hd4828448423%_ (let () (declare (not safe)) - (##car _%e4759347731%_)))) + (##car _%e4828348419%_)))) (if (gx#stx-pair/null? - _%tl4759547738%_) - (let ((_%__splice4805748058%_ + _%tl4828548426%_) + (let ((_%__splice4874348744%_ (gx#syntax-split-splice->vector - _%tl4759547738%_ + _%tl4828548426%_ '0))) - (let ((_%tl4759847744%_ + (let ((_%tl4828848432%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4805748058%_ '1))) - (_%target4759647741%_ + (##vector-ref _%__splice4874348744%_ '1))) + (_%target4828648429%_ (let () (declare (not safe)) - (##vector-ref _%__splice4805748058%_ '0)))) - (if (gx#stx-null? _%tl4759847744%_) - (_%__match4809548096%_ - _%e4758647707%_ - _%hd4758747711%_ - _%tl4758847714%_ - _%e4758947717%_ - _%hd4759047721%_ - _%tl4759147724%_ - _%e4759247727%_ - _%e4759347731%_ - _%hd4759447735%_ - _%tl4759547738%_ - _%__splice4805748058%_ - _%target4759647741%_ - _%tl4759847744%_) - (if (gx#stx-pair/null? _%tl4758847714%_) - (let ((_%__splice4806148062%_ + (##vector-ref _%__splice4874348744%_ '0)))) + (if (gx#stx-null? _%tl4828848432%_) + (_%__match4878148782%_ + _%e4827648395%_ + _%hd4827748399%_ + _%tl4827848402%_ + _%e4827948405%_ + _%hd4828048409%_ + _%tl4828148412%_ + _%e4828248415%_ + _%e4828348419%_ + _%hd4828448423%_ + _%tl4828548426%_ + _%__splice4874348744%_ + _%target4828648429%_ + _%tl4828848432%_) + (if (gx#stx-pair/null? _%tl4827848402%_) + (let ((_%__splice4874748748%_ (gx#syntax-split-splice->vector - _%tl4758847714%_ + _%tl4827848402%_ '0))) - (let ((_%tl4761147643%_ + (let ((_%tl4830148333%_ (let () (declare (not safe)) - (##vector-ref _%__splice4806148062%_ '1))) - (_%target4760947640%_ + (##vector-ref _%__splice4874748748%_ '1))) + (_%target4829948330%_ (let () (declare (not safe)) - (##vector-ref _%__splice4806148062%_ '0)))) - (if (gx#stx-null? _%tl4761147643%_) - (_%__match4810948110%_ - _%e4758647707%_ - _%hd4758747711%_ - _%tl4758847714%_ - _%__splice4806148062%_ - _%target4760947640%_ - _%tl4761147643%_) + (##vector-ref _%__splice4874748748%_ '0)))) + (if (gx#stx-null? _%tl4830148333%_) + (_%__match4879548796%_ + _%e4827648395%_ + _%hd4827748399%_ + _%tl4827848402%_ + _%__splice4874748748%_ + _%target4829948330%_ + _%tl4830148333%_) (let () (declare (not safe)) - (_%g4758247623%_))))) - (let () (declare (not safe)) (_%g4758247623%_)))))) + (_%g4827248313%_))))) + (let () (declare (not safe)) (_%g4827248313%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl4758847714%_) - (let ((_%__splice4806148062%_ + _%tl4827848402%_) + (let ((_%__splice4874748748%_ (gx#syntax-split-splice->vector ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl4758847714%_ + _%tl4827848402%_ '0))) - (let ((_%tl4761147643%_ + (let ((_%tl4830148333%_ (let () (declare (not safe)) - (##vector-ref _%__splice4806148062%_ '1))) - (_%target4760947640%_ + (##vector-ref _%__splice4874748748%_ '1))) + (_%target4829948330%_ (let () (declare (not safe)) - (##vector-ref _%__splice4806148062%_ '0)))) - (if (gx#stx-null? _%tl4761147643%_) - (_%__match4810948110%_ - _%e4758647707%_ - _%hd4758747711%_ - _%tl4758847714%_ - _%__splice4806148062%_ - _%target4760947640%_ - _%tl4761147643%_) - (let () (declare (not safe)) (_%g4758247623%_))))) - (let () (declare (not safe)) (_%g4758247623%_)))))) + (##vector-ref _%__splice4874748748%_ '0)))) + (if (gx#stx-null? _%tl4830148333%_) + (_%__match4879548796%_ + _%e4827648395%_ + _%hd4827748399%_ + _%tl4827848402%_ + _%__splice4874748748%_ + _%target4829948330%_ + _%tl4830148333%_) + (let () (declare (not safe)) (_%g4827248313%_))))) + (let () (declare (not safe)) (_%g4827248313%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl4758847714%_) - (let ((_%__splice4806148062%_ + _%tl4827848402%_) + (let ((_%__splice4874748748%_ (gx#syntax-split-splice->vector - _%tl4758847714%_ + _%tl4827848402%_ '0))) - (let ((_%tl4761147643%_ + (let ((_%tl4830148333%_ (let () (declare (not safe)) (##vector-ref - _%__splice4806148062%_ + _%__splice4874748748%_ '1))) - (_%target4760947640%_ + (_%target4829948330%_ (let () (declare (not safe)) (##vector-ref - _%__splice4806148062%_ + _%__splice4874748748%_ '0)))) (if (gx#stx-null? - _%tl4761147643%_) - (_%__match4810948110%_ - _%e4758647707%_ - _%hd4758747711%_ - _%tl4758847714%_ - _%__splice4806148062%_ - _%target4760947640%_ - _%tl4761147643%_) + _%tl4830148333%_) + (_%__match4879548796%_ + _%e4827648395%_ + _%hd4827748399%_ + _%tl4827848402%_ + _%__splice4874748748%_ + _%target4829948330%_ + _%tl4830148333%_) (let () (declare (not safe)) - (_%g4758247623%_))))) + (_%g4827248313%_))))) (let () (declare (not safe)) - (_%g4758247623%_)))) + (_%g4827248313%_)))) (if (gx#stx-pair/null? - _%tl4758847714%_) - (let ((_%__splice4806148062%_ + _%tl4827848402%_) + (let ((_%__splice4874748748%_ (gx#syntax-split-splice->vector - _%tl4758847714%_ + _%tl4827848402%_ '0))) - (let ((_%tl4761147643%_ + (let ((_%tl4830148333%_ (let () (declare (not safe)) (##vector-ref - _%__splice4806148062%_ + _%__splice4874748748%_ '1))) - (_%target4760947640%_ + (_%target4829948330%_ (let () (declare (not safe)) (##vector-ref - _%__splice4806148062%_ + _%__splice4874748748%_ '0)))) (if (gx#stx-null? - _%tl4761147643%_) - (_%__match4810948110%_ - _%e4758647707%_ - _%hd4758747711%_ - _%tl4758847714%_ - _%__splice4806148062%_ - _%target4760947640%_ - _%tl4761147643%_) + _%tl4830148333%_) + (_%__match4879548796%_ + _%e4827648395%_ + _%hd4827748399%_ + _%tl4827848402%_ + _%__splice4874748748%_ + _%target4829948330%_ + _%tl4830148333%_) (let () (declare (not safe)) - (_%g4758247623%_))))) + (_%g4827248313%_))))) (let () (declare (not safe)) - (_%g4758247623%_))))) - (if (gx#stx-pair/null? _%tl4758847714%_) - (let ((_%__splice4806148062%_ + (_%g4827248313%_))))) + (if (gx#stx-pair/null? _%tl4827848402%_) + (let ((_%__splice4874748748%_ (gx#syntax-split-splice->vector - _%tl4758847714%_ + _%tl4827848402%_ '0))) - (let ((_%tl4761147643%_ + (let ((_%tl4830148333%_ (let () (declare (not safe)) (##vector-ref - _%__splice4806148062%_ + _%__splice4874748748%_ '1))) - (_%target4760947640%_ + (_%target4829948330%_ (let () (declare (not safe)) (##vector-ref - _%__splice4806148062%_ + _%__splice4874748748%_ '0)))) - (if (gx#stx-null? _%tl4761147643%_) - (_%__match4810948110%_ - _%e4758647707%_ - _%hd4758747711%_ - _%tl4758847714%_ - _%__splice4806148062%_ - _%target4760947640%_ - _%tl4761147643%_) + (if (gx#stx-null? _%tl4830148333%_) + (_%__match4879548796%_ + _%e4827648395%_ + _%hd4827748399%_ + _%tl4827848402%_ + _%__splice4874748748%_ + _%target4829948330%_ + _%tl4830148333%_) (let () (declare (not safe)) - (_%g4758247623%_))))) + (_%g4827248313%_))))) (let () (declare (not safe)) - (_%g4758247623%_)))))) - (if (gx#stx-pair/null? _%tl4758847714%_) - (let ((_%__splice4806148062%_ + (_%g4827248313%_)))))) + (if (gx#stx-pair/null? _%tl4827848402%_) + (let ((_%__splice4874748748%_ (gx#syntax-split-splice->vector - _%tl4758847714%_ + _%tl4827848402%_ '0))) - (let ((_%tl4761147643%_ + (let ((_%tl4830148333%_ (let () (declare (not safe)) (##vector-ref - _%__splice4806148062%_ + _%__splice4874748748%_ '1))) - (_%target4760947640%_ + (_%target4829948330%_ (let () (declare (not safe)) (##vector-ref - _%__splice4806148062%_ + _%__splice4874748748%_ '0)))) - (if (gx#stx-null? _%tl4761147643%_) - (_%__match4810948110%_ - _%e4758647707%_ - _%hd4758747711%_ - _%tl4758847714%_ - _%__splice4806148062%_ - _%target4760947640%_ - _%tl4761147643%_) + (if (gx#stx-null? _%tl4830148333%_) + (_%__match4879548796%_ + _%e4827648395%_ + _%hd4827748399%_ + _%tl4827848402%_ + _%__splice4874748748%_ + _%target4829948330%_ + _%tl4830148333%_) (let () (declare (not safe)) - (_%g4758247623%_))))) + (_%g4827248313%_))))) (let () (declare (not safe)) - (_%g4758247623%_)))))) - (let () (declare (not safe)) (_%g4758247623%_))))))))))) + (_%g4827248313%_)))))) + (let () (declare (not safe)) (_%g4827248313%_))))))))))) diff --git a/src/bootstrap/gerbil/core/mop.ssi b/src/bootstrap/gerbil/core/mop.ssi index cba5b6c94e..f72bdf9337 100644 --- a/src/bootstrap/gerbil/core/mop.ssi +++ b/src/bootstrap/gerbil/core/mop.ssi @@ -45,6 +45,51 @@ namespace: gerbil/core/mop MOP-2 (%#begin (%#import :gerbil/core/expander (in: #f MOP-1)) (%#export #t) + (%#define-runtime + runtime-type-info::t + gerbil/core/mop~MOP-2#runtime-type-info::t) + (%#define-runtime + runtime-type-info? + gerbil/core/mop~MOP-2#runtime-type-info?) + (%#define-runtime + make-runtime-type-info + gerbil/core/mop~MOP-2#make-runtime-type-info) + (%#define-runtime + !runtime-type-id + gerbil/core/mop~MOP-2#!runtime-type-id) + (%#define-runtime + !runtime-type-name + gerbil/core/mop~MOP-2#!runtime-type-name) + (%#define-runtime + !runtime-type-descriptor + gerbil/core/mop~MOP-2#!runtime-type-descriptor) + (%#define-runtime + !runtime-type-id-set! + gerbil/core/mop~MOP-2#!runtime-type-id-set!) + (%#define-runtime + !runtime-type-name-set! + gerbil/core/mop~MOP-2#!runtime-type-name-set!) + (%#define-runtime + !runtime-type-descriptor-set! + gerbil/core/mop~MOP-2#!runtime-type-descriptor-set!) + (%#define-runtime + &!runtime-type-id + gerbil/core/mop~MOP-2#&!runtime-type-id) + (%#define-runtime + &!runtime-type-name + gerbil/core/mop~MOP-2#&!runtime-type-name) + (%#define-runtime + &!runtime-type-descriptor + gerbil/core/mop~MOP-2#&!runtime-type-descriptor) + (%#define-runtime + &!runtime-type-id-set! + gerbil/core/mop~MOP-2#&!runtime-type-id-set!) + (%#define-runtime + &!runtime-type-name-set! + gerbil/core/mop~MOP-2#&!runtime-type-name-set!) + (%#define-runtime + &!runtime-type-descriptor-set! + gerbil/core/mop~MOP-2#&!runtime-type-descriptor-set!) (%#define-runtime class-type-info::t gerbil/core/mop~MOP-2#class-type-info::t) @@ -54,12 +99,6 @@ namespace: gerbil/core/mop (%#define-runtime make-class-type-info gerbil/core/mop~MOP-2#make-class-type-info) - (%#define-runtime - !class-type-id - gerbil/core/mop~MOP-2#!class-type-id) - (%#define-runtime - !class-type-name - gerbil/core/mop~MOP-2#!class-type-name) (%#define-runtime !class-type-super gerbil/core/mop~MOP-2#!class-type-super) @@ -87,9 +126,6 @@ namespace: gerbil/core/mop (%#define-runtime !class-type-constructor-method gerbil/core/mop~MOP-2#!class-type-constructor-method) - (%#define-runtime - !class-type-descriptor - gerbil/core/mop~MOP-2#!class-type-descriptor) (%#define-runtime !class-type-constructor gerbil/core/mop~MOP-2#!class-type-constructor) @@ -118,11 +154,14 @@ namespace: gerbil/core/mop !class-type-slot-contracts gerbil/core/mop~MOP-2#!class-type-slot-contracts) (%#define-runtime - !class-type-id-set! - gerbil/core/mop~MOP-2#!class-type-id-set!) + !class-type-id + gerbil/core/mop~MOP-2#!class-type-id) (%#define-runtime - !class-type-name-set! - gerbil/core/mop~MOP-2#!class-type-name-set!) + !class-type-name + gerbil/core/mop~MOP-2#!class-type-name) + (%#define-runtime + !class-type-descriptor + gerbil/core/mop~MOP-2#!class-type-descriptor) (%#define-runtime !class-type-super-set! gerbil/core/mop~MOP-2#!class-type-super-set!) @@ -150,9 +189,6 @@ namespace: gerbil/core/mop (%#define-runtime !class-type-constructor-method-set! gerbil/core/mop~MOP-2#!class-type-constructor-method-set!) - (%#define-runtime - !class-type-descriptor-set! - gerbil/core/mop~MOP-2#!class-type-descriptor-set!) (%#define-runtime !class-type-constructor-set! gerbil/core/mop~MOP-2#!class-type-constructor-set!) @@ -181,11 +217,14 @@ namespace: gerbil/core/mop !class-type-slot-contracts-set! gerbil/core/mop~MOP-2#!class-type-slot-contracts-set!) (%#define-runtime - &!class-type-id - gerbil/core/mop~MOP-2#&!class-type-id) + !class-type-id-set! + gerbil/core/mop~MOP-2#!class-type-id-set!) (%#define-runtime - &!class-type-name - gerbil/core/mop~MOP-2#&!class-type-name) + !class-type-name-set! + gerbil/core/mop~MOP-2#!class-type-name-set!) + (%#define-runtime + !class-type-descriptor-set! + gerbil/core/mop~MOP-2#!class-type-descriptor-set!) (%#define-runtime &!class-type-super gerbil/core/mop~MOP-2#&!class-type-super) @@ -213,9 +252,6 @@ namespace: gerbil/core/mop (%#define-runtime &!class-type-constructor-method gerbil/core/mop~MOP-2#&!class-type-constructor-method) - (%#define-runtime - &!class-type-descriptor - gerbil/core/mop~MOP-2#&!class-type-descriptor) (%#define-runtime &!class-type-constructor gerbil/core/mop~MOP-2#&!class-type-constructor) @@ -244,11 +280,14 @@ namespace: gerbil/core/mop &!class-type-slot-contracts gerbil/core/mop~MOP-2#&!class-type-slot-contracts) (%#define-runtime - &!class-type-id-set! - gerbil/core/mop~MOP-2#&!class-type-id-set!) + &!class-type-id + gerbil/core/mop~MOP-2#&!class-type-id) (%#define-runtime - &!class-type-name-set! - gerbil/core/mop~MOP-2#&!class-type-name-set!) + &!class-type-name + gerbil/core/mop~MOP-2#&!class-type-name) + (%#define-runtime + &!class-type-descriptor + gerbil/core/mop~MOP-2#&!class-type-descriptor) (%#define-runtime &!class-type-super-set! gerbil/core/mop~MOP-2#&!class-type-super-set!) @@ -276,9 +315,6 @@ namespace: gerbil/core/mop (%#define-runtime &!class-type-constructor-method-set! gerbil/core/mop~MOP-2#&!class-type-constructor-method-set!) - (%#define-runtime - &!class-type-descriptor-set! - gerbil/core/mop~MOP-2#&!class-type-descriptor-set!) (%#define-runtime &!class-type-constructor-set! gerbil/core/mop~MOP-2#&!class-type-constructor-set!) @@ -306,9 +342,27 @@ namespace: gerbil/core/mop (%#define-runtime &!class-type-slot-contracts-set! gerbil/core/mop~MOP-2#&!class-type-slot-contracts-set!) + (%#define-runtime + &!class-type-id-set! + gerbil/core/mop~MOP-2#&!class-type-id-set!) + (%#define-runtime + &!class-type-name-set! + gerbil/core/mop~MOP-2#&!class-type-name-set!) + (%#define-runtime + &!class-type-descriptor-set! + gerbil/core/mop~MOP-2#&!class-type-descriptor-set!) (%#define-runtime class-type-info::apply-macro-expander gerbil/core/mop~MOP-2#class-type-info::apply-macro-expander) + (%#begin (%#define-runtime + syntax-local-runtime-type-info?__% + gerbil/core/mop~MOP-2#syntax-local-runtime-type-info?__%) + (%#begin (%#define-runtime + syntax-local-runtime-type-info?__0 + gerbil/core/mop~MOP-2#syntax-local-runtime-type-info?__0) + (%#define-runtime + syntax-local-runtime-type-info? + gerbil/core/mop~MOP-2#syntax-local-runtime-type-info?))) (%#begin (%#define-runtime syntax-local-class-type-info?__% gerbil/core/mop~MOP-2#syntax-local-class-type-info?__%) @@ -327,8 +381,11 @@ namespace: gerbil/core/mop (%#call (%#ref load-module) (%#quote "gerbil/core/mop~2"))) (%#define-syntax - class-type-info - |gerbil/core/mop~MOP-3[:0:]#class-type-info|)))) + runtime-type-info + |gerbil/core/mop~MOP-3[:0:]#runtime-type-info|)) + (%#define-syntax + class-type-info + |gerbil/core/mop~MOP-3[:0:]#class-type-info|))) (%#module MOP-4 (%#begin (%#import @@ -379,21 +436,48 @@ namespace: gerbil/core/mop (%#define-syntax :object |gerbil/core/mop~MOP-5[:0:]#:object|) + (%#define-syntax + :builtin + |gerbil/core/mop~MOP-5[:0:]#:builtin|) + (%#define-syntax + :subtyped + |gerbil/core/mop~MOP-5[:0:]#:subtyped|) + (%#define-syntax + :structure + |gerbil/core/mop~MOP-5[:0:]#:structure|) (%#define-syntax :immediate |gerbil/core/mop~MOP-5[:0:]#:immediate|) + (%#define-syntax + :special + |gerbil/core/mop~MOP-5[:0:]#:special|) + (%#define-syntax :atom |gerbil/core/mop~MOP-5[:0:]#:atom|) (%#define-syntax :char |gerbil/core/mop~MOP-5[:0:]#:char|) (%#define-syntax :boolean |gerbil/core/mop~MOP-5[:0:]#:boolean|) - (%#define-syntax :atom |gerbil/core/mop~MOP-5[:0:]#:atom|) - (%#define-syntax :void |gerbil/core/mop~MOP-5[:0:]#:void|) - (%#define-syntax :eof |gerbil/core/mop~MOP-5[:0:]#:eof|) (%#define-syntax :true |gerbil/core/mop~MOP-5[:0:]#:true|) (%#define-syntax :false |gerbil/core/mop~MOP-5[:0:]#:false|) + (%#define-syntax :eof |gerbil/core/mop~MOP-5[:0:]#:eof|) + (%#define-syntax :void |gerbil/core/mop~MOP-5[:0:]#:void|) (%#define-syntax - :special - |gerbil/core/mop~MOP-5[:0:]#:special|) + :unbound + |gerbil/core/mop~MOP-5[:0:]#:unbound|) + (%#define-syntax + :unbound2 + |gerbil/core/mop~MOP-5[:0:]#:unbound2|) + (%#define-syntax + :dssl-token + |gerbil/core/mop~MOP-5[:0:]#:dssl-token|) + (%#define-syntax + :dssl-optional + |gerbil/core/mop~MOP-5[:0:]#:dssl-optional|) + (%#define-syntax + :dssl-rest + |gerbil/core/mop~MOP-5[:0:]#:dssl-rest|) + (%#define-syntax + :dssl-key + |gerbil/core/mop~MOP-5[:0:]#:dssl-key|) (%#define-syntax :number |gerbil/core/mop~MOP-5[:0:]#:number|) @@ -413,6 +497,12 @@ namespace: gerbil/core/mop (%#define-syntax :flonum |gerbil/core/mop~MOP-5[:0:]#:flonum|) + (%#define-syntax + :stflonum + |gerbil/core/mop~MOP-5[:0:]#:stflonum|) + (%#define-syntax + :haflonum + |gerbil/core/mop~MOP-5[:0:]#:haflonum|) (%#define-syntax :cpxnum |gerbil/core/mop~MOP-5[:0:]#:cpxnum|) @@ -488,7 +578,9 @@ namespace: gerbil/core/mop (%#define-syntax :procedure |gerbil/core/mop~MOP-5[:0:]#:procedure|) - (%#define-syntax :time |gerbil/core/mop~MOP-5[:0:]#:time|) + (%#define-syntax + :return + |gerbil/core/mop~MOP-5[:0:]#:return|) (%#define-syntax :thread |gerbil/core/mop~MOP-5[:0:]#:thread|) diff --git a/src/bootstrap/gerbil/core/mop.ssxi.ss b/src/bootstrap/gerbil/core/mop.ssxi.ss index 6b7ddf1541..33ab82cebc 100644 --- a/src/bootstrap/gerbil/core/mop.ssxi.ss +++ b/src/bootstrap/gerbil/core/mop.ssxi.ss @@ -48,31 +48,89 @@ package: gerbil/core origin: gerbil/core/mop~MOP-1))) (declare-class - gerbil/core/mop~MOP-2#class-type-info::t - (@class gerbil.core#class-type-info::t + gerbil/core/mop~MOP-2#runtime-type-info::t + (@class gerbil.core#runtime-type-info::t () (object::t t::t) + (id name type-descriptor) + (id name type-descriptor) + #f + #f + #f + #f + #f + #f)) + (declare-type + gerbil/core/mop~MOP-2#runtime-type-info::t + (optimizer-resolve-class + '(typedecl gerbil/core/mop~MOP-2#runtime-type-info::t) + 'class::t)) + (declare-type + gerbil/core/mop~MOP-2#runtime-type-info? + (@predicate gerbil/core/mop~MOP-2#runtime-type-info::t)) + (declare-type + gerbil/core/mop~MOP-2#make-runtime-type-info + (@constructor gerbil/core/mop~MOP-2#runtime-type-info::t)) + (declare-type + gerbil/core/mop~MOP-2#!runtime-type-id + (@accessor gerbil/core/mop~MOP-2#runtime-type-info::t id #t)) + (declare-type + gerbil/core/mop~MOP-2#!runtime-type-name + (@accessor gerbil/core/mop~MOP-2#runtime-type-info::t name #t)) + (declare-type + gerbil/core/mop~MOP-2#!runtime-type-descriptor + (@accessor gerbil/core/mop~MOP-2#runtime-type-info::t type-descriptor #t)) + (declare-type + gerbil/core/mop~MOP-2#!runtime-type-id-set! + (@mutator gerbil/core/mop~MOP-2#runtime-type-info::t id #t)) + (declare-type + gerbil/core/mop~MOP-2#!runtime-type-name-set! + (@mutator gerbil/core/mop~MOP-2#runtime-type-info::t name #t)) + (declare-type + gerbil/core/mop~MOP-2#!runtime-type-descriptor-set! + (@mutator gerbil/core/mop~MOP-2#runtime-type-info::t type-descriptor #t)) + (declare-type + gerbil/core/mop~MOP-2#&!runtime-type-id + (@accessor gerbil/core/mop~MOP-2#runtime-type-info::t id #f)) + (declare-type + gerbil/core/mop~MOP-2#&!runtime-type-name + (@accessor gerbil/core/mop~MOP-2#runtime-type-info::t name #f)) + (declare-type + gerbil/core/mop~MOP-2#&!runtime-type-descriptor + (@accessor gerbil/core/mop~MOP-2#runtime-type-info::t type-descriptor #f)) + (declare-type + gerbil/core/mop~MOP-2#&!runtime-type-id-set! + (@mutator gerbil/core/mop~MOP-2#runtime-type-info::t id #f)) + (declare-type + gerbil/core/mop~MOP-2#&!runtime-type-name-set! + (@mutator gerbil/core/mop~MOP-2#runtime-type-info::t name #f)) + (declare-type + gerbil/core/mop~MOP-2#&!runtime-type-descriptor-set! + (@mutator gerbil/core/mop~MOP-2#runtime-type-info::t type-descriptor #f)) + (declare-class + gerbil/core/mop~MOP-2#class-type-info::t + (@class gerbil.core#class-type-info::t + (gerbil/core/mop~MOP-2#runtime-type-info::t) + (gerbil/core/mop~MOP-2#runtime-type-info::t object::t t::t) + (super slots + precedence-list + ordered-slots + struct? + final? + system? + metaclass + constructor-method + constructor + predicate + accessors + mutators + unchecked-accessors + unchecked-mutators + slot-types + slot-defaults + slot-contracts) (id name - super - slots - precedence-list - ordered-slots - struct? - final? - system? - metaclass - constructor-method type-descriptor - constructor - predicate - accessors - mutators - unchecked-accessors - unchecked-mutators - slot-types - slot-defaults - slot-contracts) - (id name super slots precedence-list @@ -82,7 +140,6 @@ package: gerbil/core system? metaclass constructor-method - type-descriptor constructor predicate accessors @@ -109,12 +166,6 @@ package: gerbil/core (declare-type gerbil/core/mop~MOP-2#make-class-type-info (@constructor gerbil/core/mop~MOP-2#class-type-info::t)) - (declare-type - gerbil/core/mop~MOP-2#!class-type-id - (@accessor gerbil/core/mop~MOP-2#class-type-info::t id #t)) - (declare-type - gerbil/core/mop~MOP-2#!class-type-name - (@accessor gerbil/core/mop~MOP-2#class-type-info::t name #t)) (declare-type gerbil/core/mop~MOP-2#!class-type-super (@accessor gerbil/core/mop~MOP-2#class-type-info::t super #t)) @@ -142,9 +193,6 @@ package: gerbil/core (declare-type gerbil/core/mop~MOP-2#!class-type-constructor-method (@accessor gerbil/core/mop~MOP-2#class-type-info::t constructor-method #t)) - (declare-type - gerbil/core/mop~MOP-2#!class-type-descriptor - (@accessor gerbil/core/mop~MOP-2#class-type-info::t type-descriptor #t)) (declare-type gerbil/core/mop~MOP-2#!class-type-constructor (@accessor gerbil/core/mop~MOP-2#class-type-info::t constructor #t)) @@ -173,11 +221,14 @@ package: gerbil/core gerbil/core/mop~MOP-2#!class-type-slot-contracts (@accessor gerbil/core/mop~MOP-2#class-type-info::t slot-contracts #t)) (declare-type - gerbil/core/mop~MOP-2#!class-type-id-set! - (@mutator gerbil/core/mop~MOP-2#class-type-info::t id #t)) + gerbil/core/mop~MOP-2#!class-type-id + (@accessor gerbil/core/mop~MOP-2#class-type-info::t id #t)) (declare-type - gerbil/core/mop~MOP-2#!class-type-name-set! - (@mutator gerbil/core/mop~MOP-2#class-type-info::t name #t)) + gerbil/core/mop~MOP-2#!class-type-name + (@accessor gerbil/core/mop~MOP-2#class-type-info::t name #t)) + (declare-type + gerbil/core/mop~MOP-2#!class-type-descriptor + (@accessor gerbil/core/mop~MOP-2#class-type-info::t type-descriptor #t)) (declare-type gerbil/core/mop~MOP-2#!class-type-super-set! (@mutator gerbil/core/mop~MOP-2#class-type-info::t super #t)) @@ -205,9 +256,6 @@ package: gerbil/core (declare-type gerbil/core/mop~MOP-2#!class-type-constructor-method-set! (@mutator gerbil/core/mop~MOP-2#class-type-info::t constructor-method #t)) - (declare-type - gerbil/core/mop~MOP-2#!class-type-descriptor-set! - (@mutator gerbil/core/mop~MOP-2#class-type-info::t type-descriptor #t)) (declare-type gerbil/core/mop~MOP-2#!class-type-constructor-set! (@mutator gerbil/core/mop~MOP-2#class-type-info::t constructor #t)) @@ -236,11 +284,14 @@ package: gerbil/core gerbil/core/mop~MOP-2#!class-type-slot-contracts-set! (@mutator gerbil/core/mop~MOP-2#class-type-info::t slot-contracts #t)) (declare-type - gerbil/core/mop~MOP-2#&!class-type-id - (@accessor gerbil/core/mop~MOP-2#class-type-info::t id #f)) + gerbil/core/mop~MOP-2#!class-type-id-set! + (@mutator gerbil/core/mop~MOP-2#class-type-info::t id #t)) (declare-type - gerbil/core/mop~MOP-2#&!class-type-name - (@accessor gerbil/core/mop~MOP-2#class-type-info::t name #f)) + gerbil/core/mop~MOP-2#!class-type-name-set! + (@mutator gerbil/core/mop~MOP-2#class-type-info::t name #t)) + (declare-type + gerbil/core/mop~MOP-2#!class-type-descriptor-set! + (@mutator gerbil/core/mop~MOP-2#class-type-info::t type-descriptor #t)) (declare-type gerbil/core/mop~MOP-2#&!class-type-super (@accessor gerbil/core/mop~MOP-2#class-type-info::t super #f)) @@ -268,9 +319,6 @@ package: gerbil/core (declare-type gerbil/core/mop~MOP-2#&!class-type-constructor-method (@accessor gerbil/core/mop~MOP-2#class-type-info::t constructor-method #f)) - (declare-type - gerbil/core/mop~MOP-2#&!class-type-descriptor - (@accessor gerbil/core/mop~MOP-2#class-type-info::t type-descriptor #f)) (declare-type gerbil/core/mop~MOP-2#&!class-type-constructor (@accessor gerbil/core/mop~MOP-2#class-type-info::t constructor #f)) @@ -299,11 +347,14 @@ package: gerbil/core gerbil/core/mop~MOP-2#&!class-type-slot-contracts (@accessor gerbil/core/mop~MOP-2#class-type-info::t slot-contracts #f)) (declare-type - gerbil/core/mop~MOP-2#&!class-type-id-set! - (@mutator gerbil/core/mop~MOP-2#class-type-info::t id #f)) + gerbil/core/mop~MOP-2#&!class-type-id + (@accessor gerbil/core/mop~MOP-2#class-type-info::t id #f)) (declare-type - gerbil/core/mop~MOP-2#&!class-type-name-set! - (@mutator gerbil/core/mop~MOP-2#class-type-info::t name #f)) + gerbil/core/mop~MOP-2#&!class-type-name + (@accessor gerbil/core/mop~MOP-2#class-type-info::t name #f)) + (declare-type + gerbil/core/mop~MOP-2#&!class-type-descriptor + (@accessor gerbil/core/mop~MOP-2#class-type-info::t type-descriptor #f)) (declare-type gerbil/core/mop~MOP-2#&!class-type-super-set! (@mutator gerbil/core/mop~MOP-2#class-type-info::t super #f)) @@ -331,9 +382,6 @@ package: gerbil/core (declare-type gerbil/core/mop~MOP-2#&!class-type-constructor-method-set! (@mutator gerbil/core/mop~MOP-2#class-type-info::t constructor-method #f)) - (declare-type - gerbil/core/mop~MOP-2#&!class-type-descriptor-set! - (@mutator gerbil/core/mop~MOP-2#class-type-info::t type-descriptor #f)) (declare-type gerbil/core/mop~MOP-2#&!class-type-constructor-set! (@mutator gerbil/core/mop~MOP-2#class-type-info::t constructor #f)) @@ -361,6 +409,15 @@ package: gerbil/core (declare-type gerbil/core/mop~MOP-2#&!class-type-slot-contracts-set! (@mutator gerbil/core/mop~MOP-2#class-type-info::t slot-contracts #f)) + (declare-type + gerbil/core/mop~MOP-2#&!class-type-id-set! + (@mutator gerbil/core/mop~MOP-2#class-type-info::t id #f)) + (declare-type + gerbil/core/mop~MOP-2#&!class-type-name-set! + (@mutator gerbil/core/mop~MOP-2#class-type-info::t name #f)) + (declare-type + gerbil/core/mop~MOP-2#&!class-type-descriptor-set! + (@mutator gerbil/core/mop~MOP-2#class-type-info::t type-descriptor #f)) (declare-type gerbil/core/mop~MOP-2#class-type-info::apply-macro-expander (@lambda 2 @@ -376,6 +433,65 @@ package: gerbil/core #f origin: gerbil/core/mop~MOP-2))) + (declare-type + gerbil/core/mop~MOP-2#syntax-local-runtime-type-info?__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/mop~MOP-2))) + (declare-type + gerbil/core/mop~MOP-2#syntax-local-runtime-type-info?__0 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/mop~MOP-2))) + (declare-type + gerbil/core/mop~MOP-2#syntax-local-runtime-type-info? + (@case-lambda + (1 + gerbil/core/mop~MOP-2#syntax-local-runtime-type-info?__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/mop~MOP-2)) + (2 + gerbil/core/mop~MOP-2#syntax-local-runtime-type-info?__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/core/mop~MOP-2)))) (declare-type gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% (@lambda 2 diff --git a/src/bootstrap/gerbil/core/mop~1.scm b/src/bootstrap/gerbil/core/mop~1.scm index 453bac9b68..8e20f79fa2 100644 --- a/src/bootstrap/gerbil/core/mop~1.scm +++ b/src/bootstrap/gerbil/core/mop~1.scm @@ -1,103 +1,103 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core/mop~MOP-1[1]#module-type-id| - (lambda (_%type-t22404%_) - (let ((_%$e22407%_ (gx#module-context-ns (gx#current-expander-context)))) - (if _%$e22407%_ - ((lambda (_%ns22411%_) + (lambda (_%type-t22231%_) + (let ((_%$e22234%_ (gx#module-context-ns (gx#current-expander-context)))) + (if _%$e22234%_ + ((lambda (_%ns22238%_) (gx#stx-identifier - _%type-t22404%_ - _%ns22411%_ + _%type-t22231%_ + _%ns22238%_ '"#" - _%type-t22404%_ + _%type-t22231%_ '"::t")) - _%$e22407%_) - (let ((_%mid22416%_ + _%$e22234%_) + (let ((_%mid22243%_ (gx#expander-context-id (gx#current-expander-context)))) (gx#stx-identifier - _%type-t22404%_ - _%mid22416%_ + _%type-t22231%_ + _%mid22243%_ '"#" - _%type-t22404%_ + _%type-t22231%_ '"::t")))))) (define |gerbil/core/mop~MOP-1[1]#make-class-type-id| - (lambda (_%type-t22401%_) + (lambda (_%type-t22228%_) (if (gx#module-context? (gx#current-expander-context)) - (|gerbil/core/mop~MOP-1[1]#module-type-id| _%type-t22401%_) - (make-symbol '"__" (gensym (gx#stx-e _%type-t22401%_)) '"::t")))) + (|gerbil/core/mop~MOP-1[1]#module-type-id| _%type-t22228%_) + (make-symbol '"__" (gensym (gx#stx-e _%type-t22228%_)) '"::t")))) (define |gerbil/core/mop~MOP-1[1]#generate-typedef| - (lambda (_%stx20979%_ _%struct?20981%_) - (letrec ((_%wrap20983%_ - (lambda (_%e-stx22398%_) + (lambda (_%stx20816%_ _%struct?20818%_) + (letrec ((_%wrap20820%_ + (lambda (_%e-stx22225%_) (gx#stx-wrap-source - _%e-stx22398%_ - (gx#stx-source _%stx20979%_)))) - (_%slot-name20985%_ - (lambda (_%slot-spec22315%_) - (let* ((_%g2231822337%_ - (lambda (_%g2231922333%_) + _%e-stx22225%_ + (gx#stx-source _%stx20816%_)))) + (_%slot-name20822%_ + (lambda (_%slot-spec22142%_) + (let* ((_%g2214522164%_ + (lambda (_%g2214622160%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2231922333%_))) - (_%g2231722394%_ - (lambda (_%g2231922341%_) - (if (gx#stx-pair? _%g2231922341%_) - (let ((_%e2232322344%_ - (gx#syntax-e _%g2231922341%_))) - (let ((_%hd2232422348%_ + _%g2214622160%_))) + (_%g2214422221%_ + (lambda (_%g2214622168%_) + (if (gx#stx-pair? _%g2214622168%_) + (let ((_%e2215022171%_ + (gx#syntax-e _%g2214622168%_))) + (let ((_%hd2215122175%_ (let () (declare (not safe)) - (##car _%e2232322344%_))) - (_%tl2232522351%_ + (##car _%e2215022171%_))) + (_%tl2215222178%_ (let () (declare (not safe)) - (##cdr _%e2232322344%_)))) - (if (gx#stx-pair? _%tl2232522351%_) - (let ((_%e2232622354%_ - (gx#syntax-e _%tl2232522351%_))) - (let ((_%hd2232722358%_ + (##cdr _%e2215022171%_)))) + (if (gx#stx-pair? _%tl2215222178%_) + (let ((_%e2215322181%_ + (gx#syntax-e _%tl2215222178%_))) + (let ((_%hd2215422185%_ (let () (declare (not safe)) - (##car _%e2232622354%_))) - (_%tl2232822361%_ + (##car _%e2215322181%_))) + (_%tl2215522188%_ (let () (declare (not safe)) - (##cdr _%e2232622354%_)))) - (if (gx#stx-pair? _%tl2232822361%_) - (let ((_%e2232922364%_ + (##cdr _%e2215322181%_)))) + (if (gx#stx-pair? _%tl2215522188%_) + (let ((_%e2215622191%_ (gx#syntax-e - _%tl2232822361%_))) - (let ((_%hd2233022368%_ + _%tl2215522188%_))) + (let ((_%hd2215722195%_ (let () (declare (not safe)) - (##car _%e2232922364%_))) - (_%tl2233122371%_ + (##car _%e2215622191%_))) + (_%tl2215822198%_ (let () (declare (not safe)) - (##cdr _%e2232922364%_)))) + (##cdr _%e2215622191%_)))) (if (gx#stx-null? - _%tl2233122371%_) - ((lambda (_%L22374%_ + _%tl2215822198%_) + ((lambda (_%g2214722201%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L22376%_ - _%L22377%_) - _%L22377%_) - _%hd2233022368%_ - _%hd2232722358%_ - _%hd2232422348%_) - (_%g2231822337%_ _%g2231922341%_)))) + _%g2214822203%_ + _%g2214922204%_) + _%g2214922204%_) + _%hd2215722195%_ + _%hd2215422185%_ + _%hd2215122175%_) + (_%g2214522164%_ _%g2214622168%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2231822337%_ - _%g2231922341%_)))) - (_%g2231822337%_ _%g2231922341%_)))) - (_%g2231822337%_ _%g2231922341%_))))) - (_%g2231722394%_ _%slot-spec22315%_)))) - (_%class-opt?20986%_ - (lambda (_%key22312%_) - (let ((__tmp27099 (gx#stx-e _%key22312%_))) + (_%g2214522164%_ + _%g2214622168%_)))) + (_%g2214522164%_ _%g2214622168%_)))) + (_%g2214522164%_ _%g2214622168%_))))) + (_%g2214422221%_ _%slot-spec22142%_)))) + (_%class-opt?20823%_ + (lambda (_%key22139%_) + (let ((__tmp26925 (gx#stx-e _%key22139%_))) (declare (not safe)) - (##memq __tmp27099 + (##memq __tmp26925 '(struct: slots: id: @@ -107,651 +107,653 @@ final: mixin: metaclass:)))))) - (let* ((_%g2098821015%_ - (lambda (_%g2098921011%_) + (let* ((_%g2082520852%_ + (lambda (_%g2082620848%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2098921011%_))) - (_%g2098722308%_ - (lambda (_%g2098921019%_) - (if (gx#stx-pair? _%g2098921019%_) - (let ((_%e2099521022%_ (gx#syntax-e _%g2098921019%_))) - (let ((_%hd2099621026%_ + _%g2082620848%_))) + (_%g2082422135%_ + (lambda (_%g2082620856%_) + (if (gx#stx-pair? _%g2082620856%_) + (let ((_%e2083220859%_ (gx#syntax-e _%g2082620856%_))) + (let ((_%hd2083320863%_ (let () (declare (not safe)) - (##car _%e2099521022%_))) - (_%tl2099721029%_ + (##car _%e2083220859%_))) + (_%tl2083420866%_ (let () (declare (not safe)) - (##cdr _%e2099521022%_)))) - (if (gx#stx-pair? _%tl2099721029%_) - (let ((_%e2099821032%_ - (gx#syntax-e _%tl2099721029%_))) - (let ((_%hd2099921036%_ + (##cdr _%e2083220859%_)))) + (if (gx#stx-pair? _%tl2083420866%_) + (let ((_%e2083520869%_ + (gx#syntax-e _%tl2083420866%_))) + (let ((_%hd2083620873%_ (let () (declare (not safe)) - (##car _%e2099821032%_))) - (_%tl2100021039%_ + (##car _%e2083520869%_))) + (_%tl2083720876%_ (let () (declare (not safe)) - (##cdr _%e2099821032%_)))) - (if (gx#stx-pair? _%tl2100021039%_) - (let ((_%e2100121042%_ - (gx#syntax-e _%tl2100021039%_))) - (let ((_%hd2100221046%_ + (##cdr _%e2083520869%_)))) + (if (gx#stx-pair? _%tl2083720876%_) + (let ((_%e2083820879%_ + (gx#syntax-e _%tl2083720876%_))) + (let ((_%hd2083920883%_ (let () (declare (not safe)) - (##car _%e2100121042%_))) - (_%tl2100321049%_ + (##car _%e2083820879%_))) + (_%tl2084020886%_ (let () (declare (not safe)) - (##cdr _%e2100121042%_)))) - (if (gx#stx-pair? _%tl2100321049%_) - (let ((_%e2100421052%_ + (##cdr _%e2083820879%_)))) + (if (gx#stx-pair? _%tl2084020886%_) + (let ((_%e2084120889%_ (gx#syntax-e - _%tl2100321049%_))) - (let ((_%hd2100521056%_ + _%tl2084020886%_))) + (let ((_%hd2084220893%_ (let () (declare (not safe)) - (##car _%e2100421052%_))) - (_%tl2100621059%_ + (##car _%e2084120889%_))) + (_%tl2084320896%_ (let () (declare (not safe)) - (##cdr _%e2100421052%_)))) + (##cdr _%e2084120889%_)))) (if (gx#stx-pair? - _%tl2100621059%_) - (let ((_%e2100721062%_ + _%tl2084320896%_) + (let ((_%e2084420899%_ (gx#syntax-e - _%tl2100621059%_))) - (let ((_%hd2100821066%_ + _%tl2084320896%_))) + (let ((_%hd2084520903%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e2100721062%_))) - (_%tl2100921069%_ - (let () (declare (not safe)) (##cdr _%e2100721062%_)))) - ((lambda (_%L21072%_ - _%L21074%_ - _%L21075%_ - _%L21076%_ - _%L21077%_) - (if (and (gx#identifier? _%L21077%_) - (gx#identifier-list? _%L21076%_) - (or (gx#identifier? _%L21075%_) - (gx#stx-false? _%L21075%_)) - (gx#identifier? _%L21074%_) - (gx#stx-plist? _%L21072%_ _%class-opt?20986%_)) - (let* ((_%struct?21117%_ - (let ((_%$e21107%_ _%struct?20981%_)) - (if _%$e21107%_ - _%$e21107%_ - (let ((_%$e21111%_ + (##car _%e2084420899%_))) + (_%tl2084620906%_ + (let () (declare (not safe)) (##cdr _%e2084420899%_)))) + ((lambda (_%g2082720909%_ + _%g2082820911%_ + _%g2082920912%_ + _%g2083020913%_ + _%g2083120914%_) + (if (and (gx#identifier? _%g2083120914%_) + (gx#identifier-list? _%g2083020913%_) + (or (gx#identifier? _%g2082920912%_) + (gx#stx-false? _%g2082920912%_)) + (gx#identifier? _%g2082820911%_) + (gx#stx-plist? + _%g2082720909%_ + _%class-opt?20823%_)) + (let* ((_%struct?20954%_ + (let ((_%$e20944%_ _%struct?20818%_)) + (if _%$e20944%_ + _%$e20944%_ + (let ((_%$e20948%_ (gx#stx-getq 'struct: - _%L21072%_))) - (if _%$e21111%_ - (gx#stx-e _%$e21111%_) + _%g2082720909%_))) + (if _%$e20948%_ + (gx#stx-e _%$e20948%_) '#f))))) - (_%slots21124%_ - (let ((_%$e21120%_ - (gx#stx-getq 'slots: _%L21072%_))) - (if _%$e21120%_ _%$e21120%_ '()))) - (_%mixin-slots21131%_ - (let ((_%$e21127%_ - (gx#stx-getq 'mixin: _%L21072%_))) - (if _%$e21127%_ _%$e21127%_ '()))) - (_%accessible-slots21134%_ - (append (gx#syntax->list _%slots21124%_) + (_%slots20961%_ + (let ((_%$e20957%_ + (gx#stx-getq 'slots: _%g2082720909%_))) + (if _%$e20957%_ _%$e20957%_ '()))) + (_%mixin-slots20968%_ + (let ((_%$e20964%_ + (gx#stx-getq 'mixin: _%g2082720909%_))) + (if _%$e20964%_ _%$e20964%_ '()))) + (_%accessible-slots20971%_ + (append (gx#syntax->list _%slots20961%_) (gx#syntax->list - _%mixin-slots21131%_))) - (_%metaclass21137%_ - (gx#stx-getq 'metaclass: _%L21072%_)) - (_%g2114021157%_ - (lambda (_%g2114121153%_) + _%mixin-slots20968%_))) + (_%metaclass20974%_ + (gx#stx-getq 'metaclass: _%g2082720909%_)) + (_%g2097720994%_ + (lambda (_%g2097820990%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2114121153%_))) - (_%g2113922304%_ - (lambda (_%g2114121161%_) - (if (gx#stx-pair/null? _%g2114121161%_) - (let ((_g27100_ + _%g2097820990%_))) + (_%g2097622131%_ + (lambda (_%g2097820998%_) + (if (gx#stx-pair/null? _%g2097820998%_) + (let ((_g26926_ (gx#syntax-split-splice - _%g2114121161%_ + _%g2097820998%_ '0))) (begin - (let ((_g27101_ + (let ((_g26927_ (let () (declare (not safe)) - (if (##values? _g27100_) + (if (##values? _g26926_) (##values-length - _g27100_) + _g26926_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27101_ 2))) + (##fx= _g26927_ 2))) (error "Context expects 2 values" - _g27101_))) - (let ((_%target2114321164%_ + _g26927_))) + (let ((_%target2098021001%_ (let () (declare (not safe)) - (##values-ref _g27100_ 0))) - (_%tl2114521167%_ + (##values-ref _g26926_ 0))) + (_%tl2098221004%_ (let () (declare (not safe)) (##values-ref - _g27100_ + _g26926_ 1)))) (if (gx#stx-null? - _%tl2114521167%_) - (letrec ((_%loop2114621170%_ - (lambda (_%hd2114421174%_ + _%tl2098221004%_) + (letrec ((_%loop2098321007%_ + (lambda (_%hd2098121011%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%slot2115021177%_) - (if (gx#stx-pair? _%hd2114421174%_) - (let ((_%e2114721180%_ - (gx#syntax-e _%hd2114421174%_))) - (let ((_%lp-hd2114821184%_ + _%slot2098721014%_) + (if (gx#stx-pair? _%hd2098121011%_) + (let ((_%e2098421016%_ + (gx#syntax-e _%hd2098121011%_))) + (let ((_%lp-hd2098521020%_ (let () (declare (not safe)) - (##car _%e2114721180%_))) - (_%lp-tl2114921187%_ + (##car _%e2098421016%_))) + (_%lp-tl2098621023%_ (let () (declare (not safe)) - (##cdr _%e2114721180%_)))) - (_%loop2114621170%_ - _%lp-tl2114921187%_ - (cons _%lp-hd2114821184%_ _%slot2115021177%_)))) - (let ((_%slot2115121190%_ - (reverse _%slot2115021177%_))) - ((lambda (_%L21194%_) - (let* ((_%g2121521223%_ - (lambda (_%g2121621219%_) + (##cdr _%e2098421016%_)))) + (_%loop2098321007%_ + _%lp-tl2098621023%_ + (cons _%lp-hd2098521020%_ _%slot2098721014%_)))) + (let ((_%slot2098821026%_ + (reverse _%slot2098721014%_))) + ((lambda (_%g2097921029%_) + (let* ((_%g2105021058%_ + (lambda (_%g2105121054%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2121621219%_))) - (_%g2121422296%_ - (lambda (_%g2121621227%_) - ((lambda (_%L21230%_) - (let* ((_%g2124321251%_ - (lambda (_%g2124421247%_) + _%g2105121054%_))) + (_%g2104922123%_ + (lambda (_%g2105121062%_) + ((lambda (_%g2105221065%_) + (let* ((_%g2107821086%_ + (lambda (_%g2107921082%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2124421247%_))) - (_%g2124222288%_ - (lambda (_%g2124421255%_) - ((lambda (_%L21258%_) - (let* ((_%g2127121279%_ - (lambda (_%g2127221275%_) + _%g2107921082%_))) + (_%g2107722115%_ + (lambda (_%g2107921090%_) + ((lambda (_%g2108021093%_) + (let* ((_%g2110621114%_ + (lambda (_%g2110721110%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2127221275%_))) - (_%g2127022284%_ - (lambda (_%g2127221283%_) - ((lambda (_%L21286%_) - (let* ((_%g2129921307%_ - (lambda (_%g2130021303%_) + _%g2110721110%_))) + (_%g2110522111%_ + (lambda (_%g2110721118%_) + ((lambda (_%g2110821121%_) + (let* ((_%g2113421142%_ + (lambda (_%g2113521138%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2130021303%_))) - (_%g2129822280%_ - (lambda (_%g2130021311%_) - ((lambda (_%L21314%_) - (let* ((_%g2132721335%_ - (lambda (_%g2132821331%_) + _%g2113521138%_))) + (_%g2113322107%_ + (lambda (_%g2113521146%_) + ((lambda (_%g2113621149%_) + (let* ((_%g2116221170%_ + (lambda (_%g2116321166%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2132821331%_))) - (_%g2132622276%_ - (lambda (_%g2132821339%_) - ((lambda (_%L21342%_) - (let* ((_%g2135521363%_ - (lambda (_%g2135621359%_) + _%g2116321166%_))) + (_%g2116122103%_ + (lambda (_%g2116321174%_) + ((lambda (_%g2116421177%_) + (let* ((_%g2119021198%_ + (lambda (_%g2119121194%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2135621359%_))) - (_%g2135422272%_ - (lambda (_%g2135621367%_) - ((lambda (_%L21370%_) - (let* ((_%g2138321391%_ - (lambda (_%g2138421387%_) + _%g2119121194%_))) + (_%g2118922099%_ + (lambda (_%g2119121202%_) + ((lambda (_%g2119221205%_) + (let* ((_%g2121821226%_ + (lambda (_%g2121921222%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2138421387%_))) - (_%g2138222268%_ - (lambda (_%g2138421395%_) - ((lambda (_%L21398%_) - (let* ((_%g2141121419%_ - (lambda (_%g2141221415%_) + _%g2121921222%_))) + (_%g2121722095%_ + (lambda (_%g2121921230%_) + ((lambda (_%g2122021233%_) + (let* ((_%g2124621254%_ + (lambda (_%g2124721250%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2141221415%_))) - (_%g2141022264%_ - (lambda (_%g2141221423%_) - ((lambda (_%L21426%_) - (let* ((_%g2143921447%_ - (lambda (_%g2144021443%_) + _%g2124721250%_))) + (_%g2124522091%_ + (lambda (_%g2124721258%_) + ((lambda (_%g2124821261%_) + (let* ((_%g2127421282%_ + (lambda (_%g2127521278%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g2144021443%_))) - (_%g2143822256%_ - (lambda (_%g2144021451%_) - ((lambda (_%L21454%_) - (let* ((_%g2146721475%_ - (lambda (_%g2146821471%_) + _%g2127521278%_))) + (_%g2127322083%_ + (lambda (_%g2127521286%_) + ((lambda (_%g2127621289%_) + (let* ((_%g2130221310%_ + (lambda (_%g2130321306%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2146821471%_))) - (_%g2146622252%_ - (lambda (_%g2146821479%_) - ((lambda (_%L21482%_) - (let* ((_%g2149521503%_ - (lambda (_%g2149621499%_) + _%g2130321306%_))) + (_%g2130122079%_ + (lambda (_%g2130321314%_) + ((lambda (_%g2130421317%_) + (let* ((_%g2133021338%_ + (lambda (_%g2133121334%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2149621499%_))) - (_%g2149422248%_ - (lambda (_%g2149621507%_) - ((lambda (_%L21510%_) - (let* ((_%g2152321531%_ - (lambda (_%g2152421527%_) + _%g2133121334%_))) + (_%g2132922075%_ + (lambda (_%g2133121342%_) + ((lambda (_%g2133221345%_) + (let* ((_%g2135821366%_ + (lambda (_%g2135921362%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2152421527%_))) - (_%g2152222213%_ - (lambda (_%g2152421535%_) - ((lambda (_%L21538%_) + _%g2135921362%_))) + (_%g2135722040%_ + (lambda (_%g2135921370%_) + ((lambda (_%g2136021373%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g2155121559%_ - (lambda (_%g2155221555%_) + (let* ((_%g2138621394%_ + (lambda (_%g2138721390%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2155221555%_))) - (_%g2155022209%_ - (lambda (_%g2155221563%_) - ((lambda (_%L21566%_) - (let* ((_%g2157921587%_ - (lambda (_%g2158021583%_) + _%g2138721390%_))) + (_%g2138522036%_ + (lambda (_%g2138721398%_) + ((lambda (_%g2138821401%_) + (let* ((_%g2141421422%_ + (lambda (_%g2141521418%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2158021583%_))) - (_%g2157822197%_ - (lambda (_%g2158021591%_) - ((lambda (_%L21594%_) - (let* ((_%g2160721615%_ - (lambda (_%g2160821611%_) + _%g2141521418%_))) + (_%g2141322024%_ + (lambda (_%g2141521426%_) + ((lambda (_%g2141621429%_) + (let* ((_%g2144221450%_ + (lambda (_%g2144321446%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2160821611%_))) - (_%g2160622185%_ - (lambda (_%g2160821619%_) - ((lambda (_%L21622%_) + _%g2144321446%_))) + (_%g2144122012%_ + (lambda (_%g2144321454%_) + ((lambda (_%g2144421457%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g2163521643%_ - (lambda (_%g2163621639%_) + (let* ((_%g2147021478%_ + (lambda (_%g2147121474%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2163621639%_))) - (_%g2163422181%_ - (lambda (_%g2163621647%_) - ((lambda (_%L21650%_) - (let* ((_%g2166321671%_ - (lambda (_%g2166421667%_) + _%g2147121474%_))) + (_%g2146922008%_ + (lambda (_%g2147121482%_) + ((lambda (_%g2147221485%_) + (let* ((_%g2149821506%_ + (lambda (_%g2149921502%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2166421667%_))) - (_%g2166222177%_ - (lambda (_%g2166421675%_) - ((lambda (_%L21678%_) - (let* ((_%g2169121717%_ - (lambda (_%g2169221713%_) + _%g2149921502%_))) + (_%g2149722004%_ + (lambda (_%g2149921510%_) + ((lambda (_%g2150021513%_) + (let* ((_%g2152621552%_ + (lambda (_%g2152721548%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2169221713%_))) - (_%g2169022089%_ - (lambda (_%g2169221721%_) + _%g2152721548%_))) + (_%g2152521916%_ + (lambda (_%g2152721556%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2169221721%_) - (let ((_g27102_ - (gx#syntax-split-splice _%g2169221721%_ '0))) + _%g2152721556%_) + (let ((_g26928_ + (gx#syntax-split-splice _%g2152721556%_ '0))) (begin - (let ((_g27103_ + (let ((_g26929_ (let () (declare (not safe)) - (if (##values? _g27102_) - (##values-length _g27102_) + (if (##values? _g26928_) + (##values-length _g26928_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27103_ 2))) + (##fx= _g26929_ 2))) (error "Context expects 2 values" - _g27103_))) - (let ((_%target2169521724%_ + _g26929_))) + (let ((_%target2153021559%_ (let () (declare (not safe)) - (##values-ref _g27102_ 0))) - (_%tl2169721727%_ + (##values-ref _g26928_ 0))) + (_%tl2153221562%_ (let () (declare (not safe)) - (##values-ref _g27102_ 1)))) - (if (gx#stx-null? _%tl2169721727%_) - (letrec ((_%loop2169821730%_ - (lambda (_%hd2169621734%_ - _%def-setf2170221737%_ - _%def-getf2170321739%_) + (##values-ref _g26928_ 1)))) + (if (gx#stx-null? _%tl2153221562%_) + (letrec ((_%loop2153321565%_ + (lambda (_%hd2153121569%_ + _%def-setf2153721572%_ + _%def-getf2153821573%_) (if (gx#stx-pair? - _%hd2169621734%_) - (let ((_%e2169921742%_ + _%hd2153121569%_) + (let ((_%e2153421575%_ (gx#syntax-e - _%hd2169621734%_))) - (let ((_%lp-hd2170021746%_ + _%hd2153121569%_))) + (let ((_%lp-hd2153521579%_ (let () (declare (not safe)) - (##car _%e2169921742%_))) - (_%lp-tl2170121749%_ + (##car _%e2153421575%_))) + (_%lp-tl2153621582%_ (let () (declare (not safe)) - (##cdr _%e2169921742%_)))) + (##cdr _%e2153421575%_)))) (if (gx#stx-pair? - _%lp-hd2170021746%_) - (let ((_%e2170621752%_ + _%lp-hd2153521579%_) + (let ((_%e2154121585%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%lp-hd2170021746%_))) - (let ((_%hd2170721756%_ + (gx#syntax-e _%lp-hd2153521579%_))) + (let ((_%hd2154221589%_ (let () (declare (not safe)) - (##car _%e2170621752%_))) - (_%tl2170821759%_ + (##car _%e2154121585%_))) + (_%tl2154321592%_ (let () (declare (not safe)) - (##cdr _%e2170621752%_)))) - (if (gx#stx-pair? _%tl2170821759%_) - (let ((_%e2170921762%_ - (gx#syntax-e _%tl2170821759%_))) - (let ((_%hd2171021766%_ + (##cdr _%e2154121585%_)))) + (if (gx#stx-pair? _%tl2154321592%_) + (let ((_%e2154421595%_ + (gx#syntax-e _%tl2154321592%_))) + (let ((_%hd2154521599%_ (let () (declare (not safe)) - (##car _%e2170921762%_))) - (_%tl2171121769%_ + (##car _%e2154421595%_))) + (_%tl2154621602%_ (let () (declare (not safe)) - (##cdr _%e2170921762%_)))) - (if (gx#stx-null? _%tl2171121769%_) - (_%loop2169821730%_ - _%lp-tl2170121749%_ - (cons _%hd2171021766%_ - _%def-setf2170221737%_) - (cons _%hd2170721756%_ - _%def-getf2170321739%_)) - (_%g2169121717%_ _%g2169221721%_)))) - (_%g2169121717%_ _%g2169221721%_)))) - (_%g2169121717%_ _%g2169221721%_)))) + (##cdr _%e2154421595%_)))) + (if (gx#stx-null? _%tl2154621602%_) + (_%loop2153321565%_ + _%lp-tl2153621582%_ + (cons _%hd2154521599%_ + _%def-setf2153721572%_) + (cons _%hd2154221589%_ + _%def-getf2153821573%_)) + (_%g2152621552%_ _%g2152721556%_)))) + (_%g2152621552%_ _%g2152721556%_)))) + (_%g2152621552%_ _%g2152721556%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%def-setf2170421772%_ - (reverse _%def-setf2170221737%_)) - (_%def-getf2170521775%_ - (reverse _%def-getf2170321739%_))) - ((lambda (_%L21778%_ - _%L21780%_) - (let* ((_%g2179721823%_ - (lambda (_%g2179821819%_) + (let ((_%def-setf2153921605%_ + (reverse _%def-setf2153721572%_)) + (_%def-getf2154021607%_ + (reverse _%def-getf2153821573%_))) + ((lambda (_%g2152821609%_ + _%g2152921611%_) + (let* ((_%g2162821654%_ + (lambda (_%g2162921650%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2179821819%_))) - (_%g2179621937%_ - (lambda (_%g2179821827%_) - (if (gx#stx-pair/null? _%g2179821827%_) - (let ((_g27104_ + _%g2162921650%_))) + (_%g2162721764%_ + (lambda (_%g2162921658%_) + (if (gx#stx-pair/null? _%g2162921658%_) + (let ((_g26930_ (gx#syntax-split-splice - _%g2179821827%_ + _%g2162921658%_ '0))) (begin - (let ((_g27105_ + (let ((_g26931_ (let () (declare (not safe)) - (if (##values? _g27104_) - (##values-length _g27104_) + (if (##values? _g26930_) + (##values-length _g26930_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27105_ 2))) + (##fx= _g26931_ 2))) (error "Context expects 2 values" - _g27105_))) - (let ((_%target2180121830%_ + _g26931_))) + (let ((_%target2163221661%_ (let () (declare (not safe)) - (##values-ref _g27104_ 0))) - (_%tl2180321833%_ + (##values-ref _g26930_ 0))) + (_%tl2163421664%_ (let () (declare (not safe)) - (##values-ref _g27104_ 1)))) - (if (gx#stx-null? _%tl2180321833%_) - (letrec ((_%loop2180421836%_ - (lambda (_%hd2180221840%_ - _%def-usetf2180821843%_ - _%def-ugetf2180921845%_) + (##values-ref _g26930_ 1)))) + (if (gx#stx-null? _%tl2163421664%_) + (letrec ((_%loop2163521667%_ + (lambda (_%hd2163321671%_ + _%def-usetf2163921674%_ + _%def-ugetf2164021675%_) (if (gx#stx-pair? - _%hd2180221840%_) - (let ((_%e2180521848%_ + _%hd2163321671%_) + (let ((_%e2163621677%_ (gx#syntax-e - _%hd2180221840%_))) - (let ((_%lp-hd2180621852%_ + _%hd2163321671%_))) + (let ((_%lp-hd2163721681%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e2180521848%_))) - (_%lp-tl2180721855%_ + (let () (declare (not safe)) (##car _%e2163621677%_))) + (_%lp-tl2163821684%_ (let () (declare (not safe)) - (##cdr _%e2180521848%_)))) - (if (gx#stx-pair? _%lp-hd2180621852%_) - (let ((_%e2181221858%_ - (gx#syntax-e _%lp-hd2180621852%_))) - (let ((_%hd2181321862%_ + (##cdr _%e2163621677%_)))) + (if (gx#stx-pair? _%lp-hd2163721681%_) + (let ((_%e2164321687%_ + (gx#syntax-e _%lp-hd2163721681%_))) + (let ((_%hd2164421691%_ (let () (declare (not safe)) - (##car _%e2181221858%_))) - (_%tl2181421865%_ + (##car _%e2164321687%_))) + (_%tl2164521694%_ (let () (declare (not safe)) - (##cdr _%e2181221858%_)))) - (if (gx#stx-pair? _%tl2181421865%_) - (let ((_%e2181521868%_ - (gx#syntax-e _%tl2181421865%_))) - (let ((_%hd2181621872%_ + (##cdr _%e2164321687%_)))) + (if (gx#stx-pair? _%tl2164521694%_) + (let ((_%e2164621697%_ + (gx#syntax-e _%tl2164521694%_))) + (let ((_%hd2164721701%_ (let () (declare (not safe)) - (##car _%e2181521868%_))) - (_%tl2181721875%_ + (##car _%e2164621697%_))) + (_%tl2164821704%_ (let () (declare (not safe)) - (##cdr _%e2181521868%_)))) - (if (gx#stx-null? _%tl2181721875%_) - (_%loop2180421836%_ - _%lp-tl2180721855%_ - (cons _%hd2181621872%_ - _%def-usetf2180821843%_) - (cons _%hd2181321862%_ - _%def-ugetf2180921845%_)) - (_%g2179721823%_ _%g2179821827%_)))) - (_%g2179721823%_ _%g2179821827%_)))) - (_%g2179721823%_ _%g2179821827%_)))) - (let ((_%def-usetf2181021878%_ - (reverse _%def-usetf2180821843%_)) - (_%def-ugetf2181121881%_ - (reverse _%def-ugetf2180921845%_))) - ((lambda (_%L21884%_ _%L21886%_) - (_%wrap20983%_ + (##cdr _%e2164621697%_)))) + (if (gx#stx-null? _%tl2164821704%_) + (_%loop2163521667%_ + _%lp-tl2163821684%_ + (cons _%hd2164721701%_ + _%def-usetf2163921674%_) + (cons _%hd2164421691%_ + _%def-ugetf2164021675%_)) + (_%g2162821654%_ _%g2162921658%_)))) + (_%g2162821654%_ _%g2162921658%_)))) + (_%g2162821654%_ _%g2162921658%_)))) + (let ((_%def-usetf2164121707%_ + (reverse _%def-usetf2163921674%_)) + (_%def-ugetf2164221709%_ + (reverse _%def-ugetf2164021675%_))) + ((lambda (_%g2163021711%_ _%g2163121713%_) + (_%wrap20820%_ (cons (gx#datum->syntax '#f 'begin) - (cons _%L21622%_ - (cons _%L21678%_ - (cons _%L21650%_ - (foldr (lambda (_%g2190421913%_ - _%g2190521916%_) - (cons _%g2190421913%_ - _%g2190521916%_)) - (foldr (lambda (_%g2190621919%_ + (cons _%g2144421457%_ + (cons _%g2150021513%_ + (cons _%g2147221485%_ + (foldr (lambda (_%g2173121740%_ + _%g2173221743%_) + (cons _%g2173121740%_ + _%g2173221743%_)) + (foldr (lambda (_%g2173321746%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2190721922%_) - (cons _%g2190621919%_ _%g2190721922%_)) - (foldr (lambda (_%g2190821925%_ _%g2190921928%_) - (cons _%g2190821925%_ _%g2190921928%_)) - (foldr (lambda (_%g2191021931%_ _%g2191121934%_) - (cons _%g2191021931%_ _%g2191121934%_)) + _%g2173421749%_) + (cons _%g2173321746%_ _%g2173421749%_)) + (foldr (lambda (_%g2173521752%_ _%g2173621755%_) + (cons _%g2173521752%_ _%g2173621755%_)) + (foldr (lambda (_%g2173721758%_ _%g2173821761%_) + (cons _%g2173721758%_ _%g2173821761%_)) '() - _%L21884%_) - _%L21886%_) - _%L21778%_) + _%g2163021711%_) + _%g2163121713%_) + _%g2152821609%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L21780%_))))))) - _%def-usetf2181021878%_ - _%def-ugetf2181121881%_)))))) + _%g2152921611%_))))))) + _%def-usetf2164121707%_ + _%def-ugetf2164221709%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2180421836%_ - _%target2180121830%_ + (_%loop2163521667%_ + _%target2163221661%_ '() '())) - (_%g2179721823%_ _%g2179821827%_))))) - (_%g2179721823%_ _%g2179821827%_))))) - (_%g2179621937%_ + (_%g2162821654%_ _%g2162921658%_))))) + (_%g2162821654%_ _%g2162921658%_))))) + (_%g2162721764%_ (gx#stx-map - (lambda (_%ref21941%_) - (let* ((_%g2194421963%_ - (lambda (_%g2194521959%_) + (lambda (_%ref21768%_) + (let* ((_%g2177121790%_ + (lambda (_%g2177221786%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2194521959%_))) - (_%g2194322085%_ - (lambda (_%g2194521967%_) - (if (gx#stx-pair? _%g2194521967%_) - (let ((_%e2194921970%_ - (gx#syntax-e _%g2194521967%_))) - (let ((_%hd2195021974%_ + _%g2177221786%_))) + (_%g2177021912%_ + (lambda (_%g2177221794%_) + (if (gx#stx-pair? _%g2177221794%_) + (let ((_%e2177621797%_ + (gx#syntax-e _%g2177221794%_))) + (let ((_%hd2177721801%_ (let () (declare (not safe)) - (##car _%e2194921970%_))) - (_%tl2195121977%_ + (##car _%e2177621797%_))) + (_%tl2177821804%_ (let () (declare (not safe)) - (##cdr _%e2194921970%_)))) - (if (gx#stx-pair? _%tl2195121977%_) - (let ((_%e2195221980%_ + (##cdr _%e2177621797%_)))) + (if (gx#stx-pair? _%tl2177821804%_) + (let ((_%e2177921807%_ (gx#syntax-e - _%tl2195121977%_))) - (let ((_%hd2195321984%_ + _%tl2177821804%_))) + (let ((_%hd2178021811%_ (let () (declare (not safe)) - (##car _%e2195221980%_))) - (_%tl2195421987%_ + (##car _%e2177921807%_))) + (_%tl2178121814%_ (let () (declare (not safe)) - (##cdr _%e2195221980%_)))) + (##cdr _%e2177921807%_)))) (if (gx#stx-pair? - _%tl2195421987%_) - (let ((_%e2195521990%_ + _%tl2178121814%_) + (let ((_%e2178221817%_ (gx#syntax-e - _%tl2195421987%_))) - (let ((_%hd2195621994%_ + _%tl2178121814%_))) + (let ((_%hd2178321821%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e2195521990%_))) - (_%tl2195721997%_ - (let () (declare (not safe)) (##cdr _%e2195521990%_)))) - (if (gx#stx-null? _%tl2195721997%_) - ((lambda (_%L22000%_ _%L22002%_ _%L22003%_) - (let* ((_%g2202122036%_ - (lambda (_%g2202222032%_) + (##car _%e2178221817%_))) + (_%tl2178421824%_ + (let () (declare (not safe)) (##cdr _%e2178221817%_)))) + (if (gx#stx-null? _%tl2178421824%_) + ((lambda (_%g2177321827%_ _%g2177421829%_ _%g2177521830%_) + (let* ((_%g2184821863%_ + (lambda (_%g2184921859%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2202222032%_))) - (_%g2202022081%_ - (lambda (_%g2202222040%_) - (if (gx#stx-pair? _%g2202222040%_) - (let ((_%e2202522043%_ - (gx#syntax-e _%g2202222040%_))) - (let ((_%hd2202622047%_ + _%g2184921859%_))) + (_%g2184721908%_ + (lambda (_%g2184921867%_) + (if (gx#stx-pair? _%g2184921867%_) + (let ((_%e2185221870%_ + (gx#syntax-e _%g2184921867%_))) + (let ((_%hd2185321874%_ (let () (declare (not safe)) - (##car _%e2202522043%_))) - (_%tl2202722050%_ + (##car _%e2185221870%_))) + (_%tl2185421877%_ (let () (declare (not safe)) - (##cdr _%e2202522043%_)))) - (if (gx#stx-pair? _%tl2202722050%_) - (let ((_%e2202822053%_ + (##cdr _%e2185221870%_)))) + (if (gx#stx-pair? _%tl2185421877%_) + (let ((_%e2185521880%_ (gx#syntax-e - _%tl2202722050%_))) - (let ((_%hd2202922057%_ + _%tl2185421877%_))) + (let ((_%hd2185621884%_ (let () (declare (not safe)) - (##car _%e2202822053%_))) - (_%tl2203022060%_ + (##car _%e2185521880%_))) + (_%tl2185721887%_ (let () (declare (not safe)) - (##cdr _%e2202822053%_)))) + (##cdr _%e2185521880%_)))) (if (gx#stx-null? - _%tl2203022060%_) - ((lambda (_%L22063%_ - _%L22065%_) - (cons (_%wrap20983%_ + _%tl2185721887%_) + ((lambda (_%g2185021890%_ + _%g2185121892%_) + (cons (_%wrap20820%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons _%L22065%_ + (cons _%g2185121892%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L21314%_ + (cons _%g2113621149%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L22003%_ (cons '#f '())))) + (cons _%g2177521830%_ (cons '#f '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'make-class-slot-unchecked-accessor) - (cons _%L21077%_ + (cons _%g2083120914%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L22003%_ '())) + (cons _%g2177521830%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (cons (_%wrap20983%_ + (cons (_%wrap20820%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L22063%_ + (cons _%g2185021890%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -759,129 +761,133 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L21314%_ (cons _%L22003%_ (cons '#f '())))) + (cons _%g2113621149%_ + (cons _%g2177521830%_ (cons '#f '())))) (cons (cons (gx#datum->syntax '#f 'make-class-slot-unchecked-mutator) - (cons _%L21077%_ + (cons _%g2083120914%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L22003%_ '())) + (cons _%g2177521830%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()))) - _%hd2202922057%_ - _%hd2202622047%_) + _%hd2185621884%_ + _%hd2185321874%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2202122036%_ - _%g2202222040%_)))) - (_%g2202122036%_ - _%g2202222040%_)))) - (_%g2202122036%_ _%g2202222040%_))))) - (_%g2202022081%_ - (list (gx#stx-identifier _%L22002%_ '"&" _%L22002%_) + (_%g2184821863%_ + _%g2184921867%_)))) + (_%g2184821863%_ + _%g2184921867%_)))) + (_%g2184821863%_ _%g2184921867%_))))) + (_%g2184721908%_ + (list (gx#stx-identifier + _%g2177421829%_ + '"&" + _%g2177421829%_) (gx#stx-identifier - _%L22000%_ + _%g2177321827%_ '"&" - _%L22000%_))))) - _%hd2195621994%_ - _%hd2195321984%_ - _%hd2195021974%_) - (_%g2194421963%_ _%g2194521967%_)))) + _%g2177321827%_))))) + _%hd2178321821%_ + _%hd2178021811%_ + _%hd2177721801%_) + (_%g2177121790%_ _%g2177221794%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2194421963%_ - _%g2194521967%_)))) - (_%g2194421963%_ - _%g2194521967%_)))) - (_%g2194421963%_ _%g2194521967%_))))) - (_%g2194322085%_ _%ref21941%_))) - _%accessible-slots21134%_)))) - _%def-setf2170421772%_ - _%def-getf2170521775%_)))))) + (_%g2177121790%_ + _%g2177221794%_)))) + (_%g2177121790%_ + _%g2177221794%_)))) + (_%g2177121790%_ _%g2177221794%_))))) + (_%g2177021912%_ _%ref21768%_))) + _%accessible-slots20971%_)))) + _%def-setf2153921605%_ + _%def-getf2154021607%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2169821730%_ - _%target2169521724%_ + (_%loop2153321565%_ + _%target2153021559%_ '() '())) - (_%g2169121717%_ _%g2169221721%_))))) - (_%g2169121717%_ _%g2169221721%_))))) + (_%g2152621552%_ _%g2152721556%_))))) + (_%g2152621552%_ _%g2152721556%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2169022089%_ + (_%g2152521916%_ (gx#stx-map - (lambda (_%ref22093%_) - (let* ((_%g2209622115%_ + (lambda (_%ref21920%_) + (let* ((_%g2192321942%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2209722111%_) + (lambda (_%g2192421938%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2209722111%_))) - (_%g2209522173%_ - (lambda (_%g2209722119%_) - (if (gx#stx-pair? _%g2209722119%_) - (let ((_%e2210122122%_ - (gx#syntax-e _%g2209722119%_))) - (let ((_%hd2210222126%_ + _%g2192421938%_))) + (_%g2192222000%_ + (lambda (_%g2192421946%_) + (if (gx#stx-pair? _%g2192421946%_) + (let ((_%e2192821949%_ + (gx#syntax-e _%g2192421946%_))) + (let ((_%hd2192921953%_ (let () (declare (not safe)) - (##car _%e2210122122%_))) - (_%tl2210322129%_ + (##car _%e2192821949%_))) + (_%tl2193021956%_ (let () (declare (not safe)) - (##cdr _%e2210122122%_)))) - (if (gx#stx-pair? _%tl2210322129%_) - (let ((_%e2210422132%_ - (gx#syntax-e _%tl2210322129%_))) - (let ((_%hd2210522136%_ + (##cdr _%e2192821949%_)))) + (if (gx#stx-pair? _%tl2193021956%_) + (let ((_%e2193121959%_ + (gx#syntax-e _%tl2193021956%_))) + (let ((_%hd2193221963%_ (let () (declare (not safe)) - (##car _%e2210422132%_))) - (_%tl2210622139%_ + (##car _%e2193121959%_))) + (_%tl2193321966%_ (let () (declare (not safe)) - (##cdr _%e2210422132%_)))) - (if (gx#stx-pair? _%tl2210622139%_) - (let ((_%e2210722142%_ + (##cdr _%e2193121959%_)))) + (if (gx#stx-pair? _%tl2193321966%_) + (let ((_%e2193421969%_ (gx#syntax-e - _%tl2210622139%_))) - (let ((_%hd2210822146%_ + _%tl2193321966%_))) + (let ((_%hd2193521973%_ (let () (declare (not safe)) - (##car _%e2210722142%_))) - (_%tl2210922149%_ + (##car _%e2193421969%_))) + (_%tl2193621976%_ (let () (declare (not safe)) - (##cdr _%e2210722142%_)))) + (##cdr _%e2193421969%_)))) (if (gx#stx-null? - _%tl2210922149%_) - ((lambda (_%L22152%_ + _%tl2193621976%_) + ((lambda (_%g2192521979%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L22154%_ - _%L22155%_) - (cons (_%wrap20983%_ + _%g2192621981%_ + _%g2192721982%_) + (cons (_%wrap20820%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L22154%_ + (cons _%g2192621981%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L21314%_ + (cons _%g2113621149%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L22155%_ (cons '#t '())))) + (cons _%g2192721982%_ (cons '#t '())))) (cons (cons (gx#datum->syntax '#f 'make-class-slot-accessor) - (cons _%L21077%_ + (cons _%g2083120914%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L22155%_ '())) + (cons _%g2192721982%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (cons (_%wrap20983%_ + (cons (_%wrap20820%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L22152%_ + (cons _%g2192521979%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -889,57 +895,58 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L21314%_ (cons _%L22155%_ (cons '#t '())))) + (cons _%g2113621149%_ + (cons _%g2192721982%_ (cons '#t '())))) (cons (cons (gx#datum->syntax '#f 'make-class-slot-mutator) - (cons _%L21077%_ + (cons _%g2083120914%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L22155%_ '())) + (cons _%g2192721982%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()))) - _%hd2210822146%_ - _%hd2210522136%_ - _%hd2210222126%_) - (_%g2209622115%_ _%g2209722119%_)))) + _%hd2193521973%_ + _%hd2193221963%_ + _%hd2192921953%_) + (_%g2192321942%_ _%g2192421946%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2209622115%_ - _%g2209722119%_)))) - (_%g2209622115%_ _%g2209722119%_)))) - (_%g2209622115%_ _%g2209722119%_))))) - (_%g2209522173%_ _%ref22093%_))) - _%accessible-slots21134%_)))) + (_%g2192321942%_ + _%g2192421946%_)))) + (_%g2192321942%_ _%g2192421946%_)))) + (_%g2192321942%_ _%g2192421946%_))))) + (_%g2192222000%_ _%ref21920%_))) + _%accessible-slots20971%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2166421675%_)))) - (_%g2166222177%_ - (_%wrap20983%_ + _%g2149921510%_)))) + (_%g2149722004%_ + (_%wrap20820%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L21074%_ + (cons _%g2082820911%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.predicate) - (cons _%L21314%_ '())) + (cons _%g2113621149%_ '())) (cons (cons (gx#datum->syntax '#f 'make-class-predicate) - (cons _%L21077%_ '())) + (cons _%g2083120914%_ '())) '()))) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2163621647%_)))) - (_%g2163422181%_ - (if (gx#stx-false? _%L21075%_) + _%g2147121482%_)))) + (_%g2146922008%_ + (if (gx#stx-false? _%g2082920912%_) (cons (gx#datum->syntax '#f 'begin) '()) - (_%wrap20983%_ + (_%wrap20820%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L21075%_ + (cons _%g2082920912%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -947,7 +954,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.constructor) - (cons _%L21314%_ '())) + (cons _%g2113621149%_ '())) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (gx#datum->syntax '#f '$args) (cons (cons (gx#datum->syntax @@ -956,7 +963,7 @@ (cons (gx#datum->syntax '#f 'make-instance) - (cons _%L21077%_ + (cons _%g2083120914%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f '$args) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -964,93 +971,97 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))))) - _%g2160821619%_)))) - (_%g2160622185%_ - (_%wrap20983%_ + _%g2144321454%_)))) + (_%g2144122012%_ + (_%wrap20820%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L21077%_ + (cons _%g2083120914%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.class) - (cons _%L21230%_ - (cons _%L21342%_ - (cons (foldr (lambda (_%g2218822191%_ + (cons _%g2105221065%_ + (cons _%g2116421177%_ + (cons (foldr (lambda (_%g2201522018%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2218922194%_) - (cons _%g2218822191%_ _%g2218922194%_)) + _%g2201622021%_) + (cons _%g2201522018%_ _%g2201622021%_)) '() - _%L21194%_) - (cons _%L21286%_ - (cons _%L21370%_ - (cons _%L21398%_ - (cons _%L21426%_ '())))))))) + _%g2097921029%_) + (cons _%g2110821121%_ + (cons _%g2119221205%_ + (cons _%g2122021233%_ + (cons _%g2124821261%_ + '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L21594%_ '()))) + (cons _%g2141621429%_ '()))) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2158021591%_)))) - (_%g2157822197%_ + _%g2141521426%_)))) + (_%g2141322024%_ (cons (gx#datum->syntax '#f 'make-class-type) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L21230%_ + (cons _%g2105221065%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons (gx#datum->syntax '#f 'quote) (cons _%L21258%_ '())) - (cons _%L21566%_ + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%g2108021093%_ '())) + (cons _%g2138821401%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g2220022203%_ - _%g2220122206%_) - (cons _%g2220022203%_ - _%g2220122206%_)) + (cons (foldr (lambda (_%g2202722030%_ + _%g2202822033%_) + (cons _%g2202722030%_ + _%g2202822033%_)) '() - _%L21194%_) + _%g2097921029%_) '())) - (cons _%L21538%_ + (cons _%g2136021373%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L21286%_ '())) + (cons _%g2110821121%_ '())) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2155221563%_)))) - (_%g2155022209%_ - (cons (gx#datum->syntax '#f 'list) _%L21076%_)))) - _%g2152421535%_)))) - (_%g2152222213%_ - (if (gx#stx-e _%metaclass21137%_) - (let* ((_%g2221722225%_ - (lambda (_%g2221822221%_) + _%g2138721398%_)))) + (_%g2138522036%_ + (cons (gx#datum->syntax '#f 'list) + _%g2083020913%_)))) + _%g2135921370%_)))) + (_%g2135722040%_ + (if (gx#stx-e _%metaclass20974%_) + (let* ((_%g2204422052%_ + (lambda (_%g2204522048%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2221822221%_))) - (_%g2221622244%_ - (lambda (_%g2221822229%_) - ((lambda (_%L22232%_) + _%g2204522048%_))) + (_%g2204322071%_ + (lambda (_%g2204522056%_) + ((lambda (_%g2204622059%_) (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f '@list) (cons 'metaclass: (cons ':: - (cons _%L22232%_ + (cons _%g2204622059%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons ':: - (cons _%L21510%_ '()))))) - _%g2221822229%_)))) - (_%g2221622244%_ _%metaclass21137%_)) - _%L21510%_)))) + (cons _%g2133221345%_ + '()))))) + _%g2204522056%_)))) + (_%g2204322071%_ _%metaclass20974%_)) + _%g2133221345%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2149621507%_)))) - (_%g2149422248%_ - (if _%struct?21117%_ + _%g2133121342%_)))) + (_%g2132922075%_ + (if _%struct?20954%_ (cons (gx#datum->syntax '#f '@list) @@ -1059,94 +1070,97 @@ '#f '@list) (cons 'struct: '#t)) - (cons ':: (cons _%L21482%_ '())))) + (cons ':: (cons _%g2130421317%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L21482%_)))) - _%g2146821479%_)))) - (_%g2146622252%_ - (if (gx#stx-e _%L21398%_) + _%g2130421317%_)))) + _%g2130321314%_)))) + (_%g2130122079%_ + (if (gx#stx-e _%g2122021233%_) (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f '@list) (cons 'final: '#t)) (cons ':: - (cons _%L21454%_ '())))) - _%L21454%_)))) - _%g2144021451%_)))) - (_%g2143822256%_ - (let ((_%$e22260%_ (gx#stx-getq 'properties: _%L21072%_))) - (if _%$e22260%_ - _%$e22260%_ + (cons _%g2127621289%_ + '())))) + _%g2127621289%_)))) + _%g2127521286%_)))) + (_%g2127322083%_ + (let ((_%$e22087%_ + (gx#stx-getq 'properties: _%g2082720909%_))) + (if _%$e22087%_ + _%$e22087%_ (cons (gx#datum->syntax '#f '@list) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2141221423%_)))) - (_%g2141022264%_ - (if (gx#stx-e _%metaclass21137%_) + _%g2124721258%_)))) + (_%g2124522091%_ + (if (gx#stx-e _%metaclass20974%_) (gx#core-quote-syntax - _%metaclass21137%_) + _%metaclass20974%_) '#f)))) - _%g2138421395%_)))) - (_%g2138222268%_ - (gx#stx-getq 'final: _%L21072%_)))) - _%g2135621367%_)))) - (_%g2135422272%_ _%struct?21117%_))) + _%g2121921230%_)))) + (_%g2121722095%_ + (gx#stx-getq 'final: _%g2082720909%_)))) + _%g2119121202%_)))) + (_%g2118922099%_ _%struct?20954%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2132821339%_)))) - (_%g2132622276%_ + _%g2116321174%_)))) + (_%g2116122103%_ (gx#stx-map gx#core-quote-syntax - _%L21076%_)))) - _%g2130021311%_)))) - (_%g2129822280%_ - (gx#core-quote-syntax _%L21077%_)))) - _%g2127221283%_)))) - (_%g2127022284%_ (gx#stx-getq 'constructor: _%L21072%_)))) - _%g2124421255%_)))) + _%g2083020913%_)))) + _%g2113521146%_)))) + (_%g2113322107%_ + (gx#core-quote-syntax _%g2083120914%_)))) + _%g2110721118%_)))) + (_%g2110522111%_ + (gx#stx-getq 'constructor: _%g2082720909%_)))) + _%g2107921090%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2124222288%_ - (let ((_%$e22292%_ + (_%g2107722115%_ + (let ((_%$e22119%_ (gx#stx-getq 'name: - _%L21072%_))) - (if _%$e22292%_ - _%$e22292%_ - _%L21077%_))))) - _%g2121621227%_)))) - (_%g2121422296%_ - (let ((_%$e22300%_ - (gx#stx-getq 'id: _%L21072%_))) - (if _%$e22300%_ - _%$e22300%_ + _%g2082720909%_))) + (if _%$e22119%_ + _%$e22119%_ + _%g2083120914%_))))) + _%g2105121062%_)))) + (_%g2104922123%_ + (let ((_%$e22127%_ + (gx#stx-getq 'id: _%g2082720909%_))) + (if _%$e22127%_ + _%$e22127%_ (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L21077%_)))))) - _%slot2115121190%_)))))) + _%g2083120914%_)))))) + _%slot2098821026%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2114621170%_ - _%target2114321164%_ + (_%loop2098321007%_ + _%target2098021001%_ '())) - (_%g2114021157%_ - _%g2114121161%_))))) - (_%g2114021157%_ _%g2114121161%_))))) - (_%g2113922304%_ - (gx#stx-map _%slot-name20985%_ _%slots21124%_))) - (_%g2098821015%_ _%g2098921019%_))) - _%tl2100921069%_ - _%hd2100821066%_ - _%hd2100521056%_ - _%hd2100221046%_ - _%hd2099921036%_))) - (_%g2098821015%_ _%g2098921019%_)))) + (_%g2097720994%_ + _%g2097820998%_))))) + (_%g2097720994%_ _%g2097820998%_))))) + (_%g2097622131%_ + (gx#stx-map _%slot-name20822%_ _%slots20961%_))) + (_%g2082520852%_ _%g2082620856%_))) + _%tl2084620906%_ + _%hd2084520903%_ + _%hd2084220893%_ + _%hd2083920883%_ + _%hd2083620873%_))) + (_%g2082520852%_ _%g2082620856%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2098821015%_ - _%g2098921019%_)))) - (_%g2098821015%_ _%g2098921019%_)))) - (_%g2098821015%_ _%g2098921019%_)))) - (_%g2098821015%_ _%g2098921019%_))))) - (_%g2098722308%_ _%stx20979%_))))) + (_%g2082520852%_ + _%g2082620856%_)))) + (_%g2082520852%_ _%g2082620856%_)))) + (_%g2082520852%_ _%g2082620856%_)))) + (_%g2082520852%_ _%g2082620856%_))))) + (_%g2082422135%_ _%stx20816%_))))) (define |gerbil/core/mop~MOP-1[:0:]#defstruct-type| - (lambda (_%stx22422%_) - (|gerbil/core/mop~MOP-1[1]#generate-typedef| _%stx22422%_ '#t))) + (lambda (_%stx22249%_) + (|gerbil/core/mop~MOP-1[1]#generate-typedef| _%stx22249%_ '#t))) (define |gerbil/core/mop~MOP-1[:0:]#defclass-type| - (lambda (_%stx22425%_) - (|gerbil/core/mop~MOP-1[1]#generate-typedef| _%stx22425%_ '#f)))) + (lambda (_%stx22252%_) + (|gerbil/core/mop~MOP-1[1]#generate-typedef| _%stx22252%_ '#f)))) diff --git a/src/bootstrap/gerbil/core/mop~2.scm b/src/bootstrap/gerbil/core/mop~2.scm index ab64bad438..3f72e51c38 100644 --- a/src/bootstrap/gerbil/core/mop~2.scm +++ b/src/bootstrap/gerbil/core/mop~2.scm @@ -1,890 +1,1096 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/mop~MOP-3[1]#_g27107_| + (define |gerbil/core/mop~MOP-3[1]#_g26933_| + (##structure + gx#syntax-quote::t + 'runtime-type-info::t + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-3[1]#_g26935_| + (##structure + gx#syntax-quote::t + 'make-runtime-type-info + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-3[1]#_g26937_| + (##structure + gx#syntax-quote::t + 'runtime-type-info? + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-3[1]#_g26939_| + (##structure + gx#syntax-quote::t + '!runtime-type-id + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-3[1]#_g26940_| + (##structure + gx#syntax-quote::t + '!runtime-type-name + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-3[1]#_g26941_| + (##structure + gx#syntax-quote::t + '!runtime-type-descriptor + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-3[1]#_g26943_| + (##structure + gx#syntax-quote::t + '!runtime-type-id-set! + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-3[1]#_g26944_| + (##structure + gx#syntax-quote::t + '!runtime-type-name-set! + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-3[1]#_g26945_| + (##structure + gx#syntax-quote::t + '!runtime-type-descriptor-set! + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-3[1]#_g26947_| + (##structure + gx#syntax-quote::t + '&!runtime-type-id + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-3[1]#_g26948_| + (##structure + gx#syntax-quote::t + '&!runtime-type-name + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-3[1]#_g26949_| + (##structure + gx#syntax-quote::t + '&!runtime-type-descriptor + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-3[1]#_g26951_| + (##structure + gx#syntax-quote::t + '&!runtime-type-id-set! + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-3[1]#_g26952_| + (##structure + gx#syntax-quote::t + '&!runtime-type-name-set! + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-3[1]#_g26953_| + (##structure + gx#syntax-quote::t + '&!runtime-type-descriptor-set! + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-3[1]#_g26955_| + (##structure + gx#syntax-quote::t + 'runtime-type-info + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-3[1]#_g26957_| (##structure gx#syntax-quote::t 'class-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27109_| + (define |gerbil/core/mop~MOP-3[1]#_g26959_| (##structure gx#syntax-quote::t 'make-class-type-info #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27111_| + (define |gerbil/core/mop~MOP-3[1]#_g26961_| (##structure gx#syntax-quote::t 'class-type-info? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27113_| + (define |gerbil/core/mop~MOP-3[1]#_g26963_| (##structure gx#syntax-quote::t '!class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27114_| + (define |gerbil/core/mop~MOP-3[1]#_g26964_| (##structure gx#syntax-quote::t '!class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27115_| + (define |gerbil/core/mop~MOP-3[1]#_g26965_| (##structure gx#syntax-quote::t '!class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27116_| + (define |gerbil/core/mop~MOP-3[1]#_g26966_| (##structure gx#syntax-quote::t '!class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27117_| + (define |gerbil/core/mop~MOP-3[1]#_g26967_| (##structure gx#syntax-quote::t '!class-type-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27118_| + (define |gerbil/core/mop~MOP-3[1]#_g26968_| (##structure gx#syntax-quote::t '!class-type-ordered-slots #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27119_| + (define |gerbil/core/mop~MOP-3[1]#_g26969_| (##structure gx#syntax-quote::t '!class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27120_| + (define |gerbil/core/mop~MOP-3[1]#_g26970_| (##structure gx#syntax-quote::t '!class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27121_| + (define |gerbil/core/mop~MOP-3[1]#_g26971_| (##structure gx#syntax-quote::t '!class-type-system? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27122_| + (define |gerbil/core/mop~MOP-3[1]#_g26972_| (##structure gx#syntax-quote::t '!class-type-metaclass #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27123_| + (define |gerbil/core/mop~MOP-3[1]#_g26973_| (##structure gx#syntax-quote::t '!class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27124_| + (define |gerbil/core/mop~MOP-3[1]#_g26974_| (##structure gx#syntax-quote::t '!class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27125_| + (define |gerbil/core/mop~MOP-3[1]#_g26975_| (##structure gx#syntax-quote::t '!class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27126_| + (define |gerbil/core/mop~MOP-3[1]#_g26976_| (##structure gx#syntax-quote::t '!class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27127_| + (define |gerbil/core/mop~MOP-3[1]#_g26977_| (##structure gx#syntax-quote::t '!class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27128_| + (define |gerbil/core/mop~MOP-3[1]#_g26978_| (##structure gx#syntax-quote::t '!class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27129_| + (define |gerbil/core/mop~MOP-3[1]#_g26979_| (##structure gx#syntax-quote::t '!class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27130_| + (define |gerbil/core/mop~MOP-3[1]#_g26980_| (##structure gx#syntax-quote::t '!class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27131_| + (define |gerbil/core/mop~MOP-3[1]#_g26981_| (##structure gx#syntax-quote::t '!class-type-slot-types #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27132_| + (define |gerbil/core/mop~MOP-3[1]#_g26982_| (##structure gx#syntax-quote::t '!class-type-slot-defaults #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27133_| + (define |gerbil/core/mop~MOP-3[1]#_g26983_| (##structure gx#syntax-quote::t '!class-type-slot-contracts #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27135_| + (define |gerbil/core/mop~MOP-3[1]#_g26985_| (##structure gx#syntax-quote::t '!class-type-id-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27136_| + (define |gerbil/core/mop~MOP-3[1]#_g26986_| (##structure gx#syntax-quote::t '!class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27137_| + (define |gerbil/core/mop~MOP-3[1]#_g26987_| (##structure gx#syntax-quote::t '!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27138_| + (define |gerbil/core/mop~MOP-3[1]#_g26988_| (##structure gx#syntax-quote::t '!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27139_| + (define |gerbil/core/mop~MOP-3[1]#_g26989_| (##structure gx#syntax-quote::t '!class-type-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27140_| + (define |gerbil/core/mop~MOP-3[1]#_g26990_| (##structure gx#syntax-quote::t '!class-type-ordered-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27141_| + (define |gerbil/core/mop~MOP-3[1]#_g26991_| (##structure gx#syntax-quote::t '!class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27142_| + (define |gerbil/core/mop~MOP-3[1]#_g26992_| (##structure gx#syntax-quote::t '!class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27143_| + (define |gerbil/core/mop~MOP-3[1]#_g26993_| (##structure gx#syntax-quote::t '!class-type-system?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27144_| + (define |gerbil/core/mop~MOP-3[1]#_g26994_| (##structure gx#syntax-quote::t '!class-type-metaclass-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27145_| + (define |gerbil/core/mop~MOP-3[1]#_g26995_| (##structure gx#syntax-quote::t '!class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27146_| + (define |gerbil/core/mop~MOP-3[1]#_g26996_| (##structure gx#syntax-quote::t '!class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27147_| + (define |gerbil/core/mop~MOP-3[1]#_g26997_| (##structure gx#syntax-quote::t '!class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27148_| + (define |gerbil/core/mop~MOP-3[1]#_g26998_| (##structure gx#syntax-quote::t '!class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27149_| + (define |gerbil/core/mop~MOP-3[1]#_g26999_| (##structure gx#syntax-quote::t '!class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27150_| + (define |gerbil/core/mop~MOP-3[1]#_g27000_| (##structure gx#syntax-quote::t '!class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27151_| + (define |gerbil/core/mop~MOP-3[1]#_g27001_| (##structure gx#syntax-quote::t '!class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27152_| + (define |gerbil/core/mop~MOP-3[1]#_g27002_| (##structure gx#syntax-quote::t '!class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27153_| + (define |gerbil/core/mop~MOP-3[1]#_g27003_| (##structure gx#syntax-quote::t '!class-type-slot-types-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27154_| + (define |gerbil/core/mop~MOP-3[1]#_g27004_| (##structure gx#syntax-quote::t '!class-type-slot-defaults-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27155_| + (define |gerbil/core/mop~MOP-3[1]#_g27005_| (##structure gx#syntax-quote::t '!class-type-slot-contracts-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27157_| + (define |gerbil/core/mop~MOP-3[1]#_g27007_| (##structure gx#syntax-quote::t '&!class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27158_| + (define |gerbil/core/mop~MOP-3[1]#_g27008_| (##structure gx#syntax-quote::t '&!class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27159_| + (define |gerbil/core/mop~MOP-3[1]#_g27009_| (##structure gx#syntax-quote::t '&!class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27160_| + (define |gerbil/core/mop~MOP-3[1]#_g27010_| (##structure gx#syntax-quote::t '&!class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27161_| + (define |gerbil/core/mop~MOP-3[1]#_g27011_| (##structure gx#syntax-quote::t '&!class-type-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27162_| + (define |gerbil/core/mop~MOP-3[1]#_g27012_| (##structure gx#syntax-quote::t '&!class-type-ordered-slots #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27163_| + (define |gerbil/core/mop~MOP-3[1]#_g27013_| (##structure gx#syntax-quote::t '&!class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27164_| + (define |gerbil/core/mop~MOP-3[1]#_g27014_| (##structure gx#syntax-quote::t '&!class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27165_| + (define |gerbil/core/mop~MOP-3[1]#_g27015_| (##structure gx#syntax-quote::t '&!class-type-system? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27166_| + (define |gerbil/core/mop~MOP-3[1]#_g27016_| (##structure gx#syntax-quote::t '&!class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27167_| + (define |gerbil/core/mop~MOP-3[1]#_g27017_| (##structure gx#syntax-quote::t '&!class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27168_| + (define |gerbil/core/mop~MOP-3[1]#_g27018_| (##structure gx#syntax-quote::t '&!class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27169_| + (define |gerbil/core/mop~MOP-3[1]#_g27019_| (##structure gx#syntax-quote::t '&!class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27170_| + (define |gerbil/core/mop~MOP-3[1]#_g27020_| (##structure gx#syntax-quote::t '&!class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27171_| + (define |gerbil/core/mop~MOP-3[1]#_g27021_| (##structure gx#syntax-quote::t '&!class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27172_| + (define |gerbil/core/mop~MOP-3[1]#_g27022_| (##structure gx#syntax-quote::t '&!class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27173_| + (define |gerbil/core/mop~MOP-3[1]#_g27023_| (##structure gx#syntax-quote::t '&!class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27174_| + (define |gerbil/core/mop~MOP-3[1]#_g27024_| (##structure gx#syntax-quote::t '&!class-type-slot-types #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27175_| + (define |gerbil/core/mop~MOP-3[1]#_g27025_| (##structure gx#syntax-quote::t '&!class-type-slot-defaults #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27176_| + (define |gerbil/core/mop~MOP-3[1]#_g27026_| (##structure gx#syntax-quote::t '&!class-type-slot-contracts #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27178_| + (define |gerbil/core/mop~MOP-3[1]#_g27028_| (##structure gx#syntax-quote::t '&!class-type-id-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27179_| + (define |gerbil/core/mop~MOP-3[1]#_g27029_| (##structure gx#syntax-quote::t '&!class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27180_| + (define |gerbil/core/mop~MOP-3[1]#_g27030_| (##structure gx#syntax-quote::t '&!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27181_| + (define |gerbil/core/mop~MOP-3[1]#_g27031_| (##structure gx#syntax-quote::t '&!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27182_| + (define |gerbil/core/mop~MOP-3[1]#_g27032_| (##structure gx#syntax-quote::t '&!class-type-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27183_| + (define |gerbil/core/mop~MOP-3[1]#_g27033_| (##structure gx#syntax-quote::t '&!class-type-ordered-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27184_| + (define |gerbil/core/mop~MOP-3[1]#_g27034_| (##structure gx#syntax-quote::t '&!class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27185_| + (define |gerbil/core/mop~MOP-3[1]#_g27035_| (##structure gx#syntax-quote::t '&!class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27186_| + (define |gerbil/core/mop~MOP-3[1]#_g27036_| (##structure gx#syntax-quote::t '&!class-type-system?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27187_| + (define |gerbil/core/mop~MOP-3[1]#_g27037_| (##structure gx#syntax-quote::t '&!class-type-metaclass-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27188_| + (define |gerbil/core/mop~MOP-3[1]#_g27038_| (##structure gx#syntax-quote::t '&!class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27189_| + (define |gerbil/core/mop~MOP-3[1]#_g27039_| (##structure gx#syntax-quote::t '&!class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27190_| + (define |gerbil/core/mop~MOP-3[1]#_g27040_| (##structure gx#syntax-quote::t '&!class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27191_| + (define |gerbil/core/mop~MOP-3[1]#_g27041_| (##structure gx#syntax-quote::t '&!class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27192_| + (define |gerbil/core/mop~MOP-3[1]#_g27042_| (##structure gx#syntax-quote::t '&!class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27193_| + (define |gerbil/core/mop~MOP-3[1]#_g27043_| (##structure gx#syntax-quote::t '&!class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27194_| + (define |gerbil/core/mop~MOP-3[1]#_g27044_| (##structure gx#syntax-quote::t '&!class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27195_| + (define |gerbil/core/mop~MOP-3[1]#_g27045_| (##structure gx#syntax-quote::t '&!class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27196_| + (define |gerbil/core/mop~MOP-3[1]#_g27046_| (##structure gx#syntax-quote::t '&!class-type-slot-types-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27197_| + (define |gerbil/core/mop~MOP-3[1]#_g27047_| (##structure gx#syntax-quote::t '&!class-type-slot-defaults-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27198_| + (define |gerbil/core/mop~MOP-3[1]#_g27048_| (##structure gx#syntax-quote::t '&!class-type-slot-contracts-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[:0:]#class-type-info| - (let ((__obj27015 - (let () - (declare (not safe)) - (##structure - gerbil/core/mop~MOP-2#class-type-info::t - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f)))) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj27015 - 'gerbil.core#class-type-info::t - '1 - '#f - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27015 'class-type-info '2 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27015 '() '3 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj27015 - '(id name - super - slots - precedence-list - ordered-slots - struct? - final? - system? - metaclass - constructor-method - type-descriptor - constructor - predicate - accessors - mutators - unchecked-accessors - unchecked-mutators - slot-types - slot-defaults - slot-contracts) - '4 - '#f - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27015 '#f '7 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27015 '#f '8 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27015 '#f '9 '#f '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! __obj27015 '#f '11 '#f '#f)) - (let ((__tmp27106 |gerbil/core/mop~MOP-3[1]#_g27107_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj27015 __tmp27106 '12 '#f '#f)) - (let ((__tmp27108 |gerbil/core/mop~MOP-3[1]#_g27109_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj27015 __tmp27108 '13 '#f '#f)) - (let ((__tmp27110 |gerbil/core/mop~MOP-3[1]#_g27111_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj27015 __tmp27110 '14 '#f '#f)) - (let ((__tmp27112 - (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27113_|) - (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27114_|) - (cons (cons 'super - |gerbil/core/mop~MOP-3[1]#_g27115_|) - (cons (cons 'slots - |gerbil/core/mop~MOP-3[1]#_g27116_|) - (cons (cons 'precedence-list - |gerbil/core/mop~MOP-3[1]#_g27117_|) - (cons (cons 'ordered-slots - |gerbil/core/mop~MOP-3[1]#_g27118_|) - (cons (cons 'struct? - |gerbil/core/mop~MOP-3[1]#_g27119_|) - (cons (cons 'final? + (begin + (define |gerbil/core/mop~MOP-3[:0:]#runtime-type-info| + (let ((__obj26827 + (let () + (declare (not safe)) + (##structure + gerbil/core/mop~MOP-2#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj26827 + 'gerbil.core#runtime-type-info::t + '1 + '#f + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj26827 + 'runtime-type-info + '2 + '#f + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26827 '() '4 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj26827 + '(id name type-descriptor) + '5 + '#f + '#f)) + (let ((__tmp26932 |gerbil/core/mop~MOP-3[1]#_g26933_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26827 __tmp26932 '3 '#f '#f)) + (let ((__tmp26934 |gerbil/core/mop~MOP-3[1]#_g26935_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26827 __tmp26934 '13 '#f '#f)) + (let ((__tmp26936 |gerbil/core/mop~MOP-3[1]#_g26937_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26827 __tmp26936 '14 '#f '#f)) + (let ((__tmp26938 + (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g26939_|) + (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g26940_|) + (cons (cons 'type-descriptor + |gerbil/core/mop~MOP-3[1]#_g26941_|) + '()))))) + (declare (not safe)) + (##unchecked-structure-set! __obj26827 __tmp26938 '15 '#f '#f)) + (let ((__tmp26942 + (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g26943_|) + (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g26944_|) + (cons (cons 'type-descriptor + |gerbil/core/mop~MOP-3[1]#_g26945_|) + '()))))) + (declare (not safe)) + (##unchecked-structure-set! __obj26827 __tmp26942 '16 '#f '#f)) + (let ((__tmp26946 + (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g26947_|) + (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g26948_|) + (cons (cons 'type-descriptor + |gerbil/core/mop~MOP-3[1]#_g26949_|) + '()))))) + (declare (not safe)) + (##unchecked-structure-set! __obj26827 __tmp26946 '17 '#f '#f)) + (let ((__tmp26950 + (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g26951_|) + (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g26952_|) + (cons (cons 'type-descriptor + |gerbil/core/mop~MOP-3[1]#_g26953_|) + '()))))) + (declare (not safe)) + (##unchecked-structure-set! __obj26827 __tmp26950 '18 '#f '#f)) + __obj26827)) + (define |gerbil/core/mop~MOP-3[:0:]#class-type-info| + (let ((__obj26828 + (let () + (declare (not safe)) + (##structure + gerbil/core/mop~MOP-2#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj26828 + 'gerbil.core#class-type-info::t + '1 + '#f + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26828 'class-type-info '2 '#f '#f)) + (let ((__tmp26954 (cons |gerbil/core/mop~MOP-3[1]#_g26955_| '()))) + (declare (not safe)) + (##unchecked-structure-set! __obj26828 __tmp26954 '4 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj26828 + '(super slots + precedence-list + ordered-slots + struct? + final? + system? + metaclass + constructor-method + constructor + predicate + accessors + mutators + unchecked-accessors + unchecked-mutators + slot-types + slot-defaults + slot-contracts) + '5 + '#f + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26828 '#f '8 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26828 '#f '9 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26828 '#f '10 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26828 '#f '12 '#f '#f)) + (let ((__tmp26956 |gerbil/core/mop~MOP-3[1]#_g26957_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26828 __tmp26956 '3 '#f '#f)) + (let ((__tmp26958 |gerbil/core/mop~MOP-3[1]#_g26959_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26828 __tmp26958 '13 '#f '#f)) + (let ((__tmp26960 |gerbil/core/mop~MOP-3[1]#_g26961_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26828 __tmp26960 '14 '#f '#f)) + (let ((__tmp26962 + (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g26963_|) + (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g26964_|) + (cons (cons 'super + |gerbil/core/mop~MOP-3[1]#_g26965_|) + (cons (cons 'slots + |gerbil/core/mop~MOP-3[1]#_g26966_|) + (cons (cons 'precedence-list + |gerbil/core/mop~MOP-3[1]#_g26967_|) + (cons (cons 'ordered-slots + |gerbil/core/mop~MOP-3[1]#_g26968_|) + (cons (cons 'struct? + |gerbil/core/mop~MOP-3[1]#_g26969_|) + (cons (cons 'final? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27120_|) - (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27121_|) - (cons (cons 'metaclass - |gerbil/core/mop~MOP-3[1]#_g27122_|) - (cons (cons 'constructor-method - |gerbil/core/mop~MOP-3[1]#_g27123_|) - (cons (cons 'type-descriptor - |gerbil/core/mop~MOP-3[1]#_g27124_|) - (cons (cons 'constructor - |gerbil/core/mop~MOP-3[1]#_g27125_|) - (cons (cons 'predicate - |gerbil/core/mop~MOP-3[1]#_g27126_|) - (cons (cons 'accessors + |gerbil/core/mop~MOP-3[1]#_g26970_|) + (cons (cons 'system? + |gerbil/core/mop~MOP-3[1]#_g26971_|) + (cons (cons 'metaclass + |gerbil/core/mop~MOP-3[1]#_g26972_|) + (cons (cons 'constructor-method + |gerbil/core/mop~MOP-3[1]#_g26973_|) + (cons (cons 'type-descriptor + |gerbil/core/mop~MOP-3[1]#_g26974_|) + (cons (cons 'constructor + |gerbil/core/mop~MOP-3[1]#_g26975_|) + (cons (cons 'predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27127_|) - (cons (cons 'mutators - |gerbil/core/mop~MOP-3[1]#_g27128_|) - (cons (cons 'unchecked-accessors - |gerbil/core/mop~MOP-3[1]#_g27129_|) - (cons (cons 'unchecked-mutators - |gerbil/core/mop~MOP-3[1]#_g27130_|) - (cons (cons 'slot-types - |gerbil/core/mop~MOP-3[1]#_g27131_|) - (cons (cons 'slot-defaults - |gerbil/core/mop~MOP-3[1]#_g27132_|) - (cons (cons 'slot-contracts + |gerbil/core/mop~MOP-3[1]#_g26976_|) + (cons (cons 'accessors |gerbil/core/mop~MOP-3[1]#_g26977_|) + (cons (cons 'mutators + |gerbil/core/mop~MOP-3[1]#_g26978_|) + (cons (cons 'unchecked-accessors + |gerbil/core/mop~MOP-3[1]#_g26979_|) + (cons (cons 'unchecked-mutators + |gerbil/core/mop~MOP-3[1]#_g26980_|) + (cons (cons 'slot-types + |gerbil/core/mop~MOP-3[1]#_g26981_|) + (cons (cons 'slot-defaults + |gerbil/core/mop~MOP-3[1]#_g26982_|) + (cons (cons 'slot-contracts ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27133_|) - '()))))))))))))))))))))))) + |gerbil/core/mop~MOP-3[1]#_g26983_|) + '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (##unchecked-structure-set! __obj27015 __tmp27112 '15 '#f '#f)) - (let ((__tmp27134 - (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27135_|) - (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27136_|) - (cons (cons 'super - |gerbil/core/mop~MOP-3[1]#_g27137_|) - (cons (cons 'slots - |gerbil/core/mop~MOP-3[1]#_g27138_|) - (cons (cons 'precedence-list - |gerbil/core/mop~MOP-3[1]#_g27139_|) - (cons (cons 'ordered-slots - |gerbil/core/mop~MOP-3[1]#_g27140_|) - (cons (cons 'struct? - |gerbil/core/mop~MOP-3[1]#_g27141_|) - (cons (cons 'final? + (declare (not safe)) + (##unchecked-structure-set! __obj26828 __tmp26962 '15 '#f '#f)) + (let ((__tmp26984 + (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g26985_|) + (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g26986_|) + (cons (cons 'super + |gerbil/core/mop~MOP-3[1]#_g26987_|) + (cons (cons 'slots + |gerbil/core/mop~MOP-3[1]#_g26988_|) + (cons (cons 'precedence-list + |gerbil/core/mop~MOP-3[1]#_g26989_|) + (cons (cons 'ordered-slots + |gerbil/core/mop~MOP-3[1]#_g26990_|) + (cons (cons 'struct? + |gerbil/core/mop~MOP-3[1]#_g26991_|) + (cons (cons 'final? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27142_|) - (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27143_|) - (cons (cons 'metaclass - |gerbil/core/mop~MOP-3[1]#_g27144_|) - (cons (cons 'constructor-method - |gerbil/core/mop~MOP-3[1]#_g27145_|) - (cons (cons 'type-descriptor - |gerbil/core/mop~MOP-3[1]#_g27146_|) - (cons (cons 'constructor - |gerbil/core/mop~MOP-3[1]#_g27147_|) - (cons (cons 'predicate - |gerbil/core/mop~MOP-3[1]#_g27148_|) - (cons (cons 'accessors + |gerbil/core/mop~MOP-3[1]#_g26992_|) + (cons (cons 'system? + |gerbil/core/mop~MOP-3[1]#_g26993_|) + (cons (cons 'metaclass + |gerbil/core/mop~MOP-3[1]#_g26994_|) + (cons (cons 'constructor-method + |gerbil/core/mop~MOP-3[1]#_g26995_|) + (cons (cons 'type-descriptor + |gerbil/core/mop~MOP-3[1]#_g26996_|) + (cons (cons 'constructor + |gerbil/core/mop~MOP-3[1]#_g26997_|) + (cons (cons 'predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27149_|) - (cons (cons 'mutators - |gerbil/core/mop~MOP-3[1]#_g27150_|) - (cons (cons 'unchecked-accessors - |gerbil/core/mop~MOP-3[1]#_g27151_|) - (cons (cons 'unchecked-mutators - |gerbil/core/mop~MOP-3[1]#_g27152_|) - (cons (cons 'slot-types - |gerbil/core/mop~MOP-3[1]#_g27153_|) - (cons (cons 'slot-defaults - |gerbil/core/mop~MOP-3[1]#_g27154_|) - (cons (cons 'slot-contracts + |gerbil/core/mop~MOP-3[1]#_g26998_|) + (cons (cons 'accessors |gerbil/core/mop~MOP-3[1]#_g26999_|) + (cons (cons 'mutators + |gerbil/core/mop~MOP-3[1]#_g27000_|) + (cons (cons 'unchecked-accessors + |gerbil/core/mop~MOP-3[1]#_g27001_|) + (cons (cons 'unchecked-mutators + |gerbil/core/mop~MOP-3[1]#_g27002_|) + (cons (cons 'slot-types + |gerbil/core/mop~MOP-3[1]#_g27003_|) + (cons (cons 'slot-defaults + |gerbil/core/mop~MOP-3[1]#_g27004_|) + (cons (cons 'slot-contracts ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27155_|) - '()))))))))))))))))))))))) + |gerbil/core/mop~MOP-3[1]#_g27005_|) + '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (##unchecked-structure-set! __obj27015 __tmp27134 '16 '#f '#f)) - (let ((__tmp27156 - (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27157_|) - (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27158_|) - (cons (cons 'super - |gerbil/core/mop~MOP-3[1]#_g27159_|) - (cons (cons 'slots - |gerbil/core/mop~MOP-3[1]#_g27160_|) - (cons (cons 'precedence-list - |gerbil/core/mop~MOP-3[1]#_g27161_|) - (cons (cons 'ordered-slots - |gerbil/core/mop~MOP-3[1]#_g27162_|) - (cons (cons 'struct? - |gerbil/core/mop~MOP-3[1]#_g27163_|) - (cons (cons 'final? + (declare (not safe)) + (##unchecked-structure-set! __obj26828 __tmp26984 '16 '#f '#f)) + (let ((__tmp27006 + (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27007_|) + (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27008_|) + (cons (cons 'super + |gerbil/core/mop~MOP-3[1]#_g27009_|) + (cons (cons 'slots + |gerbil/core/mop~MOP-3[1]#_g27010_|) + (cons (cons 'precedence-list + |gerbil/core/mop~MOP-3[1]#_g27011_|) + (cons (cons 'ordered-slots + |gerbil/core/mop~MOP-3[1]#_g27012_|) + (cons (cons 'struct? + |gerbil/core/mop~MOP-3[1]#_g27013_|) + (cons (cons 'final? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27164_|) - (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27165_|) - (cons (cons 'metaclass - |gerbil/core/mop~MOP-3[1]#_g27122_|) - (cons (cons 'constructor-method - |gerbil/core/mop~MOP-3[1]#_g27166_|) - (cons (cons 'type-descriptor - |gerbil/core/mop~MOP-3[1]#_g27167_|) - (cons (cons 'constructor - |gerbil/core/mop~MOP-3[1]#_g27168_|) - (cons (cons 'predicate - |gerbil/core/mop~MOP-3[1]#_g27169_|) - (cons (cons 'accessors + |gerbil/core/mop~MOP-3[1]#_g27014_|) + (cons (cons 'system? + |gerbil/core/mop~MOP-3[1]#_g27015_|) + (cons (cons 'metaclass + |gerbil/core/mop~MOP-3[1]#_g26972_|) + (cons (cons 'constructor-method + |gerbil/core/mop~MOP-3[1]#_g27016_|) + (cons (cons 'type-descriptor + |gerbil/core/mop~MOP-3[1]#_g27017_|) + (cons (cons 'constructor + |gerbil/core/mop~MOP-3[1]#_g27018_|) + (cons (cons 'predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27170_|) - (cons (cons 'mutators - |gerbil/core/mop~MOP-3[1]#_g27171_|) - (cons (cons 'unchecked-accessors - |gerbil/core/mop~MOP-3[1]#_g27172_|) - (cons (cons 'unchecked-mutators - |gerbil/core/mop~MOP-3[1]#_g27173_|) - (cons (cons 'slot-types - |gerbil/core/mop~MOP-3[1]#_g27174_|) - (cons (cons 'slot-defaults - |gerbil/core/mop~MOP-3[1]#_g27175_|) - (cons (cons 'slot-contracts + |gerbil/core/mop~MOP-3[1]#_g27019_|) + (cons (cons 'accessors |gerbil/core/mop~MOP-3[1]#_g27020_|) + (cons (cons 'mutators + |gerbil/core/mop~MOP-3[1]#_g27021_|) + (cons (cons 'unchecked-accessors + |gerbil/core/mop~MOP-3[1]#_g27022_|) + (cons (cons 'unchecked-mutators + |gerbil/core/mop~MOP-3[1]#_g27023_|) + (cons (cons 'slot-types + |gerbil/core/mop~MOP-3[1]#_g27024_|) + (cons (cons 'slot-defaults + |gerbil/core/mop~MOP-3[1]#_g27025_|) + (cons (cons 'slot-contracts ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27176_|) - '()))))))))))))))))))))))) + |gerbil/core/mop~MOP-3[1]#_g27026_|) + '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (##unchecked-structure-set! __obj27015 __tmp27156 '17 '#f '#f)) - (let ((__tmp27177 - (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27178_|) - (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27179_|) - (cons (cons 'super - |gerbil/core/mop~MOP-3[1]#_g27180_|) - (cons (cons 'slots - |gerbil/core/mop~MOP-3[1]#_g27181_|) - (cons (cons 'precedence-list - |gerbil/core/mop~MOP-3[1]#_g27182_|) - (cons (cons 'ordered-slots - |gerbil/core/mop~MOP-3[1]#_g27183_|) - (cons (cons 'struct? - |gerbil/core/mop~MOP-3[1]#_g27184_|) - (cons (cons 'final? + (declare (not safe)) + (##unchecked-structure-set! __obj26828 __tmp27006 '17 '#f '#f)) + (let ((__tmp27027 + (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27028_|) + (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27029_|) + (cons (cons 'super + |gerbil/core/mop~MOP-3[1]#_g27030_|) + (cons (cons 'slots + |gerbil/core/mop~MOP-3[1]#_g27031_|) + (cons (cons 'precedence-list + |gerbil/core/mop~MOP-3[1]#_g27032_|) + (cons (cons 'ordered-slots + |gerbil/core/mop~MOP-3[1]#_g27033_|) + (cons (cons 'struct? + |gerbil/core/mop~MOP-3[1]#_g27034_|) + (cons (cons 'final? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27185_|) - (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27186_|) - (cons (cons 'metaclass - |gerbil/core/mop~MOP-3[1]#_g27187_|) - (cons (cons 'constructor-method - |gerbil/core/mop~MOP-3[1]#_g27188_|) - (cons (cons 'type-descriptor - |gerbil/core/mop~MOP-3[1]#_g27189_|) - (cons (cons 'constructor - |gerbil/core/mop~MOP-3[1]#_g27190_|) - (cons (cons 'predicate - |gerbil/core/mop~MOP-3[1]#_g27191_|) - (cons (cons 'accessors + |gerbil/core/mop~MOP-3[1]#_g27035_|) + (cons (cons 'system? + |gerbil/core/mop~MOP-3[1]#_g27036_|) + (cons (cons 'metaclass + |gerbil/core/mop~MOP-3[1]#_g27037_|) + (cons (cons 'constructor-method + |gerbil/core/mop~MOP-3[1]#_g27038_|) + (cons (cons 'type-descriptor + |gerbil/core/mop~MOP-3[1]#_g27039_|) + (cons (cons 'constructor + |gerbil/core/mop~MOP-3[1]#_g27040_|) + (cons (cons 'predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27192_|) - (cons (cons 'mutators - |gerbil/core/mop~MOP-3[1]#_g27193_|) - (cons (cons 'unchecked-accessors - |gerbil/core/mop~MOP-3[1]#_g27194_|) - (cons (cons 'unchecked-mutators - |gerbil/core/mop~MOP-3[1]#_g27195_|) - (cons (cons 'slot-types - |gerbil/core/mop~MOP-3[1]#_g27196_|) - (cons (cons 'slot-defaults - |gerbil/core/mop~MOP-3[1]#_g27197_|) - (cons (cons 'slot-contracts + |gerbil/core/mop~MOP-3[1]#_g27041_|) + (cons (cons 'accessors |gerbil/core/mop~MOP-3[1]#_g27042_|) + (cons (cons 'mutators + |gerbil/core/mop~MOP-3[1]#_g27043_|) + (cons (cons 'unchecked-accessors + |gerbil/core/mop~MOP-3[1]#_g27044_|) + (cons (cons 'unchecked-mutators + |gerbil/core/mop~MOP-3[1]#_g27045_|) + (cons (cons 'slot-types + |gerbil/core/mop~MOP-3[1]#_g27046_|) + (cons (cons 'slot-defaults + |gerbil/core/mop~MOP-3[1]#_g27047_|) + (cons (cons 'slot-contracts ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27198_|) - '()))))))))))))))))))))))) + |gerbil/core/mop~MOP-3[1]#_g27048_|) + '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (##unchecked-structure-set! __obj27015 __tmp27177 '18 '#f '#f)) - __obj27015))) + (declare (not safe)) + (##unchecked-structure-set! __obj26828 __tmp27027 '18 '#f '#f)) + __obj26828)))) diff --git a/src/bootstrap/gerbil/core/mop~3.scm b/src/bootstrap/gerbil/core/mop~3.scm index 81ea4d7cfa..e5220aa2e9 100644 --- a/src/bootstrap/gerbil/core/mop~3.scm +++ b/src/bootstrap/gerbil/core/mop~3.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/mop~MOP-4[1]#_g27227_| + (define |gerbil/core/mop~MOP-4[1]#_g27077_| (##structure gx#syntax-quote::t '@method @@ -9,12 +9,12 @@ '())) (begin (define |gerbil/core/mop~MOP-4[1]#typedef-body?| - (lambda (_%stx24781%_) - (letrec ((_%body-opt?24784%_ - (lambda (_%key24787%_) - (let ((__tmp27199 (gx#stx-e _%key24787%_))) + (lambda (_%stx24607%_) + (letrec ((_%body-opt?24610%_ + (lambda (_%key24613%_) + (let ((__tmp27049 (gx#stx-e _%key24613%_))) (declare (not safe)) - (##memq __tmp27199 + (##memq __tmp27049 '(id: struct: name: @@ -23,1192 +23,1197 @@ final: print: equal: - metaclass:)))))) - (gx#stx-plist? _%stx24781%_ _%body-opt?24784%_)))) + metaclass: + acyclic:)))))) + (gx#stx-plist? _%stx24607%_ _%body-opt?24610%_)))) (define |gerbil/core/mop~MOP-4[1]#generate-defclass| - (lambda (_%stx22547%_ - _%id22549%_ - _%super-ref22550%_ - _%slots22551%_ - _%body22552%_) - (letrec ((_%wrap22554%_ - (lambda (_%e-stx24778%_) + (lambda (_%stx22395%_ + _%id22397%_ + _%super-ref22398%_ + _%slots22399%_ + _%body22400%_) + (letrec ((_%wrap22402%_ + (lambda (_%e-stx24604%_) (gx#stx-wrap-source - _%e-stx24778%_ - (gx#stx-source _%stx22547%_)))) - (_%make-id22556%_ - (lambda _%args24775%_ - (apply gx#stx-identifier _%id22549%_ _%args24775%_))) - (_%get-mixin-slots22557%_ - (lambda (_%super24745%_ _%slots24747%_) - (letrec* ((_%tab24749%_ (make-hash-table-eq)) - (_%dedup24751%_ - (lambda (_%mixins24762%_) - (let _%lp24765%_ ((_%rest24768%_ - _%mixins24762%_) - (_%r24770%_ '())) - (if (pair? _%rest24768%_) - (let ((_%slot24772%_ + _%e-stx24604%_ + (gx#stx-source _%stx22395%_)))) + (_%make-id22404%_ + (lambda _%args24601%_ + (apply gx#stx-identifier _%id22397%_ _%args24601%_))) + (_%get-mixin-slots22405%_ + (lambda (_%super24571%_ _%slots24573%_) + (letrec* ((_%tab24575%_ (make-hash-table-eq)) + (_%dedup24577%_ + (lambda (_%mixins24588%_) + (let _%lp24591%_ ((_%rest24594%_ + _%mixins24588%_) + (_%r24596%_ '())) + (if (pair? _%rest24594%_) + (let ((_%slot24598%_ (let () (declare (not safe)) - (##car _%rest24768%_)))) + (##car _%rest24594%_)))) (if (hash-get - _%tab24749%_ - _%slot24772%_) - (_%lp24765%_ + _%tab24575%_ + _%slot24598%_) + (_%lp24591%_ (let () (declare (not safe)) - (##cdr _%rest24768%_)) - _%r24770%_) + (##cdr _%rest24594%_)) + _%r24596%_) (begin (hash-put! - _%tab24749%_ - _%slot24772%_ + _%tab24575%_ + _%slot24598%_ '#t) - (_%lp24765%_ + (_%lp24591%_ (let () (declare (not safe)) - (##cdr _%rest24768%_)) - (cons _%slot24772%_ - _%r24770%_))))) - (reverse _%r24770%_)))))) + (##cdr _%rest24594%_)) + (cons _%slot24598%_ + _%r24596%_))))) + (reverse _%r24596%_)))))) (gx#stx-for-each - (lambda (_%slot24753%_) - (hash-put! _%tab24749%_ (gx#stx-e _%slot24753%_) '#t)) - _%slots24747%_) - (if (not _%super24745%_) + (lambda (_%slot24579%_) + (hash-put! _%tab24575%_ (gx#stx-e _%slot24579%_) '#t)) + _%slots24573%_) + (if (not _%super24571%_) '() - (if (gx#identifier? _%super24745%_) - (_%dedup24751%_ - (_%get-mixin-slots-r22558%_ _%super24745%_)) - (_%dedup24751%_ + (if (gx#identifier? _%super24571%_) + (_%dedup24577%_ + (_%get-mixin-slots-r22406%_ _%super24571%_)) + (_%dedup24577%_ (concatenate - (map _%get-mixin-slots-r22558%_ - _%super24745%_)))))))) - (_%get-mixin-slots-r22558%_ - (lambda (_%type-id24739%_) - (let ((_%info24742%_ - (gx#syntax-local-value _%type-id24739%_))) - (let ((__tmp27201 - (let ((__obj27016 _%info24742%_)) + (map _%get-mixin-slots-r22406%_ + _%super24571%_)))))))) + (_%get-mixin-slots-r22406%_ + (lambda (_%type-id24565%_) + (let ((_%info24568%_ + (gx#syntax-local-value _%type-id24565%_))) + (let ((__tmp27051 + (let ((__obj26829 _%info24568%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27016 + __obj26829 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj27016 - '4 + __obj26829 + '5 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj27016 + __obj26829 'slots)))) - (__tmp27200 + (__tmp27050 (concatenate - (map _%get-mixin-slots-r22558%_ - (let ((__obj27017 _%info24742%_)) + (map _%get-mixin-slots-r22406%_ + (let ((__obj26830 _%info24568%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27017 + __obj26830 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj27017 - '3 + __obj26830 + '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj27017 + __obj26830 'super))))))) (declare (not safe)) - (##append __tmp27201 __tmp27200)))))) - (gx#check-duplicate-identifiers _%slots22551%_ _%stx22547%_) - (let* ((_%name22560%_ (symbol->string (gx#stx-e _%id22549%_))) - (_%super22563%_ - (map gx#syntax-local-value _%super-ref22550%_)) - (_%struct?22566%_ (gx#stx-getq 'struct: _%body22552%_)) - (_%g2256922577%_ - (lambda (_%g2257022573%_) + (##append __tmp27051 __tmp27050)))))) + (gx#check-duplicate-identifiers _%slots22399%_ _%stx22395%_) + (let* ((_%name22408%_ (symbol->string (gx#stx-e _%id22397%_))) + (_%super22411%_ + (map gx#syntax-local-value _%super-ref22398%_)) + (_%struct?22414%_ (gx#stx-getq 'struct: _%body22400%_)) + (_%g2241722425%_ + (lambda (_%g2241822421%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2257022573%_))) - (_%g2256824735%_ - (lambda (_%g2257022581%_) - ((lambda (_%L22584%_) - (let* ((_%g2260022608%_ - (lambda (_%g2260122604%_) + _%g2241822421%_))) + (_%g2241624561%_ + (lambda (_%g2241822429%_) + ((lambda (_%g2241922432%_) + (let* ((_%g2244822456%_ + (lambda (_%g2244922452%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2260122604%_))) - (_%g2259924731%_ - (lambda (_%g2260122612%_) - ((lambda (_%L22615%_) - (let* ((_%g2262822636%_ - (lambda (_%g2262922632%_) + _%g2244922452%_))) + (_%g2244724557%_ + (lambda (_%g2244922460%_) + ((lambda (_%g2245022463%_) + (let* ((_%g2247622484%_ + (lambda (_%g2247722480%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2262922632%_))) - (_%g2262724727%_ - (lambda (_%g2262922640%_) - ((lambda (_%L22643%_) - (let* ((_%g2265622664%_ - (lambda (_%g2265722660%_) + _%g2247722480%_))) + (_%g2247524553%_ + (lambda (_%g2247722488%_) + ((lambda (_%g2247822491%_) + (let* ((_%g2250422512%_ + (lambda (_%g2250522508%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2265722660%_))) - (_%g2265524723%_ - (lambda (_%g2265722668%_) - ((lambda (_%L22671%_) - (let* ((_%g2268422692%_ + _%g2250522508%_))) + (_%g2250324549%_ + (lambda (_%g2250522516%_) + ((lambda (_%g2250622519%_) + (let* ((_%g2253222540%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2268522688%_) + (lambda (_%g2253322536%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2268522688%_))) - (_%g2268324719%_ - (lambda (_%g2268522696%_) - ((lambda (_%L22699%_) - (let* ((_%g2271222729%_ - (lambda (_%g2271322725%_) + _%g2253322536%_))) + (_%g2253124545%_ + (lambda (_%g2253322544%_) + ((lambda (_%g2253422547%_) + (let* ((_%g2256022577%_ + (lambda (_%g2256122573%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2271322725%_))) - (_%g2271124715%_ - (lambda (_%g2271322733%_) + _%g2256122573%_))) + (_%g2255924541%_ + (lambda (_%g2256122581%_) (if (gx#stx-pair/null? - _%g2271322733%_) - (let ((_g27202_ + _%g2256122581%_) + (let ((_g27052_ (gx#syntax-split-splice - _%g2271322733%_ + _%g2256122581%_ '0))) (begin - (let ((_g27203_ + (let ((_g27053_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g27202_) - (##values-length _g27202_) + _g27052_) + (##values-length _g27052_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27203_ 2))) - (error "Context expects 2 values" _g27203_))) + (if (not (let () (declare (not safe)) (##fx= _g27053_ 2))) + (error "Context expects 2 values" _g27053_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2271522736%_ + (let ((_%target2256322584%_ (let () (declare (not safe)) (##values-ref - _g27202_ + _g27052_ 0))) - (_%tl2271722739%_ + (_%tl2256522587%_ (let () (declare (not safe)) (##values-ref - _g27202_ + _g27052_ 1)))) (if (gx#stx-null? - _%tl2271722739%_) - (letrec ((_%loop2271822742%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd2271622746%_ _%slot2272222749%_) - (if (gx#stx-pair? _%hd2271622746%_) - (let ((_%e2271922752%_ - (gx#syntax-e _%hd2271622746%_))) - (let ((_%lp-hd2272022756%_ + _%tl2256522587%_) + (letrec ((_%loop2256622590%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd2256422594%_ _%slot2257022597%_) + (if (gx#stx-pair? _%hd2256422594%_) + (let ((_%e2256722599%_ + (gx#syntax-e _%hd2256422594%_))) + (let ((_%lp-hd2256822603%_ (let () (declare (not safe)) - (##car _%e2271922752%_))) - (_%lp-tl2272122759%_ + (##car _%e2256722599%_))) + (_%lp-tl2256922606%_ (let () (declare (not safe)) - (##cdr _%e2271922752%_)))) - (_%loop2271822742%_ - _%lp-tl2272122759%_ - (cons _%lp-hd2272022756%_ - _%slot2272222749%_)))) - (let ((_%slot2272322762%_ - (reverse _%slot2272222749%_))) - ((lambda (_%L22766%_) - (let* ((_%g2278322800%_ - (lambda (_%g2278422796%_) + (##cdr _%e2256722599%_)))) + (_%loop2256622590%_ + _%lp-tl2256922606%_ + (cons _%lp-hd2256822603%_ + _%slot2257022597%_)))) + (let ((_%slot2257122609%_ + (reverse _%slot2257022597%_))) + ((lambda (_%g2256222612%_) + (let* ((_%g2262922646%_ + (lambda (_%g2263022642%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2278422796%_))) - (_%g2278224706%_ - (lambda (_%g2278422804%_) + _%g2263022642%_))) + (_%g2262824532%_ + (lambda (_%g2263022650%_) (if (gx#stx-pair/null? - _%g2278422804%_) - (let ((_g27204_ + _%g2263022650%_) + (let ((_g27054_ (gx#syntax-split-splice - _%g2278422804%_ + _%g2263022650%_ '0))) (begin - (let ((_g27205_ + (let ((_g27055_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g27204_) - (##values-length _g27204_) + (if (##values? _g27054_) + (##values-length _g27054_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27205_ 2))) - (error "Context expects 2 values" _g27205_))) - (let ((_%target2278622807%_ + (if (not (let () (declare (not safe)) (##fx= _g27055_ 2))) + (error "Context expects 2 values" _g27055_))) + (let ((_%target2263222653%_ (let () (declare (not safe)) - (##values-ref _g27204_ 0))) - (_%tl2278822810%_ + (##values-ref _g27054_ 0))) + (_%tl2263422656%_ (let () (declare (not safe)) - (##values-ref _g27204_ 1)))) - (if (gx#stx-null? _%tl2278822810%_) - (letrec ((_%loop2278922813%_ - (lambda (_%hd2278722817%_ _%getf2279322820%_) - (if (gx#stx-pair? _%hd2278722817%_) - (let ((_%e2279022823%_ - (gx#syntax-e _%hd2278722817%_))) - (let ((_%lp-hd2279122827%_ + (##values-ref _g27054_ 1)))) + (if (gx#stx-null? _%tl2263422656%_) + (letrec ((_%loop2263522659%_ + (lambda (_%hd2263322663%_ _%getf2263922666%_) + (if (gx#stx-pair? _%hd2263322663%_) + (let ((_%e2263622668%_ + (gx#syntax-e _%hd2263322663%_))) + (let ((_%lp-hd2263722672%_ (let () (declare (not safe)) - (##car _%e2279022823%_))) - (_%lp-tl2279222830%_ + (##car _%e2263622668%_))) + (_%lp-tl2263822675%_ (let () (declare (not safe)) - (##cdr _%e2279022823%_)))) - (_%loop2278922813%_ - _%lp-tl2279222830%_ - (cons _%lp-hd2279122827%_ - _%getf2279322820%_)))) - (let ((_%getf2279422833%_ - (reverse _%getf2279322820%_))) - ((lambda (_%L22837%_) - (let* ((_%g2285422871%_ - (lambda (_%g2285522867%_) + (##cdr _%e2263622668%_)))) + (_%loop2263522659%_ + _%lp-tl2263822675%_ + (cons _%lp-hd2263722672%_ + _%getf2263922666%_)))) + (let ((_%getf2264022678%_ + (reverse _%getf2263922666%_))) + ((lambda (_%g2263122681%_) + (let* ((_%g2269822715%_ + (lambda (_%g2269922711%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2285522867%_))) - (_%g2285324697%_ - (lambda (_%g2285522875%_) + _%g2269922711%_))) + (_%g2269724523%_ + (lambda (_%g2269922719%_) (if (gx#stx-pair/null? - _%g2285522875%_) - (let ((_g27206_ + _%g2269922719%_) + (let ((_g27056_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g2285522875%_ '0))) + (gx#syntax-split-splice _%g2269922719%_ '0))) (begin - (let ((_g27207_ + (let ((_g27057_ (let () (declare (not safe)) - (if (##values? _g27206_) - (##values-length _g27206_) + (if (##values? _g27056_) + (##values-length _g27056_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27207_ 2))) - (error "Context expects 2 values" _g27207_))) - (let ((_%target2285722878%_ + (##fx= _g27057_ 2))) + (error "Context expects 2 values" _g27057_))) + (let ((_%target2270122722%_ (let () (declare (not safe)) - (##values-ref _g27206_ 0))) - (_%tl2285922881%_ + (##values-ref _g27056_ 0))) + (_%tl2270322725%_ (let () (declare (not safe)) - (##values-ref _g27206_ 1)))) - (if (gx#stx-null? _%tl2285922881%_) - (letrec ((_%loop2286022884%_ - (lambda (_%hd2285822888%_ - _%setf2286422891%_) - (if (gx#stx-pair? _%hd2285822888%_) - (let ((_%e2286122894%_ + (##values-ref _g27056_ 1)))) + (if (gx#stx-null? _%tl2270322725%_) + (letrec ((_%loop2270422728%_ + (lambda (_%hd2270222732%_ + _%setf2270822735%_) + (if (gx#stx-pair? _%hd2270222732%_) + (let ((_%e2270522737%_ (gx#syntax-e - _%hd2285822888%_))) - (let ((_%lp-hd2286222898%_ + _%hd2270222732%_))) + (let ((_%lp-hd2270622741%_ (let () (declare (not safe)) - (##car _%e2286122894%_))) - (_%lp-tl2286322901%_ + (##car _%e2270522737%_))) + (_%lp-tl2270722744%_ (let () (declare (not safe)) - (##cdr _%e2286122894%_)))) - (_%loop2286022884%_ - _%lp-tl2286322901%_ - (cons _%lp-hd2286222898%_ - _%setf2286422891%_)))) - (let ((_%setf2286522904%_ - (reverse _%setf2286422891%_))) - ((lambda (_%L22908%_) - (let* ((_%mixin-slots22925%_ - (_%get-mixin-slots22557%_ - _%super-ref22550%_ - _%slots22551%_)) - (_%g2292822945%_ - (lambda (_%g2292922941%_) + (##cdr _%e2270522737%_)))) + (_%loop2270422728%_ + _%lp-tl2270722744%_ + (cons _%lp-hd2270622741%_ + _%setf2270822735%_)))) + (let ((_%setf2270922747%_ + (reverse _%setf2270822735%_))) + ((lambda (_%g2270022750%_) + (let* ((_%mixin-slots22767%_ + (_%get-mixin-slots22405%_ + _%super-ref22398%_ + _%slots22399%_)) + (_%g2277022787%_ + (lambda (_%g2277122783%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2292922941%_))) - (_%g2292724693%_ - (lambda (_%g2292922949%_) + _%g2277122783%_))) + (_%g2276924519%_ + (lambda (_%g2277122791%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2292922949%_) - (let ((_g27208_ - (gx#syntax-split-splice _%g2292922949%_ '0))) + _%g2277122791%_) + (let ((_g27058_ + (gx#syntax-split-splice _%g2277122791%_ '0))) (begin - (let ((_g27209_ + (let ((_g27059_ (let () (declare (not safe)) - (if (##values? _g27208_) - (##values-length _g27208_) + (if (##values? _g27058_) + (##values-length _g27058_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27209_ 2))) - (error "Context expects 2 values" _g27209_))) - (let ((_%target2293122952%_ + (##fx= _g27059_ 2))) + (error "Context expects 2 values" _g27059_))) + (let ((_%target2277322794%_ (let () (declare (not safe)) - (##values-ref _g27208_ 0))) - (_%tl2293322955%_ + (##values-ref _g27058_ 0))) + (_%tl2277522797%_ (let () (declare (not safe)) - (##values-ref _g27208_ 1)))) - (if (gx#stx-null? _%tl2293322955%_) - (letrec ((_%loop2293422958%_ - (lambda (_%hd2293222962%_ - _%mixin-slot2293822965%_) + (##values-ref _g27058_ 1)))) + (if (gx#stx-null? _%tl2277522797%_) + (letrec ((_%loop2277622800%_ + (lambda (_%hd2277422804%_ + _%mixin-slot2278022807%_) (if (gx#stx-pair? - _%hd2293222962%_) - (let ((_%e2293522968%_ + _%hd2277422804%_) + (let ((_%e2277722809%_ (gx#syntax-e - _%hd2293222962%_))) - (let ((_%lp-hd2293622972%_ + _%hd2277422804%_))) + (let ((_%lp-hd2277822813%_ (let () (declare (not safe)) - (##car _%e2293522968%_))) - (_%lp-tl2293722975%_ + (##car _%e2277722809%_))) + (_%lp-tl2277922816%_ (let () (declare (not safe)) - (##cdr _%e2293522968%_)))) - (_%loop2293422958%_ - _%lp-tl2293722975%_ - (cons _%lp-hd2293622972%_ - _%mixin-slot2293822965%_)))) - (let ((_%mixin-slot2293922978%_ - (reverse _%mixin-slot2293822965%_))) - ((lambda (_%L22982%_) - (let* ((_%g2300023017%_ - (lambda (_%g2300123013%_) + (##cdr _%e2277722809%_)))) + (_%loop2277622800%_ + _%lp-tl2277922816%_ + (cons _%lp-hd2277822813%_ + _%mixin-slot2278022807%_)))) + (let ((_%mixin-slot2278122819%_ + (reverse _%mixin-slot2278022807%_))) + ((lambda (_%g2277222822%_) + (let* ((_%g2284022857%_ + (lambda (_%g2284122853%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2300123013%_))) - (_%g2299924684%_ - (lambda (_%g2300123021%_) - (if (gx#stx-pair/null? _%g2300123021%_) - (let ((_g27210_ + _%g2284122853%_))) + (_%g2283924510%_ + (lambda (_%g2284122861%_) + (if (gx#stx-pair/null? _%g2284122861%_) + (let ((_g27060_ (gx#syntax-split-splice - _%g2300123021%_ + _%g2284122861%_ '0))) (begin - (let ((_g27211_ + (let ((_g27061_ (let () (declare (not safe)) - (if (##values? _g27210_) - (##values-length _g27210_) + (if (##values? _g27060_) + (##values-length _g27060_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27211_ 2))) + (##fx= _g27061_ 2))) (error "Context expects 2 values" - _g27211_))) - (let ((_%target2300323024%_ + _g27061_))) + (let ((_%target2284322864%_ (let () (declare (not safe)) - (##values-ref _g27210_ 0))) - (_%tl2300523027%_ + (##values-ref _g27060_ 0))) + (_%tl2284522867%_ (let () (declare (not safe)) - (##values-ref _g27210_ 1)))) - (if (gx#stx-null? _%tl2300523027%_) - (letrec ((_%loop2300623030%_ - (lambda (_%hd2300423034%_ - _%mixin-getf2301023037%_) + (##values-ref _g27060_ 1)))) + (if (gx#stx-null? _%tl2284522867%_) + (letrec ((_%loop2284622870%_ + (lambda (_%hd2284422874%_ + _%mixin-getf2285022877%_) (if (gx#stx-pair? - _%hd2300423034%_) - (let ((_%e2300723040%_ + _%hd2284422874%_) + (let ((_%e2284722879%_ (gx#syntax-e - _%hd2300423034%_))) - (let ((_%lp-hd2300823044%_ + _%hd2284422874%_))) + (let ((_%lp-hd2284822883%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e2300723040%_))) - (_%lp-tl2300923047%_ - (let () (declare (not safe)) (##cdr _%e2300723040%_)))) - (_%loop2300623030%_ - _%lp-tl2300923047%_ - (cons _%lp-hd2300823044%_ _%mixin-getf2301023037%_)))) - (let ((_%mixin-getf2301123050%_ - (reverse _%mixin-getf2301023037%_))) - ((lambda (_%L23054%_) - (let* ((_%g2307123088%_ - (lambda (_%g2307223084%_) + (##car _%e2284722879%_))) + (_%lp-tl2284922886%_ + (let () (declare (not safe)) (##cdr _%e2284722879%_)))) + (_%loop2284622870%_ + _%lp-tl2284922886%_ + (cons _%lp-hd2284822883%_ _%mixin-getf2285022877%_)))) + (let ((_%mixin-getf2285122889%_ + (reverse _%mixin-getf2285022877%_))) + ((lambda (_%g2284222892%_) + (let* ((_%g2290922926%_ + (lambda (_%g2291022922%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2307223084%_))) - (_%g2307024675%_ - (lambda (_%g2307223092%_) - (if (gx#stx-pair/null? _%g2307223092%_) - (let ((_g27212_ + _%g2291022922%_))) + (_%g2290824501%_ + (lambda (_%g2291022930%_) + (if (gx#stx-pair/null? _%g2291022930%_) + (let ((_g27062_ (gx#syntax-split-splice - _%g2307223092%_ + _%g2291022930%_ '0))) (begin - (let ((_g27213_ + (let ((_g27063_ (let () (declare (not safe)) - (if (##values? _g27212_) - (##values-length _g27212_) + (if (##values? _g27062_) + (##values-length _g27062_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27213_ 2))) + (##fx= _g27063_ 2))) (error "Context expects 2 values" - _g27213_))) - (let ((_%target2307423095%_ + _g27063_))) + (let ((_%target2291222933%_ (let () (declare (not safe)) - (##values-ref _g27212_ 0))) - (_%tl2307623098%_ + (##values-ref _g27062_ 0))) + (_%tl2291422936%_ (let () (declare (not safe)) - (##values-ref _g27212_ 1)))) - (if (gx#stx-null? _%tl2307623098%_) - (letrec ((_%loop2307723101%_ - (lambda (_%hd2307523105%_ - _%mixin-setf2308123108%_) + (##values-ref _g27062_ 1)))) + (if (gx#stx-null? _%tl2291422936%_) + (letrec ((_%loop2291522939%_ + (lambda (_%hd2291322943%_ + _%mixin-setf2291922946%_) (if (gx#stx-pair? - _%hd2307523105%_) - (let ((_%e2307823111%_ + _%hd2291322943%_) + (let ((_%e2291622948%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd2307523105%_))) - (let ((_%lp-hd2307923115%_ + (gx#syntax-e _%hd2291322943%_))) + (let ((_%lp-hd2291722952%_ (let () (declare (not safe)) - (##car _%e2307823111%_))) - (_%lp-tl2308023118%_ + (##car _%e2291622948%_))) + (_%lp-tl2291822955%_ (let () (declare (not safe)) - (##cdr _%e2307823111%_)))) - (_%loop2307723101%_ - _%lp-tl2308023118%_ - (cons _%lp-hd2307923115%_ _%mixin-setf2308123108%_)))) - (let ((_%mixin-setf2308223121%_ - (reverse _%mixin-setf2308123108%_))) - ((lambda (_%L23125%_) - (let* ((_%g2314223159%_ - (lambda (_%g2314323155%_) + (##cdr _%e2291622948%_)))) + (_%loop2291522939%_ + _%lp-tl2291822955%_ + (cons _%lp-hd2291722952%_ _%mixin-setf2291922946%_)))) + (let ((_%mixin-setf2292022958%_ + (reverse _%mixin-setf2291922946%_))) + ((lambda (_%g2291122961%_) + (let* ((_%g2297822995%_ + (lambda (_%g2297922991%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2314323155%_))) - (_%g2314124658%_ - (lambda (_%g2314323163%_) - (if (gx#stx-pair/null? _%g2314323163%_) - (let ((_g27214_ + _%g2297922991%_))) + (_%g2297724484%_ + (lambda (_%g2297922999%_) + (if (gx#stx-pair/null? _%g2297922999%_) + (let ((_g27064_ (gx#syntax-split-splice - _%g2314323163%_ + _%g2297922999%_ '0))) (begin - (let ((_g27215_ + (let ((_g27065_ (let () (declare (not safe)) - (if (##values? _g27214_) + (if (##values? _g27064_) (##values-length - _g27214_) + _g27064_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27215_ 2))) + (##fx= _g27065_ 2))) (error "Context expects 2 values" - _g27215_))) - (let ((_%target2314523166%_ + _g27065_))) + (let ((_%target2298123002%_ (let () (declare (not safe)) - (##values-ref _g27214_ 0))) - (_%tl2314723169%_ + (##values-ref _g27064_ 0))) + (_%tl2298323005%_ (let () (declare (not safe)) (##values-ref - _g27214_ + _g27064_ 1)))) (if (gx#stx-null? - _%tl2314723169%_) - (letrec ((_%loop2314823172%_ - (lambda (_%hd2314623176%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%ugetf2315223179%_) - (if (gx#stx-pair? _%hd2314623176%_) - (let ((_%e2314923182%_ - (gx#syntax-e _%hd2314623176%_))) - (let ((_%lp-hd2315023186%_ + _%tl2298323005%_) + (letrec ((_%loop2298423008%_ + (lambda (_%hd2298223012%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%ugetf2298823015%_) + (if (gx#stx-pair? _%hd2298223012%_) + (let ((_%e2298523017%_ + (gx#syntax-e _%hd2298223012%_))) + (let ((_%lp-hd2298623021%_ (let () (declare (not safe)) - (##car _%e2314923182%_))) - (_%lp-tl2315123189%_ + (##car _%e2298523017%_))) + (_%lp-tl2298723024%_ (let () (declare (not safe)) - (##cdr _%e2314923182%_)))) - (_%loop2314823172%_ - _%lp-tl2315123189%_ - (cons _%lp-hd2315023186%_ _%ugetf2315223179%_)))) - (let ((_%ugetf2315323192%_ - (reverse _%ugetf2315223179%_))) - ((lambda (_%L23196%_) - (let* ((_%g2321323230%_ - (lambda (_%g2321423226%_) + (##cdr _%e2298523017%_)))) + (_%loop2298423008%_ + _%lp-tl2298723024%_ + (cons _%lp-hd2298623021%_ _%ugetf2298823015%_)))) + (let ((_%ugetf2298923027%_ + (reverse _%ugetf2298823015%_))) + ((lambda (_%g2298023030%_) + (let* ((_%g2304723064%_ + (lambda (_%g2304823060%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2321423226%_))) - (_%g2321224641%_ - (lambda (_%g2321423234%_) - (if (gx#stx-pair/null? _%g2321423234%_) - (let ((_g27216_ + _%g2304823060%_))) + (_%g2304624467%_ + (lambda (_%g2304823068%_) + (if (gx#stx-pair/null? _%g2304823068%_) + (let ((_g27066_ (gx#syntax-split-splice - _%g2321423234%_ + _%g2304823068%_ '0))) (begin - (let ((_g27217_ + (let ((_g27067_ (let () (declare (not safe)) (if (##values? - _g27216_) + _g27066_) (##values-length - _g27216_) + _g27066_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27217_ + (##fx= _g27067_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g27217_))) + (error "Context expects 2 values" _g27067_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2321623237%_ + (let ((_%target2305023071%_ (let () (declare (not safe)) (##values-ref - _g27216_ + _g27066_ 0))) - (_%tl2321823240%_ + (_%tl2305223074%_ (let () (declare (not safe)) (##values-ref - _g27216_ + _g27066_ 1)))) (if (gx#stx-null? - _%tl2321823240%_) - (letrec ((_%loop2321923243%_ - (lambda (_%hd2321723247%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%usetf2322323250%_) - (if (gx#stx-pair? _%hd2321723247%_) - (let ((_%e2322023253%_ - (gx#syntax-e _%hd2321723247%_))) - (let ((_%lp-hd2322123257%_ + _%tl2305223074%_) + (letrec ((_%loop2305323077%_ + (lambda (_%hd2305123081%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%usetf2305723084%_) + (if (gx#stx-pair? _%hd2305123081%_) + (let ((_%e2305423086%_ + (gx#syntax-e _%hd2305123081%_))) + (let ((_%lp-hd2305523090%_ (let () (declare (not safe)) - (##car _%e2322023253%_))) - (_%lp-tl2322223260%_ + (##car _%e2305423086%_))) + (_%lp-tl2305623093%_ (let () (declare (not safe)) - (##cdr _%e2322023253%_)))) - (_%loop2321923243%_ - _%lp-tl2322223260%_ - (cons _%lp-hd2322123257%_ - _%usetf2322323250%_)))) - (let ((_%usetf2322423263%_ - (reverse _%usetf2322323250%_))) - ((lambda (_%L23267%_) - (let* ((_%g2328423301%_ - (lambda (_%g2328523297%_) + (##cdr _%e2305423086%_)))) + (_%loop2305323077%_ + _%lp-tl2305623093%_ + (cons _%lp-hd2305523090%_ + _%usetf2305723084%_)))) + (let ((_%usetf2305823096%_ + (reverse _%usetf2305723084%_))) + ((lambda (_%g2304923099%_) + (let* ((_%g2311623133%_ + (lambda (_%g2311723129%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2328523297%_))) - (_%g2328324624%_ - (lambda (_%g2328523305%_) + _%g2311723129%_))) + (_%g2311524450%_ + (lambda (_%g2311723137%_) (if (gx#stx-pair/null? - _%g2328523305%_) - (let ((_g27218_ + _%g2311723137%_) + (let ((_g27068_ (gx#syntax-split-splice - _%g2328523305%_ + _%g2311723137%_ '0))) (begin - (let ((_g27219_ + (let ((_g27069_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g27218_) - (##values-length _g27218_) + _g27068_) + (##values-length _g27068_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27219_ 2))) - (error "Context expects 2 values" _g27219_))) + (if (not (let () (declare (not safe)) (##fx= _g27069_ 2))) + (error "Context expects 2 values" _g27069_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2328723308%_ + (let ((_%target2311923140%_ (let () (declare (not safe)) (##values-ref - _g27218_ + _g27068_ 0))) - (_%tl2328923311%_ + (_%tl2312123143%_ (let () (declare (not safe)) (##values-ref - _g27218_ + _g27068_ 1)))) (if (gx#stx-null? - _%tl2328923311%_) - (letrec ((_%loop2329023314%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd2328823318%_ - _%mixin-ugetf2329423321%_) - (if (gx#stx-pair? _%hd2328823318%_) - (let ((_%e2329123324%_ - (gx#syntax-e _%hd2328823318%_))) - (let ((_%lp-hd2329223328%_ + _%tl2312123143%_) + (letrec ((_%loop2312223146%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd2312023150%_ + _%mixin-ugetf2312623153%_) + (if (gx#stx-pair? _%hd2312023150%_) + (let ((_%e2312323155%_ + (gx#syntax-e _%hd2312023150%_))) + (let ((_%lp-hd2312423159%_ (let () (declare (not safe)) - (##car _%e2329123324%_))) - (_%lp-tl2329323331%_ + (##car _%e2312323155%_))) + (_%lp-tl2312523162%_ (let () (declare (not safe)) - (##cdr _%e2329123324%_)))) - (_%loop2329023314%_ - _%lp-tl2329323331%_ - (cons _%lp-hd2329223328%_ - _%mixin-ugetf2329423321%_)))) - (let ((_%mixin-ugetf2329523334%_ - (reverse _%mixin-ugetf2329423321%_))) - ((lambda (_%L23338%_) - (let* ((_%g2335523372%_ - (lambda (_%g2335623368%_) + (##cdr _%e2312323155%_)))) + (_%loop2312223146%_ + _%lp-tl2312523162%_ + (cons _%lp-hd2312423159%_ + _%mixin-ugetf2312623153%_)))) + (let ((_%mixin-ugetf2312723165%_ + (reverse _%mixin-ugetf2312623153%_))) + ((lambda (_%g2311823168%_) + (let* ((_%g2318523202%_ + (lambda (_%g2318623198%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2335623368%_))) - (_%g2335424607%_ - (lambda (_%g2335623376%_) + _%g2318623198%_))) + (_%g2318424433%_ + (lambda (_%g2318623206%_) (if (gx#stx-pair/null? - _%g2335623376%_) - (let ((_g27220_ + _%g2318623206%_) + (let ((_g27070_ (gx#syntax-split-splice - _%g2335623376%_ + _%g2318623206%_ '0))) (begin - (let ((_g27221_ + (let ((_g27071_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g27220_) - (##values-length _g27220_) + (if (##values? _g27070_) + (##values-length _g27070_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27221_ 2))) - (error "Context expects 2 values" _g27221_))) - (let ((_%target2335823379%_ + (if (not (let () (declare (not safe)) (##fx= _g27071_ 2))) + (error "Context expects 2 values" _g27071_))) + (let ((_%target2318823209%_ (let () (declare (not safe)) - (##values-ref _g27220_ 0))) - (_%tl2336023382%_ + (##values-ref _g27070_ 0))) + (_%tl2319023212%_ (let () (declare (not safe)) - (##values-ref _g27220_ 1)))) - (if (gx#stx-null? _%tl2336023382%_) - (letrec ((_%loop2336123385%_ - (lambda (_%hd2335923389%_ - _%mixin-usetf2336523392%_) - (if (gx#stx-pair? _%hd2335923389%_) - (let ((_%e2336223395%_ - (gx#syntax-e _%hd2335923389%_))) - (let ((_%lp-hd2336323399%_ + (##values-ref _g27070_ 1)))) + (if (gx#stx-null? _%tl2319023212%_) + (letrec ((_%loop2319123215%_ + (lambda (_%hd2318923219%_ + _%mixin-usetf2319523222%_) + (if (gx#stx-pair? _%hd2318923219%_) + (let ((_%e2319223224%_ + (gx#syntax-e _%hd2318923219%_))) + (let ((_%lp-hd2319323228%_ (let () (declare (not safe)) - (##car _%e2336223395%_))) - (_%lp-tl2336423402%_ + (##car _%e2319223224%_))) + (_%lp-tl2319423231%_ (let () (declare (not safe)) - (##cdr _%e2336223395%_)))) - (_%loop2336123385%_ - _%lp-tl2336423402%_ - (cons _%lp-hd2336323399%_ - _%mixin-usetf2336523392%_)))) - (let ((_%mixin-usetf2336623405%_ - (reverse _%mixin-usetf2336523392%_))) - ((lambda (_%L23409%_) - (let* ((_%type-slots23444%_ + (##cdr _%e2319223224%_)))) + (_%loop2319123215%_ + _%lp-tl2319423231%_ + (cons _%lp-hd2319323228%_ + _%mixin-usetf2319523222%_)))) + (let ((_%mixin-usetf2319623234%_ + (reverse _%mixin-usetf2319523222%_))) + ((lambda (_%g2318723237%_) + (let* ((_%type-slots23272%_ (if (gx#stx-null? - _%slots22551%_) + _%slots22399%_) '() (cons 'slots: (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-check-splice-targets - _%L22908%_ - _%L22837%_ - _%L22766%_) - (foldr (lambda (_%g2342923434%_ - _%g2343023437%_ - _%g2343123439%_ - _%g2343223441%_) - (cons (cons _%g2343123439%_ - (cons _%g2343023437%_ - (cons _%g2342923434%_ + _%g2270022750%_ + _%g2263122681%_ + _%g2256222612%_) + (foldr (lambda (_%g2325723262%_ + _%g2325823265%_ + _%g2325923267%_ + _%g2326023269%_) + (cons (cons _%g2325923267%_ + (cons _%g2325823265%_ + (cons _%g2325723262%_ '()))) - _%g2343223441%_)) + _%g2326023269%_)) '() - _%L22908%_ - _%L22837%_ - _%L22766%_)) + _%g2270022750%_ + _%g2263122681%_ + _%g2256222612%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-mixin-slots23465%_ + (_%type-mixin-slots23293%_ (if (gx#stx-null? - _%mixin-slots22925%_) + _%mixin-slots22767%_) '() (cons 'mixin: (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-check-splice-targets - _%L23125%_ - _%L23054%_ - _%L22982%_) - (foldr (lambda (_%g2345023455%_ - _%g2345123458%_ - _%g2345223460%_ - _%g2345323462%_) - (cons (cons _%g2345223460%_ - (cons _%g2345123458%_ - (cons _%g2345023455%_ + _%g2291122961%_ + _%g2284222892%_ + _%g2277222822%_) + (foldr (lambda (_%g2327823283%_ + _%g2327923286%_ + _%g2328023288%_ + _%g2328123290%_) + (cons (cons _%g2328023288%_ + (cons _%g2327923286%_ + (cons _%g2327823283%_ '()))) - _%g2345323462%_)) + _%g2328123290%_)) '() - _%L23125%_ - _%L23054%_ - _%L22982%_)) + _%g2291122961%_ + _%g2284222892%_ + _%g2277222822%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-name23472%_ + (_%type-name23300%_ (cons 'name: - (cons (let ((_%$e23468%_ + (cons (let ((_%$e23296%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'name: _%body22552%_))) - (if _%$e23468%_ _%$e23468%_ _%id22549%_)) + (gx#stx-getq 'name: _%body22400%_))) + (if _%$e23296%_ _%$e23296%_ _%id22397%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-id23479%_ + (_%type-id23307%_ (cons 'id: - (cons (let ((_%$e23475%_ + (cons (let ((_%$e23303%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'id: _%body22552%_))) - (if _%$e23475%_ - _%$e23475%_ + (gx#stx-getq 'id: _%body22400%_))) + (if _%$e23303%_ + _%$e23303%_ (let () (declare (not safe)) (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L22584%_)))) + _%g2241922432%_)))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-constructor23494%_ - (let ((_%$e23490%_ - (let ((_%e2348123483%_ + (_%type-constructor23321%_ + (let ((_%$e23317%_ + (let ((_%e2330923311%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'constructor: _%body22552%_))) - (if _%e2348123483%_ - (let ((_%e23487%_ _%e2348123483%_)) - (cons 'constructor: (cons _%e23487%_ '()))) + (gx#stx-getq 'constructor: _%body22400%_))) + (if _%e2330923311%_ + (let ((_%e23314%_ _%e2330923311%_)) + (cons 'constructor: (cons _%e23314%_ '()))) '#f)))) - (if _%$e23490%_ _%$e23490%_ '()))) + (if _%$e23317%_ _%$e23317%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%properties23532%_ - (let* ((_%properties23497%_ + (_%properties23362%_ + (let* ((_%properties23324%_ (if (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'transparent: _%body22552%_)) + (gx#stx-getq 'transparent: _%body22400%_)) (cons (cons 'transparent: '#t) '()) '())) - (_%properties23512%_ - (let ((_%$e23500%_ - (gx#stx-e (gx#stx-getq 'print: _%body22552%_)))) - (if _%$e23500%_ - ((lambda (_%print23504%_) - (let ((_%print23507%_ - (if (eq? _%print23504%_ '#t) - _%slots22551%_ - _%print23504%_))) - (cons (cons 'print: _%print23507%_) - _%properties23497%_))) - _%$e23500%_) - _%properties23497%_))) - (_%properties23527%_ - (let ((_%$e23515%_ - (gx#stx-e (gx#stx-getq 'equal: _%body22552%_)))) - (if _%$e23515%_ - ((lambda (_%equal23519%_) - (let ((_%equal23522%_ - (if (eq? _%equal23519%_ '#t) - _%slots22551%_ - _%equal23519%_))) - (cons (cons 'equal: _%equal23522%_) - _%properties23512%_))) - _%$e23515%_) - _%properties23512%_)))) - _%properties23527%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-properties23573%_ - (if (null? _%properties23532%_) + (_%properties23339%_ + (let ((_%$e23327%_ + (gx#stx-e (gx#stx-getq 'print: _%body22400%_)))) + (if _%$e23327%_ + ((lambda (_%print23331%_) + (let ((_%print23334%_ + (if (eq? _%print23331%_ '#t) + _%slots22399%_ + _%print23331%_))) + (cons (cons 'print: _%print23334%_) + _%properties23324%_))) + _%$e23327%_) + _%properties23324%_))) + (_%properties23354%_ + (let ((_%$e23342%_ + (gx#stx-e (gx#stx-getq 'equal: _%body22400%_)))) + (if _%$e23342%_ + ((lambda (_%equal23346%_) + (let ((_%equal23349%_ + (if (eq? _%equal23346%_ '#t) + _%slots22399%_ + _%equal23346%_))) + (cons (cons 'equal: _%equal23349%_) + _%properties23339%_))) + _%$e23342%_) + _%properties23339%_))) + (_%properties23357%_ + (if (gx#stx-e (gx#stx-getq 'acyclic: _%body22400%_)) + (cons (cons 'acyclic: '#t) '()) + '()))) + _%properties23357%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%type-properties23403%_ + (if (null? _%properties23362%_) '() - (let* ((_%g2353523543%_ + (let* ((_%g2336523373%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2353623539%_) + (lambda (_%g2336623369%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2353623539%_))) - (_%g2353423569%_ - (lambda (_%g2353623547%_) - ((lambda (_%L23550%_) + _%g2336623369%_))) + (_%g2336423399%_ + (lambda (_%g2336623377%_) + ((lambda (_%g2336723380%_) (cons 'properties: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L23550%_ '())) + (cons _%g2336723380%_ '())) '()))) - _%g2353623547%_)))) - (_%g2353423569%_ _%properties23532%_)))) + _%g2336623377%_)))) + (_%g2336423399%_ _%properties23362%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%metaclass23585%_ - (let ((_%$e23576%_ + (_%metaclass23415%_ + (let ((_%$e23406%_ (gx#stx-getq 'metaclass: - _%body22552%_))) - (if _%$e23576%_ - ((lambda (_%metaclass23580%_) + _%body22400%_))) + (if _%$e23406%_ + ((lambda (_%metaclass23410%_) (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%metaclass23580%_) - _%metaclass23580%_ + _%metaclass23410%_) + _%metaclass23410%_ '#f)) - _%$e23576%_) + _%$e23406%_) '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-metaclass23588%_ - (if _%metaclass23585%_ + (_%type-metaclass23418%_ + (if _%metaclass23415%_ (cons 'metaclass: - (cons _%metaclass23585%_ + (cons _%metaclass23415%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%final?23591%_ + (_%final?23421%_ (gx#stx-e (gx#stx-getq 'final: - _%body22552%_))) - (_%type-struct23594%_ + _%body22400%_))) + (_%type-struct23424%_ (cons 'struct: - (cons _%struct?22566%_ + (cons _%struct?22414%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-final23597%_ + (_%type-final23427%_ (cons 'final: - (cons _%final?23591%_ + (cons _%final?23421%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2360023617%_ - (lambda (_%g2360123613%_) + (_%g2343023447%_ + (lambda (_%g2343123443%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2360123613%_))) - (_%g2359924603%_ - (lambda (_%g2360123621%_) + _%g2343123443%_))) + (_%g2342924429%_ + (lambda (_%g2343123451%_) (if (gx#stx-pair/null? - _%g2360123621%_) - (let ((_g27222_ + _%g2343123451%_) + (let ((_g27072_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g2360123621%_ '0))) + (gx#syntax-split-splice _%g2343123451%_ '0))) (begin - (let ((_g27223_ + (let ((_g27073_ (let () (declare (not safe)) - (if (##values? _g27222_) - (##values-length _g27222_) + (if (##values? _g27072_) + (##values-length _g27072_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27223_ 2))) - (error "Context expects 2 values" _g27223_))) - (let ((_%target2360323624%_ + (##fx= _g27073_ 2))) + (error "Context expects 2 values" _g27073_))) + (let ((_%target2343323454%_ (let () (declare (not safe)) - (##values-ref _g27222_ 0))) - (_%tl2360523627%_ + (##values-ref _g27072_ 0))) + (_%tl2343523457%_ (let () (declare (not safe)) - (##values-ref _g27222_ 1)))) - (if (gx#stx-null? _%tl2360523627%_) - (letrec ((_%loop2360623630%_ - (lambda (_%hd2360423634%_ - _%type-body2361023637%_) - (if (gx#stx-pair? _%hd2360423634%_) - (let ((_%e2360723640%_ + (##values-ref _g27072_ 1)))) + (if (gx#stx-null? _%tl2343523457%_) + (letrec ((_%loop2343623460%_ + (lambda (_%hd2343423464%_ + _%type-body2344023467%_) + (if (gx#stx-pair? _%hd2343423464%_) + (let ((_%e2343723469%_ (gx#syntax-e - _%hd2360423634%_))) - (let ((_%lp-hd2360823644%_ + _%hd2343423464%_))) + (let ((_%lp-hd2343823473%_ (let () (declare (not safe)) - (##car _%e2360723640%_))) - (_%lp-tl2360923647%_ + (##car _%e2343723469%_))) + (_%lp-tl2343923476%_ (let () (declare (not safe)) - (##cdr _%e2360723640%_)))) - (_%loop2360623630%_ - _%lp-tl2360923647%_ - (cons _%lp-hd2360823644%_ - _%type-body2361023637%_)))) - (let ((_%type-body2361123650%_ - (reverse _%type-body2361023637%_))) - ((lambda (_%L23654%_) - (let* ((_%g2367523683%_ - (lambda (_%g2367623679%_) + (##cdr _%e2343723469%_)))) + (_%loop2343623460%_ + _%lp-tl2343923476%_ + (cons _%lp-hd2343823473%_ + _%type-body2344023467%_)))) + (let ((_%type-body2344123479%_ + (reverse _%type-body2344023467%_))) + ((lambda (_%g2343223482%_) + (let* ((_%g2350323511%_ + (lambda (_%g2350423507%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2367623679%_))) - (_%g2367424591%_ - (lambda (_%g2367623687%_) - ((lambda (_%L23690%_) - (let* ((_%g2370323711%_ + _%g2350423507%_))) + (_%g2350224417%_ + (lambda (_%g2350423515%_) + ((lambda (_%g2350523518%_) + (let* ((_%g2353123539%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2370423707%_) + (lambda (_%g2353223535%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2370423707%_))) - (_%g2370224520%_ - (lambda (_%g2370423715%_) - ((lambda (_%L23718%_) - (let* ((_%g2373123739%_ - (lambda (_%g2373223735%_) + _%g2353223535%_))) + (_%g2353024346%_ + (lambda (_%g2353223543%_) + ((lambda (_%g2353323546%_) + (let* ((_%g2355923567%_ + (lambda (_%g2356023563%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2373223735%_))) - (_%g2373024485%_ - (lambda (_%g2373223743%_) - ((lambda (_%L23746%_) - (let* ((_%g2375923767%_ - (lambda (_%g2376023763%_) + _%g2356023563%_))) + (_%g2355824311%_ + (lambda (_%g2356023571%_) + ((lambda (_%g2356123574%_) + (let* ((_%g2358723595%_ + (lambda (_%g2358823591%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2376023763%_))) - (_%g2375824399%_ - (lambda (_%g2376023771%_) - ((lambda (_%L23774%_) - (let* ((_%g2378723795%_ + _%g2358823591%_))) + (_%g2358624227%_ + (lambda (_%g2358823599%_) + ((lambda (_%g2358923602%_) + (let* ((_%g2361523623%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2378823791%_) + (lambda (_%g2361623619%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2378823791%_))) - (_%g2378624387%_ - (lambda (_%g2378823799%_) - ((lambda (_%L23802%_) - (let* ((_%g2381523823%_ - (lambda (_%g2381623819%_) + _%g2361623619%_))) + (_%g2361424215%_ + (lambda (_%g2361623627%_) + ((lambda (_%g2361723630%_) + (let* ((_%g2364323651%_ + (lambda (_%g2364423647%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2381623819%_))) - (_%g2381424383%_ - (lambda (_%g2381623827%_) - ((lambda (_%L23830%_) - (let* ((_%g2384323851%_ - (lambda (_%g2384423847%_) + _%g2364423647%_))) + (_%g2364224211%_ + (lambda (_%g2364423655%_) + ((lambda (_%g2364523658%_) + (let* ((_%g2367123679%_ + (lambda (_%g2367223675%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2384423847%_))) - (_%g2384224379%_ - (lambda (_%g2384423855%_) - ((lambda (_%L23858%_) - (let* ((_%g2387123879%_ + _%g2367223675%_))) + (_%g2367024207%_ + (lambda (_%g2367223683%_) + ((lambda (_%g2367323686%_) + (let* ((_%g2369923707%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2387223875%_) + (lambda (_%g2370023703%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2387223875%_))) - (_%g2387024344%_ - (lambda (_%g2387223883%_) - ((lambda (_%L23886%_) - (let* ((_%g2389923907%_ - (lambda (_%g2390023903%_) + _%g2370023703%_))) + (_%g2369824172%_ + (lambda (_%g2370023711%_) + ((lambda (_%g2370123714%_) + (let* ((_%g2372723735%_ + (lambda (_%g2372823731%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2390023903%_))) - (_%g2389824273%_ - (lambda (_%g2390023911%_) - ((lambda (_%L23914%_) - (let* ((_%g2392723935%_ - (lambda (_%g2392823931%_) + _%g2372823731%_))) + (_%g2372624101%_ + (lambda (_%g2372823739%_) + ((lambda (_%g2372923742%_) + (let* ((_%g2375523763%_ + (lambda (_%g2375623759%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2392823931%_))) - (_%g2392624269%_ - (lambda (_%g2392823939%_) - ((lambda (_%L23942%_) - (let* ((_%g2395523963%_ + _%g2375623759%_))) + (_%g2375424097%_ + (lambda (_%g2375623767%_) + ((lambda (_%g2375723770%_) + (let* ((_%g2378323791%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2395623959%_) + (lambda (_%g2378423787%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2395623959%_))) - (_%g2395424265%_ - (lambda (_%g2395623967%_) - ((lambda (_%L23970%_) - (let* ((_%g2398323991%_ - (lambda (_%g2398423987%_) + _%g2378423787%_))) + (_%g2378224093%_ + (lambda (_%g2378423795%_) + ((lambda (_%g2378523798%_) + (let* ((_%g2381123819%_ + (lambda (_%g2381223815%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2398423987%_))) - (_%g2398224261%_ - (lambda (_%g2398423995%_) - ((lambda (_%L23998%_) - (let* ((_%g2401124019%_ - (lambda (_%g2401224015%_) + _%g2381223815%_))) + (_%g2381024089%_ + (lambda (_%g2381223823%_) + ((lambda (_%g2381323826%_) + (let* ((_%g2383923847%_ + (lambda (_%g2384023843%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2401224015%_))) - (_%g2401024235%_ - (lambda (_%g2401224023%_) - ((lambda (_%L24026%_) - (let* ((_%g2403924047%_ + _%g2384023843%_))) + (_%g2383824063%_ + (lambda (_%g2384023851%_) + ((lambda (_%g2384123854%_) + (let* ((_%g2386723875%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2404024043%_) + (lambda (_%g2386823871%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2404024043%_))) - (_%g2403824209%_ - (lambda (_%g2404024051%_) - ((lambda (_%L24054%_) - (let* ((_%g2406724075%_ - (lambda (_%g2406824071%_) + _%g2386823871%_))) + (_%g2386624037%_ + (lambda (_%g2386823879%_) + ((lambda (_%g2386923882%_) + (let* ((_%g2389523903%_ + (lambda (_%g2389623899%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2406824071%_))) - (_%g2406624183%_ - (lambda (_%g2406824079%_) - ((lambda (_%L24082%_) - (let* ((_%g2409524103%_ - (lambda (_%g2409624099%_) + _%g2389623899%_))) + (_%g2389424011%_ + (lambda (_%g2389623907%_) + ((lambda (_%g2389723910%_) + (let* ((_%g2392323931%_ + (lambda (_%g2392423927%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2409624099%_))) - (_%g2409424157%_ - (lambda (_%g2409624107%_) - ((lambda (_%L24110%_) - (let* ((_%g2412324131%_ + _%g2392423927%_))) + (_%g2392223985%_ + (lambda (_%g2392423935%_) + ((lambda (_%g2392523938%_) + (let* ((_%g2395123959%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2412424127%_) + (lambda (_%g2395223955%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2412424127%_))) - (_%g2412224153%_ - (lambda (_%g2412424135%_) - ((lambda (_%L24138%_) - (_%wrap22554%_ + _%g2395223955%_))) + (_%g2395023981%_ + (lambda (_%g2395223963%_) + ((lambda (_%g2395323966%_) + (_%wrap22402%_ (cons (gx#datum->syntax '#f 'begin) - (cons _%L23690%_ - (cons _%L24138%_ '()))))) - _%g2412424135%_)))) - (_%g2412224153%_ - (_%wrap22554%_ + (cons _%g2350523518%_ + (cons _%g2395323966%_ '()))))) + _%g2395223963%_)))) + (_%g2395023981%_ + (_%wrap22402%_ (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L22584%_ + (cons _%g2241922432%_ (cons (cons (gx#datum->syntax '#f 'make-class-type-info) (cons 'id: - (cons _%L23718%_ + (cons _%g2353323546%_ (cons 'name: - (cons _%L23746%_ + (cons _%g2356123574%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'slots: - (cons _%L23802%_ + (cons _%g2361723630%_ (cons 'super: - (cons _%L23774%_ + (cons _%g2358923602%_ (cons 'struct?: - (cons _%L23830%_ + (cons _%g2364523658%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'final?: - (cons _%L23858%_ + (cons _%g2367323686%_ (cons 'metaclass: - (cons _%L23886%_ + (cons _%g2370123714%_ (cons 'constructor-method: - (cons _%L23914%_ + (cons _%g2372923742%_ (cons 'type-descriptor: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L23942%_ + (cons _%g2375723770%_ (cons 'constructor: - (cons _%L23970%_ + (cons _%g2378523798%_ (cons 'predicate: - (cons _%L23998%_ + (cons _%g2381323826%_ (cons 'accessors: - (cons _%L24026%_ + (cons _%g2384123854%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'mutators: - (cons _%L24054%_ + (cons _%g2386923882%_ (cons 'unchecked-accessors: - (cons _%L24082%_ + (cons _%g2389723910%_ (cons 'unchecked-mutators: - (cons _%L24110%_ + (cons _%g2392523938%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))))))))))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1217,140 +1222,142 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - _%g2409624107%_)))) + _%g2392423935%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2409424157%_ + (_%g2392223985%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L23267%_ - _%L22766%_) - (foldr (lambda (_%g2416024167%_ + _%g2304923099%_ + _%g2256222612%_) + (foldr (lambda (_%g2398823995%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2416124170%_ - _%g2416224172%_) + _%g2398923998%_ + _%g2399024000%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2416124170%_ '())) + (cons _%g2398923998%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2416024167%_ + (cons _%g2398823995%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2416224172%_)) + _%g2399024000%_)) (begin - (gx#syntax-check-splice-targets _%L23409%_ _%L22982%_) - (foldr (lambda (_%g2416324175%_ - _%g2416424178%_ - _%g2416524180%_) + (gx#syntax-check-splice-targets + _%g2318723237%_ + _%g2277222822%_) + (foldr (lambda (_%g2399124003%_ + _%g2399224006%_ + _%g2399324008%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2416424178%_ + (cons _%g2399224006%_ '())) (cons ':: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%g2416324175%_ '())) + (cons _%g2399124003%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2416524180%_)) + _%g2399324008%_)) '() - _%L23409%_ - _%L22982%_)) - _%L23267%_ - _%L22766%_)))))) + _%g2318723237%_ + _%g2277222822%_)) + _%g2304923099%_ + _%g2256222612%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2406824079%_)))) - (_%g2406624183%_ + _%g2389623907%_)))) + (_%g2389424011%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L23196%_ - _%L22766%_) - (foldr (lambda (_%g2418624193%_ - _%g2418724196%_ - _%g2418824198%_) + _%g2298023030%_ + _%g2256222612%_) + (foldr (lambda (_%g2401424021%_ + _%g2401524024%_ + _%g2401624026%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2418724196%_ '())) + (cons _%g2401524024%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2418624193%_ '())) + (cons _%g2401424021%_ '())) '())))) - _%g2418824198%_)) + _%g2401624026%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin (gx#syntax-check-splice-targets - _%L23338%_ - _%L22982%_) - (foldr (lambda (_%g2418924201%_ + _%g2311823168%_ + _%g2277222822%_) + (foldr (lambda (_%g2401724029%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2419024204%_ - _%g2419124206%_) + _%g2401824032%_ + _%g2401924034%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2419024204%_ '())) + (cons _%g2401824032%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2418924201%_ + (cons _%g2401724029%_ '())) '())))) - _%g2419124206%_)) + _%g2401924034%_)) '() - _%L23338%_ - _%L22982%_)) + _%g2311823168%_ + _%g2277222822%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L23196%_ - _%L22766%_)))))) - _%g2404024051%_)))) - (_%g2403824209%_ + _%g2298023030%_ + _%g2256222612%_)))))) + _%g2386823879%_)))) + (_%g2386624037%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L22908%_ - _%L22766%_) - (foldr (lambda (_%g2421224219%_ - _%g2421324222%_ - _%g2421424224%_) + _%g2270022750%_ + _%g2256222612%_) + (foldr (lambda (_%g2404024047%_ + _%g2404124050%_ + _%g2404224052%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2421324222%_ + (cons _%g2404124050%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2421224219%_ '())) + (cons _%g2404024047%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2421424224%_)) + _%g2404224052%_)) (begin (gx#syntax-check-splice-targets - _%L23125%_ - _%L22982%_) - (foldr (lambda (_%g2421524227%_ - _%g2421624230%_ - _%g2421724232%_) + _%g2291122961%_ + _%g2277222822%_) + (foldr (lambda (_%g2404324055%_ + _%g2404424058%_ + _%g2404524060%_) (cons (cons (gx#datum->syntax '#f '@list) @@ -1358,59 +1365,59 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g2421624230%_ '())) + (cons _%g2404424058%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2421524227%_ '())) + (cons _%g2404324055%_ '())) '())))) - _%g2421724232%_)) + _%g2404524060%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L23125%_ - _%L22982%_)) - _%L22908%_ - _%L22766%_)))))) - _%g2401224023%_)))) + _%g2291122961%_ + _%g2277222822%_)) + _%g2270022750%_ + _%g2256222612%_)))))) + _%g2384023851%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2401024235%_ + (_%g2383824063%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L22837%_ - _%L22766%_) - (foldr (lambda (_%g2423824245%_ + _%g2263122681%_ + _%g2256222612%_) + (foldr (lambda (_%g2406624073%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2423924248%_ - _%g2424024250%_) + _%g2406724076%_ + _%g2406824078%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2423924248%_ '())) + (cons _%g2406724076%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2423824245%_ + (cons _%g2406624073%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2424024250%_)) + _%g2406824078%_)) (begin (gx#syntax-check-splice-targets - _%L23054%_ - _%L22982%_) - (foldr (lambda (_%g2424124253%_ - _%g2424224256%_ - _%g2424324258%_) + _%g2284222892%_ + _%g2277222822%_) + (foldr (lambda (_%g2406924081%_ + _%g2407024084%_ + _%g2407124086%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2424224256%_ + (cons _%g2407024084%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1419,298 +1426,298 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%g2424124253%_ '())) + (cons _%g2406924081%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2424324258%_)) + _%g2407124086%_)) '() - _%L23054%_ - _%L22982%_)) - _%L22837%_ - _%L22766%_)))))) + _%g2284222892%_ + _%g2277222822%_)) + _%g2263122681%_ + _%g2256222612%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2398423995%_)))) - (_%g2398224261%_ + _%g2381223823%_)))) + (_%g2381024089%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L22671%_ '()))))) - _%g2395623967%_)))) - (_%g2395424265%_ + (cons _%g2250622519%_ '()))))) + _%g2378423795%_)))) + (_%g2378224093%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L22643%_ '()))))) - _%g2392823939%_)))) + (cons _%g2247822491%_ '()))))) + _%g2375623767%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2392624269%_ + (_%g2375424097%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L22615%_ + (cons _%g2245022463%_ '()))))) - _%g2390023911%_)))) - (_%g2389824273%_ - (if (null? _%type-constructor23494%_) + _%g2372823739%_)))) + (_%g2372624101%_ + (if (null? _%type-constructor23321%_) '#f - (let* ((_%g2427724292%_ - (lambda (_%g2427824288%_) + (let* ((_%g2410524120%_ + (lambda (_%g2410624116%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2427824288%_))) - (_%g2427624340%_ - (lambda (_%g2427824296%_) + _%g2410624116%_))) + (_%g2410424168%_ + (lambda (_%g2410624124%_) (if (gx#stx-pair? - _%g2427824296%_) - (let ((_%e2428024299%_ + _%g2410624124%_) + (let ((_%e2410824127%_ (gx#syntax-e - _%g2427824296%_))) - (let ((_%hd2428124303%_ + _%g2410624124%_))) + (let ((_%hd2410924131%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e2428024299%_))) - (_%tl2428224306%_ - (let () (declare (not safe)) (##cdr _%e2428024299%_)))) - (if (gx#stx-datum? _%hd2428124303%_) - (let ((_%e2428324309%_ (gx#stx-e _%hd2428124303%_))) - (if (equal? _%e2428324309%_ 'constructor:) - (if (gx#stx-pair? _%tl2428224306%_) - (let ((_%e2428424313%_ - (gx#syntax-e _%tl2428224306%_))) - (let ((_%hd2428524317%_ + (##car _%e2410824127%_))) + (_%tl2411024134%_ + (let () (declare (not safe)) (##cdr _%e2410824127%_)))) + (if (gx#stx-datum? _%hd2410924131%_) + (let ((_%e2411124137%_ (gx#stx-e _%hd2410924131%_))) + (if (equal? _%e2411124137%_ 'constructor:) + (if (gx#stx-pair? _%tl2411024134%_) + (let ((_%e2411224141%_ + (gx#syntax-e _%tl2411024134%_))) + (let ((_%hd2411324145%_ (let () (declare (not safe)) - (##car _%e2428424313%_))) - (_%tl2428624320%_ + (##car _%e2411224141%_))) + (_%tl2411424148%_ (let () (declare (not safe)) - (##cdr _%e2428424313%_)))) - (if (gx#stx-null? _%tl2428624320%_) - ((lambda (_%L24323%_) + (##cdr _%e2411224141%_)))) + (if (gx#stx-null? _%tl2411424148%_) + ((lambda (_%g2410724151%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L24323%_ '()))) - _%hd2428524317%_) - (_%g2427724292%_ _%g2427824296%_)))) - (_%g2427724292%_ _%g2427824296%_)) - (_%g2427724292%_ _%g2427824296%_))) - (_%g2427724292%_ _%g2427824296%_)))) - (_%g2427724292%_ _%g2427824296%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2427624340%_ - _%type-constructor23494%_)))))) - _%g2387223883%_)))) - (_%g2387024344%_ - (if _%metaclass23585%_ - (let* ((_%g2434824356%_ - (lambda (_%g2434924352%_) + (cons _%g2410724151%_ '()))) + _%hd2411324145%_) + (_%g2410524120%_ _%g2410624124%_)))) + (_%g2410524120%_ _%g2410624124%_)) + (_%g2410524120%_ _%g2410624124%_))) + (_%g2410524120%_ _%g2410624124%_)))) + (_%g2410524120%_ _%g2410624124%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2410424168%_ + _%type-constructor23321%_)))))) + _%g2370023711%_)))) + (_%g2369824172%_ + (if _%metaclass23415%_ + (let* ((_%g2417624184%_ + (lambda (_%g2417724180%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2434924352%_))) - (_%g2434724375%_ - (lambda (_%g2434924360%_) - ((lambda (_%L24363%_) + _%g2417724180%_))) + (_%g2417524203%_ + (lambda (_%g2417724188%_) + ((lambda (_%g2417824191%_) (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L24363%_ '()))) - _%g2434924360%_)))) - (_%g2434724375%_ _%metaclass23585%_)) + (cons _%g2417824191%_ '()))) + _%g2417724188%_)))) + (_%g2417524203%_ _%metaclass23415%_)) '#f)))) - _%g2384423855%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2384224379%_ - _%final?23591%_))) - _%g2381623827%_)))) - (_%g2381424383%_ _%struct?22566%_))) - _%g2378823799%_)))) - (_%g2378624387%_ + _%g2367223683%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2367024207%_ + _%final?23421%_))) + _%g2364423655%_)))) + (_%g2364224211%_ _%struct?22414%_))) + _%g2361623627%_)))) + (_%g2361424215%_ (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g2439024393%_ - _%g2439124396%_) - (cons _%g2439024393%_ - _%g2439124396%_)) + (cons (foldr (lambda (_%g2421824221%_ + _%g2421924224%_) + (cons _%g2421824221%_ + _%g2421924224%_)) '() - _%L22766%_) + _%g2256222612%_) '()))))) - _%g2376023771%_)))) + _%g2358823599%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2375824399%_ - (let* ((_%g2440324420%_ - (lambda (_%g2440424416%_) + (_%g2358624227%_ + (let* ((_%g2423124248%_ + (lambda (_%g2423224244%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2440424416%_))) - (_%g2440224481%_ - (lambda (_%g2440424424%_) + _%g2423224244%_))) + (_%g2423024307%_ + (lambda (_%g2423224252%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2440424424%_) - (let ((_g27224_ - (gx#syntax-split-splice _%g2440424424%_ '0))) + _%g2423224252%_) + (let ((_g27074_ + (gx#syntax-split-splice _%g2423224252%_ '0))) (begin - (let ((_g27225_ + (let ((_g27075_ (let () (declare (not safe)) - (if (##values? _g27224_) - (##values-length _g27224_) + (if (##values? _g27074_) + (##values-length _g27074_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27225_ 2))) + (##fx= _g27075_ 2))) (error "Context expects 2 values" - _g27225_))) - (let ((_%target2440624427%_ + _g27075_))) + (let ((_%target2423424255%_ (let () (declare (not safe)) - (##values-ref _g27224_ 0))) - (_%tl2440824430%_ + (##values-ref _g27074_ 0))) + (_%tl2423624258%_ (let () (declare (not safe)) - (##values-ref _g27224_ 1)))) - (if (gx#stx-null? _%tl2440824430%_) - (letrec ((_%loop2440924433%_ - (lambda (_%hd2440724437%_ - _%super-id2441324440%_) + (##values-ref _g27074_ 1)))) + (if (gx#stx-null? _%tl2423624258%_) + (letrec ((_%loop2423724261%_ + (lambda (_%hd2423524265%_ + _%super-id2424124268%_) (if (gx#stx-pair? - _%hd2440724437%_) - (let ((_%e2441024443%_ + _%hd2423524265%_) + (let ((_%e2423824270%_ (gx#syntax-e - _%hd2440724437%_))) - (let ((_%lp-hd2441124447%_ + _%hd2423524265%_))) + (let ((_%lp-hd2423924274%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e2441024443%_))) - (_%lp-tl2441224450%_ - (let () (declare (not safe)) (##cdr _%e2441024443%_)))) - (_%loop2440924433%_ - _%lp-tl2441224450%_ - (cons _%lp-hd2441124447%_ _%super-id2441324440%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%super-id2441424453%_ - (reverse _%super-id2441324440%_))) - ((lambda (_%L24457%_) + (##car _%e2423824270%_))) + (_%lp-tl2424024277%_ + (let () (declare (not safe)) (##cdr _%e2423824270%_)))) + (_%loop2423724261%_ + _%lp-tl2424024277%_ + (cons _%lp-hd2423924274%_ _%super-id2424124268%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%super-id2424224280%_ + (reverse _%super-id2424124268%_))) + ((lambda (_%g2423324283%_) (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g2447224475%_ + (foldr (lambda (_%g2429824301%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2447324478%_) + _%g2429924304%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2447224475%_ '())) - _%g2447324478%_)) + (cons _%g2429824301%_ '())) + _%g2429924304%_)) '() - _%L24457%_))) - _%super-id2441424453%_)))))) + _%g2423324283%_))) + _%super-id2424224280%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2440924433%_ - _%target2440624427%_ + (_%loop2423724261%_ + _%target2423424255%_ '())) - (_%g2440324420%_ _%g2440424424%_))))) - (_%g2440324420%_ _%g2440424424%_))))) - (_%g2440224481%_ _%super-ref22550%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2373223743%_)))) - (_%g2373024485%_ - (let* ((_%g2448924497%_ - (lambda (_%g2449024493%_) + (_%g2423124248%_ _%g2423224252%_))))) + (_%g2423124248%_ _%g2423224252%_))))) + (_%g2423024307%_ _%super-ref22398%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g2356023571%_)))) + (_%g2355824311%_ + (let* ((_%g2431524323%_ + (lambda (_%g2431624319%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2449024493%_))) - (_%g2448824516%_ - (lambda (_%g2449024501%_) - ((lambda (_%L24504%_) + _%g2431624319%_))) + (_%g2431424342%_ + (lambda (_%g2431624327%_) + ((lambda (_%g2431724330%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L24504%_ + (cons _%g2431724330%_ '()))) - _%g2449024501%_)))) - (_%g2448824516%_ - (cadr _%type-name23472%_)))))) - _%g2370423715%_)))) - (_%g2370224520%_ - (let* ((_%g2452424539%_ - (lambda (_%g2452524535%_) + _%g2431624327%_)))) + (_%g2431424342%_ + (cadr _%type-name23300%_)))))) + _%g2353223543%_)))) + (_%g2353024346%_ + (let* ((_%g2435024365%_ + (lambda (_%g2435124361%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2452524535%_))) - (_%g2452324587%_ - (lambda (_%g2452524543%_) - (if (gx#stx-pair? _%g2452524543%_) - (let ((_%e2452724546%_ - (gx#syntax-e _%g2452524543%_))) - (let ((_%hd2452824550%_ + _%g2435124361%_))) + (_%g2434924413%_ + (lambda (_%g2435124369%_) + (if (gx#stx-pair? _%g2435124369%_) + (let ((_%e2435324372%_ + (gx#syntax-e _%g2435124369%_))) + (let ((_%hd2435424376%_ (let () (declare (not safe)) - (##car _%e2452724546%_))) - (_%tl2452924553%_ + (##car _%e2435324372%_))) + (_%tl2435524379%_ (let () (declare (not safe)) - (##cdr _%e2452724546%_)))) + (##cdr _%e2435324372%_)))) (if (gx#stx-datum? - _%hd2452824550%_) - (let ((_%e2453024556%_ + _%hd2435424376%_) + (let ((_%e2435624382%_ (gx#stx-e - _%hd2452824550%_))) - (if (equal? _%e2453024556%_ + _%hd2435424376%_))) + (if (equal? _%e2435624382%_ 'id:) (if (gx#stx-pair? - _%tl2452924553%_) - (let ((_%e2453124560%_ + _%tl2435524379%_) + (let ((_%e2435724386%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl2452924553%_))) - (let ((_%hd2453224564%_ + (gx#syntax-e _%tl2435524379%_))) + (let ((_%hd2435824390%_ (let () (declare (not safe)) - (##car _%e2453124560%_))) - (_%tl2453324567%_ + (##car _%e2435724386%_))) + (_%tl2435924393%_ (let () (declare (not safe)) - (##cdr _%e2453124560%_)))) - (if (gx#stx-null? _%tl2453324567%_) - ((lambda (_%L24570%_) + (##cdr _%e2435724386%_)))) + (if (gx#stx-null? _%tl2435924393%_) + ((lambda (_%g2435224396%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L24570%_ '()))) - _%hd2453224564%_) - (_%g2452424539%_ _%g2452524543%_)))) - (_%g2452424539%_ _%g2452524543%_)) - (_%g2452424539%_ _%g2452524543%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2452424539%_ - _%g2452524543%_)))) - (_%g2452424539%_ _%g2452524543%_))))) - (_%g2452324587%_ _%type-id23479%_))))) - _%g2367623687%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2367424591%_ - (_%wrap22554%_ + (cons _%g2435224396%_ '()))) + _%hd2435824390%_) + (_%g2435024365%_ _%g2435124369%_)))) + (_%g2435024365%_ _%g2435124369%_)) + (_%g2435024365%_ _%g2435124369%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2435024365%_ + _%g2435124369%_)))) + (_%g2435024365%_ _%g2435124369%_))))) + (_%g2434924413%_ _%type-id23307%_))))) + _%g2350423515%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2350224417%_ + (_%wrap22402%_ (cons (gx#datum->syntax '#f 'defclass-type) - (cons _%L22615%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L22699%_ - (cons _%L22643%_ - (cons _%L22671%_ - (foldr (lambda (_%g2459424597%_ - _%g2459524600%_) - (cons _%g2459424597%_ - _%g2459524600%_)) + (cons _%g2245022463%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%g2253422547%_ + (cons _%g2247822491%_ + (cons _%g2250622519%_ + (foldr (lambda (_%g2442024423%_ + _%g2442124426%_) + (cons _%g2442024423%_ + _%g2442124426%_)) '() - _%L23654%_)))))))))) + _%g2343223482%_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%type-body2361123650%_)))))) - (_%loop2360623630%_ _%target2360323624%_ '())) - (_%g2360023617%_ _%g2360123621%_))))) - (_%g2360023617%_ _%g2360123621%_))))) + _%type-body2344123479%_)))))) + (_%loop2343623460%_ _%target2343323454%_ '())) + (_%g2343023447%_ _%g2343123451%_))))) + (_%g2343023447%_ _%g2343123451%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2359924603%_ + (_%g2342924429%_ (foldr cons (foldr cons (foldr cons @@ -1720,564 +1727,565 @@ (foldr cons (foldr cons (foldr cons - _%type-mixin-slots23465%_ - _%type-slots23444%_) - _%type-properties23573%_) - _%type-metaclass23588%_) - _%type-final23597%_) - _%type-struct23594%_) - _%type-constructor23494%_) - _%type-name23472%_) - _%type-id23479%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin-usetf2336623405%_)))))) - (_%loop2336123385%_ _%target2335823379%_ '())) - (_%g2335523372%_ _%g2335623376%_))))) - (_%g2335523372%_ _%g2335623376%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2335424607%_ + _%type-mixin-slots23293%_ + _%type-slots23272%_) + _%type-properties23403%_) + _%type-metaclass23418%_) + _%type-final23427%_) + _%type-struct23424%_) + _%type-constructor23321%_) + _%type-name23300%_) + _%type-id23307%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%mixin-usetf2319623234%_)))))) + (_%loop2319123215%_ _%target2318823209%_ '())) + (_%g2318523202%_ _%g2318623206%_))))) + (_%g2318523202%_ _%g2318623206%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2318424433%_ (gx#stx-map - (lambda (_%g2461024612%_) - (_%make-id22556%_ + (lambda (_%g2443624438%_) + (_%make-id22404%_ '"&" - _%g2461024612%_)) - (foldr (lambda (_%g2461524618%_ - _%g2461624621%_) - (cons _%g2461524618%_ - _%g2461624621%_)) + _%g2443624438%_)) + (foldr (lambda (_%g2444124444%_ + _%g2444224447%_) + (cons _%g2444124444%_ + _%g2444224447%_)) '() - _%L23125%_))))) - _%mixin-ugetf2329523334%_)))))) - (_%loop2329023314%_ _%target2328723308%_ '())) - (_%g2328423301%_ _%g2328523305%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2328423301%_ - _%g2328523305%_))))) - (_%g2328324624%_ + _%g2291122961%_))))) + _%mixin-ugetf2312723165%_)))))) + (_%loop2312223146%_ _%target2311923140%_ '())) + (_%g2311623133%_ _%g2311723137%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2311623133%_ + _%g2311723137%_))))) + (_%g2311524450%_ (gx#stx-map - (lambda (_%g2462724629%_) - (_%make-id22556%_ + (lambda (_%g2445324455%_) + (_%make-id22404%_ '"&" - _%g2462724629%_)) - (foldr (lambda (_%g2463224635%_ - _%g2463324638%_) - (cons _%g2463224635%_ - _%g2463324638%_)) + _%g2445324455%_)) + (foldr (lambda (_%g2445824461%_ + _%g2445924464%_) + (cons _%g2445824461%_ + _%g2445924464%_)) '() - _%L23054%_))))) - _%usetf2322423263%_)))))) - (_%loop2321923243%_ _%target2321623237%_ '())) - (_%g2321323230%_ _%g2321423234%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2321323230%_ - _%g2321423234%_))))) - (_%g2321224641%_ + _%g2284222892%_))))) + _%usetf2305823096%_)))))) + (_%loop2305323077%_ _%target2305023071%_ '())) + (_%g2304723064%_ _%g2304823068%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2304723064%_ + _%g2304823068%_))))) + (_%g2304624467%_ (gx#stx-map - (lambda (_%g2464424646%_) - (_%make-id22556%_ '"&" _%g2464424646%_)) - (foldr (lambda (_%g2464924652%_ - _%g2465024655%_) - (cons _%g2464924652%_ - _%g2465024655%_)) + (lambda (_%g2447024472%_) + (_%make-id22404%_ '"&" _%g2447024472%_)) + (foldr (lambda (_%g2447524478%_ + _%g2447624481%_) + (cons _%g2447524478%_ + _%g2447624481%_)) '() - _%L22908%_))))) - _%ugetf2315323192%_)))))) + _%g2270022750%_))))) + _%ugetf2298923027%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2314823172%_ - _%target2314523166%_ + (_%loop2298423008%_ + _%target2298123002%_ '())) - (_%g2314223159%_ - _%g2314323163%_))))) - (_%g2314223159%_ _%g2314323163%_))))) - (_%g2314124658%_ + (_%g2297822995%_ + _%g2297922999%_))))) + (_%g2297822995%_ _%g2297922999%_))))) + (_%g2297724484%_ (gx#stx-map - (lambda (_%g2466124663%_) - (_%make-id22556%_ '"&" _%g2466124663%_)) - (foldr (lambda (_%g2466624669%_ _%g2466724672%_) - (cons _%g2466624669%_ _%g2466724672%_)) + (lambda (_%g2448724489%_) + (_%make-id22404%_ '"&" _%g2448724489%_)) + (foldr (lambda (_%g2449224495%_ _%g2449324498%_) + (cons _%g2449224495%_ _%g2449324498%_)) '() - _%L22837%_))))) - _%mixin-setf2308223121%_)))))) + _%g2263122681%_))))) + _%mixin-setf2292022958%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2307723101%_ - _%target2307423095%_ + (_%loop2291522939%_ + _%target2291222933%_ '())) - (_%g2307123088%_ - _%g2307223092%_))))) - (_%g2307123088%_ _%g2307223092%_))))) - (_%g2307024675%_ + (_%g2290922926%_ + _%g2291022930%_))))) + (_%g2290922926%_ _%g2291022930%_))))) + (_%g2290824501%_ (gx#stx-map - (lambda (_%g2467824680%_) - (_%make-id22556%_ - _%name22560%_ + (lambda (_%g2450424506%_) + (_%make-id22404%_ + _%name22408%_ '"-" - _%g2467824680%_ + _%g2450424506%_ '"-set!")) - _%mixin-slots22925%_)))) - _%mixin-getf2301123050%_)))))) + _%mixin-slots22767%_)))) + _%mixin-getf2285122889%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2300623030%_ - _%target2300323024%_ + (_%loop2284622870%_ + _%target2284322864%_ '())) - (_%g2300023017%_ _%g2300123021%_))))) - (_%g2300023017%_ _%g2300123021%_))))) - (_%g2299924684%_ + (_%g2284022857%_ _%g2284122861%_))))) + (_%g2284022857%_ _%g2284122861%_))))) + (_%g2283924510%_ (gx#stx-map - (lambda (_%g2468724689%_) - (_%make-id22556%_ _%name22560%_ '"-" _%g2468724689%_)) - _%mixin-slots22925%_)))) + (lambda (_%g2451324515%_) + (_%make-id22404%_ _%name22408%_ '"-" _%g2451324515%_)) + _%mixin-slots22767%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin-slot2293922978%_)))))) - (_%loop2293422958%_ - _%target2293122952%_ + _%mixin-slot2278122819%_)))))) + (_%loop2277622800%_ + _%target2277322794%_ '())) - (_%g2292822945%_ _%g2292922949%_))))) - (_%g2292822945%_ _%g2292922949%_))))) + (_%g2277022787%_ _%g2277122791%_))))) + (_%g2277022787%_ _%g2277122791%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2292724693%_ - _%mixin-slots22925%_))) - _%setf2286522904%_)))))) - (_%loop2286022884%_ _%target2285722878%_ '())) - (_%g2285422871%_ _%g2285522875%_))))) - (_%g2285422871%_ _%g2285522875%_))))) + (_%g2276924519%_ + _%mixin-slots22767%_))) + _%setf2270922747%_)))))) + (_%loop2270422728%_ _%target2270122722%_ '())) + (_%g2269822715%_ _%g2269922719%_))))) + (_%g2269822715%_ _%g2269922719%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2285324697%_ + (_%g2269724523%_ (gx#stx-map - (lambda (_%g2470024702%_) - (_%make-id22556%_ - _%name22560%_ + (lambda (_%g2452624528%_) + (_%make-id22404%_ + _%name22408%_ '"-" - _%g2470024702%_ + _%g2452624528%_ '"-set!")) - _%slots22551%_)))) - _%getf2279422833%_)))))) - (_%loop2278922813%_ _%target2278622807%_ '())) - (_%g2278322800%_ _%g2278422804%_))))) - (_%g2278322800%_ _%g2278422804%_))))) + _%slots22399%_)))) + _%getf2264022678%_)))))) + (_%loop2263522659%_ _%target2263222653%_ '())) + (_%g2262922646%_ _%g2263022650%_))))) + (_%g2262922646%_ _%g2263022650%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2278224706%_ + (_%g2262824532%_ (gx#stx-map - (lambda (_%g2470924711%_) - (_%make-id22556%_ - _%name22560%_ + (lambda (_%g2453524537%_) + (_%make-id22404%_ + _%name22408%_ '"-" - _%g2470924711%_)) - _%slots22551%_)))) - _%slot2272322762%_)))))) - (_%loop2271822742%_ _%target2271522736%_ '())) - (_%g2271222729%_ _%g2271322733%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2271222729%_ - _%g2271322733%_))))) - (_%g2271124715%_ _%slots22551%_))) - _%g2268522696%_)))) - (_%g2268324719%_ + _%g2453524537%_)) + _%slots22399%_)))) + _%slot2257122609%_)))))) + (_%loop2256622590%_ _%target2256322584%_ '())) + (_%g2256022577%_ _%g2256122581%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2256022577%_ + _%g2256122581%_))))) + (_%g2255924541%_ _%slots22399%_))) + _%g2253322544%_)))) + (_%g2253124545%_ (let () (declare (not safe)) (##map gerbil/core/mop~MOP-2#!class-type-descriptor - _%super22563%_))))) - _%g2265722668%_)))) + _%super22411%_))))) + _%g2250522516%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2265524723%_ - (_%make-id22556%_ - _%name22560%_ + (_%g2250324549%_ + (_%make-id22404%_ + _%name22408%_ '"?")))) - _%g2262922640%_)))) - (_%g2262724727%_ - (_%make-id22556%_ + _%g2247722488%_)))) + (_%g2247524553%_ + (_%make-id22404%_ '"make-" - _%name22560%_)))) - _%g2260122612%_)))) - (_%g2259924731%_ - (_%make-id22556%_ _%name22560%_ '"::t")))) - _%g2257022581%_)))) - (_%g2256824735%_ _%id22549%_))))) + _%name22408%_)))) + _%g2244922460%_)))) + (_%g2244724557%_ + (_%make-id22404%_ _%name22408%_ '"::t")))) + _%g2241822429%_)))) + (_%g2241624561%_ _%id22397%_))))) (define |gerbil/core/mop~MOP-4[:0:]#defstruct| - (lambda (_%$stx24802%_) - (let* ((_%g2480624825%_ - (lambda (_%g2480724821%_) + (lambda (_%$stx24628%_) + (let* ((_%g2463224651%_ + (lambda (_%g2463324647%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2480724821%_))) - (_%g2480524882%_ - (lambda (_%g2480724829%_) - (if (gx#stx-pair? _%g2480724829%_) - (let ((_%e2481124832%_ (gx#syntax-e _%g2480724829%_))) - (let ((_%hd2481224836%_ + _%g2463324647%_))) + (_%g2463124708%_ + (lambda (_%g2463324655%_) + (if (gx#stx-pair? _%g2463324655%_) + (let ((_%e2463724658%_ (gx#syntax-e _%g2463324655%_))) + (let ((_%hd2463824662%_ (let () (declare (not safe)) - (##car _%e2481124832%_))) - (_%tl2481324839%_ + (##car _%e2463724658%_))) + (_%tl2463924665%_ (let () (declare (not safe)) - (##cdr _%e2481124832%_)))) - (if (gx#stx-pair? _%tl2481324839%_) - (let ((_%e2481424842%_ - (gx#syntax-e _%tl2481324839%_))) - (let ((_%hd2481524846%_ + (##cdr _%e2463724658%_)))) + (if (gx#stx-pair? _%tl2463924665%_) + (let ((_%e2464024668%_ + (gx#syntax-e _%tl2463924665%_))) + (let ((_%hd2464124672%_ (let () (declare (not safe)) - (##car _%e2481424842%_))) - (_%tl2481624849%_ + (##car _%e2464024668%_))) + (_%tl2464224675%_ (let () (declare (not safe)) - (##cdr _%e2481424842%_)))) - (if (gx#stx-pair? _%tl2481624849%_) - (let ((_%e2481724852%_ - (gx#syntax-e _%tl2481624849%_))) - (let ((_%hd2481824856%_ + (##cdr _%e2464024668%_)))) + (if (gx#stx-pair? _%tl2464224675%_) + (let ((_%e2464324678%_ + (gx#syntax-e _%tl2464224675%_))) + (let ((_%hd2464424682%_ (let () (declare (not safe)) - (##car _%e2481724852%_))) - (_%tl2481924859%_ + (##car _%e2464324678%_))) + (_%tl2464524685%_ (let () (declare (not safe)) - (##cdr _%e2481724852%_)))) - ((lambda (_%L24862%_ - _%L24864%_ - _%L24865%_) + (##cdr _%e2464324678%_)))) + ((lambda (_%g2463424688%_ + _%g2463524690%_ + _%g2463624691%_) (cons (gx#datum->syntax '#f 'defclass) - (cons _%L24865%_ - (cons _%L24864%_ + (cons _%g2463624691%_ + (cons _%g2463524690%_ (cons 'struct: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '#t _%L24862%_)))))) + (cons '#t _%g2463424688%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl2481924859%_ - _%hd2481824856%_ - _%hd2481524846%_))) - (_%g2480624825%_ _%g2480724829%_)))) - (_%g2480624825%_ _%g2480724829%_)))) - (_%g2480624825%_ _%g2480724829%_))))) - (_%g2480524882%_ _%$stx24802%_)))) + _%tl2464524685%_ + _%hd2464424682%_ + _%hd2464124672%_))) + (_%g2463224651%_ _%g2463324655%_)))) + (_%g2463224651%_ _%g2463324655%_)))) + (_%g2463224651%_ _%g2463324655%_))))) + (_%g2463124708%_ _%$stx24628%_)))) (define |gerbil/core/mop~MOP-4[:0:]#defclass| - (lambda (_%stx24886%_) - (letrec ((_%generate24889%_ - (lambda (_%hd24973%_ _%slots24975%_ _%body24976%_) - (let* ((_%__stx2674126742%_ _%hd24973%_) - (_%g2497924991%_ + (lambda (_%stx24712%_) + (letrec ((_%generate24715%_ + (lambda (_%hd24799%_ _%slots24801%_ _%body24802%_) + (let* ((_%__stx2655326554%_ _%hd24799%_) + (_%g2480524817%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2674126742%_)))) - (let ((_%__kont2674426745%_ - (lambda (_%L25019%_ _%L25021%_) + _%__stx2655326554%_)))) + (let ((_%__kont2655626557%_ + (lambda (_%g2480724845%_ _%g2480824847%_) (|gerbil/core/mop~MOP-4[1]#generate-defclass| - _%stx24886%_ - _%L25021%_ - (gx#syntax->list _%L25019%_) - _%slots24975%_ - _%body24976%_))) - (_%__kont2674626747%_ + _%stx24712%_ + _%g2480824847%_ + (gx#syntax->list _%g2480724845%_) + _%slots24801%_ + _%body24802%_))) + (_%__kont2655826559%_ (lambda () - (if (gx#identifier? _%hd24973%_) + (if (gx#identifier? _%hd24799%_) (|gerbil/core/mop~MOP-4[1]#generate-defclass| - _%stx24886%_ - _%hd24973%_ + _%stx24712%_ + _%hd24799%_ '() - _%slots24975%_ - _%body24976%_) + _%slots24801%_ + _%body24802%_) (gx#raise-syntax-error '#f - '"bad syntax; class name should be an identifier" - _%stx24886%_ - _%hd24973%_))))) - (let ((_%__match2675426755%_ - (lambda (_%e2498325009%_ - _%hd2498425013%_ - _%tl2498525016%_) - (let ((_%L25019%_ _%tl2498525016%_) - (_%L25021%_ _%hd2498425013%_)) - (if (and (gx#stx-list? _%L25019%_) + '"bad syntax; head should be class name or list of class names" + _%stx24712%_ + _%hd24799%_))))) + (let ((_%__match2656626567%_ + (lambda (_%e2480924835%_ + _%hd2481024839%_ + _%tl2481124842%_) + (let ((_%g2480724845%_ _%tl2481124842%_) + (_%g2480824847%_ _%hd2481024839%_)) + (if (and (gx#stx-list? _%g2480724845%_) (gx#stx-andmap gerbil/core/mop~MOP-2#syntax-local-class-type-info? - _%L25019%_)) - (_%__kont2674426745%_ - _%L25019%_ - _%L25021%_) - (_%__kont2674626747%_)))))) - (if (gx#stx-pair? _%__stx2674126742%_) - (let ((_%e2498325009%_ - (gx#syntax-e _%__stx2674126742%_))) - (let ((_%tl2498525016%_ + _%g2480724845%_)) + (_%__kont2655626557%_ + _%g2480724845%_ + _%g2480824847%_) + (_%__kont2655826559%_)))))) + (if (gx#stx-pair? _%__stx2655326554%_) + (let ((_%e2480924835%_ + (gx#syntax-e _%__stx2655326554%_))) + (let ((_%tl2481124842%_ (let () (declare (not safe)) - (##cdr _%e2498325009%_))) - (_%hd2498425013%_ + (##cdr _%e2480924835%_))) + (_%hd2481024839%_ (let () (declare (not safe)) - (##car _%e2498325009%_)))) - (_%__match2675426755%_ - _%e2498325009%_ - _%hd2498425013%_ - _%tl2498525016%_))) - (_%__kont2674626747%_)))))))) - (let* ((_%g2489224911%_ - (lambda (_%g2489324907%_) + (##car _%e2480924835%_)))) + (_%__match2656626567%_ + _%e2480924835%_ + _%hd2481024839%_ + _%tl2481124842%_))) + (_%__kont2655826559%_)))))))) + (let* ((_%g2471824737%_ + (lambda (_%g2471924733%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2489324907%_))) - (_%g2489124969%_ - (lambda (_%g2489324915%_) - (if (gx#stx-pair? _%g2489324915%_) - (let ((_%e2489724918%_ (gx#syntax-e _%g2489324915%_))) - (let ((_%hd2489824922%_ + _%g2471924733%_))) + (_%g2471724795%_ + (lambda (_%g2471924741%_) + (if (gx#stx-pair? _%g2471924741%_) + (let ((_%e2472324744%_ (gx#syntax-e _%g2471924741%_))) + (let ((_%hd2472424748%_ (let () (declare (not safe)) - (##car _%e2489724918%_))) - (_%tl2489924925%_ + (##car _%e2472324744%_))) + (_%tl2472524751%_ (let () (declare (not safe)) - (##cdr _%e2489724918%_)))) - (if (gx#stx-pair? _%tl2489924925%_) - (let ((_%e2490024928%_ - (gx#syntax-e _%tl2489924925%_))) - (let ((_%hd2490124932%_ + (##cdr _%e2472324744%_)))) + (if (gx#stx-pair? _%tl2472524751%_) + (let ((_%e2472624754%_ + (gx#syntax-e _%tl2472524751%_))) + (let ((_%hd2472724758%_ (let () (declare (not safe)) - (##car _%e2490024928%_))) - (_%tl2490224935%_ + (##car _%e2472624754%_))) + (_%tl2472824761%_ (let () (declare (not safe)) - (##cdr _%e2490024928%_)))) - (if (gx#stx-pair? _%tl2490224935%_) - (let ((_%e2490324938%_ - (gx#syntax-e _%tl2490224935%_))) - (let ((_%hd2490424942%_ + (##cdr _%e2472624754%_)))) + (if (gx#stx-pair? _%tl2472824761%_) + (let ((_%e2472924764%_ + (gx#syntax-e _%tl2472824761%_))) + (let ((_%hd2473024768%_ (let () (declare (not safe)) - (##car _%e2490324938%_))) - (_%tl2490524945%_ + (##car _%e2472924764%_))) + (_%tl2473124771%_ (let () (declare (not safe)) - (##cdr _%e2490324938%_)))) - ((lambda (_%L24948%_ - _%L24950%_ - _%L24951%_) + (##cdr _%e2472924764%_)))) + ((lambda (_%g2472024774%_ + _%g2472124776%_ + _%g2472224777%_) (if (and (gx#identifier-list? - _%L24950%_) + _%g2472124776%_) (|gerbil/core/mop~MOP-4[1]#typedef-body?| - _%L24948%_)) - (_%generate24889%_ - _%L24951%_ - _%L24950%_ - _%L24948%_) - (_%g2489224911%_ - _%g2489324915%_))) - _%tl2490524945%_ - _%hd2490424942%_ - _%hd2490124932%_))) - (_%g2489224911%_ _%g2489324915%_)))) - (_%g2489224911%_ _%g2489324915%_)))) - (_%g2489224911%_ _%g2489324915%_))))) - (_%g2489124969%_ _%stx24886%_))))) + _%g2472024774%_)) + (_%generate24715%_ + _%g2472224777%_ + _%g2472124776%_ + _%g2472024774%_) + (_%g2471824737%_ + _%g2471924741%_))) + _%tl2473124771%_ + _%hd2473024768%_ + _%hd2472724758%_))) + (_%g2471824737%_ _%g2471924741%_)))) + (_%g2471824737%_ _%g2471924741%_)))) + (_%g2471824737%_ _%g2471924741%_))))) + (_%g2471724795%_ _%stx24712%_))))) (define |gerbil/core/mop~MOP-4[:0:]#defmethod| - (lambda (_%stx25038%_) - (letrec ((_%wrap25041%_ - (lambda (_%e-stx25387%_) + (lambda (_%stx24864%_) + (letrec ((_%wrap24867%_ + (lambda (_%e-stx25213%_) (gx#stx-wrap-source - _%e-stx25387%_ - (gx#stx-source _%stx25038%_)))) - (_%method-opt?25043%_ - (lambda (_%x25384%_) - (let ((__tmp27226 (gx#stx-e _%x25384%_))) + _%e-stx25213%_ + (gx#stx-source _%stx24864%_)))) + (_%method-opt?24869%_ + (lambda (_%x25210%_) + (let ((__tmp27076 (gx#stx-e _%x25210%_))) (declare (not safe)) - (##memq __tmp27226 '(rebind:)))))) - (let* ((_%g2504525074%_ - (lambda (_%g2504625070%_) + (##memq __tmp27076 '(rebind:)))))) + (let* ((_%g2487124900%_ + (lambda (_%g2487224896%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2504625070%_))) - (_%g2504425380%_ - (lambda (_%g2504625078%_) - (if (gx#stx-pair? _%g2504625078%_) - (let ((_%e2505125081%_ (gx#syntax-e _%g2504625078%_))) - (let ((_%hd2505225085%_ + _%g2487224896%_))) + (_%g2487025206%_ + (lambda (_%g2487224904%_) + (if (gx#stx-pair? _%g2487224904%_) + (let ((_%e2487724907%_ (gx#syntax-e _%g2487224904%_))) + (let ((_%hd2487824911%_ (let () (declare (not safe)) - (##car _%e2505125081%_))) - (_%tl2505325088%_ + (##car _%e2487724907%_))) + (_%tl2487924914%_ (let () (declare (not safe)) - (##cdr _%e2505125081%_)))) - (if (gx#stx-pair? _%tl2505325088%_) - (let ((_%e2505425091%_ - (gx#syntax-e _%tl2505325088%_))) - (let ((_%hd2505525095%_ + (##cdr _%e2487724907%_)))) + (if (gx#stx-pair? _%tl2487924914%_) + (let ((_%e2488024917%_ + (gx#syntax-e _%tl2487924914%_))) + (let ((_%hd2488124921%_ (let () (declare (not safe)) - (##car _%e2505425091%_))) - (_%tl2505625098%_ + (##car _%e2488024917%_))) + (_%tl2488224924%_ (let () (declare (not safe)) - (##cdr _%e2505425091%_)))) - (if (gx#stx-pair? _%hd2505525095%_) - (let ((_%e2505725101%_ - (gx#syntax-e _%hd2505525095%_))) - (let ((_%hd2505825105%_ + (##cdr _%e2488024917%_)))) + (if (gx#stx-pair? _%hd2488124921%_) + (let ((_%e2488324927%_ + (gx#syntax-e _%hd2488124921%_))) + (let ((_%hd2488424931%_ (let () (declare (not safe)) - (##car _%e2505725101%_))) - (_%tl2505925108%_ + (##car _%e2488324927%_))) + (_%tl2488524934%_ (let () (declare (not safe)) - (##cdr _%e2505725101%_)))) + (##cdr _%e2488324927%_)))) (if (gx#identifier? - _%hd2505825105%_) + _%hd2488424931%_) (if (gx#free-identifier=? - |gerbil/core/mop~MOP-4[1]#_g27227_| - _%hd2505825105%_) + |gerbil/core/mop~MOP-4[1]#_g27077_| + _%hd2488424931%_) (if (gx#stx-pair? - _%tl2505925108%_) - (let ((_%e2506025111%_ + _%tl2488524934%_) + (let ((_%e2488624937%_ (gx#syntax-e - _%tl2505925108%_))) - (let ((_%hd2506125115%_ + _%tl2488524934%_))) + (let ((_%hd2488724941%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e2506025111%_))) - (_%tl2506225118%_ + (let () (declare (not safe)) (##car _%e2488624937%_))) + (_%tl2488824944%_ (let () (declare (not safe)) - (##cdr _%e2506025111%_)))) - (if (gx#stx-pair? _%tl2506225118%_) - (let ((_%e2506325121%_ (gx#syntax-e _%tl2506225118%_))) - (let ((_%hd2506425125%_ + (##cdr _%e2488624937%_)))) + (if (gx#stx-pair? _%tl2488824944%_) + (let ((_%e2488924947%_ (gx#syntax-e _%tl2488824944%_))) + (let ((_%hd2489024951%_ (let () (declare (not safe)) - (##car _%e2506325121%_))) - (_%tl2506525128%_ + (##car _%e2488924947%_))) + (_%tl2489124954%_ (let () (declare (not safe)) - (##cdr _%e2506325121%_)))) - (if (gx#stx-null? _%tl2506525128%_) - (if (gx#stx-pair? _%tl2505625098%_) - (let ((_%e2506625131%_ - (gx#syntax-e _%tl2505625098%_))) - (let ((_%hd2506725135%_ + (##cdr _%e2488924947%_)))) + (if (gx#stx-null? _%tl2489124954%_) + (if (gx#stx-pair? _%tl2488224924%_) + (let ((_%e2489224957%_ + (gx#syntax-e _%tl2488224924%_))) + (let ((_%hd2489324961%_ (let () (declare (not safe)) - (##car _%e2506625131%_))) - (_%tl2506825138%_ + (##car _%e2489224957%_))) + (_%tl2489424964%_ (let () (declare (not safe)) - (##cdr _%e2506625131%_)))) - ((lambda (_%L25141%_ - _%L25143%_ - _%L25144%_ - _%L25145%_) - (if (and (gx#identifier? _%L25145%_) + (##cdr _%e2489224957%_)))) + ((lambda (_%g2487324967%_ + _%g2487424969%_ + _%g2487524970%_ + _%g2487624971%_) + (if (and (gx#identifier? + _%g2487624971%_) (let () (declare (not safe)) - (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L25144%_)) + (gerbil/core/mop~MOP-2#syntax-local-runtime-type-info?__0 + _%g2487524970%_)) (gx#stx-plist? - _%L25141%_ - _%method-opt?25043%_)) - (let* ((_%klass25172%_ + _%g2487324967%_ + _%method-opt?24869%_)) + (let* ((_%klass24998%_ (gx#syntax-local-value - _%L25144%_)) - (_%rebind?25175%_ + _%g2487524970%_)) + (_%rebind?25001%_ (gx#stx-e (gx#stx-getq 'rebind: - _%L25141%_))) - (_%g2517825186%_ - (lambda (_%g2517925182%_) + _%g2487324967%_))) + (_%g2500425012%_ + (lambda (_%g2500525008%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2517925182%_))) - (_%g2517725370%_ - (lambda (_%g2517925190%_) - ((lambda (_%L25193%_) - (let* ((_%g2520825216%_ + _%g2500525008%_))) + (_%g2500325196%_ + (lambda (_%g2500525016%_) + ((lambda (_%g2500625019%_) + (let* ((_%g2503425042%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2520925212%_) + (lambda (_%g2503525038%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2520925212%_))) - (_%g2520725366%_ - (lambda (_%g2520925220%_) - ((lambda (_%L25223%_) - (let* ((_%g2523625244%_ - (lambda (_%g2523725240%_) + _%g2503525038%_))) + (_%g2503325192%_ + (lambda (_%g2503525046%_) + ((lambda (_%g2503625049%_) + (let* ((_%g2506225070%_ + (lambda (_%g2506325066%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2523725240%_))) - (_%g2523525362%_ - (lambda (_%g2523725248%_) - ((lambda (_%L25251%_) - (let* ((_%g2526425272%_ - (lambda (_%g2526525268%_) + _%g2506325066%_))) + (_%g2506125188%_ + (lambda (_%g2506325074%_) + ((lambda (_%g2506425077%_) + (let* ((_%g2509025098%_ + (lambda (_%g2509125094%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2526525268%_))) - (_%g2526325358%_ - (lambda (_%g2526525276%_) - ((lambda (_%L25279%_) - (let* ((_%g2529225300%_ + _%g2509125094%_))) + (_%g2508925184%_ + (lambda (_%g2509125102%_) + ((lambda (_%g2509225105%_) + (let* ((_%g2511825126%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2529325296%_) + (lambda (_%g2511925122%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2529325296%_))) - (_%g2529125354%_ - (lambda (_%g2529325304%_) - ((lambda (_%L25307%_) - (let* ((_%g2532025328%_ - (lambda (_%g2532125324%_) + _%g2511925122%_))) + (_%g2511725180%_ + (lambda (_%g2511925130%_) + ((lambda (_%g2512025133%_) + (let* ((_%g2514625154%_ + (lambda (_%g2514725150%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2532125324%_))) - (_%g2531925350%_ - (lambda (_%g2532125332%_) - ((lambda (_%L25335%_) - (_%wrap25041%_ + _%g2514725150%_))) + (_%g2514525176%_ + (lambda (_%g2514725158%_) + ((lambda (_%g2514825161%_) + (_%wrap24867%_ (cons (gx#datum->syntax '#f 'begin) - (cons _%L25279%_ - (cons _%L25335%_ + (cons _%g2509225105%_ + (cons _%g2514825161%_ '()))))) - _%g2532125332%_)))) - (_%g2531925350%_ - (_%wrap25041%_ + _%g2514725158%_)))) + (_%g2514525176%_ + (_%wrap24867%_ (cons (gx#datum->syntax '#f 'bind-method!) - (cons _%L25193%_ + (cons _%g2500625019%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25145%_ + (cons _%g2487624971%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L25223%_ (cons _%L25307%_ '()))))))))) + (cons _%g2503625049%_ (cons _%g2512025133%_ '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2529325304%_)))) - (_%g2529125354%_ _%rebind?25175%_))) - _%g2526525276%_)))) + _%g2511925130%_)))) + (_%g2511725180%_ _%rebind?25001%_))) + _%g2509125102%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2526325358%_ - (_%wrap25041%_ + (_%g2508925184%_ + (_%wrap24867%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L25223%_ + (cons _%g2503625049%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let-syntax) - (cons (cons (cons _%L25251%_ + (cons (cons (cons _%g2506425077%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -2299,13 +2307,13 @@ (cons (cons (gx#datum->syntax '#f 'call-next-method) - (cons _%L25193%_ + (cons _%g2500625019%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'obj) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25145%_ '())) + (cons _%g2487624971%_ '())) (cons (gx#datum->syntax '#f 'arg) (cons (gx#datum->syntax '#f '...) '())))))) @@ -2315,150 +2323,151 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _%L25143%_ '()))) + (cons _%g2487424969%_ '()))) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2523725248%_)))) - (_%g2523525362%_ + _%g2506325074%_)))) + (_%g2506125188%_ (gx#stx-identifier - _%L25144%_ + _%g2487524970%_ '@next-method)))) - _%g2520925220%_)))) - (_%g2520725366%_ + _%g2503525046%_)))) + (_%g2503325192%_ (gx#stx-identifier - _%L25144%_ - _%L25144%_ + _%g2487524970%_ + _%g2487524970%_ '"::" - _%L25145%_)))) - _%g2517925190%_)))) + _%g2487624971%_)))) + _%g2500525016%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2517725370%_ - (let ((__obj27018 - _%klass25172%_)) + (_%g2500325196%_ + (let ((__obj26831 + _%klass24998%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27018 - 'gerbil.core#class-type-info::t)) + __obj26831 + 'gerbil.core#runtime-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj27018 - '12 + __obj26831 + '3 '#f '#f)) (class-slot-ref - gerbil/core/mop~MOP-2#class-type-info::t - __obj27018 + gerbil/core/mop~MOP-2#runtime-type-info::t + __obj26831 'type-descriptor))))) - (if (gx#identifier? _%L25145%_) + (if (gx#identifier? + _%g2487624971%_) (if (let () (declare (not safe)) - (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L25144%_)) + (gerbil/core/mop~MOP-2#syntax-local-runtime-type-info?__0 + _%g2487524970%_)) (gx#raise-syntax-error '#f '"bad syntax; illegal method options" - _%stx25038%_) + _%stx24864%_) (gx#raise-syntax-error '#f - '"bad syntax; expected type identifier" - _%stx25038%_ - _%L25144%_)) + '"bad syntax; invalid class type" + _%stx24864%_ + _%g2487524970%_)) (gx#raise-syntax-error '#f '"bad syntax; expected method identifier" - _%stx25038%_ - _%L25145%_)))) - _%tl2506825138%_ - _%hd2506725135%_ - _%hd2506425125%_ - _%hd2506125115%_))) - (_%g2504525074%_ _%g2504625078%_)) - (_%g2504525074%_ _%g2504625078%_)))) - (_%g2504525074%_ _%g2504625078%_)))) - (_%g2504525074%_ _%g2504625078%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2504525074%_ - _%g2504625078%_)) - (_%g2504525074%_ - _%g2504625078%_)))) - (_%g2504525074%_ _%g2504625078%_)))) - (_%g2504525074%_ _%g2504625078%_)))) - (_%g2504525074%_ _%g2504625078%_))))) - (_%g2504425380%_ _%stx25038%_))))) + _%stx24864%_ + _%g2487624971%_)))) + _%tl2489424964%_ + _%hd2489324961%_ + _%hd2489024951%_ + _%hd2488724941%_))) + (_%g2487124900%_ _%g2487224904%_)) + (_%g2487124900%_ _%g2487224904%_)))) + (_%g2487124900%_ _%g2487224904%_)))) + (_%g2487124900%_ _%g2487224904%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2487124900%_ + _%g2487224904%_)) + (_%g2487124900%_ + _%g2487224904%_)))) + (_%g2487124900%_ _%g2487224904%_)))) + (_%g2487124900%_ _%g2487224904%_)))) + (_%g2487124900%_ _%g2487224904%_))))) + (_%g2487025206%_ _%stx24864%_))))) (define |gerbil/core/mop~MOP-4[:0:]#@method| - (lambda (_%stx25390%_) - (letrec ((_%dotted-identifier?25393%_ - (lambda (_%id26026%_) - (if (gx#identifier? _%id26026%_) - (let ((_%id-str26029%_ - (symbol->string (gx#stx-e _%id26026%_)))) - (if (string-index _%id-str26029%_ '#\.) - (let* ((_%split26032%_ - (string-split _%id-str26029%_ '#\.)) - (__tmp27228 (length _%split26032%_))) + (lambda (_%stx25216%_) + (letrec ((_%dotted-identifier?25219%_ + (lambda (_%id25844%_) + (if (gx#identifier? _%id25844%_) + (let ((_%id-str25847%_ + (symbol->string (gx#stx-e _%id25844%_)))) + (if (string-index _%id-str25847%_ '#\.) + (let* ((_%split25850%_ + (string-split _%id-str25847%_ '#\.)) + (__tmp27078 (length _%split25850%_))) (declare (not safe)) - (##fx= __tmp27228 '2)) + (##fx= __tmp27078 '2)) '#f)) '#f))) - (_%split-dotted25395%_ - (lambda (_%id26015%_) - (let* ((_%id-str26018%_ - (symbol->string (gx#stx-e _%id26015%_))) - (_%split26021%_ - (string-split _%id-str26018%_ '#\.))) + (_%split-dotted25221%_ + (lambda (_%id25833%_) + (let* ((_%id-str25836%_ + (symbol->string (gx#stx-e _%id25833%_))) + (_%split25839%_ + (string-split _%id-str25836%_ '#\.))) (cons (gx#stx-identifier - _%id26015%_ - (car _%split26021%_)) + _%id25833%_ + (car _%split25839%_)) (cons (gx#stx-identifier - _%id26015%_ - (cadr _%split26021%_)) + _%id25833%_ + (cadr _%split25839%_)) '())))))) - (let* ((_%__stx2675726758%_ _%stx25390%_) - (_%g2540025487%_ + (let* ((_%__stx2656926570%_ _%stx25216%_) + (_%g2522625313%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2675726758%_)))) - (let ((_%__kont2676026761%_ - (lambda (_%L25908%_ _%L25910%_ _%L25911%_) - (let* ((_%g2593925954%_ - (lambda (_%g2594025950%_) + _%__stx2656926570%_)))) + (let ((_%__kont2657226573%_ + (lambda (_%g2522825726%_ _%g2522925728%_ _%g2523025729%_) + (let* ((_%g2575725772%_ + (lambda (_%g2575825768%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2594025950%_))) - (_%g2593826007%_ - (lambda (_%g2594025958%_) - (if (gx#stx-pair? _%g2594025958%_) - (let ((_%e2594325961%_ - (gx#syntax-e _%g2594025958%_))) - (let ((_%hd2594425965%_ + _%g2575825768%_))) + (_%g2575625825%_ + (lambda (_%g2575825776%_) + (if (gx#stx-pair? _%g2575825776%_) + (let ((_%e2576125779%_ + (gx#syntax-e _%g2575825776%_))) + (let ((_%hd2576225783%_ (let () (declare (not safe)) - (##car _%e2594325961%_))) - (_%tl2594525968%_ + (##car _%e2576125779%_))) + (_%tl2576325786%_ (let () (declare (not safe)) - (##cdr _%e2594325961%_)))) - (if (gx#stx-pair? _%tl2594525968%_) - (let ((_%e2594625971%_ + (##cdr _%e2576125779%_)))) + (if (gx#stx-pair? _%tl2576325786%_) + (let ((_%e2576425789%_ (gx#syntax-e - _%tl2594525968%_))) - (let ((_%hd2594725975%_ + _%tl2576325786%_))) + (let ((_%hd2576525793%_ (let () (declare (not safe)) - (##car _%e2594625971%_))) - (_%tl2594825978%_ + (##car _%e2576425789%_))) + (_%tl2576625796%_ (let () (declare (not safe)) - (##cdr _%e2594625971%_)))) + (##cdr _%e2576425789%_)))) (if (gx#stx-null? - _%tl2594825978%_) - ((lambda (_%L25981%_ - _%L25983%_) + _%tl2576625796%_) + ((lambda (_%g2575925799%_ + _%g2576025801%_) (cons (gx#datum->syntax '#f 'apply) @@ -2466,1419 +2475,1440 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'call-method) - (cons _%L25983%_ + (cons _%g2576025801%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25981%_ '())) + (cons _%g2575925799%_ '())) (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g2599826001%_ + (foldr (lambda (_%g2581625819%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2599926004%_) - (cons _%g2599826001%_ _%g2599926004%_)) + _%g2581725822%_) + (cons _%g2581625819%_ _%g2581725822%_)) '() - _%L25910%_)) + _%g2522925728%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd2594725975%_ - _%hd2594425965%_) - (_%g2593925954%_ - _%g2594025958%_)))) - (_%g2593925954%_ _%g2594025958%_)))) - (_%g2593925954%_ _%g2594025958%_))))) - (_%g2593826007%_ (_%split-dotted25395%_ _%L25911%_))))) - (_%__kont2676426765%_ - (lambda (_%L25750%_ _%L25752%_) - (let* ((_%g2576925784%_ - (lambda (_%g2577025780%_) + _%hd2576525793%_ + _%hd2576225783%_) + (_%g2575725772%_ + _%g2575825776%_)))) + (_%g2575725772%_ _%g2575825776%_)))) + (_%g2575725772%_ _%g2575825776%_))))) + (_%g2575625825%_ + (_%split-dotted25221%_ _%g2523025729%_))))) + (_%__kont2657626577%_ + (lambda (_%g2524925570%_ _%g2525025572%_) + (let* ((_%g2558925604%_ + (lambda (_%g2559025600%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2577025780%_))) - (_%g2576825837%_ - (lambda (_%g2577025788%_) - (if (gx#stx-pair? _%g2577025788%_) - (let ((_%e2577325791%_ - (gx#syntax-e _%g2577025788%_))) - (let ((_%hd2577425795%_ + _%g2559025600%_))) + (_%g2558825657%_ + (lambda (_%g2559025608%_) + (if (gx#stx-pair? _%g2559025608%_) + (let ((_%e2559325611%_ + (gx#syntax-e _%g2559025608%_))) + (let ((_%hd2559425615%_ (let () (declare (not safe)) - (##car _%e2577325791%_))) - (_%tl2577525798%_ + (##car _%e2559325611%_))) + (_%tl2559525618%_ (let () (declare (not safe)) - (##cdr _%e2577325791%_)))) - (if (gx#stx-pair? _%tl2577525798%_) - (let ((_%e2577625801%_ + (##cdr _%e2559325611%_)))) + (if (gx#stx-pair? _%tl2559525618%_) + (let ((_%e2559625621%_ (gx#syntax-e - _%tl2577525798%_))) - (let ((_%hd2577725805%_ + _%tl2559525618%_))) + (let ((_%hd2559725625%_ (let () (declare (not safe)) - (##car _%e2577625801%_))) - (_%tl2577825808%_ + (##car _%e2559625621%_))) + (_%tl2559825628%_ (let () (declare (not safe)) - (##cdr _%e2577625801%_)))) + (##cdr _%e2559625621%_)))) (if (gx#stx-null? - _%tl2577825808%_) - ((lambda (_%L25811%_ - _%L25813%_) + _%tl2559825628%_) + ((lambda (_%g2559125631%_ + _%g2559225633%_) (cons (gx#datum->syntax '#f 'call-method) - (cons _%L25813%_ + (cons _%g2559225633%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25811%_ '())) - (foldr (lambda (_%g2582825831%_ - _%g2582925834%_) - (cons _%g2582825831%_ - _%g2582925834%_)) + (cons _%g2559125631%_ '())) + (foldr (lambda (_%g2564825651%_ + _%g2564925654%_) + (cons _%g2564825651%_ + _%g2564925654%_)) '() - _%L25750%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd2577725805%_ - _%hd2577425795%_) - (_%g2576925784%_ - _%g2577025788%_)))) - (_%g2576925784%_ _%g2577025788%_)))) - (_%g2576925784%_ _%g2577025788%_))))) - (_%g2576825837%_ (_%split-dotted25395%_ _%L25752%_))))) - (_%__kont2676826769%_ - (lambda (_%L25654%_ _%L25656%_ _%L25657%_) + _%g2524925570%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd2559725625%_ + _%hd2559425615%_) + (_%g2558925604%_ + _%g2559025608%_)))) + (_%g2558925604%_ _%g2559025608%_)))) + (_%g2558925604%_ _%g2559025608%_))))) + (_%g2558825657%_ + (_%split-dotted25221%_ _%g2525025572%_))))) + (_%__kont2658026581%_ + (lambda (_%g2526625476%_ _%g2526725478%_ _%g2526825479%_) (cons (gx#datum->syntax '#f 'apply) (cons (gx#datum->syntax '#f 'call-method) - (cons _%L25656%_ + (cons _%g2526725478%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25657%_ '())) + (cons _%g2526825479%_ '())) (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g2568425687%_ + (foldr (lambda (_%g2550625509%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2568525690%_) - (cons _%g2568425687%_ _%g2568525690%_)) + _%g2550725512%_) + (cons _%g2550625509%_ _%g2550725512%_)) '() - _%L25654%_)) + _%g2526625476%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (_%__kont2677226773%_ - (lambda (_%L25554%_ _%L25556%_ _%L25557%_) + (_%__kont2658426585%_ + (lambda (_%g2528725378%_ _%g2528825380%_ _%g2528925381%_) (cons (gx#datum->syntax '#f 'call-method) - (cons _%L25556%_ + (cons _%g2528825380%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25557%_ '())) - (foldr (lambda (_%g2557825581%_ - _%g2557925584%_) - (cons _%g2557825581%_ - _%g2557925584%_)) + (cons _%g2528925381%_ '())) + (foldr (lambda (_%g2540225405%_ + _%g2540325408%_) + (cons _%g2540225405%_ + _%g2540325408%_)) '() - _%L25554%_))))))) - (let* ((_%__match2687626877%_ - (lambda (_%e2546425494%_ - _%hd2546525498%_ - _%tl2546625501%_ - _%e2546725504%_ - _%hd2546825508%_ - _%tl2546925511%_ - _%e2547025514%_ - _%hd2547125518%_ - _%tl2547225521%_ - _%__splice2677426775%_ - _%target2547325524%_ - _%tl2547525527%_) - (letrec ((_%loop2547625530%_ - (lambda (_%hd2547425534%_ _%arg2548025537%_) - (if (gx#stx-pair? _%hd2547425534%_) - (let ((_%e2547725540%_ - (gx#syntax-e _%hd2547425534%_))) - (let ((_%lp-tl2547925547%_ + _%g2528725378%_))))))) + (let* ((_%__match2668826689%_ + (lambda (_%e2529025320%_ + _%hd2529125324%_ + _%tl2529225327%_ + _%e2529325330%_ + _%hd2529425334%_ + _%tl2529525337%_ + _%e2529625340%_ + _%hd2529725344%_ + _%tl2529825347%_ + _%__splice2658626587%_ + _%target2529925350%_ + _%tl2530125353%_) + (letrec ((_%loop2530225356%_ + (lambda (_%hd2530025360%_ _%arg2530625363%_) + (if (gx#stx-pair? _%hd2530025360%_) + (let ((_%e2530325365%_ + (gx#syntax-e _%hd2530025360%_))) + (let ((_%lp-tl2530525372%_ (let () (declare (not safe)) - (##cdr _%e2547725540%_))) - (_%lp-hd2547825544%_ + (##cdr _%e2530325365%_))) + (_%lp-hd2530425369%_ (let () (declare (not safe)) - (##car _%e2547725540%_)))) - (_%loop2547625530%_ - _%lp-tl2547925547%_ - (cons _%lp-hd2547825544%_ - _%arg2548025537%_)))) - (let ((_%arg2548125550%_ - (reverse _%arg2548025537%_))) - (let ((_%L25554%_ _%arg2548125550%_) - (_%L25556%_ _%hd2547125518%_) - (_%L25557%_ _%hd2546825508%_)) - (if (gx#identifier? _%L25557%_) - (_%__kont2677226773%_ - _%L25554%_ - _%L25556%_ - _%L25557%_) + (##car _%e2530325365%_)))) + (_%loop2530225356%_ + _%lp-tl2530525372%_ + (cons _%lp-hd2530425369%_ + _%arg2530625363%_)))) + (let ((_%arg2530725375%_ + (reverse _%arg2530625363%_))) + (let ((_%g2528725378%_ + _%arg2530725375%_) + (_%g2528825380%_ + _%hd2529725344%_) + (_%g2528925381%_ + _%hd2529425334%_)) + (if (gx#identifier? + _%g2528925381%_) + (_%__kont2658426585%_ + _%g2528725378%_ + _%g2528825380%_ + _%g2528925381%_) (let () (declare (not safe)) - (_%g2540025487%_))))))))) - (_%loop2547625530%_ _%target2547325524%_ '())))) - (_%__match2685026851%_ - (lambda (_%e2544325594%_ - _%hd2544425598%_ - _%tl2544525601%_ - _%e2544625604%_ - _%hd2544725608%_ - _%tl2544825611%_ - _%e2544925614%_ - _%hd2545025618%_ - _%tl2545125621%_ - _%__splice2677026771%_ - _%target2545225624%_ - _%tl2545425627%_) - (letrec ((_%loop2545525630%_ - (lambda (_%hd2545325634%_ _%arg2545925637%_) - (if (gx#stx-pair? _%hd2545325634%_) - (let ((_%e2545625640%_ - (gx#syntax-e _%hd2545325634%_))) - (let ((_%lp-tl2545825647%_ + (_%g2522625313%_))))))))) + (_%loop2530225356%_ _%target2529925350%_ '())))) + (_%__match2666226663%_ + (lambda (_%e2526925418%_ + _%hd2527025422%_ + _%tl2527125425%_ + _%e2527225428%_ + _%hd2527325432%_ + _%tl2527425435%_ + _%e2527525438%_ + _%hd2527625442%_ + _%tl2527725445%_ + _%__splice2658226583%_ + _%target2527825448%_ + _%tl2528025451%_) + (letrec ((_%loop2528125454%_ + (lambda (_%hd2527925458%_ _%arg2528525461%_) + (if (gx#stx-pair? _%hd2527925458%_) + (let ((_%e2528225463%_ + (gx#syntax-e _%hd2527925458%_))) + (let ((_%lp-tl2528425470%_ (let () (declare (not safe)) - (##cdr _%e2545625640%_))) - (_%lp-hd2545725644%_ + (##cdr _%e2528225463%_))) + (_%lp-hd2528325467%_ (let () (declare (not safe)) - (##car _%e2545625640%_)))) - (_%loop2545525630%_ - _%lp-tl2545825647%_ - (cons _%lp-hd2545725644%_ - _%arg2545925637%_)))) - (let ((_%arg2546025650%_ - (reverse _%arg2545925637%_))) - (let ((_%L25654%_ _%arg2546025650%_) - (_%L25656%_ _%hd2545025618%_) - (_%L25657%_ _%hd2544725608%_)) + (##car _%e2528225463%_)))) + (_%loop2528125454%_ + _%lp-tl2528425470%_ + (cons _%lp-hd2528325467%_ + _%arg2528525461%_)))) + (let ((_%arg2528625473%_ + (reverse _%arg2528525461%_))) + (let ((_%g2526625476%_ + _%arg2528625473%_) + (_%g2526725478%_ + _%hd2527625442%_) + (_%g2526825479%_ + _%hd2527325432%_)) (if (and (gx#identifier? - _%L25657%_) + _%g2526825479%_) (gx#stx-ormap gx#ellipsis? - (foldr (lambda (_%g2567625679%_ + (foldr (lambda (_%g2549825501%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2567725682%_) - (cons _%g2567625679%_ _%g2567725682%_)) + _%g2549925504%_) + (cons _%g2549825501%_ _%g2549925504%_)) '() - _%L25654%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2676826769%_ - _%L25654%_ - _%L25656%_ - _%L25657%_) - (_%__match2687626877%_ - _%e2544325594%_ - _%hd2544425598%_ - _%tl2544525601%_ - _%e2544625604%_ - _%hd2544725608%_ - _%tl2544825611%_ - _%e2544925614%_ - _%hd2545025618%_ - _%tl2545125621%_ - _%__splice2677026771%_ - _%target2545225624%_ - _%tl2545425627%_)))))))) - (_%loop2545525630%_ _%target2545225624%_ '())))) - (_%__match2683626837%_ - (lambda (_%e2544325594%_ - _%hd2544425598%_ - _%tl2544525601%_ - _%e2544625604%_ - _%hd2544725608%_ - _%tl2544825611%_) - (if (gx#stx-pair? _%tl2544825611%_) - (let ((_%e2544925614%_ - (gx#syntax-e _%tl2544825611%_))) - (let ((_%tl2545125621%_ + _%g2526625476%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont2658026581%_ + _%g2526625476%_ + _%g2526725478%_ + _%g2526825479%_) + (_%__match2668826689%_ + _%e2526925418%_ + _%hd2527025422%_ + _%tl2527125425%_ + _%e2527225428%_ + _%hd2527325432%_ + _%tl2527425435%_ + _%e2527525438%_ + _%hd2527625442%_ + _%tl2527725445%_ + _%__splice2658226583%_ + _%target2527825448%_ + _%tl2528025451%_)))))))) + (_%loop2528125454%_ _%target2527825448%_ '())))) + (_%__match2664826649%_ + (lambda (_%e2526925418%_ + _%hd2527025422%_ + _%tl2527125425%_ + _%e2527225428%_ + _%hd2527325432%_ + _%tl2527425435%_) + (if (gx#stx-pair? _%tl2527425435%_) + (let ((_%e2527525438%_ + (gx#syntax-e _%tl2527425435%_))) + (let ((_%tl2527725445%_ (let () (declare (not safe)) - (##cdr _%e2544925614%_))) - (_%hd2545025618%_ + (##cdr _%e2527525438%_))) + (_%hd2527625442%_ (let () (declare (not safe)) - (##car _%e2544925614%_)))) - (if (gx#stx-pair/null? _%tl2545125621%_) - (let ((_%__splice2677026771%_ + (##car _%e2527525438%_)))) + (if (gx#stx-pair/null? _%tl2527725445%_) + (let ((_%__splice2658226583%_ (gx#syntax-split-splice->vector - _%tl2545125621%_ + _%tl2527725445%_ '0))) - (let ((_%tl2545425627%_ + (let ((_%tl2528025451%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677026771%_ + _%__splice2658226583%_ '1))) - (_%target2545225624%_ + (_%target2527825448%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677026771%_ + _%__splice2658226583%_ '0)))) - (if (gx#stx-null? _%tl2545425627%_) - (_%__match2685026851%_ - _%e2544325594%_ - _%hd2544425598%_ - _%tl2544525601%_ - _%e2544625604%_ - _%hd2544725608%_ - _%tl2544825611%_ - _%e2544925614%_ - _%hd2545025618%_ - _%tl2545125621%_ - _%__splice2677026771%_ - _%target2545225624%_ - _%tl2545425627%_) + (if (gx#stx-null? _%tl2528025451%_) + (_%__match2666226663%_ + _%e2526925418%_ + _%hd2527025422%_ + _%tl2527125425%_ + _%e2527225428%_ + _%hd2527325432%_ + _%tl2527425435%_ + _%e2527525438%_ + _%hd2527625442%_ + _%tl2527725445%_ + _%__splice2658226583%_ + _%target2527825448%_ + _%tl2528025451%_) (let () (declare (not safe)) - (_%g2540025487%_))))) + (_%g2522625313%_))))) (let () (declare (not safe)) - (_%g2540025487%_))))) - (let () (declare (not safe)) (_%g2540025487%_))))) - (_%__match2682426825%_ - (lambda (_%e2542525700%_ - _%hd2542625704%_ - _%tl2542725707%_ - _%e2542825710%_ - _%hd2542925714%_ - _%tl2543025717%_ - _%__splice2676626767%_ - _%target2543125720%_ - _%tl2543325723%_) - (letrec ((_%loop2543425726%_ - (lambda (_%hd2543225730%_ _%arg2543825733%_) - (if (gx#stx-pair? _%hd2543225730%_) - (let ((_%e2543525736%_ - (gx#syntax-e _%hd2543225730%_))) - (let ((_%lp-tl2543725743%_ + (_%g2522625313%_))))) + (let () (declare (not safe)) (_%g2522625313%_))))) + (_%__match2663626637%_ + (lambda (_%e2525125522%_ + _%hd2525225526%_ + _%tl2525325529%_ + _%e2525425532%_ + _%hd2525525536%_ + _%tl2525625539%_ + _%__splice2657826579%_ + _%target2525725542%_ + _%tl2525925545%_) + (letrec ((_%loop2526025548%_ + (lambda (_%hd2525825552%_ _%arg2526425555%_) + (if (gx#stx-pair? _%hd2525825552%_) + (let ((_%e2526125557%_ + (gx#syntax-e _%hd2525825552%_))) + (let ((_%lp-tl2526325564%_ (let () (declare (not safe)) - (##cdr _%e2543525736%_))) - (_%lp-hd2543625740%_ + (##cdr _%e2526125557%_))) + (_%lp-hd2526225561%_ (let () (declare (not safe)) - (##car _%e2543525736%_)))) - (_%loop2543425726%_ - _%lp-tl2543725743%_ - (cons _%lp-hd2543625740%_ - _%arg2543825733%_)))) - (let ((_%arg2543925746%_ - (reverse _%arg2543825733%_))) - (let ((_%L25750%_ _%arg2543925746%_) - (_%L25752%_ _%hd2542925714%_)) - (if (_%dotted-identifier?25393%_ - _%L25752%_) - (_%__kont2676426765%_ - _%L25750%_ - _%L25752%_) - (_%__match2683626837%_ - _%e2542525700%_ - _%hd2542625704%_ - _%tl2542725707%_ - _%e2542825710%_ - _%hd2542925714%_ - _%tl2543025717%_)))))))) - (_%loop2543425726%_ _%target2543125720%_ '())))) - (_%__match2682226823%_ - (lambda (_%e2542525700%_ - _%hd2542625704%_ - _%tl2542725707%_ - _%e2542825710%_ - _%hd2542925714%_ - _%tl2543025717%_ - _%__splice2676626767%_ - _%target2543125720%_ - _%tl2543325723%_) - (if (gx#stx-null? _%tl2543325723%_) - (_%__match2682426825%_ - _%e2542525700%_ - _%hd2542625704%_ - _%tl2542725707%_ - _%e2542825710%_ - _%hd2542925714%_ - _%tl2543025717%_ - _%__splice2676626767%_ - _%target2543125720%_ - _%tl2543325723%_) - (if (gx#stx-pair? _%tl2543025717%_) - (let ((_%e2544925614%_ - (gx#syntax-e _%tl2543025717%_))) - (let ((_%tl2545125621%_ + (##car _%e2526125557%_)))) + (_%loop2526025548%_ + _%lp-tl2526325564%_ + (cons _%lp-hd2526225561%_ + _%arg2526425555%_)))) + (let ((_%arg2526525567%_ + (reverse _%arg2526425555%_))) + (let ((_%g2524925570%_ + _%arg2526525567%_) + (_%g2525025572%_ + _%hd2525525536%_)) + (if (_%dotted-identifier?25219%_ + _%g2525025572%_) + (_%__kont2657626577%_ + _%g2524925570%_ + _%g2525025572%_) + (_%__match2664826649%_ + _%e2525125522%_ + _%hd2525225526%_ + _%tl2525325529%_ + _%e2525425532%_ + _%hd2525525536%_ + _%tl2525625539%_)))))))) + (_%loop2526025548%_ _%target2525725542%_ '())))) + (_%__match2663426635%_ + (lambda (_%e2525125522%_ + _%hd2525225526%_ + _%tl2525325529%_ + _%e2525425532%_ + _%hd2525525536%_ + _%tl2525625539%_ + _%__splice2657826579%_ + _%target2525725542%_ + _%tl2525925545%_) + (if (gx#stx-null? _%tl2525925545%_) + (_%__match2663626637%_ + _%e2525125522%_ + _%hd2525225526%_ + _%tl2525325529%_ + _%e2525425532%_ + _%hd2525525536%_ + _%tl2525625539%_ + _%__splice2657826579%_ + _%target2525725542%_ + _%tl2525925545%_) + (if (gx#stx-pair? _%tl2525625539%_) + (let ((_%e2527525438%_ + (gx#syntax-e _%tl2525625539%_))) + (let ((_%tl2527725445%_ (let () (declare (not safe)) - (##cdr _%e2544925614%_))) - (_%hd2545025618%_ + (##cdr _%e2527525438%_))) + (_%hd2527625442%_ (let () (declare (not safe)) - (##car _%e2544925614%_)))) - (if (gx#stx-pair/null? _%tl2545125621%_) - (let ((_%__splice2677026771%_ + (##car _%e2527525438%_)))) + (if (gx#stx-pair/null? _%tl2527725445%_) + (let ((_%__splice2658226583%_ (gx#syntax-split-splice->vector - _%tl2545125621%_ + _%tl2527725445%_ '0))) - (let ((_%tl2545425627%_ + (let ((_%tl2528025451%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677026771%_ + _%__splice2658226583%_ '1))) - (_%target2545225624%_ + (_%target2527825448%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677026771%_ + _%__splice2658226583%_ '0)))) - (if (gx#stx-null? _%tl2545425627%_) - (_%__match2685026851%_ - _%e2542525700%_ - _%hd2542625704%_ - _%tl2542725707%_ - _%e2542825710%_ - _%hd2542925714%_ - _%tl2543025717%_ - _%e2544925614%_ - _%hd2545025618%_ - _%tl2545125621%_ - _%__splice2677026771%_ - _%target2545225624%_ - _%tl2545425627%_) + (if (gx#stx-null? _%tl2528025451%_) + (_%__match2666226663%_ + _%e2525125522%_ + _%hd2525225526%_ + _%tl2525325529%_ + _%e2525425532%_ + _%hd2525525536%_ + _%tl2525625539%_ + _%e2527525438%_ + _%hd2527625442%_ + _%tl2527725445%_ + _%__splice2658226583%_ + _%target2527825448%_ + _%tl2528025451%_) (let () (declare (not safe)) - (_%g2540025487%_))))) + (_%g2522625313%_))))) (let () (declare (not safe)) - (_%g2540025487%_))))) + (_%g2522625313%_))))) (let () (declare (not safe)) - (_%g2540025487%_)))))) - (_%__match2680426805%_ - (lambda (_%e2540525848%_ - _%hd2540625852%_ - _%tl2540725855%_ - _%e2540825858%_ - _%hd2540925862%_ - _%tl2541025865%_ - _%__splice2676226763%_ - _%target2541125868%_ - _%tl2541325871%_ - _%e2542025874%_ - _%hd2542125878%_ - _%tl2542225881%_) - (letrec ((_%loop2541425884%_ - (lambda (_%hd2541225888%_ _%arg2541825891%_) - (if (gx#stx-pair? _%hd2541225888%_) - (let ((_%e2541525894%_ - (gx#syntax-e _%hd2541225888%_))) - (let ((_%lp-tl2541725901%_ + (_%g2522625313%_)))))) + (_%__match2661626617%_ + (lambda (_%e2523125668%_ + _%hd2523225672%_ + _%tl2523325675%_ + _%e2523425678%_ + _%hd2523525682%_ + _%tl2523625685%_ + _%__splice2657426575%_ + _%target2523725688%_ + _%tl2523925691%_ + _%e2524625694%_ + _%hd2524725698%_ + _%tl2524825701%_) + (letrec ((_%loop2524025704%_ + (lambda (_%hd2523825708%_ _%arg2524425711%_) + (if (gx#stx-pair? _%hd2523825708%_) + (let ((_%e2524125713%_ + (gx#syntax-e _%hd2523825708%_))) + (let ((_%lp-tl2524325720%_ (let () (declare (not safe)) - (##cdr _%e2541525894%_))) - (_%lp-hd2541625898%_ + (##cdr _%e2524125713%_))) + (_%lp-hd2524225717%_ (let () (declare (not safe)) - (##car _%e2541525894%_)))) - (_%loop2541425884%_ - _%lp-tl2541725901%_ - (cons _%lp-hd2541625898%_ - _%arg2541825891%_)))) - (let ((_%arg2541925904%_ - (reverse _%arg2541825891%_))) - (let ((_%L25908%_ _%hd2542125878%_) - (_%L25910%_ _%arg2541925904%_) - (_%L25911%_ _%hd2540925862%_)) - (if (and (_%dotted-identifier?25393%_ - _%L25911%_) + (##car _%e2524125713%_)))) + (_%loop2524025704%_ + _%lp-tl2524325720%_ + (cons _%lp-hd2524225717%_ + _%arg2524425711%_)))) + (let ((_%arg2524525723%_ + (reverse _%arg2524425711%_))) + (let ((_%g2522825726%_ + _%hd2524725698%_) + (_%g2522925728%_ + _%arg2524525723%_) + (_%g2523025729%_ + _%hd2523525682%_)) + (if (and (_%dotted-identifier?25219%_ + _%g2523025729%_) (gx#stx-ormap gx#ellipsis? - (foldr (lambda (_%g2593025933%_ + (foldr (lambda (_%g2574825751%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2593125936%_) - (cons _%g2593025933%_ _%g2593125936%_)) + _%g2574925754%_) + (cons _%g2574825751%_ _%g2574925754%_)) '() - _%L25910%_))) + _%g2522925728%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2676026761%_ - _%L25908%_ - _%L25910%_ - _%L25911%_) - (let ((_%__splice2676626767%_ + (_%__kont2657226573%_ + _%g2522825726%_ + _%g2522925728%_ + _%g2523025729%_) + (let ((_%__splice2657826579%_ (gx#syntax-split-splice->vector - _%tl2541025865%_ + _%tl2523625685%_ '0))) - (let ((_%tl2543325723%_ + (let ((_%tl2525925545%_ (let () (declare (not safe)) (##vector-ref - _%__splice2676626767%_ + _%__splice2657826579%_ '1))) - (_%target2543125720%_ + (_%target2525725542%_ (let () (declare (not safe)) (##vector-ref - _%__splice2676626767%_ + _%__splice2657826579%_ '0)))) - (_%__match2682226823%_ - _%e2540525848%_ - _%hd2540625852%_ - _%tl2540725855%_ - _%e2540825858%_ - _%hd2540925862%_ - _%tl2541025865%_ - _%__splice2676626767%_ - _%target2543125720%_ - _%tl2543325723%_)))))))))) - (_%loop2541425884%_ _%target2541125868%_ '()))))) - (if (gx#stx-pair? _%__stx2675726758%_) - (let ((_%e2540525848%_ (gx#syntax-e _%__stx2675726758%_))) - (let ((_%tl2540725855%_ + (_%__match2663426635%_ + _%e2523125668%_ + _%hd2523225672%_ + _%tl2523325675%_ + _%e2523425678%_ + _%hd2523525682%_ + _%tl2523625685%_ + _%__splice2657826579%_ + _%target2525725542%_ + _%tl2525925545%_)))))))))) + (_%loop2524025704%_ _%target2523725688%_ '()))))) + (if (gx#stx-pair? _%__stx2656926570%_) + (let ((_%e2523125668%_ (gx#syntax-e _%__stx2656926570%_))) + (let ((_%tl2523325675%_ (let () (declare (not safe)) - (##cdr _%e2540525848%_))) - (_%hd2540625852%_ + (##cdr _%e2523125668%_))) + (_%hd2523225672%_ (let () (declare (not safe)) - (##car _%e2540525848%_)))) - (if (gx#stx-pair? _%tl2540725855%_) - (let ((_%e2540825858%_ - (gx#syntax-e _%tl2540725855%_))) - (let ((_%tl2541025865%_ + (##car _%e2523125668%_)))) + (if (gx#stx-pair? _%tl2523325675%_) + (let ((_%e2523425678%_ + (gx#syntax-e _%tl2523325675%_))) + (let ((_%tl2523625685%_ (let () (declare (not safe)) - (##cdr _%e2540825858%_))) - (_%hd2540925862%_ + (##cdr _%e2523425678%_))) + (_%hd2523525682%_ (let () (declare (not safe)) - (##car _%e2540825858%_)))) - (if (gx#stx-pair/null? _%tl2541025865%_) - (if (let ((__tmp27229 + (##car _%e2523425678%_)))) + (if (gx#stx-pair/null? _%tl2523625685%_) + (if (let ((__tmp27079 (gx#stx-length - _%tl2541025865%_))) + _%tl2523625685%_))) (declare (not safe)) - (##fx>= __tmp27229 '1)) - (let ((_%__splice2676226763%_ + (##fx>= __tmp27079 '1)) + (let ((_%__splice2657426575%_ (gx#syntax-split-splice->vector - _%tl2541025865%_ + _%tl2523625685%_ '1))) - (let ((_%tl2541325871%_ + (let ((_%tl2523925691%_ (let () (declare (not safe)) (##vector-ref - _%__splice2676226763%_ + _%__splice2657426575%_ '1))) - (_%target2541125868%_ + (_%target2523725688%_ (let () (declare (not safe)) (##vector-ref - _%__splice2676226763%_ + _%__splice2657426575%_ '0)))) - (if (gx#stx-pair? _%tl2541325871%_) - (let ((_%e2542025874%_ + (if (gx#stx-pair? _%tl2523925691%_) + (let ((_%e2524625694%_ (gx#syntax-e - _%tl2541325871%_))) - (let ((_%tl2542225881%_ + _%tl2523925691%_))) + (let ((_%tl2524825701%_ (let () (declare (not safe)) - (##cdr _%e2542025874%_))) - (_%hd2542125878%_ + (##cdr _%e2524625694%_))) + (_%hd2524725698%_ (let () (declare (not safe)) - (##car _%e2542025874%_)))) + (##car _%e2524625694%_)))) (if (gx#stx-null? - _%tl2542225881%_) - (_%__match2680426805%_ - _%e2540525848%_ - _%hd2540625852%_ - _%tl2540725855%_ - _%e2540825858%_ - _%hd2540925862%_ - _%tl2541025865%_ - _%__splice2676226763%_ - _%target2541125868%_ - _%tl2541325871%_ - _%e2542025874%_ - _%hd2542125878%_ - _%tl2542225881%_) - (let ((_%__splice2676626767%_ + _%tl2524825701%_) + (_%__match2661626617%_ + _%e2523125668%_ + _%hd2523225672%_ + _%tl2523325675%_ + _%e2523425678%_ + _%hd2523525682%_ + _%tl2523625685%_ + _%__splice2657426575%_ + _%target2523725688%_ + _%tl2523925691%_ + _%e2524625694%_ + _%hd2524725698%_ + _%tl2524825701%_) + (let ((_%__splice2657826579%_ (gx#syntax-split-splice->vector - _%tl2541025865%_ + _%tl2523625685%_ '0))) - (let ((_%tl2543325723%_ + (let ((_%tl2525925545%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice2676626767%_ '1))) - (_%target2543125720%_ + (##vector-ref _%__splice2657826579%_ '1))) + (_%target2525725542%_ (let () (declare (not safe)) - (##vector-ref _%__splice2676626767%_ '0)))) - (if (gx#stx-null? _%tl2543325723%_) - (_%__match2682426825%_ - _%e2540525848%_ - _%hd2540625852%_ - _%tl2540725855%_ - _%e2540825858%_ - _%hd2540925862%_ - _%tl2541025865%_ - _%__splice2676626767%_ - _%target2543125720%_ - _%tl2543325723%_) - (if (gx#stx-pair? _%tl2541025865%_) - (let ((_%e2544925614%_ - (gx#syntax-e _%tl2541025865%_))) - (let ((_%tl2545125621%_ + (##vector-ref _%__splice2657826579%_ '0)))) + (if (gx#stx-null? _%tl2525925545%_) + (_%__match2663626637%_ + _%e2523125668%_ + _%hd2523225672%_ + _%tl2523325675%_ + _%e2523425678%_ + _%hd2523525682%_ + _%tl2523625685%_ + _%__splice2657826579%_ + _%target2525725542%_ + _%tl2525925545%_) + (if (gx#stx-pair? _%tl2523625685%_) + (let ((_%e2527525438%_ + (gx#syntax-e _%tl2523625685%_))) + (let ((_%tl2527725445%_ (let () (declare (not safe)) - (##cdr _%e2544925614%_))) - (_%hd2545025618%_ + (##cdr _%e2527525438%_))) + (_%hd2527625442%_ (let () (declare (not safe)) - (##car _%e2544925614%_)))) - (if (gx#stx-pair/null? _%tl2545125621%_) - (let ((_%__splice2677026771%_ + (##car _%e2527525438%_)))) + (if (gx#stx-pair/null? _%tl2527725445%_) + (let ((_%__splice2658226583%_ (gx#syntax-split-splice->vector - _%tl2545125621%_ + _%tl2527725445%_ '0))) - (let ((_%tl2545425627%_ + (let ((_%tl2528025451%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677026771%_ + _%__splice2658226583%_ '1))) - (_%target2545225624%_ + (_%target2527825448%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677026771%_ + _%__splice2658226583%_ '0)))) - (if (gx#stx-null? _%tl2545425627%_) - (_%__match2685026851%_ - _%e2540525848%_ - _%hd2540625852%_ - _%tl2540725855%_ - _%e2540825858%_ - _%hd2540925862%_ - _%tl2541025865%_ - _%e2544925614%_ - _%hd2545025618%_ - _%tl2545125621%_ - _%__splice2677026771%_ - _%target2545225624%_ - _%tl2545425627%_) + (if (gx#stx-null? _%tl2528025451%_) + (_%__match2666226663%_ + _%e2523125668%_ + _%hd2523225672%_ + _%tl2523325675%_ + _%e2523425678%_ + _%hd2523525682%_ + _%tl2523625685%_ + _%e2527525438%_ + _%hd2527625442%_ + _%tl2527725445%_ + _%__splice2658226583%_ + _%target2527825448%_ + _%tl2528025451%_) (let () (declare (not safe)) - (_%g2540025487%_))))) + (_%g2522625313%_))))) (let () (declare (not safe)) - (_%g2540025487%_))))) + (_%g2522625313%_))))) (let () (declare (not safe)) - (_%g2540025487%_))))))))) + (_%g2522625313%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__splice2676626767%_ + (let ((_%__splice2657826579%_ (gx#syntax-split-splice->vector - _%tl2541025865%_ + _%tl2523625685%_ '0))) - (let ((_%tl2543325723%_ + (let ((_%tl2525925545%_ (let () (declare (not safe)) (##vector-ref - _%__splice2676626767%_ + _%__splice2657826579%_ '1))) - (_%target2543125720%_ + (_%target2525725542%_ (let () (declare (not safe)) (##vector-ref - _%__splice2676626767%_ + _%__splice2657826579%_ '0)))) (if (gx#stx-null? - _%tl2543325723%_) - (_%__match2682426825%_ - _%e2540525848%_ - _%hd2540625852%_ - _%tl2540725855%_ - _%e2540825858%_ - _%hd2540925862%_ - _%tl2541025865%_ - _%__splice2676626767%_ - _%target2543125720%_ - _%tl2543325723%_) + _%tl2525925545%_) + (_%__match2663626637%_ + _%e2523125668%_ + _%hd2523225672%_ + _%tl2523325675%_ + _%e2523425678%_ + _%hd2523525682%_ + _%tl2523625685%_ + _%__splice2657826579%_ + _%target2525725542%_ + _%tl2525925545%_) (if (gx#stx-pair? - _%tl2541025865%_) - (let ((_%e2544925614%_ + _%tl2523625685%_) + (let ((_%e2527525438%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl2541025865%_))) - (let ((_%tl2545125621%_ + (gx#syntax-e _%tl2523625685%_))) + (let ((_%tl2527725445%_ (let () (declare (not safe)) - (##cdr _%e2544925614%_))) - (_%hd2545025618%_ + (##cdr _%e2527525438%_))) + (_%hd2527625442%_ (let () (declare (not safe)) - (##car _%e2544925614%_)))) - (if (gx#stx-pair/null? _%tl2545125621%_) - (let ((_%__splice2677026771%_ + (##car _%e2527525438%_)))) + (if (gx#stx-pair/null? _%tl2527725445%_) + (let ((_%__splice2658226583%_ (gx#syntax-split-splice->vector - _%tl2545125621%_ + _%tl2527725445%_ '0))) - (let ((_%tl2545425627%_ + (let ((_%tl2528025451%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677026771%_ + _%__splice2658226583%_ '1))) - (_%target2545225624%_ + (_%target2527825448%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677026771%_ + _%__splice2658226583%_ '0)))) - (if (gx#stx-null? _%tl2545425627%_) - (_%__match2685026851%_ - _%e2540525848%_ - _%hd2540625852%_ - _%tl2540725855%_ - _%e2540825858%_ - _%hd2540925862%_ - _%tl2541025865%_ - _%e2544925614%_ - _%hd2545025618%_ - _%tl2545125621%_ - _%__splice2677026771%_ - _%target2545225624%_ - _%tl2545425627%_) + (if (gx#stx-null? _%tl2528025451%_) + (_%__match2666226663%_ + _%e2523125668%_ + _%hd2523225672%_ + _%tl2523325675%_ + _%e2523425678%_ + _%hd2523525682%_ + _%tl2523625685%_ + _%e2527525438%_ + _%hd2527625442%_ + _%tl2527725445%_ + _%__splice2658226583%_ + _%target2527825448%_ + _%tl2528025451%_) (let () (declare (not safe)) - (_%g2540025487%_))))) - (let () (declare (not safe)) (_%g2540025487%_))))) - (let () (declare (not safe)) (_%g2540025487%_))))))))) + (_%g2522625313%_))))) + (let () (declare (not safe)) (_%g2522625313%_))))) + (let () (declare (not safe)) (_%g2522625313%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__splice2676626767%_ + (let ((_%__splice2657826579%_ (gx#syntax-split-splice->vector - _%tl2541025865%_ + _%tl2523625685%_ '0))) - (let ((_%tl2543325723%_ + (let ((_%tl2525925545%_ (let () (declare (not safe)) (##vector-ref - _%__splice2676626767%_ + _%__splice2657826579%_ '1))) - (_%target2543125720%_ + (_%target2525725542%_ (let () (declare (not safe)) (##vector-ref - _%__splice2676626767%_ + _%__splice2657826579%_ '0)))) - (if (gx#stx-null? _%tl2543325723%_) - (_%__match2682426825%_ - _%e2540525848%_ - _%hd2540625852%_ - _%tl2540725855%_ - _%e2540825858%_ - _%hd2540925862%_ - _%tl2541025865%_ - _%__splice2676626767%_ - _%target2543125720%_ - _%tl2543325723%_) + (if (gx#stx-null? _%tl2525925545%_) + (_%__match2663626637%_ + _%e2523125668%_ + _%hd2523225672%_ + _%tl2523325675%_ + _%e2523425678%_ + _%hd2523525682%_ + _%tl2523625685%_ + _%__splice2657826579%_ + _%target2525725542%_ + _%tl2525925545%_) (if (gx#stx-pair? - _%tl2541025865%_) - (let ((_%e2544925614%_ + _%tl2523625685%_) + (let ((_%e2527525438%_ (gx#syntax-e - _%tl2541025865%_))) - (let ((_%tl2545125621%_ + _%tl2523625685%_))) + (let ((_%tl2527725445%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e2544925614%_))) - (_%hd2545025618%_ - (let () (declare (not safe)) (##car _%e2544925614%_)))) - (if (gx#stx-pair/null? _%tl2545125621%_) - (let ((_%__splice2677026771%_ + (##cdr _%e2527525438%_))) + (_%hd2527625442%_ + (let () (declare (not safe)) (##car _%e2527525438%_)))) + (if (gx#stx-pair/null? _%tl2527725445%_) + (let ((_%__splice2658226583%_ (gx#syntax-split-splice->vector - _%tl2545125621%_ + _%tl2527725445%_ '0))) - (let ((_%tl2545425627%_ + (let ((_%tl2528025451%_ (let () (declare (not safe)) - (##vector-ref _%__splice2677026771%_ '1))) - (_%target2545225624%_ + (##vector-ref _%__splice2658226583%_ '1))) + (_%target2527825448%_ (let () (declare (not safe)) - (##vector-ref _%__splice2677026771%_ '0)))) - (if (gx#stx-null? _%tl2545425627%_) - (_%__match2685026851%_ - _%e2540525848%_ - _%hd2540625852%_ - _%tl2540725855%_ - _%e2540825858%_ - _%hd2540925862%_ - _%tl2541025865%_ - _%e2544925614%_ - _%hd2545025618%_ - _%tl2545125621%_ - _%__splice2677026771%_ - _%target2545225624%_ - _%tl2545425627%_) - (let () (declare (not safe)) (_%g2540025487%_))))) - (let () (declare (not safe)) (_%g2540025487%_))))) + (##vector-ref _%__splice2658226583%_ '0)))) + (if (gx#stx-null? _%tl2528025451%_) + (_%__match2666226663%_ + _%e2523125668%_ + _%hd2523225672%_ + _%tl2523325675%_ + _%e2523425678%_ + _%hd2523525682%_ + _%tl2523625685%_ + _%e2527525438%_ + _%hd2527625442%_ + _%tl2527725445%_ + _%__splice2658226583%_ + _%target2527825448%_ + _%tl2528025451%_) + (let () (declare (not safe)) (_%g2522625313%_))))) + (let () (declare (not safe)) (_%g2522625313%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g2540025487%_))))))) - (if (gx#stx-pair? _%tl2541025865%_) - (let ((_%e2544925614%_ - (gx#syntax-e _%tl2541025865%_))) - (let ((_%tl2545125621%_ + (_%g2522625313%_))))))) + (if (gx#stx-pair? _%tl2523625685%_) + (let ((_%e2527525438%_ + (gx#syntax-e _%tl2523625685%_))) + (let ((_%tl2527725445%_ (let () (declare (not safe)) - (##cdr _%e2544925614%_))) - (_%hd2545025618%_ + (##cdr _%e2527525438%_))) + (_%hd2527625442%_ (let () (declare (not safe)) - (##car _%e2544925614%_)))) + (##car _%e2527525438%_)))) (if (gx#stx-pair/null? - _%tl2545125621%_) - (let ((_%__splice2677026771%_ + _%tl2527725445%_) + (let ((_%__splice2658226583%_ (gx#syntax-split-splice->vector - _%tl2545125621%_ + _%tl2527725445%_ '0))) - (let ((_%tl2545425627%_ + (let ((_%tl2528025451%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677026771%_ + _%__splice2658226583%_ '1))) - (_%target2545225624%_ + (_%target2527825448%_ (let () (declare (not safe)) (##vector-ref - _%__splice2677026771%_ + _%__splice2658226583%_ '0)))) (if (gx#stx-null? - _%tl2545425627%_) - (_%__match2685026851%_ - _%e2540525848%_ - _%hd2540625852%_ - _%tl2540725855%_ - _%e2540825858%_ - _%hd2540925862%_ - _%tl2541025865%_ - _%e2544925614%_ - _%hd2545025618%_ - _%tl2545125621%_ - _%__splice2677026771%_ - _%target2545225624%_ - _%tl2545425627%_) + _%tl2528025451%_) + (_%__match2666226663%_ + _%e2523125668%_ + _%hd2523225672%_ + _%tl2523325675%_ + _%e2523425678%_ + _%hd2523525682%_ + _%tl2523625685%_ + _%e2527525438%_ + _%hd2527625442%_ + _%tl2527725445%_ + _%__splice2658226583%_ + _%target2527825448%_ + _%tl2528025451%_) (let () (declare (not safe)) - (_%g2540025487%_))))) + (_%g2522625313%_))))) (let () (declare (not safe)) - (_%g2540025487%_))))) + (_%g2522625313%_))))) (let () (declare (not safe)) - (_%g2540025487%_)))))) - (let () (declare (not safe)) (_%g2540025487%_))))) - (let () (declare (not safe)) (_%g2540025487%_))))))))) + (_%g2522625313%_)))))) + (let () (declare (not safe)) (_%g2522625313%_))))) + (let () (declare (not safe)) (_%g2522625313%_))))))))) (define |gerbil/core/mop~MOP-4[:0:]#@| - (lambda (_%$stx26039%_) - (let* ((_%__stx2687926880%_ _%$stx26039%_) - (_%g2604426084%_ + (lambda (_%$stx25857%_) + (let* ((_%__stx2669126692%_ _%$stx25857%_) + (_%g2586225902%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2687926880%_)))) - (let ((_%__kont2688226883%_ - (lambda (_%L26222%_ _%L26224%_) + _%__stx2669126692%_)))) + (let ((_%__kont2669426695%_ + (lambda (_%g2586426038%_ _%g2586526040%_) (cons (gx#datum->syntax '#f 'slot-ref) - (cons _%L26224%_ + (cons _%g2586526040%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L26222%_ '())) + (cons _%g2586426038%_ '())) '()))))) - (_%__kont2688426885%_ - (lambda (_%L26151%_ _%L26153%_ _%L26154%_ _%L26155%_) - (cons _%L26155%_ - (cons (cons _%L26155%_ - (cons _%L26154%_ (cons _%L26153%_ '()))) - (foldr (lambda (_%g2617626179%_ _%g2617726182%_) - (cons _%g2617626179%_ _%g2617726182%_)) + (_%__kont2669626697%_ + (lambda (_%g2587525967%_ + _%g2587625969%_ + _%g2587725970%_ + _%g2587825971%_) + (cons _%g2587825971%_ + (cons (cons _%g2587825971%_ + (cons _%g2587725970%_ + (cons _%g2587625969%_ '()))) + (foldr (lambda (_%g2599225995%_ _%g2599325998%_) + (cons _%g2599225995%_ _%g2599325998%_)) '() - _%L26151%_)))))) - (let* ((_%__match2693426935%_ - (lambda (_%e2606126091%_ - _%hd2606226095%_ - _%tl2606326098%_ - _%e2606426101%_ - _%hd2606526105%_ - _%tl2606626108%_ - _%e2606726111%_ - _%hd2606826115%_ - _%tl2606926118%_ - _%__splice2688626887%_ - _%target2607026121%_ - _%tl2607226124%_) - (letrec ((_%loop2607326127%_ - (lambda (_%hd2607126131%_ _%rest2607726134%_) - (if (gx#stx-pair? _%hd2607126131%_) - (let ((_%e2607426137%_ - (gx#syntax-e _%hd2607126131%_))) - (let ((_%lp-tl2607626144%_ + _%g2587525967%_)))))) + (let* ((_%__match2674626747%_ + (lambda (_%e2587925909%_ + _%hd2588025913%_ + _%tl2588125916%_ + _%e2588225919%_ + _%hd2588325923%_ + _%tl2588425926%_ + _%e2588525929%_ + _%hd2588625933%_ + _%tl2588725936%_ + _%__splice2669826699%_ + _%target2588825939%_ + _%tl2589025942%_) + (letrec ((_%loop2589125945%_ + (lambda (_%hd2588925949%_ _%rest2589525952%_) + (if (gx#stx-pair? _%hd2588925949%_) + (let ((_%e2589225954%_ + (gx#syntax-e _%hd2588925949%_))) + (let ((_%lp-tl2589425961%_ (let () (declare (not safe)) - (##cdr _%e2607426137%_))) - (_%lp-hd2607526141%_ + (##cdr _%e2589225954%_))) + (_%lp-hd2589325958%_ (let () (declare (not safe)) - (##car _%e2607426137%_)))) - (_%loop2607326127%_ - _%lp-tl2607626144%_ - (cons _%lp-hd2607526141%_ - _%rest2607726134%_)))) - (let ((_%rest2607826147%_ - (reverse _%rest2607726134%_))) - (_%__kont2688426885%_ - _%rest2607826147%_ - _%hd2606826115%_ - _%hd2606526105%_ - _%hd2606226095%_)))))) - (_%loop2607326127%_ _%target2607026121%_ '())))) - (_%__match2690826909%_ - (lambda (_%e2604826192%_ - _%hd2604926196%_ - _%tl2605026199%_ - _%e2605126202%_ - _%hd2605226206%_ - _%tl2605326209%_ - _%e2605426212%_ - _%hd2605526216%_ - _%tl2605626219%_) - (let ((_%L26222%_ _%hd2605526216%_) - (_%L26224%_ _%hd2605226206%_)) - (if (gx#identifier? _%L26222%_) - (_%__kont2688226883%_ _%L26222%_ _%L26224%_) - (if (gx#stx-pair/null? _%tl2605626219%_) - (let ((_%__splice2688626887%_ + (##car _%e2589225954%_)))) + (_%loop2589125945%_ + _%lp-tl2589425961%_ + (cons _%lp-hd2589325958%_ + _%rest2589525952%_)))) + (let ((_%rest2589625964%_ + (reverse _%rest2589525952%_))) + (_%__kont2669626697%_ + _%rest2589625964%_ + _%hd2588625933%_ + _%hd2588325923%_ + _%hd2588025913%_)))))) + (_%loop2589125945%_ _%target2588825939%_ '())))) + (_%__match2672026721%_ + (lambda (_%e2586626008%_ + _%hd2586726012%_ + _%tl2586826015%_ + _%e2586926018%_ + _%hd2587026022%_ + _%tl2587126025%_ + _%e2587226028%_ + _%hd2587326032%_ + _%tl2587426035%_) + (let ((_%g2586426038%_ _%hd2587326032%_) + (_%g2586526040%_ _%hd2587026022%_)) + (if (gx#identifier? _%g2586426038%_) + (_%__kont2669426695%_ + _%g2586426038%_ + _%g2586526040%_) + (if (gx#stx-pair/null? _%tl2587426035%_) + (let ((_%__splice2669826699%_ (gx#syntax-split-splice->vector - _%tl2605626219%_ + _%tl2587426035%_ '0))) - (let ((_%tl2607226124%_ + (let ((_%tl2589025942%_ (let () (declare (not safe)) (##vector-ref - _%__splice2688626887%_ + _%__splice2669826699%_ '1))) - (_%target2607026121%_ + (_%target2588825939%_ (let () (declare (not safe)) (##vector-ref - _%__splice2688626887%_ + _%__splice2669826699%_ '0)))) - (if (gx#stx-null? _%tl2607226124%_) - (_%__match2693426935%_ - _%e2604826192%_ - _%hd2604926196%_ - _%tl2605026199%_ - _%e2605126202%_ - _%hd2605226206%_ - _%tl2605326209%_ - _%e2605426212%_ - _%hd2605526216%_ - _%tl2605626219%_ - _%__splice2688626887%_ - _%target2607026121%_ - _%tl2607226124%_) + (if (gx#stx-null? _%tl2589025942%_) + (_%__match2674626747%_ + _%e2586626008%_ + _%hd2586726012%_ + _%tl2586826015%_ + _%e2586926018%_ + _%hd2587026022%_ + _%tl2587126025%_ + _%e2587226028%_ + _%hd2587326032%_ + _%tl2587426035%_ + _%__splice2669826699%_ + _%target2588825939%_ + _%tl2589025942%_) (let () (declare (not safe)) - (_%g2604426084%_))))) + (_%g2586225902%_))))) (let () (declare (not safe)) - (_%g2604426084%_)))))))) - (if (gx#stx-pair? _%__stx2687926880%_) - (let ((_%e2604826192%_ (gx#syntax-e _%__stx2687926880%_))) - (let ((_%tl2605026199%_ + (_%g2586225902%_)))))))) + (if (gx#stx-pair? _%__stx2669126692%_) + (let ((_%e2586626008%_ (gx#syntax-e _%__stx2669126692%_))) + (let ((_%tl2586826015%_ (let () (declare (not safe)) - (##cdr _%e2604826192%_))) - (_%hd2604926196%_ + (##cdr _%e2586626008%_))) + (_%hd2586726012%_ (let () (declare (not safe)) - (##car _%e2604826192%_)))) - (if (gx#stx-pair? _%tl2605026199%_) - (let ((_%e2605126202%_ - (gx#syntax-e _%tl2605026199%_))) - (let ((_%tl2605326209%_ + (##car _%e2586626008%_)))) + (if (gx#stx-pair? _%tl2586826015%_) + (let ((_%e2586926018%_ + (gx#syntax-e _%tl2586826015%_))) + (let ((_%tl2587126025%_ (let () (declare (not safe)) - (##cdr _%e2605126202%_))) - (_%hd2605226206%_ + (##cdr _%e2586926018%_))) + (_%hd2587026022%_ (let () (declare (not safe)) - (##car _%e2605126202%_)))) - (if (gx#stx-pair? _%tl2605326209%_) - (let ((_%e2605426212%_ - (gx#syntax-e _%tl2605326209%_))) - (let ((_%tl2605626219%_ + (##car _%e2586926018%_)))) + (if (gx#stx-pair? _%tl2587126025%_) + (let ((_%e2587226028%_ + (gx#syntax-e _%tl2587126025%_))) + (let ((_%tl2587426035%_ (let () (declare (not safe)) - (##cdr _%e2605426212%_))) - (_%hd2605526216%_ + (##cdr _%e2587226028%_))) + (_%hd2587326032%_ (let () (declare (not safe)) - (##car _%e2605426212%_)))) - (if (gx#stx-null? _%tl2605626219%_) - (_%__match2690826909%_ - _%e2604826192%_ - _%hd2604926196%_ - _%tl2605026199%_ - _%e2605126202%_ - _%hd2605226206%_ - _%tl2605326209%_ - _%e2605426212%_ - _%hd2605526216%_ - _%tl2605626219%_) + (##car _%e2587226028%_)))) + (if (gx#stx-null? _%tl2587426035%_) + (_%__match2672026721%_ + _%e2586626008%_ + _%hd2586726012%_ + _%tl2586826015%_ + _%e2586926018%_ + _%hd2587026022%_ + _%tl2587126025%_ + _%e2587226028%_ + _%hd2587326032%_ + _%tl2587426035%_) (if (gx#stx-pair/null? - _%tl2605626219%_) - (let ((_%__splice2688626887%_ + _%tl2587426035%_) + (let ((_%__splice2669826699%_ (gx#syntax-split-splice->vector - _%tl2605626219%_ + _%tl2587426035%_ '0))) - (let ((_%tl2607226124%_ + (let ((_%tl2589025942%_ (let () (declare (not safe)) (##vector-ref - _%__splice2688626887%_ + _%__splice2669826699%_ '1))) - (_%target2607026121%_ + (_%target2588825939%_ (let () (declare (not safe)) (##vector-ref - _%__splice2688626887%_ + _%__splice2669826699%_ '0)))) (if (gx#stx-null? - _%tl2607226124%_) - (_%__match2693426935%_ - _%e2604826192%_ - _%hd2604926196%_ - _%tl2605026199%_ - _%e2605126202%_ - _%hd2605226206%_ - _%tl2605326209%_ - _%e2605426212%_ - _%hd2605526216%_ - _%tl2605626219%_ - _%__splice2688626887%_ - _%target2607026121%_ - _%tl2607226124%_) + _%tl2589025942%_) + (_%__match2674626747%_ + _%e2586626008%_ + _%hd2586726012%_ + _%tl2586826015%_ + _%e2586926018%_ + _%hd2587026022%_ + _%tl2587126025%_ + _%e2587226028%_ + _%hd2587326032%_ + _%tl2587426035%_ + _%__splice2669826699%_ + _%target2588825939%_ + _%tl2589025942%_) (let () (declare (not safe)) - (_%g2604426084%_))))) + (_%g2586225902%_))))) (let () (declare (not safe)) - (_%g2604426084%_)))))) + (_%g2586225902%_)))))) (let () (declare (not safe)) - (_%g2604426084%_))))) - (let () (declare (not safe)) (_%g2604426084%_))))) - (let () (declare (not safe)) (_%g2604426084%_)))))))) + (_%g2586225902%_))))) + (let () (declare (not safe)) (_%g2586225902%_))))) + (let () (declare (not safe)) (_%g2586225902%_)))))))) (define |gerbil/core/mop~MOP-4[:0:]#@-set!| - (lambda (_%$stx26244%_) - (let* ((_%__stx2693726938%_ _%$stx26244%_) - (_%g2624926301%_ + (lambda (_%$stx26060%_) + (let* ((_%__stx2674926750%_ _%$stx26060%_) + (_%g2606526117%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2693726938%_)))) - (let ((_%__kont2694026941%_ - (lambda (_%L26477%_ _%L26479%_ _%L26480%_) + _%__stx2674926750%_)))) + (let ((_%__kont2675226753%_ + (lambda (_%g2606726291%_ _%g2606826293%_ _%g2606926294%_) (cons (gx#datum->syntax '#f 'slot-set!) - (cons _%L26480%_ + (cons _%g2606926294%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L26479%_ '())) - (cons _%L26477%_ '())))))) - (_%__kont2694226943%_ - (lambda (_%L26388%_ - _%L26390%_ - _%L26391%_ - _%L26392%_ - _%L26393%_ - _%L26394%_) - (cons _%L26394%_ + (cons _%g2606826293%_ '())) + (cons _%g2606726291%_ '())))))) + (_%__kont2675426755%_ + (lambda (_%g2608226202%_ + _%g2608326204%_ + _%g2608426205%_ + _%g2608526206%_ + _%g2608626207%_ + _%g2608726208%_) + (cons _%g2608726208%_ (cons (cons (gx#datum->syntax '#f '@) - (cons _%L26393%_ - (cons _%L26392%_ - (foldr (lambda (_%g2642126424%_ + (cons _%g2608626207%_ + (cons _%g2608526206%_ + (foldr (lambda (_%g2623526238%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2642226427%_) - (cons _%g2642126424%_ _%g2642226427%_)) + _%g2623626241%_) + (cons _%g2623526238%_ _%g2623626241%_)) '() - _%L26391%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L26390%_ (cons _%L26388%_ '()))))))) - (let* ((_%__match2701227013%_ - (lambda (_%e2627226308%_ - _%hd2627326312%_ - _%tl2627426315%_ - _%e2627526318%_ - _%hd2627626322%_ - _%tl2627726325%_ - _%e2627826328%_ - _%hd2627926332%_ - _%tl2628026335%_ - _%__splice2694426945%_ - _%target2628126338%_ - _%tl2628326341%_ - _%e2629026344%_ - _%hd2629126348%_ - _%tl2629226351%_ - _%e2629326354%_ - _%hd2629426358%_ - _%tl2629526361%_) - (letrec ((_%loop2628426364%_ - (lambda (_%hd2628226368%_ _%path2628826371%_) - (if (gx#stx-pair? _%hd2628226368%_) - (let ((_%e2628526374%_ - (gx#syntax-e _%hd2628226368%_))) - (let ((_%lp-tl2628726381%_ + _%g2608426205%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons _%g2608326204%_ + (cons _%g2608226202%_ '()))))))) + (let* ((_%__match2682426825%_ + (lambda (_%e2608826124%_ + _%hd2608926128%_ + _%tl2609026131%_ + _%e2609126134%_ + _%hd2609226138%_ + _%tl2609326141%_ + _%e2609426144%_ + _%hd2609526148%_ + _%tl2609626151%_ + _%__splice2675626757%_ + _%target2609726154%_ + _%tl2609926157%_ + _%e2610626160%_ + _%hd2610726164%_ + _%tl2610826167%_ + _%e2610926170%_ + _%hd2611026174%_ + _%tl2611126177%_) + (letrec ((_%loop2610026180%_ + (lambda (_%hd2609826184%_ _%path2610426187%_) + (if (gx#stx-pair? _%hd2609826184%_) + (let ((_%e2610126189%_ + (gx#syntax-e _%hd2609826184%_))) + (let ((_%lp-tl2610326196%_ (let () (declare (not safe)) - (##cdr _%e2628526374%_))) - (_%lp-hd2628626378%_ + (##cdr _%e2610126189%_))) + (_%lp-hd2610226193%_ (let () (declare (not safe)) - (##car _%e2628526374%_)))) - (_%loop2628426364%_ - _%lp-tl2628726381%_ - (cons _%lp-hd2628626378%_ - _%path2628826371%_)))) - (let ((_%path2628926384%_ - (reverse _%path2628826371%_))) - (_%__kont2694226943%_ - _%hd2629426358%_ - _%hd2629126348%_ - _%path2628926384%_ - _%hd2627926332%_ - _%hd2627626322%_ - _%hd2627326312%_)))))) - (_%loop2628426364%_ _%target2628126338%_ '())))) - (_%__match2697226973%_ - (lambda (_%e2625426437%_ - _%hd2625526441%_ - _%tl2625626444%_ - _%e2625726447%_ - _%hd2625826451%_ - _%tl2625926454%_ - _%e2626026457%_ - _%hd2626126461%_ - _%tl2626226464%_ - _%e2626326467%_ - _%hd2626426471%_ - _%tl2626526474%_) - (let ((_%L26477%_ _%hd2626426471%_) - (_%L26479%_ _%hd2626126461%_) - (_%L26480%_ _%hd2625826451%_)) - (if (gx#identifier? _%L26479%_) - (_%__kont2694026941%_ - _%L26477%_ - _%L26479%_ - _%L26480%_) - (if (gx#stx-pair/null? _%tl2626226464%_) - (if (let ((__tmp27230 - (gx#stx-length _%tl2626226464%_))) + (##car _%e2610126189%_)))) + (_%loop2610026180%_ + _%lp-tl2610326196%_ + (cons _%lp-hd2610226193%_ + _%path2610426187%_)))) + (let ((_%path2610526199%_ + (reverse _%path2610426187%_))) + (_%__kont2675426755%_ + _%hd2611026174%_ + _%hd2610726164%_ + _%path2610526199%_ + _%hd2609526148%_ + _%hd2609226138%_ + _%hd2608926128%_)))))) + (_%loop2610026180%_ _%target2609726154%_ '())))) + (_%__match2678426785%_ + (lambda (_%e2607026251%_ + _%hd2607126255%_ + _%tl2607226258%_ + _%e2607326261%_ + _%hd2607426265%_ + _%tl2607526268%_ + _%e2607626271%_ + _%hd2607726275%_ + _%tl2607826278%_ + _%e2607926281%_ + _%hd2608026285%_ + _%tl2608126288%_) + (let ((_%g2606726291%_ _%hd2608026285%_) + (_%g2606826293%_ _%hd2607726275%_) + (_%g2606926294%_ _%hd2607426265%_)) + (if (gx#identifier? _%g2606826293%_) + (_%__kont2675226753%_ + _%g2606726291%_ + _%g2606826293%_ + _%g2606926294%_) + (if (gx#stx-pair/null? _%tl2607826278%_) + (if (let ((__tmp27080 + (gx#stx-length _%tl2607826278%_))) (declare (not safe)) - (##fx>= __tmp27230 '2)) - (let ((_%__splice2694426945%_ + (##fx>= __tmp27080 '2)) + (let ((_%__splice2675626757%_ (gx#syntax-split-splice->vector - _%tl2626226464%_ + _%tl2607826278%_ '2))) - (let ((_%tl2628326341%_ + (let ((_%tl2609926157%_ (let () (declare (not safe)) (##vector-ref - _%__splice2694426945%_ + _%__splice2675626757%_ '1))) - (_%target2628126338%_ + (_%target2609726154%_ (let () (declare (not safe)) (##vector-ref - _%__splice2694426945%_ + _%__splice2675626757%_ '0)))) - (if (gx#stx-pair? _%tl2628326341%_) - (let ((_%e2629026344%_ + (if (gx#stx-pair? _%tl2609926157%_) + (let ((_%e2610626160%_ (gx#syntax-e - _%tl2628326341%_))) - (let ((_%tl2629226351%_ + _%tl2609926157%_))) + (let ((_%tl2610826167%_ (let () (declare (not safe)) - (##cdr _%e2629026344%_))) - (_%hd2629126348%_ + (##cdr _%e2610626160%_))) + (_%hd2610726164%_ (let () (declare (not safe)) - (##car _%e2629026344%_)))) + (##car _%e2610626160%_)))) (if (gx#stx-pair? - _%tl2629226351%_) - (let ((_%e2629326354%_ + _%tl2610826167%_) + (let ((_%e2610926170%_ (gx#syntax-e - _%tl2629226351%_))) - (let ((_%tl2629526361%_ + _%tl2610826167%_))) + (let ((_%tl2611126177%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e2629326354%_))) - (_%hd2629426358%_ - (let () (declare (not safe)) (##car _%e2629326354%_)))) - (if (gx#stx-null? _%tl2629526361%_) - (_%__match2701227013%_ - _%e2625426437%_ - _%hd2625526441%_ - _%tl2625626444%_ - _%e2625726447%_ - _%hd2625826451%_ - _%tl2625926454%_ - _%e2626026457%_ - _%hd2626126461%_ - _%tl2626226464%_ - _%__splice2694426945%_ - _%target2628126338%_ - _%tl2628326341%_ - _%e2629026344%_ - _%hd2629126348%_ - _%tl2629226351%_ - _%e2629326354%_ - _%hd2629426358%_ - _%tl2629526361%_) - (let () (declare (not safe)) (_%g2624926301%_))))) + (##cdr _%e2610926170%_))) + (_%hd2611026174%_ + (let () (declare (not safe)) (##car _%e2610926170%_)))) + (if (gx#stx-null? _%tl2611126177%_) + (_%__match2682426825%_ + _%e2607026251%_ + _%hd2607126255%_ + _%tl2607226258%_ + _%e2607326261%_ + _%hd2607426265%_ + _%tl2607526268%_ + _%e2607626271%_ + _%hd2607726275%_ + _%tl2607826278%_ + _%__splice2675626757%_ + _%target2609726154%_ + _%tl2609926157%_ + _%e2610626160%_ + _%hd2610726164%_ + _%tl2610826167%_ + _%e2610926170%_ + _%hd2611026174%_ + _%tl2611126177%_) + (let () (declare (not safe)) (_%g2606526117%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g2624926301%_))))) + (_%g2606526117%_))))) (let () (declare (not safe)) - (_%g2624926301%_))))) + (_%g2606526117%_))))) (let () (declare (not safe)) - (_%g2624926301%_))) + (_%g2606526117%_))) (let () (declare (not safe)) - (_%g2624926301%_)))))))) - (if (gx#stx-pair? _%__stx2693726938%_) - (let ((_%e2625426437%_ (gx#syntax-e _%__stx2693726938%_))) - (let ((_%tl2625626444%_ + (_%g2606526117%_)))))))) + (if (gx#stx-pair? _%__stx2674926750%_) + (let ((_%e2607026251%_ (gx#syntax-e _%__stx2674926750%_))) + (let ((_%tl2607226258%_ (let () (declare (not safe)) - (##cdr _%e2625426437%_))) - (_%hd2625526441%_ + (##cdr _%e2607026251%_))) + (_%hd2607126255%_ (let () (declare (not safe)) - (##car _%e2625426437%_)))) - (if (gx#stx-pair? _%tl2625626444%_) - (let ((_%e2625726447%_ - (gx#syntax-e _%tl2625626444%_))) - (let ((_%tl2625926454%_ + (##car _%e2607026251%_)))) + (if (gx#stx-pair? _%tl2607226258%_) + (let ((_%e2607326261%_ + (gx#syntax-e _%tl2607226258%_))) + (let ((_%tl2607526268%_ (let () (declare (not safe)) - (##cdr _%e2625726447%_))) - (_%hd2625826451%_ + (##cdr _%e2607326261%_))) + (_%hd2607426265%_ (let () (declare (not safe)) - (##car _%e2625726447%_)))) - (if (gx#stx-pair? _%tl2625926454%_) - (let ((_%e2626026457%_ - (gx#syntax-e _%tl2625926454%_))) - (let ((_%tl2626226464%_ + (##car _%e2607326261%_)))) + (if (gx#stx-pair? _%tl2607526268%_) + (let ((_%e2607626271%_ + (gx#syntax-e _%tl2607526268%_))) + (let ((_%tl2607826278%_ (let () (declare (not safe)) - (##cdr _%e2626026457%_))) - (_%hd2626126461%_ + (##cdr _%e2607626271%_))) + (_%hd2607726275%_ (let () (declare (not safe)) - (##car _%e2626026457%_)))) - (if (gx#stx-pair? _%tl2626226464%_) - (let ((_%e2626326467%_ + (##car _%e2607626271%_)))) + (if (gx#stx-pair? _%tl2607826278%_) + (let ((_%e2607926281%_ (gx#syntax-e - _%tl2626226464%_))) - (let ((_%tl2626526474%_ + _%tl2607826278%_))) + (let ((_%tl2608126288%_ (let () (declare (not safe)) - (##cdr _%e2626326467%_))) - (_%hd2626426471%_ + (##cdr _%e2607926281%_))) + (_%hd2608026285%_ (let () (declare (not safe)) - (##car _%e2626326467%_)))) + (##car _%e2607926281%_)))) (if (gx#stx-null? - _%tl2626526474%_) - (_%__match2697226973%_ - _%e2625426437%_ - _%hd2625526441%_ - _%tl2625626444%_ - _%e2625726447%_ - _%hd2625826451%_ - _%tl2625926454%_ - _%e2626026457%_ - _%hd2626126461%_ - _%tl2626226464%_ - _%e2626326467%_ - _%hd2626426471%_ - _%tl2626526474%_) + _%tl2608126288%_) + (_%__match2678426785%_ + _%e2607026251%_ + _%hd2607126255%_ + _%tl2607226258%_ + _%e2607326261%_ + _%hd2607426265%_ + _%tl2607526268%_ + _%e2607626271%_ + _%hd2607726275%_ + _%tl2607826278%_ + _%e2607926281%_ + _%hd2608026285%_ + _%tl2608126288%_) (if (gx#stx-pair/null? - _%tl2626226464%_) - (if (let ((__tmp27231 + _%tl2607826278%_) + (if (let ((__tmp27081 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-length _%tl2626226464%_))) + (gx#stx-length _%tl2607826278%_))) (declare (not safe)) - (##fx>= __tmp27231 '2)) - (let ((_%__splice2694426945%_ - (gx#syntax-split-splice->vector _%tl2626226464%_ '2))) - (let ((_%tl2628326341%_ + (##fx>= __tmp27081 '2)) + (let ((_%__splice2675626757%_ + (gx#syntax-split-splice->vector _%tl2607826278%_ '2))) + (let ((_%tl2609926157%_ (let () (declare (not safe)) - (##vector-ref _%__splice2694426945%_ '1))) - (_%target2628126338%_ + (##vector-ref _%__splice2675626757%_ '1))) + (_%target2609726154%_ (let () (declare (not safe)) - (##vector-ref _%__splice2694426945%_ '0)))) - (if (gx#stx-pair? _%tl2628326341%_) - (let ((_%e2629026344%_ - (gx#syntax-e _%tl2628326341%_))) - (let ((_%tl2629226351%_ + (##vector-ref _%__splice2675626757%_ '0)))) + (if (gx#stx-pair? _%tl2609926157%_) + (let ((_%e2610626160%_ + (gx#syntax-e _%tl2609926157%_))) + (let ((_%tl2610826167%_ (let () (declare (not safe)) - (##cdr _%e2629026344%_))) - (_%hd2629126348%_ + (##cdr _%e2610626160%_))) + (_%hd2610726164%_ (let () (declare (not safe)) - (##car _%e2629026344%_)))) - (if (gx#stx-pair? _%tl2629226351%_) - (let ((_%e2629326354%_ - (gx#syntax-e _%tl2629226351%_))) - (let ((_%tl2629526361%_ + (##car _%e2610626160%_)))) + (if (gx#stx-pair? _%tl2610826167%_) + (let ((_%e2610926170%_ + (gx#syntax-e _%tl2610826167%_))) + (let ((_%tl2611126177%_ (let () (declare (not safe)) - (##cdr _%e2629326354%_))) - (_%hd2629426358%_ + (##cdr _%e2610926170%_))) + (_%hd2611026174%_ (let () (declare (not safe)) - (##car _%e2629326354%_)))) - (if (gx#stx-null? _%tl2629526361%_) - (_%__match2701227013%_ - _%e2625426437%_ - _%hd2625526441%_ - _%tl2625626444%_ - _%e2625726447%_ - _%hd2625826451%_ - _%tl2625926454%_ - _%e2626026457%_ - _%hd2626126461%_ - _%tl2626226464%_ - _%__splice2694426945%_ - _%target2628126338%_ - _%tl2628326341%_ - _%e2629026344%_ - _%hd2629126348%_ - _%tl2629226351%_ - _%e2629326354%_ - _%hd2629426358%_ - _%tl2629526361%_) + (##car _%e2610926170%_)))) + (if (gx#stx-null? _%tl2611126177%_) + (_%__match2682426825%_ + _%e2607026251%_ + _%hd2607126255%_ + _%tl2607226258%_ + _%e2607326261%_ + _%hd2607426265%_ + _%tl2607526268%_ + _%e2607626271%_ + _%hd2607726275%_ + _%tl2607826278%_ + _%__splice2675626757%_ + _%target2609726154%_ + _%tl2609926157%_ + _%e2610626160%_ + _%hd2610726164%_ + _%tl2610826167%_ + _%e2610926170%_ + _%hd2611026174%_ + _%tl2611126177%_) (let () (declare (not safe)) - (_%g2624926301%_))))) + (_%g2606526117%_))))) (let () (declare (not safe)) - (_%g2624926301%_))))) - (let () (declare (not safe)) (_%g2624926301%_))))) - (let () (declare (not safe)) (_%g2624926301%_))) - (let () (declare (not safe)) (_%g2624926301%_)))))) + (_%g2606526117%_))))) + (let () (declare (not safe)) (_%g2606526117%_))))) + (let () (declare (not safe)) (_%g2606526117%_))) + (let () (declare (not safe)) (_%g2606526117%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl2626226464%_) - (if (let ((__tmp27232 + _%tl2607826278%_) + (if (let ((__tmp27082 (gx#stx-length - _%tl2626226464%_))) + _%tl2607826278%_))) (declare (not safe)) - (##fx>= __tmp27232 '2)) - (let ((_%__splice2694426945%_ + (##fx>= __tmp27082 '2)) + (let ((_%__splice2675626757%_ (gx#syntax-split-splice->vector - _%tl2626226464%_ + _%tl2607826278%_ '2))) - (let ((_%tl2628326341%_ + (let ((_%tl2609926157%_ (let () (declare (not safe)) (##vector-ref - _%__splice2694426945%_ + _%__splice2675626757%_ '1))) - (_%target2628126338%_ + (_%target2609726154%_ (let () (declare (not safe)) (##vector-ref - _%__splice2694426945%_ + _%__splice2675626757%_ '0)))) (if (gx#stx-pair? - _%tl2628326341%_) - (let ((_%e2629026344%_ + _%tl2609926157%_) + (let ((_%e2610626160%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl2628326341%_))) - (let ((_%tl2629226351%_ + (gx#syntax-e _%tl2609926157%_))) + (let ((_%tl2610826167%_ (let () (declare (not safe)) - (##cdr _%e2629026344%_))) - (_%hd2629126348%_ + (##cdr _%e2610626160%_))) + (_%hd2610726164%_ (let () (declare (not safe)) - (##car _%e2629026344%_)))) - (if (gx#stx-pair? _%tl2629226351%_) - (let ((_%e2629326354%_ - (gx#syntax-e _%tl2629226351%_))) - (let ((_%tl2629526361%_ + (##car _%e2610626160%_)))) + (if (gx#stx-pair? _%tl2610826167%_) + (let ((_%e2610926170%_ + (gx#syntax-e _%tl2610826167%_))) + (let ((_%tl2611126177%_ (let () (declare (not safe)) - (##cdr _%e2629326354%_))) - (_%hd2629426358%_ + (##cdr _%e2610926170%_))) + (_%hd2611026174%_ (let () (declare (not safe)) - (##car _%e2629326354%_)))) - (if (gx#stx-null? _%tl2629526361%_) - (_%__match2701227013%_ - _%e2625426437%_ - _%hd2625526441%_ - _%tl2625626444%_ - _%e2625726447%_ - _%hd2625826451%_ - _%tl2625926454%_ - _%e2626026457%_ - _%hd2626126461%_ - _%tl2626226464%_ - _%__splice2694426945%_ - _%target2628126338%_ - _%tl2628326341%_ - _%e2629026344%_ - _%hd2629126348%_ - _%tl2629226351%_ - _%e2629326354%_ - _%hd2629426358%_ - _%tl2629526361%_) + (##car _%e2610926170%_)))) + (if (gx#stx-null? _%tl2611126177%_) + (_%__match2682426825%_ + _%e2607026251%_ + _%hd2607126255%_ + _%tl2607226258%_ + _%e2607326261%_ + _%hd2607426265%_ + _%tl2607526268%_ + _%e2607626271%_ + _%hd2607726275%_ + _%tl2607826278%_ + _%__splice2675626757%_ + _%target2609726154%_ + _%tl2609926157%_ + _%e2610626160%_ + _%hd2610726164%_ + _%tl2610826167%_ + _%e2610926170%_ + _%hd2611026174%_ + _%tl2611126177%_) (let () (declare (not safe)) - (_%g2624926301%_))))) - (let () (declare (not safe)) (_%g2624926301%_))))) - (let () (declare (not safe)) (_%g2624926301%_))))) + (_%g2606526117%_))))) + (let () (declare (not safe)) (_%g2606526117%_))))) + (let () (declare (not safe)) (_%g2606526117%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g2624926301%_))) + (_%g2606526117%_))) (let () (declare (not safe)) - (_%g2624926301%_)))))) + (_%g2606526117%_)))))) (let () (declare (not safe)) - (_%g2624926301%_))))) - (let () (declare (not safe)) (_%g2624926301%_))))) - (let () (declare (not safe)) (_%g2624926301%_)))))))))) + (_%g2606526117%_))))) + (let () (declare (not safe)) (_%g2606526117%_))))) + (let () (declare (not safe)) (_%g2606526117%_)))))))))) diff --git a/src/bootstrap/gerbil/core/mop~4.scm b/src/bootstrap/gerbil/core/mop~4.scm index b993e05179..d0223583cf 100644 --- a/src/bootstrap/gerbil/core/mop~4.scm +++ b/src/bootstrap/gerbil/core/mop~4.scm @@ -1,1293 +1,1531 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/mop~MOP-5[1]#_g27236_| + (define |gerbil/core/mop~MOP-5[1]#_g27086_| (##structure gx#syntax-quote::t 't::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27238_| + (define |gerbil/core/mop~MOP-5[1]#_g27088_| (##structure gx#syntax-quote::t 'true #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27240_| + (define |gerbil/core/mop~MOP-5[1]#_g27090_| (##structure gx#syntax-quote::t ':t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27242_| + (define |gerbil/core/mop~MOP-5[1]#_g27092_| (##structure gx#syntax-quote::t 'class::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27244_| + (define |gerbil/core/mop~MOP-5[1]#_g27094_| (##structure gx#syntax-quote::t 'class-type? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27248_| + (define |gerbil/core/mop~MOP-5[1]#_g27098_| (##structure gx#syntax-quote::t 'make-class-type #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27251_| + (define |gerbil/core/mop~MOP-5[1]#_g27101_| (##structure gx#syntax-quote::t 'class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27252_| + (define |gerbil/core/mop~MOP-5[1]#_g27102_| (##structure gx#syntax-quote::t 'class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27253_| + (define |gerbil/core/mop~MOP-5[1]#_g27103_| (##structure gx#syntax-quote::t 'class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27254_| + (define |gerbil/core/mop~MOP-5[1]#_g27104_| (##structure gx#syntax-quote::t 'class-type-flags #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27255_| + (define |gerbil/core/mop~MOP-5[1]#_g27105_| (##structure gx#syntax-quote::t 'class-type-fields #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27256_| + (define |gerbil/core/mop~MOP-5[1]#_g27106_| (##structure gx#syntax-quote::t 'class-type-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27257_| + (define |gerbil/core/mop~MOP-5[1]#_g27107_| (##structure gx#syntax-quote::t 'class-type-slot-vector #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27258_| + (define |gerbil/core/mop~MOP-5[1]#_g27108_| (##structure gx#syntax-quote::t 'class-type-slot-table #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27259_| + (define |gerbil/core/mop~MOP-5[1]#_g27109_| (##structure gx#syntax-quote::t 'class-type-properties #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27260_| + (define |gerbil/core/mop~MOP-5[1]#_g27110_| (##structure gx#syntax-quote::t 'class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27261_| + (define |gerbil/core/mop~MOP-5[1]#_g27111_| (##structure gx#syntax-quote::t 'class-type-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27263_| + (define |gerbil/core/mop~MOP-5[1]#_g27112_| + (##structure + gx#syntax-quote::t + 'class-type-specializer + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27113_| + (##structure + gx#syntax-quote::t + 'class-type-interface + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27115_| (##structure gx#syntax-quote::t '&class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27264_| + (define |gerbil/core/mop~MOP-5[1]#_g27116_| (##structure gx#syntax-quote::t '&class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27265_| + (define |gerbil/core/mop~MOP-5[1]#_g27117_| (##structure gx#syntax-quote::t '&class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27266_| + (define |gerbil/core/mop~MOP-5[1]#_g27118_| (##structure gx#syntax-quote::t '&class-type-flags #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27267_| + (define |gerbil/core/mop~MOP-5[1]#_g27119_| (##structure gx#syntax-quote::t '&class-type-fields #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27268_| + (define |gerbil/core/mop~MOP-5[1]#_g27120_| (##structure gx#syntax-quote::t '&class-type-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27269_| + (define |gerbil/core/mop~MOP-5[1]#_g27121_| (##structure gx#syntax-quote::t '&class-type-slot-vector #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27270_| + (define |gerbil/core/mop~MOP-5[1]#_g27122_| (##structure gx#syntax-quote::t '&class-type-slot-table #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27271_| + (define |gerbil/core/mop~MOP-5[1]#_g27123_| (##structure gx#syntax-quote::t '&class-type-properties #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27272_| + (define |gerbil/core/mop~MOP-5[1]#_g27124_| (##structure gx#syntax-quote::t '&class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27273_| + (define |gerbil/core/mop~MOP-5[1]#_g27125_| (##structure gx#syntax-quote::t '&class-type-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27276_| + (define |gerbil/core/mop~MOP-5[1]#_g27126_| (##structure gx#syntax-quote::t - 'object::t + '&class-type-specializer #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27280_| + (define |gerbil/core/mop~MOP-5[1]#_g27127_| (##structure gx#syntax-quote::t - 'immediate::t + '&class-type-interface #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27282_| + (define |gerbil/core/mop~MOP-5[1]#_g27130_| (##structure gx#syntax-quote::t - 'immediate? + 'object::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27284_| + (define |gerbil/core/mop~MOP-5[1]#_g27132_| (##structure gx#syntax-quote::t - ':immediate + 'object? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27286_| + (define |gerbil/core/mop~MOP-5[1]#_g27135_| (##structure gx#syntax-quote::t - 'char::t + 'builtin::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27288_| + (define |gerbil/core/mop~MOP-5[1]#_g27137_| (##structure gx#syntax-quote::t - 'char? + 'builtin-object? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27291_| + (define |gerbil/core/mop~MOP-5[1]#_g27139_| (##structure gx#syntax-quote::t - 'boolean::t + ':builtin #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27293_| + (define |gerbil/core/mop~MOP-5[1]#_g27141_| (##structure gx#syntax-quote::t - 'boolean? + 'subtyped::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27296_| + (define |gerbil/core/mop~MOP-5[1]#_g27143_| (##structure gx#syntax-quote::t - 'atom::t + 'builtin-subtyped? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27298_| + (define |gerbil/core/mop~MOP-5[1]#_g27145_| (##structure gx#syntax-quote::t - 'atom? + ':subtyped #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27300_| + (define |gerbil/core/mop~MOP-5[1]#_g27147_| (##structure gx#syntax-quote::t - ':atom + 'structure::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27302_| + (define |gerbil/core/mop~MOP-5[1]#_g27149_| (##structure gx#syntax-quote::t - 'void::t + 'builtin-structure? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27304_| + (define |gerbil/core/mop~MOP-5[1]#_g27152_| (##structure gx#syntax-quote::t - 'void? + 'immediate::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27307_| + (define |gerbil/core/mop~MOP-5[1]#_g27154_| (##structure gx#syntax-quote::t - 'eof::t + 'immediate? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27309_| + (define |gerbil/core/mop~MOP-5[1]#_g27156_| (##structure gx#syntax-quote::t - 'eof-object? + ':immediate #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27311_| + (define |gerbil/core/mop~MOP-5[1]#_g27158_| (##structure gx#syntax-quote::t - ':boolean + 'special::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27313_| + (define |gerbil/core/mop~MOP-5[1]#_g27160_| (##structure gx#syntax-quote::t - 'true::t + 'special? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27315_| + (define |gerbil/core/mop~MOP-5[1]#_g27162_| (##structure gx#syntax-quote::t - 'true? + ':special #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27318_| + (define |gerbil/core/mop~MOP-5[1]#_g27164_| (##structure gx#syntax-quote::t - 'false::t + 'atom::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27320_| - (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27323_| + (define |gerbil/core/mop~MOP-5[1]#_g27166_| (##structure gx#syntax-quote::t - 'special::t + 'atom? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27325_| + (define |gerbil/core/mop~MOP-5[1]#_g27169_| (##structure gx#syntax-quote::t - 'special? + 'char::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27328_| + (define |gerbil/core/mop~MOP-5[1]#_g27171_| (##structure gx#syntax-quote::t - 'number::t + 'char? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27330_| + (define |gerbil/core/mop~MOP-5[1]#_g27174_| (##structure gx#syntax-quote::t - 'number? + 'boolean::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27332_| + (define |gerbil/core/mop~MOP-5[1]#_g27176_| (##structure gx#syntax-quote::t - ':number + 'boolean? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27334_| + (define |gerbil/core/mop~MOP-5[1]#_g27178_| (##structure gx#syntax-quote::t - 'real::t + ':boolean #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27336_| + (define |gerbil/core/mop~MOP-5[1]#_g27179_| (##structure gx#syntax-quote::t - 'real? + ':atom #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27338_| + (define |gerbil/core/mop~MOP-5[1]#_g27181_| (##structure gx#syntax-quote::t - ':real + 'true::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27340_| + (define |gerbil/core/mop~MOP-5[1]#_g27183_| (##structure gx#syntax-quote::t - 'integer::t + 'true? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27342_| + (define |gerbil/core/mop~MOP-5[1]#_g27186_| (##structure gx#syntax-quote::t - 'exact-integer? + 'false::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27344_| + (define |gerbil/core/mop~MOP-5[1]#_g27188_| + (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) + (define |gerbil/core/mop~MOP-5[1]#_g27191_| (##structure gx#syntax-quote::t - ':integer + 'eof::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27346_| + (define |gerbil/core/mop~MOP-5[1]#_g27193_| (##structure gx#syntax-quote::t - 'fixnum::t + 'eof-object? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27348_| + (define |gerbil/core/mop~MOP-5[1]#_g27196_| (##structure gx#syntax-quote::t - 'fixnum? + 'void::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27351_| + (define |gerbil/core/mop~MOP-5[1]#_g27198_| (##structure gx#syntax-quote::t - 'bignum::t + 'void? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27353_| + (define |gerbil/core/mop~MOP-5[1]#_g27201_| (##structure gx#syntax-quote::t - '##bignum? + 'unbound::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27356_| + (define |gerbil/core/mop~MOP-5[1]#_g27203_| (##structure gx#syntax-quote::t - 'ratnum::t + 'unbound? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27358_| + (define |gerbil/core/mop~MOP-5[1]#_g27206_| (##structure gx#syntax-quote::t - '##ratnum? + 'unbound2::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27361_| + (define |gerbil/core/mop~MOP-5[1]#_g27208_| (##structure gx#syntax-quote::t - 'flonum::t + 'unbound2? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27363_| + (define |gerbil/core/mop~MOP-5[1]#_g27211_| (##structure gx#syntax-quote::t - 'flonum? + 'dssl-token::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27366_| + (define |gerbil/core/mop~MOP-5[1]#_g27213_| (##structure gx#syntax-quote::t - 'cpxnum::t + 'dssl-token? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27368_| + (define |gerbil/core/mop~MOP-5[1]#_g27215_| (##structure gx#syntax-quote::t - '##cpxnum? + ':dssl-token #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27371_| + (define |gerbil/core/mop~MOP-5[1]#_g27217_| (##structure gx#syntax-quote::t - 'symbolic::t + 'optional::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27373_| + (define |gerbil/core/mop~MOP-5[1]#_g27219_| (##structure gx#syntax-quote::t - 'symbolic? + 'dssl-optional? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27375_| + (define |gerbil/core/mop~MOP-5[1]#_g27222_| (##structure gx#syntax-quote::t - ':symbolic + 'rest::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27377_| + (define |gerbil/core/mop~MOP-5[1]#_g27224_| (##structure gx#syntax-quote::t - 'symbol::t + 'dssl-rest? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27379_| + (define |gerbil/core/mop~MOP-5[1]#_g27227_| (##structure gx#syntax-quote::t - 'symbol? + 'key::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27382_| + (define |gerbil/core/mop~MOP-5[1]#_g27229_| (##structure gx#syntax-quote::t - 'keyword::t + 'dssl-key? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27384_| + (define |gerbil/core/mop~MOP-5[1]#_g27232_| (##structure gx#syntax-quote::t - 'keyword? + 'number::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27387_| + (define |gerbil/core/mop~MOP-5[1]#_g27234_| (##structure gx#syntax-quote::t - 'list::t + 'number? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27389_| + (define |gerbil/core/mop~MOP-5[1]#_g27236_| (##structure gx#syntax-quote::t - 'list? + ':number #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27391_| + (define |gerbil/core/mop~MOP-5[1]#_g27238_| (##structure gx#syntax-quote::t - ':list + 'real::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27393_| + (define |gerbil/core/mop~MOP-5[1]#_g27240_| (##structure gx#syntax-quote::t - 'pair::t + 'real? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27395_| + (define |gerbil/core/mop~MOP-5[1]#_g27242_| (##structure gx#syntax-quote::t - 'pair? + ':real #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27398_| + (define |gerbil/core/mop~MOP-5[1]#_g27244_| (##structure gx#syntax-quote::t - 'null::t + 'integer::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27400_| + (define |gerbil/core/mop~MOP-5[1]#_g27246_| (##structure gx#syntax-quote::t - 'null? + 'exact-integer? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27403_| + (define |gerbil/core/mop~MOP-5[1]#_g27248_| (##structure gx#syntax-quote::t - 'sequence::t + ':integer #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27405_| + (define |gerbil/core/mop~MOP-5[1]#_g27250_| (##structure gx#syntax-quote::t - 'sequence? + 'fixnum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27407_| + (define |gerbil/core/mop~MOP-5[1]#_g27252_| (##structure gx#syntax-quote::t - ':sequence + 'fixnum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27409_| + (define |gerbil/core/mop~MOP-5[1]#_g27255_| (##structure gx#syntax-quote::t - 'vector::t + 'bignum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27411_| + (define |gerbil/core/mop~MOP-5[1]#_g27257_| (##structure gx#syntax-quote::t - 'vector? + '##bignum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27414_| + (define |gerbil/core/mop~MOP-5[1]#_g27259_| (##structure gx#syntax-quote::t - 'string::t + ':subgtyped #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27416_| + (define |gerbil/core/mop~MOP-5[1]#_g27261_| (##structure gx#syntax-quote::t - 'string? + 'ratnum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27419_| + (define |gerbil/core/mop~MOP-5[1]#_g27263_| (##structure gx#syntax-quote::t - 'hvector::t + '##ratnum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27421_| + (define |gerbil/core/mop~MOP-5[1]#_g27266_| (##structure gx#syntax-quote::t - 'hvector? + 'flonum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27423_| + (define |gerbil/core/mop~MOP-5[1]#_g27268_| (##structure gx#syntax-quote::t - ':hvector + 'flonum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27425_| + (define |gerbil/core/mop~MOP-5[1]#_g27270_| (##structure gx#syntax-quote::t - 'u8vector::t + ':flonum #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27427_| + (define |gerbil/core/mop~MOP-5[1]#_g27272_| (##structure gx#syntax-quote::t - 'u8vector? + 'stflonum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27430_| + (define |gerbil/core/mop~MOP-5[1]#_g27274_| (##structure gx#syntax-quote::t - 's8vector::t + 'stflonum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27432_| + (define |gerbil/core/mop~MOP-5[1]#_g27277_| (##structure gx#syntax-quote::t - 's8vector? + 'haflonum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27435_| + (define |gerbil/core/mop~MOP-5[1]#_g27279_| (##structure gx#syntax-quote::t - 'u16vector::t + 'haflonum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27437_| + (define |gerbil/core/mop~MOP-5[1]#_g27282_| (##structure gx#syntax-quote::t - 'u16vector? + 'cpxnum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27440_| + (define |gerbil/core/mop~MOP-5[1]#_g27284_| (##structure gx#syntax-quote::t - 's16vector::t + '##cpxnum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27442_| + (define |gerbil/core/mop~MOP-5[1]#_g27287_| (##structure gx#syntax-quote::t - 's16vector? + 'symbolic::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27445_| + (define |gerbil/core/mop~MOP-5[1]#_g27289_| (##structure gx#syntax-quote::t - 'u32vector::t + 'symbolic? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27447_| + (define |gerbil/core/mop~MOP-5[1]#_g27291_| (##structure gx#syntax-quote::t - 'u32vector? + ':symbolic #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27450_| + (define |gerbil/core/mop~MOP-5[1]#_g27293_| (##structure gx#syntax-quote::t - 's32vector::t + 'symbol::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27452_| + (define |gerbil/core/mop~MOP-5[1]#_g27295_| (##structure gx#syntax-quote::t - 's32vector? + 'symbol? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27455_| + (define |gerbil/core/mop~MOP-5[1]#_g27298_| (##structure gx#syntax-quote::t - 'u64vector::t + 'keyword::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27457_| + (define |gerbil/core/mop~MOP-5[1]#_g27300_| (##structure gx#syntax-quote::t - 'u64vector? + 'keyword? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27460_| + (define |gerbil/core/mop~MOP-5[1]#_g27303_| (##structure gx#syntax-quote::t - 's64vector::t + 'list::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27462_| + (define |gerbil/core/mop~MOP-5[1]#_g27305_| (##structure gx#syntax-quote::t - 's64vector? + 'list? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27465_| + (define |gerbil/core/mop~MOP-5[1]#_g27307_| (##structure gx#syntax-quote::t - 'f32vector::t + ':list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27467_| + (define |gerbil/core/mop~MOP-5[1]#_g27309_| (##structure gx#syntax-quote::t - 'f32vector? + 'pair::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27470_| + (define |gerbil/core/mop~MOP-5[1]#_g27311_| (##structure gx#syntax-quote::t - 'f64vector::t + 'pair? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27472_| + (define |gerbil/core/mop~MOP-5[1]#_g27314_| (##structure gx#syntax-quote::t - 'f64vector? + 'null::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27475_| + (define |gerbil/core/mop~MOP-5[1]#_g27316_| (##structure gx#syntax-quote::t - 'values::t + 'null? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27477_| + (define |gerbil/core/mop~MOP-5[1]#_g27319_| (##structure gx#syntax-quote::t - '##values? + 'sequence::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27480_| + (define |gerbil/core/mop~MOP-5[1]#_g27321_| (##structure gx#syntax-quote::t - 'box::t + 'sequence? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27482_| + (define |gerbil/core/mop~MOP-5[1]#_g27323_| (##structure gx#syntax-quote::t - 'box? + ':sequence #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27485_| + (define |gerbil/core/mop~MOP-5[1]#_g27325_| (##structure gx#syntax-quote::t - 'frame::t + 'vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27487_| + (define |gerbil/core/mop~MOP-5[1]#_g27327_| (##structure gx#syntax-quote::t - '##frame? + 'vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27490_| + (define |gerbil/core/mop~MOP-5[1]#_g27330_| (##structure gx#syntax-quote::t - 'continuation::t + 'string::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27492_| + (define |gerbil/core/mop~MOP-5[1]#_g27332_| (##structure gx#syntax-quote::t - 'continuation? + 'string? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27495_| + (define |gerbil/core/mop~MOP-5[1]#_g27335_| (##structure gx#syntax-quote::t - 'promise::t + 'hvector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27497_| + (define |gerbil/core/mop~MOP-5[1]#_g27337_| (##structure gx#syntax-quote::t - 'promise? + 'hvector? + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27339_| + (##structure + gx#syntax-quote::t + ':hvector + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27341_| + (##structure + gx#syntax-quote::t + 'u8vector::t + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27343_| + (##structure + gx#syntax-quote::t + 'u8vector? + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27346_| + (##structure + gx#syntax-quote::t + 's8vector::t + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27348_| + (##structure + gx#syntax-quote::t + 's8vector? + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27351_| + (##structure + gx#syntax-quote::t + 'u16vector::t + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27353_| + (##structure + gx#syntax-quote::t + 'u16vector? + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27356_| + (##structure + gx#syntax-quote::t + 's16vector::t + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27358_| + (##structure + gx#syntax-quote::t + 's16vector? + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27361_| + (##structure + gx#syntax-quote::t + 'u32vector::t + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27363_| + (##structure + gx#syntax-quote::t + 'u32vector? + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27366_| + (##structure + gx#syntax-quote::t + 's32vector::t + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27368_| + (##structure + gx#syntax-quote::t + 's32vector? + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27371_| + (##structure + gx#syntax-quote::t + 'u64vector::t + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27373_| + (##structure + gx#syntax-quote::t + 'u64vector? + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27376_| + (##structure + gx#syntax-quote::t + 's64vector::t + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27378_| + (##structure + gx#syntax-quote::t + 's64vector? + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27381_| + (##structure + gx#syntax-quote::t + 'f32vector::t + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27383_| + (##structure + gx#syntax-quote::t + 'f32vector? + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27386_| + (##structure + gx#syntax-quote::t + 'f64vector::t + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27388_| + (##structure + gx#syntax-quote::t + 'f64vector? + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27391_| + (##structure + gx#syntax-quote::t + 'values::t + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27393_| + (##structure + gx#syntax-quote::t + '##values? + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27396_| + (##structure + gx#syntax-quote::t + 'box::t + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27398_| + (##structure + gx#syntax-quote::t + 'box? + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27401_| + (##structure + gx#syntax-quote::t + 'frame::t + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27403_| + (##structure + gx#syntax-quote::t + '##frame? + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27406_| + (##structure + gx#syntax-quote::t + 'continuation::t + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27408_| + (##structure + gx#syntax-quote::t + 'continuation? + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27411_| + (##structure + gx#syntax-quote::t + 'promise::t + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27413_| + (##structure + gx#syntax-quote::t + 'promise? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27500_| + (define |gerbil/core/mop~MOP-5[1]#_g27416_| (##structure gx#syntax-quote::t 'weak::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27502_| + (define |gerbil/core/mop~MOP-5[1]#_g27418_| (##structure gx#syntax-quote::t 'weak? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27505_| + (define |gerbil/core/mop~MOP-5[1]#_g27421_| (##structure gx#syntax-quote::t 'foreign::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27507_| + (define |gerbil/core/mop~MOP-5[1]#_g27423_| (##structure gx#syntax-quote::t 'foreign? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27510_| + (define |gerbil/core/mop~MOP-5[1]#_g27426_| (##structure gx#syntax-quote::t 'procedure::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27512_| + (define |gerbil/core/mop~MOP-5[1]#_g27428_| (##structure gx#syntax-quote::t 'procedure? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27515_| + (define |gerbil/core/mop~MOP-5[1]#_g27431_| + (##structure + gx#syntax-quote::t + 'return::t + #f + (gx#current-expander-context) + '())) + (define |gerbil/core/mop~MOP-5[1]#_g27433_| (##structure gx#syntax-quote::t - 'time::t + '##return? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27517_| + (define |gerbil/core/mop~MOP-5[1]#_g27435_| (##structure gx#syntax-quote::t - 'time? + ':structure #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27520_| + (define |gerbil/core/mop~MOP-5[1]#_g27437_| (##structure gx#syntax-quote::t 'thread::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27522_| + (define |gerbil/core/mop~MOP-5[1]#_g27439_| (##structure gx#syntax-quote::t 'thread? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27525_| + (define |gerbil/core/mop~MOP-5[1]#_g27442_| (##structure gx#syntax-quote::t 'thread-group::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27527_| + (define |gerbil/core/mop~MOP-5[1]#_g27444_| (##structure gx#syntax-quote::t 'thread-group? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27530_| + (define |gerbil/core/mop~MOP-5[1]#_g27447_| (##structure gx#syntax-quote::t 'mutex::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27532_| + (define |gerbil/core/mop~MOP-5[1]#_g27449_| (##structure gx#syntax-quote::t 'mutex? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27535_| + (define |gerbil/core/mop~MOP-5[1]#_g27452_| (##structure gx#syntax-quote::t 'condvar::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27537_| + (define |gerbil/core/mop~MOP-5[1]#_g27454_| (##structure gx#syntax-quote::t 'condvar? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27540_| + (define |gerbil/core/mop~MOP-5[1]#_g27457_| (##structure gx#syntax-quote::t 'port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27542_| + (define |gerbil/core/mop~MOP-5[1]#_g27459_| (##structure gx#syntax-quote::t 'port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27544_| + (define |gerbil/core/mop~MOP-5[1]#_g27461_| (##structure gx#syntax-quote::t ':port #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27546_| + (define |gerbil/core/mop~MOP-5[1]#_g27463_| (##structure gx#syntax-quote::t 'object-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27548_| + (define |gerbil/core/mop~MOP-5[1]#_g27465_| (##structure gx#syntax-quote::t 'object-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27550_| + (define |gerbil/core/mop~MOP-5[1]#_g27467_| (##structure gx#syntax-quote::t ':object-port #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27552_| + (define |gerbil/core/mop~MOP-5[1]#_g27469_| (##structure gx#syntax-quote::t 'character-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27554_| + (define |gerbil/core/mop~MOP-5[1]#_g27471_| (##structure gx#syntax-quote::t 'character-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27556_| + (define |gerbil/core/mop~MOP-5[1]#_g27473_| (##structure gx#syntax-quote::t ':character-port #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27558_| + (define |gerbil/core/mop~MOP-5[1]#_g27475_| (##structure gx#syntax-quote::t 'byte-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27560_| + (define |gerbil/core/mop~MOP-5[1]#_g27477_| (##structure gx#syntax-quote::t 'byte-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27562_| + (define |gerbil/core/mop~MOP-5[1]#_g27479_| (##structure gx#syntax-quote::t ':byte-port #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27564_| + (define |gerbil/core/mop~MOP-5[1]#_g27481_| (##structure gx#syntax-quote::t 'device-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27566_| + (define |gerbil/core/mop~MOP-5[1]#_g27483_| (##structure gx#syntax-quote::t 'device-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27569_| + (define |gerbil/core/mop~MOP-5[1]#_g27486_| (##structure gx#syntax-quote::t 'vector-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27571_| + (define |gerbil/core/mop~MOP-5[1]#_g27488_| (##structure gx#syntax-quote::t 'vector-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27574_| + (define |gerbil/core/mop~MOP-5[1]#_g27491_| (##structure gx#syntax-quote::t 'string-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27576_| + (define |gerbil/core/mop~MOP-5[1]#_g27493_| (##structure gx#syntax-quote::t 'string-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27579_| + (define |gerbil/core/mop~MOP-5[1]#_g27496_| (##structure gx#syntax-quote::t 'u8vector-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27581_| + (define |gerbil/core/mop~MOP-5[1]#_g27498_| (##structure gx#syntax-quote::t 'u8vector-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27584_| + (define |gerbil/core/mop~MOP-5[1]#_g27501_| (##structure gx#syntax-quote::t 'raw-device-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27586_| + (define |gerbil/core/mop~MOP-5[1]#_g27503_| (##structure gx#syntax-quote::t 'raw-device-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27589_| + (define |gerbil/core/mop~MOP-5[1]#_g27506_| (##structure gx#syntax-quote::t 'tcp-server-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27591_| + (define |gerbil/core/mop~MOP-5[1]#_g27508_| (##structure gx#syntax-quote::t 'tcp-server-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27594_| + (define |gerbil/core/mop~MOP-5[1]#_g27511_| (##structure gx#syntax-quote::t 'udp-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27596_| + (define |gerbil/core/mop~MOP-5[1]#_g27513_| (##structure gx#syntax-quote::t 'udp-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27599_| + (define |gerbil/core/mop~MOP-5[1]#_g27516_| (##structure gx#syntax-quote::t 'directory-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27601_| + (define |gerbil/core/mop~MOP-5[1]#_g27518_| (##structure gx#syntax-quote::t 'directory-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27604_| + (define |gerbil/core/mop~MOP-5[1]#_g27521_| (##structure gx#syntax-quote::t 'event-queue-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27606_| + (define |gerbil/core/mop~MOP-5[1]#_g27523_| (##structure gx#syntax-quote::t 'event-queue-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27609_| + (define |gerbil/core/mop~MOP-5[1]#_g27526_| (##structure gx#syntax-quote::t 'table::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27611_| + (define |gerbil/core/mop~MOP-5[1]#_g27528_| (##structure gx#syntax-quote::t 'table? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27614_| + (define |gerbil/core/mop~MOP-5[1]#_g27531_| (##structure gx#syntax-quote::t 'readenv::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27616_| + (define |gerbil/core/mop~MOP-5[1]#_g27533_| (##structure gx#syntax-quote::t 'readenv? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27619_| + (define |gerbil/core/mop~MOP-5[1]#_g27536_| (##structure gx#syntax-quote::t 'writeenv::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27621_| + (define |gerbil/core/mop~MOP-5[1]#_g27538_| (##structure gx#syntax-quote::t 'writeenv? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27624_| + (define |gerbil/core/mop~MOP-5[1]#_g27541_| (##structure gx#syntax-quote::t 'readtable::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27626_| + (define |gerbil/core/mop~MOP-5[1]#_g27543_| (##structure gx#syntax-quote::t 'readtable? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27629_| + (define |gerbil/core/mop~MOP-5[1]#_g27546_| (##structure gx#syntax-quote::t 'processor::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27631_| + (define |gerbil/core/mop~MOP-5[1]#_g27548_| (##structure gx#syntax-quote::t 'processor? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27634_| + (define |gerbil/core/mop~MOP-5[1]#_g27551_| (##structure gx#syntax-quote::t 'vm::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27636_| + (define |gerbil/core/mop~MOP-5[1]#_g27553_| (##structure gx#syntax-quote::t 'vm? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27639_| + (define |gerbil/core/mop~MOP-5[1]#_g27556_| (##structure gx#syntax-quote::t 'file-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27641_| + (define |gerbil/core/mop~MOP-5[1]#_g27558_| (##structure gx#syntax-quote::t 'file-info? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27644_| + (define |gerbil/core/mop~MOP-5[1]#_g27561_| (##structure gx#syntax-quote::t 'socket-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27646_| + (define |gerbil/core/mop~MOP-5[1]#_g27563_| (##structure gx#syntax-quote::t 'socket-info? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27649_| + (define |gerbil/core/mop~MOP-5[1]#_g27566_| (##structure gx#syntax-quote::t 'address-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27651_| + (define |gerbil/core/mop~MOP-5[1]#_g27568_| (##structure gx#syntax-quote::t 'address-info? @@ -1296,161 +1534,162 @@ '())) (begin (define |gerbil/core/mop~MOP-5[:0:]#defsystem-class-info| - (lambda (_%stx26504%_) - (let* ((_%g2650726542%_ - (lambda (_%g2650826538%_) + (lambda (_%stx26318%_) + (let* ((_%g2632126356%_ + (lambda (_%g2632226352%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2650826538%_))) - (_%g2650626736%_ - (lambda (_%g2650826546%_) - (if (gx#stx-pair? _%g2650826546%_) - (let ((_%e2651326549%_ (gx#syntax-e _%g2650826546%_))) - (let ((_%hd2651426553%_ + _%g2632226352%_))) + (_%g2632026548%_ + (lambda (_%g2632226360%_) + (if (gx#stx-pair? _%g2632226360%_) + (let ((_%e2632726363%_ (gx#syntax-e _%g2632226360%_))) + (let ((_%hd2632826367%_ (let () (declare (not safe)) - (##car _%e2651326549%_))) - (_%tl2651526556%_ + (##car _%e2632726363%_))) + (_%tl2632926370%_ (let () (declare (not safe)) - (##cdr _%e2651326549%_)))) - (if (gx#stx-pair? _%tl2651526556%_) - (let ((_%e2651626559%_ - (gx#syntax-e _%tl2651526556%_))) - (let ((_%hd2651726563%_ + (##cdr _%e2632726363%_)))) + (if (gx#stx-pair? _%tl2632926370%_) + (let ((_%e2633026373%_ + (gx#syntax-e _%tl2632926370%_))) + (let ((_%hd2633126377%_ (let () (declare (not safe)) - (##car _%e2651626559%_))) - (_%tl2651826566%_ + (##car _%e2633026373%_))) + (_%tl2633226380%_ (let () (declare (not safe)) - (##cdr _%e2651626559%_)))) - (if (gx#stx-pair? _%tl2651826566%_) - (let ((_%e2651926569%_ - (gx#syntax-e _%tl2651826566%_))) - (let ((_%hd2652026573%_ + (##cdr _%e2633026373%_)))) + (if (gx#stx-pair? _%tl2633226380%_) + (let ((_%e2633326383%_ + (gx#syntax-e _%tl2633226380%_))) + (let ((_%hd2633426387%_ (let () (declare (not safe)) - (##car _%e2651926569%_))) - (_%tl2652126576%_ + (##car _%e2633326383%_))) + (_%tl2633526390%_ (let () (declare (not safe)) - (##cdr _%e2651926569%_)))) - (if (gx#stx-pair? _%tl2652126576%_) - (let ((_%e2652226579%_ + (##cdr _%e2633326383%_)))) + (if (gx#stx-pair? _%tl2633526390%_) + (let ((_%e2633626393%_ (gx#syntax-e - _%tl2652126576%_))) - (let ((_%hd2652326583%_ + _%tl2633526390%_))) + (let ((_%hd2633726397%_ (let () (declare (not safe)) - (##car _%e2652226579%_))) - (_%tl2652426586%_ + (##car _%e2633626393%_))) + (_%tl2633826400%_ (let () (declare (not safe)) - (##cdr _%e2652226579%_)))) + (##cdr _%e2633626393%_)))) (if (gx#stx-pair/null? - _%hd2652326583%_) - (let ((_g27233_ + _%hd2633726397%_) + (let ((_g27083_ (gx#syntax-split-splice - _%hd2652326583%_ + _%hd2633726397%_ '0))) (begin - (let ((_g27234_ + (let ((_g27084_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g27233_) - (##values-length _g27233_) + (if (##values? _g27083_) + (##values-length _g27083_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27234_ 2))) - (error "Context expects 2 values" _g27234_))) - (let ((_%target2652526589%_ + (if (not (let () (declare (not safe)) (##fx= _g27084_ 2))) + (error "Context expects 2 values" _g27084_))) + (let ((_%target2633926403%_ (let () (declare (not safe)) - (##values-ref _g27233_ 0))) - (_%tl2652726592%_ + (##values-ref _g27083_ 0))) + (_%tl2634126406%_ (let () (declare (not safe)) - (##values-ref _g27233_ 1)))) - (if (gx#stx-null? _%tl2652726592%_) - (letrec ((_%loop2652826595%_ - (lambda (_%hd2652626599%_ - _%super2653226602%_) - (if (gx#stx-pair? _%hd2652626599%_) - (let ((_%e2652926605%_ - (gx#syntax-e _%hd2652626599%_))) - (let ((_%lp-hd2653026609%_ + (##values-ref _g27083_ 1)))) + (if (gx#stx-null? _%tl2634126406%_) + (letrec ((_%loop2634226409%_ + (lambda (_%hd2634026413%_ + _%super2634626416%_) + (if (gx#stx-pair? _%hd2634026413%_) + (let ((_%e2634326418%_ + (gx#syntax-e _%hd2634026413%_))) + (let ((_%lp-hd2634426422%_ (let () (declare (not safe)) - (##car _%e2652926605%_))) - (_%lp-tl2653126612%_ + (##car _%e2634326418%_))) + (_%lp-tl2634526425%_ (let () (declare (not safe)) - (##cdr _%e2652926605%_)))) - (_%loop2652826595%_ - _%lp-tl2653126612%_ - (cons _%lp-hd2653026609%_ - _%super2653226602%_)))) - (let ((_%super2653326615%_ - (reverse _%super2653226602%_))) - (if (gx#stx-pair? _%tl2652426586%_) - (let ((_%e2653426619%_ + (##cdr _%e2634326418%_)))) + (_%loop2634226409%_ + _%lp-tl2634526425%_ + (cons _%lp-hd2634426422%_ + _%super2634626416%_)))) + (let ((_%super2634726428%_ + (reverse _%super2634626416%_))) + (if (gx#stx-pair? _%tl2633826400%_) + (let ((_%e2634826431%_ (gx#syntax-e - _%tl2652426586%_))) - (let ((_%hd2653526623%_ + _%tl2633826400%_))) + (let ((_%hd2634926435%_ (let () (declare (not safe)) - (##car _%e2653426619%_))) - (_%tl2653626626%_ + (##car _%e2634826431%_))) + (_%tl2635026438%_ (let () (declare (not safe)) - (##cdr _%e2653426619%_)))) + (##cdr _%e2634826431%_)))) (if (gx#stx-null? - _%tl2653626626%_) - ((lambda (_%L26629%_ - _%L26631%_ - _%L26632%_ - _%L26633%_) - (let* ((_%klass26660%_ + _%tl2635026438%_) + ((lambda (_%g2632326441%_ + _%g2632426443%_ + _%g2632526444%_ + _%g2632626445%_) + (let* ((_%klass26472%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#eval-syntax _%L26632%_)) - (_%g2666326678%_ - (lambda (_%g2666426674%_) + (gx#eval-syntax _%g2632526444%_)) + (_%g2647526490%_ + (lambda (_%g2647626486%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2666426674%_))) - (_%g2666226732%_ - (lambda (_%g2666426682%_) - (if (gx#stx-pair? _%g2666426682%_) - (let ((_%e2666726685%_ - (gx#syntax-e _%g2666426682%_))) - (let ((_%hd2666826689%_ + _%g2647626486%_))) + (_%g2647426544%_ + (lambda (_%g2647626494%_) + (if (gx#stx-pair? _%g2647626494%_) + (let ((_%e2647926497%_ + (gx#syntax-e _%g2647626494%_))) + (let ((_%hd2648026501%_ (let () (declare (not safe)) - (##car _%e2666726685%_))) - (_%tl2666926692%_ + (##car _%e2647926497%_))) + (_%tl2648126504%_ (let () (declare (not safe)) - (##cdr _%e2666726685%_)))) - (if (gx#stx-pair? _%tl2666926692%_) - (let ((_%e2667026695%_ - (gx#syntax-e _%tl2666926692%_))) - (let ((_%hd2667126699%_ + (##cdr _%e2647926497%_)))) + (if (gx#stx-pair? _%tl2648126504%_) + (let ((_%e2648226507%_ + (gx#syntax-e _%tl2648126504%_))) + (let ((_%hd2648326511%_ (let () (declare (not safe)) - (##car _%e2667026695%_))) - (_%tl2667226702%_ + (##car _%e2648226507%_))) + (_%tl2648426514%_ (let () (declare (not safe)) - (##cdr _%e2667026695%_)))) - (if (gx#stx-null? _%tl2667226702%_) - ((lambda (_%L26705%_ _%L26707%_) + (##cdr _%e2648226507%_)))) + (if (gx#stx-null? _%tl2648426514%_) + ((lambda (_%g2647726517%_ + _%g2647826519%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L26633%_ + (cons _%g2632626445%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1459,25 +1698,25 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L26707%_ '())) + (cons _%g2647826519%_ '())) (cons 'name: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L26705%_ '())) + (cons _%g2647726517%_ '())) (cons 'super: (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g2672326726%_ - _%g2672426729%_) + (foldr (lambda (_%g2653526538%_ + _%g2653626541%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2672326726%_ + (cons _%g2653526538%_ '())) - _%g2672426729%_)) + _%g2653626541%_)) '() - _%L26631%_)) + _%g2632426443%_)) (cons 'slots: (cons (cons (gx#datum->syntax '#f '@list) '()) @@ -1488,12 +1727,12 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L26632%_ '())) + (cons _%g2632526444%_ '())) (cons 'predicate: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L26629%_ '())) + (cons _%g2632326441%_ '())) (cons 'accessors: (cons (cons (gx#datum->syntax '#f @@ -1518,35 +1757,657 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd2667126699%_ - _%hd2666826689%_) - (_%g2666326678%_ - _%g2666426682%_)))) - (_%g2666326678%_ _%g2666426682%_)))) - (_%g2666326678%_ _%g2666426682%_))))) - (_%g2666226732%_ - (list (class-type-id _%klass26660%_) - (class-type-name _%klass26660%_))))) - _%hd2653526623%_ - _%super2653326615%_ - _%hd2652026573%_ - _%hd2651726563%_) - (_%g2650726542%_ _%g2650826546%_)))) + _%hd2648326511%_ + _%hd2648026501%_) + (_%g2647526490%_ + _%g2647626494%_)))) + (_%g2647526490%_ _%g2647626494%_)))) + (_%g2647526490%_ _%g2647626494%_))))) + (_%g2647426544%_ + (list (class-type-id _%klass26472%_) + (class-type-name _%klass26472%_))))) + _%hd2634926435%_ + _%super2634726428%_ + _%hd2633426387%_ + _%hd2633126377%_) + (_%g2632126356%_ _%g2632226360%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2650726542%_ - _%g2650826546%_))))))) - (_%loop2652826595%_ _%target2652526589%_ '())) - (_%g2650726542%_ _%g2650826546%_))))) - (_%g2650726542%_ _%g2650826546%_)))) + (_%g2632126356%_ + _%g2632226360%_))))))) + (_%loop2634226409%_ _%target2633926403%_ '())) + (_%g2632126356%_ _%g2632226360%_))))) + (_%g2632126356%_ _%g2632226360%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2650726542%_ - _%g2650826546%_)))) - (_%g2650726542%_ _%g2650826546%_)))) - (_%g2650726542%_ _%g2650826546%_)))) - (_%g2650726542%_ _%g2650826546%_))))) - (_%g2650626736%_ _%stx26504%_)))) + (_%g2632126356%_ + _%g2632226360%_)))) + (_%g2632126356%_ _%g2632226360%_)))) + (_%g2632126356%_ _%g2632226360%_)))) + (_%g2632126356%_ _%g2632226360%_))))) + (_%g2632026548%_ _%stx26318%_)))) (define |gerbil/core/mop~MOP-5[:0:]#:t| - (let ((__obj27019 + (let ((__obj26832 + (let () + (declare (not safe)) + (##structure + gerbil/core/mop~MOP-2#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26832 't '1 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26832 't '2 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26832 '() '4 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26832 '() '5 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26832 '#t '10 '#f '#f)) + (let ((__tmp27085 |gerbil/core/mop~MOP-5[1]#_g27086_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26832 __tmp27085 '3 '#f '#f)) + (let ((__tmp27087 |gerbil/core/mop~MOP-5[1]#_g27088_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26832 __tmp27087 '14 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26832 '() '15 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26832 '() '16 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26832 '() '17 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26832 '() '18 '#f '#f)) + __obj26832)) + (define |gerbil/core/mop~MOP-5[:0:]#:class| + (let ((__obj26833 + (let () + (declare (not safe)) + (##structure + gerbil/core/mop~MOP-2#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26833 'class '1 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26833 'class '2 '#f '#f)) + (let ((__tmp27089 (cons |gerbil/core/mop~MOP-5[1]#_g27090_| '()))) + (declare (not safe)) + (##unchecked-structure-set! __obj26833 __tmp27089 '4 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26833 '() '5 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26833 '#t '10 '#f '#f)) + (let ((__tmp27091 |gerbil/core/mop~MOP-5[1]#_g27092_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26833 __tmp27091 '3 '#f '#f)) + (let ((__tmp27093 |gerbil/core/mop~MOP-5[1]#_g27094_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26833 __tmp27093 '14 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26833 '() '15 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26833 '() '16 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26833 '() '17 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26833 '() '18 '#f '#f)) + __obj26833)) + (define |gerbil/core/mop~MOP-5[:0:]#class| + (let ((__obj26834 + (let () + (declare (not safe)) + (##structure + gerbil/core/mop~MOP-2#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26834 'class '1 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26834 'class '2 '#f '#f)) + (let ((__tmp27095 (cons |gerbil/core/mop~MOP-5[1]#_g27090_| '()))) + (declare (not safe)) + (##unchecked-structure-set! __obj26834 __tmp27095 '4 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj26834 + '(id name + super + flags + fields + precedence-list + slot-vector + slot-table + properties + constructor + methods + specializer + interface) + '5 + '#f + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26834 '#t '8 '#f '#f)) + (let ((__tmp27096 |gerbil/core/mop~MOP-5[1]#_g27092_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26834 __tmp27096 '3 '#f '#f)) + (let ((__tmp27097 |gerbil/core/mop~MOP-5[1]#_g27098_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26834 __tmp27097 '13 '#f '#f)) + (let ((__tmp27099 |gerbil/core/mop~MOP-5[1]#_g27094_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26834 __tmp27099 '14 '#f '#f)) + (let ((__tmp27100 + (cons (cons 'id |gerbil/core/mop~MOP-5[1]#_g27101_|) + (cons (cons 'name |gerbil/core/mop~MOP-5[1]#_g27102_|) + (cons (cons 'super + |gerbil/core/mop~MOP-5[1]#_g27103_|) + (cons (cons 'flags + |gerbil/core/mop~MOP-5[1]#_g27104_|) + (cons (cons 'fields + |gerbil/core/mop~MOP-5[1]#_g27105_|) + (cons (cons 'precedence-list + |gerbil/core/mop~MOP-5[1]#_g27106_|) + (cons (cons 'slot-vector + |gerbil/core/mop~MOP-5[1]#_g27107_|) + (cons (cons 'slot-table +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + |gerbil/core/mop~MOP-5[1]#_g27108_|) + (cons (cons 'properties + |gerbil/core/mop~MOP-5[1]#_g27109_|) + (cons (cons 'constructor + |gerbil/core/mop~MOP-5[1]#_g27110_|) + (cons (cons 'methods + |gerbil/core/mop~MOP-5[1]#_g27111_|) + (cons (cons 'specializer + |gerbil/core/mop~MOP-5[1]#_g27112_|) + (cons (cons 'interface + |gerbil/core/mop~MOP-5[1]#_g27113_|) + '()))))))))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (##unchecked-structure-set! __obj26834 __tmp27100 '15 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26834 '() '16 '#f '#f)) + (let ((__tmp27114 + (cons (cons 'id |gerbil/core/mop~MOP-5[1]#_g27115_|) + (cons (cons 'name |gerbil/core/mop~MOP-5[1]#_g27116_|) + (cons (cons 'super + |gerbil/core/mop~MOP-5[1]#_g27117_|) + (cons (cons 'flags + |gerbil/core/mop~MOP-5[1]#_g27118_|) + (cons (cons 'fields + |gerbil/core/mop~MOP-5[1]#_g27119_|) + (cons (cons 'precedence-list + |gerbil/core/mop~MOP-5[1]#_g27120_|) + (cons (cons 'slot-vector + |gerbil/core/mop~MOP-5[1]#_g27121_|) + (cons (cons 'slot-table +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + |gerbil/core/mop~MOP-5[1]#_g27122_|) + (cons (cons 'properties + |gerbil/core/mop~MOP-5[1]#_g27123_|) + (cons (cons 'constructor + |gerbil/core/mop~MOP-5[1]#_g27124_|) + (cons (cons 'methods + |gerbil/core/mop~MOP-5[1]#_g27125_|) + (cons (cons 'specializer + |gerbil/core/mop~MOP-5[1]#_g27126_|) + (cons (cons 'interface + |gerbil/core/mop~MOP-5[1]#_g27127_|) + '()))))))))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (##unchecked-structure-set! __obj26834 __tmp27114 '17 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26834 '() '18 '#f '#f)) + __obj26834)) + (define |gerbil/core/mop~MOP-5[:0:]#:object| + (let ((__obj26835 + (let () + (declare (not safe)) + (##structure + gerbil/core/mop~MOP-2#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26835 'object '1 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26835 'object '2 '#f '#f)) + (let ((__tmp27128 (cons |gerbil/core/mop~MOP-5[1]#_g27090_| '()))) + (declare (not safe)) + (##unchecked-structure-set! __obj26835 __tmp27128 '4 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26835 '() '5 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26835 '#t '10 '#f '#f)) + (let ((__tmp27129 |gerbil/core/mop~MOP-5[1]#_g27130_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26835 __tmp27129 '3 '#f '#f)) + (let ((__tmp27131 |gerbil/core/mop~MOP-5[1]#_g27132_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26835 __tmp27131 '14 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26835 '() '15 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26835 '() '16 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26835 '() '17 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26835 '() '18 '#f '#f)) + __obj26835)) + (define |gerbil/core/mop~MOP-5[:0:]#:builtin| + (let ((__obj26836 + (let () + (declare (not safe)) + (##structure + gerbil/core/mop~MOP-2#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26836 'builtin '1 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26836 'builtin '2 '#f '#f)) + (let ((__tmp27133 (cons |gerbil/core/mop~MOP-5[1]#_g27090_| '()))) + (declare (not safe)) + (##unchecked-structure-set! __obj26836 __tmp27133 '4 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26836 '() '5 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26836 '#t '10 '#f '#f)) + (let ((__tmp27134 |gerbil/core/mop~MOP-5[1]#_g27135_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26836 __tmp27134 '3 '#f '#f)) + (let ((__tmp27136 |gerbil/core/mop~MOP-5[1]#_g27137_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26836 __tmp27136 '14 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26836 '() '15 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26836 '() '16 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26836 '() '17 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26836 '() '18 '#f '#f)) + __obj26836)) + (define |gerbil/core/mop~MOP-5[:0:]#:subtyped| + (let ((__obj26837 + (let () + (declare (not safe)) + (##structure + gerbil/core/mop~MOP-2#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26837 'subtyped '1 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26837 'subtyped '2 '#f '#f)) + (let ((__tmp27138 (cons |gerbil/core/mop~MOP-5[1]#_g27139_| '()))) + (declare (not safe)) + (##unchecked-structure-set! __obj26837 __tmp27138 '4 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26837 '() '5 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26837 '#t '10 '#f '#f)) + (let ((__tmp27140 |gerbil/core/mop~MOP-5[1]#_g27141_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26837 __tmp27140 '3 '#f '#f)) + (let ((__tmp27142 |gerbil/core/mop~MOP-5[1]#_g27143_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26837 __tmp27142 '14 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26837 '() '15 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26837 '() '16 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26837 '() '17 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26837 '() '18 '#f '#f)) + __obj26837)) + (define |gerbil/core/mop~MOP-5[:0:]#:structure| + (let ((__obj26838 + (let () + (declare (not safe)) + (##structure + gerbil/core/mop~MOP-2#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26838 'structure '1 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26838 'structure '2 '#f '#f)) + (let ((__tmp27144 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) + (declare (not safe)) + (##unchecked-structure-set! __obj26838 __tmp27144 '4 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26838 '() '5 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26838 '#t '10 '#f '#f)) + (let ((__tmp27146 |gerbil/core/mop~MOP-5[1]#_g27147_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26838 __tmp27146 '3 '#f '#f)) + (let ((__tmp27148 |gerbil/core/mop~MOP-5[1]#_g27149_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26838 __tmp27148 '14 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26838 '() '15 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26838 '() '16 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26838 '() '17 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26838 '() '18 '#f '#f)) + __obj26838)) + (define |gerbil/core/mop~MOP-5[:0:]#:immediate| + (let ((__obj26839 + (let () + (declare (not safe)) + (##structure + gerbil/core/mop~MOP-2#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26839 'immediate '1 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26839 'immediate '2 '#f '#f)) + (let ((__tmp27150 (cons |gerbil/core/mop~MOP-5[1]#_g27139_| '()))) + (declare (not safe)) + (##unchecked-structure-set! __obj26839 __tmp27150 '4 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26839 '() '5 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26839 '#t '10 '#f '#f)) + (let ((__tmp27151 |gerbil/core/mop~MOP-5[1]#_g27152_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26839 __tmp27151 '3 '#f '#f)) + (let ((__tmp27153 |gerbil/core/mop~MOP-5[1]#_g27154_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26839 __tmp27153 '14 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26839 '() '15 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26839 '() '16 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26839 '() '17 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26839 '() '18 '#f '#f)) + __obj26839)) + (define |gerbil/core/mop~MOP-5[:0:]#:special| + (let ((__obj26840 + (let () + (declare (not safe)) + (##structure + gerbil/core/mop~MOP-2#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26840 'special '1 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26840 'special '2 '#f '#f)) + (let ((__tmp27155 (cons |gerbil/core/mop~MOP-5[1]#_g27156_| '()))) + (declare (not safe)) + (##unchecked-structure-set! __obj26840 __tmp27155 '4 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26840 '() '5 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26840 '#t '10 '#f '#f)) + (let ((__tmp27157 |gerbil/core/mop~MOP-5[1]#_g27158_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26840 __tmp27157 '3 '#f '#f)) + (let ((__tmp27159 |gerbil/core/mop~MOP-5[1]#_g27160_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26840 __tmp27159 '14 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26840 '() '15 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26840 '() '16 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26840 '() '17 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26840 '() '18 '#f '#f)) + __obj26840)) + (define |gerbil/core/mop~MOP-5[:0:]#:atom| + (let ((__obj26841 (let () (declare (not safe)) (##structure @@ -1574,40 +2435,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27019 't '1 '#f '#f)) + (##unchecked-structure-set! __obj26841 'atom '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27019 't '2 '#f '#f)) - (let () + (##unchecked-structure-set! __obj26841 'atom '2 '#f '#f)) + (let ((__tmp27161 (cons |gerbil/core/mop~MOP-5[1]#_g27162_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27019 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj26841 __tmp27161 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27019 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26841 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27019 '#t '9 '#f '#f)) - (let ((__tmp27235 |gerbil/core/mop~MOP-5[1]#_g27236_|)) + (##unchecked-structure-set! __obj26841 '#t '10 '#f '#f)) + (let ((__tmp27163 |gerbil/core/mop~MOP-5[1]#_g27164_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27019 __tmp27235 '12 '#f '#f)) - (let ((__tmp27237 |gerbil/core/mop~MOP-5[1]#_g27238_|)) + (##unchecked-structure-set! __obj26841 __tmp27163 '3 '#f '#f)) + (let ((__tmp27165 |gerbil/core/mop~MOP-5[1]#_g27166_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27019 __tmp27237 '14 '#f '#f)) + (##unchecked-structure-set! __obj26841 __tmp27165 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27019 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26841 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27019 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26841 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27019 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26841 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27019 '() '18 '#f '#f)) - __obj27019)) - (define |gerbil/core/mop~MOP-5[:0:]#:class| - (let ((__obj27020 + (##unchecked-structure-set! __obj26841 '() '18 '#f '#f)) + __obj26841)) + (define |gerbil/core/mop~MOP-5[:0:]#:char| + (let ((__obj26842 (let () (declare (not safe)) (##structure @@ -1635,40 +2496,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27020 'class '1 '#f '#f)) + (##unchecked-structure-set! __obj26842 'char '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27020 'class '2 '#f '#f)) - (let ((__tmp27239 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26842 'char '2 '#f '#f)) + (let ((__tmp27167 (cons |gerbil/core/mop~MOP-5[1]#_g27156_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27020 __tmp27239 '3 '#f '#f)) + (##unchecked-structure-set! __obj26842 __tmp27167 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27020 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26842 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27020 '#t '9 '#f '#f)) - (let ((__tmp27241 |gerbil/core/mop~MOP-5[1]#_g27242_|)) + (##unchecked-structure-set! __obj26842 '#t '10 '#f '#f)) + (let ((__tmp27168 |gerbil/core/mop~MOP-5[1]#_g27169_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27020 __tmp27241 '12 '#f '#f)) - (let ((__tmp27243 |gerbil/core/mop~MOP-5[1]#_g27244_|)) + (##unchecked-structure-set! __obj26842 __tmp27168 '3 '#f '#f)) + (let ((__tmp27170 |gerbil/core/mop~MOP-5[1]#_g27171_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27020 __tmp27243 '14 '#f '#f)) + (##unchecked-structure-set! __obj26842 __tmp27170 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27020 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26842 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27020 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26842 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27020 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26842 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27020 '() '18 '#f '#f)) - __obj27020)) - (define |gerbil/core/mop~MOP-5[:0:]#class| - (let ((__obj27021 + (##unchecked-structure-set! __obj26842 '() '18 '#f '#f)) + __obj26842)) + (define |gerbil/core/mop~MOP-5[:0:]#:boolean| + (let ((__obj26843 (let () (declare (not safe)) (##structure @@ -1696,103 +2557,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27021 'class '1 '#f '#f)) + (##unchecked-structure-set! __obj26843 'boolean '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27021 'class '2 '#f '#f)) - (let ((__tmp27245 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26843 'boolean '2 '#f '#f)) + (let ((__tmp27172 (cons |gerbil/core/mop~MOP-5[1]#_g27156_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27021 __tmp27245 '3 '#f '#f)) + (##unchecked-structure-set! __obj26843 __tmp27172 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! - __obj27021 - '(id name - super - flags - fields - precedence-list - slot-vector - slot-table - properties - constructor - methods) - '4 - '#f - '#f)) + (##unchecked-structure-set! __obj26843 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27021 '#t '7 '#f '#f)) - (let ((__tmp27246 |gerbil/core/mop~MOP-5[1]#_g27242_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj27021 __tmp27246 '12 '#f '#f)) - (let ((__tmp27247 |gerbil/core/mop~MOP-5[1]#_g27248_|)) + (##unchecked-structure-set! __obj26843 '#t '10 '#f '#f)) + (let ((__tmp27173 |gerbil/core/mop~MOP-5[1]#_g27174_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27021 __tmp27247 '13 '#f '#f)) - (let ((__tmp27249 |gerbil/core/mop~MOP-5[1]#_g27244_|)) + (##unchecked-structure-set! __obj26843 __tmp27173 '3 '#f '#f)) + (let ((__tmp27175 |gerbil/core/mop~MOP-5[1]#_g27176_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27021 __tmp27249 '14 '#f '#f)) - (let ((__tmp27250 - (cons (cons 'id |gerbil/core/mop~MOP-5[1]#_g27251_|) - (cons (cons 'name |gerbil/core/mop~MOP-5[1]#_g27252_|) - (cons (cons 'super - |gerbil/core/mop~MOP-5[1]#_g27253_|) - (cons (cons 'flags - |gerbil/core/mop~MOP-5[1]#_g27254_|) - (cons (cons 'fields - |gerbil/core/mop~MOP-5[1]#_g27255_|) - (cons (cons 'precedence-list - |gerbil/core/mop~MOP-5[1]#_g27256_|) - (cons (cons 'slot-vector - |gerbil/core/mop~MOP-5[1]#_g27257_|) - (cons (cons 'slot-table -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-5[1]#_g27258_|) - (cons (cons 'properties - |gerbil/core/mop~MOP-5[1]#_g27259_|) - (cons (cons 'constructor - |gerbil/core/mop~MOP-5[1]#_g27260_|) - (cons (cons 'methods - |gerbil/core/mop~MOP-5[1]#_g27261_|) - '()))))))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (##unchecked-structure-set! __obj26843 __tmp27175 '14 '#f '#f)) + (let () (declare (not safe)) - (##unchecked-structure-set! __obj27021 __tmp27250 '15 '#f '#f)) + (##unchecked-structure-set! __obj26843 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27021 '() '16 '#f '#f)) - (let ((__tmp27262 - (cons (cons 'id |gerbil/core/mop~MOP-5[1]#_g27263_|) - (cons (cons 'name |gerbil/core/mop~MOP-5[1]#_g27264_|) - (cons (cons 'super - |gerbil/core/mop~MOP-5[1]#_g27265_|) - (cons (cons 'flags - |gerbil/core/mop~MOP-5[1]#_g27266_|) - (cons (cons 'fields - |gerbil/core/mop~MOP-5[1]#_g27267_|) - (cons (cons 'precedence-list - |gerbil/core/mop~MOP-5[1]#_g27268_|) - (cons (cons 'slot-vector - |gerbil/core/mop~MOP-5[1]#_g27269_|) - (cons (cons 'slot-table -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-5[1]#_g27270_|) - (cons (cons 'properties - |gerbil/core/mop~MOP-5[1]#_g27271_|) - (cons (cons 'constructor - |gerbil/core/mop~MOP-5[1]#_g27272_|) - (cons (cons 'methods - |gerbil/core/mop~MOP-5[1]#_g27273_|) - '()))))))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (##unchecked-structure-set! __obj26843 '() '16 '#f '#f)) + (let () (declare (not safe)) - (##unchecked-structure-set! __obj27021 __tmp27262 '17 '#f '#f)) + (##unchecked-structure-set! __obj26843 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27021 '() '18 '#f '#f)) - __obj27021)) - (define |gerbil/core/mop~MOP-5[:0:]#:object| - (let ((__obj27022 + (##unchecked-structure-set! __obj26843 '() '18 '#f '#f)) + __obj26843)) + (define |gerbil/core/mop~MOP-5[:0:]#:true| + (let ((__obj26844 (let () (declare (not safe)) (##structure @@ -1820,40 +2618,42 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27022 'object '1 '#f '#f)) + (##unchecked-structure-set! __obj26844 'true '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27022 'object '2 '#f '#f)) - (let ((__tmp27274 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26844 'true '2 '#f '#f)) + (let ((__tmp27177 + (cons |gerbil/core/mop~MOP-5[1]#_g27178_| + (cons |gerbil/core/mop~MOP-5[1]#_g27179_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27022 __tmp27274 '3 '#f '#f)) + (##unchecked-structure-set! __obj26844 __tmp27177 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27022 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26844 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27022 '#t '9 '#f '#f)) - (let ((__tmp27275 |gerbil/core/mop~MOP-5[1]#_g27276_|)) + (##unchecked-structure-set! __obj26844 '#t '10 '#f '#f)) + (let ((__tmp27180 |gerbil/core/mop~MOP-5[1]#_g27181_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27022 __tmp27275 '12 '#f '#f)) - (let ((__tmp27277 |gerbil/core/mop~MOP-5[1]#_g27238_|)) + (##unchecked-structure-set! __obj26844 __tmp27180 '3 '#f '#f)) + (let ((__tmp27182 |gerbil/core/mop~MOP-5[1]#_g27183_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27022 __tmp27277 '14 '#f '#f)) + (##unchecked-structure-set! __obj26844 __tmp27182 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27022 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26844 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27022 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26844 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27022 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26844 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27022 '() '18 '#f '#f)) - __obj27022)) - (define |gerbil/core/mop~MOP-5[:0:]#:immediate| - (let ((__obj27023 + (##unchecked-structure-set! __obj26844 '() '18 '#f '#f)) + __obj26844)) + (define |gerbil/core/mop~MOP-5[:0:]#:false| + (let ((__obj26845 (let () (declare (not safe)) (##structure @@ -1881,40 +2681,42 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27023 'immediate '1 '#f '#f)) + (##unchecked-structure-set! __obj26845 'false '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27023 'immediate '2 '#f '#f)) - (let ((__tmp27278 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26845 'false '2 '#f '#f)) + (let ((__tmp27184 + (cons |gerbil/core/mop~MOP-5[1]#_g27178_| + (cons |gerbil/core/mop~MOP-5[1]#_g27179_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27023 __tmp27278 '3 '#f '#f)) + (##unchecked-structure-set! __obj26845 __tmp27184 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27023 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26845 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27023 '#t '9 '#f '#f)) - (let ((__tmp27279 |gerbil/core/mop~MOP-5[1]#_g27280_|)) + (##unchecked-structure-set! __obj26845 '#t '10 '#f '#f)) + (let ((__tmp27185 |gerbil/core/mop~MOP-5[1]#_g27186_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27023 __tmp27279 '12 '#f '#f)) - (let ((__tmp27281 |gerbil/core/mop~MOP-5[1]#_g27282_|)) + (##unchecked-structure-set! __obj26845 __tmp27185 '3 '#f '#f)) + (let ((__tmp27187 |gerbil/core/mop~MOP-5[1]#_g27188_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27023 __tmp27281 '14 '#f '#f)) + (##unchecked-structure-set! __obj26845 __tmp27187 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27023 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26845 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27023 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26845 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27023 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26845 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27023 '() '18 '#f '#f)) - __obj27023)) - (define |gerbil/core/mop~MOP-5[:0:]#:char| - (let ((__obj27024 + (##unchecked-structure-set! __obj26845 '() '18 '#f '#f)) + __obj26845)) + (define |gerbil/core/mop~MOP-5[:0:]#:eof| + (let ((__obj26846 (let () (declare (not safe)) (##structure @@ -1942,40 +2744,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27024 'char '1 '#f '#f)) + (##unchecked-structure-set! __obj26846 'eof '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27024 'char '2 '#f '#f)) - (let ((__tmp27283 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj26846 'eof '2 '#f '#f)) + (let ((__tmp27189 (cons |gerbil/core/mop~MOP-5[1]#_g27179_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27024 __tmp27283 '3 '#f '#f)) + (##unchecked-structure-set! __obj26846 __tmp27189 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27024 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26846 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27024 '#t '9 '#f '#f)) - (let ((__tmp27285 |gerbil/core/mop~MOP-5[1]#_g27286_|)) + (##unchecked-structure-set! __obj26846 '#t '10 '#f '#f)) + (let ((__tmp27190 |gerbil/core/mop~MOP-5[1]#_g27191_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27024 __tmp27285 '12 '#f '#f)) - (let ((__tmp27287 |gerbil/core/mop~MOP-5[1]#_g27288_|)) + (##unchecked-structure-set! __obj26846 __tmp27190 '3 '#f '#f)) + (let ((__tmp27192 |gerbil/core/mop~MOP-5[1]#_g27193_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27024 __tmp27287 '14 '#f '#f)) + (##unchecked-structure-set! __obj26846 __tmp27192 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27024 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26846 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27024 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26846 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27024 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26846 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27024 '() '18 '#f '#f)) - __obj27024)) - (define |gerbil/core/mop~MOP-5[:0:]#:boolean| - (let ((__obj27025 + (##unchecked-structure-set! __obj26846 '() '18 '#f '#f)) + __obj26846)) + (define |gerbil/core/mop~MOP-5[:0:]#:void| + (let ((__obj26847 (let () (declare (not safe)) (##structure @@ -2003,40 +2805,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27025 'boolean '1 '#f '#f)) + (##unchecked-structure-set! __obj26847 'void '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27025 'boolean '2 '#f '#f)) - (let ((__tmp27289 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj26847 'void '2 '#f '#f)) + (let ((__tmp27194 (cons |gerbil/core/mop~MOP-5[1]#_g27179_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27025 __tmp27289 '3 '#f '#f)) + (##unchecked-structure-set! __obj26847 __tmp27194 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27025 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26847 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27025 '#t '9 '#f '#f)) - (let ((__tmp27290 |gerbil/core/mop~MOP-5[1]#_g27291_|)) + (##unchecked-structure-set! __obj26847 '#t '10 '#f '#f)) + (let ((__tmp27195 |gerbil/core/mop~MOP-5[1]#_g27196_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27025 __tmp27290 '12 '#f '#f)) - (let ((__tmp27292 |gerbil/core/mop~MOP-5[1]#_g27293_|)) + (##unchecked-structure-set! __obj26847 __tmp27195 '3 '#f '#f)) + (let ((__tmp27197 |gerbil/core/mop~MOP-5[1]#_g27198_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27025 __tmp27292 '14 '#f '#f)) + (##unchecked-structure-set! __obj26847 __tmp27197 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27025 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26847 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27025 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26847 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27025 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26847 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27025 '() '18 '#f '#f)) - __obj27025)) - (define |gerbil/core/mop~MOP-5[:0:]#:atom| - (let ((__obj27026 + (##unchecked-structure-set! __obj26847 '() '18 '#f '#f)) + __obj26847)) + (define |gerbil/core/mop~MOP-5[:0:]#:unbound| + (let ((__obj26848 (let () (declare (not safe)) (##structure @@ -2064,40 +2866,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27026 'atom '1 '#f '#f)) + (##unchecked-structure-set! __obj26848 'unbound '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27026 'atom '2 '#f '#f)) - (let ((__tmp27294 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj26848 'unbound '2 '#f '#f)) + (let ((__tmp27199 (cons |gerbil/core/mop~MOP-5[1]#_g27179_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27026 __tmp27294 '3 '#f '#f)) + (##unchecked-structure-set! __obj26848 __tmp27199 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27026 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26848 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27026 '#t '9 '#f '#f)) - (let ((__tmp27295 |gerbil/core/mop~MOP-5[1]#_g27296_|)) + (##unchecked-structure-set! __obj26848 '#t '10 '#f '#f)) + (let ((__tmp27200 |gerbil/core/mop~MOP-5[1]#_g27201_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27026 __tmp27295 '12 '#f '#f)) - (let ((__tmp27297 |gerbil/core/mop~MOP-5[1]#_g27298_|)) + (##unchecked-structure-set! __obj26848 __tmp27200 '3 '#f '#f)) + (let ((__tmp27202 |gerbil/core/mop~MOP-5[1]#_g27203_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27026 __tmp27297 '14 '#f '#f)) + (##unchecked-structure-set! __obj26848 __tmp27202 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27026 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26848 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27026 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26848 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27026 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26848 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27026 '() '18 '#f '#f)) - __obj27026)) - (define |gerbil/core/mop~MOP-5[:0:]#:void| - (let ((__obj27027 + (##unchecked-structure-set! __obj26848 '() '18 '#f '#f)) + __obj26848)) + (define |gerbil/core/mop~MOP-5[:0:]#:unbound2| + (let ((__obj26849 (let () (declare (not safe)) (##structure @@ -2125,40 +2927,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 'void '1 '#f '#f)) + (##unchecked-structure-set! __obj26849 'unbound2 '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 'void '2 '#f '#f)) - (let ((__tmp27299 (cons |gerbil/core/mop~MOP-5[1]#_g27300_| '()))) + (##unchecked-structure-set! __obj26849 'unbound2 '2 '#f '#f)) + (let ((__tmp27204 (cons |gerbil/core/mop~MOP-5[1]#_g27179_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27027 __tmp27299 '3 '#f '#f)) + (##unchecked-structure-set! __obj26849 __tmp27204 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26849 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 '#t '9 '#f '#f)) - (let ((__tmp27301 |gerbil/core/mop~MOP-5[1]#_g27302_|)) + (##unchecked-structure-set! __obj26849 '#t '10 '#f '#f)) + (let ((__tmp27205 |gerbil/core/mop~MOP-5[1]#_g27206_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27027 __tmp27301 '12 '#f '#f)) - (let ((__tmp27303 |gerbil/core/mop~MOP-5[1]#_g27304_|)) + (##unchecked-structure-set! __obj26849 __tmp27205 '3 '#f '#f)) + (let ((__tmp27207 |gerbil/core/mop~MOP-5[1]#_g27208_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27027 __tmp27303 '14 '#f '#f)) + (##unchecked-structure-set! __obj26849 __tmp27207 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26849 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26849 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26849 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27027 '() '18 '#f '#f)) - __obj27027)) - (define |gerbil/core/mop~MOP-5[:0:]#:eof| - (let ((__obj27028 + (##unchecked-structure-set! __obj26849 '() '18 '#f '#f)) + __obj26849)) + (define |gerbil/core/mop~MOP-5[:0:]#:dssl-token| + (let ((__obj26850 (let () (declare (not safe)) (##structure @@ -2186,40 +2988,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 'eof '1 '#f '#f)) + (##unchecked-structure-set! __obj26850 'dssl-token '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 'eof '2 '#f '#f)) - (let ((__tmp27305 (cons |gerbil/core/mop~MOP-5[1]#_g27300_| '()))) + (##unchecked-structure-set! __obj26850 'dssl-token '2 '#f '#f)) + (let ((__tmp27209 (cons |gerbil/core/mop~MOP-5[1]#_g27179_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27028 __tmp27305 '3 '#f '#f)) + (##unchecked-structure-set! __obj26850 __tmp27209 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26850 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 '#t '9 '#f '#f)) - (let ((__tmp27306 |gerbil/core/mop~MOP-5[1]#_g27307_|)) + (##unchecked-structure-set! __obj26850 '#t '10 '#f '#f)) + (let ((__tmp27210 |gerbil/core/mop~MOP-5[1]#_g27211_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27028 __tmp27306 '12 '#f '#f)) - (let ((__tmp27308 |gerbil/core/mop~MOP-5[1]#_g27309_|)) + (##unchecked-structure-set! __obj26850 __tmp27210 '3 '#f '#f)) + (let ((__tmp27212 |gerbil/core/mop~MOP-5[1]#_g27213_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27028 __tmp27308 '14 '#f '#f)) + (##unchecked-structure-set! __obj26850 __tmp27212 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26850 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26850 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26850 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27028 '() '18 '#f '#f)) - __obj27028)) - (define |gerbil/core/mop~MOP-5[:0:]#:true| - (let ((__obj27029 + (##unchecked-structure-set! __obj26850 '() '18 '#f '#f)) + __obj26850)) + (define |gerbil/core/mop~MOP-5[:0:]#:dssl-optional| + (let ((__obj26851 (let () (declare (not safe)) (##structure @@ -2247,42 +3049,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27029 'true '1 '#f '#f)) + (##unchecked-structure-set! __obj26851 'optional '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27029 'true '2 '#f '#f)) - (let ((__tmp27310 - (cons |gerbil/core/mop~MOP-5[1]#_g27311_| - (cons |gerbil/core/mop~MOP-5[1]#_g27300_| '())))) + (##unchecked-structure-set! __obj26851 'optional '2 '#f '#f)) + (let ((__tmp27214 (cons |gerbil/core/mop~MOP-5[1]#_g27215_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27029 __tmp27310 '3 '#f '#f)) + (##unchecked-structure-set! __obj26851 __tmp27214 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27029 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26851 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27029 '#t '9 '#f '#f)) - (let ((__tmp27312 |gerbil/core/mop~MOP-5[1]#_g27313_|)) + (##unchecked-structure-set! __obj26851 '#t '10 '#f '#f)) + (let ((__tmp27216 |gerbil/core/mop~MOP-5[1]#_g27217_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27029 __tmp27312 '12 '#f '#f)) - (let ((__tmp27314 |gerbil/core/mop~MOP-5[1]#_g27315_|)) + (##unchecked-structure-set! __obj26851 __tmp27216 '3 '#f '#f)) + (let ((__tmp27218 |gerbil/core/mop~MOP-5[1]#_g27219_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27029 __tmp27314 '14 '#f '#f)) + (##unchecked-structure-set! __obj26851 __tmp27218 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27029 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26851 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27029 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26851 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27029 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26851 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27029 '() '18 '#f '#f)) - __obj27029)) - (define |gerbil/core/mop~MOP-5[:0:]#:false| - (let ((__obj27030 + (##unchecked-structure-set! __obj26851 '() '18 '#f '#f)) + __obj26851)) + (define |gerbil/core/mop~MOP-5[:0:]#:dssl-rest| + (let ((__obj26852 (let () (declare (not safe)) (##structure @@ -2310,42 +3110,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 'false '1 '#f '#f)) + (##unchecked-structure-set! __obj26852 'rest '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 'false '2 '#f '#f)) - (let ((__tmp27316 - (cons |gerbil/core/mop~MOP-5[1]#_g27311_| - (cons |gerbil/core/mop~MOP-5[1]#_g27300_| '())))) + (##unchecked-structure-set! __obj26852 'rest '2 '#f '#f)) + (let ((__tmp27220 (cons |gerbil/core/mop~MOP-5[1]#_g27215_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27030 __tmp27316 '3 '#f '#f)) + (##unchecked-structure-set! __obj26852 __tmp27220 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26852 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 '#t '9 '#f '#f)) - (let ((__tmp27317 |gerbil/core/mop~MOP-5[1]#_g27318_|)) + (##unchecked-structure-set! __obj26852 '#t '10 '#f '#f)) + (let ((__tmp27221 |gerbil/core/mop~MOP-5[1]#_g27222_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27030 __tmp27317 '12 '#f '#f)) - (let ((__tmp27319 |gerbil/core/mop~MOP-5[1]#_g27320_|)) + (##unchecked-structure-set! __obj26852 __tmp27221 '3 '#f '#f)) + (let ((__tmp27223 |gerbil/core/mop~MOP-5[1]#_g27224_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27030 __tmp27319 '14 '#f '#f)) + (##unchecked-structure-set! __obj26852 __tmp27223 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26852 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26852 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26852 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27030 '() '18 '#f '#f)) - __obj27030)) - (define |gerbil/core/mop~MOP-5[:0:]#:special| - (let ((__obj27031 + (##unchecked-structure-set! __obj26852 '() '18 '#f '#f)) + __obj26852)) + (define |gerbil/core/mop~MOP-5[:0:]#:dssl-key| + (let ((__obj26853 (let () (declare (not safe)) (##structure @@ -2373,40 +3171,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 'special '1 '#f '#f)) + (##unchecked-structure-set! __obj26853 'key '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 'special '2 '#f '#f)) - (let ((__tmp27321 (cons |gerbil/core/mop~MOP-5[1]#_g27300_| '()))) + (##unchecked-structure-set! __obj26853 'key '2 '#f '#f)) + (let ((__tmp27225 (cons |gerbil/core/mop~MOP-5[1]#_g27215_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27031 __tmp27321 '3 '#f '#f)) + (##unchecked-structure-set! __obj26853 __tmp27225 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26853 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 '#t '9 '#f '#f)) - (let ((__tmp27322 |gerbil/core/mop~MOP-5[1]#_g27323_|)) + (##unchecked-structure-set! __obj26853 '#t '10 '#f '#f)) + (let ((__tmp27226 |gerbil/core/mop~MOP-5[1]#_g27227_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27031 __tmp27322 '12 '#f '#f)) - (let ((__tmp27324 |gerbil/core/mop~MOP-5[1]#_g27325_|)) + (##unchecked-structure-set! __obj26853 __tmp27226 '3 '#f '#f)) + (let ((__tmp27228 |gerbil/core/mop~MOP-5[1]#_g27229_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27031 __tmp27324 '14 '#f '#f)) + (##unchecked-structure-set! __obj26853 __tmp27228 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26853 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26853 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26853 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27031 '() '18 '#f '#f)) - __obj27031)) + (##unchecked-structure-set! __obj26853 '() '18 '#f '#f)) + __obj26853)) (define |gerbil/core/mop~MOP-5[:0:]#:number| - (let ((__obj27032 + (let ((__obj26854 (let () (declare (not safe)) (##structure @@ -2434,40 +3232,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 'number '1 '#f '#f)) + (##unchecked-structure-set! __obj26854 'number '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 'number '2 '#f '#f)) - (let ((__tmp27326 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26854 'number '2 '#f '#f)) + (let ((__tmp27230 (cons |gerbil/core/mop~MOP-5[1]#_g27139_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27032 __tmp27326 '3 '#f '#f)) + (##unchecked-structure-set! __obj26854 __tmp27230 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26854 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 '#t '9 '#f '#f)) - (let ((__tmp27327 |gerbil/core/mop~MOP-5[1]#_g27328_|)) + (##unchecked-structure-set! __obj26854 '#t '10 '#f '#f)) + (let ((__tmp27231 |gerbil/core/mop~MOP-5[1]#_g27232_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27032 __tmp27327 '12 '#f '#f)) - (let ((__tmp27329 |gerbil/core/mop~MOP-5[1]#_g27330_|)) + (##unchecked-structure-set! __obj26854 __tmp27231 '3 '#f '#f)) + (let ((__tmp27233 |gerbil/core/mop~MOP-5[1]#_g27234_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27032 __tmp27329 '14 '#f '#f)) + (##unchecked-structure-set! __obj26854 __tmp27233 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26854 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26854 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26854 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27032 '() '18 '#f '#f)) - __obj27032)) + (##unchecked-structure-set! __obj26854 '() '18 '#f '#f)) + __obj26854)) (define |gerbil/core/mop~MOP-5[:0:]#:real| - (let ((__obj27033 + (let ((__obj26855 (let () (declare (not safe)) (##structure @@ -2495,40 +3293,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 'real '1 '#f '#f)) + (##unchecked-structure-set! __obj26855 'real '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 'real '2 '#f '#f)) - (let ((__tmp27331 (cons |gerbil/core/mop~MOP-5[1]#_g27332_| '()))) + (##unchecked-structure-set! __obj26855 'real '2 '#f '#f)) + (let ((__tmp27235 (cons |gerbil/core/mop~MOP-5[1]#_g27236_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27033 __tmp27331 '3 '#f '#f)) + (##unchecked-structure-set! __obj26855 __tmp27235 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26855 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 '#t '9 '#f '#f)) - (let ((__tmp27333 |gerbil/core/mop~MOP-5[1]#_g27334_|)) + (##unchecked-structure-set! __obj26855 '#t '10 '#f '#f)) + (let ((__tmp27237 |gerbil/core/mop~MOP-5[1]#_g27238_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27033 __tmp27333 '12 '#f '#f)) - (let ((__tmp27335 |gerbil/core/mop~MOP-5[1]#_g27336_|)) + (##unchecked-structure-set! __obj26855 __tmp27237 '3 '#f '#f)) + (let ((__tmp27239 |gerbil/core/mop~MOP-5[1]#_g27240_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27033 __tmp27335 '14 '#f '#f)) + (##unchecked-structure-set! __obj26855 __tmp27239 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26855 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26855 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26855 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27033 '() '18 '#f '#f)) - __obj27033)) + (##unchecked-structure-set! __obj26855 '() '18 '#f '#f)) + __obj26855)) (define |gerbil/core/mop~MOP-5[:0:]#:integer| - (let ((__obj27034 + (let ((__obj26856 (let () (declare (not safe)) (##structure @@ -2556,40 +3354,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 'integer '1 '#f '#f)) + (##unchecked-structure-set! __obj26856 'integer '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 'integer '2 '#f '#f)) - (let ((__tmp27337 (cons |gerbil/core/mop~MOP-5[1]#_g27338_| '()))) + (##unchecked-structure-set! __obj26856 'integer '2 '#f '#f)) + (let ((__tmp27241 (cons |gerbil/core/mop~MOP-5[1]#_g27242_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27034 __tmp27337 '3 '#f '#f)) + (##unchecked-structure-set! __obj26856 __tmp27241 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26856 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 '#t '9 '#f '#f)) - (let ((__tmp27339 |gerbil/core/mop~MOP-5[1]#_g27340_|)) + (##unchecked-structure-set! __obj26856 '#t '10 '#f '#f)) + (let ((__tmp27243 |gerbil/core/mop~MOP-5[1]#_g27244_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27034 __tmp27339 '12 '#f '#f)) - (let ((__tmp27341 |gerbil/core/mop~MOP-5[1]#_g27342_|)) + (##unchecked-structure-set! __obj26856 __tmp27243 '3 '#f '#f)) + (let ((__tmp27245 |gerbil/core/mop~MOP-5[1]#_g27246_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27034 __tmp27341 '14 '#f '#f)) + (##unchecked-structure-set! __obj26856 __tmp27245 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26856 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26856 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26856 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27034 '() '18 '#f '#f)) - __obj27034)) + (##unchecked-structure-set! __obj26856 '() '18 '#f '#f)) + __obj26856)) (define |gerbil/core/mop~MOP-5[:0:]#:fixnum| - (let ((__obj27035 + (let ((__obj26857 (let () (declare (not safe)) (##structure @@ -2617,42 +3415,42 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 'fixnum '1 '#f '#f)) + (##unchecked-structure-set! __obj26857 'fixnum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 'fixnum '2 '#f '#f)) - (let ((__tmp27343 - (cons |gerbil/core/mop~MOP-5[1]#_g27344_| - (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '())))) + (##unchecked-structure-set! __obj26857 'fixnum '2 '#f '#f)) + (let ((__tmp27247 + (cons |gerbil/core/mop~MOP-5[1]#_g27248_| + (cons |gerbil/core/mop~MOP-5[1]#_g27156_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27035 __tmp27343 '3 '#f '#f)) + (##unchecked-structure-set! __obj26857 __tmp27247 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26857 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 '#t '9 '#f '#f)) - (let ((__tmp27345 |gerbil/core/mop~MOP-5[1]#_g27346_|)) + (##unchecked-structure-set! __obj26857 '#t '10 '#f '#f)) + (let ((__tmp27249 |gerbil/core/mop~MOP-5[1]#_g27250_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27035 __tmp27345 '12 '#f '#f)) - (let ((__tmp27347 |gerbil/core/mop~MOP-5[1]#_g27348_|)) + (##unchecked-structure-set! __obj26857 __tmp27249 '3 '#f '#f)) + (let ((__tmp27251 |gerbil/core/mop~MOP-5[1]#_g27252_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27035 __tmp27347 '14 '#f '#f)) + (##unchecked-structure-set! __obj26857 __tmp27251 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26857 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26857 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26857 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27035 '() '18 '#f '#f)) - __obj27035)) + (##unchecked-structure-set! __obj26857 '() '18 '#f '#f)) + __obj26857)) (define |gerbil/core/mop~MOP-5[:0:]#:bignum| - (let ((__obj27036 + (let ((__obj26858 (let () (declare (not safe)) (##structure @@ -2680,40 +3478,42 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 'bignum '1 '#f '#f)) + (##unchecked-structure-set! __obj26858 'bignum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 'bignum '2 '#f '#f)) - (let ((__tmp27349 (cons |gerbil/core/mop~MOP-5[1]#_g27344_| '()))) + (##unchecked-structure-set! __obj26858 'bignum '2 '#f '#f)) + (let ((__tmp27253 + (cons |gerbil/core/mop~MOP-5[1]#_g27248_| + (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27036 __tmp27349 '3 '#f '#f)) + (##unchecked-structure-set! __obj26858 __tmp27253 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26858 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 '#t '9 '#f '#f)) - (let ((__tmp27350 |gerbil/core/mop~MOP-5[1]#_g27351_|)) + (##unchecked-structure-set! __obj26858 '#t '10 '#f '#f)) + (let ((__tmp27254 |gerbil/core/mop~MOP-5[1]#_g27255_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27036 __tmp27350 '12 '#f '#f)) - (let ((__tmp27352 |gerbil/core/mop~MOP-5[1]#_g27353_|)) + (##unchecked-structure-set! __obj26858 __tmp27254 '3 '#f '#f)) + (let ((__tmp27256 |gerbil/core/mop~MOP-5[1]#_g27257_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27036 __tmp27352 '14 '#f '#f)) + (##unchecked-structure-set! __obj26858 __tmp27256 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26858 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26858 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26858 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27036 '() '18 '#f '#f)) - __obj27036)) + (##unchecked-structure-set! __obj26858 '() '18 '#f '#f)) + __obj26858)) (define |gerbil/core/mop~MOP-5[:0:]#:ratnum| - (let ((__obj27037 + (let ((__obj26859 (let () (declare (not safe)) (##structure @@ -2741,40 +3541,42 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 'ratnum '1 '#f '#f)) + (##unchecked-structure-set! __obj26859 'ratnum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 'ratnum '2 '#f '#f)) - (let ((__tmp27354 (cons |gerbil/core/mop~MOP-5[1]#_g27338_| '()))) + (##unchecked-structure-set! __obj26859 'ratnum '2 '#f '#f)) + (let ((__tmp27258 + (cons |gerbil/core/mop~MOP-5[1]#_g27242_| + (cons |gerbil/core/mop~MOP-5[1]#_g27259_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27037 __tmp27354 '3 '#f '#f)) + (##unchecked-structure-set! __obj26859 __tmp27258 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26859 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 '#t '9 '#f '#f)) - (let ((__tmp27355 |gerbil/core/mop~MOP-5[1]#_g27356_|)) + (##unchecked-structure-set! __obj26859 '#t '10 '#f '#f)) + (let ((__tmp27260 |gerbil/core/mop~MOP-5[1]#_g27261_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27037 __tmp27355 '12 '#f '#f)) - (let ((__tmp27357 |gerbil/core/mop~MOP-5[1]#_g27358_|)) + (##unchecked-structure-set! __obj26859 __tmp27260 '3 '#f '#f)) + (let ((__tmp27262 |gerbil/core/mop~MOP-5[1]#_g27263_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27037 __tmp27357 '14 '#f '#f)) + (##unchecked-structure-set! __obj26859 __tmp27262 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26859 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26859 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26859 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27037 '() '18 '#f '#f)) - __obj27037)) + (##unchecked-structure-set! __obj26859 '() '18 '#f '#f)) + __obj26859)) (define |gerbil/core/mop~MOP-5[:0:]#:flonum| - (let ((__obj27038 + (let ((__obj26860 (let () (declare (not safe)) (##structure @@ -2802,40 +3604,166 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 'flonum '1 '#f '#f)) + (##unchecked-structure-set! __obj26860 'flonum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 'flonum '2 '#f '#f)) - (let ((__tmp27359 (cons |gerbil/core/mop~MOP-5[1]#_g27338_| '()))) + (##unchecked-structure-set! __obj26860 'flonum '2 '#f '#f)) + (let ((__tmp27264 (cons |gerbil/core/mop~MOP-5[1]#_g27242_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27038 __tmp27359 '3 '#f '#f)) + (##unchecked-structure-set! __obj26860 __tmp27264 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26860 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 '#t '9 '#f '#f)) - (let ((__tmp27360 |gerbil/core/mop~MOP-5[1]#_g27361_|)) + (##unchecked-structure-set! __obj26860 '#t '10 '#f '#f)) + (let ((__tmp27265 |gerbil/core/mop~MOP-5[1]#_g27266_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27038 __tmp27360 '12 '#f '#f)) - (let ((__tmp27362 |gerbil/core/mop~MOP-5[1]#_g27363_|)) + (##unchecked-structure-set! __obj26860 __tmp27265 '3 '#f '#f)) + (let ((__tmp27267 |gerbil/core/mop~MOP-5[1]#_g27268_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26860 __tmp27267 '14 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26860 '() '15 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26860 '() '16 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26860 '() '17 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26860 '() '18 '#f '#f)) + __obj26860)) + (define |gerbil/core/mop~MOP-5[:0:]#:stflonum| + (let ((__obj26861 + (let () + (declare (not safe)) + (##structure + gerbil/core/mop~MOP-2#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26861 'stflonum '1 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26861 'stflonum '2 '#f '#f)) + (let ((__tmp27269 + (cons |gerbil/core/mop~MOP-5[1]#_g27270_| + (cons |gerbil/core/mop~MOP-5[1]#_g27156_| '())))) + (declare (not safe)) + (##unchecked-structure-set! __obj26861 __tmp27269 '4 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26861 '() '5 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26861 '#t '10 '#f '#f)) + (let ((__tmp27271 |gerbil/core/mop~MOP-5[1]#_g27272_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26861 __tmp27271 '3 '#f '#f)) + (let ((__tmp27273 |gerbil/core/mop~MOP-5[1]#_g27274_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26861 __tmp27273 '14 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26861 '() '15 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26861 '() '16 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26861 '() '17 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26861 '() '18 '#f '#f)) + __obj26861)) + (define |gerbil/core/mop~MOP-5[:0:]#:haflonum| + (let ((__obj26862 + (let () + (declare (not safe)) + (##structure + gerbil/core/mop~MOP-2#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26862 'haflonum '1 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26862 'haflonum '2 '#f '#f)) + (let ((__tmp27275 + (cons |gerbil/core/mop~MOP-5[1]#_g27270_| + (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27038 __tmp27362 '14 '#f '#f)) + (##unchecked-structure-set! __obj26862 __tmp27275 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26862 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26862 '#t '10 '#f '#f)) + (let ((__tmp27276 |gerbil/core/mop~MOP-5[1]#_g27277_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26862 __tmp27276 '3 '#f '#f)) + (let ((__tmp27278 |gerbil/core/mop~MOP-5[1]#_g27279_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj26862 __tmp27278 '14 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26862 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26862 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27038 '() '18 '#f '#f)) - __obj27038)) + (##unchecked-structure-set! __obj26862 '() '17 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj26862 '() '18 '#f '#f)) + __obj26862)) (define |gerbil/core/mop~MOP-5[:0:]#:cpxnum| - (let ((__obj27039 + (let ((__obj26863 (let () (declare (not safe)) (##structure @@ -2863,40 +3791,42 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 'cpxnum '1 '#f '#f)) + (##unchecked-structure-set! __obj26863 'cpxnum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 'cpxnum '2 '#f '#f)) - (let ((__tmp27364 (cons |gerbil/core/mop~MOP-5[1]#_g27332_| '()))) + (##unchecked-structure-set! __obj26863 'cpxnum '2 '#f '#f)) + (let ((__tmp27280 + (cons |gerbil/core/mop~MOP-5[1]#_g27236_| + (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27039 __tmp27364 '3 '#f '#f)) + (##unchecked-structure-set! __obj26863 __tmp27280 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26863 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 '#t '9 '#f '#f)) - (let ((__tmp27365 |gerbil/core/mop~MOP-5[1]#_g27366_|)) + (##unchecked-structure-set! __obj26863 '#t '10 '#f '#f)) + (let ((__tmp27281 |gerbil/core/mop~MOP-5[1]#_g27282_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27039 __tmp27365 '12 '#f '#f)) - (let ((__tmp27367 |gerbil/core/mop~MOP-5[1]#_g27368_|)) + (##unchecked-structure-set! __obj26863 __tmp27281 '3 '#f '#f)) + (let ((__tmp27283 |gerbil/core/mop~MOP-5[1]#_g27284_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27039 __tmp27367 '14 '#f '#f)) + (##unchecked-structure-set! __obj26863 __tmp27283 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26863 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26863 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26863 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27039 '() '18 '#f '#f)) - __obj27039)) + (##unchecked-structure-set! __obj26863 '() '18 '#f '#f)) + __obj26863)) (define |gerbil/core/mop~MOP-5[:0:]#:symbolic| - (let ((__obj27040 + (let ((__obj26864 (let () (declare (not safe)) (##structure @@ -2924,40 +3854,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 'symbolic '1 '#f '#f)) + (##unchecked-structure-set! __obj26864 'symbolic '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 'symbolic '2 '#f '#f)) - (let ((__tmp27369 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26864 'symbolic '2 '#f '#f)) + (let ((__tmp27285 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27040 __tmp27369 '3 '#f '#f)) + (##unchecked-structure-set! __obj26864 __tmp27285 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26864 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 '#t '9 '#f '#f)) - (let ((__tmp27370 |gerbil/core/mop~MOP-5[1]#_g27371_|)) + (##unchecked-structure-set! __obj26864 '#t '10 '#f '#f)) + (let ((__tmp27286 |gerbil/core/mop~MOP-5[1]#_g27287_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27040 __tmp27370 '12 '#f '#f)) - (let ((__tmp27372 |gerbil/core/mop~MOP-5[1]#_g27373_|)) + (##unchecked-structure-set! __obj26864 __tmp27286 '3 '#f '#f)) + (let ((__tmp27288 |gerbil/core/mop~MOP-5[1]#_g27289_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27040 __tmp27372 '14 '#f '#f)) + (##unchecked-structure-set! __obj26864 __tmp27288 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26864 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26864 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26864 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27040 '() '18 '#f '#f)) - __obj27040)) + (##unchecked-structure-set! __obj26864 '() '18 '#f '#f)) + __obj26864)) (define |gerbil/core/mop~MOP-5[:0:]#:symbol| - (let ((__obj27041 + (let ((__obj26865 (let () (declare (not safe)) (##structure @@ -2985,40 +3915,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 'symbol '1 '#f '#f)) + (##unchecked-structure-set! __obj26865 'symbol '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 'symbol '2 '#f '#f)) - (let ((__tmp27374 (cons |gerbil/core/mop~MOP-5[1]#_g27375_| '()))) + (##unchecked-structure-set! __obj26865 'symbol '2 '#f '#f)) + (let ((__tmp27290 (cons |gerbil/core/mop~MOP-5[1]#_g27291_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27041 __tmp27374 '3 '#f '#f)) + (##unchecked-structure-set! __obj26865 __tmp27290 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26865 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 '#t '9 '#f '#f)) - (let ((__tmp27376 |gerbil/core/mop~MOP-5[1]#_g27377_|)) + (##unchecked-structure-set! __obj26865 '#t '10 '#f '#f)) + (let ((__tmp27292 |gerbil/core/mop~MOP-5[1]#_g27293_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27041 __tmp27376 '12 '#f '#f)) - (let ((__tmp27378 |gerbil/core/mop~MOP-5[1]#_g27379_|)) + (##unchecked-structure-set! __obj26865 __tmp27292 '3 '#f '#f)) + (let ((__tmp27294 |gerbil/core/mop~MOP-5[1]#_g27295_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27041 __tmp27378 '14 '#f '#f)) + (##unchecked-structure-set! __obj26865 __tmp27294 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26865 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26865 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26865 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27041 '() '18 '#f '#f)) - __obj27041)) + (##unchecked-structure-set! __obj26865 '() '18 '#f '#f)) + __obj26865)) (define |gerbil/core/mop~MOP-5[:0:]#:keyword| - (let ((__obj27042 + (let ((__obj26866 (let () (declare (not safe)) (##structure @@ -3046,40 +3976,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 'keyword '1 '#f '#f)) + (##unchecked-structure-set! __obj26866 'keyword '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 'keyword '2 '#f '#f)) - (let ((__tmp27380 (cons |gerbil/core/mop~MOP-5[1]#_g27375_| '()))) + (##unchecked-structure-set! __obj26866 'keyword '2 '#f '#f)) + (let ((__tmp27296 (cons |gerbil/core/mop~MOP-5[1]#_g27291_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27042 __tmp27380 '3 '#f '#f)) + (##unchecked-structure-set! __obj26866 __tmp27296 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26866 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 '#t '9 '#f '#f)) - (let ((__tmp27381 |gerbil/core/mop~MOP-5[1]#_g27382_|)) + (##unchecked-structure-set! __obj26866 '#t '10 '#f '#f)) + (let ((__tmp27297 |gerbil/core/mop~MOP-5[1]#_g27298_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27042 __tmp27381 '12 '#f '#f)) - (let ((__tmp27383 |gerbil/core/mop~MOP-5[1]#_g27384_|)) + (##unchecked-structure-set! __obj26866 __tmp27297 '3 '#f '#f)) + (let ((__tmp27299 |gerbil/core/mop~MOP-5[1]#_g27300_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27042 __tmp27383 '14 '#f '#f)) + (##unchecked-structure-set! __obj26866 __tmp27299 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26866 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26866 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26866 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27042 '() '18 '#f '#f)) - __obj27042)) + (##unchecked-structure-set! __obj26866 '() '18 '#f '#f)) + __obj26866)) (define |gerbil/core/mop~MOP-5[:0:]#:list| - (let ((__obj27043 + (let ((__obj26867 (let () (declare (not safe)) (##structure @@ -3107,40 +4037,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 'list '1 '#f '#f)) + (##unchecked-structure-set! __obj26867 'list '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 'list '2 '#f '#f)) - (let ((__tmp27385 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26867 'list '2 '#f '#f)) + (let ((__tmp27301 (cons |gerbil/core/mop~MOP-5[1]#_g27139_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27043 __tmp27385 '3 '#f '#f)) + (##unchecked-structure-set! __obj26867 __tmp27301 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26867 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 '#t '9 '#f '#f)) - (let ((__tmp27386 |gerbil/core/mop~MOP-5[1]#_g27387_|)) + (##unchecked-structure-set! __obj26867 '#t '10 '#f '#f)) + (let ((__tmp27302 |gerbil/core/mop~MOP-5[1]#_g27303_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27043 __tmp27386 '12 '#f '#f)) - (let ((__tmp27388 |gerbil/core/mop~MOP-5[1]#_g27389_|)) + (##unchecked-structure-set! __obj26867 __tmp27302 '3 '#f '#f)) + (let ((__tmp27304 |gerbil/core/mop~MOP-5[1]#_g27305_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27043 __tmp27388 '14 '#f '#f)) + (##unchecked-structure-set! __obj26867 __tmp27304 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26867 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26867 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26867 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27043 '() '18 '#f '#f)) - __obj27043)) + (##unchecked-structure-set! __obj26867 '() '18 '#f '#f)) + __obj26867)) (define |gerbil/core/mop~MOP-5[:0:]#:pair| - (let ((__obj27044 + (let ((__obj26868 (let () (declare (not safe)) (##structure @@ -3168,40 +4098,42 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 'pair '1 '#f '#f)) + (##unchecked-structure-set! __obj26868 'pair '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 'pair '2 '#f '#f)) - (let ((__tmp27390 (cons |gerbil/core/mop~MOP-5[1]#_g27391_| '()))) + (##unchecked-structure-set! __obj26868 'pair '2 '#f '#f)) + (let ((__tmp27306 + (cons |gerbil/core/mop~MOP-5[1]#_g27307_| + (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27044 __tmp27390 '3 '#f '#f)) + (##unchecked-structure-set! __obj26868 __tmp27306 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26868 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 '#t '9 '#f '#f)) - (let ((__tmp27392 |gerbil/core/mop~MOP-5[1]#_g27393_|)) + (##unchecked-structure-set! __obj26868 '#t '10 '#f '#f)) + (let ((__tmp27308 |gerbil/core/mop~MOP-5[1]#_g27309_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27044 __tmp27392 '12 '#f '#f)) - (let ((__tmp27394 |gerbil/core/mop~MOP-5[1]#_g27395_|)) + (##unchecked-structure-set! __obj26868 __tmp27308 '3 '#f '#f)) + (let ((__tmp27310 |gerbil/core/mop~MOP-5[1]#_g27311_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27044 __tmp27394 '14 '#f '#f)) + (##unchecked-structure-set! __obj26868 __tmp27310 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26868 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26868 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26868 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27044 '() '18 '#f '#f)) - __obj27044)) + (##unchecked-structure-set! __obj26868 '() '18 '#f '#f)) + __obj26868)) (define |gerbil/core/mop~MOP-5[:0:]#:null| - (let ((__obj27045 + (let ((__obj26869 (let () (declare (not safe)) (##structure @@ -3229,42 +4161,42 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 'null '1 '#f '#f)) + (##unchecked-structure-set! __obj26869 'null '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 'null '2 '#f '#f)) - (let ((__tmp27396 - (cons |gerbil/core/mop~MOP-5[1]#_g27391_| - (cons |gerbil/core/mop~MOP-5[1]#_g27300_| '())))) + (##unchecked-structure-set! __obj26869 'null '2 '#f '#f)) + (let ((__tmp27312 + (cons |gerbil/core/mop~MOP-5[1]#_g27307_| + (cons |gerbil/core/mop~MOP-5[1]#_g27179_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27045 __tmp27396 '3 '#f '#f)) + (##unchecked-structure-set! __obj26869 __tmp27312 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26869 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 '#t '9 '#f '#f)) - (let ((__tmp27397 |gerbil/core/mop~MOP-5[1]#_g27398_|)) + (##unchecked-structure-set! __obj26869 '#t '10 '#f '#f)) + (let ((__tmp27313 |gerbil/core/mop~MOP-5[1]#_g27314_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27045 __tmp27397 '12 '#f '#f)) - (let ((__tmp27399 |gerbil/core/mop~MOP-5[1]#_g27400_|)) + (##unchecked-structure-set! __obj26869 __tmp27313 '3 '#f '#f)) + (let ((__tmp27315 |gerbil/core/mop~MOP-5[1]#_g27316_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27045 __tmp27399 '14 '#f '#f)) + (##unchecked-structure-set! __obj26869 __tmp27315 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26869 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26869 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26869 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27045 '() '18 '#f '#f)) - __obj27045)) + (##unchecked-structure-set! __obj26869 '() '18 '#f '#f)) + __obj26869)) (define |gerbil/core/mop~MOP-5[:0:]#:sequence| - (let ((__obj27046 + (let ((__obj26870 (let () (declare (not safe)) (##structure @@ -3292,40 +4224,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 'sequence '1 '#f '#f)) + (##unchecked-structure-set! __obj26870 'sequence '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 'sequence '2 '#f '#f)) - (let ((__tmp27401 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26870 'sequence '2 '#f '#f)) + (let ((__tmp27317 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27046 __tmp27401 '3 '#f '#f)) + (##unchecked-structure-set! __obj26870 __tmp27317 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26870 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 '#t '9 '#f '#f)) - (let ((__tmp27402 |gerbil/core/mop~MOP-5[1]#_g27403_|)) + (##unchecked-structure-set! __obj26870 '#t '10 '#f '#f)) + (let ((__tmp27318 |gerbil/core/mop~MOP-5[1]#_g27319_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27046 __tmp27402 '12 '#f '#f)) - (let ((__tmp27404 |gerbil/core/mop~MOP-5[1]#_g27405_|)) + (##unchecked-structure-set! __obj26870 __tmp27318 '3 '#f '#f)) + (let ((__tmp27320 |gerbil/core/mop~MOP-5[1]#_g27321_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27046 __tmp27404 '14 '#f '#f)) + (##unchecked-structure-set! __obj26870 __tmp27320 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26870 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26870 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26870 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27046 '() '18 '#f '#f)) - __obj27046)) + (##unchecked-structure-set! __obj26870 '() '18 '#f '#f)) + __obj26870)) (define |gerbil/core/mop~MOP-5[:0:]#:vector| - (let ((__obj27047 + (let ((__obj26871 (let () (declare (not safe)) (##structure @@ -3353,40 +4285,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 'vector '1 '#f '#f)) + (##unchecked-structure-set! __obj26871 'vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 'vector '2 '#f '#f)) - (let ((__tmp27406 (cons |gerbil/core/mop~MOP-5[1]#_g27407_| '()))) + (##unchecked-structure-set! __obj26871 'vector '2 '#f '#f)) + (let ((__tmp27322 (cons |gerbil/core/mop~MOP-5[1]#_g27323_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27047 __tmp27406 '3 '#f '#f)) + (##unchecked-structure-set! __obj26871 __tmp27322 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26871 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 '#t '9 '#f '#f)) - (let ((__tmp27408 |gerbil/core/mop~MOP-5[1]#_g27409_|)) + (##unchecked-structure-set! __obj26871 '#t '10 '#f '#f)) + (let ((__tmp27324 |gerbil/core/mop~MOP-5[1]#_g27325_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27047 __tmp27408 '12 '#f '#f)) - (let ((__tmp27410 |gerbil/core/mop~MOP-5[1]#_g27411_|)) + (##unchecked-structure-set! __obj26871 __tmp27324 '3 '#f '#f)) + (let ((__tmp27326 |gerbil/core/mop~MOP-5[1]#_g27327_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27047 __tmp27410 '14 '#f '#f)) + (##unchecked-structure-set! __obj26871 __tmp27326 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26871 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26871 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26871 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27047 '() '18 '#f '#f)) - __obj27047)) + (##unchecked-structure-set! __obj26871 '() '18 '#f '#f)) + __obj26871)) (define |gerbil/core/mop~MOP-5[:0:]#:string| - (let ((__obj27048 + (let ((__obj26872 (let () (declare (not safe)) (##structure @@ -3414,40 +4346,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 'string '1 '#f '#f)) + (##unchecked-structure-set! __obj26872 'string '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 'string '2 '#f '#f)) - (let ((__tmp27412 (cons |gerbil/core/mop~MOP-5[1]#_g27407_| '()))) + (##unchecked-structure-set! __obj26872 'string '2 '#f '#f)) + (let ((__tmp27328 (cons |gerbil/core/mop~MOP-5[1]#_g27323_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27048 __tmp27412 '3 '#f '#f)) + (##unchecked-structure-set! __obj26872 __tmp27328 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26872 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 '#t '9 '#f '#f)) - (let ((__tmp27413 |gerbil/core/mop~MOP-5[1]#_g27414_|)) + (##unchecked-structure-set! __obj26872 '#t '10 '#f '#f)) + (let ((__tmp27329 |gerbil/core/mop~MOP-5[1]#_g27330_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27048 __tmp27413 '12 '#f '#f)) - (let ((__tmp27415 |gerbil/core/mop~MOP-5[1]#_g27416_|)) + (##unchecked-structure-set! __obj26872 __tmp27329 '3 '#f '#f)) + (let ((__tmp27331 |gerbil/core/mop~MOP-5[1]#_g27332_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27048 __tmp27415 '14 '#f '#f)) + (##unchecked-structure-set! __obj26872 __tmp27331 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26872 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26872 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26872 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27048 '() '18 '#f '#f)) - __obj27048)) + (##unchecked-structure-set! __obj26872 '() '18 '#f '#f)) + __obj26872)) (define |gerbil/core/mop~MOP-5[:0:]#:hvector| - (let ((__obj27049 + (let ((__obj26873 (let () (declare (not safe)) (##structure @@ -3475,40 +4407,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 'hvector '1 '#f '#f)) + (##unchecked-structure-set! __obj26873 'hvector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 'hvector '2 '#f '#f)) - (let ((__tmp27417 (cons |gerbil/core/mop~MOP-5[1]#_g27407_| '()))) + (##unchecked-structure-set! __obj26873 'hvector '2 '#f '#f)) + (let ((__tmp27333 (cons |gerbil/core/mop~MOP-5[1]#_g27323_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27049 __tmp27417 '3 '#f '#f)) + (##unchecked-structure-set! __obj26873 __tmp27333 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26873 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 '#t '9 '#f '#f)) - (let ((__tmp27418 |gerbil/core/mop~MOP-5[1]#_g27419_|)) + (##unchecked-structure-set! __obj26873 '#t '10 '#f '#f)) + (let ((__tmp27334 |gerbil/core/mop~MOP-5[1]#_g27335_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27049 __tmp27418 '12 '#f '#f)) - (let ((__tmp27420 |gerbil/core/mop~MOP-5[1]#_g27421_|)) + (##unchecked-structure-set! __obj26873 __tmp27334 '3 '#f '#f)) + (let ((__tmp27336 |gerbil/core/mop~MOP-5[1]#_g27337_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27049 __tmp27420 '14 '#f '#f)) + (##unchecked-structure-set! __obj26873 __tmp27336 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26873 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26873 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26873 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27049 '() '18 '#f '#f)) - __obj27049)) + (##unchecked-structure-set! __obj26873 '() '18 '#f '#f)) + __obj26873)) (define |gerbil/core/mop~MOP-5[:0:]#:u8vector| - (let ((__obj27050 + (let ((__obj26874 (let () (declare (not safe)) (##structure @@ -3536,40 +4468,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 'u8vector '1 '#f '#f)) + (##unchecked-structure-set! __obj26874 'u8vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 'u8vector '2 '#f '#f)) - (let ((__tmp27422 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj26874 'u8vector '2 '#f '#f)) + (let ((__tmp27338 (cons |gerbil/core/mop~MOP-5[1]#_g27339_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27050 __tmp27422 '3 '#f '#f)) + (##unchecked-structure-set! __obj26874 __tmp27338 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26874 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 '#t '9 '#f '#f)) - (let ((__tmp27424 |gerbil/core/mop~MOP-5[1]#_g27425_|)) + (##unchecked-structure-set! __obj26874 '#t '10 '#f '#f)) + (let ((__tmp27340 |gerbil/core/mop~MOP-5[1]#_g27341_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27050 __tmp27424 '12 '#f '#f)) - (let ((__tmp27426 |gerbil/core/mop~MOP-5[1]#_g27427_|)) + (##unchecked-structure-set! __obj26874 __tmp27340 '3 '#f '#f)) + (let ((__tmp27342 |gerbil/core/mop~MOP-5[1]#_g27343_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27050 __tmp27426 '14 '#f '#f)) + (##unchecked-structure-set! __obj26874 __tmp27342 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26874 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26874 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26874 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27050 '() '18 '#f '#f)) - __obj27050)) + (##unchecked-structure-set! __obj26874 '() '18 '#f '#f)) + __obj26874)) (define |gerbil/core/mop~MOP-5[:0:]#:s8vector| - (let ((__obj27051 + (let ((__obj26875 (let () (declare (not safe)) (##structure @@ -3597,40 +4529,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 's8vector '1 '#f '#f)) + (##unchecked-structure-set! __obj26875 's8vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 's8vector '2 '#f '#f)) - (let ((__tmp27428 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj26875 's8vector '2 '#f '#f)) + (let ((__tmp27344 (cons |gerbil/core/mop~MOP-5[1]#_g27339_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27051 __tmp27428 '3 '#f '#f)) + (##unchecked-structure-set! __obj26875 __tmp27344 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26875 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 '#t '9 '#f '#f)) - (let ((__tmp27429 |gerbil/core/mop~MOP-5[1]#_g27430_|)) + (##unchecked-structure-set! __obj26875 '#t '10 '#f '#f)) + (let ((__tmp27345 |gerbil/core/mop~MOP-5[1]#_g27346_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27051 __tmp27429 '12 '#f '#f)) - (let ((__tmp27431 |gerbil/core/mop~MOP-5[1]#_g27432_|)) + (##unchecked-structure-set! __obj26875 __tmp27345 '3 '#f '#f)) + (let ((__tmp27347 |gerbil/core/mop~MOP-5[1]#_g27348_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27051 __tmp27431 '14 '#f '#f)) + (##unchecked-structure-set! __obj26875 __tmp27347 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26875 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26875 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26875 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27051 '() '18 '#f '#f)) - __obj27051)) + (##unchecked-structure-set! __obj26875 '() '18 '#f '#f)) + __obj26875)) (define |gerbil/core/mop~MOP-5[:0:]#:u16vector| - (let ((__obj27052 + (let ((__obj26876 (let () (declare (not safe)) (##structure @@ -3658,40 +4590,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 'u16vector '1 '#f '#f)) + (##unchecked-structure-set! __obj26876 'u16vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 'u16vector '2 '#f '#f)) - (let ((__tmp27433 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj26876 'u16vector '2 '#f '#f)) + (let ((__tmp27349 (cons |gerbil/core/mop~MOP-5[1]#_g27339_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27052 __tmp27433 '3 '#f '#f)) + (##unchecked-structure-set! __obj26876 __tmp27349 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26876 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 '#t '9 '#f '#f)) - (let ((__tmp27434 |gerbil/core/mop~MOP-5[1]#_g27435_|)) + (##unchecked-structure-set! __obj26876 '#t '10 '#f '#f)) + (let ((__tmp27350 |gerbil/core/mop~MOP-5[1]#_g27351_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27052 __tmp27434 '12 '#f '#f)) - (let ((__tmp27436 |gerbil/core/mop~MOP-5[1]#_g27437_|)) + (##unchecked-structure-set! __obj26876 __tmp27350 '3 '#f '#f)) + (let ((__tmp27352 |gerbil/core/mop~MOP-5[1]#_g27353_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27052 __tmp27436 '14 '#f '#f)) + (##unchecked-structure-set! __obj26876 __tmp27352 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26876 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26876 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26876 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27052 '() '18 '#f '#f)) - __obj27052)) + (##unchecked-structure-set! __obj26876 '() '18 '#f '#f)) + __obj26876)) (define |gerbil/core/mop~MOP-5[:0:]#:s16vector| - (let ((__obj27053 + (let ((__obj26877 (let () (declare (not safe)) (##structure @@ -3719,40 +4651,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 's16vector '1 '#f '#f)) + (##unchecked-structure-set! __obj26877 's16vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 's16vector '2 '#f '#f)) - (let ((__tmp27438 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj26877 's16vector '2 '#f '#f)) + (let ((__tmp27354 (cons |gerbil/core/mop~MOP-5[1]#_g27339_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27053 __tmp27438 '3 '#f '#f)) + (##unchecked-structure-set! __obj26877 __tmp27354 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26877 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 '#t '9 '#f '#f)) - (let ((__tmp27439 |gerbil/core/mop~MOP-5[1]#_g27440_|)) + (##unchecked-structure-set! __obj26877 '#t '10 '#f '#f)) + (let ((__tmp27355 |gerbil/core/mop~MOP-5[1]#_g27356_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27053 __tmp27439 '12 '#f '#f)) - (let ((__tmp27441 |gerbil/core/mop~MOP-5[1]#_g27442_|)) + (##unchecked-structure-set! __obj26877 __tmp27355 '3 '#f '#f)) + (let ((__tmp27357 |gerbil/core/mop~MOP-5[1]#_g27358_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27053 __tmp27441 '14 '#f '#f)) + (##unchecked-structure-set! __obj26877 __tmp27357 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26877 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26877 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26877 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27053 '() '18 '#f '#f)) - __obj27053)) + (##unchecked-structure-set! __obj26877 '() '18 '#f '#f)) + __obj26877)) (define |gerbil/core/mop~MOP-5[:0:]#:u32vector| - (let ((__obj27054 + (let ((__obj26878 (let () (declare (not safe)) (##structure @@ -3780,40 +4712,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 'u32vector '1 '#f '#f)) + (##unchecked-structure-set! __obj26878 'u32vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 'u32vector '2 '#f '#f)) - (let ((__tmp27443 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj26878 'u32vector '2 '#f '#f)) + (let ((__tmp27359 (cons |gerbil/core/mop~MOP-5[1]#_g27339_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27054 __tmp27443 '3 '#f '#f)) + (##unchecked-structure-set! __obj26878 __tmp27359 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26878 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 '#t '9 '#f '#f)) - (let ((__tmp27444 |gerbil/core/mop~MOP-5[1]#_g27445_|)) + (##unchecked-structure-set! __obj26878 '#t '10 '#f '#f)) + (let ((__tmp27360 |gerbil/core/mop~MOP-5[1]#_g27361_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27054 __tmp27444 '12 '#f '#f)) - (let ((__tmp27446 |gerbil/core/mop~MOP-5[1]#_g27447_|)) + (##unchecked-structure-set! __obj26878 __tmp27360 '3 '#f '#f)) + (let ((__tmp27362 |gerbil/core/mop~MOP-5[1]#_g27363_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27054 __tmp27446 '14 '#f '#f)) + (##unchecked-structure-set! __obj26878 __tmp27362 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26878 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26878 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26878 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27054 '() '18 '#f '#f)) - __obj27054)) + (##unchecked-structure-set! __obj26878 '() '18 '#f '#f)) + __obj26878)) (define |gerbil/core/mop~MOP-5[:0:]#:s32vector| - (let ((__obj27055 + (let ((__obj26879 (let () (declare (not safe)) (##structure @@ -3841,40 +4773,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 's32vector '1 '#f '#f)) + (##unchecked-structure-set! __obj26879 's32vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 's32vector '2 '#f '#f)) - (let ((__tmp27448 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj26879 's32vector '2 '#f '#f)) + (let ((__tmp27364 (cons |gerbil/core/mop~MOP-5[1]#_g27339_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27055 __tmp27448 '3 '#f '#f)) + (##unchecked-structure-set! __obj26879 __tmp27364 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26879 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 '#t '9 '#f '#f)) - (let ((__tmp27449 |gerbil/core/mop~MOP-5[1]#_g27450_|)) + (##unchecked-structure-set! __obj26879 '#t '10 '#f '#f)) + (let ((__tmp27365 |gerbil/core/mop~MOP-5[1]#_g27366_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27055 __tmp27449 '12 '#f '#f)) - (let ((__tmp27451 |gerbil/core/mop~MOP-5[1]#_g27452_|)) + (##unchecked-structure-set! __obj26879 __tmp27365 '3 '#f '#f)) + (let ((__tmp27367 |gerbil/core/mop~MOP-5[1]#_g27368_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27055 __tmp27451 '14 '#f '#f)) + (##unchecked-structure-set! __obj26879 __tmp27367 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26879 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26879 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26879 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27055 '() '18 '#f '#f)) - __obj27055)) + (##unchecked-structure-set! __obj26879 '() '18 '#f '#f)) + __obj26879)) (define |gerbil/core/mop~MOP-5[:0:]#:u64vector| - (let ((__obj27056 + (let ((__obj26880 (let () (declare (not safe)) (##structure @@ -3902,40 +4834,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 'u64vector '1 '#f '#f)) + (##unchecked-structure-set! __obj26880 'u64vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 'u64vector '2 '#f '#f)) - (let ((__tmp27453 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj26880 'u64vector '2 '#f '#f)) + (let ((__tmp27369 (cons |gerbil/core/mop~MOP-5[1]#_g27339_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27056 __tmp27453 '3 '#f '#f)) + (##unchecked-structure-set! __obj26880 __tmp27369 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26880 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 '#t '9 '#f '#f)) - (let ((__tmp27454 |gerbil/core/mop~MOP-5[1]#_g27455_|)) + (##unchecked-structure-set! __obj26880 '#t '10 '#f '#f)) + (let ((__tmp27370 |gerbil/core/mop~MOP-5[1]#_g27371_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27056 __tmp27454 '12 '#f '#f)) - (let ((__tmp27456 |gerbil/core/mop~MOP-5[1]#_g27457_|)) + (##unchecked-structure-set! __obj26880 __tmp27370 '3 '#f '#f)) + (let ((__tmp27372 |gerbil/core/mop~MOP-5[1]#_g27373_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27056 __tmp27456 '14 '#f '#f)) + (##unchecked-structure-set! __obj26880 __tmp27372 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26880 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26880 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26880 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27056 '() '18 '#f '#f)) - __obj27056)) + (##unchecked-structure-set! __obj26880 '() '18 '#f '#f)) + __obj26880)) (define |gerbil/core/mop~MOP-5[:0:]#:s64vector| - (let ((__obj27057 + (let ((__obj26881 (let () (declare (not safe)) (##structure @@ -3963,40 +4895,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 's64vector '1 '#f '#f)) + (##unchecked-structure-set! __obj26881 's64vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 's64vector '2 '#f '#f)) - (let ((__tmp27458 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj26881 's64vector '2 '#f '#f)) + (let ((__tmp27374 (cons |gerbil/core/mop~MOP-5[1]#_g27339_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27057 __tmp27458 '3 '#f '#f)) + (##unchecked-structure-set! __obj26881 __tmp27374 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26881 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 '#t '9 '#f '#f)) - (let ((__tmp27459 |gerbil/core/mop~MOP-5[1]#_g27460_|)) + (##unchecked-structure-set! __obj26881 '#t '10 '#f '#f)) + (let ((__tmp27375 |gerbil/core/mop~MOP-5[1]#_g27376_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27057 __tmp27459 '12 '#f '#f)) - (let ((__tmp27461 |gerbil/core/mop~MOP-5[1]#_g27462_|)) + (##unchecked-structure-set! __obj26881 __tmp27375 '3 '#f '#f)) + (let ((__tmp27377 |gerbil/core/mop~MOP-5[1]#_g27378_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27057 __tmp27461 '14 '#f '#f)) + (##unchecked-structure-set! __obj26881 __tmp27377 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26881 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26881 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26881 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27057 '() '18 '#f '#f)) - __obj27057)) + (##unchecked-structure-set! __obj26881 '() '18 '#f '#f)) + __obj26881)) (define |gerbil/core/mop~MOP-5[:0:]#:f32vector| - (let ((__obj27058 + (let ((__obj26882 (let () (declare (not safe)) (##structure @@ -4024,40 +4956,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 'f32vector '1 '#f '#f)) + (##unchecked-structure-set! __obj26882 'f32vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 'f32vector '2 '#f '#f)) - (let ((__tmp27463 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj26882 'f32vector '2 '#f '#f)) + (let ((__tmp27379 (cons |gerbil/core/mop~MOP-5[1]#_g27339_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27058 __tmp27463 '3 '#f '#f)) + (##unchecked-structure-set! __obj26882 __tmp27379 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26882 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 '#t '9 '#f '#f)) - (let ((__tmp27464 |gerbil/core/mop~MOP-5[1]#_g27465_|)) + (##unchecked-structure-set! __obj26882 '#t '10 '#f '#f)) + (let ((__tmp27380 |gerbil/core/mop~MOP-5[1]#_g27381_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27058 __tmp27464 '12 '#f '#f)) - (let ((__tmp27466 |gerbil/core/mop~MOP-5[1]#_g27467_|)) + (##unchecked-structure-set! __obj26882 __tmp27380 '3 '#f '#f)) + (let ((__tmp27382 |gerbil/core/mop~MOP-5[1]#_g27383_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27058 __tmp27466 '14 '#f '#f)) + (##unchecked-structure-set! __obj26882 __tmp27382 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26882 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26882 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26882 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27058 '() '18 '#f '#f)) - __obj27058)) + (##unchecked-structure-set! __obj26882 '() '18 '#f '#f)) + __obj26882)) (define |gerbil/core/mop~MOP-5[:0:]#:f64vector| - (let ((__obj27059 + (let ((__obj26883 (let () (declare (not safe)) (##structure @@ -4085,40 +5017,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 'f64vector '1 '#f '#f)) + (##unchecked-structure-set! __obj26883 'f64vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 'f64vector '2 '#f '#f)) - (let ((__tmp27468 (cons |gerbil/core/mop~MOP-5[1]#_g27423_| '()))) + (##unchecked-structure-set! __obj26883 'f64vector '2 '#f '#f)) + (let ((__tmp27384 (cons |gerbil/core/mop~MOP-5[1]#_g27339_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27059 __tmp27468 '3 '#f '#f)) + (##unchecked-structure-set! __obj26883 __tmp27384 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26883 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '#t '9 '#f '#f)) - (let ((__tmp27469 |gerbil/core/mop~MOP-5[1]#_g27470_|)) + (##unchecked-structure-set! __obj26883 '#t '10 '#f '#f)) + (let ((__tmp27385 |gerbil/core/mop~MOP-5[1]#_g27386_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27059 __tmp27469 '12 '#f '#f)) - (let ((__tmp27471 |gerbil/core/mop~MOP-5[1]#_g27472_|)) + (##unchecked-structure-set! __obj26883 __tmp27385 '3 '#f '#f)) + (let ((__tmp27387 |gerbil/core/mop~MOP-5[1]#_g27388_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27059 __tmp27471 '14 '#f '#f)) + (##unchecked-structure-set! __obj26883 __tmp27387 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26883 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26883 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26883 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '() '18 '#f '#f)) - __obj27059)) + (##unchecked-structure-set! __obj26883 '() '18 '#f '#f)) + __obj26883)) (define |gerbil/core/mop~MOP-5[:0:]#:values| - (let ((__obj27060 + (let ((__obj26884 (let () (declare (not safe)) (##structure @@ -4146,40 +5078,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 'values '1 '#f '#f)) + (##unchecked-structure-set! __obj26884 'values '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 'values '2 '#f '#f)) - (let ((__tmp27473 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26884 'values '2 '#f '#f)) + (let ((__tmp27389 (cons |gerbil/core/mop~MOP-5[1]#_g27323_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27060 __tmp27473 '3 '#f '#f)) + (##unchecked-structure-set! __obj26884 __tmp27389 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26884 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 '#t '9 '#f '#f)) - (let ((__tmp27474 |gerbil/core/mop~MOP-5[1]#_g27475_|)) + (##unchecked-structure-set! __obj26884 '#t '10 '#f '#f)) + (let ((__tmp27390 |gerbil/core/mop~MOP-5[1]#_g27391_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27060 __tmp27474 '12 '#f '#f)) - (let ((__tmp27476 |gerbil/core/mop~MOP-5[1]#_g27477_|)) + (##unchecked-structure-set! __obj26884 __tmp27390 '3 '#f '#f)) + (let ((__tmp27392 |gerbil/core/mop~MOP-5[1]#_g27393_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27060 __tmp27476 '14 '#f '#f)) + (##unchecked-structure-set! __obj26884 __tmp27392 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26884 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26884 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26884 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27060 '() '18 '#f '#f)) - __obj27060)) + (##unchecked-structure-set! __obj26884 '() '18 '#f '#f)) + __obj26884)) (define |gerbil/core/mop~MOP-5[:0:]#:box| - (let ((__obj27061 + (let ((__obj26885 (let () (declare (not safe)) (##structure @@ -4207,40 +5139,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 'box '1 '#f '#f)) + (##unchecked-structure-set! __obj26885 'box '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 'box '2 '#f '#f)) - (let ((__tmp27478 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26885 'box '2 '#f '#f)) + (let ((__tmp27394 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27061 __tmp27478 '3 '#f '#f)) + (##unchecked-structure-set! __obj26885 __tmp27394 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26885 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 '#t '9 '#f '#f)) - (let ((__tmp27479 |gerbil/core/mop~MOP-5[1]#_g27480_|)) + (##unchecked-structure-set! __obj26885 '#t '10 '#f '#f)) + (let ((__tmp27395 |gerbil/core/mop~MOP-5[1]#_g27396_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27061 __tmp27479 '12 '#f '#f)) - (let ((__tmp27481 |gerbil/core/mop~MOP-5[1]#_g27482_|)) + (##unchecked-structure-set! __obj26885 __tmp27395 '3 '#f '#f)) + (let ((__tmp27397 |gerbil/core/mop~MOP-5[1]#_g27398_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27061 __tmp27481 '14 '#f '#f)) + (##unchecked-structure-set! __obj26885 __tmp27397 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26885 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26885 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26885 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27061 '() '18 '#f '#f)) - __obj27061)) + (##unchecked-structure-set! __obj26885 '() '18 '#f '#f)) + __obj26885)) (define |gerbil/core/mop~MOP-5[:0:]#:frame| - (let ((__obj27062 + (let ((__obj26886 (let () (declare (not safe)) (##structure @@ -4268,40 +5200,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 'frame '1 '#f '#f)) + (##unchecked-structure-set! __obj26886 'frame '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 'frame '2 '#f '#f)) - (let ((__tmp27483 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26886 'frame '2 '#f '#f)) + (let ((__tmp27399 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27062 __tmp27483 '3 '#f '#f)) + (##unchecked-structure-set! __obj26886 __tmp27399 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26886 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 '#t '9 '#f '#f)) - (let ((__tmp27484 |gerbil/core/mop~MOP-5[1]#_g27485_|)) + (##unchecked-structure-set! __obj26886 '#t '10 '#f '#f)) + (let ((__tmp27400 |gerbil/core/mop~MOP-5[1]#_g27401_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27062 __tmp27484 '12 '#f '#f)) - (let ((__tmp27486 |gerbil/core/mop~MOP-5[1]#_g27487_|)) + (##unchecked-structure-set! __obj26886 __tmp27400 '3 '#f '#f)) + (let ((__tmp27402 |gerbil/core/mop~MOP-5[1]#_g27403_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27062 __tmp27486 '14 '#f '#f)) + (##unchecked-structure-set! __obj26886 __tmp27402 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26886 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26886 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26886 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27062 '() '18 '#f '#f)) - __obj27062)) + (##unchecked-structure-set! __obj26886 '() '18 '#f '#f)) + __obj26886)) (define |gerbil/core/mop~MOP-5[:0:]#:continuation| - (let ((__obj27063 + (let ((__obj26887 (let () (declare (not safe)) (##structure @@ -4329,40 +5261,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 'continuation '1 '#f '#f)) + (##unchecked-structure-set! __obj26887 'continuation '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 'continuation '2 '#f '#f)) - (let ((__tmp27488 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26887 'continuation '2 '#f '#f)) + (let ((__tmp27404 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27063 __tmp27488 '3 '#f '#f)) + (##unchecked-structure-set! __obj26887 __tmp27404 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26887 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '#t '9 '#f '#f)) - (let ((__tmp27489 |gerbil/core/mop~MOP-5[1]#_g27490_|)) + (##unchecked-structure-set! __obj26887 '#t '10 '#f '#f)) + (let ((__tmp27405 |gerbil/core/mop~MOP-5[1]#_g27406_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27063 __tmp27489 '12 '#f '#f)) - (let ((__tmp27491 |gerbil/core/mop~MOP-5[1]#_g27492_|)) + (##unchecked-structure-set! __obj26887 __tmp27405 '3 '#f '#f)) + (let ((__tmp27407 |gerbil/core/mop~MOP-5[1]#_g27408_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27063 __tmp27491 '14 '#f '#f)) + (##unchecked-structure-set! __obj26887 __tmp27407 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26887 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26887 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26887 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '18 '#f '#f)) - __obj27063)) + (##unchecked-structure-set! __obj26887 '() '18 '#f '#f)) + __obj26887)) (define |gerbil/core/mop~MOP-5[:0:]#:promise| - (let ((__obj27064 + (let ((__obj26888 (let () (declare (not safe)) (##structure @@ -4390,40 +5322,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 'promise '1 '#f '#f)) + (##unchecked-structure-set! __obj26888 'promise '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 'promise '2 '#f '#f)) - (let ((__tmp27493 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26888 'promise '2 '#f '#f)) + (let ((__tmp27409 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27064 __tmp27493 '3 '#f '#f)) + (##unchecked-structure-set! __obj26888 __tmp27409 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26888 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '#t '9 '#f '#f)) - (let ((__tmp27494 |gerbil/core/mop~MOP-5[1]#_g27495_|)) + (##unchecked-structure-set! __obj26888 '#t '10 '#f '#f)) + (let ((__tmp27410 |gerbil/core/mop~MOP-5[1]#_g27411_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27064 __tmp27494 '12 '#f '#f)) - (let ((__tmp27496 |gerbil/core/mop~MOP-5[1]#_g27497_|)) + (##unchecked-structure-set! __obj26888 __tmp27410 '3 '#f '#f)) + (let ((__tmp27412 |gerbil/core/mop~MOP-5[1]#_g27413_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27064 __tmp27496 '14 '#f '#f)) + (##unchecked-structure-set! __obj26888 __tmp27412 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26888 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26888 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26888 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '() '18 '#f '#f)) - __obj27064)) + (##unchecked-structure-set! __obj26888 '() '18 '#f '#f)) + __obj26888)) (define |gerbil/core/mop~MOP-5[:0:]#:weak| - (let ((__obj27065 + (let ((__obj26889 (let () (declare (not safe)) (##structure @@ -4451,40 +5383,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 'weak '1 '#f '#f)) + (##unchecked-structure-set! __obj26889 'weak '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 'weak '2 '#f '#f)) - (let ((__tmp27498 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26889 'weak '2 '#f '#f)) + (let ((__tmp27414 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27065 __tmp27498 '3 '#f '#f)) + (##unchecked-structure-set! __obj26889 __tmp27414 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26889 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '#t '9 '#f '#f)) - (let ((__tmp27499 |gerbil/core/mop~MOP-5[1]#_g27500_|)) + (##unchecked-structure-set! __obj26889 '#t '10 '#f '#f)) + (let ((__tmp27415 |gerbil/core/mop~MOP-5[1]#_g27416_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27065 __tmp27499 '12 '#f '#f)) - (let ((__tmp27501 |gerbil/core/mop~MOP-5[1]#_g27502_|)) + (##unchecked-structure-set! __obj26889 __tmp27415 '3 '#f '#f)) + (let ((__tmp27417 |gerbil/core/mop~MOP-5[1]#_g27418_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27065 __tmp27501 '14 '#f '#f)) + (##unchecked-structure-set! __obj26889 __tmp27417 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26889 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26889 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26889 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '() '18 '#f '#f)) - __obj27065)) + (##unchecked-structure-set! __obj26889 '() '18 '#f '#f)) + __obj26889)) (define |gerbil/core/mop~MOP-5[:0:]#:foreign| - (let ((__obj27066 + (let ((__obj26890 (let () (declare (not safe)) (##structure @@ -4512,40 +5444,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 'foreign '1 '#f '#f)) + (##unchecked-structure-set! __obj26890 'foreign '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 'foreign '2 '#f '#f)) - (let ((__tmp27503 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26890 'foreign '2 '#f '#f)) + (let ((__tmp27419 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27066 __tmp27503 '3 '#f '#f)) + (##unchecked-structure-set! __obj26890 __tmp27419 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26890 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '#t '9 '#f '#f)) - (let ((__tmp27504 |gerbil/core/mop~MOP-5[1]#_g27505_|)) + (##unchecked-structure-set! __obj26890 '#t '10 '#f '#f)) + (let ((__tmp27420 |gerbil/core/mop~MOP-5[1]#_g27421_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27066 __tmp27504 '12 '#f '#f)) - (let ((__tmp27506 |gerbil/core/mop~MOP-5[1]#_g27507_|)) + (##unchecked-structure-set! __obj26890 __tmp27420 '3 '#f '#f)) + (let ((__tmp27422 |gerbil/core/mop~MOP-5[1]#_g27423_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27066 __tmp27506 '14 '#f '#f)) + (##unchecked-structure-set! __obj26890 __tmp27422 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26890 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26890 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26890 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '() '18 '#f '#f)) - __obj27066)) + (##unchecked-structure-set! __obj26890 '() '18 '#f '#f)) + __obj26890)) (define |gerbil/core/mop~MOP-5[:0:]#:procedure| - (let ((__obj27067 + (let ((__obj26891 (let () (declare (not safe)) (##structure @@ -4573,40 +5505,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 'procedure '1 '#f '#f)) + (##unchecked-structure-set! __obj26891 'procedure '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 'procedure '2 '#f '#f)) - (let ((__tmp27508 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26891 'procedure '2 '#f '#f)) + (let ((__tmp27424 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27067 __tmp27508 '3 '#f '#f)) + (##unchecked-structure-set! __obj26891 __tmp27424 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26891 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '#t '9 '#f '#f)) - (let ((__tmp27509 |gerbil/core/mop~MOP-5[1]#_g27510_|)) + (##unchecked-structure-set! __obj26891 '#t '10 '#f '#f)) + (let ((__tmp27425 |gerbil/core/mop~MOP-5[1]#_g27426_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27067 __tmp27509 '12 '#f '#f)) - (let ((__tmp27511 |gerbil/core/mop~MOP-5[1]#_g27512_|)) + (##unchecked-structure-set! __obj26891 __tmp27425 '3 '#f '#f)) + (let ((__tmp27427 |gerbil/core/mop~MOP-5[1]#_g27428_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27067 __tmp27511 '14 '#f '#f)) + (##unchecked-structure-set! __obj26891 __tmp27427 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26891 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26891 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26891 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '() '18 '#f '#f)) - __obj27067)) - (define |gerbil/core/mop~MOP-5[:0:]#:time| - (let ((__obj27068 + (##unchecked-structure-set! __obj26891 '() '18 '#f '#f)) + __obj26891)) + (define |gerbil/core/mop~MOP-5[:0:]#:return| + (let ((__obj26892 (let () (declare (not safe)) (##structure @@ -4634,40 +5566,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 'time::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26892 'return '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 'time '2 '#f '#f)) - (let ((__tmp27513 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26892 'return '2 '#f '#f)) + (let ((__tmp27429 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27068 __tmp27513 '3 '#f '#f)) + (##unchecked-structure-set! __obj26892 __tmp27429 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26892 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '#t '9 '#f '#f)) - (let ((__tmp27514 |gerbil/core/mop~MOP-5[1]#_g27515_|)) + (##unchecked-structure-set! __obj26892 '#t '10 '#f '#f)) + (let ((__tmp27430 |gerbil/core/mop~MOP-5[1]#_g27431_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27068 __tmp27514 '12 '#f '#f)) - (let ((__tmp27516 |gerbil/core/mop~MOP-5[1]#_g27517_|)) + (##unchecked-structure-set! __obj26892 __tmp27430 '3 '#f '#f)) + (let ((__tmp27432 |gerbil/core/mop~MOP-5[1]#_g27433_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27068 __tmp27516 '14 '#f '#f)) + (##unchecked-structure-set! __obj26892 __tmp27432 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26892 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26892 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26892 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '() '18 '#f '#f)) - __obj27068)) + (##unchecked-structure-set! __obj26892 '() '18 '#f '#f)) + __obj26892)) (define |gerbil/core/mop~MOP-5[:0:]#:thread| - (let ((__obj27069 + (let ((__obj26893 (let () (declare (not safe)) (##structure @@ -4695,40 +5627,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 'thread::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26893 'thread::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 'thread '2 '#f '#f)) - (let ((__tmp27518 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26893 'thread '2 '#f '#f)) + (let ((__tmp27434 (cons |gerbil/core/mop~MOP-5[1]#_g27435_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27069 __tmp27518 '3 '#f '#f)) + (##unchecked-structure-set! __obj26893 __tmp27434 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26893 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '#t '9 '#f '#f)) - (let ((__tmp27519 |gerbil/core/mop~MOP-5[1]#_g27520_|)) + (##unchecked-structure-set! __obj26893 '#t '10 '#f '#f)) + (let ((__tmp27436 |gerbil/core/mop~MOP-5[1]#_g27437_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27069 __tmp27519 '12 '#f '#f)) - (let ((__tmp27521 |gerbil/core/mop~MOP-5[1]#_g27522_|)) + (##unchecked-structure-set! __obj26893 __tmp27436 '3 '#f '#f)) + (let ((__tmp27438 |gerbil/core/mop~MOP-5[1]#_g27439_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27069 __tmp27521 '14 '#f '#f)) + (##unchecked-structure-set! __obj26893 __tmp27438 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26893 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26893 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26893 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '() '18 '#f '#f)) - __obj27069)) + (##unchecked-structure-set! __obj26893 '() '18 '#f '#f)) + __obj26893)) (define |gerbil/core/mop~MOP-5[:0:]#:thread-group| - (let ((__obj27070 + (let ((__obj26894 (let () (declare (not safe)) (##structure @@ -4756,40 +5688,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 'thread-group::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26894 'thread-group::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 'thread-group '2 '#f '#f)) - (let ((__tmp27523 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26894 'thread-group '2 '#f '#f)) + (let ((__tmp27440 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27070 __tmp27523 '3 '#f '#f)) + (##unchecked-structure-set! __obj26894 __tmp27440 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26894 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '#t '9 '#f '#f)) - (let ((__tmp27524 |gerbil/core/mop~MOP-5[1]#_g27525_|)) + (##unchecked-structure-set! __obj26894 '#t '10 '#f '#f)) + (let ((__tmp27441 |gerbil/core/mop~MOP-5[1]#_g27442_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27070 __tmp27524 '12 '#f '#f)) - (let ((__tmp27526 |gerbil/core/mop~MOP-5[1]#_g27527_|)) + (##unchecked-structure-set! __obj26894 __tmp27441 '3 '#f '#f)) + (let ((__tmp27443 |gerbil/core/mop~MOP-5[1]#_g27444_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27070 __tmp27526 '14 '#f '#f)) + (##unchecked-structure-set! __obj26894 __tmp27443 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26894 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26894 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26894 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '() '18 '#f '#f)) - __obj27070)) + (##unchecked-structure-set! __obj26894 '() '18 '#f '#f)) + __obj26894)) (define |gerbil/core/mop~MOP-5[:0:]#:mutex| - (let ((__obj27071 + (let ((__obj26895 (let () (declare (not safe)) (##structure @@ -4817,40 +5749,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 'mutex::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26895 'mutex::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 'mutex '2 '#f '#f)) - (let ((__tmp27528 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26895 'mutex '2 '#f '#f)) + (let ((__tmp27445 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27071 __tmp27528 '3 '#f '#f)) + (##unchecked-structure-set! __obj26895 __tmp27445 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26895 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '#t '9 '#f '#f)) - (let ((__tmp27529 |gerbil/core/mop~MOP-5[1]#_g27530_|)) + (##unchecked-structure-set! __obj26895 '#t '10 '#f '#f)) + (let ((__tmp27446 |gerbil/core/mop~MOP-5[1]#_g27447_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27071 __tmp27529 '12 '#f '#f)) - (let ((__tmp27531 |gerbil/core/mop~MOP-5[1]#_g27532_|)) + (##unchecked-structure-set! __obj26895 __tmp27446 '3 '#f '#f)) + (let ((__tmp27448 |gerbil/core/mop~MOP-5[1]#_g27449_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27071 __tmp27531 '14 '#f '#f)) + (##unchecked-structure-set! __obj26895 __tmp27448 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26895 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26895 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26895 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '() '18 '#f '#f)) - __obj27071)) + (##unchecked-structure-set! __obj26895 '() '18 '#f '#f)) + __obj26895)) (define |gerbil/core/mop~MOP-5[:0:]#:condvar| - (let ((__obj27072 + (let ((__obj26896 (let () (declare (not safe)) (##structure @@ -4879,7 +5811,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27072 + __obj26896 'condition-variable::t '1 '#f @@ -4887,41 +5819,41 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27072 + __obj26896 'condition-variable '2 '#f '#f)) - (let ((__tmp27533 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (let ((__tmp27450 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27072 __tmp27533 '3 '#f '#f)) + (##unchecked-structure-set! __obj26896 __tmp27450 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26896 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '#t '9 '#f '#f)) - (let ((__tmp27534 |gerbil/core/mop~MOP-5[1]#_g27535_|)) + (##unchecked-structure-set! __obj26896 '#t '10 '#f '#f)) + (let ((__tmp27451 |gerbil/core/mop~MOP-5[1]#_g27452_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27072 __tmp27534 '12 '#f '#f)) - (let ((__tmp27536 |gerbil/core/mop~MOP-5[1]#_g27537_|)) + (##unchecked-structure-set! __obj26896 __tmp27451 '3 '#f '#f)) + (let ((__tmp27453 |gerbil/core/mop~MOP-5[1]#_g27454_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27072 __tmp27536 '14 '#f '#f)) + (##unchecked-structure-set! __obj26896 __tmp27453 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26896 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26896 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26896 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '() '18 '#f '#f)) - __obj27072)) + (##unchecked-structure-set! __obj26896 '() '18 '#f '#f)) + __obj26896)) (define |gerbil/core/mop~MOP-5[:0:]#:port| - (let ((__obj27073 + (let ((__obj26897 (let () (declare (not safe)) (##structure @@ -4949,40 +5881,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 'port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26897 'port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 'port '2 '#f '#f)) - (let ((__tmp27538 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26897 'port '2 '#f '#f)) + (let ((__tmp27455 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27073 __tmp27538 '3 '#f '#f)) + (##unchecked-structure-set! __obj26897 __tmp27455 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26897 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '#t '9 '#f '#f)) - (let ((__tmp27539 |gerbil/core/mop~MOP-5[1]#_g27540_|)) + (##unchecked-structure-set! __obj26897 '#t '10 '#f '#f)) + (let ((__tmp27456 |gerbil/core/mop~MOP-5[1]#_g27457_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27073 __tmp27539 '12 '#f '#f)) - (let ((__tmp27541 |gerbil/core/mop~MOP-5[1]#_g27542_|)) + (##unchecked-structure-set! __obj26897 __tmp27456 '3 '#f '#f)) + (let ((__tmp27458 |gerbil/core/mop~MOP-5[1]#_g27459_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27073 __tmp27541 '14 '#f '#f)) + (##unchecked-structure-set! __obj26897 __tmp27458 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26897 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26897 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26897 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '() '18 '#f '#f)) - __obj27073)) + (##unchecked-structure-set! __obj26897 '() '18 '#f '#f)) + __obj26897)) (define |gerbil/core/mop~MOP-5[:0:]#:object-port| - (let ((__obj27074 + (let ((__obj26898 (let () (declare (not safe)) (##structure @@ -5010,40 +5942,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 'object-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26898 'object-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 'object-port '2 '#f '#f)) - (let ((__tmp27543 (cons |gerbil/core/mop~MOP-5[1]#_g27544_| '()))) + (##unchecked-structure-set! __obj26898 'object-port '2 '#f '#f)) + (let ((__tmp27460 (cons |gerbil/core/mop~MOP-5[1]#_g27461_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27074 __tmp27543 '3 '#f '#f)) + (##unchecked-structure-set! __obj26898 __tmp27460 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26898 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '#t '9 '#f '#f)) - (let ((__tmp27545 |gerbil/core/mop~MOP-5[1]#_g27546_|)) + (##unchecked-structure-set! __obj26898 '#t '10 '#f '#f)) + (let ((__tmp27462 |gerbil/core/mop~MOP-5[1]#_g27463_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27074 __tmp27545 '12 '#f '#f)) - (let ((__tmp27547 |gerbil/core/mop~MOP-5[1]#_g27548_|)) + (##unchecked-structure-set! __obj26898 __tmp27462 '3 '#f '#f)) + (let ((__tmp27464 |gerbil/core/mop~MOP-5[1]#_g27465_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27074 __tmp27547 '14 '#f '#f)) + (##unchecked-structure-set! __obj26898 __tmp27464 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26898 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26898 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26898 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '() '18 '#f '#f)) - __obj27074)) + (##unchecked-structure-set! __obj26898 '() '18 '#f '#f)) + __obj26898)) (define |gerbil/core/mop~MOP-5[:0:]#:character-port| - (let ((__obj27075 + (let ((__obj26899 (let () (declare (not safe)) (##structure @@ -5072,44 +6004,44 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27075 + __obj26899 'character-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 'character-port '2 '#f '#f)) - (let ((__tmp27549 (cons |gerbil/core/mop~MOP-5[1]#_g27550_| '()))) + (##unchecked-structure-set! __obj26899 'character-port '2 '#f '#f)) + (let ((__tmp27466 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27075 __tmp27549 '3 '#f '#f)) + (##unchecked-structure-set! __obj26899 __tmp27466 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26899 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '#t '9 '#f '#f)) - (let ((__tmp27551 |gerbil/core/mop~MOP-5[1]#_g27552_|)) + (##unchecked-structure-set! __obj26899 '#t '10 '#f '#f)) + (let ((__tmp27468 |gerbil/core/mop~MOP-5[1]#_g27469_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27075 __tmp27551 '12 '#f '#f)) - (let ((__tmp27553 |gerbil/core/mop~MOP-5[1]#_g27554_|)) + (##unchecked-structure-set! __obj26899 __tmp27468 '3 '#f '#f)) + (let ((__tmp27470 |gerbil/core/mop~MOP-5[1]#_g27471_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27075 __tmp27553 '14 '#f '#f)) + (##unchecked-structure-set! __obj26899 __tmp27470 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26899 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26899 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26899 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '() '18 '#f '#f)) - __obj27075)) + (##unchecked-structure-set! __obj26899 '() '18 '#f '#f)) + __obj26899)) (define |gerbil/core/mop~MOP-5[:0:]#:byte-port| - (let ((__obj27076 + (let ((__obj26900 (let () (declare (not safe)) (##structure @@ -5137,40 +6069,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 'byte-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26900 'byte-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 'byte-port '2 '#f '#f)) - (let ((__tmp27555 (cons |gerbil/core/mop~MOP-5[1]#_g27556_| '()))) + (##unchecked-structure-set! __obj26900 'byte-port '2 '#f '#f)) + (let ((__tmp27472 (cons |gerbil/core/mop~MOP-5[1]#_g27473_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27076 __tmp27555 '3 '#f '#f)) + (##unchecked-structure-set! __obj26900 __tmp27472 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26900 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '#t '9 '#f '#f)) - (let ((__tmp27557 |gerbil/core/mop~MOP-5[1]#_g27558_|)) + (##unchecked-structure-set! __obj26900 '#t '10 '#f '#f)) + (let ((__tmp27474 |gerbil/core/mop~MOP-5[1]#_g27475_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27076 __tmp27557 '12 '#f '#f)) - (let ((__tmp27559 |gerbil/core/mop~MOP-5[1]#_g27560_|)) + (##unchecked-structure-set! __obj26900 __tmp27474 '3 '#f '#f)) + (let ((__tmp27476 |gerbil/core/mop~MOP-5[1]#_g27477_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27076 __tmp27559 '14 '#f '#f)) + (##unchecked-structure-set! __obj26900 __tmp27476 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26900 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26900 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26900 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '() '18 '#f '#f)) - __obj27076)) + (##unchecked-structure-set! __obj26900 '() '18 '#f '#f)) + __obj26900)) (define |gerbil/core/mop~MOP-5[:0:]#:device-port| - (let ((__obj27077 + (let ((__obj26901 (let () (declare (not safe)) (##structure @@ -5198,40 +6130,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 'device-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26901 'device-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 'device-port '2 '#f '#f)) - (let ((__tmp27561 (cons |gerbil/core/mop~MOP-5[1]#_g27562_| '()))) + (##unchecked-structure-set! __obj26901 'device-port '2 '#f '#f)) + (let ((__tmp27478 (cons |gerbil/core/mop~MOP-5[1]#_g27479_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27077 __tmp27561 '3 '#f '#f)) + (##unchecked-structure-set! __obj26901 __tmp27478 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26901 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '#t '9 '#f '#f)) - (let ((__tmp27563 |gerbil/core/mop~MOP-5[1]#_g27564_|)) + (##unchecked-structure-set! __obj26901 '#t '10 '#f '#f)) + (let ((__tmp27480 |gerbil/core/mop~MOP-5[1]#_g27481_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27077 __tmp27563 '12 '#f '#f)) - (let ((__tmp27565 |gerbil/core/mop~MOP-5[1]#_g27566_|)) + (##unchecked-structure-set! __obj26901 __tmp27480 '3 '#f '#f)) + (let ((__tmp27482 |gerbil/core/mop~MOP-5[1]#_g27483_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27077 __tmp27565 '14 '#f '#f)) + (##unchecked-structure-set! __obj26901 __tmp27482 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26901 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26901 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26901 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '() '18 '#f '#f)) - __obj27077)) + (##unchecked-structure-set! __obj26901 '() '18 '#f '#f)) + __obj26901)) (define |gerbil/core/mop~MOP-5[:0:]#:vector-port| - (let ((__obj27078 + (let ((__obj26902 (let () (declare (not safe)) (##structure @@ -5259,40 +6191,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 'vector-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26902 'vector-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 'vector-port '2 '#f '#f)) - (let ((__tmp27567 (cons |gerbil/core/mop~MOP-5[1]#_g27550_| '()))) + (##unchecked-structure-set! __obj26902 'vector-port '2 '#f '#f)) + (let ((__tmp27484 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27078 __tmp27567 '3 '#f '#f)) + (##unchecked-structure-set! __obj26902 __tmp27484 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26902 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '#t '9 '#f '#f)) - (let ((__tmp27568 |gerbil/core/mop~MOP-5[1]#_g27569_|)) + (##unchecked-structure-set! __obj26902 '#t '10 '#f '#f)) + (let ((__tmp27485 |gerbil/core/mop~MOP-5[1]#_g27486_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27078 __tmp27568 '12 '#f '#f)) - (let ((__tmp27570 |gerbil/core/mop~MOP-5[1]#_g27571_|)) + (##unchecked-structure-set! __obj26902 __tmp27485 '3 '#f '#f)) + (let ((__tmp27487 |gerbil/core/mop~MOP-5[1]#_g27488_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27078 __tmp27570 '14 '#f '#f)) + (##unchecked-structure-set! __obj26902 __tmp27487 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26902 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26902 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26902 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '() '18 '#f '#f)) - __obj27078)) + (##unchecked-structure-set! __obj26902 '() '18 '#f '#f)) + __obj26902)) (define |gerbil/core/mop~MOP-5[:0:]#:string-port| - (let ((__obj27079 + (let ((__obj26903 (let () (declare (not safe)) (##structure @@ -5320,40 +6252,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 'string-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26903 'string-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 'string-port '2 '#f '#f)) - (let ((__tmp27572 (cons |gerbil/core/mop~MOP-5[1]#_g27556_| '()))) + (##unchecked-structure-set! __obj26903 'string-port '2 '#f '#f)) + (let ((__tmp27489 (cons |gerbil/core/mop~MOP-5[1]#_g27473_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27079 __tmp27572 '3 '#f '#f)) + (##unchecked-structure-set! __obj26903 __tmp27489 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26903 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '#t '9 '#f '#f)) - (let ((__tmp27573 |gerbil/core/mop~MOP-5[1]#_g27574_|)) + (##unchecked-structure-set! __obj26903 '#t '10 '#f '#f)) + (let ((__tmp27490 |gerbil/core/mop~MOP-5[1]#_g27491_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27079 __tmp27573 '12 '#f '#f)) - (let ((__tmp27575 |gerbil/core/mop~MOP-5[1]#_g27576_|)) + (##unchecked-structure-set! __obj26903 __tmp27490 '3 '#f '#f)) + (let ((__tmp27492 |gerbil/core/mop~MOP-5[1]#_g27493_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27079 __tmp27575 '14 '#f '#f)) + (##unchecked-structure-set! __obj26903 __tmp27492 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26903 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26903 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26903 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '() '18 '#f '#f)) - __obj27079)) + (##unchecked-structure-set! __obj26903 '() '18 '#f '#f)) + __obj26903)) (define |gerbil/core/mop~MOP-5[:0:]#:u8vector-port| - (let ((__obj27080 + (let ((__obj26904 (let () (declare (not safe)) (##structure @@ -5381,40 +6313,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 'u8vector-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26904 'u8vector-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 'u8vector-port '2 '#f '#f)) - (let ((__tmp27577 (cons |gerbil/core/mop~MOP-5[1]#_g27562_| '()))) + (##unchecked-structure-set! __obj26904 'u8vector-port '2 '#f '#f)) + (let ((__tmp27494 (cons |gerbil/core/mop~MOP-5[1]#_g27479_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27080 __tmp27577 '3 '#f '#f)) + (##unchecked-structure-set! __obj26904 __tmp27494 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26904 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '#t '9 '#f '#f)) - (let ((__tmp27578 |gerbil/core/mop~MOP-5[1]#_g27579_|)) + (##unchecked-structure-set! __obj26904 '#t '10 '#f '#f)) + (let ((__tmp27495 |gerbil/core/mop~MOP-5[1]#_g27496_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27080 __tmp27578 '12 '#f '#f)) - (let ((__tmp27580 |gerbil/core/mop~MOP-5[1]#_g27581_|)) + (##unchecked-structure-set! __obj26904 __tmp27495 '3 '#f '#f)) + (let ((__tmp27497 |gerbil/core/mop~MOP-5[1]#_g27498_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27080 __tmp27580 '14 '#f '#f)) + (##unchecked-structure-set! __obj26904 __tmp27497 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26904 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26904 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26904 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '() '18 '#f '#f)) - __obj27080)) + (##unchecked-structure-set! __obj26904 '() '18 '#f '#f)) + __obj26904)) (define |gerbil/core/mop~MOP-5[:0:]#:raw-device-port| - (let ((__obj27081 + (let ((__obj26905 (let () (declare (not safe)) (##structure @@ -5443,44 +6375,44 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27081 + __obj26905 'raw-device-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 'raw-device-port '2 '#f '#f)) - (let ((__tmp27582 (cons |gerbil/core/mop~MOP-5[1]#_g27544_| '()))) + (##unchecked-structure-set! __obj26905 'raw-device-port '2 '#f '#f)) + (let ((__tmp27499 (cons |gerbil/core/mop~MOP-5[1]#_g27461_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27081 __tmp27582 '3 '#f '#f)) + (##unchecked-structure-set! __obj26905 __tmp27499 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26905 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '#t '9 '#f '#f)) - (let ((__tmp27583 |gerbil/core/mop~MOP-5[1]#_g27584_|)) + (##unchecked-structure-set! __obj26905 '#t '10 '#f '#f)) + (let ((__tmp27500 |gerbil/core/mop~MOP-5[1]#_g27501_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27081 __tmp27583 '12 '#f '#f)) - (let ((__tmp27585 |gerbil/core/mop~MOP-5[1]#_g27586_|)) + (##unchecked-structure-set! __obj26905 __tmp27500 '3 '#f '#f)) + (let ((__tmp27502 |gerbil/core/mop~MOP-5[1]#_g27503_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27081 __tmp27585 '14 '#f '#f)) + (##unchecked-structure-set! __obj26905 __tmp27502 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26905 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26905 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26905 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '() '18 '#f '#f)) - __obj27081)) + (##unchecked-structure-set! __obj26905 '() '18 '#f '#f)) + __obj26905)) (define |gerbil/core/mop~MOP-5[:0:]#:tcp-server-port| - (let ((__obj27082 + (let ((__obj26906 (let () (declare (not safe)) (##structure @@ -5509,44 +6441,44 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27082 + __obj26906 'tcp-server-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 'tcp-server-port '2 '#f '#f)) - (let ((__tmp27587 (cons |gerbil/core/mop~MOP-5[1]#_g27550_| '()))) + (##unchecked-structure-set! __obj26906 'tcp-server-port '2 '#f '#f)) + (let ((__tmp27504 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27082 __tmp27587 '3 '#f '#f)) + (##unchecked-structure-set! __obj26906 __tmp27504 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26906 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '#t '9 '#f '#f)) - (let ((__tmp27588 |gerbil/core/mop~MOP-5[1]#_g27589_|)) + (##unchecked-structure-set! __obj26906 '#t '10 '#f '#f)) + (let ((__tmp27505 |gerbil/core/mop~MOP-5[1]#_g27506_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27082 __tmp27588 '12 '#f '#f)) - (let ((__tmp27590 |gerbil/core/mop~MOP-5[1]#_g27591_|)) + (##unchecked-structure-set! __obj26906 __tmp27505 '3 '#f '#f)) + (let ((__tmp27507 |gerbil/core/mop~MOP-5[1]#_g27508_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27082 __tmp27590 '14 '#f '#f)) + (##unchecked-structure-set! __obj26906 __tmp27507 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26906 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26906 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26906 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '() '18 '#f '#f)) - __obj27082)) + (##unchecked-structure-set! __obj26906 '() '18 '#f '#f)) + __obj26906)) (define |gerbil/core/mop~MOP-5[:0:]#:udp-port| - (let ((__obj27083 + (let ((__obj26907 (let () (declare (not safe)) (##structure @@ -5574,40 +6506,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 'udp-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26907 'udp-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 'udp-port '2 '#f '#f)) - (let ((__tmp27592 (cons |gerbil/core/mop~MOP-5[1]#_g27550_| '()))) + (##unchecked-structure-set! __obj26907 'udp-port '2 '#f '#f)) + (let ((__tmp27509 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27083 __tmp27592 '3 '#f '#f)) + (##unchecked-structure-set! __obj26907 __tmp27509 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26907 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '#t '9 '#f '#f)) - (let ((__tmp27593 |gerbil/core/mop~MOP-5[1]#_g27594_|)) + (##unchecked-structure-set! __obj26907 '#t '10 '#f '#f)) + (let ((__tmp27510 |gerbil/core/mop~MOP-5[1]#_g27511_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27083 __tmp27593 '12 '#f '#f)) - (let ((__tmp27595 |gerbil/core/mop~MOP-5[1]#_g27596_|)) + (##unchecked-structure-set! __obj26907 __tmp27510 '3 '#f '#f)) + (let ((__tmp27512 |gerbil/core/mop~MOP-5[1]#_g27513_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27083 __tmp27595 '14 '#f '#f)) + (##unchecked-structure-set! __obj26907 __tmp27512 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26907 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26907 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26907 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '() '18 '#f '#f)) - __obj27083)) + (##unchecked-structure-set! __obj26907 '() '18 '#f '#f)) + __obj26907)) (define |gerbil/core/mop~MOP-5[:0:]#:directory-port| - (let ((__obj27084 + (let ((__obj26908 (let () (declare (not safe)) (##structure @@ -5636,44 +6568,44 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27084 + __obj26908 'directory-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 'directory-port '2 '#f '#f)) - (let ((__tmp27597 (cons |gerbil/core/mop~MOP-5[1]#_g27550_| '()))) + (##unchecked-structure-set! __obj26908 'directory-port '2 '#f '#f)) + (let ((__tmp27514 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27084 __tmp27597 '3 '#f '#f)) + (##unchecked-structure-set! __obj26908 __tmp27514 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26908 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '#t '9 '#f '#f)) - (let ((__tmp27598 |gerbil/core/mop~MOP-5[1]#_g27599_|)) + (##unchecked-structure-set! __obj26908 '#t '10 '#f '#f)) + (let ((__tmp27515 |gerbil/core/mop~MOP-5[1]#_g27516_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27084 __tmp27598 '12 '#f '#f)) - (let ((__tmp27600 |gerbil/core/mop~MOP-5[1]#_g27601_|)) + (##unchecked-structure-set! __obj26908 __tmp27515 '3 '#f '#f)) + (let ((__tmp27517 |gerbil/core/mop~MOP-5[1]#_g27518_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27084 __tmp27600 '14 '#f '#f)) + (##unchecked-structure-set! __obj26908 __tmp27517 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26908 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26908 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26908 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '() '18 '#f '#f)) - __obj27084)) + (##unchecked-structure-set! __obj26908 '() '18 '#f '#f)) + __obj26908)) (define |gerbil/core/mop~MOP-5[:0:]#:event-queue-port| - (let ((__obj27085 + (let ((__obj26909 (let () (declare (not safe)) (##structure @@ -5702,44 +6634,44 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27085 + __obj26909 'event-queue-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 'event-queue-port '2 '#f '#f)) - (let ((__tmp27602 (cons |gerbil/core/mop~MOP-5[1]#_g27550_| '()))) + (##unchecked-structure-set! __obj26909 'event-queue-port '2 '#f '#f)) + (let ((__tmp27519 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27085 __tmp27602 '3 '#f '#f)) + (##unchecked-structure-set! __obj26909 __tmp27519 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26909 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '#t '9 '#f '#f)) - (let ((__tmp27603 |gerbil/core/mop~MOP-5[1]#_g27604_|)) + (##unchecked-structure-set! __obj26909 '#t '10 '#f '#f)) + (let ((__tmp27520 |gerbil/core/mop~MOP-5[1]#_g27521_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27085 __tmp27603 '12 '#f '#f)) - (let ((__tmp27605 |gerbil/core/mop~MOP-5[1]#_g27606_|)) + (##unchecked-structure-set! __obj26909 __tmp27520 '3 '#f '#f)) + (let ((__tmp27522 |gerbil/core/mop~MOP-5[1]#_g27523_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27085 __tmp27605 '14 '#f '#f)) + (##unchecked-structure-set! __obj26909 __tmp27522 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26909 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26909 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26909 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '() '18 '#f '#f)) - __obj27085)) + (##unchecked-structure-set! __obj26909 '() '18 '#f '#f)) + __obj26909)) (define |gerbil/core/mop~MOP-5[:0:]#:table| - (let ((__obj27086 + (let ((__obj26910 (let () (declare (not safe)) (##structure @@ -5767,40 +6699,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 'table::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26910 'table::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 'table '2 '#f '#f)) - (let ((__tmp27607 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26910 'table '2 '#f '#f)) + (let ((__tmp27524 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27086 __tmp27607 '3 '#f '#f)) + (##unchecked-structure-set! __obj26910 __tmp27524 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26910 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '#t '9 '#f '#f)) - (let ((__tmp27608 |gerbil/core/mop~MOP-5[1]#_g27609_|)) + (##unchecked-structure-set! __obj26910 '#t '10 '#f '#f)) + (let ((__tmp27525 |gerbil/core/mop~MOP-5[1]#_g27526_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27086 __tmp27608 '12 '#f '#f)) - (let ((__tmp27610 |gerbil/core/mop~MOP-5[1]#_g27611_|)) + (##unchecked-structure-set! __obj26910 __tmp27525 '3 '#f '#f)) + (let ((__tmp27527 |gerbil/core/mop~MOP-5[1]#_g27528_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27086 __tmp27610 '14 '#f '#f)) + (##unchecked-structure-set! __obj26910 __tmp27527 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26910 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26910 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26910 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '() '18 '#f '#f)) - __obj27086)) + (##unchecked-structure-set! __obj26910 '() '18 '#f '#f)) + __obj26910)) (define |gerbil/core/mop~MOP-5[:0:]#:readenv| - (let ((__obj27087 + (let ((__obj26911 (let () (declare (not safe)) (##structure @@ -5828,40 +6760,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 'readenv::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26911 'readenv::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 'readenv '2 '#f '#f)) - (let ((__tmp27612 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26911 'readenv '2 '#f '#f)) + (let ((__tmp27529 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27087 __tmp27612 '3 '#f '#f)) + (##unchecked-structure-set! __obj26911 __tmp27529 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26911 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '#t '9 '#f '#f)) - (let ((__tmp27613 |gerbil/core/mop~MOP-5[1]#_g27614_|)) + (##unchecked-structure-set! __obj26911 '#t '10 '#f '#f)) + (let ((__tmp27530 |gerbil/core/mop~MOP-5[1]#_g27531_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27087 __tmp27613 '12 '#f '#f)) - (let ((__tmp27615 |gerbil/core/mop~MOP-5[1]#_g27616_|)) + (##unchecked-structure-set! __obj26911 __tmp27530 '3 '#f '#f)) + (let ((__tmp27532 |gerbil/core/mop~MOP-5[1]#_g27533_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27087 __tmp27615 '14 '#f '#f)) + (##unchecked-structure-set! __obj26911 __tmp27532 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26911 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26911 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26911 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '() '18 '#f '#f)) - __obj27087)) + (##unchecked-structure-set! __obj26911 '() '18 '#f '#f)) + __obj26911)) (define |gerbil/core/mop~MOP-5[:0:]#:writeenv| - (let ((__obj27088 + (let ((__obj26912 (let () (declare (not safe)) (##structure @@ -5889,40 +6821,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 'writeenv::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26912 'writeenv::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 'writeenv '2 '#f '#f)) - (let ((__tmp27617 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26912 'writeenv '2 '#f '#f)) + (let ((__tmp27534 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27088 __tmp27617 '3 '#f '#f)) + (##unchecked-structure-set! __obj26912 __tmp27534 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26912 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '#t '9 '#f '#f)) - (let ((__tmp27618 |gerbil/core/mop~MOP-5[1]#_g27619_|)) + (##unchecked-structure-set! __obj26912 '#t '10 '#f '#f)) + (let ((__tmp27535 |gerbil/core/mop~MOP-5[1]#_g27536_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27088 __tmp27618 '12 '#f '#f)) - (let ((__tmp27620 |gerbil/core/mop~MOP-5[1]#_g27621_|)) + (##unchecked-structure-set! __obj26912 __tmp27535 '3 '#f '#f)) + (let ((__tmp27537 |gerbil/core/mop~MOP-5[1]#_g27538_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27088 __tmp27620 '14 '#f '#f)) + (##unchecked-structure-set! __obj26912 __tmp27537 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26912 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26912 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26912 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '() '18 '#f '#f)) - __obj27088)) + (##unchecked-structure-set! __obj26912 '() '18 '#f '#f)) + __obj26912)) (define |gerbil/core/mop~MOP-5[:0:]#:readtable| - (let ((__obj27089 + (let ((__obj26913 (let () (declare (not safe)) (##structure @@ -5950,40 +6882,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 'readtable::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26913 'readtable::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 'readtable '2 '#f '#f)) - (let ((__tmp27622 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26913 'readtable '2 '#f '#f)) + (let ((__tmp27539 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27089 __tmp27622 '3 '#f '#f)) + (##unchecked-structure-set! __obj26913 __tmp27539 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26913 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '#t '9 '#f '#f)) - (let ((__tmp27623 |gerbil/core/mop~MOP-5[1]#_g27624_|)) + (##unchecked-structure-set! __obj26913 '#t '10 '#f '#f)) + (let ((__tmp27540 |gerbil/core/mop~MOP-5[1]#_g27541_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27089 __tmp27623 '12 '#f '#f)) - (let ((__tmp27625 |gerbil/core/mop~MOP-5[1]#_g27626_|)) + (##unchecked-structure-set! __obj26913 __tmp27540 '3 '#f '#f)) + (let ((__tmp27542 |gerbil/core/mop~MOP-5[1]#_g27543_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27089 __tmp27625 '14 '#f '#f)) + (##unchecked-structure-set! __obj26913 __tmp27542 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26913 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26913 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26913 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '() '18 '#f '#f)) - __obj27089)) + (##unchecked-structure-set! __obj26913 '() '18 '#f '#f)) + __obj26913)) (define |gerbil/core/mop~MOP-5[:0:]#:processor| - (let ((__obj27090 + (let ((__obj26914 (let () (declare (not safe)) (##structure @@ -6011,40 +6943,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 'processor::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26914 'processor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 'processor '2 '#f '#f)) - (let ((__tmp27627 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26914 'processor '2 '#f '#f)) + (let ((__tmp27544 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27090 __tmp27627 '3 '#f '#f)) + (##unchecked-structure-set! __obj26914 __tmp27544 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26914 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '#t '9 '#f '#f)) - (let ((__tmp27628 |gerbil/core/mop~MOP-5[1]#_g27629_|)) + (##unchecked-structure-set! __obj26914 '#t '10 '#f '#f)) + (let ((__tmp27545 |gerbil/core/mop~MOP-5[1]#_g27546_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27090 __tmp27628 '12 '#f '#f)) - (let ((__tmp27630 |gerbil/core/mop~MOP-5[1]#_g27631_|)) + (##unchecked-structure-set! __obj26914 __tmp27545 '3 '#f '#f)) + (let ((__tmp27547 |gerbil/core/mop~MOP-5[1]#_g27548_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27090 __tmp27630 '14 '#f '#f)) + (##unchecked-structure-set! __obj26914 __tmp27547 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26914 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26914 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26914 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '() '18 '#f '#f)) - __obj27090)) + (##unchecked-structure-set! __obj26914 '() '18 '#f '#f)) + __obj26914)) (define |gerbil/core/mop~MOP-5[:0:]#:vm| - (let ((__obj27091 + (let ((__obj26915 (let () (declare (not safe)) (##structure @@ -6072,40 +7004,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 'vm::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26915 'vm::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 'vm '2 '#f '#f)) - (let ((__tmp27632 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26915 'vm '2 '#f '#f)) + (let ((__tmp27549 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27091 __tmp27632 '3 '#f '#f)) + (##unchecked-structure-set! __obj26915 __tmp27549 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26915 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '#t '9 '#f '#f)) - (let ((__tmp27633 |gerbil/core/mop~MOP-5[1]#_g27634_|)) + (##unchecked-structure-set! __obj26915 '#t '10 '#f '#f)) + (let ((__tmp27550 |gerbil/core/mop~MOP-5[1]#_g27551_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27091 __tmp27633 '12 '#f '#f)) - (let ((__tmp27635 |gerbil/core/mop~MOP-5[1]#_g27636_|)) + (##unchecked-structure-set! __obj26915 __tmp27550 '3 '#f '#f)) + (let ((__tmp27552 |gerbil/core/mop~MOP-5[1]#_g27553_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27091 __tmp27635 '14 '#f '#f)) + (##unchecked-structure-set! __obj26915 __tmp27552 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26915 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26915 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26915 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '() '18 '#f '#f)) - __obj27091)) + (##unchecked-structure-set! __obj26915 '() '18 '#f '#f)) + __obj26915)) (define |gerbil/core/mop~MOP-5[:0:]#:file-info| - (let ((__obj27092 + (let ((__obj26916 (let () (declare (not safe)) (##structure @@ -6133,40 +7065,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 'file-info::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26916 'file-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 'file-info '2 '#f '#f)) - (let ((__tmp27637 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26916 'file-info '2 '#f '#f)) + (let ((__tmp27554 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27092 __tmp27637 '3 '#f '#f)) + (##unchecked-structure-set! __obj26916 __tmp27554 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26916 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '#t '9 '#f '#f)) - (let ((__tmp27638 |gerbil/core/mop~MOP-5[1]#_g27639_|)) + (##unchecked-structure-set! __obj26916 '#t '10 '#f '#f)) + (let ((__tmp27555 |gerbil/core/mop~MOP-5[1]#_g27556_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27092 __tmp27638 '12 '#f '#f)) - (let ((__tmp27640 |gerbil/core/mop~MOP-5[1]#_g27641_|)) + (##unchecked-structure-set! __obj26916 __tmp27555 '3 '#f '#f)) + (let ((__tmp27557 |gerbil/core/mop~MOP-5[1]#_g27558_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27092 __tmp27640 '14 '#f '#f)) + (##unchecked-structure-set! __obj26916 __tmp27557 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26916 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26916 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26916 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '() '18 '#f '#f)) - __obj27092)) + (##unchecked-structure-set! __obj26916 '() '18 '#f '#f)) + __obj26916)) (define |gerbil/core/mop~MOP-5[:0:]#:socket-info| - (let ((__obj27093 + (let ((__obj26917 (let () (declare (not safe)) (##structure @@ -6194,40 +7126,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 'socket-info::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26917 'socket-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 'socket-info '2 '#f '#f)) - (let ((__tmp27642 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26917 'socket-info '2 '#f '#f)) + (let ((__tmp27559 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27093 __tmp27642 '3 '#f '#f)) + (##unchecked-structure-set! __obj26917 __tmp27559 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26917 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '#t '9 '#f '#f)) - (let ((__tmp27643 |gerbil/core/mop~MOP-5[1]#_g27644_|)) + (##unchecked-structure-set! __obj26917 '#t '10 '#f '#f)) + (let ((__tmp27560 |gerbil/core/mop~MOP-5[1]#_g27561_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27093 __tmp27643 '12 '#f '#f)) - (let ((__tmp27645 |gerbil/core/mop~MOP-5[1]#_g27646_|)) + (##unchecked-structure-set! __obj26917 __tmp27560 '3 '#f '#f)) + (let ((__tmp27562 |gerbil/core/mop~MOP-5[1]#_g27563_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27093 __tmp27645 '14 '#f '#f)) + (##unchecked-structure-set! __obj26917 __tmp27562 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26917 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26917 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26917 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '() '18 '#f '#f)) - __obj27093)) + (##unchecked-structure-set! __obj26917 '() '18 '#f '#f)) + __obj26917)) (define |gerbil/core/mop~MOP-5[:0:]#:address-info| - (let ((__obj27094 + (let ((__obj26918 (let () (declare (not safe)) (##structure @@ -6255,35 +7187,35 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 'address-info::t '1 '#f '#f)) + (##unchecked-structure-set! __obj26918 'address-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 'address-info '2 '#f '#f)) - (let ((__tmp27647 (cons |gerbil/core/mop~MOP-5[1]#_g27240_| '()))) + (##unchecked-structure-set! __obj26918 'address-info '2 '#f '#f)) + (let ((__tmp27564 (cons |gerbil/core/mop~MOP-5[1]#_g27145_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27094 __tmp27647 '3 '#f '#f)) + (##unchecked-structure-set! __obj26918 __tmp27564 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj26918 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '#t '9 '#f '#f)) - (let ((__tmp27648 |gerbil/core/mop~MOP-5[1]#_g27649_|)) + (##unchecked-structure-set! __obj26918 '#t '10 '#f '#f)) + (let ((__tmp27565 |gerbil/core/mop~MOP-5[1]#_g27566_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27094 __tmp27648 '12 '#f '#f)) - (let ((__tmp27650 |gerbil/core/mop~MOP-5[1]#_g27651_|)) + (##unchecked-structure-set! __obj26918 __tmp27565 '3 '#f '#f)) + (let ((__tmp27567 |gerbil/core/mop~MOP-5[1]#_g27568_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27094 __tmp27650 '14 '#f '#f)) + (##unchecked-structure-set! __obj26918 __tmp27567 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj26918 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj26918 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj26918 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '() '18 '#f '#f)) - __obj27094)))) + (##unchecked-structure-set! __obj26918 '() '18 '#f '#f)) + __obj26918)))) diff --git a/src/bootstrap/gerbil/core/mop~MOP-2~0.scm b/src/bootstrap/gerbil/core/mop~MOP-2~0.scm index 3f3bea2701..b457c8a8ce 100644 --- a/src/bootstrap/gerbil/core/mop~MOP-2~0.scm +++ b/src/bootstrap/gerbil/core/mop~MOP-2~0.scm @@ -1,47 +1,99 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/mop~MOP-2::timestamp 1756721283) + (define gerbil/core/mop~MOP-2::timestamp 1769384616) (begin + (define gerbil/core/mop~MOP-2#runtime-type-info::t + (make-class-type + 'gerbil.core#runtime-type-info::t + 'runtime-type-info + (list) + '(id name type-descriptor) + '((print: name)) + '#f)) + (define gerbil/core/mop~MOP-2#runtime-type-info? + (make-class-predicate gerbil/core/mop~MOP-2#runtime-type-info::t)) + (define gerbil/core/mop~MOP-2#make-runtime-type-info + (lambda _%$args22384%_ + (apply make-instance + gerbil/core/mop~MOP-2#runtime-type-info::t + _%$args22384%_))) + (define gerbil/core/mop~MOP-2#!runtime-type-id + (make-class-slot-accessor + gerbil/core/mop~MOP-2#runtime-type-info::t + 'id)) + (define gerbil/core/mop~MOP-2#!runtime-type-name + (make-class-slot-accessor + gerbil/core/mop~MOP-2#runtime-type-info::t + 'name)) + (define gerbil/core/mop~MOP-2#!runtime-type-descriptor + (make-class-slot-accessor + gerbil/core/mop~MOP-2#runtime-type-info::t + 'type-descriptor)) + (define gerbil/core/mop~MOP-2#!runtime-type-id-set! + (make-class-slot-mutator gerbil/core/mop~MOP-2#runtime-type-info::t 'id)) + (define gerbil/core/mop~MOP-2#!runtime-type-name-set! + (make-class-slot-mutator + gerbil/core/mop~MOP-2#runtime-type-info::t + 'name)) + (define gerbil/core/mop~MOP-2#!runtime-type-descriptor-set! + (make-class-slot-mutator + gerbil/core/mop~MOP-2#runtime-type-info::t + 'type-descriptor)) + (define gerbil/core/mop~MOP-2#&!runtime-type-id + (make-class-slot-unchecked-accessor + gerbil/core/mop~MOP-2#runtime-type-info::t + 'id)) + (define gerbil/core/mop~MOP-2#&!runtime-type-name + (make-class-slot-unchecked-accessor + gerbil/core/mop~MOP-2#runtime-type-info::t + 'name)) + (define gerbil/core/mop~MOP-2#&!runtime-type-descriptor + (make-class-slot-unchecked-accessor + gerbil/core/mop~MOP-2#runtime-type-info::t + 'type-descriptor)) + (define gerbil/core/mop~MOP-2#&!runtime-type-id-set! + (make-class-slot-unchecked-mutator + gerbil/core/mop~MOP-2#runtime-type-info::t + 'id)) + (define gerbil/core/mop~MOP-2#&!runtime-type-name-set! + (make-class-slot-unchecked-mutator + gerbil/core/mop~MOP-2#runtime-type-info::t + 'name)) + (define gerbil/core/mop~MOP-2#&!runtime-type-descriptor-set! + (make-class-slot-unchecked-mutator + gerbil/core/mop~MOP-2#runtime-type-info::t + 'type-descriptor)) (define gerbil/core/mop~MOP-2#class-type-info::t (make-class-type 'gerbil.core#class-type-info::t 'class-type-info - (list) - '(id name - super - slots - precedence-list - ordered-slots - struct? - final? - system? - metaclass - constructor-method - type-descriptor - constructor - predicate - accessors - mutators - unchecked-accessors - unchecked-mutators - slot-types - slot-defaults - slot-contracts) + (list gerbil/core/mop~MOP-2#runtime-type-info::t) + '(super slots + precedence-list + ordered-slots + struct? + final? + system? + metaclass + constructor-method + constructor + predicate + accessors + mutators + unchecked-accessors + unchecked-mutators + slot-types + slot-defaults + slot-contracts) '((print: name)) '#f)) (define gerbil/core/mop~MOP-2#class-type-info? (make-class-predicate gerbil/core/mop~MOP-2#class-type-info::t)) (define gerbil/core/mop~MOP-2#make-class-type-info - (lambda _%$args22538%_ + (lambda _%$args22381%_ (apply make-instance gerbil/core/mop~MOP-2#class-type-info::t - _%$args22538%_))) - (define gerbil/core/mop~MOP-2#!class-type-id - (make-class-slot-accessor gerbil/core/mop~MOP-2#class-type-info::t 'id)) - (define gerbil/core/mop~MOP-2#!class-type-name - (make-class-slot-accessor - gerbil/core/mop~MOP-2#class-type-info::t - 'name)) + _%$args22381%_))) (define gerbil/core/mop~MOP-2#!class-type-super (make-class-slot-accessor gerbil/core/mop~MOP-2#class-type-info::t @@ -78,10 +130,6 @@ (make-class-slot-accessor gerbil/core/mop~MOP-2#class-type-info::t 'constructor-method)) - (define gerbil/core/mop~MOP-2#!class-type-descriptor - (make-class-slot-accessor - gerbil/core/mop~MOP-2#class-type-info::t - 'type-descriptor)) (define gerbil/core/mop~MOP-2#!class-type-constructor (make-class-slot-accessor gerbil/core/mop~MOP-2#class-type-info::t @@ -118,10 +166,16 @@ (make-class-slot-accessor gerbil/core/mop~MOP-2#class-type-info::t 'slot-contracts)) - (define gerbil/core/mop~MOP-2#!class-type-id-set! - (make-class-slot-mutator gerbil/core/mop~MOP-2#class-type-info::t 'id)) - (define gerbil/core/mop~MOP-2#!class-type-name-set! - (make-class-slot-mutator gerbil/core/mop~MOP-2#class-type-info::t 'name)) + (define gerbil/core/mop~MOP-2#!class-type-id + (make-class-slot-accessor gerbil/core/mop~MOP-2#class-type-info::t 'id)) + (define gerbil/core/mop~MOP-2#!class-type-name + (make-class-slot-accessor + gerbil/core/mop~MOP-2#class-type-info::t + 'name)) + (define gerbil/core/mop~MOP-2#!class-type-descriptor + (make-class-slot-accessor + gerbil/core/mop~MOP-2#class-type-info::t + 'type-descriptor)) (define gerbil/core/mop~MOP-2#!class-type-super-set! (make-class-slot-mutator gerbil/core/mop~MOP-2#class-type-info::t @@ -158,10 +212,6 @@ (make-class-slot-mutator gerbil/core/mop~MOP-2#class-type-info::t 'constructor-method)) - (define gerbil/core/mop~MOP-2#!class-type-descriptor-set! - (make-class-slot-mutator - gerbil/core/mop~MOP-2#class-type-info::t - 'type-descriptor)) (define gerbil/core/mop~MOP-2#!class-type-constructor-set! (make-class-slot-mutator gerbil/core/mop~MOP-2#class-type-info::t @@ -198,14 +248,14 @@ (make-class-slot-mutator gerbil/core/mop~MOP-2#class-type-info::t 'slot-contracts)) - (define gerbil/core/mop~MOP-2#&!class-type-id - (make-class-slot-unchecked-accessor - gerbil/core/mop~MOP-2#class-type-info::t - 'id)) - (define gerbil/core/mop~MOP-2#&!class-type-name - (make-class-slot-unchecked-accessor + (define gerbil/core/mop~MOP-2#!class-type-id-set! + (make-class-slot-mutator gerbil/core/mop~MOP-2#class-type-info::t 'id)) + (define gerbil/core/mop~MOP-2#!class-type-name-set! + (make-class-slot-mutator gerbil/core/mop~MOP-2#class-type-info::t 'name)) + (define gerbil/core/mop~MOP-2#!class-type-descriptor-set! + (make-class-slot-mutator gerbil/core/mop~MOP-2#class-type-info::t - 'name)) + 'type-descriptor)) (define gerbil/core/mop~MOP-2#&!class-type-super (make-class-slot-unchecked-accessor gerbil/core/mop~MOP-2#class-type-info::t @@ -242,10 +292,6 @@ (make-class-slot-unchecked-accessor gerbil/core/mop~MOP-2#class-type-info::t 'constructor-method)) - (define gerbil/core/mop~MOP-2#&!class-type-descriptor - (make-class-slot-unchecked-accessor - gerbil/core/mop~MOP-2#class-type-info::t - 'type-descriptor)) (define gerbil/core/mop~MOP-2#&!class-type-constructor (make-class-slot-unchecked-accessor gerbil/core/mop~MOP-2#class-type-info::t @@ -282,14 +328,18 @@ (make-class-slot-unchecked-accessor gerbil/core/mop~MOP-2#class-type-info::t 'slot-contracts)) - (define gerbil/core/mop~MOP-2#&!class-type-id-set! - (make-class-slot-unchecked-mutator + (define gerbil/core/mop~MOP-2#&!class-type-id + (make-class-slot-unchecked-accessor gerbil/core/mop~MOP-2#class-type-info::t 'id)) - (define gerbil/core/mop~MOP-2#&!class-type-name-set! - (make-class-slot-unchecked-mutator + (define gerbil/core/mop~MOP-2#&!class-type-name + (make-class-slot-unchecked-accessor gerbil/core/mop~MOP-2#class-type-info::t 'name)) + (define gerbil/core/mop~MOP-2#&!class-type-descriptor + (make-class-slot-unchecked-accessor + gerbil/core/mop~MOP-2#class-type-info::t + 'type-descriptor)) (define gerbil/core/mop~MOP-2#&!class-type-super-set! (make-class-slot-unchecked-mutator gerbil/core/mop~MOP-2#class-type-info::t @@ -326,10 +376,6 @@ (make-class-slot-unchecked-mutator gerbil/core/mop~MOP-2#class-type-info::t 'constructor-method)) - (define gerbil/core/mop~MOP-2#&!class-type-descriptor-set! - (make-class-slot-unchecked-mutator - gerbil/core/mop~MOP-2#class-type-info::t - 'type-descriptor)) (define gerbil/core/mop~MOP-2#&!class-type-constructor-set! (make-class-slot-unchecked-mutator gerbil/core/mop~MOP-2#class-type-info::t @@ -366,149 +412,195 @@ (make-class-slot-unchecked-mutator gerbil/core/mop~MOP-2#class-type-info::t 'slot-contracts)) + (define gerbil/core/mop~MOP-2#&!class-type-id-set! + (make-class-slot-unchecked-mutator + gerbil/core/mop~MOP-2#class-type-info::t + 'id)) + (define gerbil/core/mop~MOP-2#&!class-type-name-set! + (make-class-slot-unchecked-mutator + gerbil/core/mop~MOP-2#class-type-info::t + 'name)) + (define gerbil/core/mop~MOP-2#&!class-type-descriptor-set! + (make-class-slot-unchecked-mutator + gerbil/core/mop~MOP-2#class-type-info::t + 'type-descriptor)) (define gerbil/core/mop~MOP-2#class-type-info::apply-macro-expander - (lambda (_%self22449%_ _%stx22450%_) - (let* ((_%g2245222471%_ - (lambda (_%g2245322468%_) + (lambda (_%self22294%_ _%stx22295%_) + (let* ((_%g2229722316%_ + (lambda (_%g2229822313%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2245322468%_))) - (_%g2245122535%_ - (lambda (_%g2245322474%_) - (if (gx#stx-pair? _%g2245322474%_) - (let ((_%e2245522476%_ (gx#syntax-e _%g2245322474%_))) - (let ((_%hd2245622479%_ + _%g2229822313%_))) + (_%g2229622378%_ + (lambda (_%g2229822319%_) + (if (gx#stx-pair? _%g2229822319%_) + (let ((_%e2230022321%_ (gx#syntax-e _%g2229822319%_))) + (let ((_%hd2230122324%_ (let () (declare (not safe)) - (##car _%e2245522476%_))) - (_%tl2245722481%_ + (##car _%e2230022321%_))) + (_%tl2230222326%_ (let () (declare (not safe)) - (##cdr _%e2245522476%_)))) - (if (gx#stx-pair/null? _%tl2245722481%_) - (let ((_g27095_ + (##cdr _%e2230022321%_)))) + (if (gx#stx-pair/null? _%tl2230222326%_) + (let ((_g26919_ (gx#syntax-split-splice - _%tl2245722481%_ + _%tl2230222326%_ '0))) (begin - (let ((_g27096_ + (let ((_g26920_ (let () (declare (not safe)) - (if (##values? _g27095_) - (##values-length _g27095_) + (if (##values? _g26919_) + (##values-length _g26919_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27096_ 2))) + (##fx= _g26920_ 2))) (error "Context expects 2 values" - _g27096_))) - (let ((_%target2245822484%_ + _g26920_))) + (let ((_%target2230322329%_ (let () (declare (not safe)) - (##values-ref _g27095_ 0))) - (_%tl2246022486%_ + (##values-ref _g26919_ 0))) + (_%tl2230522331%_ (let () (declare (not safe)) - (##values-ref _g27095_ 1)))) - (if (gx#stx-null? _%tl2246022486%_) - (letrec ((_%loop2246122489%_ - (lambda (_%hd2245922492%_ - _%arg2246522494%_) + (##values-ref _g26919_ 1)))) + (if (gx#stx-null? _%tl2230522331%_) + (letrec ((_%loop2230622334%_ + (lambda (_%hd2230422337%_ + _%arg2231022339%_) (if (gx#stx-pair? - _%hd2245922492%_) - (let ((_%e2246222497%_ + _%hd2230422337%_) + (let ((_%e2230722341%_ (gx#syntax-e - _%hd2245922492%_))) - (let ((_%lp-hd2246322500%_ + _%hd2230422337%_))) + (let ((_%lp-hd2230822344%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e2246222497%_))) - (_%lp-tl2246422502%_ + (let () (declare (not safe)) (##car _%e2230722341%_))) + (_%lp-tl2230922346%_ (let () (declare (not safe)) - (##cdr _%e2246222497%_)))) - (_%loop2246122489%_ - _%lp-tl2246422502%_ - (cons _%lp-hd2246322500%_ _%arg2246522494%_)))) - (let ((_%arg2246622505%_ (reverse _%arg2246522494%_))) - ((lambda (_%L22508%_) - (let ((_%$e22522%_ - (let ((__obj27014 _%self22449%_)) + (##cdr _%e2230722341%_)))) + (_%loop2230622334%_ + _%lp-tl2230922346%_ + (cons _%lp-hd2230822344%_ _%arg2231022339%_)))) + (let ((_%arg2231122349%_ (reverse _%arg2231022339%_))) + ((lambda (_%g2229922351%_) + (let ((_%$e22365%_ + (let ((__obj26826 _%self22294%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27014 + __obj26826 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj27014 + __obj26826 '13 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj27014 + __obj26826 'constructor))))) - (if _%$e22522%_ - ((lambda (_%make22525%_) - (cons _%make22525%_ - (foldr (lambda (_%g2252622529%_ - _%g2252722531%_) - (cons _%g2252622529%_ - _%g2252722531%_)) + (if _%$e22365%_ + ((lambda (_%make22368%_) + (cons _%make22368%_ + (foldr (lambda (_%g2236922372%_ + _%g2237022374%_) + (cons _%g2236922372%_ + _%g2237022374%_)) '() - _%L22508%_))) - _%$e22522%_) + _%g2229922351%_))) + _%$e22365%_) (gx#raise-syntax-error '#f '"no constructor defined for class" - _%stx22450%_ - _%self22449%_)))) - _%arg2246622505%_)))))) + _%stx22295%_ + _%self22294%_)))) + _%arg2231122349%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2246122489%_ - _%target2245822484%_ + (_%loop2230622334%_ + _%target2230322329%_ '())) - (_%g2245222471%_ _%g2245322474%_))))) - (_%g2245222471%_ _%g2245322474%_)))) - (_%g2245222471%_ _%g2245322474%_))))) - (_%g2245122535%_ _%stx22450%_)))) + (_%g2229722316%_ _%g2229822319%_))))) + (_%g2229722316%_ _%g2229822319%_)))) + (_%g2229722316%_ _%g2229822319%_))))) + (_%g2229622378%_ _%stx22295%_)))) (bind-method! gerbil/core/mop~MOP-2#class-type-info::t 'apply-macro-expander gerbil/core/mop~MOP-2#class-type-info::apply-macro-expander) + (define gerbil/core/mop~MOP-2#syntax-local-runtime-type-info?__% + (lambda (_%stx22276%_ _%is?22277%_) + (if (gx#identifier? _%stx22276%_) + (let ((_%e2227822280%_ (gx#syntax-local-value _%stx22276%_ false))) + (if _%e2227822280%_ + (let ((_%e22282%_ _%e2227822280%_)) + (if (let () + (declare (not safe)) + (class-instance? + gerbil/core/mop~MOP-2#runtime-type-info::t + _%e22282%_)) + (_%is?22277%_ _%e22282%_) + '#f)) + '#f)) + '#f))) + (define gerbil/core/mop~MOP-2#syntax-local-runtime-type-info?__0 + (lambda (_%stx22287%_) + (let ((_%is?22289%_ true)) + (gerbil/core/mop~MOP-2#syntax-local-runtime-type-info?__% + _%stx22287%_ + _%is?22289%_)))) + (define gerbil/core/mop~MOP-2#syntax-local-runtime-type-info? + (lambda _g26921_ + (let ((_g26922_ (let () (declare (not safe)) (##length _g26921_)))) + (cond ((let () (declare (not safe)) (##fx= _g26922_ 1)) + (apply gerbil/core/mop~MOP-2#syntax-local-runtime-type-info?__0 + _g26921_)) + ((let () (declare (not safe)) (##fx= _g26922_ 2)) + (apply gerbil/core/mop~MOP-2#syntax-local-runtime-type-info?__% + _g26921_)) + (else + (##raise-wrong-number-of-arguments-exception + gerbil/core/mop~MOP-2#syntax-local-runtime-type-info? + _g26921_)))))) (define gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% - (lambda (_%stx22430%_ _%is?22431%_) - (if (gx#identifier? _%stx22430%_) - (let ((_%e2243222434%_ (gx#syntax-local-value _%stx22430%_ false))) - (if _%e2243222434%_ - (let ((_%e22437%_ _%e2243222434%_)) + (lambda (_%stx22257%_ _%is?22258%_) + (if (gx#identifier? _%stx22257%_) + (let ((_%e2225922261%_ (gx#syntax-local-value _%stx22257%_ false))) + (if _%e2225922261%_ + (let ((_%e22263%_ _%e2225922261%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%e22437%_)) - (_%is?22431%_ _%e22437%_) + _%e22263%_)) + (_%is?22258%_ _%e22263%_) '#f)) '#f)) '#f))) (define gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - (lambda (_%stx22442%_) - (let ((_%is?22444%_ true)) + (lambda (_%stx22268%_) + (let ((_%is?22270%_ true)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% - _%stx22442%_ - _%is?22444%_)))) + _%stx22268%_ + _%is?22270%_)))) (define gerbil/core/mop~MOP-2#syntax-local-class-type-info? - (lambda _g27097_ - (let ((_g27098_ (let () (declare (not safe)) (##length _g27097_)))) - (cond ((let () (declare (not safe)) (##fx= _g27098_ 1)) + (lambda _g26923_ + (let ((_g26924_ (let () (declare (not safe)) (##length _g26923_)))) + (cond ((let () (declare (not safe)) (##fx= _g26924_ 1)) (apply gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _g27097_)) - ((let () (declare (not safe)) (##fx= _g27098_ 2)) + _g26923_)) + ((let () (declare (not safe)) (##fx= _g26924_ 2)) (apply gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% - _g27097_)) + _g26923_)) (else (##raise-wrong-number-of-arguments-exception gerbil/core/mop~MOP-2#syntax-local-class-type-info? - _g27097_)))))))) + _g26923_)))))))) diff --git a/src/bootstrap/gerbil/core/more-sugar~1.scm b/src/bootstrap/gerbil/core/more-sugar~1.scm index 534a571724..0688589250 100644 --- a/src/bootstrap/gerbil/core/more-sugar~1.scm +++ b/src/bootstrap/gerbil/core/more-sugar~1.scm @@ -1,29 +1,29 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/more-sugar[1]#_g45052_| + (define |gerbil/core/more-sugar[1]#_g44847_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[1]#_g45055_| + (define |gerbil/core/more-sugar[1]#_g44850_| (##structure gx#syntax-quote::t 'catch #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[1]#_g45056_| + (define |gerbil/core/more-sugar[1]#_g44851_| (##structure gx#syntax-quote::t 'finally #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[1]#_g45057_| + (define |gerbil/core/more-sugar[1]#_g44852_| (##structure gx#syntax-quote::t 'finally #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[1]#_g45058_| + (define |gerbil/core/more-sugar[1]#_g44853_| (##structure gx#syntax-quote::t 'catch @@ -42,10 +42,10 @@ (define |gerbil/core/more-sugar[1]#setq-macro?| (make-class-predicate |gerbil/core/more-sugar[1]#setq-macro::t|)) (define |gerbil/core/more-sugar[1]#make-setq-macro| - (lambda _%$args40301%_ + (lambda _%$args40180%_ (apply make-instance |gerbil/core/more-sugar[1]#setq-macro::t| - _%$args40301%_))) + _%$args40180%_))) (define |gerbil/core/more-sugar[1]#setq-macro-macro| (make-class-slot-accessor |gerbil/core/more-sugar[1]#setq-macro::t| @@ -73,10 +73,10 @@ (define |gerbil/core/more-sugar[1]#setf-macro?| (make-class-predicate |gerbil/core/more-sugar[1]#setf-macro::t|)) (define |gerbil/core/more-sugar[1]#make-setf-macro| - (lambda _%$args40297%_ + (lambda _%$args40176%_ (apply make-instance |gerbil/core/more-sugar[1]#setf-macro::t| - _%$args40297%_))) + _%$args40176%_))) (define |gerbil/core/more-sugar[1]#setf-macro-macro| (make-class-slot-accessor |gerbil/core/more-sugar[1]#setf-macro::t| @@ -94,1303 +94,1313 @@ |gerbil/core/more-sugar[1]#setf-macro::t| 'macro)) (define |gerbil/core/more-sugar[1]#syntax-local-setf-macro?| - (lambda (_%stx40294%_) - (if (gx#identifier? _%stx40294%_) - (let ((__tmp45015 (gx#syntax-local-value _%stx40294%_ false))) + (lambda (_%stx40173%_) + (if (gx#identifier? _%stx40173%_) + (let ((__tmp44810 (gx#syntax-local-value _%stx40173%_ false))) (declare (not safe)) (class-instance? |gerbil/core/more-sugar[1]#setf-macro::t| - __tmp45015)) + __tmp44810)) '#f))) (define |gerbil/core/more-sugar[1]#syntax-local-setq-macro?| - (lambda (_%stx40291%_) - (if (gx#identifier? _%stx40291%_) - (let ((__tmp45016 (gx#syntax-local-value _%stx40291%_ false))) + (lambda (_%stx40170%_) + (if (gx#identifier? _%stx40170%_) + (let ((__tmp44811 (gx#syntax-local-value _%stx40170%_ false))) (declare (not safe)) (class-instance? |gerbil/core/more-sugar[1]#setq-macro::t| - __tmp45016)) + __tmp44811)) '#f))) (define |gerbil/core/more-sugar[1]#expand-set!| - (lambda (_%stx39916%_) - (let* ((_%__stx4454444545%_ _%stx39916%_) - (_%g3992239985%_ + (lambda (_%stx39797%_) + (let* ((_%__stx4433944340%_ _%stx39797%_) + (_%g3980339866%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4454444545%_)))) - (let ((_%__kont4454744548%_ - (lambda (_%L40268%_ _%L40270%_) + _%__stx4433944340%_)))) + (let ((_%__kont4434244343%_ + (lambda (_%g3980540147%_ _%g3980640149%_) (gx#core-apply-expander - (gx#syntax-local-e _%L40270%_) - _%stx39916%_))) - (_%__kont4454944550%_ - (lambda (_%L40157%_ _%L40159%_ _%L40160%_) - (let* ((_%g4018240190%_ - (lambda (_%g4018340186%_) + (gx#syntax-local-e _%g3980640149%_) + _%stx39797%_))) + (_%__kont4434444345%_ + (lambda (_%g3981940036%_ _%g3982040038%_ _%g3982140039%_) + (let* ((_%g4006140069%_ + (lambda (_%g4006240065%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4018340186%_))) - (_%g4018140217%_ - (lambda (_%g4018340194%_) - ((lambda (_%L40197%_) - (cons _%L40197%_ - (foldr (lambda (_%g4020840211%_ - _%g4020940214%_) - (cons _%g4020840211%_ - _%g4020940214%_)) - (cons _%L40157%_ '()) - _%L40159%_))) - _%g4018340194%_)))) - (_%g4018140217%_ - (gx#stx-identifier _%L40160%_ _%L40160%_ '"-set!"))))) - (_%__kont4455344554%_ - (lambda (_%L40067%_) + _%g4006240065%_))) + (_%g4006040096%_ + (lambda (_%g4006240073%_) + ((lambda (_%g4006340076%_) + (cons _%g4006340076%_ + (foldr (lambda (_%g4008740090%_ + _%g4008840093%_) + (cons _%g4008740090%_ + _%g4008840093%_)) + (cons _%g3981940036%_ '()) + _%g3982040038%_))) + _%g4006240073%_)))) + (_%g4006040096%_ + (gx#stx-identifier + _%g3982140039%_ + _%g3982140039%_ + '"-set!"))))) + (_%__kont4434844349%_ + (lambda (_%g3984339948%_) (gx#core-apply-expander - (gx#syntax-local-e _%L40067%_) - _%stx39916%_))) - (_%__kont4455544556%_ - (lambda (_%L40022%_ _%L40024%_) + (gx#syntax-local-e _%g3984339948%_) + _%stx39797%_))) + (_%__kont4435044351%_ + (lambda (_%g3985039903%_ _%g3985139905%_) (cons (gx#datum->syntax '#f '%#set!) - (cons _%L40024%_ (cons _%L40022%_ '())))))) - (let* ((_%__match4464344644%_ - (lambda (_%e3997139992%_ - _%hd3997239996%_ - _%tl3997339999%_ - _%e3997440002%_ - _%hd3997540006%_ - _%tl3997640009%_ - _%e3997740012%_ - _%hd3997840016%_ - _%tl3997940019%_) - (let ((_%L40022%_ _%hd3997840016%_) - (_%L40024%_ _%hd3997540006%_)) - (if (gx#identifier? _%L40024%_) - (_%__kont4455544556%_ _%L40022%_ _%L40024%_) - (let () (declare (not safe)) (_%g3992239985%_)))))) - (_%__match4462344624%_ - (lambda (_%e3996340047%_ - _%hd3996440051%_ - _%tl3996540054%_ - _%e3996640057%_ - _%hd3996740061%_ - _%tl3996840064%_) - (let ((_%L40067%_ _%hd3996740061%_)) + (cons _%g3985139905%_ (cons _%g3985039903%_ '())))))) + (let* ((_%__match4443844439%_ + (lambda (_%e3985239873%_ + _%hd3985339877%_ + _%tl3985439880%_ + _%e3985539883%_ + _%hd3985639887%_ + _%tl3985739890%_ + _%e3985839893%_ + _%hd3985939897%_ + _%tl3986039900%_) + (let ((_%g3985039903%_ _%hd3985939897%_) + (_%g3985139905%_ _%hd3985639887%_)) + (if (gx#identifier? _%g3985139905%_) + (_%__kont4435044351%_ + _%g3985039903%_ + _%g3985139905%_) + (let () (declare (not safe)) (_%g3980339866%_)))))) + (_%__match4441844419%_ + (lambda (_%e3984439928%_ + _%hd3984539932%_ + _%tl3984639935%_ + _%e3984739938%_ + _%hd3984839942%_ + _%tl3984939945%_) + (let ((_%g3984339948%_ _%hd3984839942%_)) (if (|gerbil/core/more-sugar[1]#syntax-local-setq-macro?| - _%L40067%_) - (_%__kont4455344554%_ _%L40067%_) - (if (gx#stx-pair? _%tl3996840064%_) - (let ((_%e3997740012%_ - (gx#syntax-e _%tl3996840064%_))) - (let ((_%tl3997940019%_ + _%g3984339948%_) + (_%__kont4434844349%_ _%g3984339948%_) + (if (gx#stx-pair? _%tl3984939945%_) + (let ((_%e3985839893%_ + (gx#syntax-e _%tl3984939945%_))) + (let ((_%tl3986039900%_ (let () (declare (not safe)) - (##cdr _%e3997740012%_))) - (_%hd3997840016%_ + (##cdr _%e3985839893%_))) + (_%hd3985939897%_ (let () (declare (not safe)) - (##car _%e3997740012%_)))) - (if (gx#stx-null? _%tl3997940019%_) - (_%__match4464344644%_ - _%e3996340047%_ - _%hd3996440051%_ - _%tl3996540054%_ - _%e3996640057%_ - _%hd3996740061%_ - _%tl3996840064%_ - _%e3997740012%_ - _%hd3997840016%_ - _%tl3997940019%_) + (##car _%e3985839893%_)))) + (if (gx#stx-null? _%tl3986039900%_) + (_%__match4443844439%_ + _%e3984439928%_ + _%hd3984539932%_ + _%tl3984639935%_ + _%e3984739938%_ + _%hd3984839942%_ + _%tl3984939945%_ + _%e3985839893%_ + _%hd3985939897%_ + _%tl3986039900%_) (let () (declare (not safe)) - (_%g3992239985%_))))) + (_%g3980339866%_))))) (let () (declare (not safe)) - (_%g3992239985%_))))))) - (_%__match4461144612%_ - (lambda (_%e3994140087%_ - _%hd3994240091%_ - _%tl3994340094%_ - _%e3994440097%_ - _%hd3994540101%_ - _%tl3994640104%_ - _%e3994740107%_ - _%hd3994840111%_ - _%tl3994940114%_ - _%__splice4455144552%_ - _%target3995040117%_ - _%tl3995240120%_) - (letrec ((_%loop3995340123%_ - (lambda (_%hd3995140127%_ _%arg3995740130%_) - (if (gx#stx-pair? _%hd3995140127%_) - (let ((_%e3995440133%_ - (gx#syntax-e _%hd3995140127%_))) - (let ((_%lp-tl3995640140%_ + (_%g3980339866%_))))))) + (_%__match4440644407%_ + (lambda (_%e3982239968%_ + _%hd3982339972%_ + _%tl3982439975%_ + _%e3982539978%_ + _%hd3982639982%_ + _%tl3982739985%_ + _%e3982839988%_ + _%hd3982939992%_ + _%tl3983039995%_ + _%__splice4434644347%_ + _%target3983139998%_ + _%tl3983340001%_) + (letrec ((_%loop3983440004%_ + (lambda (_%hd3983240008%_ _%arg3983840011%_) + (if (gx#stx-pair? _%hd3983240008%_) + (let ((_%e3983540013%_ + (gx#syntax-e _%hd3983240008%_))) + (let ((_%lp-tl3983740020%_ (let () (declare (not safe)) - (##cdr _%e3995440133%_))) - (_%lp-hd3995540137%_ + (##cdr _%e3983540013%_))) + (_%lp-hd3983640017%_ (let () (declare (not safe)) - (##car _%e3995440133%_)))) - (_%loop3995340123%_ - _%lp-tl3995640140%_ - (cons _%lp-hd3995540137%_ - _%arg3995740130%_)))) - (let ((_%arg3995840143%_ - (reverse _%arg3995740130%_))) - (if (gx#stx-pair? _%tl3994640104%_) - (let ((_%e3995940147%_ + (##car _%e3983540013%_)))) + (_%loop3983440004%_ + _%lp-tl3983740020%_ + (cons _%lp-hd3983640017%_ + _%arg3983840011%_)))) + (let ((_%arg3983940023%_ + (reverse _%arg3983840011%_))) + (if (gx#stx-pair? _%tl3982739985%_) + (let ((_%e3984040026%_ (gx#syntax-e - _%tl3994640104%_))) - (let ((_%tl3996140154%_ + _%tl3982739985%_))) + (let ((_%tl3984240033%_ (let () (declare (not safe)) - (##cdr _%e3995940147%_))) - (_%hd3996040151%_ + (##cdr _%e3984040026%_))) + (_%hd3984140030%_ (let () (declare (not safe)) - (##car _%e3995940147%_)))) + (##car _%e3984040026%_)))) (if (gx#stx-null? - _%tl3996140154%_) - (let ((_%L40157%_ - _%hd3996040151%_) - (_%L40159%_ - _%arg3995840143%_) - (_%L40160%_ - _%hd3994840111%_)) + _%tl3984240033%_) + (let ((_%g3981940036%_ + _%hd3984140030%_) + (_%g3982040038%_ + _%arg3983940023%_) + (_%g3982140039%_ + _%hd3982939992%_)) (if (gx#identifier? - _%L40160%_) - (_%__kont4454944550%_ - _%L40157%_ - _%L40159%_ - _%L40160%_) - (_%__match4462344624%_ - _%e3994140087%_ - _%hd3994240091%_ - _%tl3994340094%_ - _%e3994440097%_ - _%hd3994540101%_ - _%tl3994640104%_))) - (_%__match4462344624%_ - _%e3994140087%_ - _%hd3994240091%_ - _%tl3994340094%_ - _%e3994440097%_ - _%hd3994540101%_ - _%tl3994640104%_)))) - (_%__match4462344624%_ - _%e3994140087%_ - _%hd3994240091%_ - _%tl3994340094%_ - _%e3994440097%_ - _%hd3994540101%_ - _%tl3994640104%_))))))) - (_%loop3995340123%_ _%target3995040117%_ '()))))) - (if (gx#stx-pair? _%__stx4454444545%_) - (let ((_%e3992640228%_ (gx#syntax-e _%__stx4454444545%_))) - (let ((_%tl3992840235%_ + _%g3982140039%_) + (_%__kont4434444345%_ + _%g3981940036%_ + _%g3982040038%_ + _%g3982140039%_) + (_%__match4441844419%_ + _%e3982239968%_ + _%hd3982339972%_ + _%tl3982439975%_ + _%e3982539978%_ + _%hd3982639982%_ + _%tl3982739985%_))) + (_%__match4441844419%_ + _%e3982239968%_ + _%hd3982339972%_ + _%tl3982439975%_ + _%e3982539978%_ + _%hd3982639982%_ + _%tl3982739985%_)))) + (_%__match4441844419%_ + _%e3982239968%_ + _%hd3982339972%_ + _%tl3982439975%_ + _%e3982539978%_ + _%hd3982639982%_ + _%tl3982739985%_))))))) + (_%loop3983440004%_ _%target3983139998%_ '()))))) + (if (gx#stx-pair? _%__stx4433944340%_) + (let ((_%e3980740107%_ (gx#syntax-e _%__stx4433944340%_))) + (let ((_%tl3980940114%_ (let () (declare (not safe)) - (##cdr _%e3992640228%_))) - (_%hd3992740232%_ + (##cdr _%e3980740107%_))) + (_%hd3980840111%_ (let () (declare (not safe)) - (##car _%e3992640228%_)))) - (if (gx#stx-pair? _%tl3992840235%_) - (let ((_%e3992940238%_ - (gx#syntax-e _%tl3992840235%_))) - (let ((_%tl3993140245%_ + (##car _%e3980740107%_)))) + (if (gx#stx-pair? _%tl3980940114%_) + (let ((_%e3981040117%_ + (gx#syntax-e _%tl3980940114%_))) + (let ((_%tl3981240124%_ (let () (declare (not safe)) - (##cdr _%e3992940238%_))) - (_%hd3993040242%_ + (##cdr _%e3981040117%_))) + (_%hd3981140121%_ (let () (declare (not safe)) - (##car _%e3992940238%_)))) - (if (gx#stx-pair? _%hd3993040242%_) - (let ((_%e3993240248%_ - (gx#syntax-e _%hd3993040242%_))) - (let ((_%tl3993440255%_ + (##car _%e3981040117%_)))) + (if (gx#stx-pair? _%hd3981140121%_) + (let ((_%e3981340127%_ + (gx#syntax-e _%hd3981140121%_))) + (let ((_%tl3981540134%_ (let () (declare (not safe)) - (##cdr _%e3993240248%_))) - (_%hd3993340252%_ + (##cdr _%e3981340127%_))) + (_%hd3981440131%_ (let () (declare (not safe)) - (##car _%e3993240248%_)))) - (if (gx#stx-pair? _%tl3993140245%_) - (let ((_%e3993540258%_ + (##car _%e3981340127%_)))) + (if (gx#stx-pair? _%tl3981240124%_) + (let ((_%e3981640137%_ (gx#syntax-e - _%tl3993140245%_))) - (let ((_%tl3993740265%_ + _%tl3981240124%_))) + (let ((_%tl3981840144%_ (let () (declare (not safe)) - (##cdr _%e3993540258%_))) - (_%hd3993640262%_ + (##cdr _%e3981640137%_))) + (_%hd3981740141%_ (let () (declare (not safe)) - (##car _%e3993540258%_)))) + (##car _%e3981640137%_)))) (if (gx#stx-null? - _%tl3993740265%_) + _%tl3981840144%_) (if (|gerbil/core/more-sugar[1]#syntax-local-setf-macro?| (gx#datum->syntax '#f 'setfid)) - (let ((_%L40268%_ - _%hd3993640262%_) - (_%L40270%_ - _%hd3993340252%_)) - (_%__kont4454744548%_ - _%L40268%_ - _%L40270%_)) + (let ((_%g3980540147%_ + _%hd3981740141%_) + (_%g3980640149%_ + _%hd3981440131%_)) + (_%__kont4434244343%_ + _%g3980540147%_ + _%g3980640149%_)) (if (gx#stx-pair/null? - _%tl3993440255%_) - (let ((_%__splice4455144552%_ + _%tl3981540134%_) + (let ((_%__splice4434644347%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice->vector _%tl3993440255%_ '0))) - (let ((_%tl3995240120%_ + (gx#syntax-split-splice->vector _%tl3981540134%_ '0))) + (let ((_%tl3983340001%_ (let () (declare (not safe)) - (##vector-ref _%__splice4455144552%_ '1))) - (_%target3995040117%_ + (##vector-ref _%__splice4434644347%_ '1))) + (_%target3983139998%_ (let () (declare (not safe)) - (##vector-ref _%__splice4455144552%_ '0)))) - (if (gx#stx-null? _%tl3995240120%_) - (_%__match4461144612%_ - _%e3992640228%_ - _%hd3992740232%_ - _%tl3992840235%_ - _%e3992940238%_ - _%hd3993040242%_ - _%tl3993140245%_ - _%e3993240248%_ - _%hd3993340252%_ - _%tl3993440255%_ - _%__splice4455144552%_ - _%target3995040117%_ - _%tl3995240120%_) - (_%__match4462344624%_ - _%e3992640228%_ - _%hd3992740232%_ - _%tl3992840235%_ - _%e3992940238%_ - _%hd3993040242%_ - _%tl3993140245%_)))) - (_%__match4462344624%_ - _%e3992640228%_ - _%hd3992740232%_ - _%tl3992840235%_ - _%e3992940238%_ - _%hd3993040242%_ - _%tl3993140245%_))) + (##vector-ref _%__splice4434644347%_ '0)))) + (if (gx#stx-null? _%tl3983340001%_) + (_%__match4440644407%_ + _%e3980740107%_ + _%hd3980840111%_ + _%tl3980940114%_ + _%e3981040117%_ + _%hd3981140121%_ + _%tl3981240124%_ + _%e3981340127%_ + _%hd3981440131%_ + _%tl3981540134%_ + _%__splice4434644347%_ + _%target3983139998%_ + _%tl3983340001%_) + (_%__match4441844419%_ + _%e3980740107%_ + _%hd3980840111%_ + _%tl3980940114%_ + _%e3981040117%_ + _%hd3981140121%_ + _%tl3981240124%_)))) + (_%__match4441844419%_ + _%e3980740107%_ + _%hd3980840111%_ + _%tl3980940114%_ + _%e3981040117%_ + _%hd3981140121%_ + _%tl3981240124%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl3993440255%_) - (let ((_%__splice4455144552%_ + _%tl3981540134%_) + (let ((_%__splice4434644347%_ (gx#syntax-split-splice->vector - _%tl3993440255%_ + _%tl3981540134%_ '0))) - (let ((_%tl3995240120%_ + (let ((_%tl3983340001%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice4455144552%_ '1))) - (_%target3995040117%_ + (##vector-ref _%__splice4434644347%_ '1))) + (_%target3983139998%_ (let () (declare (not safe)) - (##vector-ref _%__splice4455144552%_ '0)))) - (if (gx#stx-null? _%tl3995240120%_) - (_%__match4461144612%_ - _%e3992640228%_ - _%hd3992740232%_ - _%tl3992840235%_ - _%e3992940238%_ - _%hd3993040242%_ - _%tl3993140245%_ - _%e3993240248%_ - _%hd3993340252%_ - _%tl3993440255%_ - _%__splice4455144552%_ - _%target3995040117%_ - _%tl3995240120%_) - (_%__match4462344624%_ - _%e3992640228%_ - _%hd3992740232%_ - _%tl3992840235%_ - _%e3992940238%_ - _%hd3993040242%_ - _%tl3993140245%_)))) - (_%__match4462344624%_ - _%e3992640228%_ - _%hd3992740232%_ - _%tl3992840235%_ - _%e3992940238%_ - _%hd3993040242%_ - _%tl3993140245%_))))) + (##vector-ref _%__splice4434644347%_ '0)))) + (if (gx#stx-null? _%tl3983340001%_) + (_%__match4440644407%_ + _%e3980740107%_ + _%hd3980840111%_ + _%tl3980940114%_ + _%e3981040117%_ + _%hd3981140121%_ + _%tl3981240124%_ + _%e3981340127%_ + _%hd3981440131%_ + _%tl3981540134%_ + _%__splice4434644347%_ + _%target3983139998%_ + _%tl3983340001%_) + (_%__match4441844419%_ + _%e3980740107%_ + _%hd3980840111%_ + _%tl3980940114%_ + _%e3981040117%_ + _%hd3981140121%_ + _%tl3981240124%_)))) + (_%__match4441844419%_ + _%e3980740107%_ + _%hd3980840111%_ + _%tl3980940114%_ + _%e3981040117%_ + _%hd3981140121%_ + _%tl3981240124%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl3993440255%_) - (let ((_%__splice4455144552%_ + _%tl3981540134%_) + (let ((_%__splice4434644347%_ (gx#syntax-split-splice->vector - _%tl3993440255%_ + _%tl3981540134%_ '0))) - (let ((_%tl3995240120%_ + (let ((_%tl3983340001%_ (let () (declare (not safe)) (##vector-ref - _%__splice4455144552%_ + _%__splice4434644347%_ '1))) - (_%target3995040117%_ + (_%target3983139998%_ (let () (declare (not safe)) (##vector-ref - _%__splice4455144552%_ + _%__splice4434644347%_ '0)))) (if (gx#stx-null? - _%tl3995240120%_) - (_%__match4461144612%_ - _%e3992640228%_ - _%hd3992740232%_ - _%tl3992840235%_ - _%e3992940238%_ - _%hd3993040242%_ - _%tl3993140245%_ - _%e3993240248%_ - _%hd3993340252%_ - _%tl3993440255%_ - _%__splice4455144552%_ - _%target3995040117%_ - _%tl3995240120%_) - (_%__match4462344624%_ - _%e3992640228%_ - _%hd3992740232%_ - _%tl3992840235%_ - _%e3992940238%_ - _%hd3993040242%_ - _%tl3993140245%_)))) - (_%__match4462344624%_ - _%e3992640228%_ - _%hd3992740232%_ - _%tl3992840235%_ - _%e3992940238%_ - _%hd3993040242%_ - _%tl3993140245%_))))) - (_%__match4462344624%_ - _%e3992640228%_ - _%hd3992740232%_ - _%tl3992840235%_ - _%e3992940238%_ - _%hd3993040242%_ - _%tl3993140245%_)))) - (let () (declare (not safe)) (_%g3992239985%_))))) - (let () (declare (not safe)) (_%g3992239985%_)))))))) + _%tl3983340001%_) + (_%__match4440644407%_ + _%e3980740107%_ + _%hd3980840111%_ + _%tl3980940114%_ + _%e3981040117%_ + _%hd3981140121%_ + _%tl3981240124%_ + _%e3981340127%_ + _%hd3981440131%_ + _%tl3981540134%_ + _%__splice4434644347%_ + _%target3983139998%_ + _%tl3983340001%_) + (_%__match4441844419%_ + _%e3980740107%_ + _%hd3980840111%_ + _%tl3980940114%_ + _%e3981040117%_ + _%hd3981140121%_ + _%tl3981240124%_)))) + (_%__match4441844419%_ + _%e3980740107%_ + _%hd3980840111%_ + _%tl3980940114%_ + _%e3981040117%_ + _%hd3981140121%_ + _%tl3981240124%_))))) + (_%__match4441844419%_ + _%e3980740107%_ + _%hd3980840111%_ + _%tl3980940114%_ + _%e3981040117%_ + _%hd3981140121%_ + _%tl3981240124%_)))) + (let () (declare (not safe)) (_%g3980339866%_))))) + (let () (declare (not safe)) (_%g3980339866%_)))))))) (define |gerbil/core/more-sugar[:0:]#set!| - (lambda (_%stx40306%_) - (|gerbil/core/more-sugar[1]#expand-set!| _%stx40306%_))) + (lambda (_%stx40185%_) + (|gerbil/core/more-sugar[1]#expand-set!| _%stx40185%_))) (define |gerbil/core/more-sugar[:0:]#values-set!| - (lambda (_%stx40309%_) - (let* ((_%g4031240336%_ - (lambda (_%g4031340332%_) + (lambda (_%stx40188%_) + (let* ((_%g4019140215%_ + (lambda (_%g4019240211%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4031340332%_))) - (_%g4031140514%_ - (lambda (_%g4031340340%_) - (if (gx#stx-pair? _%g4031340340%_) - (let ((_%e4031640343%_ (gx#syntax-e _%g4031340340%_))) - (let ((_%hd4031740347%_ + _%g4019240211%_))) + (_%g4019040389%_ + (lambda (_%g4019240219%_) + (if (gx#stx-pair? _%g4019240219%_) + (let ((_%e4019540222%_ (gx#syntax-e _%g4019240219%_))) + (let ((_%hd4019640226%_ (let () (declare (not safe)) - (##car _%e4031640343%_))) - (_%tl4031840350%_ + (##car _%e4019540222%_))) + (_%tl4019740229%_ (let () (declare (not safe)) - (##cdr _%e4031640343%_)))) - (if (gx#stx-pair/null? _%tl4031840350%_) - (if (let ((__tmp45017 - (gx#stx-length _%tl4031840350%_))) + (##cdr _%e4019540222%_)))) + (if (gx#stx-pair/null? _%tl4019740229%_) + (if (let ((__tmp44812 + (gx#stx-length _%tl4019740229%_))) (declare (not safe)) - (##fx>= __tmp45017 '1)) - (let ((_g45018_ + (##fx>= __tmp44812 '1)) + (let ((_g44813_ (gx#syntax-split-splice - _%tl4031840350%_ + _%tl4019740229%_ '1))) (begin - (let ((_g45019_ + (let ((_g44814_ (let () (declare (not safe)) - (if (##values? _g45018_) - (##values-length _g45018_) + (if (##values? _g44813_) + (##values-length _g44813_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g45019_ 2))) + (##fx= _g44814_ 2))) (error "Context expects 2 values" - _g45019_))) - (let ((_%target4031940353%_ + _g44814_))) + (let ((_%target4019840232%_ (let () (declare (not safe)) - (##values-ref _g45018_ 0))) - (_%tl4032140356%_ + (##values-ref _g44813_ 0))) + (_%tl4020040235%_ (let () (declare (not safe)) - (##values-ref _g45018_ 1)))) - (if (gx#stx-pair? _%tl4032140356%_) - (let ((_%e4032840359%_ + (##values-ref _g44813_ 1)))) + (if (gx#stx-pair? _%tl4020040235%_) + (let ((_%e4020740238%_ (gx#syntax-e - _%tl4032140356%_))) - (let ((_%hd4032940363%_ + _%tl4020040235%_))) + (let ((_%hd4020840242%_ (let () (declare (not safe)) - (##car _%e4032840359%_))) - (_%tl4033040366%_ + (##car _%e4020740238%_))) + (_%tl4020940245%_ (let () (declare (not safe)) - (##cdr _%e4032840359%_)))) + (##cdr _%e4020740238%_)))) (if (gx#stx-null? - _%tl4033040366%_) - (letrec ((_%loop4032240369%_ - (lambda (_%hd4032040373%_ + _%tl4020940245%_) + (letrec ((_%loop4020140248%_ + (lambda (_%hd4019940252%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tgt4032640376%_) - (if (gx#stx-pair? _%hd4032040373%_) - (let ((_%e4032340379%_ - (gx#syntax-e _%hd4032040373%_))) - (let ((_%lp-hd4032440383%_ + _%tgt4020540255%_) + (if (gx#stx-pair? _%hd4019940252%_) + (let ((_%e4020240257%_ + (gx#syntax-e _%hd4019940252%_))) + (let ((_%lp-hd4020340261%_ (let () (declare (not safe)) - (##car _%e4032340379%_))) - (_%lp-tl4032540386%_ + (##car _%e4020240257%_))) + (_%lp-tl4020440264%_ (let () (declare (not safe)) - (##cdr _%e4032340379%_)))) - (_%loop4032240369%_ - _%lp-tl4032540386%_ - (cons _%lp-hd4032440383%_ - _%tgt4032640376%_)))) - (let ((_%tgt4032740389%_ - (reverse _%tgt4032640376%_))) - ((lambda (_%L40393%_ _%L40395%_) - (let* ((_%g4041340430%_ - (lambda (_%g4041440426%_) + (##cdr _%e4020240257%_)))) + (_%loop4020140248%_ + _%lp-tl4020440264%_ + (cons _%lp-hd4020340261%_ + _%tgt4020540255%_)))) + (let ((_%tgt4020640267%_ + (reverse _%tgt4020540255%_))) + ((lambda (_%g4019340270%_ _%g4019440272%_) + (let* ((_%g4029040307%_ + (lambda (_%g4029140303%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4041440426%_))) - (_%g4041240502%_ - (lambda (_%g4041440434%_) + _%g4029140303%_))) + (_%g4028940377%_ + (lambda (_%g4029140311%_) (if (gx#stx-pair/null? - _%g4041440434%_) - (let ((_g45020_ + _%g4029140311%_) + (let ((_g44815_ (gx#syntax-split-splice - _%g4041440434%_ + _%g4029140311%_ '0))) (begin - (let ((_g45021_ + (let ((_g44816_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g45020_) - (##values-length _g45020_) + _g44815_) + (##values-length _g44815_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g45021_ 2))) - (error "Context expects 2 values" _g45021_))) + (##fx= _g44816_ 2))) + (error "Context expects 2 values" _g44816_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target4041640437%_ + (let ((_%target4029340314%_ (let () (declare (not safe)) (##values-ref - _g45020_ + _g44815_ 0))) - (_%tl4041840440%_ + (_%tl4029540317%_ (let () (declare (not safe)) (##values-ref - _g45020_ + _g44815_ 1)))) (if (gx#stx-null? - _%tl4041840440%_) - (letrec ((_%loop4041940443%_ + _%tl4029540317%_) + (letrec ((_%loop4029640320%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd4041740447%_ _%$e4042340450%_) - (if (gx#stx-pair? _%hd4041740447%_) - (let ((_%e4042040453%_ - (gx#syntax-e _%hd4041740447%_))) - (let ((_%lp-hd4042140457%_ + (lambda (_%hd4029440324%_ _%$e4030040327%_) + (if (gx#stx-pair? _%hd4029440324%_) + (let ((_%e4029740329%_ + (gx#syntax-e _%hd4029440324%_))) + (let ((_%lp-hd4029840333%_ (let () (declare (not safe)) - (##car _%e4042040453%_))) - (_%lp-tl4042240460%_ + (##car _%e4029740329%_))) + (_%lp-tl4029940336%_ (let () (declare (not safe)) - (##cdr _%e4042040453%_)))) - (_%loop4041940443%_ - _%lp-tl4042240460%_ - (cons _%lp-hd4042140457%_ - _%$e4042340450%_)))) - (let ((_%$e4042440463%_ - (reverse _%$e4042340450%_))) - ((lambda (_%L40467%_) + (##cdr _%e4029740329%_)))) + (_%loop4029640320%_ + _%lp-tl4029940336%_ + (cons _%lp-hd4029840333%_ + _%$e4030040327%_)))) + (let ((_%$e4030140339%_ + (reverse _%$e4030040327%_))) + ((lambda (_%g4029240342%_) (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (foldr (lambda (_%g4048240488%_ + (cons (cons (cons (foldr (lambda (_%g4035740363%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4048340491%_) - (cons _%g4048240488%_ _%g4048340491%_)) + _%g4035840366%_) + (cons _%g4035740363%_ _%g4035840366%_)) '() - _%L40467%_) - (cons _%L40393%_ '())) + _%g4029240342%_) + (cons _%g4019340270%_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin (gx#syntax-check-splice-targets - _%L40467%_ - _%L40395%_) - (foldr (lambda (_%g4048440494%_ + _%g4029240342%_ + _%g4019440272%_) + (foldr (lambda (_%g4035940369%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4048540497%_ - _%g4048640499%_) + _%g4036040372%_ + _%g4036140374%_) (cons (cons (gx#datum->syntax '#f 'set!) - (cons _%g4048540497%_ - (cons _%g4048440494%_ '()))) - _%g4048640499%_)) + (cons _%g4036040372%_ + (cons _%g4035940369%_ '()))) + _%g4036140374%_)) '() - _%L40467%_ - _%L40395%_))))) + _%g4029240342%_ + _%g4019440272%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e4042440463%_)))))) - (_%loop4041940443%_ _%target4041640437%_ '())) - (_%g4041340430%_ _%g4041440434%_))))) + _%$e4030140339%_)))))) + (_%loop4029640320%_ _%target4029340314%_ '())) + (_%g4029040307%_ _%g4029140311%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4041340430%_ - _%g4041440434%_))))) - (_%g4041240502%_ + (_%g4029040307%_ + _%g4029140311%_))))) + (_%g4028940377%_ (gx#gentemps - (foldr (lambda (_%g4050540508%_ - _%g4050640511%_) - (cons _%g4050540508%_ - _%g4050640511%_)) + (foldr (lambda (_%g4038040383%_ + _%g4038140386%_) + (cons _%g4038040383%_ + _%g4038140386%_)) '() - _%L40395%_))))) - _%hd4032940363%_ - _%tgt4032740389%_)))))) - (_%loop4032240369%_ _%target4031940353%_ '())) + _%g4019440272%_))))) + _%hd4020840242%_ + _%tgt4020640267%_)))))) + (_%loop4020140248%_ _%target4019840232%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4031240336%_ - _%g4031340340%_)))) - (_%g4031240336%_ - _%g4031340340%_))))) - (_%g4031240336%_ _%g4031340340%_)) - (_%g4031240336%_ _%g4031340340%_)))) - (_%g4031240336%_ _%g4031340340%_))))) - (_%g4031140514%_ _%stx40309%_)))) + (_%g4019140215%_ + _%g4019240219%_)))) + (_%g4019140215%_ + _%g4019240219%_))))) + (_%g4019140215%_ _%g4019240219%_)) + (_%g4019140215%_ _%g4019240219%_)))) + (_%g4019140215%_ _%g4019240219%_))))) + (_%g4019040389%_ _%stx40188%_)))) (define |gerbil/core/more-sugar[:0:]#parameterize| - (lambda (_%$stx40520%_) - (let* ((_%__stx4464644647%_ _%$stx40520%_) - (_%g4052640614%_ + (lambda (_%$stx40395%_) + (let* ((_%__stx4444144442%_ _%$stx40395%_) + (_%g4040140489%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4464644647%_)))) - (let ((_%__kont4464944650%_ - (lambda (_%L40962%_) + _%__stx4444144442%_)))) + (let ((_%__kont4444444445%_ + (lambda (_%g4040340829%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g4097840981%_ _%g4097940984%_) - (cons _%g4097840981%_ _%g4097940984%_)) + (foldr (lambda (_%g4084540848%_ _%g4084640851%_) + (cons _%g4084540848%_ _%g4084640851%_)) '() - _%L40962%_))))) - (_%__kont4465344654%_ - (lambda (_%L40870%_ _%L40872%_ _%L40873%_) + _%g4040340829%_))))) + (_%__kont4444844449%_ + (lambda (_%g4041940739%_ _%g4042040741%_ _%g4042140742%_) (cons (gx#datum->syntax '#f 'call-with-parameters) (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (foldr (lambda (_%g4089640899%_ - _%g4089740902%_) - (cons _%g4089640899%_ - _%g4089740902%_)) + (foldr (lambda (_%g4076540768%_ + _%g4076640771%_) + (cons _%g4076540768%_ + _%g4076640771%_)) '() - _%L40870%_))) - (cons _%L40873%_ (cons _%L40872%_ '())))))) - (_%__kont4465744658%_ - (lambda (_%L40731%_ - _%L40733%_ - _%L40734%_ - _%L40735%_ - _%L40736%_) + _%g4041940739%_))) + (cons _%g4042140742%_ + (cons _%g4042040741%_ '())))))) + (_%__kont4445244453%_ + (lambda (_%g4044640602%_ + _%g4044740604%_ + _%g4044840605%_ + _%g4044940606%_ + _%g4045040607%_) (cons (gx#datum->syntax '#f 'call-with-parameters) (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons (cons _%L40736%_ - (cons (foldr (lambda (_%g4076640771%_ + (cons (cons _%g4045040607%_ + (cons (foldr (lambda (_%g4063740642%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4076740774%_) - (cons _%g4076640771%_ _%g4076740774%_)) + _%g4063840645%_) + (cons _%g4063740642%_ _%g4063840645%_)) '() - _%L40733%_) - (foldr (lambda (_%g4076840777%_ _%g4076940780%_) - (cons _%g4076840777%_ _%g4076940780%_)) + _%g4044740604%_) + (foldr (lambda (_%g4063940648%_ _%g4064040651%_) + (cons _%g4063940648%_ _%g4064040651%_)) '() - _%L40731%_))) + _%g4044640602%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons _%L40735%_ (cons _%L40734%_ '()))))))) - (let* ((_%__match4476744768%_ - (lambda (_%e4057640621%_ - _%hd4057740625%_ - _%tl4057840628%_ - _%e4057940631%_ - _%hd4058040635%_ - _%tl4058140638%_ - _%e4058240641%_ - _%hd4058340645%_ - _%tl4058440648%_ - _%e4058540651%_ - _%hd4058640655%_ - _%tl4058740658%_ - _%e4058840661%_ - _%hd4058940665%_ - _%tl4059040668%_ - _%__splice4465944660%_ - _%target4059140671%_ - _%tl4059340674%_) - (letrec ((_%loop4059440677%_ - (lambda (_%hd4059240681%_ _%rest4059840684%_) - (if (gx#stx-pair? _%hd4059240681%_) - (let ((_%e4059540687%_ - (gx#syntax-e _%hd4059240681%_))) - (let ((_%lp-tl4059740694%_ + (cons _%g4044940606%_ + (cons _%g4044840605%_ '()))))))) + (let* ((_%__match4456244563%_ + (lambda (_%e4045140496%_ + _%hd4045240500%_ + _%tl4045340503%_ + _%e4045440506%_ + _%hd4045540510%_ + _%tl4045640513%_ + _%e4045740516%_ + _%hd4045840520%_ + _%tl4045940523%_ + _%e4046040526%_ + _%hd4046140530%_ + _%tl4046240533%_ + _%e4046340536%_ + _%hd4046440540%_ + _%tl4046540543%_ + _%__splice4445444455%_ + _%target4046640546%_ + _%tl4046840549%_) + (letrec ((_%loop4046940552%_ + (lambda (_%hd4046740556%_ _%rest4047340559%_) + (if (gx#stx-pair? _%hd4046740556%_) + (let ((_%e4047040561%_ + (gx#syntax-e _%hd4046740556%_))) + (let ((_%lp-tl4047240568%_ (let () (declare (not safe)) - (##cdr _%e4059540687%_))) - (_%lp-hd4059640691%_ + (##cdr _%e4047040561%_))) + (_%lp-hd4047140565%_ (let () (declare (not safe)) - (##car _%e4059540687%_)))) - (_%loop4059440677%_ - _%lp-tl4059740694%_ - (cons _%lp-hd4059640691%_ - _%rest4059840684%_)))) - (let ((_%rest4059940697%_ - (reverse _%rest4059840684%_))) + (##car _%e4047040561%_)))) + (_%loop4046940552%_ + _%lp-tl4047240568%_ + (cons _%lp-hd4047140565%_ + _%rest4047340559%_)))) + (let ((_%rest4047440571%_ + (reverse _%rest4047340559%_))) (if (gx#stx-pair/null? - _%tl4058140638%_) - (let ((_%__splice4466144662%_ + _%tl4045640513%_) + (let ((_%__splice4445644457%_ (gx#syntax-split-splice->vector - _%tl4058140638%_ + _%tl4045640513%_ '0))) - (let ((_%tl4060240704%_ + (let ((_%tl4047740577%_ (let () (declare (not safe)) (##vector-ref - _%__splice4466144662%_ + _%__splice4445644457%_ '1))) - (_%target4060040701%_ + (_%target4047540574%_ (let () (declare (not safe)) (##vector-ref - _%__splice4466144662%_ + _%__splice4445644457%_ '0)))) (if (gx#stx-null? - _%tl4060240704%_) - (letrec ((_%loop4060340707%_ - (lambda (_%hd4060140711%_ + _%tl4047740577%_) + (letrec ((_%loop4047840580%_ + (lambda (_%hd4047640584%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body4060740714%_) - (if (gx#stx-pair? _%hd4060140711%_) - (let ((_%e4060440717%_ - (gx#syntax-e _%hd4060140711%_))) - (let ((_%lp-tl4060640724%_ + _%body4048240587%_) + (if (gx#stx-pair? _%hd4047640584%_) + (let ((_%e4047940589%_ + (gx#syntax-e _%hd4047640584%_))) + (let ((_%lp-tl4048140596%_ (let () (declare (not safe)) - (##cdr _%e4060440717%_))) - (_%lp-hd4060540721%_ + (##cdr _%e4047940589%_))) + (_%lp-hd4048040593%_ (let () (declare (not safe)) - (##car _%e4060440717%_)))) - (_%loop4060340707%_ - _%lp-tl4060640724%_ - (cons _%lp-hd4060540721%_ - _%body4060740714%_)))) - (let ((_%body4060840727%_ - (reverse _%body4060740714%_))) - (_%__kont4465744658%_ - _%body4060840727%_ - _%rest4059940697%_ - _%hd4058940665%_ - _%hd4058640655%_ - _%hd4057740625%_)))))) - (_%loop4060340707%_ _%target4060040701%_ '())) + (##car _%e4047940589%_)))) + (_%loop4047840580%_ + _%lp-tl4048140596%_ + (cons _%lp-hd4048040593%_ + _%body4048240587%_)))) + (let ((_%body4048340599%_ + (reverse _%body4048240587%_))) + (_%__kont4445244453%_ + _%body4048340599%_ + _%rest4047440571%_ + _%hd4046440540%_ + _%hd4046140530%_ + _%hd4045240500%_)))))) + (_%loop4047840580%_ _%target4047540574%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4052640614%_))))) + (_%g4040140489%_))))) (let () (declare (not safe)) - (_%g4052640614%_)))))))) - (_%loop4059440677%_ _%target4059140671%_ '())))) - (_%__match4472744728%_ - (lambda (_%e4054740790%_ - _%hd4054840794%_ - _%tl4054940797%_ - _%e4055040800%_ - _%hd4055140804%_ - _%tl4055240807%_ - _%e4055340810%_ - _%hd4055440814%_ - _%tl4055540817%_ - _%e4055640820%_ - _%hd4055740824%_ - _%tl4055840827%_ - _%e4055940830%_ - _%hd4056040834%_ - _%tl4056140837%_ - _%__splice4465544656%_ - _%target4056240840%_ - _%tl4056440843%_) - (letrec ((_%loop4056540846%_ - (lambda (_%hd4056340850%_ _%body4056940853%_) - (if (gx#stx-pair? _%hd4056340850%_) - (let ((_%e4056640856%_ - (gx#syntax-e _%hd4056340850%_))) - (let ((_%lp-tl4056840863%_ + (_%g4040140489%_)))))))) + (_%loop4046940552%_ _%target4046640546%_ '())))) + (_%__match4452244523%_ + (lambda (_%e4042240661%_ + _%hd4042340665%_ + _%tl4042440668%_ + _%e4042540671%_ + _%hd4042640675%_ + _%tl4042740678%_ + _%e4042840681%_ + _%hd4042940685%_ + _%tl4043040688%_ + _%e4043140691%_ + _%hd4043240695%_ + _%tl4043340698%_ + _%e4043440701%_ + _%hd4043540705%_ + _%tl4043640708%_ + _%__splice4445044451%_ + _%target4043740711%_ + _%tl4043940714%_) + (letrec ((_%loop4044040717%_ + (lambda (_%hd4043840721%_ _%body4044440724%_) + (if (gx#stx-pair? _%hd4043840721%_) + (let ((_%e4044140726%_ + (gx#syntax-e _%hd4043840721%_))) + (let ((_%lp-tl4044340733%_ (let () (declare (not safe)) - (##cdr _%e4056640856%_))) - (_%lp-hd4056740860%_ + (##cdr _%e4044140726%_))) + (_%lp-hd4044240730%_ (let () (declare (not safe)) - (##car _%e4056640856%_)))) - (_%loop4056540846%_ - _%lp-tl4056840863%_ - (cons _%lp-hd4056740860%_ - _%body4056940853%_)))) - (let ((_%body4057040866%_ - (reverse _%body4056940853%_))) - (_%__kont4465344654%_ - _%body4057040866%_ - _%hd4056040834%_ - _%hd4055740824%_)))))) - (_%loop4056540846%_ _%target4056240840%_ '())))) - (_%__match4468544686%_ - (lambda (_%e4052940912%_ - _%hd4053040916%_ - _%tl4053140919%_ - _%e4053240922%_ - _%hd4053340926%_ - _%tl4053440929%_ - _%__splice4465144652%_ - _%target4053540932%_ - _%tl4053740935%_) - (letrec ((_%loop4053840938%_ - (lambda (_%hd4053640942%_ _%body4054240945%_) - (if (gx#stx-pair? _%hd4053640942%_) - (let ((_%e4053940948%_ - (gx#syntax-e _%hd4053640942%_))) - (let ((_%lp-tl4054140955%_ + (##car _%e4044140726%_)))) + (_%loop4044040717%_ + _%lp-tl4044340733%_ + (cons _%lp-hd4044240730%_ + _%body4044440724%_)))) + (let ((_%body4044540736%_ + (reverse _%body4044440724%_))) + (_%__kont4444844449%_ + _%body4044540736%_ + _%hd4043540705%_ + _%hd4043240695%_)))))) + (_%loop4044040717%_ _%target4043740711%_ '())))) + (_%__match4448044481%_ + (lambda (_%e4040440781%_ + _%hd4040540785%_ + _%tl4040640788%_ + _%e4040740791%_ + _%hd4040840795%_ + _%tl4040940798%_ + _%__splice4444644447%_ + _%target4041040801%_ + _%tl4041240804%_) + (letrec ((_%loop4041340807%_ + (lambda (_%hd4041140811%_ _%body4041740814%_) + (if (gx#stx-pair? _%hd4041140811%_) + (let ((_%e4041440816%_ + (gx#syntax-e _%hd4041140811%_))) + (let ((_%lp-tl4041640823%_ (let () (declare (not safe)) - (##cdr _%e4053940948%_))) - (_%lp-hd4054040952%_ + (##cdr _%e4041440816%_))) + (_%lp-hd4041540820%_ (let () (declare (not safe)) - (##car _%e4053940948%_)))) - (_%loop4053840938%_ - _%lp-tl4054140955%_ - (cons _%lp-hd4054040952%_ - _%body4054240945%_)))) - (let ((_%body4054340958%_ - (reverse _%body4054240945%_))) - (_%__kont4464944650%_ - _%body4054340958%_)))))) - (_%loop4053840938%_ _%target4053540932%_ '()))))) - (if (gx#stx-pair? _%__stx4464644647%_) - (let ((_%e4052940912%_ (gx#syntax-e _%__stx4464644647%_))) - (let ((_%tl4053140919%_ + (##car _%e4041440816%_)))) + (_%loop4041340807%_ + _%lp-tl4041640823%_ + (cons _%lp-hd4041540820%_ + _%body4041740814%_)))) + (let ((_%body4041840826%_ + (reverse _%body4041740814%_))) + (_%__kont4444444445%_ + _%body4041840826%_)))))) + (_%loop4041340807%_ _%target4041040801%_ '()))))) + (if (gx#stx-pair? _%__stx4444144442%_) + (let ((_%e4040440781%_ (gx#syntax-e _%__stx4444144442%_))) + (let ((_%tl4040640788%_ (let () (declare (not safe)) - (##cdr _%e4052940912%_))) - (_%hd4053040916%_ + (##cdr _%e4040440781%_))) + (_%hd4040540785%_ (let () (declare (not safe)) - (##car _%e4052940912%_)))) - (if (gx#stx-pair? _%tl4053140919%_) - (let ((_%e4053240922%_ - (gx#syntax-e _%tl4053140919%_))) - (let ((_%tl4053440929%_ + (##car _%e4040440781%_)))) + (if (gx#stx-pair? _%tl4040640788%_) + (let ((_%e4040740791%_ + (gx#syntax-e _%tl4040640788%_))) + (let ((_%tl4040940798%_ (let () (declare (not safe)) - (##cdr _%e4053240922%_))) - (_%hd4053340926%_ + (##cdr _%e4040740791%_))) + (_%hd4040840795%_ (let () (declare (not safe)) - (##car _%e4053240922%_)))) - (if (gx#stx-null? _%hd4053340926%_) - (if (gx#stx-pair/null? _%tl4053440929%_) - (let ((_%__splice4465144652%_ + (##car _%e4040740791%_)))) + (if (gx#stx-null? _%hd4040840795%_) + (if (gx#stx-pair/null? _%tl4040940798%_) + (let ((_%__splice4444644447%_ (gx#syntax-split-splice->vector - _%tl4053440929%_ + _%tl4040940798%_ '0))) - (let ((_%tl4053740935%_ + (let ((_%tl4041240804%_ (let () (declare (not safe)) (##vector-ref - _%__splice4465144652%_ + _%__splice4444644447%_ '1))) - (_%target4053540932%_ + (_%target4041040801%_ (let () (declare (not safe)) (##vector-ref - _%__splice4465144652%_ + _%__splice4444644447%_ '0)))) - (if (gx#stx-null? _%tl4053740935%_) - (_%__match4468544686%_ - _%e4052940912%_ - _%hd4053040916%_ - _%tl4053140919%_ - _%e4053240922%_ - _%hd4053340926%_ - _%tl4053440929%_ - _%__splice4465144652%_ - _%target4053540932%_ - _%tl4053740935%_) + (if (gx#stx-null? _%tl4041240804%_) + (_%__match4448044481%_ + _%e4040440781%_ + _%hd4040540785%_ + _%tl4040640788%_ + _%e4040740791%_ + _%hd4040840795%_ + _%tl4040940798%_ + _%__splice4444644447%_ + _%target4041040801%_ + _%tl4041240804%_) (let () (declare (not safe)) - (_%g4052640614%_))))) + (_%g4040140489%_))))) (let () (declare (not safe)) - (_%g4052640614%_))) - (if (gx#stx-pair? _%hd4053340926%_) - (let ((_%e4055340810%_ - (gx#syntax-e _%hd4053340926%_))) - (let ((_%tl4055540817%_ + (_%g4040140489%_))) + (if (gx#stx-pair? _%hd4040840795%_) + (let ((_%e4042840681%_ + (gx#syntax-e _%hd4040840795%_))) + (let ((_%tl4043040688%_ (let () (declare (not safe)) - (##cdr _%e4055340810%_))) - (_%hd4055440814%_ + (##cdr _%e4042840681%_))) + (_%hd4042940685%_ (let () (declare (not safe)) - (##car _%e4055340810%_)))) - (if (gx#stx-pair? _%hd4055440814%_) - (let ((_%e4055640820%_ + (##car _%e4042840681%_)))) + (if (gx#stx-pair? _%hd4042940685%_) + (let ((_%e4043140691%_ (gx#syntax-e - _%hd4055440814%_))) - (let ((_%tl4055840827%_ + _%hd4042940685%_))) + (let ((_%tl4043340698%_ (let () (declare (not safe)) - (##cdr _%e4055640820%_))) - (_%hd4055740824%_ + (##cdr _%e4043140691%_))) + (_%hd4043240695%_ (let () (declare (not safe)) - (##car _%e4055640820%_)))) + (##car _%e4043140691%_)))) (if (gx#stx-pair? - _%tl4055840827%_) - (let ((_%e4055940830%_ + _%tl4043340698%_) + (let ((_%e4043440701%_ (gx#syntax-e - _%tl4055840827%_))) - (let ((_%tl4056140837%_ + _%tl4043340698%_))) + (let ((_%tl4043640708%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4055940830%_))) - (_%hd4056040834%_ - (let () (declare (not safe)) (##car _%e4055940830%_)))) - (if (gx#stx-null? _%tl4056140837%_) - (if (gx#stx-null? _%tl4055540817%_) - (if (gx#stx-pair/null? _%tl4053440929%_) - (let ((_%__splice4465544656%_ + (##cdr _%e4043440701%_))) + (_%hd4043540705%_ + (let () (declare (not safe)) (##car _%e4043440701%_)))) + (if (gx#stx-null? _%tl4043640708%_) + (if (gx#stx-null? _%tl4043040688%_) + (if (gx#stx-pair/null? _%tl4040940798%_) + (let ((_%__splice4445044451%_ (gx#syntax-split-splice->vector - _%tl4053440929%_ + _%tl4040940798%_ '0))) - (let ((_%tl4056440843%_ + (let ((_%tl4043940714%_ (let () (declare (not safe)) (##vector-ref - _%__splice4465544656%_ + _%__splice4445044451%_ '1))) - (_%target4056240840%_ + (_%target4043740711%_ (let () (declare (not safe)) (##vector-ref - _%__splice4465544656%_ + _%__splice4445044451%_ '0)))) - (if (gx#stx-null? _%tl4056440843%_) - (_%__match4472744728%_ - _%e4052940912%_ - _%hd4053040916%_ - _%tl4053140919%_ - _%e4053240922%_ - _%hd4053340926%_ - _%tl4053440929%_ - _%e4055340810%_ - _%hd4055440814%_ - _%tl4055540817%_ - _%e4055640820%_ - _%hd4055740824%_ - _%tl4055840827%_ - _%e4055940830%_ - _%hd4056040834%_ - _%tl4056140837%_ - _%__splice4465544656%_ - _%target4056240840%_ - _%tl4056440843%_) - (if (gx#stx-pair/null? _%tl4055540817%_) - (let ((_%__splice4465944660%_ + (if (gx#stx-null? _%tl4043940714%_) + (_%__match4452244523%_ + _%e4040440781%_ + _%hd4040540785%_ + _%tl4040640788%_ + _%e4040740791%_ + _%hd4040840795%_ + _%tl4040940798%_ + _%e4042840681%_ + _%hd4042940685%_ + _%tl4043040688%_ + _%e4043140691%_ + _%hd4043240695%_ + _%tl4043340698%_ + _%e4043440701%_ + _%hd4043540705%_ + _%tl4043640708%_ + _%__splice4445044451%_ + _%target4043740711%_ + _%tl4043940714%_) + (if (gx#stx-pair/null? _%tl4043040688%_) + (let ((_%__splice4445444455%_ (gx#syntax-split-splice->vector - _%tl4055540817%_ + _%tl4043040688%_ '0))) - (let ((_%tl4059340674%_ + (let ((_%tl4046840549%_ (let () (declare (not safe)) (##vector-ref - _%__splice4465944660%_ + _%__splice4445444455%_ '1))) - (_%target4059140671%_ + (_%target4046640546%_ (let () (declare (not safe)) (##vector-ref - _%__splice4465944660%_ + _%__splice4445444455%_ '0)))) (if (gx#stx-null? - _%tl4059340674%_) - (_%__match4476744768%_ - _%e4052940912%_ - _%hd4053040916%_ - _%tl4053140919%_ - _%e4053240922%_ - _%hd4053340926%_ - _%tl4053440929%_ - _%e4055340810%_ - _%hd4055440814%_ - _%tl4055540817%_ - _%e4055640820%_ - _%hd4055740824%_ - _%tl4055840827%_ - _%e4055940830%_ - _%hd4056040834%_ - _%tl4056140837%_ - _%__splice4465944660%_ - _%target4059140671%_ - _%tl4059340674%_) + _%tl4046840549%_) + (_%__match4456244563%_ + _%e4040440781%_ + _%hd4040540785%_ + _%tl4040640788%_ + _%e4040740791%_ + _%hd4040840795%_ + _%tl4040940798%_ + _%e4042840681%_ + _%hd4042940685%_ + _%tl4043040688%_ + _%e4043140691%_ + _%hd4043240695%_ + _%tl4043340698%_ + _%e4043440701%_ + _%hd4043540705%_ + _%tl4043640708%_ + _%__splice4445444455%_ + _%target4046640546%_ + _%tl4046840549%_) (let () (declare (not safe)) - (_%g4052640614%_))))) + (_%g4040140489%_))))) (let () (declare (not safe)) - (_%g4052640614%_)))))) - (if (gx#stx-pair/null? _%tl4055540817%_) - (let ((_%__splice4465944660%_ + (_%g4040140489%_)))))) + (if (gx#stx-pair/null? _%tl4043040688%_) + (let ((_%__splice4445444455%_ (gx#syntax-split-splice->vector - _%tl4055540817%_ + _%tl4043040688%_ '0))) - (let ((_%tl4059340674%_ + (let ((_%tl4046840549%_ (let () (declare (not safe)) (##vector-ref - _%__splice4465944660%_ + _%__splice4445444455%_ '1))) - (_%target4059140671%_ + (_%target4046640546%_ (let () (declare (not safe)) (##vector-ref - _%__splice4465944660%_ + _%__splice4445444455%_ '0)))) - (if (gx#stx-null? _%tl4059340674%_) - (_%__match4476744768%_ - _%e4052940912%_ - _%hd4053040916%_ - _%tl4053140919%_ - _%e4053240922%_ - _%hd4053340926%_ - _%tl4053440929%_ - _%e4055340810%_ - _%hd4055440814%_ - _%tl4055540817%_ - _%e4055640820%_ - _%hd4055740824%_ - _%tl4055840827%_ - _%e4055940830%_ - _%hd4056040834%_ - _%tl4056140837%_ - _%__splice4465944660%_ - _%target4059140671%_ - _%tl4059340674%_) + (if (gx#stx-null? _%tl4046840549%_) + (_%__match4456244563%_ + _%e4040440781%_ + _%hd4040540785%_ + _%tl4040640788%_ + _%e4040740791%_ + _%hd4040840795%_ + _%tl4040940798%_ + _%e4042840681%_ + _%hd4042940685%_ + _%tl4043040688%_ + _%e4043140691%_ + _%hd4043240695%_ + _%tl4043340698%_ + _%e4043440701%_ + _%hd4043540705%_ + _%tl4043640708%_ + _%__splice4445444455%_ + _%target4046640546%_ + _%tl4046840549%_) (let () (declare (not safe)) - (_%g4052640614%_))))) + (_%g4040140489%_))))) (let () (declare (not safe)) - (_%g4052640614%_)))) - (if (gx#stx-pair/null? _%tl4055540817%_) - (let ((_%__splice4465944660%_ + (_%g4040140489%_)))) + (if (gx#stx-pair/null? _%tl4043040688%_) + (let ((_%__splice4445444455%_ (gx#syntax-split-splice->vector - _%tl4055540817%_ + _%tl4043040688%_ '0))) - (let ((_%tl4059340674%_ + (let ((_%tl4046840549%_ (let () (declare (not safe)) (##vector-ref - _%__splice4465944660%_ + _%__splice4445444455%_ '1))) - (_%target4059140671%_ + (_%target4046640546%_ (let () (declare (not safe)) (##vector-ref - _%__splice4465944660%_ + _%__splice4445444455%_ '0)))) - (if (gx#stx-null? _%tl4059340674%_) - (_%__match4476744768%_ - _%e4052940912%_ - _%hd4053040916%_ - _%tl4053140919%_ - _%e4053240922%_ - _%hd4053340926%_ - _%tl4053440929%_ - _%e4055340810%_ - _%hd4055440814%_ - _%tl4055540817%_ - _%e4055640820%_ - _%hd4055740824%_ - _%tl4055840827%_ - _%e4055940830%_ - _%hd4056040834%_ - _%tl4056140837%_ - _%__splice4465944660%_ - _%target4059140671%_ - _%tl4059340674%_) + (if (gx#stx-null? _%tl4046840549%_) + (_%__match4456244563%_ + _%e4040440781%_ + _%hd4040540785%_ + _%tl4040640788%_ + _%e4040740791%_ + _%hd4040840795%_ + _%tl4040940798%_ + _%e4042840681%_ + _%hd4042940685%_ + _%tl4043040688%_ + _%e4043140691%_ + _%hd4043240695%_ + _%tl4043340698%_ + _%e4043440701%_ + _%hd4043540705%_ + _%tl4043640708%_ + _%__splice4445444455%_ + _%target4046640546%_ + _%tl4046840549%_) (let () (declare (not safe)) - (_%g4052640614%_))))) - (let () (declare (not safe)) (_%g4052640614%_)))) - (let () (declare (not safe)) (_%g4052640614%_))))) - (let () (declare (not safe)) (_%g4052640614%_))))) + (_%g4040140489%_))))) + (let () (declare (not safe)) (_%g4040140489%_)))) + (let () (declare (not safe)) (_%g4040140489%_))))) + (let () (declare (not safe)) (_%g4040140489%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4052640614%_))))) + (_%g4040140489%_))))) (let () (declare (not safe)) - (_%g4052640614%_)))))) - (let () (declare (not safe)) (_%g4052640614%_))))) - (let () (declare (not safe)) (_%g4052640614%_)))))))) + (_%g4040140489%_)))))) + (let () (declare (not safe)) (_%g4040140489%_))))) + (let () (declare (not safe)) (_%g4040140489%_)))))))) (define |gerbil/core/more-sugar[:0:]#let/cc| - (lambda (_%$stx40995%_) - (let* ((_%g4099941023%_ - (lambda (_%g4100041019%_) + (lambda (_%$stx40862%_) + (let* ((_%g4086640890%_ + (lambda (_%g4086740886%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4100041019%_))) - (_%g4099841108%_ - (lambda (_%g4100041027%_) - (if (gx#stx-pair? _%g4100041027%_) - (let ((_%e4100341030%_ (gx#syntax-e _%g4100041027%_))) - (let ((_%hd4100441034%_ + _%g4086740886%_))) + (_%g4086540973%_ + (lambda (_%g4086740894%_) + (if (gx#stx-pair? _%g4086740894%_) + (let ((_%e4087040897%_ (gx#syntax-e _%g4086740894%_))) + (let ((_%hd4087140901%_ (let () (declare (not safe)) - (##car _%e4100341030%_))) - (_%tl4100541037%_ + (##car _%e4087040897%_))) + (_%tl4087240904%_ (let () (declare (not safe)) - (##cdr _%e4100341030%_)))) - (if (gx#stx-pair? _%tl4100541037%_) - (let ((_%e4100641040%_ - (gx#syntax-e _%tl4100541037%_))) - (let ((_%hd4100741044%_ + (##cdr _%e4087040897%_)))) + (if (gx#stx-pair? _%tl4087240904%_) + (let ((_%e4087340907%_ + (gx#syntax-e _%tl4087240904%_))) + (let ((_%hd4087440911%_ (let () (declare (not safe)) - (##car _%e4100641040%_))) - (_%tl4100841047%_ + (##car _%e4087340907%_))) + (_%tl4087540914%_ (let () (declare (not safe)) - (##cdr _%e4100641040%_)))) - (if (gx#stx-pair/null? _%tl4100841047%_) - (let ((_g45022_ + (##cdr _%e4087340907%_)))) + (if (gx#stx-pair/null? _%tl4087540914%_) + (let ((_g44817_ (gx#syntax-split-splice - _%tl4100841047%_ + _%tl4087540914%_ '0))) (begin - (let ((_g45023_ + (let ((_g44818_ (let () (declare (not safe)) - (if (##values? _g45022_) + (if (##values? _g44817_) (##values-length - _g45022_) + _g44817_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g45023_ 2))) + (##fx= _g44818_ 2))) (error "Context expects 2 values" - _g45023_))) - (let ((_%target4100941050%_ + _g44818_))) + (let ((_%target4087640917%_ (let () (declare (not safe)) - (##values-ref _g45022_ 0))) - (_%tl4101141053%_ + (##values-ref _g44817_ 0))) + (_%tl4087840920%_ (let () (declare (not safe)) - (##values-ref _g45022_ 1)))) - (if (gx#stx-null? _%tl4101141053%_) - (letrec ((_%loop4101241056%_ - (lambda (_%hd4101041060%_ + (##values-ref _g44817_ 1)))) + (if (gx#stx-null? _%tl4087840920%_) + (letrec ((_%loop4087940923%_ + (lambda (_%hd4087740927%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body4101641063%_) - (if (gx#stx-pair? _%hd4101041060%_) - (let ((_%e4101341066%_ (gx#syntax-e _%hd4101041060%_))) - (let ((_%lp-hd4101441070%_ + _%body4088340930%_) + (if (gx#stx-pair? _%hd4087740927%_) + (let ((_%e4088040932%_ (gx#syntax-e _%hd4087740927%_))) + (let ((_%lp-hd4088140936%_ (let () (declare (not safe)) - (##car _%e4101341066%_))) - (_%lp-tl4101541073%_ + (##car _%e4088040932%_))) + (_%lp-tl4088240939%_ (let () (declare (not safe)) - (##cdr _%e4101341066%_)))) - (_%loop4101241056%_ - _%lp-tl4101541073%_ - (cons _%lp-hd4101441070%_ _%body4101641063%_)))) - (let ((_%body4101741076%_ - (reverse _%body4101641063%_))) - ((lambda (_%L41080%_ _%L41082%_) - (if (gx#identifier? _%L41082%_) + (##cdr _%e4088040932%_)))) + (_%loop4087940923%_ + _%lp-tl4088240939%_ + (cons _%lp-hd4088140936%_ _%body4088340930%_)))) + (let ((_%body4088440942%_ + (reverse _%body4088340930%_))) + ((lambda (_%g4086840945%_ _%g4086940947%_) + (if (gx#identifier? _%g4086940947%_) (cons (gx#datum->syntax '#f 'call/cc) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L41082%_ '()) - (foldr (lambda (_%g4109941102%_ + (cons (cons _%g4086940947%_ + '()) + (foldr (lambda (_%g4096440967%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4110041105%_) - (cons _%g4109941102%_ _%g4110041105%_)) + _%g4096540970%_) + (cons _%g4096440967%_ _%g4096540970%_)) '() - _%L41080%_))) + _%g4086840945%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_%g4099941023%_ _%g4100041027%_))) - _%body4101741076%_ - _%hd4100741044%_)))))) + (_%g4086640890%_ _%g4086740894%_))) + _%body4088440942%_ + _%hd4087440911%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4101241056%_ - _%target4100941050%_ + (_%loop4087940923%_ + _%target4087640917%_ '())) - (_%g4099941023%_ - _%g4100041027%_))))) - (_%g4099941023%_ _%g4100041027%_)))) - (_%g4099941023%_ _%g4100041027%_)))) - (_%g4099941023%_ _%g4100041027%_))))) - (_%g4099841108%_ _%$stx40995%_)))) + (_%g4086640890%_ + _%g4086740894%_))))) + (_%g4086640890%_ _%g4086740894%_)))) + (_%g4086640890%_ _%g4086740894%_)))) + (_%g4086640890%_ _%g4086740894%_))))) + (_%g4086540973%_ _%$stx40862%_)))) (define |gerbil/core/more-sugar[:0:]#unwind-protect| - (lambda (_%$stx41113%_) - (let* ((_%g4111741145%_ - (lambda (_%g4111841141%_) + (lambda (_%$stx40978%_) + (let* ((_%g4098241010%_ + (lambda (_%g4098341006%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4111841141%_))) - (_%g4111641244%_ - (lambda (_%g4111841149%_) - (if (gx#stx-pair? _%g4111841149%_) - (let ((_%e4112241152%_ (gx#syntax-e _%g4111841149%_))) - (let ((_%hd4112341156%_ + _%g4098341006%_))) + (_%g4098141107%_ + (lambda (_%g4098341014%_) + (if (gx#stx-pair? _%g4098341014%_) + (let ((_%e4098741017%_ (gx#syntax-e _%g4098341014%_))) + (let ((_%hd4098841021%_ (let () (declare (not safe)) - (##car _%e4112241152%_))) - (_%tl4112441159%_ + (##car _%e4098741017%_))) + (_%tl4098941024%_ (let () (declare (not safe)) - (##cdr _%e4112241152%_)))) - (if (gx#stx-pair? _%tl4112441159%_) - (let ((_%e4112541162%_ - (gx#syntax-e _%tl4112441159%_))) - (let ((_%hd4112641166%_ + (##cdr _%e4098741017%_)))) + (if (gx#stx-pair? _%tl4098941024%_) + (let ((_%e4099041027%_ + (gx#syntax-e _%tl4098941024%_))) + (let ((_%hd4099141031%_ (let () (declare (not safe)) - (##car _%e4112541162%_))) - (_%tl4112741169%_ + (##car _%e4099041027%_))) + (_%tl4099241034%_ (let () (declare (not safe)) - (##cdr _%e4112541162%_)))) - (if (gx#stx-pair? _%tl4112741169%_) - (let ((_%e4112841172%_ - (gx#syntax-e _%tl4112741169%_))) - (let ((_%hd4112941176%_ + (##cdr _%e4099041027%_)))) + (if (gx#stx-pair? _%tl4099241034%_) + (let ((_%e4099341037%_ + (gx#syntax-e _%tl4099241034%_))) + (let ((_%hd4099441041%_ (let () (declare (not safe)) - (##car _%e4112841172%_))) - (_%tl4113041179%_ + (##car _%e4099341037%_))) + (_%tl4099541044%_ (let () (declare (not safe)) - (##cdr _%e4112841172%_)))) + (##cdr _%e4099341037%_)))) (if (gx#stx-pair/null? - _%tl4113041179%_) - (let ((_g45024_ + _%tl4099541044%_) + (let ((_g44819_ (gx#syntax-split-splice - _%tl4113041179%_ + _%tl4099541044%_ '0))) (begin - (let ((_g45025_ + (let ((_g44820_ (let () (declare (not safe)) (if (##values? - _g45024_) + _g44819_) (##values-length - _g45024_) + _g44819_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g45025_ 2))) - (error "Context expects 2 values" _g45025_))) + (##fx= _g44820_ 2))) + (error "Context expects 2 values" _g44820_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target4113141182%_ + (let ((_%target4099641047%_ (let () (declare (not safe)) (##values-ref - _g45024_ + _g44819_ 0))) - (_%tl4113341185%_ + (_%tl4099841050%_ (let () (declare (not safe)) (##values-ref - _g45024_ + _g44819_ 1)))) (if (gx#stx-null? - _%tl4113341185%_) - (letrec ((_%loop4113441188%_ + _%tl4099841050%_) + (letrec ((_%loop4099941053%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd4113241192%_ _%rest4113841195%_) - (if (gx#stx-pair? _%hd4113241192%_) - (let ((_%e4113541198%_ - (gx#syntax-e _%hd4113241192%_))) - (let ((_%lp-hd4113641202%_ + (lambda (_%hd4099741057%_ _%rest4100341060%_) + (if (gx#stx-pair? _%hd4099741057%_) + (let ((_%e4100041062%_ + (gx#syntax-e _%hd4099741057%_))) + (let ((_%lp-hd4100141066%_ (let () (declare (not safe)) - (##car _%e4113541198%_))) - (_%lp-tl4113741205%_ + (##car _%e4100041062%_))) + (_%lp-tl4100241069%_ (let () (declare (not safe)) - (##cdr _%e4113541198%_)))) - (_%loop4113441188%_ - _%lp-tl4113741205%_ - (cons _%lp-hd4113641202%_ - _%rest4113841195%_)))) - (let ((_%rest4113941208%_ - (reverse _%rest4113841195%_))) - ((lambda (_%L41212%_ _%L41214%_ _%L41215%_) + (##cdr _%e4100041062%_)))) + (_%loop4099941053%_ + _%lp-tl4100241069%_ + (cons _%lp-hd4100141066%_ + _%rest4100341060%_)))) + (let ((_%rest4100441072%_ + (reverse _%rest4100341060%_))) + ((lambda (_%g4098441075%_ + _%g4098541077%_ + _%g4098641078%_) (cons (gx#datum->syntax '#f 'with-unwind-protect) @@ -1398,7 +1408,7 @@ '#f 'lambda) (cons '() - (cons _%L41215%_ + (cons _%g4098641078%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1407,3663 +1417,3669 @@ 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L41214%_ - (foldr (lambda (_%g4123541238%_ - _%g4123641241%_) - (cons _%g4123541238%_ - _%g4123641241%_)) + (cons _%g4098541077%_ + (foldr (lambda (_%g4109841101%_ + _%g4109941104%_) + (cons _%g4109841101%_ + _%g4109941104%_)) '() - _%L41212%_)))) + _%g4098441075%_)))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%rest4113941208%_ - _%hd4112941176%_ - _%hd4112641166%_)))))) - (_%loop4113441188%_ _%target4113141182%_ '())) - (_%g4111741145%_ _%g4111841149%_))))) + _%rest4100441072%_ + _%hd4099441041%_ + _%hd4099141031%_)))))) + (_%loop4099941053%_ _%target4099641047%_ '())) + (_%g4098241010%_ _%g4098341014%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4111741145%_ - _%g4111841149%_)))) - (_%g4111741145%_ _%g4111841149%_)))) - (_%g4111741145%_ _%g4111841149%_)))) - (_%g4111741145%_ _%g4111841149%_))))) - (_%g4111641244%_ _%$stx41113%_)))) + (_%g4098241010%_ + _%g4098341014%_)))) + (_%g4098241010%_ _%g4098341014%_)))) + (_%g4098241010%_ _%g4098341014%_)))) + (_%g4098241010%_ _%g4098341014%_))))) + (_%g4098141107%_ _%$stx40978%_)))) (define |gerbil/core/more-sugar[:0:]#do| - (lambda (_%$stx41249%_) - (let* ((_%g4125341324%_ - (lambda (_%g4125441320%_) + (lambda (_%$stx41112%_) + (let* ((_%g4111641187%_ + (lambda (_%g4111741183%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4125441320%_))) - (_%g4125241613%_ - (lambda (_%g4125441328%_) - (if (gx#stx-pair? _%g4125441328%_) - (let ((_%e4126141331%_ (gx#syntax-e _%g4125441328%_))) - (let ((_%hd4126241335%_ + _%g4111741183%_))) + (_%g4111541464%_ + (lambda (_%g4111741191%_) + (if (gx#stx-pair? _%g4111741191%_) + (let ((_%e4112441194%_ (gx#syntax-e _%g4111741191%_))) + (let ((_%hd4112541198%_ (let () (declare (not safe)) - (##car _%e4126141331%_))) - (_%tl4126341338%_ + (##car _%e4112441194%_))) + (_%tl4112641201%_ (let () (declare (not safe)) - (##cdr _%e4126141331%_)))) - (if (gx#stx-pair? _%tl4126341338%_) - (let ((_%e4126441341%_ - (gx#syntax-e _%tl4126341338%_))) - (let ((_%hd4126541345%_ + (##cdr _%e4112441194%_)))) + (if (gx#stx-pair? _%tl4112641201%_) + (let ((_%e4112741204%_ + (gx#syntax-e _%tl4112641201%_))) + (let ((_%hd4112841208%_ (let () (declare (not safe)) - (##car _%e4126441341%_))) - (_%tl4126641348%_ + (##car _%e4112741204%_))) + (_%tl4112941211%_ (let () (declare (not safe)) - (##cdr _%e4126441341%_)))) - (if (gx#stx-pair/null? _%hd4126541345%_) - (let ((_g45026_ + (##cdr _%e4112741204%_)))) + (if (gx#stx-pair/null? _%hd4112841208%_) + (let ((_g44821_ (gx#syntax-split-splice - _%hd4126541345%_ + _%hd4112841208%_ '0))) (begin - (let ((_g45027_ + (let ((_g44822_ (let () (declare (not safe)) - (if (##values? _g45026_) + (if (##values? _g44821_) (##values-length - _g45026_) + _g44821_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g45027_ 2))) + (##fx= _g44822_ 2))) (error "Context expects 2 values" - _g45027_))) - (let ((_%target4126741351%_ + _g44822_))) + (let ((_%target4113041214%_ (let () (declare (not safe)) - (##values-ref _g45026_ 0))) - (_%tl4126941354%_ + (##values-ref _g44821_ 0))) + (_%tl4113241217%_ (let () (declare (not safe)) - (##values-ref _g45026_ 1)))) - (if (gx#stx-null? _%tl4126941354%_) - (letrec ((_%loop4127041357%_ - (lambda (_%hd4126841361%_ + (##values-ref _g44821_ 1)))) + (if (gx#stx-null? _%tl4113241217%_) + (letrec ((_%loop4113341220%_ + (lambda (_%hd4113141224%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%step4127441364%_ - _%init4127541366%_ - _%var4127641368%_) - (if (gx#stx-pair? _%hd4126841361%_) - (let ((_%e4127141371%_ (gx#syntax-e _%hd4126841361%_))) - (let ((_%lp-hd4127241375%_ + _%step4113741227%_ + _%init4113841228%_ + _%var4113941229%_) + (if (gx#stx-pair? _%hd4113141224%_) + (let ((_%e4113441231%_ (gx#syntax-e _%hd4113141224%_))) + (let ((_%lp-hd4113541235%_ (let () (declare (not safe)) - (##car _%e4127141371%_))) - (_%lp-tl4127341378%_ + (##car _%e4113441231%_))) + (_%lp-tl4113641238%_ (let () (declare (not safe)) - (##cdr _%e4127141371%_)))) - (if (gx#stx-pair? _%lp-hd4127241375%_) - (let ((_%e4128041381%_ - (gx#syntax-e _%lp-hd4127241375%_))) - (let ((_%hd4128141385%_ + (##cdr _%e4113441231%_)))) + (if (gx#stx-pair? _%lp-hd4113541235%_) + (let ((_%e4114341241%_ + (gx#syntax-e _%lp-hd4113541235%_))) + (let ((_%hd4114441245%_ (let () (declare (not safe)) - (##car _%e4128041381%_))) - (_%tl4128241388%_ + (##car _%e4114341241%_))) + (_%tl4114541248%_ (let () (declare (not safe)) - (##cdr _%e4128041381%_)))) - (if (gx#stx-pair? _%tl4128241388%_) - (let ((_%e4128341391%_ - (gx#syntax-e _%tl4128241388%_))) - (let ((_%hd4128441395%_ + (##cdr _%e4114341241%_)))) + (if (gx#stx-pair? _%tl4114541248%_) + (let ((_%e4114641251%_ + (gx#syntax-e _%tl4114541248%_))) + (let ((_%hd4114741255%_ (let () (declare (not safe)) - (##car _%e4128341391%_))) - (_%tl4128541398%_ + (##car _%e4114641251%_))) + (_%tl4114841258%_ (let () (declare (not safe)) - (##cdr _%e4128341391%_)))) + (##cdr _%e4114641251%_)))) (if (gx#stx-pair/null? - _%tl4128541398%_) - (let ((_g45028_ + _%tl4114841258%_) + (let ((_g44823_ (gx#syntax-split-splice - _%tl4128541398%_ + _%tl4114841258%_ '0))) (begin - (let ((_g45029_ + (let ((_g44824_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g45028_) - (##values-length _g45028_) + _g44823_) + (##values-length _g44823_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g45029_ 2))) - (error "Context expects 2 values" _g45029_))) + (if (not (let () (declare (not safe)) (##fx= _g44824_ 2))) + (error "Context expects 2 values" _g44824_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target4128641401%_ + (let ((_%target4114941261%_ (let () (declare (not safe)) (##values-ref - _g45028_ + _g44823_ 0))) - (_%tl4128841404%_ + (_%tl4115141264%_ (let () (declare (not safe)) (##values-ref - _g45028_ + _g44823_ 1)))) (if (gx#stx-null? - _%tl4128841404%_) - (letrec ((_%loop4128941407%_ + _%tl4115141264%_) + (letrec ((_%loop4115241267%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd4128741411%_ _%step4129341414%_) - (if (gx#stx-pair? _%hd4128741411%_) - (let ((_%e4129041417%_ - (gx#syntax-e _%hd4128741411%_))) - (let ((_%lp-hd4129141421%_ + (lambda (_%hd4115041271%_ _%step4115641274%_) + (if (gx#stx-pair? _%hd4115041271%_) + (let ((_%e4115341276%_ + (gx#syntax-e _%hd4115041271%_))) + (let ((_%lp-hd4115441280%_ (let () (declare (not safe)) - (##car _%e4129041417%_))) - (_%lp-tl4129241424%_ + (##car _%e4115341276%_))) + (_%lp-tl4115541283%_ (let () (declare (not safe)) - (##cdr _%e4129041417%_)))) - (_%loop4128941407%_ - _%lp-tl4129241424%_ - (cons _%lp-hd4129141421%_ - _%step4129341414%_)))) - (let ((_%step4129441427%_ - (reverse _%step4129341414%_))) - (_%loop4127041357%_ - _%lp-tl4127341378%_ - (cons _%step4129441427%_ - _%step4127441364%_) - (cons _%hd4128441395%_ _%init4127541366%_) - (cons _%hd4128141385%_ - _%var4127641368%_))))))) - (_%loop4128941407%_ _%target4128641401%_ '())) - (_%g4125341324%_ _%g4125441328%_))))) + (##cdr _%e4115341276%_)))) + (_%loop4115241267%_ + _%lp-tl4115541283%_ + (cons _%lp-hd4115441280%_ + _%step4115641274%_)))) + (let ((_%step4115741286%_ + (reverse _%step4115641274%_))) + (_%loop4113341220%_ + _%lp-tl4113641238%_ + (cons _%step4115741286%_ + _%step4113741227%_) + (cons _%hd4114741255%_ _%init4113841228%_) + (cons _%hd4114441245%_ + _%var4113941229%_))))))) + (_%loop4115241267%_ _%target4114941261%_ '())) + (_%g4111641187%_ _%g4111741191%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4125341324%_ - _%g4125441328%_)))) - (_%g4125341324%_ _%g4125441328%_)))) - (_%g4125341324%_ _%g4125441328%_)))) - (let ((_%step4127741431%_ (reverse _%step4127441364%_)) - (_%init4127841434%_ (reverse _%init4127541366%_)) - (_%var4127941436%_ (reverse _%var4127641368%_))) - (if (gx#stx-pair? _%tl4126641348%_) - (let ((_%e4129541439%_ - (gx#syntax-e _%tl4126641348%_))) - (let ((_%hd4129641443%_ + (_%g4111641187%_ + _%g4111741191%_)))) + (_%g4111641187%_ _%g4111741191%_)))) + (_%g4111641187%_ _%g4111741191%_)))) + (let ((_%step4114041289%_ (reverse _%step4113741227%_)) + (_%init4114141291%_ (reverse _%init4113841228%_)) + (_%var4114241292%_ (reverse _%var4113941229%_))) + (if (gx#stx-pair? _%tl4112941211%_) + (let ((_%e4115841294%_ + (gx#syntax-e _%tl4112941211%_))) + (let ((_%hd4115941298%_ (let () (declare (not safe)) - (##car _%e4129541439%_))) - (_%tl4129741446%_ + (##car _%e4115841294%_))) + (_%tl4116041301%_ (let () (declare (not safe)) - (##cdr _%e4129541439%_)))) - (if (gx#stx-pair? _%hd4129641443%_) - (let ((_%e4129841449%_ - (gx#syntax-e _%hd4129641443%_))) - (let ((_%hd4129941453%_ + (##cdr _%e4115841294%_)))) + (if (gx#stx-pair? _%hd4115941298%_) + (let ((_%e4116141304%_ + (gx#syntax-e _%hd4115941298%_))) + (let ((_%hd4116241308%_ (let () (declare (not safe)) - (##car _%e4129841449%_))) - (_%tl4130041456%_ + (##car _%e4116141304%_))) + (_%tl4116341311%_ (let () (declare (not safe)) - (##cdr _%e4129841449%_)))) + (##cdr _%e4116141304%_)))) (if (gx#stx-pair/null? - _%tl4130041456%_) - (let ((_g45030_ + _%tl4116341311%_) + (let ((_g44825_ (gx#syntax-split-splice - _%tl4130041456%_ + _%tl4116341311%_ '0))) (begin - (let ((_g45031_ + (let ((_g44826_ (let () (declare (not safe)) (if (##values? - _g45030_) + _g44825_) (##values-length - _g45030_) + _g44825_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g45031_ 2))) - (error "Context expects 2 values" _g45031_))) + (##fx= _g44826_ 2))) + (error "Context expects 2 values" _g44826_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target4130141459%_ + (let ((_%target4116441314%_ (let () (declare (not safe)) (##values-ref - _g45030_ + _g44825_ 0))) - (_%tl4130341462%_ + (_%tl4116641317%_ (let () (declare (not safe)) (##values-ref - _g45030_ + _g44825_ 1)))) (if (gx#stx-null? - _%tl4130341462%_) - (letrec ((_%loop4130441465%_ + _%tl4116641317%_) + (letrec ((_%loop4116741320%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd4130241469%_ _%fini4130841472%_) - (if (gx#stx-pair? _%hd4130241469%_) - (let ((_%e4130541475%_ - (gx#syntax-e _%hd4130241469%_))) - (let ((_%lp-hd4130641479%_ + (lambda (_%hd4116541324%_ _%fini4117141327%_) + (if (gx#stx-pair? _%hd4116541324%_) + (let ((_%e4116841329%_ + (gx#syntax-e _%hd4116541324%_))) + (let ((_%lp-hd4116941333%_ (let () (declare (not safe)) - (##car _%e4130541475%_))) - (_%lp-tl4130741482%_ + (##car _%e4116841329%_))) + (_%lp-tl4117041336%_ (let () (declare (not safe)) - (##cdr _%e4130541475%_)))) - (_%loop4130441465%_ - _%lp-tl4130741482%_ - (cons _%lp-hd4130641479%_ - _%fini4130841472%_)))) - (let ((_%fini4130941485%_ - (reverse _%fini4130841472%_))) - (if (gx#stx-pair/null? _%tl4129741446%_) - (let ((_g45032_ + (##cdr _%e4116841329%_)))) + (_%loop4116741320%_ + _%lp-tl4117041336%_ + (cons _%lp-hd4116941333%_ + _%fini4117141327%_)))) + (let ((_%fini4117241339%_ + (reverse _%fini4117141327%_))) + (if (gx#stx-pair/null? _%tl4116041301%_) + (let ((_g44827_ (gx#syntax-split-splice - _%tl4129741446%_ + _%tl4116041301%_ '0))) (begin - (let ((_g45033_ + (let ((_g44828_ (let () (declare (not safe)) - (if (##values? _g45032_) + (if (##values? _g44827_) (##values-length - _g45032_) + _g44827_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g45033_ 2))) + (##fx= _g44828_ 2))) (error "Context expects 2 values" - _g45033_))) - (let ((_%target4131041489%_ + _g44828_))) + (let ((_%target4117341342%_ (let () (declare (not safe)) - (##values-ref _g45032_ 0))) - (_%tl4131241492%_ + (##values-ref _g44827_ 0))) + (_%tl4117541345%_ (let () (declare (not safe)) - (##values-ref _g45032_ 1)))) - (if (gx#stx-null? _%tl4131241492%_) - (letrec ((_%loop4131341495%_ - (lambda (_%hd4131141499%_ + (##values-ref _g44827_ 1)))) + (if (gx#stx-null? _%tl4117541345%_) + (letrec ((_%loop4117641348%_ + (lambda (_%hd4117441352%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body4131741502%_) - (if (gx#stx-pair? _%hd4131141499%_) - (let ((_%e4131441505%_ (gx#syntax-e _%hd4131141499%_))) - (let ((_%lp-hd4131541509%_ + _%body4118041355%_) + (if (gx#stx-pair? _%hd4117441352%_) + (let ((_%e4117741357%_ (gx#syntax-e _%hd4117441352%_))) + (let ((_%lp-hd4117841361%_ (let () (declare (not safe)) - (##car _%e4131441505%_))) - (_%lp-tl4131641512%_ + (##car _%e4117741357%_))) + (_%lp-tl4117941364%_ (let () (declare (not safe)) - (##cdr _%e4131441505%_)))) - (_%loop4131341495%_ - _%lp-tl4131641512%_ - (cons _%lp-hd4131541509%_ _%body4131741502%_)))) - (let ((_%body4131841515%_ - (reverse _%body4131741502%_))) - ((lambda (_%L41519%_ - _%L41521%_ - _%L41522%_ - _%L41523%_ - _%L41524%_ - _%L41525%_) + (##cdr _%e4117741357%_)))) + (_%loop4117641348%_ + _%lp-tl4117941364%_ + (cons _%lp-hd4117841361%_ _%body4118041355%_)))) + (let ((_%body4118141367%_ + (reverse _%body4118041355%_))) + ((lambda (_%g4111841370%_ + _%g4111941372%_ + _%g4112041373%_ + _%g4112141374%_ + _%g4112241375%_ + _%g4112341376%_) (if (gx#stx-andmap gx#identifier? - (foldr (lambda (_%g4155841561%_ - _%g4155941564%_) - (cons _%g4155841561%_ - _%g4155941564%_)) + (foldr (lambda (_%g4140941412%_ + _%g4141041415%_) + (cons _%g4140941412%_ + _%g4141041415%_)) '() - _%L41525%_)) + _%g4112341376%_)) (cons (gx#datum->syntax '#f 'let) (cons (gx#datum->syntax '#f '$loop) (cons (begin (gx#syntax-check-splice-targets - _%L41524%_ - _%L41525%_) - (foldr (lambda (_%g4156641579%_ + _%g4112241375%_ + _%g4112341376%_) + (foldr (lambda (_%g4141741430%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4156741582%_ - _%g4156841584%_) - (cons (cons _%g4156741582%_ (cons _%g4156641579%_ '())) - _%g4156841584%_)) + _%g4141841433%_ + _%g4141941435%_) + (cons (cons _%g4141841433%_ (cons _%g4141741430%_ '())) + _%g4141941435%_)) '() - _%L41524%_ - _%L41525%_)) + _%g4112241375%_ + _%g4112341376%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'if) - (cons _%L41522%_ + (cons _%g4112041373%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'begin) (cons '#!void - (foldr (lambda (_%g4156941587%_ - _%g4157041590%_) - (cons _%g4156941587%_ - _%g4157041590%_)) + (foldr (lambda (_%g4142041438%_ + _%g4142141441%_) + (cons _%g4142041438%_ + _%g4142141441%_)) '() - _%L41521%_))) + _%g4111941372%_))) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g4157141593%_ + (foldr (lambda (_%g4142241444%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4157241596%_) - (cons _%g4157141593%_ _%g4157241596%_)) + _%g4142341447%_) + (cons _%g4142241444%_ _%g4142341447%_)) (cons (cons (gx#datum->syntax '#f '$loop) (begin (gx#syntax-check-splice-targets - _%L41523%_ - _%L41525%_) - (foldr (lambda (_%g4157341599%_ - _%g4157441602%_ - _%g4157541604%_) + _%g4112141374%_ + _%g4112341376%_) + (foldr (lambda (_%g4142441450%_ + _%g4142541453%_ + _%g4142641455%_) (cons (cons (gx#datum->syntax '#f 'begin) - (cons _%g4157441602%_ - (foldr (lambda (_%g4157641607%_ + (cons _%g4142541453%_ + (foldr (lambda (_%g4142741458%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4157741610%_) - (cons _%g4157641607%_ _%g4157741610%_)) + _%g4142841461%_) + (cons _%g4142741458%_ _%g4142841461%_)) '() - _%g4157341599%_))) + _%g4142441450%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g4157541604%_)) + _%g4142641455%_)) '() - _%L41523%_ - _%L41525%_))) + _%g4112141374%_ + _%g4112341376%_))) '()) - _%L41519%_))) + _%g4111841370%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4125341324%_ _%g4125441328%_))) - _%body4131841515%_ - _%fini4130941485%_ - _%hd4129941453%_ - _%step4127741431%_ - _%init4127841434%_ - _%var4127941436%_)))))) + (_%g4111641187%_ _%g4111741191%_))) + _%body4118141367%_ + _%fini4117241339%_ + _%hd4116241308%_ + _%step4114041289%_ + _%init4114141291%_ + _%var4114241292%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4131341495%_ - _%target4131041489%_ + (_%loop4117641348%_ + _%target4117341342%_ '())) - (_%g4125341324%_ - _%g4125441328%_))))) - (_%g4125341324%_ _%g4125441328%_))))))) - (_%loop4130441465%_ _%target4130141459%_ '())) - (_%g4125341324%_ _%g4125441328%_))))) + (_%g4111641187%_ + _%g4111741191%_))))) + (_%g4111641187%_ _%g4111741191%_))))))) + (_%loop4116741320%_ _%target4116441314%_ '())) + (_%g4111641187%_ _%g4111741191%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4125341324%_ - _%g4125441328%_)))) - (_%g4125341324%_ _%g4125441328%_)))) - (_%g4125341324%_ _%g4125441328%_))))))) + (_%g4111641187%_ + _%g4111741191%_)))) + (_%g4111641187%_ _%g4111741191%_)))) + (_%g4111641187%_ _%g4111741191%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4127041357%_ - _%target4126741351%_ + (_%loop4113341220%_ + _%target4113041214%_ '() '() '())) - (_%g4125341324%_ - _%g4125441328%_))))) - (_%g4125341324%_ _%g4125441328%_)))) - (_%g4125341324%_ _%g4125441328%_)))) - (_%g4125341324%_ _%g4125441328%_))))) - (_%g4125241613%_ _%$stx41249%_)))) + (_%g4111641187%_ + _%g4111741191%_))))) + (_%g4111641187%_ _%g4111741191%_)))) + (_%g4111641187%_ _%g4111741191%_)))) + (_%g4111641187%_ _%g4111741191%_))))) + (_%g4111541464%_ _%$stx41112%_)))) (define |gerbil/core/more-sugar[:0:]#do-while| - (lambda (_%$stx41621%_) - (let* ((_%g4162541696%_ - (lambda (_%g4162641692%_) + (lambda (_%$stx41472%_) + (let* ((_%g4147641547%_ + (lambda (_%g4147741543%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4162641692%_))) - (_%g4162441985%_ - (lambda (_%g4162641700%_) - (if (gx#stx-pair? _%g4162641700%_) - (let ((_%e4163341703%_ (gx#syntax-e _%g4162641700%_))) - (let ((_%hd4163441707%_ + _%g4147741543%_))) + (_%g4147541824%_ + (lambda (_%g4147741551%_) + (if (gx#stx-pair? _%g4147741551%_) + (let ((_%e4148441554%_ (gx#syntax-e _%g4147741551%_))) + (let ((_%hd4148541558%_ (let () (declare (not safe)) - (##car _%e4163341703%_))) - (_%tl4163541710%_ + (##car _%e4148441554%_))) + (_%tl4148641561%_ (let () (declare (not safe)) - (##cdr _%e4163341703%_)))) - (if (gx#stx-pair? _%tl4163541710%_) - (let ((_%e4163641713%_ - (gx#syntax-e _%tl4163541710%_))) - (let ((_%hd4163741717%_ + (##cdr _%e4148441554%_)))) + (if (gx#stx-pair? _%tl4148641561%_) + (let ((_%e4148741564%_ + (gx#syntax-e _%tl4148641561%_))) + (let ((_%hd4148841568%_ (let () (declare (not safe)) - (##car _%e4163641713%_))) - (_%tl4163841720%_ + (##car _%e4148741564%_))) + (_%tl4148941571%_ (let () (declare (not safe)) - (##cdr _%e4163641713%_)))) - (if (gx#stx-pair/null? _%hd4163741717%_) - (let ((_g45034_ + (##cdr _%e4148741564%_)))) + (if (gx#stx-pair/null? _%hd4148841568%_) + (let ((_g44829_ (gx#syntax-split-splice - _%hd4163741717%_ + _%hd4148841568%_ '0))) (begin - (let ((_g45035_ + (let ((_g44830_ (let () (declare (not safe)) - (if (##values? _g45034_) + (if (##values? _g44829_) (##values-length - _g45034_) + _g44829_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g45035_ 2))) + (##fx= _g44830_ 2))) (error "Context expects 2 values" - _g45035_))) - (let ((_%target4163941723%_ + _g44830_))) + (let ((_%target4149041574%_ (let () (declare (not safe)) - (##values-ref _g45034_ 0))) - (_%tl4164141726%_ + (##values-ref _g44829_ 0))) + (_%tl4149241577%_ (let () (declare (not safe)) - (##values-ref _g45034_ 1)))) - (if (gx#stx-null? _%tl4164141726%_) - (letrec ((_%loop4164241729%_ - (lambda (_%hd4164041733%_ + (##values-ref _g44829_ 1)))) + (if (gx#stx-null? _%tl4149241577%_) + (letrec ((_%loop4149341580%_ + (lambda (_%hd4149141584%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%step4164641736%_ - _%init4164741738%_ - _%var4164841740%_) - (if (gx#stx-pair? _%hd4164041733%_) - (let ((_%e4164341743%_ (gx#syntax-e _%hd4164041733%_))) - (let ((_%lp-hd4164441747%_ + _%step4149741587%_ + _%init4149841588%_ + _%var4149941589%_) + (if (gx#stx-pair? _%hd4149141584%_) + (let ((_%e4149441591%_ (gx#syntax-e _%hd4149141584%_))) + (let ((_%lp-hd4149541595%_ (let () (declare (not safe)) - (##car _%e4164341743%_))) - (_%lp-tl4164541750%_ + (##car _%e4149441591%_))) + (_%lp-tl4149641598%_ (let () (declare (not safe)) - (##cdr _%e4164341743%_)))) - (if (gx#stx-pair? _%lp-hd4164441747%_) - (let ((_%e4165241753%_ - (gx#syntax-e _%lp-hd4164441747%_))) - (let ((_%hd4165341757%_ + (##cdr _%e4149441591%_)))) + (if (gx#stx-pair? _%lp-hd4149541595%_) + (let ((_%e4150341601%_ + (gx#syntax-e _%lp-hd4149541595%_))) + (let ((_%hd4150441605%_ (let () (declare (not safe)) - (##car _%e4165241753%_))) - (_%tl4165441760%_ + (##car _%e4150341601%_))) + (_%tl4150541608%_ (let () (declare (not safe)) - (##cdr _%e4165241753%_)))) - (if (gx#stx-pair? _%tl4165441760%_) - (let ((_%e4165541763%_ - (gx#syntax-e _%tl4165441760%_))) - (let ((_%hd4165641767%_ + (##cdr _%e4150341601%_)))) + (if (gx#stx-pair? _%tl4150541608%_) + (let ((_%e4150641611%_ + (gx#syntax-e _%tl4150541608%_))) + (let ((_%hd4150741615%_ (let () (declare (not safe)) - (##car _%e4165541763%_))) - (_%tl4165741770%_ + (##car _%e4150641611%_))) + (_%tl4150841618%_ (let () (declare (not safe)) - (##cdr _%e4165541763%_)))) + (##cdr _%e4150641611%_)))) (if (gx#stx-pair/null? - _%tl4165741770%_) - (let ((_g45036_ + _%tl4150841618%_) + (let ((_g44831_ (gx#syntax-split-splice - _%tl4165741770%_ + _%tl4150841618%_ '0))) (begin - (let ((_g45037_ + (let ((_g44832_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g45036_) - (##values-length _g45036_) + _g44831_) + (##values-length _g44831_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g45037_ 2))) - (error "Context expects 2 values" _g45037_))) + (if (not (let () (declare (not safe)) (##fx= _g44832_ 2))) + (error "Context expects 2 values" _g44832_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target4165841773%_ + (let ((_%target4150941621%_ (let () (declare (not safe)) (##values-ref - _g45036_ + _g44831_ 0))) - (_%tl4166041776%_ + (_%tl4151141624%_ (let () (declare (not safe)) (##values-ref - _g45036_ + _g44831_ 1)))) (if (gx#stx-null? - _%tl4166041776%_) - (letrec ((_%loop4166141779%_ + _%tl4151141624%_) + (letrec ((_%loop4151241627%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd4165941783%_ _%step4166541786%_) - (if (gx#stx-pair? _%hd4165941783%_) - (let ((_%e4166241789%_ - (gx#syntax-e _%hd4165941783%_))) - (let ((_%lp-hd4166341793%_ + (lambda (_%hd4151041631%_ _%step4151641634%_) + (if (gx#stx-pair? _%hd4151041631%_) + (let ((_%e4151341636%_ + (gx#syntax-e _%hd4151041631%_))) + (let ((_%lp-hd4151441640%_ (let () (declare (not safe)) - (##car _%e4166241789%_))) - (_%lp-tl4166441796%_ + (##car _%e4151341636%_))) + (_%lp-tl4151541643%_ (let () (declare (not safe)) - (##cdr _%e4166241789%_)))) - (_%loop4166141779%_ - _%lp-tl4166441796%_ - (cons _%lp-hd4166341793%_ - _%step4166541786%_)))) - (let ((_%step4166641799%_ - (reverse _%step4166541786%_))) - (_%loop4164241729%_ - _%lp-tl4164541750%_ - (cons _%step4166641799%_ - _%step4164641736%_) - (cons _%hd4165641767%_ _%init4164741738%_) - (cons _%hd4165341757%_ - _%var4164841740%_))))))) - (_%loop4166141779%_ _%target4165841773%_ '())) - (_%g4162541696%_ _%g4162641700%_))))) + (##cdr _%e4151341636%_)))) + (_%loop4151241627%_ + _%lp-tl4151541643%_ + (cons _%lp-hd4151441640%_ + _%step4151641634%_)))) + (let ((_%step4151741646%_ + (reverse _%step4151641634%_))) + (_%loop4149341580%_ + _%lp-tl4149641598%_ + (cons _%step4151741646%_ + _%step4149741587%_) + (cons _%hd4150741615%_ _%init4149841588%_) + (cons _%hd4150441605%_ + _%var4149941589%_))))))) + (_%loop4151241627%_ _%target4150941621%_ '())) + (_%g4147641547%_ _%g4147741551%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4162541696%_ - _%g4162641700%_)))) - (_%g4162541696%_ _%g4162641700%_)))) - (_%g4162541696%_ _%g4162641700%_)))) - (let ((_%step4164941803%_ (reverse _%step4164641736%_)) - (_%init4165041806%_ (reverse _%init4164741738%_)) - (_%var4165141808%_ (reverse _%var4164841740%_))) - (if (gx#stx-pair? _%tl4163841720%_) - (let ((_%e4166741811%_ - (gx#syntax-e _%tl4163841720%_))) - (let ((_%hd4166841815%_ + (_%g4147641547%_ + _%g4147741551%_)))) + (_%g4147641547%_ _%g4147741551%_)))) + (_%g4147641547%_ _%g4147741551%_)))) + (let ((_%step4150041649%_ (reverse _%step4149741587%_)) + (_%init4150141651%_ (reverse _%init4149841588%_)) + (_%var4150241652%_ (reverse _%var4149941589%_))) + (if (gx#stx-pair? _%tl4148941571%_) + (let ((_%e4151841654%_ + (gx#syntax-e _%tl4148941571%_))) + (let ((_%hd4151941658%_ (let () (declare (not safe)) - (##car _%e4166741811%_))) - (_%tl4166941818%_ + (##car _%e4151841654%_))) + (_%tl4152041661%_ (let () (declare (not safe)) - (##cdr _%e4166741811%_)))) - (if (gx#stx-pair? _%hd4166841815%_) - (let ((_%e4167041821%_ - (gx#syntax-e _%hd4166841815%_))) - (let ((_%hd4167141825%_ + (##cdr _%e4151841654%_)))) + (if (gx#stx-pair? _%hd4151941658%_) + (let ((_%e4152141664%_ + (gx#syntax-e _%hd4151941658%_))) + (let ((_%hd4152241668%_ (let () (declare (not safe)) - (##car _%e4167041821%_))) - (_%tl4167241828%_ + (##car _%e4152141664%_))) + (_%tl4152341671%_ (let () (declare (not safe)) - (##cdr _%e4167041821%_)))) + (##cdr _%e4152141664%_)))) (if (gx#stx-pair/null? - _%tl4167241828%_) - (let ((_g45038_ + _%tl4152341671%_) + (let ((_g44833_ (gx#syntax-split-splice - _%tl4167241828%_ + _%tl4152341671%_ '0))) (begin - (let ((_g45039_ + (let ((_g44834_ (let () (declare (not safe)) (if (##values? - _g45038_) + _g44833_) (##values-length - _g45038_) + _g44833_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g45039_ 2))) - (error "Context expects 2 values" _g45039_))) + (##fx= _g44834_ 2))) + (error "Context expects 2 values" _g44834_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target4167341831%_ + (let ((_%target4152441674%_ (let () (declare (not safe)) (##values-ref - _g45038_ + _g44833_ 0))) - (_%tl4167541834%_ + (_%tl4152641677%_ (let () (declare (not safe)) (##values-ref - _g45038_ + _g44833_ 1)))) (if (gx#stx-null? - _%tl4167541834%_) - (letrec ((_%loop4167641837%_ + _%tl4152641677%_) + (letrec ((_%loop4152741680%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd4167441841%_ _%fini4168041844%_) - (if (gx#stx-pair? _%hd4167441841%_) - (let ((_%e4167741847%_ - (gx#syntax-e _%hd4167441841%_))) - (let ((_%lp-hd4167841851%_ + (lambda (_%hd4152541684%_ _%fini4153141687%_) + (if (gx#stx-pair? _%hd4152541684%_) + (let ((_%e4152841689%_ + (gx#syntax-e _%hd4152541684%_))) + (let ((_%lp-hd4152941693%_ (let () (declare (not safe)) - (##car _%e4167741847%_))) - (_%lp-tl4167941854%_ + (##car _%e4152841689%_))) + (_%lp-tl4153041696%_ (let () (declare (not safe)) - (##cdr _%e4167741847%_)))) - (_%loop4167641837%_ - _%lp-tl4167941854%_ - (cons _%lp-hd4167841851%_ - _%fini4168041844%_)))) - (let ((_%fini4168141857%_ - (reverse _%fini4168041844%_))) - (if (gx#stx-pair/null? _%tl4166941818%_) - (let ((_g45040_ + (##cdr _%e4152841689%_)))) + (_%loop4152741680%_ + _%lp-tl4153041696%_ + (cons _%lp-hd4152941693%_ + _%fini4153141687%_)))) + (let ((_%fini4153241699%_ + (reverse _%fini4153141687%_))) + (if (gx#stx-pair/null? _%tl4152041661%_) + (let ((_g44835_ (gx#syntax-split-splice - _%tl4166941818%_ + _%tl4152041661%_ '0))) (begin - (let ((_g45041_ + (let ((_g44836_ (let () (declare (not safe)) - (if (##values? _g45040_) + (if (##values? _g44835_) (##values-length - _g45040_) + _g44835_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g45041_ 2))) + (##fx= _g44836_ 2))) (error "Context expects 2 values" - _g45041_))) - (let ((_%target4168241861%_ + _g44836_))) + (let ((_%target4153341702%_ (let () (declare (not safe)) - (##values-ref _g45040_ 0))) - (_%tl4168441864%_ + (##values-ref _g44835_ 0))) + (_%tl4153541705%_ (let () (declare (not safe)) - (##values-ref _g45040_ 1)))) - (if (gx#stx-null? _%tl4168441864%_) - (letrec ((_%loop4168541867%_ - (lambda (_%hd4168341871%_ + (##values-ref _g44835_ 1)))) + (if (gx#stx-null? _%tl4153541705%_) + (letrec ((_%loop4153641708%_ + (lambda (_%hd4153441712%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body4168941874%_) - (if (gx#stx-pair? _%hd4168341871%_) - (let ((_%e4168641877%_ (gx#syntax-e _%hd4168341871%_))) - (let ((_%lp-hd4168741881%_ + _%body4154041715%_) + (if (gx#stx-pair? _%hd4153441712%_) + (let ((_%e4153741717%_ (gx#syntax-e _%hd4153441712%_))) + (let ((_%lp-hd4153841721%_ (let () (declare (not safe)) - (##car _%e4168641877%_))) - (_%lp-tl4168841884%_ + (##car _%e4153741717%_))) + (_%lp-tl4153941724%_ (let () (declare (not safe)) - (##cdr _%e4168641877%_)))) - (_%loop4168541867%_ - _%lp-tl4168841884%_ - (cons _%lp-hd4168741881%_ _%body4168941874%_)))) - (let ((_%body4169041887%_ - (reverse _%body4168941874%_))) - ((lambda (_%L41891%_ - _%L41893%_ - _%L41894%_ - _%L41895%_ - _%L41896%_ - _%L41897%_) + (##cdr _%e4153741717%_)))) + (_%loop4153641708%_ + _%lp-tl4153941724%_ + (cons _%lp-hd4153841721%_ _%body4154041715%_)))) + (let ((_%body4154141727%_ + (reverse _%body4154041715%_))) + ((lambda (_%g4147841730%_ + _%g4147941732%_ + _%g4148041733%_ + _%g4148141734%_ + _%g4148241735%_ + _%g4148341736%_) (if (gx#stx-andmap gx#identifier? - (foldr (lambda (_%g4193041933%_ - _%g4193141936%_) - (cons _%g4193041933%_ - _%g4193141936%_)) + (foldr (lambda (_%g4176941772%_ + _%g4177041775%_) + (cons _%g4176941772%_ + _%g4177041775%_)) '() - _%L41897%_)) + _%g4148341736%_)) (cons (gx#datum->syntax '#f 'let) (cons (gx#datum->syntax '#f '$loop) (cons (begin (gx#syntax-check-splice-targets - _%L41896%_ - _%L41897%_) - (foldr (lambda (_%g4193841951%_ + _%g4148241735%_ + _%g4148341736%_) + (foldr (lambda (_%g4177741790%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4193941954%_ - _%g4194041956%_) - (cons (cons _%g4193941954%_ (cons _%g4193841951%_ '())) - _%g4194041956%_)) + _%g4177841793%_ + _%g4177941795%_) + (cons (cons _%g4177841793%_ (cons _%g4177741790%_ '())) + _%g4177941795%_)) '() - _%L41896%_ - _%L41897%_)) + _%g4148241735%_ + _%g4148341736%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g4194141959%_ + (foldr (lambda (_%g4178041798%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4194241962%_) - (cons _%g4194141959%_ _%g4194241962%_)) + _%g4178141801%_) + (cons _%g4178041798%_ _%g4178141801%_)) (cons (cons (gx#datum->syntax '#f 'if) - (cons _%L41894%_ + (cons _%g4148041733%_ (cons (cons (gx#datum->syntax '#f '$loop) (begin (gx#syntax-check-splice-targets - _%L41895%_ - _%L41897%_) - (foldr (lambda (_%g4194341965%_ + _%g4148141734%_ + _%g4148341736%_) + (foldr (lambda (_%g4178241804%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4194441968%_ - _%g4194541970%_) + _%g4178341807%_ + _%g4178441809%_) (cons (cons (gx#datum->syntax '#f 'begin) - (cons _%g4194441968%_ - (foldr (lambda (_%g4194641973%_ - _%g4194741976%_) - (cons _%g4194641973%_ - _%g4194741976%_)) + (cons _%g4178341807%_ + (foldr (lambda (_%g4178541812%_ + _%g4178641815%_) + (cons _%g4178541812%_ + _%g4178641815%_)) '() - _%g4194341965%_))) - _%g4194541970%_)) + _%g4178241804%_))) + _%g4178441809%_)) '() - _%L41895%_ - _%L41897%_))) + _%g4148141734%_ + _%g4148341736%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'begin) (cons '#!void - (foldr (lambda (_%g4194841979%_ + (foldr (lambda (_%g4178741818%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4194941982%_) - (cons _%g4194841979%_ _%g4194941982%_)) + _%g4178841821%_) + (cons _%g4178741818%_ _%g4178841821%_)) '() - _%L41893%_))) + _%g4147941732%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()) - _%L41891%_)))) + _%g4147841730%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4162541696%_ _%g4162641700%_))) - _%body4169041887%_ - _%fini4168141857%_ - _%hd4167141825%_ - _%step4164941803%_ - _%init4165041806%_ - _%var4165141808%_)))))) + (_%g4147641547%_ _%g4147741551%_))) + _%body4154141727%_ + _%fini4153241699%_ + _%hd4152241668%_ + _%step4150041649%_ + _%init4150141651%_ + _%var4150241652%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4168541867%_ - _%target4168241861%_ + (_%loop4153641708%_ + _%target4153341702%_ '())) - (_%g4162541696%_ - _%g4162641700%_))))) - (_%g4162541696%_ _%g4162641700%_))))))) - (_%loop4167641837%_ _%target4167341831%_ '())) - (_%g4162541696%_ _%g4162641700%_))))) + (_%g4147641547%_ + _%g4147741551%_))))) + (_%g4147641547%_ _%g4147741551%_))))))) + (_%loop4152741680%_ _%target4152441674%_ '())) + (_%g4147641547%_ _%g4147741551%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4162541696%_ - _%g4162641700%_)))) - (_%g4162541696%_ _%g4162641700%_)))) - (_%g4162541696%_ _%g4162641700%_))))))) + (_%g4147641547%_ + _%g4147741551%_)))) + (_%g4147641547%_ _%g4147741551%_)))) + (_%g4147641547%_ _%g4147741551%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4164241729%_ - _%target4163941723%_ + (_%loop4149341580%_ + _%target4149041574%_ '() '() '())) - (_%g4162541696%_ - _%g4162641700%_))))) - (_%g4162541696%_ _%g4162641700%_)))) - (_%g4162541696%_ _%g4162641700%_)))) - (_%g4162541696%_ _%g4162641700%_))))) - (_%g4162441985%_ _%$stx41621%_)))) + (_%g4147641547%_ + _%g4147741551%_))))) + (_%g4147641547%_ _%g4147741551%_)))) + (_%g4147641547%_ _%g4147741551%_)))) + (_%g4147641547%_ _%g4147741551%_))))) + (_%g4147541824%_ _%$stx41472%_)))) (define |gerbil/core/more-sugar[:0:]#while| - (lambda (_%$stx41993%_) - (let* ((_%g4199742021%_ - (lambda (_%g4199842017%_) + (lambda (_%$stx41832%_) + (let* ((_%g4183641860%_ + (lambda (_%g4183741856%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4199842017%_))) - (_%g4199642106%_ - (lambda (_%g4199842025%_) - (if (gx#stx-pair? _%g4199842025%_) - (let ((_%e4200142028%_ (gx#syntax-e _%g4199842025%_))) - (let ((_%hd4200242032%_ + _%g4183741856%_))) + (_%g4183541943%_ + (lambda (_%g4183741864%_) + (if (gx#stx-pair? _%g4183741864%_) + (let ((_%e4184041867%_ (gx#syntax-e _%g4183741864%_))) + (let ((_%hd4184141871%_ (let () (declare (not safe)) - (##car _%e4200142028%_))) - (_%tl4200342035%_ + (##car _%e4184041867%_))) + (_%tl4184241874%_ (let () (declare (not safe)) - (##cdr _%e4200142028%_)))) - (if (gx#stx-pair? _%tl4200342035%_) - (let ((_%e4200442038%_ - (gx#syntax-e _%tl4200342035%_))) - (let ((_%hd4200542042%_ + (##cdr _%e4184041867%_)))) + (if (gx#stx-pair? _%tl4184241874%_) + (let ((_%e4184341877%_ + (gx#syntax-e _%tl4184241874%_))) + (let ((_%hd4184441881%_ (let () (declare (not safe)) - (##car _%e4200442038%_))) - (_%tl4200642045%_ + (##car _%e4184341877%_))) + (_%tl4184541884%_ (let () (declare (not safe)) - (##cdr _%e4200442038%_)))) - (if (gx#stx-pair/null? _%tl4200642045%_) - (let ((_g45042_ + (##cdr _%e4184341877%_)))) + (if (gx#stx-pair/null? _%tl4184541884%_) + (let ((_g44837_ (gx#syntax-split-splice - _%tl4200642045%_ + _%tl4184541884%_ '0))) (begin - (let ((_g45043_ + (let ((_g44838_ (let () (declare (not safe)) - (if (##values? _g45042_) + (if (##values? _g44837_) (##values-length - _g45042_) + _g44837_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g45043_ 2))) + (##fx= _g44838_ 2))) (error "Context expects 2 values" - _g45043_))) - (let ((_%target4200742048%_ + _g44838_))) + (let ((_%target4184641887%_ (let () (declare (not safe)) - (##values-ref _g45042_ 0))) - (_%tl4200942051%_ + (##values-ref _g44837_ 0))) + (_%tl4184841890%_ (let () (declare (not safe)) - (##values-ref _g45042_ 1)))) - (if (gx#stx-null? _%tl4200942051%_) - (letrec ((_%loop4201042054%_ - (lambda (_%hd4200842058%_ + (##values-ref _g44837_ 1)))) + (if (gx#stx-null? _%tl4184841890%_) + (letrec ((_%loop4184941893%_ + (lambda (_%hd4184741897%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body4201442061%_) - (if (gx#stx-pair? _%hd4200842058%_) - (let ((_%e4201142064%_ (gx#syntax-e _%hd4200842058%_))) - (let ((_%lp-hd4201242068%_ + _%body4185341900%_) + (if (gx#stx-pair? _%hd4184741897%_) + (let ((_%e4185041902%_ (gx#syntax-e _%hd4184741897%_))) + (let ((_%lp-hd4185141906%_ (let () (declare (not safe)) - (##car _%e4201142064%_))) - (_%lp-tl4201342071%_ + (##car _%e4185041902%_))) + (_%lp-tl4185241909%_ (let () (declare (not safe)) - (##cdr _%e4201142064%_)))) - (_%loop4201042054%_ - _%lp-tl4201342071%_ - (cons _%lp-hd4201242068%_ _%body4201442061%_)))) - (let ((_%body4201542074%_ - (reverse _%body4201442061%_))) - ((lambda (_%L42078%_ _%L42080%_) + (##cdr _%e4185041902%_)))) + (_%loop4184941893%_ + _%lp-tl4185241909%_ + (cons _%lp-hd4185141906%_ _%body4185341900%_)))) + (let ((_%body4185441912%_ + (reverse _%body4185341900%_))) + ((lambda (_%g4183841915%_ _%g4183941917%_) (cons (gx#datum->syntax '#f 'let) (cons (gx#datum->syntax '#f 'lp) (cons '() (cons (cons (gx#datum->syntax '#f 'when) - (cons _%L42080%_ + (cons _%g4183941917%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g4209742100%_ _%g4209842103%_) - (cons _%g4209742100%_ _%g4209842103%_)) + (foldr (lambda (_%g4193441937%_ _%g4193541940%_) + (cons _%g4193441937%_ _%g4193541940%_)) (cons (cons (gx#datum->syntax '#f 'lp) '()) '()) - _%L42078%_))) + _%g4183841915%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%body4201542074%_ - _%hd4200542042%_)))))) + _%body4185441912%_ + _%hd4184441881%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4201042054%_ - _%target4200742048%_ + (_%loop4184941893%_ + _%target4184641887%_ '())) - (_%g4199742021%_ - _%g4199842025%_))))) - (_%g4199742021%_ _%g4199842025%_)))) - (_%g4199742021%_ _%g4199842025%_)))) - (_%g4199742021%_ _%g4199842025%_))))) - (_%g4199642106%_ _%$stx41993%_)))) + (_%g4183641860%_ + _%g4183741864%_))))) + (_%g4183641860%_ _%g4183741864%_)))) + (_%g4183641860%_ _%g4183741864%_)))) + (_%g4183641860%_ _%g4183741864%_))))) + (_%g4183541943%_ _%$stx41832%_)))) (define |gerbil/core/more-sugar[:0:]#until| - (lambda (_%$stx42111%_) - (let* ((_%g4211542139%_ - (lambda (_%g4211642135%_) + (lambda (_%$stx41948%_) + (let* ((_%g4195241976%_ + (lambda (_%g4195341972%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4211642135%_))) - (_%g4211442224%_ - (lambda (_%g4211642143%_) - (if (gx#stx-pair? _%g4211642143%_) - (let ((_%e4211942146%_ (gx#syntax-e _%g4211642143%_))) - (let ((_%hd4212042150%_ + _%g4195341972%_))) + (_%g4195142059%_ + (lambda (_%g4195341980%_) + (if (gx#stx-pair? _%g4195341980%_) + (let ((_%e4195641983%_ (gx#syntax-e _%g4195341980%_))) + (let ((_%hd4195741987%_ (let () (declare (not safe)) - (##car _%e4211942146%_))) - (_%tl4212142153%_ + (##car _%e4195641983%_))) + (_%tl4195841990%_ (let () (declare (not safe)) - (##cdr _%e4211942146%_)))) - (if (gx#stx-pair? _%tl4212142153%_) - (let ((_%e4212242156%_ - (gx#syntax-e _%tl4212142153%_))) - (let ((_%hd4212342160%_ + (##cdr _%e4195641983%_)))) + (if (gx#stx-pair? _%tl4195841990%_) + (let ((_%e4195941993%_ + (gx#syntax-e _%tl4195841990%_))) + (let ((_%hd4196041997%_ (let () (declare (not safe)) - (##car _%e4212242156%_))) - (_%tl4212442163%_ + (##car _%e4195941993%_))) + (_%tl4196142000%_ (let () (declare (not safe)) - (##cdr _%e4212242156%_)))) - (if (gx#stx-pair/null? _%tl4212442163%_) - (let ((_g45044_ + (##cdr _%e4195941993%_)))) + (if (gx#stx-pair/null? _%tl4196142000%_) + (let ((_g44839_ (gx#syntax-split-splice - _%tl4212442163%_ + _%tl4196142000%_ '0))) (begin - (let ((_g45045_ + (let ((_g44840_ (let () (declare (not safe)) - (if (##values? _g45044_) + (if (##values? _g44839_) (##values-length - _g45044_) + _g44839_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g45045_ 2))) + (##fx= _g44840_ 2))) (error "Context expects 2 values" - _g45045_))) - (let ((_%target4212542166%_ + _g44840_))) + (let ((_%target4196242003%_ (let () (declare (not safe)) - (##values-ref _g45044_ 0))) - (_%tl4212742169%_ + (##values-ref _g44839_ 0))) + (_%tl4196442006%_ (let () (declare (not safe)) - (##values-ref _g45044_ 1)))) - (if (gx#stx-null? _%tl4212742169%_) - (letrec ((_%loop4212842172%_ - (lambda (_%hd4212642176%_ + (##values-ref _g44839_ 1)))) + (if (gx#stx-null? _%tl4196442006%_) + (letrec ((_%loop4196542009%_ + (lambda (_%hd4196342013%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body4213242179%_) - (if (gx#stx-pair? _%hd4212642176%_) - (let ((_%e4212942182%_ (gx#syntax-e _%hd4212642176%_))) - (let ((_%lp-hd4213042186%_ + _%body4196942016%_) + (if (gx#stx-pair? _%hd4196342013%_) + (let ((_%e4196642018%_ (gx#syntax-e _%hd4196342013%_))) + (let ((_%lp-hd4196742022%_ (let () (declare (not safe)) - (##car _%e4212942182%_))) - (_%lp-tl4213142189%_ + (##car _%e4196642018%_))) + (_%lp-tl4196842025%_ (let () (declare (not safe)) - (##cdr _%e4212942182%_)))) - (_%loop4212842172%_ - _%lp-tl4213142189%_ - (cons _%lp-hd4213042186%_ _%body4213242179%_)))) - (let ((_%body4213342192%_ - (reverse _%body4213242179%_))) - ((lambda (_%L42196%_ _%L42198%_) + (##cdr _%e4196642018%_)))) + (_%loop4196542009%_ + _%lp-tl4196842025%_ + (cons _%lp-hd4196742022%_ _%body4196942016%_)))) + (let ((_%body4197042028%_ + (reverse _%body4196942016%_))) + ((lambda (_%g4195442031%_ _%g4195542033%_) (cons (gx#datum->syntax '#f 'let) (cons (gx#datum->syntax '#f 'lp) (cons '() (cons (cons (gx#datum->syntax '#f 'unless) - (cons _%L42198%_ + (cons _%g4195542033%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g4221542218%_ _%g4221642221%_) - (cons _%g4221542218%_ _%g4221642221%_)) + (foldr (lambda (_%g4205042053%_ _%g4205142056%_) + (cons _%g4205042053%_ _%g4205142056%_)) (cons (cons (gx#datum->syntax '#f 'lp) '()) '()) - _%L42196%_))) + _%g4195442031%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%body4213342192%_ - _%hd4212342160%_)))))) + _%body4197042028%_ + _%hd4196041997%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4212842172%_ - _%target4212542166%_ + (_%loop4196542009%_ + _%target4196242003%_ '())) - (_%g4211542139%_ - _%g4211642143%_))))) - (_%g4211542139%_ _%g4211642143%_)))) - (_%g4211542139%_ _%g4211642143%_)))) - (_%g4211542139%_ _%g4211642143%_))))) - (_%g4211442224%_ _%$stx42111%_)))) + (_%g4195241976%_ + _%g4195341980%_))))) + (_%g4195241976%_ _%g4195341980%_)))) + (_%g4195241976%_ _%g4195341980%_)))) + (_%g4195241976%_ _%g4195341980%_))))) + (_%g4195142059%_ _%$stx41948%_)))) (define |gerbil/core/more-sugar[:0:]#catch| - (lambda (_%$stx42229%_) - (let ((_%g4223242239%_ - (lambda (_%g4223342235%_) + (lambda (_%$stx42064%_) + (let ((_%g4206742074%_ + (lambda (_%g4206842070%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4223342235%_)))) - (_%g4223242239%_ _%$stx42229%_)))) + _%g4206842070%_)))) + (_%g4206742074%_ _%$stx42064%_)))) (define |gerbil/core/more-sugar[:0:]#finally| - (lambda (_%$stx42243%_) - (let ((_%g4224642253%_ - (lambda (_%g4224742249%_) + (lambda (_%$stx42078%_) + (let ((_%g4208142088%_ + (lambda (_%g4208242084%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4224742249%_)))) - (_%g4224642253%_ _%$stx42243%_)))) + _%g4208242084%_)))) + (_%g4208142088%_ _%$stx42078%_)))) (define |gerbil/core/more-sugar[:0:]#try| - (lambda (_%stx42257%_) - (letrec ((_%generate-thunk42260%_ - (lambda (_%body43599%_) - (if (null? _%body43599%_) + (lambda (_%stx42092%_) + (letrec ((_%generate-thunk42095%_ + (lambda (_%body43414%_) + (if (null? _%body43414%_) (gx#raise-syntax-error '#f '"Bad syntax; missing body" - _%stx42257%_) - (let* ((_%g4360243619%_ - (lambda (_%g4360343615%_) + _%stx42092%_) + (let* ((_%g4341743434%_ + (lambda (_%g4341843430%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4360343615%_))) - (_%g4360143680%_ - (lambda (_%g4360343623%_) - (if (gx#stx-pair/null? _%g4360343623%_) - (let ((_g45046_ + _%g4341843430%_))) + (_%g4341643493%_ + (lambda (_%g4341843438%_) + (if (gx#stx-pair/null? _%g4341843438%_) + (let ((_g44841_ (gx#syntax-split-splice - _%g4360343623%_ + _%g4341843438%_ '0))) (begin - (let ((_g45047_ + (let ((_g44842_ (let () (declare (not safe)) - (if (##values? _g45046_) + (if (##values? _g44841_) (##values-length - _g45046_) + _g44841_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g45047_ 2))) + (##fx= _g44842_ 2))) (error "Context expects 2 values" - _g45047_))) - (let ((_%target4360543626%_ + _g44842_))) + (let ((_%target4342043441%_ (let () (declare (not safe)) - (##values-ref _g45046_ 0))) - (_%tl4360743629%_ + (##values-ref _g44841_ 0))) + (_%tl4342243444%_ (let () (declare (not safe)) - (##values-ref _g45046_ 1)))) - (if (gx#stx-null? _%tl4360743629%_) - (letrec ((_%loop4360843632%_ - (lambda (_%hd4360643636%_ + (##values-ref _g44841_ 1)))) + (if (gx#stx-null? _%tl4342243444%_) + (letrec ((_%loop4342343447%_ + (lambda (_%hd4342143451%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e4361243639%_) - (if (gx#stx-pair? _%hd4360643636%_) - (let ((_%e4360943642%_ (gx#syntax-e _%hd4360643636%_))) - (let ((_%lp-hd4361043646%_ + _%e4342743454%_) + (if (gx#stx-pair? _%hd4342143451%_) + (let ((_%e4342443456%_ (gx#syntax-e _%hd4342143451%_))) + (let ((_%lp-hd4342543460%_ (let () (declare (not safe)) - (##car _%e4360943642%_))) - (_%lp-tl4361143649%_ + (##car _%e4342443456%_))) + (_%lp-tl4342643463%_ (let () (declare (not safe)) - (##cdr _%e4360943642%_)))) - (_%loop4360843632%_ - _%lp-tl4361143649%_ - (cons _%lp-hd4361043646%_ _%e4361243639%_)))) - (let ((_%e4361343652%_ (reverse _%e4361243639%_))) - ((lambda (_%L43656%_) + (##cdr _%e4342443456%_)))) + (_%loop4342343447%_ + _%lp-tl4342643463%_ + (cons _%lp-hd4342543460%_ _%e4342743454%_)))) + (let ((_%e4342843466%_ (reverse _%e4342743454%_))) + ((lambda (_%g4341943469%_) (cons (gx#datum->syntax '#f 'lambda) (cons '() - (foldr (lambda (_%g4367143674%_ - _%g4367243677%_) - (cons _%g4367143674%_ - _%g4367243677%_)) + (foldr (lambda (_%g4348443487%_ + _%g4348543490%_) + (cons _%g4348443487%_ + _%g4348543490%_)) '() - _%L43656%_)))) - _%e4361343652%_)))))) + _%g4341943469%_)))) + _%e4342843466%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4360843632%_ - _%target4360543626%_ + (_%loop4342343447%_ + _%target4342043441%_ '())) - (_%g4360243619%_ - _%g4360343623%_))))) - (_%g4360243619%_ _%g4360343623%_))))) - (_%g4360143680%_ (reverse _%body43599%_)))))) - (_%generate-fini42262%_ - (lambda (_%thunk43480%_ _%fini43482%_) - (let* ((_%g4348443508%_ - (lambda (_%g4348543504%_) + (_%g4341743434%_ + _%g4341843438%_))))) + (_%g4341743434%_ _%g4341843438%_))))) + (_%g4341643493%_ (reverse _%body43414%_)))))) + (_%generate-fini42097%_ + (lambda (_%thunk43297%_ _%fini43299%_) + (let* ((_%g4330143325%_ + (lambda (_%g4330243321%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4348543504%_))) - (_%g4348343595%_ - (lambda (_%g4348543512%_) - (if (gx#stx-pair? _%g4348543512%_) - (let ((_%e4348843515%_ - (gx#syntax-e _%g4348543512%_))) - (let ((_%hd4348943519%_ + _%g4330243321%_))) + (_%g4330043410%_ + (lambda (_%g4330243329%_) + (if (gx#stx-pair? _%g4330243329%_) + (let ((_%e4330543332%_ + (gx#syntax-e _%g4330243329%_))) + (let ((_%hd4330643336%_ (let () (declare (not safe)) - (##car _%e4348843515%_))) - (_%tl4349043522%_ + (##car _%e4330543332%_))) + (_%tl4330743339%_ (let () (declare (not safe)) - (##cdr _%e4348843515%_)))) - (if (gx#stx-pair? _%tl4349043522%_) - (let ((_%e4349143525%_ + (##cdr _%e4330543332%_)))) + (if (gx#stx-pair? _%tl4330743339%_) + (let ((_%e4330843342%_ (gx#syntax-e - _%tl4349043522%_))) - (let ((_%hd4349243529%_ + _%tl4330743339%_))) + (let ((_%hd4330943346%_ (let () (declare (not safe)) - (##car _%e4349143525%_))) - (_%tl4349343532%_ + (##car _%e4330843342%_))) + (_%tl4331043349%_ (let () (declare (not safe)) - (##cdr _%e4349143525%_)))) + (##cdr _%e4330843342%_)))) (if (gx#stx-pair/null? - _%hd4349243529%_) - (let ((_g45048_ + _%hd4330943346%_) + (let ((_g44843_ (gx#syntax-split-splice - _%hd4349243529%_ + _%hd4330943346%_ '0))) (begin - (let ((_g45049_ + (let ((_g44844_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g45048_) - (##values-length _g45048_) + (if (##values? _g44843_) + (##values-length _g44843_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g45049_ 2))) - (error "Context expects 2 values" _g45049_))) - (let ((_%target4349443535%_ - (let () (declare (not safe)) (##values-ref _g45048_ 0))) - (_%tl4349643538%_ - (let () (declare (not safe)) (##values-ref _g45048_ 1)))) - (if (gx#stx-null? _%tl4349643538%_) - (letrec ((_%loop4349743541%_ - (lambda (_%hd4349543545%_ _%e4350143548%_) - (if (gx#stx-pair? _%hd4349543545%_) - (let ((_%e4349843551%_ - (gx#syntax-e _%hd4349543545%_))) - (let ((_%lp-hd4349943555%_ + (if (not (let () (declare (not safe)) (##fx= _g44844_ 2))) + (error "Context expects 2 values" _g44844_))) + (let ((_%target4331143352%_ + (let () (declare (not safe)) (##values-ref _g44843_ 0))) + (_%tl4331343355%_ + (let () (declare (not safe)) (##values-ref _g44843_ 1)))) + (if (gx#stx-null? _%tl4331343355%_) + (letrec ((_%loop4331443358%_ + (lambda (_%hd4331243362%_ _%e4331843365%_) + (if (gx#stx-pair? _%hd4331243362%_) + (let ((_%e4331543367%_ + (gx#syntax-e _%hd4331243362%_))) + (let ((_%lp-hd4331643371%_ (let () (declare (not safe)) - (##car _%e4349843551%_))) - (_%lp-tl4350043558%_ + (##car _%e4331543367%_))) + (_%lp-tl4331743374%_ (let () (declare (not safe)) - (##cdr _%e4349843551%_)))) - (_%loop4349743541%_ - _%lp-tl4350043558%_ - (cons _%lp-hd4349943555%_ - _%e4350143548%_)))) - (let ((_%e4350243561%_ - (reverse _%e4350143548%_))) - (if (gx#stx-null? _%tl4349343532%_) - ((lambda (_%L43565%_ _%L43567%_) + (##cdr _%e4331543367%_)))) + (_%loop4331443358%_ + _%lp-tl4331743374%_ + (cons _%lp-hd4331643371%_ + _%e4331843365%_)))) + (let ((_%e4331943377%_ + (reverse _%e4331843365%_))) + (if (gx#stx-null? _%tl4331043349%_) + ((lambda (_%g4330343380%_ + _%g4330443382%_) (cons (gx#datum->syntax '#f 'with-unwind-protect) - (cons _%L43567%_ + (cons _%g4330443382%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) (cons '() - (foldr (lambda (_%g4358643589%_ - _%g4358743592%_) - (cons _%g4358643589%_ - _%g4358743592%_)) + (foldr (lambda (_%g4340143404%_ + _%g4340243407%_) + (cons _%g4340143404%_ + _%g4340243407%_)) '() - _%L43565%_))) + _%g4330343380%_))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%e4350243561%_ - _%hd4348943519%_) - (_%g4348443508%_ - _%g4348543512%_))))))) - (_%loop4349743541%_ _%target4349443535%_ '())) - (_%g4348443508%_ _%g4348543512%_))))) + _%e4331943377%_ + _%hd4330643336%_) + (_%g4330143325%_ + _%g4330243329%_))))))) + (_%loop4331443358%_ _%target4331143352%_ '())) + (_%g4330143325%_ _%g4330243329%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4348443508%_ - _%g4348543512%_)))) - (_%g4348443508%_ _%g4348543512%_)))) - (_%g4348443508%_ _%g4348543512%_))))) - (_%g4348343595%_ (list _%thunk43480%_ _%fini43482%_))))) - (_%generate-catch42263%_ - (lambda (_%handlers42887%_ _%thunk42889%_) - (let* ((_%g4289142899%_ - (lambda (_%g4289242895%_) + (_%g4330143325%_ + _%g4330243329%_)))) + (_%g4330143325%_ _%g4330243329%_)))) + (_%g4330143325%_ _%g4330243329%_))))) + (_%g4330043410%_ (list _%thunk43297%_ _%fini43299%_))))) + (_%generate-catch42098%_ + (lambda (_%handlers42712%_ _%thunk42714%_) + (let* ((_%g4271642724%_ + (lambda (_%g4271742720%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4289242895%_))) - (_%g4289043476%_ - (lambda (_%g4289242903%_) - ((lambda (_%L42906%_) - (let _%lp42918%_ ((_%rest42921%_ - _%handlers42887%_) - (_%clauses42923%_ '())) - (let* ((_%rest4292442932%_ _%rest42921%_) - (_%else4292643065%_ + _%g4271742720%_))) + (_%g4271543293%_ + (lambda (_%g4271742728%_) + ((lambda (_%g4271842731%_) + (let _%lp42743%_ ((_%rest42746%_ + _%handlers42712%_) + (_%clauses42748%_ '())) + (let* ((_%rest4274942757%_ _%rest42746%_) + (_%else4275142888%_ (lambda () - (let* ((_%g4294442968%_ - (lambda (_%g4294542964%_) + (let* ((_%g4276942793%_ + (lambda (_%g4277042789%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4294542964%_))) - (_%g4294343061%_ - (lambda (_%g4294542972%_) + _%g4277042789%_))) + (_%g4276842884%_ + (lambda (_%g4277042797%_) (if (gx#stx-pair? - _%g4294542972%_) - (let ((_%e4294842975%_ + _%g4277042797%_) + (let ((_%e4277342800%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g4294542972%_))) - (let ((_%hd4294942979%_ + (gx#syntax-e _%g4277042797%_))) + (let ((_%hd4277442804%_ (let () (declare (not safe)) - (##car _%e4294842975%_))) - (_%tl4295042982%_ + (##car _%e4277342800%_))) + (_%tl4277542807%_ (let () (declare (not safe)) - (##cdr _%e4294842975%_)))) - (if (gx#stx-pair/null? _%hd4294942979%_) - (let ((_g45050_ + (##cdr _%e4277342800%_)))) + (if (gx#stx-pair/null? _%hd4277442804%_) + (let ((_g44845_ (gx#syntax-split-splice - _%hd4294942979%_ + _%hd4277442804%_ '0))) (begin - (let ((_g45051_ + (let ((_g44846_ (let () (declare (not safe)) - (if (##values? _g45050_) - (##values-length _g45050_) + (if (##values? _g44845_) + (##values-length _g44845_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g45051_ 2))) + (##fx= _g44846_ 2))) (error "Context expects 2 values" - _g45051_))) - (let ((_%target4295142985%_ + _g44846_))) + (let ((_%target4277642810%_ (let () (declare (not safe)) - (##values-ref _g45050_ 0))) - (_%tl4295342988%_ + (##values-ref _g44845_ 0))) + (_%tl4277842813%_ (let () (declare (not safe)) - (##values-ref _g45050_ 1)))) - (if (gx#stx-null? _%tl4295342988%_) - (letrec ((_%loop4295442991%_ - (lambda (_%hd4295242995%_ - _%clause4295842998%_) + (##values-ref _g44845_ 1)))) + (if (gx#stx-null? _%tl4277842813%_) + (letrec ((_%loop4277942816%_ + (lambda (_%hd4277742820%_ + _%clause4278342823%_) (if (gx#stx-pair? - _%hd4295242995%_) - (let ((_%e4295543001%_ + _%hd4277742820%_) + (let ((_%e4278042825%_ (gx#syntax-e - _%hd4295242995%_))) - (let ((_%lp-hd4295643005%_ + _%hd4277742820%_))) + (let ((_%lp-hd4278142829%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e4295543001%_))) - (_%lp-tl4295743008%_ - (let () (declare (not safe)) (##cdr _%e4295543001%_)))) - (_%loop4295442991%_ - _%lp-tl4295743008%_ - (cons _%lp-hd4295643005%_ _%clause4295842998%_)))) + (##car _%e4278042825%_))) + (_%lp-tl4278242832%_ + (let () (declare (not safe)) (##cdr _%e4278042825%_)))) + (_%loop4277942816%_ + _%lp-tl4278242832%_ + (cons _%lp-hd4278142829%_ _%clause4278342823%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%clause4295943011%_ - (reverse _%clause4295842998%_))) + (let ((_%clause4278442835%_ + (reverse _%clause4278342823%_))) (if (gx#stx-pair? - _%tl4295042982%_) - (let ((_%e4296043015%_ + _%tl4277542807%_) + (let ((_%e4278542838%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4295042982%_))) - (let ((_%hd4296143019%_ + (gx#syntax-e _%tl4277542807%_))) + (let ((_%hd4278642842%_ (let () (declare (not safe)) - (##car _%e4296043015%_))) - (_%tl4296243022%_ + (##car _%e4278542838%_))) + (_%tl4278742845%_ (let () (declare (not safe)) - (##cdr _%e4296043015%_)))) - (if (gx#stx-null? _%tl4296243022%_) - ((lambda (_%L43025%_ _%L43027%_) + (##cdr _%e4278542838%_)))) + (if (gx#stx-null? _%tl4278742845%_) + ((lambda (_%g4277142848%_ _%g4277242850%_) (cons (gx#datum->syntax '#f 'with-catch) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L42906%_ '()) + (cons (cons _%g4271842731%_ + '()) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'cond) - (foldr (lambda (_%g4305243055%_ _%g4305343058%_) - (cons _%g4305243055%_ _%g4305343058%_)) + (foldr (lambda (_%g4287542878%_ _%g4287642881%_) + (cons _%g4287542878%_ _%g4287642881%_)) (cons (cons (gx#datum->syntax '#f 'else) (cons (cons (gx#datum->syntax '#f 'raise) - (cons _%L42906%_ '())) + (cons _%g4271842731%_ + '())) '())) '()) - _%L43027%_)) + _%g4277242850%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L43025%_ '())))) - _%hd4296143019%_ - _%clause4295943011%_) - (_%g4294442968%_ _%g4294542972%_)))) - (_%g4294442968%_ _%g4294542972%_))))))) + (cons _%g4277142848%_ '())))) + _%hd4278642842%_ + _%clause4278442835%_) + (_%g4276942793%_ _%g4277042797%_)))) + (_%g4276942793%_ _%g4277042797%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4295442991%_ - _%target4295142985%_ + (_%loop4277942816%_ + _%target4277642810%_ '())) - (_%g4294442968%_ _%g4294542972%_))))) - (_%g4294442968%_ _%g4294542972%_)))) - (_%g4294442968%_ _%g4294542972%_))))) + (_%g4276942793%_ _%g4277042797%_))))) + (_%g4276942793%_ _%g4277042797%_)))) + (_%g4276942793%_ _%g4277042797%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4294343061%_ - (list _%clauses42923%_ - _%thunk42889%_))))) - (_%K4292843460%_ - (lambda (_%rest43069%_ _%hd43071%_) - (let* ((_%__stx4477044771%_ - _%hd43071%_) - (_%g4307643146%_ + (_%g4276842884%_ + (list _%clauses42748%_ + _%thunk42714%_))))) + (_%K4275343277%_ + (lambda (_%rest42892%_ _%hd42894%_) + (let* ((_%__stx4456544566%_ + _%hd42894%_) + (_%g4289942969%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4477044771%_)))) - (let ((_%__kont4477344774%_ - (lambda (_%L43439%_ - _%L43441%_) - (_%lp42918%_ - _%rest43069%_ + _%__stx4456544566%_)))) + (let ((_%__kont4456844569%_ + (lambda (_%g4290143256%_ + _%g4290243258%_) + (_%lp42743%_ + _%rest42892%_ (cons (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '?) - (cons _%L43441%_ '())) - (cons _%L42906%_ '())) + (cons _%g4290243258%_ '())) + (cons _%g4271842731%_ '())) (cons (gx#datum->syntax '#f '=>) - (cons _%L43439%_ '()))) - _%clauses42923%_)))) + (cons _%g4290143256%_ '()))) + _%clauses42748%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont4477544776%_ - (lambda (_%L43371%_ - _%L43373%_ - _%L43374%_) - (_%lp42918%_ - _%rest43069%_ + (_%__kont4457044571%_ + (lambda (_%g4291243188%_ + _%g4291343190%_ + _%g4291443191%_) + (_%lp42743%_ + _%rest42892%_ (cons (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '?) - (cons _%L43374%_ '())) - (cons _%L42906%_ '())) + (cons _%g4291443191%_ '())) + (cons _%g4271842731%_ '())) (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L43373%_ - (cons _%L42906%_ + (cons (cons (cons _%g4291343190%_ + (cons _%g4271842731%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (foldr (lambda (_%g4339343396%_ - _%g4339443399%_) - (cons _%g4339343396%_ - _%g4339443399%_)) + (foldr (lambda (_%g4321043213%_ + _%g4321143216%_) + (cons _%g4321043213%_ + _%g4321143216%_)) '() - _%L43371%_))) + _%g4291243188%_))) '())) - _%clauses42923%_)))) + _%clauses42748%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont4477944780%_ - (lambda (_%L43277%_ - _%L43279%_) - (_%lp42918%_ - _%rest43069%_ + (_%__kont4457444575%_ + (lambda (_%g4293343096%_ + _%g4293443098%_) + (_%lp42743%_ + _%rest42892%_ (cons (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L43279%_ - (cons _%L42906%_ + (cons (cons (cons _%g4293443098%_ + (cons _%g4271842731%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (foldr (lambda (_%g4329543298%_ - _%g4329643301%_) - (cons _%g4329543298%_ - _%g4329643301%_)) + (foldr (lambda (_%g4311443117%_ + _%g4311543120%_) + (cons _%g4311443117%_ + _%g4311543120%_)) '() - _%L43277%_))) + _%g4293343096%_))) '())) - _%clauses42923%_)))) + _%clauses42748%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont4478344784%_ - (lambda (_%L43193%_ - _%L43195%_) - (_%lp42918%_ - _%rest43069%_ + (_%__kont4457844579%_ + (lambda (_%g4295043014%_ + _%g4295143016%_) + (_%lp42743%_ + _%rest42892%_ (cons (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_%g4321143214%_ - _%g4321243217%_) - (cons _%g4321143214%_ - _%g4321243217%_)) + (foldr (lambda (_%g4303243035%_ + _%g4303343038%_) + (cons _%g4303243035%_ + _%g4303343038%_)) '() - _%L43193%_)) + _%g4295043014%_)) '())) - _%clauses42923%_))))) + _%clauses42748%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__match4487544876%_ - (lambda (_%e4312943153%_ + (let* ((_%__match4467044671%_ + (lambda (_%e4295242976%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd4313043157%_ - _%tl4313143160%_ - _%__splice4478544786%_ - _%target4313243163%_ - _%tl4313443166%_) - (letrec ((_%loop4313543169%_ - (lambda (_%hd4313343173%_ _%body4313943176%_) - (if (gx#stx-pair? _%hd4313343173%_) - (let ((_%e4313643179%_ - (gx#syntax-e _%hd4313343173%_))) - (let ((_%lp-tl4313843186%_ + _%hd4295342980%_ + _%tl4295442983%_ + _%__splice4458044581%_ + _%target4295542986%_ + _%tl4295742989%_) + (letrec ((_%loop4295842992%_ + (lambda (_%hd4295642996%_ _%body4296242999%_) + (if (gx#stx-pair? _%hd4295642996%_) + (let ((_%e4295943001%_ + (gx#syntax-e _%hd4295642996%_))) + (let ((_%lp-tl4296143008%_ (let () (declare (not safe)) - (##cdr _%e4313643179%_))) - (_%lp-hd4313743183%_ + (##cdr _%e4295943001%_))) + (_%lp-hd4296043005%_ (let () (declare (not safe)) - (##car _%e4313643179%_)))) - (_%loop4313543169%_ - _%lp-tl4313843186%_ - (cons _%lp-hd4313743183%_ - _%body4313943176%_)))) - (let ((_%body4314043189%_ - (reverse _%body4313943176%_))) - (let ((_%L43193%_ _%body4314043189%_) - (_%L43195%_ _%hd4313043157%_)) - (if (gx#underscore? _%L43195%_) - (_%__kont4478344784%_ - _%L43193%_ - _%L43195%_) + (##car _%e4295943001%_)))) + (_%loop4295842992%_ + _%lp-tl4296143008%_ + (cons _%lp-hd4296043005%_ + _%body4296242999%_)))) + (let ((_%body4296343011%_ + (reverse _%body4296242999%_))) + (let ((_%g4295043014%_ _%body4296343011%_) + (_%g4295143016%_ _%hd4295342980%_)) + (if (gx#underscore? _%g4295143016%_) + (_%__kont4457844579%_ + _%g4295043014%_ + _%g4295143016%_) (let () (declare (not safe)) - (_%g4307643146%_))))))))) - (_%loop4313543169%_ _%target4313243163%_ '())))) - (_%__match4486144862%_ - (lambda (_%e4311243227%_ - _%hd4311343231%_ - _%tl4311443234%_ - _%e4311543237%_ - _%hd4311643241%_ - _%tl4311743244%_ - _%__splice4478144782%_ - _%target4311843247%_ - _%tl4312043250%_) - (letrec ((_%loop4312143253%_ - (lambda (_%hd4311943257%_ _%body4312543260%_) - (if (gx#stx-pair? _%hd4311943257%_) - (let ((_%e4312243263%_ - (gx#syntax-e _%hd4311943257%_))) - (let ((_%lp-tl4312443270%_ + (_%g4289942969%_))))))))) + (_%loop4295842992%_ _%target4295542986%_ '())))) + (_%__match4465644657%_ + (lambda (_%e4293543048%_ + _%hd4293643052%_ + _%tl4293743055%_ + _%e4293843058%_ + _%hd4293943062%_ + _%tl4294043065%_ + _%__splice4457644577%_ + _%target4294143068%_ + _%tl4294343071%_) + (letrec ((_%loop4294443074%_ + (lambda (_%hd4294243078%_ _%body4294843081%_) + (if (gx#stx-pair? _%hd4294243078%_) + (let ((_%e4294543083%_ + (gx#syntax-e _%hd4294243078%_))) + (let ((_%lp-tl4294743090%_ (let () (declare (not safe)) - (##cdr _%e4312243263%_))) - (_%lp-hd4312343267%_ + (##cdr _%e4294543083%_))) + (_%lp-hd4294643087%_ (let () (declare (not safe)) - (##car _%e4312243263%_)))) - (_%loop4312143253%_ - _%lp-tl4312443270%_ - (cons _%lp-hd4312343267%_ - _%body4312543260%_)))) - (let ((_%body4312643273%_ - (reverse _%body4312543260%_))) - (let ((_%L43277%_ _%body4312643273%_) - (_%L43279%_ _%hd4311643241%_)) - (if (gx#identifier? _%L43279%_) - (_%__kont4477944780%_ - _%L43277%_ - _%L43279%_) - (_%__match4487544876%_ - _%e4311243227%_ - _%hd4311343231%_ - _%tl4311443234%_ - _%__splice4478144782%_ - _%target4311843247%_ - _%tl4312043250%_)))))))) - (_%loop4312143253%_ _%target4311843247%_ '())))) - (_%__match4483944840%_ - (lambda (_%e4309243311%_ - _%hd4309343315%_ - _%tl4309443318%_ - _%e4309543321%_ - _%hd4309643325%_ - _%tl4309743328%_ - _%e4309843331%_ - _%hd4309943335%_ - _%tl4310043338%_ - _%__splice4477744778%_ - _%target4310143341%_ - _%tl4310343344%_) - (letrec ((_%loop4310443347%_ - (lambda (_%hd4310243351%_ _%body4310843354%_) - (if (gx#stx-pair? _%hd4310243351%_) - (let ((_%e4310543357%_ - (gx#syntax-e _%hd4310243351%_))) - (let ((_%lp-tl4310743364%_ + (##car _%e4294543083%_)))) + (_%loop4294443074%_ + _%lp-tl4294743090%_ + (cons _%lp-hd4294643087%_ + _%body4294843081%_)))) + (let ((_%body4294943093%_ + (reverse _%body4294843081%_))) + (let ((_%g4293343096%_ _%body4294943093%_) + (_%g4293443098%_ _%hd4293943062%_)) + (if (gx#identifier? _%g4293443098%_) + (_%__kont4457444575%_ + _%g4293343096%_ + _%g4293443098%_) + (_%__match4467044671%_ + _%e4293543048%_ + _%hd4293643052%_ + _%tl4293743055%_ + _%__splice4457644577%_ + _%target4294143068%_ + _%tl4294343071%_)))))))) + (_%loop4294443074%_ _%target4294143068%_ '())))) + (_%__match4463444635%_ + (lambda (_%e4291543130%_ + _%hd4291643134%_ + _%tl4291743137%_ + _%e4291843140%_ + _%hd4291943144%_ + _%tl4292043147%_ + _%e4292143150%_ + _%hd4292243154%_ + _%tl4292343157%_ + _%__splice4457244573%_ + _%target4292443160%_ + _%tl4292643163%_) + (letrec ((_%loop4292743166%_ + (lambda (_%hd4292543170%_ _%body4293143173%_) + (if (gx#stx-pair? _%hd4292543170%_) + (let ((_%e4292843175%_ + (gx#syntax-e _%hd4292543170%_))) + (let ((_%lp-tl4293043182%_ (let () (declare (not safe)) - (##cdr _%e4310543357%_))) - (_%lp-hd4310643361%_ + (##cdr _%e4292843175%_))) + (_%lp-hd4292943179%_ (let () (declare (not safe)) - (##car _%e4310543357%_)))) - (_%loop4310443347%_ - _%lp-tl4310743364%_ - (cons _%lp-hd4310643361%_ - _%body4310843354%_)))) - (let ((_%body4310943367%_ - (reverse _%body4310843354%_))) - (let ((_%L43371%_ _%body4310943367%_) - (_%L43373%_ _%hd4309943335%_) - (_%L43374%_ _%hd4309643325%_)) - (if (gx#identifier? _%L43373%_) - (_%__kont4477544776%_ - _%L43371%_ - _%L43373%_ - _%L43374%_) - (_%__match4487544876%_ - _%e4309243311%_ - _%hd4309343315%_ - _%tl4309443318%_ - _%__splice4477744778%_ - _%target4310143341%_ - _%tl4310343344%_)))))))) - (_%loop4310443347%_ _%target4310143341%_ '()))))) + (##car _%e4292843175%_)))) + (_%loop4292743166%_ + _%lp-tl4293043182%_ + (cons _%lp-hd4292943179%_ + _%body4293143173%_)))) + (let ((_%body4293243185%_ + (reverse _%body4293143173%_))) + (let ((_%g4291243188%_ _%body4293243185%_) + (_%g4291343190%_ _%hd4292243154%_) + (_%g4291443191%_ _%hd4291943144%_)) + (if (gx#identifier? _%g4291343190%_) + (_%__kont4457044571%_ + _%g4291243188%_ + _%g4291343190%_ + _%g4291443191%_) + (_%__match4467044671%_ + _%e4291543130%_ + _%hd4291643134%_ + _%tl4291743137%_ + _%__splice4457244573%_ + _%target4292443160%_ + _%tl4292643163%_)))))))) + (_%loop4292743166%_ _%target4292443160%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx4477044771%_) - (let ((_%e4308043409%_ + _%__stx4456544566%_) + (let ((_%e4290343226%_ (gx#syntax-e - _%__stx4477044771%_))) - (let ((_%tl4308243416%_ + _%__stx4456544566%_))) + (let ((_%tl4290543233%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4308043409%_))) - (_%hd4308143413%_ - (let () (declare (not safe)) (##car _%e4308043409%_)))) - (if (gx#stx-pair? _%tl4308243416%_) - (let ((_%e4308343419%_ (gx#syntax-e _%tl4308243416%_))) - (let ((_%tl4308543426%_ + (##cdr _%e4290343226%_))) + (_%hd4290443230%_ + (let () (declare (not safe)) (##car _%e4290343226%_)))) + (if (gx#stx-pair? _%tl4290543233%_) + (let ((_%e4290643236%_ (gx#syntax-e _%tl4290543233%_))) + (let ((_%tl4290843243%_ (let () (declare (not safe)) - (##cdr _%e4308343419%_))) - (_%hd4308443423%_ + (##cdr _%e4290643236%_))) + (_%hd4290743240%_ (let () (declare (not safe)) - (##car _%e4308343419%_)))) - (if (gx#identifier? _%hd4308443423%_) + (##car _%e4290643236%_)))) + (if (gx#identifier? _%hd4290743240%_) (if (gx#free-identifier=? - |gerbil/core/more-sugar[1]#_g45052_| - _%hd4308443423%_) - (if (gx#stx-pair? _%tl4308543426%_) - (let ((_%e4308643429%_ - (gx#syntax-e _%tl4308543426%_))) - (let ((_%tl4308843436%_ + |gerbil/core/more-sugar[1]#_g44847_| + _%hd4290743240%_) + (if (gx#stx-pair? _%tl4290843243%_) + (let ((_%e4290943246%_ + (gx#syntax-e _%tl4290843243%_))) + (let ((_%tl4291143253%_ (let () (declare (not safe)) - (##cdr _%e4308643429%_))) - (_%hd4308743433%_ + (##cdr _%e4290943246%_))) + (_%hd4291043250%_ (let () (declare (not safe)) - (##car _%e4308643429%_)))) - (if (gx#stx-null? _%tl4308843436%_) - (_%__kont4477344774%_ - _%hd4308743433%_ - _%hd4308143413%_) + (##car _%e4290943246%_)))) + (if (gx#stx-null? _%tl4291143253%_) + (_%__kont4456844569%_ + _%hd4291043250%_ + _%hd4290443230%_) (if (gx#stx-pair? - _%hd4308143413%_) - (let ((_%e4309543321%_ + _%hd4290443230%_) + (let ((_%e4291843140%_ (gx#syntax-e - _%hd4308143413%_))) - (let ((_%tl4309743328%_ + _%hd4290443230%_))) + (let ((_%tl4292043147%_ (let () (declare (not safe)) - (##cdr _%e4309543321%_))) - (_%hd4309643325%_ + (##cdr _%e4291843140%_))) + (_%hd4291943144%_ (let () (declare (not safe)) - (##car _%e4309543321%_)))) + (##car _%e4291843140%_)))) (if (gx#stx-pair? - _%tl4309743328%_) - (let ((_%e4309843331%_ + _%tl4292043147%_) + (let ((_%e4292143150%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4309743328%_))) - (let ((_%tl4310043338%_ + (gx#syntax-e _%tl4292043147%_))) + (let ((_%tl4292343157%_ (let () (declare (not safe)) - (##cdr _%e4309843331%_))) - (_%hd4309943335%_ + (##cdr _%e4292143150%_))) + (_%hd4292243154%_ (let () (declare (not safe)) - (##car _%e4309843331%_)))) - (if (gx#stx-null? _%tl4310043338%_) - (if (gx#stx-pair/null? _%tl4308243416%_) - (let ((_%__splice4477744778%_ + (##car _%e4292143150%_)))) + (if (gx#stx-null? _%tl4292343157%_) + (if (gx#stx-pair/null? _%tl4290543233%_) + (let ((_%__splice4457244573%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4310343344%_ + (let ((_%tl4292643163%_ (let () (declare (not safe)) (##vector-ref - _%__splice4477744778%_ + _%__splice4457244573%_ '1))) - (_%target4310143341%_ + (_%target4292443160%_ (let () (declare (not safe)) (##vector-ref - _%__splice4477744778%_ + _%__splice4457244573%_ '0)))) - (if (gx#stx-null? _%tl4310343344%_) - (_%__match4483944840%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%e4309543321%_ - _%hd4309643325%_ - _%tl4309743328%_ - _%e4309843331%_ - _%hd4309943335%_ - _%tl4310043338%_ - _%__splice4477744778%_ - _%target4310143341%_ - _%tl4310343344%_) + (if (gx#stx-null? _%tl4292643163%_) + (_%__match4463444635%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%e4291843140%_ + _%hd4291943144%_ + _%tl4292043147%_ + _%e4292143150%_ + _%hd4292243154%_ + _%tl4292343157%_ + _%__splice4457244573%_ + _%target4292443160%_ + _%tl4292643163%_) (let () (declare (not safe)) - (_%g4307643146%_))))) - (let () (declare (not safe)) (_%g4307643146%_))) - (if (gx#stx-pair/null? _%tl4308243416%_) - (let ((_%__splice4478544786%_ + (_%g4289942969%_))))) + (let () (declare (not safe)) (_%g4289942969%_))) + (if (gx#stx-pair/null? _%tl4290543233%_) + (let ((_%__splice4458044581%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4313443166%_ + (let ((_%tl4295742989%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478544786%_ + _%__splice4458044581%_ '1))) - (_%target4313243163%_ + (_%target4295542986%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478544786%_ + _%__splice4458044581%_ '0)))) - (if (gx#stx-null? _%tl4313443166%_) - (_%__match4487544876%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%__splice4478544786%_ - _%target4313243163%_ - _%tl4313443166%_) + (if (gx#stx-null? _%tl4295742989%_) + (_%__match4467044671%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%__splice4458044581%_ + _%target4295542986%_ + _%tl4295742989%_) (let () (declare (not safe)) - (_%g4307643146%_))))) + (_%g4289942969%_))))) (let () (declare (not safe)) - (_%g4307643146%_)))))) - (if (gx#stx-null? _%tl4309743328%_) - (if (gx#stx-pair/null? _%tl4308243416%_) - (let ((_%__splice4478144782%_ + (_%g4289942969%_)))))) + (if (gx#stx-null? _%tl4292043147%_) + (if (gx#stx-pair/null? _%tl4290543233%_) + (let ((_%__splice4457644577%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4312043250%_ + (let ((_%tl4294343071%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478144782%_ + _%__splice4457644577%_ '1))) - (_%target4311843247%_ + (_%target4294143068%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478144782%_ + _%__splice4457644577%_ '0)))) - (if (gx#stx-null? _%tl4312043250%_) - (_%__match4486144862%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%e4309543321%_ - _%hd4309643325%_ - _%tl4309743328%_ - _%__splice4478144782%_ - _%target4311843247%_ - _%tl4312043250%_) + (if (gx#stx-null? _%tl4294343071%_) + (_%__match4465644657%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%e4291843140%_ + _%hd4291943144%_ + _%tl4292043147%_ + _%__splice4457644577%_ + _%target4294143068%_ + _%tl4294343071%_) (let () (declare (not safe)) - (_%g4307643146%_))))) - (let () (declare (not safe)) (_%g4307643146%_))) - (if (gx#stx-pair/null? _%tl4308243416%_) - (let ((_%__splice4478544786%_ + (_%g4289942969%_))))) + (let () (declare (not safe)) (_%g4289942969%_))) + (if (gx#stx-pair/null? _%tl4290543233%_) + (let ((_%__splice4458044581%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4313443166%_ + (let ((_%tl4295742989%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478544786%_ + _%__splice4458044581%_ '1))) - (_%target4313243163%_ + (_%target4295542986%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478544786%_ + _%__splice4458044581%_ '0)))) - (if (gx#stx-null? _%tl4313443166%_) - (_%__match4487544876%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%__splice4478544786%_ - _%target4313243163%_ - _%tl4313443166%_) + (if (gx#stx-null? _%tl4295742989%_) + (_%__match4467044671%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%__splice4458044581%_ + _%target4295542986%_ + _%tl4295742989%_) (let () (declare (not safe)) - (_%g4307643146%_))))) - (let () (declare (not safe)) (_%g4307643146%_))))))) + (_%g4289942969%_))))) + (let () (declare (not safe)) (_%g4289942969%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl4308243416%_) - (let ((_%__splice4478544786%_ + _%tl4290543233%_) + (let ((_%__splice4458044581%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4313443166%_ + (let ((_%tl4295742989%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice4478544786%_ '1))) - (_%target4313243163%_ + (##vector-ref _%__splice4458044581%_ '1))) + (_%target4295542986%_ (let () (declare (not safe)) - (##vector-ref _%__splice4478544786%_ '0)))) - (if (gx#stx-null? _%tl4313443166%_) - (_%__match4487544876%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%__splice4478544786%_ - _%target4313243163%_ - _%tl4313443166%_) - (let () (declare (not safe)) (_%g4307643146%_))))) - (let () (declare (not safe)) (_%g4307643146%_))))))) + (##vector-ref _%__splice4458044581%_ '0)))) + (if (gx#stx-null? _%tl4295742989%_) + (_%__match4467044671%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%__splice4458044581%_ + _%target4295542986%_ + _%tl4295742989%_) + (let () (declare (not safe)) (_%g4289942969%_))))) + (let () (declare (not safe)) (_%g4289942969%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4308143413%_) - (let ((_%e4309543321%_ + (if (gx#stx-pair? _%hd4290443230%_) + (let ((_%e4291843140%_ (gx#syntax-e - _%hd4308143413%_))) - (let ((_%tl4309743328%_ + _%hd4290443230%_))) + (let ((_%tl4292043147%_ (let () (declare (not safe)) - (##cdr _%e4309543321%_))) - (_%hd4309643325%_ + (##cdr _%e4291843140%_))) + (_%hd4291943144%_ (let () (declare (not safe)) - (##car _%e4309543321%_)))) + (##car _%e4291843140%_)))) (if (gx#stx-pair? - _%tl4309743328%_) - (let ((_%e4309843331%_ + _%tl4292043147%_) + (let ((_%e4292143150%_ (gx#syntax-e - _%tl4309743328%_))) - (let ((_%tl4310043338%_ + _%tl4292043147%_))) + (let ((_%tl4292343157%_ (let () (declare (not safe)) - (##cdr _%e4309843331%_))) - (_%hd4309943335%_ + (##cdr _%e4292143150%_))) + (_%hd4292243154%_ (let () (declare (not safe)) - (##car _%e4309843331%_)))) + (##car _%e4292143150%_)))) (if (gx#stx-null? - _%tl4310043338%_) + _%tl4292343157%_) (if (gx#stx-pair/null? - _%tl4308243416%_) - (let ((_%__splice4477744778%_ + _%tl4290543233%_) + (let ((_%__splice4457244573%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4310343344%_ + (let ((_%tl4292643163%_ (let () (declare (not safe)) - (##vector-ref _%__splice4477744778%_ '1))) - (_%target4310143341%_ + (##vector-ref _%__splice4457244573%_ '1))) + (_%target4292443160%_ (let () (declare (not safe)) - (##vector-ref _%__splice4477744778%_ '0)))) - (if (gx#stx-null? _%tl4310343344%_) - (_%__match4483944840%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%e4309543321%_ - _%hd4309643325%_ - _%tl4309743328%_ - _%e4309843331%_ - _%hd4309943335%_ - _%tl4310043338%_ - _%__splice4477744778%_ - _%target4310143341%_ - _%tl4310343344%_) + (##vector-ref _%__splice4457244573%_ '0)))) + (if (gx#stx-null? _%tl4292643163%_) + (_%__match4463444635%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%e4291843140%_ + _%hd4291943144%_ + _%tl4292043147%_ + _%e4292143150%_ + _%hd4292243154%_ + _%tl4292343157%_ + _%__splice4457244573%_ + _%target4292443160%_ + _%tl4292643163%_) (let () (declare (not safe)) - (_%g4307643146%_))))) - (let () (declare (not safe)) (_%g4307643146%_))) - (if (gx#stx-pair/null? _%tl4308243416%_) - (let ((_%__splice4478544786%_ + (_%g4289942969%_))))) + (let () (declare (not safe)) (_%g4289942969%_))) + (if (gx#stx-pair/null? _%tl4290543233%_) + (let ((_%__splice4458044581%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4313443166%_ + (let ((_%tl4295742989%_ (let () (declare (not safe)) - (##vector-ref _%__splice4478544786%_ '1))) - (_%target4313243163%_ + (##vector-ref _%__splice4458044581%_ '1))) + (_%target4295542986%_ (let () (declare (not safe)) - (##vector-ref _%__splice4478544786%_ '0)))) - (if (gx#stx-null? _%tl4313443166%_) - (_%__match4487544876%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%__splice4478544786%_ - _%target4313243163%_ - _%tl4313443166%_) + (##vector-ref _%__splice4458044581%_ '0)))) + (if (gx#stx-null? _%tl4295742989%_) + (_%__match4467044671%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%__splice4458044581%_ + _%target4295542986%_ + _%tl4295742989%_) (let () (declare (not safe)) - (_%g4307643146%_))))) - (let () (declare (not safe)) (_%g4307643146%_)))))) + (_%g4289942969%_))))) + (let () (declare (not safe)) (_%g4289942969%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl4309743328%_) + _%tl4292043147%_) (if (gx#stx-pair/null? - _%tl4308243416%_) - (let ((_%__splice4478144782%_ + _%tl4290543233%_) + (let ((_%__splice4457644577%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4312043250%_ + (let ((_%tl4294343071%_ (let () (declare (not safe)) - (##vector-ref _%__splice4478144782%_ '1))) - (_%target4311843247%_ + (##vector-ref _%__splice4457644577%_ '1))) + (_%target4294143068%_ (let () (declare (not safe)) - (##vector-ref _%__splice4478144782%_ '0)))) - (if (gx#stx-null? _%tl4312043250%_) - (_%__match4486144862%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%e4309543321%_ - _%hd4309643325%_ - _%tl4309743328%_ - _%__splice4478144782%_ - _%target4311843247%_ - _%tl4312043250%_) - (let () (declare (not safe)) (_%g4307643146%_))))) - (let () (declare (not safe)) (_%g4307643146%_))) - (if (gx#stx-pair/null? _%tl4308243416%_) - (let ((_%__splice4478544786%_ + (##vector-ref _%__splice4457644577%_ '0)))) + (if (gx#stx-null? _%tl4294343071%_) + (_%__match4465644657%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%e4291843140%_ + _%hd4291943144%_ + _%tl4292043147%_ + _%__splice4457644577%_ + _%target4294143068%_ + _%tl4294343071%_) + (let () (declare (not safe)) (_%g4289942969%_))))) + (let () (declare (not safe)) (_%g4289942969%_))) + (if (gx#stx-pair/null? _%tl4290543233%_) + (let ((_%__splice4458044581%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4313443166%_ + (let ((_%tl4295742989%_ (let () (declare (not safe)) - (##vector-ref _%__splice4478544786%_ '1))) - (_%target4313243163%_ + (##vector-ref _%__splice4458044581%_ '1))) + (_%target4295542986%_ (let () (declare (not safe)) - (##vector-ref _%__splice4478544786%_ '0)))) - (if (gx#stx-null? _%tl4313443166%_) - (_%__match4487544876%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%__splice4478544786%_ - _%target4313243163%_ - _%tl4313443166%_) - (let () (declare (not safe)) (_%g4307643146%_))))) - (let () (declare (not safe)) (_%g4307643146%_))))))) + (##vector-ref _%__splice4458044581%_ '0)))) + (if (gx#stx-null? _%tl4295742989%_) + (_%__match4467044671%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%__splice4458044581%_ + _%target4295542986%_ + _%tl4295742989%_) + (let () (declare (not safe)) (_%g4289942969%_))))) + (let () (declare (not safe)) (_%g4289942969%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl4308243416%_) - (let ((_%__splice4478544786%_ + _%tl4290543233%_) + (let ((_%__splice4458044581%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4313443166%_ + (let ((_%tl4295742989%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478544786%_ + _%__splice4458044581%_ '1))) - (_%target4313243163%_ + (_%target4295542986%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478544786%_ + _%__splice4458044581%_ '0)))) (if (gx#stx-null? - _%tl4313443166%_) - (_%__match4487544876%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%__splice4478544786%_ - _%target4313243163%_ - _%tl4313443166%_) + _%tl4295742989%_) + (_%__match4467044671%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%__splice4458044581%_ + _%target4295542986%_ + _%tl4295742989%_) (let () (declare (not safe)) - (_%g4307643146%_))))) + (_%g4289942969%_))))) (let () (declare (not safe)) - (_%g4307643146%_))))) - (if (gx#stx-pair? _%hd4308143413%_) - (let ((_%e4309543321%_ - (gx#syntax-e _%hd4308143413%_))) - (let ((_%tl4309743328%_ + (_%g4289942969%_))))) + (if (gx#stx-pair? _%hd4290443230%_) + (let ((_%e4291843140%_ + (gx#syntax-e _%hd4290443230%_))) + (let ((_%tl4292043147%_ (let () (declare (not safe)) - (##cdr _%e4309543321%_))) - (_%hd4309643325%_ + (##cdr _%e4291843140%_))) + (_%hd4291943144%_ (let () (declare (not safe)) - (##car _%e4309543321%_)))) - (if (gx#stx-pair? _%tl4309743328%_) - (let ((_%e4309843331%_ + (##car _%e4291843140%_)))) + (if (gx#stx-pair? _%tl4292043147%_) + (let ((_%e4292143150%_ (gx#syntax-e - _%tl4309743328%_))) - (let ((_%tl4310043338%_ + _%tl4292043147%_))) + (let ((_%tl4292343157%_ (let () (declare (not safe)) - (##cdr _%e4309843331%_))) - (_%hd4309943335%_ + (##cdr _%e4292143150%_))) + (_%hd4292243154%_ (let () (declare (not safe)) - (##car _%e4309843331%_)))) + (##car _%e4292143150%_)))) (if (gx#stx-null? - _%tl4310043338%_) + _%tl4292343157%_) (if (gx#stx-pair/null? - _%tl4308243416%_) - (let ((_%__splice4477744778%_ + _%tl4290543233%_) + (let ((_%__splice4457244573%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4310343344%_ + (let ((_%tl4292643163%_ (let () (declare (not safe)) - (##vector-ref _%__splice4477744778%_ '1))) - (_%target4310143341%_ + (##vector-ref _%__splice4457244573%_ '1))) + (_%target4292443160%_ (let () (declare (not safe)) - (##vector-ref _%__splice4477744778%_ '0)))) - (if (gx#stx-null? _%tl4310343344%_) - (_%__match4483944840%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%e4309543321%_ - _%hd4309643325%_ - _%tl4309743328%_ - _%e4309843331%_ - _%hd4309943335%_ - _%tl4310043338%_ - _%__splice4477744778%_ - _%target4310143341%_ - _%tl4310343344%_) - (let () (declare (not safe)) (_%g4307643146%_))))) - (let () (declare (not safe)) (_%g4307643146%_))) - (if (gx#stx-pair/null? _%tl4308243416%_) - (let ((_%__splice4478544786%_ + (##vector-ref _%__splice4457244573%_ '0)))) + (if (gx#stx-null? _%tl4292643163%_) + (_%__match4463444635%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%e4291843140%_ + _%hd4291943144%_ + _%tl4292043147%_ + _%e4292143150%_ + _%hd4292243154%_ + _%tl4292343157%_ + _%__splice4457244573%_ + _%target4292443160%_ + _%tl4292643163%_) + (let () (declare (not safe)) (_%g4289942969%_))))) + (let () (declare (not safe)) (_%g4289942969%_))) + (if (gx#stx-pair/null? _%tl4290543233%_) + (let ((_%__splice4458044581%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4313443166%_ + (let ((_%tl4295742989%_ (let () (declare (not safe)) - (##vector-ref _%__splice4478544786%_ '1))) - (_%target4313243163%_ + (##vector-ref _%__splice4458044581%_ '1))) + (_%target4295542986%_ (let () (declare (not safe)) - (##vector-ref _%__splice4478544786%_ '0)))) - (if (gx#stx-null? _%tl4313443166%_) - (_%__match4487544876%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%__splice4478544786%_ - _%target4313243163%_ - _%tl4313443166%_) - (let () (declare (not safe)) (_%g4307643146%_))))) - (let () (declare (not safe)) (_%g4307643146%_)))))) + (##vector-ref _%__splice4458044581%_ '0)))) + (if (gx#stx-null? _%tl4295742989%_) + (_%__match4467044671%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%__splice4458044581%_ + _%target4295542986%_ + _%tl4295742989%_) + (let () (declare (not safe)) (_%g4289942969%_))))) + (let () (declare (not safe)) (_%g4289942969%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl4309743328%_) + _%tl4292043147%_) (if (gx#stx-pair/null? - _%tl4308243416%_) - (let ((_%__splice4478144782%_ + _%tl4290543233%_) + (let ((_%__splice4457644577%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4312043250%_ + (let ((_%tl4294343071%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice4478144782%_ '1))) - (_%target4311843247%_ + (##vector-ref _%__splice4457644577%_ '1))) + (_%target4294143068%_ (let () (declare (not safe)) - (##vector-ref _%__splice4478144782%_ '0)))) - (if (gx#stx-null? _%tl4312043250%_) - (_%__match4486144862%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%e4309543321%_ - _%hd4309643325%_ - _%tl4309743328%_ - _%__splice4478144782%_ - _%target4311843247%_ - _%tl4312043250%_) - (let () (declare (not safe)) (_%g4307643146%_))))) - (let () (declare (not safe)) (_%g4307643146%_))) + (##vector-ref _%__splice4457644577%_ '0)))) + (if (gx#stx-null? _%tl4294343071%_) + (_%__match4465644657%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%e4291843140%_ + _%hd4291943144%_ + _%tl4292043147%_ + _%__splice4457644577%_ + _%target4294143068%_ + _%tl4294343071%_) + (let () (declare (not safe)) (_%g4289942969%_))))) + (let () (declare (not safe)) (_%g4289942969%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl4308243416%_) - (let ((_%__splice4478544786%_ + _%tl4290543233%_) + (let ((_%__splice4458044581%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4313443166%_ + (let ((_%tl4295742989%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice4478544786%_ '1))) - (_%target4313243163%_ + (##vector-ref _%__splice4458044581%_ '1))) + (_%target4295542986%_ (let () (declare (not safe)) - (##vector-ref _%__splice4478544786%_ '0)))) - (if (gx#stx-null? _%tl4313443166%_) - (_%__match4487544876%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%__splice4478544786%_ - _%target4313243163%_ - _%tl4313443166%_) - (let () (declare (not safe)) (_%g4307643146%_))))) - (let () (declare (not safe)) (_%g4307643146%_))))))) + (##vector-ref _%__splice4458044581%_ '0)))) + (if (gx#stx-null? _%tl4295742989%_) + (_%__match4467044671%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%__splice4458044581%_ + _%target4295542986%_ + _%tl4295742989%_) + (let () (declare (not safe)) (_%g4289942969%_))))) + (let () (declare (not safe)) (_%g4289942969%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair/null? _%tl4308243416%_) - (let ((_%__splice4478544786%_ + (if (gx#stx-pair/null? _%tl4290543233%_) + (let ((_%__splice4458044581%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4313443166%_ + (let ((_%tl4295742989%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478544786%_ + _%__splice4458044581%_ '1))) - (_%target4313243163%_ + (_%target4295542986%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478544786%_ + _%__splice4458044581%_ '0)))) (if (gx#stx-null? - _%tl4313443166%_) - (_%__match4487544876%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%__splice4478544786%_ - _%target4313243163%_ - _%tl4313443166%_) + _%tl4295742989%_) + (_%__match4467044671%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%__splice4458044581%_ + _%target4295542986%_ + _%tl4295742989%_) (let () (declare (not safe)) - (_%g4307643146%_))))) + (_%g4289942969%_))))) (let () (declare (not safe)) - (_%g4307643146%_))))) - (if (gx#stx-pair? _%hd4308143413%_) - (let ((_%e4309543321%_ - (gx#syntax-e _%hd4308143413%_))) - (let ((_%tl4309743328%_ + (_%g4289942969%_))))) + (if (gx#stx-pair? _%hd4290443230%_) + (let ((_%e4291843140%_ + (gx#syntax-e _%hd4290443230%_))) + (let ((_%tl4292043147%_ (let () (declare (not safe)) - (##cdr _%e4309543321%_))) - (_%hd4309643325%_ + (##cdr _%e4291843140%_))) + (_%hd4291943144%_ (let () (declare (not safe)) - (##car _%e4309543321%_)))) - (if (gx#stx-pair? _%tl4309743328%_) - (let ((_%e4309843331%_ + (##car _%e4291843140%_)))) + (if (gx#stx-pair? _%tl4292043147%_) + (let ((_%e4292143150%_ (gx#syntax-e - _%tl4309743328%_))) - (let ((_%tl4310043338%_ + _%tl4292043147%_))) + (let ((_%tl4292343157%_ (let () (declare (not safe)) - (##cdr _%e4309843331%_))) - (_%hd4309943335%_ + (##cdr _%e4292143150%_))) + (_%hd4292243154%_ (let () (declare (not safe)) - (##car _%e4309843331%_)))) + (##car _%e4292143150%_)))) (if (gx#stx-null? - _%tl4310043338%_) + _%tl4292343157%_) (if (gx#stx-pair/null? - _%tl4308243416%_) - (let ((_%__splice4477744778%_ + _%tl4290543233%_) + (let ((_%__splice4457244573%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4310343344%_ + (let ((_%tl4292643163%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice4477744778%_ '1))) - (_%target4310143341%_ + (##vector-ref _%__splice4457244573%_ '1))) + (_%target4292443160%_ (let () (declare (not safe)) - (##vector-ref _%__splice4477744778%_ '0)))) - (if (gx#stx-null? _%tl4310343344%_) - (_%__match4483944840%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%e4309543321%_ - _%hd4309643325%_ - _%tl4309743328%_ - _%e4309843331%_ - _%hd4309943335%_ - _%tl4310043338%_ - _%__splice4477744778%_ - _%target4310143341%_ - _%tl4310343344%_) - (let () (declare (not safe)) (_%g4307643146%_))))) - (let () (declare (not safe)) (_%g4307643146%_))) + (##vector-ref _%__splice4457244573%_ '0)))) + (if (gx#stx-null? _%tl4292643163%_) + (_%__match4463444635%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%e4291843140%_ + _%hd4291943144%_ + _%tl4292043147%_ + _%e4292143150%_ + _%hd4292243154%_ + _%tl4292343157%_ + _%__splice4457244573%_ + _%target4292443160%_ + _%tl4292643163%_) + (let () (declare (not safe)) (_%g4289942969%_))))) + (let () (declare (not safe)) (_%g4289942969%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl4308243416%_) - (let ((_%__splice4478544786%_ + _%tl4290543233%_) + (let ((_%__splice4458044581%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4313443166%_ + (let ((_%tl4295742989%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice4478544786%_ '1))) - (_%target4313243163%_ + (##vector-ref _%__splice4458044581%_ '1))) + (_%target4295542986%_ (let () (declare (not safe)) - (##vector-ref _%__splice4478544786%_ '0)))) - (if (gx#stx-null? _%tl4313443166%_) - (_%__match4487544876%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%__splice4478544786%_ - _%target4313243163%_ - _%tl4313443166%_) - (let () (declare (not safe)) (_%g4307643146%_))))) - (let () (declare (not safe)) (_%g4307643146%_)))))) + (##vector-ref _%__splice4458044581%_ '0)))) + (if (gx#stx-null? _%tl4295742989%_) + (_%__match4467044671%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%__splice4458044581%_ + _%target4295542986%_ + _%tl4295742989%_) + (let () (declare (not safe)) (_%g4289942969%_))))) + (let () (declare (not safe)) (_%g4289942969%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? _%tl4309743328%_) + (if (gx#stx-null? _%tl4292043147%_) (if (gx#stx-pair/null? - _%tl4308243416%_) - (let ((_%__splice4478144782%_ + _%tl4290543233%_) + (let ((_%__splice4457644577%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4312043250%_ + (let ((_%tl4294343071%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478144782%_ + _%__splice4457644577%_ '1))) - (_%target4311843247%_ + (_%target4294143068%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478144782%_ + _%__splice4457644577%_ '0)))) (if (gx#stx-null? - _%tl4312043250%_) - (_%__match4486144862%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%e4309543321%_ - _%hd4309643325%_ - _%tl4309743328%_ - _%__splice4478144782%_ - _%target4311843247%_ - _%tl4312043250%_) + _%tl4294343071%_) + (_%__match4465644657%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%e4291843140%_ + _%hd4291943144%_ + _%tl4292043147%_ + _%__splice4457644577%_ + _%target4294143068%_ + _%tl4294343071%_) (let () (declare (not safe)) - (_%g4307643146%_))))) + (_%g4289942969%_))))) (let () (declare (not safe)) - (_%g4307643146%_))) + (_%g4289942969%_))) (if (gx#stx-pair/null? - _%tl4308243416%_) - (let ((_%__splice4478544786%_ + _%tl4290543233%_) + (let ((_%__splice4458044581%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4313443166%_ + (let ((_%tl4295742989%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478544786%_ + _%__splice4458044581%_ '1))) - (_%target4313243163%_ + (_%target4295542986%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478544786%_ + _%__splice4458044581%_ '0)))) (if (gx#stx-null? - _%tl4313443166%_) - (_%__match4487544876%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%__splice4478544786%_ - _%target4313243163%_ - _%tl4313443166%_) + _%tl4295742989%_) + (_%__match4467044671%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%__splice4458044581%_ + _%target4295542986%_ + _%tl4295742989%_) (let () (declare (not safe)) - (_%g4307643146%_))))) + (_%g4289942969%_))))) (let () (declare (not safe)) - (_%g4307643146%_))))))) - (if (gx#stx-pair/null? _%tl4308243416%_) - (let ((_%__splice4478544786%_ + (_%g4289942969%_))))))) + (if (gx#stx-pair/null? _%tl4290543233%_) + (let ((_%__splice4458044581%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4313443166%_ + (let ((_%tl4295742989%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478544786%_ + _%__splice4458044581%_ '1))) - (_%target4313243163%_ + (_%target4295542986%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478544786%_ + _%__splice4458044581%_ '0)))) - (if (gx#stx-null? _%tl4313443166%_) - (_%__match4487544876%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%__splice4478544786%_ - _%target4313243163%_ - _%tl4313443166%_) + (if (gx#stx-null? _%tl4295742989%_) + (_%__match4467044671%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%__splice4458044581%_ + _%target4295542986%_ + _%tl4295742989%_) (let () (declare (not safe)) - (_%g4307643146%_))))) + (_%g4289942969%_))))) (let () (declare (not safe)) - (_%g4307643146%_))))))) - (if (gx#stx-pair? _%hd4308143413%_) - (let ((_%e4309543321%_ - (gx#syntax-e _%hd4308143413%_))) - (let ((_%tl4309743328%_ + (_%g4289942969%_))))))) + (if (gx#stx-pair? _%hd4290443230%_) + (let ((_%e4291843140%_ + (gx#syntax-e _%hd4290443230%_))) + (let ((_%tl4292043147%_ (let () (declare (not safe)) - (##cdr _%e4309543321%_))) - (_%hd4309643325%_ + (##cdr _%e4291843140%_))) + (_%hd4291943144%_ (let () (declare (not safe)) - (##car _%e4309543321%_)))) - (if (gx#stx-pair? _%tl4309743328%_) - (let ((_%e4309843331%_ - (gx#syntax-e _%tl4309743328%_))) - (let ((_%tl4310043338%_ + (##car _%e4291843140%_)))) + (if (gx#stx-pair? _%tl4292043147%_) + (let ((_%e4292143150%_ + (gx#syntax-e _%tl4292043147%_))) + (let ((_%tl4292343157%_ (let () (declare (not safe)) - (##cdr _%e4309843331%_))) - (_%hd4309943335%_ + (##cdr _%e4292143150%_))) + (_%hd4292243154%_ (let () (declare (not safe)) - (##car _%e4309843331%_)))) - (if (gx#stx-null? _%tl4310043338%_) + (##car _%e4292143150%_)))) + (if (gx#stx-null? _%tl4292343157%_) (if (gx#stx-pair/null? - _%tl4308243416%_) - (let ((_%__splice4477744778%_ + _%tl4290543233%_) + (let ((_%__splice4457244573%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4310343344%_ + (let ((_%tl4292643163%_ (let () (declare (not safe)) (##vector-ref - _%__splice4477744778%_ + _%__splice4457244573%_ '1))) - (_%target4310143341%_ + (_%target4292443160%_ (let () (declare (not safe)) (##vector-ref - _%__splice4477744778%_ + _%__splice4457244573%_ '0)))) (if (gx#stx-null? - _%tl4310343344%_) - (_%__match4483944840%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%e4309543321%_ - _%hd4309643325%_ - _%tl4309743328%_ - _%e4309843331%_ - _%hd4309943335%_ - _%tl4310043338%_ - _%__splice4477744778%_ - _%target4310143341%_ - _%tl4310343344%_) + _%tl4292643163%_) + (_%__match4463444635%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%e4291843140%_ + _%hd4291943144%_ + _%tl4292043147%_ + _%e4292143150%_ + _%hd4292243154%_ + _%tl4292343157%_ + _%__splice4457244573%_ + _%target4292443160%_ + _%tl4292643163%_) (let () (declare (not safe)) - (_%g4307643146%_))))) + (_%g4289942969%_))))) (let () (declare (not safe)) - (_%g4307643146%_))) + (_%g4289942969%_))) (if (gx#stx-pair/null? - _%tl4308243416%_) - (let ((_%__splice4478544786%_ + _%tl4290543233%_) + (let ((_%__splice4458044581%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4313443166%_ + (let ((_%tl4295742989%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478544786%_ + _%__splice4458044581%_ '1))) - (_%target4313243163%_ + (_%target4295542986%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478544786%_ + _%__splice4458044581%_ '0)))) (if (gx#stx-null? - _%tl4313443166%_) - (_%__match4487544876%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%__splice4478544786%_ - _%target4313243163%_ - _%tl4313443166%_) + _%tl4295742989%_) + (_%__match4467044671%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%__splice4458044581%_ + _%target4295542986%_ + _%tl4295742989%_) (let () (declare (not safe)) - (_%g4307643146%_))))) + (_%g4289942969%_))))) (let () (declare (not safe)) - (_%g4307643146%_)))))) - (if (gx#stx-null? _%tl4309743328%_) - (if (gx#stx-pair/null? _%tl4308243416%_) - (let ((_%__splice4478144782%_ + (_%g4289942969%_)))))) + (if (gx#stx-null? _%tl4292043147%_) + (if (gx#stx-pair/null? _%tl4290543233%_) + (let ((_%__splice4457644577%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4312043250%_ + (let ((_%tl4294343071%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478144782%_ + _%__splice4457644577%_ '1))) - (_%target4311843247%_ + (_%target4294143068%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478144782%_ + _%__splice4457644577%_ '0)))) (if (gx#stx-null? - _%tl4312043250%_) - (_%__match4486144862%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%e4309543321%_ - _%hd4309643325%_ - _%tl4309743328%_ - _%__splice4478144782%_ - _%target4311843247%_ - _%tl4312043250%_) + _%tl4294343071%_) + (_%__match4465644657%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%e4291843140%_ + _%hd4291943144%_ + _%tl4292043147%_ + _%__splice4457644577%_ + _%target4294143068%_ + _%tl4294343071%_) (let () (declare (not safe)) - (_%g4307643146%_))))) + (_%g4289942969%_))))) (let () (declare (not safe)) - (_%g4307643146%_))) - (if (gx#stx-pair/null? _%tl4308243416%_) - (let ((_%__splice4478544786%_ + (_%g4289942969%_))) + (if (gx#stx-pair/null? _%tl4290543233%_) + (let ((_%__splice4458044581%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4313443166%_ + (let ((_%tl4295742989%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478544786%_ + _%__splice4458044581%_ '1))) - (_%target4313243163%_ + (_%target4295542986%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478544786%_ + _%__splice4458044581%_ '0)))) (if (gx#stx-null? - _%tl4313443166%_) - (_%__match4487544876%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%__splice4478544786%_ - _%target4313243163%_ - _%tl4313443166%_) + _%tl4295742989%_) + (_%__match4467044671%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%__splice4458044581%_ + _%target4295542986%_ + _%tl4295742989%_) (let () (declare (not safe)) - (_%g4307643146%_))))) + (_%g4289942969%_))))) (let () (declare (not safe)) - (_%g4307643146%_))))))) - (if (gx#stx-pair/null? _%tl4308243416%_) - (let ((_%__splice4478544786%_ + (_%g4289942969%_))))))) + (if (gx#stx-pair/null? _%tl4290543233%_) + (let ((_%__splice4458044581%_ (gx#syntax-split-splice->vector - _%tl4308243416%_ + _%tl4290543233%_ '0))) - (let ((_%tl4313443166%_ + (let ((_%tl4295742989%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478544786%_ + _%__splice4458044581%_ '1))) - (_%target4313243163%_ + (_%target4295542986%_ (let () (declare (not safe)) (##vector-ref - _%__splice4478544786%_ + _%__splice4458044581%_ '0)))) - (if (gx#stx-null? _%tl4313443166%_) - (_%__match4487544876%_ - _%e4308043409%_ - _%hd4308143413%_ - _%tl4308243416%_ - _%__splice4478544786%_ - _%target4313243163%_ - _%tl4313443166%_) + (if (gx#stx-null? _%tl4295742989%_) + (_%__match4467044671%_ + _%e4290343226%_ + _%hd4290443230%_ + _%tl4290543233%_ + _%__splice4458044581%_ + _%target4295542986%_ + _%tl4295742989%_) (let () (declare (not safe)) - (_%g4307643146%_))))) + (_%g4289942969%_))))) (let () (declare (not safe)) - (_%g4307643146%_))))))) - (let () (declare (not safe)) (_%g4307643146%_))))))))) + (_%g4289942969%_))))))) + (let () (declare (not safe)) (_%g4289942969%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest4292442932%_) - (let ((_%hd4292943464%_ + (if (pair? _%rest4274942757%_) + (let ((_%hd4275443281%_ (let () (declare (not safe)) - (##car _%rest4292442932%_))) - (_%tl4293043467%_ + (##car _%rest4274942757%_))) + (_%tl4275543284%_ (let () (declare (not safe)) - (##cdr _%rest4292442932%_)))) - (let* ((_%hd43470%_ - _%hd4292943464%_) - (_%rest43473%_ - _%tl4293043467%_)) - (_%K4292843460%_ - _%rest43473%_ - _%hd43470%_))) - (_%else4292643065%_))))) - _%g4289242903%_)))) - (_%g4289043476%_ (gx#genident)))))) - (let* ((_%g4226542285%_ - (lambda (_%g4226642281%_) + (##cdr _%rest4274942757%_)))) + (let* ((_%hd43287%_ + _%hd4275443281%_) + (_%rest43290%_ + _%tl4275543284%_)) + (_%K4275343277%_ + _%rest43290%_ + _%hd43287%_))) + (_%else4275142888%_))))) + _%g4271742728%_)))) + (_%g4271543293%_ (gx#genident)))))) + (let* ((_%g4210042120%_ + (lambda (_%g4210142116%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4226642281%_))) - (_%g4226442883%_ - (lambda (_%g4226642289%_) - (if (gx#stx-pair? _%g4226642289%_) - (let ((_%e4226842292%_ (gx#syntax-e _%g4226642289%_))) - (let ((_%hd4226942296%_ + _%g4210142116%_))) + (_%g4209942708%_ + (lambda (_%g4210142124%_) + (if (gx#stx-pair? _%g4210142124%_) + (let ((_%e4210342127%_ (gx#syntax-e _%g4210142124%_))) + (let ((_%hd4210442131%_ (let () (declare (not safe)) - (##car _%e4226842292%_))) - (_%tl4227042299%_ + (##car _%e4210342127%_))) + (_%tl4210542134%_ (let () (declare (not safe)) - (##cdr _%e4226842292%_)))) - (if (gx#stx-pair/null? _%tl4227042299%_) - (let ((_g45053_ + (##cdr _%e4210342127%_)))) + (if (gx#stx-pair/null? _%tl4210542134%_) + (let ((_g44848_ (gx#syntax-split-splice - _%tl4227042299%_ + _%tl4210542134%_ '0))) (begin - (let ((_g45054_ + (let ((_g44849_ (let () (declare (not safe)) - (if (##values? _g45053_) - (##values-length _g45053_) + (if (##values? _g44848_) + (##values-length _g44848_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g45054_ 2))) + (##fx= _g44849_ 2))) (error "Context expects 2 values" - _g45054_))) - (let ((_%target4227142302%_ + _g44849_))) + (let ((_%target4210642137%_ (let () (declare (not safe)) - (##values-ref _g45053_ 0))) - (_%tl4227342305%_ + (##values-ref _g44848_ 0))) + (_%tl4210842140%_ (let () (declare (not safe)) - (##values-ref _g45053_ 1)))) - (if (gx#stx-null? _%tl4227342305%_) - (letrec ((_%loop4227442308%_ - (lambda (_%hd4227242312%_ - _%e4227842315%_) + (##values-ref _g44848_ 1)))) + (if (gx#stx-null? _%tl4210842140%_) + (letrec ((_%loop4210942143%_ + (lambda (_%hd4210742147%_ + _%e4211342150%_) (if (gx#stx-pair? - _%hd4227242312%_) - (let ((_%e4227542318%_ + _%hd4210742147%_) + (let ((_%e4211042152%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd4227242312%_))) - (let ((_%lp-hd4227642322%_ + (gx#syntax-e _%hd4210742147%_))) + (let ((_%lp-hd4211142156%_ (let () (declare (not safe)) - (##car _%e4227542318%_))) - (_%lp-tl4227742325%_ + (##car _%e4211042152%_))) + (_%lp-tl4211242159%_ (let () (declare (not safe)) - (##cdr _%e4227542318%_)))) - (_%loop4227442308%_ - _%lp-tl4227742325%_ - (cons _%lp-hd4227642322%_ _%e4227842315%_)))) - (let ((_%e4227942328%_ (reverse _%e4227842315%_))) - ((lambda (_%L42332%_) - (let _%lp42349%_ ((_%rest42352%_ - (foldr (lambda (_%g4287442877%_ - _%g4287542880%_) - (cons _%g4287442877%_ - _%g4287542880%_)) + (##cdr _%e4211042152%_)))) + (_%loop4210942143%_ + _%lp-tl4211242159%_ + (cons _%lp-hd4211142156%_ _%e4211342150%_)))) + (let ((_%e4211442162%_ (reverse _%e4211342150%_))) + ((lambda (_%g4210242165%_) + (let _%lp42182%_ ((_%rest42185%_ + (foldr (lambda (_%g4269942702%_ + _%g4270042705%_) + (cons _%g4269942702%_ + _%g4270042705%_)) '() - _%L42332%_)) - (_%body42354%_ '())) - (let* ((_%__stx4499644997%_ _%rest42352%_) - (_%g4235742369%_ + _%g4210242165%_)) + (_%body42187%_ '())) + (let* ((_%__stx4479144792%_ _%rest42185%_) + (_%g4219042202%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4499644997%_)))) - (let ((_%__kont4499945000%_ - (lambda (_%L42397%_ _%L42399%_) - (let* ((_%__stx4494444945%_ _%L42399%_) - (_%g4241642449%_ + _%__stx4479144792%_)))) + (let ((_%__kont4479444795%_ + (lambda (_%g4219242230%_ _%g4219342232%_) + (let* ((_%__stx4473944740%_ + _%g4219342232%_) + (_%g4224942282%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4494444945%_)))) - (let ((_%__kont4494744948%_ - (lambda (_%L42844%_) - (if (gx#stx-null? _%L42397%_) - (_%generate-fini42262%_ - (_%generate-thunk42260%_ - _%body42354%_) - (foldr (lambda (_%g4285842861%_ + _%__stx4473944740%_)))) + (let ((_%__kont4474244743%_ + (lambda (_%g4225142669%_) + (if (gx#stx-null? + _%g4219242230%_) + (_%generate-fini42097%_ + (_%generate-thunk42095%_ + _%body42187%_) + (foldr (lambda (_%g4268342686%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4285942864%_) - (cons _%g4285842861%_ _%g4285942864%_)) + _%g4268442689%_) + (cons _%g4268342686%_ _%g4268442689%_)) '() - _%L42844%_)) + _%g4225142669%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"Misplaced finally clause" - _%stx42257%_)))) - (_%__kont4495144952%_ - (lambda (_%L42507%_) - (let _%lp42524%_ ((_%rest42527%_ + _%stx42092%_)))) + (_%__kont4474644747%_ + (lambda (_%g4226442338%_) + (let _%lp42355%_ ((_%rest42358%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L42397%_) - (_%handlers42529%_ - (cons (foldr (lambda (_%g4278842791%_ - _%g4278942794%_) - (cons _%g4278842791%_ - _%g4278942794%_)) + _%g4219242230%_) + (_%handlers42360%_ + (cons (foldr (lambda (_%g4261542618%_ + _%g4261642621%_) + (cons _%g4261542618%_ + _%g4261642621%_)) '() - _%L42507%_) + _%g4226442338%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__stx4487844879%_ - _%rest42527%_) - (_%g4253342573%_ + (let* ((_%__stx4467344674%_ + _%rest42358%_) + (_%g4236442404%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4487844879%_)))) - (let ((_%__kont4488144882%_ - (lambda (_%L42758%_ + _%__stx4467344674%_)))) + (let ((_%__kont4467644677%_ + (lambda (_%g4236642585%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L42760%_) - (_%lp42524%_ - _%L42758%_ - (cons (foldr (lambda (_%g4277642779%_ _%g4277742782%_) - (cons _%g4277642779%_ _%g4277742782%_)) + _%g4236742587%_) + (_%lp42355%_ + _%g4236642585%_ + (cons (foldr (lambda (_%g4260342606%_ _%g4260442609%_) + (cons _%g4260342606%_ _%g4260442609%_)) '() - _%L42760%_) - _%handlers42529%_)))) - (_%__kont4488544886%_ - (lambda (_%L42641%_) - (let* ((_%g4266242670%_ - (lambda (_%g4266342666%_) + _%g4236742587%_) + _%handlers42360%_)))) + (_%__kont4468044681%_ + (lambda (_%g4238342470%_) + (let* ((_%g4249142499%_ + (lambda (_%g4249242495%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4266342666%_))) - (_%g4266142697%_ - (lambda (_%g4266342674%_) - ((lambda (_%L42677%_) - (_%generate-fini42262%_ + _%g4249242495%_))) + (_%g4249042526%_ + (lambda (_%g4249242503%_) + ((lambda (_%g4249342506%_) + (_%generate-fini42097%_ (cons (gx#datum->syntax '#f 'lambda) - (cons '() (cons _%L42677%_ '()))) - (foldr (lambda (_%g4268842691%_ - _%g4268942694%_) - (cons _%g4268842691%_ - _%g4268942694%_)) + (cons '() (cons _%g4249342506%_ '()))) + (foldr (lambda (_%g4251742520%_ + _%g4251842523%_) + (cons _%g4251742520%_ + _%g4251842523%_)) '() - _%L42641%_))) - _%g4266342674%_)))) - (_%g4266142697%_ - (_%generate-catch42263%_ - _%handlers42529%_ - (_%generate-thunk42260%_ _%body42354%_)))))) - (_%__kont4488944890%_ + _%g4238342470%_))) + _%g4249242503%_)))) + (_%g4249042526%_ + (_%generate-catch42098%_ + _%handlers42360%_ + (_%generate-thunk42095%_ _%body42187%_)))))) + (_%__kont4468444685%_ (lambda () - (_%generate-catch42263%_ - _%handlers42529%_ - (_%generate-thunk42260%_ _%body42354%_))))) + (_%generate-catch42098%_ + _%handlers42360%_ + (_%generate-thunk42095%_ _%body42187%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%g4253242584%_ + (let* ((_%g4236342415%_ (lambda () (if (gx#stx-null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%__stx4487844879%_) - (_%__kont4488944890%_) - (let () (declare (not safe)) (_%g4253342573%_))))) - (_%__match4493944940%_ - (lambda (_%e4255342591%_ - _%hd4255442595%_ - _%tl4255542598%_ - _%e4255642601%_ - _%hd4255742605%_ - _%tl4255842608%_ - _%__splice4488744888%_ - _%target4255942611%_ - _%tl4256142614%_) - (letrec ((_%loop4256242617%_ - (lambda (_%hd4256042621%_ _%fini4256642624%_) - (if (gx#stx-pair? _%hd4256042621%_) - (let ((_%e4256342627%_ - (gx#syntax-e _%hd4256042621%_))) - (let ((_%lp-tl4256542634%_ + _%__stx4467344674%_) + (_%__kont4468444685%_) + (let () (declare (not safe)) (_%g4236442404%_))))) + (_%__match4473444735%_ + (lambda (_%e4238442422%_ + _%hd4238542426%_ + _%tl4238642429%_ + _%e4238742432%_ + _%hd4238842436%_ + _%tl4238942439%_ + _%__splice4468244683%_ + _%target4239042442%_ + _%tl4239242445%_) + (letrec ((_%loop4239342448%_ + (lambda (_%hd4239142452%_ _%fini4239742455%_) + (if (gx#stx-pair? _%hd4239142452%_) + (let ((_%e4239442457%_ + (gx#syntax-e _%hd4239142452%_))) + (let ((_%lp-tl4239642464%_ (let () (declare (not safe)) - (##cdr _%e4256342627%_))) - (_%lp-hd4256442631%_ + (##cdr _%e4239442457%_))) + (_%lp-hd4239542461%_ (let () (declare (not safe)) - (##car _%e4256342627%_)))) - (_%loop4256242617%_ - _%lp-tl4256542634%_ - (cons _%lp-hd4256442631%_ - _%fini4256642624%_)))) - (let ((_%fini4256742637%_ - (reverse _%fini4256642624%_))) - (if (gx#stx-null? _%tl4255542598%_) - (_%__kont4488544886%_ - _%fini4256742637%_) + (##car _%e4239442457%_)))) + (_%loop4239342448%_ + _%lp-tl4239642464%_ + (cons _%lp-hd4239542461%_ + _%fini4239742455%_)))) + (let ((_%fini4239842467%_ + (reverse _%fini4239742455%_))) + (if (gx#stx-null? _%tl4238642429%_) + (_%__kont4468044681%_ + _%fini4239842467%_) (let () (declare (not safe)) - (_%g4253342573%_)))))))) - (_%loop4256242617%_ _%target4255942611%_ '())))) - (_%__match4491544916%_ - (lambda (_%e4253742708%_ - _%hd4253842712%_ - _%tl4253942715%_ - _%e4254042718%_ - _%hd4254142722%_ - _%tl4254242725%_ - _%__splice4488344884%_ - _%target4254342728%_ - _%tl4254542731%_) - (letrec ((_%loop4254642734%_ - (lambda (_%hd4254442738%_ - _%handler4255042741%_) - (if (gx#stx-pair? _%hd4254442738%_) - (let ((_%e4254742744%_ - (gx#syntax-e _%hd4254442738%_))) - (let ((_%lp-tl4254942751%_ + (_%g4236442404%_)))))))) + (_%loop4239342448%_ _%target4239042442%_ '())))) + (_%__match4471044711%_ + (lambda (_%e4236842537%_ + _%hd4236942541%_ + _%tl4237042544%_ + _%e4237142547%_ + _%hd4237242551%_ + _%tl4237342554%_ + _%__splice4467844679%_ + _%target4237442557%_ + _%tl4237642560%_) + (letrec ((_%loop4237742563%_ + (lambda (_%hd4237542567%_ + _%handler4238142570%_) + (if (gx#stx-pair? _%hd4237542567%_) + (let ((_%e4237842572%_ + (gx#syntax-e _%hd4237542567%_))) + (let ((_%lp-tl4238042579%_ (let () (declare (not safe)) - (##cdr _%e4254742744%_))) - (_%lp-hd4254842748%_ + (##cdr _%e4237842572%_))) + (_%lp-hd4237942576%_ (let () (declare (not safe)) - (##car _%e4254742744%_)))) - (_%loop4254642734%_ - _%lp-tl4254942751%_ - (cons _%lp-hd4254842748%_ - _%handler4255042741%_)))) - (let ((_%handler4255142754%_ - (reverse _%handler4255042741%_))) - (_%__kont4488144882%_ - _%tl4253942715%_ - _%handler4255142754%_)))))) - (_%loop4254642734%_ _%target4254342728%_ '()))))) - (if (gx#stx-pair? _%__stx4487844879%_) - (let ((_%e4253742708%_ (gx#syntax-e _%__stx4487844879%_))) - (let ((_%tl4253942715%_ + (##car _%e4237842572%_)))) + (_%loop4237742563%_ + _%lp-tl4238042579%_ + (cons _%lp-hd4237942576%_ + _%handler4238142570%_)))) + (let ((_%handler4238242582%_ + (reverse _%handler4238142570%_))) + (_%__kont4467644677%_ + _%tl4237042544%_ + _%handler4238242582%_)))))) + (_%loop4237742563%_ _%target4237442557%_ '()))))) + (if (gx#stx-pair? _%__stx4467344674%_) + (let ((_%e4236842537%_ (gx#syntax-e _%__stx4467344674%_))) + (let ((_%tl4237042544%_ (let () (declare (not safe)) - (##cdr _%e4253742708%_))) - (_%hd4253842712%_ + (##cdr _%e4236842537%_))) + (_%hd4236942541%_ (let () (declare (not safe)) - (##car _%e4253742708%_)))) - (if (gx#stx-pair? _%hd4253842712%_) - (let ((_%e4254042718%_ - (gx#syntax-e _%hd4253842712%_))) - (let ((_%tl4254242725%_ + (##car _%e4236842537%_)))) + (if (gx#stx-pair? _%hd4236942541%_) + (let ((_%e4237142547%_ + (gx#syntax-e _%hd4236942541%_))) + (let ((_%tl4237342554%_ (let () (declare (not safe)) - (##cdr _%e4254042718%_))) - (_%hd4254142722%_ + (##cdr _%e4237142547%_))) + (_%hd4237242551%_ (let () (declare (not safe)) - (##car _%e4254042718%_)))) - (if (gx#identifier? _%hd4254142722%_) + (##car _%e4237142547%_)))) + (if (gx#identifier? _%hd4237242551%_) (if (gx#free-identifier=? - |gerbil/core/more-sugar[1]#_g45055_| - _%hd4254142722%_) - (if (gx#stx-pair/null? _%tl4254242725%_) - (let ((_%__splice4488344884%_ + |gerbil/core/more-sugar[1]#_g44850_| + _%hd4237242551%_) + (if (gx#stx-pair/null? _%tl4237342554%_) + (let ((_%__splice4467844679%_ (gx#syntax-split-splice->vector - _%tl4254242725%_ + _%tl4237342554%_ '0))) - (let ((_%tl4254542731%_ + (let ((_%tl4237642560%_ (let () (declare (not safe)) (##vector-ref - _%__splice4488344884%_ + _%__splice4467844679%_ '1))) - (_%target4254342728%_ + (_%target4237442557%_ (let () (declare (not safe)) (##vector-ref - _%__splice4488344884%_ + _%__splice4467844679%_ '0)))) (if (gx#stx-null? - _%tl4254542731%_) - (_%__match4491544916%_ - _%e4253742708%_ - _%hd4253842712%_ - _%tl4253942715%_ - _%e4254042718%_ - _%hd4254142722%_ - _%tl4254242725%_ - _%__splice4488344884%_ - _%target4254342728%_ - _%tl4254542731%_) + _%tl4237642560%_) + (_%__match4471044711%_ + _%e4236842537%_ + _%hd4236942541%_ + _%tl4237042544%_ + _%e4237142547%_ + _%hd4237242551%_ + _%tl4237342554%_ + _%__splice4467844679%_ + _%target4237442557%_ + _%tl4237642560%_) (let () (declare (not safe)) - (_%g4253342573%_))))) + (_%g4236442404%_))))) (let () (declare (not safe)) - (_%g4253342573%_))) + (_%g4236442404%_))) (if (gx#free-identifier=? - |gerbil/core/more-sugar[1]#_g45056_| - _%hd4254142722%_) + |gerbil/core/more-sugar[1]#_g44851_| + _%hd4237242551%_) (if (gx#stx-pair/null? - _%tl4254242725%_) - (let ((_%__splice4488744888%_ + _%tl4237342554%_) + (let ((_%__splice4468244683%_ (gx#syntax-split-splice->vector - _%tl4254242725%_ + _%tl4237342554%_ '0))) - (let ((_%tl4256142614%_ + (let ((_%tl4239242445%_ (let () (declare (not safe)) (##vector-ref - _%__splice4488744888%_ + _%__splice4468244683%_ '1))) - (_%target4255942611%_ + (_%target4239042442%_ (let () (declare (not safe)) (##vector-ref - _%__splice4488744888%_ + _%__splice4468244683%_ '0)))) (if (gx#stx-null? - _%tl4256142614%_) - (_%__match4493944940%_ - _%e4253742708%_ - _%hd4253842712%_ - _%tl4253942715%_ - _%e4254042718%_ - _%hd4254142722%_ - _%tl4254242725%_ - _%__splice4488744888%_ - _%target4255942611%_ - _%tl4256142614%_) + _%tl4239242445%_) + (_%__match4473444735%_ + _%e4236842537%_ + _%hd4236942541%_ + _%tl4237042544%_ + _%e4237142547%_ + _%hd4237242551%_ + _%tl4237342554%_ + _%__splice4468244683%_ + _%target4239042442%_ + _%tl4239242445%_) (let () (declare (not safe)) - (_%g4253342573%_))))) + (_%g4236442404%_))))) (let () (declare (not safe)) - (_%g4253342573%_))) + (_%g4236442404%_))) (let () (declare (not safe)) - (_%g4253342573%_)))) + (_%g4236442404%_)))) (let () (declare (not safe)) - (_%g4253342573%_))))) - (let () (declare (not safe)) (_%g4253342573%_))))) - (let () (declare (not safe)) (_%g4253242584%_))))))))) + (_%g4236442404%_))))) + (let () (declare (not safe)) (_%g4236442404%_))))) + (let () (declare (not safe)) (_%g4236342415%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont4495544956%_ + (_%__kont4475044751%_ (lambda () - (_%lp42349%_ - _%L42397%_ - (cons _%L42399%_ - _%body42354%_))))) - (let* ((_%__match4499344994%_ - (lambda (_%e4243242467%_ - _%hd4243342471%_ - _%tl4243442474%_ - _%__splice4495344954%_ - _%target4243542477%_ - _%tl4243742480%_) - (letrec ((_%loop4243842483%_ - (lambda (_%hd4243642487%_ + (_%lp42182%_ + _%g4219242230%_ + (cons _%g4219342232%_ + _%body42187%_))))) + (let* ((_%__match4478844789%_ + (lambda (_%e4226542300%_ + _%hd4226642304%_ + _%tl4226742307%_ + _%__splice4474844749%_ + _%target4226842310%_ + _%tl4227042313%_) + (letrec ((_%loop4227142316%_ + (lambda (_%hd4226942320%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%handler4244242490%_) - (if (gx#stx-pair? _%hd4243642487%_) - (let ((_%e4243942493%_ - (gx#syntax-e _%hd4243642487%_))) - (let ((_%lp-tl4244142500%_ + _%handler4227542323%_) + (if (gx#stx-pair? _%hd4226942320%_) + (let ((_%e4227242325%_ + (gx#syntax-e _%hd4226942320%_))) + (let ((_%lp-tl4227442332%_ (let () (declare (not safe)) - (##cdr _%e4243942493%_))) - (_%lp-hd4244042497%_ + (##cdr _%e4227242325%_))) + (_%lp-hd4227342329%_ (let () (declare (not safe)) - (##car _%e4243942493%_)))) - (_%loop4243842483%_ - _%lp-tl4244142500%_ - (cons _%lp-hd4244042497%_ - _%handler4244242490%_)))) - (let ((_%handler4244342503%_ - (reverse _%handler4244242490%_))) - (_%__kont4495144952%_ _%handler4244342503%_)))))) + (##car _%e4227242325%_)))) + (_%loop4227142316%_ + _%lp-tl4227442332%_ + (cons _%lp-hd4227342329%_ + _%handler4227542323%_)))) + (let ((_%handler4227642335%_ + (reverse _%handler4227542323%_))) + (_%__kont4474644747%_ _%handler4227642335%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4243842483%_ - _%target4243542477%_ + (_%loop4227142316%_ + _%target4226842310%_ '())))) - (_%__match4497544976%_ - (lambda (_%e4241942804%_ - _%hd4242042808%_ - _%tl4242142811%_ - _%__splice4494944950%_ - _%target4242242814%_ - _%tl4242442817%_) - (letrec ((_%loop4242542820%_ - (lambda (_%hd4242342824%_ + (_%__match4477044771%_ + (lambda (_%e4225242631%_ + _%hd4225342635%_ + _%tl4225442638%_ + _%__splice4474444745%_ + _%target4225542641%_ + _%tl4225742644%_) + (letrec ((_%loop4225842647%_ + (lambda (_%hd4225642651%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%fini4242942827%_) - (if (gx#stx-pair? _%hd4242342824%_) - (let ((_%e4242642830%_ - (gx#syntax-e _%hd4242342824%_))) - (let ((_%lp-tl4242842837%_ + _%fini4226242654%_) + (if (gx#stx-pair? _%hd4225642651%_) + (let ((_%e4225942656%_ + (gx#syntax-e _%hd4225642651%_))) + (let ((_%lp-tl4226142663%_ (let () (declare (not safe)) - (##cdr _%e4242642830%_))) - (_%lp-hd4242742834%_ + (##cdr _%e4225942656%_))) + (_%lp-hd4226042660%_ (let () (declare (not safe)) - (##car _%e4242642830%_)))) - (_%loop4242542820%_ - _%lp-tl4242842837%_ - (cons _%lp-hd4242742834%_ _%fini4242942827%_)))) - (let ((_%fini4243042840%_ - (reverse _%fini4242942827%_))) - (_%__kont4494744948%_ _%fini4243042840%_)))))) + (##car _%e4225942656%_)))) + (_%loop4225842647%_ + _%lp-tl4226142663%_ + (cons _%lp-hd4226042660%_ _%fini4226242654%_)))) + (let ((_%fini4226342666%_ + (reverse _%fini4226242654%_))) + (_%__kont4474244743%_ _%fini4226342666%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4242542820%_ - _%target4242242814%_ + (_%loop4225842647%_ + _%target4225542641%_ '()))))) (if (gx#stx-pair? - _%__stx4494444945%_) - (let ((_%e4241942804%_ + _%__stx4473944740%_) + (let ((_%e4225242631%_ (gx#syntax-e - _%__stx4494444945%_))) - (let ((_%tl4242142811%_ + _%__stx4473944740%_))) + (let ((_%tl4225442638%_ (let () (declare (not safe)) - (##cdr _%e4241942804%_))) - (_%hd4242042808%_ + (##cdr _%e4225242631%_))) + (_%hd4225342635%_ (let () (declare (not safe)) - (##car _%e4241942804%_)))) + (##car _%e4225242631%_)))) (if (gx#identifier? - _%hd4242042808%_) + _%hd4225342635%_) (if (gx#free-identifier=? - |gerbil/core/more-sugar[1]#_g45057_| - _%hd4242042808%_) + |gerbil/core/more-sugar[1]#_g44852_| + _%hd4225342635%_) (if (gx#stx-pair/null? - _%tl4242142811%_) - (let ((_%__splice4494944950%_ + _%tl4225442638%_) + (let ((_%__splice4474444745%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice->vector - _%tl4242142811%_ + _%tl4225442638%_ '0))) - (let ((_%tl4242442817%_ + (let ((_%tl4225742644%_ (let () (declare (not safe)) - (##vector-ref _%__splice4494944950%_ '1))) - (_%target4242242814%_ + (##vector-ref _%__splice4474444745%_ '1))) + (_%target4225542641%_ (let () (declare (not safe)) - (##vector-ref _%__splice4494944950%_ '0)))) - (if (gx#stx-null? _%tl4242442817%_) - (_%__match4497544976%_ - _%e4241942804%_ - _%hd4242042808%_ - _%tl4242142811%_ - _%__splice4494944950%_ - _%target4242242814%_ - _%tl4242442817%_) - (_%__kont4495544956%_)))) - (_%__kont4495544956%_)) + (##vector-ref _%__splice4474444745%_ '0)))) + (if (gx#stx-null? _%tl4225742644%_) + (_%__match4477044771%_ + _%e4225242631%_ + _%hd4225342635%_ + _%tl4225442638%_ + _%__splice4474444745%_ + _%target4225542641%_ + _%tl4225742644%_) + (_%__kont4475044751%_)))) + (_%__kont4475044751%_)) (if (gx#free-identifier=? - |gerbil/core/more-sugar[1]#_g45058_| - _%hd4242042808%_) - (if (gx#stx-pair/null? _%tl4242142811%_) - (let ((_%__splice4495344954%_ + |gerbil/core/more-sugar[1]#_g44853_| + _%hd4225342635%_) + (if (gx#stx-pair/null? _%tl4225442638%_) + (let ((_%__splice4474844749%_ (gx#syntax-split-splice->vector - _%tl4242142811%_ + _%tl4225442638%_ '0))) - (let ((_%tl4243742480%_ + (let ((_%tl4227042313%_ (let () (declare (not safe)) - (##vector-ref _%__splice4495344954%_ '1))) - (_%target4243542477%_ + (##vector-ref _%__splice4474844749%_ '1))) + (_%target4226842310%_ (let () (declare (not safe)) (##vector-ref - _%__splice4495344954%_ + _%__splice4474844749%_ '0)))) - (if (gx#stx-null? _%tl4243742480%_) - (_%__match4499344994%_ - _%e4241942804%_ - _%hd4242042808%_ - _%tl4242142811%_ - _%__splice4495344954%_ - _%target4243542477%_ - _%tl4243742480%_) - (_%__kont4495544956%_)))) - (_%__kont4495544956%_)) - (_%__kont4495544956%_))) - (_%__kont4495544956%_)))) + (if (gx#stx-null? _%tl4227042313%_) + (_%__match4478844789%_ + _%e4225242631%_ + _%hd4225342635%_ + _%tl4225442638%_ + _%__splice4474844749%_ + _%target4226842310%_ + _%tl4227042313%_) + (_%__kont4475044751%_)))) + (_%__kont4475044751%_)) + (_%__kont4475044751%_))) + (_%__kont4475044751%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont4495544956%_))))))) - (_%__kont4500145002%_ + (_%__kont4475044751%_))))))) + (_%__kont4479644797%_ (lambda () - (cons 'begin (reverse _%body42354%_))))) - (let ((_%g4235642380%_ + (cons 'begin (reverse _%body42187%_))))) + (let ((_%g4218942213%_ (lambda () - (if (gx#stx-null? _%__stx4499644997%_) - (_%__kont4500145002%_) + (if (gx#stx-null? _%__stx4479144792%_) + (_%__kont4479644797%_) (let () (declare (not safe)) - (_%g4235742369%_)))))) - (if (gx#stx-pair? _%__stx4499644997%_) - (let ((_%e4236142387%_ - (gx#syntax-e _%__stx4499644997%_))) - (let ((_%tl4236342394%_ + (_%g4219042202%_)))))) + (if (gx#stx-pair? _%__stx4479144792%_) + (let ((_%e4219442220%_ + (gx#syntax-e _%__stx4479144792%_))) + (let ((_%tl4219642227%_ (let () (declare (not safe)) - (##cdr _%e4236142387%_))) - (_%hd4236242391%_ + (##cdr _%e4219442220%_))) + (_%hd4219542224%_ (let () (declare (not safe)) - (##car _%e4236142387%_)))) - (_%__kont4499945000%_ - _%tl4236342394%_ - _%hd4236242391%_))) + (##car _%e4219442220%_)))) + (_%__kont4479444795%_ + _%tl4219642227%_ + _%hd4219542224%_))) (let () (declare (not safe)) - (_%g4235642380%_)))))))) - _%e4227942328%_)))))) + (_%g4218942213%_)))))))) + _%e4211442162%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4227442308%_ - _%target4227142302%_ + (_%loop4210942143%_ + _%target4210642137%_ '())) - (_%g4226542285%_ _%g4226642289%_))))) - (_%g4226542285%_ _%g4226642289%_)))) - (_%g4226542285%_ _%g4226642289%_))))) - (_%g4226442883%_ _%stx42257%_))))) + (_%g4210042120%_ _%g4210142124%_))))) + (_%g4210042120%_ _%g4210142124%_)))) + (_%g4210042120%_ _%g4210142124%_))))) + (_%g4209942708%_ _%stx42092%_))))) (define |gerbil/core/more-sugar[:0:]#hash| - (lambda (_%$stx43695%_) - (let* ((_%g4369943728%_ - (lambda (_%g4370043724%_) + (lambda (_%$stx43508%_) + (let* ((_%g4351243541%_ + (lambda (_%g4351343537%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4370043724%_))) - (_%g4369843828%_ - (lambda (_%g4370043732%_) - (if (gx#stx-pair? _%g4370043732%_) - (let ((_%e4370343735%_ (gx#syntax-e _%g4370043732%_))) - (let ((_%hd4370443739%_ + _%g4351343537%_))) + (_%g4351143637%_ + (lambda (_%g4351343545%_) + (if (gx#stx-pair? _%g4351343545%_) + (let ((_%e4351643548%_ (gx#syntax-e _%g4351343545%_))) + (let ((_%hd4351743552%_ (let () (declare (not safe)) - (##car _%e4370343735%_))) - (_%tl4370543742%_ + (##car _%e4351643548%_))) + (_%tl4351843555%_ (let () (declare (not safe)) - (##cdr _%e4370343735%_)))) - (if (gx#stx-pair/null? _%tl4370543742%_) - (let ((_g45059_ + (##cdr _%e4351643548%_)))) + (if (gx#stx-pair/null? _%tl4351843555%_) + (let ((_g44854_ (gx#syntax-split-splice - _%tl4370543742%_ + _%tl4351843555%_ '0))) (begin - (let ((_g45060_ + (let ((_g44855_ (let () (declare (not safe)) - (if (##values? _g45059_) - (##values-length _g45059_) + (if (##values? _g44854_) + (##values-length _g44854_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g45060_ 2))) + (##fx= _g44855_ 2))) (error "Context expects 2 values" - _g45060_))) - (let ((_%target4370643745%_ + _g44855_))) + (let ((_%target4351943558%_ (let () (declare (not safe)) - (##values-ref _g45059_ 0))) - (_%tl4370843748%_ + (##values-ref _g44854_ 0))) + (_%tl4352143561%_ (let () (declare (not safe)) - (##values-ref _g45059_ 1)))) - (if (gx#stx-null? _%tl4370843748%_) - (letrec ((_%loop4370943751%_ - (lambda (_%hd4370743755%_ - _%val4371343758%_ - _%key4371443760%_) + (##values-ref _g44854_ 1)))) + (if (gx#stx-null? _%tl4352143561%_) + (letrec ((_%loop4352243564%_ + (lambda (_%hd4352043568%_ + _%val4352643571%_ + _%key4352743572%_) (if (gx#stx-pair? - _%hd4370743755%_) - (let ((_%e4371043763%_ + _%hd4352043568%_) + (let ((_%e4352343574%_ (gx#syntax-e - _%hd4370743755%_))) - (let ((_%lp-hd4371143767%_ + _%hd4352043568%_))) + (let ((_%lp-hd4352443578%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e4371043763%_))) - (_%lp-tl4371243770%_ + (let () (declare (not safe)) (##car _%e4352343574%_))) + (_%lp-tl4352543581%_ (let () (declare (not safe)) - (##cdr _%e4371043763%_)))) - (if (gx#stx-pair? _%lp-hd4371143767%_) - (let ((_%e4371743773%_ - (gx#syntax-e _%lp-hd4371143767%_))) - (let ((_%hd4371843777%_ + (##cdr _%e4352343574%_)))) + (if (gx#stx-pair? _%lp-hd4352443578%_) + (let ((_%e4353043584%_ + (gx#syntax-e _%lp-hd4352443578%_))) + (let ((_%hd4353143588%_ (let () (declare (not safe)) - (##car _%e4371743773%_))) - (_%tl4371943780%_ + (##car _%e4353043584%_))) + (_%tl4353243591%_ (let () (declare (not safe)) - (##cdr _%e4371743773%_)))) - (if (gx#stx-pair? _%tl4371943780%_) - (let ((_%e4372043783%_ - (gx#syntax-e _%tl4371943780%_))) - (let ((_%hd4372143787%_ + (##cdr _%e4353043584%_)))) + (if (gx#stx-pair? _%tl4353243591%_) + (let ((_%e4353343594%_ + (gx#syntax-e _%tl4353243591%_))) + (let ((_%hd4353443598%_ (let () (declare (not safe)) - (##car _%e4372043783%_))) - (_%tl4372243790%_ + (##car _%e4353343594%_))) + (_%tl4353543601%_ (let () (declare (not safe)) - (##cdr _%e4372043783%_)))) - (if (gx#stx-null? _%tl4372243790%_) - (_%loop4370943751%_ - _%lp-tl4371243770%_ - (cons _%hd4372143787%_ - _%val4371343758%_) - (cons _%hd4371843777%_ - _%key4371443760%_)) - (_%g4369943728%_ _%g4370043732%_)))) - (_%g4369943728%_ _%g4370043732%_)))) - (_%g4369943728%_ _%g4370043732%_)))) - (let ((_%val4371543793%_ (reverse _%val4371343758%_)) - (_%key4371643796%_ (reverse _%key4371443760%_))) - ((lambda (_%L43799%_ _%L43801%_) + (##cdr _%e4353343594%_)))) + (if (gx#stx-null? _%tl4353543601%_) + (_%loop4352243564%_ + _%lp-tl4352543581%_ + (cons _%hd4353443598%_ + _%val4352643571%_) + (cons _%hd4353143588%_ + _%key4352743572%_)) + (_%g4351243541%_ _%g4351343545%_)))) + (_%g4351243541%_ _%g4351343545%_)))) + (_%g4351243541%_ _%g4351343545%_)))) + (let ((_%val4352843604%_ (reverse _%val4352643571%_)) + (_%key4352943606%_ (reverse _%key4352743572%_))) + ((lambda (_%g4351443608%_ _%g4351543610%_) (cons (gx#datum->syntax '#f '~hash-table) (cons (gx#datum->syntax '#f 'make-hash-table) (begin (gx#syntax-check-splice-targets - _%L43799%_ - _%L43801%_) - (foldr (lambda (_%g4381643820%_ - _%g4381743823%_ - _%g4381843825%_) - (cons (cons _%g4381743823%_ - (cons _%g4381643820%_ + _%g4351443608%_ + _%g4351543610%_) + (foldr (lambda (_%g4362543629%_ + _%g4362643632%_ + _%g4362743634%_) + (cons (cons _%g4362643632%_ + (cons _%g4362543629%_ '())) - _%g4381843825%_)) + _%g4362743634%_)) '() - _%L43799%_ - _%L43801%_))))) - _%val4371543793%_ - _%key4371643796%_)))))) + _%g4351443608%_ + _%g4351543610%_))))) + _%val4352843604%_ + _%key4352943606%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4370943751%_ - _%target4370643745%_ + (_%loop4352243564%_ + _%target4351943558%_ '() '())) - (_%g4369943728%_ _%g4370043732%_))))) - (_%g4369943728%_ _%g4370043732%_)))) - (_%g4369943728%_ _%g4370043732%_))))) - (_%g4369843828%_ _%$stx43695%_)))) + (_%g4351243541%_ _%g4351343545%_))))) + (_%g4351243541%_ _%g4351343545%_)))) + (_%g4351243541%_ _%g4351343545%_))))) + (_%g4351143637%_ _%$stx43508%_)))) (define |gerbil/core/more-sugar[:0:]#hash-eq| - (lambda (_%$stx43833%_) - (let* ((_%g4383743866%_ - (lambda (_%g4383843862%_) + (lambda (_%$stx43642%_) + (let* ((_%g4364643675%_ + (lambda (_%g4364743671%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4383843862%_))) - (_%g4383643966%_ - (lambda (_%g4383843870%_) - (if (gx#stx-pair? _%g4383843870%_) - (let ((_%e4384143873%_ (gx#syntax-e _%g4383843870%_))) - (let ((_%hd4384243877%_ + _%g4364743671%_))) + (_%g4364543771%_ + (lambda (_%g4364743679%_) + (if (gx#stx-pair? _%g4364743679%_) + (let ((_%e4365043682%_ (gx#syntax-e _%g4364743679%_))) + (let ((_%hd4365143686%_ (let () (declare (not safe)) - (##car _%e4384143873%_))) - (_%tl4384343880%_ + (##car _%e4365043682%_))) + (_%tl4365243689%_ (let () (declare (not safe)) - (##cdr _%e4384143873%_)))) - (if (gx#stx-pair/null? _%tl4384343880%_) - (let ((_g45061_ + (##cdr _%e4365043682%_)))) + (if (gx#stx-pair/null? _%tl4365243689%_) + (let ((_g44856_ (gx#syntax-split-splice - _%tl4384343880%_ + _%tl4365243689%_ '0))) (begin - (let ((_g45062_ + (let ((_g44857_ (let () (declare (not safe)) - (if (##values? _g45061_) - (##values-length _g45061_) + (if (##values? _g44856_) + (##values-length _g44856_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g45062_ 2))) + (##fx= _g44857_ 2))) (error "Context expects 2 values" - _g45062_))) - (let ((_%target4384443883%_ + _g44857_))) + (let ((_%target4365343692%_ (let () (declare (not safe)) - (##values-ref _g45061_ 0))) - (_%tl4384643886%_ + (##values-ref _g44856_ 0))) + (_%tl4365543695%_ (let () (declare (not safe)) - (##values-ref _g45061_ 1)))) - (if (gx#stx-null? _%tl4384643886%_) - (letrec ((_%loop4384743889%_ - (lambda (_%hd4384543893%_ - _%val4385143896%_ - _%key4385243898%_) + (##values-ref _g44856_ 1)))) + (if (gx#stx-null? _%tl4365543695%_) + (letrec ((_%loop4365643698%_ + (lambda (_%hd4365443702%_ + _%val4366043705%_ + _%key4366143706%_) (if (gx#stx-pair? - _%hd4384543893%_) - (let ((_%e4384843901%_ + _%hd4365443702%_) + (let ((_%e4365743708%_ (gx#syntax-e - _%hd4384543893%_))) - (let ((_%lp-hd4384943905%_ + _%hd4365443702%_))) + (let ((_%lp-hd4365843712%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e4384843901%_))) - (_%lp-tl4385043908%_ + (let () (declare (not safe)) (##car _%e4365743708%_))) + (_%lp-tl4365943715%_ (let () (declare (not safe)) - (##cdr _%e4384843901%_)))) - (if (gx#stx-pair? _%lp-hd4384943905%_) - (let ((_%e4385543911%_ - (gx#syntax-e _%lp-hd4384943905%_))) - (let ((_%hd4385643915%_ + (##cdr _%e4365743708%_)))) + (if (gx#stx-pair? _%lp-hd4365843712%_) + (let ((_%e4366443718%_ + (gx#syntax-e _%lp-hd4365843712%_))) + (let ((_%hd4366543722%_ (let () (declare (not safe)) - (##car _%e4385543911%_))) - (_%tl4385743918%_ + (##car _%e4366443718%_))) + (_%tl4366643725%_ (let () (declare (not safe)) - (##cdr _%e4385543911%_)))) - (if (gx#stx-pair? _%tl4385743918%_) - (let ((_%e4385843921%_ - (gx#syntax-e _%tl4385743918%_))) - (let ((_%hd4385943925%_ + (##cdr _%e4366443718%_)))) + (if (gx#stx-pair? _%tl4366643725%_) + (let ((_%e4366743728%_ + (gx#syntax-e _%tl4366643725%_))) + (let ((_%hd4366843732%_ (let () (declare (not safe)) - (##car _%e4385843921%_))) - (_%tl4386043928%_ + (##car _%e4366743728%_))) + (_%tl4366943735%_ (let () (declare (not safe)) - (##cdr _%e4385843921%_)))) - (if (gx#stx-null? _%tl4386043928%_) - (_%loop4384743889%_ - _%lp-tl4385043908%_ - (cons _%hd4385943925%_ - _%val4385143896%_) - (cons _%hd4385643915%_ - _%key4385243898%_)) - (_%g4383743866%_ _%g4383843870%_)))) - (_%g4383743866%_ _%g4383843870%_)))) - (_%g4383743866%_ _%g4383843870%_)))) - (let ((_%val4385343931%_ (reverse _%val4385143896%_)) - (_%key4385443934%_ (reverse _%key4385243898%_))) - ((lambda (_%L43937%_ _%L43939%_) + (##cdr _%e4366743728%_)))) + (if (gx#stx-null? _%tl4366943735%_) + (_%loop4365643698%_ + _%lp-tl4365943715%_ + (cons _%hd4366843732%_ + _%val4366043705%_) + (cons _%hd4366543722%_ + _%key4366143706%_)) + (_%g4364643675%_ _%g4364743679%_)))) + (_%g4364643675%_ _%g4364743679%_)))) + (_%g4364643675%_ _%g4364743679%_)))) + (let ((_%val4366243738%_ (reverse _%val4366043705%_)) + (_%key4366343740%_ (reverse _%key4366143706%_))) + ((lambda (_%g4364843742%_ _%g4364943744%_) (cons (gx#datum->syntax '#f '~hash-table) (cons (gx#datum->syntax '#f 'make-hash-table-eq) (begin (gx#syntax-check-splice-targets - _%L43937%_ - _%L43939%_) - (foldr (lambda (_%g4395443958%_ - _%g4395543961%_ - _%g4395643963%_) - (cons (cons _%g4395543961%_ - (cons _%g4395443958%_ + _%g4364843742%_ + _%g4364943744%_) + (foldr (lambda (_%g4375943763%_ + _%g4376043766%_ + _%g4376143768%_) + (cons (cons _%g4376043766%_ + (cons _%g4375943763%_ '())) - _%g4395643963%_)) + _%g4376143768%_)) '() - _%L43937%_ - _%L43939%_))))) - _%val4385343931%_ - _%key4385443934%_)))))) + _%g4364843742%_ + _%g4364943744%_))))) + _%val4366243738%_ + _%key4366343740%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4384743889%_ - _%target4384443883%_ + (_%loop4365643698%_ + _%target4365343692%_ '() '())) - (_%g4383743866%_ _%g4383843870%_))))) - (_%g4383743866%_ _%g4383843870%_)))) - (_%g4383743866%_ _%g4383843870%_))))) - (_%g4383643966%_ _%$stx43833%_)))) + (_%g4364643675%_ _%g4364743679%_))))) + (_%g4364643675%_ _%g4364743679%_)))) + (_%g4364643675%_ _%g4364743679%_))))) + (_%g4364543771%_ _%$stx43642%_)))) (define |gerbil/core/more-sugar[:0:]#hash-eqv| - (lambda (_%$stx43971%_) - (let* ((_%g4397544004%_ - (lambda (_%g4397644000%_) + (lambda (_%$stx43776%_) + (let* ((_%g4378043809%_ + (lambda (_%g4378143805%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4397644000%_))) - (_%g4397444104%_ - (lambda (_%g4397644008%_) - (if (gx#stx-pair? _%g4397644008%_) - (let ((_%e4397944011%_ (gx#syntax-e _%g4397644008%_))) - (let ((_%hd4398044015%_ + _%g4378143805%_))) + (_%g4377943905%_ + (lambda (_%g4378143813%_) + (if (gx#stx-pair? _%g4378143813%_) + (let ((_%e4378443816%_ (gx#syntax-e _%g4378143813%_))) + (let ((_%hd4378543820%_ (let () (declare (not safe)) - (##car _%e4397944011%_))) - (_%tl4398144018%_ + (##car _%e4378443816%_))) + (_%tl4378643823%_ (let () (declare (not safe)) - (##cdr _%e4397944011%_)))) - (if (gx#stx-pair/null? _%tl4398144018%_) - (let ((_g45063_ + (##cdr _%e4378443816%_)))) + (if (gx#stx-pair/null? _%tl4378643823%_) + (let ((_g44858_ (gx#syntax-split-splice - _%tl4398144018%_ + _%tl4378643823%_ '0))) (begin - (let ((_g45064_ + (let ((_g44859_ (let () (declare (not safe)) - (if (##values? _g45063_) - (##values-length _g45063_) + (if (##values? _g44858_) + (##values-length _g44858_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g45064_ 2))) + (##fx= _g44859_ 2))) (error "Context expects 2 values" - _g45064_))) - (let ((_%target4398244021%_ + _g44859_))) + (let ((_%target4378743826%_ (let () (declare (not safe)) - (##values-ref _g45063_ 0))) - (_%tl4398444024%_ + (##values-ref _g44858_ 0))) + (_%tl4378943829%_ (let () (declare (not safe)) - (##values-ref _g45063_ 1)))) - (if (gx#stx-null? _%tl4398444024%_) - (letrec ((_%loop4398544027%_ - (lambda (_%hd4398344031%_ - _%val4398944034%_ - _%key4399044036%_) + (##values-ref _g44858_ 1)))) + (if (gx#stx-null? _%tl4378943829%_) + (letrec ((_%loop4379043832%_ + (lambda (_%hd4378843836%_ + _%val4379443839%_ + _%key4379543840%_) (if (gx#stx-pair? - _%hd4398344031%_) - (let ((_%e4398644039%_ + _%hd4378843836%_) + (let ((_%e4379143842%_ (gx#syntax-e - _%hd4398344031%_))) - (let ((_%lp-hd4398744043%_ + _%hd4378843836%_))) + (let ((_%lp-hd4379243846%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e4398644039%_))) - (_%lp-tl4398844046%_ + (let () (declare (not safe)) (##car _%e4379143842%_))) + (_%lp-tl4379343849%_ (let () (declare (not safe)) - (##cdr _%e4398644039%_)))) - (if (gx#stx-pair? _%lp-hd4398744043%_) - (let ((_%e4399344049%_ - (gx#syntax-e _%lp-hd4398744043%_))) - (let ((_%hd4399444053%_ + (##cdr _%e4379143842%_)))) + (if (gx#stx-pair? _%lp-hd4379243846%_) + (let ((_%e4379843852%_ + (gx#syntax-e _%lp-hd4379243846%_))) + (let ((_%hd4379943856%_ (let () (declare (not safe)) - (##car _%e4399344049%_))) - (_%tl4399544056%_ + (##car _%e4379843852%_))) + (_%tl4380043859%_ (let () (declare (not safe)) - (##cdr _%e4399344049%_)))) - (if (gx#stx-pair? _%tl4399544056%_) - (let ((_%e4399644059%_ - (gx#syntax-e _%tl4399544056%_))) - (let ((_%hd4399744063%_ + (##cdr _%e4379843852%_)))) + (if (gx#stx-pair? _%tl4380043859%_) + (let ((_%e4380143862%_ + (gx#syntax-e _%tl4380043859%_))) + (let ((_%hd4380243866%_ (let () (declare (not safe)) - (##car _%e4399644059%_))) - (_%tl4399844066%_ + (##car _%e4380143862%_))) + (_%tl4380343869%_ (let () (declare (not safe)) - (##cdr _%e4399644059%_)))) - (if (gx#stx-null? _%tl4399844066%_) - (_%loop4398544027%_ - _%lp-tl4398844046%_ - (cons _%hd4399744063%_ - _%val4398944034%_) - (cons _%hd4399444053%_ - _%key4399044036%_)) - (_%g4397544004%_ _%g4397644008%_)))) - (_%g4397544004%_ _%g4397644008%_)))) - (_%g4397544004%_ _%g4397644008%_)))) - (let ((_%val4399144069%_ (reverse _%val4398944034%_)) - (_%key4399244072%_ (reverse _%key4399044036%_))) - ((lambda (_%L44075%_ _%L44077%_) + (##cdr _%e4380143862%_)))) + (if (gx#stx-null? _%tl4380343869%_) + (_%loop4379043832%_ + _%lp-tl4379343849%_ + (cons _%hd4380243866%_ + _%val4379443839%_) + (cons _%hd4379943856%_ + _%key4379543840%_)) + (_%g4378043809%_ _%g4378143813%_)))) + (_%g4378043809%_ _%g4378143813%_)))) + (_%g4378043809%_ _%g4378143813%_)))) + (let ((_%val4379643872%_ (reverse _%val4379443839%_)) + (_%key4379743874%_ (reverse _%key4379543840%_))) + ((lambda (_%g4378243876%_ _%g4378343878%_) (cons (gx#datum->syntax '#f '~hash-table) (cons (gx#datum->syntax '#f 'make-hash-table-eqv) (begin (gx#syntax-check-splice-targets - _%L44075%_ - _%L44077%_) - (foldr (lambda (_%g4409244096%_ - _%g4409344099%_ - _%g4409444101%_) - (cons (cons _%g4409344099%_ - (cons _%g4409244096%_ + _%g4378243876%_ + _%g4378343878%_) + (foldr (lambda (_%g4389343897%_ + _%g4389443900%_ + _%g4389543902%_) + (cons (cons _%g4389443900%_ + (cons _%g4389343897%_ '())) - _%g4409444101%_)) + _%g4389543902%_)) '() - _%L44075%_ - _%L44077%_))))) - _%val4399144069%_ - _%key4399244072%_)))))) + _%g4378243876%_ + _%g4378343878%_))))) + _%val4379643872%_ + _%key4379743874%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4398544027%_ - _%target4398244021%_ + (_%loop4379043832%_ + _%target4378743826%_ '() '())) - (_%g4397544004%_ _%g4397644008%_))))) - (_%g4397544004%_ _%g4397644008%_)))) - (_%g4397544004%_ _%g4397644008%_))))) - (_%g4397444104%_ _%$stx43971%_)))) + (_%g4378043809%_ _%g4378143813%_))))) + (_%g4378043809%_ _%g4378143813%_)))) + (_%g4378043809%_ _%g4378143813%_))))) + (_%g4377943905%_ _%$stx43776%_)))) (define |gerbil/core/more-sugar[:0:]#~hash-table| - (lambda (_%stx44109%_) - (let* ((_%g4411244136%_ - (lambda (_%g4411344132%_) + (lambda (_%stx43910%_) + (let* ((_%g4391343937%_ + (lambda (_%g4391443933%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4411344132%_))) - (_%g4411144383%_ - (lambda (_%g4411344140%_) - (if (gx#stx-pair? _%g4411344140%_) - (let ((_%e4411644143%_ (gx#syntax-e _%g4411344140%_))) - (let ((_%hd4411744147%_ + _%g4391443933%_))) + (_%g4391244178%_ + (lambda (_%g4391443941%_) + (if (gx#stx-pair? _%g4391443941%_) + (let ((_%e4391743944%_ (gx#syntax-e _%g4391443941%_))) + (let ((_%hd4391843948%_ (let () (declare (not safe)) - (##car _%e4411644143%_))) - (_%tl4411844150%_ + (##car _%e4391743944%_))) + (_%tl4391943951%_ (let () (declare (not safe)) - (##cdr _%e4411644143%_)))) - (if (gx#stx-pair? _%tl4411844150%_) - (let ((_%e4411944153%_ - (gx#syntax-e _%tl4411844150%_))) - (let ((_%hd4412044157%_ + (##cdr _%e4391743944%_)))) + (if (gx#stx-pair? _%tl4391943951%_) + (let ((_%e4392043954%_ + (gx#syntax-e _%tl4391943951%_))) + (let ((_%hd4392143958%_ (let () (declare (not safe)) - (##car _%e4411944153%_))) - (_%tl4412144160%_ + (##car _%e4392043954%_))) + (_%tl4392243961%_ (let () (declare (not safe)) - (##cdr _%e4411944153%_)))) - (if (gx#stx-pair/null? _%tl4412144160%_) - (let ((_g45065_ + (##cdr _%e4392043954%_)))) + (if (gx#stx-pair/null? _%tl4392243961%_) + (let ((_g44860_ (gx#syntax-split-splice - _%tl4412144160%_ + _%tl4392243961%_ '0))) (begin - (let ((_g45066_ + (let ((_g44861_ (let () (declare (not safe)) - (if (##values? _g45065_) + (if (##values? _g44860_) (##values-length - _g45065_) + _g44860_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g45066_ 2))) + (##fx= _g44861_ 2))) (error "Context expects 2 values" - _g45066_))) - (let ((_%target4412244163%_ + _g44861_))) + (let ((_%target4392343964%_ (let () (declare (not safe)) - (##values-ref _g45065_ 0))) - (_%tl4412444166%_ + (##values-ref _g44860_ 0))) + (_%tl4392543967%_ (let () (declare (not safe)) - (##values-ref _g45065_ 1)))) - (if (gx#stx-null? _%tl4412444166%_) - (letrec ((_%loop4412544169%_ - (lambda (_%hd4412344173%_ + (##values-ref _g44860_ 1)))) + (if (gx#stx-null? _%tl4392543967%_) + (letrec ((_%loop4392643970%_ + (lambda (_%hd4392443974%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%entry4412944176%_) - (if (gx#stx-pair? _%hd4412344173%_) - (let ((_%e4412644179%_ (gx#syntax-e _%hd4412344173%_))) - (let ((_%lp-hd4412744183%_ + _%entry4393043977%_) + (if (gx#stx-pair? _%hd4392443974%_) + (let ((_%e4392743979%_ (gx#syntax-e _%hd4392443974%_))) + (let ((_%lp-hd4392843983%_ (let () (declare (not safe)) - (##car _%e4412644179%_))) - (_%lp-tl4412844186%_ + (##car _%e4392743979%_))) + (_%lp-tl4392943986%_ (let () (declare (not safe)) - (##cdr _%e4412644179%_)))) - (_%loop4412544169%_ - _%lp-tl4412844186%_ - (cons _%lp-hd4412744183%_ _%entry4412944176%_)))) - (let ((_%entry4413044189%_ - (reverse _%entry4412944176%_))) - ((lambda (_%L44193%_ _%L44195%_) - (let* ((_%g4421344221%_ - (lambda (_%g4421444217%_) + (##cdr _%e4392743979%_)))) + (_%loop4392643970%_ + _%lp-tl4392943986%_ + (cons _%lp-hd4392843983%_ _%entry4393043977%_)))) + (let ((_%entry4393143989%_ + (reverse _%entry4393043977%_))) + ((lambda (_%g4391543992%_ _%g4391643994%_) + (let* ((_%g4401244020%_ + (lambda (_%g4401344016%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4421444217%_))) - (_%g4421244371%_ - (lambda (_%g4421444225%_) - ((lambda (_%L44228%_) - (let* ((_%g4424044266%_ - (lambda (_%g4424144262%_) + _%g4401344016%_))) + (_%g4401144166%_ + (lambda (_%g4401344024%_) + ((lambda (_%g4401444027%_) + (let* ((_%g4403944065%_ + (lambda (_%g4404044061%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4424144262%_))) - (_%g4423944359%_ - (lambda (_%g4424144270%_) + _%g4404044061%_))) + (_%g4403844154%_ + (lambda (_%g4404044069%_) (if (gx#stx-pair/null? - _%g4424144270%_) - (let ((_g45067_ + _%g4404044069%_) + (let ((_g44862_ (gx#syntax-split-splice - _%g4424144270%_ + _%g4404044069%_ '0))) (begin - (let ((_g45068_ + (let ((_g44863_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g45067_) - (##values-length _g45067_) + (if (##values? _g44862_) + (##values-length _g44862_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g45068_ 2))) - (error "Context expects 2 values" _g45068_))) - (let ((_%target4424444273%_ + (##fx= _g44863_ 2))) + (error "Context expects 2 values" _g44863_))) + (let ((_%target4404344072%_ (let () (declare (not safe)) - (##values-ref _g45067_ 0))) - (_%tl4424644276%_ + (##values-ref _g44862_ 0))) + (_%tl4404544075%_ (let () (declare (not safe)) - (##values-ref _g45067_ 1)))) - (if (gx#stx-null? _%tl4424644276%_) - (letrec ((_%loop4424744279%_ - (lambda (_%hd4424544283%_ - _%val4425144286%_ - _%key4425244288%_) - (if (gx#stx-pair? _%hd4424544283%_) - (let ((_%e4424844291%_ + (##values-ref _g44862_ 1)))) + (if (gx#stx-null? _%tl4404544075%_) + (letrec ((_%loop4404644078%_ + (lambda (_%hd4404444082%_ + _%val4405044085%_ + _%key4405144086%_) + (if (gx#stx-pair? _%hd4404444082%_) + (let ((_%e4404744088%_ (gx#syntax-e - _%hd4424544283%_))) - (let ((_%lp-hd4424944295%_ + _%hd4404444082%_))) + (let ((_%lp-hd4404844092%_ (let () (declare (not safe)) - (##car _%e4424844291%_))) - (_%lp-tl4425044298%_ + (##car _%e4404744088%_))) + (_%lp-tl4404944095%_ (let () (declare (not safe)) - (##cdr _%e4424844291%_)))) + (##cdr _%e4404744088%_)))) (if (gx#stx-pair? - _%lp-hd4424944295%_) - (let ((_%e4425544301%_ + _%lp-hd4404844092%_) + (let ((_%e4405444098%_ (gx#syntax-e - _%lp-hd4424944295%_))) - (let ((_%hd4425644305%_ + _%lp-hd4404844092%_))) + (let ((_%hd4405544102%_ (let () (declare (not safe)) - (##car _%e4425544301%_))) - (_%tl4425744308%_ + (##car _%e4405444098%_))) + (_%tl4405644105%_ (let () (declare (not safe)) - (##cdr _%e4425544301%_)))) + (##cdr _%e4405444098%_)))) (if (gx#stx-pair? - _%tl4425744308%_) - (let ((_%e4425844311%_ + _%tl4405644105%_) + (let ((_%e4405744108%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4425744308%_))) - (let ((_%hd4425944315%_ + (gx#syntax-e _%tl4405644105%_))) + (let ((_%hd4405844112%_ (let () (declare (not safe)) - (##car _%e4425844311%_))) - (_%tl4426044318%_ + (##car _%e4405744108%_))) + (_%tl4405944115%_ (let () (declare (not safe)) - (##cdr _%e4425844311%_)))) - (if (gx#stx-null? _%tl4426044318%_) - (_%loop4424744279%_ - _%lp-tl4425044298%_ - (cons _%hd4425944315%_ _%val4425144286%_) - (cons _%hd4425644305%_ _%key4425244288%_)) - (_%g4424044266%_ _%g4424144270%_)))) - (_%g4424044266%_ _%g4424144270%_)))) + (##cdr _%e4405744108%_)))) + (if (gx#stx-null? _%tl4405944115%_) + (_%loop4404644078%_ + _%lp-tl4404944095%_ + (cons _%hd4405844112%_ _%val4405044085%_) + (cons _%hd4405544102%_ _%key4405144086%_)) + (_%g4403944065%_ _%g4404044069%_)))) + (_%g4403944065%_ _%g4404044069%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4424044266%_ - _%g4424144270%_)))) - (let ((_%val4425344321%_ - (reverse _%val4425144286%_)) - (_%key4425444324%_ - (reverse _%key4425244288%_))) - ((lambda (_%L44327%_ _%L44329%_) + (_%g4403944065%_ + _%g4404044069%_)))) + (let ((_%val4405244118%_ + (reverse _%val4405044085%_)) + (_%key4405344120%_ + (reverse _%key4405144086%_))) + ((lambda (_%g4404144122%_ + _%g4404244124%_) (cons (gx#datum->syntax '#f 'let) @@ -5071,163 +5087,165 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'ht) - (cons (cons _%L44195%_ - (cons 'size: (cons _%L44228%_ '()))) + (cons (cons _%g4391643994%_ + (cons 'size: (cons _%g4401444027%_ '()))) '())) (begin - (gx#syntax-check-splice-targets _%L44327%_ _%L44329%_) - (foldr (lambda (_%g4434744351%_ - _%g4434844354%_ - _%g4434944356%_) + (gx#syntax-check-splice-targets + _%g4404144122%_ + _%g4404244124%_) + (foldr (lambda (_%g4414244146%_ + _%g4414344149%_ + _%g4414444151%_) (cons (cons (gx#datum->syntax '#f 'hash-put!) (cons (gx#datum->syntax '#f 'ht) (cons (cons (gx#datum->syntax '#f 'quasiquote) - (cons _%g4434844354%_ + (cons _%g4414344149%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%g4434744351%_ '())))) + (cons _%g4414244146%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g4434944356%_)) + _%g4414444151%_)) (cons (gx#datum->syntax '#f 'ht) '()) - _%L44327%_ - _%L44329%_))))) + _%g4404144122%_ + _%g4404244124%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%val4425344321%_ - _%key4425444324%_)))))) - (_%loop4424744279%_ _%target4424444273%_ '() '())) - (_%g4424044266%_ _%g4424144270%_))))) - (_%g4424044266%_ _%g4424144270%_))))) + _%val4405244118%_ + _%key4405344120%_)))))) + (_%loop4404644078%_ _%target4404344072%_ '() '())) + (_%g4403944065%_ _%g4404044069%_))))) + (_%g4403944065%_ _%g4404044069%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4423944359%_ - (foldr (lambda (_%g4436244365%_ - _%g4436344368%_) - (cons _%g4436244365%_ - _%g4436344368%_)) + (_%g4403844154%_ + (foldr (lambda (_%g4415744160%_ + _%g4415844163%_) + (cons _%g4415744160%_ + _%g4415844163%_)) '() - _%L44193%_)))) - _%g4421444225%_)))) - (_%g4421244371%_ + _%g4391543992%_)))) + _%g4401344024%_)))) + (_%g4401144166%_ (gx#stx-length - (foldr (lambda (_%g4437444377%_ - _%g4437544380%_) - (cons _%g4437444377%_ - _%g4437544380%_)) + (foldr (lambda (_%g4416944172%_ + _%g4417044175%_) + (cons _%g4416944172%_ + _%g4417044175%_)) '() - _%L44193%_))))) - _%entry4413044189%_ - _%hd4412044157%_)))))) + _%g4391543992%_))))) + _%entry4393143989%_ + _%hd4392143958%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4412544169%_ - _%target4412244163%_ + (_%loop4392643970%_ + _%target4392343964%_ '())) - (_%g4411244136%_ - _%g4411344140%_))))) - (_%g4411244136%_ _%g4411344140%_)))) - (_%g4411244136%_ _%g4411344140%_)))) - (_%g4411244136%_ _%g4411344140%_))))) - (_%g4411144383%_ _%stx44109%_)))) + (_%g4391343937%_ + _%g4391443941%_))))) + (_%g4391343937%_ _%g4391443941%_)))) + (_%g4391343937%_ _%g4391443941%_)))) + (_%g4391343937%_ _%g4391443941%_))))) + (_%g4391244178%_ _%stx43910%_)))) (define |gerbil/core/more-sugar[:0:]#@bytes| - (lambda (_%stx44389%_) - (let* ((_%g4439244406%_ - (lambda (_%g4439344402%_) + (lambda (_%stx44184%_) + (let* ((_%g4418744201%_ + (lambda (_%g4418844197%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4439344402%_))) - (_%g4439144478%_ - (lambda (_%g4439344410%_) - (if (gx#stx-pair? _%g4439344410%_) - (let ((_%e4439544413%_ (gx#syntax-e _%g4439344410%_))) - (let ((_%hd4439644417%_ + _%g4418844197%_))) + (_%g4418644273%_ + (lambda (_%g4418844205%_) + (if (gx#stx-pair? _%g4418844205%_) + (let ((_%e4419044208%_ (gx#syntax-e _%g4418844205%_))) + (let ((_%hd4419144212%_ (let () (declare (not safe)) - (##car _%e4439544413%_))) - (_%tl4439744420%_ + (##car _%e4419044208%_))) + (_%tl4419244215%_ (let () (declare (not safe)) - (##cdr _%e4439544413%_)))) - (if (gx#stx-pair? _%tl4439744420%_) - (let ((_%e4439844423%_ - (gx#syntax-e _%tl4439744420%_))) - (let ((_%hd4439944427%_ + (##cdr _%e4419044208%_)))) + (if (gx#stx-pair? _%tl4419244215%_) + (let ((_%e4419344218%_ + (gx#syntax-e _%tl4419244215%_))) + (let ((_%hd4419444222%_ (let () (declare (not safe)) - (##car _%e4439844423%_))) - (_%tl4440044430%_ + (##car _%e4419344218%_))) + (_%tl4419544225%_ (let () (declare (not safe)) - (##cdr _%e4439844423%_)))) - (if (gx#stx-null? _%tl4440044430%_) - ((lambda (_%L44433%_) - (if (gx#stx-string? _%L44433%_) - (let* ((_%g4444744455%_ - (lambda (_%g4444844451%_) + (##cdr _%e4419344218%_)))) + (if (gx#stx-null? _%tl4419544225%_) + ((lambda (_%g4418944228%_) + (if (gx#stx-string? _%g4418944228%_) + (let* ((_%g4424244250%_ + (lambda (_%g4424344246%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4444844451%_))) - (_%g4444644474%_ - (lambda (_%g4444844459%_) - ((lambda (_%L44462%_) + _%g4424344246%_))) + (_%g4424144269%_ + (lambda (_%g4424344254%_) + ((lambda (_%g4424444257%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L44462%_ '()))) - _%g4444844459%_)))) + (cons _%g4424444257%_ '()))) + _%g4424344254%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4444644474%_ + (_%g4424144269%_ (string->bytes - (gx#stx-e _%L44433%_)))) - (_%g4439244406%_ - _%g4439344410%_))) - _%hd4439944427%_) - (_%g4439244406%_ _%g4439344410%_)))) - (_%g4439244406%_ _%g4439344410%_)))) - (_%g4439244406%_ _%g4439344410%_))))) - (_%g4439144478%_ _%stx44389%_)))) + (gx#stx-e _%g4418944228%_)))) + (_%g4418744201%_ + _%g4418844205%_))) + _%hd4419444222%_) + (_%g4418744201%_ _%g4418844205%_)))) + (_%g4418744201%_ _%g4418844205%_)))) + (_%g4418744201%_ _%g4418844205%_))))) + (_%g4418644273%_ _%stx44184%_)))) (define |gerbil/core/more-sugar[:0:]#eval-when-compile| - (lambda (_%stx44482%_) - (let* ((_%g4448544499%_ - (lambda (_%g4448644495%_) + (lambda (_%stx44277%_) + (let* ((_%g4428044294%_ + (lambda (_%g4428144290%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4448644495%_))) - (_%g4448444540%_ - (lambda (_%g4448644503%_) - (if (gx#stx-pair? _%g4448644503%_) - (let ((_%e4448844506%_ (gx#syntax-e _%g4448644503%_))) - (let ((_%hd4448944510%_ + _%g4428144290%_))) + (_%g4427944335%_ + (lambda (_%g4428144298%_) + (if (gx#stx-pair? _%g4428144298%_) + (let ((_%e4428344301%_ (gx#syntax-e _%g4428144298%_))) + (let ((_%hd4428444305%_ (let () (declare (not safe)) - (##car _%e4448844506%_))) - (_%tl4449044513%_ + (##car _%e4428344301%_))) + (_%tl4428544308%_ (let () (declare (not safe)) - (##cdr _%e4448844506%_)))) - (if (gx#stx-pair? _%tl4449044513%_) - (let ((_%e4449144516%_ - (gx#syntax-e _%tl4449044513%_))) - (let ((_%hd4449244520%_ + (##cdr _%e4428344301%_)))) + (if (gx#stx-pair? _%tl4428544308%_) + (let ((_%e4428644311%_ + (gx#syntax-e _%tl4428544308%_))) + (let ((_%hd4428744315%_ (let () (declare (not safe)) - (##car _%e4449144516%_))) - (_%tl4449344523%_ + (##car _%e4428644311%_))) + (_%tl4428844318%_ (let () (declare (not safe)) - (##cdr _%e4449144516%_)))) - (if (gx#stx-null? _%tl4449344523%_) - ((lambda (_%L44526%_) + (##cdr _%e4428644311%_)))) + (if (gx#stx-null? _%tl4428844318%_) + ((lambda (_%g4428244321%_) (if (gx#current-expander-compiling?) - (gx#eval-syntax _%L44526%_) + (gx#eval-syntax _%g4428244321%_) '#!void) (cons (gx#datum->syntax '#f 'void) '())) - _%hd4449244520%_) - (_%g4448544499%_ _%g4448644503%_)))) - (_%g4448544499%_ _%g4448644503%_)))) - (_%g4448544499%_ _%g4448644503%_))))) - (_%g4448444540%_ _%stx44482%_)))))) + _%hd4428744315%_) + (_%g4428044294%_ _%g4428144298%_)))) + (_%g4428044294%_ _%g4428144298%_)))) + (_%g4428044294%_ _%g4428144298%_))))) + (_%g4427944335%_ _%stx44277%_)))))) diff --git a/src/bootstrap/gerbil/core/more-sugar~2.scm b/src/bootstrap/gerbil/core/more-sugar~2.scm index 4d044698cf..f5aa0d625d 100644 --- a/src/bootstrap/gerbil/core/more-sugar~2.scm +++ b/src/bootstrap/gerbil/core/more-sugar~2.scm @@ -1,104 +1,104 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/more-sugar[2]#_g45070_| + (define |gerbil/core/more-sugar[2]#_g44865_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g45072_| + (define |gerbil/core/more-sugar[2]#_g44867_| (##structure gx#syntax-quote::t 'setq-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g45074_| + (define |gerbil/core/more-sugar[2]#_g44869_| (##structure gx#syntax-quote::t 'make-setq-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g45076_| + (define |gerbil/core/more-sugar[2]#_g44871_| (##structure gx#syntax-quote::t 'setq-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g45078_| + (define |gerbil/core/more-sugar[2]#_g44873_| (##structure gx#syntax-quote::t 'setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g45080_| + (define |gerbil/core/more-sugar[2]#_g44875_| (##structure gx#syntax-quote::t 'setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g45082_| + (define |gerbil/core/more-sugar[2]#_g44877_| (##structure gx#syntax-quote::t '&setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g45084_| + (define |gerbil/core/more-sugar[2]#_g44879_| (##structure gx#syntax-quote::t '&setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g45087_| + (define |gerbil/core/more-sugar[2]#_g44882_| (##structure gx#syntax-quote::t 'setf-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g45089_| + (define |gerbil/core/more-sugar[2]#_g44884_| (##structure gx#syntax-quote::t 'make-setf-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g45091_| + (define |gerbil/core/more-sugar[2]#_g44886_| (##structure gx#syntax-quote::t 'setf-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g45093_| + (define |gerbil/core/more-sugar[2]#_g44888_| (##structure gx#syntax-quote::t 'setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g45095_| + (define |gerbil/core/more-sugar[2]#_g44890_| (##structure gx#syntax-quote::t 'setf-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g45097_| + (define |gerbil/core/more-sugar[2]#_g44892_| (##structure gx#syntax-quote::t '&setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g45099_| + (define |gerbil/core/more-sugar[2]#_g44894_| (##structure gx#syntax-quote::t '&setf-macro-macro-set! @@ -107,7 +107,7 @@ '())) (begin (define |gerbil/core/more-sugar[:1:]#setq-macro| - (let ((__obj45013 + (let ((__obj44808 (let () (declare (not safe)) (##structure @@ -136,60 +136,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj45013 + __obj44808 'gerbil/core/more-sugar#setq-macro::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj45013 'setq-macro '2 '#f '#f)) + (##unchecked-structure-set! __obj44808 'setq-macro '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj45013 '() '4 '#f '#f)) - (let ((__tmp45069 (cons |gerbil/core/more-sugar[2]#_g45070_| '()))) + (##unchecked-structure-set! __obj44808 '() '5 '#f '#f)) + (let ((__tmp44864 (cons |gerbil/core/more-sugar[2]#_g44865_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj45013 __tmp45069 '3 '#f '#f)) + (##unchecked-structure-set! __obj44808 __tmp44864 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj45013 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj44808 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj45013 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj44808 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj45013 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj44808 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj45013 '#f '11 '#f '#f)) - (let ((__tmp45071 |gerbil/core/more-sugar[2]#_g45072_|)) + (##unchecked-structure-set! __obj44808 '#f '12 '#f '#f)) + (let ((__tmp44866 |gerbil/core/more-sugar[2]#_g44867_|)) (declare (not safe)) - (##unchecked-structure-set! __obj45013 __tmp45071 '12 '#f '#f)) - (let ((__tmp45073 |gerbil/core/more-sugar[2]#_g45074_|)) + (##unchecked-structure-set! __obj44808 __tmp44866 '3 '#f '#f)) + (let ((__tmp44868 |gerbil/core/more-sugar[2]#_g44869_|)) (declare (not safe)) - (##unchecked-structure-set! __obj45013 __tmp45073 '13 '#f '#f)) - (let ((__tmp45075 |gerbil/core/more-sugar[2]#_g45076_|)) + (##unchecked-structure-set! __obj44808 __tmp44868 '13 '#f '#f)) + (let ((__tmp44870 |gerbil/core/more-sugar[2]#_g44871_|)) (declare (not safe)) - (##unchecked-structure-set! __obj45013 __tmp45075 '14 '#f '#f)) - (let ((__tmp45077 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g45078_|) '()))) + (##unchecked-structure-set! __obj44808 __tmp44870 '14 '#f '#f)) + (let ((__tmp44872 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g44873_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj45013 __tmp45077 '15 '#f '#f)) - (let ((__tmp45079 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g45080_|) '()))) + (##unchecked-structure-set! __obj44808 __tmp44872 '15 '#f '#f)) + (let ((__tmp44874 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g44875_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj45013 __tmp45079 '16 '#f '#f)) - (let ((__tmp45081 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g45082_|) '()))) + (##unchecked-structure-set! __obj44808 __tmp44874 '16 '#f '#f)) + (let ((__tmp44876 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g44877_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj45013 __tmp45081 '17 '#f '#f)) - (let ((__tmp45083 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g45084_|) '()))) + (##unchecked-structure-set! __obj44808 __tmp44876 '17 '#f '#f)) + (let ((__tmp44878 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g44879_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj45013 __tmp45083 '18 '#f '#f)) - __obj45013)) + (##unchecked-structure-set! __obj44808 __tmp44878 '18 '#f '#f)) + __obj44808)) (define |gerbil/core/more-sugar[:1:]#setf-macro| - (let ((__obj45014 + (let ((__obj44809 (let () (declare (not safe)) (##structure @@ -218,55 +218,55 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj45014 + __obj44809 'gerbil/core/more-sugar#setf-macro::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj45014 'setf-macro '2 '#f '#f)) + (##unchecked-structure-set! __obj44809 'setf-macro '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj45014 '() '4 '#f '#f)) - (let ((__tmp45085 (cons |gerbil/core/more-sugar[2]#_g45070_| '()))) + (##unchecked-structure-set! __obj44809 '() '5 '#f '#f)) + (let ((__tmp44880 (cons |gerbil/core/more-sugar[2]#_g44865_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj45014 __tmp45085 '3 '#f '#f)) + (##unchecked-structure-set! __obj44809 __tmp44880 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj45014 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj44809 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj45014 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj44809 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj45014 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj44809 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj45014 '#f '11 '#f '#f)) - (let ((__tmp45086 |gerbil/core/more-sugar[2]#_g45087_|)) + (##unchecked-structure-set! __obj44809 '#f '12 '#f '#f)) + (let ((__tmp44881 |gerbil/core/more-sugar[2]#_g44882_|)) (declare (not safe)) - (##unchecked-structure-set! __obj45014 __tmp45086 '12 '#f '#f)) - (let ((__tmp45088 |gerbil/core/more-sugar[2]#_g45089_|)) + (##unchecked-structure-set! __obj44809 __tmp44881 '3 '#f '#f)) + (let ((__tmp44883 |gerbil/core/more-sugar[2]#_g44884_|)) (declare (not safe)) - (##unchecked-structure-set! __obj45014 __tmp45088 '13 '#f '#f)) - (let ((__tmp45090 |gerbil/core/more-sugar[2]#_g45091_|)) + (##unchecked-structure-set! __obj44809 __tmp44883 '13 '#f '#f)) + (let ((__tmp44885 |gerbil/core/more-sugar[2]#_g44886_|)) (declare (not safe)) - (##unchecked-structure-set! __obj45014 __tmp45090 '14 '#f '#f)) - (let ((__tmp45092 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g45093_|) '()))) + (##unchecked-structure-set! __obj44809 __tmp44885 '14 '#f '#f)) + (let ((__tmp44887 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g44888_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj45014 __tmp45092 '15 '#f '#f)) - (let ((__tmp45094 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g45095_|) '()))) + (##unchecked-structure-set! __obj44809 __tmp44887 '15 '#f '#f)) + (let ((__tmp44889 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g44890_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj45014 __tmp45094 '16 '#f '#f)) - (let ((__tmp45096 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g45097_|) '()))) + (##unchecked-structure-set! __obj44809 __tmp44889 '16 '#f '#f)) + (let ((__tmp44891 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g44892_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj45014 __tmp45096 '17 '#f '#f)) - (let ((__tmp45098 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g45099_|) '()))) + (##unchecked-structure-set! __obj44809 __tmp44891 '17 '#f '#f)) + (let ((__tmp44893 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g44894_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj45014 __tmp45098 '18 '#f '#f)) - __obj45014)))) + (##unchecked-structure-set! __obj44809 __tmp44893 '18 '#f '#f)) + __obj44809)))) diff --git a/src/bootstrap/gerbil/core/more-syntax-sugar.scm b/src/bootstrap/gerbil/core/more-syntax-sugar.scm index 6f40bd8ecc..4f68b531be 100644 --- a/src/bootstrap/gerbil/core/more-syntax-sugar.scm +++ b/src/bootstrap/gerbil/core/more-syntax-sugar.scm @@ -1,7 +1,7 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin (begin + (load-module "gerbil/core/runtime") (load-module "gerbil/core/expander") - (load-module "gerbil/core/sugar") - (load-module "gerbil/core/more-sugar")) + (load-module "gerbil/core/sugar")) (begin)) diff --git a/src/bootstrap/gerbil/core/more-syntax-sugar.ssi b/src/bootstrap/gerbil/core/more-syntax-sugar.ssi index cab18a7981..dd0f60c922 100644 --- a/src/bootstrap/gerbil/core/more-syntax-sugar.ssi +++ b/src/bootstrap/gerbil/core/more-syntax-sugar.ssi @@ -3,10 +3,12 @@ package: gerbil/core namespace: gerbil/core/more-syntax-sugar (%#begin (%#import + :gerbil/core/runtime :gerbil/core/expander :gerbil/core/sugar - :gerbil/core/more-sugar - (phi: 1 :gerbil/core/runtime)) + (phi: 1 :gerbil/core/runtime) + (phi: 1 :gerbil/core/expander) + (phi: 1 :gerbil/core/sugar)) (%#export #t) (%#begin (%#begin-syntax (%#call (%#ref load-module) @@ -14,6 +16,15 @@ namespace: gerbil/core/more-syntax-sugar (%#define-syntax identifier-rules |gerbil/core/more-syntax-sugar[:0:]#identifier-rules|)) + (%#define-syntax + with-identifiers + |gerbil/core/more-syntax-sugar[:0:]#with-identifiers|) + (%#define-syntax + with-identifier + |gerbil/core/more-syntax-sugar[:0:]#with-identifier|) + (%#define-syntax + defsyntax-case + |gerbil/core/more-syntax-sugar[:0:]#defsyntax-case|) (%#define-syntax quasisyntax |gerbil/core/more-syntax-sugar[:0:]#quasisyntax|)) diff --git a/src/bootstrap/gerbil/core/more-syntax-sugar~1.scm b/src/bootstrap/gerbil/core/more-syntax-sugar~1.scm index e3b97ebbbb..5e16333261 100644 --- a/src/bootstrap/gerbil/core/more-syntax-sugar~1.scm +++ b/src/bootstrap/gerbil/core/more-syntax-sugar~1.scm @@ -1,42 +1,1079 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/more-syntax-sugar[:0:]#identifier-rules| - (lambda (_%$stx45102%_) - (let* ((_%g4510645117%_ - (lambda (_%g4510745113%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g4510745113%_))) - (_%g4510545147%_ - (lambda (_%g4510745121%_) - (if (gx#stx-pair? _%g4510745121%_) - (let ((_%e4510945124%_ (gx#syntax-e _%g4510745121%_))) - (let ((_%hd4511045128%_ + (define |gerbil/core/more-syntax-sugar[1]#_g45873_| + (##structure + gx#syntax-quote::t + 'quote + #f + (gx#current-expander-context) + '())) + (begin + (define |gerbil/core/more-syntax-sugar[:0:]#identifier-rules| + (lambda (_%$stx44897%_) + (let* ((_%g4490144912%_ + (lambda (_%g4490244908%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g4490244908%_))) + (_%g4490044942%_ + (lambda (_%g4490244916%_) + (if (gx#stx-pair? _%g4490244916%_) + (let ((_%e4490444919%_ (gx#syntax-e _%g4490244916%_))) + (let ((_%hd4490544923%_ + (let () + (declare (not safe)) + (##car _%e4490444919%_))) + (_%tl4490644926%_ + (let () + (declare (not safe)) + (##cdr _%e4490444919%_)))) + ((lambda (_%g4490344929%_) + (cons (gx#datum->syntax '#f 'make-setq-macro) + (cons 'macro: + (cons (cons (gx#datum->syntax + '#f + 'syntax-rules) + _%g4490344929%_) + '())))) + _%tl4490644926%_))) + (_%g4490144912%_ _%g4490244916%_))))) + (_%g4490044942%_ _%$stx44897%_)))) + (define |gerbil/core/more-syntax-sugar[:0:]#with-identifiers| + (lambda (_%stx44946%_) + (let* ((_%g4494944982%_ + (lambda (_%g4495044978%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g4495044978%_))) + (_%g4494845384%_ + (lambda (_%g4495044986%_) + (if (gx#stx-pair? _%g4495044986%_) + (let ((_%e4495344989%_ (gx#syntax-e _%g4495044986%_))) + (let ((_%hd4495444993%_ + (let () + (declare (not safe)) + (##car _%e4495344989%_))) + (_%tl4495544996%_ + (let () + (declare (not safe)) + (##cdr _%e4495344989%_)))) + (if (gx#stx-pair? _%tl4495544996%_) + (let ((_%e4495644999%_ + (gx#syntax-e _%tl4495544996%_))) + (let ((_%hd4495745003%_ + (let () + (declare (not safe)) + (##car _%e4495644999%_))) + (_%tl4495845006%_ + (let () + (declare (not safe)) + (##cdr _%e4495644999%_)))) + (if (gx#stx-pair/null? _%hd4495745003%_) + (let ((_g45867_ + (gx#syntax-split-splice + _%hd4495745003%_ + '0))) + (begin + (let ((_g45868_ + (let () + (declare (not safe)) + (if (##values? _g45867_) + (##values-length + _g45867_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g45868_ 2))) + (error "Context expects 2 values" + _g45868_))) + (let ((_%target4495945009%_ + (let () + (declare (not safe)) + (##values-ref _g45867_ 0))) + (_%tl4496145012%_ + (let () + (declare (not safe)) + (##values-ref _g45867_ 1)))) + (if (gx#stx-null? _%tl4496145012%_) + (letrec ((_%loop4496245015%_ + (lambda (_%hd4496045019%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%clause4496645022%_) + (if (gx#stx-pair? _%hd4496045019%_) + (let ((_%e4496345024%_ (gx#syntax-e _%hd4496045019%_))) + (let ((_%lp-hd4496445028%_ + (let () + (declare (not safe)) + (##car _%e4496345024%_))) + (_%lp-tl4496545031%_ + (let () + (declare (not safe)) + (##cdr _%e4496345024%_)))) + (_%loop4496245015%_ + _%lp-tl4496545031%_ + (cons _%lp-hd4496445028%_ _%clause4496645022%_)))) + (let ((_%clause4496745034%_ + (reverse _%clause4496645022%_))) + (if (gx#stx-pair/null? _%tl4495845006%_) + (let ((_g45869_ + (gx#syntax-split-splice + _%tl4495845006%_ + '0))) + (begin + (let ((_g45870_ + (let () + (declare (not safe)) + (if (##values? _g45869_) + (##values-length _g45869_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g45870_ 2))) + (error "Context expects 2 values" + _g45870_))) + (let ((_%target4496845037%_ + (let () + (declare (not safe)) + (##values-ref _g45869_ 0))) + (_%tl4497045040%_ + (let () + (declare (not safe)) + (##values-ref _g45869_ 1)))) + (if (gx#stx-null? _%tl4497045040%_) + (letrec ((_%loop4497145043%_ + (lambda (_%hd4496945047%_ + _%body4497545050%_) + (if (gx#stx-pair? + _%hd4496945047%_) + (let ((_%e4497245052%_ + (gx#syntax-e + _%hd4496945047%_))) + (let ((_%lp-hd4497345056%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##car _%e4497245052%_))) + (_%lp-tl4497445059%_ + (let () + (declare (not safe)) + (##cdr _%e4497245052%_)))) + (_%loop4497145043%_ + _%lp-tl4497445059%_ + (cons _%lp-hd4497345056%_ _%body4497545050%_)))) + (let ((_%body4497645062%_ (reverse _%body4497545050%_))) + ((lambda (_%g4495145065%_ _%g4495245067%_) + (let* ((_%g4508945106%_ + (lambda (_%g4509045102%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g4509045102%_))) + (_%g4508845173%_ + (lambda (_%g4509045110%_) + (if (gx#stx-pair/null? _%g4509045110%_) + (let ((_g45871_ + (gx#syntax-split-splice + _%g4509045110%_ + '0))) + (begin + (let ((_g45872_ + (let () + (declare (not safe)) + (if (##values? _g45871_) + (##values-length _g45871_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g45872_ 2))) + (error "Context expects 2 values" + _g45872_))) + (let ((_%target4509245113%_ + (let () + (declare (not safe)) + (##values-ref _g45871_ 0))) + (_%tl4509445116%_ + (let () + (declare (not safe)) + (##values-ref _g45871_ 1)))) + (if (gx#stx-null? _%tl4509445116%_) + (letrec ((_%loop4509545119%_ + (lambda (_%hd4509345123%_ + _%clause4509945126%_) + (if (gx#stx-pair? + _%hd4509345123%_) + (let ((_%e4509645128%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _%hd4509345123%_))) + (let ((_%lp-hd4509745132%_ + (let () + (declare (not safe)) + (##car _%e4509645128%_))) + (_%lp-tl4509845135%_ + (let () + (declare (not safe)) + (##cdr _%e4509645128%_)))) + (_%loop4509545119%_ + _%lp-tl4509845135%_ + (cons _%lp-hd4509745132%_ _%clause4509945126%_)))) + (let ((_%clause4510045138%_ + (reverse _%clause4509945126%_))) + ((lambda (_%g4509145141%_) + (cons (gx#datum->syntax '#f 'with-syntax*) + (cons (foldr (lambda (_%g4515645161%_ + _%g4515745164%_) + (cons _%g4515645161%_ + _%g4515745164%_)) + '() + _%g4509145141%_) + (foldr (lambda (_%g4515845167%_ + _%g4515945170%_) + (cons _%g4515845167%_ + _%g4515945170%_)) + '() + _%g4495145065%_)))) + _%clause4510045138%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop4509545119%_ + _%target4509245113%_ + '())) + (_%g4508945106%_ + _%g4509045110%_))))) + (_%g4508945106%_ _%g4509045110%_))))) + (_%g4508845173%_ + (map (lambda (_%clause45177%_) + (let* ((_%__stx4580445805%_ _%clause45177%_) + (_%g4518145220%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx4580445805%_)))) + (let ((_%__kont4580745808%_ + (lambda (_%g4518345353%_ + _%g4518445355%_) + (cons _%g4518445355%_ + (cons (cons (gx#datum->syntax + '#f + 'syntax-local-temp) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'quote) + (cons _%g4518345353%_ '())) + '())) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont4580945810%_ + (lambda (_%g4519745275%_ + _%g4519845277%_ + _%g4519945278%_) + (cons _%g4519945278%_ + (cons (cons (gx#datum->syntax + '#f + 'stx-identifier) + (cons _%g4519845277%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (foldr (lambda (_%g4529745300%_ _%g4529845303%_) + (cons _%g4529745300%_ _%g4529845303%_)) + '() + _%g4519745275%_))) + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let* ((_%__match4586545866%_ + (lambda (_%e4520045227%_ + _%hd4520145231%_ + _%tl4520245234%_ + _%e4520345237%_ + _%hd4520445241%_ + _%tl4520545244%_ + _%__splice4581145812%_ + _%target4520645247%_ + _%tl4520845250%_) + (letrec ((_%loop4520945253%_ + (lambda (_%hd4520745257%_ + _%components4521345260%_) + (if (gx#stx-pair? + _%hd4520745257%_) + (let ((_%e4521045262%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _%hd4520745257%_))) + (let ((_%lp-tl4521245269%_ + (let () + (declare (not safe)) + (##cdr _%e4521045262%_))) + (_%lp-hd4521145266%_ + (let () + (declare (not safe)) + (##car _%e4521045262%_)))) + (_%loop4520945253%_ + _%lp-tl4521245269%_ + (cons _%lp-hd4521145266%_ + _%components4521345260%_)))) + (let ((_%components4521445272%_ + (reverse _%components4521345260%_))) + (let ((_%g4519745275%_ _%components4521445272%_) + (_%g4519845277%_ _%hd4520445241%_) + (_%g4519945278%_ _%hd4520145231%_)) + (if (gx#identifier? _%g4519945278%_) + (_%__kont4580945810%_ + _%g4519745275%_ + _%g4519845277%_ + _%g4519945278%_) (let () (declare (not safe)) - (##car _%e4510945124%_))) - (_%tl4511145131%_ + (_%g4518145220%_))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop4520945253%_ + _%target4520645247%_ + '())))) + (_%__match4584545846%_ + (lambda (_%e4518545313%_ + _%hd4518645317%_ + _%tl4518745320%_ + _%e4518845323%_ + _%hd4518945327%_ + _%tl4519045330%_ + _%e4519145333%_ + _%hd4519245337%_ + _%tl4519345340%_ + _%e4519445343%_ + _%hd4519545347%_ + _%tl4519645350%_) + (let ((_%g4518345353%_ + _%hd4519545347%_) + (_%g4518445355%_ + _%hd4518645317%_)) + (if (and (gx#identifier? + _%g4518445355%_) + (gx#identifier? + _%g4518345353%_)) + (_%__kont4580745808%_ + _%g4518345353%_ + _%g4518445355%_) + (if (gx#stx-pair/null? + _%tl4519045330%_) + (let ((_%__splice4581145812%_ + (gx#syntax-split-splice->vector + _%tl4519045330%_ + '0))) + (let ((_%tl4520845250%_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##vector-ref _%__splice4581145812%_ '1))) + (_%target4520645247%_ + (let () + (declare (not safe)) + (##vector-ref _%__splice4581145812%_ '0)))) + (if (gx#stx-null? _%tl4520845250%_) + (_%__match4586545866%_ + _%e4518545313%_ + _%hd4518645317%_ + _%tl4518745320%_ + _%e4518845323%_ + _%hd4518945327%_ + _%tl4519045330%_ + _%__splice4581145812%_ + _%target4520645247%_ + _%tl4520845250%_) + (let () (declare (not safe)) (_%g4518145220%_))))) + (let () (declare (not safe)) (_%g4518145220%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%__stx4580445805%_) + (let ((_%e4518545313%_ + (gx#syntax-e + _%__stx4580445805%_))) + (let ((_%tl4518745320%_ + (let () + (declare (not safe)) + (##cdr _%e4518545313%_))) + (_%hd4518645317%_ + (let () + (declare (not safe)) + (##car _%e4518545313%_)))) + (if (gx#stx-pair? + _%tl4518745320%_) + (let ((_%e4518845323%_ + (gx#syntax-e + _%tl4518745320%_))) + (let ((_%tl4519045330%_ + (let () + (declare + (not safe)) + (##cdr _%e4518845323%_))) + (_%hd4518945327%_ + (let () + (declare + (not safe)) + (##car _%e4518845323%_)))) + (if (gx#stx-pair? + _%hd4518945327%_) + (let ((_%e4519145333%_ + (gx#syntax-e +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%hd4518945327%_))) + (let ((_%tl4519345340%_ + (let () + (declare (not safe)) + (##cdr _%e4519145333%_))) + (_%hd4519245337%_ + (let () + (declare (not safe)) + (##car _%e4519145333%_)))) + (if (gx#identifier? _%hd4519245337%_) + (if (gx#free-identifier=? + |gerbil/core/more-syntax-sugar[1]#_g45873_| + _%hd4519245337%_) + (if (gx#stx-pair? _%tl4519345340%_) + (let ((_%e4519445343%_ + (gx#syntax-e _%tl4519345340%_))) + (let ((_%tl4519645350%_ + (let () + (declare (not safe)) + (##cdr _%e4519445343%_))) + (_%hd4519545347%_ + (let () + (declare (not safe)) + (##car _%e4519445343%_)))) + (if (gx#stx-null? _%tl4519645350%_) + (if (gx#stx-null? _%tl4519045330%_) + (_%__match4584545846%_ + _%e4518545313%_ + _%hd4518645317%_ + _%tl4518745320%_ + _%e4518845323%_ + _%hd4518945327%_ + _%tl4519045330%_ + _%e4519145333%_ + _%hd4519245337%_ + _%tl4519345340%_ + _%e4519445343%_ + _%hd4519545347%_ + _%tl4519645350%_) + (if (gx#stx-pair/null? + _%tl4519045330%_) + (let ((_%__splice4581145812%_ + (gx#syntax-split-splice->vector + _%tl4519045330%_ + '0))) + (let ((_%tl4520845250%_ + (let () + (declare + (not safe)) + (##vector-ref + _%__splice4581145812%_ + '1))) + (_%target4520645247%_ + (let () + (declare + (not safe)) + (##vector-ref + _%__splice4581145812%_ + '0)))) + (if (gx#stx-null? + _%tl4520845250%_) + (_%__match4586545866%_ + _%e4518545313%_ + _%hd4518645317%_ + _%tl4518745320%_ + _%e4518845323%_ + _%hd4518945327%_ + _%tl4519045330%_ + _%__splice4581145812%_ + _%target4520645247%_ + _%tl4520845250%_) + (let () + (declare (not safe)) + (_%g4518145220%_))))) + (let () + (declare (not safe)) + (_%g4518145220%_)))) + (if (gx#stx-pair/null? + _%tl4519045330%_) + (let ((_%__splice4581145812%_ + (gx#syntax-split-splice->vector + _%tl4519045330%_ + '0))) + (let ((_%tl4520845250%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice4581145812%_ + '1))) + (_%target4520645247%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice4581145812%_ + '0)))) + (if (gx#stx-null? + _%tl4520845250%_) + (_%__match4586545866%_ + _%e4518545313%_ + _%hd4518645317%_ + _%tl4518745320%_ + _%e4518845323%_ + _%hd4518945327%_ + _%tl4519045330%_ + _%__splice4581145812%_ + _%target4520645247%_ + _%tl4520845250%_) + (let () + (declare (not safe)) + (_%g4518145220%_))))) + (let () + (declare (not safe)) + (_%g4518145220%_)))))) + (if (gx#stx-pair/null? _%tl4519045330%_) + (let ((_%__splice4581145812%_ + (gx#syntax-split-splice->vector + _%tl4519045330%_ + '0))) + (let ((_%tl4520845250%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice4581145812%_ + '1))) + (_%target4520645247%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice4581145812%_ + '0)))) + (if (gx#stx-null? _%tl4520845250%_) + (_%__match4586545866%_ + _%e4518545313%_ + _%hd4518645317%_ + _%tl4518745320%_ + _%e4518845323%_ + _%hd4518945327%_ + _%tl4519045330%_ + _%__splice4581145812%_ + _%target4520645247%_ + _%tl4520845250%_) + (let () + (declare (not safe)) + (_%g4518145220%_))))) + (let () + (declare (not safe)) + (_%g4518145220%_)))) + (if (gx#stx-pair/null? _%tl4519045330%_) + (let ((_%__splice4581145812%_ + (gx#syntax-split-splice->vector + _%tl4519045330%_ + '0))) + (let ((_%tl4520845250%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice4581145812%_ + '1))) + (_%target4520645247%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice4581145812%_ + '0)))) + (if (gx#stx-null? _%tl4520845250%_) + (_%__match4586545866%_ + _%e4518545313%_ + _%hd4518645317%_ + _%tl4518745320%_ + _%e4518845323%_ + _%hd4518945327%_ + _%tl4519045330%_ + _%__splice4581145812%_ + _%target4520645247%_ + _%tl4520845250%_) + (let () + (declare (not safe)) + (_%g4518145220%_))))) + (let () + (declare (not safe)) + (_%g4518145220%_)))) + (if (gx#stx-pair/null? _%tl4519045330%_) + (let ((_%__splice4581145812%_ + (gx#syntax-split-splice->vector + _%tl4519045330%_ + '0))) + (let ((_%tl4520845250%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice4581145812%_ + '1))) + (_%target4520645247%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice4581145812%_ + '0)))) + (if (gx#stx-null? _%tl4520845250%_) + (_%__match4586545866%_ + _%e4518545313%_ + _%hd4518645317%_ + _%tl4518745320%_ + _%e4518845323%_ + _%hd4518945327%_ + _%tl4519045330%_ + _%__splice4581145812%_ + _%target4520645247%_ + _%tl4520845250%_) + (let () + (declare (not safe)) + (_%g4518145220%_))))) (let () (declare (not safe)) - (##cdr _%e4510945124%_)))) - ((lambda (_%L45134%_) - (cons (gx#datum->syntax '#f 'make-setq-macro) - (cons 'macro: - (cons (cons (gx#datum->syntax - '#f - 'syntax-rules) - _%L45134%_) - '())))) - _%tl4511145131%_))) - (_%g4510645117%_ _%g4510745121%_))))) - (_%g4510545147%_ _%$stx45102%_)))) - (define |gerbil/core/more-syntax-sugar[:0:]#quasisyntax| - (lambda (_%$stx45151%_) - (let ((_%g4515445161%_ - (lambda (_%g4515545157%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g4515545157%_)))) - (_%g4515445161%_ _%$stx45151%_))))) + (_%g4518145220%_)))))) + (if (gx#stx-pair/null? _%tl4519045330%_) + (let ((_%__splice4581145812%_ + (gx#syntax-split-splice->vector + _%tl4519045330%_ + '0))) + (let ((_%tl4520845250%_ + (let () + (declare (not safe)) + (##vector-ref _%__splice4581145812%_ '1))) + (_%target4520645247%_ + (let () + (declare (not safe)) + (##vector-ref _%__splice4581145812%_ '0)))) + (if (gx#stx-null? _%tl4520845250%_) + (_%__match4586545866%_ + _%e4518545313%_ + _%hd4518645317%_ + _%tl4518745320%_ + _%e4518845323%_ + _%hd4518945327%_ + _%tl4519045330%_ + _%__splice4581145812%_ + _%target4520645247%_ + _%tl4520845250%_) + (let () (declare (not safe)) (_%g4518145220%_))))) + (let () (declare (not safe)) (_%g4518145220%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_%g4518145220%_))))) + (let () + (declare (not safe)) + (_%g4518145220%_))))))) + (foldr (lambda (_%g4537545378%_ _%g4537645381%_) + (cons _%g4537545378%_ _%g4537645381%_)) + '() + _%g4495245067%_))))) + _%body4497645062%_ + _%clause4496745034%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop4497145043%_ + _%target4496845037%_ + '())) + (_%g4494944982%_ _%g4495044986%_))))) + (_%g4494944982%_ _%g4495044986%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop4496245015%_ + _%target4495945009%_ + '())) + (_%g4494944982%_ + _%g4495044986%_))))) + (_%g4494944982%_ _%g4495044986%_)))) + (_%g4494944982%_ _%g4495044986%_)))) + (_%g4494944982%_ _%g4495044986%_))))) + (_%g4494845384%_ _%stx44946%_)))) + (define |gerbil/core/more-syntax-sugar[:0:]#with-identifier| + (lambda (_%$stx45392%_) + (let* ((_%g4539645433%_ + (lambda (_%g4539745429%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g4539745429%_))) + (_%g4539545570%_ + (lambda (_%g4539745437%_) + (if (gx#stx-pair? _%g4539745437%_) + (let ((_%e4540145440%_ (gx#syntax-e _%g4539745437%_))) + (let ((_%hd4540245444%_ + (let () + (declare (not safe)) + (##car _%e4540145440%_))) + (_%tl4540345447%_ + (let () + (declare (not safe)) + (##cdr _%e4540145440%_)))) + (if (gx#stx-pair? _%tl4540345447%_) + (let ((_%e4540445450%_ + (gx#syntax-e _%tl4540345447%_))) + (let ((_%hd4540545454%_ + (let () + (declare (not safe)) + (##car _%e4540445450%_))) + (_%tl4540645457%_ + (let () + (declare (not safe)) + (##cdr _%e4540445450%_)))) + (if (gx#stx-pair? _%hd4540545454%_) + (let ((_%e4540745460%_ + (gx#syntax-e _%hd4540545454%_))) + (let ((_%hd4540845464%_ + (let () + (declare (not safe)) + (##car _%e4540745460%_))) + (_%tl4540945467%_ + (let () + (declare (not safe)) + (##cdr _%e4540745460%_)))) + (if (gx#stx-pair/null? + _%tl4540945467%_) + (let ((_g45874_ + (gx#syntax-split-splice + _%tl4540945467%_ + '0))) + (begin + (let ((_g45875_ + (let () + (declare (not safe)) + (if (##values? + _g45874_) + (##values-length + _g45874_) + 1)))) + (if (not (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##fx= _g45875_ 2))) + (error "Context expects 2 values" _g45875_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%target4541045470%_ + (let () + (declare (not safe)) + (##values-ref + _g45874_ + 0))) + (_%tl4541245473%_ + (let () + (declare (not safe)) + (##values-ref + _g45874_ + 1)))) + (if (gx#stx-null? + _%tl4541245473%_) + (letrec ((_%loop4541345476%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd4541145480%_ _%components4541745483%_) + (if (gx#stx-pair? _%hd4541145480%_) + (let ((_%e4541445485%_ + (gx#syntax-e _%hd4541145480%_))) + (let ((_%lp-hd4541545489%_ + (let () + (declare (not safe)) + (##car _%e4541445485%_))) + (_%lp-tl4541645492%_ + (let () + (declare (not safe)) + (##cdr _%e4541445485%_)))) + (_%loop4541345476%_ + _%lp-tl4541645492%_ + (cons _%lp-hd4541545489%_ + _%components4541745483%_)))) + (let ((_%components4541845495%_ + (reverse _%components4541745483%_))) + (if (gx#stx-pair/null? _%tl4540645457%_) + (let ((_g45876_ + (gx#syntax-split-splice + _%tl4540645457%_ + '0))) + (begin + (let ((_g45877_ + (let () + (declare (not safe)) + (if (##values? _g45876_) + (##values-length + _g45876_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g45877_ 2))) + (error "Context expects 2 values" + _g45877_))) + (let ((_%target4541945498%_ + (let () + (declare (not safe)) + (##values-ref _g45876_ 0))) + (_%tl4542145501%_ + (let () + (declare (not safe)) + (##values-ref _g45876_ 1)))) + (if (gx#stx-null? _%tl4542145501%_) + (letrec ((_%loop4542245504%_ + (lambda (_%hd4542045508%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body4542645511%_) + (if (gx#stx-pair? _%hd4542045508%_) + (let ((_%e4542345513%_ (gx#syntax-e _%hd4542045508%_))) + (let ((_%lp-hd4542445517%_ + (let () + (declare (not safe)) + (##car _%e4542345513%_))) + (_%lp-tl4542545520%_ + (let () + (declare (not safe)) + (##cdr _%e4542345513%_)))) + (_%loop4542245504%_ + _%lp-tl4542545520%_ + (cons _%lp-hd4542445517%_ _%body4542645511%_)))) + (let ((_%body4542745523%_ + (reverse _%body4542645511%_))) + ((lambda (_%g4539845526%_ + _%g4539945528%_ + _%g4540045529%_) + (if (gx#identifier? _%g4540045529%_) + (cons (gx#datum->syntax '#f 'with-identifiers) + (cons (cons (cons _%g4540045529%_ + (foldr (lambda (_%g4555345558%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g4555445561%_) + (cons _%g4555345558%_ _%g4555445561%_)) + '() + _%g4539945528%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()) + (foldr (lambda (_%g4555545564%_ + _%g4555645567%_) + (cons _%g4555545564%_ + _%g4555645567%_)) + '() + _%g4539845526%_))) + (_%g4539645433%_ _%g4539745437%_))) + _%body4542745523%_ + _%components4541845495%_ + _%hd4540845464%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop4542245504%_ + _%target4541945498%_ + '())) + (_%g4539645433%_ + _%g4539745437%_))))) + (_%g4539645433%_ _%g4539745437%_))))))) + (_%loop4541345476%_ _%target4541045470%_ '())) + (_%g4539645433%_ _%g4539745437%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g4539645433%_ + _%g4539745437%_)))) + (_%g4539645433%_ _%g4539745437%_)))) + (_%g4539645433%_ _%g4539745437%_)))) + (_%g4539645433%_ _%g4539745437%_))))) + (_%g4539545570%_ _%$stx45392%_)))) + (define |gerbil/core/more-syntax-sugar[:0:]#defsyntax-case| + (lambda (_%stx45576%_) + (let* ((_%g4557945616%_ + (lambda (_%g4558045612%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g4558045612%_))) + (_%g4557845784%_ + (lambda (_%g4558045620%_) + (if (gx#stx-pair? _%g4558045620%_) + (let ((_%e4558445623%_ (gx#syntax-e _%g4558045620%_))) + (let ((_%hd4558545627%_ + (let () + (declare (not safe)) + (##car _%e4558445623%_))) + (_%tl4558645630%_ + (let () + (declare (not safe)) + (##cdr _%e4558445623%_)))) + (if (gx#stx-pair? _%tl4558645630%_) + (let ((_%e4558745633%_ + (gx#syntax-e _%tl4558645630%_))) + (let ((_%hd4558845637%_ + (let () + (declare (not safe)) + (##car _%e4558745633%_))) + (_%tl4558945640%_ + (let () + (declare (not safe)) + (##cdr _%e4558745633%_)))) + (if (gx#stx-pair? _%tl4558945640%_) + (let ((_%e4559045643%_ + (gx#syntax-e _%tl4558945640%_))) + (let ((_%hd4559145647%_ + (let () + (declare (not safe)) + (##car _%e4559045643%_))) + (_%tl4559245650%_ + (let () + (declare (not safe)) + (##cdr _%e4559045643%_)))) + (if (gx#stx-pair/null? + _%hd4559145647%_) + (let ((_g45878_ + (gx#syntax-split-splice + _%hd4559145647%_ + '0))) + (begin + (let ((_g45879_ + (let () + (declare (not safe)) + (if (##values? + _g45878_) + (##values-length + _g45878_) + 1)))) + (if (not (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##fx= _g45879_ 2))) + (error "Context expects 2 values" _g45879_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%target4559345653%_ + (let () + (declare (not safe)) + (##values-ref + _g45878_ + 0))) + (_%tl4559545656%_ + (let () + (declare (not safe)) + (##values-ref + _g45878_ + 1)))) + (if (gx#stx-null? + _%tl4559545656%_) + (letrec ((_%loop4559645659%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd4559445663%_ _%lit4560045666%_) + (if (gx#stx-pair? _%hd4559445663%_) + (let ((_%e4559745668%_ + (gx#syntax-e _%hd4559445663%_))) + (let ((_%lp-hd4559845672%_ + (let () + (declare (not safe)) + (##car _%e4559745668%_))) + (_%lp-tl4559945675%_ + (let () + (declare (not safe)) + (##cdr _%e4559745668%_)))) + (_%loop4559645659%_ + _%lp-tl4559945675%_ + (cons _%lp-hd4559845672%_ + _%lit4560045666%_)))) + (let ((_%lit4560145678%_ + (reverse _%lit4560045666%_))) + (if (gx#stx-pair/null? _%tl4559245650%_) + (let ((_g45880_ + (gx#syntax-split-splice + _%tl4559245650%_ + '0))) + (begin + (let ((_g45881_ + (let () + (declare (not safe)) + (if (##values? _g45880_) + (##values-length + _g45880_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g45881_ 2))) + (error "Context expects 2 values" + _g45881_))) + (let ((_%target4560245681%_ + (let () + (declare (not safe)) + (##values-ref _g45880_ 0))) + (_%tl4560445684%_ + (let () + (declare (not safe)) + (##values-ref _g45880_ 1)))) + (if (gx#stx-null? _%tl4560445684%_) + (letrec ((_%loop4560545687%_ + (lambda (_%hd4560345691%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%clause4560945694%_) + (if (gx#stx-pair? _%hd4560345691%_) + (let ((_%e4560645696%_ (gx#syntax-e _%hd4560345691%_))) + (let ((_%lp-hd4560745700%_ + (let () + (declare (not safe)) + (##car _%e4560645696%_))) + (_%lp-tl4560845703%_ + (let () + (declare (not safe)) + (##cdr _%e4560645696%_)))) + (_%loop4560545687%_ + _%lp-tl4560845703%_ + (cons _%lp-hd4560745700%_ _%clause4560945694%_)))) + (let ((_%clause4561045706%_ + (reverse _%clause4560945694%_))) + ((lambda (_%g4558145709%_ + _%g4558245711%_ + _%g4558345712%_) + (let* ((_%g4573745745%_ + (lambda (_%g4573845741%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g4573845741%_))) + (_%g4573645780%_ + (lambda (_%g4573845749%_) + ((lambda (_%g4573945752%_) + (cons (gx#datum->syntax + '#f + 'defsyntax) + (cons _%g4558345712%_ + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'lambda) + (cons (cons _%g4573945752%_ '()) + (cons (cons (gx#datum->syntax '#f 'syntax-case) + (cons _%g4573945752%_ + (cons (foldr (lambda (_%g4576345768%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g4576445771%_) + (cons _%g4576345768%_ _%g4576445771%_)) + '() + _%g4558245711%_) + (foldr (lambda (_%g4576545774%_ _%g4576645777%_) + (cons _%g4576545774%_ _%g4576645777%_)) + '() + _%g4558145709%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g4573845749%_)))) + (_%g4573645780%_ + (gx#syntax-local-introduce 'stx)))) + _%clause4561045706%_ + _%lit4560145678%_ + _%hd4558845637%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop4560545687%_ + _%target4560245681%_ + '())) + (_%g4557945616%_ + _%g4558045620%_))))) + (_%g4557945616%_ _%g4558045620%_))))))) + (_%loop4559645659%_ _%target4559345653%_ '())) + (_%g4557945616%_ _%g4558045620%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g4557945616%_ + _%g4558045620%_)))) + (_%g4557945616%_ _%g4558045620%_)))) + (_%g4557945616%_ _%g4558045620%_)))) + (_%g4557945616%_ _%g4558045620%_))))) + (_%g4557845784%_ _%stx45576%_)))) + (define |gerbil/core/more-syntax-sugar[:0:]#quasisyntax| + (lambda (_%$stx45790%_) + (let ((_%g4579345800%_ + (lambda (_%g4579445796%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g4579445796%_)))) + (_%g4579345800%_ _%$stx45790%_)))))) diff --git a/src/bootstrap/gerbil/core/runtime.ssi b/src/bootstrap/gerbil/core/runtime.ssi index 33c7bb9358..9ff7a8154c 100644 --- a/src/bootstrap/gerbil/core/runtime.ssi +++ b/src/bootstrap/gerbil/core/runtime.ssi @@ -1572,6 +1572,7 @@ namespace: gerbil/core/runtime (fx1- fx1-) (fxshift fxshift) (fx/ fx/) + (fx% fx%) (fx>=0? fx>=0?) (fx>0? fx>0?) (fx=0? fx=0?) @@ -1627,7 +1628,9 @@ namespace: gerbil/core/runtime (gerbil-home gerbil-home) (gerbil-path gerbil-path) (gerbil-runtime-smp? gerbil-runtime-smp?) + (__DEBUG __DEBUG) (c4-linearize c4-linearize) + (class-type class-type) (class-type? class-type?) (class-type=? class-type=?) (class-type-final? class-type-final?) @@ -1675,7 +1678,7 @@ namespace: gerbil/core/runtime (class-instance? class-instance?) (make-object make-object) (object? object?) - (object-type object-type) + (object-class object-class) (object-fill! object-fill!) (new-instance new-instance) (make-instance make-instance) @@ -1706,15 +1709,24 @@ namespace: gerbil/core/runtime (t::t t::t) (class::t class::t) (object::t object::t) + (builtin::t builtin::t) + (subtyped::t subtyped::t) + (structure::t structure::t) (immediate::t immediate::t) + (special::t special::t) (atom::t atom::t) (char::t char::t) (boolean::t boolean::t) (true::t true::t) (false::t false::t) - (void::t void::t) (eof::t eof::t) - (special::t special::t) + (void::t void::t) + (unbound::t unbound::t) + (unbound2::t unbound2::t) + (dssl-token::t dssl-token::t) + (optional::t optional::t) + (key::t key::t) + (rest::t rest::t) (number::t number::t) (real::t real::t) (integer::t integer::t) @@ -1722,6 +1734,8 @@ namespace: gerbil/core/runtime (bignum::t bignum::t) (ratnum::t ratnum::t) (flonum::t flonum::t) + (stflonum::t stflonum::t) + (haflonum::t haflonum::t) (cpxnum::t cpxnum::t) (symbolic::t symbolic::t) (symbol::t symbol::t) @@ -1780,6 +1794,10 @@ namespace: gerbil/core/runtime (socket-info::t socket-info::t) (address-info::t address-info::t) (special? special?) + (dssl-token? dssl-token?) + (dssl-optional? dssl-optional?) + (dssl-rest? dssl-rest?) + (dssl-key? dssl-key?) (sequence? sequence?) (hvector? hvector?) (weak? weak?) diff --git a/src/bootstrap/gerbil/core/sugar~1.scm b/src/bootstrap/gerbil/core/sugar~1.scm index 3b350c59c9..b90a396cb7 100644 --- a/src/bootstrap/gerbil/core/sugar~1.scm +++ b/src/bootstrap/gerbil/core/sugar~1.scm @@ -1,3455 +1,3485 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/sugar~Sugar-1[1]#_g20869_| + (define |gerbil/core/sugar~Sugar-1[1]#_g20706_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-1[1]#_g20870_| + (define |gerbil/core/sugar~Sugar-1[1]#_g20707_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-1[1]#_g20873_| + (define |gerbil/core/sugar~Sugar-1[1]#_g20710_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-1[1]#_g20874_| + (define |gerbil/core/sugar~Sugar-1[1]#_g20711_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) (begin (define |gerbil/core/sugar~Sugar-1[:0:]#defrules| - (lambda (_%$stx1925%_) - (let* ((_%g19291957%_ - (lambda (_%g19301953%_) + (lambda (_%$stx1904%_) + (let* ((_%g19081936%_ + (lambda (_%g19091932%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g19301953%_))) - (_%g19282058%_ - (lambda (_%g19301961%_) - (if (gx#stx-pair? _%g19301961%_) - (let ((_%e19341964%_ (gx#syntax-e _%g19301961%_))) - (let ((_%hd19351968%_ + _%g19091932%_))) + (_%g19072035%_ + (lambda (_%g19091940%_) + (if (gx#stx-pair? _%g19091940%_) + (let ((_%e19131943%_ (gx#syntax-e _%g19091940%_))) + (let ((_%hd19141947%_ (let () (declare (not safe)) - (##car _%e19341964%_))) - (_%tl19361971%_ + (##car _%e19131943%_))) + (_%tl19151950%_ (let () (declare (not safe)) - (##cdr _%e19341964%_)))) - (if (gx#stx-pair? _%tl19361971%_) - (let ((_%e19371974%_ - (gx#syntax-e _%tl19361971%_))) - (let ((_%hd19381978%_ + (##cdr _%e19131943%_)))) + (if (gx#stx-pair? _%tl19151950%_) + (let ((_%e19161953%_ + (gx#syntax-e _%tl19151950%_))) + (let ((_%hd19171957%_ (let () (declare (not safe)) - (##car _%e19371974%_))) - (_%tl19391981%_ + (##car _%e19161953%_))) + (_%tl19181960%_ (let () (declare (not safe)) - (##cdr _%e19371974%_)))) - (if (gx#stx-pair? _%tl19391981%_) - (let ((_%e19401984%_ - (gx#syntax-e _%tl19391981%_))) - (let ((_%hd19411988%_ + (##cdr _%e19161953%_)))) + (if (gx#stx-pair? _%tl19181960%_) + (let ((_%e19191963%_ + (gx#syntax-e _%tl19181960%_))) + (let ((_%hd19201967%_ (let () (declare (not safe)) - (##car _%e19401984%_))) - (_%tl19421991%_ + (##car _%e19191963%_))) + (_%tl19211970%_ (let () (declare (not safe)) - (##cdr _%e19401984%_)))) + (##cdr _%e19191963%_)))) (if (gx#stx-pair/null? - _%tl19421991%_) - (let ((_g20861_ + _%tl19211970%_) + (let ((_g20698_ (gx#syntax-split-splice - _%tl19421991%_ + _%tl19211970%_ '0))) (begin - (let ((_g20862_ + (let ((_g20699_ (let () (declare (not safe)) (if (##values? - _g20861_) + _g20698_) (##values-length - _g20861_) + _g20698_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g20862_ 2))) - (error "Context expects 2 values" _g20862_))) + (##fx= _g20699_ 2))) + (error "Context expects 2 values" _g20699_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target19431994%_ + (let ((_%target19221973%_ (let () (declare (not safe)) (##values-ref - _g20861_ + _g20698_ 0))) - (_%tl19451997%_ + (_%tl19241976%_ (let () (declare (not safe)) (##values-ref - _g20861_ + _g20698_ 1)))) (if (gx#stx-null? - _%tl19451997%_) - (letrec ((_%loop19462000%_ + _%tl19241976%_) + (letrec ((_%loop19251979%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd19442004%_ _%clauses19502007%_) - (if (gx#stx-pair? _%hd19442004%_) - (let ((_%e19472010%_ - (gx#syntax-e _%hd19442004%_))) - (let ((_%lp-hd19482014%_ + (lambda (_%hd19231983%_ _%clauses19291986%_) + (if (gx#stx-pair? _%hd19231983%_) + (let ((_%e19261988%_ + (gx#syntax-e _%hd19231983%_))) + (let ((_%lp-hd19271992%_ (let () (declare (not safe)) - (##car _%e19472010%_))) - (_%lp-tl19492017%_ + (##car _%e19261988%_))) + (_%lp-tl19281995%_ (let () (declare (not safe)) - (##cdr _%e19472010%_)))) - (_%loop19462000%_ - _%lp-tl19492017%_ - (cons _%lp-hd19482014%_ - _%clauses19502007%_)))) - (let ((_%clauses19512020%_ - (reverse _%clauses19502007%_))) - ((lambda (_%L2024%_ _%L2026%_ _%L2027%_) - (if (gx#identifier? _%L2027%_) + (##cdr _%e19261988%_)))) + (_%loop19251979%_ + _%lp-tl19281995%_ + (cons _%lp-hd19271992%_ + _%clauses19291986%_)))) + (let ((_%clauses19301998%_ + (reverse _%clauses19291986%_))) + ((lambda (_%g19102001%_ + _%g19112003%_ + _%g19122004%_) + (if (gx#identifier? _%g19122004%_) (cons (gx#datum->syntax '#f 'define-syntax) - (cons _%L2027%_ + (cons _%g19122004%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'syntax-rules) - (cons _%L2026%_ - (foldr (lambda (_%g20492052%_ _%g20502055%_) - (cons _%g20492052%_ _%g20502055%_)) + (cons _%g19112003%_ + (foldr (lambda (_%g20262029%_ _%g20272032%_) + (cons _%g20262029%_ _%g20272032%_)) '() - _%L2024%_))) + _%g19102001%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g19291957%_ _%g19301961%_))) - _%clauses19512020%_ - _%hd19411988%_ - _%hd19381978%_)))))) - (_%loop19462000%_ _%target19431994%_ '())) - (_%g19291957%_ _%g19301961%_))))) + (_%g19081936%_ _%g19091940%_))) + _%clauses19301998%_ + _%hd19201967%_ + _%hd19171957%_)))))) + (_%loop19251979%_ _%target19221973%_ '())) + (_%g19081936%_ _%g19091940%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g19291957%_ _%g19301961%_)))) - (_%g19291957%_ _%g19301961%_)))) - (_%g19291957%_ _%g19301961%_)))) - (_%g19291957%_ _%g19301961%_))))) - (_%g19282058%_ _%$stx1925%_)))) + (_%g19081936%_ _%g19091940%_)))) + (_%g19081936%_ _%g19091940%_)))) + (_%g19081936%_ _%g19091940%_)))) + (_%g19081936%_ _%g19091940%_))))) + (_%g19072035%_ _%$stx1904%_)))) (define |gerbil/core/sugar~Sugar-1[:0:]#defrule| - (lambda (_%$stx2063%_) - (let* ((_%__stx1833618337%_ _%$stx2063%_) - (_%g20682109%_ + (lambda (_%$stx2040%_) + (let* ((_%__stx1817318174%_ _%$stx2040%_) + (_%g20452086%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1833618337%_)))) - (let ((_%__kont1833918340%_ - (lambda (_%L2239%_ _%L2241%_ _%L2242%_) + _%__stx1817318174%_)))) + (let ((_%__kont1817618177%_ + (lambda (_%g20472216%_ _%g20482218%_ _%g20492219%_) (cons (gx#datum->syntax '#f 'define-syntax) - (cons _%L2242%_ + (cons _%g20492219%_ (cons (cons (gx#datum->syntax '#f 'syntax-rules) (cons '() (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '_) - _%L2241%_) - (cons _%L2239%_ '())) + _%g20482218%_) + (cons _%g20472216%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1834118342%_ - (lambda (_%L2166%_ _%L2168%_ _%L2169%_ _%L2170%_) + (_%__kont1817818179%_ + (lambda (_%g20622143%_ + _%g20632145%_ + _%g20642146%_ + _%g20652147%_) (cons (gx#datum->syntax '#f 'define-syntax) - (cons _%L2170%_ + (cons _%g20652147%_ (cons (cons (gx#datum->syntax '#f 'syntax-rules) (cons '() (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '_) - _%L2169%_) - (cons _%L2168%_ (cons _%L2166%_ '()))) + _%g20642146%_) + (cons _%g20632145%_ (cons _%g20622143%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match1840118402%_ - (lambda (_%e20892116%_ - _%hd20902120%_ - _%tl20912123%_ - _%e20922126%_ - _%hd20932130%_ - _%tl20942133%_ - _%e20952136%_ - _%hd20962140%_ - _%tl20972143%_ - _%e20982146%_ - _%hd20992150%_ - _%tl21002153%_ - _%e21012156%_ - _%hd21022160%_ - _%tl21032163%_) - (let ((_%L2166%_ _%hd21022160%_) - (_%L2168%_ _%hd20992150%_) - (_%L2169%_ _%tl20972143%_) - (_%L2170%_ _%hd20962140%_)) - (if (gx#identifier? _%L2170%_) - (_%__kont1834118342%_ - _%L2166%_ - _%L2168%_ - _%L2169%_ - _%L2170%_) - (let () (declare (not safe)) (_%g20682109%_)))))) - (_%__match1836918370%_ - (lambda (_%e20732199%_ - _%hd20742203%_ - _%tl20752206%_ - _%e20762209%_ - _%hd20772213%_ - _%tl20782216%_ - _%e20792219%_ - _%hd20802223%_ - _%tl20812226%_ - _%e20822229%_ - _%hd20832233%_ - _%tl20842236%_) - (let ((_%L2239%_ _%hd20832233%_) - (_%L2241%_ _%tl20812226%_) - (_%L2242%_ _%hd20802223%_)) - (if (gx#identifier? _%L2242%_) - (_%__kont1833918340%_ - _%L2239%_ - _%L2241%_ - _%L2242%_) - (let () (declare (not safe)) (_%g20682109%_))))))) - (if (gx#stx-pair? _%__stx1833618337%_) - (let ((_%e20732199%_ (gx#syntax-e _%__stx1833618337%_))) - (let ((_%tl20752206%_ - (let () (declare (not safe)) (##cdr _%e20732199%_))) - (_%hd20742203%_ + (let* ((_%__match1823818239%_ + (lambda (_%e20662093%_ + _%hd20672097%_ + _%tl20682100%_ + _%e20692103%_ + _%hd20702107%_ + _%tl20712110%_ + _%e20722113%_ + _%hd20732117%_ + _%tl20742120%_ + _%e20752123%_ + _%hd20762127%_ + _%tl20772130%_ + _%e20782133%_ + _%hd20792137%_ + _%tl20802140%_) + (let ((_%g20622143%_ _%hd20792137%_) + (_%g20632145%_ _%hd20762127%_) + (_%g20642146%_ _%tl20742120%_) + (_%g20652147%_ _%hd20732117%_)) + (if (gx#identifier? _%g20652147%_) + (_%__kont1817818179%_ + _%g20622143%_ + _%g20632145%_ + _%g20642146%_ + _%g20652147%_) + (let () (declare (not safe)) (_%g20452086%_)))))) + (_%__match1820618207%_ + (lambda (_%e20502176%_ + _%hd20512180%_ + _%tl20522183%_ + _%e20532186%_ + _%hd20542190%_ + _%tl20552193%_ + _%e20562196%_ + _%hd20572200%_ + _%tl20582203%_ + _%e20592206%_ + _%hd20602210%_ + _%tl20612213%_) + (let ((_%g20472216%_ _%hd20602210%_) + (_%g20482218%_ _%tl20582203%_) + (_%g20492219%_ _%hd20572200%_)) + (if (gx#identifier? _%g20492219%_) + (_%__kont1817618177%_ + _%g20472216%_ + _%g20482218%_ + _%g20492219%_) + (let () (declare (not safe)) (_%g20452086%_))))))) + (if (gx#stx-pair? _%__stx1817318174%_) + (let ((_%e20502176%_ (gx#syntax-e _%__stx1817318174%_))) + (let ((_%tl20522183%_ + (let () (declare (not safe)) (##cdr _%e20502176%_))) + (_%hd20512180%_ (let () (declare (not safe)) - (##car _%e20732199%_)))) - (if (gx#stx-pair? _%tl20752206%_) - (let ((_%e20762209%_ (gx#syntax-e _%tl20752206%_))) - (let ((_%tl20782216%_ + (##car _%e20502176%_)))) + (if (gx#stx-pair? _%tl20522183%_) + (let ((_%e20532186%_ (gx#syntax-e _%tl20522183%_))) + (let ((_%tl20552193%_ (let () (declare (not safe)) - (##cdr _%e20762209%_))) - (_%hd20772213%_ + (##cdr _%e20532186%_))) + (_%hd20542190%_ (let () (declare (not safe)) - (##car _%e20762209%_)))) - (if (gx#stx-pair? _%hd20772213%_) - (let ((_%e20792219%_ - (gx#syntax-e _%hd20772213%_))) - (let ((_%tl20812226%_ + (##car _%e20532186%_)))) + (if (gx#stx-pair? _%hd20542190%_) + (let ((_%e20562196%_ + (gx#syntax-e _%hd20542190%_))) + (let ((_%tl20582203%_ (let () (declare (not safe)) - (##cdr _%e20792219%_))) - (_%hd20802223%_ + (##cdr _%e20562196%_))) + (_%hd20572200%_ (let () (declare (not safe)) - (##car _%e20792219%_)))) - (if (gx#stx-pair? _%tl20782216%_) - (let ((_%e20822229%_ - (gx#syntax-e _%tl20782216%_))) - (let ((_%tl20842236%_ + (##car _%e20562196%_)))) + (if (gx#stx-pair? _%tl20552193%_) + (let ((_%e20592206%_ + (gx#syntax-e _%tl20552193%_))) + (let ((_%tl20612213%_ (let () (declare (not safe)) - (##cdr _%e20822229%_))) - (_%hd20832233%_ + (##cdr _%e20592206%_))) + (_%hd20602210%_ (let () (declare (not safe)) - (##car _%e20822229%_)))) - (if (gx#stx-null? _%tl20842236%_) - (_%__match1836918370%_ - _%e20732199%_ - _%hd20742203%_ - _%tl20752206%_ - _%e20762209%_ - _%hd20772213%_ - _%tl20782216%_ - _%e20792219%_ - _%hd20802223%_ - _%tl20812226%_ - _%e20822229%_ - _%hd20832233%_ - _%tl20842236%_) + (##car _%e20592206%_)))) + (if (gx#stx-null? _%tl20612213%_) + (_%__match1820618207%_ + _%e20502176%_ + _%hd20512180%_ + _%tl20522183%_ + _%e20532186%_ + _%hd20542190%_ + _%tl20552193%_ + _%e20562196%_ + _%hd20572200%_ + _%tl20582203%_ + _%e20592206%_ + _%hd20602210%_ + _%tl20612213%_) (if (gx#stx-pair? - _%tl20842236%_) - (let ((_%e21012156%_ + _%tl20612213%_) + (let ((_%e20782133%_ (gx#syntax-e - _%tl20842236%_))) - (let ((_%tl21032163%_ + _%tl20612213%_))) + (let ((_%tl20802140%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e21012156%_))) - (_%hd21022160%_ - (let () (declare (not safe)) (##car _%e21012156%_)))) - (if (gx#stx-null? _%tl21032163%_) - (_%__match1840118402%_ - _%e20732199%_ - _%hd20742203%_ - _%tl20752206%_ - _%e20762209%_ - _%hd20772213%_ - _%tl20782216%_ - _%e20792219%_ - _%hd20802223%_ - _%tl20812226%_ - _%e20822229%_ - _%hd20832233%_ - _%tl20842236%_ - _%e21012156%_ - _%hd21022160%_ - _%tl21032163%_) - (let () (declare (not safe)) (_%g20682109%_))))) - (let () (declare (not safe)) (_%g20682109%_)))))) + (##cdr _%e20782133%_))) + (_%hd20792137%_ + (let () (declare (not safe)) (##car _%e20782133%_)))) + (if (gx#stx-null? _%tl20802140%_) + (_%__match1823818239%_ + _%e20502176%_ + _%hd20512180%_ + _%tl20522183%_ + _%e20532186%_ + _%hd20542190%_ + _%tl20552193%_ + _%e20562196%_ + _%hd20572200%_ + _%tl20582203%_ + _%e20592206%_ + _%hd20602210%_ + _%tl20612213%_ + _%e20782133%_ + _%hd20792137%_ + _%tl20802140%_) + (let () (declare (not safe)) (_%g20452086%_))))) + (let () (declare (not safe)) (_%g20452086%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g20682109%_))))) + (_%g20452086%_))))) (let () (declare (not safe)) - (_%g20682109%_))))) - (let () (declare (not safe)) (_%g20682109%_))))) - (let () (declare (not safe)) (_%g20682109%_)))))))) + (_%g20452086%_))))) + (let () (declare (not safe)) (_%g20452086%_))))) + (let () (declare (not safe)) (_%g20452086%_)))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#defsyntax%| - (lambda (_%$stx2264%_) - (let* ((_%__stx1840418405%_ _%$stx2264%_) - (_%g22692308%_ + (lambda (_%$stx2241%_) + (let* ((_%__stx1824118242%_ _%$stx2241%_) + (_%g22462285%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1840418405%_)))) - (let ((_%__kont1840718408%_ - (lambda (_%L2430%_ _%L2432%_ _%L2433%_) + _%__stx1824118242%_)))) + (let ((_%__kont1824418245%_ + (lambda (_%g22482405%_ _%g22492407%_ _%g22502408%_) (cons (gx#datum->syntax '#f 'define-syntax) - (cons _%L2433%_ + (cons _%g22502408%_ (cons (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L2432%_ - (foldr (lambda (_%g24522455%_ + (cons _%g22492407%_ + (foldr (lambda (_%g24272430%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g24532458%_) - (cons _%g24522455%_ _%g24532458%_)) + _%g24282433%_) + (cons _%g24272430%_ _%g24282433%_)) '() - _%L2430%_))) + _%g22482405%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1841118412%_ - (lambda (_%L2345%_ _%L2347%_) + (_%__kont1824818249%_ + (lambda (_%g22692322%_ _%g22702324%_) (cons (gx#datum->syntax '#f 'define-syntax) - (cons _%L2347%_ (cons _%L2345%_ '())))))) - (let* ((_%__match1845918460%_ - (lambda (_%e22942315%_ - _%hd22952319%_ - _%tl22962322%_ - _%e22972325%_ - _%hd22982329%_ - _%tl22992332%_ - _%e23002335%_ - _%hd23012339%_ - _%tl23022342%_) - (let ((_%L2345%_ _%hd23012339%_) - (_%L2347%_ _%hd22982329%_)) - (if (gx#identifier? _%L2347%_) - (_%__kont1841118412%_ _%L2345%_ _%L2347%_) - (let () (declare (not safe)) (_%g22692308%_)))))) - (_%__match1845118452%_ - (lambda (_%e22942315%_ - _%hd22952319%_ - _%tl22962322%_ - _%e22972325%_ - _%hd22982329%_ - _%tl22992332%_) - (if (gx#stx-pair? _%tl22992332%_) - (let ((_%e23002335%_ (gx#syntax-e _%tl22992332%_))) - (let ((_%tl23022342%_ + (cons _%g22702324%_ (cons _%g22692322%_ '())))))) + (let* ((_%__match1829618297%_ + (lambda (_%e22712292%_ + _%hd22722296%_ + _%tl22732299%_ + _%e22742302%_ + _%hd22752306%_ + _%tl22762309%_ + _%e22772312%_ + _%hd22782316%_ + _%tl22792319%_) + (let ((_%g22692322%_ _%hd22782316%_) + (_%g22702324%_ _%hd22752306%_)) + (if (gx#identifier? _%g22702324%_) + (_%__kont1824818249%_ _%g22692322%_ _%g22702324%_) + (let () (declare (not safe)) (_%g22462285%_)))))) + (_%__match1828818289%_ + (lambda (_%e22712292%_ + _%hd22722296%_ + _%tl22732299%_ + _%e22742302%_ + _%hd22752306%_ + _%tl22762309%_) + (if (gx#stx-pair? _%tl22762309%_) + (let ((_%e22772312%_ (gx#syntax-e _%tl22762309%_))) + (let ((_%tl22792319%_ (let () (declare (not safe)) - (##cdr _%e23002335%_))) - (_%hd23012339%_ + (##cdr _%e22772312%_))) + (_%hd22782316%_ (let () (declare (not safe)) - (##car _%e23002335%_)))) - (if (gx#stx-null? _%tl23022342%_) - (_%__match1845918460%_ - _%e22942315%_ - _%hd22952319%_ - _%tl22962322%_ - _%e22972325%_ - _%hd22982329%_ - _%tl22992332%_ - _%e23002335%_ - _%hd23012339%_ - _%tl23022342%_) + (##car _%e22772312%_)))) + (if (gx#stx-null? _%tl22792319%_) + (_%__match1829618297%_ + _%e22712292%_ + _%hd22722296%_ + _%tl22732299%_ + _%e22742302%_ + _%hd22752306%_ + _%tl22762309%_ + _%e22772312%_ + _%hd22782316%_ + _%tl22792319%_) (let () (declare (not safe)) - (_%g22692308%_))))) - (let () (declare (not safe)) (_%g22692308%_))))) - (_%__match1843918440%_ - (lambda (_%e22742370%_ - _%hd22752374%_ - _%tl22762377%_ - _%e22772380%_ - _%hd22782384%_ - _%tl22792387%_ - _%e22802390%_ - _%hd22812394%_ - _%tl22822397%_ - _%__splice1840918410%_ - _%target22832400%_ - _%tl22852403%_) - (letrec ((_%loop22862406%_ - (lambda (_%hd22842410%_ _%body22902413%_) - (if (gx#stx-pair? _%hd22842410%_) - (let ((_%e22872416%_ - (gx#syntax-e _%hd22842410%_))) - (let ((_%lp-tl22892423%_ + (_%g22462285%_))))) + (let () (declare (not safe)) (_%g22462285%_))))) + (_%__match1827618277%_ + (lambda (_%e22512347%_ + _%hd22522351%_ + _%tl22532354%_ + _%e22542357%_ + _%hd22552361%_ + _%tl22562364%_ + _%e22572367%_ + _%hd22582371%_ + _%tl22592374%_ + _%__splice1824618247%_ + _%target22602377%_ + _%tl22622380%_) + (letrec ((_%loop22632383%_ + (lambda (_%hd22612387%_ _%body22672390%_) + (if (gx#stx-pair? _%hd22612387%_) + (let ((_%e22642392%_ + (gx#syntax-e _%hd22612387%_))) + (let ((_%lp-tl22662399%_ (let () (declare (not safe)) - (##cdr _%e22872416%_))) - (_%lp-hd22882420%_ + (##cdr _%e22642392%_))) + (_%lp-hd22652396%_ (let () (declare (not safe)) - (##car _%e22872416%_)))) - (_%loop22862406%_ - _%lp-tl22892423%_ - (cons _%lp-hd22882420%_ - _%body22902413%_)))) - (let ((_%body22912426%_ - (reverse _%body22902413%_))) - (let ((_%L2430%_ _%body22912426%_) - (_%L2432%_ _%tl22822397%_) - (_%L2433%_ _%hd22812394%_)) - (if (gx#identifier? _%L2433%_) - (_%__kont1840718408%_ - _%L2430%_ - _%L2432%_ - _%L2433%_) - (_%__match1845118452%_ - _%e22742370%_ - _%hd22752374%_ - _%tl22762377%_ - _%e22772380%_ - _%hd22782384%_ - _%tl22792387%_)))))))) - (_%loop22862406%_ _%target22832400%_ '()))))) - (if (gx#stx-pair? _%__stx1840418405%_) - (let ((_%e22742370%_ (gx#syntax-e _%__stx1840418405%_))) - (let ((_%tl22762377%_ - (let () (declare (not safe)) (##cdr _%e22742370%_))) - (_%hd22752374%_ + (##car _%e22642392%_)))) + (_%loop22632383%_ + _%lp-tl22662399%_ + (cons _%lp-hd22652396%_ + _%body22672390%_)))) + (let ((_%body22682402%_ + (reverse _%body22672390%_))) + (let ((_%g22482405%_ _%body22682402%_) + (_%g22492407%_ _%tl22592374%_) + (_%g22502408%_ _%hd22582371%_)) + (if (gx#identifier? _%g22502408%_) + (_%__kont1824418245%_ + _%g22482405%_ + _%g22492407%_ + _%g22502408%_) + (_%__match1828818289%_ + _%e22512347%_ + _%hd22522351%_ + _%tl22532354%_ + _%e22542357%_ + _%hd22552361%_ + _%tl22562364%_)))))))) + (_%loop22632383%_ _%target22602377%_ '()))))) + (if (gx#stx-pair? _%__stx1824118242%_) + (let ((_%e22512347%_ (gx#syntax-e _%__stx1824118242%_))) + (let ((_%tl22532354%_ + (let () (declare (not safe)) (##cdr _%e22512347%_))) + (_%hd22522351%_ (let () (declare (not safe)) - (##car _%e22742370%_)))) - (if (gx#stx-pair? _%tl22762377%_) - (let ((_%e22772380%_ (gx#syntax-e _%tl22762377%_))) - (let ((_%tl22792387%_ + (##car _%e22512347%_)))) + (if (gx#stx-pair? _%tl22532354%_) + (let ((_%e22542357%_ (gx#syntax-e _%tl22532354%_))) + (let ((_%tl22562364%_ (let () (declare (not safe)) - (##cdr _%e22772380%_))) - (_%hd22782384%_ + (##cdr _%e22542357%_))) + (_%hd22552361%_ (let () (declare (not safe)) - (##car _%e22772380%_)))) - (if (gx#stx-pair? _%hd22782384%_) - (let ((_%e22802390%_ - (gx#syntax-e _%hd22782384%_))) - (let ((_%tl22822397%_ + (##car _%e22542357%_)))) + (if (gx#stx-pair? _%hd22552361%_) + (let ((_%e22572367%_ + (gx#syntax-e _%hd22552361%_))) + (let ((_%tl22592374%_ (let () (declare (not safe)) - (##cdr _%e22802390%_))) - (_%hd22812394%_ + (##cdr _%e22572367%_))) + (_%hd22582371%_ (let () (declare (not safe)) - (##car _%e22802390%_)))) - (if (gx#stx-pair/null? _%tl22792387%_) - (let ((_%__splice1840918410%_ + (##car _%e22572367%_)))) + (if (gx#stx-pair/null? _%tl22562364%_) + (let ((_%__splice1824618247%_ (gx#syntax-split-splice->vector - _%tl22792387%_ + _%tl22562364%_ '0))) - (let ((_%tl22852403%_ + (let ((_%tl22622380%_ (let () (declare (not safe)) (##vector-ref - _%__splice1840918410%_ + _%__splice1824618247%_ '1))) - (_%target22832400%_ + (_%target22602377%_ (let () (declare (not safe)) (##vector-ref - _%__splice1840918410%_ + _%__splice1824618247%_ '0)))) - (if (gx#stx-null? _%tl22852403%_) - (_%__match1843918440%_ - _%e22742370%_ - _%hd22752374%_ - _%tl22762377%_ - _%e22772380%_ - _%hd22782384%_ - _%tl22792387%_ - _%e22802390%_ - _%hd22812394%_ - _%tl22822397%_ - _%__splice1840918410%_ - _%target22832400%_ - _%tl22852403%_) + (if (gx#stx-null? _%tl22622380%_) + (_%__match1827618277%_ + _%e22512347%_ + _%hd22522351%_ + _%tl22532354%_ + _%e22542357%_ + _%hd22552361%_ + _%tl22562364%_ + _%e22572367%_ + _%hd22582371%_ + _%tl22592374%_ + _%__splice1824618247%_ + _%target22602377%_ + _%tl22622380%_) (if (gx#stx-pair? - _%tl22792387%_) - (let ((_%e23002335%_ + _%tl22562364%_) + (let ((_%e22772312%_ (gx#syntax-e - _%tl22792387%_))) - (let ((_%tl23022342%_ + _%tl22562364%_))) + (let ((_%tl22792319%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e23002335%_))) - (_%hd23012339%_ - (let () (declare (not safe)) (##car _%e23002335%_)))) - (if (gx#stx-null? _%tl23022342%_) - (_%__match1845918460%_ - _%e22742370%_ - _%hd22752374%_ - _%tl22762377%_ - _%e22772380%_ - _%hd22782384%_ - _%tl22792387%_ - _%e23002335%_ - _%hd23012339%_ - _%tl23022342%_) - (let () (declare (not safe)) (_%g22692308%_))))) - (let () (declare (not safe)) (_%g22692308%_)))))) + (##cdr _%e22772312%_))) + (_%hd22782316%_ + (let () (declare (not safe)) (##car _%e22772312%_)))) + (if (gx#stx-null? _%tl22792319%_) + (_%__match1829618297%_ + _%e22512347%_ + _%hd22522351%_ + _%tl22532354%_ + _%e22542357%_ + _%hd22552361%_ + _%tl22562364%_ + _%e22772312%_ + _%hd22782316%_ + _%tl22792319%_) + (let () (declare (not safe)) (_%g22462285%_))))) + (let () (declare (not safe)) (_%g22462285%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl22792387%_) - (let ((_%e23002335%_ + (if (gx#stx-pair? _%tl22562364%_) + (let ((_%e22772312%_ (gx#syntax-e - _%tl22792387%_))) - (let ((_%tl23022342%_ + _%tl22562364%_))) + (let ((_%tl22792319%_ (let () (declare (not safe)) - (##cdr _%e23002335%_))) - (_%hd23012339%_ + (##cdr _%e22772312%_))) + (_%hd22782316%_ (let () (declare (not safe)) - (##car _%e23002335%_)))) + (##car _%e22772312%_)))) (if (gx#stx-null? - _%tl23022342%_) - (_%__match1845918460%_ - _%e22742370%_ - _%hd22752374%_ - _%tl22762377%_ - _%e22772380%_ - _%hd22782384%_ - _%tl22792387%_ - _%e23002335%_ - _%hd23012339%_ - _%tl23022342%_) + _%tl22792319%_) + (_%__match1829618297%_ + _%e22512347%_ + _%hd22522351%_ + _%tl22532354%_ + _%e22542357%_ + _%hd22552361%_ + _%tl22562364%_ + _%e22772312%_ + _%hd22782316%_ + _%tl22792319%_) (let () (declare (not safe)) - (_%g22692308%_))))) + (_%g22462285%_))))) (let () (declare (not safe)) - (_%g22692308%_)))))) - (if (gx#stx-pair? _%tl22792387%_) - (let ((_%e23002335%_ - (gx#syntax-e _%tl22792387%_))) - (let ((_%tl23022342%_ + (_%g22462285%_)))))) + (if (gx#stx-pair? _%tl22562364%_) + (let ((_%e22772312%_ + (gx#syntax-e _%tl22562364%_))) + (let ((_%tl22792319%_ (let () (declare (not safe)) - (##cdr _%e23002335%_))) - (_%hd23012339%_ + (##cdr _%e22772312%_))) + (_%hd22782316%_ (let () (declare (not safe)) - (##car _%e23002335%_)))) - (if (gx#stx-null? _%tl23022342%_) - (_%__match1845918460%_ - _%e22742370%_ - _%hd22752374%_ - _%tl22762377%_ - _%e22772380%_ - _%hd22782384%_ - _%tl22792387%_ - _%e23002335%_ - _%hd23012339%_ - _%tl23022342%_) + (##car _%e22772312%_)))) + (if (gx#stx-null? _%tl22792319%_) + (_%__match1829618297%_ + _%e22512347%_ + _%hd22522351%_ + _%tl22532354%_ + _%e22542357%_ + _%hd22552361%_ + _%tl22562364%_ + _%e22772312%_ + _%hd22782316%_ + _%tl22792319%_) (let () (declare (not safe)) - (_%g22692308%_))))) + (_%g22462285%_))))) (let () (declare (not safe)) - (_%g22692308%_)))))) - (let () (declare (not safe)) (_%g22692308%_))))) - (let () (declare (not safe)) (_%g22692308%_)))))))) + (_%g22462285%_)))))) + (let () (declare (not safe)) (_%g22462285%_))))) + (let () (declare (not safe)) (_%g22462285%_)))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#define| - (lambda (_%$stx2466%_) - (let* ((_%__stx1846218463%_ _%$stx2466%_) - (_%g24712510%_ + (lambda (_%$stx2441%_) + (let* ((_%__stx1829918300%_ _%$stx2441%_) + (_%g24462485%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1846218463%_)))) - (let ((_%__kont1846518466%_ - (lambda (_%L2632%_ _%L2634%_ _%L2635%_) + _%__stx1829918300%_)))) + (let ((_%__kont1830218303%_ + (lambda (_%g24482605%_ _%g24492607%_ _%g24502608%_) (cons (gx#datum->syntax '#f 'define-values) - (cons (cons _%L2635%_ '()) + (cons (cons _%g24502608%_ '()) (cons (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L2634%_ - (foldr (lambda (_%g26542657%_ + (cons _%g24492607%_ + (foldr (lambda (_%g26272630%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g26552660%_) - (cons _%g26542657%_ _%g26552660%_)) + _%g26282633%_) + (cons _%g26272630%_ _%g26282633%_)) '() - _%L2632%_))) + _%g24482605%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1846918470%_ - (lambda (_%L2547%_ _%L2549%_) + (_%__kont1830618307%_ + (lambda (_%g24692522%_ _%g24702524%_) (cons (gx#datum->syntax '#f 'define-values) - (cons (cons _%L2549%_ '()) (cons _%L2547%_ '())))))) - (let* ((_%__match1851718518%_ - (lambda (_%e24962517%_ - _%hd24972521%_ - _%tl24982524%_ - _%e24992527%_ - _%hd25002531%_ - _%tl25012534%_ - _%e25022537%_ - _%hd25032541%_ - _%tl25042544%_) - (let ((_%L2547%_ _%hd25032541%_) - (_%L2549%_ _%hd25002531%_)) - (if (gx#identifier? _%L2549%_) - (_%__kont1846918470%_ _%L2547%_ _%L2549%_) - (let () (declare (not safe)) (_%g24712510%_)))))) - (_%__match1850918510%_ - (lambda (_%e24962517%_ - _%hd24972521%_ - _%tl24982524%_ - _%e24992527%_ - _%hd25002531%_ - _%tl25012534%_) - (if (gx#stx-pair? _%tl25012534%_) - (let ((_%e25022537%_ (gx#syntax-e _%tl25012534%_))) - (let ((_%tl25042544%_ + (cons (cons _%g24702524%_ '()) + (cons _%g24692522%_ '())))))) + (let* ((_%__match1835418355%_ + (lambda (_%e24712492%_ + _%hd24722496%_ + _%tl24732499%_ + _%e24742502%_ + _%hd24752506%_ + _%tl24762509%_ + _%e24772512%_ + _%hd24782516%_ + _%tl24792519%_) + (let ((_%g24692522%_ _%hd24782516%_) + (_%g24702524%_ _%hd24752506%_)) + (if (gx#identifier? _%g24702524%_) + (_%__kont1830618307%_ _%g24692522%_ _%g24702524%_) + (let () (declare (not safe)) (_%g24462485%_)))))) + (_%__match1834618347%_ + (lambda (_%e24712492%_ + _%hd24722496%_ + _%tl24732499%_ + _%e24742502%_ + _%hd24752506%_ + _%tl24762509%_) + (if (gx#stx-pair? _%tl24762509%_) + (let ((_%e24772512%_ (gx#syntax-e _%tl24762509%_))) + (let ((_%tl24792519%_ (let () (declare (not safe)) - (##cdr _%e25022537%_))) - (_%hd25032541%_ + (##cdr _%e24772512%_))) + (_%hd24782516%_ (let () (declare (not safe)) - (##car _%e25022537%_)))) - (if (gx#stx-null? _%tl25042544%_) - (_%__match1851718518%_ - _%e24962517%_ - _%hd24972521%_ - _%tl24982524%_ - _%e24992527%_ - _%hd25002531%_ - _%tl25012534%_ - _%e25022537%_ - _%hd25032541%_ - _%tl25042544%_) + (##car _%e24772512%_)))) + (if (gx#stx-null? _%tl24792519%_) + (_%__match1835418355%_ + _%e24712492%_ + _%hd24722496%_ + _%tl24732499%_ + _%e24742502%_ + _%hd24752506%_ + _%tl24762509%_ + _%e24772512%_ + _%hd24782516%_ + _%tl24792519%_) (let () (declare (not safe)) - (_%g24712510%_))))) - (let () (declare (not safe)) (_%g24712510%_))))) - (_%__match1849718498%_ - (lambda (_%e24762572%_ - _%hd24772576%_ - _%tl24782579%_ - _%e24792582%_ - _%hd24802586%_ - _%tl24812589%_ - _%e24822592%_ - _%hd24832596%_ - _%tl24842599%_ - _%__splice1846718468%_ - _%target24852602%_ - _%tl24872605%_) - (letrec ((_%loop24882608%_ - (lambda (_%hd24862612%_ _%body24922615%_) - (if (gx#stx-pair? _%hd24862612%_) - (let ((_%e24892618%_ - (gx#syntax-e _%hd24862612%_))) - (let ((_%lp-tl24912625%_ + (_%g24462485%_))))) + (let () (declare (not safe)) (_%g24462485%_))))) + (_%__match1833418335%_ + (lambda (_%e24512547%_ + _%hd24522551%_ + _%tl24532554%_ + _%e24542557%_ + _%hd24552561%_ + _%tl24562564%_ + _%e24572567%_ + _%hd24582571%_ + _%tl24592574%_ + _%__splice1830418305%_ + _%target24602577%_ + _%tl24622580%_) + (letrec ((_%loop24632583%_ + (lambda (_%hd24612587%_ _%body24672590%_) + (if (gx#stx-pair? _%hd24612587%_) + (let ((_%e24642592%_ + (gx#syntax-e _%hd24612587%_))) + (let ((_%lp-tl24662599%_ (let () (declare (not safe)) - (##cdr _%e24892618%_))) - (_%lp-hd24902622%_ + (##cdr _%e24642592%_))) + (_%lp-hd24652596%_ (let () (declare (not safe)) - (##car _%e24892618%_)))) - (_%loop24882608%_ - _%lp-tl24912625%_ - (cons _%lp-hd24902622%_ - _%body24922615%_)))) - (let ((_%body24932628%_ - (reverse _%body24922615%_))) - (let ((_%L2632%_ _%body24932628%_) - (_%L2634%_ _%tl24842599%_) - (_%L2635%_ _%hd24832596%_)) - (if (gx#identifier? _%L2635%_) - (_%__kont1846518466%_ - _%L2632%_ - _%L2634%_ - _%L2635%_) - (_%__match1850918510%_ - _%e24762572%_ - _%hd24772576%_ - _%tl24782579%_ - _%e24792582%_ - _%hd24802586%_ - _%tl24812589%_)))))))) - (_%loop24882608%_ _%target24852602%_ '()))))) - (if (gx#stx-pair? _%__stx1846218463%_) - (let ((_%e24762572%_ (gx#syntax-e _%__stx1846218463%_))) - (let ((_%tl24782579%_ - (let () (declare (not safe)) (##cdr _%e24762572%_))) - (_%hd24772576%_ + (##car _%e24642592%_)))) + (_%loop24632583%_ + _%lp-tl24662599%_ + (cons _%lp-hd24652596%_ + _%body24672590%_)))) + (let ((_%body24682602%_ + (reverse _%body24672590%_))) + (let ((_%g24482605%_ _%body24682602%_) + (_%g24492607%_ _%tl24592574%_) + (_%g24502608%_ _%hd24582571%_)) + (if (gx#identifier? _%g24502608%_) + (_%__kont1830218303%_ + _%g24482605%_ + _%g24492607%_ + _%g24502608%_) + (_%__match1834618347%_ + _%e24512547%_ + _%hd24522551%_ + _%tl24532554%_ + _%e24542557%_ + _%hd24552561%_ + _%tl24562564%_)))))))) + (_%loop24632583%_ _%target24602577%_ '()))))) + (if (gx#stx-pair? _%__stx1829918300%_) + (let ((_%e24512547%_ (gx#syntax-e _%__stx1829918300%_))) + (let ((_%tl24532554%_ + (let () (declare (not safe)) (##cdr _%e24512547%_))) + (_%hd24522551%_ (let () (declare (not safe)) - (##car _%e24762572%_)))) - (if (gx#stx-pair? _%tl24782579%_) - (let ((_%e24792582%_ (gx#syntax-e _%tl24782579%_))) - (let ((_%tl24812589%_ + (##car _%e24512547%_)))) + (if (gx#stx-pair? _%tl24532554%_) + (let ((_%e24542557%_ (gx#syntax-e _%tl24532554%_))) + (let ((_%tl24562564%_ (let () (declare (not safe)) - (##cdr _%e24792582%_))) - (_%hd24802586%_ + (##cdr _%e24542557%_))) + (_%hd24552561%_ (let () (declare (not safe)) - (##car _%e24792582%_)))) - (if (gx#stx-pair? _%hd24802586%_) - (let ((_%e24822592%_ - (gx#syntax-e _%hd24802586%_))) - (let ((_%tl24842599%_ + (##car _%e24542557%_)))) + (if (gx#stx-pair? _%hd24552561%_) + (let ((_%e24572567%_ + (gx#syntax-e _%hd24552561%_))) + (let ((_%tl24592574%_ (let () (declare (not safe)) - (##cdr _%e24822592%_))) - (_%hd24832596%_ + (##cdr _%e24572567%_))) + (_%hd24582571%_ (let () (declare (not safe)) - (##car _%e24822592%_)))) - (if (gx#stx-pair/null? _%tl24812589%_) - (let ((_%__splice1846718468%_ + (##car _%e24572567%_)))) + (if (gx#stx-pair/null? _%tl24562564%_) + (let ((_%__splice1830418305%_ (gx#syntax-split-splice->vector - _%tl24812589%_ + _%tl24562564%_ '0))) - (let ((_%tl24872605%_ + (let ((_%tl24622580%_ (let () (declare (not safe)) (##vector-ref - _%__splice1846718468%_ + _%__splice1830418305%_ '1))) - (_%target24852602%_ + (_%target24602577%_ (let () (declare (not safe)) (##vector-ref - _%__splice1846718468%_ + _%__splice1830418305%_ '0)))) - (if (gx#stx-null? _%tl24872605%_) - (_%__match1849718498%_ - _%e24762572%_ - _%hd24772576%_ - _%tl24782579%_ - _%e24792582%_ - _%hd24802586%_ - _%tl24812589%_ - _%e24822592%_ - _%hd24832596%_ - _%tl24842599%_ - _%__splice1846718468%_ - _%target24852602%_ - _%tl24872605%_) + (if (gx#stx-null? _%tl24622580%_) + (_%__match1833418335%_ + _%e24512547%_ + _%hd24522551%_ + _%tl24532554%_ + _%e24542557%_ + _%hd24552561%_ + _%tl24562564%_ + _%e24572567%_ + _%hd24582571%_ + _%tl24592574%_ + _%__splice1830418305%_ + _%target24602577%_ + _%tl24622580%_) (if (gx#stx-pair? - _%tl24812589%_) - (let ((_%e25022537%_ + _%tl24562564%_) + (let ((_%e24772512%_ (gx#syntax-e - _%tl24812589%_))) - (let ((_%tl25042544%_ + _%tl24562564%_))) + (let ((_%tl24792519%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e25022537%_))) - (_%hd25032541%_ - (let () (declare (not safe)) (##car _%e25022537%_)))) - (if (gx#stx-null? _%tl25042544%_) - (_%__match1851718518%_ - _%e24762572%_ - _%hd24772576%_ - _%tl24782579%_ - _%e24792582%_ - _%hd24802586%_ - _%tl24812589%_ - _%e25022537%_ - _%hd25032541%_ - _%tl25042544%_) - (let () (declare (not safe)) (_%g24712510%_))))) - (let () (declare (not safe)) (_%g24712510%_)))))) + (##cdr _%e24772512%_))) + (_%hd24782516%_ + (let () (declare (not safe)) (##car _%e24772512%_)))) + (if (gx#stx-null? _%tl24792519%_) + (_%__match1835418355%_ + _%e24512547%_ + _%hd24522551%_ + _%tl24532554%_ + _%e24542557%_ + _%hd24552561%_ + _%tl24562564%_ + _%e24772512%_ + _%hd24782516%_ + _%tl24792519%_) + (let () (declare (not safe)) (_%g24462485%_))))) + (let () (declare (not safe)) (_%g24462485%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl24812589%_) - (let ((_%e25022537%_ + (if (gx#stx-pair? _%tl24562564%_) + (let ((_%e24772512%_ (gx#syntax-e - _%tl24812589%_))) - (let ((_%tl25042544%_ + _%tl24562564%_))) + (let ((_%tl24792519%_ (let () (declare (not safe)) - (##cdr _%e25022537%_))) - (_%hd25032541%_ + (##cdr _%e24772512%_))) + (_%hd24782516%_ (let () (declare (not safe)) - (##car _%e25022537%_)))) + (##car _%e24772512%_)))) (if (gx#stx-null? - _%tl25042544%_) - (_%__match1851718518%_ - _%e24762572%_ - _%hd24772576%_ - _%tl24782579%_ - _%e24792582%_ - _%hd24802586%_ - _%tl24812589%_ - _%e25022537%_ - _%hd25032541%_ - _%tl25042544%_) + _%tl24792519%_) + (_%__match1835418355%_ + _%e24512547%_ + _%hd24522551%_ + _%tl24532554%_ + _%e24542557%_ + _%hd24552561%_ + _%tl24562564%_ + _%e24772512%_ + _%hd24782516%_ + _%tl24792519%_) (let () (declare (not safe)) - (_%g24712510%_))))) + (_%g24462485%_))))) (let () (declare (not safe)) - (_%g24712510%_)))))) - (if (gx#stx-pair? _%tl24812589%_) - (let ((_%e25022537%_ - (gx#syntax-e _%tl24812589%_))) - (let ((_%tl25042544%_ + (_%g24462485%_)))))) + (if (gx#stx-pair? _%tl24562564%_) + (let ((_%e24772512%_ + (gx#syntax-e _%tl24562564%_))) + (let ((_%tl24792519%_ (let () (declare (not safe)) - (##cdr _%e25022537%_))) - (_%hd25032541%_ + (##cdr _%e24772512%_))) + (_%hd24782516%_ (let () (declare (not safe)) - (##car _%e25022537%_)))) - (if (gx#stx-null? _%tl25042544%_) - (_%__match1851718518%_ - _%e24762572%_ - _%hd24772576%_ - _%tl24782579%_ - _%e24792582%_ - _%hd24802586%_ - _%tl24812589%_ - _%e25022537%_ - _%hd25032541%_ - _%tl25042544%_) + (##car _%e24772512%_)))) + (if (gx#stx-null? _%tl24792519%_) + (_%__match1835418355%_ + _%e24512547%_ + _%hd24522551%_ + _%tl24532554%_ + _%e24542557%_ + _%hd24552561%_ + _%tl24562564%_ + _%e24772512%_ + _%hd24782516%_ + _%tl24792519%_) (let () (declare (not safe)) - (_%g24712510%_))))) + (_%g24462485%_))))) (let () (declare (not safe)) - (_%g24712510%_)))))) - (let () (declare (not safe)) (_%g24712510%_))))) - (let () (declare (not safe)) (_%g24712510%_)))))))) + (_%g24462485%_)))))) + (let () (declare (not safe)) (_%g24462485%_))))) + (let () (declare (not safe)) (_%g24462485%_)))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#let*-values| - (lambda (_%$stx2668%_) - (let* ((_%__stx1852018521%_ _%$stx2668%_) - (_%g26732718%_ + (lambda (_%$stx2641%_) + (let* ((_%__stx1835718358%_ _%$stx2641%_) + (_%g26462691%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1852018521%_)))) - (let ((_%__kont1852318524%_ - (lambda (_%L2876%_) + _%__stx1835718358%_)))) + (let ((_%__kont1836018361%_ + (lambda (_%g26482845%_) (cons (gx#datum->syntax '#f 'let-values) (cons '() - (foldr (lambda (_%g28922895%_ _%g28932898%_) - (cons _%g28922895%_ _%g28932898%_)) + (foldr (lambda (_%g28612864%_ _%g28622867%_) + (cons _%g28612864%_ _%g28622867%_)) '() - _%L2876%_))))) - (_%__kont1852718528%_ - (lambda (_%L2785%_ _%L2787%_ _%L2788%_ _%L2789%_) + _%g26482845%_))))) + (_%__kont1836418365%_ + (lambda (_%g26642756%_ + _%g26652758%_ + _%g26662759%_ + _%g26672760%_) (cons (gx#datum->syntax '#f 'let-values) - (cons (cons _%L2788%_ '()) - (cons (cons _%L2789%_ - (cons _%L2787%_ - (foldr (lambda (_%g28102813%_ + (cons (cons _%g26662759%_ '()) + (cons (cons _%g26672760%_ + (cons _%g26652758%_ + (foldr (lambda (_%g27812784%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g28112816%_) - (cons _%g28102813%_ _%g28112816%_)) + _%g27822787%_) + (cons _%g27812784%_ _%g27822787%_)) '() - _%L2785%_))) + _%g26642756%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match1857918580%_ - (lambda (_%e26952725%_ - _%hd26962729%_ - _%tl26972732%_ - _%e26982735%_ - _%hd26992739%_ - _%tl27002742%_ - _%e27012745%_ - _%hd27022749%_ - _%tl27032752%_ - _%__splice1852918530%_ - _%target27042755%_ - _%tl27062758%_) - (letrec ((_%loop27072761%_ - (lambda (_%hd27052765%_ _%body27112768%_) - (if (gx#stx-pair? _%hd27052765%_) - (let ((_%e27082771%_ - (gx#syntax-e _%hd27052765%_))) - (let ((_%lp-tl27102778%_ + (let* ((_%__match1841618417%_ + (lambda (_%e26682698%_ + _%hd26692702%_ + _%tl26702705%_ + _%e26712708%_ + _%hd26722712%_ + _%tl26732715%_ + _%e26742718%_ + _%hd26752722%_ + _%tl26762725%_ + _%__splice1836618367%_ + _%target26772728%_ + _%tl26792731%_) + (letrec ((_%loop26802734%_ + (lambda (_%hd26782738%_ _%body26842741%_) + (if (gx#stx-pair? _%hd26782738%_) + (let ((_%e26812743%_ + (gx#syntax-e _%hd26782738%_))) + (let ((_%lp-tl26832750%_ (let () (declare (not safe)) - (##cdr _%e27082771%_))) - (_%lp-hd27092775%_ + (##cdr _%e26812743%_))) + (_%lp-hd26822747%_ (let () (declare (not safe)) - (##car _%e27082771%_)))) - (_%loop27072761%_ - _%lp-tl27102778%_ - (cons _%lp-hd27092775%_ - _%body27112768%_)))) - (let ((_%body27122781%_ - (reverse _%body27112768%_))) - (_%__kont1852718528%_ - _%body27122781%_ - _%tl27032752%_ - _%hd27022749%_ - _%hd26962729%_)))))) - (_%loop27072761%_ _%target27042755%_ '())))) - (_%__match1855318554%_ - (lambda (_%e26762826%_ - _%hd26772830%_ - _%tl26782833%_ - _%e26792836%_ - _%hd26802840%_ - _%tl26812843%_ - _%__splice1852518526%_ - _%target26822846%_ - _%tl26842849%_) - (letrec ((_%loop26852852%_ - (lambda (_%hd26832856%_ _%body26892859%_) - (if (gx#stx-pair? _%hd26832856%_) - (let ((_%e26862862%_ - (gx#syntax-e _%hd26832856%_))) - (let ((_%lp-tl26882869%_ + (##car _%e26812743%_)))) + (_%loop26802734%_ + _%lp-tl26832750%_ + (cons _%lp-hd26822747%_ + _%body26842741%_)))) + (let ((_%body26852753%_ + (reverse _%body26842741%_))) + (_%__kont1836418365%_ + _%body26852753%_ + _%tl26762725%_ + _%hd26752722%_ + _%hd26692702%_)))))) + (_%loop26802734%_ _%target26772728%_ '())))) + (_%__match1839018391%_ + (lambda (_%e26492797%_ + _%hd26502801%_ + _%tl26512804%_ + _%e26522807%_ + _%hd26532811%_ + _%tl26542814%_ + _%__splice1836218363%_ + _%target26552817%_ + _%tl26572820%_) + (letrec ((_%loop26582823%_ + (lambda (_%hd26562827%_ _%body26622830%_) + (if (gx#stx-pair? _%hd26562827%_) + (let ((_%e26592832%_ + (gx#syntax-e _%hd26562827%_))) + (let ((_%lp-tl26612839%_ (let () (declare (not safe)) - (##cdr _%e26862862%_))) - (_%lp-hd26872866%_ + (##cdr _%e26592832%_))) + (_%lp-hd26602836%_ (let () (declare (not safe)) - (##car _%e26862862%_)))) - (_%loop26852852%_ - _%lp-tl26882869%_ - (cons _%lp-hd26872866%_ - _%body26892859%_)))) - (let ((_%body26902872%_ - (reverse _%body26892859%_))) - (_%__kont1852318524%_ - _%body26902872%_)))))) - (_%loop26852852%_ _%target26822846%_ '()))))) - (if (gx#stx-pair? _%__stx1852018521%_) - (let ((_%e26762826%_ (gx#syntax-e _%__stx1852018521%_))) - (let ((_%tl26782833%_ - (let () (declare (not safe)) (##cdr _%e26762826%_))) - (_%hd26772830%_ + (##car _%e26592832%_)))) + (_%loop26582823%_ + _%lp-tl26612839%_ + (cons _%lp-hd26602836%_ + _%body26622830%_)))) + (let ((_%body26632842%_ + (reverse _%body26622830%_))) + (_%__kont1836018361%_ + _%body26632842%_)))))) + (_%loop26582823%_ _%target26552817%_ '()))))) + (if (gx#stx-pair? _%__stx1835718358%_) + (let ((_%e26492797%_ (gx#syntax-e _%__stx1835718358%_))) + (let ((_%tl26512804%_ + (let () (declare (not safe)) (##cdr _%e26492797%_))) + (_%hd26502801%_ (let () (declare (not safe)) - (##car _%e26762826%_)))) - (if (gx#stx-pair? _%tl26782833%_) - (let ((_%e26792836%_ (gx#syntax-e _%tl26782833%_))) - (let ((_%tl26812843%_ + (##car _%e26492797%_)))) + (if (gx#stx-pair? _%tl26512804%_) + (let ((_%e26522807%_ (gx#syntax-e _%tl26512804%_))) + (let ((_%tl26542814%_ (let () (declare (not safe)) - (##cdr _%e26792836%_))) - (_%hd26802840%_ + (##cdr _%e26522807%_))) + (_%hd26532811%_ (let () (declare (not safe)) - (##car _%e26792836%_)))) - (if (gx#stx-null? _%hd26802840%_) - (if (gx#stx-pair/null? _%tl26812843%_) - (let ((_%__splice1852518526%_ + (##car _%e26522807%_)))) + (if (gx#stx-null? _%hd26532811%_) + (if (gx#stx-pair/null? _%tl26542814%_) + (let ((_%__splice1836218363%_ (gx#syntax-split-splice->vector - _%tl26812843%_ + _%tl26542814%_ '0))) - (let ((_%tl26842849%_ + (let ((_%tl26572820%_ (let () (declare (not safe)) (##vector-ref - _%__splice1852518526%_ + _%__splice1836218363%_ '1))) - (_%target26822846%_ + (_%target26552817%_ (let () (declare (not safe)) (##vector-ref - _%__splice1852518526%_ + _%__splice1836218363%_ '0)))) - (if (gx#stx-null? _%tl26842849%_) - (_%__match1855318554%_ - _%e26762826%_ - _%hd26772830%_ - _%tl26782833%_ - _%e26792836%_ - _%hd26802840%_ - _%tl26812843%_ - _%__splice1852518526%_ - _%target26822846%_ - _%tl26842849%_) + (if (gx#stx-null? _%tl26572820%_) + (_%__match1839018391%_ + _%e26492797%_ + _%hd26502801%_ + _%tl26512804%_ + _%e26522807%_ + _%hd26532811%_ + _%tl26542814%_ + _%__splice1836218363%_ + _%target26552817%_ + _%tl26572820%_) (let () (declare (not safe)) - (_%g26732718%_))))) + (_%g26462691%_))))) (let () (declare (not safe)) - (_%g26732718%_))) - (if (gx#stx-pair? _%hd26802840%_) - (let ((_%e27012745%_ - (gx#syntax-e _%hd26802840%_))) - (let ((_%tl27032752%_ + (_%g26462691%_))) + (if (gx#stx-pair? _%hd26532811%_) + (let ((_%e26742718%_ + (gx#syntax-e _%hd26532811%_))) + (let ((_%tl26762725%_ (let () (declare (not safe)) - (##cdr _%e27012745%_))) - (_%hd27022749%_ + (##cdr _%e26742718%_))) + (_%hd26752722%_ (let () (declare (not safe)) - (##car _%e27012745%_)))) + (##car _%e26742718%_)))) (if (gx#stx-pair/null? - _%tl26812843%_) - (let ((_%__splice1852918530%_ + _%tl26542814%_) + (let ((_%__splice1836618367%_ (gx#syntax-split-splice->vector - _%tl26812843%_ + _%tl26542814%_ '0))) - (let ((_%tl27062758%_ + (let ((_%tl26792731%_ (let () (declare (not safe)) (##vector-ref - _%__splice1852918530%_ + _%__splice1836618367%_ '1))) - (_%target27042755%_ + (_%target26772728%_ (let () (declare (not safe)) (##vector-ref - _%__splice1852918530%_ + _%__splice1836618367%_ '0)))) (if (gx#stx-null? - _%tl27062758%_) - (_%__match1857918580%_ - _%e26762826%_ - _%hd26772830%_ - _%tl26782833%_ - _%e26792836%_ - _%hd26802840%_ - _%tl26812843%_ - _%e27012745%_ - _%hd27022749%_ - _%tl27032752%_ - _%__splice1852918530%_ - _%target27042755%_ - _%tl27062758%_) + _%tl26792731%_) + (_%__match1841618417%_ + _%e26492797%_ + _%hd26502801%_ + _%tl26512804%_ + _%e26522807%_ + _%hd26532811%_ + _%tl26542814%_ + _%e26742718%_ + _%hd26752722%_ + _%tl26762725%_ + _%__splice1836618367%_ + _%target26772728%_ + _%tl26792731%_) (let () (declare (not safe)) - (_%g26732718%_))))) + (_%g26462691%_))))) (let () (declare (not safe)) - (_%g26732718%_))))) + (_%g26462691%_))))) (let () (declare (not safe)) - (_%g26732718%_)))))) - (let () (declare (not safe)) (_%g26732718%_))))) - (let () (declare (not safe)) (_%g26732718%_)))))))) + (_%g26462691%_)))))) + (let () (declare (not safe)) (_%g26462691%_))))) + (let () (declare (not safe)) (_%g26462691%_)))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#let| - (lambda (_%$stx2907%_) - (let* ((_%__stx1858218583%_ _%$stx2907%_) - (_%g29122976%_ + (lambda (_%$stx2876%_) + (let* ((_%__stx1841918420%_ _%$stx2876%_) + (_%g28812945%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1858218583%_)))) - (let ((_%__kont1858518586%_ - (lambda (_%L3182%_ _%L3184%_ _%L3185%_ _%L3186%_ _%L3187%_) + _%__stx1841918420%_)))) + (let ((_%__kont1842218423%_ + (lambda (_%g28833143%_ + _%g28843145%_ + _%g28853146%_ + _%g28863147%_ + _%g28873148%_) (cons (cons (gx#datum->syntax '#f 'letrec-values) - (cons (cons (cons (cons _%L3187%_ '()) + (cons (cons (cons (cons _%g28873148%_ '()) (cons (cons (gx#datum->syntax '#f 'lambda%) - (cons (foldr (lambda (_%g32123219%_ + (cons (foldr (lambda (_%g31733180%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g32133222%_) - (cons _%g32123219%_ _%g32133222%_)) - _%L3184%_ - _%L3186%_) - (foldr (lambda (_%g32143225%_ _%g32153228%_) - (cons _%g32143225%_ _%g32153228%_)) + _%g31743183%_) + (cons _%g31733180%_ _%g31743183%_)) + _%g28843145%_ + _%g28863147%_) + (foldr (lambda (_%g31753186%_ _%g31763189%_) + (cons _%g31753186%_ _%g31763189%_)) '() - _%L3182%_))) + _%g28833143%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _%L3187%_ '()))) - (foldr (lambda (_%g32163231%_ _%g32173234%_) - (cons _%g32163231%_ _%g32173234%_)) + (cons _%g28873148%_ '()))) + (foldr (lambda (_%g31773192%_ _%g31783195%_) + (cons _%g31773192%_ _%g31783195%_)) '() - _%L3185%_)))) - (_%__kont1859118592%_ - (lambda (_%L3033%_ _%L3035%_) + _%g28853146%_)))) + (_%__kont1842818429%_ + (lambda (_%g29233000%_ _%g29243002%_) (cons (gx#datum->syntax '#f '~let) (cons (gx#datum->syntax '#f 'let-values) - (cons _%L3035%_ - (foldr (lambda (_%g30523055%_ - _%g30533058%_) - (cons _%g30523055%_ - _%g30533058%_)) + (cons _%g29243002%_ + (foldr (lambda (_%g30193022%_ + _%g30203025%_) + (cons _%g30193022%_ + _%g30203025%_)) '() - _%L3033%_))))))) - (let* ((_%__match1863918640%_ - (lambda (_%e29562983%_ - _%hd29572987%_ - _%tl29582990%_ - _%e29592993%_ - _%hd29602997%_ - _%tl29613000%_ - _%__splice1859318594%_ - _%target29623003%_ - _%tl29643006%_) - (letrec ((_%loop29653009%_ - (lambda (_%hd29633013%_ _%body29693016%_) - (if (gx#stx-pair? _%hd29633013%_) - (let ((_%e29663019%_ - (gx#syntax-e _%hd29633013%_))) - (let ((_%lp-tl29683026%_ + _%g29233000%_))))))) + (let* ((_%__match1847618477%_ + (lambda (_%e29252952%_ + _%hd29262956%_ + _%tl29272959%_ + _%e29282962%_ + _%hd29292966%_ + _%tl29302969%_ + _%__splice1843018431%_ + _%target29312972%_ + _%tl29332975%_) + (letrec ((_%loop29342978%_ + (lambda (_%hd29322982%_ _%body29382985%_) + (if (gx#stx-pair? _%hd29322982%_) + (let ((_%e29352987%_ + (gx#syntax-e _%hd29322982%_))) + (let ((_%lp-tl29372994%_ (let () (declare (not safe)) - (##cdr _%e29663019%_))) - (_%lp-hd29673023%_ + (##cdr _%e29352987%_))) + (_%lp-hd29362991%_ (let () (declare (not safe)) - (##car _%e29663019%_)))) - (_%loop29653009%_ - _%lp-tl29683026%_ - (cons _%lp-hd29673023%_ - _%body29693016%_)))) - (let ((_%body29703029%_ - (reverse _%body29693016%_))) - (_%__kont1859118592%_ - _%body29703029%_ - _%hd29602997%_)))))) - (_%loop29653009%_ _%target29623003%_ '())))) - (_%__match1863118632%_ - (lambda (_%e29562983%_ - _%hd29572987%_ - _%tl29582990%_ - _%e29592993%_ - _%hd29602997%_ - _%tl29613000%_) - (if (gx#stx-pair/null? _%tl29613000%_) - (let ((_%__splice1859318594%_ + (##car _%e29352987%_)))) + (_%loop29342978%_ + _%lp-tl29372994%_ + (cons _%lp-hd29362991%_ + _%body29382985%_)))) + (let ((_%body29392997%_ + (reverse _%body29382985%_))) + (_%__kont1842818429%_ + _%body29392997%_ + _%hd29292966%_)))))) + (_%loop29342978%_ _%target29312972%_ '())))) + (_%__match1846818469%_ + (lambda (_%e29252952%_ + _%hd29262956%_ + _%tl29272959%_ + _%e29282962%_ + _%hd29292966%_ + _%tl29302969%_) + (if (gx#stx-pair/null? _%tl29302969%_) + (let ((_%__splice1843018431%_ (gx#syntax-split-splice->vector - _%tl29613000%_ + _%tl29302969%_ '0))) - (let ((_%tl29643006%_ + (let ((_%tl29332975%_ (let () (declare (not safe)) - (##vector-ref _%__splice1859318594%_ '1))) - (_%target29623003%_ + (##vector-ref _%__splice1843018431%_ '1))) + (_%target29312972%_ (let () (declare (not safe)) (##vector-ref - _%__splice1859318594%_ + _%__splice1843018431%_ '0)))) - (if (gx#stx-null? _%tl29643006%_) - (_%__match1863918640%_ - _%e29562983%_ - _%hd29572987%_ - _%tl29582990%_ - _%e29592993%_ - _%hd29602997%_ - _%tl29613000%_ - _%__splice1859318594%_ - _%target29623003%_ - _%tl29643006%_) + (if (gx#stx-null? _%tl29332975%_) + (_%__match1847618477%_ + _%e29252952%_ + _%hd29262956%_ + _%tl29272959%_ + _%e29282962%_ + _%hd29292966%_ + _%tl29302969%_ + _%__splice1843018431%_ + _%target29312972%_ + _%tl29332975%_) (let () (declare (not safe)) - (_%g29122976%_))))) - (let () (declare (not safe)) (_%g29122976%_))))) - (_%__match1861918620%_ - (lambda (_%e29193068%_ - _%hd29203072%_ - _%tl29213075%_ - _%e29223078%_ - _%hd29233082%_ - _%tl29243085%_ - _%e29253088%_ - _%hd29263092%_ - _%tl29273095%_ - _%__splice1858718588%_ - _%target29283098%_ - _%tl29303101%_) - (letrec ((_%loop29313104%_ - (lambda (_%hd29293108%_ - _%arg29353111%_ - _%var29363113%_) - (if (gx#stx-pair? _%hd29293108%_) - (let ((_%e29323116%_ - (gx#syntax-e _%hd29293108%_))) - (let ((_%lp-tl29343123%_ + (_%g28812945%_))))) + (let () (declare (not safe)) (_%g28812945%_))))) + (_%__match1845618457%_ + (lambda (_%e28883035%_ + _%hd28893039%_ + _%tl28903042%_ + _%e28913045%_ + _%hd28923049%_ + _%tl28933052%_ + _%e28943055%_ + _%hd28953059%_ + _%tl28963062%_ + _%__splice1842418425%_ + _%target28973065%_ + _%tl28993068%_) + (letrec ((_%loop29003071%_ + (lambda (_%hd28983075%_ + _%arg29043078%_ + _%var29053079%_) + (if (gx#stx-pair? _%hd28983075%_) + (let ((_%e29013081%_ + (gx#syntax-e _%hd28983075%_))) + (let ((_%lp-tl29033088%_ (let () (declare (not safe)) - (##cdr _%e29323116%_))) - (_%lp-hd29333120%_ + (##cdr _%e29013081%_))) + (_%lp-hd29023085%_ (let () (declare (not safe)) - (##car _%e29323116%_)))) - (if (gx#stx-pair? _%lp-hd29333120%_) - (let ((_%e29393126%_ + (##car _%e29013081%_)))) + (if (gx#stx-pair? _%lp-hd29023085%_) + (let ((_%e29083091%_ (gx#syntax-e - _%lp-hd29333120%_))) - (let ((_%tl29413133%_ + _%lp-hd29023085%_))) + (let ((_%tl29103098%_ (let () (declare (not safe)) - (##cdr _%e29393126%_))) - (_%hd29403130%_ + (##cdr _%e29083091%_))) + (_%hd29093095%_ (let () (declare (not safe)) - (##car _%e29393126%_)))) + (##car _%e29083091%_)))) (if (gx#stx-pair? - _%tl29413133%_) - (let ((_%e29423136%_ + _%tl29103098%_) + (let ((_%e29113101%_ (gx#syntax-e - _%tl29413133%_))) - (let ((_%tl29443143%_ + _%tl29103098%_))) + (let ((_%tl29133108%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e29423136%_))) - (_%hd29433140%_ - (let () (declare (not safe)) (##car _%e29423136%_)))) - (if (gx#stx-null? _%tl29443143%_) - (_%loop29313104%_ - _%lp-tl29343123%_ - (cons _%hd29433140%_ _%arg29353111%_) - (cons _%hd29403130%_ _%var29363113%_)) - (_%__match1863118632%_ - _%e29193068%_ - _%hd29203072%_ - _%tl29213075%_ - _%e29223078%_ - _%hd29233082%_ - _%tl29243085%_)))) - (_%__match1863118632%_ - _%e29193068%_ - _%hd29203072%_ - _%tl29213075%_ - _%e29223078%_ - _%hd29233082%_ - _%tl29243085%_)))) + (##cdr _%e29113101%_))) + (_%hd29123105%_ + (let () (declare (not safe)) (##car _%e29113101%_)))) + (if (gx#stx-null? _%tl29133108%_) + (_%loop29003071%_ + _%lp-tl29033088%_ + (cons _%hd29123105%_ _%arg29043078%_) + (cons _%hd29093095%_ _%var29053079%_)) + (_%__match1846818469%_ + _%e28883035%_ + _%hd28893039%_ + _%tl28903042%_ + _%e28913045%_ + _%hd28923049%_ + _%tl28933052%_)))) + (_%__match1846818469%_ + _%e28883035%_ + _%hd28893039%_ + _%tl28903042%_ + _%e28913045%_ + _%hd28923049%_ + _%tl28933052%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match1863118632%_ - _%e29193068%_ - _%hd29203072%_ - _%tl29213075%_ - _%e29223078%_ - _%hd29233082%_ - _%tl29243085%_)))) - (let ((_%var29383149%_ - (reverse _%var29363113%_)) - (_%arg29373146%_ - (reverse _%arg29353111%_))) - (if (gx#stx-pair/null? _%tl29273095%_) - (let ((_%__splice1858918590%_ + (_%__match1846818469%_ + _%e28883035%_ + _%hd28893039%_ + _%tl28903042%_ + _%e28913045%_ + _%hd28923049%_ + _%tl28933052%_)))) + (let ((_%var29073113%_ + (reverse _%var29053079%_)) + (_%arg29063111%_ + (reverse _%arg29043078%_))) + (if (gx#stx-pair/null? _%tl28963062%_) + (let ((_%__splice1842618427%_ (gx#syntax-split-splice->vector - _%tl29273095%_ + _%tl28963062%_ '0))) - (let ((_%tl29473155%_ + (let ((_%tl29163118%_ (let () (declare (not safe)) (##vector-ref - _%__splice1858918590%_ + _%__splice1842618427%_ '1))) - (_%target29453152%_ + (_%target29143115%_ (let () (declare (not safe)) (##vector-ref - _%__splice1858918590%_ + _%__splice1842618427%_ '0)))) (if (gx#stx-null? - _%tl29473155%_) - (letrec ((_%loop29483158%_ - (lambda (_%hd29463162%_ + _%tl29163118%_) + (letrec ((_%loop29173121%_ + (lambda (_%hd29153125%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body29523165%_) - (if (gx#stx-pair? _%hd29463162%_) - (let ((_%e29493168%_ (gx#syntax-e _%hd29463162%_))) - (let ((_%lp-tl29513175%_ + _%body29213128%_) + (if (gx#stx-pair? _%hd29153125%_) + (let ((_%e29183130%_ (gx#syntax-e _%hd29153125%_))) + (let ((_%lp-tl29203137%_ (let () (declare (not safe)) - (##cdr _%e29493168%_))) - (_%lp-hd29503172%_ + (##cdr _%e29183130%_))) + (_%lp-hd29193134%_ (let () (declare (not safe)) - (##car _%e29493168%_)))) - (_%loop29483158%_ - _%lp-tl29513175%_ - (cons _%lp-hd29503172%_ _%body29523165%_)))) - (let ((_%body29533178%_ - (reverse _%body29523165%_))) - (let ((_%L3182%_ _%body29533178%_) - (_%L3184%_ _%tl29303101%_) - (_%L3185%_ _%arg29373146%_) - (_%L3186%_ _%var29383149%_) - (_%L3187%_ _%hd29233082%_)) - (if (gx#identifier? _%L3187%_) - (_%__kont1858518586%_ - _%L3182%_ - _%L3184%_ - _%L3185%_ - _%L3186%_ - _%L3187%_) - (_%__match1863118632%_ - _%e29193068%_ - _%hd29203072%_ - _%tl29213075%_ - _%e29223078%_ - _%hd29233082%_ - _%tl29243085%_)))))))) - (_%loop29483158%_ _%target29453152%_ '())) + (##car _%e29183130%_)))) + (_%loop29173121%_ + _%lp-tl29203137%_ + (cons _%lp-hd29193134%_ _%body29213128%_)))) + (let ((_%body29223140%_ + (reverse _%body29213128%_))) + (let ((_%g28833143%_ _%body29223140%_) + (_%g28843145%_ _%tl28993068%_) + (_%g28853146%_ _%arg29063111%_) + (_%g28863147%_ _%var29073113%_) + (_%g28873148%_ _%hd28923049%_)) + (if (gx#identifier? _%g28873148%_) + (_%__kont1842218423%_ + _%g28833143%_ + _%g28843145%_ + _%g28853146%_ + _%g28863147%_ + _%g28873148%_) + (_%__match1846818469%_ + _%e28883035%_ + _%hd28893039%_ + _%tl28903042%_ + _%e28913045%_ + _%hd28923049%_ + _%tl28933052%_)))))))) + (_%loop29173121%_ _%target29143115%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match1863118632%_ - _%e29193068%_ - _%hd29203072%_ - _%tl29213075%_ - _%e29223078%_ - _%hd29233082%_ - _%tl29243085%_)))) - (_%__match1863118632%_ - _%e29193068%_ - _%hd29203072%_ - _%tl29213075%_ - _%e29223078%_ - _%hd29233082%_ - _%tl29243085%_))))))) - (_%loop29313104%_ _%target29283098%_ '() '()))))) - (if (gx#stx-pair? _%__stx1858218583%_) - (let ((_%e29193068%_ (gx#syntax-e _%__stx1858218583%_))) - (let ((_%tl29213075%_ - (let () (declare (not safe)) (##cdr _%e29193068%_))) - (_%hd29203072%_ + (_%__match1846818469%_ + _%e28883035%_ + _%hd28893039%_ + _%tl28903042%_ + _%e28913045%_ + _%hd28923049%_ + _%tl28933052%_)))) + (_%__match1846818469%_ + _%e28883035%_ + _%hd28893039%_ + _%tl28903042%_ + _%e28913045%_ + _%hd28923049%_ + _%tl28933052%_))))))) + (_%loop29003071%_ _%target28973065%_ '() '()))))) + (if (gx#stx-pair? _%__stx1841918420%_) + (let ((_%e28883035%_ (gx#syntax-e _%__stx1841918420%_))) + (let ((_%tl28903042%_ + (let () (declare (not safe)) (##cdr _%e28883035%_))) + (_%hd28893039%_ (let () (declare (not safe)) - (##car _%e29193068%_)))) - (if (gx#stx-pair? _%tl29213075%_) - (let ((_%e29223078%_ (gx#syntax-e _%tl29213075%_))) - (let ((_%tl29243085%_ + (##car _%e28883035%_)))) + (if (gx#stx-pair? _%tl28903042%_) + (let ((_%e28913045%_ (gx#syntax-e _%tl28903042%_))) + (let ((_%tl28933052%_ (let () (declare (not safe)) - (##cdr _%e29223078%_))) - (_%hd29233082%_ + (##cdr _%e28913045%_))) + (_%hd28923049%_ (let () (declare (not safe)) - (##car _%e29223078%_)))) - (if (gx#stx-pair? _%tl29243085%_) - (let ((_%e29253088%_ - (gx#syntax-e _%tl29243085%_))) - (let ((_%tl29273095%_ + (##car _%e28913045%_)))) + (if (gx#stx-pair? _%tl28933052%_) + (let ((_%e28943055%_ + (gx#syntax-e _%tl28933052%_))) + (let ((_%tl28963062%_ (let () (declare (not safe)) - (##cdr _%e29253088%_))) - (_%hd29263092%_ + (##cdr _%e28943055%_))) + (_%hd28953059%_ (let () (declare (not safe)) - (##car _%e29253088%_)))) - (if (gx#stx-pair/null? _%hd29263092%_) - (let ((_%__splice1858718588%_ + (##car _%e28943055%_)))) + (if (gx#stx-pair/null? _%hd28953059%_) + (let ((_%__splice1842418425%_ (gx#syntax-split-splice->vector - _%hd29263092%_ + _%hd28953059%_ '0))) - (let ((_%tl29303101%_ + (let ((_%tl28993068%_ (let () (declare (not safe)) (##vector-ref - _%__splice1858718588%_ + _%__splice1842418425%_ '1))) - (_%target29283098%_ + (_%target28973065%_ (let () (declare (not safe)) (##vector-ref - _%__splice1858718588%_ + _%__splice1842418425%_ '0)))) - (_%__match1861918620%_ - _%e29193068%_ - _%hd29203072%_ - _%tl29213075%_ - _%e29223078%_ - _%hd29233082%_ - _%tl29243085%_ - _%e29253088%_ - _%hd29263092%_ - _%tl29273095%_ - _%__splice1858718588%_ - _%target29283098%_ - _%tl29303101%_))) + (_%__match1845618457%_ + _%e28883035%_ + _%hd28893039%_ + _%tl28903042%_ + _%e28913045%_ + _%hd28923049%_ + _%tl28933052%_ + _%e28943055%_ + _%hd28953059%_ + _%tl28963062%_ + _%__splice1842418425%_ + _%target28973065%_ + _%tl28993068%_))) (if (gx#stx-pair/null? - _%tl29243085%_) - (let ((_%__splice1859318594%_ + _%tl28933052%_) + (let ((_%__splice1843018431%_ (gx#syntax-split-splice->vector - _%tl29243085%_ + _%tl28933052%_ '0))) - (let ((_%tl29643006%_ + (let ((_%tl29332975%_ (let () (declare (not safe)) (##vector-ref - _%__splice1859318594%_ + _%__splice1843018431%_ '1))) - (_%target29623003%_ + (_%target29312972%_ (let () (declare (not safe)) (##vector-ref - _%__splice1859318594%_ + _%__splice1843018431%_ '0)))) (if (gx#stx-null? - _%tl29643006%_) - (_%__match1863918640%_ - _%e29193068%_ - _%hd29203072%_ - _%tl29213075%_ - _%e29223078%_ - _%hd29233082%_ - _%tl29243085%_ - _%__splice1859318594%_ - _%target29623003%_ - _%tl29643006%_) + _%tl29332975%_) + (_%__match1847618477%_ + _%e28883035%_ + _%hd28893039%_ + _%tl28903042%_ + _%e28913045%_ + _%hd28923049%_ + _%tl28933052%_ + _%__splice1843018431%_ + _%target29312972%_ + _%tl29332975%_) (let () (declare (not safe)) - (_%g29122976%_))))) + (_%g28812945%_))))) (let () (declare (not safe)) - (_%g29122976%_)))))) - (if (gx#stx-pair/null? _%tl29243085%_) - (let ((_%__splice1859318594%_ + (_%g28812945%_)))))) + (if (gx#stx-pair/null? _%tl28933052%_) + (let ((_%__splice1843018431%_ (gx#syntax-split-splice->vector - _%tl29243085%_ + _%tl28933052%_ '0))) - (let ((_%tl29643006%_ + (let ((_%tl29332975%_ (let () (declare (not safe)) (##vector-ref - _%__splice1859318594%_ + _%__splice1843018431%_ '1))) - (_%target29623003%_ + (_%target29312972%_ (let () (declare (not safe)) (##vector-ref - _%__splice1859318594%_ + _%__splice1843018431%_ '0)))) - (if (gx#stx-null? _%tl29643006%_) - (_%__match1863918640%_ - _%e29193068%_ - _%hd29203072%_ - _%tl29213075%_ - _%e29223078%_ - _%hd29233082%_ - _%tl29243085%_ - _%__splice1859318594%_ - _%target29623003%_ - _%tl29643006%_) + (if (gx#stx-null? _%tl29332975%_) + (_%__match1847618477%_ + _%e28883035%_ + _%hd28893039%_ + _%tl28903042%_ + _%e28913045%_ + _%hd28923049%_ + _%tl28933052%_ + _%__splice1843018431%_ + _%target29312972%_ + _%tl29332975%_) (let () (declare (not safe)) - (_%g29122976%_))))) + (_%g28812945%_))))) (let () (declare (not safe)) - (_%g29122976%_)))))) - (let () (declare (not safe)) (_%g29122976%_))))) - (let () (declare (not safe)) (_%g29122976%_)))))))) + (_%g28812945%_)))))) + (let () (declare (not safe)) (_%g28812945%_))))) + (let () (declare (not safe)) (_%g28812945%_)))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#let*| - (lambda (_%$stx3244%_) - (let* ((_%g32483272%_ - (lambda (_%g32493268%_) + (lambda (_%$stx3205%_) + (let* ((_%g32093233%_ + (lambda (_%g32103229%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g32493268%_))) - (_%g32473357%_ - (lambda (_%g32493276%_) - (if (gx#stx-pair? _%g32493276%_) - (let ((_%e32523279%_ (gx#syntax-e _%g32493276%_))) - (let ((_%hd32533283%_ + _%g32103229%_))) + (_%g32083316%_ + (lambda (_%g32103237%_) + (if (gx#stx-pair? _%g32103237%_) + (let ((_%e32133240%_ (gx#syntax-e _%g32103237%_))) + (let ((_%hd32143244%_ (let () (declare (not safe)) - (##car _%e32523279%_))) - (_%tl32543286%_ + (##car _%e32133240%_))) + (_%tl32153247%_ (let () (declare (not safe)) - (##cdr _%e32523279%_)))) - (if (gx#stx-pair? _%tl32543286%_) - (let ((_%e32553289%_ - (gx#syntax-e _%tl32543286%_))) - (let ((_%hd32563293%_ + (##cdr _%e32133240%_)))) + (if (gx#stx-pair? _%tl32153247%_) + (let ((_%e32163250%_ + (gx#syntax-e _%tl32153247%_))) + (let ((_%hd32173254%_ (let () (declare (not safe)) - (##car _%e32553289%_))) - (_%tl32573296%_ + (##car _%e32163250%_))) + (_%tl32183257%_ (let () (declare (not safe)) - (##cdr _%e32553289%_)))) - (if (gx#stx-pair/null? _%tl32573296%_) - (let ((_g20863_ + (##cdr _%e32163250%_)))) + (if (gx#stx-pair/null? _%tl32183257%_) + (let ((_g20700_ (gx#syntax-split-splice - _%tl32573296%_ + _%tl32183257%_ '0))) (begin - (let ((_g20864_ + (let ((_g20701_ (let () (declare (not safe)) - (if (##values? _g20863_) + (if (##values? _g20700_) (##values-length - _g20863_) + _g20700_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20864_ 2))) + (##fx= _g20701_ 2))) (error "Context expects 2 values" - _g20864_))) - (let ((_%target32583299%_ + _g20701_))) + (let ((_%target32193260%_ (let () (declare (not safe)) - (##values-ref _g20863_ 0))) - (_%tl32603302%_ + (##values-ref _g20700_ 0))) + (_%tl32213263%_ (let () (declare (not safe)) - (##values-ref _g20863_ 1)))) - (if (gx#stx-null? _%tl32603302%_) - (letrec ((_%loop32613305%_ - (lambda (_%hd32593309%_ + (##values-ref _g20700_ 1)))) + (if (gx#stx-null? _%tl32213263%_) + (letrec ((_%loop32223266%_ + (lambda (_%hd32203270%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body32653312%_) - (if (gx#stx-pair? _%hd32593309%_) - (let ((_%e32623315%_ (gx#syntax-e _%hd32593309%_))) - (let ((_%lp-hd32633319%_ + _%body32263273%_) + (if (gx#stx-pair? _%hd32203270%_) + (let ((_%e32233275%_ (gx#syntax-e _%hd32203270%_))) + (let ((_%lp-hd32243279%_ (let () (declare (not safe)) - (##car _%e32623315%_))) - (_%lp-tl32643322%_ + (##car _%e32233275%_))) + (_%lp-tl32253282%_ (let () (declare (not safe)) - (##cdr _%e32623315%_)))) - (_%loop32613305%_ - _%lp-tl32643322%_ - (cons _%lp-hd32633319%_ _%body32653312%_)))) - (let ((_%body32663325%_ (reverse _%body32653312%_))) - ((lambda (_%L3329%_ _%L3331%_) + (##cdr _%e32233275%_)))) + (_%loop32223266%_ + _%lp-tl32253282%_ + (cons _%lp-hd32243279%_ _%body32263273%_)))) + (let ((_%body32273285%_ (reverse _%body32263273%_))) + ((lambda (_%g32113288%_ _%g32123290%_) (cons (gx#datum->syntax '#f '~let) (cons (gx#datum->syntax '#f 'let*-values) - (cons _%L3331%_ - (foldr (lambda (_%g33483351%_ - _%g33493354%_) - (cons _%g33483351%_ - _%g33493354%_)) + (cons _%g32123290%_ + (foldr (lambda (_%g33073310%_ + _%g33083313%_) + (cons _%g33073310%_ + _%g33083313%_)) '() - _%L3329%_))))) - _%body32663325%_ - _%hd32563293%_)))))) + _%g32113288%_))))) + _%body32273285%_ + _%hd32173254%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop32613305%_ - _%target32583299%_ + (_%loop32223266%_ + _%target32193260%_ '())) - (_%g32483272%_ - _%g32493276%_))))) - (_%g32483272%_ _%g32493276%_)))) - (_%g32483272%_ _%g32493276%_)))) - (_%g32483272%_ _%g32493276%_))))) - (_%g32473357%_ _%$stx3244%_)))) + (_%g32093233%_ + _%g32103237%_))))) + (_%g32093233%_ _%g32103237%_)))) + (_%g32093233%_ _%g32103237%_)))) + (_%g32093233%_ _%g32103237%_))))) + (_%g32083316%_ _%$stx3205%_)))) (define |gerbil/core/sugar~Sugar-1[:0:]#letrec| - (lambda (_%$stx3362%_) - (let* ((_%g33663390%_ - (lambda (_%g33673386%_) + (lambda (_%$stx3321%_) + (let* ((_%g33253349%_ + (lambda (_%g33263345%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g33673386%_))) - (_%g33653475%_ - (lambda (_%g33673394%_) - (if (gx#stx-pair? _%g33673394%_) - (let ((_%e33703397%_ (gx#syntax-e _%g33673394%_))) - (let ((_%hd33713401%_ + _%g33263345%_))) + (_%g33243432%_ + (lambda (_%g33263353%_) + (if (gx#stx-pair? _%g33263353%_) + (let ((_%e33293356%_ (gx#syntax-e _%g33263353%_))) + (let ((_%hd33303360%_ (let () (declare (not safe)) - (##car _%e33703397%_))) - (_%tl33723404%_ + (##car _%e33293356%_))) + (_%tl33313363%_ (let () (declare (not safe)) - (##cdr _%e33703397%_)))) - (if (gx#stx-pair? _%tl33723404%_) - (let ((_%e33733407%_ - (gx#syntax-e _%tl33723404%_))) - (let ((_%hd33743411%_ + (##cdr _%e33293356%_)))) + (if (gx#stx-pair? _%tl33313363%_) + (let ((_%e33323366%_ + (gx#syntax-e _%tl33313363%_))) + (let ((_%hd33333370%_ (let () (declare (not safe)) - (##car _%e33733407%_))) - (_%tl33753414%_ + (##car _%e33323366%_))) + (_%tl33343373%_ (let () (declare (not safe)) - (##cdr _%e33733407%_)))) - (if (gx#stx-pair/null? _%tl33753414%_) - (let ((_g20865_ + (##cdr _%e33323366%_)))) + (if (gx#stx-pair/null? _%tl33343373%_) + (let ((_g20702_ (gx#syntax-split-splice - _%tl33753414%_ + _%tl33343373%_ '0))) (begin - (let ((_g20866_ + (let ((_g20703_ (let () (declare (not safe)) - (if (##values? _g20865_) + (if (##values? _g20702_) (##values-length - _g20865_) + _g20702_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20866_ 2))) + (##fx= _g20703_ 2))) (error "Context expects 2 values" - _g20866_))) - (let ((_%target33763417%_ + _g20703_))) + (let ((_%target33353376%_ (let () (declare (not safe)) - (##values-ref _g20865_ 0))) - (_%tl33783420%_ + (##values-ref _g20702_ 0))) + (_%tl33373379%_ (let () (declare (not safe)) - (##values-ref _g20865_ 1)))) - (if (gx#stx-null? _%tl33783420%_) - (letrec ((_%loop33793423%_ - (lambda (_%hd33773427%_ + (##values-ref _g20702_ 1)))) + (if (gx#stx-null? _%tl33373379%_) + (letrec ((_%loop33383382%_ + (lambda (_%hd33363386%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body33833430%_) - (if (gx#stx-pair? _%hd33773427%_) - (let ((_%e33803433%_ (gx#syntax-e _%hd33773427%_))) - (let ((_%lp-hd33813437%_ + _%body33423389%_) + (if (gx#stx-pair? _%hd33363386%_) + (let ((_%e33393391%_ (gx#syntax-e _%hd33363386%_))) + (let ((_%lp-hd33403395%_ (let () (declare (not safe)) - (##car _%e33803433%_))) - (_%lp-tl33823440%_ + (##car _%e33393391%_))) + (_%lp-tl33413398%_ (let () (declare (not safe)) - (##cdr _%e33803433%_)))) - (_%loop33793423%_ - _%lp-tl33823440%_ - (cons _%lp-hd33813437%_ _%body33833430%_)))) - (let ((_%body33843443%_ (reverse _%body33833430%_))) - ((lambda (_%L3447%_ _%L3449%_) + (##cdr _%e33393391%_)))) + (_%loop33383382%_ + _%lp-tl33413398%_ + (cons _%lp-hd33403395%_ _%body33423389%_)))) + (let ((_%body33433401%_ (reverse _%body33423389%_))) + ((lambda (_%g33273404%_ _%g33283406%_) (cons (gx#datum->syntax '#f '~let) (cons (gx#datum->syntax '#f 'letrec-values) - (cons _%L3449%_ - (foldr (lambda (_%g34663469%_ - _%g34673472%_) - (cons _%g34663469%_ - _%g34673472%_)) + (cons _%g33283406%_ + (foldr (lambda (_%g34233426%_ + _%g34243429%_) + (cons _%g34233426%_ + _%g34243429%_)) '() - _%L3447%_))))) - _%body33843443%_ - _%hd33743411%_)))))) + _%g33273404%_))))) + _%body33433401%_ + _%hd33333370%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop33793423%_ - _%target33763417%_ + (_%loop33383382%_ + _%target33353376%_ '())) - (_%g33663390%_ - _%g33673394%_))))) - (_%g33663390%_ _%g33673394%_)))) - (_%g33663390%_ _%g33673394%_)))) - (_%g33663390%_ _%g33673394%_))))) - (_%g33653475%_ _%$stx3362%_)))) + (_%g33253349%_ + _%g33263353%_))))) + (_%g33253349%_ _%g33263353%_)))) + (_%g33253349%_ _%g33263353%_)))) + (_%g33253349%_ _%g33263353%_))))) + (_%g33243432%_ _%$stx3321%_)))) (define |gerbil/core/sugar~Sugar-1[:0:]#letrec*| - (lambda (_%$stx3480%_) - (let* ((_%g34843508%_ - (lambda (_%g34853504%_) + (lambda (_%$stx3437%_) + (let* ((_%g34413465%_ + (lambda (_%g34423461%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g34853504%_))) - (_%g34833593%_ - (lambda (_%g34853512%_) - (if (gx#stx-pair? _%g34853512%_) - (let ((_%e34883515%_ (gx#syntax-e _%g34853512%_))) - (let ((_%hd34893519%_ + _%g34423461%_))) + (_%g34403548%_ + (lambda (_%g34423469%_) + (if (gx#stx-pair? _%g34423469%_) + (let ((_%e34453472%_ (gx#syntax-e _%g34423469%_))) + (let ((_%hd34463476%_ (let () (declare (not safe)) - (##car _%e34883515%_))) - (_%tl34903522%_ + (##car _%e34453472%_))) + (_%tl34473479%_ (let () (declare (not safe)) - (##cdr _%e34883515%_)))) - (if (gx#stx-pair? _%tl34903522%_) - (let ((_%e34913525%_ - (gx#syntax-e _%tl34903522%_))) - (let ((_%hd34923529%_ + (##cdr _%e34453472%_)))) + (if (gx#stx-pair? _%tl34473479%_) + (let ((_%e34483482%_ + (gx#syntax-e _%tl34473479%_))) + (let ((_%hd34493486%_ (let () (declare (not safe)) - (##car _%e34913525%_))) - (_%tl34933532%_ + (##car _%e34483482%_))) + (_%tl34503489%_ (let () (declare (not safe)) - (##cdr _%e34913525%_)))) - (if (gx#stx-pair/null? _%tl34933532%_) - (let ((_g20867_ + (##cdr _%e34483482%_)))) + (if (gx#stx-pair/null? _%tl34503489%_) + (let ((_g20704_ (gx#syntax-split-splice - _%tl34933532%_ + _%tl34503489%_ '0))) (begin - (let ((_g20868_ + (let ((_g20705_ (let () (declare (not safe)) - (if (##values? _g20867_) + (if (##values? _g20704_) (##values-length - _g20867_) + _g20704_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20868_ 2))) + (##fx= _g20705_ 2))) (error "Context expects 2 values" - _g20868_))) - (let ((_%target34943535%_ + _g20705_))) + (let ((_%target34513492%_ (let () (declare (not safe)) - (##values-ref _g20867_ 0))) - (_%tl34963538%_ + (##values-ref _g20704_ 0))) + (_%tl34533495%_ (let () (declare (not safe)) - (##values-ref _g20867_ 1)))) - (if (gx#stx-null? _%tl34963538%_) - (letrec ((_%loop34973541%_ - (lambda (_%hd34953545%_ + (##values-ref _g20704_ 1)))) + (if (gx#stx-null? _%tl34533495%_) + (letrec ((_%loop34543498%_ + (lambda (_%hd34523502%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body35013548%_) - (if (gx#stx-pair? _%hd34953545%_) - (let ((_%e34983551%_ (gx#syntax-e _%hd34953545%_))) - (let ((_%lp-hd34993555%_ + _%body34583505%_) + (if (gx#stx-pair? _%hd34523502%_) + (let ((_%e34553507%_ (gx#syntax-e _%hd34523502%_))) + (let ((_%lp-hd34563511%_ (let () (declare (not safe)) - (##car _%e34983551%_))) - (_%lp-tl35003558%_ + (##car _%e34553507%_))) + (_%lp-tl34573514%_ (let () (declare (not safe)) - (##cdr _%e34983551%_)))) - (_%loop34973541%_ - _%lp-tl35003558%_ - (cons _%lp-hd34993555%_ _%body35013548%_)))) - (let ((_%body35023561%_ (reverse _%body35013548%_))) - ((lambda (_%L3565%_ _%L3567%_) + (##cdr _%e34553507%_)))) + (_%loop34543498%_ + _%lp-tl34573514%_ + (cons _%lp-hd34563511%_ _%body34583505%_)))) + (let ((_%body34593517%_ (reverse _%body34583505%_))) + ((lambda (_%g34433520%_ _%g34443522%_) (cons (gx#datum->syntax '#f '~let) (cons (gx#datum->syntax '#f 'letrec*-values) - (cons _%L3567%_ - (foldr (lambda (_%g35843587%_ - _%g35853590%_) - (cons _%g35843587%_ - _%g35853590%_)) + (cons _%g34443522%_ + (foldr (lambda (_%g35393542%_ + _%g35403545%_) + (cons _%g35393542%_ + _%g35403545%_)) '() - _%L3565%_))))) - _%body35023561%_ - _%hd34923529%_)))))) + _%g34433520%_))))) + _%body34593517%_ + _%hd34493486%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop34973541%_ - _%target34943535%_ + (_%loop34543498%_ + _%target34513492%_ '())) - (_%g34843508%_ - _%g34853512%_))))) - (_%g34843508%_ _%g34853512%_)))) - (_%g34843508%_ _%g34853512%_)))) - (_%g34843508%_ _%g34853512%_))))) - (_%g34833593%_ _%$stx3480%_)))) + (_%g34413465%_ + _%g34423469%_))))) + (_%g34413465%_ _%g34423469%_)))) + (_%g34413465%_ _%g34423469%_)))) + (_%g34413465%_ _%g34423469%_))))) + (_%g34403548%_ _%$stx3437%_)))) (define |gerbil/core/sugar~Sugar-1[:0:]#~let| - (lambda (_%stx3598%_) - (letrec ((_%let-head?3601%_ - (lambda (_%x4081%_) - (let* ((_%__stx1864218643%_ _%x4081%_) - (_%g40854096%_ + (lambda (_%stx3553%_) + (letrec ((_%let-head?3556%_ + (lambda (_%x4028%_) + (let* ((_%__stx1847918480%_ _%x4028%_) + (_%g40324043%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1864218643%_)))) - (let ((_%__kont1864518646%_ - (lambda (_%L4124%_) - (gx#stx-andmap gx#identifier? _%L4124%_))) - (_%__kont1864718648%_ - (lambda () (gx#identifier? _%x4081%_)))) - (if (gx#stx-pair? _%__stx1864218643%_) - (let ((_%e40884114%_ - (gx#syntax-e _%__stx1864218643%_))) - (let ((_%tl40904121%_ + _%__stx1847918480%_)))) + (let ((_%__kont1848218483%_ + (lambda (_%g40344071%_) + (gx#stx-andmap gx#identifier? _%g40344071%_))) + (_%__kont1848418485%_ + (lambda () (gx#identifier? _%x4028%_)))) + (if (gx#stx-pair? _%__stx1847918480%_) + (let ((_%e40354061%_ + (gx#syntax-e _%__stx1847918480%_))) + (let ((_%tl40374068%_ (let () (declare (not safe)) - (##cdr _%e40884114%_))) - (_%hd40894118%_ + (##cdr _%e40354061%_))) + (_%hd40364065%_ (let () (declare (not safe)) - (##car _%e40884114%_)))) - (if (gx#identifier? _%hd40894118%_) + (##car _%e40354061%_)))) + (if (gx#identifier? _%hd40364065%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-1[1]#_g20869_| - _%hd40894118%_) - (_%__kont1864518646%_ _%tl40904121%_) - (_%__kont1864718648%_)) - (_%__kont1864718648%_)))) - (_%__kont1864718648%_)))))) - (_%let-head3603%_ - (lambda (_%x4021%_) - (let* ((_%__stx1866218663%_ _%x4021%_) - (_%g40254036%_ + |gerbil/core/sugar~Sugar-1[1]#_g20706_| + _%hd40364065%_) + (_%__kont1848218483%_ _%tl40374068%_) + (_%__kont1848418485%_)) + (_%__kont1848418485%_)))) + (_%__kont1848418485%_)))))) + (_%let-head3558%_ + (lambda (_%x3968%_) + (let* ((_%__stx1849918500%_ _%x3968%_) + (_%g39723983%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1866218663%_)))) - (let ((_%__kont1866518666%_ - (lambda (_%L4064%_) _%L4064%_)) - (_%__kont1866718668%_ - (lambda () (list _%x4021%_)))) - (if (gx#stx-pair? _%__stx1866218663%_) - (let ((_%e40284054%_ - (gx#syntax-e _%__stx1866218663%_))) - (let ((_%tl40304061%_ + _%__stx1849918500%_)))) + (let ((_%__kont1850218503%_ + (lambda (_%g39744011%_) _%g39744011%_)) + (_%__kont1850418505%_ + (lambda () (list _%x3968%_)))) + (if (gx#stx-pair? _%__stx1849918500%_) + (let ((_%e39754001%_ + (gx#syntax-e _%__stx1849918500%_))) + (let ((_%tl39774008%_ (let () (declare (not safe)) - (##cdr _%e40284054%_))) - (_%hd40294058%_ + (##cdr _%e39754001%_))) + (_%hd39764005%_ (let () (declare (not safe)) - (##car _%e40284054%_)))) - (if (gx#identifier? _%hd40294058%_) + (##car _%e39754001%_)))) + (if (gx#identifier? _%hd39764005%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-1[1]#_g20870_| - _%hd40294058%_) - (_%__kont1866518666%_ _%tl40304061%_) - (_%__kont1866718668%_)) - (_%__kont1866718668%_)))) - (_%__kont1866718668%_))))))) - (let* ((_%__stx1868218683%_ _%stx3598%_) - (_%g36063672%_ + |gerbil/core/sugar~Sugar-1[1]#_g20707_| + _%hd39764005%_) + (_%__kont1850218503%_ _%tl39774008%_) + (_%__kont1850418505%_)) + (_%__kont1850418505%_)))) + (_%__kont1850418505%_))))))) + (let* ((_%__stx1851918520%_ _%stx3553%_) + (_%g35613627%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1868218683%_)))) - (let ((_%__kont1868518686%_ - (lambda (_%L3990%_ _%L3992%_ _%L3993%_ _%L3994%_ _%L3995%_) - (cons _%L3995%_ - (cons _%L3994%_ - (cons (cons (cons _%L3993%_ - (cons _%L3992%_ '())) + _%__stx1851918520%_)))) + (let ((_%__kont1852218523%_ + (lambda (_%g35633937%_ + _%g35643939%_ + _%g35653940%_ + _%g35663941%_ + _%g35673942%_) + (cons _%g35673942%_ + (cons _%g35663941%_ + (cons (cons (cons _%g35653940%_ + (cons _%g35643939%_ '())) '()) - _%L3990%_))))) - (_%__kont1868718688%_ - (lambda (_%L3793%_ _%L3795%_ _%L3796%_ _%L3797%_) - (let* ((_%g38323849%_ - (lambda (_%g38333845%_) + _%g35633937%_))))) + (_%__kont1852418525%_ + (lambda (_%g35833742%_ + _%g35843744%_ + _%g35853745%_ + _%g35863746%_) + (let* ((_%g37813798%_ + (lambda (_%g37823794%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g38333845%_))) - (_%g38313921%_ - (lambda (_%g38333853%_) - (if (gx#stx-pair/null? _%g38333853%_) - (let ((_g20871_ + _%g37823794%_))) + (_%g37803868%_ + (lambda (_%g37823802%_) + (if (gx#stx-pair/null? _%g37823802%_) + (let ((_g20708_ (gx#syntax-split-splice - _%g38333853%_ + _%g37823802%_ '0))) (begin - (let ((_g20872_ + (let ((_g20709_ (let () (declare (not safe)) - (if (##values? _g20871_) - (##values-length _g20871_) + (if (##values? _g20708_) + (##values-length _g20708_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20872_ 2))) + (##fx= _g20709_ 2))) (error "Context expects 2 values" - _g20872_))) - (let ((_%target38353856%_ + _g20709_))) + (let ((_%target37843805%_ (let () (declare (not safe)) - (##values-ref _g20871_ 0))) - (_%tl38373859%_ + (##values-ref _g20708_ 0))) + (_%tl37863808%_ (let () (declare (not safe)) - (##values-ref _g20871_ 1)))) - (if (gx#stx-null? _%tl38373859%_) - (letrec ((_%loop38383862%_ - (lambda (_%hd38363866%_ - _%hd-bind38423869%_) + (##values-ref _g20708_ 1)))) + (if (gx#stx-null? _%tl37863808%_) + (letrec ((_%loop37873811%_ + (lambda (_%hd37853815%_ + _%hd-bind37913818%_) (if (gx#stx-pair? - _%hd38363866%_) - (let ((_%e38393872%_ + _%hd37853815%_) + (let ((_%e37883820%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd38363866%_))) - (let ((_%lp-hd38403876%_ + (gx#syntax-e _%hd37853815%_))) + (let ((_%lp-hd37893824%_ (let () (declare (not safe)) - (##car _%e38393872%_))) - (_%lp-tl38413879%_ + (##car _%e37883820%_))) + (_%lp-tl37903827%_ (let () (declare (not safe)) - (##cdr _%e38393872%_)))) - (_%loop38383862%_ - _%lp-tl38413879%_ - (cons _%lp-hd38403876%_ _%hd-bind38423869%_)))) - (let ((_%hd-bind38433882%_ (reverse _%hd-bind38423869%_))) - ((lambda (_%L3886%_) - (cons _%L3797%_ + (##cdr _%e37883820%_)))) + (_%loop37873811%_ + _%lp-tl37903827%_ + (cons _%lp-hd37893824%_ _%hd-bind37913818%_)))) + (let ((_%hd-bind37923830%_ (reverse _%hd-bind37913818%_))) + ((lambda (_%g37833833%_) + (cons _%g35863746%_ (cons (begin (gx#syntax-check-splice-targets - _%L3795%_ - _%L3886%_) - (foldr (lambda (_%g39013907%_ - _%g39023910%_ - _%g39033912%_) - (cons (cons _%g39023910%_ - (cons _%g39013907%_ + _%g35843744%_ + _%g37833833%_) + (foldr (lambda (_%g38483854%_ + _%g38493857%_ + _%g38503859%_) + (cons (cons _%g38493857%_ + (cons _%g38483854%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%g39033912%_)) + _%g38503859%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L3795%_ - _%L3886%_)) - (foldr (lambda (_%g39043915%_ - _%g39053918%_) - (cons _%g39043915%_ - _%g39053918%_)) + _%g35843744%_ + _%g37833833%_)) + (foldr (lambda (_%g38513862%_ + _%g38523865%_) + (cons _%g38513862%_ + _%g38523865%_)) '() - _%L3793%_)))) - _%hd-bind38433882%_)))))) + _%g35833742%_)))) + _%hd-bind37923830%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop38383862%_ - _%target38353856%_ + (_%loop37873811%_ + _%target37843805%_ '())) - (_%g38323849%_ _%g38333853%_))))) - (_%g38323849%_ _%g38333853%_))))) - (_%g38313921%_ + (_%g37813798%_ _%g37823802%_))))) + (_%g37813798%_ _%g37823802%_))))) + (_%g37803868%_ (gx#stx-map - _%let-head3603%_ - (foldr (lambda (_%g39243927%_ _%g39253930%_) - (cons _%g39243927%_ _%g39253930%_)) + _%let-head3558%_ + (foldr (lambda (_%g38713874%_ _%g38723877%_) + (cons _%g38713874%_ _%g38723877%_)) '() - _%L3796%_))))))) - (let* ((_%__match1875118752%_ - (lambda (_%e36323679%_ - _%hd36333683%_ - _%tl36343686%_ - _%e36353689%_ - _%hd36363693%_ - _%tl36373696%_ - _%e36383699%_ - _%hd36393703%_ - _%tl36403706%_ - _%__splice1868918690%_ - _%target36413709%_ - _%tl36433712%_) - (letrec ((_%loop36443715%_ - (lambda (_%hd36423719%_ - _%e36483722%_ - _%hd36493724%_) - (if (gx#stx-pair? _%hd36423719%_) - (let ((_%e36453727%_ - (gx#syntax-e _%hd36423719%_))) - (let ((_%lp-tl36473734%_ + _%g35853745%_))))))) + (let* ((_%__match1858818589%_ + (lambda (_%e35873634%_ + _%hd35883638%_ + _%tl35893641%_ + _%e35903644%_ + _%hd35913648%_ + _%tl35923651%_ + _%e35933654%_ + _%hd35943658%_ + _%tl35953661%_ + _%__splice1852618527%_ + _%target35963664%_ + _%tl35983667%_) + (letrec ((_%loop35993670%_ + (lambda (_%hd35973674%_ + _%e36033677%_ + _%hd36043678%_) + (if (gx#stx-pair? _%hd35973674%_) + (let ((_%e36003680%_ + (gx#syntax-e _%hd35973674%_))) + (let ((_%lp-tl36023687%_ (let () (declare (not safe)) - (##cdr _%e36453727%_))) - (_%lp-hd36463731%_ + (##cdr _%e36003680%_))) + (_%lp-hd36013684%_ (let () (declare (not safe)) - (##car _%e36453727%_)))) + (##car _%e36003680%_)))) (if (gx#stx-pair? - _%lp-hd36463731%_) - (let ((_%e36523737%_ + _%lp-hd36013684%_) + (let ((_%e36073690%_ (gx#syntax-e - _%lp-hd36463731%_))) - (let ((_%tl36543744%_ + _%lp-hd36013684%_))) + (let ((_%tl36093697%_ (let () (declare (not safe)) - (##cdr _%e36523737%_))) - (_%hd36533741%_ + (##cdr _%e36073690%_))) + (_%hd36083694%_ (let () (declare (not safe)) - (##car _%e36523737%_)))) + (##car _%e36073690%_)))) (if (gx#stx-pair? - _%tl36543744%_) - (let ((_%e36553747%_ + _%tl36093697%_) + (let ((_%e36103700%_ (gx#syntax-e - _%tl36543744%_))) - (let ((_%tl36573754%_ + _%tl36093697%_))) + (let ((_%tl36123707%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e36553747%_))) - (_%hd36563751%_ - (let () (declare (not safe)) (##car _%e36553747%_)))) - (if (gx#stx-null? _%tl36573754%_) - (_%loop36443715%_ - _%lp-tl36473734%_ - (cons _%hd36563751%_ _%e36483722%_) - (cons _%hd36533741%_ _%hd36493724%_)) - (let () (declare (not safe)) (_%g36063672%_))))) - (let () (declare (not safe)) (_%g36063672%_))))) + (let () (declare (not safe)) (##cdr _%e36103700%_))) + (_%hd36113704%_ + (let () (declare (not safe)) (##car _%e36103700%_)))) + (if (gx#stx-null? _%tl36123707%_) + (_%loop35993670%_ + _%lp-tl36023687%_ + (cons _%hd36113704%_ _%e36033677%_) + (cons _%hd36083694%_ _%hd36043678%_)) + (let () (declare (not safe)) (_%g35613627%_))))) + (let () (declare (not safe)) (_%g35613627%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g36063672%_))))) - (let ((_%hd36513760%_ - (reverse _%hd36493724%_)) - (_%e36503757%_ - (reverse _%e36483722%_))) + (_%g35613627%_))))) + (let ((_%hd36063712%_ + (reverse _%hd36043678%_)) + (_%e36053710%_ + (reverse _%e36033677%_))) (if (gx#stx-pair/null? - _%tl36403706%_) - (let ((_%__splice1869118692%_ + _%tl35953661%_) + (let ((_%__splice1852818529%_ (gx#syntax-split-splice->vector - _%tl36403706%_ + _%tl35953661%_ '0))) - (let ((_%tl36603766%_ + (let ((_%tl36153717%_ (let () (declare (not safe)) (##vector-ref - _%__splice1869118692%_ + _%__splice1852818529%_ '1))) - (_%target36583763%_ + (_%target36133714%_ (let () (declare (not safe)) (##vector-ref - _%__splice1869118692%_ + _%__splice1852818529%_ '0)))) (if (gx#stx-null? - _%tl36603766%_) - (letrec ((_%loop36613769%_ - (lambda (_%hd36593773%_ + _%tl36153717%_) + (letrec ((_%loop36163720%_ + (lambda (_%hd36143724%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body36653776%_) - (if (gx#stx-pair? _%hd36593773%_) - (let ((_%e36623779%_ - (gx#syntax-e _%hd36593773%_))) - (let ((_%lp-tl36643786%_ + _%body36203727%_) + (if (gx#stx-pair? _%hd36143724%_) + (let ((_%e36173729%_ + (gx#syntax-e _%hd36143724%_))) + (let ((_%lp-tl36193736%_ (let () (declare (not safe)) - (##cdr _%e36623779%_))) - (_%lp-hd36633783%_ + (##cdr _%e36173729%_))) + (_%lp-hd36183733%_ (let () (declare (not safe)) - (##car _%e36623779%_)))) - (_%loop36613769%_ - _%lp-tl36643786%_ - (cons _%lp-hd36633783%_ _%body36653776%_)))) - (let ((_%body36663789%_ - (reverse _%body36653776%_))) - (let ((_%L3793%_ _%body36663789%_) - (_%L3795%_ _%e36503757%_) - (_%L3796%_ _%hd36513760%_) - (_%L3797%_ _%hd36363693%_)) + (##car _%e36173729%_)))) + (_%loop36163720%_ + _%lp-tl36193736%_ + (cons _%lp-hd36183733%_ _%body36203727%_)))) + (let ((_%body36213739%_ + (reverse _%body36203727%_))) + (let ((_%g35833742%_ _%body36213739%_) + (_%g35843744%_ _%e36053710%_) + (_%g35853745%_ _%hd36063712%_) + (_%g35863746%_ _%hd35913648%_)) (if (gx#stx-andmap - _%let-head?3601%_ - (foldr (lambda (_%g38233826%_ - _%g38243829%_) - (cons _%g38233826%_ - _%g38243829%_)) + _%let-head?3556%_ + (foldr (lambda (_%g37723775%_ + _%g37733778%_) + (cons _%g37723775%_ + _%g37733778%_)) '() - _%L3796%_)) - (_%__kont1868718688%_ - _%L3793%_ - _%L3795%_ - _%L3796%_ - _%L3797%_) + _%g35853745%_)) + (_%__kont1852418525%_ + _%g35833742%_ + _%g35843744%_ + _%g35853745%_ + _%g35863746%_) (let () (declare (not safe)) - (_%g36063672%_))))))))) - (_%loop36613769%_ _%target36583763%_ '())) - (let () (declare (not safe)) (_%g36063672%_))))) + (_%g35613627%_))))))))) + (_%loop36163720%_ _%target36133714%_ '())) + (let () (declare (not safe)) (_%g35613627%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g36063672%_)))))))) - (_%loop36443715%_ _%target36413709%_ '() '())))) - (_%__match1872518726%_ - (lambda (_%e36133940%_ - _%hd36143944%_ - _%tl36153947%_ - _%e36163950%_ - _%hd36173954%_ - _%tl36183957%_ - _%e36193960%_ - _%hd36203964%_ - _%tl36213967%_ - _%e36223970%_ - _%hd36233974%_ - _%tl36243977%_ - _%e36253980%_ - _%hd36263984%_ - _%tl36273987%_) - (let ((_%L3990%_ _%tl36213967%_) - (_%L3992%_ _%hd36263984%_) - (_%L3993%_ _%hd36233974%_) - (_%L3994%_ _%hd36173954%_) - (_%L3995%_ _%hd36143944%_)) - (if (_%let-head?3601%_ _%L3993%_) - (_%__kont1868518686%_ - _%L3990%_ - _%L3992%_ - _%L3993%_ - _%L3994%_ - _%L3995%_) - (if (gx#stx-pair/null? _%hd36203964%_) - (let ((_%__splice1868918690%_ + (_%g35613627%_)))))))) + (_%loop35993670%_ _%target35963664%_ '() '())))) + (_%__match1856218563%_ + (lambda (_%e35683887%_ + _%hd35693891%_ + _%tl35703894%_ + _%e35713897%_ + _%hd35723901%_ + _%tl35733904%_ + _%e35743907%_ + _%hd35753911%_ + _%tl35763914%_ + _%e35773917%_ + _%hd35783921%_ + _%tl35793924%_ + _%e35803927%_ + _%hd35813931%_ + _%tl35823934%_) + (let ((_%g35633937%_ _%tl35763914%_) + (_%g35643939%_ _%hd35813931%_) + (_%g35653940%_ _%hd35783921%_) + (_%g35663941%_ _%hd35723901%_) + (_%g35673942%_ _%hd35693891%_)) + (if (_%let-head?3556%_ _%g35653940%_) + (_%__kont1852218523%_ + _%g35633937%_ + _%g35643939%_ + _%g35653940%_ + _%g35663941%_ + _%g35673942%_) + (if (gx#stx-pair/null? _%hd35753911%_) + (let ((_%__splice1852618527%_ (gx#syntax-split-splice->vector - _%hd36203964%_ + _%hd35753911%_ '0))) - (let ((_%tl36433712%_ + (let ((_%tl35983667%_ (let () (declare (not safe)) (##vector-ref - _%__splice1868918690%_ + _%__splice1852618527%_ '1))) - (_%target36413709%_ + (_%target35963664%_ (let () (declare (not safe)) (##vector-ref - _%__splice1868918690%_ + _%__splice1852618527%_ '0)))) - (if (gx#stx-null? _%tl36433712%_) - (_%__match1875118752%_ - _%e36133940%_ - _%hd36143944%_ - _%tl36153947%_ - _%e36163950%_ - _%hd36173954%_ - _%tl36183957%_ - _%e36193960%_ - _%hd36203964%_ - _%tl36213967%_ - _%__splice1868918690%_ - _%target36413709%_ - _%tl36433712%_) + (if (gx#stx-null? _%tl35983667%_) + (_%__match1858818589%_ + _%e35683887%_ + _%hd35693891%_ + _%tl35703894%_ + _%e35713897%_ + _%hd35723901%_ + _%tl35733904%_ + _%e35743907%_ + _%hd35753911%_ + _%tl35763914%_ + _%__splice1852618527%_ + _%target35963664%_ + _%tl35983667%_) (let () (declare (not safe)) - (_%g36063672%_))))) + (_%g35613627%_))))) (let () (declare (not safe)) - (_%g36063672%_)))))))) - (if (gx#stx-pair? _%__stx1868218683%_) - (let ((_%e36133940%_ (gx#syntax-e _%__stx1868218683%_))) - (let ((_%tl36153947%_ + (_%g35613627%_)))))))) + (if (gx#stx-pair? _%__stx1851918520%_) + (let ((_%e35683887%_ (gx#syntax-e _%__stx1851918520%_))) + (let ((_%tl35703894%_ (let () (declare (not safe)) - (##cdr _%e36133940%_))) - (_%hd36143944%_ + (##cdr _%e35683887%_))) + (_%hd35693891%_ (let () (declare (not safe)) - (##car _%e36133940%_)))) - (if (gx#stx-pair? _%tl36153947%_) - (let ((_%e36163950%_ (gx#syntax-e _%tl36153947%_))) - (let ((_%tl36183957%_ + (##car _%e35683887%_)))) + (if (gx#stx-pair? _%tl35703894%_) + (let ((_%e35713897%_ (gx#syntax-e _%tl35703894%_))) + (let ((_%tl35733904%_ (let () (declare (not safe)) - (##cdr _%e36163950%_))) - (_%hd36173954%_ + (##cdr _%e35713897%_))) + (_%hd35723901%_ (let () (declare (not safe)) - (##car _%e36163950%_)))) - (if (gx#stx-pair? _%tl36183957%_) - (let ((_%e36193960%_ - (gx#syntax-e _%tl36183957%_))) - (let ((_%tl36213967%_ + (##car _%e35713897%_)))) + (if (gx#stx-pair? _%tl35733904%_) + (let ((_%e35743907%_ + (gx#syntax-e _%tl35733904%_))) + (let ((_%tl35763914%_ (let () (declare (not safe)) - (##cdr _%e36193960%_))) - (_%hd36203964%_ + (##cdr _%e35743907%_))) + (_%hd35753911%_ (let () (declare (not safe)) - (##car _%e36193960%_)))) - (if (gx#stx-pair? _%hd36203964%_) - (let ((_%e36223970%_ + (##car _%e35743907%_)))) + (if (gx#stx-pair? _%hd35753911%_) + (let ((_%e35773917%_ (gx#syntax-e - _%hd36203964%_))) - (let ((_%tl36243977%_ + _%hd35753911%_))) + (let ((_%tl35793924%_ (let () (declare (not safe)) - (##cdr _%e36223970%_))) - (_%hd36233974%_ + (##cdr _%e35773917%_))) + (_%hd35783921%_ (let () (declare (not safe)) - (##car _%e36223970%_)))) + (##car _%e35773917%_)))) (if (gx#stx-pair? - _%tl36243977%_) - (let ((_%e36253980%_ + _%tl35793924%_) + (let ((_%e35803927%_ (gx#syntax-e - _%tl36243977%_))) - (let ((_%tl36273987%_ + _%tl35793924%_))) + (let ((_%tl35823934%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e36253980%_))) - (_%hd36263984%_ - (let () (declare (not safe)) (##car _%e36253980%_)))) - (if (gx#stx-null? _%tl36273987%_) - (_%__match1872518726%_ - _%e36133940%_ - _%hd36143944%_ - _%tl36153947%_ - _%e36163950%_ - _%hd36173954%_ - _%tl36183957%_ - _%e36193960%_ - _%hd36203964%_ - _%tl36213967%_ - _%e36223970%_ - _%hd36233974%_ - _%tl36243977%_ - _%e36253980%_ - _%hd36263984%_ - _%tl36273987%_) - (if (gx#stx-pair/null? _%hd36203964%_) - (let ((_%__splice1868918690%_ + (##cdr _%e35803927%_))) + (_%hd35813931%_ + (let () (declare (not safe)) (##car _%e35803927%_)))) + (if (gx#stx-null? _%tl35823934%_) + (_%__match1856218563%_ + _%e35683887%_ + _%hd35693891%_ + _%tl35703894%_ + _%e35713897%_ + _%hd35723901%_ + _%tl35733904%_ + _%e35743907%_ + _%hd35753911%_ + _%tl35763914%_ + _%e35773917%_ + _%hd35783921%_ + _%tl35793924%_ + _%e35803927%_ + _%hd35813931%_ + _%tl35823934%_) + (if (gx#stx-pair/null? _%hd35753911%_) + (let ((_%__splice1852618527%_ (gx#syntax-split-splice->vector - _%hd36203964%_ + _%hd35753911%_ '0))) - (let ((_%tl36433712%_ + (let ((_%tl35983667%_ (let () (declare (not safe)) - (##vector-ref _%__splice1868918690%_ '1))) - (_%target36413709%_ + (##vector-ref _%__splice1852618527%_ '1))) + (_%target35963664%_ (let () (declare (not safe)) - (##vector-ref _%__splice1868918690%_ '0)))) - (if (gx#stx-null? _%tl36433712%_) - (_%__match1875118752%_ - _%e36133940%_ - _%hd36143944%_ - _%tl36153947%_ - _%e36163950%_ - _%hd36173954%_ - _%tl36183957%_ - _%e36193960%_ - _%hd36203964%_ - _%tl36213967%_ - _%__splice1868918690%_ - _%target36413709%_ - _%tl36433712%_) + (##vector-ref _%__splice1852618527%_ '0)))) + (if (gx#stx-null? _%tl35983667%_) + (_%__match1858818589%_ + _%e35683887%_ + _%hd35693891%_ + _%tl35703894%_ + _%e35713897%_ + _%hd35723901%_ + _%tl35733904%_ + _%e35743907%_ + _%hd35753911%_ + _%tl35763914%_ + _%__splice1852618527%_ + _%target35963664%_ + _%tl35983667%_) (let () (declare (not safe)) - (_%g36063672%_))))) - (let () (declare (not safe)) (_%g36063672%_)))))) + (_%g35613627%_))))) + (let () (declare (not safe)) (_%g35613627%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd36203964%_) - (let ((_%__splice1868918690%_ + _%hd35753911%_) + (let ((_%__splice1852618527%_ (gx#syntax-split-splice->vector - _%hd36203964%_ + _%hd35753911%_ '0))) - (let ((_%tl36433712%_ + (let ((_%tl35983667%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice1868918690%_ '1))) - (_%target36413709%_ + (##vector-ref _%__splice1852618527%_ '1))) + (_%target35963664%_ (let () (declare (not safe)) - (##vector-ref _%__splice1868918690%_ '0)))) - (if (gx#stx-null? _%tl36433712%_) - (_%__match1875118752%_ - _%e36133940%_ - _%hd36143944%_ - _%tl36153947%_ - _%e36163950%_ - _%hd36173954%_ - _%tl36183957%_ - _%e36193960%_ - _%hd36203964%_ - _%tl36213967%_ - _%__splice1868918690%_ - _%target36413709%_ - _%tl36433712%_) - (let () (declare (not safe)) (_%g36063672%_))))) - (let () (declare (not safe)) (_%g36063672%_)))))) + (##vector-ref _%__splice1852618527%_ '0)))) + (if (gx#stx-null? _%tl35983667%_) + (_%__match1858818589%_ + _%e35683887%_ + _%hd35693891%_ + _%tl35703894%_ + _%e35713897%_ + _%hd35723901%_ + _%tl35733904%_ + _%e35743907%_ + _%hd35753911%_ + _%tl35763914%_ + _%__splice1852618527%_ + _%target35963664%_ + _%tl35983667%_) + (let () (declare (not safe)) (_%g35613627%_))))) + (let () (declare (not safe)) (_%g35613627%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd36203964%_) - (let ((_%__splice1868918690%_ + _%hd35753911%_) + (let ((_%__splice1852618527%_ (gx#syntax-split-splice->vector - _%hd36203964%_ + _%hd35753911%_ '0))) - (let ((_%tl36433712%_ + (let ((_%tl35983667%_ (let () (declare (not safe)) (##vector-ref - _%__splice1868918690%_ + _%__splice1852618527%_ '1))) - (_%target36413709%_ + (_%target35963664%_ (let () (declare (not safe)) (##vector-ref - _%__splice1868918690%_ + _%__splice1852618527%_ '0)))) (if (gx#stx-null? - _%tl36433712%_) - (_%__match1875118752%_ - _%e36133940%_ - _%hd36143944%_ - _%tl36153947%_ - _%e36163950%_ - _%hd36173954%_ - _%tl36183957%_ - _%e36193960%_ - _%hd36203964%_ - _%tl36213967%_ - _%__splice1868918690%_ - _%target36413709%_ - _%tl36433712%_) + _%tl35983667%_) + (_%__match1858818589%_ + _%e35683887%_ + _%hd35693891%_ + _%tl35703894%_ + _%e35713897%_ + _%hd35723901%_ + _%tl35733904%_ + _%e35743907%_ + _%hd35753911%_ + _%tl35763914%_ + _%__splice1852618527%_ + _%target35963664%_ + _%tl35983667%_) (let () (declare (not safe)) - (_%g36063672%_))))) + (_%g35613627%_))))) (let () (declare (not safe)) - (_%g36063672%_)))))) + (_%g35613627%_)))))) (let () (declare (not safe)) - (_%g36063672%_))))) - (let () (declare (not safe)) (_%g36063672%_))))) - (let () (declare (not safe)) (_%g36063672%_))))))))) + (_%g35613627%_))))) + (let () (declare (not safe)) (_%g35613627%_))))) + (let () (declare (not safe)) (_%g35613627%_))))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#and| - (lambda (_%$stx4144%_) - (let* ((_%__stx1875418755%_ _%$stx4144%_) - (_%g41504176%_ + (lambda (_%$stx4091%_) + (let* ((_%__stx1859118592%_ _%$stx4091%_) + (_%g40974123%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1875418755%_)))) - (let ((_%__kont1875718758%_ (lambda () '#t)) - (_%__kont1875918760%_ (lambda (_%L4248%_) _%L4248%_)) - (_%__kont1876118762%_ - (lambda (_%L4203%_ _%L4205%_ _%L4206%_) + _%__stx1859118592%_)))) + (let ((_%__kont1859418595%_ (lambda () '#t)) + (_%__kont1859618597%_ (lambda (_%g41024195%_) _%g41024195%_)) + (_%__kont1859818599%_ + (lambda (_%g41094150%_ _%g41104152%_ _%g41114153%_) (cons (gx#datum->syntax '#f 'if) - (cons _%L4205%_ - (cons (cons _%L4206%_ _%L4203%_) + (cons _%g41104152%_ + (cons (cons _%g41114153%_ _%g41094150%_) (cons '#f '()))))))) - (if (gx#stx-pair? _%__stx1875418755%_) - (let ((_%e41524268%_ (gx#syntax-e _%__stx1875418755%_))) - (let ((_%tl41544275%_ - (let () (declare (not safe)) (##cdr _%e41524268%_))) - (_%hd41534272%_ - (let () (declare (not safe)) (##car _%e41524268%_)))) - (if (gx#stx-null? _%tl41544275%_) - (_%__kont1875718758%_) - (if (gx#stx-pair? _%tl41544275%_) - (let ((_%e41594238%_ (gx#syntax-e _%tl41544275%_))) - (let ((_%tl41614245%_ + (if (gx#stx-pair? _%__stx1859118592%_) + (let ((_%e40994215%_ (gx#syntax-e _%__stx1859118592%_))) + (let ((_%tl41014222%_ + (let () (declare (not safe)) (##cdr _%e40994215%_))) + (_%hd41004219%_ + (let () (declare (not safe)) (##car _%e40994215%_)))) + (if (gx#stx-null? _%tl41014222%_) + (_%__kont1859418595%_) + (if (gx#stx-pair? _%tl41014222%_) + (let ((_%e41064185%_ (gx#syntax-e _%tl41014222%_))) + (let ((_%tl41084192%_ (let () (declare (not safe)) - (##cdr _%e41594238%_))) - (_%hd41604242%_ + (##cdr _%e41064185%_))) + (_%hd41074189%_ (let () (declare (not safe)) - (##car _%e41594238%_)))) - (if (gx#stx-null? _%tl41614245%_) - (_%__kont1875918760%_ _%hd41604242%_) - (_%__kont1876118762%_ - _%tl41614245%_ - _%hd41604242%_ - _%hd41534272%_)))) - (let () (declare (not safe)) (_%g41504176%_)))))) - (let () (declare (not safe)) (_%g41504176%_))))))) + (##car _%e41064185%_)))) + (if (gx#stx-null? _%tl41084192%_) + (_%__kont1859618597%_ _%hd41074189%_) + (_%__kont1859818599%_ + _%tl41084192%_ + _%hd41074189%_ + _%hd41004219%_)))) + (let () (declare (not safe)) (_%g40974123%_)))))) + (let () (declare (not safe)) (_%g40974123%_))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#or| - (lambda (_%$stx4286%_) - (let* ((_%__stx1880018801%_ _%$stx4286%_) - (_%g42924318%_ + (lambda (_%$stx4233%_) + (let* ((_%__stx1863718638%_ _%$stx4233%_) + (_%g42394265%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1880018801%_)))) - (let ((_%__kont1880318804%_ (lambda () '#f)) - (_%__kont1880518806%_ (lambda (_%L4390%_) _%L4390%_)) - (_%__kont1880718808%_ - (lambda (_%L4345%_ _%L4347%_ _%L4348%_) + _%__stx1863718638%_)))) + (let ((_%__kont1864018641%_ (lambda () '#f)) + (_%__kont1864218643%_ (lambda (_%g42444337%_) _%g42444337%_)) + (_%__kont1864418645%_ + (lambda (_%g42514292%_ _%g42524294%_ _%g42534295%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) - (cons _%L4347%_ '())) + (cons _%g42524294%_ '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (gx#datum->syntax '#f '$e) (cons (gx#datum->syntax '#f '$e) - (cons (cons _%L4348%_ + (cons (cons _%g42534295%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L4345%_) + _%g42514292%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (if (gx#stx-pair? _%__stx1880018801%_) - (let ((_%e42944410%_ (gx#syntax-e _%__stx1880018801%_))) - (let ((_%tl42964417%_ - (let () (declare (not safe)) (##cdr _%e42944410%_))) - (_%hd42954414%_ - (let () (declare (not safe)) (##car _%e42944410%_)))) - (if (gx#stx-null? _%tl42964417%_) - (_%__kont1880318804%_) - (if (gx#stx-pair? _%tl42964417%_) - (let ((_%e43014380%_ (gx#syntax-e _%tl42964417%_))) - (let ((_%tl43034387%_ + (if (gx#stx-pair? _%__stx1863718638%_) + (let ((_%e42414357%_ (gx#syntax-e _%__stx1863718638%_))) + (let ((_%tl42434364%_ + (let () (declare (not safe)) (##cdr _%e42414357%_))) + (_%hd42424361%_ + (let () (declare (not safe)) (##car _%e42414357%_)))) + (if (gx#stx-null? _%tl42434364%_) + (_%__kont1864018641%_) + (if (gx#stx-pair? _%tl42434364%_) + (let ((_%e42484327%_ (gx#syntax-e _%tl42434364%_))) + (let ((_%tl42504334%_ (let () (declare (not safe)) - (##cdr _%e43014380%_))) - (_%hd43024384%_ + (##cdr _%e42484327%_))) + (_%hd42494331%_ (let () (declare (not safe)) - (##car _%e43014380%_)))) - (if (gx#stx-null? _%tl43034387%_) - (_%__kont1880518806%_ _%hd43024384%_) - (_%__kont1880718808%_ - _%tl43034387%_ - _%hd43024384%_ - _%hd42954414%_)))) - (let () (declare (not safe)) (_%g42924318%_)))))) - (let () (declare (not safe)) (_%g42924318%_))))))) + (##car _%e42484327%_)))) + (if (gx#stx-null? _%tl42504334%_) + (_%__kont1864218643%_ _%hd42494331%_) + (_%__kont1864418645%_ + _%tl42504334%_ + _%hd42494331%_ + _%hd42424361%_)))) + (let () (declare (not safe)) (_%g42394265%_)))))) + (let () (declare (not safe)) (_%g42394265%_))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#cond| - (lambda (_%$stx4428%_) - (let* ((_%__stx1884618847%_ _%$stx4428%_) - (_%g44374528%_ + (lambda (_%$stx4375%_) + (let* ((_%__stx1868318684%_ _%$stx4375%_) + (_%g43844475%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1884618847%_)))) - (let ((_%__kont1884918850%_ (lambda () '#!void)) - (_%__kont1885118852%_ - (lambda (_%L4875%_) + _%__stx1868318684%_)))) + (let ((_%__kont1868618687%_ (lambda () '#!void)) + (_%__kont1868818689%_ + (lambda (_%g43894818%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g48944897%_ _%g48954900%_) - (cons _%g48944897%_ _%g48954900%_)) + (foldr (lambda (_%g48374840%_ _%g48384843%_) + (cons _%g48374840%_ _%g48384843%_)) '() - _%L4875%_))))) - (_%__kont1885518856%_ + _%g43894818%_))))) + (_%__kont1869218693%_ (lambda () (cons (gx#datum->syntax '#f 'syntax-error) (cons '"bad syntax; misplaced else" '())))) - (_%__kont1885718858%_ - (lambda (_%L4748%_ _%L4750%_ _%L4751%_) + (_%__kont1869418695%_ + (lambda (_%g44174693%_ _%g44184695%_ _%g44194696%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) - (cons _%L4750%_ '())) + (cons _%g44184695%_ '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (gx#datum->syntax '#f '$e) (cons (gx#datum->syntax '#f '$e) - (cons (cons _%L4751%_ + (cons (cons _%g44194696%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L4748%_) + _%g44174693%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1885918860%_ - (lambda (_%L4686%_ _%L4688%_ _%L4689%_ _%L4690%_) + (_%__kont1869618697%_ + (lambda (_%g44294631%_ + _%g44304633%_ + _%g44314634%_ + _%g44324635%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) - (cons _%L4689%_ '())) + (cons _%g44314634%_ '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (gx#datum->syntax '#f '$e) - (cons (cons _%L4688%_ + (cons (cons _%g44304633%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$e) '())) - (cons (cons _%L4690%_ _%L4686%_) '())))) + (cons (cons _%g44324635%_ _%g44294631%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1886118862%_ - (lambda (_%L4595%_ _%L4597%_ _%L4598%_ _%L4599%_) + (_%__kont1869818699%_ + (lambda (_%g44484540%_ + _%g44494542%_ + _%g44504543%_ + _%g44514544%_) (cons (gx#datum->syntax '#f 'if) - (cons _%L4598%_ + (cons _%g44504543%_ (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g46204623%_ + (foldr (lambda (_%g45654568%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g46214626%_) - (cons _%g46204623%_ _%g46214626%_)) + _%g45664571%_) + (cons _%g45654568%_ _%g45664571%_)) '() - _%L4597%_))) + _%g44494542%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L4599%_ _%L4595%_) + (cons (cons _%g44514544%_ _%g44484540%_) '()))))))) - (let* ((_%__match1900719008%_ - (lambda (_%e45054535%_ - _%hd45064539%_ - _%tl45074542%_ - _%e45084545%_ - _%hd45094549%_ - _%tl45104552%_ - _%e45114555%_ - _%hd45124559%_ - _%tl45134562%_ - _%__splice1886318864%_ - _%target45144565%_ - _%tl45164568%_) - (letrec ((_%loop45174571%_ - (lambda (_%hd45154575%_ _%body45214578%_) - (if (gx#stx-pair? _%hd45154575%_) - (let ((_%e45184581%_ - (gx#syntax-e _%hd45154575%_))) - (let ((_%lp-tl45204588%_ + (let* ((_%__match1884418845%_ + (lambda (_%e44524482%_ + _%hd44534486%_ + _%tl44544489%_ + _%e44554492%_ + _%hd44564496%_ + _%tl44574499%_ + _%e44584502%_ + _%hd44594506%_ + _%tl44604509%_ + _%__splice1870018701%_ + _%target44614512%_ + _%tl44634515%_) + (letrec ((_%loop44644518%_ + (lambda (_%hd44624522%_ _%body44684525%_) + (if (gx#stx-pair? _%hd44624522%_) + (let ((_%e44654527%_ + (gx#syntax-e _%hd44624522%_))) + (let ((_%lp-tl44674534%_ (let () (declare (not safe)) - (##cdr _%e45184581%_))) - (_%lp-hd45194585%_ + (##cdr _%e44654527%_))) + (_%lp-hd44664531%_ (let () (declare (not safe)) - (##car _%e45184581%_)))) - (_%loop45174571%_ - _%lp-tl45204588%_ - (cons _%lp-hd45194585%_ - _%body45214578%_)))) - (let ((_%body45224591%_ - (reverse _%body45214578%_))) - (_%__kont1886118862%_ - _%tl45104552%_ - _%body45224591%_ - _%hd45124559%_ - _%hd45064539%_)))))) - (_%loop45174571%_ _%target45144565%_ '())))) - (_%__match1890318904%_ - (lambda (_%e44434815%_ - _%hd44444819%_ - _%tl44454822%_ - _%e44464825%_ - _%hd44474829%_ - _%tl44484832%_ - _%e44494835%_ - _%hd44504839%_ - _%tl44514842%_ - _%__splice1885318854%_ - _%target44524845%_ - _%tl44544848%_) - (letrec ((_%loop44554851%_ - (lambda (_%hd44534855%_ _%body44594858%_) - (if (gx#stx-pair? _%hd44534855%_) - (let ((_%e44564861%_ - (gx#syntax-e _%hd44534855%_))) - (let ((_%lp-tl44584868%_ + (##car _%e44654527%_)))) + (_%loop44644518%_ + _%lp-tl44674534%_ + (cons _%lp-hd44664531%_ + _%body44684525%_)))) + (let ((_%body44694537%_ + (reverse _%body44684525%_))) + (_%__kont1869818699%_ + _%tl44574499%_ + _%body44694537%_ + _%hd44594506%_ + _%hd44534486%_)))))) + (_%loop44644518%_ _%target44614512%_ '())))) + (_%__match1874018741%_ + (lambda (_%e43904760%_ + _%hd43914764%_ + _%tl43924767%_ + _%e43934770%_ + _%hd43944774%_ + _%tl43954777%_ + _%e43964780%_ + _%hd43974784%_ + _%tl43984787%_ + _%__splice1869018691%_ + _%target43994790%_ + _%tl44014793%_) + (letrec ((_%loop44024796%_ + (lambda (_%hd44004800%_ _%body44064803%_) + (if (gx#stx-pair? _%hd44004800%_) + (let ((_%e44034805%_ + (gx#syntax-e _%hd44004800%_))) + (let ((_%lp-tl44054812%_ (let () (declare (not safe)) - (##cdr _%e44564861%_))) - (_%lp-hd44574865%_ + (##cdr _%e44034805%_))) + (_%lp-hd44044809%_ (let () (declare (not safe)) - (##car _%e44564861%_)))) - (_%loop44554851%_ - _%lp-tl44584868%_ - (cons _%lp-hd44574865%_ - _%body44594858%_)))) - (let ((_%body44604871%_ - (reverse _%body44594858%_))) - (if (gx#stx-null? _%tl44484832%_) - (_%__kont1885118852%_ - _%body44604871%_) - (_%__kont1885518856%_))))))) - (_%loop44554851%_ _%target44524845%_ '()))))) - (if (gx#stx-pair? _%__stx1884618847%_) - (let ((_%e44394910%_ (gx#syntax-e _%__stx1884618847%_))) - (let ((_%tl44414917%_ - (let () (declare (not safe)) (##cdr _%e44394910%_))) - (_%hd44404914%_ + (##car _%e44034805%_)))) + (_%loop44024796%_ + _%lp-tl44054812%_ + (cons _%lp-hd44044809%_ + _%body44064803%_)))) + (let ((_%body44074815%_ + (reverse _%body44064803%_))) + (if (gx#stx-null? _%tl43954777%_) + (_%__kont1868818689%_ + _%body44074815%_) + (_%__kont1869218693%_))))))) + (_%loop44024796%_ _%target43994790%_ '()))))) + (if (gx#stx-pair? _%__stx1868318684%_) + (let ((_%e43864853%_ (gx#syntax-e _%__stx1868318684%_))) + (let ((_%tl43884860%_ + (let () (declare (not safe)) (##cdr _%e43864853%_))) + (_%hd43874857%_ (let () (declare (not safe)) - (##car _%e44394910%_)))) - (if (gx#stx-null? _%tl44414917%_) - (_%__kont1884918850%_) - (if (gx#stx-pair? _%tl44414917%_) - (let ((_%e44464825%_ - (gx#syntax-e _%tl44414917%_))) - (let ((_%tl44484832%_ + (##car _%e43864853%_)))) + (if (gx#stx-null? _%tl43884860%_) + (_%__kont1868618687%_) + (if (gx#stx-pair? _%tl43884860%_) + (let ((_%e43934770%_ + (gx#syntax-e _%tl43884860%_))) + (let ((_%tl43954777%_ (let () (declare (not safe)) - (##cdr _%e44464825%_))) - (_%hd44474829%_ + (##cdr _%e43934770%_))) + (_%hd43944774%_ (let () (declare (not safe)) - (##car _%e44464825%_)))) - (if (gx#stx-pair? _%hd44474829%_) - (let ((_%e44494835%_ - (gx#syntax-e _%hd44474829%_))) - (let ((_%tl44514842%_ + (##car _%e43934770%_)))) + (if (gx#stx-pair? _%hd43944774%_) + (let ((_%e43964780%_ + (gx#syntax-e _%hd43944774%_))) + (let ((_%tl43984787%_ (let () (declare (not safe)) - (##cdr _%e44494835%_))) - (_%hd44504839%_ + (##cdr _%e43964780%_))) + (_%hd43974784%_ (let () (declare (not safe)) - (##car _%e44494835%_)))) - (if (gx#identifier? _%hd44504839%_) + (##car _%e43964780%_)))) + (if (gx#identifier? _%hd43974784%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-1[1]#_g20873_| - _%hd44504839%_) + |gerbil/core/sugar~Sugar-1[1]#_g20710_| + _%hd43974784%_) (if (gx#stx-pair/null? - _%tl44514842%_) - (let ((_%__splice1885318854%_ + _%tl43984787%_) + (let ((_%__splice1869018691%_ (gx#syntax-split-splice->vector - _%tl44514842%_ + _%tl43984787%_ '0))) - (let ((_%tl44544848%_ + (let ((_%tl44014793%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice1885318854%_ '1))) - (_%target44524845%_ + (##vector-ref _%__splice1869018691%_ '1))) + (_%target43994790%_ (let () (declare (not safe)) - (##vector-ref _%__splice1885318854%_ '0)))) - (if (gx#stx-null? _%tl44544848%_) - (_%__match1890318904%_ - _%e44394910%_ - _%hd44404914%_ - _%tl44414917%_ - _%e44464825%_ - _%hd44474829%_ - _%tl44484832%_ - _%e44494835%_ - _%hd44504839%_ - _%tl44514842%_ - _%__splice1885318854%_ - _%target44524845%_ - _%tl44544848%_) - (_%__kont1885518856%_)))) - (_%__kont1885518856%_)) + (##vector-ref _%__splice1869018691%_ '0)))) + (if (gx#stx-null? _%tl44014793%_) + (_%__match1874018741%_ + _%e43864853%_ + _%hd43874857%_ + _%tl43884860%_ + _%e43934770%_ + _%hd43944774%_ + _%tl43954777%_ + _%e43964780%_ + _%hd43974784%_ + _%tl43984787%_ + _%__splice1869018691%_ + _%target43994790%_ + _%tl44014793%_) + (_%__kont1869218693%_)))) + (_%__kont1869218693%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl44514842%_) - (_%__kont1885718858%_ - _%tl44484832%_ - _%hd44504839%_ - _%hd44404914%_) + _%tl43984787%_) + (_%__kont1869418695%_ + _%tl43954777%_ + _%hd43974784%_ + _%hd43874857%_) (if (gx#stx-pair? - _%tl44514842%_) - (let ((_%e44954666%_ + _%tl43984787%_) + (let ((_%e44424611%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl44514842%_))) - (let ((_%tl44974673%_ - (let () (declare (not safe)) (##cdr _%e44954666%_))) - (_%hd44964670%_ + (gx#syntax-e _%tl43984787%_))) + (let ((_%tl44444618%_ + (let () (declare (not safe)) (##cdr _%e44424611%_))) + (_%hd44434615%_ (let () (declare (not safe)) - (##car _%e44954666%_)))) - (if (gx#identifier? _%hd44964670%_) + (##car _%e44424611%_)))) + (if (gx#identifier? _%hd44434615%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-1[1]#_g20874_| - _%hd44964670%_) - (if (gx#stx-pair? _%tl44974673%_) - (let ((_%e44984676%_ - (gx#syntax-e _%tl44974673%_))) - (let ((_%tl45004683%_ + |gerbil/core/sugar~Sugar-1[1]#_g20711_| + _%hd44434615%_) + (if (gx#stx-pair? _%tl44444618%_) + (let ((_%e44454621%_ + (gx#syntax-e _%tl44444618%_))) + (let ((_%tl44474628%_ (let () (declare (not safe)) - (##cdr _%e44984676%_))) - (_%hd44994680%_ + (##cdr _%e44454621%_))) + (_%hd44464625%_ (let () (declare (not safe)) - (##car _%e44984676%_)))) - (if (gx#stx-null? _%tl45004683%_) - (_%__kont1885918860%_ - _%tl44484832%_ - _%hd44994680%_ - _%hd44504839%_ - _%hd44404914%_) + (##car _%e44454621%_)))) + (if (gx#stx-null? _%tl44474628%_) + (_%__kont1869618697%_ + _%tl43954777%_ + _%hd44464625%_ + _%hd43974784%_ + _%hd43874857%_) (if (gx#stx-pair/null? - _%tl44514842%_) - (let ((_%__splice1886318864%_ + _%tl43984787%_) + (let ((_%__splice1870018701%_ (gx#syntax-split-splice->vector - _%tl44514842%_ + _%tl43984787%_ '0))) - (let ((_%tl45164568%_ + (let ((_%tl44634515%_ (let () (declare (not safe)) (##vector-ref - _%__splice1886318864%_ + _%__splice1870018701%_ '1))) - (_%target45144565%_ + (_%target44614512%_ (let () (declare (not safe)) (##vector-ref - _%__splice1886318864%_ + _%__splice1870018701%_ '0)))) (if (gx#stx-null? - _%tl45164568%_) - (_%__match1900719008%_ - _%e44394910%_ - _%hd44404914%_ - _%tl44414917%_ - _%e44464825%_ - _%hd44474829%_ - _%tl44484832%_ - _%e44494835%_ - _%hd44504839%_ - _%tl44514842%_ - _%__splice1886318864%_ - _%target45144565%_ - _%tl45164568%_) + _%tl44634515%_) + (_%__match1884418845%_ + _%e43864853%_ + _%hd43874857%_ + _%tl43884860%_ + _%e43934770%_ + _%hd43944774%_ + _%tl43954777%_ + _%e43964780%_ + _%hd43974784%_ + _%tl43984787%_ + _%__splice1870018701%_ + _%target44614512%_ + _%tl44634515%_) (let () (declare (not safe)) - (_%g44374528%_))))) + (_%g43844475%_))))) (let () (declare (not safe)) - (_%g44374528%_)))))) - (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1886318864%_ + (_%g43844475%_)))))) + (if (gx#stx-pair/null? _%tl43984787%_) + (let ((_%__splice1870018701%_ (gx#syntax-split-splice->vector - _%tl44514842%_ + _%tl43984787%_ '0))) - (let ((_%tl45164568%_ + (let ((_%tl44634515%_ (let () (declare (not safe)) (##vector-ref - _%__splice1886318864%_ + _%__splice1870018701%_ '1))) - (_%target45144565%_ + (_%target44614512%_ (let () (declare (not safe)) (##vector-ref - _%__splice1886318864%_ + _%__splice1870018701%_ '0)))) - (if (gx#stx-null? _%tl45164568%_) - (_%__match1900719008%_ - _%e44394910%_ - _%hd44404914%_ - _%tl44414917%_ - _%e44464825%_ - _%hd44474829%_ - _%tl44484832%_ - _%e44494835%_ - _%hd44504839%_ - _%tl44514842%_ - _%__splice1886318864%_ - _%target45144565%_ - _%tl45164568%_) + (if (gx#stx-null? _%tl44634515%_) + (_%__match1884418845%_ + _%e43864853%_ + _%hd43874857%_ + _%tl43884860%_ + _%e43934770%_ + _%hd43944774%_ + _%tl43954777%_ + _%e43964780%_ + _%hd43974784%_ + _%tl43984787%_ + _%__splice1870018701%_ + _%target44614512%_ + _%tl44634515%_) (let () (declare (not safe)) - (_%g44374528%_))))) + (_%g43844475%_))))) (let () (declare (not safe)) - (_%g44374528%_)))) - (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1886318864%_ + (_%g43844475%_)))) + (if (gx#stx-pair/null? _%tl43984787%_) + (let ((_%__splice1870018701%_ (gx#syntax-split-splice->vector - _%tl44514842%_ + _%tl43984787%_ '0))) - (let ((_%tl45164568%_ + (let ((_%tl44634515%_ (let () (declare (not safe)) (##vector-ref - _%__splice1886318864%_ + _%__splice1870018701%_ '1))) - (_%target45144565%_ + (_%target44614512%_ (let () (declare (not safe)) (##vector-ref - _%__splice1886318864%_ + _%__splice1870018701%_ '0)))) - (if (gx#stx-null? _%tl45164568%_) - (_%__match1900719008%_ - _%e44394910%_ - _%hd44404914%_ - _%tl44414917%_ - _%e44464825%_ - _%hd44474829%_ - _%tl44484832%_ - _%e44494835%_ - _%hd44504839%_ - _%tl44514842%_ - _%__splice1886318864%_ - _%target45144565%_ - _%tl45164568%_) + (if (gx#stx-null? _%tl44634515%_) + (_%__match1884418845%_ + _%e43864853%_ + _%hd43874857%_ + _%tl43884860%_ + _%e43934770%_ + _%hd43944774%_ + _%tl43954777%_ + _%e43964780%_ + _%hd43974784%_ + _%tl43984787%_ + _%__splice1870018701%_ + _%target44614512%_ + _%tl44634515%_) (let () (declare (not safe)) - (_%g44374528%_))))) + (_%g43844475%_))))) (let () (declare (not safe)) - (_%g44374528%_)))) - (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1886318864%_ + (_%g43844475%_)))) + (if (gx#stx-pair/null? _%tl43984787%_) + (let ((_%__splice1870018701%_ (gx#syntax-split-splice->vector - _%tl44514842%_ + _%tl43984787%_ '0))) - (let ((_%tl45164568%_ + (let ((_%tl44634515%_ (let () (declare (not safe)) (##vector-ref - _%__splice1886318864%_ + _%__splice1870018701%_ '1))) - (_%target45144565%_ + (_%target44614512%_ (let () (declare (not safe)) (##vector-ref - _%__splice1886318864%_ + _%__splice1870018701%_ '0)))) - (if (gx#stx-null? _%tl45164568%_) - (_%__match1900719008%_ - _%e44394910%_ - _%hd44404914%_ - _%tl44414917%_ - _%e44464825%_ - _%hd44474829%_ - _%tl44484832%_ - _%e44494835%_ - _%hd44504839%_ - _%tl44514842%_ - _%__splice1886318864%_ - _%target45144565%_ - _%tl45164568%_) + (if (gx#stx-null? _%tl44634515%_) + (_%__match1884418845%_ + _%e43864853%_ + _%hd43874857%_ + _%tl43884860%_ + _%e43934770%_ + _%hd43944774%_ + _%tl43954777%_ + _%e43964780%_ + _%hd43974784%_ + _%tl43984787%_ + _%__splice1870018701%_ + _%target44614512%_ + _%tl44634515%_) (let () (declare (not safe)) - (_%g44374528%_))))) - (let () (declare (not safe)) (_%g44374528%_)))))) - (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1886318864%_ + (_%g43844475%_))))) + (let () (declare (not safe)) (_%g43844475%_)))))) + (if (gx#stx-pair/null? _%tl43984787%_) + (let ((_%__splice1870018701%_ (gx#syntax-split-splice->vector - _%tl44514842%_ + _%tl43984787%_ '0))) - (let ((_%tl45164568%_ + (let ((_%tl44634515%_ (let () (declare (not safe)) - (##vector-ref _%__splice1886318864%_ '1))) - (_%target45144565%_ + (##vector-ref _%__splice1870018701%_ '1))) + (_%target44614512%_ (let () (declare (not safe)) - (##vector-ref _%__splice1886318864%_ '0)))) - (if (gx#stx-null? _%tl45164568%_) - (_%__match1900719008%_ - _%e44394910%_ - _%hd44404914%_ - _%tl44414917%_ - _%e44464825%_ - _%hd44474829%_ - _%tl44484832%_ - _%e44494835%_ - _%hd44504839%_ - _%tl44514842%_ - _%__splice1886318864%_ - _%target45144565%_ - _%tl45164568%_) - (let () (declare (not safe)) (_%g44374528%_))))) - (let () (declare (not safe)) (_%g44374528%_)))))) + (##vector-ref _%__splice1870018701%_ '0)))) + (if (gx#stx-null? _%tl44634515%_) + (_%__match1884418845%_ + _%e43864853%_ + _%hd43874857%_ + _%tl43884860%_ + _%e43934770%_ + _%hd43944774%_ + _%tl43954777%_ + _%e43964780%_ + _%hd43974784%_ + _%tl43984787%_ + _%__splice1870018701%_ + _%target44614512%_ + _%tl44634515%_) + (let () (declare (not safe)) (_%g43844475%_))))) + (let () (declare (not safe)) (_%g43844475%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? _%tl44514842%_) - (_%__kont1885718858%_ - _%tl44484832%_ - _%hd44504839%_ - _%hd44404914%_) + (if (gx#stx-null? _%tl43984787%_) + (_%__kont1869418695%_ + _%tl43954777%_ + _%hd43974784%_ + _%hd43874857%_) (if (gx#stx-pair? - _%tl44514842%_) - (let ((_%e44954666%_ + _%tl43984787%_) + (let ((_%e44424611%_ (gx#syntax-e - _%tl44514842%_))) - (let ((_%tl44974673%_ + _%tl43984787%_))) + (let ((_%tl44444618%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e44954666%_))) - (_%hd44964670%_ - (let () (declare (not safe)) (##car _%e44954666%_)))) - (if (gx#identifier? _%hd44964670%_) + (##cdr _%e44424611%_))) + (_%hd44434615%_ + (let () (declare (not safe)) (##car _%e44424611%_)))) + (if (gx#identifier? _%hd44434615%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-1[1]#_g20874_| - _%hd44964670%_) - (if (gx#stx-pair? _%tl44974673%_) - (let ((_%e44984676%_ - (gx#syntax-e _%tl44974673%_))) - (let ((_%tl45004683%_ + |gerbil/core/sugar~Sugar-1[1]#_g20711_| + _%hd44434615%_) + (if (gx#stx-pair? _%tl44444618%_) + (let ((_%e44454621%_ + (gx#syntax-e _%tl44444618%_))) + (let ((_%tl44474628%_ (let () (declare (not safe)) - (##cdr _%e44984676%_))) - (_%hd44994680%_ + (##cdr _%e44454621%_))) + (_%hd44464625%_ (let () (declare (not safe)) - (##car _%e44984676%_)))) - (if (gx#stx-null? _%tl45004683%_) - (_%__kont1885918860%_ - _%tl44484832%_ - _%hd44994680%_ - _%hd44504839%_ - _%hd44404914%_) - (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1886318864%_ + (##car _%e44454621%_)))) + (if (gx#stx-null? _%tl44474628%_) + (_%__kont1869618697%_ + _%tl43954777%_ + _%hd44464625%_ + _%hd43974784%_ + _%hd43874857%_) + (if (gx#stx-pair/null? _%tl43984787%_) + (let ((_%__splice1870018701%_ (gx#syntax-split-splice->vector - _%tl44514842%_ + _%tl43984787%_ '0))) - (let ((_%tl45164568%_ + (let ((_%tl44634515%_ (let () (declare (not safe)) (##vector-ref - _%__splice1886318864%_ + _%__splice1870018701%_ '1))) - (_%target45144565%_ + (_%target44614512%_ (let () (declare (not safe)) (##vector-ref - _%__splice1886318864%_ + _%__splice1870018701%_ '0)))) - (if (gx#stx-null? _%tl45164568%_) - (_%__match1900719008%_ - _%e44394910%_ - _%hd44404914%_ - _%tl44414917%_ - _%e44464825%_ - _%hd44474829%_ - _%tl44484832%_ - _%e44494835%_ - _%hd44504839%_ - _%tl44514842%_ - _%__splice1886318864%_ - _%target45144565%_ - _%tl45164568%_) + (if (gx#stx-null? _%tl44634515%_) + (_%__match1884418845%_ + _%e43864853%_ + _%hd43874857%_ + _%tl43884860%_ + _%e43934770%_ + _%hd43944774%_ + _%tl43954777%_ + _%e43964780%_ + _%hd43974784%_ + _%tl43984787%_ + _%__splice1870018701%_ + _%target44614512%_ + _%tl44634515%_) (let () (declare (not safe)) - (_%g44374528%_))))) + (_%g43844475%_))))) (let () (declare (not safe)) - (_%g44374528%_)))))) - (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1886318864%_ + (_%g43844475%_)))))) + (if (gx#stx-pair/null? _%tl43984787%_) + (let ((_%__splice1870018701%_ (gx#syntax-split-splice->vector - _%tl44514842%_ + _%tl43984787%_ '0))) - (let ((_%tl45164568%_ + (let ((_%tl44634515%_ (let () (declare (not safe)) (##vector-ref - _%__splice1886318864%_ + _%__splice1870018701%_ '1))) - (_%target45144565%_ + (_%target44614512%_ (let () (declare (not safe)) (##vector-ref - _%__splice1886318864%_ + _%__splice1870018701%_ '0)))) - (if (gx#stx-null? _%tl45164568%_) - (_%__match1900719008%_ - _%e44394910%_ - _%hd44404914%_ - _%tl44414917%_ - _%e44464825%_ - _%hd44474829%_ - _%tl44484832%_ - _%e44494835%_ - _%hd44504839%_ - _%tl44514842%_ - _%__splice1886318864%_ - _%target45144565%_ - _%tl45164568%_) + (if (gx#stx-null? _%tl44634515%_) + (_%__match1884418845%_ + _%e43864853%_ + _%hd43874857%_ + _%tl43884860%_ + _%e43934770%_ + _%hd43944774%_ + _%tl43954777%_ + _%e43964780%_ + _%hd43974784%_ + _%tl43984787%_ + _%__splice1870018701%_ + _%target44614512%_ + _%tl44634515%_) (let () (declare (not safe)) - (_%g44374528%_))))) + (_%g43844475%_))))) (let () (declare (not safe)) - (_%g44374528%_)))) - (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1886318864%_ + (_%g43844475%_)))) + (if (gx#stx-pair/null? _%tl43984787%_) + (let ((_%__splice1870018701%_ (gx#syntax-split-splice->vector - _%tl44514842%_ + _%tl43984787%_ '0))) - (let ((_%tl45164568%_ + (let ((_%tl44634515%_ (let () (declare (not safe)) (##vector-ref - _%__splice1886318864%_ + _%__splice1870018701%_ '1))) - (_%target45144565%_ + (_%target44614512%_ (let () (declare (not safe)) (##vector-ref - _%__splice1886318864%_ + _%__splice1870018701%_ '0)))) - (if (gx#stx-null? _%tl45164568%_) - (_%__match1900719008%_ - _%e44394910%_ - _%hd44404914%_ - _%tl44414917%_ - _%e44464825%_ - _%hd44474829%_ - _%tl44484832%_ - _%e44494835%_ - _%hd44504839%_ - _%tl44514842%_ - _%__splice1886318864%_ - _%target45144565%_ - _%tl45164568%_) + (if (gx#stx-null? _%tl44634515%_) + (_%__match1884418845%_ + _%e43864853%_ + _%hd43874857%_ + _%tl43884860%_ + _%e43934770%_ + _%hd43944774%_ + _%tl43954777%_ + _%e43964780%_ + _%hd43974784%_ + _%tl43984787%_ + _%__splice1870018701%_ + _%target44614512%_ + _%tl44634515%_) (let () (declare (not safe)) - (_%g44374528%_))))) - (let () (declare (not safe)) (_%g44374528%_)))) - (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1886318864%_ + (_%g43844475%_))))) + (let () (declare (not safe)) (_%g43844475%_)))) + (if (gx#stx-pair/null? _%tl43984787%_) + (let ((_%__splice1870018701%_ (gx#syntax-split-splice->vector - _%tl44514842%_ + _%tl43984787%_ '0))) - (let ((_%tl45164568%_ + (let ((_%tl44634515%_ (let () (declare (not safe)) - (##vector-ref _%__splice1886318864%_ '1))) - (_%target45144565%_ + (##vector-ref _%__splice1870018701%_ '1))) + (_%target44614512%_ (let () (declare (not safe)) (##vector-ref - _%__splice1886318864%_ + _%__splice1870018701%_ '0)))) - (if (gx#stx-null? _%tl45164568%_) - (_%__match1900719008%_ - _%e44394910%_ - _%hd44404914%_ - _%tl44414917%_ - _%e44464825%_ - _%hd44474829%_ - _%tl44484832%_ - _%e44494835%_ - _%hd44504839%_ - _%tl44514842%_ - _%__splice1886318864%_ - _%target45144565%_ - _%tl45164568%_) + (if (gx#stx-null? _%tl44634515%_) + (_%__match1884418845%_ + _%e43864853%_ + _%hd43874857%_ + _%tl43884860%_ + _%e43934770%_ + _%hd43944774%_ + _%tl43954777%_ + _%e43964780%_ + _%hd43974784%_ + _%tl43984787%_ + _%__splice1870018701%_ + _%target44614512%_ + _%tl44634515%_) (let () (declare (not safe)) - (_%g44374528%_))))) - (let () (declare (not safe)) (_%g44374528%_)))))) - (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1886318864%_ - (gx#syntax-split-splice->vector _%tl44514842%_ '0))) - (let ((_%tl45164568%_ + (_%g43844475%_))))) + (let () (declare (not safe)) (_%g43844475%_)))))) + (if (gx#stx-pair/null? _%tl43984787%_) + (let ((_%__splice1870018701%_ + (gx#syntax-split-splice->vector _%tl43984787%_ '0))) + (let ((_%tl44634515%_ (let () (declare (not safe)) - (##vector-ref _%__splice1886318864%_ '1))) - (_%target45144565%_ + (##vector-ref _%__splice1870018701%_ '1))) + (_%target44614512%_ (let () (declare (not safe)) - (##vector-ref _%__splice1886318864%_ '0)))) - (if (gx#stx-null? _%tl45164568%_) - (_%__match1900719008%_ - _%e44394910%_ - _%hd44404914%_ - _%tl44414917%_ - _%e44464825%_ - _%hd44474829%_ - _%tl44484832%_ - _%e44494835%_ - _%hd44504839%_ - _%tl44514842%_ - _%__splice1886318864%_ - _%target45144565%_ - _%tl45164568%_) - (let () (declare (not safe)) (_%g44374528%_))))) - (let () (declare (not safe)) (_%g44374528%_)))))))) + (##vector-ref _%__splice1870018701%_ '0)))) + (if (gx#stx-null? _%tl44634515%_) + (_%__match1884418845%_ + _%e43864853%_ + _%hd43874857%_ + _%tl43884860%_ + _%e43934770%_ + _%hd43944774%_ + _%tl43954777%_ + _%e43964780%_ + _%hd43974784%_ + _%tl43984787%_ + _%__splice1870018701%_ + _%target44614512%_ + _%tl44634515%_) + (let () (declare (not safe)) (_%g43844475%_))))) + (let () (declare (not safe)) (_%g43844475%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g44374528%_))))) - (let () (declare (not safe)) (_%g44374528%_)))))) - (let () (declare (not safe)) (_%g44374528%_)))))))) + (_%g43844475%_))))) + (let () (declare (not safe)) (_%g43844475%_)))))) + (let () (declare (not safe)) (_%g43844475%_)))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#when| - (lambda (_%$stx4930%_) - (let* ((_%g49344962%_ - (lambda (_%g49354958%_) + (lambda (_%$stx4873%_) + (let* ((_%g48774905%_ + (lambda (_%g48784901%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g49354958%_))) - (_%g49335061%_ - (lambda (_%g49354966%_) - (if (gx#stx-pair? _%g49354966%_) - (let ((_%e49394969%_ (gx#syntax-e _%g49354966%_))) - (let ((_%hd49404973%_ + _%g48784901%_))) + (_%g48765002%_ + (lambda (_%g48784909%_) + (if (gx#stx-pair? _%g48784909%_) + (let ((_%e48824912%_ (gx#syntax-e _%g48784909%_))) + (let ((_%hd48834916%_ (let () (declare (not safe)) - (##car _%e49394969%_))) - (_%tl49414976%_ + (##car _%e48824912%_))) + (_%tl48844919%_ (let () (declare (not safe)) - (##cdr _%e49394969%_)))) - (if (gx#stx-pair? _%tl49414976%_) - (let ((_%e49424979%_ - (gx#syntax-e _%tl49414976%_))) - (let ((_%hd49434983%_ + (##cdr _%e48824912%_)))) + (if (gx#stx-pair? _%tl48844919%_) + (let ((_%e48854922%_ + (gx#syntax-e _%tl48844919%_))) + (let ((_%hd48864926%_ (let () (declare (not safe)) - (##car _%e49424979%_))) - (_%tl49444986%_ + (##car _%e48854922%_))) + (_%tl48874929%_ (let () (declare (not safe)) - (##cdr _%e49424979%_)))) - (if (gx#stx-pair? _%tl49444986%_) - (let ((_%e49454989%_ - (gx#syntax-e _%tl49444986%_))) - (let ((_%hd49464993%_ + (##cdr _%e48854922%_)))) + (if (gx#stx-pair? _%tl48874929%_) + (let ((_%e48884932%_ + (gx#syntax-e _%tl48874929%_))) + (let ((_%hd48894936%_ (let () (declare (not safe)) - (##car _%e49454989%_))) - (_%tl49474996%_ + (##car _%e48884932%_))) + (_%tl48904939%_ (let () (declare (not safe)) - (##cdr _%e49454989%_)))) + (##cdr _%e48884932%_)))) (if (gx#stx-pair/null? - _%tl49474996%_) - (let ((_g20875_ + _%tl48904939%_) + (let ((_g20712_ (gx#syntax-split-splice - _%tl49474996%_ + _%tl48904939%_ '0))) (begin - (let ((_g20876_ + (let ((_g20713_ (let () (declare (not safe)) (if (##values? - _g20875_) + _g20712_) (##values-length - _g20875_) + _g20712_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g20876_ 2))) - (error "Context expects 2 values" _g20876_))) + (##fx= _g20713_ 2))) + (error "Context expects 2 values" _g20713_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target49484999%_ + (let ((_%target48914942%_ (let () (declare (not safe)) (##values-ref - _g20875_ + _g20712_ 0))) - (_%tl49505002%_ + (_%tl48934945%_ (let () (declare (not safe)) (##values-ref - _g20875_ + _g20712_ 1)))) (if (gx#stx-null? - _%tl49505002%_) - (letrec ((_%loop49515005%_ + _%tl48934945%_) + (letrec ((_%loop48944948%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd49495009%_ _%rest49555012%_) - (if (gx#stx-pair? _%hd49495009%_) - (let ((_%e49525015%_ - (gx#syntax-e _%hd49495009%_))) - (let ((_%lp-hd49535019%_ + (lambda (_%hd48924952%_ _%rest48984955%_) + (if (gx#stx-pair? _%hd48924952%_) + (let ((_%e48954957%_ + (gx#syntax-e _%hd48924952%_))) + (let ((_%lp-hd48964961%_ (let () (declare (not safe)) - (##car _%e49525015%_))) - (_%lp-tl49545022%_ + (##car _%e48954957%_))) + (_%lp-tl48974964%_ (let () (declare (not safe)) - (##cdr _%e49525015%_)))) - (_%loop49515005%_ - _%lp-tl49545022%_ - (cons _%lp-hd49535019%_ - _%rest49555012%_)))) - (let ((_%rest49565025%_ - (reverse _%rest49555012%_))) - ((lambda (_%L5029%_ _%L5031%_ _%L5032%_) + (##cdr _%e48954957%_)))) + (_%loop48944948%_ + _%lp-tl48974964%_ + (cons _%lp-hd48964961%_ + _%rest48984955%_)))) + (let ((_%rest48994967%_ + (reverse _%rest48984955%_))) + ((lambda (_%g48794970%_ + _%g48804972%_ + _%g48814973%_) (cons (gx#datum->syntax '#f 'if) - (cons _%L5032%_ + (cons _%g48814973%_ (cons (cons (gx#datum->syntax '#f 'begin) - (cons _%L5031%_ + (cons _%g48804972%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g50525055%_ _%g50535058%_) - (cons _%g50525055%_ _%g50535058%_)) + (foldr (lambda (_%g49934996%_ _%g49944999%_) + (cons _%g49934996%_ _%g49944999%_)) '() - _%L5029%_))) + _%g48794970%_))) (cons '#!void '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%rest49565025%_ - _%hd49464993%_ - _%hd49434983%_)))))) - (_%loop49515005%_ _%target49484999%_ '())) - (_%g49344962%_ _%g49354966%_))))) + _%rest48994967%_ + _%hd48894936%_ + _%hd48864926%_)))))) + (_%loop48944948%_ _%target48914942%_ '())) + (_%g48774905%_ _%g48784909%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g49344962%_ _%g49354966%_)))) - (_%g49344962%_ _%g49354966%_)))) - (_%g49344962%_ _%g49354966%_)))) - (_%g49344962%_ _%g49354966%_))))) - (_%g49335061%_ _%$stx4930%_)))) + (_%g48774905%_ _%g48784909%_)))) + (_%g48774905%_ _%g48784909%_)))) + (_%g48774905%_ _%g48784909%_)))) + (_%g48774905%_ _%g48784909%_))))) + (_%g48765002%_ _%$stx4873%_)))) (define |gerbil/core/sugar~Sugar-1[:0:]#unless| - (lambda (_%$stx5066%_) - (let* ((_%g50705098%_ - (lambda (_%g50715094%_) + (lambda (_%$stx5007%_) + (let* ((_%g50115039%_ + (lambda (_%g50125035%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g50715094%_))) - (_%g50695197%_ - (lambda (_%g50715102%_) - (if (gx#stx-pair? _%g50715102%_) - (let ((_%e50755105%_ (gx#syntax-e _%g50715102%_))) - (let ((_%hd50765109%_ + _%g50125035%_))) + (_%g50105136%_ + (lambda (_%g50125043%_) + (if (gx#stx-pair? _%g50125043%_) + (let ((_%e50165046%_ (gx#syntax-e _%g50125043%_))) + (let ((_%hd50175050%_ (let () (declare (not safe)) - (##car _%e50755105%_))) - (_%tl50775112%_ + (##car _%e50165046%_))) + (_%tl50185053%_ (let () (declare (not safe)) - (##cdr _%e50755105%_)))) - (if (gx#stx-pair? _%tl50775112%_) - (let ((_%e50785115%_ - (gx#syntax-e _%tl50775112%_))) - (let ((_%hd50795119%_ + (##cdr _%e50165046%_)))) + (if (gx#stx-pair? _%tl50185053%_) + (let ((_%e50195056%_ + (gx#syntax-e _%tl50185053%_))) + (let ((_%hd50205060%_ (let () (declare (not safe)) - (##car _%e50785115%_))) - (_%tl50805122%_ + (##car _%e50195056%_))) + (_%tl50215063%_ (let () (declare (not safe)) - (##cdr _%e50785115%_)))) - (if (gx#stx-pair? _%tl50805122%_) - (let ((_%e50815125%_ - (gx#syntax-e _%tl50805122%_))) - (let ((_%hd50825129%_ + (##cdr _%e50195056%_)))) + (if (gx#stx-pair? _%tl50215063%_) + (let ((_%e50225066%_ + (gx#syntax-e _%tl50215063%_))) + (let ((_%hd50235070%_ (let () (declare (not safe)) - (##car _%e50815125%_))) - (_%tl50835132%_ + (##car _%e50225066%_))) + (_%tl50245073%_ (let () (declare (not safe)) - (##cdr _%e50815125%_)))) + (##cdr _%e50225066%_)))) (if (gx#stx-pair/null? - _%tl50835132%_) - (let ((_g20877_ + _%tl50245073%_) + (let ((_g20714_ (gx#syntax-split-splice - _%tl50835132%_ + _%tl50245073%_ '0))) (begin - (let ((_g20878_ + (let ((_g20715_ (let () (declare (not safe)) (if (##values? - _g20877_) + _g20714_) (##values-length - _g20877_) + _g20714_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g20878_ 2))) - (error "Context expects 2 values" _g20878_))) + (##fx= _g20715_ 2))) + (error "Context expects 2 values" _g20715_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target50845135%_ + (let ((_%target50255076%_ (let () (declare (not safe)) (##values-ref - _g20877_ + _g20714_ 0))) - (_%tl50865138%_ + (_%tl50275079%_ (let () (declare (not safe)) (##values-ref - _g20877_ + _g20714_ 1)))) (if (gx#stx-null? - _%tl50865138%_) - (letrec ((_%loop50875141%_ + _%tl50275079%_) + (letrec ((_%loop50285082%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd50855145%_ _%rest50915148%_) - (if (gx#stx-pair? _%hd50855145%_) - (let ((_%e50885151%_ - (gx#syntax-e _%hd50855145%_))) - (let ((_%lp-hd50895155%_ + (lambda (_%hd50265086%_ _%rest50325089%_) + (if (gx#stx-pair? _%hd50265086%_) + (let ((_%e50295091%_ + (gx#syntax-e _%hd50265086%_))) + (let ((_%lp-hd50305095%_ (let () (declare (not safe)) - (##car _%e50885151%_))) - (_%lp-tl50905158%_ + (##car _%e50295091%_))) + (_%lp-tl50315098%_ (let () (declare (not safe)) - (##cdr _%e50885151%_)))) - (_%loop50875141%_ - _%lp-tl50905158%_ - (cons _%lp-hd50895155%_ - _%rest50915148%_)))) - (let ((_%rest50925161%_ - (reverse _%rest50915148%_))) - ((lambda (_%L5165%_ _%L5167%_ _%L5168%_) + (##cdr _%e50295091%_)))) + (_%loop50285082%_ + _%lp-tl50315098%_ + (cons _%lp-hd50305095%_ + _%rest50325089%_)))) + (let ((_%rest50335101%_ + (reverse _%rest50325089%_))) + ((lambda (_%g50135104%_ + _%g50145106%_ + _%g50155107%_) (cons (gx#datum->syntax '#f 'if) - (cons _%L5168%_ + (cons _%g50155107%_ (cons '#!void (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin) - (cons _%L5167%_ - (foldr (lambda (_%g51885191%_ _%g51895194%_) - (cons _%g51885191%_ _%g51895194%_)) + (cons _%g50145106%_ + (foldr (lambda (_%g51275130%_ _%g51285133%_) + (cons _%g51275130%_ _%g51285133%_)) '() - _%L5165%_))) + _%g50135104%_))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%rest50925161%_ - _%hd50825129%_ - _%hd50795119%_)))))) - (_%loop50875141%_ _%target50845135%_ '())) - (_%g50705098%_ _%g50715102%_))))) + _%rest50335101%_ + _%hd50235070%_ + _%hd50205060%_)))))) + (_%loop50285082%_ _%target50255076%_ '())) + (_%g50115039%_ _%g50125043%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g50705098%_ _%g50715102%_)))) - (_%g50705098%_ _%g50715102%_)))) - (_%g50705098%_ _%g50715102%_)))) - (_%g50705098%_ _%g50715102%_))))) - (_%g50695197%_ _%$stx5066%_)))) + (_%g50115039%_ _%g50125043%_)))) + (_%g50115039%_ _%g50125043%_)))) + (_%g50115039%_ _%g50125043%_)))) + (_%g50115039%_ _%g50125043%_))))) + (_%g50105136%_ _%$stx5007%_)))) (define |gerbil/core/sugar~Sugar-1[:0:]#syntax-error| - (lambda (_%stx5202%_) - (let* ((_%g52055229%_ - (lambda (_%g52065225%_) + (lambda (_%stx5141%_) + (let* ((_%g51445168%_ + (lambda (_%g51455164%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g52065225%_))) - (_%g52045314%_ - (lambda (_%g52065233%_) - (if (gx#stx-pair? _%g52065233%_) - (let ((_%e52095236%_ (gx#syntax-e _%g52065233%_))) - (let ((_%hd52105240%_ + _%g51455164%_))) + (_%g51435251%_ + (lambda (_%g51455172%_) + (if (gx#stx-pair? _%g51455172%_) + (let ((_%e51485175%_ (gx#syntax-e _%g51455172%_))) + (let ((_%hd51495179%_ (let () (declare (not safe)) - (##car _%e52095236%_))) - (_%tl52115243%_ + (##car _%e51485175%_))) + (_%tl51505182%_ (let () (declare (not safe)) - (##cdr _%e52095236%_)))) - (if (gx#stx-pair? _%tl52115243%_) - (let ((_%e52125246%_ - (gx#syntax-e _%tl52115243%_))) - (let ((_%hd52135250%_ + (##cdr _%e51485175%_)))) + (if (gx#stx-pair? _%tl51505182%_) + (let ((_%e51515185%_ + (gx#syntax-e _%tl51505182%_))) + (let ((_%hd51525189%_ (let () (declare (not safe)) - (##car _%e52125246%_))) - (_%tl52145253%_ + (##car _%e51515185%_))) + (_%tl51535192%_ (let () (declare (not safe)) - (##cdr _%e52125246%_)))) - (if (gx#stx-pair/null? _%tl52145253%_) - (let ((_g20879_ + (##cdr _%e51515185%_)))) + (if (gx#stx-pair/null? _%tl51535192%_) + (let ((_g20716_ (gx#syntax-split-splice - _%tl52145253%_ + _%tl51535192%_ '0))) (begin - (let ((_g20880_ + (let ((_g20717_ (let () (declare (not safe)) - (if (##values? _g20879_) + (if (##values? _g20716_) (##values-length - _g20879_) + _g20716_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20880_ 2))) + (##fx= _g20717_ 2))) (error "Context expects 2 values" - _g20880_))) - (let ((_%target52155256%_ + _g20717_))) + (let ((_%target51545195%_ (let () (declare (not safe)) - (##values-ref _g20879_ 0))) - (_%tl52175259%_ + (##values-ref _g20716_ 0))) + (_%tl51565198%_ (let () (declare (not safe)) - (##values-ref _g20879_ 1)))) - (if (gx#stx-null? _%tl52175259%_) - (letrec ((_%loop52185262%_ - (lambda (_%hd52165266%_ + (##values-ref _g20716_ 1)))) + (if (gx#stx-null? _%tl51565198%_) + (letrec ((_%loop51575201%_ + (lambda (_%hd51555205%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%detail52225269%_) - (if (gx#stx-pair? _%hd52165266%_) - (let ((_%e52195272%_ (gx#syntax-e _%hd52165266%_))) - (let ((_%lp-hd52205276%_ + _%detail51615208%_) + (if (gx#stx-pair? _%hd51555205%_) + (let ((_%e51585210%_ (gx#syntax-e _%hd51555205%_))) + (let ((_%lp-hd51595214%_ (let () (declare (not safe)) - (##car _%e52195272%_))) - (_%lp-tl52215279%_ + (##car _%e51585210%_))) + (_%lp-tl51605217%_ (let () (declare (not safe)) - (##cdr _%e52195272%_)))) - (_%loop52185262%_ - _%lp-tl52215279%_ - (cons _%lp-hd52205276%_ _%detail52225269%_)))) - (let ((_%detail52235282%_ - (reverse _%detail52225269%_))) - ((lambda (_%L5286%_ _%L5288%_) - (if (gx#stx-string? _%L5288%_) + (##cdr _%e51585210%_)))) + (_%loop51575201%_ + _%lp-tl51605217%_ + (cons _%lp-hd51595214%_ _%detail51615208%_)))) + (let ((_%detail51625220%_ + (reverse _%detail51615208%_))) + ((lambda (_%g51465223%_ _%g51475225%_) + (if (gx#stx-string? _%g51475225%_) (apply gx#raise-syntax-error '#f - (gx#stx-e _%L5288%_) - _%stx5202%_ + (gx#stx-e _%g51475225%_) + _%stx5141%_ (gx#syntax->list - (foldr (lambda (_%g53055308%_ - _%g53065311%_) - (cons _%g53055308%_ - _%g53065311%_)) + (foldr (lambda (_%g52425245%_ + _%g52435248%_) + (cons _%g52425245%_ + _%g52435248%_)) '() - _%L5286%_))) - (_%g52055229%_ _%g52065233%_))) - _%detail52235282%_ - _%hd52135250%_)))))) + _%g51465223%_))) + (_%g51445168%_ _%g51455172%_))) + _%detail51625220%_ + _%hd51525189%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop52185262%_ - _%target52155256%_ + (_%loop51575201%_ + _%target51545195%_ '())) - (_%g52055229%_ - _%g52065233%_))))) - (_%g52055229%_ _%g52065233%_)))) - (_%g52055229%_ _%g52065233%_)))) - (_%g52055229%_ _%g52065233%_))))) - (_%g52045314%_ _%stx5202%_)))) + (_%g51445168%_ + _%g51455172%_))))) + (_%g51445168%_ _%g51455172%_)))) + (_%g51445168%_ _%g51455172%_)))) + (_%g51445168%_ _%g51455172%_))))) + (_%g51435251%_ _%stx5141%_)))) (define |gerbil/core/sugar~Sugar-1[:0:]#compilation-target?| - (lambda (_%$stx5319%_) - (let* ((_%g53235337%_ - (lambda (_%g53245333%_) + (lambda (_%$stx5256%_) + (let* ((_%g52605274%_ + (lambda (_%g52615270%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g53245333%_))) - (_%g53225378%_ - (lambda (_%g53245341%_) - (if (gx#stx-pair? _%g53245341%_) - (let ((_%e53265344%_ (gx#syntax-e _%g53245341%_))) - (let ((_%hd53275348%_ + _%g52615270%_))) + (_%g52595315%_ + (lambda (_%g52615278%_) + (if (gx#stx-pair? _%g52615278%_) + (let ((_%e52635281%_ (gx#syntax-e _%g52615278%_))) + (let ((_%hd52645285%_ (let () (declare (not safe)) - (##car _%e53265344%_))) - (_%tl53285351%_ + (##car _%e52635281%_))) + (_%tl52655288%_ (let () (declare (not safe)) - (##cdr _%e53265344%_)))) - (if (gx#stx-pair? _%tl53285351%_) - (let ((_%e53295354%_ - (gx#syntax-e _%tl53285351%_))) - (let ((_%hd53305358%_ + (##cdr _%e52635281%_)))) + (if (gx#stx-pair? _%tl52655288%_) + (let ((_%e52665291%_ + (gx#syntax-e _%tl52655288%_))) + (let ((_%hd52675295%_ (let () (declare (not safe)) - (##car _%e53295354%_))) - (_%tl53315361%_ + (##car _%e52665291%_))) + (_%tl52685298%_ (let () (declare (not safe)) - (##cdr _%e53295354%_)))) - (if (gx#stx-null? _%tl53315361%_) - ((lambda (_%L5364%_) + (##cdr _%e52665291%_)))) + (if (gx#stx-null? _%tl52685298%_) + ((lambda (_%g52625301%_) (cons (gx#datum->syntax '#f 'eq?) (cons (cons (gx#datum->syntax '#f @@ -3459,11 +3489,11 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L5364%_ '())) + (cons _%g52625301%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd53305358%_) - (_%g53235337%_ _%g53245341%_)))) - (_%g53235337%_ _%g53245341%_)))) - (_%g53235337%_ _%g53245341%_))))) - (_%g53225378%_ _%$stx5319%_)))))) + _%hd52675295%_) + (_%g52605274%_ _%g52615278%_)))) + (_%g52605274%_ _%g52615278%_)))) + (_%g52605274%_ _%g52615278%_))))) + (_%g52595315%_ _%$stx5256%_)))))) diff --git a/src/bootstrap/gerbil/core/sugar~2.scm b/src/bootstrap/gerbil/core/sugar~2.scm index 341cfcd14c..751d21d5b0 100644 --- a/src/bootstrap/gerbil/core/sugar~2.scm +++ b/src/bootstrap/gerbil/core/sugar~2.scm @@ -1,110 +1,110 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/sugar~Sugar-2[1]#_g20916_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20753_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20917_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20754_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20918_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20755_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20946_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20783_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20947_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20784_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20948_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20785_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20955_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20792_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20956_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20793_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20957_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20794_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20958_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20795_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20959_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20796_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20960_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20797_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20961_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20798_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20962_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20799_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20963_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20800_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20964_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20801_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20965_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20802_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20966_| + (define |gerbil/core/sugar~Sugar-2[1]#_g20803_| (##structure gx#syntax-quote::t '<...> @@ -113,2105 +113,2126 @@ '())) (begin (define |gerbil/core/sugar~Sugar-2[:0:]#lambda| - (lambda (_%stx5383%_) - (letrec ((_%simple-lambda?5386%_ - (lambda (_%hd8792%_) - (gx#stx-andmap gx#identifier? _%hd8792%_))) - (_%opt-lambda?5388%_ - (lambda (_%hd8644%_) - (let _%lp8647%_ ((_%rest8650%_ _%hd8644%_) - (_%opt?8652%_ '#f)) - (let* ((_%__stx1903419035%_ _%rest8650%_) - (_%g86558667%_ + (lambda (_%stx5320%_) + (letrec ((_%simple-lambda?5323%_ + (lambda (_%hd8707%_) + (gx#stx-andmap gx#identifier? _%hd8707%_))) + (_%opt-lambda?5325%_ + (lambda (_%hd8559%_) + (let _%lp8562%_ ((_%rest8565%_ _%hd8559%_) + (_%opt?8567%_ '#f)) + (let* ((_%__stx1887118872%_ _%rest8565%_) + (_%g85708582%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1903419035%_)))) - (let ((_%__kont1903719038%_ - (lambda (_%L8699%_ _%L8701%_) - (let* ((_%__stx1901019011%_ _%L8701%_) - (_%g87178731%_ + _%__stx1887118872%_)))) + (let ((_%__kont1887418875%_ + (lambda (_%g85728614%_ _%g85738616%_) + (let* ((_%__stx1884718848%_ _%g85738616%_) + (_%g86328646%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1901019011%_)))) - (let ((_%__kont1901319014%_ - (lambda (_%L8769%_) - (_%lp8647%_ _%L8699%_ '#t))) - (_%__kont1901519016%_ + _%__stx1884718848%_)))) + (let ((_%__kont1885018851%_ + (lambda (_%g86348684%_) + (_%lp8562%_ _%g85728614%_ '#t))) + (_%__kont1885218853%_ (lambda () - (if (gx#identifier? _%L8701%_) - (if (not _%opt?8652%_) - (_%lp8647%_ _%L8699%_ '#f) + (if (gx#identifier? _%g85738616%_) + (if (not _%opt?8567%_) + (_%lp8562%_ + _%g85728614%_ + '#f) '#f) '#f)))) - (let ((_%__match1903119032%_ - (lambda (_%e87208749%_ - _%hd87218753%_ - _%tl87228756%_ - _%e87238759%_ - _%hd87248763%_ - _%tl87258766%_) - (let ((_%L8769%_ _%hd87218753%_)) - (if (gx#identifier? _%L8769%_) - (_%__kont1901319014%_ - _%L8769%_) - (_%__kont1901519016%_)))))) - (if (gx#stx-pair? _%__stx1901019011%_) - (let ((_%e87208749%_ + (let ((_%__match1886818869%_ + (lambda (_%e86358664%_ + _%hd86368668%_ + _%tl86378671%_ + _%e86388674%_ + _%hd86398678%_ + _%tl86408681%_) + (let ((_%g86348684%_ + _%hd86368668%_)) + (if (gx#identifier? + _%g86348684%_) + (_%__kont1885018851%_ + _%g86348684%_) + (_%__kont1885218853%_)))))) + (if (gx#stx-pair? _%__stx1884718848%_) + (let ((_%e86358664%_ (gx#syntax-e - _%__stx1901019011%_))) - (let ((_%tl87228756%_ + _%__stx1884718848%_))) + (let ((_%tl86378671%_ (let () (declare (not safe)) - (##cdr _%e87208749%_))) - (_%hd87218753%_ + (##cdr _%e86358664%_))) + (_%hd86368668%_ (let () (declare (not safe)) - (##car _%e87208749%_)))) + (##car _%e86358664%_)))) (if (gx#stx-pair? - _%tl87228756%_) - (let ((_%e87238759%_ + _%tl86378671%_) + (let ((_%e86388674%_ (gx#syntax-e - _%tl87228756%_))) - (let ((_%tl87258766%_ + _%tl86378671%_))) + (let ((_%tl86408681%_ (let () (declare (not safe)) - (##cdr _%e87238759%_))) - (_%hd87248763%_ + (##cdr _%e86388674%_))) + (_%hd86398678%_ (let () (declare (not safe)) - (##car _%e87238759%_)))) + (##car _%e86388674%_)))) (if (gx#stx-null? - _%tl87258766%_) - (_%__match1903119032%_ - _%e87208749%_ - _%hd87218753%_ - _%tl87228756%_ - _%e87238759%_ - _%hd87248763%_ - _%tl87258766%_) - (_%__kont1901519016%_)))) - (_%__kont1901519016%_)))) - (_%__kont1901519016%_))))))) - (_%__kont1903919040%_ + _%tl86408681%_) + (_%__match1886818869%_ + _%e86358664%_ + _%hd86368668%_ + _%tl86378671%_ + _%e86388674%_ + _%hd86398678%_ + _%tl86408681%_) + (_%__kont1885218853%_)))) + (_%__kont1885218853%_)))) + (_%__kont1885218853%_))))))) + (_%__kont1887618877%_ (lambda () - (if _%opt?8652%_ - (let ((_%$e8678%_ - (gx#stx-null? _%rest8650%_))) - (if _%$e8678%_ - _%$e8678%_ - (gx#identifier? _%rest8650%_))) + (if _%opt?8567%_ + (let ((_%$e8593%_ + (gx#stx-null? _%rest8565%_))) + (if _%$e8593%_ + _%$e8593%_ + (gx#identifier? _%rest8565%_))) '#f)))) - (if (gx#stx-pair? _%__stx1903419035%_) - (let ((_%e86598689%_ - (gx#syntax-e _%__stx1903419035%_))) - (let ((_%tl86618696%_ + (if (gx#stx-pair? _%__stx1887118872%_) + (let ((_%e85748604%_ + (gx#syntax-e _%__stx1887118872%_))) + (let ((_%tl85768611%_ (let () (declare (not safe)) - (##cdr _%e86598689%_))) - (_%hd86608693%_ + (##cdr _%e85748604%_))) + (_%hd85758608%_ (let () (declare (not safe)) - (##car _%e86598689%_)))) - (_%__kont1903719038%_ - _%tl86618696%_ - _%hd86608693%_))) - (_%__kont1903919040%_))))))) - (_%opt-lambda-split5389%_ - (lambda (_%hd8496%_) - (let _%lp8499%_ ((_%rest8502%_ _%hd8496%_) - (_%pre8504%_ '()) - (_%opt8505%_ '())) - (let* ((_%__stx1907419075%_ _%rest8502%_) - (_%g85088520%_ + (##car _%e85748604%_)))) + (_%__kont1887418875%_ + _%tl85768611%_ + _%hd85758608%_))) + (_%__kont1887618877%_))))))) + (_%opt-lambda-split5326%_ + (lambda (_%hd8411%_) + (let _%lp8414%_ ((_%rest8417%_ _%hd8411%_) + (_%pre8419%_ '()) + (_%opt8420%_ '())) + (let* ((_%__stx1891118912%_ _%rest8417%_) + (_%g84238435%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1907419075%_)))) - (let ((_%__kont1907719078%_ - (lambda (_%L8548%_ _%L8550%_) - (let* ((_%__stx1905019051%_ _%L8550%_) - (_%g85668581%_ + _%__stx1891118912%_)))) + (let ((_%__kont1891418915%_ + (lambda (_%g84258463%_ _%g84268465%_) + (let* ((_%__stx1888718888%_ _%g84268465%_) + (_%g84818496%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1905019051%_)))) - (let ((_%__kont1905319054%_ - (lambda (_%L8619%_ _%L8621%_) - (_%lp8499%_ - _%L8548%_ - _%pre8504%_ - (cons (cons _%L8621%_ _%L8619%_) - _%opt8505%_)))) - (_%__kont1905519056%_ + _%__stx1888718888%_)))) + (let ((_%__kont1889018891%_ + (lambda (_%g84838534%_ _%g84848536%_) + (_%lp8414%_ + _%g84258463%_ + _%pre8419%_ + (cons (cons _%g84848536%_ + _%g84838534%_) + _%opt8420%_)))) + (_%__kont1889218893%_ (lambda () - (_%lp8499%_ - _%L8548%_ - (cons _%L8550%_ _%pre8504%_) - _%opt8505%_)))) - (if (gx#stx-pair? _%__stx1905019051%_) - (let ((_%e85708599%_ + (_%lp8414%_ + _%g84258463%_ + (cons _%g84268465%_ _%pre8419%_) + _%opt8420%_)))) + (if (gx#stx-pair? _%__stx1888718888%_) + (let ((_%e84858514%_ (gx#syntax-e - _%__stx1905019051%_))) - (let ((_%tl85728606%_ + _%__stx1888718888%_))) + (let ((_%tl84878521%_ (let () (declare (not safe)) - (##cdr _%e85708599%_))) - (_%hd85718603%_ + (##cdr _%e84858514%_))) + (_%hd84868518%_ (let () (declare (not safe)) - (##car _%e85708599%_)))) - (if (gx#stx-pair? _%tl85728606%_) - (let ((_%e85738609%_ + (##car _%e84858514%_)))) + (if (gx#stx-pair? _%tl84878521%_) + (let ((_%e84888524%_ (gx#syntax-e - _%tl85728606%_))) - (let ((_%tl85758616%_ + _%tl84878521%_))) + (let ((_%tl84908531%_ (let () (declare (not safe)) - (##cdr _%e85738609%_))) - (_%hd85748613%_ + (##cdr _%e84888524%_))) + (_%hd84898528%_ (let () (declare (not safe)) - (##car _%e85738609%_)))) + (##car _%e84888524%_)))) (if (gx#stx-null? - _%tl85758616%_) - (_%__kont1905319054%_ - _%hd85748613%_ - _%hd85718603%_) - (_%__kont1905519056%_)))) - (_%__kont1905519056%_)))) - (_%__kont1905519056%_)))))) - (_%__kont1907919080%_ + _%tl84908531%_) + (_%__kont1889018891%_ + _%hd84898528%_ + _%hd84868518%_) + (_%__kont1889218893%_)))) + (_%__kont1889218893%_)))) + (_%__kont1889218893%_)))))) + (_%__kont1891618917%_ (lambda () - (values (reverse _%pre8504%_) - (reverse _%opt8505%_) - _%rest8502%_)))) - (if (gx#stx-pair? _%__stx1907419075%_) - (let ((_%e85128538%_ - (gx#syntax-e _%__stx1907419075%_))) - (let ((_%tl85148545%_ + (values (reverse _%pre8419%_) + (reverse _%opt8420%_) + _%rest8417%_)))) + (if (gx#stx-pair? _%__stx1891118912%_) + (let ((_%e84278453%_ + (gx#syntax-e _%__stx1891118912%_))) + (let ((_%tl84298460%_ (let () (declare (not safe)) - (##cdr _%e85128538%_))) - (_%hd85138542%_ + (##cdr _%e84278453%_))) + (_%hd84288457%_ (let () (declare (not safe)) - (##car _%e85128538%_)))) - (_%__kont1907719078%_ - _%tl85148545%_ - _%hd85138542%_))) - (_%__kont1907919080%_))))))) - (_%kw-lambda?5390%_ - (lambda (_%hd8164%_) - (let _%lp8167%_ ((_%rest8170%_ _%hd8164%_) - (_%opt?8172%_ '#f) - (_%key?8173%_ '#f)) - (let* ((_%__stx1913819139%_ _%rest8170%_) - (_%g81788208%_ + (##car _%e84278453%_)))) + (_%__kont1891418915%_ + _%tl84298460%_ + _%hd84288457%_))) + (_%__kont1891618917%_))))))) + (_%kw-lambda?5327%_ + (lambda (_%hd8079%_) + (let _%lp8082%_ ((_%rest8085%_ _%hd8079%_) + (_%opt?8087%_ '#f) + (_%key?8088%_ '#f)) + (let* ((_%__stx1897518976%_ _%rest8085%_) + (_%g80938123%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1913819139%_)))) - (let ((_%__kont1914119142%_ - (lambda (_%L8403%_ _%L8405%_ _%L8406%_) - (let* ((_%__stx1911419115%_ _%L8405%_) - (_%g84218435%_ + _%__stx1897518976%_)))) + (let ((_%__kont1897818979%_ + (lambda (_%g80958318%_ + _%g80968320%_ + _%g80978321%_) + (let* ((_%__stx1895118952%_ _%g80968320%_) + (_%g83368350%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1911419115%_)))) - (let ((_%__kont1911719118%_ - (lambda (_%L8473%_) - (if (gx#identifier? _%L8473%_) - (_%lp8167%_ - _%L8403%_ - _%opt?8172%_ + _%__stx1895118952%_)))) + (let ((_%__kont1895418955%_ + (lambda (_%g83388388%_) + (if (gx#identifier? _%g83388388%_) + (_%lp8082%_ + _%g80958318%_ + _%opt?8087%_ '#t) '#f))) - (_%__kont1911919120%_ + (_%__kont1895618957%_ (lambda () - (if (gx#identifier? _%L8405%_) - (_%lp8167%_ - _%L8403%_ - _%opt?8172%_ + (if (gx#identifier? _%g80968320%_) + (_%lp8082%_ + _%g80958318%_ + _%opt?8087%_ '#t) '#f)))) - (if (gx#stx-pair? _%__stx1911419115%_) - (let ((_%e84248453%_ + (if (gx#stx-pair? _%__stx1895118952%_) + (let ((_%e83398368%_ (gx#syntax-e - _%__stx1911419115%_))) - (let ((_%tl84268460%_ + _%__stx1895118952%_))) + (let ((_%tl83418375%_ (let () (declare (not safe)) - (##cdr _%e84248453%_))) - (_%hd84258457%_ + (##cdr _%e83398368%_))) + (_%hd83408372%_ (let () (declare (not safe)) - (##car _%e84248453%_)))) - (if (gx#stx-pair? _%tl84268460%_) - (let ((_%e84278463%_ + (##car _%e83398368%_)))) + (if (gx#stx-pair? _%tl83418375%_) + (let ((_%e83428378%_ (gx#syntax-e - _%tl84268460%_))) - (let ((_%tl84298470%_ + _%tl83418375%_))) + (let ((_%tl83448385%_ (let () (declare (not safe)) - (##cdr _%e84278463%_))) - (_%hd84288467%_ + (##cdr _%e83428378%_))) + (_%hd83438382%_ (let () (declare (not safe)) - (##car _%e84278463%_)))) + (##car _%e83428378%_)))) (if (gx#stx-null? - _%tl84298470%_) - (_%__kont1911719118%_ - _%hd84258457%_) - (_%__kont1911919120%_)))) - (_%__kont1911919120%_)))) - (_%__kont1911919120%_)))))) - (_%__kont1914319144%_ - (lambda (_%L8360%_ _%L8362%_) - (if (gx#identifier? _%L8362%_) - (_%lp8167%_ _%L8360%_ _%opt?8172%_ '#t) + _%tl83448385%_) + (_%__kont1895418955%_ + _%hd83408372%_) + (_%__kont1895618957%_)))) + (_%__kont1895618957%_)))) + (_%__kont1895618957%_)))))) + (_%__kont1898018981%_ + (lambda (_%g81048275%_ _%g81058277%_) + (if (gx#identifier? _%g81058277%_) + (_%lp8082%_ + _%g81048275%_ + _%opt?8087%_ + '#t) '#f))) - (_%__kont1914519146%_ - (lambda (_%L8240%_ _%L8242%_) - (let* ((_%__stx1909019091%_ _%L8242%_) - (_%g82588272%_ + (_%__kont1898218983%_ + (lambda (_%g81138155%_ _%g81148157%_) + (let* ((_%__stx1892718928%_ _%g81148157%_) + (_%g81738187%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1909019091%_)))) - (let ((_%__kont1909319094%_ - (lambda (_%L8310%_) - (if (gx#identifier? _%L8310%_) - (_%lp8167%_ - _%L8240%_ + _%__stx1892718928%_)))) + (let ((_%__kont1893018931%_ + (lambda (_%g81758225%_) + (if (gx#identifier? _%g81758225%_) + (_%lp8082%_ + _%g81138155%_ '#t - _%key?8173%_) + _%key?8088%_) '#f))) - (_%__kont1909519096%_ + (_%__kont1893218933%_ (lambda () - (if (gx#identifier? _%L8242%_) - (if (not _%opt?8172%_) - (_%lp8167%_ - _%L8240%_ + (if (gx#identifier? _%g81148157%_) + (if (not _%opt?8087%_) + (_%lp8082%_ + _%g81138155%_ '#f - _%key?8173%_) + _%key?8088%_) '#f) '#f)))) - (if (gx#stx-pair? _%__stx1909019091%_) - (let ((_%e82618290%_ + (if (gx#stx-pair? _%__stx1892718928%_) + (let ((_%e81768205%_ (gx#syntax-e - _%__stx1909019091%_))) - (let ((_%tl82638297%_ + _%__stx1892718928%_))) + (let ((_%tl81788212%_ (let () (declare (not safe)) - (##cdr _%e82618290%_))) - (_%hd82628294%_ + (##cdr _%e81768205%_))) + (_%hd81778209%_ (let () (declare (not safe)) - (##car _%e82618290%_)))) - (if (gx#stx-pair? _%tl82638297%_) - (let ((_%e82648300%_ + (##car _%e81768205%_)))) + (if (gx#stx-pair? _%tl81788212%_) + (let ((_%e81798215%_ (gx#syntax-e - _%tl82638297%_))) - (let ((_%tl82668307%_ + _%tl81788212%_))) + (let ((_%tl81818222%_ (let () (declare (not safe)) - (##cdr _%e82648300%_))) - (_%hd82658304%_ + (##cdr _%e81798215%_))) + (_%hd81808219%_ (let () (declare (not safe)) - (##car _%e82648300%_)))) + (##car _%e81798215%_)))) (if (gx#stx-null? - _%tl82668307%_) - (_%__kont1909319094%_ - _%hd82628294%_) - (_%__kont1909519096%_)))) - (_%__kont1909519096%_)))) - (_%__kont1909519096%_)))))) - (_%__kont1914719148%_ + _%tl81818222%_) + (_%__kont1893018931%_ + _%hd81778209%_) + (_%__kont1893218933%_)))) + (_%__kont1893218933%_)))) + (_%__kont1893218933%_)))))) + (_%__kont1898418985%_ (lambda () - (if _%key?8173%_ - (let ((_%$e8219%_ - (gx#stx-null? _%rest8170%_))) - (if _%$e8219%_ - _%$e8219%_ - (gx#identifier? _%rest8170%_))) + (if _%key?8088%_ + (let ((_%$e8134%_ + (gx#stx-null? _%rest8085%_))) + (if _%$e8134%_ + _%$e8134%_ + (gx#identifier? _%rest8085%_))) '#f)))) - (let ((_%__match1916119162%_ - (lambda (_%e81838383%_ - _%hd81848387%_ - _%tl81858390%_ - _%e81868393%_ - _%hd81878397%_ - _%tl81888400%_) - (let ((_%L8403%_ _%tl81888400%_) - (_%L8405%_ _%hd81878397%_) - (_%L8406%_ _%hd81848387%_)) - (if (gx#stx-keyword? _%L8406%_) - (_%__kont1914119142%_ - _%L8403%_ - _%L8405%_ - _%L8406%_) - (if (gx#stx-datum? _%hd81848387%_) - (let ((_%e81948346%_ - (gx#stx-e _%hd81848387%_))) - (if (equal? _%e81948346%_ + (let ((_%__match1899818999%_ + (lambda (_%e80988298%_ + _%hd80998302%_ + _%tl81008305%_ + _%e81018308%_ + _%hd81028312%_ + _%tl81038315%_) + (let ((_%g80958318%_ _%tl81038315%_) + (_%g80968320%_ _%hd81028312%_) + (_%g80978321%_ _%hd80998302%_)) + (if (gx#stx-keyword? _%g80978321%_) + (_%__kont1897818979%_ + _%g80958318%_ + _%g80968320%_ + _%g80978321%_) + (if (gx#stx-datum? _%hd80998302%_) + (let ((_%e81098261%_ + (gx#stx-e _%hd80998302%_))) + (if (equal? _%e81098261%_ '#!key) - (_%__kont1914319144%_ - _%tl81888400%_ - _%hd81878397%_) - (_%__kont1914519146%_ - _%tl81858390%_ - _%hd81848387%_))) - (_%__kont1914519146%_ - _%tl81858390%_ - _%hd81848387%_))))))) - (if (gx#stx-pair? _%__stx1913819139%_) - (let ((_%e81838383%_ - (gx#syntax-e _%__stx1913819139%_))) - (let ((_%tl81858390%_ + (_%__kont1898018981%_ + _%tl81038315%_ + _%hd81028312%_) + (_%__kont1898218983%_ + _%tl81008305%_ + _%hd80998302%_))) + (_%__kont1898218983%_ + _%tl81008305%_ + _%hd80998302%_))))))) + (if (gx#stx-pair? _%__stx1897518976%_) + (let ((_%e80988298%_ + (gx#syntax-e _%__stx1897518976%_))) + (let ((_%tl81008305%_ (let () (declare (not safe)) - (##cdr _%e81838383%_))) - (_%hd81848387%_ + (##cdr _%e80988298%_))) + (_%hd80998302%_ (let () (declare (not safe)) - (##car _%e81838383%_)))) - (if (gx#stx-pair? _%tl81858390%_) - (let ((_%e81868393%_ - (gx#syntax-e _%tl81858390%_))) - (let ((_%tl81888400%_ + (##car _%e80988298%_)))) + (if (gx#stx-pair? _%tl81008305%_) + (let ((_%e81018308%_ + (gx#syntax-e _%tl81008305%_))) + (let ((_%tl81038315%_ (let () (declare (not safe)) - (##cdr _%e81868393%_))) - (_%hd81878397%_ + (##cdr _%e81018308%_))) + (_%hd81028312%_ (let () (declare (not safe)) - (##car _%e81868393%_)))) - (_%__match1916119162%_ - _%e81838383%_ - _%hd81848387%_ - _%tl81858390%_ - _%e81868393%_ - _%hd81878397%_ - _%tl81888400%_))) - (if (gx#stx-datum? _%hd81848387%_) - (let ((_%e81948346%_ - (gx#stx-e _%hd81848387%_))) - (_%__kont1914519146%_ - _%tl81858390%_ - _%hd81848387%_)) - (_%__kont1914519146%_ - _%tl81858390%_ - _%hd81848387%_))))) - (_%__kont1914719148%_)))))))) - (_%kw-lambda-split5391%_ - (lambda (_%hd7897%_) - (let _%lp7900%_ ((_%rest7903%_ _%hd7897%_) - (_%kwvar7905%_ '#f) - (_%kwargs7906%_ '()) - (_%args7907%_ '())) - (let* ((_%__stx1921219213%_ _%rest7903%_) - (_%g79127942%_ + (##car _%e81018308%_)))) + (_%__match1899818999%_ + _%e80988298%_ + _%hd80998302%_ + _%tl81008305%_ + _%e81018308%_ + _%hd81028312%_ + _%tl81038315%_))) + (if (gx#stx-datum? _%hd80998302%_) + (let ((_%e81098261%_ + (gx#stx-e _%hd80998302%_))) + (_%__kont1898218983%_ + _%tl81008305%_ + _%hd80998302%_)) + (_%__kont1898218983%_ + _%tl81008305%_ + _%hd80998302%_))))) + (_%__kont1898418985%_)))))))) + (_%kw-lambda-split5328%_ + (lambda (_%hd7812%_) + (let _%lp7815%_ ((_%rest7818%_ _%hd7812%_) + (_%kwvar7820%_ '#f) + (_%kwargs7821%_ '()) + (_%args7822%_ '())) + (let* ((_%__stx1904919050%_ _%rest7818%_) + (_%g78277857%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1921219213%_)))) - (let ((_%__kont1921519216%_ - (lambda (_%L8061%_ _%L8063%_ _%L8064%_) - (let ((_%key8078%_ (gx#stx-e _%L8064%_))) - (if (find (lambda (_%kwarg8081%_) - (eq? _%key8078%_ - (car _%kwarg8081%_))) - _%kwargs7906%_) + _%__stx1904919050%_)))) + (let ((_%__kont1905219053%_ + (lambda (_%g78297976%_ + _%g78307978%_ + _%g78317979%_) + (let ((_%key7993%_ (gx#stx-e _%g78317979%_))) + (if (find (lambda (_%kwarg7996%_) + (eq? _%key7993%_ + (car _%kwarg7996%_))) + _%kwargs7821%_) (gx#raise-syntax-error '#f '"bad syntax; duplicate keyword argument" - _%stx5383%_ - _%hd7897%_ - _%key8078%_) - (let* ((_%__stx1918819189%_ _%L8063%_) - (_%g80858100%_ + _%stx5320%_ + _%hd7812%_ + _%key7993%_) + (let* ((_%__stx1902519026%_ + _%g78307978%_) + (_%g80008015%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1918819189%_)))) - (let ((_%__kont1919119192%_ - (lambda (_%L8138%_ _%L8140%_) - (_%lp7900%_ - _%L8061%_ - _%kwvar7905%_ - (cons (list _%key8078%_ - _%L8140%_ - _%L8138%_) - _%kwargs7906%_) - _%args7907%_))) - (_%__kont1919319194%_ + _%__stx1902519026%_)))) + (let ((_%__kont1902819029%_ + (lambda (_%g80028053%_ + _%g80038055%_) + (_%lp7815%_ + _%g78297976%_ + _%kwvar7820%_ + (cons (list _%key7993%_ + _%g80038055%_ + _%g80028053%_) + _%kwargs7821%_) + _%args7822%_))) + (_%__kont1903019031%_ (lambda () - (_%lp7900%_ - _%L8061%_ - _%kwvar7905%_ - (cons (list _%key8078%_ - _%L8063%_ + (_%lp7815%_ + _%g78297976%_ + _%kwvar7820%_ + (cons (list _%key7993%_ + _%g78307978%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'error) (cons '"Missing required keyword argument" - (cons _%L8064%_ '())))) - _%kwargs7906%_) + (cons _%g78317979%_ '())))) + _%kwargs7821%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%args7907%_)))) + _%args7822%_)))) (if (gx#stx-pair? - _%__stx1918819189%_) - (let ((_%e80898118%_ + _%__stx1902519026%_) + (let ((_%e80048033%_ (gx#syntax-e - _%__stx1918819189%_))) - (let ((_%tl80918125%_ + _%__stx1902519026%_))) + (let ((_%tl80068040%_ (let () (declare (not safe)) - (##cdr _%e80898118%_))) - (_%hd80908122%_ + (##cdr _%e80048033%_))) + (_%hd80058037%_ (let () (declare (not safe)) - (##car _%e80898118%_)))) + (##car _%e80048033%_)))) (if (gx#stx-pair? - _%tl80918125%_) - (let ((_%e80928128%_ + _%tl80068040%_) + (let ((_%e80078043%_ (gx#syntax-e - _%tl80918125%_))) - (let ((_%tl80948135%_ + _%tl80068040%_))) + (let ((_%tl80098050%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e80928128%_))) - (_%hd80938132%_ - (let () (declare (not safe)) (##car _%e80928128%_)))) - (if (gx#stx-null? _%tl80948135%_) - (_%__kont1919119192%_ _%hd80938132%_ _%hd80908122%_) - (_%__kont1919319194%_)))) - (_%__kont1919319194%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont1919319194%_)))))))) - (_%__kont1921719218%_ - (lambda (_%L8018%_ _%L8020%_) - (if _%kwvar7905%_ + (##cdr _%e80078043%_))) + (_%hd80088047%_ + (let () (declare (not safe)) (##car _%e80078043%_)))) + (if (gx#stx-null? _%tl80098050%_) + (_%__kont1902819029%_ _%hd80088047%_ _%hd80058037%_) + (_%__kont1903019031%_)))) + (_%__kont1903019031%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont1903019031%_)))))))) + (_%__kont1905419055%_ + (lambda (_%g78387933%_ _%g78397935%_) + (if _%kwvar7820%_ (gx#raise-syntax-error '#f '"bad syntax; duplicate #!key argument" - _%stx5383%_ - _%hd7897%_ - _%L8020%_) - (_%lp7900%_ - _%L8018%_ - _%L8020%_ - _%kwargs7906%_ - _%args7907%_)))) - (_%__kont1921919220%_ - (lambda (_%L7970%_ _%L7972%_) - (_%lp7900%_ - _%L7970%_ - _%kwvar7905%_ - _%kwargs7906%_ - (cons _%L7972%_ _%args7907%_)))) - (_%__kont1922119222%_ + _%stx5320%_ + _%hd7812%_ + _%g78397935%_) + (_%lp7815%_ + _%g78387933%_ + _%g78397935%_ + _%kwargs7821%_ + _%args7822%_)))) + (_%__kont1905619057%_ + (lambda (_%g78477885%_ _%g78487887%_) + (_%lp7815%_ + _%g78477885%_ + _%kwvar7820%_ + _%kwargs7821%_ + (cons _%g78487887%_ _%args7822%_)))) + (_%__kont1905819059%_ (lambda () - (values _%kwvar7905%_ - (reverse _%kwargs7906%_) + (values _%kwvar7820%_ + (reverse _%kwargs7821%_) (foldl cons - _%rest7903%_ - _%args7907%_))))) - (let ((_%__match1923519236%_ - (lambda (_%e79178041%_ - _%hd79188045%_ - _%tl79198048%_ - _%e79208051%_ - _%hd79218055%_ - _%tl79228058%_) - (let ((_%L8061%_ _%tl79228058%_) - (_%L8063%_ _%hd79218055%_) - (_%L8064%_ _%hd79188045%_)) - (if (gx#stx-keyword? _%L8064%_) - (_%__kont1921519216%_ - _%L8061%_ - _%L8063%_ - _%L8064%_) - (if (gx#stx-datum? _%hd79188045%_) - (let ((_%e79288004%_ - (gx#stx-e _%hd79188045%_))) - (if (equal? _%e79288004%_ + _%rest7818%_ + _%args7822%_))))) + (let ((_%__match1907219073%_ + (lambda (_%e78327956%_ + _%hd78337960%_ + _%tl78347963%_ + _%e78357966%_ + _%hd78367970%_ + _%tl78377973%_) + (let ((_%g78297976%_ _%tl78377973%_) + (_%g78307978%_ _%hd78367970%_) + (_%g78317979%_ _%hd78337960%_)) + (if (gx#stx-keyword? _%g78317979%_) + (_%__kont1905219053%_ + _%g78297976%_ + _%g78307978%_ + _%g78317979%_) + (if (gx#stx-datum? _%hd78337960%_) + (let ((_%e78437919%_ + (gx#stx-e _%hd78337960%_))) + (if (equal? _%e78437919%_ '#!key) - (_%__kont1921719218%_ - _%tl79228058%_ - _%hd79218055%_) - (_%__kont1921919220%_ - _%tl79198048%_ - _%hd79188045%_))) - (_%__kont1921919220%_ - _%tl79198048%_ - _%hd79188045%_))))))) - (if (gx#stx-pair? _%__stx1921219213%_) - (let ((_%e79178041%_ - (gx#syntax-e _%__stx1921219213%_))) - (let ((_%tl79198048%_ + (_%__kont1905419055%_ + _%tl78377973%_ + _%hd78367970%_) + (_%__kont1905619057%_ + _%tl78347963%_ + _%hd78337960%_))) + (_%__kont1905619057%_ + _%tl78347963%_ + _%hd78337960%_))))))) + (if (gx#stx-pair? _%__stx1904919050%_) + (let ((_%e78327956%_ + (gx#syntax-e _%__stx1904919050%_))) + (let ((_%tl78347963%_ (let () (declare (not safe)) - (##cdr _%e79178041%_))) - (_%hd79188045%_ + (##cdr _%e78327956%_))) + (_%hd78337960%_ (let () (declare (not safe)) - (##car _%e79178041%_)))) - (if (gx#stx-pair? _%tl79198048%_) - (let ((_%e79208051%_ - (gx#syntax-e _%tl79198048%_))) - (let ((_%tl79228058%_ + (##car _%e78327956%_)))) + (if (gx#stx-pair? _%tl78347963%_) + (let ((_%e78357966%_ + (gx#syntax-e _%tl78347963%_))) + (let ((_%tl78377973%_ (let () (declare (not safe)) - (##cdr _%e79208051%_))) - (_%hd79218055%_ + (##cdr _%e78357966%_))) + (_%hd78367970%_ (let () (declare (not safe)) - (##car _%e79208051%_)))) - (_%__match1923519236%_ - _%e79178041%_ - _%hd79188045%_ - _%tl79198048%_ - _%e79208051%_ - _%hd79218055%_ - _%tl79228058%_))) - (if (gx#stx-datum? _%hd79188045%_) - (let ((_%e79288004%_ - (gx#stx-e _%hd79188045%_))) - (_%__kont1921919220%_ - _%tl79198048%_ - _%hd79188045%_)) - (_%__kont1921919220%_ - _%tl79198048%_ - _%hd79188045%_))))) - (_%__kont1922119222%_)))))))) - (_%check-duplicate-bindings5392%_ - (lambda (_%hd7589%_) - (let _%lp7592%_ ((_%rest7595%_ _%hd7589%_) - (_%ids7597%_ '())) - (let* ((_%__stx1928619287%_ _%rest7595%_) - (_%g76007612%_ + (##car _%e78357966%_)))) + (_%__match1907219073%_ + _%e78327956%_ + _%hd78337960%_ + _%tl78347963%_ + _%e78357966%_ + _%hd78367970%_ + _%tl78377973%_))) + (if (gx#stx-datum? _%hd78337960%_) + (let ((_%e78437919%_ + (gx#stx-e _%hd78337960%_))) + (_%__kont1905619057%_ + _%tl78347963%_ + _%hd78337960%_)) + (_%__kont1905619057%_ + _%tl78347963%_ + _%hd78337960%_))))) + (_%__kont1905819059%_)))))))) + (_%check-duplicate-bindings5329%_ + (lambda (_%hd7504%_) + (let _%lp7507%_ ((_%rest7510%_ _%hd7504%_) + (_%ids7512%_ '())) + (let* ((_%__stx1912319124%_ _%rest7510%_) + (_%g75157527%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1928619287%_)))) - (let ((_%__kont1928919290%_ - (lambda (_%L7640%_ _%L7642%_) - (if (gx#identifier? _%L7642%_) - (_%lp7592%_ - _%L7640%_ - (cons _%L7642%_ _%ids7597%_)) - (if (gx#stx-pair? _%L7642%_) - (let* ((_%g76617675%_ - (lambda (_%g76627671%_) + _%__stx1912319124%_)))) + (let ((_%__kont1912619127%_ + (lambda (_%g75177555%_ _%g75187557%_) + (if (gx#identifier? _%g75187557%_) + (_%lp7507%_ + _%g75177555%_ + (cons _%g75187557%_ _%ids7512%_)) + (if (gx#stx-pair? _%g75187557%_) + (let* ((_%g75767590%_ + (lambda (_%g75777586%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g76627671%_))) - (_%g76607717%_ - (lambda (_%g76627679%_) + _%g75777586%_))) + (_%g75757632%_ + (lambda (_%g75777594%_) (if (gx#stx-pair? - _%g76627679%_) - (let ((_%e76647682%_ + _%g75777594%_) + (let ((_%e75797597%_ (gx#syntax-e - _%g76627679%_))) - (let ((_%hd76657686%_ + _%g75777594%_))) + (let ((_%hd75807601%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e76647682%_))) - (_%tl76667689%_ - (let () (declare (not safe)) (##cdr _%e76647682%_)))) - (if (gx#stx-pair? _%tl76667689%_) - (let ((_%e76677692%_ (gx#syntax-e _%tl76667689%_))) - (let ((_%hd76687696%_ + (##car _%e75797597%_))) + (_%tl75817604%_ + (let () (declare (not safe)) (##cdr _%e75797597%_)))) + (if (gx#stx-pair? _%tl75817604%_) + (let ((_%e75827607%_ (gx#syntax-e _%tl75817604%_))) + (let ((_%hd75837611%_ (let () (declare (not safe)) - (##car _%e76677692%_))) - (_%tl76697699%_ + (##car _%e75827607%_))) + (_%tl75847614%_ (let () (declare (not safe)) - (##cdr _%e76677692%_)))) - (if (gx#stx-null? _%tl76697699%_) - ((lambda (_%L7702%_) - (_%lp7592%_ - _%L7640%_ - (cons _%L7702%_ _%ids7597%_))) - _%hd76657686%_) - (_%g76617675%_ _%g76627679%_)))) - (_%g76617675%_ _%g76627679%_)))) - (_%g76617675%_ _%g76627679%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g76607717%_ _%L7642%_)) - (if (gx#stx-keyword? _%L7642%_) - (let* ((_%g77237735%_ - (lambda (_%g77247731%_) + (##cdr _%e75827607%_)))) + (if (gx#stx-null? _%tl75847614%_) + ((lambda (_%g75787617%_) + (_%lp7507%_ + _%g75177555%_ + (cons _%g75787617%_ _%ids7512%_))) + _%hd75807601%_) + (_%g75767590%_ _%g75777594%_)))) + (_%g75767590%_ _%g75777594%_)))) + (_%g75767590%_ _%g75777594%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g75757632%_ _%g75187557%_)) + (if (gx#stx-keyword? _%g75187557%_) + (let* ((_%g76387650%_ + (lambda (_%g76397646%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g77247731%_))) - (_%g77227838%_ - (lambda (_%g77247739%_) + _%g76397646%_))) + (_%g76377753%_ + (lambda (_%g76397654%_) (if (gx#stx-pair? - _%g77247739%_) - (let ((_%e77277742%_ + _%g76397654%_) + (let ((_%e76427657%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g77247739%_))) - (let ((_%hd77287746%_ + (gx#syntax-e _%g76397654%_))) + (let ((_%hd76437661%_ (let () (declare (not safe)) - (##car _%e77277742%_))) - (_%tl77297749%_ + (##car _%e76427657%_))) + (_%tl76447664%_ (let () (declare (not safe)) - (##cdr _%e77277742%_)))) - ((lambda (_%L7752%_ _%L7754%_) - (let* ((_%__stx1926219263%_ _%L7754%_) - (_%g77677781%_ + (##cdr _%e76427657%_)))) + ((lambda (_%g76407667%_ _%g76417669%_) + (let* ((_%__stx1909919100%_ _%g76417669%_) + (_%g76827696%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1926219263%_)))) - (let ((_%__kont1926519266%_ - (lambda (_%L7819%_) - (_%lp7592%_ - _%L7752%_ - (cons _%L7819%_ _%ids7597%_)))) - (_%__kont1926719268%_ + _%__stx1909919100%_)))) + (let ((_%__kont1910219103%_ + (lambda (_%g76847734%_) + (_%lp7507%_ + _%g76407667%_ + (cons _%g76847734%_ _%ids7512%_)))) + (_%__kont1910419105%_ (lambda () - (_%lp7592%_ - _%L7752%_ - (cons _%L7754%_ _%ids7597%_))))) - (if (gx#stx-pair? _%__stx1926219263%_) - (let ((_%e77707799%_ - (gx#syntax-e _%__stx1926219263%_))) - (let ((_%tl77727806%_ + (_%lp7507%_ + _%g76407667%_ + (cons _%g76417669%_ _%ids7512%_))))) + (if (gx#stx-pair? _%__stx1909919100%_) + (let ((_%e76857714%_ + (gx#syntax-e _%__stx1909919100%_))) + (let ((_%tl76877721%_ (let () (declare (not safe)) - (##cdr _%e77707799%_))) - (_%hd77717803%_ + (##cdr _%e76857714%_))) + (_%hd76867718%_ (let () (declare (not safe)) - (##car _%e77707799%_)))) - (if (gx#stx-pair? _%tl77727806%_) - (let ((_%e77737809%_ - (gx#syntax-e _%tl77727806%_))) - (let ((_%tl77757816%_ + (##car _%e76857714%_)))) + (if (gx#stx-pair? _%tl76877721%_) + (let ((_%e76887724%_ + (gx#syntax-e _%tl76877721%_))) + (let ((_%tl76907731%_ (let () (declare (not safe)) - (##cdr _%e77737809%_))) - (_%hd77747813%_ + (##cdr _%e76887724%_))) + (_%hd76897728%_ (let () (declare (not safe)) - (##car _%e77737809%_)))) - (if (gx#stx-null? _%tl77757816%_) - (_%__kont1926519266%_ - _%hd77717803%_) - (_%__kont1926719268%_)))) - (_%__kont1926719268%_)))) - (_%__kont1926719268%_))))) - _%tl77297749%_ - _%hd77287746%_))) - (_%g77237735%_ _%g77247739%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g77227838%_ _%L7640%_)) - (if (eq? (gx#stx-e _%L7642%_) + (##car _%e76887724%_)))) + (if (gx#stx-null? _%tl76907731%_) + (_%__kont1910219103%_ + _%hd76867718%_) + (_%__kont1910419105%_)))) + (_%__kont1910419105%_)))) + (_%__kont1910419105%_))))) + _%tl76447664%_ + _%hd76437661%_))) + (_%g76387650%_ _%g76397654%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g76377753%_ _%g75177555%_)) + (if (eq? (gx#stx-e _%g75187557%_) '#!key) - (let* ((_%g78447856%_ - (lambda (_%g78457852%_) + (let* ((_%g77597771%_ + (lambda (_%g77607767%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g78457852%_))) - (_%g78437887%_ - (lambda (_%g78457860%_) + _%g77607767%_))) + (_%g77587802%_ + (lambda (_%g77607775%_) (if (gx#stx-pair? - _%g78457860%_) - (let ((_%e78487863%_ + _%g77607775%_) + (let ((_%e77637778%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g78457860%_))) - (let ((_%hd78497867%_ + (gx#syntax-e _%g77607775%_))) + (let ((_%hd77647782%_ (let () (declare (not safe)) - (##car _%e78487863%_))) - (_%tl78507870%_ + (##car _%e77637778%_))) + (_%tl77657785%_ (let () (declare (not safe)) - (##cdr _%e78487863%_)))) - ((lambda (_%L7873%_ _%L7875%_) - (_%lp7592%_ - _%L7873%_ - (cons _%L7875%_ _%ids7597%_))) - _%tl78507870%_ - _%hd78497867%_))) - (_%g78447856%_ _%g78457860%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g78437887%_ _%L7640%_)) + (##cdr _%e77637778%_)))) + ((lambda (_%g77617788%_ _%g77627790%_) + (_%lp7507%_ + _%g77617788%_ + (cons _%g77627790%_ _%ids7512%_))) + _%tl77657785%_ + _%hd77647782%_))) + (_%g77597771%_ _%g77607775%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g77587802%_ + _%g75177555%_)) (error '"BUG: check-duplicate-bindings" - _%stx5383%_ - _%rest7595%_))))))) - (_%__kont1929119292%_ + _%stx5320%_ + _%rest7510%_))))))) + (_%__kont1912819129%_ (lambda () (gx#check-duplicate-identifiers - (if (gx#stx-null? _%rest7595%_) - _%ids7597%_ - (cons _%rest7595%_ _%ids7597%_)) - _%stx5383%_)))) - (if (gx#stx-pair? _%__stx1928619287%_) - (let ((_%e76047630%_ - (gx#syntax-e _%__stx1928619287%_))) - (let ((_%tl76067637%_ + (if (gx#stx-null? _%rest7510%_) + _%ids7512%_ + (cons _%rest7510%_ _%ids7512%_)) + _%stx5320%_)))) + (if (gx#stx-pair? _%__stx1912319124%_) + (let ((_%e75197545%_ + (gx#syntax-e _%__stx1912319124%_))) + (let ((_%tl75217552%_ (let () (declare (not safe)) - (##cdr _%e76047630%_))) - (_%hd76057634%_ + (##cdr _%e75197545%_))) + (_%hd75207549%_ (let () (declare (not safe)) - (##car _%e76047630%_)))) - (_%__kont1928919290%_ - _%tl76067637%_ - _%hd76057634%_))) - (_%__kont1929119292%_))))))) - (_%generate-opt-primary5393%_ - (lambda (_%pre7381%_ _%opt7383%_ _%tail7384%_ _%body7385%_) - (let* ((_%g73877428%_ - (lambda (_%g73887424%_) + (##car _%e75197545%_)))) + (_%__kont1912619127%_ + _%tl75217552%_ + _%hd75207549%_))) + (_%__kont1912819129%_))))))) + (_%generate-opt-primary5330%_ + (lambda (_%pre7300%_ _%opt7302%_ _%tail7303%_ _%body7304%_) + (let* ((_%g73067347%_ + (lambda (_%g73077343%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g73887424%_))) - (_%g73867585%_ - (lambda (_%g73887432%_) - (if (gx#stx-pair? _%g73887432%_) - (let ((_%e73937435%_ - (gx#syntax-e _%g73887432%_))) - (let ((_%hd73947439%_ + _%g73077343%_))) + (_%g73057500%_ + (lambda (_%g73077351%_) + (if (gx#stx-pair? _%g73077351%_) + (let ((_%e73127354%_ + (gx#syntax-e _%g73077351%_))) + (let ((_%hd73137358%_ (let () (declare (not safe)) - (##car _%e73937435%_))) - (_%tl73957442%_ + (##car _%e73127354%_))) + (_%tl73147361%_ (let () (declare (not safe)) - (##cdr _%e73937435%_)))) - (if (gx#stx-pair/null? _%hd73947439%_) - (let ((_g20881_ + (##cdr _%e73127354%_)))) + (if (gx#stx-pair/null? _%hd73137358%_) + (let ((_g20718_ (gx#syntax-split-splice - _%hd73947439%_ + _%hd73137358%_ '0))) (begin - (let ((_g20882_ + (let ((_g20719_ (let () (declare (not safe)) - (if (##values? _g20881_) + (if (##values? _g20718_) (##values-length - _g20881_) + _g20718_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20882_ 2))) + (##fx= _g20719_ 2))) (error "Context expects 2 values" - _g20882_))) - (let ((_%target73967445%_ + _g20719_))) + (let ((_%target73157364%_ (let () (declare (not safe)) (##values-ref - _g20881_ + _g20718_ 0))) - (_%tl73987448%_ + (_%tl73177367%_ (let () (declare (not safe)) (##values-ref - _g20881_ + _g20718_ 1)))) (if (gx#stx-null? - _%tl73987448%_) - (letrec ((_%loop73997451%_ - (lambda (_%hd73977455%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pre74037458%_) - (if (gx#stx-pair? _%hd73977455%_) - (let ((_%e74007461%_ (gx#syntax-e _%hd73977455%_))) - (let ((_%lp-hd74017465%_ + _%tl73177367%_) + (letrec ((_%loop73187370%_ + (lambda (_%hd73167374%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%pre73227377%_) + (if (gx#stx-pair? _%hd73167374%_) + (let ((_%e73197379%_ (gx#syntax-e _%hd73167374%_))) + (let ((_%lp-hd73207383%_ (let () (declare (not safe)) - (##car _%e74007461%_))) - (_%lp-tl74027468%_ + (##car _%e73197379%_))) + (_%lp-tl73217386%_ (let () (declare (not safe)) - (##cdr _%e74007461%_)))) - (_%loop73997451%_ - _%lp-tl74027468%_ - (cons _%lp-hd74017465%_ _%pre74037458%_)))) - (let ((_%pre74047471%_ (reverse _%pre74037458%_))) - (if (gx#stx-pair? _%tl73957442%_) - (let ((_%e74057475%_ - (gx#syntax-e _%tl73957442%_))) - (let ((_%hd74067479%_ + (##cdr _%e73197379%_)))) + (_%loop73187370%_ + _%lp-tl73217386%_ + (cons _%lp-hd73207383%_ _%pre73227377%_)))) + (let ((_%pre73237389%_ (reverse _%pre73227377%_))) + (if (gx#stx-pair? _%tl73147361%_) + (let ((_%e73247392%_ + (gx#syntax-e _%tl73147361%_))) + (let ((_%hd73257396%_ (let () (declare (not safe)) - (##car _%e74057475%_))) - (_%tl74077482%_ + (##car _%e73247392%_))) + (_%tl73267399%_ (let () (declare (not safe)) - (##cdr _%e74057475%_)))) - (if (gx#stx-pair/null? _%hd74067479%_) - (let ((_g20883_ + (##cdr _%e73247392%_)))) + (if (gx#stx-pair/null? _%hd73257396%_) + (let ((_g20720_ (gx#syntax-split-splice - _%hd74067479%_ + _%hd73257396%_ '0))) (begin - (let ((_g20884_ + (let ((_g20721_ (let () (declare (not safe)) - (if (##values? _g20883_) + (if (##values? _g20720_) (##values-length - _g20883_) + _g20720_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20884_ 2))) + (##fx= _g20721_ 2))) (error "Context expects 2 values" - _g20884_))) - (let ((_%target74087485%_ + _g20721_))) + (let ((_%target73277402%_ (let () (declare (not safe)) (##values-ref - _g20883_ + _g20720_ 0))) - (_%tl74107488%_ + (_%tl73297405%_ (let () (declare (not safe)) (##values-ref - _g20883_ + _g20720_ 1)))) (if (gx#stx-null? - _%tl74107488%_) - (letrec ((_%loop74117491%_ - (lambda (_%hd74097495%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%opt74157498%_) - (if (gx#stx-pair? _%hd74097495%_) - (let ((_%e74127501%_ (gx#syntax-e _%hd74097495%_))) - (let ((_%lp-hd74137505%_ + _%tl73297405%_) + (letrec ((_%loop73307408%_ + (lambda (_%hd73287412%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%opt73347415%_) + (if (gx#stx-pair? _%hd73287412%_) + (let ((_%e73317417%_ (gx#syntax-e _%hd73287412%_))) + (let ((_%lp-hd73327421%_ (let () (declare (not safe)) - (##car _%e74127501%_))) - (_%lp-tl74147508%_ + (##car _%e73317417%_))) + (_%lp-tl73337424%_ (let () (declare (not safe)) - (##cdr _%e74127501%_)))) - (_%loop74117491%_ - _%lp-tl74147508%_ - (cons _%lp-hd74137505%_ _%opt74157498%_)))) - (let ((_%opt74167511%_ (reverse _%opt74157498%_))) - (if (gx#stx-pair? _%tl74077482%_) - (let ((_%e74177515%_ - (gx#syntax-e _%tl74077482%_))) - (let ((_%hd74187519%_ + (##cdr _%e73317417%_)))) + (_%loop73307408%_ + _%lp-tl73337424%_ + (cons _%lp-hd73327421%_ _%opt73347415%_)))) + (let ((_%opt73357427%_ (reverse _%opt73347415%_))) + (if (gx#stx-pair? _%tl73267399%_) + (let ((_%e73367430%_ + (gx#syntax-e _%tl73267399%_))) + (let ((_%hd73377434%_ (let () (declare (not safe)) - (##car _%e74177515%_))) - (_%tl74197522%_ + (##car _%e73367430%_))) + (_%tl73387437%_ (let () (declare (not safe)) - (##cdr _%e74177515%_)))) - (if (gx#stx-pair? _%tl74197522%_) - (let ((_%e74207525%_ - (gx#syntax-e _%tl74197522%_))) - (let ((_%hd74217529%_ + (##cdr _%e73367430%_)))) + (if (gx#stx-pair? _%tl73387437%_) + (let ((_%e73397440%_ + (gx#syntax-e _%tl73387437%_))) + (let ((_%hd73407444%_ (let () (declare (not safe)) - (##car _%e74207525%_))) - (_%tl74227532%_ + (##car _%e73397440%_))) + (_%tl73417447%_ (let () (declare (not safe)) - (##cdr _%e74207525%_)))) - (if (gx#stx-null? _%tl74227532%_) - ((lambda (_%L7535%_ - _%L7537%_ - _%L7538%_ - _%L7539%_) + (##cdr _%e73397440%_)))) + (if (gx#stx-null? _%tl73417447%_) + ((lambda (_%g73087450%_ + _%g73097452%_ + _%g73107453%_ + _%g73117454%_) (cons (gx#datum->syntax '#f 'lambda%) - (cons (foldr (lambda (_%g75687573%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g75697576%_) - (cons _%g75687573%_ _%g75697576%_)) - (foldr (lambda (_%g75707579%_ _%g75717582%_) - (cons _%g75707579%_ _%g75717582%_)) - _%L7537%_ - _%L7538%_) - _%L7539%_) - _%L7535%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd74217529%_ - _%hd74187519%_ - _%opt74167511%_ - _%pre74047471%_) - (_%g73877428%_ - _%g73887432%_)))) - (_%g73877428%_ _%g73887432%_)))) - (_%g73877428%_ _%g73887432%_))))))) - (_%loop74117491%_ _%target74087485%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g73877428%_ - _%g73887432%_))))) - (_%g73877428%_ _%g73887432%_)))) - (_%g73877428%_ _%g73887432%_))))))) - (_%loop73997451%_ _%target73967445%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g73877428%_ - _%g73887432%_))))) - (_%g73877428%_ _%g73887432%_)))) - (_%g73877428%_ _%g73887432%_))))) - (_%g73867585%_ - (list _%pre7381%_ - (map car _%opt7383%_) - _%tail7384%_ - _%body7385%_))))) - (_%generate-opt-dispatch5394%_ - (lambda (_%primary7375%_ - _%pre7377%_ - _%opt7378%_ - _%tail7379%_) - (cons (list _%pre7377%_ - (_%generate-opt-clause5396%_ - _%primary7375%_ - _%pre7377%_ - _%opt7378%_)) - (_%generate-opt-dispatch*5395%_ - _%primary7375%_ - _%pre7377%_ - _%opt7378%_ - _%tail7379%_)))) - (_%generate-opt-dispatch*5395%_ - (lambda (_%primary6924%_ - _%pre6926%_ - _%opt6927%_ - _%tail6928%_) - (let _%recur6930%_ ((_%opt-rest6933%_ _%opt6927%_) - (_%right6935%_ '())) - (if (pair? _%opt-rest6933%_) - (let* ((_%hd6939%_ (caar _%opt-rest6933%_)) - (_%rest6942%_ + (cons (foldr (lambda (_%g74837488%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g74847491%_) + (cons _%g74837488%_ _%g74847491%_)) + (foldr (lambda (_%g74857494%_ _%g74867497%_) + (cons _%g74857494%_ _%g74867497%_)) + _%g73097452%_ + _%g73107453%_) + _%g73117454%_) + _%g73087450%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd73407444%_ + _%hd73377434%_ + _%opt73357427%_ + _%pre73237389%_) + (_%g73067347%_ + _%g73077351%_)))) + (_%g73067347%_ _%g73077351%_)))) + (_%g73067347%_ _%g73077351%_))))))) + (_%loop73307408%_ _%target73277402%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g73067347%_ + _%g73077351%_))))) + (_%g73067347%_ _%g73077351%_)))) + (_%g73067347%_ _%g73077351%_))))))) + (_%loop73187370%_ _%target73157364%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g73067347%_ + _%g73077351%_))))) + (_%g73067347%_ _%g73077351%_)))) + (_%g73067347%_ _%g73077351%_))))) + (_%g73057500%_ + (list _%pre7300%_ + (map car _%opt7302%_) + _%tail7303%_ + _%body7304%_))))) + (_%generate-opt-dispatch5331%_ + (lambda (_%primary7294%_ + _%pre7296%_ + _%opt7297%_ + _%tail7298%_) + (cons (list _%pre7296%_ + (_%generate-opt-clause5333%_ + _%primary7294%_ + _%pre7296%_ + _%opt7297%_)) + (_%generate-opt-dispatch*5332%_ + _%primary7294%_ + _%pre7296%_ + _%opt7297%_ + _%tail7298%_)))) + (_%generate-opt-dispatch*5332%_ + (lambda (_%primary6851%_ + _%pre6853%_ + _%opt6854%_ + _%tail6855%_) + (let _%recur6857%_ ((_%opt-rest6860%_ _%opt6854%_) + (_%right6862%_ '())) + (if (pair? _%opt-rest6860%_) + (let* ((_%hd6866%_ (caar _%opt-rest6860%_)) + (_%rest6869%_ (let () (declare (not safe)) - (##cdr _%opt-rest6933%_))) - (_%right*6945%_ - (cons _%hd6939%_ _%right6935%_)) - (_%g69486965%_ - (lambda (_%g69496961%_) + (##cdr _%opt-rest6860%_))) + (_%right*6872%_ + (cons _%hd6866%_ _%right6862%_)) + (_%g68756892%_ + (lambda (_%g68766888%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g69496961%_))) - (_%g69477149%_ - (lambda (_%g69496969%_) - (if (gx#stx-pair/null? _%g69496969%_) - (let ((_g20885_ + _%g68766888%_))) + (_%g68747072%_ + (lambda (_%g68766896%_) + (if (gx#stx-pair/null? _%g68766896%_) + (let ((_g20722_ (gx#syntax-split-splice - _%g69496969%_ + _%g68766896%_ '0))) (begin - (let ((_g20886_ + (let ((_g20723_ (let () (declare (not safe)) - (if (##values? _g20885_) + (if (##values? _g20722_) (##values-length - _g20885_) + _g20722_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20886_ 2))) + (##fx= _g20723_ 2))) (error "Context expects 2 values" - _g20886_))) - (let ((_%target69516972%_ + _g20723_))) + (let ((_%target68786899%_ (let () (declare (not safe)) (##values-ref - _g20885_ + _g20722_ 0))) - (_%tl69536975%_ + (_%tl68806902%_ (let () (declare (not safe)) (##values-ref - _g20885_ + _g20722_ 1)))) - (if (gx#stx-null? _%tl69536975%_) - (letrec ((_%loop69546978%_ - (lambda (_%hd69526982%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pre-bind69586985%_) - (if (gx#stx-pair? _%hd69526982%_) - (let ((_%e69556988%_ (gx#syntax-e _%hd69526982%_))) - (let ((_%lp-hd69566992%_ + (if (gx#stx-null? _%tl68806902%_) + (letrec ((_%loop68816905%_ + (lambda (_%hd68796909%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%pre-bind68856912%_) + (if (gx#stx-pair? _%hd68796909%_) + (let ((_%e68826914%_ (gx#syntax-e _%hd68796909%_))) + (let ((_%lp-hd68836918%_ (let () (declare (not safe)) - (##car _%e69556988%_))) - (_%lp-tl69576995%_ + (##car _%e68826914%_))) + (_%lp-tl68846921%_ (let () (declare (not safe)) - (##cdr _%e69556988%_)))) - (_%loop69546978%_ - _%lp-tl69576995%_ - (cons _%lp-hd69566992%_ _%pre-bind69586985%_)))) - (let ((_%pre-bind69596998%_ - (reverse _%pre-bind69586985%_))) - ((lambda (_%L7002%_) - (let* ((_%g70247041%_ - (lambda (_%g70257037%_) + (##cdr _%e68826914%_)))) + (_%loop68816905%_ + _%lp-tl68846921%_ + (cons _%lp-hd68836918%_ _%pre-bind68856912%_)))) + (let ((_%pre-bind68866924%_ + (reverse _%pre-bind68856912%_))) + ((lambda (_%g68776927%_) + (let* ((_%g69496966%_ + (lambda (_%g69506962%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g70257037%_))) - (_%g70237145%_ - (lambda (_%g70257045%_) - (if (gx#stx-pair/null? _%g70257045%_) - (let ((_g20887_ + _%g69506962%_))) + (_%g69487068%_ + (lambda (_%g69506970%_) + (if (gx#stx-pair/null? _%g69506970%_) + (let ((_g20724_ (gx#syntax-split-splice - _%g70257045%_ + _%g69506970%_ '0))) (begin - (let ((_g20888_ + (let ((_g20725_ (let () (declare (not safe)) (if (##values? - _g20887_) + _g20724_) (##values-length - _g20887_) + _g20724_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20888_ + (##fx= _g20725_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g20888_))) + (error "Context expects 2 values" _g20725_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target70277048%_ + (let ((_%target69526973%_ (let () (declare (not safe)) (##values-ref - _g20887_ + _g20724_ 0))) - (_%tl70297051%_ + (_%tl69546976%_ (let () (declare (not safe)) (##values-ref - _g20887_ + _g20724_ 1)))) (if (gx#stx-null? - _%tl70297051%_) - (letrec ((_%loop70307054%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd70287058%_ _%opt-bind70347061%_) - (if (gx#stx-pair? _%hd70287058%_) - (let ((_%e70317064%_ - (gx#syntax-e _%hd70287058%_))) - (let ((_%lp-hd70327068%_ + _%tl69546976%_) + (letrec ((_%loop69556979%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd69536983%_ _%opt-bind69596986%_) + (if (gx#stx-pair? _%hd69536983%_) + (let ((_%e69566988%_ + (gx#syntax-e _%hd69536983%_))) + (let ((_%lp-hd69576992%_ (let () (declare (not safe)) - (##car _%e70317064%_))) - (_%lp-tl70337071%_ + (##car _%e69566988%_))) + (_%lp-tl69586995%_ (let () (declare (not safe)) - (##cdr _%e70317064%_)))) - (_%loop70307054%_ - _%lp-tl70337071%_ - (cons _%lp-hd70327068%_ - _%opt-bind70347061%_)))) - (let ((_%opt-bind70357074%_ - (reverse _%opt-bind70347061%_))) - ((lambda (_%L7078%_) - (let* ((_%g70957103%_ - (lambda (_%g70967099%_) + (##cdr _%e69566988%_)))) + (_%loop69556979%_ + _%lp-tl69586995%_ + (cons _%lp-hd69576992%_ + _%opt-bind69596986%_)))) + (let ((_%opt-bind69606998%_ + (reverse _%opt-bind69596986%_))) + ((lambda (_%g69517001%_) + (let* ((_%g70187026%_ + (lambda (_%g70197022%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g70967099%_))) - (_%g70947141%_ - (lambda (_%g70967107%_) - ((lambda (_%L7110%_) - (cons (list (foldr (lambda (_%g71247129%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g71257132%_) - (cons _%g71247129%_ _%g71257132%_)) - (foldr (lambda (_%g71267135%_ _%g71277138%_) - (cons _%g71267135%_ _%g71277138%_)) - (cons _%L7110%_ '()) - _%L7078%_) - _%L7002%_) - (_%generate-opt-clause5396%_ - _%primary6924%_ - (foldr cons (reverse _%right*6945%_) _%pre6926%_) - _%rest6942%_)) - (_%recur6930%_ _%rest6942%_ _%right*6945%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g70967107%_)))) - (_%g70947141%_ _%hd6939%_))) - _%opt-bind70357074%_)))))) - (_%loop70307054%_ _%target70277048%_ '())) - (_%g70247041%_ _%g70257045%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g70247041%_ _%g70257045%_))))) - (_%g70237145%_ (reverse _%right6935%_)))) - _%pre-bind69596998%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop69546978%_ - _%target69516972%_ + _%g70197022%_))) + (_%g70177064%_ + (lambda (_%g70197030%_) + ((lambda (_%g70207033%_) + (cons (list (foldr (lambda (_%g70477052%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g70487055%_) + (cons _%g70477052%_ _%g70487055%_)) + (foldr (lambda (_%g70497058%_ _%g70507061%_) + (cons _%g70497058%_ _%g70507061%_)) + (cons _%g70207033%_ '()) + _%g69517001%_) + _%g68776927%_) + (_%generate-opt-clause5333%_ + _%primary6851%_ + (foldr cons (reverse _%right*6872%_) _%pre6853%_) + _%rest6869%_)) + (_%recur6857%_ _%rest6869%_ _%right*6872%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g70197030%_)))) + (_%g70177064%_ _%hd6866%_))) + _%opt-bind69606998%_)))))) + (_%loop69556979%_ _%target69526973%_ '())) + (_%g69496966%_ _%g69506970%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g69496966%_ _%g69506970%_))))) + (_%g69487068%_ (reverse _%right6862%_)))) + _%pre-bind68866924%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop68816905%_ + _%target68786899%_ '())) - (_%g69486965%_ - _%g69496969%_))))) - (_%g69486965%_ _%g69496969%_))))) - (_%g69477149%_ _%pre6926%_)) - (if (gx#stx-null? _%tail6928%_) + (_%g68756892%_ + _%g68766896%_))))) + (_%g68756892%_ _%g68766896%_))))) + (_%g68747072%_ _%pre6853%_)) + (if (gx#stx-null? _%tail6855%_) '() - (let* ((_%g71577198%_ - (lambda (_%g71587194%_) + (let* ((_%g70807121%_ + (lambda (_%g70817117%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g71587194%_))) - (_%g71567371%_ - (lambda (_%g71587202%_) - (if (gx#stx-pair? _%g71587202%_) - (let ((_%e71637205%_ + _%g70817117%_))) + (_%g70797290%_ + (lambda (_%g70817125%_) + (if (gx#stx-pair? _%g70817125%_) + (let ((_%e70867128%_ (gx#syntax-e - _%g71587202%_))) - (let ((_%hd71647209%_ + _%g70817125%_))) + (let ((_%hd70877132%_ (let () (declare (not safe)) - (##car _%e71637205%_))) - (_%tl71657212%_ + (##car _%e70867128%_))) + (_%tl70887135%_ (let () (declare (not safe)) - (##cdr _%e71637205%_)))) + (##cdr _%e70867128%_)))) (if (gx#stx-pair/null? - _%hd71647209%_) - (let ((_g20889_ + _%hd70877132%_) + (let ((_g20726_ (gx#syntax-split-splice - _%hd71647209%_ + _%hd70877132%_ '0))) (begin - (let ((_g20890_ + (let ((_g20727_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g20889_) - (##values-length _g20889_) + (if (##values? _g20726_) + (##values-length _g20726_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20890_ 2))) - (error "Context expects 2 values" _g20890_))) - (let ((_%target71667215%_ - (let () (declare (not safe)) (##values-ref _g20889_ 0))) - (_%tl71687218%_ + (if (not (let () (declare (not safe)) (##fx= _g20727_ 2))) + (error "Context expects 2 values" _g20727_))) + (let ((_%target70897138%_ + (let () (declare (not safe)) (##values-ref _g20726_ 0))) + (_%tl70917141%_ (let () (declare (not safe)) - (##values-ref _g20889_ 1)))) - (if (gx#stx-null? _%tl71687218%_) - (letrec ((_%loop71697221%_ - (lambda (_%hd71677225%_ _%pre71737228%_) - (if (gx#stx-pair? _%hd71677225%_) - (let ((_%e71707231%_ - (gx#syntax-e _%hd71677225%_))) - (let ((_%lp-hd71717235%_ + (##values-ref _g20726_ 1)))) + (if (gx#stx-null? _%tl70917141%_) + (letrec ((_%loop70927144%_ + (lambda (_%hd70907148%_ _%pre70967151%_) + (if (gx#stx-pair? _%hd70907148%_) + (let ((_%e70937153%_ + (gx#syntax-e _%hd70907148%_))) + (let ((_%lp-hd70947157%_ (let () (declare (not safe)) - (##car _%e71707231%_))) - (_%lp-tl71727238%_ + (##car _%e70937153%_))) + (_%lp-tl70957160%_ (let () (declare (not safe)) - (##cdr _%e71707231%_)))) - (_%loop71697221%_ - _%lp-tl71727238%_ - (cons _%lp-hd71717235%_ - _%pre71737228%_)))) - (let ((_%pre71747241%_ - (reverse _%pre71737228%_))) - (if (gx#stx-pair? _%tl71657212%_) - (let ((_%e71757245%_ + (##cdr _%e70937153%_)))) + (_%loop70927144%_ + _%lp-tl70957160%_ + (cons _%lp-hd70947157%_ + _%pre70967151%_)))) + (let ((_%pre70977163%_ + (reverse _%pre70967151%_))) + (if (gx#stx-pair? _%tl70887135%_) + (let ((_%e70987166%_ (gx#syntax-e - _%tl71657212%_))) - (let ((_%hd71767249%_ + _%tl70887135%_))) + (let ((_%hd70997170%_ (let () (declare (not safe)) - (##car _%e71757245%_))) - (_%tl71777252%_ + (##car _%e70987166%_))) + (_%tl71007173%_ (let () (declare (not safe)) - (##cdr _%e71757245%_)))) + (##cdr _%e70987166%_)))) (if (gx#stx-pair/null? - _%hd71767249%_) - (let ((_g20891_ + _%hd70997170%_) + (let ((_g20728_ (gx#syntax-split-splice - _%hd71767249%_ + _%hd70997170%_ '0))) (begin - (let ((_g20892_ + (let ((_g20729_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g20891_) - (##values-length _g20891_) + (if (##values? _g20728_) + (##values-length _g20728_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20892_ 2))) - (error "Context expects 2 values" _g20892_))) - (let ((_%target71787255%_ - (let () (declare (not safe)) (##values-ref _g20891_ 0))) - (_%tl71807258%_ + (if (not (let () (declare (not safe)) (##fx= _g20729_ 2))) + (error "Context expects 2 values" _g20729_))) + (let ((_%target71017176%_ + (let () (declare (not safe)) (##values-ref _g20728_ 0))) + (_%tl71037179%_ (let () (declare (not safe)) - (##values-ref _g20891_ 1)))) - (if (gx#stx-null? _%tl71807258%_) - (letrec ((_%loop71817261%_ - (lambda (_%hd71797265%_ _%opt71857268%_) - (if (gx#stx-pair? _%hd71797265%_) - (let ((_%e71827271%_ - (gx#syntax-e _%hd71797265%_))) - (let ((_%lp-hd71837275%_ + (##values-ref _g20728_ 1)))) + (if (gx#stx-null? _%tl71037179%_) + (letrec ((_%loop71047182%_ + (lambda (_%hd71027186%_ _%opt71087189%_) + (if (gx#stx-pair? _%hd71027186%_) + (let ((_%e71057191%_ + (gx#syntax-e _%hd71027186%_))) + (let ((_%lp-hd71067195%_ (let () (declare (not safe)) - (##car _%e71827271%_))) - (_%lp-tl71847278%_ + (##car _%e71057191%_))) + (_%lp-tl71077198%_ (let () (declare (not safe)) - (##cdr _%e71827271%_)))) - (_%loop71817261%_ - _%lp-tl71847278%_ - (cons _%lp-hd71837275%_ - _%opt71857268%_)))) - (let ((_%opt71867281%_ - (reverse _%opt71857268%_))) - (if (gx#stx-pair? _%tl71777252%_) - (let ((_%e71877285%_ + (##cdr _%e71057191%_)))) + (_%loop71047182%_ + _%lp-tl71077198%_ + (cons _%lp-hd71067195%_ + _%opt71087189%_)))) + (let ((_%opt71097201%_ + (reverse _%opt71087189%_))) + (if (gx#stx-pair? _%tl71007173%_) + (let ((_%e71107204%_ (gx#syntax-e - _%tl71777252%_))) - (let ((_%hd71887289%_ + _%tl71007173%_))) + (let ((_%hd71117208%_ (let () (declare (not safe)) - (##car _%e71877285%_))) - (_%tl71897292%_ + (##car _%e71107204%_))) + (_%tl71127211%_ (let () (declare (not safe)) - (##cdr _%e71877285%_)))) + (##cdr _%e71107204%_)))) (if (gx#stx-pair? - _%tl71897292%_) - (let ((_%e71907295%_ + _%tl71127211%_) + (let ((_%e71137214%_ (gx#syntax-e - _%tl71897292%_))) - (let ((_%hd71917299%_ + _%tl71127211%_))) + (let ((_%hd71147218%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e71907295%_))) - (_%tl71927302%_ - (let () (declare (not safe)) (##cdr _%e71907295%_)))) - (if (gx#stx-null? _%tl71927302%_) - ((lambda (_%L7305%_ _%L7307%_ _%L7308%_ _%L7309%_) - (list (list (foldr (lambda (_%g73387343%_ _%g73397346%_) - (cons _%g73387343%_ _%g73397346%_)) - (foldr (lambda (_%g73407349%_ - _%g73417352%_) - (cons _%g73407349%_ - _%g73417352%_)) - _%L7307%_ - _%L7308%_) - _%L7309%_) + (##car _%e71137214%_))) + (_%tl71157221%_ + (let () (declare (not safe)) (##cdr _%e71137214%_)))) + (if (gx#stx-null? _%tl71157221%_) + ((lambda (_%g70827224%_ + _%g70837226%_ + _%g70847227%_ + _%g70857228%_) + (list (list (foldr (lambda (_%g72577262%_ _%g72587265%_) + (cons _%g72577262%_ _%g72587265%_)) + (foldr (lambda (_%g72597268%_ + _%g72607271%_) + (cons _%g72597268%_ + _%g72607271%_)) + _%g70837226%_ + _%g70847227%_) + _%g70857228%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'apply) - (cons _%L7305%_ - (foldr (lambda (_%g73547359%_ - _%g73557362%_) - (cons _%g73547359%_ - _%g73557362%_)) - (foldr (lambda (_%g73567365%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g73577368%_) - (cons _%g73567365%_ _%g73577368%_)) - (cons _%L7307%_ '()) - _%L7308%_) - _%L7309%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx5383%_))))) - _%hd71917299%_ - _%hd71887289%_ - _%opt71867281%_ - _%pre71747241%_) - (_%g71577198%_ _%g71587202%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g71577198%_ - _%g71587202%_)))) - (_%g71577198%_ _%g71587202%_))))))) - (_%loop71817261%_ _%target71787255%_ '())) - (_%g71577198%_ _%g71587202%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g71577198%_ - _%g71587202%_)))) - (_%g71577198%_ _%g71587202%_))))))) - (_%loop71697221%_ _%target71667215%_ '())) - (_%g71577198%_ _%g71587202%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g71577198%_ - _%g71587202%_)))) - (_%g71577198%_ _%g71587202%_))))) - (_%g71567371%_ - (list _%pre6926%_ - (reverse _%right6935%_) - _%tail6928%_ - _%primary6924%_)))))))) - (_%generate-opt-clause5396%_ - (lambda (_%primary6622%_ _%pre6624%_ _%opt6625%_) - (let _%recur6627%_ ((_%opt-rest6630%_ _%opt6625%_) - (_%right6632%_ '())) - (if (pair? _%opt-rest6630%_) - (let* ((_%hd6634%_ + (cons _%g70827224%_ + (foldr (lambda (_%g72737278%_ + _%g72747281%_) + (cons _%g72737278%_ + _%g72747281%_)) + (foldr (lambda (_%g72757284%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g72767287%_) + (cons _%g72757284%_ _%g72767287%_)) + (cons _%g70837226%_ '()) + _%g70847227%_) + _%g70857228%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gx#stx-source _%stx5320%_))))) + _%hd71147218%_ + _%hd71117208%_ + _%opt71097201%_ + _%pre70977163%_) + (_%g70807121%_ _%g70817125%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g70807121%_ + _%g70817125%_)))) + (_%g70807121%_ _%g70817125%_))))))) + (_%loop71047182%_ _%target71017176%_ '())) + (_%g70807121%_ _%g70817125%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g70807121%_ + _%g70817125%_)))) + (_%g70807121%_ _%g70817125%_))))))) + (_%loop70927144%_ _%target70897138%_ '())) + (_%g70807121%_ _%g70817125%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g70807121%_ + _%g70817125%_)))) + (_%g70807121%_ _%g70817125%_))))) + (_%g70797290%_ + (list _%pre6853%_ + (reverse _%right6862%_) + _%tail6855%_ + _%primary6851%_)))))))) + (_%generate-opt-clause5333%_ + (lambda (_%primary6553%_ _%pre6555%_ _%opt6556%_) + (let _%recur6558%_ ((_%opt-rest6561%_ _%opt6556%_) + (_%right6563%_ '())) + (if (pair? _%opt-rest6561%_) + (let* ((_%hd6565%_ (let () (declare (not safe)) - (##car _%opt-rest6630%_))) - (_%rest6637%_ + (##car _%opt-rest6561%_))) + (_%rest6568%_ (let () (declare (not safe)) - (##cdr _%opt-rest6630%_))) - (_%g66406648%_ - (lambda (_%g66416644%_) + (##cdr _%opt-rest6561%_))) + (_%g65716579%_ + (lambda (_%g65726575%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g66416644%_))) - (_%g66396737%_ - (lambda (_%g66416652%_) - ((lambda (_%L6655%_) - (let* ((_%g66716679%_ - (lambda (_%g66726675%_) + _%g65726575%_))) + (_%g65706668%_ + (lambda (_%g65726583%_) + ((lambda (_%g65736586%_) + (let* ((_%g66026610%_ + (lambda (_%g66036606%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g66726675%_))) - (_%g66706733%_ - (lambda (_%g66726683%_) - ((lambda (_%L6686%_) - (let* ((_%g66996707%_ - (lambda (_%g67006703%_) + _%g66036606%_))) + (_%g66016664%_ + (lambda (_%g66036614%_) + ((lambda (_%g66046617%_) + (let* ((_%g66306638%_ + (lambda (_%g66316634%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g67006703%_))) - (_%g66986729%_ - (lambda (_%g67006711%_) - ((lambda (_%L6714%_) + _%g66316634%_))) + (_%g66296660%_ + (lambda (_%g66316642%_) + ((lambda (_%g66326645%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _%L6655%_ '()) - (cons _%L6686%_ '())) + (cons (cons (cons (cons _%g65736586%_ '()) + (cons _%g66046617%_ '())) '()) - (cons _%L6714%_ '())))) - _%g67006711%_)))) - (_%g66986729%_ - (_%recur6627%_ _%rest6637%_ (cons _%L6655%_ _%right6632%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g66726683%_)))) - (_%g66706733%_ (cdr _%hd6634%_)))) - _%g66416652%_)))) - (_%g66396737%_ (car _%hd6634%_))) - (let* ((_%g67416778%_ - (lambda (_%g67426774%_) + (cons _%g66326645%_ '())))) + _%g66316642%_)))) + (_%g66296660%_ + (_%recur6558%_ + _%rest6568%_ + (cons _%g65736586%_ _%right6563%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g66036614%_)))) + (_%g66016664%_ (cdr _%hd6565%_)))) + _%g65726583%_)))) + (_%g65706668%_ (car _%hd6565%_))) + (let* ((_%g66726709%_ + (lambda (_%g66736705%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g67426774%_))) - (_%g67406920%_ - (lambda (_%g67426782%_) - (if (gx#stx-pair? _%g67426782%_) - (let ((_%e67466785%_ - (gx#syntax-e _%g67426782%_))) - (let ((_%hd67476789%_ + _%g66736705%_))) + (_%g66716847%_ + (lambda (_%g66736713%_) + (if (gx#stx-pair? _%g66736713%_) + (let ((_%e66776716%_ + (gx#syntax-e _%g66736713%_))) + (let ((_%hd66786720%_ (let () (declare (not safe)) - (##car _%e67466785%_))) - (_%tl67486792%_ + (##car _%e66776716%_))) + (_%tl66796723%_ (let () (declare (not safe)) - (##cdr _%e67466785%_)))) + (##cdr _%e66776716%_)))) (if (gx#stx-pair/null? - _%hd67476789%_) - (let ((_g20893_ + _%hd66786720%_) + (let ((_g20730_ (gx#syntax-split-splice - _%hd67476789%_ + _%hd66786720%_ '0))) (begin - (let ((_g20894_ + (let ((_g20731_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g20893_) - (##values-length _g20893_) + _g20730_) + (##values-length _g20730_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20894_ 2))) - (error "Context expects 2 values" _g20894_))) + (if (not (let () (declare (not safe)) (##fx= _g20731_ 2))) + (error "Context expects 2 values" _g20731_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target67496795%_ + (let ((_%target66806726%_ (let () (declare (not safe)) (##values-ref - _g20893_ + _g20730_ 0))) - (_%tl67516798%_ + (_%tl66826729%_ (let () (declare (not safe)) (##values-ref - _g20893_ + _g20730_ 1)))) (if (gx#stx-null? - _%tl67516798%_) - (letrec ((_%loop67526801%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd67506805%_ _%pre67566808%_) - (if (gx#stx-pair? _%hd67506805%_) - (let ((_%e67536811%_ - (gx#syntax-e _%hd67506805%_))) - (let ((_%lp-hd67546815%_ + _%tl66826729%_) + (letrec ((_%loop66836732%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd66816736%_ _%pre66876739%_) + (if (gx#stx-pair? _%hd66816736%_) + (let ((_%e66846741%_ + (gx#syntax-e _%hd66816736%_))) + (let ((_%lp-hd66856745%_ (let () (declare (not safe)) - (##car _%e67536811%_))) - (_%lp-tl67556818%_ + (##car _%e66846741%_))) + (_%lp-tl66866748%_ (let () (declare (not safe)) - (##cdr _%e67536811%_)))) - (_%loop67526801%_ - _%lp-tl67556818%_ - (cons _%lp-hd67546815%_ - _%pre67566808%_)))) - (let ((_%pre67576821%_ - (reverse _%pre67566808%_))) - (if (gx#stx-pair? _%tl67486792%_) - (let ((_%e67586825%_ - (gx#syntax-e _%tl67486792%_))) - (let ((_%hd67596829%_ + (##cdr _%e66846741%_)))) + (_%loop66836732%_ + _%lp-tl66866748%_ + (cons _%lp-hd66856745%_ + _%pre66876739%_)))) + (let ((_%pre66886751%_ + (reverse _%pre66876739%_))) + (if (gx#stx-pair? _%tl66796723%_) + (let ((_%e66896754%_ + (gx#syntax-e _%tl66796723%_))) + (let ((_%hd66906758%_ (let () (declare (not safe)) - (##car _%e67586825%_))) - (_%tl67606832%_ + (##car _%e66896754%_))) + (_%tl66916761%_ (let () (declare (not safe)) - (##cdr _%e67586825%_)))) + (##cdr _%e66896754%_)))) (if (gx#stx-pair/null? - _%hd67596829%_) - (let ((_g20895_ + _%hd66906758%_) + (let ((_g20732_ (gx#syntax-split-splice - _%hd67596829%_ + _%hd66906758%_ '0))) (begin - (let ((_g20896_ + (let ((_g20733_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g20895_) - (##values-length _g20895_) + _g20732_) + (##values-length _g20732_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20896_ 2))) - (error "Context expects 2 values" _g20896_))) + (if (not (let () (declare (not safe)) (##fx= _g20733_ 2))) + (error "Context expects 2 values" _g20733_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target67616835%_ + (let ((_%target66926764%_ (let () (declare (not safe)) (##values-ref - _g20895_ + _g20732_ 0))) - (_%tl67636838%_ + (_%tl66946767%_ (let () (declare (not safe)) (##values-ref - _g20895_ + _g20732_ 1)))) (if (gx#stx-null? - _%tl67636838%_) - (letrec ((_%loop67646841%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd67626845%_ _%opt67686848%_) - (if (gx#stx-pair? _%hd67626845%_) - (let ((_%e67656851%_ - (gx#syntax-e _%hd67626845%_))) - (let ((_%lp-hd67666855%_ + _%tl66946767%_) + (letrec ((_%loop66956770%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd66936774%_ _%opt66996777%_) + (if (gx#stx-pair? _%hd66936774%_) + (let ((_%e66966779%_ + (gx#syntax-e _%hd66936774%_))) + (let ((_%lp-hd66976783%_ (let () (declare (not safe)) - (##car _%e67656851%_))) - (_%lp-tl67676858%_ + (##car _%e66966779%_))) + (_%lp-tl66986786%_ (let () (declare (not safe)) - (##cdr _%e67656851%_)))) - (_%loop67646841%_ - _%lp-tl67676858%_ - (cons _%lp-hd67666855%_ - _%opt67686848%_)))) - (let ((_%opt67696861%_ - (reverse _%opt67686848%_))) - (if (gx#stx-pair? _%tl67606832%_) - (let ((_%e67706865%_ - (gx#syntax-e _%tl67606832%_))) - (let ((_%hd67716869%_ + (##cdr _%e66966779%_)))) + (_%loop66956770%_ + _%lp-tl66986786%_ + (cons _%lp-hd66976783%_ + _%opt66996777%_)))) + (let ((_%opt67006789%_ + (reverse _%opt66996777%_))) + (if (gx#stx-pair? _%tl66916761%_) + (let ((_%e67016792%_ + (gx#syntax-e _%tl66916761%_))) + (let ((_%hd67026796%_ (let () (declare (not safe)) - (##car _%e67706865%_))) - (_%tl67726872%_ + (##car _%e67016792%_))) + (_%tl67036799%_ (let () (declare (not safe)) - (##cdr _%e67706865%_)))) - (if (gx#stx-null? _%tl67726872%_) - ((lambda (_%L6875%_ - _%L6877%_ - _%L6878%_) + (##cdr _%e67016792%_)))) + (if (gx#stx-null? _%tl67036799%_) + ((lambda (_%g66746802%_ + _%g66756804%_ + _%g66766805%_) (gx#stx-wrap-source - (cons _%L6875%_ - (foldr (lambda (_%g69036908%_ + (cons _%g66746802%_ + (foldr (lambda (_%g68306835%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g69046911%_) - (cons _%g69036908%_ _%g69046911%_)) - (foldr (lambda (_%g69056914%_ _%g69066917%_) - (cons _%g69056914%_ _%g69066917%_)) + _%g68316838%_) + (cons _%g68306835%_ _%g68316838%_)) + (foldr (lambda (_%g68326841%_ _%g68336844%_) + (cons _%g68326841%_ _%g68336844%_)) '() - _%L6877%_) - _%L6878%_)) + _%g66756804%_) + _%g66766805%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _%stx5383%_))) - _%hd67716869%_ - _%opt67696861%_ - _%pre67576821%_) - (_%g67416778%_ - _%g67426782%_)))) - (_%g67416778%_ _%g67426782%_))))))) - (_%loop67646841%_ _%target67616835%_ '())) - (_%g67416778%_ _%g67426782%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g67416778%_ - _%g67426782%_)))) - (_%g67416778%_ _%g67426782%_))))))) - (_%loop67526801%_ _%target67496795%_ '())) - (_%g67416778%_ _%g67426782%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g67416778%_ - _%g67426782%_)))) - (_%g67416778%_ _%g67426782%_))))) - (_%g67406920%_ - (list _%pre6624%_ - (reverse _%right6632%_) - _%primary6622%_))))))) - (_%generate-kw-primary5397%_ - (lambda (_%key5998%_ - _%kwargs6000%_ - _%args6001%_ - _%body6002%_) - (letrec ((_%make-body6004%_ - (lambda (_%kwargs6491%_ _%kwvals6493%_) - (if (pair? _%kwargs6491%_) - (let* ((_%kwarg6495%_ + _%stx5320%_))) + _%hd67026796%_ + _%opt67006789%_ + _%pre66886751%_) + (_%g66726709%_ + _%g66736713%_)))) + (_%g66726709%_ _%g66736713%_))))))) + (_%loop66956770%_ _%target66926764%_ '())) + (_%g66726709%_ _%g66736713%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g66726709%_ + _%g66736713%_)))) + (_%g66726709%_ _%g66736713%_))))))) + (_%loop66836732%_ _%target66806726%_ '())) + (_%g66726709%_ _%g66736713%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g66726709%_ + _%g66736713%_)))) + (_%g66726709%_ _%g66736713%_))))) + (_%g66716847%_ + (list _%pre6555%_ + (reverse _%right6563%_) + _%primary6553%_))))))) + (_%generate-kw-primary5334%_ + (lambda (_%key5933%_ + _%kwargs5935%_ + _%args5936%_ + _%body5937%_) + (letrec ((_%make-body5939%_ + (lambda (_%kwargs6422%_ _%kwvals6424%_) + (if (pair? _%kwargs6422%_) + (let* ((_%kwarg6426%_ (let () (declare (not safe)) - (##car _%kwargs6491%_))) - (_%var6498%_ (cadr _%kwarg6495%_)) - (_%default6501%_ - (caddr _%kwarg6495%_)) - (_%kwval6504%_ (car _%kwvals6493%_)) - (_%rest-kwargs6507%_ + (##car _%kwargs6422%_))) + (_%var6429%_ (cadr _%kwarg6426%_)) + (_%default6432%_ + (caddr _%kwarg6426%_)) + (_%kwval6435%_ (car _%kwvals6424%_)) + (_%rest-kwargs6438%_ (let () (declare (not safe)) - (##cdr _%kwargs6491%_))) - (_%rest-kwvals6510%_ - (cdr _%kwvals6493%_)) - (_%g65156538%_ - (lambda (_%g65166534%_) + (##cdr _%kwargs6422%_))) + (_%rest-kwvals6441%_ + (cdr _%kwvals6424%_)) + (_%g64466469%_ + (lambda (_%g64476465%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g65166534%_))) - (_%g65146618%_ - (lambda (_%g65166542%_) - (if (gx#stx-pair? _%g65166542%_) - (let ((_%e65216545%_ + _%g64476465%_))) + (_%g64456549%_ + (lambda (_%g64476473%_) + (if (gx#stx-pair? _%g64476473%_) + (let ((_%e64526476%_ (gx#syntax-e - _%g65166542%_))) - (let ((_%hd65226549%_ + _%g64476473%_))) + (let ((_%hd64536480%_ (let () (declare (not safe)) - (##car _%e65216545%_))) - (_%tl65236552%_ + (##car _%e64526476%_))) + (_%tl64546483%_ (let () (declare (not safe)) - (##cdr _%e65216545%_)))) + (##cdr _%e64526476%_)))) (if (gx#stx-pair? - _%tl65236552%_) - (let ((_%e65246555%_ + _%tl64546483%_) + (let ((_%e64556486%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl65236552%_))) - (let ((_%hd65256559%_ - (let () (declare (not safe)) (##car _%e65246555%_))) - (_%tl65266562%_ + (gx#syntax-e _%tl64546483%_))) + (let ((_%hd64566490%_ + (let () (declare (not safe)) (##car _%e64556486%_))) + (_%tl64576493%_ (let () (declare (not safe)) - (##cdr _%e65246555%_)))) - (if (gx#stx-pair? _%tl65266562%_) - (let ((_%e65276565%_ (gx#syntax-e _%tl65266562%_))) - (let ((_%hd65286569%_ + (##cdr _%e64556486%_)))) + (if (gx#stx-pair? _%tl64576493%_) + (let ((_%e64586496%_ (gx#syntax-e _%tl64576493%_))) + (let ((_%hd64596500%_ (let () (declare (not safe)) - (##car _%e65276565%_))) - (_%tl65296572%_ + (##car _%e64586496%_))) + (_%tl64606503%_ (let () (declare (not safe)) - (##cdr _%e65276565%_)))) - (if (gx#stx-pair? _%tl65296572%_) - (let ((_%e65306575%_ - (gx#syntax-e _%tl65296572%_))) - (let ((_%hd65316579%_ + (##cdr _%e64586496%_)))) + (if (gx#stx-pair? _%tl64606503%_) + (let ((_%e64616506%_ + (gx#syntax-e _%tl64606503%_))) + (let ((_%hd64626510%_ (let () (declare (not safe)) - (##car _%e65306575%_))) - (_%tl65326582%_ + (##car _%e64616506%_))) + (_%tl64636513%_ (let () (declare (not safe)) - (##cdr _%e65306575%_)))) - (if (gx#stx-null? _%tl65326582%_) - ((lambda (_%L6585%_ - _%L6587%_ - _%L6588%_ - _%L6589%_) + (##cdr _%e64616506%_)))) + (if (gx#stx-null? _%tl64636513%_) + ((lambda (_%g64486516%_ + _%g64496518%_ + _%g64506519%_ + _%g64516520%_) (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _%L6589%_ + (cons (cons (cons (cons _%g64516520%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'eq?) - (cons _%L6588%_ + (cons _%g64506519%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'absent-value) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L6587%_ - (cons _%L6588%_ '())))) + (cons _%g64496518%_ + (cons _%g64506519%_ + '())))) '())) '()) - (cons _%L6585%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd65316579%_ - _%hd65286569%_ - _%hd65256559%_ - _%hd65226549%_) - (_%g65156538%_ _%g65166542%_)))) - (_%g65156538%_ _%g65166542%_)))) - (_%g65156538%_ _%g65166542%_)))) - (_%g65156538%_ _%g65166542%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g65156538%_ - _%g65166542%_))))) - (_%g65146618%_ - (list _%var6498%_ - _%kwval6504%_ - _%default6501%_ - (_%make-body6004%_ - _%rest-kwargs6507%_ - _%rest-kwvals6510%_)))) - (cons 'begin _%body6002%_)))) - (_%make-main6006%_ + (cons _%g64486516%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd64626510%_ + _%hd64596500%_ + _%hd64566490%_ + _%hd64536480%_) + (_%g64466469%_ _%g64476473%_)))) + (_%g64466469%_ _%g64476473%_)))) + (_%g64466469%_ _%g64476473%_)))) + (_%g64466469%_ _%g64476473%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g64466469%_ + _%g64476473%_))))) + (_%g64456549%_ + (list _%var6429%_ + _%kwval6435%_ + _%default6432%_ + (_%make-body5939%_ + _%rest-kwargs6438%_ + _%rest-kwvals6441%_)))) + (cons 'begin _%body5937%_)))) + (_%make-main5941%_ (lambda () - (let* ((_%g62996307%_ - (lambda (_%g63006303%_) + (let* ((_%g62326240%_ + (lambda (_%g62336236%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g63006303%_))) - (_%g62986483%_ - (lambda (_%g63006311%_) - ((lambda (_%L6314%_) - (let* ((_%g63266343%_ - (lambda (_%g63276339%_) + _%g62336236%_))) + (_%g62316414%_ + (lambda (_%g62336244%_) + ((lambda (_%g62346247%_) + (let* ((_%g62596276%_ + (lambda (_%g62606272%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g63276339%_))) - (_%g63256479%_ - (lambda (_%g63276347%_) + _%g62606272%_))) + (_%g62586410%_ + (lambda (_%g62606280%_) (if (gx#stx-pair/null? - _%g63276347%_) - (let ((_g20897_ + _%g62606280%_) + (let ((_g20734_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g63276347%_ '0))) + (gx#syntax-split-splice _%g62606280%_ '0))) (begin - (let ((_g20898_ + (let ((_g20735_ (let () (declare (not safe)) - (if (##values? _g20897_) - (##values-length _g20897_) + (if (##values? _g20734_) + (##values-length _g20734_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20898_ 2))) - (error "Context expects 2 values" _g20898_))) - (let ((_%target63296350%_ + (##fx= _g20735_ 2))) + (error "Context expects 2 values" _g20735_))) + (let ((_%target62626283%_ (let () (declare (not safe)) - (##values-ref _g20897_ 0))) - (_%tl63316353%_ + (##values-ref _g20734_ 0))) + (_%tl62646286%_ (let () (declare (not safe)) - (##values-ref _g20897_ 1)))) - (if (gx#stx-null? _%tl63316353%_) - (letrec ((_%loop63326356%_ - (lambda (_%hd63306360%_ - _%kwval63366363%_) - (if (gx#stx-pair? _%hd63306360%_) - (let ((_%e63336366%_ + (##values-ref _g20734_ 1)))) + (if (gx#stx-null? _%tl62646286%_) + (letrec ((_%loop62656289%_ + (lambda (_%hd62636293%_ + _%kwval62696296%_) + (if (gx#stx-pair? _%hd62636293%_) + (let ((_%e62666298%_ (gx#syntax-e - _%hd63306360%_))) - (let ((_%lp-hd63346370%_ + _%hd62636293%_))) + (let ((_%lp-hd62676302%_ (let () (declare (not safe)) - (##car _%e63336366%_))) - (_%lp-tl63356373%_ + (##car _%e62666298%_))) + (_%lp-tl62686305%_ (let () (declare (not safe)) - (##cdr _%e63336366%_)))) - (_%loop63326356%_ - _%lp-tl63356373%_ - (cons _%lp-hd63346370%_ - _%kwval63366363%_)))) - (let ((_%kwval63376376%_ - (reverse _%kwval63366363%_))) - ((lambda (_%L6380%_) - (let* ((_%g63976405%_ - (lambda (_%g63986401%_) + (##cdr _%e62666298%_)))) + (_%loop62656289%_ + _%lp-tl62686305%_ + (cons _%lp-hd62676302%_ + _%kwval62696296%_)))) + (let ((_%kwval62706308%_ + (reverse _%kwval62696296%_))) + ((lambda (_%g62616311%_) + (let* ((_%g63286336%_ + (lambda (_%g63296332%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g63986401%_))) - (_%g63966475%_ - (lambda (_%g63986409%_) - ((lambda (_%L6412%_) - (let* ((_%g64256433%_ + _%g63296332%_))) + (_%g63276406%_ + (lambda (_%g63296340%_) + ((lambda (_%g63306343%_) + (let* ((_%g63566364%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g64266429%_) + (lambda (_%g63576360%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g64266429%_))) - (_%g64246463%_ - (lambda (_%g64266437%_) - ((lambda (_%L6440%_) + _%g63576360%_))) + (_%g63556394%_ + (lambda (_%g63576368%_) + ((lambda (_%g63586371%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L6314%_ - (foldr (lambda (_%g64546457%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g64556460%_) - (cons _%g64546457%_ _%g64556460%_)) - _%L6412%_ - _%L6380%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L6440%_ '()))) - (gx#stx-source _%stx5383%_))) - _%g64266437%_)))) - (_%g64246463%_ - (_%make-body6004%_ - _%kwargs6000%_ - (foldr (lambda (_%g64666469%_ _%g64676472%_) - (cons _%g64666469%_ _%g64676472%_)) + (cons (cons _%g62346247%_ + (foldr (lambda (_%g63856388%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g63866391%_) + (cons _%g63856388%_ _%g63866391%_)) + _%g63306343%_ + _%g62616311%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons _%g63586371%_ '()))) + (gx#stx-source _%stx5320%_))) + _%g63576368%_)))) + (_%g63556394%_ + (_%make-body5939%_ + _%kwargs5935%_ + (foldr (lambda (_%g63976400%_ _%g63986403%_) + (cons _%g63976400%_ _%g63986403%_)) '() - _%L6380%_))))) - _%g63986409%_)))) + _%g62616311%_))))) + _%g63296340%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g63966475%_ - _%args6001%_))) - _%kwval63376376%_)))))) - (_%loop63326356%_ _%target63296350%_ '())) - (_%g63266343%_ _%g63276347%_))))) - (_%g63266343%_ _%g63276347%_))))) + (_%g63276406%_ + _%args5936%_))) + _%kwval62706308%_)))))) + (_%loop62656289%_ _%target62626283%_ '())) + (_%g62596276%_ _%g62606280%_))))) + (_%g62596276%_ _%g62606280%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g63256479%_ + (_%g62586410%_ (gx#gentemps - (map cadr _%kwargs6000%_))))) - _%g63006311%_)))) - (_%g62986483%_ - (let ((_%$e6487%_ _%key5998%_)) - (if _%$e6487%_ - _%$e6487%_ + (map cadr _%kwargs5935%_))))) + _%g62336244%_)))) + (_%g62316414%_ + (let ((_%$e6418%_ _%key5933%_)) + (if _%$e6418%_ + _%$e6418%_ (gx#syntax-local-introduce '@@keywords))))))) - (_%make-dispatch6007%_ - (lambda (_%main6107%_) - (let* ((_%g61106118%_ - (lambda (_%g61116114%_) + (_%make-dispatch5942%_ + (lambda (_%main6042%_) + (let* ((_%g60456053%_ + (lambda (_%g60466049%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g61116114%_))) - (_%g61096289%_ - (lambda (_%g61116122%_) - ((lambda (_%L6125%_) - (let* ((_%g61376154%_ - (lambda (_%g61386150%_) + _%g60466049%_))) + (_%g60446222%_ + (lambda (_%g60466057%_) + ((lambda (_%g60476060%_) + (let* ((_%g60726089%_ + (lambda (_%g60736085%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g61386150%_))) - (_%g61366250%_ - (lambda (_%g61386158%_) + _%g60736085%_))) + (_%g60716183%_ + (lambda (_%g60736093%_) (if (gx#stx-pair/null? - _%g61386158%_) - (let ((_g20899_ + _%g60736093%_) + (let ((_g20736_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g61386158%_ '0))) + (gx#syntax-split-splice _%g60736093%_ '0))) (begin - (let ((_g20900_ + (let ((_g20737_ (let () (declare (not safe)) - (if (##values? _g20899_) - (##values-length _g20899_) + (if (##values? _g20736_) + (##values-length _g20736_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20900_ 2))) - (error "Context expects 2 values" _g20900_))) - (let ((_%target61406161%_ + (##fx= _g20737_ 2))) + (error "Context expects 2 values" _g20737_))) + (let ((_%target60756096%_ (let () (declare (not safe)) - (##values-ref _g20899_ 0))) - (_%tl61426164%_ + (##values-ref _g20736_ 0))) + (_%tl60776099%_ (let () (declare (not safe)) - (##values-ref _g20899_ 1)))) - (if (gx#stx-null? _%tl61426164%_) - (letrec ((_%loop61436167%_ - (lambda (_%hd61416171%_ - _%get-kw61476174%_) - (if (gx#stx-pair? _%hd61416171%_) - (let ((_%e61446177%_ + (##values-ref _g20736_ 1)))) + (if (gx#stx-null? _%tl60776099%_) + (letrec ((_%loop60786102%_ + (lambda (_%hd60766106%_ + _%get-kw60826109%_) + (if (gx#stx-pair? _%hd60766106%_) + (let ((_%e60796111%_ (gx#syntax-e - _%hd61416171%_))) - (let ((_%lp-hd61456181%_ + _%hd60766106%_))) + (let ((_%lp-hd60806115%_ (let () (declare (not safe)) - (##car _%e61446177%_))) - (_%lp-tl61466184%_ + (##car _%e60796111%_))) + (_%lp-tl60816118%_ (let () (declare (not safe)) - (##cdr _%e61446177%_)))) - (_%loop61436167%_ - _%lp-tl61466184%_ - (cons _%lp-hd61456181%_ - _%get-kw61476174%_)))) - (let ((_%get-kw61486187%_ - (reverse _%get-kw61476174%_))) - ((lambda (_%L6191%_) - (let* ((_%g62086216%_ - (lambda (_%g62096212%_) + (##cdr _%e60796111%_)))) + (_%loop60786102%_ + _%lp-tl60816118%_ + (cons _%lp-hd60806115%_ + _%get-kw60826109%_)))) + (let ((_%get-kw60836121%_ + (reverse _%get-kw60826109%_))) + ((lambda (_%g60746124%_) + (let* ((_%g61416149%_ + (lambda (_%g61426145%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g62096212%_))) - (_%g62076246%_ - (lambda (_%g62096220%_) - ((lambda (_%L6223%_) + _%g61426145%_))) + (_%g61406179%_ + (lambda (_%g61426153%_) + ((lambda (_%g61436156%_) (gx#stx-wrap-source (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons (cons _%L6125%_ + (cons (cons _%g60476060%_ (gx#datum->syntax '#f 'args)) (cons (cons (gx#datum->syntax '#f 'apply) - (cons _%L6223%_ - (cons _%L6125%_ - (foldr (lambda (_%g62376240%_ + (cons _%g61436156%_ + (cons _%g60476060%_ + (foldr (lambda (_%g61706173%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g62386243%_) - (cons _%g62376240%_ _%g62386243%_)) + _%g61716176%_) + (cons _%g61706173%_ _%g61716176%_)) (cons (gx#datum->syntax '#f 'args) '()) - _%L6191%_)))) + _%g60746124%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx5383%_))) - _%g62096220%_)))) + (gx#stx-source _%stx5320%_))) + _%g61426153%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g62076246%_ - _%main6107%_))) - _%get-kw61486187%_)))))) - (_%loop61436167%_ _%target61406161%_ '())) - (_%g61376154%_ _%g61386158%_))))) - (_%g61376154%_ _%g61386158%_))))) + (_%g61406179%_ + _%main6042%_))) + _%get-kw60836121%_)))))) + (_%loop60786102%_ _%target60756096%_ '())) + (_%g60726089%_ _%g60736093%_))))) + (_%g60726089%_ _%g60736093%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g61366250%_ - (map (lambda (_%kwarg6254%_) - (let* ((_%g62576265%_ - (lambda (_%g62586261%_) + (_%g60716183%_ + (map (lambda (_%kwarg6187%_) + (let* ((_%g61906198%_ + (lambda (_%g61916194%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g62586261%_))) - (_%g62566285%_ - (lambda (_%g62586269%_) - ((lambda (_%L6272%_) + _%g61916194%_))) + (_%g61896218%_ + (lambda (_%g61916202%_) + ((lambda (_%g61926205%_) (cons (gx#datum->syntax '#f 'symbolic-table-ref) - (cons _%L6125%_ + (cons _%g60476060%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L6272%_ '())) + (cons _%g61926205%_ '())) (cons (gx#datum->syntax '#f 'absent-value) '()))))) - _%g62586269%_)))) - (_%g62566285%_ (car _%kwarg6254%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%kwargs6000%_)))) - _%g61116122%_)))) - (_%g61096289%_ - (let ((_%$e6293%_ _%key5998%_)) - (if _%$e6293%_ - _%$e6293%_ + _%g61916202%_)))) + (_%g61896218%_ (car _%kwarg6187%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%kwargs5935%_)))) + _%g60466057%_)))) + (_%g60446222%_ + (let ((_%$e6226%_ _%key5933%_)) + (if _%$e6226%_ + _%$e6226%_ (gx#syntax-local-introduce '@@keywords)))))))) - (let* ((_%g60096017%_ - (lambda (_%g60106013%_) + (let* ((_%g59445952%_ + (lambda (_%g59455948%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g60106013%_))) - (_%g60086103%_ - (lambda (_%g60106021%_) - ((lambda (_%L6024%_) - (let* ((_%g60376045%_ - (lambda (_%g60386041%_) + _%g59455948%_))) + (_%g59436038%_ + (lambda (_%g59455956%_) + ((lambda (_%g59465959%_) + (let* ((_%g59725980%_ + (lambda (_%g59735976%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g60386041%_))) - (_%g60366099%_ - (lambda (_%g60386049%_) - ((lambda (_%L6052%_) - (let* ((_%g60656073%_ - (lambda (_%g60666069%_) + _%g59735976%_))) + (_%g59716034%_ + (lambda (_%g59735984%_) + ((lambda (_%g59745987%_) + (let* ((_%g60006008%_ + (lambda (_%g60016004%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g60666069%_))) - (_%g60646095%_ - (lambda (_%g60666077%_) - ((lambda (_%L6080%_) + _%g60016004%_))) + (_%g59996030%_ + (lambda (_%g60016012%_) + ((lambda (_%g60026015%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let-values) - (cons (cons (cons (cons _%L6024%_ '()) - (cons _%L6080%_ '())) + (cons (cons (cons (cons _%g59465959%_ '()) + (cons _%g60026015%_ '())) '()) - (cons _%L6052%_ '())))) - _%g60666077%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g60646095%_ - (_%make-main6006%_)))) - _%g60386049%_)))) - (_%g60366099%_ - (_%make-dispatch6007%_ _%L6024%_)))) - _%g60106021%_)))) - (_%g60086103%_ (gx#genident 'kw-lambda-main)))))) - (_%generate-kw-dispatch5398%_ - (lambda (_%primary5911%_ _%kwargs5913%_ _%strict?5914%_) - (let* ((_%g59165935%_ - (lambda (_%g59175931%_) + (cons _%g59745987%_ '())))) + _%g60016012%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g59996030%_ + (_%make-main5941%_)))) + _%g59735984%_)))) + (_%g59716034%_ + (_%make-dispatch5942%_ _%g59465959%_)))) + _%g59455956%_)))) + (_%g59436038%_ (gx#genident 'kw-lambda-main)))))) + (_%generate-kw-dispatch5335%_ + (lambda (_%primary5846%_ _%kwargs5848%_ _%strict?5849%_) + (let* ((_%g58515870%_ + (lambda (_%g58525866%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g59175931%_))) - (_%g59155994%_ - (lambda (_%g59175939%_) - (if (gx#stx-pair? _%g59175939%_) - (let ((_%e59215942%_ - (gx#syntax-e _%g59175939%_))) - (let ((_%hd59225946%_ + _%g58525866%_))) + (_%g58505929%_ + (lambda (_%g58525874%_) + (if (gx#stx-pair? _%g58525874%_) + (let ((_%e58565877%_ + (gx#syntax-e _%g58525874%_))) + (let ((_%hd58575881%_ (let () (declare (not safe)) - (##car _%e59215942%_))) - (_%tl59235949%_ + (##car _%e58565877%_))) + (_%tl58585884%_ (let () (declare (not safe)) - (##cdr _%e59215942%_)))) - (if (gx#stx-pair? _%tl59235949%_) - (let ((_%e59245952%_ - (gx#syntax-e _%tl59235949%_))) - (let ((_%hd59255956%_ + (##cdr _%e58565877%_)))) + (if (gx#stx-pair? _%tl58585884%_) + (let ((_%e58595887%_ + (gx#syntax-e _%tl58585884%_))) + (let ((_%hd58605891%_ (let () (declare (not safe)) - (##car _%e59245952%_))) - (_%tl59265959%_ + (##car _%e58595887%_))) + (_%tl58615894%_ (let () (declare (not safe)) - (##cdr _%e59245952%_)))) - (if (gx#stx-pair? _%tl59265959%_) - (let ((_%e59275962%_ + (##cdr _%e58595887%_)))) + (if (gx#stx-pair? _%tl58615894%_) + (let ((_%e58625897%_ (gx#syntax-e - _%tl59265959%_))) - (let ((_%hd59285966%_ + _%tl58615894%_))) + (let ((_%hd58635901%_ (let () (declare (not safe)) - (##car _%e59275962%_))) - (_%tl59295969%_ + (##car _%e58625897%_))) + (_%tl58645904%_ (let () (declare (not safe)) - (##cdr _%e59275962%_)))) + (##cdr _%e58625897%_)))) (if (gx#stx-null? - _%tl59295969%_) - ((lambda (_%L5972%_ + _%tl58645904%_) + ((lambda (_%g58535907%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L5974%_ - _%L5975%_) + _%g58545909%_ + _%g58555910%_) (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L5972%_ + (cons _%g58535907%_ (cons (cons (gx#datum->syntax '#f 'apply) (cons (gx#datum->syntax '#f @@ -2219,2560 +2240,2578 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L5975%_ + (cons _%g58555910%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L5974%_ (cons _%L5972%_ '()))))) + (cons _%g58545909%_ (cons _%g58535907%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd59285966%_ - _%hd59255956%_ - _%hd59225946%_) - (_%g59165935%_ _%g59175939%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g59165935%_ - _%g59175939%_)))) - (_%g59165935%_ _%g59175939%_)))) - (_%g59165935%_ _%g59175939%_))))) - (_%g59155994%_ - (list (if _%strict?5914%_ - (_%generate-kw-table5399%_ - (map car _%kwargs5913%_)) + _%hd58635901%_ + _%hd58605891%_ + _%hd58575881%_) + (_%g58515870%_ _%g58525874%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g58515870%_ + _%g58525874%_)))) + (_%g58515870%_ _%g58525874%_)))) + (_%g58515870%_ _%g58525874%_))))) + (_%g58505929%_ + (list (if _%strict?5849%_ + (_%generate-kw-table5336%_ + (map car _%kwargs5848%_)) '#f) - _%primary5911%_ + _%primary5846%_ (gx#genident 'args)))))) - (_%generate-kw-table5399%_ - (lambda (_%kws5885%_) - (let _%rehash5888%_ ((_%pht5891%_ - (let ((__tmp20905 - (length _%kws5885%_))) + (_%generate-kw-table5336%_ + (lambda (_%kws5820%_) + (let _%rehash5823%_ ((_%pht5826%_ + (let ((__tmp20742 + (length _%kws5820%_))) (declare (not safe)) - (##make-vector __tmp20905 '#f)))) - (let _%lp5894%_ ((_%rest5897%_ _%kws5885%_)) - (if (pair? _%rest5897%_) - (let* ((_%key5900%_ + (##make-vector __tmp20742 '#f)))) + (let _%lp5829%_ ((_%rest5832%_ _%kws5820%_)) + (if (pair? _%rest5832%_) + (let* ((_%key5835%_ (let () (declare (not safe)) - (##car _%rest5897%_))) - (_%rest5903%_ + (##car _%rest5832%_))) + (_%rest5838%_ (let () (declare (not safe)) - (##cdr _%rest5897%_))) - (_%pos5906%_ - (let ((__tmp20902 - (keyword-hash _%key5900%_)) - (__tmp20901 - (vector-length _%pht5891%_))) + (##cdr _%rest5832%_))) + (_%pos5841%_ + (let ((__tmp20739 + (keyword-hash _%key5835%_)) + (__tmp20738 + (vector-length _%pht5826%_))) (declare (not safe)) - (##fxmodulo __tmp20902 __tmp20901)))) - (if (vector-ref _%pht5891%_ _%pos5906%_) - (if (let ((__tmp20903 - (vector-length _%pht5891%_))) + (##fxmodulo __tmp20739 __tmp20738)))) + (if (vector-ref _%pht5826%_ _%pos5841%_) + (if (let ((__tmp20740 + (vector-length _%pht5826%_))) (declare (not safe)) - (##fx< __tmp20903 '8192)) - (_%rehash5888%_ + (##fx< __tmp20740 '8192)) + (_%rehash5823%_ (make-vector (quotient - (let ((__tmp20904 - (vector-length _%pht5891%_))) + (let ((__tmp20741 + (vector-length _%pht5826%_))) (declare (not safe)) - (##fx* '3 __tmp20904)) + (##fx* '3 __tmp20741)) '2) '#f)) (error '"Unresolvable keyword collision" - _%kws5885%_)) + _%kws5820%_)) (begin (vector-set! - _%pht5891%_ - _%pos5906%_ - _%key5900%_) - (_%lp5894%_ _%rest5903%_)))) - _%pht5891%_)))))) - (let* ((_%__stx1930219303%_ _%stx5383%_) - (_%g54035434%_ + _%pht5826%_ + _%pos5841%_ + _%key5835%_) + (_%lp5829%_ _%rest5838%_)))) + _%pht5826%_)))))) + (let* ((_%__stx1913919140%_ _%stx5320%_) + (_%g53405371%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1930219303%_)))) - (let ((_%__kont1930519306%_ - (lambda (_%L5866%_ _%L5868%_) + _%__stx1913919140%_)))) + (let ((_%__kont1914219143%_ + (lambda (_%g53425801%_ _%g53435803%_) (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L5868%_ _%L5866%_)))) - (_%__kont1930719308%_ - (lambda (_%L5638%_ _%L5640%_) - (let ((_g20906_ (_%opt-lambda-split5389%_ _%L5640%_))) + (cons _%g53435803%_ _%g53425801%_)))) + (_%__kont1914419145%_ + (lambda (_%g53505575%_ _%g53515577%_) + (let ((_g20743_ (_%opt-lambda-split5326%_ _%g53515577%_))) (begin - (let ((_g20907_ + (let ((_g20744_ (let () (declare (not safe)) - (if (##values? _g20906_) - (##values-length _g20906_) + (if (##values? _g20743_) + (##values-length _g20743_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20907_ 3))) - (error "Context expects 3 values" _g20907_))) - (let ((_%pre5653%_ + (##fx= _g20744_ 3))) + (error "Context expects 3 values" _g20744_))) + (let ((_%pre5590%_ (let () (declare (not safe)) - (##values-ref _g20906_ 0))) - (_%opt5655%_ + (##values-ref _g20743_ 0))) + (_%opt5592%_ (let () (declare (not safe)) - (##values-ref _g20906_ 1))) - (_%tail5656%_ + (##values-ref _g20743_ 1))) + (_%tail5593%_ (let () (declare (not safe)) - (##values-ref _g20906_ 2)))) - (let* ((_%g56585666%_ - (lambda (_%g56595662%_) + (##values-ref _g20743_ 2)))) + (let* ((_%g55955603%_ + (lambda (_%g55965599%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g56595662%_))) - (_%g56575835%_ - (lambda (_%g56595670%_) - ((lambda (_%L5673%_) - (let* ((_%g56865694%_ - (lambda (_%g56875690%_) + _%g55965599%_))) + (_%g55945770%_ + (lambda (_%g55965607%_) + ((lambda (_%g55975610%_) + (let* ((_%g56235631%_ + (lambda (_%g56245627%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g56875690%_))) - (_%g56855831%_ - (lambda (_%g56875698%_) - ((lambda (_%L5701%_) - (let* ((_%g57145731%_ - (lambda (_%g57155727%_) + _%g56245627%_))) + (_%g56225766%_ + (lambda (_%g56245635%_) + ((lambda (_%g56255638%_) + (let* ((_%g56515668%_ + (lambda (_%g56525664%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g57155727%_))) - (_%g57135827%_ - (lambda (_%g57155735%_) + _%g56525664%_))) + (_%g56505762%_ + (lambda (_%g56525672%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g57155735%_) - (let ((_g20908_ - (gx#syntax-split-splice _%g57155735%_ '0))) + _%g56525672%_) + (let ((_g20745_ + (gx#syntax-split-splice _%g56525672%_ '0))) (begin - (let ((_g20909_ + (let ((_g20746_ (let () (declare (not safe)) - (if (##values? _g20908_) - (##values-length _g20908_) + (if (##values? _g20745_) + (##values-length _g20745_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20909_ 2))) + (##fx= _g20746_ 2))) (error "Context expects 2 values" - _g20909_))) - (let ((_%target57175738%_ + _g20746_))) + (let ((_%target56545675%_ (let () (declare (not safe)) - (##values-ref _g20908_ 0))) - (_%tl57195741%_ + (##values-ref _g20745_ 0))) + (_%tl56565678%_ (let () (declare (not safe)) - (##values-ref _g20908_ 1)))) - (if (gx#stx-null? _%tl57195741%_) - (letrec ((_%loop57205744%_ - (lambda (_%hd57185748%_ - _%clause57245751%_) + (##values-ref _g20745_ 1)))) + (if (gx#stx-null? _%tl56565678%_) + (letrec ((_%loop56575681%_ + (lambda (_%hd56555685%_ + _%clause56615688%_) (if (gx#stx-pair? - _%hd57185748%_) - (let ((_%e57215754%_ + _%hd56555685%_) + (let ((_%e56585690%_ (gx#syntax-e - _%hd57185748%_))) - (let ((_%lp-hd57225758%_ + _%hd56555685%_))) + (let ((_%lp-hd56595694%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e57215754%_))) - (_%lp-tl57235761%_ - (let () (declare (not safe)) (##cdr _%e57215754%_)))) - (_%loop57205744%_ - _%lp-tl57235761%_ - (cons _%lp-hd57225758%_ _%clause57245751%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%clause57255764%_ - (reverse _%clause57245751%_))) - ((lambda (_%L5768%_) - (let* ((_%g57855793%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g57865789%_) + (##car _%e56585690%_))) + (_%lp-tl56605697%_ + (let () (declare (not safe)) (##cdr _%e56585690%_)))) + (_%loop56575681%_ + _%lp-tl56605697%_ + (cons _%lp-hd56595694%_ _%clause56615688%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%clause56625700%_ + (reverse _%clause56615688%_))) + ((lambda (_%g56535703%_) + (let* ((_%g57205728%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g57215724%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g57865789%_))) - (_%g57845815%_ - (lambda (_%g57865797%_) - ((lambda (_%L5800%_) + _%g57215724%_))) + (_%g57195750%_ + (lambda (_%g57215732%_) + ((lambda (_%g57225735%_) (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _%L5673%_ '()) - (cons _%L5701%_ '())) + (cons (cons (cons (cons _%g55975610%_ '()) + (cons _%g56255638%_ + '())) '()) - (cons _%L5800%_ '())))) - _%g57865797%_)))) - (_%g57845815%_ + (cons _%g57225735%_ '())))) + _%g57215732%_)))) + (_%g57195750%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g58185821%_ _%g58195824%_) - (cons _%g58185821%_ _%g58195824%_)) + (foldr (lambda (_%g57535756%_ _%g57545759%_) + (cons _%g57535756%_ _%g57545759%_)) '() - _%L5768%_)) - (gx#stx-source _%stx5383%_))))) - _%clause57255764%_)))))) + _%g56535703%_)) + (gx#stx-source _%stx5320%_))))) + _%clause56625700%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop57205744%_ - _%target57175738%_ + (_%loop56575681%_ + _%target56545675%_ '())) - (_%g57145731%_ _%g57155735%_))))) - (_%g57145731%_ _%g57155735%_))))) - (_%g57135827%_ - (_%generate-opt-dispatch5394%_ - _%L5673%_ - _%pre5653%_ - _%opt5655%_ - _%tail5656%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g56875698%_)))) - (_%g56855831%_ + (_%g56515668%_ _%g56525672%_))))) + (_%g56515668%_ _%g56525672%_))))) + (_%g56505762%_ + (_%generate-opt-dispatch5331%_ + _%g55975610%_ + _%pre5590%_ + _%opt5592%_ + _%tail5593%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g56245635%_)))) + (_%g56225766%_ (gx#stx-wrap-source - (_%generate-opt-primary5393%_ - _%pre5653%_ - _%opt5655%_ - _%tail5656%_ - _%L5638%_) - (gx#stx-source _%stx5383%_))))) - _%g56595670%_)))) - (_%g56575835%_ (gx#genident 'opt-lambda)))))))) - (_%__kont1930919310%_ - (lambda (_%L5461%_ _%L5463%_) - (let* ((_%g54795486%_ - (lambda (_%g54805482%_) + (_%generate-opt-primary5330%_ + _%pre5590%_ + _%opt5592%_ + _%tail5593%_ + _%g53505575%_) + (gx#stx-source _%stx5320%_))))) + _%g55965607%_)))) + (_%g55945770%_ (gx#genident 'opt-lambda)))))))) + (_%__kont1914619147%_ + (lambda (_%g53585398%_ _%g53595400%_) + (let* ((_%g54165423%_ + (lambda (_%g54175419%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g54805482%_))) - (_%g54785607%_ - (lambda (_%g54805490%_) + _%g54175419%_))) + (_%g54155544%_ + (lambda (_%g54175427%_) ((lambda () - (let ((_g20910_ - (_%kw-lambda-split5391%_ _%L5463%_))) + (let ((_g20747_ + (_%kw-lambda-split5328%_ + _%g53595400%_))) (begin - (let ((_g20911_ + (let ((_g20748_ (let () (declare (not safe)) - (if (##values? _g20910_) - (##values-length _g20910_) + (if (##values? _g20747_) + (##values-length _g20747_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20911_ 3))) + (##fx= _g20748_ 3))) (error "Context expects 3 values" - _g20911_))) - (let ((_%key5499%_ + _g20748_))) + (let ((_%key5436%_ (let () (declare (not safe)) - (##values-ref _g20910_ 0))) - (_%kwargs5501%_ + (##values-ref _g20747_ 0))) + (_%kwargs5438%_ (let () (declare (not safe)) - (##values-ref _g20910_ 1))) - (_%args5502%_ + (##values-ref _g20747_ 1))) + (_%args5439%_ (let () (declare (not safe)) - (##values-ref _g20910_ 2)))) - (let* ((_%g55045512%_ - (lambda (_%g55055508%_) + (##values-ref _g20747_ 2)))) + (let* ((_%g54415449%_ + (lambda (_%g54425445%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g55055508%_))) - (_%g55035603%_ - (lambda (_%g55055516%_) - ((lambda (_%L5519%_) - (let* ((_%g55375545%_ - (lambda (_%g55385541%_) + _%g54425445%_))) + (_%g54405540%_ + (lambda (_%g54425453%_) + ((lambda (_%g54435456%_) + (let* ((_%g54745482%_ + (lambda (_%g54755478%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g55385541%_))) - (_%g55365599%_ - (lambda (_%g55385549%_) - ((lambda (_%L5552%_) + _%g54755478%_))) + (_%g54735536%_ + (lambda (_%g54755486%_) + ((lambda (_%g54765489%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g55655573%_ - (lambda (_%g55665569%_) + (let* ((_%g55025510%_ + (lambda (_%g55035506%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g55665569%_))) - (_%g55645595%_ - (lambda (_%g55665577%_) - ((lambda (_%L5580%_) + _%g55035506%_))) + (_%g55015532%_ + (lambda (_%g55035514%_) + ((lambda (_%g55045517%_) (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _%L5519%_ + (cons (cons (cons (cons _%g54435456%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L5552%_ '())) + (cons _%g54765489%_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L5580%_ '())))) - _%g55665577%_)))) - (_%g55645595%_ + (cons _%g55045517%_ '())))) + _%g55035514%_)))) + (_%g55015532%_ (gx#stx-wrap-source - (_%generate-kw-dispatch5398%_ - _%L5519%_ - _%kwargs5501%_ - (not _%key5499%_)) - (gx#stx-source _%stx5383%_))))) - _%g55385549%_)))) - (_%g55365599%_ + (_%generate-kw-dispatch5335%_ + _%g54435456%_ + _%kwargs5438%_ + (not _%key5436%_)) + (gx#stx-source _%stx5320%_))))) + _%g54755486%_)))) + (_%g54735536%_ (gx#stx-wrap-source - (_%generate-kw-primary5397%_ - _%key5499%_ - _%kwargs5501%_ - _%args5502%_ - _%L5461%_) - (gx#stx-source _%stx5383%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g55055516%_)))) - (_%g55035603%_ + (_%generate-kw-primary5334%_ + _%key5436%_ + _%kwargs5438%_ + _%args5439%_ + _%g53585398%_) + (gx#stx-source _%stx5320%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g54425453%_)))) + (_%g54405540%_ (gx#genident 'kw-lambda))))))))))) - (_%g54785607%_ - (_%check-duplicate-bindings5392%_ _%L5463%_)))))) - (let* ((_%__match1934719348%_ - (lambda (_%e54235441%_ - _%hd54245445%_ - _%tl54255448%_ - _%e54265451%_ - _%hd54275455%_ - _%tl54285458%_) - (let ((_%L5461%_ _%tl54285458%_) - (_%L5463%_ _%hd54275455%_)) - (if (_%kw-lambda?5390%_ _%L5463%_) - (_%__kont1930919310%_ _%L5461%_ _%L5463%_) - (let () (declare (not safe)) (_%g54035434%_)))))) - (_%__match1933519336%_ - (lambda (_%e54155618%_ - _%hd54165622%_ - _%tl54175625%_ - _%e54185628%_ - _%hd54195632%_ - _%tl54205635%_) - (let ((_%L5638%_ _%tl54205635%_) - (_%L5640%_ _%hd54195632%_)) - (if (_%opt-lambda?5388%_ _%L5640%_) - (_%__kont1930719308%_ _%L5638%_ _%L5640%_) - (_%__match1934719348%_ - _%e54155618%_ - _%hd54165622%_ - _%tl54175625%_ - _%e54185628%_ - _%hd54195632%_ - _%tl54205635%_))))) - (_%__match1932319324%_ - (lambda (_%e54075846%_ - _%hd54085850%_ - _%tl54095853%_ - _%e54105856%_ - _%hd54115860%_ - _%tl54125863%_) - (let ((_%L5866%_ _%tl54125863%_) - (_%L5868%_ _%hd54115860%_)) - (if (_%simple-lambda?5386%_ _%L5868%_) - (_%__kont1930519306%_ _%L5866%_ _%L5868%_) - (_%__match1933519336%_ - _%e54075846%_ - _%hd54085850%_ - _%tl54095853%_ - _%e54105856%_ - _%hd54115860%_ - _%tl54125863%_)))))) - (if (gx#stx-pair? _%__stx1930219303%_) - (let ((_%e54075846%_ (gx#syntax-e _%__stx1930219303%_))) - (let ((_%tl54095853%_ + (_%g54155544%_ + (_%check-duplicate-bindings5329%_ _%g53595400%_)))))) + (let* ((_%__match1918419185%_ + (lambda (_%e53605378%_ + _%hd53615382%_ + _%tl53625385%_ + _%e53635388%_ + _%hd53645392%_ + _%tl53655395%_) + (let ((_%g53585398%_ _%tl53655395%_) + (_%g53595400%_ _%hd53645392%_)) + (if (_%kw-lambda?5327%_ _%g53595400%_) + (_%__kont1914619147%_ + _%g53585398%_ + _%g53595400%_) + (let () (declare (not safe)) (_%g53405371%_)))))) + (_%__match1917219173%_ + (lambda (_%e53525555%_ + _%hd53535559%_ + _%tl53545562%_ + _%e53555565%_ + _%hd53565569%_ + _%tl53575572%_) + (let ((_%g53505575%_ _%tl53575572%_) + (_%g53515577%_ _%hd53565569%_)) + (if (_%opt-lambda?5325%_ _%g53515577%_) + (_%__kont1914419145%_ + _%g53505575%_ + _%g53515577%_) + (_%__match1918419185%_ + _%e53525555%_ + _%hd53535559%_ + _%tl53545562%_ + _%e53555565%_ + _%hd53565569%_ + _%tl53575572%_))))) + (_%__match1916019161%_ + (lambda (_%e53445781%_ + _%hd53455785%_ + _%tl53465788%_ + _%e53475791%_ + _%hd53485795%_ + _%tl53495798%_) + (let ((_%g53425801%_ _%tl53495798%_) + (_%g53435803%_ _%hd53485795%_)) + (if (_%simple-lambda?5323%_ _%g53435803%_) + (_%__kont1914219143%_ + _%g53425801%_ + _%g53435803%_) + (_%__match1917219173%_ + _%e53445781%_ + _%hd53455785%_ + _%tl53465788%_ + _%e53475791%_ + _%hd53485795%_ + _%tl53495798%_)))))) + (if (gx#stx-pair? _%__stx1913919140%_) + (let ((_%e53445781%_ (gx#syntax-e _%__stx1913919140%_))) + (let ((_%tl53465788%_ (let () (declare (not safe)) - (##cdr _%e54075846%_))) - (_%hd54085850%_ + (##cdr _%e53445781%_))) + (_%hd53455785%_ (let () (declare (not safe)) - (##car _%e54075846%_)))) - (if (gx#stx-pair? _%tl54095853%_) - (let ((_%e54105856%_ (gx#syntax-e _%tl54095853%_))) - (let ((_%tl54125863%_ + (##car _%e53445781%_)))) + (if (gx#stx-pair? _%tl53465788%_) + (let ((_%e53475791%_ (gx#syntax-e _%tl53465788%_))) + (let ((_%tl53495798%_ (let () (declare (not safe)) - (##cdr _%e54105856%_))) - (_%hd54115860%_ + (##cdr _%e53475791%_))) + (_%hd53485795%_ (let () (declare (not safe)) - (##car _%e54105856%_)))) - (_%__match1932319324%_ - _%e54075846%_ - _%hd54085850%_ - _%tl54095853%_ - _%e54105856%_ - _%hd54115860%_ - _%tl54125863%_))) - (let () (declare (not safe)) (_%g54035434%_))))) - (let () (declare (not safe)) (_%g54035434%_))))))))) + (##car _%e53475791%_)))) + (_%__match1916019161%_ + _%e53445781%_ + _%hd53455785%_ + _%tl53465788%_ + _%e53475791%_ + _%hd53485795%_ + _%tl53495798%_))) + (let () (declare (not safe)) (_%g53405371%_))))) + (let () (declare (not safe)) (_%g53405371%_))))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#def| - (lambda (_%$stx8808%_) - (let* ((_%__stx1935019351%_ _%$stx8808%_) - (_%g88148878%_ + (lambda (_%$stx8723%_) + (let* ((_%__stx1918719188%_ _%$stx8723%_) + (_%g87298793%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1935019351%_)))) - (let ((_%__kont1935319354%_ - (lambda (_%L9108%_ _%L9110%_ _%L9111%_ _%L9112%_) + _%__stx1918719188%_)))) + (let ((_%__kont1919019191%_ + (lambda (_%g87319019%_ + _%g87329021%_ + _%g87339022%_ + _%g87349023%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L9112%_ _%L9111%_) + (cons (cons _%g87349023%_ _%g87339022%_) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L9110%_ - (foldr (lambda (_%g91349137%_ + (cons _%g87329021%_ + (foldr (lambda (_%g90459048%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g91359140%_) - (cons _%g91349137%_ _%g91359140%_)) + _%g90469051%_) + (cons _%g90459048%_ _%g90469051%_)) '() - _%L9108%_))) + _%g87319019%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1935719358%_ - (lambda (_%L9000%_ _%L9002%_ _%L9003%_) + (_%__kont1919419195%_ + (lambda (_%g87568913%_ _%g87578915%_ _%g87588916%_) (cons (gx#datum->syntax '#f 'define-values) - (cons (cons _%L9003%_ '()) + (cons (cons _%g87588916%_ '()) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L9002%_ - (foldr (lambda (_%g90229025%_ + (cons _%g87578915%_ + (foldr (lambda (_%g89358938%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g90239028%_) - (cons _%g90229025%_ _%g90239028%_)) + _%g89368941%_) + (cons _%g89358938%_ _%g89368941%_)) '() - _%L9000%_))) + _%g87568913%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1936119362%_ - (lambda (_%L8915%_ _%L8917%_) + (_%__kont1919819199%_ + (lambda (_%g87778830%_ _%g87788832%_) (cons (gx#datum->syntax '#f 'define-values) - (cons (cons _%L8917%_ '()) (cons _%L8915%_ '())))))) - (let* ((_%__match1944119442%_ - (lambda (_%e88648885%_ - _%hd88658889%_ - _%tl88668892%_ - _%e88678895%_ - _%hd88688899%_ - _%tl88698902%_ - _%e88708905%_ - _%hd88718909%_ - _%tl88728912%_) - (let ((_%L8915%_ _%hd88718909%_) - (_%L8917%_ _%hd88688899%_)) - (if (gx#identifier? _%L8917%_) - (_%__kont1936119362%_ _%L8915%_ _%L8917%_) - (let () (declare (not safe)) (_%g88148878%_)))))) - (_%__match1943319434%_ - (lambda (_%e88648885%_ - _%hd88658889%_ - _%tl88668892%_ - _%e88678895%_ - _%hd88688899%_ - _%tl88698902%_) - (if (gx#stx-pair? _%tl88698902%_) - (let ((_%e88708905%_ (gx#syntax-e _%tl88698902%_))) - (let ((_%tl88728912%_ + (cons (cons _%g87788832%_ '()) + (cons _%g87778830%_ '())))))) + (let* ((_%__match1927819279%_ + (lambda (_%e87798800%_ + _%hd87808804%_ + _%tl87818807%_ + _%e87828810%_ + _%hd87838814%_ + _%tl87848817%_ + _%e87858820%_ + _%hd87868824%_ + _%tl87878827%_) + (let ((_%g87778830%_ _%hd87868824%_) + (_%g87788832%_ _%hd87838814%_)) + (if (gx#identifier? _%g87788832%_) + (_%__kont1919819199%_ _%g87778830%_ _%g87788832%_) + (let () (declare (not safe)) (_%g87298793%_)))))) + (_%__match1927019271%_ + (lambda (_%e87798800%_ + _%hd87808804%_ + _%tl87818807%_ + _%e87828810%_ + _%hd87838814%_ + _%tl87848817%_) + (if (gx#stx-pair? _%tl87848817%_) + (let ((_%e87858820%_ (gx#syntax-e _%tl87848817%_))) + (let ((_%tl87878827%_ (let () (declare (not safe)) - (##cdr _%e88708905%_))) - (_%hd88718909%_ + (##cdr _%e87858820%_))) + (_%hd87868824%_ (let () (declare (not safe)) - (##car _%e88708905%_)))) - (if (gx#stx-null? _%tl88728912%_) - (_%__match1944119442%_ - _%e88648885%_ - _%hd88658889%_ - _%tl88668892%_ - _%e88678895%_ - _%hd88688899%_ - _%tl88698902%_ - _%e88708905%_ - _%hd88718909%_ - _%tl88728912%_) + (##car _%e87858820%_)))) + (if (gx#stx-null? _%tl87878827%_) + (_%__match1927819279%_ + _%e87798800%_ + _%hd87808804%_ + _%tl87818807%_ + _%e87828810%_ + _%hd87838814%_ + _%tl87848817%_ + _%e87858820%_ + _%hd87868824%_ + _%tl87878827%_) (let () (declare (not safe)) - (_%g88148878%_))))) - (let () (declare (not safe)) (_%g88148878%_))))) - (_%__match1942119422%_ - (lambda (_%e88448940%_ - _%hd88458944%_ - _%tl88468947%_ - _%e88478950%_ - _%hd88488954%_ - _%tl88498957%_ - _%e88508960%_ - _%hd88518964%_ - _%tl88528967%_ - _%__splice1935919360%_ - _%target88538970%_ - _%tl88558973%_) - (letrec ((_%loop88568976%_ - (lambda (_%hd88548980%_ _%body88608983%_) - (if (gx#stx-pair? _%hd88548980%_) - (let ((_%e88578986%_ - (gx#syntax-e _%hd88548980%_))) - (let ((_%lp-tl88598993%_ + (_%g87298793%_))))) + (let () (declare (not safe)) (_%g87298793%_))))) + (_%__match1925819259%_ + (lambda (_%e87598855%_ + _%hd87608859%_ + _%tl87618862%_ + _%e87628865%_ + _%hd87638869%_ + _%tl87648872%_ + _%e87658875%_ + _%hd87668879%_ + _%tl87678882%_ + _%__splice1919619197%_ + _%target87688885%_ + _%tl87708888%_) + (letrec ((_%loop87718891%_ + (lambda (_%hd87698895%_ _%body87758898%_) + (if (gx#stx-pair? _%hd87698895%_) + (let ((_%e87728900%_ + (gx#syntax-e _%hd87698895%_))) + (let ((_%lp-tl87748907%_ (let () (declare (not safe)) - (##cdr _%e88578986%_))) - (_%lp-hd88588990%_ + (##cdr _%e87728900%_))) + (_%lp-hd87738904%_ (let () (declare (not safe)) - (##car _%e88578986%_)))) - (_%loop88568976%_ - _%lp-tl88598993%_ - (cons _%lp-hd88588990%_ - _%body88608983%_)))) - (let ((_%body88618996%_ - (reverse _%body88608983%_))) - (let ((_%L9000%_ _%body88618996%_) - (_%L9002%_ _%tl88528967%_) - (_%L9003%_ _%hd88518964%_)) - (if (gx#identifier? _%L9003%_) - (_%__kont1935719358%_ - _%L9000%_ - _%L9002%_ - _%L9003%_) - (_%__match1943319434%_ - _%e88448940%_ - _%hd88458944%_ - _%tl88468947%_ - _%e88478950%_ - _%hd88488954%_ - _%tl88498957%_)))))))) - (_%loop88568976%_ _%target88538970%_ '())))) - (_%__match1939519396%_ - (lambda (_%e88209038%_ - _%hd88219042%_ - _%tl88229045%_ - _%e88239048%_ - _%hd88249052%_ - _%tl88259055%_ - _%e88269058%_ - _%hd88279062%_ - _%tl88289065%_ - _%e88299068%_ - _%hd88309072%_ - _%tl88319075%_ - _%__splice1935519356%_ - _%target88329078%_ - _%tl88349081%_) - (letrec ((_%loop88359084%_ - (lambda (_%hd88339088%_ _%body88399091%_) - (if (gx#stx-pair? _%hd88339088%_) - (let ((_%e88369094%_ - (gx#syntax-e _%hd88339088%_))) - (let ((_%lp-tl88389101%_ + (##car _%e87728900%_)))) + (_%loop87718891%_ + _%lp-tl87748907%_ + (cons _%lp-hd87738904%_ + _%body87758898%_)))) + (let ((_%body87768910%_ + (reverse _%body87758898%_))) + (let ((_%g87568913%_ _%body87768910%_) + (_%g87578915%_ _%tl87678882%_) + (_%g87588916%_ _%hd87668879%_)) + (if (gx#identifier? _%g87588916%_) + (_%__kont1919419195%_ + _%g87568913%_ + _%g87578915%_ + _%g87588916%_) + (_%__match1927019271%_ + _%e87598855%_ + _%hd87608859%_ + _%tl87618862%_ + _%e87628865%_ + _%hd87638869%_ + _%tl87648872%_)))))))) + (_%loop87718891%_ _%target87688885%_ '())))) + (_%__match1923219233%_ + (lambda (_%e87358951%_ + _%hd87368955%_ + _%tl87378958%_ + _%e87388961%_ + _%hd87398965%_ + _%tl87408968%_ + _%e87418971%_ + _%hd87428975%_ + _%tl87438978%_ + _%e87448981%_ + _%hd87458985%_ + _%tl87468988%_ + _%__splice1919219193%_ + _%target87478991%_ + _%tl87498994%_) + (letrec ((_%loop87508997%_ + (lambda (_%hd87489001%_ _%body87549004%_) + (if (gx#stx-pair? _%hd87489001%_) + (let ((_%e87519006%_ + (gx#syntax-e _%hd87489001%_))) + (let ((_%lp-tl87539013%_ (let () (declare (not safe)) - (##cdr _%e88369094%_))) - (_%lp-hd88379098%_ + (##cdr _%e87519006%_))) + (_%lp-hd87529010%_ (let () (declare (not safe)) - (##car _%e88369094%_)))) - (_%loop88359084%_ - _%lp-tl88389101%_ - (cons _%lp-hd88379098%_ - _%body88399091%_)))) - (let ((_%body88409104%_ - (reverse _%body88399091%_))) - (_%__kont1935319354%_ - _%body88409104%_ - _%tl88289065%_ - _%tl88319075%_ - _%hd88309072%_)))))) - (_%loop88359084%_ _%target88329078%_ '()))))) - (if (gx#stx-pair? _%__stx1935019351%_) - (let ((_%e88209038%_ (gx#syntax-e _%__stx1935019351%_))) - (let ((_%tl88229045%_ - (let () (declare (not safe)) (##cdr _%e88209038%_))) - (_%hd88219042%_ + (##car _%e87519006%_)))) + (_%loop87508997%_ + _%lp-tl87539013%_ + (cons _%lp-hd87529010%_ + _%body87549004%_)))) + (let ((_%body87559016%_ + (reverse _%body87549004%_))) + (_%__kont1919019191%_ + _%body87559016%_ + _%tl87438978%_ + _%tl87468988%_ + _%hd87458985%_)))))) + (_%loop87508997%_ _%target87478991%_ '()))))) + (if (gx#stx-pair? _%__stx1918719188%_) + (let ((_%e87358951%_ (gx#syntax-e _%__stx1918719188%_))) + (let ((_%tl87378958%_ + (let () (declare (not safe)) (##cdr _%e87358951%_))) + (_%hd87368955%_ (let () (declare (not safe)) - (##car _%e88209038%_)))) - (if (gx#stx-pair? _%tl88229045%_) - (let ((_%e88239048%_ (gx#syntax-e _%tl88229045%_))) - (let ((_%tl88259055%_ + (##car _%e87358951%_)))) + (if (gx#stx-pair? _%tl87378958%_) + (let ((_%e87388961%_ (gx#syntax-e _%tl87378958%_))) + (let ((_%tl87408968%_ (let () (declare (not safe)) - (##cdr _%e88239048%_))) - (_%hd88249052%_ + (##cdr _%e87388961%_))) + (_%hd87398965%_ (let () (declare (not safe)) - (##car _%e88239048%_)))) - (if (gx#stx-pair? _%hd88249052%_) - (let ((_%e88269058%_ - (gx#syntax-e _%hd88249052%_))) - (let ((_%tl88289065%_ + (##car _%e87388961%_)))) + (if (gx#stx-pair? _%hd87398965%_) + (let ((_%e87418971%_ + (gx#syntax-e _%hd87398965%_))) + (let ((_%tl87438978%_ (let () (declare (not safe)) - (##cdr _%e88269058%_))) - (_%hd88279062%_ + (##cdr _%e87418971%_))) + (_%hd87428975%_ (let () (declare (not safe)) - (##car _%e88269058%_)))) - (if (gx#stx-pair? _%hd88279062%_) - (let ((_%e88299068%_ - (gx#syntax-e _%hd88279062%_))) - (let ((_%tl88319075%_ + (##car _%e87418971%_)))) + (if (gx#stx-pair? _%hd87428975%_) + (let ((_%e87448981%_ + (gx#syntax-e _%hd87428975%_))) + (let ((_%tl87468988%_ (let () (declare (not safe)) - (##cdr _%e88299068%_))) - (_%hd88309072%_ + (##cdr _%e87448981%_))) + (_%hd87458985%_ (let () (declare (not safe)) - (##car _%e88299068%_)))) + (##car _%e87448981%_)))) (if (gx#stx-pair/null? - _%tl88259055%_) - (let ((_%__splice1935519356%_ + _%tl87408968%_) + (let ((_%__splice1919219193%_ (gx#syntax-split-splice->vector - _%tl88259055%_ + _%tl87408968%_ '0))) - (let ((_%tl88349081%_ + (let ((_%tl87498994%_ (let () (declare (not safe)) (##vector-ref - _%__splice1935519356%_ + _%__splice1919219193%_ '1))) - (_%target88329078%_ + (_%target87478991%_ (let () (declare (not safe)) (##vector-ref - _%__splice1935519356%_ + _%__splice1919219193%_ '0)))) (if (gx#stx-null? - _%tl88349081%_) - (_%__match1939519396%_ - _%e88209038%_ - _%hd88219042%_ - _%tl88229045%_ - _%e88239048%_ - _%hd88249052%_ - _%tl88259055%_ - _%e88269058%_ - _%hd88279062%_ - _%tl88289065%_ - _%e88299068%_ - _%hd88309072%_ - _%tl88319075%_ - _%__splice1935519356%_ - _%target88329078%_ - _%tl88349081%_) + _%tl87498994%_) + (_%__match1923219233%_ + _%e87358951%_ + _%hd87368955%_ + _%tl87378958%_ + _%e87388961%_ + _%hd87398965%_ + _%tl87408968%_ + _%e87418971%_ + _%hd87428975%_ + _%tl87438978%_ + _%e87448981%_ + _%hd87458985%_ + _%tl87468988%_ + _%__splice1919219193%_ + _%target87478991%_ + _%tl87498994%_) (if (gx#stx-pair? - _%tl88259055%_) - (let ((_%e88708905%_ + _%tl87408968%_) + (let ((_%e87858820%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl88259055%_))) - (let ((_%tl88728912%_ + (gx#syntax-e _%tl87408968%_))) + (let ((_%tl87878827%_ (let () (declare (not safe)) - (##cdr _%e88708905%_))) - (_%hd88718909%_ + (##cdr _%e87858820%_))) + (_%hd87868824%_ (let () (declare (not safe)) - (##car _%e88708905%_)))) - (if (gx#stx-null? _%tl88728912%_) - (_%__match1944119442%_ - _%e88209038%_ - _%hd88219042%_ - _%tl88229045%_ - _%e88239048%_ - _%hd88249052%_ - _%tl88259055%_ - _%e88708905%_ - _%hd88718909%_ - _%tl88728912%_) - (let () (declare (not safe)) (_%g88148878%_))))) - (let () (declare (not safe)) (_%g88148878%_)))))) + (##car _%e87858820%_)))) + (if (gx#stx-null? _%tl87878827%_) + (_%__match1927819279%_ + _%e87358951%_ + _%hd87368955%_ + _%tl87378958%_ + _%e87388961%_ + _%hd87398965%_ + _%tl87408968%_ + _%e87858820%_ + _%hd87868824%_ + _%tl87878827%_) + (let () (declare (not safe)) (_%g87298793%_))))) + (let () (declare (not safe)) (_%g87298793%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%tl88259055%_) - (let ((_%e88708905%_ + _%tl87408968%_) + (let ((_%e87858820%_ (gx#syntax-e - _%tl88259055%_))) - (let ((_%tl88728912%_ + _%tl87408968%_))) + (let ((_%tl87878827%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e88708905%_))) - (_%hd88718909%_ - (let () (declare (not safe)) (##car _%e88708905%_)))) - (if (gx#stx-null? _%tl88728912%_) - (_%__match1944119442%_ - _%e88209038%_ - _%hd88219042%_ - _%tl88229045%_ - _%e88239048%_ - _%hd88249052%_ - _%tl88259055%_ - _%e88708905%_ - _%hd88718909%_ - _%tl88728912%_) - (let () (declare (not safe)) (_%g88148878%_))))) - (let () (declare (not safe)) (_%g88148878%_)))))) + (##cdr _%e87858820%_))) + (_%hd87868824%_ + (let () (declare (not safe)) (##car _%e87858820%_)))) + (if (gx#stx-null? _%tl87878827%_) + (_%__match1927819279%_ + _%e87358951%_ + _%hd87368955%_ + _%tl87378958%_ + _%e87388961%_ + _%hd87398965%_ + _%tl87408968%_ + _%e87858820%_ + _%hd87868824%_ + _%tl87878827%_) + (let () (declare (not safe)) (_%g87298793%_))))) + (let () (declare (not safe)) (_%g87298793%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl88259055%_) - (let ((_%__splice1935919360%_ + _%tl87408968%_) + (let ((_%__splice1919619197%_ (gx#syntax-split-splice->vector - _%tl88259055%_ + _%tl87408968%_ '0))) - (let ((_%tl88558973%_ + (let ((_%tl87708888%_ (let () (declare (not safe)) (##vector-ref - _%__splice1935919360%_ + _%__splice1919619197%_ '1))) - (_%target88538970%_ + (_%target87688885%_ (let () (declare (not safe)) (##vector-ref - _%__splice1935919360%_ + _%__splice1919619197%_ '0)))) (if (gx#stx-null? - _%tl88558973%_) - (_%__match1942119422%_ - _%e88209038%_ - _%hd88219042%_ - _%tl88229045%_ - _%e88239048%_ - _%hd88249052%_ - _%tl88259055%_ - _%e88269058%_ - _%hd88279062%_ - _%tl88289065%_ - _%__splice1935919360%_ - _%target88538970%_ - _%tl88558973%_) + _%tl87708888%_) + (_%__match1925819259%_ + _%e87358951%_ + _%hd87368955%_ + _%tl87378958%_ + _%e87388961%_ + _%hd87398965%_ + _%tl87408968%_ + _%e87418971%_ + _%hd87428975%_ + _%tl87438978%_ + _%__splice1919619197%_ + _%target87688885%_ + _%tl87708888%_) (if (gx#stx-pair? - _%tl88259055%_) - (let ((_%e88708905%_ + _%tl87408968%_) + (let ((_%e87858820%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl88259055%_))) - (let ((_%tl88728912%_ - (let () (declare (not safe)) (##cdr _%e88708905%_))) - (_%hd88718909%_ + (gx#syntax-e _%tl87408968%_))) + (let ((_%tl87878827%_ + (let () (declare (not safe)) (##cdr _%e87858820%_))) + (_%hd87868824%_ (let () (declare (not safe)) - (##car _%e88708905%_)))) - (if (gx#stx-null? _%tl88728912%_) - (_%__match1944119442%_ - _%e88209038%_ - _%hd88219042%_ - _%tl88229045%_ - _%e88239048%_ - _%hd88249052%_ - _%tl88259055%_ - _%e88708905%_ - _%hd88718909%_ - _%tl88728912%_) - (let () (declare (not safe)) (_%g88148878%_))))) - (let () (declare (not safe)) (_%g88148878%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl88259055%_) - (let ((_%e88708905%_ + (##car _%e87858820%_)))) + (if (gx#stx-null? _%tl87878827%_) + (_%__match1927819279%_ + _%e87358951%_ + _%hd87368955%_ + _%tl87378958%_ + _%e87388961%_ + _%hd87398965%_ + _%tl87408968%_ + _%e87858820%_ + _%hd87868824%_ + _%tl87878827%_) + (let () (declare (not safe)) (_%g87298793%_))))) + (let () (declare (not safe)) (_%g87298793%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%tl87408968%_) + (let ((_%e87858820%_ (gx#syntax-e - _%tl88259055%_))) - (let ((_%tl88728912%_ + _%tl87408968%_))) + (let ((_%tl87878827%_ (let () (declare (not safe)) - (##cdr _%e88708905%_))) - (_%hd88718909%_ + (##cdr _%e87858820%_))) + (_%hd87868824%_ (let () (declare (not safe)) - (##car _%e88708905%_)))) + (##car _%e87858820%_)))) (if (gx#stx-null? - _%tl88728912%_) - (_%__match1944119442%_ - _%e88209038%_ - _%hd88219042%_ - _%tl88229045%_ - _%e88239048%_ - _%hd88249052%_ - _%tl88259055%_ - _%e88708905%_ - _%hd88718909%_ - _%tl88728912%_) + _%tl87878827%_) + (_%__match1927819279%_ + _%e87358951%_ + _%hd87368955%_ + _%tl87378958%_ + _%e87388961%_ + _%hd87398965%_ + _%tl87408968%_ + _%e87858820%_ + _%hd87868824%_ + _%tl87878827%_) (let () (declare (not safe)) - (_%g88148878%_))))) + (_%g87298793%_))))) (let () (declare (not safe)) - (_%g88148878%_))))))) - (if (gx#stx-pair? _%tl88259055%_) - (let ((_%e88708905%_ - (gx#syntax-e _%tl88259055%_))) - (let ((_%tl88728912%_ + (_%g87298793%_))))))) + (if (gx#stx-pair? _%tl87408968%_) + (let ((_%e87858820%_ + (gx#syntax-e _%tl87408968%_))) + (let ((_%tl87878827%_ (let () (declare (not safe)) - (##cdr _%e88708905%_))) - (_%hd88718909%_ + (##cdr _%e87858820%_))) + (_%hd87868824%_ (let () (declare (not safe)) - (##car _%e88708905%_)))) - (if (gx#stx-null? _%tl88728912%_) - (_%__match1944119442%_ - _%e88209038%_ - _%hd88219042%_ - _%tl88229045%_ - _%e88239048%_ - _%hd88249052%_ - _%tl88259055%_ - _%e88708905%_ - _%hd88718909%_ - _%tl88728912%_) + (##car _%e87858820%_)))) + (if (gx#stx-null? _%tl87878827%_) + (_%__match1927819279%_ + _%e87358951%_ + _%hd87368955%_ + _%tl87378958%_ + _%e87388961%_ + _%hd87398965%_ + _%tl87408968%_ + _%e87858820%_ + _%hd87868824%_ + _%tl87878827%_) (let () (declare (not safe)) - (_%g88148878%_))))) + (_%g87298793%_))))) (let () (declare (not safe)) - (_%g88148878%_)))))) - (let () (declare (not safe)) (_%g88148878%_))))) - (let () (declare (not safe)) (_%g88148878%_)))))))) + (_%g87298793%_)))))) + (let () (declare (not safe)) (_%g87298793%_))))) + (let () (declare (not safe)) (_%g87298793%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#def*| - (lambda (_%$stx9149%_) - (let* ((_%g91539177%_ - (lambda (_%g91549173%_) + (lambda (_%$stx9060%_) + (let* ((_%g90649088%_ + (lambda (_%g90659084%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g91549173%_))) - (_%g91529262%_ - (lambda (_%g91549181%_) - (if (gx#stx-pair? _%g91549181%_) - (let ((_%e91579184%_ (gx#syntax-e _%g91549181%_))) - (let ((_%hd91589188%_ + _%g90659084%_))) + (_%g90639171%_ + (lambda (_%g90659092%_) + (if (gx#stx-pair? _%g90659092%_) + (let ((_%e90689095%_ (gx#syntax-e _%g90659092%_))) + (let ((_%hd90699099%_ (let () (declare (not safe)) - (##car _%e91579184%_))) - (_%tl91599191%_ + (##car _%e90689095%_))) + (_%tl90709102%_ (let () (declare (not safe)) - (##cdr _%e91579184%_)))) - (if (gx#stx-pair? _%tl91599191%_) - (let ((_%e91609194%_ - (gx#syntax-e _%tl91599191%_))) - (let ((_%hd91619198%_ + (##cdr _%e90689095%_)))) + (if (gx#stx-pair? _%tl90709102%_) + (let ((_%e90719105%_ + (gx#syntax-e _%tl90709102%_))) + (let ((_%hd90729109%_ (let () (declare (not safe)) - (##car _%e91609194%_))) - (_%tl91629201%_ + (##car _%e90719105%_))) + (_%tl90739112%_ (let () (declare (not safe)) - (##cdr _%e91609194%_)))) - (if (gx#stx-pair/null? _%tl91629201%_) - (let ((_g20912_ + (##cdr _%e90719105%_)))) + (if (gx#stx-pair/null? _%tl90739112%_) + (let ((_g20749_ (gx#syntax-split-splice - _%tl91629201%_ + _%tl90739112%_ '0))) (begin - (let ((_g20913_ + (let ((_g20750_ (let () (declare (not safe)) - (if (##values? _g20912_) + (if (##values? _g20749_) (##values-length - _g20912_) + _g20749_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20913_ 2))) + (##fx= _g20750_ 2))) (error "Context expects 2 values" - _g20913_))) - (let ((_%target91639204%_ + _g20750_))) + (let ((_%target90749115%_ (let () (declare (not safe)) - (##values-ref _g20912_ 0))) - (_%tl91659207%_ + (##values-ref _g20749_ 0))) + (_%tl90769118%_ (let () (declare (not safe)) - (##values-ref _g20912_ 1)))) - (if (gx#stx-null? _%tl91659207%_) - (letrec ((_%loop91669210%_ - (lambda (_%hd91649214%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clauses91709217%_) - (if (gx#stx-pair? _%hd91649214%_) - (let ((_%e91679220%_ (gx#syntax-e _%hd91649214%_))) - (let ((_%lp-hd91689224%_ + (##values-ref _g20749_ 1)))) + (if (gx#stx-null? _%tl90769118%_) + (letrec ((_%loop90779121%_ + (lambda (_%hd90759125%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%clauses90819128%_) + (if (gx#stx-pair? _%hd90759125%_) + (let ((_%e90789130%_ (gx#syntax-e _%hd90759125%_))) + (let ((_%lp-hd90799134%_ (let () (declare (not safe)) - (##car _%e91679220%_))) - (_%lp-tl91699227%_ + (##car _%e90789130%_))) + (_%lp-tl90809137%_ (let () (declare (not safe)) - (##cdr _%e91679220%_)))) - (_%loop91669210%_ - _%lp-tl91699227%_ - (cons _%lp-hd91689224%_ _%clauses91709217%_)))) - (let ((_%clauses91719230%_ - (reverse _%clauses91709217%_))) - ((lambda (_%L9234%_ _%L9236%_) - (if (gx#identifier? _%L9236%_) + (##cdr _%e90789130%_)))) + (_%loop90779121%_ + _%lp-tl90809137%_ + (cons _%lp-hd90799134%_ _%clauses90819128%_)))) + (let ((_%clauses90829140%_ + (reverse _%clauses90819128%_))) + ((lambda (_%g90669143%_ _%g90679145%_) + (if (gx#identifier? _%g90679145%_) (cons (gx#datum->syntax '#f 'define-values) - (cons (cons _%L9236%_ '()) + (cons (cons _%g90679145%_ '()) (cons (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g92539256%_ + (foldr (lambda (_%g91629165%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g92549259%_) - (cons _%g92539256%_ _%g92549259%_)) + _%g91639168%_) + (cons _%g91629165%_ _%g91639168%_)) '() - _%L9234%_)) + _%g90669143%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (_%g91539177%_ _%g91549181%_))) - _%clauses91719230%_ - _%hd91619198%_)))))) + (_%g90649088%_ _%g90659092%_))) + _%clauses90829140%_ + _%hd90729109%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop91669210%_ - _%target91639204%_ + (_%loop90779121%_ + _%target90749115%_ '())) - (_%g91539177%_ - _%g91549181%_))))) - (_%g91539177%_ _%g91549181%_)))) - (_%g91539177%_ _%g91549181%_)))) - (_%g91539177%_ _%g91549181%_))))) - (_%g91529262%_ _%$stx9149%_)))) + (_%g90649088%_ + _%g90659092%_))))) + (_%g90649088%_ _%g90659092%_)))) + (_%g90649088%_ _%g90659092%_)))) + (_%g90649088%_ _%g90659092%_))))) + (_%g90639171%_ _%$stx9060%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#defvalues| - (lambda (_%$stx9267%_) - (let* ((_%g92719289%_ - (lambda (_%g92729285%_) + (lambda (_%$stx9176%_) + (let* ((_%g91809198%_ + (lambda (_%g91819194%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g92729285%_))) - (_%g92709344%_ - (lambda (_%g92729293%_) - (if (gx#stx-pair? _%g92729293%_) - (let ((_%e92759296%_ (gx#syntax-e _%g92729293%_))) - (let ((_%hd92769300%_ + _%g91819194%_))) + (_%g91799253%_ + (lambda (_%g91819202%_) + (if (gx#stx-pair? _%g91819202%_) + (let ((_%e91849205%_ (gx#syntax-e _%g91819202%_))) + (let ((_%hd91859209%_ (let () (declare (not safe)) - (##car _%e92759296%_))) - (_%tl92779303%_ + (##car _%e91849205%_))) + (_%tl91869212%_ (let () (declare (not safe)) - (##cdr _%e92759296%_)))) - (if (gx#stx-pair? _%tl92779303%_) - (let ((_%e92789306%_ - (gx#syntax-e _%tl92779303%_))) - (let ((_%hd92799310%_ + (##cdr _%e91849205%_)))) + (if (gx#stx-pair? _%tl91869212%_) + (let ((_%e91879215%_ + (gx#syntax-e _%tl91869212%_))) + (let ((_%hd91889219%_ (let () (declare (not safe)) - (##car _%e92789306%_))) - (_%tl92809313%_ + (##car _%e91879215%_))) + (_%tl91899222%_ (let () (declare (not safe)) - (##cdr _%e92789306%_)))) - (if (gx#stx-pair? _%tl92809313%_) - (let ((_%e92819316%_ - (gx#syntax-e _%tl92809313%_))) - (let ((_%hd92829320%_ + (##cdr _%e91879215%_)))) + (if (gx#stx-pair? _%tl91899222%_) + (let ((_%e91909225%_ + (gx#syntax-e _%tl91899222%_))) + (let ((_%hd91919229%_ (let () (declare (not safe)) - (##car _%e92819316%_))) - (_%tl92839323%_ + (##car _%e91909225%_))) + (_%tl91929232%_ (let () (declare (not safe)) - (##cdr _%e92819316%_)))) - (if (gx#stx-null? _%tl92839323%_) - ((lambda (_%L9326%_ _%L9328%_) + (##cdr _%e91909225%_)))) + (if (gx#stx-null? _%tl91929232%_) + ((lambda (_%g91829235%_ + _%g91839237%_) (if (gx#identifier-list? - _%L9328%_) + _%g91839237%_) (cons (gx#datum->syntax '#f 'define-values) - (cons _%L9328%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L9326%_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g92719289%_ - _%g92729293%_))) - _%hd92829320%_ - _%hd92799310%_) - (_%g92719289%_ _%g92729293%_)))) - (_%g92719289%_ _%g92729293%_)))) - (_%g92719289%_ _%g92729293%_)))) - (_%g92719289%_ _%g92729293%_))))) - (_%g92709344%_ _%$stx9267%_)))) + (cons _%g91839237%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%g91829235%_ '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g91809198%_ + _%g91819202%_))) + _%hd91919229%_ + _%hd91889219%_) + (_%g91809198%_ _%g91819202%_)))) + (_%g91809198%_ _%g91819202%_)))) + (_%g91809198%_ _%g91819202%_)))) + (_%g91809198%_ _%g91819202%_))))) + (_%g91799253%_ _%$stx9176%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#case| - (lambda (_%$stx9348%_) - (let* ((_%g93529376%_ - (lambda (_%g93539372%_) + (lambda (_%$stx9257%_) + (let* ((_%g92619285%_ + (lambda (_%g92629281%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g93539372%_))) - (_%g93519461%_ - (lambda (_%g93539380%_) - (if (gx#stx-pair? _%g93539380%_) - (let ((_%e93569383%_ (gx#syntax-e _%g93539380%_))) - (let ((_%hd93579387%_ + _%g92629281%_))) + (_%g92609368%_ + (lambda (_%g92629289%_) + (if (gx#stx-pair? _%g92629289%_) + (let ((_%e92659292%_ (gx#syntax-e _%g92629289%_))) + (let ((_%hd92669296%_ (let () (declare (not safe)) - (##car _%e93569383%_))) - (_%tl93589390%_ + (##car _%e92659292%_))) + (_%tl92679299%_ (let () (declare (not safe)) - (##cdr _%e93569383%_)))) - (if (gx#stx-pair? _%tl93589390%_) - (let ((_%e93599393%_ - (gx#syntax-e _%tl93589390%_))) - (let ((_%hd93609397%_ + (##cdr _%e92659292%_)))) + (if (gx#stx-pair? _%tl92679299%_) + (let ((_%e92689302%_ + (gx#syntax-e _%tl92679299%_))) + (let ((_%hd92699306%_ (let () (declare (not safe)) - (##car _%e93599393%_))) - (_%tl93619400%_ + (##car _%e92689302%_))) + (_%tl92709309%_ (let () (declare (not safe)) - (##cdr _%e93599393%_)))) - (if (gx#stx-pair/null? _%tl93619400%_) - (let ((_g20914_ + (##cdr _%e92689302%_)))) + (if (gx#stx-pair/null? _%tl92709309%_) + (let ((_g20751_ (gx#syntax-split-splice - _%tl93619400%_ + _%tl92709309%_ '0))) (begin - (let ((_g20915_ + (let ((_g20752_ (let () (declare (not safe)) - (if (##values? _g20914_) + (if (##values? _g20751_) (##values-length - _g20914_) + _g20751_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20915_ 2))) + (##fx= _g20752_ 2))) (error "Context expects 2 values" - _g20915_))) - (let ((_%target93629403%_ + _g20752_))) + (let ((_%target92719312%_ (let () (declare (not safe)) - (##values-ref _g20914_ 0))) - (_%tl93649406%_ + (##values-ref _g20751_ 0))) + (_%tl92739315%_ (let () (declare (not safe)) - (##values-ref _g20914_ 1)))) - (if (gx#stx-null? _%tl93649406%_) - (letrec ((_%loop93659409%_ - (lambda (_%hd93639413%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause93699416%_) - (if (gx#stx-pair? _%hd93639413%_) - (let ((_%e93669419%_ (gx#syntax-e _%hd93639413%_))) - (let ((_%lp-hd93679423%_ + (##values-ref _g20751_ 1)))) + (if (gx#stx-null? _%tl92739315%_) + (letrec ((_%loop92749318%_ + (lambda (_%hd92729322%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%clause92789325%_) + (if (gx#stx-pair? _%hd92729322%_) + (let ((_%e92759327%_ (gx#syntax-e _%hd92729322%_))) + (let ((_%lp-hd92769331%_ (let () (declare (not safe)) - (##car _%e93669419%_))) - (_%lp-tl93689426%_ + (##car _%e92759327%_))) + (_%lp-tl92779334%_ (let () (declare (not safe)) - (##cdr _%e93669419%_)))) - (_%loop93659409%_ - _%lp-tl93689426%_ - (cons _%lp-hd93679423%_ _%clause93699416%_)))) - (let ((_%clause93709429%_ - (reverse _%clause93699416%_))) - ((lambda (_%L9433%_ _%L9435%_) + (##cdr _%e92759327%_)))) + (_%loop92749318%_ + _%lp-tl92779334%_ + (cons _%lp-hd92769331%_ _%clause92789325%_)))) + (let ((_%clause92799337%_ + (reverse _%clause92789325%_))) + ((lambda (_%g92639340%_ _%g92649342%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) - (cons _%L9435%_ '())) + (cons _%g92649342%_ '())) (cons (cons (gx#datum->syntax '#f '~case) (cons (gx#datum->syntax '#f '$e) - (foldr (lambda (_%g94529455%_ + (foldr (lambda (_%g93599362%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g94539458%_) - (cons _%g94529455%_ _%g94539458%_)) + _%g93609365%_) + (cons _%g93599362%_ _%g93609365%_)) '() - _%L9433%_))) + _%g92639340%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%clause93709429%_ - _%hd93609397%_)))))) + _%clause92799337%_ + _%hd92699306%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop93659409%_ - _%target93629403%_ + (_%loop92749318%_ + _%target92719312%_ '())) - (_%g93529376%_ - _%g93539380%_))))) - (_%g93529376%_ _%g93539380%_)))) - (_%g93529376%_ _%g93539380%_)))) - (_%g93529376%_ _%g93539380%_))))) - (_%g93519461%_ _%$stx9348%_)))) + (_%g92619285%_ + _%g92629289%_))))) + (_%g92619285%_ _%g92629289%_)))) + (_%g92619285%_ _%g92629289%_)))) + (_%g92619285%_ _%g92629289%_))))) + (_%g92609368%_ _%$stx9257%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#~case| - (lambda (_%stx9466%_) - (letrec ((_%parse-clauses9469%_ - (lambda (_%e11944%_ _%clauses11946%_) - (let _%lp11948%_ ((_%rest11951%_ _%clauses11946%_) - (_%datums11953%_ '()) - (_%dispatch11954%_ '()) - (_%default11955%_ '#f)) - (let* ((_%__stx1954019541%_ _%rest11951%_) - (_%g1195811970%_ + (lambda (_%stx9373%_) + (letrec ((_%parse-clauses9376%_ + (lambda (_%e11833%_ _%clauses11835%_) + (let _%lp11837%_ ((_%rest11840%_ _%clauses11835%_) + (_%datums11842%_ '()) + (_%dispatch11843%_ '()) + (_%default11844%_ '#f)) + (let* ((_%__stx1937719378%_ _%rest11840%_) + (_%g1184711859%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1954019541%_)))) - (let ((_%__kont1954319544%_ - (lambda (_%L12002%_ _%L12004%_) - (let* ((_%__stx1944419445%_ _%L12004%_) - (_%g1202212095%_ + _%__stx1937719378%_)))) + (let ((_%__kont1938019381%_ + (lambda (_%g1184911891%_ _%g1185011893%_) + (let* ((_%__stx1928119282%_ _%g1185011893%_) + (_%g1191111984%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1944419445%_)))) - (let ((_%__kont1944719448%_ - (lambda (_%L12460%_) - (if (gx#stx-null? _%L12002%_) - (let* ((_%g1247512483%_ - (lambda (_%g1247612479%_) + _%__stx1928119282%_)))) + (let ((_%__kont1928419285%_ + (lambda (_%g1191312341%_) + (if (gx#stx-null? _%g1184911891%_) + (let* ((_%g1235612364%_ + (lambda (_%g1235712360%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1247612479%_))) - (_%g1247412502%_ - (lambda (_%g1247612487%_) - ((lambda (_%L12490%_) - (_%lp11948%_ + _%g1235712360%_))) + (_%g1235512383%_ + (lambda (_%g1235712368%_) + ((lambda (_%g1235812371%_) + (_%lp11837%_ '() - _%datums11953%_ - _%dispatch11954%_ - (cons _%L12460%_ + _%datums11842%_ + _%dispatch11843%_ + (cons _%g1191312341%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L12490%_ '())))) - _%g1247612487%_)))) + (cons _%g1235812371%_ '())))) + _%g1235712368%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1247412502%_ _%e11944%_)) + (_%g1235512383%_ _%e11833%_)) (gx#raise-syntax-error '#f '"Misplaced else clause" - _%stx9466%_ - _%L12004%_)))) - (_%__kont1944919450%_ - (lambda (_%L12400%_) - (if (gx#stx-null? _%L12002%_) - (_%lp11948%_ + _%stx9373%_ + _%g1185011893%_)))) + (_%__kont1928619287%_ + (lambda (_%g1192312281%_) + (if (gx#stx-null? _%g1184911891%_) + (_%lp11837%_ '() - _%datums11953%_ - _%dispatch11954%_ + _%datums11842%_ + _%dispatch11843%_ (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_%g1241412417%_ + (foldr (lambda (_%g1229512298%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1241512420%_) - (cons _%g1241412417%_ _%g1241512420%_)) + _%g1229612301%_) + (cons _%g1229512298%_ _%g1229612301%_)) '() - _%L12400%_))) + _%g1192312281%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"Misplaced else clause" - _%stx9466%_ - _%L12004%_)))) - (_%__kont1945319454%_ - (lambda (_%L12285%_ _%L12287%_) - (if (null? (foldr (lambda (_%g1230512308%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1230612311%_) - (cons _%g1230512308%_ _%g1230612311%_)) + _%stx9373%_ + _%g1185011893%_)))) + (_%__kont1929019291%_ + (lambda (_%g1193612168%_ + _%g1193712170%_) + (if (null? (foldr (lambda (_%g1218812191%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1218912194%_) + (cons _%g1218812191%_ _%g1218912194%_)) '() - _%L12287%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp11948%_ - _%L12002%_ - _%datums11953%_ - _%dispatch11954%_ - _%default11955%_) - (let* ((_%g1231412322%_ - (lambda (_%g1231512318%_) + _%g1193712170%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp11837%_ + _%g1184911891%_ + _%datums11842%_ + _%dispatch11843%_ + _%default11844%_) + (let* ((_%g1219712205%_ + (lambda (_%g1219812201%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1231512318%_))) - (_%g1231312349%_ - (lambda (_%g1231512326%_) - ((lambda (_%L12329%_) - (_%lp11948%_ - _%L12002%_ + _%g1219812201%_))) + (_%g1219612232%_ + (lambda (_%g1219812209%_) + ((lambda (_%g1219912212%_) + (_%lp11837%_ + _%g1184911891%_ (cons (map gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g1234012343%_ - _%g1234112346%_) - (cons _%g1234012343%_ - _%g1234112346%_)) + (foldr (lambda (_%g1222312226%_ + _%g1222412229%_) + (cons _%g1222312226%_ + _%g1222412229%_)) '() - _%L12287%_)) - _%datums11953%_) - (cons (cons _%L12285%_ (cons _%L12329%_ '())) - _%dispatch11954%_) - _%default11955%_)) - _%g1231512326%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1231312349%_ - _%e11944%_))))) - (_%__kont1945719458%_ - (lambda (_%L12172%_ _%L12174%_) - (if (null? (foldr (lambda (_%g1219312196%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1219412199%_) - (cons _%g1219312196%_ _%g1219412199%_)) + _%g1193712170%_)) + _%datums11842%_) + (cons (cons _%g1193612168%_ (cons _%g1219912212%_ '())) + _%dispatch11843%_) + _%default11844%_)) + _%g1219812209%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1219612232%_ + _%e11833%_))))) + (_%__kont1929419295%_ + (lambda (_%g1195612057%_ + _%g1195712059%_) + (if (null? (foldr (lambda (_%g1207812081%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1207912084%_) + (cons _%g1207812081%_ _%g1207912084%_)) '() - _%L12174%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp11948%_ - _%L12002%_ - _%datums11953%_ - _%dispatch11954%_ - _%default11955%_) - (_%lp11948%_ - _%L12002%_ + _%g1195712059%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp11837%_ + _%g1184911891%_ + _%datums11842%_ + _%dispatch11843%_ + _%default11844%_) + (_%lp11837%_ + _%g1184911891%_ (cons (map gx#stx-e - (foldr (lambda (_%g1220112204%_ + (foldr (lambda (_%g1208612089%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1220212207%_) - (cons _%g1220112204%_ _%g1220212207%_)) + _%g1208712092%_) + (cons _%g1208612089%_ _%g1208712092%_)) '() - _%L12174%_)) - _%datums11953%_) + _%g1195712059%_)) + _%datums11842%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_%g1220912212%_ + (foldr (lambda (_%g1209412097%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1221012215%_) - (cons _%g1220912212%_ _%g1221012215%_)) + _%g1209512100%_) + (cons _%g1209412097%_ _%g1209512100%_)) '() - _%L12172%_)) - _%dispatch11954%_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%default11955%_))))) - (let* ((_%__match1953719538%_ - (lambda (_%e1206912102%_ - _%hd1207012106%_ - _%tl1207112109%_ - _%__splice1945919460%_ - _%target1207212112%_ - _%tl1207412115%_) - (letrec ((_%loop1207512118%_ - (lambda (_%hd1207312122%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%datum1207912125%_) - (if (gx#stx-pair? _%hd1207312122%_) - (let ((_%e1207612128%_ (gx#syntax-e _%hd1207312122%_))) - (let ((_%lp-tl1207812135%_ + _%g1195612057%_)) + _%dispatch11843%_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%default11844%_))))) + (let* ((_%__match1937419375%_ + (lambda (_%e1195811991%_ + _%hd1195911995%_ + _%tl1196011998%_ + _%__splice1929619297%_ + _%target1196112001%_ + _%tl1196312004%_) + (letrec ((_%loop1196412007%_ + (lambda (_%hd1196212011%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%datum1196812014%_) + (if (gx#stx-pair? _%hd1196212011%_) + (let ((_%e1196512016%_ (gx#syntax-e _%hd1196212011%_))) + (let ((_%lp-tl1196712023%_ (let () (declare (not safe)) - (##cdr _%e1207612128%_))) - (_%lp-hd1207712132%_ + (##cdr _%e1196512016%_))) + (_%lp-hd1196612020%_ (let () (declare (not safe)) - (##car _%e1207612128%_)))) - (_%loop1207512118%_ - _%lp-tl1207812135%_ - (cons _%lp-hd1207712132%_ _%datum1207912125%_)))) - (let ((_%datum1208012138%_ - (reverse _%datum1207912125%_))) - (if (gx#stx-pair/null? _%tl1207112109%_) - (let ((_%__splice1946119462%_ + (##car _%e1196512016%_)))) + (_%loop1196412007%_ + _%lp-tl1196712023%_ + (cons _%lp-hd1196612020%_ _%datum1196812014%_)))) + (let ((_%datum1196912026%_ + (reverse _%datum1196812014%_))) + (if (gx#stx-pair/null? _%tl1196011998%_) + (let ((_%__splice1929819299%_ (gx#syntax-split-splice->vector - _%tl1207112109%_ + _%tl1196011998%_ '0))) - (let ((_%tl1208312145%_ + (let ((_%tl1197212032%_ (let () (declare (not safe)) (##vector-ref - _%__splice1946119462%_ + _%__splice1929819299%_ '1))) - (_%target1208112142%_ + (_%target1197012029%_ (let () (declare (not safe)) (##vector-ref - _%__splice1946119462%_ + _%__splice1929819299%_ '0)))) - (if (gx#stx-null? _%tl1208312145%_) - (letrec ((_%loop1208412148%_ - (lambda (_%hd1208212152%_ - _%body1208812155%_) + (if (gx#stx-null? _%tl1197212032%_) + (letrec ((_%loop1197312035%_ + (lambda (_%hd1197112039%_ + _%body1197712042%_) (if (gx#stx-pair? - _%hd1208212152%_) - (let ((_%e1208512158%_ + _%hd1197112039%_) + (let ((_%e1197412044%_ (gx#syntax-e - _%hd1208212152%_))) - (let ((_%lp-tl1208712165%_ + _%hd1197112039%_))) + (let ((_%lp-tl1197612051%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e1208512158%_))) - (_%lp-hd1208612162%_ - (let () (declare (not safe)) (##car _%e1208512158%_)))) - (_%loop1208412148%_ - _%lp-tl1208712165%_ - (cons _%lp-hd1208612162%_ _%body1208812155%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body1208912168%_ - (reverse _%body1208812155%_))) - (_%__kont1945719458%_ - _%body1208912168%_ - _%datum1208012138%_)))))) - (_%loop1208412148%_ - _%target1208112142%_ + (##cdr _%e1197412044%_))) + (_%lp-hd1197512048%_ + (let () (declare (not safe)) (##car _%e1197412044%_)))) + (_%loop1197312035%_ + _%lp-tl1197612051%_ + (cons _%lp-hd1197512048%_ _%body1197712042%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%body1197812054%_ + (reverse _%body1197712042%_))) + (_%__kont1929419295%_ + _%body1197812054%_ + _%datum1196912026%_)))))) + (_%loop1197312035%_ + _%target1197012029%_ '())) (let () (declare (not safe)) - (_%g1202212095%_))))) + (_%g1191111984%_))))) (let () (declare (not safe)) - (_%g1202212095%_)))))))) + (_%g1191111984%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1207512118%_ - _%target1207212112%_ + (_%loop1196412007%_ + _%target1196112001%_ '())))) - (_%__match1952319524%_ - (lambda (_%e1204912225%_ - _%hd1205012229%_ - _%tl1205112232%_ - _%__splice1945519456%_ - _%target1205212235%_ - _%tl1205412238%_) - (letrec ((_%loop1205512241%_ - (lambda (_%hd1205312245%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%datum1205912248%_) - (if (gx#stx-pair? _%hd1205312245%_) - (let ((_%e1205612251%_ (gx#syntax-e _%hd1205312245%_))) - (let ((_%lp-tl1205812258%_ + (_%__match1936019361%_ + (lambda (_%e1193812110%_ + _%hd1193912114%_ + _%tl1194012117%_ + _%__splice1929219293%_ + _%target1194112120%_ + _%tl1194312123%_) + (letrec ((_%loop1194412126%_ + (lambda (_%hd1194212130%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%datum1194812133%_) + (if (gx#stx-pair? _%hd1194212130%_) + (let ((_%e1194512135%_ (gx#syntax-e _%hd1194212130%_))) + (let ((_%lp-tl1194712142%_ (let () (declare (not safe)) - (##cdr _%e1205612251%_))) - (_%lp-hd1205712255%_ + (##cdr _%e1194512135%_))) + (_%lp-hd1194612139%_ (let () (declare (not safe)) - (##car _%e1205612251%_)))) - (_%loop1205512241%_ - _%lp-tl1205812258%_ - (cons _%lp-hd1205712255%_ _%datum1205912248%_)))) - (let ((_%datum1206012261%_ - (reverse _%datum1205912248%_))) - (if (gx#stx-pair? _%tl1205112232%_) - (let ((_%e1206112265%_ - (gx#syntax-e _%tl1205112232%_))) - (let ((_%tl1206312272%_ + (##car _%e1194512135%_)))) + (_%loop1194412126%_ + _%lp-tl1194712142%_ + (cons _%lp-hd1194612139%_ _%datum1194812133%_)))) + (let ((_%datum1194912145%_ + (reverse _%datum1194812133%_))) + (if (gx#stx-pair? _%tl1194012117%_) + (let ((_%e1195012148%_ + (gx#syntax-e _%tl1194012117%_))) + (let ((_%tl1195212155%_ (let () (declare (not safe)) - (##cdr _%e1206112265%_))) - (_%hd1206212269%_ + (##cdr _%e1195012148%_))) + (_%hd1195112152%_ (let () (declare (not safe)) - (##car _%e1206112265%_)))) - (if (gx#identifier? _%hd1206212269%_) + (##car _%e1195012148%_)))) + (if (gx#identifier? _%hd1195112152%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20916_| - _%hd1206212269%_) - (if (gx#stx-pair? _%tl1206312272%_) - (let ((_%e1206412275%_ + |gerbil/core/sugar~Sugar-2[1]#_g20753_| + _%hd1195112152%_) + (if (gx#stx-pair? _%tl1195212155%_) + (let ((_%e1195312158%_ (gx#syntax-e - _%tl1206312272%_))) - (let ((_%tl1206612282%_ + _%tl1195212155%_))) + (let ((_%tl1195512165%_ (let () (declare (not safe)) - (##cdr _%e1206412275%_))) - (_%hd1206512279%_ + (##cdr _%e1195312158%_))) + (_%hd1195412162%_ (let () (declare (not safe)) - (##car _%e1206412275%_)))) + (##car _%e1195312158%_)))) (if (gx#stx-null? - _%tl1206612282%_) - (_%__kont1945319454%_ - _%hd1206512279%_ - _%datum1206012261%_) - (_%__match1953719538%_ - _%e1204912225%_ - _%hd1205012229%_ - _%tl1205112232%_ - _%__splice1945519456%_ - _%target1205212235%_ - _%tl1205412238%_)))) - (_%__match1953719538%_ - _%e1204912225%_ - _%hd1205012229%_ - _%tl1205112232%_ - _%__splice1945519456%_ - _%target1205212235%_ - _%tl1205412238%_)) - (_%__match1953719538%_ - _%e1204912225%_ - _%hd1205012229%_ - _%tl1205112232%_ - _%__splice1945519456%_ - _%target1205212235%_ - _%tl1205412238%_)) - (_%__match1953719538%_ - _%e1204912225%_ - _%hd1205012229%_ - _%tl1205112232%_ - _%__splice1945519456%_ - _%target1205212235%_ - _%tl1205412238%_)))) - (_%__match1953719538%_ - _%e1204912225%_ - _%hd1205012229%_ - _%tl1205112232%_ - _%__splice1945519456%_ - _%target1205212235%_ - _%tl1205412238%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1205512241%_ - _%target1205212235%_ + _%tl1195512165%_) + (_%__kont1929019291%_ + _%hd1195412162%_ + _%datum1194912145%_) + (_%__match1937419375%_ + _%e1193812110%_ + _%hd1193912114%_ + _%tl1194012117%_ + _%__splice1929219293%_ + _%target1194112120%_ + _%tl1194312123%_)))) + (_%__match1937419375%_ + _%e1193812110%_ + _%hd1193912114%_ + _%tl1194012117%_ + _%__splice1929219293%_ + _%target1194112120%_ + _%tl1194312123%_)) + (_%__match1937419375%_ + _%e1193812110%_ + _%hd1193912114%_ + _%tl1194012117%_ + _%__splice1929219293%_ + _%target1194112120%_ + _%tl1194312123%_)) + (_%__match1937419375%_ + _%e1193812110%_ + _%hd1193912114%_ + _%tl1194012117%_ + _%__splice1929219293%_ + _%target1194112120%_ + _%tl1194312123%_)))) + (_%__match1937419375%_ + _%e1193812110%_ + _%hd1193912114%_ + _%tl1194012117%_ + _%__splice1929219293%_ + _%target1194112120%_ + _%tl1194312123%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1194412126%_ + _%target1194112120%_ '())))) - (_%__match1950919510%_ - (lambda (_%e1203512360%_ - _%hd1203612364%_ - _%tl1203712367%_ - _%__splice1945119452%_ - _%target1203812370%_ - _%tl1204012373%_) - (letrec ((_%loop1204112376%_ - (lambda (_%hd1203912380%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body1204512383%_) - (if (gx#stx-pair? _%hd1203912380%_) - (let ((_%e1204212386%_ (gx#syntax-e _%hd1203912380%_))) - (let ((_%lp-tl1204412393%_ + (_%__match1934619347%_ + (lambda (_%e1192412243%_ + _%hd1192512247%_ + _%tl1192612250%_ + _%__splice1928819289%_ + _%target1192712253%_ + _%tl1192912256%_) + (letrec ((_%loop1193012259%_ + (lambda (_%hd1192812263%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body1193412266%_) + (if (gx#stx-pair? _%hd1192812263%_) + (let ((_%e1193112268%_ (gx#syntax-e _%hd1192812263%_))) + (let ((_%lp-tl1193312275%_ (let () (declare (not safe)) - (##cdr _%e1204212386%_))) - (_%lp-hd1204312390%_ + (##cdr _%e1193112268%_))) + (_%lp-hd1193212272%_ (let () (declare (not safe)) - (##car _%e1204212386%_)))) - (_%loop1204112376%_ - _%lp-tl1204412393%_ - (cons _%lp-hd1204312390%_ _%body1204512383%_)))) - (let ((_%body1204612396%_ (reverse _%body1204512383%_))) - (_%__kont1944919450%_ _%body1204612396%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1204112376%_ - _%target1203812370%_ + (##car _%e1193112268%_)))) + (_%loop1193012259%_ + _%lp-tl1193312275%_ + (cons _%lp-hd1193212272%_ _%body1193412266%_)))) + (let ((_%body1193512278%_ (reverse _%body1193412266%_))) + (_%__kont1928619287%_ _%body1193512278%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1193012259%_ + _%target1192712253%_ '()))))) - (if (gx#stx-pair? _%__stx1944419445%_) - (let ((_%e1202512430%_ + (if (gx#stx-pair? _%__stx1928119282%_) + (let ((_%e1191412311%_ (gx#syntax-e - _%__stx1944419445%_))) - (let ((_%tl1202712437%_ + _%__stx1928119282%_))) + (let ((_%tl1191612318%_ (let () (declare (not safe)) - (##cdr _%e1202512430%_))) - (_%hd1202612434%_ + (##cdr _%e1191412311%_))) + (_%hd1191512315%_ (let () (declare (not safe)) - (##car _%e1202512430%_)))) + (##car _%e1191412311%_)))) (if (gx#identifier? - _%hd1202612434%_) + _%hd1191512315%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20917_| - _%hd1202612434%_) + |gerbil/core/sugar~Sugar-2[1]#_g20754_| + _%hd1191512315%_) (if (gx#stx-pair? - _%tl1202712437%_) - (let ((_%e1202812440%_ + _%tl1191612318%_) + (let ((_%e1191712321%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1202712437%_))) - (let ((_%tl1203012447%_ + (gx#syntax-e _%tl1191612318%_))) + (let ((_%tl1191912328%_ (let () (declare (not safe)) - (##cdr _%e1202812440%_))) - (_%hd1202912444%_ + (##cdr _%e1191712321%_))) + (_%hd1191812325%_ (let () (declare (not safe)) - (##car _%e1202812440%_)))) - (if (gx#identifier? _%hd1202912444%_) + (##car _%e1191712321%_)))) + (if (gx#identifier? _%hd1191812325%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20918_| - _%hd1202912444%_) - (if (gx#stx-pair? _%tl1203012447%_) - (let ((_%e1203112450%_ - (gx#syntax-e _%tl1203012447%_))) - (let ((_%tl1203312457%_ + |gerbil/core/sugar~Sugar-2[1]#_g20755_| + _%hd1191812325%_) + (if (gx#stx-pair? _%tl1191912328%_) + (let ((_%e1192012331%_ + (gx#syntax-e _%tl1191912328%_))) + (let ((_%tl1192212338%_ (let () (declare (not safe)) - (##cdr _%e1203112450%_))) - (_%hd1203212454%_ + (##cdr _%e1192012331%_))) + (_%hd1192112335%_ (let () (declare (not safe)) - (##car _%e1203112450%_)))) - (if (gx#stx-null? _%tl1203312457%_) - (_%__kont1944719448%_ - _%hd1203212454%_) + (##car _%e1192012331%_)))) + (if (gx#stx-null? _%tl1192212338%_) + (_%__kont1928419285%_ + _%hd1192112335%_) (if (gx#stx-pair/null? - _%tl1202712437%_) - (let ((_%__splice1945119452%_ + _%tl1191612318%_) + (let ((_%__splice1928819289%_ (gx#syntax-split-splice->vector - _%tl1202712437%_ + _%tl1191612318%_ '0))) - (let ((_%tl1204012373%_ + (let ((_%tl1192912256%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945119452%_ + _%__splice1928819289%_ '1))) - (_%target1203812370%_ + (_%target1192712253%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945119452%_ + _%__splice1928819289%_ '0)))) (if (gx#stx-null? - _%tl1204012373%_) - (_%__match1950919510%_ - _%e1202512430%_ - _%hd1202612434%_ - _%tl1202712437%_ - _%__splice1945119452%_ - _%target1203812370%_ - _%tl1204012373%_) + _%tl1192912256%_) + (_%__match1934619347%_ + _%e1191412311%_ + _%hd1191512315%_ + _%tl1191612318%_ + _%__splice1928819289%_ + _%target1192712253%_ + _%tl1192912256%_) (if (gx#stx-pair/null? - _%hd1202612434%_) - (let ((_%__splice1945519456%_ + _%hd1191512315%_) + (let ((_%__splice1929219293%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice->vector - _%hd1202612434%_ + _%hd1191512315%_ '0))) - (let ((_%tl1205412238%_ + (let ((_%tl1194312123%_ (let () (declare (not safe)) - (##vector-ref _%__splice1945519456%_ '1))) - (_%target1205212235%_ + (##vector-ref _%__splice1929219293%_ '1))) + (_%target1194112120%_ (let () (declare (not safe)) - (##vector-ref _%__splice1945519456%_ '0)))) - (if (gx#stx-null? _%tl1205412238%_) - (_%__match1952319524%_ - _%e1202512430%_ - _%hd1202612434%_ - _%tl1202712437%_ - _%__splice1945519456%_ - _%target1205212235%_ - _%tl1205412238%_) - (let () (declare (not safe)) (_%g1202212095%_))))) - (let () (declare (not safe)) (_%g1202212095%_)))))) + (##vector-ref _%__splice1929219293%_ '0)))) + (if (gx#stx-null? _%tl1194312123%_) + (_%__match1936019361%_ + _%e1191412311%_ + _%hd1191512315%_ + _%tl1191612318%_ + _%__splice1929219293%_ + _%target1194112120%_ + _%tl1194312123%_) + (let () (declare (not safe)) (_%g1191111984%_))))) + (let () (declare (not safe)) (_%g1191111984%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd1202612434%_) - (let ((_%__splice1945519456%_ + _%hd1191512315%_) + (let ((_%__splice1929219293%_ (gx#syntax-split-splice->vector - _%hd1202612434%_ + _%hd1191512315%_ '0))) - (let ((_%tl1205412238%_ + (let ((_%tl1194312123%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945519456%_ + _%__splice1929219293%_ '1))) - (_%target1205212235%_ + (_%target1194112120%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945519456%_ + _%__splice1929219293%_ '0)))) (if (gx#stx-null? - _%tl1205412238%_) - (_%__match1952319524%_ - _%e1202512430%_ - _%hd1202612434%_ - _%tl1202712437%_ - _%__splice1945519456%_ - _%target1205212235%_ - _%tl1205412238%_) + _%tl1194312123%_) + (_%__match1936019361%_ + _%e1191412311%_ + _%hd1191512315%_ + _%tl1191612318%_ + _%__splice1929219293%_ + _%target1194112120%_ + _%tl1194312123%_) (let () (declare (not safe)) - (_%g1202212095%_))))) + (_%g1191111984%_))))) (let () (declare (not safe)) - (_%g1202212095%_))))))) - (if (gx#stx-pair/null? _%tl1202712437%_) - (let ((_%__splice1945119452%_ + (_%g1191111984%_))))))) + (if (gx#stx-pair/null? _%tl1191612318%_) + (let ((_%__splice1928819289%_ (gx#syntax-split-splice->vector - _%tl1202712437%_ + _%tl1191612318%_ '0))) - (let ((_%tl1204012373%_ + (let ((_%tl1192912256%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945119452%_ + _%__splice1928819289%_ '1))) - (_%target1203812370%_ + (_%target1192712253%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945119452%_ + _%__splice1928819289%_ '0)))) - (if (gx#stx-null? _%tl1204012373%_) - (_%__match1950919510%_ - _%e1202512430%_ - _%hd1202612434%_ - _%tl1202712437%_ - _%__splice1945119452%_ - _%target1203812370%_ - _%tl1204012373%_) + (if (gx#stx-null? _%tl1192912256%_) + (_%__match1934619347%_ + _%e1191412311%_ + _%hd1191512315%_ + _%tl1191612318%_ + _%__splice1928819289%_ + _%target1192712253%_ + _%tl1192912256%_) (if (gx#stx-pair/null? - _%hd1202612434%_) - (let ((_%__splice1945519456%_ + _%hd1191512315%_) + (let ((_%__splice1929219293%_ (gx#syntax-split-splice->vector - _%hd1202612434%_ + _%hd1191512315%_ '0))) - (let ((_%tl1205412238%_ + (let ((_%tl1194312123%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945519456%_ + _%__splice1929219293%_ '1))) - (_%target1205212235%_ + (_%target1194112120%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945519456%_ + _%__splice1929219293%_ '0)))) (if (gx#stx-null? - _%tl1205412238%_) - (_%__match1952319524%_ - _%e1202512430%_ - _%hd1202612434%_ - _%tl1202712437%_ - _%__splice1945519456%_ - _%target1205212235%_ - _%tl1205412238%_) + _%tl1194312123%_) + (_%__match1936019361%_ + _%e1191412311%_ + _%hd1191512315%_ + _%tl1191612318%_ + _%__splice1929219293%_ + _%target1194112120%_ + _%tl1194312123%_) (let () (declare (not safe)) - (_%g1202212095%_))))) + (_%g1191111984%_))))) (let () (declare (not safe)) - (_%g1202212095%_)))))) - (if (gx#stx-pair/null? _%hd1202612434%_) - (let ((_%__splice1945519456%_ + (_%g1191111984%_)))))) + (if (gx#stx-pair/null? _%hd1191512315%_) + (let ((_%__splice1929219293%_ (gx#syntax-split-splice->vector - _%hd1202612434%_ + _%hd1191512315%_ '0))) - (let ((_%tl1205412238%_ + (let ((_%tl1194312123%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945519456%_ + _%__splice1929219293%_ '1))) - (_%target1205212235%_ + (_%target1194112120%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945519456%_ + _%__splice1929219293%_ '0)))) (if (gx#stx-null? - _%tl1205412238%_) - (_%__match1952319524%_ - _%e1202512430%_ - _%hd1202612434%_ - _%tl1202712437%_ - _%__splice1945519456%_ - _%target1205212235%_ - _%tl1205412238%_) + _%tl1194312123%_) + (_%__match1936019361%_ + _%e1191412311%_ + _%hd1191512315%_ + _%tl1191612318%_ + _%__splice1929219293%_ + _%target1194112120%_ + _%tl1194312123%_) (let () (declare (not safe)) - (_%g1202212095%_))))) + (_%g1191111984%_))))) (let () (declare (not safe)) - (_%g1202212095%_))))) - (if (gx#stx-pair/null? _%tl1202712437%_) - (let ((_%__splice1945119452%_ + (_%g1191111984%_))))) + (if (gx#stx-pair/null? _%tl1191612318%_) + (let ((_%__splice1928819289%_ (gx#syntax-split-splice->vector - _%tl1202712437%_ + _%tl1191612318%_ '0))) - (let ((_%tl1204012373%_ + (let ((_%tl1192912256%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945119452%_ + _%__splice1928819289%_ '1))) - (_%target1203812370%_ + (_%target1192712253%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945119452%_ + _%__splice1928819289%_ '0)))) - (if (gx#stx-null? _%tl1204012373%_) - (_%__match1950919510%_ - _%e1202512430%_ - _%hd1202612434%_ - _%tl1202712437%_ - _%__splice1945119452%_ - _%target1203812370%_ - _%tl1204012373%_) + (if (gx#stx-null? _%tl1192912256%_) + (_%__match1934619347%_ + _%e1191412311%_ + _%hd1191512315%_ + _%tl1191612318%_ + _%__splice1928819289%_ + _%target1192712253%_ + _%tl1192912256%_) (if (gx#stx-pair/null? - _%hd1202612434%_) - (let ((_%__splice1945519456%_ + _%hd1191512315%_) + (let ((_%__splice1929219293%_ (gx#syntax-split-splice->vector - _%hd1202612434%_ + _%hd1191512315%_ '0))) - (let ((_%tl1205412238%_ + (let ((_%tl1194312123%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945519456%_ + _%__splice1929219293%_ '1))) - (_%target1205212235%_ + (_%target1194112120%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945519456%_ + _%__splice1929219293%_ '0)))) (if (gx#stx-null? - _%tl1205412238%_) - (_%__match1952319524%_ - _%e1202512430%_ - _%hd1202612434%_ - _%tl1202712437%_ - _%__splice1945519456%_ - _%target1205212235%_ - _%tl1205412238%_) + _%tl1194312123%_) + (_%__match1936019361%_ + _%e1191412311%_ + _%hd1191512315%_ + _%tl1191612318%_ + _%__splice1929219293%_ + _%target1194112120%_ + _%tl1194312123%_) (let () (declare (not safe)) - (_%g1202212095%_))))) + (_%g1191111984%_))))) (let () (declare (not safe)) - (_%g1202212095%_)))))) - (if (gx#stx-pair/null? _%hd1202612434%_) - (let ((_%__splice1945519456%_ + (_%g1191111984%_)))))) + (if (gx#stx-pair/null? _%hd1191512315%_) + (let ((_%__splice1929219293%_ (gx#syntax-split-splice->vector - _%hd1202612434%_ + _%hd1191512315%_ '0))) - (let ((_%tl1205412238%_ + (let ((_%tl1194312123%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945519456%_ + _%__splice1929219293%_ '1))) - (_%target1205212235%_ + (_%target1194112120%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945519456%_ + _%__splice1929219293%_ '0)))) - (if (gx#stx-null? _%tl1205412238%_) - (_%__match1952319524%_ - _%e1202512430%_ - _%hd1202612434%_ - _%tl1202712437%_ - _%__splice1945519456%_ - _%target1205212235%_ - _%tl1205412238%_) + (if (gx#stx-null? _%tl1194312123%_) + (_%__match1936019361%_ + _%e1191412311%_ + _%hd1191512315%_ + _%tl1191612318%_ + _%__splice1929219293%_ + _%target1194112120%_ + _%tl1194312123%_) (let () (declare (not safe)) - (_%g1202212095%_))))) + (_%g1191111984%_))))) (let () (declare (not safe)) - (_%g1202212095%_))))) - (if (gx#stx-pair/null? _%tl1202712437%_) - (let ((_%__splice1945119452%_ + (_%g1191111984%_))))) + (if (gx#stx-pair/null? _%tl1191612318%_) + (let ((_%__splice1928819289%_ (gx#syntax-split-splice->vector - _%tl1202712437%_ + _%tl1191612318%_ '0))) - (let ((_%tl1204012373%_ + (let ((_%tl1192912256%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945119452%_ + _%__splice1928819289%_ '1))) - (_%target1203812370%_ + (_%target1192712253%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945119452%_ + _%__splice1928819289%_ '0)))) - (if (gx#stx-null? _%tl1204012373%_) - (_%__match1950919510%_ - _%e1202512430%_ - _%hd1202612434%_ - _%tl1202712437%_ - _%__splice1945119452%_ - _%target1203812370%_ - _%tl1204012373%_) - (if (gx#stx-pair/null? _%hd1202612434%_) - (let ((_%__splice1945519456%_ + (if (gx#stx-null? _%tl1192912256%_) + (_%__match1934619347%_ + _%e1191412311%_ + _%hd1191512315%_ + _%tl1191612318%_ + _%__splice1928819289%_ + _%target1192712253%_ + _%tl1192912256%_) + (if (gx#stx-pair/null? _%hd1191512315%_) + (let ((_%__splice1929219293%_ (gx#syntax-split-splice->vector - _%hd1202612434%_ + _%hd1191512315%_ '0))) - (let ((_%tl1205412238%_ + (let ((_%tl1194312123%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945519456%_ + _%__splice1929219293%_ '1))) - (_%target1205212235%_ + (_%target1194112120%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945519456%_ + _%__splice1929219293%_ '0)))) (if (gx#stx-null? - _%tl1205412238%_) - (_%__match1952319524%_ - _%e1202512430%_ - _%hd1202612434%_ - _%tl1202712437%_ - _%__splice1945519456%_ - _%target1205212235%_ - _%tl1205412238%_) + _%tl1194312123%_) + (_%__match1936019361%_ + _%e1191412311%_ + _%hd1191512315%_ + _%tl1191612318%_ + _%__splice1929219293%_ + _%target1194112120%_ + _%tl1194312123%_) (let () (declare (not safe)) - (_%g1202212095%_))))) + (_%g1191111984%_))))) (let () (declare (not safe)) - (_%g1202212095%_)))))) - (if (gx#stx-pair/null? _%hd1202612434%_) - (let ((_%__splice1945519456%_ + (_%g1191111984%_)))))) + (if (gx#stx-pair/null? _%hd1191512315%_) + (let ((_%__splice1929219293%_ (gx#syntax-split-splice->vector - _%hd1202612434%_ + _%hd1191512315%_ '0))) - (let ((_%tl1205412238%_ + (let ((_%tl1194312123%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945519456%_ + _%__splice1929219293%_ '1))) - (_%target1205212235%_ + (_%target1194112120%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945519456%_ + _%__splice1929219293%_ '0)))) - (if (gx#stx-null? _%tl1205412238%_) - (_%__match1952319524%_ - _%e1202512430%_ - _%hd1202612434%_ - _%tl1202712437%_ - _%__splice1945519456%_ - _%target1205212235%_ - _%tl1205412238%_) + (if (gx#stx-null? _%tl1194312123%_) + (_%__match1936019361%_ + _%e1191412311%_ + _%hd1191512315%_ + _%tl1191612318%_ + _%__splice1929219293%_ + _%target1194112120%_ + _%tl1194312123%_) (let () (declare (not safe)) - (_%g1202212095%_))))) + (_%g1191111984%_))))) (let () (declare (not safe)) - (_%g1202212095%_))))))) - (if (gx#stx-pair/null? _%tl1202712437%_) - (let ((_%__splice1945119452%_ + (_%g1191111984%_))))))) + (if (gx#stx-pair/null? _%tl1191612318%_) + (let ((_%__splice1928819289%_ (gx#syntax-split-splice->vector - _%tl1202712437%_ + _%tl1191612318%_ '0))) - (let ((_%tl1204012373%_ + (let ((_%tl1192912256%_ (let () (declare (not safe)) - (##vector-ref _%__splice1945119452%_ '1))) - (_%target1203812370%_ + (##vector-ref _%__splice1928819289%_ '1))) + (_%target1192712253%_ (let () (declare (not safe)) - (##vector-ref _%__splice1945119452%_ '0)))) - (if (gx#stx-null? _%tl1204012373%_) - (_%__match1950919510%_ - _%e1202512430%_ - _%hd1202612434%_ - _%tl1202712437%_ - _%__splice1945119452%_ - _%target1203812370%_ - _%tl1204012373%_) - (if (gx#stx-pair/null? _%hd1202612434%_) - (let ((_%__splice1945519456%_ + (##vector-ref _%__splice1928819289%_ '0)))) + (if (gx#stx-null? _%tl1192912256%_) + (_%__match1934619347%_ + _%e1191412311%_ + _%hd1191512315%_ + _%tl1191612318%_ + _%__splice1928819289%_ + _%target1192712253%_ + _%tl1192912256%_) + (if (gx#stx-pair/null? _%hd1191512315%_) + (let ((_%__splice1929219293%_ (gx#syntax-split-splice->vector - _%hd1202612434%_ + _%hd1191512315%_ '0))) - (let ((_%tl1205412238%_ + (let ((_%tl1194312123%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945519456%_ + _%__splice1929219293%_ '1))) - (_%target1205212235%_ + (_%target1194112120%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945519456%_ + _%__splice1929219293%_ '0)))) - (if (gx#stx-null? _%tl1205412238%_) - (_%__match1952319524%_ - _%e1202512430%_ - _%hd1202612434%_ - _%tl1202712437%_ - _%__splice1945519456%_ - _%target1205212235%_ - _%tl1205412238%_) + (if (gx#stx-null? _%tl1194312123%_) + (_%__match1936019361%_ + _%e1191412311%_ + _%hd1191512315%_ + _%tl1191612318%_ + _%__splice1929219293%_ + _%target1194112120%_ + _%tl1194312123%_) (let () (declare (not safe)) - (_%g1202212095%_))))) + (_%g1191111984%_))))) (let () (declare (not safe)) - (_%g1202212095%_)))))) - (if (gx#stx-pair/null? _%hd1202612434%_) - (let ((_%__splice1945519456%_ + (_%g1191111984%_)))))) + (if (gx#stx-pair/null? _%hd1191512315%_) + (let ((_%__splice1929219293%_ (gx#syntax-split-splice->vector - _%hd1202612434%_ + _%hd1191512315%_ '0))) - (let ((_%tl1205412238%_ + (let ((_%tl1194312123%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945519456%_ + _%__splice1929219293%_ '1))) - (_%target1205212235%_ + (_%target1194112120%_ (let () (declare (not safe)) (##vector-ref - _%__splice1945519456%_ + _%__splice1929219293%_ '0)))) - (if (gx#stx-null? _%tl1205412238%_) - (_%__match1952319524%_ - _%e1202512430%_ - _%hd1202612434%_ - _%tl1202712437%_ - _%__splice1945519456%_ - _%target1205212235%_ - _%tl1205412238%_) + (if (gx#stx-null? _%tl1194312123%_) + (_%__match1936019361%_ + _%e1191412311%_ + _%hd1191512315%_ + _%tl1191612318%_ + _%__splice1929219293%_ + _%target1194112120%_ + _%tl1194312123%_) (let () (declare (not safe)) - (_%g1202212095%_))))) - (let () (declare (not safe)) (_%g1202212095%_))))) - (if (gx#stx-pair/null? _%hd1202612434%_) - (let ((_%__splice1945519456%_ + (_%g1191111984%_))))) + (let () (declare (not safe)) (_%g1191111984%_))))) + (if (gx#stx-pair/null? _%hd1191512315%_) + (let ((_%__splice1929219293%_ (gx#syntax-split-splice->vector - _%hd1202612434%_ + _%hd1191512315%_ '0))) - (let ((_%tl1205412238%_ + (let ((_%tl1194312123%_ (let () (declare (not safe)) - (##vector-ref _%__splice1945519456%_ '1))) - (_%target1205212235%_ + (##vector-ref _%__splice1929219293%_ '1))) + (_%target1194112120%_ (let () (declare (not safe)) - (##vector-ref _%__splice1945519456%_ '0)))) - (if (gx#stx-null? _%tl1205412238%_) - (_%__match1952319524%_ - _%e1202512430%_ - _%hd1202612434%_ - _%tl1202712437%_ - _%__splice1945519456%_ - _%target1205212235%_ - _%tl1205412238%_) - (let () (declare (not safe)) (_%g1202212095%_))))) - (let () (declare (not safe)) (_%g1202212095%_)))) + (##vector-ref _%__splice1929219293%_ '0)))) + (if (gx#stx-null? _%tl1194312123%_) + (_%__match1936019361%_ + _%e1191412311%_ + _%hd1191512315%_ + _%tl1191612318%_ + _%__splice1929219293%_ + _%target1194112120%_ + _%tl1194312123%_) + (let () (declare (not safe)) (_%g1191111984%_))))) + (let () (declare (not safe)) (_%g1191111984%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd1202612434%_) - (let ((_%__splice1945519456%_ + _%hd1191512315%_) + (let ((_%__splice1929219293%_ (gx#syntax-split-splice->vector - _%hd1202612434%_ + _%hd1191512315%_ '0))) - (let ((_%tl1205412238%_ + (let ((_%tl1194312123%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice1945519456%_ '1))) - (_%target1205212235%_ + (##vector-ref _%__splice1929219293%_ '1))) + (_%target1194112120%_ (let () (declare (not safe)) - (##vector-ref _%__splice1945519456%_ '0)))) - (if (gx#stx-null? _%tl1205412238%_) - (_%__match1952319524%_ - _%e1202512430%_ - _%hd1202612434%_ - _%tl1202712437%_ - _%__splice1945519456%_ - _%target1205212235%_ - _%tl1205412238%_) - (let () (declare (not safe)) (_%g1202212095%_))))) - (let () (declare (not safe)) (_%g1202212095%_)))))) + (##vector-ref _%__splice1929219293%_ '0)))) + (if (gx#stx-null? _%tl1194312123%_) + (_%__match1936019361%_ + _%e1191412311%_ + _%hd1191512315%_ + _%tl1191612318%_ + _%__splice1929219293%_ + _%target1194112120%_ + _%tl1194312123%_) + (let () (declare (not safe)) (_%g1191111984%_))))) + (let () (declare (not safe)) (_%g1191111984%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g1202212095%_)))))))) - (_%__kont1954519546%_ + (_%g1191111984%_)))))))) + (_%__kont1938219383%_ (lambda () - (_%check-duplicate-datums9471%_ - _%datums11953%_) - (values (reverse _%datums11953%_) - (reverse _%dispatch11954%_) - (let ((_%$e11981%_ _%default11955%_)) - (if _%$e11981%_ - _%$e11981%_ + (_%check-duplicate-datums9378%_ + _%datums11842%_) + (values (reverse _%datums11842%_) + (reverse _%dispatch11843%_) + (let ((_%$e11870%_ _%default11844%_)) + (if _%$e11870%_ + _%$e11870%_ '#!void)))))) - (let ((_%g1195711985%_ + (let ((_%g1184611874%_ (lambda () - (if (gx#stx-null? _%__stx1954019541%_) - (_%__kont1954519546%_) + (if (gx#stx-null? _%__stx1937719378%_) + (_%__kont1938219383%_) (let () (declare (not safe)) - (_%g1195811970%_)))))) - (if (gx#stx-pair? _%__stx1954019541%_) - (let ((_%e1196211992%_ - (gx#syntax-e _%__stx1954019541%_))) - (let ((_%tl1196411999%_ + (_%g1184711859%_)))))) + (if (gx#stx-pair? _%__stx1937719378%_) + (let ((_%e1185111881%_ + (gx#syntax-e _%__stx1937719378%_))) + (let ((_%tl1185311888%_ (let () (declare (not safe)) - (##cdr _%e1196211992%_))) - (_%hd1196311996%_ + (##cdr _%e1185111881%_))) + (_%hd1185211885%_ (let () (declare (not safe)) - (##car _%e1196211992%_)))) - (_%__kont1954319544%_ - _%tl1196411999%_ - _%hd1196311996%_))) + (##car _%e1185111881%_)))) + (_%__kont1938019381%_ + _%tl1185311888%_ + _%hd1185211885%_))) (let () (declare (not safe)) - (_%g1195711985%_))))))))) - (_%check-duplicate-datums9471%_ - (lambda (_%datums11932%_) - (let ((_%ht11935%_ (make-hash-table))) + (_%g1184611874%_))))))))) + (_%check-duplicate-datums9378%_ + (lambda (_%datums11821%_) + (let ((_%ht11824%_ (make-hash-table))) (for-each - (lambda (_%lst11938%_) + (lambda (_%lst11827%_) (for-each - (lambda (_%datum11941%_) - (if (hash-get _%ht11935%_ _%datum11941%_) + (lambda (_%datum11830%_) + (if (hash-get _%ht11824%_ _%datum11830%_) (gx#raise-syntax-error '#f '"Duplicate datum" - _%stx9466%_ - _%datum11941%_) - (hash-put! _%ht11935%_ _%datum11941%_ '#t))) - _%lst11938%_)) - _%datums11932%_)))) - (_%count-datums9472%_ - (lambda (_%datums11925%_) - (foldl (lambda (_%lst11928%_ _%r11930%_) - (+ (length _%lst11928%_) _%r11930%_)) + _%stx9373%_ + _%datum11830%_) + (hash-put! _%ht11824%_ _%datum11830%_ '#t))) + _%lst11827%_)) + _%datums11821%_)))) + (_%count-datums9379%_ + (lambda (_%datums11814%_) + (foldl (lambda (_%lst11817%_ _%r11819%_) + (+ (length _%lst11817%_) _%r11819%_)) '0 - _%datums11925%_))) - (_%symbolic-datums?9473%_ - (lambda (_%datums11919%_) - (andmap (lambda (_%lst11922%_) - (andmap symbol? _%lst11922%_)) - _%datums11919%_))) - (_%char-datums?9474%_ - (lambda (_%datums11913%_) - (andmap (lambda (_%lst11916%_) (andmap char? _%lst11916%_)) - _%datums11913%_))) - (_%fixnum-datums?9475%_ - (lambda (_%datums11907%_) - (andmap (lambda (_%lst11910%_) - (andmap fixnum? _%lst11910%_)) - _%datums11907%_))) - (_%eq-datums?9476%_ - (lambda (_%datums11890%_) - (andmap (lambda (_%lst11893%_) - (andmap (lambda (_%x11896%_) - (let ((_%$e11899%_ - (symbol? _%x11896%_))) - (if _%$e11899%_ - _%$e11899%_ - (let ((_%$e11903%_ - (keyword? _%x11896%_))) - (if _%$e11903%_ - _%$e11903%_ + _%datums11814%_))) + (_%symbolic-datums?9380%_ + (lambda (_%datums11808%_) + (andmap (lambda (_%lst11811%_) + (andmap symbol? _%lst11811%_)) + _%datums11808%_))) + (_%char-datums?9381%_ + (lambda (_%datums11802%_) + (andmap (lambda (_%lst11805%_) (andmap char? _%lst11805%_)) + _%datums11802%_))) + (_%fixnum-datums?9382%_ + (lambda (_%datums11796%_) + (andmap (lambda (_%lst11799%_) + (andmap fixnum? _%lst11799%_)) + _%datums11796%_))) + (_%eq-datums?9383%_ + (lambda (_%datums11779%_) + (andmap (lambda (_%lst11782%_) + (andmap (lambda (_%x11785%_) + (let ((_%$e11788%_ + (symbol? _%x11785%_))) + (if _%$e11788%_ + _%$e11788%_ + (let ((_%$e11792%_ + (keyword? _%x11785%_))) + (if _%$e11792%_ + _%$e11792%_ (immediate? - _%x11896%_)))))) - _%lst11893%_)) - _%datums11890%_))) - (_%generate-simple-case9477%_ - (lambda (_%e11654%_ - _%datums11656%_ - _%dispatch11657%_ - _%default11658%_) - (let* ((_%g1166011668%_ - (lambda (_%g1166111664%_) + _%x11785%_)))))) + _%lst11782%_)) + _%datums11779%_))) + (_%generate-simple-case9384%_ + (lambda (_%e11545%_ + _%datums11547%_ + _%dispatch11548%_ + _%default11549%_) + (let* ((_%g1155111559%_ + (lambda (_%g1155211555%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1166111664%_))) - (_%g1165911886%_ - (lambda (_%g1166111672%_) - ((lambda (_%L11675%_) - (let _%recur11687%_ ((_%datums11690%_ - _%datums11656%_) - (_%dispatch11692%_ - _%dispatch11657%_)) - (let* ((_%__stx1955819559%_ _%datums11690%_) - (_%g1169511716%_ + _%g1155211555%_))) + (_%g1155011775%_ + (lambda (_%g1155211563%_) + ((lambda (_%g1155311566%_) + (let _%recur11578%_ ((_%datums11581%_ + _%datums11547%_) + (_%dispatch11583%_ + _%dispatch11548%_)) + (let* ((_%__stx1939519396%_ _%datums11581%_) + (_%g1158611607%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1955819559%_)))) - (let ((_%__kont1956119562%_ - (lambda (_%L11774%_ _%L11776%_) - (let* ((_%g1179611808%_ - (lambda (_%g1179711804%_) + _%__stx1939519396%_)))) + (let ((_%__kont1939819399%_ + (lambda (_%g1158811663%_ + _%g1158911665%_) + (let* ((_%g1168511697%_ + (lambda (_%g1168611693%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1179711804%_))) - (_%g1179511878%_ - (lambda (_%g1179711812%_) + _%g1168611693%_))) + (_%g1168411767%_ + (lambda (_%g1168611701%_) (if (gx#stx-pair? - _%g1179711812%_) - (let ((_%e1180011815%_ + _%g1168611701%_) + (let ((_%e1168911704%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g1179711812%_))) - (let ((_%hd1180111819%_ + (gx#syntax-e _%g1168611701%_))) + (let ((_%hd1169011708%_ (let () (declare (not safe)) - (##car _%e1180011815%_))) - (_%tl1180211822%_ + (##car _%e1168911704%_))) + (_%tl1169111711%_ (let () (declare (not safe)) - (##cdr _%e1180011815%_)))) - ((lambda (_%L11825%_ _%L11827%_) - (let* ((_%g1183911847%_ - (lambda (_%g1184011843%_) + (##cdr _%e1168911704%_)))) + ((lambda (_%g1168711714%_ _%g1168811716%_) + (let* ((_%g1172811736%_ + (lambda (_%g1172911732%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1184011843%_))) - (_%g1183811874%_ - (lambda (_%g1184011851%_) - ((lambda (_%L11854%_) + _%g1172911732%_))) + (_%g1172711763%_ + (lambda (_%g1172911740%_) + ((lambda (_%g1173011743%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'or) - (foldr (lambda (_%g1186511868%_ + (foldr (lambda (_%g1175411757%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1186611871%_) + _%g1175511760%_) (cons (cons (gx#datum->syntax '#f '~case-test) - (cons _%g1186511868%_ - (cons _%L11675%_ '()))) - _%g1186611871%_)) + (cons _%g1175411757%_ + (cons _%g1155311566%_ '()))) + _%g1175511760%_)) '() - _%L11776%_)) + _%g1158911665%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L11827%_ - (cons _%L11854%_ + (cons _%g1168811716%_ + (cons _%g1173011743%_ '()))))) - _%g1184011851%_)))) - (_%g1183811874%_ - (_%recur11687%_ _%L11774%_ _%L11825%_)))) - _%tl1180211822%_ - _%hd1180111819%_))) - (_%g1179611808%_ _%g1179711812%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1179511878%_ - _%dispatch11692%_)))) - (_%__kont1956519566%_ - (lambda () _%default11658%_))) - (let ((_%__match1958119582%_ - (lambda (_%e1169911734%_ - _%hd1170011738%_ - _%tl1170111741%_ - _%__splice1956319564%_ - _%target1170211744%_ - _%tl1170411747%_) - (letrec ((_%loop1170511750%_ - (lambda (_%hd1170311754%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%datum1170911757%_) - (if (gx#stx-pair? _%hd1170311754%_) - (let ((_%e1170611760%_ (gx#syntax-e _%hd1170311754%_))) - (let ((_%lp-tl1170811767%_ + _%g1172911740%_)))) + (_%g1172711763%_ + (_%recur11578%_ + _%g1158811663%_ + _%g1168711714%_)))) + _%tl1169111711%_ + _%hd1169011708%_))) + (_%g1168511697%_ _%g1168611701%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1168411767%_ + _%dispatch11583%_)))) + (_%__kont1940219403%_ + (lambda () _%default11549%_))) + (let ((_%__match1941819419%_ + (lambda (_%e1159011625%_ + _%hd1159111629%_ + _%tl1159211632%_ + _%__splice1940019401%_ + _%target1159311635%_ + _%tl1159511638%_) + (letrec ((_%loop1159611641%_ + (lambda (_%hd1159411645%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%datum1160011648%_) + (if (gx#stx-pair? _%hd1159411645%_) + (let ((_%e1159711650%_ (gx#syntax-e _%hd1159411645%_))) + (let ((_%lp-tl1159911657%_ (let () (declare (not safe)) - (##cdr _%e1170611760%_))) - (_%lp-hd1170711764%_ + (##cdr _%e1159711650%_))) + (_%lp-hd1159811654%_ (let () (declare (not safe)) - (##car _%e1170611760%_)))) - (_%loop1170511750%_ - _%lp-tl1170811767%_ - (cons _%lp-hd1170711764%_ _%datum1170911757%_)))) - (let ((_%datum1171011770%_ - (reverse _%datum1170911757%_))) - (_%__kont1956119562%_ - _%tl1170111741%_ - _%datum1171011770%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1170511750%_ - _%target1170211744%_ + (##car _%e1159711650%_)))) + (_%loop1159611641%_ + _%lp-tl1159911657%_ + (cons _%lp-hd1159811654%_ _%datum1160011648%_)))) + (let ((_%datum1160111660%_ + (reverse _%datum1160011648%_))) + (_%__kont1939819399%_ + _%tl1159211632%_ + _%datum1160111660%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1159611641%_ + _%target1159311635%_ '()))))) - (if (gx#stx-pair? _%__stx1955819559%_) - (let ((_%e1169911734%_ + (if (gx#stx-pair? _%__stx1939519396%_) + (let ((_%e1159011625%_ (gx#syntax-e - _%__stx1955819559%_))) - (let ((_%tl1170111741%_ + _%__stx1939519396%_))) + (let ((_%tl1159211632%_ (let () (declare (not safe)) - (##cdr _%e1169911734%_))) - (_%hd1170011738%_ + (##cdr _%e1159011625%_))) + (_%hd1159111629%_ (let () (declare (not safe)) - (##car _%e1169911734%_)))) + (##car _%e1159011625%_)))) (if (gx#stx-pair/null? - _%hd1170011738%_) - (let ((_%__splice1956319564%_ + _%hd1159111629%_) + (let ((_%__splice1940019401%_ (gx#syntax-split-splice->vector - _%hd1170011738%_ + _%hd1159111629%_ '0))) - (let ((_%tl1170411747%_ + (let ((_%tl1159511638%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice1956319564%_ '1))) - (_%target1170211744%_ + (##vector-ref _%__splice1940019401%_ '1))) + (_%target1159311635%_ (let () (declare (not safe)) - (##vector-ref _%__splice1956319564%_ '0)))) - (if (gx#stx-null? _%tl1170411747%_) - (_%__match1958119582%_ - _%e1169911734%_ - _%hd1170011738%_ - _%tl1170111741%_ - _%__splice1956319564%_ - _%target1170211744%_ - _%tl1170411747%_) - (_%__kont1956519566%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont1956519566%_)))) - (_%__kont1956519566%_))))))) - _%g1166111672%_)))) - (_%g1165911886%_ _%e11654%_)))) - (_%datum-dispatch-index9478%_ - (lambda (_%datums11526%_) - (let _%lp11529%_ ((_%rest11532%_ _%datums11526%_) - (_%ix11534%_ '0) - (_%r11535%_ '())) - (let* ((_%__stx1958419585%_ _%rest11532%_) - (_%g1153811559%_ + (##vector-ref _%__splice1940019401%_ '0)))) + (if (gx#stx-null? _%tl1159511638%_) + (_%__match1941819419%_ + _%e1159011625%_ + _%hd1159111629%_ + _%tl1159211632%_ + _%__splice1940019401%_ + _%target1159311635%_ + _%tl1159511638%_) + (_%__kont1940219403%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont1940219403%_)))) + (_%__kont1940219403%_))))))) + _%g1155211563%_)))) + (_%g1155011775%_ _%e11545%_)))) + (_%datum-dispatch-index9385%_ + (lambda (_%datums11419%_) + (let _%lp11422%_ ((_%rest11425%_ _%datums11419%_) + (_%ix11427%_ '0) + (_%r11428%_ '())) + (let* ((_%__stx1942119422%_ _%rest11425%_) + (_%g1143111452%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1958419585%_)))) - (let ((_%__kont1958719588%_ - (lambda (_%L11617%_ _%L11619%_) - (_%lp11529%_ - _%L11617%_ - (fx1+ _%ix11534%_) - (foldl (lambda (_%x11638%_ _%r11640%_) - (cons (cons _%x11638%_ _%ix11534%_) - _%r11640%_)) - _%r11535%_ - (foldr (lambda (_%g1164111644%_ - _%g1164211647%_) - (cons _%g1164111644%_ - _%g1164211647%_)) + _%__stx1942119422%_)))) + (let ((_%__kont1942419425%_ + (lambda (_%g1143311508%_ _%g1143411510%_) + (_%lp11422%_ + _%g1143311508%_ + (fx1+ _%ix11427%_) + (foldl (lambda (_%x11529%_ _%r11531%_) + (cons (cons _%x11529%_ _%ix11427%_) + _%r11531%_)) + _%r11428%_ + (foldr (lambda (_%g1153211535%_ + _%g1153311538%_) + (cons _%g1153211535%_ + _%g1153311538%_)) '() - _%L11619%_))))) - (_%__kont1959119592%_ (lambda () _%r11535%_))) - (let ((_%__match1960719608%_ - (lambda (_%e1154211577%_ - _%hd1154311581%_ - _%tl1154411584%_ - _%__splice1958919590%_ - _%target1154511587%_ - _%tl1154711590%_) - (letrec ((_%loop1154811593%_ - (lambda (_%hd1154611597%_ - _%datum1155211600%_) + _%g1143411510%_))))) + (_%__kont1942819429%_ (lambda () _%r11428%_))) + (let ((_%__match1944419445%_ + (lambda (_%e1143511470%_ + _%hd1143611474%_ + _%tl1143711477%_ + _%__splice1942619427%_ + _%target1143811480%_ + _%tl1144011483%_) + (letrec ((_%loop1144111486%_ + (lambda (_%hd1143911490%_ + _%datum1144511493%_) (if (gx#stx-pair? - _%hd1154611597%_) - (let ((_%e1154911603%_ + _%hd1143911490%_) + (let ((_%e1144211495%_ (gx#syntax-e - _%hd1154611597%_))) - (let ((_%lp-tl1155111610%_ + _%hd1143911490%_))) + (let ((_%lp-tl1144411502%_ (let () (declare (not safe)) - (##cdr _%e1154911603%_))) - (_%lp-hd1155011607%_ + (##cdr _%e1144211495%_))) + (_%lp-hd1144311499%_ (let () (declare (not safe)) - (##car _%e1154911603%_)))) - (_%loop1154811593%_ - _%lp-tl1155111610%_ - (cons _%lp-hd1155011607%_ - _%datum1155211600%_)))) - (let ((_%datum1155311613%_ - (reverse _%datum1155211600%_))) - (_%__kont1958719588%_ - _%tl1154411584%_ - _%datum1155311613%_)))))) - (_%loop1154811593%_ - _%target1154511587%_ + (##car _%e1144211495%_)))) + (_%loop1144111486%_ + _%lp-tl1144411502%_ + (cons _%lp-hd1144311499%_ + _%datum1144511493%_)))) + (let ((_%datum1144611505%_ + (reverse _%datum1144511493%_))) + (_%__kont1942419425%_ + _%tl1143711477%_ + _%datum1144611505%_)))))) + (_%loop1144111486%_ + _%target1143811480%_ '()))))) - (if (gx#stx-pair? _%__stx1958419585%_) - (let ((_%e1154211577%_ - (gx#syntax-e _%__stx1958419585%_))) - (let ((_%tl1154411584%_ + (if (gx#stx-pair? _%__stx1942119422%_) + (let ((_%e1143511470%_ + (gx#syntax-e _%__stx1942119422%_))) + (let ((_%tl1143711477%_ (let () (declare (not safe)) - (##cdr _%e1154211577%_))) - (_%hd1154311581%_ + (##cdr _%e1143511470%_))) + (_%hd1143611474%_ (let () (declare (not safe)) - (##car _%e1154211577%_)))) - (if (gx#stx-pair/null? _%hd1154311581%_) - (let ((_%__splice1958919590%_ + (##car _%e1143511470%_)))) + (if (gx#stx-pair/null? _%hd1143611474%_) + (let ((_%__splice1942619427%_ (gx#syntax-split-splice->vector - _%hd1154311581%_ + _%hd1143611474%_ '0))) - (let ((_%tl1154711590%_ + (let ((_%tl1144011483%_ (let () (declare (not safe)) (##vector-ref - _%__splice1958919590%_ + _%__splice1942619427%_ '1))) - (_%target1154511587%_ + (_%target1143811480%_ (let () (declare (not safe)) (##vector-ref - _%__splice1958919590%_ + _%__splice1942619427%_ '0)))) - (if (gx#stx-null? _%tl1154711590%_) - (_%__match1960719608%_ - _%e1154211577%_ - _%hd1154311581%_ - _%tl1154411584%_ - _%__splice1958919590%_ - _%target1154511587%_ - _%tl1154711590%_) - (_%__kont1959119592%_)))) - (_%__kont1959119592%_)))) - (_%__kont1959119592%_)))))))) - (_%duplicate-indexes?9479%_ - (lambda (_%xs11507%_) - (let ((_%ht11510%_ (make-hash-table-eq))) - (let _%lp11513%_ ((_%rest11516%_ _%xs11507%_)) - (if (pair? _%rest11516%_) - (let* ((_%ix11519%_ + (if (gx#stx-null? _%tl1144011483%_) + (_%__match1944419445%_ + _%e1143511470%_ + _%hd1143611474%_ + _%tl1143711477%_ + _%__splice1942619427%_ + _%target1143811480%_ + _%tl1144011483%_) + (_%__kont1942819429%_)))) + (_%__kont1942819429%_)))) + (_%__kont1942819429%_)))))))) + (_%duplicate-indexes?9386%_ + (lambda (_%xs11400%_) + (let ((_%ht11403%_ (make-hash-table-eq))) + (let _%lp11406%_ ((_%rest11409%_ _%xs11400%_)) + (if (pair? _%rest11409%_) + (let* ((_%ix11412%_ (let () (declare (not safe)) - (##car _%rest11516%_))) - (_%$e11522%_ - (hash-get _%ht11510%_ _%ix11519%_))) - (if _%$e11522%_ - _%$e11522%_ + (##car _%rest11409%_))) + (_%$e11415%_ + (hash-get _%ht11403%_ _%ix11412%_))) + (if _%$e11415%_ + _%$e11415%_ (begin - (hash-put! _%ht11510%_ _%ix11519%_ '#t) - (_%lp11513%_ + (hash-put! _%ht11403%_ _%ix11412%_ '#t) + (_%lp11406%_ (let () (declare (not safe)) - (##cdr _%rest11516%_)))))) + (##cdr _%rest11409%_)))))) '#f))))) - (_%generate-hash-dispatch-table9480%_ - (lambda (_%indexes11476%_ _%hash-e11478%_) - (let _%lp11480%_ ((_%len11483%_ - (* '2 (length _%indexes11476%_)))) - (let* ((_%hs11489%_ - (map (lambda (_%x11486%_) - (_%hash-e11478%_ (car _%x11486%_))) - _%indexes11476%_)) - (_%xs11495%_ - (map (lambda (_%h11492%_) - (fxmodulo _%h11492%_ _%len11483%_)) - _%hs11489%_))) - (if (_%duplicate-indexes?9479%_ _%xs11495%_) - (if (< _%len11483%_ '131072) - (_%lp11480%_ + (_%generate-hash-dispatch-table9387%_ + (lambda (_%indexes11369%_ _%hash-e11371%_) + (let _%lp11373%_ ((_%len11376%_ + (* '2 (length _%indexes11369%_)))) + (let* ((_%hs11382%_ + (map (lambda (_%x11379%_) + (_%hash-e11371%_ (car _%x11379%_))) + _%indexes11369%_)) + (_%xs11388%_ + (map (lambda (_%h11385%_) + (fxmodulo _%h11385%_ _%len11376%_)) + _%hs11382%_))) + (if (_%duplicate-indexes?9386%_ _%xs11388%_) + (if (< _%len11376%_ '131072) + (_%lp11373%_ (quotient (let () (declare (not safe)) - (##fx* _%len11483%_ '3)) + (##fx* _%len11376%_ '3)) '2)) (gx#raise-syntax-error '#f '"Cannot create perfect dispatch table" - _%stx9466%_ - _%indexes11476%_)) - (let ((_%tab11500%_ - (make-vector _%len11483%_ '#f))) + _%stx9373%_ + _%indexes11369%_)) + (let ((_%tab11393%_ + (make-vector _%len11376%_ '#f))) (for-each - (lambda (_%entry11503%_ _%x11505%_) + (lambda (_%entry11396%_ _%x11398%_) (vector-set! - _%tab11500%_ - _%x11505%_ - _%entry11503%_)) - _%indexes11476%_ - _%xs11495%_) - _%tab11500%_)))))) - (_%generate-symbolic-dispatch9481%_ - (lambda (_%e11079%_ - _%datums11081%_ - _%dispatch11082%_ - _%default11083%_) - (let* ((_%indexes11085%_ - (_%datum-dispatch-index9478%_ _%datums11081%_)) - (_%tab11088%_ - (_%generate-hash-dispatch-table9480%_ - _%indexes11085%_ + _%tab11393%_ + _%x11398%_ + _%entry11396%_)) + _%indexes11369%_ + _%xs11388%_) + _%tab11393%_)))))) + (_%generate-symbolic-dispatch9388%_ + (lambda (_%e10974%_ + _%datums10976%_ + _%dispatch10977%_ + _%default10978%_) + (let* ((_%indexes10980%_ + (_%datum-dispatch-index9385%_ _%datums10976%_)) + (_%tab10983%_ + (_%generate-hash-dispatch-table9387%_ + _%indexes10980%_ symbol-hash))) - (if (= (length _%dispatch11082%_) '1) - (let* ((_%tab11096%_ + (if (= (length _%dispatch10977%_) '1) + (let* ((_%tab10991%_ (vector-map - (lambda (_%x11093%_) - (if _%x11093%_ (car _%x11093%_) '#f)) - _%tab11088%_)) - (_%g1109911137%_ - (lambda (_%g1110011133%_) + (lambda (_%x10988%_) + (if _%x10988%_ (car _%x10988%_) '#f)) + _%tab10983%_)) + (_%g1099411032%_ + (lambda (_%g1099511028%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1110011133%_))) - (_%g1109811268%_ - (lambda (_%g1110011141%_) - (if (gx#stx-pair? _%g1110011141%_) - (let ((_%e1110811144%_ - (gx#syntax-e _%g1110011141%_))) - (let ((_%hd1110911148%_ + _%g1099511028%_))) + (_%g1099311163%_ + (lambda (_%g1099511036%_) + (if (gx#stx-pair? _%g1099511036%_) + (let ((_%e1100311039%_ + (gx#syntax-e _%g1099511036%_))) + (let ((_%hd1100411043%_ (let () (declare (not safe)) - (##car _%e1110811144%_))) - (_%tl1111011151%_ + (##car _%e1100311039%_))) + (_%tl1100511046%_ (let () (declare (not safe)) - (##cdr _%e1110811144%_)))) - (if (gx#stx-pair? _%tl1111011151%_) - (let ((_%e1111111154%_ + (##cdr _%e1100311039%_)))) + (if (gx#stx-pair? _%tl1100511046%_) + (let ((_%e1100611049%_ (gx#syntax-e - _%tl1111011151%_))) - (let ((_%hd1111211158%_ + _%tl1100511046%_))) + (let ((_%hd1100711053%_ (let () (declare (not safe)) - (##car _%e1111111154%_))) - (_%tl1111311161%_ + (##car _%e1100611049%_))) + (_%tl1100811056%_ (let () (declare (not safe)) - (##cdr _%e1111111154%_)))) + (##cdr _%e1100611049%_)))) (if (gx#stx-pair? - _%tl1111311161%_) - (let ((_%e1111411164%_ + _%tl1100811056%_) + (let ((_%e1100911059%_ (gx#syntax-e - _%tl1111311161%_))) - (let ((_%hd1111511168%_ + _%tl1100811056%_))) + (let ((_%hd1101011063%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e1111411164%_))) - (_%tl1111611171%_ + (let () (declare (not safe)) (##car _%e1100911059%_))) + (_%tl1101111066%_ (let () (declare (not safe)) - (##cdr _%e1111411164%_)))) - (if (gx#stx-pair? _%tl1111611171%_) - (let ((_%e1111711174%_ (gx#syntax-e _%tl1111611171%_))) - (let ((_%hd1111811178%_ + (##cdr _%e1100911059%_)))) + (if (gx#stx-pair? _%tl1101111066%_) + (let ((_%e1101211069%_ (gx#syntax-e _%tl1101111066%_))) + (let ((_%hd1101311073%_ (let () (declare (not safe)) - (##car _%e1111711174%_))) - (_%tl1111911181%_ + (##car _%e1101211069%_))) + (_%tl1101411076%_ (let () (declare (not safe)) - (##cdr _%e1111711174%_)))) - (if (gx#stx-pair? _%hd1111811178%_) - (let ((_%e1112011184%_ - (gx#syntax-e _%hd1111811178%_))) - (let ((_%hd1112111188%_ + (##cdr _%e1101211069%_)))) + (if (gx#stx-pair? _%hd1101311073%_) + (let ((_%e1101511079%_ + (gx#syntax-e _%hd1101311073%_))) + (let ((_%hd1101611083%_ (let () (declare (not safe)) - (##car _%e1112011184%_))) - (_%tl1112211191%_ + (##car _%e1101511079%_))) + (_%tl1101711086%_ (let () (declare (not safe)) - (##cdr _%e1112011184%_)))) - (if (gx#stx-null? _%tl1112211191%_) - (if (gx#stx-pair? _%tl1111911181%_) - (let ((_%e1112311194%_ + (##cdr _%e1101511079%_)))) + (if (gx#stx-null? _%tl1101711086%_) + (if (gx#stx-pair? _%tl1101411076%_) + (let ((_%e1101811089%_ (gx#syntax-e - _%tl1111911181%_))) - (let ((_%hd1112411198%_ + _%tl1101411076%_))) + (let ((_%hd1101911093%_ (let () (declare (not safe)) - (##car _%e1112311194%_))) - (_%tl1112511201%_ + (##car _%e1101811089%_))) + (_%tl1102011096%_ (let () (declare (not safe)) - (##cdr _%e1112311194%_)))) + (##cdr _%e1101811089%_)))) (if (gx#stx-pair? - _%tl1112511201%_) - (let ((_%e1112611204%_ + _%tl1102011096%_) + (let ((_%e1102111099%_ (gx#syntax-e - _%tl1112511201%_))) - (let ((_%hd1112711208%_ + _%tl1102011096%_))) + (let ((_%hd1102211103%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e1112611204%_))) - (_%tl1112811211%_ - (let () (declare (not safe)) (##cdr _%e1112611204%_)))) - (if (gx#stx-pair? _%tl1112811211%_) - (let ((_%e1112911214%_ (gx#syntax-e _%tl1112811211%_))) - (let ((_%hd1113011218%_ + (##car _%e1102111099%_))) + (_%tl1102311106%_ + (let () (declare (not safe)) (##cdr _%e1102111099%_)))) + (if (gx#stx-pair? _%tl1102311106%_) + (let ((_%e1102411109%_ (gx#syntax-e _%tl1102311106%_))) + (let ((_%hd1102511113%_ (let () (declare (not safe)) - (##car _%e1112911214%_))) - (_%tl1113111221%_ + (##car _%e1102411109%_))) + (_%tl1102611116%_ (let () (declare (not safe)) - (##cdr _%e1112911214%_)))) - (if (gx#stx-null? _%tl1113111221%_) - ((lambda (_%L11224%_ - _%L11226%_ - _%L11227%_ - _%L11228%_ - _%L11229%_ - _%L11230%_ - _%L11231%_) + (##cdr _%e1102411109%_)))) + (if (gx#stx-null? _%tl1102611116%_) + ((lambda (_%g1099611119%_ + _%g1099711121%_ + _%g1099811122%_ + _%g1099911123%_ + _%g1100011124%_ + _%g1100111125%_ + _%g1100211126%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L11230%_ + (cons (cons (cons _%g1100111125%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons '() (cons _%L11227%_ '()))) + (cons '() (cons _%g1099811122%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L11229%_ + (cons (cons _%g1100011124%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L11226%_ '())) + (cons _%g1099711121%_ '())) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -4783,13 +4822,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'symbol?) - (cons _%L11231%_ '())) + (cons _%g1100211126%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f 'h) (cons (cons (gx#datum->syntax '#f '##symbol-hash) - (cons _%L11231%_ + (cons _%g1100211126%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -4802,7 +4841,7 @@ '#f '##fxmodulo) (cons (gx#datum->syntax '#f 'h) - (cons _%L11224%_ '()))) + (cons _%g1099611119%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -4812,7 +4851,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##vector-ref) - (cons _%L11229%_ + (cons _%g1100011124%_ (cons (gx#datum->syntax '#f 'ix) '()))) '())) @@ -4826,201 +4865,203 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'q) - (cons _%L11231%_ '()))) - (cons _%L11228%_ (cons (cons _%L11230%_ '()) '())))) + (cons _%g1100211126%_ '()))) + (cons _%g1099911123%_ (cons (cons _%g1100111125%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _%L11230%_ '()) '())))) + (cons (cons _%g1100111125%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd1113011218%_ - _%hd1112711208%_ - _%hd1112411198%_ - _%hd1112111188%_ - _%hd1111511168%_ - _%hd1111211158%_ - _%hd1110911148%_) - (_%g1109911137%_ _%g1110011141%_)))) - (_%g1109911137%_ _%g1110011141%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1109911137%_ - _%g1110011141%_)))) - (_%g1109911137%_ _%g1110011141%_)) - (_%g1109911137%_ _%g1110011141%_)))) - (_%g1109911137%_ _%g1110011141%_)))) - (_%g1109911137%_ _%g1110011141%_)))) - (_%g1109911137%_ _%g1110011141%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1109911137%_ - _%g1110011141%_)))) - (_%g1109911137%_ _%g1110011141%_))))) - (_%g1109811268%_ - (list _%e11079%_ + _%hd1102511113%_ + _%hd1102211103%_ + _%hd1101911093%_ + _%hd1101611083%_ + _%hd1101011063%_ + _%hd1100711053%_ + _%hd1100411043%_) + (_%g1099411032%_ _%g1099511036%_)))) + (_%g1099411032%_ _%g1099511036%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1099411032%_ + _%g1099511036%_)))) + (_%g1099411032%_ _%g1099511036%_)) + (_%g1099411032%_ _%g1099511036%_)))) + (_%g1099411032%_ _%g1099511036%_)))) + (_%g1099411032%_ _%g1099511036%_)))) + (_%g1099411032%_ _%g1099511036%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1099411032%_ + _%g1099511036%_)))) + (_%g1099411032%_ _%g1099511036%_))))) + (_%g1099311163%_ + (list _%e10974%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch11082%_ - _%default11083%_ - _%tab11096%_ - (vector-length _%tab11096%_)))) - (let* ((_%g1127211316%_ - (lambda (_%g1127311312%_) + _%dispatch10977%_ + _%default10978%_ + _%tab10991%_ + (vector-length _%tab10991%_)))) + (let* ((_%g1116711211%_ + (lambda (_%g1116811207%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1127311312%_))) - (_%g1127111472%_ - (lambda (_%g1127311320%_) - (if (gx#stx-pair? _%g1127311320%_) - (let ((_%e1128111323%_ - (gx#syntax-e _%g1127311320%_))) - (let ((_%hd1128211327%_ + _%g1116811207%_))) + (_%g1116611365%_ + (lambda (_%g1116811215%_) + (if (gx#stx-pair? _%g1116811215%_) + (let ((_%e1117611218%_ + (gx#syntax-e _%g1116811215%_))) + (let ((_%hd1117711222%_ (let () (declare (not safe)) - (##car _%e1128111323%_))) - (_%tl1128311330%_ + (##car _%e1117611218%_))) + (_%tl1117811225%_ (let () (declare (not safe)) - (##cdr _%e1128111323%_)))) - (if (gx#stx-pair? _%tl1128311330%_) - (let ((_%e1128411333%_ + (##cdr _%e1117611218%_)))) + (if (gx#stx-pair? _%tl1117811225%_) + (let ((_%e1117911228%_ (gx#syntax-e - _%tl1128311330%_))) - (let ((_%hd1128511337%_ + _%tl1117811225%_))) + (let ((_%hd1118011232%_ (let () (declare (not safe)) - (##car _%e1128411333%_))) - (_%tl1128611340%_ + (##car _%e1117911228%_))) + (_%tl1118111235%_ (let () (declare (not safe)) - (##cdr _%e1128411333%_)))) + (##cdr _%e1117911228%_)))) (if (gx#stx-pair? - _%tl1128611340%_) - (let ((_%e1128711343%_ + _%tl1118111235%_) + (let ((_%e1118211238%_ (gx#syntax-e - _%tl1128611340%_))) - (let ((_%hd1128811347%_ + _%tl1118111235%_))) + (let ((_%hd1118311242%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e1128711343%_))) - (_%tl1128911350%_ + (let () (declare (not safe)) (##car _%e1118211238%_))) + (_%tl1118411245%_ (let () (declare (not safe)) - (##cdr _%e1128711343%_)))) - (if (gx#stx-pair? _%tl1128911350%_) - (let ((_%e1129011353%_ (gx#syntax-e _%tl1128911350%_))) - (let ((_%hd1129111357%_ + (##cdr _%e1118211238%_)))) + (if (gx#stx-pair? _%tl1118411245%_) + (let ((_%e1118511248%_ (gx#syntax-e _%tl1118411245%_))) + (let ((_%hd1118611252%_ (let () (declare (not safe)) - (##car _%e1129011353%_))) - (_%tl1129211360%_ + (##car _%e1118511248%_))) + (_%tl1118711255%_ (let () (declare (not safe)) - (##cdr _%e1129011353%_)))) - (if (gx#stx-pair/null? _%hd1129111357%_) - (let ((_g20919_ + (##cdr _%e1118511248%_)))) + (if (gx#stx-pair/null? _%hd1118611252%_) + (let ((_g20756_ (gx#syntax-split-splice - _%hd1129111357%_ + _%hd1118611252%_ '0))) (begin - (let ((_g20920_ + (let ((_g20757_ (let () (declare (not safe)) - (if (##values? _g20919_) - (##values-length _g20919_) + (if (##values? _g20756_) + (##values-length _g20756_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20920_ 2))) + (##fx= _g20757_ 2))) (error "Context expects 2 values" - _g20920_))) - (let ((_%target1129311363%_ + _g20757_))) + (let ((_%target1118811258%_ (let () (declare (not safe)) - (##values-ref _g20919_ 0))) - (_%tl1129511366%_ + (##values-ref _g20756_ 0))) + (_%tl1119011261%_ (let () (declare (not safe)) - (##values-ref _g20919_ 1)))) - (if (gx#stx-null? _%tl1129511366%_) - (letrec ((_%loop1129611369%_ - (lambda (_%hd1129411373%_ - _%dispatch1130011376%_) + (##values-ref _g20756_ 1)))) + (if (gx#stx-null? _%tl1119011261%_) + (letrec ((_%loop1119111264%_ + (lambda (_%hd1118911268%_ + _%dispatch1119511271%_) (if (gx#stx-pair? - _%hd1129411373%_) - (let ((_%e1129711379%_ + _%hd1118911268%_) + (let ((_%e1119211273%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd1129411373%_))) - (let ((_%lp-hd1129811383%_ + (gx#syntax-e _%hd1118911268%_))) + (let ((_%lp-hd1119311277%_ (let () (declare (not safe)) - (##car _%e1129711379%_))) - (_%lp-tl1129911386%_ + (##car _%e1119211273%_))) + (_%lp-tl1119411280%_ (let () (declare (not safe)) - (##cdr _%e1129711379%_)))) - (_%loop1129611369%_ - _%lp-tl1129911386%_ - (cons _%lp-hd1129811383%_ _%dispatch1130011376%_)))) - (let ((_%dispatch1130111389%_ - (reverse _%dispatch1130011376%_))) - (if (gx#stx-pair? _%tl1129211360%_) - (let ((_%e1130211393%_ (gx#syntax-e _%tl1129211360%_))) - (let ((_%hd1130311397%_ + (##cdr _%e1119211273%_)))) + (_%loop1119111264%_ + _%lp-tl1119411280%_ + (cons _%lp-hd1119311277%_ _%dispatch1119511271%_)))) + (let ((_%dispatch1119611283%_ + (reverse _%dispatch1119511271%_))) + (if (gx#stx-pair? _%tl1118711255%_) + (let ((_%e1119711286%_ (gx#syntax-e _%tl1118711255%_))) + (let ((_%hd1119811290%_ (let () (declare (not safe)) - (##car _%e1130211393%_))) - (_%tl1130411400%_ + (##car _%e1119711286%_))) + (_%tl1119911293%_ (let () (declare (not safe)) - (##cdr _%e1130211393%_)))) - (if (gx#stx-pair? _%tl1130411400%_) - (let ((_%e1130511403%_ - (gx#syntax-e _%tl1130411400%_))) - (let ((_%hd1130611407%_ + (##cdr _%e1119711286%_)))) + (if (gx#stx-pair? _%tl1119911293%_) + (let ((_%e1120011296%_ + (gx#syntax-e _%tl1119911293%_))) + (let ((_%hd1120111300%_ (let () (declare (not safe)) - (##car _%e1130511403%_))) - (_%tl1130711410%_ + (##car _%e1120011296%_))) + (_%tl1120211303%_ (let () (declare (not safe)) - (##cdr _%e1130511403%_)))) - (if (gx#stx-pair? _%tl1130711410%_) - (let ((_%e1130811413%_ - (gx#syntax-e _%tl1130711410%_))) - (let ((_%hd1130911417%_ + (##cdr _%e1120011296%_)))) + (if (gx#stx-pair? _%tl1120211303%_) + (let ((_%e1120311306%_ + (gx#syntax-e _%tl1120211303%_))) + (let ((_%hd1120411310%_ (let () (declare (not safe)) - (##car _%e1130811413%_))) - (_%tl1131011420%_ + (##car _%e1120311306%_))) + (_%tl1120511313%_ (let () (declare (not safe)) - (##cdr _%e1130811413%_)))) - (if (gx#stx-null? _%tl1131011420%_) - ((lambda (_%L11423%_ - _%L11425%_ - _%L11426%_ - _%L11427%_ - _%L11428%_ - _%L11429%_ - _%L11430%_) + (##cdr _%e1120311306%_)))) + (if (gx#stx-null? _%tl1120511313%_) + ((lambda (_%g1116911316%_ + _%g1117011318%_ + _%g1117111319%_ + _%g1117211320%_ + _%g1117311321%_ + _%g1117411322%_ + _%g1117511323%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L11429%_ + (cons (cons (cons _%g1117411322%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L11426%_ '()))) + (cons _%g1117111319%_ + '()))) '())) - (cons (cons _%L11428%_ + (cons (cons _%g1117311321%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L11425%_ '())) + (cons _%g1117011318%_ + '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'symbol?) - (cons _%L11430%_ '())) + (cons _%g1117511323%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) @@ -5031,7 +5072,7 @@ (cons (cons (gx#datum->syntax '#f '##symbol-hash) - (cons _%L11430%_ '())) + (cons _%g1117511323%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax @@ -5040,13 +5081,14 @@ (cons (gx#datum->syntax '#f 'h) - (cons _%L11423%_ '()))) + (cons _%g1116911316%_ + '()))) '())) (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L11428%_ + (cons _%g1117311321%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -5066,7 +5108,7 @@ '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _%L11430%_ '()))) + (cons _%g1117511323%_ '()))) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'x) (cons (cons (gx#datum->syntax @@ -5081,232 +5123,233 @@ '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1146311466%_ + (foldr (lambda (_%g1135611359%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1146411469%_) - (cons _%g1146311466%_ _%g1146411469%_)) + _%g1135711362%_) + (cons _%g1135611359%_ _%g1135711362%_)) '() - _%L11427%_))) + _%g1117211320%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _%L11429%_ '()) '())))) + (cons (cons _%g1117411322%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L11429%_ '()) '())))) + (cons (cons _%g1117411322%_ '()) + '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L11429%_ '()) + (cons (cons _%g1117411322%_ '()) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1130911417%_ - _%hd1130611407%_ - _%hd1130311397%_ - _%dispatch1130111389%_ - _%hd1128811347%_ - _%hd1128511337%_ - _%hd1128211327%_) - (_%g1127211316%_ - _%g1127311320%_)))) - (_%g1127211316%_ _%g1127311320%_)))) - (_%g1127211316%_ _%g1127311320%_)))) - (_%g1127211316%_ _%g1127311320%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1129611369%_ - _%target1129311363%_ + _%hd1120411310%_ + _%hd1120111300%_ + _%hd1119811290%_ + _%dispatch1119611283%_ + _%hd1118311242%_ + _%hd1118011232%_ + _%hd1117711222%_) + (_%g1116711211%_ + _%g1116811215%_)))) + (_%g1116711211%_ _%g1116811215%_)))) + (_%g1116711211%_ _%g1116811215%_)))) + (_%g1116711211%_ _%g1116811215%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1119111264%_ + _%target1118811258%_ '())) - (_%g1127211316%_ _%g1127311320%_))))) - (_%g1127211316%_ _%g1127311320%_)))) - (_%g1127211316%_ _%g1127311320%_)))) - (_%g1127211316%_ _%g1127311320%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1127211316%_ - _%g1127311320%_)))) - (_%g1127211316%_ _%g1127311320%_))))) - (_%g1127111472%_ - (list _%e11079%_ + (_%g1116711211%_ _%g1116811215%_))))) + (_%g1116711211%_ _%g1116811215%_)))) + (_%g1116711211%_ _%g1116811215%_)))) + (_%g1116711211%_ _%g1116811215%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1116711211%_ + _%g1116811215%_)))) + (_%g1116711211%_ _%g1116811215%_))))) + (_%g1116611365%_ + (list _%e10974%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch11082%_ - _%default11083%_ - _%tab11088%_ - (vector-length _%tab11088%_)))))))) - (_%max-char9482%_ - (lambda (_%datums11068%_) - (foldl (lambda (_%lst11071%_ _%r11073%_) - (foldl (lambda (_%char11075%_ _%r11077%_) - (max (char->integer _%char11075%_) - _%r11077%_)) - _%r11073%_ - _%lst11071%_)) + _%dispatch10977%_ + _%default10978%_ + _%tab10983%_ + (vector-length _%tab10983%_)))))))) + (_%max-char9389%_ + (lambda (_%datums10963%_) + (foldl (lambda (_%lst10966%_ _%r10968%_) + (foldl (lambda (_%char10970%_ _%r10972%_) + (max (char->integer _%char10970%_) + _%r10972%_)) + _%r10968%_ + _%lst10966%_)) '0 - _%datums11068%_))) - (_%generate-char-dispatch-table9483%_ - (lambda (_%indexes11047%_) - (let* ((_%ixs11053%_ - (map (lambda (_%x11050%_) - (char->integer (car _%x11050%_))) - _%indexes11047%_)) - (_%len11056%_ (fx1+ (foldl max '0 _%ixs11053%_))) - (_%vec11059%_ (make-vector _%len11056%_ '#f))) + _%datums10963%_))) + (_%generate-char-dispatch-table9390%_ + (lambda (_%indexes10942%_) + (let* ((_%ixs10948%_ + (map (lambda (_%x10945%_) + (char->integer (car _%x10945%_))) + _%indexes10942%_)) + (_%len10951%_ (fx1+ (foldl max '0 _%ixs10948%_))) + (_%vec10954%_ (make-vector _%len10951%_ '#f))) (for-each - (lambda (_%entry11064%_ _%x11066%_) + (lambda (_%entry10959%_ _%x10961%_) (vector-set! - _%vec11059%_ - _%x11066%_ - (cdr _%entry11064%_))) - _%indexes11047%_ - _%ixs11053%_) - _%vec11059%_))) - (_%simple-char-range?9484%_ - (lambda (_%tab11023%_) - (let ((_%end11026%_ (vector-length _%tab11023%_))) - (let _%lp11029%_ ((_%i11032%_ '0)) - (let ((_%ix11035%_ - (vector-ref _%tab11023%_ _%i11032%_))) - (if _%ix11035%_ - (let _%lp211038%_ ((_%i11041%_ - (fx1+ _%i11032%_))) - (if (fx< _%i11041%_ _%end11026%_) - (let ((_%ix*11044%_ + _%vec10954%_ + _%x10961%_ + (cdr _%entry10959%_))) + _%indexes10942%_ + _%ixs10948%_) + _%vec10954%_))) + (_%simple-char-range?9391%_ + (lambda (_%tab10918%_) + (let ((_%end10921%_ (vector-length _%tab10918%_))) + (let _%lp10924%_ ((_%i10927%_ '0)) + (let ((_%ix10930%_ + (vector-ref _%tab10918%_ _%i10927%_))) + (if _%ix10930%_ + (let _%lp210933%_ ((_%i10936%_ + (fx1+ _%i10927%_))) + (if (fx< _%i10936%_ _%end10921%_) + (let ((_%ix*10939%_ (vector-ref - _%tab11023%_ - _%i11041%_))) - (if (eq? _%ix11035%_ _%ix*11044%_) - (_%lp211038%_ (fx1+ _%i11041%_)) + _%tab10918%_ + _%i10936%_))) + (if (eq? _%ix10930%_ _%ix*10939%_) + (_%lp210933%_ (fx1+ _%i10936%_)) '#f)) '#t)) - (_%lp11029%_ (fx1+ _%i11032%_)))))))) - (_%char-range-start9485%_ - (lambda (_%tab11014%_) - (let _%lp11017%_ ((_%i11020%_ '0)) - (if (vector-ref _%tab11014%_ _%i11020%_) - _%i11020%_ - (_%lp11017%_ (fx1+ _%i11020%_)))))) - (_%generate-char-dispatch9486%_ - (lambda (_%e10637%_ - _%datums10639%_ - _%dispatch10640%_ - _%default10641%_) - (if (< (_%max-char9482%_ _%datums10639%_) '128) - (let* ((_%indexes10643%_ - (_%datum-dispatch-index9478%_ _%datums10639%_)) - (_%tab10646%_ - (_%generate-char-dispatch-table9483%_ - _%indexes10643%_))) - (if (_%simple-char-range?9484%_ _%tab10646%_) - (let ((_%start10651%_ - (_%char-range-start9485%_ _%tab10646%_)) - (_%end10653%_ - (vector-length _%tab10646%_))) - (let* ((_%g1065510689%_ - (lambda (_%g1065610685%_) + (_%lp10924%_ (fx1+ _%i10927%_)))))))) + (_%char-range-start9392%_ + (lambda (_%tab10909%_) + (let _%lp10912%_ ((_%i10915%_ '0)) + (if (vector-ref _%tab10909%_ _%i10915%_) + _%i10915%_ + (_%lp10912%_ (fx1+ _%i10915%_)))))) + (_%generate-char-dispatch9393%_ + (lambda (_%e10534%_ + _%datums10536%_ + _%dispatch10537%_ + _%default10538%_) + (if (< (_%max-char9389%_ _%datums10536%_) '128) + (let* ((_%indexes10540%_ + (_%datum-dispatch-index9385%_ _%datums10536%_)) + (_%tab10543%_ + (_%generate-char-dispatch-table9390%_ + _%indexes10540%_))) + (if (_%simple-char-range?9391%_ _%tab10543%_) + (let ((_%start10548%_ + (_%char-range-start9392%_ _%tab10543%_)) + (_%end10550%_ + (vector-length _%tab10543%_))) + (let* ((_%g1055210586%_ + (lambda (_%g1055310582%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1065610685%_))) - (_%g1065410806%_ - (lambda (_%g1065610693%_) - (if (gx#stx-pair? _%g1065610693%_) - (let ((_%e1066310696%_ + _%g1055310582%_))) + (_%g1055110703%_ + (lambda (_%g1055310590%_) + (if (gx#stx-pair? _%g1055310590%_) + (let ((_%e1056010593%_ (gx#syntax-e - _%g1065610693%_))) - (let ((_%hd1066410700%_ + _%g1055310590%_))) + (let ((_%hd1056110597%_ (let () (declare (not safe)) - (##car _%e1066310696%_))) - (_%tl1066510703%_ + (##car _%e1056010593%_))) + (_%tl1056210600%_ (let () (declare (not safe)) - (##cdr _%e1066310696%_)))) + (##cdr _%e1056010593%_)))) (if (gx#stx-pair? - _%tl1066510703%_) - (let ((_%e1066610706%_ + _%tl1056210600%_) + (let ((_%e1056310603%_ (gx#syntax-e - _%tl1066510703%_))) - (let ((_%hd1066710710%_ + _%tl1056210600%_))) + (let ((_%hd1056410607%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e1066610706%_))) - (_%tl1066810713%_ - (let () (declare (not safe)) (##cdr _%e1066610706%_)))) - (if (gx#stx-pair? _%tl1066810713%_) - (let ((_%e1066910716%_ (gx#syntax-e _%tl1066810713%_))) - (let ((_%hd1067010720%_ + (##car _%e1056310603%_))) + (_%tl1056510610%_ + (let () (declare (not safe)) (##cdr _%e1056310603%_)))) + (if (gx#stx-pair? _%tl1056510610%_) + (let ((_%e1056610613%_ (gx#syntax-e _%tl1056510610%_))) + (let ((_%hd1056710617%_ (let () (declare (not safe)) - (##car _%e1066910716%_))) - (_%tl1067110723%_ + (##car _%e1056610613%_))) + (_%tl1056810620%_ (let () (declare (not safe)) - (##cdr _%e1066910716%_)))) - (if (gx#stx-pair? _%hd1067010720%_) - (let ((_%e1067210726%_ - (gx#syntax-e _%hd1067010720%_))) - (let ((_%hd1067310730%_ + (##cdr _%e1056610613%_)))) + (if (gx#stx-pair? _%hd1056710617%_) + (let ((_%e1056910623%_ + (gx#syntax-e _%hd1056710617%_))) + (let ((_%hd1057010627%_ (let () (declare (not safe)) - (##car _%e1067210726%_))) - (_%tl1067410733%_ + (##car _%e1056910623%_))) + (_%tl1057110630%_ (let () (declare (not safe)) - (##cdr _%e1067210726%_)))) - (if (gx#stx-null? _%tl1067410733%_) - (if (gx#stx-pair? _%tl1067110723%_) - (let ((_%e1067510736%_ + (##cdr _%e1056910623%_)))) + (if (gx#stx-null? _%tl1057110630%_) + (if (gx#stx-pair? _%tl1056810620%_) + (let ((_%e1057210633%_ (gx#syntax-e - _%tl1067110723%_))) - (let ((_%hd1067610740%_ + _%tl1056810620%_))) + (let ((_%hd1057310637%_ (let () (declare (not safe)) - (##car _%e1067510736%_))) - (_%tl1067710743%_ + (##car _%e1057210633%_))) + (_%tl1057410640%_ (let () (declare (not safe)) - (##cdr _%e1067510736%_)))) + (##cdr _%e1057210633%_)))) (if (gx#stx-pair? - _%tl1067710743%_) - (let ((_%e1067810746%_ + _%tl1057410640%_) + (let ((_%e1057510643%_ (gx#syntax-e - _%tl1067710743%_))) - (let ((_%hd1067910750%_ + _%tl1057410640%_))) + (let ((_%hd1057610647%_ (let () (declare (not safe)) - (##car _%e1067810746%_))) - (_%tl1068010753%_ + (##car _%e1057510643%_))) + (_%tl1057710650%_ (let () (declare (not safe)) - (##cdr _%e1067810746%_)))) + (##cdr _%e1057510643%_)))) (if (gx#stx-pair? - _%tl1068010753%_) - (let ((_%e1068110756%_ + _%tl1057710650%_) + (let ((_%e1057810653%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1068010753%_))) - (let ((_%hd1068210760%_ + (gx#syntax-e _%tl1057710650%_))) + (let ((_%hd1057910657%_ (let () (declare (not safe)) - (##car _%e1068110756%_))) - (_%tl1068310763%_ + (##car _%e1057810653%_))) + (_%tl1058010660%_ (let () (declare (not safe)) - (##cdr _%e1068110756%_)))) - (if (gx#stx-null? _%tl1068310763%_) - ((lambda (_%L10766%_ - _%L10768%_ - _%L10769%_ - _%L10770%_ - _%L10771%_ - _%L10772%_) + (##cdr _%e1057810653%_)))) + (if (gx#stx-null? _%tl1058010660%_) + ((lambda (_%g1055410663%_ + _%g1055510665%_ + _%g1055610666%_ + _%g1055710667%_ + _%g1055810668%_ + _%g1055910669%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L10771%_ + (cons (cons _%g1055810668%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L10769%_ '()))) + (cons _%g1055610666%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'if) @@ -5314,13 +5357,14 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'char?) - (cons _%L10772%_ '())) + (cons _%g1055910669%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax '#f '##char->integer) - (cons _%L10772%_ '())) + (cons _%g1055910669%_ + '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax @@ -5331,209 +5375,210 @@ '#f '##fx>=) (cons (gx#datum->syntax '#f 'ix) - (cons _%L10768%_ '()))) + (cons _%g1055510665%_ '()))) (cons (cons (gx#datum->syntax '#f '##fx<) (cons (gx#datum->syntax '#f 'ix) - (cons _%L10766%_ '()))) + (cons _%g1055410663%_ '()))) '()))) - (cons _%L10770%_ (cons (cons _%L10771%_ '()) '())))) + (cons _%g1055710667%_ (cons (cons _%g1055810668%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _%L10771%_ '()) '())))) + (cons (cons _%g1055810668%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd1068210760%_ - _%hd1067910750%_ - _%hd1067610740%_ - _%hd1067310730%_ - _%hd1066710710%_ - _%hd1066410700%_) - (_%g1065510689%_ _%g1065610693%_)))) - (_%g1065510689%_ _%g1065610693%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1065510689%_ - _%g1065610693%_)))) - (_%g1065510689%_ _%g1065610693%_)) - (_%g1065510689%_ _%g1065610693%_)))) - (_%g1065510689%_ _%g1065610693%_)))) - (_%g1065510689%_ _%g1065610693%_)))) - (_%g1065510689%_ _%g1065610693%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1065510689%_ - _%g1065610693%_))))) - (_%g1065410806%_ - (list _%e10637%_ + _%hd1057910657%_ + _%hd1057610647%_ + _%hd1057310637%_ + _%hd1057010627%_ + _%hd1056410607%_ + _%hd1056110597%_) + (_%g1055210586%_ _%g1055310590%_)))) + (_%g1055210586%_ _%g1055310590%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1055210586%_ + _%g1055310590%_)))) + (_%g1055210586%_ _%g1055310590%_)) + (_%g1055210586%_ _%g1055310590%_)))) + (_%g1055210586%_ _%g1055310590%_)))) + (_%g1055210586%_ _%g1055310590%_)))) + (_%g1055210586%_ _%g1055310590%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1055210586%_ + _%g1055310590%_))))) + (_%g1055110703%_ + (list _%e10534%_ (gx#genident 'default) - _%dispatch10640%_ - _%default10641%_ - _%start10651%_ - _%end10653%_)))) - (let* ((_%g1081010854%_ - (lambda (_%g1081110850%_) + _%dispatch10537%_ + _%default10538%_ + _%start10548%_ + _%end10550%_)))) + (let* ((_%g1070710751%_ + (lambda (_%g1070810747%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1081110850%_))) - (_%g1080911010%_ - (lambda (_%g1081110858%_) - (if (gx#stx-pair? _%g1081110858%_) - (let ((_%e1081910861%_ + _%g1070810747%_))) + (_%g1070610905%_ + (lambda (_%g1070810755%_) + (if (gx#stx-pair? _%g1070810755%_) + (let ((_%e1071610758%_ (gx#syntax-e - _%g1081110858%_))) - (let ((_%hd1082010865%_ + _%g1070810755%_))) + (let ((_%hd1071710762%_ (let () (declare (not safe)) - (##car _%e1081910861%_))) - (_%tl1082110868%_ + (##car _%e1071610758%_))) + (_%tl1071810765%_ (let () (declare (not safe)) - (##cdr _%e1081910861%_)))) + (##cdr _%e1071610758%_)))) (if (gx#stx-pair? - _%tl1082110868%_) - (let ((_%e1082210871%_ + _%tl1071810765%_) + (let ((_%e1071910768%_ (gx#syntax-e - _%tl1082110868%_))) - (let ((_%hd1082310875%_ + _%tl1071810765%_))) + (let ((_%hd1072010772%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e1082210871%_))) - (_%tl1082410878%_ - (let () (declare (not safe)) (##cdr _%e1082210871%_)))) - (if (gx#stx-pair? _%tl1082410878%_) - (let ((_%e1082510881%_ (gx#syntax-e _%tl1082410878%_))) - (let ((_%hd1082610885%_ + (##car _%e1071910768%_))) + (_%tl1072110775%_ + (let () (declare (not safe)) (##cdr _%e1071910768%_)))) + (if (gx#stx-pair? _%tl1072110775%_) + (let ((_%e1072210778%_ (gx#syntax-e _%tl1072110775%_))) + (let ((_%hd1072310782%_ (let () (declare (not safe)) - (##car _%e1082510881%_))) - (_%tl1082710888%_ + (##car _%e1072210778%_))) + (_%tl1072410785%_ (let () (declare (not safe)) - (##cdr _%e1082510881%_)))) - (if (gx#stx-pair? _%tl1082710888%_) - (let ((_%e1082810891%_ - (gx#syntax-e _%tl1082710888%_))) - (let ((_%hd1082910895%_ + (##cdr _%e1072210778%_)))) + (if (gx#stx-pair? _%tl1072410785%_) + (let ((_%e1072510788%_ + (gx#syntax-e _%tl1072410785%_))) + (let ((_%hd1072610792%_ (let () (declare (not safe)) - (##car _%e1082810891%_))) - (_%tl1083010898%_ + (##car _%e1072510788%_))) + (_%tl1072710795%_ (let () (declare (not safe)) - (##cdr _%e1082810891%_)))) - (if (gx#stx-pair/null? _%hd1082910895%_) - (let ((_g20921_ + (##cdr _%e1072510788%_)))) + (if (gx#stx-pair/null? _%hd1072610792%_) + (let ((_g20758_ (gx#syntax-split-splice - _%hd1082910895%_ + _%hd1072610792%_ '0))) (begin - (let ((_g20922_ + (let ((_g20759_ (let () (declare (not safe)) - (if (##values? _g20921_) - (##values-length _g20921_) + (if (##values? _g20758_) + (##values-length _g20758_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20922_ 2))) + (##fx= _g20759_ 2))) (error "Context expects 2 values" - _g20922_))) - (let ((_%target1083110901%_ + _g20759_))) + (let ((_%target1072810798%_ (let () (declare (not safe)) - (##values-ref _g20921_ 0))) - (_%tl1083310904%_ + (##values-ref _g20758_ 0))) + (_%tl1073010801%_ (let () (declare (not safe)) - (##values-ref _g20921_ 1)))) - (if (gx#stx-null? _%tl1083310904%_) - (letrec ((_%loop1083410907%_ - (lambda (_%hd1083210911%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%dispatch1083810914%_) - (if (gx#stx-pair? _%hd1083210911%_) - (let ((_%e1083510917%_ (gx#syntax-e _%hd1083210911%_))) - (let ((_%lp-hd1083610921%_ + (##values-ref _g20758_ 1)))) + (if (gx#stx-null? _%tl1073010801%_) + (letrec ((_%loop1073110804%_ + (lambda (_%hd1072910808%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%dispatch1073510811%_) + (if (gx#stx-pair? _%hd1072910808%_) + (let ((_%e1073210813%_ (gx#syntax-e _%hd1072910808%_))) + (let ((_%lp-hd1073310817%_ (let () (declare (not safe)) - (##car _%e1083510917%_))) - (_%lp-tl1083710924%_ + (##car _%e1073210813%_))) + (_%lp-tl1073410820%_ (let () (declare (not safe)) - (##cdr _%e1083510917%_)))) - (_%loop1083410907%_ - _%lp-tl1083710924%_ - (cons _%lp-hd1083610921%_ _%dispatch1083810914%_)))) - (let ((_%dispatch1083910927%_ - (reverse _%dispatch1083810914%_))) - (if (gx#stx-pair? _%tl1083010898%_) - (let ((_%e1084010931%_ - (gx#syntax-e _%tl1083010898%_))) - (let ((_%hd1084110935%_ + (##cdr _%e1073210813%_)))) + (_%loop1073110804%_ + _%lp-tl1073410820%_ + (cons _%lp-hd1073310817%_ _%dispatch1073510811%_)))) + (let ((_%dispatch1073610823%_ + (reverse _%dispatch1073510811%_))) + (if (gx#stx-pair? _%tl1072710795%_) + (let ((_%e1073710826%_ + (gx#syntax-e _%tl1072710795%_))) + (let ((_%hd1073810830%_ (let () (declare (not safe)) - (##car _%e1084010931%_))) - (_%tl1084210938%_ + (##car _%e1073710826%_))) + (_%tl1073910833%_ (let () (declare (not safe)) - (##cdr _%e1084010931%_)))) - (if (gx#stx-pair? _%tl1084210938%_) - (let ((_%e1084310941%_ - (gx#syntax-e _%tl1084210938%_))) - (let ((_%hd1084410945%_ + (##cdr _%e1073710826%_)))) + (if (gx#stx-pair? _%tl1073910833%_) + (let ((_%e1074010836%_ + (gx#syntax-e _%tl1073910833%_))) + (let ((_%hd1074110840%_ (let () (declare (not safe)) - (##car _%e1084310941%_))) - (_%tl1084510948%_ + (##car _%e1074010836%_))) + (_%tl1074210843%_ (let () (declare (not safe)) - (##cdr _%e1084310941%_)))) - (if (gx#stx-pair? _%tl1084510948%_) - (let ((_%e1084610951%_ + (##cdr _%e1074010836%_)))) + (if (gx#stx-pair? _%tl1074210843%_) + (let ((_%e1074310846%_ (gx#syntax-e - _%tl1084510948%_))) - (let ((_%hd1084710955%_ + _%tl1074210843%_))) + (let ((_%hd1074410850%_ (let () (declare (not safe)) - (##car _%e1084610951%_))) - (_%tl1084810958%_ + (##car _%e1074310846%_))) + (_%tl1074510853%_ (let () (declare (not safe)) - (##cdr _%e1084610951%_)))) + (##cdr _%e1074310846%_)))) (if (gx#stx-null? - _%tl1084810958%_) - ((lambda (_%L10961%_ - _%L10963%_ - _%L10964%_ - _%L10965%_ - _%L10966%_ - _%L10967%_ - _%L10968%_) + _%tl1074510853%_) + ((lambda (_%g1070910856%_ + _%g1071010858%_ + _%g1071110859%_ + _%g1071210860%_ + _%g1071310861%_ + _%g1071410862%_ + _%g1071510863%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L10967%_ + (cons (cons (cons _%g1071410862%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L10964%_ + (cons _%g1071110859%_ '()))) '())) - (cons (cons _%L10966%_ + (cons (cons _%g1071310861%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L10963%_ '())) + (cons _%g1071010858%_ + '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'char?) - (cons _%L10968%_ '())) + (cons _%g1071510863%_ '())) (cons (cons (gx#datum->syntax '#f 'let) @@ -5544,12 +5589,13 @@ (cons (cons (gx#datum->syntax '#f '##char->integer) - (cons _%L10968%_ '())) + (cons _%g1071510863%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx<) (cons (gx#datum->syntax '#f 'ix) - (cons _%L10961%_ '()))) + (cons _%g1070910856%_ + '()))) (cons (cons (gx#datum->syntax '#f 'let) @@ -5558,7 +5604,7 @@ '#f 'x) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L10966%_ + (cons _%g1071310861%_ (cons (gx#datum->syntax '#f 'ix) '()))) '())) @@ -5570,255 +5616,257 @@ (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1100111004%_ + (foldr (lambda (_%g1089610899%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1100211007%_) - (cons _%g1100111004%_ _%g1100211007%_)) + _%g1089710902%_) + (cons _%g1089610899%_ _%g1089710902%_)) '() - _%L10965%_))) + _%g1071210860%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10967%_ '()) '())))) + (cons (cons _%g1071410862%_ '()) + '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10967%_ '()) + (cons (cons _%g1071410862%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10967%_ '()) + (cons (cons _%g1071410862%_ + '()) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1084710955%_ - _%hd1084410945%_ - _%hd1084110935%_ - _%dispatch1083910927%_ - _%hd1082610885%_ - _%hd1082310875%_ - _%hd1082010865%_) - (_%g1081010854%_ - _%g1081110858%_)))) - (_%g1081010854%_ - _%g1081110858%_)))) - (_%g1081010854%_ _%g1081110858%_)))) - (_%g1081010854%_ _%g1081110858%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1083410907%_ - _%target1083110901%_ + _%hd1074410850%_ + _%hd1074110840%_ + _%hd1073810830%_ + _%dispatch1073610823%_ + _%hd1072310782%_ + _%hd1072010772%_ + _%hd1071710762%_) + (_%g1070710751%_ + _%g1070810755%_)))) + (_%g1070710751%_ + _%g1070810755%_)))) + (_%g1070710751%_ _%g1070810755%_)))) + (_%g1070710751%_ _%g1070810755%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1073110804%_ + _%target1072810798%_ '())) - (_%g1081010854%_ - _%g1081110858%_))))) - (_%g1081010854%_ _%g1081110858%_)))) - (_%g1081010854%_ _%g1081110858%_)))) - (_%g1081010854%_ _%g1081110858%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1081010854%_ - _%g1081110858%_)))) - (_%g1081010854%_ - _%g1081110858%_))))) - (_%g1080911010%_ - (list _%e10637%_ + (_%g1070710751%_ + _%g1070810755%_))))) + (_%g1070710751%_ _%g1070810755%_)))) + (_%g1070710751%_ _%g1070810755%_)))) + (_%g1070710751%_ _%g1070810755%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1070710751%_ + _%g1070810755%_)))) + (_%g1070710751%_ + _%g1070810755%_))))) + (_%g1070610905%_ + (list _%e10534%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch10640%_ - _%default10641%_ - _%tab10646%_ - (vector-length _%tab10646%_)))))) - (_%generate-char-dispatch/hash9487%_ - _%e10637%_ - _%datums10639%_ - _%dispatch10640%_ - _%default10641%_)))) - (_%generate-char-dispatch/hash9487%_ - (lambda (_%e10415%_ - _%datums10417%_ - _%dispatch10418%_ - _%default10419%_) - (let* ((_%indexes10421%_ - (_%datum-dispatch-index9478%_ _%datums10417%_)) - (_%tab10424%_ - (_%generate-hash-dispatch-table9480%_ - _%indexes10421%_ + _%dispatch10537%_ + _%default10538%_ + _%tab10543%_ + (vector-length _%tab10543%_)))))) + (_%generate-char-dispatch/hash9394%_ + _%e10534%_ + _%datums10536%_ + _%dispatch10537%_ + _%default10538%_)))) + (_%generate-char-dispatch/hash9394%_ + (lambda (_%e10314%_ + _%datums10316%_ + _%dispatch10317%_ + _%default10318%_) + (let* ((_%indexes10320%_ + (_%datum-dispatch-index9385%_ _%datums10316%_)) + (_%tab10323%_ + (_%generate-hash-dispatch-table9387%_ + _%indexes10320%_ char->integer)) - (_%g1042910473%_ - (lambda (_%g1043010469%_) + (_%g1032810372%_ + (lambda (_%g1032910368%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1043010469%_))) - (_%g1042810633%_ - (lambda (_%g1043010477%_) - (if (gx#stx-pair? _%g1043010477%_) - (let ((_%e1043810480%_ - (gx#syntax-e _%g1043010477%_))) - (let ((_%hd1043910484%_ + _%g1032910368%_))) + (_%g1032710530%_ + (lambda (_%g1032910376%_) + (if (gx#stx-pair? _%g1032910376%_) + (let ((_%e1033710379%_ + (gx#syntax-e _%g1032910376%_))) + (let ((_%hd1033810383%_ (let () (declare (not safe)) - (##car _%e1043810480%_))) - (_%tl1044010487%_ + (##car _%e1033710379%_))) + (_%tl1033910386%_ (let () (declare (not safe)) - (##cdr _%e1043810480%_)))) - (if (gx#stx-pair? _%tl1044010487%_) - (let ((_%e1044110490%_ + (##cdr _%e1033710379%_)))) + (if (gx#stx-pair? _%tl1033910386%_) + (let ((_%e1034010389%_ (gx#syntax-e - _%tl1044010487%_))) - (let ((_%hd1044210494%_ + _%tl1033910386%_))) + (let ((_%hd1034110393%_ (let () (declare (not safe)) - (##car _%e1044110490%_))) - (_%tl1044310497%_ + (##car _%e1034010389%_))) + (_%tl1034210396%_ (let () (declare (not safe)) - (##cdr _%e1044110490%_)))) + (##cdr _%e1034010389%_)))) (if (gx#stx-pair? - _%tl1044310497%_) - (let ((_%e1044410500%_ + _%tl1034210396%_) + (let ((_%e1034310399%_ (gx#syntax-e - _%tl1044310497%_))) - (let ((_%hd1044510504%_ + _%tl1034210396%_))) + (let ((_%hd1034410403%_ (let () (declare (not safe)) - (##car _%e1044410500%_))) - (_%tl1044610507%_ + (##car _%e1034310399%_))) + (_%tl1034510406%_ (let () (declare (not safe)) - (##cdr _%e1044410500%_)))) + (##cdr _%e1034310399%_)))) (if (gx#stx-pair? - _%tl1044610507%_) - (let ((_%e1044710510%_ + _%tl1034510406%_) + (let ((_%e1034610409%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1044610507%_))) - (let ((_%hd1044810514%_ + (gx#syntax-e _%tl1034510406%_))) + (let ((_%hd1034710413%_ (let () (declare (not safe)) - (##car _%e1044710510%_))) - (_%tl1044910517%_ + (##car _%e1034610409%_))) + (_%tl1034810416%_ (let () (declare (not safe)) - (##cdr _%e1044710510%_)))) - (if (gx#stx-pair/null? _%hd1044810514%_) - (let ((_g20923_ - (gx#syntax-split-splice _%hd1044810514%_ '0))) + (##cdr _%e1034610409%_)))) + (if (gx#stx-pair/null? _%hd1034710413%_) + (let ((_g20760_ + (gx#syntax-split-splice _%hd1034710413%_ '0))) (begin - (let ((_g20924_ + (let ((_g20761_ (let () (declare (not safe)) - (if (##values? _g20923_) - (##values-length _g20923_) + (if (##values? _g20760_) + (##values-length _g20760_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20924_ 2))) + (##fx= _g20761_ 2))) (error "Context expects 2 values" - _g20924_))) - (let ((_%target1045010520%_ + _g20761_))) + (let ((_%target1034910419%_ (let () (declare (not safe)) - (##values-ref _g20923_ 0))) - (_%tl1045210523%_ + (##values-ref _g20760_ 0))) + (_%tl1035110422%_ (let () (declare (not safe)) - (##values-ref _g20923_ 1)))) - (if (gx#stx-null? _%tl1045210523%_) - (letrec ((_%loop1045310526%_ - (lambda (_%hd1045110530%_ - _%dispatch1045710533%_) + (##values-ref _g20760_ 1)))) + (if (gx#stx-null? _%tl1035110422%_) + (letrec ((_%loop1035210425%_ + (lambda (_%hd1035010429%_ + _%dispatch1035610432%_) (if (gx#stx-pair? - _%hd1045110530%_) - (let ((_%e1045410536%_ + _%hd1035010429%_) + (let ((_%e1035310434%_ (gx#syntax-e - _%hd1045110530%_))) - (let ((_%lp-hd1045510540%_ + _%hd1035010429%_))) + (let ((_%lp-hd1035410438%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e1045410536%_))) - (_%lp-tl1045610543%_ - (let () (declare (not safe)) (##cdr _%e1045410536%_)))) - (_%loop1045310526%_ - _%lp-tl1045610543%_ - (cons _%lp-hd1045510540%_ _%dispatch1045710533%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%dispatch1045810546%_ - (reverse _%dispatch1045710533%_))) + (##car _%e1035310434%_))) + (_%lp-tl1035510441%_ + (let () (declare (not safe)) (##cdr _%e1035310434%_)))) + (_%loop1035210425%_ + _%lp-tl1035510441%_ + (cons _%lp-hd1035410438%_ _%dispatch1035610432%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%dispatch1035710444%_ + (reverse _%dispatch1035610432%_))) (if (gx#stx-pair? - _%tl1044910517%_) - (let ((_%e1045910550%_ + _%tl1034810416%_) + (let ((_%e1035810447%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1044910517%_))) - (let ((_%hd1046010554%_ + (gx#syntax-e _%tl1034810416%_))) + (let ((_%hd1035910451%_ (let () (declare (not safe)) - (##car _%e1045910550%_))) - (_%tl1046110557%_ + (##car _%e1035810447%_))) + (_%tl1036010454%_ (let () (declare (not safe)) - (##cdr _%e1045910550%_)))) - (if (gx#stx-pair? _%tl1046110557%_) - (let ((_%e1046210560%_ - (gx#syntax-e _%tl1046110557%_))) - (let ((_%hd1046310564%_ + (##cdr _%e1035810447%_)))) + (if (gx#stx-pair? _%tl1036010454%_) + (let ((_%e1036110457%_ + (gx#syntax-e _%tl1036010454%_))) + (let ((_%hd1036210461%_ (let () (declare (not safe)) - (##car _%e1046210560%_))) - (_%tl1046410567%_ + (##car _%e1036110457%_))) + (_%tl1036310464%_ (let () (declare (not safe)) - (##cdr _%e1046210560%_)))) - (if (gx#stx-pair? _%tl1046410567%_) - (let ((_%e1046510570%_ - (gx#syntax-e _%tl1046410567%_))) - (let ((_%hd1046610574%_ + (##cdr _%e1036110457%_)))) + (if (gx#stx-pair? _%tl1036310464%_) + (let ((_%e1036410467%_ + (gx#syntax-e _%tl1036310464%_))) + (let ((_%hd1036510471%_ (let () (declare (not safe)) - (##car _%e1046510570%_))) - (_%tl1046710577%_ + (##car _%e1036410467%_))) + (_%tl1036610474%_ (let () (declare (not safe)) - (##cdr _%e1046510570%_)))) - (if (gx#stx-null? _%tl1046710577%_) - ((lambda (_%L10580%_ - _%L10582%_ - _%L10583%_ - _%L10584%_ - _%L10585%_ - _%L10586%_ - _%L10587%_) + (##cdr _%e1036410467%_)))) + (if (gx#stx-null? _%tl1036610474%_) + ((lambda (_%g1033010477%_ + _%g1033110479%_ + _%g1033210480%_ + _%g1033310481%_ + _%g1033410482%_ + _%g1033510483%_ + _%g1033610484%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L10586%_ + (cons (cons (cons _%g1033510483%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) - (cons '() (cons _%L10583%_ '()))) + (cons '() (cons _%g1033210480%_ '()))) '())) - (cons (cons _%L10585%_ + (cons (cons _%g1033410482%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L10582%_ '())) + (cons _%g1033110479%_ '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'char?) - (cons _%L10587%_ '())) + (cons _%g1033610484%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'h) (cons (cons (gx#datum->syntax '#f '##char->integer) - (cons _%L10587%_ '())) + (cons _%g1033610484%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax '#f '##fxmodulo) (cons (gx#datum->syntax '#f 'h) - (cons _%L10580%_ '()))) + (cons _%g1033010477%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L10585%_ + (cons _%g1033410482%_ (cons (gx#datum->syntax '#f 'ix) @@ -5840,7 +5888,7 @@ '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _%L10587%_ '()))) + (cons _%g1033610484%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -5855,260 +5903,261 @@ '())) (cons (cons (gx#datum->syntax '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1062410627%_ - _%g1062510630%_) - (cons _%g1062410627%_ - _%g1062510630%_)) + (foldr (lambda (_%g1052110524%_ + _%g1052210527%_) + (cons _%g1052110524%_ + _%g1052210527%_)) '() - _%L10584%_))) + _%g1033310481%_))) '()))) - (cons (cons _%L10586%_ '()) '())))) + (cons (cons _%g1033510483%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10586%_ '()) '())))) + (cons (cons _%g1033510483%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10586%_ '()) '())))) + (cons (cons _%g1033510483%_ '()) + '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1046610574%_ - _%hd1046310564%_ - _%hd1046010554%_ - _%dispatch1045810546%_ - _%hd1044510504%_ - _%hd1044210494%_ - _%hd1043910484%_) - (_%g1042910473%_ _%g1043010477%_)))) - (_%g1042910473%_ _%g1043010477%_)))) - (_%g1042910473%_ _%g1043010477%_)))) - (_%g1042910473%_ _%g1043010477%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1045310526%_ - _%target1045010520%_ + _%hd1036510471%_ + _%hd1036210461%_ + _%hd1035910451%_ + _%dispatch1035710444%_ + _%hd1034410403%_ + _%hd1034110393%_ + _%hd1033810383%_) + (_%g1032810372%_ _%g1032910376%_)))) + (_%g1032810372%_ _%g1032910376%_)))) + (_%g1032810372%_ _%g1032910376%_)))) + (_%g1032810372%_ _%g1032910376%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1035210425%_ + _%target1034910419%_ '())) - (_%g1042910473%_ _%g1043010477%_))))) - (_%g1042910473%_ _%g1043010477%_)))) - (_%g1042910473%_ _%g1043010477%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1042910473%_ - _%g1043010477%_)))) - (_%g1042910473%_ _%g1043010477%_)))) - (_%g1042910473%_ _%g1043010477%_))))) - (_%g1042810633%_ - (list _%e10415%_ + (_%g1032810372%_ _%g1032910376%_))))) + (_%g1032810372%_ _%g1032910376%_)))) + (_%g1032810372%_ _%g1032910376%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1032810372%_ + _%g1032910376%_)))) + (_%g1032810372%_ _%g1032910376%_)))) + (_%g1032810372%_ _%g1032910376%_))))) + (_%g1032710530%_ + (list _%e10314%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch10418%_ - _%default10419%_ - _%tab10424%_ - (vector-length _%tab10424%_)))))) - (_%min-fixnum9488%_ - (lambda (_%datums10408%_) - (foldl (lambda (_%lst10411%_ _%r10413%_) - (foldl min _%r10413%_ _%lst10411%_)) + _%dispatch10317%_ + _%default10318%_ + _%tab10323%_ + (vector-length _%tab10323%_)))))) + (_%min-fixnum9395%_ + (lambda (_%datums10307%_) + (foldl (lambda (_%lst10310%_ _%r10312%_) + (foldl min _%r10312%_ _%lst10310%_)) ##max-fixnum - _%datums10408%_))) - (_%max-fixnum9489%_ - (lambda (_%datums10401%_) - (foldl (lambda (_%lst10404%_ _%r10406%_) - (foldl max _%r10406%_ _%lst10404%_)) + _%datums10307%_))) + (_%max-fixnum9396%_ + (lambda (_%datums10300%_) + (foldl (lambda (_%lst10303%_ _%r10305%_) + (foldl max _%r10305%_ _%lst10303%_)) ##min-fixnum - _%datums10401%_))) - (_%generate-fixnum-dispatch-table9490%_ - (lambda (_%indexes10383%_) - (let* ((_%ixs10386%_ (map car _%indexes10383%_)) - (_%len10389%_ (fx1+ (foldl max '0 _%ixs10386%_))) - (_%vec10392%_ (make-vector _%len10389%_ '#f))) + _%datums10300%_))) + (_%generate-fixnum-dispatch-table9397%_ + (lambda (_%indexes10282%_) + (let* ((_%ixs10285%_ (map car _%indexes10282%_)) + (_%len10288%_ (fx1+ (foldl max '0 _%ixs10285%_))) + (_%vec10291%_ (make-vector _%len10288%_ '#f))) (for-each - (lambda (_%entry10397%_ _%x10399%_) + (lambda (_%entry10296%_ _%x10298%_) (vector-set! - _%vec10392%_ - _%x10399%_ - (cdr _%entry10397%_))) - _%indexes10383%_ - _%ixs10386%_) - _%vec10392%_))) - (_%generate-fixnum-dispatch9491%_ - (lambda (_%e10117%_ - _%datums10119%_ - _%dispatch10120%_ - _%default10121%_) - (if (and (>= (_%min-fixnum9488%_ _%datums10119%_) '0) - (< (_%max-fixnum9489%_ _%datums10119%_) '1024)) - (let* ((_%indexes10123%_ - (_%datum-dispatch-index9478%_ _%datums10119%_)) - (_%tab10126%_ - (_%generate-fixnum-dispatch-table9490%_ - _%indexes10123%_)) - (_%dense?10129%_ - (andmap values (vector->list _%tab10126%_))) - (_%g1013410178%_ - (lambda (_%g1013510174%_) + _%vec10291%_ + _%x10298%_ + (cdr _%entry10296%_))) + _%indexes10282%_ + _%ixs10285%_) + _%vec10291%_))) + (_%generate-fixnum-dispatch9398%_ + (lambda (_%e10018%_ + _%datums10020%_ + _%dispatch10021%_ + _%default10022%_) + (if (and (>= (_%min-fixnum9395%_ _%datums10020%_) '0) + (< (_%max-fixnum9396%_ _%datums10020%_) '1024)) + (let* ((_%indexes10024%_ + (_%datum-dispatch-index9385%_ _%datums10020%_)) + (_%tab10027%_ + (_%generate-fixnum-dispatch-table9397%_ + _%indexes10024%_)) + (_%dense?10030%_ + (andmap values (vector->list _%tab10027%_))) + (_%g1003510079%_ + (lambda (_%g1003610075%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1013510174%_))) - (_%g1013310379%_ - (lambda (_%g1013510182%_) - (if (gx#stx-pair? _%g1013510182%_) - (let ((_%e1014310185%_ - (gx#syntax-e _%g1013510182%_))) - (let ((_%hd1014410189%_ + _%g1003610075%_))) + (_%g1003410278%_ + (lambda (_%g1003610083%_) + (if (gx#stx-pair? _%g1003610083%_) + (let ((_%e1004410086%_ + (gx#syntax-e _%g1003610083%_))) + (let ((_%hd1004510090%_ (let () (declare (not safe)) - (##car _%e1014310185%_))) - (_%tl1014510192%_ + (##car _%e1004410086%_))) + (_%tl1004610093%_ (let () (declare (not safe)) - (##cdr _%e1014310185%_)))) - (if (gx#stx-pair? _%tl1014510192%_) - (let ((_%e1014610195%_ + (##cdr _%e1004410086%_)))) + (if (gx#stx-pair? _%tl1004610093%_) + (let ((_%e1004710096%_ (gx#syntax-e - _%tl1014510192%_))) - (let ((_%hd1014710199%_ + _%tl1004610093%_))) + (let ((_%hd1004810100%_ (let () (declare (not safe)) - (##car _%e1014610195%_))) - (_%tl1014810202%_ + (##car _%e1004710096%_))) + (_%tl1004910103%_ (let () (declare (not safe)) - (##cdr _%e1014610195%_)))) + (##cdr _%e1004710096%_)))) (if (gx#stx-pair? - _%tl1014810202%_) - (let ((_%e1014910205%_ + _%tl1004910103%_) + (let ((_%e1005010106%_ (gx#syntax-e - _%tl1014810202%_))) - (let ((_%hd1015010209%_ + _%tl1004910103%_))) + (let ((_%hd1005110110%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e1014910205%_))) - (_%tl1015110212%_ - (let () (declare (not safe)) (##cdr _%e1014910205%_)))) - (if (gx#stx-pair? _%tl1015110212%_) - (let ((_%e1015210215%_ (gx#syntax-e _%tl1015110212%_))) - (let ((_%hd1015310219%_ + (##car _%e1005010106%_))) + (_%tl1005210113%_ + (let () (declare (not safe)) (##cdr _%e1005010106%_)))) + (if (gx#stx-pair? _%tl1005210113%_) + (let ((_%e1005310116%_ (gx#syntax-e _%tl1005210113%_))) + (let ((_%hd1005410120%_ (let () (declare (not safe)) - (##car _%e1015210215%_))) - (_%tl1015410222%_ + (##car _%e1005310116%_))) + (_%tl1005510123%_ (let () (declare (not safe)) - (##cdr _%e1015210215%_)))) - (if (gx#stx-pair/null? _%hd1015310219%_) - (let ((_g20925_ + (##cdr _%e1005310116%_)))) + (if (gx#stx-pair/null? _%hd1005410120%_) + (let ((_g20762_ (gx#syntax-split-splice - _%hd1015310219%_ + _%hd1005410120%_ '0))) (begin - (let ((_g20926_ + (let ((_g20763_ (let () (declare (not safe)) - (if (##values? _g20925_) - (##values-length _g20925_) + (if (##values? _g20762_) + (##values-length _g20762_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20926_ 2))) + (##fx= _g20763_ 2))) (error "Context expects 2 values" - _g20926_))) - (let ((_%target1015510225%_ + _g20763_))) + (let ((_%target1005610126%_ (let () (declare (not safe)) - (##values-ref _g20925_ 0))) - (_%tl1015710228%_ + (##values-ref _g20762_ 0))) + (_%tl1005810129%_ (let () (declare (not safe)) - (##values-ref _g20925_ 1)))) - (if (gx#stx-null? _%tl1015710228%_) - (letrec ((_%loop1015810231%_ - (lambda (_%hd1015610235%_ - _%dispatch1016210238%_) + (##values-ref _g20762_ 1)))) + (if (gx#stx-null? _%tl1005810129%_) + (letrec ((_%loop1005910132%_ + (lambda (_%hd1005710136%_ + _%dispatch1006310139%_) (if (gx#stx-pair? - _%hd1015610235%_) - (let ((_%e1015910241%_ + _%hd1005710136%_) + (let ((_%e1006010141%_ (gx#syntax-e - _%hd1015610235%_))) - (let ((_%lp-hd1016010245%_ + _%hd1005710136%_))) + (let ((_%lp-hd1006110145%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e1015910241%_))) - (_%lp-tl1016110248%_ + (let () (declare (not safe)) (##car _%e1006010141%_))) + (_%lp-tl1006210148%_ (let () (declare (not safe)) - (##cdr _%e1015910241%_)))) - (_%loop1015810231%_ - _%lp-tl1016110248%_ - (cons _%lp-hd1016010245%_ _%dispatch1016210238%_)))) - (let ((_%dispatch1016310251%_ - (reverse _%dispatch1016210238%_))) - (if (gx#stx-pair? _%tl1015410222%_) - (let ((_%e1016410255%_ (gx#syntax-e _%tl1015410222%_))) - (let ((_%hd1016510259%_ + (##cdr _%e1006010141%_)))) + (_%loop1005910132%_ + _%lp-tl1006210148%_ + (cons _%lp-hd1006110145%_ _%dispatch1006310139%_)))) + (let ((_%dispatch1006410151%_ + (reverse _%dispatch1006310139%_))) + (if (gx#stx-pair? _%tl1005510123%_) + (let ((_%e1006510154%_ (gx#syntax-e _%tl1005510123%_))) + (let ((_%hd1006610158%_ (let () (declare (not safe)) - (##car _%e1016410255%_))) - (_%tl1016610262%_ + (##car _%e1006510154%_))) + (_%tl1006710161%_ (let () (declare (not safe)) - (##cdr _%e1016410255%_)))) - (if (gx#stx-pair? _%tl1016610262%_) - (let ((_%e1016710265%_ - (gx#syntax-e _%tl1016610262%_))) - (let ((_%hd1016810269%_ + (##cdr _%e1006510154%_)))) + (if (gx#stx-pair? _%tl1006710161%_) + (let ((_%e1006810164%_ + (gx#syntax-e _%tl1006710161%_))) + (let ((_%hd1006910168%_ (let () (declare (not safe)) - (##car _%e1016710265%_))) - (_%tl1016910272%_ + (##car _%e1006810164%_))) + (_%tl1007010171%_ (let () (declare (not safe)) - (##cdr _%e1016710265%_)))) - (if (gx#stx-pair? _%tl1016910272%_) - (let ((_%e1017010275%_ - (gx#syntax-e _%tl1016910272%_))) - (let ((_%hd1017110279%_ + (##cdr _%e1006810164%_)))) + (if (gx#stx-pair? _%tl1007010171%_) + (let ((_%e1007110174%_ + (gx#syntax-e _%tl1007010171%_))) + (let ((_%hd1007210178%_ (let () (declare (not safe)) - (##car _%e1017010275%_))) - (_%tl1017210282%_ + (##car _%e1007110174%_))) + (_%tl1007310181%_ (let () (declare (not safe)) - (##cdr _%e1017010275%_)))) - (if (gx#stx-null? _%tl1017210282%_) - ((lambda (_%L10285%_ - _%L10287%_ - _%L10288%_ - _%L10289%_ - _%L10290%_ - _%L10291%_ - _%L10292%_) - (let* ((_%g1033110339%_ - (lambda (_%g1033210335%_) + (##cdr _%e1007110174%_)))) + (if (gx#stx-null? _%tl1007310181%_) + ((lambda (_%g1003710184%_ + _%g1003810186%_ + _%g1003910187%_ + _%g1004010188%_ + _%g1004110189%_ + _%g1004210190%_ + _%g1004310191%_) + (let* ((_%g1023010238%_ + (lambda (_%g1023110234%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1033210335%_))) - (_%g1033010359%_ - (lambda (_%g1033210343%_) - ((lambda (_%L10346%_) + _%g1023110234%_))) + (_%g1022910258%_ + (lambda (_%g1023110242%_) + ((lambda (_%g1023210245%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let) - (cons (cons (cons _%L10291%_ + (cons (cons (cons _%g1004210190%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L10288%_ + (cons _%g1003910187%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons _%L10290%_ + (cons (cons _%g1004110189%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L10287%_ '())) + (cons _%g1003810186%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -6116,7 +6165,7 @@ (cons (cons (gx#datum->syntax '#f 'fixnum?) - (cons _%L10292%_ + (cons _%g1004310191%_ '())) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -6124,13 +6173,13 @@ 'if) (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax '#f '##fx>=) - (cons _%L10292%_ + (cons _%g1004310191%_ (cons '0 '()))) (cons (cons (gx#datum->syntax '#f '##fx<) - (cons _%L10292%_ - (cons _%L10285%_ + (cons _%g1004310191%_ + (cons _%g1003710184%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -6141,18 +6190,18 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##vector-ref) - (cons _%L10290%_ (cons _%L10292%_ '()))) + (cons _%g1004110189%_ (cons _%g1004310191%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L10346%_ '()))) - (cons (cons _%L10291%_ '()) '())))) - (cons (cons _%L10291%_ '()) '())))) + (cons _%g1023210245%_ '()))) + (cons (cons _%g1004210190%_ '()) '())))) + (cons (cons _%g1004210190%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%g1033210343%_)))) + _%g1023110242%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1033010359%_ - (if _%dense?10129%_ + (_%g1022910258%_ + (if _%dense?10030%_ (cons (gx#datum->syntax '#f '~case-dispatch) @@ -6160,238 +6209,237 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'x) - (foldr (lambda (_%g1036210365%_ _%g1036310368%_) - (cons _%g1036210365%_ _%g1036310368%_)) + (foldr (lambda (_%g1026110264%_ _%g1026210267%_) + (cons _%g1026110264%_ _%g1026210267%_)) '() - _%L10289%_))) + _%g1004010188%_))) (cons (gx#datum->syntax '#f 'if) (cons (gx#datum->syntax '#f 'x) (cons (cons (gx#datum->syntax '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1037010373%_ - _%g1037110376%_) - (cons _%g1037010373%_ - _%g1037110376%_)) + (foldr (lambda (_%g1026910272%_ + _%g1027010275%_) + (cons _%g1026910272%_ + _%g1027010275%_)) '() - _%L10289%_))) - (cons (cons _%L10291%_ '()) '())))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1017110279%_ - _%hd1016810269%_ - _%hd1016510259%_ - _%dispatch1016310251%_ - _%hd1015010209%_ - _%hd1014710199%_ - _%hd1014410189%_) - (_%g1013410178%_ - _%g1013510182%_)))) - (_%g1013410178%_ _%g1013510182%_)))) - (_%g1013410178%_ _%g1013510182%_)))) - (_%g1013410178%_ _%g1013510182%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1015810231%_ - _%target1015510225%_ + _%g1004010188%_))) + (cons (cons _%g1004210190%_ '()) '())))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd1007210178%_ + _%hd1006910168%_ + _%hd1006610158%_ + _%dispatch1006410151%_ + _%hd1005110110%_ + _%hd1004810100%_ + _%hd1004510090%_) + (_%g1003510079%_ + _%g1003610083%_)))) + (_%g1003510079%_ _%g1003610083%_)))) + (_%g1003510079%_ _%g1003610083%_)))) + (_%g1003510079%_ _%g1003610083%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1005910132%_ + _%target1005610126%_ '())) - (_%g1013410178%_ _%g1013510182%_))))) - (_%g1013410178%_ _%g1013510182%_)))) - (_%g1013410178%_ _%g1013510182%_)))) - (_%g1013410178%_ _%g1013510182%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1013410178%_ - _%g1013510182%_)))) - (_%g1013410178%_ _%g1013510182%_))))) - (_%g1013310379%_ - (list _%e10117%_ + (_%g1003510079%_ _%g1003610083%_))))) + (_%g1003510079%_ _%g1003610083%_)))) + (_%g1003510079%_ _%g1003610083%_)))) + (_%g1003510079%_ _%g1003610083%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1003510079%_ + _%g1003610083%_)))) + (_%g1003510079%_ _%g1003610083%_))))) + (_%g1003410278%_ + (list _%e10018%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch10120%_ - _%default10121%_ - _%tab10126%_ - (vector-length _%tab10126%_)))) - (_%generate-fixnum-dispatch/hash9492%_ - _%e10117%_ - _%datums10119%_ - _%dispatch10120%_ - _%default10121%_)))) - (_%generate-fixnum-dispatch/hash9492%_ - (lambda (_%e9895%_ - _%datums9897%_ - _%dispatch9898%_ - _%default9899%_) - (let* ((_%indexes9901%_ - (_%datum-dispatch-index9478%_ _%datums9897%_)) - (_%tab9904%_ - (_%generate-hash-dispatch-table9480%_ - _%indexes9901%_ + _%dispatch10021%_ + _%default10022%_ + _%tab10027%_ + (vector-length _%tab10027%_)))) + (_%generate-fixnum-dispatch/hash9399%_ + _%e10018%_ + _%datums10020%_ + _%dispatch10021%_ + _%default10022%_)))) + (_%generate-fixnum-dispatch/hash9399%_ + (lambda (_%e9798%_ + _%datums9800%_ + _%dispatch9801%_ + _%default9802%_) + (let* ((_%indexes9804%_ + (_%datum-dispatch-index9385%_ _%datums9800%_)) + (_%tab9807%_ + (_%generate-hash-dispatch-table9387%_ + _%indexes9804%_ values)) - (_%g99099953%_ - (lambda (_%g99109949%_) + (_%g98129856%_ + (lambda (_%g98139852%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g99109949%_))) - (_%g990810113%_ - (lambda (_%g99109957%_) - (if (gx#stx-pair? _%g99109957%_) - (let ((_%e99189960%_ - (gx#syntax-e _%g99109957%_))) - (let ((_%hd99199964%_ + _%g98139852%_))) + (_%g981110014%_ + (lambda (_%g98139860%_) + (if (gx#stx-pair? _%g98139860%_) + (let ((_%e98219863%_ + (gx#syntax-e _%g98139860%_))) + (let ((_%hd98229867%_ (let () (declare (not safe)) - (##car _%e99189960%_))) - (_%tl99209967%_ + (##car _%e98219863%_))) + (_%tl98239870%_ (let () (declare (not safe)) - (##cdr _%e99189960%_)))) - (if (gx#stx-pair? _%tl99209967%_) - (let ((_%e99219970%_ - (gx#syntax-e _%tl99209967%_))) - (let ((_%hd99229974%_ + (##cdr _%e98219863%_)))) + (if (gx#stx-pair? _%tl98239870%_) + (let ((_%e98249873%_ + (gx#syntax-e _%tl98239870%_))) + (let ((_%hd98259877%_ (let () (declare (not safe)) - (##car _%e99219970%_))) - (_%tl99239977%_ + (##car _%e98249873%_))) + (_%tl98269880%_ (let () (declare (not safe)) - (##cdr _%e99219970%_)))) - (if (gx#stx-pair? _%tl99239977%_) - (let ((_%e99249980%_ + (##cdr _%e98249873%_)))) + (if (gx#stx-pair? _%tl98269880%_) + (let ((_%e98279883%_ (gx#syntax-e - _%tl99239977%_))) - (let ((_%hd99259984%_ + _%tl98269880%_))) + (let ((_%hd98289887%_ (let () (declare (not safe)) - (##car _%e99249980%_))) - (_%tl99269987%_ + (##car _%e98279883%_))) + (_%tl98299890%_ (let () (declare (not safe)) - (##cdr _%e99249980%_)))) + (##cdr _%e98279883%_)))) (if (gx#stx-pair? - _%tl99269987%_) - (let ((_%e99279990%_ + _%tl98299890%_) + (let ((_%e98309893%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl99269987%_))) - (let ((_%hd99289994%_ - (let () (declare (not safe)) (##car _%e99279990%_))) - (_%tl99299997%_ + (gx#syntax-e _%tl98299890%_))) + (let ((_%hd98319897%_ + (let () (declare (not safe)) (##car _%e98309893%_))) + (_%tl98329900%_ (let () (declare (not safe)) - (##cdr _%e99279990%_)))) - (if (gx#stx-pair/null? _%hd99289994%_) - (let ((_g20927_ - (gx#syntax-split-splice _%hd99289994%_ '0))) + (##cdr _%e98309893%_)))) + (if (gx#stx-pair/null? _%hd98319897%_) + (let ((_g20764_ + (gx#syntax-split-splice _%hd98319897%_ '0))) (begin - (let ((_g20928_ + (let ((_g20765_ (let () (declare (not safe)) - (if (##values? _g20927_) - (##values-length _g20927_) + (if (##values? _g20764_) + (##values-length _g20764_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20928_ 2))) + (##fx= _g20765_ 2))) (error "Context expects 2 values" - _g20928_))) - (let ((_%target993010000%_ + _g20765_))) + (let ((_%target98339903%_ (let () (declare (not safe)) - (##values-ref _g20927_ 0))) - (_%tl993210003%_ + (##values-ref _g20764_ 0))) + (_%tl98359906%_ (let () (declare (not safe)) - (##values-ref _g20927_ 1)))) - (if (gx#stx-null? _%tl993210003%_) - (letrec ((_%loop993310006%_ - (lambda (_%hd993110010%_ - _%dispatch993710013%_) + (##values-ref _g20764_ 1)))) + (if (gx#stx-null? _%tl98359906%_) + (letrec ((_%loop98369909%_ + (lambda (_%hd98349913%_ + _%dispatch98409916%_) (if (gx#stx-pair? - _%hd993110010%_) - (let ((_%e993410016%_ + _%hd98349913%_) + (let ((_%e98379918%_ (gx#syntax-e - _%hd993110010%_))) - (let ((_%lp-hd993510020%_ + _%hd98349913%_))) + (let ((_%lp-hd98389922%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e993410016%_))) - (_%lp-tl993610023%_ - (let () (declare (not safe)) (##cdr _%e993410016%_)))) - (_%loop993310006%_ - _%lp-tl993610023%_ - (cons _%lp-hd993510020%_ _%dispatch993710013%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%dispatch993810026%_ - (reverse _%dispatch993710013%_))) + (##car _%e98379918%_))) + (_%lp-tl98399925%_ + (let () (declare (not safe)) (##cdr _%e98379918%_)))) + (_%loop98369909%_ + _%lp-tl98399925%_ + (cons _%lp-hd98389922%_ _%dispatch98409916%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%dispatch98419928%_ + (reverse _%dispatch98409916%_))) (if (gx#stx-pair? - _%tl99299997%_) - (let ((_%e993910030%_ + _%tl98329900%_) + (let ((_%e98429931%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl99299997%_))) - (let ((_%hd994010034%_ + (gx#syntax-e _%tl98329900%_))) + (let ((_%hd98439935%_ + (let () (declare (not safe)) (##car _%e98429931%_))) + (_%tl98449938%_ (let () (declare (not safe)) - (##car _%e993910030%_))) - (_%tl994110037%_ - (let () - (declare (not safe)) - (##cdr _%e993910030%_)))) - (if (gx#stx-pair? _%tl994110037%_) - (let ((_%e994210040%_ (gx#syntax-e _%tl994110037%_))) - (let ((_%hd994310044%_ + (##cdr _%e98429931%_)))) + (if (gx#stx-pair? _%tl98449938%_) + (let ((_%e98459941%_ (gx#syntax-e _%tl98449938%_))) + (let ((_%hd98469945%_ (let () (declare (not safe)) - (##car _%e994210040%_))) - (_%tl994410047%_ + (##car _%e98459941%_))) + (_%tl98479948%_ (let () (declare (not safe)) - (##cdr _%e994210040%_)))) - (if (gx#stx-pair? _%tl994410047%_) - (let ((_%e994510050%_ - (gx#syntax-e _%tl994410047%_))) - (let ((_%hd994610054%_ + (##cdr _%e98459941%_)))) + (if (gx#stx-pair? _%tl98479948%_) + (let ((_%e98489951%_ + (gx#syntax-e _%tl98479948%_))) + (let ((_%hd98499955%_ (let () (declare (not safe)) - (##car _%e994510050%_))) - (_%tl994710057%_ + (##car _%e98489951%_))) + (_%tl98509958%_ (let () (declare (not safe)) - (##cdr _%e994510050%_)))) - (if (gx#stx-null? _%tl994710057%_) - ((lambda (_%L10060%_ - _%L10062%_ - _%L10063%_ - _%L10064%_ - _%L10065%_ - _%L10066%_ - _%L10067%_) + (##cdr _%e98489951%_)))) + (if (gx#stx-null? _%tl98509958%_) + ((lambda (_%g98149961%_ + _%g98159963%_ + _%g98169964%_ + _%g98179965%_ + _%g98189966%_ + _%g98199967%_ + _%g98209968%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L10066%_ + (cons (cons (cons _%g98199967%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) - (cons '() (cons _%L10063%_ '()))) + (cons '() (cons _%g98169964%_ '()))) '())) - (cons (cons _%L10065%_ + (cons (cons _%g98189966%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L10062%_ '())) + (cons _%g98159963%_ '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'fixnum?) - (cons _%L10067%_ '())) + (cons _%g98209968%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'ix) (cons (cons (gx#datum->syntax '#f '##fxmodulo) - (cons _%L10067%_ (cons _%L10060%_ '()))) + (cons _%g98209968%_ + (cons _%g98149961%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L10065%_ + (cons _%g98189966%_ (cons (gx#datum->syntax '#f 'ix) @@ -6413,7 +6461,7 @@ '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _%L10067%_ '()))) + (cons _%g98209968%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -6428,257 +6476,257 @@ '())) (cons (cons (gx#datum->syntax '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1010410107%_ - _%g1010510110%_) - (cons _%g1010410107%_ - _%g1010510110%_)) + (foldr (lambda (_%g1000510008%_ + _%g1000610011%_) + (cons _%g1000510008%_ + _%g1000610011%_)) '() - _%L10064%_))) + _%g98179965%_))) '()))) - (cons (cons _%L10066%_ '()) '())))) + (cons (cons _%g98199967%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10066%_ '()) '())))) + (cons (cons _%g98199967%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10066%_ '()) '())))) + (cons (cons _%g98199967%_ '()) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd994610054%_ - _%hd994310044%_ - _%hd994010034%_ - _%dispatch993810026%_ - _%hd99259984%_ - _%hd99229974%_ - _%hd99199964%_) - (_%g99099953%_ _%g99109957%_)))) - (_%g99099953%_ _%g99109957%_)))) - (_%g99099953%_ _%g99109957%_)))) - (_%g99099953%_ _%g99109957%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop993310006%_ - _%target993010000%_ + _%hd98499955%_ + _%hd98469945%_ + _%hd98439935%_ + _%dispatch98419928%_ + _%hd98289887%_ + _%hd98259877%_ + _%hd98229867%_) + (_%g98129856%_ _%g98139860%_)))) + (_%g98129856%_ _%g98139860%_)))) + (_%g98129856%_ _%g98139860%_)))) + (_%g98129856%_ _%g98139860%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop98369909%_ + _%target98339903%_ '())) - (_%g99099953%_ _%g99109957%_))))) - (_%g99099953%_ _%g99109957%_)))) - (_%g99099953%_ _%g99109957%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g99099953%_ - _%g99109957%_)))) - (_%g99099953%_ _%g99109957%_)))) - (_%g99099953%_ _%g99109957%_))))) - (_%g990810113%_ - (list _%e9895%_ + (_%g98129856%_ _%g98139860%_))))) + (_%g98129856%_ _%g98139860%_)))) + (_%g98129856%_ _%g98139860%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g98129856%_ + _%g98139860%_)))) + (_%g98129856%_ _%g98139860%_)))) + (_%g98129856%_ _%g98139860%_))))) + (_%g981110014%_ + (list _%e9798%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch9898%_ - _%default9899%_ - _%tab9904%_ - (vector-length _%tab9904%_)))))) - (_%generate-generic-dispatch9493%_ - (lambda (_%e9631%_ - _%datums9633%_ - _%dispatch9634%_ - _%default9635%_) - (let ((_g20929_ - (if (_%eq-datums?9476%_ _%datums9633%_) + _%dispatch9801%_ + _%default9802%_ + _%tab9807%_ + (vector-length _%tab9807%_)))))) + (_%generate-generic-dispatch9400%_ + (lambda (_%e9536%_ + _%datums9538%_ + _%dispatch9539%_ + _%default9540%_) + (let ((_g20766_ + (if (_%eq-datums?9383%_ _%datums9538%_) (values eq?-hash 'eq?-hash 'eq?) (values equal?-hash 'equal?-hash 'equal?)))) (begin #!void - (let ((_%hash-e9637%_ + (let ((_%hash-e9542%_ (let () (declare (not safe)) - (##values-ref _g20929_ 0))) - (_%hashf9639%_ + (##values-ref _g20766_ 0))) + (_%hashf9544%_ (let () (declare (not safe)) - (##values-ref _g20929_ 1))) - (_%eqf9640%_ + (##values-ref _g20766_ 1))) + (_%eqf9545%_ (let () (declare (not safe)) - (##values-ref _g20929_ 2)))) - (let* ((_%indexes9642%_ - (_%datum-dispatch-index9478%_ - _%datums9633%_)) - (_%tab9645%_ - (_%generate-hash-dispatch-table9480%_ - _%indexes9642%_ - _%hash-e9637%_)) - (_%g96509702%_ - (lambda (_%g96519698%_) + (##values-ref _g20766_ 2)))) + (let* ((_%indexes9547%_ + (_%datum-dispatch-index9385%_ + _%datums9538%_)) + (_%tab9550%_ + (_%generate-hash-dispatch-table9387%_ + _%indexes9547%_ + _%hash-e9542%_)) + (_%g95559607%_ + (lambda (_%g95569603%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g96519698%_))) - (_%g96499891%_ - (lambda (_%g96519706%_) - (if (gx#stx-pair? _%g96519706%_) - (let ((_%e96619709%_ - (gx#syntax-e _%g96519706%_))) - (let ((_%hd96629713%_ + _%g95569603%_))) + (_%g95549794%_ + (lambda (_%g95569611%_) + (if (gx#stx-pair? _%g95569611%_) + (let ((_%e95669614%_ + (gx#syntax-e _%g95569611%_))) + (let ((_%hd95679618%_ (let () (declare (not safe)) - (##car _%e96619709%_))) - (_%tl96639716%_ + (##car _%e95669614%_))) + (_%tl95689621%_ (let () (declare (not safe)) - (##cdr _%e96619709%_)))) - (if (gx#stx-pair? _%tl96639716%_) - (let ((_%e96649719%_ + (##cdr _%e95669614%_)))) + (if (gx#stx-pair? _%tl95689621%_) + (let ((_%e95699624%_ (gx#syntax-e - _%tl96639716%_))) - (let ((_%hd96659723%_ + _%tl95689621%_))) + (let ((_%hd95709628%_ (let () (declare (not safe)) - (##car _%e96649719%_))) - (_%tl96669726%_ + (##car _%e95699624%_))) + (_%tl95719631%_ (let () (declare (not safe)) - (##cdr _%e96649719%_)))) + (##cdr _%e95699624%_)))) (if (gx#stx-pair? - _%tl96669726%_) - (let ((_%e96679729%_ + _%tl95719631%_) + (let ((_%e95729634%_ (gx#syntax-e - _%tl96669726%_))) - (let ((_%hd96689733%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e96679729%_))) - (_%tl96699736%_ - (let () (declare (not safe)) (##cdr _%e96679729%_)))) - (if (gx#stx-pair? _%tl96699736%_) - (let ((_%e96709739%_ (gx#syntax-e _%tl96699736%_))) - (let ((_%hd96719743%_ + _%tl95719631%_))) + (let ((_%hd95739638%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##car _%e95729634%_))) + (_%tl95749641%_ + (let () (declare (not safe)) (##cdr _%e95729634%_)))) + (if (gx#stx-pair? _%tl95749641%_) + (let ((_%e95759644%_ (gx#syntax-e _%tl95749641%_))) + (let ((_%hd95769648%_ (let () (declare (not safe)) - (##car _%e96709739%_))) - (_%tl96729746%_ + (##car _%e95759644%_))) + (_%tl95779651%_ (let () (declare (not safe)) - (##cdr _%e96709739%_)))) - (if (gx#stx-pair/null? _%hd96719743%_) - (let ((_g20930_ + (##cdr _%e95759644%_)))) + (if (gx#stx-pair/null? _%hd95769648%_) + (let ((_g20767_ (gx#syntax-split-splice - _%hd96719743%_ + _%hd95769648%_ '0))) (begin - (let ((_g20931_ + (let ((_g20768_ (let () (declare (not safe)) - (if (##values? _g20930_) - (##values-length _g20930_) + (if (##values? _g20767_) + (##values-length _g20767_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20931_ 2))) + (##fx= _g20768_ 2))) (error "Context expects 2 values" - _g20931_))) - (let ((_%target96739749%_ + _g20768_))) + (let ((_%target95789654%_ (let () (declare (not safe)) - (##values-ref _g20930_ 0))) - (_%tl96759752%_ + (##values-ref _g20767_ 0))) + (_%tl95809657%_ (let () (declare (not safe)) - (##values-ref _g20930_ 1)))) - (if (gx#stx-null? _%tl96759752%_) - (letrec ((_%loop96769755%_ - (lambda (_%hd96749759%_ - _%dispatch96809762%_) + (##values-ref _g20767_ 1)))) + (if (gx#stx-null? _%tl95809657%_) + (letrec ((_%loop95819660%_ + (lambda (_%hd95799664%_ + _%dispatch95859667%_) (if (gx#stx-pair? - _%hd96749759%_) - (let ((_%e96779765%_ + _%hd95799664%_) + (let ((_%e95829669%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd96749759%_))) - (let ((_%lp-hd96789769%_ - (let () (declare (not safe)) (##car _%e96779765%_))) - (_%lp-tl96799772%_ + (gx#syntax-e _%hd95799664%_))) + (let ((_%lp-hd95839673%_ + (let () (declare (not safe)) (##car _%e95829669%_))) + (_%lp-tl95849676%_ (let () (declare (not safe)) - (##cdr _%e96779765%_)))) - (_%loop96769755%_ - _%lp-tl96799772%_ - (cons _%lp-hd96789769%_ _%dispatch96809762%_)))) - (let ((_%dispatch96819775%_ (reverse _%dispatch96809762%_))) - (if (gx#stx-pair? _%tl96729746%_) - (let ((_%e96829779%_ (gx#syntax-e _%tl96729746%_))) - (let ((_%hd96839783%_ + (##cdr _%e95829669%_)))) + (_%loop95819660%_ + _%lp-tl95849676%_ + (cons _%lp-hd95839673%_ _%dispatch95859667%_)))) + (let ((_%dispatch95869679%_ (reverse _%dispatch95859667%_))) + (if (gx#stx-pair? _%tl95779651%_) + (let ((_%e95879682%_ (gx#syntax-e _%tl95779651%_))) + (let ((_%hd95889686%_ (let () (declare (not safe)) - (##car _%e96829779%_))) - (_%tl96849786%_ + (##car _%e95879682%_))) + (_%tl95899689%_ (let () (declare (not safe)) - (##cdr _%e96829779%_)))) - (if (gx#stx-pair? _%tl96849786%_) - (let ((_%e96859789%_ - (gx#syntax-e _%tl96849786%_))) - (let ((_%hd96869793%_ + (##cdr _%e95879682%_)))) + (if (gx#stx-pair? _%tl95899689%_) + (let ((_%e95909692%_ + (gx#syntax-e _%tl95899689%_))) + (let ((_%hd95919696%_ (let () (declare (not safe)) - (##car _%e96859789%_))) - (_%tl96879796%_ + (##car _%e95909692%_))) + (_%tl95929699%_ (let () (declare (not safe)) - (##cdr _%e96859789%_)))) - (if (gx#stx-pair? _%tl96879796%_) - (let ((_%e96889799%_ - (gx#syntax-e _%tl96879796%_))) - (let ((_%hd96899803%_ + (##cdr _%e95909692%_)))) + (if (gx#stx-pair? _%tl95929699%_) + (let ((_%e95939702%_ + (gx#syntax-e _%tl95929699%_))) + (let ((_%hd95949706%_ (let () (declare (not safe)) - (##car _%e96889799%_))) - (_%tl96909806%_ + (##car _%e95939702%_))) + (_%tl95959709%_ (let () (declare (not safe)) - (##cdr _%e96889799%_)))) - (if (gx#stx-pair? _%tl96909806%_) - (let ((_%e96919809%_ + (##cdr _%e95939702%_)))) + (if (gx#stx-pair? _%tl95959709%_) + (let ((_%e95969712%_ (gx#syntax-e - _%tl96909806%_))) - (let ((_%hd96929813%_ + _%tl95959709%_))) + (let ((_%hd95979716%_ (let () (declare (not safe)) - (##car _%e96919809%_))) - (_%tl96939816%_ + (##car _%e95969712%_))) + (_%tl95989719%_ (let () (declare (not safe)) - (##cdr _%e96919809%_)))) + (##cdr _%e95969712%_)))) (if (gx#stx-pair? - _%tl96939816%_) - (let ((_%e96949819%_ + _%tl95989719%_) + (let ((_%e95999722%_ (gx#syntax-e - _%tl96939816%_))) - (let ((_%hd96959823%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e96949819%_))) - (_%tl96969826%_ - (let () (declare (not safe)) (##cdr _%e96949819%_)))) - (if (gx#stx-null? _%tl96969826%_) - ((lambda (_%L9829%_ - _%L9831%_ - _%L9832%_ - _%L9833%_ - _%L9834%_ - _%L9835%_ - _%L9836%_ - _%L9837%_ - _%L9838%_) + _%tl95989719%_))) + (let ((_%hd96009726%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##car _%e95999722%_))) + (_%tl96019729%_ + (let () (declare (not safe)) (##cdr _%e95999722%_)))) + (if (gx#stx-null? _%tl96019729%_) + ((lambda (_%g95579732%_ + _%g95589734%_ + _%g95599735%_ + _%g95609736%_ + _%g95619737%_ + _%g95629738%_ + _%g95639739%_ + _%g95649740%_ + _%g95659741%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L9837%_ + (cons (cons (cons _%g95649740%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L9834%_ '()))) + (cons _%g95619737%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L9836%_ + (cons (cons _%g95639739%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L9833%_ '())) + (cons _%g95609736%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -6687,19 +6735,21 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'h) - (cons (cons _%L9831%_ (cons _%L9838%_ '())) '())) + (cons (cons _%g95589734%_ + (cons _%g95659741%_ '())) + '())) (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax '#f '##fxmodulo) (cons (gx#datum->syntax '#f 'h) - (cons _%L9832%_ '()))) + (cons _%g95599735%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L9836%_ + (cons _%g95639739%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -6711,13 +6761,13 @@ (cons (cons (gx#datum->syntax '#f 'if) (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L9829%_ + (cons (cons _%g95579732%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _%L9838%_ '()))) + (cons _%g95659741%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -6734,277 +6784,279 @@ '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g98829885%_ + (foldr (lambda (_%g97859788%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g98839888%_) - (cons _%g98829885%_ _%g98839888%_)) + _%g97869791%_) + (cons _%g97859788%_ _%g97869791%_)) '() - _%L9835%_))) + _%g95629738%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _%L9837%_ '()) '())))) + (cons (cons _%g95649740%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L9837%_ '()) '())))) + (cons (cons _%g95649740%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd96959823%_ - _%hd96929813%_ - _%hd96899803%_ - _%hd96869793%_ - _%hd96839783%_ - _%dispatch96819775%_ - _%hd96689733%_ - _%hd96659723%_ - _%hd96629713%_) - (_%g96509702%_ _%g96519706%_)))) - (_%g96509702%_ _%g96519706%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g96509702%_ - _%g96519706%_)))) - (_%g96509702%_ _%g96519706%_)))) - (_%g96509702%_ _%g96519706%_)))) - (_%g96509702%_ _%g96519706%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop96769755%_ - _%target96739749%_ + _%hd96009726%_ + _%hd95979716%_ + _%hd95949706%_ + _%hd95919696%_ + _%hd95889686%_ + _%dispatch95869679%_ + _%hd95739638%_ + _%hd95709628%_ + _%hd95679618%_) + (_%g95559607%_ _%g95569611%_)))) + (_%g95559607%_ _%g95569611%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g95559607%_ + _%g95569611%_)))) + (_%g95559607%_ _%g95569611%_)))) + (_%g95559607%_ _%g95569611%_)))) + (_%g95559607%_ _%g95569611%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop95819660%_ + _%target95789654%_ '())) - (_%g96509702%_ _%g96519706%_))))) - (_%g96509702%_ _%g96519706%_)))) - (_%g96509702%_ _%g96519706%_)))) - (_%g96509702%_ _%g96519706%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g96509702%_ - _%g96519706%_)))) - (_%g96509702%_ _%g96519706%_))))) - (_%g96499891%_ - (list _%e9631%_ + (_%g95559607%_ _%g95569611%_))))) + (_%g95559607%_ _%g95569611%_)))) + (_%g95559607%_ _%g95569611%_)))) + (_%g95559607%_ _%g95569611%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g95559607%_ + _%g95569611%_)))) + (_%g95559607%_ _%g95569611%_))))) + (_%g95549794%_ + (list _%e9536%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch9634%_ - _%default9635%_ - _%tab9645%_ - (vector-length _%tab9645%_) - _%hashf9639%_ - _%eqf9640%_))))))))) - (let* ((_%g94959519%_ - (lambda (_%g94969515%_) + _%dispatch9539%_ + _%default9540%_ + _%tab9550%_ + (vector-length _%tab9550%_) + _%hashf9544%_ + _%eqf9545%_))))))))) + (let* ((_%g94029426%_ + (lambda (_%g94039422%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g94969515%_))) - (_%g94949627%_ - (lambda (_%g94969523%_) - (if (gx#stx-pair? _%g94969523%_) - (let ((_%e94999526%_ (gx#syntax-e _%g94969523%_))) - (let ((_%hd95009530%_ + _%g94039422%_))) + (_%g94019532%_ + (lambda (_%g94039430%_) + (if (gx#stx-pair? _%g94039430%_) + (let ((_%e94069433%_ (gx#syntax-e _%g94039430%_))) + (let ((_%hd94079437%_ (let () (declare (not safe)) - (##car _%e94999526%_))) - (_%tl95019533%_ + (##car _%e94069433%_))) + (_%tl94089440%_ (let () (declare (not safe)) - (##cdr _%e94999526%_)))) - (if (gx#stx-pair? _%tl95019533%_) - (let ((_%e95029536%_ - (gx#syntax-e _%tl95019533%_))) - (let ((_%hd95039540%_ + (##cdr _%e94069433%_)))) + (if (gx#stx-pair? _%tl94089440%_) + (let ((_%e94099443%_ + (gx#syntax-e _%tl94089440%_))) + (let ((_%hd94109447%_ (let () (declare (not safe)) - (##car _%e95029536%_))) - (_%tl95049543%_ + (##car _%e94099443%_))) + (_%tl94119450%_ (let () (declare (not safe)) - (##cdr _%e95029536%_)))) - (if (gx#stx-pair/null? _%tl95049543%_) - (let ((_g20932_ + (##cdr _%e94099443%_)))) + (if (gx#stx-pair/null? _%tl94119450%_) + (let ((_g20769_ (gx#syntax-split-splice - _%tl95049543%_ + _%tl94119450%_ '0))) (begin - (let ((_g20933_ + (let ((_g20770_ (let () (declare (not safe)) - (if (##values? _g20932_) + (if (##values? _g20769_) (##values-length - _g20932_) + _g20769_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20933_ 2))) + (##fx= _g20770_ 2))) (error "Context expects 2 values" - _g20933_))) - (let ((_%target95059546%_ + _g20770_))) + (let ((_%target94129453%_ (let () (declare (not safe)) (##values-ref - _g20932_ + _g20769_ 0))) - (_%tl95079549%_ + (_%tl94149456%_ (let () (declare (not safe)) (##values-ref - _g20932_ + _g20769_ 1)))) - (if (gx#stx-null? _%tl95079549%_) - (letrec ((_%loop95089552%_ - (lambda (_%hd95069556%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause95129559%_) - (if (gx#stx-pair? _%hd95069556%_) - (let ((_%e95099562%_ (gx#syntax-e _%hd95069556%_))) - (let ((_%lp-hd95109566%_ + (if (gx#stx-null? _%tl94149456%_) + (letrec ((_%loop94159459%_ + (lambda (_%hd94139463%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%clause94199466%_) + (if (gx#stx-pair? _%hd94139463%_) + (let ((_%e94169468%_ (gx#syntax-e _%hd94139463%_))) + (let ((_%lp-hd94179472%_ (let () (declare (not safe)) - (##car _%e95099562%_))) - (_%lp-tl95119569%_ + (##car _%e94169468%_))) + (_%lp-tl94189475%_ (let () (declare (not safe)) - (##cdr _%e95099562%_)))) - (_%loop95089552%_ - _%lp-tl95119569%_ - (cons _%lp-hd95109566%_ _%clause95129559%_)))) - (let ((_%clause95139572%_ - (reverse _%clause95129559%_))) - ((lambda (_%L9576%_ _%L9578%_) - (let ((_g20934_ - (_%parse-clauses9469%_ - _%L9578%_ - (foldr (lambda (_%g95969599%_ - _%g95979602%_) - (cons _%g95969599%_ - _%g95979602%_)) + (##cdr _%e94169468%_)))) + (_%loop94159459%_ + _%lp-tl94189475%_ + (cons _%lp-hd94179472%_ _%clause94199466%_)))) + (let ((_%clause94209478%_ + (reverse _%clause94199466%_))) + ((lambda (_%g94049481%_ _%g94059483%_) + (let ((_g20771_ + (_%parse-clauses9376%_ + _%g94059483%_ + (foldr (lambda (_%g95019504%_ + _%g95029507%_) + (cons _%g95019504%_ + _%g95029507%_)) '() - _%L9576%_)))) + _%g94049481%_)))) (begin - (let ((_g20935_ + (let ((_g20772_ (let () (declare (not safe)) - (if (##values? _g20934_) - (##values-length _g20934_) + (if (##values? _g20771_) + (##values-length _g20771_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20935_ 3))) + (##fx= _g20772_ 3))) (error "Context expects 3 values" - _g20935_))) - (let ((_%datums9605%_ + _g20772_))) + (let ((_%datums9510%_ (let () (declare (not safe)) - (##values-ref _g20934_ 0))) - (_%dispatch9607%_ + (##values-ref _g20771_ 0))) + (_%dispatch9512%_ (let () (declare (not safe)) - (##values-ref _g20934_ 1))) - (_%default9608%_ + (##values-ref _g20771_ 1))) + (_%default9513%_ (let () (declare (not safe)) - (##values-ref _g20934_ 2)))) - (let ((_%datum-count9610%_ - (_%count-datums9472%_ - _%datums9605%_))) - (if (< _%datum-count9610%_ '6) - (_%generate-simple-case9477%_ - _%L9578%_ - _%datums9605%_ - _%dispatch9607%_ - _%default9608%_) - (if (_%char-datums?9474%_ - _%datums9605%_) - (_%generate-char-dispatch9486%_ - _%L9578%_ - _%datums9605%_ - _%dispatch9607%_ - _%default9608%_) - (if (_%fixnum-datums?9475%_ - _%datums9605%_) - (_%generate-fixnum-dispatch9491%_ - _%L9578%_ - _%datums9605%_ - _%dispatch9607%_ - _%default9608%_) - (if (< _%datum-count9610%_ + (##values-ref _g20771_ 2)))) + (let ((_%datum-count9515%_ + (_%count-datums9379%_ + _%datums9510%_))) + (if (< _%datum-count9515%_ '6) + (_%generate-simple-case9384%_ + _%g94059483%_ + _%datums9510%_ + _%dispatch9512%_ + _%default9513%_) + (if (_%char-datums?9381%_ + _%datums9510%_) + (_%generate-char-dispatch9393%_ + _%g94059483%_ + _%datums9510%_ + _%dispatch9512%_ + _%default9513%_) + (if (_%fixnum-datums?9382%_ + _%datums9510%_) + (_%generate-fixnum-dispatch9398%_ + _%g94059483%_ + _%datums9510%_ + _%dispatch9512%_ + _%default9513%_) + (if (< _%datum-count9515%_ '12) - (_%generate-simple-case9477%_ - _%L9578%_ - _%datums9605%_ - _%dispatch9607%_ - _%default9608%_) - (if (_%symbolic-datums?9473%_ - _%datums9605%_) - (_%generate-symbolic-dispatch9481%_ - _%L9578%_ - _%datums9605%_ - _%dispatch9607%_ - _%default9608%_) - (_%generate-generic-dispatch9493%_ - _%L9578%_ - _%datums9605%_ - _%dispatch9607%_ - _%default9608%_))))))))))) - _%clause95139572%_ - _%hd95039540%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop95089552%_ - _%target95059546%_ + (_%generate-simple-case9384%_ + _%g94059483%_ + _%datums9510%_ + _%dispatch9512%_ + _%default9513%_) + (if (_%symbolic-datums?9380%_ + _%datums9510%_) + (_%generate-symbolic-dispatch9388%_ + _%g94059483%_ + _%datums9510%_ + _%dispatch9512%_ + _%default9513%_) + (_%generate-generic-dispatch9400%_ + _%g94059483%_ + _%datums9510%_ + _%dispatch9512%_ + _%default9513%_))))))))))) + _%clause94209478%_ + _%hd94109447%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop94159459%_ + _%target94129453%_ '())) - (_%g94959519%_ - _%g94969523%_))))) - (_%g94959519%_ _%g94969523%_)))) - (_%g94959519%_ _%g94969523%_)))) - (_%g94959519%_ _%g94969523%_))))) - (_%g94949627%_ _%stx9466%_))))) + (_%g94029426%_ + _%g94039430%_))))) + (_%g94029426%_ _%g94039430%_)))) + (_%g94029426%_ _%g94039430%_)))) + (_%g94029426%_ _%g94039430%_))))) + (_%g94019532%_ _%stx9373%_))))) (define |gerbil/core/sugar~Sugar-2[:0:]#~case-test| - (lambda (_%stx12529%_) - (let* ((_%g1253212550%_ - (lambda (_%g1253312546%_) + (lambda (_%stx12410%_) + (let* ((_%g1241312431%_ + (lambda (_%g1241412427%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1253312546%_))) - (_%g1253112622%_ - (lambda (_%g1253312554%_) - (if (gx#stx-pair? _%g1253312554%_) - (let ((_%e1253612557%_ (gx#syntax-e _%g1253312554%_))) - (let ((_%hd1253712561%_ + _%g1241412427%_))) + (_%g1241212503%_ + (lambda (_%g1241412435%_) + (if (gx#stx-pair? _%g1241412435%_) + (let ((_%e1241712438%_ (gx#syntax-e _%g1241412435%_))) + (let ((_%hd1241812442%_ (let () (declare (not safe)) - (##car _%e1253612557%_))) - (_%tl1253812564%_ + (##car _%e1241712438%_))) + (_%tl1241912445%_ (let () (declare (not safe)) - (##cdr _%e1253612557%_)))) - (if (gx#stx-pair? _%tl1253812564%_) - (let ((_%e1253912567%_ - (gx#syntax-e _%tl1253812564%_))) - (let ((_%hd1254012571%_ + (##cdr _%e1241712438%_)))) + (if (gx#stx-pair? _%tl1241912445%_) + (let ((_%e1242012448%_ + (gx#syntax-e _%tl1241912445%_))) + (let ((_%hd1242112452%_ (let () (declare (not safe)) - (##car _%e1253912567%_))) - (_%tl1254112574%_ + (##car _%e1242012448%_))) + (_%tl1242212455%_ (let () (declare (not safe)) - (##cdr _%e1253912567%_)))) - (if (gx#stx-pair? _%tl1254112574%_) - (let ((_%e1254212577%_ - (gx#syntax-e _%tl1254112574%_))) - (let ((_%hd1254312581%_ + (##cdr _%e1242012448%_)))) + (if (gx#stx-pair? _%tl1242212455%_) + (let ((_%e1242312458%_ + (gx#syntax-e _%tl1242212455%_))) + (let ((_%hd1242412462%_ (let () (declare (not safe)) - (##car _%e1254212577%_))) - (_%tl1254412584%_ + (##car _%e1242312458%_))) + (_%tl1242512465%_ (let () (declare (not safe)) - (##cdr _%e1254212577%_)))) - (if (gx#stx-null? _%tl1254412584%_) - ((lambda (_%L12587%_ _%L12589%_) - (let ((_%datum-e12605%_ - (gx#stx-e _%L12589%_))) - (if (or (symbol? _%datum-e12605%_) + (##cdr _%e1242312458%_)))) + (if (gx#stx-null? _%tl1242512465%_) + ((lambda (_%g1241512468%_ + _%g1241612470%_) + (let ((_%datum-e12486%_ + (gx#stx-e + _%g1241612470%_))) + (if (or (symbol? _%datum-e12486%_) (keyword? - _%datum-e12605%_) + _%datum-e12486%_) (immediate? - _%datum-e12605%_)) + _%datum-e12486%_)) (cons (gx#datum->syntax '#f 'eq?) @@ -7012,198 +7064,204 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L12589%_ '())) - (cons _%L12587%_ '()))) - (if (number? _%datum-e12605%_) + (cons _%g1241612470%_ '())) + (cons _%g1241512468%_ '()))) + (if (number? _%datum-e12486%_) (cons (gx#datum->syntax '#f 'eqv?) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L12589%_ '())) - (cons _%L12587%_ '()))) + (cons _%g1241612470%_ '())) + (cons _%g1241512468%_ '()))) (cons (gx#datum->syntax '#f 'equal?) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L12589%_ '())) - (cons _%L12587%_ '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1254312581%_ - _%hd1254012571%_) - (_%g1253212550%_ - _%g1253312554%_)))) - (_%g1253212550%_ _%g1253312554%_)))) - (_%g1253212550%_ _%g1253312554%_)))) - (_%g1253212550%_ _%g1253312554%_))))) - (_%g1253112622%_ _%stx12529%_)))) + (cons _%g1241612470%_ '())) + (cons _%g1241512468%_ '()))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd1242412462%_ + _%hd1242112452%_) + (_%g1241312431%_ + _%g1241412435%_)))) + (_%g1241312431%_ _%g1241412435%_)))) + (_%g1241312431%_ _%g1241412435%_)))) + (_%g1241312431%_ _%g1241412435%_))))) + (_%g1241212503%_ _%stx12410%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#~case-dispatch| - (lambda (_%$stx12626%_) - (let* ((_%g1263012654%_ - (lambda (_%g1263112650%_) + (lambda (_%$stx12507%_) + (let* ((_%g1251112535%_ + (lambda (_%g1251212531%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1263112650%_))) - (_%g1262912739%_ - (lambda (_%g1263112658%_) - (if (gx#stx-pair? _%g1263112658%_) - (let ((_%e1263412661%_ (gx#syntax-e _%g1263112658%_))) - (let ((_%hd1263512665%_ + _%g1251212531%_))) + (_%g1251012618%_ + (lambda (_%g1251212539%_) + (if (gx#stx-pair? _%g1251212539%_) + (let ((_%e1251512542%_ (gx#syntax-e _%g1251212539%_))) + (let ((_%hd1251612546%_ (let () (declare (not safe)) - (##car _%e1263412661%_))) - (_%tl1263612668%_ + (##car _%e1251512542%_))) + (_%tl1251712549%_ (let () (declare (not safe)) - (##cdr _%e1263412661%_)))) - (if (gx#stx-pair? _%tl1263612668%_) - (let ((_%e1263712671%_ - (gx#syntax-e _%tl1263612668%_))) - (let ((_%hd1263812675%_ + (##cdr _%e1251512542%_)))) + (if (gx#stx-pair? _%tl1251712549%_) + (let ((_%e1251812552%_ + (gx#syntax-e _%tl1251712549%_))) + (let ((_%hd1251912556%_ (let () (declare (not safe)) - (##car _%e1263712671%_))) - (_%tl1263912678%_ + (##car _%e1251812552%_))) + (_%tl1252012559%_ (let () (declare (not safe)) - (##cdr _%e1263712671%_)))) - (if (gx#stx-pair/null? _%tl1263912678%_) - (let ((_g20936_ + (##cdr _%e1251812552%_)))) + (if (gx#stx-pair/null? _%tl1252012559%_) + (let ((_g20773_ (gx#syntax-split-splice - _%tl1263912678%_ + _%tl1252012559%_ '0))) (begin - (let ((_g20937_ + (let ((_g20774_ (let () (declare (not safe)) - (if (##values? _g20936_) + (if (##values? _g20773_) (##values-length - _g20936_) + _g20773_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20937_ 2))) + (##fx= _g20774_ 2))) (error "Context expects 2 values" - _g20937_))) - (let ((_%target1264012681%_ + _g20774_))) + (let ((_%target1252112562%_ (let () (declare (not safe)) - (##values-ref _g20936_ 0))) - (_%tl1264212684%_ + (##values-ref _g20773_ 0))) + (_%tl1252312565%_ (let () (declare (not safe)) - (##values-ref _g20936_ 1)))) - (if (gx#stx-null? _%tl1264212684%_) - (letrec ((_%loop1264312687%_ - (lambda (_%hd1264112691%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%K1264712694%_) - (if (gx#stx-pair? _%hd1264112691%_) - (let ((_%e1264412697%_ (gx#syntax-e _%hd1264112691%_))) - (let ((_%lp-hd1264512701%_ + (##values-ref _g20773_ 1)))) + (if (gx#stx-null? _%tl1252312565%_) + (letrec ((_%loop1252412568%_ + (lambda (_%hd1252212572%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%K1252812575%_) + (if (gx#stx-pair? _%hd1252212572%_) + (let ((_%e1252512577%_ (gx#syntax-e _%hd1252212572%_))) + (let ((_%lp-hd1252612581%_ (let () (declare (not safe)) - (##car _%e1264412697%_))) - (_%lp-tl1264612704%_ + (##car _%e1252512577%_))) + (_%lp-tl1252712584%_ (let () (declare (not safe)) - (##cdr _%e1264412697%_)))) - (_%loop1264312687%_ - _%lp-tl1264612704%_ - (cons _%lp-hd1264512701%_ _%K1264712694%_)))) - (let ((_%K1264812707%_ (reverse _%K1264712694%_))) - ((lambda (_%L12711%_ _%L12713%_) + (##cdr _%e1252512577%_)))) + (_%loop1252412568%_ + _%lp-tl1252712584%_ + (cons _%lp-hd1252612581%_ _%K1252812575%_)))) + (let ((_%K1252912587%_ (reverse _%K1252812575%_))) + ((lambda (_%g1251312590%_ _%g1251412592%_) (cons (gx#datum->syntax '#f '~case-dispatch*) (cons '0 - (cons _%L12713%_ - (foldr (lambda (_%g1273012733%_ - _%g1273112736%_) - (cons _%g1273012733%_ - _%g1273112736%_)) + (cons _%g1251412592%_ + (foldr (lambda (_%g1260912612%_ + _%g1261012615%_) + (cons _%g1260912612%_ + _%g1261012615%_)) '() - _%L12711%_))))) - _%K1264812707%_ - _%hd1263812675%_)))))) + _%g1251312590%_))))) + _%K1252912587%_ + _%hd1251912556%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1264312687%_ - _%target1264012681%_ + (_%loop1252412568%_ + _%target1252112562%_ '())) - (_%g1263012654%_ - _%g1263112658%_))))) - (_%g1263012654%_ _%g1263112658%_)))) - (_%g1263012654%_ _%g1263112658%_)))) - (_%g1263012654%_ _%g1263112658%_))))) - (_%g1262912739%_ _%$stx12626%_)))) + (_%g1251112535%_ + _%g1251212539%_))))) + (_%g1251112535%_ _%g1251212539%_)))) + (_%g1251112535%_ _%g1251212539%_)))) + (_%g1251112535%_ _%g1251212539%_))))) + (_%g1251012618%_ _%$stx12507%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#~case-dispatch*| - (lambda (_%stx12744%_) - (let* ((_%__stx1961019611%_ _%stx12744%_) - (_%g1275112847%_ + (lambda (_%stx12623%_) + (let* ((_%__stx1944719448%_ _%stx12623%_) + (_%g1263012726%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1961019611%_)))) - (let ((_%__kont1961319614%_ - (lambda (_%L13324%_ _%L13326%_) + _%__stx1944719448%_)))) + (let ((_%__kont1945019451%_ + (lambda (_%g1263213201%_ _%g1263313203%_) (cons (gx#datum->syntax '#f 'quote) (cons '#!void '())))) - (_%__kont1961519616%_ - (lambda (_%L13266%_ _%L13268%_ _%L13269%_) _%L13266%_)) - (_%__kont1961719618%_ - (lambda (_%L13163%_ _%L13165%_ _%L13166%_ _%L13167%_) - (let* ((_%g1318813196%_ - (lambda (_%g1318913192%_) + (_%__kont1945219453%_ + (lambda (_%g1264313143%_ _%g1264413145%_ _%g1264513146%_) + _%g1264313143%_)) + (_%__kont1945419455%_ + (lambda (_%g1265813040%_ + _%g1265913042%_ + _%g1266013043%_ + _%g1266113044%_) + (let* ((_%g1306513073%_ + (lambda (_%g1306613069%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1318913192%_))) - (_%g1318713215%_ - (lambda (_%g1318913200%_) - ((lambda (_%L13203%_) + _%g1306613069%_))) + (_%g1306413092%_ + (lambda (_%g1306613077%_) + ((lambda (_%g1306713080%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx=) - (cons _%L13166%_ - (cons _%L13203%_ '()))) - (cons _%L13165%_ - (cons _%L13163%_ '()))))) - _%g1318913200%_)))) - (_%g1318713215%_ (gx#stx-e _%L13167%_))))) - (_%__kont1961919620%_ - (lambda (_%L13013%_ - _%L13015%_ - _%L13016%_ - _%L13017%_ - _%L13018%_) - (let* ((_%g1304213057%_ - (lambda (_%g1304313053%_) + (cons _%g1266013043%_ + (cons _%g1306713080%_ + '()))) + (cons _%g1265913042%_ + (cons _%g1265813040%_ + '()))))) + _%g1306613077%_)))) + (_%g1306413092%_ (gx#stx-e _%g1266113044%_))))) + (_%__kont1945619457%_ + (lambda (_%g1267712890%_ + _%g1267812892%_ + _%g1267912893%_ + _%g1268012894%_ + _%g1268112895%_) + (let* ((_%g1291912934%_ + (lambda (_%g1292012930%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1304313053%_))) - (_%g1304113102%_ - (lambda (_%g1304313061%_) - (if (gx#stx-pair? _%g1304313061%_) - (let ((_%e1304613064%_ - (gx#syntax-e _%g1304313061%_))) - (let ((_%hd1304713068%_ + _%g1292012930%_))) + (_%g1291812979%_ + (lambda (_%g1292012938%_) + (if (gx#stx-pair? _%g1292012938%_) + (let ((_%e1292312941%_ + (gx#syntax-e _%g1292012938%_))) + (let ((_%hd1292412945%_ (let () (declare (not safe)) - (##car _%e1304613064%_))) - (_%tl1304813071%_ + (##car _%e1292312941%_))) + (_%tl1292512948%_ (let () (declare (not safe)) - (##cdr _%e1304613064%_)))) - (if (gx#stx-pair? _%tl1304813071%_) - (let ((_%e1304913074%_ + (##cdr _%e1292312941%_)))) + (if (gx#stx-pair? _%tl1292512948%_) + (let ((_%e1292612951%_ (gx#syntax-e - _%tl1304813071%_))) - (let ((_%hd1305013078%_ + _%tl1292512948%_))) + (let ((_%hd1292712955%_ (let () (declare (not safe)) - (##car _%e1304913074%_))) - (_%tl1305113081%_ + (##car _%e1292612951%_))) + (_%tl1292812958%_ (let () (declare (not safe)) - (##cdr _%e1304913074%_)))) + (##cdr _%e1292612951%_)))) (if (gx#stx-null? - _%tl1305113081%_) - ((lambda (_%L13084%_ - _%L13086%_) + _%tl1292812958%_) + ((lambda (_%g1292112961%_ + _%g1292212963%_) (cons (gx#datum->syntax '#f 'if) @@ -7211,3075 +7269,3107 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##fx=) - (cons _%L13017%_ (cons _%L13086%_ '()))) - (cons _%L13016%_ + (cons _%g1268012894%_ + (cons _%g1292212963%_ '()))) + (cons _%g1267912893%_ (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx=) - (cons _%L13017%_ - (cons _%L13084%_ + (cons _%g1268012894%_ + (cons _%g1292112961%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L13015%_ - (cons _%L13013%_ '())))) + (cons _%g1267812892%_ + (cons _%g1267712890%_ + '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1305013078%_ - _%hd1304713068%_) - (_%g1304213057%_ - _%g1304313061%_)))) - (_%g1304213057%_ _%g1304313061%_)))) - (_%g1304213057%_ _%g1304313061%_))))) - (_%g1304113102%_ - (list (gx#stx-e _%L13018%_) - (fx1+ (gx#stx-e _%L13018%_))))))) - (_%__kont1962119622%_ - (lambda (_%L12914%_ _%L12916%_ _%L12917%_) + _%hd1292712955%_ + _%hd1292412945%_) + (_%g1291912934%_ + _%g1292012938%_)))) + (_%g1291912934%_ _%g1292012938%_)))) + (_%g1291912934%_ _%g1292012938%_))))) + (_%g1291812979%_ + (list (gx#stx-e _%g1268112895%_) + (fx1+ (gx#stx-e _%g1268112895%_))))))) + (_%__kont1945819459%_ + (lambda (_%g1270012791%_ _%g1270112793%_ _%g1270212794%_) (cons (gx#datum->syntax '#f '~case-dispatch-bsearch) - (cons _%L12917%_ - (cons _%L12916%_ - (foldr (lambda (_%g1293712940%_ - _%g1293812943%_) - (cons _%g1293712940%_ - _%g1293812943%_)) + (cons _%g1270212794%_ + (cons _%g1270112793%_ + (foldr (lambda (_%g1281412817%_ + _%g1281512820%_) + (cons _%g1281412817%_ + _%g1281512820%_)) '() - _%L12914%_))))))) - (let ((_%__match1976719768%_ - (lambda (_%e1282412854%_ - _%hd1282512858%_ - _%tl1282612861%_ - _%e1282712864%_ - _%hd1282812868%_ - _%tl1282912871%_ - _%e1283012874%_ - _%hd1283112878%_ - _%tl1283212881%_ - _%__splice1962319624%_ - _%target1283312884%_ - _%tl1283512887%_) - (letrec ((_%loop1283612890%_ - (lambda (_%hd1283412894%_ _%K1284012897%_) - (if (gx#stx-pair? _%hd1283412894%_) - (let ((_%e1283712900%_ - (gx#syntax-e _%hd1283412894%_))) - (let ((_%lp-tl1283912907%_ + _%g1270012791%_))))))) + (let ((_%__match1960419605%_ + (lambda (_%e1270312733%_ + _%hd1270412737%_ + _%tl1270512740%_ + _%e1270612743%_ + _%hd1270712747%_ + _%tl1270812750%_ + _%e1270912753%_ + _%hd1271012757%_ + _%tl1271112760%_ + _%__splice1946019461%_ + _%target1271212763%_ + _%tl1271412766%_) + (letrec ((_%loop1271512769%_ + (lambda (_%hd1271312773%_ _%K1271912776%_) + (if (gx#stx-pair? _%hd1271312773%_) + (let ((_%e1271612778%_ + (gx#syntax-e _%hd1271312773%_))) + (let ((_%lp-tl1271812785%_ (let () (declare (not safe)) - (##cdr _%e1283712900%_))) - (_%lp-hd1283812904%_ + (##cdr _%e1271612778%_))) + (_%lp-hd1271712782%_ (let () (declare (not safe)) - (##car _%e1283712900%_)))) - (_%loop1283612890%_ - _%lp-tl1283912907%_ - (cons _%lp-hd1283812904%_ - _%K1284012897%_)))) - (let ((_%K1284112910%_ - (reverse _%K1284012897%_))) - (_%__kont1962119622%_ - _%K1284112910%_ - _%hd1283112878%_ - _%hd1282812868%_)))))) - (_%loop1283612890%_ _%target1283312884%_ '()))))) - (if (gx#stx-pair? _%__stx1961019611%_) - (let ((_%e1275513294%_ (gx#syntax-e _%__stx1961019611%_))) - (let ((_%tl1275713301%_ + (##car _%e1271612778%_)))) + (_%loop1271512769%_ + _%lp-tl1271812785%_ + (cons _%lp-hd1271712782%_ + _%K1271912776%_)))) + (let ((_%K1272012788%_ + (reverse _%K1271912776%_))) + (_%__kont1945819459%_ + _%K1272012788%_ + _%hd1271012757%_ + _%hd1270712747%_)))))) + (_%loop1271512769%_ _%target1271212763%_ '()))))) + (if (gx#stx-pair? _%__stx1944719448%_) + (let ((_%e1263413171%_ (gx#syntax-e _%__stx1944719448%_))) + (let ((_%tl1263613178%_ (let () (declare (not safe)) - (##cdr _%e1275513294%_))) - (_%hd1275613298%_ + (##cdr _%e1263413171%_))) + (_%hd1263513175%_ (let () (declare (not safe)) - (##car _%e1275513294%_)))) - (if (gx#stx-pair? _%tl1275713301%_) - (let ((_%e1275813304%_ - (gx#syntax-e _%tl1275713301%_))) - (let ((_%tl1276013311%_ + (##car _%e1263413171%_)))) + (if (gx#stx-pair? _%tl1263613178%_) + (let ((_%e1263713181%_ + (gx#syntax-e _%tl1263613178%_))) + (let ((_%tl1263913188%_ (let () (declare (not safe)) - (##cdr _%e1275813304%_))) - (_%hd1275913308%_ + (##cdr _%e1263713181%_))) + (_%hd1263813185%_ (let () (declare (not safe)) - (##car _%e1275813304%_)))) - (if (gx#stx-pair? _%tl1276013311%_) - (let ((_%e1276113314%_ - (gx#syntax-e _%tl1276013311%_))) - (let ((_%tl1276313321%_ + (##car _%e1263713181%_)))) + (if (gx#stx-pair? _%tl1263913188%_) + (let ((_%e1264013191%_ + (gx#syntax-e _%tl1263913188%_))) + (let ((_%tl1264213198%_ (let () (declare (not safe)) - (##cdr _%e1276113314%_))) - (_%hd1276213318%_ + (##cdr _%e1264013191%_))) + (_%hd1264113195%_ (let () (declare (not safe)) - (##car _%e1276113314%_)))) - (if (gx#stx-null? _%tl1276313321%_) - (_%__kont1961319614%_ - _%hd1276213318%_ - _%hd1275913308%_) - (if (gx#stx-pair? _%tl1276313321%_) - (let ((_%e1277613256%_ + (##car _%e1264013191%_)))) + (if (gx#stx-null? _%tl1264213198%_) + (_%__kont1945019451%_ + _%hd1264113195%_ + _%hd1263813185%_) + (if (gx#stx-pair? _%tl1264213198%_) + (let ((_%e1265513133%_ (gx#syntax-e - _%tl1276313321%_))) - (let ((_%tl1277813263%_ + _%tl1264213198%_))) + (let ((_%tl1265713140%_ (let () (declare (not safe)) - (##cdr _%e1277613256%_))) - (_%hd1277713260%_ + (##cdr _%e1265513133%_))) + (_%hd1265613137%_ (let () (declare (not safe)) - (##car _%e1277613256%_)))) + (##car _%e1265513133%_)))) (if (gx#stx-null? - _%tl1277813263%_) - (_%__kont1961519616%_ - _%hd1277713260%_ - _%hd1276213318%_ - _%hd1275913308%_) + _%tl1265713140%_) + (_%__kont1945219453%_ + _%hd1265613137%_ + _%hd1264113195%_ + _%hd1263813185%_) (if (gx#stx-pair? - _%tl1277813263%_) - (let ((_%e1279513153%_ + _%tl1265713140%_) + (let ((_%e1267413030%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1277813263%_))) - (let ((_%tl1279713160%_ + (gx#syntax-e _%tl1265713140%_))) + (let ((_%tl1267613037%_ (let () (declare (not safe)) - (##cdr _%e1279513153%_))) - (_%hd1279613157%_ + (##cdr _%e1267413030%_))) + (_%hd1267513034%_ (let () (declare (not safe)) - (##car _%e1279513153%_)))) - (if (gx#stx-null? _%tl1279713160%_) - (_%__kont1961719618%_ - _%hd1279613157%_ - _%hd1277713260%_ - _%hd1276213318%_ - _%hd1275913308%_) - (if (gx#stx-pair? _%tl1279713160%_) - (let ((_%e1281813003%_ - (gx#syntax-e _%tl1279713160%_))) - (let ((_%tl1282013010%_ + (##car _%e1267413030%_)))) + (if (gx#stx-null? _%tl1267613037%_) + (_%__kont1945419455%_ + _%hd1267513034%_ + _%hd1265613137%_ + _%hd1264113195%_ + _%hd1263813185%_) + (if (gx#stx-pair? _%tl1267613037%_) + (let ((_%e1269712880%_ + (gx#syntax-e _%tl1267613037%_))) + (let ((_%tl1269912887%_ (let () (declare (not safe)) - (##cdr _%e1281813003%_))) - (_%hd1281913007%_ + (##cdr _%e1269712880%_))) + (_%hd1269812884%_ (let () (declare (not safe)) - (##car _%e1281813003%_)))) - (if (gx#stx-null? _%tl1282013010%_) - (_%__kont1961919620%_ - _%hd1281913007%_ - _%hd1279613157%_ - _%hd1277713260%_ - _%hd1276213318%_ - _%hd1275913308%_) - (if (gx#stx-pair/null? _%tl1276313321%_) - (let ((_%__splice1962319624%_ + (##car _%e1269712880%_)))) + (if (gx#stx-null? _%tl1269912887%_) + (_%__kont1945619457%_ + _%hd1269812884%_ + _%hd1267513034%_ + _%hd1265613137%_ + _%hd1264113195%_ + _%hd1263813185%_) + (if (gx#stx-pair/null? _%tl1264213198%_) + (let ((_%__splice1946019461%_ (gx#syntax-split-splice->vector - _%tl1276313321%_ + _%tl1264213198%_ '0))) - (let ((_%tl1283512887%_ + (let ((_%tl1271412766%_ (let () (declare (not safe)) (##vector-ref - _%__splice1962319624%_ + _%__splice1946019461%_ '1))) - (_%target1283312884%_ + (_%target1271212763%_ (let () (declare (not safe)) (##vector-ref - _%__splice1962319624%_ + _%__splice1946019461%_ '0)))) (if (gx#stx-null? - _%tl1283512887%_) - (_%__match1976719768%_ - _%e1275513294%_ - _%hd1275613298%_ - _%tl1275713301%_ - _%e1275813304%_ - _%hd1275913308%_ - _%tl1276013311%_ - _%e1276113314%_ - _%hd1276213318%_ - _%tl1276313321%_ - _%__splice1962319624%_ - _%target1283312884%_ - _%tl1283512887%_) + _%tl1271412766%_) + (_%__match1960419605%_ + _%e1263413171%_ + _%hd1263513175%_ + _%tl1263613178%_ + _%e1263713181%_ + _%hd1263813185%_ + _%tl1263913188%_ + _%e1264013191%_ + _%hd1264113195%_ + _%tl1264213198%_ + _%__splice1946019461%_ + _%target1271212763%_ + _%tl1271412766%_) (let () (declare (not safe)) - (_%g1275112847%_))))) + (_%g1263012726%_))))) (let () (declare (not safe)) - (_%g1275112847%_)))))) - (if (gx#stx-pair/null? _%tl1276313321%_) - (let ((_%__splice1962319624%_ + (_%g1263012726%_)))))) + (if (gx#stx-pair/null? _%tl1264213198%_) + (let ((_%__splice1946019461%_ (gx#syntax-split-splice->vector - _%tl1276313321%_ + _%tl1264213198%_ '0))) - (let ((_%tl1283512887%_ + (let ((_%tl1271412766%_ (let () (declare (not safe)) (##vector-ref - _%__splice1962319624%_ + _%__splice1946019461%_ '1))) - (_%target1283312884%_ + (_%target1271212763%_ (let () (declare (not safe)) (##vector-ref - _%__splice1962319624%_ + _%__splice1946019461%_ '0)))) - (if (gx#stx-null? _%tl1283512887%_) - (_%__match1976719768%_ - _%e1275513294%_ - _%hd1275613298%_ - _%tl1275713301%_ - _%e1275813304%_ - _%hd1275913308%_ - _%tl1276013311%_ - _%e1276113314%_ - _%hd1276213318%_ - _%tl1276313321%_ - _%__splice1962319624%_ - _%target1283312884%_ - _%tl1283512887%_) + (if (gx#stx-null? _%tl1271412766%_) + (_%__match1960419605%_ + _%e1263413171%_ + _%hd1263513175%_ + _%tl1263613178%_ + _%e1263713181%_ + _%hd1263813185%_ + _%tl1263913188%_ + _%e1264013191%_ + _%hd1264113195%_ + _%tl1264213198%_ + _%__splice1946019461%_ + _%target1271212763%_ + _%tl1271412766%_) (let () (declare (not safe)) - (_%g1275112847%_))))) + (_%g1263012726%_))))) (let () (declare (not safe)) - (_%g1275112847%_))))))) - (if (gx#stx-pair/null? _%tl1276313321%_) - (let ((_%__splice1962319624%_ + (_%g1263012726%_))))))) + (if (gx#stx-pair/null? _%tl1264213198%_) + (let ((_%__splice1946019461%_ (gx#syntax-split-splice->vector - _%tl1276313321%_ + _%tl1264213198%_ '0))) - (let ((_%tl1283512887%_ + (let ((_%tl1271412766%_ (let () (declare (not safe)) - (##vector-ref _%__splice1962319624%_ '1))) - (_%target1283312884%_ + (##vector-ref _%__splice1946019461%_ '1))) + (_%target1271212763%_ (let () (declare (not safe)) - (##vector-ref _%__splice1962319624%_ '0)))) - (if (gx#stx-null? _%tl1283512887%_) - (_%__match1976719768%_ - _%e1275513294%_ - _%hd1275613298%_ - _%tl1275713301%_ - _%e1275813304%_ - _%hd1275913308%_ - _%tl1276013311%_ - _%e1276113314%_ - _%hd1276213318%_ - _%tl1276313321%_ - _%__splice1962319624%_ - _%target1283312884%_ - _%tl1283512887%_) + (##vector-ref _%__splice1946019461%_ '0)))) + (if (gx#stx-null? _%tl1271412766%_) + (_%__match1960419605%_ + _%e1263413171%_ + _%hd1263513175%_ + _%tl1263613178%_ + _%e1263713181%_ + _%hd1263813185%_ + _%tl1263913188%_ + _%e1264013191%_ + _%hd1264113195%_ + _%tl1264213198%_ + _%__splice1946019461%_ + _%target1271212763%_ + _%tl1271412766%_) (let () (declare (not safe)) - (_%g1275112847%_))))) - (let () (declare (not safe)) (_%g1275112847%_))))))) + (_%g1263012726%_))))) + (let () (declare (not safe)) (_%g1263012726%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl1276313321%_) - (let ((_%__splice1962319624%_ + _%tl1264213198%_) + (let ((_%__splice1946019461%_ (gx#syntax-split-splice->vector - _%tl1276313321%_ + _%tl1264213198%_ '0))) - (let ((_%tl1283512887%_ + (let ((_%tl1271412766%_ (let () (declare (not safe)) (##vector-ref - _%__splice1962319624%_ + _%__splice1946019461%_ '1))) - (_%target1283312884%_ + (_%target1271212763%_ (let () (declare (not safe)) (##vector-ref - _%__splice1962319624%_ + _%__splice1946019461%_ '0)))) (if (gx#stx-null? - _%tl1283512887%_) - (_%__match1976719768%_ - _%e1275513294%_ - _%hd1275613298%_ - _%tl1275713301%_ - _%e1275813304%_ - _%hd1275913308%_ - _%tl1276013311%_ - _%e1276113314%_ - _%hd1276213318%_ - _%tl1276313321%_ - _%__splice1962319624%_ - _%target1283312884%_ - _%tl1283512887%_) + _%tl1271412766%_) + (_%__match1960419605%_ + _%e1263413171%_ + _%hd1263513175%_ + _%tl1263613178%_ + _%e1263713181%_ + _%hd1263813185%_ + _%tl1263913188%_ + _%e1264013191%_ + _%hd1264113195%_ + _%tl1264213198%_ + _%__splice1946019461%_ + _%target1271212763%_ + _%tl1271412766%_) (let () (declare (not safe)) - (_%g1275112847%_))))) + (_%g1263012726%_))))) (let () (declare (not safe)) - (_%g1275112847%_))))))) + (_%g1263012726%_))))))) (let () (declare (not safe)) - (_%g1275112847%_))))) - (let () (declare (not safe)) (_%g1275112847%_))))) - (let () (declare (not safe)) (_%g1275112847%_)))))))) + (_%g1263012726%_))))) + (let () (declare (not safe)) (_%g1263012726%_))))) + (let () (declare (not safe)) (_%g1263012726%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#~case-dispatch-bsearch| - (lambda (_%stx13346%_) - (letrec ((_%split13349%_ - (lambda (_%lst13710%_ _%mid13712%_) - (let _%lp13714%_ ((_%i13717%_ '0) - (_%rest13719%_ _%lst13710%_) - (_%left13720%_ '())) - (if (fx< _%i13717%_ _%mid13712%_) - (_%lp13714%_ - (fx1+ _%i13717%_) - (cdr _%rest13719%_) - (cons (car _%rest13719%_) _%left13720%_)) - (values (reverse _%left13720%_) _%rest13719%_)))))) - (let* ((_%g1335213380%_ - (lambda (_%g1335313376%_) + (lambda (_%stx13223%_) + (letrec ((_%split13226%_ + (lambda (_%lst13581%_ _%mid13583%_) + (let _%lp13585%_ ((_%i13588%_ '0) + (_%rest13590%_ _%lst13581%_) + (_%left13591%_ '())) + (if (fx< _%i13588%_ _%mid13583%_) + (_%lp13585%_ + (fx1+ _%i13588%_) + (cdr _%rest13590%_) + (cons (car _%rest13590%_) _%left13591%_)) + (values (reverse _%left13591%_) _%rest13590%_)))))) + (let* ((_%g1322913257%_ + (lambda (_%g1323013253%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1335313376%_))) - (_%g1335113706%_ - (lambda (_%g1335313384%_) - (if (gx#stx-pair? _%g1335313384%_) - (let ((_%e1335713387%_ (gx#syntax-e _%g1335313384%_))) - (let ((_%hd1335813391%_ + _%g1323013253%_))) + (_%g1322813577%_ + (lambda (_%g1323013261%_) + (if (gx#stx-pair? _%g1323013261%_) + (let ((_%e1323413264%_ (gx#syntax-e _%g1323013261%_))) + (let ((_%hd1323513268%_ (let () (declare (not safe)) - (##car _%e1335713387%_))) - (_%tl1335913394%_ + (##car _%e1323413264%_))) + (_%tl1323613271%_ (let () (declare (not safe)) - (##cdr _%e1335713387%_)))) - (if (gx#stx-pair? _%tl1335913394%_) - (let ((_%e1336013397%_ - (gx#syntax-e _%tl1335913394%_))) - (let ((_%hd1336113401%_ + (##cdr _%e1323413264%_)))) + (if (gx#stx-pair? _%tl1323613271%_) + (let ((_%e1323713274%_ + (gx#syntax-e _%tl1323613271%_))) + (let ((_%hd1323813278%_ (let () (declare (not safe)) - (##car _%e1336013397%_))) - (_%tl1336213404%_ + (##car _%e1323713274%_))) + (_%tl1323913281%_ (let () (declare (not safe)) - (##cdr _%e1336013397%_)))) - (if (gx#stx-pair? _%tl1336213404%_) - (let ((_%e1336313407%_ - (gx#syntax-e _%tl1336213404%_))) - (let ((_%hd1336413411%_ + (##cdr _%e1323713274%_)))) + (if (gx#stx-pair? _%tl1323913281%_) + (let ((_%e1324013284%_ + (gx#syntax-e _%tl1323913281%_))) + (let ((_%hd1324113288%_ (let () (declare (not safe)) - (##car _%e1336313407%_))) - (_%tl1336513414%_ + (##car _%e1324013284%_))) + (_%tl1324213291%_ (let () (declare (not safe)) - (##cdr _%e1336313407%_)))) + (##cdr _%e1324013284%_)))) (if (gx#stx-pair/null? - _%tl1336513414%_) - (let ((_g20938_ + _%tl1324213291%_) + (let ((_g20775_ (gx#syntax-split-splice - _%tl1336513414%_ + _%tl1324213291%_ '0))) (begin - (let ((_g20939_ + (let ((_g20776_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g20938_) - (##values-length _g20938_) + _g20775_) + (##values-length _g20775_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20939_ 2))) - (error "Context expects 2 values" _g20939_))) + (if (not (let () (declare (not safe)) (##fx= _g20776_ 2))) + (error "Context expects 2 values" _g20776_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target1336613417%_ + (let ((_%target1324313294%_ (let () (declare (not safe)) (##values-ref - _g20938_ + _g20775_ 0))) - (_%tl1336813420%_ + (_%tl1324513297%_ (let () (declare (not safe)) (##values-ref - _g20938_ + _g20775_ 1)))) (if (gx#stx-null? - _%tl1336813420%_) - (letrec ((_%loop1336913423%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd1336713427%_ _%K1337313430%_) - (if (gx#stx-pair? _%hd1336713427%_) - (let ((_%e1337013433%_ - (gx#syntax-e _%hd1336713427%_))) - (let ((_%lp-hd1337113437%_ + _%tl1324513297%_) + (letrec ((_%loop1324613300%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd1324413304%_ _%K1325013307%_) + (if (gx#stx-pair? _%hd1324413304%_) + (let ((_%e1324713309%_ + (gx#syntax-e _%hd1324413304%_))) + (let ((_%lp-hd1324813313%_ (let () (declare (not safe)) - (##car _%e1337013433%_))) - (_%lp-tl1337213440%_ + (##car _%e1324713309%_))) + (_%lp-tl1324913316%_ (let () (declare (not safe)) - (##cdr _%e1337013433%_)))) - (_%loop1336913423%_ - _%lp-tl1337213440%_ - (cons _%lp-hd1337113437%_ - _%K1337313430%_)))) - (let ((_%K1337413443%_ - (reverse _%K1337313430%_))) - ((lambda (_%L13447%_ _%L13449%_ _%L13450%_) - (let* ((_%len13480%_ - (length (foldr (lambda (_%g1347113474%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1347213477%_) - (cons _%g1347113474%_ _%g1347213477%_)) + (##cdr _%e1324713309%_)))) + (_%loop1324613300%_ + _%lp-tl1324913316%_ + (cons _%lp-hd1324813313%_ + _%K1325013307%_)))) + (let ((_%K1325113319%_ + (reverse _%K1325013307%_))) + ((lambda (_%g1323113322%_ + _%g1323213324%_ + _%g1323313325%_) + (let* ((_%len13355%_ + (length (foldr (lambda (_%g1334613349%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1334713352%_) + (cons _%g1334613349%_ _%g1334713352%_)) '() - _%L13447%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%mid13483%_ - (quotient _%len13480%_ '2)) - (_g20940_ - (_%split13349%_ - (foldr (lambda (_%g1348513488%_ - _%g1348613491%_) - (cons _%g1348513488%_ - _%g1348613491%_)) + _%g1323113322%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%mid13358%_ + (quotient _%len13355%_ '2)) + (_g20777_ + (_%split13226%_ + (foldr (lambda (_%g1336013363%_ + _%g1336113366%_) + (cons _%g1336013363%_ + _%g1336113366%_)) '() - _%L13447%_) - _%mid13483%_))) + _%g1323113322%_) + _%mid13358%_))) (begin - (let ((_g20941_ + (let ((_g20778_ (let () (declare (not safe)) - (if (##values? _g20940_) + (if (##values? _g20777_) (##values-length - _g20940_) + _g20777_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20941_ 2))) + (##fx= _g20778_ 2))) (error "Context expects 2 values" - _g20941_))) - (let ((_%left13494%_ + _g20778_))) + (let ((_%left13369%_ (let () (declare (not safe)) - (##values-ref _g20940_ 0))) - (_%right13496%_ + (##values-ref _g20777_ 0))) + (_%right13371%_ (let () (declare (not safe)) (##values-ref - _g20940_ + _g20777_ 1)))) - (let* ((_%g1350013541%_ - (lambda (_%g1350113537%_) + (let* ((_%g1337513416%_ + (lambda (_%g1337613412%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1350113537%_))) - (_%g1349913702%_ - (lambda (_%g1350113545%_) + _%g1337613412%_))) + (_%g1337413573%_ + (lambda (_%g1337613420%_) (if (gx#stx-pair? - _%g1350113545%_) - (let ((_%e1350613548%_ + _%g1337613420%_) + (let ((_%e1338113423%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g1350113545%_))) - (let ((_%hd1350713552%_ + (gx#syntax-e _%g1337613420%_))) + (let ((_%hd1338213427%_ (let () (declare (not safe)) - (##car _%e1350613548%_))) - (_%tl1350813555%_ + (##car _%e1338113423%_))) + (_%tl1338313430%_ (let () (declare (not safe)) - (##cdr _%e1350613548%_)))) - (if (gx#stx-pair? _%tl1350813555%_) - (let ((_%e1350913558%_ - (gx#syntax-e _%tl1350813555%_))) - (let ((_%hd1351013562%_ + (##cdr _%e1338113423%_)))) + (if (gx#stx-pair? _%tl1338313430%_) + (let ((_%e1338413433%_ + (gx#syntax-e _%tl1338313430%_))) + (let ((_%hd1338513437%_ (let () (declare (not safe)) - (##car _%e1350913558%_))) - (_%tl1351113565%_ + (##car _%e1338413433%_))) + (_%tl1338613440%_ (let () (declare (not safe)) - (##cdr _%e1350913558%_)))) - (if (gx#stx-pair/null? _%hd1351013562%_) - (let ((_g20942_ + (##cdr _%e1338413433%_)))) + (if (gx#stx-pair/null? _%hd1338513437%_) + (let ((_g20779_ (gx#syntax-split-splice - _%hd1351013562%_ + _%hd1338513437%_ '0))) (begin - (let ((_g20943_ + (let ((_g20780_ (let () (declare (not safe)) - (if (##values? _g20942_) - (##values-length _g20942_) + (if (##values? _g20779_) + (##values-length _g20779_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20943_ 2))) + (##fx= _g20780_ 2))) (error "Context expects 2 values" - _g20943_))) - (let ((_%target1351213568%_ + _g20780_))) + (let ((_%target1338713443%_ (let () (declare (not safe)) - (##values-ref _g20942_ 0))) - (_%tl1351413571%_ + (##values-ref _g20779_ 0))) + (_%tl1338913446%_ (let () (declare (not safe)) - (##values-ref _g20942_ 1)))) - (if (gx#stx-null? _%tl1351413571%_) - (letrec ((_%loop1351513574%_ - (lambda (_%hd1351313578%_ - _%K-left1351913581%_) + (##values-ref _g20779_ 1)))) + (if (gx#stx-null? _%tl1338913446%_) + (letrec ((_%loop1339013449%_ + (lambda (_%hd1338813453%_ + _%K-left1339413456%_) (if (gx#stx-pair? - _%hd1351313578%_) - (let ((_%e1351613584%_ + _%hd1338813453%_) + (let ((_%e1339113458%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd1351313578%_))) - (let ((_%lp-hd1351713588%_ + (gx#syntax-e _%hd1338813453%_))) + (let ((_%lp-hd1339213462%_ (let () (declare (not safe)) - (##car _%e1351613584%_))) - (_%lp-tl1351813591%_ + (##car _%e1339113458%_))) + (_%lp-tl1339313465%_ (let () (declare (not safe)) - (##cdr _%e1351613584%_)))) - (_%loop1351513574%_ - _%lp-tl1351813591%_ - (cons _%lp-hd1351713588%_ _%K-left1351913581%_)))) - (let ((_%K-left1352013594%_ - (reverse _%K-left1351913581%_))) - (if (gx#stx-pair? _%tl1351113565%_) - (let ((_%e1352113598%_ - (gx#syntax-e _%tl1351113565%_))) - (let ((_%hd1352213602%_ + (##cdr _%e1339113458%_)))) + (_%loop1339013449%_ + _%lp-tl1339313465%_ + (cons _%lp-hd1339213462%_ _%K-left1339413456%_)))) + (let ((_%K-left1339513468%_ + (reverse _%K-left1339413456%_))) + (if (gx#stx-pair? _%tl1338613440%_) + (let ((_%e1339613471%_ + (gx#syntax-e _%tl1338613440%_))) + (let ((_%hd1339713475%_ (let () (declare (not safe)) - (##car _%e1352113598%_))) - (_%tl1352313605%_ + (##car _%e1339613471%_))) + (_%tl1339813478%_ (let () (declare (not safe)) - (##cdr _%e1352113598%_)))) - (if (gx#stx-pair/null? _%hd1352213602%_) - (let ((_g20944_ + (##cdr _%e1339613471%_)))) + (if (gx#stx-pair/null? _%hd1339713475%_) + (let ((_g20781_ (gx#syntax-split-splice - _%hd1352213602%_ + _%hd1339713475%_ '0))) (begin - (let ((_g20945_ + (let ((_g20782_ (let () (declare (not safe)) - (if (##values? _g20944_) - (##values-length _g20944_) + (if (##values? _g20781_) + (##values-length _g20781_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20945_ 2))) + (##fx= _g20782_ 2))) (error "Context expects 2 values" - _g20945_))) - (let ((_%target1352413608%_ + _g20782_))) + (let ((_%target1339913481%_ (let () (declare (not safe)) - (##values-ref _g20944_ 0))) - (_%tl1352613611%_ + (##values-ref _g20781_ 0))) + (_%tl1340113484%_ (let () (declare (not safe)) - (##values-ref _g20944_ 1)))) - (if (gx#stx-null? _%tl1352613611%_) - (letrec ((_%loop1352713614%_ - (lambda (_%hd1352513618%_ - _%K-right1353113621%_) + (##values-ref _g20781_ 1)))) + (if (gx#stx-null? _%tl1340113484%_) + (letrec ((_%loop1340213487%_ + (lambda (_%hd1340013491%_ + _%K-right1340613494%_) (if (gx#stx-pair? - _%hd1352513618%_) - (let ((_%e1352813624%_ + _%hd1340013491%_) + (let ((_%e1340313496%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd1352513618%_))) - (let ((_%lp-hd1352913628%_ + (gx#syntax-e _%hd1340013491%_))) + (let ((_%lp-hd1340413500%_ (let () (declare (not safe)) - (##car _%e1352813624%_))) - (_%lp-tl1353013631%_ + (##car _%e1340313496%_))) + (_%lp-tl1340513503%_ (let () (declare (not safe)) - (##cdr _%e1352813624%_)))) - (_%loop1352713614%_ - _%lp-tl1353013631%_ - (cons _%lp-hd1352913628%_ _%K-right1353113621%_)))) - (let ((_%K-right1353213634%_ - (reverse _%K-right1353113621%_))) - (if (gx#stx-pair? _%tl1352313605%_) - (let ((_%e1353313638%_ - (gx#syntax-e _%tl1352313605%_))) - (let ((_%hd1353413642%_ + (##cdr _%e1340313496%_)))) + (_%loop1340213487%_ + _%lp-tl1340513503%_ + (cons _%lp-hd1340413500%_ _%K-right1340613494%_)))) + (let ((_%K-right1340713506%_ + (reverse _%K-right1340613494%_))) + (if (gx#stx-pair? _%tl1339813478%_) + (let ((_%e1340813509%_ + (gx#syntax-e _%tl1339813478%_))) + (let ((_%hd1340913513%_ (let () (declare (not safe)) - (##car _%e1353313638%_))) - (_%tl1353513645%_ + (##car _%e1340813509%_))) + (_%tl1341013516%_ (let () (declare (not safe)) - (##cdr _%e1353313638%_)))) - (if (gx#stx-null? _%tl1353513645%_) - ((lambda (_%L13648%_ - _%L13650%_ - _%L13651%_ - _%L13652%_) + (##cdr _%e1340813509%_)))) + (if (gx#stx-null? _%tl1341013516%_) + ((lambda (_%g1337713519%_ + _%g1337813521%_ + _%g1337913522%_ + _%g1338013523%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx<) - (cons _%L13449%_ - (cons _%L13648%_ + (cons _%g1323213324%_ + (cons _%g1337713519%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f '~case-dispatch*) - (cons _%L13450%_ + (cons _%g1323313325%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L13449%_ - (foldr (lambda (_%g1368513690%_ - _%g1368613693%_) - (cons _%g1368513690%_ - _%g1368613693%_)) + (cons _%g1323213324%_ + (foldr (lambda (_%g1355613561%_ + _%g1355713564%_) + (cons _%g1355613561%_ + _%g1355713564%_)) '() - _%L13651%_)))) + _%g1337913522%_)))) (cons (cons (gx#datum->syntax '#f '~case-dispatch*) - (cons _%L13648%_ - (cons _%L13449%_ - (foldr (lambda (_%g1368713696%_ - _%g1368813699%_) - (cons _%g1368713696%_ - _%g1368813699%_)) + (cons _%g1337713519%_ + (cons _%g1323213324%_ + (foldr (lambda (_%g1355813567%_ + _%g1355913570%_) + (cons _%g1355813567%_ + _%g1355913570%_)) '() - _%L13650%_)))) + _%g1337813521%_)))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1353413642%_ - _%K-right1353213634%_ - _%K-left1352013594%_ - _%hd1350713552%_) - (_%g1350013541%_ _%g1350113545%_)))) - (_%g1350013541%_ _%g1350113545%_))))))) + _%hd1340913513%_ + _%K-right1340713506%_ + _%K-left1339513468%_ + _%hd1338213427%_) + (_%g1337513416%_ _%g1337613420%_)))) + (_%g1337513416%_ _%g1337613420%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1352713614%_ - _%target1352413608%_ + (_%loop1340213487%_ + _%target1339913481%_ '())) - (_%g1350013541%_ - _%g1350113545%_))))) - (_%g1350013541%_ _%g1350113545%_)))) - (_%g1350013541%_ _%g1350113545%_))))))) + (_%g1337513416%_ + _%g1337613420%_))))) + (_%g1337513416%_ _%g1337613420%_)))) + (_%g1337513416%_ _%g1337613420%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1351513574%_ - _%target1351213568%_ + (_%loop1339013449%_ + _%target1338713443%_ '())) - (_%g1350013541%_ - _%g1350113545%_))))) - (_%g1350013541%_ _%g1350113545%_)))) - (_%g1350013541%_ _%g1350113545%_)))) - (_%g1350013541%_ _%g1350113545%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1349913702%_ - (list _%mid13483%_ - _%left13494%_ - _%right13496%_ - (fx+ _%mid13483%_ + (_%g1337513416%_ + _%g1337613420%_))))) + (_%g1337513416%_ _%g1337613420%_)))) + (_%g1337513416%_ _%g1337613420%_)))) + (_%g1337513416%_ _%g1337613420%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1337413573%_ + (list _%mid13358%_ + _%left13369%_ + _%right13371%_ + (fx+ _%mid13358%_ (gx#stx-e - _%L13450%_))))))))) - _%K1337413443%_ - _%hd1336413411%_ - _%hd1336113401%_)))))) - (_%loop1336913423%_ _%target1336613417%_ '())) - (_%g1335213380%_ _%g1335313384%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1335213380%_ - _%g1335313384%_)))) - (_%g1335213380%_ _%g1335313384%_)))) - (_%g1335213380%_ _%g1335313384%_)))) - (_%g1335213380%_ _%g1335313384%_))))) - (_%g1335113706%_ _%stx13346%_))))) + _%g1323313325%_))))))))) + _%K1325113319%_ + _%hd1324113288%_ + _%hd1323813278%_)))))) + (_%loop1324613300%_ _%target1324313294%_ '())) + (_%g1322913257%_ _%g1323013261%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1322913257%_ + _%g1323013261%_)))) + (_%g1322913257%_ _%g1323013261%_)))) + (_%g1322913257%_ _%g1323013261%_)))) + (_%g1322913257%_ _%g1323013261%_))))) + (_%g1322813577%_ _%stx13223%_))))) (define |gerbil/core/sugar~Sugar-2[:0:]#begin0| - (lambda (_%$stx13726%_) - (let* ((_%__stx1977019771%_ _%$stx13726%_) - (_%g1373113762%_ + (lambda (_%$stx13597%_) + (let* ((_%__stx1960719608%_ _%$stx13597%_) + (_%g1360213633%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1977019771%_)))) - (let ((_%__kont1977319774%_ (lambda (_%L13874%_) _%L13874%_)) - (_%__kont1977519776%_ - (lambda (_%L13819%_ _%L13821%_) + _%__stx1960719608%_)))) + (let ((_%__kont1961019611%_ + (lambda (_%g1360413743%_) _%g1360413743%_)) + (_%__kont1961219613%_ + (lambda (_%g1361113688%_ _%g1361213690%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$r) - (cons _%L13821%_ '())) + (cons _%g1361213690%_ '())) (cons (cons (gx#datum->syntax '#f '%#expression) (cons (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_%g1383813841%_ + (foldr (lambda (_%g1370713710%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1383913844%_) - (cons _%g1383813841%_ _%g1383913844%_)) + _%g1370813713%_) + (cons _%g1370713710%_ _%g1370813713%_)) '() - _%L13819%_)) + _%g1361113688%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (gx#datum->syntax '#f '$r) '()))))))) - (let ((_%__match1981319814%_ - (lambda (_%e1374213769%_ - _%hd1374313773%_ - _%tl1374413776%_ - _%e1374513779%_ - _%hd1374613783%_ - _%tl1374713786%_ - _%__splice1977719778%_ - _%target1374813789%_ - _%tl1375013792%_) - (letrec ((_%loop1375113795%_ - (lambda (_%hd1374913799%_ _%rest1375513802%_) - (if (gx#stx-pair? _%hd1374913799%_) - (let ((_%e1375213805%_ - (gx#syntax-e _%hd1374913799%_))) - (let ((_%lp-tl1375413812%_ + (let ((_%__match1965019651%_ + (lambda (_%e1361313640%_ + _%hd1361413644%_ + _%tl1361513647%_ + _%e1361613650%_ + _%hd1361713654%_ + _%tl1361813657%_ + _%__splice1961419615%_ + _%target1361913660%_ + _%tl1362113663%_) + (letrec ((_%loop1362213666%_ + (lambda (_%hd1362013670%_ _%rest1362613673%_) + (if (gx#stx-pair? _%hd1362013670%_) + (let ((_%e1362313675%_ + (gx#syntax-e _%hd1362013670%_))) + (let ((_%lp-tl1362513682%_ (let () (declare (not safe)) - (##cdr _%e1375213805%_))) - (_%lp-hd1375313809%_ + (##cdr _%e1362313675%_))) + (_%lp-hd1362413679%_ (let () (declare (not safe)) - (##car _%e1375213805%_)))) - (_%loop1375113795%_ - _%lp-tl1375413812%_ - (cons _%lp-hd1375313809%_ - _%rest1375513802%_)))) - (let ((_%rest1375613815%_ - (reverse _%rest1375513802%_))) - (_%__kont1977519776%_ - _%rest1375613815%_ - _%hd1374613783%_)))))) - (_%loop1375113795%_ _%target1374813789%_ '()))))) - (if (gx#stx-pair? _%__stx1977019771%_) - (let ((_%e1373413854%_ (gx#syntax-e _%__stx1977019771%_))) - (let ((_%tl1373613861%_ + (##car _%e1362313675%_)))) + (_%loop1362213666%_ + _%lp-tl1362513682%_ + (cons _%lp-hd1362413679%_ + _%rest1362613673%_)))) + (let ((_%rest1362713685%_ + (reverse _%rest1362613673%_))) + (_%__kont1961219613%_ + _%rest1362713685%_ + _%hd1361713654%_)))))) + (_%loop1362213666%_ _%target1361913660%_ '()))))) + (if (gx#stx-pair? _%__stx1960719608%_) + (let ((_%e1360513723%_ (gx#syntax-e _%__stx1960719608%_))) + (let ((_%tl1360713730%_ (let () (declare (not safe)) - (##cdr _%e1373413854%_))) - (_%hd1373513858%_ + (##cdr _%e1360513723%_))) + (_%hd1360613727%_ (let () (declare (not safe)) - (##car _%e1373413854%_)))) - (if (gx#stx-pair? _%tl1373613861%_) - (let ((_%e1373713864%_ - (gx#syntax-e _%tl1373613861%_))) - (let ((_%tl1373913871%_ + (##car _%e1360513723%_)))) + (if (gx#stx-pair? _%tl1360713730%_) + (let ((_%e1360813733%_ + (gx#syntax-e _%tl1360713730%_))) + (let ((_%tl1361013740%_ (let () (declare (not safe)) - (##cdr _%e1373713864%_))) - (_%hd1373813868%_ + (##cdr _%e1360813733%_))) + (_%hd1360913737%_ (let () (declare (not safe)) - (##car _%e1373713864%_)))) - (if (gx#stx-null? _%tl1373913871%_) - (_%__kont1977319774%_ _%hd1373813868%_) - (if (gx#stx-pair/null? _%tl1373913871%_) - (let ((_%__splice1977719778%_ + (##car _%e1360813733%_)))) + (if (gx#stx-null? _%tl1361013740%_) + (_%__kont1961019611%_ _%hd1360913737%_) + (if (gx#stx-pair/null? _%tl1361013740%_) + (let ((_%__splice1961419615%_ (gx#syntax-split-splice->vector - _%tl1373913871%_ + _%tl1361013740%_ '0))) - (let ((_%tl1375013792%_ + (let ((_%tl1362113663%_ (let () (declare (not safe)) (##vector-ref - _%__splice1977719778%_ + _%__splice1961419615%_ '1))) - (_%target1374813789%_ + (_%target1361913660%_ (let () (declare (not safe)) (##vector-ref - _%__splice1977719778%_ + _%__splice1961419615%_ '0)))) - (if (gx#stx-null? _%tl1375013792%_) - (_%__match1981319814%_ - _%e1373413854%_ - _%hd1373513858%_ - _%tl1373613861%_ - _%e1373713864%_ - _%hd1373813868%_ - _%tl1373913871%_ - _%__splice1977719778%_ - _%target1374813789%_ - _%tl1375013792%_) + (if (gx#stx-null? _%tl1362113663%_) + (_%__match1965019651%_ + _%e1360513723%_ + _%hd1360613727%_ + _%tl1360713730%_ + _%e1360813733%_ + _%hd1360913737%_ + _%tl1361013740%_ + _%__splice1961419615%_ + _%target1361913660%_ + _%tl1362113663%_) (let () (declare (not safe)) - (_%g1373113762%_))))) + (_%g1360213633%_))))) (let () (declare (not safe)) - (_%g1373113762%_)))))) - (let () (declare (not safe)) (_%g1373113762%_))))) - (let () (declare (not safe)) (_%g1373113762%_)))))))) + (_%g1360213633%_)))))) + (let () (declare (not safe)) (_%g1360213633%_))))) + (let () (declare (not safe)) (_%g1360213633%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#rec| - (lambda (_%$stx13892%_) - (let* ((_%__stx1981619817%_ _%$stx13892%_) - (_%g1389813951%_ + (lambda (_%$stx13761%_) + (let* ((_%__stx1965319654%_ _%$stx13761%_) + (_%g1376713820%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1981619817%_)))) - (let ((_%__kont1981919820%_ - (lambda (_%L14153%_ _%L14155%_) + _%__stx1965319654%_)))) + (let ((_%__kont1965619657%_ + (lambda (_%g1376914020%_ _%g1377014022%_) (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _%L14155%_ (cons _%L14153%_ '())) + (cons (cons (cons _%g1377014022%_ + (cons _%g1376914020%_ '())) '()) - (cons _%L14155%_ '()))))) - (_%__kont1982119822%_ - (lambda (_%L14097%_ _%L14099%_) + (cons _%g1377014022%_ '()))))) + (_%__kont1965819659%_ + (lambda (_%g1378013964%_ _%g1378113966%_) (cons (gx#datum->syntax '#f 'letrec-values) - (cons (cons (cons _%L14099%_ (cons _%L14097%_ '())) + (cons (cons (cons _%g1378113966%_ + (cons _%g1378013964%_ '())) '()) (cons (cons (gx#datum->syntax '#f 'values) - _%L14099%_) + _%g1378113966%_) '()))))) - (_%__kont1982319824%_ - (lambda (_%L14018%_ _%L14020%_ _%L14021%_) + (_%__kont1966019661%_ + (lambda (_%g1379413885%_ _%g1379513887%_ _%g1379613888%_) (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _%L14021%_ + (cons (cons (cons _%g1379613888%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L14020%_ - (foldr (lambda (_%g1404114044%_ + (cons _%g1379513887%_ + (foldr (lambda (_%g1390813911%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1404214047%_) - (cons _%g1404114044%_ _%g1404214047%_)) + _%g1390913914%_) + (cons _%g1390813911%_ _%g1390913914%_)) '() - _%L14018%_))) + _%g1379413885%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) - (cons _%L14021%_ '())))))) - (let* ((_%__match1990319904%_ - (lambda (_%e1392813958%_ - _%hd1392913962%_ - _%tl1393013965%_ - _%e1393113968%_ - _%hd1393213972%_ - _%tl1393313975%_ - _%e1393413978%_ - _%hd1393513982%_ - _%tl1393613985%_ - _%__splice1982519826%_ - _%target1393713988%_ - _%tl1393913991%_) - (letrec ((_%loop1394013994%_ - (lambda (_%hd1393813998%_ _%body1394414001%_) - (if (gx#stx-pair? _%hd1393813998%_) - (let ((_%e1394114004%_ - (gx#syntax-e _%hd1393813998%_))) - (let ((_%lp-tl1394314011%_ + (cons _%g1379613888%_ '())))))) + (let* ((_%__match1974019741%_ + (lambda (_%e1379713827%_ + _%hd1379813831%_ + _%tl1379913834%_ + _%e1380013837%_ + _%hd1380113841%_ + _%tl1380213844%_ + _%e1380313847%_ + _%hd1380413851%_ + _%tl1380513854%_ + _%__splice1966219663%_ + _%target1380613857%_ + _%tl1380813860%_) + (letrec ((_%loop1380913863%_ + (lambda (_%hd1380713867%_ _%body1381313870%_) + (if (gx#stx-pair? _%hd1380713867%_) + (let ((_%e1381013872%_ + (gx#syntax-e _%hd1380713867%_))) + (let ((_%lp-tl1381213879%_ (let () (declare (not safe)) - (##cdr _%e1394114004%_))) - (_%lp-hd1394214008%_ + (##cdr _%e1381013872%_))) + (_%lp-hd1381113876%_ (let () (declare (not safe)) - (##car _%e1394114004%_)))) - (_%loop1394013994%_ - _%lp-tl1394314011%_ - (cons _%lp-hd1394214008%_ - _%body1394414001%_)))) - (let ((_%body1394514014%_ - (reverse _%body1394414001%_))) - (let ((_%L14018%_ _%body1394514014%_) - (_%L14020%_ _%tl1393613985%_) - (_%L14021%_ _%hd1393513982%_)) - (if (gx#identifier? _%L14021%_) - (_%__kont1982319824%_ - _%L14018%_ - _%L14020%_ - _%L14021%_) + (##car _%e1381013872%_)))) + (_%loop1380913863%_ + _%lp-tl1381213879%_ + (cons _%lp-hd1381113876%_ + _%body1381313870%_)))) + (let ((_%body1381413882%_ + (reverse _%body1381313870%_))) + (let ((_%g1379413885%_ + _%body1381413882%_) + (_%g1379513887%_ + _%tl1380513854%_) + (_%g1379613888%_ + _%hd1380413851%_)) + (if (gx#identifier? _%g1379613888%_) + (_%__kont1966019661%_ + _%g1379413885%_ + _%g1379513887%_ + _%g1379613888%_) (let () (declare (not safe)) - (_%g1389813951%_))))))))) - (_%loop1394013994%_ _%target1393713988%_ '())))) - (_%__match1987719878%_ - (lambda (_%e1391314057%_ - _%hd1391414061%_ - _%tl1391514064%_ - _%e1391614067%_ - _%hd1391714071%_ - _%tl1391814074%_ - _%e1391914077%_ - _%hd1392014081%_ - _%tl1392114084%_ - _%e1392214087%_ - _%hd1392314091%_ - _%tl1392414094%_) - (let ((_%L14097%_ _%hd1392314091%_) - (_%L14099%_ _%tl1392114084%_)) - (if (gx#identifier-list? _%L14099%_) - (_%__kont1982119822%_ _%L14097%_ _%L14099%_) - (if (gx#stx-pair/null? _%tl1391814074%_) - (let ((_%__splice1982519826%_ + (_%g1376713820%_))))))))) + (_%loop1380913863%_ _%target1380613857%_ '())))) + (_%__match1971419715%_ + (lambda (_%e1378213924%_ + _%hd1378313928%_ + _%tl1378413931%_ + _%e1378513934%_ + _%hd1378613938%_ + _%tl1378713941%_ + _%e1378813944%_ + _%hd1378913948%_ + _%tl1379013951%_ + _%e1379113954%_ + _%hd1379213958%_ + _%tl1379313961%_) + (let ((_%g1378013964%_ _%hd1379213958%_) + (_%g1378113966%_ _%tl1379013951%_)) + (if (gx#identifier-list? _%g1378113966%_) + (_%__kont1965819659%_ + _%g1378013964%_ + _%g1378113966%_) + (if (gx#stx-pair/null? _%tl1378713941%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice->vector - _%tl1391814074%_ + _%tl1378713941%_ '0))) - (let ((_%tl1393913991%_ + (let ((_%tl1380813860%_ (let () (declare (not safe)) (##vector-ref - _%__splice1982519826%_ + _%__splice1966219663%_ '1))) - (_%target1393713988%_ + (_%target1380613857%_ (let () (declare (not safe)) (##vector-ref - _%__splice1982519826%_ + _%__splice1966219663%_ '0)))) - (if (gx#stx-null? _%tl1393913991%_) - (_%__match1990319904%_ - _%e1391314057%_ - _%hd1391414061%_ - _%tl1391514064%_ - _%e1391614067%_ - _%hd1391714071%_ - _%tl1391814074%_ - _%e1391914077%_ - _%hd1392014081%_ - _%tl1392114084%_ - _%__splice1982519826%_ - _%target1393713988%_ - _%tl1393913991%_) + (if (gx#stx-null? _%tl1380813860%_) + (_%__match1974019741%_ + _%e1378213924%_ + _%hd1378313928%_ + _%tl1378413931%_ + _%e1378513934%_ + _%hd1378613938%_ + _%tl1378713941%_ + _%e1378813944%_ + _%hd1378913948%_ + _%tl1379013951%_ + _%__splice1966219663%_ + _%target1380613857%_ + _%tl1380813860%_) (let () (declare (not safe)) - (_%g1389813951%_))))) + (_%g1376713820%_))))) (let () (declare (not safe)) - (_%g1389813951%_))))))) - (_%__match1984719848%_ - (lambda (_%e1390214123%_ - _%hd1390314127%_ - _%tl1390414130%_ - _%e1390514133%_ - _%hd1390614137%_ - _%tl1390714140%_ - _%e1390814143%_ - _%hd1390914147%_ - _%tl1391014150%_) - (let ((_%L14153%_ _%hd1390914147%_) - (_%L14155%_ _%hd1390614137%_)) - (if (gx#identifier? _%L14155%_) - (_%__kont1981919820%_ _%L14153%_ _%L14155%_) - (if (gx#stx-pair? _%hd1390614137%_) - (let ((_%e1391914077%_ - (gx#syntax-e _%hd1390614137%_))) - (let ((_%tl1392114084%_ + (_%g1376713820%_))))))) + (_%__match1968419685%_ + (lambda (_%e1377113990%_ + _%hd1377213994%_ + _%tl1377313997%_ + _%e1377414000%_ + _%hd1377514004%_ + _%tl1377614007%_ + _%e1377714010%_ + _%hd1377814014%_ + _%tl1377914017%_) + (let ((_%g1376914020%_ _%hd1377814014%_) + (_%g1377014022%_ _%hd1377514004%_)) + (if (gx#identifier? _%g1377014022%_) + (_%__kont1965619657%_ + _%g1376914020%_ + _%g1377014022%_) + (if (gx#stx-pair? _%hd1377514004%_) + (let ((_%e1378813944%_ + (gx#syntax-e _%hd1377514004%_))) + (let ((_%tl1379013951%_ (let () (declare (not safe)) - (##cdr _%e1391914077%_))) - (_%hd1392014081%_ + (##cdr _%e1378813944%_))) + (_%hd1378913948%_ (let () (declare (not safe)) - (##car _%e1391914077%_)))) - (if (gx#identifier? _%hd1392014081%_) + (##car _%e1378813944%_)))) + (if (gx#identifier? _%hd1378913948%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20946_| - _%hd1392014081%_) - (_%__match1987719878%_ - _%e1390214123%_ - _%hd1390314127%_ - _%tl1390414130%_ - _%e1390514133%_ - _%hd1390614137%_ - _%tl1390714140%_ - _%e1391914077%_ - _%hd1392014081%_ - _%tl1392114084%_ - _%e1390814143%_ - _%hd1390914147%_ - _%tl1391014150%_) + |gerbil/core/sugar~Sugar-2[1]#_g20783_| + _%hd1378913948%_) + (_%__match1971419715%_ + _%e1377113990%_ + _%hd1377213994%_ + _%tl1377313997%_ + _%e1377414000%_ + _%hd1377514004%_ + _%tl1377614007%_ + _%e1378813944%_ + _%hd1378913948%_ + _%tl1379013951%_ + _%e1377714010%_ + _%hd1377814014%_ + _%tl1377914017%_) (if (gx#stx-pair/null? - _%tl1390714140%_) - (let ((_%__splice1982519826%_ + _%tl1377614007%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice->vector - _%tl1390714140%_ + _%tl1377614007%_ '0))) - (let ((_%tl1393913991%_ + (let ((_%tl1380813860%_ (let () (declare (not safe)) (##vector-ref - _%__splice1982519826%_ + _%__splice1966219663%_ '1))) - (_%target1393713988%_ + (_%target1380613857%_ (let () (declare (not safe)) (##vector-ref - _%__splice1982519826%_ + _%__splice1966219663%_ '0)))) (if (gx#stx-null? - _%tl1393913991%_) - (_%__match1990319904%_ - _%e1390214123%_ - _%hd1390314127%_ - _%tl1390414130%_ - _%e1390514133%_ - _%hd1390614137%_ - _%tl1390714140%_ - _%e1391914077%_ - _%hd1392014081%_ - _%tl1392114084%_ - _%__splice1982519826%_ - _%target1393713988%_ - _%tl1393913991%_) + _%tl1380813860%_) + (_%__match1974019741%_ + _%e1377113990%_ + _%hd1377213994%_ + _%tl1377313997%_ + _%e1377414000%_ + _%hd1377514004%_ + _%tl1377614007%_ + _%e1378813944%_ + _%hd1378913948%_ + _%tl1379013951%_ + _%__splice1966219663%_ + _%target1380613857%_ + _%tl1380813860%_) (let () (declare (not safe)) - (_%g1389813951%_))))) + (_%g1376713820%_))))) (let () (declare (not safe)) - (_%g1389813951%_)))) + (_%g1376713820%_)))) (if (gx#stx-pair/null? - _%tl1390714140%_) - (let ((_%__splice1982519826%_ + _%tl1377614007%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice->vector - _%tl1390714140%_ + _%tl1377614007%_ '0))) - (let ((_%tl1393913991%_ + (let ((_%tl1380813860%_ (let () (declare (not safe)) (##vector-ref - _%__splice1982519826%_ + _%__splice1966219663%_ '1))) - (_%target1393713988%_ + (_%target1380613857%_ (let () (declare (not safe)) (##vector-ref - _%__splice1982519826%_ + _%__splice1966219663%_ '0)))) (if (gx#stx-null? - _%tl1393913991%_) - (_%__match1990319904%_ - _%e1390214123%_ - _%hd1390314127%_ - _%tl1390414130%_ - _%e1390514133%_ - _%hd1390614137%_ - _%tl1390714140%_ - _%e1391914077%_ - _%hd1392014081%_ - _%tl1392114084%_ - _%__splice1982519826%_ - _%target1393713988%_ - _%tl1393913991%_) + _%tl1380813860%_) + (_%__match1974019741%_ + _%e1377113990%_ + _%hd1377213994%_ + _%tl1377313997%_ + _%e1377414000%_ + _%hd1377514004%_ + _%tl1377614007%_ + _%e1378813944%_ + _%hd1378913948%_ + _%tl1379013951%_ + _%__splice1966219663%_ + _%target1380613857%_ + _%tl1380813860%_) (let () (declare (not safe)) - (_%g1389813951%_))))) + (_%g1376713820%_))))) (let () (declare (not safe)) - (_%g1389813951%_)))))) + (_%g1376713820%_)))))) (let () (declare (not safe)) - (_%g1389813951%_)))))))) - (if (gx#stx-pair? _%__stx1981619817%_) - (let ((_%e1390214123%_ (gx#syntax-e _%__stx1981619817%_))) - (let ((_%tl1390414130%_ + (_%g1376713820%_)))))))) + (if (gx#stx-pair? _%__stx1965319654%_) + (let ((_%e1377113990%_ (gx#syntax-e _%__stx1965319654%_))) + (let ((_%tl1377313997%_ (let () (declare (not safe)) - (##cdr _%e1390214123%_))) - (_%hd1390314127%_ + (##cdr _%e1377113990%_))) + (_%hd1377213994%_ (let () (declare (not safe)) - (##car _%e1390214123%_)))) - (if (gx#stx-pair? _%tl1390414130%_) - (let ((_%e1390514133%_ - (gx#syntax-e _%tl1390414130%_))) - (let ((_%tl1390714140%_ + (##car _%e1377113990%_)))) + (if (gx#stx-pair? _%tl1377313997%_) + (let ((_%e1377414000%_ + (gx#syntax-e _%tl1377313997%_))) + (let ((_%tl1377614007%_ (let () (declare (not safe)) - (##cdr _%e1390514133%_))) - (_%hd1390614137%_ + (##cdr _%e1377414000%_))) + (_%hd1377514004%_ (let () (declare (not safe)) - (##car _%e1390514133%_)))) - (if (gx#stx-pair? _%tl1390714140%_) - (let ((_%e1390814143%_ - (gx#syntax-e _%tl1390714140%_))) - (let ((_%tl1391014150%_ + (##car _%e1377414000%_)))) + (if (gx#stx-pair? _%tl1377614007%_) + (let ((_%e1377714010%_ + (gx#syntax-e _%tl1377614007%_))) + (let ((_%tl1377914017%_ (let () (declare (not safe)) - (##cdr _%e1390814143%_))) - (_%hd1390914147%_ + (##cdr _%e1377714010%_))) + (_%hd1377814014%_ (let () (declare (not safe)) - (##car _%e1390814143%_)))) - (if (gx#stx-null? _%tl1391014150%_) - (_%__match1984719848%_ - _%e1390214123%_ - _%hd1390314127%_ - _%tl1390414130%_ - _%e1390514133%_ - _%hd1390614137%_ - _%tl1390714140%_ - _%e1390814143%_ - _%hd1390914147%_ - _%tl1391014150%_) - (if (gx#stx-pair? _%hd1390614137%_) - (let ((_%e1391914077%_ + (##car _%e1377714010%_)))) + (if (gx#stx-null? _%tl1377914017%_) + (_%__match1968419685%_ + _%e1377113990%_ + _%hd1377213994%_ + _%tl1377313997%_ + _%e1377414000%_ + _%hd1377514004%_ + _%tl1377614007%_ + _%e1377714010%_ + _%hd1377814014%_ + _%tl1377914017%_) + (if (gx#stx-pair? _%hd1377514004%_) + (let ((_%e1378813944%_ (gx#syntax-e - _%hd1390614137%_))) - (let ((_%tl1392114084%_ + _%hd1377514004%_))) + (let ((_%tl1379013951%_ (let () (declare (not safe)) - (##cdr _%e1391914077%_))) - (_%hd1392014081%_ + (##cdr _%e1378813944%_))) + (_%hd1378913948%_ (let () (declare (not safe)) - (##car _%e1391914077%_)))) + (##car _%e1378813944%_)))) (if (gx#stx-pair/null? - _%tl1390714140%_) - (let ((_%__splice1982519826%_ + _%tl1377614007%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice->vector - _%tl1390714140%_ + _%tl1377614007%_ '0))) - (let ((_%tl1393913991%_ + (let ((_%tl1380813860%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice1982519826%_ '1))) - (_%target1393713988%_ + (##vector-ref _%__splice1966219663%_ '1))) + (_%target1380613857%_ (let () (declare (not safe)) - (##vector-ref _%__splice1982519826%_ '0)))) - (if (gx#stx-null? _%tl1393913991%_) - (_%__match1990319904%_ - _%e1390214123%_ - _%hd1390314127%_ - _%tl1390414130%_ - _%e1390514133%_ - _%hd1390614137%_ - _%tl1390714140%_ - _%e1391914077%_ - _%hd1392014081%_ - _%tl1392114084%_ - _%__splice1982519826%_ - _%target1393713988%_ - _%tl1393913991%_) - (let () (declare (not safe)) (_%g1389813951%_))))) - (let () (declare (not safe)) (_%g1389813951%_))))) + (##vector-ref _%__splice1966219663%_ '0)))) + (if (gx#stx-null? _%tl1380813860%_) + (_%__match1974019741%_ + _%e1377113990%_ + _%hd1377213994%_ + _%tl1377313997%_ + _%e1377414000%_ + _%hd1377514004%_ + _%tl1377614007%_ + _%e1378813944%_ + _%hd1378913948%_ + _%tl1379013951%_ + _%__splice1966219663%_ + _%target1380613857%_ + _%tl1380813860%_) + (let () (declare (not safe)) (_%g1376713820%_))))) + (let () (declare (not safe)) (_%g1376713820%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g1389813951%_)))))) - (if (gx#stx-pair? _%hd1390614137%_) - (let ((_%e1391914077%_ - (gx#syntax-e _%hd1390614137%_))) - (let ((_%tl1392114084%_ + (_%g1376713820%_)))))) + (if (gx#stx-pair? _%hd1377514004%_) + (let ((_%e1378813944%_ + (gx#syntax-e _%hd1377514004%_))) + (let ((_%tl1379013951%_ (let () (declare (not safe)) - (##cdr _%e1391914077%_))) - (_%hd1392014081%_ + (##cdr _%e1378813944%_))) + (_%hd1378913948%_ (let () (declare (not safe)) - (##car _%e1391914077%_)))) + (##car _%e1378813944%_)))) (if (gx#stx-pair/null? - _%tl1390714140%_) - (let ((_%__splice1982519826%_ + _%tl1377614007%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice->vector - _%tl1390714140%_ + _%tl1377614007%_ '0))) - (let ((_%tl1393913991%_ + (let ((_%tl1380813860%_ (let () (declare (not safe)) (##vector-ref - _%__splice1982519826%_ + _%__splice1966219663%_ '1))) - (_%target1393713988%_ + (_%target1380613857%_ (let () (declare (not safe)) (##vector-ref - _%__splice1982519826%_ + _%__splice1966219663%_ '0)))) (if (gx#stx-null? - _%tl1393913991%_) - (_%__match1990319904%_ - _%e1390214123%_ - _%hd1390314127%_ - _%tl1390414130%_ - _%e1390514133%_ - _%hd1390614137%_ - _%tl1390714140%_ - _%e1391914077%_ - _%hd1392014081%_ - _%tl1392114084%_ - _%__splice1982519826%_ - _%target1393713988%_ - _%tl1393913991%_) + _%tl1380813860%_) + (_%__match1974019741%_ + _%e1377113990%_ + _%hd1377213994%_ + _%tl1377313997%_ + _%e1377414000%_ + _%hd1377514004%_ + _%tl1377614007%_ + _%e1378813944%_ + _%hd1378913948%_ + _%tl1379013951%_ + _%__splice1966219663%_ + _%target1380613857%_ + _%tl1380813860%_) (let () (declare (not safe)) - (_%g1389813951%_))))) + (_%g1376713820%_))))) (let () (declare (not safe)) - (_%g1389813951%_))))) + (_%g1376713820%_))))) (let () (declare (not safe)) - (_%g1389813951%_)))))) - (let () (declare (not safe)) (_%g1389813951%_))))) - (let () (declare (not safe)) (_%g1389813951%_)))))))) + (_%g1376713820%_)))))) + (let () (declare (not safe)) (_%g1376713820%_))))) + (let () (declare (not safe)) (_%g1376713820%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#alet| - (lambda (_%stx14175%_) - (letrec ((_%let-bind?14178%_ - (lambda (_%x15101%_) - (let* ((_%__stx1990619907%_ _%x15101%_) - (_%g1510615125%_ + (lambda (_%stx14042%_) + (letrec ((_%let-bind?14045%_ + (lambda (_%x14954%_) + (let* ((_%__stx1974319744%_ _%x14954%_) + (_%g1495914978%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1990619907%_)))) - (let ((_%__kont1990919910%_ - (lambda (_%L15193%_ _%L15195%_) - (_%let-head?14181%_ _%L15195%_))) - (_%__kont1991119912%_ (lambda (_%L15153%_) '#t)) - (_%__kont1991319914%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx1990619907%_) - (let ((_%e1511015173%_ - (gx#syntax-e _%__stx1990619907%_))) - (let ((_%tl1511215180%_ + _%__stx1974319744%_)))) + (let ((_%__kont1974619747%_ + (lambda (_%g1496115046%_ _%g1496215048%_) + (_%let-head?14048%_ _%g1496215048%_))) + (_%__kont1974819749%_ + (lambda (_%g1496915006%_) '#t)) + (_%__kont1975019751%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx1974319744%_) + (let ((_%e1496315026%_ + (gx#syntax-e _%__stx1974319744%_))) + (let ((_%tl1496515033%_ (let () (declare (not safe)) - (##cdr _%e1511015173%_))) - (_%hd1511115177%_ + (##cdr _%e1496315026%_))) + (_%hd1496415030%_ (let () (declare (not safe)) - (##car _%e1511015173%_)))) - (if (gx#stx-pair? _%tl1511215180%_) - (let ((_%e1511315183%_ - (gx#syntax-e _%tl1511215180%_))) - (let ((_%tl1511515190%_ + (##car _%e1496315026%_)))) + (if (gx#stx-pair? _%tl1496515033%_) + (let ((_%e1496615036%_ + (gx#syntax-e _%tl1496515033%_))) + (let ((_%tl1496815043%_ (let () (declare (not safe)) - (##cdr _%e1511315183%_))) - (_%hd1511415187%_ + (##cdr _%e1496615036%_))) + (_%hd1496715040%_ (let () (declare (not safe)) - (##car _%e1511315183%_)))) - (if (gx#stx-null? _%tl1511515190%_) - (_%__kont1990919910%_ - _%hd1511415187%_ - _%hd1511115177%_) - (_%__kont1991319914%_)))) - (if (gx#stx-null? _%tl1511215180%_) - (_%__kont1991119912%_ _%hd1511115177%_) - (_%__kont1991319914%_))))) - (_%__kont1991319914%_)))))) - (_%let-bind14180%_ - (lambda (_%x15003%_) - (let* ((_%__stx1994019941%_ _%x15003%_) - (_%g1500715026%_ + (##car _%e1496615036%_)))) + (if (gx#stx-null? _%tl1496815043%_) + (_%__kont1974619747%_ + _%hd1496715040%_ + _%hd1496415030%_) + (_%__kont1975019751%_)))) + (if (gx#stx-null? _%tl1496515033%_) + (_%__kont1974819749%_ _%hd1496415030%_) + (_%__kont1975019751%_))))) + (_%__kont1975019751%_)))))) + (_%let-bind14047%_ + (lambda (_%x14856%_) + (let* ((_%__stx1977719778%_ _%x14856%_) + (_%g1486014879%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1994019941%_)))) - (let ((_%__kont1994319944%_ - (lambda (_%L15082%_ _%L15084%_) _%x15003%_)) - (_%__kont1994519946%_ - (lambda (_%L15043%_) + _%__stx1977719778%_)))) + (let ((_%__kont1978019781%_ + (lambda (_%g1486214935%_ _%g1486314937%_) + _%x14856%_)) + (_%__kont1978219783%_ + (lambda (_%g1487014896%_) (cons (gx#datum->syntax '#f '_) - (cons _%L15043%_ '()))))) - (if (gx#stx-pair? _%__stx1994019941%_) - (let ((_%e1501115062%_ - (gx#syntax-e _%__stx1994019941%_))) - (let ((_%tl1501315069%_ + (cons _%g1487014896%_ '()))))) + (if (gx#stx-pair? _%__stx1977719778%_) + (let ((_%e1486414915%_ + (gx#syntax-e _%__stx1977719778%_))) + (let ((_%tl1486614922%_ (let () (declare (not safe)) - (##cdr _%e1501115062%_))) - (_%hd1501215066%_ + (##cdr _%e1486414915%_))) + (_%hd1486514919%_ (let () (declare (not safe)) - (##car _%e1501115062%_)))) - (if (gx#stx-pair? _%tl1501315069%_) - (let ((_%e1501415072%_ - (gx#syntax-e _%tl1501315069%_))) - (let ((_%tl1501615079%_ + (##car _%e1486414915%_)))) + (if (gx#stx-pair? _%tl1486614922%_) + (let ((_%e1486714925%_ + (gx#syntax-e _%tl1486614922%_))) + (let ((_%tl1486914932%_ (let () (declare (not safe)) - (##cdr _%e1501415072%_))) - (_%hd1501515076%_ + (##cdr _%e1486714925%_))) + (_%hd1486814929%_ (let () (declare (not safe)) - (##car _%e1501415072%_)))) - (if (gx#stx-null? _%tl1501615079%_) - (_%__kont1994319944%_ - _%hd1501515076%_ - _%hd1501215066%_) + (##car _%e1486714925%_)))) + (if (gx#stx-null? _%tl1486914932%_) + (_%__kont1978019781%_ + _%hd1486814929%_ + _%hd1486514919%_) (let () (declare (not safe)) - (_%g1500715026%_))))) - (if (gx#stx-null? _%tl1501315069%_) - (_%__kont1994519946%_ _%hd1501215066%_) + (_%g1486014879%_))))) + (if (gx#stx-null? _%tl1486614922%_) + (_%__kont1978219783%_ _%hd1486514919%_) (let () (declare (not safe)) - (_%g1500715026%_)))))) + (_%g1486014879%_)))))) (let () (declare (not safe)) - (_%g1500715026%_))))))) - (_%let-head?14181%_ - (lambda (_%x14943%_) - (let* ((_%__stx1997219973%_ _%x14943%_) - (_%g1494714958%_ + (_%g1486014879%_))))))) + (_%let-head?14048%_ + (lambda (_%x14796%_) + (let* ((_%__stx1980919810%_ _%x14796%_) + (_%g1480014811%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1997219973%_)))) - (let ((_%__kont1997519976%_ - (lambda (_%L14986%_) - (gx#stx-andmap gx#identifier? _%L14986%_))) - (_%__kont1997719978%_ - (lambda () (gx#identifier? _%x14943%_)))) - (if (gx#stx-pair? _%__stx1997219973%_) - (let ((_%e1495014976%_ - (gx#syntax-e _%__stx1997219973%_))) - (let ((_%tl1495214983%_ + _%__stx1980919810%_)))) + (let ((_%__kont1981219813%_ + (lambda (_%g1480214839%_) + (gx#stx-andmap gx#identifier? _%g1480214839%_))) + (_%__kont1981419815%_ + (lambda () (gx#identifier? _%x14796%_)))) + (if (gx#stx-pair? _%__stx1980919810%_) + (let ((_%e1480314829%_ + (gx#syntax-e _%__stx1980919810%_))) + (let ((_%tl1480514836%_ (let () (declare (not safe)) - (##cdr _%e1495014976%_))) - (_%hd1495114980%_ + (##cdr _%e1480314829%_))) + (_%hd1480414833%_ (let () (declare (not safe)) - (##car _%e1495014976%_)))) - (if (gx#identifier? _%hd1495114980%_) + (##car _%e1480314829%_)))) + (if (gx#identifier? _%hd1480414833%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20947_| - _%hd1495114980%_) - (_%__kont1997519976%_ _%tl1495214983%_) - (_%__kont1997719978%_)) - (_%__kont1997719978%_)))) - (_%__kont1997719978%_)))))) - (_%let-head14182%_ - (lambda (_%x14883%_) - (let* ((_%__stx1999219993%_ _%x14883%_) - (_%g1488714898%_ + |gerbil/core/sugar~Sugar-2[1]#_g20784_| + _%hd1480414833%_) + (_%__kont1981219813%_ _%tl1480514836%_) + (_%__kont1981419815%_)) + (_%__kont1981419815%_)))) + (_%__kont1981419815%_)))))) + (_%let-head14049%_ + (lambda (_%x14736%_) + (let* ((_%__stx1982919830%_ _%x14736%_) + (_%g1474014751%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1999219993%_)))) - (let ((_%__kont1999519996%_ - (lambda (_%L14926%_) _%L14926%_)) - (_%__kont1999719998%_ - (lambda () (list _%x14883%_)))) - (if (gx#stx-pair? _%__stx1999219993%_) - (let ((_%e1489014916%_ - (gx#syntax-e _%__stx1999219993%_))) - (let ((_%tl1489214923%_ + _%__stx1982919830%_)))) + (let ((_%__kont1983219833%_ + (lambda (_%g1474214779%_) _%g1474214779%_)) + (_%__kont1983419835%_ + (lambda () (list _%x14736%_)))) + (if (gx#stx-pair? _%__stx1982919830%_) + (let ((_%e1474314769%_ + (gx#syntax-e _%__stx1982919830%_))) + (let ((_%tl1474514776%_ (let () (declare (not safe)) - (##cdr _%e1489014916%_))) - (_%hd1489114920%_ + (##cdr _%e1474314769%_))) + (_%hd1474414773%_ (let () (declare (not safe)) - (##car _%e1489014916%_)))) - (if (gx#identifier? _%hd1489114920%_) + (##car _%e1474314769%_)))) + (if (gx#identifier? _%hd1474414773%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20948_| - _%hd1489114920%_) - (_%__kont1999519996%_ _%tl1489214923%_) - (_%__kont1999719998%_)) - (_%__kont1999719998%_)))) - (_%__kont1999719998%_))))))) - (let* ((_%__stx2001220013%_ _%stx14175%_) - (_%g1418614258%_ + |gerbil/core/sugar~Sugar-2[1]#_g20785_| + _%hd1474414773%_) + (_%__kont1983219833%_ _%tl1474514776%_) + (_%__kont1983419835%_)) + (_%__kont1983419835%_)))) + (_%__kont1983419835%_))))))) + (let* ((_%__stx1984919850%_ _%stx14042%_) + (_%g1405314125%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2001220013%_)))) - (let ((_%__kont2001520016%_ - (lambda (_%L14856%_ _%L14858%_ _%L14859%_ _%L14860%_) - (cons _%L14860%_ - (cons (cons (cons _%L14859%_ (cons _%L14858%_ '())) + _%__stx1984919850%_)))) + (let ((_%__kont1985219853%_ + (lambda (_%g1405514709%_ + _%g1405614711%_ + _%g1405714712%_ + _%g1405814713%_) + (cons _%g1405814713%_ + (cons (cons (cons _%g1405714712%_ + (cons _%g1405614711%_ '())) '()) - _%L14856%_)))) - (_%__kont2001720018%_ - (lambda (_%L14778%_ _%L14780%_) + _%g1405514709%_)))) + (_%__kont1985419855%_ + (lambda (_%g1407114631%_ _%g1407214633%_) (cons (gx#datum->syntax '#f 'and) - (cons _%L14780%_ + (cons _%g1407214633%_ (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g1480014803%_ + (foldr (lambda (_%g1465314656%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1480114806%_) - (cons _%g1480014803%_ _%g1480114806%_)) + _%g1465414659%_) + (cons _%g1465314656%_ _%g1465414659%_)) '() - _%L14778%_))) + _%g1407114631%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont2002120022%_ - (lambda (_%L14345%_ _%L14347%_) - (let* ((_%g1437814404%_ - (lambda (_%g1437914400%_) + (_%__kont1985819859%_ + (lambda (_%g1409414208%_ _%g1409514210%_) + (let* ((_%g1424114267%_ + (lambda (_%g1424214263%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1437914400%_))) - (_%g1437714689%_ - (lambda (_%g1437914408%_) - (if (gx#stx-pair/null? _%g1437914408%_) - (let ((_g20949_ + _%g1424214263%_))) + (_%g1424014544%_ + (lambda (_%g1424214271%_) + (if (gx#stx-pair/null? _%g1424214271%_) + (let ((_g20786_ (gx#syntax-split-splice - _%g1437914408%_ + _%g1424214271%_ '0))) (begin - (let ((_g20950_ + (let ((_g20787_ (let () (declare (not safe)) - (if (##values? _g20949_) - (##values-length _g20949_) + (if (##values? _g20786_) + (##values-length _g20786_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20950_ 2))) + (##fx= _g20787_ 2))) (error "Context expects 2 values" - _g20950_))) - (let ((_%target1438214411%_ + _g20787_))) + (let ((_%target1424514274%_ (let () (declare (not safe)) - (##values-ref _g20949_ 0))) - (_%tl1438414414%_ + (##values-ref _g20786_ 0))) + (_%tl1424714277%_ (let () (declare (not safe)) - (##values-ref _g20949_ 1)))) - (if (gx#stx-null? _%tl1438414414%_) - (letrec ((_%loop1438514417%_ - (lambda (_%hd1438314421%_ - _%e1438914424%_ - _%hd1439014426%_) + (##values-ref _g20786_ 1)))) + (if (gx#stx-null? _%tl1424714277%_) + (letrec ((_%loop1424814280%_ + (lambda (_%hd1424614284%_ + _%e1425214287%_ + _%hd1425314288%_) (if (gx#stx-pair? - _%hd1438314421%_) - (let ((_%e1438614429%_ + _%hd1424614284%_) + (let ((_%e1424914290%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd1438314421%_))) - (let ((_%lp-hd1438714433%_ + (gx#syntax-e _%hd1424614284%_))) + (let ((_%lp-hd1425014294%_ (let () (declare (not safe)) - (##car _%e1438614429%_))) - (_%lp-tl1438814436%_ + (##car _%e1424914290%_))) + (_%lp-tl1425114297%_ (let () (declare (not safe)) - (##cdr _%e1438614429%_)))) - (if (gx#stx-pair? _%lp-hd1438714433%_) - (let ((_%e1439314439%_ - (gx#syntax-e _%lp-hd1438714433%_))) - (let ((_%hd1439414443%_ + (##cdr _%e1424914290%_)))) + (if (gx#stx-pair? _%lp-hd1425014294%_) + (let ((_%e1425614300%_ + (gx#syntax-e _%lp-hd1425014294%_))) + (let ((_%hd1425714304%_ (let () (declare (not safe)) - (##car _%e1439314439%_))) - (_%tl1439514446%_ + (##car _%e1425614300%_))) + (_%tl1425814307%_ (let () (declare (not safe)) - (##cdr _%e1439314439%_)))) - (if (gx#stx-pair? _%tl1439514446%_) - (let ((_%e1439614449%_ - (gx#syntax-e _%tl1439514446%_))) - (let ((_%hd1439714453%_ + (##cdr _%e1425614300%_)))) + (if (gx#stx-pair? _%tl1425814307%_) + (let ((_%e1425914310%_ + (gx#syntax-e _%tl1425814307%_))) + (let ((_%hd1426014314%_ (let () (declare (not safe)) - (##car _%e1439614449%_))) - (_%tl1439814456%_ + (##car _%e1425914310%_))) + (_%tl1426114317%_ (let () (declare (not safe)) - (##cdr _%e1439614449%_)))) - (if (gx#stx-null? _%tl1439814456%_) - (_%loop1438514417%_ - _%lp-tl1438814436%_ - (cons _%hd1439714453%_ - _%e1438914424%_) - (cons _%hd1439414443%_ - _%hd1439014426%_)) - (_%g1437814404%_ - _%g1437914408%_)))) - (_%g1437814404%_ _%g1437914408%_)))) - (_%g1437814404%_ _%g1437914408%_)))) - (let ((_%e1439114459%_ (reverse _%e1438914424%_)) - (_%hd1439214462%_ (reverse _%hd1439014426%_))) - ((lambda (_%L14465%_ _%L14467%_) - (let* ((_%g1448314500%_ - (lambda (_%g1448414496%_) + (##cdr _%e1425914310%_)))) + (if (gx#stx-null? _%tl1426114317%_) + (_%loop1424814280%_ + _%lp-tl1425114297%_ + (cons _%hd1426014314%_ + _%e1425214287%_) + (cons _%hd1425714304%_ + _%hd1425314288%_)) + (_%g1424114267%_ + _%g1424214271%_)))) + (_%g1424114267%_ _%g1424214271%_)))) + (_%g1424114267%_ _%g1424214271%_)))) + (let ((_%e1425414320%_ (reverse _%e1425214287%_)) + (_%hd1425514322%_ (reverse _%hd1425314288%_))) + ((lambda (_%g1424314324%_ _%g1424414326%_) + (let* ((_%g1434214359%_ + (lambda (_%g1434314355%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1448414496%_))) - (_%g1448214677%_ - (lambda (_%g1448414504%_) - (if (gx#stx-pair/null? _%g1448414504%_) - (let ((_g20951_ + _%g1434314355%_))) + (_%g1434114532%_ + (lambda (_%g1434314363%_) + (if (gx#stx-pair/null? _%g1434314363%_) + (let ((_g20788_ (gx#syntax-split-splice - _%g1448414504%_ + _%g1434314363%_ '0))) (begin - (let ((_g20952_ + (let ((_g20789_ (let () (declare (not safe)) - (if (##values? _g20951_) + (if (##values? _g20788_) (##values-length - _g20951_) + _g20788_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20952_ 2))) + (##fx= _g20789_ 2))) (error "Context expects 2 values" - _g20952_))) - (let ((_%target1448614507%_ + _g20789_))) + (let ((_%target1434514366%_ (let () (declare (not safe)) (##values-ref - _g20951_ + _g20788_ 0))) - (_%tl1448814510%_ + (_%tl1434714369%_ (let () (declare (not safe)) (##values-ref - _g20951_ + _g20788_ 1)))) (if (gx#stx-null? - _%tl1448814510%_) - (letrec ((_%loop1448914513%_ - (lambda (_%hd1448714517%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e1449314520%_) - (if (gx#stx-pair? _%hd1448714517%_) - (let ((_%e1449014523%_ - (gx#syntax-e _%hd1448714517%_))) - (let ((_%lp-hd1449114527%_ + _%tl1434714369%_) + (letrec ((_%loop1434814372%_ + (lambda (_%hd1434614376%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%$e1435214379%_) + (if (gx#stx-pair? _%hd1434614376%_) + (let ((_%e1434914381%_ + (gx#syntax-e _%hd1434614376%_))) + (let ((_%lp-hd1435014385%_ (let () (declare (not safe)) - (##car _%e1449014523%_))) - (_%lp-tl1449214530%_ + (##car _%e1434914381%_))) + (_%lp-tl1435114388%_ (let () (declare (not safe)) - (##cdr _%e1449014523%_)))) - (_%loop1448914513%_ - _%lp-tl1449214530%_ - (cons _%lp-hd1449114527%_ _%$e1449314520%_)))) - (let ((_%$e1449414533%_ (reverse _%$e1449314520%_))) - ((lambda (_%L14537%_) - (let* ((_%g1455414571%_ - (lambda (_%g1455514567%_) + (##cdr _%e1434914381%_)))) + (_%loop1434814372%_ + _%lp-tl1435114388%_ + (cons _%lp-hd1435014385%_ _%$e1435214379%_)))) + (let ((_%$e1435314391%_ (reverse _%$e1435214379%_))) + ((lambda (_%g1434414394%_) + (let* ((_%g1441114428%_ + (lambda (_%g1441214424%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1455514567%_))) - (_%g1455314665%_ - (lambda (_%g1455514575%_) + _%g1441214424%_))) + (_%g1441014520%_ + (lambda (_%g1441214432%_) (if (gx#stx-pair/null? - _%g1455514575%_) - (let ((_g20953_ + _%g1441214432%_) + (let ((_g20790_ (gx#syntax-split-splice - _%g1455514575%_ + _%g1441214432%_ '0))) (begin - (let ((_g20954_ + (let ((_g20791_ (let () (declare (not safe)) (if (##values? - _g20953_) + _g20790_) (##values-length - _g20953_) + _g20790_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20954_ + (##fx= _g20791_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g20954_))) + (error "Context expects 2 values" _g20791_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target1455714578%_ + (let ((_%target1441414435%_ (let () (declare (not safe)) (##values-ref - _g20953_ + _g20790_ 0))) - (_%tl1455914581%_ + (_%tl1441614438%_ (let () (declare (not safe)) (##values-ref - _g20953_ + _g20790_ 1)))) (if (gx#stx-null? - _%tl1455914581%_) - (letrec ((_%loop1456014584%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd1455814588%_ _%hd-bind1456414591%_) - (if (gx#stx-pair? _%hd1455814588%_) - (let ((_%e1456114594%_ - (gx#syntax-e _%hd1455814588%_))) - (let ((_%lp-hd1456214598%_ + _%tl1441614438%_) + (letrec ((_%loop1441714441%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd1441514445%_ _%hd-bind1442114448%_) + (if (gx#stx-pair? _%hd1441514445%_) + (let ((_%e1441814450%_ + (gx#syntax-e _%hd1441514445%_))) + (let ((_%lp-hd1441914454%_ (let () (declare (not safe)) - (##car _%e1456114594%_))) - (_%lp-tl1456314601%_ + (##car _%e1441814450%_))) + (_%lp-tl1442014457%_ (let () (declare (not safe)) - (##cdr _%e1456114594%_)))) - (_%loop1456014584%_ - _%lp-tl1456314601%_ - (cons _%lp-hd1456214598%_ - _%hd-bind1456414591%_)))) - (let ((_%hd-bind1456514604%_ - (reverse _%hd-bind1456414591%_))) - ((lambda (_%L14608%_) + (##cdr _%e1441814450%_)))) + (_%loop1441714441%_ + _%lp-tl1442014457%_ + (cons _%lp-hd1441914454%_ + _%hd-bind1442114448%_)))) + (let ((_%hd-bind1442214460%_ + (reverse _%hd-bind1442114448%_))) + ((lambda (_%g1441314463%_) (cons (gx#datum->syntax '#f 'let-values) (cons (begin (gx#syntax-check-splice-targets - _%L14465%_ - _%L14537%_) - (foldr (lambda (_%g1462614637%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1462714640%_ - _%g1462814642%_) - (cons (cons (cons _%g1462714640%_ '()) - (cons _%g1462614637%_ '())) - _%g1462814642%_)) + _%g1424314324%_ + _%g1434414394%_) + (foldr (lambda (_%g1448114492%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1448214495%_ + _%g1448314497%_) + (cons (cons (cons _%g1448214495%_ '()) + (cons _%g1448114492%_ '())) + _%g1448314497%_)) '() - _%L14465%_ - _%L14537%_)) + _%g1424314324%_ + _%g1434414394%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'and) - (foldr (lambda (_%g1462914645%_ + (foldr (lambda (_%g1448414500%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1463014648%_) - (cons _%g1462914645%_ _%g1463014648%_)) + _%g1448514503%_) + (cons _%g1448414500%_ _%g1448514503%_)) (cons (cons (gx#datum->syntax '#f 'let-values) (cons (begin (gx#syntax-check-splice-targets - _%L14537%_ - _%L14608%_) - (foldr (lambda (_%g1463114651%_ - _%g1463214654%_ - _%g1463314656%_) - (cons (cons _%g1463214654%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%g1463114651%_ '())) - _%g1463314656%_)) + _%g1434414394%_ + _%g1441314463%_) + (foldr (lambda (_%g1448614506%_ + _%g1448714509%_ + _%g1448814511%_) + (cons (cons _%g1448714509%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%g1448614506%_ '())) + _%g1448814511%_)) '() - _%L14537%_ - _%L14608%_)) + _%g1434414394%_ + _%g1441314463%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g1463414659%_ - _%g1463514662%_) - (cons _%g1463414659%_ - _%g1463514662%_)) + (foldr (lambda (_%g1448914514%_ + _%g1449014517%_) + (cons _%g1448914514%_ + _%g1449014517%_)) '() - _%L14345%_))) + _%g1409414208%_))) '()) - _%L14537%_)) + _%g1434414394%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd-bind1456514604%_)))))) - (_%loop1456014584%_ _%target1455714578%_ '())) - (_%g1455414571%_ _%g1455514575%_))))) + _%hd-bind1442214460%_)))))) + (_%loop1441714441%_ _%target1441414435%_ '())) + (_%g1441114428%_ _%g1441214432%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1455414571%_ - _%g1455514575%_))))) - (_%g1455314665%_ + (_%g1441114428%_ + _%g1441214432%_))))) + (_%g1441014520%_ (gx#stx-map - _%let-head14182%_ - (foldr (lambda (_%g1466814671%_ - _%g1466914674%_) - (cons _%g1466814671%_ - _%g1466914674%_)) + _%let-head14049%_ + (foldr (lambda (_%g1452314526%_ + _%g1452414529%_) + (cons _%g1452314526%_ + _%g1452414529%_)) '() - _%L14467%_))))) - _%$e1449414533%_)))))) + _%g1424414326%_))))) + _%$e1435314391%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1448914513%_ - _%target1448614507%_ + (_%loop1434814372%_ + _%target1434514366%_ '())) - (_%g1448314500%_ - _%g1448414504%_))))) - (_%g1448314500%_ _%g1448414504%_))))) - (_%g1448214677%_ + (_%g1434214359%_ + _%g1434314363%_))))) + (_%g1434214359%_ _%g1434314363%_))))) + (_%g1434114532%_ (gx#gentemps - (foldr (lambda (_%g1468014683%_ _%g1468114686%_) - (cons _%g1468014683%_ _%g1468114686%_)) + (foldr (lambda (_%g1453514538%_ _%g1453614541%_) + (cons _%g1453514538%_ _%g1453614541%_)) '() - _%L14467%_))))) - _%e1439114459%_ - _%hd1439214462%_)))))) + _%g1424414326%_))))) + _%e1425414320%_ + _%hd1425514322%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1438514417%_ - _%target1438214411%_ + (_%loop1424814280%_ + _%target1424514274%_ '() '())) - (_%g1437814404%_ - _%g1437914408%_))))) - (_%g1437814404%_ _%g1437914408%_))))) - (_%g1437714689%_ + (_%g1424114267%_ + _%g1424214271%_))))) + (_%g1424114267%_ _%g1424214271%_))))) + (_%g1424014544%_ (gx#stx-map - _%let-bind14180%_ - (foldr (lambda (_%g1469214695%_ _%g1469314698%_) - (cons _%g1469214695%_ _%g1469314698%_)) + _%let-bind14047%_ + (foldr (lambda (_%g1454714550%_ _%g1454814553%_) + (cons _%g1454714550%_ _%g1454814553%_)) '() - _%L14347%_))))))) - (let* ((_%__match2010920110%_ - (lambda (_%e1422914265%_ - _%hd1423014269%_ - _%tl1423114272%_ - _%e1423214275%_ - _%hd1423314279%_ - _%tl1423414282%_ - _%__splice2002320024%_ - _%target1423514285%_ - _%tl1423714288%_) - (letrec ((_%loop1423814291%_ - (lambda (_%hd1423614295%_ _%bind1424214298%_) - (if (gx#stx-pair? _%hd1423614295%_) - (let ((_%e1423914301%_ - (gx#syntax-e _%hd1423614295%_))) - (let ((_%lp-tl1424114308%_ + _%g1409514210%_))))))) + (let* ((_%__match1994619947%_ + (lambda (_%e1409614132%_ + _%hd1409714136%_ + _%tl1409814139%_ + _%e1409914142%_ + _%hd1410014146%_ + _%tl1410114149%_ + _%__splice1986019861%_ + _%target1410214152%_ + _%tl1410414155%_) + (letrec ((_%loop1410514158%_ + (lambda (_%hd1410314162%_ _%bind1410914165%_) + (if (gx#stx-pair? _%hd1410314162%_) + (let ((_%e1410614167%_ + (gx#syntax-e _%hd1410314162%_))) + (let ((_%lp-tl1410814174%_ (let () (declare (not safe)) - (##cdr _%e1423914301%_))) - (_%lp-hd1424014305%_ + (##cdr _%e1410614167%_))) + (_%lp-hd1410714171%_ (let () (declare (not safe)) - (##car _%e1423914301%_)))) - (_%loop1423814291%_ - _%lp-tl1424114308%_ - (cons _%lp-hd1424014305%_ - _%bind1424214298%_)))) - (let ((_%bind1424314311%_ - (reverse _%bind1424214298%_))) + (##car _%e1410614167%_)))) + (_%loop1410514158%_ + _%lp-tl1410814174%_ + (cons _%lp-hd1410714171%_ + _%bind1410914165%_)))) + (let ((_%bind1411014177%_ + (reverse _%bind1410914165%_))) (if (gx#stx-pair/null? - _%tl1423414282%_) - (let ((_%__splice2002520026%_ + _%tl1410114149%_) + (let ((_%__splice1986219863%_ (gx#syntax-split-splice->vector - _%tl1423414282%_ + _%tl1410114149%_ '0))) - (let ((_%tl1424614318%_ + (let ((_%tl1411314183%_ (let () (declare (not safe)) (##vector-ref - _%__splice2002520026%_ + _%__splice1986219863%_ '1))) - (_%target1424414315%_ + (_%target1411114180%_ (let () (declare (not safe)) (##vector-ref - _%__splice2002520026%_ + _%__splice1986219863%_ '0)))) (if (gx#stx-null? - _%tl1424614318%_) - (letrec ((_%loop1424714321%_ - (lambda (_%hd1424514325%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body1425114328%_) - (if (gx#stx-pair? _%hd1424514325%_) - (let ((_%e1424814331%_ - (gx#syntax-e _%hd1424514325%_))) - (let ((_%lp-tl1425014338%_ + _%tl1411314183%_) + (letrec ((_%loop1411414186%_ + (lambda (_%hd1411214190%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body1411814193%_) + (if (gx#stx-pair? _%hd1411214190%_) + (let ((_%e1411514195%_ + (gx#syntax-e _%hd1411214190%_))) + (let ((_%lp-tl1411714202%_ (let () (declare (not safe)) - (##cdr _%e1424814331%_))) - (_%lp-hd1424914335%_ + (##cdr _%e1411514195%_))) + (_%lp-hd1411614199%_ (let () (declare (not safe)) - (##car _%e1424814331%_)))) - (_%loop1424714321%_ - _%lp-tl1425014338%_ - (cons _%lp-hd1424914335%_ - _%body1425114328%_)))) - (let ((_%body1425214341%_ - (reverse _%body1425114328%_))) - (let ((_%L14345%_ _%body1425214341%_) - (_%L14347%_ _%bind1424314311%_)) + (##car _%e1411514195%_)))) + (_%loop1411414186%_ + _%lp-tl1411714202%_ + (cons _%lp-hd1411614199%_ + _%body1411814193%_)))) + (let ((_%body1411914205%_ + (reverse _%body1411814193%_))) + (let ((_%g1409414208%_ _%body1411914205%_) + (_%g1409514210%_ _%bind1411014177%_)) (if (gx#stx-andmap - _%let-bind?14178%_ - (foldr (lambda (_%g1436914372%_ - _%g1437014375%_) - (cons _%g1436914372%_ - _%g1437014375%_)) + _%let-bind?14045%_ + (foldr (lambda (_%g1423214235%_ + _%g1423314238%_) + (cons _%g1423214235%_ + _%g1423314238%_)) '() - _%L14347%_)) - (_%__kont2002120022%_ - _%L14345%_ - _%L14347%_) + _%g1409514210%_)) + (_%__kont1985819859%_ + _%g1409414208%_ + _%g1409514210%_) (let () (declare (not safe)) - (_%g1418614258%_))))))))) - (_%loop1424714321%_ _%target1424414315%_ '())) - (let () (declare (not safe)) (_%g1418614258%_))))) + (_%g1405314125%_))))))))) + (_%loop1411414186%_ _%target1411114180%_ '())) + (let () (declare (not safe)) (_%g1405314125%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g1418614258%_)))))))) - (_%loop1423814291%_ _%target1423514285%_ '())))) - (_%__match2008920090%_ - (lambda (_%e1420614708%_ - _%hd1420714712%_ - _%tl1420814715%_ - _%e1420914718%_ - _%hd1421014722%_ - _%tl1421114725%_ - _%e1421214728%_ - _%hd1421314732%_ - _%tl1421414735%_ - _%e1421514738%_ - _%hd1421614742%_ - _%tl1421714745%_ - _%__splice2001920020%_ - _%target1421814748%_ - _%tl1422014751%_) - (letrec ((_%loop1422114754%_ - (lambda (_%hd1421914758%_ _%body1422514761%_) - (if (gx#stx-pair? _%hd1421914758%_) - (let ((_%e1422214764%_ - (gx#syntax-e _%hd1421914758%_))) - (let ((_%lp-tl1422414771%_ + (_%g1405314125%_)))))))) + (_%loop1410514158%_ _%target1410214152%_ '())))) + (_%__match1992619927%_ + (lambda (_%e1407314563%_ + _%hd1407414567%_ + _%tl1407514570%_ + _%e1407614573%_ + _%hd1407714577%_ + _%tl1407814580%_ + _%e1407914583%_ + _%hd1408014587%_ + _%tl1408114590%_ + _%e1408214593%_ + _%hd1408314597%_ + _%tl1408414600%_ + _%__splice1985619857%_ + _%target1408514603%_ + _%tl1408714606%_) + (letrec ((_%loop1408814609%_ + (lambda (_%hd1408614613%_ _%body1409214616%_) + (if (gx#stx-pair? _%hd1408614613%_) + (let ((_%e1408914618%_ + (gx#syntax-e _%hd1408614613%_))) + (let ((_%lp-tl1409114625%_ (let () (declare (not safe)) - (##cdr _%e1422214764%_))) - (_%lp-hd1422314768%_ + (##cdr _%e1408914618%_))) + (_%lp-hd1409014622%_ (let () (declare (not safe)) - (##car _%e1422214764%_)))) - (_%loop1422114754%_ - _%lp-tl1422414771%_ - (cons _%lp-hd1422314768%_ - _%body1422514761%_)))) - (let ((_%body1422614774%_ - (reverse _%body1422514761%_))) - (_%__kont2001720018%_ - _%body1422614774%_ - _%hd1421614742%_)))))) - (_%loop1422114754%_ _%target1421814748%_ '())))) - (_%__match2005320054%_ - (lambda (_%e1419214816%_ - _%hd1419314820%_ - _%tl1419414823%_ - _%e1419514826%_ - _%hd1419614830%_ - _%tl1419714833%_ - _%e1419814836%_ - _%hd1419914840%_ - _%tl1420014843%_ - _%e1420114846%_ - _%hd1420214850%_ - _%tl1420314853%_) - (let ((_%L14856%_ _%tl1419714833%_) - (_%L14858%_ _%hd1420214850%_) - (_%L14859%_ _%hd1419914840%_) - (_%L14860%_ _%hd1419314820%_)) - (if (_%let-head?14181%_ _%L14859%_) - (_%__kont2001520016%_ - _%L14856%_ - _%L14858%_ - _%L14859%_ - _%L14860%_) - (if (gx#stx-pair? _%hd1419914840%_) - (let ((_%e1421514738%_ - (gx#syntax-e _%hd1419914840%_))) - (let ((_%tl1421714745%_ + (##car _%e1408914618%_)))) + (_%loop1408814609%_ + _%lp-tl1409114625%_ + (cons _%lp-hd1409014622%_ + _%body1409214616%_)))) + (let ((_%body1409314628%_ + (reverse _%body1409214616%_))) + (_%__kont1985419855%_ + _%body1409314628%_ + _%hd1408314597%_)))))) + (_%loop1408814609%_ _%target1408514603%_ '())))) + (_%__match1989019891%_ + (lambda (_%e1405914669%_ + _%hd1406014673%_ + _%tl1406114676%_ + _%e1406214679%_ + _%hd1406314683%_ + _%tl1406414686%_ + _%e1406514689%_ + _%hd1406614693%_ + _%tl1406714696%_ + _%e1406814699%_ + _%hd1406914703%_ + _%tl1407014706%_) + (let ((_%g1405514709%_ _%tl1406414686%_) + (_%g1405614711%_ _%hd1406914703%_) + (_%g1405714712%_ _%hd1406614693%_) + (_%g1405814713%_ _%hd1406014673%_)) + (if (_%let-head?14048%_ _%g1405714712%_) + (_%__kont1985219853%_ + _%g1405514709%_ + _%g1405614711%_ + _%g1405714712%_ + _%g1405814713%_) + (if (gx#stx-pair? _%hd1406614693%_) + (let ((_%e1408214593%_ + (gx#syntax-e _%hd1406614693%_))) + (let ((_%tl1408414600%_ (let () (declare (not safe)) - (##cdr _%e1421514738%_))) - (_%hd1421614742%_ + (##cdr _%e1408214593%_))) + (_%hd1408314597%_ (let () (declare (not safe)) - (##car _%e1421514738%_)))) - (if (gx#stx-pair/null? _%hd1419614830%_) - (let ((_%__splice2002320024%_ + (##car _%e1408214593%_)))) + (if (gx#stx-pair/null? _%hd1406314683%_) + (let ((_%__splice1986019861%_ (gx#syntax-split-splice->vector - _%hd1419614830%_ + _%hd1406314683%_ '0))) - (let ((_%tl1423714288%_ + (let ((_%tl1410414155%_ (let () (declare (not safe)) (##vector-ref - _%__splice2002320024%_ + _%__splice1986019861%_ '1))) - (_%target1423514285%_ + (_%target1410214152%_ (let () (declare (not safe)) (##vector-ref - _%__splice2002320024%_ + _%__splice1986019861%_ '0)))) (if (gx#stx-null? - _%tl1423714288%_) - (_%__match2010920110%_ - _%e1419214816%_ - _%hd1419314820%_ - _%tl1419414823%_ - _%e1419514826%_ - _%hd1419614830%_ - _%tl1419714833%_ - _%__splice2002320024%_ - _%target1423514285%_ - _%tl1423714288%_) + _%tl1410414155%_) + (_%__match1994619947%_ + _%e1405914669%_ + _%hd1406014673%_ + _%tl1406114676%_ + _%e1406214679%_ + _%hd1406314683%_ + _%tl1406414686%_ + _%__splice1986019861%_ + _%target1410214152%_ + _%tl1410414155%_) (let () (declare (not safe)) - (_%g1418614258%_))))) + (_%g1405314125%_))))) (let () (declare (not safe)) - (_%g1418614258%_))))) - (if (gx#stx-pair/null? _%hd1419614830%_) - (let ((_%__splice2002320024%_ + (_%g1405314125%_))))) + (if (gx#stx-pair/null? _%hd1406314683%_) + (let ((_%__splice1986019861%_ (gx#syntax-split-splice->vector - _%hd1419614830%_ + _%hd1406314683%_ '0))) - (let ((_%tl1423714288%_ + (let ((_%tl1410414155%_ (let () (declare (not safe)) (##vector-ref - _%__splice2002320024%_ + _%__splice1986019861%_ '1))) - (_%target1423514285%_ + (_%target1410214152%_ (let () (declare (not safe)) (##vector-ref - _%__splice2002320024%_ + _%__splice1986019861%_ '0)))) - (if (gx#stx-null? _%tl1423714288%_) - (_%__match2010920110%_ - _%e1419214816%_ - _%hd1419314820%_ - _%tl1419414823%_ - _%e1419514826%_ - _%hd1419614830%_ - _%tl1419714833%_ - _%__splice2002320024%_ - _%target1423514285%_ - _%tl1423714288%_) + (if (gx#stx-null? _%tl1410414155%_) + (_%__match1994619947%_ + _%e1405914669%_ + _%hd1406014673%_ + _%tl1406114676%_ + _%e1406214679%_ + _%hd1406314683%_ + _%tl1406414686%_ + _%__splice1986019861%_ + _%target1410214152%_ + _%tl1410414155%_) (let () (declare (not safe)) - (_%g1418614258%_))))) + (_%g1405314125%_))))) (let () (declare (not safe)) - (_%g1418614258%_))))))))) - (if (gx#stx-pair? _%__stx2001220013%_) - (let ((_%e1419214816%_ (gx#syntax-e _%__stx2001220013%_))) - (let ((_%tl1419414823%_ + (_%g1405314125%_))))))))) + (if (gx#stx-pair? _%__stx1984919850%_) + (let ((_%e1405914669%_ (gx#syntax-e _%__stx1984919850%_))) + (let ((_%tl1406114676%_ (let () (declare (not safe)) - (##cdr _%e1419214816%_))) - (_%hd1419314820%_ + (##cdr _%e1405914669%_))) + (_%hd1406014673%_ (let () (declare (not safe)) - (##car _%e1419214816%_)))) - (if (gx#stx-pair? _%tl1419414823%_) - (let ((_%e1419514826%_ - (gx#syntax-e _%tl1419414823%_))) - (let ((_%tl1419714833%_ + (##car _%e1405914669%_)))) + (if (gx#stx-pair? _%tl1406114676%_) + (let ((_%e1406214679%_ + (gx#syntax-e _%tl1406114676%_))) + (let ((_%tl1406414686%_ (let () (declare (not safe)) - (##cdr _%e1419514826%_))) - (_%hd1419614830%_ + (##cdr _%e1406214679%_))) + (_%hd1406314683%_ (let () (declare (not safe)) - (##car _%e1419514826%_)))) - (if (gx#stx-pair? _%hd1419614830%_) - (let ((_%e1419814836%_ - (gx#syntax-e _%hd1419614830%_))) - (let ((_%tl1420014843%_ + (##car _%e1406214679%_)))) + (if (gx#stx-pair? _%hd1406314683%_) + (let ((_%e1406514689%_ + (gx#syntax-e _%hd1406314683%_))) + (let ((_%tl1406714696%_ (let () (declare (not safe)) - (##cdr _%e1419814836%_))) - (_%hd1419914840%_ + (##cdr _%e1406514689%_))) + (_%hd1406614693%_ (let () (declare (not safe)) - (##car _%e1419814836%_)))) - (if (gx#stx-pair? _%tl1420014843%_) - (let ((_%e1420114846%_ + (##car _%e1406514689%_)))) + (if (gx#stx-pair? _%tl1406714696%_) + (let ((_%e1406814699%_ (gx#syntax-e - _%tl1420014843%_))) - (let ((_%tl1420314853%_ + _%tl1406714696%_))) + (let ((_%tl1407014706%_ (let () (declare (not safe)) - (##cdr _%e1420114846%_))) - (_%hd1420214850%_ + (##cdr _%e1406814699%_))) + (_%hd1406914703%_ (let () (declare (not safe)) - (##car _%e1420114846%_)))) + (##car _%e1406814699%_)))) (if (gx#stx-null? - _%tl1420314853%_) - (_%__match2005320054%_ - _%e1419214816%_ - _%hd1419314820%_ - _%tl1419414823%_ - _%e1419514826%_ - _%hd1419614830%_ - _%tl1419714833%_ - _%e1419814836%_ - _%hd1419914840%_ - _%tl1420014843%_ - _%e1420114846%_ - _%hd1420214850%_ - _%tl1420314853%_) + _%tl1407014706%_) + (_%__match1989019891%_ + _%e1405914669%_ + _%hd1406014673%_ + _%tl1406114676%_ + _%e1406214679%_ + _%hd1406314683%_ + _%tl1406414686%_ + _%e1406514689%_ + _%hd1406614693%_ + _%tl1406714696%_ + _%e1406814699%_ + _%hd1406914703%_ + _%tl1407014706%_) (if (gx#stx-pair? - _%hd1419914840%_) - (let ((_%e1421514738%_ + _%hd1406614693%_) + (let ((_%e1408214593%_ (gx#syntax-e - _%hd1419914840%_))) - (let ((_%tl1421714745%_ + _%hd1406614693%_))) + (let ((_%tl1408414600%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e1421514738%_))) - (_%hd1421614742%_ + (let () (declare (not safe)) (##cdr _%e1408214593%_))) + (_%hd1408314597%_ (let () (declare (not safe)) - (##car _%e1421514738%_)))) - (if (gx#stx-pair/null? _%hd1419614830%_) - (let ((_%__splice2002320024%_ + (##car _%e1408214593%_)))) + (if (gx#stx-pair/null? _%hd1406314683%_) + (let ((_%__splice1986019861%_ (gx#syntax-split-splice->vector - _%hd1419614830%_ + _%hd1406314683%_ '0))) - (let ((_%tl1423714288%_ + (let ((_%tl1410414155%_ (let () (declare (not safe)) - (##vector-ref _%__splice2002320024%_ '1))) - (_%target1423514285%_ + (##vector-ref _%__splice1986019861%_ '1))) + (_%target1410214152%_ (let () (declare (not safe)) - (##vector-ref _%__splice2002320024%_ '0)))) - (if (gx#stx-null? _%tl1423714288%_) - (_%__match2010920110%_ - _%e1419214816%_ - _%hd1419314820%_ - _%tl1419414823%_ - _%e1419514826%_ - _%hd1419614830%_ - _%tl1419714833%_ - _%__splice2002320024%_ - _%target1423514285%_ - _%tl1423714288%_) + (##vector-ref _%__splice1986019861%_ '0)))) + (if (gx#stx-null? _%tl1410414155%_) + (_%__match1994619947%_ + _%e1405914669%_ + _%hd1406014673%_ + _%tl1406114676%_ + _%e1406214679%_ + _%hd1406314683%_ + _%tl1406414686%_ + _%__splice1986019861%_ + _%target1410214152%_ + _%tl1410414155%_) (let () (declare (not safe)) - (_%g1418614258%_))))) - (let () (declare (not safe)) (_%g1418614258%_))))) - (if (gx#stx-pair/null? _%hd1419614830%_) - (let ((_%__splice2002320024%_ + (_%g1405314125%_))))) + (let () (declare (not safe)) (_%g1405314125%_))))) + (if (gx#stx-pair/null? _%hd1406314683%_) + (let ((_%__splice1986019861%_ (gx#syntax-split-splice->vector - _%hd1419614830%_ + _%hd1406314683%_ '0))) - (let ((_%tl1423714288%_ + (let ((_%tl1410414155%_ (let () (declare (not safe)) - (##vector-ref _%__splice2002320024%_ '1))) - (_%target1423514285%_ + (##vector-ref _%__splice1986019861%_ '1))) + (_%target1410214152%_ (let () (declare (not safe)) - (##vector-ref _%__splice2002320024%_ '0)))) - (if (gx#stx-null? _%tl1423714288%_) - (_%__match2010920110%_ - _%e1419214816%_ - _%hd1419314820%_ - _%tl1419414823%_ - _%e1419514826%_ - _%hd1419614830%_ - _%tl1419714833%_ - _%__splice2002320024%_ - _%target1423514285%_ - _%tl1423714288%_) - (let () (declare (not safe)) (_%g1418614258%_))))) - (let () (declare (not safe)) (_%g1418614258%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd1419914840%_) - (let ((_%e1421514738%_ + (##vector-ref _%__splice1986019861%_ '0)))) + (if (gx#stx-null? _%tl1410414155%_) + (_%__match1994619947%_ + _%e1405914669%_ + _%hd1406014673%_ + _%tl1406114676%_ + _%e1406214679%_ + _%hd1406314683%_ + _%tl1406414686%_ + _%__splice1986019861%_ + _%target1410214152%_ + _%tl1410414155%_) + (let () (declare (not safe)) (_%g1405314125%_))))) + (let () (declare (not safe)) (_%g1405314125%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%hd1406614693%_) + (let ((_%e1408214593%_ (gx#syntax-e - _%hd1419914840%_))) - (let ((_%tl1421714745%_ + _%hd1406614693%_))) + (let ((_%tl1408414600%_ (let () (declare (not safe)) - (##cdr _%e1421514738%_))) - (_%hd1421614742%_ + (##cdr _%e1408214593%_))) + (_%hd1408314597%_ (let () (declare (not safe)) - (##car _%e1421514738%_)))) + (##car _%e1408214593%_)))) (if (gx#stx-null? - _%tl1421714745%_) + _%tl1408414600%_) (if (gx#stx-null? - _%tl1420014843%_) + _%tl1406714696%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl1419714833%_) - (let ((_%__splice2001920020%_ + _%tl1406414686%_) + (let ((_%__splice1985619857%_ (gx#syntax-split-splice->vector - _%tl1419714833%_ + _%tl1406414686%_ '0))) - (let ((_%tl1422014751%_ + (let ((_%tl1408714606%_ (let () (declare (not safe)) - (##vector-ref _%__splice2001920020%_ '1))) - (_%target1421814748%_ + (##vector-ref _%__splice1985619857%_ '1))) + (_%target1408514603%_ (let () (declare (not safe)) - (##vector-ref _%__splice2001920020%_ '0)))) - (if (gx#stx-null? _%tl1422014751%_) - (_%__match2008920090%_ - _%e1419214816%_ - _%hd1419314820%_ - _%tl1419414823%_ - _%e1419514826%_ - _%hd1419614830%_ - _%tl1419714833%_ - _%e1419814836%_ - _%hd1419914840%_ - _%tl1420014843%_ - _%e1421514738%_ - _%hd1421614742%_ - _%tl1421714745%_ - _%__splice2001920020%_ - _%target1421814748%_ - _%tl1422014751%_) - (if (gx#stx-pair/null? _%hd1419614830%_) - (let ((_%__splice2002320024%_ + (##vector-ref _%__splice1985619857%_ '0)))) + (if (gx#stx-null? _%tl1408714606%_) + (_%__match1992619927%_ + _%e1405914669%_ + _%hd1406014673%_ + _%tl1406114676%_ + _%e1406214679%_ + _%hd1406314683%_ + _%tl1406414686%_ + _%e1406514689%_ + _%hd1406614693%_ + _%tl1406714696%_ + _%e1408214593%_ + _%hd1408314597%_ + _%tl1408414600%_ + _%__splice1985619857%_ + _%target1408514603%_ + _%tl1408714606%_) + (if (gx#stx-pair/null? _%hd1406314683%_) + (let ((_%__splice1986019861%_ (gx#syntax-split-splice->vector - _%hd1419614830%_ + _%hd1406314683%_ '0))) - (let ((_%tl1423714288%_ + (let ((_%tl1410414155%_ (let () (declare (not safe)) (##vector-ref - _%__splice2002320024%_ + _%__splice1986019861%_ '1))) - (_%target1423514285%_ + (_%target1410214152%_ (let () (declare (not safe)) (##vector-ref - _%__splice2002320024%_ + _%__splice1986019861%_ '0)))) - (if (gx#stx-null? _%tl1423714288%_) - (_%__match2010920110%_ - _%e1419214816%_ - _%hd1419314820%_ - _%tl1419414823%_ - _%e1419514826%_ - _%hd1419614830%_ - _%tl1419714833%_ - _%__splice2002320024%_ - _%target1423514285%_ - _%tl1423714288%_) + (if (gx#stx-null? _%tl1410414155%_) + (_%__match1994619947%_ + _%e1405914669%_ + _%hd1406014673%_ + _%tl1406114676%_ + _%e1406214679%_ + _%hd1406314683%_ + _%tl1406414686%_ + _%__splice1986019861%_ + _%target1410214152%_ + _%tl1410414155%_) (let () (declare (not safe)) - (_%g1418614258%_))))) + (_%g1405314125%_))))) (let () (declare (not safe)) - (_%g1418614258%_)))))) - (if (gx#stx-pair/null? _%hd1419614830%_) - (let ((_%__splice2002320024%_ + (_%g1405314125%_)))))) + (if (gx#stx-pair/null? _%hd1406314683%_) + (let ((_%__splice1986019861%_ (gx#syntax-split-splice->vector - _%hd1419614830%_ + _%hd1406314683%_ '0))) - (let ((_%tl1423714288%_ + (let ((_%tl1410414155%_ (let () (declare (not safe)) (##vector-ref - _%__splice2002320024%_ + _%__splice1986019861%_ '1))) - (_%target1423514285%_ + (_%target1410214152%_ (let () (declare (not safe)) (##vector-ref - _%__splice2002320024%_ + _%__splice1986019861%_ '0)))) - (if (gx#stx-null? _%tl1423714288%_) - (_%__match2010920110%_ - _%e1419214816%_ - _%hd1419314820%_ - _%tl1419414823%_ - _%e1419514826%_ - _%hd1419614830%_ - _%tl1419714833%_ - _%__splice2002320024%_ - _%target1423514285%_ - _%tl1423714288%_) + (if (gx#stx-null? _%tl1410414155%_) + (_%__match1994619947%_ + _%e1405914669%_ + _%hd1406014673%_ + _%tl1406114676%_ + _%e1406214679%_ + _%hd1406314683%_ + _%tl1406414686%_ + _%__splice1986019861%_ + _%target1410214152%_ + _%tl1410414155%_) (let () (declare (not safe)) - (_%g1418614258%_))))) - (let () (declare (not safe)) (_%g1418614258%_)))) - (if (gx#stx-pair/null? _%hd1419614830%_) - (let ((_%__splice2002320024%_ + (_%g1405314125%_))))) + (let () (declare (not safe)) (_%g1405314125%_)))) + (if (gx#stx-pair/null? _%hd1406314683%_) + (let ((_%__splice1986019861%_ (gx#syntax-split-splice->vector - _%hd1419614830%_ + _%hd1406314683%_ '0))) - (let ((_%tl1423714288%_ + (let ((_%tl1410414155%_ (let () (declare (not safe)) - (##vector-ref _%__splice2002320024%_ '1))) - (_%target1423514285%_ + (##vector-ref _%__splice1986019861%_ '1))) + (_%target1410214152%_ (let () (declare (not safe)) - (##vector-ref _%__splice2002320024%_ '0)))) - (if (gx#stx-null? _%tl1423714288%_) - (_%__match2010920110%_ - _%e1419214816%_ - _%hd1419314820%_ - _%tl1419414823%_ - _%e1419514826%_ - _%hd1419614830%_ - _%tl1419714833%_ - _%__splice2002320024%_ - _%target1423514285%_ - _%tl1423714288%_) + (##vector-ref _%__splice1986019861%_ '0)))) + (if (gx#stx-null? _%tl1410414155%_) + (_%__match1994619947%_ + _%e1405914669%_ + _%hd1406014673%_ + _%tl1406114676%_ + _%e1406214679%_ + _%hd1406314683%_ + _%tl1406414686%_ + _%__splice1986019861%_ + _%target1410214152%_ + _%tl1410414155%_) (let () (declare (not safe)) - (_%g1418614258%_))))) - (let () (declare (not safe)) (_%g1418614258%_)))) - (if (gx#stx-pair/null? _%hd1419614830%_) - (let ((_%__splice2002320024%_ + (_%g1405314125%_))))) + (let () (declare (not safe)) (_%g1405314125%_)))) + (if (gx#stx-pair/null? _%hd1406314683%_) + (let ((_%__splice1986019861%_ (gx#syntax-split-splice->vector - _%hd1419614830%_ + _%hd1406314683%_ '0))) - (let ((_%tl1423714288%_ + (let ((_%tl1410414155%_ (let () (declare (not safe)) - (##vector-ref _%__splice2002320024%_ '1))) - (_%target1423514285%_ + (##vector-ref _%__splice1986019861%_ '1))) + (_%target1410214152%_ (let () (declare (not safe)) - (##vector-ref _%__splice2002320024%_ '0)))) - (if (gx#stx-null? _%tl1423714288%_) - (_%__match2010920110%_ - _%e1419214816%_ - _%hd1419314820%_ - _%tl1419414823%_ - _%e1419514826%_ - _%hd1419614830%_ - _%tl1419714833%_ - _%__splice2002320024%_ - _%target1423514285%_ - _%tl1423714288%_) - (let () (declare (not safe)) (_%g1418614258%_))))) - (let () (declare (not safe)) (_%g1418614258%_)))))) + (##vector-ref _%__splice1986019861%_ '0)))) + (if (gx#stx-null? _%tl1410414155%_) + (_%__match1994619947%_ + _%e1405914669%_ + _%hd1406014673%_ + _%tl1406114676%_ + _%e1406214679%_ + _%hd1406314683%_ + _%tl1406414686%_ + _%__splice1986019861%_ + _%target1410214152%_ + _%tl1410414155%_) + (let () (declare (not safe)) (_%g1405314125%_))))) + (let () (declare (not safe)) (_%g1405314125%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd1419614830%_) - (let ((_%__splice2002320024%_ + _%hd1406314683%_) + (let ((_%__splice1986019861%_ (gx#syntax-split-splice->vector - _%hd1419614830%_ + _%hd1406314683%_ '0))) - (let ((_%tl1423714288%_ + (let ((_%tl1410414155%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice2002320024%_ '1))) - (_%target1423514285%_ + (##vector-ref _%__splice1986019861%_ '1))) + (_%target1410214152%_ (let () (declare (not safe)) - (##vector-ref _%__splice2002320024%_ '0)))) - (if (gx#stx-null? _%tl1423714288%_) - (_%__match2010920110%_ - _%e1419214816%_ - _%hd1419314820%_ - _%tl1419414823%_ - _%e1419514826%_ - _%hd1419614830%_ - _%tl1419714833%_ - _%__splice2002320024%_ - _%target1423514285%_ - _%tl1423714288%_) - (let () (declare (not safe)) (_%g1418614258%_))))) + (##vector-ref _%__splice1986019861%_ '0)))) + (if (gx#stx-null? _%tl1410414155%_) + (_%__match1994619947%_ + _%e1405914669%_ + _%hd1406014673%_ + _%tl1406114676%_ + _%e1406214679%_ + _%hd1406314683%_ + _%tl1406414686%_ + _%__splice1986019861%_ + _%target1410214152%_ + _%tl1410414155%_) + (let () (declare (not safe)) (_%g1405314125%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g1418614258%_))))))) - (if (gx#stx-pair/null? _%hd1419614830%_) - (let ((_%__splice2002320024%_ + (_%g1405314125%_))))))) + (if (gx#stx-pair/null? _%hd1406314683%_) + (let ((_%__splice1986019861%_ (gx#syntax-split-splice->vector - _%hd1419614830%_ + _%hd1406314683%_ '0))) - (let ((_%tl1423714288%_ + (let ((_%tl1410414155%_ (let () (declare (not safe)) (##vector-ref - _%__splice2002320024%_ + _%__splice1986019861%_ '1))) - (_%target1423514285%_ + (_%target1410214152%_ (let () (declare (not safe)) (##vector-ref - _%__splice2002320024%_ + _%__splice1986019861%_ '0)))) - (if (gx#stx-null? _%tl1423714288%_) - (_%__match2010920110%_ - _%e1419214816%_ - _%hd1419314820%_ - _%tl1419414823%_ - _%e1419514826%_ - _%hd1419614830%_ - _%tl1419714833%_ - _%__splice2002320024%_ - _%target1423514285%_ - _%tl1423714288%_) + (if (gx#stx-null? _%tl1410414155%_) + (_%__match1994619947%_ + _%e1405914669%_ + _%hd1406014673%_ + _%tl1406114676%_ + _%e1406214679%_ + _%hd1406314683%_ + _%tl1406414686%_ + _%__splice1986019861%_ + _%target1410214152%_ + _%tl1410414155%_) (let () (declare (not safe)) - (_%g1418614258%_))))) + (_%g1405314125%_))))) (let () (declare (not safe)) - (_%g1418614258%_)))))) - (let () (declare (not safe)) (_%g1418614258%_))))) - (let () (declare (not safe)) (_%g1418614258%_))))))))) + (_%g1405314125%_)))))) + (let () (declare (not safe)) (_%g1405314125%_))))) + (let () (declare (not safe)) (_%g1405314125%_))))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#alet*| - (lambda (_%$stx15218%_) - (let* ((_%__stx2011220113%_ _%$stx15218%_) - (_%g1522415275%_ + (lambda (_%$stx15071%_) + (let* ((_%__stx1994919950%_ _%$stx15071%_) + (_%g1507715128%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2011220113%_)))) - (let ((_%__kont2011520116%_ (lambda () '#t)) - (_%__kont2011720118%_ - (lambda (_%L15433%_) + _%__stx1994919950%_)))) + (let ((_%__kont1995219953%_ (lambda () '#t)) + (_%__kont1995419955%_ + (lambda (_%g1508515282%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g1544915452%_ _%g1545015455%_) - (cons _%g1544915452%_ _%g1545015455%_)) + (foldr (lambda (_%g1529815301%_ _%g1529915304%_) + (cons _%g1529815301%_ _%g1529915304%_)) '() - _%L15433%_))))) - (_%__kont2012120122%_ - (lambda (_%L15342%_ _%L15344%_ _%L15345%_ _%L15346%_) + _%g1508515282%_))))) + (_%__kont1995819959%_ + (lambda (_%g1510115193%_ + _%g1510215195%_ + _%g1510315196%_ + _%g1510415197%_) (cons (gx#datum->syntax '#f 'alet) - (cons (cons _%L15345%_ '()) - (cons (cons _%L15346%_ - (cons _%L15344%_ - (foldr (lambda (_%g1536715370%_ + (cons (cons _%g1510315196%_ '()) + (cons (cons _%g1510415197%_ + (cons _%g1510215195%_ + (foldr (lambda (_%g1521815221%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1536815373%_) - (cons _%g1536715370%_ _%g1536815373%_)) + _%g1521915224%_) + (cons _%g1521815221%_ _%g1521915224%_)) '() - _%L15342%_))) + _%g1510115193%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match2018920190%_ - (lambda (_%e1525215282%_ - _%hd1525315286%_ - _%tl1525415289%_ - _%e1525515292%_ - _%hd1525615296%_ - _%tl1525715299%_ - _%e1525815302%_ - _%hd1525915306%_ - _%tl1526015309%_ - _%__splice2012320124%_ - _%target1526115312%_ - _%tl1526315315%_) - (letrec ((_%loop1526415318%_ - (lambda (_%hd1526215322%_ _%body1526815325%_) - (if (gx#stx-pair? _%hd1526215322%_) - (let ((_%e1526515328%_ - (gx#syntax-e _%hd1526215322%_))) - (let ((_%lp-tl1526715335%_ + (let* ((_%__match2002620027%_ + (lambda (_%e1510515135%_ + _%hd1510615139%_ + _%tl1510715142%_ + _%e1510815145%_ + _%hd1510915149%_ + _%tl1511015152%_ + _%e1511115155%_ + _%hd1511215159%_ + _%tl1511315162%_ + _%__splice1996019961%_ + _%target1511415165%_ + _%tl1511615168%_) + (letrec ((_%loop1511715171%_ + (lambda (_%hd1511515175%_ _%body1512115178%_) + (if (gx#stx-pair? _%hd1511515175%_) + (let ((_%e1511815180%_ + (gx#syntax-e _%hd1511515175%_))) + (let ((_%lp-tl1512015187%_ (let () (declare (not safe)) - (##cdr _%e1526515328%_))) - (_%lp-hd1526615332%_ + (##cdr _%e1511815180%_))) + (_%lp-hd1511915184%_ (let () (declare (not safe)) - (##car _%e1526515328%_)))) - (_%loop1526415318%_ - _%lp-tl1526715335%_ - (cons _%lp-hd1526615332%_ - _%body1526815325%_)))) - (let ((_%body1526915338%_ - (reverse _%body1526815325%_))) - (_%__kont2012120122%_ - _%body1526915338%_ - _%tl1526015309%_ - _%hd1525915306%_ - _%hd1525315286%_)))))) - (_%loop1526415318%_ _%target1526115312%_ '())))) - (_%__match2016320164%_ - (lambda (_%e1523315383%_ - _%hd1523415387%_ - _%tl1523515390%_ - _%e1523615393%_ - _%hd1523715397%_ - _%tl1523815400%_ - _%__splice2011920120%_ - _%target1523915403%_ - _%tl1524115406%_) - (letrec ((_%loop1524215409%_ - (lambda (_%hd1524015413%_ _%body1524615416%_) - (if (gx#stx-pair? _%hd1524015413%_) - (let ((_%e1524315419%_ - (gx#syntax-e _%hd1524015413%_))) - (let ((_%lp-tl1524515426%_ + (##car _%e1511815180%_)))) + (_%loop1511715171%_ + _%lp-tl1512015187%_ + (cons _%lp-hd1511915184%_ + _%body1512115178%_)))) + (let ((_%body1512215190%_ + (reverse _%body1512115178%_))) + (_%__kont1995819959%_ + _%body1512215190%_ + _%tl1511315162%_ + _%hd1511215159%_ + _%hd1510615139%_)))))) + (_%loop1511715171%_ _%target1511415165%_ '())))) + (_%__match2000020001%_ + (lambda (_%e1508615234%_ + _%hd1508715238%_ + _%tl1508815241%_ + _%e1508915244%_ + _%hd1509015248%_ + _%tl1509115251%_ + _%__splice1995619957%_ + _%target1509215254%_ + _%tl1509415257%_) + (letrec ((_%loop1509515260%_ + (lambda (_%hd1509315264%_ _%body1509915267%_) + (if (gx#stx-pair? _%hd1509315264%_) + (let ((_%e1509615269%_ + (gx#syntax-e _%hd1509315264%_))) + (let ((_%lp-tl1509815276%_ (let () (declare (not safe)) - (##cdr _%e1524315419%_))) - (_%lp-hd1524415423%_ + (##cdr _%e1509615269%_))) + (_%lp-hd1509715273%_ (let () (declare (not safe)) - (##car _%e1524315419%_)))) - (_%loop1524215409%_ - _%lp-tl1524515426%_ - (cons _%lp-hd1524415423%_ - _%body1524615416%_)))) - (let ((_%body1524715429%_ - (reverse _%body1524615416%_))) - (_%__kont2011720118%_ - _%body1524715429%_)))))) - (_%loop1524215409%_ _%target1523915403%_ '()))))) - (if (gx#stx-pair? _%__stx2011220113%_) - (let ((_%e1522615465%_ (gx#syntax-e _%__stx2011220113%_))) - (let ((_%tl1522815472%_ + (##car _%e1509615269%_)))) + (_%loop1509515260%_ + _%lp-tl1509815276%_ + (cons _%lp-hd1509715273%_ + _%body1509915267%_)))) + (let ((_%body1510015279%_ + (reverse _%body1509915267%_))) + (_%__kont1995419955%_ + _%body1510015279%_)))))) + (_%loop1509515260%_ _%target1509215254%_ '()))))) + (if (gx#stx-pair? _%__stx1994919950%_) + (let ((_%e1507915314%_ (gx#syntax-e _%__stx1994919950%_))) + (let ((_%tl1508115321%_ (let () (declare (not safe)) - (##cdr _%e1522615465%_))) - (_%hd1522715469%_ + (##cdr _%e1507915314%_))) + (_%hd1508015318%_ (let () (declare (not safe)) - (##car _%e1522615465%_)))) - (if (gx#stx-pair? _%tl1522815472%_) - (let ((_%e1522915475%_ - (gx#syntax-e _%tl1522815472%_))) - (let ((_%tl1523115482%_ + (##car _%e1507915314%_)))) + (if (gx#stx-pair? _%tl1508115321%_) + (let ((_%e1508215324%_ + (gx#syntax-e _%tl1508115321%_))) + (let ((_%tl1508415331%_ (let () (declare (not safe)) - (##cdr _%e1522915475%_))) - (_%hd1523015479%_ + (##cdr _%e1508215324%_))) + (_%hd1508315328%_ (let () (declare (not safe)) - (##car _%e1522915475%_)))) - (if (gx#stx-null? _%hd1523015479%_) - (if (gx#stx-null? _%tl1523115482%_) - (_%__kont2011520116%_) - (if (gx#stx-pair/null? _%tl1523115482%_) - (let ((_%__splice2011920120%_ + (##car _%e1508215324%_)))) + (if (gx#stx-null? _%hd1508315328%_) + (if (gx#stx-null? _%tl1508415331%_) + (_%__kont1995219953%_) + (if (gx#stx-pair/null? _%tl1508415331%_) + (let ((_%__splice1995619957%_ (gx#syntax-split-splice->vector - _%tl1523115482%_ + _%tl1508415331%_ '0))) - (let ((_%tl1524115406%_ + (let ((_%tl1509415257%_ (let () (declare (not safe)) (##vector-ref - _%__splice2011920120%_ + _%__splice1995619957%_ '1))) - (_%target1523915403%_ + (_%target1509215254%_ (let () (declare (not safe)) (##vector-ref - _%__splice2011920120%_ + _%__splice1995619957%_ '0)))) (if (gx#stx-null? - _%tl1524115406%_) - (_%__match2016320164%_ - _%e1522615465%_ - _%hd1522715469%_ - _%tl1522815472%_ - _%e1522915475%_ - _%hd1523015479%_ - _%tl1523115482%_ - _%__splice2011920120%_ - _%target1523915403%_ - _%tl1524115406%_) + _%tl1509415257%_) + (_%__match2000020001%_ + _%e1507915314%_ + _%hd1508015318%_ + _%tl1508115321%_ + _%e1508215324%_ + _%hd1508315328%_ + _%tl1508415331%_ + _%__splice1995619957%_ + _%target1509215254%_ + _%tl1509415257%_) (let () (declare (not safe)) - (_%g1522415275%_))))) + (_%g1507715128%_))))) (let () (declare (not safe)) - (_%g1522415275%_)))) - (if (gx#stx-pair? _%hd1523015479%_) - (let ((_%e1525815302%_ - (gx#syntax-e _%hd1523015479%_))) - (let ((_%tl1526015309%_ + (_%g1507715128%_)))) + (if (gx#stx-pair? _%hd1508315328%_) + (let ((_%e1511115155%_ + (gx#syntax-e _%hd1508315328%_))) + (let ((_%tl1511315162%_ (let () (declare (not safe)) - (##cdr _%e1525815302%_))) - (_%hd1525915306%_ + (##cdr _%e1511115155%_))) + (_%hd1511215159%_ (let () (declare (not safe)) - (##car _%e1525815302%_)))) + (##car _%e1511115155%_)))) (if (gx#stx-pair/null? - _%tl1523115482%_) - (let ((_%__splice2012320124%_ + _%tl1508415331%_) + (let ((_%__splice1996019961%_ (gx#syntax-split-splice->vector - _%tl1523115482%_ + _%tl1508415331%_ '0))) - (let ((_%tl1526315315%_ + (let ((_%tl1511615168%_ (let () (declare (not safe)) (##vector-ref - _%__splice2012320124%_ + _%__splice1996019961%_ '1))) - (_%target1526115312%_ + (_%target1511415165%_ (let () (declare (not safe)) (##vector-ref - _%__splice2012320124%_ + _%__splice1996019961%_ '0)))) (if (gx#stx-null? - _%tl1526315315%_) - (_%__match2018920190%_ - _%e1522615465%_ - _%hd1522715469%_ - _%tl1522815472%_ - _%e1522915475%_ - _%hd1523015479%_ - _%tl1523115482%_ - _%e1525815302%_ - _%hd1525915306%_ - _%tl1526015309%_ - _%__splice2012320124%_ - _%target1526115312%_ - _%tl1526315315%_) + _%tl1511615168%_) + (_%__match2002620027%_ + _%e1507915314%_ + _%hd1508015318%_ + _%tl1508115321%_ + _%e1508215324%_ + _%hd1508315328%_ + _%tl1508415331%_ + _%e1511115155%_ + _%hd1511215159%_ + _%tl1511315162%_ + _%__splice1996019961%_ + _%target1511415165%_ + _%tl1511615168%_) (let () (declare (not safe)) - (_%g1522415275%_))))) + (_%g1507715128%_))))) (let () (declare (not safe)) - (_%g1522415275%_))))) + (_%g1507715128%_))))) (let () (declare (not safe)) - (_%g1522415275%_)))))) - (let () (declare (not safe)) (_%g1522415275%_))))) - (let () (declare (not safe)) (_%g1522415275%_)))))))) + (_%g1507715128%_)))))) + (let () (declare (not safe)) (_%g1507715128%_))))) + (let () (declare (not safe)) (_%g1507715128%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#@list| - (lambda (_%$stx15495%_) - (let* ((_%__stx2019220193%_ _%$stx15495%_) - (_%g1550615584%_ + (lambda (_%$stx15344%_) + (let* ((_%__stx2002920030%_ _%$stx15344%_) + (_%g1535515433%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2019220193%_)))) - (let ((_%__kont2019520196%_ + _%__stx2002920030%_)))) + (let ((_%__kont2003220033%_ (lambda () (cons (gx#datum->syntax '#f 'quote) (cons '() '())))) - (_%__kont2019720198%_ - (lambda (_%L15915%_) - (cons (gx#datum->syntax '#f 'quote) (cons _%L15915%_ '())))) - (_%__kont2019920200%_ - (lambda (_%L15863%_) + (_%__kont2003420035%_ + (lambda (_%g1536015764%_) + (cons (gx#datum->syntax '#f 'quote) + (cons _%g1536015764%_ '())))) + (_%__kont2003620037%_ + (lambda (_%g1537015712%_) (cons (gx#datum->syntax '#f 'quasiquote) - (cons _%L15863%_ '())))) - (_%__kont2020120202%_ (lambda (_%L15810%_) _%L15810%_)) - (_%__kont2020320204%_ - (lambda (_%L15752%_ _%L15754%_) _%L15754%_)) - (_%__kont2020520206%_ - (lambda (_%L15694%_ _%L15696%_ _%L15697%_ _%L15698%_) + (cons _%g1537015712%_ '())))) + (_%__kont2003820039%_ + (lambda (_%g1538015659%_) _%g1538015659%_)) + (_%__kont2004020041%_ + (lambda (_%g1539115601%_ _%g1539215603%_) _%g1539215603%_)) + (_%__kont2004220043%_ + (lambda (_%g1540215543%_ + _%g1540315545%_ + _%g1540415546%_ + _%g1540515547%_) (cons (gx#datum->syntax '#f 'foldr) (cons (gx#datum->syntax '#f 'cons) - (cons (cons _%L15698%_ _%L15694%_) - (cons _%L15697%_ '())))))) - (_%__kont2020720208%_ - (lambda (_%L15640%_ _%L15642%_ _%L15643%_) + (cons (cons _%g1540515547%_ _%g1540215543%_) + (cons _%g1540415546%_ '())))))) + (_%__kont2004420045%_ + (lambda (_%g1541515489%_ _%g1541615491%_ _%g1541715492%_) (cons (gx#datum->syntax '#f 'cons) - (cons _%L15642%_ - (cons (cons _%L15643%_ _%L15640%_) '()))))) - (_%__kont2020920210%_ (lambda (_%L15601%_) _%L15601%_))) - (let* ((_%__match2033120332%_ - (lambda (_%e1555715664%_ - _%hd1555815668%_ - _%tl1555915671%_ - _%e1556015674%_ - _%hd1556115678%_ - _%tl1556215681%_ - _%e1556315684%_ - _%hd1556415688%_ - _%tl1556515691%_) - (let ((_%L15694%_ _%tl1556515691%_) - (_%L15696%_ _%hd1556415688%_) - (_%L15697%_ _%hd1556115678%_) - (_%L15698%_ _%hd1555815668%_)) - (if (gx#ellipsis? _%L15696%_) - (_%__kont2020520206%_ - _%L15694%_ - _%L15696%_ - _%L15697%_ - _%L15698%_) - (_%__kont2020720208%_ - _%tl1556215681%_ - _%hd1556115678%_ - _%hd1555815668%_))))) - (_%__match2031320314%_ - (lambda (_%e1554415722%_ - _%hd1554515726%_ - _%tl1554615729%_ - _%e1554715732%_ - _%hd1554815736%_ - _%tl1554915739%_ - _%e1555015742%_ - _%hd1555115746%_ - _%tl1555215749%_) - (let ((_%L15752%_ _%hd1555115746%_) - (_%L15754%_ _%hd1554815736%_)) - (if (gx#ellipsis? _%L15752%_) - (_%__kont2020320204%_ _%L15752%_ _%L15754%_) - (_%__match2033120332%_ - _%e1554415722%_ - _%hd1554515726%_ - _%tl1554615729%_ - _%e1554715732%_ - _%hd1554815736%_ - _%tl1554915739%_ - _%e1555015742%_ - _%hd1555115746%_ - _%tl1555215749%_)))))) - (if (gx#stx-pair? _%__stx2019220193%_) - (let ((_%e1550815937%_ (gx#syntax-e _%__stx2019220193%_))) - (let ((_%tl1551015944%_ + (cons _%g1541615491%_ + (cons (cons _%g1541715492%_ _%g1541515489%_) + '()))))) + (_%__kont2004620047%_ + (lambda (_%g1542415450%_) _%g1542415450%_))) + (let* ((_%__match2016820169%_ + (lambda (_%e1540615513%_ + _%hd1540715517%_ + _%tl1540815520%_ + _%e1540915523%_ + _%hd1541015527%_ + _%tl1541115530%_ + _%e1541215533%_ + _%hd1541315537%_ + _%tl1541415540%_) + (let ((_%g1540215543%_ _%tl1541415540%_) + (_%g1540315545%_ _%hd1541315537%_) + (_%g1540415546%_ _%hd1541015527%_) + (_%g1540515547%_ _%hd1540715517%_)) + (if (gx#ellipsis? _%g1540315545%_) + (_%__kont2004220043%_ + _%g1540215543%_ + _%g1540315545%_ + _%g1540415546%_ + _%g1540515547%_) + (_%__kont2004420045%_ + _%tl1541115530%_ + _%hd1541015527%_ + _%hd1540715517%_))))) + (_%__match2015020151%_ + (lambda (_%e1539315571%_ + _%hd1539415575%_ + _%tl1539515578%_ + _%e1539615581%_ + _%hd1539715585%_ + _%tl1539815588%_ + _%e1539915591%_ + _%hd1540015595%_ + _%tl1540115598%_) + (let ((_%g1539115601%_ _%hd1540015595%_) + (_%g1539215603%_ _%hd1539715585%_)) + (if (gx#ellipsis? _%g1539115601%_) + (_%__kont2004020041%_ + _%g1539115601%_ + _%g1539215603%_) + (_%__match2016820169%_ + _%e1539315571%_ + _%hd1539415575%_ + _%tl1539515578%_ + _%e1539615581%_ + _%hd1539715585%_ + _%tl1539815588%_ + _%e1539915591%_ + _%hd1540015595%_ + _%tl1540115598%_)))))) + (if (gx#stx-pair? _%__stx2002920030%_) + (let ((_%e1535715786%_ (gx#syntax-e _%__stx2002920030%_))) + (let ((_%tl1535915793%_ (let () (declare (not safe)) - (##cdr _%e1550815937%_))) - (_%hd1550915941%_ + (##cdr _%e1535715786%_))) + (_%hd1535815790%_ (let () (declare (not safe)) - (##car _%e1550815937%_)))) - (if (gx#stx-null? _%tl1551015944%_) - (_%__kont2019520196%_) - (if (gx#stx-pair? _%tl1551015944%_) - (let ((_%e1551515895%_ - (gx#syntax-e _%tl1551015944%_))) - (let ((_%tl1551715902%_ + (##car _%e1535715786%_)))) + (if (gx#stx-null? _%tl1535915793%_) + (_%__kont2003220033%_) + (if (gx#stx-pair? _%tl1535915793%_) + (let ((_%e1536415744%_ + (gx#syntax-e _%tl1535915793%_))) + (let ((_%tl1536615751%_ (let () (declare (not safe)) - (##cdr _%e1551515895%_))) - (_%hd1551615899%_ + (##cdr _%e1536415744%_))) + (_%hd1536515748%_ (let () (declare (not safe)) - (##car _%e1551515895%_)))) - (if (gx#identifier? _%hd1551615899%_) + (##car _%e1536415744%_)))) + (if (gx#identifier? _%hd1536515748%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20955_| - _%hd1551615899%_) - (if (gx#stx-pair? _%tl1551715902%_) - (let ((_%e1551815905%_ + |gerbil/core/sugar~Sugar-2[1]#_g20792_| + _%hd1536515748%_) + (if (gx#stx-pair? _%tl1536615751%_) + (let ((_%e1536715754%_ (gx#syntax-e - _%tl1551715902%_))) - (let ((_%tl1552015912%_ + _%tl1536615751%_))) + (let ((_%tl1536915761%_ (let () (declare (not safe)) - (##cdr _%e1551815905%_))) - (_%hd1551915909%_ + (##cdr _%e1536715754%_))) + (_%hd1536815758%_ (let () (declare (not safe)) - (##car _%e1551815905%_)))) + (##car _%e1536715754%_)))) (if (gx#stx-null? - _%tl1552015912%_) - (_%__kont2019720198%_ - _%hd1551915909%_) - (_%__match2033120332%_ - _%e1550815937%_ - _%hd1550915941%_ - _%tl1551015944%_ - _%e1551515895%_ - _%hd1551615899%_ - _%tl1551715902%_ - _%e1551815905%_ - _%hd1551915909%_ - _%tl1552015912%_)))) - (_%__kont2020720208%_ - _%tl1551715902%_ - _%hd1551615899%_ - _%hd1550915941%_)) + _%tl1536915761%_) + (_%__kont2003420035%_ + _%hd1536815758%_) + (_%__match2016820169%_ + _%e1535715786%_ + _%hd1535815790%_ + _%tl1535915793%_ + _%e1536415744%_ + _%hd1536515748%_ + _%tl1536615751%_ + _%e1536715754%_ + _%hd1536815758%_ + _%tl1536915761%_)))) + (_%__kont2004420045%_ + _%tl1536615751%_ + _%hd1536515748%_ + _%hd1535815790%_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20956_| - _%hd1551615899%_) + |gerbil/core/sugar~Sugar-2[1]#_g20793_| + _%hd1536515748%_) (if (gx#stx-pair? - _%tl1551715902%_) - (let ((_%e1552815853%_ + _%tl1536615751%_) + (let ((_%e1537715702%_ (gx#syntax-e - _%tl1551715902%_))) - (let ((_%tl1553015860%_ + _%tl1536615751%_))) + (let ((_%tl1537915709%_ (let () (declare (not safe)) - (##cdr _%e1552815853%_))) - (_%hd1552915857%_ + (##cdr _%e1537715702%_))) + (_%hd1537815706%_ (let () (declare (not safe)) - (##car _%e1552815853%_)))) + (##car _%e1537715702%_)))) (if (gx#stx-null? - _%tl1553015860%_) - (_%__kont2019920200%_ - _%hd1552915857%_) - (_%__match2033120332%_ - _%e1550815937%_ - _%hd1550915941%_ - _%tl1551015944%_ - _%e1551515895%_ - _%hd1551615899%_ - _%tl1551715902%_ - _%e1552815853%_ - _%hd1552915857%_ - _%tl1553015860%_)))) - (_%__kont2020720208%_ - _%tl1551715902%_ - _%hd1551615899%_ - _%hd1550915941%_)) + _%tl1537915709%_) + (_%__kont2003620037%_ + _%hd1537815706%_) + (_%__match2016820169%_ + _%e1535715786%_ + _%hd1535815790%_ + _%tl1535915793%_ + _%e1536415744%_ + _%hd1536515748%_ + _%tl1536615751%_ + _%e1537715702%_ + _%hd1537815706%_ + _%tl1537915709%_)))) + (_%__kont2004420045%_ + _%tl1536615751%_ + _%hd1536515748%_ + _%hd1535815790%_)) (if (gx#stx-pair? - _%tl1551715902%_) - (let ((_%e1555015742%_ + _%tl1536615751%_) + (let ((_%e1539915591%_ (gx#syntax-e - _%tl1551715902%_))) - (let ((_%tl1555215749%_ + _%tl1536615751%_))) + (let ((_%tl1540115598%_ (let () (declare (not safe)) - (##cdr _%e1555015742%_))) - (_%hd1555115746%_ + (##cdr _%e1539915591%_))) + (_%hd1540015595%_ (let () (declare (not safe)) - (##car _%e1555015742%_)))) + (##car _%e1539915591%_)))) (if (gx#stx-null? - _%tl1555215749%_) - (_%__match2031320314%_ - _%e1550815937%_ - _%hd1550915941%_ - _%tl1551015944%_ - _%e1551515895%_ - _%hd1551615899%_ - _%tl1551715902%_ - _%e1555015742%_ - _%hd1555115746%_ - _%tl1555215749%_) - (_%__match2033120332%_ - _%e1550815937%_ - _%hd1550915941%_ - _%tl1551015944%_ - _%e1551515895%_ - _%hd1551615899%_ - _%tl1551715902%_ - _%e1555015742%_ - _%hd1555115746%_ - _%tl1555215749%_)))) - (_%__kont2020720208%_ - _%tl1551715902%_ - _%hd1551615899%_ - _%hd1550915941%_)))) - (if (gx#stx-datum? _%hd1551615899%_) - (let ((_%e1553815796%_ - (gx#stx-e _%hd1551615899%_))) - (if (equal? _%e1553815796%_ '::) + _%tl1540115598%_) + (_%__match2015020151%_ + _%e1535715786%_ + _%hd1535815790%_ + _%tl1535915793%_ + _%e1536415744%_ + _%hd1536515748%_ + _%tl1536615751%_ + _%e1539915591%_ + _%hd1540015595%_ + _%tl1540115598%_) + (_%__match2016820169%_ + _%e1535715786%_ + _%hd1535815790%_ + _%tl1535915793%_ + _%e1536415744%_ + _%hd1536515748%_ + _%tl1536615751%_ + _%e1539915591%_ + _%hd1540015595%_ + _%tl1540115598%_)))) + (_%__kont2004420045%_ + _%tl1536615751%_ + _%hd1536515748%_ + _%hd1535815790%_)))) + (if (gx#stx-datum? _%hd1536515748%_) + (let ((_%e1538715645%_ + (gx#stx-e _%hd1536515748%_))) + (if (equal? _%e1538715645%_ '::) (if (gx#stx-pair? - _%tl1551715902%_) - (let ((_%e1553915800%_ + _%tl1536615751%_) + (let ((_%e1538815649%_ (gx#syntax-e - _%tl1551715902%_))) - (let ((_%tl1554115807%_ + _%tl1536615751%_))) + (let ((_%tl1539015656%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e1553915800%_))) - (_%hd1554015804%_ - (let () (declare (not safe)) (##car _%e1553915800%_)))) - (if (gx#stx-null? _%tl1554115807%_) - (_%__kont2020120202%_ _%hd1554015804%_) - (_%__match2033120332%_ - _%e1550815937%_ - _%hd1550915941%_ - _%tl1551015944%_ - _%e1551515895%_ - _%hd1551615899%_ - _%tl1551715902%_ - _%e1553915800%_ - _%hd1554015804%_ - _%tl1554115807%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2020720208%_ - _%tl1551715902%_ - _%hd1551615899%_ - _%hd1550915941%_)) + (##cdr _%e1538815649%_))) + (_%hd1538915653%_ + (let () (declare (not safe)) (##car _%e1538815649%_)))) + (if (gx#stx-null? _%tl1539015656%_) + (_%__kont2003820039%_ _%hd1538915653%_) + (_%__match2016820169%_ + _%e1535715786%_ + _%hd1535815790%_ + _%tl1535915793%_ + _%e1536415744%_ + _%hd1536515748%_ + _%tl1536615751%_ + _%e1538815649%_ + _%hd1538915653%_ + _%tl1539015656%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont2004420045%_ + _%tl1536615751%_ + _%hd1536515748%_ + _%hd1535815790%_)) (if (gx#stx-pair? - _%tl1551715902%_) - (let ((_%e1555015742%_ + _%tl1536615751%_) + (let ((_%e1539915591%_ (gx#syntax-e - _%tl1551715902%_))) - (let ((_%tl1555215749%_ + _%tl1536615751%_))) + (let ((_%tl1540115598%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e1555015742%_))) - (_%hd1555115746%_ - (let () (declare (not safe)) (##car _%e1555015742%_)))) - (if (gx#stx-null? _%tl1555215749%_) - (_%__match2031320314%_ - _%e1550815937%_ - _%hd1550915941%_ - _%tl1551015944%_ - _%e1551515895%_ - _%hd1551615899%_ - _%tl1551715902%_ - _%e1555015742%_ - _%hd1555115746%_ - _%tl1555215749%_) - (_%__match2033120332%_ - _%e1550815937%_ - _%hd1550915941%_ - _%tl1551015944%_ - _%e1551515895%_ - _%hd1551615899%_ - _%tl1551715902%_ - _%e1555015742%_ - _%hd1555115746%_ - _%tl1555215749%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2020720208%_ - _%tl1551715902%_ - _%hd1551615899%_ - _%hd1550915941%_)))) - (if (gx#stx-pair? _%tl1551715902%_) - (let ((_%e1555015742%_ + (##cdr _%e1539915591%_))) + (_%hd1540015595%_ + (let () (declare (not safe)) (##car _%e1539915591%_)))) + (if (gx#stx-null? _%tl1540115598%_) + (_%__match2015020151%_ + _%e1535715786%_ + _%hd1535815790%_ + _%tl1535915793%_ + _%e1536415744%_ + _%hd1536515748%_ + _%tl1536615751%_ + _%e1539915591%_ + _%hd1540015595%_ + _%tl1540115598%_) + (_%__match2016820169%_ + _%e1535715786%_ + _%hd1535815790%_ + _%tl1535915793%_ + _%e1536415744%_ + _%hd1536515748%_ + _%tl1536615751%_ + _%e1539915591%_ + _%hd1540015595%_ + _%tl1540115598%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont2004420045%_ + _%tl1536615751%_ + _%hd1536515748%_ + _%hd1535815790%_)))) + (if (gx#stx-pair? _%tl1536615751%_) + (let ((_%e1539915591%_ (gx#syntax-e - _%tl1551715902%_))) - (let ((_%tl1555215749%_ + _%tl1536615751%_))) + (let ((_%tl1540115598%_ (let () (declare (not safe)) - (##cdr _%e1555015742%_))) - (_%hd1555115746%_ + (##cdr _%e1539915591%_))) + (_%hd1540015595%_ (let () (declare (not safe)) - (##car _%e1555015742%_)))) + (##car _%e1539915591%_)))) (if (gx#stx-null? - _%tl1555215749%_) - (_%__match2031320314%_ - _%e1550815937%_ - _%hd1550915941%_ - _%tl1551015944%_ - _%e1551515895%_ - _%hd1551615899%_ - _%tl1551715902%_ - _%e1555015742%_ - _%hd1555115746%_ - _%tl1555215749%_) - (_%__match2033120332%_ - _%e1550815937%_ - _%hd1550915941%_ - _%tl1551015944%_ - _%e1551515895%_ - _%hd1551615899%_ - _%tl1551715902%_ - _%e1555015742%_ - _%hd1555115746%_ - _%tl1555215749%_)))) - (_%__kont2020720208%_ - _%tl1551715902%_ - _%hd1551615899%_ - _%hd1550915941%_)))))) - (_%__kont2020920210%_ _%tl1551015944%_))))) - (let () (declare (not safe)) (_%g1550615584%_)))))))) + _%tl1540115598%_) + (_%__match2015020151%_ + _%e1535715786%_ + _%hd1535815790%_ + _%tl1535915793%_ + _%e1536415744%_ + _%hd1536515748%_ + _%tl1536615751%_ + _%e1539915591%_ + _%hd1540015595%_ + _%tl1540115598%_) + (_%__match2016820169%_ + _%e1535715786%_ + _%hd1535815790%_ + _%tl1535915793%_ + _%e1536415744%_ + _%hd1536515748%_ + _%tl1536615751%_ + _%e1539915591%_ + _%hd1540015595%_ + _%tl1540115598%_)))) + (_%__kont2004420045%_ + _%tl1536615751%_ + _%hd1536515748%_ + _%hd1535815790%_)))))) + (_%__kont2004620047%_ _%tl1535915793%_))))) + (let () (declare (not safe)) (_%g1535515433%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#quasiquote| - (lambda (_%stx15955%_) - (letrec ((_%simple-quote?15958%_ - (lambda (_%e16650%_) - (let* ((_%__stx2035220353%_ _%e16650%_) - (_%g1665816695%_ + (lambda (_%stx15804%_) + (letrec ((_%simple-quote?15807%_ + (lambda (_%e16497%_) + (let* ((_%__stx2018920190%_ _%e16497%_) + (_%g1650516542%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2035220353%_)))) - (let ((_%__kont2035520356%_ (lambda () '#f)) - (_%__kont2035720358%_ (lambda () '#f)) - (_%__kont2035920360%_ - (lambda (_%L16809%_ _%L16811%_) - (if (_%simple-quote?15958%_ _%L16811%_) - (_%simple-quote?15958%_ _%L16809%_) + _%__stx2018920190%_)))) + (let ((_%__kont2019220193%_ (lambda () '#f)) + (_%__kont2019420195%_ (lambda () '#f)) + (_%__kont2019620197%_ + (lambda (_%g1651916654%_ _%g1652016656%_) + (if (_%simple-quote?15807%_ _%g1652016656%_) + (_%simple-quote?15807%_ _%g1651916654%_) '#f))) - (_%__kont2036120362%_ - (lambda (_%L16770%_) - (_%simple-quote?15958%_ - (foldr (lambda (_%g1678316786%_ - _%g1678416789%_) - (cons _%g1678316786%_ - _%g1678416789%_)) + (_%__kont2019820199%_ + (lambda (_%g1652416615%_) + (_%simple-quote?15807%_ + (foldr (lambda (_%g1662816631%_ + _%g1662916634%_) + (cons _%g1662816631%_ + _%g1662916634%_)) '() - _%L16770%_)))) - (_%__kont2036520366%_ - (lambda (_%L16717%_) - (_%simple-quote?15958%_ _%L16717%_))) - (_%__kont2036720368%_ (lambda () '#t))) - (let* ((_%g1665616729%_ + _%g1652416615%_)))) + (_%__kont2020220203%_ + (lambda (_%g1653516564%_) + (_%simple-quote?15807%_ _%g1653516564%_))) + (_%__kont2020420205%_ (lambda () '#t))) + (let* ((_%g1650316576%_ (lambda () - (if (gx#stx-box? _%__stx2035220353%_) - (let ((_%e1668916713%_ + (if (gx#stx-box? _%__stx2018920190%_) + (let ((_%e1653616560%_ (unbox (gx#syntax-e - _%__stx2035220353%_)))) - (_%__kont2036520366%_ _%e1668916713%_)) - (_%__kont2036720368%_)))) - (_%__match2042320424%_ - (lambda (_%e1667816736%_ - _%__splice2036320364%_ - _%target1667916740%_ - _%tl1668116743%_) - (letrec ((_%loop1668216746%_ - (lambda (_%hd1668016750%_ - _%e1668616753%_) + _%__stx2018920190%_)))) + (_%__kont2020220203%_ _%e1653616560%_)) + (_%__kont2020420205%_)))) + (_%__match2026020261%_ + (lambda (_%e1652516583%_ + _%__splice2020020201%_ + _%target1652616587%_ + _%tl1652816590%_) + (letrec ((_%loop1652916593%_ + (lambda (_%hd1652716597%_ + _%e1653316600%_) (if (gx#stx-pair? - _%hd1668016750%_) - (let ((_%e1668316756%_ + _%hd1652716597%_) + (let ((_%e1653016602%_ (gx#syntax-e - _%hd1668016750%_))) - (let ((_%lp-tl1668516763%_ + _%hd1652716597%_))) + (let ((_%lp-tl1653216609%_ (let () (declare (not safe)) - (##cdr _%e1668316756%_))) - (_%lp-hd1668416760%_ + (##cdr _%e1653016602%_))) + (_%lp-hd1653116606%_ (let () (declare (not safe)) - (##car _%e1668316756%_)))) - (_%loop1668216746%_ - _%lp-tl1668516763%_ - (cons _%lp-hd1668416760%_ - _%e1668616753%_)))) - (let ((_%e1668716766%_ - (reverse _%e1668616753%_))) - (_%__kont2036120362%_ - _%e1668716766%_)))))) - (_%loop1668216746%_ - _%target1667916740%_ + (##car _%e1653016602%_)))) + (_%loop1652916593%_ + _%lp-tl1653216609%_ + (cons _%lp-hd1653116606%_ + _%e1653316600%_)))) + (let ((_%e1653416612%_ + (reverse _%e1653316600%_))) + (_%__kont2019820199%_ + _%e1653416612%_)))))) + (_%loop1652916593%_ + _%target1652616587%_ '())))) - (_%g1665516792%_ + (_%g1650216637%_ (lambda () - (if (gx#stx-vector? _%__stx2035220353%_) - (let ((_%e1667816736%_ + (if (gx#stx-vector? _%__stx2018920190%_) + (let ((_%e1652516583%_ (vector->list (gx#syntax-e - _%__stx2035220353%_)))) - (if (gx#stx-pair/null? _%e1667816736%_) - (let ((_%__splice2036320364%_ + _%__stx2018920190%_)))) + (if (gx#stx-pair/null? _%e1652516583%_) + (let ((_%__splice2020020201%_ (gx#syntax-split-splice->vector - _%e1667816736%_ + _%e1652516583%_ '0))) - (let ((_%tl1668116743%_ + (let ((_%tl1652816590%_ (let () (declare (not safe)) (##vector-ref - _%__splice2036320364%_ + _%__splice2020020201%_ '1))) - (_%target1667916740%_ + (_%target1652616587%_ (let () (declare (not safe)) (##vector-ref - _%__splice2036320364%_ + _%__splice2020020201%_ '0)))) (if (gx#stx-null? - _%tl1668116743%_) - (_%__match2042320424%_ - _%e1667816736%_ - _%__splice2036320364%_ - _%target1667916740%_ - _%tl1668116743%_) - (_%__kont2036720368%_)))) - (_%__kont2036720368%_))) + _%tl1652816590%_) + (_%__match2026020261%_ + _%e1652516583%_ + _%__splice2020020201%_ + _%target1652616587%_ + _%tl1652816590%_) + (_%__kont2020420205%_)))) + (_%__kont2020420205%_))) (let () (declare (not safe)) - (_%g1665616729%_)))))) - (if (gx#stx-pair? _%__stx2035220353%_) - (let ((_%e1666016860%_ - (gx#syntax-e _%__stx2035220353%_))) - (let ((_%tl1666216867%_ + (_%g1650316576%_)))))) + (if (gx#stx-pair? _%__stx2018920190%_) + (let ((_%e1650716705%_ + (gx#syntax-e _%__stx2018920190%_))) + (let ((_%tl1650916712%_ (let () (declare (not safe)) - (##cdr _%e1666016860%_))) - (_%hd1666116864%_ + (##cdr _%e1650716705%_))) + (_%hd1650816709%_ (let () (declare (not safe)) - (##car _%e1666016860%_)))) - (if (gx#identifier? _%hd1666116864%_) + (##car _%e1650716705%_)))) + (if (gx#identifier? _%hd1650816709%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20957_| - _%hd1666116864%_) - (if (gx#stx-pair? _%tl1666216867%_) - (let ((_%e1666316870%_ + |gerbil/core/sugar~Sugar-2[1]#_g20794_| + _%hd1650816709%_) + (if (gx#stx-pair? _%tl1650916712%_) + (let ((_%e1651016715%_ (gx#syntax-e - _%tl1666216867%_))) - (let ((_%tl1666516877%_ + _%tl1650916712%_))) + (let ((_%tl1651216722%_ (let () (declare (not safe)) - (##cdr _%e1666316870%_))) - (_%hd1666416874%_ + (##cdr _%e1651016715%_))) + (_%hd1651116719%_ (let () (declare (not safe)) - (##car _%e1666316870%_)))) + (##car _%e1651016715%_)))) (if (gx#stx-null? - _%tl1666516877%_) - (_%__kont2035520356%_) - (_%__kont2035920360%_ - _%tl1666216867%_ - _%hd1666116864%_)))) - (_%__kont2035920360%_ - _%tl1666216867%_ - _%hd1666116864%_)) + _%tl1651216722%_) + (_%__kont2019220193%_) + (_%__kont2019620197%_ + _%tl1650916712%_ + _%hd1650816709%_)))) + (_%__kont2019620197%_ + _%tl1650916712%_ + _%hd1650816709%_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20958_| - _%hd1666116864%_) + |gerbil/core/sugar~Sugar-2[1]#_g20795_| + _%hd1650816709%_) (if (gx#stx-pair? - _%tl1666216867%_) - (let ((_%e1666916839%_ + _%tl1650916712%_) + (let ((_%e1651616684%_ (gx#syntax-e - _%tl1666216867%_))) - (let ((_%tl1667116846%_ + _%tl1650916712%_))) + (let ((_%tl1651816691%_ (let () (declare (not safe)) - (##cdr _%e1666916839%_))) - (_%hd1667016843%_ + (##cdr _%e1651616684%_))) + (_%hd1651716688%_ (let () (declare (not safe)) - (##car _%e1666916839%_)))) + (##car _%e1651616684%_)))) (if (gx#stx-null? - _%tl1667116846%_) - (_%__kont2035720358%_) - (_%__kont2035920360%_ - _%tl1666216867%_ - _%hd1666116864%_)))) - (_%__kont2035920360%_ - _%tl1666216867%_ - _%hd1666116864%_)) - (_%__kont2035920360%_ - _%tl1666216867%_ - _%hd1666116864%_))) - (_%__kont2035920360%_ - _%tl1666216867%_ - _%hd1666116864%_)))) + _%tl1651816691%_) + (_%__kont2019420195%_) + (_%__kont2019620197%_ + _%tl1650916712%_ + _%hd1650816709%_)))) + (_%__kont2019620197%_ + _%tl1650916712%_ + _%hd1650816709%_)) + (_%__kont2019620197%_ + _%tl1650916712%_ + _%hd1650816709%_))) + (_%__kont2019620197%_ + _%tl1650916712%_ + _%hd1650816709%_)))) (let () (declare (not safe)) - (_%g1665516792%_)))))))) - (_%generate15960%_ - (lambda (_%e16022%_ _%d16024%_) - (let* ((_%__stx2043020431%_ _%e16022%_) - (_%g1603316091%_ + (_%g1650216637%_)))))))) + (_%generate15809%_ + (lambda (_%e15871%_ _%d15873%_) + (let* ((_%__stx2026720268%_ _%e15871%_) + (_%g1588215940%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2043020431%_)))) - (let ((_%__kont2043320434%_ - (lambda (_%L16602%_) - (let* ((_%g1661516623%_ - (lambda (_%g1661616619%_) + _%__stx2026720268%_)))) + (let ((_%__kont2027020271%_ + (lambda (_%g1588416449%_) + (let* ((_%g1646216470%_ + (lambda (_%g1646316466%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1661616619%_))) - (_%g1661416642%_ - (lambda (_%g1661616627%_) - ((lambda (_%L16630%_) + _%g1646316466%_))) + (_%g1646116489%_ + (lambda (_%g1646316474%_) + ((lambda (_%g1646416477%_) (cons (gx#datum->syntax '#f 'list) (cons (cons (gx#datum->syntax '#f @@ -10289,26 +10379,26 @@ '#f 'quasiquote) '())) - (cons _%L16630%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1661616627%_)))) - (_%g1661416642%_ - (_%generate15960%_ - _%L16602%_ - (fx1+ _%d16024%_)))))) - (_%__kont2043520436%_ - (lambda (_%L16531%_) - (if (fxzero? _%d16024%_) - _%L16531%_ - (let* ((_%g1654416552%_ - (lambda (_%g1654516548%_) + (cons _%g1646416477%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g1646316474%_)))) + (_%g1646116489%_ + (_%generate15809%_ + _%g1588416449%_ + (fx1+ _%d15873%_)))))) + (_%__kont2027220273%_ + (lambda (_%g1589116378%_) + (if (fxzero? _%d15873%_) + _%g1589116378%_ + (let* ((_%g1639116399%_ + (lambda (_%g1639216395%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1654516548%_))) - (_%g1654316571%_ - (lambda (_%g1654516556%_) - ((lambda (_%L16559%_) + _%g1639216395%_))) + (_%g1639016418%_ + (lambda (_%g1639216403%_) + ((lambda (_%g1639316406%_) (cons (gx#datum->syntax '#f 'list) @@ -10317,32 +10407,33 @@ '#f 'quote) (cons (gx#datum->syntax '#f 'unquote) '())) - (cons _%L16559%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1654516556%_)))) - (_%g1654316571%_ - (_%generate15960%_ - _%L16531%_ - (fx1- _%d16024%_))))))) - (_%__kont2043720438%_ - (lambda (_%L16460%_) - (if (fxzero? _%d16024%_) + (cons _%g1639316406%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g1639216403%_)))) + (_%g1639016418%_ + (_%generate15809%_ + _%g1589116378%_ + (fx1- _%d15873%_))))))) + (_%__kont2027420275%_ + (lambda (_%g1589816307%_) + (if (fxzero? _%d15873%_) (cons (gx#datum->syntax '#f 'foldr) (cons (gx#datum->syntax '#f 'cons) (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) - (cons _%L16460%_ '())))) - (let* ((_%g1647316481%_ - (lambda (_%g1647416477%_) + (cons _%g1589816307%_ + '())))) + (let* ((_%g1632016328%_ + (lambda (_%g1632116324%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1647416477%_))) - (_%g1647216500%_ - (lambda (_%g1647416485%_) - ((lambda (_%L16488%_) + _%g1632116324%_))) + (_%g1631916347%_ + (lambda (_%g1632116332%_) + ((lambda (_%g1632216335%_) (cons (gx#datum->syntax '#f 'list) @@ -10351,872 +10442,885 @@ '#f 'quote) (cons (gx#datum->syntax '#f 'unquote-splicing) '())) - (cons _%L16488%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1647416485%_)))) - (_%g1647216500%_ - (_%generate15960%_ - _%L16460%_ - (fx1- _%d16024%_))))))) - (_%__kont2043920440%_ - (lambda (_%L16385%_ _%L16387%_) - (let* ((_%g1640216410%_ - (lambda (_%g1640316406%_) + (cons _%g1632216335%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g1632116332%_)))) + (_%g1631916347%_ + (_%generate15809%_ + _%g1589816307%_ + (fx1- _%d15873%_))))))) + (_%__kont2027620277%_ + (lambda (_%g1590516232%_ _%g1590616234%_) + (let* ((_%g1624916257%_ + (lambda (_%g1625016253%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1640316406%_))) - (_%g1640116429%_ - (lambda (_%g1640316414%_) - ((lambda (_%L16417%_) + _%g1625016253%_))) + (_%g1624816276%_ + (lambda (_%g1625016261%_) + ((lambda (_%g1625116264%_) (cons (gx#datum->syntax '#f 'foldr) (cons (gx#datum->syntax '#f 'cons) - (cons _%L16417%_ - (cons _%L16387%_ + (cons _%g1625116264%_ + (cons _%g1590616234%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1640316414%_)))) - (_%g1640116429%_ - (_%generate15960%_ _%L16385%_ _%d16024%_))))) - (_%__kont2044120442%_ - (lambda (_%L16271%_ _%L16273%_) - (let* ((_%g1628416299%_ - (lambda (_%g1628516295%_) + _%g1625016261%_)))) + (_%g1624816276%_ + (_%generate15809%_ + _%g1590516232%_ + _%d15873%_))))) + (_%__kont2027820279%_ + (lambda (_%g1591616118%_ _%g1591716120%_) + (let* ((_%g1613116146%_ + (lambda (_%g1613216142%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1628516295%_))) - (_%g1628316344%_ - (lambda (_%g1628516303%_) - (if (gx#stx-pair? _%g1628516303%_) - (let ((_%e1628816306%_ + _%g1613216142%_))) + (_%g1613016191%_ + (lambda (_%g1613216150%_) + (if (gx#stx-pair? _%g1613216150%_) + (let ((_%e1613516153%_ (gx#syntax-e - _%g1628516303%_))) - (let ((_%hd1628916310%_ + _%g1613216150%_))) + (let ((_%hd1613616157%_ (let () (declare (not safe)) - (##car _%e1628816306%_))) - (_%tl1629016313%_ + (##car _%e1613516153%_))) + (_%tl1613716160%_ (let () (declare (not safe)) - (##cdr _%e1628816306%_)))) + (##cdr _%e1613516153%_)))) (if (gx#stx-pair? - _%tl1629016313%_) - (let ((_%e1629116316%_ + _%tl1613716160%_) + (let ((_%e1613816163%_ (gx#syntax-e - _%tl1629016313%_))) - (let ((_%hd1629216320%_ + _%tl1613716160%_))) + (let ((_%hd1613916167%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e1629116316%_))) - (_%tl1629316323%_ - (let () (declare (not safe)) (##cdr _%e1629116316%_)))) - (if (gx#stx-null? _%tl1629316323%_) - ((lambda (_%L16326%_ _%L16328%_) + (##car _%e1613816163%_))) + (_%tl1614016170%_ + (let () (declare (not safe)) (##cdr _%e1613816163%_)))) + (if (gx#stx-null? _%tl1614016170%_) + ((lambda (_%g1613316173%_ _%g1613416175%_) (cons (gx#datum->syntax '#f 'cons) - (cons _%L16328%_ (cons _%L16326%_ '())))) - _%hd1629216320%_ - _%hd1628916310%_) - (_%g1628416299%_ _%g1628516303%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1628416299%_ - _%g1628516303%_)))) - (_%g1628416299%_ - _%g1628516303%_))))) - (_%g1628316344%_ - (list (_%generate15960%_ - _%L16273%_ - _%d16024%_) - (_%generate15960%_ - _%L16271%_ - _%d16024%_)))))) - (_%__kont2044320444%_ - (lambda (_%L16201%_) - (let* ((_%g1621516223%_ - (lambda (_%g1621616219%_) + (cons _%g1613416175%_ + (cons _%g1613316173%_ '())))) + _%hd1613916167%_ + _%hd1613616157%_) + (_%g1613116146%_ _%g1613216150%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1613116146%_ + _%g1613216150%_)))) + (_%g1613116146%_ + _%g1613216150%_))))) + (_%g1613016191%_ + (list (_%generate15809%_ + _%g1591716120%_ + _%d15873%_) + (_%generate15809%_ + _%g1591616118%_ + _%d15873%_)))))) + (_%__kont2028020281%_ + (lambda (_%g1592116048%_) + (let* ((_%g1606216070%_ + (lambda (_%g1606316066%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1621616219%_))) - (_%g1621416242%_ - (lambda (_%g1621616227%_) - ((lambda (_%L16230%_) + _%g1606316066%_))) + (_%g1606116089%_ + (lambda (_%g1606316074%_) + ((lambda (_%g1606416077%_) (cons (gx#datum->syntax '#f 'list->vector) - (cons _%L16230%_ '()))) - _%g1621616227%_)))) - (_%g1621416242%_ - (_%generate15960%_ - (foldr (lambda (_%g1624516248%_ - _%g1624616251%_) - (cons _%g1624516248%_ - _%g1624616251%_)) + (cons _%g1606416077%_ '()))) + _%g1606316074%_)))) + (_%g1606116089%_ + (_%generate15809%_ + (foldr (lambda (_%g1609216095%_ + _%g1609316098%_) + (cons _%g1609216095%_ + _%g1609316098%_)) '() - _%L16201%_) - _%d16024%_))))) - (_%__kont2044720448%_ - (lambda (_%L16119%_) - (let* ((_%g1612916137%_ - (lambda (_%g1613016133%_) + _%g1592116048%_) + _%d15873%_))))) + (_%__kont2028420285%_ + (lambda (_%g1593215968%_) + (let* ((_%g1597815986%_ + (lambda (_%g1597915982%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1613016133%_))) - (_%g1612816156%_ - (lambda (_%g1613016141%_) - ((lambda (_%L16144%_) + _%g1597915982%_))) + (_%g1597716005%_ + (lambda (_%g1597915990%_) + ((lambda (_%g1598015993%_) (cons (gx#datum->syntax '#f 'box) - (cons _%L16144%_ '()))) - _%g1613016141%_)))) - (_%g1612816156%_ - (_%generate15960%_ _%L16119%_ _%d16024%_))))) - (_%__kont2044920450%_ - (lambda (_%L16098%_) + (cons _%g1598015993%_ '()))) + _%g1597915990%_)))) + (_%g1597716005%_ + (_%generate15809%_ + _%g1593215968%_ + _%d15873%_))))) + (_%__kont2028620287%_ + (lambda (_%g1593415947%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L16098%_ '()))))) - (let* ((_%g1603116160%_ + (cons _%g1593415947%_ '()))))) + (let* ((_%g1588016009%_ (lambda () - (if (gx#stx-box? _%__stx2043020431%_) - (let ((_%e1608416115%_ + (if (gx#stx-box? _%__stx2026720268%_) + (let ((_%e1593315964%_ (unbox (gx#syntax-e - _%__stx2043020431%_)))) - (_%__kont2044720448%_ _%e1608416115%_)) - (_%__kont2044920450%_ - _%__stx2043020431%_)))) - (_%__match2054920550%_ - (lambda (_%e1607316167%_ - _%__splice2044520446%_ - _%target1607416171%_ - _%tl1607616174%_) - (letrec ((_%loop1607716177%_ - (lambda (_%hd1607516181%_ - _%e1608116184%_) + _%__stx2026720268%_)))) + (_%__kont2028420285%_ _%e1593315964%_)) + (_%__kont2028620287%_ + _%__stx2026720268%_)))) + (_%__match2038620387%_ + (lambda (_%e1592216016%_ + _%__splice2028220283%_ + _%target1592316020%_ + _%tl1592516023%_) + (letrec ((_%loop1592616026%_ + (lambda (_%hd1592416030%_ + _%e1593016033%_) (if (gx#stx-pair? - _%hd1607516181%_) - (let ((_%e1607816187%_ + _%hd1592416030%_) + (let ((_%e1592716035%_ (gx#syntax-e - _%hd1607516181%_))) - (let ((_%lp-tl1608016194%_ + _%hd1592416030%_))) + (let ((_%lp-tl1592916042%_ (let () (declare (not safe)) - (##cdr _%e1607816187%_))) - (_%lp-hd1607916191%_ + (##cdr _%e1592716035%_))) + (_%lp-hd1592816039%_ (let () (declare (not safe)) - (##car _%e1607816187%_)))) - (_%loop1607716177%_ - _%lp-tl1608016194%_ - (cons _%lp-hd1607916191%_ - _%e1608116184%_)))) - (let ((_%e1608216197%_ - (reverse _%e1608116184%_))) - (_%__kont2044320444%_ - _%e1608216197%_)))))) - (_%loop1607716177%_ - _%target1607416171%_ + (##car _%e1592716035%_)))) + (_%loop1592616026%_ + _%lp-tl1592916042%_ + (cons _%lp-hd1592816039%_ + _%e1593016033%_)))) + (let ((_%e1593116045%_ + (reverse _%e1593016033%_))) + (_%__kont2028020281%_ + _%e1593116045%_)))))) + (_%loop1592616026%_ + _%target1592316020%_ '())))) - (_%g1603016254%_ + (_%g1587916101%_ (lambda () - (if (gx#stx-vector? _%__stx2043020431%_) - (let ((_%e1607316167%_ + (if (gx#stx-vector? _%__stx2026720268%_) + (let ((_%e1592216016%_ (vector->list (gx#syntax-e - _%__stx2043020431%_)))) - (if (gx#stx-pair/null? _%e1607316167%_) - (let ((_%__splice2044520446%_ + _%__stx2026720268%_)))) + (if (gx#stx-pair/null? _%e1592216016%_) + (let ((_%__splice2028220283%_ (gx#syntax-split-splice->vector - _%e1607316167%_ + _%e1592216016%_ '0))) - (let ((_%tl1607616174%_ + (let ((_%tl1592516023%_ (let () (declare (not safe)) (##vector-ref - _%__splice2044520446%_ + _%__splice2028220283%_ '1))) - (_%target1607416171%_ + (_%target1592316020%_ (let () (declare (not safe)) (##vector-ref - _%__splice2044520446%_ + _%__splice2028220283%_ '0)))) (if (gx#stx-null? - _%tl1607616174%_) - (_%__match2054920550%_ - _%e1607316167%_ - _%__splice2044520446%_ - _%target1607416171%_ - _%tl1607616174%_) - (_%__kont2044920450%_ - _%__stx2043020431%_)))) - (_%__kont2044920450%_ - _%__stx2043020431%_))) + _%tl1592516023%_) + (_%__match2038620387%_ + _%e1592216016%_ + _%__splice2028220283%_ + _%target1592316020%_ + _%tl1592516023%_) + (_%__kont2028620287%_ + _%__stx2026720268%_)))) + (_%__kont2028620287%_ + _%__stx2026720268%_))) (let () (declare (not safe)) - (_%g1603116160%_)))))) - (if (gx#stx-pair? _%__stx2043020431%_) - (let ((_%e1603616582%_ - (gx#syntax-e _%__stx2043020431%_))) - (let ((_%tl1603816589%_ + (_%g1588016009%_)))))) + (if (gx#stx-pair? _%__stx2026720268%_) + (let ((_%e1588516429%_ + (gx#syntax-e _%__stx2026720268%_))) + (let ((_%tl1588716436%_ (let () (declare (not safe)) - (##cdr _%e1603616582%_))) - (_%hd1603716586%_ + (##cdr _%e1588516429%_))) + (_%hd1588616433%_ (let () (declare (not safe)) - (##car _%e1603616582%_)))) - (if (gx#identifier? _%hd1603716586%_) + (##car _%e1588516429%_)))) + (if (gx#identifier? _%hd1588616433%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20959_| - _%hd1603716586%_) - (if (gx#stx-pair? _%tl1603816589%_) - (let ((_%e1603916592%_ + |gerbil/core/sugar~Sugar-2[1]#_g20796_| + _%hd1588616433%_) + (if (gx#stx-pair? _%tl1588716436%_) + (let ((_%e1588816439%_ (gx#syntax-e - _%tl1603816589%_))) - (let ((_%tl1604116599%_ + _%tl1588716436%_))) + (let ((_%tl1589016446%_ (let () (declare (not safe)) - (##cdr _%e1603916592%_))) - (_%hd1604016596%_ + (##cdr _%e1588816439%_))) + (_%hd1588916443%_ (let () (declare (not safe)) - (##car _%e1603916592%_)))) + (##car _%e1588816439%_)))) (if (gx#stx-null? - _%tl1604116599%_) - (_%__kont2043320434%_ - _%hd1604016596%_) - (_%__kont2044120442%_ - _%tl1603816589%_ - _%hd1603716586%_)))) - (_%__kont2044120442%_ - _%tl1603816589%_ - _%hd1603716586%_)) + _%tl1589016446%_) + (_%__kont2027020271%_ + _%hd1588916443%_) + (_%__kont2027820279%_ + _%tl1588716436%_ + _%hd1588616433%_)))) + (_%__kont2027820279%_ + _%tl1588716436%_ + _%hd1588616433%_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20960_| - _%hd1603716586%_) + |gerbil/core/sugar~Sugar-2[1]#_g20797_| + _%hd1588616433%_) (if (gx#stx-pair? - _%tl1603816589%_) - (let ((_%e1604616521%_ + _%tl1588716436%_) + (let ((_%e1589516368%_ (gx#syntax-e - _%tl1603816589%_))) - (let ((_%tl1604816528%_ + _%tl1588716436%_))) + (let ((_%tl1589716375%_ (let () (declare (not safe)) - (##cdr _%e1604616521%_))) - (_%hd1604716525%_ + (##cdr _%e1589516368%_))) + (_%hd1589616372%_ (let () (declare (not safe)) - (##car _%e1604616521%_)))) + (##car _%e1589516368%_)))) (if (gx#stx-null? - _%tl1604816528%_) - (_%__kont2043520436%_ - _%hd1604716525%_) - (_%__kont2044120442%_ - _%tl1603816589%_ - _%hd1603716586%_)))) - (_%__kont2044120442%_ - _%tl1603816589%_ - _%hd1603716586%_)) + _%tl1589716375%_) + (_%__kont2027220273%_ + _%hd1589616372%_) + (_%__kont2027820279%_ + _%tl1588716436%_ + _%hd1588616433%_)))) + (_%__kont2027820279%_ + _%tl1588716436%_ + _%hd1588616433%_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20961_| - _%hd1603716586%_) + |gerbil/core/sugar~Sugar-2[1]#_g20798_| + _%hd1588616433%_) (if (gx#stx-pair? - _%tl1603816589%_) - (let ((_%e1605316450%_ + _%tl1588716436%_) + (let ((_%e1590216297%_ (gx#syntax-e - _%tl1603816589%_))) - (let ((_%tl1605516457%_ + _%tl1588716436%_))) + (let ((_%tl1590416304%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e1605316450%_))) - (_%hd1605416454%_ - (let () (declare (not safe)) (##car _%e1605316450%_)))) - (if (gx#stx-null? _%tl1605516457%_) - (_%__kont2043720438%_ _%hd1605416454%_) - (_%__kont2044120442%_ - _%tl1603816589%_ - _%hd1603716586%_)))) - (_%__kont2044120442%_ _%tl1603816589%_ _%hd1603716586%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2044120442%_ - _%tl1603816589%_ - _%hd1603716586%_)))) - (if (gx#stx-pair? _%hd1603716586%_) - (let ((_%e1606116365%_ + (##cdr _%e1590216297%_))) + (_%hd1590316301%_ + (let () (declare (not safe)) (##car _%e1590216297%_)))) + (if (gx#stx-null? _%tl1590416304%_) + (_%__kont2027420275%_ _%hd1590316301%_) + (_%__kont2027820279%_ + _%tl1588716436%_ + _%hd1588616433%_)))) + (_%__kont2027820279%_ _%tl1588716436%_ _%hd1588616433%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont2027820279%_ + _%tl1588716436%_ + _%hd1588616433%_)))) + (if (gx#stx-pair? _%hd1588616433%_) + (let ((_%e1591016212%_ (gx#syntax-e - _%hd1603716586%_))) - (let ((_%tl1606316372%_ + _%hd1588616433%_))) + (let ((_%tl1591216219%_ (let () (declare (not safe)) - (##cdr _%e1606116365%_))) - (_%hd1606216369%_ + (##cdr _%e1591016212%_))) + (_%hd1591116216%_ (let () (declare (not safe)) - (##car _%e1606116365%_)))) + (##car _%e1591016212%_)))) (if (gx#identifier? - _%hd1606216369%_) + _%hd1591116216%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20962_| - _%hd1606216369%_) + |gerbil/core/sugar~Sugar-2[1]#_g20799_| + _%hd1591116216%_) (if (gx#stx-pair? - _%tl1606316372%_) - (let ((_%e1606416375%_ + _%tl1591216219%_) + (let ((_%e1591316222%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1606316372%_))) - (let ((_%tl1606616382%_ + (gx#syntax-e _%tl1591216219%_))) + (let ((_%tl1591516229%_ (let () (declare (not safe)) - (##cdr _%e1606416375%_))) - (_%hd1606516379%_ + (##cdr _%e1591316222%_))) + (_%hd1591416226%_ (let () (declare (not safe)) - (##car _%e1606416375%_)))) - (if (gx#stx-null? _%tl1606616382%_) - (if (fxzero? _%d16024%_) - (let ((_%L16385%_ _%tl1603816589%_) - (_%L16387%_ _%hd1606516379%_)) - (_%__kont2043920440%_ _%L16385%_ _%L16387%_)) - (_%__kont2044120442%_ - _%tl1603816589%_ - _%hd1603716586%_)) - (_%__kont2044120442%_ - _%tl1603816589%_ - _%hd1603716586%_)))) - (_%__kont2044120442%_ _%tl1603816589%_ _%hd1603716586%_)) - (_%__kont2044120442%_ _%tl1603816589%_ _%hd1603716586%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2044120442%_ - _%tl1603816589%_ - _%hd1603716586%_)))) - (_%__kont2044120442%_ - _%tl1603816589%_ - _%hd1603716586%_))))) + (##car _%e1591316222%_)))) + (if (gx#stx-null? _%tl1591516229%_) + (if (fxzero? _%d15873%_) + (let ((_%g1590516232%_ _%tl1588716436%_) + (_%g1590616234%_ _%hd1591416226%_)) + (_%__kont2027620277%_ + _%g1590516232%_ + _%g1590616234%_)) + (_%__kont2027820279%_ + _%tl1588716436%_ + _%hd1588616433%_)) + (_%__kont2027820279%_ + _%tl1588716436%_ + _%hd1588616433%_)))) + (_%__kont2027820279%_ _%tl1588716436%_ _%hd1588616433%_)) + (_%__kont2027820279%_ _%tl1588716436%_ _%hd1588616433%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont2027820279%_ + _%tl1588716436%_ + _%hd1588616433%_)))) + (_%__kont2027820279%_ + _%tl1588716436%_ + _%hd1588616433%_))))) (let () (declare (not safe)) - (_%g1603016254%_))))))))) - (let* ((_%g1596215976%_ - (lambda (_%g1596315972%_) + (_%g1587916101%_))))))))) + (let* ((_%g1581115825%_ + (lambda (_%g1581215821%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1596315972%_))) - (_%g1596116018%_ - (lambda (_%g1596315980%_) - (if (gx#stx-pair? _%g1596315980%_) - (let ((_%e1596515983%_ (gx#syntax-e _%g1596315980%_))) - (let ((_%hd1596615987%_ + _%g1581215821%_))) + (_%g1581015867%_ + (lambda (_%g1581215829%_) + (if (gx#stx-pair? _%g1581215829%_) + (let ((_%e1581415832%_ (gx#syntax-e _%g1581215829%_))) + (let ((_%hd1581515836%_ (let () (declare (not safe)) - (##car _%e1596515983%_))) - (_%tl1596715990%_ + (##car _%e1581415832%_))) + (_%tl1581615839%_ (let () (declare (not safe)) - (##cdr _%e1596515983%_)))) - (if (gx#stx-pair? _%tl1596715990%_) - (let ((_%e1596815993%_ - (gx#syntax-e _%tl1596715990%_))) - (let ((_%hd1596915997%_ + (##cdr _%e1581415832%_)))) + (if (gx#stx-pair? _%tl1581615839%_) + (let ((_%e1581715842%_ + (gx#syntax-e _%tl1581615839%_))) + (let ((_%hd1581815846%_ (let () (declare (not safe)) - (##car _%e1596815993%_))) - (_%tl1597016000%_ + (##car _%e1581715842%_))) + (_%tl1581915849%_ (let () (declare (not safe)) - (##cdr _%e1596815993%_)))) - (if (gx#stx-null? _%tl1597016000%_) - ((lambda (_%L16003%_) - (if (_%simple-quote?15958%_ - _%L16003%_) + (##cdr _%e1581715842%_)))) + (if (gx#stx-null? _%tl1581915849%_) + ((lambda (_%g1581315852%_) + (if (_%simple-quote?15807%_ + _%g1581315852%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L16003%_ '())) - (_%generate15960%_ - _%L16003%_ + (cons _%g1581315852%_ + '())) + (_%generate15809%_ + _%g1581315852%_ '0))) - _%hd1596915997%_) - (_%g1596215976%_ _%g1596315980%_)))) - (_%g1596215976%_ _%g1596315980%_)))) - (_%g1596215976%_ _%g1596315980%_))))) - (_%g1596116018%_ _%stx15955%_))))) + _%hd1581815846%_) + (_%g1581115825%_ _%g1581215829%_)))) + (_%g1581115825%_ _%g1581215829%_)))) + (_%g1581115825%_ _%g1581215829%_))))) + (_%g1581015867%_ _%stx15804%_))))) (define |gerbil/core/sugar~Sugar-2[:0:]#delay| - (lambda (_%$stx16890%_) - (let* ((_%__stx2055620557%_ _%$stx16890%_) - (_%g1689616930%_ + (lambda (_%$stx16735%_) + (let* ((_%__stx2039320394%_ _%$stx16735%_) + (_%g1674116775%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2055620557%_)))) - (let ((_%__kont2055920560%_ - (lambda (_%L17062%_) - (cons (gx#datum->syntax '#f 'quote) (cons _%L17062%_ '())))) - (_%__kont2056120562%_ - (lambda (_%L17018%_) - (cons (gx#datum->syntax '#f 'quote) (cons _%L17018%_ '())))) - (_%__kont2056320564%_ - (lambda (_%L16957%_) + _%__stx2039320394%_)))) + (let ((_%__kont2039620397%_ + (lambda (_%g1674316907%_) + (cons (gx#datum->syntax '#f 'quote) + (cons _%g1674316907%_ '())))) + (_%__kont2039820399%_ + (lambda (_%g1675016863%_) + (cons (gx#datum->syntax '#f 'quote) + (cons _%g1675016863%_ '())))) + (_%__kont2040020401%_ + (lambda (_%g1676316802%_) (cons (gx#datum->syntax '#f 'make-promise) (cons (cons (gx#datum->syntax '#f 'lambda%) - (cons '() (cons _%L16957%_ '()))) + (cons '() (cons _%g1676316802%_ '()))) '()))))) - (let ((_%__match2057920580%_ - (lambda (_%e1689917042%_ - _%hd1690017046%_ - _%tl1690117049%_ - _%e1690217052%_ - _%hd1690317056%_ - _%tl1690417059%_) - (let ((_%L17062%_ _%hd1690317056%_)) - (if (gx#stx-datum? _%L17062%_) - (_%__kont2055920560%_ _%L17062%_) - (if (gx#stx-pair? _%hd1690317056%_) - (let ((_%e1691216998%_ - (gx#syntax-e _%hd1690317056%_))) - (let ((_%tl1691417005%_ + (let ((_%__match2041620417%_ + (lambda (_%e1674416887%_ + _%hd1674516891%_ + _%tl1674616894%_ + _%e1674716897%_ + _%hd1674816901%_ + _%tl1674916904%_) + (let ((_%g1674316907%_ _%hd1674816901%_)) + (if (gx#stx-datum? _%g1674316907%_) + (_%__kont2039620397%_ _%g1674316907%_) + (if (gx#stx-pair? _%hd1674816901%_) + (let ((_%e1675716843%_ + (gx#syntax-e _%hd1674816901%_))) + (let ((_%tl1675916850%_ (let () (declare (not safe)) - (##cdr _%e1691216998%_))) - (_%hd1691317002%_ + (##cdr _%e1675716843%_))) + (_%hd1675816847%_ (let () (declare (not safe)) - (##car _%e1691216998%_)))) - (if (gx#identifier? _%hd1691317002%_) + (##car _%e1675716843%_)))) + (if (gx#identifier? _%hd1675816847%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20963_| - _%hd1691317002%_) - (if (gx#stx-pair? _%tl1691417005%_) - (let ((_%e1691517008%_ + |gerbil/core/sugar~Sugar-2[1]#_g20800_| + _%hd1675816847%_) + (if (gx#stx-pair? _%tl1675916850%_) + (let ((_%e1676016853%_ (gx#syntax-e - _%tl1691417005%_))) - (let ((_%tl1691717015%_ + _%tl1675916850%_))) + (let ((_%tl1676216860%_ (let () (declare (not safe)) - (##cdr _%e1691517008%_))) - (_%hd1691617012%_ + (##cdr _%e1676016853%_))) + (_%hd1676116857%_ (let () (declare (not safe)) - (##car _%e1691517008%_)))) + (##car _%e1676016853%_)))) (if (gx#stx-null? - _%tl1691717015%_) - (_%__kont2056120562%_ - _%hd1691617012%_) - (_%__kont2056320564%_ - _%hd1690317056%_)))) - (_%__kont2056320564%_ - _%hd1690317056%_)) - (_%__kont2056320564%_ - _%hd1690317056%_)) - (_%__kont2056320564%_ - _%hd1690317056%_)))) - (_%__kont2056320564%_ _%hd1690317056%_))))))) - (if (gx#stx-pair? _%__stx2055620557%_) - (let ((_%e1689917042%_ (gx#syntax-e _%__stx2055620557%_))) - (let ((_%tl1690117049%_ + _%tl1676216860%_) + (_%__kont2039820399%_ + _%hd1676116857%_) + (_%__kont2040020401%_ + _%hd1674816901%_)))) + (_%__kont2040020401%_ + _%hd1674816901%_)) + (_%__kont2040020401%_ + _%hd1674816901%_)) + (_%__kont2040020401%_ + _%hd1674816901%_)))) + (_%__kont2040020401%_ _%hd1674816901%_))))))) + (if (gx#stx-pair? _%__stx2039320394%_) + (let ((_%e1674416887%_ (gx#syntax-e _%__stx2039320394%_))) + (let ((_%tl1674616894%_ (let () (declare (not safe)) - (##cdr _%e1689917042%_))) - (_%hd1690017046%_ + (##cdr _%e1674416887%_))) + (_%hd1674516891%_ (let () (declare (not safe)) - (##car _%e1689917042%_)))) - (if (gx#stx-pair? _%tl1690117049%_) - (let ((_%e1690217052%_ - (gx#syntax-e _%tl1690117049%_))) - (let ((_%tl1690417059%_ + (##car _%e1674416887%_)))) + (if (gx#stx-pair? _%tl1674616894%_) + (let ((_%e1674716897%_ + (gx#syntax-e _%tl1674616894%_))) + (let ((_%tl1674916904%_ (let () (declare (not safe)) - (##cdr _%e1690217052%_))) - (_%hd1690317056%_ + (##cdr _%e1674716897%_))) + (_%hd1674816901%_ (let () (declare (not safe)) - (##car _%e1690217052%_)))) - (if (gx#stx-null? _%tl1690417059%_) - (_%__match2057920580%_ - _%e1689917042%_ - _%hd1690017046%_ - _%tl1690117049%_ - _%e1690217052%_ - _%hd1690317056%_ - _%tl1690417059%_) - (if (gx#stx-pair? _%hd1690317056%_) - (let ((_%e1691216998%_ - (gx#syntax-e _%hd1690317056%_))) - (let ((_%tl1691417005%_ + (##car _%e1674716897%_)))) + (if (gx#stx-null? _%tl1674916904%_) + (_%__match2041620417%_ + _%e1674416887%_ + _%hd1674516891%_ + _%tl1674616894%_ + _%e1674716897%_ + _%hd1674816901%_ + _%tl1674916904%_) + (if (gx#stx-pair? _%hd1674816901%_) + (let ((_%e1675716843%_ + (gx#syntax-e _%hd1674816901%_))) + (let ((_%tl1675916850%_ (let () (declare (not safe)) - (##cdr _%e1691216998%_))) - (_%hd1691317002%_ + (##cdr _%e1675716843%_))) + (_%hd1675816847%_ (let () (declare (not safe)) - (##car _%e1691216998%_)))) - (if (gx#identifier? _%hd1691317002%_) + (##car _%e1675716843%_)))) + (if (gx#identifier? _%hd1675816847%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20963_| - _%hd1691317002%_) + |gerbil/core/sugar~Sugar-2[1]#_g20800_| + _%hd1675816847%_) (if (gx#stx-pair? - _%tl1691417005%_) - (let ((_%e1691517008%_ + _%tl1675916850%_) + (let ((_%e1676016853%_ (gx#syntax-e - _%tl1691417005%_))) - (let ((_%tl1691717015%_ + _%tl1675916850%_))) + (let ((_%tl1676216860%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e1691517008%_))) - (_%hd1691617012%_ - (let () (declare (not safe)) (##car _%e1691517008%_)))) - (let () (declare (not safe)) (_%g1689616930%_)))) - (let () (declare (not safe)) (_%g1689616930%_))) + (##cdr _%e1676016853%_))) + (_%hd1676116857%_ + (let () (declare (not safe)) (##car _%e1676016853%_)))) + (let () (declare (not safe)) (_%g1674116775%_)))) + (let () (declare (not safe)) (_%g1674116775%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g1689616930%_))) + (_%g1674116775%_))) (let () (declare (not safe)) - (_%g1689616930%_))))) + (_%g1674116775%_))))) (let () (declare (not safe)) - (_%g1689616930%_)))))) - (let () (declare (not safe)) (_%g1689616930%_))))) - (let () (declare (not safe)) (_%g1689616930%_)))))))) + (_%g1674116775%_)))))) + (let () (declare (not safe)) (_%g1674116775%_))))) + (let () (declare (not safe)) (_%g1674116775%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#delay-atomic| - (lambda (_%$stx17079%_) - (let* ((_%__stx2062820629%_ _%$stx17079%_) - (_%g1708517119%_ + (lambda (_%$stx16924%_) + (let* ((_%__stx2046520466%_ _%$stx16924%_) + (_%g1693016964%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2062820629%_)))) - (let ((_%__kont2063120632%_ - (lambda (_%L17251%_) - (cons (gx#datum->syntax '#f 'quote) (cons _%L17251%_ '())))) - (_%__kont2063320634%_ - (lambda (_%L17207%_) - (cons (gx#datum->syntax '#f 'quote) (cons _%L17207%_ '())))) - (_%__kont2063520636%_ - (lambda (_%L17146%_) + _%__stx2046520466%_)))) + (let ((_%__kont2046820469%_ + (lambda (_%g1693217096%_) + (cons (gx#datum->syntax '#f 'quote) + (cons _%g1693217096%_ '())))) + (_%__kont2047020471%_ + (lambda (_%g1693917052%_) + (cons (gx#datum->syntax '#f 'quote) + (cons _%g1693917052%_ '())))) + (_%__kont2047220473%_ + (lambda (_%g1695216991%_) (cons (gx#datum->syntax '#f 'make-atomic-promise) (cons (cons (gx#datum->syntax '#f 'lambda%) - (cons '() (cons _%L17146%_ '()))) + (cons '() (cons _%g1695216991%_ '()))) '()))))) - (let ((_%__match2065120652%_ - (lambda (_%e1708817231%_ - _%hd1708917235%_ - _%tl1709017238%_ - _%e1709117241%_ - _%hd1709217245%_ - _%tl1709317248%_) - (let ((_%L17251%_ _%hd1709217245%_)) - (if (gx#stx-datum? _%L17251%_) - (_%__kont2063120632%_ _%L17251%_) - (if (gx#stx-pair? _%hd1709217245%_) - (let ((_%e1710117187%_ - (gx#syntax-e _%hd1709217245%_))) - (let ((_%tl1710317194%_ + (let ((_%__match2048820489%_ + (lambda (_%e1693317076%_ + _%hd1693417080%_ + _%tl1693517083%_ + _%e1693617086%_ + _%hd1693717090%_ + _%tl1693817093%_) + (let ((_%g1693217096%_ _%hd1693717090%_)) + (if (gx#stx-datum? _%g1693217096%_) + (_%__kont2046820469%_ _%g1693217096%_) + (if (gx#stx-pair? _%hd1693717090%_) + (let ((_%e1694617032%_ + (gx#syntax-e _%hd1693717090%_))) + (let ((_%tl1694817039%_ (let () (declare (not safe)) - (##cdr _%e1710117187%_))) - (_%hd1710217191%_ + (##cdr _%e1694617032%_))) + (_%hd1694717036%_ (let () (declare (not safe)) - (##car _%e1710117187%_)))) - (if (gx#identifier? _%hd1710217191%_) + (##car _%e1694617032%_)))) + (if (gx#identifier? _%hd1694717036%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20964_| - _%hd1710217191%_) - (if (gx#stx-pair? _%tl1710317194%_) - (let ((_%e1710417197%_ + |gerbil/core/sugar~Sugar-2[1]#_g20801_| + _%hd1694717036%_) + (if (gx#stx-pair? _%tl1694817039%_) + (let ((_%e1694917042%_ (gx#syntax-e - _%tl1710317194%_))) - (let ((_%tl1710617204%_ + _%tl1694817039%_))) + (let ((_%tl1695117049%_ (let () (declare (not safe)) - (##cdr _%e1710417197%_))) - (_%hd1710517201%_ + (##cdr _%e1694917042%_))) + (_%hd1695017046%_ (let () (declare (not safe)) - (##car _%e1710417197%_)))) + (##car _%e1694917042%_)))) (if (gx#stx-null? - _%tl1710617204%_) - (_%__kont2063320634%_ - _%hd1710517201%_) - (_%__kont2063520636%_ - _%hd1709217245%_)))) - (_%__kont2063520636%_ - _%hd1709217245%_)) - (_%__kont2063520636%_ - _%hd1709217245%_)) - (_%__kont2063520636%_ - _%hd1709217245%_)))) - (_%__kont2063520636%_ _%hd1709217245%_))))))) - (if (gx#stx-pair? _%__stx2062820629%_) - (let ((_%e1708817231%_ (gx#syntax-e _%__stx2062820629%_))) - (let ((_%tl1709017238%_ + _%tl1695117049%_) + (_%__kont2047020471%_ + _%hd1695017046%_) + (_%__kont2047220473%_ + _%hd1693717090%_)))) + (_%__kont2047220473%_ + _%hd1693717090%_)) + (_%__kont2047220473%_ + _%hd1693717090%_)) + (_%__kont2047220473%_ + _%hd1693717090%_)))) + (_%__kont2047220473%_ _%hd1693717090%_))))))) + (if (gx#stx-pair? _%__stx2046520466%_) + (let ((_%e1693317076%_ (gx#syntax-e _%__stx2046520466%_))) + (let ((_%tl1693517083%_ (let () (declare (not safe)) - (##cdr _%e1708817231%_))) - (_%hd1708917235%_ + (##cdr _%e1693317076%_))) + (_%hd1693417080%_ (let () (declare (not safe)) - (##car _%e1708817231%_)))) - (if (gx#stx-pair? _%tl1709017238%_) - (let ((_%e1709117241%_ - (gx#syntax-e _%tl1709017238%_))) - (let ((_%tl1709317248%_ + (##car _%e1693317076%_)))) + (if (gx#stx-pair? _%tl1693517083%_) + (let ((_%e1693617086%_ + (gx#syntax-e _%tl1693517083%_))) + (let ((_%tl1693817093%_ (let () (declare (not safe)) - (##cdr _%e1709117241%_))) - (_%hd1709217245%_ + (##cdr _%e1693617086%_))) + (_%hd1693717090%_ (let () (declare (not safe)) - (##car _%e1709117241%_)))) - (if (gx#stx-null? _%tl1709317248%_) - (_%__match2065120652%_ - _%e1708817231%_ - _%hd1708917235%_ - _%tl1709017238%_ - _%e1709117241%_ - _%hd1709217245%_ - _%tl1709317248%_) - (if (gx#stx-pair? _%hd1709217245%_) - (let ((_%e1710117187%_ - (gx#syntax-e _%hd1709217245%_))) - (let ((_%tl1710317194%_ + (##car _%e1693617086%_)))) + (if (gx#stx-null? _%tl1693817093%_) + (_%__match2048820489%_ + _%e1693317076%_ + _%hd1693417080%_ + _%tl1693517083%_ + _%e1693617086%_ + _%hd1693717090%_ + _%tl1693817093%_) + (if (gx#stx-pair? _%hd1693717090%_) + (let ((_%e1694617032%_ + (gx#syntax-e _%hd1693717090%_))) + (let ((_%tl1694817039%_ (let () (declare (not safe)) - (##cdr _%e1710117187%_))) - (_%hd1710217191%_ + (##cdr _%e1694617032%_))) + (_%hd1694717036%_ (let () (declare (not safe)) - (##car _%e1710117187%_)))) - (if (gx#identifier? _%hd1710217191%_) + (##car _%e1694617032%_)))) + (if (gx#identifier? _%hd1694717036%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20964_| - _%hd1710217191%_) + |gerbil/core/sugar~Sugar-2[1]#_g20801_| + _%hd1694717036%_) (if (gx#stx-pair? - _%tl1710317194%_) - (let ((_%e1710417197%_ + _%tl1694817039%_) + (let ((_%e1694917042%_ (gx#syntax-e - _%tl1710317194%_))) - (let ((_%tl1710617204%_ + _%tl1694817039%_))) + (let ((_%tl1695117049%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e1710417197%_))) - (_%hd1710517201%_ - (let () (declare (not safe)) (##car _%e1710417197%_)))) - (let () (declare (not safe)) (_%g1708517119%_)))) - (let () (declare (not safe)) (_%g1708517119%_))) + (##cdr _%e1694917042%_))) + (_%hd1695017046%_ + (let () (declare (not safe)) (##car _%e1694917042%_)))) + (let () (declare (not safe)) (_%g1693016964%_)))) + (let () (declare (not safe)) (_%g1693016964%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g1708517119%_))) + (_%g1693016964%_))) (let () (declare (not safe)) - (_%g1708517119%_))))) + (_%g1693016964%_))))) (let () (declare (not safe)) - (_%g1708517119%_)))))) - (let () (declare (not safe)) (_%g1708517119%_))))) - (let () (declare (not safe)) (_%g1708517119%_)))))))) + (_%g1693016964%_)))))) + (let () (declare (not safe)) (_%g1693016964%_))))) + (let () (declare (not safe)) (_%g1693016964%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#cut| - (lambda (_%stx17268%_) - (letrec ((_%generate17271%_ - (lambda (_%rest17390%_) - (let _%lp17393%_ ((_%rest17396%_ _%rest17390%_) - (_%hd17398%_ '()) - (_%body17399%_ '())) - (let* ((_%__stx2072020721%_ _%rest17396%_) - (_%g1740217414%_ + (lambda (_%stx17113%_) + (letrec ((_%generate17116%_ + (lambda (_%rest17235%_) + (let _%lp17238%_ ((_%rest17241%_ _%rest17235%_) + (_%hd17243%_ '()) + (_%body17244%_ '())) + (let* ((_%__stx2055720558%_ _%rest17241%_) + (_%g1724717259%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2072020721%_)))) - (let ((_%__kont2072320724%_ - (lambda (_%L17442%_ _%L17444%_) - (let* ((_%__stx2070020701%_ _%L17444%_) - (_%g1746117468%_ + _%__stx2055720558%_)))) + (let ((_%__kont2056020561%_ + (lambda (_%g1724917287%_ _%g1725017289%_) + (let* ((_%__stx2053720538%_ _%g1725017289%_) + (_%g1730617313%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2070020701%_)))) - (let ((_%__kont2070320704%_ + _%__stx2053720538%_)))) + (let ((_%__kont2054020541%_ (lambda () - (let ((_%arg17504%_ (gx#genident))) - (_%lp17393%_ - _%L17442%_ - (cons _%arg17504%_ _%hd17398%_) - (cons _%arg17504%_ - _%body17399%_))))) - (_%__kont2070520706%_ + (let ((_%arg17349%_ (gx#genident))) + (_%lp17238%_ + _%g1724917287%_ + (cons _%arg17349%_ _%hd17243%_) + (cons _%arg17349%_ + _%body17244%_))))) + (_%__kont2054220543%_ (lambda () - (if (gx#stx-null? _%L17442%_) - (let ((_%tail17490%_ + (if (gx#stx-null? _%g1724917287%_) + (let ((_%tail17335%_ (gx#genident))) (values (foldl cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tail17490%_ - _%hd17398%_) - (foldl cons (list _%tail17490%_) _%body17399%_) + _%tail17335%_ + _%hd17243%_) + (foldl cons (list _%tail17335%_) _%body17244%_) '#t)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"bad syntax; cut ellipsis <...> not in tail position" - _%stx17268%_ - _%L17444%_)))) - (_%__kont2070720708%_ + _%stx17113%_ + _%g1725017289%_)))) + (_%__kont2054420545%_ (lambda () - (_%lp17393%_ - _%L17442%_ - _%hd17398%_ - (cons _%L17444%_ - _%body17399%_))))) - (if (gx#identifier? _%__stx2070020701%_) + (_%lp17238%_ + _%g1724917287%_ + _%hd17243%_ + (cons _%g1725017289%_ + _%body17244%_))))) + (if (gx#identifier? _%__stx2053720538%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20965_| - _%__stx2070020701%_) - (_%__kont2070320704%_) + |gerbil/core/sugar~Sugar-2[1]#_g20802_| + _%__stx2053720538%_) + (_%__kont2054020541%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20966_| - _%__stx2070020701%_) - (_%__kont2070520706%_) - (_%__kont2070720708%_))) - (_%__kont2070720708%_)))))) - (_%__kont2072520726%_ + |gerbil/core/sugar~Sugar-2[1]#_g20803_| + _%__stx2053720538%_) + (_%__kont2054220543%_) + (_%__kont2054420545%_))) + (_%__kont2054420545%_)))))) + (_%__kont2056220563%_ (lambda () - (values (reverse _%hd17398%_) - (reverse _%body17399%_) + (values (reverse _%hd17243%_) + (reverse _%body17244%_) '#f)))) - (if (gx#stx-pair? _%__stx2072020721%_) - (let ((_%e1740617432%_ - (gx#syntax-e _%__stx2072020721%_))) - (let ((_%tl1740817439%_ + (if (gx#stx-pair? _%__stx2055720558%_) + (let ((_%e1725117277%_ + (gx#syntax-e _%__stx2055720558%_))) + (let ((_%tl1725317284%_ (let () (declare (not safe)) - (##cdr _%e1740617432%_))) - (_%hd1740717436%_ + (##cdr _%e1725117277%_))) + (_%hd1725217281%_ (let () (declare (not safe)) - (##car _%e1740617432%_)))) - (_%__kont2072320724%_ - _%tl1740817439%_ - _%hd1740717436%_))) - (_%__kont2072520726%_)))))))) - (let* ((_%g1727417285%_ - (lambda (_%g1727517281%_) + (##car _%e1725117277%_)))) + (_%__kont2056020561%_ + _%tl1725317284%_ + _%hd1725217281%_))) + (_%__kont2056220563%_)))))))) + (let* ((_%g1711917130%_ + (lambda (_%g1712017126%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1727517281%_))) - (_%g1727317386%_ - (lambda (_%g1727517289%_) - (if (gx#stx-pair? _%g1727517289%_) - (let ((_%e1727717292%_ (gx#syntax-e _%g1727517289%_))) - (let ((_%hd1727817296%_ + _%g1712017126%_))) + (_%g1711817231%_ + (lambda (_%g1712017134%_) + (if (gx#stx-pair? _%g1712017134%_) + (let ((_%e1712217137%_ (gx#syntax-e _%g1712017134%_))) + (let ((_%hd1712317141%_ (let () (declare (not safe)) - (##car _%e1727717292%_))) - (_%tl1727917299%_ + (##car _%e1712217137%_))) + (_%tl1712417144%_ (let () (declare (not safe)) - (##cdr _%e1727717292%_)))) - ((lambda (_%L17302%_) - (if (and (gx#stx-list? _%L17302%_) - (not (gx#stx-null? _%L17302%_))) - (let ((_g20967_ - (_%generate17271%_ _%L17302%_))) + (##cdr _%e1712217137%_)))) + ((lambda (_%g1712117147%_) + (if (and (gx#stx-list? _%g1712117147%_) + (not (gx#stx-null? _%g1712117147%_))) + (let ((_g20804_ + (_%generate17116%_ _%g1712117147%_))) (begin - (let ((_g20968_ + (let ((_g20805_ (let () (declare (not safe)) - (if (##values? _g20967_) - (##values-length _g20967_) + (if (##values? _g20804_) + (##values-length _g20804_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20968_ 3))) + (##fx= _g20805_ 3))) (error "Context expects 3 values" - _g20968_))) - (let ((_%hd17315%_ + _g20805_))) + (let ((_%hd17160%_ (let () (declare (not safe)) - (##values-ref _g20967_ 0))) - (_%body17317%_ + (##values-ref _g20804_ 0))) + (_%body17162%_ (let () (declare (not safe)) - (##values-ref _g20967_ 1))) - (_%tail?17318%_ + (##values-ref _g20804_ 1))) + (_%tail?17163%_ (let () (declare (not safe)) - (##values-ref _g20967_ 2)))) - (let* ((_%g1732017328%_ - (lambda (_%g1732117324%_) + (##values-ref _g20804_ 2)))) + (let* ((_%g1716517173%_ + (lambda (_%g1716617169%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1732117324%_))) - (_%g1731917382%_ - (lambda (_%g1732117332%_) - ((lambda (_%L17335%_) - (let* ((_%g1734817356%_ - (lambda (_%g1734917352%_) + _%g1716617169%_))) + (_%g1716417227%_ + (lambda (_%g1716617177%_) + ((lambda (_%g1716717180%_) + (let* ((_%g1719317201%_ + (lambda (_%g1719417197%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g1734917352%_))) - (_%g1734717378%_ - (lambda (_%g1734917360%_) - ((lambda (_%L17363%_) - (if _%tail?17318%_ + _%g1719417197%_))) + (_%g1719217223%_ + (lambda (_%g1719417205%_) + ((lambda (_%g1719517208%_) + (if _%tail?17163%_ (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L17335%_ + (cons _%g1716717180%_ (cons (cons (gx#datum->syntax '#f 'apply) - _%L17363%_) + _%g1719517208%_) '()))) (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L17335%_ (cons _%L17363%_ '()))))) - _%g1734917360%_)))) - (_%g1734717378%_ _%body17317%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1732117332%_)))) - (_%g1731917382%_ _%hd17315%_))))) - (_%g1727417285%_ _%g1727517289%_))) - _%tl1727917299%_))) - (_%g1727417285%_ _%g1727517289%_))))) - (_%g1727317386%_ _%stx17268%_))))) + (cons _%g1716717180%_ + (cons _%g1719517208%_ '()))))) + _%g1719417205%_)))) + (_%g1719217223%_ _%body17162%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g1716617177%_)))) + (_%g1716417227%_ _%hd17160%_))))) + (_%g1711917130%_ _%g1712017134%_))) + _%tl1712417144%_))) + (_%g1711917130%_ _%g1712017134%_))))) + (_%g1711817231%_ _%stx17113%_))))) (define |gerbil/core/sugar~Sugar-2[:0:]#<>| - (lambda (_%$stx17516%_) - (let ((_%g1751917526%_ - (lambda (_%g1752017522%_) + (lambda (_%$stx17361%_) + (let ((_%g1736417371%_ + (lambda (_%g1736517367%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1752017522%_)))) - (_%g1751917526%_ _%$stx17516%_)))) + _%g1736517367%_)))) + (_%g1736417371%_ _%$stx17361%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#<...>| - (lambda (_%$stx17530%_) - (let ((_%g1753317540%_ - (lambda (_%g1753417536%_) + (lambda (_%$stx17375%_) + (let ((_%g1737817385%_ + (lambda (_%g1737917381%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1753417536%_)))) - (_%g1753317540%_ _%$stx17530%_)))))) + _%g1737917381%_)))) + (_%g1737817385%_ _%$stx17375%_)))))) diff --git a/src/bootstrap/gerbil/core/sugar~3.scm b/src/bootstrap/gerbil/core/sugar~3.scm index d2a217f166..2281d48884 100644 --- a/src/bootstrap/gerbil/core/sugar~3.scm +++ b/src/bootstrap/gerbil/core/sugar~3.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/sugar~Sugar-3[1]#_g20975_| + (define |gerbil/core/sugar~Sugar-3[1]#_g20812_| (##structure gx#syntax-quote::t 'quote @@ -9,572 +9,579 @@ '())) (begin (define |gerbil/core/sugar~Sugar-3[:0:]#defsyntax| - (lambda (_%$stx17545%_) - (let* ((_%__stx2073620737%_ _%$stx17545%_) - (_%g1755017589%_ + (lambda (_%$stx17390%_) + (let* ((_%__stx2057320574%_ _%$stx17390%_) + (_%g1739517434%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2073620737%_)))) - (let ((_%__kont2073920740%_ - (lambda (_%L17712%_ _%L17714%_ _%L17715%_) + _%__stx2057320574%_)))) + (let ((_%__kont2057620577%_ + (lambda (_%g1739717555%_ _%g1739817557%_ _%g1739917558%_) (cons (gx#datum->syntax '#f 'define-syntax) - (cons _%L17715%_ + (cons _%g1739917558%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L17714%_ - (foldr (lambda (_%g1773417737%_ + (cons _%g1739817557%_ + (foldr (lambda (_%g1757717580%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1773517740%_) - (cons _%g1773417737%_ _%g1773517740%_)) + _%g1757817583%_) + (cons _%g1757717580%_ _%g1757817583%_)) '() - _%L17712%_))) + _%g1739717555%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont2074320744%_ - (lambda (_%L17626%_ _%L17628%_) + (_%__kont2058020581%_ + (lambda (_%g1741817471%_ _%g1741917473%_) (cons (gx#datum->syntax '#f 'define-syntax) - (cons _%L17628%_ (cons _%L17626%_ '())))))) - (let* ((_%__match2079120792%_ - (lambda (_%e1757517596%_ - _%hd1757617600%_ - _%tl1757717603%_ - _%e1757817606%_ - _%hd1757917610%_ - _%tl1758017613%_ - _%e1758117616%_ - _%hd1758217620%_ - _%tl1758317623%_) - (let ((_%L17626%_ _%hd1758217620%_) - (_%L17628%_ _%hd1757917610%_)) - (if (gx#identifier? _%L17628%_) - (_%__kont2074320744%_ _%L17626%_ _%L17628%_) - (let () (declare (not safe)) (_%g1755017589%_)))))) - (_%__match2078320784%_ - (lambda (_%e1757517596%_ - _%hd1757617600%_ - _%tl1757717603%_ - _%e1757817606%_ - _%hd1757917610%_ - _%tl1758017613%_) - (if (gx#stx-pair? _%tl1758017613%_) - (let ((_%e1758117616%_ - (gx#syntax-e _%tl1758017613%_))) - (let ((_%tl1758317623%_ + (cons _%g1741917473%_ (cons _%g1741817471%_ '())))))) + (let* ((_%__match2062820629%_ + (lambda (_%e1742017441%_ + _%hd1742117445%_ + _%tl1742217448%_ + _%e1742317451%_ + _%hd1742417455%_ + _%tl1742517458%_ + _%e1742617461%_ + _%hd1742717465%_ + _%tl1742817468%_) + (let ((_%g1741817471%_ _%hd1742717465%_) + (_%g1741917473%_ _%hd1742417455%_)) + (if (gx#identifier? _%g1741917473%_) + (_%__kont2058020581%_ + _%g1741817471%_ + _%g1741917473%_) + (let () (declare (not safe)) (_%g1739517434%_)))))) + (_%__match2062020621%_ + (lambda (_%e1742017441%_ + _%hd1742117445%_ + _%tl1742217448%_ + _%e1742317451%_ + _%hd1742417455%_ + _%tl1742517458%_) + (if (gx#stx-pair? _%tl1742517458%_) + (let ((_%e1742617461%_ + (gx#syntax-e _%tl1742517458%_))) + (let ((_%tl1742817468%_ (let () (declare (not safe)) - (##cdr _%e1758117616%_))) - (_%hd1758217620%_ + (##cdr _%e1742617461%_))) + (_%hd1742717465%_ (let () (declare (not safe)) - (##car _%e1758117616%_)))) - (if (gx#stx-null? _%tl1758317623%_) - (_%__match2079120792%_ - _%e1757517596%_ - _%hd1757617600%_ - _%tl1757717603%_ - _%e1757817606%_ - _%hd1757917610%_ - _%tl1758017613%_ - _%e1758117616%_ - _%hd1758217620%_ - _%tl1758317623%_) + (##car _%e1742617461%_)))) + (if (gx#stx-null? _%tl1742817468%_) + (_%__match2062820629%_ + _%e1742017441%_ + _%hd1742117445%_ + _%tl1742217448%_ + _%e1742317451%_ + _%hd1742417455%_ + _%tl1742517458%_ + _%e1742617461%_ + _%hd1742717465%_ + _%tl1742817468%_) (let () (declare (not safe)) - (_%g1755017589%_))))) - (let () (declare (not safe)) (_%g1755017589%_))))) - (_%__match2077120772%_ - (lambda (_%e1755517652%_ - _%hd1755617656%_ - _%tl1755717659%_ - _%e1755817662%_ - _%hd1755917666%_ - _%tl1756017669%_ - _%e1756117672%_ - _%hd1756217676%_ - _%tl1756317679%_ - _%__splice2074120742%_ - _%target1756417682%_ - _%tl1756617685%_) - (letrec ((_%loop1756717688%_ - (lambda (_%hd1756517692%_ _%body1757117695%_) - (if (gx#stx-pair? _%hd1756517692%_) - (let ((_%e1756817698%_ - (gx#syntax-e _%hd1756517692%_))) - (let ((_%lp-tl1757017705%_ + (_%g1739517434%_))))) + (let () (declare (not safe)) (_%g1739517434%_))))) + (_%__match2060820609%_ + (lambda (_%e1740017497%_ + _%hd1740117501%_ + _%tl1740217504%_ + _%e1740317507%_ + _%hd1740417511%_ + _%tl1740517514%_ + _%e1740617517%_ + _%hd1740717521%_ + _%tl1740817524%_ + _%__splice2057820579%_ + _%target1740917527%_ + _%tl1741117530%_) + (letrec ((_%loop1741217533%_ + (lambda (_%hd1741017537%_ _%body1741617540%_) + (if (gx#stx-pair? _%hd1741017537%_) + (let ((_%e1741317542%_ + (gx#syntax-e _%hd1741017537%_))) + (let ((_%lp-tl1741517549%_ (let () (declare (not safe)) - (##cdr _%e1756817698%_))) - (_%lp-hd1756917702%_ + (##cdr _%e1741317542%_))) + (_%lp-hd1741417546%_ (let () (declare (not safe)) - (##car _%e1756817698%_)))) - (_%loop1756717688%_ - _%lp-tl1757017705%_ - (cons _%lp-hd1756917702%_ - _%body1757117695%_)))) - (let ((_%body1757217708%_ - (reverse _%body1757117695%_))) - (let ((_%L17712%_ _%body1757217708%_) - (_%L17714%_ _%tl1756317679%_) - (_%L17715%_ _%hd1756217676%_)) - (if (gx#identifier? _%L17715%_) - (_%__kont2073920740%_ - _%L17712%_ - _%L17714%_ - _%L17715%_) - (_%__match2078320784%_ - _%e1755517652%_ - _%hd1755617656%_ - _%tl1755717659%_ - _%e1755817662%_ - _%hd1755917666%_ - _%tl1756017669%_)))))))) - (_%loop1756717688%_ _%target1756417682%_ '()))))) - (if (gx#stx-pair? _%__stx2073620737%_) - (let ((_%e1755517652%_ (gx#syntax-e _%__stx2073620737%_))) - (let ((_%tl1755717659%_ + (##car _%e1741317542%_)))) + (_%loop1741217533%_ + _%lp-tl1741517549%_ + (cons _%lp-hd1741417546%_ + _%body1741617540%_)))) + (let ((_%body1741717552%_ + (reverse _%body1741617540%_))) + (let ((_%g1739717555%_ + _%body1741717552%_) + (_%g1739817557%_ + _%tl1740817524%_) + (_%g1739917558%_ + _%hd1740717521%_)) + (if (gx#identifier? _%g1739917558%_) + (_%__kont2057620577%_ + _%g1739717555%_ + _%g1739817557%_ + _%g1739917558%_) + (_%__match2062020621%_ + _%e1740017497%_ + _%hd1740117501%_ + _%tl1740217504%_ + _%e1740317507%_ + _%hd1740417511%_ + _%tl1740517514%_)))))))) + (_%loop1741217533%_ _%target1740917527%_ '()))))) + (if (gx#stx-pair? _%__stx2057320574%_) + (let ((_%e1740017497%_ (gx#syntax-e _%__stx2057320574%_))) + (let ((_%tl1740217504%_ (let () (declare (not safe)) - (##cdr _%e1755517652%_))) - (_%hd1755617656%_ + (##cdr _%e1740017497%_))) + (_%hd1740117501%_ (let () (declare (not safe)) - (##car _%e1755517652%_)))) - (if (gx#stx-pair? _%tl1755717659%_) - (let ((_%e1755817662%_ - (gx#syntax-e _%tl1755717659%_))) - (let ((_%tl1756017669%_ + (##car _%e1740017497%_)))) + (if (gx#stx-pair? _%tl1740217504%_) + (let ((_%e1740317507%_ + (gx#syntax-e _%tl1740217504%_))) + (let ((_%tl1740517514%_ (let () (declare (not safe)) - (##cdr _%e1755817662%_))) - (_%hd1755917666%_ + (##cdr _%e1740317507%_))) + (_%hd1740417511%_ (let () (declare (not safe)) - (##car _%e1755817662%_)))) - (if (gx#stx-pair? _%hd1755917666%_) - (let ((_%e1756117672%_ - (gx#syntax-e _%hd1755917666%_))) - (let ((_%tl1756317679%_ + (##car _%e1740317507%_)))) + (if (gx#stx-pair? _%hd1740417511%_) + (let ((_%e1740617517%_ + (gx#syntax-e _%hd1740417511%_))) + (let ((_%tl1740817524%_ (let () (declare (not safe)) - (##cdr _%e1756117672%_))) - (_%hd1756217676%_ + (##cdr _%e1740617517%_))) + (_%hd1740717521%_ (let () (declare (not safe)) - (##car _%e1756117672%_)))) - (if (gx#stx-pair/null? _%tl1756017669%_) - (let ((_%__splice2074120742%_ + (##car _%e1740617517%_)))) + (if (gx#stx-pair/null? _%tl1740517514%_) + (let ((_%__splice2057820579%_ (gx#syntax-split-splice->vector - _%tl1756017669%_ + _%tl1740517514%_ '0))) - (let ((_%tl1756617685%_ + (let ((_%tl1741117530%_ (let () (declare (not safe)) (##vector-ref - _%__splice2074120742%_ + _%__splice2057820579%_ '1))) - (_%target1756417682%_ + (_%target1740917527%_ (let () (declare (not safe)) (##vector-ref - _%__splice2074120742%_ + _%__splice2057820579%_ '0)))) (if (gx#stx-null? - _%tl1756617685%_) - (_%__match2077120772%_ - _%e1755517652%_ - _%hd1755617656%_ - _%tl1755717659%_ - _%e1755817662%_ - _%hd1755917666%_ - _%tl1756017669%_ - _%e1756117672%_ - _%hd1756217676%_ - _%tl1756317679%_ - _%__splice2074120742%_ - _%target1756417682%_ - _%tl1756617685%_) + _%tl1741117530%_) + (_%__match2060820609%_ + _%e1740017497%_ + _%hd1740117501%_ + _%tl1740217504%_ + _%e1740317507%_ + _%hd1740417511%_ + _%tl1740517514%_ + _%e1740617517%_ + _%hd1740717521%_ + _%tl1740817524%_ + _%__splice2057820579%_ + _%target1740917527%_ + _%tl1741117530%_) (if (gx#stx-pair? - _%tl1756017669%_) - (let ((_%e1758117616%_ + _%tl1740517514%_) + (let ((_%e1742617461%_ (gx#syntax-e - _%tl1756017669%_))) - (let ((_%tl1758317623%_ + _%tl1740517514%_))) + (let ((_%tl1742817468%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e1758117616%_))) - (_%hd1758217620%_ - (let () (declare (not safe)) (##car _%e1758117616%_)))) - (if (gx#stx-null? _%tl1758317623%_) - (_%__match2079120792%_ - _%e1755517652%_ - _%hd1755617656%_ - _%tl1755717659%_ - _%e1755817662%_ - _%hd1755917666%_ - _%tl1756017669%_ - _%e1758117616%_ - _%hd1758217620%_ - _%tl1758317623%_) - (let () (declare (not safe)) (_%g1755017589%_))))) - (let () (declare (not safe)) (_%g1755017589%_)))))) + (##cdr _%e1742617461%_))) + (_%hd1742717465%_ + (let () (declare (not safe)) (##car _%e1742617461%_)))) + (if (gx#stx-null? _%tl1742817468%_) + (_%__match2062820629%_ + _%e1740017497%_ + _%hd1740117501%_ + _%tl1740217504%_ + _%e1740317507%_ + _%hd1740417511%_ + _%tl1740517514%_ + _%e1742617461%_ + _%hd1742717465%_ + _%tl1742817468%_) + (let () (declare (not safe)) (_%g1739517434%_))))) + (let () (declare (not safe)) (_%g1739517434%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl1756017669%_) - (let ((_%e1758117616%_ + (if (gx#stx-pair? _%tl1740517514%_) + (let ((_%e1742617461%_ (gx#syntax-e - _%tl1756017669%_))) - (let ((_%tl1758317623%_ + _%tl1740517514%_))) + (let ((_%tl1742817468%_ (let () (declare (not safe)) - (##cdr _%e1758117616%_))) - (_%hd1758217620%_ + (##cdr _%e1742617461%_))) + (_%hd1742717465%_ (let () (declare (not safe)) - (##car _%e1758117616%_)))) + (##car _%e1742617461%_)))) (if (gx#stx-null? - _%tl1758317623%_) - (_%__match2079120792%_ - _%e1755517652%_ - _%hd1755617656%_ - _%tl1755717659%_ - _%e1755817662%_ - _%hd1755917666%_ - _%tl1756017669%_ - _%e1758117616%_ - _%hd1758217620%_ - _%tl1758317623%_) + _%tl1742817468%_) + (_%__match2062820629%_ + _%e1740017497%_ + _%hd1740117501%_ + _%tl1740217504%_ + _%e1740317507%_ + _%hd1740417511%_ + _%tl1740517514%_ + _%e1742617461%_ + _%hd1742717465%_ + _%tl1742817468%_) (let () (declare (not safe)) - (_%g1755017589%_))))) + (_%g1739517434%_))))) (let () (declare (not safe)) - (_%g1755017589%_)))))) - (if (gx#stx-pair? _%tl1756017669%_) - (let ((_%e1758117616%_ - (gx#syntax-e _%tl1756017669%_))) - (let ((_%tl1758317623%_ + (_%g1739517434%_)))))) + (if (gx#stx-pair? _%tl1740517514%_) + (let ((_%e1742617461%_ + (gx#syntax-e _%tl1740517514%_))) + (let ((_%tl1742817468%_ (let () (declare (not safe)) - (##cdr _%e1758117616%_))) - (_%hd1758217620%_ + (##cdr _%e1742617461%_))) + (_%hd1742717465%_ (let () (declare (not safe)) - (##car _%e1758117616%_)))) - (if (gx#stx-null? _%tl1758317623%_) - (_%__match2079120792%_ - _%e1755517652%_ - _%hd1755617656%_ - _%tl1755717659%_ - _%e1755817662%_ - _%hd1755917666%_ - _%tl1756017669%_ - _%e1758117616%_ - _%hd1758217620%_ - _%tl1758317623%_) + (##car _%e1742617461%_)))) + (if (gx#stx-null? _%tl1742817468%_) + (_%__match2062820629%_ + _%e1740017497%_ + _%hd1740117501%_ + _%tl1740217504%_ + _%e1740317507%_ + _%hd1740417511%_ + _%tl1740517514%_ + _%e1742617461%_ + _%hd1742717465%_ + _%tl1742817468%_) (let () (declare (not safe)) - (_%g1755017589%_))))) + (_%g1739517434%_))))) (let () (declare (not safe)) - (_%g1755017589%_)))))) - (let () (declare (not safe)) (_%g1755017589%_))))) - (let () (declare (not safe)) (_%g1755017589%_)))))))) + (_%g1739517434%_)))))) + (let () (declare (not safe)) (_%g1739517434%_))))) + (let () (declare (not safe)) (_%g1739517434%_)))))))) (define |gerbil/core/sugar~Sugar-3[:0:]#definline| - (lambda (_%stx17748%_) - (let* ((_%g1775117788%_ - (lambda (_%g1775217784%_) + (lambda (_%stx17591%_) + (let* ((_%g1759417631%_ + (lambda (_%g1759517627%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1775217784%_))) - (_%g1775018149%_ - (lambda (_%g1775217792%_) - (if (gx#stx-pair? _%g1775217792%_) - (let ((_%e1775617795%_ (gx#syntax-e _%g1775217792%_))) - (let ((_%hd1775717799%_ + _%g1759517627%_))) + (_%g1759317986%_ + (lambda (_%g1759517635%_) + (if (gx#stx-pair? _%g1759517635%_) + (let ((_%e1759917638%_ (gx#syntax-e _%g1759517635%_))) + (let ((_%hd1760017642%_ (let () (declare (not safe)) - (##car _%e1775617795%_))) - (_%tl1775817802%_ + (##car _%e1759917638%_))) + (_%tl1760117645%_ (let () (declare (not safe)) - (##cdr _%e1775617795%_)))) - (if (gx#stx-pair? _%tl1775817802%_) - (let ((_%e1775917805%_ - (gx#syntax-e _%tl1775817802%_))) - (let ((_%hd1776017809%_ + (##cdr _%e1759917638%_)))) + (if (gx#stx-pair? _%tl1760117645%_) + (let ((_%e1760217648%_ + (gx#syntax-e _%tl1760117645%_))) + (let ((_%hd1760317652%_ (let () (declare (not safe)) - (##car _%e1775917805%_))) - (_%tl1776117812%_ + (##car _%e1760217648%_))) + (_%tl1760417655%_ (let () (declare (not safe)) - (##cdr _%e1775917805%_)))) - (if (gx#stx-pair? _%hd1776017809%_) - (let ((_%e1776217815%_ - (gx#syntax-e _%hd1776017809%_))) - (let ((_%hd1776317819%_ + (##cdr _%e1760217648%_)))) + (if (gx#stx-pair? _%hd1760317652%_) + (let ((_%e1760517658%_ + (gx#syntax-e _%hd1760317652%_))) + (let ((_%hd1760617662%_ (let () (declare (not safe)) - (##car _%e1776217815%_))) - (_%tl1776417822%_ + (##car _%e1760517658%_))) + (_%tl1760717665%_ (let () (declare (not safe)) - (##cdr _%e1776217815%_)))) + (##cdr _%e1760517658%_)))) (if (gx#stx-pair/null? - _%tl1776417822%_) - (let ((_g20969_ + _%tl1760717665%_) + (let ((_g20806_ (gx#syntax-split-splice - _%tl1776417822%_ + _%tl1760717665%_ '0))) (begin - (let ((_g20970_ + (let ((_g20807_ (let () (declare (not safe)) (if (##values? - _g20969_) + _g20806_) (##values-length - _g20969_) + _g20806_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g20970_ 2))) - (error "Context expects 2 values" _g20970_))) + (##fx= _g20807_ 2))) + (error "Context expects 2 values" _g20807_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target1776517825%_ + (let ((_%target1760817668%_ (let () (declare (not safe)) (##values-ref - _g20969_ + _g20806_ 0))) - (_%tl1776717828%_ + (_%tl1761017671%_ (let () (declare (not safe)) (##values-ref - _g20969_ + _g20806_ 1)))) (if (gx#stx-null? - _%tl1776717828%_) - (letrec ((_%loop1776817831%_ + _%tl1761017671%_) + (letrec ((_%loop1761117674%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd1776617835%_ _%arg1777217838%_) - (if (gx#stx-pair? _%hd1776617835%_) - (let ((_%e1776917841%_ - (gx#syntax-e _%hd1776617835%_))) - (let ((_%lp-hd1777017845%_ + (lambda (_%hd1760917678%_ _%arg1761517681%_) + (if (gx#stx-pair? _%hd1760917678%_) + (let ((_%e1761217683%_ + (gx#syntax-e _%hd1760917678%_))) + (let ((_%lp-hd1761317687%_ (let () (declare (not safe)) - (##car _%e1776917841%_))) - (_%lp-tl1777117848%_ + (##car _%e1761217683%_))) + (_%lp-tl1761417690%_ (let () (declare (not safe)) - (##cdr _%e1776917841%_)))) - (_%loop1776817831%_ - _%lp-tl1777117848%_ - (cons _%lp-hd1777017845%_ - _%arg1777217838%_)))) - (let ((_%arg1777317851%_ - (reverse _%arg1777217838%_))) - (if (gx#stx-pair/null? _%tl1776117812%_) - (let ((_g20971_ + (##cdr _%e1761217683%_)))) + (_%loop1761117674%_ + _%lp-tl1761417690%_ + (cons _%lp-hd1761317687%_ + _%arg1761517681%_)))) + (let ((_%arg1761617693%_ + (reverse _%arg1761517681%_))) + (if (gx#stx-pair/null? _%tl1760417655%_) + (let ((_g20808_ (gx#syntax-split-splice - _%tl1776117812%_ + _%tl1760417655%_ '0))) (begin - (let ((_g20972_ + (let ((_g20809_ (let () (declare (not safe)) - (if (##values? _g20971_) + (if (##values? _g20808_) (##values-length - _g20971_) + _g20808_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20972_ 2))) + (##fx= _g20809_ 2))) (error "Context expects 2 values" - _g20972_))) - (let ((_%target1777417855%_ + _g20809_))) + (let ((_%target1761717696%_ (let () (declare (not safe)) - (##values-ref _g20971_ 0))) - (_%tl1777617858%_ + (##values-ref _g20808_ 0))) + (_%tl1761917699%_ (let () (declare (not safe)) - (##values-ref _g20971_ 1)))) - (if (gx#stx-null? _%tl1777617858%_) - (letrec ((_%loop1777717861%_ - (lambda (_%hd1777517865%_ + (##values-ref _g20808_ 1)))) + (if (gx#stx-null? _%tl1761917699%_) + (letrec ((_%loop1762017702%_ + (lambda (_%hd1761817706%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body1778117868%_) - (if (gx#stx-pair? _%hd1777517865%_) - (let ((_%e1777817871%_ (gx#syntax-e _%hd1777517865%_))) - (let ((_%lp-hd1777917875%_ + _%body1762417709%_) + (if (gx#stx-pair? _%hd1761817706%_) + (let ((_%e1762117711%_ (gx#syntax-e _%hd1761817706%_))) + (let ((_%lp-hd1762217715%_ (let () (declare (not safe)) - (##car _%e1777817871%_))) - (_%lp-tl1778017878%_ + (##car _%e1762117711%_))) + (_%lp-tl1762317718%_ (let () (declare (not safe)) - (##cdr _%e1777817871%_)))) - (_%loop1777717861%_ - _%lp-tl1778017878%_ - (cons _%lp-hd1777917875%_ _%body1778117868%_)))) - (let ((_%body1778217881%_ - (reverse _%body1778117868%_))) - ((lambda (_%L17885%_ _%L17887%_ _%L17888%_) - (if (and (gx#identifier? _%L17888%_) + (##cdr _%e1762117711%_)))) + (_%loop1762017702%_ + _%lp-tl1762317718%_ + (cons _%lp-hd1762217715%_ _%body1762417709%_)))) + (let ((_%body1762517721%_ + (reverse _%body1762417709%_))) + ((lambda (_%g1759617724%_ + _%g1759717726%_ + _%g1759817727%_) + (if (and (gx#identifier? _%g1759817727%_) (gx#identifier-list? - (foldr (lambda (_%g1791217915%_ - _%g1791317918%_) - (cons _%g1791217915%_ - _%g1791317918%_)) + (foldr (lambda (_%g1775117754%_ + _%g1775217757%_) + (cons _%g1775117754%_ + _%g1775217757%_)) '() - _%L17887%_))) - (let* ((_%g1792117929%_ - (lambda (_%g1792217925%_) + _%g1759717726%_))) + (let* ((_%g1776017768%_ + (lambda (_%g1776117764%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1792217925%_))) - (_%g1792018145%_ - (lambda (_%g1792217933%_) - ((lambda (_%L17936%_) - (let* ((_%g1794817965%_ - (lambda (_%g1794917961%_) + _%g1776117764%_))) + (_%g1775917982%_ + (lambda (_%g1776117772%_) + ((lambda (_%g1776217775%_) + (let* ((_%g1778717804%_ + (lambda (_%g1778817800%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1794917961%_))) - (_%g1794718133%_ - (lambda (_%g1794917969%_) + _%g1778817800%_))) + (_%g1778617970%_ + (lambda (_%g1778817808%_) (if (gx#stx-pair/null? - _%g1794917969%_) - (let ((_g20973_ + _%g1778817808%_) + (let ((_g20810_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g1794917969%_ '0))) + (gx#syntax-split-splice _%g1778817808%_ '0))) (begin - (let ((_g20974_ + (let ((_g20811_ (let () (declare (not safe)) - (if (##values? _g20973_) - (##values-length _g20973_) + (if (##values? _g20810_) + (##values-length _g20810_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20974_ 2))) - (error "Context expects 2 values" _g20974_))) - (let ((_%target1795117972%_ + (##fx= _g20811_ 2))) + (error "Context expects 2 values" _g20811_))) + (let ((_%target1779017811%_ (let () (declare (not safe)) - (##values-ref _g20973_ 0))) - (_%tl1795317975%_ + (##values-ref _g20810_ 0))) + (_%tl1779217814%_ (let () (declare (not safe)) - (##values-ref _g20973_ 1)))) - (if (gx#stx-null? _%tl1795317975%_) - (letrec ((_%loop1795417978%_ - (lambda (_%hd1795217982%_ - _%xarg1795817985%_) - (if (gx#stx-pair? _%hd1795217982%_) - (let ((_%e1795517988%_ + (##values-ref _g20810_ 1)))) + (if (gx#stx-null? _%tl1779217814%_) + (letrec ((_%loop1779317817%_ + (lambda (_%hd1779117821%_ + _%xarg1779717824%_) + (if (gx#stx-pair? _%hd1779117821%_) + (let ((_%e1779417826%_ (gx#syntax-e - _%hd1795217982%_))) - (let ((_%lp-hd1795617992%_ + _%hd1779117821%_))) + (let ((_%lp-hd1779517830%_ (let () (declare (not safe)) - (##car _%e1795517988%_))) - (_%lp-tl1795717995%_ + (##car _%e1779417826%_))) + (_%lp-tl1779617833%_ (let () (declare (not safe)) - (##cdr _%e1795517988%_)))) - (_%loop1795417978%_ - _%lp-tl1795717995%_ - (cons _%lp-hd1795617992%_ - _%xarg1795817985%_)))) - (let ((_%xarg1795917998%_ - (reverse _%xarg1795817985%_))) - ((lambda (_%L18002%_) - (let* ((_%g1801918027%_ - (lambda (_%g1802018023%_) + (##cdr _%e1779417826%_)))) + (_%loop1779317817%_ + _%lp-tl1779617833%_ + (cons _%lp-hd1779517830%_ + _%xarg1779717824%_)))) + (let ((_%xarg1779817836%_ + (reverse _%xarg1779717824%_))) + ((lambda (_%g1778917839%_) + (let* ((_%g1785617864%_ + (lambda (_%g1785717860%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1802018023%_))) - (_%g1801818097%_ - (lambda (_%g1802018031%_) - ((lambda (_%L18034%_) - (let* ((_%g1804718055%_ + _%g1785717860%_))) + (_%g1785517934%_ + (lambda (_%g1785717868%_) + ((lambda (_%g1785817871%_) + (let* ((_%g1788417892%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g1804818051%_) + (lambda (_%g1788517888%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1804818051%_))) - (_%g1804618077%_ - (lambda (_%g1804818059%_) - ((lambda (_%L18062%_) + _%g1788517888%_))) + (_%g1788317914%_ + (lambda (_%g1788517896%_) + ((lambda (_%g1788617899%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'begin) - (cons _%L18062%_ - (cons _%L18034%_ '()))) - (gx#stx-source _%stx17748%_))) - _%g1804818059%_)))) - (_%g1804618077%_ + (cons _%g1788617899%_ + (cons _%g1785817871%_ '()))) + (gx#stx-source _%stx17591%_))) + _%g1788517896%_)))) + (_%g1788317914%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L17936%_ - (foldr (lambda (_%g1808018085%_ - _%g1808118088%_) - (cons _%g1808018085%_ - _%g1808118088%_)) + (cons (cons _%g1776217775%_ + (foldr (lambda (_%g1791717922%_ + _%g1791817925%_) + (cons _%g1791717922%_ + _%g1791817925%_)) '() - _%L17887%_)) - (foldr (lambda (_%g1808218091%_ - _%g1808318094%_) - (cons _%g1808218091%_ - _%g1808318094%_)) + _%g1759717726%_)) + (foldr (lambda (_%g1791917928%_ + _%g1792017931%_) + (cons _%g1791917928%_ + _%g1792017931%_)) '() - _%L17885%_))) - (gx#stx-source _%stx17748%_))))) - _%g1802018031%_)))) + _%g1759617724%_))) + (gx#stx-source _%stx17591%_))))) + _%g1785717868%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1801818097%_ + (_%g1785517934%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'defrules) - (cons _%L17888%_ + (cons _%g1759817727%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '() (cons (cons (cons (gx#datum->syntax '#f '_) - (foldr (lambda (_%g1810018109%_ + (foldr (lambda (_%g1793717946%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1810118112%_) - (cons _%g1810018109%_ _%g1810118112%_)) + _%g1793817949%_) + (cons _%g1793717946%_ _%g1793817949%_)) '() - _%L18002%_)) + _%g1778917839%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (foldr (lambda (_%g1810218115%_ + (cons (foldr (lambda (_%g1793917952%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1810318118%_) - (cons _%g1810218115%_ _%g1810318118%_)) + _%g1794017955%_) + (cons _%g1793917952%_ _%g1794017955%_)) '() - _%L17887%_) - (foldr (lambda (_%g1810418121%_ _%g1810518124%_) - (cons _%g1810418121%_ _%g1810518124%_)) + _%g1759717726%_) + (foldr (lambda (_%g1794117958%_ _%g1794217961%_) + (cons _%g1794117958%_ _%g1794217961%_)) '() - _%L17885%_))) - (foldr (lambda (_%g1810618127%_ _%g1810718130%_) - (cons _%g1810618127%_ _%g1810718130%_)) + _%g1759617724%_))) + (foldr (lambda (_%g1794317964%_ _%g1794417967%_) + (cons _%g1794317964%_ _%g1794417967%_)) '() - _%L18002%_)) + _%g1778917839%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'ref) @@ -587,64 +594,64 @@ 'syntax) (cons (gx#datum->syntax '#f 'ref) '())) '())) - (cons _%L17936%_ '()))) + (cons _%g1776217775%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (gx#stx-source _%stx17748%_))))) + (gx#stx-source _%stx17591%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%xarg1795917998%_)))))) - (_%loop1795417978%_ _%target1795117972%_ '())) - (_%g1794817965%_ _%g1794917969%_))))) - (_%g1794817965%_ _%g1794917969%_))))) + _%xarg1779817836%_)))))) + (_%loop1779317817%_ _%target1779017811%_ '())) + (_%g1778717804%_ _%g1778817808%_))))) + (_%g1778717804%_ _%g1778817808%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1794718133%_ + (_%g1778617970%_ (gx#gentemps - (foldr (lambda (_%g1813618139%_ + (foldr (lambda (_%g1797317976%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1813718142%_) - (cons _%g1813618139%_ _%g1813718142%_)) + _%g1797417979%_) + (cons _%g1797317976%_ _%g1797417979%_)) '() - _%L17887%_))))) + _%g1759717726%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1792217933%_)))) - (_%g1792018145%_ + _%g1776117772%_)))) + (_%g1775917982%_ (gx#stx-identifier - _%L17888%_ - _%L17888%_ + _%g1759817727%_ + _%g1759817727%_ '"__impl"))) - (_%g1775117788%_ _%g1775217792%_))) - _%body1778217881%_ - _%arg1777317851%_ - _%hd1776317819%_)))))) + (_%g1759417631%_ _%g1759517635%_))) + _%body1762517721%_ + _%arg1761617693%_ + _%hd1760617662%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1777717861%_ - _%target1777417855%_ + (_%loop1762017702%_ + _%target1761717696%_ '())) - (_%g1775117788%_ - _%g1775217792%_))))) - (_%g1775117788%_ _%g1775217792%_))))))) - (_%loop1776817831%_ _%target1776517825%_ '())) - (_%g1775117788%_ _%g1775217792%_))))) + (_%g1759417631%_ + _%g1759517635%_))))) + (_%g1759417631%_ _%g1759517635%_))))))) + (_%loop1761117674%_ _%target1760817668%_ '())) + (_%g1759417631%_ _%g1759517635%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1775117788%_ - _%g1775217792%_)))) - (_%g1775117788%_ _%g1775217792%_)))) - (_%g1775117788%_ _%g1775217792%_)))) - (_%g1775117788%_ _%g1775217792%_))))) - (_%g1775018149%_ _%stx17748%_)))) + (_%g1759417631%_ + _%g1759517635%_)))) + (_%g1759417631%_ _%g1759517635%_)))) + (_%g1759417631%_ _%g1759517635%_)))) + (_%g1759417631%_ _%g1759517635%_))))) + (_%g1759317986%_ _%stx17591%_)))) (define |gerbil/core/sugar~Sugar-3[:0:]#defconst| - (lambda (_%$stx18156%_) - (let* ((_%__stx2079420795%_ _%$stx18156%_) - (_%g1816118197%_ + (lambda (_%$stx17993%_) + (let* ((_%__stx2063120632%_ _%$stx17993%_) + (_%g1799818034%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2079420795%_)))) - (let ((_%__kont2079720798%_ - (lambda (_%L18311%_ _%L18313%_) + _%__stx2063120632%_)))) + (let ((_%__kont2063420635%_ + (lambda (_%g1800018148%_ _%g1800118150%_) (cons (gx#datum->syntax '#f 'defrules) - (cons _%L18313%_ + (cons _%g1800118150%_ (cons '() (cons (cons (gx#datum->syntax '#f 'x) (cons (cons (gx#datum->syntax @@ -656,218 +663,221 @@ 'syntax) (cons (gx#datum->syntax '#f 'x) '())) '())) - (cons (cons (gx#datum->syntax '#f 'quote) (cons _%L18311%_ '())) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%g1800018148%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont2079920800%_ - (lambda (_%L18234%_ _%L18236%_ _%L18237%_) - (cons _%L18237%_ - (cons _%L18236%_ + (_%__kont2063620637%_ + (lambda (_%g1801718071%_ _%g1801818073%_ _%g1801918074%_) + (cons _%g1801918074%_ + (cons _%g1801818073%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L18234%_ '())) + (cons _%g1801718071%_ '())) '())))))) - (let* ((_%__match2085920860%_ - (lambda (_%e1818318204%_ - _%hd1818418208%_ - _%tl1818518211%_ - _%e1818618214%_ - _%hd1818718218%_ - _%tl1818818221%_ - _%e1818918224%_ - _%hd1819018228%_ - _%tl1819118231%_) - (let ((_%L18234%_ _%hd1819018228%_) - (_%L18236%_ _%hd1818718218%_) - (_%L18237%_ _%hd1818418208%_)) - (if (and (gx#identifier? _%L18236%_) - (gx#stx-datum? _%L18234%_)) - (_%__kont2079920800%_ - _%L18234%_ - _%L18236%_ - _%L18237%_) - (let () (declare (not safe)) (_%g1816118197%_)))))) - (_%__match2083920840%_ - (lambda (_%e1816518261%_ - _%hd1816618265%_ - _%tl1816718268%_ - _%e1816818271%_ - _%hd1816918275%_ - _%tl1817018278%_ - _%e1817118281%_ - _%hd1817218285%_ - _%tl1817318288%_ - _%e1817418291%_ - _%hd1817518295%_ - _%tl1817618298%_ - _%e1817718301%_ - _%hd1817818305%_ - _%tl1817918308%_) - (let ((_%L18311%_ _%hd1817818305%_) - (_%L18313%_ _%hd1816918275%_)) - (if (gx#identifier? _%L18313%_) - (_%__kont2079720798%_ _%L18311%_ _%L18313%_) - (_%__match2085920860%_ - _%e1816518261%_ - _%hd1816618265%_ - _%tl1816718268%_ - _%e1816818271%_ - _%hd1816918275%_ - _%tl1817018278%_ - _%e1817118281%_ - _%hd1817218285%_ - _%tl1817318288%_)))))) - (if (gx#stx-pair? _%__stx2079420795%_) - (let ((_%e1816518261%_ (gx#syntax-e _%__stx2079420795%_))) - (let ((_%tl1816718268%_ + (let* ((_%__match2069620697%_ + (lambda (_%e1802018041%_ + _%hd1802118045%_ + _%tl1802218048%_ + _%e1802318051%_ + _%hd1802418055%_ + _%tl1802518058%_ + _%e1802618061%_ + _%hd1802718065%_ + _%tl1802818068%_) + (let ((_%g1801718071%_ _%hd1802718065%_) + (_%g1801818073%_ _%hd1802418055%_) + (_%g1801918074%_ _%hd1802118045%_)) + (if (and (gx#identifier? _%g1801818073%_) + (gx#stx-datum? _%g1801718071%_)) + (_%__kont2063620637%_ + _%g1801718071%_ + _%g1801818073%_ + _%g1801918074%_) + (let () (declare (not safe)) (_%g1799818034%_)))))) + (_%__match2067620677%_ + (lambda (_%e1800218098%_ + _%hd1800318102%_ + _%tl1800418105%_ + _%e1800518108%_ + _%hd1800618112%_ + _%tl1800718115%_ + _%e1800818118%_ + _%hd1800918122%_ + _%tl1801018125%_ + _%e1801118128%_ + _%hd1801218132%_ + _%tl1801318135%_ + _%e1801418138%_ + _%hd1801518142%_ + _%tl1801618145%_) + (let ((_%g1800018148%_ _%hd1801518142%_) + (_%g1800118150%_ _%hd1800618112%_)) + (if (gx#identifier? _%g1800118150%_) + (_%__kont2063420635%_ + _%g1800018148%_ + _%g1800118150%_) + (_%__match2069620697%_ + _%e1800218098%_ + _%hd1800318102%_ + _%tl1800418105%_ + _%e1800518108%_ + _%hd1800618112%_ + _%tl1800718115%_ + _%e1800818118%_ + _%hd1800918122%_ + _%tl1801018125%_)))))) + (if (gx#stx-pair? _%__stx2063120632%_) + (let ((_%e1800218098%_ (gx#syntax-e _%__stx2063120632%_))) + (let ((_%tl1800418105%_ (let () (declare (not safe)) - (##cdr _%e1816518261%_))) - (_%hd1816618265%_ + (##cdr _%e1800218098%_))) + (_%hd1800318102%_ (let () (declare (not safe)) - (##car _%e1816518261%_)))) - (if (gx#stx-pair? _%tl1816718268%_) - (let ((_%e1816818271%_ - (gx#syntax-e _%tl1816718268%_))) - (let ((_%tl1817018278%_ + (##car _%e1800218098%_)))) + (if (gx#stx-pair? _%tl1800418105%_) + (let ((_%e1800518108%_ + (gx#syntax-e _%tl1800418105%_))) + (let ((_%tl1800718115%_ (let () (declare (not safe)) - (##cdr _%e1816818271%_))) - (_%hd1816918275%_ + (##cdr _%e1800518108%_))) + (_%hd1800618112%_ (let () (declare (not safe)) - (##car _%e1816818271%_)))) - (if (gx#stx-pair? _%tl1817018278%_) - (let ((_%e1817118281%_ - (gx#syntax-e _%tl1817018278%_))) - (let ((_%tl1817318288%_ + (##car _%e1800518108%_)))) + (if (gx#stx-pair? _%tl1800718115%_) + (let ((_%e1800818118%_ + (gx#syntax-e _%tl1800718115%_))) + (let ((_%tl1801018125%_ (let () (declare (not safe)) - (##cdr _%e1817118281%_))) - (_%hd1817218285%_ + (##cdr _%e1800818118%_))) + (_%hd1800918122%_ (let () (declare (not safe)) - (##car _%e1817118281%_)))) - (if (gx#stx-pair? _%hd1817218285%_) - (let ((_%e1817418291%_ + (##car _%e1800818118%_)))) + (if (gx#stx-pair? _%hd1800918122%_) + (let ((_%e1801118128%_ (gx#syntax-e - _%hd1817218285%_))) - (let ((_%tl1817618298%_ + _%hd1800918122%_))) + (let ((_%tl1801318135%_ (let () (declare (not safe)) - (##cdr _%e1817418291%_))) - (_%hd1817518295%_ + (##cdr _%e1801118128%_))) + (_%hd1801218132%_ (let () (declare (not safe)) - (##car _%e1817418291%_)))) + (##car _%e1801118128%_)))) (if (gx#identifier? - _%hd1817518295%_) + _%hd1801218132%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-3[1]#_g20975_| - _%hd1817518295%_) + |gerbil/core/sugar~Sugar-3[1]#_g20812_| + _%hd1801218132%_) (if (gx#stx-pair? - _%tl1817618298%_) - (let ((_%e1817718301%_ + _%tl1801318135%_) + (let ((_%e1801418138%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1817618298%_))) - (let ((_%tl1817918308%_ + (gx#syntax-e _%tl1801318135%_))) + (let ((_%tl1801618145%_ (let () (declare (not safe)) - (##cdr _%e1817718301%_))) - (_%hd1817818305%_ + (##cdr _%e1801418138%_))) + (_%hd1801518142%_ (let () (declare (not safe)) - (##car _%e1817718301%_)))) - (if (gx#stx-null? _%tl1817918308%_) - (if (gx#stx-null? _%tl1817318288%_) - (_%__match2083920840%_ - _%e1816518261%_ - _%hd1816618265%_ - _%tl1816718268%_ - _%e1816818271%_ - _%hd1816918275%_ - _%tl1817018278%_ - _%e1817118281%_ - _%hd1817218285%_ - _%tl1817318288%_ - _%e1817418291%_ - _%hd1817518295%_ - _%tl1817618298%_ - _%e1817718301%_ - _%hd1817818305%_ - _%tl1817918308%_) - (let () (declare (not safe)) (_%g1816118197%_))) - (if (gx#stx-null? _%tl1817318288%_) - (_%__match2085920860%_ - _%e1816518261%_ - _%hd1816618265%_ - _%tl1816718268%_ - _%e1816818271%_ - _%hd1816918275%_ - _%tl1817018278%_ - _%e1817118281%_ - _%hd1817218285%_ - _%tl1817318288%_) + (##car _%e1801418138%_)))) + (if (gx#stx-null? _%tl1801618145%_) + (if (gx#stx-null? _%tl1801018125%_) + (_%__match2067620677%_ + _%e1800218098%_ + _%hd1800318102%_ + _%tl1800418105%_ + _%e1800518108%_ + _%hd1800618112%_ + _%tl1800718115%_ + _%e1800818118%_ + _%hd1800918122%_ + _%tl1801018125%_ + _%e1801118128%_ + _%hd1801218132%_ + _%tl1801318135%_ + _%e1801418138%_ + _%hd1801518142%_ + _%tl1801618145%_) + (let () (declare (not safe)) (_%g1799818034%_))) + (if (gx#stx-null? _%tl1801018125%_) + (_%__match2069620697%_ + _%e1800218098%_ + _%hd1800318102%_ + _%tl1800418105%_ + _%e1800518108%_ + _%hd1800618112%_ + _%tl1800718115%_ + _%e1800818118%_ + _%hd1800918122%_ + _%tl1801018125%_) (let () (declare (not safe)) - (_%g1816118197%_)))))) - (if (gx#stx-null? _%tl1817318288%_) - (_%__match2085920860%_ - _%e1816518261%_ - _%hd1816618265%_ - _%tl1816718268%_ - _%e1816818271%_ - _%hd1816918275%_ - _%tl1817018278%_ - _%e1817118281%_ - _%hd1817218285%_ - _%tl1817318288%_) - (let () (declare (not safe)) (_%g1816118197%_)))) - (if (gx#stx-null? _%tl1817318288%_) - (_%__match2085920860%_ - _%e1816518261%_ - _%hd1816618265%_ - _%tl1816718268%_ - _%e1816818271%_ - _%hd1816918275%_ - _%tl1817018278%_ - _%e1817118281%_ - _%hd1817218285%_ - _%tl1817318288%_) - (let () (declare (not safe)) (_%g1816118197%_)))) + (_%g1799818034%_)))))) + (if (gx#stx-null? _%tl1801018125%_) + (_%__match2069620697%_ + _%e1800218098%_ + _%hd1800318102%_ + _%tl1800418105%_ + _%e1800518108%_ + _%hd1800618112%_ + _%tl1800718115%_ + _%e1800818118%_ + _%hd1800918122%_ + _%tl1801018125%_) + (let () (declare (not safe)) (_%g1799818034%_)))) + (if (gx#stx-null? _%tl1801018125%_) + (_%__match2069620697%_ + _%e1800218098%_ + _%hd1800318102%_ + _%tl1800418105%_ + _%e1800518108%_ + _%hd1800618112%_ + _%tl1800718115%_ + _%e1800818118%_ + _%hd1800918122%_ + _%tl1801018125%_) + (let () (declare (not safe)) (_%g1799818034%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl1817318288%_) - (_%__match2085920860%_ - _%e1816518261%_ - _%hd1816618265%_ - _%tl1816718268%_ - _%e1816818271%_ - _%hd1816918275%_ - _%tl1817018278%_ - _%e1817118281%_ - _%hd1817218285%_ - _%tl1817318288%_) + _%tl1801018125%_) + (_%__match2069620697%_ + _%e1800218098%_ + _%hd1800318102%_ + _%tl1800418105%_ + _%e1800518108%_ + _%hd1800618112%_ + _%tl1800718115%_ + _%e1800818118%_ + _%hd1800918122%_ + _%tl1801018125%_) (let () (declare (not safe)) - (_%g1816118197%_)))))) - (if (gx#stx-null? _%tl1817318288%_) - (_%__match2085920860%_ - _%e1816518261%_ - _%hd1816618265%_ - _%tl1816718268%_ - _%e1816818271%_ - _%hd1816918275%_ - _%tl1817018278%_ - _%e1817118281%_ - _%hd1817218285%_ - _%tl1817318288%_) + (_%g1799818034%_)))))) + (if (gx#stx-null? _%tl1801018125%_) + (_%__match2069620697%_ + _%e1800218098%_ + _%hd1800318102%_ + _%tl1800418105%_ + _%e1800518108%_ + _%hd1800618112%_ + _%tl1800718115%_ + _%e1800818118%_ + _%hd1800918122%_ + _%tl1801018125%_) (let () (declare (not safe)) - (_%g1816118197%_)))))) + (_%g1799818034%_)))))) (let () (declare (not safe)) - (_%g1816118197%_))))) - (let () (declare (not safe)) (_%g1816118197%_))))) - (let () (declare (not safe)) (_%g1816118197%_)))))))))) + (_%g1799818034%_))))) + (let () (declare (not safe)) (_%g1799818034%_))))) + (let () (declare (not safe)) (_%g1799818034%_)))))))))) diff --git a/src/bootstrap/gerbil/expander/common~0.scm b/src/bootstrap/gerbil/expander/common~0.scm index 6b9160df36..4a6ba07f57 100644 --- a/src/bootstrap/gerbil/expander/common~0.scm +++ b/src/bootstrap/gerbil/expander/common~0.scm @@ -1,22 +1,21 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/common::timestamp 1756721295) + (define gerbil/expander/common::timestamp 1769384628) (begin (define gx#AST::t - (let ((__tmp125462 (list)) - (__tmp125461 (cons (cons 'struct: '#t) '((print: e))))) + (let ((__tmp129228 (list)) (__tmp129227 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#AST::t 'syntax - __tmp125462 + __tmp129228 '(e source) - __tmp125461 + __tmp129227 '#f))) (define gx#AST? (let () (declare (not safe)) (__make-class-predicate gx#AST::t))) (define gx#make-AST - (lambda _%$args125360%_ (apply make-instance gx#AST::t _%$args125360%_))) + (lambda _%$args129126%_ (apply make-instance gx#AST::t _%$args129126%_))) (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 f01c109ef8..e666679da0 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]#_g125464_| + (define |gx[1]#_g129230_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g125466_| + (define |gx[1]#_g129232_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g125468_| + (define |gx[1]#_g129234_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |gx[1]#_g125470_| + (define |gx[1]#_g129236_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g125471_| + (define |gx[1]#_g129237_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g125473_| + (define |gx[1]#_g129239_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125474_| + (define |gx[1]#_g129240_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125476_| + (define |gx[1]#_g129242_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g125477_| + (define |gx[1]#_g129243_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g125479_| + (define |gx[1]#_g129245_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125480_| + (define |gx[1]#_g129246_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g125482_| + (define |gx[1]#_g129248_| (##structure gx#syntax-quote::t 'else @@ -86,7 +86,7 @@ '())) (begin (define |gx[:0:]#AST| - (let ((__obj125460 + (let ((__obj129226 (let () (declare (not safe)) (##structure @@ -114,109 +114,109 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125460 'gerbil#AST::t '1 '#f '#f)) + (##unchecked-structure-set! __obj129226 'gerbil#AST::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125460 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj129226 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125460 '(e source) '4 '#f '#f)) + (##unchecked-structure-set! __obj129226 '(e source) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125460 '(e source) '6 '#f '#f)) + (##unchecked-structure-set! __obj129226 '(e source) '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125460 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj129226 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125460 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj129226 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125460 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj129226 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125460 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj129226 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125460 '#f '11 '#f '#f)) - (let ((__tmp125463 |gx[1]#_g125464_|)) + (##unchecked-structure-set! __obj129226 '#f '12 '#f '#f)) + (let ((__tmp129229 |gx[1]#_g129230_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125460 __tmp125463 '12 '#f '#f)) - (let ((__tmp125465 |gx[1]#_g125466_|)) + (##unchecked-structure-set! __obj129226 __tmp129229 '3 '#f '#f)) + (let ((__tmp129231 |gx[1]#_g129232_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125460 __tmp125465 '13 '#f '#f)) - (let ((__tmp125467 |gx[1]#_g125468_|)) + (##unchecked-structure-set! __obj129226 __tmp129231 '13 '#f '#f)) + (let ((__tmp129233 |gx[1]#_g129234_|)) (declare (not safe)) - (##unchecked-structure-set! __obj125460 __tmp125467 '14 '#f '#f)) - (let ((__tmp125469 - (cons (cons 'e |gx[1]#_g125470_|) - (cons (cons 'source |gx[1]#_g125471_|) '())))) + (##unchecked-structure-set! __obj129226 __tmp129233 '14 '#f '#f)) + (let ((__tmp129235 + (cons (cons 'e |gx[1]#_g129236_|) + (cons (cons 'source |gx[1]#_g129237_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj125460 __tmp125469 '15 '#f '#f)) - (let ((__tmp125472 - (cons (cons 'e |gx[1]#_g125473_|) - (cons (cons 'source |gx[1]#_g125474_|) '())))) + (##unchecked-structure-set! __obj129226 __tmp129235 '15 '#f '#f)) + (let ((__tmp129238 + (cons (cons 'e |gx[1]#_g129239_|) + (cons (cons 'source |gx[1]#_g129240_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj125460 __tmp125472 '16 '#f '#f)) - (let ((__tmp125475 - (cons (cons 'e |gx[1]#_g125476_|) - (cons (cons 'source |gx[1]#_g125477_|) '())))) + (##unchecked-structure-set! __obj129226 __tmp129238 '16 '#f '#f)) + (let ((__tmp129241 + (cons (cons 'e |gx[1]#_g129242_|) + (cons (cons 'source |gx[1]#_g129243_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj125460 __tmp125475 '17 '#f '#f)) - (let ((__tmp125478 - (cons (cons 'e |gx[1]#_g125479_|) - (cons (cons 'source |gx[1]#_g125480_|) '())))) + (##unchecked-structure-set! __obj129226 __tmp129241 '17 '#f '#f)) + (let ((__tmp129244 + (cons (cons 'e |gx[1]#_g129245_|) + (cons (cons 'source |gx[1]#_g129246_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj125460 __tmp125478 '18 '#f '#f)) + (##unchecked-structure-set! __obj129226 __tmp129244 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125460 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj129226 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125460 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj129226 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj125460 '() '20 '#f '#f)) - __obj125460)) + (##unchecked-structure-set! __obj129226 '() '20 '#f '#f)) + __obj129226)) (define |gx[:0:]#check-procedure| - (lambda (_%$stx124055%_) - (let* ((_%g124059124073%_ - (lambda (_%g124060124069%_) + (lambda (_%$stx127823%_) + (let* ((_%g127827127841%_ + (lambda (_%g127828127837%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g124060124069%_))) - (_%g124058124115%_ - (lambda (_%g124060124077%_) - (if (gx#stx-pair? _%g124060124077%_) - (let ((_%e124062124080%_ - (gx#syntax-e _%g124060124077%_))) - (let ((_%hd124063124084%_ + _%g127828127837%_))) + (_%g127826127883%_ + (lambda (_%g127828127845%_) + (if (gx#stx-pair? _%g127828127845%_) + (let ((_%e127830127848%_ + (gx#syntax-e _%g127828127845%_))) + (let ((_%hd127831127852%_ (let () (declare (not safe)) - (##car _%e124062124080%_))) - (_%tl124064124087%_ + (##car _%e127830127848%_))) + (_%tl127832127855%_ (let () (declare (not safe)) - (##cdr _%e124062124080%_)))) - (if (gx#stx-pair? _%tl124064124087%_) - (let ((_%e124065124090%_ - (gx#syntax-e _%tl124064124087%_))) - (let ((_%hd124066124094%_ + (##cdr _%e127830127848%_)))) + (if (gx#stx-pair? _%tl127832127855%_) + (let ((_%e127833127858%_ + (gx#syntax-e _%tl127832127855%_))) + (let ((_%hd127834127862%_ (let () (declare (not safe)) - (##car _%e124065124090%_))) - (_%tl124067124097%_ + (##car _%e127833127858%_))) + (_%tl127835127865%_ (let () (declare (not safe)) - (##cdr _%e124065124090%_)))) - (if (gx#stx-null? _%tl124067124097%_) - ((lambda (_%L124100%_) + (##cdr _%e127833127858%_)))) + (if (gx#stx-null? _%tl127835127865%_) + ((lambda (_%g127829127868%_) (cons (gx#datum->syntax '#f 'unless) (cons (cons (gx#datum->syntax '#f 'procedure?) - (cons _%L124100%_ + (cons _%g127829127868%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -224,182 +224,184 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'error) - (cons '"expected procedure" (cons _%L124100%_ '()))) + (cons '"expected procedure" + (cons _%g127829127868%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd124066124094%_) - (_%g124059124073%_ _%g124060124077%_)))) - (_%g124059124073%_ _%g124060124077%_)))) - (_%g124059124073%_ _%g124060124077%_))))) - (_%g124058124115%_ _%$stx124055%_)))) + _%hd127834127862%_) + (_%g127827127841%_ _%g127828127845%_)))) + (_%g127827127841%_ _%g127828127845%_)))) + (_%g127827127841%_ _%g127828127845%_))))) + (_%g127826127883%_ _%$stx127823%_)))) (define |gx[:0:]#core-syntax-case| - (lambda (_%stx124119%_) - (letrec ((_%generate124122%_ - (lambda (_%tgt124271%_ _%kws124273%_ _%clauses124274%_) - (letrec ((_%generate-clause124276%_ - (lambda (_%hd125211%_ _%E125213%_) - (let* ((_%__stx125363125364%_ _%hd125211%_) - (_%g125217125244%_ + (lambda (_%stx127887%_) + (letrec ((_%generate127890%_ + (lambda (_%tgt128039%_ _%kws128041%_ _%clauses128042%_) + (letrec ((_%generate-clause128044%_ + (lambda (_%hd128977%_ _%E128979%_) + (let* ((_%__stx129129129130%_ _%hd128977%_) + (_%g128983129010%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx125363125364%_)))) - (let ((_%__kont125366125367%_ - (lambda (_%L125340%_ _%L125342%_) - (_%generate1124278%_ - _%hd125211%_ - _%L125342%_ + _%__stx129129129130%_)))) + (let ((_%__kont129132129133%_ + (lambda (_%g128985129106%_ + _%g128986129108%_) + (_%generate1128046%_ + _%hd128977%_ + _%g128986129108%_ '#t - _%L125340%_ - _%E125213%_))) - (_%__kont125368125369%_ - (lambda (_%L125292%_ - _%L125294%_ - _%L125295%_) - (_%generate1124278%_ - _%hd125211%_ - _%L125295%_ - _%L125294%_ - _%L125292%_ - _%E125213%_))) - (_%__kont125370125371%_ + _%g128985129106%_ + _%E128979%_))) + (_%__kont129134129135%_ + (lambda (_%g128993129058%_ + _%g128994129060%_ + _%g128995129061%_) + (_%generate1128046%_ + _%hd128977%_ + _%g128995129061%_ + _%g128994129060%_ + _%g128993129058%_ + _%E128979%_))) + (_%__kont129136129137%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case pattern" - _%stx124119%_ - _%hd125211%_)))) - (if (gx#stx-pair? _%__stx125363125364%_) - (let ((_%e125221125320%_ + _%stx127887%_ + _%hd128977%_)))) + (if (gx#stx-pair? _%__stx129129129130%_) + (let ((_%e128987129086%_ (gx#syntax-e - _%__stx125363125364%_))) - (let ((_%tl125223125327%_ + _%__stx129129129130%_))) + (let ((_%tl128989129093%_ (let () (declare (not safe)) - (##cdr _%e125221125320%_))) - (_%hd125222125324%_ + (##cdr _%e128987129086%_))) + (_%hd128988129090%_ (let () (declare (not safe)) - (##car _%e125221125320%_)))) + (##car _%e128987129086%_)))) (if (gx#stx-pair? - _%tl125223125327%_) - (let ((_%e125224125330%_ + _%tl128989129093%_) + (let ((_%e128990129096%_ (gx#syntax-e - _%tl125223125327%_))) - (let ((_%tl125226125337%_ + _%tl128989129093%_))) + (let ((_%tl128992129103%_ (let () (declare (not safe)) - (##cdr _%e125224125330%_))) - (_%hd125225125334%_ + (##cdr _%e128990129096%_))) + (_%hd128991129100%_ (let () (declare (not safe)) - (##car _%e125224125330%_)))) + (##car _%e128990129096%_)))) (if (gx#stx-null? - _%tl125226125337%_) - (_%__kont125366125367%_ - _%hd125225125334%_ - _%hd125222125324%_) + _%tl128992129103%_) + (_%__kont129132129133%_ + _%hd128991129100%_ + _%hd128988129090%_) (if (gx#stx-pair? - _%tl125226125337%_) - (let ((_%e125236125282%_ + _%tl128992129103%_) + (let ((_%e129002129048%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl125226125337%_))) - (let ((_%tl125238125289%_ + (gx#syntax-e _%tl128992129103%_))) + (let ((_%tl129004129055%_ (let () (declare (not safe)) - (##cdr _%e125236125282%_))) - (_%hd125237125286%_ + (##cdr _%e129002129048%_))) + (_%hd129003129052%_ (let () (declare (not safe)) - (##car _%e125236125282%_)))) - (if (gx#stx-null? _%tl125238125289%_) - (_%__kont125368125369%_ - _%hd125237125286%_ - _%hd125225125334%_ - _%hd125222125324%_) - (_%__kont125370125371%_)))) - (_%__kont125370125371%_))))) + (##car _%e129002129048%_)))) + (if (gx#stx-null? _%tl129004129055%_) + (_%__kont129134129135%_ + _%hd129003129052%_ + _%hd128991129100%_ + _%hd128988129090%_) + (_%__kont129136129137%_)))) + (_%__kont129136129137%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont125370125371%_)))) - (_%__kont125370125371%_)))))) - (_%generate1124278%_ - (lambda (_%where124664%_ - _%hd124666%_ - _%fender124667%_ - _%body124668%_ - _%E124669%_) - (letrec ((_%recur124671%_ - (lambda (_%hd124674%_ - _%tgt124676%_ - _%K124677%_) - (let* ((_%__stx125409125410%_ - _%hd124674%_) - (_%g124680124692%_ + (_%__kont129136129137%_)))) + (_%__kont129136129137%_)))))) + (_%generate1128046%_ + (lambda (_%where128430%_ + _%hd128432%_ + _%fender128433%_ + _%body128434%_ + _%E128435%_) + (letrec ((_%recur128437%_ + (lambda (_%hd128440%_ + _%tgt128442%_ + _%K128443%_) + (let* ((_%__stx129175129176%_ + _%hd128440%_) + (_%g128446128458%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx125409125410%_)))) - (let ((_%__kont125412125413%_ - (lambda (_%L125001%_ - _%L125003%_) - (let* ((_%g125014125022%_ - (lambda (_%g125015125018%_) + _%__stx129175129176%_)))) + (let ((_%__kont129178129179%_ + (lambda (_%g128448128767%_ + _%g128449128769%_) + (let* ((_%g128780128788%_ + (lambda (_%g128781128784%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g125015125018%_))) - (_%g125013125203%_ - (lambda (_%g125015125026%_) - ((lambda (_%L125029%_) - (let* ((_%g125041125049%_ - (lambda (_%g125042125045%_) + _%g128781128784%_))) + (_%g128779128969%_ + (lambda (_%g128781128792%_) + ((lambda (_%g128782128795%_) + (let* ((_%g128807128815%_ + (lambda (_%g128808128811%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g125042125045%_))) - (_%g125040125199%_ - (lambda (_%g125042125053%_) - ((lambda (_%L125056%_) - (let* ((_%g125069125077%_ - (lambda (_%g125070125073%_) + _%g128808128811%_))) + (_%g128806128965%_ + (lambda (_%g128808128819%_) + ((lambda (_%g128809128822%_) + (let* ((_%g128835128843%_ + (lambda (_%g128836128839%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g125070125073%_))) - (_%g125068125195%_ - (lambda (_%g125070125081%_) - ((lambda (_%L125084%_) - (let* ((_%g125097125105%_ - (lambda (_%g125098125101%_) + _%g128836128839%_))) + (_%g128834128961%_ + (lambda (_%g128836128847%_) + ((lambda (_%g128837128850%_) + (let* ((_%g128863128871%_ + (lambda (_%g128864128867%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g125098125101%_))) - (_%g125096125191%_ - (lambda (_%g125098125109%_) - ((lambda (_%L125112%_) - (let* ((_%g125125125133%_ - (lambda (_%g125126125129%_) + _%g128864128867%_))) + (_%g128862128957%_ + (lambda (_%g128864128875%_) + ((lambda (_%g128865128878%_) + (let* ((_%g128891128899%_ + (lambda (_%g128892128895%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g125126125129%_))) - (_%g125124125187%_ - (lambda (_%g125126125137%_) - ((lambda (_%L125140%_) - (let* ((_%g125153125161%_ - (lambda (_%g125154125157%_) + _%g128892128895%_))) + (_%g128890128953%_ + (lambda (_%g128892128903%_) + ((lambda (_%g128893128906%_) + (let* ((_%g128919128927%_ + (lambda (_%g128920128923%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g125154125157%_))) - (_%g125152125183%_ - (lambda (_%g125154125165%_) - ((lambda (_%L125168%_) + _%g128920128923%_))) + (_%g128918128949%_ + (lambda (_%g128920128931%_) + ((lambda (_%g128921128934%_) (cons (gx#datum->syntax '#f 'if) @@ -407,306 +409,311 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'stx-pair?) - (cons _%L125029%_ '())) + (cons _%g128782128795%_ '())) (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L125056%_ + (cons (cons (cons _%g128809128822%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'syntax-e) - (cons _%L125029%_ '())) + (cons _%g128782128795%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L125084%_ + (cons (cons (cons _%g128837128850%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L125056%_ '())) + (cons _%g128809128822%_ '())) '())) - (cons (cons _%L125112%_ + (cons (cons _%g128865128878%_ (cons (cons (gx#datum->syntax '#f '##cdr) - (cons _%L125056%_ '())) + (cons _%g128809128822%_ + '())) '())) '())) - (cons _%L125140%_ '()))) + (cons _%g128893128906%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons _%L125168%_ '()))))) + (cons _%g128921128934%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g125154125165%_)))) - (_%g125152125183%_ _%E124669%_))) - _%g125126125137%_)))) - (_%g125124125187%_ - (_%recur124671%_ - _%L125003%_ - _%L125084%_ - (_%recur124671%_ - _%L125001%_ - _%L125112%_ - _%K124677%_))))) - _%g125098125109%_)))) - (_%g125096125191%_ (gx#genident 'tl)))) + _%g128920128931%_)))) + (_%g128918128949%_ _%E128435%_))) + _%g128892128903%_)))) + (_%g128890128953%_ + (_%recur128437%_ + _%g128449128769%_ + _%g128837128850%_ + (_%recur128437%_ + _%g128448128767%_ + _%g128865128878%_ + _%K128443%_))))) + _%g128864128875%_)))) + (_%g128862128957%_ (gx#genident 'tl)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g125070125081%_)))) - (_%g125068125195%_ + _%g128836128847%_)))) + (_%g128834128961%_ (gx#genident 'hd)))) - _%g125042125053%_)))) - (_%g125040125199%_ (gx#genident 'e)))) - _%g125015125026%_)))) - (_%g125013125203%_ _%tgt124676%_)))) + _%g128808128819%_)))) + (_%g128806128965%_ (gx#genident 'e)))) + _%g128781128792%_)))) + (_%g128779128969%_ _%tgt128442%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont125414125415%_ + (_%__kont129180129181%_ (lambda () (if (gx#identifier? - _%hd124674%_) + _%hd128440%_) (if (gx#underscore? - _%hd124674%_) - _%K124677%_ - (if (let ((__tmp125481 + _%hd128440%_) + _%K128443%_ + (if (let ((__tmp129247 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g124706124708%_) + (lambda (_%g128472128474%_) (gx#bound-identifier=? - _%g124706124708%_ - _%hd124674%_)))) + _%g128472128474%_ + _%hd128440%_)))) (declare (not safe)) - (__find __tmp125481 _%kws124273%_)) - (let* ((_%g124714124729%_ - (lambda (_%g124715124725%_) + (__find __tmp129247 _%kws128041%_)) + (let* ((_%g128480128495%_ + (lambda (_%g128481128491%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g124715124725%_))) - (_%g124713124782%_ - (lambda (_%g124715124733%_) - (if (gx#stx-pair? _%g124715124733%_) - (let ((_%e124718124736%_ + _%g128481128491%_))) + (_%g128479128548%_ + (lambda (_%g128481128499%_) + (if (gx#stx-pair? _%g128481128499%_) + (let ((_%e128484128502%_ (gx#syntax-e - _%g124715124733%_))) - (let ((_%hd124719124740%_ + _%g128481128499%_))) + (let ((_%hd128485128506%_ (let () (declare (not safe)) - (##car _%e124718124736%_))) - (_%tl124720124743%_ + (##car _%e128484128502%_))) + (_%tl128486128509%_ (let () (declare (not safe)) - (##cdr _%e124718124736%_)))) + (##cdr _%e128484128502%_)))) (if (gx#stx-pair? - _%tl124720124743%_) - (let ((_%e124721124746%_ + _%tl128486128509%_) + (let ((_%e128487128512%_ (gx#syntax-e - _%tl124720124743%_))) - (let ((_%hd124722124750%_ + _%tl128486128509%_))) + (let ((_%hd128488128516%_ (let () (declare (not safe)) - (##car _%e124721124746%_))) - (_%tl124723124753%_ + (##car _%e128487128512%_))) + (_%tl128489128519%_ (let () (declare (not safe)) - (##cdr _%e124721124746%_)))) + (##cdr _%e128487128512%_)))) (if (gx#stx-null? - _%tl124723124753%_) - ((lambda (_%L124756%_ + _%tl128489128519%_) + ((lambda (_%g128482128522%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L124758%_) + _%g128483128524%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax '#f 'identifier?) - (cons _%L124758%_ '())) + (cons _%g128483128524%_ '())) (cons (cons (gx#datum->syntax '#f 'core-identifier=?) - (cons _%L124758%_ + (cons _%g128483128524%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L124756%_ '())) + (cons _%g128482128522%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons _%K124677%_ (cons _%E124669%_ '()))))) - _%hd124722124750%_ - _%hd124719124740%_) - (_%g124714124729%_ _%g124715124733%_)))) + (cons _%K128443%_ (cons _%E128435%_ '()))))) + _%hd128488128516%_ + _%hd128485128506%_) + (_%g128480128495%_ _%g128481128499%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g124714124729%_ - _%g124715124733%_)))) - (_%g124714124729%_ - _%g124715124733%_))))) - (_%g124713124782%_ - (list _%tgt124676%_ _%hd124674%_))) - (let* ((_%g124788124803%_ - (lambda (_%g124789124799%_) + (_%g128480128495%_ + _%g128481128499%_)))) + (_%g128480128495%_ + _%g128481128499%_))))) + (_%g128479128548%_ + (list _%tgt128442%_ _%hd128440%_))) + (let* ((_%g128554128569%_ + (lambda (_%g128555128565%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g124789124799%_))) - (_%g124787124848%_ - (lambda (_%g124789124807%_) - (if (gx#stx-pair? _%g124789124807%_) - (let ((_%e124792124810%_ + _%g128555128565%_))) + (_%g128553128614%_ + (lambda (_%g128555128573%_) + (if (gx#stx-pair? _%g128555128573%_) + (let ((_%e128558128576%_ (gx#syntax-e - _%g124789124807%_))) - (let ((_%hd124793124814%_ + _%g128555128573%_))) + (let ((_%hd128559128580%_ (let () (declare (not safe)) - (##car _%e124792124810%_))) - (_%tl124794124817%_ + (##car _%e128558128576%_))) + (_%tl128560128583%_ (let () (declare (not safe)) - (##cdr _%e124792124810%_)))) + (##cdr _%e128558128576%_)))) (if (gx#stx-pair? - _%tl124794124817%_) - (let ((_%e124795124820%_ + _%tl128560128583%_) + (let ((_%e128561128586%_ (gx#syntax-e - _%tl124794124817%_))) - (let ((_%hd124796124824%_ + _%tl128560128583%_))) + (let ((_%hd128562128590%_ (let () (declare (not safe)) - (##car _%e124795124820%_))) - (_%tl124797124827%_ + (##car _%e128561128586%_))) + (_%tl128563128593%_ (let () (declare (not safe)) - (##cdr _%e124795124820%_)))) + (##cdr _%e128561128586%_)))) (if (gx#stx-null? - _%tl124797124827%_) - ((lambda (_%L124830%_ + _%tl128563128593%_) + ((lambda (_%g128556128596%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L124832%_) + _%g128557128598%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L124830%_ (cons _%L124832%_ '())) + (cons (cons (cons _%g128556128596%_ + (cons _%g128557128598%_ '())) '()) - (cons _%K124677%_ '())))) - _%hd124796124824%_ - _%hd124793124814%_) - (_%g124788124803%_ _%g124789124807%_)))) + (cons _%K128443%_ '())))) + _%hd128562128590%_ + _%hd128559128580%_) + (_%g128554128569%_ _%g128555128573%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g124788124803%_ - _%g124789124807%_)))) - (_%g124788124803%_ - _%g124789124807%_))))) - (_%g124787124848%_ - (list _%tgt124676%_ _%hd124674%_))))) - (if (gx#stx-null? _%hd124674%_) - (let* ((_%g124854124862%_ - (lambda (_%g124855124858%_) + (_%g128554128569%_ + _%g128555128573%_)))) + (_%g128554128569%_ + _%g128555128573%_))))) + (_%g128553128614%_ + (list _%tgt128442%_ _%hd128440%_))))) + (if (gx#stx-null? _%hd128440%_) + (let* ((_%g128620128628%_ + (lambda (_%g128621128624%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g124855124858%_))) - (_%g124853124881%_ - (lambda (_%g124855124866%_) - ((lambda (_%L124869%_) + _%g128621128624%_))) + (_%g128619128647%_ + (lambda (_%g128621128632%_) + ((lambda (_%g128622128635%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'stx-null?) - (cons _%L124869%_ '())) - (cons _%K124677%_ - (cons _%E124669%_ + (cons _%g128622128635%_ + '())) + (cons _%K128443%_ + (cons _%E128435%_ '()))))) - _%g124855124866%_)))) - (_%g124853124881%_ _%tgt124676%_)) - (if (gx#stx-datum? _%hd124674%_) - (let* ((_%g124887124906%_ - (lambda (_%g124888124902%_) + _%g128621128632%_)))) + (_%g128619128647%_ _%tgt128442%_)) + (if (gx#stx-datum? _%hd128440%_) + (let* ((_%g128653128672%_ + (lambda (_%g128654128668%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g124888124902%_))) - (_%g124886124965%_ - (lambda (_%g124888124910%_) - (if (gx#stx-pair? _%g124888124910%_) - (let ((_%e124892124913%_ + _%g128654128668%_))) + (_%g128652128731%_ + (lambda (_%g128654128676%_) + (if (gx#stx-pair? _%g128654128676%_) + (let ((_%e128658128679%_ (gx#syntax-e - _%g124888124910%_))) - (let ((_%hd124893124917%_ + _%g128654128676%_))) + (let ((_%hd128659128683%_ (let () (declare (not safe)) - (##car _%e124892124913%_))) - (_%tl124894124920%_ + (##car _%e128658128679%_))) + (_%tl128660128686%_ (let () (declare (not safe)) - (##cdr _%e124892124913%_)))) + (##cdr _%e128658128679%_)))) (if (gx#stx-pair? - _%tl124894124920%_) - (let ((_%e124895124923%_ + _%tl128660128686%_) + (let ((_%e128661128689%_ (gx#syntax-e - _%tl124894124920%_))) - (let ((_%hd124896124927%_ + _%tl128660128686%_))) + (let ((_%hd128662128693%_ (let () (declare (not safe)) - (##car _%e124895124923%_))) - (_%tl124897124930%_ + (##car _%e128661128689%_))) + (_%tl128663128696%_ (let () (declare (not safe)) - (##cdr _%e124895124923%_)))) + (##cdr _%e128661128689%_)))) (if (gx#stx-pair? - _%tl124897124930%_) - (let ((_%e124898124933%_ + _%tl128663128696%_) + (let ((_%e128664128699%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl124897124930%_))) - (let ((_%hd124899124937%_ + _%tl128663128696%_))) + (let ((_%hd128665128703%_ (let () (declare (not safe)) - (##car _%e124898124933%_))) - (_%tl124900124940%_ + (##car _%e128664128699%_))) + (_%tl128666128706%_ (let () (declare (not safe)) - (##cdr _%e124898124933%_)))) - (if (gx#stx-null? _%tl124900124940%_) - ((lambda (_%L124943%_ _%L124945%_ _%L124946%_) + (##cdr _%e128664128699%_)))) + (if (gx#stx-null? _%tl128666128706%_) + ((lambda (_%g128655128709%_ + _%g128656128711%_ + _%g128657128712%_) (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L124943%_ + (cons (cons _%g128655128709%_ (cons (cons (gx#datum->syntax '#f 'stx-e) - (cons _%L124946%_ + (cons _%g128657128712%_ '())) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L124945%_ '())) + (cons _%g128656128711%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%K124677%_ - (cons _%E124669%_ '()))))) - _%hd124899124937%_ - _%hd124896124927%_ - _%hd124893124917%_) - (_%g124887124906%_ _%g124888124910%_)))) - (_%g124887124906%_ _%g124888124910%_)))) + (cons _%K128443%_ + (cons _%E128435%_ '()))))) + _%hd128665128703%_ + _%hd128662128693%_ + _%hd128659128683%_) + (_%g128653128672%_ _%g128654128676%_)))) + (_%g128653128672%_ _%g128654128676%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g124887124906%_ - _%g124888124910%_)))) - (_%g124887124906%_ - _%g124888124910%_))))) - (_%g124886124965%_ - (list _%tgt124676%_ - _%hd124674%_ - (let ((_%e124969%_ - (gx#stx-e _%hd124674%_))) - (if (or (keyword? _%e124969%_) + (_%g128653128672%_ + _%g128654128676%_)))) + (_%g128653128672%_ + _%g128654128676%_))))) + (_%g128652128731%_ + (list _%tgt128442%_ + _%hd128440%_ + (let ((_%e128735%_ + (gx#stx-e _%hd128440%_))) + (if (or (keyword? _%e128735%_) (let () (declare (not safe)) - (immediate? _%e124969%_))) + (immediate? _%e128735%_))) (gx#datum->syntax '#f 'eq?) - (if (number? _%e124969%_) + (if (number? _%e128735%_) (gx#datum->syntax '#f 'eqv?) (gx#datum->syntax '#f @@ -714,69 +721,70 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case head" - _%stx124119%_ - _%where124664%_ - _%hd124674%_))))))) + _%stx127887%_ + _%where128430%_ + _%hd128440%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx125409125410%_) - (let ((_%e124684124991%_ + _%__stx129175129176%_) + (let ((_%e128450128757%_ (gx#syntax-e - _%__stx125409125410%_))) - (let ((_%tl124686124998%_ + _%__stx129175129176%_))) + (let ((_%tl128452128764%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e124684124991%_))) - (_%hd124685124995%_ - (let () (declare (not safe)) (##car _%e124684124991%_)))) - (_%__kont125412125413%_ - _%tl124686124998%_ - _%hd124685124995%_))) + (##cdr _%e128450128757%_))) + (_%hd128451128761%_ + (let () (declare (not safe)) (##car _%e128450128757%_)))) + (_%__kont129178129179%_ + _%tl128452128764%_ + _%hd128451128761%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont125414125415%_))))))) - (_%recur124671%_ - _%hd124666%_ - _%tgt124271%_ + (_%__kont129180129181%_))))))) + (_%recur128437%_ + _%hd128432%_ + _%tgt128039%_ (cons (gx#datum->syntax '#f 'if) - (cons _%fender124667%_ - (cons _%body124668%_ - (cons _%E124669%_ + (cons _%fender128433%_ + (cons _%body128434%_ + (cons _%E128435%_ '())))))))) - (_%generate-clauses124279%_ - (lambda (_%clauses124402%_) - (let _%lp124405%_ ((_%rest124408%_ - _%clauses124402%_) - (_%E124410%_ + (_%generate-clauses128047%_ + (lambda (_%clauses128168%_) + (let _%lp128171%_ ((_%rest128174%_ + _%clauses128168%_) + (_%E128176%_ (gx#genident 'E)) - (_%r124411%_ '())) - (let* ((_%__stx125445125446%_ _%rest124408%_) - (_%g124414124426%_ + (_%r128177%_ '())) + (let* ((_%__stx129211129212%_ _%rest128174%_) + (_%g128180128192%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx125445125446%_)))) - (let ((_%__kont125448125449%_ - (lambda (_%L124491%_ _%L124493%_) - (let* ((_%__stx125425125426%_ - _%L124493%_) - (_%g124505124516%_ + _%__stx129211129212%_)))) + (let ((_%__kont129214129215%_ + (lambda (_%g128182128257%_ + _%g128183128259%_) + (let* ((_%__stx129191129192%_ + _%g128183128259%_) + (_%g128271128282%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx125425125426%_)))) - (let ((_%__kont125428125429%_ - (lambda (_%L124645%_) + _%__stx129191129192%_)))) + (let ((_%__kont129194129195%_ + (lambda (_%g128273128411%_) (if (gx#stx-null? - _%L124491%_) + _%g128182128257%_) (if (and (gx#stx-list? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L124645%_) - (not (gx#stx-null? _%L124645%_))) - (cons (cons _%E124410%_ + _%g128273128411%_) + (not (gx#stx-null? _%g128273128411%_))) + (cons (cons _%E128176%_ (cons (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() @@ -784,113 +792,114 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin) - _%L124645%_) + _%g128273128411%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%L124493%_)) + (gx#stx-source _%g128183128259%_)) '())) - _%r124411%_) + _%r128177%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid else body" - _%stx124119%_ - _%L124493%_)) + _%stx127887%_ + _%g128183128259%_)) (gx#raise-syntax-error '#f '"Bad syntax; misplaced else" - _%stx124119%_ - _%L124493%_)))) + _%stx127887%_ + _%g128183128259%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont125430125431%_ + (_%__kont129196129197%_ (lambda () - (let* ((_%g124527124535%_ - (lambda (_%g124528124531%_) + (let* ((_%g128293128301%_ + (lambda (_%g128294128297%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g124528124531%_))) - (_%g124526124624%_ - (lambda (_%g124528124539%_) - ((lambda (_%L124542%_) - (let* ((_%g124558124566%_ - (lambda (_%g124559124562%_) + _%g128294128297%_))) + (_%g128292128390%_ + (lambda (_%g128294128305%_) + ((lambda (_%g128295128308%_) + (let* ((_%g128324128332%_ + (lambda (_%g128325128328%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g124559124562%_))) - (_%g124557124620%_ - (lambda (_%g124559124570%_) - ((lambda (_%L124573%_) - (let* ((_%g124586124594%_ - (lambda (_%g124587124590%_) + _%g128325128328%_))) + (_%g128323128386%_ + (lambda (_%g128325128336%_) + ((lambda (_%g128326128339%_) + (let* ((_%g128352128360%_ + (lambda (_%g128353128356%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g124587124590%_))) - (_%g124585124616%_ - (lambda (_%g124587124598%_) - ((lambda (_%L124601%_) - (_%lp124405%_ - _%L124491%_ - _%L124542%_ - (cons (cons _%E124410%_ + _%g128353128356%_))) + (_%g128351128382%_ + (lambda (_%g128353128364%_) + ((lambda (_%g128354128367%_) + (_%lp128171%_ + _%g128182128257%_ + _%g128295128308%_ + (cons (cons _%E128176%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L124601%_ '())) - _%r124411%_))) + (cons _%g128354128367%_ '())) + _%r128177%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g124587124598%_)))) - (_%g124585124616%_ + _%g128353128364%_)))) + (_%g128351128382%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L124573%_ + (cons _%g128326128339%_ '()))) - (gx#stx-source _%L124493%_))))) - _%g124559124570%_)))) - (_%g124557124620%_ - (_%generate-clause124276%_ - _%L124493%_ - (cons _%L124542%_ '()))))) - _%g124528124539%_)))) - (_%g124526124624%_ (gx#genident 'E)))))) + (gx#stx-source + _%g128183128259%_))))) + _%g128325128336%_)))) + (_%g128323128386%_ + (_%generate-clause128044%_ + _%g128183128259%_ + (cons _%g128295128308%_ '()))))) + _%g128294128305%_)))) + (_%g128292128390%_ (gx#genident 'E)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx125425125426%_) - (let ((_%e124508124635%_ + _%__stx129191129192%_) + (let ((_%e128274128401%_ (gx#syntax-e - _%__stx125425125426%_))) - (let ((_%tl124510124642%_ + _%__stx129191129192%_))) + (let ((_%tl128276128408%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e124508124635%_))) - (_%hd124509124639%_ - (let () (declare (not safe)) (##car _%e124508124635%_)))) - (if (gx#identifier? _%hd124509124639%_) + (##cdr _%e128274128401%_))) + (_%hd128275128405%_ + (let () (declare (not safe)) (##car _%e128274128401%_)))) + (if (gx#identifier? _%hd128275128405%_) (if (gx#free-identifier=? - |gx[1]#_g125482_| - _%hd124509124639%_) - (_%__kont125428125429%_ _%tl124510124642%_) - (_%__kont125430125431%_)) - (_%__kont125430125431%_)))) + |gx[1]#_g129248_| + _%hd128275128405%_) + (_%__kont129194129195%_ _%tl128276128408%_) + (_%__kont129196129197%_)) + (_%__kont129196129197%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont125430125431%_)))))) - (_%__kont125450125451%_ + (_%__kont129196129197%_)))))) + (_%__kont129216129217%_ (lambda () - (let* ((_%g124437124445%_ - (lambda (_%g124438124441%_) + (let* ((_%g128203128211%_ + (lambda (_%g128204128207%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g124438124441%_))) - (_%g124436124470%_ - (lambda (_%g124438124449%_) - ((lambda (_%L124452%_) - (cons (cons _%E124410%_ + _%g128204128207%_))) + (_%g128202128236%_ + (lambda (_%g128204128215%_) + ((lambda (_%g128205128218%_) + (cons (cons _%E128176%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) @@ -901,216 +910,217 @@ (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '"Bad syntax; invalid syntax-case clause" - (cons _%L124452%_ '())))) + (cons _%g128205128218%_ '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx124119%_)) + (gx#stx-source _%stx127887%_)) '())) - _%r124411%_)) - _%g124438124449%_)))) + _%r128177%_)) + _%g128204128215%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g124436124470%_ - _%tgt124271%_))))) - (if (gx#stx-pair? _%__stx125445125446%_) - (let ((_%e124418124481%_ + (_%g128202128236%_ + _%tgt128039%_))))) + (if (gx#stx-pair? _%__stx129211129212%_) + (let ((_%e128184128247%_ (gx#syntax-e - _%__stx125445125446%_))) - (let ((_%tl124420124488%_ + _%__stx129211129212%_))) + (let ((_%tl128186128254%_ (let () (declare (not safe)) - (##cdr _%e124418124481%_))) - (_%hd124419124485%_ + (##cdr _%e128184128247%_))) + (_%hd128185128251%_ (let () (declare (not safe)) - (##car _%e124418124481%_)))) - (_%__kont125448125449%_ - _%tl124420124488%_ - _%hd124419124485%_))) - (_%__kont125450125451%_)))))))) - (let* ((_%bind124281%_ - (_%generate-clauses124279%_ _%clauses124274%_)) - (_%g124284124301%_ - (lambda (_%g124285124297%_) + (##car _%e128184128247%_)))) + (_%__kont129214129215%_ + _%tl128186128254%_ + _%hd128185128251%_))) + (_%__kont129216129217%_)))))))) + (let* ((_%bind128049%_ + (_%generate-clauses128047%_ _%clauses128042%_)) + (_%g128052128069%_ + (lambda (_%g128053128065%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g124285124297%_))) - (_%g124283124398%_ - (lambda (_%g124285124305%_) - (if (gx#stx-pair/null? _%g124285124305%_) - (let ((_g125483_ + _%g128053128065%_))) + (_%g128051128164%_ + (lambda (_%g128053128073%_) + (if (gx#stx-pair/null? _%g128053128073%_) + (let ((_g129249_ (gx#syntax-split-splice - _%g124285124305%_ + _%g128053128073%_ '0))) (begin - (let ((_g125484_ + (let ((_g129250_ (let () (declare (not safe)) - (if (##values? _g125483_) + (if (##values? _g129249_) (##values-length - _g125483_) + _g129249_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g125484_ 2))) + (##fx= _g129250_ 2))) (error "Context expects 2 values" - _g125484_))) - (let ((_%target124287124308%_ + _g129250_))) + (let ((_%target128055128076%_ (let () (declare (not safe)) - (##values-ref _g125483_ 0))) - (_%tl124289124311%_ + (##values-ref _g129249_ 0))) + (_%tl128057128079%_ (let () (declare (not safe)) - (##values-ref _g125483_ 1)))) - (if (gx#stx-null? _%tl124289124311%_) - (letrec ((_%loop124290124314%_ - (lambda (_%hd124288124318%_ + (##values-ref _g129249_ 1)))) + (if (gx#stx-null? _%tl128057128079%_) + (letrec ((_%loop128058128082%_ + (lambda (_%hd128056128086%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind-try124294124321%_) - (if (gx#stx-pair? _%hd124288124318%_) - (let ((_%e124291124324%_ - (gx#syntax-e _%hd124288124318%_))) - (let ((_%lp-hd124292124328%_ + _%bind-try128062128089%_) + (if (gx#stx-pair? _%hd128056128086%_) + (let ((_%e128059128091%_ + (gx#syntax-e _%hd128056128086%_))) + (let ((_%lp-hd128060128095%_ (let () (declare (not safe)) - (##car _%e124291124324%_))) - (_%lp-tl124293124331%_ + (##car _%e128059128091%_))) + (_%lp-tl128061128098%_ (let () (declare (not safe)) - (##cdr _%e124291124324%_)))) - (_%loop124290124314%_ - _%lp-tl124293124331%_ - (cons _%lp-hd124292124328%_ - _%bind-try124294124321%_)))) - (let ((_%bind-try124295124334%_ - (reverse _%bind-try124294124321%_))) - ((lambda (_%L124338%_) - (let* ((_%g124356124364%_ - (lambda (_%g124357124360%_) + (##cdr _%e128059128091%_)))) + (_%loop128058128082%_ + _%lp-tl128061128098%_ + (cons _%lp-hd128060128095%_ + _%bind-try128062128089%_)))) + (let ((_%bind-try128063128101%_ + (reverse _%bind-try128062128089%_))) + ((lambda (_%g128054128104%_) + (let* ((_%g128122128130%_ + (lambda (_%g128123128126%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g124357124360%_))) - (_%g124355124394%_ - (lambda (_%g124357124368%_) - ((lambda (_%L124371%_) + _%g128123128126%_))) + (_%g128121128160%_ + (lambda (_%g128123128134%_) + ((lambda (_%g128124128137%_) (cons (gx#datum->syntax '#f 'let*) - (cons (let ((__tmp125485 - (lambda (_%g124385124388%_ + (cons (let ((__tmp129251 + (lambda (_%g128151128154%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g124386124391%_) - (cons _%g124385124388%_ _%g124386124391%_)))) + _%g128152128157%_) + (cons _%g128151128154%_ _%g128152128157%_)))) (declare (not safe)) - (__foldr1 __tmp125485 '() _%L124338%_)) + (__foldr1 __tmp129251 '() _%g128054128104%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L124371%_ + (cons (cons _%g128124128137%_ '()) '())))) - _%g124357124368%_)))) - (_%g124355124394%_ (car (last _%bind124281%_))))) - _%bind-try124295124334%_)))))) + _%g128123128134%_)))) + (_%g128121128160%_ (car (last _%bind128049%_))))) + _%bind-try128063128101%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop124290124314%_ - _%target124287124308%_ + (_%loop128058128082%_ + _%target128055128076%_ '())) - (_%g124284124301%_ - _%g124285124305%_))))) - (_%g124284124301%_ _%g124285124305%_))))) - (_%g124283124398%_ _%bind124281%_)))))) - (let* ((_%g124125124144%_ - (lambda (_%g124126124140%_) + (_%g128052128069%_ + _%g128053128073%_))))) + (_%g128052128069%_ _%g128053128073%_))))) + (_%g128051128164%_ _%bind128049%_)))))) + (let* ((_%g127893127912%_ + (lambda (_%g127894127908%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g124126124140%_))) - (_%g124124124267%_ - (lambda (_%g124126124148%_) - (if (gx#stx-pair? _%g124126124148%_) - (let ((_%e124130124151%_ - (gx#syntax-e _%g124126124148%_))) - (let ((_%hd124131124155%_ + _%g127894127908%_))) + (_%g127892128035%_ + (lambda (_%g127894127916%_) + (if (gx#stx-pair? _%g127894127916%_) + (let ((_%e127898127919%_ + (gx#syntax-e _%g127894127916%_))) + (let ((_%hd127899127923%_ (let () (declare (not safe)) - (##car _%e124130124151%_))) - (_%tl124132124158%_ + (##car _%e127898127919%_))) + (_%tl127900127926%_ (let () (declare (not safe)) - (##cdr _%e124130124151%_)))) - (if (gx#stx-pair? _%tl124132124158%_) - (let ((_%e124133124161%_ - (gx#syntax-e _%tl124132124158%_))) - (let ((_%hd124134124165%_ + (##cdr _%e127898127919%_)))) + (if (gx#stx-pair? _%tl127900127926%_) + (let ((_%e127901127929%_ + (gx#syntax-e _%tl127900127926%_))) + (let ((_%hd127902127933%_ (let () (declare (not safe)) - (##car _%e124133124161%_))) - (_%tl124135124168%_ + (##car _%e127901127929%_))) + (_%tl127903127936%_ (let () (declare (not safe)) - (##cdr _%e124133124161%_)))) - (if (gx#stx-pair? _%tl124135124168%_) - (let ((_%e124136124171%_ + (##cdr _%e127901127929%_)))) + (if (gx#stx-pair? _%tl127903127936%_) + (let ((_%e127904127939%_ (gx#syntax-e - _%tl124135124168%_))) - (let ((_%hd124137124175%_ + _%tl127903127936%_))) + (let ((_%hd127905127943%_ (let () (declare (not safe)) - (##car _%e124136124171%_))) - (_%tl124138124178%_ + (##car _%e127904127939%_))) + (_%tl127906127946%_ (let () (declare (not safe)) - (##cdr _%e124136124171%_)))) - ((lambda (_%L124181%_ - _%L124183%_ - _%L124184%_) + (##cdr _%e127904127939%_)))) + ((lambda (_%g127895127949%_ + _%g127896127951%_ + _%g127897127952%_) (if (and (gx#identifier-list? - _%L124183%_) + _%g127896127951%_) (gx#stx-list? - _%L124181%_)) - (let* ((_%g124202124210%_ - (lambda (_%g124203124206%_) + _%g127895127949%_)) + (let* ((_%g127970127978%_ + (lambda (_%g127971127974%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g124203124206%_))) - (_%g124201124263%_ - (lambda (_%g124203124214%_) - ((lambda (_%L124217%_) - (let* ((_%g124229124237%_ + _%g127971127974%_))) + (_%g127969128031%_ + (lambda (_%g127971127982%_) + ((lambda (_%g127972127985%_) + (let* ((_%g127997128005%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g124230124233%_) + (lambda (_%g127998128001%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g124230124233%_))) - (_%g124228124259%_ - (lambda (_%g124230124241%_) - ((lambda (_%L124244%_) + _%g127998128001%_))) + (_%g127996128027%_ + (lambda (_%g127998128009%_) + ((lambda (_%g127999128012%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L124217%_ - (cons _%L124184%_ + (cons (cons (cons _%g127972127985%_ + (cons _%g127897127952%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L124244%_ '())))) - _%g124230124241%_)))) - (_%g124228124259%_ - (_%generate124122%_ - _%L124217%_ - (gx#syntax->list _%L124183%_) - _%L124181%_)))) - _%g124203124214%_)))) + (cons _%g127999128012%_ + '())))) + _%g127998128009%_)))) + (_%g127996128027%_ + (_%generate127890%_ + _%g127972127985%_ + (gx#syntax->list _%g127896127951%_) + _%g127895127949%_)))) + _%g127971127982%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g124201124263%_ + (_%g127969128031%_ (gx#genident 'e))) - (_%g124125124144%_ - _%g124126124148%_))) - _%tl124138124178%_ - _%hd124137124175%_ - _%hd124134124165%_))) - (_%g124125124144%_ - _%g124126124148%_)))) - (_%g124125124144%_ _%g124126124148%_)))) - (_%g124125124144%_ _%g124126124148%_))))) - (_%g124124124267%_ _%stx124119%_))))))) + (_%g127893127912%_ + _%g127894127916%_))) + _%tl127906127946%_ + _%hd127905127943%_ + _%hd127902127933%_))) + (_%g127893127912%_ + _%g127894127916%_)))) + (_%g127893127912%_ _%g127894127916%_)))) + (_%g127893127912%_ _%g127894127916%_))))) + (_%g127892128035%_ _%stx127887%_))))))) diff --git a/src/bootstrap/gerbil/expander/compile~0.scm b/src/bootstrap/gerbil/expander/compile~0.scm index 38e5ad443c..38bd8e2bf9 100644 --- a/src/bootstrap/gerbil/expander/compile~0.scm +++ b/src/bootstrap/gerbil/expander/compile~0.scm @@ -1,875 +1,875 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/compile::timestamp 1756721296) + (define gerbil/expander/compile::timestamp 1769384629) (begin (declare (not safe)) (define gx#core-compile-top-syntax - (lambda (_%stx138858%_) - (let* ((_%e138859138866%_ _%stx138858%_) - (_%E138861138870%_ + (lambda (_%stx142612%_) + (let* ((_%e142613142620%_ _%stx142612%_) + (_%E142615142624%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e138859138866%_))) - (_%E138860138884%_ - (lambda () - (if (gx#stx-pair? _%e138859138866%_) - (let ((_%e138862138874%_ - (gx#syntax-e _%e138859138866%_))) - (let ((_%hd138863138877%_ (##car _%e138862138874%_)) - (_%tl138864138879%_ (##cdr _%e138862138874%_))) - (let* ((_%form138882%_ _%hd138863138877%_) - (__self138887 - (gx#syntax-local-e__0 _%form138882%_)) - (__method138888 + _%e142613142620%_))) + (_%E142614142638%_ + (lambda () + (if (gx#stx-pair? _%e142613142620%_) + (let ((_%e142616142628%_ + (gx#syntax-e _%e142613142620%_))) + (let ((_%hd142617142631%_ (##car _%e142616142628%_)) + (_%tl142618142633%_ (##cdr _%e142616142628%_))) + (let* ((_%form142636%_ _%hd142617142631%_) + (__self142641 + (gx#syntax-local-e__0 _%form142636%_)) + (__method142642 (__method-ref - __self138887 + __self142641 'compile-top-syntax))) - (if __method138888 - (__method138888 __self138887 _%stx138858%_) + (if __method142642 + (__method142642 __self142641 _%stx142612%_) (begin (error '"Missing method" - __self138887 + __self142641 'compile-top-syntax) '#!void))))) - (_%E138861138870%_))))) - (_%E138860138884%_)))) + (_%E142615142624%_))))) + (_%E142614142638%_)))) (define gx#core-expander::compile-top-syntax - (lambda (_%self138806%_ _%stx138807%_) - (let* ((_%self138810%_ _%self138806%_) - (_%self138819138827%_ _%self138810%_) - (_%E138821138831%_ + (lambda (_%self142561%_ _%stx142562%_) + (let* ((_%self142565%_ _%self142561%_) + (_%self142574142582%_ _%self142565%_) + (_%E142576142585%_ (lambda () (error '"No clause matching" - _%self138819138827%_ + _%self142574142582%_ '((core-expander _ _ K))) '#!void)) - (_%K138822138844%_ - (lambda (_%K138834%_) - (let ((_%$e138836%_ (gx#stx-source _%stx138807%_))) - (if _%$e138836%_ - ((lambda (_%g138838138840%_) + (_%K142577142598%_ + (lambda (_%K142588%_) + (let ((_%$e142590%_ (gx#stx-source _%stx142562%_))) + (if _%$e142590%_ + ((lambda (_%g142592142594%_) (gx#stx-wrap-source - (_%K138834%_ _%stx138807%_) - _%g138838138840%_)) - _%$e138836%_) - (_%K138834%_ _%stx138807%_))))) - (_%e138823138847%_ - (##unchecked-structure-ref _%self138819138827%_ '1 '#f '#f)) - (_%e138824138850%_ - (##unchecked-structure-ref _%self138819138827%_ '2 '#f '#f)) - (_%e138825138853%_ - (##unchecked-structure-ref _%self138819138827%_ '3 '#f '#f)) - (_%K138856%_ _%e138825138853%_)) - (_%K138822138844%_ _%K138856%_)))) + (_%K142588%_ _%stx142562%_) + _%g142592142594%_)) + _%$e142590%_) + (_%K142588%_ _%stx142562%_))))) + (_%e142578142601%_ + (##unchecked-structure-ref _%self142574142582%_ '1 '#f '#f)) + (_%e142579142604%_ + (##unchecked-structure-ref _%self142574142582%_ '2 '#f '#f)) + (_%e142580142607%_ + (##unchecked-structure-ref _%self142574142582%_ '3 '#f '#f)) + (_%K142610%_ _%e142580142607%_)) + (_%K142577142598%_ _%K142610%_)))) (__bind-method!__% gx#core-expander::t 'compile-top-syntax gx#core-expander::compile-top-syntax '#f) (define gx#core-compile-top-error - (lambda (_%stx138680%_) - (gx#raise-syntax-error 'compile '"Cannot compile form" _%stx138680%_))) + (lambda (_%stx142435%_) + (gx#raise-syntax-error 'compile '"Cannot compile form" _%stx142435%_))) (define gx#core-compile-top-begin% - (lambda (_%stx138650%_) - (let* ((_%e138651138658%_ _%stx138650%_) - (_%E138653138662%_ + (lambda (_%stx142405%_) + (let* ((_%e142406142413%_ _%stx142405%_) + (_%E142408142417%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e138651138658%_))) - (_%E138652138676%_ - (lambda () - (if (gx#stx-pair? _%e138651138658%_) - (let ((_%e138654138666%_ - (gx#syntax-e _%e138651138658%_))) - (let ((_%hd138655138669%_ (##car _%e138654138666%_)) - (_%tl138656138671%_ (##cdr _%e138654138666%_))) - (let ((_%body138674%_ _%tl138656138671%_)) + _%e142406142413%_))) + (_%E142407142431%_ + (lambda () + (if (gx#stx-pair? _%e142406142413%_) + (let ((_%e142409142421%_ + (gx#syntax-e _%e142406142413%_))) + (let ((_%hd142410142424%_ (##car _%e142409142421%_)) + (_%tl142411142426%_ (##cdr _%e142409142421%_))) + (let ((_%body142429%_ _%tl142411142426%_)) (cons '%#begin (gx#stx-map1 gx#core-compile-top-syntax - _%body138674%_))))) - (_%E138653138662%_))))) - (_%E138652138676%_)))) + _%body142429%_))))) + (_%E142408142417%_))))) + (_%E142407142431%_)))) (define gx#core-compile-top-begin-syntax% - (lambda (_%stx138619%_) - (let* ((_%e138620138627%_ _%stx138619%_) - (_%E138622138631%_ + (lambda (_%stx142374%_) + (let* ((_%e142375142382%_ _%stx142374%_) + (_%E142377142386%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e138620138627%_))) - (_%E138621138646%_ - (lambda () - (if (gx#stx-pair? _%e138620138627%_) - (let ((_%e138623138635%_ - (gx#syntax-e _%e138620138627%_))) - (let ((_%hd138624138638%_ (##car _%e138623138635%_)) - (_%tl138625138640%_ (##cdr _%e138623138635%_))) - (let ((_%body138643%_ _%tl138625138640%_)) + _%e142375142382%_))) + (_%E142376142401%_ + (lambda () + (if (gx#stx-pair? _%e142375142382%_) + (let ((_%e142378142390%_ + (gx#syntax-e _%e142375142382%_))) + (let ((_%hd142379142393%_ (##car _%e142378142390%_)) + (_%tl142380142395%_ (##cdr _%e142378142390%_))) + (let ((_%body142398%_ _%tl142380142395%_)) (cons '%#begin-syntax (call-with-parameters__1 (lambda () (gx#stx-map1 gx#core-compile-top-syntax - _%body138643%_)) + _%body142398%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)))))) - (_%E138622138631%_))))) - (_%E138621138646%_)))) + (_%E142377142386%_))))) + (_%E142376142401%_)))) (define gx#core-compile-top-begin-foreign% - (lambda (_%stx138589%_) - (let* ((_%e138590138597%_ _%stx138589%_) - (_%E138592138601%_ + (lambda (_%stx142344%_) + (let* ((_%e142345142352%_ _%stx142344%_) + (_%E142347142356%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e138590138597%_))) - (_%E138591138615%_ - (lambda () - (if (gx#stx-pair? _%e138590138597%_) - (let ((_%e138593138605%_ - (gx#syntax-e _%e138590138597%_))) - (let ((_%hd138594138608%_ (##car _%e138593138605%_)) - (_%tl138595138610%_ (##cdr _%e138593138605%_))) - (let ((_%body138613%_ _%tl138595138610%_)) - (cons '%#begin-foreign _%body138613%_)))) - (_%E138592138601%_))))) - (_%E138591138615%_)))) + _%e142345142352%_))) + (_%E142346142370%_ + (lambda () + (if (gx#stx-pair? _%e142345142352%_) + (let ((_%e142348142360%_ + (gx#syntax-e _%e142345142352%_))) + (let ((_%hd142349142363%_ (##car _%e142348142360%_)) + (_%tl142350142365%_ (##cdr _%e142348142360%_))) + (let ((_%body142368%_ _%tl142350142365%_)) + (cons '%#begin-foreign _%body142368%_)))) + (_%E142347142356%_))))) + (_%E142346142370%_)))) (define gx#core-compile-top-begin-annotation% - (lambda (_%stx138535%_) - (let* ((_%e138536138549%_ _%stx138535%_) - (_%E138538138553%_ + (lambda (_%stx142290%_) + (let* ((_%e142291142304%_ _%stx142290%_) + (_%E142293142308%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e138536138549%_))) - (_%E138537138585%_ - (lambda () - (if (gx#stx-pair? _%e138536138549%_) - (let ((_%e138539138557%_ - (gx#syntax-e _%e138536138549%_))) - (let ((_%hd138540138560%_ (##car _%e138539138557%_)) - (_%tl138541138562%_ (##cdr _%e138539138557%_))) - (if (gx#stx-pair? _%tl138541138562%_) - (let ((_%e138542138565%_ - (gx#syntax-e _%tl138541138562%_))) - (let ((_%hd138543138568%_ - (##car _%e138542138565%_)) - (_%tl138544138570%_ - (##cdr _%e138542138565%_))) - (let ((_%ann138573%_ _%hd138543138568%_)) - (if (gx#stx-pair? _%tl138544138570%_) - (let ((_%e138545138575%_ + _%e142291142304%_))) + (_%E142292142340%_ + (lambda () + (if (gx#stx-pair? _%e142291142304%_) + (let ((_%e142294142312%_ + (gx#syntax-e _%e142291142304%_))) + (let ((_%hd142295142315%_ (##car _%e142294142312%_)) + (_%tl142296142317%_ (##cdr _%e142294142312%_))) + (if (gx#stx-pair? _%tl142296142317%_) + (let ((_%e142297142320%_ + (gx#syntax-e _%tl142296142317%_))) + (let ((_%hd142298142323%_ + (##car _%e142297142320%_)) + (_%tl142299142325%_ + (##cdr _%e142297142320%_))) + (let ((_%ann142328%_ _%hd142298142323%_)) + (if (gx#stx-pair? _%tl142299142325%_) + (let ((_%e142300142330%_ (gx#syntax-e - _%tl138544138570%_))) - (let ((_%hd138546138578%_ - (##car _%e138545138575%_)) - (_%tl138547138580%_ - (##cdr _%e138545138575%_))) - (let ((_%expr138583%_ - _%hd138546138578%_)) + _%tl142299142325%_))) + (let ((_%hd142301142333%_ + (##car _%e142300142330%_)) + (_%tl142302142335%_ + (##cdr _%e142300142330%_))) + (let ((_%expr142338%_ + _%hd142301142333%_)) (if (gx#stx-null? - _%tl138547138580%_) + _%tl142302142335%_) (gx#core-compile-top-syntax - _%expr138583%_) - (_%E138538138553%_))))) - (_%E138538138553%_))))) - (_%E138538138553%_)))) - (_%E138538138553%_))))) - (_%E138537138585%_)))) + _%expr142338%_) + (_%E142293142308%_))))) + (_%E142293142308%_))))) + (_%E142293142308%_)))) + (_%E142293142308%_))))) + (_%E142292142340%_)))) (define gx#core-compile-top-import% - (lambda (_%stx138505%_) - (let* ((_%e138506138513%_ _%stx138505%_) - (_%E138508138517%_ + (lambda (_%stx142260%_) + (let* ((_%e142261142268%_ _%stx142260%_) + (_%E142263142272%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e138506138513%_))) - (_%E138507138531%_ - (lambda () - (if (gx#stx-pair? _%e138506138513%_) - (let ((_%e138509138521%_ - (gx#syntax-e _%e138506138513%_))) - (let ((_%hd138510138524%_ (##car _%e138509138521%_)) - (_%tl138511138526%_ (##cdr _%e138509138521%_))) - (let ((_%body138529%_ _%tl138511138526%_)) - (cons '%#import _%body138529%_)))) - (_%E138508138517%_))))) - (_%E138507138531%_)))) + _%e142261142268%_))) + (_%E142262142286%_ + (lambda () + (if (gx#stx-pair? _%e142261142268%_) + (let ((_%e142264142276%_ + (gx#syntax-e _%e142261142268%_))) + (let ((_%hd142265142279%_ (##car _%e142264142276%_)) + (_%tl142266142281%_ (##cdr _%e142264142276%_))) + (let ((_%body142284%_ _%tl142266142281%_)) + (cons '%#import _%body142284%_)))) + (_%E142263142272%_))))) + (_%E142262142286%_)))) (define gx#core-compile-top-module% - (lambda (_%stx138462%_) - (let* ((_%e138463138473%_ _%stx138462%_) - (_%E138465138477%_ + (lambda (_%stx142217%_) + (let* ((_%e142218142228%_ _%stx142217%_) + (_%E142220142232%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e138463138473%_))) - (_%E138464138501%_ - (lambda () - (if (gx#stx-pair? _%e138463138473%_) - (let ((_%e138466138481%_ - (gx#syntax-e _%e138463138473%_))) - (let ((_%hd138467138484%_ (##car _%e138466138481%_)) - (_%tl138468138486%_ (##cdr _%e138466138481%_))) - (if (gx#stx-pair? _%tl138468138486%_) - (let ((_%e138469138489%_ - (gx#syntax-e _%tl138468138486%_))) - (let ((_%hd138470138492%_ - (##car _%e138469138489%_)) - (_%tl138471138494%_ - (##cdr _%e138469138489%_))) - (let* ((_%hd138497%_ _%hd138470138492%_) - (_%body138499%_ _%tl138471138494%_)) + _%e142218142228%_))) + (_%E142219142256%_ + (lambda () + (if (gx#stx-pair? _%e142218142228%_) + (let ((_%e142221142236%_ + (gx#syntax-e _%e142218142228%_))) + (let ((_%hd142222142239%_ (##car _%e142221142236%_)) + (_%tl142223142241%_ (##cdr _%e142221142236%_))) + (if (gx#stx-pair? _%tl142223142241%_) + (let ((_%e142224142244%_ + (gx#syntax-e _%tl142223142241%_))) + (let ((_%hd142225142247%_ + (##car _%e142224142244%_)) + (_%tl142226142249%_ + (##cdr _%e142224142244%_))) + (let* ((_%hd142252%_ _%hd142225142247%_) + (_%body142254%_ _%tl142226142249%_)) (cons '%#module (cons (##structure-ref (gx#syntax-local-e__0 - _%hd138497%_) + _%hd142252%_) '1 gx#expander-context::t '#f) (gx#stx-map1 gx#core-compile-top-syntax - _%body138499%_)))))) - (_%E138465138477%_)))) - (_%E138465138477%_))))) - (_%E138464138501%_)))) + _%body142254%_)))))) + (_%E142220142232%_)))) + (_%E142220142232%_))))) + (_%E142219142256%_)))) (define gx#core-compile-top-export% - (lambda (_%stx138432%_) - (let* ((_%e138433138440%_ _%stx138432%_) - (_%E138435138444%_ + (lambda (_%stx142187%_) + (let* ((_%e142188142195%_ _%stx142187%_) + (_%E142190142199%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e138433138440%_))) - (_%E138434138458%_ - (lambda () - (if (gx#stx-pair? _%e138433138440%_) - (let ((_%e138436138448%_ - (gx#syntax-e _%e138433138440%_))) - (let ((_%hd138437138451%_ (##car _%e138436138448%_)) - (_%tl138438138453%_ (##cdr _%e138436138448%_))) - (let ((_%body138456%_ _%tl138438138453%_)) - (cons '%#export _%body138456%_)))) - (_%E138435138444%_))))) - (_%E138434138458%_)))) + _%e142188142195%_))) + (_%E142189142213%_ + (lambda () + (if (gx#stx-pair? _%e142188142195%_) + (let ((_%e142191142203%_ + (gx#syntax-e _%e142188142195%_))) + (let ((_%hd142192142206%_ (##car _%e142191142203%_)) + (_%tl142193142208%_ (##cdr _%e142191142203%_))) + (let ((_%body142211%_ _%tl142193142208%_)) + (cons '%#export _%body142211%_)))) + (_%E142190142199%_))))) + (_%E142189142213%_)))) (define gx#core-compile-top-provide% - (lambda (_%stx138402%_) - (let* ((_%e138403138410%_ _%stx138402%_) - (_%E138405138414%_ + (lambda (_%stx142157%_) + (let* ((_%e142158142165%_ _%stx142157%_) + (_%E142160142169%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e138403138410%_))) - (_%E138404138428%_ - (lambda () - (if (gx#stx-pair? _%e138403138410%_) - (let ((_%e138406138418%_ - (gx#syntax-e _%e138403138410%_))) - (let ((_%hd138407138421%_ (##car _%e138406138418%_)) - (_%tl138408138423%_ (##cdr _%e138406138418%_))) - (let ((_%body138426%_ _%tl138408138423%_)) - (cons '%#provide _%body138426%_)))) - (_%E138405138414%_))))) - (_%E138404138428%_)))) + _%e142158142165%_))) + (_%E142159142183%_ + (lambda () + (if (gx#stx-pair? _%e142158142165%_) + (let ((_%e142161142173%_ + (gx#syntax-e _%e142158142165%_))) + (let ((_%hd142162142176%_ (##car _%e142161142173%_)) + (_%tl142163142178%_ (##cdr _%e142161142173%_))) + (let ((_%body142181%_ _%tl142163142178%_)) + (cons '%#provide _%body142181%_)))) + (_%E142160142169%_))))) + (_%E142159142183%_)))) (define gx#core-compile-top-extern% - (lambda (_%stx138372%_) - (let* ((_%e138373138380%_ _%stx138372%_) - (_%E138375138384%_ + (lambda (_%stx142127%_) + (let* ((_%e142128142135%_ _%stx142127%_) + (_%E142130142139%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e138373138380%_))) - (_%E138374138398%_ - (lambda () - (if (gx#stx-pair? _%e138373138380%_) - (let ((_%e138376138388%_ - (gx#syntax-e _%e138373138380%_))) - (let ((_%hd138377138391%_ (##car _%e138376138388%_)) - (_%tl138378138393%_ (##cdr _%e138376138388%_))) - (let ((_%body138396%_ _%tl138378138393%_)) - (cons '%#extern _%body138396%_)))) - (_%E138375138384%_))))) - (_%E138374138398%_)))) + _%e142128142135%_))) + (_%E142129142153%_ + (lambda () + (if (gx#stx-pair? _%e142128142135%_) + (let ((_%e142131142143%_ + (gx#syntax-e _%e142128142135%_))) + (let ((_%hd142132142146%_ (##car _%e142131142143%_)) + (_%tl142133142148%_ (##cdr _%e142131142143%_))) + (let ((_%body142151%_ _%tl142133142148%_)) + (cons '%#extern _%body142151%_)))) + (_%E142130142139%_))))) + (_%E142129142153%_)))) (define gx#core-compile-top-define-values% - (lambda (_%stx138318%_) - (let* ((_%e138319138332%_ _%stx138318%_) - (_%E138321138336%_ + (lambda (_%stx142073%_) + (let* ((_%e142074142087%_ _%stx142073%_) + (_%E142076142091%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e138319138332%_))) - (_%E138320138368%_ - (lambda () - (if (gx#stx-pair? _%e138319138332%_) - (let ((_%e138322138340%_ - (gx#syntax-e _%e138319138332%_))) - (let ((_%hd138323138343%_ (##car _%e138322138340%_)) - (_%tl138324138345%_ (##cdr _%e138322138340%_))) - (if (gx#stx-pair? _%tl138324138345%_) - (let ((_%e138325138348%_ - (gx#syntax-e _%tl138324138345%_))) - (let ((_%hd138326138351%_ - (##car _%e138325138348%_)) - (_%tl138327138353%_ - (##cdr _%e138325138348%_))) - (let ((_%hd138356%_ _%hd138326138351%_)) - (if (gx#stx-pair? _%tl138327138353%_) - (let ((_%e138328138358%_ + _%e142074142087%_))) + (_%E142075142123%_ + (lambda () + (if (gx#stx-pair? _%e142074142087%_) + (let ((_%e142077142095%_ + (gx#syntax-e _%e142074142087%_))) + (let ((_%hd142078142098%_ (##car _%e142077142095%_)) + (_%tl142079142100%_ (##cdr _%e142077142095%_))) + (if (gx#stx-pair? _%tl142079142100%_) + (let ((_%e142080142103%_ + (gx#syntax-e _%tl142079142100%_))) + (let ((_%hd142081142106%_ + (##car _%e142080142103%_)) + (_%tl142082142108%_ + (##cdr _%e142080142103%_))) + (let ((_%hd142111%_ _%hd142081142106%_)) + (if (gx#stx-pair? _%tl142082142108%_) + (let ((_%e142083142113%_ (gx#syntax-e - _%tl138327138353%_))) - (let ((_%hd138329138361%_ - (##car _%e138328138358%_)) - (_%tl138330138363%_ - (##cdr _%e138328138358%_))) - (let ((_%expr138366%_ - _%hd138329138361%_)) + _%tl142082142108%_))) + (let ((_%hd142084142116%_ + (##car _%e142083142113%_)) + (_%tl142085142118%_ + (##cdr _%e142083142113%_))) + (let ((_%expr142121%_ + _%hd142084142116%_)) (if (gx#stx-null? - _%tl138330138363%_) + _%tl142085142118%_) (cons '%#define-values (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _%hd138356%_) + _%hd142111%_) (cons (gx#core-compile-top-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr138366%_) + _%expr142121%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E138321138336%_))))) - (_%E138321138336%_))))) - (_%E138321138336%_)))) - (_%E138321138336%_))))) - (_%E138320138368%_)))) + (_%E142076142091%_))))) + (_%E142076142091%_))))) + (_%E142076142091%_)))) + (_%E142076142091%_))))) + (_%E142075142123%_)))) (define gx#core-compile-top-define-syntax% - (lambda (_%stx138263%_) - (let* ((_%e138264138277%_ _%stx138263%_) - (_%E138266138281%_ + (lambda (_%stx142018%_) + (let* ((_%e142019142032%_ _%stx142018%_) + (_%E142021142036%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e138264138277%_))) - (_%E138265138314%_ - (lambda () - (if (gx#stx-pair? _%e138264138277%_) - (let ((_%e138267138285%_ - (gx#syntax-e _%e138264138277%_))) - (let ((_%hd138268138288%_ (##car _%e138267138285%_)) - (_%tl138269138290%_ (##cdr _%e138267138285%_))) - (if (gx#stx-pair? _%tl138269138290%_) - (let ((_%e138270138293%_ - (gx#syntax-e _%tl138269138290%_))) - (let ((_%hd138271138296%_ - (##car _%e138270138293%_)) - (_%tl138272138298%_ - (##cdr _%e138270138293%_))) - (let ((_%hd138301%_ _%hd138271138296%_)) - (if (gx#stx-pair? _%tl138272138298%_) - (let ((_%e138273138303%_ + _%e142019142032%_))) + (_%E142020142069%_ + (lambda () + (if (gx#stx-pair? _%e142019142032%_) + (let ((_%e142022142040%_ + (gx#syntax-e _%e142019142032%_))) + (let ((_%hd142023142043%_ (##car _%e142022142040%_)) + (_%tl142024142045%_ (##cdr _%e142022142040%_))) + (if (gx#stx-pair? _%tl142024142045%_) + (let ((_%e142025142048%_ + (gx#syntax-e _%tl142024142045%_))) + (let ((_%hd142026142051%_ + (##car _%e142025142048%_)) + (_%tl142027142053%_ + (##cdr _%e142025142048%_))) + (let ((_%hd142056%_ _%hd142026142051%_)) + (if (gx#stx-pair? _%tl142027142053%_) + (let ((_%e142028142058%_ (gx#syntax-e - _%tl138272138298%_))) - (let ((_%hd138274138306%_ - (##car _%e138273138303%_)) - (_%tl138275138308%_ - (##cdr _%e138273138303%_))) - (let ((_%expr138311%_ - _%hd138274138306%_)) + _%tl142027142053%_))) + (let ((_%hd142029142061%_ + (##car _%e142028142058%_)) + (_%tl142030142063%_ + (##cdr _%e142028142058%_))) + (let ((_%expr142066%_ + _%hd142029142061%_)) (if (gx#stx-null? - _%tl138275138308%_) + _%tl142030142063%_) (cons '%#define-syntax - (cons _%hd138301%_ + (cons _%hd142056%_ (cons (call-with-parameters__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda () - (gx#core-compile-top-syntax _%expr138311%_)) + (gx#core-compile-top-syntax _%expr142066%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E138266138281%_))))) - (_%E138266138281%_))))) - (_%E138266138281%_)))) - (_%E138266138281%_))))) - (_%E138265138314%_)))) + (_%E142021142036%_))))) + (_%E142021142036%_))))) + (_%E142021142036%_)))) + (_%E142021142036%_))))) + (_%E142020142069%_)))) (define gx#core-compile-top-define-alias% - (lambda (_%stx138233%_) - (let* ((_%e138234138241%_ _%stx138233%_) - (_%E138236138245%_ + (lambda (_%stx141988%_) + (let* ((_%e141989141996%_ _%stx141988%_) + (_%E141991142000%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e138234138241%_))) - (_%E138235138259%_ - (lambda () - (if (gx#stx-pair? _%e138234138241%_) - (let ((_%e138237138249%_ - (gx#syntax-e _%e138234138241%_))) - (let ((_%hd138238138252%_ (##car _%e138237138249%_)) - (_%tl138239138254%_ (##cdr _%e138237138249%_))) - (let ((_%body138257%_ _%tl138239138254%_)) - (cons '%#define-alias _%body138257%_)))) - (_%E138236138245%_))))) - (_%E138235138259%_)))) + _%e141989141996%_))) + (_%E141990142014%_ + (lambda () + (if (gx#stx-pair? _%e141989141996%_) + (let ((_%e141992142004%_ + (gx#syntax-e _%e141989141996%_))) + (let ((_%hd141993142007%_ (##car _%e141992142004%_)) + (_%tl141994142009%_ (##cdr _%e141992142004%_))) + (let ((_%body142012%_ _%tl141994142009%_)) + (cons '%#define-alias _%body142012%_)))) + (_%E141991142000%_))))) + (_%E141990142014%_)))) (define gx#core-compile-top-define-runtime% - (lambda (_%stx138203%_) - (let* ((_%e138204138211%_ _%stx138203%_) - (_%E138206138215%_ + (lambda (_%stx141958%_) + (let* ((_%e141959141966%_ _%stx141958%_) + (_%E141961141970%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e138204138211%_))) - (_%E138205138229%_ - (lambda () - (if (gx#stx-pair? _%e138204138211%_) - (let ((_%e138207138219%_ - (gx#syntax-e _%e138204138211%_))) - (let ((_%hd138208138222%_ (##car _%e138207138219%_)) - (_%tl138209138224%_ (##cdr _%e138207138219%_))) - (let ((_%body138227%_ _%tl138209138224%_)) - (cons '%#define-runtime _%body138227%_)))) - (_%E138206138215%_))))) - (_%E138205138229%_)))) + _%e141959141966%_))) + (_%E141960141984%_ + (lambda () + (if (gx#stx-pair? _%e141959141966%_) + (let ((_%e141962141974%_ + (gx#syntax-e _%e141959141966%_))) + (let ((_%hd141963141977%_ (##car _%e141962141974%_)) + (_%tl141964141979%_ (##cdr _%e141962141974%_))) + (let ((_%body141982%_ _%tl141964141979%_)) + (cons '%#define-runtime _%body141982%_)))) + (_%E141961141970%_))))) + (_%E141960141984%_)))) (define gx#core-compile-top-declare% - (lambda (_%stx138173%_) - (let* ((_%e138174138181%_ _%stx138173%_) - (_%E138176138185%_ + (lambda (_%stx141928%_) + (let* ((_%e141929141936%_ _%stx141928%_) + (_%E141931141940%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e138174138181%_))) - (_%E138175138199%_ - (lambda () - (if (gx#stx-pair? _%e138174138181%_) - (let ((_%e138177138189%_ - (gx#syntax-e _%e138174138181%_))) - (let ((_%hd138178138192%_ (##car _%e138177138189%_)) - (_%tl138179138194%_ (##cdr _%e138177138189%_))) - (let ((_%decls138197%_ _%tl138179138194%_)) - (cons '%#declare _%decls138197%_)))) - (_%E138176138185%_))))) - (_%E138175138199%_)))) + _%e141929141936%_))) + (_%E141930141954%_ + (lambda () + (if (gx#stx-pair? _%e141929141936%_) + (let ((_%e141932141944%_ + (gx#syntax-e _%e141929141936%_))) + (let ((_%hd141933141947%_ (##car _%e141932141944%_)) + (_%tl141934141949%_ (##cdr _%e141932141944%_))) + (let ((_%decls141952%_ _%tl141934141949%_)) + (cons '%#declare _%decls141952%_)))) + (_%E141931141940%_))))) + (_%E141930141954%_)))) (define gx#core-compile-top-lambda% - (lambda (_%stx138143%_) - (let* ((_%e138144138151%_ _%stx138143%_) - (_%E138146138155%_ + (lambda (_%stx141898%_) + (let* ((_%e141899141906%_ _%stx141898%_) + (_%E141901141910%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e138144138151%_))) - (_%E138145138169%_ - (lambda () - (if (gx#stx-pair? _%e138144138151%_) - (let ((_%e138147138159%_ - (gx#syntax-e _%e138144138151%_))) - (let ((_%hd138148138162%_ (##car _%e138147138159%_)) - (_%tl138149138164%_ (##cdr _%e138147138159%_))) - (let ((_%clause138167%_ _%tl138149138164%_)) + _%e141899141906%_))) + (_%E141900141924%_ + (lambda () + (if (gx#stx-pair? _%e141899141906%_) + (let ((_%e141902141914%_ + (gx#syntax-e _%e141899141906%_))) + (let ((_%hd141903141917%_ (##car _%e141902141914%_)) + (_%tl141904141919%_ (##cdr _%e141902141914%_))) + (let ((_%clause141922%_ _%tl141904141919%_)) (cons '%#lambda (gx#core-compile-top-lambda-clause - _%clause138167%_))))) - (_%E138146138155%_))))) - (_%E138145138169%_)))) + _%clause141922%_))))) + (_%E141901141910%_))))) + (_%E141900141924%_)))) (define gx#core-compile-top-lambda-clause - (lambda (_%stx138100%_) - (let* ((_%e138101138111%_ _%stx138100%_) - (_%E138103138115%_ + (lambda (_%stx141855%_) + (let* ((_%e141856141866%_ _%stx141855%_) + (_%E141858141870%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e138101138111%_))) - (_%E138102138139%_ - (lambda () - (if (gx#stx-pair? _%e138101138111%_) - (let ((_%e138104138119%_ - (gx#syntax-e _%e138101138111%_))) - (let ((_%hd138105138122%_ (##car _%e138104138119%_)) - (_%tl138106138124%_ (##cdr _%e138104138119%_))) - (let ((_%hd138127%_ _%hd138105138122%_)) - (if (gx#stx-pair? _%tl138106138124%_) - (let ((_%e138107138129%_ - (gx#syntax-e _%tl138106138124%_))) - (let ((_%hd138108138132%_ - (##car _%e138107138129%_)) - (_%tl138109138134%_ - (##cdr _%e138107138129%_))) - (let ((_%body138137%_ _%hd138108138132%_)) - (if (gx#stx-null? _%tl138109138134%_) + _%e141856141866%_))) + (_%E141857141894%_ + (lambda () + (if (gx#stx-pair? _%e141856141866%_) + (let ((_%e141859141874%_ + (gx#syntax-e _%e141856141866%_))) + (let ((_%hd141860141877%_ (##car _%e141859141874%_)) + (_%tl141861141879%_ (##cdr _%e141859141874%_))) + (let ((_%hd141882%_ _%hd141860141877%_)) + (if (gx#stx-pair? _%tl141861141879%_) + (let ((_%e141862141884%_ + (gx#syntax-e _%tl141861141879%_))) + (let ((_%hd141863141887%_ + (##car _%e141862141884%_)) + (_%tl141864141889%_ + (##cdr _%e141862141884%_))) + (let ((_%body141892%_ _%hd141863141887%_)) + (if (gx#stx-null? _%tl141864141889%_) (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _%hd138127%_) + _%hd141882%_) (cons (gx#core-compile-top-syntax - _%body138137%_) + _%body141892%_) '())) - (_%E138103138115%_))))) - (_%E138103138115%_))))) - (_%E138103138115%_))))) - (_%E138102138139%_)))) + (_%E141858141870%_))))) + (_%E141858141870%_))))) + (_%E141858141870%_))))) + (_%E141857141894%_)))) (define gx#core-compile-top-case-lambda% - (lambda (_%stx138070%_) - (let* ((_%e138071138078%_ _%stx138070%_) - (_%E138073138082%_ + (lambda (_%stx141825%_) + (let* ((_%e141826141833%_ _%stx141825%_) + (_%E141828141837%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e138071138078%_))) - (_%E138072138096%_ - (lambda () - (if (gx#stx-pair? _%e138071138078%_) - (let ((_%e138074138086%_ - (gx#syntax-e _%e138071138078%_))) - (let ((_%hd138075138089%_ (##car _%e138074138086%_)) - (_%tl138076138091%_ (##cdr _%e138074138086%_))) - (let ((_%clauses138094%_ _%tl138076138091%_)) + _%e141826141833%_))) + (_%E141827141851%_ + (lambda () + (if (gx#stx-pair? _%e141826141833%_) + (let ((_%e141829141841%_ + (gx#syntax-e _%e141826141833%_))) + (let ((_%hd141830141844%_ (##car _%e141829141841%_)) + (_%tl141831141846%_ (##cdr _%e141829141841%_))) + (let ((_%clauses141849%_ _%tl141831141846%_)) (cons '%#case-lambda (gx#stx-map1 gx#core-compile-top-lambda-clause - _%clauses138094%_))))) - (_%E138073138082%_))))) - (_%E138072138096%_)))) + _%clauses141849%_))))) + (_%E141828141837%_))))) + (_%E141827141851%_)))) (define gx#core-compile-top-let-values%__% - (lambda (_%stx138005%_ _%form138006%_) - (let* ((_%e138007138020%_ _%stx138005%_) - (_%E138009138024%_ + (lambda (_%stx141760%_ _%form141761%_) + (let* ((_%e141762141775%_ _%stx141760%_) + (_%E141764141779%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e138007138020%_))) - (_%E138008138056%_ - (lambda () - (if (gx#stx-pair? _%e138007138020%_) - (let ((_%e138010138028%_ - (gx#syntax-e _%e138007138020%_))) - (let ((_%hd138011138031%_ (##car _%e138010138028%_)) - (_%tl138012138033%_ (##cdr _%e138010138028%_))) - (if (gx#stx-pair? _%tl138012138033%_) - (let ((_%e138013138036%_ - (gx#syntax-e _%tl138012138033%_))) - (let ((_%hd138014138039%_ - (##car _%e138013138036%_)) - (_%tl138015138041%_ - (##cdr _%e138013138036%_))) - (let ((_%hd138044%_ _%hd138014138039%_)) - (if (gx#stx-pair? _%tl138015138041%_) - (let ((_%e138016138046%_ + _%e141762141775%_))) + (_%E141763141811%_ + (lambda () + (if (gx#stx-pair? _%e141762141775%_) + (let ((_%e141765141783%_ + (gx#syntax-e _%e141762141775%_))) + (let ((_%hd141766141786%_ (##car _%e141765141783%_)) + (_%tl141767141788%_ (##cdr _%e141765141783%_))) + (if (gx#stx-pair? _%tl141767141788%_) + (let ((_%e141768141791%_ + (gx#syntax-e _%tl141767141788%_))) + (let ((_%hd141769141794%_ + (##car _%e141768141791%_)) + (_%tl141770141796%_ + (##cdr _%e141768141791%_))) + (let ((_%hd141799%_ _%hd141769141794%_)) + (if (gx#stx-pair? _%tl141770141796%_) + (let ((_%e141771141801%_ (gx#syntax-e - _%tl138015138041%_))) - (let ((_%hd138017138049%_ - (##car _%e138016138046%_)) - (_%tl138018138051%_ - (##cdr _%e138016138046%_))) - (let ((_%body138054%_ - _%hd138017138049%_)) + _%tl141770141796%_))) + (let ((_%hd141772141804%_ + (##car _%e141771141801%_)) + (_%tl141773141806%_ + (##cdr _%e141771141801%_))) + (let ((_%body141809%_ + _%hd141772141804%_)) (if (gx#stx-null? - _%tl138018138051%_) - (cons _%form138006%_ + _%tl141773141806%_) + (cons _%form141761%_ (cons (gx#stx-map1 gx#core-compile-top-lambda-clause - _%hd138044%_) + _%hd141799%_) (cons (gx#core-compile-top-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body138054%_) + _%body141809%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E138009138024%_))))) - (_%E138009138024%_))))) - (_%E138009138024%_)))) - (_%E138009138024%_))))) - (_%E138008138056%_)))) + (_%E141764141779%_))))) + (_%E141764141779%_))))) + (_%E141764141779%_)))) + (_%E141764141779%_))))) + (_%E141763141811%_)))) (define gx#core-compile-top-let-values%__0 - (lambda (_%stx138063%_) - (let ((_%form138065%_ '%#let-values)) - (gx#core-compile-top-let-values%__% _%stx138063%_ _%form138065%_)))) + (lambda (_%stx141818%_) + (let ((_%form141820%_ '%#let-values)) + (gx#core-compile-top-let-values%__% _%stx141818%_ _%form141820%_)))) (define gx#core-compile-top-let-values% - (lambda _g138889_ - (let ((_g138890_ (##length _g138889_))) - (cond ((##fx= _g138890_ 1) - (apply gx#core-compile-top-let-values%__0 _g138889_)) - ((##fx= _g138890_ 2) - (apply gx#core-compile-top-let-values%__% _g138889_)) + (lambda _g142643_ + (let ((_g142644_ (##length _g142643_))) + (cond ((##fx= _g142644_ 1) + (apply gx#core-compile-top-let-values%__0 _g142643_)) + ((##fx= _g142644_ 2) + (apply gx#core-compile-top-let-values%__% _g142643_)) (else (##raise-wrong-number-of-arguments-exception gx#core-compile-top-let-values% - _g138889_)))))) + _g142643_)))))) (define gx#core-compile-top-letrec-values% - (lambda (_%stx138002%_) - (gx#core-compile-top-let-values%__% _%stx138002%_ '%#letrec-values))) + (lambda (_%stx141757%_) + (gx#core-compile-top-let-values%__% _%stx141757%_ '%#letrec-values))) (define gx#core-compile-top-letrec*-values% - (lambda (_%stx138000%_) - (gx#core-compile-top-let-values%__% _%stx138000%_ '%#letrec*-values))) + (lambda (_%stx141755%_) + (gx#core-compile-top-let-values%__% _%stx141755%_ '%#letrec*-values))) (define gx#core-compile-top-quote% - (lambda (_%stx137959%_) - (let* ((_%e137960137970%_ _%stx137959%_) - (_%E137962137974%_ + (lambda (_%stx141714%_) + (let* ((_%e141715141725%_ _%stx141714%_) + (_%E141717141729%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e137960137970%_))) - (_%E137961137996%_ - (lambda () - (if (gx#stx-pair? _%e137960137970%_) - (let ((_%e137963137978%_ - (gx#syntax-e _%e137960137970%_))) - (let ((_%hd137964137981%_ (##car _%e137963137978%_)) - (_%tl137965137983%_ (##cdr _%e137963137978%_))) - (if (gx#stx-pair? _%tl137965137983%_) - (let ((_%e137966137986%_ - (gx#syntax-e _%tl137965137983%_))) - (let ((_%hd137967137989%_ - (##car _%e137966137986%_)) - (_%tl137968137991%_ - (##cdr _%e137966137986%_))) - (let ((_%e137994%_ _%hd137967137989%_)) - (if (gx#stx-null? _%tl137968137991%_) + _%e141715141725%_))) + (_%E141716141751%_ + (lambda () + (if (gx#stx-pair? _%e141715141725%_) + (let ((_%e141718141733%_ + (gx#syntax-e _%e141715141725%_))) + (let ((_%hd141719141736%_ (##car _%e141718141733%_)) + (_%tl141720141738%_ (##cdr _%e141718141733%_))) + (if (gx#stx-pair? _%tl141720141738%_) + (let ((_%e141721141741%_ + (gx#syntax-e _%tl141720141738%_))) + (let ((_%hd141722141744%_ + (##car _%e141721141741%_)) + (_%tl141723141746%_ + (##cdr _%e141721141741%_))) + (let ((_%e141749%_ _%hd141722141744%_)) + (if (gx#stx-null? _%tl141723141746%_) (cons '%#quote (cons (gx#syntax->datum - _%e137994%_) + _%e141749%_) '())) - (_%E137962137974%_))))) - (_%E137962137974%_)))) - (_%E137962137974%_))))) - (_%E137961137996%_)))) + (_%E141717141729%_))))) + (_%E141717141729%_)))) + (_%E141717141729%_))))) + (_%E141716141751%_)))) (define gx#core-compile-top-quote-syntax% - (lambda (_%stx137918%_) - (let* ((_%e137919137929%_ _%stx137918%_) - (_%E137921137933%_ + (lambda (_%stx141673%_) + (let* ((_%e141674141684%_ _%stx141673%_) + (_%E141676141688%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e137919137929%_))) - (_%E137920137955%_ - (lambda () - (if (gx#stx-pair? _%e137919137929%_) - (let ((_%e137922137937%_ - (gx#syntax-e _%e137919137929%_))) - (let ((_%hd137923137940%_ (##car _%e137922137937%_)) - (_%tl137924137942%_ (##cdr _%e137922137937%_))) - (if (gx#stx-pair? _%tl137924137942%_) - (let ((_%e137925137945%_ - (gx#syntax-e _%tl137924137942%_))) - (let ((_%hd137926137948%_ - (##car _%e137925137945%_)) - (_%tl137927137950%_ - (##cdr _%e137925137945%_))) - (let ((_%e137953%_ _%hd137926137948%_)) - (if (gx#stx-null? _%tl137927137950%_) + _%e141674141684%_))) + (_%E141675141710%_ + (lambda () + (if (gx#stx-pair? _%e141674141684%_) + (let ((_%e141677141692%_ + (gx#syntax-e _%e141674141684%_))) + (let ((_%hd141678141695%_ (##car _%e141677141692%_)) + (_%tl141679141697%_ (##cdr _%e141677141692%_))) + (if (gx#stx-pair? _%tl141679141697%_) + (let ((_%e141680141700%_ + (gx#syntax-e _%tl141679141697%_))) + (let ((_%hd141681141703%_ + (##car _%e141680141700%_)) + (_%tl141682141705%_ + (##cdr _%e141680141700%_))) + (let ((_%e141708%_ _%hd141681141703%_)) + (if (gx#stx-null? _%tl141682141705%_) (cons '%#quote-syntax (cons (gx#core-quote-syntax__0 - _%e137953%_) + _%e141708%_) '())) - (_%E137921137933%_))))) - (_%E137921137933%_)))) - (_%E137921137933%_))))) - (_%E137920137955%_)))) + (_%E141676141688%_))))) + (_%E141676141688%_)))) + (_%E141676141688%_))))) + (_%E141675141710%_)))) (define gx#core-compile-top-call% - (lambda (_%stx137875%_) - (let* ((_%e137876137886%_ _%stx137875%_) - (_%E137878137890%_ + (lambda (_%stx141630%_) + (let* ((_%e141631141641%_ _%stx141630%_) + (_%E141633141645%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e137876137886%_))) - (_%E137877137914%_ - (lambda () - (if (gx#stx-pair? _%e137876137886%_) - (let ((_%e137879137894%_ - (gx#syntax-e _%e137876137886%_))) - (let ((_%hd137880137897%_ (##car _%e137879137894%_)) - (_%tl137881137899%_ (##cdr _%e137879137894%_))) - (if (gx#stx-pair? _%tl137881137899%_) - (let ((_%e137882137902%_ - (gx#syntax-e _%tl137881137899%_))) - (let ((_%hd137883137905%_ - (##car _%e137882137902%_)) - (_%tl137884137907%_ - (##cdr _%e137882137902%_))) - (let* ((_%rator137910%_ _%hd137883137905%_) - (_%args137912%_ _%tl137884137907%_)) + _%e141631141641%_))) + (_%E141632141669%_ + (lambda () + (if (gx#stx-pair? _%e141631141641%_) + (let ((_%e141634141649%_ + (gx#syntax-e _%e141631141641%_))) + (let ((_%hd141635141652%_ (##car _%e141634141649%_)) + (_%tl141636141654%_ (##cdr _%e141634141649%_))) + (if (gx#stx-pair? _%tl141636141654%_) + (let ((_%e141637141657%_ + (gx#syntax-e _%tl141636141654%_))) + (let ((_%hd141638141660%_ + (##car _%e141637141657%_)) + (_%tl141639141662%_ + (##cdr _%e141637141657%_))) + (let* ((_%rator141665%_ _%hd141638141660%_) + (_%args141667%_ _%tl141639141662%_)) (cons '%#call (cons (gx#core-compile-top-syntax - _%rator137910%_) + _%rator141665%_) (gx#stx-map1 gx#core-compile-top-syntax - _%args137912%_)))))) - (_%E137878137890%_)))) - (_%E137878137890%_))))) - (_%E137877137914%_)))) + _%args141667%_)))))) + (_%E141633141645%_)))) + (_%E141633141645%_))))) + (_%E141632141669%_)))) (define gx#core-compile-top-if% - (lambda (_%stx137808%_) - (let* ((_%e137809137825%_ _%stx137808%_) - (_%E137811137829%_ + (lambda (_%stx141563%_) + (let* ((_%e141564141580%_ _%stx141563%_) + (_%E141566141584%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e137809137825%_))) - (_%E137810137871%_ - (lambda () - (if (gx#stx-pair? _%e137809137825%_) - (let ((_%e137812137833%_ - (gx#syntax-e _%e137809137825%_))) - (let ((_%hd137813137836%_ (##car _%e137812137833%_)) - (_%tl137814137838%_ (##cdr _%e137812137833%_))) - (if (gx#stx-pair? _%tl137814137838%_) - (let ((_%e137815137841%_ - (gx#syntax-e _%tl137814137838%_))) - (let ((_%hd137816137844%_ - (##car _%e137815137841%_)) - (_%tl137817137846%_ - (##cdr _%e137815137841%_))) - (let ((_%test137849%_ _%hd137816137844%_)) - (if (gx#stx-pair? _%tl137817137846%_) - (let ((_%e137818137851%_ + _%e141564141580%_))) + (_%E141565141626%_ + (lambda () + (if (gx#stx-pair? _%e141564141580%_) + (let ((_%e141567141588%_ + (gx#syntax-e _%e141564141580%_))) + (let ((_%hd141568141591%_ (##car _%e141567141588%_)) + (_%tl141569141593%_ (##cdr _%e141567141588%_))) + (if (gx#stx-pair? _%tl141569141593%_) + (let ((_%e141570141596%_ + (gx#syntax-e _%tl141569141593%_))) + (let ((_%hd141571141599%_ + (##car _%e141570141596%_)) + (_%tl141572141601%_ + (##cdr _%e141570141596%_))) + (let ((_%test141604%_ _%hd141571141599%_)) + (if (gx#stx-pair? _%tl141572141601%_) + (let ((_%e141573141606%_ (gx#syntax-e - _%tl137817137846%_))) - (let ((_%hd137819137854%_ - (##car _%e137818137851%_)) - (_%tl137820137856%_ - (##cdr _%e137818137851%_))) - (let ((_%K137859%_ - _%hd137819137854%_)) + _%tl141572141601%_))) + (let ((_%hd141574141609%_ + (##car _%e141573141606%_)) + (_%tl141575141611%_ + (##cdr _%e141573141606%_))) + (let ((_%K141614%_ + _%hd141574141609%_)) (if (gx#stx-pair? - _%tl137820137856%_) - (let ((_%e137821137861%_ + _%tl141575141611%_) + (let ((_%e141576141616%_ (gx#syntax-e - _%tl137820137856%_))) - (let ((_%hd137822137864%_ - (##car _%e137821137861%_)) - (_%tl137823137866%_ - (##cdr _%e137821137861%_))) - (let ((_%E137869%_ - _%hd137822137864%_)) + _%tl141575141611%_))) + (let ((_%hd141577141619%_ + (##car _%e141576141616%_)) + (_%tl141578141621%_ + (##cdr _%e141576141616%_))) + (let ((_%E141624%_ + _%hd141577141619%_)) (if (gx#stx-null? - _%tl137823137866%_) + _%tl141578141621%_) (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-compile-top-syntax _%test137849%_) - (cons (gx#core-compile-top-syntax _%K137859%_) + (cons (gx#core-compile-top-syntax _%test141604%_) + (cons (gx#core-compile-top-syntax _%K141614%_) (cons (gx#core-compile-top-syntax - _%E137869%_) + _%E141624%_) '())))) - (_%E137811137829%_))))) + (_%E141566141584%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E137811137829%_))))) - (_%E137811137829%_))))) - (_%E137811137829%_)))) - (_%E137811137829%_))))) - (_%E137810137871%_)))) + (_%E141566141584%_))))) + (_%E141566141584%_))))) + (_%E141566141584%_)))) + (_%E141566141584%_))))) + (_%E141565141626%_)))) (define gx#core-compile-top-ref% - (lambda (_%stx137767%_) - (let* ((_%e137768137778%_ _%stx137767%_) - (_%E137770137782%_ + (lambda (_%stx141522%_) + (let* ((_%e141523141533%_ _%stx141522%_) + (_%E141525141537%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e137768137778%_))) - (_%E137769137804%_ - (lambda () - (if (gx#stx-pair? _%e137768137778%_) - (let ((_%e137771137786%_ - (gx#syntax-e _%e137768137778%_))) - (let ((_%hd137772137789%_ (##car _%e137771137786%_)) - (_%tl137773137791%_ (##cdr _%e137771137786%_))) - (if (gx#stx-pair? _%tl137773137791%_) - (let ((_%e137774137794%_ - (gx#syntax-e _%tl137773137791%_))) - (let ((_%hd137775137797%_ - (##car _%e137774137794%_)) - (_%tl137776137799%_ - (##cdr _%e137774137794%_))) - (let ((_%id137802%_ _%hd137775137797%_)) - (if (gx#stx-null? _%tl137776137799%_) - (if (gx#identifier? _%id137802%_) + _%e141523141533%_))) + (_%E141524141559%_ + (lambda () + (if (gx#stx-pair? _%e141523141533%_) + (let ((_%e141526141541%_ + (gx#syntax-e _%e141523141533%_))) + (let ((_%hd141527141544%_ (##car _%e141526141541%_)) + (_%tl141528141546%_ (##cdr _%e141526141541%_))) + (if (gx#stx-pair? _%tl141528141546%_) + (let ((_%e141529141549%_ + (gx#syntax-e _%tl141528141546%_))) + (let ((_%hd141530141552%_ + (##car _%e141529141549%_)) + (_%tl141531141554%_ + (##cdr _%e141529141549%_))) + (let ((_%id141557%_ _%hd141530141552%_)) + (if (gx#stx-null? _%tl141531141554%_) + (if (gx#identifier? _%id141557%_) (cons '%#ref (cons (gx#core-compile-top-runtime-ref - _%id137802%_) + _%id141557%_) '())) - (_%E137770137782%_)) - (_%E137770137782%_))))) - (_%E137770137782%_)))) - (_%E137770137782%_))))) - (_%E137769137804%_)))) + (_%E141525141537%_)) + (_%E141525141537%_))))) + (_%E141525141537%_)))) + (_%E141525141537%_))))) + (_%E141524141559%_)))) (define gx#core-compile-top-setq% - (lambda (_%stx137713%_) - (let* ((_%e137714137727%_ _%stx137713%_) - (_%E137716137731%_ + (lambda (_%stx141468%_) + (let* ((_%e141469141482%_ _%stx141468%_) + (_%E141471141486%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e137714137727%_))) - (_%E137715137763%_ - (lambda () - (if (gx#stx-pair? _%e137714137727%_) - (let ((_%e137717137735%_ - (gx#syntax-e _%e137714137727%_))) - (let ((_%hd137718137738%_ (##car _%e137717137735%_)) - (_%tl137719137740%_ (##cdr _%e137717137735%_))) - (if (gx#stx-pair? _%tl137719137740%_) - (let ((_%e137720137743%_ - (gx#syntax-e _%tl137719137740%_))) - (let ((_%hd137721137746%_ - (##car _%e137720137743%_)) - (_%tl137722137748%_ - (##cdr _%e137720137743%_))) - (let ((_%id137751%_ _%hd137721137746%_)) - (if (gx#stx-pair? _%tl137722137748%_) - (let ((_%e137723137753%_ + _%e141469141482%_))) + (_%E141470141518%_ + (lambda () + (if (gx#stx-pair? _%e141469141482%_) + (let ((_%e141472141490%_ + (gx#syntax-e _%e141469141482%_))) + (let ((_%hd141473141493%_ (##car _%e141472141490%_)) + (_%tl141474141495%_ (##cdr _%e141472141490%_))) + (if (gx#stx-pair? _%tl141474141495%_) + (let ((_%e141475141498%_ + (gx#syntax-e _%tl141474141495%_))) + (let ((_%hd141476141501%_ + (##car _%e141475141498%_)) + (_%tl141477141503%_ + (##cdr _%e141475141498%_))) + (let ((_%id141506%_ _%hd141476141501%_)) + (if (gx#stx-pair? _%tl141477141503%_) + (let ((_%e141478141508%_ (gx#syntax-e - _%tl137722137748%_))) - (let ((_%hd137724137756%_ - (##car _%e137723137753%_)) - (_%tl137725137758%_ - (##cdr _%e137723137753%_))) - (let ((_%expr137761%_ - _%hd137724137756%_)) + _%tl141477141503%_))) + (let ((_%hd141479141511%_ + (##car _%e141478141508%_)) + (_%tl141480141513%_ + (##cdr _%e141478141508%_))) + (let ((_%expr141516%_ + _%hd141479141511%_)) (if (gx#stx-null? - _%tl137725137758%_) + _%tl141480141513%_) (if (gx#identifier? - _%id137751%_) + _%id141506%_) (cons '%#set! (cons (gx#core-compile-top-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id137751%_) - (cons (gx#core-compile-top-syntax _%expr137761%_) + _%id141506%_) + (cons (gx#core-compile-top-syntax _%expr141516%_) '()))) - (_%E137716137731%_)) + (_%E141471141486%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E137716137731%_))))) - (_%E137716137731%_))))) - (_%E137716137731%_)))) - (_%E137716137731%_))))) - (_%E137715137763%_)))) + (_%E141471141486%_))))) + (_%E141471141486%_))))) + (_%E141471141486%_)))) + (_%E141471141486%_))))) + (_%E141470141518%_)))) (define gx#core-compile-top-runtime-ref - (lambda (_%id137707%_) - (let ((_%$e137709%_ (gx#resolve-identifier__0 _%id137707%_))) - (if _%$e137709%_ - (##unchecked-structure-ref _%$e137709%_ '1 '#f '#f) - _%id137707%_)))) + (lambda (_%id141462%_) + (let ((_%$e141464%_ (gx#resolve-identifier__0 _%id141462%_))) + (if _%$e141464%_ + (##unchecked-structure-ref _%$e141464%_ '1 '#f '#f) + _%id141462%_)))) (define gx#core-compile-top-runtime-bind - (lambda (_%hd137705%_) - (if (gx#identifier? _%hd137705%_) - (gx#core-compile-top-runtime-ref _%hd137705%_) + (lambda (_%hd141460%_) + (if (gx#identifier? _%hd141460%_) + (gx#core-compile-top-runtime-ref _%hd141460%_) '#f))))) diff --git a/src/bootstrap/gerbil/expander/core.ssi b/src/bootstrap/gerbil/expander/core.ssi index ea444bad58..7ed52004e2 100644 --- a/src/bootstrap/gerbil/expander/core.ssi +++ b/src/bootstrap/gerbil/expander/core.ssi @@ -1061,6 +1061,7 @@ namespace: gx (%#define-runtime syntax-local-rewrap gx#syntax-local-rewrap) (%#define-runtime syntax-local-unwrap gx#syntax-local-unwrap) (%#define-runtime syntax-local-introduce gx#syntax-local-introduce) + (%#define-runtime syntax-local-temp gx#syntax-local-temp) (%#begin (%#define-runtime syntax-local-e__% gx#syntax-local-e__%) (%#begin (%#define-runtime syntax-local-e__0 diff --git a/src/bootstrap/gerbil/expander/core.ssxi.ss b/src/bootstrap/gerbil/expander/core.ssxi.ss index 818194f980..3a8aec908d 100644 --- a/src/bootstrap/gerbil/expander/core.ssxi.ss +++ b/src/bootstrap/gerbil/expander/core.ssxi.ss @@ -3721,6 +3721,21 @@ package: gerbil/expander #f origin: gerbil/expander/core))) + (declare-type + gx#syntax-local-temp + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/expander/core))) (declare-type gx#syntax-local-e__% (@lambda 2 diff --git a/src/bootstrap/gerbil/expander/core~0.scm b/src/bootstrap/gerbil/expander/core~0.scm index 09e5337e2f..e01e51fab7 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 1756721295) + (define gerbil/expander/core::timestamp 1769384628) (begin (declare (not safe)) (define gx#current-expander-context (make-parameter '#f)) @@ -21,13 +21,13 @@ 'expander-context (list) '(id table) - (cons (cons 'struct: '#t) '((print: id))) + (cons (cons 'struct: '#t) '()) ':init!)) (define gx#expander-context? (__make-class-predicate gx#expander-context::t)) (define gx#make-expander-context - (lambda _%$args129974%_ - (apply make-instance gx#expander-context::t _%$args129974%_))) + (lambda _%$args133735%_ + (apply make-instance gx#expander-context::t _%$args133735%_))) (define gx#expander-context-id (__make-class-slot-accessor gx#expander-context::t 'id)) (define gx#expander-context-table @@ -54,8 +54,8 @@ '#f)) (define gx#root-context? (__make-class-predicate gx#root-context::t)) (define gx#make-root-context - (lambda _%$args129971%_ - (apply make-instance gx#root-context::t _%$args129971%_))) + (lambda _%$args133732%_ + (apply make-instance gx#root-context::t _%$args133732%_))) (define gx#root-context-id (__make-class-slot-accessor gx#root-context::t 'id)) (define gx#root-context-table @@ -82,8 +82,8 @@ '#f)) (define gx#phi-context? (__make-class-predicate gx#phi-context::t)) (define gx#make-phi-context - (lambda _%$args129968%_ - (apply make-instance gx#phi-context::t _%$args129968%_))) + (lambda _%$args133729%_ + (apply make-instance gx#phi-context::t _%$args133729%_))) (define gx#phi-context-super (__make-class-slot-accessor gx#phi-context::t 'super)) (define gx#phi-context-up @@ -134,8 +134,8 @@ '#f)) (define gx#top-context? (__make-class-predicate gx#top-context::t)) (define gx#make-top-context - (lambda _%$args129965%_ - (apply make-instance gx#top-context::t _%$args129965%_))) + (lambda _%$args133726%_ + (apply make-instance gx#top-context::t _%$args133726%_))) (define gx#top-context-super (__make-class-slot-accessor gx#top-context::t 'super)) (define gx#top-context-up @@ -186,8 +186,8 @@ '#f)) (define gx#module-context? (__make-class-predicate gx#module-context::t)) (define gx#make-module-context - (lambda _%$args129962%_ - (apply make-instance gx#module-context::t _%$args129962%_))) + (lambda _%$args133723%_ + (apply make-instance gx#module-context::t _%$args133723%_))) (define gx#module-context-ns (__make-class-slot-accessor gx#module-context::t 'ns)) (define gx#module-context-path @@ -286,8 +286,8 @@ '#f)) (define gx#prelude-context? (__make-class-predicate gx#prelude-context::t)) (define gx#make-prelude-context - (lambda _%$args129959%_ - (apply make-instance gx#prelude-context::t _%$args129959%_))) + (lambda _%$args133720%_ + (apply make-instance gx#prelude-context::t _%$args133720%_))) (define gx#prelude-context-path (__make-class-slot-accessor gx#prelude-context::t 'path)) (define gx#prelude-context-import @@ -362,8 +362,8 @@ '#f)) (define gx#local-context? (__make-class-predicate gx#local-context::t)) (define gx#make-local-context - (lambda _%$args129956%_ - (apply make-instance gx#local-context::t _%$args129956%_))) + (lambda _%$args133717%_ + (apply make-instance gx#local-context::t _%$args133717%_))) (define gx#local-context-super (__make-class-slot-accessor gx#local-context::t 'super)) (define gx#local-context-up @@ -405,95 +405,95 @@ (define gx#&local-context-table-set! (__make-class-slot-unchecked-mutator gx#local-context::t 'table)) (define gx#phi-context:::init!__% - (lambda (_%self129929%_ _%id129930%_ _%super129931%_) - (let ((_%self129934%_ _%self129929%_)) - (if (##fx< '3 (##structure-length _%self129934%_)) + (lambda (_%self133690%_ _%id133691%_ _%super133692%_) + (let ((_%self133695%_ _%self133690%_)) + (if (##fx< '3 (##structure-length _%self133695%_)) (begin (##unchecked-structure-set! - _%self129934%_ - _%id129930%_ + _%self133695%_ + _%id133691%_ '1 '#f '#f) (##unchecked-structure-set! - _%self129934%_ + _%self133695%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self129934%_ - _%super129931%_ + _%self133695%_ + _%super133692%_ '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self129934%_ + _%self133695%_ '3 - (##structure-length _%self129934%_)))))) + (##structure-length _%self133695%_)))))) (define gx#phi-context:::init!__0 - (lambda (_%self129947%_ _%id129948%_) - (let ((_%super129950%_ (gx#current-expander-context))) + (lambda (_%self133708%_ _%id133709%_) + (let ((_%super133711%_ (gx#current-expander-context))) (gx#phi-context:::init!__% - _%self129947%_ - _%id129948%_ - _%super129950%_)))) + _%self133708%_ + _%id133709%_ + _%super133711%_)))) (define gx#phi-context:::init! - (lambda _g130016_ - (let ((_g130017_ (##length _g130016_))) - (cond ((##fx= _g130017_ 2) - (apply gx#phi-context:::init!__0 _g130016_)) - ((##fx= _g130017_ 3) - (apply gx#phi-context:::init!__% _g130016_)) + (lambda _g133777_ + (let ((_g133778_ (##length _g133777_))) + (cond ((##fx= _g133778_ 2) + (apply gx#phi-context:::init!__0 _g133777_)) + ((##fx= _g133778_ 3) + (apply gx#phi-context:::init!__% _g133777_)) (else (##raise-wrong-number-of-arguments-exception gx#phi-context:::init! - _g130016_)))))) + _g133777_)))))) (__bind-method!__% gx#phi-context::t ':init! gx#phi-context:::init! '#f) (define gx#local-context:::init!__% - (lambda (_%self129782%_ _%super129783%_) - (let ((_%self129786%_ _%self129782%_)) - (if (##fx< '3 (##structure-length _%self129786%_)) + (lambda (_%self133543%_ _%super133544%_) + (let ((_%self133547%_ _%self133543%_)) + (if (##fx< '3 (##structure-length _%self133547%_)) (begin (##unchecked-structure-set! - _%self129786%_ + _%self133547%_ (##gensym 'L) '1 '#f '#f) (##unchecked-structure-set! - _%self129786%_ + _%self133547%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self129786%_ - _%super129783%_ + _%self133547%_ + _%super133544%_ '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self129786%_ + _%self133547%_ '3 - (##structure-length _%self129786%_)))))) + (##structure-length _%self133547%_)))))) (define gx#local-context:::init!__0 - (lambda (_%self129799%_) - (let ((_%super129801%_ (gx#current-expander-context))) - (gx#local-context:::init!__% _%self129799%_ _%super129801%_)))) + (lambda (_%self133560%_) + (let ((_%super133562%_ (gx#current-expander-context))) + (gx#local-context:::init!__% _%self133560%_ _%super133562%_)))) (define gx#local-context:::init! - (lambda _g130018_ - (let ((_g130019_ (##length _g130018_))) - (cond ((##fx= _g130019_ 1) - (apply gx#local-context:::init!__0 _g130018_)) - ((##fx= _g130019_ 2) - (apply gx#local-context:::init!__% _g130018_)) + (lambda _g133779_ + (let ((_g133780_ (##length _g133779_))) + (cond ((##fx= _g133780_ 1) + (apply gx#local-context:::init!__0 _g133779_)) + ((##fx= _g133780_ 2) + (apply gx#local-context:::init!__% _g133779_)) (else (##raise-wrong-number-of-arguments-exception gx#local-context:::init! - _g130018_)))))) + _g133779_)))))) (__bind-method!__% gx#local-context::t ':init! @@ -505,12 +505,12 @@ 'binding (list) '(id key phi) - (cons (cons 'struct: '#t) '((transparent: . #t))) + (cons (cons 'struct: '#t) '()) '#f)) (define gx#binding? (__make-class-predicate gx#binding::t)) (define gx#make-binding - (lambda _%$args129656%_ - (apply make-instance gx#binding::t _%$args129656%_))) + (lambda _%$args133417%_ + (apply make-instance gx#binding::t _%$args133417%_))) (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)) @@ -535,12 +535,12 @@ 'runtime-binding (list gx#binding::t) '() - (cons (cons 'struct: '#t) '((transparent: . #t))) + (cons (cons 'struct: '#t) '()) '#f)) (define gx#runtime-binding? (__make-class-predicate gx#runtime-binding::t)) (define gx#make-runtime-binding - (lambda _%$args129653%_ - (apply make-instance gx#runtime-binding::t _%$args129653%_))) + (lambda _%$args133414%_ + (apply make-instance gx#runtime-binding::t _%$args133414%_))) (define gx#runtime-binding-id (__make-class-slot-accessor gx#runtime-binding::t 'id)) (define gx#runtime-binding-key @@ -571,12 +571,12 @@ 'local-binding (list gx#runtime-binding::t) '() - (cons (cons 'struct: '#t) '((transparent: . #t))) + (cons (cons 'struct: '#t) '()) '#f)) (define gx#local-binding? (__make-class-predicate gx#local-binding::t)) (define gx#make-local-binding - (lambda _%$args129650%_ - (apply make-instance gx#local-binding::t _%$args129650%_))) + (lambda _%$args133411%_ + (apply make-instance gx#local-binding::t _%$args133411%_))) (define gx#local-binding-id (__make-class-slot-accessor gx#local-binding::t 'id)) (define gx#local-binding-key @@ -607,12 +607,12 @@ 'top-binding (list gx#runtime-binding::t) '() - (cons (cons 'struct: '#t) '((transparent: . #t))) + (cons (cons 'struct: '#t) '()) '#f)) (define gx#top-binding? (__make-class-predicate gx#top-binding::t)) (define gx#make-top-binding - (lambda _%$args129647%_ - (apply make-instance gx#top-binding::t _%$args129647%_))) + (lambda _%$args133408%_ + (apply make-instance gx#top-binding::t _%$args133408%_))) (define gx#top-binding-id (__make-class-slot-accessor gx#top-binding::t 'id)) (define gx#top-binding-key @@ -643,12 +643,12 @@ 'module-binding (list gx#top-binding::t) '(context) - (cons (cons 'struct: '#t) '((transparent: . #t))) + (cons (cons 'struct: '#t) '()) '#f)) (define gx#module-binding? (__make-class-predicate gx#module-binding::t)) (define gx#make-module-binding - (lambda _%$args129644%_ - (apply make-instance gx#module-binding::t _%$args129644%_))) + (lambda _%$args133405%_ + (apply make-instance gx#module-binding::t _%$args133405%_))) (define gx#module-binding-context (__make-class-slot-accessor gx#module-binding::t 'context)) (define gx#module-binding-id @@ -687,12 +687,12 @@ 'extern-binding (list gx#top-binding::t) '() - (cons (cons 'struct: '#t) '((transparent: . #t))) + (cons (cons 'struct: '#t) '()) '#f)) (define gx#extern-binding? (__make-class-predicate gx#extern-binding::t)) (define gx#make-extern-binding - (lambda _%$args129641%_ - (apply make-instance gx#extern-binding::t _%$args129641%_))) + (lambda _%$args133402%_ + (apply make-instance gx#extern-binding::t _%$args133402%_))) (define gx#extern-binding-id (__make-class-slot-accessor gx#extern-binding::t 'id)) (define gx#extern-binding-key @@ -723,13 +723,12 @@ 'syntax-binding (list gx#binding::t) '(e) - (cons (cons 'struct: '#t) - (cons (cons 'final: '#t) '((transparent: . #t)))) + (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())) '#f)) (define gx#syntax-binding? (__make-class-predicate gx#syntax-binding::t)) (define gx#make-syntax-binding - (lambda _%$args129638%_ - (apply make-instance gx#syntax-binding::t _%$args129638%_))) + (lambda _%$args133399%_ + (apply make-instance gx#syntax-binding::t _%$args133399%_))) (define gx#syntax-binding-e (__make-class-slot-accessor gx#syntax-binding::t 'e)) (define gx#syntax-binding-id @@ -768,13 +767,12 @@ 'import-binding (list gx#binding::t) '(e context weak?) - (cons (cons 'struct: '#t) - (cons (cons 'final: '#t) '((transparent: . #t)))) + (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())) '#f)) (define gx#import-binding? (__make-class-predicate gx#import-binding::t)) (define gx#make-import-binding - (lambda _%$args129635%_ - (apply make-instance gx#import-binding::t _%$args129635%_))) + (lambda _%$args133396%_ + (apply make-instance gx#import-binding::t _%$args133396%_))) (define gx#import-binding-e (__make-class-slot-accessor gx#import-binding::t 'e)) (define gx#import-binding-context @@ -829,13 +827,12 @@ 'alias-binding (list gx#binding::t) '(e) - (cons (cons 'struct: '#t) - (cons (cons 'final: '#t) '((transparent: . #t)))) + (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())) '#f)) (define gx#alias-binding? (__make-class-predicate gx#alias-binding::t)) (define gx#make-alias-binding - (lambda _%$args129632%_ - (apply make-instance gx#alias-binding::t _%$args129632%_))) + (lambda _%$args133393%_ + (apply make-instance gx#alias-binding::t _%$args133393%_))) (define gx#alias-binding-e (__make-class-slot-accessor gx#alias-binding::t 'e)) (define gx#alias-binding-id @@ -878,8 +875,8 @@ '#f)) (define gx#expander? (__make-class-predicate gx#expander::t)) (define gx#make-expander - (lambda _%$args129629%_ - (apply make-instance gx#expander::t _%$args129629%_))) + (lambda _%$args133390%_ + (apply make-instance gx#expander::t _%$args133390%_))) (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 @@ -896,8 +893,8 @@ '#f)) (define gx#core-expander? (__make-class-predicate gx#core-expander::t)) (define gx#make-core-expander - (lambda _%$args129626%_ - (apply make-instance gx#core-expander::t _%$args129626%_))) + (lambda _%$args133387%_ + (apply make-instance gx#core-expander::t _%$args133387%_))) (define gx#core-expander-id (__make-class-slot-accessor gx#core-expander::t 'id)) (define gx#core-expander-compile-top @@ -932,8 +929,8 @@ '#f)) (define gx#expression-form? (__make-class-predicate gx#expression-form::t)) (define gx#make-expression-form - (lambda _%$args129623%_ - (apply make-instance gx#expression-form::t _%$args129623%_))) + (lambda _%$args133384%_ + (apply make-instance gx#expression-form::t _%$args133384%_))) (define gx#expression-form-id (__make-class-slot-accessor gx#expression-form::t 'id)) (define gx#expression-form-compile-top @@ -970,8 +967,8 @@ '#f)) (define gx#special-form? (__make-class-predicate gx#special-form::t)) (define gx#make-special-form - (lambda _%$args129620%_ - (apply make-instance gx#special-form::t _%$args129620%_))) + (lambda _%$args133381%_ + (apply make-instance gx#special-form::t _%$args133381%_))) (define gx#special-form-id (__make-class-slot-accessor gx#special-form::t 'id)) (define gx#special-form-compile-top @@ -1006,8 +1003,8 @@ '#f)) (define gx#definition-form? (__make-class-predicate gx#definition-form::t)) (define gx#make-definition-form - (lambda _%$args129617%_ - (apply make-instance gx#definition-form::t _%$args129617%_))) + (lambda _%$args133378%_ + (apply make-instance gx#definition-form::t _%$args133378%_))) (define gx#definition-form-id (__make-class-slot-accessor gx#definition-form::t 'id)) (define gx#definition-form-compile-top @@ -1045,8 +1042,8 @@ (define gx#top-special-form? (__make-class-predicate gx#top-special-form::t)) (define gx#make-top-special-form - (lambda _%$args129614%_ - (apply make-instance gx#top-special-form::t _%$args129614%_))) + (lambda _%$args133375%_ + (apply make-instance gx#top-special-form::t _%$args133375%_))) (define gx#top-special-form-id (__make-class-slot-accessor gx#top-special-form::t 'id)) (define gx#top-special-form-compile-top @@ -1086,8 +1083,8 @@ (define gx#module-special-form? (__make-class-predicate gx#module-special-form::t)) (define gx#make-module-special-form - (lambda _%$args129611%_ - (apply make-instance gx#module-special-form::t _%$args129611%_))) + (lambda _%$args133372%_ + (apply make-instance gx#module-special-form::t _%$args133372%_))) (define gx#module-special-form-id (__make-class-slot-accessor gx#module-special-form::t 'id)) (define gx#module-special-form-compile-top @@ -1127,8 +1124,8 @@ (define gx#feature-expander? (__make-class-predicate gx#feature-expander::t)) (define gx#make-feature-expander - (lambda _%$args129608%_ - (apply make-instance gx#feature-expander::t _%$args129608%_))) + (lambda _%$args133369%_ + (apply make-instance gx#feature-expander::t _%$args133369%_))) (define gx#feature-expander-e (__make-class-slot-accessor gx#feature-expander::t 'e)) (define gx#feature-expander-e-set! @@ -1148,8 +1145,8 @@ (define gx#private-feature-expander? (__make-class-predicate gx#private-feature-expander::t)) (define gx#make-private-feature-expander - (lambda _%$args129605%_ - (apply make-instance gx#private-feature-expander::t _%$args129605%_))) + (lambda _%$args133366%_ + (apply make-instance gx#private-feature-expander::t _%$args133366%_))) (define gx#private-feature-expander-e (__make-class-slot-accessor gx#private-feature-expander::t 'e)) (define gx#private-feature-expander-e-set! @@ -1169,8 +1166,8 @@ (define gx#reserved-expander? (__make-class-predicate gx#reserved-expander::t)) (define gx#make-reserved-expander - (lambda _%$args129602%_ - (apply make-instance gx#reserved-expander::t _%$args129602%_))) + (lambda _%$args133363%_ + (apply make-instance gx#reserved-expander::t _%$args133363%_))) (define gx#reserved-expander-e (__make-class-slot-accessor gx#reserved-expander::t 'e)) (define gx#reserved-expander-e-set! @@ -1189,8 +1186,8 @@ '#f)) (define gx#macro-expander? (__make-class-predicate gx#macro-expander::t)) (define gx#make-macro-expander - (lambda _%$args129599%_ - (apply make-instance gx#macro-expander::t _%$args129599%_))) + (lambda _%$args133360%_ + (apply make-instance gx#macro-expander::t _%$args133360%_))) (define gx#macro-expander-e (__make-class-slot-accessor gx#macro-expander::t 'e)) (define gx#macro-expander-e-set! @@ -1210,8 +1207,8 @@ (define gx#rename-macro-expander? (__make-class-predicate gx#rename-macro-expander::t)) (define gx#make-rename-macro-expander - (lambda _%$args129596%_ - (apply make-instance gx#rename-macro-expander::t _%$args129596%_))) + (lambda _%$args133357%_ + (apply make-instance gx#rename-macro-expander::t _%$args133357%_))) (define gx#rename-macro-expander-e (__make-class-slot-accessor gx#rename-macro-expander::t 'e)) (define gx#rename-macro-expander-e-set! @@ -1230,8 +1227,8 @@ '#f)) (define gx#user-expander? (__make-class-predicate gx#user-expander::t)) (define gx#make-user-expander - (lambda _%$args129593%_ - (apply make-instance gx#user-expander::t _%$args129593%_))) + (lambda _%$args133354%_ + (apply make-instance gx#user-expander::t _%$args133354%_))) (define gx#user-expander-context (__make-class-slot-accessor gx#user-expander::t 'context)) (define gx#user-expander-phi @@ -1266,8 +1263,8 @@ '#f)) (define gx#expander-mark? (__make-class-predicate gx#expander-mark::t)) (define gx#make-expander-mark - (lambda _%$args129590%_ - (apply make-instance gx#expander-mark::t _%$args129590%_))) + (lambda _%$args133351%_ + (apply make-instance gx#expander-mark::t _%$args133351%_))) (define gx#expander-mark-subst (__make-class-slot-accessor gx#expander-mark::t 'subst)) (define gx#expander-mark-context @@ -1301,980 +1298,980 @@ (define gx#&expander-mark-trace-set! (__make-class-slot-unchecked-mutator gx#expander-mark::t 'trace)) (define gx#raise-syntax-error - (lambda (_%ctx129574%_ - _%message129575%_ - _%stx129576%_ + (lambda (_%ctx133335%_ + _%message133336%_ + _%stx133337%_ . - _%details129577%_) - (let ((_%ctx129588%_ - (let ((_%$e129579%_ _%ctx129574%_)) - (if _%$e129579%_ - _%$e129579%_ - (let ((_%$e129582%_ (gx#core-context-top__0))) - (if _%$e129582%_ - ((lambda (_%ctx129585%_) + _%details133338%_) + (let ((_%ctx133349%_ + (let ((_%$e133340%_ _%ctx133335%_)) + (if _%$e133340%_ + _%$e133340%_ + (let ((_%$e133343%_ (gx#core-context-top__0))) + (if _%$e133343%_ + ((lambda (_%ctx133346%_) (cons 'expand (cons (##structure-ref - _%ctx129585%_ + _%ctx133346%_ '1 gx#expander-context::t '#f) '()))) - _%$e129582%_) + _%$e133343%_) '#f)))))) (raise (make-syntax-error - _%message129575%_ - (cons _%stx129576%_ _%details129577%_) - _%ctx129588%_ + _%message133336%_ + (cons _%stx133337%_ _%details133338%_) + _%ctx133349%_ (gx#current-expander-context) (gx#current-expander-marks) (gx#current-expander-phi)))))) (define gx#eval-syntax__% - (lambda (_%stx129561%_ _%expression?129562%_) + (lambda (_%stx133322%_ _%expression?133323%_) (gx#eval-syntax* - (gx#core-expand__% _%stx129561%_ _%expression?129562%_)))) + (gx#core-expand__% _%stx133322%_ _%expression?133323%_)))) (define gx#eval-syntax__0 - (lambda (_%stx129567%_) - (let ((_%expression?129569%_ '#f)) - (gx#eval-syntax__% _%stx129567%_ _%expression?129569%_)))) + (lambda (_%stx133328%_) + (let ((_%expression?133330%_ '#f)) + (gx#eval-syntax__% _%stx133328%_ _%expression?133330%_)))) (define gx#eval-syntax - (lambda _g130020_ - (let ((_g130021_ (##length _g130020_))) - (cond ((##fx= _g130021_ 1) (apply gx#eval-syntax__0 _g130020_)) - ((##fx= _g130021_ 2) (apply gx#eval-syntax__% _g130020_)) + (lambda _g133781_ + (let ((_g133782_ (##length _g133781_))) + (cond ((##fx= _g133782_ 1) (apply gx#eval-syntax__0 _g133781_)) + ((##fx= _g133782_ 2) (apply gx#eval-syntax__% _g133781_)) (else (##raise-wrong-number-of-arguments-exception gx#eval-syntax - _g130020_)))))) + _g133781_)))))) (define gx#eval-syntax* - (lambda (_%stx129558%_) + (lambda (_%stx133319%_) ((gx#current-expander-eval) - ((gx#current-expander-compile) _%stx129558%_)))) + ((gx#current-expander-compile) _%stx133319%_)))) (define gx#core-expand__% - (lambda (_%stx129545%_ _%expression?129546%_) - (if _%expression?129546%_ - (gx#core-expand-expression _%stx129545%_) - (gx#core-expand-top _%stx129545%_)))) + (lambda (_%stx133306%_ _%expression?133307%_) + (if _%expression?133307%_ + (gx#core-expand-expression _%stx133306%_) + (gx#core-expand-top _%stx133306%_)))) (define gx#core-expand__0 - (lambda (_%stx129551%_) - (let ((_%expression?129553%_ '#f)) - (gx#core-expand__% _%stx129551%_ _%expression?129553%_)))) + (lambda (_%stx133312%_) + (let ((_%expression?133314%_ '#f)) + (gx#core-expand__% _%stx133312%_ _%expression?133314%_)))) (define gx#core-expand - (lambda _g130022_ - (let ((_g130023_ (##length _g130022_))) - (cond ((##fx= _g130023_ 1) (apply gx#core-expand__0 _g130022_)) - ((##fx= _g130023_ 2) (apply gx#core-expand__% _g130022_)) + (lambda _g133783_ + (let ((_g133784_ (##length _g133783_))) + (cond ((##fx= _g133784_ 1) (apply gx#core-expand__0 _g133783_)) + ((##fx= _g133784_ 2) (apply gx#core-expand__% _g133783_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand - _g130022_)))))) + _g133783_)))))) (define gx#core-expand-top - (lambda (_%stx129512%_) - (let* ((_%stx129514%_ (gx#core-expand*__0 _%stx129512%_)) - (_%e129515129522%_ _%stx129514%_) - (_%E129517129526%_ - (lambda () (gx#core-expand-expression _%stx129514%_))) - (_%E129516129540%_ + (lambda (_%stx133273%_) + (let* ((_%stx133275%_ (gx#core-expand*__0 _%stx133273%_)) + (_%e133276133283%_ _%stx133275%_) + (_%E133278133287%_ + (lambda () (gx#core-expand-expression _%stx133275%_))) + (_%E133277133301%_ (lambda () - (if (gx#stx-pair? _%e129515129522%_) - (let ((_%e129518129530%_ - (gx#syntax-e _%e129515129522%_))) - (let ((_%hd129519129533%_ (##car _%e129518129530%_)) - (_%tl129520129535%_ (##cdr _%e129518129530%_))) - (let ((_%form129538%_ _%hd129519129533%_)) - (if (gx#core-bound-identifier?__0 _%form129538%_) - _%stx129514%_ - (_%E129517129526%_))))) - (_%E129517129526%_))))) - (_%E129516129540%_)))) + (if (gx#stx-pair? _%e133276133283%_) + (let ((_%e133279133291%_ + (gx#syntax-e _%e133276133283%_))) + (let ((_%hd133280133294%_ (##car _%e133279133291%_)) + (_%tl133281133296%_ (##cdr _%e133279133291%_))) + (let ((_%form133299%_ _%hd133280133294%_)) + (if (gx#core-bound-identifier?__0 _%form133299%_) + _%stx133275%_ + (_%E133278133287%_))))) + (_%E133278133287%_))))) + (_%E133277133301%_)))) (define gx#core-expand-expression - (lambda (_%stx129444%_) - (letrec ((_%sealed-expression?129446%_ - (lambda (_%hd129482%_) - (if (gx#sealed-syntax? _%hd129482%_) - (let* ((_%e129483129490%_ _%hd129482%_) - (_%E129485129494%_ (lambda () '#f)) - (_%E129484129508%_ + (lambda (_%stx133205%_) + (letrec ((_%sealed-expression?133207%_ + (lambda (_%hd133243%_) + (if (gx#sealed-syntax? _%hd133243%_) + (let* ((_%e133244133251%_ _%hd133243%_) + (_%E133246133255%_ (lambda () '#f)) + (_%E133245133269%_ (lambda () - (if (gx#stx-pair? _%e129483129490%_) - (let ((_%e129486129498%_ - (gx#syntax-e _%e129483129490%_))) - (let ((_%hd129487129501%_ - (##car _%e129486129498%_)) - (_%tl129488129503%_ - (##cdr _%e129486129498%_))) - (let ((_%form129506%_ - _%hd129487129501%_)) + (if (gx#stx-pair? _%e133244133251%_) + (let ((_%e133247133259%_ + (gx#syntax-e _%e133244133251%_))) + (let ((_%hd133248133262%_ + (##car _%e133247133259%_)) + (_%tl133249133264%_ + (##cdr _%e133247133259%_))) + (let ((_%form133267%_ + _%hd133248133262%_)) (gx#core-bound-identifier?__% - _%form129506%_ + _%form133267%_ gx#expression-form-binding?)))) - (_%E129485129494%_))))) - (_%E129484129508%_)) + (_%E133246133255%_))))) + (_%E133245133269%_)) '#f))) - (_%illegal-expression129447%_ - (lambda (_%hd129479%_ . _%_129480%_) + (_%illegal-expression133208%_ + (lambda (_%hd133240%_ . _%_133241%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal expression" - _%stx129444%_ - _%hd129479%_))) - (_%expand-e129448%_ - (lambda (_%form129471%_ _%hd129472%_) - (let ((_%bind129474%_ + _%stx133205%_ + _%hd133240%_))) + (_%expand-e133209%_ + (lambda (_%form133232%_ _%hd133233%_) + (let ((_%bind133235%_ (if (##structure-instance-of? - _%form129471%_ + _%form133232%_ 'gx#binding::t) - _%form129471%_ - (gx#resolve-identifier__0 _%form129471%_)))) - (if (gx#core-expander-binding? _%bind129474%_) + _%form133232%_ + (gx#resolve-identifier__0 _%form133232%_)))) + (if (gx#core-expander-binding? _%bind133235%_) (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind129474%_ + _%bind133235%_ '4 '#f '#f) (gx#stx-wrap-source - _%hd129472%_ - (gx#stx-source _%stx129444%_))) + _%hd133233%_ + (gx#stx-source _%stx133205%_))) (if (##structure-direct-instance-of? - _%bind129474%_ + _%bind133235%_ 'gx#syntax-binding::t) (gx#core-expand-expression (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind129474%_ + _%bind133235%_ '4 '#f '#f) (gx#stx-wrap-source - _%hd129472%_ - (gx#stx-source _%stx129444%_)))) + _%hd133233%_ + (gx#stx-source _%stx133205%_)))) (gx#raise-syntax-error '#f '"Bad syntax; missing expander" - _%stx129444%_ - _%form129471%_))))))) - (let ((_%hd129450%_ (gx#core-expand-head _%stx129444%_))) - (if (_%sealed-expression?129446%_ _%hd129450%_) - _%hd129450%_ - (if (gx#stx-pair? _%hd129450%_) - (let* ((_%form129454%_ (gx#stx-car _%hd129450%_)) - (_%bind129456%_ - (if (gx#identifier? _%form129454%_) - (gx#resolve-identifier__0 _%form129454%_) + _%stx133205%_ + _%form133232%_))))))) + (let ((_%hd133211%_ (gx#core-expand-head _%stx133205%_))) + (if (_%sealed-expression?133207%_ _%hd133211%_) + _%hd133211%_ + (if (gx#stx-pair? _%hd133211%_) + (let* ((_%form133215%_ (gx#stx-car _%hd133211%_)) + (_%bind133217%_ + (if (gx#identifier? _%form133215%_) + (gx#resolve-identifier__0 _%form133215%_) '#f))) - (if (or (not _%bind129456%_) - (not (gx#core-expander-binding? _%bind129456%_))) - (_%expand-e129448%_ + (if (or (not _%bind133217%_) + (not (gx#core-expander-binding? _%bind133217%_))) + (_%expand-e133209%_ '%%app - (cons '%%app _%hd129450%_)) + (cons '%%app _%hd133211%_)) (if (eq? (##unchecked-structure-ref - _%bind129456%_ + _%bind133217%_ '1 '#f '#f) '%#begin) (gx#core-expand-block* - _%hd129450%_ - _%illegal-expression129447%_) - (if (gx#expression-form-binding? _%bind129456%_) - (_%expand-e129448%_ - _%bind129456%_ - _%hd129450%_) + _%hd133211%_ + _%illegal-expression133208%_) + (if (gx#expression-form-binding? _%bind133217%_) + (_%expand-e133209%_ + _%bind133217%_ + _%hd133211%_) (if (gx#direct-special-form-binding? - _%bind129456%_) + _%bind133217%_) (gx#core-expand-expression - (_%expand-e129448%_ - _%bind129456%_ - _%hd129450%_)) - (_%illegal-expression129447%_ - _%hd129450%_)))))) - (if (gx#core-bound-identifier?__0 _%hd129450%_) - (_%illegal-expression129447%_ _%hd129450%_) - (if (gx#identifier? _%hd129450%_) - (_%expand-e129448%_ + (_%expand-e133209%_ + _%bind133217%_ + _%hd133211%_)) + (_%illegal-expression133208%_ + _%hd133211%_)))))) + (if (gx#core-bound-identifier?__0 _%hd133211%_) + (_%illegal-expression133208%_ _%hd133211%_) + (if (gx#identifier? _%hd133211%_) + (_%expand-e133209%_ '%%ref - (cons '%%ref (cons _%hd129450%_ '()))) - (if (gx#stx-datum? _%hd129450%_) - (_%expand-e129448%_ + (cons '%%ref (cons _%hd133211%_ '()))) + (if (gx#stx-datum? _%hd133211%_) + (_%expand-e133209%_ '%#quote - (cons '%#quote (cons _%hd129450%_ '()))) - (_%illegal-expression129447%_ - _%hd129450%_)))))))))) + (cons '%#quote (cons _%hd133211%_ '()))) + (_%illegal-expression133208%_ + _%hd133211%_)))))))))) (define gx#core-expand-expression+1 - (lambda (_%stx129439%_) + (lambda (_%stx133200%_) (call-with-parameters__1 (lambda () - (let ((_%stx129442%_ (gx#core-expand-expression _%stx129439%_))) - (values _%stx129442%_ (gx#eval-syntax* _%stx129442%_)))) + (let ((_%stx133203%_ (gx#core-expand-expression _%stx133200%_))) + (values _%stx133203%_ (gx#eval-syntax* _%stx133203%_)))) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)))) (define gx#core-expand*__% - (lambda (_%stx129420%_ _%stop?129421%_) - (let _%lp129423%_ ((_%stx129425%_ _%stx129420%_)) - (if (_%stop?129421%_ _%stx129425%_) - _%stx129425%_ - (let ((_%rstx129427%_ (gx#core-expand1 _%stx129425%_))) - (if (eq? _%stx129425%_ _%rstx129427%_) - _%stx129425%_ - (_%lp129423%_ _%rstx129427%_))))))) + (lambda (_%stx133181%_ _%stop?133182%_) + (let _%lp133184%_ ((_%stx133186%_ _%stx133181%_)) + (if (_%stop?133182%_ _%stx133186%_) + _%stx133186%_ + (let ((_%rstx133188%_ (gx#core-expand1 _%stx133186%_))) + (if (eq? _%stx133186%_ _%rstx133188%_) + _%stx133186%_ + (_%lp133184%_ _%rstx133188%_))))))) (define gx#core-expand*__0 - (lambda (_%stx129432%_) - (let ((_%stop?129434%_ false)) - (gx#core-expand*__% _%stx129432%_ _%stop?129434%_)))) + (lambda (_%stx133193%_) + (let ((_%stop?133195%_ false)) + (gx#core-expand*__% _%stx133193%_ _%stop?133195%_)))) (define gx#core-expand* - (lambda _g130024_ - (let ((_g130025_ (##length _g130024_))) - (cond ((##fx= _g130025_ 1) (apply gx#core-expand*__0 _g130024_)) - ((##fx= _g130025_ 2) (apply gx#core-expand*__% _g130024_)) + (lambda _g133785_ + (let ((_g133786_ (##length _g133785_))) + (cond ((##fx= _g133786_ 1) (apply gx#core-expand*__0 _g133785_)) + ((##fx= _g133786_ 2) (apply gx#core-expand*__% _g133785_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand* - _g130024_)))))) + _g133785_)))))) (define gx#core-expand1 - (lambda (_%stx129372%_) - (letrec ((_%step129374%_ - (lambda (_%hd129411%_) - (let ((_%bind129413%_ - (gx#resolve-identifier__0 _%hd129411%_))) + (lambda (_%stx133133%_) + (letrec ((_%step133135%_ + (lambda (_%hd133172%_) + (let ((_%bind133174%_ + (gx#resolve-identifier__0 _%hd133172%_))) (if (##structure-instance-of? - _%bind129413%_ + _%bind133174%_ 'gx#runtime-binding::t) - _%stx129372%_ + _%stx133133%_ (if (##structure-direct-instance-of? - _%bind129413%_ + _%bind133174%_ 'gx#syntax-binding::t) (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind129413%_ + _%bind133174%_ '4 '#f '#f) - _%stx129372%_) - (if (not _%bind129413%_) - _%stx129372%_ + _%stx133133%_) + (if (not _%bind133174%_) + _%stx133133%_ (gx#raise-syntax-error '#f '"Bad syntax; no binding for head" - _%stx129372%_)))))))) - (let* ((_%e129375129383%_ _%stx129372%_) - (_%E129381129387%_ (lambda () _%stx129372%_)) - (_%E129377129393%_ + _%stx133133%_)))))))) + (let* ((_%e133136133144%_ _%stx133133%_) + (_%E133142133148%_ (lambda () _%stx133133%_)) + (_%E133138133154%_ (lambda () - (let ((_%hd129391%_ _%e129375129383%_)) - (if (gx#identifier? _%hd129391%_) - (_%step129374%_ _%hd129391%_) - (_%E129381129387%_))))) - (_%E129376129407%_ + (let ((_%hd133152%_ _%e133136133144%_)) + (if (gx#identifier? _%hd133152%_) + (_%step133135%_ _%hd133152%_) + (_%E133142133148%_))))) + (_%E133137133168%_ (lambda () - (if (gx#stx-pair? _%e129375129383%_) - (let ((_%e129378129397%_ - (gx#syntax-e _%e129375129383%_))) - (let ((_%hd129379129400%_ (##car _%e129378129397%_)) - (_%tl129380129402%_ (##cdr _%e129378129397%_))) - (let ((_%hd129405%_ _%hd129379129400%_)) - (if (gx#identifier? _%hd129405%_) - (_%step129374%_ _%hd129405%_) - (_%E129377129393%_))))) - (_%E129377129393%_))))) - (_%E129376129407%_))))) + (if (gx#stx-pair? _%e133136133144%_) + (let ((_%e133139133158%_ + (gx#syntax-e _%e133136133144%_))) + (let ((_%hd133140133161%_ (##car _%e133139133158%_)) + (_%tl133141133163%_ (##cdr _%e133139133158%_))) + (let ((_%hd133166%_ _%hd133140133161%_)) + (if (gx#identifier? _%hd133166%_) + (_%step133135%_ _%hd133166%_) + (_%E133138133154%_))))) + (_%E133138133154%_))))) + (_%E133137133168%_))))) (define gx#core-expand-head - (lambda (_%stx129338%_) - (letrec ((_%stop?129340%_ - (lambda (_%stx129342%_) - (let* ((_%e129343129350%_ _%stx129342%_) - (_%E129345129354%_ (lambda () '#f)) - (_%E129344129368%_ + (lambda (_%stx133099%_) + (letrec ((_%stop?133101%_ + (lambda (_%stx133103%_) + (let* ((_%e133104133111%_ _%stx133103%_) + (_%E133106133115%_ (lambda () '#f)) + (_%E133105133129%_ (lambda () - (if (gx#stx-pair? _%e129343129350%_) - (let ((_%e129346129358%_ - (gx#syntax-e _%e129343129350%_))) - (let ((_%hd129347129361%_ - (##car _%e129346129358%_)) - (_%tl129348129363%_ - (##cdr _%e129346129358%_))) - (let ((_%hd129366%_ _%hd129347129361%_)) + (if (gx#stx-pair? _%e133104133111%_) + (let ((_%e133107133119%_ + (gx#syntax-e _%e133104133111%_))) + (let ((_%hd133108133122%_ + (##car _%e133107133119%_)) + (_%tl133109133124%_ + (##cdr _%e133107133119%_))) + (let ((_%hd133127%_ _%hd133108133122%_)) (gx#core-bound-identifier?__0 - _%hd129366%_)))) - (_%E129345129354%_))))) - (_%E129344129368%_))))) - (gx#core-expand*__% _%stx129338%_ _%stop?129340%_)))) + _%hd133127%_)))) + (_%E133106133115%_))))) + (_%E133105133129%_))))) + (gx#core-expand*__% _%stx133099%_ _%stop?133101%_)))) (define gx#core-expand-block__% - (lambda (_%stx129144%_ - _%expand-special129145%_ - _%begin-form129146%_ - _%expand-e129147%_) - (letrec ((_%expand-splice129149%_ - (lambda (_%hd129312%_ - _%body129313%_ - _%rest129314%_ - _%r129315%_) - (if (gx#stx-list? _%body129313%_) - (_%K129153%_ - (gx#stx-foldr cons _%rest129314%_ _%body129313%_) - _%r129315%_) + (lambda (_%stx132905%_ + _%expand-special132906%_ + _%begin-form132907%_ + _%expand-e132908%_) + (letrec ((_%expand-splice132910%_ + (lambda (_%hd133073%_ + _%body133074%_ + _%rest133075%_ + _%r133076%_) + (if (gx#stx-list? _%body133074%_) + (_%K132914%_ + (gx#stx-foldr cons _%rest133075%_ _%body133074%_) + _%r133076%_) (gx#raise-syntax-error '#f '"Bad syntax; splice body isn't a list" - _%stx129144%_ - _%hd129312%_)))) - (_%expand-cond-expand129150%_ - (lambda (_%hd129308%_ _%rest129309%_ _%r129310%_) - (_%K129153%_ - (cons (gx#core-expand-cond-expand% _%hd129308%_) - _%rest129309%_) - _%r129310%_))) - (_%expand-include129151%_ - (lambda (_%hd129257%_ _%rest129258%_ _%r129259%_) - (let* ((_%e129260129270%_ _%hd129257%_) - (_%E129262129274%_ + _%stx132905%_ + _%hd133073%_)))) + (_%expand-cond-expand132911%_ + (lambda (_%hd133069%_ _%rest133070%_ _%r133071%_) + (_%K132914%_ + (cons (gx#core-expand-cond-expand% _%hd133069%_) + _%rest133070%_) + _%r133071%_))) + (_%expand-include132912%_ + (lambda (_%hd133018%_ _%rest133019%_ _%r133020%_) + (let* ((_%e133021133031%_ _%hd133018%_) + (_%E133023133035%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129260129270%_))) - (_%E129261129304%_ + _%e133021133031%_))) + (_%E133022133065%_ (lambda () - (if (gx#stx-pair? _%e129260129270%_) - (let ((_%e129263129278%_ - (gx#syntax-e _%e129260129270%_))) - (let ((_%hd129264129281%_ - (##car _%e129263129278%_)) - (_%tl129265129283%_ - (##cdr _%e129263129278%_))) - (if (gx#stx-pair? _%tl129265129283%_) - (let ((_%e129266129286%_ + (if (gx#stx-pair? _%e133021133031%_) + (let ((_%e133024133039%_ + (gx#syntax-e _%e133021133031%_))) + (let ((_%hd133025133042%_ + (##car _%e133024133039%_)) + (_%tl133026133044%_ + (##cdr _%e133024133039%_))) + (if (gx#stx-pair? _%tl133026133044%_) + (let ((_%e133027133047%_ (gx#syntax-e - _%tl129265129283%_))) - (let ((_%hd129267129289%_ - (##car _%e129266129286%_)) - (_%tl129268129291%_ - (##cdr _%e129266129286%_))) - (let ((_%path129294%_ - _%hd129267129289%_)) + _%tl133026133044%_))) + (let ((_%hd133028133050%_ + (##car _%e133027133047%_)) + (_%tl133029133052%_ + (##cdr _%e133027133047%_))) + (let ((_%path133055%_ + _%hd133028133050%_)) (if (gx#stx-null? - _%tl129268129291%_) + _%tl133029133052%_) (if (gx#stx-string? - _%path129294%_) - (let* ((_%rpath129296%_ + _%path133055%_) + (let* ((_%rpath133057%_ (gx#core-resolve-path__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%path129294%_ - (gx#stx-source _%hd129257%_))) - (_%block129298%_ + _%path133055%_ + (gx#stx-source _%hd133018%_))) + (_%block133059%_ (gx#core-expand-include%__% - _%hd129257%_ - _%rpath129296%_)) - (_%rbody129301%_ + _%hd133018%_ + _%rpath133057%_)) + (_%rbody133062%_ (call-with-parameters__1 (lambda () (gx#core-expand-block__% - _%block129298%_ - _%expand-special129145%_ + _%block133059%_ + _%expand-special132906%_ '#f - _%expand-e129147%_)) + _%expand-e132908%_)) gx#current-expander-path - (cons _%rpath129296%_ (gx#current-expander-path))))) - (_%K129153%_ - _%rest129258%_ - (__foldr1 cons _%r129259%_ _%rbody129301%_))) - (_%E129262129274%_)) + (cons _%rpath133057%_ (gx#current-expander-path))))) + (_%K132914%_ + _%rest133019%_ + (__foldr1 cons _%r133020%_ _%rbody133062%_))) + (_%E133023133035%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129262129274%_))))) - (_%E129262129274%_)))) - (_%E129262129274%_))))) - (_%E129261129304%_)))) - (_%expand-expression129152%_ - (lambda (_%hd129253%_ _%rest129254%_ _%r129255%_) - (_%K129153%_ - _%rest129254%_ - (cons (_%expand-e129147%_ _%hd129253%_) _%r129255%_)))) - (_%K129153%_ - (lambda (_%rest129183%_ _%r129184%_) - (let* ((_%e129185129192%_ _%rest129183%_) - (_%E129187129196%_ + (_%E133023133035%_))))) + (_%E133023133035%_)))) + (_%E133023133035%_))))) + (_%E133022133065%_)))) + (_%expand-expression132913%_ + (lambda (_%hd133014%_ _%rest133015%_ _%r133016%_) + (_%K132914%_ + _%rest133015%_ + (cons (_%expand-e132908%_ _%hd133014%_) _%r133016%_)))) + (_%K132914%_ + (lambda (_%rest132944%_ _%r132945%_) + (let* ((_%e132946132953%_ _%rest132944%_) + (_%E132948132957%_ (lambda () - (if _%begin-form129146%_ + (if _%begin-form132907%_ (gx#core-quote-syntax__1 (gx#core-cons - _%begin-form129146%_ - (reverse _%r129184%_)) - (gx#stx-source _%stx129144%_)) - _%r129184%_))) - (_%E129186129249%_ + _%begin-form132907%_ + (reverse _%r132945%_)) + (gx#stx-source _%stx132905%_)) + _%r132945%_))) + (_%E132947133010%_ (lambda () - (if (gx#stx-pair? _%e129185129192%_) - (let ((_%e129188129200%_ - (gx#syntax-e _%e129185129192%_))) - (let ((_%hd129189129203%_ - (##car _%e129188129200%_)) - (_%tl129190129205%_ - (##cdr _%e129188129200%_))) - (let* ((_%hd129208%_ _%hd129189129203%_) - (_%rest129210%_ - _%tl129190129205%_) - (_%hd129212%_ + (if (gx#stx-pair? _%e132946132953%_) + (let ((_%e132949132961%_ + (gx#syntax-e _%e132946132953%_))) + (let ((_%hd132950132964%_ + (##car _%e132949132961%_)) + (_%tl132951132966%_ + (##cdr _%e132949132961%_))) + (let* ((_%hd132969%_ _%hd132950132964%_) + (_%rest132971%_ + _%tl132951132966%_) + (_%hd132973%_ (gx#core-expand-head - _%hd129208%_)) - (_%e129213129220%_ _%hd129212%_) - (_%E129215129224%_ + _%hd132969%_)) + (_%e132974132981%_ _%hd132973%_) + (_%E132976132985%_ (lambda () - (_%expand-expression129152%_ - _%hd129212%_ - _%rest129210%_ - _%r129184%_))) - (_%E129214129245%_ + (_%expand-expression132913%_ + _%hd132973%_ + _%rest132971%_ + _%r132945%_))) + (_%E132975133006%_ (lambda () (if (gx#stx-pair? - _%e129213129220%_) - (let ((_%e129216129228%_ + _%e132974132981%_) + (let ((_%e132977132989%_ (gx#syntax-e - _%e129213129220%_))) - (let ((_%hd129217129231%_ - (##car _%e129216129228%_)) - (_%tl129218129233%_ - (##cdr _%e129216129228%_))) - (let* ((_%form129236%_ - _%hd129217129231%_) - (_%body129238%_ - _%tl129218129233%_) - (_%bind129240%_ + _%e132974132981%_))) + (let ((_%hd132978132992%_ + (##car _%e132977132989%_)) + (_%tl132979132994%_ + (##cdr _%e132977132989%_))) + (let* ((_%form132997%_ + _%hd132978132992%_) + (_%body132999%_ + _%tl132979132994%_) + (_%bind133001%_ (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%form129236%_) - (gx#resolve-identifier__0 _%form129236%_) + _%form132997%_) + (gx#resolve-identifier__0 _%form132997%_) '#f))) - (if (gx#special-form-binding? _%bind129240%_) - (let ((_%$e129242%_ + (if (gx#special-form-binding? _%bind133001%_) + (let ((_%$e133003%_ (##unchecked-structure-ref - _%bind129240%_ + _%bind133001%_ '1 '#f '#f))) - (if (eq? '%#begin _%$e129242%_) - (_%expand-splice129149%_ - _%hd129212%_ - _%body129238%_ - _%rest129210%_ - _%r129184%_) - (if (eq? '%#cond-expand _%$e129242%_) - (_%expand-cond-expand129150%_ - _%hd129212%_ - _%rest129210%_ - _%r129184%_) - (if (eq? '%#include _%$e129242%_) - (_%expand-include129151%_ - _%hd129212%_ - _%rest129210%_ - _%r129184%_) - (_%expand-special129145%_ - _%hd129212%_ - _%K129153%_ - _%rest129210%_ - _%r129184%_))))) - (_%expand-expression129152%_ - _%hd129212%_ - _%rest129210%_ - _%r129184%_))))) + (if (eq? '%#begin _%$e133003%_) + (_%expand-splice132910%_ + _%hd132973%_ + _%body132999%_ + _%rest132971%_ + _%r132945%_) + (if (eq? '%#cond-expand _%$e133003%_) + (_%expand-cond-expand132911%_ + _%hd132973%_ + _%rest132971%_ + _%r132945%_) + (if (eq? '%#include _%$e133003%_) + (_%expand-include132912%_ + _%hd132973%_ + _%rest132971%_ + _%r132945%_) + (_%expand-special132906%_ + _%hd132973%_ + _%K132914%_ + _%rest132971%_ + _%r132945%_))))) + (_%expand-expression132913%_ + _%hd132973%_ + _%rest132971%_ + _%r132945%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129215129224%_))))) - (_%E129214129245%_)))) - (_%E129187129196%_))))) - (_%E129186129249%_))))) - (let* ((_%e129154129161%_ _%stx129144%_) - (_%E129156129165%_ + (_%E132976132985%_))))) + (_%E132975133006%_)))) + (_%E132948132957%_))))) + (_%E132947133010%_))))) + (let* ((_%e132915132922%_ _%stx132905%_) + (_%E132917132926%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129154129161%_))) - (_%E129155129179%_ + _%e132915132922%_))) + (_%E132916132940%_ (lambda () - (if (gx#stx-pair? _%e129154129161%_) - (let ((_%e129157129169%_ - (gx#syntax-e _%e129154129161%_))) - (let ((_%hd129158129172%_ (##car _%e129157129169%_)) - (_%tl129159129174%_ (##cdr _%e129157129169%_))) - (let ((_%body129177%_ _%tl129159129174%_)) - (if (gx#stx-list? _%body129177%_) - (_%K129153%_ _%body129177%_ '()) - (_%E129156129165%_))))) - (_%E129156129165%_))))) - (_%E129155129179%_))))) + (if (gx#stx-pair? _%e132915132922%_) + (let ((_%e132918132930%_ + (gx#syntax-e _%e132915132922%_))) + (let ((_%hd132919132933%_ (##car _%e132918132930%_)) + (_%tl132920132935%_ (##cdr _%e132918132930%_))) + (let ((_%body132938%_ _%tl132920132935%_)) + (if (gx#stx-list? _%body132938%_) + (_%K132914%_ _%body132938%_ '()) + (_%E132917132926%_))))) + (_%E132917132926%_))))) + (_%E132916132940%_))))) (define gx#core-expand-block__0 - (lambda (_%stx129320%_ _%expand-special129321%_) - (let* ((_%begin-form129323%_ '%#begin) - (_%expand-e129325%_ gx#core-expand-expression)) + (lambda (_%stx133081%_ _%expand-special133082%_) + (let* ((_%begin-form133084%_ '%#begin) + (_%expand-e133086%_ gx#core-expand-expression)) (gx#core-expand-block__% - _%stx129320%_ - _%expand-special129321%_ - _%begin-form129323%_ - _%expand-e129325%_)))) + _%stx133081%_ + _%expand-special133082%_ + _%begin-form133084%_ + _%expand-e133086%_)))) (define gx#core-expand-block__1 - (lambda (_%stx129327%_ _%expand-special129328%_ _%begin-form129329%_) - (let ((_%expand-e129331%_ gx#core-expand-expression)) + (lambda (_%stx133088%_ _%expand-special133089%_ _%begin-form133090%_) + (let ((_%expand-e133092%_ gx#core-expand-expression)) (gx#core-expand-block__% - _%stx129327%_ - _%expand-special129328%_ - _%begin-form129329%_ - _%expand-e129331%_)))) + _%stx133088%_ + _%expand-special133089%_ + _%begin-form133090%_ + _%expand-e133092%_)))) (define gx#core-expand-block - (lambda _g130026_ - (let ((_g130027_ (##length _g130026_))) - (cond ((##fx= _g130027_ 2) (apply gx#core-expand-block__0 _g130026_)) - ((##fx= _g130027_ 3) (apply gx#core-expand-block__1 _g130026_)) - ((##fx= _g130027_ 4) (apply gx#core-expand-block__% _g130026_)) + (lambda _g133787_ + (let ((_g133788_ (##length _g133787_))) + (cond ((##fx= _g133788_ 2) (apply gx#core-expand-block__0 _g133787_)) + ((##fx= _g133788_ 3) (apply gx#core-expand-block__1 _g133787_)) + ((##fx= _g133788_ 4) (apply gx#core-expand-block__% _g133787_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-block - _g130026_)))))) + _g133787_)))))) (define gx#core-expand-block* - (lambda (_%stx129092%_ _%expand-special129093%_) - (let* ((_%g129094129105%_ + (lambda (_%stx132853%_ _%expand-special132854%_) + (let* ((_%g132855132866%_ (gx#core-expand-block__1 - _%stx129092%_ - _%expand-special129093%_ + _%stx132853%_ + _%expand-special132854%_ '#f)) - (_%E129098129109%_ + (_%E132859132870%_ (lambda () (error '"No clause matching" - _%g129094129105%_ + _%g132855132866%_ '([]) '([expr]) '(body)) '#!void))) - (let ((_%K129103129140%_ + (let ((_%K132864132901%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty block" - _%stx129092%_))) - (_%K129100129126%_ (lambda (_%expr129124%_) _%expr129124%_)) - (_%K129099129115%_ - (lambda (_%body129113%_) + _%stx132853%_))) + (_%K132861132887%_ (lambda (_%expr132885%_) _%expr132885%_)) + (_%K132860132876%_ + (lambda (_%body132874%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin (reverse _%body129113%_)) - (gx#stx-source _%stx129092%_))))) - (let ((_%try-match129096129136%_ + (gx#core-cons '%#begin (reverse _%body132874%_)) + (gx#stx-source _%stx132853%_))))) + (let ((_%try-match132857132897%_ (lambda () - (if (pair? _%g129094129105%_) - (let ((_%tl129102129131%_ (##cdr _%g129094129105%_)) - (_%hd129101129129%_ (##car _%g129094129105%_))) - (if (null? _%tl129102129131%_) - (let ((_%expr129134%_ _%hd129101129129%_)) - (_%K129100129126%_ _%expr129134%_)) - (let ((_%body129118%_ _%g129094129105%_)) - (_%K129099129115%_ _%body129118%_)))) - (let ((_%body129118%_ _%g129094129105%_)) - (_%K129099129115%_ _%body129118%_)))))) - (if (null? _%g129094129105%_) - (_%K129103129140%_) - (_%try-match129096129136%_))))))) + (if (pair? _%g132855132866%_) + (let ((_%tl132863132892%_ (##cdr _%g132855132866%_)) + (_%hd132862132890%_ (##car _%g132855132866%_))) + (if (null? _%tl132863132892%_) + (let ((_%expr132895%_ _%hd132862132890%_)) + (_%K132861132887%_ _%expr132895%_)) + (let ((_%body132879%_ _%g132855132866%_)) + (_%K132860132876%_ _%body132879%_)))) + (let ((_%body132879%_ _%g132855132866%_)) + (_%K132860132876%_ _%body132879%_)))))) + (if (null? _%g132855132866%_) + (_%K132864132901%_) + (_%try-match132857132897%_))))))) (define gx#core-expand-cond-expand% - (lambda (_%stx128917%_) - (letrec ((_%satisfied?128919%_ - (lambda (_%condition129020%_) - (let* ((_%e129021129036%_ _%condition129020%_) - (_%E129031129040%_ + (lambda (_%stx132678%_) + (letrec ((_%satisfied?132680%_ + (lambda (_%condition132781%_) + (let* ((_%e132782132797%_ _%condition132781%_) + (_%E132792132801%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129021129036%_))) - (_%E129024129059%_ + _%e132782132797%_))) + (_%E132785132820%_ (lambda () - (if (gx#stx-pair? _%e129021129036%_) - (let ((_%e129032129044%_ - (gx#syntax-e _%e129021129036%_))) - (let ((_%hd129033129047%_ - (##car _%e129032129044%_)) - (_%tl129034129049%_ - (##cdr _%e129032129044%_))) - (let* ((_%combinator129052%_ - _%hd129033129047%_) - (_%body129054%_ - _%tl129034129049%_)) - (if (gx#stx-list? _%body129054%_) - (let ((_%$e129056%_ + (if (gx#stx-pair? _%e132782132797%_) + (let ((_%e132793132805%_ + (gx#syntax-e _%e132782132797%_))) + (let ((_%hd132794132808%_ + (##car _%e132793132805%_)) + (_%tl132795132810%_ + (##cdr _%e132793132805%_))) + (let* ((_%combinator132813%_ + _%hd132794132808%_) + (_%body132815%_ + _%tl132795132810%_)) + (if (gx#stx-list? _%body132815%_) + (let ((_%$e132817%_ (gx#stx-e - _%combinator129052%_))) - (if (eq? 'not _%$e129056%_) + _%combinator132813%_))) + (if (eq? 'not _%$e132817%_) (not (gx#stx-ormap - _%satisfied?128919%_ - _%body129054%_)) - (if (eq? 'and _%$e129056%_) + _%satisfied?132680%_ + _%body132815%_)) + (if (eq? 'and _%$e132817%_) (gx#stx-andmap - _%satisfied?128919%_ - _%body129054%_) + _%satisfied?132680%_ + _%body132815%_) (if (eq? 'or - _%$e129056%_) + _%$e132817%_) (gx#stx-ormap - _%satisfied?128919%_ - _%body129054%_) + _%satisfied?132680%_ + _%body132815%_) (if (eq? 'defined ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e129056%_) - (gx#stx-andmap gx#core-resolve-identifier _%body129054%_) + _%$e132817%_) + (gx#stx-andmap gx#core-resolve-identifier _%body132815%_) (gx#raise-syntax-error '#f '"Bad syntax; bad cond-expannd combinator" - _%stx128917%_ - _%combinator129052%_)))))) + _%stx132678%_ + _%combinator132813%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129031129040%_))))) - (_%E129031129040%_)))) - (_%E129023129082%_ + (_%E132792132801%_))))) + (_%E132792132801%_)))) + (_%E132784132843%_ (lambda () - (if (gx#stx-pair? _%e129021129036%_) - (let ((_%e129025129063%_ - (gx#syntax-e _%e129021129036%_))) - (let ((_%hd129026129066%_ - (##car _%e129025129063%_)) - (_%tl129027129068%_ - (##cdr _%e129025129063%_))) + (if (gx#stx-pair? _%e132782132797%_) + (let ((_%e132786132824%_ + (gx#syntax-e _%e132782132797%_))) + (let ((_%hd132787132827%_ + (##car _%e132786132824%_)) + (_%tl132788132829%_ + (##cdr _%e132786132824%_))) (if (and (gx#identifier? - _%hd129026129066%_) + _%hd132787132827%_) (gx#core-identifier=? - _%hd129026129066%_ + _%hd132787132827%_ 'unquote)) - (if (gx#stx-pair? _%tl129027129068%_) - (let ((_%e129028129071%_ + (if (gx#stx-pair? _%tl132788132829%_) + (let ((_%e132789132832%_ (gx#syntax-e - _%tl129027129068%_))) - (let ((_%hd129029129074%_ - (##car _%e129028129071%_)) - (_%tl129030129076%_ - (##cdr _%e129028129071%_))) - (let ((_%expr129079%_ - _%hd129029129074%_)) + _%tl132788132829%_))) + (let ((_%hd132790132835%_ + (##car _%e132789132832%_)) + (_%tl132791132837%_ + (##cdr _%e132789132832%_))) + (let ((_%expr132840%_ + _%hd132790132835%_)) (if (gx#stx-null? - _%tl129030129076%_) + _%tl132791132837%_) (call-with-parameters__1 (lambda () (gx#eval-syntax__0 - _%expr129079%_)) + _%expr132840%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)) - (_%E129024129059%_))))) - (_%E129024129059%_)) - (_%E129024129059%_)))) - (_%E129024129059%_)))) - (_%E129022129088%_ + (_%E132785132820%_))))) + (_%E132785132820%_)) + (_%E132785132820%_)))) + (_%E132785132820%_)))) + (_%E132783132849%_ (lambda () - (let ((_%id129086%_ _%e129021129036%_)) - (if (gx#identifier? _%id129086%_) + (let ((_%id132847%_ _%e132782132797%_)) + (if (gx#identifier? _%id132847%_) (gx#core-bound-identifier?__% - _%id129086%_ + _%id132847%_ gx#feature-binding?) - (_%E129023129082%_)))))) - (_%E129022129088%_)))) - (_%loop128920%_ - (lambda (_%rest128950%_) - (let* ((_%e128951128959%_ _%rest128950%_) - (_%E128957128963%_ + (_%E132784132843%_)))))) + (_%E132783132849%_)))) + (_%loop132681%_ + (lambda (_%rest132711%_) + (let* ((_%e132712132720%_ _%rest132711%_) + (_%E132718132724%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128951128959%_))) - (_%E128953128967%_ + _%e132712132720%_))) + (_%E132714132728%_ (lambda () - (if (gx#stx-null? _%e128951128959%_) + (if (gx#stx-null? _%e132712132720%_) '() - (_%E128957128963%_)))) - (_%E128952129016%_ + (_%E132718132724%_)))) + (_%E132713132777%_ (lambda () - (if (gx#stx-pair? _%e128951128959%_) - (let ((_%e128954128971%_ - (gx#syntax-e _%e128951128959%_))) - (let ((_%hd128955128974%_ - (##car _%e128954128971%_)) - (_%tl128956128976%_ - (##cdr _%e128954128971%_))) - (let* ((_%hd128979%_ _%hd128955128974%_) - (_%rest128981%_ - _%tl128956128976%_) - (_%e128982128989%_ _%hd128979%_) - (_%E128984128993%_ + (if (gx#stx-pair? _%e132712132720%_) + (let ((_%e132715132732%_ + (gx#syntax-e _%e132712132720%_))) + (let ((_%hd132716132735%_ + (##car _%e132715132732%_)) + (_%tl132717132737%_ + (##cdr _%e132715132732%_))) + (let* ((_%hd132740%_ _%hd132716132735%_) + (_%rest132742%_ + _%tl132717132737%_) + (_%e132743132750%_ _%hd132740%_) + (_%E132745132754%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128982128989%_))) - (_%E128983129012%_ + _%e132743132750%_))) + (_%E132744132773%_ (lambda () (if (gx#stx-pair? - _%e128982128989%_) - (let ((_%e128985128997%_ + _%e132743132750%_) + (let ((_%e132746132758%_ (gx#syntax-e - _%e128982128989%_))) - (let ((_%hd128986129000%_ - (##car _%e128985128997%_)) - (_%tl128987129002%_ - (##cdr _%e128985128997%_))) - (let* ((_%condition129005%_ - _%hd128986129000%_) - (_%body129007%_ - _%tl128987129002%_)) + _%e132743132750%_))) + (let ((_%hd132747132761%_ + (##car _%e132746132758%_)) + (_%tl132748132763%_ + (##cdr _%e132746132758%_))) + (let* ((_%condition132766%_ + _%hd132747132761%_) + (_%body132768%_ + _%tl132748132763%_)) (if (gx#stx-eq? - _%condition129005%_ + _%condition132766%_ 'else) (if (gx#stx-null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rest128981%_) - _%body129007%_ + _%rest132742%_) + _%body132768%_ (gx#raise-syntax-error '#f '"Bad syntax; clauses after else" - _%stx128917%_ - _%hd128979%_)) - (if (_%satisfied?128919%_ _%condition129005%_) - _%body129007%_ - (_%loop128920%_ _%rest128981%_)))))) + _%stx132678%_ + _%hd132740%_)) + (if (_%satisfied?132680%_ _%condition132766%_) + _%body132768%_ + (_%loop132681%_ _%rest132742%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E128984128993%_))))) - (_%E128983129012%_)))) - (_%E128953128967%_))))) - (_%E128952129016%_))))) - (let* ((_%e128921128928%_ _%stx128917%_) - (_%E128923128932%_ + (_%E132745132754%_))))) + (_%E132744132773%_)))) + (_%E132714132728%_))))) + (_%E132713132777%_))))) + (let* ((_%e132682132689%_ _%stx132678%_) + (_%E132684132693%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128921128928%_))) - (_%E128922128946%_ + _%e132682132689%_))) + (_%E132683132707%_ (lambda () - (if (gx#stx-pair? _%e128921128928%_) - (let ((_%e128924128936%_ - (gx#syntax-e _%e128921128928%_))) - (let ((_%hd128925128939%_ (##car _%e128924128936%_)) - (_%tl128926128941%_ (##cdr _%e128924128936%_))) - (let ((_%clauses128944%_ _%tl128926128941%_)) - (if (gx#stx-list? _%clauses128944%_) + (if (gx#stx-pair? _%e132682132689%_) + (let ((_%e132685132697%_ + (gx#syntax-e _%e132682132689%_))) + (let ((_%hd132686132700%_ (##car _%e132685132697%_)) + (_%tl132687132702%_ (##cdr _%e132685132697%_))) + (let ((_%clauses132705%_ _%tl132687132702%_)) + (if (gx#stx-list? _%clauses132705%_) (gx#core-cons 'begin - (_%loop128920%_ _%clauses128944%_)) - (_%E128923128932%_))))) - (_%E128923128932%_))))) - (_%E128922128946%_))))) + (_%loop132681%_ _%clauses132705%_)) + (_%E132684132693%_))))) + (_%E132684132693%_))))) + (_%E132683132707%_))))) (define gx#core-expand-include%__% - (lambda (_%stx128860%_ _%rpath128861%_) - (let* ((_%e128862128872%_ _%stx128860%_) - (_%E128864128876%_ + (lambda (_%stx132621%_ _%rpath132622%_) + (let* ((_%e132623132633%_ _%stx132621%_) + (_%E132625132637%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128862128872%_))) - (_%E128863128903%_ + _%e132623132633%_))) + (_%E132624132664%_ (lambda () - (if (gx#stx-pair? _%e128862128872%_) - (let ((_%e128865128880%_ - (gx#syntax-e _%e128862128872%_))) - (let ((_%hd128866128883%_ (##car _%e128865128880%_)) - (_%tl128867128885%_ (##cdr _%e128865128880%_))) - (if (gx#stx-pair? _%tl128867128885%_) - (let ((_%e128868128888%_ - (gx#syntax-e _%tl128867128885%_))) - (let ((_%hd128869128891%_ - (##car _%e128868128888%_)) - (_%tl128870128893%_ - (##cdr _%e128868128888%_))) - (let ((_%path128896%_ _%hd128869128891%_)) - (if (gx#stx-null? _%tl128870128893%_) - (if (gx#stx-string? _%path128896%_) - (let ((_%rpath128901%_ - (let ((_%$e128898%_ - _%rpath128861%_)) - (if _%$e128898%_ - _%$e128898%_ + (if (gx#stx-pair? _%e132623132633%_) + (let ((_%e132626132641%_ + (gx#syntax-e _%e132623132633%_))) + (let ((_%hd132627132644%_ (##car _%e132626132641%_)) + (_%tl132628132646%_ (##cdr _%e132626132641%_))) + (if (gx#stx-pair? _%tl132628132646%_) + (let ((_%e132629132649%_ + (gx#syntax-e _%tl132628132646%_))) + (let ((_%hd132630132652%_ + (##car _%e132629132649%_)) + (_%tl132631132654%_ + (##cdr _%e132629132649%_))) + (let ((_%path132657%_ _%hd132630132652%_)) + (if (gx#stx-null? _%tl132631132654%_) + (if (gx#stx-string? _%path132657%_) + (let ((_%rpath132662%_ + (let ((_%$e132659%_ + _%rpath132622%_)) + (if _%$e132659%_ + _%$e132659%_ (gx#core-resolve-path__% - _%path128896%_ + _%path132657%_ (gx#stx-source - _%stx128860%_)))))) - (if (member _%rpath128901%_ + _%stx132621%_)))))) + (if (member _%rpath132662%_ (gx#current-expander-path)) (gx#raise-syntax-error '#f '"Bad syntax; cyclic expansion" - _%stx128860%_) + _%stx132621%_) (gx#syntax-local-rewrap (gx#stx-wrap-source (gx#core-cons 'begin (read-syntax-from-file - _%rpath128901%_)) + _%rpath132662%_)) (gx#stx-source - _%stx128860%_))))) - (_%E128864128876%_)) - (_%E128864128876%_))))) - (_%E128864128876%_)))) - (_%E128864128876%_))))) - (_%E128863128903%_)))) + _%stx132621%_))))) + (_%E132625132637%_)) + (_%E132625132637%_))))) + (_%E132625132637%_)))) + (_%E132625132637%_))))) + (_%E132624132664%_)))) (define gx#core-expand-include%__0 - (lambda (_%stx128910%_) - (let ((_%rpath128912%_ '#f)) - (gx#core-expand-include%__% _%stx128910%_ _%rpath128912%_)))) + (lambda (_%stx132671%_) + (let ((_%rpath132673%_ '#f)) + (gx#core-expand-include%__% _%stx132671%_ _%rpath132673%_)))) (define gx#core-expand-include% - (lambda _g130028_ - (let ((_g130029_ (##length _g130028_))) - (cond ((##fx= _g130029_ 1) - (apply gx#core-expand-include%__0 _g130028_)) - ((##fx= _g130029_ 2) - (apply gx#core-expand-include%__% _g130028_)) + (lambda _g133789_ + (let ((_g133790_ (##length _g133789_))) + (cond ((##fx= _g133790_ 1) + (apply gx#core-expand-include%__0 _g133789_)) + ((##fx= _g133790_ 2) + (apply gx#core-expand-include%__% _g133789_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-include% - _g130028_)))))) + _g133789_)))))) (define gx#core-apply-expander__% - (lambda (_%K128826%_ _%stx128827%_ _%method128828%_) - (if (procedure? _%K128826%_) - (let ((_%$e128831%_ (gx#stx-source _%stx128827%_))) - (if _%$e128831%_ - ((lambda (_%g128833128835%_) + (lambda (_%K132587%_ _%stx132588%_ _%method132589%_) + (if (procedure? _%K132587%_) + (let ((_%$e132592%_ (gx#stx-source _%stx132588%_))) + (if _%$e132592%_ + ((lambda (_%g132594132596%_) (gx#stx-wrap-source - (_%K128826%_ _%stx128827%_) - _%g128833128835%_)) - _%$e128831%_) - (_%K128826%_ _%stx128827%_))) - (let ((_%$e128839%_ - (bound-method-ref _%K128826%_ _%method128828%_))) - (if _%$e128839%_ - ((lambda (_%g128841128843%_) + (_%K132587%_ _%stx132588%_) + _%g132594132596%_)) + _%$e132592%_) + (_%K132587%_ _%stx132588%_))) + (let ((_%$e132600%_ + (bound-method-ref _%K132587%_ _%method132589%_))) + (if _%$e132600%_ + ((lambda (_%g132602132604%_) (gx#core-apply-expander__% - _%g128841128843%_ - _%stx128827%_ - _%method128828%_)) - _%$e128839%_) + _%g132602132604%_ + _%stx132588%_ + _%method132589%_)) + _%$e132600%_) (gx#raise-syntax-error '#f '"Bad syntax; no expander method" - _%stx128827%_ - _%method128828%_)))))) + _%stx132588%_ + _%method132589%_)))))) (define gx#core-apply-expander__0 - (lambda (_%K128850%_ _%stx128851%_) - (let ((_%method128853%_ 'apply-macro-expander)) + (lambda (_%K132611%_ _%stx132612%_) + (let ((_%method132614%_ 'apply-macro-expander)) (gx#core-apply-expander__% - _%K128850%_ - _%stx128851%_ - _%method128853%_)))) + _%K132611%_ + _%stx132612%_ + _%method132614%_)))) (define gx#core-apply-expander - (lambda _g130030_ - (let ((_g130031_ (##length _g130030_))) - (cond ((##fx= _g130031_ 2) - (apply gx#core-apply-expander__0 _g130030_)) - ((##fx= _g130031_ 3) - (apply gx#core-apply-expander__% _g130030_)) + (lambda _g133791_ + (let ((_g133792_ (##length _g133791_))) + (cond ((##fx= _g133792_ 2) + (apply gx#core-apply-expander__0 _g133791_)) + ((##fx= _g133792_ 3) + (apply gx#core-apply-expander__% _g133791_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-expander - _g130030_)))))) + _g133791_)))))) (define gx#expander::apply-macro-expander - (lambda (_%self128811%_ _%stx128812%_) - (let ((_%self128815%_ _%self128811%_)) + (lambda (_%self132572%_ _%stx132573%_) + (let ((_%self132576%_ _%self132572%_)) (gx#raise-syntax-error '#f - '"Bad syntax; bottom method for apply-macro-expander" - _%stx128812%_)))) + '"Bad syntax; no applicable expander" + _%stx132573%_)))) (__bind-method!__% gx#expander::t 'apply-macro-expander gx#expander::apply-macro-expander '#f) (define gx#macro-expander::apply-macro-expander - (lambda (_%self128653%_ _%stx128654%_) - (let* ((_%self128657%_ _%self128653%_) - (_%self128666128672%_ _%self128657%_) - (_%E128668128676%_ + (lambda (_%self132415%_ _%stx132416%_) + (let* ((_%self132419%_ _%self132415%_) + (_%self132428132434%_ _%self132419%_) + (_%E132430132437%_ (lambda () (error '"No clause matching" - _%self128666128672%_ + _%self132428132434%_ '((macro-expander K))) '#!void)) - (_%K128669128681%_ - (lambda (_%K128679%_) - (gx#core-apply-expander__0 _%K128679%_ _%stx128654%_))) - (_%e128670128684%_ - (##unchecked-structure-ref _%self128666128672%_ '1 '#f '#f)) - (_%K128687%_ _%e128670128684%_)) - (_%K128669128681%_ _%K128687%_)))) + (_%K132431132442%_ + (lambda (_%K132440%_) + (gx#core-apply-expander__0 _%K132440%_ _%stx132416%_))) + (_%e132432132445%_ + (##unchecked-structure-ref _%self132428132434%_ '1 '#f '#f)) + (_%K132448%_ _%e132432132445%_)) + (_%K132431132442%_ _%K132448%_)))) (__bind-method!__% gx#macro-expander::t 'apply-macro-expander gx#macro-expander::apply-macro-expander '#f) (define gx#core-expander::apply-macro-expander - (lambda (_%self128495%_ _%stx128496%_) - (let ((_%self128499%_ _%self128495%_)) - (if (gx#sealed-syntax? _%stx128496%_) - _%stx128496%_ - (let* ((_%self128508128514%_ _%self128499%_) - (_%E128510128518%_ + (lambda (_%self132258%_ _%stx132259%_) + (let ((_%self132262%_ _%self132258%_)) + (if (gx#sealed-syntax? _%stx132259%_) + _%stx132259%_ + (let* ((_%self132271132277%_ _%self132262%_) + (_%E132273132280%_ (lambda () (error '"No clause matching" - _%self128508128514%_ + _%self132271132277%_ '((core-expander K))) '#!void)) - (_%K128511128523%_ - (lambda (_%K128521%_) - (gx#core-apply-expander__0 _%K128521%_ _%stx128496%_))) - (_%e128512128526%_ + (_%K132274132285%_ + (lambda (_%K132283%_) + (gx#core-apply-expander__0 _%K132283%_ _%stx132259%_))) + (_%e132275132288%_ (##unchecked-structure-ref - _%self128508128514%_ + _%self132271132277%_ '1 '#f '#f)) - (_%K128529%_ _%e128512128526%_)) - (_%K128511128523%_ _%K128529%_)))))) + (_%K132291%_ _%e132275132288%_)) + (_%K132274132285%_ _%K132291%_)))))) (__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 (_%self128346%_ _%stx128347%_ _%top?128348%_) - (let ((_%self128351%_ _%self128346%_)) - (if (_%top?128348%_ (gx#current-expander-context)) + (lambda (_%self132109%_ _%stx132110%_ _%top?132111%_) + (let ((_%self132114%_ _%self132109%_)) + (if (_%top?132111%_ (gx#current-expander-context)) (gx#core-expander::apply-macro-expander - _%self128351%_ - _%stx128347%_) + _%self132114%_ + _%stx132110%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal context" - _%stx128347%_))))) + _%stx132110%_))))) (define gx#top-special-form::apply-macro-expander__0 - (lambda (_%self128364%_ _%stx128365%_) - (let ((_%top?128367%_ gx#top-context?)) + (lambda (_%self132127%_ _%stx132128%_) + (let ((_%top?132130%_ gx#top-context?)) (gx#top-special-form::apply-macro-expander__% - _%self128364%_ - _%stx128365%_ - _%top?128367%_)))) + _%self132127%_ + _%stx132128%_ + _%top?132130%_)))) (define gx#top-special-form::apply-macro-expander - (lambda _g130032_ - (let ((_g130033_ (##length _g130032_))) - (cond ((##fx= _g130033_ 2) + (lambda _g133793_ + (let ((_g133794_ (##length _g133793_))) + (cond ((##fx= _g133794_ 2) (apply gx#top-special-form::apply-macro-expander__0 - _g130032_)) - ((##fx= _g130033_ 3) + _g133793_)) + ((##fx= _g133794_ 3) (apply gx#top-special-form::apply-macro-expander__% - _g130032_)) + _g133793_)) (else (##raise-wrong-number-of-arguments-exception gx#top-special-form::apply-macro-expander - _g130032_)))))) + _g133793_)))))) (__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 (_%self128209%_ _%stx128210%_) - (let ((_%self128213%_ _%self128209%_)) + (lambda (_%self131972%_ _%stx131973%_) + (let ((_%self131976%_ _%self131972%_)) (gx#top-special-form::apply-macro-expander__% - _%self128213%_ - _%stx128210%_ + _%self131976%_ + _%stx131973%_ gx#module-context?)))) (__bind-method!__% gx#module-special-form::t @@ -2282,132 +2279,132 @@ gx#module-special-form::apply-macro-expander '#f) (define gx#rename-macro-expander::apply-macro-expander - (lambda (_%self128023%_ _%stx128024%_) - (let* ((_%self128027%_ _%self128023%_) - (_%self128036128042%_ _%self128027%_) - (_%E128038128046%_ + (lambda (_%self131787%_ _%stx131788%_) + (let* ((_%self131791%_ _%self131787%_) + (_%self131800131806%_ _%self131791%_) + (_%E131802131809%_ (lambda () (error '"No clause matching" - _%self128036128042%_ + _%self131800131806%_ '((rename-macro-expander id))) '#!void)) - (_%K128039128079%_ - (lambda (_%id128049%_) - (let* ((_%e128050128057%_ _%stx128024%_) - (_%E128052128061%_ + (_%K131803131842%_ + (lambda (_%id131812%_) + (let* ((_%e131813131820%_ _%stx131788%_) + (_%E131815131824%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e128050128057%_))) - (_%E128051128075%_ + _%e131813131820%_))) + (_%E131814131838%_ (lambda () - (if (gx#stx-pair? _%e128050128057%_) - (let ((_%e128053128065%_ - (gx#syntax-e _%e128050128057%_))) - (let ((_%hd128054128068%_ - (##car _%e128053128065%_)) - (_%tl128055128070%_ - (##cdr _%e128053128065%_))) - (let ((_%body128073%_ _%tl128055128070%_)) + (if (gx#stx-pair? _%e131813131820%_) + (let ((_%e131816131828%_ + (gx#syntax-e _%e131813131820%_))) + (let ((_%hd131817131831%_ + (##car _%e131816131828%_)) + (_%tl131818131833%_ + (##cdr _%e131816131828%_))) + (let ((_%body131836%_ _%tl131818131833%_)) (gx#core-cons - _%id128049%_ - _%body128073%_)))) - (_%E128052128061%_))))) - (_%E128051128075%_)))) - (_%e128040128082%_ - (##unchecked-structure-ref _%self128036128042%_ '1 '#f '#f)) - (_%id128085%_ _%e128040128082%_)) - (_%K128039128079%_ _%id128085%_)))) + _%id131812%_ + _%body131836%_)))) + (_%E131815131824%_))))) + (_%E131814131838%_)))) + (_%e131804131845%_ + (##unchecked-structure-ref _%self131800131806%_ '1 '#f '#f)) + (_%id131848%_ _%e131804131845%_)) + (_%K131803131842%_ _%id131848%_)))) (__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 (_%self127849%_ _%stx127850%_ _%method127851%_) - (let* ((_%self127852127860%_ _%self127849%_) - (_%E127854127864%_ + (lambda (_%self131614%_ _%stx131615%_ _%method131616%_) + (let* ((_%self131617131625%_ _%self131614%_) + (_%E131619131628%_ (lambda () (error '"No clause matching" - _%self127852127860%_ + _%self131617131625%_ '((user-expander K ctx phi))) '#!void)) - (_%K127855127871%_ - (lambda (_%phi127867%_ _%ctx127868%_ _%K127869%_) + (_%K131620131635%_ + (lambda (_%phi131631%_ _%ctx131632%_ _%K131633%_) (gx#core-apply-user-macro - _%K127869%_ - _%stx127850%_ - _%ctx127868%_ - _%phi127867%_ - _%method127851%_)))) + _%K131633%_ + _%stx131615%_ + _%ctx131632%_ + _%phi131631%_ + _%method131616%_)))) (if (##structure-instance-of? - _%self127852127860%_ + _%self131617131625%_ 'gx#user-expander::t) - (let* ((_%e127856127874%_ + (let* ((_%e131621131638%_ (##unchecked-structure-ref - _%self127852127860%_ + _%self131617131625%_ '1 '#f '#f)) - (_%K127877%_ _%e127856127874%_) - (_%e127857127879%_ + (_%K131641%_ _%e131621131638%_) + (_%e131622131643%_ (##unchecked-structure-ref - _%self127852127860%_ + _%self131617131625%_ '2 '#f '#f)) - (_%ctx127882%_ _%e127857127879%_) - (_%e127858127884%_ + (_%ctx131646%_ _%e131622131643%_) + (_%e131623131648%_ (##unchecked-structure-ref - _%self127852127860%_ + _%self131617131625%_ '3 '#f '#f)) - (_%phi127887%_ _%e127858127884%_)) - (_%K127855127871%_ _%phi127887%_ _%ctx127882%_ _%K127877%_)) - (_%E127854127864%_))))) + (_%phi131651%_ _%e131623131648%_)) + (_%K131620131635%_ _%phi131651%_ _%ctx131646%_ _%K131641%_)) + (_%E131619131628%_))))) (define gx#core-apply-user-expander__0 - (lambda (_%self127892%_ _%stx127893%_) - (let ((_%method127895%_ 'apply-macro-expander)) + (lambda (_%self131656%_ _%stx131657%_) + (let ((_%method131659%_ 'apply-macro-expander)) (gx#core-apply-user-expander__% - _%self127892%_ - _%stx127893%_ - _%method127895%_)))) + _%self131656%_ + _%stx131657%_ + _%method131659%_)))) (define gx#core-apply-user-expander - (lambda _g130034_ - (let ((_g130035_ (##length _g130034_))) - (cond ((##fx= _g130035_ 2) - (apply gx#core-apply-user-expander__0 _g130034_)) - ((##fx= _g130035_ 3) - (apply gx#core-apply-user-expander__% _g130034_)) + (lambda _g133795_ + (let ((_g133796_ (##length _g133795_))) + (cond ((##fx= _g133796_ 2) + (apply gx#core-apply-user-expander__0 _g133795_)) + ((##fx= _g133796_ 3) + (apply gx#core-apply-user-expander__% _g133795_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-user-expander - _g130034_)))))) + _g133795_)))))) (define gx#core-apply-user-macro - (lambda (_%K127839%_ - _%stx127840%_ - _%ctx127841%_ - _%phi127842%_ - _%method127843%_) - (let ((_%mark127845%_ + (lambda (_%K131604%_ + _%stx131605%_ + _%ctx131606%_ + _%phi131607%_ + _%method131608%_) + (let ((_%mark131610%_ (##structure gx#expander-mark::t '#f - _%ctx127841%_ - _%phi127842%_ - _%stx127840%_))) + _%ctx131606%_ + _%phi131607%_ + _%stx131605%_))) (call-with-parameters__1 (lambda () (gx#stx-apply-mark (gx#core-apply-expander__% - _%K127839%_ - (gx#stx-apply-mark _%stx127840%_ _%mark127845%_) - _%method127843%_) - _%mark127845%_)) + _%K131604%_ + (gx#stx-apply-mark _%stx131605%_ _%mark131610%_) + _%method131608%_) + _%mark131610%_)) gx#current-expander-marks - (cons _%mark127845%_ (gx#current-expander-marks)))))) + (cons _%mark131610%_ (gx#current-expander-marks)))))) (define gx#user-expander::apply-macro-expander gx#core-apply-user-expander) (__bind-method!__% gx#user-expander::t @@ -2415,372 +2412,372 @@ gx#user-expander::apply-macro-expander '#f) (define gx#resolve-identifier__% - (lambda (_%stx127687%_ _%phi127688%_ _%ctx127689%_) - (let _%lp127691%_ ((_%bind127693%_ + (lambda (_%stx131452%_ _%phi131453%_ _%ctx131454%_) + (let _%lp131456%_ ((_%bind131458%_ (gx#core-resolve-identifier__% - _%stx127687%_ - _%phi127688%_ - _%ctx127689%_))) + _%stx131452%_ + _%phi131453%_ + _%ctx131454%_))) (if (##structure-direct-instance-of? - _%bind127693%_ + _%bind131458%_ 'gx#import-binding::t) - (_%lp127691%_ - (##unchecked-structure-ref _%bind127693%_ '4 '#f '#f)) + (_%lp131456%_ + (##unchecked-structure-ref _%bind131458%_ '4 '#f '#f)) (if (##structure-direct-instance-of? - _%bind127693%_ + _%bind131458%_ 'gx#alias-binding::t) - (_%lp127691%_ + (_%lp131456%_ (gx#core-resolve-identifier__% - (##unchecked-structure-ref _%bind127693%_ '4 '#f '#f) - _%phi127688%_ - _%ctx127689%_)) - _%bind127693%_))))) + (##unchecked-structure-ref _%bind131458%_ '4 '#f '#f) + _%phi131453%_ + _%ctx131454%_)) + _%bind131458%_))))) (define gx#resolve-identifier__0 - (lambda (_%stx127701%_) - (let* ((_%phi127703%_ (gx#current-expander-phi)) - (_%ctx127705%_ (gx#current-expander-context))) + (lambda (_%stx131466%_) + (let* ((_%phi131468%_ (gx#current-expander-phi)) + (_%ctx131470%_ (gx#current-expander-context))) (gx#resolve-identifier__% - _%stx127701%_ - _%phi127703%_ - _%ctx127705%_)))) + _%stx131466%_ + _%phi131468%_ + _%ctx131470%_)))) (define gx#resolve-identifier__1 - (lambda (_%stx127707%_ _%phi127708%_) - (let ((_%ctx127710%_ (gx#current-expander-context))) + (lambda (_%stx131472%_ _%phi131473%_) + (let ((_%ctx131475%_ (gx#current-expander-context))) (gx#resolve-identifier__% - _%stx127707%_ - _%phi127708%_ - _%ctx127710%_)))) + _%stx131472%_ + _%phi131473%_ + _%ctx131475%_)))) (define gx#resolve-identifier - (lambda _g130036_ - (let ((_g130037_ (##length _g130036_))) - (cond ((##fx= _g130037_ 1) - (apply gx#resolve-identifier__0 _g130036_)) - ((##fx= _g130037_ 2) - (apply gx#resolve-identifier__1 _g130036_)) - ((##fx= _g130037_ 3) - (apply gx#resolve-identifier__% _g130036_)) + (lambda _g133797_ + (let ((_g133798_ (##length _g133797_))) + (cond ((##fx= _g133798_ 1) + (apply gx#resolve-identifier__0 _g133797_)) + ((##fx= _g133798_ 2) + (apply gx#resolve-identifier__1 _g133797_)) + ((##fx= _g133798_ 3) + (apply gx#resolve-identifier__% _g133797_)) (else (##raise-wrong-number-of-arguments-exception gx#resolve-identifier - _g130036_)))))) + _g133797_)))))) (define gx#bind-identifier!__% - (lambda (_%stx127642%_ - _%val127643%_ - _%rebind?127644%_ - _%phi127645%_ - _%ctx127646%_) - (let ((_%rebind?127651%_ - (if (not _%rebind?127644%_) + (lambda (_%stx131407%_ + _%val131408%_ + _%rebind?131409%_ + _%phi131410%_ + _%ctx131411%_) + (let ((_%rebind?131416%_ + (if (not _%rebind?131409%_) gx#core-context-rebind? - (if (procedure? _%rebind?127644%_) - _%rebind?127644%_ + (if (procedure? _%rebind?131409%_) + _%rebind?131409%_ true)))) (gx#core-bind!__% - (gx#core-identifier-key _%stx127642%_) - _%val127643%_ - _%rebind?127651%_ - _%phi127645%_ - _%ctx127646%_)))) + (gx#core-identifier-key _%stx131407%_) + _%val131408%_ + _%rebind?131416%_ + _%phi131410%_ + _%ctx131411%_)))) (define gx#bind-identifier!__0 - (lambda (_%stx127656%_ _%val127657%_) - (let* ((_%rebind?127659%_ '#f) - (_%phi127661%_ (gx#current-expander-phi)) - (_%ctx127663%_ (gx#current-expander-context))) + (lambda (_%stx131421%_ _%val131422%_) + (let* ((_%rebind?131424%_ '#f) + (_%phi131426%_ (gx#current-expander-phi)) + (_%ctx131428%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx127656%_ - _%val127657%_ - _%rebind?127659%_ - _%phi127661%_ - _%ctx127663%_)))) + _%stx131421%_ + _%val131422%_ + _%rebind?131424%_ + _%phi131426%_ + _%ctx131428%_)))) (define gx#bind-identifier!__1 - (lambda (_%stx127665%_ _%val127666%_ _%rebind?127667%_) - (let* ((_%phi127669%_ (gx#current-expander-phi)) - (_%ctx127671%_ (gx#current-expander-context))) + (lambda (_%stx131430%_ _%val131431%_ _%rebind?131432%_) + (let* ((_%phi131434%_ (gx#current-expander-phi)) + (_%ctx131436%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx127665%_ - _%val127666%_ - _%rebind?127667%_ - _%phi127669%_ - _%ctx127671%_)))) + _%stx131430%_ + _%val131431%_ + _%rebind?131432%_ + _%phi131434%_ + _%ctx131436%_)))) (define gx#bind-identifier!__2 - (lambda (_%stx127673%_ _%val127674%_ _%rebind?127675%_ _%phi127676%_) - (let ((_%ctx127678%_ (gx#current-expander-context))) + (lambda (_%stx131438%_ _%val131439%_ _%rebind?131440%_ _%phi131441%_) + (let ((_%ctx131443%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx127673%_ - _%val127674%_ - _%rebind?127675%_ - _%phi127676%_ - _%ctx127678%_)))) + _%stx131438%_ + _%val131439%_ + _%rebind?131440%_ + _%phi131441%_ + _%ctx131443%_)))) (define gx#bind-identifier! - (lambda _g130038_ - (let ((_g130039_ (##length _g130038_))) - (cond ((##fx= _g130039_ 2) (apply gx#bind-identifier!__0 _g130038_)) - ((##fx= _g130039_ 3) (apply gx#bind-identifier!__1 _g130038_)) - ((##fx= _g130039_ 4) (apply gx#bind-identifier!__2 _g130038_)) - ((##fx= _g130039_ 5) (apply gx#bind-identifier!__% _g130038_)) + (lambda _g133799_ + (let ((_g133800_ (##length _g133799_))) + (cond ((##fx= _g133800_ 2) (apply gx#bind-identifier!__0 _g133799_)) + ((##fx= _g133800_ 3) (apply gx#bind-identifier!__1 _g133799_)) + ((##fx= _g133800_ 4) (apply gx#bind-identifier!__2 _g133799_)) + ((##fx= _g133800_ 5) (apply gx#bind-identifier!__% _g133799_)) (else (##raise-wrong-number-of-arguments-exception gx#bind-identifier! - _g130038_)))))) + _g133799_)))))) (define gx#core-resolve-identifier__% - (lambda (_%stx127608%_ _%phi127609%_ _%ctx127610%_) - (let _%lp127612%_ ((_%e127614%_ _%stx127608%_) - (_%marks127615%_ (gx#current-expander-marks))) - (if (symbol? _%e127614%_) + (lambda (_%stx131373%_ _%phi131374%_ _%ctx131375%_) + (let _%lp131377%_ ((_%e131379%_ _%stx131373%_) + (_%marks131380%_ (gx#current-expander-marks))) + (if (symbol? _%e131379%_) (gx#core-resolve-binding - _%e127614%_ - _%phi127609%_ - _%phi127609%_ - _%ctx127610%_ - (reverse _%marks127615%_)) - (if (gx#identifier-quote? _%e127614%_) + _%e131379%_ + _%phi131374%_ + _%phi131374%_ + _%ctx131375%_ + (reverse _%marks131380%_)) + (if (gx#identifier-quote? _%e131379%_) (gx#core-resolve-binding - (##unchecked-structure-ref _%e127614%_ '1 '#f '#f) - _%phi127609%_ + (##unchecked-structure-ref _%e131379%_ '1 '#f '#f) + _%phi131374%_ '0 - (##unchecked-structure-ref _%e127614%_ '3 '#f '#f) - (##unchecked-structure-ref _%e127614%_ '4 '#f '#f)) + (##unchecked-structure-ref _%e131379%_ '3 '#f '#f) + (##unchecked-structure-ref _%e131379%_ '4 '#f '#f)) (if (##structure-direct-instance-of? - _%e127614%_ + _%e131379%_ 'gx#identifier-wrap::t) (gx#core-resolve-binding - (##unchecked-structure-ref _%e127614%_ '1 '#f '#f) - _%phi127609%_ - _%phi127609%_ - _%ctx127610%_ + (##unchecked-structure-ref _%e131379%_ '1 '#f '#f) + _%phi131374%_ + _%phi131374%_ + _%ctx131375%_ (__foldl1 gx#apply-mark - (##unchecked-structure-ref _%e127614%_ '3 '#f '#f) - _%marks127615%_)) + (##unchecked-structure-ref _%e131379%_ '3 '#f '#f) + _%marks131380%_)) (if (##structure-direct-instance-of? - _%e127614%_ + _%e131379%_ 'gx#syntax-wrap::t) - (_%lp127612%_ - (##unchecked-structure-ref _%e127614%_ '1 '#f '#f) + (_%lp131377%_ + (##unchecked-structure-ref _%e131379%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e127614%_ '3 '#f '#f) - _%marks127615%_)) + (##unchecked-structure-ref _%e131379%_ '3 '#f '#f) + _%marks131380%_)) (if (##structure-instance-of? - _%e127614%_ + _%e131379%_ 'gerbil#AST::t) - (_%lp127612%_ + (_%lp131377%_ (##unchecked-structure-ref - _%e127614%_ + _%e131379%_ '1 '#f '#f) - _%marks127615%_) + _%marks131380%_) (gx#raise-syntax-error '#f '"Bad identifier" - _%stx127608%_))))))))) + _%stx131373%_))))))))) (define gx#core-resolve-identifier__0 - (lambda (_%stx127626%_) - (let* ((_%phi127628%_ (gx#current-expander-phi)) - (_%ctx127630%_ (gx#current-expander-context))) + (lambda (_%stx131391%_) + (let* ((_%phi131393%_ (gx#current-expander-phi)) + (_%ctx131395%_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _%stx127626%_ - _%phi127628%_ - _%ctx127630%_)))) + _%stx131391%_ + _%phi131393%_ + _%ctx131395%_)))) (define gx#core-resolve-identifier__1 - (lambda (_%stx127632%_ _%phi127633%_) - (let ((_%ctx127635%_ (gx#current-expander-context))) + (lambda (_%stx131397%_ _%phi131398%_) + (let ((_%ctx131400%_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _%stx127632%_ - _%phi127633%_ - _%ctx127635%_)))) + _%stx131397%_ + _%phi131398%_ + _%ctx131400%_)))) (define gx#core-resolve-identifier - (lambda _g130040_ - (let ((_g130041_ (##length _g130040_))) - (cond ((##fx= _g130041_ 1) - (apply gx#core-resolve-identifier__0 _g130040_)) - ((##fx= _g130041_ 2) - (apply gx#core-resolve-identifier__1 _g130040_)) - ((##fx= _g130041_ 3) - (apply gx#core-resolve-identifier__% _g130040_)) + (lambda _g133801_ + (let ((_g133802_ (##length _g133801_))) + (cond ((##fx= _g133802_ 1) + (apply gx#core-resolve-identifier__0 _g133801_)) + ((##fx= _g133802_ 2) + (apply gx#core-resolve-identifier__1 _g133801_)) + ((##fx= _g133802_ 3) + (apply gx#core-resolve-identifier__% _g133801_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-identifier - _g130040_)))))) + _g133801_)))))) (define gx#core-resolve-binding - (lambda (_%id127518%_ - _%phi127519%_ - _%src-phi127520%_ - _%ctx127521%_ - _%marks127522%_) - (letrec ((_%resolve127524%_ - (lambda (_%ctx127592%_ _%src-phi127593%_ _%key127594%_) - (let _%lp127596%_ ((_%ctx127598%_ + (lambda (_%id131284%_ + _%phi131285%_ + _%src-phi131286%_ + _%ctx131287%_ + _%marks131288%_) + (letrec ((_%resolve131290%_ + (lambda (_%ctx131357%_ _%src-phi131358%_ _%key131359%_) + (let _%lp131361%_ ((_%ctx131363%_ (gx#core-context-shift - _%ctx127592%_ - _%phi127519%_)) - (_%dphi127599%_ - (fx- _%phi127519%_ _%src-phi127593%_))) - (let ((_%$e127601%_ + _%ctx131357%_ + _%phi131285%_)) + (_%dphi131364%_ + (fx- _%phi131285%_ _%src-phi131358%_))) + (let ((_%$e131366%_ (gx#core-context-resolve - _%ctx127598%_ - _%key127594%_))) - (if _%$e127601%_ - _%$e127601%_ - (if (fxzero? _%dphi127599%_) + _%ctx131363%_ + _%key131359%_))) + (if _%$e131366%_ + _%$e131366%_ + (if (fxzero? _%dphi131364%_) '#f - (if (fxpositive? _%dphi127599%_) - (_%lp127596%_ - (gx#core-context-shift _%ctx127598%_ '-1) - (##fx- _%dphi127599%_ '1)) - (_%lp127596%_ - (gx#core-context-shift _%ctx127598%_ '1) - (##fx+ _%dphi127599%_ '1)))))))))) - (let _%lp127526%_ ((_%ctx127528%_ _%ctx127521%_) - (_%src-phi127529%_ _%src-phi127520%_) - (_%rest127530%_ _%marks127522%_)) - (let* ((_%rest127531127539%_ _%rest127530%_) - (_%else127533127547%_ + (if (fxpositive? _%dphi131364%_) + (_%lp131361%_ + (gx#core-context-shift _%ctx131363%_ '-1) + (##fx- _%dphi131364%_ '1)) + (_%lp131361%_ + (gx#core-context-shift _%ctx131363%_ '1) + (##fx+ _%dphi131364%_ '1)))))))))) + (let _%lp131292%_ ((_%ctx131294%_ _%ctx131287%_) + (_%src-phi131295%_ _%src-phi131286%_) + (_%rest131296%_ _%marks131288%_)) + (let* ((_%rest131297131305%_ _%rest131296%_) + (_%else131299131313%_ (lambda () - (_%resolve127524%_ - _%ctx127528%_ - _%src-phi127529%_ - _%id127518%_))) - (_%K127535127580%_ - (lambda (_%rest127550%_ _%hd127551%_) - (let* ((_%hd127552127558%_ _%hd127551%_) - (_%E127554127562%_ + (_%resolve131290%_ + _%ctx131294%_ + _%src-phi131295%_ + _%id131284%_))) + (_%K131301131345%_ + (lambda (_%rest131316%_ _%hd131317%_) + (let* ((_%hd131318131324%_ _%hd131317%_) + (_%E131320131327%_ (lambda () (error '"No clause matching" - _%hd127552127558%_ + _%hd131318131324%_ '((expander-mark subst))) '#!void)) - (_%K127555127572%_ - (lambda (_%subst127565%_) - (let ((_%$e127569%_ - (let ((_%key127567%_ - (if _%subst127565%_ + (_%K131321131337%_ + (lambda (_%subst131330%_) + (let ((_%$e131334%_ + (let ((_%key131332%_ + (if _%subst131330%_ (hash-get - _%subst127565%_ - _%id127518%_) + _%subst131330%_ + _%id131284%_) '#f))) - (if _%key127567%_ - (_%resolve127524%_ - _%ctx127528%_ - _%src-phi127529%_ - _%key127567%_) + (if _%key131332%_ + (_%resolve131290%_ + _%ctx131294%_ + _%src-phi131295%_ + _%key131332%_) '#f)))) - (if _%$e127569%_ - _%$e127569%_ - (_%lp127526%_ + (if _%$e131334%_ + _%$e131334%_ + (_%lp131292%_ (##unchecked-structure-ref - _%hd127551%_ + _%hd131317%_ '2 '#f '#f) (##unchecked-structure-ref - _%hd127551%_ + _%hd131317%_ '3 '#f '#f) - _%rest127550%_)))))) + _%rest131316%_)))))) (if (##structure-instance-of? - _%hd127552127558%_ + _%hd131318131324%_ 'gx#expander-mark::t) - (let* ((_%e127556127575%_ + (let* ((_%e131322131340%_ (##unchecked-structure-ref - _%hd127552127558%_ + _%hd131318131324%_ '1 '#f '#f)) - (_%subst127578%_ _%e127556127575%_)) - (_%K127555127572%_ _%subst127578%_)) - (_%E127554127562%_)))))) - (if (pair? _%rest127531127539%_) - (let ((_%hd127536127583%_ (##car _%rest127531127539%_)) - (_%tl127537127585%_ (##cdr _%rest127531127539%_))) - (let* ((_%hd127588%_ _%hd127536127583%_) - (_%rest127590%_ _%tl127537127585%_)) - (_%K127535127580%_ _%rest127590%_ _%hd127588%_))) - (_%else127533127547%_))))))) + (_%subst131343%_ _%e131322131340%_)) + (_%K131321131337%_ _%subst131343%_)) + (_%E131320131327%_)))))) + (if (pair? _%rest131297131305%_) + (let ((_%hd131302131348%_ (##car _%rest131297131305%_)) + (_%tl131303131350%_ (##cdr _%rest131297131305%_))) + (let* ((_%hd131353%_ _%hd131302131348%_) + (_%rest131355%_ _%tl131303131350%_)) + (_%K131301131345%_ _%rest131355%_ _%hd131353%_))) + (_%else131299131313%_))))))) (define gx#core-bind!__% - (lambda (_%key127388%_ - _%val127389%_ - _%rebind?127390%_ - _%phi127391%_ - _%ctx127392%_) - (letrec ((_%update-binding127394%_ - (lambda (_%xval127467%_) - (if (or (_%rebind?127390%_ - _%ctx127392%_ - _%xval127467%_ - _%val127389%_) + (lambda (_%key131155%_ + _%val131156%_ + _%rebind?131157%_ + _%phi131158%_ + _%ctx131159%_) + (letrec ((_%update-binding131161%_ + (lambda (_%xval131233%_) + (if (or (_%rebind?131157%_ + _%ctx131159%_ + _%xval131233%_ + _%val131156%_) (and (##structure-direct-instance-of? - _%xval127467%_ + _%xval131233%_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _%xval127467%_ + _%xval131233%_ '6 '#f '#f) (and (##structure-instance-of? - _%val127389%_ + _%val131156%_ 'gx#binding::t) (not (##structure-direct-instance-of? - _%val127389%_ + _%val131156%_ 'gx#import-binding::t))))) (and (##structure-instance-of? - _%xval127467%_ + _%xval131233%_ 'gx#extern-binding::t) (##structure-instance-of? - _%val127389%_ + _%val131156%_ 'gx#runtime-binding::t) (eq? (##unchecked-structure-ref - _%val127389%_ + _%val131156%_ '1 '#f '#f) (##unchecked-structure-ref - _%xval127467%_ + _%xval131233%_ '1 '#f '#f)))) - _%val127389%_ + _%val131156%_ (if (and (##structure-direct-instance-of? - _%val127389%_ + _%val131156%_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _%val127389%_ + _%val131156%_ '6 '#f '#f) (and (##structure-instance-of? - _%xval127467%_ + _%xval131233%_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _%val127389%_ + _%val131156%_ '1 '#f '#f) (##unchecked-structure-ref - _%xval127467%_ + _%xval131233%_ '1 '#f '#f))))) - _%xval127467%_ + _%xval131233%_ (if (and (##structure-direct-instance-of? - _%val127389%_ + _%val131156%_ 'gx#import-binding::t) (##structure-instance-of? - _%xval127467%_ + _%xval131233%_ 'gx#binding::t)) (gx#raise-syntax-error '#f '"Bad binding; import conflict" - _%key127388%_ + _%key131155%_ (cons (##unchecked-structure-ref - _%val127389%_ + _%val131156%_ '1 '#f '#f) (cons (##structure-ref (##unchecked-structure-ref - _%val127389%_ + _%val131156%_ '5 '#f '#f) @@ -2789,175 +2786,175 @@ '#f) '())) (cons (##unchecked-structure-ref - _%xval127467%_ + _%xval131233%_ '1 '#f '#f) (cons (if (##structure-direct-instance-of? - _%xval127467%_ + _%xval131233%_ 'gx#import-binding::t) (##structure-ref (##unchecked-structure-ref - _%xval127467%_ + _%xval131233%_ '5 '#f '#f) '1 gx#expander-context::t '#f) - _%xval127467%_) + _%xval131233%_) '()))) (gx#raise-syntax-error '#f '"Bad binding; rebind conflict" - _%key127388%_ - _%val127389%_ - _%xval127467%_)))))) - (_%gensubst127395%_ - (lambda (_%subst127462%_ _%id127463%_) - (let ((_%eid127465%_ - (gensym (if (uninterned-symbol? _%id127463%_) + _%key131155%_ + _%val131156%_ + _%xval131233%_)))))) + (_%gensubst131162%_ + (lambda (_%subst131228%_ _%id131229%_) + (let ((_%eid131231%_ + (gensym (if (uninterned-symbol? _%id131229%_) '% - _%id127463%_)))) - (hash-put! _%subst127462%_ _%id127463%_ _%eid127465%_) - _%eid127465%_))) - (_%subst!127396%_ - (lambda (_%key127398%_) - (let* ((_%key127399127407%_ _%key127398%_) - (_%else127401127415%_ (lambda () _%key127398%_)) - (_%K127403127450%_ - (lambda (_%mark127418%_ _%id127419%_) - (let* ((_%mark127420127426%_ _%mark127418%_) - (_%E127422127430%_ + _%id131229%_)))) + (hash-put! _%subst131228%_ _%id131229%_ _%eid131231%_) + _%eid131231%_))) + (_%subst!131163%_ + (lambda (_%key131165%_) + (let* ((_%key131166131174%_ _%key131165%_) + (_%else131168131182%_ (lambda () _%key131165%_)) + (_%K131170131216%_ + (lambda (_%mark131185%_ _%id131186%_) + (let* ((_%mark131187131193%_ _%mark131185%_) + (_%E131189131196%_ (lambda () (error '"No clause matching" - _%mark127420127426%_ + _%mark131187131193%_ '((expander-mark subst))) '#!void)) - (_%K127423127442%_ - (lambda (_%subst127433%_) - (if (not _%subst127433%_) - (let ((_%subst127436%_ + (_%K131190131208%_ + (lambda (_%subst131199%_) + (if (not _%subst131199%_) + (let ((_%subst131202%_ (make-hash-table-eq))) (##unchecked-structure-set! - _%mark127418%_ - _%subst127436%_ + _%mark131185%_ + _%subst131202%_ '1 '#f '#f) - (_%gensubst127395%_ - _%subst127436%_ - _%id127419%_)) - (let ((_%$e127438%_ + (_%gensubst131162%_ + _%subst131202%_ + _%id131186%_)) + (let ((_%$e131204%_ (hash-get - _%subst127433%_ - _%id127419%_))) - (if _%$e127438%_ - _%$e127438%_ - (_%gensubst127395%_ - _%subst127433%_ - _%id127419%_))))))) + _%subst131199%_ + _%id131186%_))) + (if _%$e131204%_ + _%$e131204%_ + (_%gensubst131162%_ + _%subst131199%_ + _%id131186%_))))))) (if (##structure-instance-of? - _%mark127420127426%_ + _%mark131187131193%_ 'gx#expander-mark::t) - (let* ((_%e127424127445%_ + (let* ((_%e131191131211%_ (##unchecked-structure-ref - _%mark127420127426%_ + _%mark131187131193%_ '1 '#f '#f)) - (_%subst127448%_ _%e127424127445%_)) - (_%K127423127442%_ _%subst127448%_)) - (_%E127422127430%_)))))) - (if (pair? _%key127399127407%_) - (let ((_%hd127404127453%_ - (##car _%key127399127407%_)) - (_%tl127405127455%_ - (##cdr _%key127399127407%_))) - (let* ((_%id127458%_ _%hd127404127453%_) - (_%mark127460%_ _%tl127405127455%_)) - (_%K127403127450%_ _%mark127460%_ _%id127458%_))) - (_%else127401127415%_)))))) + (_%subst131214%_ _%e131191131211%_)) + (_%K131190131208%_ _%subst131214%_)) + (_%E131189131196%_)))))) + (if (pair? _%key131166131174%_) + (let ((_%hd131171131219%_ + (##car _%key131166131174%_)) + (_%tl131172131221%_ + (##cdr _%key131166131174%_))) + (let* ((_%id131224%_ _%hd131171131219%_) + (_%mark131226%_ _%tl131172131221%_)) + (_%K131170131216%_ _%mark131226%_ _%id131224%_))) + (_%else131168131182%_)))))) (gx#core-context-bind! - (gx#core-context-shift _%ctx127392%_ _%phi127391%_) - (_%subst!127396%_ _%key127388%_) - _%val127389%_ - _%update-binding127394%_)))) + (gx#core-context-shift _%ctx131159%_ _%phi131158%_) + (_%subst!131163%_ _%key131155%_) + _%val131156%_ + _%update-binding131161%_)))) (define gx#core-bind!__0 - (lambda (_%key127488%_ _%val127489%_) - (let* ((_%rebind?127491%_ false) - (_%phi127493%_ (gx#current-expander-phi)) - (_%ctx127495%_ (gx#current-expander-context))) + (lambda (_%key131254%_ _%val131255%_) + (let* ((_%rebind?131257%_ false) + (_%phi131259%_ (gx#current-expander-phi)) + (_%ctx131261%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key127488%_ - _%val127489%_ - _%rebind?127491%_ - _%phi127493%_ - _%ctx127495%_)))) + _%key131254%_ + _%val131255%_ + _%rebind?131257%_ + _%phi131259%_ + _%ctx131261%_)))) (define gx#core-bind!__1 - (lambda (_%key127497%_ _%val127498%_ _%rebind?127499%_) - (let* ((_%phi127501%_ (gx#current-expander-phi)) - (_%ctx127503%_ (gx#current-expander-context))) + (lambda (_%key131263%_ _%val131264%_ _%rebind?131265%_) + (let* ((_%phi131267%_ (gx#current-expander-phi)) + (_%ctx131269%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key127497%_ - _%val127498%_ - _%rebind?127499%_ - _%phi127501%_ - _%ctx127503%_)))) + _%key131263%_ + _%val131264%_ + _%rebind?131265%_ + _%phi131267%_ + _%ctx131269%_)))) (define gx#core-bind!__2 - (lambda (_%key127505%_ _%val127506%_ _%rebind?127507%_ _%phi127508%_) - (let ((_%ctx127510%_ (gx#current-expander-context))) + (lambda (_%key131271%_ _%val131272%_ _%rebind?131273%_ _%phi131274%_) + (let ((_%ctx131276%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key127505%_ - _%val127506%_ - _%rebind?127507%_ - _%phi127508%_ - _%ctx127510%_)))) + _%key131271%_ + _%val131272%_ + _%rebind?131273%_ + _%phi131274%_ + _%ctx131276%_)))) (define gx#core-bind! - (lambda _g130042_ - (let ((_g130043_ (##length _g130042_))) - (cond ((##fx= _g130043_ 2) (apply gx#core-bind!__0 _g130042_)) - ((##fx= _g130043_ 3) (apply gx#core-bind!__1 _g130042_)) - ((##fx= _g130043_ 4) (apply gx#core-bind!__2 _g130042_)) - ((##fx= _g130043_ 5) (apply gx#core-bind!__% _g130042_)) + (lambda _g133803_ + (let ((_g133804_ (##length _g133803_))) + (cond ((##fx= _g133804_ 2) (apply gx#core-bind!__0 _g133803_)) + ((##fx= _g133804_ 3) (apply gx#core-bind!__1 _g133803_)) + ((##fx= _g133804_ 4) (apply gx#core-bind!__2 _g133803_)) + ((##fx= _g133804_ 5) (apply gx#core-bind!__% _g133803_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind! - _g130042_)))))) + _g133803_)))))) (define gx#core-identifier-key - (lambda (_%stx127319%_) - (if (symbol? _%stx127319%_) - (let* ((_%g127321127329%_ (gx#current-expander-marks)) - (_%else127323127337%_ (lambda () _%stx127319%_)) - (_%K127325127342%_ - (lambda (_%hd127340%_) (cons _%stx127319%_ _%hd127340%_)))) - (if (pair? _%g127321127329%_) - (let* ((_%hd127326127345%_ (##car _%g127321127329%_)) - (_%hd127348%_ _%hd127326127345%_)) - (_%K127325127342%_ _%hd127348%_)) - (_%else127323127337%_))) - (if (gx#identifier? _%stx127319%_) - (let* ((_%id127351%_ (gx#syntax-local-unwrap _%stx127319%_)) - (_%eid127353%_ (gx#stx-e _%id127351%_)) - (_%marks127355%_ - (gx#stx-identifier-marks* _%id127351%_)) - (_%marks127357127365%_ _%marks127355%_) - (_%else127359127373%_ (lambda () _%eid127353%_)) - (_%K127361127378%_ - (lambda (_%hd127376%_) - (cons _%eid127353%_ _%hd127376%_)))) - (if (pair? _%marks127357127365%_) - (let* ((_%hd127362127381%_ (##car _%marks127357127365%_)) - (_%hd127384%_ _%hd127362127381%_)) - (_%K127361127378%_ _%hd127384%_)) - (_%else127359127373%_))) - (gx#raise-syntax-error '#f '"Bad identifier" _%stx127319%_))))) + (lambda (_%stx131086%_) + (if (symbol? _%stx131086%_) + (let* ((_%g131088131096%_ (gx#current-expander-marks)) + (_%else131090131104%_ (lambda () _%stx131086%_)) + (_%K131092131109%_ + (lambda (_%hd131107%_) (cons _%stx131086%_ _%hd131107%_)))) + (if (pair? _%g131088131096%_) + (let* ((_%hd131093131112%_ (##car _%g131088131096%_)) + (_%hd131115%_ _%hd131093131112%_)) + (_%K131092131109%_ _%hd131115%_)) + (_%else131090131104%_))) + (if (gx#identifier? _%stx131086%_) + (let* ((_%id131118%_ (gx#syntax-local-unwrap _%stx131086%_)) + (_%eid131120%_ (gx#stx-e _%id131118%_)) + (_%marks131122%_ + (gx#stx-identifier-marks* _%id131118%_)) + (_%marks131124131132%_ _%marks131122%_) + (_%else131126131140%_ (lambda () _%eid131120%_)) + (_%K131128131145%_ + (lambda (_%hd131143%_) + (cons _%eid131120%_ _%hd131143%_)))) + (if (pair? _%marks131124131132%_) + (let* ((_%hd131129131148%_ (##car _%marks131124131132%_)) + (_%hd131151%_ _%hd131129131148%_)) + (_%K131128131145%_ _%hd131151%_)) + (_%else131126131140%_))) + (gx#raise-syntax-error '#f '"Bad identifier" _%stx131086%_))))) (define gx#&phi-context? gx#phi-context?) (define gx#core-context-shift - (lambda (_%ctx127258%_ _%phi127259%_) - (letrec ((_%make-phi127261%_ - (lambda (_%super127317%_) - (let ((__obj130015 + (lambda (_%ctx131025%_ _%phi131026%_) + (letrec ((_%make-phi131028%_ + (lambda (_%super131084%_) + (let ((__obj133776 (##structure gx#phi-context::t '#f @@ -2966,579 +2963,582 @@ '#f '#f))) (gx#phi-context:::init!__% - __obj130015 + __obj133776 (##gensym 'phi) - _%super127317%_) - __obj130015))) - (_%make-phi/up127262%_ - (lambda (_%ctx127312%_ _%super127313%_) - (let ((_%ctx+1127315%_ - (_%make-phi127261%_ _%super127313%_))) + _%super131084%_) + __obj133776))) + (_%make-phi/up131029%_ + (lambda (_%ctx131079%_ _%super131080%_) + (let ((_%ctx+1131082%_ + (_%make-phi131028%_ _%super131080%_))) (##unchecked-structure-set! - _%ctx127312%_ - _%ctx+1127315%_ + _%ctx131079%_ + _%ctx+1131082%_ '4 '#f '#f) (##unchecked-structure-set! - _%ctx+1127315%_ - _%ctx127312%_ + _%ctx+1131082%_ + _%ctx131079%_ '5 '#f '#f) - _%ctx+1127315%_))) - (_%make-phi/down127263%_ - (lambda (_%ctx127307%_ _%super127308%_) - (let ((_%ctx-1127310%_ - (_%make-phi127261%_ _%super127308%_))) + _%ctx+1131082%_))) + (_%make-phi/down131030%_ + (lambda (_%ctx131074%_ _%super131075%_) + (let ((_%ctx-1131077%_ + (_%make-phi131028%_ _%super131075%_))) (##unchecked-structure-set! - _%ctx-1127310%_ - _%ctx127307%_ + _%ctx-1131077%_ + _%ctx131074%_ '4 '#f '#f) (##unchecked-structure-set! - _%ctx127307%_ - _%ctx-1127310%_ + _%ctx131074%_ + _%ctx-1131077%_ '5 '#f '#f) - _%ctx-1127310%_))) - (_%shift127264%_ - (lambda (_%ctx127290%_ - _%delta127291%_ - _%make-delta-context127292%_ - _%phi127293%_ - _%K127294%_) - (let ((_%$e127296%_ + _%ctx-1131077%_))) + (_%shift131031%_ + (lambda (_%ctx131057%_ + _%delta131058%_ + _%make-delta-context131059%_ + _%phi131060%_ + _%K131061%_) + (let ((_%$e131063%_ (##unchecked-structure-ref - _%ctx127290%_ + _%ctx131057%_ '3 '#f '#f))) - (if _%$e127296%_ - ((lambda (_%super127299%_) - (let* ((_%super127301%_ - (_%K127294%_ - _%super127299%_ - _%delta127291%_)) - (_%ctx+d127303%_ - (_%make-delta-context127292%_ - _%ctx127290%_ - _%super127301%_))) - (_%K127294%_ - _%ctx+d127303%_ - (fx- _%phi127293%_ _%delta127291%_)))) - _%$e127296%_) - (error '"Bad context" _%ctx127290%_)))))) - (let _%K127266%_ ((_%ctx127268%_ _%ctx127258%_) - (_%phi127269%_ _%phi127259%_)) - (if (fxzero? _%phi127269%_) - _%ctx127268%_ - (if (##structure-instance-of? _%ctx127268%_ 'gx#phi-context::t) - (if (fxpositive? _%phi127269%_) - (let ((_%$e127273%_ + (if _%$e131063%_ + ((lambda (_%super131066%_) + (let* ((_%super131068%_ + (_%K131061%_ + _%super131066%_ + _%delta131058%_)) + (_%ctx+d131070%_ + (_%make-delta-context131059%_ + _%ctx131057%_ + _%super131068%_))) + (_%K131061%_ + _%ctx+d131070%_ + (fx- _%phi131060%_ _%delta131058%_)))) + _%$e131063%_) + (error '"Bad context" _%ctx131057%_)))))) + (let _%K131033%_ ((_%ctx131035%_ _%ctx131025%_) + (_%phi131036%_ _%phi131026%_)) + (if (fxzero? _%phi131036%_) + _%ctx131035%_ + (if (##structure-instance-of? _%ctx131035%_ 'gx#phi-context::t) + (if (fxpositive? _%phi131036%_) + (let ((_%$e131040%_ (##unchecked-structure-ref - _%ctx127268%_ + _%ctx131035%_ '4 '#f '#f))) - (if _%$e127273%_ - ((lambda (_%g127275127277%_) - (_%K127266%_ - _%g127275127277%_ - (##fx- _%phi127269%_ '1))) - _%$e127273%_) - (_%shift127264%_ - _%ctx127268%_ + (if _%$e131040%_ + ((lambda (_%g131042131044%_) + (_%K131033%_ + _%g131042131044%_ + (##fx- _%phi131036%_ '1))) + _%$e131040%_) + (_%shift131031%_ + _%ctx131035%_ '1 - _%make-phi/up127262%_ - _%phi127269%_ - _%K127266%_))) - (let ((_%$e127281%_ + _%make-phi/up131029%_ + _%phi131036%_ + _%K131033%_))) + (let ((_%$e131048%_ (##unchecked-structure-ref - _%ctx127268%_ + _%ctx131035%_ '5 '#f '#f))) - (if _%$e127281%_ - ((lambda (_%g127283127285%_) - (_%K127266%_ - _%g127283127285%_ - (##fx+ _%phi127269%_ '1))) - _%$e127281%_) - (_%shift127264%_ - _%ctx127268%_ + (if _%$e131048%_ + ((lambda (_%g131050131052%_) + (_%K131033%_ + _%g131050131052%_ + (##fx+ _%phi131036%_ '1))) + _%$e131048%_) + (_%shift131031%_ + _%ctx131035%_ '-1 - _%make-phi/down127263%_ - _%phi127269%_ - _%K127266%_)))) - _%ctx127268%_)))))) + _%make-phi/down131030%_ + _%phi131036%_ + _%K131033%_)))) + _%ctx131035%_)))))) (define gx#core-context-get - (lambda (_%ctx127255%_ _%key127256%_) + (lambda (_%ctx131022%_ _%key131023%_) (hash-get - (##unchecked-structure-ref _%ctx127255%_ '2 '#f '#f) - _%key127256%_))) + (##unchecked-structure-ref _%ctx131022%_ '2 '#f '#f) + _%key131023%_))) (define gx#core-context-put! - (lambda (_%ctx127251%_ _%key127252%_ _%val127253%_) + (lambda (_%ctx131018%_ _%key131019%_ _%val131020%_) (hash-put! - (##unchecked-structure-ref _%ctx127251%_ '2 '#f '#f) - _%key127252%_ - _%val127253%_))) + (##unchecked-structure-ref _%ctx131018%_ '2 '#f '#f) + _%key131019%_ + _%val131020%_))) (define gx#core-context-resolve - (lambda (_%ctx127237%_ _%key127238%_) - (let _%lp127240%_ ((_%ctx127242%_ _%ctx127237%_)) - (let ((_%$e127244%_ - (gx#core-context-get _%ctx127242%_ _%key127238%_))) - (if _%$e127244%_ - _%$e127244%_ - (let ((_%$e127247%_ + (lambda (_%ctx131004%_ _%key131005%_) + (let _%lp131007%_ ((_%ctx131009%_ _%ctx131004%_)) + (let ((_%$e131011%_ + (gx#core-context-get _%ctx131009%_ _%key131005%_))) + (if _%$e131011%_ + _%$e131011%_ + (let ((_%$e131014%_ (if (##structure-instance-of? - _%ctx127242%_ + _%ctx131009%_ 'gx#phi-context::t) - (##unchecked-structure-ref _%ctx127242%_ '3 '#f '#f) + (##unchecked-structure-ref _%ctx131009%_ '3 '#f '#f) '#f))) - (if _%$e127247%_ (_%lp127240%_ _%$e127247%_) '#f))))))) + (if _%$e131014%_ (_%lp131007%_ _%$e131014%_) '#f))))))) (define gx#core-context-bind! - (lambda (_%ctx127226%_ _%key127227%_ _%val127228%_ _%rebind127229%_) - (let ((_%$e127231%_ (gx#core-context-get _%ctx127226%_ _%key127227%_))) - (if _%$e127231%_ - ((lambda (_%xval127234%_) + (lambda (_%ctx130993%_ _%key130994%_ _%val130995%_ _%rebind130996%_) + (let ((_%$e130998%_ (gx#core-context-get _%ctx130993%_ _%key130994%_))) + (if _%$e130998%_ + ((lambda (_%xval131001%_) (gx#core-context-put! - _%ctx127226%_ - _%key127227%_ - (_%rebind127229%_ _%xval127234%_))) - _%$e127231%_) + _%ctx130993%_ + _%key130994%_ + (_%rebind130996%_ _%xval131001%_))) + _%$e130998%_) (gx#core-context-put! - _%ctx127226%_ - _%key127227%_ - _%val127228%_))))) + _%ctx130993%_ + _%key130994%_ + _%val130995%_))))) (define gx#core-context-top__% - (lambda (_%ctx127201%_ _%stop?127202%_) - (let _%lp127204%_ ((_%ctx127206%_ _%ctx127201%_)) - (if (_%stop?127202%_ _%ctx127206%_) - _%ctx127206%_ - (if (##structure-instance-of? _%ctx127206%_ 'gx#phi-context::t) - (_%lp127204%_ - (##unchecked-structure-ref _%ctx127206%_ '3 '#f '#f)) + (lambda (_%ctx130968%_ _%stop?130969%_) + (let _%lp130971%_ ((_%ctx130973%_ _%ctx130968%_)) + (if (_%stop?130969%_ _%ctx130973%_) + _%ctx130973%_ + (if (##structure-instance-of? _%ctx130973%_ 'gx#phi-context::t) + (_%lp130971%_ + (##unchecked-structure-ref _%ctx130973%_ '3 '#f '#f)) '#f))))) (define gx#core-context-top__0 (lambda () - (let* ((_%ctx127215%_ (gx#current-expander-context)) - (_%stop?127217%_ gx#top-context?)) - (gx#core-context-top__% _%ctx127215%_ _%stop?127217%_)))) + (let* ((_%ctx130982%_ (gx#current-expander-context)) + (_%stop?130984%_ gx#top-context?)) + (gx#core-context-top__% _%ctx130982%_ _%stop?130984%_)))) (define gx#core-context-top__1 - (lambda (_%ctx127219%_) - (let ((_%stop?127221%_ gx#top-context?)) - (gx#core-context-top__% _%ctx127219%_ _%stop?127221%_)))) + (lambda (_%ctx130986%_) + (let ((_%stop?130988%_ gx#top-context?)) + (gx#core-context-top__% _%ctx130986%_ _%stop?130988%_)))) (define gx#core-context-top - (lambda _g130044_ - (let ((_g130045_ (##length _g130044_))) - (cond ((##fx= _g130045_ 0) (apply gx#core-context-top__0 _g130044_)) - ((##fx= _g130045_ 1) (apply gx#core-context-top__1 _g130044_)) - ((##fx= _g130045_ 2) (apply gx#core-context-top__% _g130044_)) + (lambda _g133805_ + (let ((_g133806_ (##length _g133805_))) + (cond ((##fx= _g133806_ 0) (apply gx#core-context-top__0 _g133805_)) + ((##fx= _g133806_ 1) (apply gx#core-context-top__1 _g133805_)) + ((##fx= _g133806_ 2) (apply gx#core-context-top__% _g133805_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-top - _g130044_)))))) + _g133805_)))))) (define gx#core-context-root__% - (lambda (_%ctx127186%_) - (let _%lp127188%_ ((_%ctx127190%_ _%ctx127186%_)) - (if (##structure-instance-of? _%ctx127190%_ 'gx#phi-context::t) - (_%lp127188%_ - (##unchecked-structure-ref _%ctx127190%_ '3 '#f '#f)) - _%ctx127190%_)))) + (lambda (_%ctx130953%_) + (let _%lp130955%_ ((_%ctx130957%_ _%ctx130953%_)) + (if (##structure-instance-of? _%ctx130957%_ 'gx#phi-context::t) + (_%lp130955%_ + (##unchecked-structure-ref _%ctx130957%_ '3 '#f '#f)) + _%ctx130957%_)))) (define gx#core-context-root__0 (lambda () - (let ((_%ctx127196%_ (gx#current-expander-context))) - (gx#core-context-root__% _%ctx127196%_)))) + (let ((_%ctx130963%_ (gx#current-expander-context))) + (gx#core-context-root__% _%ctx130963%_)))) (define gx#core-context-root - (lambda _g130046_ - (let ((_g130047_ (##length _g130046_))) - (cond ((##fx= _g130047_ 0) (apply gx#core-context-root__0 _g130046_)) - ((##fx= _g130047_ 1) (apply gx#core-context-root__% _g130046_)) + (lambda _g133807_ + (let ((_g133808_ (##length _g133807_))) + (cond ((##fx= _g133808_ 0) (apply gx#core-context-root__0 _g133807_)) + ((##fx= _g133808_ 1) (apply gx#core-context-root__% _g133807_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-root - _g130046_)))))) + _g133807_)))))) (define gx#core-context-rebind?__% - (lambda (_%ctx127168%_ . _%ignore127169%_) - (let ((_%$e127171%_ (gx#current-expander-allow-rebind?))) - (if _%$e127171%_ - _%$e127171%_ - (if (##structure-instance-of? _%ctx127168%_ 'gx#top-context::t) + (lambda (_%ctx130935%_ . _%ignore130936%_) + (let ((_%$e130938%_ (gx#current-expander-allow-rebind?))) + (if _%$e130938%_ + _%$e130938%_ + (if (##structure-instance-of? _%ctx130935%_ 'gx#top-context::t) (if (##structure-instance-of? - _%ctx127168%_ + _%ctx130935%_ 'gx#module-context::t) '#f (not (##structure-instance-of? - _%ctx127168%_ + _%ctx130935%_ 'gx#prelude-context::t))) '#f))))) (define gx#core-context-rebind?__0 (lambda () - (let ((_%ctx127178%_ (gx#current-expander-context))) - (gx#core-context-rebind?__% _%ctx127178%_)))) + (let ((_%ctx130945%_ (gx#current-expander-context))) + (gx#core-context-rebind?__% _%ctx130945%_)))) (define gx#core-context-rebind? - (lambda _g130048_ - (let ((_g130049_ (##length _g130048_))) - (cond ((##fx= _g130049_ 0) - (apply gx#core-context-rebind?__0 _g130048_)) - ((##fx= _g130049_ 1) - (apply gx#core-context-rebind?__% _g130048_)) - ((##fx>= _g130049_ 1) - (apply gx#core-context-rebind?__% _g130048_)) + (lambda _g133809_ + (let ((_g133810_ (##length _g133809_))) + (cond ((##fx= _g133810_ 0) + (apply gx#core-context-rebind?__0 _g133809_)) + ((##fx= _g133810_ 1) + (apply gx#core-context-rebind?__% _g133809_)) + ((##fx>= _g133810_ 1) + (apply gx#core-context-rebind?__% _g133809_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-rebind? - _g130048_)))))) + _g133809_)))))) (define gx#core-context-namespace__% - (lambda (_%ctx127151%_) - (let ((_%$e127153%_ (gx#core-context-top__1 _%ctx127151%_))) - (if _%$e127153%_ - ((lambda (_%ctx127156%_) + (lambda (_%ctx130918%_) + (let ((_%$e130920%_ (gx#core-context-top__1 _%ctx130918%_))) + (if _%$e130920%_ + ((lambda (_%ctx130923%_) (if (##structure-instance-of? - _%ctx127156%_ + _%ctx130923%_ 'gx#module-context::t) - (##unchecked-structure-ref _%ctx127156%_ '6 '#f '#f) + (##unchecked-structure-ref _%ctx130923%_ '6 '#f '#f) '#f)) - _%$e127153%_) + _%$e130920%_) '#f)))) (define gx#core-context-namespace__0 (lambda () - (let ((_%ctx127163%_ (gx#current-expander-context))) - (gx#core-context-namespace__% _%ctx127163%_)))) + (let ((_%ctx130930%_ (gx#current-expander-context))) + (gx#core-context-namespace__% _%ctx130930%_)))) (define gx#core-context-namespace - (lambda _g130050_ - (let ((_g130051_ (##length _g130050_))) - (cond ((##fx= _g130051_ 0) - (apply gx#core-context-namespace__0 _g130050_)) - ((##fx= _g130051_ 1) - (apply gx#core-context-namespace__% _g130050_)) + (lambda _g133811_ + (let ((_g133812_ (##length _g133811_))) + (cond ((##fx= _g133812_ 0) + (apply gx#core-context-namespace__0 _g133811_)) + ((##fx= _g133812_ 1) + (apply gx#core-context-namespace__% _g133811_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-namespace - _g130050_)))))) + _g133811_)))))) (define gx#expander-binding?__% - (lambda (_%bind127137%_ _%is?127138%_) + (lambda (_%bind130904%_ _%is?130905%_) (if (##structure-direct-instance-of? - _%bind127137%_ + _%bind130904%_ 'gx#syntax-binding::t) - (_%is?127138%_ - (##unchecked-structure-ref _%bind127137%_ '4 '#f '#f)) + (_%is?130905%_ + (##unchecked-structure-ref _%bind130904%_ '4 '#f '#f)) '#f))) (define gx#expander-binding?__0 - (lambda (_%bind127143%_) - (let ((_%is?127145%_ gx#expander?)) - (gx#expander-binding?__% _%bind127143%_ _%is?127145%_)))) + (lambda (_%bind130910%_) + (let ((_%is?130912%_ gx#expander?)) + (gx#expander-binding?__% _%bind130910%_ _%is?130912%_)))) (define gx#expander-binding? - (lambda _g130052_ - (let ((_g130053_ (##length _g130052_))) - (cond ((##fx= _g130053_ 1) (apply gx#expander-binding?__0 _g130052_)) - ((##fx= _g130053_ 2) (apply gx#expander-binding?__% _g130052_)) + (lambda _g133813_ + (let ((_g133814_ (##length _g133813_))) + (cond ((##fx= _g133814_ 1) (apply gx#expander-binding?__0 _g133813_)) + ((##fx= _g133814_ 2) (apply gx#expander-binding?__% _g133813_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-binding? - _g130052_)))))) + _g133813_)))))) (define gx#core-expander-binding? - (lambda (_%bind127134%_) - (gx#expander-binding?__% _%bind127134%_ gx#core-expander?))) + (lambda (_%bind130901%_) + (gx#expander-binding?__% _%bind130901%_ gx#core-expander?))) (define gx#expression-form-binding? - (lambda (_%bind127132%_) - (gx#expander-binding?__% _%bind127132%_ gx#expression-form?))) + (lambda (_%bind130899%_) + (gx#expander-binding?__% _%bind130899%_ gx#expression-form?))) (define gx#direct-special-form-binding? - (lambda (_%bind127126%_) - (letrec ((_%direct-special-form?127128%_ - (lambda (_%obj127130%_) + (lambda (_%bind130893%_) + (letrec ((_%direct-special-form?130895%_ + (lambda (_%obj130897%_) (##structure-direct-instance-of? - _%obj127130%_ + _%obj130897%_ (##type-id gx#special-form::t))))) (gx#expander-binding?__% - _%bind127126%_ - _%direct-special-form?127128%_)))) + _%bind130893%_ + _%direct-special-form?130895%_)))) (define gx#special-form-binding? - (lambda (_%bind127124%_) - (gx#expander-binding?__% _%bind127124%_ gx#special-form?))) + (lambda (_%bind130891%_) + (gx#expander-binding?__% _%bind130891%_ gx#special-form?))) (define gx#feature-binding? - (lambda (_%bind127115%_) - (letrec ((_%feature?127117%_ - (lambda (_%e127119%_) - (let ((_%$e127121%_ + (lambda (_%bind130882%_) + (letrec ((_%feature?130884%_ + (lambda (_%e130886%_) + (let ((_%$e130888%_ (##structure-instance-of? - _%e127119%_ + _%e130886%_ 'gx#feature-expander::t))) - (if _%$e127121%_ - _%$e127121%_ + (if _%$e130888%_ + _%$e130888%_ (##structure-instance-of? - _%e127119%_ + _%e130886%_ 'gx#module-context::t)))))) - (gx#expander-binding?__% _%bind127115%_ _%feature?127117%_)))) + (gx#expander-binding?__% _%bind130882%_ _%feature?130884%_)))) (define gx#private-feature-binding? - (lambda (_%bind127113%_) - (gx#expander-binding?__% _%bind127113%_ gx#private-feature-expander?))) + (lambda (_%bind130880%_) + (gx#expander-binding?__% _%bind130880%_ gx#private-feature-expander?))) (define gx#core-bound-identifier?__% - (lambda (_%id127100%_ _%bound?127101%_) - (if (gx#identifier? _%id127100%_) - (_%bound?127101%_ (gx#resolve-identifier__0 _%id127100%_)) + (lambda (_%id130867%_ _%bound?130868%_) + (if (gx#identifier? _%id130867%_) + (_%bound?130868%_ (gx#resolve-identifier__0 _%id130867%_)) '#f))) (define gx#core-bound-identifier?__0 - (lambda (_%id127106%_) - (let ((_%bound?127108%_ gx#core-expander-binding?)) - (gx#core-bound-identifier?__% _%id127106%_ _%bound?127108%_)))) + (lambda (_%id130873%_) + (let ((_%bound?130875%_ gx#core-expander-binding?)) + (gx#core-bound-identifier?__% _%id130873%_ _%bound?130875%_)))) (define gx#core-bound-identifier? - (lambda _g130054_ - (let ((_g130055_ (##length _g130054_))) - (cond ((##fx= _g130055_ 1) - (apply gx#core-bound-identifier?__0 _g130054_)) - ((##fx= _g130055_ 2) - (apply gx#core-bound-identifier?__% _g130054_)) + (lambda _g133815_ + (let ((_g133816_ (##length _g133815_))) + (cond ((##fx= _g133816_ 1) + (apply gx#core-bound-identifier?__0 _g133815_)) + ((##fx= _g133816_ 2) + (apply gx#core-bound-identifier?__% _g133815_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bound-identifier? - _g130054_)))))) + _g133815_)))))) (define gx#core-identifier=? - (lambda (_%x127090%_ _%y127091%_) - (letrec ((_%y=?127093%_ - (lambda (_%xid127097%_) - ((if (list? _%y127091%_) memq eq?) - _%xid127097%_ - _%y127091%_)))) - (let ((_%bind127095%_ (gx#resolve-identifier__0 _%x127090%_))) - (if (##structure-instance-of? _%bind127095%_ 'gx#binding::t) - (_%y=?127093%_ - (##unchecked-structure-ref _%bind127095%_ '1 '#f '#f)) - (_%y=?127093%_ (gx#stx-e _%x127090%_))))))) + (lambda (_%x130857%_ _%y130858%_) + (letrec ((_%y=?130860%_ + (lambda (_%xid130864%_) + ((if (list? _%y130858%_) memq eq?) + _%xid130864%_ + _%y130858%_)))) + (let ((_%bind130862%_ (gx#resolve-identifier__0 _%x130857%_))) + (if (##structure-instance-of? _%bind130862%_ 'gx#binding::t) + (_%y=?130860%_ + (##unchecked-structure-ref _%bind130862%_ '1 '#f '#f)) + (_%y=?130860%_ (gx#stx-e _%x130857%_))))))) (define gx#core-extern-symbol? - (lambda (_%e127088%_) - (if (interned-symbol? _%e127088%_) - (string-index__0 (symbol->string _%e127088%_) '#\#) + (lambda (_%e130855%_) + (if (interned-symbol? _%e130855%_) + (string-index__0 (symbol->string _%e130855%_) '#\#) '#f))) (define gx#core-quote-syntax__% - (lambda (_%stx127041%_ _%src127042%_ _%ctx127043%_ _%marks127044%_) - (if (##structure? _%stx127041%_) - (let ((_%$e127046%_ (gx#sealed-syntax-unwrap _%stx127041%_))) - (if _%$e127046%_ - _%$e127046%_ - (if (gx#identifier? _%stx127041%_) - (let ((_%id127050%_ - (gx#stx-unwrap__% _%stx127041%_ _%marks127044%_))) + (lambda (_%stx130808%_ _%src130809%_ _%ctx130810%_ _%marks130811%_) + (if (##structure? _%stx130808%_) + (let ((_%$e130813%_ (gx#sealed-syntax-unwrap _%stx130808%_))) + (if _%$e130813%_ + _%$e130813%_ + (if (gx#identifier? _%stx130808%_) + (let ((_%id130817%_ + (gx#stx-unwrap__% _%stx130808%_ _%marks130811%_))) (##structure gx#syntax-quote::t - (##unchecked-structure-ref _%id127050%_ '1 '#f '#f) - (let ((_%$e127052%_ + (##unchecked-structure-ref _%id130817%_ '1 '#f '#f) + (let ((_%$e130819%_ (##unchecked-structure-ref - _%id127050%_ + _%id130817%_ '2 '#f '#f))) - (if _%$e127052%_ _%$e127052%_ _%src127042%_)) - _%ctx127043%_ - (##unchecked-structure-ref _%id127050%_ '3 '#f '#f))) + (if _%$e130819%_ _%$e130819%_ _%src130809%_)) + _%ctx130810%_ + (##unchecked-structure-ref _%id130817%_ '3 '#f '#f))) (##structure gx#syntax-quote::t - (gx#stx-e _%stx127041%_) - (let ((_%$e127056%_ (gx#stx-source _%stx127041%_))) - (if _%$e127056%_ _%$e127056%_ _%src127042%_)) - _%ctx127043%_ - (reverse _%marks127044%_))))) + (gx#stx-e _%stx130808%_) + (let ((_%$e130823%_ (gx#stx-source _%stx130808%_))) + (if _%$e130823%_ _%$e130823%_ _%src130809%_)) + _%ctx130810%_ + (reverse _%marks130811%_))))) (##structure gx#syntax-quote::t - _%stx127041%_ - _%src127042%_ - _%ctx127043%_ - (reverse _%marks127044%_))))) + _%stx130808%_ + _%src130809%_ + _%ctx130810%_ + (reverse _%marks130811%_))))) (define gx#core-quote-syntax__0 - (lambda (_%stx127062%_) - (let* ((_%src127064%_ '#f) - (_%ctx127066%_ (gx#current-expander-context)) - (_%marks127068%_ (gx#current-expander-marks))) + (lambda (_%stx130829%_) + (let* ((_%src130831%_ '#f) + (_%ctx130833%_ (gx#current-expander-context)) + (_%marks130835%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx127062%_ - _%src127064%_ - _%ctx127066%_ - _%marks127068%_)))) + _%stx130829%_ + _%src130831%_ + _%ctx130833%_ + _%marks130835%_)))) (define gx#core-quote-syntax__1 - (lambda (_%stx127070%_ _%src127071%_) - (let* ((_%ctx127073%_ (gx#current-expander-context)) - (_%marks127075%_ (gx#current-expander-marks))) + (lambda (_%stx130837%_ _%src130838%_) + (let* ((_%ctx130840%_ (gx#current-expander-context)) + (_%marks130842%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx127070%_ - _%src127071%_ - _%ctx127073%_ - _%marks127075%_)))) + _%stx130837%_ + _%src130838%_ + _%ctx130840%_ + _%marks130842%_)))) (define gx#core-quote-syntax__2 - (lambda (_%stx127077%_ _%src127078%_ _%ctx127079%_) - (let ((_%marks127081%_ (gx#current-expander-marks))) + (lambda (_%stx130844%_ _%src130845%_ _%ctx130846%_) + (let ((_%marks130848%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx127077%_ - _%src127078%_ - _%ctx127079%_ - _%marks127081%_)))) + _%stx130844%_ + _%src130845%_ + _%ctx130846%_ + _%marks130848%_)))) (define gx#core-quote-syntax - (lambda _g130056_ - (let ((_g130057_ (##length _g130056_))) - (cond ((##fx= _g130057_ 1) (apply gx#core-quote-syntax__0 _g130056_)) - ((##fx= _g130057_ 2) (apply gx#core-quote-syntax__1 _g130056_)) - ((##fx= _g130057_ 3) (apply gx#core-quote-syntax__2 _g130056_)) - ((##fx= _g130057_ 4) (apply gx#core-quote-syntax__% _g130056_)) + (lambda _g133817_ + (let ((_g133818_ (##length _g133817_))) + (cond ((##fx= _g133818_ 1) (apply gx#core-quote-syntax__0 _g133817_)) + ((##fx= _g133818_ 2) (apply gx#core-quote-syntax__1 _g133817_)) + ((##fx= _g133818_ 3) (apply gx#core-quote-syntax__2 _g133817_)) + ((##fx= _g133818_ 4) (apply gx#core-quote-syntax__% _g133817_)) (else (##raise-wrong-number-of-arguments-exception gx#core-quote-syntax - _g130056_)))))) + _g133817_)))))) (define gx#core-cons - (lambda (_%hd127037%_ _%tl127038%_) - (cons (gx#core-quote-syntax__0 _%hd127037%_) _%tl127038%_))) + (lambda (_%hd130804%_ _%tl130805%_) + (cons (gx#core-quote-syntax__0 _%hd130804%_) _%tl130805%_))) (define gx#core-list - (lambda (_%hd127034%_ . _%rest127035%_) - (cons (gx#core-quote-syntax__0 _%hd127034%_) _%rest127035%_))) + (lambda (_%hd130801%_ . _%rest130802%_) + (cons (gx#core-quote-syntax__0 _%hd130801%_) _%rest130802%_))) (define gx#core-cons* - (lambda (_%hd127031%_ . _%rest127032%_) - (apply cons* (gx#core-quote-syntax__0 _%hd127031%_) _%rest127032%_))) + (lambda (_%hd130798%_ . _%rest130799%_) + (apply cons* (gx#core-quote-syntax__0 _%hd130798%_) _%rest130799%_))) (define gx#core-resolve-path__% - (lambda (_%stx-path127000%_ _%rel127001%_) - (let ((_%path127018%_ (gx#stx-e _%stx-path127000%_)) - (_%reldir127019%_ - (let _%lp127003%_ ((_%relsrc127005%_ - (let ((_%$e127015%_ - (gx#stx-source _%stx-path127000%_))) - (if _%$e127015%_ - _%$e127015%_ - _%rel127001%_)))) - (if (##structure-instance-of? _%relsrc127005%_ 'gerbil#AST::t) - (_%lp127003%_ - (let ((_%$e127008%_ (gx#stx-source _%relsrc127005%_))) - (if _%$e127008%_ - _%$e127008%_ - (gx#stx-e _%relsrc127005%_)))) - (if (source-location-path? _%relsrc127005%_) + (lambda (_%stx-path130767%_ _%rel130768%_) + (let ((_%path130785%_ (gx#stx-e _%stx-path130767%_)) + (_%reldir130786%_ + (let _%lp130770%_ ((_%relsrc130772%_ + (let ((_%$e130782%_ + (gx#stx-source _%stx-path130767%_))) + (if _%$e130782%_ + _%$e130782%_ + _%rel130768%_)))) + (if (##structure-instance-of? _%relsrc130772%_ 'gerbil#AST::t) + (_%lp130770%_ + (let ((_%$e130775%_ (gx#stx-source _%relsrc130772%_))) + (if _%$e130775%_ + _%$e130775%_ + (gx#stx-e _%relsrc130772%_)))) + (if (source-location-path? _%relsrc130772%_) (path-directory - (source-location-path _%relsrc127005%_)) - (if (string? _%relsrc127005%_) - (path-directory _%relsrc127005%_) + (source-location-path _%relsrc130772%_)) + (if (string? _%relsrc130772%_) + (path-directory _%relsrc130772%_) (if (null? (gx#current-expander-path)) (current-directory) (path-directory (car (gx#current-expander-path)))))))))) - (path-expand _%path127018%_ (path-normalize _%reldir127019%_))))) + (path-expand _%path130785%_ (path-normalize _%reldir130786%_))))) (define gx#core-resolve-path__0 - (lambda (_%stx-path127024%_) - (let ((_%rel127026%_ '#f)) - (gx#core-resolve-path__% _%stx-path127024%_ _%rel127026%_)))) + (lambda (_%stx-path130791%_) + (let ((_%rel130793%_ '#f)) + (gx#core-resolve-path__% _%stx-path130791%_ _%rel130793%_)))) (define gx#core-resolve-path - (lambda _g130058_ - (let ((_g130059_ (##length _g130058_))) - (cond ((##fx= _g130059_ 1) (apply gx#core-resolve-path__0 _g130058_)) - ((##fx= _g130059_ 2) (apply gx#core-resolve-path__% _g130058_)) + (lambda _g133819_ + (let ((_g133820_ (##length _g133819_))) + (cond ((##fx= _g133820_ 1) (apply gx#core-resolve-path__0 _g133819_)) + ((##fx= _g133820_ 2) (apply gx#core-resolve-path__% _g133819_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-path - _g130058_)))))) + _g133819_)))))) (define gx#core-deserialize-mark__% - (lambda (_%repr126956%_ _%ctx126957%_) - (let* ((_%repr126958126965%_ _%repr126956%_) - (_%E126960126969%_ + (lambda (_%repr130723%_ _%ctx130724%_) + (let* ((_%repr130725130732%_ _%repr130723%_) + (_%E130727130736%_ (lambda () (error '"No clause matching" - _%repr126958126965%_ + _%repr130725130732%_ '([phi . subs])) '#!void)) - (_%K126961126977%_ - (lambda (_%subs126972%_ _%phi126973%_) - (let ((_%subst126975%_ - (if (null? _%subs126972%_) + (_%K130728130744%_ + (lambda (_%subs130739%_ _%phi130740%_) + (let ((_%subst130742%_ + (if (null? _%subs130739%_) '#f - (list->hash-table-eq _%subs126972%_)))) + (list->hash-table-eq _%subs130739%_)))) (##structure gx#expander-mark::t - _%subst126975%_ - _%ctx126957%_ - _%phi126973%_ + _%subst130742%_ + _%ctx130724%_ + _%phi130740%_ '#f))))) - (if (pair? _%repr126958126965%_) - (let ((_%hd126962126980%_ (##car _%repr126958126965%_)) - (_%tl126963126982%_ (##cdr _%repr126958126965%_))) - (let* ((_%phi126985%_ _%hd126962126980%_) - (_%subs126987%_ _%tl126963126982%_)) - (_%K126961126977%_ _%subs126987%_ _%phi126985%_))) - (_%E126960126969%_))))) + (if (pair? _%repr130725130732%_) + (let ((_%hd130729130747%_ (##car _%repr130725130732%_)) + (_%tl130730130749%_ (##cdr _%repr130725130732%_))) + (let* ((_%phi130752%_ _%hd130729130747%_) + (_%subs130754%_ _%tl130730130749%_)) + (_%K130728130744%_ _%subs130754%_ _%phi130752%_))) + (_%E130727130736%_))))) (define gx#core-deserialize-mark__0 - (lambda (_%repr126992%_) - (let ((_%ctx126994%_ (gx#current-expander-context))) - (gx#core-deserialize-mark__% _%repr126992%_ _%ctx126994%_)))) + (lambda (_%repr130759%_) + (let ((_%ctx130761%_ (gx#current-expander-context))) + (gx#core-deserialize-mark__% _%repr130759%_ _%ctx130761%_)))) (define gx#core-deserialize-mark - (lambda _g130060_ - (let ((_g130061_ (##length _g130060_))) - (cond ((##fx= _g130061_ 1) - (apply gx#core-deserialize-mark__0 _g130060_)) - ((##fx= _g130061_ 2) - (apply gx#core-deserialize-mark__% _g130060_)) + (lambda _g133821_ + (let ((_g133822_ (##length _g133821_))) + (cond ((##fx= _g133822_ 1) + (apply gx#core-deserialize-mark__0 _g133821_)) + ((##fx= _g133822_ 2) + (apply gx#core-deserialize-mark__% _g133821_)) (else (##raise-wrong-number-of-arguments-exception gx#core-deserialize-mark - _g130060_)))))) + _g133821_)))))) (define gx#syntax-local-rewrap - (lambda (_%stx126953%_) - (gx#stx-rewrap _%stx126953%_ (gx#current-expander-marks)))) + (lambda (_%stx130720%_) + (gx#stx-rewrap _%stx130720%_ (gx#current-expander-marks)))) (define gx#syntax-local-unwrap - (lambda (_%stx126951%_) - (gx#stx-unwrap__% _%stx126951%_ (gx#current-expander-marks)))) + (lambda (_%stx130718%_) + (gx#stx-unwrap__% _%stx130718%_ (gx#current-expander-marks)))) (define gx#syntax-local-introduce - (lambda (_%stx126921%_) - (let* ((_%g126922126930%_ (gx#current-expander-marks)) - (_%else126924126938%_ (lambda () _%stx126921%_)) - (_%K126926126943%_ - (lambda (_%hd126941%_) - (gx#stx-apply-mark _%stx126921%_ _%hd126941%_)))) - (if (pair? _%g126922126930%_) - (let* ((_%hd126927126946%_ (##car _%g126922126930%_)) - (_%hd126949%_ _%hd126927126946%_)) - (_%K126926126943%_ _%hd126949%_)) - (_%else126924126938%_))))) + (lambda (_%stx130688%_) + (let* ((_%g130689130697%_ (gx#current-expander-marks)) + (_%else130691130705%_ (lambda () _%stx130688%_)) + (_%K130693130710%_ + (lambda (_%hd130708%_) + (gx#stx-apply-mark _%stx130688%_ _%hd130708%_)))) + (if (pair? _%g130689130697%_) + (let* ((_%hd130694130713%_ (##car _%g130689130697%_)) + (_%hd130716%_ _%hd130694130713%_)) + (_%K130693130710%_ _%hd130716%_)) + (_%else130691130705%_))))) + (define gx#syntax-local-temp + (lambda (_%sym130686%_) + (gx#syntax-local-introduce (make-symbol__0 (gensym _%sym130686%_))))) (define gx#syntax-local-e__% - (lambda (_%stx126906%_ _%E126907%_) - (let ((_%bind126909%_ (gx#resolve-identifier__0 _%stx126906%_))) + (lambda (_%stx130671%_ _%E130672%_) + (let ((_%bind130674%_ (gx#resolve-identifier__0 _%stx130671%_))) (if (##structure-direct-instance-of? - _%bind126909%_ + _%bind130674%_ 'gx#syntax-binding::t) - (##unchecked-structure-ref _%bind126909%_ '4 '#f '#f) - (_%E126907%_ _%stx126906%_))))) + (##unchecked-structure-ref _%bind130674%_ '4 '#f '#f) + (_%E130672%_ _%stx130671%_))))) (define gx#syntax-local-e__0 - (lambda (_%stx126914%_) - (let ((_%E126916%_ gx#raise-syntax-ref-error)) - (gx#syntax-local-e__% _%stx126914%_ _%E126916%_)))) + (lambda (_%stx130679%_) + (let ((_%E130681%_ gx#raise-syntax-ref-error)) + (gx#syntax-local-e__% _%stx130679%_ _%E130681%_)))) (define gx#syntax-local-e - (lambda _g130062_ - (let ((_g130063_ (##length _g130062_))) - (cond ((##fx= _g130063_ 1) (apply gx#syntax-local-e__0 _g130062_)) - ((##fx= _g130063_ 2) (apply gx#syntax-local-e__% _g130062_)) + (lambda _g133823_ + (let ((_g133824_ (##length _g133823_))) + (cond ((##fx= _g133824_ 1) (apply gx#syntax-local-e__0 _g133823_)) + ((##fx= _g133824_ 2) (apply gx#syntax-local-e__% _g133823_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-e - _g130062_)))))) + _g133823_)))))) (define gx#syntax-local-value__% - (lambda (_%stx126890%_ _%E126891%_) - (let ((_%e126893%_ (gx#syntax-local-e__% _%stx126890%_ _%E126891%_))) - (if (##structure-instance-of? _%e126893%_ 'gx#expander::t) - (##unchecked-structure-ref _%e126893%_ '1 '#f '#f) - _%e126893%_)))) + (lambda (_%stx130655%_ _%E130656%_) + (let ((_%e130658%_ (gx#syntax-local-e__% _%stx130655%_ _%E130656%_))) + (if (##structure-instance-of? _%e130658%_ 'gx#expander::t) + (##unchecked-structure-ref _%e130658%_ '1 '#f '#f) + _%e130658%_)))) (define gx#syntax-local-value__0 - (lambda (_%stx126898%_) - (let ((_%E126900%_ gx#raise-syntax-ref-error)) - (gx#syntax-local-value__% _%stx126898%_ _%E126900%_)))) + (lambda (_%stx130663%_) + (let ((_%E130665%_ gx#raise-syntax-ref-error)) + (gx#syntax-local-value__% _%stx130663%_ _%E130665%_)))) (define gx#syntax-local-value - (lambda _g130064_ - (let ((_g130065_ (##length _g130064_))) - (cond ((##fx= _g130065_ 1) - (apply gx#syntax-local-value__0 _g130064_)) - ((##fx= _g130065_ 2) - (apply gx#syntax-local-value__% _g130064_)) + (lambda _g133825_ + (let ((_g133826_ (##length _g133825_))) + (cond ((##fx= _g133826_ 1) + (apply gx#syntax-local-value__0 _g133825_)) + ((##fx= _g133826_ 2) + (apply gx#syntax-local-value__% _g133825_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-value - _g130064_)))))) + _g133825_)))))) (define gx#raise-syntax-ref-error - (lambda (_%stx126887%_) + (lambda (_%stx130652%_) (gx#raise-syntax-error '#f '"Bad syntax; not a syntax binding" - _%stx126887%_))))) + _%stx130652%_))))) diff --git a/src/bootstrap/gerbil/expander/core~1.scm b/src/bootstrap/gerbil/expander/core~1.scm index 244059b830..2a58ef1454 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]#_g130067_| + (define |gx[1]#_g133828_| (##structure gx#syntax-quote::t 'expander-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130069_| + (define |gx[1]#_g133830_| (##structure gx#syntax-quote::t 'make-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g130071_| + (define |gx[1]#_g133832_| (##structure gx#syntax-quote::t 'expander-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130073_| + (define |gx[1]#_g133834_| (##structure gx#syntax-quote::t 'expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130074_| + (define |gx[1]#_g133835_| (##structure gx#syntax-quote::t 'expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g130076_| + (define |gx[1]#_g133837_| (##structure gx#syntax-quote::t 'expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130077_| + (define |gx[1]#_g133838_| (##structure gx#syntax-quote::t 'expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130079_| + (define |gx[1]#_g133840_| (##structure gx#syntax-quote::t '&expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130080_| + (define |gx[1]#_g133841_| (##structure gx#syntax-quote::t '&expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g130082_| + (define |gx[1]#_g133843_| (##structure gx#syntax-quote::t '&expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130083_| + (define |gx[1]#_g133844_| (##structure gx#syntax-quote::t '&expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130085_| + (define |gx[1]#_g133846_| (##structure gx#syntax-quote::t 'expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g130087_| + (define |gx[1]#_g133848_| (##structure gx#syntax-quote::t 'root-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130089_| + (define |gx[1]#_g133850_| (##structure gx#syntax-quote::t 'make-root-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g130091_| + (define |gx[1]#_g133852_| (##structure gx#syntax-quote::t 'root-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130093_| + (define |gx[1]#_g133854_| (##structure gx#syntax-quote::t 'root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130094_| + (define |gx[1]#_g133855_| (##structure gx#syntax-quote::t 'root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g130096_| + (define |gx[1]#_g133857_| (##structure gx#syntax-quote::t 'root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130097_| + (define |gx[1]#_g133858_| (##structure gx#syntax-quote::t 'root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130099_| + (define |gx[1]#_g133860_| (##structure gx#syntax-quote::t '&root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130100_| + (define |gx[1]#_g133861_| (##structure gx#syntax-quote::t '&root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g130102_| + (define |gx[1]#_g133863_| (##structure gx#syntax-quote::t '&root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130103_| + (define |gx[1]#_g133864_| (##structure gx#syntax-quote::t '&root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130106_| + (define |gx[1]#_g133867_| (##structure gx#syntax-quote::t 'phi-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130108_| + (define |gx[1]#_g133869_| (##structure gx#syntax-quote::t 'make-phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g130110_| + (define |gx[1]#_g133871_| (##structure gx#syntax-quote::t 'phi-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130112_| + (define |gx[1]#_g133873_| (##structure gx#syntax-quote::t 'phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g130113_| + (define |gx[1]#_g133874_| (##structure gx#syntax-quote::t 'phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g130114_| + (define |gx[1]#_g133875_| (##structure gx#syntax-quote::t 'phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g130115_| + (define |gx[1]#_g133876_| (##structure gx#syntax-quote::t 'phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130116_| + (define |gx[1]#_g133877_| (##structure gx#syntax-quote::t 'phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g130118_| + (define |gx[1]#_g133879_| (##structure gx#syntax-quote::t 'phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130119_| + (define |gx[1]#_g133880_| (##structure gx#syntax-quote::t 'phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130120_| + (define |gx[1]#_g133881_| (##structure gx#syntax-quote::t 'phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130121_| + (define |gx[1]#_g133882_| (##structure gx#syntax-quote::t 'phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130122_| + (define |gx[1]#_g133883_| (##structure gx#syntax-quote::t 'phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130124_| + (define |gx[1]#_g133885_| (##structure gx#syntax-quote::t '&phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g130125_| + (define |gx[1]#_g133886_| (##structure gx#syntax-quote::t '&phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g130126_| + (define |gx[1]#_g133887_| (##structure gx#syntax-quote::t '&phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g130127_| + (define |gx[1]#_g133888_| (##structure gx#syntax-quote::t '&phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130128_| + (define |gx[1]#_g133889_| (##structure gx#syntax-quote::t '&phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g130130_| + (define |gx[1]#_g133891_| (##structure gx#syntax-quote::t '&phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130131_| + (define |gx[1]#_g133892_| (##structure gx#syntax-quote::t '&phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130132_| + (define |gx[1]#_g133893_| (##structure gx#syntax-quote::t '&phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130133_| + (define |gx[1]#_g133894_| (##structure gx#syntax-quote::t '&phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130134_| + (define |gx[1]#_g133895_| (##structure gx#syntax-quote::t '&phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130136_| + (define |gx[1]#_g133897_| (##structure gx#syntax-quote::t 'phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g130138_| + (define |gx[1]#_g133899_| (##structure gx#syntax-quote::t 'top-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130140_| + (define |gx[1]#_g133901_| (##structure gx#syntax-quote::t 'make-top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g130142_| + (define |gx[1]#_g133903_| (##structure gx#syntax-quote::t 'top-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130144_| + (define |gx[1]#_g133905_| (##structure gx#syntax-quote::t 'top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g130145_| + (define |gx[1]#_g133906_| (##structure gx#syntax-quote::t 'top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g130146_| + (define |gx[1]#_g133907_| (##structure gx#syntax-quote::t 'top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g130147_| + (define |gx[1]#_g133908_| (##structure gx#syntax-quote::t 'top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130148_| + (define |gx[1]#_g133909_| (##structure gx#syntax-quote::t 'top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g130150_| + (define |gx[1]#_g133911_| (##structure gx#syntax-quote::t 'top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130151_| + (define |gx[1]#_g133912_| (##structure gx#syntax-quote::t 'top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130152_| + (define |gx[1]#_g133913_| (##structure gx#syntax-quote::t 'top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130153_| + (define |gx[1]#_g133914_| (##structure gx#syntax-quote::t 'top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130154_| + (define |gx[1]#_g133915_| (##structure gx#syntax-quote::t 'top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130156_| + (define |gx[1]#_g133917_| (##structure gx#syntax-quote::t '&top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g130157_| + (define |gx[1]#_g133918_| (##structure gx#syntax-quote::t '&top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g130158_| + (define |gx[1]#_g133919_| (##structure gx#syntax-quote::t '&top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g130159_| + (define |gx[1]#_g133920_| (##structure gx#syntax-quote::t '&top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130160_| + (define |gx[1]#_g133921_| (##structure gx#syntax-quote::t '&top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g130162_| + (define |gx[1]#_g133923_| (##structure gx#syntax-quote::t '&top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130163_| + (define |gx[1]#_g133924_| (##structure gx#syntax-quote::t '&top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130164_| + (define |gx[1]#_g133925_| (##structure gx#syntax-quote::t '&top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130165_| + (define |gx[1]#_g133926_| (##structure gx#syntax-quote::t '&top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130166_| + (define |gx[1]#_g133927_| (##structure gx#syntax-quote::t '&top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130168_| + (define |gx[1]#_g133929_| (##structure gx#syntax-quote::t 'top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g130170_| + (define |gx[1]#_g133931_| (##structure gx#syntax-quote::t 'module-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130172_| + (define |gx[1]#_g133933_| (##structure gx#syntax-quote::t 'make-module-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g130174_| + (define |gx[1]#_g133935_| (##structure gx#syntax-quote::t 'module-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130176_| + (define |gx[1]#_g133937_| (##structure gx#syntax-quote::t 'module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g130177_| + (define |gx[1]#_g133938_| (##structure gx#syntax-quote::t 'module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g130178_| + (define |gx[1]#_g133939_| (##structure gx#syntax-quote::t 'module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g130179_| + (define |gx[1]#_g133940_| (##structure gx#syntax-quote::t 'module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g130180_| + (define |gx[1]#_g133941_| (##structure gx#syntax-quote::t 'module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130181_| + (define |gx[1]#_g133942_| (##structure gx#syntax-quote::t 'module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g130182_| + (define |gx[1]#_g133943_| (##structure gx#syntax-quote::t 'module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g130183_| + (define |gx[1]#_g133944_| (##structure gx#syntax-quote::t 'module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g130184_| + (define |gx[1]#_g133945_| (##structure gx#syntax-quote::t 'module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g130185_| + (define |gx[1]#_g133946_| (##structure gx#syntax-quote::t 'module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130186_| + (define |gx[1]#_g133947_| (##structure gx#syntax-quote::t 'module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g130188_| + (define |gx[1]#_g133949_| (##structure gx#syntax-quote::t 'module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130189_| + (define |gx[1]#_g133950_| (##structure gx#syntax-quote::t 'module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130190_| + (define |gx[1]#_g133951_| (##structure gx#syntax-quote::t 'module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130191_| + (define |gx[1]#_g133952_| (##structure gx#syntax-quote::t 'module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130192_| + (define |gx[1]#_g133953_| (##structure gx#syntax-quote::t 'module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130193_| + (define |gx[1]#_g133954_| (##structure gx#syntax-quote::t 'module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130194_| + (define |gx[1]#_g133955_| (##structure gx#syntax-quote::t 'module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130195_| + (define |gx[1]#_g133956_| (##structure gx#syntax-quote::t 'module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130196_| + (define |gx[1]#_g133957_| (##structure gx#syntax-quote::t 'module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130197_| + (define |gx[1]#_g133958_| (##structure gx#syntax-quote::t 'module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130198_| + (define |gx[1]#_g133959_| (##structure gx#syntax-quote::t 'module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130200_| + (define |gx[1]#_g133961_| (##structure gx#syntax-quote::t '&module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g130201_| + (define |gx[1]#_g133962_| (##structure gx#syntax-quote::t '&module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g130202_| + (define |gx[1]#_g133963_| (##structure gx#syntax-quote::t '&module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g130203_| + (define |gx[1]#_g133964_| (##structure gx#syntax-quote::t '&module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g130204_| + (define |gx[1]#_g133965_| (##structure gx#syntax-quote::t '&module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130205_| + (define |gx[1]#_g133966_| (##structure gx#syntax-quote::t '&module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g130206_| + (define |gx[1]#_g133967_| (##structure gx#syntax-quote::t '&module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g130207_| + (define |gx[1]#_g133968_| (##structure gx#syntax-quote::t '&module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g130208_| + (define |gx[1]#_g133969_| (##structure gx#syntax-quote::t '&module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g130209_| + (define |gx[1]#_g133970_| (##structure gx#syntax-quote::t '&module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130210_| + (define |gx[1]#_g133971_| (##structure gx#syntax-quote::t '&module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g130212_| + (define |gx[1]#_g133973_| (##structure gx#syntax-quote::t '&module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130213_| + (define |gx[1]#_g133974_| (##structure gx#syntax-quote::t '&module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130214_| + (define |gx[1]#_g133975_| (##structure gx#syntax-quote::t '&module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130215_| + (define |gx[1]#_g133976_| (##structure gx#syntax-quote::t '&module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130216_| + (define |gx[1]#_g133977_| (##structure gx#syntax-quote::t '&module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130217_| + (define |gx[1]#_g133978_| (##structure gx#syntax-quote::t '&module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130218_| + (define |gx[1]#_g133979_| (##structure gx#syntax-quote::t '&module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130219_| + (define |gx[1]#_g133980_| (##structure gx#syntax-quote::t '&module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130220_| + (define |gx[1]#_g133981_| (##structure gx#syntax-quote::t '&module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130221_| + (define |gx[1]#_g133982_| (##structure gx#syntax-quote::t '&module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130222_| + (define |gx[1]#_g133983_| (##structure gx#syntax-quote::t '&module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130225_| + (define |gx[1]#_g133986_| (##structure gx#syntax-quote::t 'prelude-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130227_| + (define |gx[1]#_g133988_| (##structure gx#syntax-quote::t 'make-prelude-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g130229_| + (define |gx[1]#_g133990_| (##structure gx#syntax-quote::t 'prelude-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130231_| + (define |gx[1]#_g133992_| (##structure gx#syntax-quote::t 'prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g130232_| + (define |gx[1]#_g133993_| (##structure gx#syntax-quote::t 'prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g130233_| + (define |gx[1]#_g133994_| (##structure gx#syntax-quote::t 'prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130234_| + (define |gx[1]#_g133995_| (##structure gx#syntax-quote::t 'prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g130235_| + (define |gx[1]#_g133996_| (##structure gx#syntax-quote::t 'prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g130236_| + (define |gx[1]#_g133997_| (##structure gx#syntax-quote::t 'prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g130237_| + (define |gx[1]#_g133998_| (##structure gx#syntax-quote::t 'prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130238_| + (define |gx[1]#_g133999_| (##structure gx#syntax-quote::t 'prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g130240_| + (define |gx[1]#_g134001_| (##structure gx#syntax-quote::t 'prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130241_| + (define |gx[1]#_g134002_| (##structure gx#syntax-quote::t 'prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130242_| + (define |gx[1]#_g134003_| (##structure gx#syntax-quote::t 'prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130243_| + (define |gx[1]#_g134004_| (##structure gx#syntax-quote::t 'prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130244_| + (define |gx[1]#_g134005_| (##structure gx#syntax-quote::t 'prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130245_| + (define |gx[1]#_g134006_| (##structure gx#syntax-quote::t 'prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130246_| + (define |gx[1]#_g134007_| (##structure gx#syntax-quote::t 'prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130247_| + (define |gx[1]#_g134008_| (##structure gx#syntax-quote::t 'prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130249_| + (define |gx[1]#_g134010_| (##structure gx#syntax-quote::t '&prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g130250_| + (define |gx[1]#_g134011_| (##structure gx#syntax-quote::t '&prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g130251_| + (define |gx[1]#_g134012_| (##structure gx#syntax-quote::t '&prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130252_| + (define |gx[1]#_g134013_| (##structure gx#syntax-quote::t '&prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g130253_| + (define |gx[1]#_g134014_| (##structure gx#syntax-quote::t '&prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g130254_| + (define |gx[1]#_g134015_| (##structure gx#syntax-quote::t '&prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g130255_| + (define |gx[1]#_g134016_| (##structure gx#syntax-quote::t '&prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130256_| + (define |gx[1]#_g134017_| (##structure gx#syntax-quote::t '&prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g130258_| + (define |gx[1]#_g134019_| (##structure gx#syntax-quote::t '&prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130259_| + (define |gx[1]#_g134020_| (##structure gx#syntax-quote::t '&prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130260_| + (define |gx[1]#_g134021_| (##structure gx#syntax-quote::t '&prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130261_| + (define |gx[1]#_g134022_| (##structure gx#syntax-quote::t '&prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130262_| + (define |gx[1]#_g134023_| (##structure gx#syntax-quote::t '&prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130263_| + (define |gx[1]#_g134024_| (##structure gx#syntax-quote::t '&prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130264_| + (define |gx[1]#_g134025_| (##structure gx#syntax-quote::t '&prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130265_| + (define |gx[1]#_g134026_| (##structure gx#syntax-quote::t '&prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130268_| + (define |gx[1]#_g134029_| (##structure gx#syntax-quote::t 'local-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130270_| + (define |gx[1]#_g134031_| (##structure gx#syntax-quote::t 'make-local-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g130272_| + (define |gx[1]#_g134033_| (##structure gx#syntax-quote::t 'local-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130274_| + (define |gx[1]#_g134035_| (##structure gx#syntax-quote::t 'local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g130275_| + (define |gx[1]#_g134036_| (##structure gx#syntax-quote::t 'local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g130276_| + (define |gx[1]#_g134037_| (##structure gx#syntax-quote::t 'local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g130277_| + (define |gx[1]#_g134038_| (##structure gx#syntax-quote::t 'local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130278_| + (define |gx[1]#_g134039_| (##structure gx#syntax-quote::t 'local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g130280_| + (define |gx[1]#_g134041_| (##structure gx#syntax-quote::t 'local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130281_| + (define |gx[1]#_g134042_| (##structure gx#syntax-quote::t 'local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130282_| + (define |gx[1]#_g134043_| (##structure gx#syntax-quote::t 'local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130283_| + (define |gx[1]#_g134044_| (##structure gx#syntax-quote::t 'local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130284_| + (define |gx[1]#_g134045_| (##structure gx#syntax-quote::t 'local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130286_| + (define |gx[1]#_g134047_| (##structure gx#syntax-quote::t '&local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g130287_| + (define |gx[1]#_g134048_| (##structure gx#syntax-quote::t '&local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g130288_| + (define |gx[1]#_g134049_| (##structure gx#syntax-quote::t '&local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g130289_| + (define |gx[1]#_g134050_| (##structure gx#syntax-quote::t '&local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130290_| + (define |gx[1]#_g134051_| (##structure gx#syntax-quote::t '&local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g130292_| + (define |gx[1]#_g134053_| (##structure gx#syntax-quote::t '&local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130293_| + (define |gx[1]#_g134054_| (##structure gx#syntax-quote::t '&local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130294_| + (define |gx[1]#_g134055_| (##structure gx#syntax-quote::t '&local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130295_| + (define |gx[1]#_g134056_| (##structure gx#syntax-quote::t '&local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130296_| + (define |gx[1]#_g134057_| (##structure gx#syntax-quote::t '&local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130298_| + (define |gx[1]#_g134059_| (##structure gx#syntax-quote::t 'binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130300_| + (define |gx[1]#_g134061_| (##structure gx#syntax-quote::t 'make-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g130302_| + (define |gx[1]#_g134063_| (##structure gx#syntax-quote::t 'binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130304_| + (define |gx[1]#_g134065_| (##structure gx#syntax-quote::t 'binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130305_| + (define |gx[1]#_g134066_| (##structure gx#syntax-quote::t 'binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g130306_| + (define |gx[1]#_g134067_| (##structure gx#syntax-quote::t 'binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130308_| + (define |gx[1]#_g134069_| (##structure gx#syntax-quote::t 'binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130309_| + (define |gx[1]#_g134070_| (##structure gx#syntax-quote::t 'binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130310_| + (define |gx[1]#_g134071_| (##structure gx#syntax-quote::t 'binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130312_| + (define |gx[1]#_g134073_| (##structure gx#syntax-quote::t '&binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130313_| + (define |gx[1]#_g134074_| (##structure gx#syntax-quote::t '&binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g130314_| + (define |gx[1]#_g134075_| (##structure gx#syntax-quote::t '&binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130316_| + (define |gx[1]#_g134077_| (##structure gx#syntax-quote::t '&binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130317_| + (define |gx[1]#_g134078_| (##structure gx#syntax-quote::t '&binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130318_| + (define |gx[1]#_g134079_| (##structure gx#syntax-quote::t '&binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130320_| + (define |gx[1]#_g134081_| (##structure gx#syntax-quote::t 'binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g130322_| + (define |gx[1]#_g134083_| (##structure gx#syntax-quote::t 'runtime-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130324_| + (define |gx[1]#_g134085_| (##structure gx#syntax-quote::t 'make-runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g130326_| + (define |gx[1]#_g134087_| (##structure gx#syntax-quote::t 'runtime-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130328_| + (define |gx[1]#_g134089_| (##structure gx#syntax-quote::t 'runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130329_| + (define |gx[1]#_g134090_| (##structure gx#syntax-quote::t 'runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g130330_| + (define |gx[1]#_g134091_| (##structure gx#syntax-quote::t 'runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130332_| + (define |gx[1]#_g134093_| (##structure gx#syntax-quote::t 'runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130333_| + (define |gx[1]#_g134094_| (##structure gx#syntax-quote::t 'runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130334_| + (define |gx[1]#_g134095_| (##structure gx#syntax-quote::t 'runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130336_| + (define |gx[1]#_g134097_| (##structure gx#syntax-quote::t '&runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130337_| + (define |gx[1]#_g134098_| (##structure gx#syntax-quote::t '&runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g130338_| + (define |gx[1]#_g134099_| (##structure gx#syntax-quote::t '&runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130340_| + (define |gx[1]#_g134101_| (##structure gx#syntax-quote::t '&runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130341_| + (define |gx[1]#_g134102_| (##structure gx#syntax-quote::t '&runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130342_| + (define |gx[1]#_g134103_| (##structure gx#syntax-quote::t '&runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130344_| + (define |gx[1]#_g134105_| (##structure gx#syntax-quote::t 'runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g130346_| + (define |gx[1]#_g134107_| (##structure gx#syntax-quote::t 'local-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130348_| + (define |gx[1]#_g134109_| (##structure gx#syntax-quote::t 'make-local-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g130350_| + (define |gx[1]#_g134111_| (##structure gx#syntax-quote::t 'local-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130352_| + (define |gx[1]#_g134113_| (##structure gx#syntax-quote::t 'local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130353_| + (define |gx[1]#_g134114_| (##structure gx#syntax-quote::t 'local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g130354_| + (define |gx[1]#_g134115_| (##structure gx#syntax-quote::t 'local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130356_| + (define |gx[1]#_g134117_| (##structure gx#syntax-quote::t 'local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130357_| + (define |gx[1]#_g134118_| (##structure gx#syntax-quote::t 'local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130358_| + (define |gx[1]#_g134119_| (##structure gx#syntax-quote::t 'local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130360_| + (define |gx[1]#_g134121_| (##structure gx#syntax-quote::t '&local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130361_| + (define |gx[1]#_g134122_| (##structure gx#syntax-quote::t '&local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g130362_| + (define |gx[1]#_g134123_| (##structure gx#syntax-quote::t '&local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130364_| + (define |gx[1]#_g134125_| (##structure gx#syntax-quote::t '&local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130365_| + (define |gx[1]#_g134126_| (##structure gx#syntax-quote::t '&local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130366_| + (define |gx[1]#_g134127_| (##structure gx#syntax-quote::t '&local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130369_| + (define |gx[1]#_g134130_| (##structure gx#syntax-quote::t 'top-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130371_| + (define |gx[1]#_g134132_| (##structure gx#syntax-quote::t 'make-top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g130373_| + (define |gx[1]#_g134134_| (##structure gx#syntax-quote::t 'top-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130375_| + (define |gx[1]#_g134136_| (##structure gx#syntax-quote::t 'top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130376_| + (define |gx[1]#_g134137_| (##structure gx#syntax-quote::t 'top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g130377_| + (define |gx[1]#_g134138_| (##structure gx#syntax-quote::t 'top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130379_| + (define |gx[1]#_g134140_| (##structure gx#syntax-quote::t 'top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130380_| + (define |gx[1]#_g134141_| (##structure gx#syntax-quote::t 'top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130381_| + (define |gx[1]#_g134142_| (##structure gx#syntax-quote::t 'top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130383_| + (define |gx[1]#_g134144_| (##structure gx#syntax-quote::t '&top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130384_| + (define |gx[1]#_g134145_| (##structure gx#syntax-quote::t '&top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g130385_| + (define |gx[1]#_g134146_| (##structure gx#syntax-quote::t '&top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130387_| + (define |gx[1]#_g134148_| (##structure gx#syntax-quote::t '&top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130388_| + (define |gx[1]#_g134149_| (##structure gx#syntax-quote::t '&top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130389_| + (define |gx[1]#_g134150_| (##structure gx#syntax-quote::t '&top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130391_| + (define |gx[1]#_g134152_| (##structure gx#syntax-quote::t 'top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g130393_| + (define |gx[1]#_g134154_| (##structure gx#syntax-quote::t 'module-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130395_| + (define |gx[1]#_g134156_| (##structure gx#syntax-quote::t 'make-module-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g130397_| + (define |gx[1]#_g134158_| (##structure gx#syntax-quote::t 'module-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130399_| + (define |gx[1]#_g134160_| (##structure gx#syntax-quote::t 'module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g130400_| + (define |gx[1]#_g134161_| (##structure gx#syntax-quote::t 'module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130401_| + (define |gx[1]#_g134162_| (##structure gx#syntax-quote::t 'module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g130402_| + (define |gx[1]#_g134163_| (##structure gx#syntax-quote::t 'module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130404_| + (define |gx[1]#_g134165_| (##structure gx#syntax-quote::t 'module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130405_| + (define |gx[1]#_g134166_| (##structure gx#syntax-quote::t 'module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130406_| + (define |gx[1]#_g134167_| (##structure gx#syntax-quote::t 'module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130407_| + (define |gx[1]#_g134168_| (##structure gx#syntax-quote::t 'module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130409_| + (define |gx[1]#_g134170_| (##structure gx#syntax-quote::t '&module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g130410_| + (define |gx[1]#_g134171_| (##structure gx#syntax-quote::t '&module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130411_| + (define |gx[1]#_g134172_| (##structure gx#syntax-quote::t '&module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g130412_| + (define |gx[1]#_g134173_| (##structure gx#syntax-quote::t '&module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130414_| + (define |gx[1]#_g134175_| (##structure gx#syntax-quote::t '&module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130415_| + (define |gx[1]#_g134176_| (##structure gx#syntax-quote::t '&module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130416_| + (define |gx[1]#_g134177_| (##structure gx#syntax-quote::t '&module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130417_| + (define |gx[1]#_g134178_| (##structure gx#syntax-quote::t '&module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130420_| + (define |gx[1]#_g134181_| (##structure gx#syntax-quote::t 'extern-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130422_| + (define |gx[1]#_g134183_| (##structure gx#syntax-quote::t 'make-extern-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g130424_| + (define |gx[1]#_g134185_| (##structure gx#syntax-quote::t 'extern-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130426_| + (define |gx[1]#_g134187_| (##structure gx#syntax-quote::t 'extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130427_| + (define |gx[1]#_g134188_| (##structure gx#syntax-quote::t 'extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g130428_| + (define |gx[1]#_g134189_| (##structure gx#syntax-quote::t 'extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130430_| + (define |gx[1]#_g134191_| (##structure gx#syntax-quote::t 'extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130431_| + (define |gx[1]#_g134192_| (##structure gx#syntax-quote::t 'extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130432_| + (define |gx[1]#_g134193_| (##structure gx#syntax-quote::t 'extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130434_| + (define |gx[1]#_g134195_| (##structure gx#syntax-quote::t '&extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130435_| + (define |gx[1]#_g134196_| (##structure gx#syntax-quote::t '&extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g130436_| + (define |gx[1]#_g134197_| (##structure gx#syntax-quote::t '&extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130438_| + (define |gx[1]#_g134199_| (##structure gx#syntax-quote::t '&extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130439_| + (define |gx[1]#_g134200_| (##structure gx#syntax-quote::t '&extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130440_| + (define |gx[1]#_g134201_| (##structure gx#syntax-quote::t '&extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130443_| + (define |gx[1]#_g134204_| (##structure gx#syntax-quote::t 'syntax-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130445_| + (define |gx[1]#_g134206_| (##structure gx#syntax-quote::t 'make-syntax-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g130447_| + (define |gx[1]#_g134208_| (##structure gx#syntax-quote::t 'syntax-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130449_| + (define |gx[1]#_g134210_| (##structure gx#syntax-quote::t 'syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130450_| + (define |gx[1]#_g134211_| (##structure gx#syntax-quote::t 'syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130451_| + (define |gx[1]#_g134212_| (##structure gx#syntax-quote::t 'syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g130452_| + (define |gx[1]#_g134213_| (##structure gx#syntax-quote::t 'syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130454_| + (define |gx[1]#_g134215_| (##structure gx#syntax-quote::t 'syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130455_| + (define |gx[1]#_g134216_| (##structure gx#syntax-quote::t 'syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130456_| + (define |gx[1]#_g134217_| (##structure gx#syntax-quote::t 'syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130457_| + (define |gx[1]#_g134218_| (##structure gx#syntax-quote::t 'syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130459_| + (define |gx[1]#_g134220_| (##structure gx#syntax-quote::t '&syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130460_| + (define |gx[1]#_g134221_| (##structure gx#syntax-quote::t '&syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130461_| + (define |gx[1]#_g134222_| (##structure gx#syntax-quote::t '&syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g130462_| + (define |gx[1]#_g134223_| (##structure gx#syntax-quote::t '&syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130464_| + (define |gx[1]#_g134225_| (##structure gx#syntax-quote::t '&syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130465_| + (define |gx[1]#_g134226_| (##structure gx#syntax-quote::t '&syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130466_| + (define |gx[1]#_g134227_| (##structure gx#syntax-quote::t '&syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130467_| + (define |gx[1]#_g134228_| (##structure gx#syntax-quote::t '&syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130470_| + (define |gx[1]#_g134231_| (##structure gx#syntax-quote::t 'import-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130472_| + (define |gx[1]#_g134233_| (##structure gx#syntax-quote::t 'make-import-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g130474_| + (define |gx[1]#_g134235_| (##structure gx#syntax-quote::t 'import-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130476_| + (define |gx[1]#_g134237_| (##structure gx#syntax-quote::t 'import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130477_| + (define |gx[1]#_g134238_| (##structure gx#syntax-quote::t 'import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g130478_| + (define |gx[1]#_g134239_| (##structure gx#syntax-quote::t 'import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130479_| + (define |gx[1]#_g134240_| (##structure gx#syntax-quote::t 'import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130480_| + (define |gx[1]#_g134241_| (##structure gx#syntax-quote::t 'import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g130481_| + (define |gx[1]#_g134242_| (##structure gx#syntax-quote::t 'import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130483_| + (define |gx[1]#_g134244_| (##structure gx#syntax-quote::t 'import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130484_| + (define |gx[1]#_g134245_| (##structure gx#syntax-quote::t 'import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130485_| + (define |gx[1]#_g134246_| (##structure gx#syntax-quote::t 'import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130486_| + (define |gx[1]#_g134247_| (##structure gx#syntax-quote::t 'import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130487_| + (define |gx[1]#_g134248_| (##structure gx#syntax-quote::t 'import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130488_| + (define |gx[1]#_g134249_| (##structure gx#syntax-quote::t 'import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130490_| + (define |gx[1]#_g134251_| (##structure gx#syntax-quote::t '&import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130491_| + (define |gx[1]#_g134252_| (##structure gx#syntax-quote::t '&import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g130492_| + (define |gx[1]#_g134253_| (##structure gx#syntax-quote::t '&import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130493_| + (define |gx[1]#_g134254_| (##structure gx#syntax-quote::t '&import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130494_| + (define |gx[1]#_g134255_| (##structure gx#syntax-quote::t '&import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g130495_| + (define |gx[1]#_g134256_| (##structure gx#syntax-quote::t '&import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130497_| + (define |gx[1]#_g134258_| (##structure gx#syntax-quote::t '&import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130498_| + (define |gx[1]#_g134259_| (##structure gx#syntax-quote::t '&import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130499_| + (define |gx[1]#_g134260_| (##structure gx#syntax-quote::t '&import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130500_| + (define |gx[1]#_g134261_| (##structure gx#syntax-quote::t '&import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130501_| + (define |gx[1]#_g134262_| (##structure gx#syntax-quote::t '&import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130502_| + (define |gx[1]#_g134263_| (##structure gx#syntax-quote::t '&import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130505_| + (define |gx[1]#_g134266_| (##structure gx#syntax-quote::t 'alias-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130507_| + (define |gx[1]#_g134268_| (##structure gx#syntax-quote::t 'make-alias-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g130509_| + (define |gx[1]#_g134270_| (##structure gx#syntax-quote::t 'alias-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130511_| + (define |gx[1]#_g134272_| (##structure gx#syntax-quote::t 'alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130512_| + (define |gx[1]#_g134273_| (##structure gx#syntax-quote::t 'alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130513_| + (define |gx[1]#_g134274_| (##structure gx#syntax-quote::t 'alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g130514_| + (define |gx[1]#_g134275_| (##structure gx#syntax-quote::t 'alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130516_| + (define |gx[1]#_g134277_| (##structure gx#syntax-quote::t 'alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130517_| + (define |gx[1]#_g134278_| (##structure gx#syntax-quote::t 'alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130518_| + (define |gx[1]#_g134279_| (##structure gx#syntax-quote::t 'alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130519_| + (define |gx[1]#_g134280_| (##structure gx#syntax-quote::t 'alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130521_| + (define |gx[1]#_g134282_| (##structure gx#syntax-quote::t '&alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130522_| + (define |gx[1]#_g134283_| (##structure gx#syntax-quote::t '&alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130523_| + (define |gx[1]#_g134284_| (##structure gx#syntax-quote::t '&alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g130524_| + (define |gx[1]#_g134285_| (##structure gx#syntax-quote::t '&alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130526_| + (define |gx[1]#_g134287_| (##structure gx#syntax-quote::t '&alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130527_| + (define |gx[1]#_g134288_| (##structure gx#syntax-quote::t '&alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130528_| + (define |gx[1]#_g134289_| (##structure gx#syntax-quote::t '&alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130529_| + (define |gx[1]#_g134290_| (##structure gx#syntax-quote::t '&alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130531_| + (define |gx[1]#_g134292_| (##structure gx#syntax-quote::t 'expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130533_| + (define |gx[1]#_g134294_| (##structure gx#syntax-quote::t 'make-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g130535_| + (define |gx[1]#_g134296_| (##structure gx#syntax-quote::t 'expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130537_| + (define |gx[1]#_g134298_| (##structure gx#syntax-quote::t 'expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130539_| + (define |gx[1]#_g134300_| (##structure gx#syntax-quote::t 'expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130541_| + (define |gx[1]#_g134302_| (##structure gx#syntax-quote::t '&expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130543_| + (define |gx[1]#_g134304_| (##structure gx#syntax-quote::t '&expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130545_| + (define |gx[1]#_g134306_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g130547_| + (define |gx[1]#_g134308_| (##structure gx#syntax-quote::t 'core-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130549_| + (define |gx[1]#_g134310_| (##structure gx#syntax-quote::t 'make-core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g130551_| + (define |gx[1]#_g134312_| (##structure gx#syntax-quote::t 'core-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130553_| + (define |gx[1]#_g134314_| (##structure gx#syntax-quote::t 'core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130554_| + (define |gx[1]#_g134315_| (##structure gx#syntax-quote::t 'core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g130555_| + (define |gx[1]#_g134316_| (##structure gx#syntax-quote::t 'core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130557_| + (define |gx[1]#_g134318_| (##structure gx#syntax-quote::t 'core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130558_| + (define |gx[1]#_g134319_| (##structure gx#syntax-quote::t 'core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130559_| + (define |gx[1]#_g134320_| (##structure gx#syntax-quote::t 'core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130561_| + (define |gx[1]#_g134322_| (##structure gx#syntax-quote::t '&core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130562_| + (define |gx[1]#_g134323_| (##structure gx#syntax-quote::t '&core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g130563_| + (define |gx[1]#_g134324_| (##structure gx#syntax-quote::t '&core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130565_| + (define |gx[1]#_g134326_| (##structure gx#syntax-quote::t '&core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130566_| + (define |gx[1]#_g134327_| (##structure gx#syntax-quote::t '&core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130567_| + (define |gx[1]#_g134328_| (##structure gx#syntax-quote::t '&core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130569_| + (define |gx[1]#_g134330_| (##structure gx#syntax-quote::t 'core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g130571_| + (define |gx[1]#_g134332_| (##structure gx#syntax-quote::t 'expression-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130573_| + (define |gx[1]#_g134334_| (##structure gx#syntax-quote::t 'make-expression-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g130575_| + (define |gx[1]#_g134336_| (##structure gx#syntax-quote::t 'expression-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130577_| + (define |gx[1]#_g134338_| (##structure gx#syntax-quote::t 'expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130578_| + (define |gx[1]#_g134339_| (##structure gx#syntax-quote::t 'expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g130579_| + (define |gx[1]#_g134340_| (##structure gx#syntax-quote::t 'expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130581_| + (define |gx[1]#_g134342_| (##structure gx#syntax-quote::t 'expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130582_| + (define |gx[1]#_g134343_| (##structure gx#syntax-quote::t 'expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130583_| + (define |gx[1]#_g134344_| (##structure gx#syntax-quote::t 'expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130585_| + (define |gx[1]#_g134346_| (##structure gx#syntax-quote::t '&expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130586_| + (define |gx[1]#_g134347_| (##structure gx#syntax-quote::t '&expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g130587_| + (define |gx[1]#_g134348_| (##structure gx#syntax-quote::t '&expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130589_| + (define |gx[1]#_g134350_| (##structure gx#syntax-quote::t '&expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130590_| + (define |gx[1]#_g134351_| (##structure gx#syntax-quote::t '&expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130591_| + (define |gx[1]#_g134352_| (##structure gx#syntax-quote::t '&expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130594_| + (define |gx[1]#_g134355_| (##structure gx#syntax-quote::t 'special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130596_| + (define |gx[1]#_g134357_| (##structure gx#syntax-quote::t 'make-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g130598_| + (define |gx[1]#_g134359_| (##structure gx#syntax-quote::t 'special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130600_| + (define |gx[1]#_g134361_| (##structure gx#syntax-quote::t 'special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130601_| + (define |gx[1]#_g134362_| (##structure gx#syntax-quote::t 'special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g130602_| + (define |gx[1]#_g134363_| (##structure gx#syntax-quote::t 'special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130604_| + (define |gx[1]#_g134365_| (##structure gx#syntax-quote::t 'special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130605_| + (define |gx[1]#_g134366_| (##structure gx#syntax-quote::t 'special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130606_| + (define |gx[1]#_g134367_| (##structure gx#syntax-quote::t 'special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130608_| + (define |gx[1]#_g134369_| (##structure gx#syntax-quote::t '&special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130609_| + (define |gx[1]#_g134370_| (##structure gx#syntax-quote::t '&special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g130610_| + (define |gx[1]#_g134371_| (##structure gx#syntax-quote::t '&special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130612_| + (define |gx[1]#_g134373_| (##structure gx#syntax-quote::t '&special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130613_| + (define |gx[1]#_g134374_| (##structure gx#syntax-quote::t '&special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130614_| + (define |gx[1]#_g134375_| (##structure gx#syntax-quote::t '&special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130616_| + (define |gx[1]#_g134377_| (##structure gx#syntax-quote::t 'special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g130618_| + (define |gx[1]#_g134379_| (##structure gx#syntax-quote::t 'definition-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130620_| + (define |gx[1]#_g134381_| (##structure gx#syntax-quote::t 'make-definition-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g130622_| + (define |gx[1]#_g134383_| (##structure gx#syntax-quote::t 'definition-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130624_| + (define |gx[1]#_g134385_| (##structure gx#syntax-quote::t 'definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130625_| + (define |gx[1]#_g134386_| (##structure gx#syntax-quote::t 'definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g130626_| + (define |gx[1]#_g134387_| (##structure gx#syntax-quote::t 'definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130628_| + (define |gx[1]#_g134389_| (##structure gx#syntax-quote::t 'definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130629_| + (define |gx[1]#_g134390_| (##structure gx#syntax-quote::t 'definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130630_| + (define |gx[1]#_g134391_| (##structure gx#syntax-quote::t 'definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130632_| + (define |gx[1]#_g134393_| (##structure gx#syntax-quote::t '&definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130633_| + (define |gx[1]#_g134394_| (##structure gx#syntax-quote::t '&definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g130634_| + (define |gx[1]#_g134395_| (##structure gx#syntax-quote::t '&definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130636_| + (define |gx[1]#_g134397_| (##structure gx#syntax-quote::t '&definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130637_| + (define |gx[1]#_g134398_| (##structure gx#syntax-quote::t '&definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130638_| + (define |gx[1]#_g134399_| (##structure gx#syntax-quote::t '&definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130641_| + (define |gx[1]#_g134402_| (##structure gx#syntax-quote::t 'top-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130643_| + (define |gx[1]#_g134404_| (##structure gx#syntax-quote::t 'make-top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g130645_| + (define |gx[1]#_g134406_| (##structure gx#syntax-quote::t 'top-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130647_| + (define |gx[1]#_g134408_| (##structure gx#syntax-quote::t 'top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130648_| + (define |gx[1]#_g134409_| (##structure gx#syntax-quote::t 'top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g130649_| + (define |gx[1]#_g134410_| (##structure gx#syntax-quote::t 'top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130651_| + (define |gx[1]#_g134412_| (##structure gx#syntax-quote::t 'top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130652_| + (define |gx[1]#_g134413_| (##structure gx#syntax-quote::t 'top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130653_| + (define |gx[1]#_g134414_| (##structure gx#syntax-quote::t 'top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130655_| + (define |gx[1]#_g134416_| (##structure gx#syntax-quote::t '&top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130656_| + (define |gx[1]#_g134417_| (##structure gx#syntax-quote::t '&top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g130657_| + (define |gx[1]#_g134418_| (##structure gx#syntax-quote::t '&top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130659_| + (define |gx[1]#_g134420_| (##structure gx#syntax-quote::t '&top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130660_| + (define |gx[1]#_g134421_| (##structure gx#syntax-quote::t '&top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130661_| + (define |gx[1]#_g134422_| (##structure gx#syntax-quote::t '&top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130663_| + (define |gx[1]#_g134424_| (##structure gx#syntax-quote::t 'top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g130665_| + (define |gx[1]#_g134426_| (##structure gx#syntax-quote::t 'module-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130667_| + (define |gx[1]#_g134428_| (##structure gx#syntax-quote::t 'make-module-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g130669_| + (define |gx[1]#_g134430_| (##structure gx#syntax-quote::t 'module-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130671_| + (define |gx[1]#_g134432_| (##structure gx#syntax-quote::t 'module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130672_| + (define |gx[1]#_g134433_| (##structure gx#syntax-quote::t 'module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g130673_| + (define |gx[1]#_g134434_| (##structure gx#syntax-quote::t 'module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130675_| + (define |gx[1]#_g134436_| (##structure gx#syntax-quote::t 'module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130676_| + (define |gx[1]#_g134437_| (##structure gx#syntax-quote::t 'module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130677_| + (define |gx[1]#_g134438_| (##structure gx#syntax-quote::t 'module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130679_| + (define |gx[1]#_g134440_| (##structure gx#syntax-quote::t '&module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g130680_| + (define |gx[1]#_g134441_| (##structure gx#syntax-quote::t '&module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g130681_| + (define |gx[1]#_g134442_| (##structure gx#syntax-quote::t '&module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130683_| + (define |gx[1]#_g134444_| (##structure gx#syntax-quote::t '&module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130684_| + (define |gx[1]#_g134445_| (##structure gx#syntax-quote::t '&module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130685_| + (define |gx[1]#_g134446_| (##structure gx#syntax-quote::t '&module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130688_| + (define |gx[1]#_g134449_| (##structure gx#syntax-quote::t 'feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130690_| + (define |gx[1]#_g134451_| (##structure gx#syntax-quote::t 'make-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g130692_| + (define |gx[1]#_g134453_| (##structure gx#syntax-quote::t 'feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130694_| + (define |gx[1]#_g134455_| (##structure gx#syntax-quote::t 'feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130696_| + (define |gx[1]#_g134457_| (##structure gx#syntax-quote::t 'feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130698_| + (define |gx[1]#_g134459_| (##structure gx#syntax-quote::t '&feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130700_| + (define |gx[1]#_g134461_| (##structure gx#syntax-quote::t '&feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130702_| + (define |gx[1]#_g134463_| (##structure gx#syntax-quote::t 'feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g130704_| + (define |gx[1]#_g134465_| (##structure gx#syntax-quote::t 'private-feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130706_| + (define |gx[1]#_g134467_| (##structure gx#syntax-quote::t 'make-private-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g130708_| + (define |gx[1]#_g134469_| (##structure gx#syntax-quote::t 'private-feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130710_| + (define |gx[1]#_g134471_| (##structure gx#syntax-quote::t 'private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130712_| + (define |gx[1]#_g134473_| (##structure gx#syntax-quote::t 'private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130714_| + (define |gx[1]#_g134475_| (##structure gx#syntax-quote::t '&private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130716_| + (define |gx[1]#_g134477_| (##structure gx#syntax-quote::t '&private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130719_| + (define |gx[1]#_g134480_| (##structure gx#syntax-quote::t 'reserved-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130721_| + (define |gx[1]#_g134482_| (##structure gx#syntax-quote::t 'make-reserved-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g130723_| + (define |gx[1]#_g134484_| (##structure gx#syntax-quote::t 'reserved-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130725_| + (define |gx[1]#_g134486_| (##structure gx#syntax-quote::t 'reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130727_| + (define |gx[1]#_g134488_| (##structure gx#syntax-quote::t 'reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130729_| + (define |gx[1]#_g134490_| (##structure gx#syntax-quote::t '&reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130731_| + (define |gx[1]#_g134492_| (##structure gx#syntax-quote::t '&reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130734_| + (define |gx[1]#_g134495_| (##structure gx#syntax-quote::t 'macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130736_| + (define |gx[1]#_g134497_| (##structure gx#syntax-quote::t 'make-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g130738_| + (define |gx[1]#_g134499_| (##structure gx#syntax-quote::t 'macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130740_| + (define |gx[1]#_g134501_| (##structure gx#syntax-quote::t 'macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130742_| + (define |gx[1]#_g134503_| (##structure gx#syntax-quote::t 'macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130744_| + (define |gx[1]#_g134505_| (##structure gx#syntax-quote::t '¯o-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130746_| + (define |gx[1]#_g134507_| (##structure gx#syntax-quote::t '¯o-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130748_| + (define |gx[1]#_g134509_| (##structure gx#syntax-quote::t 'macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g130750_| + (define |gx[1]#_g134511_| (##structure gx#syntax-quote::t 'rename-macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130752_| + (define |gx[1]#_g134513_| (##structure gx#syntax-quote::t 'make-rename-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g130754_| + (define |gx[1]#_g134515_| (##structure gx#syntax-quote::t 'rename-macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130756_| + (define |gx[1]#_g134517_| (##structure gx#syntax-quote::t 'rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130758_| + (define |gx[1]#_g134519_| (##structure gx#syntax-quote::t 'rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130760_| + (define |gx[1]#_g134521_| (##structure gx#syntax-quote::t '&rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130762_| + (define |gx[1]#_g134523_| (##structure gx#syntax-quote::t '&rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130765_| + (define |gx[1]#_g134526_| (##structure gx#syntax-quote::t 'user-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130767_| + (define |gx[1]#_g134528_| (##structure gx#syntax-quote::t 'make-user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g130769_| + (define |gx[1]#_g134530_| (##structure gx#syntax-quote::t 'user-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130771_| + (define |gx[1]#_g134532_| (##structure gx#syntax-quote::t 'user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g130772_| + (define |gx[1]#_g134533_| (##structure gx#syntax-quote::t 'user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130773_| + (define |gx[1]#_g134534_| (##structure gx#syntax-quote::t 'user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130775_| + (define |gx[1]#_g134536_| (##structure gx#syntax-quote::t 'user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130776_| + (define |gx[1]#_g134537_| (##structure gx#syntax-quote::t 'user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130777_| + (define |gx[1]#_g134538_| (##structure gx#syntax-quote::t 'user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130779_| + (define |gx[1]#_g134540_| (##structure gx#syntax-quote::t '&user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g130780_| + (define |gx[1]#_g134541_| (##structure gx#syntax-quote::t '&user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130781_| + (define |gx[1]#_g134542_| (##structure gx#syntax-quote::t '&user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g130783_| + (define |gx[1]#_g134544_| (##structure gx#syntax-quote::t '&user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130784_| + (define |gx[1]#_g134545_| (##structure gx#syntax-quote::t '&user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130785_| + (define |gx[1]#_g134546_| (##structure gx#syntax-quote::t '&user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130787_| + (define |gx[1]#_g134548_| (##structure gx#syntax-quote::t 'expander-mark::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g130789_| + (define |gx[1]#_g134550_| (##structure gx#syntax-quote::t 'make-expander-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g130791_| + (define |gx[1]#_g134552_| (##structure gx#syntax-quote::t 'expander-mark? #f (gx#current-expander-context) '())) - (define |gx[1]#_g130793_| + (define |gx[1]#_g134554_| (##structure gx#syntax-quote::t 'expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g130794_| + (define |gx[1]#_g134555_| (##structure gx#syntax-quote::t 'expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g130795_| + (define |gx[1]#_g134556_| (##structure gx#syntax-quote::t 'expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130796_| + (define |gx[1]#_g134557_| (##structure gx#syntax-quote::t 'expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g130798_| + (define |gx[1]#_g134559_| (##structure gx#syntax-quote::t 'expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130799_| + (define |gx[1]#_g134560_| (##structure gx#syntax-quote::t 'expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130800_| + (define |gx[1]#_g134561_| (##structure gx#syntax-quote::t 'expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130801_| + (define |gx[1]#_g134562_| (##structure gx#syntax-quote::t 'expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130803_| + (define |gx[1]#_g134564_| (##structure gx#syntax-quote::t '&expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g130804_| + (define |gx[1]#_g134565_| (##structure gx#syntax-quote::t '&expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g130805_| + (define |gx[1]#_g134566_| (##structure gx#syntax-quote::t '&expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g130806_| + (define |gx[1]#_g134567_| (##structure gx#syntax-quote::t '&expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g130808_| + (define |gx[1]#_g134569_| (##structure gx#syntax-quote::t '&expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130809_| + (define |gx[1]#_g134570_| (##structure gx#syntax-quote::t '&expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130810_| + (define |gx[1]#_g134571_| (##structure gx#syntax-quote::t '&expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g130811_| + (define |gx[1]#_g134572_| (##structure gx#syntax-quote::t '&expander-mark-trace-set! @@ -3572,7 +3572,7 @@ '())) (begin (define |gx[:0:]#expander-context| - (let ((__obj129985 + (let ((__obj133746 (let () (declare (not safe)) (##structure @@ -3601,7 +3601,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129985 + __obj133746 'gx#expander-context::t '1 '#f @@ -3609,73 +3609,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129985 + __obj133746 'expander-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129985 '(id table) '4 '#f '#f)) + (##unchecked-structure-set! __obj133746 '(id table) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129985 '(id table) '6 '#f '#f)) + (##unchecked-structure-set! __obj133746 '(id table) '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129985 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj133746 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129985 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133746 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129985 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133746 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129985 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133746 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129985 ':init! '11 '#f '#f)) - (let ((__tmp130066 |gx[1]#_g130067_|)) + (##unchecked-structure-set! __obj133746 ':init! '12 '#f '#f)) + (let ((__tmp133827 |gx[1]#_g133828_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129985 __tmp130066 '12 '#f '#f)) - (let ((__tmp130068 |gx[1]#_g130069_|)) + (##unchecked-structure-set! __obj133746 __tmp133827 '3 '#f '#f)) + (let ((__tmp133829 |gx[1]#_g133830_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129985 __tmp130068 '13 '#f '#f)) - (let ((__tmp130070 |gx[1]#_g130071_|)) + (##unchecked-structure-set! __obj133746 __tmp133829 '13 '#f '#f)) + (let ((__tmp133831 |gx[1]#_g133832_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129985 __tmp130070 '14 '#f '#f)) - (let ((__tmp130072 - (cons (cons 'id |gx[1]#_g130073_|) - (cons (cons 'table |gx[1]#_g130074_|) '())))) + (##unchecked-structure-set! __obj133746 __tmp133831 '14 '#f '#f)) + (let ((__tmp133833 + (cons (cons 'id |gx[1]#_g133834_|) + (cons (cons 'table |gx[1]#_g133835_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj129985 __tmp130072 '15 '#f '#f)) - (let ((__tmp130075 - (cons (cons 'id |gx[1]#_g130076_|) - (cons (cons 'table |gx[1]#_g130077_|) '())))) + (##unchecked-structure-set! __obj133746 __tmp133833 '15 '#f '#f)) + (let ((__tmp133836 + (cons (cons 'id |gx[1]#_g133837_|) + (cons (cons 'table |gx[1]#_g133838_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj129985 __tmp130075 '16 '#f '#f)) - (let ((__tmp130078 - (cons (cons 'id |gx[1]#_g130079_|) - (cons (cons 'table |gx[1]#_g130080_|) '())))) + (##unchecked-structure-set! __obj133746 __tmp133836 '16 '#f '#f)) + (let ((__tmp133839 + (cons (cons 'id |gx[1]#_g133840_|) + (cons (cons 'table |gx[1]#_g133841_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj129985 __tmp130078 '17 '#f '#f)) - (let ((__tmp130081 - (cons (cons 'id |gx[1]#_g130082_|) - (cons (cons 'table |gx[1]#_g130083_|) '())))) + (##unchecked-structure-set! __obj133746 __tmp133839 '17 '#f '#f)) + (let ((__tmp133842 + (cons (cons 'id |gx[1]#_g133843_|) + (cons (cons 'table |gx[1]#_g133844_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj129985 __tmp130081 '18 '#f '#f)) + (##unchecked-structure-set! __obj133746 __tmp133842 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129985 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133746 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129985 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133746 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129985 '() '20 '#f '#f)) - __obj129985)) + (##unchecked-structure-set! __obj133746 '() '20 '#f '#f)) + __obj133746)) (define |gx[:0:]#root-context| - (let ((__obj129986 + (let ((__obj133747 (let () (declare (not safe)) (##structure @@ -3704,76 +3704,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129986 + __obj133747 'gx#root-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129986 'root-context '2 '#f '#f)) + (##unchecked-structure-set! __obj133747 'root-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129986 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133747 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129986 '(id table) '6 '#f '#f)) - (let ((__tmp130084 (cons |gx[1]#_g130085_| '()))) + (##unchecked-structure-set! __obj133747 '(id table) '7 '#f '#f)) + (let ((__tmp133845 (cons |gx[1]#_g133846_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj129986 __tmp130084 '3 '#f '#f)) + (##unchecked-structure-set! __obj133747 __tmp133845 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129986 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133747 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129986 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133747 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129986 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133747 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129986 '#f '11 '#f '#f)) - (let ((__tmp130086 |gx[1]#_g130087_|)) + (##unchecked-structure-set! __obj133747 '#f '12 '#f '#f)) + (let ((__tmp133847 |gx[1]#_g133848_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129986 __tmp130086 '12 '#f '#f)) - (let ((__tmp130088 |gx[1]#_g130089_|)) + (##unchecked-structure-set! __obj133747 __tmp133847 '3 '#f '#f)) + (let ((__tmp133849 |gx[1]#_g133850_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129986 __tmp130088 '13 '#f '#f)) - (let ((__tmp130090 |gx[1]#_g130091_|)) + (##unchecked-structure-set! __obj133747 __tmp133849 '13 '#f '#f)) + (let ((__tmp133851 |gx[1]#_g133852_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129986 __tmp130090 '14 '#f '#f)) - (let ((__tmp130092 - (cons (cons 'id |gx[1]#_g130093_|) - (cons (cons 'table |gx[1]#_g130094_|) '())))) + (##unchecked-structure-set! __obj133747 __tmp133851 '14 '#f '#f)) + (let ((__tmp133853 + (cons (cons 'id |gx[1]#_g133854_|) + (cons (cons 'table |gx[1]#_g133855_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj129986 __tmp130092 '15 '#f '#f)) - (let ((__tmp130095 - (cons (cons 'id |gx[1]#_g130096_|) - (cons (cons 'table |gx[1]#_g130097_|) '())))) + (##unchecked-structure-set! __obj133747 __tmp133853 '15 '#f '#f)) + (let ((__tmp133856 + (cons (cons 'id |gx[1]#_g133857_|) + (cons (cons 'table |gx[1]#_g133858_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj129986 __tmp130095 '16 '#f '#f)) - (let ((__tmp130098 - (cons (cons 'id |gx[1]#_g130099_|) - (cons (cons 'table |gx[1]#_g130100_|) '())))) + (##unchecked-structure-set! __obj133747 __tmp133856 '16 '#f '#f)) + (let ((__tmp133859 + (cons (cons 'id |gx[1]#_g133860_|) + (cons (cons 'table |gx[1]#_g133861_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj129986 __tmp130098 '17 '#f '#f)) - (let ((__tmp130101 - (cons (cons 'id |gx[1]#_g130102_|) - (cons (cons 'table |gx[1]#_g130103_|) '())))) + (##unchecked-structure-set! __obj133747 __tmp133859 '17 '#f '#f)) + (let ((__tmp133862 + (cons (cons 'id |gx[1]#_g133863_|) + (cons (cons 'table |gx[1]#_g133864_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj129986 __tmp130101 '18 '#f '#f)) + (##unchecked-structure-set! __obj133747 __tmp133862 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129986 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133747 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129986 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133747 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129986 '() '20 '#f '#f)) - __obj129986)) + (##unchecked-structure-set! __obj133747 '() '20 '#f '#f)) + __obj133747)) (define |gx[:0:]#phi-context| - (let ((__obj129987 + (let ((__obj133748 (let () (declare (not safe)) (##structure @@ -3802,97 +3802,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129987 + __obj133748 'gx#phi-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129987 'phi-context '2 '#f '#f)) + (##unchecked-structure-set! __obj133748 'phi-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129987 '(super up down) '4 '#f '#f)) + (##unchecked-structure-set! __obj133748 '(super up down) '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj129987 + __obj133748 '(id table super up down) - '6 + '7 '#f '#f)) - (let ((__tmp130104 (cons |gx[1]#_g130085_| '()))) + (let ((__tmp133865 (cons |gx[1]#_g133846_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj129987 __tmp130104 '3 '#f '#f)) + (##unchecked-structure-set! __obj133748 __tmp133865 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129987 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133748 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129987 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133748 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129987 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133748 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129987 '#f '11 '#f '#f)) - (let ((__tmp130105 |gx[1]#_g130106_|)) + (##unchecked-structure-set! __obj133748 '#f '12 '#f '#f)) + (let ((__tmp133866 |gx[1]#_g133867_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129987 __tmp130105 '12 '#f '#f)) - (let ((__tmp130107 |gx[1]#_g130108_|)) + (##unchecked-structure-set! __obj133748 __tmp133866 '3 '#f '#f)) + (let ((__tmp133868 |gx[1]#_g133869_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129987 __tmp130107 '13 '#f '#f)) - (let ((__tmp130109 |gx[1]#_g130110_|)) + (##unchecked-structure-set! __obj133748 __tmp133868 '13 '#f '#f)) + (let ((__tmp133870 |gx[1]#_g133871_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129987 __tmp130109 '14 '#f '#f)) - (let ((__tmp130111 - (cons (cons 'super |gx[1]#_g130112_|) - (cons (cons 'up |gx[1]#_g130113_|) - (cons (cons 'down |gx[1]#_g130114_|) - (cons (cons 'id |gx[1]#_g130115_|) - (cons (cons 'table |gx[1]#_g130116_|) + (##unchecked-structure-set! __obj133748 __tmp133870 '14 '#f '#f)) + (let ((__tmp133872 + (cons (cons 'super |gx[1]#_g133873_|) + (cons (cons 'up |gx[1]#_g133874_|) + (cons (cons 'down |gx[1]#_g133875_|) + (cons (cons 'id |gx[1]#_g133876_|) + (cons (cons 'table |gx[1]#_g133877_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj129987 __tmp130111 '15 '#f '#f)) - (let ((__tmp130117 - (cons (cons 'super |gx[1]#_g130118_|) - (cons (cons 'up |gx[1]#_g130119_|) - (cons (cons 'down |gx[1]#_g130120_|) - (cons (cons 'id |gx[1]#_g130121_|) - (cons (cons 'table |gx[1]#_g130122_|) + (##unchecked-structure-set! __obj133748 __tmp133872 '15 '#f '#f)) + (let ((__tmp133878 + (cons (cons 'super |gx[1]#_g133879_|) + (cons (cons 'up |gx[1]#_g133880_|) + (cons (cons 'down |gx[1]#_g133881_|) + (cons (cons 'id |gx[1]#_g133882_|) + (cons (cons 'table |gx[1]#_g133883_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj129987 __tmp130117 '16 '#f '#f)) - (let ((__tmp130123 - (cons (cons 'super |gx[1]#_g130124_|) - (cons (cons 'up |gx[1]#_g130125_|) - (cons (cons 'down |gx[1]#_g130126_|) - (cons (cons 'id |gx[1]#_g130127_|) - (cons (cons 'table |gx[1]#_g130128_|) + (##unchecked-structure-set! __obj133748 __tmp133878 '16 '#f '#f)) + (let ((__tmp133884 + (cons (cons 'super |gx[1]#_g133885_|) + (cons (cons 'up |gx[1]#_g133886_|) + (cons (cons 'down |gx[1]#_g133887_|) + (cons (cons 'id |gx[1]#_g133888_|) + (cons (cons 'table |gx[1]#_g133889_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj129987 __tmp130123 '17 '#f '#f)) - (let ((__tmp130129 - (cons (cons 'super |gx[1]#_g130130_|) - (cons (cons 'up |gx[1]#_g130131_|) - (cons (cons 'down |gx[1]#_g130132_|) - (cons (cons 'id |gx[1]#_g130133_|) - (cons (cons 'table |gx[1]#_g130134_|) + (##unchecked-structure-set! __obj133748 __tmp133884 '17 '#f '#f)) + (let ((__tmp133890 + (cons (cons 'super |gx[1]#_g133891_|) + (cons (cons 'up |gx[1]#_g133892_|) + (cons (cons 'down |gx[1]#_g133893_|) + (cons (cons 'id |gx[1]#_g133894_|) + (cons (cons 'table |gx[1]#_g133895_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj129987 __tmp130129 '18 '#f '#f)) + (##unchecked-structure-set! __obj133748 __tmp133890 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129987 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133748 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129987 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133748 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129987 '() '20 '#f '#f)) - __obj129987)) + (##unchecked-structure-set! __obj133748 '() '20 '#f '#f)) + __obj133748)) (define |gx[:0:]#top-context| - (let ((__obj129988 + (let ((__obj133749 (let () (declare (not safe)) (##structure @@ -3921,97 +3921,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129988 + __obj133749 'gx#top-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129988 'top-context '2 '#f '#f)) + (##unchecked-structure-set! __obj133749 'top-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129988 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133749 '() '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj129988 + __obj133749 '(id table super up down) - '6 + '7 '#f '#f)) - (let ((__tmp130135 (cons |gx[1]#_g130136_| '()))) + (let ((__tmp133896 (cons |gx[1]#_g133897_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj129988 __tmp130135 '3 '#f '#f)) + (##unchecked-structure-set! __obj133749 __tmp133896 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129988 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133749 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129988 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133749 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129988 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133749 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129988 '#f '11 '#f '#f)) - (let ((__tmp130137 |gx[1]#_g130138_|)) + (##unchecked-structure-set! __obj133749 '#f '12 '#f '#f)) + (let ((__tmp133898 |gx[1]#_g133899_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129988 __tmp130137 '12 '#f '#f)) - (let ((__tmp130139 |gx[1]#_g130140_|)) + (##unchecked-structure-set! __obj133749 __tmp133898 '3 '#f '#f)) + (let ((__tmp133900 |gx[1]#_g133901_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129988 __tmp130139 '13 '#f '#f)) - (let ((__tmp130141 |gx[1]#_g130142_|)) + (##unchecked-structure-set! __obj133749 __tmp133900 '13 '#f '#f)) + (let ((__tmp133902 |gx[1]#_g133903_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129988 __tmp130141 '14 '#f '#f)) - (let ((__tmp130143 - (cons (cons 'super |gx[1]#_g130144_|) - (cons (cons 'up |gx[1]#_g130145_|) - (cons (cons 'down |gx[1]#_g130146_|) - (cons (cons 'id |gx[1]#_g130147_|) - (cons (cons 'table |gx[1]#_g130148_|) + (##unchecked-structure-set! __obj133749 __tmp133902 '14 '#f '#f)) + (let ((__tmp133904 + (cons (cons 'super |gx[1]#_g133905_|) + (cons (cons 'up |gx[1]#_g133906_|) + (cons (cons 'down |gx[1]#_g133907_|) + (cons (cons 'id |gx[1]#_g133908_|) + (cons (cons 'table |gx[1]#_g133909_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj129988 __tmp130143 '15 '#f '#f)) - (let ((__tmp130149 - (cons (cons 'super |gx[1]#_g130150_|) - (cons (cons 'up |gx[1]#_g130151_|) - (cons (cons 'down |gx[1]#_g130152_|) - (cons (cons 'id |gx[1]#_g130153_|) - (cons (cons 'table |gx[1]#_g130154_|) + (##unchecked-structure-set! __obj133749 __tmp133904 '15 '#f '#f)) + (let ((__tmp133910 + (cons (cons 'super |gx[1]#_g133911_|) + (cons (cons 'up |gx[1]#_g133912_|) + (cons (cons 'down |gx[1]#_g133913_|) + (cons (cons 'id |gx[1]#_g133914_|) + (cons (cons 'table |gx[1]#_g133915_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj129988 __tmp130149 '16 '#f '#f)) - (let ((__tmp130155 - (cons (cons 'super |gx[1]#_g130156_|) - (cons (cons 'up |gx[1]#_g130157_|) - (cons (cons 'down |gx[1]#_g130158_|) - (cons (cons 'id |gx[1]#_g130159_|) - (cons (cons 'table |gx[1]#_g130160_|) + (##unchecked-structure-set! __obj133749 __tmp133910 '16 '#f '#f)) + (let ((__tmp133916 + (cons (cons 'super |gx[1]#_g133917_|) + (cons (cons 'up |gx[1]#_g133918_|) + (cons (cons 'down |gx[1]#_g133919_|) + (cons (cons 'id |gx[1]#_g133920_|) + (cons (cons 'table |gx[1]#_g133921_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj129988 __tmp130155 '17 '#f '#f)) - (let ((__tmp130161 - (cons (cons 'super |gx[1]#_g130162_|) - (cons (cons 'up |gx[1]#_g130163_|) - (cons (cons 'down |gx[1]#_g130164_|) - (cons (cons 'id |gx[1]#_g130165_|) - (cons (cons 'table |gx[1]#_g130166_|) + (##unchecked-structure-set! __obj133749 __tmp133916 '17 '#f '#f)) + (let ((__tmp133922 + (cons (cons 'super |gx[1]#_g133923_|) + (cons (cons 'up |gx[1]#_g133924_|) + (cons (cons 'down |gx[1]#_g133925_|) + (cons (cons 'id |gx[1]#_g133926_|) + (cons (cons 'table |gx[1]#_g133927_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj129988 __tmp130161 '18 '#f '#f)) + (##unchecked-structure-set! __obj133749 __tmp133922 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129988 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133749 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129988 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133749 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129988 '() '20 '#f '#f)) - __obj129988)) + (##unchecked-structure-set! __obj133749 '() '20 '#f '#f)) + __obj133749)) (define |gx[:0:]#module-context| - (let ((__obj129989 + (let ((__obj133750 (let () (declare (not safe)) (##structure @@ -4040,146 +4040,146 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129989 + __obj133750 'gx#module-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129989 'module-context '2 '#f '#f)) + (##unchecked-structure-set! __obj133750 'module-context '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj129989 + __obj133750 '(ns path import export e code) - '4 + '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj129989 + __obj133750 '(id table super up down ns path import export e code) - '6 + '7 '#f '#f)) - (let ((__tmp130167 (cons |gx[1]#_g130168_| '()))) + (let ((__tmp133928 (cons |gx[1]#_g133929_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj129989 __tmp130167 '3 '#f '#f)) + (##unchecked-structure-set! __obj133750 __tmp133928 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129989 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133750 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129989 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133750 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129989 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133750 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129989 '#f '11 '#f '#f)) - (let ((__tmp130169 |gx[1]#_g130170_|)) + (##unchecked-structure-set! __obj133750 '#f '12 '#f '#f)) + (let ((__tmp133930 |gx[1]#_g133931_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129989 __tmp130169 '12 '#f '#f)) - (let ((__tmp130171 |gx[1]#_g130172_|)) + (##unchecked-structure-set! __obj133750 __tmp133930 '3 '#f '#f)) + (let ((__tmp133932 |gx[1]#_g133933_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129989 __tmp130171 '13 '#f '#f)) - (let ((__tmp130173 |gx[1]#_g130174_|)) + (##unchecked-structure-set! __obj133750 __tmp133932 '13 '#f '#f)) + (let ((__tmp133934 |gx[1]#_g133935_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129989 __tmp130173 '14 '#f '#f)) - (let ((__tmp130175 - (cons (cons 'ns |gx[1]#_g130176_|) - (cons (cons 'path |gx[1]#_g130177_|) - (cons (cons 'import |gx[1]#_g130178_|) - (cons (cons 'export |gx[1]#_g130179_|) - (cons (cons 'e |gx[1]#_g130180_|) + (##unchecked-structure-set! __obj133750 __tmp133934 '14 '#f '#f)) + (let ((__tmp133936 + (cons (cons 'ns |gx[1]#_g133937_|) + (cons (cons 'path |gx[1]#_g133938_|) + (cons (cons 'import |gx[1]#_g133939_|) + (cons (cons 'export |gx[1]#_g133940_|) + (cons (cons 'e |gx[1]#_g133941_|) (cons (cons 'code - |gx[1]#_g130181_|) + |gx[1]#_g133942_|) (cons (cons 'super - |gx[1]#_g130182_|) + |gx[1]#_g133943_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g130183_|) - (cons (cons 'down |gx[1]#_g130184_|) - (cons (cons 'id |gx[1]#_g130185_|) - (cons (cons 'table |gx[1]#_g130186_|) + |gx[1]#_g133944_|) + (cons (cons 'down |gx[1]#_g133945_|) + (cons (cons 'id |gx[1]#_g133946_|) + (cons (cons 'table |gx[1]#_g133947_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj129989 __tmp130175 '15 '#f '#f)) - (let ((__tmp130187 - (cons (cons 'ns |gx[1]#_g130188_|) - (cons (cons 'path |gx[1]#_g130189_|) - (cons (cons 'import |gx[1]#_g130190_|) - (cons (cons 'export |gx[1]#_g130191_|) - (cons (cons 'e |gx[1]#_g130192_|) + (##unchecked-structure-set! __obj133750 __tmp133936 '15 '#f '#f)) + (let ((__tmp133948 + (cons (cons 'ns |gx[1]#_g133949_|) + (cons (cons 'path |gx[1]#_g133950_|) + (cons (cons 'import |gx[1]#_g133951_|) + (cons (cons 'export |gx[1]#_g133952_|) + (cons (cons 'e |gx[1]#_g133953_|) (cons (cons 'code - |gx[1]#_g130193_|) + |gx[1]#_g133954_|) (cons (cons 'super - |gx[1]#_g130194_|) + |gx[1]#_g133955_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g130195_|) - (cons (cons 'down |gx[1]#_g130196_|) - (cons (cons 'id |gx[1]#_g130197_|) - (cons (cons 'table |gx[1]#_g130198_|) + |gx[1]#_g133956_|) + (cons (cons 'down |gx[1]#_g133957_|) + (cons (cons 'id |gx[1]#_g133958_|) + (cons (cons 'table |gx[1]#_g133959_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj129989 __tmp130187 '16 '#f '#f)) - (let ((__tmp130199 - (cons (cons 'ns |gx[1]#_g130200_|) - (cons (cons 'path |gx[1]#_g130201_|) - (cons (cons 'import |gx[1]#_g130202_|) - (cons (cons 'export |gx[1]#_g130203_|) - (cons (cons 'e |gx[1]#_g130204_|) + (##unchecked-structure-set! __obj133750 __tmp133948 '16 '#f '#f)) + (let ((__tmp133960 + (cons (cons 'ns |gx[1]#_g133961_|) + (cons (cons 'path |gx[1]#_g133962_|) + (cons (cons 'import |gx[1]#_g133963_|) + (cons (cons 'export |gx[1]#_g133964_|) + (cons (cons 'e |gx[1]#_g133965_|) (cons (cons 'code - |gx[1]#_g130205_|) + |gx[1]#_g133966_|) (cons (cons 'super - |gx[1]#_g130206_|) + |gx[1]#_g133967_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g130207_|) - (cons (cons 'down |gx[1]#_g130208_|) - (cons (cons 'id |gx[1]#_g130209_|) - (cons (cons 'table |gx[1]#_g130210_|) + |gx[1]#_g133968_|) + (cons (cons 'down |gx[1]#_g133969_|) + (cons (cons 'id |gx[1]#_g133970_|) + (cons (cons 'table |gx[1]#_g133971_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj129989 __tmp130199 '17 '#f '#f)) - (let ((__tmp130211 - (cons (cons 'ns |gx[1]#_g130212_|) - (cons (cons 'path |gx[1]#_g130213_|) - (cons (cons 'import |gx[1]#_g130214_|) - (cons (cons 'export |gx[1]#_g130215_|) - (cons (cons 'e |gx[1]#_g130216_|) + (##unchecked-structure-set! __obj133750 __tmp133960 '17 '#f '#f)) + (let ((__tmp133972 + (cons (cons 'ns |gx[1]#_g133973_|) + (cons (cons 'path |gx[1]#_g133974_|) + (cons (cons 'import |gx[1]#_g133975_|) + (cons (cons 'export |gx[1]#_g133976_|) + (cons (cons 'e |gx[1]#_g133977_|) (cons (cons 'code - |gx[1]#_g130217_|) + |gx[1]#_g133978_|) (cons (cons 'super - |gx[1]#_g130218_|) + |gx[1]#_g133979_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g130219_|) - (cons (cons 'down |gx[1]#_g130220_|) - (cons (cons 'id |gx[1]#_g130221_|) - (cons (cons 'table |gx[1]#_g130222_|) + |gx[1]#_g133980_|) + (cons (cons 'down |gx[1]#_g133981_|) + (cons (cons 'id |gx[1]#_g133982_|) + (cons (cons 'table |gx[1]#_g133983_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj129989 __tmp130211 '18 '#f '#f)) + (##unchecked-structure-set! __obj133750 __tmp133972 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129989 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133750 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129989 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133750 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129989 '() '20 '#f '#f)) - __obj129989)) + (##unchecked-structure-set! __obj133750 '() '20 '#f '#f)) + __obj133750)) (define |gx[:0:]#prelude-context| - (let ((__obj129990 + (let ((__obj133751 (let () (declare (not safe)) (##structure @@ -4208,129 +4208,129 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129990 + __obj133751 'gx#prelude-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129990 'prelude-context '2 '#f '#f)) + (##unchecked-structure-set! __obj133751 'prelude-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129990 '(path import e) '4 '#f '#f)) + (##unchecked-structure-set! __obj133751 '(path import e) '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj129990 + __obj133751 '(id table super up down path import e) - '6 + '7 '#f '#f)) - (let ((__tmp130223 (cons |gx[1]#_g130168_| '()))) + (let ((__tmp133984 (cons |gx[1]#_g133929_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj129990 __tmp130223 '3 '#f '#f)) + (##unchecked-structure-set! __obj133751 __tmp133984 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129990 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133751 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129990 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133751 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129990 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133751 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129990 '#f '11 '#f '#f)) - (let ((__tmp130224 |gx[1]#_g130225_|)) + (##unchecked-structure-set! __obj133751 '#f '12 '#f '#f)) + (let ((__tmp133985 |gx[1]#_g133986_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129990 __tmp130224 '12 '#f '#f)) - (let ((__tmp130226 |gx[1]#_g130227_|)) + (##unchecked-structure-set! __obj133751 __tmp133985 '3 '#f '#f)) + (let ((__tmp133987 |gx[1]#_g133988_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129990 __tmp130226 '13 '#f '#f)) - (let ((__tmp130228 |gx[1]#_g130229_|)) + (##unchecked-structure-set! __obj133751 __tmp133987 '13 '#f '#f)) + (let ((__tmp133989 |gx[1]#_g133990_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129990 __tmp130228 '14 '#f '#f)) - (let ((__tmp130230 - (cons (cons 'path |gx[1]#_g130231_|) - (cons (cons 'import |gx[1]#_g130232_|) - (cons (cons 'e |gx[1]#_g130233_|) - (cons (cons 'super |gx[1]#_g130234_|) - (cons (cons 'up |gx[1]#_g130235_|) + (##unchecked-structure-set! __obj133751 __tmp133989 '14 '#f '#f)) + (let ((__tmp133991 + (cons (cons 'path |gx[1]#_g133992_|) + (cons (cons 'import |gx[1]#_g133993_|) + (cons (cons 'e |gx[1]#_g133994_|) + (cons (cons 'super |gx[1]#_g133995_|) + (cons (cons 'up |gx[1]#_g133996_|) (cons (cons 'down - |gx[1]#_g130236_|) + |gx[1]#_g133997_|) (cons (cons 'id - |gx[1]#_g130237_|) + |gx[1]#_g133998_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g130238_|) + |gx[1]#_g133999_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj129990 __tmp130230 '15 '#f '#f)) - (let ((__tmp130239 - (cons (cons 'path |gx[1]#_g130240_|) - (cons (cons 'import |gx[1]#_g130241_|) - (cons (cons 'e |gx[1]#_g130242_|) - (cons (cons 'super |gx[1]#_g130243_|) - (cons (cons 'up |gx[1]#_g130244_|) + (##unchecked-structure-set! __obj133751 __tmp133991 '15 '#f '#f)) + (let ((__tmp134000 + (cons (cons 'path |gx[1]#_g134001_|) + (cons (cons 'import |gx[1]#_g134002_|) + (cons (cons 'e |gx[1]#_g134003_|) + (cons (cons 'super |gx[1]#_g134004_|) + (cons (cons 'up |gx[1]#_g134005_|) (cons (cons 'down - |gx[1]#_g130245_|) + |gx[1]#_g134006_|) (cons (cons 'id - |gx[1]#_g130246_|) + |gx[1]#_g134007_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g130247_|) + |gx[1]#_g134008_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj129990 __tmp130239 '16 '#f '#f)) - (let ((__tmp130248 - (cons (cons 'path |gx[1]#_g130249_|) - (cons (cons 'import |gx[1]#_g130250_|) - (cons (cons 'e |gx[1]#_g130251_|) - (cons (cons 'super |gx[1]#_g130252_|) - (cons (cons 'up |gx[1]#_g130253_|) + (##unchecked-structure-set! __obj133751 __tmp134000 '16 '#f '#f)) + (let ((__tmp134009 + (cons (cons 'path |gx[1]#_g134010_|) + (cons (cons 'import |gx[1]#_g134011_|) + (cons (cons 'e |gx[1]#_g134012_|) + (cons (cons 'super |gx[1]#_g134013_|) + (cons (cons 'up |gx[1]#_g134014_|) (cons (cons 'down - |gx[1]#_g130254_|) + |gx[1]#_g134015_|) (cons (cons 'id - |gx[1]#_g130255_|) + |gx[1]#_g134016_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g130256_|) + |gx[1]#_g134017_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj129990 __tmp130248 '17 '#f '#f)) - (let ((__tmp130257 - (cons (cons 'path |gx[1]#_g130258_|) - (cons (cons 'import |gx[1]#_g130259_|) - (cons (cons 'e |gx[1]#_g130260_|) - (cons (cons 'super |gx[1]#_g130261_|) - (cons (cons 'up |gx[1]#_g130262_|) + (##unchecked-structure-set! __obj133751 __tmp134009 '17 '#f '#f)) + (let ((__tmp134018 + (cons (cons 'path |gx[1]#_g134019_|) + (cons (cons 'import |gx[1]#_g134020_|) + (cons (cons 'e |gx[1]#_g134021_|) + (cons (cons 'super |gx[1]#_g134022_|) + (cons (cons 'up |gx[1]#_g134023_|) (cons (cons 'down - |gx[1]#_g130263_|) + |gx[1]#_g134024_|) (cons (cons 'id - |gx[1]#_g130264_|) + |gx[1]#_g134025_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g130265_|) + |gx[1]#_g134026_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj129990 __tmp130257 '18 '#f '#f)) + (##unchecked-structure-set! __obj133751 __tmp134018 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129990 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133751 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129990 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133751 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129990 '() '20 '#f '#f)) - __obj129990)) + (##unchecked-structure-set! __obj133751 '() '20 '#f '#f)) + __obj133751)) (define |gx[:0:]#local-context| - (let ((__obj129991 + (let ((__obj133752 (let () (declare (not safe)) (##structure @@ -4359,97 +4359,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129991 + __obj133752 'gx#local-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129991 'local-context '2 '#f '#f)) + (##unchecked-structure-set! __obj133752 'local-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129991 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133752 '() '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj129991 + __obj133752 '(id table super up down) - '6 + '7 '#f '#f)) - (let ((__tmp130266 (cons |gx[1]#_g130136_| '()))) + (let ((__tmp134027 (cons |gx[1]#_g133897_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj129991 __tmp130266 '3 '#f '#f)) + (##unchecked-structure-set! __obj133752 __tmp134027 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129991 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133752 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129991 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133752 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129991 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133752 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129991 '#f '11 '#f '#f)) - (let ((__tmp130267 |gx[1]#_g130268_|)) + (##unchecked-structure-set! __obj133752 '#f '12 '#f '#f)) + (let ((__tmp134028 |gx[1]#_g134029_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129991 __tmp130267 '12 '#f '#f)) - (let ((__tmp130269 |gx[1]#_g130270_|)) + (##unchecked-structure-set! __obj133752 __tmp134028 '3 '#f '#f)) + (let ((__tmp134030 |gx[1]#_g134031_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129991 __tmp130269 '13 '#f '#f)) - (let ((__tmp130271 |gx[1]#_g130272_|)) + (##unchecked-structure-set! __obj133752 __tmp134030 '13 '#f '#f)) + (let ((__tmp134032 |gx[1]#_g134033_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129991 __tmp130271 '14 '#f '#f)) - (let ((__tmp130273 - (cons (cons 'super |gx[1]#_g130274_|) - (cons (cons 'up |gx[1]#_g130275_|) - (cons (cons 'down |gx[1]#_g130276_|) - (cons (cons 'id |gx[1]#_g130277_|) - (cons (cons 'table |gx[1]#_g130278_|) + (##unchecked-structure-set! __obj133752 __tmp134032 '14 '#f '#f)) + (let ((__tmp134034 + (cons (cons 'super |gx[1]#_g134035_|) + (cons (cons 'up |gx[1]#_g134036_|) + (cons (cons 'down |gx[1]#_g134037_|) + (cons (cons 'id |gx[1]#_g134038_|) + (cons (cons 'table |gx[1]#_g134039_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj129991 __tmp130273 '15 '#f '#f)) - (let ((__tmp130279 - (cons (cons 'super |gx[1]#_g130280_|) - (cons (cons 'up |gx[1]#_g130281_|) - (cons (cons 'down |gx[1]#_g130282_|) - (cons (cons 'id |gx[1]#_g130283_|) - (cons (cons 'table |gx[1]#_g130284_|) + (##unchecked-structure-set! __obj133752 __tmp134034 '15 '#f '#f)) + (let ((__tmp134040 + (cons (cons 'super |gx[1]#_g134041_|) + (cons (cons 'up |gx[1]#_g134042_|) + (cons (cons 'down |gx[1]#_g134043_|) + (cons (cons 'id |gx[1]#_g134044_|) + (cons (cons 'table |gx[1]#_g134045_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj129991 __tmp130279 '16 '#f '#f)) - (let ((__tmp130285 - (cons (cons 'super |gx[1]#_g130286_|) - (cons (cons 'up |gx[1]#_g130287_|) - (cons (cons 'down |gx[1]#_g130288_|) - (cons (cons 'id |gx[1]#_g130289_|) - (cons (cons 'table |gx[1]#_g130290_|) + (##unchecked-structure-set! __obj133752 __tmp134040 '16 '#f '#f)) + (let ((__tmp134046 + (cons (cons 'super |gx[1]#_g134047_|) + (cons (cons 'up |gx[1]#_g134048_|) + (cons (cons 'down |gx[1]#_g134049_|) + (cons (cons 'id |gx[1]#_g134050_|) + (cons (cons 'table |gx[1]#_g134051_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj129991 __tmp130285 '17 '#f '#f)) - (let ((__tmp130291 - (cons (cons 'super |gx[1]#_g130292_|) - (cons (cons 'up |gx[1]#_g130293_|) - (cons (cons 'down |gx[1]#_g130294_|) - (cons (cons 'id |gx[1]#_g130295_|) - (cons (cons 'table |gx[1]#_g130296_|) + (##unchecked-structure-set! __obj133752 __tmp134046 '17 '#f '#f)) + (let ((__tmp134052 + (cons (cons 'super |gx[1]#_g134053_|) + (cons (cons 'up |gx[1]#_g134054_|) + (cons (cons 'down |gx[1]#_g134055_|) + (cons (cons 'id |gx[1]#_g134056_|) + (cons (cons 'table |gx[1]#_g134057_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj129991 __tmp130291 '18 '#f '#f)) + (##unchecked-structure-set! __obj133752 __tmp134052 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129991 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133752 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129991 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133752 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129991 '() '20 '#f '#f)) - __obj129991)) + (##unchecked-structure-set! __obj133752 '() '20 '#f '#f)) + __obj133752)) (define |gx[:0:]#binding| - (let ((__obj129992 + (let ((__obj133753 (let () (declare (not safe)) (##structure @@ -4477,76 +4477,76 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129992 'gx#binding::t '1 '#f '#f)) + (##unchecked-structure-set! __obj133753 'gx#binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129992 'binding '2 '#f '#f)) + (##unchecked-structure-set! __obj133753 'binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129992 '(id key phi) '4 '#f '#f)) + (##unchecked-structure-set! __obj133753 '(id key phi) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129992 '(id key phi) '6 '#f '#f)) + (##unchecked-structure-set! __obj133753 '(id key phi) '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129992 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj133753 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129992 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133753 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129992 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133753 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129992 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133753 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129992 '#f '11 '#f '#f)) - (let ((__tmp130297 |gx[1]#_g130298_|)) + (##unchecked-structure-set! __obj133753 '#f '12 '#f '#f)) + (let ((__tmp134058 |gx[1]#_g134059_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129992 __tmp130297 '12 '#f '#f)) - (let ((__tmp130299 |gx[1]#_g130300_|)) + (##unchecked-structure-set! __obj133753 __tmp134058 '3 '#f '#f)) + (let ((__tmp134060 |gx[1]#_g134061_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129992 __tmp130299 '13 '#f '#f)) - (let ((__tmp130301 |gx[1]#_g130302_|)) + (##unchecked-structure-set! __obj133753 __tmp134060 '13 '#f '#f)) + (let ((__tmp134062 |gx[1]#_g134063_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129992 __tmp130301 '14 '#f '#f)) - (let ((__tmp130303 - (cons (cons 'id |gx[1]#_g130304_|) - (cons (cons 'key |gx[1]#_g130305_|) - (cons (cons 'phi |gx[1]#_g130306_|) '()))))) + (##unchecked-structure-set! __obj133753 __tmp134062 '14 '#f '#f)) + (let ((__tmp134064 + (cons (cons 'id |gx[1]#_g134065_|) + (cons (cons 'key |gx[1]#_g134066_|) + (cons (cons 'phi |gx[1]#_g134067_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129992 __tmp130303 '15 '#f '#f)) - (let ((__tmp130307 - (cons (cons 'id |gx[1]#_g130308_|) - (cons (cons 'key |gx[1]#_g130309_|) - (cons (cons 'phi |gx[1]#_g130310_|) '()))))) + (##unchecked-structure-set! __obj133753 __tmp134064 '15 '#f '#f)) + (let ((__tmp134068 + (cons (cons 'id |gx[1]#_g134069_|) + (cons (cons 'key |gx[1]#_g134070_|) + (cons (cons 'phi |gx[1]#_g134071_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129992 __tmp130307 '16 '#f '#f)) - (let ((__tmp130311 - (cons (cons 'id |gx[1]#_g130312_|) - (cons (cons 'key |gx[1]#_g130313_|) - (cons (cons 'phi |gx[1]#_g130314_|) '()))))) + (##unchecked-structure-set! __obj133753 __tmp134068 '16 '#f '#f)) + (let ((__tmp134072 + (cons (cons 'id |gx[1]#_g134073_|) + (cons (cons 'key |gx[1]#_g134074_|) + (cons (cons 'phi |gx[1]#_g134075_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129992 __tmp130311 '17 '#f '#f)) - (let ((__tmp130315 - (cons (cons 'id |gx[1]#_g130316_|) - (cons (cons 'key |gx[1]#_g130317_|) - (cons (cons 'phi |gx[1]#_g130318_|) '()))))) + (##unchecked-structure-set! __obj133753 __tmp134072 '17 '#f '#f)) + (let ((__tmp134076 + (cons (cons 'id |gx[1]#_g134077_|) + (cons (cons 'key |gx[1]#_g134078_|) + (cons (cons 'phi |gx[1]#_g134079_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129992 __tmp130315 '18 '#f '#f)) + (##unchecked-structure-set! __obj133753 __tmp134076 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129992 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133753 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129992 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133753 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129992 '() '20 '#f '#f)) - __obj129992)) + (##unchecked-structure-set! __obj133753 '() '20 '#f '#f)) + __obj133753)) (define |gx[:0:]#runtime-binding| - (let ((__obj129993 + (let ((__obj133754 (let () (declare (not safe)) (##structure @@ -4575,80 +4575,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129993 + __obj133754 'gx#runtime-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129993 'runtime-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj133754 'runtime-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129993 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133754 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129993 '(id key phi) '6 '#f '#f)) - (let ((__tmp130319 (cons |gx[1]#_g130320_| '()))) + (##unchecked-structure-set! __obj133754 '(id key phi) '7 '#f '#f)) + (let ((__tmp134080 (cons |gx[1]#_g134081_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj129993 __tmp130319 '3 '#f '#f)) + (##unchecked-structure-set! __obj133754 __tmp134080 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129993 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133754 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129993 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133754 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129993 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133754 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129993 '#f '11 '#f '#f)) - (let ((__tmp130321 |gx[1]#_g130322_|)) + (##unchecked-structure-set! __obj133754 '#f '12 '#f '#f)) + (let ((__tmp134082 |gx[1]#_g134083_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129993 __tmp130321 '12 '#f '#f)) - (let ((__tmp130323 |gx[1]#_g130324_|)) + (##unchecked-structure-set! __obj133754 __tmp134082 '3 '#f '#f)) + (let ((__tmp134084 |gx[1]#_g134085_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129993 __tmp130323 '13 '#f '#f)) - (let ((__tmp130325 |gx[1]#_g130326_|)) + (##unchecked-structure-set! __obj133754 __tmp134084 '13 '#f '#f)) + (let ((__tmp134086 |gx[1]#_g134087_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129993 __tmp130325 '14 '#f '#f)) - (let ((__tmp130327 - (cons (cons 'id |gx[1]#_g130328_|) - (cons (cons 'key |gx[1]#_g130329_|) - (cons (cons 'phi |gx[1]#_g130330_|) '()))))) + (##unchecked-structure-set! __obj133754 __tmp134086 '14 '#f '#f)) + (let ((__tmp134088 + (cons (cons 'id |gx[1]#_g134089_|) + (cons (cons 'key |gx[1]#_g134090_|) + (cons (cons 'phi |gx[1]#_g134091_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129993 __tmp130327 '15 '#f '#f)) - (let ((__tmp130331 - (cons (cons 'id |gx[1]#_g130332_|) - (cons (cons 'key |gx[1]#_g130333_|) - (cons (cons 'phi |gx[1]#_g130334_|) '()))))) + (##unchecked-structure-set! __obj133754 __tmp134088 '15 '#f '#f)) + (let ((__tmp134092 + (cons (cons 'id |gx[1]#_g134093_|) + (cons (cons 'key |gx[1]#_g134094_|) + (cons (cons 'phi |gx[1]#_g134095_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129993 __tmp130331 '16 '#f '#f)) - (let ((__tmp130335 - (cons (cons 'id |gx[1]#_g130336_|) - (cons (cons 'key |gx[1]#_g130337_|) - (cons (cons 'phi |gx[1]#_g130338_|) '()))))) + (##unchecked-structure-set! __obj133754 __tmp134092 '16 '#f '#f)) + (let ((__tmp134096 + (cons (cons 'id |gx[1]#_g134097_|) + (cons (cons 'key |gx[1]#_g134098_|) + (cons (cons 'phi |gx[1]#_g134099_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129993 __tmp130335 '17 '#f '#f)) - (let ((__tmp130339 - (cons (cons 'id |gx[1]#_g130340_|) - (cons (cons 'key |gx[1]#_g130341_|) - (cons (cons 'phi |gx[1]#_g130342_|) '()))))) + (##unchecked-structure-set! __obj133754 __tmp134096 '17 '#f '#f)) + (let ((__tmp134100 + (cons (cons 'id |gx[1]#_g134101_|) + (cons (cons 'key |gx[1]#_g134102_|) + (cons (cons 'phi |gx[1]#_g134103_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129993 __tmp130339 '18 '#f '#f)) + (##unchecked-structure-set! __obj133754 __tmp134100 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129993 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133754 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129993 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133754 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129993 '() '20 '#f '#f)) - __obj129993)) + (##unchecked-structure-set! __obj133754 '() '20 '#f '#f)) + __obj133754)) (define |gx[:0:]#local-binding| - (let ((__obj129994 + (let ((__obj133755 (let () (declare (not safe)) (##structure @@ -4677,80 +4677,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129994 + __obj133755 'gx#local-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129994 'local-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj133755 'local-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129994 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133755 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129994 '(id key phi) '6 '#f '#f)) - (let ((__tmp130343 (cons |gx[1]#_g130344_| '()))) + (##unchecked-structure-set! __obj133755 '(id key phi) '7 '#f '#f)) + (let ((__tmp134104 (cons |gx[1]#_g134105_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj129994 __tmp130343 '3 '#f '#f)) + (##unchecked-structure-set! __obj133755 __tmp134104 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129994 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133755 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129994 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133755 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129994 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133755 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129994 '#f '11 '#f '#f)) - (let ((__tmp130345 |gx[1]#_g130346_|)) + (##unchecked-structure-set! __obj133755 '#f '12 '#f '#f)) + (let ((__tmp134106 |gx[1]#_g134107_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129994 __tmp130345 '12 '#f '#f)) - (let ((__tmp130347 |gx[1]#_g130348_|)) + (##unchecked-structure-set! __obj133755 __tmp134106 '3 '#f '#f)) + (let ((__tmp134108 |gx[1]#_g134109_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129994 __tmp130347 '13 '#f '#f)) - (let ((__tmp130349 |gx[1]#_g130350_|)) + (##unchecked-structure-set! __obj133755 __tmp134108 '13 '#f '#f)) + (let ((__tmp134110 |gx[1]#_g134111_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129994 __tmp130349 '14 '#f '#f)) - (let ((__tmp130351 - (cons (cons 'id |gx[1]#_g130352_|) - (cons (cons 'key |gx[1]#_g130353_|) - (cons (cons 'phi |gx[1]#_g130354_|) '()))))) + (##unchecked-structure-set! __obj133755 __tmp134110 '14 '#f '#f)) + (let ((__tmp134112 + (cons (cons 'id |gx[1]#_g134113_|) + (cons (cons 'key |gx[1]#_g134114_|) + (cons (cons 'phi |gx[1]#_g134115_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129994 __tmp130351 '15 '#f '#f)) - (let ((__tmp130355 - (cons (cons 'id |gx[1]#_g130356_|) - (cons (cons 'key |gx[1]#_g130357_|) - (cons (cons 'phi |gx[1]#_g130358_|) '()))))) + (##unchecked-structure-set! __obj133755 __tmp134112 '15 '#f '#f)) + (let ((__tmp134116 + (cons (cons 'id |gx[1]#_g134117_|) + (cons (cons 'key |gx[1]#_g134118_|) + (cons (cons 'phi |gx[1]#_g134119_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129994 __tmp130355 '16 '#f '#f)) - (let ((__tmp130359 - (cons (cons 'id |gx[1]#_g130360_|) - (cons (cons 'key |gx[1]#_g130361_|) - (cons (cons 'phi |gx[1]#_g130362_|) '()))))) + (##unchecked-structure-set! __obj133755 __tmp134116 '16 '#f '#f)) + (let ((__tmp134120 + (cons (cons 'id |gx[1]#_g134121_|) + (cons (cons 'key |gx[1]#_g134122_|) + (cons (cons 'phi |gx[1]#_g134123_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129994 __tmp130359 '17 '#f '#f)) - (let ((__tmp130363 - (cons (cons 'id |gx[1]#_g130364_|) - (cons (cons 'key |gx[1]#_g130365_|) - (cons (cons 'phi |gx[1]#_g130366_|) '()))))) + (##unchecked-structure-set! __obj133755 __tmp134120 '17 '#f '#f)) + (let ((__tmp134124 + (cons (cons 'id |gx[1]#_g134125_|) + (cons (cons 'key |gx[1]#_g134126_|) + (cons (cons 'phi |gx[1]#_g134127_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129994 __tmp130363 '18 '#f '#f)) + (##unchecked-structure-set! __obj133755 __tmp134124 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129994 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133755 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129994 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133755 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129994 '() '20 '#f '#f)) - __obj129994)) + (##unchecked-structure-set! __obj133755 '() '20 '#f '#f)) + __obj133755)) (define |gx[:0:]#top-binding| - (let ((__obj129995 + (let ((__obj133756 (let () (declare (not safe)) (##structure @@ -4779,80 +4779,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129995 + __obj133756 'gx#top-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129995 'top-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj133756 'top-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129995 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133756 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129995 '(id key phi) '6 '#f '#f)) - (let ((__tmp130367 (cons |gx[1]#_g130344_| '()))) + (##unchecked-structure-set! __obj133756 '(id key phi) '7 '#f '#f)) + (let ((__tmp134128 (cons |gx[1]#_g134105_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj129995 __tmp130367 '3 '#f '#f)) + (##unchecked-structure-set! __obj133756 __tmp134128 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129995 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133756 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129995 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133756 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129995 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133756 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129995 '#f '11 '#f '#f)) - (let ((__tmp130368 |gx[1]#_g130369_|)) + (##unchecked-structure-set! __obj133756 '#f '12 '#f '#f)) + (let ((__tmp134129 |gx[1]#_g134130_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129995 __tmp130368 '12 '#f '#f)) - (let ((__tmp130370 |gx[1]#_g130371_|)) + (##unchecked-structure-set! __obj133756 __tmp134129 '3 '#f '#f)) + (let ((__tmp134131 |gx[1]#_g134132_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129995 __tmp130370 '13 '#f '#f)) - (let ((__tmp130372 |gx[1]#_g130373_|)) + (##unchecked-structure-set! __obj133756 __tmp134131 '13 '#f '#f)) + (let ((__tmp134133 |gx[1]#_g134134_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129995 __tmp130372 '14 '#f '#f)) - (let ((__tmp130374 - (cons (cons 'id |gx[1]#_g130375_|) - (cons (cons 'key |gx[1]#_g130376_|) - (cons (cons 'phi |gx[1]#_g130377_|) '()))))) + (##unchecked-structure-set! __obj133756 __tmp134133 '14 '#f '#f)) + (let ((__tmp134135 + (cons (cons 'id |gx[1]#_g134136_|) + (cons (cons 'key |gx[1]#_g134137_|) + (cons (cons 'phi |gx[1]#_g134138_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129995 __tmp130374 '15 '#f '#f)) - (let ((__tmp130378 - (cons (cons 'id |gx[1]#_g130379_|) - (cons (cons 'key |gx[1]#_g130380_|) - (cons (cons 'phi |gx[1]#_g130381_|) '()))))) + (##unchecked-structure-set! __obj133756 __tmp134135 '15 '#f '#f)) + (let ((__tmp134139 + (cons (cons 'id |gx[1]#_g134140_|) + (cons (cons 'key |gx[1]#_g134141_|) + (cons (cons 'phi |gx[1]#_g134142_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129995 __tmp130378 '16 '#f '#f)) - (let ((__tmp130382 - (cons (cons 'id |gx[1]#_g130383_|) - (cons (cons 'key |gx[1]#_g130384_|) - (cons (cons 'phi |gx[1]#_g130385_|) '()))))) + (##unchecked-structure-set! __obj133756 __tmp134139 '16 '#f '#f)) + (let ((__tmp134143 + (cons (cons 'id |gx[1]#_g134144_|) + (cons (cons 'key |gx[1]#_g134145_|) + (cons (cons 'phi |gx[1]#_g134146_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129995 __tmp130382 '17 '#f '#f)) - (let ((__tmp130386 - (cons (cons 'id |gx[1]#_g130387_|) - (cons (cons 'key |gx[1]#_g130388_|) - (cons (cons 'phi |gx[1]#_g130389_|) '()))))) + (##unchecked-structure-set! __obj133756 __tmp134143 '17 '#f '#f)) + (let ((__tmp134147 + (cons (cons 'id |gx[1]#_g134148_|) + (cons (cons 'key |gx[1]#_g134149_|) + (cons (cons 'phi |gx[1]#_g134150_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129995 __tmp130386 '18 '#f '#f)) + (##unchecked-structure-set! __obj133756 __tmp134147 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129995 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133756 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129995 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133756 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129995 '() '20 '#f '#f)) - __obj129995)) + (##unchecked-structure-set! __obj133756 '() '20 '#f '#f)) + __obj133756)) (define |gx[:0:]#module-binding| - (let ((__obj129996 + (let ((__obj133757 (let () (declare (not safe)) (##structure @@ -4881,89 +4881,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129996 + __obj133757 'gx#module-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129996 'module-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj133757 'module-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129996 '(context) '4 '#f '#f)) + (##unchecked-structure-set! __obj133757 '(context) '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj129996 + __obj133757 '(id key phi context) - '6 + '7 '#f '#f)) - (let ((__tmp130390 (cons |gx[1]#_g130391_| '()))) + (let ((__tmp134151 (cons |gx[1]#_g134152_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj129996 __tmp130390 '3 '#f '#f)) + (##unchecked-structure-set! __obj133757 __tmp134151 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129996 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133757 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129996 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133757 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129996 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133757 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129996 '#f '11 '#f '#f)) - (let ((__tmp130392 |gx[1]#_g130393_|)) + (##unchecked-structure-set! __obj133757 '#f '12 '#f '#f)) + (let ((__tmp134153 |gx[1]#_g134154_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129996 __tmp130392 '12 '#f '#f)) - (let ((__tmp130394 |gx[1]#_g130395_|)) + (##unchecked-structure-set! __obj133757 __tmp134153 '3 '#f '#f)) + (let ((__tmp134155 |gx[1]#_g134156_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129996 __tmp130394 '13 '#f '#f)) - (let ((__tmp130396 |gx[1]#_g130397_|)) + (##unchecked-structure-set! __obj133757 __tmp134155 '13 '#f '#f)) + (let ((__tmp134157 |gx[1]#_g134158_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129996 __tmp130396 '14 '#f '#f)) - (let ((__tmp130398 - (cons (cons 'context |gx[1]#_g130399_|) - (cons (cons 'id |gx[1]#_g130400_|) - (cons (cons 'key |gx[1]#_g130401_|) - (cons (cons 'phi |gx[1]#_g130402_|) '())))))) + (##unchecked-structure-set! __obj133757 __tmp134157 '14 '#f '#f)) + (let ((__tmp134159 + (cons (cons 'context |gx[1]#_g134160_|) + (cons (cons 'id |gx[1]#_g134161_|) + (cons (cons 'key |gx[1]#_g134162_|) + (cons (cons 'phi |gx[1]#_g134163_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj129996 __tmp130398 '15 '#f '#f)) - (let ((__tmp130403 - (cons (cons 'context |gx[1]#_g130404_|) - (cons (cons 'id |gx[1]#_g130405_|) - (cons (cons 'key |gx[1]#_g130406_|) - (cons (cons 'phi |gx[1]#_g130407_|) '())))))) + (##unchecked-structure-set! __obj133757 __tmp134159 '15 '#f '#f)) + (let ((__tmp134164 + (cons (cons 'context |gx[1]#_g134165_|) + (cons (cons 'id |gx[1]#_g134166_|) + (cons (cons 'key |gx[1]#_g134167_|) + (cons (cons 'phi |gx[1]#_g134168_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj129996 __tmp130403 '16 '#f '#f)) - (let ((__tmp130408 - (cons (cons 'context |gx[1]#_g130409_|) - (cons (cons 'id |gx[1]#_g130410_|) - (cons (cons 'key |gx[1]#_g130411_|) - (cons (cons 'phi |gx[1]#_g130412_|) '())))))) + (##unchecked-structure-set! __obj133757 __tmp134164 '16 '#f '#f)) + (let ((__tmp134169 + (cons (cons 'context |gx[1]#_g134170_|) + (cons (cons 'id |gx[1]#_g134171_|) + (cons (cons 'key |gx[1]#_g134172_|) + (cons (cons 'phi |gx[1]#_g134173_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj129996 __tmp130408 '17 '#f '#f)) - (let ((__tmp130413 - (cons (cons 'context |gx[1]#_g130414_|) - (cons (cons 'id |gx[1]#_g130415_|) - (cons (cons 'key |gx[1]#_g130416_|) - (cons (cons 'phi |gx[1]#_g130417_|) '())))))) + (##unchecked-structure-set! __obj133757 __tmp134169 '17 '#f '#f)) + (let ((__tmp134174 + (cons (cons 'context |gx[1]#_g134175_|) + (cons (cons 'id |gx[1]#_g134176_|) + (cons (cons 'key |gx[1]#_g134177_|) + (cons (cons 'phi |gx[1]#_g134178_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj129996 __tmp130413 '18 '#f '#f)) + (##unchecked-structure-set! __obj133757 __tmp134174 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129996 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133757 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129996 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133757 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129996 '() '20 '#f '#f)) - __obj129996)) + (##unchecked-structure-set! __obj133757 '() '20 '#f '#f)) + __obj133757)) (define |gx[:0:]#extern-binding| - (let ((__obj129997 + (let ((__obj133758 (let () (declare (not safe)) (##structure @@ -4992,80 +4992,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129997 + __obj133758 'gx#extern-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129997 'extern-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj133758 'extern-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129997 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133758 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129997 '(id key phi) '6 '#f '#f)) - (let ((__tmp130418 (cons |gx[1]#_g130391_| '()))) + (##unchecked-structure-set! __obj133758 '(id key phi) '7 '#f '#f)) + (let ((__tmp134179 (cons |gx[1]#_g134152_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj129997 __tmp130418 '3 '#f '#f)) + (##unchecked-structure-set! __obj133758 __tmp134179 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129997 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133758 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129997 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133758 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129997 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133758 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129997 '#f '11 '#f '#f)) - (let ((__tmp130419 |gx[1]#_g130420_|)) + (##unchecked-structure-set! __obj133758 '#f '12 '#f '#f)) + (let ((__tmp134180 |gx[1]#_g134181_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129997 __tmp130419 '12 '#f '#f)) - (let ((__tmp130421 |gx[1]#_g130422_|)) + (##unchecked-structure-set! __obj133758 __tmp134180 '3 '#f '#f)) + (let ((__tmp134182 |gx[1]#_g134183_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129997 __tmp130421 '13 '#f '#f)) - (let ((__tmp130423 |gx[1]#_g130424_|)) + (##unchecked-structure-set! __obj133758 __tmp134182 '13 '#f '#f)) + (let ((__tmp134184 |gx[1]#_g134185_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129997 __tmp130423 '14 '#f '#f)) - (let ((__tmp130425 - (cons (cons 'id |gx[1]#_g130426_|) - (cons (cons 'key |gx[1]#_g130427_|) - (cons (cons 'phi |gx[1]#_g130428_|) '()))))) + (##unchecked-structure-set! __obj133758 __tmp134184 '14 '#f '#f)) + (let ((__tmp134186 + (cons (cons 'id |gx[1]#_g134187_|) + (cons (cons 'key |gx[1]#_g134188_|) + (cons (cons 'phi |gx[1]#_g134189_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129997 __tmp130425 '15 '#f '#f)) - (let ((__tmp130429 - (cons (cons 'id |gx[1]#_g130430_|) - (cons (cons 'key |gx[1]#_g130431_|) - (cons (cons 'phi |gx[1]#_g130432_|) '()))))) + (##unchecked-structure-set! __obj133758 __tmp134186 '15 '#f '#f)) + (let ((__tmp134190 + (cons (cons 'id |gx[1]#_g134191_|) + (cons (cons 'key |gx[1]#_g134192_|) + (cons (cons 'phi |gx[1]#_g134193_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129997 __tmp130429 '16 '#f '#f)) - (let ((__tmp130433 - (cons (cons 'id |gx[1]#_g130434_|) - (cons (cons 'key |gx[1]#_g130435_|) - (cons (cons 'phi |gx[1]#_g130436_|) '()))))) + (##unchecked-structure-set! __obj133758 __tmp134190 '16 '#f '#f)) + (let ((__tmp134194 + (cons (cons 'id |gx[1]#_g134195_|) + (cons (cons 'key |gx[1]#_g134196_|) + (cons (cons 'phi |gx[1]#_g134197_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129997 __tmp130433 '17 '#f '#f)) - (let ((__tmp130437 - (cons (cons 'id |gx[1]#_g130438_|) - (cons (cons 'key |gx[1]#_g130439_|) - (cons (cons 'phi |gx[1]#_g130440_|) '()))))) + (##unchecked-structure-set! __obj133758 __tmp134194 '17 '#f '#f)) + (let ((__tmp134198 + (cons (cons 'id |gx[1]#_g134199_|) + (cons (cons 'key |gx[1]#_g134200_|) + (cons (cons 'phi |gx[1]#_g134201_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129997 __tmp130437 '18 '#f '#f)) + (##unchecked-structure-set! __obj133758 __tmp134198 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129997 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133758 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129997 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133758 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129997 '() '20 '#f '#f)) - __obj129997)) + (##unchecked-structure-set! __obj133758 '() '20 '#f '#f)) + __obj133758)) (define |gx[:0:]#syntax-binding| - (let ((__obj129998 + (let ((__obj133759 (let () (declare (not safe)) (##structure @@ -5094,84 +5094,84 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129998 + __obj133759 'gx#syntax-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129998 'syntax-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj133759 'syntax-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129998 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj133759 '(e) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129998 '(id key phi e) '6 '#f '#f)) - (let ((__tmp130441 (cons |gx[1]#_g130320_| '()))) + (##unchecked-structure-set! __obj133759 '(id key phi e) '7 '#f '#f)) + (let ((__tmp134202 (cons |gx[1]#_g134081_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj129998 __tmp130441 '3 '#f '#f)) + (##unchecked-structure-set! __obj133759 __tmp134202 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129998 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133759 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129998 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj133759 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129998 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133759 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129998 '#f '11 '#f '#f)) - (let ((__tmp130442 |gx[1]#_g130443_|)) + (##unchecked-structure-set! __obj133759 '#f '12 '#f '#f)) + (let ((__tmp134203 |gx[1]#_g134204_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129998 __tmp130442 '12 '#f '#f)) - (let ((__tmp130444 |gx[1]#_g130445_|)) + (##unchecked-structure-set! __obj133759 __tmp134203 '3 '#f '#f)) + (let ((__tmp134205 |gx[1]#_g134206_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129998 __tmp130444 '13 '#f '#f)) - (let ((__tmp130446 |gx[1]#_g130447_|)) + (##unchecked-structure-set! __obj133759 __tmp134205 '13 '#f '#f)) + (let ((__tmp134207 |gx[1]#_g134208_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129998 __tmp130446 '14 '#f '#f)) - (let ((__tmp130448 - (cons (cons 'e |gx[1]#_g130449_|) - (cons (cons 'id |gx[1]#_g130450_|) - (cons (cons 'key |gx[1]#_g130451_|) - (cons (cons 'phi |gx[1]#_g130452_|) '())))))) + (##unchecked-structure-set! __obj133759 __tmp134207 '14 '#f '#f)) + (let ((__tmp134209 + (cons (cons 'e |gx[1]#_g134210_|) + (cons (cons 'id |gx[1]#_g134211_|) + (cons (cons 'key |gx[1]#_g134212_|) + (cons (cons 'phi |gx[1]#_g134213_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj129998 __tmp130448 '15 '#f '#f)) - (let ((__tmp130453 - (cons (cons 'e |gx[1]#_g130454_|) - (cons (cons 'id |gx[1]#_g130455_|) - (cons (cons 'key |gx[1]#_g130456_|) - (cons (cons 'phi |gx[1]#_g130457_|) '())))))) + (##unchecked-structure-set! __obj133759 __tmp134209 '15 '#f '#f)) + (let ((__tmp134214 + (cons (cons 'e |gx[1]#_g134215_|) + (cons (cons 'id |gx[1]#_g134216_|) + (cons (cons 'key |gx[1]#_g134217_|) + (cons (cons 'phi |gx[1]#_g134218_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj129998 __tmp130453 '16 '#f '#f)) - (let ((__tmp130458 - (cons (cons 'e |gx[1]#_g130459_|) - (cons (cons 'id |gx[1]#_g130460_|) - (cons (cons 'key |gx[1]#_g130461_|) - (cons (cons 'phi |gx[1]#_g130462_|) '())))))) + (##unchecked-structure-set! __obj133759 __tmp134214 '16 '#f '#f)) + (let ((__tmp134219 + (cons (cons 'e |gx[1]#_g134220_|) + (cons (cons 'id |gx[1]#_g134221_|) + (cons (cons 'key |gx[1]#_g134222_|) + (cons (cons 'phi |gx[1]#_g134223_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj129998 __tmp130458 '17 '#f '#f)) - (let ((__tmp130463 - (cons (cons 'e |gx[1]#_g130464_|) - (cons (cons 'id |gx[1]#_g130465_|) - (cons (cons 'key |gx[1]#_g130466_|) - (cons (cons 'phi |gx[1]#_g130467_|) '())))))) + (##unchecked-structure-set! __obj133759 __tmp134219 '17 '#f '#f)) + (let ((__tmp134224 + (cons (cons 'e |gx[1]#_g134225_|) + (cons (cons 'id |gx[1]#_g134226_|) + (cons (cons 'key |gx[1]#_g134227_|) + (cons (cons 'phi |gx[1]#_g134228_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj129998 __tmp130463 '18 '#f '#f)) + (##unchecked-structure-set! __obj133759 __tmp134224 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129998 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133759 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129998 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133759 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129998 '() '20 '#f '#f)) - __obj129998)) + (##unchecked-structure-set! __obj133759 '() '20 '#f '#f)) + __obj133759)) (define |gx[:0:]#import-binding| - (let ((__obj129999 + (let ((__obj133760 (let () (declare (not safe)) (##structure @@ -5200,110 +5200,110 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129999 + __obj133760 'gx#import-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129999 'import-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj133760 'import-binding '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj129999 + __obj133760 '(e context weak?) - '4 + '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj129999 + __obj133760 '(id key phi e context weak?) - '6 + '7 '#f '#f)) - (let ((__tmp130468 (cons |gx[1]#_g130320_| '()))) + (let ((__tmp134229 (cons |gx[1]#_g134081_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj129999 __tmp130468 '3 '#f '#f)) + (##unchecked-structure-set! __obj133760 __tmp134229 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129999 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133760 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129999 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj133760 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129999 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133760 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129999 '#f '11 '#f '#f)) - (let ((__tmp130469 |gx[1]#_g130470_|)) + (##unchecked-structure-set! __obj133760 '#f '12 '#f '#f)) + (let ((__tmp134230 |gx[1]#_g134231_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129999 __tmp130469 '12 '#f '#f)) - (let ((__tmp130471 |gx[1]#_g130472_|)) + (##unchecked-structure-set! __obj133760 __tmp134230 '3 '#f '#f)) + (let ((__tmp134232 |gx[1]#_g134233_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129999 __tmp130471 '13 '#f '#f)) - (let ((__tmp130473 |gx[1]#_g130474_|)) + (##unchecked-structure-set! __obj133760 __tmp134232 '13 '#f '#f)) + (let ((__tmp134234 |gx[1]#_g134235_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129999 __tmp130473 '14 '#f '#f)) - (let ((__tmp130475 - (cons (cons 'e |gx[1]#_g130476_|) - (cons (cons 'context |gx[1]#_g130477_|) - (cons (cons 'weak? |gx[1]#_g130478_|) - (cons (cons 'id |gx[1]#_g130479_|) - (cons (cons 'key |gx[1]#_g130480_|) + (##unchecked-structure-set! __obj133760 __tmp134234 '14 '#f '#f)) + (let ((__tmp134236 + (cons (cons 'e |gx[1]#_g134237_|) + (cons (cons 'context |gx[1]#_g134238_|) + (cons (cons 'weak? |gx[1]#_g134239_|) + (cons (cons 'id |gx[1]#_g134240_|) + (cons (cons 'key |gx[1]#_g134241_|) (cons (cons 'phi - |gx[1]#_g130481_|) + |gx[1]#_g134242_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj129999 __tmp130475 '15 '#f '#f)) - (let ((__tmp130482 - (cons (cons 'e |gx[1]#_g130483_|) - (cons (cons 'context |gx[1]#_g130484_|) - (cons (cons 'weak? |gx[1]#_g130485_|) - (cons (cons 'id |gx[1]#_g130486_|) - (cons (cons 'key |gx[1]#_g130487_|) + (##unchecked-structure-set! __obj133760 __tmp134236 '15 '#f '#f)) + (let ((__tmp134243 + (cons (cons 'e |gx[1]#_g134244_|) + (cons (cons 'context |gx[1]#_g134245_|) + (cons (cons 'weak? |gx[1]#_g134246_|) + (cons (cons 'id |gx[1]#_g134247_|) + (cons (cons 'key |gx[1]#_g134248_|) (cons (cons 'phi - |gx[1]#_g130488_|) + |gx[1]#_g134249_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj129999 __tmp130482 '16 '#f '#f)) - (let ((__tmp130489 - (cons (cons 'e |gx[1]#_g130490_|) - (cons (cons 'context |gx[1]#_g130491_|) - (cons (cons 'weak? |gx[1]#_g130492_|) - (cons (cons 'id |gx[1]#_g130493_|) - (cons (cons 'key |gx[1]#_g130494_|) + (##unchecked-structure-set! __obj133760 __tmp134243 '16 '#f '#f)) + (let ((__tmp134250 + (cons (cons 'e |gx[1]#_g134251_|) + (cons (cons 'context |gx[1]#_g134252_|) + (cons (cons 'weak? |gx[1]#_g134253_|) + (cons (cons 'id |gx[1]#_g134254_|) + (cons (cons 'key |gx[1]#_g134255_|) (cons (cons 'phi - |gx[1]#_g130495_|) + |gx[1]#_g134256_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj129999 __tmp130489 '17 '#f '#f)) - (let ((__tmp130496 - (cons (cons 'e |gx[1]#_g130497_|) - (cons (cons 'context |gx[1]#_g130498_|) - (cons (cons 'weak? |gx[1]#_g130499_|) - (cons (cons 'id |gx[1]#_g130500_|) - (cons (cons 'key |gx[1]#_g130501_|) + (##unchecked-structure-set! __obj133760 __tmp134250 '17 '#f '#f)) + (let ((__tmp134257 + (cons (cons 'e |gx[1]#_g134258_|) + (cons (cons 'context |gx[1]#_g134259_|) + (cons (cons 'weak? |gx[1]#_g134260_|) + (cons (cons 'id |gx[1]#_g134261_|) + (cons (cons 'key |gx[1]#_g134262_|) (cons (cons 'phi - |gx[1]#_g130502_|) + |gx[1]#_g134263_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj129999 __tmp130496 '18 '#f '#f)) + (##unchecked-structure-set! __obj133760 __tmp134257 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129999 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133760 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129999 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133760 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129999 '() '20 '#f '#f)) - __obj129999)) + (##unchecked-structure-set! __obj133760 '() '20 '#f '#f)) + __obj133760)) (define |gx[:0:]#alias-binding| - (let ((__obj130000 + (let ((__obj133761 (let () (declare (not safe)) (##structure @@ -5332,84 +5332,84 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130000 + __obj133761 'gx#alias-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130000 'alias-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj133761 'alias-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130000 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj133761 '(e) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130000 '(id key phi e) '6 '#f '#f)) - (let ((__tmp130503 (cons |gx[1]#_g130320_| '()))) + (##unchecked-structure-set! __obj133761 '(id key phi e) '7 '#f '#f)) + (let ((__tmp134264 (cons |gx[1]#_g134081_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130000 __tmp130503 '3 '#f '#f)) + (##unchecked-structure-set! __obj133761 __tmp134264 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130000 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133761 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130000 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj133761 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130000 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133761 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130000 '#f '11 '#f '#f)) - (let ((__tmp130504 |gx[1]#_g130505_|)) + (##unchecked-structure-set! __obj133761 '#f '12 '#f '#f)) + (let ((__tmp134265 |gx[1]#_g134266_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130000 __tmp130504 '12 '#f '#f)) - (let ((__tmp130506 |gx[1]#_g130507_|)) + (##unchecked-structure-set! __obj133761 __tmp134265 '3 '#f '#f)) + (let ((__tmp134267 |gx[1]#_g134268_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130000 __tmp130506 '13 '#f '#f)) - (let ((__tmp130508 |gx[1]#_g130509_|)) + (##unchecked-structure-set! __obj133761 __tmp134267 '13 '#f '#f)) + (let ((__tmp134269 |gx[1]#_g134270_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130000 __tmp130508 '14 '#f '#f)) - (let ((__tmp130510 - (cons (cons 'e |gx[1]#_g130511_|) - (cons (cons 'id |gx[1]#_g130512_|) - (cons (cons 'key |gx[1]#_g130513_|) - (cons (cons 'phi |gx[1]#_g130514_|) '())))))) + (##unchecked-structure-set! __obj133761 __tmp134269 '14 '#f '#f)) + (let ((__tmp134271 + (cons (cons 'e |gx[1]#_g134272_|) + (cons (cons 'id |gx[1]#_g134273_|) + (cons (cons 'key |gx[1]#_g134274_|) + (cons (cons 'phi |gx[1]#_g134275_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj130000 __tmp130510 '15 '#f '#f)) - (let ((__tmp130515 - (cons (cons 'e |gx[1]#_g130516_|) - (cons (cons 'id |gx[1]#_g130517_|) - (cons (cons 'key |gx[1]#_g130518_|) - (cons (cons 'phi |gx[1]#_g130519_|) '())))))) + (##unchecked-structure-set! __obj133761 __tmp134271 '15 '#f '#f)) + (let ((__tmp134276 + (cons (cons 'e |gx[1]#_g134277_|) + (cons (cons 'id |gx[1]#_g134278_|) + (cons (cons 'key |gx[1]#_g134279_|) + (cons (cons 'phi |gx[1]#_g134280_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj130000 __tmp130515 '16 '#f '#f)) - (let ((__tmp130520 - (cons (cons 'e |gx[1]#_g130521_|) - (cons (cons 'id |gx[1]#_g130522_|) - (cons (cons 'key |gx[1]#_g130523_|) - (cons (cons 'phi |gx[1]#_g130524_|) '())))))) + (##unchecked-structure-set! __obj133761 __tmp134276 '16 '#f '#f)) + (let ((__tmp134281 + (cons (cons 'e |gx[1]#_g134282_|) + (cons (cons 'id |gx[1]#_g134283_|) + (cons (cons 'key |gx[1]#_g134284_|) + (cons (cons 'phi |gx[1]#_g134285_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj130000 __tmp130520 '17 '#f '#f)) - (let ((__tmp130525 - (cons (cons 'e |gx[1]#_g130526_|) - (cons (cons 'id |gx[1]#_g130527_|) - (cons (cons 'key |gx[1]#_g130528_|) - (cons (cons 'phi |gx[1]#_g130529_|) '())))))) + (##unchecked-structure-set! __obj133761 __tmp134281 '17 '#f '#f)) + (let ((__tmp134286 + (cons (cons 'e |gx[1]#_g134287_|) + (cons (cons 'id |gx[1]#_g134288_|) + (cons (cons 'key |gx[1]#_g134289_|) + (cons (cons 'phi |gx[1]#_g134290_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj130000 __tmp130525 '18 '#f '#f)) + (##unchecked-structure-set! __obj133761 __tmp134286 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130000 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133761 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130000 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133761 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130000 '() '20 '#f '#f)) - __obj130000)) + (##unchecked-structure-set! __obj133761 '() '20 '#f '#f)) + __obj133761)) (define |gx[:0:]#expander| - (let ((__obj130001 + (let ((__obj133762 (let () (declare (not safe)) (##structure @@ -5437,64 +5437,64 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130001 'gx#expander::t '1 '#f '#f)) + (##unchecked-structure-set! __obj133762 'gx#expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130001 'expander '2 '#f '#f)) + (##unchecked-structure-set! __obj133762 'expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130001 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj133762 '(e) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130001 '(e) '6 '#f '#f)) + (##unchecked-structure-set! __obj133762 '(e) '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130001 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj133762 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130001 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133762 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130001 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133762 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130001 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133762 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130001 '#f '11 '#f '#f)) - (let ((__tmp130530 |gx[1]#_g130531_|)) + (##unchecked-structure-set! __obj133762 '#f '12 '#f '#f)) + (let ((__tmp134291 |gx[1]#_g134292_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130001 __tmp130530 '12 '#f '#f)) - (let ((__tmp130532 |gx[1]#_g130533_|)) + (##unchecked-structure-set! __obj133762 __tmp134291 '3 '#f '#f)) + (let ((__tmp134293 |gx[1]#_g134294_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130001 __tmp130532 '13 '#f '#f)) - (let ((__tmp130534 |gx[1]#_g130535_|)) + (##unchecked-structure-set! __obj133762 __tmp134293 '13 '#f '#f)) + (let ((__tmp134295 |gx[1]#_g134296_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130001 __tmp130534 '14 '#f '#f)) - (let ((__tmp130536 (cons (cons 'e |gx[1]#_g130537_|) '()))) + (##unchecked-structure-set! __obj133762 __tmp134295 '14 '#f '#f)) + (let ((__tmp134297 (cons (cons 'e |gx[1]#_g134298_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130001 __tmp130536 '15 '#f '#f)) - (let ((__tmp130538 (cons (cons 'e |gx[1]#_g130539_|) '()))) + (##unchecked-structure-set! __obj133762 __tmp134297 '15 '#f '#f)) + (let ((__tmp134299 (cons (cons 'e |gx[1]#_g134300_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130001 __tmp130538 '16 '#f '#f)) - (let ((__tmp130540 (cons (cons 'e |gx[1]#_g130541_|) '()))) + (##unchecked-structure-set! __obj133762 __tmp134299 '16 '#f '#f)) + (let ((__tmp134301 (cons (cons 'e |gx[1]#_g134302_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130001 __tmp130540 '17 '#f '#f)) - (let ((__tmp130542 (cons (cons 'e |gx[1]#_g130543_|) '()))) + (##unchecked-structure-set! __obj133762 __tmp134301 '17 '#f '#f)) + (let ((__tmp134303 (cons (cons 'e |gx[1]#_g134304_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130001 __tmp130542 '18 '#f '#f)) + (##unchecked-structure-set! __obj133762 __tmp134303 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130001 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133762 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130001 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133762 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130001 '() '20 '#f '#f)) - __obj130001)) + (##unchecked-structure-set! __obj133762 '() '20 '#f '#f)) + __obj133762)) (define |gx[:0:]#core-expander| - (let ((__obj130002 + (let ((__obj133763 (let () (declare (not safe)) (##structure @@ -5523,90 +5523,90 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130002 + __obj133763 'gx#core-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130002 'core-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj133763 'core-expander '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130002 + __obj133763 '(id compile-top) - '4 + '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130002 + __obj133763 '(e id compile-top) - '6 + '7 '#f '#f)) - (let ((__tmp130544 (cons |gx[1]#_g130545_| '()))) + (let ((__tmp134305 (cons |gx[1]#_g134306_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130002 __tmp130544 '3 '#f '#f)) + (##unchecked-structure-set! __obj133763 __tmp134305 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130002 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133763 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130002 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133763 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130002 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133763 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130002 '#f '11 '#f '#f)) - (let ((__tmp130546 |gx[1]#_g130547_|)) + (##unchecked-structure-set! __obj133763 '#f '12 '#f '#f)) + (let ((__tmp134307 |gx[1]#_g134308_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130002 __tmp130546 '12 '#f '#f)) - (let ((__tmp130548 |gx[1]#_g130549_|)) + (##unchecked-structure-set! __obj133763 __tmp134307 '3 '#f '#f)) + (let ((__tmp134309 |gx[1]#_g134310_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130002 __tmp130548 '13 '#f '#f)) - (let ((__tmp130550 |gx[1]#_g130551_|)) + (##unchecked-structure-set! __obj133763 __tmp134309 '13 '#f '#f)) + (let ((__tmp134311 |gx[1]#_g134312_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130002 __tmp130550 '14 '#f '#f)) - (let ((__tmp130552 - (cons (cons 'id |gx[1]#_g130553_|) - (cons (cons 'compile-top |gx[1]#_g130554_|) - (cons (cons 'e |gx[1]#_g130555_|) '()))))) + (##unchecked-structure-set! __obj133763 __tmp134311 '14 '#f '#f)) + (let ((__tmp134313 + (cons (cons 'id |gx[1]#_g134314_|) + (cons (cons 'compile-top |gx[1]#_g134315_|) + (cons (cons 'e |gx[1]#_g134316_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130002 __tmp130552 '15 '#f '#f)) - (let ((__tmp130556 - (cons (cons 'id |gx[1]#_g130557_|) - (cons (cons 'compile-top |gx[1]#_g130558_|) - (cons (cons 'e |gx[1]#_g130559_|) '()))))) + (##unchecked-structure-set! __obj133763 __tmp134313 '15 '#f '#f)) + (let ((__tmp134317 + (cons (cons 'id |gx[1]#_g134318_|) + (cons (cons 'compile-top |gx[1]#_g134319_|) + (cons (cons 'e |gx[1]#_g134320_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130002 __tmp130556 '16 '#f '#f)) - (let ((__tmp130560 - (cons (cons 'id |gx[1]#_g130561_|) - (cons (cons 'compile-top |gx[1]#_g130562_|) - (cons (cons 'e |gx[1]#_g130563_|) '()))))) + (##unchecked-structure-set! __obj133763 __tmp134317 '16 '#f '#f)) + (let ((__tmp134321 + (cons (cons 'id |gx[1]#_g134322_|) + (cons (cons 'compile-top |gx[1]#_g134323_|) + (cons (cons 'e |gx[1]#_g134324_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130002 __tmp130560 '17 '#f '#f)) - (let ((__tmp130564 - (cons (cons 'id |gx[1]#_g130565_|) - (cons (cons 'compile-top |gx[1]#_g130566_|) - (cons (cons 'e |gx[1]#_g130567_|) '()))))) + (##unchecked-structure-set! __obj133763 __tmp134321 '17 '#f '#f)) + (let ((__tmp134325 + (cons (cons 'id |gx[1]#_g134326_|) + (cons (cons 'compile-top |gx[1]#_g134327_|) + (cons (cons 'e |gx[1]#_g134328_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130002 __tmp130564 '18 '#f '#f)) + (##unchecked-structure-set! __obj133763 __tmp134325 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130002 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133763 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130002 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133763 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130002 '() '20 '#f '#f)) - __obj130002)) + (##unchecked-structure-set! __obj133763 '() '20 '#f '#f)) + __obj133763)) (define |gx[:0:]#expression-form| - (let ((__obj130003 + (let ((__obj133764 (let () (declare (not safe)) (##structure @@ -5635,85 +5635,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130003 + __obj133764 'gx#expression-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130003 'expression-form '2 '#f '#f)) + (##unchecked-structure-set! __obj133764 'expression-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130003 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133764 '() '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130003 + __obj133764 '(e id compile-top) - '6 + '7 '#f '#f)) - (let ((__tmp130568 (cons |gx[1]#_g130569_| '()))) + (let ((__tmp134329 (cons |gx[1]#_g134330_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130003 __tmp130568 '3 '#f '#f)) + (##unchecked-structure-set! __obj133764 __tmp134329 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130003 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133764 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130003 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133764 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130003 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133764 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130003 '#f '11 '#f '#f)) - (let ((__tmp130570 |gx[1]#_g130571_|)) + (##unchecked-structure-set! __obj133764 '#f '12 '#f '#f)) + (let ((__tmp134331 |gx[1]#_g134332_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130003 __tmp130570 '12 '#f '#f)) - (let ((__tmp130572 |gx[1]#_g130573_|)) + (##unchecked-structure-set! __obj133764 __tmp134331 '3 '#f '#f)) + (let ((__tmp134333 |gx[1]#_g134334_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130003 __tmp130572 '13 '#f '#f)) - (let ((__tmp130574 |gx[1]#_g130575_|)) + (##unchecked-structure-set! __obj133764 __tmp134333 '13 '#f '#f)) + (let ((__tmp134335 |gx[1]#_g134336_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130003 __tmp130574 '14 '#f '#f)) - (let ((__tmp130576 - (cons (cons 'id |gx[1]#_g130577_|) - (cons (cons 'compile-top |gx[1]#_g130578_|) - (cons (cons 'e |gx[1]#_g130579_|) '()))))) + (##unchecked-structure-set! __obj133764 __tmp134335 '14 '#f '#f)) + (let ((__tmp134337 + (cons (cons 'id |gx[1]#_g134338_|) + (cons (cons 'compile-top |gx[1]#_g134339_|) + (cons (cons 'e |gx[1]#_g134340_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130003 __tmp130576 '15 '#f '#f)) - (let ((__tmp130580 - (cons (cons 'id |gx[1]#_g130581_|) - (cons (cons 'compile-top |gx[1]#_g130582_|) - (cons (cons 'e |gx[1]#_g130583_|) '()))))) + (##unchecked-structure-set! __obj133764 __tmp134337 '15 '#f '#f)) + (let ((__tmp134341 + (cons (cons 'id |gx[1]#_g134342_|) + (cons (cons 'compile-top |gx[1]#_g134343_|) + (cons (cons 'e |gx[1]#_g134344_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130003 __tmp130580 '16 '#f '#f)) - (let ((__tmp130584 - (cons (cons 'id |gx[1]#_g130585_|) - (cons (cons 'compile-top |gx[1]#_g130586_|) - (cons (cons 'e |gx[1]#_g130587_|) '()))))) + (##unchecked-structure-set! __obj133764 __tmp134341 '16 '#f '#f)) + (let ((__tmp134345 + (cons (cons 'id |gx[1]#_g134346_|) + (cons (cons 'compile-top |gx[1]#_g134347_|) + (cons (cons 'e |gx[1]#_g134348_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130003 __tmp130584 '17 '#f '#f)) - (let ((__tmp130588 - (cons (cons 'id |gx[1]#_g130589_|) - (cons (cons 'compile-top |gx[1]#_g130590_|) - (cons (cons 'e |gx[1]#_g130591_|) '()))))) + (##unchecked-structure-set! __obj133764 __tmp134345 '17 '#f '#f)) + (let ((__tmp134349 + (cons (cons 'id |gx[1]#_g134350_|) + (cons (cons 'compile-top |gx[1]#_g134351_|) + (cons (cons 'e |gx[1]#_g134352_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130003 __tmp130588 '18 '#f '#f)) + (##unchecked-structure-set! __obj133764 __tmp134349 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130003 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133764 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130003 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133764 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130003 '() '20 '#f '#f)) - __obj130003)) + (##unchecked-structure-set! __obj133764 '() '20 '#f '#f)) + __obj133764)) (define |gx[:0:]#special-form| - (let ((__obj130004 + (let ((__obj133765 (let () (declare (not safe)) (##structure @@ -5742,85 +5742,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130004 + __obj133765 'gx#special-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130004 'special-form '2 '#f '#f)) + (##unchecked-structure-set! __obj133765 'special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130004 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133765 '() '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130004 + __obj133765 '(e id compile-top) - '6 + '7 '#f '#f)) - (let ((__tmp130592 (cons |gx[1]#_g130569_| '()))) + (let ((__tmp134353 (cons |gx[1]#_g134330_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130004 __tmp130592 '3 '#f '#f)) + (##unchecked-structure-set! __obj133765 __tmp134353 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130004 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133765 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130004 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133765 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130004 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133765 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130004 '#f '11 '#f '#f)) - (let ((__tmp130593 |gx[1]#_g130594_|)) + (##unchecked-structure-set! __obj133765 '#f '12 '#f '#f)) + (let ((__tmp134354 |gx[1]#_g134355_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130004 __tmp130593 '12 '#f '#f)) - (let ((__tmp130595 |gx[1]#_g130596_|)) + (##unchecked-structure-set! __obj133765 __tmp134354 '3 '#f '#f)) + (let ((__tmp134356 |gx[1]#_g134357_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130004 __tmp130595 '13 '#f '#f)) - (let ((__tmp130597 |gx[1]#_g130598_|)) + (##unchecked-structure-set! __obj133765 __tmp134356 '13 '#f '#f)) + (let ((__tmp134358 |gx[1]#_g134359_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130004 __tmp130597 '14 '#f '#f)) - (let ((__tmp130599 - (cons (cons 'id |gx[1]#_g130600_|) - (cons (cons 'compile-top |gx[1]#_g130601_|) - (cons (cons 'e |gx[1]#_g130602_|) '()))))) + (##unchecked-structure-set! __obj133765 __tmp134358 '14 '#f '#f)) + (let ((__tmp134360 + (cons (cons 'id |gx[1]#_g134361_|) + (cons (cons 'compile-top |gx[1]#_g134362_|) + (cons (cons 'e |gx[1]#_g134363_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130004 __tmp130599 '15 '#f '#f)) - (let ((__tmp130603 - (cons (cons 'id |gx[1]#_g130604_|) - (cons (cons 'compile-top |gx[1]#_g130605_|) - (cons (cons 'e |gx[1]#_g130606_|) '()))))) + (##unchecked-structure-set! __obj133765 __tmp134360 '15 '#f '#f)) + (let ((__tmp134364 + (cons (cons 'id |gx[1]#_g134365_|) + (cons (cons 'compile-top |gx[1]#_g134366_|) + (cons (cons 'e |gx[1]#_g134367_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130004 __tmp130603 '16 '#f '#f)) - (let ((__tmp130607 - (cons (cons 'id |gx[1]#_g130608_|) - (cons (cons 'compile-top |gx[1]#_g130609_|) - (cons (cons 'e |gx[1]#_g130610_|) '()))))) + (##unchecked-structure-set! __obj133765 __tmp134364 '16 '#f '#f)) + (let ((__tmp134368 + (cons (cons 'id |gx[1]#_g134369_|) + (cons (cons 'compile-top |gx[1]#_g134370_|) + (cons (cons 'e |gx[1]#_g134371_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130004 __tmp130607 '17 '#f '#f)) - (let ((__tmp130611 - (cons (cons 'id |gx[1]#_g130612_|) - (cons (cons 'compile-top |gx[1]#_g130613_|) - (cons (cons 'e |gx[1]#_g130614_|) '()))))) + (##unchecked-structure-set! __obj133765 __tmp134368 '17 '#f '#f)) + (let ((__tmp134372 + (cons (cons 'id |gx[1]#_g134373_|) + (cons (cons 'compile-top |gx[1]#_g134374_|) + (cons (cons 'e |gx[1]#_g134375_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130004 __tmp130611 '18 '#f '#f)) + (##unchecked-structure-set! __obj133765 __tmp134372 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130004 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133765 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130004 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133765 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130004 '() '20 '#f '#f)) - __obj130004)) + (##unchecked-structure-set! __obj133765 '() '20 '#f '#f)) + __obj133765)) (define |gx[:0:]#definition-form| - (let ((__obj130005 + (let ((__obj133766 (let () (declare (not safe)) (##structure @@ -5849,85 +5849,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130005 + __obj133766 'gx#definition-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130005 'definition-form '2 '#f '#f)) + (##unchecked-structure-set! __obj133766 'definition-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130005 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133766 '() '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130005 + __obj133766 '(e id compile-top) - '6 + '7 '#f '#f)) - (let ((__tmp130615 (cons |gx[1]#_g130616_| '()))) + (let ((__tmp134376 (cons |gx[1]#_g134377_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130005 __tmp130615 '3 '#f '#f)) + (##unchecked-structure-set! __obj133766 __tmp134376 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130005 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133766 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130005 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133766 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130005 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133766 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130005 '#f '11 '#f '#f)) - (let ((__tmp130617 |gx[1]#_g130618_|)) + (##unchecked-structure-set! __obj133766 '#f '12 '#f '#f)) + (let ((__tmp134378 |gx[1]#_g134379_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130005 __tmp130617 '12 '#f '#f)) - (let ((__tmp130619 |gx[1]#_g130620_|)) + (##unchecked-structure-set! __obj133766 __tmp134378 '3 '#f '#f)) + (let ((__tmp134380 |gx[1]#_g134381_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130005 __tmp130619 '13 '#f '#f)) - (let ((__tmp130621 |gx[1]#_g130622_|)) + (##unchecked-structure-set! __obj133766 __tmp134380 '13 '#f '#f)) + (let ((__tmp134382 |gx[1]#_g134383_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130005 __tmp130621 '14 '#f '#f)) - (let ((__tmp130623 - (cons (cons 'id |gx[1]#_g130624_|) - (cons (cons 'compile-top |gx[1]#_g130625_|) - (cons (cons 'e |gx[1]#_g130626_|) '()))))) + (##unchecked-structure-set! __obj133766 __tmp134382 '14 '#f '#f)) + (let ((__tmp134384 + (cons (cons 'id |gx[1]#_g134385_|) + (cons (cons 'compile-top |gx[1]#_g134386_|) + (cons (cons 'e |gx[1]#_g134387_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130005 __tmp130623 '15 '#f '#f)) - (let ((__tmp130627 - (cons (cons 'id |gx[1]#_g130628_|) - (cons (cons 'compile-top |gx[1]#_g130629_|) - (cons (cons 'e |gx[1]#_g130630_|) '()))))) + (##unchecked-structure-set! __obj133766 __tmp134384 '15 '#f '#f)) + (let ((__tmp134388 + (cons (cons 'id |gx[1]#_g134389_|) + (cons (cons 'compile-top |gx[1]#_g134390_|) + (cons (cons 'e |gx[1]#_g134391_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130005 __tmp130627 '16 '#f '#f)) - (let ((__tmp130631 - (cons (cons 'id |gx[1]#_g130632_|) - (cons (cons 'compile-top |gx[1]#_g130633_|) - (cons (cons 'e |gx[1]#_g130634_|) '()))))) + (##unchecked-structure-set! __obj133766 __tmp134388 '16 '#f '#f)) + (let ((__tmp134392 + (cons (cons 'id |gx[1]#_g134393_|) + (cons (cons 'compile-top |gx[1]#_g134394_|) + (cons (cons 'e |gx[1]#_g134395_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130005 __tmp130631 '17 '#f '#f)) - (let ((__tmp130635 - (cons (cons 'id |gx[1]#_g130636_|) - (cons (cons 'compile-top |gx[1]#_g130637_|) - (cons (cons 'e |gx[1]#_g130638_|) '()))))) + (##unchecked-structure-set! __obj133766 __tmp134392 '17 '#f '#f)) + (let ((__tmp134396 + (cons (cons 'id |gx[1]#_g134397_|) + (cons (cons 'compile-top |gx[1]#_g134398_|) + (cons (cons 'e |gx[1]#_g134399_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130005 __tmp130635 '18 '#f '#f)) + (##unchecked-structure-set! __obj133766 __tmp134396 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130005 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133766 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130005 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133766 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130005 '() '20 '#f '#f)) - __obj130005)) + (##unchecked-structure-set! __obj133766 '() '20 '#f '#f)) + __obj133766)) (define |gx[:0:]#top-special-form| - (let ((__obj130006 + (let ((__obj133767 (let () (declare (not safe)) (##structure @@ -5956,7 +5956,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130006 + __obj133767 'gx#top-special-form::t '1 '#f @@ -5964,82 +5964,82 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130006 + __obj133767 'top-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130006 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133767 '() '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130006 + __obj133767 '(e id compile-top) - '6 + '7 '#f '#f)) - (let ((__tmp130639 (cons |gx[1]#_g130616_| '()))) + (let ((__tmp134400 (cons |gx[1]#_g134377_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130006 __tmp130639 '3 '#f '#f)) + (##unchecked-structure-set! __obj133767 __tmp134400 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130006 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133767 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130006 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133767 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130006 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133767 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130006 '#f '11 '#f '#f)) - (let ((__tmp130640 |gx[1]#_g130641_|)) + (##unchecked-structure-set! __obj133767 '#f '12 '#f '#f)) + (let ((__tmp134401 |gx[1]#_g134402_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130006 __tmp130640 '12 '#f '#f)) - (let ((__tmp130642 |gx[1]#_g130643_|)) + (##unchecked-structure-set! __obj133767 __tmp134401 '3 '#f '#f)) + (let ((__tmp134403 |gx[1]#_g134404_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130006 __tmp130642 '13 '#f '#f)) - (let ((__tmp130644 |gx[1]#_g130645_|)) + (##unchecked-structure-set! __obj133767 __tmp134403 '13 '#f '#f)) + (let ((__tmp134405 |gx[1]#_g134406_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130006 __tmp130644 '14 '#f '#f)) - (let ((__tmp130646 - (cons (cons 'id |gx[1]#_g130647_|) - (cons (cons 'compile-top |gx[1]#_g130648_|) - (cons (cons 'e |gx[1]#_g130649_|) '()))))) + (##unchecked-structure-set! __obj133767 __tmp134405 '14 '#f '#f)) + (let ((__tmp134407 + (cons (cons 'id |gx[1]#_g134408_|) + (cons (cons 'compile-top |gx[1]#_g134409_|) + (cons (cons 'e |gx[1]#_g134410_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130006 __tmp130646 '15 '#f '#f)) - (let ((__tmp130650 - (cons (cons 'id |gx[1]#_g130651_|) - (cons (cons 'compile-top |gx[1]#_g130652_|) - (cons (cons 'e |gx[1]#_g130653_|) '()))))) + (##unchecked-structure-set! __obj133767 __tmp134407 '15 '#f '#f)) + (let ((__tmp134411 + (cons (cons 'id |gx[1]#_g134412_|) + (cons (cons 'compile-top |gx[1]#_g134413_|) + (cons (cons 'e |gx[1]#_g134414_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130006 __tmp130650 '16 '#f '#f)) - (let ((__tmp130654 - (cons (cons 'id |gx[1]#_g130655_|) - (cons (cons 'compile-top |gx[1]#_g130656_|) - (cons (cons 'e |gx[1]#_g130657_|) '()))))) + (##unchecked-structure-set! __obj133767 __tmp134411 '16 '#f '#f)) + (let ((__tmp134415 + (cons (cons 'id |gx[1]#_g134416_|) + (cons (cons 'compile-top |gx[1]#_g134417_|) + (cons (cons 'e |gx[1]#_g134418_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130006 __tmp130654 '17 '#f '#f)) - (let ((__tmp130658 - (cons (cons 'id |gx[1]#_g130659_|) - (cons (cons 'compile-top |gx[1]#_g130660_|) - (cons (cons 'e |gx[1]#_g130661_|) '()))))) + (##unchecked-structure-set! __obj133767 __tmp134415 '17 '#f '#f)) + (let ((__tmp134419 + (cons (cons 'id |gx[1]#_g134420_|) + (cons (cons 'compile-top |gx[1]#_g134421_|) + (cons (cons 'e |gx[1]#_g134422_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130006 __tmp130658 '18 '#f '#f)) + (##unchecked-structure-set! __obj133767 __tmp134419 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130006 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133767 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130006 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133767 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130006 '() '20 '#f '#f)) - __obj130006)) + (##unchecked-structure-set! __obj133767 '() '20 '#f '#f)) + __obj133767)) (define |gx[:0:]#module-special-form| - (let ((__obj130007 + (let ((__obj133768 (let () (declare (not safe)) (##structure @@ -6068,7 +6068,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130007 + __obj133768 'gx#module-special-form::t '1 '#f @@ -6076,82 +6076,82 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130007 + __obj133768 'module-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130007 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133768 '() '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130007 + __obj133768 '(e id compile-top) - '6 + '7 '#f '#f)) - (let ((__tmp130662 (cons |gx[1]#_g130663_| '()))) + (let ((__tmp134423 (cons |gx[1]#_g134424_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130007 __tmp130662 '3 '#f '#f)) + (##unchecked-structure-set! __obj133768 __tmp134423 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130007 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133768 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130007 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133768 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130007 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133768 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130007 '#f '11 '#f '#f)) - (let ((__tmp130664 |gx[1]#_g130665_|)) + (##unchecked-structure-set! __obj133768 '#f '12 '#f '#f)) + (let ((__tmp134425 |gx[1]#_g134426_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130007 __tmp130664 '12 '#f '#f)) - (let ((__tmp130666 |gx[1]#_g130667_|)) + (##unchecked-structure-set! __obj133768 __tmp134425 '3 '#f '#f)) + (let ((__tmp134427 |gx[1]#_g134428_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130007 __tmp130666 '13 '#f '#f)) - (let ((__tmp130668 |gx[1]#_g130669_|)) + (##unchecked-structure-set! __obj133768 __tmp134427 '13 '#f '#f)) + (let ((__tmp134429 |gx[1]#_g134430_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130007 __tmp130668 '14 '#f '#f)) - (let ((__tmp130670 - (cons (cons 'id |gx[1]#_g130671_|) - (cons (cons 'compile-top |gx[1]#_g130672_|) - (cons (cons 'e |gx[1]#_g130673_|) '()))))) + (##unchecked-structure-set! __obj133768 __tmp134429 '14 '#f '#f)) + (let ((__tmp134431 + (cons (cons 'id |gx[1]#_g134432_|) + (cons (cons 'compile-top |gx[1]#_g134433_|) + (cons (cons 'e |gx[1]#_g134434_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130007 __tmp130670 '15 '#f '#f)) - (let ((__tmp130674 - (cons (cons 'id |gx[1]#_g130675_|) - (cons (cons 'compile-top |gx[1]#_g130676_|) - (cons (cons 'e |gx[1]#_g130677_|) '()))))) + (##unchecked-structure-set! __obj133768 __tmp134431 '15 '#f '#f)) + (let ((__tmp134435 + (cons (cons 'id |gx[1]#_g134436_|) + (cons (cons 'compile-top |gx[1]#_g134437_|) + (cons (cons 'e |gx[1]#_g134438_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130007 __tmp130674 '16 '#f '#f)) - (let ((__tmp130678 - (cons (cons 'id |gx[1]#_g130679_|) - (cons (cons 'compile-top |gx[1]#_g130680_|) - (cons (cons 'e |gx[1]#_g130681_|) '()))))) + (##unchecked-structure-set! __obj133768 __tmp134435 '16 '#f '#f)) + (let ((__tmp134439 + (cons (cons 'id |gx[1]#_g134440_|) + (cons (cons 'compile-top |gx[1]#_g134441_|) + (cons (cons 'e |gx[1]#_g134442_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130007 __tmp130678 '17 '#f '#f)) - (let ((__tmp130682 - (cons (cons 'id |gx[1]#_g130683_|) - (cons (cons 'compile-top |gx[1]#_g130684_|) - (cons (cons 'e |gx[1]#_g130685_|) '()))))) + (##unchecked-structure-set! __obj133768 __tmp134439 '17 '#f '#f)) + (let ((__tmp134443 + (cons (cons 'id |gx[1]#_g134444_|) + (cons (cons 'compile-top |gx[1]#_g134445_|) + (cons (cons 'e |gx[1]#_g134446_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130007 __tmp130682 '18 '#f '#f)) + (##unchecked-structure-set! __obj133768 __tmp134443 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130007 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133768 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130007 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133768 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130007 '() '20 '#f '#f)) - __obj130007)) + (##unchecked-structure-set! __obj133768 '() '20 '#f '#f)) + __obj133768)) (define |gx[:0:]#feature-expander| - (let ((__obj130008 + (let ((__obj133769 (let () (declare (not safe)) (##structure @@ -6180,7 +6180,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130008 + __obj133769 'gx#feature-expander::t '1 '#f @@ -6188,65 +6188,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130008 + __obj133769 'feature-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130008 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133769 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130008 '(e) '6 '#f '#f)) - (let ((__tmp130686 (cons |gx[1]#_g130545_| '()))) + (##unchecked-structure-set! __obj133769 '(e) '7 '#f '#f)) + (let ((__tmp134447 (cons |gx[1]#_g134306_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130008 __tmp130686 '3 '#f '#f)) + (##unchecked-structure-set! __obj133769 __tmp134447 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130008 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133769 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130008 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133769 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130008 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133769 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130008 '#f '11 '#f '#f)) - (let ((__tmp130687 |gx[1]#_g130688_|)) + (##unchecked-structure-set! __obj133769 '#f '12 '#f '#f)) + (let ((__tmp134448 |gx[1]#_g134449_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130008 __tmp130687 '12 '#f '#f)) - (let ((__tmp130689 |gx[1]#_g130690_|)) + (##unchecked-structure-set! __obj133769 __tmp134448 '3 '#f '#f)) + (let ((__tmp134450 |gx[1]#_g134451_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130008 __tmp130689 '13 '#f '#f)) - (let ((__tmp130691 |gx[1]#_g130692_|)) + (##unchecked-structure-set! __obj133769 __tmp134450 '13 '#f '#f)) + (let ((__tmp134452 |gx[1]#_g134453_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130008 __tmp130691 '14 '#f '#f)) - (let ((__tmp130693 (cons (cons 'e |gx[1]#_g130694_|) '()))) + (##unchecked-structure-set! __obj133769 __tmp134452 '14 '#f '#f)) + (let ((__tmp134454 (cons (cons 'e |gx[1]#_g134455_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130008 __tmp130693 '15 '#f '#f)) - (let ((__tmp130695 (cons (cons 'e |gx[1]#_g130696_|) '()))) + (##unchecked-structure-set! __obj133769 __tmp134454 '15 '#f '#f)) + (let ((__tmp134456 (cons (cons 'e |gx[1]#_g134457_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130008 __tmp130695 '16 '#f '#f)) - (let ((__tmp130697 (cons (cons 'e |gx[1]#_g130698_|) '()))) + (##unchecked-structure-set! __obj133769 __tmp134456 '16 '#f '#f)) + (let ((__tmp134458 (cons (cons 'e |gx[1]#_g134459_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130008 __tmp130697 '17 '#f '#f)) - (let ((__tmp130699 (cons (cons 'e |gx[1]#_g130700_|) '()))) + (##unchecked-structure-set! __obj133769 __tmp134458 '17 '#f '#f)) + (let ((__tmp134460 (cons (cons 'e |gx[1]#_g134461_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130008 __tmp130699 '18 '#f '#f)) + (##unchecked-structure-set! __obj133769 __tmp134460 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130008 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133769 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130008 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133769 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130008 '() '20 '#f '#f)) - __obj130008)) + (##unchecked-structure-set! __obj133769 '() '20 '#f '#f)) + __obj133769)) (define |gx[:0:]#private-feature-expander| - (let ((__obj130009 + (let ((__obj133770 (let () (declare (not safe)) (##structure @@ -6275,7 +6275,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130009 + __obj133770 'gx#private-feature-expander::t '1 '#f @@ -6283,65 +6283,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130009 + __obj133770 'private-feature-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130009 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133770 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130009 '(e) '6 '#f '#f)) - (let ((__tmp130701 (cons |gx[1]#_g130702_| '()))) + (##unchecked-structure-set! __obj133770 '(e) '7 '#f '#f)) + (let ((__tmp134462 (cons |gx[1]#_g134463_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130009 __tmp130701 '3 '#f '#f)) + (##unchecked-structure-set! __obj133770 __tmp134462 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130009 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133770 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130009 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133770 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130009 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133770 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130009 '#f '11 '#f '#f)) - (let ((__tmp130703 |gx[1]#_g130704_|)) + (##unchecked-structure-set! __obj133770 '#f '12 '#f '#f)) + (let ((__tmp134464 |gx[1]#_g134465_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130009 __tmp130703 '12 '#f '#f)) - (let ((__tmp130705 |gx[1]#_g130706_|)) + (##unchecked-structure-set! __obj133770 __tmp134464 '3 '#f '#f)) + (let ((__tmp134466 |gx[1]#_g134467_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130009 __tmp130705 '13 '#f '#f)) - (let ((__tmp130707 |gx[1]#_g130708_|)) + (##unchecked-structure-set! __obj133770 __tmp134466 '13 '#f '#f)) + (let ((__tmp134468 |gx[1]#_g134469_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130009 __tmp130707 '14 '#f '#f)) - (let ((__tmp130709 (cons (cons 'e |gx[1]#_g130710_|) '()))) + (##unchecked-structure-set! __obj133770 __tmp134468 '14 '#f '#f)) + (let ((__tmp134470 (cons (cons 'e |gx[1]#_g134471_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130009 __tmp130709 '15 '#f '#f)) - (let ((__tmp130711 (cons (cons 'e |gx[1]#_g130712_|) '()))) + (##unchecked-structure-set! __obj133770 __tmp134470 '15 '#f '#f)) + (let ((__tmp134472 (cons (cons 'e |gx[1]#_g134473_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130009 __tmp130711 '16 '#f '#f)) - (let ((__tmp130713 (cons (cons 'e |gx[1]#_g130714_|) '()))) + (##unchecked-structure-set! __obj133770 __tmp134472 '16 '#f '#f)) + (let ((__tmp134474 (cons (cons 'e |gx[1]#_g134475_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130009 __tmp130713 '17 '#f '#f)) - (let ((__tmp130715 (cons (cons 'e |gx[1]#_g130716_|) '()))) + (##unchecked-structure-set! __obj133770 __tmp134474 '17 '#f '#f)) + (let ((__tmp134476 (cons (cons 'e |gx[1]#_g134477_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130009 __tmp130715 '18 '#f '#f)) + (##unchecked-structure-set! __obj133770 __tmp134476 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130009 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133770 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130009 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133770 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130009 '() '20 '#f '#f)) - __obj130009)) + (##unchecked-structure-set! __obj133770 '() '20 '#f '#f)) + __obj133770)) (define |gx[:0:]#reserved-expander| - (let ((__obj130010 + (let ((__obj133771 (let () (declare (not safe)) (##structure @@ -6370,7 +6370,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130010 + __obj133771 'gx#reserved-expander::t '1 '#f @@ -6378,65 +6378,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130010 + __obj133771 'reserved-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130010 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133771 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130010 '(e) '6 '#f '#f)) - (let ((__tmp130717 (cons |gx[1]#_g130545_| '()))) + (##unchecked-structure-set! __obj133771 '(e) '7 '#f '#f)) + (let ((__tmp134478 (cons |gx[1]#_g134306_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130010 __tmp130717 '3 '#f '#f)) + (##unchecked-structure-set! __obj133771 __tmp134478 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130010 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133771 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130010 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133771 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130010 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133771 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130010 '#f '11 '#f '#f)) - (let ((__tmp130718 |gx[1]#_g130719_|)) + (##unchecked-structure-set! __obj133771 '#f '12 '#f '#f)) + (let ((__tmp134479 |gx[1]#_g134480_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130010 __tmp130718 '12 '#f '#f)) - (let ((__tmp130720 |gx[1]#_g130721_|)) + (##unchecked-structure-set! __obj133771 __tmp134479 '3 '#f '#f)) + (let ((__tmp134481 |gx[1]#_g134482_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130010 __tmp130720 '13 '#f '#f)) - (let ((__tmp130722 |gx[1]#_g130723_|)) + (##unchecked-structure-set! __obj133771 __tmp134481 '13 '#f '#f)) + (let ((__tmp134483 |gx[1]#_g134484_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130010 __tmp130722 '14 '#f '#f)) - (let ((__tmp130724 (cons (cons 'e |gx[1]#_g130725_|) '()))) + (##unchecked-structure-set! __obj133771 __tmp134483 '14 '#f '#f)) + (let ((__tmp134485 (cons (cons 'e |gx[1]#_g134486_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130010 __tmp130724 '15 '#f '#f)) - (let ((__tmp130726 (cons (cons 'e |gx[1]#_g130727_|) '()))) + (##unchecked-structure-set! __obj133771 __tmp134485 '15 '#f '#f)) + (let ((__tmp134487 (cons (cons 'e |gx[1]#_g134488_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130010 __tmp130726 '16 '#f '#f)) - (let ((__tmp130728 (cons (cons 'e |gx[1]#_g130729_|) '()))) + (##unchecked-structure-set! __obj133771 __tmp134487 '16 '#f '#f)) + (let ((__tmp134489 (cons (cons 'e |gx[1]#_g134490_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130010 __tmp130728 '17 '#f '#f)) - (let ((__tmp130730 (cons (cons 'e |gx[1]#_g130731_|) '()))) + (##unchecked-structure-set! __obj133771 __tmp134489 '17 '#f '#f)) + (let ((__tmp134491 (cons (cons 'e |gx[1]#_g134492_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130010 __tmp130730 '18 '#f '#f)) + (##unchecked-structure-set! __obj133771 __tmp134491 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130010 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133771 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130010 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133771 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130010 '() '20 '#f '#f)) - __obj130010)) + (##unchecked-structure-set! __obj133771 '() '20 '#f '#f)) + __obj133771)) (define |gx[:0:]#macro-expander| - (let ((__obj130011 + (let ((__obj133772 (let () (declare (not safe)) (##structure @@ -6465,68 +6465,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130011 + __obj133772 'gx#macro-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130011 'macro-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj133772 'macro-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130011 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133772 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130011 '(e) '6 '#f '#f)) - (let ((__tmp130732 (cons |gx[1]#_g130545_| '()))) + (##unchecked-structure-set! __obj133772 '(e) '7 '#f '#f)) + (let ((__tmp134493 (cons |gx[1]#_g134306_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130011 __tmp130732 '3 '#f '#f)) + (##unchecked-structure-set! __obj133772 __tmp134493 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130011 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133772 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130011 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133772 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130011 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133772 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130011 '#f '11 '#f '#f)) - (let ((__tmp130733 |gx[1]#_g130734_|)) + (##unchecked-structure-set! __obj133772 '#f '12 '#f '#f)) + (let ((__tmp134494 |gx[1]#_g134495_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130011 __tmp130733 '12 '#f '#f)) - (let ((__tmp130735 |gx[1]#_g130736_|)) + (##unchecked-structure-set! __obj133772 __tmp134494 '3 '#f '#f)) + (let ((__tmp134496 |gx[1]#_g134497_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130011 __tmp130735 '13 '#f '#f)) - (let ((__tmp130737 |gx[1]#_g130738_|)) + (##unchecked-structure-set! __obj133772 __tmp134496 '13 '#f '#f)) + (let ((__tmp134498 |gx[1]#_g134499_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130011 __tmp130737 '14 '#f '#f)) - (let ((__tmp130739 (cons (cons 'e |gx[1]#_g130740_|) '()))) + (##unchecked-structure-set! __obj133772 __tmp134498 '14 '#f '#f)) + (let ((__tmp134500 (cons (cons 'e |gx[1]#_g134501_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130011 __tmp130739 '15 '#f '#f)) - (let ((__tmp130741 (cons (cons 'e |gx[1]#_g130742_|) '()))) + (##unchecked-structure-set! __obj133772 __tmp134500 '15 '#f '#f)) + (let ((__tmp134502 (cons (cons 'e |gx[1]#_g134503_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130011 __tmp130741 '16 '#f '#f)) - (let ((__tmp130743 (cons (cons 'e |gx[1]#_g130744_|) '()))) + (##unchecked-structure-set! __obj133772 __tmp134502 '16 '#f '#f)) + (let ((__tmp134504 (cons (cons 'e |gx[1]#_g134505_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130011 __tmp130743 '17 '#f '#f)) - (let ((__tmp130745 (cons (cons 'e |gx[1]#_g130746_|) '()))) + (##unchecked-structure-set! __obj133772 __tmp134504 '17 '#f '#f)) + (let ((__tmp134506 (cons (cons 'e |gx[1]#_g134507_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130011 __tmp130745 '18 '#f '#f)) + (##unchecked-structure-set! __obj133772 __tmp134506 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130011 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133772 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130011 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133772 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130011 '() '20 '#f '#f)) - __obj130011)) + (##unchecked-structure-set! __obj133772 '() '20 '#f '#f)) + __obj133772)) (define |gx[:0:]#rename-macro-expander| - (let ((__obj130012 + (let ((__obj133773 (let () (declare (not safe)) (##structure @@ -6555,7 +6555,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130012 + __obj133773 'gx#rename-macro-expander::t '1 '#f @@ -6563,65 +6563,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130012 + __obj133773 'rename-macro-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130012 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj133773 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130012 '(e) '6 '#f '#f)) - (let ((__tmp130747 (cons |gx[1]#_g130748_| '()))) + (##unchecked-structure-set! __obj133773 '(e) '7 '#f '#f)) + (let ((__tmp134508 (cons |gx[1]#_g134509_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130012 __tmp130747 '3 '#f '#f)) + (##unchecked-structure-set! __obj133773 __tmp134508 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130012 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133773 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130012 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133773 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130012 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133773 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130012 '#f '11 '#f '#f)) - (let ((__tmp130749 |gx[1]#_g130750_|)) + (##unchecked-structure-set! __obj133773 '#f '12 '#f '#f)) + (let ((__tmp134510 |gx[1]#_g134511_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130012 __tmp130749 '12 '#f '#f)) - (let ((__tmp130751 |gx[1]#_g130752_|)) + (##unchecked-structure-set! __obj133773 __tmp134510 '3 '#f '#f)) + (let ((__tmp134512 |gx[1]#_g134513_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130012 __tmp130751 '13 '#f '#f)) - (let ((__tmp130753 |gx[1]#_g130754_|)) + (##unchecked-structure-set! __obj133773 __tmp134512 '13 '#f '#f)) + (let ((__tmp134514 |gx[1]#_g134515_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130012 __tmp130753 '14 '#f '#f)) - (let ((__tmp130755 (cons (cons 'e |gx[1]#_g130756_|) '()))) + (##unchecked-structure-set! __obj133773 __tmp134514 '14 '#f '#f)) + (let ((__tmp134516 (cons (cons 'e |gx[1]#_g134517_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130012 __tmp130755 '15 '#f '#f)) - (let ((__tmp130757 (cons (cons 'e |gx[1]#_g130758_|) '()))) + (##unchecked-structure-set! __obj133773 __tmp134516 '15 '#f '#f)) + (let ((__tmp134518 (cons (cons 'e |gx[1]#_g134519_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130012 __tmp130757 '16 '#f '#f)) - (let ((__tmp130759 (cons (cons 'e |gx[1]#_g130760_|) '()))) + (##unchecked-structure-set! __obj133773 __tmp134518 '16 '#f '#f)) + (let ((__tmp134520 (cons (cons 'e |gx[1]#_g134521_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130012 __tmp130759 '17 '#f '#f)) - (let ((__tmp130761 (cons (cons 'e |gx[1]#_g130762_|) '()))) + (##unchecked-structure-set! __obj133773 __tmp134520 '17 '#f '#f)) + (let ((__tmp134522 (cons (cons 'e |gx[1]#_g134523_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130012 __tmp130761 '18 '#f '#f)) + (##unchecked-structure-set! __obj133773 __tmp134522 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130012 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133773 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130012 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133773 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130012 '() '20 '#f '#f)) - __obj130012)) + (##unchecked-structure-set! __obj133773 '() '20 '#f '#f)) + __obj133773)) (define |gx[:0:]#user-expander| - (let ((__obj130013 + (let ((__obj133774 (let () (declare (not safe)) (##structure @@ -6650,80 +6650,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130013 + __obj133774 'gx#user-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130013 'user-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj133774 'user-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130013 '(context phi) '4 '#f '#f)) + (##unchecked-structure-set! __obj133774 '(context phi) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130013 '(e context phi) '6 '#f '#f)) - (let ((__tmp130763 (cons |gx[1]#_g130748_| '()))) + (##unchecked-structure-set! __obj133774 '(e context phi) '7 '#f '#f)) + (let ((__tmp134524 (cons |gx[1]#_g134509_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj130013 __tmp130763 '3 '#f '#f)) + (##unchecked-structure-set! __obj133774 __tmp134524 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130013 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133774 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130013 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133774 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130013 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133774 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130013 '#f '11 '#f '#f)) - (let ((__tmp130764 |gx[1]#_g130765_|)) + (##unchecked-structure-set! __obj133774 '#f '12 '#f '#f)) + (let ((__tmp134525 |gx[1]#_g134526_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130013 __tmp130764 '12 '#f '#f)) - (let ((__tmp130766 |gx[1]#_g130767_|)) + (##unchecked-structure-set! __obj133774 __tmp134525 '3 '#f '#f)) + (let ((__tmp134527 |gx[1]#_g134528_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130013 __tmp130766 '13 '#f '#f)) - (let ((__tmp130768 |gx[1]#_g130769_|)) + (##unchecked-structure-set! __obj133774 __tmp134527 '13 '#f '#f)) + (let ((__tmp134529 |gx[1]#_g134530_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130013 __tmp130768 '14 '#f '#f)) - (let ((__tmp130770 - (cons (cons 'context |gx[1]#_g130771_|) - (cons (cons 'phi |gx[1]#_g130772_|) - (cons (cons 'e |gx[1]#_g130773_|) '()))))) + (##unchecked-structure-set! __obj133774 __tmp134529 '14 '#f '#f)) + (let ((__tmp134531 + (cons (cons 'context |gx[1]#_g134532_|) + (cons (cons 'phi |gx[1]#_g134533_|) + (cons (cons 'e |gx[1]#_g134534_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130013 __tmp130770 '15 '#f '#f)) - (let ((__tmp130774 - (cons (cons 'context |gx[1]#_g130775_|) - (cons (cons 'phi |gx[1]#_g130776_|) - (cons (cons 'e |gx[1]#_g130777_|) '()))))) + (##unchecked-structure-set! __obj133774 __tmp134531 '15 '#f '#f)) + (let ((__tmp134535 + (cons (cons 'context |gx[1]#_g134536_|) + (cons (cons 'phi |gx[1]#_g134537_|) + (cons (cons 'e |gx[1]#_g134538_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130013 __tmp130774 '16 '#f '#f)) - (let ((__tmp130778 - (cons (cons 'context |gx[1]#_g130779_|) - (cons (cons 'phi |gx[1]#_g130780_|) - (cons (cons 'e |gx[1]#_g130781_|) '()))))) + (##unchecked-structure-set! __obj133774 __tmp134535 '16 '#f '#f)) + (let ((__tmp134539 + (cons (cons 'context |gx[1]#_g134540_|) + (cons (cons 'phi |gx[1]#_g134541_|) + (cons (cons 'e |gx[1]#_g134542_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130013 __tmp130778 '17 '#f '#f)) - (let ((__tmp130782 - (cons (cons 'context |gx[1]#_g130783_|) - (cons (cons 'phi |gx[1]#_g130784_|) - (cons (cons 'e |gx[1]#_g130785_|) '()))))) + (##unchecked-structure-set! __obj133774 __tmp134539 '17 '#f '#f)) + (let ((__tmp134543 + (cons (cons 'context |gx[1]#_g134544_|) + (cons (cons 'phi |gx[1]#_g134545_|) + (cons (cons 'e |gx[1]#_g134546_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj130013 __tmp130782 '18 '#f '#f)) + (##unchecked-structure-set! __obj133774 __tmp134543 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130013 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133774 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130013 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133774 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130013 '() '20 '#f '#f)) - __obj130013)) + (##unchecked-structure-set! __obj133774 '() '20 '#f '#f)) + __obj133774)) (define |gx[:0:]#expander-mark| - (let ((__obj130014 + (let ((__obj133775 (let () (declare (not safe)) (##structure @@ -6752,93 +6752,93 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130014 + __obj133775 'gx#expander-mark::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130014 'expander-mark '2 '#f '#f)) + (##unchecked-structure-set! __obj133775 'expander-mark '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130014 + __obj133775 '(subst context phi trace) - '4 + '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130014 + __obj133775 '(subst context phi trace) - '6 + '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130014 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj133775 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130014 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133775 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130014 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133775 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130014 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133775 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130014 '#f '11 '#f '#f)) - (let ((__tmp130786 |gx[1]#_g130787_|)) + (##unchecked-structure-set! __obj133775 '#f '12 '#f '#f)) + (let ((__tmp134547 |gx[1]#_g134548_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130014 __tmp130786 '12 '#f '#f)) - (let ((__tmp130788 |gx[1]#_g130789_|)) + (##unchecked-structure-set! __obj133775 __tmp134547 '3 '#f '#f)) + (let ((__tmp134549 |gx[1]#_g134550_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130014 __tmp130788 '13 '#f '#f)) - (let ((__tmp130790 |gx[1]#_g130791_|)) + (##unchecked-structure-set! __obj133775 __tmp134549 '13 '#f '#f)) + (let ((__tmp134551 |gx[1]#_g134552_|)) (declare (not safe)) - (##unchecked-structure-set! __obj130014 __tmp130790 '14 '#f '#f)) - (let ((__tmp130792 - (cons (cons 'subst |gx[1]#_g130793_|) - (cons (cons 'context |gx[1]#_g130794_|) - (cons (cons 'phi |gx[1]#_g130795_|) - (cons (cons 'trace |gx[1]#_g130796_|) + (##unchecked-structure-set! __obj133775 __tmp134551 '14 '#f '#f)) + (let ((__tmp134553 + (cons (cons 'subst |gx[1]#_g134554_|) + (cons (cons 'context |gx[1]#_g134555_|) + (cons (cons 'phi |gx[1]#_g134556_|) + (cons (cons 'trace |gx[1]#_g134557_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj130014 __tmp130792 '15 '#f '#f)) - (let ((__tmp130797 - (cons (cons 'subst |gx[1]#_g130798_|) - (cons (cons 'context |gx[1]#_g130799_|) - (cons (cons 'phi |gx[1]#_g130800_|) - (cons (cons 'trace |gx[1]#_g130801_|) + (##unchecked-structure-set! __obj133775 __tmp134553 '15 '#f '#f)) + (let ((__tmp134558 + (cons (cons 'subst |gx[1]#_g134559_|) + (cons (cons 'context |gx[1]#_g134560_|) + (cons (cons 'phi |gx[1]#_g134561_|) + (cons (cons 'trace |gx[1]#_g134562_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj130014 __tmp130797 '16 '#f '#f)) - (let ((__tmp130802 - (cons (cons 'subst |gx[1]#_g130803_|) - (cons (cons 'context |gx[1]#_g130804_|) - (cons (cons 'phi |gx[1]#_g130805_|) - (cons (cons 'trace |gx[1]#_g130806_|) + (##unchecked-structure-set! __obj133775 __tmp134558 '16 '#f '#f)) + (let ((__tmp134563 + (cons (cons 'subst |gx[1]#_g134564_|) + (cons (cons 'context |gx[1]#_g134565_|) + (cons (cons 'phi |gx[1]#_g134566_|) + (cons (cons 'trace |gx[1]#_g134567_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj130014 __tmp130802 '17 '#f '#f)) - (let ((__tmp130807 - (cons (cons 'subst |gx[1]#_g130808_|) - (cons (cons 'context |gx[1]#_g130809_|) - (cons (cons 'phi |gx[1]#_g130810_|) - (cons (cons 'trace |gx[1]#_g130811_|) + (##unchecked-structure-set! __obj133775 __tmp134563 '17 '#f '#f)) + (let ((__tmp134568 + (cons (cons 'subst |gx[1]#_g134569_|) + (cons (cons 'context |gx[1]#_g134570_|) + (cons (cons 'phi |gx[1]#_g134571_|) + (cons (cons 'trace |gx[1]#_g134572_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj130014 __tmp130807 '18 '#f '#f)) + (##unchecked-structure-set! __obj133775 __tmp134568 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130014 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133775 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130014 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133775 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj130014 '() '20 '#f '#f)) - __obj130014)))) + (##unchecked-structure-set! __obj133775 '() '20 '#f '#f)) + __obj133775)))) diff --git a/src/bootstrap/gerbil/expander/init~0.scm b/src/bootstrap/gerbil/expander/init~0.scm index ec3e722ef6..23238fddf1 100644 --- a/src/bootstrap/gerbil/expander/init~0.scm +++ b/src/bootstrap/gerbil/expander/init~0.scm @@ -1,18 +1,18 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/init::timestamp 1756721296) + (define gerbil/expander/init::timestamp 1769384629) (begin - (let ((__tmp141736 - (let ((__obj141734 + (let ((__tmp145488 + (let ((__obj145486 (let () (declare (not safe)) (##structure gx#top-context::t '#f '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gx#top-context:::init!__0 __obj141734)) - __obj141734))) + (gx#top-context:::init!__0 __obj145486)) + __obj145486))) (declare (not safe)) - (gx#current-expander-context __tmp141736)) + (gx#current-expander-context __tmp145488)) (let () (declare (not safe)) (gx#current-expander-module-import gx#core-import-module)) @@ -21,8 +21,8 @@ (gx#current-expander-module-eval gx#core-eval-module)) (let () (declare (not safe)) (gx#current-expander-compile __compile-top)) (let () (declare (not safe)) (gx#current-expander-eval ##eval)) - (let ((__tmp141737 - (let ((__obj141735 + (let ((__tmp145489 + (let ((__obj145487 (let () (declare (not safe)) (##structure @@ -37,7 +37,7 @@ '#f)))) (let () (declare (not safe)) - (gx#prelude-context:::init!__0 __obj141735 '#f)) - __obj141735))) + (gx#prelude-context:::init!__0 __obj145487 '#f)) + __obj145487))) (declare (not safe)) - (gx#core-bind-root-syntax!__% ': __tmp141737 '#t)))) + (gx#core-bind-root-syntax!__% ': __tmp145489 '#t)))) diff --git a/src/bootstrap/gerbil/expander/module.ssxi.ss b/src/bootstrap/gerbil/expander/module.ssxi.ss index f4d5151847..302b025f7c 100644 --- a/src/bootstrap/gerbil/expander/module.ssxi.ss +++ b/src/bootstrap/gerbil/expander/module.ssxi.ss @@ -224,10 +224,8 @@ package: gerbil/expander #f #f #f - ((:init! . gx#import-expander:::init!) - (apply-import-expander - . - gx#import-expander::apply-import-expander)))) + ((apply-import-expander . gx#import-expander::apply-import-expander) + (:init! . gx#import-expander:::init!)))) (declare-type gx#import-expander::t (optimizer-resolve-class '(typedecl gx#import-expander::t) 'class::t)) @@ -281,10 +279,8 @@ package: gerbil/expander #f #f #f - ((:init! . gx#export-expander:::init!) - (apply-export-expander - . - gx#export-expander::apply-export-expander)))) + ((apply-export-expander . gx#export-expander::apply-export-expander) + (:init! . gx#export-expander:::init!)))) (declare-type gx#export-expander::t (optimizer-resolve-class '(typedecl gx#export-expander::t) 'class::t)) @@ -596,7 +592,7 @@ package: gerbil/expander #f signature: (return: - t::t + builtin::t effect: #f arguments: @@ -1040,7 +1036,7 @@ package: gerbil/expander #f signature: (return: - t::t + builtin::t effect: #f arguments: diff --git a/src/bootstrap/gerbil/expander/module~0.scm b/src/bootstrap/gerbil/expander/module~0.scm index 3960e112e3..36ecd3cb53 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 1756721296) + (define gerbil/expander/module::timestamp 1769384629) (begin (declare (not safe)) (define gx#__module-registry @@ -31,13 +31,12 @@ 'module-import (list) '(source name phi weak?) - (cons (cons 'struct: '#t) - (cons (cons 'final: '#t) '((print: source name phi weak?)))) + (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())) '#f)) (define gx#module-import? (__make-class-predicate gx#module-import::t)) (define gx#make-module-import - (lambda _%$args137450%_ - (apply make-instance gx#module-import::t _%$args137450%_))) + (lambda _%$args141205%_ + (apply make-instance gx#module-import::t _%$args141205%_))) (define gx#module-import-source (__make-class-slot-accessor gx#module-import::t 'source)) (define gx#module-import-name @@ -76,13 +75,12 @@ 'module-export (list) '(context key phi name weak?) - (cons (cons 'struct: '#t) - (cons (cons 'final: '#t) '((transparent: . #t)))) + (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())) '#f)) (define gx#module-export? (__make-class-predicate gx#module-export::t)) (define gx#make-module-export - (lambda _%$args137447%_ - (apply make-instance gx#module-export::t _%$args137447%_))) + (lambda _%$args141202%_ + (apply make-instance gx#module-export::t _%$args141202%_))) (define gx#module-export-context (__make-class-slot-accessor gx#module-export::t 'context)) (define gx#module-export-key @@ -129,13 +127,12 @@ 'import-set (list) '(source phi imports) - (cons (cons 'struct: '#t) - (cons (cons 'final: '#t) '((print: source phi)))) + (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())) '#f)) (define gx#import-set? (__make-class-predicate gx#import-set::t)) (define gx#make-import-set - (lambda _%$args137444%_ - (apply make-instance gx#import-set::t _%$args137444%_))) + (lambda _%$args141199%_ + (apply make-instance gx#import-set::t _%$args141199%_))) (define gx#import-set-source (__make-class-slot-accessor gx#import-set::t 'source)) (define gx#import-set-phi @@ -166,13 +163,12 @@ 'export-set (list) '(source phi exports) - (cons (cons 'struct: '#t) - (cons (cons 'final: '#t) '((print: source phi)))) + (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())) '#f)) (define gx#export-set? (__make-class-predicate gx#export-set::t)) (define gx#make-export-set - (lambda _%$args137441%_ - (apply make-instance gx#export-set::t _%$args137441%_))) + (lambda _%$args141196%_ + (apply make-instance gx#export-set::t _%$args141196%_))) (define gx#export-set-source (__make-class-slot-accessor gx#export-set::t 'source)) (define gx#export-set-phi @@ -207,8 +203,8 @@ ':init!)) (define gx#import-expander? (__make-class-predicate gx#import-expander::t)) (define gx#make-import-expander - (lambda _%$args137438%_ - (apply make-instance gx#import-expander::t _%$args137438%_))) + (lambda _%$args141193%_ + (apply make-instance gx#import-expander::t _%$args141193%_))) (define gx#import-expander-context (__make-class-slot-accessor gx#import-expander::t 'context)) (define gx#import-expander-phi @@ -243,8 +239,8 @@ ':init!)) (define gx#export-expander? (__make-class-predicate gx#export-expander::t)) (define gx#make-export-expander - (lambda _%$args137435%_ - (apply make-instance gx#export-expander::t _%$args137435%_))) + (lambda _%$args141190%_ + (apply make-instance gx#export-expander::t _%$args141190%_))) (define gx#export-expander-context (__make-class-slot-accessor gx#export-expander::t 'context)) (define gx#export-expander-phi @@ -280,8 +276,8 @@ (define gx#import-export-expander? (__make-class-predicate gx#import-export-expander::t)) (define gx#make-import-export-expander - (lambda _%$args137432%_ - (apply make-instance gx#import-export-expander::t _%$args137432%_))) + (lambda _%$args141187%_ + (apply make-instance gx#import-export-expander::t _%$args141187%_))) (define gx#import-export-expander-context (__make-class-slot-accessor gx#import-export-expander::t 'context)) (define gx#import-export-expander-phi @@ -316,249 +312,249 @@ (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 (_%path137429%_ _%fun137430%_) + (lambda (_%path141184%_ _%fun141185%_) (call-with-input-file - (cons 'path: (cons _%path137429%_ gx#source-file-settings)) - _%fun137430%_))) + (cons 'path: (cons _%path141184%_ gx#source-file-settings)) + _%fun141185%_))) (define gx#module-context:::init! - (lambda (_%self137412%_ - _%id137413%_ - _%super137414%_ - _%ns137415%_ - _%path137416%_) - (let ((_%self137419%_ _%self137412%_)) - (if (##fx< '11 (##structure-length _%self137419%_)) + (lambda (_%self141167%_ + _%id141168%_ + _%super141169%_ + _%ns141170%_ + _%path141171%_) + (let ((_%self141174%_ _%self141167%_)) + (if (##fx< '11 (##structure-length _%self141174%_)) (begin (##unchecked-structure-set! - _%self137419%_ - _%id137413%_ + _%self141174%_ + _%id141168%_ '1 '#f '#f) (##unchecked-structure-set! - _%self137419%_ + _%self141174%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self137419%_ - _%super137414%_ + _%self141174%_ + _%super141169%_ '3 '#f '#f) - (##unchecked-structure-set! _%self137419%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self137419%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self141174%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self141174%_ '#f '5 '#f '#f) (##unchecked-structure-set! - _%self137419%_ - _%ns137415%_ + _%self141174%_ + _%ns141170%_ '6 '#f '#f) (##unchecked-structure-set! - _%self137419%_ - _%path137416%_ + _%self141174%_ + _%path141171%_ '7 '#f '#f) - (##unchecked-structure-set! _%self137419%_ '() '8 '#f '#f) - (##unchecked-structure-set! _%self137419%_ '() '9 '#f '#f) - (##unchecked-structure-set! _%self137419%_ '#f '10 '#f '#f) - (##unchecked-structure-set! _%self137419%_ '#f '11 '#f '#f) + (##unchecked-structure-set! _%self141174%_ '() '8 '#f '#f) + (##unchecked-structure-set! _%self141174%_ '() '9 '#f '#f) + (##unchecked-structure-set! _%self141174%_ '#f '10 '#f '#f) + (##unchecked-structure-set! _%self141174%_ '#f '11 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self137419%_ + _%self141174%_ '11 - (##structure-length _%self137419%_)))))) + (##structure-length _%self141174%_)))))) (__bind-method!__% gx#module-context::t ':init! gx#module-context:::init! '#f) (define gx#prelude-context:::init!__% - (lambda (_%self137245%_ _%ctx137246%_ _%root137247%_) - (let* ((_%self137250%_ _%self137245%_) - (_%super137266%_ - (let ((_%$e137260%_ _%root137247%_)) - (if _%$e137260%_ - _%$e137260%_ - (let ((_%$e137263%_ (gx#core-context-root__0))) - (if _%$e137263%_ - _%$e137263%_ - (let ((__obj137494 + (lambda (_%self141000%_ _%ctx141001%_ _%root141002%_) + (let* ((_%self141005%_ _%self141000%_) + (_%super141021%_ + (let ((_%$e141015%_ _%root141002%_)) + (if _%$e141015%_ + _%$e141015%_ + (let ((_%$e141018%_ (gx#core-context-root__0))) + (if _%$e141018%_ + _%$e141018%_ + (let ((__obj141249 (##structure gx#root-context::t '#f '#f))) - (let ((__constructor137495 + (let ((__constructor141250 (direct-method-ref gx#root-context::t - __obj137494 + __obj141249 ':init!))) - (if __constructor137495 - (__constructor137495 __obj137494) + (if __constructor141250 + (__constructor141250 __obj141249) (error '"missing constructor method implementation" 'class: gx#root-context::t 'method: ':init!))) - __obj137494))))))) - (if _%ctx137246%_ - (let ((_%id137269%_ + __obj141249))))))) + (if _%ctx141001%_ + (let ((_%id141024%_ (##structure-ref - _%ctx137246%_ + _%ctx141001%_ '1 gx#expander-context::t '#f)) - (_%path137270%_ + (_%path141025%_ (##structure-ref - _%ctx137246%_ + _%ctx141001%_ '7 gx#module-context::t '#f)) - (_%in137271%_ + (_%in141026%_ (map gx#core-module-export->import (##structure-ref - _%ctx137246%_ + _%ctx141001%_ '9 gx#module-context::t '#f))) - (_%e137272%_ + (_%e141027%_ (__make-atomic-promise - (lambda () (gx#eval-module _%ctx137246%_))))) - (if (##fx< '8 (##structure-length _%self137250%_)) + (lambda () (gx#eval-module _%ctx141001%_))))) + (if (##fx< '8 (##structure-length _%self141005%_)) (begin (##unchecked-structure-set! - _%self137250%_ - _%id137269%_ + _%self141005%_ + _%id141024%_ '1 '#f '#f) (##unchecked-structure-set! - _%self137250%_ - (make-hash-table-eq 'size: (##length _%in137271%_)) + _%self141005%_ + (make-hash-table-eq 'size: (##length _%in141026%_)) '2 '#f '#f) (##unchecked-structure-set! - _%self137250%_ - _%super137266%_ + _%self141005%_ + _%super141021%_ '3 '#f '#f) (##unchecked-structure-set! - _%self137250%_ + _%self141005%_ '#f '4 '#f '#f) (##unchecked-structure-set! - _%self137250%_ + _%self141005%_ '#f '5 '#f '#f) (##unchecked-structure-set! - _%self137250%_ - _%path137270%_ + _%self141005%_ + _%path141025%_ '6 '#f '#f) (##unchecked-structure-set! - _%self137250%_ - _%in137271%_ + _%self141005%_ + _%in141026%_ '7 '#f '#f) (##unchecked-structure-set! - _%self137250%_ - _%e137272%_ + _%self141005%_ + _%e141027%_ '8 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self137250%_ + _%self141005%_ '8 - (##structure-length _%self137250%_))) + (##structure-length _%self141005%_))) (##for-each - (lambda (_%g137273137275%_) + (lambda (_%g141028141030%_) (gx#core-bind-weak-import!__% - _%g137273137275%_ - _%self137250%_)) - _%in137271%_)) - (if (##fx< '8 (##structure-length _%self137250%_)) + _%g141028141030%_ + _%self141005%_)) + _%in141026%_)) + (if (##fx< '8 (##structure-length _%self141005%_)) (begin - (##unchecked-structure-set! _%self137250%_ '#f '1 '#f '#f) + (##unchecked-structure-set! _%self141005%_ '#f '1 '#f '#f) (##unchecked-structure-set! - _%self137250%_ + _%self141005%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self137250%_ - _%super137266%_ + _%self141005%_ + _%super141021%_ '3 '#f '#f) - (##unchecked-structure-set! _%self137250%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self137250%_ '#f '5 '#f '#f) - (##unchecked-structure-set! _%self137250%_ '#f '6 '#f '#f) - (##unchecked-structure-set! _%self137250%_ '() '7 '#f '#f) - (##unchecked-structure-set! _%self137250%_ '#f '8 '#f '#f) + (##unchecked-structure-set! _%self141005%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self141005%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self141005%_ '#f '6 '#f '#f) + (##unchecked-structure-set! _%self141005%_ '() '7 '#f '#f) + (##unchecked-structure-set! _%self141005%_ '#f '8 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self137250%_ + _%self141005%_ '8 - (##structure-length _%self137250%_))))))) + (##structure-length _%self141005%_))))))) (define gx#prelude-context:::init!__0 - (lambda (_%self137281%_ _%ctx137282%_) - (let ((_%root137284%_ '#f)) + (lambda (_%self141036%_ _%ctx141037%_) + (let ((_%root141039%_ '#f)) (gx#prelude-context:::init!__% - _%self137281%_ - _%ctx137282%_ - _%root137284%_)))) + _%self141036%_ + _%ctx141037%_ + _%root141039%_)))) (define gx#prelude-context:::init! - (lambda _g137500_ - (let ((_g137501_ (##length _g137500_))) - (cond ((##fx= _g137501_ 2) - (apply gx#prelude-context:::init!__0 _g137500_)) - ((##fx= _g137501_ 3) - (apply gx#prelude-context:::init!__% _g137500_)) + (lambda _g141255_ + (let ((_g141256_ (##length _g141255_))) + (cond ((##fx= _g141256_ 2) + (apply gx#prelude-context:::init!__0 _g141255_)) + ((##fx= _g141256_ 3) + (apply gx#prelude-context:::init!__% _g141255_)) (else (##raise-wrong-number-of-arguments-exception gx#prelude-context:::init! - _g137500_)))))) + _g141255_)))))) (__bind-method!__% gx#prelude-context::t ':init! gx#prelude-context:::init! '#f) (define gx#import-export-expander-init! - (lambda (_%self137119%_ _%e137120%_) - (if (##fx< '3 (##structure-length _%self137119%_)) + (lambda (_%self140874%_ _%e140875%_) + (if (##fx< '3 (##structure-length _%self140874%_)) (begin (##unchecked-structure-set! - _%self137119%_ - _%e137120%_ + _%self140874%_ + _%e140875%_ '1 '#f '#f) (##unchecked-structure-set! - _%self137119%_ + _%self140874%_ (gx#current-expander-context) '2 '#f '#f) (##unchecked-structure-set! - _%self137119%_ + _%self140874%_ (##fx- (gx#current-expander-phi) '1) '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self137119%_ + _%self140874%_ '3 - (##structure-length _%self137119%_))))) + (##structure-length _%self140874%_))))) (define gx#import-expander:::init! gx#import-export-expander-init!) (__bind-method!__% gx#import-expander::t @@ -578,10 +574,10 @@ gx#import-export-expander:::init! '#f) (define gx#import-expander::apply-import-expander - (lambda (_%g136745136748%_ _%g136746136750%_) + (lambda (_%g140500140503%_ _%g140501140505%_) (gx#core-apply-user-expander__% - _%g136745136748%_ - _%g136746136750%_ + _%g140500140503%_ + _%g140501140505%_ 'apply-import-expander))) (__bind-method!__% gx#import-expander::t @@ -589,10 +585,10 @@ gx#import-expander::apply-import-expander '#f) (define gx#export-expander::apply-export-expander - (lambda (_%g136616136619%_ _%g136617136621%_) + (lambda (_%g140371140374%_ _%g140372140376%_) (gx#core-apply-user-expander__% - _%g136616136619%_ - _%g136617136621%_ + _%g140371140374%_ + _%g140372140376%_ 'apply-export-expander))) (__bind-method!__% gx#export-expander::t @@ -600,115 +596,115 @@ gx#export-expander::apply-export-expander '#f) (define gx#module-source-path - (lambda (_%ctx136487%_) - (let* ((_%path136489%_ - (##structure-ref _%ctx136487%_ '7 gx#module-context::t '#f)) - (_%path136491%_ - (if (pair? _%path136489%_) - (##last _%path136489%_) - _%path136489%_))) - (if (string? _%path136491%_) _%path136491%_ '#f)))) + (lambda (_%ctx140242%_) + (let* ((_%path140244%_ + (##structure-ref _%ctx140242%_ '7 gx#module-context::t '#f)) + (_%path140246%_ + (if (pair? _%path140244%_) + (##last _%path140244%_) + _%path140244%_))) + (if (string? _%path140246%_) _%path140246%_ '#f)))) (define gx#import-module__% - (lambda (_%path136463%_ _%reload?136464%_ _%eval?136465%_) - (let ((_%ctx136467%_ + (lambda (_%path140218%_ _%reload?140219%_ _%eval?140220%_) + (let ((_%ctx140222%_ ((gx#current-expander-module-import) - _%path136463%_ - _%reload?136464%_))) - (if (and _%ctx136467%_ _%eval?136465%_) - (gx#eval-module _%ctx136467%_) + _%path140218%_ + _%reload?140219%_))) + (if (and _%ctx140222%_ _%eval?140220%_) + (gx#eval-module _%ctx140222%_) '#!void) - _%ctx136467%_))) + _%ctx140222%_))) (define gx#import-module__0 - (lambda (_%path136472%_) - (let* ((_%reload?136474%_ '#f) (_%eval?136476%_ '#f)) + (lambda (_%path140227%_) + (let* ((_%reload?140229%_ '#f) (_%eval?140231%_ '#f)) (gx#import-module__% - _%path136472%_ - _%reload?136474%_ - _%eval?136476%_)))) + _%path140227%_ + _%reload?140229%_ + _%eval?140231%_)))) (define gx#import-module__1 - (lambda (_%path136478%_ _%reload?136479%_) - (let ((_%eval?136481%_ '#f)) + (lambda (_%path140233%_ _%reload?140234%_) + (let ((_%eval?140236%_ '#f)) (gx#import-module__% - _%path136478%_ - _%reload?136479%_ - _%eval?136481%_)))) + _%path140233%_ + _%reload?140234%_ + _%eval?140236%_)))) (define gx#import-module - (lambda _g137502_ - (let ((_g137503_ (##length _g137502_))) - (cond ((##fx= _g137503_ 1) (apply gx#import-module__0 _g137502_)) - ((##fx= _g137503_ 2) (apply gx#import-module__1 _g137502_)) - ((##fx= _g137503_ 3) (apply gx#import-module__% _g137502_)) + (lambda _g141257_ + (let ((_g141258_ (##length _g141257_))) + (cond ((##fx= _g141258_ 1) (apply gx#import-module__0 _g141257_)) + ((##fx= _g141258_ 2) (apply gx#import-module__1 _g141257_)) + ((##fx= _g141258_ 3) (apply gx#import-module__% _g141257_)) (else (##raise-wrong-number-of-arguments-exception gx#import-module - _g137502_)))))) + _g141257_)))))) (define gx#eval-module - (lambda (_%mod136460%_) - ((gx#current-expander-module-eval) _%mod136460%_))) + (lambda (_%mod140215%_) + ((gx#current-expander-module-eval) _%mod140215%_))) (define gx#core-eval-module - (lambda (_%obj136439%_) - (letrec ((_%force-e136441%_ - (lambda (_%getf136455%_ _%e136456%_) + (lambda (_%obj140194%_) + (letrec ((_%force-e140196%_ + (lambda (_%getf140210%_ _%e140211%_) (call-with-parameters__1 (lambda () (call-with-parameters__1 - (lambda () (force (_%getf136455%_ _%e136456%_))) + (lambda () (force (_%getf140210%_ _%e140211%_))) gx#current-expander-phi '0)) gx#current-expander-context - _%e136456%_)))) - (let _%recur136443%_ ((_%e136445%_ _%obj136439%_)) - (if (##structure-instance-of? _%e136445%_ 'gx#module-context::t) + _%e140211%_)))) + (let _%recur140198%_ ((_%e140200%_ _%obj140194%_)) + (if (##structure-instance-of? _%e140200%_ 'gx#module-context::t) (let () - (let ((_%$e136448%_ - (gx#core-context-prelude__% _%e136445%_))) - (if _%$e136448%_ (_%recur136443%_ _%$e136448%_) '#!void)) - (_%force-e136441%_ gx#module-context-e _%e136445%_)) + (let ((_%$e140203%_ + (gx#core-context-prelude__% _%e140200%_))) + (if _%$e140203%_ (_%recur140198%_ _%$e140203%_) '#!void)) + (_%force-e140196%_ gx#module-context-e _%e140200%_)) (if (##structure-instance-of? - _%e136445%_ + _%e140200%_ 'gx#prelude-context::t) - (_%force-e136441%_ gx#prelude-context-e _%e136445%_) - (if (gx#stx-string? _%e136445%_) - (_%recur136443%_ + (_%force-e140196%_ gx#prelude-context-e _%e140200%_) + (if (gx#stx-string? _%e140200%_) + (_%recur140198%_ (gx#import-module__0 - (gx#core-resolve-module-path__0 _%e136445%_))) - (if (gx#core-library-module-path? _%e136445%_) - (_%recur136443%_ + (gx#core-resolve-module-path__0 _%e140200%_))) + (if (gx#core-library-module-path? _%e140200%_) + (_%recur140198%_ (gx#import-module__0 (gx#core-resolve-library-module-path - _%e136445%_))) - (error '"cannot eval module" _%obj136439%_))))))))) + _%e140200%_))) + (error '"cannot eval module" _%obj140194%_))))))))) (define gx#core-context-prelude__% - (lambda (_%ctx136419%_) - (let _%lp136421%_ ((_%e136423%_ _%ctx136419%_)) - (if (or (##structure-instance-of? _%e136423%_ 'gx#module-context::t) - (##structure-instance-of? _%e136423%_ 'gx#local-context::t)) - (_%lp136421%_ (##unchecked-structure-ref _%e136423%_ '3 '#f '#f)) - (if (##structure-instance-of? _%e136423%_ 'gx#prelude-context::t) - _%e136423%_ + (lambda (_%ctx140174%_) + (let _%lp140176%_ ((_%e140178%_ _%ctx140174%_)) + (if (or (##structure-instance-of? _%e140178%_ 'gx#module-context::t) + (##structure-instance-of? _%e140178%_ 'gx#local-context::t)) + (_%lp140176%_ (##unchecked-structure-ref _%e140178%_ '3 '#f '#f)) + (if (##structure-instance-of? _%e140178%_ 'gx#prelude-context::t) + _%e140178%_ '#f))))) (define gx#core-context-prelude__0 (lambda () - (let ((_%ctx136435%_ (gx#current-expander-context))) - (gx#core-context-prelude__% _%ctx136435%_)))) + (let ((_%ctx140190%_ (gx#current-expander-context))) + (gx#core-context-prelude__% _%ctx140190%_)))) (define gx#core-context-prelude - (lambda _g137504_ - (let ((_g137505_ (##length _g137504_))) - (cond ((##fx= _g137505_ 0) - (apply gx#core-context-prelude__0 _g137504_)) - ((##fx= _g137505_ 1) - (apply gx#core-context-prelude__% _g137504_)) + (lambda _g141259_ + (let ((_g141260_ (##length _g141259_))) + (cond ((##fx= _g141260_ 0) + (apply gx#core-context-prelude__0 _g141259_)) + ((##fx= _g141260_ 1) + (apply gx#core-context-prelude__% _g141259_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-prelude - _g137504_)))))) + _g141259_)))))) (define gx#core-module->prelude-context - (lambda (_%ctx136410%_) - (let ((_%$e136412%_ (__hash-get gx#__module-registry _%ctx136410%_))) - (if _%$e136412%_ - _%$e136412%_ - (let ((_%pre136416%_ - (let ((__obj137496 + (lambda (_%ctx140165%_) + (let ((_%$e140167%_ (__hash-get gx#__module-registry _%ctx140165%_))) + (if _%$e140167%_ + _%$e140167%_ + (let ((_%pre140171%_ + (let ((__obj141251 (##structure gx#prelude-context::t '#f @@ -720,17 +716,17 @@ '#f '#f))) (gx#prelude-context:::init!__0 - __obj137496 - _%ctx136410%_) - __obj137496))) - (__hash-put! gx#__module-registry _%ctx136410%_ _%pre136416%_) - _%pre136416%_))))) + __obj141251 + _%ctx140165%_) + __obj141251))) + (__hash-put! gx#__module-registry _%ctx140165%_ _%pre140171%_) + _%pre140171%_))))) (define gx#core-import-module__% - (lambda (_%rpath136277%_ _%reload?136278%_) - (letrec ((_%import-source136280%_ - (lambda (_%path136369%_) - (if (member _%path136369%_ (gx#current-expander-path)) - (error '"Cyclic expansion" _%path136369%_) + (lambda (_%rpath140033%_ _%reload?140034%_) + (letrec ((_%import-source140036%_ + (lambda (_%path140124%_) + (if (member _%path140124%_ (gx#current-expander-path)) + (error '"Cyclic expansion" _%path140124%_) '#!void) (call-with-parameters__1 (lambda () @@ -744,46 +740,46 @@ (lambda () (call-with-parameters__1 (lambda () - (let ((_g137506_ + (let ((_g141261_ (gx#core-read-module - _%path136369%_))) + _%path140124%_))) (begin - (let ((_g137507_ - (if (##values? _g137506_) + (let ((_g141262_ + (if (##values? _g141261_) (##values-length - _g137506_) + _g141261_) 1))) - (if (not (##fx= _g137507_ 4)) + (if (not (##fx= _g141262_ 4)) (error "Context expects 4 values" - _g137507_))) - (let ((_%pre136377%_ - (##values-ref _g137506_ 0)) - (_%id136378%_ - (##values-ref _g137506_ 1)) - (_%ns136379%_ - (##values-ref _g137506_ 2)) - (_%body136380%_ - (##values-ref _g137506_ 3))) - (let* ((_%prelude136390%_ + _g141262_))) + (let ((_%pre140132%_ + (##values-ref _g141261_ 0)) + (_%id140133%_ + (##values-ref _g141261_ 1)) + (_%ns140134%_ + (##values-ref _g141261_ 2)) + (_%body140135%_ + (##values-ref _g141261_ 3))) + (let* ((_%prelude140145%_ (if (##structure-instance-of? - _%pre136377%_ + _%pre140132%_ 'gx#prelude-context::t) - _%pre136377%_ + _%pre140132%_ (if (##structure-instance-of? - _%pre136377%_ + _%pre140132%_ 'gx#module-context::t) (gx#core-module->prelude-context - _%pre136377%_) - (if (string? _%pre136377%_) + _%pre140132%_) + (if (string? _%pre140132%_) (gx#core-module->prelude-context ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#core-import-module__0 _%pre136377%_)) - (if (not _%pre136377%_) - (let ((_%$e136386%_ + (gx#core-import-module__0 _%pre140132%_)) + (if (not _%pre140132%_) + (let ((_%$e140141%_ (gx#current-expander-module-prelude))) - (if _%$e136386%_ - _%$e136386%_ - (let ((__obj137497 + (if _%$e140141%_ + _%$e140141%_ + (let ((__obj141252 (##structure gx#prelude-context::t '#f @@ -795,15 +791,15 @@ '#f '#f))) (gx#prelude-context:::init!__0 - __obj137497 + __obj141252 '#f) - __obj137497))) + __obj141252))) (error '"cannot import module; unknown prelude" - _%rpath136277%_ - _%pre136377%_)))))) + _%rpath140033%_ + _%pre140132%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%ctx136392%_ - (let ((__obj137498 + (_%ctx140147%_ + (let ((__obj141253 (##structure gx#module-context::t '#f @@ -818,54 +814,54 @@ '#f '#f))) (gx#module-context:::init! - __obj137498 - _%id136378%_ - _%prelude136390%_ - _%ns136379%_ - _%path136369%_) - __obj137498)) - (_%body136394%_ + __obj141253 + _%id140133%_ + _%prelude140145%_ + _%ns140134%_ + _%path140124%_) + __obj141253)) + (_%body140149%_ (gx#core-expand-module-begin - _%body136380%_ - _%ctx136392%_)) - (_%body136396%_ + _%body140135%_ + _%ctx140147%_)) + (_%body140151%_ (gx#core-quote-syntax__% (gx#core-cons '%#begin - _%body136394%_) - _%path136369%_ - _%ctx136392%_ + _%body140149%_) + _%path140124%_ + _%ctx140147%_ '()))) (##unchecked-structure-set! - _%ctx136392%_ + _%ctx140147%_ (__make-atomic-promise (lambda () (gx#eval-syntax* - _%body136396%_))) + _%body140151%_))) '10 '#f '#f) (##unchecked-structure-set! - _%ctx136392%_ - _%body136396%_ + _%ctx140147%_ + _%body140151%_ '11 '#f '#f) (__hash-put! gx#__module-registry - _%path136369%_ - _%ctx136392%_) + _%path140124%_ + _%ctx140147%_) (__hash-put! gx#__module-registry - _%id136378%_ - _%ctx136392%_) - _%ctx136392%_))))) + _%id140133%_ + _%ctx140147%_) + _%ctx140147%_))))) gx#current-export-expander-phi '#f)) gx#current-import-expander-phi '#f)) gx#current-expander-path - (cons _%path136369%_ + (cons _%path140124%_ (gx#current-expander-path)))) gx#current-expander-phi '0)) @@ -873,1324 +869,1324 @@ '())) gx#current-expander-context (gx#core-context-root__0)))) - (_%import-submodule136281%_ - (lambda (_%rpath136297%_) - (let* ((_%rpath136298136305%_ _%rpath136297%_) - (_%E136300136309%_ + (_%import-submodule140037%_ + (lambda (_%rpath140053%_) + (let* ((_%rpath140054140061%_ _%rpath140053%_) + (_%E140056140064%_ (lambda () (error '"No clause matching" - _%rpath136298136305%_ + _%rpath140054140061%_ '([origin . refs])) '#!void)) - (_%K136301136357%_ - (lambda (_%refs136312%_ _%origin136313%_) - (let ((_%ctx136315%_ - (if _%origin136313%_ + (_%K140057140112%_ + (lambda (_%refs140067%_ _%origin140068%_) + (let ((_%ctx140070%_ + (if _%origin140068%_ (gx#core-import-module__% - _%origin136313%_ - _%reload?136278%_) + _%origin140068%_ + _%reload?140034%_) (gx#current-expander-context)))) - (let _%lp136317%_ ((_%rest136319%_ - _%refs136312%_) - (_%ctx136320%_ - _%ctx136315%_)) - (let* ((_%rest136321136329%_ _%rest136319%_) - (_%else136323136337%_ - (lambda () _%ctx136320%_)) - (_%K136325136345%_ - (lambda (_%rest136340%_ _%id136341%_) - (let ((_%bind136343%_ + (let _%lp140072%_ ((_%rest140074%_ + _%refs140067%_) + (_%ctx140075%_ + _%ctx140070%_)) + (let* ((_%rest140076140084%_ _%rest140074%_) + (_%else140078140092%_ + (lambda () _%ctx140075%_)) + (_%K140080140100%_ + (lambda (_%rest140095%_ _%id140096%_) + (let ((_%bind140098%_ (gx#resolve-identifier__% - _%id136341%_ + _%id140096%_ '0 - _%ctx136320%_))) + _%ctx140075%_))) (if (and (##structure-direct-instance-of? - _%bind136343%_ + _%bind140098%_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _%bind136343%_ + _%bind140098%_ '4 '#f '#f) 'gx#module-context::t)) - (_%lp136317%_ - _%rest136340%_ + (_%lp140072%_ + _%rest140095%_ (##unchecked-structure-ref - _%bind136343%_ + _%bind140098%_ '4 '#f '#f)) (error '"cannot import submodule; not bound as a module" - _%rpath136297%_ - _%id136341%_ - _%bind136343%_)))))) - (if (pair? _%rest136321136329%_) - (let ((_%hd136326136348%_ - (##car _%rest136321136329%_)) - (_%tl136327136350%_ - (##cdr _%rest136321136329%_))) - (let* ((_%id136353%_ - _%hd136326136348%_) - (_%rest136355%_ - _%tl136327136350%_)) - (_%K136325136345%_ - _%rest136355%_ - _%id136353%_))) - (_%else136323136337%_)))))))) - (if (pair? _%rpath136298136305%_) - (let ((_%hd136302136360%_ - (##car _%rpath136298136305%_)) - (_%tl136303136362%_ - (##cdr _%rpath136298136305%_))) - (let* ((_%origin136365%_ _%hd136302136360%_) - (_%refs136367%_ _%tl136303136362%_)) - (_%K136301136357%_ - _%refs136367%_ - _%origin136365%_))) - (_%E136300136309%_)))))) - (let ((_%$e136283%_ - (if (not _%reload?136278%_) - (__hash-get gx#__module-registry _%rpath136277%_) + _%rpath140053%_ + _%id140096%_ + _%bind140098%_)))))) + (if (pair? _%rest140076140084%_) + (let ((_%hd140081140103%_ + (##car _%rest140076140084%_)) + (_%tl140082140105%_ + (##cdr _%rest140076140084%_))) + (let* ((_%id140108%_ + _%hd140081140103%_) + (_%rest140110%_ + _%tl140082140105%_)) + (_%K140080140100%_ + _%rest140110%_ + _%id140108%_))) + (_%else140078140092%_)))))))) + (if (pair? _%rpath140054140061%_) + (let ((_%hd140058140115%_ + (##car _%rpath140054140061%_)) + (_%tl140059140117%_ + (##cdr _%rpath140054140061%_))) + (let* ((_%origin140120%_ _%hd140058140115%_) + (_%refs140122%_ _%tl140059140117%_)) + (_%K140057140112%_ + _%refs140122%_ + _%origin140120%_))) + (_%E140056140064%_)))))) + (let ((_%$e140039%_ + (if (not _%reload?140034%_) + (__hash-get gx#__module-registry _%rpath140033%_) '#f))) - (if _%$e136283%_ - _%$e136283%_ - (if (list? _%rpath136277%_) - (_%import-submodule136281%_ _%rpath136277%_) - (if (gx#core-library-module-path? _%rpath136277%_) - (let ((_%ctx136288%_ + (if _%$e140039%_ + _%$e140039%_ + (if (list? _%rpath140033%_) + (_%import-submodule140037%_ _%rpath140033%_) + (if (gx#core-library-module-path? _%rpath140033%_) + (let ((_%ctx140044%_ (gx#core-import-module__% (gx#core-resolve-library-module-path - _%rpath136277%_) - _%reload?136278%_))) + _%rpath140033%_) + _%reload?140034%_))) (__hash-put! gx#__module-registry - _%rpath136277%_ - _%ctx136288%_) - _%ctx136288%_) - (let* ((_%npath136291%_ - (path-normalize _%rpath136277%_)) - (_%$e136293%_ - (if (not _%reload?136278%_) + _%rpath140033%_ + _%ctx140044%_) + _%ctx140044%_) + (let* ((_%npath140047%_ + (path-normalize _%rpath140033%_)) + (_%$e140049%_ + (if (not _%reload?140034%_) (__hash-get gx#__module-registry - _%npath136291%_) + _%npath140047%_) '#f))) - (if _%$e136293%_ - _%$e136293%_ - (_%import-source136280%_ - _%npath136291%_)))))))))) + (if _%$e140049%_ + _%$e140049%_ + (_%import-source140036%_ + _%npath140047%_)))))))))) (define gx#core-import-module__0 - (lambda (_%rpath136403%_) - (let ((_%reload?136405%_ '#f)) - (gx#core-import-module__% _%rpath136403%_ _%reload?136405%_)))) + (lambda (_%rpath140158%_) + (let ((_%reload?140160%_ '#f)) + (gx#core-import-module__% _%rpath140158%_ _%reload?140160%_)))) (define gx#core-import-module - (lambda _g137508_ - (let ((_g137509_ (##length _g137508_))) - (cond ((##fx= _g137509_ 1) - (apply gx#core-import-module__0 _g137508_)) - ((##fx= _g137509_ 2) - (apply gx#core-import-module__% _g137508_)) + (lambda _g141263_ + (let ((_g141264_ (##length _g141263_))) + (cond ((##fx= _g141264_ 1) + (apply gx#core-import-module__0 _g141263_)) + ((##fx= _g141264_ 2) + (apply gx#core-import-module__% _g141263_)) (else (##raise-wrong-number-of-arguments-exception gx#core-import-module - _g137508_)))))) + _g141263_)))))) (define gx#core-read-module - (lambda (_%path136266%_) + (lambda (_%path140022%_) (__with-catch - (lambda (_%exn136268%_) - (if (and (datum-parsing-exception? _%exn136268%_) - (eq? (datum-parsing-exception-filepos _%exn136268%_) '0)) - (gx#core-read-module/lang _%path136266%_) + (lambda (_%exn140024%_) + (if (and (datum-parsing-exception? _%exn140024%_) + (eq? (datum-parsing-exception-filepos _%exn140024%_) '0)) + (gx#core-read-module/lang _%path140022%_) (gx#raise-syntax-error 'read-module '"error reading module" - _%path136266%_ + _%path140022%_ (call-with-parameters__1 (lambda () (call-with-output-string '"" - (lambda (_%g136270136272%_) - (display-exception__% _%exn136268%_ _%g136270136272%_)))) + (lambda (_%g140026140028%_) + (display-exception__% _%exn140024%_ _%g140026140028%_)))) dump-stack-trace? '#f)))) - (lambda () (gx#core-read-module/sexp _%path136266%_))))) + (lambda () (gx#core-read-module/sexp _%path140022%_))))) (define gx#core-read-module/sexp - (lambda (_%path136118%_) - (let _%lp136120%_ ((_%body136122%_ - (read-syntax-from-file _%path136118%_)) - (_%pre136123%_ '#f) - (_%ns136124%_ '#f) - (_%pkg136125%_ '#f)) - (let* ((_%e136126136150%_ _%body136122%_) - (_%E136142136176%_ + (lambda (_%path139874%_) + (let _%lp139876%_ ((_%body139878%_ + (read-syntax-from-file _%path139874%_)) + (_%pre139879%_ '#f) + (_%ns139880%_ '#f) + (_%pkg139881%_ '#f)) + (let* ((_%e139882139906%_ _%body139878%_) + (_%E139898139932%_ (lambda () - (let ((_g137510_ - (if _%pkg136125%_ - (values _%pre136123%_ - _%ns136124%_ - _%pkg136125%_) + (let ((_g141265_ + (if _%pkg139881%_ + (values _%pre139879%_ + _%ns139880%_ + _%pkg139881%_) (gx#core-read-module-package - _%path136118%_ - _%pre136123%_ - _%ns136124%_)))) + _%path139874%_ + _%pre139879%_ + _%ns139880%_)))) (begin - (let ((_g137511_ - (if (##values? _g137510_) - (##values-length _g137510_) + (let ((_g141266_ + (if (##values? _g141265_) + (##values-length _g141265_) 1))) - (if (not (##fx= _g137511_ 3)) - (error "Context expects 3 values" _g137511_))) - (let ((_%pre136154%_ (##values-ref _g137510_ 0)) - (_%ns136155%_ (##values-ref _g137510_ 1)) - (_%pkg136156%_ (##values-ref _g137510_ 2))) - (let* ((_%prelude136162%_ + (if (not (##fx= _g141266_ 3)) + (error "Context expects 3 values" _g141266_))) + (let ((_%pre139910%_ (##values-ref _g141265_ 0)) + (_%ns139911%_ (##values-ref _g141265_ 1)) + (_%pkg139912%_ (##values-ref _g141265_ 2))) + (let* ((_%prelude139918%_ (if (gx#core-bound-module-prelude? - _%pre136154%_) - (gx#syntax-local-e__0 _%pre136154%_) + _%pre139910%_) + (gx#syntax-local-e__0 _%pre139910%_) (if (gx#core-library-module-path? - _%pre136154%_) + _%pre139910%_) (gx#core-resolve-library-module-path - _%pre136154%_) - (if (gx#stx-string? _%pre136154%_) + _%pre139910%_) + (if (gx#stx-string? _%pre139910%_) (gx#core-resolve-module-path__% - _%pre136154%_ - _%path136118%_) - (gx#stx-e _%pre136154%_))))) - (_%path-id136164%_ + _%pre139910%_ + _%path139874%_) + (gx#stx-e _%pre139910%_))))) + (_%path-id139920%_ (gx#core-module-path->namespace - _%path136118%_)) - (_%pkg-id136166%_ - (if _%pkg136156%_ + _%path139874%_)) + (_%pkg-id139922%_ + (if _%pkg139912%_ (##string-append - _%pkg136156%_ + _%pkg139912%_ '"/" - _%path-id136164%_) - _%path-id136164%_)) - (_%module-id136168%_ - (##string->symbol _%pkg-id136166%_)) - (_%module-ns136173%_ - (if (eq? _%ns136155%_ '#!void) + _%path-id139920%_) + _%path-id139920%_)) + (_%module-id139924%_ + (##string->symbol _%pkg-id139922%_)) + (_%module-ns139929%_ + (if (eq? _%ns139911%_ '#!void) '#f - (let ((_%$e136170%_ _%ns136155%_)) - (if _%$e136170%_ - _%$e136170%_ - _%pkg-id136166%_))))) - (values _%prelude136162%_ - _%module-id136168%_ - _%module-ns136173%_ - _%body136122%_))))))) - (_%E136135136208%_ + (let ((_%$e139926%_ _%ns139911%_)) + (if _%$e139926%_ + _%$e139926%_ + _%pkg-id139922%_))))) + (values _%prelude139918%_ + _%module-id139924%_ + _%module-ns139929%_ + _%body139878%_))))))) + (_%E139891139964%_ (lambda () - (if (gx#stx-pair? _%e136126136150%_) - (let ((_%e136143136180%_ - (gx#syntax-e _%e136126136150%_))) - (let ((_%hd136144136183%_ (##car _%e136143136180%_)) - (_%tl136145136185%_ (##cdr _%e136143136180%_))) - (if (eq? (gx#stx-e _%hd136144136183%_) 'package:) - (if (gx#stx-pair? _%tl136145136185%_) - (let ((_%e136146136188%_ - (gx#syntax-e _%tl136145136185%_))) - (let ((_%hd136147136191%_ - (##car _%e136146136188%_)) - (_%tl136148136193%_ - (##cdr _%e136146136188%_))) - (let* ((_%pkg136196%_ - _%hd136147136191%_) - (_%rest136198%_ - _%tl136148136193%_) - (_%pkg136206%_ + (if (gx#stx-pair? _%e139882139906%_) + (let ((_%e139899139936%_ + (gx#syntax-e _%e139882139906%_))) + (let ((_%hd139900139939%_ (##car _%e139899139936%_)) + (_%tl139901139941%_ (##cdr _%e139899139936%_))) + (if (eq? (gx#stx-e _%hd139900139939%_) 'package:) + (if (gx#stx-pair? _%tl139901139941%_) + (let ((_%e139902139944%_ + (gx#syntax-e _%tl139901139941%_))) + (let ((_%hd139903139947%_ + (##car _%e139902139944%_)) + (_%tl139904139949%_ + (##cdr _%e139902139944%_))) + (let* ((_%pkg139952%_ + _%hd139903139947%_) + (_%rest139954%_ + _%tl139904139949%_) + (_%pkg139962%_ (if (gx#identifier? - _%pkg136196%_) + _%pkg139952%_) (symbol->string - (gx#stx-e _%pkg136196%_)) + (gx#stx-e _%pkg139952%_)) (if (or (gx#stx-string? - _%pkg136196%_) + _%pkg139952%_) (gx#stx-false? - _%pkg136196%_)) + _%pkg139952%_)) (gx#stx-e - _%pkg136196%_) + _%pkg139952%_) (gx#raise-syntax-error 'import '"Bad syntax; Illegal package name" - _%pkg136196%_))))) - (_%lp136120%_ - _%rest136198%_ - _%pre136123%_ - _%ns136124%_ - _%pkg136206%_)))) - (_%E136142136176%_)) - (_%E136142136176%_)))) - (_%E136142136176%_)))) - (_%E136128136238%_ + _%pkg139952%_))))) + (_%lp139876%_ + _%rest139954%_ + _%pre139879%_ + _%ns139880%_ + _%pkg139962%_)))) + (_%E139898139932%_)) + (_%E139898139932%_)))) + (_%E139898139932%_)))) + (_%E139884139994%_ (lambda () - (if (gx#stx-pair? _%e136126136150%_) - (let ((_%e136136136212%_ - (gx#syntax-e _%e136126136150%_))) - (let ((_%hd136137136215%_ (##car _%e136136136212%_)) - (_%tl136138136217%_ (##cdr _%e136136136212%_))) - (if (eq? (gx#stx-e _%hd136137136215%_) 'namespace:) - (if (gx#stx-pair? _%tl136138136217%_) - (let ((_%e136139136220%_ - (gx#syntax-e _%tl136138136217%_))) - (let ((_%hd136140136223%_ - (##car _%e136139136220%_)) - (_%tl136141136225%_ - (##cdr _%e136139136220%_))) - (let* ((_%ns136228%_ - _%hd136140136223%_) - (_%rest136230%_ - _%tl136141136225%_) - (_%ns136236%_ + (if (gx#stx-pair? _%e139882139906%_) + (let ((_%e139892139968%_ + (gx#syntax-e _%e139882139906%_))) + (let ((_%hd139893139971%_ (##car _%e139892139968%_)) + (_%tl139894139973%_ (##cdr _%e139892139968%_))) + (if (eq? (gx#stx-e _%hd139893139971%_) 'namespace:) + (if (gx#stx-pair? _%tl139894139973%_) + (let ((_%e139895139976%_ + (gx#syntax-e _%tl139894139973%_))) + (let ((_%hd139896139979%_ + (##car _%e139895139976%_)) + (_%tl139897139981%_ + (##cdr _%e139895139976%_))) + (let* ((_%ns139984%_ + _%hd139896139979%_) + (_%rest139986%_ + _%tl139897139981%_) + (_%ns139992%_ (if (gx#identifier? - _%ns136228%_) + _%ns139984%_) (symbol->string - (gx#stx-e _%ns136228%_)) + (gx#stx-e _%ns139984%_)) (if (gx#stx-string? - _%ns136228%_) - (gx#stx-e _%ns136228%_) + _%ns139984%_) + (gx#stx-e _%ns139984%_) (if (gx#stx-false? - _%ns136228%_) + _%ns139984%_) '#!void (gx#raise-syntax-error 'import '"Bad syntax; illegal namespace" - _%ns136228%_)))))) - (_%lp136120%_ - _%rest136230%_ - _%pre136123%_ - _%ns136236%_ - _%pkg136125%_)))) - (_%E136135136208%_)) - (_%E136135136208%_)))) - (_%E136135136208%_)))) - (_%E136127136262%_ + _%ns139984%_)))))) + (_%lp139876%_ + _%rest139986%_ + _%pre139879%_ + _%ns139992%_ + _%pkg139881%_)))) + (_%E139891139964%_)) + (_%E139891139964%_)))) + (_%E139891139964%_)))) + (_%E139883140018%_ (lambda () - (if (gx#stx-pair? _%e136126136150%_) - (let ((_%e136129136242%_ - (gx#syntax-e _%e136126136150%_))) - (let ((_%hd136130136245%_ (##car _%e136129136242%_)) - (_%tl136131136247%_ (##cdr _%e136129136242%_))) - (if (eq? (gx#stx-e _%hd136130136245%_) 'prelude:) - (if (gx#stx-pair? _%tl136131136247%_) - (let ((_%e136132136250%_ - (gx#syntax-e _%tl136131136247%_))) - (let ((_%hd136133136253%_ - (##car _%e136132136250%_)) - (_%tl136134136255%_ - (##cdr _%e136132136250%_))) - (let* ((_%prelude136258%_ - _%hd136133136253%_) - (_%rest136260%_ - _%tl136134136255%_)) - (_%lp136120%_ - _%rest136260%_ - _%prelude136258%_ - _%ns136124%_ - _%pkg136125%_)))) - (_%E136128136238%_)) - (_%E136128136238%_)))) - (_%E136128136238%_))))) - (_%E136127136262%_))))) + (if (gx#stx-pair? _%e139882139906%_) + (let ((_%e139885139998%_ + (gx#syntax-e _%e139882139906%_))) + (let ((_%hd139886140001%_ (##car _%e139885139998%_)) + (_%tl139887140003%_ (##cdr _%e139885139998%_))) + (if (eq? (gx#stx-e _%hd139886140001%_) 'prelude:) + (if (gx#stx-pair? _%tl139887140003%_) + (let ((_%e139888140006%_ + (gx#syntax-e _%tl139887140003%_))) + (let ((_%hd139889140009%_ + (##car _%e139888140006%_)) + (_%tl139890140011%_ + (##cdr _%e139888140006%_))) + (let* ((_%prelude140014%_ + _%hd139889140009%_) + (_%rest140016%_ + _%tl139890140011%_)) + (_%lp139876%_ + _%rest140016%_ + _%prelude140014%_ + _%ns139880%_ + _%pkg139881%_)))) + (_%E139884139994%_)) + (_%E139884139994%_)))) + (_%E139884139994%_))))) + (_%E139883140018%_))))) (define gx#core-read-module/lang - (lambda (_%path135939%_) - (letrec ((_%default-read-module-body135941%_ - (lambda (_%inp136110%_) - (let _%lp136112%_ ((_%body136114%_ '())) - (let ((_%next136116%_ (read-syntax__% _%inp136110%_))) - (if (eof-object? _%next136116%_) - (reverse _%body136114%_) - (_%lp136112%_ - (cons _%next136116%_ _%body136114%_))))))) - (_%read-body135942%_ - (lambda (_%inp136027%_ - _%pre136028%_ - _%ns136029%_ - _%pkg136030%_ - _%args136031%_) - (let ((_g137512_ - (if _%pkg136030%_ - (values _%pre136028%_ - _%ns136029%_ - _%pkg136030%_) + (lambda (_%path139695%_) + (letrec ((_%default-read-module-body139697%_ + (lambda (_%inp139866%_) + (let _%lp139868%_ ((_%body139870%_ '())) + (let ((_%next139872%_ (read-syntax__% _%inp139866%_))) + (if (eof-object? _%next139872%_) + (reverse _%body139870%_) + (_%lp139868%_ + (cons _%next139872%_ _%body139870%_))))))) + (_%read-body139698%_ + (lambda (_%inp139783%_ + _%pre139784%_ + _%ns139785%_ + _%pkg139786%_ + _%args139787%_) + (let ((_g141267_ + (if _%pkg139786%_ + (values _%pre139784%_ + _%ns139785%_ + _%pkg139786%_) (gx#core-read-module-package - _%path135939%_ - _%pre136028%_ - _%ns136029%_)))) + _%path139695%_ + _%pre139784%_ + _%ns139785%_)))) (begin - (let ((_g137513_ - (if (##values? _g137512_) - (##values-length _g137512_) + (let ((_g141268_ + (if (##values? _g141267_) + (##values-length _g141267_) 1))) - (if (not (##fx= _g137513_ 3)) - (error "Context expects 3 values" _g137513_))) - (let ((_%pre136033%_ (##values-ref _g137512_ 0)) - (_%ns136034%_ (##values-ref _g137512_ 1)) - (_%pkg136035%_ (##values-ref _g137512_ 2))) - (let* ((_%prelude136037%_ - (gx#import-module__0 _%pre136033%_)) - (_%read-module-body136092%_ - (let ((_%$e136083%_ - (__find (lambda (_%e136038136040%_) - (let* ((_%g136042136052%_ - _%e136038136040%_) - (_%else136044136060%_ + (if (not (##fx= _g141268_ 3)) + (error "Context expects 3 values" _g141268_))) + (let ((_%pre139789%_ (##values-ref _g141267_ 0)) + (_%ns139790%_ (##values-ref _g141267_ 1)) + (_%pkg139791%_ (##values-ref _g141267_ 2))) + (let* ((_%prelude139793%_ + (gx#import-module__0 _%pre139789%_)) + (_%read-module-body139848%_ + (let ((_%$e139839%_ + (__find (lambda (_%e139794139796%_) + (let* ((_%e139794139798139808%_ + _%e139794139796%_) + (_%else139800139816%_ (lambda () '#f)) - (_%K136046136064%_ + (_%K139802139820%_ (lambda () '#t))) (if (##structure-direct-instance-of? - _%g136042136052%_ + _%e139794139798139808%_ 'gx#module-export::t) - (let* ((_%e136047136067%_ + (let* ((_%e139803139823%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##unchecked-structure-ref - _%g136042136052%_ + _%e139794139798139808%_ '1 '#f '#f)) - (_%e136048136070%_ + (_%e139804139826%_ (##unchecked-structure-ref - _%g136042136052%_ + _%e139794139798139808%_ '2 '#f '#f)) - (_%e136049136073%_ + (_%e139805139829%_ (##unchecked-structure-ref - _%g136042136052%_ + _%e139794139798139808%_ '3 '#f '#f))) - (if (##eq? _%e136049136073%_ '1) - (let ((_%e136050136076%_ + (if (##eq? _%e139805139829%_ '1) + (let ((_%e139806139832%_ (##unchecked-structure-ref - _%g136042136052%_ + _%e139794139798139808%_ '4 '#f '#f))) - (if ((lambda (_%g136078136080%_) - (eq? _%g136078136080%_ 'read-module-body)) - _%e136050136076%_) - (_%K136046136064%_) - (_%else136044136060%_))) - (_%else136044136060%_))) - (_%else136044136060%_)))) + (if ((lambda (_%g139834139836%_) + (eq? _%g139834139836%_ 'read-module-body)) + _%e139806139832%_) + (_%K139802139820%_) + (_%else139800139816%_))) + (_%else139800139816%_))) + (_%else139800139816%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (##unchecked-structure-ref - _%prelude136037%_ + _%prelude139793%_ '9 '#f '#f)))) - (if _%$e136083%_ - ((lambda (_%xport136086%_) - (let ((_%proc136089%_ + (if _%$e139839%_ + ((lambda (_%xport139842%_) + (let ((_%proc139845%_ (__with-catch void (lambda () (gx#eval-syntax__0 (##structure-ref (gx#core-resolve-module-export - _%xport136086%_) + _%xport139842%_) '1 gx#binding::t '#f)))))) - (if (procedure? _%proc136089%_) - _%proc136089%_ + (if (procedure? _%proc139845%_) + _%proc139845%_ (gx#raise-syntax-error '#f '"Illegal #lang prelude; read-module-body is not a procedure" - _%path135939%_ - _%pre136033%_ - _%proc136089%_)))) - _%$e136083%_) - _%default-read-module-body135941%_))) - (_%path-id136094%_ + _%path139695%_ + _%pre139789%_ + _%proc139845%_)))) + _%$e139839%_) + _%default-read-module-body139697%_))) + (_%path-id139850%_ (gx#core-module-path->namespace - _%path135939%_)) - (_%pkg-id136096%_ - (if _%pkg136035%_ + _%path139695%_)) + (_%pkg-id139852%_ + (if _%pkg139791%_ (##string-append - _%pkg136035%_ + _%pkg139791%_ '"/" - _%path-id136094%_) - _%path-id136094%_)) - (_%module-id136098%_ - (##string->symbol _%pkg-id136096%_)) - (_%module-ns136103%_ - (let ((_%$e136100%_ _%ns136034%_)) - (if _%$e136100%_ - _%$e136100%_ - _%pkg-id136096%_))) - (_%body136107%_ + _%path-id139850%_) + _%path-id139850%_)) + (_%module-id139854%_ + (##string->symbol _%pkg-id139852%_)) + (_%module-ns139859%_ + (let ((_%$e139856%_ _%ns139790%_)) + (if _%$e139856%_ + _%$e139856%_ + _%pkg-id139852%_))) + (_%body139863%_ (call-with-parameters__1 (lambda () (call-with-parameters__1 (lambda () - (_%read-module-body136092%_ - _%inp136027%_)) + (_%read-module-body139848%_ + _%inp139783%_)) gx#current-module-reader-args - _%args136031%_)) + _%args139787%_)) gx#current-module-reader-path - _%path135939%_))) - (values _%prelude136037%_ - _%module-id136098%_ - _%module-ns136103%_ - _%body136107%_))))))) - (_%string-e135943%_ - (lambda (_%obj136021%_ _%what136022%_) - (if (string? _%obj136021%_) - _%obj136021%_ - (if (symbol? _%obj136021%_) - (##symbol->string _%obj136021%_) + _%path139695%_))) + (values _%prelude139793%_ + _%module-id139854%_ + _%module-ns139859%_ + _%body139863%_))))))) + (_%string-e139699%_ + (lambda (_%obj139777%_ _%what139778%_) + (if (string? _%obj139777%_) + _%obj139777%_ + (if (symbol? _%obj139777%_) + (##symbol->string _%obj139777%_) (gx#raise-syntax-error '#f - (string-append '"Illegal module " _%what136022%_) - _%path135939%_ - _%obj136021%_))))) - (_%read-lang-args135944%_ - (lambda (_%inp135976%_ _%args135977%_) - (let* ((_%args135978135986%_ _%args135977%_) - (_%else135980135994%_ + (string-append '"Illegal module " _%what139778%_) + _%path139695%_ + _%obj139777%_))))) + (_%read-lang-args139700%_ + (lambda (_%inp139732%_ _%args139733%_) + (let* ((_%args139734139742%_ _%args139733%_) + (_%else139736139750%_ (lambda () (gx#raise-syntax-error '#f '"Illegal #lang arguments; missing prelude" - _%path135939%_))) - (_%K135982136009%_ - (lambda (_%args135997%_ _%prelude135998%_) - (let* ((_%pkg136000%_ - (pgetq__0 'package: _%args135997%_)) - (_%pkg136002%_ - (if _%pkg136000%_ - (_%string-e135943%_ - _%pkg136000%_ + _%path139695%_))) + (_%K139738139765%_ + (lambda (_%args139753%_ _%prelude139754%_) + (let* ((_%pkg139756%_ + (pgetq__0 'package: _%args139753%_)) + (_%pkg139758%_ + (if _%pkg139756%_ + (_%string-e139699%_ + _%pkg139756%_ '"package") '#f)) - (_%ns136004%_ - (pgetq__0 'namespace: _%args135997%_)) - (_%ns136006%_ - (if _%ns136004%_ - (_%string-e135943%_ - _%ns136004%_ + (_%ns139760%_ + (pgetq__0 'namespace: _%args139753%_)) + (_%ns139762%_ + (if _%ns139760%_ + (_%string-e139699%_ + _%ns139760%_ '"namespace") '#f))) - (_%read-body135942%_ - _%inp135976%_ - _%prelude135998%_ - _%ns136006%_ - _%pkg136002%_ - _%args135997%_))))) - (if (pair? _%args135978135986%_) - (let ((_%hd135983136012%_ - (##car _%args135978135986%_)) - (_%tl135984136014%_ - (##cdr _%args135978135986%_))) - (let* ((_%prelude136017%_ _%hd135983136012%_) - (_%args136019%_ _%tl135984136014%_)) - (_%K135982136009%_ - _%args136019%_ - _%prelude136017%_))) - (_%else135980135994%_))))) - (_%read-lang135945%_ - (lambda (_%inp135950%_) - (let* ((_%head135952%_ (read-line _%inp135950%_)) - (_%$e135954%_ - (string-index__0 _%head135952%_ '#\space))) - (if _%$e135954%_ - ((lambda (_%ix135957%_) - (let ((_%lang135959%_ + (_%read-body139698%_ + _%inp139732%_ + _%prelude139754%_ + _%ns139762%_ + _%pkg139758%_ + _%args139753%_))))) + (if (pair? _%args139734139742%_) + (let ((_%hd139739139768%_ + (##car _%args139734139742%_)) + (_%tl139740139770%_ + (##cdr _%args139734139742%_))) + (let* ((_%prelude139773%_ _%hd139739139768%_) + (_%args139775%_ _%tl139740139770%_)) + (_%K139738139765%_ + _%args139775%_ + _%prelude139773%_))) + (_%else139736139750%_))))) + (_%read-lang139701%_ + (lambda (_%inp139706%_) + (let* ((_%head139708%_ (read-line _%inp139706%_)) + (_%$e139710%_ + (string-index__0 _%head139708%_ '#\space))) + (if _%$e139710%_ + ((lambda (_%ix139713%_) + (let ((_%lang139715%_ (substring - _%head135952%_ + _%head139708%_ '0 - _%ix135957%_))) - (if (equal? _%lang135959%_ '"#lang") - (let* ((_%rest135961%_ + _%ix139713%_))) + (if (equal? _%lang139715%_ '"#lang") + (let* ((_%rest139717%_ (substring - _%head135952%_ - (##fx+ _%ix135957%_ '1) - (string-length _%head135952%_))) - (_%args135972%_ + _%head139708%_ + (##fx+ _%ix139713%_ '1) + (string-length _%head139708%_))) + (_%args139728%_ (__with-catch - (lambda (_%g135962135964%_) + (lambda (_%g139718139720%_) (gx#raise-syntax-error '#f '"Illegal #lang arguments" - _%path135939%_ - _%g135962135964%_)) + _%path139695%_ + _%g139718139720%_)) (lambda () (call-with-input-string - _%rest135961%_ - (lambda (_%g135967135969%_) + _%rest139717%_ + (lambda (_%g139723139725%_) (read-all - _%g135967135969%_ + _%g139723139725%_ read))))))) - (_%read-lang-args135944%_ - _%inp135950%_ - _%args135972%_)) + (_%read-lang-args139700%_ + _%inp139706%_ + _%args139728%_)) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path135939%_)))) - _%$e135954%_) + _%path139695%_)))) + _%$e139710%_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path135939%_))))) - (_%read-e135946%_ - (lambda (_%inp135948%_) - (if (eq? (peek-char _%inp135948%_) '#\#) - (_%read-lang135945%_ _%inp135948%_) + _%path139695%_))))) + (_%read-e139702%_ + (lambda (_%inp139704%_) + (if (eq? (peek-char _%inp139704%_) '#\#) + (_%read-lang139701%_ _%inp139704%_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path135939%_))))) - (gx#call-with-input-source-file _%path135939%_ _%read-e135946%_)))) + _%path139695%_))))) + (gx#call-with-input-source-file _%path139695%_ _%read-e139702%_)))) (define gx#core-read-module-package - (lambda (_%path135887%_ _%pre135888%_ _%ns135889%_) - (letrec ((_%string-e135891%_ - (lambda (_%e135934%_) - (if (symbol? _%e135934%_) - (##symbol->string _%e135934%_) - (if (string? _%e135934%_) - _%e135934%_ + (lambda (_%path139643%_ _%pre139644%_ _%ns139645%_) + (letrec ((_%string-e139647%_ + (lambda (_%e139690%_) + (if (symbol? _%e139690%_) + (##symbol->string _%e139690%_) + (if (string? _%e139690%_) + _%e139690%_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%e135934%_)))))) - (let _%lp135893%_ ((_%dir135895%_ (path-directory _%path135887%_)) - (_%pkg-path135896%_ '())) - (let ((_%gerbil.pkg135898%_ - (path-expand '"gerbil.pkg" _%dir135895%_))) - (if (##file-exists? _%gerbil.pkg135898%_) - (let ((_%plist135900%_ - (gx#core-library-package-plist__% _%dir135895%_ '#t))) - (if (null? _%plist135900%_) - (let ((_%pkg135903%_ - (if (null? _%pkg-path135896%_) + _%e139690%_)))))) + (let _%lp139649%_ ((_%dir139651%_ (path-directory _%path139643%_)) + (_%pkg-path139652%_ '())) + (let ((_%gerbil.pkg139654%_ + (path-expand '"gerbil.pkg" _%dir139651%_))) + (if (##file-exists? _%gerbil.pkg139654%_) + (let ((_%plist139656%_ + (gx#core-library-package-plist__% _%dir139651%_ '#t))) + (if (null? _%plist139656%_) + (let ((_%pkg139659%_ + (if (null? _%pkg-path139652%_) '#f - (string-join _%pkg-path135896%_ '"/")))) - (values _%pre135888%_ _%ns135889%_ _%pkg135903%_)) - (if (list? _%plist135900%_) - (let* ((_%root135906%_ - (pgetq__0 'package: _%plist135900%_)) - (_%pkg135910%_ - (let ((_%pkg-path135908%_ - (if _%root135906%_ - (cons (_%string-e135891%_ - _%root135906%_) - _%pkg-path135896%_) - _%pkg-path135896%_))) - (if (null? _%pkg-path135908%_) + (string-join _%pkg-path139652%_ '"/")))) + (values _%pre139644%_ _%ns139645%_ _%pkg139659%_)) + (if (list? _%plist139656%_) + (let* ((_%root139662%_ + (pgetq__0 'package: _%plist139656%_)) + (_%pkg139666%_ + (let ((_%pkg-path139664%_ + (if _%root139662%_ + (cons (_%string-e139647%_ + _%root139662%_) + _%pkg-path139652%_) + _%pkg-path139652%_))) + (if (null? _%pkg-path139664%_) '#f (string-join - _%pkg-path135908%_ + _%pkg-path139664%_ '"/")))) - (_%ns135917%_ - (let ((_%ns135915%_ - (let ((_%$e135912%_ _%ns135889%_)) - (if _%$e135912%_ - _%$e135912%_ + (_%ns139673%_ + (let ((_%ns139671%_ + (let ((_%$e139668%_ _%ns139645%_)) + (if _%$e139668%_ + _%$e139668%_ (pgetq__0 'namespace: - _%plist135900%_))))) - (if _%ns135915%_ - (_%string-e135891%_ _%ns135915%_) + _%plist139656%_))))) + (if _%ns139671%_ + (_%string-e139647%_ _%ns139671%_) '#f))) - (_%pre135922%_ - (let ((_%$e135919%_ _%pre135888%_)) - (if _%$e135919%_ - _%$e135919%_ + (_%pre139678%_ + (let ((_%$e139675%_ _%pre139644%_)) + (if _%$e139675%_ + _%$e139675%_ (pgetq__0 'prelude: - _%plist135900%_))))) - (values _%pre135922%_ - _%ns135917%_ - _%pkg135910%_)) + _%plist139656%_))))) + (values _%pre139678%_ + _%ns139673%_ + _%pkg139666%_)) (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%plist135900%_)))) - (let ((_%dir*135926%_ + _%plist139656%_)))) + (let ((_%dir*139682%_ (path-strip-trailing-directory-separator - _%dir135895%_))) - (if (or (__string-empty? _%dir*135926%_) - (equal? _%dir135895%_ _%dir*135926%_)) - (values _%pre135888%_ _%ns135889%_ '#f) - (let ((_%xpath135931%_ - (path-strip-directory _%dir*135926%_)) - (_%xdir135932%_ (path-directory _%dir*135926%_))) - (_%lp135893%_ - _%xdir135932%_ - (cons _%xpath135931%_ _%pkg-path135896%_))))))))))) + _%dir139651%_))) + (if (or (__string-empty? _%dir*139682%_) + (equal? _%dir139651%_ _%dir*139682%_)) + (values _%pre139644%_ _%ns139645%_ '#f) + (let ((_%xpath139687%_ + (path-strip-directory _%dir*139682%_)) + (_%xdir139688%_ (path-directory _%dir*139682%_))) + (_%lp139649%_ + _%xdir139688%_ + (cons _%xpath139687%_ _%pkg-path139652%_))))))))))) (define gx#core-module-path->namespace - (lambda (_%path135885%_) - (path-strip-extension (path-strip-directory _%path135885%_)))) + (lambda (_%path139641%_) + (path-strip-extension (path-strip-directory _%path139641%_)))) (define gx#core-module-path->id - (lambda (_%path135883%_) - (##string->symbol (gx#core-module-path->namespace _%path135883%_)))) + (lambda (_%path139639%_) + (##string->symbol (gx#core-module-path->namespace _%path139639%_)))) (define gx#core-resolve-module-path__% - (lambda (_%stx-path135862%_ _%rel135863%_) - (let* ((_%path135865%_ (gx#stx-e _%stx-path135862%_)) - (_%path135867%_ - (if (__string-empty? (path-extension _%path135865%_)) - (##string-append _%path135865%_ '".ss") - _%path135865%_))) + (lambda (_%stx-path139618%_ _%rel139619%_) + (let* ((_%path139621%_ (gx#stx-e _%stx-path139618%_)) + (_%path139623%_ + (if (__string-empty? (path-extension _%path139621%_)) + (##string-append _%path139621%_ '".ss") + _%path139621%_))) (gx#core-resolve-path__% - _%path135867%_ - (let ((_%$e135870%_ (gx#stx-source _%stx-path135862%_))) - (if _%$e135870%_ _%$e135870%_ _%rel135863%_)))))) + _%path139623%_ + (let ((_%$e139626%_ (gx#stx-source _%stx-path139618%_))) + (if _%$e139626%_ _%$e139626%_ _%rel139619%_)))))) (define gx#core-resolve-module-path__0 - (lambda (_%stx-path135876%_) - (let ((_%rel135878%_ '#f)) - (gx#core-resolve-module-path__% _%stx-path135876%_ _%rel135878%_)))) + (lambda (_%stx-path139632%_) + (let ((_%rel139634%_ '#f)) + (gx#core-resolve-module-path__% _%stx-path139632%_ _%rel139634%_)))) (define gx#core-resolve-module-path - (lambda _g137514_ - (let ((_g137515_ (##length _g137514_))) - (cond ((##fx= _g137515_ 1) - (apply gx#core-resolve-module-path__0 _g137514_)) - ((##fx= _g137515_ 2) - (apply gx#core-resolve-module-path__% _g137514_)) + (lambda _g141269_ + (let ((_g141270_ (##length _g141269_))) + (cond ((##fx= _g141270_ 1) + (apply gx#core-resolve-module-path__0 _g141269_)) + ((##fx= _g141270_ 2) + (apply gx#core-resolve-module-path__% _g141269_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-module-path - _g137514_)))))) + _g141269_)))))) (define gx#core-resolve-library-module-path - (lambda (_%libpath135747%_) - (let* ((_%spath135749%_ (symbol->string (gx#stx-e _%libpath135747%_))) - (_%spath135751%_ + (lambda (_%libpath139503%_) + (let* ((_%spath139505%_ (symbol->string (gx#stx-e _%libpath139503%_))) + (_%spath139507%_ (substring - _%spath135749%_ + _%spath139505%_ '1 - (##string-length _%spath135749%_))) - (_%ext135753%_ (path-extension _%spath135751%_)) - (_%ssi135755%_ - (if (__string-empty? _%ext135753%_) - (##string-append _%spath135751%_ '".ssi") + (##string-length _%spath139505%_))) + (_%ext139509%_ (path-extension _%spath139507%_)) + (_%ssi139511%_ + (if (__string-empty? _%ext139509%_) + (##string-append _%spath139507%_ '".ssi") (##string-append - (path-strip-extension _%spath135751%_) + (path-strip-extension _%spath139507%_) '".ssi"))) - (_%srcs135759%_ - (if (__string-empty? _%ext135753%_) - (##map (lambda (_%ext135757%_) - (string-append _%spath135751%_ _%ext135757%_)) + (_%srcs139515%_ + (if (__string-empty? _%ext139509%_) + (##map (lambda (_%ext139513%_) + (string-append _%spath139507%_ _%ext139513%_)) '(".ss" ".sld" ".scm")) - (cons _%spath135751%_ '())))) - (let _%lp135762%_ ((_%rest135764%_ (load-path))) - (let* ((_%rest135765135774%_ _%rest135764%_) - (_%E135768135778%_ + (cons _%spath139507%_ '())))) + (let _%lp139518%_ ((_%rest139520%_ (load-path))) + (let* ((_%rest139521139530%_ _%rest139520%_) + (_%E139524139534%_ (lambda () (error '"No clause matching" - _%rest135765135774%_ + _%rest139521139530%_ '([dir . rest]) '([])) '#!void))) - (let ((_%K135770135849%_ - (lambda (_%rest135789%_ _%dir135790%_) - (letrec ((_%resolve135792%_ - (lambda (_%ssi135805%_ _%srcs135806%_) - (let ((_%compiled-path135808%_ + (let ((_%K139526139605%_ + (lambda (_%rest139545%_ _%dir139546%_) + (letrec ((_%resolve139548%_ + (lambda (_%ssi139561%_ _%srcs139562%_) + (let ((_%compiled-path139564%_ (path-expand - _%ssi135805%_ - _%dir135790%_))) + _%ssi139561%_ + _%dir139546%_))) (if (##file-exists? - _%compiled-path135808%_) + _%compiled-path139564%_) (path-normalize - _%compiled-path135808%_) - (let _%lpr135810%_ ((_%rest-src135812%_ - _%srcs135806%_)) - (let* ((_%rest-src135813135821%_ - _%rest-src135812%_) - (_%else135815135829%_ + _%compiled-path139564%_) + (let _%lpr139566%_ ((_%rest-src139568%_ + _%srcs139562%_)) + (let* ((_%rest-src139569139577%_ + _%rest-src139568%_) + (_%else139571139585%_ (lambda () - (_%lp135762%_ - _%rest135789%_))) - (_%K135817135837%_ - (lambda (_%rest-src135832%_ - _%src135833%_) - (let ((_%src-path135835%_ + (_%lp139518%_ + _%rest139545%_))) + (_%K139573139593%_ + (lambda (_%rest-src139588%_ + _%src139589%_) + (let ((_%src-path139591%_ (path-expand - _%src135833%_ - _%dir135790%_))) + _%src139589%_ + _%dir139546%_))) (if (##file-exists? - _%src-path135835%_) + _%src-path139591%_) (path-normalize - _%src-path135835%_) - (_%lpr135810%_ - _%rest-src135832%_)))))) - (if (pair? _%rest-src135813135821%_) - (let ((_%hd135818135840%_ - (##car _%rest-src135813135821%_)) - (_%tl135819135842%_ - (##cdr _%rest-src135813135821%_))) - (let* ((_%src135845%_ - _%hd135818135840%_) - (_%rest-src135847%_ - _%tl135819135842%_)) - (_%K135817135837%_ - _%rest-src135847%_ - _%src135845%_))) - (_%else135815135829%_))))))))) - (let ((_%$e135794%_ + _%src-path139591%_) + (_%lpr139566%_ + _%rest-src139588%_)))))) + (if (pair? _%rest-src139569139577%_) + (let ((_%hd139574139596%_ + (##car _%rest-src139569139577%_)) + (_%tl139575139598%_ + (##cdr _%rest-src139569139577%_))) + (let* ((_%src139601%_ + _%hd139574139596%_) + (_%rest-src139603%_ + _%tl139575139598%_)) + (_%K139573139593%_ + _%rest-src139603%_ + _%src139601%_))) + (_%else139571139585%_))))))))) + (let ((_%$e139550%_ (gx#core-library-package-path-prefix - _%dir135790%_))) - (if _%$e135794%_ - ((lambda (_%prefix135797%_) + _%dir139546%_))) + (if _%$e139550%_ + ((lambda (_%prefix139553%_) (if (string-prefix? - _%prefix135797%_ - _%spath135751%_) - (let ((_%ssi135801%_ + _%prefix139553%_ + _%spath139507%_) + (let ((_%ssi139557%_ (substring - _%ssi135755%_ - (string-length _%prefix135797%_) - (##string-length _%ssi135755%_))) - (_%srcs135802%_ - (##map (lambda (_%src135799%_) + _%ssi139511%_ + (string-length _%prefix139553%_) + (##string-length _%ssi139511%_))) + (_%srcs139558%_ + (##map (lambda (_%src139555%_) (substring - _%src135799%_ + _%src139555%_ (string-length - _%prefix135797%_) + _%prefix139553%_) (string-length - _%src135799%_))) - _%srcs135759%_))) - (_%resolve135792%_ - _%ssi135801%_ - _%srcs135802%_)) - (_%lp135762%_ _%rest135789%_))) - _%$e135794%_) - (_%resolve135792%_ - _%ssi135755%_ - _%srcs135759%_)))))) - (_%K135769135783%_ + _%src139555%_))) + _%srcs139515%_))) + (_%resolve139548%_ + _%ssi139557%_ + _%srcs139558%_)) + (_%lp139518%_ _%rest139545%_))) + _%$e139550%_) + (_%resolve139548%_ + _%ssi139511%_ + _%srcs139515%_)))))) + (_%K139525139539%_ (lambda () (gx#raise-syntax-error '#f '"cannot find library module" - _%libpath135747%_)))) - (let ((_%try-match135767135786%_ + _%libpath139503%_)))) + (let ((_%try-match139523139542%_ (lambda () - (if (null? _%rest135765135774%_) - (_%K135769135783%_) - (_%E135768135778%_))))) - (if (pair? _%rest135765135774%_) - (let ((_%tl135772135854%_ (##cdr _%rest135765135774%_)) - (_%hd135771135852%_ (##car _%rest135765135774%_))) - (let ((_%dir135857%_ _%hd135771135852%_) - (_%rest135859%_ _%tl135772135854%_)) - (_%K135770135849%_ _%rest135859%_ _%dir135857%_))) - (_%try-match135767135786%_))))))))) + (if (null? _%rest139521139530%_) + (_%K139525139539%_) + (_%E139524139534%_))))) + (if (pair? _%rest139521139530%_) + (let ((_%tl139528139610%_ (##cdr _%rest139521139530%_)) + (_%hd139527139608%_ (##car _%rest139521139530%_))) + (let ((_%dir139613%_ _%hd139527139608%_) + (_%rest139615%_ _%tl139528139610%_)) + (_%K139526139605%_ _%rest139615%_ _%dir139613%_))) + (_%try-match139523139542%_))))))))) (define gx#core-resolve-library-relative-module-path - (lambda (_%modpath135715%_) - (letrec ((_%resolve135717%_ - (lambda (_%path135738%_ _%base135739%_) - (let ((_%$e135741%_ - (string-rindex__0 _%base135739%_ '#\/))) - (if _%$e135741%_ - ((lambda (_%idx135744%_) + (lambda (_%modpath139471%_) + (letrec ((_%resolve139473%_ + (lambda (_%path139494%_ _%base139495%_) + (let ((_%$e139497%_ + (string-rindex__0 _%base139495%_ '#\/))) + (if _%$e139497%_ + ((lambda (_%idx139500%_) (gx#core-resolve-library-module-path (##string->symbol (string-append '":" - (substring _%base135739%_ '0 _%idx135744%_) + (substring _%base139495%_ '0 _%idx139500%_) '"/" - _%path135738%_)))) - _%$e135741%_) + _%path139494%_)))) + _%$e139497%_) (gx#core-resolve-library-module-path (##string->symbol - (string-append '":" _%path135738%_)))))))) - (let ((_%spath135719%_ (symbol->string (gx#stx-e _%modpath135715%_))) - (_%mod135720%_ + (string-append '":" _%path139494%_)))))))) + (let ((_%spath139475%_ (symbol->string (gx#stx-e _%modpath139471%_))) + (_%mod139476%_ (gx#core-context-top__% (gx#current-expander-context) gx#module-context?))) - (if _%mod135720%_ + (if _%mod139476%_ '#!void (gx#raise-syntax-error '#f '"cannot resolve relative module path; not in module context" - _%modpath135715%_)) - (let ((_%mpath135722%_ + _%modpath139471%_)) + (let ((_%mpath139478%_ (symbol->string (##structure-ref - _%mod135720%_ + _%mod139476%_ '1 gx#expander-context::t '#f)))) - (let _%lp135724%_ ((_%spath135726%_ _%spath135719%_) - (_%mpath135727%_ _%mpath135722%_)) - (if (string-prefix? '"../" _%spath135726%_) - (let ((_%$e135730%_ - (string-rindex__0 _%mpath135727%_ '#\/))) - (if _%$e135730%_ - ((lambda (_%idx135733%_) - (_%lp135724%_ + (let _%lp139480%_ ((_%spath139482%_ _%spath139475%_) + (_%mpath139483%_ _%mpath139478%_)) + (if (string-prefix? '"../" _%spath139482%_) + (let ((_%$e139486%_ + (string-rindex__0 _%mpath139483%_ '#\/))) + (if _%$e139486%_ + ((lambda (_%idx139489%_) + (_%lp139480%_ (substring - _%spath135726%_ + _%spath139482%_ '3 - (string-length _%spath135726%_)) - (substring _%mpath135727%_ '0 _%idx135733%_))) - _%$e135730%_) + (string-length _%spath139482%_)) + (substring _%mpath139483%_ '0 _%idx139489%_))) + _%$e139486%_) (gx#raise-syntax-error '#f '"cannot resolve relative module path; illegal traversal" - _%modpath135715%_))) - (if (string-prefix? '"./" _%spath135726%_) - (_%lp135724%_ + _%modpath139471%_))) + (if (string-prefix? '"./" _%spath139482%_) + (_%lp139480%_ (substring - _%spath135726%_ + _%spath139482%_ '2 - (string-length _%spath135726%_)) - _%mpath135727%_) - (_%resolve135717%_ - _%spath135726%_ - _%mpath135727%_))))))))) + (string-length _%spath139482%_)) + _%mpath139483%_) + (_%resolve139473%_ + _%spath139482%_ + _%mpath139483%_))))))))) (define gx#core-library-package-path-prefix - (lambda (_%dir135707%_) - (let ((_%$e135709%_ + (lambda (_%dir139463%_) + (let ((_%$e139465%_ (pgetq__0 'package: - (gx#core-library-package-plist__0 _%dir135707%_)))) - (if _%$e135709%_ - ((lambda (_%pkg135712%_) - (##string-append (symbol->string _%pkg135712%_) '"/")) - _%$e135709%_) + (gx#core-library-package-plist__0 _%dir139463%_)))) + (if _%$e139465%_ + ((lambda (_%pkg139468%_) + (##string-append (symbol->string _%pkg139468%_) '"/")) + _%$e139465%_) '#f)))) (define gx#core-library-package-plist__% - (lambda (_%dir135677%_ _%exists?135678%_) - (let ((_%$e135680%_ (__hash-get gx#__module-pkg-cache _%dir135677%_))) - (if _%$e135680%_ - _%$e135680%_ - (let* ((_%gerbil.pkg135684%_ - (path-expand '"gerbil.pkg" _%dir135677%_)) - (_%plist135694%_ - (if (or _%exists?135678%_ - (##file-exists? _%gerbil.pkg135684%_)) - (let ((_%e135689%_ + (lambda (_%dir139433%_ _%exists?139434%_) + (let ((_%$e139436%_ (__hash-get gx#__module-pkg-cache _%dir139433%_))) + (if _%$e139436%_ + _%$e139436%_ + (let* ((_%gerbil.pkg139440%_ + (path-expand '"gerbil.pkg" _%dir139433%_)) + (_%plist139450%_ + (if (or _%exists?139434%_ + (##file-exists? _%gerbil.pkg139440%_)) + (let ((_%e139445%_ (gx#call-with-input-source-file - _%gerbil.pkg135684%_ + _%gerbil.pkg139440%_ read))) - (if (eof-object? _%e135689%_) + (if (eof-object? _%e139445%_) '() - (if (list? _%e135689%_) - _%e135689%_ + (if (list? _%e139445%_) + _%e139445%_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%gerbil.pkg135684%_ - _%e135689%_)))) + _%gerbil.pkg139440%_ + _%e139445%_)))) '()))) (__hash-put! gx#__module-pkg-cache - _%dir135677%_ - _%plist135694%_) - _%plist135694%_))))) + _%dir139433%_ + _%plist139450%_) + _%plist139450%_))))) (define gx#core-library-package-plist__0 - (lambda (_%dir135700%_) - (let ((_%exists?135702%_ '#f)) - (gx#core-library-package-plist__% _%dir135700%_ _%exists?135702%_)))) + (lambda (_%dir139456%_) + (let ((_%exists?139458%_ '#f)) + (gx#core-library-package-plist__% _%dir139456%_ _%exists?139458%_)))) (define gx#core-library-package-plist - (lambda _g137516_ - (let ((_g137517_ (##length _g137516_))) - (cond ((##fx= _g137517_ 1) - (apply gx#core-library-package-plist__0 _g137516_)) - ((##fx= _g137517_ 2) - (apply gx#core-library-package-plist__% _g137516_)) + (lambda _g141271_ + (let ((_g141272_ (##length _g141271_))) + (cond ((##fx= _g141272_ 1) + (apply gx#core-library-package-plist__0 _g141271_)) + ((##fx= _g141272_ 2) + (apply gx#core-library-package-plist__% _g141271_)) (else (##raise-wrong-number-of-arguments-exception gx#core-library-package-plist - _g137516_)))))) + _g141271_)))))) (define gx#core-library-module-path? - (lambda (_%stx135674%_) - (gx#core-special-module-path? _%stx135674%_ '#\:))) + (lambda (_%stx139430%_) + (gx#core-special-module-path? _%stx139430%_ '#\:))) (define gx#core-library-relative-module-path? - (lambda (_%stx135672%_) - (gx#core-special-module-path? _%stx135672%_ '#\.))) + (lambda (_%stx139428%_) + (gx#core-special-module-path? _%stx139428%_ '#\.))) (define gx#core-special-module-path? - (lambda (_%stx135667%_ _%char135668%_) - (if (gx#identifier? _%stx135667%_) - (if (interned-symbol? (gx#stx-e _%stx135667%_)) - (let ((_%str135670%_ - (symbol->string (gx#stx-e _%stx135667%_)))) - (if (##fx> (##string-length _%str135670%_) '1) - (eq? (string-ref _%str135670%_ '0) _%char135668%_) + (lambda (_%stx139423%_ _%char139424%_) + (if (gx#identifier? _%stx139423%_) + (if (interned-symbol? (gx#stx-e _%stx139423%_)) + (let ((_%str139426%_ + (symbol->string (gx#stx-e _%stx139423%_)))) + (if (##fx> (##string-length _%str139426%_) '1) + (eq? (string-ref _%str139426%_ '0) _%char139424%_) '#f)) '#f) '#f))) (define gx#core-bound-prelude? - (lambda (_%stx135661%_) + (lambda (_%stx139417%_) (gx#core-bound-identifier?__% - _%stx135661%_ - (lambda (_%g135662135664%_) - (gx#expander-binding?__% _%g135662135664%_ gx#prelude-context?))))) + _%stx139417%_ + (lambda (_%g139418139420%_) + (gx#expander-binding?__% _%g139418139420%_ gx#prelude-context?))))) (define gx#core-bound-module? - (lambda (_%stx135655%_) + (lambda (_%stx139411%_) (gx#core-bound-identifier?__% - _%stx135655%_ - (lambda (_%g135656135658%_) - (gx#expander-binding?__% _%g135656135658%_ gx#module-context?))))) + _%stx139411%_ + (lambda (_%g139412139414%_) + (gx#expander-binding?__% _%g139412139414%_ gx#module-context?))))) (define gx#core-bound-module-prelude? - (lambda (_%stx135642%_) - (letrec ((_%module-prelude?135644%_ - (lambda (_%e135650%_) - (let ((_%$e135652%_ + (lambda (_%stx139398%_) + (letrec ((_%module-prelude?139400%_ + (lambda (_%e139406%_) + (let ((_%$e139408%_ (##structure-instance-of? - _%e135650%_ + _%e139406%_ 'gx#module-context::t))) - (if _%$e135652%_ - _%$e135652%_ + (if _%$e139408%_ + _%$e139408%_ (##structure-instance-of? - _%e135650%_ + _%e139406%_ 'gx#prelude-context::t)))))) (gx#core-bound-identifier?__% - _%stx135642%_ - (lambda (_%g135645135647%_) + _%stx139398%_ + (lambda (_%g139401139403%_) (gx#expander-binding?__% - _%g135645135647%_ - _%module-prelude?135644%_)))))) + _%g139401139403%_ + _%module-prelude?139400%_)))))) (define gx#core-bind-import!__% - (lambda (_%in135572%_ _%ctx135573%_ _%force-weak?135574%_) - (let* ((_%in135575135584%_ _%in135572%_) - (_%E135577135588%_ + (lambda (_%in139329%_ _%ctx139330%_ _%force-weak?139331%_) + (let* ((_%in139332139341%_ _%in139329%_) + (_%E139334139344%_ (lambda () (error '"No clause matching" - _%in135575135584%_ + _%in139332139341%_ '((module-import source key phi weak?))) '#!void)) - (_%K135578135601%_ - (lambda (_%weak?135591%_ - _%phi135592%_ - _%key135593%_ - _%source135594%_) + (_%K139335139357%_ + (lambda (_%weak?139347%_ + _%phi139348%_ + _%key139349%_ + _%source139350%_) (gx#core-bind!__% - _%key135593%_ - (let ((_%e135596%_ - (gx#core-resolve-module-export _%source135594%_))) + _%key139349%_ + (let ((_%e139352%_ + (gx#core-resolve-module-export _%source139350%_))) (##structure gx#import-binding::t - (##unchecked-structure-ref _%e135596%_ '1 '#f '#f) - _%key135593%_ - _%phi135592%_ - _%e135596%_ - (##unchecked-structure-ref _%source135594%_ '1 '#f '#f) - (let ((_%$e135598%_ _%force-weak?135574%_)) - (if _%$e135598%_ _%$e135598%_ _%weak?135591%_)))) + (##unchecked-structure-ref _%e139352%_ '1 '#f '#f) + _%key139349%_ + _%phi139348%_ + _%e139352%_ + (##unchecked-structure-ref _%source139350%_ '1 '#f '#f) + (let ((_%$e139354%_ _%force-weak?139331%_)) + (if _%$e139354%_ _%$e139354%_ _%weak?139347%_)))) gx#core-context-rebind? - _%phi135592%_ - _%ctx135573%_)))) + _%phi139348%_ + _%ctx139330%_)))) (if (##structure-direct-instance-of? - _%in135575135584%_ + _%in139332139341%_ 'gx#module-import::t) - (let* ((_%e135579135604%_ + (let* ((_%e139336139360%_ (##unchecked-structure-ref - _%in135575135584%_ + _%in139332139341%_ '1 '#f '#f)) - (_%source135607%_ _%e135579135604%_) - (_%e135580135609%_ + (_%source139363%_ _%e139336139360%_) + (_%e139337139365%_ (##unchecked-structure-ref - _%in135575135584%_ + _%in139332139341%_ '2 '#f '#f)) - (_%key135612%_ _%e135580135609%_) - (_%e135581135614%_ + (_%key139368%_ _%e139337139365%_) + (_%e139338139370%_ (##unchecked-structure-ref - _%in135575135584%_ + _%in139332139341%_ '3 '#f '#f)) - (_%phi135617%_ _%e135581135614%_) - (_%e135582135619%_ + (_%phi139373%_ _%e139338139370%_) + (_%e139339139375%_ (##unchecked-structure-ref - _%in135575135584%_ + _%in139332139341%_ '4 '#f '#f)) - (_%weak?135622%_ _%e135582135619%_)) - (_%K135578135601%_ - _%weak?135622%_ - _%phi135617%_ - _%key135612%_ - _%source135607%_)) - (_%E135577135588%_))))) + (_%weak?139378%_ _%e139339139375%_)) + (_%K139335139357%_ + _%weak?139378%_ + _%phi139373%_ + _%key139368%_ + _%source139363%_)) + (_%E139334139344%_))))) (define gx#core-bind-import!__0 - (lambda (_%in135627%_) - (let* ((_%ctx135629%_ (gx#current-expander-context)) - (_%force-weak?135631%_ '#f)) + (lambda (_%in139383%_) + (let* ((_%ctx139385%_ (gx#current-expander-context)) + (_%force-weak?139387%_ '#f)) (gx#core-bind-import!__% - _%in135627%_ - _%ctx135629%_ - _%force-weak?135631%_)))) + _%in139383%_ + _%ctx139385%_ + _%force-weak?139387%_)))) (define gx#core-bind-import!__1 - (lambda (_%in135633%_ _%ctx135634%_) - (let ((_%force-weak?135636%_ '#f)) + (lambda (_%in139389%_ _%ctx139390%_) + (let ((_%force-weak?139392%_ '#f)) (gx#core-bind-import!__% - _%in135633%_ - _%ctx135634%_ - _%force-weak?135636%_)))) + _%in139389%_ + _%ctx139390%_ + _%force-weak?139392%_)))) (define gx#core-bind-import! - (lambda _g137518_ - (let ((_g137519_ (##length _g137518_))) - (cond ((##fx= _g137519_ 1) (apply gx#core-bind-import!__0 _g137518_)) - ((##fx= _g137519_ 2) (apply gx#core-bind-import!__1 _g137518_)) - ((##fx= _g137519_ 3) (apply gx#core-bind-import!__% _g137518_)) + (lambda _g141273_ + (let ((_g141274_ (##length _g141273_))) + (cond ((##fx= _g141274_ 1) (apply gx#core-bind-import!__0 _g141273_)) + ((##fx= _g141274_ 2) (apply gx#core-bind-import!__1 _g141273_)) + ((##fx= _g141274_ 3) (apply gx#core-bind-import!__% _g141273_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-import! - _g137518_)))))) + _g141273_)))))) (define gx#core-bind-weak-import!__% - (lambda (_%in135558%_ _%ctx135559%_) - (gx#core-bind-import!__% _%in135558%_ _%ctx135559%_ '#t))) + (lambda (_%in139315%_ _%ctx139316%_) + (gx#core-bind-import!__% _%in139315%_ _%ctx139316%_ '#t))) (define gx#core-bind-weak-import!__0 - (lambda (_%in135564%_) - (let ((_%ctx135566%_ (gx#current-expander-context))) - (gx#core-bind-weak-import!__% _%in135564%_ _%ctx135566%_)))) + (lambda (_%in139321%_) + (let ((_%ctx139323%_ (gx#current-expander-context))) + (gx#core-bind-weak-import!__% _%in139321%_ _%ctx139323%_)))) (define gx#core-bind-weak-import! - (lambda _g137520_ - (let ((_g137521_ (##length _g137520_))) - (cond ((##fx= _g137521_ 1) - (apply gx#core-bind-weak-import!__0 _g137520_)) - ((##fx= _g137521_ 2) - (apply gx#core-bind-weak-import!__% _g137520_)) + (lambda _g141275_ + (let ((_g141276_ (##length _g141275_))) + (cond ((##fx= _g141276_ 1) + (apply gx#core-bind-weak-import!__0 _g141275_)) + ((##fx= _g141276_ 2) + (apply gx#core-bind-weak-import!__% _g141275_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-weak-import! - _g137520_)))))) + _g141275_)))))) (define gx#core-resolve-module-export - (lambda (_%out135449%_) - (letrec ((_%subst135451%_ - (lambda (_%key135497%_) - (let* ((_%key135498135506%_ _%key135497%_) - (_%else135500135514%_ (lambda () _%key135497%_)) - (_%K135502135545%_ - (lambda (_%mark135517%_ _%id135518%_) - (let* ((_%mark135519135525%_ _%mark135517%_) - (_%E135521135529%_ + (lambda (_%out139208%_) + (letrec ((_%subst139210%_ + (lambda (_%key139255%_) + (let* ((_%key139256139264%_ _%key139255%_) + (_%else139258139272%_ (lambda () _%key139255%_)) + (_%K139260139302%_ + (lambda (_%mark139275%_ _%id139276%_) + (let* ((_%mark139277139283%_ _%mark139275%_) + (_%E139279139286%_ (lambda () (error '"No clause matching" - _%mark135519135525%_ + _%mark139277139283%_ '((expander-mark subst))) '#!void)) - (_%K135522135537%_ - (lambda (_%subst135532%_) - (let ((_%$e135534%_ - (if _%subst135532%_ + (_%K139280139294%_ + (lambda (_%subst139289%_) + (let ((_%$e139291%_ + (if _%subst139289%_ (hash-get - _%subst135532%_ - _%id135518%_) + _%subst139289%_ + _%id139276%_) '#f))) - (if _%$e135534%_ - _%$e135534%_ + (if _%$e139291%_ + _%$e139291%_ (gx#raise-syntax-error '#f '"Illegal key; missing substitution" - _%key135497%_)))))) + _%key139255%_)))))) (if (##structure-instance-of? - _%mark135519135525%_ + _%mark139277139283%_ 'gx#expander-mark::t) - (let* ((_%e135523135540%_ + (let* ((_%e139281139297%_ (##unchecked-structure-ref - _%mark135519135525%_ + _%mark139277139283%_ '1 '#f '#f)) - (_%subst135543%_ _%e135523135540%_)) - (_%K135522135537%_ _%subst135543%_)) - (_%E135521135529%_)))))) - (if (pair? _%key135498135506%_) - (let ((_%hd135503135548%_ - (##car _%key135498135506%_)) - (_%tl135504135550%_ - (##cdr _%key135498135506%_))) - (let* ((_%id135553%_ _%hd135503135548%_) - (_%mark135555%_ _%tl135504135550%_)) - (_%K135502135545%_ _%mark135555%_ _%id135553%_))) - (_%else135500135514%_)))))) - (let* ((_%out135452135462%_ _%out135449%_) - (_%E135454135466%_ + (_%subst139300%_ _%e139281139297%_)) + (_%K139280139294%_ _%subst139300%_)) + (_%E139279139286%_)))))) + (if (pair? _%key139256139264%_) + (let ((_%hd139261139305%_ + (##car _%key139256139264%_)) + (_%tl139262139307%_ + (##cdr _%key139256139264%_))) + (let* ((_%id139310%_ _%hd139261139305%_) + (_%mark139312%_ _%tl139262139307%_)) + (_%K139260139302%_ _%mark139312%_ _%id139310%_))) + (_%else139258139272%_)))))) + (let* ((_%out139211139221%_ _%out139208%_) + (_%E139213139224%_ (lambda () (error '"No clause matching" - _%out135452135462%_ + _%out139211139221%_ '((module-export ctx key phi _ _))) '#!void)) - (_%K135455135473%_ - (lambda (_%phi135469%_ _%key135470%_ _%ctx135471%_) + (_%K139214139231%_ + (lambda (_%phi139227%_ _%key139228%_ _%ctx139229%_) (gx#core-context-resolve - (gx#core-context-shift _%ctx135471%_ _%phi135469%_) - (_%subst135451%_ _%key135470%_))))) + (gx#core-context-shift _%ctx139229%_ _%phi139227%_) + (_%subst139210%_ _%key139228%_))))) (if (##structure-direct-instance-of? - _%out135452135462%_ + _%out139211139221%_ 'gx#module-export::t) - (let* ((_%e135456135476%_ + (let* ((_%e139215139234%_ (##unchecked-structure-ref - _%out135452135462%_ + _%out139211139221%_ '1 '#f '#f)) - (_%ctx135479%_ _%e135456135476%_) - (_%e135457135481%_ + (_%ctx139237%_ _%e139215139234%_) + (_%e139216139239%_ (##unchecked-structure-ref - _%out135452135462%_ + _%out139211139221%_ '2 '#f '#f)) - (_%key135484%_ _%e135457135481%_) - (_%e135458135486%_ + (_%key139242%_ _%e139216139239%_) + (_%e139217139244%_ (##unchecked-structure-ref - _%out135452135462%_ + _%out139211139221%_ '3 '#f '#f)) - (_%phi135489%_ _%e135458135486%_) - (_%e135459135491%_ + (_%phi139247%_ _%e139217139244%_) + (_%e139218139249%_ (##unchecked-structure-ref - _%out135452135462%_ + _%out139211139221%_ '4 '#f '#f)) - (_%e135460135494%_ + (_%e139219139252%_ (##unchecked-structure-ref - _%out135452135462%_ + _%out139211139221%_ '5 '#f '#f))) - (_%K135455135473%_ - _%phi135489%_ - _%key135484%_ - _%ctx135479%_)) - (_%E135454135466%_)))))) + (_%K139214139231%_ + _%phi139247%_ + _%key139242%_ + _%ctx139237%_)) + (_%E139213139224%_)))))) (define gx#core-module-export->import__% - (lambda (_%out135374%_ _%rename135375%_ _%dphi135376%_) - (let* ((_%out135377135387%_ _%out135374%_) - (_%E135379135391%_ + (lambda (_%out139134%_ _%rename139135%_ _%dphi139136%_) + (let* ((_%out139137139147%_ _%out139134%_) + (_%E139139139150%_ (lambda () (error '"No clause matching" - _%out135377135387%_ + _%out139137139147%_ '((module-export ctx key phi name weak?))) '#!void)) - (_%K135380135403%_ - (lambda (_%weak?135394%_ - _%name135395%_ - _%phi135396%_ - _%key135397%_ - _%ctx135398%_) + (_%K139140139162%_ + (lambda (_%weak?139153%_ + _%name139154%_ + _%phi139155%_ + _%key139156%_ + _%ctx139157%_) (##structure gx#module-import::t - _%out135374%_ - (let ((_%$e135400%_ _%rename135375%_)) - (if _%$e135400%_ _%$e135400%_ _%name135395%_)) - (fx+ _%phi135396%_ _%dphi135376%_) - _%weak?135394%_)))) + _%out139134%_ + (let ((_%$e139159%_ _%rename139135%_)) + (if _%$e139159%_ _%$e139159%_ _%name139154%_)) + (fx+ _%phi139155%_ _%dphi139136%_) + _%weak?139153%_)))) (if (##structure-direct-instance-of? - _%out135377135387%_ + _%out139137139147%_ 'gx#module-export::t) - (let* ((_%e135381135406%_ + (let* ((_%e139141139165%_ (##unchecked-structure-ref - _%out135377135387%_ + _%out139137139147%_ '1 '#f '#f)) - (_%ctx135409%_ _%e135381135406%_) - (_%e135382135411%_ + (_%ctx139168%_ _%e139141139165%_) + (_%e139142139170%_ (##unchecked-structure-ref - _%out135377135387%_ + _%out139137139147%_ '2 '#f '#f)) - (_%key135414%_ _%e135382135411%_) - (_%e135383135416%_ + (_%key139173%_ _%e139142139170%_) + (_%e139143139175%_ (##unchecked-structure-ref - _%out135377135387%_ + _%out139137139147%_ '3 '#f '#f)) - (_%phi135419%_ _%e135383135416%_) - (_%e135384135421%_ + (_%phi139178%_ _%e139143139175%_) + (_%e139144139180%_ (##unchecked-structure-ref - _%out135377135387%_ + _%out139137139147%_ '4 '#f '#f)) - (_%name135424%_ _%e135384135421%_) - (_%e135385135426%_ + (_%name139183%_ _%e139144139180%_) + (_%e139145139185%_ (##unchecked-structure-ref - _%out135377135387%_ + _%out139137139147%_ '5 '#f '#f)) - (_%weak?135429%_ _%e135385135426%_)) - (_%K135380135403%_ - _%weak?135429%_ - _%name135424%_ - _%phi135419%_ - _%key135414%_ - _%ctx135409%_)) - (_%E135379135391%_))))) + (_%weak?139188%_ _%e139145139185%_)) + (_%K139140139162%_ + _%weak?139188%_ + _%name139183%_ + _%phi139178%_ + _%key139173%_ + _%ctx139168%_)) + (_%E139139139150%_))))) (define gx#core-module-export->import__0 - (lambda (_%out135434%_) - (let* ((_%rename135436%_ '#f) (_%dphi135438%_ '0)) + (lambda (_%out139193%_) + (let* ((_%rename139195%_ '#f) (_%dphi139197%_ '0)) (gx#core-module-export->import__% - _%out135434%_ - _%rename135436%_ - _%dphi135438%_)))) + _%out139193%_ + _%rename139195%_ + _%dphi139197%_)))) (define gx#core-module-export->import__1 - (lambda (_%out135440%_ _%rename135441%_) - (let ((_%dphi135443%_ '0)) + (lambda (_%out139199%_ _%rename139200%_) + (let ((_%dphi139202%_ '0)) (gx#core-module-export->import__% - _%out135440%_ - _%rename135441%_ - _%dphi135443%_)))) + _%out139199%_ + _%rename139200%_ + _%dphi139202%_)))) (define gx#core-module-export->import - (lambda _g137522_ - (let ((_g137523_ (##length _g137522_))) - (cond ((##fx= _g137523_ 1) - (apply gx#core-module-export->import__0 _g137522_)) - ((##fx= _g137523_ 2) - (apply gx#core-module-export->import__1 _g137522_)) - ((##fx= _g137523_ 3) - (apply gx#core-module-export->import__% _g137522_)) + (lambda _g141277_ + (let ((_g141278_ (##length _g141277_))) + (cond ((##fx= _g141278_ 1) + (apply gx#core-module-export->import__0 _g141277_)) + ((##fx= _g141278_ 2) + (apply gx#core-module-export->import__1 _g141277_)) + ((##fx= _g141278_ 3) + (apply gx#core-module-export->import__% _g141277_)) (else (##raise-wrong-number-of-arguments-exception gx#core-module-export->import - _g137522_)))))) + _g141277_)))))) (define gx#core-expand-module% - (lambda (_%stx135273%_) - (letrec ((_%make-context135275%_ - (lambda (_%id135352%_) - (let* ((_%super135354%_ (gx#current-expander-context)) - (_%bind-id135356%_ (gx#stx-e _%id135352%_)) - (_%mod-id135358%_ + (lambda (_%stx139033%_) + (letrec ((_%make-context139035%_ + (lambda (_%id139112%_) + (let* ((_%super139114%_ (gx#current-expander-context)) + (_%bind-id139116%_ (gx#stx-e _%id139112%_)) + (_%mod-id139118%_ (if (##structure-instance-of? - _%super135354%_ + _%super139114%_ 'gx#module-context::t) (make-symbol__1 (##unchecked-structure-ref - _%super135354%_ + _%super139114%_ '1 '#f '#f) '"~" - _%bind-id135356%_) - _%bind-id135356%_)) - (_%ns135360%_ (symbol->string _%mod-id135358%_)) - (_%path135370%_ + _%bind-id139116%_) + _%bind-id139116%_)) + (_%ns139120%_ (symbol->string _%mod-id139118%_)) + (_%path139130%_ (if (##structure-instance-of? - _%super135354%_ + _%super139114%_ 'gx#module-context::t) - (let ((_%path135362%_ + (let ((_%path139122%_ (##unchecked-structure-ref - _%super135354%_ + _%super139114%_ '7 '#f '#f))) - (if (or (pair? _%path135362%_) - (null? _%path135362%_)) - (cons _%bind-id135356%_ _%path135362%_) - (if (not _%path135362%_) - _%bind-id135356%_ - (cons _%bind-id135356%_ - (cons _%path135362%_ '()))))) - _%bind-id135356%_)) - (__obj137499 + (if (or (pair? _%path139122%_) + (null? _%path139122%_)) + (cons _%bind-id139116%_ _%path139122%_) + (if (not _%path139122%_) + _%bind-id139116%_ + (cons _%bind-id139116%_ + (cons _%path139122%_ '()))))) + _%bind-id139116%_)) + (__obj141254 (##structure gx#module-context::t '#f @@ -2205,706 +2201,706 @@ '#f '#f))) (gx#module-context:::init! - __obj137499 - _%mod-id135358%_ - _%super135354%_ - _%ns135360%_ - _%path135370%_) - __obj137499))) - (_%valid-module-id?135276%_ - (lambda (_%id135327%_) - (let* ((_%str135329%_ (symbol->string _%id135327%_)) - (_%len135331%_ (##string-length _%str135329%_))) - (if (##fx>= _%len135331%_ '1) - (let _%loop135334%_ ((_%index135336%_ + __obj141254 + _%mod-id139118%_ + _%super139114%_ + _%ns139120%_ + _%path139130%_) + __obj141254))) + (_%valid-module-id?139036%_ + (lambda (_%id139087%_) + (let* ((_%str139089%_ (symbol->string _%id139087%_)) + (_%len139091%_ (##string-length _%str139089%_))) + (if (##fx>= _%len139091%_ '1) + (let _%loop139094%_ ((_%index139096%_ (##fx- (##string-length - _%str135329%_) + _%str139089%_) '1))) - (if (##fx>= _%index135336%_ '0) - (let ((_%c135338%_ + (if (##fx>= _%index139096%_ '0) + (let ((_%c139098%_ (string-ref - _%str135329%_ - _%index135336%_))) - (if (or (and (##char>=? _%c135338%_ '#\a) - (##char<=? _%c135338%_ '#\z)) - (and (##char>=? _%c135338%_ '#\A) - (##char<=? _%c135338%_ '#\Z)) - (and (##char>=? _%c135338%_ '#\0) - (##char<=? _%c135338%_ '#\9)) - (##char=? _%c135338%_ '#\_) - (##char=? _%c135338%_ '#\-)) - (_%loop135334%_ - (##fx- _%index135336%_ '1)) + _%str139089%_ + _%index139096%_))) + (if (or (and (##char>=? _%c139098%_ '#\a) + (##char<=? _%c139098%_ '#\z)) + (and (##char>=? _%c139098%_ '#\A) + (##char<=? _%c139098%_ '#\Z)) + (and (##char>=? _%c139098%_ '#\0) + (##char<=? _%c139098%_ '#\9)) + (##char=? _%c139098%_ '#\_) + (##char=? _%c139098%_ '#\-)) + (_%loop139094%_ + (##fx- _%index139096%_ '1)) '#f)) '#t)) '#f))))) - (let* ((_%e135277135287%_ _%stx135273%_) - (_%E135279135291%_ + (let* ((_%e139037139047%_ _%stx139033%_) + (_%E139039139051%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e135277135287%_))) - (_%E135278135323%_ + _%e139037139047%_))) + (_%E139038139083%_ (lambda () - (if (gx#stx-pair? _%e135277135287%_) - (let ((_%e135280135295%_ - (gx#syntax-e _%e135277135287%_))) - (let ((_%hd135281135298%_ (##car _%e135280135295%_)) - (_%tl135282135300%_ (##cdr _%e135280135295%_))) - (if (gx#stx-pair? _%tl135282135300%_) - (let ((_%e135283135303%_ - (gx#syntax-e _%tl135282135300%_))) - (let ((_%hd135284135306%_ - (##car _%e135283135303%_)) - (_%tl135285135308%_ - (##cdr _%e135283135303%_))) - (let* ((_%id135311%_ _%hd135284135306%_) - (_%body135313%_ _%tl135285135308%_)) - (if (and (gx#identifier? _%id135311%_) - (gx#stx-list? _%body135313%_)) - (if (_%valid-module-id?135276%_ + (if (gx#stx-pair? _%e139037139047%_) + (let ((_%e139040139055%_ + (gx#syntax-e _%e139037139047%_))) + (let ((_%hd139041139058%_ (##car _%e139040139055%_)) + (_%tl139042139060%_ (##cdr _%e139040139055%_))) + (if (gx#stx-pair? _%tl139042139060%_) + (let ((_%e139043139063%_ + (gx#syntax-e _%tl139042139060%_))) + (let ((_%hd139044139066%_ + (##car _%e139043139063%_)) + (_%tl139045139068%_ + (##cdr _%e139043139063%_))) + (let* ((_%id139071%_ _%hd139044139066%_) + (_%body139073%_ _%tl139045139068%_)) + (if (and (gx#identifier? _%id139071%_) + (gx#stx-list? _%body139073%_)) + (if (_%valid-module-id?139036%_ (gx#stx-e (gx#datum->syntax__0 '#f 'id))) - (let* ((_%ctx135315%_ - (_%make-context135275%_ - _%id135311%_)) - (_%body135317%_ + (let* ((_%ctx139075%_ + (_%make-context139035%_ + _%id139071%_)) + (_%body139077%_ (gx#core-expand-module-begin - _%body135313%_ - _%ctx135315%_)) - (_%body135319%_ + _%body139073%_ + _%ctx139075%_)) + (_%body139079%_ (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%body135317%_) + _%body139077%_) (gx#stx-source - _%stx135273%_)))) + _%stx139033%_)))) (##unchecked-structure-set! - _%ctx135315%_ + _%ctx139075%_ (__make-atomic-promise (lambda () (gx#eval-syntax* - _%body135319%_))) + _%body139079%_))) '10 '#f '#f) (##unchecked-structure-set! - _%ctx135315%_ - _%body135319%_ + _%ctx139075%_ + _%body139079%_ '11 '#f '#f) (gx#core-bind-syntax!__0 - _%id135311%_ - _%ctx135315%_) + _%id139071%_ + _%ctx139075%_) (gx#core-quote-syntax__1 (gx#core-list '%#module (gx#core-quote-syntax__0 - _%id135311%_) - _%body135319%_) + _%id139071%_) + _%body139079%_) (gx#stx-source - _%stx135273%_))) + _%stx139033%_))) (gx#raise-syntax-error '#f '"invalid module id; allowed characters are A-Z,a-z,0-9,_,-" - _%stx135273%_ + _%stx139033%_ (gx#datum->syntax__0 '#f 'id))) - (_%E135279135291%_))))) - (_%E135279135291%_)))) - (_%E135279135291%_))))) - (_%E135278135323%_))))) + (_%E139039139051%_))))) + (_%E139039139051%_)))) + (_%E139039139051%_))))) + (_%E139038139083%_))))) (define gx#core-expand-module-begin - (lambda (_%body135238%_ _%ctx135239%_) + (lambda (_%body138998%_ _%ctx138999%_) (call-with-parameters__1 (lambda () (call-with-parameters__1 (lambda () (gx#core-bind-feature!__1 'gerbil-module '#t) - (let* ((_%stx135243%_ + (let* ((_%stx139003%_ (gx#core-expand-head - (cons '%%begin-module _%body135238%_))) - (_%e135244135251%_ _%stx135243%_) - (_%E135246135255%_ + (cons '%%begin-module _%body138998%_))) + (_%e139004139011%_ _%stx139003%_) + (_%E139006139015%_ (lambda () (gx#raise-syntax-error '#f '"Illegal module body expansion" - _%stx135243%_))) - (_%E135245135269%_ + _%stx139003%_))) + (_%E139005139029%_ (lambda () - (if (gx#stx-pair? _%e135244135251%_) - (let ((_%e135247135259%_ - (gx#syntax-e _%e135244135251%_))) - (let ((_%hd135248135262%_ - (##car _%e135247135259%_)) - (_%tl135249135264%_ - (##cdr _%e135247135259%_))) - (if (and (gx#identifier? _%hd135248135262%_) + (if (gx#stx-pair? _%e139004139011%_) + (let ((_%e139007139019%_ + (gx#syntax-e _%e139004139011%_))) + (let ((_%hd139008139022%_ + (##car _%e139007139019%_)) + (_%tl139009139024%_ + (##cdr _%e139007139019%_))) + (if (and (gx#identifier? _%hd139008139022%_) (gx#core-identifier=? - _%hd135248135262%_ + _%hd139008139022%_ '%#begin-module)) - (let ((_%body135267%_ _%tl135249135264%_)) - (if (gx#sealed-syntax? _%stx135243%_) - _%body135267%_ + (let ((_%body139027%_ _%tl139009139024%_)) + (if (gx#sealed-syntax? _%stx139003%_) + _%body139027%_ (gx#core-expand-module-body - _%body135267%_))) - (_%E135246135255%_)))) - (_%E135246135255%_))))) - (_%E135245135269%_))) + _%body139027%_))) + (_%E139006139015%_)))) + (_%E139006139015%_))))) + (_%E139005139029%_))) gx#current-expander-phi '0)) gx#current-expander-context - _%ctx135239%_))) + _%ctx138999%_))) (define gx#core-expand-module-body - (lambda (_%body135034%_) - (letrec ((_%expand-special135036%_ - (lambda (_%hd135165%_ _%K135166%_ _%rest135167%_ _%r135168%_) - (let* ((_%e135169135186%_ _%hd135165%_) - (_%E135181135190%_ + (lambda (_%body138794%_) + (letrec ((_%expand-special138796%_ + (lambda (_%hd138925%_ _%K138926%_ _%rest138927%_ _%r138928%_) + (let* ((_%e138929138946%_ _%hd138925%_) + (_%E138941138950%_ (lambda () - (_%K135166%_ - _%rest135167%_ - (cons (gx#core-expand-top _%hd135165%_) - _%r135168%_)))) - (_%E135171135202%_ + (_%K138926%_ + _%rest138927%_ + (cons (gx#core-expand-top _%hd138925%_) + _%r138928%_)))) + (_%E138931138962%_ (lambda () - (if (gx#stx-pair? _%e135169135186%_) - (let ((_%e135182135194%_ - (gx#syntax-e _%e135169135186%_))) - (let ((_%hd135183135197%_ - (##car _%e135182135194%_)) - (_%tl135184135199%_ - (##cdr _%e135182135194%_))) + (if (gx#stx-pair? _%e138929138946%_) + (let ((_%e138942138954%_ + (gx#syntax-e _%e138929138946%_))) + (let ((_%hd138943138957%_ + (##car _%e138942138954%_)) + (_%tl138944138959%_ + (##cdr _%e138942138954%_))) (if (and (gx#identifier? - _%hd135183135197%_) + _%hd138943138957%_) (gx#core-identifier=? - _%hd135183135197%_ + _%hd138943138957%_ '%#export)) - (_%K135166%_ - _%rest135167%_ - (cons _%hd135165%_ _%r135168%_)) - (_%E135181135190%_)))) - (_%E135181135190%_)))) - (_%E135170135234%_ + (_%K138926%_ + _%rest138927%_ + (cons _%hd138925%_ _%r138928%_)) + (_%E138941138950%_)))) + (_%E138941138950%_)))) + (_%E138930138994%_ (lambda () - (if (gx#stx-pair? _%e135169135186%_) - (let ((_%e135172135206%_ - (gx#syntax-e _%e135169135186%_))) - (let ((_%hd135173135209%_ - (##car _%e135172135206%_)) - (_%tl135174135211%_ - (##cdr _%e135172135206%_))) + (if (gx#stx-pair? _%e138929138946%_) + (let ((_%e138932138966%_ + (gx#syntax-e _%e138929138946%_))) + (let ((_%hd138933138969%_ + (##car _%e138932138966%_)) + (_%tl138934138971%_ + (##cdr _%e138932138966%_))) (if (and (gx#identifier? - _%hd135173135209%_) + _%hd138933138969%_) (gx#core-identifier=? - _%hd135173135209%_ + _%hd138933138969%_ '%#define-values)) - (if (gx#stx-pair? _%tl135174135211%_) - (let ((_%e135175135214%_ + (if (gx#stx-pair? _%tl138934138971%_) + (let ((_%e138935138974%_ (gx#syntax-e - _%tl135174135211%_))) - (let ((_%hd135176135217%_ - (##car _%e135175135214%_)) - (_%tl135177135219%_ - (##cdr _%e135175135214%_))) - (let ((_%hd-bind135222%_ - _%hd135176135217%_)) + _%tl138934138971%_))) + (let ((_%hd138936138977%_ + (##car _%e138935138974%_)) + (_%tl138937138979%_ + (##cdr _%e138935138974%_))) + (let ((_%hd-bind138982%_ + _%hd138936138977%_)) (if (gx#stx-pair? - _%tl135177135219%_) - (let ((_%e135178135224%_ + _%tl138937138979%_) + (let ((_%e138938138984%_ (gx#syntax-e - _%tl135177135219%_))) - (let ((_%hd135179135227%_ + _%tl138937138979%_))) + (let ((_%hd138939138987%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e135178135224%_)) - (_%tl135180135229%_ (##cdr _%e135178135224%_))) - (let ((_%expr135232%_ _%hd135179135227%_)) - (if (gx#stx-null? _%tl135180135229%_) - (if (gx#core-bind-values? _%hd-bind135222%_) + (##car _%e138938138984%_)) + (_%tl138940138989%_ (##cdr _%e138938138984%_))) + (let ((_%expr138992%_ _%hd138939138987%_)) + (if (gx#stx-null? _%tl138940138989%_) + (if (gx#core-bind-values? _%hd-bind138982%_) (begin - (gx#core-bind-values!__0 _%hd-bind135222%_) - (_%K135166%_ - _%rest135167%_ - (cons _%hd135165%_ _%r135168%_))) - (_%E135171135202%_)) - (_%E135171135202%_))))) - (_%E135171135202%_))))) + (gx#core-bind-values!__0 _%hd-bind138982%_) + (_%K138926%_ + _%rest138927%_ + (cons _%hd138925%_ _%r138928%_))) + (_%E138931138962%_)) + (_%E138931138962%_))))) + (_%E138931138962%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E135171135202%_)) - (_%E135171135202%_)))) - (_%E135171135202%_))))) - (_%E135170135234%_)))) - (_%expand-body135037%_ - (lambda (_%rbody135039%_) - (let _%lp135041%_ ((_%rest135043%_ _%rbody135039%_) - (_%body135044%_ '())) - (let* ((_%rest135045135053%_ _%rest135043%_) - (_%else135047135061%_ (lambda () _%body135044%_)) - (_%K135049135153%_ - (lambda (_%rest135064%_ _%hd135065%_) - (let* ((_%e135066135087%_ _%hd135065%_) - (_%E135082135091%_ + (_%E138931138962%_)) + (_%E138931138962%_)))) + (_%E138931138962%_))))) + (_%E138930138994%_)))) + (_%expand-body138797%_ + (lambda (_%rbody138799%_) + (let _%lp138801%_ ((_%rest138803%_ _%rbody138799%_) + (_%body138804%_ '())) + (let* ((_%rest138805138813%_ _%rest138803%_) + (_%else138807138821%_ (lambda () _%body138804%_)) + (_%K138809138913%_ + (lambda (_%rest138824%_ _%hd138825%_) + (let* ((_%e138826138847%_ _%hd138825%_) + (_%E138842138851%_ (lambda () - (_%lp135041%_ - _%rest135064%_ + (_%lp138801%_ + _%rest138824%_ (cons (gx#core-expand-expression - _%hd135065%_) - _%body135044%_)))) - (_%E135078135105%_ + _%hd138825%_) + _%body138804%_)))) + (_%E138838138865%_ (lambda () - (if (gx#stx-pair? _%e135066135087%_) - (let ((_%e135083135095%_ + (if (gx#stx-pair? _%e138826138847%_) + (let ((_%e138843138855%_ (gx#syntax-e - _%e135066135087%_))) - (let ((_%hd135084135098%_ - (##car _%e135083135095%_)) - (_%tl135085135100%_ - (##cdr _%e135083135095%_))) - (let ((_%form135103%_ - _%hd135084135098%_)) + _%e138826138847%_))) + (let ((_%hd138844138858%_ + (##car _%e138843138855%_)) + (_%tl138845138860%_ + (##cdr _%e138843138855%_))) + (let ((_%form138863%_ + _%hd138844138858%_)) (if (gx#core-bound-identifier?__% - _%form135103%_ + _%form138863%_ gx#special-form-binding?) - (_%lp135041%_ - _%rest135064%_ - (cons _%hd135065%_ - _%body135044%_)) - (_%E135082135091%_))))) - (_%E135082135091%_)))) - (_%E135068135117%_ + (_%lp138801%_ + _%rest138824%_ + (cons _%hd138825%_ + _%body138804%_)) + (_%E138842138851%_))))) + (_%E138842138851%_)))) + (_%E138828138877%_ (lambda () - (if (gx#stx-pair? _%e135066135087%_) - (let ((_%e135079135109%_ + (if (gx#stx-pair? _%e138826138847%_) + (let ((_%e138839138869%_ (gx#syntax-e - _%e135066135087%_))) - (let ((_%hd135080135112%_ - (##car _%e135079135109%_)) - (_%tl135081135114%_ - (##cdr _%e135079135109%_))) + _%e138826138847%_))) + (let ((_%hd138840138872%_ + (##car _%e138839138869%_)) + (_%tl138841138874%_ + (##cdr _%e138839138869%_))) (if (and (gx#identifier? - _%hd135080135112%_) + _%hd138840138872%_) (gx#core-identifier=? - _%hd135080135112%_ + _%hd138840138872%_ '%#export)) - (_%lp135041%_ - _%rest135064%_ + (_%lp138801%_ + _%rest138824%_ (cons (gx#core-expand-export%__0 - _%hd135065%_) - _%body135044%_)) - (_%E135078135105%_)))) - (_%E135078135105%_)))) - (_%E135067135149%_ + _%hd138825%_) + _%body138804%_)) + (_%E138838138865%_)))) + (_%E138838138865%_)))) + (_%E138827138909%_ (lambda () - (if (gx#stx-pair? _%e135066135087%_) - (let ((_%e135069135121%_ + (if (gx#stx-pair? _%e138826138847%_) + (let ((_%e138829138881%_ (gx#syntax-e - _%e135066135087%_))) - (let ((_%hd135070135124%_ - (##car _%e135069135121%_)) - (_%tl135071135126%_ - (##cdr _%e135069135121%_))) + _%e138826138847%_))) + (let ((_%hd138830138884%_ + (##car _%e138829138881%_)) + (_%tl138831138886%_ + (##cdr _%e138829138881%_))) (if (and (gx#identifier? - _%hd135070135124%_) + _%hd138830138884%_) (gx#core-identifier=? - _%hd135070135124%_ + _%hd138830138884%_ '%#define-values)) (if (gx#stx-pair? - _%tl135071135126%_) - (let ((_%e135072135129%_ + _%tl138831138886%_) + (let ((_%e138832138889%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl135071135126%_))) - (let ((_%hd135073135132%_ (##car _%e135072135129%_)) - (_%tl135074135134%_ (##cdr _%e135072135129%_))) - (let ((_%hd-bind135137%_ _%hd135073135132%_)) - (if (gx#stx-pair? _%tl135074135134%_) - (let ((_%e135075135139%_ - (gx#syntax-e _%tl135074135134%_))) - (let ((_%hd135076135142%_ - (##car _%e135075135139%_)) - (_%tl135077135144%_ - (##cdr _%e135075135139%_))) - (let ((_%expr135147%_ _%hd135076135142%_)) - (if (gx#stx-null? _%tl135077135144%_) - (_%lp135041%_ - _%rest135064%_ + (gx#syntax-e _%tl138831138886%_))) + (let ((_%hd138833138892%_ (##car _%e138832138889%_)) + (_%tl138834138894%_ (##cdr _%e138832138889%_))) + (let ((_%hd-bind138897%_ _%hd138833138892%_)) + (if (gx#stx-pair? _%tl138834138894%_) + (let ((_%e138835138899%_ + (gx#syntax-e _%tl138834138894%_))) + (let ((_%hd138836138902%_ + (##car _%e138835138899%_)) + (_%tl138837138904%_ + (##cdr _%e138835138899%_))) + (let ((_%expr138907%_ _%hd138836138902%_)) + (if (gx#stx-null? _%tl138837138904%_) + (_%lp138801%_ + _%rest138824%_ (cons (gx#core-quote-syntax__1 (gx#core-list '%#define-values (gx#core-quote-bind-values - _%hd-bind135137%_) + _%hd-bind138897%_) (gx#core-expand-expression - _%expr135147%_)) - (gx#stx-source _%hd135065%_)) - _%body135044%_)) - (_%E135068135117%_))))) - (_%E135068135117%_))))) - (_%E135068135117%_)) - (_%E135068135117%_)))) + _%expr138907%_)) + (gx#stx-source _%hd138825%_)) + _%body138804%_)) + (_%E138828138877%_))))) + (_%E138828138877%_))))) + (_%E138828138877%_)) + (_%E138828138877%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E135068135117%_))))) - (_%E135067135149%_))))) - (if (pair? _%rest135045135053%_) - (let ((_%hd135050135156%_ - (##car _%rest135045135053%_)) - (_%tl135051135158%_ - (##cdr _%rest135045135053%_))) - (let* ((_%hd135161%_ _%hd135050135156%_) - (_%rest135163%_ _%tl135051135158%_)) - (_%K135049135153%_ - _%rest135163%_ - _%hd135161%_))) - (_%else135047135061%_))))))) - (_%expand-body135037%_ + (_%E138828138877%_))))) + (_%E138827138909%_))))) + (if (pair? _%rest138805138813%_) + (let ((_%hd138810138916%_ + (##car _%rest138805138813%_)) + (_%tl138811138918%_ + (##cdr _%rest138805138813%_))) + (let* ((_%hd138921%_ _%hd138810138916%_) + (_%rest138923%_ _%tl138811138918%_)) + (_%K138809138913%_ + _%rest138923%_ + _%hd138921%_))) + (_%else138807138821%_))))))) + (_%expand-body138797%_ (gx#core-expand-block__% - (cons '%#begin-module _%body135034%_) - _%expand-special135036%_ + (cons '%#begin-module _%body138794%_) + _%expand-special138796%_ '#f values))))) (define gx#core-expand-import/export - (lambda (_%stx134875%_ - _%expanded?134876%_ - _%method134877%_ - _%current-phi134878%_ - _%expand1134879%_) - (letrec ((_%K134881%_ - (lambda (_%rest135001%_ _%r135002%_) - (let* ((_%e135003135010%_ _%rest135001%_) - (_%E135005135014%_ (lambda () _%r135002%_)) - (_%E135004135030%_ + (lambda (_%stx138635%_ + _%expanded?138636%_ + _%method138637%_ + _%current-phi138638%_ + _%expand1138639%_) + (letrec ((_%K138641%_ + (lambda (_%rest138761%_ _%r138762%_) + (let* ((_%e138763138770%_ _%rest138761%_) + (_%E138765138774%_ (lambda () _%r138762%_)) + (_%E138764138790%_ (lambda () - (if (gx#stx-pair? _%e135003135010%_) - (let ((_%e135006135018%_ - (gx#syntax-e _%e135003135010%_))) - (let ((_%hd135007135021%_ - (##car _%e135006135018%_)) - (_%tl135008135023%_ - (##cdr _%e135006135018%_))) - (let* ((_%hd135026%_ _%hd135007135021%_) - (_%rest135028%_ - _%tl135008135023%_)) - (_%step134882%_ - _%hd135026%_ - _%rest135028%_ - _%r135002%_)))) - (_%E135005135014%_))))) - (_%E135004135030%_)))) - (_%step134882%_ - (lambda (_%hd134915%_ _%rest134916%_ _%r134917%_) - (let* ((_%e134918134936%_ _%hd134915%_) - (_%E134931134940%_ + (if (gx#stx-pair? _%e138763138770%_) + (let ((_%e138766138778%_ + (gx#syntax-e _%e138763138770%_))) + (let ((_%hd138767138781%_ + (##car _%e138766138778%_)) + (_%tl138768138783%_ + (##cdr _%e138766138778%_))) + (let* ((_%hd138786%_ _%hd138767138781%_) + (_%rest138788%_ + _%tl138768138783%_)) + (_%step138642%_ + _%hd138786%_ + _%rest138788%_ + _%r138762%_)))) + (_%E138765138774%_))))) + (_%E138764138790%_)))) + (_%step138642%_ + (lambda (_%hd138675%_ _%rest138676%_ _%r138677%_) + (let* ((_%e138678138696%_ _%hd138675%_) + (_%E138691138700%_ (lambda () - (if (_%expanded?134876%_ (gx#stx-e _%hd134915%_)) - (_%K134881%_ - _%rest134916%_ - (cons (gx#stx-e _%hd134915%_) _%r134917%_)) - (_%expand1134879%_ - _%hd134915%_ - _%K134881%_ - _%rest134916%_ - _%r134917%_)))) - (_%E134927134956%_ + (if (_%expanded?138636%_ (gx#stx-e _%hd138675%_)) + (_%K138641%_ + _%rest138676%_ + (cons (gx#stx-e _%hd138675%_) _%r138677%_)) + (_%expand1138639%_ + _%hd138675%_ + _%K138641%_ + _%rest138676%_ + _%r138677%_)))) + (_%E138687138716%_ (lambda () - (if (gx#stx-pair? _%e134918134936%_) - (let ((_%e134932134944%_ - (gx#syntax-e _%e134918134936%_))) - (let ((_%hd134933134947%_ - (##car _%e134932134944%_)) - (_%tl134934134949%_ - (##cdr _%e134932134944%_))) - (let* ((_%macro134952%_ - _%hd134933134947%_) - (_%body134954%_ - _%tl134934134949%_)) + (if (gx#stx-pair? _%e138678138696%_) + (let ((_%e138692138704%_ + (gx#syntax-e _%e138678138696%_))) + (let ((_%hd138693138707%_ + (##car _%e138692138704%_)) + (_%tl138694138709%_ + (##cdr _%e138692138704%_))) + (let* ((_%macro138712%_ + _%hd138693138707%_) + (_%body138714%_ + _%tl138694138709%_)) (if (gx#core-bound-identifier?__% - _%macro134952%_ + _%macro138712%_ gx#syntax-binding?) - (_%K134881%_ + (_%K138641%_ (cons (gx#core-apply-expander__% (gx#syntax-local-e__0 - _%macro134952%_) - _%hd134915%_ - _%method134877%_) - _%rest134916%_) - _%r134917%_) - (_%E134931134940%_))))) - (_%E134931134940%_)))) - (_%E134920134970%_ + _%macro138712%_) + _%hd138675%_ + _%method138637%_) + _%rest138676%_) + _%r138677%_) + (_%E138691138700%_))))) + (_%E138691138700%_)))) + (_%E138680138730%_ (lambda () - (if (gx#stx-pair? _%e134918134936%_) - (let ((_%e134928134960%_ - (gx#syntax-e _%e134918134936%_))) - (let ((_%hd134929134963%_ - (##car _%e134928134960%_)) - (_%tl134930134965%_ - (##cdr _%e134928134960%_))) - (if (eq? (gx#stx-e _%hd134929134963%_) + (if (gx#stx-pair? _%e138678138696%_) + (let ((_%e138688138720%_ + (gx#syntax-e _%e138678138696%_))) + (let ((_%hd138689138723%_ + (##car _%e138688138720%_)) + (_%tl138690138725%_ + (##cdr _%e138688138720%_))) + (if (eq? (gx#stx-e _%hd138689138723%_) 'begin:) - (let ((_%body134968%_ - _%tl134930134965%_)) - (_%K134881%_ + (let ((_%body138728%_ + _%tl138690138725%_)) + (_%K138641%_ (gx#stx-foldr cons - _%rest134916%_ - _%body134968%_) - _%r134917%_)) - (_%E134927134956%_)))) - (_%E134927134956%_)))) - (_%E134919134997%_ + _%rest138676%_ + _%body138728%_) + _%r138677%_)) + (_%E138687138716%_)))) + (_%E138687138716%_)))) + (_%E138679138757%_ (lambda () - (if (gx#stx-pair? _%e134918134936%_) - (let ((_%e134921134974%_ - (gx#syntax-e _%e134918134936%_))) - (let ((_%hd134922134977%_ - (##car _%e134921134974%_)) - (_%tl134923134979%_ - (##cdr _%e134921134974%_))) - (if (eq? (gx#stx-e _%hd134922134977%_) + (if (gx#stx-pair? _%e138678138696%_) + (let ((_%e138681138734%_ + (gx#syntax-e _%e138678138696%_))) + (let ((_%hd138682138737%_ + (##car _%e138681138734%_)) + (_%tl138683138739%_ + (##cdr _%e138681138734%_))) + (if (eq? (gx#stx-e _%hd138682138737%_) 'phi:) - (if (gx#stx-pair? _%tl134923134979%_) - (let ((_%e134924134982%_ + (if (gx#stx-pair? _%tl138683138739%_) + (let ((_%e138684138742%_ (gx#syntax-e - _%tl134923134979%_))) - (let ((_%hd134925134985%_ - (##car _%e134924134982%_)) - (_%tl134926134987%_ - (##cdr _%e134924134982%_))) - (let* ((_%dphi134990%_ - _%hd134925134985%_) - (_%body134992%_ - _%tl134926134987%_)) + _%tl138683138739%_))) + (let ((_%hd138685138745%_ + (##car _%e138684138742%_)) + (_%tl138686138747%_ + (##cdr _%e138684138742%_))) + (let* ((_%dphi138750%_ + _%hd138685138745%_) + (_%body138752%_ + _%tl138686138747%_)) (if (gx#stx-fixnum? - _%dphi134990%_) - (let ((_%rbody134995%_ + _%dphi138750%_) + (let ((_%rbody138755%_ (call-with-parameters__1 (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%K134881%_ _%body134992%_ '())) - _%current-phi134878%_ - (fx+ (gx#stx-e _%dphi134990%_) - (_%current-phi134878%_))))) - (_%K134881%_ - _%rest134916%_ - (__foldr1 cons _%r134917%_ _%rbody134995%_))) - (_%E134920134970%_))))) + (_%K138641%_ _%body138752%_ '())) + _%current-phi138638%_ + (fx+ (gx#stx-e _%dphi138750%_) + (_%current-phi138638%_))))) + (_%K138641%_ + _%rest138676%_ + (__foldr1 cons _%r138677%_ _%rbody138755%_))) + (_%E138680138730%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E134920134970%_)) - (_%E134920134970%_)))) - (_%E134920134970%_))))) - (_%E134919134997%_))))) - (let* ((_%e134883134890%_ _%stx134875%_) - (_%E134885134894%_ + (_%E138680138730%_)) + (_%E138680138730%_)))) + (_%E138680138730%_))))) + (_%E138679138757%_))))) + (let* ((_%e138643138650%_ _%stx138635%_) + (_%E138645138654%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e134883134890%_))) - (_%E134884134911%_ + _%e138643138650%_))) + (_%E138644138671%_ (lambda () - (if (gx#stx-pair? _%e134883134890%_) - (let ((_%e134886134898%_ - (gx#syntax-e _%e134883134890%_))) - (let ((_%hd134887134901%_ (##car _%e134886134898%_)) - (_%tl134888134903%_ (##cdr _%e134886134898%_))) - (let ((_%body134906%_ _%tl134888134903%_)) - (if (_%current-phi134878%_) - (_%K134881%_ _%body134906%_ '()) + (if (gx#stx-pair? _%e138643138650%_) + (let ((_%e138646138658%_ + (gx#syntax-e _%e138643138650%_))) + (let ((_%hd138647138661%_ (##car _%e138646138658%_)) + (_%tl138648138663%_ (##cdr _%e138646138658%_))) + (let ((_%body138666%_ _%tl138648138663%_)) + (if (_%current-phi138638%_) + (_%K138641%_ _%body138666%_ '()) (call-with-parameters__1 - (lambda () (_%K134881%_ _%body134906%_ '())) - _%current-phi134878%_ + (lambda () (_%K138641%_ _%body138666%_ '())) + _%current-phi138638%_ (gx#current-expander-phi)))))) - (_%E134885134894%_))))) - (_%E134884134911%_))))) + (_%E138645138654%_))))) + (_%E138644138671%_))))) (define gx#core-expand-import%__% - (lambda (_%stx134529%_ _%internal-expand?134530%_) - (letrec ((_%expand1134532%_ - (lambda (_%hd134847%_ _%K134848%_ _%rest134849%_ _%r134850%_) - (if (gx#core-bound-module? _%hd134847%_) - (_%import1134533%_ - (gx#syntax-local-e__0 _%hd134847%_) - _%K134848%_ - _%rest134849%_ - _%r134850%_) - (if (gx#core-library-module-path? _%hd134847%_) - (_%import1134533%_ + (lambda (_%stx138289%_ _%internal-expand?138290%_) + (letrec ((_%expand1138292%_ + (lambda (_%hd138607%_ _%K138608%_ _%rest138609%_ _%r138610%_) + (if (gx#core-bound-module? _%hd138607%_) + (_%import1138293%_ + (gx#syntax-local-e__0 _%hd138607%_) + _%K138608%_ + _%rest138609%_ + _%r138610%_) + (if (gx#core-library-module-path? _%hd138607%_) + (_%import1138293%_ (gx#import-module__0 (gx#core-resolve-library-module-path - _%hd134847%_)) - _%K134848%_ - _%rest134849%_ - _%r134850%_) + _%hd138607%_)) + _%K138608%_ + _%rest138609%_ + _%r138610%_) (if (gx#core-library-relative-module-path? - _%hd134847%_) - (_%import1134533%_ + _%hd138607%_) + (_%import1138293%_ (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _%hd134847%_)) - _%K134848%_ - _%rest134849%_ - _%r134850%_) - (let ((_%e134856%_ (gx#stx-e _%hd134847%_))) - (if (pair? _%e134856%_) - (let ((_%$e134859%_ - (gx#stx-e (##car _%e134856%_)))) - (if (eq? 'spec: _%$e134859%_) - (_%import-spec134536%_ - _%hd134847%_ - _%K134848%_ - _%rest134849%_ - _%r134850%_) - (if (eq? 'in: _%$e134859%_) - (_%import-submodule134534%_ - _%hd134847%_ - _%K134848%_ - _%rest134849%_ - _%r134850%_) + _%hd138607%_)) + _%K138608%_ + _%rest138609%_ + _%r138610%_) + (let ((_%e138616%_ (gx#stx-e _%hd138607%_))) + (if (pair? _%e138616%_) + (let ((_%$e138619%_ + (gx#stx-e (##car _%e138616%_)))) + (if (eq? 'spec: _%$e138619%_) + (_%import-spec138296%_ + _%hd138607%_ + _%K138608%_ + _%rest138609%_ + _%r138610%_) + (if (eq? 'in: _%$e138619%_) + (_%import-submodule138294%_ + _%hd138607%_ + _%K138608%_ + _%rest138609%_ + _%r138610%_) (if (eq? 'runtime: - _%$e134859%_) - (_%import-runtime134535%_ - _%hd134847%_ - _%K134848%_ - _%rest134849%_ - _%r134850%_) + _%$e138619%_) + (_%import-runtime138295%_ + _%hd138607%_ + _%K138608%_ + _%rest138609%_ + _%r138610%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _%stx134529%_ - _%hd134847%_))))) - (if (string? _%e134856%_) - (_%import1134533%_ + _%stx138289%_ + _%hd138607%_))))) + (if (string? _%e138616%_) + (_%import1138293%_ (gx#import-module__0 (gx#core-resolve-module-path__% - _%hd134847%_ - (gx#stx-source _%stx134529%_))) - _%K134848%_ - _%rest134849%_ - _%r134850%_) + _%hd138607%_ + (gx#stx-source _%stx138289%_))) + _%K138608%_ + _%rest138609%_ + _%r138610%_) (if (##structure-instance-of? - _%e134856%_ + _%e138616%_ 'gx#module-context::t) - (_%K134848%_ - _%rest134849%_ - (cons _%e134856%_ _%r134850%_)) + (_%K138608%_ + _%rest138609%_ + (cons _%e138616%_ _%r138610%_)) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _%stx134529%_ - _%hd134847%_)))))))))) - (_%import1134533%_ - (lambda (_%ctx134836%_ - _%K134837%_ - _%rest134838%_ - _%r134839%_) - (let ((_%dphi134841%_ + _%stx138289%_ + _%hd138607%_)))))))))) + (_%import1138293%_ + (lambda (_%ctx138596%_ + _%K138597%_ + _%rest138598%_ + _%r138599%_) + (let ((_%dphi138601%_ (fx- (gx#current-import-expander-phi) (gx#current-expander-phi)))) - (_%K134837%_ - _%rest134838%_ + (_%K138597%_ + _%rest138598%_ (cons (##structure gx#import-set::t - _%ctx134836%_ - _%dphi134841%_ - (map (lambda (_%g134842134844%_) + _%ctx138596%_ + _%dphi138601%_ + (map (lambda (_%g138602138604%_) (gx#core-module-export->import__% - _%g134842134844%_ + _%g138602138604%_ '#f - _%dphi134841%_)) + _%dphi138601%_)) (##unchecked-structure-ref - _%ctx134836%_ + _%ctx138596%_ '9 '#f '#f))) - _%r134839%_))))) - (_%import-submodule134534%_ - (lambda (_%hd134803%_ _%K134804%_ _%rest134805%_ _%r134806%_) - (let* ((_%e134807134814%_ _%hd134803%_) - (_%E134809134818%_ + _%r138599%_))))) + (_%import-submodule138294%_ + (lambda (_%hd138563%_ _%K138564%_ _%rest138565%_ _%r138566%_) + (let* ((_%e138567138574%_ _%hd138563%_) + (_%E138569138578%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e134807134814%_))) - (_%E134808134832%_ + _%e138567138574%_))) + (_%E138568138592%_ (lambda () - (if (gx#stx-pair? _%e134807134814%_) - (let ((_%e134810134822%_ - (gx#syntax-e _%e134807134814%_))) - (let ((_%hd134811134825%_ - (##car _%e134810134822%_)) - (_%tl134812134827%_ - (##cdr _%e134810134822%_))) - (let ((_%spath134830%_ - _%tl134812134827%_)) - (_%import1134533%_ - (_%import-spec-source134537%_ - _%spath134830%_) - _%K134804%_ - _%rest134805%_ - _%r134806%_)))) - (_%E134809134818%_))))) - (_%E134808134832%_)))) - (_%import-runtime134535%_ - (lambda (_%hd134770%_ _%K134771%_ _%rest134772%_ _%r134773%_) - (let* ((_%e134774134781%_ _%hd134770%_) - (_%E134776134785%_ + (if (gx#stx-pair? _%e138567138574%_) + (let ((_%e138570138582%_ + (gx#syntax-e _%e138567138574%_))) + (let ((_%hd138571138585%_ + (##car _%e138570138582%_)) + (_%tl138572138587%_ + (##cdr _%e138570138582%_))) + (let ((_%spath138590%_ + _%tl138572138587%_)) + (_%import1138293%_ + (_%import-spec-source138297%_ + _%spath138590%_) + _%K138564%_ + _%rest138565%_ + _%r138566%_)))) + (_%E138569138578%_))))) + (_%E138568138592%_)))) + (_%import-runtime138295%_ + (lambda (_%hd138530%_ _%K138531%_ _%rest138532%_ _%r138533%_) + (let* ((_%e138534138541%_ _%hd138530%_) + (_%E138536138545%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e134774134781%_))) - (_%E134775134799%_ + _%e138534138541%_))) + (_%E138535138559%_ (lambda () - (if (gx#stx-pair? _%e134774134781%_) - (let ((_%e134777134789%_ - (gx#syntax-e _%e134774134781%_))) - (let ((_%hd134778134792%_ - (##car _%e134777134789%_)) - (_%tl134779134794%_ - (##cdr _%e134777134789%_))) - (let ((_%spath134797%_ - _%tl134779134794%_)) - (_%K134771%_ - _%rest134772%_ - (cons (_%import-spec-source134537%_ - _%spath134797%_) - _%r134773%_))))) - (_%E134776134785%_))))) - (_%E134775134799%_)))) - (_%import-spec134536%_ - (lambda (_%hd134608%_ _%K134609%_ _%rest134610%_ _%r134611%_) - (let* ((_%e134612134629%_ _%hd134608%_) - (_%E134621134633%_ + (if (gx#stx-pair? _%e138534138541%_) + (let ((_%e138537138549%_ + (gx#syntax-e _%e138534138541%_))) + (let ((_%hd138538138552%_ + (##car _%e138537138549%_)) + (_%tl138539138554%_ + (##cdr _%e138537138549%_))) + (let ((_%spath138557%_ + _%tl138539138554%_)) + (_%K138531%_ + _%rest138532%_ + (cons (_%import-spec-source138297%_ + _%spath138557%_) + _%r138533%_))))) + (_%E138536138545%_))))) + (_%E138535138559%_)))) + (_%import-spec138296%_ + (lambda (_%hd138368%_ _%K138369%_ _%rest138370%_ _%r138371%_) + (let* ((_%e138372138389%_ _%hd138368%_) + (_%E138381138393%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e134612134629%_))) - (_%E134614134744%_ + _%e138372138389%_))) + (_%E138374138504%_ (lambda () - (if (gx#stx-pair? _%e134612134629%_) - (let ((_%e134622134637%_ - (gx#syntax-e _%e134612134629%_))) - (let ((_%hd134623134640%_ - (##car _%e134622134637%_)) - (_%tl134624134642%_ - (##cdr _%e134622134637%_))) - (if (gx#stx-pair? _%tl134624134642%_) - (let ((_%e134625134645%_ + (if (gx#stx-pair? _%e138372138389%_) + (let ((_%e138382138397%_ + (gx#syntax-e _%e138372138389%_))) + (let ((_%hd138383138400%_ + (##car _%e138382138397%_)) + (_%tl138384138402%_ + (##cdr _%e138382138397%_))) + (if (gx#stx-pair? _%tl138384138402%_) + (let ((_%e138385138405%_ (gx#syntax-e - _%tl134624134642%_))) - (let ((_%hd134626134648%_ - (##car _%e134625134645%_)) - (_%tl134627134650%_ - (##cdr _%e134625134645%_))) - (let* ((_%path134653%_ - _%hd134626134648%_) - (_%specs134655%_ - _%tl134627134650%_)) - (let ((_%src-ctx134657%_ - (_%import-spec-source134537%_ - _%path134653%_)) - (_%exports134658%_ + _%tl138384138402%_))) + (let ((_%hd138386138408%_ + (##car _%e138385138405%_)) + (_%tl138387138410%_ + (##cdr _%e138385138405%_))) + (let* ((_%path138413%_ + _%hd138386138408%_) + (_%specs138415%_ + _%tl138387138410%_)) + (let ((_%src-ctx138417%_ + (_%import-spec-source138297%_ + _%path138413%_)) + (_%exports138418%_ (make-hash-table__% '#f absent-value @@ -2915,215 +2911,215 @@ absent-value absent-value absent-value)) - (_%specs134659%_ + (_%specs138419%_ (gx#syntax->list - _%specs134655%_))) + _%specs138415%_))) (for-each - (lambda (_%out134661%_) + (lambda (_%out138421%_) (__hash-put! - _%exports134658%_ + _%exports138418%_ (cons (##unchecked-structure-ref - _%out134661%_ + _%out138421%_ '3 '#f '#f) (##unchecked-structure-ref - _%out134661%_ + _%out138421%_ '4 '#f '#f)) - _%out134661%_)) + _%out138421%_)) (##unchecked-structure-ref - _%src-ctx134657%_ + _%src-ctx138417%_ '9 '#f '#f)) - (_%K134609%_ - _%rest134610%_ + (_%K138369%_ + _%rest138370%_ (__foldl1 - (lambda (_%spec134663%_ - _%r134664%_) - (let* ((_%e134665134681%_ - _%spec134663%_) - (_%E134667134685%_ + (lambda (_%spec138423%_ + _%r138424%_) + (let* ((_%e138425138441%_ + _%spec138423%_) + (_%E138427138445%_ (lambda () (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid syntax-case clause" - _%e134665134681%_))) - (_%E134666134740%_ + _%e138425138441%_))) + (_%E138426138500%_ (lambda () - (if (gx#stx-pair? _%e134665134681%_) - (let ((_%e134668134689%_ - (gx#syntax-e _%e134665134681%_))) - (let ((_%hd134669134692%_ - (##car _%e134668134689%_)) - (_%tl134670134694%_ - (##cdr _%e134668134689%_))) - (let ((_%phi134697%_ _%hd134669134692%_)) - (if (gx#stx-pair? _%tl134670134694%_) - (let ((_%e134671134699%_ - (gx#syntax-e _%tl134670134694%_))) - (let ((_%hd134672134702%_ - (##car _%e134671134699%_)) - (_%tl134673134704%_ - (##cdr _%e134671134699%_))) - (let ((_%name134707%_ - _%hd134672134702%_)) + (if (gx#stx-pair? _%e138425138441%_) + (let ((_%e138428138449%_ + (gx#syntax-e _%e138425138441%_))) + (let ((_%hd138429138452%_ + (##car _%e138428138449%_)) + (_%tl138430138454%_ + (##cdr _%e138428138449%_))) + (let ((_%phi138457%_ _%hd138429138452%_)) + (if (gx#stx-pair? _%tl138430138454%_) + (let ((_%e138431138459%_ + (gx#syntax-e _%tl138430138454%_))) + (let ((_%hd138432138462%_ + (##car _%e138431138459%_)) + (_%tl138433138464%_ + (##cdr _%e138431138459%_))) + (let ((_%name138467%_ + _%hd138432138462%_)) (if (gx#stx-pair? - _%tl134673134704%_) - (let ((_%e134674134709%_ + _%tl138433138464%_) + (let ((_%e138434138469%_ (gx#syntax-e - _%tl134673134704%_))) - (let ((_%hd134675134712%_ - (##car _%e134674134709%_)) - (_%tl134676134714%_ - (##cdr _%e134674134709%_))) - (let ((_%src-phi134717%_ - _%hd134675134712%_)) + _%tl138433138464%_))) + (let ((_%hd138435138472%_ + (##car _%e138434138469%_)) + (_%tl138436138474%_ + (##cdr _%e138434138469%_))) + (let ((_%src-phi138477%_ + _%hd138435138472%_)) (if (gx#stx-pair? - _%tl134676134714%_) - (let ((_%e134677134719%_ + _%tl138436138474%_) + (let ((_%e138437138479%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl134676134714%_))) - (let ((_%hd134678134722%_ (##car _%e134677134719%_)) - (_%tl134679134724%_ (##cdr _%e134677134719%_))) - (let ((_%src-name134727%_ _%hd134678134722%_)) - (if (gx#stx-null? _%tl134679134724%_) - (if (and (gx#stx-fixnum? _%src-phi134717%_) - (gx#identifier? _%src-name134727%_) - (gx#stx-fixnum? _%phi134697%_) - (gx#identifier? _%name134707%_)) - (let ((_%src-phi134729%_ - (gx#stx-e _%src-phi134717%_)) - (_%src-name134730%_ + (gx#syntax-e _%tl138436138474%_))) + (let ((_%hd138438138482%_ (##car _%e138437138479%_)) + (_%tl138439138484%_ (##cdr _%e138437138479%_))) + (let ((_%src-name138487%_ _%hd138438138482%_)) + (if (gx#stx-null? _%tl138439138484%_) + (if (and (gx#stx-fixnum? _%src-phi138477%_) + (gx#identifier? _%src-name138487%_) + (gx#stx-fixnum? _%phi138457%_) + (gx#identifier? _%name138467%_)) + (let ((_%src-phi138489%_ + (gx#stx-e _%src-phi138477%_)) + (_%src-name138490%_ (gx#core-identifier-key - _%src-name134727%_)) - (_%phi134731%_ (gx#stx-e _%phi134697%_)) - (_%name134732%_ + _%src-name138487%_)) + (_%phi138491%_ (gx#stx-e _%phi138457%_)) + (_%name138492%_ (gx#core-identifier-key - _%name134707%_))) - (let ((_%$e134734%_ + _%name138467%_))) + (let ((_%$e138494%_ (__hash-get - _%exports134658%_ - (cons _%src-phi134729%_ - _%src-name134730%_)))) - (if _%$e134734%_ - ((lambda (_%out134737%_) + _%exports138418%_ + (cons _%src-phi138489%_ + _%src-name138490%_)))) + (if _%$e138494%_ + ((lambda (_%out138497%_) (cons (gx#core-module-export->import__% - _%out134737%_ - _%name134732%_ - (fx- _%phi134731%_ - _%src-phi134729%_)) - _%r134664%_)) - _%$e134734%_) + _%out138497%_ + _%name138492%_ + (fx- _%phi138491%_ + _%src-phi138489%_)) + _%r138424%_)) + _%$e138494%_) (gx#raise-syntax-error '#f '"Bad syntax; no matching export" - _%stx134529%_ - _%hd134608%_)))) - (_%E134667134685%_)) - (_%E134667134685%_))))) - (_%E134667134685%_))))) + _%stx138289%_ + _%hd138368%_)))) + (_%E138427138445%_)) + (_%E138427138445%_))))) + (_%E138427138445%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E134667134685%_))))) - (_%E134667134685%_))))) - (_%E134667134685%_))))) - (_%E134666134740%_))) + (_%E138427138445%_))))) + (_%E138427138445%_))))) + (_%E138427138445%_))))) + (_%E138426138500%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r134611%_ - _%specs134659%_)))))) - (_%E134621134633%_)))) - (_%E134621134633%_)))) - (_%E134613134766%_ + _%r138371%_ + _%specs138419%_)))))) + (_%E138381138393%_)))) + (_%E138381138393%_)))) + (_%E138373138526%_ (lambda () - (if (gx#stx-pair? _%e134612134629%_) - (let ((_%e134615134748%_ - (gx#syntax-e _%e134612134629%_))) - (let ((_%hd134616134751%_ - (##car _%e134615134748%_)) - (_%tl134617134753%_ - (##cdr _%e134615134748%_))) - (if (gx#stx-pair? _%tl134617134753%_) - (let ((_%e134618134756%_ + (if (gx#stx-pair? _%e138372138389%_) + (let ((_%e138375138508%_ + (gx#syntax-e _%e138372138389%_))) + (let ((_%hd138376138511%_ + (##car _%e138375138508%_)) + (_%tl138377138513%_ + (##cdr _%e138375138508%_))) + (if (gx#stx-pair? _%tl138377138513%_) + (let ((_%e138378138516%_ (gx#syntax-e - _%tl134617134753%_))) - (let ((_%hd134619134759%_ - (##car _%e134618134756%_)) - (_%tl134620134761%_ - (##cdr _%e134618134756%_))) - (let ((_%path134764%_ - _%hd134619134759%_)) + _%tl138377138513%_))) + (let ((_%hd138379138519%_ + (##car _%e138378138516%_)) + (_%tl138380138521%_ + (##cdr _%e138378138516%_))) + (let ((_%path138524%_ + _%hd138379138519%_)) (if (gx#stx-null? - _%tl134620134761%_) - (_%K134609%_ - _%rest134610%_ - (cons (_%import-spec-source134537%_ - _%path134764%_) - _%r134611%_)) - (_%E134614134744%_))))) - (_%E134614134744%_)))) - (_%E134614134744%_))))) - (_%E134613134766%_)))) - (_%import-spec-source134537%_ - (lambda (_%spath134606%_) + _%tl138380138521%_) + (_%K138369%_ + _%rest138370%_ + (cons (_%import-spec-source138297%_ + _%path138524%_) + _%r138371%_)) + (_%E138374138504%_))))) + (_%E138374138504%_)))) + (_%E138374138504%_))))) + (_%E138373138526%_)))) + (_%import-spec-source138297%_ + (lambda (_%spath138366%_) (gx#core-import-nested-module - _%spath134606%_ - _%stx134529%_))) - (_%import!134538%_ - (lambda (_%rbody134551%_) - (letrec* ((_%current-ctx134553%_ + _%spath138366%_ + _%stx138289%_))) + (_%import!138298%_ + (lambda (_%rbody138311%_) + (letrec* ((_%current-ctx138313%_ (gx#current-expander-context)) - (_%deps134554%_ (make-hash-table-eq)) - (_%bind!134555%_ - (lambda (_%hd134604%_) + (_%deps138314%_ (make-hash-table-eq)) + (_%bind!138315%_ + (lambda (_%hd138364%_) (gx#core-bind-import!__1 - _%hd134604%_ - _%current-ctx134553%_)))) - (let _%lp134557%_ ((_%rest134559%_ _%rbody134551%_) - (_%body134560%_ '())) - (let* ((_%rest134561134569%_ _%rest134559%_) - (_%else134563134580%_ + _%hd138364%_ + _%current-ctx138313%_)))) + (let _%lp138317%_ ((_%rest138319%_ _%rbody138311%_) + (_%body138320%_ '())) + (let* ((_%rest138321138329%_ _%rest138319%_) + (_%else138323138340%_ (lambda () (if (##structure-instance-of? - _%current-ctx134553%_ + _%current-ctx138313%_ 'gx#module-context::t) (##unchecked-structure-set! - _%current-ctx134553%_ + _%current-ctx138313%_ (__foldl1 cons (##unchecked-structure-ref - _%current-ctx134553%_ + _%current-ctx138313%_ '8 '#f '#f) - _%body134560%_) + _%body138320%_) '8 '#f '#f) '#!void) (__hash-for-each - (lambda (_%ctx134577%_ _%_134578%_) - (gx#eval-module _%ctx134577%_)) - _%deps134554%_) - _%body134560%_)) - (_%K134565134592%_ - (lambda (_%rest134583%_ _%hd134584%_) + (lambda (_%ctx138337%_ _%_138338%_) + (gx#eval-module _%ctx138337%_)) + _%deps138314%_) + _%body138320%_)) + (_%K138325138352%_ + (lambda (_%rest138343%_ _%hd138344%_) (if (##structure-direct-instance-of? - _%hd134584%_ + _%hd138344%_ 'gx#module-import::t) (let () - (_%bind!134555%_ _%hd134584%_) + (_%bind!138315%_ _%hd138344%_) (if (and (fxpositive? (##unchecked-structure-ref - _%hd134584%_ + _%hd138344%_ '3 '#f '#f)) (fxzero? (##unchecked-structure-ref (##unchecked-structure-ref - _%hd134584%_ + _%hd138344%_ '1 '#f '#f) @@ -3131,10 +3127,10 @@ '#f '#f))) (__hash-put! - _%deps134554%_ + _%deps138314%_ (##unchecked-structure-ref (##unchecked-structure-ref - _%hd134584%_ + _%hd138344%_ '1 '#f '#f) @@ -3144,155 +3140,155 @@ '#t) '#!void)) (if (##structure-direct-instance-of? - _%hd134584%_ + _%hd138344%_ 'gx#import-set::t) (let () (for-each - _%bind!134555%_ + _%bind!138315%_ (##unchecked-structure-ref - _%hd134584%_ + _%hd138344%_ '3 '#f '#f)) (if (fxpositive? (##unchecked-structure-ref - _%hd134584%_ + _%hd138344%_ '2 '#f '#f)) (__hash-put! - _%deps134554%_ + _%deps138314%_ (##unchecked-structure-ref - _%hd134584%_ + _%hd138344%_ '1 '#f '#f) '#t) '#!void)) - (let ((_%$e134588%_ + (let ((_%$e138348%_ (##structure-instance-of? - _%hd134584%_ + _%hd138344%_ 'gx#module-context::t))) - (if _%$e134588%_ - _%$e134588%_ + (if _%$e138348%_ + _%$e138348%_ (gx#raise-syntax-error '#f '"Unexpected import" - _%stx134529%_ - _%hd134584%_))))) - (_%lp134557%_ - _%rest134583%_ - (cons _%hd134584%_ _%body134560%_))))) - (if (pair? _%rest134561134569%_) - (let ((_%hd134566134595%_ - (##car _%rest134561134569%_)) - (_%tl134567134597%_ - (##cdr _%rest134561134569%_))) - (let* ((_%hd134600%_ _%hd134566134595%_) - (_%rest134602%_ _%tl134567134597%_)) - (_%K134565134592%_ - _%rest134602%_ - _%hd134600%_))) - (_%else134563134580%_))))))) - (_%expanded-import?134539%_ - (lambda (_%e134543%_) - (let ((_%$e134545%_ + _%stx138289%_ + _%hd138344%_))))) + (_%lp138317%_ + _%rest138343%_ + (cons _%hd138344%_ _%body138320%_))))) + (if (pair? _%rest138321138329%_) + (let ((_%hd138326138355%_ + (##car _%rest138321138329%_)) + (_%tl138327138357%_ + (##cdr _%rest138321138329%_))) + (let* ((_%hd138360%_ _%hd138326138355%_) + (_%rest138362%_ _%tl138327138357%_)) + (_%K138325138352%_ + _%rest138362%_ + _%hd138360%_))) + (_%else138323138340%_))))))) + (_%expanded-import?138299%_ + (lambda (_%e138303%_) + (let ((_%$e138305%_ (##structure-direct-instance-of? - _%e134543%_ + _%e138303%_ 'gx#import-set::t))) - (if _%$e134545%_ - _%$e134545%_ - (let ((_%$e134548%_ + (if _%$e138305%_ + _%$e138305%_ + (let ((_%$e138308%_ (##structure-direct-instance-of? - _%e134543%_ + _%e138303%_ 'gx#module-import::t))) - (if _%$e134548%_ - _%$e134548%_ + (if _%$e138308%_ + _%$e138308%_ (##structure-instance-of? - _%e134543%_ + _%e138303%_ 'gx#module-context::t)))))))) - (let ((_%rbody134541%_ + (let ((_%rbody138301%_ (gx#core-expand-import/export - _%stx134529%_ - _%expanded-import?134539%_ + _%stx138289%_ + _%expanded-import?138299%_ 'apply-import-expander gx#current-import-expander-phi - _%expand1134532%_))) - (if _%internal-expand?134530%_ - (reverse _%rbody134541%_) + _%expand1138292%_))) + (if _%internal-expand?138290%_ + (reverse _%rbody138301%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#import (_%import!134538%_ _%rbody134541%_)) - (gx#stx-source _%stx134529%_))))))) + (gx#core-cons '%#import (_%import!138298%_ _%rbody138301%_)) + (gx#stx-source _%stx138289%_))))))) (define gx#core-expand-import%__0 - (lambda (_%stx134868%_) - (let ((_%internal-expand?134870%_ '#f)) + (lambda (_%stx138628%_) + (let ((_%internal-expand?138630%_ '#f)) (gx#core-expand-import%__% - _%stx134868%_ - _%internal-expand?134870%_)))) + _%stx138628%_ + _%internal-expand?138630%_)))) (define gx#core-expand-import% - (lambda _g137524_ - (let ((_g137525_ (##length _g137524_))) - (cond ((##fx= _g137525_ 1) - (apply gx#core-expand-import%__0 _g137524_)) - ((##fx= _g137525_ 2) - (apply gx#core-expand-import%__% _g137524_)) + (lambda _g141279_ + (let ((_g141280_ (##length _g141279_))) + (cond ((##fx= _g141280_ 1) + (apply gx#core-expand-import%__0 _g141279_)) + ((##fx= _g141280_ 2) + (apply gx#core-expand-import%__% _g141279_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-import% - _g137524_)))))) + _g141279_)))))) (define gx#core-import-nested-module - (lambda (_%spath134456%_ _%where134457%_) - (let* ((_%e134458134465%_ _%spath134456%_) - (_%E134460134469%_ + (lambda (_%spath138216%_ _%where138217%_) + (let* ((_%e138218138225%_ _%spath138216%_) + (_%E138220138229%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e134458134465%_))) - (_%E134459134524%_ + _%e138218138225%_))) + (_%E138219138284%_ (lambda () - (if (gx#stx-pair? _%e134458134465%_) - (let ((_%e134461134473%_ - (gx#syntax-e _%e134458134465%_))) - (let ((_%hd134462134476%_ (##car _%e134461134473%_)) - (_%tl134463134478%_ (##cdr _%e134461134473%_))) - (let* ((_%origin134481%_ _%hd134462134476%_) - (_%sub134483%_ _%tl134463134478%_) - (_%origin-ctx134485%_ - (if (gx#stx-false? _%origin134481%_) + (if (gx#stx-pair? _%e138218138225%_) + (let ((_%e138221138233%_ + (gx#syntax-e _%e138218138225%_))) + (let ((_%hd138222138236%_ (##car _%e138221138233%_)) + (_%tl138223138238%_ (##cdr _%e138221138233%_))) + (let* ((_%origin138241%_ _%hd138222138236%_) + (_%sub138243%_ _%tl138223138238%_) + (_%origin-ctx138245%_ + (if (gx#stx-false? _%origin138241%_) (gx#current-expander-context) - (gx#import-module__0 _%origin134481%_)))) - (let _%lp134487%_ ((_%rest134489%_ _%sub134483%_) - (_%ctx134490%_ - _%origin-ctx134485%_)) - (let* ((_%e134491134498%_ _%rest134489%_) - (_%E134493134502%_ - (lambda () _%ctx134490%_)) - (_%E134492134520%_ + (gx#import-module__0 _%origin138241%_)))) + (let _%lp138247%_ ((_%rest138249%_ _%sub138243%_) + (_%ctx138250%_ + _%origin-ctx138245%_)) + (let* ((_%e138251138258%_ _%rest138249%_) + (_%E138253138262%_ + (lambda () _%ctx138250%_)) + (_%E138252138280%_ (lambda () - (if (gx#stx-pair? _%e134491134498%_) - (let ((_%e134494134506%_ + (if (gx#stx-pair? _%e138251138258%_) + (let ((_%e138254138266%_ (gx#syntax-e - _%e134491134498%_))) - (let ((_%hd134495134509%_ - (##car _%e134494134506%_)) - (_%tl134496134511%_ - (##cdr _%e134494134506%_))) - (let* ((_%id134514%_ - _%hd134495134509%_) - (_%rest134516%_ - _%tl134496134511%_) - (_%bind134518%_ + _%e138251138258%_))) + (let ((_%hd138255138269%_ + (##car _%e138254138266%_)) + (_%tl138256138271%_ + (##cdr _%e138254138266%_))) + (let* ((_%id138274%_ + _%hd138255138269%_) + (_%rest138276%_ + _%tl138256138271%_) + (_%bind138278%_ (gx#resolve-identifier__% - _%id134514%_ + _%id138274%_ '0 - _%ctx134490%_))) + _%ctx138250%_))) (if (and (##structure-direct-instance-of? - _%bind134518%_ + _%bind138278%_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _%bind134518%_ + _%bind138278%_ '4 '#f '#f) @@ -3301,804 +3297,804 @@ (gx#raise-syntax-error '#f '"Bad syntax; not bound as module" - _%where134457%_ - _%spath134456%_ - _%id134514%_)) - (_%lp134487%_ - _%rest134516%_ + _%where138217%_ + _%spath138216%_ + _%id138274%_)) + (_%lp138247%_ + _%rest138276%_ (##unchecked-structure-ref - _%bind134518%_ + _%bind138278%_ '4 '#f '#f))))) - (_%E134493134502%_))))) - (_%E134492134520%_)))))) - (_%E134460134469%_))))) - (_%E134459134524%_)))) + (_%E138253138262%_))))) + (_%E138252138280%_)))))) + (_%E138220138229%_))))) + (_%E138219138284%_)))) (define gx#core-expand-import-source - (lambda (_%hd134454%_) + (lambda (_%hd138214%_) (gx#core-expand-import%__% - (cons 'import-internal% (cons _%hd134454%_ '())) + (cons 'import-internal% (cons _%hd138214%_ '())) '#t))) (define gx#core-expand-export%__% - (lambda (_%stx133948%_ _%internal-expand?133949%_) - (letrec* ((_%make-export__137453137454%_ - (lambda (_%bind134402%_ - _%phi134403%_ - _%ctx134404%_ - _%name134405%_) - (let* ((_%key134407%_ + (lambda (_%stx137709%_ _%internal-expand?137710%_) + (letrec* ((_%make-export__141208141209%_ + (lambda (_%bind138162%_ + _%phi138163%_ + _%ctx138164%_ + _%name138165%_) + (let* ((_%key138167%_ (##unchecked-structure-ref - _%bind134402%_ + _%bind138162%_ '2 '#f '#f)) - (_%export-key134409%_ - (if _%name134405%_ - (gx#core-identifier-key _%name134405%_) - _%key134407%_))) + (_%export-key138169%_ + (if _%name138165%_ + (gx#core-identifier-key _%name138165%_) + _%key138167%_))) (##structure gx#module-export::t - _%ctx134404%_ - _%key134407%_ - _%phi134403%_ - _%export-key134409%_ - (let ((_%$e134412%_ + _%ctx138164%_ + _%key138167%_ + _%phi138163%_ + _%export-key138169%_ + (let ((_%$e138172%_ (##structure-instance-of? - _%bind134402%_ + _%bind138162%_ 'gx#extern-binding::t))) - (if _%$e134412%_ - _%$e134412%_ + (if _%$e138172%_ + _%$e138172%_ (##structure-direct-instance-of? - _%bind134402%_ + _%bind138162%_ 'gx#import-binding::t))))))) - (_%make-export__0__137455137458%_ - (lambda (_%bind134418%_) - (let* ((_%phi134420%_ (gx#current-export-expander-phi)) - (_%ctx134422%_ (gx#current-expander-context)) - (_%name134424%_ '#f)) - (_%make-export__137453137454%_ - _%bind134418%_ - _%phi134420%_ - _%ctx134422%_ - _%name134424%_)))) - (_%make-export__1__137456137459%_ - (lambda (_%bind134426%_ _%phi134427%_) - (let* ((_%ctx134429%_ (gx#current-expander-context)) - (_%name134431%_ '#f)) - (_%make-export__137453137454%_ - _%bind134426%_ - _%phi134427%_ - _%ctx134429%_ - _%name134431%_)))) - (_%make-export__2__137457137460%_ - (lambda (_%bind134433%_ _%phi134434%_ _%ctx134435%_) - (let ((_%name134437%_ '#f)) - (_%make-export__137453137454%_ - _%bind134433%_ - _%phi134434%_ - _%ctx134435%_ - _%name134437%_)))) - (_%make-export133951%_ - (lambda _g137526_ - (let ((_g137527_ (##length _g137526_))) - (cond ((##fx= _g137527_ 1) - (apply _%make-export__0__137455137458%_ - _g137526_)) - ((##fx= _g137527_ 2) - (apply _%make-export__1__137456137459%_ - _g137526_)) - ((##fx= _g137527_ 3) - (apply _%make-export__2__137457137460%_ - _g137526_)) - ((##fx= _g137527_ 4) - (apply _%make-export__137453137454%_ _g137526_)) + (_%make-export__0__141210141213%_ + (lambda (_%bind138178%_) + (let* ((_%phi138180%_ (gx#current-export-expander-phi)) + (_%ctx138182%_ (gx#current-expander-context)) + (_%name138184%_ '#f)) + (_%make-export__141208141209%_ + _%bind138178%_ + _%phi138180%_ + _%ctx138182%_ + _%name138184%_)))) + (_%make-export__1__141211141214%_ + (lambda (_%bind138186%_ _%phi138187%_) + (let* ((_%ctx138189%_ (gx#current-expander-context)) + (_%name138191%_ '#f)) + (_%make-export__141208141209%_ + _%bind138186%_ + _%phi138187%_ + _%ctx138189%_ + _%name138191%_)))) + (_%make-export__2__141212141215%_ + (lambda (_%bind138193%_ _%phi138194%_ _%ctx138195%_) + (let ((_%name138197%_ '#f)) + (_%make-export__141208141209%_ + _%bind138193%_ + _%phi138194%_ + _%ctx138195%_ + _%name138197%_)))) + (_%make-export137712%_ + (lambda _g141281_ + (let ((_g141282_ (##length _g141281_))) + (cond ((##fx= _g141282_ 1) + (apply _%make-export__0__141210141213%_ + _g141281_)) + ((##fx= _g141282_ 2) + (apply _%make-export__1__141211141214%_ + _g141281_)) + ((##fx= _g141282_ 3) + (apply _%make-export__2__141212141215%_ + _g141281_)) + ((##fx= _g141282_ 4) + (apply _%make-export__141208141209%_ _g141281_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g137526_)))))) - (_%expand1133952%_ - (lambda (_%hd134107%_ - _%K134108%_ - _%rest134109%_ - _%r134110%_) - (let* ((_%e134111134143%_ _%hd134107%_) - (_%E134138134147%_ + _g141281_)))))) + (_%expand1137713%_ + (lambda (_%hd137867%_ + _%K137868%_ + _%rest137869%_ + _%r137870%_) + (let* ((_%e137871137903%_ _%hd137867%_) + (_%E137898137907%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal export" - _%stx133948%_ - _%hd134107%_))) - (_%E134128134231%_ + _%stx137709%_ + _%hd137867%_))) + (_%E137888137991%_ (lambda () - (if (gx#stx-pair? _%e134111134143%_) - (let ((_%e134139134151%_ - (gx#syntax-e _%e134111134143%_))) - (let ((_%hd134140134154%_ - (##car _%e134139134151%_)) - (_%tl134141134156%_ - (##cdr _%e134139134151%_))) - (if (eq? (gx#stx-e _%hd134140134154%_) + (if (gx#stx-pair? _%e137871137903%_) + (let ((_%e137899137911%_ + (gx#syntax-e _%e137871137903%_))) + (let ((_%hd137900137914%_ + (##car _%e137899137911%_)) + (_%tl137901137916%_ + (##cdr _%e137899137911%_))) + (if (eq? (gx#stx-e _%hd137900137914%_) 'import:) - (let ((_%in134159%_ - _%tl134141134156%_)) - (if (gx#stx-list? _%in134159%_) - (let _%lp134161%_ ((_%in-rest134163%_ + (let ((_%in137919%_ + _%tl137901137916%_)) + (if (gx#stx-list? _%in137919%_) + (let _%lp137921%_ ((_%in-rest137923%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in134159%_) - (_%r134164%_ _%r134110%_)) + _%in137919%_) + (_%r137924%_ _%r137870%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%e134165134172%_ - _%in-rest134163%_) - (_%E134167134176%_ + (let* ((_%e137925137932%_ + _%in-rest137923%_) + (_%E137927137936%_ (lambda () - (_%K134108%_ - _%rest134109%_ - _%r134164%_))) - (_%E134166134227%_ + (_%K137868%_ + _%rest137869%_ + _%r137924%_))) + (_%E137926137987%_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e134165134172%_) - (let ((_%e134168134180%_ - (gx#syntax-e _%e134165134172%_))) - (let ((_%hd134169134183%_ (##car _%e134168134180%_)) - (_%tl134170134185%_ - (##cdr _%e134168134180%_))) - (let* ((_%hd134188%_ _%hd134169134183%_) - (_%in-rest134190%_ _%tl134170134185%_) - (_%src134225%_ - (if (gx#core-bound-module? _%hd134188%_) - (gx#syntax-local-e__0 _%hd134188%_) + _%e137925137932%_) + (let ((_%e137928137940%_ + (gx#syntax-e _%e137925137932%_))) + (let ((_%hd137929137943%_ (##car _%e137928137940%_)) + (_%tl137930137945%_ + (##cdr _%e137928137940%_))) + (let* ((_%hd137948%_ _%hd137929137943%_) + (_%in-rest137950%_ _%tl137930137945%_) + (_%src137985%_ + (if (gx#core-bound-module? _%hd137948%_) + (gx#syntax-local-e__0 _%hd137948%_) (if (gx#core-library-module-path? - _%hd134188%_) + _%hd137948%_) (gx#import-module__0 (gx#core-resolve-library-module-path - _%hd134188%_)) + _%hd137948%_)) (if (gx#core-library-relative-module-path? - _%hd134188%_) + _%hd137948%_) (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _%hd134188%_)) + _%hd137948%_)) (if (gx#stx-string? - _%hd134188%_) + _%hd137948%_) (gx#import-module__0 (gx#core-resolve-module-path__% - _%hd134188%_ + _%hd137948%_ (gx#stx-source - _%stx133948%_))) - (let* ((_%e134196134203%_ - _%hd134188%_) - (_%E134198134207%_ + _%stx137709%_))) + (let* ((_%e137956137963%_ + _%hd137948%_) + (_%E137958137967%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal re-export" - _%stx133948%_ - _%hd134188%_))) - (_%E134197134221%_ + _%stx137709%_ + _%hd137948%_))) + (_%E137957137981%_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e134196134203%_) - (let ((_%e134199134211%_ - (gx#syntax-e _%e134196134203%_))) - (let ((_%hd134200134214%_ - (##car _%e134199134211%_)) - (_%tl134201134216%_ - (##cdr _%e134199134211%_))) - (if (eq? (gx#stx-e _%hd134200134214%_) 'in:) - (let ((_%spath134219%_ _%tl134201134216%_)) + _%e137956137963%_) + (let ((_%e137959137971%_ + (gx#syntax-e _%e137956137963%_))) + (let ((_%hd137960137974%_ + (##car _%e137959137971%_)) + (_%tl137961137976%_ + (##cdr _%e137959137971%_))) + (if (eq? (gx#stx-e _%hd137960137974%_) 'in:) + (let ((_%spath137979%_ _%tl137961137976%_)) (gx#core-import-nested-module - _%spath134219%_ - _%stx133948%_)) - (_%E134198134207%_)))) - (_%E134198134207%_))))) - (_%E134197134221%_)))))))) + _%spath137979%_ + _%stx137709%_)) + (_%E137958137967%_)))) + (_%E137958137967%_))))) + (_%E137957137981%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp134161%_ - _%in-rest134190%_ - (_%export-imports133953%_ - _%src134225%_ - _%r134164%_))))) - (_%E134167134176%_))))) + (_%lp137921%_ + _%in-rest137950%_ + (_%export-imports137714%_ + _%src137985%_ + _%r137924%_))))) + (_%E137927137936%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E134166134227%_))) - (_%E134138134147%_))) - (_%E134138134147%_)))) - (_%E134138134147%_)))) - (_%E134115134271%_ + (_%E137926137987%_))) + (_%E137898137907%_))) + (_%E137898137907%_)))) + (_%E137898137907%_)))) + (_%E137875138031%_ (lambda () - (if (gx#stx-pair? _%e134111134143%_) - (let ((_%e134129134235%_ - (gx#syntax-e _%e134111134143%_))) - (let ((_%hd134130134238%_ - (##car _%e134129134235%_)) - (_%tl134131134240%_ - (##cdr _%e134129134235%_))) - (if (eq? (gx#stx-e _%hd134130134238%_) + (if (gx#stx-pair? _%e137871137903%_) + (let ((_%e137889137995%_ + (gx#syntax-e _%e137871137903%_))) + (let ((_%hd137890137998%_ + (##car _%e137889137995%_)) + (_%tl137891138000%_ + (##cdr _%e137889137995%_))) + (if (eq? (gx#stx-e _%hd137890137998%_) 'rename:) (if (gx#stx-pair? - _%tl134131134240%_) - (let ((_%e134132134243%_ + _%tl137891138000%_) + (let ((_%e137892138003%_ (gx#syntax-e - _%tl134131134240%_))) - (let ((_%hd134133134246%_ - (##car _%e134132134243%_)) - (_%tl134134134248%_ - (##cdr _%e134132134243%_))) - (let ((_%id134251%_ - _%hd134133134246%_)) + _%tl137891138000%_))) + (let ((_%hd137893138006%_ + (##car _%e137892138003%_)) + (_%tl137894138008%_ + (##cdr _%e137892138003%_))) + (let ((_%id138011%_ + _%hd137893138006%_)) (if (gx#stx-pair? - _%tl134134134248%_) - (let ((_%e134135134253%_ + _%tl137894138008%_) + (let ((_%e137895138013%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl134134134248%_))) - (let ((_%hd134136134256%_ (##car _%e134135134253%_)) - (_%tl134137134258%_ (##cdr _%e134135134253%_))) - (let ((_%name134261%_ _%hd134136134256%_)) - (if (gx#stx-null? _%tl134137134258%_) - (let* ((_%phi134263%_ + _%tl137894138008%_))) + (let ((_%hd137896138016%_ (##car _%e137895138013%_)) + (_%tl137897138018%_ (##cdr _%e137895138013%_))) + (let ((_%name138021%_ _%hd137896138016%_)) + (if (gx#stx-null? _%tl137897138018%_) + (let* ((_%phi138023%_ (gx#current-export-expander-phi)) - (_%$e134265%_ + (_%$e138025%_ (gx#core-resolve-identifier__1 - _%id134251%_ - _%phi134263%_))) - (if _%$e134265%_ - ((lambda (_%bind134268%_) - (_%K134108%_ - _%rest134109%_ - (cons (_%make-export__137453137454%_ - _%bind134268%_ - _%phi134263%_ + _%id138011%_ + _%phi138023%_))) + (if _%$e138025%_ + ((lambda (_%bind138028%_) + (_%K137868%_ + _%rest137869%_ + (cons (_%make-export__141208141209%_ + _%bind138028%_ + _%phi138023%_ (gx#current-expander-context) - _%name134261%_) - _%r134110%_))) - _%$e134265%_) + _%name138021%_) + _%r137870%_))) + _%$e138025%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx133948%_ - _%hd134107%_ - _%id134251%_))) - (_%E134128134231%_))))) - (_%E134128134231%_))))) + _%stx137709%_ + _%hd137867%_ + _%id138011%_))) + (_%E137888137991%_))))) + (_%E137888137991%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E134128134231%_)) - (_%E134128134231%_)))) - (_%E134128134231%_)))) - (_%E134114134321%_ + (_%E137888137991%_)) + (_%E137888137991%_)))) + (_%E137888137991%_)))) + (_%E137874138081%_ (lambda () - (if (gx#stx-pair? _%e134111134143%_) - (let ((_%e134116134275%_ - (gx#syntax-e _%e134111134143%_))) - (let ((_%hd134117134278%_ - (##car _%e134116134275%_)) - (_%tl134118134280%_ - (##cdr _%e134116134275%_))) - (if (eq? (gx#stx-e _%hd134117134278%_) + (if (gx#stx-pair? _%e137871137903%_) + (let ((_%e137876138035%_ + (gx#syntax-e _%e137871137903%_))) + (let ((_%hd137877138038%_ + (##car _%e137876138035%_)) + (_%tl137878138040%_ + (##cdr _%e137876138035%_))) + (if (eq? (gx#stx-e _%hd137877138038%_) 'spec:) (if (gx#stx-pair? - _%tl134118134280%_) - (let ((_%e134119134283%_ + _%tl137878138040%_) + (let ((_%e137879138043%_ (gx#syntax-e - _%tl134118134280%_))) - (let ((_%hd134120134286%_ - (##car _%e134119134283%_)) - (_%tl134121134288%_ - (##cdr _%e134119134283%_))) - (let ((_%phi134291%_ - _%hd134120134286%_)) + _%tl137878138040%_))) + (let ((_%hd137880138046%_ + (##car _%e137879138043%_)) + (_%tl137881138048%_ + (##cdr _%e137879138043%_))) + (let ((_%phi138051%_ + _%hd137880138046%_)) (if (gx#stx-pair? - _%tl134121134288%_) - (let ((_%e134122134293%_ + _%tl137881138048%_) + (let ((_%e137882138053%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl134121134288%_))) - (let ((_%hd134123134296%_ (##car _%e134122134293%_)) - (_%tl134124134298%_ (##cdr _%e134122134293%_))) - (let ((_%id134301%_ _%hd134123134296%_)) - (if (gx#stx-pair? _%tl134124134298%_) - (let ((_%e134125134303%_ - (gx#syntax-e _%tl134124134298%_))) - (let ((_%hd134126134306%_ - (##car _%e134125134303%_)) - (_%tl134127134308%_ - (##cdr _%e134125134303%_))) - (let ((_%name134311%_ _%hd134126134306%_)) - (if (gx#stx-null? _%tl134127134308%_) - (if (and (gx#stx-fixnum? _%phi134291%_) - (gx#identifier? _%id134301%_) - (gx#identifier? _%name134311%_)) - (let* ((_%phi134313%_ - (gx#stx-e _%phi134291%_)) - (_%$e134315%_ + _%tl137881138048%_))) + (let ((_%hd137883138056%_ (##car _%e137882138053%_)) + (_%tl137884138058%_ (##cdr _%e137882138053%_))) + (let ((_%id138061%_ _%hd137883138056%_)) + (if (gx#stx-pair? _%tl137884138058%_) + (let ((_%e137885138063%_ + (gx#syntax-e _%tl137884138058%_))) + (let ((_%hd137886138066%_ + (##car _%e137885138063%_)) + (_%tl137887138068%_ + (##cdr _%e137885138063%_))) + (let ((_%name138071%_ _%hd137886138066%_)) + (if (gx#stx-null? _%tl137887138068%_) + (if (and (gx#stx-fixnum? _%phi138051%_) + (gx#identifier? _%id138061%_) + (gx#identifier? _%name138071%_)) + (let* ((_%phi138073%_ + (gx#stx-e _%phi138051%_)) + (_%$e138075%_ (gx#core-resolve-identifier__1 - _%id134301%_ - _%phi134313%_))) - (if _%$e134315%_ - ((lambda (_%bind134318%_) - (_%K134108%_ - _%rest134109%_ - (cons (_%make-export__137453137454%_ - _%bind134318%_ - _%phi134313%_ + _%id138061%_ + _%phi138073%_))) + (if _%$e138075%_ + ((lambda (_%bind138078%_) + (_%K137868%_ + _%rest137869%_ + (cons (_%make-export__141208141209%_ + _%bind138078%_ + _%phi138073%_ (gx#current-expander-context) - _%name134311%_) - _%r134110%_))) - _%$e134315%_) + _%name138071%_) + _%r137870%_))) + _%$e138075%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx133948%_ - _%hd134107%_ - _%id134301%_))) - (_%E134115134271%_)) - (_%E134115134271%_))))) - (_%E134115134271%_))))) - (_%E134115134271%_))))) + _%stx137709%_ + _%hd137867%_ + _%id138061%_))) + (_%E137875138031%_)) + (_%E137875138031%_))))) + (_%E137875138031%_))))) + (_%E137875138031%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E134115134271%_)) - (_%E134115134271%_)))) - (_%E134115134271%_)))) - (_%E134113134333%_ + (_%E137875138031%_)) + (_%E137875138031%_)))) + (_%E137875138031%_)))) + (_%E137873138093%_ (lambda () - (let ((_%id134325%_ _%e134111134143%_)) - (if (gx#identifier? _%id134325%_) - (let ((_%$e134327%_ + (let ((_%id138085%_ _%e137871137903%_)) + (if (gx#identifier? _%id138085%_) + (let ((_%$e138087%_ (gx#core-resolve-identifier__1 - _%id134325%_ + _%id138085%_ (gx#current-export-expander-phi)))) - (if _%$e134327%_ - ((lambda (_%bind134330%_) - (_%K134108%_ - _%rest134109%_ - (cons (_%make-export__0__137455137458%_ - _%bind134330%_) - _%r134110%_))) - _%$e134327%_) + (if _%$e138087%_ + ((lambda (_%bind138090%_) + (_%K137868%_ + _%rest137869%_ + (cons (_%make-export__0__141210141213%_ + _%bind138090%_) + _%r137870%_))) + _%$e138087%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx133948%_ - _%hd134107%_))) - (_%E134114134321%_))))) - (_%E134112134397%_ + _%stx137709%_ + _%hd137867%_))) + (_%E137874138081%_))))) + (_%E137872138157%_ (lambda () - (if (eq? (gx#stx-e _%e134111134143%_) '#t) - (let* ((_%current-ctx134337%_ + (if (eq? (gx#stx-e _%e137871137903%_) '#t) + (let* ((_%current-ctx138097%_ (gx#current-expander-context)) - (_%current-phi134339%_ + (_%current-phi138099%_ (gx#current-export-expander-phi)) - (_%phi-ctx134341%_ + (_%phi-ctx138101%_ (gx#core-context-shift - _%current-ctx134337%_ - _%current-phi134339%_)) - (_%phi-bind134343%_ + _%current-ctx138097%_ + _%current-phi138099%_)) + (_%phi-bind138103%_ (hash->list (##unchecked-structure-ref - _%phi-ctx134341%_ + _%phi-ctx138101%_ '2 '#f '#f)))) - (let _%lp134346%_ ((_%bind-rest134348%_ - _%phi-bind134343%_) - (_%set134349%_ '())) - (let* ((_%bind-rest134350134360%_ - _%bind-rest134348%_) - (_%else134352134368%_ + (let _%lp138106%_ ((_%bind-rest138108%_ + _%phi-bind138103%_) + (_%set138109%_ '())) + (let* ((_%bind-rest138110138120%_ + _%bind-rest138108%_) + (_%else138112138128%_ (lambda () - (_%K134108%_ - _%rest134109%_ + (_%K137868%_ + _%rest137869%_ (cons (##structure gx#export-set::t '#f - _%current-phi134339%_ - _%set134349%_) - _%r134110%_)))) - (_%K134354134378%_ - (lambda (_%bind-rest134371%_ - _%bind134372%_ - _%key134373%_) + _%current-phi138099%_ + _%set138109%_) + _%r137870%_)))) + (_%K138114138138%_ + (lambda (_%bind-rest138131%_ + _%bind138132%_ + _%key138133%_) (if (or (##structure-direct-instance-of? - _%bind134372%_ + _%bind138132%_ 'gx#import-binding::t) (gx#private-feature-binding? - _%bind134372%_)) - (_%lp134346%_ - _%bind-rest134371%_ - _%set134349%_) - (_%lp134346%_ - _%bind-rest134371%_ - (cons (_%make-export__2__137457137460%_ - _%bind134372%_ - _%current-phi134339%_ - _%current-ctx134337%_) - _%set134349%_)))))) - (if (pair? _%bind-rest134350134360%_) - (let ((_%hd134355134381%_ - (##car _%bind-rest134350134360%_)) - (_%tl134356134383%_ - (##cdr _%bind-rest134350134360%_))) - (if (pair? _%hd134355134381%_) - (let ((_%hd134357134386%_ - (##car _%hd134355134381%_)) - (_%tl134358134388%_ - (##cdr _%hd134355134381%_))) - (let* ((_%key134391%_ - _%hd134357134386%_) - (_%bind134393%_ - _%tl134358134388%_) - (_%bind-rest134395%_ - _%tl134356134383%_)) - (_%K134354134378%_ - _%bind-rest134395%_ - _%bind134393%_ - _%key134391%_))) - (_%else134352134368%_))) - (_%else134352134368%_))))) - (_%E134113134333%_))))) - (_%E134112134397%_)))) - (_%export-imports133953%_ - (lambda (_%src133983%_ _%r133984%_) - (letrec* ((_%current-ctx133986%_ + _%bind138132%_)) + (_%lp138106%_ + _%bind-rest138131%_ + _%set138109%_) + (_%lp138106%_ + _%bind-rest138131%_ + (cons (_%make-export__2__141212141215%_ + _%bind138132%_ + _%current-phi138099%_ + _%current-ctx138097%_) + _%set138109%_)))))) + (if (pair? _%bind-rest138110138120%_) + (let ((_%hd138115138141%_ + (##car _%bind-rest138110138120%_)) + (_%tl138116138143%_ + (##cdr _%bind-rest138110138120%_))) + (if (pair? _%hd138115138141%_) + (let ((_%hd138117138146%_ + (##car _%hd138115138141%_)) + (_%tl138118138148%_ + (##cdr _%hd138115138141%_))) + (let* ((_%key138151%_ + _%hd138117138146%_) + (_%bind138153%_ + _%tl138118138148%_) + (_%bind-rest138155%_ + _%tl138116138143%_)) + (_%K138114138138%_ + _%bind-rest138155%_ + _%bind138153%_ + _%key138151%_))) + (_%else138112138128%_))) + (_%else138112138128%_))))) + (_%E137873138093%_))))) + (_%E137872138157%_)))) + (_%export-imports137714%_ + (lambda (_%src137744%_ _%r137745%_) + (letrec* ((_%current-ctx137747%_ (gx#current-expander-context)) - (_%current-phi133987%_ + (_%current-phi137748%_ (gx#current-export-expander-phi)) - (_%import->export133988%_ - (lambda (_%in134069%_) - (let* ((_%in134070134078%_ _%in134069%_) - (_%E134072134082%_ + (_%import->export137749%_ + (lambda (_%in137830%_) + (let* ((_%in137831137839%_ _%in137830%_) + (_%E137833137842%_ (lambda () (error '"No clause matching" - _%in134070134078%_ + _%in137831137839%_ '((module-import out key phi))) '#!void)) - (_%K134073134089%_ - (lambda (_%phi134085%_ - _%key134086%_ - _%out134087%_) + (_%K137834137849%_ + (lambda (_%phi137845%_ + _%key137846%_ + _%out137847%_) (##structure gx#module-export::t - _%current-ctx133986%_ - _%key134086%_ - _%phi134085%_ - _%key134086%_ + _%current-ctx137747%_ + _%key137846%_ + _%phi137845%_ + _%key137846%_ '#t)))) (if (##structure-direct-instance-of? - _%in134070134078%_ + _%in137831137839%_ 'gx#module-import::t) - (let* ((_%e134074134092%_ + (let* ((_%e137835137852%_ (##unchecked-structure-ref - _%in134070134078%_ + _%in137831137839%_ '1 '#f '#f)) - (_%out134095%_ - _%e134074134092%_) - (_%e134075134097%_ + (_%out137855%_ + _%e137835137852%_) + (_%e137836137857%_ (##unchecked-structure-ref - _%in134070134078%_ + _%in137831137839%_ '2 '#f '#f)) - (_%key134100%_ - _%e134075134097%_) - (_%e134076134102%_ + (_%key137860%_ + _%e137836137857%_) + (_%e137837137862%_ (##unchecked-structure-ref - _%in134070134078%_ + _%in137831137839%_ '3 '#f '#f)) - (_%phi134105%_ - _%e134076134102%_)) - (_%K134073134089%_ - _%phi134105%_ - _%key134100%_ - _%out134095%_)) - (_%E134072134082%_))))) - (_%fold-e133989%_ - (lambda (_%in133991%_ _%r133992%_) - (let* ((_%in133993134007%_ _%in133991%_) - (_%else133996134015%_ - (lambda () _%r133992%_))) - (let ((_%K134002134051%_ - (lambda (_%phi134047%_ - _%key134048%_ - _%out134049%_) - (if (and (fx= _%phi134047%_ - _%current-phi133987%_) - (eq? _%src133983%_ + (_%phi137865%_ + _%e137837137862%_)) + (_%K137834137849%_ + _%phi137865%_ + _%key137860%_ + _%out137855%_)) + (_%E137833137842%_))))) + (_%fold-e137750%_ + (lambda (_%in137752%_ _%r137753%_) + (let* ((_%in137754137768%_ _%in137752%_) + (_%else137757137776%_ + (lambda () _%r137753%_))) + (let ((_%K137763137812%_ + (lambda (_%phi137808%_ + _%key137809%_ + _%out137810%_) + (if (and (fx= _%phi137808%_ + _%current-phi137748%_) + (eq? _%src137744%_ (##unchecked-structure-ref - _%out134049%_ + _%out137810%_ '1 '#f '#f))) - (cons (_%import->export133988%_ - _%in133991%_) - _%r133992%_) - _%r133992%_))) - (_%K133998134026%_ - (lambda (_%imports134019%_ - _%phi134020%_ - _%ctx134021%_) - (if (and (fx= _%phi134020%_ - _%current-phi133987%_) - (eq? _%src133983%_ - _%ctx134021%_)) + (cons (_%import->export137749%_ + _%in137752%_) + _%r137753%_) + _%r137753%_))) + (_%K137759137787%_ + (lambda (_%imports137780%_ + _%phi137781%_ + _%ctx137782%_) + (if (and (fx= _%phi137781%_ + _%current-phi137748%_) + (eq? _%src137744%_ + _%ctx137782%_)) (__foldl1 - (lambda (_%in134023%_ - _%r134024%_) - (cons (_%import->export133988%_ - _%in134023%_) - _%r134024%_)) - _%r133992%_ - _%imports134019%_) - _%r133992%_)))) - (let ((_%try-match133995134044%_ + (lambda (_%in137784%_ + _%r137785%_) + (cons (_%import->export137749%_ + _%in137784%_) + _%r137785%_)) + _%r137753%_ + _%imports137780%_) + _%r137753%_)))) + (let ((_%try-match137756137805%_ (lambda () (if (##structure-direct-instance-of? - _%in133993134007%_ + _%in137754137768%_ 'gx#import-set::t) - (let* ((_%e133999134029%_ + (let* ((_%e137760137790%_ (##unchecked-structure-ref - _%in133993134007%_ + _%in137754137768%_ '1 '#f '#f)) - (_%e134000134034%_ + (_%e137761137795%_ (##unchecked-structure-ref - _%in133993134007%_ + _%in137754137768%_ '2 '#f '#f)) - (_%e134001134039%_ + (_%e137762137800%_ (##unchecked-structure-ref - _%in133993134007%_ + _%in137754137768%_ '3 '#f '#f))) - (let ((_%ctx134032%_ - _%e133999134029%_) - (_%phi134037%_ - _%e134000134034%_) - (_%imports134042%_ - _%e134001134039%_)) - (_%K133998134026%_ - _%imports134042%_ - _%phi134037%_ - _%ctx134032%_))) - (_%else133996134015%_))))) + (let ((_%ctx137793%_ + _%e137760137790%_) + (_%phi137798%_ + _%e137761137795%_) + (_%imports137803%_ + _%e137762137800%_)) + (_%K137759137787%_ + _%imports137803%_ + _%phi137798%_ + _%ctx137793%_))) + (_%else137757137776%_))))) (if (##structure-direct-instance-of? - _%in133993134007%_ + _%in137754137768%_ 'gx#module-import::t) - (let* ((_%e134003134054%_ + (let* ((_%e137764137815%_ (##unchecked-structure-ref - _%in133993134007%_ + _%in137754137768%_ '1 '#f '#f)) - (_%e134004134059%_ + (_%e137765137820%_ (##unchecked-structure-ref - _%in133993134007%_ + _%in137754137768%_ '2 '#f '#f)) - (_%e134005134064%_ + (_%e137766137825%_ (##unchecked-structure-ref - _%in133993134007%_ + _%in137754137768%_ '3 '#f '#f))) - (let ((_%out134057%_ - _%e134003134054%_) - (_%key134062%_ - _%e134004134059%_) - (_%phi134067%_ - _%e134005134064%_)) - (_%K134002134051%_ - _%phi134067%_ - _%key134062%_ - _%out134057%_))) - (_%try-match133995134044%_)))))))) + (let ((_%out137818%_ + _%e137764137815%_) + (_%key137823%_ + _%e137765137820%_) + (_%phi137828%_ + _%e137766137825%_)) + (_%K137763137812%_ + _%phi137828%_ + _%key137823%_ + _%out137818%_))) + (_%try-match137756137805%_)))))))) (cons (##structure gx#export-set::t - _%src133983%_ - _%current-phi133987%_ + _%src137744%_ + _%current-phi137748%_ (__foldl1 - _%fold-e133989%_ + _%fold-e137750%_ '() (##unchecked-structure-ref - _%current-ctx133986%_ + _%current-ctx137747%_ '8 '#f '#f))) - _%r133984%_)))) - (_%export!133954%_ - (lambda (_%rbody133970%_) - (letrec* ((_%current-ctx133972%_ + _%r137745%_)))) + (_%export!137715%_ + (lambda (_%rbody137731%_) + (letrec* ((_%current-ctx137733%_ (gx#current-expander-context)) - (_%fold-e133973%_ - (lambda (_%out133977%_ _%r133978%_) + (_%fold-e137734%_ + (lambda (_%out137738%_ _%r137739%_) (if (##structure-direct-instance-of? - _%out133977%_ + _%out137738%_ 'gx#module-export::t) - (cons _%out133977%_ _%r133978%_) + (cons _%out137738%_ _%r137739%_) (if (##structure-direct-instance-of? - _%out133977%_ + _%out137738%_ 'gx#export-set::t) (__foldl1 cons - _%r133978%_ + _%r137739%_ (##unchecked-structure-ref - _%out133977%_ + _%out137738%_ '3 '#f '#f)) - _%r133978%_))))) - (let ((_%body133975%_ (reverse _%rbody133970%_))) + _%r137739%_))))) + (let ((_%body137736%_ (reverse _%rbody137731%_))) (##unchecked-structure-set! - _%current-ctx133972%_ + _%current-ctx137733%_ (__foldl1 - _%fold-e133973%_ + _%fold-e137734%_ (##unchecked-structure-ref - _%current-ctx133972%_ + _%current-ctx137733%_ '9 '#f '#f) - _%body133975%_) + _%body137736%_) '9 '#f '#f) - _%body133975%_)))) - (_%expanded-export?133955%_ - (lambda (_%e133965%_) - (let ((_%$e133967%_ + _%body137736%_)))) + (_%expanded-export?137716%_ + (lambda (_%e137726%_) + (let ((_%$e137728%_ (##structure-direct-instance-of? - _%e133965%_ + _%e137726%_ 'gx#module-export::t))) - (if _%$e133967%_ - _%$e133967%_ + (if _%$e137728%_ + _%$e137728%_ (##structure-direct-instance-of? - _%e133965%_ + _%e137726%_ 'gx#export-set::t)))))) (if (or (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - _%internal-expand?133949%_) - (let ((_%rbody133961%_ + _%internal-expand?137710%_) + (let ((_%rbody137722%_ (gx#core-expand-import/export - _%stx133948%_ - _%expanded-export?133955%_ + _%stx137709%_ + _%expanded-export?137716%_ 'apply-export-expander gx#current-export-expander-phi - _%expand1133952%_))) - (if _%internal-expand?133949%_ - (reverse _%rbody133961%_) + _%expand1137713%_))) + (if _%internal-expand?137710%_ + (reverse _%rbody137722%_) (gx#core-quote-syntax__1 (gx#core-cons '%#export - (_%export!133954%_ _%rbody133961%_)) - (gx#stx-source _%stx133948%_)))) + (_%export!137715%_ _%rbody137722%_)) + (gx#stx-source _%stx137709%_)))) (if (##structure-instance-of? (gx#current-expander-context) 'gx#top-context::t) (gx#core-quote-syntax__1 (gx#core-cons '%#begin '()) - (gx#stx-source _%stx133948%_)) + (gx#stx-source _%stx137709%_)) (gx#raise-syntax-error '#f '"Illegal context" - _%stx133948%_)))))) + _%stx137709%_)))))) (define gx#core-expand-export%__0 - (lambda (_%stx134447%_) - (let ((_%internal-expand?134449%_ '#f)) + (lambda (_%stx138207%_) + (let ((_%internal-expand?138209%_ '#f)) (gx#core-expand-export%__% - _%stx134447%_ - _%internal-expand?134449%_)))) + _%stx138207%_ + _%internal-expand?138209%_)))) (define gx#core-expand-export% - (lambda _g137528_ - (let ((_g137529_ (##length _g137528_))) - (cond ((##fx= _g137529_ 1) - (apply gx#core-expand-export%__0 _g137528_)) - ((##fx= _g137529_ 2) - (apply gx#core-expand-export%__% _g137528_)) + (lambda _g141283_ + (let ((_g141284_ (##length _g141283_))) + (cond ((##fx= _g141284_ 1) + (apply gx#core-expand-export%__0 _g141283_)) + ((##fx= _g141284_ 2) + (apply gx#core-expand-export%__% _g141283_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-export% - _g137528_)))))) + _g141283_)))))) (define gx#core-expand-export-source - (lambda (_%hd133945%_) + (lambda (_%hd137706%_) (gx#core-expand-export%__% - (cons 'export-macro% (cons _%hd133945%_ '())) + (cons 'export-macro% (cons _%hd137706%_ '())) '#t))) (define gx#core-expand-provide% - (lambda (_%stx133915%_) - (let* ((_%e133916133923%_ _%stx133915%_) - (_%E133918133927%_ + (lambda (_%stx137676%_) + (let* ((_%e137677137684%_ _%stx137676%_) + (_%E137679137688%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e133916133923%_))) - (_%E133917133941%_ + _%e137677137684%_))) + (_%E137678137702%_ (lambda () - (if (gx#stx-pair? _%e133916133923%_) - (let ((_%e133919133931%_ - (gx#syntax-e _%e133916133923%_))) - (let ((_%hd133920133934%_ (##car _%e133919133931%_)) - (_%tl133921133936%_ (##cdr _%e133919133931%_))) - (let ((_%body133939%_ _%tl133921133936%_)) - (if (gx#identifier-list? _%body133939%_) + (if (gx#stx-pair? _%e137677137684%_) + (let ((_%e137680137692%_ + (gx#syntax-e _%e137677137684%_))) + (let ((_%hd137681137695%_ (##car _%e137680137692%_)) + (_%tl137682137697%_ (##cdr _%e137680137692%_))) + (let ((_%body137700%_ _%tl137682137697%_)) + (if (gx#identifier-list? _%body137700%_) (begin (gx#stx-for-each1 gx#core-bind-feature! - _%body133939%_) + _%body137700%_) (gx#core-quote-syntax__1 (gx#core-cons '%#provide (gx#stx-map1 gx#core-quote-syntax - _%body133939%_)) - (gx#stx-source _%stx133915%_))) - (_%E133918133927%_))))) - (_%E133918133927%_))))) - (_%E133917133941%_)))) + _%body137700%_)) + (gx#stx-source _%stx137676%_))) + (_%E137679137688%_))))) + (_%E137679137688%_))))) + (_%E137678137702%_)))) (define gx#core-bind-feature!__% - (lambda (_%id133881%_ _%private?133882%_ _%phi133883%_ _%ctx133884%_) + (lambda (_%id137642%_ _%private?137643%_ _%phi137644%_ _%ctx137645%_) (gx#core-bind-syntax!__% - _%id133881%_ - ((if _%private?133882%_ + _%id137642%_ + ((if _%private?137643%_ gx#make-private-feature-expander gx#make-feature-expander) - (gx#stx-e _%id133881%_)) - _%private?133882%_ - _%phi133883%_ - _%ctx133884%_))) + (gx#stx-e _%id137642%_)) + _%private?137643%_ + _%phi137644%_ + _%ctx137645%_))) (define gx#core-bind-feature!__0 - (lambda (_%id133889%_) - (let* ((_%private?133891%_ '#f) - (_%phi133893%_ (gx#current-expander-phi)) - (_%ctx133895%_ (gx#current-expander-context))) + (lambda (_%id137650%_) + (let* ((_%private?137652%_ '#f) + (_%phi137654%_ (gx#current-expander-phi)) + (_%ctx137656%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id133889%_ - _%private?133891%_ - _%phi133893%_ - _%ctx133895%_)))) + _%id137650%_ + _%private?137652%_ + _%phi137654%_ + _%ctx137656%_)))) (define gx#core-bind-feature!__1 - (lambda (_%id133897%_ _%private?133898%_) - (let* ((_%phi133900%_ (gx#current-expander-phi)) - (_%ctx133902%_ (gx#current-expander-context))) + (lambda (_%id137658%_ _%private?137659%_) + (let* ((_%phi137661%_ (gx#current-expander-phi)) + (_%ctx137663%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id133897%_ - _%private?133898%_ - _%phi133900%_ - _%ctx133902%_)))) + _%id137658%_ + _%private?137659%_ + _%phi137661%_ + _%ctx137663%_)))) (define gx#core-bind-feature!__2 - (lambda (_%id133904%_ _%private?133905%_ _%phi133906%_) - (let ((_%ctx133908%_ (gx#current-expander-context))) + (lambda (_%id137665%_ _%private?137666%_ _%phi137667%_) + (let ((_%ctx137669%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id133904%_ - _%private?133905%_ - _%phi133906%_ - _%ctx133908%_)))) + _%id137665%_ + _%private?137666%_ + _%phi137667%_ + _%ctx137669%_)))) (define gx#core-bind-feature! - (lambda _g137530_ - (let ((_g137531_ (##length _g137530_))) - (cond ((##fx= _g137531_ 1) - (apply gx#core-bind-feature!__0 _g137530_)) - ((##fx= _g137531_ 2) - (apply gx#core-bind-feature!__1 _g137530_)) - ((##fx= _g137531_ 3) - (apply gx#core-bind-feature!__2 _g137530_)) - ((##fx= _g137531_ 4) - (apply gx#core-bind-feature!__% _g137530_)) + (lambda _g141285_ + (let ((_g141286_ (##length _g141285_))) + (cond ((##fx= _g141286_ 1) + (apply gx#core-bind-feature!__0 _g141285_)) + ((##fx= _g141286_ 2) + (apply gx#core-bind-feature!__1 _g141285_)) + ((##fx= _g141286_ 3) + (apply gx#core-bind-feature!__2 _g141285_)) + ((##fx= _g141286_ 4) + (apply gx#core-bind-feature!__% _g141285_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-feature! - _g137530_)))))))) + _g141285_)))))))) diff --git a/src/bootstrap/gerbil/expander/module~1.scm b/src/bootstrap/gerbil/expander/module~1.scm index 382d62fa67..543cab7602 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]#_g137533_| + (define |gx[1]#_g141288_| (##structure gx#syntax-quote::t 'module-import::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g137535_| + (define |gx[1]#_g141290_| (##structure gx#syntax-quote::t 'make-module-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g137537_| + (define |gx[1]#_g141292_| (##structure gx#syntax-quote::t 'module-import? #f (gx#current-expander-context) '())) - (define |gx[1]#_g137539_| + (define |gx[1]#_g141294_| (##structure gx#syntax-quote::t 'module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g137540_| + (define |gx[1]#_g141295_| (##structure gx#syntax-quote::t 'module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g137541_| + (define |gx[1]#_g141296_| (##structure gx#syntax-quote::t 'module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g137542_| + (define |gx[1]#_g141297_| (##structure gx#syntax-quote::t 'module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g137544_| + (define |gx[1]#_g141299_| (##structure gx#syntax-quote::t 'module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137545_| + (define |gx[1]#_g141300_| (##structure gx#syntax-quote::t 'module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137546_| + (define |gx[1]#_g141301_| (##structure gx#syntax-quote::t 'module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137547_| + (define |gx[1]#_g141302_| (##structure gx#syntax-quote::t 'module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137549_| + (define |gx[1]#_g141304_| (##structure gx#syntax-quote::t '&module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g137550_| + (define |gx[1]#_g141305_| (##structure gx#syntax-quote::t '&module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g137551_| + (define |gx[1]#_g141306_| (##structure gx#syntax-quote::t '&module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g137552_| + (define |gx[1]#_g141307_| (##structure gx#syntax-quote::t '&module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g137554_| + (define |gx[1]#_g141309_| (##structure gx#syntax-quote::t '&module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137555_| + (define |gx[1]#_g141310_| (##structure gx#syntax-quote::t '&module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137556_| + (define |gx[1]#_g141311_| (##structure gx#syntax-quote::t '&module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137557_| + (define |gx[1]#_g141312_| (##structure gx#syntax-quote::t '&module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137559_| + (define |gx[1]#_g141314_| (##structure gx#syntax-quote::t 'module-export::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g137561_| + (define |gx[1]#_g141316_| (##structure gx#syntax-quote::t 'make-module-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g137563_| + (define |gx[1]#_g141318_| (##structure gx#syntax-quote::t 'module-export? #f (gx#current-expander-context) '())) - (define |gx[1]#_g137565_| + (define |gx[1]#_g141320_| (##structure gx#syntax-quote::t 'module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g137566_| + (define |gx[1]#_g141321_| (##structure gx#syntax-quote::t 'module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g137567_| + (define |gx[1]#_g141322_| (##structure gx#syntax-quote::t 'module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g137568_| + (define |gx[1]#_g141323_| (##structure gx#syntax-quote::t 'module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g137569_| + (define |gx[1]#_g141324_| (##structure gx#syntax-quote::t 'module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g137571_| + (define |gx[1]#_g141326_| (##structure gx#syntax-quote::t 'module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137572_| + (define |gx[1]#_g141327_| (##structure gx#syntax-quote::t 'module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137573_| + (define |gx[1]#_g141328_| (##structure gx#syntax-quote::t 'module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137574_| + (define |gx[1]#_g141329_| (##structure gx#syntax-quote::t 'module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137575_| + (define |gx[1]#_g141330_| (##structure gx#syntax-quote::t 'module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137577_| + (define |gx[1]#_g141332_| (##structure gx#syntax-quote::t '&module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g137578_| + (define |gx[1]#_g141333_| (##structure gx#syntax-quote::t '&module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g137579_| + (define |gx[1]#_g141334_| (##structure gx#syntax-quote::t '&module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g137580_| + (define |gx[1]#_g141335_| (##structure gx#syntax-quote::t '&module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g137581_| + (define |gx[1]#_g141336_| (##structure gx#syntax-quote::t '&module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g137583_| + (define |gx[1]#_g141338_| (##structure gx#syntax-quote::t '&module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137584_| + (define |gx[1]#_g141339_| (##structure gx#syntax-quote::t '&module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137585_| + (define |gx[1]#_g141340_| (##structure gx#syntax-quote::t '&module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137586_| + (define |gx[1]#_g141341_| (##structure gx#syntax-quote::t '&module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137587_| + (define |gx[1]#_g141342_| (##structure gx#syntax-quote::t '&module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137589_| + (define |gx[1]#_g141344_| (##structure gx#syntax-quote::t 'import-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g137591_| + (define |gx[1]#_g141346_| (##structure gx#syntax-quote::t 'make-import-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g137593_| + (define |gx[1]#_g141348_| (##structure gx#syntax-quote::t 'import-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g137595_| + (define |gx[1]#_g141350_| (##structure gx#syntax-quote::t 'import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g137596_| + (define |gx[1]#_g141351_| (##structure gx#syntax-quote::t 'import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g137597_| + (define |gx[1]#_g141352_| (##structure gx#syntax-quote::t 'import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g137599_| + (define |gx[1]#_g141354_| (##structure gx#syntax-quote::t 'import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137600_| + (define |gx[1]#_g141355_| (##structure gx#syntax-quote::t 'import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137601_| + (define |gx[1]#_g141356_| (##structure gx#syntax-quote::t 'import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137603_| + (define |gx[1]#_g141358_| (##structure gx#syntax-quote::t '&import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g137604_| + (define |gx[1]#_g141359_| (##structure gx#syntax-quote::t '&import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g137605_| + (define |gx[1]#_g141360_| (##structure gx#syntax-quote::t '&import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g137607_| + (define |gx[1]#_g141362_| (##structure gx#syntax-quote::t '&import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137608_| + (define |gx[1]#_g141363_| (##structure gx#syntax-quote::t '&import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137609_| + (define |gx[1]#_g141364_| (##structure gx#syntax-quote::t '&import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137611_| + (define |gx[1]#_g141366_| (##structure gx#syntax-quote::t 'export-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g137613_| + (define |gx[1]#_g141368_| (##structure gx#syntax-quote::t 'make-export-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g137615_| + (define |gx[1]#_g141370_| (##structure gx#syntax-quote::t 'export-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g137617_| + (define |gx[1]#_g141372_| (##structure gx#syntax-quote::t 'export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g137618_| + (define |gx[1]#_g141373_| (##structure gx#syntax-quote::t 'export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g137619_| + (define |gx[1]#_g141374_| (##structure gx#syntax-quote::t 'export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g137621_| + (define |gx[1]#_g141376_| (##structure gx#syntax-quote::t 'export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137622_| + (define |gx[1]#_g141377_| (##structure gx#syntax-quote::t 'export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137623_| + (define |gx[1]#_g141378_| (##structure gx#syntax-quote::t 'export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137625_| + (define |gx[1]#_g141380_| (##structure gx#syntax-quote::t '&export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g137626_| + (define |gx[1]#_g141381_| (##structure gx#syntax-quote::t '&export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g137627_| + (define |gx[1]#_g141382_| (##structure gx#syntax-quote::t '&export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g137629_| + (define |gx[1]#_g141384_| (##structure gx#syntax-quote::t '&export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137630_| + (define |gx[1]#_g141385_| (##structure gx#syntax-quote::t '&export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137631_| + (define |gx[1]#_g141386_| (##structure gx#syntax-quote::t '&export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137633_| + (define |gx[1]#_g141388_| (##structure gx#syntax-quote::t 'user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g137635_| + (define |gx[1]#_g141390_| (##structure gx#syntax-quote::t 'import-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g137637_| + (define |gx[1]#_g141392_| (##structure gx#syntax-quote::t 'make-import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g137639_| + (define |gx[1]#_g141394_| (##structure gx#syntax-quote::t 'import-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g137641_| + (define |gx[1]#_g141396_| (##structure gx#syntax-quote::t 'import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g137642_| + (define |gx[1]#_g141397_| (##structure gx#syntax-quote::t 'import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g137643_| + (define |gx[1]#_g141398_| (##structure gx#syntax-quote::t 'import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g137645_| + (define |gx[1]#_g141400_| (##structure gx#syntax-quote::t 'import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137646_| + (define |gx[1]#_g141401_| (##structure gx#syntax-quote::t 'import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137647_| + (define |gx[1]#_g141402_| (##structure gx#syntax-quote::t 'import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137649_| + (define |gx[1]#_g141404_| (##structure gx#syntax-quote::t '&import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g137650_| + (define |gx[1]#_g141405_| (##structure gx#syntax-quote::t '&import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g137651_| + (define |gx[1]#_g141406_| (##structure gx#syntax-quote::t '&import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g137653_| + (define |gx[1]#_g141408_| (##structure gx#syntax-quote::t '&import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137654_| + (define |gx[1]#_g141409_| (##structure gx#syntax-quote::t '&import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137655_| + (define |gx[1]#_g141410_| (##structure gx#syntax-quote::t '&import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137658_| + (define |gx[1]#_g141413_| (##structure gx#syntax-quote::t 'export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g137660_| + (define |gx[1]#_g141415_| (##structure gx#syntax-quote::t 'make-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g137662_| + (define |gx[1]#_g141417_| (##structure gx#syntax-quote::t 'export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g137664_| + (define |gx[1]#_g141419_| (##structure gx#syntax-quote::t 'export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g137665_| + (define |gx[1]#_g141420_| (##structure gx#syntax-quote::t 'export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g137666_| + (define |gx[1]#_g141421_| (##structure gx#syntax-quote::t 'export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g137668_| + (define |gx[1]#_g141423_| (##structure gx#syntax-quote::t 'export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137669_| + (define |gx[1]#_g141424_| (##structure gx#syntax-quote::t 'export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137670_| + (define |gx[1]#_g141425_| (##structure gx#syntax-quote::t 'export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137672_| + (define |gx[1]#_g141427_| (##structure gx#syntax-quote::t '&export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g137673_| + (define |gx[1]#_g141428_| (##structure gx#syntax-quote::t '&export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g137674_| + (define |gx[1]#_g141429_| (##structure gx#syntax-quote::t '&export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g137676_| + (define |gx[1]#_g141431_| (##structure gx#syntax-quote::t '&export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137677_| + (define |gx[1]#_g141432_| (##structure gx#syntax-quote::t '&export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137678_| + (define |gx[1]#_g141433_| (##structure gx#syntax-quote::t '&export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137680_| + (define |gx[1]#_g141435_| (##structure gx#syntax-quote::t 'import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g137681_| + (define |gx[1]#_g141436_| (##structure gx#syntax-quote::t 'export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g137683_| + (define |gx[1]#_g141438_| (##structure gx#syntax-quote::t 'import-export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g137685_| + (define |gx[1]#_g141440_| (##structure gx#syntax-quote::t 'make-import-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g137687_| + (define |gx[1]#_g141442_| (##structure gx#syntax-quote::t 'import-export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g137689_| + (define |gx[1]#_g141444_| (##structure gx#syntax-quote::t 'import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g137690_| + (define |gx[1]#_g141445_| (##structure gx#syntax-quote::t 'import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g137691_| + (define |gx[1]#_g141446_| (##structure gx#syntax-quote::t 'import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g137693_| + (define |gx[1]#_g141448_| (##structure gx#syntax-quote::t 'import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137694_| + (define |gx[1]#_g141449_| (##structure gx#syntax-quote::t 'import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137695_| + (define |gx[1]#_g141450_| (##structure gx#syntax-quote::t 'import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137697_| + (define |gx[1]#_g141452_| (##structure gx#syntax-quote::t '&import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g137698_| + (define |gx[1]#_g141453_| (##structure gx#syntax-quote::t '&import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g137699_| + (define |gx[1]#_g141454_| (##structure gx#syntax-quote::t '&import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g137701_| + (define |gx[1]#_g141456_| (##structure gx#syntax-quote::t '&import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137702_| + (define |gx[1]#_g141457_| (##structure gx#syntax-quote::t '&import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137703_| + (define |gx[1]#_g141458_| (##structure gx#syntax-quote::t '&import-export-expander-e-set! @@ -842,7 +842,7 @@ '())) (begin (define |gx[:0:]#module-import| - (let ((__obj137487 + (let ((__obj141242 (let () (declare (not safe)) (##structure @@ -871,98 +871,98 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137487 + __obj141242 'gx#module-import::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137487 'module-import '2 '#f '#f)) + (##unchecked-structure-set! __obj141242 'module-import '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137487 + __obj141242 '(source name phi weak?) - '4 + '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137487 + __obj141242 '(source name phi weak?) - '6 + '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137487 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj141242 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137487 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj141242 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137487 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj141242 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137487 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj141242 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137487 '#f '11 '#f '#f)) - (let ((__tmp137532 |gx[1]#_g137533_|)) + (##unchecked-structure-set! __obj141242 '#f '12 '#f '#f)) + (let ((__tmp141287 |gx[1]#_g141288_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137487 __tmp137532 '12 '#f '#f)) - (let ((__tmp137534 |gx[1]#_g137535_|)) + (##unchecked-structure-set! __obj141242 __tmp141287 '3 '#f '#f)) + (let ((__tmp141289 |gx[1]#_g141290_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137487 __tmp137534 '13 '#f '#f)) - (let ((__tmp137536 |gx[1]#_g137537_|)) + (##unchecked-structure-set! __obj141242 __tmp141289 '13 '#f '#f)) + (let ((__tmp141291 |gx[1]#_g141292_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137487 __tmp137536 '14 '#f '#f)) - (let ((__tmp137538 - (cons (cons 'source |gx[1]#_g137539_|) - (cons (cons 'name |gx[1]#_g137540_|) - (cons (cons 'phi |gx[1]#_g137541_|) - (cons (cons 'weak? |gx[1]#_g137542_|) + (##unchecked-structure-set! __obj141242 __tmp141291 '14 '#f '#f)) + (let ((__tmp141293 + (cons (cons 'source |gx[1]#_g141294_|) + (cons (cons 'name |gx[1]#_g141295_|) + (cons (cons 'phi |gx[1]#_g141296_|) + (cons (cons 'weak? |gx[1]#_g141297_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj137487 __tmp137538 '15 '#f '#f)) - (let ((__tmp137543 - (cons (cons 'source |gx[1]#_g137544_|) - (cons (cons 'name |gx[1]#_g137545_|) - (cons (cons 'phi |gx[1]#_g137546_|) - (cons (cons 'weak? |gx[1]#_g137547_|) + (##unchecked-structure-set! __obj141242 __tmp141293 '15 '#f '#f)) + (let ((__tmp141298 + (cons (cons 'source |gx[1]#_g141299_|) + (cons (cons 'name |gx[1]#_g141300_|) + (cons (cons 'phi |gx[1]#_g141301_|) + (cons (cons 'weak? |gx[1]#_g141302_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj137487 __tmp137543 '16 '#f '#f)) - (let ((__tmp137548 - (cons (cons 'source |gx[1]#_g137549_|) - (cons (cons 'name |gx[1]#_g137550_|) - (cons (cons 'phi |gx[1]#_g137551_|) - (cons (cons 'weak? |gx[1]#_g137552_|) + (##unchecked-structure-set! __obj141242 __tmp141298 '16 '#f '#f)) + (let ((__tmp141303 + (cons (cons 'source |gx[1]#_g141304_|) + (cons (cons 'name |gx[1]#_g141305_|) + (cons (cons 'phi |gx[1]#_g141306_|) + (cons (cons 'weak? |gx[1]#_g141307_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj137487 __tmp137548 '17 '#f '#f)) - (let ((__tmp137553 - (cons (cons 'source |gx[1]#_g137554_|) - (cons (cons 'name |gx[1]#_g137555_|) - (cons (cons 'phi |gx[1]#_g137556_|) - (cons (cons 'weak? |gx[1]#_g137557_|) + (##unchecked-structure-set! __obj141242 __tmp141303 '17 '#f '#f)) + (let ((__tmp141308 + (cons (cons 'source |gx[1]#_g141309_|) + (cons (cons 'name |gx[1]#_g141310_|) + (cons (cons 'phi |gx[1]#_g141311_|) + (cons (cons 'weak? |gx[1]#_g141312_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj137487 __tmp137553 '18 '#f '#f)) + (##unchecked-structure-set! __obj141242 __tmp141308 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137487 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj141242 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137487 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj141242 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137487 '() '20 '#f '#f)) - __obj137487)) + (##unchecked-structure-set! __obj141242 '() '20 '#f '#f)) + __obj141242)) (define |gx[:0:]#module-export| - (let ((__obj137488 + (let ((__obj141243 (let () (declare (not safe)) (##structure @@ -991,102 +991,102 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137488 + __obj141243 'gx#module-export::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137488 'module-export '2 '#f '#f)) + (##unchecked-structure-set! __obj141243 'module-export '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137488 + __obj141243 '(context key phi name weak?) - '4 + '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137488 + __obj141243 '(context key phi name weak?) - '6 + '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137488 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj141243 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137488 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj141243 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137488 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj141243 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137488 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj141243 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137488 '#f '11 '#f '#f)) - (let ((__tmp137558 |gx[1]#_g137559_|)) + (##unchecked-structure-set! __obj141243 '#f '12 '#f '#f)) + (let ((__tmp141313 |gx[1]#_g141314_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137488 __tmp137558 '12 '#f '#f)) - (let ((__tmp137560 |gx[1]#_g137561_|)) + (##unchecked-structure-set! __obj141243 __tmp141313 '3 '#f '#f)) + (let ((__tmp141315 |gx[1]#_g141316_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137488 __tmp137560 '13 '#f '#f)) - (let ((__tmp137562 |gx[1]#_g137563_|)) + (##unchecked-structure-set! __obj141243 __tmp141315 '13 '#f '#f)) + (let ((__tmp141317 |gx[1]#_g141318_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137488 __tmp137562 '14 '#f '#f)) - (let ((__tmp137564 - (cons (cons 'context |gx[1]#_g137565_|) - (cons (cons 'key |gx[1]#_g137566_|) - (cons (cons 'phi |gx[1]#_g137567_|) - (cons (cons 'name |gx[1]#_g137568_|) - (cons (cons 'weak? |gx[1]#_g137569_|) + (##unchecked-structure-set! __obj141243 __tmp141317 '14 '#f '#f)) + (let ((__tmp141319 + (cons (cons 'context |gx[1]#_g141320_|) + (cons (cons 'key |gx[1]#_g141321_|) + (cons (cons 'phi |gx[1]#_g141322_|) + (cons (cons 'name |gx[1]#_g141323_|) + (cons (cons 'weak? |gx[1]#_g141324_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj137488 __tmp137564 '15 '#f '#f)) - (let ((__tmp137570 - (cons (cons 'context |gx[1]#_g137571_|) - (cons (cons 'key |gx[1]#_g137572_|) - (cons (cons 'phi |gx[1]#_g137573_|) - (cons (cons 'name |gx[1]#_g137574_|) - (cons (cons 'weak? |gx[1]#_g137575_|) + (##unchecked-structure-set! __obj141243 __tmp141319 '15 '#f '#f)) + (let ((__tmp141325 + (cons (cons 'context |gx[1]#_g141326_|) + (cons (cons 'key |gx[1]#_g141327_|) + (cons (cons 'phi |gx[1]#_g141328_|) + (cons (cons 'name |gx[1]#_g141329_|) + (cons (cons 'weak? |gx[1]#_g141330_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj137488 __tmp137570 '16 '#f '#f)) - (let ((__tmp137576 - (cons (cons 'context |gx[1]#_g137577_|) - (cons (cons 'key |gx[1]#_g137578_|) - (cons (cons 'phi |gx[1]#_g137579_|) - (cons (cons 'name |gx[1]#_g137580_|) - (cons (cons 'weak? |gx[1]#_g137581_|) + (##unchecked-structure-set! __obj141243 __tmp141325 '16 '#f '#f)) + (let ((__tmp141331 + (cons (cons 'context |gx[1]#_g141332_|) + (cons (cons 'key |gx[1]#_g141333_|) + (cons (cons 'phi |gx[1]#_g141334_|) + (cons (cons 'name |gx[1]#_g141335_|) + (cons (cons 'weak? |gx[1]#_g141336_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj137488 __tmp137576 '17 '#f '#f)) - (let ((__tmp137582 - (cons (cons 'context |gx[1]#_g137583_|) - (cons (cons 'key |gx[1]#_g137584_|) - (cons (cons 'phi |gx[1]#_g137585_|) - (cons (cons 'name |gx[1]#_g137586_|) - (cons (cons 'weak? |gx[1]#_g137587_|) + (##unchecked-structure-set! __obj141243 __tmp141331 '17 '#f '#f)) + (let ((__tmp141337 + (cons (cons 'context |gx[1]#_g141338_|) + (cons (cons 'key |gx[1]#_g141339_|) + (cons (cons 'phi |gx[1]#_g141340_|) + (cons (cons 'name |gx[1]#_g141341_|) + (cons (cons 'weak? |gx[1]#_g141342_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj137488 __tmp137582 '18 '#f '#f)) + (##unchecked-structure-set! __obj141243 __tmp141337 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137488 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj141243 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137488 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj141243 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137488 '() '20 '#f '#f)) - __obj137488)) + (##unchecked-structure-set! __obj141243 '() '20 '#f '#f)) + __obj141243)) (define |gx[:0:]#import-set| - (let ((__obj137489 + (let ((__obj141244 (let () (declare (not safe)) (##structure @@ -1115,90 +1115,90 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137489 + __obj141244 'gx#import-set::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137489 'import-set '2 '#f '#f)) + (##unchecked-structure-set! __obj141244 'import-set '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137489 + __obj141244 '(source phi imports) - '4 + '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137489 + __obj141244 '(source phi imports) - '6 + '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137489 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj141244 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137489 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj141244 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137489 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj141244 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137489 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj141244 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137489 '#f '11 '#f '#f)) - (let ((__tmp137588 |gx[1]#_g137589_|)) + (##unchecked-structure-set! __obj141244 '#f '12 '#f '#f)) + (let ((__tmp141343 |gx[1]#_g141344_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137489 __tmp137588 '12 '#f '#f)) - (let ((__tmp137590 |gx[1]#_g137591_|)) + (##unchecked-structure-set! __obj141244 __tmp141343 '3 '#f '#f)) + (let ((__tmp141345 |gx[1]#_g141346_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137489 __tmp137590 '13 '#f '#f)) - (let ((__tmp137592 |gx[1]#_g137593_|)) + (##unchecked-structure-set! __obj141244 __tmp141345 '13 '#f '#f)) + (let ((__tmp141347 |gx[1]#_g141348_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137489 __tmp137592 '14 '#f '#f)) - (let ((__tmp137594 - (cons (cons 'source |gx[1]#_g137595_|) - (cons (cons 'phi |gx[1]#_g137596_|) - (cons (cons 'imports |gx[1]#_g137597_|) '()))))) + (##unchecked-structure-set! __obj141244 __tmp141347 '14 '#f '#f)) + (let ((__tmp141349 + (cons (cons 'source |gx[1]#_g141350_|) + (cons (cons 'phi |gx[1]#_g141351_|) + (cons (cons 'imports |gx[1]#_g141352_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj137489 __tmp137594 '15 '#f '#f)) - (let ((__tmp137598 - (cons (cons 'source |gx[1]#_g137599_|) - (cons (cons 'phi |gx[1]#_g137600_|) - (cons (cons 'imports |gx[1]#_g137601_|) '()))))) + (##unchecked-structure-set! __obj141244 __tmp141349 '15 '#f '#f)) + (let ((__tmp141353 + (cons (cons 'source |gx[1]#_g141354_|) + (cons (cons 'phi |gx[1]#_g141355_|) + (cons (cons 'imports |gx[1]#_g141356_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj137489 __tmp137598 '16 '#f '#f)) - (let ((__tmp137602 - (cons (cons 'source |gx[1]#_g137603_|) - (cons (cons 'phi |gx[1]#_g137604_|) - (cons (cons 'imports |gx[1]#_g137605_|) '()))))) + (##unchecked-structure-set! __obj141244 __tmp141353 '16 '#f '#f)) + (let ((__tmp141357 + (cons (cons 'source |gx[1]#_g141358_|) + (cons (cons 'phi |gx[1]#_g141359_|) + (cons (cons 'imports |gx[1]#_g141360_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj137489 __tmp137602 '17 '#f '#f)) - (let ((__tmp137606 - (cons (cons 'source |gx[1]#_g137607_|) - (cons (cons 'phi |gx[1]#_g137608_|) - (cons (cons 'imports |gx[1]#_g137609_|) '()))))) + (##unchecked-structure-set! __obj141244 __tmp141357 '17 '#f '#f)) + (let ((__tmp141361 + (cons (cons 'source |gx[1]#_g141362_|) + (cons (cons 'phi |gx[1]#_g141363_|) + (cons (cons 'imports |gx[1]#_g141364_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj137489 __tmp137606 '18 '#f '#f)) + (##unchecked-structure-set! __obj141244 __tmp141361 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137489 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj141244 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137489 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj141244 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137489 '() '20 '#f '#f)) - __obj137489)) + (##unchecked-structure-set! __obj141244 '() '20 '#f '#f)) + __obj141244)) (define |gx[:0:]#export-set| - (let ((__obj137490 + (let ((__obj141245 (let () (declare (not safe)) (##structure @@ -1227,90 +1227,90 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137490 + __obj141245 'gx#export-set::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137490 'export-set '2 '#f '#f)) + (##unchecked-structure-set! __obj141245 'export-set '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137490 + __obj141245 '(source phi exports) - '4 + '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137490 + __obj141245 '(source phi exports) - '6 + '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137490 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj141245 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137490 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj141245 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137490 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj141245 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137490 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj141245 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137490 '#f '11 '#f '#f)) - (let ((__tmp137610 |gx[1]#_g137611_|)) + (##unchecked-structure-set! __obj141245 '#f '12 '#f '#f)) + (let ((__tmp141365 |gx[1]#_g141366_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137490 __tmp137610 '12 '#f '#f)) - (let ((__tmp137612 |gx[1]#_g137613_|)) + (##unchecked-structure-set! __obj141245 __tmp141365 '3 '#f '#f)) + (let ((__tmp141367 |gx[1]#_g141368_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137490 __tmp137612 '13 '#f '#f)) - (let ((__tmp137614 |gx[1]#_g137615_|)) + (##unchecked-structure-set! __obj141245 __tmp141367 '13 '#f '#f)) + (let ((__tmp141369 |gx[1]#_g141370_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137490 __tmp137614 '14 '#f '#f)) - (let ((__tmp137616 - (cons (cons 'source |gx[1]#_g137617_|) - (cons (cons 'phi |gx[1]#_g137618_|) - (cons (cons 'exports |gx[1]#_g137619_|) '()))))) + (##unchecked-structure-set! __obj141245 __tmp141369 '14 '#f '#f)) + (let ((__tmp141371 + (cons (cons 'source |gx[1]#_g141372_|) + (cons (cons 'phi |gx[1]#_g141373_|) + (cons (cons 'exports |gx[1]#_g141374_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj137490 __tmp137616 '15 '#f '#f)) - (let ((__tmp137620 - (cons (cons 'source |gx[1]#_g137621_|) - (cons (cons 'phi |gx[1]#_g137622_|) - (cons (cons 'exports |gx[1]#_g137623_|) '()))))) + (##unchecked-structure-set! __obj141245 __tmp141371 '15 '#f '#f)) + (let ((__tmp141375 + (cons (cons 'source |gx[1]#_g141376_|) + (cons (cons 'phi |gx[1]#_g141377_|) + (cons (cons 'exports |gx[1]#_g141378_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj137490 __tmp137620 '16 '#f '#f)) - (let ((__tmp137624 - (cons (cons 'source |gx[1]#_g137625_|) - (cons (cons 'phi |gx[1]#_g137626_|) - (cons (cons 'exports |gx[1]#_g137627_|) '()))))) + (##unchecked-structure-set! __obj141245 __tmp141375 '16 '#f '#f)) + (let ((__tmp141379 + (cons (cons 'source |gx[1]#_g141380_|) + (cons (cons 'phi |gx[1]#_g141381_|) + (cons (cons 'exports |gx[1]#_g141382_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj137490 __tmp137624 '17 '#f '#f)) - (let ((__tmp137628 - (cons (cons 'source |gx[1]#_g137629_|) - (cons (cons 'phi |gx[1]#_g137630_|) - (cons (cons 'exports |gx[1]#_g137631_|) '()))))) + (##unchecked-structure-set! __obj141245 __tmp141379 '17 '#f '#f)) + (let ((__tmp141383 + (cons (cons 'source |gx[1]#_g141384_|) + (cons (cons 'phi |gx[1]#_g141385_|) + (cons (cons 'exports |gx[1]#_g141386_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj137490 __tmp137628 '18 '#f '#f)) + (##unchecked-structure-set! __obj141245 __tmp141383 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137490 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj141245 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137490 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj141245 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137490 '() '20 '#f '#f)) - __obj137490)) + (##unchecked-structure-set! __obj141245 '() '20 '#f '#f)) + __obj141245)) (define |gx[:0:]#import-expander| - (let ((__obj137491 + (let ((__obj141246 (let () (declare (not safe)) (##structure @@ -1339,80 +1339,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137491 + __obj141246 'gx#import-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137491 'import-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj141246 'import-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137491 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj141246 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137491 '(e context phi) '6 '#f '#f)) - (let ((__tmp137632 (cons |gx[1]#_g137633_| '()))) + (##unchecked-structure-set! __obj141246 '(e context phi) '7 '#f '#f)) + (let ((__tmp141387 (cons |gx[1]#_g141388_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj137491 __tmp137632 '3 '#f '#f)) + (##unchecked-structure-set! __obj141246 __tmp141387 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137491 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj141246 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137491 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj141246 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137491 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj141246 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137491 ':init! '11 '#f '#f)) - (let ((__tmp137634 |gx[1]#_g137635_|)) + (##unchecked-structure-set! __obj141246 ':init! '12 '#f '#f)) + (let ((__tmp141389 |gx[1]#_g141390_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137491 __tmp137634 '12 '#f '#f)) - (let ((__tmp137636 |gx[1]#_g137637_|)) + (##unchecked-structure-set! __obj141246 __tmp141389 '3 '#f '#f)) + (let ((__tmp141391 |gx[1]#_g141392_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137491 __tmp137636 '13 '#f '#f)) - (let ((__tmp137638 |gx[1]#_g137639_|)) + (##unchecked-structure-set! __obj141246 __tmp141391 '13 '#f '#f)) + (let ((__tmp141393 |gx[1]#_g141394_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137491 __tmp137638 '14 '#f '#f)) - (let ((__tmp137640 - (cons (cons 'context |gx[1]#_g137641_|) - (cons (cons 'phi |gx[1]#_g137642_|) - (cons (cons 'e |gx[1]#_g137643_|) '()))))) + (##unchecked-structure-set! __obj141246 __tmp141393 '14 '#f '#f)) + (let ((__tmp141395 + (cons (cons 'context |gx[1]#_g141396_|) + (cons (cons 'phi |gx[1]#_g141397_|) + (cons (cons 'e |gx[1]#_g141398_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj137491 __tmp137640 '15 '#f '#f)) - (let ((__tmp137644 - (cons (cons 'context |gx[1]#_g137645_|) - (cons (cons 'phi |gx[1]#_g137646_|) - (cons (cons 'e |gx[1]#_g137647_|) '()))))) + (##unchecked-structure-set! __obj141246 __tmp141395 '15 '#f '#f)) + (let ((__tmp141399 + (cons (cons 'context |gx[1]#_g141400_|) + (cons (cons 'phi |gx[1]#_g141401_|) + (cons (cons 'e |gx[1]#_g141402_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj137491 __tmp137644 '16 '#f '#f)) - (let ((__tmp137648 - (cons (cons 'context |gx[1]#_g137649_|) - (cons (cons 'phi |gx[1]#_g137650_|) - (cons (cons 'e |gx[1]#_g137651_|) '()))))) + (##unchecked-structure-set! __obj141246 __tmp141399 '16 '#f '#f)) + (let ((__tmp141403 + (cons (cons 'context |gx[1]#_g141404_|) + (cons (cons 'phi |gx[1]#_g141405_|) + (cons (cons 'e |gx[1]#_g141406_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj137491 __tmp137648 '17 '#f '#f)) - (let ((__tmp137652 - (cons (cons 'context |gx[1]#_g137653_|) - (cons (cons 'phi |gx[1]#_g137654_|) - (cons (cons 'e |gx[1]#_g137655_|) '()))))) + (##unchecked-structure-set! __obj141246 __tmp141403 '17 '#f '#f)) + (let ((__tmp141407 + (cons (cons 'context |gx[1]#_g141408_|) + (cons (cons 'phi |gx[1]#_g141409_|) + (cons (cons 'e |gx[1]#_g141410_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj137491 __tmp137652 '18 '#f '#f)) + (##unchecked-structure-set! __obj141246 __tmp141407 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137491 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj141246 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137491 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj141246 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137491 '() '20 '#f '#f)) - __obj137491)) + (##unchecked-structure-set! __obj141246 '() '20 '#f '#f)) + __obj141246)) (define |gx[:0:]#export-expander| - (let ((__obj137492 + (let ((__obj141247 (let () (declare (not safe)) (##structure @@ -1441,80 +1441,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137492 + __obj141247 'gx#export-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137492 'export-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj141247 'export-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137492 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj141247 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137492 '(e context phi) '6 '#f '#f)) - (let ((__tmp137656 (cons |gx[1]#_g137633_| '()))) + (##unchecked-structure-set! __obj141247 '(e context phi) '7 '#f '#f)) + (let ((__tmp141411 (cons |gx[1]#_g141388_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj137492 __tmp137656 '3 '#f '#f)) + (##unchecked-structure-set! __obj141247 __tmp141411 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137492 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj141247 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137492 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj141247 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137492 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj141247 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137492 ':init! '11 '#f '#f)) - (let ((__tmp137657 |gx[1]#_g137658_|)) + (##unchecked-structure-set! __obj141247 ':init! '12 '#f '#f)) + (let ((__tmp141412 |gx[1]#_g141413_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137492 __tmp137657 '12 '#f '#f)) - (let ((__tmp137659 |gx[1]#_g137660_|)) + (##unchecked-structure-set! __obj141247 __tmp141412 '3 '#f '#f)) + (let ((__tmp141414 |gx[1]#_g141415_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137492 __tmp137659 '13 '#f '#f)) - (let ((__tmp137661 |gx[1]#_g137662_|)) + (##unchecked-structure-set! __obj141247 __tmp141414 '13 '#f '#f)) + (let ((__tmp141416 |gx[1]#_g141417_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137492 __tmp137661 '14 '#f '#f)) - (let ((__tmp137663 - (cons (cons 'context |gx[1]#_g137664_|) - (cons (cons 'phi |gx[1]#_g137665_|) - (cons (cons 'e |gx[1]#_g137666_|) '()))))) + (##unchecked-structure-set! __obj141247 __tmp141416 '14 '#f '#f)) + (let ((__tmp141418 + (cons (cons 'context |gx[1]#_g141419_|) + (cons (cons 'phi |gx[1]#_g141420_|) + (cons (cons 'e |gx[1]#_g141421_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj137492 __tmp137663 '15 '#f '#f)) - (let ((__tmp137667 - (cons (cons 'context |gx[1]#_g137668_|) - (cons (cons 'phi |gx[1]#_g137669_|) - (cons (cons 'e |gx[1]#_g137670_|) '()))))) + (##unchecked-structure-set! __obj141247 __tmp141418 '15 '#f '#f)) + (let ((__tmp141422 + (cons (cons 'context |gx[1]#_g141423_|) + (cons (cons 'phi |gx[1]#_g141424_|) + (cons (cons 'e |gx[1]#_g141425_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj137492 __tmp137667 '16 '#f '#f)) - (let ((__tmp137671 - (cons (cons 'context |gx[1]#_g137672_|) - (cons (cons 'phi |gx[1]#_g137673_|) - (cons (cons 'e |gx[1]#_g137674_|) '()))))) + (##unchecked-structure-set! __obj141247 __tmp141422 '16 '#f '#f)) + (let ((__tmp141426 + (cons (cons 'context |gx[1]#_g141427_|) + (cons (cons 'phi |gx[1]#_g141428_|) + (cons (cons 'e |gx[1]#_g141429_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj137492 __tmp137671 '17 '#f '#f)) - (let ((__tmp137675 - (cons (cons 'context |gx[1]#_g137676_|) - (cons (cons 'phi |gx[1]#_g137677_|) - (cons (cons 'e |gx[1]#_g137678_|) '()))))) + (##unchecked-structure-set! __obj141247 __tmp141426 '17 '#f '#f)) + (let ((__tmp141430 + (cons (cons 'context |gx[1]#_g141431_|) + (cons (cons 'phi |gx[1]#_g141432_|) + (cons (cons 'e |gx[1]#_g141433_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj137492 __tmp137675 '18 '#f '#f)) + (##unchecked-structure-set! __obj141247 __tmp141430 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137492 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj141247 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137492 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj141247 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137492 '() '20 '#f '#f)) - __obj137492)) + (##unchecked-structure-set! __obj141247 '() '20 '#f '#f)) + __obj141247)) (define |gx[:0:]#import-export-expander| - (let ((__obj137493 + (let ((__obj141248 (let () (declare (not safe)) (##structure @@ -1543,7 +1543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137493 + __obj141248 'gx#import-export-expander::t '1 '#f @@ -1551,73 +1551,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137493 + __obj141248 'import-export-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137493 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj141248 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137493 '(e context phi) '6 '#f '#f)) - (let ((__tmp137679 - (cons |gx[1]#_g137680_| (cons |gx[1]#_g137681_| '())))) + (##unchecked-structure-set! __obj141248 '(e context phi) '7 '#f '#f)) + (let ((__tmp141434 + (cons |gx[1]#_g141435_| (cons |gx[1]#_g141436_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj137493 __tmp137679 '3 '#f '#f)) + (##unchecked-structure-set! __obj141248 __tmp141434 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137493 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj141248 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137493 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj141248 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137493 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj141248 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137493 ':init! '11 '#f '#f)) - (let ((__tmp137682 |gx[1]#_g137683_|)) + (##unchecked-structure-set! __obj141248 ':init! '12 '#f '#f)) + (let ((__tmp141437 |gx[1]#_g141438_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137493 __tmp137682 '12 '#f '#f)) - (let ((__tmp137684 |gx[1]#_g137685_|)) + (##unchecked-structure-set! __obj141248 __tmp141437 '3 '#f '#f)) + (let ((__tmp141439 |gx[1]#_g141440_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137493 __tmp137684 '13 '#f '#f)) - (let ((__tmp137686 |gx[1]#_g137687_|)) + (##unchecked-structure-set! __obj141248 __tmp141439 '13 '#f '#f)) + (let ((__tmp141441 |gx[1]#_g141442_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137493 __tmp137686 '14 '#f '#f)) - (let ((__tmp137688 - (cons (cons 'context |gx[1]#_g137689_|) - (cons (cons 'phi |gx[1]#_g137690_|) - (cons (cons 'e |gx[1]#_g137691_|) '()))))) + (##unchecked-structure-set! __obj141248 __tmp141441 '14 '#f '#f)) + (let ((__tmp141443 + (cons (cons 'context |gx[1]#_g141444_|) + (cons (cons 'phi |gx[1]#_g141445_|) + (cons (cons 'e |gx[1]#_g141446_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj137493 __tmp137688 '15 '#f '#f)) - (let ((__tmp137692 - (cons (cons 'context |gx[1]#_g137693_|) - (cons (cons 'phi |gx[1]#_g137694_|) - (cons (cons 'e |gx[1]#_g137695_|) '()))))) + (##unchecked-structure-set! __obj141248 __tmp141443 '15 '#f '#f)) + (let ((__tmp141447 + (cons (cons 'context |gx[1]#_g141448_|) + (cons (cons 'phi |gx[1]#_g141449_|) + (cons (cons 'e |gx[1]#_g141450_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj137493 __tmp137692 '16 '#f '#f)) - (let ((__tmp137696 - (cons (cons 'context |gx[1]#_g137697_|) - (cons (cons 'phi |gx[1]#_g137698_|) - (cons (cons 'e |gx[1]#_g137699_|) '()))))) + (##unchecked-structure-set! __obj141248 __tmp141447 '16 '#f '#f)) + (let ((__tmp141451 + (cons (cons 'context |gx[1]#_g141452_|) + (cons (cons 'phi |gx[1]#_g141453_|) + (cons (cons 'e |gx[1]#_g141454_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj137493 __tmp137696 '17 '#f '#f)) - (let ((__tmp137700 - (cons (cons 'context |gx[1]#_g137701_|) - (cons (cons 'phi |gx[1]#_g137702_|) - (cons (cons 'e |gx[1]#_g137703_|) '()))))) + (##unchecked-structure-set! __obj141248 __tmp141451 '17 '#f '#f)) + (let ((__tmp141455 + (cons (cons 'context |gx[1]#_g141456_|) + (cons (cons 'phi |gx[1]#_g141457_|) + (cons (cons 'e |gx[1]#_g141458_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj137493 __tmp137700 '18 '#f '#f)) + (##unchecked-structure-set! __obj141248 __tmp141455 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137493 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj141248 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137493 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj141248 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137493 '() '20 '#f '#f)) - __obj137493)))) + (##unchecked-structure-set! __obj141248 '() '20 '#f '#f)) + __obj141248)))) diff --git a/src/bootstrap/gerbil/expander/root~0.scm b/src/bootstrap/gerbil/expander/root~0.scm index 1e7f70db2c..8b6b0f669d 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 1756721296) + (define gerbil/expander/root::timestamp 1769384629) (begin (declare (not safe)) (define gx#*core-syntax-expanders* @@ -262,597 +262,597 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (define gx#root-context:::init!__% - (lambda (_%self139959%_ _%bind?139960%_) - (let ((_%self139963%_ _%self139959%_)) - (if (##fx< '2 (##structure-length _%self139963%_)) + (lambda (_%self143711%_ _%bind?143712%_) + (let ((_%self143715%_ _%self143711%_)) + (if (##fx< '2 (##structure-length _%self143715%_)) (begin - (##unchecked-structure-set! _%self139963%_ 'root '1 '#f '#f) + (##unchecked-structure-set! _%self143715%_ 'root '1 '#f '#f) (##unchecked-structure-set! - _%self139963%_ + _%self143715%_ (make-hash-table-eq) '2 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self139963%_ + _%self143715%_ '2 - (##structure-length _%self139963%_))) - (if _%bind?139960%_ + (##structure-length _%self143715%_))) + (if _%bind?143712%_ (begin - (let ((__method140027 + (let ((__method143779 (__method-ref - _%self139963%_ + _%self143715%_ 'bind-core-syntax-expanders!))) - (if __method140027 - (__method140027 _%self139963%_) + (if __method143779 + (__method143779 _%self143715%_) (begin (error '"Missing method" - _%self139963%_ + _%self143715%_ 'bind-core-syntax-expanders!) '#!void))) - (let ((__method140028 + (let ((__method143780 (__method-ref - _%self139963%_ + _%self143715%_ 'bind-core-macro-expanders!))) - (if __method140028 - (__method140028 _%self139963%_) + (if __method143780 + (__method143780 _%self143715%_) (begin (error '"Missing method" - _%self139963%_ + _%self143715%_ 'bind-core-macro-expanders!) '#!void))) - (let ((__method140029 - (__method-ref _%self139963%_ 'bind-core-features!))) - (if __method140029 - (__method140029 _%self139963%_) + (let ((__method143781 + (__method-ref _%self143715%_ 'bind-core-features!))) + (if __method143781 + (__method143781 _%self143715%_) (begin (error '"Missing method" - _%self139963%_ + _%self143715%_ 'bind-core-features!) '#!void)))) '#!void)))) (define gx#root-context:::init!__0 - (lambda (_%self139977%_) - (let ((_%bind?139979%_ '#t)) - (gx#root-context:::init!__% _%self139977%_ _%bind?139979%_)))) + (lambda (_%self143729%_) + (let ((_%bind?143731%_ '#t)) + (gx#root-context:::init!__% _%self143729%_ _%bind?143731%_)))) (define gx#root-context:::init! - (lambda _g140031_ - (let ((_g140032_ (##length _g140031_))) - (cond ((##fx= _g140032_ 1) - (apply gx#root-context:::init!__0 _g140031_)) - ((##fx= _g140032_ 2) - (apply gx#root-context:::init!__% _g140031_)) + (lambda _g143783_ + (let ((_g143784_ (##length _g143783_))) + (cond ((##fx= _g143784_ 1) + (apply gx#root-context:::init!__0 _g143783_)) + ((##fx= _g143784_ 2) + (apply gx#root-context:::init!__% _g143783_)) (else (##raise-wrong-number-of-arguments-exception gx#root-context:::init! - _g140031_)))))) + _g143783_)))))) (define gx#root-context:::init!::specialize - (lambda (__klass139983 __method-table139984) - (let ((__bind-core-macro-expanders!139985 + (lambda (__klass143735 __method-table143736) + (let ((__bind-core-syntax-expanders!143737 (__make-promise (lambda () - (let ((__method139988 + (let ((__method143740 (symbolic-table-ref - __method-table139984 - 'bind-core-macro-expanders! + __method-table143736 + 'bind-core-syntax-expanders! '#f))) - (if __method139988 - __method139988 + (if __method143740 + __method143740 (error '"Missing method" - 'bind-core-macro-expanders!)))))) - (__bind-core-syntax-expanders!139986 + 'bind-core-syntax-expanders!)))))) + (__bind-core-macro-expanders!143738 (__make-promise (lambda () - (let ((__method139989 + (let ((__method143741 (symbolic-table-ref - __method-table139984 - 'bind-core-syntax-expanders! + __method-table143736 + 'bind-core-macro-expanders! '#f))) - (if __method139989 - __method139989 + (if __method143741 + __method143741 (error '"Missing method" - 'bind-core-syntax-expanders!)))))) - (__bind-core-features!139987 + 'bind-core-macro-expanders!)))))) + (__bind-core-features!143739 (__make-promise (lambda () - (let ((__method139990 + (let ((__method143742 (symbolic-table-ref - __method-table139984 + __method-table143736 'bind-core-features! '#f))) - (if __method139990 - __method139990 + (if __method143742 + __method143742 (error '"Missing method" 'bind-core-features!))))))) - (let ((_%opt-lambda139957139974%_ - (lambda (_%self139959%_ _%bind?139960%_) - (let ((_%self139963%_ _%self139959%_)) - (if (##fx< '2 (##structure-length _%self139963%_)) + (let ((_%opt-lambda143709143726%_ + (lambda (_%self143711%_ _%bind?143712%_) + (let ((_%self143715%_ _%self143711%_)) + (if (##fx< '2 (##structure-length _%self143715%_)) (begin (##unchecked-structure-set! - _%self139963%_ + _%self143715%_ 'root '1 '#f '#f) (##unchecked-structure-set! - _%self139963%_ + _%self143715%_ (make-hash-table-eq) '2 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self139963%_ + _%self143715%_ '2 - (##structure-length _%self139963%_))) - (if _%bind?139960%_ + (##structure-length _%self143715%_))) + (if _%bind?143712%_ (begin - ((force __bind-core-syntax-expanders!139986) - _%self139963%_) - ((force __bind-core-macro-expanders!139985) - _%self139963%_) - ((force __bind-core-features!139987) - _%self139963%_)) + ((force __bind-core-syntax-expanders!143737) + _%self143715%_) + ((force __bind-core-macro-expanders!143738) + _%self143715%_) + ((force __bind-core-features!143739) + _%self143715%_)) '#!void))))) - (lambda _g140033_ - (let ((_g140034_ (##length _g140033_))) - (cond ((##fx= _g140034_ 1) - (apply (lambda (_%self139977%_) - (let ((_%bind?139979%_ '#t)) - (_%opt-lambda139957139974%_ - _%self139977%_ - _%bind?139979%_))) - _g140033_)) - ((##fx= _g140034_ 2) - (apply _%opt-lambda139957139974%_ _g140033_)) + (lambda _g143785_ + (let ((_g143786_ (##length _g143785_))) + (cond ((##fx= _g143786_ 1) + (apply (lambda (_%self143729%_) + (let ((_%bind?143731%_ '#t)) + (_%opt-lambda143709143726%_ + _%self143729%_ + _%bind?143731%_))) + _g143785_)) + ((##fx= _g143786_ 2) + (apply _%opt-lambda143709143726%_ _g143785_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g140033_))))))))) + _g143785_))))))))) (bind-specializer! gx#root-context:::init! gx#root-context:::init!::specialize) (__bind-method!__% gx#root-context::t ':init! gx#root-context:::init! '#f) (define gx#top-context:::init!__% - (lambda (_%self139804%_ _%super139805%_) - (let* ((_%self139808%_ _%self139804%_) - (_%super139824%_ - (let ((_%$e139818%_ _%super139805%_)) - (if _%$e139818%_ - _%$e139818%_ - (let ((_%$e139821%_ (gx#core-context-root__0))) - (if _%$e139821%_ - _%$e139821%_ - (let ((__obj140030 + (lambda (_%self143556%_ _%super143557%_) + (let* ((_%self143560%_ _%self143556%_) + (_%super143576%_ + (let ((_%$e143570%_ _%super143557%_)) + (if _%$e143570%_ + _%$e143570%_ + (let ((_%$e143573%_ (gx#core-context-root__0))) + (if _%$e143573%_ + _%$e143573%_ + (let ((__obj143782 (##structure gx#root-context::t '#f '#f))) - (gx#root-context:::init!__0 __obj140030) - __obj140030))))))) - (if (##fx< '5 (##structure-length _%self139808%_)) + (gx#root-context:::init!__0 __obj143782) + __obj143782))))))) + (if (##fx< '5 (##structure-length _%self143560%_)) (begin - (##unchecked-structure-set! _%self139808%_ 'top '1 '#f '#f) + (##unchecked-structure-set! _%self143560%_ 'top '1 '#f '#f) (##unchecked-structure-set! - _%self139808%_ + _%self143560%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self139808%_ - _%super139824%_ + _%self143560%_ + _%super143576%_ '3 '#f '#f) - (##unchecked-structure-set! _%self139808%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self139808%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self143560%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self143560%_ '#f '5 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self139808%_ + _%self143560%_ '5 - (##structure-length _%self139808%_)))))) + (##structure-length _%self143560%_)))))) (define gx#top-context:::init!__0 - (lambda (_%self139829%_) - (let ((_%super139831%_ '#f)) - (gx#top-context:::init!__% _%self139829%_ _%super139831%_)))) + (lambda (_%self143581%_) + (let ((_%super143583%_ '#f)) + (gx#top-context:::init!__% _%self143581%_ _%super143583%_)))) (define gx#top-context:::init! - (lambda _g140035_ - (let ((_g140036_ (##length _g140035_))) - (cond ((##fx= _g140036_ 1) - (apply gx#top-context:::init!__0 _g140035_)) - ((##fx= _g140036_ 2) - (apply gx#top-context:::init!__% _g140035_)) + (lambda _g143787_ + (let ((_g143788_ (##length _g143787_))) + (cond ((##fx= _g143788_ 1) + (apply gx#top-context:::init!__0 _g143787_)) + ((##fx= _g143788_ 2) + (apply gx#top-context:::init!__% _g143787_)) (else (##raise-wrong-number-of-arguments-exception gx#top-context:::init! - _g140035_)))))) + _g143787_)))))) (__bind-method!__% gx#top-context::t ':init! gx#top-context:::init! '#f) (define gx#expander-context::bind-core-syntax-expanders!__% - (lambda (_%self139524%_ _%bindings139525%_) - (let ((_%self139528%_ _%self139524%_)) + (lambda (_%self143277%_ _%bindings143278%_) + (let ((_%self143281%_ _%self143277%_)) (for-each - (lambda (_%bind139538%_) - (let* ((_%bind139539139546%_ _%bind139538%_) - (_%E139541139550%_ + (lambda (_%bind143291%_) + (let* ((_%bind143292143299%_ _%bind143291%_) + (_%E143294143302%_ (lambda () (error '"No clause matching" - _%bind139539139546%_ + _%bind143292143299%_ '([id . rest])) '#!void)) - (_%K139542139659%_ - (lambda (_%rest139553%_ _%id139554%_) + (_%K143295143411%_ + (lambda (_%rest143305%_ _%id143306%_) (gx#core-context-put! - _%self139528%_ - _%id139554%_ + _%self143281%_ + _%id143306%_ (##structure gx#syntax-binding::t - _%id139554%_ - _%id139554%_ + _%id143306%_ + _%id143306%_ '#f - (let* ((_%rest139555139566%_ _%rest139553%_) - (_%E139557139570%_ + (let* ((_%rest143307143318%_ _%rest143305%_) + (_%E143309143322%_ (lambda () (error '"No clause matching" - _%rest139555139566%_ + _%rest143307143318%_ '([key expander compiler])) '#!void)) - (_%K139558139635%_ - (lambda (_%compiler139573%_ - _%expander139574%_ - _%key139575%_) - ((let* ((_%key139576139589%_ _%key139575%_) - (_%E139582139593%_ + (_%K143310143387%_ + (lambda (_%compiler143325%_ + _%expander143326%_ + _%key143327%_) + ((let* ((_%key143328143341%_ _%key143327%_) + (_%E143334143345%_ (lambda () (error '"No clause matching" - _%key139576139589%_ + _%key143328143341%_ '(top:) '(module:) '(define:) '(special:) '(expr:)) '#!void))) - (let ((_%K139587139629%_ + (let ((_%K143339143381%_ (lambda () gx#make-top-special-form)) - (_%K139586139622%_ + (_%K143338143374%_ (lambda () gx#make-module-special-form)) - (_%K139585139614%_ + (_%K143337143366%_ (lambda () gx#make-definition-form)) - (_%K139584139606%_ + (_%K143336143358%_ (lambda () gx#make-special-form)) - (_%K139583139598%_ + (_%K143335143350%_ (lambda () gx#make-expression-form))) - (let* ((_%try-match139581139601%_ + (let* ((_%try-match143333143353%_ (lambda () - (if (##eq? _%key139576139589%_ + (if (##eq? _%key143328143341%_ 'expr:) - (_%K139583139598%_) - (_%E139582139593%_)))) - (_%try-match139580139609%_ + (_%K143335143350%_) + (_%E143334143345%_)))) + (_%try-match143332143361%_ (lambda () - (if (##eq? _%key139576139589%_ + (if (##eq? _%key143328143341%_ 'special:) - (_%K139584139606%_) - (_%try-match139581139601%_)))) - (_%try-match139579139617%_ + (_%K143336143358%_) + (_%try-match143333143353%_)))) + (_%try-match143331143369%_ (lambda () - (if (##eq? _%key139576139589%_ + (if (##eq? _%key143328143341%_ 'define:) - (_%K139585139614%_) - (_%try-match139580139609%_)))) - (_%try-match139578139625%_ + (_%K143337143366%_) + (_%try-match143332143361%_)))) + (_%try-match143330143377%_ (lambda () - (if (##eq? _%key139576139589%_ + (if (##eq? _%key143328143341%_ 'module:) - (_%K139586139622%_) - (_%try-match139579139617%_))))) - (if (##eq? _%key139576139589%_ 'top:) - (_%K139587139629%_) - (_%try-match139578139625%_))))) - _%expander139574%_ - _%id139554%_ - (let ((_%$e139632%_ _%compiler139573%_)) - (if _%$e139632%_ - _%$e139632%_ + (_%K143338143374%_) + (_%try-match143331143369%_))))) + (if (##eq? _%key143328143341%_ 'top:) + (_%K143339143381%_) + (_%try-match143330143377%_))))) + _%expander143326%_ + _%id143306%_ + (let ((_%$e143384%_ _%compiler143325%_)) + (if _%$e143384%_ + _%$e143384%_ gx#core-compile-top-error)))))) - (if (pair? _%rest139555139566%_) - (let ((_%hd139559139638%_ - (##car _%rest139555139566%_)) - (_%tl139560139640%_ - (##cdr _%rest139555139566%_))) - (let ((_%key139643%_ _%hd139559139638%_)) - (if (pair? _%tl139560139640%_) - (let ((_%hd139561139645%_ - (##car _%tl139560139640%_)) - (_%tl139562139647%_ - (##cdr _%tl139560139640%_))) - (let ((_%expander139650%_ - _%hd139561139645%_)) - (if (pair? _%tl139562139647%_) - (let ((_%hd139563139652%_ - (##car _%tl139562139647%_)) - (_%tl139564139654%_ - (##cdr _%tl139562139647%_))) - (let ((_%compiler139657%_ - _%hd139563139652%_)) - (if (null? _%tl139564139654%_) - (_%K139558139635%_ - _%compiler139657%_ - _%expander139650%_ - _%key139643%_) - (_%E139557139570%_)))) - (_%E139557139570%_)))) - (_%E139557139570%_)))) - (_%E139557139570%_)))))))) - (if (pair? _%bind139539139546%_) - (let ((_%hd139543139662%_ (##car _%bind139539139546%_)) - (_%tl139544139664%_ (##cdr _%bind139539139546%_))) - (let* ((_%id139667%_ _%hd139543139662%_) - (_%rest139669%_ _%tl139544139664%_)) - (_%K139542139659%_ _%rest139669%_ _%id139667%_))) - (_%E139541139550%_)))) - _%bindings139525%_)))) + (if (pair? _%rest143307143318%_) + (let ((_%hd143311143390%_ + (##car _%rest143307143318%_)) + (_%tl143312143392%_ + (##cdr _%rest143307143318%_))) + (let ((_%key143395%_ _%hd143311143390%_)) + (if (pair? _%tl143312143392%_) + (let ((_%hd143313143397%_ + (##car _%tl143312143392%_)) + (_%tl143314143399%_ + (##cdr _%tl143312143392%_))) + (let ((_%expander143402%_ + _%hd143313143397%_)) + (if (pair? _%tl143314143399%_) + (let ((_%hd143315143404%_ + (##car _%tl143314143399%_)) + (_%tl143316143406%_ + (##cdr _%tl143314143399%_))) + (let ((_%compiler143409%_ + _%hd143315143404%_)) + (if (null? _%tl143316143406%_) + (_%K143310143387%_ + _%compiler143409%_ + _%expander143402%_ + _%key143395%_) + (_%E143309143322%_)))) + (_%E143309143322%_)))) + (_%E143309143322%_)))) + (_%E143309143322%_)))))))) + (if (pair? _%bind143292143299%_) + (let ((_%hd143296143414%_ (##car _%bind143292143299%_)) + (_%tl143297143416%_ (##cdr _%bind143292143299%_))) + (let* ((_%id143419%_ _%hd143296143414%_) + (_%rest143421%_ _%tl143297143416%_)) + (_%K143295143411%_ _%rest143421%_ _%id143419%_))) + (_%E143294143302%_)))) + _%bindings143278%_)))) (define gx#expander-context::bind-core-syntax-expanders!__0 - (lambda (_%self139674%_) - (let ((_%bindings139676%_ gx#*core-syntax-expanders*)) + (lambda (_%self143426%_) + (let ((_%bindings143428%_ gx#*core-syntax-expanders*)) (gx#expander-context::bind-core-syntax-expanders!__% - _%self139674%_ - _%bindings139676%_)))) + _%self143426%_ + _%bindings143428%_)))) (define gx#expander-context::bind-core-syntax-expanders! - (lambda _g140037_ - (let ((_g140038_ (##length _g140037_))) - (cond ((##fx= _g140038_ 1) + (lambda _g143789_ + (let ((_g143790_ (##length _g143789_))) + (cond ((##fx= _g143790_ 1) (apply gx#expander-context::bind-core-syntax-expanders!__0 - _g140037_)) - ((##fx= _g140038_ 2) + _g143789_)) + ((##fx= _g143790_ 2) (apply gx#expander-context::bind-core-syntax-expanders!__% - _g140037_)) + _g143789_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-syntax-expanders! - _g140037_)))))) + _g143789_)))))) (__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 (_%self139285%_ _%bindings139286%_) - (let ((_%self139289%_ _%self139285%_)) + (lambda (_%self143039%_ _%bindings143040%_) + (let ((_%self143043%_ _%self143039%_)) (for-each - (lambda (_%bind139299%_) - (let* ((_%bind139300139307%_ _%bind139299%_) - (_%E139302139311%_ + (lambda (_%bind143053%_) + (let* ((_%bind143054143061%_ _%bind143053%_) + (_%E143056143064%_ (lambda () (error '"No clause matching" - _%bind139300139307%_ + _%bind143054143061%_ '([id . rest])) '#!void)) - (_%K139303139379%_ - (lambda (_%rest139314%_ _%id139315%_) + (_%K143057143132%_ + (lambda (_%rest143067%_ _%id143068%_) (gx#core-context-put! - _%self139289%_ - _%id139315%_ + _%self143043%_ + _%id143068%_ (##structure gx#syntax-binding::t - _%id139315%_ - _%id139315%_ + _%id143068%_ + _%id143068%_ '#f - (let* ((_%rest139316139331%_ _%rest139314%_) - (_%E139320139335%_ + (let* ((_%rest143069143084%_ _%rest143067%_) + (_%E143073143088%_ (lambda () (error '"No clause matching" - _%rest139316139331%_ + _%rest143069143084%_ '(['=> core-id]) '([proc]) '([])) '#!void))) - (let ((_%K139325139364%_ - (lambda (_%core-id139362%_) + (let ((_%K143078143117%_ + (lambda (_%core-id143115%_) (##structure gx#rename-macro-expander::t - _%core-id139362%_))) - (_%K139322139349%_ - (lambda (_%proc139347%_) + _%core-id143115%_))) + (_%K143075143102%_ + (lambda (_%proc143100%_) (##structure gx#macro-expander::t - _%proc139347%_))) - (_%K139321139340%_ + _%proc143100%_))) + (_%K143074143093%_ (lambda () (##structure gx#reserved-expander::t - _%id139315%_)))) - (let ((_%try-match139319139343%_ + _%id143068%_)))) + (let ((_%try-match143072143096%_ (lambda () - (if (null? _%rest139316139331%_) - (_%K139321139340%_) - (_%E139320139335%_))))) - (if (pair? _%rest139316139331%_) - (let ((_%tl139327139369%_ - (##cdr _%rest139316139331%_)) - (_%hd139326139367%_ - (##car _%rest139316139331%_))) - (if (##eq? _%hd139326139367%_ '=>) - (if (pair? _%tl139327139369%_) - (let ((_%tl139329139374%_ - (##cdr _%tl139327139369%_)) - (_%hd139328139372%_ - (##car _%tl139327139369%_))) - (if (null? _%tl139329139374%_) - (let ((_%core-id139377%_ - _%hd139328139372%_)) + (if (null? _%rest143069143084%_) + (_%K143074143093%_) + (_%E143073143088%_))))) + (if (pair? _%rest143069143084%_) + (let ((_%tl143080143122%_ + (##cdr _%rest143069143084%_)) + (_%hd143079143120%_ + (##car _%rest143069143084%_))) + (if (##eq? _%hd143079143120%_ '=>) + (if (pair? _%tl143080143122%_) + (let ((_%tl143082143127%_ + (##cdr _%tl143080143122%_)) + (_%hd143081143125%_ + (##car _%tl143080143122%_))) + (if (null? _%tl143082143127%_) + (let ((_%core-id143130%_ + _%hd143081143125%_)) (##structure gx#rename-macro-expander::t - _%core-id139377%_)) - (_%E139320139335%_))) - (if (null? _%tl139327139369%_) - (let ((_%proc139357%_ - _%hd139326139367%_)) + _%core-id143130%_)) + (_%E143073143088%_))) + (if (null? _%tl143080143122%_) + (let ((_%proc143110%_ + _%hd143079143120%_)) (##structure gx#macro-expander::t - _%proc139357%_)) - (_%E139320139335%_))) - (if (null? _%tl139327139369%_) - (let ((_%proc139357%_ - _%hd139326139367%_)) + _%proc143110%_)) + (_%E143073143088%_))) + (if (null? _%tl143080143122%_) + (let ((_%proc143110%_ + _%hd143079143120%_)) (##structure gx#macro-expander::t - _%proc139357%_)) - (_%E139320139335%_)))) - (_%try-match139319139343%_)))))))))) - (if (pair? _%bind139300139307%_) - (let ((_%hd139304139382%_ (##car _%bind139300139307%_)) - (_%tl139305139384%_ (##cdr _%bind139300139307%_))) - (let* ((_%id139387%_ _%hd139304139382%_) - (_%rest139389%_ _%tl139305139384%_)) - (_%K139303139379%_ _%rest139389%_ _%id139387%_))) - (_%E139302139311%_)))) - _%bindings139286%_)))) + _%proc143110%_)) + (_%E143073143088%_)))) + (_%try-match143072143096%_)))))))))) + (if (pair? _%bind143054143061%_) + (let ((_%hd143058143135%_ (##car _%bind143054143061%_)) + (_%tl143059143137%_ (##cdr _%bind143054143061%_))) + (let* ((_%id143140%_ _%hd143058143135%_) + (_%rest143142%_ _%tl143059143137%_)) + (_%K143057143132%_ _%rest143142%_ _%id143140%_))) + (_%E143056143064%_)))) + _%bindings143040%_)))) (define gx#expander-context::bind-core-macro-expanders!__0 - (lambda (_%self139394%_) - (let ((_%bindings139396%_ gx#*core-macro-expanders*)) + (lambda (_%self143147%_) + (let ((_%bindings143149%_ gx#*core-macro-expanders*)) (gx#expander-context::bind-core-macro-expanders!__% - _%self139394%_ - _%bindings139396%_)))) + _%self143147%_ + _%bindings143149%_)))) (define gx#expander-context::bind-core-macro-expanders! - (lambda _g140039_ - (let ((_g140040_ (##length _g140039_))) - (cond ((##fx= _g140040_ 1) + (lambda _g143791_ + (let ((_g143792_ (##length _g143791_))) + (cond ((##fx= _g143792_ 1) (apply gx#expander-context::bind-core-macro-expanders!__0 - _g140039_)) - ((##fx= _g140040_ 2) + _g143791_)) + ((##fx= _g143792_ 2) (apply gx#expander-context::bind-core-macro-expanders!__% - _g140039_)) + _g143791_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-macro-expanders! - _g140039_)))))) + _g143791_)))))) (__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 (_%self139016%_) - (let ((_%self139019%_ _%self139016%_)) - (letrec ((_%linux-variant?139030%_ - (lambda (_%sys-type139130%_) - (let* ((_%g139131139139%_ + (lambda (_%self142770%_) + (let ((_%self142773%_ _%self142770%_)) + (letrec ((_%linux-variant?142784%_ + (lambda (_%sys-type142884%_) + (let* ((_%g142885142893%_ (__string-split - (symbol->string _%sys-type139130%_) + (symbol->string _%sys-type142884%_) '#\-)) - (_%else139133139147%_ (lambda () '#f)) - (_%K139135139152%_ - (lambda (_%rest139150%_) - (not (null? _%rest139150%_))))) - (if (pair? _%g139131139139%_) - (let ((_%hd139136139155%_ - (##car _%g139131139139%_)) - (_%tl139137139157%_ - (##cdr _%g139131139139%_))) - (if (equal? _%hd139136139155%_ '"linux") - (let ((_%rest139160%_ _%tl139137139157%_)) - (_%K139135139152%_ _%rest139160%_)) - (_%else139133139147%_))) - (_%else139133139147%_))))) - (_%bsd-variant139031%_ - (lambda (_%sys-type139089%_) - (let ((_%sys-type-str139091%_ - (symbol->string _%sys-type139089%_))) - (let _%lp139093%_ ((_%rest139095%_ + (_%else142887142901%_ (lambda () '#f)) + (_%K142889142906%_ + (lambda (_%rest142904%_) + (not (null? _%rest142904%_))))) + (if (pair? _%g142885142893%_) + (let ((_%hd142890142909%_ + (##car _%g142885142893%_)) + (_%tl142891142911%_ + (##cdr _%g142885142893%_))) + (if (equal? _%hd142890142909%_ '"linux") + (let ((_%rest142914%_ _%tl142891142911%_)) + (_%K142889142906%_ _%rest142914%_)) + (_%else142887142901%_))) + (_%else142887142901%_))))) + (_%bsd-variant142785%_ + (lambda (_%sys-type142843%_) + (let ((_%sys-type-str142845%_ + (symbol->string _%sys-type142843%_))) + (let _%lp142847%_ ((_%rest142849%_ '("openbsd" "netbsd" "freebsd" "darwin"))) - (let* ((_%rest139096139104%_ _%rest139095%_) - (_%else139098139112%_ (lambda () '#f)) - (_%K139100139118%_ - (lambda (_%rest139115%_ _%sys139116%_) + (let* ((_%rest142850142858%_ _%rest142849%_) + (_%else142852142866%_ (lambda () '#f)) + (_%K142854142872%_ + (lambda (_%rest142869%_ _%sys142870%_) (if (string-prefix? - _%sys139116%_ - _%sys-type-str139091%_) - _%sys139116%_ - (_%lp139093%_ _%rest139115%_))))) - (if (pair? _%rest139096139104%_) - (let ((_%hd139101139121%_ - (##car _%rest139096139104%_)) - (_%tl139102139123%_ - (##cdr _%rest139096139104%_))) - (let* ((_%sys139126%_ _%hd139101139121%_) - (_%rest139128%_ _%tl139102139123%_)) - (_%K139100139118%_ - _%rest139128%_ - _%sys139126%_))) - (_%else139098139112%_)))))))) - (gx#core-bind-feature!__% 'gerbil '#f '0 _%self139019%_) - (gx#core-bind-feature!__% (gerbil-system) '#f '0 _%self139019%_) - (let* ((_%g139032139044%_ (system-type)) - (_%else139034139052%_ (lambda () '#!void)) - (_%K139036139065%_ - (lambda (_%sys-type139055%_ - _%sys-vendor139056%_ - _%sys-cpu139057%_) + _%sys142870%_ + _%sys-type-str142845%_) + _%sys142870%_ + (_%lp142847%_ _%rest142869%_))))) + (if (pair? _%rest142850142858%_) + (let ((_%hd142855142875%_ + (##car _%rest142850142858%_)) + (_%tl142856142877%_ + (##cdr _%rest142850142858%_))) + (let* ((_%sys142880%_ _%hd142855142875%_) + (_%rest142882%_ _%tl142856142877%_)) + (_%K142854142872%_ + _%rest142882%_ + _%sys142880%_))) + (_%else142852142866%_)))))))) + (gx#core-bind-feature!__% 'gerbil '#f '0 _%self142773%_) + (gx#core-bind-feature!__% (gerbil-system) '#f '0 _%self142773%_) + (let* ((_%g142786142798%_ (system-type)) + (_%else142788142806%_ (lambda () '#!void)) + (_%K142790142819%_ + (lambda (_%sys-type142809%_ + _%sys-vendor142810%_ + _%sys-cpu142811%_) (gx#core-bind-feature!__% - _%sys-cpu139057%_ + _%sys-cpu142811%_ '#f '0 - _%self139019%_) + _%self142773%_) (gx#core-bind-feature!__% - _%sys-type139055%_ + _%sys-type142809%_ '#f '0 - _%self139019%_) - (if (_%linux-variant?139030%_ _%sys-type139055%_) + _%self142773%_) + (if (_%linux-variant?142784%_ _%sys-type142809%_) (gx#core-bind-feature!__% (##string->symbol '"linux") '#f '0 - _%self139019%_) - (let ((_%$e139060%_ - (_%bsd-variant139031%_ _%sys-type139055%_))) - (if _%$e139060%_ - ((lambda (_%sys-prefix139063%_) + _%self142773%_) + (let ((_%$e142814%_ + (_%bsd-variant142785%_ _%sys-type142809%_))) + (if _%$e142814%_ + ((lambda (_%sys-prefix142817%_) (gx#core-bind-feature!__% (##string->symbol '"bsd") '#f '0 - _%self139019%_) + _%self142773%_) (gx#core-bind-feature!__% - (string->symbol _%sys-prefix139063%_) + (string->symbol _%sys-prefix142817%_) '#f '0 - _%self139019%_)) - _%$e139060%_) + _%self142773%_)) + _%$e142814%_) '#!void)))))) - (if (pair? _%g139032139044%_) - (let ((_%hd139037139068%_ (##car _%g139032139044%_)) - (_%tl139038139070%_ (##cdr _%g139032139044%_))) - (let ((_%sys-cpu139073%_ _%hd139037139068%_)) - (if (pair? _%tl139038139070%_) - (let ((_%hd139039139075%_ (##car _%tl139038139070%_)) - (_%tl139040139077%_ - (##cdr _%tl139038139070%_))) - (let ((_%sys-vendor139080%_ _%hd139039139075%_)) - (if (pair? _%tl139040139077%_) - (let ((_%hd139041139082%_ - (##car _%tl139040139077%_)) - (_%tl139042139084%_ - (##cdr _%tl139040139077%_))) - (let ((_%sys-type139087%_ - _%hd139041139082%_)) - (if (null? _%tl139042139084%_) - (_%K139036139065%_ - _%sys-type139087%_ - _%sys-vendor139080%_ - _%sys-cpu139073%_) + (if (pair? _%g142786142798%_) + (let ((_%hd142791142822%_ (##car _%g142786142798%_)) + (_%tl142792142824%_ (##cdr _%g142786142798%_))) + (let ((_%sys-cpu142827%_ _%hd142791142822%_)) + (if (pair? _%tl142792142824%_) + (let ((_%hd142793142829%_ (##car _%tl142792142824%_)) + (_%tl142794142831%_ + (##cdr _%tl142792142824%_))) + (let ((_%sys-vendor142834%_ _%hd142793142829%_)) + (if (pair? _%tl142794142831%_) + (let ((_%hd142795142836%_ + (##car _%tl142794142831%_)) + (_%tl142796142838%_ + (##cdr _%tl142794142831%_))) + (let ((_%sys-type142841%_ + _%hd142795142836%_)) + (if (null? _%tl142796142838%_) + (_%K142790142819%_ + _%sys-type142841%_ + _%sys-vendor142834%_ + _%sys-cpu142827%_) '#!void))) '#!void))) '#!void))) '#!void)) (if (gerbil-runtime-smp?) - (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _%self139019%_) + (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _%self142773%_) '#!void))))) (__bind-method!__% gx#expander-context::t diff --git a/src/bootstrap/gerbil/expander/stxcase~0.scm b/src/bootstrap/gerbil/expander/stxcase~0.scm index 480813557b..694baff200 100644 --- a/src/bootstrap/gerbil/expander/stxcase~0.scm +++ b/src/bootstrap/gerbil/expander/stxcase~0.scm @@ -1,25 +1,25 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/stxcase::timestamp 1756721296) + (define gerbil/expander/stxcase::timestamp 1769384629) (begin (define gx#syntax-pattern::t - (let ((__tmp141590 (list gx#expander::t)) - (__tmp141589 (cons (cons 'struct: '#t) '()))) + (let ((__tmp145342 (list gx#expander::t)) + (__tmp145341 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gx#syntax-pattern::t 'syntax-pattern - __tmp141590 + __tmp145342 '(id depth) - __tmp141589 + __tmp145341 '#f))) (define gx#syntax-pattern? (let () (declare (not safe)) (__make-class-predicate gx#syntax-pattern::t))) (define gx#make-syntax-pattern - (lambda _%$args141586%_ - (apply make-instance gx#syntax-pattern::t _%$args141586%_))) + (lambda _%$args145338%_ + (apply make-instance gx#syntax-pattern::t _%$args145338%_))) (define gx#syntax-pattern-id (let () (declare (not safe)) @@ -69,13 +69,13 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gx#syntax-pattern::t 'e))) (define gx#syntax-pattern::apply-macro-expander - (lambda (_%self141572%_ _%stx141573%_) - (let ((_%self141576%_ _%self141572%_)) + (lambda (_%self145324%_ _%stx145325%_) + (let ((_%self145328%_ _%self145324%_)) (declare (not safe)) (gx#raise-syntax-error '#f '"Identifier used out of context" - _%stx141573%_)))) + _%stx145325%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -84,602 +84,602 @@ gx#syntax-pattern::apply-macro-expander '#f)) (define gx#macro-expand-syntax - (lambda (_%stx141039%_) - (letrec ((_%generate141041%_ - (lambda (_%e141281%_) - (letrec ((_%BUG141283%_ - (lambda (_%q141448%_) + (lambda (_%stx144791%_) + (letrec ((_%generate144793%_ + (lambda (_%e145033%_) + (letrec ((_%BUG145035%_ + (lambda (_%q145200%_) (let () (declare (not safe)) (error '"BUG: syntax; generate" - _%stx141039%_ - _%e141281%_ - _%q141448%_)))) - (_%local-pattern-e141284%_ - (lambda (_%pat141446%_) - (let ((__tmp141591 + _%stx144791%_ + _%e145033%_ + _%q145200%_)))) + (_%local-pattern-e145036%_ + (lambda (_%pat145198%_) + (let ((__tmp145343 (##structure-ref - _%pat141446%_ + _%pat145198%_ '2 gx#syntax-pattern::t '#f))) (declare (not safe)) - (gx#syntax-local-rewrap __tmp141591)))) - (_%getvar141285%_ - (lambda (_%q141443%_ _%vars141444%_) + (gx#syntax-local-rewrap __tmp145343)))) + (_%getvar145037%_ + (lambda (_%q145195%_ _%vars145196%_) (let () (declare (not safe)) (agetq__% - _%q141443%_ - _%vars141444%_ - _%BUG141283%_)))) - (_%getarg141286%_ - (lambda (_%arg141409%_ _%vars141410%_) - (let* ((_%arg141411141418%_ _%arg141409%_) - (_%E141413141422%_ + _%q145195%_ + _%vars145196%_ + _%BUG145035%_)))) + (_%getarg145038%_ + (lambda (_%arg145161%_ _%vars145162%_) + (let* ((_%arg145163145170%_ _%arg145161%_) + (_%E145165145174%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arg141411141418%_ + _%arg145163145170%_ '([tag . e]))) '#!void)) - (_%K141414141431%_ - (lambda (_%e141425%_ _%tag141426%_) - (let ((_%$e141428%_ _%tag141426%_)) - (if (eq? 'ref _%$e141428%_) - (_%getvar141285%_ - _%e141425%_ - _%vars141410%_) - (if (eq? 'pattern _%$e141428%_) - (_%local-pattern-e141284%_ - _%e141425%_) - (_%BUG141283%_ - _%arg141409%_))))))) - (if (pair? _%arg141411141418%_) - (let ((_%hd141415141434%_ + (_%K145166145183%_ + (lambda (_%e145177%_ _%tag145178%_) + (let ((_%$e145180%_ _%tag145178%_)) + (if (eq? 'ref _%$e145180%_) + (_%getvar145037%_ + _%e145177%_ + _%vars145162%_) + (if (eq? 'pattern _%$e145180%_) + (_%local-pattern-e145036%_ + _%e145177%_) + (_%BUG145035%_ + _%arg145161%_))))))) + (if (pair? _%arg145163145170%_) + (let ((_%hd145167145186%_ (let () (declare (not safe)) - (##car _%arg141411141418%_))) - (_%tl141416141436%_ + (##car _%arg145163145170%_))) + (_%tl145168145188%_ (let () (declare (not safe)) - (##cdr _%arg141411141418%_)))) - (let* ((_%tag141439%_ - _%hd141415141434%_) - (_%e141441%_ - _%tl141416141436%_)) - (_%K141414141431%_ - _%e141441%_ - _%tag141439%_))) - (_%E141413141422%_)))))) - (let _%recur141288%_ ((_%e141290%_ _%e141281%_) - (_%vars141291%_ '())) - (let* ((_%e141292141299%_ _%e141290%_) - (_%E141294141303%_ + (##cdr _%arg145163145170%_)))) + (let* ((_%tag145191%_ + _%hd145167145186%_) + (_%e145193%_ + _%tl145168145188%_)) + (_%K145166145183%_ + _%e145193%_ + _%tag145191%_))) + (_%E145165145174%_)))))) + (let _%recur145040%_ ((_%e145042%_ _%e145033%_) + (_%vars145043%_ '())) + (let* ((_%e145044145051%_ _%e145042%_) + (_%E145046145055%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e141292141299%_ + _%e145044145051%_ '([tag . body]))) '#!void)) - (_%K141295141397%_ - (lambda (_%body141306%_ _%tag141307%_) - (let ((_%$e141309%_ _%tag141307%_)) - (if (eq? 'datum _%$e141309%_) + (_%K145047145149%_ + (lambda (_%body145058%_ _%tag145059%_) + (let ((_%$e145061%_ _%tag145059%_)) + (if (eq? 'datum _%$e145061%_) (let () (declare (not safe)) - (gx#core-list 'quote _%body141306%_)) - (if (eq? 'term _%$e141309%_) - (let ((_%id141312%_ + (gx#core-list 'quote _%body145058%_)) + (if (eq? 'term _%$e145061%_) + (let ((_%id145064%_ (let () (declare (not safe)) (gx#syntax-local-unwrap - _%body141306%_)))) + _%body145058%_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id141312%_ + _%id145064%_ 'gx#identifier-wrap::t)) - (let ((_%marks141315%_ + (let ((_%marks145067%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%id141312%_ + _%id145064%_ '3 '#f '#f)))) - (if (null? _%marks141315%_) - (let ((__tmp141592 + (if (null? _%marks145067%_) + (let ((__tmp145344 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#core-list 'quote _%body141306%_)))) + (gx#core-list 'quote _%body145058%_)))) (declare (not safe)) - (gx#core-list 'datum->syntax '#f __tmp141592)) - (let ((__tmp141594 + (gx#core-list 'datum->syntax '#f __tmp145344)) + (let ((__tmp145346 (let () (declare (not safe)) - (gx#core-list 'quote-syntax _%body141306%_))) - (__tmp141593 + (gx#core-list 'quote-syntax _%body145058%_))) + (__tmp145345 (let () (declare (not safe)) - (gx#core-list 'quote _%body141306%_)))) + (gx#core-list 'quote _%body145058%_)))) (declare (not safe)) (gx#core-list 'datum->syntax - __tmp141594 - __tmp141593 + __tmp145346 + __tmp145345 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id141312%_ + _%id145064%_ 'gx#syntax-quote::t)) (let () (declare (not safe)) (gx#core-list 'quote-syntax - _%body141306%_)) - (_%BUG141283%_ - _%e141290%_)))) - (if (eq? 'pattern _%$e141309%_) - (_%local-pattern-e141284%_ - _%body141306%_) - (if (eq? 'ref _%$e141309%_) - (_%getvar141285%_ - _%body141306%_ - _%vars141291%_) + _%body145058%_)) + (_%BUG145035%_ + _%e145042%_)))) + (if (eq? 'pattern _%$e145061%_) + (_%local-pattern-e145036%_ + _%body145058%_) + (if (eq? 'ref _%$e145061%_) + (_%getvar145037%_ + _%body145058%_ + _%vars145043%_) (if (eq? 'cons - _%$e141309%_) - (let ((__tmp141596 - (_%recur141288%_ - (car _%body141306%_) - _%vars141291%_)) - (__tmp141595 - (_%recur141288%_ - (cdr _%body141306%_) - _%vars141291%_))) + _%$e145061%_) + (let ((__tmp145348 + (_%recur145040%_ + (car _%body145058%_) + _%vars145043%_)) + (__tmp145347 + (_%recur145040%_ + (cdr _%body145058%_) + _%vars145043%_))) (declare (not safe)) (gx#core-list 'cons - __tmp141596 - __tmp141595)) + __tmp145348 + __tmp145347)) (if (eq? 'vector ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e141309%_) - (let ((__tmp141597 - (_%recur141288%_ _%body141306%_ _%vars141291%_))) + _%$e145061%_) + (let ((__tmp145349 + (_%recur145040%_ _%body145058%_ _%vars145043%_))) (declare (not safe)) - (gx#core-list 'list->vector __tmp141597)) - (if (eq? 'box _%$e141309%_) - (let ((__tmp141598 - (_%recur141288%_ - _%body141306%_ - _%vars141291%_))) + (gx#core-list 'list->vector __tmp145349)) + (if (eq? 'box _%$e145061%_) + (let ((__tmp145350 + (_%recur145040%_ + _%body145058%_ + _%vars145043%_))) (declare (not safe)) - (gx#core-list 'box __tmp141598)) - (if (eq? 'splice _%$e141309%_) - (let* ((_%body141318141329%_ _%body141306%_) - (_%E141320141333%_ + (gx#core-list 'box __tmp145350)) + (if (eq? 'splice _%$e145061%_) + (let* ((_%body145070145081%_ _%body145058%_) + (_%E145072145085%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body141318141329%_ + _%body145070145081%_ '([depth hd iv . args]))) '#!void)) - (_%K141321141371%_ - (lambda (_%args141336%_ - _%iv141337%_ - _%hd141338%_ - _%depth141339%_) - (let* ((_%targets141345%_ - (map (lambda (_%g141340141342%_) - (_%getarg141286%_ - _%g141340141342%_ - _%vars141291%_)) - _%args141336%_)) - (_%fold-in141347%_ + (_%K145073145123%_ + (lambda (_%args145088%_ + _%iv145089%_ + _%hd145090%_ + _%depth145091%_) + (let* ((_%targets145097%_ + (map (lambda (_%g145092145094%_) + (_%getarg145038%_ + _%g145092145094%_ + _%vars145043%_)) + _%args145088%_)) + (_%fold-in145099%_ (let () (declare (not safe)) - (gx#gentemps _%args141336%_))) - (_%fold-out141349%_ + (gx#gentemps _%args145088%_))) + (_%fold-out145101%_ (let () (declare (not safe)) (gx#genident__0))) - (_%lambda-args141351%_ - (let ((__tmp141599 - (cons _%fold-out141349%_ + (_%lambda-args145103%_ + (let ((__tmp145351 + (cons _%fold-out145101%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp141599 - _%fold-in141347%_))) - (_%lambda-body141368%_ + __tmp145351 + _%fold-in145099%_))) + (_%lambda-body145120%_ (if (let () (declare (not safe)) - (##fx> _%depth141339%_ '1)) - (let ((_%r-args141359%_ - (map (lambda (_%arg141353%_) + (##fx> _%depth145091%_ '1)) + (let ((_%r-args145111%_ + (map (lambda (_%arg145105%_) (cons 'ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _%arg141353%_))) - _%args141336%_)) - (_%r-vars141360%_ - (let ((__tmp141600 - (lambda (_%arg141355%_ _%var141356%_ _%r141357%_) - (cons (cons (cdr _%arg141355%_) _%var141356%_) - _%r141357%_)))) + (cdr _%arg145105%_))) + _%args145088%_)) + (_%r-vars145112%_ + (let ((__tmp145352 + (lambda (_%arg145107%_ _%var145108%_ _%r145109%_) + (cons (cons (cdr _%arg145107%_) _%var145108%_) + _%r145109%_)))) (declare (not safe)) (__foldr2 - __tmp141600 - _%vars141291%_ - _%args141336%_ - _%fold-in141347%_)))) + __tmp145352 + _%vars145043%_ + _%args145088%_ + _%fold-in145099%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%recur141288%_ + (_%recur145040%_ (cons 'splice (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##fx- _%depth141339%_ '1)) - (cons _%hd141338%_ - (cons (cons 'var _%fold-out141349%_) - _%r-args141359%_)))) + (##fx- _%depth145091%_ '1)) + (cons _%hd145090%_ + (cons (cons 'var _%fold-out145101%_) + _%r-args145111%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r-vars141360%_)) - (let* ((_%hd-vars141366%_ - (let ((__tmp141601 + _%r-vars145112%_)) + (let* ((_%hd-vars145118%_ + (let ((__tmp145353 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%arg141362%_ _%var141363%_ _%r141364%_) - (cons (cons (cdr _%arg141362%_) _%var141363%_) - _%r141364%_)))) + (lambda (_%arg145114%_ _%var145115%_ _%r145116%_) + (cons (cons (cdr _%arg145114%_) _%var145115%_) + _%r145116%_)))) (declare (not safe)) (__foldr2 - __tmp141601 - _%vars141291%_ - _%args141336%_ - _%fold-in141347%_))) - (__tmp141602 - (_%recur141288%_ _%hd141338%_ _%hd-vars141366%_))) + __tmp145353 + _%vars145043%_ + _%args145088%_ + _%fold-in145099%_))) + (__tmp145354 + (_%recur145040%_ _%hd145090%_ _%hd-vars145118%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'cons - __tmp141602 - _%fold-out141349%_))))) - (let ((__tmp141606 - (if (let ((__tmp141607 + __tmp145354 + _%fold-out145101%_))))) + (let ((__tmp145358 + (if (let ((__tmp145359 (let () (declare (not safe)) (##length - _%targets141345%_)))) + _%targets145097%_)))) (declare (not safe)) - (##fx> __tmp141607 '1)) + (##fx> __tmp145359 '1)) (let () (declare (not safe)) (gx#core-cons* 'syntax-check-splice-targets - _%targets141345%_)) + _%targets145097%_)) '#!void)) - (__tmp141603 - (let ((__tmp141605 + (__tmp145355 + (let ((__tmp145357 (let () (declare (not safe)) (gx#core-list 'lambda% - _%lambda-args141351%_ - _%lambda-body141368%_))) - (__tmp141604 - (_%recur141288%_ - _%iv141337%_ - _%vars141291%_))) + _%lambda-args145103%_ + _%lambda-body145120%_))) + (__tmp145356 + (_%recur145040%_ + _%iv145089%_ + _%vars145043%_))) (declare (not safe)) (gx#core-cons* 'foldr - __tmp141605 - __tmp141604 - _%targets141345%_)))) + __tmp145357 + __tmp145356 + _%targets145097%_)))) (declare (not safe)) (gx#core-list 'begin - __tmp141606 - __tmp141603)))))) - (if (pair? _%body141318141329%_) - (let ((_%hd141322141374%_ + __tmp145358 + __tmp145355)))))) + (if (pair? _%body145070145081%_) + (let ((_%hd145074145126%_ (let () (declare (not safe)) - (##car _%body141318141329%_))) - (_%tl141323141376%_ + (##car _%body145070145081%_))) + (_%tl145075145128%_ (let () (declare (not safe)) - (##cdr _%body141318141329%_)))) - (let ((_%depth141379%_ _%hd141322141374%_)) - (if (pair? _%tl141323141376%_) - (let ((_%hd141324141381%_ + (##cdr _%body145070145081%_)))) + (let ((_%depth145131%_ _%hd145074145126%_)) + (if (pair? _%tl145075145128%_) + (let ((_%hd145076145133%_ (let () (declare (not safe)) - (##car _%tl141323141376%_))) - (_%tl141325141383%_ + (##car _%tl145075145128%_))) + (_%tl145077145135%_ (let () (declare (not safe)) - (##cdr _%tl141323141376%_)))) - (let ((_%hd141386%_ - _%hd141324141381%_)) - (if (pair? _%tl141325141383%_) - (let ((_%hd141326141388%_ + (##cdr _%tl145075145128%_)))) + (let ((_%hd145138%_ + _%hd145076145133%_)) + (if (pair? _%tl145077145135%_) + (let ((_%hd145078145140%_ (let () (declare (not safe)) - (##car _%tl141325141383%_))) - (_%tl141327141390%_ + (##car _%tl145077145135%_))) + (_%tl145079145142%_ (let () (declare (not safe)) - (##cdr _%tl141325141383%_)))) - (let* ((_%iv141393%_ - _%hd141326141388%_) - (_%args141395%_ - _%tl141327141390%_)) - (_%K141321141371%_ - _%args141395%_ - _%iv141393%_ - _%hd141386%_ - _%depth141379%_))) - (_%E141320141333%_)))) - (_%E141320141333%_)))) - (_%E141320141333%_))) - (if (eq? 'var _%$e141309%_) - _%body141306%_ - (_%BUG141283%_ _%e141290%_)))))))))))))) + (##cdr _%tl145077145135%_)))) + (let* ((_%iv145145%_ + _%hd145078145140%_) + (_%args145147%_ + _%tl145079145142%_)) + (_%K145073145123%_ + _%args145147%_ + _%iv145145%_ + _%hd145138%_ + _%depth145131%_))) + (_%E145072145085%_)))) + (_%E145072145085%_)))) + (_%E145072145085%_))) + (if (eq? 'var _%$e145061%_) + _%body145058%_ + (_%BUG145035%_ _%e145042%_)))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%e141292141299%_) - (let ((_%hd141296141400%_ + (if (pair? _%e145044145051%_) + (let ((_%hd145048145152%_ (let () (declare (not safe)) - (##car _%e141292141299%_))) - (_%tl141297141402%_ + (##car _%e145044145051%_))) + (_%tl145049145154%_ (let () (declare (not safe)) - (##cdr _%e141292141299%_)))) - (let* ((_%tag141405%_ _%hd141296141400%_) - (_%body141407%_ _%tl141297141402%_)) - (_%K141295141397%_ - _%body141407%_ - _%tag141405%_))) - (_%E141294141303%_))))))) - (_%parse141042%_ - (lambda (_%e141083%_) - (letrec ((_%make-cons141085%_ - (lambda (_%hd141273%_ _%tl141274%_) - (let ((_g141608_ _%hd141273%_) - (_g141610_ _%tl141274%_)) + (##cdr _%e145044145051%_)))) + (let* ((_%tag145157%_ _%hd145048145152%_) + (_%body145159%_ _%tl145049145154%_)) + (_%K145047145149%_ + _%body145159%_ + _%tag145157%_))) + (_%E145046145055%_))))))) + (_%parse144794%_ + (lambda (_%e144835%_) + (letrec ((_%make-cons144837%_ + (lambda (_%hd145025%_ _%tl145026%_) + (let ((_g145360_ _%hd145025%_) + (_g145362_ _%tl145026%_)) (begin - (let ((_g141609_ + (let ((_g145361_ (let () (declare (not safe)) - (if (##values? _g141608_) - (##values-length _g141608_) + (if (##values? _g145360_) + (##values-length _g145360_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g141609_ 2))) + (##fx= _g145361_ 2))) (error "Context expects 2 values" - _g141609_))) - (let ((_g141611_ + _g145361_))) + (let ((_g145363_ (let () (declare (not safe)) - (if (##values? _g141610_) - (##values-length _g141610_) + (if (##values? _g145362_) + (##values-length _g145362_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g141611_ 2))) + (##fx= _g145363_ 2))) (error "Context expects 2 values" - _g141611_))) - (let ((_%hd-e141276%_ + _g145363_))) + (let ((_%hd-e145028%_ (let () (declare (not safe)) - (##values-ref _g141608_ 0))) - (_%hd-vars141277%_ + (##values-ref _g145360_ 0))) + (_%hd-vars145029%_ (let () (declare (not safe)) - (##values-ref _g141608_ 1)))) - (let ((_%tl-e141278%_ + (##values-ref _g145360_ 1)))) + (let ((_%tl-e145030%_ (let () (declare (not safe)) - (##values-ref _g141610_ 0))) - (_%tl-vars141279%_ + (##values-ref _g145362_ 0))) + (_%tl-vars145031%_ (let () (declare (not safe)) - (##values-ref _g141610_ 1)))) + (##values-ref _g145362_ 1)))) (values (cons 'cons - (cons _%hd-e141276%_ - _%tl-e141278%_)) - (append _%hd-vars141277%_ - _%tl-vars141279%_)))))))) - (_%make-splice141086%_ - (lambda (_%where141209%_ - _%depth141210%_ - _%hd141211%_ - _%tl141212%_) - (let ((_g141612_ _%hd141211%_) - (_g141614_ _%tl141212%_)) + (cons _%hd-e145028%_ + _%tl-e145030%_)) + (append _%hd-vars145029%_ + _%tl-vars145031%_)))))))) + (_%make-splice144838%_ + (lambda (_%where144961%_ + _%depth144962%_ + _%hd144963%_ + _%tl144964%_) + (let ((_g145364_ _%hd144963%_) + (_g145366_ _%tl144964%_)) (begin - (let ((_g141613_ + (let ((_g145365_ (let () (declare (not safe)) - (if (##values? _g141612_) - (##values-length _g141612_) + (if (##values? _g145364_) + (##values-length _g145364_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g141613_ 2))) + (##fx= _g145365_ 2))) (error "Context expects 2 values" - _g141613_))) - (let ((_g141615_ + _g145365_))) + (let ((_g145367_ (let () (declare (not safe)) - (if (##values? _g141614_) - (##values-length _g141614_) + (if (##values? _g145366_) + (##values-length _g145366_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g141615_ 2))) + (##fx= _g145367_ 2))) (error "Context expects 2 values" - _g141615_))) - (let ((_%hd-e141214%_ + _g145367_))) + (let ((_%hd-e144966%_ (let () (declare (not safe)) - (##values-ref _g141612_ 0))) - (_%hd-vars141215%_ + (##values-ref _g145364_ 0))) + (_%hd-vars144967%_ (let () (declare (not safe)) - (##values-ref _g141612_ 1)))) - (let ((_%tl-e141216%_ + (##values-ref _g145364_ 1)))) + (let ((_%tl-e144968%_ (let () (declare (not safe)) - (##values-ref _g141614_ 0))) - (_%tl-vars141217%_ + (##values-ref _g145366_ 0))) + (_%tl-vars144969%_ (let () (declare (not safe)) - (##values-ref _g141614_ 1)))) - (let _%lp141219%_ ((_%rest141221%_ - _%hd-vars141215%_) - (_%targets141222%_ + (##values-ref _g145366_ 1)))) + (let _%lp144971%_ ((_%rest144973%_ + _%hd-vars144967%_) + (_%targets144974%_ '()) - (_%vars141223%_ - _%tl-vars141217%_)) - (let* ((_%rest141224141234%_ - _%rest141221%_) - (_%else141226141242%_ + (_%vars144975%_ + _%tl-vars144969%_)) + (let* ((_%rest144976144986%_ + _%rest144973%_) + (_%else144978144994%_ (lambda () - (if (null? _%targets141222%_) + (if (null? _%targets144974%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _%stx141039%_ - _%where141209%_)) + _%stx144791%_ + _%where144961%_)) (values (cons 'splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%depth141210%_ - (cons _%hd-e141214%_ - (cons _%tl-e141216%_ - _%targets141222%_)))) - _%vars141223%_)))) + (cons _%depth144962%_ + (cons _%hd-e144966%_ + (cons _%tl-e144968%_ + _%targets144974%_)))) + _%vars144975%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K141228141254%_ - (lambda (_%rest141245%_ - _%hd-pat141246%_ - _%hd-depth*141247%_) - (let ((_%hd-depth141249%_ - (fx- _%hd-depth*141247%_ - _%depth141210%_))) + (_%K144980145006%_ + (lambda (_%rest144997%_ + _%hd-pat144998%_ + _%hd-depth*144999%_) + (let ((_%hd-depth145001%_ + (fx- _%hd-depth*144999%_ + _%depth144962%_))) (if (let () (declare (not safe)) (##fxpositive? - _%hd-depth141249%_)) - (_%lp141219%_ - _%rest141245%_ + _%hd-depth145001%_)) + (_%lp144971%_ + _%rest144997%_ (cons (cons 'ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd-pat141246%_) - _%targets141222%_) - (cons (cons _%hd-depth141249%_ _%hd-pat141246%_) - _%vars141223%_)) + _%hd-pat144998%_) + _%targets144974%_) + (cons (cons _%hd-depth145001%_ _%hd-pat144998%_) + _%vars144975%_)) (if (let () (declare (not safe)) - (##fxzero? _%hd-depth141249%_)) - (_%lp141219%_ - _%rest141245%_ - (cons (cons 'pattern _%hd-pat141246%_) - _%targets141222%_) - _%vars141223%_) + (##fxzero? _%hd-depth145001%_)) + (_%lp144971%_ + _%rest144997%_ + (cons (cons 'pattern _%hd-pat144998%_) + _%targets144974%_) + _%vars144975%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Too many ellipses" - _%stx141039%_ - _%where141209%_)))))))) + _%stx144791%_ + _%where144961%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest141224141234%_) - (let ((_%hd141229141257%_ + (if (pair? _%rest144976144986%_) + (let ((_%hd144981145009%_ (let () (declare (not safe)) - (##car _%rest141224141234%_))) - (_%tl141230141259%_ + (##car _%rest144976144986%_))) + (_%tl144982145011%_ (let () (declare (not safe)) - (##cdr _%rest141224141234%_)))) - (if (pair? _%hd141229141257%_) - (let ((_%hd141231141262%_ + (##cdr _%rest144976144986%_)))) + (if (pair? _%hd144981145009%_) + (let ((_%hd144983145014%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%hd141229141257%_))) - (_%tl141232141264%_ - (let () (declare (not safe)) (##cdr _%hd141229141257%_)))) - (let* ((_%hd-depth*141267%_ _%hd141231141262%_) - (_%hd-pat141269%_ _%tl141232141264%_) - (_%rest141271%_ _%tl141230141259%_)) - (_%K141228141254%_ - _%rest141271%_ - _%hd-pat141269%_ - _%hd-depth*141267%_))) - (_%else141226141242%_))) + (##car _%hd144981145009%_))) + (_%tl144984145016%_ + (let () (declare (not safe)) (##cdr _%hd144981145009%_)))) + (let* ((_%hd-depth*145019%_ _%hd144983145014%_) + (_%hd-pat145021%_ _%tl144984145016%_) + (_%rest145023%_ _%tl144982145011%_)) + (_%K144980145006%_ + _%rest145023%_ + _%hd-pat145021%_ + _%hd-depth*145019%_))) + (_%else144978144994%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else141226141242%_)))))))))) - (_%recur141087%_ - (lambda (_%e141092%_ _%is-e?141093%_) - (if (_%is-e?141093%_ _%e141092%_) + (_%else144978144994%_)))))))))) + (_%recur144839%_ + (lambda (_%e144844%_ _%is-e?144845%_) + (if (_%is-e?144845%_ _%e144844%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Mislpaced ellipsis" - _%stx141039%_)) - (if (gx#syntax-local-pattern? _%e141092%_) - (let* ((_%pat141097%_ + _%stx144791%_)) + (if (gx#syntax-local-pattern? _%e144844%_) + (let* ((_%pat144849%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%e141092%_))) - (_%depth141099%_ + _%e144844%_))) + (_%depth144851%_ (##structure-ref - _%pat141097%_ + _%pat144849%_ '3 gx#syntax-pattern::t '#f))) - (if (fxpositive? _%depth141099%_) - (values (cons 'ref _%pat141097%_) - (cons (cons _%depth141099%_ + (if (fxpositive? _%depth144851%_) + (values (cons 'ref _%pat144849%_) + (cons (cons _%depth144851%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pat141097%_) + _%pat144849%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (values (cons 'pattern - _%pat141097%_) + _%pat144849%_) '()))) (if (let () (declare (not safe)) - (gx#identifier? _%e141092%_)) - (values (cons 'term _%e141092%_) + (gx#identifier? _%e144844%_)) + (values (cons 'term _%e144844%_) '()) (if (let () (declare (not safe)) - (gx#stx-pair? _%e141092%_)) - (let* ((_%e141103141110%_ - _%e141092%_) - (_%E141105141114%_ + (gx#stx-pair? _%e144844%_)) + (let* ((_%e144855144862%_ + _%e144844%_) + (_%E144857144866%_ (lambda () (let () (declare @@ -687,2034 +687,2034 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e141103141110%_)))) - (_%E141104141196%_ + _%e144855144862%_)))) + (_%E144856144948%_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%e141103141110%_)) - (let ((_%e141106141118%_ + (gx#stx-pair? _%e144855144862%_)) + (let ((_%e144858144870%_ (let () (declare (not safe)) - (gx#syntax-e _%e141103141110%_)))) - (let ((_%hd141107141121%_ + (gx#syntax-e _%e144855144862%_)))) + (let ((_%hd144859144873%_ (let () (declare (not safe)) - (##car _%e141106141118%_))) - (_%tl141108141123%_ + (##car _%e144858144870%_))) + (_%tl144860144875%_ (let () (declare (not safe)) - (##cdr _%e141106141118%_)))) - (let* ((_%hd141126%_ _%hd141107141121%_) - (_%rest141128%_ _%tl141108141123%_)) - (if (_%is-e?141093%_ _%hd141126%_) - (let* ((_%e141129141136%_ _%rest141128%_) - (_%E141131141140%_ + (##cdr _%e144858144870%_)))) + (let* ((_%hd144878%_ _%hd144859144873%_) + (_%rest144880%_ _%tl144860144875%_)) + (if (_%is-e?144845%_ _%hd144878%_) + (let* ((_%e144881144888%_ _%rest144880%_) + (_%E144883144892%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad ellipsis syntax" - _%stx141039%_ - _%e141092%_)))) - (_%E141130141154%_ + _%stx144791%_ + _%e144844%_)))) + (_%E144882144906%_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _%e141129141136%_)) - (let ((_%e141132141144%_ + _%e144881144888%_)) + (let ((_%e144884144896%_ (let () (declare (not safe)) (gx#syntax-e - _%e141129141136%_)))) - (let ((_%hd141133141147%_ + _%e144881144888%_)))) + (let ((_%hd144885144899%_ (let () (declare (not safe)) - (##car _%e141132141144%_))) - (_%tl141134141149%_ + (##car _%e144884144896%_))) + (_%tl144886144901%_ (let () (declare (not safe)) - (##cdr _%e141132141144%_)))) - (let ((_%rest141152%_ - _%hd141133141147%_)) + (##cdr _%e144884144896%_)))) + (let ((_%rest144904%_ + _%hd144885144899%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141134141149%_)) - (_%recur141087%_ - _%rest141152%_ + _%tl144886144901%_)) + (_%recur144839%_ + _%rest144904%_ false) - (_%E141131141140%_))))) - (_%E141131141140%_))))) - (_%E141130141154%_)) - (let _%lp141158%_ ((_%rest141160%_ - _%rest141128%_) - (_%depth141161%_ '0)) - (let* ((_%e141162141169%_ _%rest141160%_) - (_%E141164141173%_ + (_%E144883144892%_))))) + (_%E144883144892%_))))) + (_%E144882144906%_)) + (let _%lp144910%_ ((_%rest144912%_ + _%rest144880%_) + (_%depth144913%_ '0)) + (let* ((_%e144914144921%_ _%rest144912%_) + (_%E144916144925%_ (lambda () - (if (fxpositive? _%depth141161%_) - (_%make-splice141086%_ - _%e141092%_ - _%depth141161%_ - (_%recur141087%_ - _%hd141126%_ - _%is-e?141093%_) - (_%recur141087%_ - _%rest141160%_ - _%is-e?141093%_)) - (_%make-cons141085%_ - (_%recur141087%_ - _%hd141126%_ - _%is-e?141093%_) - (_%recur141087%_ - _%rest141160%_ - _%is-e?141093%_))))) - (_%E141163141192%_ + (if (fxpositive? _%depth144913%_) + (_%make-splice144838%_ + _%e144844%_ + _%depth144913%_ + (_%recur144839%_ + _%hd144878%_ + _%is-e?144845%_) + (_%recur144839%_ + _%rest144912%_ + _%is-e?144845%_)) + (_%make-cons144837%_ + (_%recur144839%_ + _%hd144878%_ + _%is-e?144845%_) + (_%recur144839%_ + _%rest144912%_ + _%is-e?144845%_))))) + (_%E144915144944%_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _%e141162141169%_)) - (let ((_%e141165141177%_ + _%e144914144921%_)) + (let ((_%e144917144929%_ (let () (declare (not safe)) (gx#syntax-e - _%e141162141169%_)))) - (let ((_%hd141166141180%_ + _%e144914144921%_)))) + (let ((_%hd144918144932%_ (let () (declare (not safe)) - (##car _%e141165141177%_))) - (_%tl141167141182%_ + (##car _%e144917144929%_))) + (_%tl144919144934%_ (let () (declare (not safe)) - (##cdr _%e141165141177%_)))) - (let* ((_%rest-hd141185%_ - _%hd141166141180%_) - (_%rest-tl141187%_ - _%tl141167141182%_)) - (if (_%is-e?141093%_ - _%rest-hd141185%_) - (_%lp141158%_ - _%rest-tl141187%_ + (##cdr _%e144917144929%_)))) + (let* ((_%rest-hd144937%_ + _%hd144918144932%_) + (_%rest-tl144939%_ + _%tl144919144934%_)) + (if (_%is-e?144845%_ + _%rest-hd144937%_) + (_%lp144910%_ + _%rest-tl144939%_ (let () (declare (not safe)) - (##fx+ _%depth141161%_ + (##fx+ _%depth144913%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1))) - (if (fxpositive? _%depth141161%_) - (_%make-splice141086%_ - _%e141092%_ - _%depth141161%_ - (_%recur141087%_ _%hd141126%_ _%is-e?141093%_) - (_%recur141087%_ _%rest141160%_ _%is-e?141093%_)) - (_%make-cons141085%_ - (_%recur141087%_ _%hd141126%_ _%is-e?141093%_) - (_%recur141087%_ _%rest141160%_ _%is-e?141093%_))))))) + (if (fxpositive? _%depth144913%_) + (_%make-splice144838%_ + _%e144844%_ + _%depth144913%_ + (_%recur144839%_ _%hd144878%_ _%is-e?144845%_) + (_%recur144839%_ _%rest144912%_ _%is-e?144845%_)) + (_%make-cons144837%_ + (_%recur144839%_ _%hd144878%_ _%is-e?144845%_) + (_%recur144839%_ _%rest144912%_ _%is-e?144845%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E141164141173%_))))) - (_%E141163141192%_))))))) - (_%E141105141114%_))))) + (_%E144916144925%_))))) + (_%E144915144944%_))))))) + (_%E144857144866%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E141104141196%_)) + (_%E144856144948%_)) (if (let () (declare (not safe)) (gx#stx-vector? - _%e141092%_)) - (let ((_g141616_ - (_%recur141087%_ + _%e144844%_)) + (let ((_g145368_ + (_%recur144839%_ (vector->list (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-unwrap__0 _%e141092%_))) - _%is-e?141093%_))) + (gx#stx-unwrap__0 _%e144844%_))) + _%is-e?144845%_))) (begin - (let ((_g141617_ + (let ((_g145369_ (let () (declare (not safe)) - (if (##values? _g141616_) - (##values-length _g141616_) + (if (##values? _g145368_) + (##values-length _g145368_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g141617_ 2))) - (error "Context expects 2 values" _g141617_))) - (let ((_%e141201%_ + (if (not (let () (declare (not safe)) (##fx= _g145369_ 2))) + (error "Context expects 2 values" _g145369_))) + (let ((_%e144953%_ (let () (declare (not safe)) - (##values-ref _g141616_ 0))) - (_%vars141202%_ + (##values-ref _g145368_ 0))) + (_%vars144954%_ (let () (declare (not safe)) - (##values-ref _g141616_ 1)))) - (values (cons 'vector _%e141201%_) _%vars141202%_)))) + (##values-ref _g145368_ 1)))) + (values (cons 'vector _%e144953%_) _%vars144954%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-box? - _%e141092%_)) - (let ((_g141618_ - (_%recur141087%_ + _%e144844%_)) + (let ((_g145370_ + (_%recur144839%_ (unbox (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-unwrap__0 _%e141092%_))) - _%is-e?141093%_))) + (gx#stx-unwrap__0 _%e144844%_))) + _%is-e?144845%_))) (begin - (let ((_g141619_ + (let ((_g145371_ (let () (declare (not safe)) - (if (##values? _g141618_) - (##values-length _g141618_) + (if (##values? _g145370_) + (##values-length _g145370_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g141619_ 2))) - (error "Context expects 2 values" _g141619_))) - (let ((_%e141205%_ + (##fx= _g145371_ 2))) + (error "Context expects 2 values" _g145371_))) + (let ((_%e144957%_ (let () (declare (not safe)) - (##values-ref _g141618_ 0))) - (_%vars141206%_ + (##values-ref _g145370_ 0))) + (_%vars144958%_ (let () (declare (not safe)) - (##values-ref _g141618_ 1)))) - (values (cons 'box _%e141205%_) _%vars141206%_)))) - (values (cons 'datum _%e141092%_) '())))))))))) + (##values-ref _g145370_ 1)))) + (values (cons 'box _%e144957%_) _%vars144958%_)))) + (values (cons 'datum _%e144844%_) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g141620_ - (_%recur141087%_ _%e141083%_ gx#ellipsis?))) + (let ((_g145372_ + (_%recur144839%_ _%e144835%_ gx#ellipsis?))) (begin - (let ((_g141621_ + (let ((_g145373_ (let () (declare (not safe)) - (if (##values? _g141620_) - (##values-length _g141620_) + (if (##values? _g145372_) + (##values-length _g145372_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g141621_ 2))) - (error "Context expects 2 values" _g141621_))) - (let ((_%tree141089%_ + (##fx= _g145373_ 2))) + (error "Context expects 2 values" _g145373_))) + (let ((_%tree144841%_ (let () (declare (not safe)) - (##values-ref _g141620_ 0))) - (_%vars141090%_ + (##values-ref _g145372_ 0))) + (_%vars144842%_ (let () (declare (not safe)) - (##values-ref _g141620_ 1)))) - (if (null? _%vars141090%_) - _%tree141089%_ + (##values-ref _g145372_ 1)))) + (if (null? _%vars144842%_) + _%tree144841%_ (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Missing ellipsis" - _%stx141039%_ - _%vars141090%_)))))))))) - (let* ((_%e141043141053%_ _%stx141039%_) - (_%E141045141057%_ + _%stx144791%_ + _%vars144842%_)))))))))) + (let* ((_%e144795144805%_ _%stx144791%_) + (_%E144797144809%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; expand-syntax expects a single argument" - _%stx141039%_)))) - (_%E141044141079%_ + _%stx144791%_)))) + (_%E144796144831%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e141043141053%_)) - (let ((_%e141046141061%_ + (gx#stx-pair? _%e144795144805%_)) + (let ((_%e144798144813%_ (let () (declare (not safe)) - (gx#syntax-e _%e141043141053%_)))) - (let ((_%hd141047141064%_ + (gx#syntax-e _%e144795144805%_)))) + (let ((_%hd144799144816%_ (let () (declare (not safe)) - (##car _%e141046141061%_))) - (_%tl141048141066%_ + (##car _%e144798144813%_))) + (_%tl144800144818%_ (let () (declare (not safe)) - (##cdr _%e141046141061%_)))) + (##cdr _%e144798144813%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141048141066%_)) - (let ((_%e141049141069%_ + (gx#stx-pair? _%tl144800144818%_)) + (let ((_%e144801144821%_ (let () (declare (not safe)) - (gx#syntax-e _%tl141048141066%_)))) - (let ((_%hd141050141072%_ + (gx#syntax-e _%tl144800144818%_)))) + (let ((_%hd144802144824%_ (let () (declare (not safe)) - (##car _%e141049141069%_))) - (_%tl141051141074%_ + (##car _%e144801144821%_))) + (_%tl144803144826%_ (let () (declare (not safe)) - (##cdr _%e141049141069%_)))) - (let ((_%form141077%_ _%hd141050141072%_)) + (##cdr _%e144801144821%_)))) + (let ((_%form144829%_ _%hd144802144824%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141051141074%_)) - (let ((__tmp141623 - (_%generate141041%_ - (_%parse141042%_ - _%form141077%_))) - (__tmp141622 + (gx#stx-null? _%tl144803144826%_)) + (let ((__tmp145375 + (_%generate144793%_ + (_%parse144794%_ + _%form144829%_))) + (__tmp145374 (let () (declare (not safe)) (gx#stx-source - _%stx141039%_)))) + _%stx144791%_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp141623 - __tmp141622)) - (_%E141045141057%_))))) - (_%E141045141057%_)))) - (_%E141045141057%_))))) - (_%E141044141079%_))))) + __tmp145375 + __tmp145374)) + (_%E144797144809%_))))) + (_%E144797144809%_)))) + (_%E144797144809%_))))) + (_%E144796144831%_))))) (define gx#macro-expand-syntax-case__% - (lambda (_%stx140288%_ - _%identifier=?140289%_ - _%unwrap-e140290%_ - _%wrap-e140291%_) - (letrec ((_%generate-bindings140293%_ - (lambda (_%target140903%_ - _%ids140904%_ - _%clauses140905%_ - _%clause-ids140906%_ - _%E140907%_) - (letrec ((_%generate1140909%_ - (lambda (_%clause141006%_ - _%clause-id141007%_ - _%E141008%_) - (cons (cons _%clause-id141007%_ '()) - (cons (let ((__tmp141625 - (cons _%target140903%_ '())) - (__tmp141624 - (_%generate-clause140295%_ - _%target140903%_ - _%ids140904%_ - _%clause141006%_ - _%E141008%_))) + (lambda (_%stx144040%_ + _%identifier=?144041%_ + _%unwrap-e144042%_ + _%wrap-e144043%_) + (letrec ((_%generate-bindings144045%_ + (lambda (_%target144655%_ + _%ids144656%_ + _%clauses144657%_ + _%clause-ids144658%_ + _%E144659%_) + (letrec ((_%generate1144661%_ + (lambda (_%clause144758%_ + _%clause-id144759%_ + _%E144760%_) + (cons (cons _%clause-id144759%_ '()) + (cons (let ((__tmp145377 + (cons _%target144655%_ '())) + (__tmp145376 + (_%generate-clause144047%_ + _%target144655%_ + _%ids144656%_ + _%clause144758%_ + _%E144760%_))) (declare (not safe)) (gx#core-list 'lambda% - __tmp141625 - __tmp141624)) + __tmp145377 + __tmp145376)) '()))))) - (let _%lp140911%_ ((_%rest140913%_ _%clauses140905%_) - (_%rest-ids140914%_ - _%clause-ids140906%_) - (_%bindings140915%_ '())) - (let* ((_%rest140916140924%_ _%rest140913%_) - (_%else140918140932%_ - (lambda () _%bindings140915%_)) - (_%K140920140994%_ - (lambda (_%rest140935%_ _%clause140936%_) - (let* ((_%rest-ids140937140944%_ - _%rest-ids140914%_) - (_%E140939140948%_ + (let _%lp144663%_ ((_%rest144665%_ _%clauses144657%_) + (_%rest-ids144666%_ + _%clause-ids144658%_) + (_%bindings144667%_ '())) + (let* ((_%rest144668144676%_ _%rest144665%_) + (_%else144670144684%_ + (lambda () _%bindings144667%_)) + (_%K144672144746%_ + (lambda (_%rest144687%_ _%clause144688%_) + (let* ((_%rest-ids144689144696%_ + _%rest-ids144666%_) + (_%E144691144700%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest-ids140937140944%_ + _%rest-ids144689144696%_ '([clause-id . rest-ids]))) '#!void)) - (_%K140940140982%_ - (lambda (_%rest-ids140951%_ - _%clause-id140952%_) - (let* ((_%rest-ids140953140961%_ - _%rest-ids140951%_) - (_%else140955140969%_ + (_%K144692144734%_ + (lambda (_%rest-ids144703%_ + _%clause-id144704%_) + (let* ((_%rest-ids144705144713%_ + _%rest-ids144703%_) + (_%else144707144721%_ (lambda () - (cons (_%generate1140909%_ - _%clause140936%_ - _%clause-id140952%_ - _%E140907%_) - _%bindings140915%_))) - (_%K140957140974%_ - (lambda (_%next-clause-id140972%_) - (_%lp140911%_ - _%rest140935%_ - _%rest-ids140951%_ - (cons (_%generate1140909%_ - _%clause140936%_ - _%clause-id140952%_ - _%next-clause-id140972%_) - _%bindings140915%_))))) - (if (pair? _%rest-ids140953140961%_) - (let* ((_%hd140958140977%_ + (cons (_%generate1144661%_ + _%clause144688%_ + _%clause-id144704%_ + _%E144659%_) + _%bindings144667%_))) + (_%K144709144726%_ + (lambda (_%next-clause-id144724%_) + (_%lp144663%_ + _%rest144687%_ + _%rest-ids144703%_ + (cons (_%generate1144661%_ + _%clause144688%_ + _%clause-id144704%_ + _%next-clause-id144724%_) + _%bindings144667%_))))) + (if (pair? _%rest-ids144705144713%_) + (let* ((_%hd144710144729%_ (let () (declare (not safe)) - (##car _%rest-ids140953140961%_))) - (_%next-clause-id140980%_ - _%hd140958140977%_)) - (_%K140957140974%_ - _%next-clause-id140980%_)) - (_%else140955140969%_)))))) - (if (pair? _%rest-ids140937140944%_) - (let ((_%hd140941140985%_ + (##car _%rest-ids144705144713%_))) + (_%next-clause-id144732%_ + _%hd144710144729%_)) + (_%K144709144726%_ + _%next-clause-id144732%_)) + (_%else144707144721%_)))))) + (if (pair? _%rest-ids144689144696%_) + (let ((_%hd144693144737%_ (let () (declare (not safe)) - (##car _%rest-ids140937140944%_))) - (_%tl140942140987%_ + (##car _%rest-ids144689144696%_))) + (_%tl144694144739%_ (let () (declare (not safe)) - (##cdr _%rest-ids140937140944%_)))) - (let* ((_%clause-id140990%_ - _%hd140941140985%_) - (_%rest-ids140992%_ - _%tl140942140987%_)) - (_%K140940140982%_ - _%rest-ids140992%_ - _%clause-id140990%_))) - (_%E140939140948%_)))))) - (if (pair? _%rest140916140924%_) - (let ((_%hd140921140997%_ + (##cdr _%rest-ids144689144696%_)))) + (let* ((_%clause-id144742%_ + _%hd144693144737%_) + (_%rest-ids144744%_ + _%tl144694144739%_)) + (_%K144692144734%_ + _%rest-ids144744%_ + _%clause-id144742%_))) + (_%E144691144700%_)))))) + (if (pair? _%rest144668144676%_) + (let ((_%hd144673144749%_ (let () (declare (not safe)) - (##car _%rest140916140924%_))) - (_%tl140922140999%_ + (##car _%rest144668144676%_))) + (_%tl144674144751%_ (let () (declare (not safe)) - (##cdr _%rest140916140924%_)))) - (let* ((_%clause141002%_ _%hd140921140997%_) - (_%rest141004%_ _%tl140922140999%_)) - (_%K140920140994%_ - _%rest141004%_ - _%clause141002%_))) - (_%else140918140932%_))))))) - (_%generate-body140294%_ - (lambda (_%bindings140863%_ _%body140864%_) - (let _%recur140866%_ ((_%rest140868%_ _%bindings140863%_)) - (let* ((_%rest140869140877%_ _%rest140868%_) - (_%else140871140885%_ (lambda () _%body140864%_)) - (_%K140873140891%_ - (lambda (_%rest140888%_ _%hd140889%_) - (let ((__tmp141627 (cons _%hd140889%_ '())) - (__tmp141626 - (_%recur140866%_ _%rest140888%_))) + (##cdr _%rest144668144676%_)))) + (let* ((_%clause144754%_ _%hd144673144749%_) + (_%rest144756%_ _%tl144674144751%_)) + (_%K144672144746%_ + _%rest144756%_ + _%clause144754%_))) + (_%else144670144684%_))))))) + (_%generate-body144046%_ + (lambda (_%bindings144615%_ _%body144616%_) + (let _%recur144618%_ ((_%rest144620%_ _%bindings144615%_)) + (let* ((_%rest144621144629%_ _%rest144620%_) + (_%else144623144637%_ (lambda () _%body144616%_)) + (_%K144625144643%_ + (lambda (_%rest144640%_ _%hd144641%_) + (let ((__tmp145379 (cons _%hd144641%_ '())) + (__tmp145378 + (_%recur144618%_ _%rest144640%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp141627 - __tmp141626))))) - (if (pair? _%rest140869140877%_) - (let ((_%hd140874140894%_ + __tmp145379 + __tmp145378))))) + (if (pair? _%rest144621144629%_) + (let ((_%hd144626144646%_ (let () (declare (not safe)) - (##car _%rest140869140877%_))) - (_%tl140875140896%_ + (##car _%rest144621144629%_))) + (_%tl144627144648%_ (let () (declare (not safe)) - (##cdr _%rest140869140877%_)))) - (let* ((_%hd140899%_ _%hd140874140894%_) - (_%rest140901%_ _%tl140875140896%_)) - (_%K140873140891%_ - _%rest140901%_ - _%hd140899%_))) - (_%else140871140885%_)))))) - (_%generate-clause140295%_ - (lambda (_%target140726%_ - _%ids140727%_ - _%clause140728%_ - _%E140729%_) - (letrec ((_%generate1140731%_ - (lambda (_%hd140818%_ - _%fender140819%_ - _%body140820%_) - (let ((_g141628_ - (_%parse-clause140297%_ - _%hd140818%_ - _%ids140727%_))) + (##cdr _%rest144621144629%_)))) + (let* ((_%hd144651%_ _%hd144626144646%_) + (_%rest144653%_ _%tl144627144648%_)) + (_%K144625144643%_ + _%rest144653%_ + _%hd144651%_))) + (_%else144623144637%_)))))) + (_%generate-clause144047%_ + (lambda (_%target144478%_ + _%ids144479%_ + _%clause144480%_ + _%E144481%_) + (letrec ((_%generate1144483%_ + (lambda (_%hd144570%_ + _%fender144571%_ + _%body144572%_) + (let ((_g145380_ + (_%parse-clause144049%_ + _%hd144570%_ + _%ids144479%_))) (begin - (let ((_g141629_ + (let ((_g145381_ (let () (declare (not safe)) - (if (##values? _g141628_) - (##values-length _g141628_) + (if (##values? _g145380_) + (##values-length _g145380_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g141629_ 2))) + (##fx= _g145381_ 2))) (error "Context expects 2 values" - _g141629_))) - (let ((_%e140822%_ + _g145381_))) + (let ((_%e144574%_ (let () (declare (not safe)) - (##values-ref _g141628_ 0))) - (_%mvars140823%_ + (##values-ref _g145380_ 0))) + (_%mvars144575%_ (let () (declare (not safe)) - (##values-ref _g141628_ 1)))) - (let* ((_%pvars140825%_ + (##values-ref _g145380_ 1)))) + (let* ((_%pvars144577%_ (map gx#syntax-local-rewrap (let () (declare (not safe)) (gx#gentemps - _%mvars140823%_)))) - (_%E140827%_ - (cons _%E140729%_ - (cons _%target140726%_ + _%mvars144575%_)))) + (_%E144579%_ + (cons _%E144481%_ + (cons _%target144478%_ '()))) - (_%K140860%_ - (let ((__tmp141630 - (let ((__tmp141632 - (map (lambda (_%mvar140829%_ + (_%K144612%_ + (let ((__tmp145382 + (let ((__tmp145384 + (map (lambda (_%mvar144581%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pvar140830%_) - (let* ((_%mvar140831140838%_ _%mvar140829%_) - (_%E140833140842%_ + _%pvar144582%_) + (let* ((_%mvar144583144590%_ _%mvar144581%_) + (_%E144585144594%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%mvar140831140838%_ + _%mvar144583144590%_ '([id . depth]))) '#!void)) - (_%K140834140848%_ - (lambda (_%depth140845%_ _%id140846%_) - (cons _%id140846%_ - (cons (let ((__tmp141634 + (_%K144586144600%_ + (lambda (_%depth144597%_ _%id144598%_) + (cons _%id144598%_ + (cons (let ((__tmp145386 (let () (declare (not safe)) (gx#core-list 'quote - _%id140846%_))) - (__tmp141633 + _%id144598%_))) + (__tmp145385 (let () (declare (not safe)) (gx#core-list 'quote - _%pvar140830%_)))) + _%pvar144582%_)))) (declare (not safe)) (gx#core-list 'make-syntax-pattern - __tmp141634 - __tmp141633 - _%depth140845%_)) + __tmp145386 + __tmp145385 + _%depth144597%_)) '()))))) - (if (pair? _%mvar140831140838%_) - (let ((_%hd140835140851%_ + (if (pair? _%mvar144583144590%_) + (let ((_%hd144587144603%_ (let () (declare (not safe)) - (##car _%mvar140831140838%_))) - (_%tl140836140853%_ + (##car _%mvar144583144590%_))) + (_%tl144588144605%_ (let () (declare (not safe)) - (##cdr _%mvar140831140838%_)))) - (let* ((_%id140856%_ _%hd140835140851%_) - (_%depth140858%_ _%tl140836140853%_)) - (_%K140834140848%_ - _%depth140858%_ - _%id140856%_))) - (_%E140833140842%_)))) - _%mvars140823%_ - _%pvars140825%_)) - (__tmp141631 - (if (eq? _%fender140819%_ '#t) - _%body140820%_ + (##cdr _%mvar144583144590%_)))) + (let* ((_%id144608%_ _%hd144587144603%_) + (_%depth144610%_ _%tl144588144605%_)) + (_%K144586144600%_ + _%depth144610%_ + _%id144608%_))) + (_%E144585144594%_)))) + _%mvars144575%_ + _%pvars144577%_)) + (__tmp145383 + (if (eq? _%fender144571%_ '#t) + _%body144572%_ (let () (declare (not safe)) (gx#core-list 'if - _%fender140819%_ - _%body140820%_ - _%E140827%_))))) + _%fender144571%_ + _%body144572%_ + _%E144579%_))))) (declare (not safe)) - (gx#core-list 'let-syntax __tmp141632 __tmp141631)))) + (gx#core-list 'let-syntax __tmp145384 __tmp145383)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'lambda% - _%pvars140825%_ - __tmp141630)))) - (_%generate-match140296%_ - _%hd140818%_ - _%target140726%_ - _%e140822%_ - _%mvars140823%_ - _%K140860%_ - _%E140827%_)))))))) - (let* ((_%e140732140752%_ _%clause140728%_) - (_%E140741140756%_ + _%pvars144577%_ + __tmp145382)))) + (_%generate-match144048%_ + _%hd144570%_ + _%target144478%_ + _%e144574%_ + _%mvars144575%_ + _%K144612%_ + _%E144579%_)))))))) + (let* ((_%e144484144504%_ _%clause144480%_) + (_%E144493144508%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e140732140752%_)))) - (_%E140734140790%_ + _%e144484144504%_)))) + (_%E144486144542%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e140732140752%_)) - (let ((_%e140742140760%_ + (gx#stx-pair? _%e144484144504%_)) + (let ((_%e144494144512%_ (let () (declare (not safe)) - (gx#syntax-e _%e140732140752%_)))) - (let ((_%hd140743140763%_ + (gx#syntax-e _%e144484144504%_)))) + (let ((_%hd144495144515%_ (let () (declare (not safe)) - (##car _%e140742140760%_))) - (_%tl140744140765%_ + (##car _%e144494144512%_))) + (_%tl144496144517%_ (let () (declare (not safe)) - (##cdr _%e140742140760%_)))) - (let ((_%hd140768%_ - _%hd140743140763%_)) + (##cdr _%e144494144512%_)))) + (let ((_%hd144520%_ + _%hd144495144515%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140744140765%_)) - (let ((_%e140745140770%_ + _%tl144496144517%_)) + (let ((_%e144497144522%_ (let () (declare (not safe)) (gx#syntax-e - _%tl140744140765%_)))) - (let ((_%hd140746140773%_ + _%tl144496144517%_)))) + (let ((_%hd144498144525%_ (let () (declare (not safe)) - (##car _%e140745140770%_))) - (_%tl140747140775%_ + (##car _%e144497144522%_))) + (_%tl144499144527%_ (let () (declare (not safe)) - (##cdr _%e140745140770%_)))) - (let ((_%fender140778%_ - _%hd140746140773%_)) + (##cdr _%e144497144522%_)))) + (let ((_%fender144530%_ + _%hd144498144525%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140747140775%_)) - (let ((_%e140748140780%_ + _%tl144499144527%_)) + (let ((_%e144500144532%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl140747140775%_)))) - (let ((_%hd140749140783%_ + (gx#syntax-e _%tl144499144527%_)))) + (let ((_%hd144501144535%_ (let () (declare (not safe)) - (##car _%e140748140780%_))) - (_%tl140750140785%_ + (##car _%e144500144532%_))) + (_%tl144502144537%_ (let () (declare (not safe)) - (##cdr _%e140748140780%_)))) - (let ((_%body140788%_ _%hd140749140783%_)) + (##cdr _%e144500144532%_)))) + (let ((_%body144540%_ _%hd144501144535%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140750140785%_)) - (_%generate1140731%_ - _%hd140768%_ - _%fender140778%_ - _%body140788%_) - (_%E140741140756%_))))) - (_%E140741140756%_))))) + (gx#stx-null? _%tl144502144537%_)) + (_%generate1144483%_ + _%hd144520%_ + _%fender144530%_ + _%body144540%_) + (_%E144493144508%_))))) + (_%E144493144508%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E140741140756%_))))) - (_%E140741140756%_)))) - (_%E140733140814%_ + (_%E144493144508%_))))) + (_%E144493144508%_)))) + (_%E144485144566%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e140732140752%_)) - (let ((_%e140735140794%_ + (gx#stx-pair? _%e144484144504%_)) + (let ((_%e144487144546%_ (let () (declare (not safe)) - (gx#syntax-e _%e140732140752%_)))) - (let ((_%hd140736140797%_ + (gx#syntax-e _%e144484144504%_)))) + (let ((_%hd144488144549%_ (let () (declare (not safe)) - (##car _%e140735140794%_))) - (_%tl140737140799%_ + (##car _%e144487144546%_))) + (_%tl144489144551%_ (let () (declare (not safe)) - (##cdr _%e140735140794%_)))) - (let ((_%hd140802%_ - _%hd140736140797%_)) + (##cdr _%e144487144546%_)))) + (let ((_%hd144554%_ + _%hd144488144549%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140737140799%_)) - (let ((_%e140738140804%_ + _%tl144489144551%_)) + (let ((_%e144490144556%_ (let () (declare (not safe)) (gx#syntax-e - _%tl140737140799%_)))) - (let ((_%hd140739140807%_ + _%tl144489144551%_)))) + (let ((_%hd144491144559%_ (let () (declare (not safe)) - (##car _%e140738140804%_))) - (_%tl140740140809%_ + (##car _%e144490144556%_))) + (_%tl144492144561%_ (let () (declare (not safe)) - (##cdr _%e140738140804%_)))) - (let ((_%body140812%_ - _%hd140739140807%_)) + (##cdr _%e144490144556%_)))) + (let ((_%body144564%_ + _%hd144491144559%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140740140809%_)) - (_%generate1140731%_ - _%hd140802%_ + _%tl144492144561%_)) + (_%generate1144483%_ + _%hd144554%_ '#t - _%body140812%_) - (_%E140734140790%_))))) - (_%E140734140790%_))))) - (_%E140734140790%_))))) - (_%E140733140814%_))))) - (_%generate-match140296%_ - (lambda (_%where140475%_ - _%target140476%_ - _%hd140477%_ - _%mvars140478%_ - _%K140479%_ - _%E140480%_) - (letrec ((_%BUG140482%_ - (lambda (_%q140724%_) + _%body144564%_) + (_%E144486144542%_))))) + (_%E144486144542%_))))) + (_%E144486144542%_))))) + (_%E144485144566%_))))) + (_%generate-match144048%_ + (lambda (_%where144227%_ + _%target144228%_ + _%hd144229%_ + _%mvars144230%_ + _%K144231%_ + _%E144232%_) + (letrec ((_%BUG144234%_ + (lambda (_%q144476%_) (let () (declare (not safe)) (error '"BUG: syntax-case; generate" - _%stx140288%_ - _%hd140477%_ - _%q140724%_)))) - (_%recur140483%_ - (lambda (_%e140574%_ - _%vars140575%_ - _%target140576%_ - _%E140577%_ - _%k140578%_) - (let* ((_%e140579140586%_ _%e140574%_) - (_%E140581140590%_ + _%stx144040%_ + _%hd144229%_ + _%q144476%_)))) + (_%recur144235%_ + (lambda (_%e144326%_ + _%vars144327%_ + _%target144328%_ + _%E144329%_ + _%k144330%_) + (let* ((_%e144331144338%_ _%e144326%_) + (_%E144333144342%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e140579140586%_ + _%e144331144338%_ '([tag . body]))) '#!void)) - (_%K140582140712%_ - (lambda (_%body140593%_ _%tag140594%_) - (let ((_%$e140596%_ _%tag140594%_)) - (if (eq? 'any _%$e140596%_) - (_%k140578%_ _%vars140575%_) - (if (eq? 'id _%$e140596%_) - (let ((__tmp141639 + (_%K144334144464%_ + (lambda (_%body144345%_ _%tag144346%_) + (let ((_%$e144348%_ _%tag144346%_)) + (if (eq? 'any _%$e144348%_) + (_%k144330%_ _%vars144327%_) + (if (eq? 'id _%$e144348%_) + (let ((__tmp145391 (let () (declare (not safe)) (gx#core-list 'identifier? - _%target140576%_))) - (__tmp141635 - (let ((__tmp141637 + _%target144328%_))) + (__tmp145387 + (let ((__tmp145389 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp141638 + (let ((__tmp145390 (let () (declare (not safe)) (gx#core-list - _%wrap-e140291%_ - _%body140593%_)))) + _%wrap-e144043%_ + _%body144345%_)))) (declare (not safe)) (gx#core-list - _%identifier=?140289%_ - __tmp141638 - _%target140576%_))) - (__tmp141636 (_%k140578%_ _%vars140575%_))) + _%identifier=?144041%_ + __tmp145390 + _%target144328%_))) + (__tmp145388 (_%k144330%_ _%vars144327%_))) (declare (not safe)) - (gx#core-list 'if __tmp141637 __tmp141636 _%E140577%_)))) + (gx#core-list 'if __tmp145389 __tmp145388 _%E144329%_)))) (declare (not safe)) - (gx#core-list 'if __tmp141639 __tmp141635 _%E140577%_)) + (gx#core-list 'if __tmp145391 __tmp145387 _%E144329%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (eq? 'var _%$e140596%_) - (_%k140578%_ - (cons (cons _%body140593%_ + (if (eq? 'var _%$e144348%_) + (_%k144330%_ + (cons (cons _%body144345%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%target140576%_) - _%vars140575%_)) - (if (eq? 'cons _%$e140596%_) - (let ((_%$e140599%_ + _%target144328%_) + _%vars144327%_)) + (if (eq? 'cons _%$e144348%_) + (let ((_%$e144351%_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_%$hd140600%_ + (_%$hd144352%_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_%$tl140601%_ + (_%$tl144353%_ (let () (declare (not safe)) (gx#genident__1 'tl)))) - (let ((__tmp141645 + (let ((__tmp145397 (let () (declare (not safe)) - (gx#core-list 'stx-pair? _%target140576%_))) - (__tmp141640 - (let ((__tmp141644 - (cons (cons (cons _%$e140599%_ '()) + (gx#core-list 'stx-pair? _%target144328%_))) + (__tmp145392 + (let ((__tmp145396 + (cons (cons (cons _%$e144351%_ '()) (cons (let () (declare (not safe)) (gx#core-list - _%unwrap-e140290%_ - _%target140576%_)) + _%unwrap-e144042%_ + _%target144328%_)) '())) '())) - (__tmp141641 - (let ((__tmp141643 - (cons (cons (cons _%$hd140600%_ '()) + (__tmp145393 + (let ((__tmp145395 + (cons (cons (cons _%$hd144352%_ '()) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#core-list '##car _%$e140599%_)) + (gx#core-list '##car _%$e144351%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (cons _%$tl140601%_ + (cons (cons (cons _%$tl144353%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list '##cdr _%$e140599%_)) + (gx#core-list '##cdr _%$e144351%_)) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp141642 - (let* ((_%body140602140609%_ - _%body140593%_) - (_%E140604140613%_ + (__tmp145394 + (let* ((_%body144354144361%_ + _%body144345%_) + (_%E144356144365%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body140602140609%_ + _%body144354144361%_ '([hd . tl]))) '#!void)) - (_%K140605140621%_ - (lambda (_%tl140616%_ - _%hd140617%_) - (_%recur140483%_ - _%hd140617%_ - _%vars140575%_ - _%$hd140600%_ - _%E140577%_ - (lambda (_%vars140619%_) - (_%recur140483%_ - _%tl140616%_ - _%vars140619%_ - _%$tl140601%_ - _%E140577%_ - _%k140578%_)))))) - (if (pair? _%body140602140609%_) - (let ((_%hd140606140624%_ + (_%K144357144373%_ + (lambda (_%tl144368%_ + _%hd144369%_) + (_%recur144235%_ + _%hd144369%_ + _%vars144327%_ + _%$hd144352%_ + _%E144329%_ + (lambda (_%vars144371%_) + (_%recur144235%_ + _%tl144368%_ + _%vars144371%_ + _%$tl144353%_ + _%E144329%_ + _%k144330%_)))))) + (if (pair? _%body144354144361%_) + (let ((_%hd144358144376%_ (let () (declare (not safe)) - (##car _%body140602140609%_))) - (_%tl140607140626%_ + (##car _%body144354144361%_))) + (_%tl144359144378%_ (let () (declare (not safe)) - (##cdr _%body140602140609%_)))) - (let* ((_%hd140629%_ - _%hd140606140624%_) - (_%tl140631%_ - _%tl140607140626%_)) - (_%K140605140621%_ - _%tl140631%_ - _%hd140629%_))) - (_%E140604140613%_))))) + (##cdr _%body144354144361%_)))) + (let* ((_%hd144381%_ + _%hd144358144376%_) + (_%tl144383%_ + _%tl144359144378%_)) + (_%K144357144373%_ + _%tl144383%_ + _%hd144381%_))) + (_%E144356144365%_))))) (declare (not safe)) (gx#core-list 'let-values - __tmp141643 - __tmp141642)))) + __tmp145395 + __tmp145394)))) (declare (not safe)) (gx#core-list 'let-values - __tmp141644 - __tmp141641)))) + __tmp145396 + __tmp145393)))) (declare (not safe)) (gx#core-list 'if - __tmp141645 - __tmp141640 - _%E140577%_))) - (if (eq? 'splice _%$e140596%_) - (let* ((_%body140632140639%_ _%body140593%_) - (_%E140634140643%_ + __tmp145397 + __tmp145392 + _%E144329%_))) + (if (eq? 'splice _%$e144348%_) + (let* ((_%body144384144391%_ _%body144345%_) + (_%E144386144395%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body140632140639%_ + _%body144384144391%_ '([hd . tl]))) '#!void)) - (_%K140635140694%_ - (lambda (_%tl140646%_ _%hd140647%_) - (let* ((_%rlen140649%_ - (_%splice-rlen140484%_ _%tl140646%_)) - (_%$target140651%_ + (_%K144387144446%_ + (lambda (_%tl144398%_ _%hd144399%_) + (let* ((_%rlen144401%_ + (_%splice-rlen144236%_ _%tl144398%_)) + (_%$target144403%_ (let () (declare (not safe)) (gx#genident__1 'target))) - (_%$hd140653%_ + (_%$hd144405%_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_%$tl140655%_ + (_%$tl144407%_ (let () (declare (not safe)) (gx#genident__1 'tl))) - (_%$lp140657%_ + (_%$lp144409%_ (let () (declare (not safe)) (gx#genident__1 'loop))) - (_%$lp-e140659%_ + (_%$lp-e144411%_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_%$lp-hd140661%_ + (_%$lp-hd144413%_ (let () (declare (not safe)) (gx#genident__1 'lp-hd))) - (_%$lp-tl140663%_ + (_%$lp-tl144415%_ (let () (declare (not safe)) (gx#genident__1 'lp-tl))) - (_%svars140665%_ - (_%splice-vars140485%_ _%hd140647%_)) - (_%lvars140667%_ + (_%svars144417%_ + (_%splice-vars144237%_ _%hd144399%_)) + (_%lvars144419%_ (let () (declare (not safe)) - (gx#gentemps _%svars140665%_))) - (_%tlvars140669%_ + (gx#gentemps _%svars144417%_))) + (_%tlvars144421%_ (let () (declare (not safe)) - (gx#gentemps _%svars140665%_))) - (_%linit140673%_ - (map (lambda (_%var140671%_) + (gx#gentemps _%svars144417%_))) + (_%linit144425%_ + (map (lambda (_%var144423%_) (let () (declare (not safe)) (gx#core-list 'quote '()))) - _%lvars140667%_))) - (letrec ((_%make-loop140676%_ - (lambda (_%vars140680%_) - (let ((__tmp141647 - (cons (cons (cons _%$lp140657%_ + _%lvars144419%_))) + (letrec ((_%make-loop144428%_ + (lambda (_%vars144432%_) + (let ((__tmp145399 + (cons (cons (cons _%$lp144409%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp141660 - (cons _%$hd140653%_ _%lvars140667%_)) - (__tmp141648 - (let ((__tmp141659 + (cons (let ((__tmp145412 + (cons _%$hd144405%_ _%lvars144419%_)) + (__tmp145400 + (let ((__tmp145411 (let () (declare (not safe)) (gx#core-list 'stx-pair? - _%$hd140653%_))) - (__tmp141653 - (let ((__tmp141658 - (cons (cons (cons _%$lp-e140659%_ + _%$hd144405%_))) + (__tmp145405 + (let ((__tmp145410 + (cons (cons (cons _%$lp-e144411%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) (gx#core-list - _%unwrap-e140290%_ - _%$hd140653%_)) + _%unwrap-e144042%_ + _%$hd144405%_)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp141654 - (let ((__tmp141657 - (cons (cons (cons _%$lp-hd140661%_ + (__tmp145406 + (let ((__tmp145409 + (cons (cons (cons _%$lp-hd144413%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list '##car _%$lp-e140659%_)) + (gx#core-list '##car _%$lp-e144411%_)) '())) - (cons (cons (cons _%$lp-tl140663%_ '()) + (cons (cons (cons _%$lp-tl144415%_ '()) (cons (let () (declare (not safe)) (gx#core-list '##cdr - _%$lp-e140659%_)) + _%$lp-e144411%_)) '())) '()))) - (__tmp141655 - (_%recur140483%_ - _%hd140647%_ + (__tmp145407 + (_%recur144235%_ + _%hd144399%_ '() - _%$lp-hd140661%_ - _%E140577%_ - (lambda (_%hdvars140682%_) - (cons _%$lp140657%_ - (cons _%$lp-tl140663%_ - (map (lambda (_%svar140684%_ - _%lvar140685%_) - (let ((__tmp141656 + _%$lp-hd144413%_ + _%E144329%_ + (lambda (_%hdvars144434%_) + (cons _%$lp144409%_ + (cons _%$lp-tl144415%_ + (map (lambda (_%svar144436%_ + _%lvar144437%_) + (let ((__tmp145408 (let () (declare (not safe)) (agetq__% - _%svar140684%_ - _%hdvars140682%_ - _%BUG140482%_)))) + _%svar144436%_ + _%hdvars144434%_ + _%BUG144234%_)))) (declare (not safe)) (gx#core-list 'cons - __tmp141656 - _%lvar140685%_))) - _%svars140665%_ - _%lvars140667%_))))))) + __tmp145408 + _%lvar144437%_))) + _%svars144417%_ + _%lvars144419%_))))))) (declare (not safe)) - (gx#core-list 'let-values __tmp141657 __tmp141655)))) + (gx#core-list 'let-values __tmp145409 __tmp145407)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp141658 - __tmp141654))) - (__tmp141649 - (let ((__tmp141652 - (map (lambda (_%lvar140687%_ + __tmp145410 + __tmp145406))) + (__tmp145401 + (let ((__tmp145404 + (map (lambda (_%lvar144439%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tlvar140688%_) - (cons (cons _%tlvar140688%_ '()) + _%tlvar144440%_) + (cons (cons _%tlvar144440%_ '()) (cons (let () (declare (not safe)) - (gx#core-list 'reverse _%lvar140687%_)) + (gx#core-list 'reverse _%lvar144439%_)) '()))) - _%lvars140667%_ - _%tlvars140669%_)) + _%lvars144419%_ + _%tlvars144421%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp141650 - (_%k140578%_ - (let ((__tmp141651 - (lambda (_%svar140690%_ + (__tmp145402 + (_%k144330%_ + (let ((__tmp145403 + (lambda (_%svar144442%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tlvar140691%_ - _%r140692%_) - (cons (cons _%svar140690%_ _%tlvar140691%_) - _%r140692%_)))) + _%tlvar144443%_ + _%r144444%_) + (cons (cons _%svar144442%_ _%tlvar144443%_) + _%r144444%_)))) (declare (not safe)) (__foldl2 - __tmp141651 - _%vars140680%_ - _%svars140665%_ - _%tlvars140669%_))))) + __tmp145403 + _%vars144432%_ + _%svars144417%_ + _%tlvars144421%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp141652 - __tmp141650)))) + __tmp145404 + __tmp145402)))) (declare (not safe)) (gx#core-list 'if - __tmp141659 - __tmp141653 - __tmp141649)))) + __tmp145411 + __tmp145405 + __tmp145401)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp141660 - __tmp141648)) + __tmp145412 + __tmp145400)) '())) '())) - (__tmp141646 - (cons _%$lp140657%_ (cons _%$target140651%_ _%linit140673%_)))) + (__tmp145398 + (cons _%$lp144409%_ (cons _%$target144403%_ _%linit144425%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'letrec-values - __tmp141647 - __tmp141646))))) - (let ((_%body140678%_ - (let ((__tmp141662 - (cons (cons (cons _%$target140651%_ + __tmp145399 + __tmp145398))))) + (let ((_%body144430%_ + (let ((__tmp145414 + (cons (cons (cons _%$target144403%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tl140655%_ '())) + (cons _%$tl144407%_ '())) (cons (let () (declare (not safe)) (gx#core-list 'syntax-split-splice - _%target140576%_ - _%rlen140649%_)) + _%target144328%_ + _%rlen144401%_)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp141661 - (_%recur140483%_ - _%tl140646%_ - _%vars140575%_ - _%$tl140655%_ - _%E140577%_ - _%make-loop140676%_))) + (__tmp145413 + (_%recur144235%_ + _%tl144398%_ + _%vars144327%_ + _%$tl144407%_ + _%E144329%_ + _%make-loop144428%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp141662 - __tmp141661)))) - (let ((__tmp141666 + __tmp145414 + __tmp145413)))) + (let ((__tmp145418 (let () (declare (not safe)) (gx#core-list 'stx-pair/null? - _%target140576%_))) - (__tmp141663 - (if (zero? _%rlen140649%_) - _%body140678%_ - (let ((__tmp141664 - (let ((__tmp141665 + _%target144328%_))) + (__tmp145415 + (if (zero? _%rlen144401%_) + _%body144430%_ + (let ((__tmp145416 + (let ((__tmp145417 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#core-list 'stx-length _%target140576%_)))) + (gx#core-list 'stx-length _%target144328%_)))) (declare (not safe)) - (gx#core-list 'fx>= __tmp141665 _%rlen140649%_)))) + (gx#core-list 'fx>= __tmp145417 _%rlen144401%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'if - __tmp141664 - _%body140678%_ - _%E140577%_))))) + __tmp145416 + _%body144430%_ + _%E144329%_))))) (declare (not safe)) (gx#core-list 'if - __tmp141666 - __tmp141663 - _%E140577%_)))))))) - (if (pair? _%body140632140639%_) - (let ((_%hd140636140697%_ + __tmp145418 + __tmp145415 + _%E144329%_)))))))) + (if (pair? _%body144384144391%_) + (let ((_%hd144388144449%_ (let () (declare (not safe)) - (##car _%body140632140639%_))) - (_%tl140637140699%_ + (##car _%body144384144391%_))) + (_%tl144389144451%_ (let () (declare (not safe)) - (##cdr _%body140632140639%_)))) - (let* ((_%hd140702%_ _%hd140636140697%_) - (_%tl140704%_ _%tl140637140699%_)) - (_%K140635140694%_ - _%tl140704%_ - _%hd140702%_))) - (_%E140634140643%_))) - (if (eq? 'null _%$e140596%_) - (let ((__tmp141668 + (##cdr _%body144384144391%_)))) + (let* ((_%hd144454%_ _%hd144388144449%_) + (_%tl144456%_ _%tl144389144451%_)) + (_%K144387144446%_ + _%tl144456%_ + _%hd144454%_))) + (_%E144386144395%_))) + (if (eq? 'null _%$e144348%_) + (let ((__tmp145420 (let () (declare (not safe)) (gx#core-list 'stx-null? - _%target140576%_))) - (__tmp141667 (_%k140578%_ _%vars140575%_))) + _%target144328%_))) + (__tmp145419 (_%k144330%_ _%vars144327%_))) (declare (not safe)) (gx#core-list 'if - __tmp141668 - __tmp141667 - _%E140577%_)) - (if (eq? 'vector _%$e140596%_) - (let ((_%$e140706%_ + __tmp145420 + __tmp145419 + _%E144329%_)) + (if (eq? 'vector _%$e144348%_) + (let ((_%$e144458%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp141673 + (let ((__tmp145425 (let () (declare (not safe)) (gx#core-list 'stx-vector? - _%target140576%_))) - (__tmp141669 - (let ((__tmp141671 - (cons (cons (cons _%$e140706%_ + _%target144328%_))) + (__tmp145421 + (let ((__tmp145423 + (cons (cons (cons _%$e144458%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp141672 + (cons (let ((__tmp145424 (let () (declare (not safe)) (gx#core-list - _%unwrap-e140290%_ - _%target140576%_)))) + _%unwrap-e144042%_ + _%target144328%_)))) (declare (not safe)) - (gx#core-list 'vector->list __tmp141672)) + (gx#core-list 'vector->list __tmp145424)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp141670 - (_%recur140483%_ - _%body140593%_ - _%vars140575%_ - _%$e140706%_ - _%E140577%_ - _%k140578%_))) + (__tmp145422 + (_%recur144235%_ + _%body144345%_ + _%vars144327%_ + _%$e144458%_ + _%E144329%_ + _%k144330%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp141671 - __tmp141670)))) + __tmp145423 + __tmp145422)))) (declare (not safe)) (gx#core-list 'if - __tmp141673 - __tmp141669 - _%E140577%_))) - (if (eq? 'box _%$e140596%_) - (let ((_%$e140708%_ + __tmp145425 + __tmp145421 + _%E144329%_))) + (if (eq? 'box _%$e144348%_) + (let ((_%$e144460%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp141678 + (let ((__tmp145430 (let () (declare (not safe)) (gx#core-list 'stx-box? - _%target140576%_))) - (__tmp141674 - (let ((__tmp141676 - (cons (cons (cons _%$e140708%_ + _%target144328%_))) + (__tmp145426 + (let ((__tmp145428 + (cons (cons (cons _%$e144460%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp141677 + (cons (let ((__tmp145429 (let () (declare (not safe)) (gx#core-list - _%unwrap-e140290%_ - _%target140576%_)))) + _%unwrap-e144042%_ + _%target144328%_)))) (declare (not safe)) - (gx#core-list 'unbox __tmp141677)) + (gx#core-list 'unbox __tmp145429)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp141675 - (_%recur140483%_ - _%body140593%_ - _%vars140575%_ - _%$e140708%_ - _%E140577%_ - _%k140578%_))) + (__tmp145427 + (_%recur144235%_ + _%body144345%_ + _%vars144327%_ + _%$e144460%_ + _%E144329%_ + _%k144330%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp141676 - __tmp141675)))) + __tmp145428 + __tmp145427)))) (declare (not safe)) (gx#core-list 'if - __tmp141678 - __tmp141674 - _%E140577%_))) - (if (eq? 'datum _%$e140596%_) - (let ((_%$e140710%_ + __tmp145430 + __tmp145426 + _%E144329%_))) + (if (eq? 'datum _%$e144348%_) + (let ((_%$e144462%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp141684 + (let ((__tmp145436 (let () (declare (not safe)) (gx#core-list 'stx-datum? - _%target140576%_))) - (__tmp141679 - (let ((__tmp141683 - (cons (cons (cons _%$e140710%_ + _%target144328%_))) + (__tmp145431 + (let ((__tmp145435 + (cons (cons (cons _%$e144462%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list 'stx-e _%target140576%_)) + (gx#core-list 'stx-e _%target144328%_)) '())) '())) - (__tmp141680 - (let ((__tmp141682 + (__tmp145432 + (let ((__tmp145434 (let () (declare (not safe)) - (gx#core-list 'equal? _%$e140710%_ _%body140593%_))) - (__tmp141681 (_%k140578%_ _%vars140575%_))) + (gx#core-list 'equal? _%$e144462%_ _%body144345%_))) + (__tmp145433 (_%k144330%_ _%vars144327%_))) (declare (not safe)) - (gx#core-list 'if __tmp141682 __tmp141681 _%E140577%_)))) + (gx#core-list 'if __tmp145434 __tmp145433 _%E144329%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp141683 - __tmp141680)))) + __tmp145435 + __tmp145432)))) (declare (not safe)) (gx#core-list 'if - __tmp141684 - __tmp141679 - _%E140577%_))) - (_%BUG140482%_ - _%e140574%_)))))))))))))) + __tmp145436 + __tmp145431 + _%E144329%_))) + (_%BUG144234%_ + _%e144326%_)))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%e140579140586%_) - (let ((_%hd140583140715%_ + (if (pair? _%e144331144338%_) + (let ((_%hd144335144467%_ (let () (declare (not safe)) - (##car _%e140579140586%_))) - (_%tl140584140717%_ + (##car _%e144331144338%_))) + (_%tl144336144469%_ (let () (declare (not safe)) - (##cdr _%e140579140586%_)))) - (let* ((_%tag140720%_ - _%hd140583140715%_) - (_%body140722%_ - _%tl140584140717%_)) - (_%K140582140712%_ - _%body140722%_ - _%tag140720%_))) - (_%E140581140590%_))))) - (_%splice-rlen140484%_ - (lambda (_%e140536%_) - (let _%lp140538%_ ((_%e140540%_ _%e140536%_) - (_%n140541%_ '0)) - (let* ((_%e140542140549%_ _%e140540%_) - (_%E140544140553%_ + (##cdr _%e144331144338%_)))) + (let* ((_%tag144472%_ + _%hd144335144467%_) + (_%body144474%_ + _%tl144336144469%_)) + (_%K144334144464%_ + _%body144474%_ + _%tag144472%_))) + (_%E144333144342%_))))) + (_%splice-rlen144236%_ + (lambda (_%e144288%_) + (let _%lp144290%_ ((_%e144292%_ _%e144288%_) + (_%n144293%_ '0)) + (let* ((_%e144294144301%_ _%e144292%_) + (_%E144296144305%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e140542140549%_ + _%e144294144301%_ '([tag . body]))) '#!void)) - (_%K140545140562%_ - (lambda (_%body140556%_ - _%tag140557%_) - (let ((_%$e140559%_ _%tag140557%_)) - (if (eq? 'splice _%$e140559%_) + (_%K144297144314%_ + (lambda (_%body144308%_ + _%tag144309%_) + (let ((_%$e144311%_ _%tag144309%_)) + (if (eq? 'splice _%$e144311%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Ambiguous pattern" - _%stx140288%_ - _%where140475%_)) - (if (eq? 'cons _%$e140559%_) - (_%lp140538%_ - (cdr _%body140556%_) + _%stx144040%_ + _%where144227%_)) + (if (eq? 'cons _%$e144311%_) + (_%lp144290%_ + (cdr _%body144308%_) (let () (declare (not safe)) - (##fx+ _%n140541%_ + (##fx+ _%n144293%_ '1))) - _%n140541%_)))))) - (if (pair? _%e140542140549%_) - (let ((_%hd140546140565%_ + _%n144293%_)))))) + (if (pair? _%e144294144301%_) + (let ((_%hd144298144317%_ (let () (declare (not safe)) - (##car _%e140542140549%_))) - (_%tl140547140567%_ + (##car _%e144294144301%_))) + (_%tl144299144319%_ (let () (declare (not safe)) - (##cdr _%e140542140549%_)))) - (let* ((_%tag140570%_ - _%hd140546140565%_) - (_%body140572%_ - _%tl140547140567%_)) - (_%K140545140562%_ - _%body140572%_ - _%tag140570%_))) - (_%E140544140553%_)))))) - (_%splice-vars140485%_ - (lambda (_%e140492%_) - (let _%recur140494%_ ((_%e140496%_ _%e140492%_) - (_%vars140497%_ '())) - (let* ((_%e140498140505%_ _%e140496%_) - (_%E140500140509%_ + (##cdr _%e144294144301%_)))) + (let* ((_%tag144322%_ + _%hd144298144317%_) + (_%body144324%_ + _%tl144299144319%_)) + (_%K144297144314%_ + _%body144324%_ + _%tag144322%_))) + (_%E144296144305%_)))))) + (_%splice-vars144237%_ + (lambda (_%e144244%_) + (let _%recur144246%_ ((_%e144248%_ _%e144244%_) + (_%vars144249%_ '())) + (let* ((_%e144250144257%_ _%e144248%_) + (_%E144252144261%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e140498140505%_ + _%e144250144257%_ '([tag . body]))) '#!void)) - (_%K140501140524%_ - (lambda (_%body140512%_ - _%tag140513%_) - (let ((_%$e140515%_ _%tag140513%_)) - (if (eq? 'var _%$e140515%_) - (cons _%body140512%_ - _%vars140497%_) + (_%K144253144276%_ + (lambda (_%body144264%_ + _%tag144265%_) + (let ((_%$e144267%_ _%tag144265%_)) + (if (eq? 'var _%$e144267%_) + (cons _%body144264%_ + _%vars144249%_) (if (or (eq? 'cons - _%$e140515%_) + _%$e144267%_) (eq? 'splice - _%$e140515%_)) - (_%recur140494%_ - (cdr _%body140512%_) - (_%recur140494%_ - (car _%body140512%_) - _%vars140497%_)) + _%$e144267%_)) + (_%recur144246%_ + (cdr _%body144264%_) + (_%recur144246%_ + (car _%body144264%_) + _%vars144249%_)) (if (or (eq? 'vector ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e140515%_) - (eq? 'box _%$e140515%_)) - (_%recur140494%_ _%body140512%_ _%vars140497%_) - _%vars140497%_))))))) + _%$e144267%_) + (eq? 'box _%$e144267%_)) + (_%recur144246%_ _%body144264%_ _%vars144249%_) + _%vars144249%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%e140498140505%_) - (let ((_%hd140502140527%_ + (if (pair? _%e144250144257%_) + (let ((_%hd144254144279%_ (let () (declare (not safe)) - (##car _%e140498140505%_))) - (_%tl140503140529%_ + (##car _%e144250144257%_))) + (_%tl144255144281%_ (let () (declare (not safe)) - (##cdr _%e140498140505%_)))) - (let* ((_%tag140532%_ - _%hd140502140527%_) - (_%body140534%_ - _%tl140503140529%_)) - (_%K140501140524%_ - _%body140534%_ - _%tag140532%_))) - (_%E140500140509%_)))))) - (_%make-body140486%_ - (lambda (_%vars140488%_) - (cons _%K140479%_ - (map (lambda (_%mvar140490%_) - (let ((__tmp141685 - (car _%mvar140490%_))) + (##cdr _%e144250144257%_)))) + (let* ((_%tag144284%_ + _%hd144254144279%_) + (_%body144286%_ + _%tl144255144281%_)) + (_%K144253144276%_ + _%body144286%_ + _%tag144284%_))) + (_%E144252144261%_)))))) + (_%make-body144238%_ + (lambda (_%vars144240%_) + (cons _%K144231%_ + (map (lambda (_%mvar144242%_) + (let ((__tmp145437 + (car _%mvar144242%_))) (declare (not safe)) (agetq__% - __tmp141685 - _%vars140488%_ - _%BUG140482%_))) - _%mvars140478%_))))) - (_%recur140483%_ - _%hd140477%_ + __tmp145437 + _%vars144240%_ + _%BUG144234%_))) + _%mvars144230%_))))) + (_%recur144235%_ + _%hd144229%_ '() - _%target140476%_ - _%E140480%_ - _%make-body140486%_)))) - (_%parse-clause140297%_ - (lambda (_%hd140369%_ _%ids140370%_) - (let _%recur140372%_ ((_%e140374%_ _%hd140369%_) - (_%vars140375%_ '()) - (_%depth140376%_ '0)) + _%target144228%_ + _%E144232%_ + _%make-body144238%_)))) + (_%parse-clause144049%_ + (lambda (_%hd144121%_ _%ids144122%_) + (let _%recur144124%_ ((_%e144126%_ _%hd144121%_) + (_%vars144127%_ '()) + (_%depth144128%_ '0)) (if (let () (declare (not safe)) - (gx#identifier? _%e140374%_)) + (gx#identifier? _%e144126%_)) (if (let () (declare (not safe)) - (gx#underscore? _%e140374%_)) - (values '(any) _%vars140375%_) + (gx#underscore? _%e144126%_)) + (values '(any) _%vars144127%_) (if (let () (declare (not safe)) - (gx#ellipsis? _%e140374%_)) + (gx#ellipsis? _%e144126%_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _%stx140288%_ - _%hd140369%_)) - (if (let ((__tmp141686 - (lambda (_%id140381%_) + _%stx144040%_ + _%hd144121%_)) + (if (let ((__tmp145438 + (lambda (_%id144133%_) (let () (declare (not safe)) (gx#bound-identifier=? - _%e140374%_ - _%id140381%_))))) + _%e144126%_ + _%id144133%_))))) (declare (not safe)) - (__find __tmp141686 _%ids140370%_)) - (values (cons 'id _%e140374%_) - _%vars140375%_) - (if (let ((__tmp141687 - (lambda (_%var140384%_) - (let ((__tmp141688 - (car _%var140384%_))) + (__find __tmp145438 _%ids144122%_)) + (values (cons 'id _%e144126%_) + _%vars144127%_) + (if (let ((__tmp145439 + (lambda (_%var144136%_) + (let ((__tmp145440 + (car _%var144136%_))) (declare (not safe)) (gx#bound-identifier=? - _%e140374%_ - __tmp141688))))) + _%e144126%_ + __tmp145440))))) (declare (not safe)) - (__find __tmp141687 - _%vars140375%_)) + (__find __tmp145439 + _%vars144127%_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Duplicate pattern variable" - _%stx140288%_ - _%e140374%_)) - (values (cons 'var _%e140374%_) - (cons (cons _%e140374%_ - _%depth140376%_) - _%vars140375%_)))))) + _%stx144040%_ + _%e144126%_)) + (values (cons 'var _%e144126%_) + (cons (cons _%e144126%_ + _%depth144128%_) + _%vars144127%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%e140374%_)) - (let* ((_%e140388140395%_ _%e140374%_) - (_%E140390140399%_ + (gx#stx-pair? _%e144126%_)) + (let* ((_%e144140144147%_ _%e144126%_) + (_%E144142144151%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e140388140395%_)))) - (_%E140389140460%_ + _%e144140144147%_)))) + (_%E144141144212%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e140388140395%_)) - (let ((_%e140391140403%_ + (gx#stx-pair? _%e144140144147%_)) + (let ((_%e144143144155%_ (let () (declare (not safe)) (gx#syntax-e - _%e140388140395%_)))) - (let ((_%hd140392140406%_ + _%e144140144147%_)))) + (let ((_%hd144144144158%_ (let () (declare (not safe)) - (##car _%e140391140403%_))) - (_%tl140393140408%_ + (##car _%e144143144155%_))) + (_%tl144145144160%_ (let () (declare (not safe)) - (##cdr _%e140391140403%_)))) - (let* ((_%hd140411%_ - _%hd140392140406%_) - (_%rest140413%_ - _%tl140393140408%_) - (_%make-pair140428%_ - (lambda (_%tag140415%_ + (##cdr _%e144143144155%_)))) + (let* ((_%hd144163%_ + _%hd144144144158%_) + (_%rest144165%_ + _%tl144145144160%_) + (_%make-pair144180%_ + (lambda (_%tag144167%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd140416%_ - _%tl140417%_) - (let* ((_%hd-depth140419%_ - (if (eq? _%tag140415%_ 'splice) + _%hd144168%_ + _%tl144169%_) + (let* ((_%hd-depth144171%_ + (if (eq? _%tag144167%_ 'splice) (let () (declare (not safe)) - (##fx+ _%depth140376%_ '1)) - _%depth140376%_)) - (_g141689_ - (_%recur140372%_ - _%hd140416%_ - _%vars140375%_ - _%hd-depth140419%_))) + (##fx+ _%depth144128%_ '1)) + _%depth144128%_)) + (_g145441_ + (_%recur144124%_ + _%hd144168%_ + _%vars144127%_ + _%hd-depth144171%_))) (begin - (let ((_g141690_ + (let ((_g145442_ (let () (declare (not safe)) - (if (##values? _g141689_) - (##values-length _g141689_) + (if (##values? _g145441_) + (##values-length _g145441_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g141690_ 2))) - (error "Context expects 2 values" _g141690_))) - (let ((_%hd140421%_ + (##fx= _g145442_ 2))) + (error "Context expects 2 values" _g145442_))) + (let ((_%hd144173%_ (let () (declare (not safe)) - (##values-ref _g141689_ 0))) - (_%vars140422%_ + (##values-ref _g145441_ 0))) + (_%vars144174%_ (let () (declare (not safe)) - (##values-ref _g141689_ 1)))) - (let ((_g141691_ - (_%recur140372%_ - _%tl140417%_ - _%vars140422%_ - _%depth140376%_))) + (##values-ref _g145441_ 1)))) + (let ((_g145443_ + (_%recur144124%_ + _%tl144169%_ + _%vars144174%_ + _%depth144128%_))) (begin - (let ((_g141692_ + (let ((_g145444_ (let () (declare (not safe)) - (if (##values? _g141691_) - (##values-length _g141691_) + (if (##values? _g145443_) + (##values-length _g145443_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g141692_ 2))) + (##fx= _g145444_ 2))) (error "Context expects 2 values" - _g141692_))) - (let ((_%tl140424%_ + _g145444_))) + (let ((_%tl144176%_ (let () (declare (not safe)) - (##values-ref _g141691_ 0))) - (_%vars140425%_ + (##values-ref _g145443_ 0))) + (_%vars144177%_ (let () (declare (not safe)) - (##values-ref _g141691_ 1)))) - (values (cons _%tag140415%_ - (cons _%hd140421%_ _%tl140424%_)) - _%vars140425%_))))))))) - (_%e140429140436%_ _%rest140413%_) - (_%E140431140440%_ + (##values-ref _g145443_ 1)))) + (values (cons _%tag144167%_ + (cons _%hd144173%_ _%tl144176%_)) + _%vars144177%_))))))))) + (_%e144181144188%_ _%rest144165%_) + (_%E144183144192%_ (lambda () - (_%make-pair140428%_ 'cons _%hd140411%_ _%rest140413%_))) - (_%E140430140456%_ + (_%make-pair144180%_ 'cons _%hd144163%_ _%rest144165%_))) + (_%E144182144208%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e140429140436%_)) - (let ((_%e140432140444%_ + (gx#stx-pair? _%e144181144188%_)) + (let ((_%e144184144196%_ (let () (declare (not safe)) - (gx#syntax-e _%e140429140436%_)))) - (let ((_%hd140433140447%_ + (gx#syntax-e _%e144181144188%_)))) + (let ((_%hd144185144199%_ (let () (declare (not safe)) - (##car _%e140432140444%_))) - (_%tl140434140449%_ + (##car _%e144184144196%_))) + (_%tl144186144201%_ (let () (declare (not safe)) - (##cdr _%e140432140444%_)))) - (let* ((_%rest-hd140452%_ _%hd140433140447%_) - (_%rest-tl140454%_ _%tl140434140449%_)) + (##cdr _%e144184144196%_)))) + (let* ((_%rest-hd144204%_ _%hd144185144199%_) + (_%rest-tl144206%_ _%tl144186144201%_)) (if (let () (declare (not safe)) - (gx#ellipsis? _%rest-hd140452%_)) - (_%make-pair140428%_ + (gx#ellipsis? _%rest-hd144204%_)) + (_%make-pair144180%_ 'splice - _%hd140411%_ - _%rest-tl140454%_) - (_%make-pair140428%_ + _%hd144163%_ + _%rest-tl144206%_) + (_%make-pair144180%_ 'cons - _%hd140411%_ - _%rest140413%_))))) - (_%E140431140440%_))))) + _%hd144163%_ + _%rest144165%_))))) + (_%E144183144192%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E140430140456%_)))) - (_%E140390140399%_))))) - (_%E140389140460%_)) + (_%E144182144208%_)))) + (_%E144142144151%_))))) + (_%E144141144212%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%e140374%_)) - (values '(null) _%vars140375%_) + (gx#stx-null? _%e144126%_)) + (values '(null) _%vars144127%_) (if (let () (declare (not safe)) - (gx#stx-vector? _%e140374%_)) - (let ((_g141693_ - (_%recur140372%_ + (gx#stx-vector? _%e144126%_)) + (let ((_g145445_ + (_%recur144124%_ (vector->list (let () (declare (not safe)) - (gx#syntax-e _%e140374%_))) - _%vars140375%_ - _%depth140376%_))) + (gx#syntax-e _%e144126%_))) + _%vars144127%_ + _%depth144128%_))) (begin - (let ((_g141694_ + (let ((_g145446_ (let () (declare (not safe)) - (if (##values? _g141693_) + (if (##values? _g145445_) (##values-length - _g141693_) + _g145445_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g141694_ 2))) + (##fx= _g145446_ 2))) (error "Context expects 2 values" - _g141694_))) - (let ((_%e140466%_ + _g145446_))) + (let ((_%e144218%_ (let () (declare (not safe)) - (##values-ref _g141693_ 0))) - (_%vars140467%_ + (##values-ref _g145445_ 0))) + (_%vars144219%_ (let () (declare (not safe)) (##values-ref - _g141693_ + _g145445_ 1)))) - (values (cons 'vector _%e140466%_) - _%vars140467%_)))) + (values (cons 'vector _%e144218%_) + _%vars144219%_)))) (if (let () (declare (not safe)) - (gx#stx-box? _%e140374%_)) - (let ((_g141695_ - (_%recur140372%_ + (gx#stx-box? _%e144126%_)) + (let ((_g145447_ + (_%recur144124%_ (unbox (let () (declare (not safe)) (gx#syntax-e - _%e140374%_))) - _%vars140375%_ - _%depth140376%_))) + _%e144126%_))) + _%vars144127%_ + _%depth144128%_))) (begin - (let ((_g141696_ + (let ((_g145448_ (let () (declare (not safe)) (if (##values? - _g141695_) + _g145447_) (##values-length - _g141695_) + _g145447_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g141696_ + (##fx= _g145448_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g141696_))) - (let ((_%e140470%_ + _g145448_))) + (let ((_%e144222%_ (let () (declare (not safe)) (##values-ref - _g141695_ + _g145447_ 0))) - (_%vars140471%_ + (_%vars144223%_ (let () (declare (not safe)) (##values-ref - _g141695_ + _g145447_ 1)))) - (values (cons 'box _%e140470%_) - _%vars140471%_)))) + (values (cons 'box _%e144222%_) + _%vars144223%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%e140374%_)) + (gx#stx-datum? _%e144126%_)) (values (cons 'datum (let () (declare (not safe)) (gx#stx-e - _%e140374%_))) - _%vars140375%_) + _%e144126%_))) + _%vars144127%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad pattern" - _%stx140288%_ - _%e140374%_)))))))))))) - (let* ((_%e140298140311%_ _%stx140288%_) - (_%E140300140315%_ + _%stx144040%_ + _%e144126%_)))))))))))) + (let* ((_%e144050144063%_ _%stx144040%_) + (_%E144052144067%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e140298140311%_)))) - (_%E140299140365%_ + _%e144050144063%_)))) + (_%E144051144117%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e140298140311%_)) - (let ((_%e140301140319%_ + (gx#stx-pair? _%e144050144063%_)) + (let ((_%e144053144071%_ (let () (declare (not safe)) - (gx#syntax-e _%e140298140311%_)))) - (let ((_%hd140302140322%_ + (gx#syntax-e _%e144050144063%_)))) + (let ((_%hd144054144074%_ (let () (declare (not safe)) - (##car _%e140301140319%_))) - (_%tl140303140324%_ + (##car _%e144053144071%_))) + (_%tl144055144076%_ (let () (declare (not safe)) - (##cdr _%e140301140319%_)))) + (##cdr _%e144053144071%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140303140324%_)) - (let ((_%e140304140327%_ + (gx#stx-pair? _%tl144055144076%_)) + (let ((_%e144056144079%_ (let () (declare (not safe)) - (gx#syntax-e _%tl140303140324%_)))) - (let ((_%hd140305140330%_ + (gx#syntax-e _%tl144055144076%_)))) + (let ((_%hd144057144082%_ (let () (declare (not safe)) - (##car _%e140304140327%_))) - (_%tl140306140332%_ + (##car _%e144056144079%_))) + (_%tl144058144084%_ (let () (declare (not safe)) - (##cdr _%e140304140327%_)))) - (let ((_%expr140335%_ _%hd140305140330%_)) + (##cdr _%e144056144079%_)))) + (let ((_%expr144087%_ _%hd144057144082%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140306140332%_)) - (let ((_%e140307140337%_ + (gx#stx-pair? _%tl144058144084%_)) + (let ((_%e144059144089%_ (let () (declare (not safe)) (gx#syntax-e - _%tl140306140332%_)))) - (let ((_%hd140308140340%_ + _%tl144058144084%_)))) + (let ((_%hd144060144092%_ (let () (declare (not safe)) - (##car _%e140307140337%_))) - (_%tl140309140342%_ + (##car _%e144059144089%_))) + (_%tl144061144094%_ (let () (declare (not safe)) - (##cdr _%e140307140337%_)))) - (let* ((_%ids140345%_ - _%hd140308140340%_) - (_%clauses140347%_ - _%tl140309140342%_)) + (##cdr _%e144059144089%_)))) + (let* ((_%ids144097%_ + _%hd144060144092%_) + (_%clauses144099%_ + _%tl144061144094%_)) (if (let () (declare (not safe)) (gx#identifier-list? - _%ids140345%_)) + _%ids144097%_)) (if (let () (declare (not safe)) (gx#stx-list? - _%clauses140347%_)) - (let* ((_%ids140352%_ + _%clauses144099%_)) + (let* ((_%ids144104%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax->list _%ids140345%_))) - (_%clauses140354%_ + (gx#syntax->list _%ids144097%_))) + (_%clauses144106%_ (let () (declare (not safe)) - (gx#syntax->list _%clauses140347%_))) - (_%clause-ids140356%_ + (gx#syntax->list _%clauses144099%_))) + (_%clause-ids144108%_ (let () (declare (not safe)) - (gx#gentemps _%clauses140354%_))) - (_%E140358%_ + (gx#gentemps _%clauses144106%_))) + (_%E144110%_ (let () (declare (not safe)) (gx#genident__0))) - (_%target140360%_ + (_%target144112%_ (let () (declare (not safe)) (gx#genident__0))) - (_%first140362%_ - (if (null? _%clauses140354%_) - _%E140358%_ - (car _%clause-ids140356%_)))) - (let ((__tmp141698 - (let ((__tmp141699 - (let ((__tmp141701 - (let ((__tmp141703 - (cons (cons (cons _%E140358%_ + (_%first144114%_ + (if (null? _%clauses144106%_) + _%E144110%_ + (car _%clause-ids144108%_)))) + (let ((__tmp145450 + (let ((__tmp145451 + (let ((__tmp145453 + (let ((__tmp145455 + (cons (cons (cons _%E144110%_ '()) - (cons (let ((__tmp141705 + (cons (let ((__tmp145457 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%target140360%_ '())) - (__tmp141704 + (cons _%target144112%_ '())) + (__tmp145456 (let () (declare (not safe)) (gx#core-list 'raise-syntax-error '#f '"Bad syntax; invalid match target" - _%target140360%_)))) + _%target144112%_)))) (declare (not safe)) - (gx#core-list 'lambda% __tmp141705 __tmp141704)) + (gx#core-list 'lambda% __tmp145457 __tmp145456)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (__tmp141702 - (_%generate-body140294%_ - (_%generate-bindings140293%_ - _%target140360%_ - _%ids140352%_ - _%clauses140354%_ - _%clause-ids140356%_ - _%E140358%_) - (cons _%first140362%_ - (cons _%expr140335%_ + (__tmp145454 + (_%generate-body144046%_ + (_%generate-bindings144045%_ + _%target144112%_ + _%ids144104%_ + _%clauses144106%_ + _%clause-ids144108%_ + _%E144110%_) + (cons _%first144114%_ + (cons _%expr144087%_ '()))))) (declare (not safe)) (gx#core-list 'let-values - __tmp141703 - __tmp141702))) - (__tmp141700 + __tmp145455 + __tmp145454))) + (__tmp145452 (let () (declare (not safe)) - (gx#stx-source _%stx140288%_)))) + (gx#stx-source _%stx144040%_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp141701 - __tmp141700)))) + __tmp145453 + __tmp145452)))) (declare (not safe)) (gx#core-list 'begin-annotation '@syntax-case - __tmp141699))) - (__tmp141697 + __tmp145451))) + (__tmp145449 (let () (declare (not safe)) - (gx#stx-source _%stx140288%_)))) + (gx#stx-source _%stx144040%_)))) (declare (not safe)) - (gx#stx-wrap-source __tmp141698 __tmp141697))) + (gx#stx-wrap-source __tmp145450 __tmp145449))) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; clauses expected" - _%stx140288%_))) + _%stx144040%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad template identifier list" - _%stx140288%_ - _%ids140345%_)))))) - (_%E140300140315%_))))) - (_%E140300140315%_)))) - (_%E140300140315%_))))) - (_%E140299140365%_))))) + _%stx144040%_ + _%ids144097%_)))))) + (_%E144052144067%_))))) + (_%E144052144067%_)))) + (_%E144052144067%_))))) + (_%E144051144117%_))))) (define gx#macro-expand-syntax-case__0 - (lambda (_%stx141013%_) - (let* ((_%identifier=?141015%_ 'free-identifier=?) - (_%unwrap-e141017%_ 'syntax-e) - (_%wrap-e141019%_ 'quote-syntax)) + (lambda (_%stx144765%_) + (let* ((_%identifier=?144767%_ 'free-identifier=?) + (_%unwrap-e144769%_ 'syntax-e) + (_%wrap-e144771%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx141013%_ - _%identifier=?141015%_ - _%unwrap-e141017%_ - _%wrap-e141019%_)))) + _%stx144765%_ + _%identifier=?144767%_ + _%unwrap-e144769%_ + _%wrap-e144771%_)))) (define gx#macro-expand-syntax-case__1 - (lambda (_%stx141021%_ _%identifier=?141022%_) - (let* ((_%unwrap-e141024%_ 'syntax-e) (_%wrap-e141026%_ 'quote-syntax)) + (lambda (_%stx144773%_ _%identifier=?144774%_) + (let* ((_%unwrap-e144776%_ 'syntax-e) (_%wrap-e144778%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx141021%_ - _%identifier=?141022%_ - _%unwrap-e141024%_ - _%wrap-e141026%_)))) + _%stx144773%_ + _%identifier=?144774%_ + _%unwrap-e144776%_ + _%wrap-e144778%_)))) (define gx#macro-expand-syntax-case__2 - (lambda (_%stx141028%_ _%identifier=?141029%_ _%unwrap-e141030%_) - (let ((_%wrap-e141032%_ 'quote-syntax)) + (lambda (_%stx144780%_ _%identifier=?144781%_ _%unwrap-e144782%_) + (let ((_%wrap-e144784%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx141028%_ - _%identifier=?141029%_ - _%unwrap-e141030%_ - _%wrap-e141032%_)))) + _%stx144780%_ + _%identifier=?144781%_ + _%unwrap-e144782%_ + _%wrap-e144784%_)))) (define gx#macro-expand-syntax-case - (lambda _g141706_ - (let ((_g141707_ (let () (declare (not safe)) (##length _g141706_)))) - (cond ((let () (declare (not safe)) (##fx= _g141707_ 1)) - (apply gx#macro-expand-syntax-case__0 _g141706_)) - ((let () (declare (not safe)) (##fx= _g141707_ 2)) - (apply gx#macro-expand-syntax-case__1 _g141706_)) - ((let () (declare (not safe)) (##fx= _g141707_ 3)) - (apply gx#macro-expand-syntax-case__2 _g141706_)) - ((let () (declare (not safe)) (##fx= _g141707_ 4)) - (apply gx#macro-expand-syntax-case__% _g141706_)) + (lambda _g145458_ + (let ((_g145459_ (let () (declare (not safe)) (##length _g145458_)))) + (cond ((let () (declare (not safe)) (##fx= _g145459_ 1)) + (apply gx#macro-expand-syntax-case__0 _g145458_)) + ((let () (declare (not safe)) (##fx= _g145459_ 2)) + (apply gx#macro-expand-syntax-case__1 _g145458_)) + ((let () (declare (not safe)) (##fx= _g145459_ 3)) + (apply gx#macro-expand-syntax-case__2 _g145458_)) + ((let () (declare (not safe)) (##fx= _g145459_ 4)) + (apply gx#macro-expand-syntax-case__% _g145458_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-syntax-case - _g141706_)))))) + _g145458_)))))) (define gx#syntax-local-pattern? - (lambda (_%stx140285%_) - (if (let () (declare (not safe)) (gx#identifier? _%stx140285%_)) - (let ((__tmp141708 + (lambda (_%stx144037%_) + (if (let () (declare (not safe)) (gx#identifier? _%stx144037%_)) + (let ((__tmp145460 (let () (declare (not safe)) - (gx#syntax-local-e__% _%stx140285%_ false)))) + (gx#syntax-local-e__% _%stx144037%_ false)))) (declare (not safe)) - (##structure-instance-of? __tmp141708 'gx#syntax-pattern::t)) + (##structure-instance-of? __tmp145460 'gx#syntax-pattern::t)) '#f))) (define gx#syntax-check-splice-targets - (lambda (_%hd140243%_ . _%rest140244%_) - (let ((_%len140246%_ (length _%hd140243%_))) - (let _%lp140248%_ ((_%rest140250%_ _%rest140244%_)) - (let* ((_%rest140251140259%_ _%rest140250%_) - (_%else140253140267%_ (lambda () '#!void)) - (_%K140255140273%_ - (lambda (_%rest140270%_ _%hd140271%_) - (if (let ((__tmp141709 (length _%hd140271%_))) + (lambda (_%hd143995%_ . _%rest143996%_) + (let ((_%len143998%_ (length _%hd143995%_))) + (let _%lp144000%_ ((_%rest144002%_ _%rest143996%_)) + (let* ((_%rest144003144011%_ _%rest144002%_) + (_%else144005144019%_ (lambda () '#!void)) + (_%K144007144025%_ + (lambda (_%rest144022%_ _%hd144023%_) + (if (let ((__tmp145461 (length _%hd144023%_))) (declare (not safe)) - (##fx= _%len140246%_ __tmp141709)) - (_%lp140248%_ _%rest140270%_) + (##fx= _%len143998%_ __tmp145461)) + (_%lp144000%_ _%rest144022%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Splice length mismatch" - _%hd140271%_)))))) - (if (pair? _%rest140251140259%_) - (let ((_%hd140256140276%_ + _%hd144023%_)))))) + (if (pair? _%rest144003144011%_) + (let ((_%hd144008144028%_ (let () (declare (not safe)) - (##car _%rest140251140259%_))) - (_%tl140257140278%_ + (##car _%rest144003144011%_))) + (_%tl144009144030%_ (let () (declare (not safe)) - (##cdr _%rest140251140259%_)))) - (let* ((_%hd140281%_ _%hd140256140276%_) - (_%rest140283%_ _%tl140257140278%_)) - (_%K140255140273%_ _%rest140283%_ _%hd140281%_))) + (##cdr _%rest144003144011%_)))) + (let* ((_%hd144033%_ _%hd144008144028%_) + (_%rest144035%_ _%tl144009144030%_)) + (_%K144007144025%_ _%rest144035%_ _%hd144033%_))) '#!void)))))) (define gx#syntax-split-splice - (lambda (_%stx140193%_ _%n140194%_) - (let _%lp140196%_ ((_%rest140199%_ _%stx140193%_) (_%r140201%_ '())) - (if (let () (declare (not safe)) (gx#stx-pair? _%rest140199%_)) - (let* ((_%g140203140210%_ + (lambda (_%stx143945%_ _%n143946%_) + (let _%lp143948%_ ((_%rest143951%_ _%stx143945%_) (_%r143953%_ '())) + (if (let () (declare (not safe)) (gx#stx-pair? _%rest143951%_)) + (let* ((_%g143955143962%_ (let () (declare (not safe)) - (gx#syntax-e _%rest140199%_))) - (_%E140205140214%_ + (gx#syntax-e _%rest143951%_))) + (_%E143957143966%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g140203140210%_ + _%g143955143962%_ '([hd . rest]))) '#!void)) - (_%K140206140221%_ - (lambda (_%rest140217%_ _%hd140218%_) - (_%lp140196%_ - _%rest140217%_ - (cons _%hd140218%_ _%r140201%_))))) - (if (pair? _%g140203140210%_) - (let ((_%hd140207140224%_ + (_%K143958143973%_ + (lambda (_%rest143969%_ _%hd143970%_) + (_%lp143948%_ + _%rest143969%_ + (cons _%hd143970%_ _%r143953%_))))) + (if (pair? _%g143955143962%_) + (let ((_%hd143959143976%_ (let () (declare (not safe)) - (##car _%g140203140210%_))) - (_%tl140208140226%_ + (##car _%g143955143962%_))) + (_%tl143960143978%_ (let () (declare (not safe)) - (##cdr _%g140203140210%_)))) - (let* ((_%hd140229%_ _%hd140207140224%_) - (_%rest140231%_ _%tl140208140226%_)) - (_%K140206140221%_ _%rest140231%_ _%hd140229%_))) - (_%E140205140214%_))) - (let _%lp140233%_ ((_%n140235%_ _%n140194%_) - (_%l140236%_ _%r140201%_) - (_%r140238%_ _%rest140199%_)) - (if (null? _%l140236%_) - (values _%l140236%_ _%r140238%_) - (if (fxpositive? _%n140235%_) - (_%lp140233%_ - (let () (declare (not safe)) (##fx- _%n140235%_ '1)) - (cdr _%l140236%_) - (cons (car _%l140236%_) _%r140238%_)) - (values (reverse! _%l140236%_) _%r140238%_)))))))) + (##cdr _%g143955143962%_)))) + (let* ((_%hd143981%_ _%hd143959143976%_) + (_%rest143983%_ _%tl143960143978%_)) + (_%K143958143973%_ _%rest143983%_ _%hd143981%_))) + (_%E143957143966%_))) + (let _%lp143985%_ ((_%n143987%_ _%n143946%_) + (_%l143988%_ _%r143953%_) + (_%r143990%_ _%rest143951%_)) + (if (null? _%l143988%_) + (values _%l143988%_ _%r143990%_) + (if (fxpositive? _%n143987%_) + (_%lp143985%_ + (let () (declare (not safe)) (##fx- _%n143987%_ '1)) + (cdr _%l143988%_) + (cons (car _%l143988%_) _%r143990%_)) + (values (reverse! _%l143988%_) _%r143990%_)))))))) (define gx#syntax-split-splice->vector - (lambda (_%stx140143%_ _%n140144%_) - (let _%lp140146%_ ((_%rest140149%_ _%stx140143%_) (_%r140151%_ '())) - (if (let () (declare (not safe)) (gx#stx-pair? _%rest140149%_)) - (let* ((_%g140153140160%_ + (lambda (_%stx143895%_ _%n143896%_) + (let _%lp143898%_ ((_%rest143901%_ _%stx143895%_) (_%r143903%_ '())) + (if (let () (declare (not safe)) (gx#stx-pair? _%rest143901%_)) + (let* ((_%g143905143912%_ (let () (declare (not safe)) - (gx#syntax-e _%rest140149%_))) - (_%E140155140164%_ + (gx#syntax-e _%rest143901%_))) + (_%E143907143916%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g140153140160%_ + _%g143905143912%_ '([hd . rest]))) '#!void)) - (_%K140156140171%_ - (lambda (_%rest140167%_ _%hd140168%_) - (_%lp140146%_ - _%rest140167%_ - (cons _%hd140168%_ _%r140151%_))))) - (if (pair? _%g140153140160%_) - (let ((_%hd140157140174%_ + (_%K143908143923%_ + (lambda (_%rest143919%_ _%hd143920%_) + (_%lp143898%_ + _%rest143919%_ + (cons _%hd143920%_ _%r143903%_))))) + (if (pair? _%g143905143912%_) + (let ((_%hd143909143926%_ (let () (declare (not safe)) - (##car _%g140153140160%_))) - (_%tl140158140176%_ + (##car _%g143905143912%_))) + (_%tl143910143928%_ (let () (declare (not safe)) - (##cdr _%g140153140160%_)))) - (let* ((_%hd140179%_ _%hd140157140174%_) - (_%rest140181%_ _%tl140158140176%_)) - (_%K140156140171%_ _%rest140181%_ _%hd140179%_))) - (_%E140155140164%_))) - (let _%lp140183%_ ((_%n140185%_ _%n140144%_) - (_%l140186%_ _%r140151%_) - (_%r140188%_ _%rest140149%_)) - (if (null? _%l140186%_) - (vector _%l140186%_ _%r140188%_) - (if (fxpositive? _%n140185%_) - (_%lp140183%_ - (let () (declare (not safe)) (##fx- _%n140185%_ '1)) - (cdr _%l140186%_) - (cons (car _%l140186%_) _%r140188%_)) - (vector (reverse! _%l140186%_) _%r140188%_)))))))))) + (##cdr _%g143905143912%_)))) + (let* ((_%hd143931%_ _%hd143909143926%_) + (_%rest143933%_ _%tl143910143928%_)) + (_%K143908143923%_ _%rest143933%_ _%hd143931%_))) + (_%E143907143916%_))) + (let _%lp143935%_ ((_%n143937%_ _%n143896%_) + (_%l143938%_ _%r143903%_) + (_%r143940%_ _%rest143901%_)) + (if (null? _%l143938%_) + (vector _%l143938%_ _%r143940%_) + (if (fxpositive? _%n143937%_) + (_%lp143935%_ + (let () (declare (not safe)) (##fx- _%n143937%_ '1)) + (cdr _%l143938%_) + (cons (car _%l143938%_) _%r143940%_)) + (vector (reverse! _%l143938%_) _%r143940%_)))))))))) diff --git a/src/bootstrap/gerbil/expander/stxcase~1.scm b/src/bootstrap/gerbil/expander/stxcase~1.scm index 3979bedca5..e471228c5b 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]#_g141711_| + (define |gx[1]#_g145463_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g141713_| + (define |gx[1]#_g145465_| (##structure gx#syntax-quote::t 'syntax-pattern::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g141715_| + (define |gx[1]#_g145467_| (##structure gx#syntax-quote::t 'make-syntax-pattern #f (gx#current-expander-context) '())) - (define |gx[1]#_g141717_| + (define |gx[1]#_g145469_| (##structure gx#syntax-quote::t 'syntax-pattern? #f (gx#current-expander-context) '())) - (define |gx[1]#_g141719_| + (define |gx[1]#_g145471_| (##structure gx#syntax-quote::t 'syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g141720_| + (define |gx[1]#_g145472_| (##structure gx#syntax-quote::t 'syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g141721_| + (define |gx[1]#_g145473_| (##structure gx#syntax-quote::t 'syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g141723_| + (define |gx[1]#_g145475_| (##structure gx#syntax-quote::t 'syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g141724_| + (define |gx[1]#_g145476_| (##structure gx#syntax-quote::t 'syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g141725_| + (define |gx[1]#_g145477_| (##structure gx#syntax-quote::t 'syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g141727_| + (define |gx[1]#_g145479_| (##structure gx#syntax-quote::t '&syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g141728_| + (define |gx[1]#_g145480_| (##structure gx#syntax-quote::t '&syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g141729_| + (define |gx[1]#_g145481_| (##structure gx#syntax-quote::t '&syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g141731_| + (define |gx[1]#_g145483_| (##structure gx#syntax-quote::t '&syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g141732_| + (define |gx[1]#_g145484_| (##structure gx#syntax-quote::t '&syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g141733_| + (define |gx[1]#_g145485_| (##structure gx#syntax-quote::t '&syntax-pattern-e-set! @@ -114,7 +114,7 @@ '())) (begin (define |gx[:0:]#syntax-pattern| - (let ((__obj141588 + (let ((__obj145340 (let () (declare (not safe)) (##structure @@ -143,160 +143,160 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj141588 + __obj145340 'gx#syntax-pattern::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj141588 'syntax-pattern '2 '#f '#f)) + (##unchecked-structure-set! __obj145340 'syntax-pattern '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj141588 '(id depth) '4 '#f '#f)) + (##unchecked-structure-set! __obj145340 '(id depth) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj141588 '(e id depth) '6 '#f '#f)) - (let ((__tmp141710 (cons |gx[1]#_g141711_| '()))) + (##unchecked-structure-set! __obj145340 '(e id depth) '7 '#f '#f)) + (let ((__tmp145462 (cons |gx[1]#_g145463_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj141588 __tmp141710 '3 '#f '#f)) + (##unchecked-structure-set! __obj145340 __tmp145462 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj141588 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj145340 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj141588 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj145340 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj141588 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj145340 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj141588 '#f '11 '#f '#f)) - (let ((__tmp141712 |gx[1]#_g141713_|)) + (##unchecked-structure-set! __obj145340 '#f '12 '#f '#f)) + (let ((__tmp145464 |gx[1]#_g145465_|)) (declare (not safe)) - (##unchecked-structure-set! __obj141588 __tmp141712 '12 '#f '#f)) - (let ((__tmp141714 |gx[1]#_g141715_|)) + (##unchecked-structure-set! __obj145340 __tmp145464 '3 '#f '#f)) + (let ((__tmp145466 |gx[1]#_g145467_|)) (declare (not safe)) - (##unchecked-structure-set! __obj141588 __tmp141714 '13 '#f '#f)) - (let ((__tmp141716 |gx[1]#_g141717_|)) + (##unchecked-structure-set! __obj145340 __tmp145466 '13 '#f '#f)) + (let ((__tmp145468 |gx[1]#_g145469_|)) (declare (not safe)) - (##unchecked-structure-set! __obj141588 __tmp141716 '14 '#f '#f)) - (let ((__tmp141718 - (cons (cons 'id |gx[1]#_g141719_|) - (cons (cons 'depth |gx[1]#_g141720_|) - (cons (cons 'e |gx[1]#_g141721_|) '()))))) + (##unchecked-structure-set! __obj145340 __tmp145468 '14 '#f '#f)) + (let ((__tmp145470 + (cons (cons 'id |gx[1]#_g145471_|) + (cons (cons 'depth |gx[1]#_g145472_|) + (cons (cons 'e |gx[1]#_g145473_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj141588 __tmp141718 '15 '#f '#f)) - (let ((__tmp141722 - (cons (cons 'id |gx[1]#_g141723_|) - (cons (cons 'depth |gx[1]#_g141724_|) - (cons (cons 'e |gx[1]#_g141725_|) '()))))) + (##unchecked-structure-set! __obj145340 __tmp145470 '15 '#f '#f)) + (let ((__tmp145474 + (cons (cons 'id |gx[1]#_g145475_|) + (cons (cons 'depth |gx[1]#_g145476_|) + (cons (cons 'e |gx[1]#_g145477_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj141588 __tmp141722 '16 '#f '#f)) - (let ((__tmp141726 - (cons (cons 'id |gx[1]#_g141727_|) - (cons (cons 'depth |gx[1]#_g141728_|) - (cons (cons 'e |gx[1]#_g141729_|) '()))))) + (##unchecked-structure-set! __obj145340 __tmp145474 '16 '#f '#f)) + (let ((__tmp145478 + (cons (cons 'id |gx[1]#_g145479_|) + (cons (cons 'depth |gx[1]#_g145480_|) + (cons (cons 'e |gx[1]#_g145481_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj141588 __tmp141726 '17 '#f '#f)) - (let ((__tmp141730 - (cons (cons 'id |gx[1]#_g141731_|) - (cons (cons 'depth |gx[1]#_g141732_|) - (cons (cons 'e |gx[1]#_g141733_|) '()))))) + (##unchecked-structure-set! __obj145340 __tmp145478 '17 '#f '#f)) + (let ((__tmp145482 + (cons (cons 'id |gx[1]#_g145483_|) + (cons (cons 'depth |gx[1]#_g145484_|) + (cons (cons 'e |gx[1]#_g145485_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj141588 __tmp141730 '18 '#f '#f)) + (##unchecked-structure-set! __obj145340 __tmp145482 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj141588 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj145340 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj141588 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj145340 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj141588 '() '20 '#f '#f)) - __obj141588)) + (##unchecked-structure-set! __obj145340 '() '20 '#f '#f)) + __obj145340)) (define |gx[:0:]#syntax-split-splice*| - (lambda (_%$stx140043%_) - (let* ((_%g140047140069%_ - (lambda (_%g140048140065%_) + (lambda (_%$stx143795%_) + (let* ((_%g143799143821%_ + (lambda (_%g143800143817%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140048140065%_)))) - (_%g140046140139%_ - (lambda (_%g140048140073%_) + _%g143800143817%_)))) + (_%g143798143891%_ + (lambda (_%g143800143825%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140048140073%_)) - (let ((_%e140052140076%_ + (gx#stx-pair? _%g143800143825%_)) + (let ((_%e143804143828%_ (let () (declare (not safe)) - (gx#syntax-e _%g140048140073%_)))) - (let ((_%hd140053140080%_ + (gx#syntax-e _%g143800143825%_)))) + (let ((_%hd143805143832%_ (let () (declare (not safe)) - (##car _%e140052140076%_))) - (_%tl140054140083%_ + (##car _%e143804143828%_))) + (_%tl143806143835%_ (let () (declare (not safe)) - (##cdr _%e140052140076%_)))) + (##cdr _%e143804143828%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140054140083%_)) - (let ((_%e140055140086%_ + (gx#stx-pair? _%tl143806143835%_)) + (let ((_%e143807143838%_ (let () (declare (not safe)) - (gx#syntax-e _%tl140054140083%_)))) - (let ((_%hd140056140090%_ + (gx#syntax-e _%tl143806143835%_)))) + (let ((_%hd143808143842%_ (let () (declare (not safe)) - (##car _%e140055140086%_))) - (_%tl140057140093%_ + (##car _%e143807143838%_))) + (_%tl143809143845%_ (let () (declare (not safe)) - (##cdr _%e140055140086%_)))) + (##cdr _%e143807143838%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140057140093%_)) - (let ((_%e140058140096%_ + (gx#stx-pair? _%tl143809143845%_)) + (let ((_%e143810143848%_ (let () (declare (not safe)) (gx#syntax-e - _%tl140057140093%_)))) - (let ((_%hd140059140100%_ + _%tl143809143845%_)))) + (let ((_%hd143811143852%_ (let () (declare (not safe)) - (##car _%e140058140096%_))) - (_%tl140060140103%_ + (##car _%e143810143848%_))) + (_%tl143812143855%_ (let () (declare (not safe)) - (##cdr _%e140058140096%_)))) + (##cdr _%e143810143848%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140060140103%_)) - (let ((_%e140061140106%_ + _%tl143812143855%_)) + (let ((_%e143813143858%_ (let () (declare (not safe)) (gx#syntax-e - _%tl140060140103%_)))) - (let ((_%hd140062140110%_ + _%tl143812143855%_)))) + (let ((_%hd143814143862%_ (let () (declare (not safe)) - (##car _%e140061140106%_))) - (_%tl140063140113%_ + (##car _%e143813143858%_))) + (_%tl143815143865%_ (let () (declare (not safe)) - (##cdr _%e140061140106%_)))) + (##cdr _%e143813143858%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140063140113%_)) - ((lambda (_%L140116%_ - _%L140118%_ - _%L140119%_) + _%tl143815143865%_)) + ((lambda (_%g143801143868%_ + _%g143802143870%_ + _%g143803143871%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -309,7 +309,7 @@ (gx#datum->syntax__0 '#f 'rest)) - (cons _%L140119%_ '())) + (cons _%g143803143871%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -394,8 +394,9 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp)) - (cons (cons (cons _%L140118%_ - (cons _%L140118%_ '())) + (cons (cons (cons _%g143802143870%_ + (cons _%g143802143870%_ + '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -427,7 +428,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'l)) '())) - (cons (cons _%L140116%_ + (cons (cons _%g143801143868%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'l)) @@ -443,7 +444,7 @@ (gx#datum->syntax__0 '#f 'fxpositive?)) - (cons _%L140118%_ '())) + (cons _%g143802143870%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp)) @@ -452,7 +453,7 @@ (gx#datum->syntax__0 '#f 'fx1-)) - (cons _%L140118%_ + (cons _%g143802143870%_ '())) (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -482,7 +483,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else)) - (cons (cons _%L140116%_ + (cons (cons _%g143801143868%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -503,14 +504,14 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%hd140062140110%_ - _%hd140059140100%_ - _%hd140056140090%_) - (_%g140047140069%_ _%g140048140073%_)))) + _%hd143814143862%_ + _%hd143811143852%_ + _%hd143808143842%_) + (_%g143799143821%_ _%g143800143825%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140047140069%_ - _%g140048140073%_)))) - (_%g140047140069%_ _%g140048140073%_)))) - (_%g140047140069%_ _%g140048140073%_)))) - (_%g140047140069%_ _%g140048140073%_))))) - (_%g140046140139%_ _%$stx140043%_)))))) + (_%g143799143821%_ + _%g143800143825%_)))) + (_%g143799143821%_ _%g143800143825%_)))) + (_%g143799143821%_ _%g143800143825%_)))) + (_%g143799143821%_ _%g143800143825%_))))) + (_%g143798143891%_ _%$stx143795%_)))))) diff --git a/src/bootstrap/gerbil/expander/stx~0.scm b/src/bootstrap/gerbil/expander/stx~0.scm index 6c92bd5630..256d34ef32 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 1756721295) + (define gerbil/expander/stx::timestamp 1769384628) (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 _%$args126717%_ - (apply make-instance gx#identifier-wrap::t _%$args126717%_))) + (lambda _%$args130482%_ + (apply make-instance gx#identifier-wrap::t _%$args130482%_))) (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 _%$args126714%_ - (apply make-instance gx#syntax-wrap::t _%$args126714%_))) + (lambda _%$args130479%_ + (apply make-instance gx#syntax-wrap::t _%$args130479%_))) (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 _%$args126711%_ - (apply make-instance gx#syntax-quote::t _%$args126711%_))) + (lambda _%$args130476%_ + (apply make-instance gx#syntax-quote::t _%$args130476%_))) (define gx#syntax-quote-context (__make-class-slot-accessor gx#syntax-quote::t 'context)) (define gx#syntax-quote-marks @@ -119,987 +119,993 @@ (define gx#&syntax-quote-source-set! (__make-class-slot-unchecked-mutator gx#syntax-quote::t 'source)) (define gx#identifier? - (lambda (_%stx126709%_) (symbol? (gx#stx-e _%stx126709%_)))) + (lambda (_%stx130474%_) (symbol? (gx#stx-e _%stx130474%_)))) (define gx#identifier-quote? - (lambda (_%stx126707%_) - (if (##structure-direct-instance-of? _%stx126707%_ 'gx#syntax-quote::t) - (symbol? (##unchecked-structure-ref _%stx126707%_ '1 '#f '#f)) + (lambda (_%stx130472%_) + (if (##structure-direct-instance-of? _%stx130472%_ 'gx#syntax-quote::t) + (symbol? (##unchecked-structure-ref _%stx130472%_ '1 '#f '#f)) '#f))) (define gx#sealed-syntax? - (lambda (_%stx126702%_) - (if (##structure-direct-instance-of? _%stx126702%_ 'gx#syntax-quote::t) + (lambda (_%stx130467%_) + (if (##structure-direct-instance-of? _%stx130467%_ 'gx#syntax-quote::t) '#t (if (##structure-direct-instance-of? - _%stx126702%_ + _%stx130467%_ 'gx#syntax-wrap::t) (gx#sealed-syntax? - (##unchecked-structure-ref _%stx126702%_ '1 '#f '#f)) + (##unchecked-structure-ref _%stx130467%_ '1 '#f '#f)) '#f)))) (define gx#sealed-syntax-unwrap - (lambda (_%stx126697%_) - (if (##structure-direct-instance-of? _%stx126697%_ 'gx#syntax-quote::t) - _%stx126697%_ + (lambda (_%stx130462%_) + (if (##structure-direct-instance-of? _%stx130462%_ 'gx#syntax-quote::t) + _%stx130462%_ (if (##structure-direct-instance-of? - _%stx126697%_ + _%stx130462%_ 'gx#syntax-wrap::t) (gx#sealed-syntax-unwrap - (##unchecked-structure-ref _%stx126697%_ '1 '#f '#f)) + (##unchecked-structure-ref _%stx130462%_ '1 '#f '#f)) '#f)))) (define gx#syntax-e - (lambda (_%stx126671%_) - (if (##structure-direct-instance-of? _%stx126671%_ 'gx#syntax-wrap::t) - (let _%lp126674%_ ((_%e126676%_ + (lambda (_%stx130436%_) + (if (##structure-direct-instance-of? _%stx130436%_ 'gx#syntax-wrap::t) + (let _%lp130439%_ ((_%e130441%_ (##unchecked-structure-ref - _%stx126671%_ + _%stx130436%_ '1 '#f '#f)) - (_%marks126677%_ + (_%marks130442%_ (cons (##unchecked-structure-ref - _%stx126671%_ + _%stx130436%_ '3 '#f '#f) '()))) - (if (##structure? _%e126676%_) - (let ((_%$e126680%_ - (##type-id (##structure-type _%e126676%_)))) - (if (eq? 'gx#syntax-wrap::t _%$e126680%_) - (_%lp126674%_ - (##unchecked-structure-ref _%e126676%_ '1 '#f '#f) + (if (##structure? _%e130441%_) + (let ((_%$e130445%_ + (##type-id (##structure-type _%e130441%_)))) + (if (eq? 'gx#syntax-wrap::t _%$e130445%_) + (_%lp130439%_ + (##unchecked-structure-ref _%e130441%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e126676%_ '3 '#f '#f) - _%marks126677%_)) - (if (or (eq? 'gx#syntax-quote::t _%$e126680%_) - (eq? 'gx#identifier-wrap::t _%$e126680%_)) - (##unchecked-structure-ref _%e126676%_ '1 '#f '#f) - (if (eq? 'gerbil#AST::t _%$e126680%_) - (_%lp126674%_ + (##unchecked-structure-ref _%e130441%_ '3 '#f '#f) + _%marks130442%_)) + (if (or (eq? 'gx#syntax-quote::t _%$e130445%_) + (eq? 'gx#identifier-wrap::t _%$e130445%_)) + (##unchecked-structure-ref _%e130441%_ '1 '#f '#f) + (if (eq? 'gerbil#AST::t _%$e130445%_) + (_%lp130439%_ (##unchecked-structure-ref - _%e126676%_ + _%e130441%_ '1 '#f '#f) - _%marks126677%_) - _%e126676%_)))) - (if (null? _%marks126677%_) - _%e126676%_ - (if (pair? _%e126676%_) + _%marks130442%_) + _%e130441%_)))) + (if (null? _%marks130442%_) + _%e130441%_ + (if (pair? _%e130441%_) (cons (gx#stx-wrap - (##car _%e126676%_) - _%marks126677%_) + (##car _%e130441%_) + _%marks130442%_) (gx#stx-wrap - (##cdr _%e126676%_) - _%marks126677%_)) - (if (vector? _%e126676%_) + (##cdr _%e130441%_) + _%marks130442%_)) + (if (vector? _%e130441%_) (vector-map - (lambda (_%g126688126690%_) + (lambda (_%g130453130455%_) (gx#stx-wrap - _%g126688126690%_ - _%marks126677%_)) - _%e126676%_) - (if (box? _%e126676%_) + _%g130453130455%_ + _%marks130442%_)) + _%e130441%_) + (if (box? _%e130441%_) (box (gx#stx-wrap - (unbox _%e126676%_) - _%marks126677%_)) - _%e126676%_)))))) - (if (##structure-instance-of? _%stx126671%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx126671%_ '1 '#f '#f) - _%stx126671%_)))) + (unbox _%e130441%_) + _%marks130442%_)) + _%e130441%_)))))) + (if (##structure-instance-of? _%stx130436%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx130436%_ '1 '#f '#f) + _%stx130436%_)))) (define gx#syntax->datum - (lambda (_%stx126664%_) - (if (##structure-instance-of? _%stx126664%_ 'gerbil#AST::t) + (lambda (_%stx130429%_) + (if (##structure-instance-of? _%stx130429%_ 'gerbil#AST::t) (gx#syntax->datum - (##unchecked-structure-ref _%stx126664%_ '1 '#f '#f)) - (if (pair? _%stx126664%_) - (cons (gx#syntax->datum (##car _%stx126664%_)) - (gx#syntax->datum (##cdr _%stx126664%_))) - (if (vector? _%stx126664%_) - (vector-map gx#syntax->datum _%stx126664%_) - (if (box? _%stx126664%_) - (box (gx#syntax->datum (unbox _%stx126664%_))) - _%stx126664%_)))))) + (##unchecked-structure-ref _%stx130429%_ '1 '#f '#f)) + (if (pair? _%stx130429%_) + (cons (gx#syntax->datum (##car _%stx130429%_)) + (gx#syntax->datum (##cdr _%stx130429%_))) + (if (vector? _%stx130429%_) + (vector-map gx#syntax->datum _%stx130429%_) + (if (box? _%stx130429%_) + (box (gx#syntax->datum (unbox _%stx130429%_))) + _%stx130429%_)))))) (define gx#datum->syntax__% - (lambda (_%stx126598%_ _%datum126599%_ _%src126600%_ _%quote?126601%_) - (letrec ((_%wrap-datum126603%_ - (lambda (_%e126636%_ _%marks126637%_) - (_%wrap-inner126605%_ - _%e126636%_ - (lambda (_%g126638126640%_) + (lambda (_%stx130363%_ _%datum130364%_ _%src130365%_ _%quote?130366%_) + (letrec ((_%wrap-datum130368%_ + (lambda (_%e130401%_ _%marks130402%_) + (_%wrap-inner130370%_ + _%e130401%_ + (lambda (_%g130403130405%_) (##structure gx#identifier-wrap::t - _%g126638126640%_ - _%src126600%_ - _%marks126637%_))))) - (_%wrap-quote126604%_ - (lambda (_%e126628%_ _%ctx126629%_ _%marks126630%_) - (_%wrap-inner126605%_ - _%e126628%_ - (lambda (_%g126631126633%_) + _%g130403130405%_ + _%src130365%_ + _%marks130402%_))))) + (_%wrap-quote130369%_ + (lambda (_%e130393%_ _%ctx130394%_ _%marks130395%_) + (_%wrap-inner130370%_ + _%e130393%_ + (lambda (_%g130396130398%_) (##structure gx#syntax-quote::t - _%g126631126633%_ - _%src126600%_ - _%ctx126629%_ - _%marks126630%_))))) - (_%wrap-inner126605%_ - (lambda (_%e126616%_ _%wrap-e126617%_) - (let _%recur126619%_ ((_%e126621%_ _%e126616%_)) - (if (symbol? _%e126621%_) - (_%wrap-e126617%_ _%e126621%_) - (if (pair? _%e126621%_) - (cons (_%recur126619%_ (##car _%e126621%_)) - (_%recur126619%_ (##cdr _%e126621%_))) - (if (vector? _%e126621%_) - (vector-map _%recur126619%_ _%e126621%_) - (if (box? _%e126621%_) - (box (_%recur126619%_ - (unbox _%e126621%_))) - _%e126621%_))))))) - (_%wrap-outer126606%_ - (lambda (_%e126614%_) - (if (##structure-instance-of? _%e126614%_ 'gerbil#AST::t) - _%e126614%_ - (##structure gx#AST::t _%e126614%_ _%src126600%_))))) - (if (##structure-instance-of? _%datum126599%_ 'gerbil#AST::t) - _%datum126599%_ - (if (not _%stx126598%_) - (##structure gx#AST::t _%datum126599%_ _%src126600%_) - (if (gx#identifier? _%stx126598%_) - (let ((_%stx126611%_ (gx#stx-unwrap__0 _%stx126598%_))) - (_%wrap-outer126606%_ + _%g130396130398%_ + _%src130365%_ + _%ctx130394%_ + _%marks130395%_))))) + (_%wrap-inner130370%_ + (lambda (_%e130381%_ _%wrap-e130382%_) + (let _%recur130384%_ ((_%e130386%_ _%e130381%_)) + (if (symbol? _%e130386%_) + (_%wrap-e130382%_ _%e130386%_) + (if (pair? _%e130386%_) + (cons (_%recur130384%_ (##car _%e130386%_)) + (_%recur130384%_ (##cdr _%e130386%_))) + (if (vector? _%e130386%_) + (vector-map _%recur130384%_ _%e130386%_) + (if (box? _%e130386%_) + (box (_%recur130384%_ + (unbox _%e130386%_))) + _%e130386%_))))))) + (_%wrap-outer130371%_ + (lambda (_%e130379%_) + (if (##structure-instance-of? _%e130379%_ 'gerbil#AST::t) + _%e130379%_ + (##structure gx#AST::t _%e130379%_ _%src130365%_))))) + (if (##structure-instance-of? _%datum130364%_ 'gerbil#AST::t) + _%datum130364%_ + (if (not _%stx130363%_) + (##structure gx#AST::t _%datum130364%_ _%src130365%_) + (if (gx#identifier? _%stx130363%_) + (let ((_%stx130376%_ (gx#stx-unwrap__0 _%stx130363%_))) + (_%wrap-outer130371%_ (if (##structure-direct-instance-of? - _%stx126611%_ + _%stx130376%_ 'gx#syntax-quote::t) - (if _%quote?126601%_ - (_%wrap-quote126604%_ - _%datum126599%_ + (if _%quote?130366%_ + (_%wrap-quote130369%_ + _%datum130364%_ (##unchecked-structure-ref - _%stx126611%_ + _%stx130376%_ '3 '#f '#f) (##unchecked-structure-ref - _%stx126611%_ + _%stx130376%_ '4 '#f '#f)) - (_%wrap-datum126603%_ - _%datum126599%_ + (_%wrap-datum130368%_ + _%datum130364%_ (##unchecked-structure-ref - _%stx126611%_ + _%stx130376%_ '4 '#f '#f))) - (_%wrap-datum126603%_ - _%datum126599%_ + (_%wrap-datum130368%_ + _%datum130364%_ (##unchecked-structure-ref - _%stx126611%_ + _%stx130376%_ '3 '#f '#f))))) (error '"Bad template syntax; expected identifier" - _%stx126598%_))))))) + _%stx130363%_))))))) (define gx#datum->syntax__0 - (lambda (_%stx126646%_ _%datum126647%_) - (let* ((_%src126649%_ '#f) (_%quote?126651%_ '#t)) + (lambda (_%stx130411%_ _%datum130412%_) + (let* ((_%src130414%_ '#f) (_%quote?130416%_ '#t)) (gx#datum->syntax__% - _%stx126646%_ - _%datum126647%_ - _%src126649%_ - _%quote?126651%_)))) + _%stx130411%_ + _%datum130412%_ + _%src130414%_ + _%quote?130416%_)))) (define gx#datum->syntax__1 - (lambda (_%stx126653%_ _%datum126654%_ _%src126655%_) - (let ((_%quote?126657%_ '#t)) + (lambda (_%stx130418%_ _%datum130419%_ _%src130420%_) + (let ((_%quote?130422%_ '#t)) (gx#datum->syntax__% - _%stx126653%_ - _%datum126654%_ - _%src126655%_ - _%quote?126657%_)))) + _%stx130418%_ + _%datum130419%_ + _%src130420%_ + _%quote?130422%_)))) (define gx#datum->syntax - (lambda _g126797_ - (let ((_g126798_ (##length _g126797_))) - (cond ((##fx= _g126798_ 2) (apply gx#datum->syntax__0 _g126797_)) - ((##fx= _g126798_ 3) (apply gx#datum->syntax__1 _g126797_)) - ((##fx= _g126798_ 4) (apply gx#datum->syntax__% _g126797_)) + (lambda _g130562_ + (let ((_g130563_ (##length _g130562_))) + (cond ((##fx= _g130563_ 2) (apply gx#datum->syntax__0 _g130562_)) + ((##fx= _g130563_ 3) (apply gx#datum->syntax__1 _g130562_)) + ((##fx= _g130563_ 4) (apply gx#datum->syntax__% _g130562_)) (else (##raise-wrong-number-of-arguments-exception gx#datum->syntax - _g126797_)))))) + _g130562_)))))) (define gx#stx-unwrap__% - (lambda (_%stx126564%_ _%marks126565%_) - (let _%lp126567%_ ((_%e126569%_ _%stx126564%_) - (_%marks126570%_ _%marks126565%_) - (_%src126571%_ (gx#stx-source _%stx126564%_))) - (if (##structure-direct-instance-of? _%e126569%_ 'gx#syntax-wrap::t) - (_%lp126567%_ - (##unchecked-structure-ref _%e126569%_ '1 '#f '#f) + (lambda (_%stx130329%_ _%marks130330%_) + (let _%lp130332%_ ((_%e130334%_ _%stx130329%_) + (_%marks130335%_ _%marks130330%_) + (_%src130336%_ (gx#stx-source _%stx130329%_))) + (if (##structure-direct-instance-of? _%e130334%_ 'gx#syntax-wrap::t) + (_%lp130332%_ + (##unchecked-structure-ref _%e130334%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e126569%_ '3 '#f '#f) - _%marks126570%_) - (##unchecked-structure-ref _%e126569%_ '2 '#f '#f)) + (##unchecked-structure-ref _%e130334%_ '3 '#f '#f) + _%marks130335%_) + (##unchecked-structure-ref _%e130334%_ '2 '#f '#f)) (if (##structure-direct-instance-of? - _%e126569%_ + _%e130334%_ 'gx#identifier-wrap::t) - (if (null? _%marks126570%_) - _%e126569%_ + (if (null? _%marks130335%_) + _%e130334%_ (##structure gx#identifier-wrap::t - (##unchecked-structure-ref _%e126569%_ '1 '#f '#f) - (##unchecked-structure-ref _%e126569%_ '2 '#f '#f) + (##unchecked-structure-ref _%e130334%_ '1 '#f '#f) + (##unchecked-structure-ref _%e130334%_ '2 '#f '#f) (__foldl1 gx#apply-mark - (##unchecked-structure-ref _%e126569%_ '3 '#f '#f) - _%marks126570%_))) + (##unchecked-structure-ref _%e130334%_ '3 '#f '#f) + _%marks130335%_))) (if (##structure-direct-instance-of? - _%e126569%_ + _%e130334%_ 'gx#syntax-quote::t) - _%e126569%_ - (if (##structure-instance-of? _%e126569%_ 'gerbil#AST::t) - (_%lp126567%_ - (##unchecked-structure-ref _%e126569%_ '1 '#f '#f) - _%marks126570%_ - (##unchecked-structure-ref _%e126569%_ '2 '#f '#f)) - (if (symbol? _%e126569%_) + _%e130334%_ + (if (##structure-instance-of? _%e130334%_ 'gerbil#AST::t) + (_%lp130332%_ + (##unchecked-structure-ref _%e130334%_ '1 '#f '#f) + _%marks130335%_ + (##unchecked-structure-ref _%e130334%_ '2 '#f '#f)) + (if (symbol? _%e130334%_) (##structure gx#identifier-wrap::t - _%e126569%_ - _%src126571%_ - (reverse _%marks126570%_)) - (if (null? _%marks126570%_) - _%e126569%_ - (if (pair? _%e126569%_) + _%e130334%_ + _%src130336%_ + (reverse _%marks130335%_)) + (if (null? _%marks130335%_) + _%e130334%_ + (if (pair? _%e130334%_) (cons (gx#stx-wrap - (##car _%e126569%_) - _%marks126570%_) + (##car _%e130334%_) + _%marks130335%_) (gx#stx-wrap - (##cdr _%e126569%_) - _%marks126570%_)) - (if (vector? _%e126569%_) + (##cdr _%e130334%_) + _%marks130335%_)) + (if (vector? _%e130334%_) (vector-map - (lambda (_%g126580126582%_) + (lambda (_%g130345130347%_) (gx#stx-wrap - _%g126580126582%_ - _%marks126570%_)) - _%e126569%_) - (if (box? _%e126569%_) + _%g130345130347%_ + _%marks130335%_)) + _%e130334%_) + (if (box? _%e130334%_) (box (gx#stx-wrap - (unbox _%e126569%_) - _%marks126570%_)) - _%e126569%_)))))))))))) + (unbox _%e130334%_) + _%marks130335%_)) + _%e130334%_)))))))))))) (define gx#stx-unwrap__0 - (lambda (_%stx126590%_) - (let ((_%marks126592%_ '())) - (gx#stx-unwrap__% _%stx126590%_ _%marks126592%_)))) + (lambda (_%stx130355%_) + (let ((_%marks130357%_ '())) + (gx#stx-unwrap__% _%stx130355%_ _%marks130357%_)))) (define gx#stx-unwrap - (lambda _g126799_ - (let ((_g126800_ (##length _g126799_))) - (cond ((##fx= _g126800_ 1) (apply gx#stx-unwrap__0 _g126799_)) - ((##fx= _g126800_ 2) (apply gx#stx-unwrap__% _g126799_)) + (lambda _g130564_ + (let ((_g130565_ (##length _g130564_))) + (cond ((##fx= _g130565_ 1) (apply gx#stx-unwrap__0 _g130564_)) + ((##fx= _g130565_ 2) (apply gx#stx-unwrap__% _g130564_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-unwrap - _g126799_)))))) + _g130564_)))))) (define gx#stx-wrap - (lambda (_%stx126557%_ _%marks126558%_) + (lambda (_%stx130322%_ _%marks130323%_) (__foldl1 - (lambda (_%mark126560%_ _%stx126561%_) - (gx#stx-apply-mark _%stx126561%_ _%mark126560%_)) - _%stx126557%_ - _%marks126558%_))) + (lambda (_%mark130325%_ _%stx130326%_) + (gx#stx-apply-mark _%stx130326%_ _%mark130325%_)) + _%stx130322%_ + _%marks130323%_))) (define gx#stx-rewrap - (lambda (_%stx126551%_ _%marks126552%_) + (lambda (_%stx130316%_ _%marks130317%_) (__foldr1 - (lambda (_%mark126554%_ _%stx126555%_) - (gx#stx-apply-mark _%stx126555%_ _%mark126554%_)) - _%stx126551%_ - _%marks126552%_))) + (lambda (_%mark130319%_ _%stx130320%_) + (gx#stx-apply-mark _%stx130320%_ _%mark130319%_)) + _%stx130316%_ + _%marks130317%_))) (define gx#stx-apply-mark - (lambda (_%stx126545%_ _%mark126546%_) - (if (##structure-direct-instance-of? _%stx126545%_ 'gx#syntax-quote::t) - _%stx126545%_ + (lambda (_%stx130310%_ _%mark130311%_) + (if (##structure-direct-instance-of? _%stx130310%_ 'gx#syntax-quote::t) + _%stx130310%_ (if (and (##structure-direct-instance-of? - _%stx126545%_ + _%stx130310%_ 'gx#syntax-wrap::t) - (eq? _%mark126546%_ + (eq? _%mark130311%_ (##unchecked-structure-ref - _%stx126545%_ + _%stx130310%_ '3 '#f '#f))) - (##unchecked-structure-ref _%stx126545%_ '1 '#f '#f) + (##unchecked-structure-ref _%stx130310%_ '1 '#f '#f) (##structure gx#syntax-wrap::t - _%stx126545%_ - (gx#stx-source _%stx126545%_) - _%mark126546%_))))) + _%stx130310%_ + (gx#stx-source _%stx130310%_) + _%mark130311%_))))) (define gx#apply-mark - (lambda (_%mark126509%_ _%marks126510%_) - (let* ((_%marks126511126519%_ _%marks126510%_) - (_%else126513126527%_ - (lambda () (cons _%mark126509%_ _%marks126510%_))) - (_%K126515126533%_ - (lambda (_%rest126530%_ _%hd126531%_) - (if (eq? _%mark126509%_ _%hd126531%_) - _%rest126530%_ - (cons _%mark126509%_ _%marks126510%_))))) - (if (pair? _%marks126511126519%_) - (let ((_%hd126516126536%_ (##car _%marks126511126519%_)) - (_%tl126517126538%_ (##cdr _%marks126511126519%_))) - (let* ((_%hd126541%_ _%hd126516126536%_) - (_%rest126543%_ _%tl126517126538%_)) - (_%K126515126533%_ _%rest126543%_ _%hd126541%_))) - (_%else126513126527%_))))) + (lambda (_%mark130274%_ _%marks130275%_) + (let* ((_%marks130276130284%_ _%marks130275%_) + (_%else130278130292%_ + (lambda () (cons _%mark130274%_ _%marks130275%_))) + (_%K130280130298%_ + (lambda (_%rest130295%_ _%hd130296%_) + (if (eq? _%mark130274%_ _%hd130296%_) + _%rest130295%_ + (cons _%mark130274%_ _%marks130275%_))))) + (if (pair? _%marks130276130284%_) + (let ((_%hd130281130301%_ (##car _%marks130276130284%_)) + (_%tl130282130303%_ (##cdr _%marks130276130284%_))) + (let* ((_%hd130306%_ _%hd130281130301%_) + (_%rest130308%_ _%tl130282130303%_)) + (_%K130280130298%_ _%rest130308%_ _%hd130306%_))) + (_%else130278130292%_))))) (define gx#stx-e - (lambda (_%stx126504%_) - (if (##structure-direct-instance-of? _%stx126504%_ 'gx#syntax-wrap::t) - (gx#stx-e (##unchecked-structure-ref _%stx126504%_ '1 '#f '#f)) - (if (##structure-instance-of? _%stx126504%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx126504%_ '1 '#f '#f) - _%stx126504%_)))) + (lambda (_%stx130269%_) + (if (##structure-direct-instance-of? _%stx130269%_ 'gx#syntax-wrap::t) + (gx#stx-e (##unchecked-structure-ref _%stx130269%_ '1 '#f '#f)) + (if (##structure-instance-of? _%stx130269%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx130269%_ '1 '#f '#f) + _%stx130269%_)))) (define gx#stx-source - (lambda (_%stx126502%_) - (if (##structure-instance-of? _%stx126502%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx126502%_ '2 '#f '#f) + (lambda (_%stx130267%_) + (if (##structure-instance-of? _%stx130267%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx130267%_ '2 '#f '#f) '#f))) (define gx#stx-wrap-source - (lambda (_%stx126496%_ _%src126497%_) - (if (or (##structure-instance-of? _%stx126496%_ 'gerbil#AST::t) - (not _%src126497%_)) - _%stx126496%_ - (##structure gx#AST::t _%stx126496%_ _%src126497%_)))) + (lambda (_%stx130261%_ _%src130262%_) + (if (or (##structure-instance-of? _%stx130261%_ 'gerbil#AST::t) + (not _%src130262%_)) + _%stx130261%_ + (##structure gx#AST::t _%stx130261%_ _%src130262%_)))) (define gx#stx-datum? - (lambda (_%stx126494%_) (gx#self-quoting? (gx#stx-e _%stx126494%_)))) + (lambda (_%stx130259%_) (gx#self-quoting? (gx#stx-e _%stx130259%_)))) (define gx#self-quoting? - (lambda (_%x126477%_) - (let ((_%$e126479%_ (immediate? _%x126477%_))) - (if _%$e126479%_ - _%$e126479%_ - (let ((_%$e126482%_ (number? _%x126477%_))) - (if _%$e126482%_ - _%$e126482%_ - (let ((_%$e126485%_ (keyword? _%x126477%_))) - (if _%$e126485%_ - _%$e126485%_ - (let ((_%$e126488%_ (string? _%x126477%_))) - (if _%$e126488%_ - _%$e126488%_ - (let ((_%$e126491%_ (vector? _%x126477%_))) - (if _%$e126491%_ - _%$e126491%_ - (u8vector? _%x126477%_))))))))))))) + (lambda (_%x130242%_) + (let ((_%$e130244%_ (immediate? _%x130242%_))) + (if _%$e130244%_ + _%$e130244%_ + (let ((_%$e130247%_ (number? _%x130242%_))) + (if _%$e130247%_ + _%$e130247%_ + (let ((_%$e130250%_ (keyword? _%x130242%_))) + (if _%$e130250%_ + _%$e130250%_ + (let ((_%$e130253%_ (string? _%x130242%_))) + (if _%$e130253%_ + _%$e130253%_ + (let ((_%$e130256%_ (vector? _%x130242%_))) + (if _%$e130256%_ + _%$e130256%_ + (u8vector? _%x130242%_))))))))))))) (define gx#stx-boolean? - (lambda (_%e126475%_) (boolean? (gx#stx-e _%e126475%_)))) + (lambda (_%e130240%_) (boolean? (gx#stx-e _%e130240%_)))) (define gx#stx-keyword? - (lambda (_%e126473%_) (keyword? (gx#stx-e _%e126473%_)))) - (define gx#stx-char? (lambda (_%e126471%_) (char? (gx#stx-e _%e126471%_)))) + (lambda (_%e130238%_) (keyword? (gx#stx-e _%e130238%_)))) + (define gx#stx-char? (lambda (_%e130236%_) (char? (gx#stx-e _%e130236%_)))) (define gx#stx-number? - (lambda (_%e126469%_) (number? (gx#stx-e _%e126469%_)))) + (lambda (_%e130234%_) (number? (gx#stx-e _%e130234%_)))) (define gx#stx-fixnum? - (lambda (_%e126467%_) (fixnum? (gx#stx-e _%e126467%_)))) + (lambda (_%e130232%_) (fixnum? (gx#stx-e _%e130232%_)))) (define gx#stx-string? - (lambda (_%e126465%_) (string? (gx#stx-e _%e126465%_)))) - (define gx#stx-null? (lambda (_%e126463%_) (null? (gx#stx-e _%e126463%_)))) - (define gx#stx-pair? (lambda (_%e126461%_) (pair? (gx#stx-e _%e126461%_)))) + (lambda (_%e130230%_) (string? (gx#stx-e _%e130230%_)))) + (define gx#stx-null? (lambda (_%e130228%_) (null? (gx#stx-e _%e130228%_)))) + (define gx#stx-pair? (lambda (_%e130226%_) (pair? (gx#stx-e _%e130226%_)))) (define gx#stx-list? - (lambda (_%e126423%_) - (let* ((_%g126424126433%_ (gx#stx-e _%e126423%_)) - (_%E126427126437%_ + (lambda (_%e130188%_) + (let* ((_%g130189130198%_ (gx#stx-e _%e130188%_)) + (_%E130192130202%_ (lambda () (error '"No clause matching" - _%g126424126433%_ + _%g130189130198%_ '([_ . rest]) '(tail)) '#!void))) - (let ((_%K126429126453%_ - (lambda (_%rest126451%_) (gx#stx-list? _%rest126451%_))) - (_%K126428126443%_ - (lambda (_%tail126441%_) (null? _%tail126441%_)))) - (if (pair? _%g126424126433%_) - (let* ((_%tl126431126456%_ (##cdr _%g126424126433%_)) - (_%rest126459%_ _%tl126431126456%_)) - (gx#stx-list? _%rest126459%_)) - (let ((_%tail126446%_ _%g126424126433%_)) - (null? _%tail126446%_))))))) + (let ((_%K130194130218%_ + (lambda (_%rest130216%_) (gx#stx-list? _%rest130216%_))) + (_%K130193130208%_ + (lambda (_%tail130206%_) (null? _%tail130206%_)))) + (if (pair? _%g130189130198%_) + (let* ((_%tl130196130221%_ (##cdr _%g130189130198%_)) + (_%rest130224%_ _%tl130196130221%_)) + (gx#stx-list? _%rest130224%_)) + (let ((_%tail130211%_ _%g130189130198%_)) + (null? _%tail130211%_))))))) (define gx#stx-pair/null? - (lambda (_%e126416%_) - (let* ((_%e126418%_ (gx#stx-e _%e126416%_)) - (_%$e126420%_ (pair? _%e126418%_))) - (if _%$e126420%_ _%$e126420%_ (null? _%e126418%_))))) + (lambda (_%e130181%_) + (let* ((_%e130183%_ (gx#stx-e _%e130181%_)) + (_%$e130185%_ (pair? _%e130183%_))) + (if _%$e130185%_ _%$e130185%_ (null? _%e130183%_))))) (define gx#stx-vector? - (lambda (_%e126414%_) (vector? (gx#stx-e _%e126414%_)))) - (define gx#stx-box? (lambda (_%e126412%_) (box? (gx#stx-e _%e126412%_)))) + (lambda (_%e130179%_) (vector? (gx#stx-e _%e130179%_)))) + (define gx#stx-box? (lambda (_%e130177%_) (box? (gx#stx-e _%e130177%_)))) (define gx#stx-eq? - (lambda (_%x126409%_ _%y126410%_) - (eq? (gx#stx-e _%x126409%_) (gx#stx-e _%y126410%_)))) + (lambda (_%x130174%_ _%y130175%_) + (eq? (gx#stx-e _%x130174%_) (gx#stx-e _%y130175%_)))) (define gx#stx-eqv? - (lambda (_%x126406%_ _%y126407%_) - (eqv? (gx#stx-e _%x126406%_) (gx#stx-e _%y126407%_)))) + (lambda (_%x130171%_ _%y130172%_) + (eqv? (gx#stx-e _%x130171%_) (gx#stx-e _%y130172%_)))) (define gx#stx-equal? - (lambda (_%x126403%_ _%y126404%_) - (equal? (gx#stx-e _%x126403%_) (gx#stx-e _%y126404%_)))) - (define gx#stx-false? (lambda (_%x126401%_) (not (gx#stx-e _%x126401%_)))) + (lambda (_%x130168%_ _%y130169%_) + (equal? (gx#stx-e _%x130168%_) (gx#stx-e _%y130169%_)))) + (define gx#stx-false? (lambda (_%x130166%_) (not (gx#stx-e _%x130166%_)))) (define gx#stx-identifier - (lambda (_%template126398%_ . _%args126399%_) + (lambda (_%template130163%_ . _%args130164%_) (gx#datum->syntax__1 - _%template126398%_ - (apply make-symbol (gx#syntax->datum _%args126399%_)) - (gx#stx-source _%template126398%_)))) + _%template130163%_ + (apply make-symbol (gx#syntax->datum _%args130164%_)) + (gx#stx-source _%template130163%_)))) (define gx#stx-identifier-marks - (lambda (_%stx126396%_) - (gx#stx-identifier-marks* (gx#stx-unwrap__0 _%stx126396%_)))) + (lambda (_%stx130161%_) + (gx#stx-identifier-marks* (gx#stx-unwrap__0 _%stx130161%_)))) (define gx#stx-identifier-marks* - (lambda (_%stx126391%_) + (lambda (_%stx130156%_) (if (##structure-direct-instance-of? - _%stx126391%_ + _%stx130156%_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _%stx126391%_ '3 '#f '#f) + (##unchecked-structure-ref _%stx130156%_ '3 '#f '#f) (if (##structure-direct-instance-of? - _%stx126391%_ + _%stx130156%_ 'gx#syntax-quote::t) - (##unchecked-structure-ref _%stx126391%_ '4 '#f '#f) + (##unchecked-structure-ref _%stx130156%_ '4 '#f '#f) (error '"Bad wrap; expected unwrapped identifier" - _%stx126391%_))))) + _%stx130156%_))))) (define gx#stx-identifier-context - (lambda (_%stx126387%_) - (let ((_%stx126389%_ (gx#stx-unwrap__0 _%stx126387%_))) - (if (gx#identifier-quote? _%stx126389%_) - (##unchecked-structure-ref _%stx126389%_ '3 '#f '#f) + (lambda (_%stx130152%_) + (let ((_%stx130154%_ (gx#stx-unwrap__0 _%stx130152%_))) + (if (gx#identifier-quote? _%stx130154%_) + (##unchecked-structure-ref _%stx130154%_ '3 '#f '#f) '#f)))) (define gx#identifier-list? - (lambda (_%stx126342%_) - (let* ((_%g126343126353%_ (gx#stx-e _%stx126342%_)) - (_%else126346126361%_ (lambda () '#f))) - (let ((_%K126349126375%_ - (lambda (_%rest126372%_ _%hd126373%_) - (if (gx#identifier? _%hd126373%_) - (gx#identifier-list? _%rest126372%_) + (lambda (_%stx130107%_) + (let* ((_%g130108130118%_ (gx#stx-e _%stx130107%_)) + (_%else130111130126%_ (lambda () '#f))) + (let ((_%K130114130140%_ + (lambda (_%rest130137%_ _%hd130138%_) + (if (gx#identifier? _%hd130138%_) + (gx#identifier-list? _%rest130137%_) '#f))) - (_%K126348126366%_ (lambda () '#t))) - (let ((_%try-match126345126369%_ + (_%K130113130131%_ (lambda () '#t))) + (let ((_%try-match130110130134%_ (lambda () - (if (null? _%g126343126353%_) - (_%K126348126366%_) - (_%else126346126361%_))))) - (if (pair? _%g126343126353%_) - (let ((_%tl126351126380%_ (##cdr _%g126343126353%_)) - (_%hd126350126378%_ (##car _%g126343126353%_))) - (let ((_%hd126383%_ _%hd126350126378%_) - (_%rest126385%_ _%tl126351126380%_)) - (_%K126349126375%_ _%rest126385%_ _%hd126383%_))) - (_%try-match126345126369%_))))))) + (if (null? _%g130108130118%_) + (_%K130113130131%_) + (_%else130111130126%_))))) + (if (pair? _%g130108130118%_) + (let ((_%tl130116130145%_ (##cdr _%g130108130118%_)) + (_%hd130115130143%_ (##car _%g130108130118%_))) + (let ((_%hd130148%_ _%hd130115130143%_) + (_%rest130150%_ _%tl130116130145%_)) + (_%K130114130140%_ _%rest130150%_ _%hd130148%_))) + (_%try-match130110130134%_))))))) (define gx#genident__% - (lambda (_%e126319%_ _%src126320%_) - (gx#stx-wrap-source - (gensym (let ((_%e126322%_ (gx#stx-e _%e126319%_))) - (if (interned-symbol? _%e126322%_) _%e126322%_ 'g))) - (let ((_%$e126324%_ (gx#stx-source _%e126319%_))) - (if _%$e126324%_ _%$e126324%_ _%src126320%_))))) + (lambda (_%e130087%_ _%src130088%_) + (gx#datum->syntax__1 + (if (gx#identifier? _%src130088%_) _%src130088%_ '#f) + (##string->symbol + (##symbol->string + (##gensym + (let ((_%e130090%_ (gx#stx-e _%e130087%_))) + (if (symbol? _%e130090%_) _%e130090%_ 'g))))) + _%src130088%_))) (define gx#genident__0 (lambda () - (let* ((_%e126331%_ 'g) (_%src126333%_ '#f)) - (gx#genident__% _%e126331%_ _%src126333%_)))) + (let* ((_%e130096%_ 'g) (_%src130098%_ '#f)) + (gx#genident__% _%e130096%_ _%src130098%_)))) (define gx#genident__1 - (lambda (_%e126335%_) - (let ((_%src126337%_ '#f)) - (gx#genident__% _%e126335%_ _%src126337%_)))) + (lambda (_%e130100%_) + (let ((_%src130102%_ '#f)) + (gx#genident__% _%e130100%_ _%src130102%_)))) (define gx#genident - (lambda _g126801_ - (let ((_g126802_ (##length _g126801_))) - (cond ((##fx= _g126802_ 0) (apply gx#genident__0 _g126801_)) - ((##fx= _g126802_ 1) (apply gx#genident__1 _g126801_)) - ((##fx= _g126802_ 2) (apply gx#genident__% _g126801_)) + (lambda _g130566_ + (let ((_g130567_ (##length _g130566_))) + (cond ((##fx= _g130567_ 0) (apply gx#genident__0 _g130566_)) + ((##fx= _g130567_ 1) (apply gx#genident__1 _g130566_)) + ((##fx= _g130567_ 2) (apply gx#genident__% _g130566_)) (else (##raise-wrong-number-of-arguments-exception gx#genident - _g126801_)))))) + _g130566_)))))) (define gx#gentemps - (lambda (_%stx-lst126316%_) (gx#stx-map1 gx#genident _%stx-lst126316%_))) + (lambda (_%stx-lst130082%_) + (gx#stx-map1 + (lambda (_%x130084%_) (gx#genident__% _%x130084%_ _%x130084%_)) + _%stx-lst130082%_))) (define gx#syntax->list - (lambda (_%stx126314%_) (gx#stx-map1 values _%stx126314%_))) + (lambda (_%stx130080%_) (gx#stx-map1 values _%stx130080%_))) (define gx#stx-car - (lambda (_%stx126311%_) + (lambda (_%stx130077%_) (declare (safe)) - (car (gx#syntax-e _%stx126311%_)))) + (car (gx#syntax-e _%stx130077%_)))) (define gx#stx-cdr - (lambda (_%stx126308%_) + (lambda (_%stx130074%_) (declare (safe)) - (cdr (gx#syntax-e _%stx126308%_)))) + (cdr (gx#syntax-e _%stx130074%_)))) (define gx#stx-length - (lambda (_%stx126273%_) - (let _%lp126275%_ ((_%rest126277%_ _%stx126273%_) (_%n126278%_ '0)) - (let* ((_%g126279126287%_ (gx#stx-e _%rest126277%_)) - (_%else126281126295%_ (lambda () _%n126278%_)) - (_%K126283126300%_ - (lambda (_%rest126298%_) - (_%lp126275%_ _%rest126298%_ (##fx+ _%n126278%_ '1))))) - (if (pair? _%g126279126287%_) - (let* ((_%tl126285126303%_ (##cdr _%g126279126287%_)) - (_%rest126306%_ _%tl126285126303%_)) - (_%K126283126300%_ _%rest126306%_)) - (_%else126281126295%_)))))) + (lambda (_%stx130039%_) + (let _%lp130041%_ ((_%rest130043%_ _%stx130039%_) (_%n130044%_ '0)) + (let* ((_%g130045130053%_ (gx#stx-e _%rest130043%_)) + (_%else130047130061%_ (lambda () _%n130044%_)) + (_%K130049130066%_ + (lambda (_%rest130064%_) + (_%lp130041%_ _%rest130064%_ (##fx+ _%n130044%_ '1))))) + (if (pair? _%g130045130053%_) + (let* ((_%tl130051130069%_ (##cdr _%g130045130053%_)) + (_%rest130072%_ _%tl130051130069%_)) + (_%K130049130066%_ _%rest130072%_)) + (_%else130047130061%_)))))) (define gx#stx-for-each - (lambda _g126803_ - (let ((_g126804_ (##length _g126803_))) - (cond ((##fx= _g126804_ 2) (apply gx#stx-for-each1 _g126803_)) - ((##fx= _g126804_ 3) (apply gx#stx-for-each2 _g126803_)) + (lambda _g130568_ + (let ((_g130569_ (##length _g130568_))) + (cond ((##fx= _g130569_ 2) (apply gx#stx-for-each1 _g130568_)) + ((##fx= _g130569_ 3) (apply gx#stx-for-each2 _g130568_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-for-each - _g126803_)))))) + _g130568_)))))) (define gx#stx-for-each1 - (lambda (_%f126216%_ _%stx126217%_) - (if (procedure? _%f126216%_) + (lambda (_%f129982%_ _%stx129983%_) + (if (procedure? _%f129982%_) '#!void - (error '"expected procedure" _%f126216%_)) - (let _%lp126219%_ ((_%rest126221%_ _%stx126217%_)) - (let* ((_%g126222126232%_ (gx#syntax-e _%rest126221%_)) - (_%else126225126240%_ - (lambda () (_%f126216%_ _%rest126221%_)))) - (let ((_%K126228126254%_ - (lambda (_%rest126251%_ _%hd126252%_) - (_%f126216%_ _%hd126252%_) - (_%lp126219%_ _%rest126251%_))) - (_%K126227126245%_ (lambda () '#!void))) - (let ((_%try-match126224126248%_ + (error '"expected procedure" _%f129982%_)) + (let _%lp129985%_ ((_%rest129987%_ _%stx129983%_)) + (let* ((_%g129988129998%_ (gx#syntax-e _%rest129987%_)) + (_%else129991130006%_ + (lambda () (_%f129982%_ _%rest129987%_)))) + (let ((_%K129994130020%_ + (lambda (_%rest130017%_ _%hd130018%_) + (_%f129982%_ _%hd130018%_) + (_%lp129985%_ _%rest130017%_))) + (_%K129993130011%_ (lambda () '#!void))) + (let ((_%try-match129990130014%_ (lambda () - (if (null? _%g126222126232%_) - (_%K126227126245%_) - (_%else126225126240%_))))) - (if (pair? _%g126222126232%_) - (let ((_%tl126230126259%_ (##cdr _%g126222126232%_)) - (_%hd126229126257%_ (##car _%g126222126232%_))) - (let ((_%hd126262%_ _%hd126229126257%_) - (_%rest126264%_ _%tl126230126259%_)) - (_%K126228126254%_ _%rest126264%_ _%hd126262%_))) - (_%try-match126224126248%_)))))))) + (if (null? _%g129988129998%_) + (_%K129993130011%_) + (_%else129991130006%_))))) + (if (pair? _%g129988129998%_) + (let ((_%tl129996130025%_ (##cdr _%g129988129998%_)) + (_%hd129995130023%_ (##car _%g129988129998%_))) + (let ((_%hd130028%_ _%hd129995130023%_) + (_%rest130030%_ _%tl129996130025%_)) + (_%K129994130020%_ _%rest130030%_ _%hd130028%_))) + (_%try-match129990130014%_)))))))) (define gx#stx-for-each2 - (lambda (_%f126121%_ _%xstx126122%_ _%ystx126123%_) - (if (procedure? _%f126121%_) + (lambda (_%f129887%_ _%xstx129888%_ _%ystx129889%_) + (if (procedure? _%f129887%_) '#!void - (error '"expected procedure" _%f126121%_)) - (let _%lp126125%_ ((_%xrest126127%_ _%xstx126122%_) - (_%yrest126128%_ _%ystx126123%_)) - (let* ((_%g126129126139%_ (gx#syntax-e _%xrest126127%_)) - (_%else126132126147%_ (lambda () '#!void))) - (let ((_%K126135126204%_ - (lambda (_%xrest126173%_ _%xhd126174%_) - (let* ((_%g126175126182%_ (gx#syntax-e _%yrest126128%_)) - (_%E126177126186%_ + (error '"expected procedure" _%f129887%_)) + (let _%lp129891%_ ((_%xrest129893%_ _%xstx129888%_) + (_%yrest129894%_ _%ystx129889%_)) + (let* ((_%g129895129905%_ (gx#syntax-e _%xrest129893%_)) + (_%else129898129913%_ (lambda () '#!void))) + (let ((_%K129901129970%_ + (lambda (_%xrest129939%_ _%xhd129940%_) + (let* ((_%g129941129948%_ (gx#syntax-e _%yrest129894%_)) + (_%E129943129952%_ (lambda () (error '"No clause matching" - _%g126175126182%_ + _%g129941129948%_ '([yhd . yrest])) '#!void)) - (_%K126178126192%_ - (lambda (_%yrest126189%_ _%yhd126190%_) - (_%f126121%_ _%xhd126174%_ _%yhd126190%_) - (_%lp126125%_ - _%xrest126173%_ - _%yrest126189%_)))) - (if (pair? _%g126175126182%_) - (let ((_%hd126179126195%_ (##car _%g126175126182%_)) - (_%tl126180126197%_ - (##cdr _%g126175126182%_))) - (let* ((_%yhd126200%_ _%hd126179126195%_) - (_%yrest126202%_ _%tl126180126197%_)) - (_%K126178126192%_ - _%yrest126202%_ - _%yhd126200%_))) - (_%E126177126186%_))))) - (_%K126134126167%_ + (_%K129944129958%_ + (lambda (_%yrest129955%_ _%yhd129956%_) + (_%f129887%_ _%xhd129940%_ _%yhd129956%_) + (_%lp129891%_ + _%xrest129939%_ + _%yrest129955%_)))) + (if (pair? _%g129941129948%_) + (let ((_%hd129945129961%_ (##car _%g129941129948%_)) + (_%tl129946129963%_ + (##cdr _%g129941129948%_))) + (let* ((_%yhd129966%_ _%hd129945129961%_) + (_%yrest129968%_ _%tl129946129963%_)) + (_%K129944129958%_ + _%yrest129968%_ + _%yhd129966%_))) + (_%E129943129952%_))))) + (_%K129900129933%_ (lambda () - (let* ((_%yrest126151126156%_ _%yrest126128%_) - (_%E126153126160%_ + (let* ((_%yrest129917129922%_ _%yrest129894%_) + (_%E129919129926%_ (lambda () (error '"No clause matching" - _%yrest126151126156%_ + _%yrest129917129922%_ '((? (not stx-null?)))) '#!void)) - (_%K126154126164%_ + (_%K129920129930%_ (lambda () - (_%f126121%_ _%xrest126127%_ _%yrest126128%_)))) - (if (gx#stx-null? _%yrest126151126156%_) - (_%E126153126160%_) - (_%K126154126164%_)))))) - (let ((_%try-match126131126170%_ + (_%f129887%_ _%xrest129893%_ _%yrest129894%_)))) + (if (gx#stx-null? _%yrest129917129922%_) + (_%E129919129926%_) + (_%K129920129930%_)))))) + (let ((_%try-match129897129936%_ (lambda () - (if (null? _%g126129126139%_) - (_%else126132126147%_) - (_%K126134126167%_))))) - (if (pair? _%g126129126139%_) - (let ((_%tl126137126209%_ (##cdr _%g126129126139%_)) - (_%hd126136126207%_ (##car _%g126129126139%_))) - (let ((_%xhd126212%_ _%hd126136126207%_) - (_%xrest126214%_ _%tl126137126209%_)) - (_%K126135126204%_ _%xrest126214%_ _%xhd126212%_))) - (_%try-match126131126170%_)))))))) + (if (null? _%g129895129905%_) + (_%else129898129913%_) + (_%K129900129933%_))))) + (if (pair? _%g129895129905%_) + (let ((_%tl129903129975%_ (##cdr _%g129895129905%_)) + (_%hd129902129973%_ (##car _%g129895129905%_))) + (let ((_%xhd129978%_ _%hd129902129973%_) + (_%xrest129980%_ _%tl129903129975%_)) + (_%K129901129970%_ _%xrest129980%_ _%xhd129978%_))) + (_%try-match129897129936%_)))))))) (define gx#stx-map - (lambda _g126805_ - (let ((_g126806_ (##length _g126805_))) - (cond ((##fx= _g126806_ 2) (apply gx#stx-map1 _g126805_)) - ((##fx= _g126806_ 3) (apply gx#stx-map2 _g126805_)) + (lambda _g130570_ + (let ((_g130571_ (##length _g130570_))) + (cond ((##fx= _g130571_ 2) (apply gx#stx-map1 _g130570_)) + ((##fx= _g130571_ 3) (apply gx#stx-map2 _g130570_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-map - _g126805_)))))) + _g130570_)))))) (define gx#stx-map1 - (lambda (_%f126064%_ _%stx126065%_) - (if (procedure? _%f126064%_) + (lambda (_%f129830%_ _%stx129831%_) + (if (procedure? _%f129830%_) '#!void - (error '"expected procedure" _%f126064%_)) - (let _%recur126067%_ ((_%rest126069%_ _%stx126065%_)) - (let* ((_%g126070126080%_ (gx#syntax-e _%rest126069%_)) - (_%else126073126088%_ - (lambda () (_%f126064%_ _%rest126069%_)))) - (let ((_%K126076126102%_ - (lambda (_%rest126099%_ _%hd126100%_) - (cons (_%f126064%_ _%hd126100%_) - (_%recur126067%_ _%rest126099%_)))) - (_%K126075126093%_ (lambda () '()))) - (let ((_%try-match126072126096%_ + (error '"expected procedure" _%f129830%_)) + (let _%recur129833%_ ((_%rest129835%_ _%stx129831%_)) + (let* ((_%g129836129846%_ (gx#syntax-e _%rest129835%_)) + (_%else129839129854%_ + (lambda () (_%f129830%_ _%rest129835%_)))) + (let ((_%K129842129868%_ + (lambda (_%rest129865%_ _%hd129866%_) + (cons (_%f129830%_ _%hd129866%_) + (_%recur129833%_ _%rest129865%_)))) + (_%K129841129859%_ (lambda () '()))) + (let ((_%try-match129838129862%_ (lambda () - (if (null? _%g126070126080%_) - (_%K126075126093%_) - (_%else126073126088%_))))) - (if (pair? _%g126070126080%_) - (let ((_%tl126078126107%_ (##cdr _%g126070126080%_)) - (_%hd126077126105%_ (##car _%g126070126080%_))) - (let ((_%hd126110%_ _%hd126077126105%_) - (_%rest126112%_ _%tl126078126107%_)) - (_%K126076126102%_ _%rest126112%_ _%hd126110%_))) - (_%try-match126072126096%_)))))))) + (if (null? _%g129836129846%_) + (_%K129841129859%_) + (_%else129839129854%_))))) + (if (pair? _%g129836129846%_) + (let ((_%tl129844129873%_ (##cdr _%g129836129846%_)) + (_%hd129843129871%_ (##car _%g129836129846%_))) + (let ((_%hd129876%_ _%hd129843129871%_) + (_%rest129878%_ _%tl129844129873%_)) + (_%K129842129868%_ _%rest129878%_ _%hd129876%_))) + (_%try-match129838129862%_)))))))) (define gx#stx-map2 - (lambda (_%f125969%_ _%xstx125970%_ _%ystx125971%_) - (if (procedure? _%f125969%_) + (lambda (_%f129735%_ _%xstx129736%_ _%ystx129737%_) + (if (procedure? _%f129735%_) '#!void - (error '"expected procedure" _%f125969%_)) - (let _%recur125973%_ ((_%xrest125975%_ _%xstx125970%_) - (_%yrest125976%_ _%ystx125971%_)) - (let* ((_%g125977125987%_ (gx#syntax-e _%xrest125975%_)) - (_%else125980125995%_ (lambda () '()))) - (let ((_%K125983126052%_ - (lambda (_%xrest126021%_ _%xhd126022%_) - (let* ((_%g126023126030%_ (gx#syntax-e _%yrest125976%_)) - (_%E126025126034%_ + (error '"expected procedure" _%f129735%_)) + (let _%recur129739%_ ((_%xrest129741%_ _%xstx129736%_) + (_%yrest129742%_ _%ystx129737%_)) + (let* ((_%g129743129753%_ (gx#syntax-e _%xrest129741%_)) + (_%else129746129761%_ (lambda () '()))) + (let ((_%K129749129818%_ + (lambda (_%xrest129787%_ _%xhd129788%_) + (let* ((_%g129789129796%_ (gx#syntax-e _%yrest129742%_)) + (_%E129791129800%_ (lambda () (error '"No clause matching" - _%g126023126030%_ + _%g129789129796%_ '([yhd . yrest])) '#!void)) - (_%K126026126040%_ - (lambda (_%yrest126037%_ _%yhd126038%_) - (cons (_%f125969%_ _%xhd126022%_ _%yhd126038%_) - (_%recur125973%_ - _%xrest126021%_ - _%yrest126037%_))))) - (if (pair? _%g126023126030%_) - (let ((_%hd126027126043%_ (##car _%g126023126030%_)) - (_%tl126028126045%_ - (##cdr _%g126023126030%_))) - (let* ((_%yhd126048%_ _%hd126027126043%_) - (_%yrest126050%_ _%tl126028126045%_)) - (_%K126026126040%_ - _%yrest126050%_ - _%yhd126048%_))) - (_%E126025126034%_))))) - (_%K125982126015%_ + (_%K129792129806%_ + (lambda (_%yrest129803%_ _%yhd129804%_) + (cons (_%f129735%_ _%xhd129788%_ _%yhd129804%_) + (_%recur129739%_ + _%xrest129787%_ + _%yrest129803%_))))) + (if (pair? _%g129789129796%_) + (let ((_%hd129793129809%_ (##car _%g129789129796%_)) + (_%tl129794129811%_ + (##cdr _%g129789129796%_))) + (let* ((_%yhd129814%_ _%hd129793129809%_) + (_%yrest129816%_ _%tl129794129811%_)) + (_%K129792129806%_ + _%yrest129816%_ + _%yhd129814%_))) + (_%E129791129800%_))))) + (_%K129748129781%_ (lambda () - (let* ((_%yrest125999126004%_ _%yrest125976%_) - (_%E126001126008%_ + (let* ((_%yrest129765129770%_ _%yrest129742%_) + (_%E129767129774%_ (lambda () (error '"No clause matching" - _%yrest125999126004%_ + _%yrest129765129770%_ '((? (not stx-null?)))) '#!void)) - (_%K126002126012%_ + (_%K129768129778%_ (lambda () - (_%f125969%_ _%xrest125975%_ _%yrest125976%_)))) - (if (gx#stx-null? _%yrest125999126004%_) - (_%E126001126008%_) - (_%K126002126012%_)))))) - (let ((_%try-match125979126018%_ + (_%f129735%_ _%xrest129741%_ _%yrest129742%_)))) + (if (gx#stx-null? _%yrest129765129770%_) + (_%E129767129774%_) + (_%K129768129778%_)))))) + (let ((_%try-match129745129784%_ (lambda () - (if (null? _%g125977125987%_) - (_%else125980125995%_) - (_%K125982126015%_))))) - (if (pair? _%g125977125987%_) - (let ((_%tl125985126057%_ (##cdr _%g125977125987%_)) - (_%hd125984126055%_ (##car _%g125977125987%_))) - (let ((_%xhd126060%_ _%hd125984126055%_) - (_%xrest126062%_ _%tl125985126057%_)) - (_%K125983126052%_ _%xrest126062%_ _%xhd126060%_))) - (_%try-match125979126018%_)))))))) + (if (null? _%g129743129753%_) + (_%else129746129761%_) + (_%K129748129781%_))))) + (if (pair? _%g129743129753%_) + (let ((_%tl129751129823%_ (##cdr _%g129743129753%_)) + (_%hd129750129821%_ (##car _%g129743129753%_))) + (let ((_%xhd129826%_ _%hd129750129821%_) + (_%xrest129828%_ _%tl129751129823%_)) + (_%K129749129818%_ _%xrest129828%_ _%xhd129826%_))) + (_%try-match129745129784%_)))))))) (define gx#stx-andmap - (lambda (_%f125919%_ _%stx125920%_) - (if (procedure? _%f125919%_) + (lambda (_%f129685%_ _%stx129686%_) + (if (procedure? _%f129685%_) '#!void - (error '"expected procedure" _%f125919%_)) - (let _%lp125922%_ ((_%rest125924%_ _%stx125920%_)) - (let* ((_%g125925125935%_ (gx#syntax-e _%rest125924%_)) - (_%else125928125943%_ - (lambda () (_%f125919%_ _%rest125924%_)))) - (let ((_%K125931125957%_ - (lambda (_%rest125954%_ _%hd125955%_) - (if (_%f125919%_ _%hd125955%_) - (_%lp125922%_ _%rest125954%_) + (error '"expected procedure" _%f129685%_)) + (let _%lp129688%_ ((_%rest129690%_ _%stx129686%_)) + (let* ((_%g129691129701%_ (gx#syntax-e _%rest129690%_)) + (_%else129694129709%_ + (lambda () (_%f129685%_ _%rest129690%_)))) + (let ((_%K129697129723%_ + (lambda (_%rest129720%_ _%hd129721%_) + (if (_%f129685%_ _%hd129721%_) + (_%lp129688%_ _%rest129720%_) '#f))) - (_%K125930125948%_ (lambda () '#t))) - (let ((_%try-match125927125951%_ + (_%K129696129714%_ (lambda () '#t))) + (let ((_%try-match129693129717%_ (lambda () - (if (null? _%g125925125935%_) - (_%K125930125948%_) - (_%else125928125943%_))))) - (if (pair? _%g125925125935%_) - (let ((_%tl125933125962%_ (##cdr _%g125925125935%_)) - (_%hd125932125960%_ (##car _%g125925125935%_))) - (let ((_%hd125965%_ _%hd125932125960%_) - (_%rest125967%_ _%tl125933125962%_)) - (_%K125931125957%_ _%rest125967%_ _%hd125965%_))) - (_%try-match125927125951%_)))))))) + (if (null? _%g129691129701%_) + (_%K129696129714%_) + (_%else129694129709%_))))) + (if (pair? _%g129691129701%_) + (let ((_%tl129699129728%_ (##cdr _%g129691129701%_)) + (_%hd129698129726%_ (##car _%g129691129701%_))) + (let ((_%hd129731%_ _%hd129698129726%_) + (_%rest129733%_ _%tl129699129728%_)) + (_%K129697129723%_ _%rest129733%_ _%hd129731%_))) + (_%try-match129693129717%_)))))))) (define gx#stx-ormap - (lambda (_%f125866%_ _%stx125867%_) - (if (procedure? _%f125866%_) + (lambda (_%f129632%_ _%stx129633%_) + (if (procedure? _%f129632%_) '#!void - (error '"expected procedure" _%f125866%_)) - (let _%lp125869%_ ((_%rest125871%_ _%stx125867%_)) - (let* ((_%g125872125882%_ (gx#syntax-e _%rest125871%_)) - (_%else125875125890%_ - (lambda () (_%f125866%_ _%rest125871%_)))) - (let ((_%K125878125907%_ - (lambda (_%rest125901%_ _%hd125902%_) - (let ((_%$e125904%_ (_%f125866%_ _%hd125902%_))) - (if _%$e125904%_ - _%$e125904%_ - (_%lp125869%_ _%rest125901%_))))) - (_%K125877125895%_ (lambda () '#f))) - (let ((_%try-match125874125898%_ + (error '"expected procedure" _%f129632%_)) + (let _%lp129635%_ ((_%rest129637%_ _%stx129633%_)) + (let* ((_%g129638129648%_ (gx#syntax-e _%rest129637%_)) + (_%else129641129656%_ + (lambda () (_%f129632%_ _%rest129637%_)))) + (let ((_%K129644129673%_ + (lambda (_%rest129667%_ _%hd129668%_) + (let ((_%$e129670%_ (_%f129632%_ _%hd129668%_))) + (if _%$e129670%_ + _%$e129670%_ + (_%lp129635%_ _%rest129667%_))))) + (_%K129643129661%_ (lambda () '#f))) + (let ((_%try-match129640129664%_ (lambda () - (if (null? _%g125872125882%_) - (_%K125877125895%_) - (_%else125875125890%_))))) - (if (pair? _%g125872125882%_) - (let ((_%tl125880125912%_ (##cdr _%g125872125882%_)) - (_%hd125879125910%_ (##car _%g125872125882%_))) - (let ((_%hd125915%_ _%hd125879125910%_) - (_%rest125917%_ _%tl125880125912%_)) - (_%K125878125907%_ _%rest125917%_ _%hd125915%_))) - (_%try-match125874125898%_)))))))) + (if (null? _%g129638129648%_) + (_%K129643129661%_) + (_%else129641129656%_))))) + (if (pair? _%g129638129648%_) + (let ((_%tl129646129678%_ (##cdr _%g129638129648%_)) + (_%hd129645129676%_ (##car _%g129638129648%_))) + (let ((_%hd129681%_ _%hd129645129676%_) + (_%rest129683%_ _%tl129646129678%_)) + (_%K129644129673%_ _%rest129683%_ _%hd129681%_))) + (_%try-match129640129664%_)))))))) (define gx#stx-foldl - (lambda (_%f125814%_ _%iv125815%_ _%stx125816%_) - (if (procedure? _%f125814%_) + (lambda (_%f129580%_ _%iv129581%_ _%stx129582%_) + (if (procedure? _%f129580%_) '#!void - (error '"expected procedure" _%f125814%_)) - (let _%lp125818%_ ((_%r125820%_ _%iv125815%_) - (_%rest125821%_ _%stx125816%_)) - (let* ((_%g125822125832%_ (gx#syntax-e _%rest125821%_)) - (_%else125825125840%_ - (lambda () (_%f125814%_ _%rest125821%_ _%r125820%_)))) - (let ((_%K125828125854%_ - (lambda (_%rest125851%_ _%hd125852%_) - (_%lp125818%_ - (_%f125814%_ _%hd125852%_ _%r125820%_) - _%rest125851%_))) - (_%K125827125845%_ (lambda () _%r125820%_))) - (let ((_%try-match125824125848%_ + (error '"expected procedure" _%f129580%_)) + (let _%lp129584%_ ((_%r129586%_ _%iv129581%_) + (_%rest129587%_ _%stx129582%_)) + (let* ((_%g129588129598%_ (gx#syntax-e _%rest129587%_)) + (_%else129591129606%_ + (lambda () (_%f129580%_ _%rest129587%_ _%r129586%_)))) + (let ((_%K129594129620%_ + (lambda (_%rest129617%_ _%hd129618%_) + (_%lp129584%_ + (_%f129580%_ _%hd129618%_ _%r129586%_) + _%rest129617%_))) + (_%K129593129611%_ (lambda () _%r129586%_))) + (let ((_%try-match129590129614%_ (lambda () - (if (null? _%g125822125832%_) - (_%K125827125845%_) - (_%else125825125840%_))))) - (if (pair? _%g125822125832%_) - (let ((_%tl125830125859%_ (##cdr _%g125822125832%_)) - (_%hd125829125857%_ (##car _%g125822125832%_))) - (let ((_%hd125862%_ _%hd125829125857%_) - (_%rest125864%_ _%tl125830125859%_)) - (_%K125828125854%_ _%rest125864%_ _%hd125862%_))) - (_%try-match125824125848%_)))))))) + (if (null? _%g129588129598%_) + (_%K129593129611%_) + (_%else129591129606%_))))) + (if (pair? _%g129588129598%_) + (let ((_%tl129596129625%_ (##cdr _%g129588129598%_)) + (_%hd129595129623%_ (##car _%g129588129598%_))) + (let ((_%hd129628%_ _%hd129595129623%_) + (_%rest129630%_ _%tl129596129625%_)) + (_%K129594129620%_ _%rest129630%_ _%hd129628%_))) + (_%try-match129590129614%_)))))))) (define gx#stx-foldr - (lambda (_%f125763%_ _%iv125764%_ _%stx125765%_) - (if (procedure? _%f125763%_) + (lambda (_%f129529%_ _%iv129530%_ _%stx129531%_) + (if (procedure? _%f129529%_) '#!void - (error '"expected procedure" _%f125763%_)) - (let _%recur125767%_ ((_%rest125769%_ _%stx125765%_)) - (let* ((_%g125770125780%_ (gx#syntax-e _%rest125769%_)) - (_%else125773125788%_ - (lambda () (_%f125763%_ _%rest125769%_ _%iv125764%_)))) - (let ((_%K125776125802%_ - (lambda (_%rest125799%_ _%hd125800%_) - (_%f125763%_ - _%hd125800%_ - (_%recur125767%_ _%rest125799%_)))) - (_%K125775125793%_ (lambda () _%iv125764%_))) - (let ((_%try-match125772125796%_ + (error '"expected procedure" _%f129529%_)) + (let _%recur129533%_ ((_%rest129535%_ _%stx129531%_)) + (let* ((_%g129536129546%_ (gx#syntax-e _%rest129535%_)) + (_%else129539129554%_ + (lambda () (_%f129529%_ _%rest129535%_ _%iv129530%_)))) + (let ((_%K129542129568%_ + (lambda (_%rest129565%_ _%hd129566%_) + (_%f129529%_ + _%hd129566%_ + (_%recur129533%_ _%rest129565%_)))) + (_%K129541129559%_ (lambda () _%iv129530%_))) + (let ((_%try-match129538129562%_ (lambda () - (if (null? _%g125770125780%_) - (_%K125775125793%_) - (_%else125773125788%_))))) - (if (pair? _%g125770125780%_) - (let ((_%tl125778125807%_ (##cdr _%g125770125780%_)) - (_%hd125777125805%_ (##car _%g125770125780%_))) - (let ((_%hd125810%_ _%hd125777125805%_) - (_%rest125812%_ _%tl125778125807%_)) - (_%K125776125802%_ _%rest125812%_ _%hd125810%_))) - (_%try-match125772125796%_)))))))) + (if (null? _%g129536129546%_) + (_%K129541129559%_) + (_%else129539129554%_))))) + (if (pair? _%g129536129546%_) + (let ((_%tl129544129573%_ (##cdr _%g129536129546%_)) + (_%hd129543129571%_ (##car _%g129536129546%_))) + (let ((_%hd129576%_ _%hd129543129571%_) + (_%rest129578%_ _%tl129544129573%_)) + (_%K129542129568%_ _%rest129578%_ _%hd129576%_))) + (_%try-match129538129562%_)))))))) (define gx#stx-reverse - (lambda (_%stx125761%_) (gx#stx-foldl cons '() _%stx125761%_))) + (lambda (_%stx129527%_) (gx#stx-foldl cons '() _%stx129527%_))) (define gx#stx-last - (lambda (_%stx125722%_) - (let _%lp125724%_ ((_%rest125726%_ _%stx125722%_)) - (let* ((_%g125727125735%_ (gx#syntax-e _%rest125726%_)) - (_%else125729125743%_ (lambda () _%rest125726%_)) - (_%K125731125749%_ - (lambda (_%rest125746%_ _%hd125747%_) - (if (gx#stx-null? _%rest125746%_) - _%hd125747%_ - (_%lp125724%_ _%rest125746%_))))) - (if (pair? _%g125727125735%_) - (let ((_%hd125732125752%_ (##car _%g125727125735%_)) - (_%tl125733125754%_ (##cdr _%g125727125735%_))) - (let* ((_%hd125757%_ _%hd125732125752%_) - (_%rest125759%_ _%tl125733125754%_)) - (_%K125731125749%_ _%rest125759%_ _%hd125757%_))) - (_%else125729125743%_)))))) + (lambda (_%stx129488%_) + (let _%lp129490%_ ((_%rest129492%_ _%stx129488%_)) + (let* ((_%g129493129501%_ (gx#syntax-e _%rest129492%_)) + (_%else129495129509%_ (lambda () _%rest129492%_)) + (_%K129497129515%_ + (lambda (_%rest129512%_ _%hd129513%_) + (if (gx#stx-null? _%rest129512%_) + _%hd129513%_ + (_%lp129490%_ _%rest129512%_))))) + (if (pair? _%g129493129501%_) + (let ((_%hd129498129518%_ (##car _%g129493129501%_)) + (_%tl129499129520%_ (##cdr _%g129493129501%_))) + (let* ((_%hd129523%_ _%hd129498129518%_) + (_%rest129525%_ _%tl129499129520%_)) + (_%K129497129515%_ _%rest129525%_ _%hd129523%_))) + (_%else129495129509%_)))))) (define gx#stx-last-pair - (lambda (_%stx125693%_) - (let _%lp125695%_ ((_%hd125697%_ _%stx125693%_)) - (let* ((_%g125698125705%_ (gx#syntax-e _%hd125697%_)) - (_%E125700125709%_ + (lambda (_%stx129459%_) + (let _%lp129461%_ ((_%hd129463%_ _%stx129459%_)) + (let* ((_%g129464129471%_ (gx#syntax-e _%hd129463%_)) + (_%E129466129475%_ (lambda () (error '"No clause matching" - _%g125698125705%_ + _%g129464129471%_ '([_ . rest])) '#!void)) - (_%K125701125714%_ - (lambda (_%rest125712%_) - (if (gx#stx-pair? _%rest125712%_) - (_%lp125695%_ _%rest125712%_) - _%hd125697%_)))) - (if (pair? _%g125698125705%_) - (let* ((_%tl125703125717%_ (##cdr _%g125698125705%_)) - (_%rest125720%_ _%tl125703125717%_)) - (_%K125701125714%_ _%rest125720%_)) - (_%E125700125709%_)))))) + (_%K129467129480%_ + (lambda (_%rest129478%_) + (if (gx#stx-pair? _%rest129478%_) + (_%lp129461%_ _%rest129478%_) + _%hd129463%_)))) + (if (pair? _%g129464129471%_) + (let* ((_%tl129469129483%_ (##cdr _%g129464129471%_)) + (_%rest129486%_ _%tl129469129483%_)) + (_%K129467129480%_ _%rest129486%_)) + (_%E129466129475%_)))))) (define gx#stx-list-tail - (lambda (_%stx125662%_ _%k125663%_) - (let _%lp125665%_ ((_%rest125667%_ _%stx125662%_) - (_%k125668%_ _%k125663%_)) - (if (fxpositive? _%k125668%_) - (let* ((_%g125669125676%_ (gx#syntax-e _%rest125667%_)) - (_%E125671125680%_ + (lambda (_%stx129428%_ _%k129429%_) + (let _%lp129431%_ ((_%rest129433%_ _%stx129428%_) + (_%k129434%_ _%k129429%_)) + (if (fxpositive? _%k129434%_) + (let* ((_%g129435129442%_ (gx#syntax-e _%rest129433%_)) + (_%E129437129446%_ (lambda () (error '"No clause matching" - _%g125669125676%_ + _%g129435129442%_ '([_ . rest])) '#!void)) - (_%K125672125685%_ - (lambda (_%rest125683%_) - (_%lp125665%_ _%rest125683%_ (##fx- _%k125668%_ '1))))) - (if (pair? _%g125669125676%_) - (let* ((_%tl125674125688%_ (##cdr _%g125669125676%_)) - (_%rest125691%_ _%tl125674125688%_)) - (_%K125672125685%_ _%rest125691%_)) - (_%E125671125680%_))) - _%rest125667%_)))) + (_%K129438129451%_ + (lambda (_%rest129449%_) + (_%lp129431%_ _%rest129449%_ (##fx- _%k129434%_ '1))))) + (if (pair? _%g129435129442%_) + (let* ((_%tl129440129454%_ (##cdr _%g129435129442%_)) + (_%rest129457%_ _%tl129440129454%_)) + (_%K129438129451%_ _%rest129457%_)) + (_%E129437129446%_))) + _%rest129433%_)))) (define gx#stx-list-ref - (lambda (_%stx125659%_ _%k125660%_) - (gx#stx-car (gx#stx-list-tail _%stx125659%_ _%k125660%_)))) + (lambda (_%stx129425%_ _%k129426%_) + (gx#stx-car (gx#stx-list-tail _%stx129425%_ _%k129426%_)))) (define gx#stx-plist?__% - (lambda (_%stx125571%_ _%key?125572%_) - (if (procedure? _%key?125572%_) + (lambda (_%stx129337%_ _%key?129338%_) + (if (procedure? _%key?129338%_) '#!void - (error '"expected procedure" _%key?125572%_)) - (let _%lp125574%_ ((_%rest125576%_ _%stx125571%_)) - (let* ((_%g125577125587%_ (gx#stx-e _%rest125576%_)) - (_%else125580125595%_ (lambda () '#f))) - (let ((_%K125583125637%_ - (lambda (_%rest125606%_ _%hd125607%_) - (if (_%key?125572%_ _%hd125607%_) - (let* ((_%g125608125616%_ (gx#stx-e _%rest125606%_)) - (_%else125610125624%_ (lambda () '#f)) - (_%K125612125629%_ - (lambda (_%rest125627%_) - (_%lp125574%_ _%rest125627%_)))) - (if (pair? _%g125608125616%_) - (let* ((_%tl125614125632%_ - (##cdr _%g125608125616%_)) - (_%rest125635%_ _%tl125614125632%_)) - (_%lp125574%_ _%rest125635%_)) - (_%else125610125624%_))) + (error '"expected procedure" _%key?129338%_)) + (let _%lp129340%_ ((_%rest129342%_ _%stx129337%_)) + (let* ((_%g129343129353%_ (gx#stx-e _%rest129342%_)) + (_%else129346129361%_ (lambda () '#f))) + (let ((_%K129349129403%_ + (lambda (_%rest129372%_ _%hd129373%_) + (if (_%key?129338%_ _%hd129373%_) + (let* ((_%g129374129382%_ (gx#stx-e _%rest129372%_)) + (_%else129376129390%_ (lambda () '#f)) + (_%K129378129395%_ + (lambda (_%rest129393%_) + (_%lp129340%_ _%rest129393%_)))) + (if (pair? _%g129374129382%_) + (let* ((_%tl129380129398%_ + (##cdr _%g129374129382%_)) + (_%rest129401%_ _%tl129380129398%_)) + (_%lp129340%_ _%rest129401%_)) + (_%else129376129390%_))) '#f))) - (_%K125582125600%_ (lambda () '#t))) - (let ((_%try-match125579125603%_ + (_%K129348129366%_ (lambda () '#t))) + (let ((_%try-match129345129369%_ (lambda () - (if (null? _%g125577125587%_) - (_%K125582125600%_) - (_%else125580125595%_))))) - (if (pair? _%g125577125587%_) - (let ((_%tl125585125642%_ (##cdr _%g125577125587%_)) - (_%hd125584125640%_ (##car _%g125577125587%_))) - (let ((_%hd125645%_ _%hd125584125640%_) - (_%rest125647%_ _%tl125585125642%_)) - (_%K125583125637%_ _%rest125647%_ _%hd125645%_))) - (_%try-match125579125603%_)))))))) + (if (null? _%g129343129353%_) + (_%K129348129366%_) + (_%else129346129361%_))))) + (if (pair? _%g129343129353%_) + (let ((_%tl129351129408%_ (##cdr _%g129343129353%_)) + (_%hd129350129406%_ (##car _%g129343129353%_))) + (let ((_%hd129411%_ _%hd129350129406%_) + (_%rest129413%_ _%tl129351129408%_)) + (_%K129349129403%_ _%rest129413%_ _%hd129411%_))) + (_%try-match129345129369%_)))))))) (define gx#stx-plist?__0 - (lambda (_%stx125652%_) - (let ((_%key?125654%_ gx#stx-keyword?)) - (gx#stx-plist?__% _%stx125652%_ _%key?125654%_)))) + (lambda (_%stx129418%_) + (let ((_%key?129420%_ gx#stx-keyword?)) + (gx#stx-plist?__% _%stx129418%_ _%key?129420%_)))) (define gx#stx-plist? - (lambda _g126807_ - (let ((_g126808_ (##length _g126807_))) - (cond ((##fx= _g126808_ 1) (apply gx#stx-plist?__0 _g126807_)) - ((##fx= _g126808_ 2) (apply gx#stx-plist?__% _g126807_)) + (lambda _g130572_ + (let ((_g130573_ (##length _g130572_))) + (cond ((##fx= _g130573_ 1) (apply gx#stx-plist?__0 _g130572_)) + ((##fx= _g130573_ 2) (apply gx#stx-plist?__% _g130572_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-plist? - _g126807_)))))) + _g130572_)))))) (define gx#stx-getq__% - (lambda (_%key125489%_ _%stx125490%_ _%key=?125491%_) - (if (procedure? _%key=?125491%_) + (lambda (_%key129255%_ _%stx129256%_ _%key=?129257%_) + (if (procedure? _%key=?129257%_) '#!void - (error '"expected procedure" _%key=?125491%_)) - (let _%lp125493%_ ((_%rest125495%_ _%stx125490%_)) - (let* ((_%g125496125504%_ (gx#syntax-e _%rest125495%_)) - (_%else125498125512%_ (lambda () '#f)) - (_%K125500125546%_ - (lambda (_%rest125515%_ _%hd125516%_) - (let* ((_%g125517125524%_ (gx#syntax-e _%rest125515%_)) - (_%E125519125528%_ + (error '"expected procedure" _%key=?129257%_)) + (let _%lp129259%_ ((_%rest129261%_ _%stx129256%_)) + (let* ((_%g129262129270%_ (gx#syntax-e _%rest129261%_)) + (_%else129264129278%_ (lambda () '#f)) + (_%K129266129312%_ + (lambda (_%rest129281%_ _%hd129282%_) + (let* ((_%g129283129290%_ (gx#syntax-e _%rest129281%_)) + (_%E129285129294%_ (lambda () (error '"No clause matching" - _%g125517125524%_ + _%g129283129290%_ '([val . rest])) '#!void)) - (_%K125520125534%_ - (lambda (_%rest125531%_ _%val125532%_) - (if (_%key=?125491%_ _%hd125516%_ _%key125489%_) - _%val125532%_ - (_%lp125493%_ _%rest125531%_))))) - (if (pair? _%g125517125524%_) - (let ((_%hd125521125537%_ (##car _%g125517125524%_)) - (_%tl125522125539%_ (##cdr _%g125517125524%_))) - (let* ((_%val125542%_ _%hd125521125537%_) - (_%rest125544%_ _%tl125522125539%_)) - (_%K125520125534%_ - _%rest125544%_ - _%val125542%_))) - (_%E125519125528%_)))))) - (if (pair? _%g125496125504%_) - (let ((_%hd125501125549%_ (##car _%g125496125504%_)) - (_%tl125502125551%_ (##cdr _%g125496125504%_))) - (let* ((_%hd125554%_ _%hd125501125549%_) - (_%rest125556%_ _%tl125502125551%_)) - (_%K125500125546%_ _%rest125556%_ _%hd125554%_))) - (_%else125498125512%_)))))) + (_%K129286129300%_ + (lambda (_%rest129297%_ _%val129298%_) + (if (_%key=?129257%_ _%hd129282%_ _%key129255%_) + _%val129298%_ + (_%lp129259%_ _%rest129297%_))))) + (if (pair? _%g129283129290%_) + (let ((_%hd129287129303%_ (##car _%g129283129290%_)) + (_%tl129288129305%_ (##cdr _%g129283129290%_))) + (let* ((_%val129308%_ _%hd129287129303%_) + (_%rest129310%_ _%tl129288129305%_)) + (_%K129286129300%_ + _%rest129310%_ + _%val129308%_))) + (_%E129285129294%_)))))) + (if (pair? _%g129262129270%_) + (let ((_%hd129267129315%_ (##car _%g129262129270%_)) + (_%tl129268129317%_ (##cdr _%g129262129270%_))) + (let* ((_%hd129320%_ _%hd129267129315%_) + (_%rest129322%_ _%tl129268129317%_)) + (_%K129266129312%_ _%rest129322%_ _%hd129320%_))) + (_%else129264129278%_)))))) (define gx#stx-getq__0 - (lambda (_%key125561%_ _%stx125562%_) - (let ((_%key=?125564%_ gx#stx-eq?)) - (gx#stx-getq__% _%key125561%_ _%stx125562%_ _%key=?125564%_)))) + (lambda (_%key129327%_ _%stx129328%_) + (let ((_%key=?129330%_ gx#stx-eq?)) + (gx#stx-getq__% _%key129327%_ _%stx129328%_ _%key=?129330%_)))) (define gx#stx-getq - (lambda _g126809_ - (let ((_g126810_ (##length _g126809_))) - (cond ((##fx= _g126810_ 2) (apply gx#stx-getq__0 _g126809_)) - ((##fx= _g126810_ 3) (apply gx#stx-getq__% _g126809_)) + (lambda _g130574_ + (let ((_g130575_ (##length _g130574_))) + (cond ((##fx= _g130575_ 2) (apply gx#stx-getq__0 _g130574_)) + ((##fx= _g130575_ 3) (apply gx#stx-getq__% _g130574_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-getq - _g126809_)))))))) + _g130574_)))))))) diff --git a/src/bootstrap/gerbil/expander/stx~1.scm b/src/bootstrap/gerbil/expander/stx~1.scm index 3901e13628..f7f0e484c5 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]#_g126812_| + (define |gx[1]#_g130577_| (##structure gx#syntax-quote::t 'AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g126814_| + (define |gx[1]#_g130579_| (##structure gx#syntax-quote::t 'identifier-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g126816_| + (define |gx[1]#_g130581_| (##structure gx#syntax-quote::t 'make-identifier-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g126818_| + (define |gx[1]#_g130583_| (##structure gx#syntax-quote::t 'identifier-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g126820_| + (define |gx[1]#_g130585_| (##structure gx#syntax-quote::t 'identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g126821_| + (define |gx[1]#_g130586_| (##structure gx#syntax-quote::t 'identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g126822_| + (define |gx[1]#_g130587_| (##structure gx#syntax-quote::t 'identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g126824_| + (define |gx[1]#_g130589_| (##structure gx#syntax-quote::t 'identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g126825_| + (define |gx[1]#_g130590_| (##structure gx#syntax-quote::t 'identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g126826_| + (define |gx[1]#_g130591_| (##structure gx#syntax-quote::t 'identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g126828_| + (define |gx[1]#_g130593_| (##structure gx#syntax-quote::t '&identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g126829_| + (define |gx[1]#_g130594_| (##structure gx#syntax-quote::t '&identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g126830_| + (define |gx[1]#_g130595_| (##structure gx#syntax-quote::t '&identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g126832_| + (define |gx[1]#_g130597_| (##structure gx#syntax-quote::t '&identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g126833_| + (define |gx[1]#_g130598_| (##structure gx#syntax-quote::t '&identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g126834_| + (define |gx[1]#_g130599_| (##structure gx#syntax-quote::t '&identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g126837_| + (define |gx[1]#_g130602_| (##structure gx#syntax-quote::t 'syntax-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g126839_| + (define |gx[1]#_g130604_| (##structure gx#syntax-quote::t 'make-syntax-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g126841_| + (define |gx[1]#_g130606_| (##structure gx#syntax-quote::t 'syntax-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g126843_| + (define |gx[1]#_g130608_| (##structure gx#syntax-quote::t 'syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g126844_| + (define |gx[1]#_g130609_| (##structure gx#syntax-quote::t 'syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g126845_| + (define |gx[1]#_g130610_| (##structure gx#syntax-quote::t 'syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g126847_| + (define |gx[1]#_g130612_| (##structure gx#syntax-quote::t 'syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g126848_| + (define |gx[1]#_g130613_| (##structure gx#syntax-quote::t 'syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g126849_| + (define |gx[1]#_g130614_| (##structure gx#syntax-quote::t 'syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g126851_| + (define |gx[1]#_g130616_| (##structure gx#syntax-quote::t '&syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g126852_| + (define |gx[1]#_g130617_| (##structure gx#syntax-quote::t '&syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g126853_| + (define |gx[1]#_g130618_| (##structure gx#syntax-quote::t '&syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g126855_| + (define |gx[1]#_g130620_| (##structure gx#syntax-quote::t '&syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g126856_| + (define |gx[1]#_g130621_| (##structure gx#syntax-quote::t '&syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g126857_| + (define |gx[1]#_g130622_| (##structure gx#syntax-quote::t '&syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g126860_| + (define |gx[1]#_g130625_| (##structure gx#syntax-quote::t 'syntax-quote::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g126862_| + (define |gx[1]#_g130627_| (##structure gx#syntax-quote::t 'make-syntax-quote #f (gx#current-expander-context) '())) - (define |gx[1]#_g126864_| + (define |gx[1]#_g130629_| (##structure gx#syntax-quote::t 'syntax-quote? #f (gx#current-expander-context) '())) - (define |gx[1]#_g126866_| + (define |gx[1]#_g130631_| (##structure gx#syntax-quote::t 'syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g126867_| + (define |gx[1]#_g130632_| (##structure gx#syntax-quote::t 'syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g126868_| + (define |gx[1]#_g130633_| (##structure gx#syntax-quote::t 'syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g126869_| + (define |gx[1]#_g130634_| (##structure gx#syntax-quote::t 'syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g126871_| + (define |gx[1]#_g130636_| (##structure gx#syntax-quote::t 'syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g126872_| + (define |gx[1]#_g130637_| (##structure gx#syntax-quote::t 'syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g126873_| + (define |gx[1]#_g130638_| (##structure gx#syntax-quote::t 'syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g126874_| + (define |gx[1]#_g130639_| (##structure gx#syntax-quote::t 'syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g126876_| + (define |gx[1]#_g130641_| (##structure gx#syntax-quote::t '&syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g126877_| + (define |gx[1]#_g130642_| (##structure gx#syntax-quote::t '&syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g126878_| + (define |gx[1]#_g130643_| (##structure gx#syntax-quote::t '&syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g126879_| + (define |gx[1]#_g130644_| (##structure gx#syntax-quote::t '&syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g126881_| + (define |gx[1]#_g130646_| (##structure gx#syntax-quote::t '&syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g126882_| + (define |gx[1]#_g130647_| (##structure gx#syntax-quote::t '&syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g126883_| + (define |gx[1]#_g130648_| (##structure gx#syntax-quote::t '&syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g126884_| + (define |gx[1]#_g130649_| (##structure gx#syntax-quote::t '&syntax-quote-source-set! @@ -347,7 +347,7 @@ '())) (begin (define |gx[:0:]#identifier-wrap| - (let ((__obj126794 + (let ((__obj130559 (let () (declare (not safe)) (##structure @@ -376,85 +376,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj126794 + __obj130559 'gx#identifier-wrap::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126794 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj130559 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126794 '(marks) '4 '#f '#f)) + (##unchecked-structure-set! __obj130559 '(marks) '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj126794 + __obj130559 '(e source marks) - '6 + '7 '#f '#f)) - (let ((__tmp126811 (cons |gx[1]#_g126812_| '()))) + (let ((__tmp130576 (cons |gx[1]#_g130577_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj126794 __tmp126811 '3 '#f '#f)) + (##unchecked-structure-set! __obj130559 __tmp130576 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126794 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj130559 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126794 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj130559 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126794 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj130559 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126794 '#f '11 '#f '#f)) - (let ((__tmp126813 |gx[1]#_g126814_|)) + (##unchecked-structure-set! __obj130559 '#f '12 '#f '#f)) + (let ((__tmp130578 |gx[1]#_g130579_|)) (declare (not safe)) - (##unchecked-structure-set! __obj126794 __tmp126813 '12 '#f '#f)) - (let ((__tmp126815 |gx[1]#_g126816_|)) + (##unchecked-structure-set! __obj130559 __tmp130578 '3 '#f '#f)) + (let ((__tmp130580 |gx[1]#_g130581_|)) (declare (not safe)) - (##unchecked-structure-set! __obj126794 __tmp126815 '13 '#f '#f)) - (let ((__tmp126817 |gx[1]#_g126818_|)) + (##unchecked-structure-set! __obj130559 __tmp130580 '13 '#f '#f)) + (let ((__tmp130582 |gx[1]#_g130583_|)) (declare (not safe)) - (##unchecked-structure-set! __obj126794 __tmp126817 '14 '#f '#f)) - (let ((__tmp126819 - (cons (cons 'marks |gx[1]#_g126820_|) - (cons (cons 'e |gx[1]#_g126821_|) - (cons (cons 'source |gx[1]#_g126822_|) '()))))) + (##unchecked-structure-set! __obj130559 __tmp130582 '14 '#f '#f)) + (let ((__tmp130584 + (cons (cons 'marks |gx[1]#_g130585_|) + (cons (cons 'e |gx[1]#_g130586_|) + (cons (cons 'source |gx[1]#_g130587_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj126794 __tmp126819 '15 '#f '#f)) - (let ((__tmp126823 - (cons (cons 'marks |gx[1]#_g126824_|) - (cons (cons 'e |gx[1]#_g126825_|) - (cons (cons 'source |gx[1]#_g126826_|) '()))))) + (##unchecked-structure-set! __obj130559 __tmp130584 '15 '#f '#f)) + (let ((__tmp130588 + (cons (cons 'marks |gx[1]#_g130589_|) + (cons (cons 'e |gx[1]#_g130590_|) + (cons (cons 'source |gx[1]#_g130591_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj126794 __tmp126823 '16 '#f '#f)) - (let ((__tmp126827 - (cons (cons 'marks |gx[1]#_g126828_|) - (cons (cons 'e |gx[1]#_g126829_|) - (cons (cons 'source |gx[1]#_g126830_|) '()))))) + (##unchecked-structure-set! __obj130559 __tmp130588 '16 '#f '#f)) + (let ((__tmp130592 + (cons (cons 'marks |gx[1]#_g130593_|) + (cons (cons 'e |gx[1]#_g130594_|) + (cons (cons 'source |gx[1]#_g130595_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj126794 __tmp126827 '17 '#f '#f)) - (let ((__tmp126831 - (cons (cons 'marks |gx[1]#_g126832_|) - (cons (cons 'e |gx[1]#_g126833_|) - (cons (cons 'source |gx[1]#_g126834_|) '()))))) + (##unchecked-structure-set! __obj130559 __tmp130592 '17 '#f '#f)) + (let ((__tmp130596 + (cons (cons 'marks |gx[1]#_g130597_|) + (cons (cons 'e |gx[1]#_g130598_|) + (cons (cons 'source |gx[1]#_g130599_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj126794 __tmp126831 '18 '#f '#f)) + (##unchecked-structure-set! __obj130559 __tmp130596 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126794 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj130559 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126794 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj130559 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126794 '() '20 '#f '#f)) - __obj126794)) + (##unchecked-structure-set! __obj130559 '() '20 '#f '#f)) + __obj130559)) (define |gx[:0:]#syntax-wrap| - (let ((__obj126795 + (let ((__obj130560 (let () (declare (not safe)) (##structure @@ -483,80 +483,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj126795 + __obj130560 'gx#syntax-wrap::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126795 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj130560 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126795 '(mark) '4 '#f '#f)) + (##unchecked-structure-set! __obj130560 '(mark) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126795 '(e source mark) '6 '#f '#f)) - (let ((__tmp126835 (cons |gx[1]#_g126812_| '()))) + (##unchecked-structure-set! __obj130560 '(e source mark) '7 '#f '#f)) + (let ((__tmp130600 (cons |gx[1]#_g130577_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj126795 __tmp126835 '3 '#f '#f)) + (##unchecked-structure-set! __obj130560 __tmp130600 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126795 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj130560 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126795 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj130560 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126795 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj130560 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126795 '#f '11 '#f '#f)) - (let ((__tmp126836 |gx[1]#_g126837_|)) + (##unchecked-structure-set! __obj130560 '#f '12 '#f '#f)) + (let ((__tmp130601 |gx[1]#_g130602_|)) (declare (not safe)) - (##unchecked-structure-set! __obj126795 __tmp126836 '12 '#f '#f)) - (let ((__tmp126838 |gx[1]#_g126839_|)) + (##unchecked-structure-set! __obj130560 __tmp130601 '3 '#f '#f)) + (let ((__tmp130603 |gx[1]#_g130604_|)) (declare (not safe)) - (##unchecked-structure-set! __obj126795 __tmp126838 '13 '#f '#f)) - (let ((__tmp126840 |gx[1]#_g126841_|)) + (##unchecked-structure-set! __obj130560 __tmp130603 '13 '#f '#f)) + (let ((__tmp130605 |gx[1]#_g130606_|)) (declare (not safe)) - (##unchecked-structure-set! __obj126795 __tmp126840 '14 '#f '#f)) - (let ((__tmp126842 - (cons (cons 'mark |gx[1]#_g126843_|) - (cons (cons 'e |gx[1]#_g126844_|) - (cons (cons 'source |gx[1]#_g126845_|) '()))))) + (##unchecked-structure-set! __obj130560 __tmp130605 '14 '#f '#f)) + (let ((__tmp130607 + (cons (cons 'mark |gx[1]#_g130608_|) + (cons (cons 'e |gx[1]#_g130609_|) + (cons (cons 'source |gx[1]#_g130610_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj126795 __tmp126842 '15 '#f '#f)) - (let ((__tmp126846 - (cons (cons 'mark |gx[1]#_g126847_|) - (cons (cons 'e |gx[1]#_g126848_|) - (cons (cons 'source |gx[1]#_g126849_|) '()))))) + (##unchecked-structure-set! __obj130560 __tmp130607 '15 '#f '#f)) + (let ((__tmp130611 + (cons (cons 'mark |gx[1]#_g130612_|) + (cons (cons 'e |gx[1]#_g130613_|) + (cons (cons 'source |gx[1]#_g130614_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj126795 __tmp126846 '16 '#f '#f)) - (let ((__tmp126850 - (cons (cons 'mark |gx[1]#_g126851_|) - (cons (cons 'e |gx[1]#_g126852_|) - (cons (cons 'source |gx[1]#_g126853_|) '()))))) + (##unchecked-structure-set! __obj130560 __tmp130611 '16 '#f '#f)) + (let ((__tmp130615 + (cons (cons 'mark |gx[1]#_g130616_|) + (cons (cons 'e |gx[1]#_g130617_|) + (cons (cons 'source |gx[1]#_g130618_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj126795 __tmp126850 '17 '#f '#f)) - (let ((__tmp126854 - (cons (cons 'mark |gx[1]#_g126855_|) - (cons (cons 'e |gx[1]#_g126856_|) - (cons (cons 'source |gx[1]#_g126857_|) '()))))) + (##unchecked-structure-set! __obj130560 __tmp130615 '17 '#f '#f)) + (let ((__tmp130619 + (cons (cons 'mark |gx[1]#_g130620_|) + (cons (cons 'e |gx[1]#_g130621_|) + (cons (cons 'source |gx[1]#_g130622_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj126795 __tmp126854 '18 '#f '#f)) + (##unchecked-structure-set! __obj130560 __tmp130619 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126795 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj130560 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126795 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj130560 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126795 '() '20 '#f '#f)) - __obj126795)) + (##unchecked-structure-set! __obj130560 '() '20 '#f '#f)) + __obj130560)) (define |gx[:0:]#syntax-quote| - (let ((__obj126796 + (let ((__obj130561 (let () (declare (not safe)) (##structure @@ -585,88 +585,88 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj126796 + __obj130561 'gx#syntax-quote::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126796 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj130561 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126796 '(context marks) '4 '#f '#f)) + (##unchecked-structure-set! __obj130561 '(context marks) '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj126796 + __obj130561 '(e source context marks) - '6 + '7 '#f '#f)) - (let ((__tmp126858 (cons |gx[1]#_g126812_| '()))) + (let ((__tmp130623 (cons |gx[1]#_g130577_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj126796 __tmp126858 '3 '#f '#f)) + (##unchecked-structure-set! __obj130561 __tmp130623 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126796 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj130561 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126796 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj130561 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126796 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj130561 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126796 '#f '11 '#f '#f)) - (let ((__tmp126859 |gx[1]#_g126860_|)) + (##unchecked-structure-set! __obj130561 '#f '12 '#f '#f)) + (let ((__tmp130624 |gx[1]#_g130625_|)) (declare (not safe)) - (##unchecked-structure-set! __obj126796 __tmp126859 '12 '#f '#f)) - (let ((__tmp126861 |gx[1]#_g126862_|)) + (##unchecked-structure-set! __obj130561 __tmp130624 '3 '#f '#f)) + (let ((__tmp130626 |gx[1]#_g130627_|)) (declare (not safe)) - (##unchecked-structure-set! __obj126796 __tmp126861 '13 '#f '#f)) - (let ((__tmp126863 |gx[1]#_g126864_|)) + (##unchecked-structure-set! __obj130561 __tmp130626 '13 '#f '#f)) + (let ((__tmp130628 |gx[1]#_g130629_|)) (declare (not safe)) - (##unchecked-structure-set! __obj126796 __tmp126863 '14 '#f '#f)) - (let ((__tmp126865 - (cons (cons 'context |gx[1]#_g126866_|) - (cons (cons 'marks |gx[1]#_g126867_|) - (cons (cons 'e |gx[1]#_g126868_|) - (cons (cons 'source |gx[1]#_g126869_|) + (##unchecked-structure-set! __obj130561 __tmp130628 '14 '#f '#f)) + (let ((__tmp130630 + (cons (cons 'context |gx[1]#_g130631_|) + (cons (cons 'marks |gx[1]#_g130632_|) + (cons (cons 'e |gx[1]#_g130633_|) + (cons (cons 'source |gx[1]#_g130634_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj126796 __tmp126865 '15 '#f '#f)) - (let ((__tmp126870 - (cons (cons 'context |gx[1]#_g126871_|) - (cons (cons 'marks |gx[1]#_g126872_|) - (cons (cons 'e |gx[1]#_g126873_|) - (cons (cons 'source |gx[1]#_g126874_|) + (##unchecked-structure-set! __obj130561 __tmp130630 '15 '#f '#f)) + (let ((__tmp130635 + (cons (cons 'context |gx[1]#_g130636_|) + (cons (cons 'marks |gx[1]#_g130637_|) + (cons (cons 'e |gx[1]#_g130638_|) + (cons (cons 'source |gx[1]#_g130639_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj126796 __tmp126870 '16 '#f '#f)) - (let ((__tmp126875 - (cons (cons 'context |gx[1]#_g126876_|) - (cons (cons 'marks |gx[1]#_g126877_|) - (cons (cons 'e |gx[1]#_g126878_|) - (cons (cons 'source |gx[1]#_g126879_|) + (##unchecked-structure-set! __obj130561 __tmp130635 '16 '#f '#f)) + (let ((__tmp130640 + (cons (cons 'context |gx[1]#_g130641_|) + (cons (cons 'marks |gx[1]#_g130642_|) + (cons (cons 'e |gx[1]#_g130643_|) + (cons (cons 'source |gx[1]#_g130644_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj126796 __tmp126875 '17 '#f '#f)) - (let ((__tmp126880 - (cons (cons 'context |gx[1]#_g126881_|) - (cons (cons 'marks |gx[1]#_g126882_|) - (cons (cons 'e |gx[1]#_g126883_|) - (cons (cons 'source |gx[1]#_g126884_|) + (##unchecked-structure-set! __obj130561 __tmp130640 '17 '#f '#f)) + (let ((__tmp130645 + (cons (cons 'context |gx[1]#_g130646_|) + (cons (cons 'marks |gx[1]#_g130647_|) + (cons (cons 'e |gx[1]#_g130648_|) + (cons (cons 'source |gx[1]#_g130649_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj126796 __tmp126880 '18 '#f '#f)) + (##unchecked-structure-set! __obj130561 __tmp130645 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126796 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj130561 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126796 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj130561 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj126796 '() '20 '#f '#f)) - __obj126796)))) + (##unchecked-structure-set! __obj130561 '() '20 '#f '#f)) + __obj130561)))) diff --git a/src/bootstrap/gerbil/expander/top~0.scm b/src/bootstrap/gerbil/expander/top~0.scm index d6658fab42..dba9fcd56a 100644 --- a/src/bootstrap/gerbil/expander/top~0.scm +++ b/src/bootstrap/gerbil/expander/top~0.scm @@ -1,397 +1,397 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/top::timestamp 1756721295) + (define gerbil/expander/top::timestamp 1769384628) (begin (declare (not safe)) (define gx#core-expand-begin% - (lambda (_%stx133823%_) - (letrec ((_%expand-special133825%_ - (lambda (_%hd133827%_ _%K133828%_ _%rest133829%_ _%r133830%_) - (_%K133828%_ - _%rest133829%_ - (cons (gx#core-expand-top _%hd133827%_) _%r133830%_))))) - (gx#core-expand-block__0 _%stx133823%_ _%expand-special133825%_)))) + (lambda (_%stx137584%_) + (letrec ((_%expand-special137586%_ + (lambda (_%hd137588%_ _%K137589%_ _%rest137590%_ _%r137591%_) + (_%K137589%_ + _%rest137590%_ + (cons (gx#core-expand-top _%hd137588%_) _%r137591%_))))) + (gx#core-expand-block__0 _%stx137584%_ _%expand-special137586%_)))) (define gx#core-expand-begin-syntax% - (lambda (_%stx133576%_) - (letrec ((_%expand-special133578%_ - (lambda (_%hd133698%_ _%K133699%_ _%rest133700%_ _%r133701%_) - (let* ((_%K133705%_ - (lambda (_%e133703%_) - (_%K133699%_ - _%rest133700%_ - (cons _%e133703%_ _%r133701%_)))) - (_%e133706133735%_ _%hd133698%_) - (_%E133730133739%_ + (lambda (_%stx137337%_) + (letrec ((_%expand-special137339%_ + (lambda (_%hd137459%_ _%K137460%_ _%rest137461%_ _%r137462%_) + (let* ((_%K137466%_ + (lambda (_%e137464%_) + (_%K137460%_ + _%rest137461%_ + (cons _%e137464%_ _%r137462%_)))) + (_%e137467137496%_ _%hd137459%_) + (_%E137491137500%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e133706133735%_))) - (_%E133726133751%_ + _%e137467137496%_))) + (_%E137487137512%_ (lambda () - (if (gx#stx-pair? _%e133706133735%_) - (let ((_%e133731133743%_ - (gx#syntax-e _%e133706133735%_))) - (let ((_%hd133732133746%_ - (##car _%e133731133743%_)) - (_%tl133733133748%_ - (##cdr _%e133731133743%_))) + (if (gx#stx-pair? _%e137467137496%_) + (let ((_%e137492137504%_ + (gx#syntax-e _%e137467137496%_))) + (let ((_%hd137493137507%_ + (##car _%e137492137504%_)) + (_%tl137494137509%_ + (##cdr _%e137492137504%_))) (if (and (gx#identifier? - _%hd133732133746%_) + _%hd137493137507%_) (gx#core-identifier=? - _%hd133732133746%_ + _%hd137493137507%_ '%#define-runtime)) - (_%K133705%_ + (_%K137466%_ (gx#core-expand-define-runtime% - _%hd133698%_)) - (_%E133730133739%_)))) - (_%E133730133739%_)))) - (_%E133722133763%_ + _%hd137459%_)) + (_%E137491137500%_)))) + (_%E137491137500%_)))) + (_%E137483137524%_ (lambda () - (if (gx#stx-pair? _%e133706133735%_) - (let ((_%e133727133755%_ - (gx#syntax-e _%e133706133735%_))) - (let ((_%hd133728133758%_ - (##car _%e133727133755%_)) - (_%tl133729133760%_ - (##cdr _%e133727133755%_))) + (if (gx#stx-pair? _%e137467137496%_) + (let ((_%e137488137516%_ + (gx#syntax-e _%e137467137496%_))) + (let ((_%hd137489137519%_ + (##car _%e137488137516%_)) + (_%tl137490137521%_ + (##cdr _%e137488137516%_))) (if (and (gx#identifier? - _%hd133728133758%_) + _%hd137489137519%_) (gx#core-identifier=? - _%hd133728133758%_ + _%hd137489137519%_ '%#define-alias)) - (_%K133705%_ + (_%K137466%_ (gx#core-expand-define-alias% - _%hd133698%_)) - (_%E133726133751%_)))) - (_%E133726133751%_)))) - (_%E133712133775%_ + _%hd137459%_)) + (_%E137487137512%_)))) + (_%E137487137512%_)))) + (_%E137473137536%_ (lambda () - (if (gx#stx-pair? _%e133706133735%_) - (let ((_%e133723133767%_ - (gx#syntax-e _%e133706133735%_))) - (let ((_%hd133724133770%_ - (##car _%e133723133767%_)) - (_%tl133725133772%_ - (##cdr _%e133723133767%_))) + (if (gx#stx-pair? _%e137467137496%_) + (let ((_%e137484137528%_ + (gx#syntax-e _%e137467137496%_))) + (let ((_%hd137485137531%_ + (##car _%e137484137528%_)) + (_%tl137486137533%_ + (##cdr _%e137484137528%_))) (if (and (gx#identifier? - _%hd133724133770%_) + _%hd137485137531%_) (gx#core-identifier=? - _%hd133724133770%_ + _%hd137485137531%_ '%#define-syntax)) - (_%K133705%_ + (_%K137466%_ (gx#core-expand-define-syntax% - _%hd133698%_)) - (_%E133722133763%_)))) - (_%E133722133763%_)))) - (_%E133708133807%_ + _%hd137459%_)) + (_%E137483137524%_)))) + (_%E137483137524%_)))) + (_%E137469137568%_ (lambda () - (if (gx#stx-pair? _%e133706133735%_) - (let ((_%e133713133779%_ - (gx#syntax-e _%e133706133735%_))) - (let ((_%hd133714133782%_ - (##car _%e133713133779%_)) - (_%tl133715133784%_ - (##cdr _%e133713133779%_))) + (if (gx#stx-pair? _%e137467137496%_) + (let ((_%e137474137540%_ + (gx#syntax-e _%e137467137496%_))) + (let ((_%hd137475137543%_ + (##car _%e137474137540%_)) + (_%tl137476137545%_ + (##cdr _%e137474137540%_))) (if (and (gx#identifier? - _%hd133714133782%_) + _%hd137475137543%_) (gx#core-identifier=? - _%hd133714133782%_ + _%hd137475137543%_ '%#define-values)) - (if (gx#stx-pair? _%tl133715133784%_) - (let ((_%e133716133787%_ + (if (gx#stx-pair? _%tl137476137545%_) + (let ((_%e137477137548%_ (gx#syntax-e - _%tl133715133784%_))) - (let ((_%hd133717133790%_ - (##car _%e133716133787%_)) - (_%tl133718133792%_ - (##cdr _%e133716133787%_))) - (let ((_%hd-bind133795%_ - _%hd133717133790%_)) + _%tl137476137545%_))) + (let ((_%hd137478137551%_ + (##car _%e137477137548%_)) + (_%tl137479137553%_ + (##cdr _%e137477137548%_))) + (let ((_%hd-bind137556%_ + _%hd137478137551%_)) (if (gx#stx-pair? - _%tl133718133792%_) - (let ((_%e133719133797%_ + _%tl137479137553%_) + (let ((_%e137480137558%_ (gx#syntax-e - _%tl133718133792%_))) - (let ((_%hd133720133800%_ + _%tl137479137553%_))) + (let ((_%hd137481137561%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e133719133797%_)) - (_%tl133721133802%_ (##cdr _%e133719133797%_))) - (let ((_%expr133805%_ _%hd133720133800%_)) - (if (gx#stx-null? _%tl133721133802%_) - (if (gx#core-bind-values? _%hd-bind133795%_) + (##car _%e137480137558%_)) + (_%tl137482137563%_ (##cdr _%e137480137558%_))) + (let ((_%expr137566%_ _%hd137481137561%_)) + (if (gx#stx-null? _%tl137482137563%_) + (if (gx#core-bind-values? _%hd-bind137556%_) (begin - (gx#core-bind-values!__0 _%hd-bind133795%_) - (_%K133705%_ _%hd133698%_)) - (_%E133712133775%_)) - (_%E133712133775%_))))) - (_%E133712133775%_))))) + (gx#core-bind-values!__0 _%hd-bind137556%_) + (_%K137466%_ _%hd137459%_)) + (_%E137473137536%_)) + (_%E137473137536%_))))) + (_%E137473137536%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E133712133775%_)) - (_%E133712133775%_)))) - (_%E133712133775%_)))) - (_%E133707133819%_ + (_%E137473137536%_)) + (_%E137473137536%_)))) + (_%E137473137536%_)))) + (_%E137468137580%_ (lambda () - (if (gx#stx-pair? _%e133706133735%_) - (let ((_%e133709133811%_ - (gx#syntax-e _%e133706133735%_))) - (let ((_%hd133710133814%_ - (##car _%e133709133811%_)) - (_%tl133711133816%_ - (##cdr _%e133709133811%_))) + (if (gx#stx-pair? _%e137467137496%_) + (let ((_%e137470137572%_ + (gx#syntax-e _%e137467137496%_))) + (let ((_%hd137471137575%_ + (##car _%e137470137572%_)) + (_%tl137472137577%_ + (##cdr _%e137470137572%_))) (if (and (gx#identifier? - _%hd133710133814%_) + _%hd137471137575%_) (gx#core-identifier=? - _%hd133710133814%_ + _%hd137471137575%_ '%#begin-syntax)) - (_%K133705%_ + (_%K137466%_ (gx#core-expand-begin-syntax% - _%hd133698%_)) - (_%E133708133807%_)))) - (_%E133708133807%_))))) - (_%E133707133819%_)))) - (_%eval-body133579%_ - (lambda (_%rbody133587%_) - (let _%lp133589%_ ((_%rest133591%_ _%rbody133587%_) - (_%body133592%_ '()) - (_%ebody133593%_ '())) - (let* ((_%rest133594133602%_ _%rest133591%_) - (_%else133596133610%_ + _%hd137459%_)) + (_%E137469137568%_)))) + (_%E137469137568%_))))) + (_%E137468137580%_)))) + (_%eval-body137340%_ + (lambda (_%rbody137348%_) + (let _%lp137350%_ ((_%rest137352%_ _%rbody137348%_) + (_%body137353%_ '()) + (_%ebody137354%_ '())) + (let* ((_%rest137355137363%_ _%rest137352%_) + (_%else137357137371%_ (lambda () - (values _%body133592%_ + (values _%body137353%_ (gx#eval-syntax* (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%ebody133593%_) - (gx#stx-source _%stx133576%_)))))) - (_%K133598133686%_ - (lambda (_%rest133613%_ _%hd133614%_) - (let* ((_%e133615133632%_ _%hd133614%_) - (_%E133627133636%_ + _%ebody137354%_) + (gx#stx-source _%stx137337%_)))))) + (_%K137359137447%_ + (lambda (_%rest137374%_ _%hd137375%_) + (let* ((_%e137376137393%_ _%hd137375%_) + (_%E137388137397%_ (lambda () - (_%lp133589%_ - _%rest133613%_ - (cons _%hd133614%_ _%body133592%_) - (cons _%hd133614%_ - _%ebody133593%_)))) - (_%E133617133648%_ + (_%lp137350%_ + _%rest137374%_ + (cons _%hd137375%_ _%body137353%_) + (cons _%hd137375%_ + _%ebody137354%_)))) + (_%E137378137409%_ (lambda () - (if (gx#stx-pair? _%e133615133632%_) - (let ((_%e133628133640%_ + (if (gx#stx-pair? _%e137376137393%_) + (let ((_%e137389137401%_ (gx#syntax-e - _%e133615133632%_))) - (let ((_%hd133629133643%_ - (##car _%e133628133640%_)) - (_%tl133630133645%_ - (##cdr _%e133628133640%_))) + _%e137376137393%_))) + (let ((_%hd137390137404%_ + (##car _%e137389137401%_)) + (_%tl137391137406%_ + (##cdr _%e137389137401%_))) (if (and (gx#identifier? - _%hd133629133643%_) + _%hd137390137404%_) (gx#core-identifier=? - _%hd133629133643%_ + _%hd137390137404%_ '%#begin-syntax)) - (_%lp133589%_ - _%rest133613%_ - (cons _%hd133614%_ - _%body133592%_) - _%ebody133593%_) - (_%E133627133636%_)))) - (_%E133627133636%_)))) - (_%E133616133682%_ + (_%lp137350%_ + _%rest137374%_ + (cons _%hd137375%_ + _%body137353%_) + _%ebody137354%_) + (_%E137388137397%_)))) + (_%E137388137397%_)))) + (_%E137377137443%_ (lambda () - (if (gx#stx-pair? _%e133615133632%_) - (let ((_%e133618133652%_ + (if (gx#stx-pair? _%e137376137393%_) + (let ((_%e137379137413%_ (gx#syntax-e - _%e133615133632%_))) - (let ((_%hd133619133655%_ - (##car _%e133618133652%_)) - (_%tl133620133657%_ - (##cdr _%e133618133652%_))) + _%e137376137393%_))) + (let ((_%hd137380137416%_ + (##car _%e137379137413%_)) + (_%tl137381137418%_ + (##cdr _%e137379137413%_))) (if (and (gx#identifier? - _%hd133619133655%_) + _%hd137380137416%_) (gx#core-identifier=? - _%hd133619133655%_ + _%hd137380137416%_ '%#define-values)) (if (gx#stx-pair? - _%tl133620133657%_) - (let ((_%e133621133660%_ + _%tl137381137418%_) + (let ((_%e137382137421%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl133620133657%_))) - (let ((_%hd133622133663%_ (##car _%e133621133660%_)) - (_%tl133623133665%_ (##cdr _%e133621133660%_))) - (let ((_%hd-bind133668%_ _%hd133622133663%_)) - (if (gx#stx-pair? _%tl133623133665%_) - (let ((_%e133624133670%_ - (gx#syntax-e _%tl133623133665%_))) - (let ((_%hd133625133673%_ - (##car _%e133624133670%_)) - (_%tl133626133675%_ - (##cdr _%e133624133670%_))) - (let ((_%expr133678%_ _%hd133625133673%_)) - (if (gx#stx-null? _%tl133626133675%_) - (let ((_%ehd133680%_ + (gx#syntax-e _%tl137381137418%_))) + (let ((_%hd137383137424%_ (##car _%e137382137421%_)) + (_%tl137384137426%_ (##cdr _%e137382137421%_))) + (let ((_%hd-bind137429%_ _%hd137383137424%_)) + (if (gx#stx-pair? _%tl137384137426%_) + (let ((_%e137385137431%_ + (gx#syntax-e _%tl137384137426%_))) + (let ((_%hd137386137434%_ + (##car _%e137385137431%_)) + (_%tl137387137436%_ + (##cdr _%e137385137431%_))) + (let ((_%expr137439%_ _%hd137386137434%_)) + (if (gx#stx-null? _%tl137387137436%_) + (let ((_%ehd137441%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values - _%hd-bind133668%_) + _%hd-bind137429%_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr133678%_) + _%expr137439%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%hd133614%_)))) - (_%lp133589%_ - _%rest133613%_ - (cons _%ehd133680%_ _%body133592%_) - (cons _%ehd133680%_ _%ebody133593%_))) - (_%E133617133648%_))))) - (_%E133617133648%_))))) - (_%E133617133648%_)) - (_%E133617133648%_)))) + (gx#stx-source _%hd137375%_)))) + (_%lp137350%_ + _%rest137374%_ + (cons _%ehd137441%_ _%body137353%_) + (cons _%ehd137441%_ _%ebody137354%_))) + (_%E137378137409%_))))) + (_%E137378137409%_))))) + (_%E137378137409%_)) + (_%E137378137409%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E133617133648%_))))) - (_%E133616133682%_))))) - (if (pair? _%rest133594133602%_) - (let ((_%hd133599133689%_ - (##car _%rest133594133602%_)) - (_%tl133600133691%_ - (##cdr _%rest133594133602%_))) - (let* ((_%hd133694%_ _%hd133599133689%_) - (_%rest133696%_ _%tl133600133691%_)) - (_%K133598133686%_ - _%rest133696%_ - _%hd133694%_))) - (_%else133596133610%_))))))) + (_%E137378137409%_))))) + (_%E137377137443%_))))) + (if (pair? _%rest137355137363%_) + (let ((_%hd137360137450%_ + (##car _%rest137355137363%_)) + (_%tl137361137452%_ + (##cdr _%rest137355137363%_))) + (let* ((_%hd137455%_ _%hd137360137450%_) + (_%rest137457%_ _%tl137361137452%_)) + (_%K137359137447%_ + _%rest137457%_ + _%hd137455%_))) + (_%else137357137371%_))))))) (call-with-parameters__1 (lambda () - (let* ((_%rbody133582%_ + (let* ((_%rbody137343%_ (gx#core-expand-block__1 - _%stx133576%_ - _%expand-special133578%_ + _%stx137337%_ + _%expand-special137339%_ '#f)) - (_g133846_ (_%eval-body133579%_ _%rbody133582%_))) + (_g137607_ (_%eval-body137340%_ _%rbody137343%_))) (begin - (let ((_g133847_ - (if (##values? _g133846_) - (##values-length _g133846_) + (let ((_g137608_ + (if (##values? _g137607_) + (##values-length _g137607_) 1))) - (if (not (##fx= _g133847_ 2)) - (error "Context expects 2 values" _g133847_))) - (let ((_%expanded-body133584%_ (##values-ref _g133846_ 0)) - (_%value133585%_ (##values-ref _g133846_ 1))) + (if (not (##fx= _g137608_ 2)) + (error "Context expects 2 values" _g137608_))) + (let ((_%expanded-body137345%_ (##values-ref _g137607_ 0)) + (_%value137346%_ (##values-ref _g137607_ 1))) (gx#core-quote-syntax__1 (if (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - (gx#core-cons '%#begin-syntax _%expanded-body133584%_) + (gx#core-cons '%#begin-syntax _%expanded-body137345%_) (cons (gx#core-quote-syntax__0 '%#quote) - (cons _%value133585%_ '()))) - (gx#stx-source _%stx133576%_)))))) + (cons _%value137346%_ '()))) + (gx#stx-source _%stx137337%_)))))) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1))))) (define gx#core-expand-begin-foreign% - (lambda (_%stx133546%_) - (let* ((_%e133547133554%_ _%stx133546%_) - (_%E133549133558%_ + (lambda (_%stx137307%_) + (let* ((_%e137308137315%_ _%stx137307%_) + (_%E137310137319%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e133547133554%_))) - (_%E133548133572%_ + _%e137308137315%_))) + (_%E137309137333%_ (lambda () - (if (gx#stx-pair? _%e133547133554%_) - (let ((_%e133550133562%_ - (gx#syntax-e _%e133547133554%_))) - (let ((_%hd133551133565%_ (##car _%e133550133562%_)) - (_%tl133552133567%_ (##cdr _%e133550133562%_))) - (let ((_%body133570%_ _%tl133552133567%_)) - (if (gx#stx-list? _%body133570%_) + (if (gx#stx-pair? _%e137308137315%_) + (let ((_%e137311137323%_ + (gx#syntax-e _%e137308137315%_))) + (let ((_%hd137312137326%_ (##car _%e137311137323%_)) + (_%tl137313137328%_ (##cdr _%e137311137323%_))) + (let ((_%body137331%_ _%tl137313137328%_)) + (if (gx#stx-list? _%body137331%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin-foreign _%body133570%_) - (gx#stx-source _%stx133546%_)) - (_%E133549133558%_))))) - (_%E133549133558%_))))) - (_%E133548133572%_)))) + (gx#core-cons '%#begin-foreign _%body137331%_) + (gx#stx-source _%stx137307%_)) + (_%E137310137319%_))))) + (_%E137310137319%_))))) + (_%E137309137333%_)))) (define gx#core-expand-begin-module% - (lambda (_%stx133544%_) - (gx#raise-syntax-error '#f '"Illegal expansion" _%stx133544%_))) + (lambda (_%stx137305%_) + (gx#raise-syntax-error '#f '"Illegal expansion" _%stx137305%_))) (define gx#core-expand-begin-annotation% - (lambda (_%stx133490%_) - (let* ((_%e133491133504%_ _%stx133490%_) - (_%E133493133508%_ + (lambda (_%stx137251%_) + (let* ((_%e137252137265%_ _%stx137251%_) + (_%E137254137269%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e133491133504%_))) - (_%E133492133540%_ + _%e137252137265%_))) + (_%E137253137301%_ (lambda () - (if (gx#stx-pair? _%e133491133504%_) - (let ((_%e133494133512%_ - (gx#syntax-e _%e133491133504%_))) - (let ((_%hd133495133515%_ (##car _%e133494133512%_)) - (_%tl133496133517%_ (##cdr _%e133494133512%_))) - (if (gx#stx-pair? _%tl133496133517%_) - (let ((_%e133497133520%_ - (gx#syntax-e _%tl133496133517%_))) - (let ((_%hd133498133523%_ - (##car _%e133497133520%_)) - (_%tl133499133525%_ - (##cdr _%e133497133520%_))) - (let ((_%ann133528%_ _%hd133498133523%_)) - (if (gx#stx-pair? _%tl133499133525%_) - (let ((_%e133500133530%_ + (if (gx#stx-pair? _%e137252137265%_) + (let ((_%e137255137273%_ + (gx#syntax-e _%e137252137265%_))) + (let ((_%hd137256137276%_ (##car _%e137255137273%_)) + (_%tl137257137278%_ (##cdr _%e137255137273%_))) + (if (gx#stx-pair? _%tl137257137278%_) + (let ((_%e137258137281%_ + (gx#syntax-e _%tl137257137278%_))) + (let ((_%hd137259137284%_ + (##car _%e137258137281%_)) + (_%tl137260137286%_ + (##cdr _%e137258137281%_))) + (let ((_%ann137289%_ _%hd137259137284%_)) + (if (gx#stx-pair? _%tl137260137286%_) + (let ((_%e137261137291%_ (gx#syntax-e - _%tl133499133525%_))) - (let ((_%hd133501133533%_ - (##car _%e133500133530%_)) - (_%tl133502133535%_ - (##cdr _%e133500133530%_))) - (let ((_%expr133538%_ - _%hd133501133533%_)) + _%tl137260137286%_))) + (let ((_%hd137262137294%_ + (##car _%e137261137291%_)) + (_%tl137263137296%_ + (##cdr _%e137261137291%_))) + (let ((_%expr137299%_ + _%hd137262137294%_)) (if (gx#stx-null? - _%tl133502133535%_) + _%tl137263137296%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _%ann133528%_ + (cons _%ann137289%_ (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr133538%_) + _%expr137299%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _%stx133490%_)) - (_%E133493133508%_))))) - (_%E133493133508%_))))) - (_%E133493133508%_)))) - (_%E133493133508%_))))) - (_%E133492133540%_)))) + _%stx137251%_)) + (_%E137254137269%_))))) + (_%E137254137269%_))))) + (_%E137254137269%_)))) + (_%E137254137269%_))))) + (_%E137253137301%_)))) (define gx#core-expand-local-block - (lambda (_%stx133214%_ _%body133215%_) - (letrec ((_%expand-special133217%_ - (lambda (_%hd133485%_ _%K133486%_ _%rest133487%_ _%r133488%_) - (_%K133486%_ + (lambda (_%stx136975%_ _%body136976%_) + (letrec ((_%expand-special136978%_ + (lambda (_%hd137246%_ _%K137247%_ _%rest137248%_ _%r137249%_) + (_%K137247%_ '() - (cons (_%expand-internal133218%_ - _%hd133485%_ - _%rest133487%_) - _%r133488%_)))) - (_%expand-internal133218%_ - (lambda (_%hd133481%_ _%rest133482%_) + (cons (_%expand-internal136979%_ + _%hd137246%_ + _%rest137248%_) + _%r137249%_)))) + (_%expand-internal136979%_ + (lambda (_%hd137242%_ _%rest137243%_) (call-with-parameters__1 (lambda () - (_%wrap-internal133220%_ + (_%wrap-internal136981%_ (gx#core-expand-block__1 (gx#stx-wrap-source - (cons '%#begin (cons _%hd133481%_ _%rest133482%_)) - (gx#stx-source _%stx133214%_)) - _%expand-internal-special133219%_ + (cons '%#begin (cons _%hd137242%_ _%rest137243%_)) + (gx#stx-source _%stx136975%_)) + _%expand-internal-special136980%_ '#f))) gx#current-expander-context - (let ((__obj133840 + (let ((__obj137601 (##structure gx#local-context::t '#f @@ -399,750 +399,750 @@ '#f '#f '#f))) - (gx#local-context:::init!__0 __obj133840) - __obj133840)))) - (_%expand-internal-special133219%_ - (lambda (_%hd133376%_ _%K133377%_ _%rest133378%_ _%r133379%_) - (let* ((_%e133380133405%_ _%hd133376%_) - (_%E133400133409%_ + (gx#local-context:::init!__0 __obj137601) + __obj137601)))) + (_%expand-internal-special136980%_ + (lambda (_%hd137137%_ _%K137138%_ _%rest137139%_ _%r137140%_) + (let* ((_%e137141137166%_ _%hd137137%_) + (_%E137161137170%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e133380133405%_))) - (_%E133396133421%_ + _%e137141137166%_))) + (_%E137157137182%_ (lambda () - (if (gx#stx-pair? _%e133380133405%_) - (let ((_%e133401133413%_ - (gx#syntax-e _%e133380133405%_))) - (let ((_%hd133402133416%_ - (##car _%e133401133413%_)) - (_%tl133403133418%_ - (##cdr _%e133401133413%_))) + (if (gx#stx-pair? _%e137141137166%_) + (let ((_%e137162137174%_ + (gx#syntax-e _%e137141137166%_))) + (let ((_%hd137163137177%_ + (##car _%e137162137174%_)) + (_%tl137164137179%_ + (##cdr _%e137162137174%_))) (if (and (gx#identifier? - _%hd133402133416%_) + _%hd137163137177%_) (gx#core-identifier=? - _%hd133402133416%_ + _%hd137163137177%_ '%#declare)) - (_%K133377%_ - _%rest133378%_ + (_%K137138%_ + _%rest137139%_ (cons (gx#core-expand-declare% - _%hd133376%_) - _%r133379%_)) - (_%E133400133409%_)))) - (_%E133400133409%_)))) - (_%E133392133433%_ + _%hd137137%_) + _%r137140%_)) + (_%E137161137170%_)))) + (_%E137161137170%_)))) + (_%E137153137194%_ (lambda () - (if (gx#stx-pair? _%e133380133405%_) - (let ((_%e133397133425%_ - (gx#syntax-e _%e133380133405%_))) - (let ((_%hd133398133428%_ - (##car _%e133397133425%_)) - (_%tl133399133430%_ - (##cdr _%e133397133425%_))) + (if (gx#stx-pair? _%e137141137166%_) + (let ((_%e137158137186%_ + (gx#syntax-e _%e137141137166%_))) + (let ((_%hd137159137189%_ + (##car _%e137158137186%_)) + (_%tl137160137191%_ + (##cdr _%e137158137186%_))) (if (and (gx#identifier? - _%hd133398133428%_) + _%hd137159137189%_) (gx#core-identifier=? - _%hd133398133428%_ + _%hd137159137189%_ '%#define-alias)) (begin (gx#core-expand-define-alias% - _%hd133376%_) - (_%K133377%_ - _%rest133378%_ - _%r133379%_)) - (_%E133396133421%_)))) - (_%E133396133421%_)))) - (_%E133382133445%_ + _%hd137137%_) + (_%K137138%_ + _%rest137139%_ + _%r137140%_)) + (_%E137157137182%_)))) + (_%E137157137182%_)))) + (_%E137143137206%_ (lambda () - (if (gx#stx-pair? _%e133380133405%_) - (let ((_%e133393133437%_ - (gx#syntax-e _%e133380133405%_))) - (let ((_%hd133394133440%_ - (##car _%e133393133437%_)) - (_%tl133395133442%_ - (##cdr _%e133393133437%_))) + (if (gx#stx-pair? _%e137141137166%_) + (let ((_%e137154137198%_ + (gx#syntax-e _%e137141137166%_))) + (let ((_%hd137155137201%_ + (##car _%e137154137198%_)) + (_%tl137156137203%_ + (##cdr _%e137154137198%_))) (if (and (gx#identifier? - _%hd133394133440%_) + _%hd137155137201%_) (gx#core-identifier=? - _%hd133394133440%_ + _%hd137155137201%_ '%#define-syntax)) (begin (gx#core-expand-define-syntax% - _%hd133376%_) - (_%K133377%_ - _%rest133378%_ - _%r133379%_)) - (_%E133392133433%_)))) - (_%E133392133433%_)))) - (_%E133381133477%_ + _%hd137137%_) + (_%K137138%_ + _%rest137139%_ + _%r137140%_)) + (_%E137153137194%_)))) + (_%E137153137194%_)))) + (_%E137142137238%_ (lambda () - (if (gx#stx-pair? _%e133380133405%_) - (let ((_%e133383133449%_ - (gx#syntax-e _%e133380133405%_))) - (let ((_%hd133384133452%_ - (##car _%e133383133449%_)) - (_%tl133385133454%_ - (##cdr _%e133383133449%_))) + (if (gx#stx-pair? _%e137141137166%_) + (let ((_%e137144137210%_ + (gx#syntax-e _%e137141137166%_))) + (let ((_%hd137145137213%_ + (##car _%e137144137210%_)) + (_%tl137146137215%_ + (##cdr _%e137144137210%_))) (if (and (gx#identifier? - _%hd133384133452%_) + _%hd137145137213%_) (gx#core-identifier=? - _%hd133384133452%_ + _%hd137145137213%_ '%#define-values)) - (if (gx#stx-pair? _%tl133385133454%_) - (let ((_%e133386133457%_ + (if (gx#stx-pair? _%tl137146137215%_) + (let ((_%e137147137218%_ (gx#syntax-e - _%tl133385133454%_))) - (let ((_%hd133387133460%_ - (##car _%e133386133457%_)) - (_%tl133388133462%_ - (##cdr _%e133386133457%_))) - (let ((_%hd-bind133465%_ - _%hd133387133460%_)) + _%tl137146137215%_))) + (let ((_%hd137148137221%_ + (##car _%e137147137218%_)) + (_%tl137149137223%_ + (##cdr _%e137147137218%_))) + (let ((_%hd-bind137226%_ + _%hd137148137221%_)) (if (gx#stx-pair? - _%tl133388133462%_) - (let ((_%e133389133467%_ + _%tl137149137223%_) + (let ((_%e137150137228%_ (gx#syntax-e - _%tl133388133462%_))) - (let ((_%hd133390133470%_ + _%tl137149137223%_))) + (let ((_%hd137151137231%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e133389133467%_)) - (_%tl133391133472%_ (##cdr _%e133389133467%_))) - (let ((_%expr133475%_ _%hd133390133470%_)) - (if (gx#stx-null? _%tl133391133472%_) - (if (gx#core-bind-values? _%hd-bind133465%_) + (##car _%e137150137228%_)) + (_%tl137152137233%_ (##cdr _%e137150137228%_))) + (let ((_%expr137236%_ _%hd137151137231%_)) + (if (gx#stx-null? _%tl137152137233%_) + (if (gx#core-bind-values? _%hd-bind137226%_) (begin - (gx#core-bind-values!__0 _%hd-bind133465%_) - (_%K133377%_ - _%rest133378%_ - (cons _%hd133376%_ _%r133379%_))) - (_%E133382133445%_)) - (_%E133382133445%_))))) - (_%E133382133445%_))))) + (gx#core-bind-values!__0 _%hd-bind137226%_) + (_%K137138%_ + _%rest137139%_ + (cons _%hd137137%_ _%r137140%_))) + (_%E137143137206%_)) + (_%E137143137206%_))))) + (_%E137143137206%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E133382133445%_)) - (_%E133382133445%_)))) - (_%E133382133445%_))))) - (_%E133381133477%_)))) - (_%wrap-internal133220%_ - (lambda (_%rbody133222%_) - (let _%lp133224%_ ((_%rest133226%_ _%rbody133222%_) - (_%decls133227%_ '()) - (_%bind133228%_ '()) - (_%body133229%_ '())) - (let* ((_%e133230133237%_ _%rest133226%_) - (_%E133232133286%_ + (_%E137143137206%_)) + (_%E137143137206%_)))) + (_%E137143137206%_))))) + (_%E137142137238%_)))) + (_%wrap-internal136981%_ + (lambda (_%rbody136983%_) + (let _%lp136985%_ ((_%rest136987%_ _%rbody136983%_) + (_%decls136988%_ '()) + (_%bind136989%_ '()) + (_%body136990%_ '())) + (let* ((_%e136991136998%_ _%rest136987%_) + (_%E136993137047%_ (lambda () - (let* ((_%body133281%_ - (let* ((_%body133240133250%_ - _%body133229%_) - (_%else133243133258%_ + (let* ((_%body137042%_ + (let* ((_%body137001137011%_ + _%body136990%_) + (_%else137004137019%_ (lambda () (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%body133229%_) + _%body136990%_) (gx#stx-source - _%stx133214%_))))) - (let ((_%K133248133278%_ + _%stx136975%_))))) + (let ((_%K137009137039%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty body" - _%stx133214%_))) - (_%K133245133264%_ - (lambda (_%expr133262%_) - _%expr133262%_))) - (let ((_%try-match133242133274%_ + _%stx136975%_))) + (_%K137006137025%_ + (lambda (_%expr137023%_) + _%expr137023%_))) + (let ((_%try-match137003137035%_ (lambda () - (if (pair? _%body133240133250%_) - (let ((_%tl133247133269%_ - (##cdr _%body133240133250%_)) - (_%hd133246133267%_ - (##car _%body133240133250%_))) - (if (null? _%tl133247133269%_) - (let ((_%expr133272%_ + (if (pair? _%body137001137011%_) + (let ((_%tl137008137030%_ + (##cdr _%body137001137011%_)) + (_%hd137007137028%_ + (##car _%body137001137011%_))) + (if (null? _%tl137008137030%_) + (let ((_%expr137033%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd133246133267%_)) - (_%K133245133264%_ _%expr133272%_)) - (_%else133243133258%_))) - (_%else133243133258%_))))) + _%hd137007137028%_)) + (_%K137006137025%_ _%expr137033%_)) + (_%else137004137019%_))) + (_%else137004137019%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (null? _%body133240133250%_) - (_%K133248133278%_) - (_%try-match133242133274%_)))))) - (_%body133283%_ - (if (null? _%bind133228%_) - _%body133281%_ + (if (null? _%body137001137011%_) + (_%K137009137039%_) + (_%try-match137003137035%_)))))) + (_%body137044%_ + (if (null? _%bind136989%_) + _%body137042%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#letrec*-values) - (cons _%bind133228%_ - (cons _%body133281%_ + (cons _%bind136989%_ + (cons _%body137042%_ '()))) - (gx#stx-source _%stx133214%_))))) - (if (null? _%decls133227%_) - _%body133283%_ + (gx#stx-source _%stx136975%_))))) + (if (null? _%decls136988%_) + _%body137044%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _%decls133227%_ - (cons _%body133283%_ '()))) - (gx#stx-source _%stx133214%_)))))) - (_%E133231133372%_ + (cons _%decls136988%_ + (cons _%body137044%_ '()))) + (gx#stx-source _%stx136975%_)))))) + (_%E136992137133%_ (lambda () - (if (gx#stx-pair? _%e133230133237%_) - (let ((_%e133233133290%_ - (gx#syntax-e _%e133230133237%_))) - (let ((_%hd133234133293%_ - (##car _%e133233133290%_)) - (_%tl133235133295%_ - (##cdr _%e133233133290%_))) - (let* ((_%hd133298%_ - _%hd133234133293%_) - (_%rest133300%_ - _%tl133235133295%_) - (_%e133301133318%_ _%hd133298%_) - (_%E133313133322%_ + (if (gx#stx-pair? _%e136991136998%_) + (let ((_%e136994137051%_ + (gx#syntax-e _%e136991136998%_))) + (let ((_%hd136995137054%_ + (##car _%e136994137051%_)) + (_%tl136996137056%_ + (##cdr _%e136994137051%_))) + (let* ((_%hd137059%_ + _%hd136995137054%_) + (_%rest137061%_ + _%tl136996137056%_) + (_%e137062137079%_ _%hd137059%_) + (_%E137074137083%_ (lambda () - (if (null? _%bind133228%_) - (_%lp133224%_ - _%rest133300%_ - _%decls133227%_ - _%bind133228%_ - (cons _%hd133298%_ - _%body133229%_)) - (_%lp133224%_ - _%rest133300%_ - _%decls133227%_ + (if (null? _%bind136989%_) + (_%lp136985%_ + _%rest137061%_ + _%decls136988%_ + _%bind136989%_ + (cons _%hd137059%_ + _%body136990%_)) + (_%lp136985%_ + _%rest137061%_ + _%decls136988%_ (cons (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%hd133298%_ '())) - _%bind133228%_) - _%body133229%_)))) + (cons _%hd137059%_ '())) + _%bind136989%_) + _%body136990%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E133303133336%_ + (_%E137064137097%_ (lambda () (if (gx#stx-pair? - _%e133301133318%_) - (let ((_%e133314133326%_ + _%e137062137079%_) + (let ((_%e137075137087%_ (gx#syntax-e - _%e133301133318%_))) - (let ((_%hd133315133329%_ - (##car _%e133314133326%_)) - (_%tl133316133331%_ - (##cdr _%e133314133326%_))) + _%e137062137079%_))) + (let ((_%hd137076137090%_ + (##car _%e137075137087%_)) + (_%tl137077137092%_ + (##cdr _%e137075137087%_))) (if (and (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd133315133329%_) + _%hd137076137090%_) (gx#core-identifier=? - _%hd133315133329%_ + _%hd137076137090%_ '%#declare)) - (let ((_%xdecls133334%_ _%tl133316133331%_)) - (_%lp133224%_ - _%rest133300%_ - (gx#stx-foldr cons _%decls133227%_ _%xdecls133334%_) - _%bind133228%_ - _%body133229%_)) - (_%E133313133322%_)))) - (_%E133313133322%_)))) + (let ((_%xdecls137095%_ _%tl137077137092%_)) + (_%lp136985%_ + _%rest137061%_ + (gx#stx-foldr cons _%decls136988%_ _%xdecls137095%_) + _%bind136989%_ + _%body136990%_)) + (_%E137074137083%_)))) + (_%E137074137083%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E133302133368%_ + (_%E137063137129%_ (lambda () (if (gx#stx-pair? - _%e133301133318%_) - (let ((_%e133304133340%_ + _%e137062137079%_) + (let ((_%e137065137101%_ (gx#syntax-e - _%e133301133318%_))) - (let ((_%hd133305133343%_ - (##car _%e133304133340%_)) - (_%tl133306133345%_ - (##cdr _%e133304133340%_))) + _%e137062137079%_))) + (let ((_%hd137066137104%_ + (##car _%e137065137101%_)) + (_%tl137067137106%_ + (##cdr _%e137065137101%_))) (if (and (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd133305133343%_) + _%hd137066137104%_) (gx#core-identifier=? - _%hd133305133343%_ + _%hd137066137104%_ '%#define-values)) - (if (gx#stx-pair? _%tl133306133345%_) - (let ((_%e133307133348%_ - (gx#syntax-e _%tl133306133345%_))) - (let ((_%hd133308133351%_ - (##car _%e133307133348%_)) - (_%tl133309133353%_ - (##cdr _%e133307133348%_))) - (let ((_%hd-bind133356%_ _%hd133308133351%_)) - (if (gx#stx-pair? _%tl133309133353%_) - (let ((_%e133310133358%_ - (gx#syntax-e _%tl133309133353%_))) - (let ((_%hd133311133361%_ - (##car _%e133310133358%_)) - (_%tl133312133363%_ - (##cdr _%e133310133358%_))) - (let ((_%expr133366%_ - _%hd133311133361%_)) - (if (gx#stx-null? _%tl133312133363%_) - (_%lp133224%_ - _%rest133300%_ - _%decls133227%_ + (if (gx#stx-pair? _%tl137067137106%_) + (let ((_%e137068137109%_ + (gx#syntax-e _%tl137067137106%_))) + (let ((_%hd137069137112%_ + (##car _%e137068137109%_)) + (_%tl137070137114%_ + (##cdr _%e137068137109%_))) + (let ((_%hd-bind137117%_ _%hd137069137112%_)) + (if (gx#stx-pair? _%tl137070137114%_) + (let ((_%e137071137119%_ + (gx#syntax-e _%tl137070137114%_))) + (let ((_%hd137072137122%_ + (##car _%e137071137119%_)) + (_%tl137073137124%_ + (##cdr _%e137071137119%_))) + (let ((_%expr137127%_ + _%hd137072137122%_)) + (if (gx#stx-null? _%tl137073137124%_) + (_%lp136985%_ + _%rest137061%_ + _%decls136988%_ (cons (cons (gx#core-quote-bind-values - _%hd-bind133356%_) + _%hd-bind137117%_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr133366%_) + _%expr137127%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind133228%_) - _%body133229%_) - (_%E133303133336%_))))) - (_%E133303133336%_))))) - (_%E133303133336%_)) - (_%E133303133336%_)))) - (_%E133303133336%_))))) + _%bind136989%_) + _%body136990%_) + (_%E137064137097%_))))) + (_%E137064137097%_))))) + (_%E137064137097%_)) + (_%E137064137097%_)))) + (_%E137064137097%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E133302133368%_)))) - (_%E133232133286%_))))) - (_%E133231133372%_)))))) + (_%E137063137129%_)))) + (_%E136993137047%_))))) + (_%E136992137133%_)))))) (gx#core-expand-block* (gx#stx-wrap-source - (cons '%#begin _%body133215%_) - (gx#stx-source _%stx133214%_)) - _%expand-special133217%_)))) + (cons '%#begin _%body136976%_) + (gx#stx-source _%stx136975%_)) + _%expand-special136978%_)))) (define gx#core-expand-declare% - (lambda (_%stx133152%_) - (let* ((_%e133153133160%_ _%stx133152%_) - (_%E133155133164%_ + (lambda (_%stx136913%_) + (let* ((_%e136914136921%_ _%stx136913%_) + (_%E136916136925%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e133153133160%_))) - (_%E133154133210%_ + _%e136914136921%_))) + (_%E136915136971%_ (lambda () - (if (gx#stx-pair? _%e133153133160%_) - (let ((_%e133156133168%_ - (gx#syntax-e _%e133153133160%_))) - (let ((_%hd133157133171%_ (##car _%e133156133168%_)) - (_%tl133158133173%_ (##cdr _%e133156133168%_))) - (let ((_%body133176%_ _%tl133158133173%_)) - (if (gx#stx-list? _%body133176%_) + (if (gx#stx-pair? _%e136914136921%_) + (let ((_%e136917136929%_ + (gx#syntax-e _%e136914136921%_))) + (let ((_%hd136918136932%_ (##car _%e136917136929%_)) + (_%tl136919136934%_ (##cdr _%e136917136929%_))) + (let ((_%body136937%_ _%tl136919136934%_)) + (if (gx#stx-list? _%body136937%_) (gx#core-quote-syntax__1 (gx#core-cons '%#declare (gx#stx-map1 - (lambda (_%decl133178%_) - (let* ((_%e133179133186%_ _%decl133178%_) - (_%E133181133190%_ + (lambda (_%decl136939%_) + (let* ((_%e136940136947%_ _%decl136939%_) + (_%E136942136951%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e133179133186%_))) - (_%E133180133206%_ + _%e136940136947%_))) + (_%E136941136967%_ (lambda () (if (gx#stx-pair? - _%e133179133186%_) - (let ((_%e133182133194%_ + _%e136940136947%_) + (let ((_%e136943136955%_ (gx#syntax-e - _%e133179133186%_))) - (let ((_%hd133183133197%_ - (##car _%e133182133194%_)) - (_%tl133184133199%_ - (##cdr _%e133182133194%_))) - (let* ((_%head133202%_ - _%hd133183133197%_) - (_%args133204%_ - _%tl133184133199%_)) + _%e136940136947%_))) + (let ((_%hd136944136958%_ + (##car _%e136943136955%_)) + (_%tl136945136960%_ + (##cdr _%e136943136955%_))) + (let* ((_%head136963%_ + _%hd136944136958%_) + (_%args136965%_ + _%tl136945136960%_)) (if (gx#stx-list? - _%args133204%_) + _%args136965%_) (gx#stx-map1 gx#core-quote-syntax - _%decl133178%_) - (_%E133181133190%_))))) - (_%E133181133190%_))))) - (_%E133180133206%_))) - _%body133176%_)) - (gx#stx-source _%stx133152%_)) - (_%E133155133164%_))))) - (_%E133155133164%_))))) - (_%E133154133210%_)))) + _%decl136939%_) + (_%E136942136951%_))))) + (_%E136942136951%_))))) + (_%E136941136967%_))) + _%body136937%_)) + (gx#stx-source _%stx136913%_)) + (_%E136916136925%_))))) + (_%E136916136925%_))))) + (_%E136915136971%_)))) (define gx#core-expand-extern% - (lambda (_%stx133056%_) - (let* ((_%e133057133064%_ _%stx133056%_) - (_%E133059133068%_ + (lambda (_%stx136817%_) + (let* ((_%e136818136825%_ _%stx136817%_) + (_%E136820136829%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e133057133064%_))) - (_%E133058133148%_ + _%e136818136825%_))) + (_%E136819136909%_ (lambda () - (if (gx#stx-pair? _%e133057133064%_) - (let ((_%e133060133072%_ - (gx#syntax-e _%e133057133064%_))) - (let ((_%hd133061133075%_ (##car _%e133060133072%_)) - (_%tl133062133077%_ (##cdr _%e133060133072%_))) - (let ((_%body133080%_ _%tl133062133077%_)) - (let _%lp133082%_ ((_%rest133084%_ _%body133080%_) - (_%r133085%_ '())) - (let* ((_%e133086133100%_ _%rest133084%_) - (_%E133098133104%_ + (if (gx#stx-pair? _%e136818136825%_) + (let ((_%e136821136833%_ + (gx#syntax-e _%e136818136825%_))) + (let ((_%hd136822136836%_ (##car _%e136821136833%_)) + (_%tl136823136838%_ (##cdr _%e136821136833%_))) + (let ((_%body136841%_ _%tl136823136838%_)) + (let _%lp136843%_ ((_%rest136845%_ _%body136841%_) + (_%r136846%_ '())) + (let* ((_%e136847136861%_ _%rest136845%_) + (_%E136859136865%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; %#extern expects list of (internal external) identifier lists" - _%stx133056%_))) - (_%E133088133108%_ + _%stx136817%_))) + (_%E136849136869%_ (lambda () - (if (gx#stx-null? _%e133086133100%_) + (if (gx#stx-null? _%e136847136861%_) (gx#core-quote-syntax__1 (gx#core-cons '%#extern - (reverse _%r133085%_)) - (gx#stx-source _%stx133056%_)) - (_%E133098133104%_)))) - (_%E133087133144%_ + (reverse _%r136846%_)) + (gx#stx-source _%stx136817%_)) + (_%E136859136865%_)))) + (_%E136848136905%_ (lambda () - (if (gx#stx-pair? _%e133086133100%_) - (let ((_%e133089133112%_ + (if (gx#stx-pair? _%e136847136861%_) + (let ((_%e136850136873%_ (gx#syntax-e - _%e133086133100%_))) - (let ((_%hd133090133115%_ - (##car _%e133089133112%_)) - (_%tl133091133117%_ - (##cdr _%e133089133112%_))) + _%e136847136861%_))) + (let ((_%hd136851136876%_ + (##car _%e136850136873%_)) + (_%tl136852136878%_ + (##cdr _%e136850136873%_))) (if (gx#stx-pair? - _%hd133090133115%_) - (let ((_%e133092133120%_ + _%hd136851136876%_) + (let ((_%e136853136881%_ (gx#syntax-e - _%hd133090133115%_))) - (let ((_%hd133093133123%_ - (##car _%e133092133120%_)) - (_%tl133094133125%_ - (##cdr _%e133092133120%_))) - (let ((_%id133128%_ - _%hd133093133123%_)) + _%hd136851136876%_))) + (let ((_%hd136854136884%_ + (##car _%e136853136881%_)) + (_%tl136855136886%_ + (##cdr _%e136853136881%_))) + (let ((_%id136889%_ + _%hd136854136884%_)) (if (gx#stx-pair? - _%tl133094133125%_) - (let ((_%e133095133130%_ + _%tl136855136886%_) + (let ((_%e136856136891%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl133094133125%_))) - (let ((_%hd133096133133%_ (##car _%e133095133130%_)) - (_%tl133097133135%_ (##cdr _%e133095133130%_))) - (let ((_%eid133138%_ _%hd133096133133%_)) - (if (gx#stx-null? _%tl133097133135%_) - (let ((_%rest133140%_ _%tl133091133117%_)) - (if (and (gx#identifier? _%id133128%_) - (gx#identifier? _%eid133138%_)) - (let ((_%eid133142%_ - (gx#stx-e _%eid133138%_))) + (gx#syntax-e _%tl136855136886%_))) + (let ((_%hd136857136894%_ (##car _%e136856136891%_)) + (_%tl136858136896%_ (##cdr _%e136856136891%_))) + (let ((_%eid136899%_ _%hd136857136894%_)) + (if (gx#stx-null? _%tl136858136896%_) + (let ((_%rest136901%_ _%tl136852136878%_)) + (if (and (gx#identifier? _%id136889%_) + (gx#identifier? _%eid136899%_)) + (let ((_%eid136903%_ + (gx#stx-e _%eid136899%_))) (gx#core-bind-extern!__0 - _%id133128%_ - _%eid133142%_) - (_%lp133082%_ - _%rest133140%_ + _%id136889%_ + _%eid136903%_) + (_%lp136843%_ + _%rest136901%_ (cons (cons (gx#core-quote-syntax__0 - _%id133128%_) - (cons _%eid133142%_ '())) - _%r133085%_))) - (_%E133088133108%_))) - (_%E133088133108%_))))) - (_%E133088133108%_))))) + _%id136889%_) + (cons _%eid136903%_ '())) + _%r136846%_))) + (_%E136849136869%_))) + (_%E136849136869%_))))) + (_%E136849136869%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E133088133108%_)))) - (_%E133088133108%_))))) - (_%E133087133144%_)))))) - (_%E133059133068%_))))) - (_%E133058133148%_)))) + (_%E136849136869%_)))) + (_%E136849136869%_))))) + (_%E136848136905%_)))))) + (_%E136820136829%_))))) + (_%E136819136909%_)))) (define gx#core-expand-define-values% - (lambda (_%stx133002%_) - (let* ((_%e133003133016%_ _%stx133002%_) - (_%E133005133020%_ + (lambda (_%stx136763%_) + (let* ((_%e136764136777%_ _%stx136763%_) + (_%E136766136781%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e133003133016%_))) - (_%E133004133052%_ + _%e136764136777%_))) + (_%E136765136813%_ (lambda () - (if (gx#stx-pair? _%e133003133016%_) - (let ((_%e133006133024%_ - (gx#syntax-e _%e133003133016%_))) - (let ((_%hd133007133027%_ (##car _%e133006133024%_)) - (_%tl133008133029%_ (##cdr _%e133006133024%_))) - (if (gx#stx-pair? _%tl133008133029%_) - (let ((_%e133009133032%_ - (gx#syntax-e _%tl133008133029%_))) - (let ((_%hd133010133035%_ - (##car _%e133009133032%_)) - (_%tl133011133037%_ - (##cdr _%e133009133032%_))) - (let ((_%hd133040%_ _%hd133010133035%_)) - (if (gx#stx-pair? _%tl133011133037%_) - (let ((_%e133012133042%_ + (if (gx#stx-pair? _%e136764136777%_) + (let ((_%e136767136785%_ + (gx#syntax-e _%e136764136777%_))) + (let ((_%hd136768136788%_ (##car _%e136767136785%_)) + (_%tl136769136790%_ (##cdr _%e136767136785%_))) + (if (gx#stx-pair? _%tl136769136790%_) + (let ((_%e136770136793%_ + (gx#syntax-e _%tl136769136790%_))) + (let ((_%hd136771136796%_ + (##car _%e136770136793%_)) + (_%tl136772136798%_ + (##cdr _%e136770136793%_))) + (let ((_%hd136801%_ _%hd136771136796%_)) + (if (gx#stx-pair? _%tl136772136798%_) + (let ((_%e136773136803%_ (gx#syntax-e - _%tl133011133037%_))) - (let ((_%hd133013133045%_ - (##car _%e133012133042%_)) - (_%tl133014133047%_ - (##cdr _%e133012133042%_))) - (let ((_%expr133050%_ - _%hd133013133045%_)) + _%tl136772136798%_))) + (let ((_%hd136774136806%_ + (##car _%e136773136803%_)) + (_%tl136775136808%_ + (##cdr _%e136773136803%_))) + (let ((_%expr136811%_ + _%hd136774136806%_)) (if (gx#stx-null? - _%tl133014133047%_) + _%tl136775136808%_) (if (gx#core-bind-values? - _%hd133040%_) + _%hd136801%_) (begin (gx#core-bind-values!__0 - _%hd133040%_) + _%hd136801%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd133040%_) - (cons (gx#core-expand-expression _%expr133050%_) + _%hd136801%_) + (cons (gx#core-expand-expression _%expr136811%_) '()))) - (gx#stx-source _%stx133002%_))) - (_%E133005133020%_)) + (gx#stx-source _%stx136763%_))) + (_%E136766136781%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E133005133020%_))))) - (_%E133005133020%_))))) - (_%E133005133020%_)))) - (_%E133005133020%_))))) - (_%E133004133052%_)))) + (_%E136766136781%_))))) + (_%E136766136781%_))))) + (_%E136766136781%_)))) + (_%E136766136781%_))))) + (_%E136765136813%_)))) (define gx#core-expand-define-runtime% - (lambda (_%stx132946%_) - (let* ((_%e132947132960%_ _%stx132946%_) - (_%E132949132964%_ + (lambda (_%stx136707%_) + (let* ((_%e136708136721%_ _%stx136707%_) + (_%E136710136725%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132947132960%_))) - (_%E132948132998%_ + _%e136708136721%_))) + (_%E136709136759%_ (lambda () - (if (gx#stx-pair? _%e132947132960%_) - (let ((_%e132950132968%_ - (gx#syntax-e _%e132947132960%_))) - (let ((_%hd132951132971%_ (##car _%e132950132968%_)) - (_%tl132952132973%_ (##cdr _%e132950132968%_))) - (if (gx#stx-pair? _%tl132952132973%_) - (let ((_%e132953132976%_ - (gx#syntax-e _%tl132952132973%_))) - (let ((_%hd132954132979%_ - (##car _%e132953132976%_)) - (_%tl132955132981%_ - (##cdr _%e132953132976%_))) - (let ((_%id132984%_ _%hd132954132979%_)) - (if (gx#stx-pair? _%tl132955132981%_) - (let ((_%e132956132986%_ + (if (gx#stx-pair? _%e136708136721%_) + (let ((_%e136711136729%_ + (gx#syntax-e _%e136708136721%_))) + (let ((_%hd136712136732%_ (##car _%e136711136729%_)) + (_%tl136713136734%_ (##cdr _%e136711136729%_))) + (if (gx#stx-pair? _%tl136713136734%_) + (let ((_%e136714136737%_ + (gx#syntax-e _%tl136713136734%_))) + (let ((_%hd136715136740%_ + (##car _%e136714136737%_)) + (_%tl136716136742%_ + (##cdr _%e136714136737%_))) + (let ((_%id136745%_ _%hd136715136740%_)) + (if (gx#stx-pair? _%tl136716136742%_) + (let ((_%e136717136747%_ (gx#syntax-e - _%tl132955132981%_))) - (let ((_%hd132957132989%_ - (##car _%e132956132986%_)) - (_%tl132958132991%_ - (##cdr _%e132956132986%_))) - (let ((_%binding-id132994%_ - _%hd132957132989%_)) + _%tl136716136742%_))) + (let ((_%hd136718136750%_ + (##car _%e136717136747%_)) + (_%tl136719136752%_ + (##cdr _%e136717136747%_))) + (let ((_%binding-id136755%_ + _%hd136718136750%_)) (if (gx#stx-null? - _%tl132958132991%_) + _%tl136719136752%_) (if (and (gx#identifier? - _%id132984%_) + _%id136745%_) (gx#identifier? - _%binding-id132994%_)) - (let ((_%eid132996%_ + _%binding-id136755%_)) + (let ((_%eid136757%_ (gx#stx-e - _%binding-id132994%_))) + _%binding-id136755%_))) (gx#core-bind-runtime-reference!__0 - _%id132984%_ - _%eid132996%_) + _%id136745%_ + _%eid136757%_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-runtime) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id132984%_) - (cons _%eid132996%_ '()))))) - (_%E132949132964%_)) + _%id136745%_) + (cons _%eid136757%_ '()))))) + (_%E136710136725%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E132949132964%_))))) - (_%E132949132964%_))))) - (_%E132949132964%_)))) - (_%E132949132964%_))))) - (_%E132948132998%_)))) + (_%E136710136725%_))))) + (_%E136710136725%_))))) + (_%E136710136725%_)))) + (_%E136710136725%_))))) + (_%E136709136759%_)))) (define gx#core-expand-define-syntax% - (lambda (_%stx132889%_) - (let* ((_%e132890132903%_ _%stx132889%_) - (_%E132892132907%_ + (lambda (_%stx136650%_) + (let* ((_%e136651136664%_ _%stx136650%_) + (_%E136653136668%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132890132903%_))) - (_%E132891132942%_ + _%e136651136664%_))) + (_%E136652136703%_ (lambda () - (if (gx#stx-pair? _%e132890132903%_) - (let ((_%e132893132911%_ - (gx#syntax-e _%e132890132903%_))) - (let ((_%hd132894132914%_ (##car _%e132893132911%_)) - (_%tl132895132916%_ (##cdr _%e132893132911%_))) - (if (gx#stx-pair? _%tl132895132916%_) - (let ((_%e132896132919%_ - (gx#syntax-e _%tl132895132916%_))) - (let ((_%hd132897132922%_ - (##car _%e132896132919%_)) - (_%tl132898132924%_ - (##cdr _%e132896132919%_))) - (let ((_%id132927%_ _%hd132897132922%_)) - (if (gx#stx-pair? _%tl132898132924%_) - (let ((_%e132899132929%_ + (if (gx#stx-pair? _%e136651136664%_) + (let ((_%e136654136672%_ + (gx#syntax-e _%e136651136664%_))) + (let ((_%hd136655136675%_ (##car _%e136654136672%_)) + (_%tl136656136677%_ (##cdr _%e136654136672%_))) + (if (gx#stx-pair? _%tl136656136677%_) + (let ((_%e136657136680%_ + (gx#syntax-e _%tl136656136677%_))) + (let ((_%hd136658136683%_ + (##car _%e136657136680%_)) + (_%tl136659136685%_ + (##cdr _%e136657136680%_))) + (let ((_%id136688%_ _%hd136658136683%_)) + (if (gx#stx-pair? _%tl136659136685%_) + (let ((_%e136660136690%_ (gx#syntax-e - _%tl132898132924%_))) - (let ((_%hd132900132932%_ - (##car _%e132899132929%_)) - (_%tl132901132934%_ - (##cdr _%e132899132929%_))) - (let ((_%expr132937%_ - _%hd132900132932%_)) + _%tl136659136685%_))) + (let ((_%hd136661136693%_ + (##car _%e136660136690%_)) + (_%tl136662136695%_ + (##cdr _%e136660136690%_))) + (let ((_%expr136698%_ + _%hd136661136693%_)) (if (gx#stx-null? - _%tl132901132934%_) + _%tl136662136695%_) (if (gx#identifier? - _%id132927%_) - (let ((_g133848_ + _%id136688%_) + (let ((_g137609_ (gx#core-expand-expression+1 - _%expr132937%_))) + _%expr136698%_))) (begin - (let ((_g133849_ + (let ((_g137610_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (##values? _g133848_) - (##values-length _g133848_) + (if (##values? _g137609_) + (##values-length _g137609_) 1))) - (if (not (##fx= _g133849_ 2)) - (error "Context expects 2 values" _g133849_))) - (let ((_%e-stx132939%_ (##values-ref _g133848_ 0)) - (_%e132940%_ (##values-ref _g133848_ 1))) + (if (not (##fx= _g137610_ 2)) + (error "Context expects 2 values" _g137610_))) + (let ((_%e-stx136700%_ (##values-ref _g137609_ 0)) + (_%e136701%_ (##values-ref _g137609_ 1))) (begin - (gx#core-bind-syntax!__0 _%id132927%_ _%e132940%_) + (gx#core-bind-syntax!__0 _%id136688%_ _%e136701%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons (gx#core-quote-syntax__0 _%id132927%_) - (cons _%e-stx132939%_ '()))) - (gx#stx-source _%stx132889%_)))))) - (_%E132892132907%_)) + (cons (gx#core-quote-syntax__0 _%id136688%_) + (cons _%e-stx136700%_ '()))) + (gx#stx-source _%stx136650%_)))))) + (_%E136653136668%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E132892132907%_))))) - (_%E132892132907%_))))) - (_%E132892132907%_)))) - (_%E132892132907%_))))) - (_%E132891132942%_)))) + (_%E136653136668%_))))) + (_%E136653136668%_))))) + (_%E136653136668%_)))) + (_%E136653136668%_))))) + (_%E136652136703%_)))) (define gx#core-expand-define-alias% - (lambda (_%stx132833%_) - (let* ((_%e132834132847%_ _%stx132833%_) - (_%E132836132851%_ + (lambda (_%stx136594%_) + (let* ((_%e136595136608%_ _%stx136594%_) + (_%E136597136612%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132834132847%_))) - (_%E132835132885%_ + _%e136595136608%_))) + (_%E136596136646%_ (lambda () - (if (gx#stx-pair? _%e132834132847%_) - (let ((_%e132837132855%_ - (gx#syntax-e _%e132834132847%_))) - (let ((_%hd132838132858%_ (##car _%e132837132855%_)) - (_%tl132839132860%_ (##cdr _%e132837132855%_))) - (if (gx#stx-pair? _%tl132839132860%_) - (let ((_%e132840132863%_ - (gx#syntax-e _%tl132839132860%_))) - (let ((_%hd132841132866%_ - (##car _%e132840132863%_)) - (_%tl132842132868%_ - (##cdr _%e132840132863%_))) - (let ((_%id132871%_ _%hd132841132866%_)) - (if (gx#stx-pair? _%tl132842132868%_) - (let ((_%e132843132873%_ + (if (gx#stx-pair? _%e136595136608%_) + (let ((_%e136598136616%_ + (gx#syntax-e _%e136595136608%_))) + (let ((_%hd136599136619%_ (##car _%e136598136616%_)) + (_%tl136600136621%_ (##cdr _%e136598136616%_))) + (if (gx#stx-pair? _%tl136600136621%_) + (let ((_%e136601136624%_ + (gx#syntax-e _%tl136600136621%_))) + (let ((_%hd136602136627%_ + (##car _%e136601136624%_)) + (_%tl136603136629%_ + (##cdr _%e136601136624%_))) + (let ((_%id136632%_ _%hd136602136627%_)) + (if (gx#stx-pair? _%tl136603136629%_) + (let ((_%e136604136634%_ (gx#syntax-e - _%tl132842132868%_))) - (let ((_%hd132844132876%_ - (##car _%e132843132873%_)) - (_%tl132845132878%_ - (##cdr _%e132843132873%_))) - (let ((_%alias-id132881%_ - _%hd132844132876%_)) + _%tl136603136629%_))) + (let ((_%hd136605136637%_ + (##car _%e136604136634%_)) + (_%tl136606136639%_ + (##cdr _%e136604136634%_))) + (let ((_%alias-id136642%_ + _%hd136605136637%_)) (if (gx#stx-null? - _%tl132845132878%_) + _%tl136606136639%_) (if (and (gx#identifier? - _%id132871%_) + _%id136632%_) (gx#identifier? - _%alias-id132881%_)) - (let ((_%alias-id132883%_ + _%alias-id136642%_)) + (let ((_%alias-id136644%_ (gx#core-quote-syntax__0 - _%alias-id132881%_))) + _%alias-id136642%_))) (gx#core-bind-alias!__0 - _%id132871%_ - _%alias-id132883%_) + _%id136632%_ + _%alias-id136644%_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-alias) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id132871%_) - (cons _%alias-id132883%_ '()))))) - (_%E132836132851%_)) + _%id136632%_) + (cons _%alias-id136644%_ '()))))) + (_%E136597136612%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E132836132851%_))))) - (_%E132836132851%_))))) - (_%E132836132851%_)))) - (_%E132836132851%_))))) - (_%E132835132885%_)))) + (_%E136597136612%_))))) + (_%E136597136612%_))))) + (_%E136597136612%_)))) + (_%E136597136612%_))))) + (_%E136596136646%_)))) (define gx#core-expand-lambda%__% - (lambda (_%stx132776%_ _%wrap?132777%_) - (let* ((_%e132778132788%_ _%stx132776%_) - (_%E132780132792%_ + (lambda (_%stx136537%_ _%wrap?136538%_) + (let* ((_%e136539136549%_ _%stx136537%_) + (_%E136541136553%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132778132788%_))) - (_%E132779132819%_ + _%e136539136549%_))) + (_%E136540136580%_ (lambda () - (if (gx#stx-pair? _%e132778132788%_) - (let ((_%e132781132796%_ - (gx#syntax-e _%e132778132788%_))) - (let ((_%hd132782132799%_ (##car _%e132781132796%_)) - (_%tl132783132801%_ (##cdr _%e132781132796%_))) - (if (gx#stx-pair? _%tl132783132801%_) - (let ((_%e132784132804%_ - (gx#syntax-e _%tl132783132801%_))) - (let ((_%hd132785132807%_ - (##car _%e132784132804%_)) - (_%tl132786132809%_ - (##cdr _%e132784132804%_))) - (let* ((_%hd132812%_ _%hd132785132807%_) - (_%body132814%_ _%tl132786132809%_)) - (if (gx#core-bind-values? _%hd132812%_) + (if (gx#stx-pair? _%e136539136549%_) + (let ((_%e136542136557%_ + (gx#syntax-e _%e136539136549%_))) + (let ((_%hd136543136560%_ (##car _%e136542136557%_)) + (_%tl136544136562%_ (##cdr _%e136542136557%_))) + (if (gx#stx-pair? _%tl136544136562%_) + (let ((_%e136545136565%_ + (gx#syntax-e _%tl136544136562%_))) + (let ((_%hd136546136568%_ + (##car _%e136545136565%_)) + (_%tl136547136570%_ + (##cdr _%e136545136565%_))) + (let* ((_%hd136573%_ _%hd136546136568%_) + (_%body136575%_ _%tl136547136570%_)) + (if (gx#core-bind-values? _%hd136573%_) (call-with-parameters__1 (lambda () (gx#core-bind-values!__0 - _%hd132812%_) - (let ((_%body132817%_ + _%hd136573%_) + (let ((_%body136578%_ (cons (gx#core-quote-bind-values - _%hd132812%_) + _%hd136573%_) (cons (gx#core-expand-local-block - _%stx132776%_ - _%body132814%_) + _%stx136537%_ + _%body136575%_) '())))) - (if _%wrap?132777%_ + (if _%wrap?136538%_ (gx#core-quote-syntax__1 (gx#core-cons '%#lambda - _%body132817%_) + _%body136578%_) (gx#stx-source - _%stx132776%_)) - _%body132817%_))) + _%stx136537%_)) + _%body136578%_))) gx#current-expander-context - (let ((__obj133841 + (let ((__obj137602 (##structure gx#local-context::t '#f @@ -1151,117 +1151,117 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj133841) - __obj133841)) - (_%E132780132792%_))))) - (_%E132780132792%_)))) - (_%E132780132792%_))))) - (_%E132779132819%_)))) + __obj137602) + __obj137602)) + (_%E136541136553%_))))) + (_%E136541136553%_)))) + (_%E136541136553%_))))) + (_%E136540136580%_)))) (define gx#core-expand-lambda%__0 - (lambda (_%stx132826%_) - (let ((_%wrap?132828%_ '#t)) - (gx#core-expand-lambda%__% _%stx132826%_ _%wrap?132828%_)))) + (lambda (_%stx136587%_) + (let ((_%wrap?136589%_ '#t)) + (gx#core-expand-lambda%__% _%stx136587%_ _%wrap?136589%_)))) (define gx#core-expand-lambda% - (lambda _g133850_ - (let ((_g133851_ (##length _g133850_))) - (cond ((##fx= _g133851_ 1) - (apply gx#core-expand-lambda%__0 _g133850_)) - ((##fx= _g133851_ 2) - (apply gx#core-expand-lambda%__% _g133850_)) + (lambda _g137611_ + (let ((_g137612_ (##length _g137611_))) + (cond ((##fx= _g137612_ 1) + (apply gx#core-expand-lambda%__0 _g137611_)) + ((##fx= _g137612_ 2) + (apply gx#core-expand-lambda%__% _g137611_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-lambda% - _g133850_)))))) + _g137611_)))))) (define gx#core-expand-case-lambda% - (lambda (_%stx132740%_) - (let* ((_%e132741132748%_ _%stx132740%_) - (_%E132743132752%_ + (lambda (_%stx136501%_) + (let* ((_%e136502136509%_ _%stx136501%_) + (_%E136504136513%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132741132748%_))) - (_%E132742132771%_ + _%e136502136509%_))) + (_%E136503136532%_ (lambda () - (if (gx#stx-pair? _%e132741132748%_) - (let ((_%e132744132756%_ - (gx#syntax-e _%e132741132748%_))) - (let ((_%hd132745132759%_ (##car _%e132744132756%_)) - (_%tl132746132761%_ (##cdr _%e132744132756%_))) - (let ((_%clauses132764%_ _%tl132746132761%_)) - (if (gx#stx-list? _%clauses132764%_) + (if (gx#stx-pair? _%e136502136509%_) + (let ((_%e136505136517%_ + (gx#syntax-e _%e136502136509%_))) + (let ((_%hd136506136520%_ (##car _%e136505136517%_)) + (_%tl136507136522%_ (##cdr _%e136505136517%_))) + (let ((_%clauses136525%_ _%tl136507136522%_)) + (if (gx#stx-list? _%clauses136525%_) (gx#core-quote-syntax__1 (gx#core-cons '%#case-lambda (gx#stx-map1 - (lambda (_%clause132766%_) + (lambda (_%clause136527%_) (gx#core-expand-lambda%__% (gx#stx-wrap-source (cons '%#case-lambda-clause - _%clause132766%_) - (let ((_%$e132768%_ + _%clause136527%_) + (let ((_%$e136529%_ (gx#stx-source - _%clause132766%_))) - (if _%$e132768%_ - _%$e132768%_ - (gx#stx-source _%stx132740%_)))) + _%clause136527%_))) + (if _%$e136529%_ + _%$e136529%_ + (gx#stx-source _%stx136501%_)))) '#f)) - _%clauses132764%_)) - (gx#stx-source _%stx132740%_)) - (_%E132743132752%_))))) - (_%E132743132752%_))))) - (_%E132742132771%_)))) + _%clauses136525%_)) + (gx#stx-source _%stx136501%_)) + (_%E136504136513%_))))) + (_%E136504136513%_))))) + (_%E136503136532%_)))) (define gx#core-expand-let-values% - (lambda (_%stx132694%_) - (let* ((_%e132695132705%_ _%stx132694%_) - (_%E132697132709%_ + (lambda (_%stx136455%_) + (let* ((_%e136456136466%_ _%stx136455%_) + (_%E136458136470%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132695132705%_))) - (_%E132696132736%_ + _%e136456136466%_))) + (_%E136457136497%_ (lambda () - (if (gx#stx-pair? _%e132695132705%_) - (let ((_%e132698132713%_ - (gx#syntax-e _%e132695132705%_))) - (let ((_%hd132699132716%_ (##car _%e132698132713%_)) - (_%tl132700132718%_ (##cdr _%e132698132713%_))) - (if (gx#stx-pair? _%tl132700132718%_) - (let ((_%e132701132721%_ - (gx#syntax-e _%tl132700132718%_))) - (let ((_%hd132702132724%_ - (##car _%e132701132721%_)) - (_%tl132703132726%_ - (##cdr _%e132701132721%_))) - (let* ((_%hd132729%_ _%hd132702132724%_) - (_%body132731%_ _%tl132703132726%_)) - (if (gx#core-expand-let-bind? _%hd132729%_) - (let ((_%expressions132733%_ + (if (gx#stx-pair? _%e136456136466%_) + (let ((_%e136459136474%_ + (gx#syntax-e _%e136456136466%_))) + (let ((_%hd136460136477%_ (##car _%e136459136474%_)) + (_%tl136461136479%_ (##cdr _%e136459136474%_))) + (if (gx#stx-pair? _%tl136461136479%_) + (let ((_%e136462136482%_ + (gx#syntax-e _%tl136461136479%_))) + (let ((_%hd136463136485%_ + (##car _%e136462136482%_)) + (_%tl136464136487%_ + (##cdr _%e136462136482%_))) + (let* ((_%hd136490%_ _%hd136463136485%_) + (_%body136492%_ _%tl136464136487%_)) + (if (gx#core-expand-let-bind? _%hd136490%_) + (let ((_%expressions136494%_ (gx#stx-map1 gx#core-expand-let-bind-expression - _%hd132729%_))) + _%hd136490%_))) (call-with-parameters__1 (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _%hd132729%_) + _%hd136490%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#let-values) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _%hd132729%_ - _%expressions132733%_) + _%hd136490%_ + _%expressions136494%_) (cons (gx#core-expand-local-block ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%stx132694%_ - _%body132731%_) + _%stx136455%_ + _%body136492%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx132694%_))) + (gx#stx-source _%stx136455%_))) gx#current-expander-context - (let ((__obj133842 + (let ((__obj137603 (##structure gx#local-context::t '#f @@ -1270,59 +1270,59 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj133842) - __obj133842))) - (_%E132697132709%_))))) - (_%E132697132709%_)))) - (_%E132697132709%_))))) - (_%E132696132736%_)))) + __obj137603) + __obj137603))) + (_%E136458136470%_))))) + (_%E136458136470%_)))) + (_%E136458136470%_))))) + (_%E136457136497%_)))) (define gx#core-expand-letrec-values%__% - (lambda (_%stx132639%_ _%form132640%_) - (let* ((_%e132641132651%_ _%stx132639%_) - (_%E132643132655%_ + (lambda (_%stx136400%_ _%form136401%_) + (let* ((_%e136402136412%_ _%stx136400%_) + (_%E136404136416%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132641132651%_))) - (_%E132642132680%_ + _%e136402136412%_))) + (_%E136403136441%_ (lambda () - (if (gx#stx-pair? _%e132641132651%_) - (let ((_%e132644132659%_ - (gx#syntax-e _%e132641132651%_))) - (let ((_%hd132645132662%_ (##car _%e132644132659%_)) - (_%tl132646132664%_ (##cdr _%e132644132659%_))) - (if (gx#stx-pair? _%tl132646132664%_) - (let ((_%e132647132667%_ - (gx#syntax-e _%tl132646132664%_))) - (let ((_%hd132648132670%_ - (##car _%e132647132667%_)) - (_%tl132649132672%_ - (##cdr _%e132647132667%_))) - (let* ((_%hd132675%_ _%hd132648132670%_) - (_%body132677%_ _%tl132649132672%_)) - (if (gx#core-expand-let-bind? _%hd132675%_) + (if (gx#stx-pair? _%e136402136412%_) + (let ((_%e136405136420%_ + (gx#syntax-e _%e136402136412%_))) + (let ((_%hd136406136423%_ (##car _%e136405136420%_)) + (_%tl136407136425%_ (##cdr _%e136405136420%_))) + (if (gx#stx-pair? _%tl136407136425%_) + (let ((_%e136408136428%_ + (gx#syntax-e _%tl136407136425%_))) + (let ((_%hd136409136431%_ + (##car _%e136408136428%_)) + (_%tl136410136433%_ + (##cdr _%e136408136428%_))) + (let* ((_%hd136436%_ _%hd136409136431%_) + (_%body136438%_ _%tl136410136433%_)) + (if (gx#core-expand-let-bind? _%hd136436%_) (call-with-parameters__1 (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _%hd132675%_) + _%hd136436%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 - _%form132640%_) + _%form136401%_) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _%hd132675%_ + _%hd136436%_ (gx#stx-map1 gx#core-expand-let-bind-expression - _%hd132675%_)) + _%hd136436%_)) (cons (gx#core-expand-local-block - _%stx132639%_ - _%body132677%_) + _%stx136400%_ + _%body136438%_) '()))) - (gx#stx-source _%stx132639%_))) + (gx#stx-source _%stx136400%_))) gx#current-expander-context - (let ((__obj133843 + (let ((__obj137604 (##structure gx#local-context::t '#f @@ -1331,200 +1331,200 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj133843) - __obj133843)) - (_%E132643132655%_))))) - (_%E132643132655%_)))) - (_%E132643132655%_))))) - (_%E132642132680%_)))) + __obj137604) + __obj137604)) + (_%E136404136416%_))))) + (_%E136404136416%_)))) + (_%E136404136416%_))))) + (_%E136403136441%_)))) (define gx#core-expand-letrec-values%__0 - (lambda (_%stx132687%_) - (let ((_%form132689%_ '%#letrec-values)) - (gx#core-expand-letrec-values%__% _%stx132687%_ _%form132689%_)))) + (lambda (_%stx136448%_) + (let ((_%form136450%_ '%#letrec-values)) + (gx#core-expand-letrec-values%__% _%stx136448%_ _%form136450%_)))) (define gx#core-expand-letrec-values% - (lambda _g133852_ - (let ((_g133853_ (##length _g133852_))) - (cond ((##fx= _g133853_ 1) - (apply gx#core-expand-letrec-values%__0 _g133852_)) - ((##fx= _g133853_ 2) - (apply gx#core-expand-letrec-values%__% _g133852_)) + (lambda _g137613_ + (let ((_g137614_ (##length _g137613_))) + (cond ((##fx= _g137614_ 1) + (apply gx#core-expand-letrec-values%__0 _g137613_)) + ((##fx= _g137614_ 2) + (apply gx#core-expand-letrec-values%__% _g137613_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-letrec-values% - _g133852_)))))) + _g137613_)))))) (define gx#core-expand-letrec*-values% - (lambda (_%stx132636%_) - (gx#core-expand-letrec-values%__% _%stx132636%_ '%#letrec*-values))) + (lambda (_%stx136397%_) + (gx#core-expand-letrec-values%__% _%stx136397%_ '%#letrec*-values))) (define gx#core-expand-let-bind? - (lambda (_%stx132593%_) - (if (gx#stx-list? _%stx132593%_) + (lambda (_%stx136354%_) + (if (gx#stx-list? _%stx136354%_) (gx#stx-andmap - (lambda (_%bind132595%_) - (let* ((_%e132596132606%_ _%bind132595%_) - (_%E132598132610%_ (lambda () '#f)) - (_%E132597132632%_ + (lambda (_%bind136356%_) + (let* ((_%e136357136367%_ _%bind136356%_) + (_%E136359136371%_ (lambda () '#f)) + (_%E136358136393%_ (lambda () - (if (gx#stx-pair? _%e132596132606%_) - (let ((_%e132599132614%_ - (gx#syntax-e _%e132596132606%_))) - (let ((_%hd132600132617%_ - (##car _%e132599132614%_)) - (_%tl132601132619%_ - (##cdr _%e132599132614%_))) - (let ((_%hd132622%_ _%hd132600132617%_)) - (if (gx#stx-pair? _%tl132601132619%_) - (let ((_%e132602132624%_ + (if (gx#stx-pair? _%e136357136367%_) + (let ((_%e136360136375%_ + (gx#syntax-e _%e136357136367%_))) + (let ((_%hd136361136378%_ + (##car _%e136360136375%_)) + (_%tl136362136380%_ + (##cdr _%e136360136375%_))) + (let ((_%hd136383%_ _%hd136361136378%_)) + (if (gx#stx-pair? _%tl136362136380%_) + (let ((_%e136363136385%_ (gx#syntax-e - _%tl132601132619%_))) - (let ((_%hd132603132627%_ - (##car _%e132602132624%_)) - (_%tl132604132629%_ - (##cdr _%e132602132624%_))) + _%tl136362136380%_))) + (let ((_%hd136364136388%_ + (##car _%e136363136385%_)) + (_%tl136365136390%_ + (##cdr _%e136363136385%_))) (if (gx#stx-null? - _%tl132604132629%_) + _%tl136365136390%_) (gx#core-bind-values? - _%hd132622%_) - (_%E132598132610%_)))) - (_%E132598132610%_))))) - (_%E132598132610%_))))) - (_%E132597132632%_))) - _%stx132593%_) + _%hd136383%_) + (_%E136359136371%_)))) + (_%E136359136371%_))))) + (_%E136359136371%_))))) + (_%E136358136393%_))) + _%stx136354%_) '#f))) (define gx#core-expand-let-bind-expression - (lambda (_%bind132552%_) - (let* ((_%e132553132563%_ _%bind132552%_) - (_%E132555132567%_ + (lambda (_%bind136313%_) + (let* ((_%e136314136324%_ _%bind136313%_) + (_%E136316136328%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132553132563%_))) - (_%E132554132589%_ + _%e136314136324%_))) + (_%E136315136350%_ (lambda () - (if (gx#stx-pair? _%e132553132563%_) - (let ((_%e132556132571%_ - (gx#syntax-e _%e132553132563%_))) - (let ((_%hd132557132574%_ (##car _%e132556132571%_)) - (_%tl132558132576%_ (##cdr _%e132556132571%_))) - (if (gx#stx-pair? _%tl132558132576%_) - (let ((_%e132559132579%_ - (gx#syntax-e _%tl132558132576%_))) - (let ((_%hd132560132582%_ - (##car _%e132559132579%_)) - (_%tl132561132584%_ - (##cdr _%e132559132579%_))) - (let ((_%expr132587%_ _%hd132560132582%_)) - (if (gx#stx-null? _%tl132561132584%_) + (if (gx#stx-pair? _%e136314136324%_) + (let ((_%e136317136332%_ + (gx#syntax-e _%e136314136324%_))) + (let ((_%hd136318136335%_ (##car _%e136317136332%_)) + (_%tl136319136337%_ (##cdr _%e136317136332%_))) + (if (gx#stx-pair? _%tl136319136337%_) + (let ((_%e136320136340%_ + (gx#syntax-e _%tl136319136337%_))) + (let ((_%hd136321136343%_ + (##car _%e136320136340%_)) + (_%tl136322136345%_ + (##cdr _%e136320136340%_))) + (let ((_%expr136348%_ _%hd136321136343%_)) + (if (gx#stx-null? _%tl136322136345%_) (gx#core-expand-expression - _%expr132587%_) - (_%E132555132567%_))))) - (_%E132555132567%_)))) - (_%E132555132567%_))))) - (_%E132554132589%_)))) + _%expr136348%_) + (_%E136316136328%_))))) + (_%E136316136328%_)))) + (_%E136316136328%_))))) + (_%E136315136350%_)))) (define gx#core-expand-let-bind-values! - (lambda (_%bind132511%_) - (let* ((_%e132512132522%_ _%bind132511%_) - (_%E132514132526%_ + (lambda (_%bind136272%_) + (let* ((_%e136273136283%_ _%bind136272%_) + (_%E136275136287%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132512132522%_))) - (_%E132513132548%_ + _%e136273136283%_))) + (_%E136274136309%_ (lambda () - (if (gx#stx-pair? _%e132512132522%_) - (let ((_%e132515132530%_ - (gx#syntax-e _%e132512132522%_))) - (let ((_%hd132516132533%_ (##car _%e132515132530%_)) - (_%tl132517132535%_ (##cdr _%e132515132530%_))) - (let ((_%hd132538%_ _%hd132516132533%_)) - (if (gx#stx-pair? _%tl132517132535%_) - (let ((_%e132518132540%_ - (gx#syntax-e _%tl132517132535%_))) - (let ((_%hd132519132543%_ - (##car _%e132518132540%_)) - (_%tl132520132545%_ - (##cdr _%e132518132540%_))) - (if (gx#stx-null? _%tl132520132545%_) - (gx#core-bind-values!__0 _%hd132538%_) - (_%E132514132526%_)))) - (_%E132514132526%_))))) - (_%E132514132526%_))))) - (_%E132513132548%_)))) + (if (gx#stx-pair? _%e136273136283%_) + (let ((_%e136276136291%_ + (gx#syntax-e _%e136273136283%_))) + (let ((_%hd136277136294%_ (##car _%e136276136291%_)) + (_%tl136278136296%_ (##cdr _%e136276136291%_))) + (let ((_%hd136299%_ _%hd136277136294%_)) + (if (gx#stx-pair? _%tl136278136296%_) + (let ((_%e136279136301%_ + (gx#syntax-e _%tl136278136296%_))) + (let ((_%hd136280136304%_ + (##car _%e136279136301%_)) + (_%tl136281136306%_ + (##cdr _%e136279136301%_))) + (if (gx#stx-null? _%tl136281136306%_) + (gx#core-bind-values!__0 _%hd136299%_) + (_%E136275136287%_)))) + (_%E136275136287%_))))) + (_%E136275136287%_))))) + (_%E136274136309%_)))) (define gx#core-expand-let-bind-quote - (lambda (_%bind132469%_ _%expr132470%_) - (let* ((_%e132471132481%_ _%bind132469%_) - (_%E132473132485%_ + (lambda (_%bind136230%_ _%expr136231%_) + (let* ((_%e136232136242%_ _%bind136230%_) + (_%E136234136246%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132471132481%_))) - (_%E132472132507%_ + _%e136232136242%_))) + (_%E136233136268%_ (lambda () - (if (gx#stx-pair? _%e132471132481%_) - (let ((_%e132474132489%_ - (gx#syntax-e _%e132471132481%_))) - (let ((_%hd132475132492%_ (##car _%e132474132489%_)) - (_%tl132476132494%_ (##cdr _%e132474132489%_))) - (let ((_%hd132497%_ _%hd132475132492%_)) - (if (gx#stx-pair? _%tl132476132494%_) - (let ((_%e132477132499%_ - (gx#syntax-e _%tl132476132494%_))) - (let ((_%hd132478132502%_ - (##car _%e132477132499%_)) - (_%tl132479132504%_ - (##cdr _%e132477132499%_))) - (if (gx#stx-null? _%tl132479132504%_) + (if (gx#stx-pair? _%e136232136242%_) + (let ((_%e136235136250%_ + (gx#syntax-e _%e136232136242%_))) + (let ((_%hd136236136253%_ (##car _%e136235136250%_)) + (_%tl136237136255%_ (##cdr _%e136235136250%_))) + (let ((_%hd136258%_ _%hd136236136253%_)) + (if (gx#stx-pair? _%tl136237136255%_) + (let ((_%e136238136260%_ + (gx#syntax-e _%tl136237136255%_))) + (let ((_%hd136239136263%_ + (##car _%e136238136260%_)) + (_%tl136240136265%_ + (##cdr _%e136238136260%_))) + (if (gx#stx-null? _%tl136240136265%_) (cons (gx#core-quote-bind-values - _%hd132497%_) - (cons _%expr132470%_ '())) - (_%E132473132485%_)))) - (_%E132473132485%_))))) - (_%E132473132485%_))))) - (_%E132472132507%_)))) + _%hd136258%_) + (cons _%expr136231%_ '())) + (_%E136234136246%_)))) + (_%E136234136246%_))))) + (_%E136234136246%_))))) + (_%E136233136268%_)))) (define gx#core-expand-let-syntax% - (lambda (_%stx132423%_) - (let* ((_%e132424132434%_ _%stx132423%_) - (_%E132426132438%_ + (lambda (_%stx136184%_) + (let* ((_%e136185136195%_ _%stx136184%_) + (_%E136187136199%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132424132434%_))) - (_%E132425132465%_ + _%e136185136195%_))) + (_%E136186136226%_ (lambda () - (if (gx#stx-pair? _%e132424132434%_) - (let ((_%e132427132442%_ - (gx#syntax-e _%e132424132434%_))) - (let ((_%hd132428132445%_ (##car _%e132427132442%_)) - (_%tl132429132447%_ (##cdr _%e132427132442%_))) - (if (gx#stx-pair? _%tl132429132447%_) - (let ((_%e132430132450%_ - (gx#syntax-e _%tl132429132447%_))) - (let ((_%hd132431132453%_ - (##car _%e132430132450%_)) - (_%tl132432132455%_ - (##cdr _%e132430132450%_))) - (let* ((_%hd132458%_ _%hd132431132453%_) - (_%body132460%_ _%tl132432132455%_)) + (if (gx#stx-pair? _%e136185136195%_) + (let ((_%e136188136203%_ + (gx#syntax-e _%e136185136195%_))) + (let ((_%hd136189136206%_ (##car _%e136188136203%_)) + (_%tl136190136208%_ (##cdr _%e136188136203%_))) + (if (gx#stx-pair? _%tl136190136208%_) + (let ((_%e136191136211%_ + (gx#syntax-e _%tl136190136208%_))) + (let ((_%hd136192136214%_ + (##car _%e136191136211%_)) + (_%tl136193136216%_ + (##cdr _%e136191136211%_))) + (let* ((_%hd136219%_ _%hd136192136214%_) + (_%body136221%_ _%tl136193136216%_)) (if (gx#core-expand-let-bind-syntax? - _%hd132458%_) - (let ((_%expanders132462%_ + _%hd136219%_) + (let ((_%expanders136223%_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _%hd132458%_))) + _%hd136219%_))) (call-with-parameters__1 (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _%hd132458%_ - _%expanders132462%_) + _%hd136219%_ + _%expanders136223%_) (gx#core-expand-local-block - _%stx132423%_ - _%body132460%_)) + _%stx136184%_ + _%body136221%_)) gx#current-expander-context - (let ((__obj133844 + (let ((__obj137605 (##structure gx#local-context::t '#f @@ -1533,63 +1533,63 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj133844) - __obj133844))) - (_%E132426132438%_))))) - (_%E132426132438%_)))) - (_%E132426132438%_))))) - (_%E132425132465%_)))) + __obj137605) + __obj137605))) + (_%E136187136199%_))))) + (_%E136187136199%_)))) + (_%E136187136199%_))))) + (_%E136186136226%_)))) (define gx#core-expand-letrec-syntax% - (lambda (_%stx132372%_) - (let* ((_%e132373132383%_ _%stx132372%_) - (_%E132375132387%_ + (lambda (_%stx136133%_) + (let* ((_%e136134136144%_ _%stx136133%_) + (_%E136136136148%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132373132383%_))) - (_%E132374132419%_ + _%e136134136144%_))) + (_%E136135136180%_ (lambda () - (if (gx#stx-pair? _%e132373132383%_) - (let ((_%e132376132391%_ - (gx#syntax-e _%e132373132383%_))) - (let ((_%hd132377132394%_ (##car _%e132376132391%_)) - (_%tl132378132396%_ (##cdr _%e132376132391%_))) - (if (gx#stx-pair? _%tl132378132396%_) - (let ((_%e132379132399%_ - (gx#syntax-e _%tl132378132396%_))) - (let ((_%hd132380132402%_ - (##car _%e132379132399%_)) - (_%tl132381132404%_ - (##cdr _%e132379132399%_))) - (let* ((_%hd132407%_ _%hd132380132402%_) - (_%body132409%_ _%tl132381132404%_)) + (if (gx#stx-pair? _%e136134136144%_) + (let ((_%e136137136152%_ + (gx#syntax-e _%e136134136144%_))) + (let ((_%hd136138136155%_ (##car _%e136137136152%_)) + (_%tl136139136157%_ (##cdr _%e136137136152%_))) + (if (gx#stx-pair? _%tl136139136157%_) + (let ((_%e136140136160%_ + (gx#syntax-e _%tl136139136157%_))) + (let ((_%hd136141136163%_ + (##car _%e136140136160%_)) + (_%tl136142136165%_ + (##cdr _%e136140136160%_))) + (let* ((_%hd136168%_ _%hd136141136163%_) + (_%body136170%_ _%tl136142136165%_)) (if (gx#core-expand-let-bind-syntax? - _%hd132407%_) + _%hd136168%_) (call-with-parameters__1 (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _%hd132407%_ + _%hd136168%_ (make-list - (gx#stx-length _%hd132407%_) + (gx#stx-length _%hd136168%_) '#!void)) (gx#stx-for-each2 - (lambda (_%g132411132414%_ - _%g132412132416%_) + (lambda (_%g136172136175%_ + _%g136173136177%_) (gx#core-expand-let-bind-syntax!__% - _%g132411132414%_ - _%g132412132416%_ + _%g136172136175%_ + _%g136173136177%_ '#t)) - _%hd132407%_ + _%hd136168%_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _%hd132407%_)) + _%hd136168%_)) (gx#core-expand-local-block - _%stx132372%_ - _%body132409%_)) + _%stx136133%_ + _%body136170%_)) gx#current-expander-context - (let ((__obj133845 + (let ((__obj137606 (##structure gx#local-context::t '#f @@ -1598,1725 +1598,1725 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj133845) - __obj133845)) - (_%E132375132387%_))))) - (_%E132375132387%_)))) - (_%E132375132387%_))))) - (_%E132374132419%_)))) + __obj137606) + __obj137606)) + (_%E136136136148%_))))) + (_%E136136136148%_)))) + (_%E136136136148%_))))) + (_%E136135136180%_)))) (define gx#core-expand-let-bind-syntax? - (lambda (_%stx132329%_) - (if (gx#stx-list? _%stx132329%_) + (lambda (_%stx136090%_) + (if (gx#stx-list? _%stx136090%_) (gx#stx-andmap - (lambda (_%bind132331%_) - (let* ((_%e132332132342%_ _%bind132331%_) - (_%E132334132346%_ (lambda () '#f)) - (_%E132333132368%_ + (lambda (_%bind136092%_) + (let* ((_%e136093136103%_ _%bind136092%_) + (_%E136095136107%_ (lambda () '#f)) + (_%E136094136129%_ (lambda () - (if (gx#stx-pair? _%e132332132342%_) - (let ((_%e132335132350%_ - (gx#syntax-e _%e132332132342%_))) - (let ((_%hd132336132353%_ - (##car _%e132335132350%_)) - (_%tl132337132355%_ - (##cdr _%e132335132350%_))) - (let ((_%hd132358%_ _%hd132336132353%_)) - (if (gx#stx-pair? _%tl132337132355%_) - (let ((_%e132338132360%_ + (if (gx#stx-pair? _%e136093136103%_) + (let ((_%e136096136111%_ + (gx#syntax-e _%e136093136103%_))) + (let ((_%hd136097136114%_ + (##car _%e136096136111%_)) + (_%tl136098136116%_ + (##cdr _%e136096136111%_))) + (let ((_%hd136119%_ _%hd136097136114%_)) + (if (gx#stx-pair? _%tl136098136116%_) + (let ((_%e136099136121%_ (gx#syntax-e - _%tl132337132355%_))) - (let ((_%hd132339132363%_ - (##car _%e132338132360%_)) - (_%tl132340132365%_ - (##cdr _%e132338132360%_))) + _%tl136098136116%_))) + (let ((_%hd136100136124%_ + (##car _%e136099136121%_)) + (_%tl136101136126%_ + (##cdr _%e136099136121%_))) (if (gx#stx-null? - _%tl132340132365%_) - (gx#identifier? _%hd132358%_) - (_%E132334132346%_)))) - (_%E132334132346%_))))) - (_%E132334132346%_))))) - (_%E132333132368%_))) - _%stx132329%_) + _%tl136101136126%_) + (gx#identifier? _%hd136119%_) + (_%E136095136107%_)))) + (_%E136095136107%_))))) + (_%E136095136107%_))))) + (_%E136094136129%_))) + _%stx136090%_) '#f))) (define gx#core-expand-let-bind-syntax-expression - (lambda (_%bind132285%_) - (let* ((_%e132286132296%_ _%bind132285%_) - (_%E132288132300%_ + (lambda (_%bind136046%_) + (let* ((_%e136047136057%_ _%bind136046%_) + (_%E136049136061%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132286132296%_))) - (_%E132287132325%_ + _%e136047136057%_))) + (_%E136048136086%_ (lambda () - (if (gx#stx-pair? _%e132286132296%_) - (let ((_%e132289132304%_ - (gx#syntax-e _%e132286132296%_))) - (let ((_%hd132290132307%_ (##car _%e132289132304%_)) - (_%tl132291132309%_ (##cdr _%e132289132304%_))) - (if (gx#stx-pair? _%tl132291132309%_) - (let ((_%e132292132312%_ - (gx#syntax-e _%tl132291132309%_))) - (let ((_%hd132293132315%_ - (##car _%e132292132312%_)) - (_%tl132294132317%_ - (##cdr _%e132292132312%_))) - (let ((_%expr132320%_ _%hd132293132315%_)) - (if (gx#stx-null? _%tl132294132317%_) - (let ((_g133854_ + (if (gx#stx-pair? _%e136047136057%_) + (let ((_%e136050136065%_ + (gx#syntax-e _%e136047136057%_))) + (let ((_%hd136051136068%_ (##car _%e136050136065%_)) + (_%tl136052136070%_ (##cdr _%e136050136065%_))) + (if (gx#stx-pair? _%tl136052136070%_) + (let ((_%e136053136073%_ + (gx#syntax-e _%tl136052136070%_))) + (let ((_%hd136054136076%_ + (##car _%e136053136073%_)) + (_%tl136055136078%_ + (##cdr _%e136053136073%_))) + (let ((_%expr136081%_ _%hd136054136076%_)) + (if (gx#stx-null? _%tl136055136078%_) + (let ((_g137615_ (gx#core-expand-expression+1 - _%expr132320%_))) + _%expr136081%_))) (begin - (let ((_g133855_ - (if (##values? _g133854_) + (let ((_g137616_ + (if (##values? _g137615_) (##values-length - _g133854_) + _g137615_) 1))) - (if (not (##fx= _g133855_ 2)) + (if (not (##fx= _g137616_ 2)) (error "Context expects 2 values" - _g133855_))) - (let ((_%_132322%_ - (##values-ref _g133854_ 0)) - (_%e132323%_ - (##values-ref _g133854_ 1))) - _%e132323%_))) - (_%E132288132300%_))))) - (_%E132288132300%_)))) - (_%E132288132300%_))))) - (_%E132287132325%_)))) + _g137616_))) + (let ((_%_136083%_ + (##values-ref _g137615_ 0)) + (_%e136084%_ + (##values-ref _g137615_ 1))) + _%e136084%_))) + (_%E136049136061%_))))) + (_%E136049136061%_)))) + (_%E136049136061%_))))) + (_%E136048136086%_)))) (define gx#core-expand-let-bind-syntax!__% - (lambda (_%bind132230%_ _%e132231%_ _%rebind?132232%_) - (let* ((_%e132233132243%_ _%bind132230%_) - (_%E132235132247%_ + (lambda (_%bind135991%_ _%e135992%_ _%rebind?135993%_) + (let* ((_%e135994136004%_ _%bind135991%_) + (_%E135996136008%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132233132243%_))) - (_%E132234132269%_ + _%e135994136004%_))) + (_%E135995136030%_ (lambda () - (if (gx#stx-pair? _%e132233132243%_) - (let ((_%e132236132251%_ - (gx#syntax-e _%e132233132243%_))) - (let ((_%hd132237132254%_ (##car _%e132236132251%_)) - (_%tl132238132256%_ (##cdr _%e132236132251%_))) - (let ((_%id132259%_ _%hd132237132254%_)) - (if (gx#stx-pair? _%tl132238132256%_) - (let ((_%e132239132261%_ - (gx#syntax-e _%tl132238132256%_))) - (let ((_%hd132240132264%_ - (##car _%e132239132261%_)) - (_%tl132241132266%_ - (##cdr _%e132239132261%_))) - (if (gx#stx-null? _%tl132241132266%_) + (if (gx#stx-pair? _%e135994136004%_) + (let ((_%e135997136012%_ + (gx#syntax-e _%e135994136004%_))) + (let ((_%hd135998136015%_ (##car _%e135997136012%_)) + (_%tl135999136017%_ (##cdr _%e135997136012%_))) + (let ((_%id136020%_ _%hd135998136015%_)) + (if (gx#stx-pair? _%tl135999136017%_) + (let ((_%e136000136022%_ + (gx#syntax-e _%tl135999136017%_))) + (let ((_%hd136001136025%_ + (##car _%e136000136022%_)) + (_%tl136002136027%_ + (##cdr _%e136000136022%_))) + (if (gx#stx-null? _%tl136002136027%_) (gx#core-bind-syntax!__1 - _%id132259%_ - _%e132231%_ - _%rebind?132232%_) - (_%E132235132247%_)))) - (_%E132235132247%_))))) - (_%E132235132247%_))))) - (_%E132234132269%_)))) + _%id136020%_ + _%e135992%_ + _%rebind?135993%_) + (_%E135996136008%_)))) + (_%E135996136008%_))))) + (_%E135996136008%_))))) + (_%E135995136030%_)))) (define gx#core-expand-let-bind-syntax!__0 - (lambda (_%bind132276%_ _%e132277%_) - (let ((_%rebind?132279%_ '#f)) + (lambda (_%bind136037%_ _%e136038%_) + (let ((_%rebind?136040%_ '#f)) (gx#core-expand-let-bind-syntax!__% - _%bind132276%_ - _%e132277%_ - _%rebind?132279%_)))) + _%bind136037%_ + _%e136038%_ + _%rebind?136040%_)))) (define gx#core-expand-let-bind-syntax! - (lambda _g133856_ - (let ((_g133857_ (##length _g133856_))) - (cond ((##fx= _g133857_ 2) - (apply gx#core-expand-let-bind-syntax!__0 _g133856_)) - ((##fx= _g133857_ 3) - (apply gx#core-expand-let-bind-syntax!__% _g133856_)) + (lambda _g137617_ + (let ((_g137618_ (##length _g137617_))) + (cond ((##fx= _g137618_ 2) + (apply gx#core-expand-let-bind-syntax!__0 _g137617_)) + ((##fx= _g137618_ 3) + (apply gx#core-expand-let-bind-syntax!__% _g137617_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-let-bind-syntax! - _g133856_)))))) + _g137617_)))))) (define gx#core-expand-expression% - (lambda (_%stx132188%_) - (let* ((_%e132189132199%_ _%stx132188%_) - (_%E132191132203%_ + (lambda (_%stx135949%_) + (let* ((_%e135950135960%_ _%stx135949%_) + (_%E135952135964%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132189132199%_))) - (_%E132190132225%_ + _%e135950135960%_))) + (_%E135951135986%_ (lambda () - (if (gx#stx-pair? _%e132189132199%_) - (let ((_%e132192132207%_ - (gx#syntax-e _%e132189132199%_))) - (let ((_%hd132193132210%_ (##car _%e132192132207%_)) - (_%tl132194132212%_ (##cdr _%e132192132207%_))) - (if (gx#stx-pair? _%tl132194132212%_) - (let ((_%e132195132215%_ - (gx#syntax-e _%tl132194132212%_))) - (let ((_%hd132196132218%_ - (##car _%e132195132215%_)) - (_%tl132197132220%_ - (##cdr _%e132195132215%_))) - (let ((_%expr132223%_ _%hd132196132218%_)) - (if (gx#stx-null? _%tl132197132220%_) + (if (gx#stx-pair? _%e135950135960%_) + (let ((_%e135953135968%_ + (gx#syntax-e _%e135950135960%_))) + (let ((_%hd135954135971%_ (##car _%e135953135968%_)) + (_%tl135955135973%_ (##cdr _%e135953135968%_))) + (if (gx#stx-pair? _%tl135955135973%_) + (let ((_%e135956135976%_ + (gx#syntax-e _%tl135955135973%_))) + (let ((_%hd135957135979%_ + (##car _%e135956135976%_)) + (_%tl135958135981%_ + (##cdr _%e135956135976%_))) + (let ((_%expr135984%_ _%hd135957135979%_)) + (if (gx#stx-null? _%tl135958135981%_) (gx#core-expand-expression - _%expr132223%_) - (_%E132191132203%_))))) - (_%E132191132203%_)))) - (_%E132191132203%_))))) - (_%E132190132225%_)))) + _%expr135984%_) + (_%E135952135964%_))))) + (_%E135952135964%_)))) + (_%E135952135964%_))))) + (_%E135951135986%_)))) (define gx#core-expand-quote% - (lambda (_%stx132147%_) - (let* ((_%e132148132158%_ _%stx132147%_) - (_%E132150132162%_ + (lambda (_%stx135908%_) + (let* ((_%e135909135919%_ _%stx135908%_) + (_%E135911135923%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132148132158%_))) - (_%E132149132184%_ + _%e135909135919%_))) + (_%E135910135945%_ (lambda () - (if (gx#stx-pair? _%e132148132158%_) - (let ((_%e132151132166%_ - (gx#syntax-e _%e132148132158%_))) - (let ((_%hd132152132169%_ (##car _%e132151132166%_)) - (_%tl132153132171%_ (##cdr _%e132151132166%_))) - (if (gx#stx-pair? _%tl132153132171%_) - (let ((_%e132154132174%_ - (gx#syntax-e _%tl132153132171%_))) - (let ((_%hd132155132177%_ - (##car _%e132154132174%_)) - (_%tl132156132179%_ - (##cdr _%e132154132174%_))) - (let ((_%e132182%_ _%hd132155132177%_)) - (if (gx#stx-null? _%tl132156132179%_) + (if (gx#stx-pair? _%e135909135919%_) + (let ((_%e135912135927%_ + (gx#syntax-e _%e135909135919%_))) + (let ((_%hd135913135930%_ (##car _%e135912135927%_)) + (_%tl135914135932%_ (##cdr _%e135912135927%_))) + (if (gx#stx-pair? _%tl135914135932%_) + (let ((_%e135915135935%_ + (gx#syntax-e _%tl135914135932%_))) + (let ((_%hd135916135938%_ + (##car _%e135915135935%_)) + (_%tl135917135940%_ + (##cdr _%e135915135935%_))) + (let ((_%e135943%_ _%hd135916135938%_)) + (if (gx#stx-null? _%tl135917135940%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote) (cons (gx#syntax->datum - _%e132182%_) + _%e135943%_) '())) - (gx#stx-source _%stx132147%_)) - (_%E132150132162%_))))) - (_%E132150132162%_)))) - (_%E132150132162%_))))) - (_%E132149132184%_)))) + (gx#stx-source _%stx135908%_)) + (_%E135911135923%_))))) + (_%E135911135923%_)))) + (_%E135911135923%_))))) + (_%E135910135945%_)))) (define gx#core-expand-quote-syntax% - (lambda (_%stx132106%_) - (let* ((_%e132107132117%_ _%stx132106%_) - (_%E132109132121%_ + (lambda (_%stx135867%_) + (let* ((_%e135868135878%_ _%stx135867%_) + (_%E135870135882%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132107132117%_))) - (_%E132108132143%_ + _%e135868135878%_))) + (_%E135869135904%_ (lambda () - (if (gx#stx-pair? _%e132107132117%_) - (let ((_%e132110132125%_ - (gx#syntax-e _%e132107132117%_))) - (let ((_%hd132111132128%_ (##car _%e132110132125%_)) - (_%tl132112132130%_ (##cdr _%e132110132125%_))) - (if (gx#stx-pair? _%tl132112132130%_) - (let ((_%e132113132133%_ - (gx#syntax-e _%tl132112132130%_))) - (let ((_%hd132114132136%_ - (##car _%e132113132133%_)) - (_%tl132115132138%_ - (##cdr _%e132113132133%_))) - (let ((_%e132141%_ _%hd132114132136%_)) - (if (gx#stx-null? _%tl132115132138%_) + (if (gx#stx-pair? _%e135868135878%_) + (let ((_%e135871135886%_ + (gx#syntax-e _%e135868135878%_))) + (let ((_%hd135872135889%_ (##car _%e135871135886%_)) + (_%tl135873135891%_ (##cdr _%e135871135886%_))) + (if (gx#stx-pair? _%tl135873135891%_) + (let ((_%e135874135894%_ + (gx#syntax-e _%tl135873135891%_))) + (let ((_%hd135875135897%_ + (##car _%e135874135894%_)) + (_%tl135876135899%_ + (##cdr _%e135874135894%_))) + (let ((_%e135902%_ _%hd135875135897%_)) + (if (gx#stx-null? _%tl135876135899%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote-syntax) (cons (gx#core-quote-syntax__0 - _%e132141%_) + _%e135902%_) '())) - (gx#stx-source _%stx132106%_)) - (_%E132109132121%_))))) - (_%E132109132121%_)))) - (_%E132109132121%_))))) - (_%E132108132143%_)))) + (gx#stx-source _%stx135867%_)) + (_%E135870135882%_))))) + (_%E135870135882%_)))) + (_%E135870135882%_))))) + (_%E135869135904%_)))) (define gx#core-expand-call% - (lambda (_%stx132063%_) - (let* ((_%e132064132074%_ _%stx132063%_) - (_%E132066132078%_ + (lambda (_%stx135824%_) + (let* ((_%e135825135835%_ _%stx135824%_) + (_%E135827135839%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132064132074%_))) - (_%E132065132102%_ + _%e135825135835%_))) + (_%E135826135863%_ (lambda () - (if (gx#stx-pair? _%e132064132074%_) - (let ((_%e132067132082%_ - (gx#syntax-e _%e132064132074%_))) - (let ((_%hd132068132085%_ (##car _%e132067132082%_)) - (_%tl132069132087%_ (##cdr _%e132067132082%_))) - (if (gx#stx-pair? _%tl132069132087%_) - (let ((_%e132070132090%_ - (gx#syntax-e _%tl132069132087%_))) - (let ((_%hd132071132093%_ - (##car _%e132070132090%_)) - (_%tl132072132095%_ - (##cdr _%e132070132090%_))) - (let* ((_%rator132098%_ _%hd132071132093%_) - (_%args132100%_ _%tl132072132095%_)) - (if (gx#stx-list? _%args132100%_) + (if (gx#stx-pair? _%e135825135835%_) + (let ((_%e135828135843%_ + (gx#syntax-e _%e135825135835%_))) + (let ((_%hd135829135846%_ (##car _%e135828135843%_)) + (_%tl135830135848%_ (##cdr _%e135828135843%_))) + (if (gx#stx-pair? _%tl135830135848%_) + (let ((_%e135831135851%_ + (gx#syntax-e _%tl135830135848%_))) + (let ((_%hd135832135854%_ + (##car _%e135831135851%_)) + (_%tl135833135856%_ + (##cdr _%e135831135851%_))) + (let* ((_%rator135859%_ _%hd135832135854%_) + (_%args135861%_ _%tl135833135856%_)) + (if (gx#stx-list? _%args135861%_) (gx#core-quote-syntax__1 (gx#core-cons* '%#call (gx#core-expand-expression - _%rator132098%_) + _%rator135859%_) (gx#stx-map1 gx#core-expand-expression - _%args132100%_)) - (gx#stx-source _%stx132063%_)) - (_%E132066132078%_))))) - (_%E132066132078%_)))) - (_%E132066132078%_))))) - (_%E132065132102%_)))) + _%args135861%_)) + (gx#stx-source _%stx135824%_)) + (_%E135827135839%_))))) + (_%E135827135839%_)))) + (_%E135827135839%_))))) + (_%E135826135863%_)))) (define gx#core-expand-if% - (lambda (_%stx131996%_) - (let* ((_%e131997132013%_ _%stx131996%_) - (_%E131999132017%_ + (lambda (_%stx135757%_) + (let* ((_%e135758135774%_ _%stx135757%_) + (_%E135760135778%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131997132013%_))) - (_%E131998132059%_ + _%e135758135774%_))) + (_%E135759135820%_ (lambda () - (if (gx#stx-pair? _%e131997132013%_) - (let ((_%e132000132021%_ - (gx#syntax-e _%e131997132013%_))) - (let ((_%hd132001132024%_ (##car _%e132000132021%_)) - (_%tl132002132026%_ (##cdr _%e132000132021%_))) - (if (gx#stx-pair? _%tl132002132026%_) - (let ((_%e132003132029%_ - (gx#syntax-e _%tl132002132026%_))) - (let ((_%hd132004132032%_ - (##car _%e132003132029%_)) - (_%tl132005132034%_ - (##cdr _%e132003132029%_))) - (let ((_%test132037%_ _%hd132004132032%_)) - (if (gx#stx-pair? _%tl132005132034%_) - (let ((_%e132006132039%_ + (if (gx#stx-pair? _%e135758135774%_) + (let ((_%e135761135782%_ + (gx#syntax-e _%e135758135774%_))) + (let ((_%hd135762135785%_ (##car _%e135761135782%_)) + (_%tl135763135787%_ (##cdr _%e135761135782%_))) + (if (gx#stx-pair? _%tl135763135787%_) + (let ((_%e135764135790%_ + (gx#syntax-e _%tl135763135787%_))) + (let ((_%hd135765135793%_ + (##car _%e135764135790%_)) + (_%tl135766135795%_ + (##cdr _%e135764135790%_))) + (let ((_%test135798%_ _%hd135765135793%_)) + (if (gx#stx-pair? _%tl135766135795%_) + (let ((_%e135767135800%_ (gx#syntax-e - _%tl132005132034%_))) - (let ((_%hd132007132042%_ - (##car _%e132006132039%_)) - (_%tl132008132044%_ - (##cdr _%e132006132039%_))) - (let ((_%K132047%_ - _%hd132007132042%_)) + _%tl135766135795%_))) + (let ((_%hd135768135803%_ + (##car _%e135767135800%_)) + (_%tl135769135805%_ + (##cdr _%e135767135800%_))) + (let ((_%K135808%_ + _%hd135768135803%_)) (if (gx#stx-pair? - _%tl132008132044%_) - (let ((_%e132009132049%_ + _%tl135769135805%_) + (let ((_%e135770135810%_ (gx#syntax-e - _%tl132008132044%_))) - (let ((_%hd132010132052%_ - (##car _%e132009132049%_)) - (_%tl132011132054%_ - (##cdr _%e132009132049%_))) - (let ((_%E132057%_ - _%hd132010132052%_)) + _%tl135769135805%_))) + (let ((_%hd135771135813%_ + (##car _%e135770135810%_)) + (_%tl135772135815%_ + (##cdr _%e135770135810%_))) + (let ((_%E135818%_ + _%hd135771135813%_)) (if (gx#stx-null? - _%tl132011132054%_) + _%tl135772135815%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#if) - (cons (gx#core-expand-expression _%test132037%_) - (cons (gx#core-expand-expression _%K132047%_) + (cons (gx#core-expand-expression _%test135798%_) + (cons (gx#core-expand-expression _%K135808%_) (cons (gx#core-expand-expression - _%E132057%_) + _%E135818%_) '())))) - (gx#stx-source _%stx131996%_)) - (_%E131999132017%_))))) + (gx#stx-source _%stx135757%_)) + (_%E135760135778%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E131999132017%_))))) - (_%E131999132017%_))))) - (_%E131999132017%_)))) - (_%E131999132017%_))))) - (_%E131998132059%_)))) + (_%E135760135778%_))))) + (_%E135760135778%_))))) + (_%E135760135778%_)))) + (_%E135760135778%_))))) + (_%E135759135820%_)))) (define gx#core-expand-ref% - (lambda (_%stx131955%_) - (let* ((_%e131956131966%_ _%stx131955%_) - (_%E131958131970%_ + (lambda (_%stx135716%_) + (let* ((_%e135717135727%_ _%stx135716%_) + (_%E135719135731%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131956131966%_))) - (_%E131957131992%_ + _%e135717135727%_))) + (_%E135718135753%_ (lambda () - (if (gx#stx-pair? _%e131956131966%_) - (let ((_%e131959131974%_ - (gx#syntax-e _%e131956131966%_))) - (let ((_%hd131960131977%_ (##car _%e131959131974%_)) - (_%tl131961131979%_ (##cdr _%e131959131974%_))) - (if (gx#stx-pair? _%tl131961131979%_) - (let ((_%e131962131982%_ - (gx#syntax-e _%tl131961131979%_))) - (let ((_%hd131963131985%_ - (##car _%e131962131982%_)) - (_%tl131964131987%_ - (##cdr _%e131962131982%_))) - (let ((_%id131990%_ _%hd131963131985%_)) - (if (gx#stx-null? _%tl131964131987%_) - (if (gx#identifier? _%id131990%_) + (if (gx#stx-pair? _%e135717135727%_) + (let ((_%e135720135735%_ + (gx#syntax-e _%e135717135727%_))) + (let ((_%hd135721135738%_ (##car _%e135720135735%_)) + (_%tl135722135740%_ (##cdr _%e135720135735%_))) + (if (gx#stx-pair? _%tl135722135740%_) + (let ((_%e135723135743%_ + (gx#syntax-e _%tl135722135740%_))) + (let ((_%hd135724135746%_ + (##car _%e135723135743%_)) + (_%tl135725135748%_ + (##cdr _%e135723135743%_))) + (let ((_%id135751%_ _%hd135724135746%_)) + (if (gx#stx-null? _%tl135725135748%_) + (if (gx#identifier? _%id135751%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#ref) (cons (gx#core-quote-runtime-ref - _%id131990%_ - _%stx131955%_) + _%id135751%_ + _%stx135716%_) '())) - (gx#stx-source _%stx131955%_)) - (_%E131958131970%_)) - (_%E131958131970%_))))) - (_%E131958131970%_)))) - (_%E131958131970%_))))) - (_%E131957131992%_)))) + (gx#stx-source _%stx135716%_)) + (_%E135719135731%_)) + (_%E135719135731%_))))) + (_%E135719135731%_)))) + (_%E135719135731%_))))) + (_%E135718135753%_)))) (define gx#core-expand-setq% - (lambda (_%stx131901%_) - (let* ((_%e131902131915%_ _%stx131901%_) - (_%E131904131919%_ + (lambda (_%stx135662%_) + (let* ((_%e135663135676%_ _%stx135662%_) + (_%E135665135680%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131902131915%_))) - (_%E131903131951%_ + _%e135663135676%_))) + (_%E135664135712%_ (lambda () - (if (gx#stx-pair? _%e131902131915%_) - (let ((_%e131905131923%_ - (gx#syntax-e _%e131902131915%_))) - (let ((_%hd131906131926%_ (##car _%e131905131923%_)) - (_%tl131907131928%_ (##cdr _%e131905131923%_))) - (if (gx#stx-pair? _%tl131907131928%_) - (let ((_%e131908131931%_ - (gx#syntax-e _%tl131907131928%_))) - (let ((_%hd131909131934%_ - (##car _%e131908131931%_)) - (_%tl131910131936%_ - (##cdr _%e131908131931%_))) - (let ((_%id131939%_ _%hd131909131934%_)) - (if (gx#stx-pair? _%tl131910131936%_) - (let ((_%e131911131941%_ + (if (gx#stx-pair? _%e135663135676%_) + (let ((_%e135666135684%_ + (gx#syntax-e _%e135663135676%_))) + (let ((_%hd135667135687%_ (##car _%e135666135684%_)) + (_%tl135668135689%_ (##cdr _%e135666135684%_))) + (if (gx#stx-pair? _%tl135668135689%_) + (let ((_%e135669135692%_ + (gx#syntax-e _%tl135668135689%_))) + (let ((_%hd135670135695%_ + (##car _%e135669135692%_)) + (_%tl135671135697%_ + (##cdr _%e135669135692%_))) + (let ((_%id135700%_ _%hd135670135695%_)) + (if (gx#stx-pair? _%tl135671135697%_) + (let ((_%e135672135702%_ (gx#syntax-e - _%tl131910131936%_))) - (let ((_%hd131912131944%_ - (##car _%e131911131941%_)) - (_%tl131913131946%_ - (##cdr _%e131911131941%_))) - (let ((_%expr131949%_ - _%hd131912131944%_)) + _%tl135671135697%_))) + (let ((_%hd135673135705%_ + (##car _%e135672135702%_)) + (_%tl135674135707%_ + (##cdr _%e135672135702%_))) + (let ((_%expr135710%_ + _%hd135673135705%_)) (if (gx#stx-null? - _%tl131913131946%_) + _%tl135674135707%_) (if (gx#identifier? - _%id131939%_) + _%id135700%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#set!) (cons (gx#core-quote-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id131939%_ - _%stx131901%_) - (cons (gx#core-expand-expression _%expr131949%_) + _%id135700%_ + _%stx135662%_) + (cons (gx#core-expand-expression _%expr135710%_) '()))) - (gx#stx-source _%stx131901%_)) - (_%E131904131919%_)) + (gx#stx-source _%stx135662%_)) + (_%E135665135680%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E131904131919%_))))) - (_%E131904131919%_))))) - (_%E131904131919%_)))) - (_%E131904131919%_))))) - (_%E131903131951%_)))) + (_%E135665135680%_))))) + (_%E135665135680%_))))) + (_%E135665135680%_)))) + (_%E135665135680%_))))) + (_%E135664135712%_)))) (define gx#macro-expand-extern - (lambda (_%stx131746%_) - (letrec ((_%generate131748%_ - (lambda (_%body131778%_) - (let _%lp131780%_ ((_%rest131782%_ _%body131778%_) - (_%ns131783%_ + (lambda (_%stx135507%_) + (letrec ((_%generate135509%_ + (lambda (_%body135539%_) + (let _%lp135541%_ ((_%rest135543%_ _%body135539%_) + (_%ns135544%_ (gx#core-context-namespace__0)) - (_%r131784%_ '())) - (let* ((_%e131785131800%_ _%rest131782%_) - (_%E131798131804%_ + (_%r135545%_ '())) + (let* ((_%e135546135561%_ _%rest135543%_) + (_%E135559135565%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131785131800%_))) - (_%E131794131808%_ + _%e135546135561%_))) + (_%E135555135569%_ (lambda () - (if (gx#stx-null? _%e131785131800%_) - (reverse _%r131784%_) - (_%E131798131804%_)))) - (_%E131787131865%_ + (if (gx#stx-null? _%e135546135561%_) + (reverse _%r135545%_) + (_%E135559135565%_)))) + (_%E135548135626%_ (lambda () - (if (gx#stx-pair? _%e131785131800%_) - (let ((_%e131795131812%_ - (gx#syntax-e _%e131785131800%_))) - (let ((_%hd131796131815%_ - (##car _%e131795131812%_)) - (_%tl131797131817%_ - (##cdr _%e131795131812%_))) - (let* ((_%hd131820%_ - _%hd131796131815%_) - (_%rest131822%_ - _%tl131797131817%_)) - (if (gx#identifier? _%hd131820%_) - (_%lp131780%_ - _%rest131822%_ - _%ns131783%_ - (cons (cons _%hd131820%_ - (cons (if _%ns131783%_ + (if (gx#stx-pair? _%e135546135561%_) + (let ((_%e135556135573%_ + (gx#syntax-e _%e135546135561%_))) + (let ((_%hd135557135576%_ + (##car _%e135556135573%_)) + (_%tl135558135578%_ + (##cdr _%e135556135573%_))) + (let* ((_%hd135581%_ + _%hd135557135576%_) + (_%rest135583%_ + _%tl135558135578%_)) + (if (gx#identifier? _%hd135581%_) + (_%lp135541%_ + _%rest135583%_ + _%ns135544%_ + (cons (cons _%hd135581%_ + (cons (if _%ns135544%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-identifier - _%hd131820%_ - _%ns131783%_ + _%hd135581%_ + _%ns135544%_ '"#" - _%hd131820%_) - _%hd131820%_) + _%hd135581%_) + _%hd135581%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r131784%_)) - (let* ((_%e131823131833%_ - _%hd131820%_) - (_%E131825131837%_ + _%r135545%_)) + (let* ((_%e135584135594%_ + _%hd135581%_) + (_%E135586135598%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131823131833%_))) - (_%E131824131861%_ + _%e135584135594%_))) + (_%E135585135622%_ (lambda () (if (gx#stx-pair? - _%e131823131833%_) - (let ((_%e131826131841%_ + _%e135584135594%_) + (let ((_%e135587135602%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%e131823131833%_))) - (let ((_%hd131827131844%_ (##car _%e131826131841%_)) - (_%tl131828131846%_ (##cdr _%e131826131841%_))) - (let ((_%id131849%_ _%hd131827131844%_)) - (if (gx#stx-pair? _%tl131828131846%_) - (let ((_%e131829131851%_ - (gx#syntax-e _%tl131828131846%_))) - (let ((_%hd131830131854%_ - (##car _%e131829131851%_)) - (_%tl131831131856%_ - (##cdr _%e131829131851%_))) - (let ((_%eid131859%_ _%hd131830131854%_)) - (if (gx#stx-null? _%tl131831131856%_) - (if (and (gx#identifier? _%id131849%_) + (gx#syntax-e _%e135584135594%_))) + (let ((_%hd135588135605%_ (##car _%e135587135602%_)) + (_%tl135589135607%_ (##cdr _%e135587135602%_))) + (let ((_%id135610%_ _%hd135588135605%_)) + (if (gx#stx-pair? _%tl135589135607%_) + (let ((_%e135590135612%_ + (gx#syntax-e _%tl135589135607%_))) + (let ((_%hd135591135615%_ + (##car _%e135590135612%_)) + (_%tl135592135617%_ + (##cdr _%e135590135612%_))) + (let ((_%eid135620%_ _%hd135591135615%_)) + (if (gx#stx-null? _%tl135592135617%_) + (if (and (gx#identifier? _%id135610%_) (gx#identifier? - _%eid131859%_)) - (_%lp131780%_ - _%rest131822%_ - _%ns131783%_ - (cons (cons _%id131849%_ - (cons _%eid131859%_ + _%eid135620%_)) + (_%lp135541%_ + _%rest135583%_ + _%ns135544%_ + (cons (cons _%id135610%_ + (cons _%eid135620%_ '())) - _%r131784%_)) - (_%E131825131837%_)) - (_%E131825131837%_))))) - (_%E131825131837%_))))) - (_%E131825131837%_))))) + _%r135545%_)) + (_%E135586135598%_)) + (_%E135586135598%_))))) + (_%E135586135598%_))))) + (_%E135586135598%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E131824131861%_)))))) - (_%E131794131808%_)))) - (_%E131786131897%_ + (_%E135585135622%_)))))) + (_%E135555135569%_)))) + (_%E135547135658%_ (lambda () - (if (gx#stx-pair? _%e131785131800%_) - (let ((_%e131788131869%_ - (gx#syntax-e _%e131785131800%_))) - (let ((_%hd131789131872%_ - (##car _%e131788131869%_)) - (_%tl131790131874%_ - (##cdr _%e131788131869%_))) - (if (eq? (gx#stx-e _%hd131789131872%_) + (if (gx#stx-pair? _%e135546135561%_) + (let ((_%e135549135630%_ + (gx#syntax-e _%e135546135561%_))) + (let ((_%hd135550135633%_ + (##car _%e135549135630%_)) + (_%tl135551135635%_ + (##cdr _%e135549135630%_))) + (if (eq? (gx#stx-e _%hd135550135633%_) 'namespace:) (if (gx#stx-pair? - _%tl131790131874%_) - (let ((_%e131791131877%_ + _%tl135551135635%_) + (let ((_%e135552135638%_ (gx#syntax-e - _%tl131790131874%_))) - (let ((_%hd131792131880%_ - (##car _%e131791131877%_)) - (_%tl131793131882%_ - (##cdr _%e131791131877%_))) - (let* ((_%ns131885%_ - _%hd131792131880%_) - (_%rest131887%_ - _%tl131793131882%_) - (_%ns131895%_ + _%tl135551135635%_))) + (let ((_%hd135553135641%_ + (##car _%e135552135638%_)) + (_%tl135554135643%_ + (##cdr _%e135552135638%_))) + (let* ((_%ns135646%_ + _%hd135553135641%_) + (_%rest135648%_ + _%tl135554135643%_) + (_%ns135656%_ (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%ns131885%_) - (symbol->string (gx#stx-e _%ns131885%_)) - (if (or (gx#stx-string? _%ns131885%_) - (gx#stx-false? _%ns131885%_)) - (gx#stx-e _%ns131885%_) + _%ns135646%_) + (symbol->string (gx#stx-e _%ns135646%_)) + (if (or (gx#stx-string? _%ns135646%_) + (gx#stx-false? _%ns135646%_)) + (gx#stx-e _%ns135646%_) (gx#raise-syntax-error '#f '"Bad syntax; extern expects namespace identifier" - _%stx131746%_ - _%ns131885%_))))) - (_%lp131780%_ _%rest131887%_ _%ns131895%_ _%r131784%_)))) + _%stx135507%_ + _%ns135646%_))))) + (_%lp135541%_ _%rest135648%_ _%ns135656%_ _%r135545%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E131787131865%_)) - (_%E131787131865%_)))) - (_%E131787131865%_))))) - (_%E131786131897%_)))))) - (let* ((_%e131749131756%_ _%stx131746%_) - (_%E131751131760%_ + (_%E135548135626%_)) + (_%E135548135626%_)))) + (_%E135548135626%_))))) + (_%E135547135658%_)))))) + (let* ((_%e135510135517%_ _%stx135507%_) + (_%E135512135521%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131749131756%_))) - (_%E131750131774%_ + _%e135510135517%_))) + (_%E135511135535%_ (lambda () - (if (gx#stx-pair? _%e131749131756%_) - (let ((_%e131752131764%_ - (gx#syntax-e _%e131749131756%_))) - (let ((_%hd131753131767%_ (##car _%e131752131764%_)) - (_%tl131754131769%_ (##cdr _%e131752131764%_))) - (let ((_%body131772%_ _%tl131754131769%_)) - (if (gx#stx-list? _%body131772%_) + (if (gx#stx-pair? _%e135510135517%_) + (let ((_%e135513135525%_ + (gx#syntax-e _%e135510135517%_))) + (let ((_%hd135514135528%_ (##car _%e135513135525%_)) + (_%tl135515135530%_ (##cdr _%e135513135525%_))) + (let ((_%body135533%_ _%tl135515135530%_)) + (if (gx#stx-list? _%body135533%_) (gx#core-cons '%#extern - (_%generate131748%_ _%body131772%_)) - (_%E131751131760%_))))) - (_%E131751131760%_))))) - (_%E131750131774%_))))) + (_%generate135509%_ _%body135533%_)) + (_%E135512135521%_))))) + (_%E135512135521%_))))) + (_%E135511135535%_))))) (define gx#macro-expand-define-values - (lambda (_%stx131692%_) - (let* ((_%e131693131706%_ _%stx131692%_) - (_%E131695131710%_ + (lambda (_%stx135453%_) + (let* ((_%e135454135467%_ _%stx135453%_) + (_%E135456135471%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131693131706%_))) - (_%E131694131742%_ + _%e135454135467%_))) + (_%E135455135503%_ (lambda () - (if (gx#stx-pair? _%e131693131706%_) - (let ((_%e131696131714%_ - (gx#syntax-e _%e131693131706%_))) - (let ((_%hd131697131717%_ (##car _%e131696131714%_)) - (_%tl131698131719%_ (##cdr _%e131696131714%_))) - (if (gx#stx-pair? _%tl131698131719%_) - (let ((_%e131699131722%_ - (gx#syntax-e _%tl131698131719%_))) - (let ((_%hd131700131725%_ - (##car _%e131699131722%_)) - (_%tl131701131727%_ - (##cdr _%e131699131722%_))) - (let ((_%hd131730%_ _%hd131700131725%_)) - (if (gx#stx-pair? _%tl131701131727%_) - (let ((_%e131702131732%_ + (if (gx#stx-pair? _%e135454135467%_) + (let ((_%e135457135475%_ + (gx#syntax-e _%e135454135467%_))) + (let ((_%hd135458135478%_ (##car _%e135457135475%_)) + (_%tl135459135480%_ (##cdr _%e135457135475%_))) + (if (gx#stx-pair? _%tl135459135480%_) + (let ((_%e135460135483%_ + (gx#syntax-e _%tl135459135480%_))) + (let ((_%hd135461135486%_ + (##car _%e135460135483%_)) + (_%tl135462135488%_ + (##cdr _%e135460135483%_))) + (let ((_%hd135491%_ _%hd135461135486%_)) + (if (gx#stx-pair? _%tl135462135488%_) + (let ((_%e135463135493%_ (gx#syntax-e - _%tl131701131727%_))) - (let ((_%hd131703131735%_ - (##car _%e131702131732%_)) - (_%tl131704131737%_ - (##cdr _%e131702131732%_))) - (let ((_%expr131740%_ - _%hd131703131735%_)) + _%tl135462135488%_))) + (let ((_%hd135464135496%_ + (##car _%e135463135493%_)) + (_%tl135465135498%_ + (##cdr _%e135463135493%_))) + (let ((_%expr135501%_ + _%hd135464135496%_)) (if (gx#stx-null? - _%tl131704131737%_) + _%tl135465135498%_) (if (gx#stx-andmap gx#identifier? - _%hd131730%_) + _%hd135491%_) (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< identity - _%hd131730%_) - (cons _%expr131740%_ '()))) - (_%E131695131710%_)) + _%hd135491%_) + (cons _%expr135501%_ '()))) + (_%E135456135471%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E131695131710%_))))) - (_%E131695131710%_))))) - (_%E131695131710%_)))) - (_%E131695131710%_))))) - (_%E131694131742%_)))) + (_%E135456135471%_))))) + (_%E135456135471%_))))) + (_%E135456135471%_)))) + (_%E135456135471%_))))) + (_%E135455135503%_)))) (define gx#macro-expand-define-syntax - (lambda (_%stx131638%_) - (let* ((_%e131639131652%_ _%stx131638%_) - (_%E131641131656%_ + (lambda (_%stx135399%_) + (let* ((_%e135400135413%_ _%stx135399%_) + (_%E135402135417%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131639131652%_))) - (_%E131640131688%_ + _%e135400135413%_))) + (_%E135401135449%_ (lambda () - (if (gx#stx-pair? _%e131639131652%_) - (let ((_%e131642131660%_ - (gx#syntax-e _%e131639131652%_))) - (let ((_%hd131643131663%_ (##car _%e131642131660%_)) - (_%tl131644131665%_ (##cdr _%e131642131660%_))) - (if (gx#stx-pair? _%tl131644131665%_) - (let ((_%e131645131668%_ - (gx#syntax-e _%tl131644131665%_))) - (let ((_%hd131646131671%_ - (##car _%e131645131668%_)) - (_%tl131647131673%_ - (##cdr _%e131645131668%_))) - (let ((_%hd131676%_ _%hd131646131671%_)) - (if (gx#stx-pair? _%tl131647131673%_) - (let ((_%e131648131678%_ + (if (gx#stx-pair? _%e135400135413%_) + (let ((_%e135403135421%_ + (gx#syntax-e _%e135400135413%_))) + (let ((_%hd135404135424%_ (##car _%e135403135421%_)) + (_%tl135405135426%_ (##cdr _%e135403135421%_))) + (if (gx#stx-pair? _%tl135405135426%_) + (let ((_%e135406135429%_ + (gx#syntax-e _%tl135405135426%_))) + (let ((_%hd135407135432%_ + (##car _%e135406135429%_)) + (_%tl135408135434%_ + (##cdr _%e135406135429%_))) + (let ((_%hd135437%_ _%hd135407135432%_)) + (if (gx#stx-pair? _%tl135408135434%_) + (let ((_%e135409135439%_ (gx#syntax-e - _%tl131647131673%_))) - (let ((_%hd131649131681%_ - (##car _%e131648131678%_)) - (_%tl131650131683%_ - (##cdr _%e131648131678%_))) - (let ((_%expr131686%_ - _%hd131649131681%_)) + _%tl135408135434%_))) + (let ((_%hd135410135442%_ + (##car _%e135409135439%_)) + (_%tl135411135444%_ + (##cdr _%e135409135439%_))) + (let ((_%expr135447%_ + _%hd135410135442%_)) (if (gx#stx-null? - _%tl131650131683%_) + _%tl135411135444%_) (if (gx#identifier? - _%hd131676%_) + _%hd135437%_) (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons _%hd131676%_ + (cons _%hd135437%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr131686%_ '()))) - (_%E131641131656%_)) + (cons _%expr135447%_ '()))) + (_%E135402135417%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E131641131656%_))))) - (_%E131641131656%_))))) - (_%E131641131656%_)))) - (_%E131641131656%_))))) - (_%E131640131688%_)))) + (_%E135402135417%_))))) + (_%E135402135417%_))))) + (_%E135402135417%_)))) + (_%E135402135417%_))))) + (_%E135401135449%_)))) (define gx#macro-expand-define-alias - (lambda (_%stx131584%_) - (let* ((_%e131585131598%_ _%stx131584%_) - (_%E131587131602%_ + (lambda (_%stx135345%_) + (let* ((_%e135346135359%_ _%stx135345%_) + (_%E135348135363%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131585131598%_))) - (_%E131586131634%_ + _%e135346135359%_))) + (_%E135347135395%_ (lambda () - (if (gx#stx-pair? _%e131585131598%_) - (let ((_%e131588131606%_ - (gx#syntax-e _%e131585131598%_))) - (let ((_%hd131589131609%_ (##car _%e131588131606%_)) - (_%tl131590131611%_ (##cdr _%e131588131606%_))) - (if (gx#stx-pair? _%tl131590131611%_) - (let ((_%e131591131614%_ - (gx#syntax-e _%tl131590131611%_))) - (let ((_%hd131592131617%_ - (##car _%e131591131614%_)) - (_%tl131593131619%_ - (##cdr _%e131591131614%_))) - (let ((_%id131622%_ _%hd131592131617%_)) - (if (gx#stx-pair? _%tl131593131619%_) - (let ((_%e131594131624%_ + (if (gx#stx-pair? _%e135346135359%_) + (let ((_%e135349135367%_ + (gx#syntax-e _%e135346135359%_))) + (let ((_%hd135350135370%_ (##car _%e135349135367%_)) + (_%tl135351135372%_ (##cdr _%e135349135367%_))) + (if (gx#stx-pair? _%tl135351135372%_) + (let ((_%e135352135375%_ + (gx#syntax-e _%tl135351135372%_))) + (let ((_%hd135353135378%_ + (##car _%e135352135375%_)) + (_%tl135354135380%_ + (##cdr _%e135352135375%_))) + (let ((_%id135383%_ _%hd135353135378%_)) + (if (gx#stx-pair? _%tl135354135380%_) + (let ((_%e135355135385%_ (gx#syntax-e - _%tl131593131619%_))) - (let ((_%hd131595131627%_ - (##car _%e131594131624%_)) - (_%tl131596131629%_ - (##cdr _%e131594131624%_))) - (let ((_%alias-id131632%_ - _%hd131595131627%_)) + _%tl135354135380%_))) + (let ((_%hd135356135388%_ + (##car _%e135355135385%_)) + (_%tl135357135390%_ + (##cdr _%e135355135385%_))) + (let ((_%alias-id135393%_ + _%hd135356135388%_)) (if (gx#stx-null? - _%tl131596131629%_) + _%tl135357135390%_) (if (and (gx#identifier? - _%id131622%_) + _%id135383%_) (gx#identifier? - _%alias-id131632%_)) + _%alias-id135393%_)) (cons (gx#core-quote-syntax__0 '%#define-alias) - (cons _%id131622%_ + (cons _%id135383%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%alias-id131632%_ '()))) - (_%E131587131602%_)) + (cons _%alias-id135393%_ '()))) + (_%E135348135363%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E131587131602%_))))) - (_%E131587131602%_))))) - (_%E131587131602%_)))) - (_%E131587131602%_))))) - (_%E131586131634%_)))) + (_%E135348135363%_))))) + (_%E135348135363%_))))) + (_%E135348135363%_)))) + (_%E135348135363%_))))) + (_%E135347135395%_)))) (define gx#macro-expand-lambda% - (lambda (_%stx131541%_) - (let* ((_%e131542131552%_ _%stx131541%_) - (_%E131544131556%_ + (lambda (_%stx135302%_) + (let* ((_%e135303135313%_ _%stx135302%_) + (_%E135305135317%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131542131552%_))) - (_%E131543131580%_ + _%e135303135313%_))) + (_%E135304135341%_ (lambda () - (if (gx#stx-pair? _%e131542131552%_) - (let ((_%e131545131560%_ - (gx#syntax-e _%e131542131552%_))) - (let ((_%hd131546131563%_ (##car _%e131545131560%_)) - (_%tl131547131565%_ (##cdr _%e131545131560%_))) - (if (gx#stx-pair? _%tl131547131565%_) - (let ((_%e131548131568%_ - (gx#syntax-e _%tl131547131565%_))) - (let ((_%hd131549131571%_ - (##car _%e131548131568%_)) - (_%tl131550131573%_ - (##cdr _%e131548131568%_))) - (let* ((_%hd131576%_ _%hd131549131571%_) - (_%body131578%_ _%tl131550131573%_)) + (if (gx#stx-pair? _%e135303135313%_) + (let ((_%e135306135321%_ + (gx#syntax-e _%e135303135313%_))) + (let ((_%hd135307135324%_ (##car _%e135306135321%_)) + (_%tl135308135326%_ (##cdr _%e135306135321%_))) + (if (gx#stx-pair? _%tl135308135326%_) + (let ((_%e135309135329%_ + (gx#syntax-e _%tl135308135326%_))) + (let ((_%hd135310135332%_ + (##car _%e135309135329%_)) + (_%tl135311135334%_ + (##cdr _%e135309135329%_))) + (let* ((_%hd135337%_ _%hd135310135332%_) + (_%body135339%_ _%tl135311135334%_)) (if (and (gx#stx-andmap gx#identifier? - _%hd131576%_) - (gx#stx-list? _%body131578%_) + _%hd135337%_) + (gx#stx-list? _%body135339%_) (not (gx#stx-null? - _%body131578%_))) + _%body135339%_))) (gx#core-cons* '%#lambda - (gx#stx-map1 identity _%hd131576%_) - _%body131578%_) - (_%E131544131556%_))))) - (_%E131544131556%_)))) - (_%E131544131556%_))))) - (_%E131543131580%_)))) + (gx#stx-map1 identity _%hd135337%_) + _%body135339%_) + (_%E135305135317%_))))) + (_%E135305135317%_)))) + (_%E135305135317%_))))) + (_%E135304135341%_)))) (define gx#macro-expand-case-lambda - (lambda (_%stx131477%_) - (letrec ((_%generate131479%_ - (lambda (_%clause131509%_) - (let* ((_%e131510131517%_ _%clause131509%_) - (_%E131512131521%_ + (lambda (_%stx135238%_) + (letrec ((_%generate135240%_ + (lambda (_%clause135270%_) + (let* ((_%e135271135278%_ _%clause135270%_) + (_%E135273135282%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed clause" - _%stx131477%_ - _%clause131509%_))) - (_%E131511131537%_ + _%stx135238%_ + _%clause135270%_))) + (_%E135272135298%_ (lambda () - (if (gx#stx-pair? _%e131510131517%_) - (let ((_%e131513131525%_ - (gx#syntax-e _%e131510131517%_))) - (let ((_%hd131514131528%_ - (##car _%e131513131525%_)) - (_%tl131515131530%_ - (##cdr _%e131513131525%_))) - (let* ((_%hd131533%_ _%hd131514131528%_) - (_%body131535%_ - _%tl131515131530%_)) + (if (gx#stx-pair? _%e135271135278%_) + (let ((_%e135274135286%_ + (gx#syntax-e _%e135271135278%_))) + (let ((_%hd135275135289%_ + (##car _%e135274135286%_)) + (_%tl135276135291%_ + (##cdr _%e135274135286%_))) + (let* ((_%hd135294%_ _%hd135275135289%_) + (_%body135296%_ + _%tl135276135291%_)) (if (and (gx#stx-andmap gx#identifier? - _%hd131533%_) - (gx#stx-list? _%body131535%_) + _%hd135294%_) + (gx#stx-list? _%body135296%_) (not (gx#stx-null? - _%body131535%_))) + _%body135296%_))) (gx#stx-wrap-source (cons (gx#stx-map1 identity - _%hd131533%_) - _%body131535%_) - (gx#stx-source _%clause131509%_)) - (_%E131512131521%_))))) - (_%E131512131521%_))))) - (_%E131511131537%_))))) - (let* ((_%e131480131487%_ _%stx131477%_) - (_%E131482131491%_ + _%hd135294%_) + _%body135296%_) + (gx#stx-source _%clause135270%_)) + (_%E135273135282%_))))) + (_%E135273135282%_))))) + (_%E135272135298%_))))) + (let* ((_%e135241135248%_ _%stx135238%_) + (_%E135243135252%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131480131487%_))) - (_%E131481131505%_ + _%e135241135248%_))) + (_%E135242135266%_ (lambda () - (if (gx#stx-pair? _%e131480131487%_) - (let ((_%e131483131495%_ - (gx#syntax-e _%e131480131487%_))) - (let ((_%hd131484131498%_ (##car _%e131483131495%_)) - (_%tl131485131500%_ (##cdr _%e131483131495%_))) - (let ((_%clauses131503%_ _%tl131485131500%_)) - (if (gx#stx-list? _%clauses131503%_) + (if (gx#stx-pair? _%e135241135248%_) + (let ((_%e135244135256%_ + (gx#syntax-e _%e135241135248%_))) + (let ((_%hd135245135259%_ (##car _%e135244135256%_)) + (_%tl135246135261%_ (##cdr _%e135244135256%_))) + (let ((_%clauses135264%_ _%tl135246135261%_)) + (if (gx#stx-list? _%clauses135264%_) (gx#core-cons '%#case-lambda (gx#stx-map1 - _%generate131479%_ - _%clauses131503%_)) - (_%E131482131491%_))))) - (_%E131482131491%_))))) - (_%E131481131505%_))))) + _%generate135240%_ + _%clauses135264%_)) + (_%E135243135252%_))))) + (_%E135243135252%_))))) + (_%E135242135266%_))))) (define gx#macro-expand-let-values__% - (lambda (_%stx131378%_ _%form131379%_) - (letrec ((_%generate131381%_ - (lambda (_%bind131424%_) - (let* ((_%e131425131435%_ _%bind131424%_) - (_%E131427131439%_ + (lambda (_%stx135139%_ _%form135140%_) + (letrec ((_%generate135142%_ + (lambda (_%bind135185%_) + (let* ((_%e135186135196%_ _%bind135185%_) + (_%E135188135200%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed binding" - _%stx131378%_ - _%bind131424%_))) - (_%E131426131463%_ + _%stx135139%_ + _%bind135185%_))) + (_%E135187135224%_ (lambda () - (if (gx#stx-pair? _%e131425131435%_) - (let ((_%e131428131443%_ - (gx#syntax-e _%e131425131435%_))) - (let ((_%hd131429131446%_ - (##car _%e131428131443%_)) - (_%tl131430131448%_ - (##cdr _%e131428131443%_))) - (let ((_%ids131451%_ _%hd131429131446%_)) - (if (gx#stx-pair? _%tl131430131448%_) - (let ((_%e131431131453%_ + (if (gx#stx-pair? _%e135186135196%_) + (let ((_%e135189135204%_ + (gx#syntax-e _%e135186135196%_))) + (let ((_%hd135190135207%_ + (##car _%e135189135204%_)) + (_%tl135191135209%_ + (##cdr _%e135189135204%_))) + (let ((_%ids135212%_ _%hd135190135207%_)) + (if (gx#stx-pair? _%tl135191135209%_) + (let ((_%e135192135214%_ (gx#syntax-e - _%tl131430131448%_))) - (let ((_%hd131432131456%_ - (##car _%e131431131453%_)) - (_%tl131433131458%_ - (##cdr _%e131431131453%_))) - (let ((_%expr131461%_ - _%hd131432131456%_)) + _%tl135191135209%_))) + (let ((_%hd135193135217%_ + (##car _%e135192135214%_)) + (_%tl135194135219%_ + (##cdr _%e135192135214%_))) + (let ((_%expr135222%_ + _%hd135193135217%_)) (if (gx#stx-null? - _%tl131433131458%_) + _%tl135194135219%_) (if (gx#stx-andmap gx#identifier? - _%ids131451%_) + _%ids135212%_) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< identity - _%ids131451%_) - (cons _%expr131461%_ '())) - (_%E131427131439%_)) - (_%E131427131439%_))))) + _%ids135212%_) + (cons _%expr135222%_ '())) + (_%E135188135200%_)) + (_%E135188135200%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E131427131439%_))))) - (_%E131427131439%_))))) - (_%E131426131463%_))))) - (let* ((_%e131382131392%_ _%stx131378%_) - (_%E131384131396%_ + (_%E135188135200%_))))) + (_%E135188135200%_))))) + (_%E135187135224%_))))) + (let* ((_%e135143135153%_ _%stx135139%_) + (_%E135145135157%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131382131392%_))) - (_%E131383131420%_ + _%e135143135153%_))) + (_%E135144135181%_ (lambda () - (if (gx#stx-pair? _%e131382131392%_) - (let ((_%e131385131400%_ - (gx#syntax-e _%e131382131392%_))) - (let ((_%hd131386131403%_ (##car _%e131385131400%_)) - (_%tl131387131405%_ (##cdr _%e131385131400%_))) - (if (gx#stx-pair? _%tl131387131405%_) - (let ((_%e131388131408%_ - (gx#syntax-e _%tl131387131405%_))) - (let ((_%hd131389131411%_ - (##car _%e131388131408%_)) - (_%tl131390131413%_ - (##cdr _%e131388131408%_))) - (let* ((_%hd131416%_ _%hd131389131411%_) - (_%body131418%_ _%tl131390131413%_)) - (if (and (gx#stx-list? _%hd131416%_) - (gx#stx-list? _%body131418%_) + (if (gx#stx-pair? _%e135143135153%_) + (let ((_%e135146135161%_ + (gx#syntax-e _%e135143135153%_))) + (let ((_%hd135147135164%_ (##car _%e135146135161%_)) + (_%tl135148135166%_ (##cdr _%e135146135161%_))) + (if (gx#stx-pair? _%tl135148135166%_) + (let ((_%e135149135169%_ + (gx#syntax-e _%tl135148135166%_))) + (let ((_%hd135150135172%_ + (##car _%e135149135169%_)) + (_%tl135151135174%_ + (##cdr _%e135149135169%_))) + (let* ((_%hd135177%_ _%hd135150135172%_) + (_%body135179%_ _%tl135151135174%_)) + (if (and (gx#stx-list? _%hd135177%_) + (gx#stx-list? _%body135179%_) (not (gx#stx-null? - _%body131418%_))) + _%body135179%_))) (gx#core-cons* - _%form131379%_ + _%form135140%_ (gx#stx-map1 - _%generate131381%_ - _%hd131416%_) - _%body131418%_) - (_%E131384131396%_))))) - (_%E131384131396%_)))) - (_%E131384131396%_))))) - (_%E131383131420%_))))) + _%generate135142%_ + _%hd135177%_) + _%body135179%_) + (_%E135145135157%_))))) + (_%E135145135157%_)))) + (_%E135145135157%_))))) + (_%E135144135181%_))))) (define gx#macro-expand-let-values__0 - (lambda (_%stx131470%_) - (let ((_%form131472%_ '%#let-values)) - (gx#macro-expand-let-values__% _%stx131470%_ _%form131472%_)))) + (lambda (_%stx135231%_) + (let ((_%form135233%_ '%#let-values)) + (gx#macro-expand-let-values__% _%stx135231%_ _%form135233%_)))) (define gx#macro-expand-let-values - (lambda _g133858_ - (let ((_g133859_ (##length _g133858_))) - (cond ((##fx= _g133859_ 1) - (apply gx#macro-expand-let-values__0 _g133858_)) - ((##fx= _g133859_ 2) - (apply gx#macro-expand-let-values__% _g133858_)) + (lambda _g137619_ + (let ((_g137620_ (##length _g137619_))) + (cond ((##fx= _g137620_ 1) + (apply gx#macro-expand-let-values__0 _g137619_)) + ((##fx= _g137620_ 2) + (apply gx#macro-expand-let-values__% _g137619_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-let-values - _g133858_)))))) + _g137619_)))))) (define gx#macro-expand-letrec-values - (lambda (_%stx131375%_) - (gx#macro-expand-let-values__% _%stx131375%_ '%#letrec-values))) + (lambda (_%stx135136%_) + (gx#macro-expand-let-values__% _%stx135136%_ '%#letrec-values))) (define gx#macro-expand-letrec*-values - (lambda (_%stx131373%_) - (gx#macro-expand-let-values__% _%stx131373%_ '%#letrec*-values))) + (lambda (_%stx135134%_) + (gx#macro-expand-let-values__% _%stx135134%_ '%#letrec*-values))) (define gx#macro-expand-if - (lambda (_%stx131264%_) - (let* ((_%e131265131291%_ _%stx131264%_) - (_%E131277131295%_ + (lambda (_%stx135025%_) + (let* ((_%e135026135052%_ _%stx135025%_) + (_%E135038135056%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131265131291%_))) - (_%E131267131337%_ + _%e135026135052%_))) + (_%E135028135098%_ (lambda () - (if (gx#stx-pair? _%e131265131291%_) - (let ((_%e131278131299%_ - (gx#syntax-e _%e131265131291%_))) - (let ((_%hd131279131302%_ (##car _%e131278131299%_)) - (_%tl131280131304%_ (##cdr _%e131278131299%_))) - (if (gx#stx-pair? _%tl131280131304%_) - (let ((_%e131281131307%_ - (gx#syntax-e _%tl131280131304%_))) - (let ((_%hd131282131310%_ - (##car _%e131281131307%_)) - (_%tl131283131312%_ - (##cdr _%e131281131307%_))) - (let ((_%test131315%_ _%hd131282131310%_)) - (if (gx#stx-pair? _%tl131283131312%_) - (let ((_%e131284131317%_ + (if (gx#stx-pair? _%e135026135052%_) + (let ((_%e135039135060%_ + (gx#syntax-e _%e135026135052%_))) + (let ((_%hd135040135063%_ (##car _%e135039135060%_)) + (_%tl135041135065%_ (##cdr _%e135039135060%_))) + (if (gx#stx-pair? _%tl135041135065%_) + (let ((_%e135042135068%_ + (gx#syntax-e _%tl135041135065%_))) + (let ((_%hd135043135071%_ + (##car _%e135042135068%_)) + (_%tl135044135073%_ + (##cdr _%e135042135068%_))) + (let ((_%test135076%_ _%hd135043135071%_)) + (if (gx#stx-pair? _%tl135044135073%_) + (let ((_%e135045135078%_ (gx#syntax-e - _%tl131283131312%_))) - (let ((_%hd131285131320%_ - (##car _%e131284131317%_)) - (_%tl131286131322%_ - (##cdr _%e131284131317%_))) - (let ((_%K131325%_ - _%hd131285131320%_)) + _%tl135044135073%_))) + (let ((_%hd135046135081%_ + (##car _%e135045135078%_)) + (_%tl135047135083%_ + (##cdr _%e135045135078%_))) + (let ((_%K135086%_ + _%hd135046135081%_)) (if (gx#stx-pair? - _%tl131286131322%_) - (let ((_%e131287131327%_ + _%tl135047135083%_) + (let ((_%e135048135088%_ (gx#syntax-e - _%tl131286131322%_))) - (let ((_%hd131288131330%_ - (##car _%e131287131327%_)) - (_%tl131289131332%_ - (##cdr _%e131287131327%_))) - (let ((_%E131335%_ - _%hd131288131330%_)) + _%tl135047135083%_))) + (let ((_%hd135049135091%_ + (##car _%e135048135088%_)) + (_%tl135050135093%_ + (##cdr _%e135048135088%_))) + (let ((_%E135096%_ + _%hd135049135091%_)) (if (gx#stx-null? - _%tl131289131332%_) + _%tl135050135093%_) (gx#core-list '%#if - _%test131315%_ - _%K131325%_ - _%E131335%_) - (_%E131277131295%_))))) - (_%E131277131295%_))))) - (_%E131277131295%_))))) - (_%E131277131295%_)))) - (_%E131277131295%_)))) - (_%E131266131369%_ + _%test135076%_ + _%K135086%_ + _%E135096%_) + (_%E135038135056%_))))) + (_%E135038135056%_))))) + (_%E135038135056%_))))) + (_%E135038135056%_)))) + (_%E135038135056%_)))) + (_%E135027135130%_ (lambda () - (if (gx#stx-pair? _%e131265131291%_) - (let ((_%e131268131341%_ - (gx#syntax-e _%e131265131291%_))) - (let ((_%hd131269131344%_ (##car _%e131268131341%_)) - (_%tl131270131346%_ (##cdr _%e131268131341%_))) - (if (gx#stx-pair? _%tl131270131346%_) - (let ((_%e131271131349%_ - (gx#syntax-e _%tl131270131346%_))) - (let ((_%hd131272131352%_ - (##car _%e131271131349%_)) - (_%tl131273131354%_ - (##cdr _%e131271131349%_))) - (let ((_%test131357%_ _%hd131272131352%_)) - (if (gx#stx-pair? _%tl131273131354%_) - (let ((_%e131274131359%_ + (if (gx#stx-pair? _%e135026135052%_) + (let ((_%e135029135102%_ + (gx#syntax-e _%e135026135052%_))) + (let ((_%hd135030135105%_ (##car _%e135029135102%_)) + (_%tl135031135107%_ (##cdr _%e135029135102%_))) + (if (gx#stx-pair? _%tl135031135107%_) + (let ((_%e135032135110%_ + (gx#syntax-e _%tl135031135107%_))) + (let ((_%hd135033135113%_ + (##car _%e135032135110%_)) + (_%tl135034135115%_ + (##cdr _%e135032135110%_))) + (let ((_%test135118%_ _%hd135033135113%_)) + (if (gx#stx-pair? _%tl135034135115%_) + (let ((_%e135035135120%_ (gx#syntax-e - _%tl131273131354%_))) - (let ((_%hd131275131362%_ - (##car _%e131274131359%_)) - (_%tl131276131364%_ - (##cdr _%e131274131359%_))) - (let ((_%K131367%_ - _%hd131275131362%_)) + _%tl135034135115%_))) + (let ((_%hd135036135123%_ + (##car _%e135035135120%_)) + (_%tl135037135125%_ + (##cdr _%e135035135120%_))) + (let ((_%K135128%_ + _%hd135036135123%_)) (if (gx#stx-null? - _%tl131276131364%_) + _%tl135037135125%_) (gx#core-list '%#if - _%test131357%_ - _%K131367%_ + _%test135118%_ + _%K135128%_ '#!void) - (_%E131267131337%_))))) - (_%E131267131337%_))))) - (_%E131267131337%_)))) - (_%E131267131337%_))))) - (_%E131266131369%_)))) + (_%E135028135098%_))))) + (_%E135028135098%_))))) + (_%E135028135098%_)))) + (_%E135028135098%_))))) + (_%E135027135130%_)))) (define gx#free-identifier=? - (lambda (_%xid131249%_ _%yid131250%_) - (let ((_%xe131252%_ (gx#resolve-identifier__0 _%xid131249%_)) - (_%ye131253%_ (gx#resolve-identifier__0 _%yid131250%_))) - (if (and _%xe131252%_ _%ye131253%_) - (let ((_%$e131256%_ (eq? _%xe131252%_ _%ye131253%_))) - (if _%$e131256%_ - _%$e131256%_ - (if (##structure-instance-of? _%xe131252%_ 'gx#binding::t) + (lambda (_%xid135010%_ _%yid135011%_) + (let ((_%xe135013%_ (gx#resolve-identifier__0 _%xid135010%_)) + (_%ye135014%_ (gx#resolve-identifier__0 _%yid135011%_))) + (if (and _%xe135013%_ _%ye135014%_) + (let ((_%$e135017%_ (eq? _%xe135013%_ _%ye135014%_))) + (if _%$e135017%_ + _%$e135017%_ + (if (##structure-instance-of? _%xe135013%_ 'gx#binding::t) (if (##structure-instance-of? - _%ye131253%_ + _%ye135014%_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _%xe131252%_ + _%xe135013%_ '1 '#f '#f) (##unchecked-structure-ref - _%ye131253%_ + _%ye135014%_ '1 '#f '#f)) '#f) '#f))) - (if (or _%xe131252%_ _%ye131253%_) + (if (or _%xe135013%_ _%ye135014%_) '#f - (gx#stx-eq? _%xid131249%_ _%yid131250%_)))))) + (gx#stx-eq? _%xid135010%_ _%yid135011%_)))))) (define gx#bound-identifier=? - (lambda (_%xid131230%_ _%yid131231%_) - (letrec ((_%context131233%_ - (lambda (_%e131247%_) + (lambda (_%xid134991%_ _%yid134992%_) + (letrec ((_%context134994%_ + (lambda (_%e135008%_) (if (##structure-direct-instance-of? - _%e131247%_ + _%e135008%_ 'gx#syntax-quote::t) - (##unchecked-structure-ref _%e131247%_ '3 '#f '#f) + (##unchecked-structure-ref _%e135008%_ '3 '#f '#f) (gx#current-expander-context)))) - (_%marks131234%_ - (lambda (_%e131242%_) - (if (symbol? _%e131242%_) + (_%marks134995%_ + (lambda (_%e135003%_) + (if (symbol? _%e135003%_) '() (if (##structure-direct-instance-of? - _%e131242%_ + _%e135003%_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _%e131242%_ '3 '#f '#f) + (##unchecked-structure-ref _%e135003%_ '3 '#f '#f) (##unchecked-structure-ref - _%e131242%_ + _%e135003%_ '4 '#f '#f))))) - (_%unwrap131235%_ - (lambda (_%e131240%_) - (if (symbol? _%e131240%_) - _%e131240%_ - (gx#syntax-local-unwrap _%e131240%_))))) - (let ((_%x131237%_ (_%unwrap131235%_ _%xid131230%_)) - (_%y131238%_ (_%unwrap131235%_ _%yid131231%_))) - (if (gx#stx-eq? _%x131237%_ _%y131238%_) - (if (eq? (_%context131233%_ _%x131237%_) - (_%context131233%_ _%y131238%_)) - (equal? (_%marks131234%_ _%x131237%_) - (_%marks131234%_ _%y131238%_)) + (_%unwrap134996%_ + (lambda (_%e135001%_) + (if (symbol? _%e135001%_) + _%e135001%_ + (gx#syntax-local-unwrap _%e135001%_))))) + (let ((_%x134998%_ (_%unwrap134996%_ _%xid134991%_)) + (_%y134999%_ (_%unwrap134996%_ _%yid134992%_))) + (if (gx#stx-eq? _%x134998%_ _%y134999%_) + (if (eq? (_%context134994%_ _%x134998%_) + (_%context134994%_ _%y134999%_)) + (equal? (_%marks134995%_ _%x134998%_) + (_%marks134995%_ _%y134999%_)) '#f) '#f))))) (define gx#underscore? - (lambda (_%stx131228%_) - (if (gx#identifier? _%stx131228%_) - (gx#core-identifier=? _%stx131228%_ '_) + (lambda (_%stx134989%_) + (if (gx#identifier? _%stx134989%_) + (gx#core-identifier=? _%stx134989%_ '_) '#f))) (define gx#ellipsis? - (lambda (_%stx131226%_) - (if (gx#identifier? _%stx131226%_) - (gx#core-identifier=? _%stx131226%_ '...) + (lambda (_%stx134987%_) + (if (gx#identifier? _%stx134987%_) + (gx#core-identifier=? _%stx134987%_ '...) '#f))) (define gx#check-duplicate-identifiers__% - (lambda (_%stx131169%_ _%where131170%_) - (let _%lp131172%_ ((_%rest131174%_ (gx#syntax->list _%stx131169%_))) - (let* ((_%rest131175131183%_ _%rest131174%_) - (_%else131177131191%_ (lambda () '#t)) - (_%K131179131204%_ - (lambda (_%rest131194%_ _%hd131195%_) - (if (gx#identifier? _%hd131195%_) - (if (__find (lambda (_%g131197131199%_) + (lambda (_%stx134930%_ _%where134931%_) + (let _%lp134933%_ ((_%rest134935%_ (gx#syntax->list _%stx134930%_))) + (let* ((_%rest134936134944%_ _%rest134935%_) + (_%else134938134952%_ (lambda () '#t)) + (_%K134940134965%_ + (lambda (_%rest134955%_ _%hd134956%_) + (if (gx#identifier? _%hd134956%_) + (if (__find (lambda (_%g134958134960%_) (gx#bound-identifier=? - _%g131197131199%_ - _%hd131195%_)) - _%rest131194%_) + _%g134958134960%_ + _%hd134956%_)) + _%rest134955%_) (gx#raise-syntax-error '#f '"Duplicate identifier" - _%where131170%_ - _%hd131195%_) - (_%lp131172%_ _%rest131194%_)) + _%where134931%_ + _%hd134956%_) + (_%lp134933%_ _%rest134955%_)) (gx#raise-syntax-error '#f '"Bad identifier" - _%where131170%_ - _%hd131195%_))))) - (if (pair? _%rest131175131183%_) - (let ((_%hd131180131207%_ (##car _%rest131175131183%_)) - (_%tl131181131209%_ (##cdr _%rest131175131183%_))) - (let* ((_%hd131212%_ _%hd131180131207%_) - (_%rest131214%_ _%tl131181131209%_)) - (_%K131179131204%_ _%rest131214%_ _%hd131212%_))) - (_%else131177131191%_)))))) + _%where134931%_ + _%hd134956%_))))) + (if (pair? _%rest134936134944%_) + (let ((_%hd134941134968%_ (##car _%rest134936134944%_)) + (_%tl134942134970%_ (##cdr _%rest134936134944%_))) + (let* ((_%hd134973%_ _%hd134941134968%_) + (_%rest134975%_ _%tl134942134970%_)) + (_%K134940134965%_ _%rest134975%_ _%hd134973%_))) + (_%else134938134952%_)))))) (define gx#check-duplicate-identifiers__0 - (lambda (_%stx131219%_) - (let ((_%where131221%_ _%stx131219%_)) - (gx#check-duplicate-identifiers__% _%stx131219%_ _%where131221%_)))) + (lambda (_%stx134980%_) + (let ((_%where134982%_ _%stx134980%_)) + (gx#check-duplicate-identifiers__% _%stx134980%_ _%where134982%_)))) (define gx#check-duplicate-identifiers - (lambda _g133860_ - (let ((_g133861_ (##length _g133860_))) - (cond ((##fx= _g133861_ 1) - (apply gx#check-duplicate-identifiers__0 _g133860_)) - ((##fx= _g133861_ 2) - (apply gx#check-duplicate-identifiers__% _g133860_)) + (lambda _g137621_ + (let ((_g137622_ (##length _g137621_))) + (cond ((##fx= _g137622_ 1) + (apply gx#check-duplicate-identifiers__0 _g137621_)) + ((##fx= _g137622_ 2) + (apply gx#check-duplicate-identifiers__% _g137621_)) (else (##raise-wrong-number-of-arguments-exception gx#check-duplicate-identifiers - _g133860_)))))) + _g137621_)))))) (define gx#core-bind-values? - (lambda (_%stx131161%_) + (lambda (_%stx134922%_) (gx#stx-andmap - (lambda (_%x131163%_) - (let ((_%$e131165%_ (gx#identifier? _%x131163%_))) - (if _%$e131165%_ _%$e131165%_ (gx#stx-false? _%x131163%_)))) - _%stx131161%_))) + (lambda (_%x134924%_) + (let ((_%$e134926%_ (gx#identifier? _%x134924%_))) + (if _%$e134926%_ _%$e134926%_ (gx#stx-false? _%x134924%_)))) + _%stx134922%_))) (define gx#core-bind-values!__% - (lambda (_%stx131125%_ _%rebind?131126%_ _%phi131127%_ _%ctx131128%_) + (lambda (_%stx134886%_ _%rebind?134887%_ _%phi134888%_ _%ctx134889%_) (gx#stx-for-each1 - (lambda (_%id131130%_) - (if (gx#identifier? _%id131130%_) + (lambda (_%id134891%_) + (if (gx#identifier? _%id134891%_) (gx#core-bind-runtime!__% - _%id131130%_ - _%rebind?131126%_ - _%phi131127%_ - _%ctx131128%_) + _%id134891%_ + _%rebind?134887%_ + _%phi134888%_ + _%ctx134889%_) '#!void)) - _%stx131125%_))) + _%stx134886%_))) (define gx#core-bind-values!__0 - (lambda (_%stx131135%_) - (let* ((_%rebind?131137%_ '#f) - (_%phi131139%_ (gx#current-expander-phi)) - (_%ctx131141%_ (gx#current-expander-context))) + (lambda (_%stx134896%_) + (let* ((_%rebind?134898%_ '#f) + (_%phi134900%_ (gx#current-expander-phi)) + (_%ctx134902%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx131135%_ - _%rebind?131137%_ - _%phi131139%_ - _%ctx131141%_)))) + _%stx134896%_ + _%rebind?134898%_ + _%phi134900%_ + _%ctx134902%_)))) (define gx#core-bind-values!__1 - (lambda (_%stx131143%_ _%rebind?131144%_) - (let* ((_%phi131146%_ (gx#current-expander-phi)) - (_%ctx131148%_ (gx#current-expander-context))) + (lambda (_%stx134904%_ _%rebind?134905%_) + (let* ((_%phi134907%_ (gx#current-expander-phi)) + (_%ctx134909%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx131143%_ - _%rebind?131144%_ - _%phi131146%_ - _%ctx131148%_)))) + _%stx134904%_ + _%rebind?134905%_ + _%phi134907%_ + _%ctx134909%_)))) (define gx#core-bind-values!__2 - (lambda (_%stx131150%_ _%rebind?131151%_ _%phi131152%_) - (let ((_%ctx131154%_ (gx#current-expander-context))) + (lambda (_%stx134911%_ _%rebind?134912%_ _%phi134913%_) + (let ((_%ctx134915%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx131150%_ - _%rebind?131151%_ - _%phi131152%_ - _%ctx131154%_)))) + _%stx134911%_ + _%rebind?134912%_ + _%phi134913%_ + _%ctx134915%_)))) (define gx#core-bind-values! - (lambda _g133862_ - (let ((_g133863_ (##length _g133862_))) - (cond ((##fx= _g133863_ 1) (apply gx#core-bind-values!__0 _g133862_)) - ((##fx= _g133863_ 2) (apply gx#core-bind-values!__1 _g133862_)) - ((##fx= _g133863_ 3) (apply gx#core-bind-values!__2 _g133862_)) - ((##fx= _g133863_ 4) (apply gx#core-bind-values!__% _g133862_)) + (lambda _g137623_ + (let ((_g137624_ (##length _g137623_))) + (cond ((##fx= _g137624_ 1) (apply gx#core-bind-values!__0 _g137623_)) + ((##fx= _g137624_ 2) (apply gx#core-bind-values!__1 _g137623_)) + ((##fx= _g137624_ 3) (apply gx#core-bind-values!__2 _g137623_)) + ((##fx= _g137624_ 4) (apply gx#core-bind-values!__% _g137623_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-values! - _g133862_)))))) + _g137623_)))))) (define gx#core-quote-bind-values - (lambda (_%stx131120%_) + (lambda (_%stx134881%_) (gx#stx-map1 - (lambda (_%x131122%_) - (if (gx#identifier? _%x131122%_) - (gx#core-quote-syntax__0 _%x131122%_) + (lambda (_%x134883%_) + (if (gx#identifier? _%x134883%_) + (gx#core-quote-syntax__0 _%x134883%_) '#f)) - _%stx131120%_))) + _%stx134881%_))) (define gx#core-runtime-ref? - (lambda (_%stx131113%_) - (if (gx#identifier? _%stx131113%_) - (let* ((_%bind131115%_ (gx#resolve-identifier__0 _%stx131113%_)) - (_%$e131117%_ (not _%bind131115%_))) - (if _%$e131117%_ - _%$e131117%_ + (lambda (_%stx134874%_) + (if (gx#identifier? _%stx134874%_) + (let* ((_%bind134876%_ (gx#resolve-identifier__0 _%stx134874%_)) + (_%$e134878%_ (not _%bind134876%_))) + (if _%$e134878%_ + _%$e134878%_ (##structure-instance-of? - _%bind131115%_ + _%bind134876%_ 'gx#runtime-binding::t))) '#f))) (define gx#core-quote-runtime-ref - (lambda (_%id131102%_ _%form131103%_) - (let ((_%bind131105%_ (gx#resolve-identifier__0 _%id131102%_))) - (if (##structure-instance-of? _%bind131105%_ 'gx#runtime-binding::t) - (gx#core-quote-syntax__0 _%id131102%_) - (if (not _%bind131105%_) + (lambda (_%id134863%_ _%form134864%_) + (let ((_%bind134866%_ (gx#resolve-identifier__0 _%id134863%_))) + (if (##structure-instance-of? _%bind134866%_ 'gx#runtime-binding::t) + (gx#core-quote-syntax__0 _%id134863%_) + (if (not _%bind134866%_) (if (or (gx#core-context-rebind?__% (gx#core-context-top__0)) - (gx#core-extern-symbol? (gx#stx-e _%id131102%_))) - (gx#core-quote-syntax__0 _%id131102%_) + (gx#core-extern-symbol? (gx#stx-e _%id134863%_))) + (gx#core-quote-syntax__0 _%id134863%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%form131103%_ - _%id131102%_)) + _%form134864%_ + _%id134863%_)) (gx#raise-syntax-error '#f '"Bad syntax; not a runtime binding" - _%form131103%_ - _%id131102%_)))))) + _%form134864%_ + _%id134863%_)))))) (define gx#core-bind-runtime!__% - (lambda (_%id131057%_ _%rebind?131058%_ _%phi131059%_ _%ctx131060%_) - (let* ((_%key131062%_ (gx#core-identifier-key _%id131057%_)) - (_%eid131064%_ + (lambda (_%id134818%_ _%rebind?134819%_ _%phi134820%_ _%ctx134821%_) + (let* ((_%key134823%_ (gx#core-identifier-key _%id134818%_)) + (_%eid134825%_ (gx#make-binding-id__% - _%key131062%_ + _%key134823%_ '#f - _%phi131059%_ - _%ctx131060%_)) - (_%bind131070%_ + _%phi134820%_ + _%ctx134821%_)) + (_%bind134831%_ (if (##structure-instance-of? - _%ctx131060%_ + _%ctx134821%_ 'gx#module-context::t) (##structure gx#module-binding::t - _%eid131064%_ - _%key131062%_ - _%phi131059%_ - _%ctx131060%_) + _%eid134825%_ + _%key134823%_ + _%phi134820%_ + _%ctx134821%_) (if (##structure-instance-of? - _%ctx131060%_ + _%ctx134821%_ 'gx#top-context::t) (##structure gx#top-binding::t - _%eid131064%_ - _%key131062%_ - _%phi131059%_) + _%eid134825%_ + _%key134823%_ + _%phi134820%_) (if (##structure-instance-of? - _%ctx131060%_ + _%ctx134821%_ 'gx#local-context::t) (##structure gx#local-binding::t - _%eid131064%_ - _%key131062%_ - _%phi131059%_) + _%eid134825%_ + _%key134823%_ + _%phi134820%_) (##structure gx#runtime-binding::t - _%eid131064%_ - _%key131062%_ - _%phi131059%_)))))) + _%eid134825%_ + _%key134823%_ + _%phi134820%_)))))) (gx#bind-identifier!__% - _%id131057%_ - _%bind131070%_ - _%rebind?131058%_ - _%phi131059%_ - _%ctx131060%_)))) + _%id134818%_ + _%bind134831%_ + _%rebind?134819%_ + _%phi134820%_ + _%ctx134821%_)))) (define gx#core-bind-runtime!__0 - (lambda (_%id131076%_) - (let* ((_%rebind?131078%_ '#f) - (_%phi131080%_ (gx#current-expander-phi)) - (_%ctx131082%_ (gx#current-expander-context))) + (lambda (_%id134837%_) + (let* ((_%rebind?134839%_ '#f) + (_%phi134841%_ (gx#current-expander-phi)) + (_%ctx134843%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id131076%_ - _%rebind?131078%_ - _%phi131080%_ - _%ctx131082%_)))) + _%id134837%_ + _%rebind?134839%_ + _%phi134841%_ + _%ctx134843%_)))) (define gx#core-bind-runtime!__1 - (lambda (_%id131084%_ _%rebind?131085%_) - (let* ((_%phi131087%_ (gx#current-expander-phi)) - (_%ctx131089%_ (gx#current-expander-context))) + (lambda (_%id134845%_ _%rebind?134846%_) + (let* ((_%phi134848%_ (gx#current-expander-phi)) + (_%ctx134850%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id131084%_ - _%rebind?131085%_ - _%phi131087%_ - _%ctx131089%_)))) + _%id134845%_ + _%rebind?134846%_ + _%phi134848%_ + _%ctx134850%_)))) (define gx#core-bind-runtime!__2 - (lambda (_%id131091%_ _%rebind?131092%_ _%phi131093%_) - (let ((_%ctx131095%_ (gx#current-expander-context))) + (lambda (_%id134852%_ _%rebind?134853%_ _%phi134854%_) + (let ((_%ctx134856%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id131091%_ - _%rebind?131092%_ - _%phi131093%_ - _%ctx131095%_)))) + _%id134852%_ + _%rebind?134853%_ + _%phi134854%_ + _%ctx134856%_)))) (define gx#core-bind-runtime! - (lambda _g133864_ - (let ((_g133865_ (##length _g133864_))) - (cond ((##fx= _g133865_ 1) - (apply gx#core-bind-runtime!__0 _g133864_)) - ((##fx= _g133865_ 2) - (apply gx#core-bind-runtime!__1 _g133864_)) - ((##fx= _g133865_ 3) - (apply gx#core-bind-runtime!__2 _g133864_)) - ((##fx= _g133865_ 4) - (apply gx#core-bind-runtime!__% _g133864_)) + (lambda _g137625_ + (let ((_g137626_ (##length _g137625_))) + (cond ((##fx= _g137626_ 1) + (apply gx#core-bind-runtime!__0 _g137625_)) + ((##fx= _g137626_ 2) + (apply gx#core-bind-runtime!__1 _g137625_)) + ((##fx= _g137626_ 3) + (apply gx#core-bind-runtime!__2 _g137625_)) + ((##fx= _g137626_ 4) + (apply gx#core-bind-runtime!__% _g137625_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime! - _g133864_)))))) + _g137625_)))))) (define gx#core-bind-runtime-reference!__% - (lambda (_%id131009%_ - _%eid131010%_ - _%rebind?131011%_ - _%phi131012%_ - _%ctx131013%_) - (let* ((_%key131015%_ (gx#core-identifier-key _%id131009%_)) - (_%bind131020%_ + (lambda (_%id134770%_ + _%eid134771%_ + _%rebind?134772%_ + _%phi134773%_ + _%ctx134774%_) + (let* ((_%key134776%_ (gx#core-identifier-key _%id134770%_)) + (_%bind134781%_ (if (##structure-instance-of? - _%ctx131013%_ + _%ctx134774%_ 'gx#module-context::t) (##structure gx#module-binding::t - _%eid131010%_ - _%key131015%_ - _%phi131012%_ - _%ctx131013%_) + _%eid134771%_ + _%key134776%_ + _%phi134773%_ + _%ctx134774%_) (if (##structure-instance-of? - _%ctx131013%_ + _%ctx134774%_ 'gx#top-context::t) (##structure gx#top-binding::t - _%eid131010%_ - _%key131015%_ - _%phi131012%_) + _%eid134771%_ + _%key134776%_ + _%phi134773%_) (##structure gx#runtime-binding::t - _%eid131010%_ - _%key131015%_ - _%phi131012%_))))) + _%eid134771%_ + _%key134776%_ + _%phi134773%_))))) (gx#bind-identifier!__% - _%id131009%_ - _%bind131020%_ - _%rebind?131011%_ - _%phi131012%_ - _%ctx131013%_)))) + _%id134770%_ + _%bind134781%_ + _%rebind?134772%_ + _%phi134773%_ + _%ctx134774%_)))) (define gx#core-bind-runtime-reference!__0 - (lambda (_%id131026%_ _%eid131027%_) - (let* ((_%rebind?131029%_ '#f) - (_%phi131031%_ (gx#current-expander-phi)) - (_%ctx131033%_ (gx#current-expander-context))) + (lambda (_%id134787%_ _%eid134788%_) + (let* ((_%rebind?134790%_ '#f) + (_%phi134792%_ (gx#current-expander-phi)) + (_%ctx134794%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id131026%_ - _%eid131027%_ - _%rebind?131029%_ - _%phi131031%_ - _%ctx131033%_)))) + _%id134787%_ + _%eid134788%_ + _%rebind?134790%_ + _%phi134792%_ + _%ctx134794%_)))) (define gx#core-bind-runtime-reference!__1 - (lambda (_%id131035%_ _%eid131036%_ _%rebind?131037%_) - (let* ((_%phi131039%_ (gx#current-expander-phi)) - (_%ctx131041%_ (gx#current-expander-context))) + (lambda (_%id134796%_ _%eid134797%_ _%rebind?134798%_) + (let* ((_%phi134800%_ (gx#current-expander-phi)) + (_%ctx134802%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id131035%_ - _%eid131036%_ - _%rebind?131037%_ - _%phi131039%_ - _%ctx131041%_)))) + _%id134796%_ + _%eid134797%_ + _%rebind?134798%_ + _%phi134800%_ + _%ctx134802%_)))) (define gx#core-bind-runtime-reference!__2 - (lambda (_%id131043%_ _%eid131044%_ _%rebind?131045%_ _%phi131046%_) - (let ((_%ctx131048%_ (gx#current-expander-context))) + (lambda (_%id134804%_ _%eid134805%_ _%rebind?134806%_ _%phi134807%_) + (let ((_%ctx134809%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id131043%_ - _%eid131044%_ - _%rebind?131045%_ - _%phi131046%_ - _%ctx131048%_)))) + _%id134804%_ + _%eid134805%_ + _%rebind?134806%_ + _%phi134807%_ + _%ctx134809%_)))) (define gx#core-bind-runtime-reference! - (lambda _g133866_ - (let ((_g133867_ (##length _g133866_))) - (cond ((##fx= _g133867_ 2) - (apply gx#core-bind-runtime-reference!__0 _g133866_)) - ((##fx= _g133867_ 3) - (apply gx#core-bind-runtime-reference!__1 _g133866_)) - ((##fx= _g133867_ 4) - (apply gx#core-bind-runtime-reference!__2 _g133866_)) - ((##fx= _g133867_ 5) - (apply gx#core-bind-runtime-reference!__% _g133866_)) + (lambda _g137627_ + (let ((_g137628_ (##length _g137627_))) + (cond ((##fx= _g137628_ 2) + (apply gx#core-bind-runtime-reference!__0 _g137627_)) + ((##fx= _g137628_ 3) + (apply gx#core-bind-runtime-reference!__1 _g137627_)) + ((##fx= _g137628_ 4) + (apply gx#core-bind-runtime-reference!__2 _g137627_)) + ((##fx= _g137628_ 5) + (apply gx#core-bind-runtime-reference!__% _g137627_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime-reference! - _g133866_)))))) + _g137627_)))))) (define gx#core-bind-extern!__% - (lambda (_%id130969%_ - _%eid130970%_ - _%rebind?130971%_ - _%phi130972%_ - _%ctx130973%_) + (lambda (_%id134730%_ + _%eid134731%_ + _%rebind?134732%_ + _%phi134733%_ + _%ctx134734%_) (gx#bind-identifier!__% - _%id130969%_ + _%id134730%_ (##structure gx#extern-binding::t - _%eid130970%_ - (gx#core-identifier-key _%id130969%_) - _%phi130972%_) - _%rebind?130971%_ - _%phi130972%_ - _%ctx130973%_))) + _%eid134731%_ + (gx#core-identifier-key _%id134730%_) + _%phi134733%_) + _%rebind?134732%_ + _%phi134733%_ + _%ctx134734%_))) (define gx#core-bind-extern!__0 - (lambda (_%id130978%_ _%eid130979%_) - (let* ((_%rebind?130981%_ '#f) - (_%phi130983%_ (gx#current-expander-phi)) - (_%ctx130985%_ (gx#current-expander-context))) + (lambda (_%id134739%_ _%eid134740%_) + (let* ((_%rebind?134742%_ '#f) + (_%phi134744%_ (gx#current-expander-phi)) + (_%ctx134746%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id130978%_ - _%eid130979%_ - _%rebind?130981%_ - _%phi130983%_ - _%ctx130985%_)))) + _%id134739%_ + _%eid134740%_ + _%rebind?134742%_ + _%phi134744%_ + _%ctx134746%_)))) (define gx#core-bind-extern!__1 - (lambda (_%id130987%_ _%eid130988%_ _%rebind?130989%_) - (let* ((_%phi130991%_ (gx#current-expander-phi)) - (_%ctx130993%_ (gx#current-expander-context))) + (lambda (_%id134748%_ _%eid134749%_ _%rebind?134750%_) + (let* ((_%phi134752%_ (gx#current-expander-phi)) + (_%ctx134754%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id130987%_ - _%eid130988%_ - _%rebind?130989%_ - _%phi130991%_ - _%ctx130993%_)))) + _%id134748%_ + _%eid134749%_ + _%rebind?134750%_ + _%phi134752%_ + _%ctx134754%_)))) (define gx#core-bind-extern!__2 - (lambda (_%id130995%_ _%eid130996%_ _%rebind?130997%_ _%phi130998%_) - (let ((_%ctx131000%_ (gx#current-expander-context))) + (lambda (_%id134756%_ _%eid134757%_ _%rebind?134758%_ _%phi134759%_) + (let ((_%ctx134761%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id130995%_ - _%eid130996%_ - _%rebind?130997%_ - _%phi130998%_ - _%ctx131000%_)))) + _%id134756%_ + _%eid134757%_ + _%rebind?134758%_ + _%phi134759%_ + _%ctx134761%_)))) (define gx#core-bind-extern! - (lambda _g133868_ - (let ((_g133869_ (##length _g133868_))) - (cond ((##fx= _g133869_ 2) (apply gx#core-bind-extern!__0 _g133868_)) - ((##fx= _g133869_ 3) (apply gx#core-bind-extern!__1 _g133868_)) - ((##fx= _g133869_ 4) (apply gx#core-bind-extern!__2 _g133868_)) - ((##fx= _g133869_ 5) (apply gx#core-bind-extern!__% _g133868_)) + (lambda _g137629_ + (let ((_g137630_ (##length _g137629_))) + (cond ((##fx= _g137630_ 2) (apply gx#core-bind-extern!__0 _g137629_)) + ((##fx= _g137630_ 3) (apply gx#core-bind-extern!__1 _g137629_)) + ((##fx= _g137630_ 4) (apply gx#core-bind-extern!__2 _g137629_)) + ((##fx= _g137630_ 5) (apply gx#core-bind-extern!__% _g137629_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-extern! - _g133868_)))))) + _g137629_)))))) (define gx#core-bind-syntax!__% - (lambda (_%id130923%_ - _%e130924%_ - _%rebind?130925%_ - _%phi130926%_ - _%ctx130927%_) + (lambda (_%id134684%_ + _%e134685%_ + _%rebind?134686%_ + _%phi134687%_ + _%ctx134688%_) (gx#bind-identifier!__% - _%id130923%_ - (let ((_%key130932%_ (gx#core-identifier-key _%id130923%_)) - (_%e130933%_ - (if (or (##structure-instance-of? _%e130924%_ 'gx#expander::t) + _%id134684%_ + (let ((_%key134693%_ (gx#core-identifier-key _%id134684%_)) + (_%e134694%_ + (if (or (##structure-instance-of? _%e134685%_ 'gx#expander::t) (##structure-instance-of? - _%e130924%_ + _%e134685%_ 'gx#expander-context::t)) - _%e130924%_ + _%e134685%_ (##structure gx#user-expander::t - _%e130924%_ - _%ctx130927%_ - _%phi130926%_)))) + _%e134685%_ + _%ctx134688%_ + _%phi134687%_)))) (##structure gx#syntax-binding::t (gx#make-binding-id__% - _%key130932%_ + _%key134693%_ '#t - _%phi130926%_ - _%ctx130927%_) - _%key130932%_ - _%phi130926%_ - _%e130933%_)) - _%rebind?130925%_ - _%phi130926%_ - _%ctx130927%_))) + _%phi134687%_ + _%ctx134688%_) + _%key134693%_ + _%phi134687%_ + _%e134694%_)) + _%rebind?134686%_ + _%phi134687%_ + _%ctx134688%_))) (define gx#core-bind-syntax!__0 - (lambda (_%id130938%_ _%e130939%_) - (let* ((_%rebind?130941%_ '#f) - (_%phi130943%_ (gx#current-expander-phi)) - (_%ctx130945%_ (gx#current-expander-context))) + (lambda (_%id134699%_ _%e134700%_) + (let* ((_%rebind?134702%_ '#f) + (_%phi134704%_ (gx#current-expander-phi)) + (_%ctx134706%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id130938%_ - _%e130939%_ - _%rebind?130941%_ - _%phi130943%_ - _%ctx130945%_)))) + _%id134699%_ + _%e134700%_ + _%rebind?134702%_ + _%phi134704%_ + _%ctx134706%_)))) (define gx#core-bind-syntax!__1 - (lambda (_%id130947%_ _%e130948%_ _%rebind?130949%_) - (let* ((_%phi130951%_ (gx#current-expander-phi)) - (_%ctx130953%_ (gx#current-expander-context))) + (lambda (_%id134708%_ _%e134709%_ _%rebind?134710%_) + (let* ((_%phi134712%_ (gx#current-expander-phi)) + (_%ctx134714%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id130947%_ - _%e130948%_ - _%rebind?130949%_ - _%phi130951%_ - _%ctx130953%_)))) + _%id134708%_ + _%e134709%_ + _%rebind?134710%_ + _%phi134712%_ + _%ctx134714%_)))) (define gx#core-bind-syntax!__2 - (lambda (_%id130955%_ _%e130956%_ _%rebind?130957%_ _%phi130958%_) - (let ((_%ctx130960%_ (gx#current-expander-context))) + (lambda (_%id134716%_ _%e134717%_ _%rebind?134718%_ _%phi134719%_) + (let ((_%ctx134721%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id130955%_ - _%e130956%_ - _%rebind?130957%_ - _%phi130958%_ - _%ctx130960%_)))) + _%id134716%_ + _%e134717%_ + _%rebind?134718%_ + _%phi134719%_ + _%ctx134721%_)))) (define gx#core-bind-syntax! - (lambda _g133870_ - (let ((_g133871_ (##length _g133870_))) - (cond ((##fx= _g133871_ 2) (apply gx#core-bind-syntax!__0 _g133870_)) - ((##fx= _g133871_ 3) (apply gx#core-bind-syntax!__1 _g133870_)) - ((##fx= _g133871_ 4) (apply gx#core-bind-syntax!__2 _g133870_)) - ((##fx= _g133871_ 5) (apply gx#core-bind-syntax!__% _g133870_)) + (lambda _g137631_ + (let ((_g137632_ (##length _g137631_))) + (cond ((##fx= _g137632_ 2) (apply gx#core-bind-syntax!__0 _g137631_)) + ((##fx= _g137632_ 3) (apply gx#core-bind-syntax!__1 _g137631_)) + ((##fx= _g137632_ 4) (apply gx#core-bind-syntax!__2 _g137631_)) + ((##fx= _g137632_ 5) (apply gx#core-bind-syntax!__% _g137631_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-syntax! - _g133870_)))))) + _g137631_)))))) (define gx#core-bind-root-syntax!__% - (lambda (_%id130906%_ _%e130907%_ _%rebind?130908%_) + (lambda (_%id134667%_ _%e134668%_ _%rebind?134669%_) (gx#core-bind-syntax!__% - _%id130906%_ - _%e130907%_ - _%rebind?130908%_ + _%id134667%_ + _%e134668%_ + _%rebind?134669%_ '0 (gx#core-context-root__0)))) (define gx#core-bind-root-syntax!__0 - (lambda (_%id130913%_ _%e130914%_) - (let ((_%rebind?130916%_ '#f)) + (lambda (_%id134674%_ _%e134675%_) + (let ((_%rebind?134677%_ '#f)) (gx#core-bind-root-syntax!__% - _%id130913%_ - _%e130914%_ - _%rebind?130916%_)))) + _%id134674%_ + _%e134675%_ + _%rebind?134677%_)))) (define gx#core-bind-root-syntax! - (lambda _g133872_ - (let ((_g133873_ (##length _g133872_))) - (cond ((##fx= _g133873_ 2) - (apply gx#core-bind-root-syntax!__0 _g133872_)) - ((##fx= _g133873_ 3) - (apply gx#core-bind-root-syntax!__% _g133872_)) + (lambda _g137633_ + (let ((_g137634_ (##length _g137633_))) + (cond ((##fx= _g137634_ 2) + (apply gx#core-bind-root-syntax!__0 _g137633_)) + ((##fx= _g137634_ 3) + (apply gx#core-bind-root-syntax!__% _g137633_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-root-syntax! - _g133872_)))))) + _g137633_)))))) (define gx#core-bind-alias!__% - (lambda (_%id130864%_ - _%alias-id130865%_ - _%rebind?130866%_ - _%phi130867%_ - _%ctx130868%_) + (lambda (_%id134625%_ + _%alias-id134626%_ + _%rebind?134627%_ + _%phi134628%_ + _%ctx134629%_) (gx#bind-identifier!__% - _%id130864%_ - (let ((_%key130870%_ (gx#core-identifier-key _%id130864%_))) + _%id134625%_ + (let ((_%key134631%_ (gx#core-identifier-key _%id134625%_))) (##structure gx#alias-binding::t (gx#make-binding-id__% - _%key130870%_ + _%key134631%_ '#t - _%phi130867%_ - _%ctx130868%_) - _%key130870%_ - _%phi130867%_ - _%alias-id130865%_)) - _%rebind?130866%_ - _%phi130867%_ - _%ctx130868%_))) + _%phi134628%_ + _%ctx134629%_) + _%key134631%_ + _%phi134628%_ + _%alias-id134626%_)) + _%rebind?134627%_ + _%phi134628%_ + _%ctx134629%_))) (define gx#core-bind-alias!__0 - (lambda (_%id130875%_ _%alias-id130876%_) - (let* ((_%rebind?130878%_ '#f) - (_%phi130880%_ (gx#current-expander-phi)) - (_%ctx130882%_ (gx#current-expander-context))) + (lambda (_%id134636%_ _%alias-id134637%_) + (let* ((_%rebind?134639%_ '#f) + (_%phi134641%_ (gx#current-expander-phi)) + (_%ctx134643%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id130875%_ - _%alias-id130876%_ - _%rebind?130878%_ - _%phi130880%_ - _%ctx130882%_)))) + _%id134636%_ + _%alias-id134637%_ + _%rebind?134639%_ + _%phi134641%_ + _%ctx134643%_)))) (define gx#core-bind-alias!__1 - (lambda (_%id130884%_ _%alias-id130885%_ _%rebind?130886%_) - (let* ((_%phi130888%_ (gx#current-expander-phi)) - (_%ctx130890%_ (gx#current-expander-context))) + (lambda (_%id134645%_ _%alias-id134646%_ _%rebind?134647%_) + (let* ((_%phi134649%_ (gx#current-expander-phi)) + (_%ctx134651%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id130884%_ - _%alias-id130885%_ - _%rebind?130886%_ - _%phi130888%_ - _%ctx130890%_)))) + _%id134645%_ + _%alias-id134646%_ + _%rebind?134647%_ + _%phi134649%_ + _%ctx134651%_)))) (define gx#core-bind-alias!__2 - (lambda (_%id130892%_ _%alias-id130893%_ _%rebind?130894%_ _%phi130895%_) - (let ((_%ctx130897%_ (gx#current-expander-context))) + (lambda (_%id134653%_ _%alias-id134654%_ _%rebind?134655%_ _%phi134656%_) + (let ((_%ctx134658%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id130892%_ - _%alias-id130893%_ - _%rebind?130894%_ - _%phi130895%_ - _%ctx130897%_)))) + _%id134653%_ + _%alias-id134654%_ + _%rebind?134655%_ + _%phi134656%_ + _%ctx134658%_)))) (define gx#core-bind-alias! - (lambda _g133874_ - (let ((_g133875_ (##length _g133874_))) - (cond ((##fx= _g133875_ 2) (apply gx#core-bind-alias!__0 _g133874_)) - ((##fx= _g133875_ 3) (apply gx#core-bind-alias!__1 _g133874_)) - ((##fx= _g133875_ 4) (apply gx#core-bind-alias!__2 _g133874_)) - ((##fx= _g133875_ 5) (apply gx#core-bind-alias!__% _g133874_)) + (lambda _g137635_ + (let ((_g137636_ (##length _g137635_))) + (cond ((##fx= _g137636_ 2) (apply gx#core-bind-alias!__0 _g137635_)) + ((##fx= _g137636_ 3) (apply gx#core-bind-alias!__1 _g137635_)) + ((##fx= _g137636_ 4) (apply gx#core-bind-alias!__2 _g137635_)) + ((##fx= _g137636_ 5) (apply gx#core-bind-alias!__% _g137635_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-alias! - _g133874_)))))) + _g137635_)))))) (define gx#make-binding-id__% - (lambda (_%key130814%_ _%syntax?130815%_ _%phi130816%_ _%ctx130817%_) - (if (uninterned-symbol? _%key130814%_) + (lambda (_%key134575%_ _%syntax?134576%_ _%phi134577%_ _%ctx134578%_) + (if (uninterned-symbol? _%key134575%_) (##gensym 'L) - (if (pair? _%key130814%_) - (gensym (##car _%key130814%_)) - (if (##structure-instance-of? _%ctx130817%_ 'gx#top-context::t) - (let ((_%ns130822%_ - (gx#core-context-namespace__% _%ctx130817%_))) - (if (and (fxzero? _%phi130816%_) (not _%syntax?130815%_)) - (if _%ns130822%_ - (make-symbol__1 _%ns130822%_ '"#" _%key130814%_) - _%key130814%_) - (if _%syntax?130815%_ + (if (pair? _%key134575%_) + (gensym (##car _%key134575%_)) + (if (##structure-instance-of? _%ctx134578%_ 'gx#top-context::t) + (let ((_%ns134583%_ + (gx#core-context-namespace__% _%ctx134578%_))) + (if (and (fxzero? _%phi134577%_) (not _%syntax?134576%_)) + (if _%ns134583%_ + (make-symbol__1 _%ns134583%_ '"#" _%key134575%_) + _%key134575%_) + (if _%syntax?134576%_ (make-symbol__1 - (let ((_%$e130826%_ _%ns130822%_)) - (if _%$e130826%_ _%$e130826%_ '"")) + (let ((_%$e134587%_ _%ns134583%_)) + (if _%$e134587%_ _%$e134587%_ '"")) '"[:" - (number->string _%phi130816%_) + (number->string _%phi134577%_) '":]#" - _%key130814%_) + _%key134575%_) (make-symbol__1 - (let ((_%$e130830%_ _%ns130822%_)) - (if _%$e130830%_ _%$e130830%_ '"")) + (let ((_%$e134591%_ _%ns134583%_)) + (if _%$e134591%_ _%$e134591%_ '"")) '"[" - (number->string _%phi130816%_) + (number->string _%phi134577%_) '"]#" - _%key130814%_)))) - (gensym _%key130814%_)))))) + _%key134575%_)))) + (gensym _%key134575%_)))))) (define gx#make-binding-id__0 - (lambda (_%key130837%_) - (let* ((_%syntax?130839%_ '#f) - (_%phi130841%_ (gx#current-expander-phi)) - (_%ctx130843%_ (gx#current-expander-context))) + (lambda (_%key134598%_) + (let* ((_%syntax?134600%_ '#f) + (_%phi134602%_ (gx#current-expander-phi)) + (_%ctx134604%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key130837%_ - _%syntax?130839%_ - _%phi130841%_ - _%ctx130843%_)))) + _%key134598%_ + _%syntax?134600%_ + _%phi134602%_ + _%ctx134604%_)))) (define gx#make-binding-id__1 - (lambda (_%key130845%_ _%syntax?130846%_) - (let* ((_%phi130848%_ (gx#current-expander-phi)) - (_%ctx130850%_ (gx#current-expander-context))) + (lambda (_%key134606%_ _%syntax?134607%_) + (let* ((_%phi134609%_ (gx#current-expander-phi)) + (_%ctx134611%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key130845%_ - _%syntax?130846%_ - _%phi130848%_ - _%ctx130850%_)))) + _%key134606%_ + _%syntax?134607%_ + _%phi134609%_ + _%ctx134611%_)))) (define gx#make-binding-id__2 - (lambda (_%key130852%_ _%syntax?130853%_ _%phi130854%_) - (let ((_%ctx130856%_ (gx#current-expander-context))) + (lambda (_%key134613%_ _%syntax?134614%_ _%phi134615%_) + (let ((_%ctx134617%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key130852%_ - _%syntax?130853%_ - _%phi130854%_ - _%ctx130856%_)))) + _%key134613%_ + _%syntax?134614%_ + _%phi134615%_ + _%ctx134617%_)))) (define gx#make-binding-id - (lambda _g133876_ - (let ((_g133877_ (##length _g133876_))) - (cond ((##fx= _g133877_ 1) (apply gx#make-binding-id__0 _g133876_)) - ((##fx= _g133877_ 2) (apply gx#make-binding-id__1 _g133876_)) - ((##fx= _g133877_ 3) (apply gx#make-binding-id__2 _g133876_)) - ((##fx= _g133877_ 4) (apply gx#make-binding-id__% _g133876_)) + (lambda _g137637_ + (let ((_g137638_ (##length _g137637_))) + (cond ((##fx= _g137638_ 1) (apply gx#make-binding-id__0 _g137637_)) + ((##fx= _g137638_ 2) (apply gx#make-binding-id__1 _g137637_)) + ((##fx= _g137638_ 3) (apply gx#make-binding-id__2 _g137637_)) + ((##fx= _g137638_ 4) (apply gx#make-binding-id__% _g137637_)) (else (##raise-wrong-number-of-arguments-exception gx#make-binding-id - _g133876_)))))))) + _g137637_)))))))) diff --git a/src/bootstrap/gerbil/gambit.scm b/src/bootstrap/gerbil/gambit.scm deleted file mode 100644 index 31a31e8b91..0000000000 --- a/src/bootstrap/gerbil/gambit.scm +++ /dev/null @@ -1,2 +0,0 @@ -(declare (block) (standard-bindings) (extended-bindings)) -(begin (begin) (begin)) diff --git a/src/bootstrap/gerbil/gambit.ssi b/src/bootstrap/gerbil/gambit.ssi deleted file mode 100644 index 5774d4f8c9..0000000000 --- a/src/bootstrap/gerbil/gambit.ssi +++ /dev/null @@ -1,5 +0,0 @@ -prelude: : -package: gerbil -namespace: gerbil/gambit - -(%#begin) diff --git a/src/bootstrap/gerbil/gambit.ssxi.ss b/src/bootstrap/gerbil/gambit.ssxi.ss deleted file mode 100644 index d4faae9709..0000000000 --- a/src/bootstrap/gerbil/gambit.ssxi.ss +++ /dev/null @@ -1,4 +0,0 @@ -prelude: :gerbil/compiler/ssxi -package: gerbil - -(begin) diff --git a/src/bootstrap/gerbil/runtime/c3~0.scm b/src/bootstrap/gerbil/runtime/c3~0.scm index ffef7ca6c3..e34a325823 100644 --- a/src/bootstrap/gerbil/runtime/c3~0.scm +++ b/src/bootstrap/gerbil/runtime/c3~0.scm @@ -1,489 +1,489 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/c3::timestamp 1756721294) + (define gerbil/runtime/c3::timestamp 1769384626) (begin (define c4-linearize__% - (lambda (_%@@keywords102339%_ - _%get-precedence-list102333102340%_ - _%struct?102334102342%_ - _%eq102335102344%_ - _%get-name102336102346%_ - _%rhead102348%_ - _%supers102349%_) - (let* ((_%get-precedence-list102351%_ - (if (eq? _%get-precedence-list102333102340%_ absent-value) + (lambda (_%@@keywords104804%_ + _%get-precedence-list104798104805%_ + _%struct?104799104806%_ + _%eq104800104807%_ + _%get-name104801104808%_ + _%rhead104809%_ + _%supers104810%_) + (let* ((_%get-precedence-list104812%_ + (if (eq? _%get-precedence-list104798104805%_ absent-value) (error '"Missing required keyword argument" 'get-precedence-list:) - _%get-precedence-list102333102340%_)) - (_%struct?102353%_ - (if (eq? _%struct?102334102342%_ absent-value) + _%get-precedence-list104798104805%_)) + (_%struct?104814%_ + (if (eq? _%struct?104799104806%_ absent-value) (error '"Missing required keyword argument" 'struct:) - _%struct?102334102342%_)) - (_%eq102355%_ - (if (eq? _%eq102335102344%_ absent-value) + _%struct?104799104806%_)) + (_%eq104816%_ + (if (eq? _%eq104800104807%_ absent-value) eq? - _%eq102335102344%_)) - (_%get-name102357%_ - (if (eq? _%get-name102336102346%_ absent-value) + _%eq104800104807%_)) + (_%get-name104818%_ + (if (eq? _%get-name104801104808%_ absent-value) identity - _%get-name102336102346%_))) - (if (null? _%supers102349%_) - (values (reverse _%rhead102348%_) '#f) - (if (null? (cdr _%supers102349%_)) - (let ((_%pl102362%_ - (_%get-precedence-list102351%_ - (car _%supers102349%_)))) - (values (append-reverse _%rhead102348%_ _%pl102362%_) + _%get-name104801104808%_))) + (if (null? _%supers104810%_) + (values (reverse _%rhead104809%_) '#f) + (if (null? (cdr _%supers104810%_)) + (let ((_%pl104823%_ + (_%get-precedence-list104812%_ + (car _%supers104810%_)))) + (values (append-reverse _%rhead104809%_ _%pl104823%_) (let () (declare (not safe)) - (find _%struct?102353%_ _%pl102362%_)))) - (let ((_%pls102365%_ - (map _%get-precedence-list102351%_ _%supers102349%_)) - (_%sis102366%_ '())) - (letrec* ((_%get-names102368%_ - (lambda (_%lst102645%_) - (map _%get-name102357%_ _%lst102645%_))) - (_%err102369%_ - (lambda _%a102643%_ + (find _%struct?104814%_ _%pl104823%_)))) + (let ((_%pls104826%_ + (map _%get-precedence-list104812%_ _%supers104810%_)) + (_%sis104827%_ '())) + (letrec* ((_%get-names104829%_ + (lambda (_%lst105106%_) + (map _%get-name104818%_ _%lst105106%_))) + (_%err104830%_ + (lambda _%a105104%_ (apply error '"Inconsistent precedence graph" 'head: - (_%get-names102368%_ - (reverse _%rhead102348%_)) + (_%get-names104829%_ + (reverse _%rhead104809%_)) 'precedence-lists: (let () (declare (not safe)) - (##map _%get-names102368%_ - _%pls102365%_)) + (##map _%get-names104829%_ + _%pls104826%_)) 'single-inheritance-suffix: - (_%get-names102368%_ _%sis102366%_) - _%a102643%_))) - (_%eqlist?102370%_ - (lambda (_%l1102637%_ _%l2102638%_) - (let ((_%$e102640%_ - (eq? _%l1102637%_ _%l2102638%_))) - (if _%$e102640%_ - _%$e102640%_ + (_%get-names104829%_ _%sis104827%_) + _%a105104%_))) + (_%eqlist?104831%_ + (lambda (_%l1105098%_ _%l2105099%_) + (let ((_%$e105101%_ + (eq? _%l1105098%_ _%l2105099%_))) + (if _%$e105101%_ + _%$e105101%_ (if (let () (declare (not safe)) - (andmap2 _%eq102355%_ - _%l1102637%_ - _%l2102638%_)) - (let ((__tmp102693 - (length _%l1102637%_)) - (__tmp102692 - (length _%l2102638%_))) + (andmap2 _%eq104816%_ + _%l1105098%_ + _%l2105099%_)) + (let ((__tmp105154 + (length _%l1105098%_)) + (__tmp105153 + (length _%l2105099%_))) (declare (not safe)) - (##fx= __tmp102693 __tmp102692)) + (##fx= __tmp105154 __tmp105153)) '#f))))) - (_%merge-sis!102371%_ - (lambda (_%sis2102622%_) - (if (null? _%sis2102622%_) + (_%merge-sis!104832%_ + (lambda (_%sis2105083%_) + (if (null? _%sis2105083%_) '#!void - (if (null? _%sis102366%_) - (set! _%sis102366%_ _%sis2102622%_) - (let _%loop102627%_ ((_%t1102629%_ - _%sis102366%_) - (_%t2102630%_ - _%sis2102622%_)) - (if (_%eqlist?102370%_ - _%t1102629%_ - _%sis2102622%_) + (if (null? _%sis104827%_) + (set! _%sis104827%_ _%sis2105083%_) + (let _%loop105088%_ ((_%t1105090%_ + _%sis104827%_) + (_%t2105091%_ + _%sis2105083%_)) + (if (_%eqlist?104831%_ + _%t1105090%_ + _%sis2105083%_) '#!void - (if (_%eqlist?102370%_ - _%t2102630%_ - _%sis102366%_) - (set! _%sis102366%_ - _%sis2102622%_) - (if (null? _%t1102629%_) - (if (member (car _%sis102366%_) + (if (_%eqlist?104831%_ + _%t2105091%_ + _%sis104827%_) + (set! _%sis104827%_ + _%sis2105083%_) + (if (null? _%t1105090%_) + (if (member (car _%sis104827%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%t2102630%_ - _%eq102355%_) - (set! _%sis102366%_ _%sis2102622%_) - (_%err102369%_ + _%t2105091%_ + _%eq104816%_) + (set! _%sis104827%_ _%sis2105083%_) + (_%err104830%_ 'struct-incompatibility: - (cons (_%get-names102368%_ _%sis102366%_) - (cons (_%get-names102368%_ _%sis2102622%_) '())))) - (if (null? _%t2102630%_) - (if (member (car _%sis2102622%_) _%t1102629%_ _%eq102355%_) + (cons (_%get-names104829%_ _%sis104827%_) + (cons (_%get-names104829%_ _%sis2105083%_) '())))) + (if (null? _%t2105091%_) + (if (member (car _%sis2105083%_) _%t1105090%_ _%eq104816%_) '#!void - (_%err102369%_ + (_%err104830%_ 'struct-incompatibility: - (cons (_%get-names102368%_ _%sis102366%_) - (cons (_%get-names102368%_ _%sis2102622%_) + (cons (_%get-names104829%_ _%sis104827%_) + (cons (_%get-names104829%_ _%sis2105083%_) '())))) - (_%loop102627%_ - (cdr _%t1102629%_) - (cdr _%t2102630%_))))))))))) + (_%loop105088%_ + (cdr _%t1105090%_) + (cdr _%t2105091%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%rpls102372%_ - (let ((__tmp102694 - (lambda (_%pl102617%_) - (let ((_g102695_ + (_%rpls104833%_ + (let ((__tmp105155 + (lambda (_%pl105078%_) + (let ((_g105156_ (let () (declare (not safe)) (append-reverse-until - _%struct?102353%_ - _%pl102617%_ + _%struct?104814%_ + _%pl105078%_ '())))) (begin - (let ((_g102696_ + (let ((_g105157_ (let () (declare (not safe)) - (if (##values? _g102695_) + (if (##values? _g105156_) (##values-length - _g102695_) + _g105156_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g102696_ 2))) + (##fx= _g105157_ 2))) (error "Context expects 2 values" - _g102696_))) - (let ((_%tl102619%_ + _g105157_))) + (let ((_%tl105080%_ (let () (declare (not safe)) (##values-ref - _g102695_ + _g105156_ 0))) - (_%rh102620%_ + (_%rh105081%_ (let () (declare (not safe)) (##values-ref - _g102695_ + _g105156_ 1)))) (begin - (_%merge-sis!102371%_ - _%tl102619%_) - _%rh102620%_))))))) + (_%merge-sis!104832%_ + _%tl105080%_) + _%rh105081%_))))))) (declare (not safe)) - (##map __tmp102694 _%pls102365%_))) - (_%unsisr-rpl102373%_ - (lambda (_%rpl102563%_) - (let _%u102565%_ ((_%pl-rhead102567%_ - _%rpl102563%_) - (_%pl-tail102568%_ '()) - (_%sis-rhead102569%_ - (reverse _%sis102366%_)) - (_%sis-tail102570%_ '())) - (let* ((_%pl-rhead102571102580%_ - _%pl-rhead102567%_) - (_%E102574102584%_ + (##map __tmp105155 _%pls104826%_))) + (_%unsisr-rpl104834%_ + (lambda (_%rpl105024%_) + (let _%u105026%_ ((_%pl-rhead105028%_ + _%rpl105024%_) + (_%pl-tail105029%_ '()) + (_%sis-rhead105030%_ + (reverse _%sis104827%_)) + (_%sis-tail105031%_ '())) + (let* ((_%pl-rhead105032105041%_ + _%pl-rhead105028%_) + (_%E105035105045%_ (lambda () (error '"No clause matching" - _%pl-rhead102571102580%_ + _%pl-rhead105032105041%_ '([]) '([c . plrh])) '#!void))) - (let ((_%K102578102614%_ - (lambda () _%pl-tail102568%_)) - (_%K102575102598%_ - (lambda (_%plrh102588%_ - _%c102589%_) - (if (member _%c102589%_ - _%sis-tail102570%_ - _%eq102355%_) - (_%err102369%_ + (let ((_%K105039105075%_ + (lambda () _%pl-tail105029%_)) + (_%K105036105059%_ + (lambda (_%plrh105049%_ + _%c105050%_) + (if (member _%c105050%_ + _%sis-tail105031%_ + _%eq104816%_) + (_%err104830%_ 'precedence-list-head: - (_%get-names102368%_ - (reverse _%pl-rhead102567%_)) + (_%get-names104829%_ + (reverse _%pl-rhead105028%_)) 'precedence-list-tail: - (_%get-names102368%_ - _%pl-tail102568%_) + (_%get-names104829%_ + _%pl-tail105029%_) 'single-inheritance-head: - (_%get-names102368%_ - (reverse _%sis-rhead102569%_)) + (_%get-names104829%_ + (reverse _%sis-rhead105030%_)) 'single-inheritance-tail: - (_%get-names102368%_ - _%sis-tail102570%_) + (_%get-names104829%_ + _%sis-tail105031%_) 'super-out-of-order-vs-single-inheritance-tail: - (_%get-name102357%_ - _%c102589%_)) - (let ((_g102697_ - (let ((__tmp102699 - (lambda (_%g102590102592%_) + (_%get-name104818%_ + _%c105050%_)) + (let ((_g105158_ + (let ((__tmp105160 + (lambda (_%g105051105053%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%eq102355%_ _%c102589%_ _%g102590102592%_)))) + (_%eq104816%_ _%c105050%_ _%g105051105053%_)))) (declare (not safe)) (__append-reverse-until - __tmp102699 - _%sis-rhead102569%_ - _%sis-tail102570%_)))) + __tmp105160 + _%sis-rhead105030%_ + _%sis-tail105031%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g102698_ + (let ((_g105159_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g102697_) - (##values-length _g102697_) + (if (##values? _g105158_) + (##values-length _g105158_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g102698_ 2))) - (error "Context expects 2 values" _g102698_))) - (let ((_%sis-rh2102595%_ - (let () (declare (not safe)) (##values-ref _g102697_ 0))) - (_%sis-tl2102596%_ - (let () (declare (not safe)) (##values-ref _g102697_ 1)))) - (if (null? _%sis-rh2102595%_) - (_%u102565%_ - _%plrh102588%_ - (cons _%c102589%_ _%pl-tail102568%_) + (if (not (let () (declare (not safe)) (##fx= _g105159_ 2))) + (error "Context expects 2 values" _g105159_))) + (let ((_%sis-rh2105056%_ + (let () (declare (not safe)) (##values-ref _g105158_ 0))) + (_%sis-tl2105057%_ + (let () (declare (not safe)) (##values-ref _g105158_ 1)))) + (if (null? _%sis-rh2105056%_) + (_%u105026%_ + _%plrh105049%_ + (cons _%c105050%_ _%pl-tail105029%_) '() - _%sis-tl2102596%_) - (_%u102565%_ - _%plrh102588%_ - _%pl-tail102568%_ - (cdr _%sis-rh2102595%_) - _%sis-tl2102596%_))))))))) + _%sis-tl2105057%_) + (_%u105026%_ + _%plrh105049%_ + _%pl-tail105029%_ + (cdr _%sis-rh2105056%_) + _%sis-tl2105057%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%try-match102573102610%_ + (let ((_%try-match105034105071%_ (lambda () - (if (pair? _%pl-rhead102571102580%_) - (let ((_%tl102577102603%_ + (if (pair? _%pl-rhead105032105041%_) + (let ((_%tl105038105064%_ (let () (declare (not safe)) - (##cdr _%pl-rhead102571102580%_))) - (_%hd102576102601%_ + (##cdr _%pl-rhead105032105041%_))) + (_%hd105037105062%_ (let () (declare (not safe)) - (##car _%pl-rhead102571102580%_)))) - (let ((_%c102606%_ - _%hd102576102601%_) - (_%plrh102608%_ - _%tl102577102603%_)) - (_%K102575102598%_ - _%plrh102608%_ - _%c102606%_))) - (_%E102574102584%_))))) - (if (null? _%pl-rhead102571102580%_) - (_%K102578102614%_) - (_%try-match102573102610%_)))))))) - (_g102700_ - (let ((_g102701_ - (let ((__tmp102703 - (reverse _%supers102349%_))) + (##car _%pl-rhead105032105041%_)))) + (let ((_%c105067%_ + _%hd105037105062%_) + (_%plrh105069%_ + _%tl105038105064%_)) + (_%K105036105059%_ + _%plrh105069%_ + _%c105067%_))) + (_%E105035105045%_))))) + (if (null? _%pl-rhead105032105041%_) + (_%K105039105075%_) + (_%try-match105034105071%_)))))))) + (_g105161_ + (let ((_g105162_ + (let ((__tmp105164 + (reverse _%supers104810%_))) (declare (not safe)) (append1! - _%rpls102372%_ - __tmp102703)))) + _%rpls104833%_ + __tmp105164)))) #!void - _g102701_)) - (_%hpls102374%_ + _g105162_)) + (_%hpls104835%_ (let () (declare (not safe)) - (##map _%unsisr-rpl102373%_ _%rpls102372%_))) - (_%c3-select-next102375%_ - (lambda (_%tails102513%_) - (let ((_%candidate?102519%_ - (lambda (_%c102515%_) - (let ((__tmp102704 - (lambda (_%tail102517%_) - (not (member _%c102515%_ - (cdr _%tail102517%_) - _%eq102355%_))))) + (##map _%unsisr-rpl104834%_ _%rpls104833%_))) + (_%c3-select-next104836%_ + (lambda (_%tails104974%_) + (let ((_%candidate?104980%_ + (lambda (_%c104976%_) + (let ((__tmp105165 + (lambda (_%tail104978%_) + (not (member _%c104976%_ + (cdr _%tail104978%_) + _%eq104816%_))))) (declare (not safe)) (__andmap1 - __tmp102704 - _%tails102513%_))))) - (let _%loop102521%_ ((_%ts102523%_ - _%tails102513%_)) - (let* ((_%ts102524102534%_ _%ts102523%_) - (_%else102526102542%_ - (lambda () (_%err102369%_))) - (_%K102528102548%_ - (lambda (_%rts102545%_ - _%c102546%_) - (if (_%candidate?102519%_ - _%c102546%_) - _%c102546%_ - (_%loop102521%_ - _%rts102545%_))))) - (if (pair? _%ts102524102534%_) - (let ((_%hd102529102551%_ + __tmp105165 + _%tails104974%_))))) + (let _%loop104982%_ ((_%ts104984%_ + _%tails104974%_)) + (let* ((_%ts104985104995%_ _%ts104984%_) + (_%else104987105003%_ + (lambda () (_%err104830%_))) + (_%K104989105009%_ + (lambda (_%rts105006%_ + _%c105007%_) + (if (_%candidate?104980%_ + _%c105007%_) + _%c105007%_ + (_%loop104982%_ + _%rts105006%_))))) + (if (pair? _%ts104985104995%_) + (let ((_%hd104990105012%_ (let () (declare (not safe)) - (##car _%ts102524102534%_))) - (_%tl102530102553%_ + (##car _%ts104985104995%_))) + (_%tl104991105014%_ (let () (declare (not safe)) - (##cdr _%ts102524102534%_)))) - (if (pair? _%hd102529102551%_) - (let* ((_%hd102531102556%_ + (##cdr _%ts104985104995%_)))) + (if (pair? _%hd104990105012%_) + (let* ((_%hd104992105017%_ (let () (declare (not safe)) - (##car _%hd102529102551%_))) - (_%c102559%_ - _%hd102531102556%_) - (_%rts102561%_ - _%tl102530102553%_)) - (_%K102528102548%_ - _%rts102561%_ - _%c102559%_)) - (_%err102369%_))) - (_%err102369%_))))))) - (_%remove-next!102376%_ - (lambda (_%next102458%_ _%tails102459%_) - (let _%loop102461%_ ((_%t102463%_ - _%tails102459%_)) - (let* ((_%t102464102475%_ _%t102463%_) - (_%E102467102479%_ + (##car _%hd104990105012%_))) + (_%c105020%_ + _%hd104992105017%_) + (_%rts105022%_ + _%tl104991105014%_)) + (_%K104989105009%_ + _%rts105022%_ + _%c105020%_)) + (_%err104830%_))) + (_%err104830%_))))))) + (_%remove-next!104837%_ + (lambda (_%next104919%_ _%tails104920%_) + (let _%loop104922%_ ((_%t104924%_ + _%tails104920%_)) + (let* ((_%t104925104936%_ _%t104924%_) + (_%E104928104940%_ (lambda () (error '"No clause matching" - _%t102464102475%_ + _%t104925104936%_ '([]) '([[head . tail] . more])) '#!void))) - (let ((_%K102473102510%_ - (lambda () _%tails102459%_)) - (_%K102468102487%_ - (lambda (_%more102483%_ - _%tail102484%_ - _%head102485%_) - (if (_%eq102355%_ - _%head102485%_ - _%next102458%_) + (let ((_%K104934104971%_ + (lambda () _%tails104920%_)) + (_%K104929104948%_ + (lambda (_%more104944%_ + _%tail104945%_ + _%head104946%_) + (if (_%eq104816%_ + _%head104946%_ + _%next104919%_) (set-car! - _%t102463%_ - _%tail102484%_) + _%t104924%_ + _%tail104945%_) '#!void) - (_%loop102461%_ - _%more102483%_)))) - (let ((_%try-match102466102506%_ + (_%loop104922%_ + _%more104944%_)))) + (let ((_%try-match104927104967%_ (lambda () - (if (pair? _%t102464102475%_) - (let ((_%tl102470102492%_ + (if (pair? _%t104925104936%_) + (let ((_%tl104931104953%_ (let () (declare (not safe)) - (##cdr _%t102464102475%_))) - (_%hd102469102490%_ + (##cdr _%t104925104936%_))) + (_%hd104930104951%_ (let () (declare (not safe)) - (##car _%t102464102475%_)))) - (if (pair? _%hd102469102490%_) - (let ((_%tl102472102497%_ + (##car _%t104925104936%_)))) + (if (pair? _%hd104930104951%_) + (let ((_%tl104933104958%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##cdr _%hd102469102490%_))) - (_%hd102471102495%_ + (##cdr _%hd104930104951%_))) + (_%hd104932104956%_ (let () (declare (not safe)) - (##car _%hd102469102490%_)))) - (let ((_%head102500%_ _%hd102471102495%_) - (_%tail102502%_ _%tl102472102497%_) - (_%more102504%_ _%tl102470102492%_)) - (_%K102468102487%_ - _%more102504%_ - _%tail102502%_ - _%head102500%_))) - (_%E102467102479%_))) + (##car _%hd104930104951%_)))) + (let ((_%head104961%_ _%hd104932104956%_) + (_%tail104963%_ _%tl104933104958%_) + (_%more104965%_ _%tl104931104953%_)) + (_%K104929104948%_ + _%more104965%_ + _%tail104963%_ + _%head104961%_))) + (_%E104928104940%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E102467102479%_))))) - (if (null? _%t102464102475%_) - (_%K102473102510%_) - (_%try-match102466102506%_)))))))) - (_%precedence-list102377%_ - (let _%c3loop102408%_ ((_%rhead102410%_ - _%rhead102348%_) - (_%tails102411%_ - _%hpls102374%_)) - (let* ((_%tails102413%_ + (_%E104928104940%_))))) + (if (null? _%t104925104936%_) + (_%K104934104971%_) + (_%try-match104927104967%_)))))))) + (_%precedence-list104838%_ + (let _%c3loop104869%_ ((_%rhead104871%_ + _%rhead104809%_) + (_%tails104872%_ + _%hpls104835%_)) + (let* ((_%tails104874%_ (let () (declare (not safe)) - (remove-nulls! _%tails102411%_))) - (_%tails102414102424%_ _%tails102413%_) - (_%else102417102435%_ + (remove-nulls! _%tails104872%_))) + (_%tails104875104885%_ _%tails104874%_) + (_%else104878104896%_ (lambda () - (let ((_%next102432%_ - (_%c3-select-next102375%_ - _%tails102413%_))) - (_%c3loop102408%_ - (cons _%next102432%_ - _%rhead102410%_) - (_%remove-next!102376%_ - _%next102432%_ - _%tails102413%_)))))) - (let ((_%K102422102455%_ + (let ((_%next104893%_ + (_%c3-select-next104836%_ + _%tails104874%_))) + (_%c3loop104869%_ + (cons _%next104893%_ + _%rhead104871%_) + (_%remove-next!104837%_ + _%next104893%_ + _%tails104874%_)))))) + (let ((_%K104883104916%_ (lambda () (append-reverse - _%rhead102410%_ - _%sis102366%_))) - (_%K102419102441%_ - (lambda (_%tail102439%_) + _%rhead104871%_ + _%sis104827%_))) + (_%K104880104902%_ + (lambda (_%tail104900%_) (append-reverse - _%rhead102410%_ - (append _%tail102439%_ - _%sis102366%_))))) - (let ((_%try-match102416102451%_ + _%rhead104871%_ + (append _%tail104900%_ + _%sis104827%_))))) + (let ((_%try-match104877104912%_ (lambda () - (if (pair? _%tails102414102424%_) - (let ((_%tl102421102446%_ + (if (pair? _%tails104875104885%_) + (let ((_%tl104882104907%_ (let () (declare (not safe)) - (##cdr _%tails102414102424%_))) - (_%hd102420102444%_ + (##cdr _%tails104875104885%_))) + (_%hd104881104905%_ (let () (declare (not safe)) - (##car _%tails102414102424%_)))) - (if (null? _%tl102421102446%_) - (let ((_%tail102449%_ - _%hd102420102444%_)) - (_%K102419102441%_ - _%tail102449%_)) - (_%else102417102435%_))) - (_%else102417102435%_))))) - (if (null? _%tails102414102424%_) - (_%K102422102455%_) - (_%try-match102416102451%_))))))) - (_%super-struct102378%_ - (let* ((_%sis102379102387%_ _%sis102366%_) - (_%else102381102395%_ (lambda () '#f)) - (_%K102383102400%_ - (lambda (_%s102398%_) _%s102398%_))) - (if (pair? _%sis102379102387%_) - (let* ((_%hd102384102403%_ + (##car _%tails104875104885%_)))) + (if (null? _%tl104882104907%_) + (let ((_%tail104910%_ + _%hd104881104905%_)) + (_%K104880104902%_ + _%tail104910%_)) + (_%else104878104896%_))) + (_%else104878104896%_))))) + (if (null? _%tails104875104885%_) + (_%K104883104916%_) + (_%try-match104877104912%_))))))) + (_%super-struct104839%_ + (let* ((_%sis104840104848%_ _%sis104827%_) + (_%else104842104856%_ (lambda () '#f)) + (_%K104844104861%_ + (lambda (_%s104859%_) _%s104859%_))) + (if (pair? _%sis104840104848%_) + (let* ((_%hd104845104864%_ (let () (declare (not safe)) - (##car _%sis102379102387%_))) - (_%s102406%_ _%hd102384102403%_)) - (_%K102383102400%_ _%s102406%_)) - (_%else102381102395%_))))) - (values _%precedence-list102377%_ - _%super-struct102378%_)))))))) + (##car _%sis104840104848%_))) + (_%s104867%_ _%hd104845104864%_)) + (_%K104844104861%_ _%s104867%_)) + (_%else104842104856%_))))) + (values _%precedence-list104838%_ + _%super-struct104839%_)))))))) (define c4-linearize__@ - (lambda (_%@@keywords102650%_ . _%args102651%_) + (lambda (_%@@keywords105111%_ . _%args105112%_) (apply c4-linearize__% - _%@@keywords102650%_ + _%@@keywords105111%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords102650%_ + _%@@keywords105111%_ 'get-precedence-list: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords102650%_ + _%@@keywords105111%_ 'struct: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords102650%_ 'eq: absent-value)) + (symbolic-table-ref _%@@keywords105111%_ 'eq: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords102650%_ + _%@@keywords105111%_ 'get-name: absent-value)) - _%args102651%_))) + _%args105112%_))) (define c4-linearize - (lambda _%args102337102657%_ + (lambda _%args104802105118%_ (apply keyword-dispatch '#(#f get-name: struct: get-precedence-list: #f eq:) c4-linearize__@ - _%args102337102657%_))))) + _%args104802105118%_))))) diff --git a/src/bootstrap/gerbil/runtime/control~0.scm b/src/bootstrap/gerbil/runtime/control~0.scm index ab50764a33..f2fe16e112 100644 --- a/src/bootstrap/gerbil/runtime/control~0.scm +++ b/src/bootstrap/gerbil/runtime/control~0.scm @@ -1,12 +1,12 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/control::timestamp 1756721294) + (define gerbil/runtime/control::timestamp 1769384626) (begin (define make-promise - (lambda (_%thunk102053%_) - (if (procedure? _%thunk102053%_) - (let ((_%thunk102057%_ _%thunk102053%_)) - (__make-promise _%thunk102057%_)) + (lambda (_%thunk104516%_) + (if (procedure? _%thunk104516%_) + (let ((_%thunk104520%_ _%thunk104516%_)) + (__make-promise _%thunk104520%_)) (begin (raise-contract-violation-error '"contract violation" @@ -15,18 +15,18 @@ 'contract: 'procedure? 'value: - _%thunk102053%_) + _%thunk104516%_) '#!void)))) (define __make-promise - (lambda (_%thunk102041%_) - (let ((_%thunk102044%_ _%thunk102041%_)) + (lambda (_%thunk104504%_) + (let ((_%thunk104507%_ _%thunk104504%_)) (declare (not safe)) - (##make-delay-promise _%thunk102044%_)))) + (##make-delay-promise _%thunk104507%_)))) (define make-atomic-promise - (lambda (_%thunk102027%_) - (if (procedure? _%thunk102027%_) - (let ((_%thunk102031%_ _%thunk102027%_)) - (__make-atomic-promise _%thunk102031%_)) + (lambda (_%thunk104490%_) + (if (procedure? _%thunk104490%_) + (let ((_%thunk104494%_ _%thunk104490%_)) + (__make-atomic-promise _%thunk104494%_)) (begin (raise-contract-violation-error '"contract violation" @@ -35,47 +35,47 @@ 'contract: 'procedure? 'value: - _%thunk102027%_) + _%thunk104490%_) '#!void)))) (define __make-atomic-promise - (lambda (_%thunk102005%_) - (let ((_%thunk102008%_ _%thunk102005%_)) - (let ((_%mx102017%_ (make-mutex 'promise)) - (_%inner102018%_ (__make-promise _%thunk102008%_))) + (lambda (_%thunk104468%_) + (let ((_%thunk104471%_ _%thunk104468%_)) + (let ((_%mx104480%_ (make-mutex 'promise)) + (_%inner104481%_ (__make-promise _%thunk104471%_))) (__make-promise (lambda () - (let ((_%once102021%_ (vector '0))) - (let ((__tmp102068 + (let ((_%once104484%_ (vector '0))) + (let ((__tmp104531 (lambda () (declare (not interrupts-enabled)) (begin - (if (let ((__tmp102069 + (if (let ((__tmp104532 (let () (declare (not safe)) (##vector-cas! - _%once102021%_ + _%once104484%_ '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp102069 '0)) + (##fx= __tmp104532 '0)) '#!void (error '"Cannot reenter atomic block")) - (mutex-lock! _%mx102017%_)))) - (__tmp102067 + (mutex-lock! _%mx104480%_)))) + (__tmp104530 (lambda () (let () (declare (not safe)) - (##force-out-of-line _%inner102018%_)))) - (__tmp102066 (lambda () (mutex-unlock! _%mx102017%_)))) + (##force-out-of-line _%inner104481%_)))) + (__tmp104529 (lambda () (mutex-unlock! _%mx104480%_)))) (declare (not safe)) - (##dynamic-wind __tmp102068 __tmp102067 __tmp102066))))))))) + (##dynamic-wind __tmp104531 __tmp104530 __tmp104529))))))))) (define call-with-parameters__0 - (lambda (_%thunk101957%_) - (if (procedure? _%thunk101957%_) - (let ((_%thunk101961%_ _%thunk101957%_)) + (lambda (_%thunk104420%_) + (if (procedure? _%thunk104420%_) + (let ((_%thunk104424%_ _%thunk104420%_)) (declare (not safe)) - (_%thunk101961%_)) + (_%thunk104424%_)) (begin (raise-contract-violation-error '"contract violation" @@ -84,14 +84,14 @@ 'contract: 'procedure? 'value: - _%thunk101957%_) + _%thunk104420%_) '#!void)))) (define call-with-parameters__1 - (lambda (_%thunk101971%_ _%param101972%_ _%val101973%_) - (if (procedure? _%thunk101971%_) - (let ((_%thunk101977%_ _%thunk101971%_)) + (lambda (_%thunk104434%_ _%param104435%_ _%val104436%_) + (if (procedure? _%thunk104434%_) + (let ((_%thunk104440%_ _%thunk104434%_)) (declare (not safe)) - (##parameterize1 _%param101972%_ _%val101973%_ _%thunk101977%_)) + (##parameterize1 _%param104435%_ _%val104436%_ _%thunk104440%_)) (begin (raise-contract-violation-error '"contract violation" @@ -100,17 +100,17 @@ 'contract: 'procedure? 'value: - _%thunk101971%_) + _%thunk104434%_) '#!void)))) (define call-with-parameters__2 - (lambda (_%thunk101987%_ _%param101988%_ _%val101989%_ . _%rest101990%_) - (if (procedure? _%thunk101987%_) - (let ((_%thunk101994%_ _%thunk101987%_)) + (lambda (_%thunk104450%_ _%param104451%_ _%val104452%_ . _%rest104453%_) + (if (procedure? _%thunk104450%_) + (let ((_%thunk104457%_ _%thunk104450%_)) (call-with-parameters__1 (lambda () - (apply call-with-parameters _%thunk101994%_ _%rest101990%_)) - _%param101988%_ - _%val101989%_)) + (apply call-with-parameters _%thunk104457%_ _%rest104453%_)) + _%param104451%_ + _%val104452%_)) (begin (raise-contract-violation-error '"contract violation" @@ -119,28 +119,28 @@ 'contract: 'procedure? 'value: - _%thunk101987%_) + _%thunk104450%_) '#!void)))) (define call-with-parameters - (lambda _g102070_ - (let ((_g102071_ (let () (declare (not safe)) (##length _g102070_)))) - (cond ((let () (declare (not safe)) (##fx= _g102071_ 1)) - (apply call-with-parameters__0 _g102070_)) - ((let () (declare (not safe)) (##fx= _g102071_ 3)) - (apply call-with-parameters__1 _g102070_)) - ((let () (declare (not safe)) (##fx>= _g102071_ 3)) - (apply call-with-parameters__2 _g102070_)) + (lambda _g104533_ + (let ((_g104534_ (let () (declare (not safe)) (##length _g104533_)))) + (cond ((let () (declare (not safe)) (##fx= _g104534_ 1)) + (apply call-with-parameters__0 _g104533_)) + ((let () (declare (not safe)) (##fx= _g104534_ 3)) + (apply call-with-parameters__1 _g104533_)) + ((let () (declare (not safe)) (##fx>= _g104534_ 3)) + (apply call-with-parameters__2 _g104533_)) (else (##raise-wrong-number-of-arguments-exception call-with-parameters - _g102070_)))))) + _g104533_)))))) (define with-unwind-protect - (lambda (_%K101932%_ _%fini101933%_) - (if (procedure? _%K101932%_) - (let ((_%K101937%_ _%K101932%_)) - (if (procedure? _%fini101933%_) - (let ((_%fini101947%_ _%fini101933%_)) - (__with-unwind-protect _%K101937%_ _%fini101947%_)) + (lambda (_%K104395%_ _%fini104396%_) + (if (procedure? _%K104395%_) + (let ((_%K104400%_ _%K104395%_)) + (if (procedure? _%fini104396%_) + (let ((_%fini104410%_ _%fini104396%_)) + (__with-unwind-protect _%K104400%_ _%fini104410%_)) (begin (raise-contract-violation-error '"contract violation" @@ -149,7 +149,7 @@ 'contract: 'procedure? 'value: - _%fini101933%_) + _%fini104396%_) '#!void))) (begin (raise-contract-violation-error @@ -159,229 +159,229 @@ 'contract: 'procedure? 'value: - _%K101932%_) + _%K104395%_) '#!void)))) (define __with-unwind-protect - (lambda (_%K101906%_ _%fini101907%_) - (let* ((_%K101910%_ _%K101906%_) - (_%fini101919%_ _%fini101907%_) - (_%once101928%_ (vector '0)) - (__tmp102072 + (lambda (_%K104369%_ _%fini104370%_) + (let* ((_%K104373%_ _%K104369%_) + (_%fini104382%_ _%fini104370%_) + (_%once104391%_ (vector '0)) + (__tmp104535 (lambda () (declare (not interrupts-enabled)) - (if (let ((__tmp102073 + (if (let ((__tmp104536 (let () (declare (not safe)) - (##vector-cas! _%once101928%_ '0 '1 '0)))) + (##vector-cas! _%once104391%_ '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp102073 '0)) + (##fx= __tmp104536 '0)) '#!void (error '"Cannot re-enter unwind protected block"))))) (declare (not safe)) - (##dynamic-wind __tmp102072 _%K101910%_ _%fini101919%_)))) + (##dynamic-wind __tmp104535 _%K104373%_ _%fini104382%_)))) (define keyword-dispatch - (lambda (_%kwt101799%_ _%K101800%_ . _%all-args101801%_) - (if _%kwt101799%_ - (if (vector? _%kwt101799%_) + (lambda (_%kwt104262%_ _%K104263%_ . _%all-args104264%_) + (if _%kwt104262%_ + (if (vector? _%kwt104262%_) '#!void - (error '"keyword-dispatch: expected vector" _%kwt101799%_)) + (error '"keyword-dispatch: expected vector" _%kwt104262%_)) '#!void) - (if (procedure? _%K101800%_) + (if (procedure? _%K104263%_) '#!void - (error '"keyword-dispatch: expected procedure" _%K101800%_)) - (let ((_%keys101803%_ + (error '"keyword-dispatch: expected procedure" _%K104263%_)) + (let ((_%keys104266%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _%lp101805%_ ((_%rest101807%_ _%all-args101801%_) - (_%args101808%_ '#f) - (_%tail101809%_ '#f)) - (let* ((_%rest101810101818%_ _%rest101807%_) - (_%else101812101826%_ + (let _%lp104268%_ ((_%rest104270%_ _%all-args104264%_) + (_%args104271%_ '#f) + (_%tail104272%_ '#f)) + (let* ((_%rest104273104281%_ _%rest104270%_) + (_%else104275104289%_ (lambda () - (if _%args101808%_ + (if _%args104271%_ (begin (let () (declare (not safe)) - (##set-cdr! _%tail101809%_ '())) - (let ((__tmp102074 - (cons _%keys101803%_ _%args101808%_))) + (##set-cdr! _%tail104272%_ '())) + (let ((__tmp104537 + (cons _%keys104266%_ _%args104271%_))) (declare (not safe)) - (##apply _%K101800%_ __tmp102074))) - (_%K101800%_ _%keys101803%_)))) - (_%K101814101894%_ - (lambda (_%hd-rest101829%_ _%hd101830%_) - (if (keyword? _%hd101830%_) - (let* ((_%hd-rest101832101839%_ _%hd-rest101829%_) - (_%E101834101843%_ + (##apply _%K104263%_ __tmp104537))) + (_%K104263%_ _%keys104266%_)))) + (_%K104277104357%_ + (lambda (_%hd-rest104292%_ _%hd104293%_) + (if (keyword? _%hd104293%_) + (let* ((_%hd-rest104295104302%_ _%hd-rest104292%_) + (_%E104297104306%_ (lambda () (error '"No clause matching" - _%hd-rest101832101839%_ + _%hd-rest104295104302%_ '([val . rest])) '#!void)) - (_%K101835101851%_ - (lambda (_%rest101846%_ _%val101847%_) - (if _%kwt101799%_ - (let ((_%pos101849%_ - (let ((__tmp102076 + (_%K104298104314%_ + (lambda (_%rest104309%_ _%val104310%_) + (if _%kwt104262%_ + (let ((_%pos104312%_ + (let ((__tmp104539 (let () (declare (not safe)) (##keyword-hash - _%hd101830%_))) - (__tmp102075 + _%hd104293%_))) + (__tmp104538 (let () (declare (not safe)) (##vector-length - _%kwt101799%_)))) + _%kwt104262%_)))) (declare (not safe)) (##fxmodulo - __tmp102076 - __tmp102075)))) - (if (eq? _%hd101830%_ + __tmp104539 + __tmp104538)))) + (if (eq? _%hd104293%_ (let () (declare (not safe)) (##vector-ref - _%kwt101799%_ - _%pos101849%_))) + _%kwt104262%_ + _%pos104312%_))) '#!void (error '"Unexpected keyword argument" - _%K101800%_ - _%hd101830%_))) + _%K104263%_ + _%hd104293%_))) '#!void) (if (eq? (let () (declare (not safe)) (symbolic-table-ref - _%keys101803%_ - _%hd101830%_ + _%keys104266%_ + _%hd104293%_ absent-value)) absent-value) '#!void (error '"Duplicate keyword argument" - _%K101800%_ - _%hd101830%_)) + _%K104263%_ + _%hd104293%_)) (let () (declare (not safe)) (symbolic-table-set! - _%keys101803%_ - _%hd101830%_ - _%val101847%_)) - (_%lp101805%_ - _%rest101846%_ - _%args101808%_ - _%tail101809%_)))) - (if (pair? _%hd-rest101832101839%_) - (let ((_%hd101836101854%_ + _%keys104266%_ + _%hd104293%_ + _%val104310%_)) + (_%lp104268%_ + _%rest104309%_ + _%args104271%_ + _%tail104272%_)))) + (if (pair? _%hd-rest104295104302%_) + (let ((_%hd104299104317%_ (let () (declare (not safe)) - (##car _%hd-rest101832101839%_))) - (_%tl101837101856%_ + (##car _%hd-rest104295104302%_))) + (_%tl104300104319%_ (let () (declare (not safe)) - (##cdr _%hd-rest101832101839%_)))) - (let* ((_%val101859%_ _%hd101836101854%_) - (_%rest101861%_ _%tl101837101856%_)) - (_%K101835101851%_ - _%rest101861%_ - _%val101859%_))) - (_%E101834101843%_))) - (if (eq? _%hd101830%_ '#!key) - (let* ((_%hd-rest101863101870%_ - _%hd-rest101829%_) - (_%E101865101874%_ + (##cdr _%hd-rest104295104302%_)))) + (let* ((_%val104322%_ _%hd104299104317%_) + (_%rest104324%_ _%tl104300104319%_)) + (_%K104298104314%_ + _%rest104324%_ + _%val104322%_))) + (_%E104297104306%_))) + (if (eq? _%hd104293%_ '#!key) + (let* ((_%hd-rest104326104333%_ + _%hd-rest104292%_) + (_%E104328104337%_ (lambda () (error '"No clause matching" - _%hd-rest101863101870%_ + _%hd-rest104326104333%_ '([val . rest])) '#!void)) - (_%K101866101880%_ - (lambda (_%rest101877%_ _%val101878%_) - (if _%args101808%_ + (_%K104329104343%_ + (lambda (_%rest104340%_ _%val104341%_) + (if _%args104271%_ (begin (let () (declare (not safe)) (##set-cdr! - _%tail101809%_ - _%hd-rest101829%_)) - (_%lp101805%_ - _%rest101877%_ - _%args101808%_ - _%hd-rest101829%_)) - (_%lp101805%_ - _%rest101877%_ - _%hd-rest101829%_ - _%hd-rest101829%_))))) - (if (pair? _%hd-rest101863101870%_) - (let ((_%hd101867101883%_ + _%tail104272%_ + _%hd-rest104292%_)) + (_%lp104268%_ + _%rest104340%_ + _%args104271%_ + _%hd-rest104292%_)) + (_%lp104268%_ + _%rest104340%_ + _%hd-rest104292%_ + _%hd-rest104292%_))))) + (if (pair? _%hd-rest104326104333%_) + (let ((_%hd104330104346%_ (let () (declare (not safe)) - (##car _%hd-rest101863101870%_))) - (_%tl101868101885%_ + (##car _%hd-rest104326104333%_))) + (_%tl104331104348%_ (let () (declare (not safe)) - (##cdr _%hd-rest101863101870%_)))) - (let* ((_%val101888%_ _%hd101867101883%_) - (_%rest101890%_ - _%tl101868101885%_)) - (_%K101866101880%_ - _%rest101890%_ - _%val101888%_))) - (_%E101865101874%_))) - (if (eq? _%hd101830%_ '#!rest) - (if _%args101808%_ + (##cdr _%hd-rest104326104333%_)))) + (let* ((_%val104351%_ _%hd104330104346%_) + (_%rest104353%_ + _%tl104331104348%_)) + (_%K104329104343%_ + _%rest104353%_ + _%val104351%_))) + (_%E104328104337%_))) + (if (eq? _%hd104293%_ '#!rest) + (if _%args104271%_ (begin (let () (declare (not safe)) (##set-cdr! - _%tail101809%_ - _%hd-rest101829%_)) - (let ((__tmp102077 - (cons _%keys101803%_ - _%args101808%_))) + _%tail104272%_ + _%hd-rest104292%_)) + (let ((__tmp104540 + (cons _%keys104266%_ + _%args104271%_))) (declare (not safe)) - (##apply _%K101800%_ __tmp102077))) - (let ((__tmp102078 - (cons _%keys101803%_ - _%hd-rest101829%_))) + (##apply _%K104263%_ __tmp104540))) + (let ((__tmp104541 + (cons _%keys104266%_ + _%hd-rest104292%_))) (declare (not safe)) - (##apply _%K101800%_ __tmp102078))) - (if _%args101808%_ + (##apply _%K104263%_ __tmp104541))) + (if _%args104271%_ (begin (let () (declare (not safe)) (##set-cdr! - _%tail101809%_ - _%rest101807%_)) - (_%lp101805%_ - _%hd-rest101829%_ - _%args101808%_ - _%rest101807%_)) - (_%lp101805%_ - _%hd-rest101829%_ - _%rest101807%_ - _%rest101807%_)))))))) - (if (pair? _%rest101810101818%_) - (let ((_%hd101815101897%_ + _%tail104272%_ + _%rest104270%_)) + (_%lp104268%_ + _%hd-rest104292%_ + _%args104271%_ + _%rest104270%_)) + (_%lp104268%_ + _%hd-rest104292%_ + _%rest104270%_ + _%rest104270%_)))))))) + (if (pair? _%rest104273104281%_) + (let ((_%hd104278104360%_ (let () (declare (not safe)) - (##car _%rest101810101818%_))) - (_%tl101816101899%_ + (##car _%rest104273104281%_))) + (_%tl104279104362%_ (let () (declare (not safe)) - (##cdr _%rest101810101818%_)))) - (let* ((_%hd101902%_ _%hd101815101897%_) - (_%hd-rest101904%_ _%tl101816101899%_)) - (_%K101814101894%_ _%hd-rest101904%_ _%hd101902%_))) - (_%else101812101826%_))))))) + (##cdr _%rest104273104281%_)))) + (let* ((_%hd104365%_ _%hd104278104360%_) + (_%hd-rest104367%_ _%tl104279104362%_)) + (_%K104277104357%_ _%hd-rest104367%_ _%hd104365%_))) + (_%else104275104289%_))))))) (define keyword-rest - (lambda (_%kwt101791%_ . _%drop101792%_) - (let ((_%rest101794%_ '())) - (let ((__tmp102079 - (lambda (_%k101796%_ _%v101797%_) + (lambda (_%kwt104254%_ . _%drop104255%_) + (let ((_%rest104257%_ '())) + (let ((__tmp104542 + (lambda (_%k104259%_ _%v104260%_) (if (let () (declare (not safe)) - (##memq _%k101796%_ _%drop101792%_)) + (##memq _%k104259%_ _%drop104255%_)) '#!void - (set! _%rest101794%_ - (cons _%k101796%_ - (cons _%v101797%_ _%rest101794%_))))))) + (set! _%rest104257%_ + (cons _%k104259%_ + (cons _%v104260%_ _%rest104257%_))))))) (declare (not safe)) - (raw-table-for-each _%kwt101791%_ __tmp102079)) - _%rest101794%_))))) + (raw-table-for-each _%kwt104254%_ __tmp104542)) + _%rest104257%_))))) diff --git a/src/bootstrap/gerbil/runtime/error.ssxi.ss b/src/bootstrap/gerbil/runtime/error.ssxi.ss index a3f16ece05..416c1252f4 100644 --- a/src/bootstrap/gerbil/runtime/error.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/error.ssxi.ss @@ -62,8 +62,8 @@ package: gerbil/runtime #f #f #f - ((:init! . Error:::init!) - (display-exception . Error::display-exception)))) + ((display-exception . Error::display-exception) + (:init! . Error:::init!)))) (declare-type Error::t (optimizer-resolve-class '(typedecl Error::t) 'class::t)) diff --git a/src/bootstrap/gerbil/runtime/error~0.scm b/src/bootstrap/gerbil/runtime/error~0.scm index 3d679b0640..f4e3817faf 100644 --- a/src/bootstrap/gerbil/runtime/error~0.scm +++ b/src/bootstrap/gerbil/runtime/error~0.scm @@ -1,37 +1,37 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/error::timestamp 1756721294) + (define gerbil/runtime/error::timestamp 1769384627) (begin (define Exception::t - (let ((__tmp111806 (list))) + (let ((__tmp114816 (list))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#Exception::t 'Exception - __tmp111806 + __tmp114816 '() '() '#f))) (define Exception? (let () (declare (not safe)) (__make-class-predicate Exception::t))) (define make-Exception - (lambda _%$args111776%_ - (apply make-instance Exception::t _%$args111776%_))) + (lambda _%$args114786%_ + (apply make-instance Exception::t _%$args114786%_))) (define StackTrace::t - (let ((__tmp111807 (list))) + (let ((__tmp114817 (list))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#StackTrace::t 'StackTrace - __tmp111807 + __tmp114817 '(continuation) '() '#f))) (define StackTrace? (let () (declare (not safe)) (__make-class-predicate StackTrace::t))) (define make-StackTrace - (lambda _%$args111773%_ - (apply make-instance StackTrace::t _%$args111773%_))) + (lambda _%$args114783%_ + (apply make-instance StackTrace::t _%$args114783%_))) (define StackTrace-continuation (let () (declare (not safe)) @@ -49,19 +49,19 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator StackTrace::t 'continuation))) (define Error::t - (let ((__tmp111808 (list StackTrace::t Exception::t))) + (let ((__tmp114818 (list StackTrace::t Exception::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#Error::t 'Error - __tmp111808 + __tmp114818 '(message irritants where) - '((transparent: . #t)) + '() ':init!))) (define Error? (let () (declare (not safe)) (__make-class-predicate Error::t))) (define make-Error - (lambda _%$args111770%_ (apply make-instance Error::t _%$args111770%_))) + (lambda _%$args114780%_ (apply make-instance Error::t _%$args114780%_))) (define Error-message (let () (declare (not safe)) @@ -127,12 +127,12 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator Error::t 'continuation))) (define ContractViolation::t - (let ((__tmp111809 (list Error::t))) + (let ((__tmp114819 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#ContractViolation::t 'ContractViolation - __tmp111809 + __tmp114819 '() '() '#f))) @@ -141,8 +141,8 @@ (declare (not safe)) (__make-class-predicate ContractViolation::t))) (define make-ContractViolation - (lambda _%$args111767%_ - (apply make-instance ContractViolation::t _%$args111767%_))) + (lambda _%$args114777%_ + (apply make-instance ContractViolation::t _%$args114777%_))) (define ContractViolation-message (let () (declare (not safe)) @@ -214,22 +214,22 @@ ContractViolation::t 'continuation))) (define RuntimeException::t - (let ((__tmp111810 (list StackTrace::t Exception::t))) + (let ((__tmp114820 (list StackTrace::t Exception::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#RuntimeException::t 'RuntimeException - __tmp111810 + __tmp114820 '(exception) - '((transparent: . #t)) + '() '#f))) (define RuntimeException? (let () (declare (not safe)) (__make-class-predicate RuntimeException::t))) (define make-RuntimeException - (lambda _%$args111764%_ - (apply make-instance RuntimeException::t _%$args111764%_))) + (lambda _%$args114774%_ + (apply make-instance RuntimeException::t _%$args114774%_))) (define RuntimeException-exception (let () (declare (not safe)) @@ -267,206 +267,206 @@ RuntimeException::t 'continuation))) (define gerbil-exception-handler-hook - (lambda (_%exn111759%_ _%continue111760%_) - (let ((_%exn111762%_ (wrap-runtime-exception _%exn111759%_))) + (lambda (_%exn114769%_ _%continue114770%_) + (let ((_%exn114772%_ (wrap-runtime-exception _%exn114769%_))) (declare (not safe)) - (##repl-exception-handler-hook _%exn111762%_ _%continue111760%_)))) + (##repl-exception-handler-hook _%exn114772%_ _%continue114770%_)))) (let () (declare (not safe)) (##primordial-exception-handler-hook-set! gerbil-exception-handler-hook)) (define raise - (lambda (_%exn111755%_) + (lambda (_%exn114765%_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _%exn111755%_)) + (class-instance? StackTrace::t _%exn114765%_)) (if (let () (declare (not safe)) - (unchecked-slot-ref _%exn111755%_ 'continuation)) + (unchecked-slot-ref _%exn114765%_ 'continuation)) '#!void - (let ((__tmp111811 - (lambda (_%cont111757%_) + (let ((__tmp114821 + (lambda (_%cont114767%_) (let () (declare (not safe)) (unchecked-slot-set! - _%exn111755%_ + _%exn114765%_ 'continuation - _%cont111757%_))))) + _%cont114767%_))))) (declare (not safe)) - (##continuation-capture __tmp111811))) + (##continuation-capture __tmp114821))) '#!void) - (let () (declare (not safe)) (##raise _%exn111755%_)))) + (let () (declare (not safe)) (##raise _%exn114765%_)))) (define error - (lambda (_%message111752%_ . _%irritants111753%_) - (raise (let ((__obj111803 + (lambda (_%message114762%_ . _%irritants114763%_) + (raise (let ((__obj114813 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj111803 - _%message111752%_ + __obj114813 + _%message114762%_ 'irritants: - _%irritants111753%_) - __obj111803)))) + _%irritants114763%_) + __obj114813)))) (define __raise-contract-violation-error__% - (lambda (_%@@keywords111724%_ - _%ctx111719111725%_ - _%contract-expr111720111727%_ - _%value111721111729%_ - _%message111731%_) - (let* ((_%ctx111733%_ - (if (eq? _%ctx111719111725%_ absent-value) + (lambda (_%@@keywords114737%_ + _%ctx114732114738%_ + _%contract-expr114733114739%_ + _%value114734114740%_ + _%message114741%_) + (let* ((_%ctx114743%_ + (if (eq? _%ctx114732114738%_ absent-value) '#f - _%ctx111719111725%_)) - (_%contract-expr111735%_ - (if (eq? _%contract-expr111720111727%_ absent-value) + _%ctx114732114738%_)) + (_%contract-expr114745%_ + (if (eq? _%contract-expr114733114739%_ absent-value) '#f - _%contract-expr111720111727%_)) - (_%value111737%_ - (if (eq? _%value111721111729%_ absent-value) + _%contract-expr114733114739%_)) + (_%value114747%_ + (if (eq? _%value114734114740%_ absent-value) '#f - _%value111721111729%_))) - (raise (let ((__obj111804 + _%value114734114740%_))) + (raise (let ((__obj114814 (let () (declare (not safe)) (##structure ContractViolation::t '#f '#f '#f '#f)))) (ContractViolation:::init! - __obj111804 - _%message111731%_ + __obj114814 + _%message114741%_ 'where: - _%ctx111733%_ + _%ctx114743%_ 'irritants: (cons 'contract: - (cons _%contract-expr111735%_ - (cons 'value: (cons _%value111737%_ '()))))) - __obj111804))))) + (cons _%contract-expr114745%_ + (cons 'value: (cons _%value114747%_ '()))))) + __obj114814))))) (define __raise-contract-violation-error__@ - (lambda (_%@@keywords111742%_ . _%args111743%_) + (lambda (_%@@keywords114752%_ . _%args114753%_) (apply __raise-contract-violation-error__% - _%@@keywords111742%_ + _%@@keywords114752%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords111742%_ + _%@@keywords114752%_ 'context: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords111742%_ + _%@@keywords114752%_ 'contract: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords111742%_ + _%@@keywords114752%_ 'value: absent-value)) - _%args111743%_))) + _%args114753%_))) (define __raise-contract-violation-error - (lambda _%args111722111749%_ + (lambda _%args114735114759%_ (apply keyword-dispatch '#(context: #f value: contract:) __raise-contract-violation-error__@ - _%args111722111749%_))) + _%args114735114759%_))) (set! raise-contract-violation-error __raise-contract-violation-error) (define contract-violation-error? ContractViolation?) (define with-exception-handler - (lambda (_%handler111693%_ _%thunk111694%_) - (if (procedure? _%handler111693%_) - (let ((_%handler111698%_ _%handler111693%_)) - (if (procedure? _%thunk111694%_) - (let ((_%thunk111708%_ _%thunk111694%_)) + (lambda (_%handler114706%_ _%thunk114707%_) + (if (procedure? _%handler114706%_) + (let ((_%handler114711%_ _%handler114706%_)) + (if (procedure? _%thunk114707%_) + (let ((_%thunk114721%_ _%thunk114707%_)) (__with-exception-handler - _%handler111698%_ - _%thunk111708%_)) + _%handler114711%_ + _%thunk114721%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/error.ss\"@59.54-59.59" + '"\"gerbil/runtime/error.ss\"@60.54-60.59" 'contract: 'procedure? 'value: - _%thunk111694%_) + _%thunk114707%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/error.ss\"@59.31-59.38" + '"\"gerbil/runtime/error.ss\"@60.31-60.38" 'contract: 'procedure? 'value: - _%handler111693%_) + _%handler114706%_) '#!void)))) (define __with-exception-handler - (lambda (_%handler111668%_ _%thunk111669%_) - (let* ((_%handler111672%_ _%handler111668%_) - (_%thunk111680%_ _%thunk111669%_) - (__tmp111812 - (lambda (_%exn111689%_) - (let ((_%exn111691%_ (wrap-runtime-exception _%exn111689%_))) + (lambda (_%handler114681%_ _%thunk114682%_) + (let* ((_%handler114685%_ _%handler114681%_) + (_%thunk114693%_ _%thunk114682%_) + (__tmp114822 + (lambda (_%exn114702%_) + (let ((_%exn114704%_ (wrap-runtime-exception _%exn114702%_))) (declare (not safe)) - (_%handler111672%_ _%exn111691%_))))) + (_%handler114685%_ _%exn114704%_))))) (declare (not safe)) - (##with-exception-handler __tmp111812 _%thunk111680%_)))) + (##with-exception-handler __tmp114822 _%thunk114693%_)))) (define with-catch - (lambda (_%handler111643%_ _%thunk111644%_) - (if (procedure? _%handler111643%_) - (let ((_%handler111648%_ _%handler111643%_)) - (if (procedure? _%thunk111644%_) - (let ((_%thunk111658%_ _%thunk111644%_)) - (__with-catch _%handler111648%_ _%thunk111658%_)) + (lambda (_%handler114656%_ _%thunk114657%_) + (if (procedure? _%handler114656%_) + (let ((_%handler114661%_ _%handler114656%_)) + (if (procedure? _%thunk114657%_) + (let ((_%thunk114671%_ _%thunk114657%_)) + (__with-catch _%handler114661%_ _%thunk114671%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/error.ss\"@66.42-66.47" + '"\"gerbil/runtime/error.ss\"@67.42-67.47" 'contract: 'procedure? 'value: - _%thunk111644%_) + _%thunk114657%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/error.ss\"@66.19-66.26" + '"\"gerbil/runtime/error.ss\"@67.19-67.26" 'contract: 'procedure? 'value: - _%handler111643%_) + _%handler114656%_) '#!void)))) (define __with-catch - (lambda (_%handler111618%_ _%thunk111619%_) - (let* ((_%handler111622%_ _%handler111618%_) - (_%thunk111630%_ _%thunk111619%_) - (__tmp111813 - (lambda (_%cont111639%_) + (lambda (_%handler114631%_ _%thunk114632%_) + (let* ((_%handler114635%_ _%handler114631%_) + (_%thunk114643%_ _%thunk114632%_) + (__tmp114823 + (lambda (_%cont114652%_) (__with-exception-handler - (lambda (_%exn111641%_) + (lambda (_%exn114654%_) (let () (declare (not safe)) (##continuation-graft - _%cont111639%_ - _%handler111622%_ - _%exn111641%_))) - _%thunk111630%_)))) + _%cont114652%_ + _%handler114635%_ + _%exn114654%_))) + _%thunk114643%_)))) (declare (not safe)) - (##continuation-capture __tmp111813)))) + (##continuation-capture __tmp114823)))) (define with-exception-catcher with-catch) (define wrap-runtime-exception - (lambda (_%exn111605%_) - (if (or (heap-overflow-exception? _%exn111605%_) - (stack-overflow-exception? _%exn111605%_)) - _%exn111605%_ + (lambda (_%exn114618%_) + (if (or (heap-overflow-exception? _%exn114618%_) + (stack-overflow-exception? _%exn114618%_)) + _%exn114618%_ (if (let () (declare (not safe)) - (class-instance? Exception::t _%exn111605%_)) - _%exn111605%_ - (if (macro-exception? _%exn111605%_) - (let ((_%rte111613%_ - (let ((__obj111805 + (class-instance? Exception::t _%exn114618%_)) + _%exn114618%_ + (if (macro-exception? _%exn114618%_) + (let ((_%rte114626%_ + (let ((__obj114815 (let () (declare (not safe)) (##structure @@ -476,139 +476,139 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111805 - _%exn111605%_ + __obj114815 + _%exn114618%_ '2 '#f '#f)) - __obj111805))) - (let ((__tmp111814 - (lambda (_%cont111615%_) - (let ((__tmp111815 + __obj114815))) + (let ((__tmp114824 + (lambda (_%cont114628%_) + (let ((__tmp114825 (let () (declare (not safe)) - (##continuation-next _%cont111615%_)))) + (##continuation-next _%cont114628%_)))) (declare (not safe)) (unchecked-slot-set! - _%rte111613%_ + _%rte114626%_ 'continuation - __tmp111815))))) + __tmp114825))))) (declare (not safe)) - (##continuation-capture __tmp111814)) - _%rte111613%_) - _%exn111605%_))))) + (##continuation-capture __tmp114824)) + _%rte114626%_) + _%exn114618%_))))) (define exception? Exception?) (define error? Error?) (define error-object? - (lambda (_%obj111600%_) - (let ((_%$e111602%_ + (lambda (_%obj114613%_) + (let ((_%$e114615%_ (let () (declare (not safe)) - (class-instance? Error::t _%obj111600%_)))) - (if _%$e111602%_ _%$e111602%_ (error-exception? _%obj111600%_))))) + (class-instance? Error::t _%obj114613%_)))) + (if _%$e114615%_ _%$e114615%_ (error-exception? _%obj114613%_))))) (define error-message - (lambda (_%obj111593%_) - (let ((_%$e111595%_ + (lambda (_%obj114606%_) + (let ((_%$e114608%_ (let () (declare (not safe)) - (__slot-ref__% _%obj111593%_ 'message false)))) - (if _%$e111595%_ - _%$e111595%_ - (if (error-exception? _%obj111593%_) - (error-exception-message _%obj111593%_) + (__slot-ref__% _%obj114606%_ 'message false)))) + (if _%$e114608%_ + _%$e114608%_ + (if (error-exception? _%obj114606%_) + (error-exception-message _%obj114606%_) '#f))))) (define error-irritants - (lambda (_%obj111588%_) + (lambda (_%obj114601%_) (if (let () (declare (not safe)) - (class-instance? Error::t _%obj111588%_)) + (class-instance? Error::t _%obj114601%_)) (let () (declare (not safe)) - (unchecked-slot-ref _%obj111588%_ 'irritants)) - (if (error-exception? _%obj111588%_) - (error-exception-parameters _%obj111588%_) + (unchecked-slot-ref _%obj114601%_ 'irritants)) + (if (error-exception? _%obj114601%_) + (error-exception-parameters _%obj114601%_) '#f)))) (define error-trace - (lambda (_%obj111586%_) + (lambda (_%obj114599%_) (if (let () (declare (not safe)) - (class-instance? Error::t _%obj111586%_)) + (class-instance? Error::t _%obj114599%_)) (let () (declare (not safe)) - (unchecked-slot-ref _%obj111586%_ 'where)) + (unchecked-slot-ref _%obj114599%_ 'where)) '#f))) (define display-exception__% - (lambda (_%e111567%_ _%port111568%_) - (let ((_%$e111570%_ + (lambda (_%e114580%_ _%port114581%_) + (let ((_%$e114583%_ (let () (declare (not safe)) - (__method-ref _%e111567%_ 'display-exception)))) - (if _%$e111570%_ - ((lambda (_%f111573%_) (_%f111573%_ _%e111567%_ _%port111568%_)) - _%$e111570%_) + (__method-ref _%e114580%_ 'display-exception)))) + (if _%$e114583%_ + ((lambda (_%f114586%_) (_%f114586%_ _%e114580%_ _%port114581%_)) + _%$e114583%_) (let () (declare (not safe)) - (##default-display-exception _%e111567%_ _%port111568%_)))))) + (##default-display-exception _%e114580%_ _%port114581%_)))))) (define display-exception__0 - (lambda (_%e111579%_) - (let ((_%port111581%_ (current-error-port))) - (display-exception__% _%e111579%_ _%port111581%_)))) + (lambda (_%e114592%_) + (let ((_%port114594%_ (current-error-port))) + (display-exception__% _%e114592%_ _%port114594%_)))) (define display-exception - (lambda _g111816_ - (let ((_g111817_ (let () (declare (not safe)) (##length _g111816_)))) - (cond ((let () (declare (not safe)) (##fx= _g111817_ 1)) - (apply display-exception__0 _g111816_)) - ((let () (declare (not safe)) (##fx= _g111817_ 2)) - (apply display-exception__% _g111816_)) + (lambda _g114826_ + (let ((_g114827_ (let () (declare (not safe)) (##length _g114826_)))) + (cond ((let () (declare (not safe)) (##fx= _g114827_ 1)) + (apply display-exception__0 _g114826_)) + ((let () (declare (not safe)) (##fx= _g114827_ 2)) + (apply display-exception__% _g114826_)) (else (##raise-wrong-number-of-arguments-exception display-exception - _g111816_)))))) + _g114826_)))))) (let () (declare (not safe)) (##display-exception-hook-set! display-exception)) (define Error:::init! - (lambda (_%self111545%_ _%message111546%_ . _%rest111547%_) - (let* ((_%self111550%_ _%self111545%_) - (_%message111564%_ - (if (string? _%message111546%_) - _%message111546%_ + (lambda (_%self114558%_ _%message114559%_ . _%rest114560%_) + (let* ((_%self114563%_ _%self114558%_) + (_%message114577%_ + (if (string? _%message114559%_) + _%message114559%_ (call-with-output-string '"" - (lambda (_%g111559111561%_) - (display _%message111546%_ _%g111559111561%_)))))) + (lambda (_%g114572114574%_) + (display _%message114559%_ _%g114572114574%_)))))) (let () (declare (not safe)) - (unchecked-slot-set! _%self111550%_ 'message _%message111564%_)) - (apply class-instance-init! _%self111550%_ _%rest111547%_)))) + (unchecked-slot-set! _%self114563%_ 'message _%message114577%_)) + (apply class-instance-init! _%self114563%_ _%rest114560%_)))) (define Error:::init!::specialize - (lambda (__klass111778 __method-table111779) - (let ((__message111780 - (let ((__slot111781 + (lambda (__klass114788 __method-table114789) + (let ((__message114790 + (let ((__slot114791 (let () (declare (not safe)) - (class-slot-offset __klass111778 'message)))) - (if __slot111781 - __slot111781 + (class-slot-offset __klass114788 'message)))) + (if __slot114791 + __slot114791 (error '"Unknown slot" 'message))))) - (lambda (_%self111545%_ _%message111546%_ . _%rest111547%_) - (let* ((_%self111550%_ _%self111545%_) - (_%message111564%_ - (if (string? _%message111546%_) - _%message111546%_ + (lambda (_%self114558%_ _%message114559%_ . _%rest114560%_) + (let* ((_%self114563%_ _%self114558%_) + (_%message114577%_ + (if (string? _%message114559%_) + _%message114559%_ (call-with-output-string '"" - (lambda (_%g111559111561%_) - (display _%message111546%_ _%g111559111561%_)))))) + (lambda (_%g114572114574%_) + (display _%message114559%_ _%g114572114574%_)))))) (let () (declare (not safe)) (##unchecked-structure-set! - _%self111550%_ - _%message111564%_ - __message111780 + _%self114563%_ + _%message114577%_ + __message114790 '#f '#f)) - (apply class-instance-init! _%self111550%_ _%rest111547%_)))))) + (apply class-instance-init! _%self114563%_ _%rest114560%_)))))) (let () (declare (not safe)) (bind-specializer! Error:::init! Error:::init!::specialize)) @@ -625,222 +625,222 @@ '#f)) (define dump-stack-trace? (make-parameter '#f)) (define Error::display-exception - (lambda (_%self111269%_ _%port111270%_) - (let ((_%self111273%_ _%self111269%_)) - (let ((_%tmp-port111283%_ (open-output-string)) - (_%display-error-newline111284%_ - (> (output-port-column _%port111270%_) '0))) - (fix-port-width! _%tmp-port111283%_) - (let ((__tmp111818 + (lambda (_%self114283%_ _%port114284%_) + (let ((_%self114287%_ _%self114283%_)) + (let ((_%tmp-port114297%_ (open-output-string)) + (_%display-error-newline114298%_ + (> (output-port-column _%port114284%_) '0))) + (fix-port-width! _%tmp-port114297%_) + (let ((__tmp114828 (lambda () - (if _%display-error-newline111284%_ (newline) '#!void) + (if _%display-error-newline114298%_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_%$e111287%_ + (let ((_%$e114301%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self111273%_ 'where)))) - (if _%$e111287%_ (display _%$e111287%_) (display '"?"))) - (let ((__tmp111819 - (let ((__tmp111820 + (unchecked-slot-ref _%self114287%_ 'where)))) + (if _%$e114301%_ (display _%$e114301%_) (display '"?"))) + (let ((__tmp114829 + (let ((__tmp114830 (let () (declare (not safe)) - (object-type _%self111273%_)))) + (__object-class _%self114287%_)))) (declare (not safe)) - (##type-name __tmp111820)))) + (##type-name __tmp114830)))) (declare (not safe)) - (display* '" [" __tmp111819 '"]: ")) - (let ((__tmp111821 + (display* '" [" __tmp114829 '"]: ")) + (let ((__tmp114831 (let () (declare (not safe)) - (unchecked-slot-ref _%self111273%_ 'message)))) + (unchecked-slot-ref _%self114287%_ 'message)))) (declare (not safe)) - (displayln __tmp111821)) - (let ((_%irritants111291%_ + (displayln __tmp114831)) + (let ((_%irritants114305%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self111273%_ 'irritants)))) - (if (null? _%irritants111291%_) + (unchecked-slot-ref _%self114287%_ 'irritants)))) + (if (null? _%irritants114305%_) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_%obj111293%_) - (if (u8vector? _%obj111293%_) - (let ((__tmp111822 + (lambda (_%obj114307%_) + (if (u8vector? _%obj114307%_) + (let ((__tmp114832 (cons ' (cons (let () (declare (not safe)) (##u8vector-length - _%obj111293%_)) + _%obj114307%_)) '())))) (declare (not safe)) - (##write __tmp111822)) + (##write __tmp114832)) (let () (declare (not safe)) - (##write _%obj111293%_))) + (##write _%obj114307%_))) (let () (declare (not safe)) (##write-char '#\space))) - _%irritants111291%_) + _%irritants114305%_) (newline)))) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont111294111296%_ + (let ((_%cont114308114310%_ (let () (declare (not safe)) (unchecked-slot-ref - _%self111273%_ + _%self114287%_ 'continuation)))) - (if _%cont111294111296%_ - (let ((_%cont111299%_ _%cont111294111296%_)) + (if _%cont114308114310%_ + (let ((_%cont114312%_ _%cont114308114310%_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _%cont111299%_)) + _%cont114312%_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters__1 - __tmp111818 + __tmp114828 current-output-port - _%tmp-port111283%_)) - (let ((__tmp111823 (get-output-string _%tmp-port111283%_))) + _%tmp-port114297%_)) + (let ((__tmp114833 (get-output-string _%tmp-port114297%_))) (declare (not safe)) - (##write-string __tmp111823 _%port111270%_)))))) + (##write-string __tmp114833 _%port114284%_)))))) (define Error::display-exception::specialize - (lambda (__klass111782 __method-table111783) - (let ((__continuation111784 - (let ((__slot111788 + (lambda (__klass114792 __method-table114793) + (let ((__irritants114794 + (let ((__slot114798 (let () (declare (not safe)) - (class-slot-offset __klass111782 'continuation)))) - (if __slot111788 - __slot111788 - (error '"Unknown slot" 'continuation)))) - (__message111785 - (let ((__slot111789 + (class-slot-offset __klass114792 'irritants)))) + (if __slot114798 + __slot114798 + (error '"Unknown slot" 'irritants)))) + (__where114795 + (let ((__slot114799 (let () (declare (not safe)) - (class-slot-offset __klass111782 'message)))) - (if __slot111789 - __slot111789 - (error '"Unknown slot" 'message)))) - (__irritants111786 - (let ((__slot111790 + (class-slot-offset __klass114792 'where)))) + (if __slot114799 + __slot114799 + (error '"Unknown slot" 'where)))) + (__continuation114796 + (let ((__slot114800 (let () (declare (not safe)) - (class-slot-offset __klass111782 'irritants)))) - (if __slot111790 - __slot111790 - (error '"Unknown slot" 'irritants)))) - (__where111787 - (let ((__slot111791 + (class-slot-offset __klass114792 'continuation)))) + (if __slot114800 + __slot114800 + (error '"Unknown slot" 'continuation)))) + (__message114797 + (let ((__slot114801 (let () (declare (not safe)) - (class-slot-offset __klass111782 'where)))) - (if __slot111791 - __slot111791 - (error '"Unknown slot" 'where))))) - (lambda (_%self111269%_ _%port111270%_) - (let ((_%self111273%_ _%self111269%_)) - (let ((_%tmp-port111283%_ (open-output-string)) - (_%display-error-newline111284%_ - (> (output-port-column _%port111270%_) '0))) - (fix-port-width! _%tmp-port111283%_) - (let ((__tmp111824 + (class-slot-offset __klass114792 'message)))) + (if __slot114801 + __slot114801 + (error '"Unknown slot" 'message))))) + (lambda (_%self114283%_ _%port114284%_) + (let ((_%self114287%_ _%self114283%_)) + (let ((_%tmp-port114297%_ (open-output-string)) + (_%display-error-newline114298%_ + (> (output-port-column _%port114284%_) '0))) + (fix-port-width! _%tmp-port114297%_) + (let ((__tmp114834 (lambda () - (if _%display-error-newline111284%_ (newline) '#!void) + (if _%display-error-newline114298%_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_%$e111287%_ + (let ((_%$e114301%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self111273%_ - __where111787 + _%self114287%_ + __where114795 '#f '#f)))) - (if _%$e111287%_ - (display _%$e111287%_) + (if _%$e114301%_ + (display _%$e114301%_) (display '"?"))) - (let ((__tmp111825 - (let ((__tmp111826 + (let ((__tmp114835 + (let ((__tmp114836 (let () (declare (not safe)) - (object-type _%self111273%_)))) + (__object-class _%self114287%_)))) (declare (not safe)) - (##type-name __tmp111826)))) + (##type-name __tmp114836)))) (declare (not safe)) - (display* '" [" __tmp111825 '"]: ")) - (let ((__tmp111827 + (display* '" [" __tmp114835 '"]: ")) + (let ((__tmp114837 (let () (declare (not safe)) (##unchecked-structure-ref - _%self111273%_ - __message111785 + _%self114287%_ + __message114797 '#f '#f)))) (declare (not safe)) - (displayln __tmp111827)) - (let ((_%irritants111291%_ + (displayln __tmp114837)) + (let ((_%irritants114305%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self111273%_ - __irritants111786 + _%self114287%_ + __irritants114794 '#f '#f)))) - (if (null? _%irritants111291%_) + (if (null? _%irritants114305%_) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_%obj111293%_) - (if (u8vector? _%obj111293%_) - (let ((__tmp111828 + (lambda (_%obj114307%_) + (if (u8vector? _%obj114307%_) + (let ((__tmp114838 (cons ' (cons (let () (declare (not safe)) (##u8vector-length - _%obj111293%_)) + _%obj114307%_)) '())))) (declare (not safe)) - (##write __tmp111828)) + (##write __tmp114838)) (let () (declare (not safe)) - (##write _%obj111293%_))) + (##write _%obj114307%_))) (let () (declare (not safe)) (##write-char '#\space))) - _%irritants111291%_) + _%irritants114305%_) (newline)))) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont111294111296%_ + (let ((_%cont114308114310%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self111273%_ - __continuation111784 + _%self114287%_ + __continuation114796 '#f '#f)))) - (if _%cont111294111296%_ - (let ((_%cont111299%_ _%cont111294111296%_)) + (if _%cont114308114310%_ + (let ((_%cont114312%_ _%cont114308114310%_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _%cont111299%_)) + _%cont114312%_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters__1 - __tmp111824 + __tmp114834 current-output-port - _%tmp-port111283%_)) - (let ((__tmp111829 (get-output-string _%tmp-port111283%_))) + _%tmp-port114297%_)) + (let ((__tmp114839 (get-output-string _%tmp-port114297%_))) (declare (not safe)) - (##write-string __tmp111829 _%port111270%_)))))))) + (##write-string __tmp114839 _%port114284%_)))))))) (let () (declare (not safe)) (bind-specializer! @@ -854,88 +854,88 @@ Error::display-exception '#t)) (define RuntimeException::display-exception - (lambda (_%self111125%_ _%port111126%_) - (let* ((_%self111129%_ _%self111125%_) - (_%tmp-port111139%_ (open-output-string))) - (fix-port-width! _%tmp-port111139%_) - (let ((__tmp111830 + (lambda (_%self114140%_ _%port114141%_) + (let* ((_%self114144%_ _%self114140%_) + (_%tmp-port114154%_ (open-output-string))) + (fix-port-width! _%tmp-port114154%_) + (let ((__tmp114840 (let () (declare (not safe)) - (unchecked-slot-ref _%self111129%_ 'exception)))) + (unchecked-slot-ref _%self114144%_ 'exception)))) (declare (not safe)) - (##default-display-exception __tmp111830 _%tmp-port111139%_)) + (##default-display-exception __tmp114840 _%tmp-port114154%_)) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont111140111142%_ + (let ((_%cont114155114157%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self111129%_ 'continuation)))) - (if _%cont111140111142%_ - (let ((_%cont111145%_ _%cont111140111142%_)) + (unchecked-slot-ref _%self114144%_ 'continuation)))) + (if _%cont114155114157%_ + (let ((_%cont114159%_ _%cont114155114157%_)) (display '"--- continuation backtrace:" - _%tmp-port111139%_) - (newline _%tmp-port111139%_) + _%tmp-port114154%_) + (newline _%tmp-port114154%_) (display-continuation-backtrace - _%cont111145%_ - _%tmp-port111139%_)) + _%cont114159%_ + _%tmp-port114154%_)) '#f)) '#!void) - (let ((__tmp111831 (get-output-string _%tmp-port111139%_))) + (let ((__tmp114841 (get-output-string _%tmp-port114154%_))) (declare (not safe)) - (##write-string __tmp111831 _%port111126%_))))) + (##write-string __tmp114841 _%port114141%_))))) (define RuntimeException::display-exception::specialize - (lambda (__klass111792 __method-table111793) - (let ((__continuation111794 - (let ((__slot111796 + (lambda (__klass114802 __method-table114803) + (let ((__exception114804 + (let ((__slot114806 (let () (declare (not safe)) - (class-slot-offset __klass111792 'continuation)))) - (if __slot111796 - __slot111796 - (error '"Unknown slot" 'continuation)))) - (__exception111795 - (let ((__slot111797 + (class-slot-offset __klass114802 'exception)))) + (if __slot114806 + __slot114806 + (error '"Unknown slot" 'exception)))) + (__continuation114805 + (let ((__slot114807 (let () (declare (not safe)) - (class-slot-offset __klass111792 'exception)))) - (if __slot111797 - __slot111797 - (error '"Unknown slot" 'exception))))) - (lambda (_%self111125%_ _%port111126%_) - (let* ((_%self111129%_ _%self111125%_) - (_%tmp-port111139%_ (open-output-string))) - (fix-port-width! _%tmp-port111139%_) - (let ((__tmp111832 + (class-slot-offset __klass114802 'continuation)))) + (if __slot114807 + __slot114807 + (error '"Unknown slot" 'continuation))))) + (lambda (_%self114140%_ _%port114141%_) + (let* ((_%self114144%_ _%self114140%_) + (_%tmp-port114154%_ (open-output-string))) + (fix-port-width! _%tmp-port114154%_) + (let ((__tmp114842 (let () (declare (not safe)) (##unchecked-structure-ref - _%self111129%_ - __exception111795 + _%self114144%_ + __exception114804 '#f '#f)))) (declare (not safe)) - (##default-display-exception __tmp111832 _%tmp-port111139%_)) + (##default-display-exception __tmp114842 _%tmp-port114154%_)) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont111140111142%_ + (let ((_%cont114155114157%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self111129%_ - __continuation111794 + _%self114144%_ + __continuation114805 '#f '#f)))) - (if _%cont111140111142%_ - (let ((_%cont111145%_ _%cont111140111142%_)) + (if _%cont114155114157%_ + (let ((_%cont114159%_ _%cont114155114157%_)) (display '"--- continuation backtrace:" - _%tmp-port111139%_) - (newline _%tmp-port111139%_) + _%tmp-port114154%_) + (newline _%tmp-port114154%_) (display-continuation-backtrace - _%cont111145%_ - _%tmp-port111139%_)) + _%cont114159%_ + _%tmp-port114154%_)) '#f)) '#!void) - (let ((__tmp111833 (get-output-string _%tmp-port111139%_))) + (let ((__tmp114843 (get-output-string _%tmp-port114154%_))) (declare (not safe)) - (##write-string __tmp111833 _%port111126%_))))))) + (##write-string __tmp114843 _%port114141%_))))))) (let () (declare (not safe)) (bind-specializer! @@ -949,2636 +949,2636 @@ RuntimeException::display-exception '#f)) (define fix-port-width! - (lambda (_%port110997%_) - (if (macro-character-port? _%port110997%_) - (let ((_%old-width110999%_ - (macro-character-port-output-width _%port110997%_))) + (lambda (_%port114012%_) + (if (macro-character-port? _%port114012%_) + (let ((_%old-width114014%_ + (macro-character-port-output-width _%port114012%_))) (macro-character-port-output-width-set! - _%port110997%_ - (lambda (_%port111001%_) '256)) - _%old-width110999%_) + _%port114012%_ + (lambda (_%port114016%_) '256)) + _%old-width114014%_) '#!void))) (define reset-port-width! - (lambda (_%port110994%_ _%old-width110995%_) - (if (macro-character-port? _%port110994%_) + (lambda (_%port114009%_ _%old-width114010%_) + (if (macro-character-port? _%port114009%_) (macro-character-port-output-width-set! - _%port110994%_ - _%old-width110995%_) + _%port114009%_ + _%old-width114010%_) '#!void))) (define datum-parsing-exception-filepos - (lambda (_%e110992%_) - (macro-readenv-filepos (datum-parsing-exception-readenv _%e110992%_)))) + (lambda (_%e114007%_) + (macro-readenv-filepos (datum-parsing-exception-readenv _%e114007%_)))) (define abandoned-mutex-exception? - (lambda (_%exn110986%_) + (lambda (_%exn114001%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110986%_)) - (let ((_%e110989%_ + (class-instance? RuntimeException::t _%exn114001%_)) + (let ((_%e114004%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110986%_ 'exception)))) - (macro-abandoned-mutex-exception? _%e110989%_)) - (macro-abandoned-mutex-exception? _%exn110986%_)))) + (unchecked-slot-ref _%exn114001%_ 'exception)))) + (macro-abandoned-mutex-exception? _%e114004%_)) + (macro-abandoned-mutex-exception? _%exn114001%_)))) (define cfun-conversion-exception? - (lambda (_%exn110982%_) + (lambda (_%exn113997%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110982%_)) - (let ((_%e110984%_ + (class-instance? RuntimeException::t _%exn113997%_)) + (let ((_%e113999%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110982%_ 'exception)))) - (macro-cfun-conversion-exception? _%e110984%_)) - (macro-cfun-conversion-exception? _%exn110982%_)))) + (unchecked-slot-ref _%exn113997%_ 'exception)))) + (macro-cfun-conversion-exception? _%e113999%_)) + (macro-cfun-conversion-exception? _%exn113997%_)))) (define cfun-conversion-exception-arguments - (lambda (_%exn110978%_) + (lambda (_%exn113993%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110978%_)) - (let ((_%e110980%_ + (class-instance? RuntimeException::t _%exn113993%_)) + (let ((_%e113995%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110978%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e110980%_) - (macro-cfun-conversion-exception-arguments _%e110980%_) + (unchecked-slot-ref _%exn113993%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e113995%_) + (macro-cfun-conversion-exception-arguments _%e113995%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-arguments - (cons _%e110980%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn110978%_) - (macro-cfun-conversion-exception-arguments _%exn110978%_) + (cons _%e113995%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn113993%_) + (macro-cfun-conversion-exception-arguments _%exn113993%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-arguments - (cons _%exn110978%_ '()))))))) + (cons _%exn113993%_ '()))))))) (define cfun-conversion-exception-code - (lambda (_%exn110974%_) + (lambda (_%exn113989%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110974%_)) - (let ((_%e110976%_ + (class-instance? RuntimeException::t _%exn113989%_)) + (let ((_%e113991%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110974%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e110976%_) - (macro-cfun-conversion-exception-code _%e110976%_) + (unchecked-slot-ref _%exn113989%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e113991%_) + (macro-cfun-conversion-exception-code _%e113991%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-code - (cons _%e110976%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn110974%_) - (macro-cfun-conversion-exception-code _%exn110974%_) + (cons _%e113991%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn113989%_) + (macro-cfun-conversion-exception-code _%exn113989%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-code - (cons _%exn110974%_ '()))))))) + (cons _%exn113989%_ '()))))))) (define cfun-conversion-exception-message - (lambda (_%exn110970%_) + (lambda (_%exn113985%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110970%_)) - (let ((_%e110972%_ + (class-instance? RuntimeException::t _%exn113985%_)) + (let ((_%e113987%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110970%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e110972%_) - (macro-cfun-conversion-exception-message _%e110972%_) + (unchecked-slot-ref _%exn113985%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e113987%_) + (macro-cfun-conversion-exception-message _%e113987%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-message - (cons _%e110972%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn110970%_) - (macro-cfun-conversion-exception-message _%exn110970%_) + (cons _%e113987%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn113985%_) + (macro-cfun-conversion-exception-message _%exn113985%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-message - (cons _%exn110970%_ '()))))))) + (cons _%exn113985%_ '()))))))) (define cfun-conversion-exception-procedure - (lambda (_%exn110964%_) + (lambda (_%exn113979%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110964%_)) - (let ((_%e110967%_ + (class-instance? RuntimeException::t _%exn113979%_)) + (let ((_%e113982%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110964%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e110967%_) - (macro-cfun-conversion-exception-procedure _%e110967%_) + (unchecked-slot-ref _%exn113979%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e113982%_) + (macro-cfun-conversion-exception-procedure _%e113982%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-procedure - (cons _%e110967%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn110964%_) - (macro-cfun-conversion-exception-procedure _%exn110964%_) + (cons _%e113982%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn113979%_) + (macro-cfun-conversion-exception-procedure _%exn113979%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-procedure - (cons _%exn110964%_ '()))))))) + (cons _%exn113979%_ '()))))))) (define datum-parsing-exception? - (lambda (_%exn110960%_) + (lambda (_%exn113975%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110960%_)) - (let ((_%e110962%_ + (class-instance? RuntimeException::t _%exn113975%_)) + (let ((_%e113977%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110960%_ 'exception)))) - (macro-datum-parsing-exception? _%e110962%_)) - (macro-datum-parsing-exception? _%exn110960%_)))) + (unchecked-slot-ref _%exn113975%_ 'exception)))) + (macro-datum-parsing-exception? _%e113977%_)) + (macro-datum-parsing-exception? _%exn113975%_)))) (define datum-parsing-exception-kind - (lambda (_%exn110956%_) + (lambda (_%exn113971%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110956%_)) - (let ((_%e110958%_ + (class-instance? RuntimeException::t _%exn113971%_)) + (let ((_%e113973%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110956%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e110958%_) - (macro-datum-parsing-exception-kind _%e110958%_) + (unchecked-slot-ref _%exn113971%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e113973%_) + (macro-datum-parsing-exception-kind _%e113973%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-kind - (cons _%e110958%_ '()))))) - (if (macro-datum-parsing-exception? _%exn110956%_) - (macro-datum-parsing-exception-kind _%exn110956%_) + (cons _%e113973%_ '()))))) + (if (macro-datum-parsing-exception? _%exn113971%_) + (macro-datum-parsing-exception-kind _%exn113971%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-kind - (cons _%exn110956%_ '()))))))) + (cons _%exn113971%_ '()))))))) (define datum-parsing-exception-parameters - (lambda (_%exn110952%_) + (lambda (_%exn113967%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110952%_)) - (let ((_%e110954%_ + (class-instance? RuntimeException::t _%exn113967%_)) + (let ((_%e113969%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110952%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e110954%_) - (macro-datum-parsing-exception-parameters _%e110954%_) + (unchecked-slot-ref _%exn113967%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e113969%_) + (macro-datum-parsing-exception-parameters _%e113969%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-parameters - (cons _%e110954%_ '()))))) - (if (macro-datum-parsing-exception? _%exn110952%_) - (macro-datum-parsing-exception-parameters _%exn110952%_) + (cons _%e113969%_ '()))))) + (if (macro-datum-parsing-exception? _%exn113967%_) + (macro-datum-parsing-exception-parameters _%exn113967%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-parameters - (cons _%exn110952%_ '()))))))) + (cons _%exn113967%_ '()))))))) (define datum-parsing-exception-readenv - (lambda (_%exn110946%_) + (lambda (_%exn113961%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110946%_)) - (let ((_%e110949%_ + (class-instance? RuntimeException::t _%exn113961%_)) + (let ((_%e113964%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110946%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e110949%_) - (macro-datum-parsing-exception-readenv _%e110949%_) + (unchecked-slot-ref _%exn113961%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e113964%_) + (macro-datum-parsing-exception-readenv _%e113964%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-readenv - (cons _%e110949%_ '()))))) - (if (macro-datum-parsing-exception? _%exn110946%_) - (macro-datum-parsing-exception-readenv _%exn110946%_) + (cons _%e113964%_ '()))))) + (if (macro-datum-parsing-exception? _%exn113961%_) + (macro-datum-parsing-exception-readenv _%exn113961%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-readenv - (cons _%exn110946%_ '()))))))) + (cons _%exn113961%_ '()))))))) (define deadlock-exception? - (lambda (_%exn110940%_) + (lambda (_%exn113955%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110940%_)) - (let ((_%e110943%_ + (class-instance? RuntimeException::t _%exn113955%_)) + (let ((_%e113958%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110940%_ 'exception)))) - (macro-deadlock-exception? _%e110943%_)) - (macro-deadlock-exception? _%exn110940%_)))) + (unchecked-slot-ref _%exn113955%_ 'exception)))) + (macro-deadlock-exception? _%e113958%_)) + (macro-deadlock-exception? _%exn113955%_)))) (define divide-by-zero-exception? - (lambda (_%exn110936%_) + (lambda (_%exn113951%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110936%_)) - (let ((_%e110938%_ + (class-instance? RuntimeException::t _%exn113951%_)) + (let ((_%e113953%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110936%_ 'exception)))) - (macro-divide-by-zero-exception? _%e110938%_)) - (macro-divide-by-zero-exception? _%exn110936%_)))) + (unchecked-slot-ref _%exn113951%_ 'exception)))) + (macro-divide-by-zero-exception? _%e113953%_)) + (macro-divide-by-zero-exception? _%exn113951%_)))) (define divide-by-zero-exception-arguments - (lambda (_%exn110932%_) + (lambda (_%exn113947%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110932%_)) - (let ((_%e110934%_ + (class-instance? RuntimeException::t _%exn113947%_)) + (let ((_%e113949%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110932%_ 'exception)))) - (if (macro-divide-by-zero-exception? _%e110934%_) - (macro-divide-by-zero-exception-arguments _%e110934%_) + (unchecked-slot-ref _%exn113947%_ 'exception)))) + (if (macro-divide-by-zero-exception? _%e113949%_) + (macro-divide-by-zero-exception-arguments _%e113949%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-arguments - (cons _%e110934%_ '()))))) - (if (macro-divide-by-zero-exception? _%exn110932%_) - (macro-divide-by-zero-exception-arguments _%exn110932%_) + (cons _%e113949%_ '()))))) + (if (macro-divide-by-zero-exception? _%exn113947%_) + (macro-divide-by-zero-exception-arguments _%exn113947%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-arguments - (cons _%exn110932%_ '()))))))) + (cons _%exn113947%_ '()))))))) (define divide-by-zero-exception-procedure - (lambda (_%exn110926%_) + (lambda (_%exn113941%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110926%_)) - (let ((_%e110929%_ + (class-instance? RuntimeException::t _%exn113941%_)) + (let ((_%e113944%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110926%_ 'exception)))) - (if (macro-divide-by-zero-exception? _%e110929%_) - (macro-divide-by-zero-exception-procedure _%e110929%_) + (unchecked-slot-ref _%exn113941%_ 'exception)))) + (if (macro-divide-by-zero-exception? _%e113944%_) + (macro-divide-by-zero-exception-procedure _%e113944%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-procedure - (cons _%e110929%_ '()))))) - (if (macro-divide-by-zero-exception? _%exn110926%_) - (macro-divide-by-zero-exception-procedure _%exn110926%_) + (cons _%e113944%_ '()))))) + (if (macro-divide-by-zero-exception? _%exn113941%_) + (macro-divide-by-zero-exception-procedure _%exn113941%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-procedure - (cons _%exn110926%_ '()))))))) + (cons _%exn113941%_ '()))))))) (define error-exception? - (lambda (_%exn110922%_) + (lambda (_%exn113937%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110922%_)) - (let ((_%e110924%_ + (class-instance? RuntimeException::t _%exn113937%_)) + (let ((_%e113939%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110922%_ 'exception)))) - (macro-error-exception? _%e110924%_)) - (macro-error-exception? _%exn110922%_)))) + (unchecked-slot-ref _%exn113937%_ 'exception)))) + (macro-error-exception? _%e113939%_)) + (macro-error-exception? _%exn113937%_)))) (define error-exception-message - (lambda (_%exn110918%_) + (lambda (_%exn113933%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110918%_)) - (let ((_%e110920%_ + (class-instance? RuntimeException::t _%exn113933%_)) + (let ((_%e113935%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110918%_ 'exception)))) - (if (macro-error-exception? _%e110920%_) - (macro-error-exception-message _%e110920%_) + (unchecked-slot-ref _%exn113933%_ 'exception)))) + (if (macro-error-exception? _%e113935%_) + (macro-error-exception-message _%e113935%_) (error '"not an instance" 'error-exception? (cons 'error-exception-message - (cons _%e110920%_ '()))))) - (if (macro-error-exception? _%exn110918%_) - (macro-error-exception-message _%exn110918%_) + (cons _%e113935%_ '()))))) + (if (macro-error-exception? _%exn113933%_) + (macro-error-exception-message _%exn113933%_) (error '"not an instance" 'error-exception? (cons 'error-exception-message - (cons _%exn110918%_ '()))))))) + (cons _%exn113933%_ '()))))))) (define error-exception-parameters - (lambda (_%exn110912%_) + (lambda (_%exn113927%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110912%_)) - (let ((_%e110915%_ + (class-instance? RuntimeException::t _%exn113927%_)) + (let ((_%e113930%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110912%_ 'exception)))) - (if (macro-error-exception? _%e110915%_) - (macro-error-exception-parameters _%e110915%_) + (unchecked-slot-ref _%exn113927%_ 'exception)))) + (if (macro-error-exception? _%e113930%_) + (macro-error-exception-parameters _%e113930%_) (error '"not an instance" 'error-exception? (cons 'error-exception-parameters - (cons _%e110915%_ '()))))) - (if (macro-error-exception? _%exn110912%_) - (macro-error-exception-parameters _%exn110912%_) + (cons _%e113930%_ '()))))) + (if (macro-error-exception? _%exn113927%_) + (macro-error-exception-parameters _%exn113927%_) (error '"not an instance" 'error-exception? (cons 'error-exception-parameters - (cons _%exn110912%_ '()))))))) + (cons _%exn113927%_ '()))))))) (define expression-parsing-exception? - (lambda (_%exn110908%_) + (lambda (_%exn113923%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110908%_)) - (let ((_%e110910%_ + (class-instance? RuntimeException::t _%exn113923%_)) + (let ((_%e113925%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110908%_ 'exception)))) - (macro-expression-parsing-exception? _%e110910%_)) - (macro-expression-parsing-exception? _%exn110908%_)))) + (unchecked-slot-ref _%exn113923%_ 'exception)))) + (macro-expression-parsing-exception? _%e113925%_)) + (macro-expression-parsing-exception? _%exn113923%_)))) (define expression-parsing-exception-kind - (lambda (_%exn110904%_) + (lambda (_%exn113919%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110904%_)) - (let ((_%e110906%_ + (class-instance? RuntimeException::t _%exn113919%_)) + (let ((_%e113921%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110904%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e110906%_) - (macro-expression-parsing-exception-kind _%e110906%_) + (unchecked-slot-ref _%exn113919%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e113921%_) + (macro-expression-parsing-exception-kind _%e113921%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-kind - (cons _%e110906%_ '()))))) - (if (macro-expression-parsing-exception? _%exn110904%_) - (macro-expression-parsing-exception-kind _%exn110904%_) + (cons _%e113921%_ '()))))) + (if (macro-expression-parsing-exception? _%exn113919%_) + (macro-expression-parsing-exception-kind _%exn113919%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-kind - (cons _%exn110904%_ '()))))))) + (cons _%exn113919%_ '()))))))) (define expression-parsing-exception-parameters - (lambda (_%exn110900%_) + (lambda (_%exn113915%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110900%_)) - (let ((_%e110902%_ + (class-instance? RuntimeException::t _%exn113915%_)) + (let ((_%e113917%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110900%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e110902%_) - (macro-expression-parsing-exception-parameters _%e110902%_) + (unchecked-slot-ref _%exn113915%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e113917%_) + (macro-expression-parsing-exception-parameters _%e113917%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-parameters - (cons _%e110902%_ '()))))) - (if (macro-expression-parsing-exception? _%exn110900%_) - (macro-expression-parsing-exception-parameters _%exn110900%_) + (cons _%e113917%_ '()))))) + (if (macro-expression-parsing-exception? _%exn113915%_) + (macro-expression-parsing-exception-parameters _%exn113915%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-parameters - (cons _%exn110900%_ '()))))))) + (cons _%exn113915%_ '()))))))) (define expression-parsing-exception-source - (lambda (_%exn110894%_) + (lambda (_%exn113909%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110894%_)) - (let ((_%e110897%_ + (class-instance? RuntimeException::t _%exn113909%_)) + (let ((_%e113912%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110894%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e110897%_) - (macro-expression-parsing-exception-source _%e110897%_) + (unchecked-slot-ref _%exn113909%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e113912%_) + (macro-expression-parsing-exception-source _%e113912%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-source - (cons _%e110897%_ '()))))) - (if (macro-expression-parsing-exception? _%exn110894%_) - (macro-expression-parsing-exception-source _%exn110894%_) + (cons _%e113912%_ '()))))) + (if (macro-expression-parsing-exception? _%exn113909%_) + (macro-expression-parsing-exception-source _%exn113909%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-source - (cons _%exn110894%_ '()))))))) + (cons _%exn113909%_ '()))))))) (define file-exists-exception? - (lambda (_%exn110890%_) + (lambda (_%exn113905%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110890%_)) - (let ((_%e110892%_ + (class-instance? RuntimeException::t _%exn113905%_)) + (let ((_%e113907%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110890%_ 'exception)))) - (macro-file-exists-exception? _%e110892%_)) - (macro-file-exists-exception? _%exn110890%_)))) + (unchecked-slot-ref _%exn113905%_ 'exception)))) + (macro-file-exists-exception? _%e113907%_)) + (macro-file-exists-exception? _%exn113905%_)))) (define file-exists-exception-arguments - (lambda (_%exn110886%_) + (lambda (_%exn113901%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110886%_)) - (let ((_%e110888%_ + (class-instance? RuntimeException::t _%exn113901%_)) + (let ((_%e113903%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110886%_ 'exception)))) - (if (macro-file-exists-exception? _%e110888%_) - (macro-file-exists-exception-arguments _%e110888%_) + (unchecked-slot-ref _%exn113901%_ 'exception)))) + (if (macro-file-exists-exception? _%e113903%_) + (macro-file-exists-exception-arguments _%e113903%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-arguments - (cons _%e110888%_ '()))))) - (if (macro-file-exists-exception? _%exn110886%_) - (macro-file-exists-exception-arguments _%exn110886%_) + (cons _%e113903%_ '()))))) + (if (macro-file-exists-exception? _%exn113901%_) + (macro-file-exists-exception-arguments _%exn113901%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-arguments - (cons _%exn110886%_ '()))))))) + (cons _%exn113901%_ '()))))))) (define file-exists-exception-procedure - (lambda (_%exn110880%_) + (lambda (_%exn113895%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110880%_)) - (let ((_%e110883%_ + (class-instance? RuntimeException::t _%exn113895%_)) + (let ((_%e113898%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110880%_ 'exception)))) - (if (macro-file-exists-exception? _%e110883%_) - (macro-file-exists-exception-procedure _%e110883%_) + (unchecked-slot-ref _%exn113895%_ 'exception)))) + (if (macro-file-exists-exception? _%e113898%_) + (macro-file-exists-exception-procedure _%e113898%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-procedure - (cons _%e110883%_ '()))))) - (if (macro-file-exists-exception? _%exn110880%_) - (macro-file-exists-exception-procedure _%exn110880%_) + (cons _%e113898%_ '()))))) + (if (macro-file-exists-exception? _%exn113895%_) + (macro-file-exists-exception-procedure _%exn113895%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-procedure - (cons _%exn110880%_ '()))))))) + (cons _%exn113895%_ '()))))))) (define fixnum-overflow-exception? - (lambda (_%exn110876%_) + (lambda (_%exn113891%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110876%_)) - (let ((_%e110878%_ + (class-instance? RuntimeException::t _%exn113891%_)) + (let ((_%e113893%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110876%_ 'exception)))) - (macro-fixnum-overflow-exception? _%e110878%_)) - (macro-fixnum-overflow-exception? _%exn110876%_)))) + (unchecked-slot-ref _%exn113891%_ 'exception)))) + (macro-fixnum-overflow-exception? _%e113893%_)) + (macro-fixnum-overflow-exception? _%exn113891%_)))) (define fixnum-overflow-exception-arguments - (lambda (_%exn110872%_) + (lambda (_%exn113887%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110872%_)) - (let ((_%e110874%_ + (class-instance? RuntimeException::t _%exn113887%_)) + (let ((_%e113889%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110872%_ 'exception)))) - (if (macro-fixnum-overflow-exception? _%e110874%_) - (macro-fixnum-overflow-exception-arguments _%e110874%_) + (unchecked-slot-ref _%exn113887%_ 'exception)))) + (if (macro-fixnum-overflow-exception? _%e113889%_) + (macro-fixnum-overflow-exception-arguments _%e113889%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-arguments - (cons _%e110874%_ '()))))) - (if (macro-fixnum-overflow-exception? _%exn110872%_) - (macro-fixnum-overflow-exception-arguments _%exn110872%_) + (cons _%e113889%_ '()))))) + (if (macro-fixnum-overflow-exception? _%exn113887%_) + (macro-fixnum-overflow-exception-arguments _%exn113887%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-arguments - (cons _%exn110872%_ '()))))))) + (cons _%exn113887%_ '()))))))) (define fixnum-overflow-exception-procedure - (lambda (_%exn110866%_) + (lambda (_%exn113881%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110866%_)) - (let ((_%e110869%_ + (class-instance? RuntimeException::t _%exn113881%_)) + (let ((_%e113884%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110866%_ 'exception)))) - (if (macro-fixnum-overflow-exception? _%e110869%_) - (macro-fixnum-overflow-exception-procedure _%e110869%_) + (unchecked-slot-ref _%exn113881%_ 'exception)))) + (if (macro-fixnum-overflow-exception? _%e113884%_) + (macro-fixnum-overflow-exception-procedure _%e113884%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-procedure - (cons _%e110869%_ '()))))) - (if (macro-fixnum-overflow-exception? _%exn110866%_) - (macro-fixnum-overflow-exception-procedure _%exn110866%_) + (cons _%e113884%_ '()))))) + (if (macro-fixnum-overflow-exception? _%exn113881%_) + (macro-fixnum-overflow-exception-procedure _%exn113881%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-procedure - (cons _%exn110866%_ '()))))))) + (cons _%exn113881%_ '()))))))) (define heap-overflow-exception? - (lambda (_%exn110860%_) + (lambda (_%exn113875%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110860%_)) - (let ((_%e110863%_ + (class-instance? RuntimeException::t _%exn113875%_)) + (let ((_%e113878%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110860%_ 'exception)))) - (macro-heap-overflow-exception? _%e110863%_)) - (macro-heap-overflow-exception? _%exn110860%_)))) + (unchecked-slot-ref _%exn113875%_ 'exception)))) + (macro-heap-overflow-exception? _%e113878%_)) + (macro-heap-overflow-exception? _%exn113875%_)))) (define inactive-thread-exception? - (lambda (_%exn110856%_) + (lambda (_%exn113871%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110856%_)) - (let ((_%e110858%_ + (class-instance? RuntimeException::t _%exn113871%_)) + (let ((_%e113873%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110856%_ 'exception)))) - (macro-inactive-thread-exception? _%e110858%_)) - (macro-inactive-thread-exception? _%exn110856%_)))) + (unchecked-slot-ref _%exn113871%_ 'exception)))) + (macro-inactive-thread-exception? _%e113873%_)) + (macro-inactive-thread-exception? _%exn113871%_)))) (define inactive-thread-exception-arguments - (lambda (_%exn110852%_) + (lambda (_%exn113867%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110852%_)) - (let ((_%e110854%_ + (class-instance? RuntimeException::t _%exn113867%_)) + (let ((_%e113869%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110852%_ 'exception)))) - (if (macro-inactive-thread-exception? _%e110854%_) - (macro-inactive-thread-exception-arguments _%e110854%_) + (unchecked-slot-ref _%exn113867%_ 'exception)))) + (if (macro-inactive-thread-exception? _%e113869%_) + (macro-inactive-thread-exception-arguments _%e113869%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-arguments - (cons _%e110854%_ '()))))) - (if (macro-inactive-thread-exception? _%exn110852%_) - (macro-inactive-thread-exception-arguments _%exn110852%_) + (cons _%e113869%_ '()))))) + (if (macro-inactive-thread-exception? _%exn113867%_) + (macro-inactive-thread-exception-arguments _%exn113867%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-arguments - (cons _%exn110852%_ '()))))))) + (cons _%exn113867%_ '()))))))) (define inactive-thread-exception-procedure - (lambda (_%exn110846%_) + (lambda (_%exn113861%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110846%_)) - (let ((_%e110849%_ + (class-instance? RuntimeException::t _%exn113861%_)) + (let ((_%e113864%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110846%_ 'exception)))) - (if (macro-inactive-thread-exception? _%e110849%_) - (macro-inactive-thread-exception-procedure _%e110849%_) + (unchecked-slot-ref _%exn113861%_ 'exception)))) + (if (macro-inactive-thread-exception? _%e113864%_) + (macro-inactive-thread-exception-procedure _%e113864%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-procedure - (cons _%e110849%_ '()))))) - (if (macro-inactive-thread-exception? _%exn110846%_) - (macro-inactive-thread-exception-procedure _%exn110846%_) + (cons _%e113864%_ '()))))) + (if (macro-inactive-thread-exception? _%exn113861%_) + (macro-inactive-thread-exception-procedure _%exn113861%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-procedure - (cons _%exn110846%_ '()))))))) + (cons _%exn113861%_ '()))))))) (define initialized-thread-exception? - (lambda (_%exn110842%_) + (lambda (_%exn113857%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110842%_)) - (let ((_%e110844%_ + (class-instance? RuntimeException::t _%exn113857%_)) + (let ((_%e113859%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110842%_ 'exception)))) - (macro-initialized-thread-exception? _%e110844%_)) - (macro-initialized-thread-exception? _%exn110842%_)))) + (unchecked-slot-ref _%exn113857%_ 'exception)))) + (macro-initialized-thread-exception? _%e113859%_)) + (macro-initialized-thread-exception? _%exn113857%_)))) (define initialized-thread-exception-arguments - (lambda (_%exn110838%_) + (lambda (_%exn113853%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110838%_)) - (let ((_%e110840%_ + (class-instance? RuntimeException::t _%exn113853%_)) + (let ((_%e113855%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110838%_ 'exception)))) - (if (macro-initialized-thread-exception? _%e110840%_) - (macro-initialized-thread-exception-arguments _%e110840%_) + (unchecked-slot-ref _%exn113853%_ 'exception)))) + (if (macro-initialized-thread-exception? _%e113855%_) + (macro-initialized-thread-exception-arguments _%e113855%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-arguments - (cons _%e110840%_ '()))))) - (if (macro-initialized-thread-exception? _%exn110838%_) - (macro-initialized-thread-exception-arguments _%exn110838%_) + (cons _%e113855%_ '()))))) + (if (macro-initialized-thread-exception? _%exn113853%_) + (macro-initialized-thread-exception-arguments _%exn113853%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-arguments - (cons _%exn110838%_ '()))))))) + (cons _%exn113853%_ '()))))))) (define initialized-thread-exception-procedure - (lambda (_%exn110832%_) + (lambda (_%exn113847%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110832%_)) - (let ((_%e110835%_ + (class-instance? RuntimeException::t _%exn113847%_)) + (let ((_%e113850%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110832%_ 'exception)))) - (if (macro-initialized-thread-exception? _%e110835%_) - (macro-initialized-thread-exception-procedure _%e110835%_) + (unchecked-slot-ref _%exn113847%_ 'exception)))) + (if (macro-initialized-thread-exception? _%e113850%_) + (macro-initialized-thread-exception-procedure _%e113850%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-procedure - (cons _%e110835%_ '()))))) - (if (macro-initialized-thread-exception? _%exn110832%_) - (macro-initialized-thread-exception-procedure _%exn110832%_) + (cons _%e113850%_ '()))))) + (if (macro-initialized-thread-exception? _%exn113847%_) + (macro-initialized-thread-exception-procedure _%exn113847%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-procedure - (cons _%exn110832%_ '()))))))) + (cons _%exn113847%_ '()))))))) (define invalid-hash-number-exception? - (lambda (_%exn110828%_) + (lambda (_%exn113843%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110828%_)) - (let ((_%e110830%_ + (class-instance? RuntimeException::t _%exn113843%_)) + (let ((_%e113845%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110828%_ 'exception)))) - (macro-invalid-hash-number-exception? _%e110830%_)) - (macro-invalid-hash-number-exception? _%exn110828%_)))) + (unchecked-slot-ref _%exn113843%_ 'exception)))) + (macro-invalid-hash-number-exception? _%e113845%_)) + (macro-invalid-hash-number-exception? _%exn113843%_)))) (define invalid-hash-number-exception-arguments - (lambda (_%exn110824%_) + (lambda (_%exn113839%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110824%_)) - (let ((_%e110826%_ + (class-instance? RuntimeException::t _%exn113839%_)) + (let ((_%e113841%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110824%_ 'exception)))) - (if (macro-invalid-hash-number-exception? _%e110826%_) - (macro-invalid-hash-number-exception-arguments _%e110826%_) + (unchecked-slot-ref _%exn113839%_ 'exception)))) + (if (macro-invalid-hash-number-exception? _%e113841%_) + (macro-invalid-hash-number-exception-arguments _%e113841%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-arguments - (cons _%e110826%_ '()))))) - (if (macro-invalid-hash-number-exception? _%exn110824%_) - (macro-invalid-hash-number-exception-arguments _%exn110824%_) + (cons _%e113841%_ '()))))) + (if (macro-invalid-hash-number-exception? _%exn113839%_) + (macro-invalid-hash-number-exception-arguments _%exn113839%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-arguments - (cons _%exn110824%_ '()))))))) + (cons _%exn113839%_ '()))))))) (define invalid-hash-number-exception-procedure - (lambda (_%exn110818%_) + (lambda (_%exn113833%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110818%_)) - (let ((_%e110821%_ + (class-instance? RuntimeException::t _%exn113833%_)) + (let ((_%e113836%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110818%_ 'exception)))) - (if (macro-invalid-hash-number-exception? _%e110821%_) - (macro-invalid-hash-number-exception-procedure _%e110821%_) + (unchecked-slot-ref _%exn113833%_ 'exception)))) + (if (macro-invalid-hash-number-exception? _%e113836%_) + (macro-invalid-hash-number-exception-procedure _%e113836%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-procedure - (cons _%e110821%_ '()))))) - (if (macro-invalid-hash-number-exception? _%exn110818%_) - (macro-invalid-hash-number-exception-procedure _%exn110818%_) + (cons _%e113836%_ '()))))) + (if (macro-invalid-hash-number-exception? _%exn113833%_) + (macro-invalid-hash-number-exception-procedure _%exn113833%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-procedure - (cons _%exn110818%_ '()))))))) + (cons _%exn113833%_ '()))))))) (define invalid-utf8-encoding-exception? - (lambda (_%exn110814%_) + (lambda (_%exn113829%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110814%_)) - (let ((_%e110816%_ + (class-instance? RuntimeException::t _%exn113829%_)) + (let ((_%e113831%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110814%_ 'exception)))) - (macro-invalid-utf8-encoding-exception? _%e110816%_)) - (macro-invalid-utf8-encoding-exception? _%exn110814%_)))) + (unchecked-slot-ref _%exn113829%_ 'exception)))) + (macro-invalid-utf8-encoding-exception? _%e113831%_)) + (macro-invalid-utf8-encoding-exception? _%exn113829%_)))) (define invalid-utf8-encoding-exception-arguments - (lambda (_%exn110810%_) + (lambda (_%exn113825%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110810%_)) - (let ((_%e110812%_ + (class-instance? RuntimeException::t _%exn113825%_)) + (let ((_%e113827%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110810%_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _%e110812%_) - (macro-invalid-utf8-encoding-exception-arguments _%e110812%_) + (unchecked-slot-ref _%exn113825%_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _%e113827%_) + (macro-invalid-utf8-encoding-exception-arguments _%e113827%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-arguments - (cons _%e110812%_ '()))))) - (if (macro-invalid-utf8-encoding-exception? _%exn110810%_) - (macro-invalid-utf8-encoding-exception-arguments _%exn110810%_) + (cons _%e113827%_ '()))))) + (if (macro-invalid-utf8-encoding-exception? _%exn113825%_) + (macro-invalid-utf8-encoding-exception-arguments _%exn113825%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-arguments - (cons _%exn110810%_ '()))))))) + (cons _%exn113825%_ '()))))))) (define invalid-utf8-encoding-exception-procedure - (lambda (_%exn110804%_) + (lambda (_%exn113819%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110804%_)) - (let ((_%e110807%_ + (class-instance? RuntimeException::t _%exn113819%_)) + (let ((_%e113822%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110804%_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _%e110807%_) - (macro-invalid-utf8-encoding-exception-procedure _%e110807%_) + (unchecked-slot-ref _%exn113819%_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _%e113822%_) + (macro-invalid-utf8-encoding-exception-procedure _%e113822%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-procedure - (cons _%e110807%_ '()))))) - (if (macro-invalid-utf8-encoding-exception? _%exn110804%_) - (macro-invalid-utf8-encoding-exception-procedure _%exn110804%_) + (cons _%e113822%_ '()))))) + (if (macro-invalid-utf8-encoding-exception? _%exn113819%_) + (macro-invalid-utf8-encoding-exception-procedure _%exn113819%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-procedure - (cons _%exn110804%_ '()))))))) + (cons _%exn113819%_ '()))))))) (define join-timeout-exception? - (lambda (_%exn110800%_) + (lambda (_%exn113815%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110800%_)) - (let ((_%e110802%_ + (class-instance? RuntimeException::t _%exn113815%_)) + (let ((_%e113817%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110800%_ 'exception)))) - (macro-join-timeout-exception? _%e110802%_)) - (macro-join-timeout-exception? _%exn110800%_)))) + (unchecked-slot-ref _%exn113815%_ 'exception)))) + (macro-join-timeout-exception? _%e113817%_)) + (macro-join-timeout-exception? _%exn113815%_)))) (define join-timeout-exception-arguments - (lambda (_%exn110796%_) + (lambda (_%exn113811%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110796%_)) - (let ((_%e110798%_ + (class-instance? RuntimeException::t _%exn113811%_)) + (let ((_%e113813%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110796%_ 'exception)))) - (if (macro-join-timeout-exception? _%e110798%_) - (macro-join-timeout-exception-arguments _%e110798%_) + (unchecked-slot-ref _%exn113811%_ 'exception)))) + (if (macro-join-timeout-exception? _%e113813%_) + (macro-join-timeout-exception-arguments _%e113813%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-arguments - (cons _%e110798%_ '()))))) - (if (macro-join-timeout-exception? _%exn110796%_) - (macro-join-timeout-exception-arguments _%exn110796%_) + (cons _%e113813%_ '()))))) + (if (macro-join-timeout-exception? _%exn113811%_) + (macro-join-timeout-exception-arguments _%exn113811%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-arguments - (cons _%exn110796%_ '()))))))) + (cons _%exn113811%_ '()))))))) (define join-timeout-exception-procedure - (lambda (_%exn110790%_) + (lambda (_%exn113805%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110790%_)) - (let ((_%e110793%_ + (class-instance? RuntimeException::t _%exn113805%_)) + (let ((_%e113808%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110790%_ 'exception)))) - (if (macro-join-timeout-exception? _%e110793%_) - (macro-join-timeout-exception-procedure _%e110793%_) + (unchecked-slot-ref _%exn113805%_ 'exception)))) + (if (macro-join-timeout-exception? _%e113808%_) + (macro-join-timeout-exception-procedure _%e113808%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-procedure - (cons _%e110793%_ '()))))) - (if (macro-join-timeout-exception? _%exn110790%_) - (macro-join-timeout-exception-procedure _%exn110790%_) + (cons _%e113808%_ '()))))) + (if (macro-join-timeout-exception? _%exn113805%_) + (macro-join-timeout-exception-procedure _%exn113805%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-procedure - (cons _%exn110790%_ '()))))))) + (cons _%exn113805%_ '()))))))) (define keyword-expected-exception? - (lambda (_%exn110786%_) + (lambda (_%exn113801%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110786%_)) - (let ((_%e110788%_ + (class-instance? RuntimeException::t _%exn113801%_)) + (let ((_%e113803%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110786%_ 'exception)))) - (macro-keyword-expected-exception? _%e110788%_)) - (macro-keyword-expected-exception? _%exn110786%_)))) + (unchecked-slot-ref _%exn113801%_ 'exception)))) + (macro-keyword-expected-exception? _%e113803%_)) + (macro-keyword-expected-exception? _%exn113801%_)))) (define keyword-expected-exception-arguments - (lambda (_%exn110782%_) + (lambda (_%exn113797%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110782%_)) - (let ((_%e110784%_ + (class-instance? RuntimeException::t _%exn113797%_)) + (let ((_%e113799%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110782%_ 'exception)))) - (if (macro-keyword-expected-exception? _%e110784%_) - (macro-keyword-expected-exception-arguments _%e110784%_) + (unchecked-slot-ref _%exn113797%_ 'exception)))) + (if (macro-keyword-expected-exception? _%e113799%_) + (macro-keyword-expected-exception-arguments _%e113799%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-arguments - (cons _%e110784%_ '()))))) - (if (macro-keyword-expected-exception? _%exn110782%_) - (macro-keyword-expected-exception-arguments _%exn110782%_) + (cons _%e113799%_ '()))))) + (if (macro-keyword-expected-exception? _%exn113797%_) + (macro-keyword-expected-exception-arguments _%exn113797%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-arguments - (cons _%exn110782%_ '()))))))) + (cons _%exn113797%_ '()))))))) (define keyword-expected-exception-procedure - (lambda (_%exn110776%_) + (lambda (_%exn113791%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110776%_)) - (let ((_%e110779%_ + (class-instance? RuntimeException::t _%exn113791%_)) + (let ((_%e113794%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110776%_ 'exception)))) - (if (macro-keyword-expected-exception? _%e110779%_) - (macro-keyword-expected-exception-procedure _%e110779%_) + (unchecked-slot-ref _%exn113791%_ 'exception)))) + (if (macro-keyword-expected-exception? _%e113794%_) + (macro-keyword-expected-exception-procedure _%e113794%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-procedure - (cons _%e110779%_ '()))))) - (if (macro-keyword-expected-exception? _%exn110776%_) - (macro-keyword-expected-exception-procedure _%exn110776%_) + (cons _%e113794%_ '()))))) + (if (macro-keyword-expected-exception? _%exn113791%_) + (macro-keyword-expected-exception-procedure _%exn113791%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-procedure - (cons _%exn110776%_ '()))))))) + (cons _%exn113791%_ '()))))))) (define length-mismatch-exception? - (lambda (_%exn110772%_) + (lambda (_%exn113787%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110772%_)) - (let ((_%e110774%_ + (class-instance? RuntimeException::t _%exn113787%_)) + (let ((_%e113789%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110772%_ 'exception)))) - (macro-length-mismatch-exception? _%e110774%_)) - (macro-length-mismatch-exception? _%exn110772%_)))) + (unchecked-slot-ref _%exn113787%_ 'exception)))) + (macro-length-mismatch-exception? _%e113789%_)) + (macro-length-mismatch-exception? _%exn113787%_)))) (define length-mismatch-exception-arg-id - (lambda (_%exn110768%_) + (lambda (_%exn113783%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110768%_)) - (let ((_%e110770%_ + (class-instance? RuntimeException::t _%exn113783%_)) + (let ((_%e113785%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110768%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e110770%_) - (macro-length-mismatch-exception-arg-id _%e110770%_) + (unchecked-slot-ref _%exn113783%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e113785%_) + (macro-length-mismatch-exception-arg-id _%e113785%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arg-id - (cons _%e110770%_ '()))))) - (if (macro-length-mismatch-exception? _%exn110768%_) - (macro-length-mismatch-exception-arg-id _%exn110768%_) + (cons _%e113785%_ '()))))) + (if (macro-length-mismatch-exception? _%exn113783%_) + (macro-length-mismatch-exception-arg-id _%exn113783%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arg-id - (cons _%exn110768%_ '()))))))) + (cons _%exn113783%_ '()))))))) (define length-mismatch-exception-arguments - (lambda (_%exn110764%_) + (lambda (_%exn113779%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110764%_)) - (let ((_%e110766%_ + (class-instance? RuntimeException::t _%exn113779%_)) + (let ((_%e113781%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110764%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e110766%_) - (macro-length-mismatch-exception-arguments _%e110766%_) + (unchecked-slot-ref _%exn113779%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e113781%_) + (macro-length-mismatch-exception-arguments _%e113781%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arguments - (cons _%e110766%_ '()))))) - (if (macro-length-mismatch-exception? _%exn110764%_) - (macro-length-mismatch-exception-arguments _%exn110764%_) + (cons _%e113781%_ '()))))) + (if (macro-length-mismatch-exception? _%exn113779%_) + (macro-length-mismatch-exception-arguments _%exn113779%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arguments - (cons _%exn110764%_ '()))))))) + (cons _%exn113779%_ '()))))))) (define length-mismatch-exception-procedure - (lambda (_%exn110758%_) + (lambda (_%exn113773%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110758%_)) - (let ((_%e110761%_ + (class-instance? RuntimeException::t _%exn113773%_)) + (let ((_%e113776%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110758%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e110761%_) - (macro-length-mismatch-exception-procedure _%e110761%_) + (unchecked-slot-ref _%exn113773%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e113776%_) + (macro-length-mismatch-exception-procedure _%e113776%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-procedure - (cons _%e110761%_ '()))))) - (if (macro-length-mismatch-exception? _%exn110758%_) - (macro-length-mismatch-exception-procedure _%exn110758%_) + (cons _%e113776%_ '()))))) + (if (macro-length-mismatch-exception? _%exn113773%_) + (macro-length-mismatch-exception-procedure _%exn113773%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-procedure - (cons _%exn110758%_ '()))))))) + (cons _%exn113773%_ '()))))))) (define mailbox-receive-timeout-exception? - (lambda (_%exn110754%_) + (lambda (_%exn113769%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110754%_)) - (let ((_%e110756%_ + (class-instance? RuntimeException::t _%exn113769%_)) + (let ((_%e113771%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110754%_ 'exception)))) - (macro-mailbox-receive-timeout-exception? _%e110756%_)) - (macro-mailbox-receive-timeout-exception? _%exn110754%_)))) + (unchecked-slot-ref _%exn113769%_ 'exception)))) + (macro-mailbox-receive-timeout-exception? _%e113771%_)) + (macro-mailbox-receive-timeout-exception? _%exn113769%_)))) (define mailbox-receive-timeout-exception-arguments - (lambda (_%exn110750%_) + (lambda (_%exn113765%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110750%_)) - (let ((_%e110752%_ + (class-instance? RuntimeException::t _%exn113765%_)) + (let ((_%e113767%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110750%_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _%e110752%_) + (unchecked-slot-ref _%exn113765%_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _%e113767%_) (macro-mailbox-receive-timeout-exception-arguments - _%e110752%_) + _%e113767%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-arguments - (cons _%e110752%_ '()))))) - (if (macro-mailbox-receive-timeout-exception? _%exn110750%_) + (cons _%e113767%_ '()))))) + (if (macro-mailbox-receive-timeout-exception? _%exn113765%_) (macro-mailbox-receive-timeout-exception-arguments - _%exn110750%_) + _%exn113765%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-arguments - (cons _%exn110750%_ '()))))))) + (cons _%exn113765%_ '()))))))) (define mailbox-receive-timeout-exception-procedure - (lambda (_%exn110744%_) + (lambda (_%exn113759%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110744%_)) - (let ((_%e110747%_ + (class-instance? RuntimeException::t _%exn113759%_)) + (let ((_%e113762%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110744%_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _%e110747%_) + (unchecked-slot-ref _%exn113759%_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _%e113762%_) (macro-mailbox-receive-timeout-exception-procedure - _%e110747%_) + _%e113762%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-procedure - (cons _%e110747%_ '()))))) - (if (macro-mailbox-receive-timeout-exception? _%exn110744%_) + (cons _%e113762%_ '()))))) + (if (macro-mailbox-receive-timeout-exception? _%exn113759%_) (macro-mailbox-receive-timeout-exception-procedure - _%exn110744%_) + _%exn113759%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-procedure - (cons _%exn110744%_ '()))))))) + (cons _%exn113759%_ '()))))))) (define module-not-found-exception? - (lambda (_%exn110740%_) + (lambda (_%exn113755%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110740%_)) - (let ((_%e110742%_ + (class-instance? RuntimeException::t _%exn113755%_)) + (let ((_%e113757%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110740%_ 'exception)))) - (macro-module-not-found-exception? _%e110742%_)) - (macro-module-not-found-exception? _%exn110740%_)))) + (unchecked-slot-ref _%exn113755%_ 'exception)))) + (macro-module-not-found-exception? _%e113757%_)) + (macro-module-not-found-exception? _%exn113755%_)))) (define module-not-found-exception-arguments - (lambda (_%exn110736%_) + (lambda (_%exn113751%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110736%_)) - (let ((_%e110738%_ + (class-instance? RuntimeException::t _%exn113751%_)) + (let ((_%e113753%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110736%_ 'exception)))) - (if (macro-module-not-found-exception? _%e110738%_) - (macro-module-not-found-exception-arguments _%e110738%_) + (unchecked-slot-ref _%exn113751%_ 'exception)))) + (if (macro-module-not-found-exception? _%e113753%_) + (macro-module-not-found-exception-arguments _%e113753%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-arguments - (cons _%e110738%_ '()))))) - (if (macro-module-not-found-exception? _%exn110736%_) - (macro-module-not-found-exception-arguments _%exn110736%_) + (cons _%e113753%_ '()))))) + (if (macro-module-not-found-exception? _%exn113751%_) + (macro-module-not-found-exception-arguments _%exn113751%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-arguments - (cons _%exn110736%_ '()))))))) + (cons _%exn113751%_ '()))))))) (define module-not-found-exception-procedure - (lambda (_%exn110730%_) + (lambda (_%exn113745%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110730%_)) - (let ((_%e110733%_ + (class-instance? RuntimeException::t _%exn113745%_)) + (let ((_%e113748%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110730%_ 'exception)))) - (if (macro-module-not-found-exception? _%e110733%_) - (macro-module-not-found-exception-procedure _%e110733%_) + (unchecked-slot-ref _%exn113745%_ 'exception)))) + (if (macro-module-not-found-exception? _%e113748%_) + (macro-module-not-found-exception-procedure _%e113748%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-procedure - (cons _%e110733%_ '()))))) - (if (macro-module-not-found-exception? _%exn110730%_) - (macro-module-not-found-exception-procedure _%exn110730%_) + (cons _%e113748%_ '()))))) + (if (macro-module-not-found-exception? _%exn113745%_) + (macro-module-not-found-exception-procedure _%exn113745%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-procedure - (cons _%exn110730%_ '()))))))) + (cons _%exn113745%_ '()))))))) (define multiple-c-return-exception? - (lambda (_%exn110724%_) + (lambda (_%exn113739%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110724%_)) - (let ((_%e110727%_ + (class-instance? RuntimeException::t _%exn113739%_)) + (let ((_%e113742%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110724%_ 'exception)))) - (macro-multiple-c-return-exception? _%e110727%_)) - (macro-multiple-c-return-exception? _%exn110724%_)))) + (unchecked-slot-ref _%exn113739%_ 'exception)))) + (macro-multiple-c-return-exception? _%e113742%_)) + (macro-multiple-c-return-exception? _%exn113739%_)))) (define no-such-file-or-directory-exception? - (lambda (_%exn110720%_) + (lambda (_%exn113735%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110720%_)) - (let ((_%e110722%_ + (class-instance? RuntimeException::t _%exn113735%_)) + (let ((_%e113737%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110720%_ 'exception)))) - (macro-no-such-file-or-directory-exception? _%e110722%_)) - (macro-no-such-file-or-directory-exception? _%exn110720%_)))) + (unchecked-slot-ref _%exn113735%_ 'exception)))) + (macro-no-such-file-or-directory-exception? _%e113737%_)) + (macro-no-such-file-or-directory-exception? _%exn113735%_)))) (define no-such-file-or-directory-exception-arguments - (lambda (_%exn110716%_) + (lambda (_%exn113731%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110716%_)) - (let ((_%e110718%_ + (class-instance? RuntimeException::t _%exn113731%_)) + (let ((_%e113733%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110716%_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _%e110718%_) + (unchecked-slot-ref _%exn113731%_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _%e113733%_) (macro-no-such-file-or-directory-exception-arguments - _%e110718%_) + _%e113733%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-arguments - (cons _%e110718%_ '()))))) - (if (macro-no-such-file-or-directory-exception? _%exn110716%_) + (cons _%e113733%_ '()))))) + (if (macro-no-such-file-or-directory-exception? _%exn113731%_) (macro-no-such-file-or-directory-exception-arguments - _%exn110716%_) + _%exn113731%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-arguments - (cons _%exn110716%_ '()))))))) + (cons _%exn113731%_ '()))))))) (define no-such-file-or-directory-exception-procedure - (lambda (_%exn110710%_) + (lambda (_%exn113725%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110710%_)) - (let ((_%e110713%_ + (class-instance? RuntimeException::t _%exn113725%_)) + (let ((_%e113728%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110710%_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _%e110713%_) + (unchecked-slot-ref _%exn113725%_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _%e113728%_) (macro-no-such-file-or-directory-exception-procedure - _%e110713%_) + _%e113728%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-procedure - (cons _%e110713%_ '()))))) - (if (macro-no-such-file-or-directory-exception? _%exn110710%_) + (cons _%e113728%_ '()))))) + (if (macro-no-such-file-or-directory-exception? _%exn113725%_) (macro-no-such-file-or-directory-exception-procedure - _%exn110710%_) + _%exn113725%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-procedure - (cons _%exn110710%_ '()))))))) + (cons _%exn113725%_ '()))))))) (define noncontinuable-exception? - (lambda (_%exn110706%_) + (lambda (_%exn113721%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110706%_)) - (let ((_%e110708%_ + (class-instance? RuntimeException::t _%exn113721%_)) + (let ((_%e113723%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110706%_ 'exception)))) - (macro-noncontinuable-exception? _%e110708%_)) - (macro-noncontinuable-exception? _%exn110706%_)))) + (unchecked-slot-ref _%exn113721%_ 'exception)))) + (macro-noncontinuable-exception? _%e113723%_)) + (macro-noncontinuable-exception? _%exn113721%_)))) (define noncontinuable-exception-reason - (lambda (_%exn110700%_) + (lambda (_%exn113715%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110700%_)) - (let ((_%e110703%_ + (class-instance? RuntimeException::t _%exn113715%_)) + (let ((_%e113718%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110700%_ 'exception)))) - (if (macro-noncontinuable-exception? _%e110703%_) - (macro-noncontinuable-exception-reason _%e110703%_) + (unchecked-slot-ref _%exn113715%_ 'exception)))) + (if (macro-noncontinuable-exception? _%e113718%_) + (macro-noncontinuable-exception-reason _%e113718%_) (error '"not an instance" 'noncontinuable-exception? (cons 'noncontinuable-exception-reason - (cons _%e110703%_ '()))))) - (if (macro-noncontinuable-exception? _%exn110700%_) - (macro-noncontinuable-exception-reason _%exn110700%_) + (cons _%e113718%_ '()))))) + (if (macro-noncontinuable-exception? _%exn113715%_) + (macro-noncontinuable-exception-reason _%exn113715%_) (error '"not an instance" 'noncontinuable-exception? (cons 'noncontinuable-exception-reason - (cons _%exn110700%_ '()))))))) + (cons _%exn113715%_ '()))))))) (define nonempty-input-port-character-buffer-exception? - (lambda (_%exn110696%_) + (lambda (_%exn113711%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110696%_)) - (let ((_%e110698%_ + (class-instance? RuntimeException::t _%exn113711%_)) + (let ((_%e113713%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110696%_ 'exception)))) + (unchecked-slot-ref _%exn113711%_ 'exception)))) (macro-nonempty-input-port-character-buffer-exception? - _%e110698%_)) + _%e113713%_)) (macro-nonempty-input-port-character-buffer-exception? - _%exn110696%_)))) + _%exn113711%_)))) (define nonempty-input-port-character-buffer-exception-arguments - (lambda (_%exn110692%_) + (lambda (_%exn113707%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110692%_)) - (let ((_%e110694%_ + (class-instance? RuntimeException::t _%exn113707%_)) + (let ((_%e113709%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110692%_ 'exception)))) + (unchecked-slot-ref _%exn113707%_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _%e110694%_) + _%e113709%_) (macro-nonempty-input-port-character-buffer-exception-arguments - _%e110694%_) + _%e113709%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-arguments - (cons _%e110694%_ '()))))) + (cons _%e113709%_ '()))))) (if (macro-nonempty-input-port-character-buffer-exception? - _%exn110692%_) + _%exn113707%_) (macro-nonempty-input-port-character-buffer-exception-arguments - _%exn110692%_) + _%exn113707%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-arguments - (cons _%exn110692%_ '()))))))) + (cons _%exn113707%_ '()))))))) (define nonempty-input-port-character-buffer-exception-procedure - (lambda (_%exn110686%_) + (lambda (_%exn113701%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110686%_)) - (let ((_%e110689%_ + (class-instance? RuntimeException::t _%exn113701%_)) + (let ((_%e113704%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110686%_ 'exception)))) + (unchecked-slot-ref _%exn113701%_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _%e110689%_) + _%e113704%_) (macro-nonempty-input-port-character-buffer-exception-procedure - _%e110689%_) + _%e113704%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-procedure - (cons _%e110689%_ '()))))) + (cons _%e113704%_ '()))))) (if (macro-nonempty-input-port-character-buffer-exception? - _%exn110686%_) + _%exn113701%_) (macro-nonempty-input-port-character-buffer-exception-procedure - _%exn110686%_) + _%exn113701%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-procedure - (cons _%exn110686%_ '()))))))) + (cons _%exn113701%_ '()))))))) (define nonprocedure-operator-exception? - (lambda (_%exn110682%_) + (lambda (_%exn113697%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110682%_)) - (let ((_%e110684%_ + (class-instance? RuntimeException::t _%exn113697%_)) + (let ((_%e113699%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110682%_ 'exception)))) - (macro-nonprocedure-operator-exception? _%e110684%_)) - (macro-nonprocedure-operator-exception? _%exn110682%_)))) + (unchecked-slot-ref _%exn113697%_ 'exception)))) + (macro-nonprocedure-operator-exception? _%e113699%_)) + (macro-nonprocedure-operator-exception? _%exn113697%_)))) (define nonprocedure-operator-exception-arguments - (lambda (_%exn110678%_) + (lambda (_%exn113693%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110678%_)) - (let ((_%e110680%_ + (class-instance? RuntimeException::t _%exn113693%_)) + (let ((_%e113695%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110678%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e110680%_) - (macro-nonprocedure-operator-exception-arguments _%e110680%_) + (unchecked-slot-ref _%exn113693%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e113695%_) + (macro-nonprocedure-operator-exception-arguments _%e113695%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-arguments - (cons _%e110680%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn110678%_) - (macro-nonprocedure-operator-exception-arguments _%exn110678%_) + (cons _%e113695%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn113693%_) + (macro-nonprocedure-operator-exception-arguments _%exn113693%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-arguments - (cons _%exn110678%_ '()))))))) + (cons _%exn113693%_ '()))))))) (define nonprocedure-operator-exception-code - (lambda (_%exn110674%_) + (lambda (_%exn113689%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110674%_)) - (let ((_%e110676%_ + (class-instance? RuntimeException::t _%exn113689%_)) + (let ((_%e113691%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110674%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e110676%_) - (macro-nonprocedure-operator-exception-code _%e110676%_) + (unchecked-slot-ref _%exn113689%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e113691%_) + (macro-nonprocedure-operator-exception-code _%e113691%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-code - (cons _%e110676%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn110674%_) - (macro-nonprocedure-operator-exception-code _%exn110674%_) + (cons _%e113691%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn113689%_) + (macro-nonprocedure-operator-exception-code _%exn113689%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-code - (cons _%exn110674%_ '()))))))) + (cons _%exn113689%_ '()))))))) (define nonprocedure-operator-exception-operator - (lambda (_%exn110670%_) + (lambda (_%exn113685%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110670%_)) - (let ((_%e110672%_ + (class-instance? RuntimeException::t _%exn113685%_)) + (let ((_%e113687%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110670%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e110672%_) - (macro-nonprocedure-operator-exception-operator _%e110672%_) + (unchecked-slot-ref _%exn113685%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e113687%_) + (macro-nonprocedure-operator-exception-operator _%e113687%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-operator - (cons _%e110672%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn110670%_) - (macro-nonprocedure-operator-exception-operator _%exn110670%_) + (cons _%e113687%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn113685%_) + (macro-nonprocedure-operator-exception-operator _%exn113685%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-operator - (cons _%exn110670%_ '()))))))) + (cons _%exn113685%_ '()))))))) (define nonprocedure-operator-exception-rte - (lambda (_%exn110664%_) + (lambda (_%exn113679%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110664%_)) - (let ((_%e110667%_ + (class-instance? RuntimeException::t _%exn113679%_)) + (let ((_%e113682%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110664%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e110667%_) - (macro-nonprocedure-operator-exception-rte _%e110667%_) + (unchecked-slot-ref _%exn113679%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e113682%_) + (macro-nonprocedure-operator-exception-rte _%e113682%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-rte - (cons _%e110667%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn110664%_) - (macro-nonprocedure-operator-exception-rte _%exn110664%_) + (cons _%e113682%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn113679%_) + (macro-nonprocedure-operator-exception-rte _%exn113679%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-rte - (cons _%exn110664%_ '()))))))) + (cons _%exn113679%_ '()))))))) (define not-in-compilation-context-exception? - (lambda (_%exn110660%_) + (lambda (_%exn113675%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110660%_)) - (let ((_%e110662%_ + (class-instance? RuntimeException::t _%exn113675%_)) + (let ((_%e113677%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110660%_ 'exception)))) - (macro-not-in-compilation-context-exception? _%e110662%_)) - (macro-not-in-compilation-context-exception? _%exn110660%_)))) + (unchecked-slot-ref _%exn113675%_ 'exception)))) + (macro-not-in-compilation-context-exception? _%e113677%_)) + (macro-not-in-compilation-context-exception? _%exn113675%_)))) (define not-in-compilation-context-exception-arguments - (lambda (_%exn110656%_) + (lambda (_%exn113671%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110656%_)) - (let ((_%e110658%_ + (class-instance? RuntimeException::t _%exn113671%_)) + (let ((_%e113673%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110656%_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _%e110658%_) + (unchecked-slot-ref _%exn113671%_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _%e113673%_) (macro-not-in-compilation-context-exception-arguments - _%e110658%_) + _%e113673%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-arguments - (cons _%e110658%_ '()))))) - (if (macro-not-in-compilation-context-exception? _%exn110656%_) + (cons _%e113673%_ '()))))) + (if (macro-not-in-compilation-context-exception? _%exn113671%_) (macro-not-in-compilation-context-exception-arguments - _%exn110656%_) + _%exn113671%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-arguments - (cons _%exn110656%_ '()))))))) + (cons _%exn113671%_ '()))))))) (define not-in-compilation-context-exception-procedure - (lambda (_%exn110650%_) + (lambda (_%exn113665%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110650%_)) - (let ((_%e110653%_ + (class-instance? RuntimeException::t _%exn113665%_)) + (let ((_%e113668%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110650%_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _%e110653%_) + (unchecked-slot-ref _%exn113665%_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _%e113668%_) (macro-not-in-compilation-context-exception-procedure - _%e110653%_) + _%e113668%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-procedure - (cons _%e110653%_ '()))))) - (if (macro-not-in-compilation-context-exception? _%exn110650%_) + (cons _%e113668%_ '()))))) + (if (macro-not-in-compilation-context-exception? _%exn113665%_) (macro-not-in-compilation-context-exception-procedure - _%exn110650%_) + _%exn113665%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-procedure - (cons _%exn110650%_ '()))))))) + (cons _%exn113665%_ '()))))))) (define number-of-arguments-limit-exception? - (lambda (_%exn110646%_) + (lambda (_%exn113661%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110646%_)) - (let ((_%e110648%_ + (class-instance? RuntimeException::t _%exn113661%_)) + (let ((_%e113663%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110646%_ 'exception)))) - (macro-number-of-arguments-limit-exception? _%e110648%_)) - (macro-number-of-arguments-limit-exception? _%exn110646%_)))) + (unchecked-slot-ref _%exn113661%_ 'exception)))) + (macro-number-of-arguments-limit-exception? _%e113663%_)) + (macro-number-of-arguments-limit-exception? _%exn113661%_)))) (define number-of-arguments-limit-exception-arguments - (lambda (_%exn110642%_) + (lambda (_%exn113657%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110642%_)) - (let ((_%e110644%_ + (class-instance? RuntimeException::t _%exn113657%_)) + (let ((_%e113659%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110642%_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _%e110644%_) + (unchecked-slot-ref _%exn113657%_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _%e113659%_) (macro-number-of-arguments-limit-exception-arguments - _%e110644%_) + _%e113659%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-arguments - (cons _%e110644%_ '()))))) - (if (macro-number-of-arguments-limit-exception? _%exn110642%_) + (cons _%e113659%_ '()))))) + (if (macro-number-of-arguments-limit-exception? _%exn113657%_) (macro-number-of-arguments-limit-exception-arguments - _%exn110642%_) + _%exn113657%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-arguments - (cons _%exn110642%_ '()))))))) + (cons _%exn113657%_ '()))))))) (define number-of-arguments-limit-exception-procedure - (lambda (_%exn110636%_) + (lambda (_%exn113651%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110636%_)) - (let ((_%e110639%_ + (class-instance? RuntimeException::t _%exn113651%_)) + (let ((_%e113654%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110636%_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _%e110639%_) + (unchecked-slot-ref _%exn113651%_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _%e113654%_) (macro-number-of-arguments-limit-exception-procedure - _%e110639%_) + _%e113654%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-procedure - (cons _%e110639%_ '()))))) - (if (macro-number-of-arguments-limit-exception? _%exn110636%_) + (cons _%e113654%_ '()))))) + (if (macro-number-of-arguments-limit-exception? _%exn113651%_) (macro-number-of-arguments-limit-exception-procedure - _%exn110636%_) + _%exn113651%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-procedure - (cons _%exn110636%_ '()))))))) + (cons _%exn113651%_ '()))))))) (define os-exception? - (lambda (_%exn110632%_) + (lambda (_%exn113647%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110632%_)) - (let ((_%e110634%_ + (class-instance? RuntimeException::t _%exn113647%_)) + (let ((_%e113649%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110632%_ 'exception)))) - (macro-os-exception? _%e110634%_)) - (macro-os-exception? _%exn110632%_)))) + (unchecked-slot-ref _%exn113647%_ 'exception)))) + (macro-os-exception? _%e113649%_)) + (macro-os-exception? _%exn113647%_)))) (define os-exception-arguments - (lambda (_%exn110628%_) + (lambda (_%exn113643%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110628%_)) - (let ((_%e110630%_ + (class-instance? RuntimeException::t _%exn113643%_)) + (let ((_%e113645%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110628%_ 'exception)))) - (if (macro-os-exception? _%e110630%_) - (macro-os-exception-arguments _%e110630%_) + (unchecked-slot-ref _%exn113643%_ 'exception)))) + (if (macro-os-exception? _%e113645%_) + (macro-os-exception-arguments _%e113645%_) (error '"not an instance" 'os-exception? (cons 'os-exception-arguments - (cons _%e110630%_ '()))))) - (if (macro-os-exception? _%exn110628%_) - (macro-os-exception-arguments _%exn110628%_) + (cons _%e113645%_ '()))))) + (if (macro-os-exception? _%exn113643%_) + (macro-os-exception-arguments _%exn113643%_) (error '"not an instance" 'os-exception? (cons 'os-exception-arguments - (cons _%exn110628%_ '()))))))) + (cons _%exn113643%_ '()))))))) (define os-exception-code - (lambda (_%exn110624%_) + (lambda (_%exn113639%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110624%_)) - (let ((_%e110626%_ + (class-instance? RuntimeException::t _%exn113639%_)) + (let ((_%e113641%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110624%_ 'exception)))) - (if (macro-os-exception? _%e110626%_) - (macro-os-exception-code _%e110626%_) + (unchecked-slot-ref _%exn113639%_ 'exception)))) + (if (macro-os-exception? _%e113641%_) + (macro-os-exception-code _%e113641%_) (error '"not an instance" 'os-exception? - (cons 'os-exception-code (cons _%e110626%_ '()))))) - (if (macro-os-exception? _%exn110624%_) - (macro-os-exception-code _%exn110624%_) + (cons 'os-exception-code (cons _%e113641%_ '()))))) + (if (macro-os-exception? _%exn113639%_) + (macro-os-exception-code _%exn113639%_) (error '"not an instance" 'os-exception? - (cons 'os-exception-code (cons _%exn110624%_ '()))))))) + (cons 'os-exception-code (cons _%exn113639%_ '()))))))) (define os-exception-message - (lambda (_%exn110620%_) + (lambda (_%exn113635%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110620%_)) - (let ((_%e110622%_ + (class-instance? RuntimeException::t _%exn113635%_)) + (let ((_%e113637%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110620%_ 'exception)))) - (if (macro-os-exception? _%e110622%_) - (macro-os-exception-message _%e110622%_) + (unchecked-slot-ref _%exn113635%_ 'exception)))) + (if (macro-os-exception? _%e113637%_) + (macro-os-exception-message _%e113637%_) (error '"not an instance" 'os-exception? - (cons 'os-exception-message (cons _%e110622%_ '()))))) - (if (macro-os-exception? _%exn110620%_) - (macro-os-exception-message _%exn110620%_) + (cons 'os-exception-message (cons _%e113637%_ '()))))) + (if (macro-os-exception? _%exn113635%_) + (macro-os-exception-message _%exn113635%_) (error '"not an instance" 'os-exception? (cons 'os-exception-message - (cons _%exn110620%_ '()))))))) + (cons _%exn113635%_ '()))))))) (define os-exception-procedure - (lambda (_%exn110614%_) + (lambda (_%exn113629%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110614%_)) - (let ((_%e110617%_ + (class-instance? RuntimeException::t _%exn113629%_)) + (let ((_%e113632%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110614%_ 'exception)))) - (if (macro-os-exception? _%e110617%_) - (macro-os-exception-procedure _%e110617%_) + (unchecked-slot-ref _%exn113629%_ 'exception)))) + (if (macro-os-exception? _%e113632%_) + (macro-os-exception-procedure _%e113632%_) (error '"not an instance" 'os-exception? (cons 'os-exception-procedure - (cons _%e110617%_ '()))))) - (if (macro-os-exception? _%exn110614%_) - (macro-os-exception-procedure _%exn110614%_) + (cons _%e113632%_ '()))))) + (if (macro-os-exception? _%exn113629%_) + (macro-os-exception-procedure _%exn113629%_) (error '"not an instance" 'os-exception? (cons 'os-exception-procedure - (cons _%exn110614%_ '()))))))) + (cons _%exn113629%_ '()))))))) (define permission-denied-exception? - (lambda (_%exn110610%_) + (lambda (_%exn113625%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110610%_)) - (let ((_%e110612%_ + (class-instance? RuntimeException::t _%exn113625%_)) + (let ((_%e113627%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110610%_ 'exception)))) - (macro-permission-denied-exception? _%e110612%_)) - (macro-permission-denied-exception? _%exn110610%_)))) + (unchecked-slot-ref _%exn113625%_ 'exception)))) + (macro-permission-denied-exception? _%e113627%_)) + (macro-permission-denied-exception? _%exn113625%_)))) (define permission-denied-exception-arguments - (lambda (_%exn110606%_) + (lambda (_%exn113621%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110606%_)) - (let ((_%e110608%_ + (class-instance? RuntimeException::t _%exn113621%_)) + (let ((_%e113623%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110606%_ 'exception)))) - (if (macro-permission-denied-exception? _%e110608%_) - (macro-permission-denied-exception-arguments _%e110608%_) + (unchecked-slot-ref _%exn113621%_ 'exception)))) + (if (macro-permission-denied-exception? _%e113623%_) + (macro-permission-denied-exception-arguments _%e113623%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-arguments - (cons _%e110608%_ '()))))) - (if (macro-permission-denied-exception? _%exn110606%_) - (macro-permission-denied-exception-arguments _%exn110606%_) + (cons _%e113623%_ '()))))) + (if (macro-permission-denied-exception? _%exn113621%_) + (macro-permission-denied-exception-arguments _%exn113621%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-arguments - (cons _%exn110606%_ '()))))))) + (cons _%exn113621%_ '()))))))) (define permission-denied-exception-procedure - (lambda (_%exn110600%_) + (lambda (_%exn113615%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110600%_)) - (let ((_%e110603%_ + (class-instance? RuntimeException::t _%exn113615%_)) + (let ((_%e113618%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110600%_ 'exception)))) - (if (macro-permission-denied-exception? _%e110603%_) - (macro-permission-denied-exception-procedure _%e110603%_) + (unchecked-slot-ref _%exn113615%_ 'exception)))) + (if (macro-permission-denied-exception? _%e113618%_) + (macro-permission-denied-exception-procedure _%e113618%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-procedure - (cons _%e110603%_ '()))))) - (if (macro-permission-denied-exception? _%exn110600%_) - (macro-permission-denied-exception-procedure _%exn110600%_) + (cons _%e113618%_ '()))))) + (if (macro-permission-denied-exception? _%exn113615%_) + (macro-permission-denied-exception-procedure _%exn113615%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-procedure - (cons _%exn110600%_ '()))))))) + (cons _%exn113615%_ '()))))))) (define range-exception? - (lambda (_%exn110596%_) + (lambda (_%exn113611%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110596%_)) - (let ((_%e110598%_ + (class-instance? RuntimeException::t _%exn113611%_)) + (let ((_%e113613%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110596%_ 'exception)))) - (macro-range-exception? _%e110598%_)) - (macro-range-exception? _%exn110596%_)))) + (unchecked-slot-ref _%exn113611%_ 'exception)))) + (macro-range-exception? _%e113613%_)) + (macro-range-exception? _%exn113611%_)))) (define range-exception-arg-id - (lambda (_%exn110592%_) + (lambda (_%exn113607%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110592%_)) - (let ((_%e110594%_ + (class-instance? RuntimeException::t _%exn113607%_)) + (let ((_%e113609%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110592%_ 'exception)))) - (if (macro-range-exception? _%e110594%_) - (macro-range-exception-arg-id _%e110594%_) + (unchecked-slot-ref _%exn113607%_ 'exception)))) + (if (macro-range-exception? _%e113609%_) + (macro-range-exception-arg-id _%e113609%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arg-id - (cons _%e110594%_ '()))))) - (if (macro-range-exception? _%exn110592%_) - (macro-range-exception-arg-id _%exn110592%_) + (cons _%e113609%_ '()))))) + (if (macro-range-exception? _%exn113607%_) + (macro-range-exception-arg-id _%exn113607%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arg-id - (cons _%exn110592%_ '()))))))) + (cons _%exn113607%_ '()))))))) (define range-exception-arguments - (lambda (_%exn110588%_) + (lambda (_%exn113603%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110588%_)) - (let ((_%e110590%_ + (class-instance? RuntimeException::t _%exn113603%_)) + (let ((_%e113605%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110588%_ 'exception)))) - (if (macro-range-exception? _%e110590%_) - (macro-range-exception-arguments _%e110590%_) + (unchecked-slot-ref _%exn113603%_ 'exception)))) + (if (macro-range-exception? _%e113605%_) + (macro-range-exception-arguments _%e113605%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arguments - (cons _%e110590%_ '()))))) - (if (macro-range-exception? _%exn110588%_) - (macro-range-exception-arguments _%exn110588%_) + (cons _%e113605%_ '()))))) + (if (macro-range-exception? _%exn113603%_) + (macro-range-exception-arguments _%exn113603%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arguments - (cons _%exn110588%_ '()))))))) + (cons _%exn113603%_ '()))))))) (define range-exception-procedure - (lambda (_%exn110582%_) + (lambda (_%exn113597%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110582%_)) - (let ((_%e110585%_ + (class-instance? RuntimeException::t _%exn113597%_)) + (let ((_%e113600%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110582%_ 'exception)))) - (if (macro-range-exception? _%e110585%_) - (macro-range-exception-procedure _%e110585%_) + (unchecked-slot-ref _%exn113597%_ 'exception)))) + (if (macro-range-exception? _%e113600%_) + (macro-range-exception-procedure _%e113600%_) (error '"not an instance" 'range-exception? (cons 'range-exception-procedure - (cons _%e110585%_ '()))))) - (if (macro-range-exception? _%exn110582%_) - (macro-range-exception-procedure _%exn110582%_) + (cons _%e113600%_ '()))))) + (if (macro-range-exception? _%exn113597%_) + (macro-range-exception-procedure _%exn113597%_) (error '"not an instance" 'range-exception? (cons 'range-exception-procedure - (cons _%exn110582%_ '()))))))) + (cons _%exn113597%_ '()))))))) (define rpc-remote-error-exception? - (lambda (_%exn110578%_) + (lambda (_%exn113593%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110578%_)) - (let ((_%e110580%_ + (class-instance? RuntimeException::t _%exn113593%_)) + (let ((_%e113595%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110578%_ 'exception)))) - (macro-rpc-remote-error-exception? _%e110580%_)) - (macro-rpc-remote-error-exception? _%exn110578%_)))) + (unchecked-slot-ref _%exn113593%_ 'exception)))) + (macro-rpc-remote-error-exception? _%e113595%_)) + (macro-rpc-remote-error-exception? _%exn113593%_)))) (define rpc-remote-error-exception-arguments - (lambda (_%exn110574%_) + (lambda (_%exn113589%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110574%_)) - (let ((_%e110576%_ + (class-instance? RuntimeException::t _%exn113589%_)) + (let ((_%e113591%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110574%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e110576%_) - (macro-rpc-remote-error-exception-arguments _%e110576%_) + (unchecked-slot-ref _%exn113589%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e113591%_) + (macro-rpc-remote-error-exception-arguments _%e113591%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-arguments - (cons _%e110576%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn110574%_) - (macro-rpc-remote-error-exception-arguments _%exn110574%_) + (cons _%e113591%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn113589%_) + (macro-rpc-remote-error-exception-arguments _%exn113589%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-arguments - (cons _%exn110574%_ '()))))))) + (cons _%exn113589%_ '()))))))) (define rpc-remote-error-exception-message - (lambda (_%exn110570%_) + (lambda (_%exn113585%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110570%_)) - (let ((_%e110572%_ + (class-instance? RuntimeException::t _%exn113585%_)) + (let ((_%e113587%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110570%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e110572%_) - (macro-rpc-remote-error-exception-message _%e110572%_) + (unchecked-slot-ref _%exn113585%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e113587%_) + (macro-rpc-remote-error-exception-message _%e113587%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-message - (cons _%e110572%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn110570%_) - (macro-rpc-remote-error-exception-message _%exn110570%_) + (cons _%e113587%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn113585%_) + (macro-rpc-remote-error-exception-message _%exn113585%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-message - (cons _%exn110570%_ '()))))))) + (cons _%exn113585%_ '()))))))) (define rpc-remote-error-exception-procedure - (lambda (_%exn110564%_) + (lambda (_%exn113579%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110564%_)) - (let ((_%e110567%_ + (class-instance? RuntimeException::t _%exn113579%_)) + (let ((_%e113582%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110564%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e110567%_) - (macro-rpc-remote-error-exception-procedure _%e110567%_) + (unchecked-slot-ref _%exn113579%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e113582%_) + (macro-rpc-remote-error-exception-procedure _%e113582%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-procedure - (cons _%e110567%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn110564%_) - (macro-rpc-remote-error-exception-procedure _%exn110564%_) + (cons _%e113582%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn113579%_) + (macro-rpc-remote-error-exception-procedure _%exn113579%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-procedure - (cons _%exn110564%_ '()))))))) + (cons _%exn113579%_ '()))))))) (define scheduler-exception? - (lambda (_%exn110560%_) + (lambda (_%exn113575%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110560%_)) - (let ((_%e110562%_ + (class-instance? RuntimeException::t _%exn113575%_)) + (let ((_%e113577%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110560%_ 'exception)))) - (macro-scheduler-exception? _%e110562%_)) - (macro-scheduler-exception? _%exn110560%_)))) + (unchecked-slot-ref _%exn113575%_ 'exception)))) + (macro-scheduler-exception? _%e113577%_)) + (macro-scheduler-exception? _%exn113575%_)))) (define scheduler-exception-reason - (lambda (_%exn110554%_) + (lambda (_%exn113569%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110554%_)) - (let ((_%e110557%_ + (class-instance? RuntimeException::t _%exn113569%_)) + (let ((_%e113572%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110554%_ 'exception)))) - (if (macro-scheduler-exception? _%e110557%_) - (macro-scheduler-exception-reason _%e110557%_) + (unchecked-slot-ref _%exn113569%_ 'exception)))) + (if (macro-scheduler-exception? _%e113572%_) + (macro-scheduler-exception-reason _%e113572%_) (error '"not an instance" 'scheduler-exception? (cons 'scheduler-exception-reason - (cons _%e110557%_ '()))))) - (if (macro-scheduler-exception? _%exn110554%_) - (macro-scheduler-exception-reason _%exn110554%_) + (cons _%e113572%_ '()))))) + (if (macro-scheduler-exception? _%exn113569%_) + (macro-scheduler-exception-reason _%exn113569%_) (error '"not an instance" 'scheduler-exception? (cons 'scheduler-exception-reason - (cons _%exn110554%_ '()))))))) + (cons _%exn113569%_ '()))))))) (define sfun-conversion-exception? - (lambda (_%exn110550%_) + (lambda (_%exn113565%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110550%_)) - (let ((_%e110552%_ + (class-instance? RuntimeException::t _%exn113565%_)) + (let ((_%e113567%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110550%_ 'exception)))) - (macro-sfun-conversion-exception? _%e110552%_)) - (macro-sfun-conversion-exception? _%exn110550%_)))) + (unchecked-slot-ref _%exn113565%_ 'exception)))) + (macro-sfun-conversion-exception? _%e113567%_)) + (macro-sfun-conversion-exception? _%exn113565%_)))) (define sfun-conversion-exception-arguments - (lambda (_%exn110546%_) + (lambda (_%exn113561%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110546%_)) - (let ((_%e110548%_ + (class-instance? RuntimeException::t _%exn113561%_)) + (let ((_%e113563%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110546%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e110548%_) - (macro-sfun-conversion-exception-arguments _%e110548%_) + (unchecked-slot-ref _%exn113561%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e113563%_) + (macro-sfun-conversion-exception-arguments _%e113563%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-arguments - (cons _%e110548%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn110546%_) - (macro-sfun-conversion-exception-arguments _%exn110546%_) + (cons _%e113563%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn113561%_) + (macro-sfun-conversion-exception-arguments _%exn113561%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-arguments - (cons _%exn110546%_ '()))))))) + (cons _%exn113561%_ '()))))))) (define sfun-conversion-exception-code - (lambda (_%exn110542%_) + (lambda (_%exn113557%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110542%_)) - (let ((_%e110544%_ + (class-instance? RuntimeException::t _%exn113557%_)) + (let ((_%e113559%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110542%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e110544%_) - (macro-sfun-conversion-exception-code _%e110544%_) + (unchecked-slot-ref _%exn113557%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e113559%_) + (macro-sfun-conversion-exception-code _%e113559%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-code - (cons _%e110544%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn110542%_) - (macro-sfun-conversion-exception-code _%exn110542%_) + (cons _%e113559%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn113557%_) + (macro-sfun-conversion-exception-code _%exn113557%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-code - (cons _%exn110542%_ '()))))))) + (cons _%exn113557%_ '()))))))) (define sfun-conversion-exception-message - (lambda (_%exn110538%_) + (lambda (_%exn113553%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110538%_)) - (let ((_%e110540%_ + (class-instance? RuntimeException::t _%exn113553%_)) + (let ((_%e113555%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110538%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e110540%_) - (macro-sfun-conversion-exception-message _%e110540%_) + (unchecked-slot-ref _%exn113553%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e113555%_) + (macro-sfun-conversion-exception-message _%e113555%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-message - (cons _%e110540%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn110538%_) - (macro-sfun-conversion-exception-message _%exn110538%_) + (cons _%e113555%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn113553%_) + (macro-sfun-conversion-exception-message _%exn113553%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-message - (cons _%exn110538%_ '()))))))) + (cons _%exn113553%_ '()))))))) (define sfun-conversion-exception-procedure - (lambda (_%exn110532%_) + (lambda (_%exn113547%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110532%_)) - (let ((_%e110535%_ + (class-instance? RuntimeException::t _%exn113547%_)) + (let ((_%e113550%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110532%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e110535%_) - (macro-sfun-conversion-exception-procedure _%e110535%_) + (unchecked-slot-ref _%exn113547%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e113550%_) + (macro-sfun-conversion-exception-procedure _%e113550%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-procedure - (cons _%e110535%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn110532%_) - (macro-sfun-conversion-exception-procedure _%exn110532%_) + (cons _%e113550%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn113547%_) + (macro-sfun-conversion-exception-procedure _%exn113547%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-procedure - (cons _%exn110532%_ '()))))))) + (cons _%exn113547%_ '()))))))) (define stack-overflow-exception? - (lambda (_%exn110526%_) + (lambda (_%exn113541%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110526%_)) - (let ((_%e110529%_ + (class-instance? RuntimeException::t _%exn113541%_)) + (let ((_%e113544%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110526%_ 'exception)))) - (macro-stack-overflow-exception? _%e110529%_)) - (macro-stack-overflow-exception? _%exn110526%_)))) + (unchecked-slot-ref _%exn113541%_ 'exception)))) + (macro-stack-overflow-exception? _%e113544%_)) + (macro-stack-overflow-exception? _%exn113541%_)))) (define started-thread-exception? - (lambda (_%exn110522%_) + (lambda (_%exn113537%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110522%_)) - (let ((_%e110524%_ + (class-instance? RuntimeException::t _%exn113537%_)) + (let ((_%e113539%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110522%_ 'exception)))) - (macro-started-thread-exception? _%e110524%_)) - (macro-started-thread-exception? _%exn110522%_)))) + (unchecked-slot-ref _%exn113537%_ 'exception)))) + (macro-started-thread-exception? _%e113539%_)) + (macro-started-thread-exception? _%exn113537%_)))) (define started-thread-exception-arguments - (lambda (_%exn110518%_) + (lambda (_%exn113533%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110518%_)) - (let ((_%e110520%_ + (class-instance? RuntimeException::t _%exn113533%_)) + (let ((_%e113535%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110518%_ 'exception)))) - (if (macro-started-thread-exception? _%e110520%_) - (macro-started-thread-exception-arguments _%e110520%_) + (unchecked-slot-ref _%exn113533%_ 'exception)))) + (if (macro-started-thread-exception? _%e113535%_) + (macro-started-thread-exception-arguments _%e113535%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-arguments - (cons _%e110520%_ '()))))) - (if (macro-started-thread-exception? _%exn110518%_) - (macro-started-thread-exception-arguments _%exn110518%_) + (cons _%e113535%_ '()))))) + (if (macro-started-thread-exception? _%exn113533%_) + (macro-started-thread-exception-arguments _%exn113533%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-arguments - (cons _%exn110518%_ '()))))))) + (cons _%exn113533%_ '()))))))) (define started-thread-exception-procedure - (lambda (_%exn110512%_) + (lambda (_%exn113527%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110512%_)) - (let ((_%e110515%_ + (class-instance? RuntimeException::t _%exn113527%_)) + (let ((_%e113530%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110512%_ 'exception)))) - (if (macro-started-thread-exception? _%e110515%_) - (macro-started-thread-exception-procedure _%e110515%_) + (unchecked-slot-ref _%exn113527%_ 'exception)))) + (if (macro-started-thread-exception? _%e113530%_) + (macro-started-thread-exception-procedure _%e113530%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-procedure - (cons _%e110515%_ '()))))) - (if (macro-started-thread-exception? _%exn110512%_) - (macro-started-thread-exception-procedure _%exn110512%_) + (cons _%e113530%_ '()))))) + (if (macro-started-thread-exception? _%exn113527%_) + (macro-started-thread-exception-procedure _%exn113527%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-procedure - (cons _%exn110512%_ '()))))))) + (cons _%exn113527%_ '()))))))) (define terminated-thread-exception? - (lambda (_%exn110508%_) + (lambda (_%exn113523%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110508%_)) - (let ((_%e110510%_ + (class-instance? RuntimeException::t _%exn113523%_)) + (let ((_%e113525%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110508%_ 'exception)))) - (macro-terminated-thread-exception? _%e110510%_)) - (macro-terminated-thread-exception? _%exn110508%_)))) + (unchecked-slot-ref _%exn113523%_ 'exception)))) + (macro-terminated-thread-exception? _%e113525%_)) + (macro-terminated-thread-exception? _%exn113523%_)))) (define terminated-thread-exception-arguments - (lambda (_%exn110504%_) + (lambda (_%exn113519%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110504%_)) - (let ((_%e110506%_ + (class-instance? RuntimeException::t _%exn113519%_)) + (let ((_%e113521%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110504%_ 'exception)))) - (if (macro-terminated-thread-exception? _%e110506%_) - (macro-terminated-thread-exception-arguments _%e110506%_) + (unchecked-slot-ref _%exn113519%_ 'exception)))) + (if (macro-terminated-thread-exception? _%e113521%_) + (macro-terminated-thread-exception-arguments _%e113521%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-arguments - (cons _%e110506%_ '()))))) - (if (macro-terminated-thread-exception? _%exn110504%_) - (macro-terminated-thread-exception-arguments _%exn110504%_) + (cons _%e113521%_ '()))))) + (if (macro-terminated-thread-exception? _%exn113519%_) + (macro-terminated-thread-exception-arguments _%exn113519%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-arguments - (cons _%exn110504%_ '()))))))) + (cons _%exn113519%_ '()))))))) (define terminated-thread-exception-procedure - (lambda (_%exn110498%_) + (lambda (_%exn113513%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110498%_)) - (let ((_%e110501%_ + (class-instance? RuntimeException::t _%exn113513%_)) + (let ((_%e113516%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110498%_ 'exception)))) - (if (macro-terminated-thread-exception? _%e110501%_) - (macro-terminated-thread-exception-procedure _%e110501%_) + (unchecked-slot-ref _%exn113513%_ 'exception)))) + (if (macro-terminated-thread-exception? _%e113516%_) + (macro-terminated-thread-exception-procedure _%e113516%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-procedure - (cons _%e110501%_ '()))))) - (if (macro-terminated-thread-exception? _%exn110498%_) - (macro-terminated-thread-exception-procedure _%exn110498%_) + (cons _%e113516%_ '()))))) + (if (macro-terminated-thread-exception? _%exn113513%_) + (macro-terminated-thread-exception-procedure _%exn113513%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-procedure - (cons _%exn110498%_ '()))))))) + (cons _%exn113513%_ '()))))))) (define type-exception? - (lambda (_%exn110494%_) + (lambda (_%exn113509%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110494%_)) - (let ((_%e110496%_ + (class-instance? RuntimeException::t _%exn113509%_)) + (let ((_%e113511%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110494%_ 'exception)))) - (macro-type-exception? _%e110496%_)) - (macro-type-exception? _%exn110494%_)))) + (unchecked-slot-ref _%exn113509%_ 'exception)))) + (macro-type-exception? _%e113511%_)) + (macro-type-exception? _%exn113509%_)))) (define type-exception-arg-id - (lambda (_%exn110490%_) + (lambda (_%exn113505%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110490%_)) - (let ((_%e110492%_ + (class-instance? RuntimeException::t _%exn113505%_)) + (let ((_%e113507%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110490%_ 'exception)))) - (if (macro-type-exception? _%e110492%_) - (macro-type-exception-arg-id _%e110492%_) + (unchecked-slot-ref _%exn113505%_ 'exception)))) + (if (macro-type-exception? _%e113507%_) + (macro-type-exception-arg-id _%e113507%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arg-id - (cons _%e110492%_ '()))))) - (if (macro-type-exception? _%exn110490%_) - (macro-type-exception-arg-id _%exn110490%_) + (cons _%e113507%_ '()))))) + (if (macro-type-exception? _%exn113505%_) + (macro-type-exception-arg-id _%exn113505%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arg-id - (cons _%exn110490%_ '()))))))) + (cons _%exn113505%_ '()))))))) (define type-exception-arguments - (lambda (_%exn110486%_) + (lambda (_%exn113501%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110486%_)) - (let ((_%e110488%_ + (class-instance? RuntimeException::t _%exn113501%_)) + (let ((_%e113503%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110486%_ 'exception)))) - (if (macro-type-exception? _%e110488%_) - (macro-type-exception-arguments _%e110488%_) + (unchecked-slot-ref _%exn113501%_ 'exception)))) + (if (macro-type-exception? _%e113503%_) + (macro-type-exception-arguments _%e113503%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arguments - (cons _%e110488%_ '()))))) - (if (macro-type-exception? _%exn110486%_) - (macro-type-exception-arguments _%exn110486%_) + (cons _%e113503%_ '()))))) + (if (macro-type-exception? _%exn113501%_) + (macro-type-exception-arguments _%exn113501%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arguments - (cons _%exn110486%_ '()))))))) + (cons _%exn113501%_ '()))))))) (define type-exception-procedure - (lambda (_%exn110482%_) + (lambda (_%exn113497%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110482%_)) - (let ((_%e110484%_ + (class-instance? RuntimeException::t _%exn113497%_)) + (let ((_%e113499%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110482%_ 'exception)))) - (if (macro-type-exception? _%e110484%_) - (macro-type-exception-procedure _%e110484%_) + (unchecked-slot-ref _%exn113497%_ 'exception)))) + (if (macro-type-exception? _%e113499%_) + (macro-type-exception-procedure _%e113499%_) (error '"not an instance" 'type-exception? (cons 'type-exception-procedure - (cons _%e110484%_ '()))))) - (if (macro-type-exception? _%exn110482%_) - (macro-type-exception-procedure _%exn110482%_) + (cons _%e113499%_ '()))))) + (if (macro-type-exception? _%exn113497%_) + (macro-type-exception-procedure _%exn113497%_) (error '"not an instance" 'type-exception? (cons 'type-exception-procedure - (cons _%exn110482%_ '()))))))) + (cons _%exn113497%_ '()))))))) (define type-exception-type-id - (lambda (_%exn110476%_) + (lambda (_%exn113491%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110476%_)) - (let ((_%e110479%_ + (class-instance? RuntimeException::t _%exn113491%_)) + (let ((_%e113494%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110476%_ 'exception)))) - (if (macro-type-exception? _%e110479%_) - (macro-type-exception-type-id _%e110479%_) + (unchecked-slot-ref _%exn113491%_ 'exception)))) + (if (macro-type-exception? _%e113494%_) + (macro-type-exception-type-id _%e113494%_) (error '"not an instance" 'type-exception? (cons 'type-exception-type-id - (cons _%e110479%_ '()))))) - (if (macro-type-exception? _%exn110476%_) - (macro-type-exception-type-id _%exn110476%_) + (cons _%e113494%_ '()))))) + (if (macro-type-exception? _%exn113491%_) + (macro-type-exception-type-id _%exn113491%_) (error '"not an instance" 'type-exception? (cons 'type-exception-type-id - (cons _%exn110476%_ '()))))))) + (cons _%exn113491%_ '()))))))) (define unbound-global-exception? - (lambda (_%exn110472%_) + (lambda (_%exn113487%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110472%_)) - (let ((_%e110474%_ + (class-instance? RuntimeException::t _%exn113487%_)) + (let ((_%e113489%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110472%_ 'exception)))) - (macro-unbound-global-exception? _%e110474%_)) - (macro-unbound-global-exception? _%exn110472%_)))) + (unchecked-slot-ref _%exn113487%_ 'exception)))) + (macro-unbound-global-exception? _%e113489%_)) + (macro-unbound-global-exception? _%exn113487%_)))) (define unbound-global-exception-code - (lambda (_%exn110468%_) + (lambda (_%exn113483%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110468%_)) - (let ((_%e110470%_ + (class-instance? RuntimeException::t _%exn113483%_)) + (let ((_%e113485%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110468%_ 'exception)))) - (if (macro-unbound-global-exception? _%e110470%_) - (macro-unbound-global-exception-code _%e110470%_) + (unchecked-slot-ref _%exn113483%_ 'exception)))) + (if (macro-unbound-global-exception? _%e113485%_) + (macro-unbound-global-exception-code _%e113485%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-code - (cons _%e110470%_ '()))))) - (if (macro-unbound-global-exception? _%exn110468%_) - (macro-unbound-global-exception-code _%exn110468%_) + (cons _%e113485%_ '()))))) + (if (macro-unbound-global-exception? _%exn113483%_) + (macro-unbound-global-exception-code _%exn113483%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-code - (cons _%exn110468%_ '()))))))) + (cons _%exn113483%_ '()))))))) (define unbound-global-exception-rte - (lambda (_%exn110464%_) + (lambda (_%exn113479%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110464%_)) - (let ((_%e110466%_ + (class-instance? RuntimeException::t _%exn113479%_)) + (let ((_%e113481%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110464%_ 'exception)))) - (if (macro-unbound-global-exception? _%e110466%_) - (macro-unbound-global-exception-rte _%e110466%_) + (unchecked-slot-ref _%exn113479%_ 'exception)))) + (if (macro-unbound-global-exception? _%e113481%_) + (macro-unbound-global-exception-rte _%e113481%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-rte - (cons _%e110466%_ '()))))) - (if (macro-unbound-global-exception? _%exn110464%_) - (macro-unbound-global-exception-rte _%exn110464%_) + (cons _%e113481%_ '()))))) + (if (macro-unbound-global-exception? _%exn113479%_) + (macro-unbound-global-exception-rte _%exn113479%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-rte - (cons _%exn110464%_ '()))))))) + (cons _%exn113479%_ '()))))))) (define unbound-global-exception-variable - (lambda (_%exn110458%_) + (lambda (_%exn113473%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110458%_)) - (let ((_%e110461%_ + (class-instance? RuntimeException::t _%exn113473%_)) + (let ((_%e113476%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110458%_ 'exception)))) - (if (macro-unbound-global-exception? _%e110461%_) - (macro-unbound-global-exception-variable _%e110461%_) + (unchecked-slot-ref _%exn113473%_ 'exception)))) + (if (macro-unbound-global-exception? _%e113476%_) + (macro-unbound-global-exception-variable _%e113476%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-variable - (cons _%e110461%_ '()))))) - (if (macro-unbound-global-exception? _%exn110458%_) - (macro-unbound-global-exception-variable _%exn110458%_) + (cons _%e113476%_ '()))))) + (if (macro-unbound-global-exception? _%exn113473%_) + (macro-unbound-global-exception-variable _%exn113473%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-variable - (cons _%exn110458%_ '()))))))) + (cons _%exn113473%_ '()))))))) (define unbound-key-exception? - (lambda (_%exn110454%_) + (lambda (_%exn113469%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110454%_)) - (let ((_%e110456%_ + (class-instance? RuntimeException::t _%exn113469%_)) + (let ((_%e113471%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110454%_ 'exception)))) - (macro-unbound-key-exception? _%e110456%_)) - (macro-unbound-key-exception? _%exn110454%_)))) + (unchecked-slot-ref _%exn113469%_ 'exception)))) + (macro-unbound-key-exception? _%e113471%_)) + (macro-unbound-key-exception? _%exn113469%_)))) (define unbound-key-exception-arguments - (lambda (_%exn110450%_) + (lambda (_%exn113465%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110450%_)) - (let ((_%e110452%_ + (class-instance? RuntimeException::t _%exn113465%_)) + (let ((_%e113467%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110450%_ 'exception)))) - (if (macro-unbound-key-exception? _%e110452%_) - (macro-unbound-key-exception-arguments _%e110452%_) + (unchecked-slot-ref _%exn113465%_ 'exception)))) + (if (macro-unbound-key-exception? _%e113467%_) + (macro-unbound-key-exception-arguments _%e113467%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-arguments - (cons _%e110452%_ '()))))) - (if (macro-unbound-key-exception? _%exn110450%_) - (macro-unbound-key-exception-arguments _%exn110450%_) + (cons _%e113467%_ '()))))) + (if (macro-unbound-key-exception? _%exn113465%_) + (macro-unbound-key-exception-arguments _%exn113465%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-arguments - (cons _%exn110450%_ '()))))))) + (cons _%exn113465%_ '()))))))) (define unbound-key-exception-procedure - (lambda (_%exn110444%_) + (lambda (_%exn113459%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110444%_)) - (let ((_%e110447%_ + (class-instance? RuntimeException::t _%exn113459%_)) + (let ((_%e113462%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110444%_ 'exception)))) - (if (macro-unbound-key-exception? _%e110447%_) - (macro-unbound-key-exception-procedure _%e110447%_) + (unchecked-slot-ref _%exn113459%_ 'exception)))) + (if (macro-unbound-key-exception? _%e113462%_) + (macro-unbound-key-exception-procedure _%e113462%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-procedure - (cons _%e110447%_ '()))))) - (if (macro-unbound-key-exception? _%exn110444%_) - (macro-unbound-key-exception-procedure _%exn110444%_) + (cons _%e113462%_ '()))))) + (if (macro-unbound-key-exception? _%exn113459%_) + (macro-unbound-key-exception-procedure _%exn113459%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-procedure - (cons _%exn110444%_ '()))))))) + (cons _%exn113459%_ '()))))))) (define unbound-os-environment-variable-exception? - (lambda (_%exn110440%_) + (lambda (_%exn113455%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110440%_)) - (let ((_%e110442%_ + (class-instance? RuntimeException::t _%exn113455%_)) + (let ((_%e113457%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110440%_ 'exception)))) - (macro-unbound-os-environment-variable-exception? _%e110442%_)) - (macro-unbound-os-environment-variable-exception? _%exn110440%_)))) + (unchecked-slot-ref _%exn113455%_ 'exception)))) + (macro-unbound-os-environment-variable-exception? _%e113457%_)) + (macro-unbound-os-environment-variable-exception? _%exn113455%_)))) (define unbound-os-environment-variable-exception-arguments - (lambda (_%exn110436%_) + (lambda (_%exn113451%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110436%_)) - (let ((_%e110438%_ + (class-instance? RuntimeException::t _%exn113451%_)) + (let ((_%e113453%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110436%_ 'exception)))) + (unchecked-slot-ref _%exn113451%_ 'exception)))) (if (macro-unbound-os-environment-variable-exception? - _%e110438%_) + _%e113453%_) (macro-unbound-os-environment-variable-exception-arguments - _%e110438%_) + _%e113453%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-arguments - (cons _%e110438%_ '()))))) + (cons _%e113453%_ '()))))) (if (macro-unbound-os-environment-variable-exception? - _%exn110436%_) + _%exn113451%_) (macro-unbound-os-environment-variable-exception-arguments - _%exn110436%_) + _%exn113451%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-arguments - (cons _%exn110436%_ '()))))))) + (cons _%exn113451%_ '()))))))) (define unbound-os-environment-variable-exception-procedure - (lambda (_%exn110430%_) + (lambda (_%exn113445%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110430%_)) - (let ((_%e110433%_ + (class-instance? RuntimeException::t _%exn113445%_)) + (let ((_%e113448%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110430%_ 'exception)))) + (unchecked-slot-ref _%exn113445%_ 'exception)))) (if (macro-unbound-os-environment-variable-exception? - _%e110433%_) + _%e113448%_) (macro-unbound-os-environment-variable-exception-procedure - _%e110433%_) + _%e113448%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-procedure - (cons _%e110433%_ '()))))) + (cons _%e113448%_ '()))))) (if (macro-unbound-os-environment-variable-exception? - _%exn110430%_) + _%exn113445%_) (macro-unbound-os-environment-variable-exception-procedure - _%exn110430%_) + _%exn113445%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-procedure - (cons _%exn110430%_ '()))))))) + (cons _%exn113445%_ '()))))))) (define unbound-serial-number-exception? - (lambda (_%exn110426%_) + (lambda (_%exn113441%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110426%_)) - (let ((_%e110428%_ + (class-instance? RuntimeException::t _%exn113441%_)) + (let ((_%e113443%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110426%_ 'exception)))) - (macro-unbound-serial-number-exception? _%e110428%_)) - (macro-unbound-serial-number-exception? _%exn110426%_)))) + (unchecked-slot-ref _%exn113441%_ 'exception)))) + (macro-unbound-serial-number-exception? _%e113443%_)) + (macro-unbound-serial-number-exception? _%exn113441%_)))) (define unbound-serial-number-exception-arguments - (lambda (_%exn110422%_) + (lambda (_%exn113437%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110422%_)) - (let ((_%e110424%_ + (class-instance? RuntimeException::t _%exn113437%_)) + (let ((_%e113439%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110422%_ 'exception)))) - (if (macro-unbound-serial-number-exception? _%e110424%_) - (macro-unbound-serial-number-exception-arguments _%e110424%_) + (unchecked-slot-ref _%exn113437%_ 'exception)))) + (if (macro-unbound-serial-number-exception? _%e113439%_) + (macro-unbound-serial-number-exception-arguments _%e113439%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-arguments - (cons _%e110424%_ '()))))) - (if (macro-unbound-serial-number-exception? _%exn110422%_) - (macro-unbound-serial-number-exception-arguments _%exn110422%_) + (cons _%e113439%_ '()))))) + (if (macro-unbound-serial-number-exception? _%exn113437%_) + (macro-unbound-serial-number-exception-arguments _%exn113437%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-arguments - (cons _%exn110422%_ '()))))))) + (cons _%exn113437%_ '()))))))) (define unbound-serial-number-exception-procedure - (lambda (_%exn110416%_) + (lambda (_%exn113431%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110416%_)) - (let ((_%e110419%_ + (class-instance? RuntimeException::t _%exn113431%_)) + (let ((_%e113434%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110416%_ 'exception)))) - (if (macro-unbound-serial-number-exception? _%e110419%_) - (macro-unbound-serial-number-exception-procedure _%e110419%_) + (unchecked-slot-ref _%exn113431%_ 'exception)))) + (if (macro-unbound-serial-number-exception? _%e113434%_) + (macro-unbound-serial-number-exception-procedure _%e113434%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-procedure - (cons _%e110419%_ '()))))) - (if (macro-unbound-serial-number-exception? _%exn110416%_) - (macro-unbound-serial-number-exception-procedure _%exn110416%_) + (cons _%e113434%_ '()))))) + (if (macro-unbound-serial-number-exception? _%exn113431%_) + (macro-unbound-serial-number-exception-procedure _%exn113431%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-procedure - (cons _%exn110416%_ '()))))))) + (cons _%exn113431%_ '()))))))) (define uncaught-exception? - (lambda (_%exn110412%_) + (lambda (_%exn113427%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110412%_)) - (let ((_%e110414%_ + (class-instance? RuntimeException::t _%exn113427%_)) + (let ((_%e113429%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110412%_ 'exception)))) - (macro-uncaught-exception? _%e110414%_)) - (macro-uncaught-exception? _%exn110412%_)))) + (unchecked-slot-ref _%exn113427%_ 'exception)))) + (macro-uncaught-exception? _%e113429%_)) + (macro-uncaught-exception? _%exn113427%_)))) (define uncaught-exception-arguments - (lambda (_%exn110408%_) + (lambda (_%exn113423%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110408%_)) - (let ((_%e110410%_ + (class-instance? RuntimeException::t _%exn113423%_)) + (let ((_%e113425%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110408%_ 'exception)))) - (if (macro-uncaught-exception? _%e110410%_) - (macro-uncaught-exception-arguments _%e110410%_) + (unchecked-slot-ref _%exn113423%_ 'exception)))) + (if (macro-uncaught-exception? _%e113425%_) + (macro-uncaught-exception-arguments _%e113425%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-arguments - (cons _%e110410%_ '()))))) - (if (macro-uncaught-exception? _%exn110408%_) - (macro-uncaught-exception-arguments _%exn110408%_) + (cons _%e113425%_ '()))))) + (if (macro-uncaught-exception? _%exn113423%_) + (macro-uncaught-exception-arguments _%exn113423%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-arguments - (cons _%exn110408%_ '()))))))) + (cons _%exn113423%_ '()))))))) (define uncaught-exception-procedure - (lambda (_%exn110404%_) + (lambda (_%exn113419%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110404%_)) - (let ((_%e110406%_ + (class-instance? RuntimeException::t _%exn113419%_)) + (let ((_%e113421%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110404%_ 'exception)))) - (if (macro-uncaught-exception? _%e110406%_) - (macro-uncaught-exception-procedure _%e110406%_) + (unchecked-slot-ref _%exn113419%_ 'exception)))) + (if (macro-uncaught-exception? _%e113421%_) + (macro-uncaught-exception-procedure _%e113421%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-procedure - (cons _%e110406%_ '()))))) - (if (macro-uncaught-exception? _%exn110404%_) - (macro-uncaught-exception-procedure _%exn110404%_) + (cons _%e113421%_ '()))))) + (if (macro-uncaught-exception? _%exn113419%_) + (macro-uncaught-exception-procedure _%exn113419%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-procedure - (cons _%exn110404%_ '()))))))) + (cons _%exn113419%_ '()))))))) (define uncaught-exception-reason - (lambda (_%exn110398%_) + (lambda (_%exn113413%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110398%_)) - (let ((_%e110401%_ + (class-instance? RuntimeException::t _%exn113413%_)) + (let ((_%e113416%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110398%_ 'exception)))) - (if (macro-uncaught-exception? _%e110401%_) - (macro-uncaught-exception-reason _%e110401%_) + (unchecked-slot-ref _%exn113413%_ 'exception)))) + (if (macro-uncaught-exception? _%e113416%_) + (macro-uncaught-exception-reason _%e113416%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-reason - (cons _%e110401%_ '()))))) - (if (macro-uncaught-exception? _%exn110398%_) - (macro-uncaught-exception-reason _%exn110398%_) + (cons _%e113416%_ '()))))) + (if (macro-uncaught-exception? _%exn113413%_) + (macro-uncaught-exception-reason _%exn113413%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-reason - (cons _%exn110398%_ '()))))))) + (cons _%exn113413%_ '()))))))) (define uninitialized-thread-exception? - (lambda (_%exn110394%_) + (lambda (_%exn113409%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110394%_)) - (let ((_%e110396%_ + (class-instance? RuntimeException::t _%exn113409%_)) + (let ((_%e113411%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110394%_ 'exception)))) - (macro-uninitialized-thread-exception? _%e110396%_)) - (macro-uninitialized-thread-exception? _%exn110394%_)))) + (unchecked-slot-ref _%exn113409%_ 'exception)))) + (macro-uninitialized-thread-exception? _%e113411%_)) + (macro-uninitialized-thread-exception? _%exn113409%_)))) (define uninitialized-thread-exception-arguments - (lambda (_%exn110390%_) + (lambda (_%exn113405%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110390%_)) - (let ((_%e110392%_ + (class-instance? RuntimeException::t _%exn113405%_)) + (let ((_%e113407%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110390%_ 'exception)))) - (if (macro-uninitialized-thread-exception? _%e110392%_) - (macro-uninitialized-thread-exception-arguments _%e110392%_) + (unchecked-slot-ref _%exn113405%_ 'exception)))) + (if (macro-uninitialized-thread-exception? _%e113407%_) + (macro-uninitialized-thread-exception-arguments _%e113407%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-arguments - (cons _%e110392%_ '()))))) - (if (macro-uninitialized-thread-exception? _%exn110390%_) - (macro-uninitialized-thread-exception-arguments _%exn110390%_) + (cons _%e113407%_ '()))))) + (if (macro-uninitialized-thread-exception? _%exn113405%_) + (macro-uninitialized-thread-exception-arguments _%exn113405%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-arguments - (cons _%exn110390%_ '()))))))) + (cons _%exn113405%_ '()))))))) (define uninitialized-thread-exception-procedure - (lambda (_%exn110384%_) + (lambda (_%exn113399%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110384%_)) - (let ((_%e110387%_ + (class-instance? RuntimeException::t _%exn113399%_)) + (let ((_%e113402%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110384%_ 'exception)))) - (if (macro-uninitialized-thread-exception? _%e110387%_) - (macro-uninitialized-thread-exception-procedure _%e110387%_) + (unchecked-slot-ref _%exn113399%_ 'exception)))) + (if (macro-uninitialized-thread-exception? _%e113402%_) + (macro-uninitialized-thread-exception-procedure _%e113402%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-procedure - (cons _%e110387%_ '()))))) - (if (macro-uninitialized-thread-exception? _%exn110384%_) - (macro-uninitialized-thread-exception-procedure _%exn110384%_) + (cons _%e113402%_ '()))))) + (if (macro-uninitialized-thread-exception? _%exn113399%_) + (macro-uninitialized-thread-exception-procedure _%exn113399%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-procedure - (cons _%exn110384%_ '()))))))) + (cons _%exn113399%_ '()))))))) (define unknown-keyword-argument-exception? - (lambda (_%exn110380%_) + (lambda (_%exn113395%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110380%_)) - (let ((_%e110382%_ + (class-instance? RuntimeException::t _%exn113395%_)) + (let ((_%e113397%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110380%_ 'exception)))) - (macro-unknown-keyword-argument-exception? _%e110382%_)) - (macro-unknown-keyword-argument-exception? _%exn110380%_)))) + (unchecked-slot-ref _%exn113395%_ 'exception)))) + (macro-unknown-keyword-argument-exception? _%e113397%_)) + (macro-unknown-keyword-argument-exception? _%exn113395%_)))) (define unknown-keyword-argument-exception-arguments - (lambda (_%exn110376%_) + (lambda (_%exn113391%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110376%_)) - (let ((_%e110378%_ + (class-instance? RuntimeException::t _%exn113391%_)) + (let ((_%e113393%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110376%_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _%e110378%_) + (unchecked-slot-ref _%exn113391%_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _%e113393%_) (macro-unknown-keyword-argument-exception-arguments - _%e110378%_) + _%e113393%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-arguments - (cons _%e110378%_ '()))))) - (if (macro-unknown-keyword-argument-exception? _%exn110376%_) + (cons _%e113393%_ '()))))) + (if (macro-unknown-keyword-argument-exception? _%exn113391%_) (macro-unknown-keyword-argument-exception-arguments - _%exn110376%_) + _%exn113391%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-arguments - (cons _%exn110376%_ '()))))))) + (cons _%exn113391%_ '()))))))) (define unknown-keyword-argument-exception-procedure - (lambda (_%exn110370%_) + (lambda (_%exn113385%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110370%_)) - (let ((_%e110373%_ + (class-instance? RuntimeException::t _%exn113385%_)) + (let ((_%e113388%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110370%_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _%e110373%_) + (unchecked-slot-ref _%exn113385%_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _%e113388%_) (macro-unknown-keyword-argument-exception-procedure - _%e110373%_) + _%e113388%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-procedure - (cons _%e110373%_ '()))))) - (if (macro-unknown-keyword-argument-exception? _%exn110370%_) + (cons _%e113388%_ '()))))) + (if (macro-unknown-keyword-argument-exception? _%exn113385%_) (macro-unknown-keyword-argument-exception-procedure - _%exn110370%_) + _%exn113385%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-procedure - (cons _%exn110370%_ '()))))))) + (cons _%exn113385%_ '()))))))) (define unterminated-process-exception? - (lambda (_%exn110366%_) + (lambda (_%exn113381%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110366%_)) - (let ((_%e110368%_ + (class-instance? RuntimeException::t _%exn113381%_)) + (let ((_%e113383%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110366%_ 'exception)))) - (macro-unterminated-process-exception? _%e110368%_)) - (macro-unterminated-process-exception? _%exn110366%_)))) + (unchecked-slot-ref _%exn113381%_ 'exception)))) + (macro-unterminated-process-exception? _%e113383%_)) + (macro-unterminated-process-exception? _%exn113381%_)))) (define unterminated-process-exception-arguments - (lambda (_%exn110362%_) + (lambda (_%exn113377%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110362%_)) - (let ((_%e110364%_ + (class-instance? RuntimeException::t _%exn113377%_)) + (let ((_%e113379%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110362%_ 'exception)))) - (if (macro-unterminated-process-exception? _%e110364%_) - (macro-unterminated-process-exception-arguments _%e110364%_) + (unchecked-slot-ref _%exn113377%_ 'exception)))) + (if (macro-unterminated-process-exception? _%e113379%_) + (macro-unterminated-process-exception-arguments _%e113379%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-arguments - (cons _%e110364%_ '()))))) - (if (macro-unterminated-process-exception? _%exn110362%_) - (macro-unterminated-process-exception-arguments _%exn110362%_) + (cons _%e113379%_ '()))))) + (if (macro-unterminated-process-exception? _%exn113377%_) + (macro-unterminated-process-exception-arguments _%exn113377%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-arguments - (cons _%exn110362%_ '()))))))) + (cons _%exn113377%_ '()))))))) (define unterminated-process-exception-procedure - (lambda (_%exn110356%_) + (lambda (_%exn113371%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110356%_)) - (let ((_%e110359%_ + (class-instance? RuntimeException::t _%exn113371%_)) + (let ((_%e113374%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110356%_ 'exception)))) - (if (macro-unterminated-process-exception? _%e110359%_) - (macro-unterminated-process-exception-procedure _%e110359%_) + (unchecked-slot-ref _%exn113371%_ 'exception)))) + (if (macro-unterminated-process-exception? _%e113374%_) + (macro-unterminated-process-exception-procedure _%e113374%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-procedure - (cons _%e110359%_ '()))))) - (if (macro-unterminated-process-exception? _%exn110356%_) - (macro-unterminated-process-exception-procedure _%exn110356%_) + (cons _%e113374%_ '()))))) + (if (macro-unterminated-process-exception? _%exn113371%_) + (macro-unterminated-process-exception-procedure _%exn113371%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-procedure - (cons _%exn110356%_ '()))))))) + (cons _%exn113371%_ '()))))))) (define wrong-number-of-arguments-exception? - (lambda (_%exn110352%_) + (lambda (_%exn113367%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110352%_)) - (let ((_%e110354%_ + (class-instance? RuntimeException::t _%exn113367%_)) + (let ((_%e113369%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110352%_ 'exception)))) - (macro-wrong-number-of-arguments-exception? _%e110354%_)) - (macro-wrong-number-of-arguments-exception? _%exn110352%_)))) + (unchecked-slot-ref _%exn113367%_ 'exception)))) + (macro-wrong-number-of-arguments-exception? _%e113369%_)) + (macro-wrong-number-of-arguments-exception? _%exn113367%_)))) (define wrong-number-of-arguments-exception-arguments - (lambda (_%exn110348%_) + (lambda (_%exn113363%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110348%_)) - (let ((_%e110350%_ + (class-instance? RuntimeException::t _%exn113363%_)) + (let ((_%e113365%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110348%_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _%e110350%_) + (unchecked-slot-ref _%exn113363%_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _%e113365%_) (macro-wrong-number-of-arguments-exception-arguments - _%e110350%_) + _%e113365%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-arguments - (cons _%e110350%_ '()))))) - (if (macro-wrong-number-of-arguments-exception? _%exn110348%_) + (cons _%e113365%_ '()))))) + (if (macro-wrong-number-of-arguments-exception? _%exn113363%_) (macro-wrong-number-of-arguments-exception-arguments - _%exn110348%_) + _%exn113363%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-arguments - (cons _%exn110348%_ '()))))))) + (cons _%exn113363%_ '()))))))) (define wrong-number-of-arguments-exception-procedure - (lambda (_%exn110342%_) + (lambda (_%exn113357%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110342%_)) - (let ((_%e110345%_ + (class-instance? RuntimeException::t _%exn113357%_)) + (let ((_%e113360%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110342%_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _%e110345%_) + (unchecked-slot-ref _%exn113357%_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _%e113360%_) (macro-wrong-number-of-arguments-exception-procedure - _%e110345%_) + _%e113360%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-procedure - (cons _%e110345%_ '()))))) - (if (macro-wrong-number-of-arguments-exception? _%exn110342%_) + (cons _%e113360%_ '()))))) + (if (macro-wrong-number-of-arguments-exception? _%exn113357%_) (macro-wrong-number-of-arguments-exception-procedure - _%exn110342%_) + _%exn113357%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-procedure - (cons _%exn110342%_ '()))))))) + (cons _%exn113357%_ '()))))))) (define wrong-number-of-values-exception? - (lambda (_%exn110338%_) + (lambda (_%exn113353%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110338%_)) - (let ((_%e110340%_ + (class-instance? RuntimeException::t _%exn113353%_)) + (let ((_%e113355%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110338%_ 'exception)))) - (macro-wrong-number-of-values-exception? _%e110340%_)) - (macro-wrong-number-of-values-exception? _%exn110338%_)))) + (unchecked-slot-ref _%exn113353%_ 'exception)))) + (macro-wrong-number-of-values-exception? _%e113355%_)) + (macro-wrong-number-of-values-exception? _%exn113353%_)))) (define wrong-number-of-values-exception-code - (lambda (_%exn110334%_) + (lambda (_%exn113349%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110334%_)) - (let ((_%e110336%_ + (class-instance? RuntimeException::t _%exn113349%_)) + (let ((_%e113351%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110334%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e110336%_) - (macro-wrong-number-of-values-exception-code _%e110336%_) + (unchecked-slot-ref _%exn113349%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e113351%_) + (macro-wrong-number-of-values-exception-code _%e113351%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-code - (cons _%e110336%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn110334%_) - (macro-wrong-number-of-values-exception-code _%exn110334%_) + (cons _%e113351%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn113349%_) + (macro-wrong-number-of-values-exception-code _%exn113349%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-code - (cons _%exn110334%_ '()))))))) + (cons _%exn113349%_ '()))))))) (define wrong-number-of-values-exception-rte - (lambda (_%exn110330%_) + (lambda (_%exn113345%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110330%_)) - (let ((_%e110332%_ + (class-instance? RuntimeException::t _%exn113345%_)) + (let ((_%e113347%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110330%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e110332%_) - (macro-wrong-number-of-values-exception-rte _%e110332%_) + (unchecked-slot-ref _%exn113345%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e113347%_) + (macro-wrong-number-of-values-exception-rte _%e113347%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-rte - (cons _%e110332%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn110330%_) - (macro-wrong-number-of-values-exception-rte _%exn110330%_) + (cons _%e113347%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn113345%_) + (macro-wrong-number-of-values-exception-rte _%exn113345%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-rte - (cons _%exn110330%_ '()))))))) + (cons _%exn113345%_ '()))))))) (define wrong-number-of-values-exception-vals - (lambda (_%exn110324%_) + (lambda (_%exn113339%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110324%_)) - (let ((_%e110327%_ + (class-instance? RuntimeException::t _%exn113339%_)) + (let ((_%e113342%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110324%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e110327%_) - (macro-wrong-number-of-values-exception-vals _%e110327%_) + (unchecked-slot-ref _%exn113339%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e113342%_) + (macro-wrong-number-of-values-exception-vals _%e113342%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-vals - (cons _%e110327%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn110324%_) - (macro-wrong-number-of-values-exception-vals _%exn110324%_) + (cons _%e113342%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn113339%_) + (macro-wrong-number-of-values-exception-vals _%exn113339%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-vals - (cons _%exn110324%_ '()))))))) + (cons _%exn113339%_ '()))))))) (define wrong-processor-c-return-exception? - (lambda (_%exn110318%_) + (lambda (_%exn113333%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn110318%_)) - (let ((_%e110321%_ + (class-instance? RuntimeException::t _%exn113333%_)) + (let ((_%e113336%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn110318%_ 'exception)))) - (macro-wrong-processor-c-return-exception? _%e110321%_)) - (macro-wrong-processor-c-return-exception? _%exn110318%_)))))) + (unchecked-slot-ref _%exn113333%_ 'exception)))) + (macro-wrong-processor-c-return-exception? _%e113336%_)) + (macro-wrong-processor-c-return-exception? _%exn113333%_)))))) diff --git a/src/bootstrap/gerbil/runtime/error~1.scm b/src/bootstrap/gerbil/runtime/error~1.scm index 0f779bd7ec..2ca3a5f6d8 100644 --- a/src/bootstrap/gerbil/runtime/error~1.scm +++ b/src/bootstrap/gerbil/runtime/error~1.scm @@ -1,433 +1,433 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g111835_| + (define |[1]#_g114845_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g111837_| + (define |[1]#_g114847_| (##structure gx#syntax-quote::t 'make-Exception #f (gx#current-expander-context) '())) - (define |[1]#_g111839_| + (define |[1]#_g114849_| (##structure gx#syntax-quote::t 'Exception? #f (gx#current-expander-context) '())) - (define |[1]#_g111841_| + (define |[1]#_g114851_| (##structure gx#syntax-quote::t 'StackTrace::t #f (gx#current-expander-context) '())) - (define |[1]#_g111843_| + (define |[1]#_g114853_| (##structure gx#syntax-quote::t 'make-StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g111845_| + (define |[1]#_g114855_| (##structure gx#syntax-quote::t 'StackTrace? #f (gx#current-expander-context) '())) - (define |[1]#_g111847_| + (define |[1]#_g114857_| (##structure gx#syntax-quote::t 'StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g111849_| + (define |[1]#_g114859_| (##structure gx#syntax-quote::t 'StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111851_| + (define |[1]#_g114861_| (##structure gx#syntax-quote::t '&StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g111853_| + (define |[1]#_g114863_| (##structure gx#syntax-quote::t '&StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111855_| + (define |[1]#_g114865_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g111856_| + (define |[1]#_g114866_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g111858_| + (define |[1]#_g114868_| (##structure gx#syntax-quote::t 'Error::t #f (gx#current-expander-context) '())) - (define |[1]#_g111860_| + (define |[1]#_g114870_| (##structure gx#syntax-quote::t 'make-Error #f (gx#current-expander-context) '())) - (define |[1]#_g111862_| + (define |[1]#_g114872_| (##structure gx#syntax-quote::t 'Error? #f (gx#current-expander-context) '())) - (define |[1]#_g111864_| + (define |[1]#_g114874_| (##structure gx#syntax-quote::t 'Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g111865_| + (define |[1]#_g114875_| (##structure gx#syntax-quote::t 'Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g111866_| + (define |[1]#_g114876_| (##structure gx#syntax-quote::t 'Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g111867_| + (define |[1]#_g114877_| (##structure gx#syntax-quote::t 'Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g111869_| + (define |[1]#_g114879_| (##structure gx#syntax-quote::t 'Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111870_| + (define |[1]#_g114880_| (##structure gx#syntax-quote::t 'Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111871_| + (define |[1]#_g114881_| (##structure gx#syntax-quote::t 'Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111872_| + (define |[1]#_g114882_| (##structure gx#syntax-quote::t 'Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111874_| + (define |[1]#_g114884_| (##structure gx#syntax-quote::t '&Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g111875_| + (define |[1]#_g114885_| (##structure gx#syntax-quote::t '&Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g111876_| + (define |[1]#_g114886_| (##structure gx#syntax-quote::t '&Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g111877_| + (define |[1]#_g114887_| (##structure gx#syntax-quote::t '&Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g111879_| + (define |[1]#_g114889_| (##structure gx#syntax-quote::t '&Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111880_| + (define |[1]#_g114890_| (##structure gx#syntax-quote::t '&Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111881_| + (define |[1]#_g114891_| (##structure gx#syntax-quote::t '&Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111882_| + (define |[1]#_g114892_| (##structure gx#syntax-quote::t '&Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111884_| + (define |[1]#_g114894_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g111886_| + (define |[1]#_g114896_| (##structure gx#syntax-quote::t 'ContractViolation::t #f (gx#current-expander-context) '())) - (define |[1]#_g111888_| + (define |[1]#_g114898_| (##structure gx#syntax-quote::t 'make-ContractViolation #f (gx#current-expander-context) '())) - (define |[1]#_g111890_| + (define |[1]#_g114900_| (##structure gx#syntax-quote::t 'ContractViolation? #f (gx#current-expander-context) '())) - (define |[1]#_g111892_| + (define |[1]#_g114902_| (##structure gx#syntax-quote::t 'ContractViolation-message #f (gx#current-expander-context) '())) - (define |[1]#_g111893_| + (define |[1]#_g114903_| (##structure gx#syntax-quote::t 'ContractViolation-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g111894_| + (define |[1]#_g114904_| (##structure gx#syntax-quote::t 'ContractViolation-where #f (gx#current-expander-context) '())) - (define |[1]#_g111895_| + (define |[1]#_g114905_| (##structure gx#syntax-quote::t 'ContractViolation-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g111897_| + (define |[1]#_g114907_| (##structure gx#syntax-quote::t 'ContractViolation-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111898_| + (define |[1]#_g114908_| (##structure gx#syntax-quote::t 'ContractViolation-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111899_| + (define |[1]#_g114909_| (##structure gx#syntax-quote::t 'ContractViolation-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111900_| + (define |[1]#_g114910_| (##structure gx#syntax-quote::t 'ContractViolation-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111902_| + (define |[1]#_g114912_| (##structure gx#syntax-quote::t '&ContractViolation-message #f (gx#current-expander-context) '())) - (define |[1]#_g111903_| + (define |[1]#_g114913_| (##structure gx#syntax-quote::t '&ContractViolation-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g111904_| + (define |[1]#_g114914_| (##structure gx#syntax-quote::t '&ContractViolation-where #f (gx#current-expander-context) '())) - (define |[1]#_g111905_| + (define |[1]#_g114915_| (##structure gx#syntax-quote::t '&ContractViolation-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g111907_| + (define |[1]#_g114917_| (##structure gx#syntax-quote::t '&ContractViolation-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111908_| + (define |[1]#_g114918_| (##structure gx#syntax-quote::t '&ContractViolation-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111909_| + (define |[1]#_g114919_| (##structure gx#syntax-quote::t '&ContractViolation-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111910_| + (define |[1]#_g114920_| (##structure gx#syntax-quote::t '&ContractViolation-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111913_| + (define |[1]#_g114923_| (##structure gx#syntax-quote::t 'RuntimeException::t #f (gx#current-expander-context) '())) - (define |[1]#_g111915_| + (define |[1]#_g114925_| (##structure gx#syntax-quote::t 'make-RuntimeException #f (gx#current-expander-context) '())) - (define |[1]#_g111917_| + (define |[1]#_g114927_| (##structure gx#syntax-quote::t 'RuntimeException? #f (gx#current-expander-context) '())) - (define |[1]#_g111919_| + (define |[1]#_g114929_| (##structure gx#syntax-quote::t 'RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g111920_| + (define |[1]#_g114930_| (##structure gx#syntax-quote::t 'RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g111922_| + (define |[1]#_g114932_| (##structure gx#syntax-quote::t 'RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111923_| + (define |[1]#_g114933_| (##structure gx#syntax-quote::t 'RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111925_| + (define |[1]#_g114935_| (##structure gx#syntax-quote::t '&RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g111926_| + (define |[1]#_g114936_| (##structure gx#syntax-quote::t '&RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g111928_| + (define |[1]#_g114938_| (##structure gx#syntax-quote::t '&RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g111929_| + (define |[1]#_g114939_| (##structure gx#syntax-quote::t '&RuntimeException-continuation-set! @@ -436,7 +436,7 @@ '())) (begin (define |[:0:]#Exception| - (let ((__obj111798 + (let ((__obj114808 (let () (declare (not safe)) (##structure @@ -465,68 +465,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111798 + __obj114808 'gerbil/runtime/error#Exception::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111798 'Exception '2 '#f '#f)) + (##unchecked-structure-set! __obj114808 'Exception '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111798 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj114808 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111798 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj114808 '() '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111798 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj114808 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111798 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj114808 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111798 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj114808 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111798 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj114808 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111798 '#f '11 '#f '#f)) - (let ((__tmp111834 |[1]#_g111835_|)) + (##unchecked-structure-set! __obj114808 '#f '12 '#f '#f)) + (let ((__tmp114844 |[1]#_g114845_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111798 __tmp111834 '12 '#f '#f)) - (let ((__tmp111836 |[1]#_g111837_|)) + (##unchecked-structure-set! __obj114808 __tmp114844 '3 '#f '#f)) + (let ((__tmp114846 |[1]#_g114847_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111798 __tmp111836 '13 '#f '#f)) - (let ((__tmp111838 |[1]#_g111839_|)) + (##unchecked-structure-set! __obj114808 __tmp114846 '13 '#f '#f)) + (let ((__tmp114848 |[1]#_g114849_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111798 __tmp111838 '14 '#f '#f)) + (##unchecked-structure-set! __obj114808 __tmp114848 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111798 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj114808 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111798 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj114808 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111798 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj114808 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111798 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj114808 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111798 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj114808 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111798 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj114808 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111798 '() '20 '#f '#f)) - __obj111798)) + (##unchecked-structure-set! __obj114808 '() '20 '#f '#f)) + __obj114808)) (define |[:0:]#StackTrace| - (let ((__obj111799 + (let ((__obj114809 (let () (declare (not safe)) (##structure @@ -555,68 +555,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111799 + __obj114809 'gerbil/runtime/error#StackTrace::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111799 'StackTrace '2 '#f '#f)) + (##unchecked-structure-set! __obj114809 'StackTrace '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111799 '(continuation) '4 '#f '#f)) + (##unchecked-structure-set! __obj114809 '(continuation) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111799 '(continuation) '6 '#f '#f)) + (##unchecked-structure-set! __obj114809 '(continuation) '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111799 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj114809 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111799 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj114809 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111799 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj114809 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111799 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj114809 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111799 '#f '11 '#f '#f)) - (let ((__tmp111840 |[1]#_g111841_|)) + (##unchecked-structure-set! __obj114809 '#f '12 '#f '#f)) + (let ((__tmp114850 |[1]#_g114851_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111799 __tmp111840 '12 '#f '#f)) - (let ((__tmp111842 |[1]#_g111843_|)) + (##unchecked-structure-set! __obj114809 __tmp114850 '3 '#f '#f)) + (let ((__tmp114852 |[1]#_g114853_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111799 __tmp111842 '13 '#f '#f)) - (let ((__tmp111844 |[1]#_g111845_|)) + (##unchecked-structure-set! __obj114809 __tmp114852 '13 '#f '#f)) + (let ((__tmp114854 |[1]#_g114855_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111799 __tmp111844 '14 '#f '#f)) - (let ((__tmp111846 (cons (cons 'continuation |[1]#_g111847_|) '()))) + (##unchecked-structure-set! __obj114809 __tmp114854 '14 '#f '#f)) + (let ((__tmp114856 (cons (cons 'continuation |[1]#_g114857_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj111799 __tmp111846 '15 '#f '#f)) - (let ((__tmp111848 (cons (cons 'continuation |[1]#_g111849_|) '()))) + (##unchecked-structure-set! __obj114809 __tmp114856 '15 '#f '#f)) + (let ((__tmp114858 (cons (cons 'continuation |[1]#_g114859_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj111799 __tmp111848 '16 '#f '#f)) - (let ((__tmp111850 (cons (cons 'continuation |[1]#_g111851_|) '()))) + (##unchecked-structure-set! __obj114809 __tmp114858 '16 '#f '#f)) + (let ((__tmp114860 (cons (cons 'continuation |[1]#_g114861_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj111799 __tmp111850 '17 '#f '#f)) - (let ((__tmp111852 (cons (cons 'continuation |[1]#_g111853_|) '()))) + (##unchecked-structure-set! __obj114809 __tmp114860 '17 '#f '#f)) + (let ((__tmp114862 (cons (cons 'continuation |[1]#_g114863_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj111799 __tmp111852 '18 '#f '#f)) + (##unchecked-structure-set! __obj114809 __tmp114862 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111799 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj114809 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111799 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj114809 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111799 '() '20 '#f '#f)) - __obj111799)) + (##unchecked-structure-set! __obj114809 '() '20 '#f '#f)) + __obj114809)) (define |[:0:]#Error| - (let ((__obj111800 + (let ((__obj114810 (let () (declare (not safe)) (##structure @@ -645,98 +645,98 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111800 + __obj114810 'gerbil/runtime/error#Error::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111800 'Error '2 '#f '#f)) + (##unchecked-structure-set! __obj114810 'Error '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj111800 + __obj114810 '(message irritants where) - '4 + '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj111800 + __obj114810 '(continuation message irritants where) - '6 + '7 '#f '#f)) - (let ((__tmp111854 (cons |[1]#_g111855_| (cons |[1]#_g111856_| '())))) + (let ((__tmp114864 (cons |[1]#_g114865_| (cons |[1]#_g114866_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111800 __tmp111854 '3 '#f '#f)) + (##unchecked-structure-set! __obj114810 __tmp114864 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111800 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj114810 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111800 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj114810 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111800 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj114810 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111800 ':init! '11 '#f '#f)) - (let ((__tmp111857 |[1]#_g111858_|)) + (##unchecked-structure-set! __obj114810 ':init! '12 '#f '#f)) + (let ((__tmp114867 |[1]#_g114868_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111800 __tmp111857 '12 '#f '#f)) - (let ((__tmp111859 |[1]#_g111860_|)) + (##unchecked-structure-set! __obj114810 __tmp114867 '3 '#f '#f)) + (let ((__tmp114869 |[1]#_g114870_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111800 __tmp111859 '13 '#f '#f)) - (let ((__tmp111861 |[1]#_g111862_|)) + (##unchecked-structure-set! __obj114810 __tmp114869 '13 '#f '#f)) + (let ((__tmp114871 |[1]#_g114872_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111800 __tmp111861 '14 '#f '#f)) - (let ((__tmp111863 - (cons (cons 'message |[1]#_g111864_|) - (cons (cons 'irritants |[1]#_g111865_|) - (cons (cons 'where |[1]#_g111866_|) - (cons (cons 'continuation |[1]#_g111867_|) + (##unchecked-structure-set! __obj114810 __tmp114871 '14 '#f '#f)) + (let ((__tmp114873 + (cons (cons 'message |[1]#_g114874_|) + (cons (cons 'irritants |[1]#_g114875_|) + (cons (cons 'where |[1]#_g114876_|) + (cons (cons 'continuation |[1]#_g114877_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj111800 __tmp111863 '15 '#f '#f)) - (let ((__tmp111868 - (cons (cons 'message |[1]#_g111869_|) - (cons (cons 'irritants |[1]#_g111870_|) - (cons (cons 'where |[1]#_g111871_|) - (cons (cons 'continuation |[1]#_g111872_|) + (##unchecked-structure-set! __obj114810 __tmp114873 '15 '#f '#f)) + (let ((__tmp114878 + (cons (cons 'message |[1]#_g114879_|) + (cons (cons 'irritants |[1]#_g114880_|) + (cons (cons 'where |[1]#_g114881_|) + (cons (cons 'continuation |[1]#_g114882_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj111800 __tmp111868 '16 '#f '#f)) - (let ((__tmp111873 - (cons (cons 'message |[1]#_g111874_|) - (cons (cons 'irritants |[1]#_g111875_|) - (cons (cons 'where |[1]#_g111876_|) - (cons (cons 'continuation |[1]#_g111877_|) + (##unchecked-structure-set! __obj114810 __tmp114878 '16 '#f '#f)) + (let ((__tmp114883 + (cons (cons 'message |[1]#_g114884_|) + (cons (cons 'irritants |[1]#_g114885_|) + (cons (cons 'where |[1]#_g114886_|) + (cons (cons 'continuation |[1]#_g114887_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj111800 __tmp111873 '17 '#f '#f)) - (let ((__tmp111878 - (cons (cons 'message |[1]#_g111879_|) - (cons (cons 'irritants |[1]#_g111880_|) - (cons (cons 'where |[1]#_g111881_|) - (cons (cons 'continuation |[1]#_g111882_|) + (##unchecked-structure-set! __obj114810 __tmp114883 '17 '#f '#f)) + (let ((__tmp114888 + (cons (cons 'message |[1]#_g114889_|) + (cons (cons 'irritants |[1]#_g114890_|) + (cons (cons 'where |[1]#_g114891_|) + (cons (cons 'continuation |[1]#_g114892_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj111800 __tmp111878 '18 '#f '#f)) + (##unchecked-structure-set! __obj114810 __tmp114888 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111800 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj114810 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111800 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj114810 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111800 '() '20 '#f '#f)) - __obj111800)) + (##unchecked-structure-set! __obj114810 '() '20 '#f '#f)) + __obj114810)) (define |[:0:]#ContractViolation| - (let ((__obj111801 + (let ((__obj114811 (let () (declare (not safe)) (##structure @@ -765,7 +765,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111801 + __obj114811 'gerbil/runtime/error#ContractViolation::t '1 '#f @@ -773,90 +773,90 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111801 + __obj114811 'ContractViolation '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111801 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj114811 '() '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj111801 + __obj114811 '(continuation message irritants where) - '6 + '7 '#f '#f)) - (let ((__tmp111883 (cons |[1]#_g111884_| '()))) + (let ((__tmp114893 (cons |[1]#_g114894_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj111801 __tmp111883 '3 '#f '#f)) + (##unchecked-structure-set! __obj114811 __tmp114893 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111801 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj114811 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111801 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj114811 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111801 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj114811 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111801 '#f '11 '#f '#f)) - (let ((__tmp111885 |[1]#_g111886_|)) + (##unchecked-structure-set! __obj114811 '#f '12 '#f '#f)) + (let ((__tmp114895 |[1]#_g114896_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111801 __tmp111885 '12 '#f '#f)) - (let ((__tmp111887 |[1]#_g111888_|)) + (##unchecked-structure-set! __obj114811 __tmp114895 '3 '#f '#f)) + (let ((__tmp114897 |[1]#_g114898_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111801 __tmp111887 '13 '#f '#f)) - (let ((__tmp111889 |[1]#_g111890_|)) + (##unchecked-structure-set! __obj114811 __tmp114897 '13 '#f '#f)) + (let ((__tmp114899 |[1]#_g114900_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111801 __tmp111889 '14 '#f '#f)) - (let ((__tmp111891 - (cons (cons 'message |[1]#_g111892_|) - (cons (cons 'irritants |[1]#_g111893_|) - (cons (cons 'where |[1]#_g111894_|) - (cons (cons 'continuation |[1]#_g111895_|) + (##unchecked-structure-set! __obj114811 __tmp114899 '14 '#f '#f)) + (let ((__tmp114901 + (cons (cons 'message |[1]#_g114902_|) + (cons (cons 'irritants |[1]#_g114903_|) + (cons (cons 'where |[1]#_g114904_|) + (cons (cons 'continuation |[1]#_g114905_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj111801 __tmp111891 '15 '#f '#f)) - (let ((__tmp111896 - (cons (cons 'message |[1]#_g111897_|) - (cons (cons 'irritants |[1]#_g111898_|) - (cons (cons 'where |[1]#_g111899_|) - (cons (cons 'continuation |[1]#_g111900_|) + (##unchecked-structure-set! __obj114811 __tmp114901 '15 '#f '#f)) + (let ((__tmp114906 + (cons (cons 'message |[1]#_g114907_|) + (cons (cons 'irritants |[1]#_g114908_|) + (cons (cons 'where |[1]#_g114909_|) + (cons (cons 'continuation |[1]#_g114910_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj111801 __tmp111896 '16 '#f '#f)) - (let ((__tmp111901 - (cons (cons 'message |[1]#_g111902_|) - (cons (cons 'irritants |[1]#_g111903_|) - (cons (cons 'where |[1]#_g111904_|) - (cons (cons 'continuation |[1]#_g111905_|) + (##unchecked-structure-set! __obj114811 __tmp114906 '16 '#f '#f)) + (let ((__tmp114911 + (cons (cons 'message |[1]#_g114912_|) + (cons (cons 'irritants |[1]#_g114913_|) + (cons (cons 'where |[1]#_g114914_|) + (cons (cons 'continuation |[1]#_g114915_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj111801 __tmp111901 '17 '#f '#f)) - (let ((__tmp111906 - (cons (cons 'message |[1]#_g111907_|) - (cons (cons 'irritants |[1]#_g111908_|) - (cons (cons 'where |[1]#_g111909_|) - (cons (cons 'continuation |[1]#_g111910_|) + (##unchecked-structure-set! __obj114811 __tmp114911 '17 '#f '#f)) + (let ((__tmp114916 + (cons (cons 'message |[1]#_g114917_|) + (cons (cons 'irritants |[1]#_g114918_|) + (cons (cons 'where |[1]#_g114919_|) + (cons (cons 'continuation |[1]#_g114920_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj111801 __tmp111906 '18 '#f '#f)) + (##unchecked-structure-set! __obj114811 __tmp114916 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111801 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj114811 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111801 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj114811 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111801 '() '20 '#f '#f)) - __obj111801)) + (##unchecked-structure-set! __obj114811 '() '20 '#f '#f)) + __obj114811)) (define |[:0:]#RuntimeException| - (let ((__obj111802 + (let ((__obj114812 (let () (declare (not safe)) (##structure @@ -885,7 +885,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111802 + __obj114812 'gerbil/runtime/error#RuntimeException::t '1 '#f @@ -893,277 +893,278 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj111802 + __obj114812 'RuntimeException '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111802 '(exception) '4 '#f '#f)) + (##unchecked-structure-set! __obj114812 '(exception) '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj111802 + __obj114812 '(continuation exception) - '6 + '7 '#f '#f)) - (let ((__tmp111911 (cons |[1]#_g111855_| (cons |[1]#_g111856_| '())))) + (let ((__tmp114921 (cons |[1]#_g114865_| (cons |[1]#_g114866_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111802 __tmp111911 '3 '#f '#f)) + (##unchecked-structure-set! __obj114812 __tmp114921 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111802 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj114812 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111802 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj114812 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111802 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj114812 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111802 '#f '11 '#f '#f)) - (let ((__tmp111912 |[1]#_g111913_|)) + (##unchecked-structure-set! __obj114812 '#f '12 '#f '#f)) + (let ((__tmp114922 |[1]#_g114923_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111802 __tmp111912 '12 '#f '#f)) - (let ((__tmp111914 |[1]#_g111915_|)) + (##unchecked-structure-set! __obj114812 __tmp114922 '3 '#f '#f)) + (let ((__tmp114924 |[1]#_g114925_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111802 __tmp111914 '13 '#f '#f)) - (let ((__tmp111916 |[1]#_g111917_|)) + (##unchecked-structure-set! __obj114812 __tmp114924 '13 '#f '#f)) + (let ((__tmp114926 |[1]#_g114927_|)) (declare (not safe)) - (##unchecked-structure-set! __obj111802 __tmp111916 '14 '#f '#f)) - (let ((__tmp111918 - (cons (cons 'exception |[1]#_g111919_|) - (cons (cons 'continuation |[1]#_g111920_|) '())))) + (##unchecked-structure-set! __obj114812 __tmp114926 '14 '#f '#f)) + (let ((__tmp114928 + (cons (cons 'exception |[1]#_g114929_|) + (cons (cons 'continuation |[1]#_g114930_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111802 __tmp111918 '15 '#f '#f)) - (let ((__tmp111921 - (cons (cons 'exception |[1]#_g111922_|) - (cons (cons 'continuation |[1]#_g111923_|) '())))) + (##unchecked-structure-set! __obj114812 __tmp114928 '15 '#f '#f)) + (let ((__tmp114931 + (cons (cons 'exception |[1]#_g114932_|) + (cons (cons 'continuation |[1]#_g114933_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111802 __tmp111921 '16 '#f '#f)) - (let ((__tmp111924 - (cons (cons 'exception |[1]#_g111925_|) - (cons (cons 'continuation |[1]#_g111926_|) '())))) + (##unchecked-structure-set! __obj114812 __tmp114931 '16 '#f '#f)) + (let ((__tmp114934 + (cons (cons 'exception |[1]#_g114935_|) + (cons (cons 'continuation |[1]#_g114936_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111802 __tmp111924 '17 '#f '#f)) - (let ((__tmp111927 - (cons (cons 'exception |[1]#_g111928_|) - (cons (cons 'continuation |[1]#_g111929_|) '())))) + (##unchecked-structure-set! __obj114812 __tmp114934 '17 '#f '#f)) + (let ((__tmp114937 + (cons (cons 'exception |[1]#_g114938_|) + (cons (cons 'continuation |[1]#_g114939_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj111802 __tmp111927 '18 '#f '#f)) + (##unchecked-structure-set! __obj114812 __tmp114937 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111802 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj114812 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111802 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj114812 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj111802 '() '20 '#f '#f)) - __obj111802)) + (##unchecked-structure-set! __obj114812 '() '20 '#f '#f)) + __obj114812)) (define |[:0:]#defruntime-exception| - (lambda (_%stx109946%_) - (let* ((_%g109949109976%_ - (lambda (_%g109950109972%_) + (lambda (_%stx112967%_) + (let* ((_%g112970112997%_ + (lambda (_%g112971112993%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g109950109972%_))) - (_%g109948110212%_ - (lambda (_%g109950109980%_) - (if (gx#stx-pair? _%g109950109980%_) - (let ((_%e109953109983%_ - (gx#syntax-e _%g109950109980%_))) - (let ((_%hd109954109987%_ + _%g112971112993%_))) + (_%g112969113229%_ + (lambda (_%g112971113001%_) + (if (gx#stx-pair? _%g112971113001%_) + (let ((_%e112974113004%_ + (gx#syntax-e _%g112971113001%_))) + (let ((_%hd112975113008%_ (let () (declare (not safe)) - (##car _%e109953109983%_))) - (_%tl109955109990%_ + (##car _%e112974113004%_))) + (_%tl112976113011%_ (let () (declare (not safe)) - (##cdr _%e109953109983%_)))) - (if (gx#stx-pair? _%tl109955109990%_) - (let ((_%e109956109993%_ - (gx#syntax-e _%tl109955109990%_))) - (let ((_%hd109957109997%_ + (##cdr _%e112974113004%_)))) + (if (gx#stx-pair? _%tl112976113011%_) + (let ((_%e112977113014%_ + (gx#syntax-e _%tl112976113011%_))) + (let ((_%hd112978113018%_ (let () (declare (not safe)) - (##car _%e109956109993%_))) - (_%tl109958110000%_ + (##car _%e112977113014%_))) + (_%tl112979113021%_ (let () (declare (not safe)) - (##cdr _%e109956109993%_)))) - (if (gx#stx-pair? _%hd109957109997%_) - (let ((_%e109959110003%_ - (gx#syntax-e _%hd109957109997%_))) - (let ((_%hd109960110007%_ + (##cdr _%e112977113014%_)))) + (if (gx#stx-pair? _%hd112978113018%_) + (let ((_%e112980113024%_ + (gx#syntax-e _%hd112978113018%_))) + (let ((_%hd112981113028%_ (let () (declare (not safe)) - (##car _%e109959110003%_))) - (_%tl109961110010%_ + (##car _%e112980113024%_))) + (_%tl112982113031%_ (let () (declare (not safe)) - (##cdr _%e109959110003%_)))) + (##cdr _%e112980113024%_)))) (if (gx#stx-pair/null? - _%tl109961110010%_) - (let ((_g111930_ + _%tl112982113031%_) + (let ((_g114940_ (gx#syntax-split-splice - _%tl109961110010%_ + _%tl112982113031%_ '0))) (begin - (let ((_g111931_ + (let ((_g114941_ (let () (declare (not safe)) (if (##values? - _g111930_) + _g114940_) (##values-length - _g111930_) + _g114940_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g111931_ 2))) - (error "Context expects 2 values" _g111931_))) + (##fx= _g114941_ 2))) + (error "Context expects 2 values" _g114941_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target109962110013%_ + (let ((_%target112983113034%_ (let () (declare (not safe)) (##values-ref - _g111930_ + _g114940_ 0))) - (_%tl109964110016%_ + (_%tl112985113037%_ (let () (declare (not safe)) (##values-ref - _g111930_ + _g114940_ 1)))) (if (gx#stx-null? - _%tl109964110016%_) - (letrec ((_%loop109965110019%_ + _%tl112985113037%_) + (letrec ((_%loop112986113040%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd109963110023%_ _%getf109969110026%_) - (if (gx#stx-pair? _%hd109963110023%_) - (let ((_%e109966110029%_ - (gx#syntax-e _%hd109963110023%_))) - (let ((_%lp-hd109967110033%_ + (lambda (_%hd112984113044%_ _%getf112990113047%_) + (if (gx#stx-pair? _%hd112984113044%_) + (let ((_%e112987113049%_ + (gx#syntax-e _%hd112984113044%_))) + (let ((_%lp-hd112988113053%_ (let () (declare (not safe)) - (##car _%e109966110029%_))) - (_%lp-tl109968110036%_ + (##car _%e112987113049%_))) + (_%lp-tl112989113056%_ (let () (declare (not safe)) - (##cdr _%e109966110029%_)))) - (_%loop109965110019%_ - _%lp-tl109968110036%_ - (cons _%lp-hd109967110033%_ - _%getf109969110026%_)))) - (let ((_%getf109970110039%_ - (reverse _%getf109969110026%_))) - (if (gx#stx-null? _%tl109958110000%_) - ((lambda (_%L110043%_ _%L110045%_) - (let* ((_%g110066110090%_ - (lambda (_%g110067110086%_) + (##cdr _%e112987113049%_)))) + (_%loop112986113040%_ + _%lp-tl112989113056%_ + (cons _%lp-hd112988113053%_ + _%getf112990113047%_)))) + (let ((_%getf112991113059%_ + (reverse _%getf112990113047%_))) + (if (gx#stx-null? _%tl112979113021%_) + ((lambda (_%g112972113062%_ + _%g112973113064%_) + (let* ((_%g113085113109%_ + (lambda (_%g113086113105%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110067110086%_))) - (_%g110065110197%_ - (lambda (_%g110067110094%_) + _%g113086113105%_))) + (_%g113084113214%_ + (lambda (_%g113086113113%_) (if (gx#stx-pair? - _%g110067110094%_) - (let ((_%e110070110097%_ + _%g113086113113%_) + (let ((_%e113089113116%_ (gx#syntax-e - _%g110067110094%_))) - (let ((_%hd110071110101%_ + _%g113086113113%_))) + (let ((_%hd113090113120%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e110070110097%_))) - (_%tl110072110104%_ + (##car _%e113089113116%_))) + (_%tl113091113123%_ (let () (declare (not safe)) - (##cdr _%e110070110097%_)))) - (if (gx#stx-pair? _%tl110072110104%_) - (let ((_%e110073110107%_ - (gx#syntax-e _%tl110072110104%_))) - (let ((_%hd110074110111%_ + (##cdr _%e113089113116%_)))) + (if (gx#stx-pair? _%tl113091113123%_) + (let ((_%e113092113126%_ + (gx#syntax-e _%tl113091113123%_))) + (let ((_%hd113093113130%_ (let () (declare (not safe)) - (##car _%e110073110107%_))) - (_%tl110075110114%_ + (##car _%e113092113126%_))) + (_%tl113094113133%_ (let () (declare (not safe)) - (##cdr _%e110073110107%_)))) - (if (gx#stx-pair/null? _%hd110074110111%_) - (let ((_g111932_ + (##cdr _%e113092113126%_)))) + (if (gx#stx-pair/null? _%hd113093113130%_) + (let ((_g114942_ (gx#syntax-split-splice - _%hd110074110111%_ + _%hd113093113130%_ '0))) (begin - (let ((_g111933_ + (let ((_g114943_ (let () (declare (not safe)) - (if (##values? _g111932_) - (##values-length _g111932_) + (if (##values? _g114942_) + (##values-length _g114942_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g111933_ 2))) + (##fx= _g114943_ 2))) (error "Context expects 2 values" - _g111933_))) - (let ((_%target110076110117%_ + _g114943_))) + (let ((_%target113095113136%_ (let () (declare (not safe)) - (##values-ref _g111932_ 0))) - (_%tl110078110120%_ + (##values-ref _g114942_ 0))) + (_%tl113097113139%_ (let () (declare (not safe)) - (##values-ref _g111932_ 1)))) - (if (gx#stx-null? _%tl110078110120%_) - (letrec ((_%loop110079110123%_ - (lambda (_%hd110077110127%_ - _%macro-getf110083110130%_) + (##values-ref _g114942_ 1)))) + (if (gx#stx-null? _%tl113097113139%_) + (letrec ((_%loop113098113142%_ + (lambda (_%hd113096113146%_ + _%macro-getf113102113149%_) (if (gx#stx-pair? - _%hd110077110127%_) - (let ((_%e110080110133%_ + _%hd113096113146%_) + (let ((_%e113099113151%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd110077110127%_))) - (let ((_%lp-hd110081110137%_ + _%hd113096113146%_))) + (let ((_%lp-hd113100113155%_ (let () (declare (not safe)) - (##car _%e110080110133%_))) - (_%lp-tl110082110140%_ + (##car _%e113099113151%_))) + (_%lp-tl113101113158%_ (let () (declare (not safe)) - (##cdr _%e110080110133%_)))) - (_%loop110079110123%_ - _%lp-tl110082110140%_ - (cons _%lp-hd110081110137%_ - _%macro-getf110083110130%_)))) - (let ((_%macro-getf110084110143%_ - (reverse _%macro-getf110083110130%_))) - (if (gx#stx-null? _%tl110075110114%_) - ((lambda (_%L110147%_ _%L110149%_) + (##cdr _%e113099113151%_)))) + (_%loop113098113142%_ + _%lp-tl113101113158%_ + (cons _%lp-hd113100113155%_ + _%macro-getf113102113149%_)))) + (let ((_%macro-getf113103113161%_ + (reverse _%macro-getf113102113149%_))) + (if (gx#stx-null? _%tl113094113133%_) + ((lambda (_%g113087113164%_ _%g113088113166%_) (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'extern) - (cons _%L110149%_ - (let ((__tmp111934 - (lambda (_%g110168110177%_ + (cons _%g113088113166%_ + (let ((__tmp114944 + (lambda (_%g113185113194%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g110169110180%_) - (cons _%g110168110177%_ _%g110169110180%_)))) + _%g113186113197%_) + (cons _%g113185113194%_ _%g113186113197%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp111934 + __tmp114944 '() - _%L110147%_)))) + _%g113087113164%_)))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L110045%_ + (cons (cons _%g112973113064%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1185,7 +1186,7 @@ (cons (gx#datum->syntax '#f 'exn) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L110149%_ + (cons (cons _%g113088113166%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1193,7 +1194,7 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L110149%_ + (cons (cons _%g113088113166%_ (cons (gx#datum->syntax '#f 'exn) @@ -1203,23 +1204,23 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin (gx#syntax-check-splice-targets - _%L110043%_ - _%L110147%_ - _%L110043%_ - _%L110147%_ - _%L110043%_) - (let ((__tmp111935 - (lambda (_%g110170110183%_ - _%g110171110186%_ - _%g110172110188%_ - _%g110173110190%_ - _%g110174110192%_ - _%g110175110194%_) + _%g112972113062%_ + _%g113087113164%_ + _%g112972113062%_ + _%g113087113164%_ + _%g112972113062%_) + (let ((__tmp114945 + (lambda (_%g113187113200%_ + _%g113188113203%_ + _%g113189113205%_ + _%g113190113207%_ + _%g113191113209%_ + _%g113192113211%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%g110170110183%_ + (cons (cons _%g113187113200%_ (cons (gx#datum->syntax '#f 'exn) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax @@ -1245,12 +1246,12 @@ '())) '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L110149%_ + (cons (cons _%g113088113166%_ (cons (gx#datum->syntax '#f 'e) '())) - (cons (cons _%g110171110186%_ + (cons (cons _%g113188113203%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1263,12 +1264,12 @@ 'error) (cons '"not an instance" (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L110045%_ '())) + (cons _%g112973113064%_ '())) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g110170110183%_ + (cons _%g113187113200%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (gx#datum->syntax '#f 'e) '()))) @@ -1278,10 +1279,10 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L110149%_ + (cons (cons _%g113088113166%_ (cons (gx#datum->syntax '#f 'exn) '())) - (cons (cons _%g110171110186%_ + (cons (cons _%g113188113203%_ (cons (gx#datum->syntax '#f 'exn) @@ -1294,10 +1295,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L110045%_ '())) + (cons _%g112973113064%_ '())) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g110170110183%_ '())) + (cons _%g113187113200%_ '())) (cons (gx#datum->syntax '#f 'exn) '()))) '())))) @@ -1306,148 +1307,148 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%g110175110194%_)))) + _%g113192113211%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr* - __tmp111935 + __tmp114945 '() - _%L110043%_ - _%L110147%_ - _%L110043%_ - _%L110147%_ - _%L110043%_))))))) - _%macro-getf110084110143%_ - _%hd110071110101%_) - (_%g110066110090%_ _%g110067110094%_))))))) + _%g112972113062%_ + _%g113087113164%_ + _%g112972113062%_ + _%g113087113164%_ + _%g112972113062%_))))))) + _%macro-getf113103113161%_ + _%hd113090113120%_) + (_%g113085113109%_ _%g113086113113%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop110079110123%_ - _%target110076110117%_ + (_%loop113098113142%_ + _%target113095113136%_ '())) - (_%g110066110090%_ - _%g110067110094%_))))) - (_%g110066110090%_ _%g110067110094%_)))) - (_%g110066110090%_ _%g110067110094%_)))) - (_%g110066110090%_ _%g110067110094%_))))) + (_%g113085113109%_ + _%g113086113113%_))))) + (_%g113085113109%_ _%g113086113113%_)))) + (_%g113085113109%_ _%g113086113113%_)))) + (_%g113085113109%_ _%g113086113113%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g110065110197%_ + (_%g113084113214%_ (list (gx#stx-identifier - _%L110045%_ + _%g112973113064%_ '"macro-" - _%L110045%_) - (map (lambda (_%f110201%_) + _%g112973113064%_) + (map (lambda (_%f113218%_) (gx#stx-identifier - _%f110201%_ + _%f113218%_ '"macro-" - _%f110201%_)) - (let ((__tmp111936 - (lambda (_%g110203110206%_ + _%f113218%_)) + (let ((__tmp114946 + (lambda (_%g113220113223%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g110204110209%_) - (cons _%g110203110206%_ _%g110204110209%_)))) + _%g113221113226%_) + (cons _%g113220113223%_ _%g113221113226%_)))) (declare (not safe)) - (__foldr1 __tmp111936 '() _%L110043%_))))))) + (__foldr1 __tmp114946 '() _%g112972113062%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%getf109970110039%_ - _%hd109960110007%_) - (_%g109949109976%_ - _%g109950109980%_))))))) - (_%loop109965110019%_ _%target109962110013%_ '())) - (_%g109949109976%_ _%g109950109980%_))))) + _%getf112991113059%_ + _%hd112981113028%_) + (_%g112970112997%_ + _%g112971113001%_))))))) + (_%loop112986113040%_ _%target112983113034%_ '())) + (_%g112970112997%_ _%g112971113001%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g109949109976%_ - _%g109950109980%_)))) - (_%g109949109976%_ _%g109950109980%_)))) - (_%g109949109976%_ _%g109950109980%_)))) - (_%g109949109976%_ _%g109950109980%_))))) - (_%g109948110212%_ _%stx109946%_)))) + (_%g112970112997%_ + _%g112971113001%_)))) + (_%g112970112997%_ _%g112971113001%_)))) + (_%g112970112997%_ _%g112971113001%_)))) + (_%g112970112997%_ _%g112971113001%_))))) + (_%g112969113229%_ _%stx112967%_)))) (define |[:0:]#defruntime-exceptions| - (lambda (_%$stx110218%_) - (let* ((_%g110222110242%_ - (lambda (_%g110223110238%_) + (lambda (_%$stx113235%_) + (let* ((_%g113239113259%_ + (lambda (_%g113240113255%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110223110238%_))) - (_%g110221110313%_ - (lambda (_%g110223110246%_) - (if (gx#stx-pair? _%g110223110246%_) - (let ((_%e110225110249%_ - (gx#syntax-e _%g110223110246%_))) - (let ((_%hd110226110253%_ + _%g113240113255%_))) + (_%g113238113328%_ + (lambda (_%g113240113263%_) + (if (gx#stx-pair? _%g113240113263%_) + (let ((_%e113242113266%_ + (gx#syntax-e _%g113240113263%_))) + (let ((_%hd113243113270%_ (let () (declare (not safe)) - (##car _%e110225110249%_))) - (_%tl110227110256%_ + (##car _%e113242113266%_))) + (_%tl113244113273%_ (let () (declare (not safe)) - (##cdr _%e110225110249%_)))) - (if (gx#stx-pair/null? _%tl110227110256%_) - (let ((_g111937_ + (##cdr _%e113242113266%_)))) + (if (gx#stx-pair/null? _%tl113244113273%_) + (let ((_g114947_ (gx#syntax-split-splice - _%tl110227110256%_ + _%tl113244113273%_ '0))) (begin - (let ((_g111938_ + (let ((_g114948_ (let () (declare (not safe)) - (if (##values? _g111937_) - (##values-length _g111937_) + (if (##values? _g114947_) + (##values-length _g114947_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g111938_ 2))) + (##fx= _g114948_ 2))) (error "Context expects 2 values" - _g111938_))) - (let ((_%target110228110259%_ + _g114948_))) + (let ((_%target113245113276%_ (let () (declare (not safe)) - (##values-ref _g111937_ 0))) - (_%tl110230110262%_ + (##values-ref _g114947_ 0))) + (_%tl113247113279%_ (let () (declare (not safe)) - (##values-ref _g111937_ 1)))) - (if (gx#stx-null? _%tl110230110262%_) - (letrec ((_%loop110231110265%_ - (lambda (_%hd110229110269%_ - _%defexn110235110272%_) + (##values-ref _g114947_ 1)))) + (if (gx#stx-null? _%tl113247113279%_) + (letrec ((_%loop113248113282%_ + (lambda (_%hd113246113286%_ + _%defexn113252113289%_) (if (gx#stx-pair? - _%hd110229110269%_) - (let ((_%e110232110275%_ + _%hd113246113286%_) + (let ((_%e113249113291%_ (gx#syntax-e - _%hd110229110269%_))) - (let ((_%lp-hd110233110279%_ + _%hd113246113286%_))) + (let ((_%lp-hd113250113295%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%e110232110275%_))) - (_%lp-tl110234110282%_ + (##car _%e113249113291%_))) + (_%lp-tl113251113298%_ (let () (declare (not safe)) - (##cdr _%e110232110275%_)))) - (_%loop110231110265%_ - _%lp-tl110234110282%_ - (cons _%lp-hd110233110279%_ _%defexn110235110272%_)))) - (let ((_%defexn110236110285%_ - (reverse _%defexn110235110272%_))) - ((lambda (_%L110289%_) + (##cdr _%e113249113291%_)))) + (_%loop113248113282%_ + _%lp-tl113251113298%_ + (cons _%lp-hd113250113295%_ _%defexn113252113289%_)))) + (let ((_%defexn113253113301%_ + (reverse _%defexn113252113289%_))) + ((lambda (_%g113241113304%_) (cons (gx#datum->syntax '#f 'begin) - (let ((__tmp111939 - (lambda (_%g110304110307%_ _%g110305110310%_) + (let ((__tmp114949 + (lambda (_%g113319113322%_ _%g113320113325%_) (cons (cons (gx#datum->syntax '#f 'defruntime-exception) - (cons _%g110304110307%_ '())) - _%g110305110310%_)))) + (cons _%g113319113322%_ '())) + _%g113320113325%_)))) (declare (not safe)) - (__foldr1 __tmp111939 '() _%L110289%_)))) - _%defexn110236110285%_)))))) + (__foldr1 __tmp114949 '() _%g113241113304%_)))) + _%defexn113253113301%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop110231110265%_ - _%target110228110259%_ + (_%loop113248113282%_ + _%target113245113276%_ '())) - (_%g110222110242%_ - _%g110223110246%_))))) - (_%g110222110242%_ _%g110223110246%_)))) - (_%g110222110242%_ _%g110223110246%_))))) - (_%g110221110313%_ _%$stx110218%_)))))) + (_%g113239113259%_ + _%g113240113263%_))))) + (_%g113239113259%_ _%g113240113263%_)))) + (_%g113239113259%_ _%g113240113263%_))))) + (_%g113238113328%_ _%$stx113235%_)))))) diff --git a/src/bootstrap/gerbil/runtime/eval~0.scm b/src/bootstrap/gerbil/runtime/eval~0.scm index 48249b9441..d67f898cd9 100644 --- a/src/bootstrap/gerbil/runtime/eval~0.scm +++ b/src/bootstrap/gerbil/runtime/eval~0.scm @@ -1,22 +1,22 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/eval::timestamp 1756721295) + (define gerbil/runtime/eval::timestamp 1769384628) (begin (define __syntax::t - (let ((__tmp123515 (list)) (__tmp123514 (cons (cons 'struct: '#t) '()))) + (let ((__tmp127283 (list)) (__tmp127282 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__syntax::t '__syntax - __tmp123515 + __tmp127283 '(e id) - __tmp123514 + __tmp127282 '#f))) (define __syntax? (let () (declare (not safe)) (__make-class-predicate __syntax::t))) (define make-__syntax - (lambda _%$args123319%_ - (apply make-instance __syntax::t _%$args123319%_))) + (lambda _%$args127087%_ + (apply make-instance __syntax::t _%$args127087%_))) (define __syntax-e (let () (declare (not safe)) @@ -48,21 +48,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator __syntax::t 'id))) (define __core-form::t - (let ((__tmp123517 (list __syntax::t)) - (__tmp123516 (cons (cons 'struct: '#t) '()))) + (let ((__tmp127285 (list __syntax::t)) + (__tmp127284 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-form::t '__core-form - __tmp123517 + __tmp127285 '() - __tmp123516 + __tmp127284 '#f))) (define __core-form? (let () (declare (not safe)) (__make-class-predicate __core-form::t))) (define make-__core-form - (lambda _%$args123316%_ - (apply make-instance __core-form::t _%$args123316%_))) + (lambda _%$args127084%_ + (apply make-instance __core-form::t _%$args127084%_))) (define __core-form-e (let () (declare (not safe)) @@ -96,23 +96,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator __core-form::t 'id))) (define __core-expression::t - (let ((__tmp123519 (list __core-form::t)) - (__tmp123518 (cons (cons 'struct: '#t) '()))) + (let ((__tmp127287 (list __core-form::t)) + (__tmp127286 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-expression::t '__core-expression - __tmp123519 + __tmp127287 '() - __tmp123518 + __tmp127286 '#f))) (define __core-expression? (let () (declare (not safe)) (__make-class-predicate __core-expression::t))) (define make-__core-expression - (lambda _%$args123313%_ - (apply make-instance __core-expression::t _%$args123313%_))) + (lambda _%$args127081%_ + (apply make-instance __core-expression::t _%$args127081%_))) (define __core-expression-e (let () (declare (not safe)) @@ -146,23 +146,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator __core-expression::t 'id))) (define __core-special-form::t - (let ((__tmp123521 (list __core-form::t)) - (__tmp123520 (cons (cons 'struct: '#t) '()))) + (let ((__tmp127289 (list __core-form::t)) + (__tmp127288 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-special-form::t '__core-special-form - __tmp123521 + __tmp127289 '() - __tmp123520 + __tmp127288 '#f))) (define __core-special-form? (let () (declare (not safe)) (__make-class-predicate __core-special-form::t))) (define make-__core-special-form - (lambda _%$args123310%_ - (apply make-instance __core-special-form::t _%$args123310%_))) + (lambda _%$args127078%_ + (apply make-instance __core-special-form::t _%$args127078%_))) (define __core-special-form-e (let () (declare (not safe)) @@ -200,407 +200,407 @@ (define __current-compiler (make-parameter '#f)) (define __current-path (make-parameter '())) (define __core-resolve - (lambda (_%id123308%_) - (let ((__tmp123522 - (let () (declare (not safe)) (__AST-e _%id123308%_)))) + (lambda (_%id127076%_) + (let ((__tmp127290 + (let () (declare (not safe)) (__AST-e _%id127076%_)))) (declare (not safe)) - (__hash-get __core __tmp123522)))) + (__hash-get __core __tmp127290)))) (define __core-bound-id?__% - (lambda (_%id123291%_ _%is?123292%_) - (let ((_%$e123294%_ (__core-resolve _%id123291%_))) - (if _%$e123294%_ (_%is?123292%_ _%$e123294%_) '#f)))) + (lambda (_%id127059%_ _%is?127060%_) + (let ((_%$e127062%_ (__core-resolve _%id127059%_))) + (if _%$e127062%_ (_%is?127060%_ _%$e127062%_) '#f)))) (define __core-bound-id?__0 - (lambda (_%id123301%_) - (let ((_%is?123303%_ true)) - (__core-bound-id?__% _%id123301%_ _%is?123303%_)))) + (lambda (_%id127069%_) + (let ((_%is?127071%_ true)) + (__core-bound-id?__% _%id127069%_ _%is?127071%_)))) (define __core-bound-id? - (lambda _g123523_ - (let ((_g123524_ (let () (declare (not safe)) (##length _g123523_)))) - (cond ((let () (declare (not safe)) (##fx= _g123524_ 1)) - (apply __core-bound-id?__0 _g123523_)) - ((let () (declare (not safe)) (##fx= _g123524_ 2)) - (apply __core-bound-id?__% _g123523_)) + (lambda _g127291_ + (let ((_g127292_ (let () (declare (not safe)) (##length _g127291_)))) + (cond ((let () (declare (not safe)) (##fx= _g127292_ 1)) + (apply __core-bound-id?__0 _g127291_)) + ((let () (declare (not safe)) (##fx= _g127292_ 2)) + (apply __core-bound-id?__% _g127291_)) (else (##raise-wrong-number-of-arguments-exception __core-bound-id? - _g123523_)))))) + _g127291_)))))) (define __core-bind-syntax!__% - (lambda (_%id123274%_ _%e123275%_ _%make123276%_) - (let ((__tmp123525 + (lambda (_%id127042%_ _%e127043%_ _%make127044%_) + (let ((__tmp127293 (if (let () (declare (not safe)) (##structure-instance-of? - _%e123275%_ + _%e127043%_ 'gerbil/runtime/eval#__syntax::t)) - _%e123275%_ - (_%make123276%_ _%e123275%_ _%id123274%_)))) + _%e127043%_ + (_%make127044%_ _%e127043%_ _%id127042%_)))) (declare (not safe)) - (__hash-put! __core _%id123274%_ __tmp123525)))) + (__hash-put! __core _%id127042%_ __tmp127293)))) (define __core-bind-syntax!__0 - (lambda (_%id123281%_ _%e123282%_) - (let ((_%make123284%_ make-__syntax)) - (__core-bind-syntax!__% _%id123281%_ _%e123282%_ _%make123284%_)))) + (lambda (_%id127049%_ _%e127050%_) + (let ((_%make127052%_ make-__syntax)) + (__core-bind-syntax!__% _%id127049%_ _%e127050%_ _%make127052%_)))) (define __core-bind-syntax! - (lambda _g123526_ - (let ((_g123527_ (let () (declare (not safe)) (##length _g123526_)))) - (cond ((let () (declare (not safe)) (##fx= _g123527_ 2)) - (apply __core-bind-syntax!__0 _g123526_)) - ((let () (declare (not safe)) (##fx= _g123527_ 3)) - (apply __core-bind-syntax!__% _g123526_)) + (lambda _g127294_ + (let ((_g127295_ (let () (declare (not safe)) (##length _g127294_)))) + (cond ((let () (declare (not safe)) (##fx= _g127295_ 2)) + (apply __core-bind-syntax!__0 _g127294_)) + ((let () (declare (not safe)) (##fx= _g127295_ 3)) + (apply __core-bind-syntax!__% _g127294_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-syntax! - _g123526_)))))) + _g127294_)))))) (define __SRC__% - (lambda (_%e123254%_ _%src-stx123255%_) - (if (or (pair? _%e123254%_) (symbol? _%e123254%_)) - (let ((__tmp123528 + (lambda (_%e127022%_ _%src-stx127023%_) + (if (or (pair? _%e127022%_) (symbol? _%e127022%_)) + (let ((__tmp127296 (if (let () (declare (not safe)) (##structure-instance-of? - _%src-stx123255%_ + _%src-stx127023%_ 'gerbil#AST::t)) (__locat (let () (declare (not safe)) - (__AST-source _%src-stx123255%_))) + (__AST-source _%src-stx127023%_))) '#f))) (declare (not safe)) - (##make-source _%e123254%_ __tmp123528)) + (##make-source _%e127022%_ __tmp127296)) (if (let () (declare (not safe)) - (##structure-instance-of? _%e123254%_ 'gerbil#AST::t)) - (let ((__tmp123530 + (##structure-instance-of? _%e127022%_ 'gerbil#AST::t)) + (let ((__tmp127298 (let () (declare (not safe)) - (##unchecked-structure-ref _%e123254%_ '1 '#f '#f))) - (__tmp123529 + (##unchecked-structure-ref _%e127022%_ '1 '#f '#f))) + (__tmp127297 (__locat (let () (declare (not safe)) - (__AST-source _%e123254%_))))) + (__AST-source _%e127022%_))))) (declare (not safe)) - (##make-source __tmp123530 __tmp123529)) + (##make-source __tmp127298 __tmp127297)) (let () (declare (not safe)) - (error '"BUG! Cannot sourcify object" _%e123254%_)))))) + (error '"BUG! Cannot sourcify object" _%e127022%_)))))) (define __SRC__0 - (lambda (_%e123266%_) - (let ((_%src-stx123268%_ '#f)) - (__SRC__% _%e123266%_ _%src-stx123268%_)))) + (lambda (_%e127034%_) + (let ((_%src-stx127036%_ '#f)) + (__SRC__% _%e127034%_ _%src-stx127036%_)))) (define __SRC - (lambda _g123531_ - (let ((_g123532_ (let () (declare (not safe)) (##length _g123531_)))) - (cond ((let () (declare (not safe)) (##fx= _g123532_ 1)) - (apply __SRC__0 _g123531_)) - ((let () (declare (not safe)) (##fx= _g123532_ 2)) - (apply __SRC__% _g123531_)) + (lambda _g127299_ + (let ((_g127300_ (let () (declare (not safe)) (##length _g127299_)))) + (cond ((let () (declare (not safe)) (##fx= _g127300_ 1)) + (apply __SRC__0 _g127299_)) + ((let () (declare (not safe)) (##fx= _g127300_ 2)) + (apply __SRC__% _g127299_)) (else (##raise-wrong-number-of-arguments-exception __SRC - _g123531_)))))) + _g127299_)))))) (define __locat - (lambda (_%loc123251%_) - (if (let () (declare (not safe)) (##locat? _%loc123251%_)) - _%loc123251%_ + (lambda (_%loc127019%_) + (if (let () (declare (not safe)) (##locat? _%loc127019%_)) + _%loc127019%_ '#f))) (define __check-values - (lambda (_%obj123246%_ _%k123247%_) - (let ((_%count123249%_ - (if (let () (declare (not safe)) (##values? _%obj123246%_)) + (lambda (_%obj127014%_ _%k127015%_) + (let ((_%count127017%_ + (if (let () (declare (not safe)) (##values? _%obj127014%_)) (let () (declare (not safe)) - (##values-length _%obj123246%_)) + (##values-length _%obj127014%_)) '1))) - (if (fx= _%count123249%_ _%k123247%_) + (if (fx= _%count127017%_ _%k127015%_) '#!void - (let ((__tmp123534 - (if (fx< _%count123249%_ _%k123247%_) + (let ((__tmp127302 + (if (fx< _%count127017%_ _%k127015%_) '"Too few values for context" '"Too many values for context")) - (__tmp123533 + (__tmp127301 (if (let () (declare (not safe)) - (##values? _%obj123246%_)) + (##values? _%obj127014%_)) (let () (declare (not safe)) - (##values->list _%obj123246%_)) - _%obj123246%_))) + (##values->list _%obj127014%_)) + _%obj127014%_))) (declare (not safe)) - (error __tmp123534 __tmp123533 _%k123247%_)))))) + (error __tmp127302 __tmp127301 _%k127015%_)))))) (define __compile - (lambda (_%stx123215%_) - (let* ((_%$e123217%_ _%stx123215%_) - (_%$E123219123225%_ + (lambda (_%stx126983%_) + (let* ((_%$e126985%_ _%stx126983%_) + (_%$E126987126993%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e123217%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e123217%_)) - (let* ((_%$tgt123220123228%_ - (let () (declare (not safe)) (__AST-e _%$e123217%_))) - (_%$hd123221123231%_ + _%$e126985%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e126985%_)) + (let* ((_%$tgt126988126996%_ + (let () (declare (not safe)) (__AST-e _%$e126985%_))) + (_%$hd126989126999%_ (let () (declare (not safe)) - (##car _%$tgt123220123228%_))) - (_%$tl123222123234%_ + (##car _%$tgt126988126996%_))) + (_%$tl126990127002%_ (let () (declare (not safe)) - (##cdr _%$tgt123220123228%_))) - (_%form123238%_ _%$hd123221123231%_) - (_%$e123240%_ (__core-resolve _%form123238%_))) - (if _%$e123240%_ - ((lambda (_%bind123243%_) - ((##structure-ref _%bind123243%_ '1 __syntax::t '#f) - _%stx123215%_)) - _%$e123240%_) + (##cdr _%$tgt126988126996%_))) + (_%form127006%_ _%$hd126989126999%_) + (_%$e127008%_ (__core-resolve _%form127006%_))) + (if _%$e127008%_ + ((lambda (_%bind127011%_) + ((##structure-ref _%bind127011%_ '1 __syntax::t '#f) + _%stx126983%_)) + _%$e127008%_) (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; cannot resolve form" - _%stx123215%_ - _%form123238%_)))) - (_%$E123219123225%_))))) + _%stx126983%_ + _%form127006%_)))) + (_%$E126987126993%_))))) (define __compile-error__% - (lambda (_%stx123202%_ _%detail123203%_) + (lambda (_%stx126970%_ _%detail126971%_) (let () (declare (not safe)) (__raise-syntax-error 'compile '"Bad syntax; cannot compile" - _%stx123202%_ - _%detail123203%_)))) + _%stx126970%_ + _%detail126971%_)))) (define __compile-error__0 - (lambda (_%stx123208%_) - (let ((_%detail123210%_ '#f)) - (__compile-error__% _%stx123208%_ _%detail123210%_)))) + (lambda (_%stx126976%_) + (let ((_%detail126978%_ '#f)) + (__compile-error__% _%stx126976%_ _%detail126978%_)))) (define __compile-error - (lambda _g123535_ - (let ((_g123536_ (let () (declare (not safe)) (##length _g123535_)))) - (cond ((let () (declare (not safe)) (##fx= _g123536_ 1)) - (apply __compile-error__0 _g123535_)) - ((let () (declare (not safe)) (##fx= _g123536_ 2)) - (apply __compile-error__% _g123535_)) + (lambda _g127303_ + (let ((_g127304_ (let () (declare (not safe)) (##length _g127303_)))) + (cond ((let () (declare (not safe)) (##fx= _g127304_ 1)) + (apply __compile-error__0 _g127303_)) + ((let () (declare (not safe)) (##fx= _g127304_ 2)) + (apply __compile-error__% _g127303_)) (else (##raise-wrong-number-of-arguments-exception __compile-error - _g123535_)))))) + _g127303_)))))) (define __compile-ignore% - (lambda (_%stx123199%_) (__SRC__% ''#!void _%stx123199%_))) + (lambda (_%stx126967%_) (__SRC__% ''#!void _%stx126967%_))) (define __compile-begin% - (lambda (_%stx123174%_) - (let* ((_%$e123176%_ _%stx123174%_) - (_%$E123178123184%_ + (lambda (_%stx126942%_) + (let* ((_%$e126944%_ _%stx126942%_) + (_%$E126946126952%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e123176%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e123176%_)) - (let* ((_%$tgt123179123187%_ - (let () (declare (not safe)) (__AST-e _%$e123176%_))) - (_%$hd123180123190%_ + _%$e126944%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e126944%_)) + (let* ((_%$tgt126947126955%_ + (let () (declare (not safe)) (__AST-e _%$e126944%_))) + (_%$hd126948126958%_ (let () (declare (not safe)) - (##car _%$tgt123179123187%_))) - (_%$tl123181123193%_ + (##car _%$tgt126947126955%_))) + (_%$tl126949126961%_ (let () (declare (not safe)) - (##cdr _%$tgt123179123187%_))) - (_%body123197%_ _%$tl123181123193%_)) + (##cdr _%$tgt126947126955%_))) + (_%body126965%_ _%$tl126949126961%_)) (__SRC__% - (cons 'begin (map __compile _%body123197%_)) - _%stx123174%_)) - (_%$E123178123184%_))))) + (cons 'begin (map __compile _%body126965%_)) + _%stx126942%_)) + (_%$E126946126952%_))))) (define __compile-begin-foreign% - (lambda (_%stx123149%_) - (let* ((_%$e123151%_ _%stx123149%_) - (_%$E123153123159%_ + (lambda (_%stx126917%_) + (let* ((_%$e126919%_ _%stx126917%_) + (_%$E126921126927%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e123151%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e123151%_)) - (let* ((_%$tgt123154123162%_ - (let () (declare (not safe)) (__AST-e _%$e123151%_))) - (_%$hd123155123165%_ + _%$e126919%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e126919%_)) + (let* ((_%$tgt126922126930%_ + (let () (declare (not safe)) (__AST-e _%$e126919%_))) + (_%$hd126923126933%_ (let () (declare (not safe)) - (##car _%$tgt123154123162%_))) - (_%$tl123156123168%_ + (##car _%$tgt126922126930%_))) + (_%$tl126924126936%_ (let () (declare (not safe)) - (##cdr _%$tgt123154123162%_))) - (_%body123172%_ _%$tl123156123168%_)) + (##cdr _%$tgt126922126930%_))) + (_%body126940%_ _%$tl126924126936%_)) (__SRC__% (cons 'begin (let () (declare (not safe)) - (__AST->datum _%body123172%_))) - _%stx123149%_)) - (_%$E123153123159%_))))) + (__AST->datum _%body126940%_))) + _%stx126917%_)) + (_%$E126921126927%_))))) (define __compile-import% - (lambda (_%stx123124%_) - (let* ((_%$e123126%_ _%stx123124%_) - (_%$E123128123134%_ + (lambda (_%stx126892%_) + (let* ((_%$e126894%_ _%stx126892%_) + (_%$E126896126902%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e123126%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e123126%_)) - (let* ((_%$tgt123129123137%_ - (let () (declare (not safe)) (__AST-e _%$e123126%_))) - (_%$hd123130123140%_ + _%$e126894%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e126894%_)) + (let* ((_%$tgt126897126905%_ + (let () (declare (not safe)) (__AST-e _%$e126894%_))) + (_%$hd126898126908%_ (let () (declare (not safe)) - (##car _%$tgt123129123137%_))) - (_%$tl123131123143%_ + (##car _%$tgt126897126905%_))) + (_%$tl126899126911%_ (let () (declare (not safe)) - (##cdr _%$tgt123129123137%_))) - (_%body123147%_ _%$tl123131123143%_)) + (##cdr _%$tgt126897126905%_))) + (_%body126915%_ _%$tl126899126911%_)) (__SRC__% (cons '__eval-import - (cons (cons 'quote (cons _%body123147%_ '())) '())) - _%stx123124%_)) - (_%$E123128123134%_))))) + (cons (cons 'quote (cons _%body126915%_ '())) '())) + _%stx126892%_)) + (_%$E126896126902%_))))) (define __compile-begin-annotation% - (lambda (_%stx123071%_) - (let* ((_%$e123073%_ _%stx123071%_) - (_%$E123075123087%_ + (lambda (_%stx126839%_) + (let* ((_%$e126841%_ _%stx126839%_) + (_%$E126843126855%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e123073%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e123073%_)) - (let* ((_%$tgt123076123090%_ - (let () (declare (not safe)) (__AST-e _%$e123073%_))) - (_%$hd123077123093%_ + _%$e126841%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e126841%_)) + (let* ((_%$tgt126844126858%_ + (let () (declare (not safe)) (__AST-e _%$e126841%_))) + (_%$hd126845126861%_ (let () (declare (not safe)) - (##car _%$tgt123076123090%_))) - (_%$tl123078123096%_ + (##car _%$tgt126844126858%_))) + (_%$tl126846126864%_ (let () (declare (not safe)) - (##cdr _%$tgt123076123090%_)))) + (##cdr _%$tgt126844126858%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl123078123096%_)) - (let* ((_%$tgt123079123100%_ + (__AST-pair? _%$tl126846126864%_)) + (let* ((_%$tgt126847126868%_ (let () (declare (not safe)) - (__AST-e _%$tl123078123096%_))) - (_%$hd123080123103%_ + (__AST-e _%$tl126846126864%_))) + (_%$hd126848126871%_ (let () (declare (not safe)) - (##car _%$tgt123079123100%_))) - (_%$tl123081123106%_ + (##car _%$tgt126847126868%_))) + (_%$tl126849126874%_ (let () (declare (not safe)) - (##cdr _%$tgt123079123100%_))) - (_%ann123110%_ _%$hd123080123103%_)) + (##cdr _%$tgt126847126868%_))) + (_%ann126878%_ _%$hd126848126871%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl123081123106%_)) - (let* ((_%$tgt123082123112%_ + (__AST-pair? _%$tl126849126874%_)) + (let* ((_%$tgt126850126880%_ (let () (declare (not safe)) - (__AST-e _%$tl123081123106%_))) - (_%$hd123083123115%_ + (__AST-e _%$tl126849126874%_))) + (_%$hd126851126883%_ (let () (declare (not safe)) - (##car _%$tgt123082123112%_))) - (_%$tl123084123118%_ + (##car _%$tgt126850126880%_))) + (_%$tl126852126886%_ (let () (declare (not safe)) - (##cdr _%$tgt123082123112%_))) - (_%expr123122%_ _%$hd123083123115%_)) + (##cdr _%$tgt126850126880%_))) + (_%expr126890%_ _%$hd126851126883%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl123084123118%_)) + (__AST-e _%$tl126852126886%_)) '()) - (__compile _%expr123122%_) - (_%$E123075123087%_))) - (_%$E123075123087%_))) - (_%$E123075123087%_))) - (_%$E123075123087%_))))) + (__compile _%expr126890%_) + (_%$E126843126855%_))) + (_%$E126843126855%_))) + (_%$E126843126855%_))) + (_%$E126843126855%_))))) (define __compile-define-values% - (lambda (_%stx122962%_) - (let* ((_%$e122964%_ _%stx122962%_) - (_%$E122966122978%_ + (lambda (_%stx126730%_) + (let* ((_%$e126732%_ _%stx126730%_) + (_%$E126734126746%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e122964%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e122964%_)) - (let* ((_%$tgt122967122981%_ - (let () (declare (not safe)) (__AST-e _%$e122964%_))) - (_%$hd122968122984%_ + _%$e126732%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e126732%_)) + (let* ((_%$tgt126735126749%_ + (let () (declare (not safe)) (__AST-e _%$e126732%_))) + (_%$hd126736126752%_ (let () (declare (not safe)) - (##car _%$tgt122967122981%_))) - (_%$tl122969122987%_ + (##car _%$tgt126735126749%_))) + (_%$tl126737126755%_ (let () (declare (not safe)) - (##cdr _%$tgt122967122981%_)))) + (##cdr _%$tgt126735126749%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl122969122987%_)) - (let* ((_%$tgt122970122991%_ + (__AST-pair? _%$tl126737126755%_)) + (let* ((_%$tgt126738126759%_ (let () (declare (not safe)) - (__AST-e _%$tl122969122987%_))) - (_%$hd122971122994%_ + (__AST-e _%$tl126737126755%_))) + (_%$hd126739126762%_ (let () (declare (not safe)) - (##car _%$tgt122970122991%_))) - (_%$tl122972122997%_ + (##car _%$tgt126738126759%_))) + (_%$tl126740126765%_ (let () (declare (not safe)) - (##cdr _%$tgt122970122991%_))) - (_%hd123001%_ _%$hd122971122994%_)) + (##cdr _%$tgt126738126759%_))) + (_%hd126769%_ _%$hd126739126762%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl122972122997%_)) - (let* ((_%$tgt122973123003%_ + (__AST-pair? _%$tl126740126765%_)) + (let* ((_%$tgt126741126771%_ (let () (declare (not safe)) - (__AST-e _%$tl122972122997%_))) - (_%$hd122974123006%_ + (__AST-e _%$tl126740126765%_))) + (_%$hd126742126774%_ (let () (declare (not safe)) - (##car _%$tgt122973123003%_))) - (_%$tl122975123009%_ + (##car _%$tgt126741126771%_))) + (_%$tl126743126777%_ (let () (declare (not safe)) - (##cdr _%$tgt122973123003%_))) - (_%expr123013%_ _%$hd122974123006%_)) + (##cdr _%$tgt126741126771%_))) + (_%expr126781%_ _%$hd126742126774%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl122975123009%_)) + (__AST-e _%$tl126743126777%_)) '()) - (let* ((_%$e123015%_ _%hd123001%_) - (_%$E123017123058%_ + (let* ((_%$e126783%_ _%hd126769%_) + (_%$E126785126826%_ (lambda () - (let ((_%$E123018123043%_ + (let ((_%$E126786126811%_ (lambda () - (let* ((_%$E123019123030%_ + (let* ((_%$E126787126798%_ (lambda () (let () (declare @@ -609,10 +609,10 @@ (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e123015%_)))) - (_%ids123033%_ _%hd123001%_) - (_%len123035%_ (length _%ids123033%_)) - (_%tmp123037%_ + _%$e126783%_)))) + (_%ids126801%_ _%hd126769%_) + (_%len126803%_ (length _%ids126801%_)) + (_%tmp126805%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (__SRC__% @@ -620,1579 +620,1579 @@ (cons (__SRC__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'define - (cons _%tmp123037%_ - (cons (__compile _%expr123013%_) '()))) - _%stx122962%_) + (cons _%tmp126805%_ + (cons (__compile _%expr126781%_) '()))) + _%stx126730%_) (cons (__SRC__% (cons '__check-values - (cons _%tmp123037%_ - (cons _%len123035%_ '()))) - _%stx122962%_) - (let ((__tmp123537 - (let ((__tmp123539 - (lambda (_%id123040%_ - _%k123041%_) + (cons _%tmp126805%_ + (cons _%len126803%_ '()))) + _%stx126730%_) + (let ((__tmp127305 + (let ((__tmp127307 + (lambda (_%id126808%_ + _%k126809%_) (if (let () (declare (not safe)) - (__AST-e _%id123040%_)) + (__AST-e _%id126808%_)) (__SRC__% (cons 'define (cons (__SRC__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id123040%_) + _%id126808%_) (cons (cons '##values-ref - (cons _%tmp123037%_ - (cons _%k123041%_ '()))) + (cons _%tmp126805%_ + (cons _%k126809%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx122962%_) + _%stx126730%_) '#f))) - (__tmp123538 + (__tmp127306 (let () (declare (not safe)) - (##iota _%len123035%_)))) + (##iota _%len126803%_)))) (declare (not safe)) (__filter-map2 - __tmp123539 - _%ids123033%_ - __tmp123538)))) + __tmp127307 + _%ids126801%_ + __tmp127306)))) (declare (not safe)) - (__foldr1 cons '() __tmp123537))))) - _%stx122962%_))))) + (__foldr1 cons '() __tmp127305))))) + _%stx126730%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (__AST-pair? _%$e123015%_)) - (let* ((_%$tgt123020123046%_ + (__AST-pair? _%$e126783%_)) + (let* ((_%$tgt126788126814%_ (let () (declare (not safe)) - (__AST-e _%$e123015%_))) - (_%$hd123021123049%_ + (__AST-e _%$e126783%_))) + (_%$hd126789126817%_ (let () (declare (not safe)) - (##car _%$tgt123020123046%_))) - (_%$tl123022123052%_ + (##car _%$tgt126788126814%_))) + (_%$tl126790126820%_ (let () (declare (not safe)) - (##cdr _%$tgt123020123046%_))) - (_%id123056%_ - _%$hd123021123049%_)) + (##cdr _%$tgt126788126814%_))) + (_%id126824%_ + _%$hd126789126817%_)) (if (equal? (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__AST-e _%$tl123022123052%_)) + (__AST-e _%$tl126790126820%_)) '()) (__SRC__% (cons 'define - (cons (__SRC__0 _%id123056%_) - (cons (__compile _%expr123013%_) '()))) - _%stx122962%_) - (_%$E123018123043%_))) + (cons (__SRC__0 _%id126824%_) + (cons (__compile _%expr126781%_) '()))) + _%stx126730%_) + (_%$E126786126811%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$E123018123043%_)))))) + (_%$E126786126811%_)))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e123015%_)) - (let* ((_%$tgt123023123061%_ + (__AST-pair? _%$e126783%_)) + (let* ((_%$tgt126791126829%_ (let () (declare (not safe)) - (__AST-e _%$e123015%_))) - (_%$hd123024123064%_ + (__AST-e _%$e126783%_))) + (_%$hd126792126832%_ (let () (declare (not safe)) - (##car _%$tgt123023123061%_))) - (_%$tl123025123067%_ + (##car _%$tgt126791126829%_))) + (_%$tl126793126835%_ (let () (declare (not safe)) - (##cdr _%$tgt123023123061%_)))) + (##cdr _%$tgt126791126829%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$hd123024123064%_)) + (__AST-e _%$hd126792126832%_)) '#f) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl123025123067%_)) + (__AST-e _%$tl126793126835%_)) '()) - (__compile _%expr123013%_) - (_%$E123017123058%_)) - (_%$E123017123058%_))) - (_%$E123017123058%_))) - (_%$E122966122978%_))) - (_%$E122966122978%_))) - (_%$E122966122978%_))) - (_%$E122966122978%_))))) + (__compile _%expr126781%_) + (_%$E126785126826%_)) + (_%$E126785126826%_))) + (_%$E126785126826%_))) + (_%$E126734126746%_))) + (_%$E126734126746%_))) + (_%$E126734126746%_))) + (_%$E126734126746%_))))) (define __compile-head-id - (lambda (_%e122960%_) + (lambda (_%e126728%_) (__SRC__0 - (if (let () (declare (not safe)) (__AST-e _%e122960%_)) - _%e122960%_ + (if (let () (declare (not safe)) (__AST-e _%e126728%_)) + _%e126728%_ (let () (declare (not safe)) (##gensym)))))) (define __compile-lambda-head - (lambda (_%hd122917%_) - (let _%recur122919%_ ((_%rest122921%_ _%hd122917%_)) - (let* ((_%$e122923%_ _%rest122921%_) - (_%$E122925122943%_ + (lambda (_%hd126685%_) + (let _%recur126687%_ ((_%rest126689%_ _%hd126685%_)) + (let* ((_%$e126691%_ _%rest126689%_) + (_%$E126693126711%_ (lambda () - (let ((_%$E122926122940%_ + (let ((_%$E126694126708%_ (lambda () - (let* ((_%$E122927122935%_ + (let* ((_%$E126695126703%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e122923%_)))) - (_%tail122938%_ _%$e122923%_)) - (__compile-head-id _%tail122938%_))))) + _%$e126691%_)))) + (_%tail126706%_ _%$e126691%_)) + (__compile-head-id _%tail126706%_))))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$e122923%_)) + (__AST-e _%$e126691%_)) '()) '() - (_%$E122926122940%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e122923%_)) - (let* ((_%$tgt122928122946%_ - (let () (declare (not safe)) (__AST-e _%$e122923%_))) - (_%$hd122929122949%_ + (_%$E126694126708%_)))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e126691%_)) + (let* ((_%$tgt126696126714%_ + (let () (declare (not safe)) (__AST-e _%$e126691%_))) + (_%$hd126697126717%_ (let () (declare (not safe)) - (##car _%$tgt122928122946%_))) - (_%$tl122930122952%_ + (##car _%$tgt126696126714%_))) + (_%$tl126698126720%_ (let () (declare (not safe)) - (##cdr _%$tgt122928122946%_))) - (_%hd122956%_ _%$hd122929122949%_) - (_%rest122958%_ _%$tl122930122952%_)) - (cons (__compile-head-id _%hd122956%_) - (_%recur122919%_ _%rest122958%_))) - (_%$E122925122943%_)))))) + (##cdr _%$tgt126696126714%_))) + (_%hd126724%_ _%$hd126697126717%_) + (_%rest126726%_ _%$tl126698126720%_)) + (cons (__compile-head-id _%hd126724%_) + (_%recur126687%_ _%rest126726%_))) + (_%$E126693126711%_)))))) (define __compile-lambda% - (lambda (_%stx122864%_) - (let* ((_%$e122866%_ _%stx122864%_) - (_%$E122868122880%_ + (lambda (_%stx126632%_) + (let* ((_%$e126634%_ _%stx126632%_) + (_%$E126636126648%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e122866%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e122866%_)) - (let* ((_%$tgt122869122883%_ - (let () (declare (not safe)) (__AST-e _%$e122866%_))) - (_%$hd122870122886%_ + _%$e126634%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e126634%_)) + (let* ((_%$tgt126637126651%_ + (let () (declare (not safe)) (__AST-e _%$e126634%_))) + (_%$hd126638126654%_ (let () (declare (not safe)) - (##car _%$tgt122869122883%_))) - (_%$tl122871122889%_ + (##car _%$tgt126637126651%_))) + (_%$tl126639126657%_ (let () (declare (not safe)) - (##cdr _%$tgt122869122883%_)))) + (##cdr _%$tgt126637126651%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl122871122889%_)) - (let* ((_%$tgt122872122893%_ + (__AST-pair? _%$tl126639126657%_)) + (let* ((_%$tgt126640126661%_ (let () (declare (not safe)) - (__AST-e _%$tl122871122889%_))) - (_%$hd122873122896%_ + (__AST-e _%$tl126639126657%_))) + (_%$hd126641126664%_ (let () (declare (not safe)) - (##car _%$tgt122872122893%_))) - (_%$tl122874122899%_ + (##car _%$tgt126640126661%_))) + (_%$tl126642126667%_ (let () (declare (not safe)) - (##cdr _%$tgt122872122893%_))) - (_%hd122903%_ _%$hd122873122896%_)) + (##cdr _%$tgt126640126661%_))) + (_%hd126671%_ _%$hd126641126664%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl122874122899%_)) - (let* ((_%$tgt122875122905%_ + (__AST-pair? _%$tl126642126667%_)) + (let* ((_%$tgt126643126673%_ (let () (declare (not safe)) - (__AST-e _%$tl122874122899%_))) - (_%$hd122876122908%_ + (__AST-e _%$tl126642126667%_))) + (_%$hd126644126676%_ (let () (declare (not safe)) - (##car _%$tgt122875122905%_))) - (_%$tl122877122911%_ + (##car _%$tgt126643126673%_))) + (_%$tl126645126679%_ (let () (declare (not safe)) - (##cdr _%$tgt122875122905%_))) - (_%body122915%_ _%$hd122876122908%_)) + (##cdr _%$tgt126643126673%_))) + (_%body126683%_ _%$hd126644126676%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl122877122911%_)) + (__AST-e _%$tl126645126679%_)) '()) (__SRC__% (cons 'lambda (cons (__compile-lambda-head - _%hd122903%_) - (cons (__compile _%body122915%_) + _%hd126671%_) + (cons (__compile _%body126683%_) '()))) - _%stx122864%_) - (_%$E122868122880%_))) - (_%$E122868122880%_))) - (_%$E122868122880%_))) - (_%$E122868122880%_))))) + _%stx126632%_) + (_%$E126636126648%_))) + (_%$E126636126648%_))) + (_%$E126636126648%_))) + (_%$E126636126648%_))))) (define __compile-case-lambda% - (lambda (_%stx122656%_) - (letrec ((_%variadic?122658%_ - (lambda (_%hd122829%_) - (let* ((_%$e122831%_ _%hd122829%_) - (_%$E122833122849%_ + (lambda (_%stx126424%_) + (letrec ((_%variadic?126426%_ + (lambda (_%hd126597%_) + (let* ((_%$e126599%_ _%hd126597%_) + (_%$E126601126617%_ (lambda () - (let ((_%$E122834122846%_ + (let ((_%$E126602126614%_ (lambda () - (let ((_%$E122835122843%_ + (let ((_%$E126603126611%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e122831%_))))) + _%$e126599%_))))) '#t)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$e122831%_)) + (__AST-e _%$e126599%_)) '()) '#f - (_%$E122834122846%_)))))) + (_%$E126602126614%_)))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e122831%_)) - (let* ((_%$tgt122836122852%_ + (__AST-pair? _%$e126599%_)) + (let* ((_%$tgt126604126620%_ (let () (declare (not safe)) - (__AST-e _%$e122831%_))) - (_%$hd122837122855%_ + (__AST-e _%$e126599%_))) + (_%$hd126605126623%_ (let () (declare (not safe)) - (##car _%$tgt122836122852%_))) - (_%$tl122838122858%_ + (##car _%$tgt126604126620%_))) + (_%$tl126606126626%_ (let () (declare (not safe)) - (##cdr _%$tgt122836122852%_))) - (_%rest122862%_ _%$tl122838122858%_)) - (_%variadic?122658%_ _%rest122862%_)) - (_%$E122833122849%_))))) - (_%arity122659%_ - (lambda (_%hd122794%_) - (let _%lp122796%_ ((_%rest122798%_ _%hd122794%_) - (_%k122799%_ '0)) - (let* ((_%$e122801%_ _%rest122798%_) - (_%$E122803122814%_ + (##cdr _%$tgt126604126620%_))) + (_%rest126630%_ _%$tl126606126626%_)) + (_%variadic?126426%_ _%rest126630%_)) + (_%$E126601126617%_))))) + (_%arity126427%_ + (lambda (_%hd126562%_) + (let _%lp126564%_ ((_%rest126566%_ _%hd126562%_) + (_%k126567%_ '0)) + (let* ((_%$e126569%_ _%rest126566%_) + (_%$E126571126582%_ (lambda () - (let ((_%$E122804122811%_ + (let ((_%$E126572126579%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e122801%_))))) - _%k122799%_)))) + _%$e126569%_))))) + _%k126567%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$e122801%_)) - (let* ((_%$tgt122805122817%_ + (__AST-pair? _%$e126569%_)) + (let* ((_%$tgt126573126585%_ (let () (declare (not safe)) - (__AST-e _%$e122801%_))) - (_%$hd122806122820%_ + (__AST-e _%$e126569%_))) + (_%$hd126574126588%_ (let () (declare (not safe)) - (##car _%$tgt122805122817%_))) - (_%$tl122807122823%_ + (##car _%$tgt126573126585%_))) + (_%$tl126575126591%_ (let () (declare (not safe)) - (##cdr _%$tgt122805122817%_))) - (_%rest122827%_ _%$tl122807122823%_)) - (_%lp122796%_ - _%rest122827%_ + (##cdr _%$tgt126573126585%_))) + (_%rest126595%_ _%$tl126575126591%_)) + (_%lp126564%_ + _%rest126595%_ (let () (declare (not safe)) - (##fx+ _%k122799%_ '1)))) - (_%$E122803122814%_)))))) - (_%generate122660%_ - (lambda (_%rest122721%_ _%args122722%_ _%len122723%_) - (let* ((_%$e122725%_ _%rest122721%_) - (_%$E122727122738%_ + (##fx+ _%k126567%_ '1)))) + (_%$E126571126582%_)))))) + (_%generate126428%_ + (lambda (_%rest126489%_ _%args126490%_ _%len126491%_) + (let* ((_%$e126493%_ _%rest126489%_) + (_%$E126495126506%_ (lambda () - (let ((_%$E122728122735%_ + (let ((_%$E126496126503%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e122725%_))))) + _%$e126493%_))))) (__SRC__% (cons 'error (cons '"No clause matching arguments" - (cons _%args122722%_ '()))) - _%stx122656%_))))) + (cons _%args126490%_ '()))) + _%stx126424%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e122725%_)) - (let* ((_%$tgt122729122741%_ + (__AST-pair? _%$e126493%_)) + (let* ((_%$tgt126497126509%_ (let () (declare (not safe)) - (__AST-e _%$e122725%_))) - (_%$hd122730122744%_ + (__AST-e _%$e126493%_))) + (_%$hd126498126512%_ (let () (declare (not safe)) - (##car _%$tgt122729122741%_))) - (_%$tl122731122747%_ + (##car _%$tgt126497126509%_))) + (_%$tl126499126515%_ (let () (declare (not safe)) - (##cdr _%$tgt122729122741%_))) - (_%clause122751%_ _%$hd122730122744%_) - (_%rest122753%_ _%$tl122731122747%_) - (_%$e122755%_ _%clause122751%_) - (_%$E122757122766%_ + (##cdr _%$tgt126497126509%_))) + (_%clause126519%_ _%$hd126498126512%_) + (_%rest126521%_ _%$tl126499126515%_) + (_%$e126523%_ _%clause126519%_) + (_%$E126525126534%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e122755%_))))) + _%$e126523%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e122755%_)) - (let* ((_%$tgt122758122769%_ + (__AST-pair? _%$e126523%_)) + (let* ((_%$tgt126526126537%_ (let () (declare (not safe)) - (__AST-e _%$e122755%_))) - (_%$hd122759122772%_ + (__AST-e _%$e126523%_))) + (_%$hd126527126540%_ (let () (declare (not safe)) - (##car _%$tgt122758122769%_))) - (_%$tl122760122775%_ + (##car _%$tgt126526126537%_))) + (_%$tl126528126543%_ (let () (declare (not safe)) - (##cdr _%$tgt122758122769%_))) - (_%hd122779%_ _%$hd122759122772%_)) + (##cdr _%$tgt126526126537%_))) + (_%hd126547%_ _%$hd126527126540%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl122760122775%_)) - (let* ((_%$tgt122761122781%_ + (__AST-pair? _%$tl126528126543%_)) + (let* ((_%$tgt126529126549%_ (let () (declare (not safe)) - (__AST-e _%$tl122760122775%_))) - (_%$hd122762122784%_ + (__AST-e _%$tl126528126543%_))) + (_%$hd126530126552%_ (let () (declare (not safe)) - (##car _%$tgt122761122781%_))) - (_%$tl122763122787%_ + (##car _%$tgt126529126549%_))) + (_%$tl126531126555%_ (let () (declare (not safe)) - (##cdr _%$tgt122761122781%_)))) + (##cdr _%$tgt126529126549%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl122763122787%_)) + (__AST-e _%$tl126531126555%_)) '()) - (let ((_%clen122791%_ - (_%arity122659%_ - _%hd122779%_)) - (_%cmp122792%_ - (if (_%variadic?122658%_ - _%hd122779%_) + (let ((_%clen126559%_ + (_%arity126427%_ + _%hd126547%_)) + (_%cmp126560%_ + (if (_%variadic?126426%_ + _%hd126547%_) 'fx>= 'fx=))) (__SRC__% (cons 'if - (cons (cons _%cmp122792%_ + (cons (cons _%cmp126560%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%len122723%_ (cons _%clen122791%_ '()))) + (cons _%len126491%_ (cons _%clen126559%_ '()))) (cons (__SRC__% (cons '##apply (cons (__compile-lambda% - (cons '%#lambda _%clause122751%_)) - (cons _%args122722%_ '()))) - _%stx122656%_) - (cons (_%generate122660%_ - _%rest122753%_ - _%args122722%_ - _%len122723%_) + (cons '%#lambda _%clause126519%_)) + (cons _%args126490%_ '()))) + _%stx126424%_) + (cons (_%generate126428%_ + _%rest126521%_ + _%args126490%_ + _%len126491%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx122656%_)) - (_%$E122757122766%_))) - (_%$E122757122766%_))) - (_%$E122757122766%_))) - (_%$E122727122738%_)))))) - (let* ((_%$e122662%_ _%stx122656%_) - (_%$E122664122696%_ + _%stx126424%_)) + (_%$E126525126534%_))) + (_%$E126525126534%_))) + (_%$E126525126534%_))) + (_%$E126495126506%_)))))) + (let* ((_%$e126430%_ _%stx126424%_) + (_%$E126432126464%_ (lambda () - (let ((_%$E122665122678%_ + (let ((_%$E126433126446%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e122662%_))))) + _%$e126430%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e122662%_)) - (let* ((_%$tgt122666122681%_ + (__AST-pair? _%$e126430%_)) + (let* ((_%$tgt126434126449%_ (let () (declare (not safe)) - (__AST-e _%$e122662%_))) - (_%$hd122667122684%_ + (__AST-e _%$e126430%_))) + (_%$hd126435126452%_ (let () (declare (not safe)) - (##car _%$tgt122666122681%_))) - (_%$tl122668122687%_ + (##car _%$tgt126434126449%_))) + (_%$tl126436126455%_ (let () (declare (not safe)) - (##cdr _%$tgt122666122681%_))) - (_%clauses122691%_ _%$tl122668122687%_)) - (let ((_%args122693%_ + (##cdr _%$tgt126434126449%_))) + (_%clauses126459%_ _%$tl126436126455%_)) + (let ((_%args126461%_ (__SRC__% (let () (declare (not safe)) (##gensym)) - _%stx122656%_)) - (_%len122694%_ + _%stx126424%_)) + (_%len126462%_ (__SRC__% (let () (declare (not safe)) (##gensym)) - _%stx122656%_))) + _%stx126424%_))) (__SRC__% (cons 'lambda - (cons _%args122693%_ + (cons _%args126461%_ (cons (__SRC__% (cons 'let - (cons (cons (cons _%len122694%_ + (cons (cons (cons _%len126462%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (__SRC__% (cons '##length - (cons _%args122693%_ '())) - _%stx122656%_) + (cons _%args126461%_ '())) + _%stx126424%_) '())) '()) - (cons (_%generate122660%_ - _%clauses122691%_ - _%args122693%_ - _%len122694%_) + (cons (_%generate126428%_ + _%clauses126459%_ + _%args126461%_ + _%len126462%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx122656%_) + _%stx126424%_) '()))) - _%stx122656%_))) - (_%$E122665122678%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e122662%_)) - (let* ((_%$tgt122669122699%_ - (let () (declare (not safe)) (__AST-e _%$e122662%_))) - (_%$hd122670122702%_ + _%stx126424%_))) + (_%$E126433126446%_)))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e126430%_)) + (let* ((_%$tgt126437126467%_ + (let () (declare (not safe)) (__AST-e _%$e126430%_))) + (_%$hd126438126470%_ (let () (declare (not safe)) - (##car _%$tgt122669122699%_))) - (_%$tl122671122705%_ + (##car _%$tgt126437126467%_))) + (_%$tl126439126473%_ (let () (declare (not safe)) - (##cdr _%$tgt122669122699%_)))) + (##cdr _%$tgt126437126467%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl122671122705%_)) - (let* ((_%$tgt122672122709%_ + (__AST-pair? _%$tl126439126473%_)) + (let* ((_%$tgt126440126477%_ (let () (declare (not safe)) - (__AST-e _%$tl122671122705%_))) - (_%$hd122673122712%_ + (__AST-e _%$tl126439126473%_))) + (_%$hd126441126480%_ (let () (declare (not safe)) - (##car _%$tgt122672122709%_))) - (_%$tl122674122715%_ + (##car _%$tgt126440126477%_))) + (_%$tl126442126483%_ (let () (declare (not safe)) - (##cdr _%$tgt122672122709%_))) - (_%clause122719%_ _%$hd122673122712%_)) + (##cdr _%$tgt126440126477%_))) + (_%clause126487%_ _%$hd126441126480%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl122674122715%_)) + (__AST-e _%$tl126442126483%_)) '()) (__compile-lambda% - (cons '%#lambda _%clause122719%_)) - (_%$E122664122696%_))) - (_%$E122664122696%_))) - (_%$E122664122696%_)))))) + (cons '%#lambda _%clause126487%_)) + (_%$E126432126464%_))) + (_%$E126432126464%_))) + (_%$E126432126464%_)))))) (define __compile-let-form - (lambda (_%stx122425%_ _%compile-simple122426%_ _%compile-values122427%_) - (letrec ((_%simple-bind?122429%_ - (lambda (_%hd122614%_) - (let* ((_%hd122615122625%_ _%hd122614%_) - (_%else122618122633%_ (lambda () '#f))) - (let ((_%K122621122646%_ (lambda (_%id122644%_) '#t)) - (_%K122620122638%_ (lambda () '#t))) - (let ((_%try-match122617122641%_ + (lambda (_%stx126193%_ _%compile-simple126194%_ _%compile-values126195%_) + (letrec ((_%simple-bind?126197%_ + (lambda (_%hd126382%_) + (let* ((_%hd126383126393%_ _%hd126382%_) + (_%else126386126401%_ (lambda () '#f))) + (let ((_%K126389126414%_ (lambda (_%id126412%_) '#t)) + (_%K126388126406%_ (lambda () '#t))) + (let ((_%try-match126385126409%_ (lambda () (if (let () (declare (not safe)) - (##eq? _%hd122615122625%_ '#f)) - (_%K122620122638%_) - (_%else122618122633%_))))) - (if (pair? _%hd122615122625%_) - (let ((_%tl122623122651%_ + (##eq? _%hd126383126393%_ '#f)) + (_%K126388126406%_) + (_%else126386126401%_))))) + (if (pair? _%hd126383126393%_) + (let ((_%tl126391126419%_ (let () (declare (not safe)) - (##cdr _%hd122615122625%_))) - (_%hd122622122649%_ + (##cdr _%hd126383126393%_))) + (_%hd126390126417%_ (let () (declare (not safe)) - (##car _%hd122615122625%_)))) - (if (null? _%tl122623122651%_) - (let ((_%id122654%_ _%hd122622122649%_)) - (_%K122621122646%_ _%id122654%_)) - (_%try-match122617122641%_))) - (_%try-match122617122641%_))))))) - (_%car-e122430%_ - (lambda (_%hd122612%_) - (if (pair? _%hd122612%_) - (let () (declare (not safe)) (##car _%hd122612%_)) - _%hd122612%_)))) - (let* ((_%$e122432%_ _%stx122425%_) - (_%$E122434122577%_ + (##car _%hd126383126393%_)))) + (if (null? _%tl126391126419%_) + (let ((_%id126422%_ _%hd126390126417%_)) + (_%K126389126414%_ _%id126422%_)) + (_%try-match126385126409%_))) + (_%try-match126385126409%_))))))) + (_%car-e126198%_ + (lambda (_%hd126380%_) + (if (pair? _%hd126380%_) + (let () (declare (not safe)) (##car _%hd126380%_)) + _%hd126380%_)))) + (let* ((_%$e126200%_ _%stx126193%_) + (_%$E126202126345%_ (lambda () - (let ((_%$E122435122457%_ + (let ((_%$E126203126225%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e122432%_))))) + _%$e126200%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e122432%_)) - (let* ((_%$tgt122436122460%_ + (__AST-pair? _%$e126200%_)) + (let* ((_%$tgt126204126228%_ (let () (declare (not safe)) - (__AST-e _%$e122432%_))) - (_%$hd122437122463%_ + (__AST-e _%$e126200%_))) + (_%$hd126205126231%_ (let () (declare (not safe)) - (##car _%$tgt122436122460%_))) - (_%$tl122438122466%_ + (##car _%$tgt126204126228%_))) + (_%$tl126206126234%_ (let () (declare (not safe)) - (##cdr _%$tgt122436122460%_)))) + (##cdr _%$tgt126204126228%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl122438122466%_)) - (let* ((_%$tgt122439122470%_ + (__AST-pair? _%$tl126206126234%_)) + (let* ((_%$tgt126207126238%_ (let () (declare (not safe)) - (__AST-e _%$tl122438122466%_))) - (_%$hd122440122473%_ + (__AST-e _%$tl126206126234%_))) + (_%$hd126208126241%_ (let () (declare (not safe)) - (##car _%$tgt122439122470%_))) - (_%$tl122441122476%_ + (##car _%$tgt126207126238%_))) + (_%$tl126209126244%_ (let () (declare (not safe)) - (##cdr _%$tgt122439122470%_))) - (_%hd122480%_ _%$hd122440122473%_)) + (##cdr _%$tgt126207126238%_))) + (_%hd126248%_ _%$hd126208126241%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl122441122476%_)) - (let* ((_%$tgt122442122482%_ + (__AST-pair? _%$tl126209126244%_)) + (let* ((_%$tgt126210126250%_ (let () (declare (not safe)) - (__AST-e _%$tl122441122476%_))) - (_%$hd122443122485%_ + (__AST-e _%$tl126209126244%_))) + (_%$hd126211126253%_ (let () (declare (not safe)) - (##car _%$tgt122442122482%_))) - (_%$tl122444122488%_ + (##car _%$tgt126210126250%_))) + (_%$tl126212126256%_ (let () (declare (not safe)) - (##cdr _%$tgt122442122482%_))) - (_%body122492%_ - _%$hd122443122485%_)) + (##cdr _%$tgt126210126250%_))) + (_%body126260%_ + _%$hd126211126253%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl122444122488%_)) + (__AST-e _%$tl126212126256%_)) '()) - (let* ((_%hd-ids122532%_ - (map (lambda (_%bind122494%_) - (let* ((_%$e122496%_ + (let* ((_%hd-ids126300%_ + (map (lambda (_%bind126262%_) + (let* ((_%$e126264%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind122494%_) - (_%$E122498122507%_ + _%bind126262%_) + (_%$E126266126275%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e122496%_))))) + _%$e126264%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e122496%_)) - (let* ((_%$tgt122499122510%_ + (__AST-pair? _%$e126264%_)) + (let* ((_%$tgt126267126278%_ (let () (declare (not safe)) - (__AST-e _%$e122496%_))) - (_%$hd122500122513%_ + (__AST-e _%$e126264%_))) + (_%$hd126268126281%_ (let () (declare (not safe)) - (##car _%$tgt122499122510%_))) - (_%$tl122501122516%_ + (##car _%$tgt126267126278%_))) + (_%$tl126269126284%_ (let () (declare (not safe)) - (##cdr _%$tgt122499122510%_))) - (_%ids122520%_ _%$hd122500122513%_)) + (##cdr _%$tgt126267126278%_))) + (_%ids126288%_ _%$hd126268126281%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl122501122516%_)) - (let* ((_%$tgt122502122522%_ + (__AST-pair? _%$tl126269126284%_)) + (let* ((_%$tgt126270126290%_ (let () (declare (not safe)) - (__AST-e _%$tl122501122516%_))) - (_%$hd122503122525%_ + (__AST-e _%$tl126269126284%_))) + (_%$hd126271126293%_ (let () (declare (not safe)) - (##car _%$tgt122502122522%_))) - (_%$tl122504122528%_ + (##car _%$tgt126270126290%_))) + (_%$tl126272126296%_ (let () (declare (not safe)) - (##cdr _%$tgt122502122522%_)))) + (##cdr _%$tgt126270126290%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl122504122528%_)) + (__AST-e _%$tl126272126296%_)) '()) - _%ids122520%_ - (_%$E122498122507%_))) - (_%$E122498122507%_))) - (_%$E122498122507%_)))) - _%hd122480%_)) + _%ids126288%_ + (_%$E126266126275%_))) + (_%$E126266126275%_))) + (_%$E126266126275%_)))) + _%hd126248%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%exprs122572%_ - (map (lambda (_%bind122534%_) - (let* ((_%$e122536%_ + (_%exprs126340%_ + (map (lambda (_%bind126302%_) + (let* ((_%$e126304%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind122534%_) - (_%$E122538122547%_ + _%bind126302%_) + (_%$E126306126315%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e122536%_))))) + _%$e126304%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e122536%_)) - (let* ((_%$tgt122539122550%_ + (__AST-pair? _%$e126304%_)) + (let* ((_%$tgt126307126318%_ (let () (declare (not safe)) - (__AST-e _%$e122536%_))) - (_%$hd122540122553%_ + (__AST-e _%$e126304%_))) + (_%$hd126308126321%_ (let () (declare (not safe)) - (##car _%$tgt122539122550%_))) - (_%$tl122541122556%_ + (##car _%$tgt126307126318%_))) + (_%$tl126309126324%_ (let () (declare (not safe)) - (##cdr _%$tgt122539122550%_)))) + (##cdr _%$tgt126307126318%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl122541122556%_)) - (let* ((_%$tgt122542122560%_ + (__AST-pair? _%$tl126309126324%_)) + (let* ((_%$tgt126310126328%_ (let () (declare (not safe)) - (__AST-e _%$tl122541122556%_))) - (_%$hd122543122563%_ + (__AST-e _%$tl126309126324%_))) + (_%$hd126311126331%_ (let () (declare (not safe)) - (##car _%$tgt122542122560%_))) - (_%$tl122544122566%_ + (##car _%$tgt126310126328%_))) + (_%$tl126312126334%_ (let () (declare (not safe)) - (##cdr _%$tgt122542122560%_))) - (_%expr122570%_ _%$hd122543122563%_)) + (##cdr _%$tgt126310126328%_))) + (_%expr126338%_ _%$hd126311126331%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl122544122566%_)) + (__AST-e _%$tl126312126334%_)) '()) - (__compile _%expr122570%_) - (_%$E122538122547%_))) - (_%$E122538122547%_))) - (_%$E122538122547%_)))) - _%hd122480%_)) + (__compile _%expr126338%_) + (_%$E126306126315%_))) + (_%$E126306126315%_))) + (_%$E126306126315%_)))) + _%hd126248%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%body122574%_ + (_%body126342%_ (__compile - _%body122492%_))) + _%body126260%_))) (if (let () (declare (not safe)) (__andmap1 - _%simple-bind?122429%_ - _%hd-ids122532%_)) - (_%compile-simple122426%_ + _%simple-bind?126197%_ + _%hd-ids126300%_)) + (_%compile-simple126194%_ (let () (declare (not safe)) - (##map _%car-e122430%_ - _%hd-ids122532%_)) - _%exprs122572%_ - _%body122574%_) - (_%compile-values122427%_ - _%hd-ids122532%_ - _%exprs122572%_ - _%body122574%_))) - (_%$E122435122457%_))) - (_%$E122435122457%_))) - (_%$E122435122457%_))) - (_%$E122435122457%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e122432%_)) - (let* ((_%$tgt122445122580%_ - (let () (declare (not safe)) (__AST-e _%$e122432%_))) - (_%$hd122446122583%_ + (##map _%car-e126198%_ + _%hd-ids126300%_)) + _%exprs126340%_ + _%body126342%_) + (_%compile-values126195%_ + _%hd-ids126300%_ + _%exprs126340%_ + _%body126342%_))) + (_%$E126203126225%_))) + (_%$E126203126225%_))) + (_%$E126203126225%_))) + (_%$E126203126225%_)))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e126200%_)) + (let* ((_%$tgt126213126348%_ + (let () (declare (not safe)) (__AST-e _%$e126200%_))) + (_%$hd126214126351%_ (let () (declare (not safe)) - (##car _%$tgt122445122580%_))) - (_%$tl122447122586%_ + (##car _%$tgt126213126348%_))) + (_%$tl126215126354%_ (let () (declare (not safe)) - (##cdr _%$tgt122445122580%_)))) + (##cdr _%$tgt126213126348%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl122447122586%_)) - (let* ((_%$tgt122448122590%_ + (__AST-pair? _%$tl126215126354%_)) + (let* ((_%$tgt126216126358%_ (let () (declare (not safe)) - (__AST-e _%$tl122447122586%_))) - (_%$hd122449122593%_ + (__AST-e _%$tl126215126354%_))) + (_%$hd126217126361%_ (let () (declare (not safe)) - (##car _%$tgt122448122590%_))) - (_%$tl122450122596%_ + (##car _%$tgt126216126358%_))) + (_%$tl126218126364%_ (let () (declare (not safe)) - (##cdr _%$tgt122448122590%_)))) + (##cdr _%$tgt126216126358%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$hd122449122593%_)) + (__AST-e _%$hd126217126361%_)) '()) (if (let () (declare (not safe)) - (__AST-pair? _%$tl122450122596%_)) - (let* ((_%$tgt122451122600%_ + (__AST-pair? _%$tl126218126364%_)) + (let* ((_%$tgt126219126368%_ (let () (declare (not safe)) - (__AST-e _%$tl122450122596%_))) - (_%$hd122452122603%_ + (__AST-e _%$tl126218126364%_))) + (_%$hd126220126371%_ (let () (declare (not safe)) - (##car _%$tgt122451122600%_))) - (_%$tl122453122606%_ + (##car _%$tgt126219126368%_))) + (_%$tl126221126374%_ (let () (declare (not safe)) - (##cdr _%$tgt122451122600%_))) - (_%body122610%_ _%$hd122452122603%_)) + (##cdr _%$tgt126219126368%_))) + (_%body126378%_ _%$hd126220126371%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl122453122606%_)) + (__AST-e _%$tl126221126374%_)) '()) - (__compile _%body122610%_) - (_%$E122434122577%_))) - (_%$E122434122577%_)) - (_%$E122434122577%_))) - (_%$E122434122577%_))) - (_%$E122434122577%_)))))) + (__compile _%body126378%_) + (_%$E126202126345%_))) + (_%$E126202126345%_)) + (_%$E126202126345%_))) + (_%$E126202126345%_))) + (_%$E126202126345%_)))))) (define __compile-let-values% - (lambda (_%stx122237%_) - (letrec ((_%compile-simple122239%_ - (lambda (_%hd-ids122421%_ _%exprs122422%_ _%body122423%_) + (lambda (_%stx126005%_) + (letrec ((_%compile-simple126007%_ + (lambda (_%hd-ids126189%_ _%exprs126190%_ _%body126191%_) (__SRC__% (cons 'let - (cons (let ((__tmp123540 + (cons (let ((__tmp127308 (map __compile-head-id - _%hd-ids122421%_))) + _%hd-ids126189%_))) (declare (not safe)) - (##map list __tmp123540 _%exprs122422%_)) - (cons _%body122423%_ '()))) - _%stx122237%_))) - (_%compile-values122240%_ - (lambda (_%hd-ids122336%_ _%exprs122337%_ _%body122338%_) - (let _%lp122340%_ ((_%rest122342%_ _%hd-ids122336%_) - (_%exprs122343%_ _%exprs122337%_) - (_%bind122344%_ '()) - (_%post122345%_ '())) - (let* ((_%rest122346122360%_ _%rest122342%_) - (_%else122349122368%_ + (##map list __tmp127308 _%exprs126190%_)) + (cons _%body126191%_ '()))) + _%stx126005%_))) + (_%compile-values126008%_ + (lambda (_%hd-ids126104%_ _%exprs126105%_ _%body126106%_) + (let _%lp126108%_ ((_%rest126110%_ _%hd-ids126104%_) + (_%exprs126111%_ _%exprs126105%_) + (_%bind126112%_ '()) + (_%post126113%_ '())) + (let* ((_%rest126114126128%_ _%rest126110%_) + (_%else126117126136%_ (lambda () (__SRC__% (cons 'let - (cons (reverse _%bind122344%_) - (cons (_%compile-post122241%_ - _%post122345%_ - _%body122338%_) + (cons (reverse _%bind126112%_) + (cons (_%compile-post126009%_ + _%post126113%_ + _%body126106%_) '()))) - _%stx122237%_)))) - (let ((_%K122354122404%_ - (lambda (_%rest122401%_ _%id122402%_) - (_%lp122340%_ - _%rest122401%_ - (cdr _%exprs122343%_) - (cons (cons (__compile-head-id _%id122402%_) - (cons (car _%exprs122343%_) '())) - _%bind122344%_) - _%post122345%_))) - (_%K122351122386%_ - (lambda (_%rest122372%_ _%hd122373%_) + _%stx126005%_)))) + (let ((_%K126122126172%_ + (lambda (_%rest126169%_ _%id126170%_) + (_%lp126108%_ + _%rest126169%_ + (cdr _%exprs126111%_) + (cons (cons (__compile-head-id _%id126170%_) + (cons (car _%exprs126111%_) '())) + _%bind126112%_) + _%post126113%_))) + (_%K126119126154%_ + (lambda (_%rest126140%_ _%hd126141%_) (if (let () (declare (not safe)) - (__AST-id? _%hd122373%_)) - (_%lp122340%_ - _%rest122372%_ - (cdr _%exprs122343%_) + (__AST-id? _%hd126141%_)) + (_%lp126108%_ + _%rest126140%_ + (cdr _%exprs126111%_) (cons (cons (__compile-head-id - _%hd122373%_) + _%hd126141%_) (cons (cons 'values->list - (cons (car _%exprs122343%_) + (cons (car _%exprs126111%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind122344%_) - _%post122345%_) - (if (list? _%hd122373%_) - (let* ((_%len122377%_ + _%bind126112%_) + _%post126113%_) + (if (list? _%hd126141%_) + (let* ((_%len126145%_ (let () (declare (not safe)) - (##length _%hd122373%_))) - (_%tmp122379%_ + (##length _%hd126141%_))) + (_%tmp126147%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp122340%_ - _%rest122372%_ - (cdr _%exprs122343%_) - (cons (cons _%tmp122379%_ - (cons (car _%exprs122343%_) + (_%lp126108%_ + _%rest126140%_ + (cdr _%exprs126111%_) + (cons (cons _%tmp126147%_ + (cons (car _%exprs126111%_) '())) - _%bind122344%_) - (cons (cons _%tmp122379%_ - (cons _%len122377%_ - (let ((__tmp123542 + _%bind126112%_) + (cons (cons _%tmp126147%_ + (cons _%len126145%_ + (let ((__tmp127310 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%id122382%_ _%k122383%_) + (lambda (_%id126150%_ _%k126151%_) (if (let () (declare (not safe)) - (__AST-e _%id122382%_)) - (cons (__SRC__0 _%id122382%_) _%k122383%_) + (__AST-e _%id126150%_)) + (cons (__SRC__0 _%id126150%_) _%k126151%_) '#f))) - (__tmp123541 + (__tmp127309 (let () (declare (not safe)) - (##iota _%len122377%_)))) + (##iota _%len126145%_)))) (declare (not safe)) - (__filter-map2 __tmp123542 _%hd122373%_ __tmp123541)))) + (__filter-map2 __tmp127310 _%hd126141%_ __tmp127309)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post122345%_))) + _%post126113%_))) (__compile-error__% - _%stx122237%_ - _%hd122373%_)))))) - (if (pair? _%rest122346122360%_) - (let ((_%tl122356122409%_ + _%stx126005%_ + _%hd126141%_)))))) + (if (pair? _%rest126114126128%_) + (let ((_%tl126124126177%_ (let () (declare (not safe)) - (##cdr _%rest122346122360%_))) - (_%hd122355122407%_ + (##cdr _%rest126114126128%_))) + (_%hd126123126175%_ (let () (declare (not safe)) - (##car _%rest122346122360%_)))) - (if (pair? _%hd122355122407%_) - (let ((_%tl122358122414%_ + (##car _%rest126114126128%_)))) + (if (pair? _%hd126123126175%_) + (let ((_%tl126126126182%_ (let () (declare (not safe)) - (##cdr _%hd122355122407%_))) - (_%hd122357122412%_ + (##cdr _%hd126123126175%_))) + (_%hd126125126180%_ (let () (declare (not safe)) - (##car _%hd122355122407%_)))) - (if (null? _%tl122358122414%_) - (let ((_%id122417%_ - _%hd122357122412%_) - (_%rest122419%_ - _%tl122356122409%_)) - (_%K122354122404%_ - _%rest122419%_ - _%id122417%_)) - (let ((_%hd122394%_ - _%hd122355122407%_) - (_%rest122396%_ - _%tl122356122409%_)) - (_%K122351122386%_ - _%rest122396%_ - _%hd122394%_)))) - (let ((_%hd122394%_ _%hd122355122407%_) - (_%rest122396%_ _%tl122356122409%_)) - (_%K122351122386%_ - _%rest122396%_ - _%hd122394%_)))) - (_%else122349122368%_))))))) - (_%compile-post122241%_ - (lambda (_%post122243%_ _%body122244%_) - (let _%lp122246%_ ((_%rest122248%_ _%post122243%_) - (_%check122249%_ '()) - (_%bind122250%_ '())) - (let* ((_%rest122251122263%_ _%rest122248%_) - (_%else122253122271%_ + (##car _%hd126123126175%_)))) + (if (null? _%tl126126126182%_) + (let ((_%id126185%_ + _%hd126125126180%_) + (_%rest126187%_ + _%tl126124126177%_)) + (_%K126122126172%_ + _%rest126187%_ + _%id126185%_)) + (let ((_%hd126162%_ + _%hd126123126175%_) + (_%rest126164%_ + _%tl126124126177%_)) + (_%K126119126154%_ + _%rest126164%_ + _%hd126162%_)))) + (let ((_%hd126162%_ _%hd126123126175%_) + (_%rest126164%_ _%tl126124126177%_)) + (_%K126119126154%_ + _%rest126164%_ + _%hd126162%_)))) + (_%else126117126136%_))))))) + (_%compile-post126009%_ + (lambda (_%post126011%_ _%body126012%_) + (let _%lp126014%_ ((_%rest126016%_ _%post126011%_) + (_%check126017%_ '()) + (_%bind126018%_ '())) + (let* ((_%rest126019126031%_ _%rest126016%_) + (_%else126021126039%_ (lambda () (__SRC__% (cons 'begin - (let ((__tmp123543 + (let ((__tmp127311 (cons (__SRC__% (cons 'let - (cons _%bind122250%_ + (cons _%bind126018%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%body122244%_ '()))) + (cons _%body126012%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx122237%_) + _%stx126005%_) '()))) (declare (not safe)) (__foldr1 cons - __tmp123543 - _%check122249%_))) - _%stx122237%_))) - (_%K122255122310%_ - (lambda (_%rest122274%_ - _%init122275%_ - _%len122276%_ - _%tmp122277%_) - (_%lp122246%_ - _%rest122274%_ + __tmp127311 + _%check126017%_))) + _%stx126005%_))) + (_%K126023126078%_ + (lambda (_%rest126042%_ + _%init126043%_ + _%len126044%_ + _%tmp126045%_) + (_%lp126014%_ + _%rest126042%_ (cons (__SRC__% (cons '__check-values - (cons _%tmp122277%_ - (cons _%len122276%_ '()))) - _%stx122237%_) - _%check122249%_) - (let ((__tmp123544 - (lambda (_%hd122279%_ _%r122280%_) - (let* ((_%hd122281122288%_ - _%hd122279%_) - (_%E122283122292%_ + (cons _%tmp126045%_ + (cons _%len126044%_ '()))) + _%stx126005%_) + _%check126017%_) + (let ((__tmp127312 + (lambda (_%hd126047%_ _%r126048%_) + (let* ((_%hd126049126056%_ + _%hd126047%_) + (_%E126051126060%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd122281122288%_ + _%hd126049126056%_ '([id . k]))) '#!void)) - (_%K122284122298%_ - (lambda (_%k122295%_ - _%id122296%_) - (cons (cons _%id122296%_ + (_%K126052126066%_ + (lambda (_%k126063%_ + _%id126064%_) + (cons (cons _%id126064%_ (cons (cons '##values-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%tmp122277%_ - (cons _%k122295%_ '()))) + (cons _%tmp126045%_ + (cons _%k126063%_ '()))) '())) - _%r122280%_)))) + _%r126048%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%hd122281122288%_) - (let ((_%hd122285122301%_ + (if (pair? _%hd126049126056%_) + (let ((_%hd126053126069%_ (let () (declare (not safe)) - (##car _%hd122281122288%_))) - (_%tl122286122303%_ + (##car _%hd126049126056%_))) + (_%tl126054126071%_ (let () (declare (not safe)) - (##cdr _%hd122281122288%_)))) - (let* ((_%id122306%_ - _%hd122285122301%_) - (_%k122308%_ - _%tl122286122303%_)) - (_%K122284122298%_ - _%k122308%_ - _%id122306%_))) - (_%E122283122292%_)))))) + (##cdr _%hd126049126056%_)))) + (let* ((_%id126074%_ + _%hd126053126069%_) + (_%k126076%_ + _%tl126054126071%_)) + (_%K126052126066%_ + _%k126076%_ + _%id126074%_))) + (_%E126051126060%_)))))) (declare (not safe)) (__foldr1 - __tmp123544 - _%bind122250%_ - _%init122275%_)))))) - (if (pair? _%rest122251122263%_) - (let ((_%hd122256122313%_ + __tmp127312 + _%bind126018%_ + _%init126043%_)))))) + (if (pair? _%rest126019126031%_) + (let ((_%hd126024126081%_ (let () (declare (not safe)) - (##car _%rest122251122263%_))) - (_%tl122257122315%_ + (##car _%rest126019126031%_))) + (_%tl126025126083%_ (let () (declare (not safe)) - (##cdr _%rest122251122263%_)))) - (if (pair? _%hd122256122313%_) - (let ((_%hd122258122318%_ + (##cdr _%rest126019126031%_)))) + (if (pair? _%hd126024126081%_) + (let ((_%hd126026126086%_ (let () (declare (not safe)) - (##car _%hd122256122313%_))) - (_%tl122259122320%_ + (##car _%hd126024126081%_))) + (_%tl126027126088%_ (let () (declare (not safe)) - (##cdr _%hd122256122313%_)))) - (let ((_%tmp122323%_ _%hd122258122318%_)) - (if (pair? _%tl122259122320%_) - (let ((_%hd122260122325%_ + (##cdr _%hd126024126081%_)))) + (let ((_%tmp126091%_ _%hd126026126086%_)) + (if (pair? _%tl126027126088%_) + (let ((_%hd126028126093%_ (let () (declare (not safe)) - (##car _%tl122259122320%_))) - (_%tl122261122327%_ + (##car _%tl126027126088%_))) + (_%tl126029126095%_ (let () (declare (not safe)) - (##cdr _%tl122259122320%_)))) - (let* ((_%len122330%_ - _%hd122260122325%_) - (_%init122332%_ - _%tl122261122327%_) - (_%rest122334%_ - _%tl122257122315%_)) - (_%K122255122310%_ - _%rest122334%_ - _%init122332%_ - _%len122330%_ - _%tmp122323%_))) - (_%else122253122271%_)))) - (_%else122253122271%_))) - (_%else122253122271%_))))))) + (##cdr _%tl126027126088%_)))) + (let* ((_%len126098%_ + _%hd126028126093%_) + (_%init126100%_ + _%tl126029126095%_) + (_%rest126102%_ + _%tl126025126083%_)) + (_%K126023126078%_ + _%rest126102%_ + _%init126100%_ + _%len126098%_ + _%tmp126091%_))) + (_%else126021126039%_)))) + (_%else126021126039%_))) + (_%else126021126039%_))))))) (__compile-let-form - _%stx122237%_ - _%compile-simple122239%_ - _%compile-values122240%_)))) + _%stx126005%_ + _%compile-simple126007%_ + _%compile-values126008%_)))) (define __compile-letrec-values% - (lambda (_%stx122034%_) - (letrec ((_%compile-simple122036%_ - (lambda (_%hd-ids122233%_ _%exprs122234%_ _%body122235%_) + (lambda (_%stx125802%_) + (letrec ((_%compile-simple125804%_ + (lambda (_%hd-ids126001%_ _%exprs126002%_ _%body126003%_) (__SRC__% (cons 'letrec - (cons (let ((__tmp123545 + (cons (let ((__tmp127313 (map __compile-head-id - _%hd-ids122233%_))) + _%hd-ids126001%_))) (declare (not safe)) - (##map list __tmp123545 _%exprs122234%_)) - (cons _%body122235%_ '()))) - _%stx122034%_))) - (_%compile-values122037%_ - (lambda (_%hd-ids122144%_ _%exprs122145%_ _%body122146%_) - (let _%lp122148%_ ((_%rest122150%_ _%hd-ids122144%_) - (_%exprs122151%_ _%exprs122145%_) - (_%pre122152%_ '()) - (_%bind122153%_ '()) - (_%post122154%_ '())) - (let* ((_%rest122155122169%_ _%rest122150%_) - (_%else122158122177%_ + (##map list __tmp127313 _%exprs126002%_)) + (cons _%body126003%_ '()))) + _%stx125802%_))) + (_%compile-values125805%_ + (lambda (_%hd-ids125912%_ _%exprs125913%_ _%body125914%_) + (let _%lp125916%_ ((_%rest125918%_ _%hd-ids125912%_) + (_%exprs125919%_ _%exprs125913%_) + (_%pre125920%_ '()) + (_%bind125921%_ '()) + (_%post125922%_ '())) + (let* ((_%rest125923125937%_ _%rest125918%_) + (_%else125926125945%_ (lambda () - (_%compile-inner122038%_ - _%pre122152%_ - _%bind122153%_ - _%post122154%_ - _%body122146%_)))) - (let ((_%K122163122216%_ - (lambda (_%rest122213%_ _%id122214%_) - (_%lp122148%_ - _%rest122213%_ - (cdr _%exprs122151%_) - _%pre122152%_ - (cons (cons (__compile-head-id _%id122214%_) - (cons (car _%exprs122151%_) '())) - _%bind122153%_) - _%post122154%_))) - (_%K122160122198%_ - (lambda (_%rest122181%_ _%hd122182%_) + (_%compile-inner125806%_ + _%pre125920%_ + _%bind125921%_ + _%post125922%_ + _%body125914%_)))) + (let ((_%K125931125984%_ + (lambda (_%rest125981%_ _%id125982%_) + (_%lp125916%_ + _%rest125981%_ + (cdr _%exprs125919%_) + _%pre125920%_ + (cons (cons (__compile-head-id _%id125982%_) + (cons (car _%exprs125919%_) '())) + _%bind125921%_) + _%post125922%_))) + (_%K125928125966%_ + (lambda (_%rest125949%_ _%hd125950%_) (if (let () (declare (not safe)) - (__AST-id? _%hd122182%_)) - (_%lp122148%_ - _%rest122181%_ - (cdr _%exprs122151%_) - _%pre122152%_ + (__AST-id? _%hd125950%_)) + (_%lp125916%_ + _%rest125949%_ + (cdr _%exprs125919%_) + _%pre125920%_ (cons (cons (__compile-head-id - _%hd122182%_) + _%hd125950%_) (cons (cons 'values->list - (cons (car _%exprs122151%_) + (cons (car _%exprs125919%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind122153%_) - _%post122154%_) - (if (list? _%hd122182%_) - (let* ((_%len122186%_ + _%bind125921%_) + _%post125922%_) + (if (list? _%hd125950%_) + (let* ((_%len125954%_ (let () (declare (not safe)) - (##length _%hd122182%_))) - (_%tmp122188%_ + (##length _%hd125950%_))) + (_%tmp125956%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp122148%_ - _%rest122181%_ - (cdr _%exprs122151%_) - (let ((__tmp123546 - (lambda (_%id122191%_ - _%r122192%_) + (_%lp125916%_ + _%rest125949%_ + (cdr _%exprs125919%_) + (let ((__tmp127314 + (lambda (_%id125959%_ + _%r125960%_) (if (let () (declare (not safe)) - (__AST-e _%id122191%_)) + (__AST-e _%id125959%_)) (cons (cons (__SRC__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id122191%_) + _%id125959%_) (cons (cons 'quote (cons '#!void '())) '())) - _%r122192%_) - _%r122192%_)))) + _%r125960%_) + _%r125960%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 - __tmp123546 - _%pre122152%_ - _%hd122182%_)) - (cons (cons _%tmp122188%_ - (cons (car _%exprs122151%_) + __tmp127314 + _%pre125920%_ + _%hd125950%_)) + (cons (cons _%tmp125956%_ + (cons (car _%exprs125919%_) '())) - _%bind122153%_) - (cons (cons _%tmp122188%_ - (cons _%len122186%_ - (let ((__tmp123548 + _%bind125921%_) + (cons (cons _%tmp125956%_ + (cons _%len125954%_ + (let ((__tmp127316 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%id122194%_ _%k122195%_) + (lambda (_%id125962%_ _%k125963%_) (if (let () (declare (not safe)) - (__AST-e _%id122194%_)) - (cons (__SRC__0 _%id122194%_) _%k122195%_) + (__AST-e _%id125962%_)) + (cons (__SRC__0 _%id125962%_) _%k125963%_) '#f))) - (__tmp123547 + (__tmp127315 (let () (declare (not safe)) - (##iota _%len122186%_)))) + (##iota _%len125954%_)))) (declare (not safe)) - (__filter-map2 __tmp123548 _%hd122182%_ __tmp123547)))) + (__filter-map2 __tmp127316 _%hd125950%_ __tmp127315)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post122154%_))) + _%post125922%_))) (__compile-error__% - _%stx122034%_ - _%hd122182%_)))))) - (if (pair? _%rest122155122169%_) - (let ((_%tl122165122221%_ + _%stx125802%_ + _%hd125950%_)))))) + (if (pair? _%rest125923125937%_) + (let ((_%tl125933125989%_ (let () (declare (not safe)) - (##cdr _%rest122155122169%_))) - (_%hd122164122219%_ + (##cdr _%rest125923125937%_))) + (_%hd125932125987%_ (let () (declare (not safe)) - (##car _%rest122155122169%_)))) - (if (pair? _%hd122164122219%_) - (let ((_%tl122167122226%_ + (##car _%rest125923125937%_)))) + (if (pair? _%hd125932125987%_) + (let ((_%tl125935125994%_ (let () (declare (not safe)) - (##cdr _%hd122164122219%_))) - (_%hd122166122224%_ + (##cdr _%hd125932125987%_))) + (_%hd125934125992%_ (let () (declare (not safe)) - (##car _%hd122164122219%_)))) - (if (null? _%tl122167122226%_) - (let ((_%id122229%_ - _%hd122166122224%_) - (_%rest122231%_ - _%tl122165122221%_)) - (_%K122163122216%_ - _%rest122231%_ - _%id122229%_)) - (let ((_%hd122206%_ - _%hd122164122219%_) - (_%rest122208%_ - _%tl122165122221%_)) - (_%K122160122198%_ - _%rest122208%_ - _%hd122206%_)))) - (let ((_%hd122206%_ _%hd122164122219%_) - (_%rest122208%_ _%tl122165122221%_)) - (_%K122160122198%_ - _%rest122208%_ - _%hd122206%_)))) - (_%else122158122177%_))))))) - (_%compile-inner122038%_ - (lambda (_%pre122139%_ - _%bind122140%_ - _%post122141%_ - _%body122142%_) - (if (null? _%pre122139%_) - (_%compile-bind122039%_ - _%bind122140%_ - _%post122141%_ - _%body122142%_) + (##car _%hd125932125987%_)))) + (if (null? _%tl125935125994%_) + (let ((_%id125997%_ + _%hd125934125992%_) + (_%rest125999%_ + _%tl125933125989%_)) + (_%K125931125984%_ + _%rest125999%_ + _%id125997%_)) + (let ((_%hd125974%_ + _%hd125932125987%_) + (_%rest125976%_ + _%tl125933125989%_)) + (_%K125928125966%_ + _%rest125976%_ + _%hd125974%_)))) + (let ((_%hd125974%_ _%hd125932125987%_) + (_%rest125976%_ _%tl125933125989%_)) + (_%K125928125966%_ + _%rest125976%_ + _%hd125974%_)))) + (_%else125926125945%_))))))) + (_%compile-inner125806%_ + (lambda (_%pre125907%_ + _%bind125908%_ + _%post125909%_ + _%body125910%_) + (if (null? _%pre125907%_) + (_%compile-bind125807%_ + _%bind125908%_ + _%post125909%_ + _%body125910%_) (__SRC__% (cons 'let - (cons (reverse _%pre122139%_) - (cons (_%compile-bind122039%_ - _%bind122140%_ - _%post122141%_ - _%body122142%_) + (cons (reverse _%pre125907%_) + (cons (_%compile-bind125807%_ + _%bind125908%_ + _%post125909%_ + _%body125910%_) '()))) - _%stx122034%_)))) - (_%compile-bind122039%_ - (lambda (_%bind122135%_ _%post122136%_ _%body122137%_) + _%stx125802%_)))) + (_%compile-bind125807%_ + (lambda (_%bind125903%_ _%post125904%_ _%body125905%_) (__SRC__% (cons 'letrec - (cons (reverse _%bind122135%_) - (cons (_%compile-post122040%_ - _%post122136%_ - _%body122137%_) + (cons (reverse _%bind125903%_) + (cons (_%compile-post125808%_ + _%post125904%_ + _%body125905%_) '()))) - _%stx122034%_))) - (_%compile-post122040%_ - (lambda (_%post122042%_ _%body122043%_) - (let _%lp122045%_ ((_%rest122047%_ _%post122042%_) - (_%check122048%_ '()) - (_%bind122049%_ '())) - (let* ((_%rest122050122062%_ _%rest122047%_) - (_%else122052122070%_ + _%stx125802%_))) + (_%compile-post125808%_ + (lambda (_%post125810%_ _%body125811%_) + (let _%lp125813%_ ((_%rest125815%_ _%post125810%_) + (_%check125816%_ '()) + (_%bind125817%_ '())) + (let* ((_%rest125818125830%_ _%rest125815%_) + (_%else125820125838%_ (lambda () (__SRC__% (cons 'begin - (let ((__tmp123549 - (let ((__tmp123550 - (cons _%body122043%_ + (let ((__tmp127317 + (let ((__tmp127318 + (cons _%body125811%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp123550 - _%bind122049%_)))) + __tmp127318 + _%bind125817%_)))) (declare (not safe)) (__foldr1 cons - __tmp123549 - _%check122048%_))) - _%stx122034%_))) - (_%K122054122109%_ - (lambda (_%rest122073%_ - _%init122074%_ - _%len122075%_ - _%tmp122076%_) - (_%lp122045%_ - _%rest122073%_ + __tmp127317 + _%check125816%_))) + _%stx125802%_))) + (_%K125822125877%_ + (lambda (_%rest125841%_ + _%init125842%_ + _%len125843%_ + _%tmp125844%_) + (_%lp125813%_ + _%rest125841%_ (cons (__SRC__% (cons '__check-values - (cons _%tmp122076%_ - (cons _%len122075%_ '()))) - _%stx122034%_) - _%check122048%_) - (let ((__tmp123551 - (lambda (_%hd122078%_ _%r122079%_) - (let* ((_%hd122080122087%_ - _%hd122078%_) - (_%E122082122091%_ + (cons _%tmp125844%_ + (cons _%len125843%_ '()))) + _%stx125802%_) + _%check125816%_) + (let ((__tmp127319 + (lambda (_%hd125846%_ _%r125847%_) + (let* ((_%hd125848125855%_ + _%hd125846%_) + (_%E125850125859%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd122080122087%_ + _%hd125848125855%_ '([id . k]))) '#!void)) - (_%K122083122097%_ - (lambda (_%k122094%_ - _%id122095%_) + (_%K125851125865%_ + (lambda (_%k125862%_ + _%id125863%_) (cons (cons 'set! - (cons _%id122095%_ + (cons _%id125863%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '##values-ref - (cons _%tmp122076%_ - (cons _%k122094%_ '()))) + (cons _%tmp125844%_ + (cons _%k125862%_ '()))) '()))) - _%r122079%_)))) + _%r125847%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%hd122080122087%_) - (let ((_%hd122084122100%_ + (if (pair? _%hd125848125855%_) + (let ((_%hd125852125868%_ (let () (declare (not safe)) - (##car _%hd122080122087%_))) - (_%tl122085122102%_ + (##car _%hd125848125855%_))) + (_%tl125853125870%_ (let () (declare (not safe)) - (##cdr _%hd122080122087%_)))) - (let* ((_%id122105%_ - _%hd122084122100%_) - (_%k122107%_ - _%tl122085122102%_)) - (_%K122083122097%_ - _%k122107%_ - _%id122105%_))) - (_%E122082122091%_)))))) + (##cdr _%hd125848125855%_)))) + (let* ((_%id125873%_ + _%hd125852125868%_) + (_%k125875%_ + _%tl125853125870%_)) + (_%K125851125865%_ + _%k125875%_ + _%id125873%_))) + (_%E125850125859%_)))))) (declare (not safe)) (__foldr1 - __tmp123551 - _%bind122049%_ - _%init122074%_)))))) - (if (pair? _%rest122050122062%_) - (let ((_%hd122055122112%_ + __tmp127319 + _%bind125817%_ + _%init125842%_)))))) + (if (pair? _%rest125818125830%_) + (let ((_%hd125823125880%_ (let () (declare (not safe)) - (##car _%rest122050122062%_))) - (_%tl122056122114%_ + (##car _%rest125818125830%_))) + (_%tl125824125882%_ (let () (declare (not safe)) - (##cdr _%rest122050122062%_)))) - (if (pair? _%hd122055122112%_) - (let ((_%hd122057122117%_ + (##cdr _%rest125818125830%_)))) + (if (pair? _%hd125823125880%_) + (let ((_%hd125825125885%_ (let () (declare (not safe)) - (##car _%hd122055122112%_))) - (_%tl122058122119%_ + (##car _%hd125823125880%_))) + (_%tl125826125887%_ (let () (declare (not safe)) - (##cdr _%hd122055122112%_)))) - (let ((_%tmp122122%_ _%hd122057122117%_)) - (if (pair? _%tl122058122119%_) - (let ((_%hd122059122124%_ + (##cdr _%hd125823125880%_)))) + (let ((_%tmp125890%_ _%hd125825125885%_)) + (if (pair? _%tl125826125887%_) + (let ((_%hd125827125892%_ (let () (declare (not safe)) - (##car _%tl122058122119%_))) - (_%tl122060122126%_ + (##car _%tl125826125887%_))) + (_%tl125828125894%_ (let () (declare (not safe)) - (##cdr _%tl122058122119%_)))) - (let* ((_%len122129%_ - _%hd122059122124%_) - (_%init122131%_ - _%tl122060122126%_) - (_%rest122133%_ - _%tl122056122114%_)) - (_%K122054122109%_ - _%rest122133%_ - _%init122131%_ - _%len122129%_ - _%tmp122122%_))) - (_%else122052122070%_)))) - (_%else122052122070%_))) - (_%else122052122070%_))))))) + (##cdr _%tl125826125887%_)))) + (let* ((_%len125897%_ + _%hd125827125892%_) + (_%init125899%_ + _%tl125828125894%_) + (_%rest125901%_ + _%tl125824125882%_)) + (_%K125822125877%_ + _%rest125901%_ + _%init125899%_ + _%len125897%_ + _%tmp125890%_))) + (_%else125820125838%_)))) + (_%else125820125838%_))) + (_%else125820125838%_))))))) (__compile-let-form - _%stx122034%_ - _%compile-simple122036%_ - _%compile-values122037%_)))) + _%stx125802%_ + _%compile-simple125804%_ + _%compile-values125805%_)))) (define __compile-letrec*-values% - (lambda (_%stx121785%_) - (letrec ((_%compile-simple121787%_ - (lambda (_%hd-ids122030%_ _%exprs122031%_ _%body122032%_) + (lambda (_%stx125553%_) + (letrec ((_%compile-simple125555%_ + (lambda (_%hd-ids125798%_ _%exprs125799%_ _%body125800%_) (__SRC__% (cons 'letrec* - (cons (let ((__tmp123552 + (cons (let ((__tmp127320 (map __compile-head-id - _%hd-ids122030%_))) + _%hd-ids125798%_))) (declare (not safe)) - (##map list __tmp123552 _%exprs122031%_)) - (cons _%body122032%_ '()))) - _%stx121785%_))) - (_%compile-values121788%_ - (lambda (_%hd-ids121937%_ _%exprs121938%_ _%body121939%_) - (let _%lp121941%_ ((_%rest121943%_ _%hd-ids121937%_) - (_%exprs121944%_ _%exprs121938%_) - (_%bind121945%_ '()) - (_%post121946%_ '())) - (let* ((_%rest121947121961%_ _%rest121943%_) - (_%else121950121969%_ + (##map list __tmp127320 _%exprs125799%_)) + (cons _%body125800%_ '()))) + _%stx125553%_))) + (_%compile-values125556%_ + (lambda (_%hd-ids125705%_ _%exprs125706%_ _%body125707%_) + (let _%lp125709%_ ((_%rest125711%_ _%hd-ids125705%_) + (_%exprs125712%_ _%exprs125706%_) + (_%bind125713%_ '()) + (_%post125714%_ '())) + (let* ((_%rest125715125729%_ _%rest125711%_) + (_%else125718125737%_ (lambda () - (_%compile-bind121789%_ - _%bind121945%_ - _%post121946%_ - _%body121939%_)))) - (let ((_%K121955122013%_ - (lambda (_%rest122008%_ _%hd122009%_) + (_%compile-bind125557%_ + _%bind125713%_ + _%post125714%_ + _%body125707%_)))) + (let ((_%K125723125781%_ + (lambda (_%rest125776%_ _%hd125777%_) (if (let () (declare (not safe)) - (__AST-id? _%hd122009%_)) - (let ((_%id122011%_ - (__SRC__0 _%hd122009%_))) - (_%lp121941%_ - _%rest122008%_ - (cdr _%exprs121944%_) - (cons (cons _%id122011%_ + (__AST-id? _%hd125777%_)) + (let ((_%id125779%_ + (__SRC__0 _%hd125777%_))) + (_%lp125709%_ + _%rest125776%_ + (cdr _%exprs125712%_) + (cons (cons _%id125779%_ (cons (cons 'quote (cons '#!void ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind121945%_) - (cons (cons _%id122011%_ - (cons (car _%exprs121944%_) + _%bind125713%_) + (cons (cons _%id125779%_ + (cons (car _%exprs125712%_) '())) - _%post121946%_))) - (_%lp121941%_ - _%rest122008%_ - (cdr _%exprs121944%_) - _%bind121945%_ + _%post125714%_))) + (_%lp125709%_ + _%rest125776%_ + (cdr _%exprs125712%_) + _%bind125713%_ (cons (cons '#f - (cons (car _%exprs121944%_) + (cons (car _%exprs125712%_) '())) - _%post121946%_))))) - (_%K121952121993%_ - (lambda (_%rest121973%_ _%hd121974%_) + _%post125714%_))))) + (_%K125720125761%_ + (lambda (_%rest125741%_ _%hd125742%_) (if (let () (declare (not safe)) - (__AST-id? _%hd121974%_)) - (let ((_%id121977%_ - (__SRC__0 _%hd121974%_))) - (_%lp121941%_ - _%rest121973%_ - (cdr _%exprs121944%_) - (cons (cons _%id121977%_ + (__AST-id? _%hd125742%_)) + (let ((_%id125745%_ + (__SRC__0 _%hd125742%_))) + (_%lp125709%_ + _%rest125741%_ + (cdr _%exprs125712%_) + (cons (cons _%id125745%_ (cons (cons 'quote (cons '#!void ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind121945%_) - (cons (cons _%id121977%_ + _%bind125713%_) + (cons (cons _%id125745%_ (cons (cons 'values->list - (cons (car _%exprs121944%_) + (cons (car _%exprs125712%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post121946%_))) + _%post125714%_))) (if (let () (declare (not safe)) - (__AST-e _%hd121974%_)) - (if (list? _%hd121974%_) - (let* ((_%len121981%_ + (__AST-e _%hd125742%_)) + (if (list? _%hd125742%_) + (let* ((_%len125749%_ (let () (declare (not safe)) (##length - _%hd121974%_))) - (_%tmp121983%_ + _%hd125742%_))) + (_%tmp125751%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp121941%_ - _%rest121973%_ - (cdr _%exprs121944%_) - (let ((__tmp123553 - (lambda (_%id121986%_ - _%r121987%_) + (_%lp125709%_ + _%rest125741%_ + (cdr _%exprs125712%_) + (let ((__tmp127321 + (lambda (_%id125754%_ + _%r125755%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__AST-e _%id121986%_)) - (cons (cons (__SRC__0 _%id121986%_) + (__AST-e _%id125754%_)) + (cons (cons (__SRC__0 _%id125754%_) (cons (cons 'quote (cons '#!void '())) '())) - _%r121987%_) - _%r121987%_)))) + _%r125755%_) + _%r125755%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 - __tmp123553 - _%bind121945%_ - _%hd121974%_)) - (cons (cons _%tmp121983%_ - (cons (car _%exprs121944%_) + __tmp127321 + _%bind125713%_ + _%hd125742%_)) + (cons (cons _%tmp125751%_ + (cons (car _%exprs125712%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%len121981%_ - (let ((__tmp123555 - (lambda (_%id121989%_ _%k121990%_) + (cons _%len125749%_ + (let ((__tmp127323 + (lambda (_%id125757%_ _%k125758%_) (if (let () (declare (not safe)) - (__AST-e _%id121989%_)) - (cons (__SRC__0 _%id121989%_) - _%k121990%_) + (__AST-e _%id125757%_)) + (cons (__SRC__0 _%id125757%_) + _%k125758%_) '#f))) - (__tmp123554 + (__tmp127322 (let () (declare (not safe)) - (##iota _%len121981%_)))) + (##iota _%len125749%_)))) (declare (not safe)) (__filter-map2 - __tmp123555 - _%hd121974%_ - __tmp123554))))) - _%post121946%_))) + __tmp127323 + _%hd125742%_ + __tmp127322))))) + _%post125714%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (__compile-error__% - _%stx121785%_ - _%hd121974%_)) - (_%lp121941%_ - _%rest121973%_ - (cdr _%exprs121944%_) - _%bind121945%_ + _%stx125553%_ + _%hd125742%_)) + (_%lp125709%_ + _%rest125741%_ + (cdr _%exprs125712%_) + _%bind125713%_ (cons (cons '#f - (cons (car _%exprs121944%_) + (cons (car _%exprs125712%_) '())) - _%post121946%_))))))) - (if (pair? _%rest121947121961%_) - (let ((_%tl121957122018%_ + _%post125714%_))))))) + (if (pair? _%rest125715125729%_) + (let ((_%tl125725125786%_ (let () (declare (not safe)) - (##cdr _%rest121947121961%_))) - (_%hd121956122016%_ + (##cdr _%rest125715125729%_))) + (_%hd125724125784%_ (let () (declare (not safe)) - (##car _%rest121947121961%_)))) - (if (pair? _%hd121956122016%_) - (let ((_%tl121959122023%_ + (##car _%rest125715125729%_)))) + (if (pair? _%hd125724125784%_) + (let ((_%tl125727125791%_ (let () (declare (not safe)) - (##cdr _%hd121956122016%_))) - (_%hd121958122021%_ + (##cdr _%hd125724125784%_))) + (_%hd125726125789%_ (let () (declare (not safe)) - (##car _%hd121956122016%_)))) - (if (null? _%tl121959122023%_) - (let ((_%hd122026%_ - _%hd121958122021%_) - (_%rest122028%_ - _%tl121957122018%_)) - (_%K121955122013%_ - _%rest122028%_ - _%hd122026%_)) - (let ((_%hd122001%_ - _%hd121956122016%_) - (_%rest122003%_ - _%tl121957122018%_)) - (_%K121952121993%_ - _%rest122003%_ - _%hd122001%_)))) - (let ((_%hd122001%_ _%hd121956122016%_) - (_%rest122003%_ _%tl121957122018%_)) - (_%K121952121993%_ - _%rest122003%_ - _%hd122001%_)))) - (_%else121950121969%_))))))) - (_%compile-bind121789%_ - (lambda (_%bind121933%_ _%post121934%_ _%body121935%_) + (##car _%hd125724125784%_)))) + (if (null? _%tl125727125791%_) + (let ((_%hd125794%_ + _%hd125726125789%_) + (_%rest125796%_ + _%tl125725125786%_)) + (_%K125723125781%_ + _%rest125796%_ + _%hd125794%_)) + (let ((_%hd125769%_ + _%hd125724125784%_) + (_%rest125771%_ + _%tl125725125786%_)) + (_%K125720125761%_ + _%rest125771%_ + _%hd125769%_)))) + (let ((_%hd125769%_ _%hd125724125784%_) + (_%rest125771%_ _%tl125725125786%_)) + (_%K125720125761%_ + _%rest125771%_ + _%hd125769%_)))) + (_%else125718125737%_))))))) + (_%compile-bind125557%_ + (lambda (_%bind125701%_ _%post125702%_ _%body125703%_) (__SRC__% (cons 'let - (cons (reverse _%bind121933%_) - (cons (_%compile-post121790%_ - _%post121934%_ - _%body121935%_) + (cons (reverse _%bind125701%_) + (cons (_%compile-post125558%_ + _%post125702%_ + _%body125703%_) '()))) - _%stx121785%_))) - (_%compile-post121790%_ - (lambda (_%post121792%_ _%body121793%_) + _%stx125553%_))) + (_%compile-post125558%_ + (lambda (_%post125560%_ _%body125561%_) (__SRC__% (cons 'begin - (let ((__tmp123556 - (let ((__tmp123558 - (lambda (_%hd121795%_ _%r121796%_) - (let* ((_%hd121797121820%_ - _%hd121795%_) - (_%E121801121824%_ + (let ((__tmp127324 + (let ((__tmp127326 + (lambda (_%hd125563%_ _%r125564%_) + (let* ((_%hd125565125588%_ + _%hd125563%_) + (_%E125569125592%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd121797121820%_ + _%hd125565125588%_ '([#f expr]) '([id expr]) '([tmp @@ -2203,553 +2203,553 @@ init]))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (let ((_%K121814121918%_ - (lambda (_%expr121916%_) - (cons _%expr121916%_ - _%r121796%_))) - (_%K121809121896%_ - (lambda (_%expr121893%_ - _%id121894%_) + (let ((_%K125582125686%_ + (lambda (_%expr125684%_) + (cons _%expr125684%_ + _%r125564%_))) + (_%K125577125664%_ + (lambda (_%expr125661%_ + _%id125662%_) (cons (__SRC__% (cons 'set! ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id121894%_ (cons _%expr121893%_ '()))) - _%stx121785%_) - _%r121796%_))) + (cons _%id125662%_ (cons _%expr125661%_ '()))) + _%stx125553%_) + _%r125564%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K121802121863%_ - (lambda (_%init121828%_ - _%len121829%_ - _%expr121830%_ - _%tmp121831%_) + (_%K125570125631%_ + (lambda (_%init125596%_ + _%len125597%_ + _%expr125598%_ + _%tmp125599%_) (cons (__SRC__% (cons 'let ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons _%tmp121831%_ - (cons _%expr121830%_ '())) + (cons (cons (cons _%tmp125599%_ + (cons _%expr125598%_ '())) '()) (cons (__SRC__% (cons '__check-values - (cons _%tmp121831%_ - (cons _%len121829%_ '()))) - _%stx121785%_) - (let ((__tmp123559 - (map (lambda (_%hd121833%_) - (let* ((_%hd121834121841%_ - _%hd121833%_) - (_%E121836121845%_ + (cons _%tmp125599%_ + (cons _%len125597%_ '()))) + _%stx125553%_) + (let ((__tmp127327 + (map (lambda (_%hd125601%_) + (let* ((_%hd125602125609%_ + _%hd125601%_) + (_%E125604125613%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (error '"No clause matching" - _%hd121834121841%_ + _%hd125602125609%_ '([id . k]))) '#!void)) - (_%K121837121851%_ - (lambda (_%k121848%_ _%id121849%_) + (_%K125605125619%_ + (lambda (_%k125616%_ _%id125617%_) (__SRC__% (cons 'set! - (cons _%id121849%_ + (cons _%id125617%_ (cons (cons '##values-ref - (cons _%tmp121831%_ - (cons _%k121848%_ '()))) + (cons _%tmp125599%_ + (cons _%k125616%_ '()))) '()))) - _%stx121785%_)))) - (if (pair? _%hd121834121841%_) - (let ((_%hd121838121854%_ + _%stx125553%_)))) + (if (pair? _%hd125602125609%_) + (let ((_%hd125606125622%_ (let () (declare (not safe)) - (##car _%hd121834121841%_))) - (_%tl121839121856%_ + (##car _%hd125602125609%_))) + (_%tl125607125624%_ (let () (declare (not safe)) - (##cdr _%hd121834121841%_)))) - (let* ((_%id121859%_ _%hd121838121854%_) - (_%k121861%_ _%tl121839121856%_)) - (_%K121837121851%_ _%k121861%_ _%id121859%_))) - (_%E121836121845%_)))) + (##cdr _%hd125602125609%_)))) + (let* ((_%id125627%_ _%hd125606125622%_) + (_%k125629%_ _%tl125607125624%_)) + (_%K125605125619%_ _%k125629%_ _%id125627%_))) + (_%E125604125613%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%init121828%_))) + _%init125596%_))) (declare (not safe)) - (__foldr1 cons '() __tmp123559))))) - _%stx121785%_) - _%r121796%_)))) + (__foldr1 cons '() __tmp127327))))) + _%stx125553%_) + _%r125564%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__match123412123413%_ - (lambda (_%hd121803121866%_ - _%tl121804121868%_ - _%hd121805121873%_ - _%tl121806121875%_) - (let ((_%tmp121871%_ - _%hd121803121866%_) - (_%expr121878%_ - _%hd121805121873%_)) - (_%E121801121824%_)))) - (_%__match123406123407%_ - (lambda (_%hd121803121866%_ - _%tl121804121868%_) - (let ((_%tmp121871%_ - _%hd121803121866%_)) - (_%E121801121824%_))))) - (if (pair? _%hd121797121820%_) - (let ((_%tl121816121923%_ + (let* ((_%__match127180127181%_ + (lambda (_%hd125571125634%_ + _%tl125572125636%_ + _%hd125573125641%_ + _%tl125574125643%_) + (let ((_%tmp125639%_ + _%hd125571125634%_) + (_%expr125646%_ + _%hd125573125641%_)) + (_%E125569125592%_)))) + (_%__match127174127175%_ + (lambda (_%hd125571125634%_ + _%tl125572125636%_) + (let ((_%tmp125639%_ + _%hd125571125634%_)) + (_%E125569125592%_))))) + (if (pair? _%hd125565125588%_) + (let ((_%tl125584125691%_ (let () (declare (not safe)) - (##cdr _%hd121797121820%_))) - (_%hd121815121921%_ + (##cdr _%hd125565125588%_))) + (_%hd125583125689%_ (let () (declare (not safe)) - (##car _%hd121797121820%_)))) + (##car _%hd125565125588%_)))) (if (let () (declare (not safe)) - (##eq? _%hd121815121921%_ + (##eq? _%hd125583125689%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f)) - (if (pair? _%tl121816121923%_) - (let ((_%tl121818121928%_ + (if (pair? _%tl125584125691%_) + (let ((_%tl125586125696%_ (let () (declare (not safe)) - (##cdr _%tl121816121923%_))) - (_%hd121817121926%_ + (##cdr _%tl125584125691%_))) + (_%hd125585125694%_ (let () (declare (not safe)) - (##car _%tl121816121923%_)))) - (if (null? _%tl121818121928%_) - (let ((_%expr121931%_ _%hd121817121926%_)) - (_%K121814121918%_ _%expr121931%_)) - (if (pair? _%tl121818121928%_) - (let ((_%tl121808121882%_ + (##car _%tl125584125691%_)))) + (if (null? _%tl125586125696%_) + (let ((_%expr125699%_ _%hd125585125694%_)) + (_%K125582125686%_ _%expr125699%_)) + (if (pair? _%tl125586125696%_) + (let ((_%tl125576125650%_ (let () (declare (not safe)) - (##cdr _%tl121818121928%_))) - (_%hd121807121880%_ + (##cdr _%tl125586125696%_))) + (_%hd125575125648%_ (let () (declare (not safe)) - (##car _%tl121818121928%_)))) - (let ((_%tmp121871%_ _%hd121815121921%_) - (_%expr121878%_ _%hd121817121926%_) - (_%len121885%_ _%hd121807121880%_) - (_%init121887%_ _%tl121808121882%_)) - (_%K121802121863%_ - _%init121887%_ - _%len121885%_ - _%expr121878%_ - _%tmp121871%_))) - (_%__match123412123413%_ - _%hd121815121921%_ - _%tl121816121923%_ - _%hd121817121926%_ - _%tl121818121928%_)))) - (_%__match123406123407%_ - _%hd121815121921%_ - _%tl121816121923%_)) - (if (pair? _%tl121816121923%_) - (let ((_%tl121813121908%_ + (##car _%tl125586125696%_)))) + (let ((_%tmp125639%_ _%hd125583125689%_) + (_%expr125646%_ _%hd125585125694%_) + (_%len125653%_ _%hd125575125648%_) + (_%init125655%_ _%tl125576125650%_)) + (_%K125570125631%_ + _%init125655%_ + _%len125653%_ + _%expr125646%_ + _%tmp125639%_))) + (_%__match127180127181%_ + _%hd125583125689%_ + _%tl125584125691%_ + _%hd125585125694%_ + _%tl125586125696%_)))) + (_%__match127174127175%_ + _%hd125583125689%_ + _%tl125584125691%_)) + (if (pair? _%tl125584125691%_) + (let ((_%tl125581125676%_ (let () (declare (not safe)) - (##cdr _%tl121816121923%_))) - (_%hd121812121906%_ + (##cdr _%tl125584125691%_))) + (_%hd125580125674%_ (let () (declare (not safe)) - (##car _%tl121816121923%_)))) - (if (null? _%tl121813121908%_) - (let ((_%id121904%_ _%hd121815121921%_) - (_%expr121911%_ _%hd121812121906%_)) - (_%K121809121896%_ _%expr121911%_ _%id121904%_)) - (if (pair? _%tl121813121908%_) - (let ((_%tl121808121882%_ + (##car _%tl125584125691%_)))) + (if (null? _%tl125581125676%_) + (let ((_%id125672%_ _%hd125583125689%_) + (_%expr125679%_ _%hd125580125674%_)) + (_%K125577125664%_ _%expr125679%_ _%id125672%_)) + (if (pair? _%tl125581125676%_) + (let ((_%tl125576125650%_ (let () (declare (not safe)) - (##cdr _%tl121813121908%_))) - (_%hd121807121880%_ + (##cdr _%tl125581125676%_))) + (_%hd125575125648%_ (let () (declare (not safe)) - (##car _%tl121813121908%_)))) - (let ((_%tmp121871%_ _%hd121815121921%_) - (_%expr121878%_ _%hd121812121906%_) - (_%len121885%_ _%hd121807121880%_) - (_%init121887%_ _%tl121808121882%_)) - (_%K121802121863%_ - _%init121887%_ - _%len121885%_ - _%expr121878%_ - _%tmp121871%_))) - (_%__match123412123413%_ - _%hd121815121921%_ - _%tl121816121923%_ - _%hd121812121906%_ - _%tl121813121908%_)))) - (_%__match123406123407%_ - _%hd121815121921%_ - _%tl121816121923%_)))) + (##car _%tl125581125676%_)))) + (let ((_%tmp125639%_ _%hd125583125689%_) + (_%expr125646%_ _%hd125580125674%_) + (_%len125653%_ _%hd125575125648%_) + (_%init125655%_ _%tl125576125650%_)) + (_%K125570125631%_ + _%init125655%_ + _%len125653%_ + _%expr125646%_ + _%tmp125639%_))) + (_%__match127180127181%_ + _%hd125583125689%_ + _%tl125584125691%_ + _%hd125580125674%_ + _%tl125581125676%_)))) + (_%__match127174127175%_ + _%hd125583125689%_ + _%tl125584125691%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E121801121824%_))))))) - (__tmp123557 (list _%body121793%_))) + (_%E125569125592%_))))))) + (__tmp127325 (list _%body125561%_))) (declare (not safe)) (__foldl1 - __tmp123558 - __tmp123557 - _%post121792%_)))) + __tmp127326 + __tmp127325 + _%post125560%_)))) (declare (not safe)) - (__foldr1 cons '() __tmp123556))) - _%stx121785%_)))) + (__foldr1 cons '() __tmp127324))) + _%stx125553%_)))) (__compile-let-form - _%stx121785%_ - _%compile-simple121787%_ - _%compile-values121788%_)))) + _%stx125553%_ + _%compile-simple125555%_ + _%compile-values125556%_)))) (define __compile-call% - (lambda (_%stx121745%_) - (let* ((_%$e121747%_ _%stx121745%_) - (_%$E121749121758%_ + (lambda (_%stx125513%_) + (let* ((_%$e125515%_ _%stx125513%_) + (_%$E125517125526%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e121747%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e121747%_)) - (let* ((_%$tgt121750121761%_ - (let () (declare (not safe)) (__AST-e _%$e121747%_))) - (_%$hd121751121764%_ + _%$e125515%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e125515%_)) + (let* ((_%$tgt125518125529%_ + (let () (declare (not safe)) (__AST-e _%$e125515%_))) + (_%$hd125519125532%_ (let () (declare (not safe)) - (##car _%$tgt121750121761%_))) - (_%$tl121752121767%_ + (##car _%$tgt125518125529%_))) + (_%$tl125520125535%_ (let () (declare (not safe)) - (##cdr _%$tgt121750121761%_)))) + (##cdr _%$tgt125518125529%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl121752121767%_)) - (let* ((_%$tgt121753121771%_ + (__AST-pair? _%$tl125520125535%_)) + (let* ((_%$tgt125521125539%_ (let () (declare (not safe)) - (__AST-e _%$tl121752121767%_))) - (_%$hd121754121774%_ + (__AST-e _%$tl125520125535%_))) + (_%$hd125522125542%_ (let () (declare (not safe)) - (##car _%$tgt121753121771%_))) - (_%$tl121755121777%_ + (##car _%$tgt125521125539%_))) + (_%$tl125523125545%_ (let () (declare (not safe)) - (##cdr _%$tgt121753121771%_))) - (_%rator121781%_ _%$hd121754121774%_) - (_%rands121783%_ _%$tl121755121777%_)) + (##cdr _%$tgt125521125539%_))) + (_%rator125549%_ _%$hd125522125542%_) + (_%rands125551%_ _%$tl125523125545%_)) (__SRC__% - (cons (__compile _%rator121781%_) - (map __compile _%rands121783%_)) - _%stx121745%_)) - (_%$E121749121758%_))) - (_%$E121749121758%_))))) + (cons (__compile _%rator125549%_) + (map __compile _%rands125551%_)) + _%stx125513%_)) + (_%$E125517125526%_))) + (_%$E125517125526%_))))) (define __compile-ref% - (lambda (_%stx121707%_) - (let* ((_%$e121709%_ _%stx121707%_) - (_%$E121711121720%_ + (lambda (_%stx125475%_) + (let* ((_%$e125477%_ _%stx125475%_) + (_%$E125479125488%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e121709%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e121709%_)) - (let* ((_%$tgt121712121723%_ - (let () (declare (not safe)) (__AST-e _%$e121709%_))) - (_%$hd121713121726%_ + _%$e125477%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e125477%_)) + (let* ((_%$tgt125480125491%_ + (let () (declare (not safe)) (__AST-e _%$e125477%_))) + (_%$hd125481125494%_ (let () (declare (not safe)) - (##car _%$tgt121712121723%_))) - (_%$tl121714121729%_ + (##car _%$tgt125480125491%_))) + (_%$tl125482125497%_ (let () (declare (not safe)) - (##cdr _%$tgt121712121723%_)))) + (##cdr _%$tgt125480125491%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl121714121729%_)) - (let* ((_%$tgt121715121733%_ + (__AST-pair? _%$tl125482125497%_)) + (let* ((_%$tgt125483125501%_ (let () (declare (not safe)) - (__AST-e _%$tl121714121729%_))) - (_%$hd121716121736%_ + (__AST-e _%$tl125482125497%_))) + (_%$hd125484125504%_ (let () (declare (not safe)) - (##car _%$tgt121715121733%_))) - (_%$tl121717121739%_ + (##car _%$tgt125483125501%_))) + (_%$tl125485125507%_ (let () (declare (not safe)) - (##cdr _%$tgt121715121733%_))) - (_%id121743%_ _%$hd121716121736%_)) + (##cdr _%$tgt125483125501%_))) + (_%id125511%_ _%$hd125484125504%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl121717121739%_)) + (__AST-e _%$tl125485125507%_)) '()) - (__SRC__% _%id121743%_ _%stx121707%_) - (_%$E121711121720%_))) - (_%$E121711121720%_))) - (_%$E121711121720%_))))) + (__SRC__% _%id125511%_ _%stx125475%_) + (_%$E125479125488%_))) + (_%$E125479125488%_))) + (_%$E125479125488%_))))) (define __compile-setq% - (lambda (_%stx121654%_) - (let* ((_%$e121656%_ _%stx121654%_) - (_%$E121658121670%_ + (lambda (_%stx125422%_) + (let* ((_%$e125424%_ _%stx125422%_) + (_%$E125426125438%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e121656%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e121656%_)) - (let* ((_%$tgt121659121673%_ - (let () (declare (not safe)) (__AST-e _%$e121656%_))) - (_%$hd121660121676%_ + _%$e125424%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e125424%_)) + (let* ((_%$tgt125427125441%_ + (let () (declare (not safe)) (__AST-e _%$e125424%_))) + (_%$hd125428125444%_ (let () (declare (not safe)) - (##car _%$tgt121659121673%_))) - (_%$tl121661121679%_ + (##car _%$tgt125427125441%_))) + (_%$tl125429125447%_ (let () (declare (not safe)) - (##cdr _%$tgt121659121673%_)))) + (##cdr _%$tgt125427125441%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl121661121679%_)) - (let* ((_%$tgt121662121683%_ + (__AST-pair? _%$tl125429125447%_)) + (let* ((_%$tgt125430125451%_ (let () (declare (not safe)) - (__AST-e _%$tl121661121679%_))) - (_%$hd121663121686%_ + (__AST-e _%$tl125429125447%_))) + (_%$hd125431125454%_ (let () (declare (not safe)) - (##car _%$tgt121662121683%_))) - (_%$tl121664121689%_ + (##car _%$tgt125430125451%_))) + (_%$tl125432125457%_ (let () (declare (not safe)) - (##cdr _%$tgt121662121683%_))) - (_%id121693%_ _%$hd121663121686%_)) + (##cdr _%$tgt125430125451%_))) + (_%id125461%_ _%$hd125431125454%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl121664121689%_)) - (let* ((_%$tgt121665121695%_ + (__AST-pair? _%$tl125432125457%_)) + (let* ((_%$tgt125433125463%_ (let () (declare (not safe)) - (__AST-e _%$tl121664121689%_))) - (_%$hd121666121698%_ + (__AST-e _%$tl125432125457%_))) + (_%$hd125434125466%_ (let () (declare (not safe)) - (##car _%$tgt121665121695%_))) - (_%$tl121667121701%_ + (##car _%$tgt125433125463%_))) + (_%$tl125435125469%_ (let () (declare (not safe)) - (##cdr _%$tgt121665121695%_))) - (_%expr121705%_ _%$hd121666121698%_)) + (##cdr _%$tgt125433125463%_))) + (_%expr125473%_ _%$hd125434125466%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl121667121701%_)) + (__AST-e _%$tl125435125469%_)) '()) (__SRC__% (cons 'set! (cons (__SRC__% - _%id121693%_ - _%stx121654%_) - (cons (__compile _%expr121705%_) + _%id125461%_ + _%stx125422%_) + (cons (__compile _%expr125473%_) '()))) - _%stx121654%_) - (_%$E121658121670%_))) - (_%$E121658121670%_))) - (_%$E121658121670%_))) - (_%$E121658121670%_))))) + _%stx125422%_) + (_%$E125426125438%_))) + (_%$E125426125438%_))) + (_%$E125426125438%_))) + (_%$E125426125438%_))))) (define __compile-if% - (lambda (_%stx121586%_) - (let* ((_%$e121588%_ _%stx121586%_) - (_%$E121590121605%_ + (lambda (_%stx125354%_) + (let* ((_%$e125356%_ _%stx125354%_) + (_%$E125358125373%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e121588%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e121588%_)) - (let* ((_%$tgt121591121608%_ - (let () (declare (not safe)) (__AST-e _%$e121588%_))) - (_%$hd121592121611%_ + _%$e125356%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e125356%_)) + (let* ((_%$tgt125359125376%_ + (let () (declare (not safe)) (__AST-e _%$e125356%_))) + (_%$hd125360125379%_ (let () (declare (not safe)) - (##car _%$tgt121591121608%_))) - (_%$tl121593121614%_ + (##car _%$tgt125359125376%_))) + (_%$tl125361125382%_ (let () (declare (not safe)) - (##cdr _%$tgt121591121608%_)))) + (##cdr _%$tgt125359125376%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl121593121614%_)) - (let* ((_%$tgt121594121618%_ + (__AST-pair? _%$tl125361125382%_)) + (let* ((_%$tgt125362125386%_ (let () (declare (not safe)) - (__AST-e _%$tl121593121614%_))) - (_%$hd121595121621%_ + (__AST-e _%$tl125361125382%_))) + (_%$hd125363125389%_ (let () (declare (not safe)) - (##car _%$tgt121594121618%_))) - (_%$tl121596121624%_ + (##car _%$tgt125362125386%_))) + (_%$tl125364125392%_ (let () (declare (not safe)) - (##cdr _%$tgt121594121618%_))) - (_%p121628%_ _%$hd121595121621%_)) + (##cdr _%$tgt125362125386%_))) + (_%p125396%_ _%$hd125363125389%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl121596121624%_)) - (let* ((_%$tgt121597121630%_ + (__AST-pair? _%$tl125364125392%_)) + (let* ((_%$tgt125365125398%_ (let () (declare (not safe)) - (__AST-e _%$tl121596121624%_))) - (_%$hd121598121633%_ + (__AST-e _%$tl125364125392%_))) + (_%$hd125366125401%_ (let () (declare (not safe)) - (##car _%$tgt121597121630%_))) - (_%$tl121599121636%_ + (##car _%$tgt125365125398%_))) + (_%$tl125367125404%_ (let () (declare (not safe)) - (##cdr _%$tgt121597121630%_))) - (_%t121640%_ _%$hd121598121633%_)) + (##cdr _%$tgt125365125398%_))) + (_%t125408%_ _%$hd125366125401%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl121599121636%_)) - (let* ((_%$tgt121600121642%_ + (__AST-pair? _%$tl125367125404%_)) + (let* ((_%$tgt125368125410%_ (let () (declare (not safe)) - (__AST-e _%$tl121599121636%_))) - (_%$hd121601121645%_ + (__AST-e _%$tl125367125404%_))) + (_%$hd125369125413%_ (let () (declare (not safe)) - (##car _%$tgt121600121642%_))) - (_%$tl121602121648%_ + (##car _%$tgt125368125410%_))) + (_%$tl125370125416%_ (let () (declare (not safe)) - (##cdr _%$tgt121600121642%_))) - (_%f121652%_ _%$hd121601121645%_)) + (##cdr _%$tgt125368125410%_))) + (_%f125420%_ _%$hd125369125413%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl121602121648%_)) + (__AST-e _%$tl125370125416%_)) '()) (__SRC__% (cons 'if - (cons (__compile _%p121628%_) + (cons (__compile _%p125396%_) (cons (__compile - _%t121640%_) + _%t125408%_) (cons (__compile - _%f121652%_) + _%f125420%_) '())))) - _%stx121586%_) - (_%$E121590121605%_))) - (_%$E121590121605%_))) - (_%$E121590121605%_))) - (_%$E121590121605%_))) - (_%$E121590121605%_))))) + _%stx125354%_) + (_%$E125358125373%_))) + (_%$E125358125373%_))) + (_%$E125358125373%_))) + (_%$E125358125373%_))) + (_%$E125358125373%_))))) (define __compile-quote% - (lambda (_%stx121548%_) - (let* ((_%$e121550%_ _%stx121548%_) - (_%$E121552121561%_ + (lambda (_%stx125316%_) + (let* ((_%$e125318%_ _%stx125316%_) + (_%$E125320125329%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e121550%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e121550%_)) - (let* ((_%$tgt121553121564%_ - (let () (declare (not safe)) (__AST-e _%$e121550%_))) - (_%$hd121554121567%_ + _%$e125318%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e125318%_)) + (let* ((_%$tgt125321125332%_ + (let () (declare (not safe)) (__AST-e _%$e125318%_))) + (_%$hd125322125335%_ (let () (declare (not safe)) - (##car _%$tgt121553121564%_))) - (_%$tl121555121570%_ + (##car _%$tgt125321125332%_))) + (_%$tl125323125338%_ (let () (declare (not safe)) - (##cdr _%$tgt121553121564%_)))) + (##cdr _%$tgt125321125332%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl121555121570%_)) - (let* ((_%$tgt121556121574%_ + (__AST-pair? _%$tl125323125338%_)) + (let* ((_%$tgt125324125342%_ (let () (declare (not safe)) - (__AST-e _%$tl121555121570%_))) - (_%$hd121557121577%_ + (__AST-e _%$tl125323125338%_))) + (_%$hd125325125345%_ (let () (declare (not safe)) - (##car _%$tgt121556121574%_))) - (_%$tl121558121580%_ + (##car _%$tgt125324125342%_))) + (_%$tl125326125348%_ (let () (declare (not safe)) - (##cdr _%$tgt121556121574%_))) - (_%e121584%_ _%$hd121557121577%_)) + (##cdr _%$tgt125324125342%_))) + (_%e125352%_ _%$hd125325125345%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl121558121580%_)) + (__AST-e _%$tl125326125348%_)) '()) (__SRC__% (cons 'quote (cons (let () (declare (not safe)) - (__AST->datum _%e121584%_)) + (__AST->datum _%e125352%_)) '())) - _%stx121548%_) - (_%$E121552121561%_))) - (_%$E121552121561%_))) - (_%$E121552121561%_))))) + _%stx125316%_) + (_%$E125320125329%_))) + (_%$E125320125329%_))) + (_%$E125320125329%_))))) (define __compile-quote-syntax% - (lambda (_%stx121510%_) - (let* ((_%$e121512%_ _%stx121510%_) - (_%$E121514121523%_ + (lambda (_%stx125278%_) + (let* ((_%$e125280%_ _%stx125278%_) + (_%$E125282125291%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e121512%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e121512%_)) - (let* ((_%$tgt121515121526%_ - (let () (declare (not safe)) (__AST-e _%$e121512%_))) - (_%$hd121516121529%_ + _%$e125280%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e125280%_)) + (let* ((_%$tgt125283125294%_ + (let () (declare (not safe)) (__AST-e _%$e125280%_))) + (_%$hd125284125297%_ (let () (declare (not safe)) - (##car _%$tgt121515121526%_))) - (_%$tl121517121532%_ + (##car _%$tgt125283125294%_))) + (_%$tl125285125300%_ (let () (declare (not safe)) - (##cdr _%$tgt121515121526%_)))) + (##cdr _%$tgt125283125294%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl121517121532%_)) - (let* ((_%$tgt121518121536%_ + (__AST-pair? _%$tl125285125300%_)) + (let* ((_%$tgt125286125304%_ (let () (declare (not safe)) - (__AST-e _%$tl121517121532%_))) - (_%$hd121519121539%_ + (__AST-e _%$tl125285125300%_))) + (_%$hd125287125307%_ (let () (declare (not safe)) - (##car _%$tgt121518121536%_))) - (_%$tl121520121542%_ + (##car _%$tgt125286125304%_))) + (_%$tl125288125310%_ (let () (declare (not safe)) - (##cdr _%$tgt121518121536%_))) - (_%e121546%_ _%$hd121519121539%_)) + (##cdr _%$tgt125286125304%_))) + (_%e125314%_ _%$hd125287125307%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl121520121542%_)) + (__AST-e _%$tl125288125310%_)) '()) (__SRC__% - (cons 'quote (cons _%e121546%_ '())) - _%stx121510%_) - (_%$E121514121523%_))) - (_%$E121514121523%_))) - (_%$E121514121523%_))))) + (cons 'quote (cons _%e125314%_ '())) + _%stx125278%_) + (_%$E125282125291%_))) + (_%$E125282125291%_))) + (_%$E125282125291%_))))) (__core-bind-syntax!__% '%#begin __compile-begin% make-__core-special-form) (__core-bind-syntax!__% '%#begin-syntax diff --git a/src/bootstrap/gerbil/runtime/eval~1.scm b/src/bootstrap/gerbil/runtime/eval~1.scm index 9d2359fb15..b2389743f4 100644 --- a/src/bootstrap/gerbil/runtime/eval~1.scm +++ b/src/bootstrap/gerbil/runtime/eval~1.scm @@ -1,321 +1,321 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g123561_| + (define |[1]#_g127329_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g123563_| + (define |[1]#_g127331_| (##structure gx#syntax-quote::t 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g123565_| + (define |[1]#_g127333_| (##structure gx#syntax-quote::t '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g123567_| + (define |[1]#_g127335_| (##structure gx#syntax-quote::t '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g123568_| + (define |[1]#_g127336_| (##structure gx#syntax-quote::t '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g123570_| + (define |[1]#_g127338_| (##structure gx#syntax-quote::t '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g123571_| + (define |[1]#_g127339_| (##structure gx#syntax-quote::t '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g123573_| + (define |[1]#_g127341_| (##structure gx#syntax-quote::t '&__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g123574_| + (define |[1]#_g127342_| (##structure gx#syntax-quote::t '&__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g123576_| + (define |[1]#_g127344_| (##structure gx#syntax-quote::t '&__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g123577_| + (define |[1]#_g127345_| (##structure gx#syntax-quote::t '&__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g123579_| + (define |[1]#_g127347_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g123581_| + (define |[1]#_g127349_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g123583_| + (define |[1]#_g127351_| (##structure gx#syntax-quote::t 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g123585_| + (define |[1]#_g127353_| (##structure gx#syntax-quote::t '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g123587_| + (define |[1]#_g127355_| (##structure gx#syntax-quote::t '__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g123588_| + (define |[1]#_g127356_| (##structure gx#syntax-quote::t '__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g123590_| + (define |[1]#_g127358_| (##structure gx#syntax-quote::t '__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g123591_| + (define |[1]#_g127359_| (##structure gx#syntax-quote::t '__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g123593_| + (define |[1]#_g127361_| (##structure gx#syntax-quote::t '&__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g123594_| + (define |[1]#_g127362_| (##structure gx#syntax-quote::t '&__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g123596_| + (define |[1]#_g127364_| (##structure gx#syntax-quote::t '&__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g123597_| + (define |[1]#_g127365_| (##structure gx#syntax-quote::t '&__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g123599_| + (define |[1]#_g127367_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g123601_| + (define |[1]#_g127369_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g123603_| + (define |[1]#_g127371_| (##structure gx#syntax-quote::t 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g123605_| + (define |[1]#_g127373_| (##structure gx#syntax-quote::t '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g123607_| + (define |[1]#_g127375_| (##structure gx#syntax-quote::t '__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g123608_| + (define |[1]#_g127376_| (##structure gx#syntax-quote::t '__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g123610_| + (define |[1]#_g127378_| (##structure gx#syntax-quote::t '__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g123611_| + (define |[1]#_g127379_| (##structure gx#syntax-quote::t '__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g123613_| + (define |[1]#_g127381_| (##structure gx#syntax-quote::t '&__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g123614_| + (define |[1]#_g127382_| (##structure gx#syntax-quote::t '&__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g123616_| + (define |[1]#_g127384_| (##structure gx#syntax-quote::t '&__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g123617_| + (define |[1]#_g127385_| (##structure gx#syntax-quote::t '&__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g123620_| + (define |[1]#_g127388_| (##structure gx#syntax-quote::t '__core-special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g123622_| + (define |[1]#_g127390_| (##structure gx#syntax-quote::t 'make-__core-special-form #f (gx#current-expander-context) '())) - (define |[1]#_g123624_| + (define |[1]#_g127392_| (##structure gx#syntax-quote::t '__core-special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g123626_| + (define |[1]#_g127394_| (##structure gx#syntax-quote::t '__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g123627_| + (define |[1]#_g127395_| (##structure gx#syntax-quote::t '__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g123629_| + (define |[1]#_g127397_| (##structure gx#syntax-quote::t '__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g123630_| + (define |[1]#_g127398_| (##structure gx#syntax-quote::t '__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g123632_| + (define |[1]#_g127400_| (##structure gx#syntax-quote::t '&__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g123633_| + (define |[1]#_g127401_| (##structure gx#syntax-quote::t '&__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g123635_| + (define |[1]#_g127403_| (##structure gx#syntax-quote::t '&__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g123636_| + (define |[1]#_g127404_| (##structure gx#syntax-quote::t '&__core-special-form-id-set! @@ -324,7 +324,7 @@ '())) (begin (define |[:0:]#__syntax| - (let ((__obj123510 + (let ((__obj127278 (let () (declare (not safe)) (##structure @@ -353,76 +353,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj123510 + __obj127278 'gerbil/runtime/eval#__syntax::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123510 '__syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj127278 '__syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123510 '(e id) '4 '#f '#f)) + (##unchecked-structure-set! __obj127278 '(e id) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123510 '(e id) '6 '#f '#f)) + (##unchecked-structure-set! __obj127278 '(e id) '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123510 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj127278 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123510 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj127278 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123510 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj127278 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123510 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj127278 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123510 '#f '11 '#f '#f)) - (let ((__tmp123560 |[1]#_g123561_|)) + (##unchecked-structure-set! __obj127278 '#f '12 '#f '#f)) + (let ((__tmp127328 |[1]#_g127329_|)) (declare (not safe)) - (##unchecked-structure-set! __obj123510 __tmp123560 '12 '#f '#f)) - (let ((__tmp123562 |[1]#_g123563_|)) + (##unchecked-structure-set! __obj127278 __tmp127328 '3 '#f '#f)) + (let ((__tmp127330 |[1]#_g127331_|)) (declare (not safe)) - (##unchecked-structure-set! __obj123510 __tmp123562 '13 '#f '#f)) - (let ((__tmp123564 |[1]#_g123565_|)) + (##unchecked-structure-set! __obj127278 __tmp127330 '13 '#f '#f)) + (let ((__tmp127332 |[1]#_g127333_|)) (declare (not safe)) - (##unchecked-structure-set! __obj123510 __tmp123564 '14 '#f '#f)) - (let ((__tmp123566 - (cons (cons 'e |[1]#_g123567_|) - (cons (cons 'id |[1]#_g123568_|) '())))) + (##unchecked-structure-set! __obj127278 __tmp127332 '14 '#f '#f)) + (let ((__tmp127334 + (cons (cons 'e |[1]#_g127335_|) + (cons (cons 'id |[1]#_g127336_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj123510 __tmp123566 '15 '#f '#f)) - (let ((__tmp123569 - (cons (cons 'e |[1]#_g123570_|) - (cons (cons 'id |[1]#_g123571_|) '())))) + (##unchecked-structure-set! __obj127278 __tmp127334 '15 '#f '#f)) + (let ((__tmp127337 + (cons (cons 'e |[1]#_g127338_|) + (cons (cons 'id |[1]#_g127339_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj123510 __tmp123569 '16 '#f '#f)) - (let ((__tmp123572 - (cons (cons 'e |[1]#_g123573_|) - (cons (cons 'id |[1]#_g123574_|) '())))) + (##unchecked-structure-set! __obj127278 __tmp127337 '16 '#f '#f)) + (let ((__tmp127340 + (cons (cons 'e |[1]#_g127341_|) + (cons (cons 'id |[1]#_g127342_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj123510 __tmp123572 '17 '#f '#f)) - (let ((__tmp123575 - (cons (cons 'e |[1]#_g123576_|) - (cons (cons 'id |[1]#_g123577_|) '())))) + (##unchecked-structure-set! __obj127278 __tmp127340 '17 '#f '#f)) + (let ((__tmp127343 + (cons (cons 'e |[1]#_g127344_|) + (cons (cons 'id |[1]#_g127345_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj123510 __tmp123575 '18 '#f '#f)) + (##unchecked-structure-set! __obj127278 __tmp127343 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123510 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj127278 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123510 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj127278 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123510 '() '20 '#f '#f)) - __obj123510)) + (##unchecked-structure-set! __obj127278 '() '20 '#f '#f)) + __obj127278)) (define |[:0:]#__core-form| - (let ((__obj123511 + (let ((__obj127279 (let () (declare (not safe)) (##structure @@ -451,76 +451,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj123511 + __obj127279 'gerbil/runtime/eval#__core-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123511 '__core-form '2 '#f '#f)) + (##unchecked-structure-set! __obj127279 '__core-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123511 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj127279 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123511 '(e id) '6 '#f '#f)) - (let ((__tmp123578 (cons |[1]#_g123579_| '()))) + (##unchecked-structure-set! __obj127279 '(e id) '7 '#f '#f)) + (let ((__tmp127346 (cons |[1]#_g127347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj123511 __tmp123578 '3 '#f '#f)) + (##unchecked-structure-set! __obj127279 __tmp127346 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123511 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj127279 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123511 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj127279 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123511 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj127279 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123511 '#f '11 '#f '#f)) - (let ((__tmp123580 |[1]#_g123581_|)) + (##unchecked-structure-set! __obj127279 '#f '12 '#f '#f)) + (let ((__tmp127348 |[1]#_g127349_|)) (declare (not safe)) - (##unchecked-structure-set! __obj123511 __tmp123580 '12 '#f '#f)) - (let ((__tmp123582 |[1]#_g123583_|)) + (##unchecked-structure-set! __obj127279 __tmp127348 '3 '#f '#f)) + (let ((__tmp127350 |[1]#_g127351_|)) (declare (not safe)) - (##unchecked-structure-set! __obj123511 __tmp123582 '13 '#f '#f)) - (let ((__tmp123584 |[1]#_g123585_|)) + (##unchecked-structure-set! __obj127279 __tmp127350 '13 '#f '#f)) + (let ((__tmp127352 |[1]#_g127353_|)) (declare (not safe)) - (##unchecked-structure-set! __obj123511 __tmp123584 '14 '#f '#f)) - (let ((__tmp123586 - (cons (cons 'e |[1]#_g123587_|) - (cons (cons 'id |[1]#_g123588_|) '())))) + (##unchecked-structure-set! __obj127279 __tmp127352 '14 '#f '#f)) + (let ((__tmp127354 + (cons (cons 'e |[1]#_g127355_|) + (cons (cons 'id |[1]#_g127356_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj123511 __tmp123586 '15 '#f '#f)) - (let ((__tmp123589 - (cons (cons 'e |[1]#_g123590_|) - (cons (cons 'id |[1]#_g123591_|) '())))) + (##unchecked-structure-set! __obj127279 __tmp127354 '15 '#f '#f)) + (let ((__tmp127357 + (cons (cons 'e |[1]#_g127358_|) + (cons (cons 'id |[1]#_g127359_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj123511 __tmp123589 '16 '#f '#f)) - (let ((__tmp123592 - (cons (cons 'e |[1]#_g123593_|) - (cons (cons 'id |[1]#_g123594_|) '())))) + (##unchecked-structure-set! __obj127279 __tmp127357 '16 '#f '#f)) + (let ((__tmp127360 + (cons (cons 'e |[1]#_g127361_|) + (cons (cons 'id |[1]#_g127362_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj123511 __tmp123592 '17 '#f '#f)) - (let ((__tmp123595 - (cons (cons 'e |[1]#_g123596_|) - (cons (cons 'id |[1]#_g123597_|) '())))) + (##unchecked-structure-set! __obj127279 __tmp127360 '17 '#f '#f)) + (let ((__tmp127363 + (cons (cons 'e |[1]#_g127364_|) + (cons (cons 'id |[1]#_g127365_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj123511 __tmp123595 '18 '#f '#f)) + (##unchecked-structure-set! __obj127279 __tmp127363 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123511 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj127279 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123511 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj127279 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123511 '() '20 '#f '#f)) - __obj123511)) + (##unchecked-structure-set! __obj127279 '() '20 '#f '#f)) + __obj127279)) (define |[:0:]#__core-expression| - (let ((__obj123512 + (let ((__obj127280 (let () (declare (not safe)) (##structure @@ -549,7 +549,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj123512 + __obj127280 'gerbil/runtime/eval#__core-expression::t '1 '#f @@ -557,73 +557,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj123512 + __obj127280 '__core-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123512 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj127280 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123512 '(e id) '6 '#f '#f)) - (let ((__tmp123598 (cons |[1]#_g123599_| '()))) + (##unchecked-structure-set! __obj127280 '(e id) '7 '#f '#f)) + (let ((__tmp127366 (cons |[1]#_g127367_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj123512 __tmp123598 '3 '#f '#f)) + (##unchecked-structure-set! __obj127280 __tmp127366 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123512 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj127280 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123512 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj127280 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123512 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj127280 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123512 '#f '11 '#f '#f)) - (let ((__tmp123600 |[1]#_g123601_|)) + (##unchecked-structure-set! __obj127280 '#f '12 '#f '#f)) + (let ((__tmp127368 |[1]#_g127369_|)) (declare (not safe)) - (##unchecked-structure-set! __obj123512 __tmp123600 '12 '#f '#f)) - (let ((__tmp123602 |[1]#_g123603_|)) + (##unchecked-structure-set! __obj127280 __tmp127368 '3 '#f '#f)) + (let ((__tmp127370 |[1]#_g127371_|)) (declare (not safe)) - (##unchecked-structure-set! __obj123512 __tmp123602 '13 '#f '#f)) - (let ((__tmp123604 |[1]#_g123605_|)) + (##unchecked-structure-set! __obj127280 __tmp127370 '13 '#f '#f)) + (let ((__tmp127372 |[1]#_g127373_|)) (declare (not safe)) - (##unchecked-structure-set! __obj123512 __tmp123604 '14 '#f '#f)) - (let ((__tmp123606 - (cons (cons 'e |[1]#_g123607_|) - (cons (cons 'id |[1]#_g123608_|) '())))) + (##unchecked-structure-set! __obj127280 __tmp127372 '14 '#f '#f)) + (let ((__tmp127374 + (cons (cons 'e |[1]#_g127375_|) + (cons (cons 'id |[1]#_g127376_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj123512 __tmp123606 '15 '#f '#f)) - (let ((__tmp123609 - (cons (cons 'e |[1]#_g123610_|) - (cons (cons 'id |[1]#_g123611_|) '())))) + (##unchecked-structure-set! __obj127280 __tmp127374 '15 '#f '#f)) + (let ((__tmp127377 + (cons (cons 'e |[1]#_g127378_|) + (cons (cons 'id |[1]#_g127379_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj123512 __tmp123609 '16 '#f '#f)) - (let ((__tmp123612 - (cons (cons 'e |[1]#_g123613_|) - (cons (cons 'id |[1]#_g123614_|) '())))) + (##unchecked-structure-set! __obj127280 __tmp127377 '16 '#f '#f)) + (let ((__tmp127380 + (cons (cons 'e |[1]#_g127381_|) + (cons (cons 'id |[1]#_g127382_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj123512 __tmp123612 '17 '#f '#f)) - (let ((__tmp123615 - (cons (cons 'e |[1]#_g123616_|) - (cons (cons 'id |[1]#_g123617_|) '())))) + (##unchecked-structure-set! __obj127280 __tmp127380 '17 '#f '#f)) + (let ((__tmp127383 + (cons (cons 'e |[1]#_g127384_|) + (cons (cons 'id |[1]#_g127385_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj123512 __tmp123615 '18 '#f '#f)) + (##unchecked-structure-set! __obj127280 __tmp127383 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123512 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj127280 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123512 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj127280 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123512 '() '20 '#f '#f)) - __obj123512)) + (##unchecked-structure-set! __obj127280 '() '20 '#f '#f)) + __obj127280)) (define |[:0:]#__core-special-form| - (let ((__obj123513 + (let ((__obj127281 (let () (declare (not safe)) (##structure @@ -652,7 +652,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj123513 + __obj127281 'gerbil/runtime/eval#__core-special-form::t '1 '#f @@ -660,391 +660,396 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj123513 + __obj127281 '__core-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123513 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj127281 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123513 '(e id) '6 '#f '#f)) - (let ((__tmp123618 (cons |[1]#_g123599_| '()))) + (##unchecked-structure-set! __obj127281 '(e id) '7 '#f '#f)) + (let ((__tmp127386 (cons |[1]#_g127367_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj123513 __tmp123618 '3 '#f '#f)) + (##unchecked-structure-set! __obj127281 __tmp127386 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123513 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj127281 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123513 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj127281 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123513 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj127281 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123513 '#f '11 '#f '#f)) - (let ((__tmp123619 |[1]#_g123620_|)) + (##unchecked-structure-set! __obj127281 '#f '12 '#f '#f)) + (let ((__tmp127387 |[1]#_g127388_|)) (declare (not safe)) - (##unchecked-structure-set! __obj123513 __tmp123619 '12 '#f '#f)) - (let ((__tmp123621 |[1]#_g123622_|)) + (##unchecked-structure-set! __obj127281 __tmp127387 '3 '#f '#f)) + (let ((__tmp127389 |[1]#_g127390_|)) (declare (not safe)) - (##unchecked-structure-set! __obj123513 __tmp123621 '13 '#f '#f)) - (let ((__tmp123623 |[1]#_g123624_|)) + (##unchecked-structure-set! __obj127281 __tmp127389 '13 '#f '#f)) + (let ((__tmp127391 |[1]#_g127392_|)) (declare (not safe)) - (##unchecked-structure-set! __obj123513 __tmp123623 '14 '#f '#f)) - (let ((__tmp123625 - (cons (cons 'e |[1]#_g123626_|) - (cons (cons 'id |[1]#_g123627_|) '())))) + (##unchecked-structure-set! __obj127281 __tmp127391 '14 '#f '#f)) + (let ((__tmp127393 + (cons (cons 'e |[1]#_g127394_|) + (cons (cons 'id |[1]#_g127395_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj123513 __tmp123625 '15 '#f '#f)) - (let ((__tmp123628 - (cons (cons 'e |[1]#_g123629_|) - (cons (cons 'id |[1]#_g123630_|) '())))) + (##unchecked-structure-set! __obj127281 __tmp127393 '15 '#f '#f)) + (let ((__tmp127396 + (cons (cons 'e |[1]#_g127397_|) + (cons (cons 'id |[1]#_g127398_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj123513 __tmp123628 '16 '#f '#f)) - (let ((__tmp123631 - (cons (cons 'e |[1]#_g123632_|) - (cons (cons 'id |[1]#_g123633_|) '())))) + (##unchecked-structure-set! __obj127281 __tmp127396 '16 '#f '#f)) + (let ((__tmp127399 + (cons (cons 'e |[1]#_g127400_|) + (cons (cons 'id |[1]#_g127401_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj123513 __tmp123631 '17 '#f '#f)) - (let ((__tmp123634 - (cons (cons 'e |[1]#_g123635_|) - (cons (cons 'id |[1]#_g123636_|) '())))) + (##unchecked-structure-set! __obj127281 __tmp127399 '17 '#f '#f)) + (let ((__tmp127402 + (cons (cons 'e |[1]#_g127403_|) + (cons (cons 'id |[1]#_g127404_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj123513 __tmp123634 '18 '#f '#f)) + (##unchecked-structure-set! __obj127281 __tmp127402 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123513 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj127281 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123513 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj127281 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj123513 '() '20 '#f '#f)) - __obj123513)) + (##unchecked-structure-set! __obj127281 '() '20 '#f '#f)) + __obj127281)) (define |[:0:]#defcore-forms| - (lambda (_%stx121055%_) - (letrec ((_%generate121058%_ - (lambda (_%id121422%_ _%compile121424%_ _%make121425%_) - (let* ((_%g121427121446%_ - (lambda (_%g121428121442%_) + (lambda (_%stx124825%_) + (letrec ((_%generate124828%_ + (lambda (_%id125190%_ _%compile125192%_ _%make125193%_) + (let* ((_%g125195125214%_ + (lambda (_%g125196125210%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g121428121442%_))) - (_%g121426121505%_ - (lambda (_%g121428121450%_) - (if (gx#stx-pair? _%g121428121450%_) - (let ((_%e121432121453%_ - (gx#syntax-e _%g121428121450%_))) - (let ((_%hd121433121457%_ + _%g125196125210%_))) + (_%g125194125273%_ + (lambda (_%g125196125218%_) + (if (gx#stx-pair? _%g125196125218%_) + (let ((_%e125200125221%_ + (gx#syntax-e _%g125196125218%_))) + (let ((_%hd125201125225%_ (let () (declare (not safe)) - (##car _%e121432121453%_))) - (_%tl121434121460%_ + (##car _%e125200125221%_))) + (_%tl125202125228%_ (let () (declare (not safe)) - (##cdr _%e121432121453%_)))) - (if (gx#stx-pair? _%tl121434121460%_) - (let ((_%e121435121463%_ + (##cdr _%e125200125221%_)))) + (if (gx#stx-pair? _%tl125202125228%_) + (let ((_%e125203125231%_ (gx#syntax-e - _%tl121434121460%_))) - (let ((_%hd121436121467%_ + _%tl125202125228%_))) + (let ((_%hd125204125235%_ (let () (declare (not safe)) - (##car _%e121435121463%_))) - (_%tl121437121470%_ + (##car _%e125203125231%_))) + (_%tl125205125238%_ (let () (declare (not safe)) - (##cdr _%e121435121463%_)))) + (##cdr _%e125203125231%_)))) (if (gx#stx-pair? - _%tl121437121470%_) - (let ((_%e121438121473%_ + _%tl125205125238%_) + (let ((_%e125206125241%_ (gx#syntax-e - _%tl121437121470%_))) - (let ((_%hd121439121477%_ + _%tl125205125238%_))) + (let ((_%hd125207125245%_ (let () (declare (not safe)) - (##car _%e121438121473%_))) - (_%tl121440121480%_ + (##car _%e125206125241%_))) + (_%tl125208125248%_ (let () (declare (not safe)) - (##cdr _%e121438121473%_)))) + (##cdr _%e125206125241%_)))) (if (gx#stx-null? - _%tl121440121480%_) - ((lambda (_%L121483%_ + _%tl125208125248%_) + ((lambda (_%g125197125251%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L121485%_ - _%L121486%_) + _%g125198125253%_ + _%g125199125254%_) (cons (gx#datum->syntax '#f '__core-bind-syntax!) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L121486%_ '())) - (cons _%L121485%_ (cons _%L121483%_ '()))))) - _%hd121439121477%_ - _%hd121436121467%_ - _%hd121433121457%_) - (_%g121427121446%_ _%g121428121450%_)))) + (cons _%g125199125254%_ '())) + (cons _%g125198125253%_ + (cons _%g125197125251%_ '()))))) + _%hd125207125245%_ + _%hd125204125235%_ + _%hd125201125225%_) + (_%g125195125214%_ _%g125196125218%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g121427121446%_ - _%g121428121450%_)))) - (_%g121427121446%_ - _%g121428121450%_)))) - (_%g121427121446%_ _%g121428121450%_))))) - (_%g121426121505%_ - (list _%id121422%_ + (_%g125195125214%_ + _%g125196125218%_)))) + (_%g125195125214%_ + _%g125196125218%_)))) + (_%g125195125214%_ _%g125196125218%_))))) + (_%g125194125273%_ + (list _%id125190%_ (gx#stx-identifier - _%id121422%_ + _%id125190%_ '"__" - _%compile121424%_) - _%make121425%_)))))) - (let* ((_%g121061121081%_ - (lambda (_%g121062121077%_) + _%compile125192%_) + _%make125193%_)))))) + (let* ((_%g124831124851%_ + (lambda (_%g124832124847%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g121062121077%_))) - (_%g121060121418%_ - (lambda (_%g121062121085%_) - (if (gx#stx-pair? _%g121062121085%_) - (let ((_%e121064121088%_ - (gx#syntax-e _%g121062121085%_))) - (let ((_%hd121065121092%_ + _%g124832124847%_))) + (_%g124830125186%_ + (lambda (_%g124832124855%_) + (if (gx#stx-pair? _%g124832124855%_) + (let ((_%e124834124858%_ + (gx#syntax-e _%g124832124855%_))) + (let ((_%hd124835124862%_ (let () (declare (not safe)) - (##car _%e121064121088%_))) - (_%tl121066121095%_ + (##car _%e124834124858%_))) + (_%tl124836124865%_ (let () (declare (not safe)) - (##cdr _%e121064121088%_)))) - (if (gx#stx-pair/null? _%tl121066121095%_) - (let ((_g123637_ + (##cdr _%e124834124858%_)))) + (if (gx#stx-pair/null? _%tl124836124865%_) + (let ((_g127405_ (gx#syntax-split-splice - _%tl121066121095%_ + _%tl124836124865%_ '0))) (begin - (let ((_g123638_ + (let ((_g127406_ (let () (declare (not safe)) - (if (##values? _g123637_) - (##values-length _g123637_) + (if (##values? _g127405_) + (##values-length _g127405_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g123638_ 2))) + (##fx= _g127406_ 2))) (error "Context expects 2 values" - _g123638_))) - (let ((_%target121067121098%_ + _g127406_))) + (let ((_%target124837124868%_ (let () (declare (not safe)) - (##values-ref _g123637_ 0))) - (_%tl121069121101%_ + (##values-ref _g127405_ 0))) + (_%tl124839124871%_ (let () (declare (not safe)) - (##values-ref _g123637_ 1)))) - (if (gx#stx-null? _%tl121069121101%_) - (letrec ((_%loop121070121104%_ - (lambda (_%hd121068121108%_ - _%form121074121111%_) + (##values-ref _g127405_ 1)))) + (if (gx#stx-null? _%tl124839124871%_) + (letrec ((_%loop124840124874%_ + (lambda (_%hd124838124878%_ + _%form124844124881%_) (if (gx#stx-pair? - _%hd121068121108%_) - (let ((_%e121071121114%_ + _%hd124838124878%_) + (let ((_%e124841124883%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd121068121108%_))) - (let ((_%lp-hd121072121118%_ + (gx#syntax-e _%hd124838124878%_))) + (let ((_%lp-hd124842124887%_ (let () (declare (not safe)) - (##car _%e121071121114%_))) - (_%lp-tl121073121121%_ + (##car _%e124841124883%_))) + (_%lp-tl124843124890%_ (let () (declare (not safe)) - (##cdr _%e121071121114%_)))) - (_%loop121070121104%_ - _%lp-tl121073121121%_ - (cons _%lp-hd121072121118%_ _%form121074121111%_)))) - (let ((_%form121075121124%_ (reverse _%form121074121111%_))) - ((lambda (_%L121128%_) - (let _%lp121146%_ ((_%rest121149%_ - (let ((__tmp123639 - (lambda (_%g121409121412%_ - _%g121410121415%_) - (cons _%g121409121412%_ - _%g121410121415%_)))) + (##cdr _%e124841124883%_)))) + (_%loop124840124874%_ + _%lp-tl124843124890%_ + (cons _%lp-hd124842124887%_ _%form124844124881%_)))) + (let ((_%form124845124893%_ (reverse _%form124844124881%_))) + ((lambda (_%g124833124896%_) + (let _%lp124914%_ ((_%rest124917%_ + (let ((__tmp127407 + (lambda (_%g125177125180%_ + _%g125178125183%_) + (cons _%g125177125180%_ + _%g125178125183%_)))) (declare (not safe)) (__foldr1 - __tmp123639 + __tmp127407 '() - _%L121128%_))) - (_%body121151%_ '())) - (let* ((_%__stx123417123418%_ _%rest121149%_) - (_%g121156121203%_ + _%g124833124896%_))) + (_%body124919%_ '())) + (let* ((_%__stx127185127186%_ _%rest124917%_) + (_%g124924124971%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx123417123418%_)))) - (let ((_%__kont123420123421%_ - (lambda (_%L121384%_ _%L121386%_ _%L121387%_) - (_%lp121146%_ - _%L121384%_ - (cons (_%generate121058%_ - _%L121387%_ - _%L121386%_ + _%__stx127185127186%_)))) + (let ((_%__kont127188127189%_ + (lambda (_%g124926125152%_ + _%g124927125154%_ + _%g124928125155%_) + (_%lp124914%_ + _%g124926125152%_ + (cons (_%generate124828%_ + _%g124928125155%_ + _%g124927125154%_ (gx#datum->syntax '#f 'make-__core-expression)) - _%body121151%_)))) - (_%__kont123422123423%_ - (lambda (_%L121311%_ _%L121313%_ _%L121314%_) - (_%lp121146%_ - _%L121311%_ - (cons (_%generate121058%_ - _%L121314%_ - _%L121313%_ + _%body124919%_)))) + (_%__kont127190127191%_ + (lambda (_%g124942125079%_ + _%g124943125081%_ + _%g124944125082%_) + (_%lp124914%_ + _%g124942125079%_ + (cons (_%generate124828%_ + _%g124944125082%_ + _%g124943125081%_ (gx#datum->syntax '#f 'make-__core-special-form)) - _%body121151%_)))) - (_%__kont123424123425%_ - (lambda (_%L121241%_ _%L121243%_) - (_%lp121146%_ - _%L121241%_ - (cons (_%generate121058%_ - _%L121243%_ + _%body124919%_)))) + (_%__kont127192127193%_ + (lambda (_%g124958125009%_ _%g124959125011%_) + (_%lp124914%_ + _%g124958125009%_ + (cons (_%generate124828%_ + _%g124959125011%_ (gx#datum->syntax '#f 'compile-error) (gx#datum->syntax '#f 'make-__core-form)) - _%body121151%_)))) - (_%__kont123426123427%_ + _%body124919%_)))) + (_%__kont127194127195%_ (lambda () - (cons 'begin (reverse _%body121151%_))))) - (let ((_%g121155121214%_ + (cons 'begin (reverse _%body124919%_))))) + (let ((_%g124923124982%_ (lambda () - (if (gx#stx-null? _%__stx123417123418%_) - (_%__kont123426123427%_) + (if (gx#stx-null? _%__stx127185127186%_) + (_%__kont127194127195%_) (let () (declare (not safe)) - (_%g121156121203%_)))))) - (if (gx#stx-pair? _%__stx123417123418%_) - (let ((_%e121161121340%_ - (gx#syntax-e _%__stx123417123418%_))) - (let ((_%tl121163121347%_ + (_%g124924124971%_)))))) + (if (gx#stx-pair? _%__stx127185127186%_) + (let ((_%e124929125108%_ + (gx#syntax-e _%__stx127185127186%_))) + (let ((_%tl124931125115%_ (let () (declare (not safe)) - (##cdr _%e121161121340%_))) - (_%hd121162121344%_ + (##cdr _%e124929125108%_))) + (_%hd124930125112%_ (let () (declare (not safe)) - (##car _%e121161121340%_)))) - (if (gx#stx-pair? _%hd121162121344%_) - (let ((_%e121164121350%_ + (##car _%e124929125108%_)))) + (if (gx#stx-pair? _%hd124930125112%_) + (let ((_%e124932125118%_ (gx#syntax-e - _%hd121162121344%_))) - (let ((_%tl121166121357%_ + _%hd124930125112%_))) + (let ((_%tl124934125125%_ (let () (declare (not safe)) - (##cdr _%e121164121350%_))) - (_%hd121165121354%_ + (##cdr _%e124932125118%_))) + (_%hd124933125122%_ (let () (declare (not safe)) - (##car _%e121164121350%_)))) + (##car _%e124932125118%_)))) (if (gx#stx-pair? - _%tl121166121357%_) - (let ((_%e121167121360%_ + _%tl124934125125%_) + (let ((_%e124935125128%_ (gx#syntax-e - _%tl121166121357%_))) - (let ((_%tl121169121367%_ + _%tl124934125125%_))) + (let ((_%tl124937125135%_ (let () (declare (not safe)) - (##cdr _%e121167121360%_))) - (_%hd121168121364%_ + (##cdr _%e124935125128%_))) + (_%hd124936125132%_ (let () (declare (not safe)) - (##car _%e121167121360%_)))) + (##car _%e124935125128%_)))) (if (gx#stx-datum? - _%hd121168121364%_) - (let ((_%e121170121370%_ + _%hd124936125132%_) + (let ((_%e124938125138%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _%hd121168121364%_))) - (if (equal? _%e121170121370%_ 'expr:) - (if (gx#stx-pair? _%tl121169121367%_) - (let ((_%e121171121374%_ - (gx#syntax-e _%tl121169121367%_))) - (let ((_%tl121173121381%_ + (gx#stx-e _%hd124936125132%_))) + (if (equal? _%e124938125138%_ 'expr:) + (if (gx#stx-pair? _%tl124937125135%_) + (let ((_%e124939125142%_ + (gx#syntax-e _%tl124937125135%_))) + (let ((_%tl124941125149%_ (let () (declare (not safe)) - (##cdr _%e121171121374%_))) - (_%hd121172121378%_ + (##cdr _%e124939125142%_))) + (_%hd124940125146%_ (let () (declare (not safe)) - (##car _%e121171121374%_)))) - (if (gx#stx-null? _%tl121173121381%_) - (_%__kont123420123421%_ - _%tl121163121347%_ - _%hd121172121378%_ - _%hd121165121354%_) + (##car _%e124939125142%_)))) + (if (gx#stx-null? _%tl124941125149%_) + (_%__kont127188127189%_ + _%tl124931125115%_ + _%hd124940125146%_ + _%hd124933125122%_) (let () (declare (not safe)) - (_%g121156121203%_))))) - (let () (declare (not safe)) (_%g121156121203%_))) - (if (equal? _%e121170121370%_ 'special:) - (if (gx#stx-pair? _%tl121169121367%_) - (let ((_%e121187121301%_ - (gx#syntax-e _%tl121169121367%_))) - (let ((_%tl121189121308%_ + (_%g124924124971%_))))) + (let () (declare (not safe)) (_%g124924124971%_))) + (if (equal? _%e124938125138%_ 'special:) + (if (gx#stx-pair? _%tl124937125135%_) + (let ((_%e124955125069%_ + (gx#syntax-e _%tl124937125135%_))) + (let ((_%tl124957125076%_ (let () (declare (not safe)) - (##cdr _%e121187121301%_))) - (_%hd121188121305%_ + (##cdr _%e124955125069%_))) + (_%hd124956125073%_ (let () (declare (not safe)) - (##car _%e121187121301%_)))) - (if (gx#stx-null? _%tl121189121308%_) - (_%__kont123422123423%_ - _%tl121163121347%_ - _%hd121188121305%_ - _%hd121165121354%_) + (##car _%e124955125069%_)))) + (if (gx#stx-null? _%tl124957125076%_) + (_%__kont127190127191%_ + _%tl124931125115%_ + _%hd124956125073%_ + _%hd124933125122%_) (let () (declare (not safe)) - (_%g121156121203%_))))) + (_%g124924124971%_))))) (let () (declare (not safe)) - (_%g121156121203%_))) + (_%g124924124971%_))) (let () (declare (not safe)) - (_%g121156121203%_))))) - (let () (declare (not safe)) (_%g121156121203%_))))) + (_%g124924124971%_))))) + (let () (declare (not safe)) (_%g124924124971%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl121166121357%_) - (_%__kont123424123425%_ - _%tl121163121347%_ - _%hd121165121354%_) + _%tl124934125125%_) + (_%__kont127192127193%_ + _%tl124931125115%_ + _%hd124933125122%_) (let () (declare (not safe)) - (_%g121156121203%_)))))) + (_%g124924124971%_)))))) (let () (declare (not safe)) - (_%g121156121203%_))))) + (_%g124924124971%_))))) (let () (declare (not safe)) - (_%g121155121214%_)))))))) - _%form121075121124%_)))))) + (_%g124923124982%_)))))))) + _%form124845124893%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop121070121104%_ - _%target121067121098%_ + (_%loop124840124874%_ + _%target124837124868%_ '())) - (_%g121061121081%_ - _%g121062121085%_))))) - (_%g121061121081%_ _%g121062121085%_)))) - (_%g121061121081%_ _%g121062121085%_))))) - (_%g121060121418%_ _%stx121055%_))))))) + (_%g124831124851%_ + _%g124832124855%_))))) + (_%g124831124851%_ _%g124832124855%_)))) + (_%g124831124851%_ _%g124832124855%_))))) + (_%g124830125186%_ _%stx124825%_))))))) diff --git a/src/bootstrap/gerbil/runtime/gambit.ssi b/src/bootstrap/gerbil/runtime/gambit.ssi index 5fbdeeb693..4ae0706d63 100644 --- a/src/bootstrap/gerbil/runtime/gambit.ssi +++ b/src/bootstrap/gerbil/runtime/gambit.ssi @@ -158,5 +158,6 @@ namespace: #f macro-character-port-output-width-set!) (macro-mutex-lock! macro-mutex-lock!) (macro-mutex-unlock! macro-mutex-unlock!) - (macro-current-thread macro-current-thread))) + (macro-current-thread macro-current-thread) + (macro-thread-end-condvar macro-thread-end-condvar))) (%#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 85b0e1cc23..d4d61ac7fb 100644 --- a/src/bootstrap/gerbil/runtime/gambit~0.scm +++ b/src/bootstrap/gerbil/runtime/gambit~0.scm @@ -1,4 +1,4 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/gambit::timestamp 1756721293) + (define gerbil/runtime/gambit::timestamp 1769384626) (let () (declare (not safe)) (##void))) diff --git a/src/bootstrap/gerbil/runtime/hash.ssi b/src/bootstrap/gerbil/runtime/hash.ssi index 917f71e331..bfcf019823 100644 --- a/src/bootstrap/gerbil/runtime/hash.ssi +++ b/src/bootstrap/gerbil/runtime/hash.ssi @@ -167,56 +167,56 @@ namespace: #f (%#define-runtime is-hash-table? is-hash-table?) (%#define-syntax deflocked-hash-method |[:0:]#deflocked-hash-method|) (%#define-runtime - _%locked-hash-table::HashTable::ref113485%_ - _%locked-hash-table::HashTable::ref113484%_) + _%locked-hash-table::HashTable::ref117133%_ + _%locked-hash-table::HashTable::ref117132%_) (%#define-runtime - _%locked-hash-table::HashTable::set!113487%_ - _%locked-hash-table::HashTable::set!113486%_) + _%locked-hash-table::HashTable::set!117135%_ + _%locked-hash-table::HashTable::set!117134%_) (%#define-runtime - _%locked-hash-table::HashTable::update!113489%_ - _%locked-hash-table::HashTable::update!113488%_) + _%locked-hash-table::HashTable::update!117137%_ + _%locked-hash-table::HashTable::update!117136%_) (%#define-runtime - _%locked-hash-table::HashTable::delete!113491%_ - _%locked-hash-table::HashTable::delete!113490%_) + _%locked-hash-table::HashTable::delete!117139%_ + _%locked-hash-table::HashTable::delete!117138%_) (%#define-runtime - _%locked-hash-table::HashTable::for-each113493%_ - _%locked-hash-table::HashTable::for-each113492%_) + _%locked-hash-table::HashTable::for-each117141%_ + _%locked-hash-table::HashTable::for-each117140%_) (%#define-runtime - _%locked-hash-table::HashTable::length113495%_ - _%locked-hash-table::HashTable::length113494%_) + _%locked-hash-table::HashTable::length117143%_ + _%locked-hash-table::HashTable::length117142%_) (%#define-runtime - _%locked-hash-table::HashTable::copy113497%_ - _%locked-hash-table::HashTable::copy113496%_) + _%locked-hash-table::HashTable::copy117145%_ + _%locked-hash-table::HashTable::copy117144%_) (%#define-runtime - _%locked-hash-table::HashTable::clear!113499%_ - _%locked-hash-table::HashTable::clear!113498%_) + _%locked-hash-table::HashTable::clear!117147%_ + _%locked-hash-table::HashTable::clear!117146%_) (%#define-syntax defchecked-hash-method |[:0:]#defchecked-hash-method|) (%#define-runtime - _%checked-hash-table::HashTable::ref113712%_ - _%checked-hash-table::HashTable::ref113711%_) + _%checked-hash-table::HashTable::ref117358%_ + _%checked-hash-table::HashTable::ref117357%_) (%#define-runtime - _%checked-hash-table::HashTable::set!113714%_ - _%checked-hash-table::HashTable::set!113713%_) + _%checked-hash-table::HashTable::set!117360%_ + _%checked-hash-table::HashTable::set!117359%_) (%#define-runtime - _%checked-hash-table::HashTable::update!113716%_ - _%checked-hash-table::HashTable::update!113715%_) + _%checked-hash-table::HashTable::update!117362%_ + _%checked-hash-table::HashTable::update!117361%_) (%#define-runtime - _%checked-hash-table::HashTable::delete!113718%_ - _%checked-hash-table::HashTable::delete!113717%_) + _%checked-hash-table::HashTable::delete!117364%_ + _%checked-hash-table::HashTable::delete!117363%_) (%#define-runtime - _%checked-hash-table::HashTable::for-each113720%_ - _%checked-hash-table::HashTable::for-each113719%_) + _%checked-hash-table::HashTable::for-each117366%_ + _%checked-hash-table::HashTable::for-each117365%_) (%#define-runtime - _%checked-hash-table::HashTable::length113722%_ - _%checked-hash-table::HashTable::length113721%_) + _%checked-hash-table::HashTable::length117368%_ + _%checked-hash-table::HashTable::length117367%_) (%#define-runtime - _%checked-hash-table::HashTable::copy113724%_ - _%checked-hash-table::HashTable::copy113723%_) + _%checked-hash-table::HashTable::copy117370%_ + _%checked-hash-table::HashTable::copy117369%_) (%#define-runtime - _%checked-hash-table::HashTable::clear!113726%_ - _%checked-hash-table::HashTable::clear!113725%_) + _%checked-hash-table::HashTable::clear!117372%_ + _%checked-hash-table::HashTable::clear!117371%_) (%#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__@) diff --git a/src/bootstrap/gerbil/runtime/hash.ssxi.ss b/src/bootstrap/gerbil/runtime/hash.ssxi.ss index 09fdc2541f..e31575960a 100644 --- a/src/bootstrap/gerbil/runtime/hash.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/hash.ssxi.ss @@ -101,7 +101,7 @@ package: gerbil/runtime (interface-instance::t) (interface-instance::t object::t t::t) (clear! copy delete! for-each length ref set! update!) - (__object clear! copy delete! for-each length ref set! update!) + (object clear! copy delete! for-each length ref set! update!) #f #t #t @@ -438,7 +438,7 @@ package: gerbil/runtime (interface-instance::t) (interface-instance::t object::t t::t) (read-lock! read-unlock! write-lock! write-unlock!) - (__object read-lock! read-unlock! write-lock! write-unlock!) + (object read-lock! read-unlock! write-lock! write-unlock!) #f #t #t @@ -708,22 +708,22 @@ package: gerbil/runtime #f ((HashTable::delete! . - _%locked-hash-table::HashTable::delete!113490%_) - (HashTable::ref . _%locked-hash-table::HashTable::ref113484%_) + _%locked-hash-table::HashTable::delete!117138%_) (HashTable::update! . - _%locked-hash-table::HashTable::update!113488%_) - (HashTable::copy . _%locked-hash-table::HashTable::copy113496%_) + _%locked-hash-table::HashTable::update!117136%_) + (HashTable::ref . _%locked-hash-table::HashTable::ref117132%_) (HashTable::clear! . - _%locked-hash-table::HashTable::clear!113498%_) + _%locked-hash-table::HashTable::clear!117146%_) + (HashTable::copy . _%locked-hash-table::HashTable::copy117144%_) + (HashTable::set! . _%locked-hash-table::HashTable::set!117134%_) (HashTable::for-each . - _%locked-hash-table::HashTable::for-each113492%_) + _%locked-hash-table::HashTable::for-each117140%_) (HashTable::length . - _%locked-hash-table::HashTable::length113494%_) - (HashTable::set! . _%locked-hash-table::HashTable::set!113486%_)))) + _%locked-hash-table::HashTable::length117142%_)))) (declare-type locked-hash-table::t (optimizer-resolve-class '(typedecl locked-hash-table::t) 'class::t)) @@ -767,24 +767,22 @@ package: gerbil/runtime #f ((HashTable::delete! . - _%checked-hash-table::HashTable::delete!113717%_) - (HashTable::ref . _%checked-hash-table::HashTable::ref113711%_) + _%checked-hash-table::HashTable::delete!117363%_) (HashTable::update! . - _%checked-hash-table::HashTable::update!113715%_) - (HashTable::copy . _%checked-hash-table::HashTable::copy113723%_) + _%checked-hash-table::HashTable::update!117361%_) + (HashTable::ref . _%checked-hash-table::HashTable::ref117357%_) (HashTable::clear! . - _%checked-hash-table::HashTable::clear!113725%_) + _%checked-hash-table::HashTable::clear!117371%_) + (HashTable::copy . _%checked-hash-table::HashTable::copy117369%_) + (HashTable::set! . _%checked-hash-table::HashTable::set!117359%_) (HashTable::for-each . - _%checked-hash-table::HashTable::for-each113719%_) + _%checked-hash-table::HashTable::for-each117365%_) (HashTable::length . - _%checked-hash-table::HashTable::length113721%_) - (HashTable::set! - . - _%checked-hash-table::HashTable::set!113713%_)))) + _%checked-hash-table::HashTable::length117367%_)))) (declare-type checked-hash-table::t (optimizer-resolve-class '(typedecl checked-hash-table::t) 'class::t)) @@ -923,7 +921,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::HashTable::ref113484%_ + _%locked-hash-table::HashTable::ref117132%_ (@lambda 3 #f signature: @@ -938,7 +936,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::HashTable::set!113486%_ + _%locked-hash-table::HashTable::set!117134%_ (@lambda 3 #f signature: @@ -953,7 +951,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::HashTable::update!113488%_ + _%locked-hash-table::HashTable::update!117136%_ (@lambda 4 #f signature: @@ -968,7 +966,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::HashTable::delete!113490%_ + _%locked-hash-table::HashTable::delete!117138%_ (@lambda 2 #f signature: @@ -983,7 +981,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::HashTable::for-each113492%_ + _%locked-hash-table::HashTable::for-each117140%_ (@lambda 2 #f signature: @@ -998,7 +996,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::HashTable::length113494%_ + _%locked-hash-table::HashTable::length117142%_ (@lambda 1 #f signature: @@ -1013,7 +1011,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::HashTable::copy113496%_ + _%locked-hash-table::HashTable::copy117144%_ (@lambda 1 #f signature: @@ -1028,7 +1026,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::HashTable::clear!113498%_ + _%locked-hash-table::HashTable::clear!117146%_ (@lambda 1 #f signature: @@ -1043,7 +1041,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::HashTable::ref113711%_ + _%checked-hash-table::HashTable::ref117357%_ (@lambda 3 #f signature: @@ -1058,7 +1056,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::HashTable::set!113713%_ + _%checked-hash-table::HashTable::set!117359%_ (@lambda 3 #f signature: @@ -1073,7 +1071,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::HashTable::update!113715%_ + _%checked-hash-table::HashTable::update!117361%_ (@lambda 4 #f signature: @@ -1088,7 +1086,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::HashTable::delete!113717%_ + _%checked-hash-table::HashTable::delete!117363%_ (@lambda 2 #f signature: @@ -1103,7 +1101,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::HashTable::for-each113719%_ + _%checked-hash-table::HashTable::for-each117365%_ (@lambda 2 #f signature: @@ -1118,7 +1116,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::HashTable::length113721%_ + _%checked-hash-table::HashTable::length117367%_ (@lambda 1 #f signature: @@ -1133,7 +1131,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::HashTable::copy113723%_ + _%checked-hash-table::HashTable::copy117369%_ (@lambda 1 #f signature: @@ -1148,7 +1146,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::HashTable::clear!113725%_ + _%checked-hash-table::HashTable::clear!117371%_ (@lambda 1 #f signature: diff --git a/src/bootstrap/gerbil/runtime/hash~0.scm b/src/bootstrap/gerbil/runtime/hash~0.scm index b0e4656834..67bbb2efa0 100644 --- a/src/bootstrap/gerbil/runtime/hash~0.scm +++ b/src/bootstrap/gerbil/runtime/hash~0.scm @@ -1,14 +1,14 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/hash::timestamp 1756721294) + (define gerbil/runtime/hash::timestamp 1769384627) (begin (define UnboundKeyError::t - (let ((__tmp118442 (list Error::t))) + (let ((__tmp122079 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#UnboundKeyError::t 'UnboundKeyError - __tmp118442 + __tmp122079 '() '() ':init!))) @@ -17,8 +17,8 @@ (declare (not safe)) (__make-class-predicate UnboundKeyError::t))) (define make-UnboundKeyError - (lambda _%$args118356%_ - (apply make-instance UnboundKeyError::t _%$args118356%_))) + (lambda _%$args121991%_ + (apply make-instance UnboundKeyError::t _%$args121991%_))) (define UnboundKeyError-message (let () (declare (not safe)) @@ -96,187 +96,196 @@ UnboundKeyError:::init! '#f)) (define raise-unbound-key-error - (lambda (_%where118230%_ _%message118231%_ . _%irritants118232%_) - (let ((__tmp118443 - (let ((__obj118436 + (lambda (_%where121865%_ _%message121866%_ . _%irritants121867%_) + (let ((__tmp122080 + (let ((__obj122071 (let () (declare (not safe)) (##structure UnboundKeyError::t '#f '#f '#f '#f)))) (let () (declare (not safe)) (UnboundKeyError:::init! - __obj118436 - _%message118231%_ + __obj122071 + _%message121866%_ 'where: - _%where118230%_ + _%where121865%_ 'irritants: - _%irritants118232%_)) - __obj118436))) + _%irritants121867%_)) + __obj122071))) (declare (not safe)) - (raise __tmp118443)))) + (raise __tmp122080)))) (define unbound-key-error? UnboundKeyError?) (define HashTable::t - (let ((__tmp118444 (cons interface-instance::t '()))) + (let ((__tmp122081 (cons interface-instance::t '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#HashTable::t 'HashTable - __tmp118444 + __tmp122081 '(clear! copy delete! for-each length ref set! update!) '((final: . #t) (struct: . #t)) '#f))) (define HashTable::interface - (let () - (declare (not safe)) - (##structure - interface-descriptor::t - HashTable::t - '((HashTable::clear! clear!) - (HashTable::copy copy) - (HashTable::delete! delete!) - (HashTable::for-each for-each) - (HashTable::length length) - (HashTable::ref ref) - (HashTable::set! set!) - (HashTable::update! update!))))) + (let ((__obj122073 + (let () + (declare (not safe)) + (##structure interface-descriptor::t '#f '#f '#f)))) + (let () + (declare (not safe)) + (interface-descriptor:::init! + __obj122073 + HashTable::t + '((HashTable::clear! clear!) + (HashTable::copy copy) + (HashTable::delete! delete!) + (HashTable::for-each for-each) + (HashTable::length length) + (HashTable::ref ref) + (HashTable::set! set!) + (HashTable::update! update!)))) + __obj122073)) (define make-HashTable - (lambda (_%obj118228%_) + (lambda (_%obj121863%_) (let () (declare (not safe)) - (cast HashTable::interface _%obj118228%_)))) + (cast HashTable::interface _%obj121863%_)))) (define try-HashTable - (lambda (_%obj118226%_) + (lambda (_%obj121861%_) (let () (declare (not safe)) - (try-cast HashTable::interface _%obj118226%_)))) + (try-cast HashTable::interface _%obj121861%_)))) (define HashTable? - (lambda (_%obj118224%_) - (let ((__tmp118445 + (lambda (_%obj121859%_) + (let ((__tmp122082 (let () (declare (not safe)) (##type-id HashTable::t)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj118224%_ __tmp118445)))) + (##structure-direct-instance-of? _%obj121859%_ __tmp122082)))) (define is-HashTable? - (lambda (_%obj118222%_) + (lambda (_%obj121857%_) (if (let () (declare (not safe)) - (satisfies? HashTable::interface _%obj118222%_)) + (satisfies? HashTable::interface _%obj121857%_)) '#t '#f))) (define HashTable-clear! - (lambda (_%self118206%_) - (let* ((_%self118211%_ - (let ((_%$obj118208%_ _%self118206%_)) + (lambda (_%self121841%_) + (let* ((_%self121846%_ + (let ((_%$obj121843%_ _%self121841%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj118208%_)) + (##structure? _%$obj121843%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj118208%_))) + (##structure-type _%$obj121843%_))) '#t) - _%$obj118208%_ + _%$obj121843%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj118208%_))))) - (_%self118213%_ _%self118211%_)) - (&HashTable-clear! _%self118213%_)))) + (cast HashTable::interface _%$obj121843%_))))) + (_%self121848%_ _%self121846%_)) + (&HashTable-clear! _%self121848%_)))) (define &HashTable-clear! - (lambda (_%self118191%_) - (let ((_%self118193%_ _%self118191%_)) + (lambda (_%self121826%_) + (let ((_%self121828%_ _%self121826%_)) (declare (not safe)) - (let ((_%obj118203%_ - (##unchecked-structure-ref _%self118193%_ '1 '#f 'clear!)) - (_%f118204%_ - (##unchecked-structure-ref _%self118193%_ '2 '#f 'clear!))) - (_%f118204%_ _%obj118203%_))))) + (let ((_%obj121838%_ + (##unchecked-structure-ref _%self121828%_ '1 '#f 'clear!)) + (_%f121839%_ + (##unchecked-structure-ref _%self121828%_ '2 '#f 'clear!))) + (_%f121839%_ _%obj121838%_))))) (define HashTable-copy - (lambda (_%self118175%_) - (let* ((_%self118180%_ - (let ((_%$obj118177%_ _%self118175%_)) + (lambda (_%self121810%_) + (let* ((_%self121815%_ + (let ((_%$obj121812%_ _%self121810%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj118177%_)) + (##structure? _%$obj121812%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj118177%_))) + (##structure-type _%$obj121812%_))) '#t) - _%$obj118177%_ + _%$obj121812%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj118177%_))))) - (_%self118182%_ _%self118180%_)) - (__HashTable-copy _%self118182%_)))) + (cast HashTable::interface _%$obj121812%_))))) + (_%self121817%_ _%self121815%_)) + (__HashTable-copy _%self121817%_)))) (define __HashTable-copy - (lambda (_%self118162%_) - (let* ((_%self118164%_ _%self118162%_) - (_%$obj118172%_ (&HashTable-copy _%self118164%_))) - (if (and (let () (declare (not safe)) (##structure? _%$obj118172%_)) - (eq? HashTable::t - (let () - (declare (not safe)) - (##structure-type _%$obj118172%_))) - '#t) - _%$obj118172%_ - (let () - (declare (not safe)) - (cast HashTable::interface _%$obj118172%_)))))) + (lambda (_%self121797%_) + (let ((_%self121799%_ _%self121797%_)) + (if __DEBUG + (let ((_%$obj121807%_ (&HashTable-copy _%self121799%_))) + (if (and (let () + (declare (not safe)) + (##structure? _%$obj121807%_)) + (eq? HashTable::t + (let () + (declare (not safe)) + (##structure-type _%$obj121807%_))) + '#t) + _%$obj121807%_ + (let () + (declare (not safe)) + (cast HashTable::interface _%$obj121807%_)))) + (&HashTable-copy _%self121799%_))))) (define &HashTable-copy - (lambda (_%self118147%_) - (let ((_%self118149%_ _%self118147%_)) + (lambda (_%self121782%_) + (let ((_%self121784%_ _%self121782%_)) (declare (not safe)) - (let ((_%obj118159%_ - (##unchecked-structure-ref _%self118149%_ '1 '#f 'copy)) - (_%f118160%_ - (##unchecked-structure-ref _%self118149%_ '3 '#f 'copy))) - (_%f118160%_ _%obj118159%_))))) + (let ((_%obj121794%_ + (##unchecked-structure-ref _%self121784%_ '1 '#f 'copy)) + (_%f121795%_ + (##unchecked-structure-ref _%self121784%_ '3 '#f 'copy))) + (_%f121795%_ _%obj121794%_))))) (define HashTable-delete! - (lambda (_%self118130%_ _%key118131%_) - (let* ((_%self118136%_ - (let ((_%$obj118133%_ _%self118130%_)) + (lambda (_%self121765%_ _%key121766%_) + (let* ((_%self121771%_ + (let ((_%$obj121768%_ _%self121765%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj118133%_)) + (##structure? _%$obj121768%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj118133%_))) + (##structure-type _%$obj121768%_))) '#t) - _%$obj118133%_ + _%$obj121768%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj118133%_))))) - (_%self118138%_ _%self118136%_)) - (&HashTable-delete! _%self118138%_ _%key118131%_)))) + (cast HashTable::interface _%$obj121768%_))))) + (_%self121773%_ _%self121771%_)) + (&HashTable-delete! _%self121773%_ _%key121766%_)))) (define &HashTable-delete! - (lambda (_%self118114%_ _%key118115%_) - (let ((_%self118117%_ _%self118114%_)) + (lambda (_%self121749%_ _%key121750%_) + (let ((_%self121752%_ _%self121749%_)) (declare (not safe)) - (let ((_%obj118127%_ - (##unchecked-structure-ref _%self118117%_ '1 '#f 'delete!)) - (_%f118128%_ - (##unchecked-structure-ref _%self118117%_ '4 '#f 'delete!))) - (_%f118128%_ _%obj118127%_ _%key118115%_))))) + (let ((_%obj121762%_ + (##unchecked-structure-ref _%self121752%_ '1 '#f 'delete!)) + (_%f121763%_ + (##unchecked-structure-ref _%self121752%_ '4 '#f 'delete!))) + (_%f121763%_ _%obj121762%_ _%key121750%_))))) (define HashTable-for-each - (lambda (_%self118087%_ _%proc118088%_) - (let* ((_%self118093%_ - (let ((_%$obj118090%_ _%self118087%_)) + (lambda (_%self121722%_ _%proc121723%_) + (let* ((_%self121728%_ + (let ((_%$obj121725%_ _%self121722%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj118090%_)) + (##structure? _%$obj121725%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj118090%_))) + (##structure-type _%$obj121725%_))) '#t) - _%$obj118090%_ + _%$obj121725%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj118090%_))))) - (_%self118095%_ _%self118093%_)) - (if (procedure? _%proc118088%_) - (let ((_%proc118104%_ _%proc118088%_)) - (&HashTable-for-each _%self118095%_ _%proc118104%_)) + (cast HashTable::interface _%$obj121725%_))))) + (_%self121730%_ _%self121728%_)) + (if (procedure? _%proc121723%_) + (let ((_%proc121739%_ _%proc121723%_)) + (&HashTable-for-each _%self121730%_ _%proc121739%_)) (begin (raise-contract-violation-error '"contract violation" @@ -285,127 +294,129 @@ 'contract: 'procedure? 'value: - _%proc118088%_) + _%proc121723%_) '#!void))))) (define &HashTable-for-each - (lambda (_%self118063%_ _%proc118064%_) - (let* ((_%self118066%_ _%self118063%_) (_%proc118073%_ _%proc118064%_)) + (lambda (_%self121698%_ _%proc121699%_) + (let* ((_%self121701%_ _%self121698%_) (_%proc121708%_ _%proc121699%_)) (declare (not safe)) - (let ((_%obj118084%_ - (##unchecked-structure-ref _%self118066%_ '1 '#f 'for-each)) - (_%f118085%_ - (##unchecked-structure-ref _%self118066%_ '5 '#f 'for-each))) - (_%f118085%_ _%obj118084%_ _%proc118073%_))))) + (let ((_%obj121719%_ + (##unchecked-structure-ref _%self121701%_ '1 '#f 'for-each)) + (_%f121720%_ + (##unchecked-structure-ref _%self121701%_ '5 '#f 'for-each))) + (_%f121720%_ _%obj121719%_ _%proc121708%_))))) (define HashTable-length - (lambda (_%self118047%_) - (let* ((_%self118052%_ - (let ((_%$obj118049%_ _%self118047%_)) + (lambda (_%self121682%_) + (let* ((_%self121687%_ + (let ((_%$obj121684%_ _%self121682%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj118049%_)) + (##structure? _%$obj121684%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj118049%_))) + (##structure-type _%$obj121684%_))) '#t) - _%$obj118049%_ + _%$obj121684%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj118049%_))))) - (_%self118054%_ _%self118052%_)) - (__HashTable-length _%self118054%_)))) + (cast HashTable::interface _%$obj121684%_))))) + (_%self121689%_ _%self121687%_)) + (__HashTable-length _%self121689%_)))) (define __HashTable-length - (lambda (_%self118034%_) - (let* ((_%self118036%_ _%self118034%_) - (_%val118044%_ (&HashTable-length _%self118036%_))) - _%val118044%_))) + (lambda (_%self121669%_) + (let ((_%self121671%_ _%self121669%_)) + (if __DEBUG + (let ((_%val121679%_ (&HashTable-length _%self121671%_))) + _%val121679%_) + (&HashTable-length _%self121671%_))))) (define &HashTable-length - (lambda (_%self118019%_) - (let ((_%self118021%_ _%self118019%_)) + (lambda (_%self121654%_) + (let ((_%self121656%_ _%self121654%_)) (declare (not safe)) - (let ((_%obj118031%_ - (##unchecked-structure-ref _%self118021%_ '1 '#f 'length)) - (_%f118032%_ - (##unchecked-structure-ref _%self118021%_ '6 '#f 'length))) - (_%f118032%_ _%obj118031%_))))) + (let ((_%obj121666%_ + (##unchecked-structure-ref _%self121656%_ '1 '#f 'length)) + (_%f121667%_ + (##unchecked-structure-ref _%self121656%_ '6 '#f 'length))) + (_%f121667%_ _%obj121666%_))))) (define HashTable-ref - (lambda (_%self118001%_ _%key118002%_ _%default118003%_) - (let* ((_%self118008%_ - (let ((_%$obj118005%_ _%self118001%_)) + (lambda (_%self121636%_ _%key121637%_ _%default121638%_) + (let* ((_%self121643%_ + (let ((_%$obj121640%_ _%self121636%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj118005%_)) + (##structure? _%$obj121640%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj118005%_))) + (##structure-type _%$obj121640%_))) '#t) - _%$obj118005%_ + _%$obj121640%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj118005%_))))) - (_%self118010%_ _%self118008%_)) - (&HashTable-ref _%self118010%_ _%key118002%_ _%default118003%_)))) + (cast HashTable::interface _%$obj121640%_))))) + (_%self121645%_ _%self121643%_)) + (&HashTable-ref _%self121645%_ _%key121637%_ _%default121638%_)))) (define &HashTable-ref - (lambda (_%self117984%_ _%key117985%_ _%default117986%_) - (let ((_%self117988%_ _%self117984%_)) + (lambda (_%self121619%_ _%key121620%_ _%default121621%_) + (let ((_%self121623%_ _%self121619%_)) (declare (not safe)) - (let ((_%obj117998%_ - (##unchecked-structure-ref _%self117988%_ '1 '#f 'ref)) - (_%f117999%_ - (##unchecked-structure-ref _%self117988%_ '7 '#f 'ref))) - (_%f117999%_ _%obj117998%_ _%key117985%_ _%default117986%_))))) + (let ((_%obj121633%_ + (##unchecked-structure-ref _%self121623%_ '1 '#f 'ref)) + (_%f121634%_ + (##unchecked-structure-ref _%self121623%_ '7 '#f 'ref))) + (_%f121634%_ _%obj121633%_ _%key121620%_ _%default121621%_))))) (define HashTable-set! - (lambda (_%self117966%_ _%key117967%_ _%value117968%_) - (let* ((_%self117973%_ - (let ((_%$obj117970%_ _%self117966%_)) + (lambda (_%self121601%_ _%key121602%_ _%value121603%_) + (let* ((_%self121608%_ + (let ((_%$obj121605%_ _%self121601%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj117970%_)) + (##structure? _%$obj121605%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj117970%_))) + (##structure-type _%$obj121605%_))) '#t) - _%$obj117970%_ + _%$obj121605%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj117970%_))))) - (_%self117975%_ _%self117973%_)) - (&HashTable-set! _%self117975%_ _%key117967%_ _%value117968%_)))) + (cast HashTable::interface _%$obj121605%_))))) + (_%self121610%_ _%self121608%_)) + (&HashTable-set! _%self121610%_ _%key121602%_ _%value121603%_)))) (define &HashTable-set! - (lambda (_%self117949%_ _%key117950%_ _%value117951%_) - (let ((_%self117953%_ _%self117949%_)) + (lambda (_%self121584%_ _%key121585%_ _%value121586%_) + (let ((_%self121588%_ _%self121584%_)) (declare (not safe)) - (let ((_%obj117963%_ - (##unchecked-structure-ref _%self117953%_ '1 '#f 'set!)) - (_%f117964%_ - (##unchecked-structure-ref _%self117953%_ '8 '#f 'set!))) - (_%f117964%_ _%obj117963%_ _%key117950%_ _%value117951%_))))) + (let ((_%obj121598%_ + (##unchecked-structure-ref _%self121588%_ '1 '#f 'set!)) + (_%f121599%_ + (##unchecked-structure-ref _%self121588%_ '8 '#f 'set!))) + (_%f121599%_ _%obj121598%_ _%key121585%_ _%value121586%_))))) (define HashTable-update! - (lambda (_%self117920%_ _%key117921%_ _%proc117922%_ _%default117923%_) - (let* ((_%self117928%_ - (let ((_%$obj117925%_ _%self117920%_)) + (lambda (_%self121555%_ _%key121556%_ _%proc121557%_ _%default121558%_) + (let* ((_%self121563%_ + (let ((_%$obj121560%_ _%self121555%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj117925%_)) + (##structure? _%$obj121560%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj117925%_))) + (##structure-type _%$obj121560%_))) '#t) - _%$obj117925%_ + _%$obj121560%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj117925%_))))) - (_%self117930%_ _%self117928%_)) - (if (procedure? _%proc117922%_) - (let ((_%proc117939%_ _%proc117922%_)) + (cast HashTable::interface _%$obj121560%_))))) + (_%self121565%_ _%self121563%_)) + (if (procedure? _%proc121557%_) + (let ((_%proc121574%_ _%proc121557%_)) (&HashTable-update! - _%self117930%_ - _%key117921%_ - _%proc117939%_ - _%default117923%_)) + _%self121565%_ + _%key121556%_ + _%proc121574%_ + _%default121558%_)) (begin (raise-contract-violation-error '"contract violation" @@ -414,198 +425,203 @@ 'contract: 'procedure? 'value: - _%proc117922%_) + _%proc121557%_) '#!void))))) (define &HashTable-update! - (lambda (_%self117892%_ _%key117893%_ _%proc117894%_ _%default117895%_) - (let* ((_%self117897%_ _%self117892%_) (_%proc117904%_ _%proc117894%_)) + (lambda (_%self121527%_ _%key121528%_ _%proc121529%_ _%default121530%_) + (let* ((_%self121532%_ _%self121527%_) (_%proc121539%_ _%proc121529%_)) (declare (not safe)) - (let ((_%obj117915%_ - (##unchecked-structure-ref _%self117897%_ '1 '#f 'update!)) - (_%f117917%_ - (##unchecked-structure-ref _%self117897%_ '9 '#f 'update!))) - (_%f117917%_ - _%obj117915%_ - _%key117893%_ - _%proc117904%_ - _%default117895%_))))) + (let ((_%obj121550%_ + (##unchecked-structure-ref _%self121532%_ '1 '#f 'update!)) + (_%f121552%_ + (##unchecked-structure-ref _%self121532%_ '9 '#f 'update!))) + (_%f121552%_ + _%obj121550%_ + _%key121528%_ + _%proc121539%_ + _%default121530%_))))) (define Locker::t - (let ((__tmp118446 (cons interface-instance::t '()))) + (let ((__tmp122083 (cons interface-instance::t '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#Locker::t 'Locker - __tmp118446 + __tmp122083 '(read-lock! read-unlock! write-lock! write-unlock!) '((final: . #t) (struct: . #t)) '#f))) (define Locker::interface - (let () - (declare (not safe)) - (##structure - interface-descriptor::t - Locker::t - '((Locker::read-lock! read-lock!) - (Locker::read-unlock! read-unlock!) - (Locker::write-lock! write-lock!) - (Locker::write-unlock! write-unlock!))))) + (let ((__obj122075 + (let () + (declare (not safe)) + (##structure interface-descriptor::t '#f '#f '#f)))) + (let () + (declare (not safe)) + (interface-descriptor:::init! + __obj122075 + Locker::t + '((Locker::read-lock! read-lock!) + (Locker::read-unlock! read-unlock!) + (Locker::write-lock! write-lock!) + (Locker::write-unlock! write-unlock!)))) + __obj122075)) (define make-Locker - (lambda (_%obj117890%_) - (let () (declare (not safe)) (cast Locker::interface _%obj117890%_)))) + (lambda (_%obj121525%_) + (let () (declare (not safe)) (cast Locker::interface _%obj121525%_)))) (define try-Locker - (lambda (_%obj117888%_) + (lambda (_%obj121523%_) (let () (declare (not safe)) - (try-cast Locker::interface _%obj117888%_)))) + (try-cast Locker::interface _%obj121523%_)))) (define Locker? - (lambda (_%obj117886%_) - (let ((__tmp118447 + (lambda (_%obj121521%_) + (let ((__tmp122084 (let () (declare (not safe)) (##type-id Locker::t)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj117886%_ __tmp118447)))) + (##structure-direct-instance-of? _%obj121521%_ __tmp122084)))) (define is-Locker? - (lambda (_%obj117884%_) + (lambda (_%obj121519%_) (if (let () (declare (not safe)) - (satisfies? Locker::interface _%obj117884%_)) + (satisfies? Locker::interface _%obj121519%_)) '#t '#f))) (define Locker-read-lock! - (lambda (_%self117868%_) - (let* ((_%self117873%_ - (let ((_%$obj117870%_ _%self117868%_)) + (lambda (_%self121503%_) + (let* ((_%self121508%_ + (let ((_%$obj121505%_ _%self121503%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj117870%_)) + (##structure? _%$obj121505%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj117870%_))) + (##structure-type _%$obj121505%_))) '#t) - _%$obj117870%_ + _%$obj121505%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj117870%_))))) - (_%self117875%_ _%self117873%_)) - (&Locker-read-lock! _%self117875%_)))) + (cast Locker::interface _%$obj121505%_))))) + (_%self121510%_ _%self121508%_)) + (&Locker-read-lock! _%self121510%_)))) (define &Locker-read-lock! - (lambda (_%self117853%_) - (let ((_%self117855%_ _%self117853%_)) + (lambda (_%self121488%_) + (let ((_%self121490%_ _%self121488%_)) (declare (not safe)) - (let ((_%obj117865%_ - (##unchecked-structure-ref _%self117855%_ '1 '#f 'read-lock!)) - (_%f117866%_ + (let ((_%obj121500%_ + (##unchecked-structure-ref _%self121490%_ '1 '#f 'read-lock!)) + (_%f121501%_ (##unchecked-structure-ref - _%self117855%_ + _%self121490%_ '2 '#f 'read-lock!))) - (_%f117866%_ _%obj117865%_))))) + (_%f121501%_ _%obj121500%_))))) (define Locker-read-unlock! - (lambda (_%self117837%_) - (let* ((_%self117842%_ - (let ((_%$obj117839%_ _%self117837%_)) + (lambda (_%self121472%_) + (let* ((_%self121477%_ + (let ((_%$obj121474%_ _%self121472%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj117839%_)) + (##structure? _%$obj121474%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj117839%_))) + (##structure-type _%$obj121474%_))) '#t) - _%$obj117839%_ + _%$obj121474%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj117839%_))))) - (_%self117844%_ _%self117842%_)) - (&Locker-read-unlock! _%self117844%_)))) + (cast Locker::interface _%$obj121474%_))))) + (_%self121479%_ _%self121477%_)) + (&Locker-read-unlock! _%self121479%_)))) (define &Locker-read-unlock! - (lambda (_%self117822%_) - (let ((_%self117824%_ _%self117822%_)) + (lambda (_%self121457%_) + (let ((_%self121459%_ _%self121457%_)) (declare (not safe)) - (let ((_%obj117834%_ + (let ((_%obj121469%_ (##unchecked-structure-ref - _%self117824%_ + _%self121459%_ '1 '#f 'read-unlock!)) - (_%f117835%_ + (_%f121470%_ (##unchecked-structure-ref - _%self117824%_ + _%self121459%_ '3 '#f 'read-unlock!))) - (_%f117835%_ _%obj117834%_))))) + (_%f121470%_ _%obj121469%_))))) (define Locker-write-lock! - (lambda (_%self117806%_) - (let* ((_%self117811%_ - (let ((_%$obj117808%_ _%self117806%_)) + (lambda (_%self121441%_) + (let* ((_%self121446%_ + (let ((_%$obj121443%_ _%self121441%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj117808%_)) + (##structure? _%$obj121443%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj117808%_))) + (##structure-type _%$obj121443%_))) '#t) - _%$obj117808%_ + _%$obj121443%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj117808%_))))) - (_%self117813%_ _%self117811%_)) - (&Locker-write-lock! _%self117813%_)))) + (cast Locker::interface _%$obj121443%_))))) + (_%self121448%_ _%self121446%_)) + (&Locker-write-lock! _%self121448%_)))) (define &Locker-write-lock! - (lambda (_%self117791%_) - (let ((_%self117793%_ _%self117791%_)) + (lambda (_%self121426%_) + (let ((_%self121428%_ _%self121426%_)) (declare (not safe)) - (let ((_%obj117803%_ + (let ((_%obj121438%_ (##unchecked-structure-ref - _%self117793%_ + _%self121428%_ '1 '#f 'write-lock!)) - (_%f117804%_ + (_%f121439%_ (##unchecked-structure-ref - _%self117793%_ + _%self121428%_ '4 '#f 'write-lock!))) - (_%f117804%_ _%obj117803%_))))) + (_%f121439%_ _%obj121438%_))))) (define Locker-write-unlock! - (lambda (_%self117775%_) - (let* ((_%self117780%_ - (let ((_%$obj117777%_ _%self117775%_)) + (lambda (_%self121410%_) + (let* ((_%self121415%_ + (let ((_%$obj121412%_ _%self121410%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj117777%_)) + (##structure? _%$obj121412%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj117777%_))) + (##structure-type _%$obj121412%_))) '#t) - _%$obj117777%_ + _%$obj121412%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj117777%_))))) - (_%self117782%_ _%self117780%_)) - (&Locker-write-unlock! _%self117782%_)))) + (cast Locker::interface _%$obj121412%_))))) + (_%self121417%_ _%self121415%_)) + (&Locker-write-unlock! _%self121417%_)))) (define &Locker-write-unlock! - (lambda (_%self117758%_) - (let ((_%self117760%_ _%self117758%_)) + (lambda (_%self121393%_) + (let ((_%self121395%_ _%self121393%_)) (declare (not safe)) - (let ((_%obj117770%_ + (let ((_%obj121405%_ (##unchecked-structure-ref - _%self117760%_ + _%self121395%_ '1 '#f 'write-unlock!)) - (_%f117772%_ + (_%f121407%_ (##unchecked-structure-ref - _%self117760%_ + _%self121395%_ '5 '#f 'write-unlock!))) - (_%f117772%_ _%obj117770%_))))) + (_%f121407%_ _%obj121405%_))))) (let () (declare (not safe)) (bind-method!__0 __table::t 'HashTable::ref raw-table-ref)) @@ -655,195 +671,199 @@ (declare (not safe)) (bind-method!__0 __gc-table::t 'HashTable::clear! gc-table-clear!)) (define gambit-table-update! - (lambda (_%table117751%_ - _%key117752%_ - _%update117753%_ - _%default117754%_) - (let ((_%result117756%_ - (table-ref _%table117751%_ _%key117752%_ _%default117754%_))) + (lambda (_%table121386%_ + _%key121387%_ + _%update121388%_ + _%default121389%_) + (let ((_%result121391%_ + (table-ref _%table121386%_ _%key121387%_ _%default121389%_))) (table-set! - _%table117751%_ - _%key117752%_ - (_%update117753%_ _%default117754%_))))) + _%table121386%_ + _%key121387%_ + (_%update121388%_ _%default121389%_))))) (define gambit-table-for-each - (lambda (_%table117748%_ _%proc117749%_) - (table-for-each _%proc117749%_ _%table117748%_))) + (lambda (_%table121383%_ _%proc121384%_) + (table-for-each _%proc121384%_ _%table121383%_))) (define gambit-table-clear! - (lambda (_%table117746%_) + (lambda (_%table121381%_) (let () (declare (not safe)) - (##unchecked-structure-set! _%table117746%_ '0 '5 '#f '#f)))) - (let ((__tmp118448 (macro-type-table))) + (##unchecked-structure-set! _%table121381%_ '0 '5 '#f '#f)))) + (let ((__tmp122085 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp118448 'HashTable::ref table-ref)) - (let ((__tmp118449 (macro-type-table))) + (bind-method!__0 __tmp122085 'HashTable::ref table-ref)) + (let ((__tmp122086 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp118449 'HashTable::set! table-set!)) - (let ((__tmp118450 (macro-type-table))) + (bind-method!__0 __tmp122086 'HashTable::set! table-set!)) + (let ((__tmp122087 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp118450 'HashTable::update! gambit-table-update!)) - (let ((__tmp118451 (macro-type-table))) + (bind-method!__0 __tmp122087 'HashTable::update! gambit-table-update!)) + (let ((__tmp122088 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp118451 'HashTable::delete! table-set!)) - (let ((__tmp118452 (macro-type-table))) + (bind-method!__0 __tmp122088 'HashTable::delete! table-set!)) + (let ((__tmp122089 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp118452 'HashTable::for-each gambit-table-for-each)) - (let ((__tmp118453 (macro-type-table))) + (bind-method!__0 __tmp122089 'HashTable::for-each gambit-table-for-each)) + (let ((__tmp122090 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp118453 'HashTable::length table-length)) - (let ((__tmp118454 (macro-type-table))) + (bind-method!__0 __tmp122090 'HashTable::length table-length)) + (let ((__tmp122091 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp118454 'HashTable::copy table-copy)) - (let ((__tmp118455 (macro-type-table))) + (bind-method!__0 __tmp122091 'HashTable::copy table-copy)) + (let ((__tmp122092 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp118455 'HashTable::clear! gambit-table-clear!)) + (bind-method!__0 __tmp122092 'HashTable::clear! gambit-table-clear!)) (define hash-table::t - (let* ((_%slots117728%_ '(table count free hash test seed)) - (_%slot-vector117730%_ (list->vector (cons '#f _%slots117728%_))) - (_%slot-table117737%_ - (let ((_%slot-table117732%_ + (let* ((_%slots121363%_ '(table count free hash test seed)) + (_%slot-vector121365%_ (list->vector (cons '#f _%slots121363%_))) + (_%slot-table121372%_ + (let ((_%slot-table121367%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp118458 - (lambda (_%slot117734%_ _%field117735%_) + (let ((__tmp122095 + (lambda (_%slot121369%_ _%field121370%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table117732%_ - _%slot117734%_ - _%field117735%_)) - (let ((__tmp118459 + _%slot-table121367%_ + _%slot121369%_ + _%field121370%_)) + (let ((__tmp122096 (let () (declare (not safe)) - (symbol->keyword _%slot117734%_)))) + (symbol->keyword _%slot121369%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table117732%_ - __tmp118459 - _%field117735%_)))) - (__tmp118456 - (let ((__tmp118457 + _%slot-table121367%_ + __tmp122096 + _%field121370%_)))) + (__tmp122093 + (let ((__tmp122094 (let () (declare (not safe)) - (##length _%slots117728%_)))) + (##length _%slots121363%_)))) (declare (not safe)) - (##iota __tmp118457 '1)))) + (##iota __tmp122094 '1)))) (declare (not safe)) - (##for-each __tmp118458 _%slots117728%_ __tmp118456)) - _%slot-table117732%_)) - (_%flags117739%_ + (##for-each __tmp122095 _%slots121363%_ __tmp122093)) + _%slot-table121367%_)) + (_%flags121374%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields117741%_ '#()) - (_%properties117743%_ + (_%fields121376%_ '#()) + (_%properties121378%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots117728%_))) + (__foldr1 cons '() _%slots121363%_))) (cons (cons 'struct: '#t) '()))) - (__tmp118460 (cons object::t (cons t::t '())))) + (__tmp122097 (cons object::t (cons t::t '())))) (declare (not safe)) (##structure class::t 'gerbil#hash-table::t 'hash-table - _%flags117739%_ + _%flags121374%_ __table::t - _%fields117741%_ - __tmp118460 - _%slot-vector117730%_ - _%slot-table117737%_ - _%properties117743%_ + _%fields121376%_ + __tmp122097 + _%slot-vector121365%_ + _%slot-table121372%_ + _%properties121378%_ + '#f + '#f '#f '#f))) (define gc-hash-table::t - (let* ((_%slots117710%_ '(gcht immediate)) - (_%slot-vector117712%_ (list->vector (cons '#f _%slots117710%_))) - (_%slot-table117719%_ - (let ((_%slot-table117714%_ + (let* ((_%slots121345%_ '(gcht immediate)) + (_%slot-vector121347%_ (list->vector (cons '#f _%slots121345%_))) + (_%slot-table121354%_ + (let ((_%slot-table121349%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp118463 - (lambda (_%slot117716%_ _%field117717%_) + (let ((__tmp122100 + (lambda (_%slot121351%_ _%field121352%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table117714%_ - _%slot117716%_ - _%field117717%_)) - (let ((__tmp118464 + _%slot-table121349%_ + _%slot121351%_ + _%field121352%_)) + (let ((__tmp122101 (let () (declare (not safe)) - (symbol->keyword _%slot117716%_)))) + (symbol->keyword _%slot121351%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table117714%_ - __tmp118464 - _%field117717%_)))) - (__tmp118461 - (let ((__tmp118462 + _%slot-table121349%_ + __tmp122101 + _%field121352%_)))) + (__tmp122098 + (let ((__tmp122099 (let () (declare (not safe)) - (##length _%slots117710%_)))) + (##length _%slots121345%_)))) (declare (not safe)) - (##iota __tmp118462 '1)))) + (##iota __tmp122099 '1)))) (declare (not safe)) - (##for-each __tmp118463 _%slots117710%_ __tmp118461)) - _%slot-table117714%_)) - (_%flags117721%_ + (##for-each __tmp122100 _%slots121345%_ __tmp122098)) + _%slot-table121349%_)) + (_%flags121356%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields117723%_ '#()) - (_%properties117725%_ + (_%fields121358%_ '#()) + (_%properties121360%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots117710%_))) + (__foldr1 cons '() _%slots121345%_))) (cons (cons 'struct: '#t) '()))) - (__tmp118465 (cons object::t (cons t::t '())))) + (__tmp122102 (cons object::t (cons t::t '())))) (declare (not safe)) (##structure class::t 'gerbil#gc-hash-table::t 'hash-table - _%flags117721%_ + _%flags121356%_ __gc-table::t - _%fields117723%_ - __tmp118465 - _%slot-vector117712%_ - _%slot-table117719%_ - _%properties117725%_ + _%fields121358%_ + __tmp122102 + _%slot-vector121347%_ + _%slot-table121354%_ + _%properties121360%_ + '#f + '#f '#f '#f))) (define locked-hash-table::t - (let ((__tmp118467 (list)) - (__tmp118466 + (let ((__tmp122104 (list)) + (__tmp122103 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#locked-hash-table::t 'locked-hash-table - __tmp118467 + __tmp122104 '(table lock) - __tmp118466 + __tmp122103 '#f))) (define locked-hash-table? (let () (declare (not safe)) (__make-class-predicate locked-hash-table::t))) (define make-locked-hash-table - (lambda _%$args117707%_ - (apply make-instance locked-hash-table::t _%$args117707%_))) + (lambda _%$args121342%_ + (apply make-instance locked-hash-table::t _%$args121342%_))) (define locked-hash-table-table (let () (declare (not safe)) @@ -877,24 +897,24 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator locked-hash-table::t 'lock))) (define checked-hash-table::t - (let ((__tmp118469 (list)) - (__tmp118468 + (let ((__tmp122106 (list)) + (__tmp122105 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#checked-hash-table::t 'checked-hash-table - __tmp118469 + __tmp122106 '(table key-check) - __tmp118468 + __tmp122105 '#f))) (define checked-hash-table? (let () (declare (not safe)) (__make-class-predicate checked-hash-table::t))) (define make-checked-hash-table - (lambda _%$args117704%_ - (apply make-instance checked-hash-table::t _%$args117704%_))) + (lambda _%$args121339%_ + (apply make-instance checked-hash-table::t _%$args121339%_))) (define checked-hash-table-table (let () (declare (not safe)) @@ -932,91 +952,91 @@ checked-hash-table::t 'key-check))) (define eq-hash-table::t - (let ((__tmp118471 (list hash-table::t)) - (__tmp118470 (cons (cons 'struct: '#t) '()))) + (let ((__tmp122108 (list hash-table::t)) + (__tmp122107 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#eq-hash-table 'hash-table - __tmp118471 + __tmp122108 '() - __tmp118470 + __tmp122107 '#f))) (define eq-hash-table? (let () (declare (not safe)) (__make-class-predicate eq-hash-table::t))) (define make-eq-hash-table - (lambda _%$args117701%_ - (apply make-instance eq-hash-table::t _%$args117701%_))) + (lambda _%$args121336%_ + (apply make-instance eq-hash-table::t _%$args121336%_))) (define eqv-hash-table::t - (let ((__tmp118473 (list hash-table::t)) - (__tmp118472 (cons (cons 'struct: '#t) '()))) + (let ((__tmp122110 (list hash-table::t)) + (__tmp122109 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#eqv-hash-table 'hash-table - __tmp118473 + __tmp122110 '() - __tmp118472 + __tmp122109 '#f))) (define eqv-hash-table? (let () (declare (not safe)) (__make-class-predicate eqv-hash-table::t))) (define make-eqv-hash-table - (lambda _%$args117698%_ - (apply make-instance eqv-hash-table::t _%$args117698%_))) + (lambda _%$args121333%_ + (apply make-instance eqv-hash-table::t _%$args121333%_))) (define symbol-hash-table::t - (let ((__tmp118475 (list hash-table::t)) - (__tmp118474 (cons (cons 'struct: '#t) '()))) + (let ((__tmp122112 (list hash-table::t)) + (__tmp122111 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#symbol-hash-table 'hash-table - __tmp118475 + __tmp122112 '() - __tmp118474 + __tmp122111 '#f))) (define symbol-hash-table? (let () (declare (not safe)) (__make-class-predicate symbol-hash-table::t))) (define make-symbol-hash-table - (lambda _%$args117695%_ - (apply make-instance symbol-hash-table::t _%$args117695%_))) + (lambda _%$args121330%_ + (apply make-instance symbol-hash-table::t _%$args121330%_))) (define string-hash-table::t - (let ((__tmp118477 (list hash-table::t)) - (__tmp118476 (cons (cons 'struct: '#t) '()))) + (let ((__tmp122114 (list hash-table::t)) + (__tmp122113 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#string-hash-table 'hash-table - __tmp118477 + __tmp122114 '() - __tmp118476 + __tmp122113 '#f))) (define string-hash-table? (let () (declare (not safe)) (__make-class-predicate string-hash-table::t))) (define make-string-hash-table - (lambda _%$args117692%_ - (apply make-instance string-hash-table::t _%$args117692%_))) + (lambda _%$args121327%_ + (apply make-instance string-hash-table::t _%$args121327%_))) (define immediate-hash-table::t - (let ((__tmp118479 (list hash-table::t)) - (__tmp118478 (cons (cons 'struct: '#t) '()))) + (let ((__tmp122116 (list hash-table::t)) + (__tmp122115 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#immediate-hash-table::t 'hash-table - __tmp118479 + __tmp122116 '() - __tmp118478 + __tmp122115 '#f))) (define immediate-hash-table? (let () (declare (not safe)) (__make-class-predicate immediate-hash-table::t))) (define make-immediate-hash-table - (lambda _%$args117689%_ - (apply make-instance immediate-hash-table::t _%$args117689%_))) + (lambda _%$args121324%_ + (apply make-instance immediate-hash-table::t _%$args121324%_))) (let () (declare (not safe)) (bind-method!__0 hash-table::t 'HashTable::ref raw-table-ref)) @@ -1169,429 +1189,429 @@ (bind-method!__0 gc-hash-table::t 'HashTable::clear! gc-table-clear!)) (define hash-table? HashTable?) (define is-hash-table? is-HashTable?) - (define _%locked-hash-table::HashTable::ref113484%_ - (lambda (_%self117649%_ _%key117651%_ _%default117652%_) - (let* ((_%self117655%_ _%self117649%_) - (_%key117664%_ _%key117651%_) - (_%default117672%_ _%default117652%_)) - (let ((_%h117681%_ + (define _%locked-hash-table::HashTable::ref117132%_ + (lambda (_%self121284%_ _%key121286%_ _%default121287%_) + (let* ((_%self121290%_ _%self121284%_) + (_%key121299%_ _%key121286%_) + (_%default121307%_ _%default121287%_)) + (let ((_%h121316%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self117655%_ '1 '#f '#f))) - (_%l117683%_ + (##unchecked-structure-ref _%self121290%_ '1 '#f '#f))) + (_%l121318%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self117655%_ '2 '#f '#f)))) - (let ((__tmp118482 (lambda () (&Locker-read-lock! _%l117683%_))) - (__tmp118481 + (##unchecked-structure-ref _%self121290%_ '2 '#f '#f)))) + (let ((__tmp122119 (lambda () (&Locker-read-lock! _%l121318%_))) + (__tmp122118 (lambda () (&HashTable-ref - _%h117681%_ - _%key117664%_ - _%default117672%_))) - (__tmp118480 (lambda () (&Locker-read-unlock! _%l117683%_)))) + _%h121316%_ + _%key121299%_ + _%default121307%_))) + (__tmp122117 (lambda () (&Locker-read-unlock! _%l121318%_)))) (declare (not safe)) - (##dynamic-wind __tmp118482 __tmp118481 __tmp118480)))))) + (##dynamic-wind __tmp122119 __tmp122118 __tmp122117)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'HashTable::ref - _%locked-hash-table::HashTable::ref113484%_ + _%locked-hash-table::HashTable::ref117132%_ '#f)) - (define _%locked-hash-table::HashTable::set!113486%_ - (lambda (_%self117486%_ _%key117488%_ _%value117489%_) - (let* ((_%self117492%_ _%self117486%_) - (_%key117501%_ _%key117488%_) - (_%value117509%_ _%value117489%_)) - (let ((_%h117518%_ + (define _%locked-hash-table::HashTable::set!117134%_ + (lambda (_%self121121%_ _%key121123%_ _%value121124%_) + (let* ((_%self121127%_ _%self121121%_) + (_%key121136%_ _%key121123%_) + (_%value121144%_ _%value121124%_)) + (let ((_%h121153%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self117492%_ '1 '#f '#f))) - (_%l117520%_ + (##unchecked-structure-ref _%self121127%_ '1 '#f '#f))) + (_%l121155%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self117492%_ '2 '#f '#f)))) - (let ((__tmp118485 (lambda () (&Locker-write-lock! _%l117520%_))) - (__tmp118484 + (##unchecked-structure-ref _%self121127%_ '2 '#f '#f)))) + (let ((__tmp122122 (lambda () (&Locker-write-lock! _%l121155%_))) + (__tmp122121 (lambda () (&HashTable-set! - _%h117518%_ - _%key117501%_ - _%value117509%_))) - (__tmp118483 - (lambda () (&Locker-write-unlock! _%l117520%_)))) + _%h121153%_ + _%key121136%_ + _%value121144%_))) + (__tmp122120 + (lambda () (&Locker-write-unlock! _%l121155%_)))) (declare (not safe)) - (##dynamic-wind __tmp118485 __tmp118484 __tmp118483)) + (##dynamic-wind __tmp122122 __tmp122121 __tmp122120)) '#!void)))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'HashTable::set! - _%locked-hash-table::HashTable::set!113486%_ + _%locked-hash-table::HashTable::set!117134%_ '#f)) - (define _%locked-hash-table::HashTable::update!113488%_ - (lambda (_%self117314%_ _%key117316%_ _%update117317%_ _%default117318%_) - (let* ((_%self117321%_ _%self117314%_) - (_%key117330%_ _%key117316%_) - (_%update117338%_ _%update117317%_) - (_%default117346%_ _%default117318%_)) - (let ((_%h117355%_ + (define _%locked-hash-table::HashTable::update!117136%_ + (lambda (_%self120949%_ _%key120951%_ _%update120952%_ _%default120953%_) + (let* ((_%self120956%_ _%self120949%_) + (_%key120965%_ _%key120951%_) + (_%update120973%_ _%update120952%_) + (_%default120981%_ _%default120953%_)) + (let ((_%h120990%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self117321%_ '1 '#f '#f))) - (_%l117357%_ + (##unchecked-structure-ref _%self120956%_ '1 '#f '#f))) + (_%l120992%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self117321%_ '2 '#f '#f)))) - (let ((__tmp118488 (lambda () (&Locker-write-lock! _%l117357%_))) - (__tmp118487 + (##unchecked-structure-ref _%self120956%_ '2 '#f '#f)))) + (let ((__tmp122125 (lambda () (&Locker-write-lock! _%l120992%_))) + (__tmp122124 (lambda () (&HashTable-update! - _%h117355%_ - _%key117330%_ - _%update117338%_ - _%default117346%_))) - (__tmp118486 - (lambda () (&Locker-write-unlock! _%l117357%_)))) + _%h120990%_ + _%key120965%_ + _%update120973%_ + _%default120981%_))) + (__tmp122123 + (lambda () (&Locker-write-unlock! _%l120992%_)))) (declare (not safe)) - (##dynamic-wind __tmp118488 __tmp118487 __tmp118486)) + (##dynamic-wind __tmp122125 __tmp122124 __tmp122123)) '#!void)))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'HashTable::update! - _%locked-hash-table::HashTable::update!113488%_ + _%locked-hash-table::HashTable::update!117136%_ '#f)) - (define _%locked-hash-table::HashTable::delete!113490%_ - (lambda (_%self117160%_ _%key117162%_) - (let* ((_%self117165%_ _%self117160%_) (_%key117174%_ _%key117162%_)) - (let ((_%h117183%_ + (define _%locked-hash-table::HashTable::delete!117138%_ + (lambda (_%self120795%_ _%key120797%_) + (let* ((_%self120800%_ _%self120795%_) (_%key120809%_ _%key120797%_)) + (let ((_%h120818%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self117165%_ '1 '#f '#f))) - (_%l117185%_ + (##unchecked-structure-ref _%self120800%_ '1 '#f '#f))) + (_%l120820%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self117165%_ '2 '#f '#f)))) - (let ((__tmp118491 (lambda () (&Locker-write-lock! _%l117185%_))) - (__tmp118490 - (lambda () (&HashTable-delete! _%h117183%_ _%key117174%_))) - (__tmp118489 - (lambda () (&Locker-write-unlock! _%l117185%_)))) + (##unchecked-structure-ref _%self120800%_ '2 '#f '#f)))) + (let ((__tmp122128 (lambda () (&Locker-write-lock! _%l120820%_))) + (__tmp122127 + (lambda () (&HashTable-delete! _%h120818%_ _%key120809%_))) + (__tmp122126 + (lambda () (&Locker-write-unlock! _%l120820%_)))) (declare (not safe)) - (##dynamic-wind __tmp118491 __tmp118490 __tmp118489)) + (##dynamic-wind __tmp122128 __tmp122127 __tmp122126)) '#!void)))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'HashTable::delete! - _%locked-hash-table::HashTable::delete!113490%_ + _%locked-hash-table::HashTable::delete!117138%_ '#f)) - (define _%locked-hash-table::HashTable::for-each113492%_ - (lambda (_%self117006%_ _%proc117008%_) - (let* ((_%self117011%_ _%self117006%_) (_%proc117020%_ _%proc117008%_)) - (let ((_%h117029%_ + (define _%locked-hash-table::HashTable::for-each117140%_ + (lambda (_%self120641%_ _%proc120643%_) + (let* ((_%self120646%_ _%self120641%_) (_%proc120655%_ _%proc120643%_)) + (let ((_%h120664%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self117011%_ '1 '#f '#f))) - (_%l117031%_ + (##unchecked-structure-ref _%self120646%_ '1 '#f '#f))) + (_%l120666%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self117011%_ '2 '#f '#f)))) - (let ((__tmp118494 (lambda () (&Locker-read-lock! _%l117031%_))) - (__tmp118493 + (##unchecked-structure-ref _%self120646%_ '2 '#f '#f)))) + (let ((__tmp122131 (lambda () (&Locker-read-lock! _%l120666%_))) + (__tmp122130 (lambda () - (&HashTable-for-each _%h117029%_ _%proc117020%_))) - (__tmp118492 (lambda () (&Locker-read-unlock! _%l117031%_)))) + (&HashTable-for-each _%h120664%_ _%proc120655%_))) + (__tmp122129 (lambda () (&Locker-read-unlock! _%l120666%_)))) (declare (not safe)) - (##dynamic-wind __tmp118494 __tmp118493 __tmp118492)) + (##dynamic-wind __tmp122131 __tmp122130 __tmp122129)) '#!void)))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'HashTable::for-each - _%locked-hash-table::HashTable::for-each113492%_ + _%locked-hash-table::HashTable::for-each117140%_ '#f)) - (define _%locked-hash-table::HashTable::length113494%_ - (lambda (_%self116854%_) - (let ((_%self116858%_ _%self116854%_)) - (let ((_%h116868%_ + (define _%locked-hash-table::HashTable::length117142%_ + (lambda (_%self120489%_) + (let ((_%self120493%_ _%self120489%_)) + (let ((_%h120503%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self116858%_ '1 '#f '#f))) - (_%l116870%_ + (##unchecked-structure-ref _%self120493%_ '1 '#f '#f))) + (_%l120505%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self116858%_ '2 '#f '#f)))) - ((lambda (_%g116872116874%_) - (let ((_%val116877%_ _%g116872116874%_)) - (if (fixnum? _%val116877%_) - _%val116877%_ + (##unchecked-structure-ref _%self120493%_ '2 '#f '#f)))) + ((lambda (_%g120507120509%_) + (let ((_%val120512%_ _%g120507120509%_)) + (if (fixnum? _%val120512%_) + _%val120512%_ (let () (declare (not safe)) - (error '"bad cast" fixnum::t _%val116877%_))))) - (let ((__tmp118497 (lambda () (&Locker-read-lock! _%l116870%_))) - (__tmp118496 (lambda () (&HashTable-length _%h116868%_))) - (__tmp118495 - (lambda () (&Locker-read-unlock! _%l116870%_)))) + (error '"bad cast" fixnum::t _%val120512%_))))) + (let ((__tmp122134 (lambda () (&Locker-read-lock! _%l120505%_))) + (__tmp122133 (lambda () (&HashTable-length _%h120503%_))) + (__tmp122132 + (lambda () (&Locker-read-unlock! _%l120505%_)))) (declare (not safe)) - (##dynamic-wind __tmp118497 __tmp118496 __tmp118495))))))) + (##dynamic-wind __tmp122134 __tmp122133 __tmp122132))))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'HashTable::length - _%locked-hash-table::HashTable::length113494%_ + _%locked-hash-table::HashTable::length117142%_ '#f)) - (define _%locked-hash-table::HashTable::copy113496%_ - (lambda (_%self116706%_) - (let ((_%self116710%_ _%self116706%_)) - (let ((_%h116720%_ + (define _%locked-hash-table::HashTable::copy117144%_ + (lambda (_%self120341%_) + (let ((_%self120345%_ _%self120341%_)) + (let ((_%h120355%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self116710%_ '1 '#f '#f))) - (_%l116722%_ + (##unchecked-structure-ref _%self120345%_ '1 '#f '#f))) + (_%l120357%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self116710%_ '2 '#f '#f)))) - (let ((_%$obj116728%_ - (let ((__tmp118500 - (lambda () (&Locker-read-lock! _%l116722%_))) - (__tmp118499 - (lambda () (&HashTable-copy _%h116720%_))) - (__tmp118498 - (lambda () (&Locker-read-unlock! _%l116722%_)))) + (##unchecked-structure-ref _%self120345%_ '2 '#f '#f)))) + (let ((_%$obj120363%_ + (let ((__tmp122137 + (lambda () (&Locker-read-lock! _%l120357%_))) + (__tmp122136 + (lambda () (&HashTable-copy _%h120355%_))) + (__tmp122135 + (lambda () (&Locker-read-unlock! _%l120357%_)))) (declare (not safe)) - (##dynamic-wind __tmp118500 __tmp118499 __tmp118498)))) + (##dynamic-wind __tmp122137 __tmp122136 __tmp122135)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj116728%_)) + (##structure? _%$obj120363%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj116728%_))) + (##structure-type _%$obj120363%_))) '#t) - _%$obj116728%_ + _%$obj120363%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj116728%_)))))))) + (cast HashTable::interface _%$obj120363%_)))))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'HashTable::copy - _%locked-hash-table::HashTable::copy113496%_ + _%locked-hash-table::HashTable::copy117144%_ '#f)) - (define _%locked-hash-table::HashTable::clear!113498%_ - (lambda (_%self116561%_) - (let ((_%self116565%_ _%self116561%_)) - (let ((_%h116575%_ + (define _%locked-hash-table::HashTable::clear!117146%_ + (lambda (_%self120196%_) + (let ((_%self120200%_ _%self120196%_)) + (let ((_%h120210%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self116565%_ '1 '#f '#f))) - (_%l116577%_ + (##unchecked-structure-ref _%self120200%_ '1 '#f '#f))) + (_%l120212%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self116565%_ '2 '#f '#f)))) - (let ((__tmp118503 (lambda () (&Locker-write-lock! _%l116577%_))) - (__tmp118502 (lambda () (&HashTable-clear! _%h116575%_))) - (__tmp118501 - (lambda () (&Locker-write-unlock! _%l116577%_)))) + (##unchecked-structure-ref _%self120200%_ '2 '#f '#f)))) + (let ((__tmp122140 (lambda () (&Locker-write-lock! _%l120212%_))) + (__tmp122139 (lambda () (&HashTable-clear! _%h120210%_))) + (__tmp122138 + (lambda () (&Locker-write-unlock! _%l120212%_)))) (declare (not safe)) - (##dynamic-wind __tmp118503 __tmp118502 __tmp118501)) + (##dynamic-wind __tmp122140 __tmp122139 __tmp122138)) '#!void)))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'HashTable::clear! - _%locked-hash-table::HashTable::clear!113498%_ + _%locked-hash-table::HashTable::clear!117146%_ '#f)) - (let ((__tmp118504 (macro-type-mutex))) + (let ((__tmp122141 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp118504 'Locker::read-lock! mutex-lock!)) - (let ((__tmp118505 (macro-type-mutex))) + (bind-method!__0 __tmp122141 'Locker::read-lock! mutex-lock!)) + (let ((__tmp122142 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp118505 'Locker::read-unlock! mutex-unlock!)) - (let ((__tmp118506 (macro-type-mutex))) + (bind-method!__0 __tmp122142 'Locker::read-unlock! mutex-unlock!)) + (let ((__tmp122143 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp118506 'Locker::write-lock! mutex-lock!)) - (let ((__tmp118507 (macro-type-mutex))) + (bind-method!__0 __tmp122143 'Locker::write-lock! mutex-lock!)) + (let ((__tmp122144 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp118507 'Locker::write-unlock! mutex-unlock!)) - (define _%checked-hash-table::HashTable::ref113711%_ - (lambda (_%self116396%_ _%key116397%_ _%default116398%_) - (let* ((_%self116401%_ _%self116396%_) - (_%key116410%_ _%key116397%_) - (_%default116418%_ _%default116398%_)) + (bind-method!__0 __tmp122144 'Locker::write-unlock! mutex-unlock!)) + (define _%checked-hash-table::HashTable::ref117357%_ + (lambda (_%self120031%_ _%key120032%_ _%default120033%_) + (let* ((_%self120036%_ _%self120031%_) + (_%key120045%_ _%key120032%_) + (_%default120053%_ _%default120033%_)) (declare (not safe)) - (let ((_%h116429%_ - (##unchecked-structure-ref _%self116401%_ '1 '#f '#f)) - (_%key?116431%_ - (##unchecked-structure-ref _%self116401%_ '2 '#f '#f))) - (if ((lambda (_%key?116434%_ _%key116435%_ _%default116436%_) - (_%key?116434%_ _%key116435%_)) - _%key?116431%_ - _%key116410%_ - _%default116418%_) - (&HashTable-ref _%h116429%_ _%key116410%_ _%default116418%_) + (let ((_%h120064%_ + (##unchecked-structure-ref _%self120036%_ '1 '#f '#f)) + (_%key?120066%_ + (##unchecked-structure-ref _%self120036%_ '2 '#f '#f))) + (if ((lambda (_%key?120069%_ _%key120070%_ _%default120071%_) + (_%key?120069%_ _%key120070%_)) + _%key?120066%_ + _%key120045%_ + _%default120053%_) + (&HashTable-ref _%h120064%_ _%key120045%_ _%default120053%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-ref 'value: - (cons _%key116410%_ (cons _%default116418%_ '()))) + (cons _%key120045%_ (cons _%default120053%_ '()))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'HashTable::ref - _%checked-hash-table::HashTable::ref113711%_ + _%checked-hash-table::HashTable::ref117357%_ '#f)) - (define _%checked-hash-table::HashTable::set!113713%_ - (lambda (_%self116231%_ _%key116232%_ _%value116233%_) - (let* ((_%self116236%_ _%self116231%_) - (_%key116245%_ _%key116232%_) - (_%value116253%_ _%value116233%_)) + (define _%checked-hash-table::HashTable::set!117359%_ + (lambda (_%self119866%_ _%key119867%_ _%value119868%_) + (let* ((_%self119871%_ _%self119866%_) + (_%key119880%_ _%key119867%_) + (_%value119888%_ _%value119868%_)) (declare (not safe)) - (let ((_%h116264%_ - (##unchecked-structure-ref _%self116236%_ '1 '#f '#f)) - (_%key?116266%_ - (##unchecked-structure-ref _%self116236%_ '2 '#f '#f))) - (if ((lambda (_%key?116269%_ _%key116270%_ _%value116271%_) - (_%key?116269%_ _%key116270%_)) - _%key?116266%_ - _%key116245%_ - _%value116253%_) - (&HashTable-set! _%h116264%_ _%key116245%_ _%value116253%_) + (let ((_%h119899%_ + (##unchecked-structure-ref _%self119871%_ '1 '#f '#f)) + (_%key?119901%_ + (##unchecked-structure-ref _%self119871%_ '2 '#f '#f))) + (if ((lambda (_%key?119904%_ _%key119905%_ _%value119906%_) + (_%key?119904%_ _%key119905%_)) + _%key?119901%_ + _%key119880%_ + _%value119888%_) + (&HashTable-set! _%h119899%_ _%key119880%_ _%value119888%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-set! 'value: - (cons _%key116245%_ (cons _%value116253%_ '()))) + (cons _%key119880%_ (cons _%value119888%_ '()))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'HashTable::set! - _%checked-hash-table::HashTable::set!113713%_ + _%checked-hash-table::HashTable::set!117359%_ '#f)) - (define _%checked-hash-table::HashTable::update!113715%_ - (lambda (_%self116056%_ _%key116057%_ _%update116058%_ _%default116059%_) - (let* ((_%self116062%_ _%self116056%_) - (_%key116071%_ _%key116057%_) - (_%update116079%_ _%update116058%_) - (_%default116087%_ _%default116059%_)) + (define _%checked-hash-table::HashTable::update!117361%_ + (lambda (_%self119691%_ _%key119692%_ _%update119693%_ _%default119694%_) + (let* ((_%self119697%_ _%self119691%_) + (_%key119706%_ _%key119692%_) + (_%update119714%_ _%update119693%_) + (_%default119722%_ _%default119694%_)) (declare (not safe)) - (let ((_%h116098%_ - (##unchecked-structure-ref _%self116062%_ '1 '#f '#f)) - (_%key?116100%_ - (##unchecked-structure-ref _%self116062%_ '2 '#f '#f))) - (if ((lambda (_%key?116103%_ - _%key116104%_ - _%update116105%_ - _%default116106%_) - (_%key?116103%_ _%key116104%_)) - _%key?116100%_ - _%key116071%_ - _%update116079%_ - _%default116087%_) + (let ((_%h119733%_ + (##unchecked-structure-ref _%self119697%_ '1 '#f '#f)) + (_%key?119735%_ + (##unchecked-structure-ref _%self119697%_ '2 '#f '#f))) + (if ((lambda (_%key?119738%_ + _%key119739%_ + _%update119740%_ + _%default119741%_) + (_%key?119738%_ _%key119739%_)) + _%key?119735%_ + _%key119706%_ + _%update119714%_ + _%default119722%_) (&HashTable-update! - _%h116098%_ - _%key116071%_ - _%update116079%_ - _%default116087%_) + _%h119733%_ + _%key119706%_ + _%update119714%_ + _%default119722%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-update! 'value: - (cons _%key116071%_ - (cons _%update116079%_ (cons _%default116087%_ '())))) + (cons _%key119706%_ + (cons _%update119714%_ (cons _%default119722%_ '())))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'HashTable::update! - _%checked-hash-table::HashTable::update!113715%_ + _%checked-hash-table::HashTable::update!117361%_ '#f)) - (define _%checked-hash-table::HashTable::delete!113717%_ - (lambda (_%self115901%_ _%key115902%_) - (let* ((_%self115905%_ _%self115901%_) (_%key115914%_ _%key115902%_)) + (define _%checked-hash-table::HashTable::delete!117363%_ + (lambda (_%self119536%_ _%key119537%_) + (let* ((_%self119540%_ _%self119536%_) (_%key119549%_ _%key119537%_)) (declare (not safe)) - (let ((_%h115925%_ - (##unchecked-structure-ref _%self115905%_ '1 '#f '#f)) - (_%key?115927%_ - (##unchecked-structure-ref _%self115905%_ '2 '#f '#f))) - (if ((lambda (_%key?115930%_ _%key115931%_) - (_%key?115930%_ _%key115931%_)) - _%key?115927%_ - _%key115914%_) - (&HashTable-delete! _%h115925%_ _%key115914%_) + (let ((_%h119560%_ + (##unchecked-structure-ref _%self119540%_ '1 '#f '#f)) + (_%key?119562%_ + (##unchecked-structure-ref _%self119540%_ '2 '#f '#f))) + (if ((lambda (_%key?119565%_ _%key119566%_) + (_%key?119565%_ _%key119566%_)) + _%key?119562%_ + _%key119549%_) + (&HashTable-delete! _%h119560%_ _%key119549%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-delete! 'value: - (cons _%key115914%_ '())) + (cons _%key119549%_ '())) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'HashTable::delete! - _%checked-hash-table::HashTable::delete!113717%_ + _%checked-hash-table::HashTable::delete!117363%_ '#f)) - (define _%checked-hash-table::HashTable::for-each113719%_ - (lambda (_%self115746%_ _%proc115747%_) - (let* ((_%self115750%_ _%self115746%_) (_%proc115759%_ _%proc115747%_)) + (define _%checked-hash-table::HashTable::for-each117365%_ + (lambda (_%self119381%_ _%proc119382%_) + (let* ((_%self119385%_ _%self119381%_) (_%proc119394%_ _%proc119382%_)) (declare (not safe)) - (let ((_%h115770%_ - (##unchecked-structure-ref _%self115750%_ '1 '#f '#f)) - (_%key?115772%_ - (##unchecked-structure-ref _%self115750%_ '2 '#f '#f))) - (if ((lambda (_%key?115775%_ _%proc115776%_) '#t) - _%key?115772%_ - _%proc115759%_) - (&HashTable-for-each _%h115770%_ _%proc115759%_) + (let ((_%h119405%_ + (##unchecked-structure-ref _%self119385%_ '1 '#f '#f)) + (_%key?119407%_ + (##unchecked-structure-ref _%self119385%_ '2 '#f '#f))) + (if ((lambda (_%key?119410%_ _%proc119411%_) '#t) + _%key?119407%_ + _%proc119394%_) + (&HashTable-for-each _%h119405%_ _%proc119394%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-for-each 'value: - (cons _%proc115759%_ '())) + (cons _%proc119394%_ '())) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'HashTable::for-each - _%checked-hash-table::HashTable::for-each113719%_ + _%checked-hash-table::HashTable::for-each117365%_ '#f)) - (define _%checked-hash-table::HashTable::length113721%_ - (lambda (_%self115603%_) - (let ((_%self115606%_ _%self115603%_)) + (define _%checked-hash-table::HashTable::length117367%_ + (lambda (_%self119238%_) + (let ((_%self119241%_ _%self119238%_)) (declare (not safe)) - (let ((_%h115618%_ - (##unchecked-structure-ref _%self115606%_ '1 '#f '#f)) - (_%key?115620%_ - (##unchecked-structure-ref _%self115606%_ '2 '#f '#f))) + (let ((_%h119253%_ + (##unchecked-structure-ref _%self119241%_ '1 '#f '#f)) + (_%key?119255%_ + (##unchecked-structure-ref _%self119241%_ '2 '#f '#f))) (if '#!void - (&HashTable-length _%h115618%_) + (&HashTable-length _%h119253%_) (begin (raise-contract-violation-error '"invalid key" @@ -1605,18 +1625,18 @@ (__bind-method!__% checked-hash-table::t 'HashTable::length - _%checked-hash-table::HashTable::length113721%_ + _%checked-hash-table::HashTable::length117367%_ '#f)) - (define _%checked-hash-table::HashTable::copy113723%_ - (lambda (_%self115460%_) - (let ((_%self115463%_ _%self115460%_)) + (define _%checked-hash-table::HashTable::copy117369%_ + (lambda (_%self119095%_) + (let ((_%self119098%_ _%self119095%_)) (declare (not safe)) - (let ((_%h115475%_ - (##unchecked-structure-ref _%self115463%_ '1 '#f '#f)) - (_%key?115477%_ - (##unchecked-structure-ref _%self115463%_ '2 '#f '#f))) + (let ((_%h119110%_ + (##unchecked-structure-ref _%self119098%_ '1 '#f '#f)) + (_%key?119112%_ + (##unchecked-structure-ref _%self119098%_ '2 '#f '#f))) (if '#!void - (&HashTable-copy _%h115475%_) + (&HashTable-copy _%h119110%_) (begin (raise-contract-violation-error '"invalid key" @@ -1630,18 +1650,18 @@ (__bind-method!__% checked-hash-table::t 'HashTable::copy - _%checked-hash-table::HashTable::copy113723%_ + _%checked-hash-table::HashTable::copy117369%_ '#f)) - (define _%checked-hash-table::HashTable::clear!113725%_ - (lambda (_%self115317%_) - (let ((_%self115320%_ _%self115317%_)) + (define _%checked-hash-table::HashTable::clear!117371%_ + (lambda (_%self118952%_) + (let ((_%self118955%_ _%self118952%_)) (declare (not safe)) - (let ((_%h115332%_ - (##unchecked-structure-ref _%self115320%_ '1 '#f '#f)) - (_%key?115334%_ - (##unchecked-structure-ref _%self115320%_ '2 '#f '#f))) + (let ((_%h118967%_ + (##unchecked-structure-ref _%self118955%_ '1 '#f '#f)) + (_%key?118969%_ + (##unchecked-structure-ref _%self118955%_ '2 '#f '#f))) (if '#!void - (&HashTable-clear! _%h115332%_) + (&HashTable-clear! _%h118967%_) (begin (raise-contract-violation-error '"invalid key" @@ -1655,394 +1675,394 @@ (__bind-method!__% checked-hash-table::t 'HashTable::clear! - _%checked-hash-table::HashTable::clear!113725%_ + _%checked-hash-table::HashTable::clear!117371%_ '#f)) (define make-generic-hash-table - (lambda (_%table115187%_ - _%count115188%_ - _%free115189%_ - _%hash115190%_ - _%test115191%_ - _%seed115192%_) + (lambda (_%table118822%_ + _%count118823%_ + _%free118824%_ + _%hash118825%_ + _%test118826%_ + _%seed118827%_) (let () (declare (not safe)) (##structure hash-table::t - _%table115187%_ - _%count115188%_ - _%free115189%_ - _%hash115190%_ - _%test115191%_ - _%seed115192%_)))) + _%table118822%_ + _%count118823%_ + _%free118824%_ + _%hash118825%_ + _%test118826%_ + _%seed118827%_)))) (define make-hash-table__% - (lambda (_%@@keywords114948%_ - _%size-hint114938114949%_ - _%seed114939114951%_ - _%test114940114953%_ - _%hash114941114955%_ - _%lock114942114957%_ - _%check114943114959%_ - _%weak-keys114944114961%_ - _%weak-values114945114963%_) - (let* ((_%size-hint114966%_ - (if (eq? _%size-hint114938114949%_ absent-value) + (lambda (_%@@keywords118591%_ + _%size-hint118581118592%_ + _%seed118582118593%_ + _%test118583118594%_ + _%hash118584118595%_ + _%lock118585118596%_ + _%check118586118597%_ + _%weak-keys118587118598%_ + _%weak-values118588118599%_) + (let* ((_%size-hint118601%_ + (if (eq? _%size-hint118581118592%_ absent-value) '#f - _%size-hint114938114949%_)) - (_%seed114968%_ - (if (eq? _%seed114939114951%_ absent-value) + _%size-hint118581118592%_)) + (_%seed118603%_ + (if (eq? _%seed118582118593%_ absent-value) '#f - _%seed114939114951%_)) - (_%test114970%_ - (if (eq? _%test114940114953%_ absent-value) + _%seed118582118593%_)) + (_%test118605%_ + (if (eq? _%test118583118594%_ absent-value) equal? - _%test114940114953%_)) - (_%hash114972%_ - (if (eq? _%hash114941114955%_ absent-value) + _%test118583118594%_)) + (_%hash118607%_ + (if (eq? _%hash118584118595%_ absent-value) '#f - _%hash114941114955%_)) - (_%lock114974%_ - (if (eq? _%lock114942114957%_ absent-value) + _%hash118584118595%_)) + (_%lock118609%_ + (if (eq? _%lock118585118596%_ absent-value) '#f - _%lock114942114957%_)) - (_%check114976%_ - (if (eq? _%check114943114959%_ absent-value) + _%lock118585118596%_)) + (_%check118611%_ + (if (eq? _%check118586118597%_ absent-value) '#f - _%check114943114959%_)) - (_%weak-keys114978%_ - (if (eq? _%weak-keys114944114961%_ absent-value) + _%check118586118597%_)) + (_%weak-keys118613%_ + (if (eq? _%weak-keys118587118598%_ absent-value) '#f - _%weak-keys114944114961%_)) - (_%weak-values114980%_ - (if (eq? _%weak-values114945114963%_ absent-value) + _%weak-keys118587118598%_)) + (_%weak-values118615%_ + (if (eq? _%weak-values118588118599%_ absent-value) '#f - _%weak-values114945114963%_))) - (letrec ((_%table-seed114983%_ + _%weak-values118588118599%_))) + (letrec ((_%table-seed118618%_ (lambda () - (if (fixnum? _%seed114968%_) - _%seed114968%_ + (if (fixnum? _%seed118603%_) + _%seed118603%_ (random-integer (macro-max-fixnum32))))) - (_%wrap-lock114984%_ - (lambda (_%ht115161%_) - (let ((_%ht115164%_ _%ht115161%_)) - (_%__wrap-lock114985%_ _%ht115164%_)))) - (_%__wrap-lock114985%_ - (lambda (_%ht115143%_) - (let ((_%ht115146%_ _%ht115143%_)) - (if _%lock114974%_ - (let ((_%$obj115158%_ - (let ((__tmp118508 - (let ((_%$obj115155%_ - _%lock114974%_)) + (_%wrap-lock118619%_ + (lambda (_%ht118796%_) + (let ((_%ht118799%_ _%ht118796%_)) + (_%__wrap-lock118620%_ _%ht118799%_)))) + (_%__wrap-lock118620%_ + (lambda (_%ht118778%_) + (let ((_%ht118781%_ _%ht118778%_)) + (if _%lock118609%_ + (let ((_%$obj118793%_ + (let ((__tmp122145 + (let ((_%$obj118790%_ + _%lock118609%_)) (if (and (let () (declare (not safe)) (##structure? - _%$obj115155%_)) + _%$obj118790%_)) (eq? Locker::t (let () (declare (not safe)) (##structure-type - _%$obj115155%_))) + _%$obj118790%_))) '#t) - _%$obj115155%_ + _%$obj118790%_ (let () (declare (not safe)) (cast Locker::interface - _%$obj115155%_)))))) + _%$obj118790%_)))))) (declare (not safe)) (##structure locked-hash-table::t - _%ht115146%_ - __tmp118508)))) + _%ht118781%_ + __tmp122145)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj115158%_)) + (##structure? _%$obj118793%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj115158%_))) + _%$obj118793%_))) '#t) - _%$obj115158%_ + _%$obj118793%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj115158%_)))) - _%ht115146%_)))) - (_%wrap-checked114986%_ - (lambda (_%ht115130%_ _%implicit115131%_) - (let ((_%ht115134%_ _%ht115130%_)) - (_%__wrap-checked114987%_ - _%ht115134%_ - _%implicit115131%_)))) - (_%__wrap-checked114987%_ - (lambda (_%ht115103%_ _%implicit115104%_) - (let ((_%ht115107%_ _%ht115103%_)) - (if _%check114976%_ - (let ((_%$obj115127%_ - (let ((__tmp118509 - (if (procedure? _%check114976%_) - _%check114976%_ - _%implicit115104%_))) + _%$obj118793%_)))) + _%ht118781%_)))) + (_%wrap-checked118621%_ + (lambda (_%ht118765%_ _%implicit118766%_) + (let ((_%ht118769%_ _%ht118765%_)) + (_%__wrap-checked118622%_ + _%ht118769%_ + _%implicit118766%_)))) + (_%__wrap-checked118622%_ + (lambda (_%ht118738%_ _%implicit118739%_) + (let ((_%ht118742%_ _%ht118738%_)) + (if _%check118611%_ + (let ((_%$obj118762%_ + (let ((__tmp122146 + (if (procedure? _%check118611%_) + _%check118611%_ + _%implicit118739%_))) (declare (not safe)) (##structure checked-hash-table::t - _%ht115107%_ - __tmp118509)))) + _%ht118742%_ + __tmp122146)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj115127%_)) + (##structure? _%$obj118762%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj115127%_))) + _%$obj118762%_))) '#t) - _%$obj115127%_ + _%$obj118762%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj115127%_)))) - _%ht115107%_)))) - (_%make114988%_ - (lambda (_%kons115087%_ - _%key?115088%_ - _%hash115089%_ - _%test115090%_) - (let* ((_%size115093%_ + _%$obj118762%_)))) + _%ht118742%_)))) + (_%make118623%_ + (lambda (_%kons118722%_ + _%key?118723%_ + _%hash118724%_ + _%test118725%_) + (let* ((_%size118728%_ (let () (declare (not safe)) (raw-table-size-hint->size - _%size-hint114966%_))) - (_%table115095%_ - (let ((__tmp118510 (macro-unused-obj))) + _%size-hint118601%_))) + (_%table118730%_ + (let ((__tmp122147 (macro-unused-obj))) (declare (not safe)) - (##make-vector _%size115093%_ __tmp118510))) - (_%ht115100%_ - (let ((_%$obj115097%_ - (_%kons115087%_ - _%table115095%_ + (##make-vector _%size118728%_ __tmp122147))) + (_%ht118735%_ + (let ((_%$obj118732%_ + (_%kons118722%_ + _%table118730%_ '0 (let () (declare (not safe)) - (##fxquotient _%size115093%_ '2)) - _%hash115089%_ - _%test115090%_ - (_%table-seed114983%_)))) + (##fxquotient _%size118728%_ '2)) + _%hash118724%_ + _%test118725%_ + (_%table-seed118618%_)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj115097%_)) + (##structure? _%$obj118732%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj115097%_))) + _%$obj118732%_))) '#t) - _%$obj115097%_ + _%$obj118732%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj115097%_)))))) - (_%__wrap-checked114987%_ - (_%__wrap-lock114985%_ _%ht115100%_) - _%key?115088%_)))) - (_%make-gc-hash-table114989%_ + _%$obj118732%_)))))) + (_%__wrap-checked118622%_ + (_%__wrap-lock118620%_ _%ht118735%_) + _%key?118723%_)))) + (_%make-gc-hash-table118624%_ (lambda () - (let ((_%ht115085%_ - (let ((_%$obj115082%_ + (let ((_%ht118720%_ + (let ((_%$obj118717%_ (let () (declare (not safe)) (make-gc-table__1 - _%size-hint114966%_ + _%size-hint118601%_ gc-hash-table::t)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj115082%_)) + (##structure? _%$obj118717%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj115082%_))) + _%$obj118717%_))) '#t) - _%$obj115082%_ + _%$obj118717%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj115082%_)))))) - (_%__wrap-checked114987%_ - (_%__wrap-lock114985%_ _%ht115085%_) + _%$obj118717%_)))))) + (_%__wrap-checked118622%_ + (_%__wrap-lock118620%_ _%ht118720%_) true)))) - (_%make-gambit-table114990%_ + (_%make-gambit-table118625%_ (lambda () - (let* ((_%size115059%_ - (let ((_%$e115056%_ _%size-hint114966%_)) - (if _%$e115056%_ - _%$e115056%_ + (let* ((_%size118694%_ + (let ((_%$e118691%_ _%size-hint118601%_)) + (if _%$e118691%_ + _%$e118691%_ (macro-absent-obj)))) - (_%test115064%_ - (let ((_%$e115061%_ _%test114970%_)) - (if _%$e115061%_ _%$e115061%_ equal?))) - (_%hash115072%_ - (let ((_%$e115066%_ _%hash114972%_)) - (if _%$e115066%_ - _%$e115066%_ - (if (eq? _%test115064%_ eq?) + (_%test118699%_ + (let ((_%$e118696%_ _%test118605%_)) + (if _%$e118696%_ _%$e118696%_ equal?))) + (_%hash118707%_ + (let ((_%$e118701%_ _%hash118607%_)) + (if _%$e118701%_ + _%$e118701%_ + (if (eq? _%test118699%_ eq?) eq?-hash - (if (eq? _%test115064%_ eqv?) + (if (eq? _%test118699%_ eqv?) eqv?-hash equal?-hash))))) - (_%ht115077%_ - (let ((_%$obj115074%_ + (_%ht118712%_ + (let ((_%$obj118709%_ (make-table 'size: - _%size115059%_ + _%size118694%_ 'test: - _%test115064%_ + _%test118699%_ 'hash: - _%hash115072%_ + _%hash118707%_ 'weak-keys: - _%weak-keys114978%_ + _%weak-keys118613%_ 'weak-values: - _%weak-values114980%_))) + _%weak-values118615%_))) (if (and (let () (declare (not safe)) - (##structure? _%$obj115074%_)) + (##structure? _%$obj118709%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj115074%_))) + _%$obj118709%_))) '#t) - _%$obj115074%_ + _%$obj118709%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj115074%_)))))) - (_%__wrap-checked114987%_ - (_%__wrap-lock114985%_ _%ht115077%_) + _%$obj118709%_)))))) + (_%__wrap-checked118622%_ + (_%__wrap-lock118620%_ _%ht118712%_) true))))) - (if (or _%weak-keys114978%_ _%weak-values114980%_) - (_%make-gambit-table114990%_) - (if (and (or (eq? _%test114970%_ eq?) - (eq? _%test114970%_ ##eq?)) - (or (not _%hash114972%_) - (eq? _%hash114972%_ eq?-hash) - (eq? _%hash114972%_ eq-hash)) - (not _%seed114968%_)) - (_%make-gc-hash-table114989%_) - (if (and (or (eq? _%test114970%_ eq?) - (eq? _%test114970%_ ##eq?)) - (or (not _%hash114972%_) - (eq? _%hash114972%_ eq?-hash) - (eq? _%hash114972%_ eq-hash))) - (_%make114988%_ make-eq-hash-table true eq-hash eq?) - (if (and (or (eq? _%test114970%_ eqv?) - (eq? _%test114970%_ ##eqv?)) - (or (not _%hash114972%_) - (eq? _%hash114972%_ eqv?-hash) - (eq? _%hash114972%_ eqv-hash))) - (_%make114988%_ + (if (or _%weak-keys118613%_ _%weak-values118615%_) + (_%make-gambit-table118625%_) + (if (and (or (eq? _%test118605%_ eq?) + (eq? _%test118605%_ ##eq?)) + (or (not _%hash118607%_) + (eq? _%hash118607%_ eq?-hash) + (eq? _%hash118607%_ eq-hash)) + (not _%seed118603%_)) + (_%make-gc-hash-table118624%_) + (if (and (or (eq? _%test118605%_ eq?) + (eq? _%test118605%_ ##eq?)) + (or (not _%hash118607%_) + (eq? _%hash118607%_ eq?-hash) + (eq? _%hash118607%_ eq-hash))) + (_%make118623%_ make-eq-hash-table true eq-hash eq?) + (if (and (or (eq? _%test118605%_ eqv?) + (eq? _%test118605%_ ##eqv?)) + (or (not _%hash118607%_) + (eq? _%hash118607%_ eqv?-hash) + (eq? _%hash118607%_ eqv-hash))) + (_%make118623%_ make-eqv-hash-table true eqv-hash eqv?) - (if (and (or (eq? _%test114970%_ eq?) - (eq? _%test114970%_ ##eq?)) - (or (eq? _%hash114972%_ symbolic-hash) - (eq? _%hash114972%_ ##symbol-hash))) - (_%make114988%_ + (if (and (or (eq? _%test118605%_ eq?) + (eq? _%test118605%_ ##eq?)) + (or (eq? _%hash118607%_ symbolic-hash) + (eq? _%hash118607%_ ##symbol-hash))) + (_%make118623%_ make-symbol-hash-table symbolic? symbolic-hash eq?) - (if (and (or (eq? _%test114970%_ eq?) - (eq? _%test114970%_ ##eq?)) - (eq? _%hash114972%_ immediate-hash)) - (_%make114988%_ + (if (and (or (eq? _%test118605%_ eq?) + (eq? _%test118605%_ ##eq?)) + (eq? _%hash118607%_ immediate-hash)) + (_%make118623%_ make-immediate-hash-table immediate? immediate-hash eq?) - (if (and (or (eq? _%test114970%_ equal?) - (eq? _%test114970%_ ##equal?) - (eq? _%test114970%_ string=?) - (eq? _%test114970%_ + (if (and (or (eq? _%test118605%_ equal?) + (eq? _%test118605%_ ##equal?) + (eq? _%test118605%_ string=?) + (eq? _%test118605%_ ##string=?)) - (or (eq? _%hash114972%_ + (or (eq? _%hash118607%_ string-hash) - (eq? _%hash114972%_ + (eq? _%hash118607%_ ##string=?-hash))) - (_%make114988%_ + (_%make118623%_ make-string-hash-table string? string-hash ##string=?) - (if (and (eq? _%test114970%_ equal?) - (not _%hash114972%_)) - (_%make114988%_ + (if (and (eq? _%test118605%_ equal?) + (not _%hash118607%_)) + (_%make118623%_ make-generic-hash-table true equal?-hash equal?) - (if (procedure? _%test114970%_) - (if (procedure? _%hash114972%_) - (_%make114988%_ + (if (procedure? _%test118605%_) + (if (procedure? _%hash118607%_) + (_%make118623%_ make-generic-hash-table true - _%hash114972%_ - _%test114970%_) + _%hash118607%_ + _%test118605%_) (let () (let () (declare (not safe)) (error '"bad hash table hash function; expected procedure" - _%hash114972%_)) + _%hash118607%_)) '#!void)) (let () (let () (declare (not safe)) (error '"bad hash table test function; expected procedure" - _%test114970%_)) + _%test118605%_)) '#!void)))))))))))))) (define make-hash-table__@ - (lambda (_%@@keywords115177%_ . _%args115178%_) + (lambda (_%@@keywords118812%_ . _%args118813%_) (apply make-hash-table__% - _%@@keywords115177%_ + _%@@keywords118812%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords115177%_ 'size: absent-value)) + (symbolic-table-ref _%@@keywords118812%_ 'size: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords115177%_ 'seed: absent-value)) + (symbolic-table-ref _%@@keywords118812%_ 'seed: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords115177%_ 'test: absent-value)) + (symbolic-table-ref _%@@keywords118812%_ 'test: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords115177%_ 'hash: absent-value)) + (symbolic-table-ref _%@@keywords118812%_ 'hash: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords115177%_ 'lock: absent-value)) + (symbolic-table-ref _%@@keywords118812%_ 'lock: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords115177%_ + _%@@keywords118812%_ 'check: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords115177%_ + _%@@keywords118812%_ 'weak-keys: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords115177%_ + _%@@keywords118812%_ 'weak-values: absent-value)) - _%args115178%_))) + _%args118813%_))) (define make-hash-table - (lambda _%args114946115184%_ + (lambda _%args118589118819%_ (apply keyword-dispatch '#(#f #f @@ -2085,959 +2105,959 @@ #f #f) make-hash-table__@ - _%args114946115184%_))) + _%args118589118819%_))) (define make-hash-table-eq - (lambda _%args114935%_ - (apply make-hash-table 'test: eq? _%args114935%_))) + (lambda _%args118578%_ + (apply make-hash-table 'test: eq? _%args118578%_))) (define make-hash-table-eqv - (lambda _%args114933%_ - (apply make-hash-table 'test: eqv? _%args114933%_))) + (lambda _%args118576%_ + (apply make-hash-table 'test: eqv? _%args118576%_))) (define make-hash-table-symbolic - (lambda _%args114931%_ + (lambda _%args118574%_ (apply make-hash-table 'test: eq? 'hash: symbolic-hash - _%args114931%_))) + _%args118574%_))) (define make-hash-table-string - (lambda _%args114929%_ + (lambda _%args118572%_ (apply make-hash-table 'test: string=? 'hash: string-hash - _%args114929%_))) + _%args118572%_))) (define make-hash-table-immediate - (lambda _%args114927%_ + (lambda _%args118570%_ (apply make-hash-table 'test: eq? 'hash: immediate-hash - _%args114927%_))) + _%args118570%_))) (define list->hash-table - (lambda (_%lst114924%_ . _%args114925%_) + (lambda (_%lst118567%_ . _%args118568%_) (list->hash-table! - _%lst114924%_ + _%lst118567%_ (apply make-hash-table 'size: - (length _%lst114924%_) - _%args114925%_)))) + (length _%lst118567%_) + _%args118568%_)))) (define list->hash-table-eq - (lambda (_%lst114921%_ . _%args114922%_) + (lambda (_%lst118564%_ . _%args118565%_) (list->hash-table! - _%lst114921%_ + _%lst118564%_ (apply make-hash-table-eq 'size: - (length _%lst114921%_) - _%args114922%_)))) + (length _%lst118564%_) + _%args118565%_)))) (define list->hash-table-eqv - (lambda (_%lst114918%_ . _%args114919%_) + (lambda (_%lst118561%_ . _%args118562%_) (list->hash-table! - _%lst114918%_ + _%lst118561%_ (apply make-hash-table-eqv 'size: - (length _%lst114918%_) - _%args114919%_)))) + (length _%lst118561%_) + _%args118562%_)))) (define list->hash-table-symbolic - (lambda (_%lst114915%_ . _%args114916%_) + (lambda (_%lst118558%_ . _%args118559%_) (list->hash-table! - _%lst114915%_ + _%lst118558%_ (apply make-hash-table-symbolic 'size: - (length _%lst114915%_) - _%args114916%_)))) + (length _%lst118558%_) + _%args118559%_)))) (define list->hash-table-string - (lambda (_%lst114912%_ . _%args114913%_) + (lambda (_%lst118555%_ . _%args118556%_) (list->hash-table! - _%lst114912%_ + _%lst118555%_ (apply make-hash-table-string 'size: - (length _%lst114912%_) - _%args114913%_)))) + (length _%lst118555%_) + _%args118556%_)))) (define list->hash-table-immediate - (lambda (_%lst114909%_ . _%args114910%_) + (lambda (_%lst118552%_ . _%args118553%_) (list->hash-table! - _%lst114909%_ + _%lst118552%_ (apply make-hash-table-immediate 'size: - (length _%lst114909%_) - _%args114910%_)))) + (length _%lst118552%_) + _%args118553%_)))) (define list->hash-table! - (lambda (_%lst114876%_ _%h114877%_) + (lambda (_%lst118520%_ _%h118521%_) (for-each - (lambda (_%el114879%_) - (let* ((_%el114880114887%_ _%el114879%_) - (_%E114882114891%_ + (lambda (_%el118523%_) + (let* ((_%el118524118531%_ _%el118523%_) + (_%E118526118534%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%el114880114887%_ + _%el118524118531%_ '([k . v]))) '#!void)) - (_%K114883114897%_ - (lambda (_%v114894%_ _%k114895%_) - (&HashTable-set! _%h114877%_ _%k114895%_ _%v114894%_)))) - (if (pair? _%el114880114887%_) - (let ((_%hd114884114900%_ + (_%K118527118540%_ + (lambda (_%v118537%_ _%k118538%_) + (&HashTable-set! _%h118521%_ _%k118538%_ _%v118537%_)))) + (if (pair? _%el118524118531%_) + (let ((_%hd118528118543%_ (let () (declare (not safe)) - (##car _%el114880114887%_))) - (_%tl114885114902%_ + (##car _%el118524118531%_))) + (_%tl118529118545%_ (let () (declare (not safe)) - (##cdr _%el114880114887%_)))) - (let* ((_%k114905%_ _%hd114884114900%_) - (_%v114907%_ _%tl114885114902%_)) - (_%K114883114897%_ _%v114907%_ _%k114905%_))) - (_%E114882114891%_)))) - _%lst114876%_) - _%h114877%_)) + (##cdr _%el118524118531%_)))) + (let* ((_%k118548%_ _%hd118528118543%_) + (_%v118550%_ _%tl118529118545%_)) + (_%K118527118540%_ _%v118550%_ _%k118548%_))) + (_%E118526118534%_)))) + _%lst118520%_) + _%h118521%_)) (define plist->hash-table - (lambda (_%lst114873%_ . _%args114874%_) + (lambda (_%lst118517%_ . _%args118518%_) (plist->hash-table! - _%lst114873%_ + _%lst118517%_ (apply make-hash-table 'size: - (length _%lst114873%_) - _%args114874%_)))) + (length _%lst118517%_) + _%args118518%_)))) (define plist->hash-table-eq - (lambda (_%lst114870%_ . _%args114871%_) + (lambda (_%lst118514%_ . _%args118515%_) (plist->hash-table! - _%lst114870%_ + _%lst118514%_ (apply make-hash-table-eq 'size: - (length _%lst114870%_) - _%args114871%_)))) + (length _%lst118514%_) + _%args118515%_)))) (define plist->hash-table-eqv - (lambda (_%lst114867%_ . _%args114868%_) + (lambda (_%lst118511%_ . _%args118512%_) (plist->hash-table! - _%lst114867%_ + _%lst118511%_ (apply make-hash-table-eqv 'size: - (length _%lst114867%_) - _%args114868%_)))) + (length _%lst118511%_) + _%args118512%_)))) (define plist->hash-table-symbolic - (lambda (_%lst114864%_ . _%args114865%_) + (lambda (_%lst118508%_ . _%args118509%_) (plist->hash-table! - _%lst114864%_ + _%lst118508%_ (apply make-hash-table-symbolic 'size: - (length _%lst114864%_) - _%args114865%_)))) + (length _%lst118508%_) + _%args118509%_)))) (define plist->hash-table-string - (lambda (_%lst114861%_ . _%args114862%_) + (lambda (_%lst118505%_ . _%args118506%_) (plist->hash-table! - _%lst114861%_ + _%lst118505%_ (apply make-hash-table-string 'size: - (length _%lst114861%_) - _%args114862%_)))) + (length _%lst118505%_) + _%args118506%_)))) (define plist->hash-table-immediate - (lambda (_%lst114858%_ . _%args114859%_) + (lambda (_%lst118502%_ . _%args118503%_) (plist->hash-table! - _%lst114858%_ + _%lst118502%_ (apply make-hash-table-immediate 'size: - (length _%lst114858%_) - _%args114859%_)))) + (length _%lst118502%_) + _%args118503%_)))) (define plist->hash-table! - (lambda (_%lst114798%_ _%h114799%_) - (let _%loop114801%_ ((_%rest114803%_ _%lst114798%_)) - (let* ((_%rest114804114816%_ _%rest114803%_) - (_%else114807114824%_ + (lambda (_%lst118442%_ _%h118443%_) + (let _%loop118445%_ ((_%rest118447%_ _%lst118442%_)) + (let* ((_%rest118448118460%_ _%rest118447%_) + (_%else118451118468%_ (lambda () (let () (declare (not safe)) (error '"bad property list -- uneven list" - _%lst114798%_))))) - (let ((_%K114810114839%_ - (lambda (_%rest114835%_ _%val114836%_ _%key114837%_) - (&HashTable-set! _%h114799%_ _%key114837%_ _%val114836%_) - (_%loop114801%_ _%rest114835%_))) - (_%K114809114829%_ (lambda () _%h114799%_))) - (let ((_%try-match114806114832%_ + _%lst118442%_))))) + (let ((_%K118454118483%_ + (lambda (_%rest118479%_ _%val118480%_ _%key118481%_) + (&HashTable-set! _%h118443%_ _%key118481%_ _%val118480%_) + (_%loop118445%_ _%rest118479%_))) + (_%K118453118473%_ (lambda () _%h118443%_))) + (let ((_%try-match118450118476%_ (lambda () - (if (null? _%rest114804114816%_) - (_%K114809114829%_) - (_%else114807114824%_))))) - (if (pair? _%rest114804114816%_) - (let ((_%tl114812114844%_ + (if (null? _%rest118448118460%_) + (_%K118453118473%_) + (_%else118451118468%_))))) + (if (pair? _%rest118448118460%_) + (let ((_%tl118456118488%_ (let () (declare (not safe)) - (##cdr _%rest114804114816%_))) - (_%hd114811114842%_ + (##cdr _%rest118448118460%_))) + (_%hd118455118486%_ (let () (declare (not safe)) - (##car _%rest114804114816%_)))) - (if (pair? _%tl114812114844%_) - (let ((_%tl114814114851%_ + (##car _%rest118448118460%_)))) + (if (pair? _%tl118456118488%_) + (let ((_%tl118458118495%_ (let () (declare (not safe)) - (##cdr _%tl114812114844%_))) - (_%hd114813114849%_ + (##cdr _%tl118456118488%_))) + (_%hd118457118493%_ (let () (declare (not safe)) - (##car _%tl114812114844%_)))) - (let ((_%key114847%_ _%hd114811114842%_) - (_%val114854%_ _%hd114813114849%_) - (_%rest114856%_ _%tl114814114851%_)) - (_%K114810114839%_ - _%rest114856%_ - _%val114854%_ - _%key114847%_))) - (_%else114807114824%_))) - (_%try-match114806114832%_)))))))) + (##car _%tl118456118488%_)))) + (let ((_%key118491%_ _%hd118455118486%_) + (_%val118498%_ _%hd118457118493%_) + (_%rest118500%_ _%tl118458118495%_)) + (_%K118454118483%_ + _%rest118500%_ + _%val118498%_ + _%key118491%_))) + (_%else118451118468%_))) + (_%try-match118450118476%_)))))))) (define hash-length - (lambda (_%h114780%_) - (let* ((_%h114786%_ - (let ((_%$obj114783%_ _%h114780%_)) + (lambda (_%h118424%_) + (let* ((_%h118430%_ + (let ((_%$obj118427%_ _%h118424%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj114783%_)) + (##structure? _%$obj118427%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj114783%_))) + (##structure-type _%$obj118427%_))) '#t) - _%$obj114783%_ + _%$obj118427%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj114783%_))))) - (_%h114788%_ _%h114786%_)) - (__hash-length _%h114788%_)))) + (cast HashTable::interface _%$obj118427%_))))) + (_%h118432%_ _%h118430%_)) + (__hash-length _%h118432%_)))) (define __hash-length - (lambda (_%h114768%_) - (let ((_%h114771%_ _%h114768%_)) (__HashTable-length _%h114771%_)))) + (lambda (_%h118412%_) + (let ((_%h118415%_ _%h118412%_)) (__HashTable-length _%h118415%_)))) (define hash-ref__% - (lambda (_%h114736%_ _%key114737%_ _%default114738%_) - (let* ((_%h114744%_ - (let ((_%$obj114741%_ _%h114736%_)) + (lambda (_%h118380%_ _%key118381%_ _%default118382%_) + (let* ((_%h118388%_ + (let ((_%$obj118385%_ _%h118380%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj114741%_)) + (##structure? _%$obj118385%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj114741%_))) + (##structure-type _%$obj118385%_))) '#t) - _%$obj114741%_ + _%$obj118385%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj114741%_))))) - (_%h114746%_ _%h114744%_)) - (__hash-ref__% _%h114746%_ _%key114737%_ _%default114738%_)))) + (cast HashTable::interface _%$obj118385%_))))) + (_%h118390%_ _%h118388%_)) + (__hash-ref__% _%h118390%_ _%key118381%_ _%default118382%_)))) (define hash-ref__0 - (lambda (_%h114759%_ _%key114760%_) - (let ((_%default114762%_ (macro-absent-obj))) - (hash-ref__% _%h114759%_ _%key114760%_ _%default114762%_)))) + (lambda (_%h118403%_ _%key118404%_) + (let ((_%default118406%_ (macro-absent-obj))) + (hash-ref__% _%h118403%_ _%key118404%_ _%default118406%_)))) (define hash-ref - (lambda _g118511_ - (let ((_g118512_ (let () (declare (not safe)) (##length _g118511_)))) - (cond ((let () (declare (not safe)) (##fx= _g118512_ 2)) - (apply hash-ref__0 _g118511_)) - ((let () (declare (not safe)) (##fx= _g118512_ 3)) - (apply hash-ref__% _g118511_)) + (lambda _g122148_ + (let ((_g122149_ (let () (declare (not safe)) (##length _g122148_)))) + (cond ((let () (declare (not safe)) (##fx= _g122149_ 2)) + (apply hash-ref__0 _g122148_)) + ((let () (declare (not safe)) (##fx= _g122149_ 3)) + (apply hash-ref__% _g122148_)) (else (##raise-wrong-number-of-arguments-exception hash-ref - _g118511_)))))) + _g122148_)))))) (define __hash-ref__% - (lambda (_%h114707%_ _%key114708%_ _%default114709%_) - (let* ((_%h114712%_ _%h114707%_) - (_%result114721%_ - (&HashTable-ref _%h114712%_ _%key114708%_ _%default114709%_))) - (if (eq? _%result114721%_ (macro-absent-obj)) + (lambda (_%h118351%_ _%key118352%_ _%default118353%_) + (let* ((_%h118356%_ _%h118351%_) + (_%result118365%_ + (&HashTable-ref _%h118356%_ _%key118352%_ _%default118353%_))) + (if (eq? _%result118365%_ (macro-absent-obj)) (raise-unbound-key-error 'hash-ref '"unknown hash key" 'hash: - _%h114712%_ + _%h118356%_ 'key: - _%key114708%_) - _%result114721%_)))) + _%key118352%_) + _%result118365%_)))) (define __hash-ref__0 - (lambda (_%h114726%_ _%key114727%_) - (let ((_%default114729%_ (macro-absent-obj))) - (__hash-ref__% _%h114726%_ _%key114727%_ _%default114729%_)))) + (lambda (_%h118370%_ _%key118371%_) + (let ((_%default118373%_ (macro-absent-obj))) + (__hash-ref__% _%h118370%_ _%key118371%_ _%default118373%_)))) (define __hash-ref - (lambda _g118513_ - (let ((_g118514_ (let () (declare (not safe)) (##length _g118513_)))) - (cond ((let () (declare (not safe)) (##fx= _g118514_ 2)) - (apply __hash-ref__0 _g118513_)) - ((let () (declare (not safe)) (##fx= _g118514_ 3)) - (apply __hash-ref__% _g118513_)) + (lambda _g122150_ + (let ((_g122151_ (let () (declare (not safe)) (##length _g122150_)))) + (cond ((let () (declare (not safe)) (##fx= _g122151_ 2)) + (apply __hash-ref__0 _g122150_)) + ((let () (declare (not safe)) (##fx= _g122151_ 3)) + (apply __hash-ref__% _g122150_)) (else (##raise-wrong-number-of-arguments-exception __hash-ref - _g118513_)))))) + _g122150_)))))) (define hash-get - (lambda (_%h114687%_ _%key114688%_) - (let* ((_%h114694%_ - (let ((_%$obj114691%_ _%h114687%_)) + (lambda (_%h118331%_ _%key118332%_) + (let* ((_%h118338%_ + (let ((_%$obj118335%_ _%h118331%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj114691%_)) + (##structure? _%$obj118335%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj114691%_))) + (##structure-type _%$obj118335%_))) '#t) - _%$obj114691%_ + _%$obj118335%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj114691%_))))) - (_%h114696%_ _%h114694%_)) - (__hash-get _%h114696%_ _%key114688%_)))) + (cast HashTable::interface _%$obj118335%_))))) + (_%h118340%_ _%h118338%_)) + (__hash-get _%h118340%_ _%key118332%_)))) (define __hash-get - (lambda (_%h114674%_ _%key114675%_) - (let ((_%h114678%_ _%h114674%_)) - (&HashTable-ref _%h114678%_ _%key114675%_ '#f)))) + (lambda (_%h118318%_ _%key118319%_) + (let ((_%h118322%_ _%h118318%_)) + (&HashTable-ref _%h118322%_ _%key118319%_ '#f)))) (define hash-put! - (lambda (_%h114654%_ _%key114655%_ _%value114656%_) - (let* ((_%h114662%_ - (let ((_%$obj114659%_ _%h114654%_)) + (lambda (_%h118298%_ _%key118299%_ _%value118300%_) + (let* ((_%h118306%_ + (let ((_%$obj118303%_ _%h118298%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj114659%_)) + (##structure? _%$obj118303%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj114659%_))) + (##structure-type _%$obj118303%_))) '#t) - _%$obj114659%_ + _%$obj118303%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj114659%_))))) - (_%h114664%_ _%h114662%_)) - (__hash-put! _%h114664%_ _%key114655%_ _%value114656%_)))) + (cast HashTable::interface _%$obj118303%_))))) + (_%h118308%_ _%h118306%_)) + (__hash-put! _%h118308%_ _%key118299%_ _%value118300%_)))) (define __hash-put! - (lambda (_%h114640%_ _%key114641%_ _%value114642%_) - (let ((_%h114645%_ _%h114640%_)) - (&HashTable-set! _%h114645%_ _%key114641%_ _%value114642%_)))) + (lambda (_%h118284%_ _%key118285%_ _%value118286%_) + (let ((_%h118289%_ _%h118284%_)) + (&HashTable-set! _%h118289%_ _%key118285%_ _%value118286%_)))) (define hash-update!__% - (lambda (_%h114605%_ _%key114606%_ _%update114607%_ _%default114608%_) - (let* ((_%h114614%_ - (let ((_%$obj114611%_ _%h114605%_)) + (lambda (_%h118249%_ _%key118250%_ _%update118251%_ _%default118252%_) + (let* ((_%h118258%_ + (let ((_%$obj118255%_ _%h118249%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj114611%_)) + (##structure? _%$obj118255%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj114611%_))) + (##structure-type _%$obj118255%_))) '#t) - _%$obj114611%_ + _%$obj118255%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj114611%_))))) - (_%h114616%_ _%h114614%_)) + (cast HashTable::interface _%$obj118255%_))))) + (_%h118260%_ _%h118258%_)) (__hash-update!__% - _%h114616%_ - _%key114606%_ - _%update114607%_ - _%default114608%_)))) + _%h118260%_ + _%key118250%_ + _%update118251%_ + _%default118252%_)))) (define hash-update!__0 - (lambda (_%h114629%_ _%key114630%_ _%update114631%_) - (let ((_%default114633%_ '#!void)) + (lambda (_%h118273%_ _%key118274%_ _%update118275%_) + (let ((_%default118277%_ '#!void)) (hash-update!__% - _%h114629%_ - _%key114630%_ - _%update114631%_ - _%default114633%_)))) + _%h118273%_ + _%key118274%_ + _%update118275%_ + _%default118277%_)))) (define hash-update! - (lambda _g118515_ - (let ((_g118516_ (let () (declare (not safe)) (##length _g118515_)))) - (cond ((let () (declare (not safe)) (##fx= _g118516_ 3)) - (apply hash-update!__0 _g118515_)) - ((let () (declare (not safe)) (##fx= _g118516_ 4)) - (apply hash-update!__% _g118515_)) + (lambda _g122152_ + (let ((_g122153_ (let () (declare (not safe)) (##length _g122152_)))) + (cond ((let () (declare (not safe)) (##fx= _g122153_ 3)) + (apply hash-update!__0 _g122152_)) + ((let () (declare (not safe)) (##fx= _g122153_ 4)) + (apply hash-update!__% _g122152_)) (else (##raise-wrong-number-of-arguments-exception hash-update! - _g118515_)))))) + _g122152_)))))) (define __hash-update!__% - (lambda (_%h114575%_ _%key114576%_ _%update114577%_ _%default114578%_) - (let ((_%h114581%_ _%h114575%_)) + (lambda (_%h118219%_ _%key118220%_ _%update118221%_ _%default118222%_) + (let ((_%h118225%_ _%h118219%_)) (HashTable-update! - _%h114581%_ - _%key114576%_ - _%update114577%_ - _%default114578%_)))) + _%h118225%_ + _%key118220%_ + _%update118221%_ + _%default118222%_)))) (define __hash-update!__0 - (lambda (_%h114593%_ _%key114594%_ _%update114595%_) - (let ((_%default114597%_ '#!void)) + (lambda (_%h118237%_ _%key118238%_ _%update118239%_) + (let ((_%default118241%_ '#!void)) (__hash-update!__% - _%h114593%_ - _%key114594%_ - _%update114595%_ - _%default114597%_)))) + _%h118237%_ + _%key118238%_ + _%update118239%_ + _%default118241%_)))) (define __hash-update! - (lambda _g118517_ - (let ((_g118518_ (let () (declare (not safe)) (##length _g118517_)))) - (cond ((let () (declare (not safe)) (##fx= _g118518_ 3)) - (apply __hash-update!__0 _g118517_)) - ((let () (declare (not safe)) (##fx= _g118518_ 4)) - (apply __hash-update!__% _g118517_)) + (lambda _g122154_ + (let ((_g122155_ (let () (declare (not safe)) (##length _g122154_)))) + (cond ((let () (declare (not safe)) (##fx= _g122155_ 3)) + (apply __hash-update!__0 _g122154_)) + ((let () (declare (not safe)) (##fx= _g122155_ 4)) + (apply __hash-update!__% _g122154_)) (else (##raise-wrong-number-of-arguments-exception __hash-update! - _g118517_)))))) + _g122154_)))))) (define hash-remove! - (lambda (_%h114555%_ _%key114556%_) - (let* ((_%h114562%_ - (let ((_%$obj114559%_ _%h114555%_)) + (lambda (_%h118199%_ _%key118200%_) + (let* ((_%h118206%_ + (let ((_%$obj118203%_ _%h118199%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj114559%_)) + (##structure? _%$obj118203%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj114559%_))) + (##structure-type _%$obj118203%_))) '#t) - _%$obj114559%_ + _%$obj118203%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj114559%_))))) - (_%h114564%_ _%h114562%_)) - (__hash-remove! _%h114564%_ _%key114556%_)))) + (cast HashTable::interface _%$obj118203%_))))) + (_%h118208%_ _%h118206%_)) + (__hash-remove! _%h118208%_ _%key118200%_)))) (define __hash-remove! - (lambda (_%h114542%_ _%key114543%_) - (let ((_%h114546%_ _%h114542%_)) - (&HashTable-delete! _%h114546%_ _%key114543%_)))) + (lambda (_%h118186%_ _%key118187%_) + (let ((_%h118190%_ _%h118186%_)) + (&HashTable-delete! _%h118190%_ _%key118187%_)))) (define hash-key? - (lambda (_%h114523%_ _%k114524%_) - (let* ((_%h114530%_ - (let ((_%$obj114527%_ _%h114523%_)) + (lambda (_%h118167%_ _%k118168%_) + (let* ((_%h118174%_ + (let ((_%$obj118171%_ _%h118167%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj114527%_)) + (##structure? _%$obj118171%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj114527%_))) + (##structure-type _%$obj118171%_))) '#t) - _%$obj114527%_ + _%$obj118171%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj114527%_))))) - (_%h114532%_ _%h114530%_)) - (__hash-key? _%h114532%_ _%k114524%_)))) + (cast HashTable::interface _%$obj118171%_))))) + (_%h118176%_ _%h118174%_)) + (__hash-key? _%h118176%_ _%k118168%_)))) (define __hash-key? - (lambda (_%h114510%_ _%k114511%_) - (let ((_%h114514%_ _%h114510%_)) - (not (eq? (&HashTable-ref _%h114514%_ _%k114511%_ absent-value) + (lambda (_%h118154%_ _%k118155%_) + (let ((_%h118158%_ _%h118154%_)) + (not (eq? (&HashTable-ref _%h118158%_ _%k118155%_ absent-value) absent-value))))) (define hash->list - (lambda (_%h114492%_) - (let* ((_%h114498%_ - (let ((_%$obj114495%_ _%h114492%_)) + (lambda (_%h118136%_) + (let* ((_%h118142%_ + (let ((_%$obj118139%_ _%h118136%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj114495%_)) + (##structure? _%$obj118139%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj114495%_))) + (##structure-type _%$obj118139%_))) '#t) - _%$obj114495%_ + _%$obj118139%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj114495%_))))) - (_%h114500%_ _%h114498%_)) - (__hash->list _%h114500%_)))) + (cast HashTable::interface _%$obj118139%_))))) + (_%h118144%_ _%h118142%_)) + (__hash->list _%h118144%_)))) (define __hash->list - (lambda (_%h114475%_) - (let* ((_%h114478%_ _%h114475%_) (_%lst114487%_ '())) + (lambda (_%h118119%_) + (let* ((_%h118122%_ _%h118119%_) (_%lst118131%_ '())) (&HashTable-for-each - _%h114478%_ - (lambda (_%k114489%_ _%v114490%_) - (set! _%lst114487%_ - (cons (cons _%k114489%_ _%v114490%_) _%lst114487%_)))) - _%lst114487%_))) + _%h118122%_ + (lambda (_%k118133%_ _%v118134%_) + (set! _%lst118131%_ + (cons (cons _%k118133%_ _%v118134%_) _%lst118131%_)))) + _%lst118131%_))) (define hash->plist - (lambda (_%h114457%_) - (let* ((_%h114463%_ - (let ((_%$obj114460%_ _%h114457%_)) + (lambda (_%h118101%_) + (let* ((_%h118107%_ + (let ((_%$obj118104%_ _%h118101%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj114460%_)) + (##structure? _%$obj118104%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj114460%_))) + (##structure-type _%$obj118104%_))) '#t) - _%$obj114460%_ + _%$obj118104%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj114460%_))))) - (_%h114465%_ _%h114463%_)) - (__hash->plist _%h114465%_)))) + (cast HashTable::interface _%$obj118104%_))))) + (_%h118109%_ _%h118107%_)) + (__hash->plist _%h118109%_)))) (define __hash->plist - (lambda (_%h114440%_) - (let* ((_%h114443%_ _%h114440%_) (_%lst114452%_ '())) + (lambda (_%h118084%_) + (let* ((_%h118087%_ _%h118084%_) (_%lst118096%_ '())) (&HashTable-for-each - _%h114443%_ - (lambda (_%k114454%_ _%v114455%_) - (set! _%lst114452%_ - (cons _%k114454%_ (cons _%v114455%_ _%lst114452%_))))) - _%lst114452%_))) + _%h118087%_ + (lambda (_%k118098%_ _%v118099%_) + (set! _%lst118096%_ + (cons _%k118098%_ (cons _%v118099%_ _%lst118096%_))))) + _%lst118096%_))) (define hash-for-each - (lambda (_%proc114411%_ _%h114412%_) - (if (procedure? _%proc114411%_) - (let* ((_%proc114416%_ _%proc114411%_) - (_%h114428%_ - (let ((_%$obj114425%_ _%h114412%_)) + (lambda (_%proc118055%_ _%h118056%_) + (if (procedure? _%proc118055%_) + (let* ((_%proc118060%_ _%proc118055%_) + (_%h118072%_ + (let ((_%$obj118069%_ _%h118056%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj114425%_)) + (##structure? _%$obj118069%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj114425%_))) + (##structure-type _%$obj118069%_))) '#t) - _%$obj114425%_ + _%$obj118069%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj114425%_))))) - (_%h114430%_ _%h114428%_)) - (__hash-for-each _%proc114416%_ _%h114430%_)) + (cast HashTable::interface _%$obj118069%_))))) + (_%h118074%_ _%h118072%_)) + (__hash-for-each _%proc118060%_ _%h118074%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/hash.ss\"@583.22-583.26" + '"\"gerbil/runtime/hash.ss\"@589.22-589.26" 'contract: 'procedure? 'value: - _%proc114411%_) + _%proc118055%_) '#!void)))) (define __hash-for-each - (lambda (_%proc114390%_ _%h114391%_) - (let* ((_%proc114394%_ _%proc114390%_) (_%h114402%_ _%h114391%_)) - (&HashTable-for-each _%h114402%_ _%proc114394%_)))) + (lambda (_%proc118034%_ _%h118035%_) + (let* ((_%proc118038%_ _%proc118034%_) (_%h118046%_ _%h118035%_)) + (&HashTable-for-each _%h118046%_ _%proc118038%_)))) (define hash-map - (lambda (_%proc114361%_ _%h114362%_) - (if (procedure? _%proc114361%_) - (let* ((_%proc114366%_ _%proc114361%_) - (_%h114378%_ - (let ((_%$obj114375%_ _%h114362%_)) + (lambda (_%proc118005%_ _%h118006%_) + (if (procedure? _%proc118005%_) + (let* ((_%proc118010%_ _%proc118005%_) + (_%h118022%_ + (let ((_%$obj118019%_ _%h118006%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj114375%_)) + (##structure? _%$obj118019%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj114375%_))) + (##structure-type _%$obj118019%_))) '#t) - _%$obj114375%_ + _%$obj118019%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj114375%_))))) - (_%h114380%_ _%h114378%_)) - (__hash-map _%proc114366%_ _%h114380%_)) + (cast HashTable::interface _%$obj118019%_))))) + (_%h118024%_ _%h118022%_)) + (__hash-map _%proc118010%_ _%h118024%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/hash.ss\"@586.17-586.21" + '"\"gerbil/runtime/hash.ss\"@592.17-592.21" 'contract: 'procedure? 'value: - _%proc114361%_) + _%proc118005%_) '#!void)))) (define __hash-map - (lambda (_%proc114335%_ _%h114336%_) - (let* ((_%proc114339%_ _%proc114335%_) - (_%h114347%_ _%h114336%_) - (_%result114356%_ '())) + (lambda (_%proc117979%_ _%h117980%_) + (let* ((_%proc117983%_ _%proc117979%_) + (_%h117991%_ _%h117980%_) + (_%result118000%_ '())) (&HashTable-for-each - _%h114347%_ - (lambda (_%k114358%_ _%v114359%_) - (set! _%result114356%_ + _%h117991%_ + (lambda (_%k118002%_ _%v118003%_) + (set! _%result118000%_ (cons (let () (declare (not safe)) - (_%proc114339%_ _%k114358%_ _%v114359%_)) - _%result114356%_)))) - _%result114356%_))) + (_%proc117983%_ _%k118002%_ _%v118003%_)) + _%result118000%_)))) + _%result118000%_))) (define hash-fold - (lambda (_%proc114305%_ _%iv114306%_ _%h114307%_) - (if (procedure? _%proc114305%_) - (let* ((_%proc114311%_ _%proc114305%_) - (_%h114323%_ - (let ((_%$obj114320%_ _%h114307%_)) + (lambda (_%proc117949%_ _%iv117950%_ _%h117951%_) + (if (procedure? _%proc117949%_) + (let* ((_%proc117955%_ _%proc117949%_) + (_%h117967%_ + (let ((_%$obj117964%_ _%h117951%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj114320%_)) + (##structure? _%$obj117964%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj114320%_))) + (##structure-type _%$obj117964%_))) '#t) - _%$obj114320%_ + _%$obj117964%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj114320%_))))) - (_%h114325%_ _%h114323%_)) - (__hash-fold _%proc114311%_ _%iv114306%_ _%h114325%_)) + (cast HashTable::interface _%$obj117964%_))))) + (_%h117969%_ _%h117967%_)) + (__hash-fold _%proc117955%_ _%iv117950%_ _%h117969%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/hash.ss\"@592.18-592.22" + '"\"gerbil/runtime/hash.ss\"@598.18-598.22" 'contract: 'procedure? 'value: - _%proc114305%_) + _%proc117949%_) '#!void)))) (define __hash-fold - (lambda (_%proc114278%_ _%iv114279%_ _%h114280%_) - (let* ((_%proc114283%_ _%proc114278%_) - (_%h114291%_ _%h114280%_) - (_%result114300%_ _%iv114279%_)) + (lambda (_%proc117922%_ _%iv117923%_ _%h117924%_) + (let* ((_%proc117927%_ _%proc117922%_) + (_%h117935%_ _%h117924%_) + (_%result117944%_ _%iv117923%_)) (&HashTable-for-each - _%h114291%_ - (lambda (_%k114302%_ _%v114303%_) - (set! _%result114300%_ + _%h117935%_ + (lambda (_%k117946%_ _%v117947%_) + (set! _%result117944%_ (let () (declare (not safe)) - (_%proc114283%_ - _%k114302%_ - _%v114303%_ - _%result114300%_))))) - _%result114300%_))) + (_%proc117927%_ + _%k117946%_ + _%v117947%_ + _%result117944%_))))) + _%result117944%_))) (define hash-find__% - (lambda (_%proc114236%_ _%h114237%_ _%default-value114238%_) - (if (procedure? _%proc114236%_) - (let* ((_%proc114242%_ _%proc114236%_) - (_%h114254%_ - (let ((_%$obj114251%_ _%h114237%_)) + (lambda (_%proc117880%_ _%h117881%_ _%default-value117882%_) + (if (procedure? _%proc117880%_) + (let* ((_%proc117886%_ _%proc117880%_) + (_%h117898%_ + (let ((_%$obj117895%_ _%h117881%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj114251%_)) + (##structure? _%$obj117895%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj114251%_))) + (##structure-type _%$obj117895%_))) '#t) - _%$obj114251%_ + _%$obj117895%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj114251%_))))) - (_%h114256%_ _%h114254%_)) + (cast HashTable::interface _%$obj117895%_))))) + (_%h117900%_ _%h117898%_)) (__hash-find__% - _%proc114242%_ - _%h114256%_ - _%default-value114238%_)) + _%proc117886%_ + _%h117900%_ + _%default-value117882%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/hash.ss\"@597.18-597.22" + '"\"gerbil/runtime/hash.ss\"@603.18-603.22" 'contract: 'procedure? 'value: - _%proc114236%_) + _%proc117880%_) '#!void)))) (define hash-find__0 - (lambda (_%proc114269%_ _%h114270%_) - (let ((_%default-value114272%_ '#f)) - (hash-find__% _%proc114269%_ _%h114270%_ _%default-value114272%_)))) + (lambda (_%proc117913%_ _%h117914%_) + (let ((_%default-value117916%_ '#f)) + (hash-find__% _%proc117913%_ _%h117914%_ _%default-value117916%_)))) (define hash-find - (lambda _g118519_ - (let ((_g118520_ (let () (declare (not safe)) (##length _g118519_)))) - (cond ((let () (declare (not safe)) (##fx= _g118520_ 2)) - (apply hash-find__0 _g118519_)) - ((let () (declare (not safe)) (##fx= _g118520_ 3)) - (apply hash-find__% _g118519_)) + (lambda _g122156_ + (let ((_g122157_ (let () (declare (not safe)) (##length _g122156_)))) + (cond ((let () (declare (not safe)) (##fx= _g122157_ 2)) + (apply hash-find__0 _g122156_)) + ((let () (declare (not safe)) (##fx= _g122157_ 3)) + (apply hash-find__% _g122156_)) (else (##raise-wrong-number-of-arguments-exception hash-find - _g118519_)))))) + _g122156_)))))) (define __hash-find__% - (lambda (_%proc114193%_ _%h114194%_ _%default-value114195%_) - (let* ((_%proc114198%_ _%proc114193%_) - (_%h114206%_ _%h114194%_) - (__tmp118521 - (lambda (_%return114215%_) + (lambda (_%proc117837%_ _%h117838%_ _%default-value117839%_) + (let* ((_%proc117842%_ _%proc117837%_) + (_%h117850%_ _%h117838%_) + (__tmp122158 + (lambda (_%return117859%_) (&HashTable-for-each - _%h114206%_ - (lambda (_%k114217%_ _%v114218%_) - (let ((_%$e114220%_ + _%h117850%_ + (lambda (_%k117861%_ _%v117862%_) + (let ((_%$e117864%_ (let () (declare (not safe)) - (_%proc114198%_ _%k114217%_ _%v114218%_)))) - (if _%$e114220%_ - (_%return114215%_ _%$e114220%_) + (_%proc117842%_ _%k117861%_ _%v117862%_)))) + (if _%$e117864%_ + (_%return117859%_ _%$e117864%_) '#!void)))) - _%default-value114195%_))) + _%default-value117839%_))) (declare (not safe)) - (##call-with-current-continuation __tmp118521)))) + (##call-with-current-continuation __tmp122158)))) (define __hash-find__0 - (lambda (_%proc114226%_ _%h114227%_) - (let ((_%default-value114229%_ '#f)) + (lambda (_%proc117870%_ _%h117871%_) + (let ((_%default-value117873%_ '#f)) (__hash-find__% - _%proc114226%_ - _%h114227%_ - _%default-value114229%_)))) + _%proc117870%_ + _%h117871%_ + _%default-value117873%_)))) (define __hash-find - (lambda _g118522_ - (let ((_g118523_ (let () (declare (not safe)) (##length _g118522_)))) - (cond ((let () (declare (not safe)) (##fx= _g118523_ 2)) - (apply __hash-find__0 _g118522_)) - ((let () (declare (not safe)) (##fx= _g118523_ 3)) - (apply __hash-find__% _g118522_)) + (lambda _g122159_ + (let ((_g122160_ (let () (declare (not safe)) (##length _g122159_)))) + (cond ((let () (declare (not safe)) (##fx= _g122160_ 2)) + (apply __hash-find__0 _g122159_)) + ((let () (declare (not safe)) (##fx= _g122160_ 3)) + (apply __hash-find__% _g122159_)) (else (##raise-wrong-number-of-arguments-exception __hash-find - _g118522_)))))) + _g122159_)))))) (define hash-keys - (lambda (_%h114174%_) - (let* ((_%h114180%_ - (let ((_%$obj114177%_ _%h114174%_)) + (lambda (_%h117818%_) + (let* ((_%h117824%_ + (let ((_%$obj117821%_ _%h117818%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj114177%_)) + (##structure? _%$obj117821%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj114177%_))) + (##structure-type _%$obj117821%_))) '#t) - _%$obj114177%_ + _%$obj117821%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj114177%_))))) - (_%h114182%_ _%h114180%_)) - (__hash-keys _%h114182%_)))) + (cast HashTable::interface _%$obj117821%_))))) + (_%h117826%_ _%h117824%_)) + (__hash-keys _%h117826%_)))) (define __hash-keys - (lambda (_%h114157%_) - (let* ((_%h114160%_ _%h114157%_) (_%result114169%_ '())) + (lambda (_%h117801%_) + (let* ((_%h117804%_ _%h117801%_) (_%result117813%_ '())) (&HashTable-for-each - _%h114160%_ - (lambda (_%k114171%_ _%v114172%_) - (set! _%result114169%_ (cons _%k114171%_ _%result114169%_)))) - _%result114169%_))) + _%h117804%_ + (lambda (_%k117815%_ _%v117816%_) + (set! _%result117813%_ (cons _%k117815%_ _%result117813%_)))) + _%result117813%_))) (define hash-values - (lambda (_%h114139%_) - (let* ((_%h114145%_ - (let ((_%$obj114142%_ _%h114139%_)) + (lambda (_%h117783%_) + (let* ((_%h117789%_ + (let ((_%$obj117786%_ _%h117783%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj114142%_)) + (##structure? _%$obj117786%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj114142%_))) + (##structure-type _%$obj117786%_))) '#t) - _%$obj114142%_ + _%$obj117786%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj114142%_))))) - (_%h114147%_ _%h114145%_)) - (__hash-values _%h114147%_)))) + (cast HashTable::interface _%$obj117786%_))))) + (_%h117791%_ _%h117789%_)) + (__hash-values _%h117791%_)))) (define __hash-values - (lambda (_%h114122%_) - (let* ((_%h114125%_ _%h114122%_) (_%result114134%_ '())) + (lambda (_%h117766%_) + (let* ((_%h117769%_ _%h117766%_) (_%result117778%_ '())) (&HashTable-for-each - _%h114125%_ - (lambda (_%k114136%_ _%v114137%_) - (set! _%result114134%_ (cons _%v114137%_ _%result114134%_)))) - _%result114134%_))) + _%h117769%_ + (lambda (_%k117780%_ _%v117781%_) + (set! _%result117778%_ (cons _%v117781%_ _%result117778%_)))) + _%result117778%_))) (define hash-copy - (lambda (_%h114104%_) - (let* ((_%h114110%_ - (let ((_%$obj114107%_ _%h114104%_)) + (lambda (_%h117748%_) + (let* ((_%h117754%_ + (let ((_%$obj117751%_ _%h117748%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj114107%_)) + (##structure? _%$obj117751%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj114107%_))) + (##structure-type _%$obj117751%_))) '#t) - _%$obj114107%_ + _%$obj117751%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj114107%_))))) - (_%h114112%_ _%h114110%_)) - (__hash-copy _%h114112%_)))) + (cast HashTable::interface _%$obj117751%_))))) + (_%h117756%_ _%h117754%_)) + (__hash-copy _%h117756%_)))) (define __hash-copy - (lambda (_%h114092%_) - (let ((_%h114095%_ _%h114092%_)) (__HashTable-copy _%h114095%_)))) + (lambda (_%h117736%_) + (let ((_%h117739%_ _%h117736%_)) (__HashTable-copy _%h117739%_)))) (define hash-clear! - (lambda (_%h114074%_) - (let* ((_%h114080%_ - (let ((_%$obj114077%_ _%h114074%_)) + (lambda (_%h117718%_) + (let* ((_%h117724%_ + (let ((_%$obj117721%_ _%h117718%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj114077%_)) + (##structure? _%$obj117721%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj114077%_))) + (##structure-type _%$obj117721%_))) '#t) - _%$obj114077%_ + _%$obj117721%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj114077%_))))) - (_%h114082%_ _%h114080%_)) - (__hash-clear! _%h114082%_)))) + (cast HashTable::interface _%$obj117721%_))))) + (_%h117726%_ _%h117724%_)) + (__hash-clear! _%h117726%_)))) (define __hash-clear! - (lambda (_%h114062%_) - (let ((_%h114065%_ _%h114062%_)) (&HashTable-clear! _%h114065%_)))) + (lambda (_%h117706%_) + (let ((_%h117709%_ _%h117706%_)) (&HashTable-clear! _%h117709%_)))) (define hash-merge - (lambda (_%h114043%_ . _%rest114044%_) - (let* ((_%h114050%_ - (let ((_%$obj114047%_ _%h114043%_)) + (lambda (_%h117687%_ . _%rest117688%_) + (let* ((_%h117694%_ + (let ((_%$obj117691%_ _%h117687%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj114047%_)) + (##structure? _%$obj117691%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj114047%_))) + (##structure-type _%$obj117691%_))) '#t) - _%$obj114047%_ + _%$obj117691%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj114047%_))))) - (_%h114052%_ _%h114050%_)) + (cast HashTable::interface _%$obj117691%_))))) + (_%h117696%_ _%h117694%_)) (declare (not safe)) - (##apply __hash-merge _%h114052%_ _%rest114044%_)))) + (##apply __hash-merge _%h117696%_ _%rest117688%_)))) (define __hash-merge - (lambda (_%h114028%_ . _%rest114029%_) - (let* ((_%h114032%_ _%h114028%_) - (_%copy114041%_ (__HashTable-copy _%h114032%_))) - (apply hash-merge! _%copy114041%_ _%rest114029%_) - _%copy114041%_))) + (lambda (_%h117672%_ . _%rest117673%_) + (let* ((_%h117676%_ _%h117672%_) + (_%copy117685%_ (__HashTable-copy _%h117676%_))) + (apply hash-merge! _%copy117685%_ _%rest117673%_) + _%copy117685%_))) (define hash-merge-right - (lambda (_%h114009%_ . _%rest114010%_) - (let* ((_%h114016%_ - (let ((_%$obj114013%_ _%h114009%_)) + (lambda (_%h117653%_ . _%rest117654%_) + (let* ((_%h117660%_ + (let ((_%$obj117657%_ _%h117653%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj114013%_)) + (##structure? _%$obj117657%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj114013%_))) + (##structure-type _%$obj117657%_))) '#t) - _%$obj114013%_ + _%$obj117657%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj114013%_))))) - (_%h114018%_ _%h114016%_)) + (cast HashTable::interface _%$obj117657%_))))) + (_%h117662%_ _%h117660%_)) (declare (not safe)) - (##apply __hash-merge-right _%h114018%_ _%rest114010%_)))) + (##apply __hash-merge-right _%h117662%_ _%rest117654%_)))) (define __hash-merge-right - (lambda (_%h113994%_ . _%rest113995%_) - (let* ((_%h113998%_ _%h113994%_) - (_%copy114007%_ (__HashTable-copy _%h113998%_))) - (apply hash-merge-right! _%copy114007%_ _%rest113995%_) - _%copy114007%_))) + (lambda (_%h117638%_ . _%rest117639%_) + (let* ((_%h117642%_ _%h117638%_) + (_%copy117651%_ (__HashTable-copy _%h117642%_))) + (apply hash-merge-right! _%copy117651%_ _%rest117639%_) + _%copy117651%_))) (define hash-merge! - (lambda (_%h113975%_ . _%rest113976%_) - (let* ((_%h113982%_ - (let ((_%$obj113979%_ _%h113975%_)) + (lambda (_%h117619%_ . _%rest117620%_) + (let* ((_%h117626%_ + (let ((_%$obj117623%_ _%h117619%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj113979%_)) + (##structure? _%$obj117623%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj113979%_))) + (##structure-type _%$obj117623%_))) '#t) - _%$obj113979%_ + _%$obj117623%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj113979%_))))) - (_%h113984%_ _%h113982%_)) + (cast HashTable::interface _%$obj117623%_))))) + (_%h117628%_ _%h117626%_)) (declare (not safe)) - (##apply __hash-merge! _%h113984%_ _%rest113976%_)))) + (##apply __hash-merge! _%h117628%_ _%rest117620%_)))) (define __hash-merge! - (lambda (_%h113938%_ . _%rest113939%_) - (let ((_%h113942%_ _%h113938%_)) - (let ((__tmp118524 - (lambda (_%hr113951%_) - (let* ((_%hr113957%_ - (let ((_%$obj113954%_ _%hr113951%_)) + (lambda (_%h117582%_ . _%rest117583%_) + (let ((_%h117586%_ _%h117582%_)) + (let ((__tmp122161 + (lambda (_%hr117595%_) + (let* ((_%hr117601%_ + (let ((_%$obj117598%_ _%hr117595%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj113954%_)) + (##structure? _%$obj117598%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj113954%_))) + _%$obj117598%_))) '#t) - _%$obj113954%_ + _%$obj117598%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj113954%_))))) - (_%hr113959%_ _%hr113957%_)) + _%$obj117598%_))))) + (_%hr117603%_ _%hr117601%_)) (&HashTable-for-each - _%hr113959%_ - (lambda (_%k113972%_ _%v113973%_) - (if (__hash-key? _%h113942%_ _%k113972%_) + _%hr117603%_ + (lambda (_%k117616%_ _%v117617%_) + (if (__hash-key? _%h117586%_ _%k117616%_) '#!void (&HashTable-set! - _%h113942%_ - _%k113972%_ - _%v113973%_)))))))) + _%h117586%_ + _%k117616%_ + _%v117617%_)))))))) (declare (not safe)) - (##for-each __tmp118524 _%rest113939%_)) - _%h113942%_))) + (##for-each __tmp122161 _%rest117583%_)) + _%h117586%_))) (define hash-merge-right! - (lambda (_%h113919%_ . _%rest113920%_) - (let* ((_%h113926%_ - (let ((_%$obj113923%_ _%h113919%_)) + (lambda (_%h117563%_ . _%rest117564%_) + (let* ((_%h117570%_ + (let ((_%$obj117567%_ _%h117563%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj113923%_)) + (##structure? _%$obj117567%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj113923%_))) + (##structure-type _%$obj117567%_))) '#t) - _%$obj113923%_ + _%$obj117567%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj113923%_))))) - (_%h113928%_ _%h113926%_)) + (cast HashTable::interface _%$obj117567%_))))) + (_%h117572%_ _%h117570%_)) (declare (not safe)) - (##apply __hash-merge-right! _%h113928%_ _%rest113920%_)))) + (##apply __hash-merge-right! _%h117572%_ _%rest117564%_)))) (define __hash-merge-right! - (lambda (_%h113882%_ . _%rest113883%_) - (let ((_%h113886%_ _%h113882%_)) - (let ((__tmp118525 - (lambda (_%hr113895%_) - (let* ((_%hr113901%_ - (let ((_%$obj113898%_ _%hr113895%_)) + (lambda (_%h117526%_ . _%rest117527%_) + (let ((_%h117530%_ _%h117526%_)) + (let ((__tmp122162 + (lambda (_%hr117539%_) + (let* ((_%hr117545%_ + (let ((_%$obj117542%_ _%hr117539%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj113898%_)) + (##structure? _%$obj117542%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj113898%_))) + _%$obj117542%_))) '#t) - _%$obj113898%_ + _%$obj117542%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj113898%_))))) - (_%hr113903%_ _%hr113901%_)) + _%$obj117542%_))))) + (_%hr117547%_ _%hr117545%_)) (&HashTable-for-each - _%hr113903%_ - (lambda (_%k113916%_ _%v113917%_) + _%hr117547%_ + (lambda (_%k117560%_ _%v117561%_) (&HashTable-set! - _%h113886%_ - _%k113916%_ - _%v113917%_))))))) + _%h117530%_ + _%k117560%_ + _%v117561%_))))))) (declare (not safe)) - (##for-each __tmp118525 _%rest113883%_)) - _%h113886%_))))) + (##for-each __tmp122162 _%rest117527%_)) + _%h117530%_))))) diff --git a/src/bootstrap/gerbil/runtime/hash~1.scm b/src/bootstrap/gerbil/runtime/hash~1.scm index 8027a9dfcf..a1b512d4f6 100644 --- a/src/bootstrap/gerbil/runtime/hash~1.scm +++ b/src/bootstrap/gerbil/runtime/hash~1.scm @@ -1,552 +1,552 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g118527_| + (define |[1]#_g122164_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g118529_| + (define |[1]#_g122166_| (##structure gx#syntax-quote::t 'UnboundKeyError::t #f (gx#current-expander-context) '())) - (define |[1]#_g118531_| + (define |[1]#_g122168_| (##structure gx#syntax-quote::t 'make-UnboundKeyError #f (gx#current-expander-context) '())) - (define |[1]#_g118533_| + (define |[1]#_g122170_| (##structure gx#syntax-quote::t 'UnboundKeyError? #f (gx#current-expander-context) '())) - (define |[1]#_g118535_| + (define |[1]#_g122172_| (##structure gx#syntax-quote::t 'UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g118536_| + (define |[1]#_g122173_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g118537_| + (define |[1]#_g122174_| (##structure gx#syntax-quote::t 'UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g118538_| + (define |[1]#_g122175_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g118540_| + (define |[1]#_g122177_| (##structure gx#syntax-quote::t 'UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g118541_| + (define |[1]#_g122178_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g118542_| + (define |[1]#_g122179_| (##structure gx#syntax-quote::t 'UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g118543_| + (define |[1]#_g122180_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g118545_| + (define |[1]#_g122182_| (##structure gx#syntax-quote::t '&UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g118546_| + (define |[1]#_g122183_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g118547_| + (define |[1]#_g122184_| (##structure gx#syntax-quote::t '&UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g118548_| + (define |[1]#_g122185_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g118550_| + (define |[1]#_g122187_| (##structure gx#syntax-quote::t '&UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g118551_| + (define |[1]#_g122188_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g118552_| + (define |[1]#_g122189_| (##structure gx#syntax-quote::t '&UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g118553_| + (define |[1]#_g122190_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g118555_| + (define |[1]#_g122192_| (##structure gx#syntax-quote::t 'HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g118557_| + (define |[1]#_g122194_| (##structure gx#syntax-quote::t 'HashTable::t #f (gx#current-expander-context) '())) - (define |[1]#_g118559_| + (define |[1]#_g122196_| (##structure gx#syntax-quote::t 'HashTable::interface #f (gx#current-expander-context) '())) - (define |[1]#_g118561_| + (define |[1]#_g122198_| (##structure gx#syntax-quote::t 'make-HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g118563_| + (define |[1]#_g122200_| (##structure gx#syntax-quote::t 'try-HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g118565_| + (define |[1]#_g122202_| (##structure gx#syntax-quote::t 'HashTable? #f (gx#current-expander-context) '())) - (define |[1]#_g118567_| + (define |[1]#_g122204_| (##structure gx#syntax-quote::t 'is-HashTable? #f (gx#current-expander-context) '())) - (define |[1]#_g118569_| + (define |[1]#_g122206_| (##structure gx#syntax-quote::t 'HashTable-clear! #f (gx#current-expander-context) '())) - (define |[1]#_g118570_| + (define |[1]#_g122207_| (##structure gx#syntax-quote::t 'HashTable-copy #f (gx#current-expander-context) '())) - (define |[1]#_g118571_| + (define |[1]#_g122208_| (##structure gx#syntax-quote::t 'HashTable-delete! #f (gx#current-expander-context) '())) - (define |[1]#_g118572_| + (define |[1]#_g122209_| (##structure gx#syntax-quote::t 'HashTable-for-each #f (gx#current-expander-context) '())) - (define |[1]#_g118573_| + (define |[1]#_g122210_| (##structure gx#syntax-quote::t 'HashTable-length #f (gx#current-expander-context) '())) - (define |[1]#_g118574_| + (define |[1]#_g122211_| (##structure gx#syntax-quote::t 'HashTable-ref #f (gx#current-expander-context) '())) - (define |[1]#_g118575_| + (define |[1]#_g122212_| (##structure gx#syntax-quote::t 'HashTable-set! #f (gx#current-expander-context) '())) - (define |[1]#_g118576_| + (define |[1]#_g122213_| (##structure gx#syntax-quote::t 'HashTable-update! #f (gx#current-expander-context) '())) - (define |[1]#_g118578_| + (define |[1]#_g122215_| (##structure gx#syntax-quote::t '&HashTable-clear! #f (gx#current-expander-context) '())) - (define |[1]#_g118579_| + (define |[1]#_g122216_| (##structure gx#syntax-quote::t '&HashTable-copy #f (gx#current-expander-context) '())) - (define |[1]#_g118580_| + (define |[1]#_g122217_| (##structure gx#syntax-quote::t '&HashTable-delete! #f (gx#current-expander-context) '())) - (define |[1]#_g118581_| + (define |[1]#_g122218_| (##structure gx#syntax-quote::t '&HashTable-for-each #f (gx#current-expander-context) '())) - (define |[1]#_g118582_| + (define |[1]#_g122219_| (##structure gx#syntax-quote::t '&HashTable-length #f (gx#current-expander-context) '())) - (define |[1]#_g118583_| + (define |[1]#_g122220_| (##structure gx#syntax-quote::t '&HashTable-ref #f (gx#current-expander-context) '())) - (define |[1]#_g118584_| + (define |[1]#_g122221_| (##structure gx#syntax-quote::t '&HashTable-set! #f (gx#current-expander-context) '())) - (define |[1]#_g118585_| + (define |[1]#_g122222_| (##structure gx#syntax-quote::t '&HashTable-update! #f (gx#current-expander-context) '())) - (define |[1]#_g118587_| + (define |[1]#_g122224_| (##structure gx#syntax-quote::t 'Locker::t #f (gx#current-expander-context) '())) - (define |[1]#_g118589_| + (define |[1]#_g122226_| (##structure gx#syntax-quote::t 'Locker::interface #f (gx#current-expander-context) '())) - (define |[1]#_g118591_| + (define |[1]#_g122228_| (##structure gx#syntax-quote::t 'make-Locker #f (gx#current-expander-context) '())) - (define |[1]#_g118593_| + (define |[1]#_g122230_| (##structure gx#syntax-quote::t 'try-Locker #f (gx#current-expander-context) '())) - (define |[1]#_g118595_| + (define |[1]#_g122232_| (##structure gx#syntax-quote::t 'Locker? #f (gx#current-expander-context) '())) - (define |[1]#_g118597_| + (define |[1]#_g122234_| (##structure gx#syntax-quote::t 'is-Locker? #f (gx#current-expander-context) '())) - (define |[1]#_g118599_| + (define |[1]#_g122236_| (##structure gx#syntax-quote::t 'Locker-read-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g118600_| + (define |[1]#_g122237_| (##structure gx#syntax-quote::t 'Locker-read-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g118601_| + (define |[1]#_g122238_| (##structure gx#syntax-quote::t 'Locker-write-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g118602_| + (define |[1]#_g122239_| (##structure gx#syntax-quote::t 'Locker-write-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g118604_| + (define |[1]#_g122241_| (##structure gx#syntax-quote::t '&Locker-read-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g118605_| + (define |[1]#_g122242_| (##structure gx#syntax-quote::t '&Locker-read-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g118606_| + (define |[1]#_g122243_| (##structure gx#syntax-quote::t '&Locker-write-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g118607_| + (define |[1]#_g122244_| (##structure gx#syntax-quote::t '&Locker-write-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g118609_| + (define |[1]#_g122246_| (##structure gx#syntax-quote::t 'locked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g118611_| + (define |[1]#_g122248_| (##structure gx#syntax-quote::t 'make-locked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g118613_| + (define |[1]#_g122250_| (##structure gx#syntax-quote::t 'locked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g118615_| + (define |[1]#_g122252_| (##structure gx#syntax-quote::t 'locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g118616_| + (define |[1]#_g122253_| (##structure gx#syntax-quote::t 'locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g118618_| + (define |[1]#_g122255_| (##structure gx#syntax-quote::t 'locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g118619_| + (define |[1]#_g122256_| (##structure gx#syntax-quote::t 'locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g118621_| + (define |[1]#_g122258_| (##structure gx#syntax-quote::t '&locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g118622_| + (define |[1]#_g122259_| (##structure gx#syntax-quote::t '&locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g118624_| + (define |[1]#_g122261_| (##structure gx#syntax-quote::t '&locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g118625_| + (define |[1]#_g122262_| (##structure gx#syntax-quote::t '&locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g118627_| + (define |[1]#_g122264_| (##structure gx#syntax-quote::t 'checked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g118629_| + (define |[1]#_g122266_| (##structure gx#syntax-quote::t 'make-checked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g118631_| + (define |[1]#_g122268_| (##structure gx#syntax-quote::t 'checked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g118633_| + (define |[1]#_g122270_| (##structure gx#syntax-quote::t 'checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g118634_| + (define |[1]#_g122271_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g118636_| + (define |[1]#_g122273_| (##structure gx#syntax-quote::t 'checked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g118637_| + (define |[1]#_g122274_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check-set! #f (gx#current-expander-context) '())) - (define |[1]#_g118639_| + (define |[1]#_g122276_| (##structure gx#syntax-quote::t '&checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g118640_| + (define |[1]#_g122277_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g118642_| + (define |[1]#_g122279_| (##structure gx#syntax-quote::t '&checked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g118643_| + (define |[1]#_g122280_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check-set! @@ -555,7 +555,7 @@ '())) (begin (define |[:0:]#UnboundKeyError| - (let ((__obj118435 + (let ((__obj122070 (let () (declare (not safe)) (##structure @@ -584,104 +584,104 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118435 + __obj122070 'gerbil/runtime/hash#UnboundKeyError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118435 'UnboundKeyError '2 '#f '#f)) + (##unchecked-structure-set! __obj122070 'UnboundKeyError '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118435 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj122070 '() '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118435 + __obj122070 '(continuation message irritants where) - '6 + '7 '#f '#f)) - (let ((__tmp118526 (cons |[1]#_g118527_| '()))) + (let ((__tmp122163 (cons |[1]#_g122164_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118435 __tmp118526 '3 '#f '#f)) + (##unchecked-structure-set! __obj122070 __tmp122163 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118435 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj122070 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118435 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj122070 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118435 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122070 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118435 ':init! '11 '#f '#f)) - (let ((__tmp118528 |[1]#_g118529_|)) + (##unchecked-structure-set! __obj122070 ':init! '12 '#f '#f)) + (let ((__tmp122165 |[1]#_g122166_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118435 __tmp118528 '12 '#f '#f)) - (let ((__tmp118530 |[1]#_g118531_|)) + (##unchecked-structure-set! __obj122070 __tmp122165 '3 '#f '#f)) + (let ((__tmp122167 |[1]#_g122168_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118435 __tmp118530 '13 '#f '#f)) - (let ((__tmp118532 |[1]#_g118533_|)) + (##unchecked-structure-set! __obj122070 __tmp122167 '13 '#f '#f)) + (let ((__tmp122169 |[1]#_g122170_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118435 __tmp118532 '14 '#f '#f)) - (let ((__tmp118534 - (cons (cons 'message |[1]#_g118535_|) - (cons (cons 'irritants |[1]#_g118536_|) - (cons (cons 'where |[1]#_g118537_|) - (cons (cons 'continuation |[1]#_g118538_|) + (##unchecked-structure-set! __obj122070 __tmp122169 '14 '#f '#f)) + (let ((__tmp122171 + (cons (cons 'message |[1]#_g122172_|) + (cons (cons 'irritants |[1]#_g122173_|) + (cons (cons 'where |[1]#_g122174_|) + (cons (cons 'continuation |[1]#_g122175_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118435 __tmp118534 '15 '#f '#f)) - (let ((__tmp118539 - (cons (cons 'message |[1]#_g118540_|) - (cons (cons 'irritants |[1]#_g118541_|) - (cons (cons 'where |[1]#_g118542_|) - (cons (cons 'continuation |[1]#_g118543_|) + (##unchecked-structure-set! __obj122070 __tmp122171 '15 '#f '#f)) + (let ((__tmp122176 + (cons (cons 'message |[1]#_g122177_|) + (cons (cons 'irritants |[1]#_g122178_|) + (cons (cons 'where |[1]#_g122179_|) + (cons (cons 'continuation |[1]#_g122180_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118435 __tmp118539 '16 '#f '#f)) - (let ((__tmp118544 - (cons (cons 'message |[1]#_g118545_|) - (cons (cons 'irritants |[1]#_g118546_|) - (cons (cons 'where |[1]#_g118547_|) - (cons (cons 'continuation |[1]#_g118548_|) + (##unchecked-structure-set! __obj122070 __tmp122176 '16 '#f '#f)) + (let ((__tmp122181 + (cons (cons 'message |[1]#_g122182_|) + (cons (cons 'irritants |[1]#_g122183_|) + (cons (cons 'where |[1]#_g122184_|) + (cons (cons 'continuation |[1]#_g122185_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118435 __tmp118544 '17 '#f '#f)) - (let ((__tmp118549 - (cons (cons 'message |[1]#_g118550_|) - (cons (cons 'irritants |[1]#_g118551_|) - (cons (cons 'where |[1]#_g118552_|) - (cons (cons 'continuation |[1]#_g118553_|) + (##unchecked-structure-set! __obj122070 __tmp122181 '17 '#f '#f)) + (let ((__tmp122186 + (cons (cons 'message |[1]#_g122187_|) + (cons (cons 'irritants |[1]#_g122188_|) + (cons (cons 'where |[1]#_g122189_|) + (cons (cons 'continuation |[1]#_g122190_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118435 __tmp118549 '18 '#f '#f)) + (##unchecked-structure-set! __obj122070 __tmp122186 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118435 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122070 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118435 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122070 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118435 '() '20 '#f '#f)) - __obj118435)) + (##unchecked-structure-set! __obj122070 '() '20 '#f '#f)) + __obj122070)) (define |[:0:]#@HashTable| - (let ((__obj118437 + (let ((__obj122072 (let () (declare (not safe)) (##structure |gerbil/core/contract~TypeReference[1]#type-reference::t| '#f)))) - (let ((__tmp118554 |[1]#_g118555_|)) + (let ((__tmp122191 |[1]#_g122192_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118437 __tmp118554 '1 '#f '#f)) - __obj118437)) + (##unchecked-structure-set! __obj122072 __tmp122191 '1 '#f '#f)) + __obj122072)) (define |[:0:]#HashTable| - (let ((__obj118438 + (let ((__obj122074 (let () (declare (not safe)) (##structure @@ -698,23 +698,35 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118438 'HashTable '1 '#f '#f)) + (##unchecked-structure-set! __obj122074 'HashTable '2 '#f '#f)) + (let ((__tmp122193 |[1]#_g122194_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj122074 __tmp122193 '3 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj122074 + 'gerbil/runtime/hash#HashTable::t + '1 + '#f + '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118438 'HashTable '2 '#f '#f)) + (##unchecked-structure-set! __obj122074 'HashTable '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118438 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj122074 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118438 '() '5 '#f '#f)) + (##unchecked-structure-set! __obj122074 '() '7 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118438 + __obj122074 '((clear! () :void) (copy () @HashTable) (delete! (key) :void) @@ -723,54 +735,51 @@ (ref (key default) :t) (set! (key value) :void) (update! (key (proc : :procedure) default) :void)) - '4 + '6 '#f '#f)) - (let ((__tmp118556 |[1]#_g118557_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj118438 __tmp118556 '7 '#f '#f)) - (let ((__tmp118558 |[1]#_g118559_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj118438 __tmp118558 '6 '#f '#f)) - (let ((__tmp118560 |[1]#_g118561_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj118438 __tmp118560 '8 '#f '#f)) - (let ((__tmp118562 |[1]#_g118563_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj118438 __tmp118562 '9 '#f '#f)) - (let ((__tmp118564 |[1]#_g118565_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj118438 __tmp118564 '10 '#f '#f)) - (let ((__tmp118566 |[1]#_g118567_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj118438 __tmp118566 '11 '#f '#f)) - (let ((__tmp118568 - (cons |[1]#_g118569_| - (cons |[1]#_g118570_| - (cons |[1]#_g118571_| - (cons |[1]#_g118572_| - (cons |[1]#_g118573_| - (cons |[1]#_g118574_| - (cons |[1]#_g118575_| - (cons |[1]#_g118576_| + (let ((__tmp122195 |[1]#_g122196_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj122074 __tmp122195 '8 '#f '#f)) + (let ((__tmp122197 |[1]#_g122198_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj122074 __tmp122197 '9 '#f '#f)) + (let ((__tmp122199 |[1]#_g122200_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj122074 __tmp122199 '10 '#f '#f)) + (let ((__tmp122201 |[1]#_g122202_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj122074 __tmp122201 '11 '#f '#f)) + (let ((__tmp122203 |[1]#_g122204_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj122074 __tmp122203 '12 '#f '#f)) + (let ((__tmp122205 + (cons |[1]#_g122206_| + (cons |[1]#_g122207_| + (cons |[1]#_g122208_| + (cons |[1]#_g122209_| + (cons |[1]#_g122210_| + (cons |[1]#_g122211_| + (cons |[1]#_g122212_| + (cons |[1]#_g122213_| '())))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj118438 __tmp118568 '12 '#f '#f)) - (let ((__tmp118577 - (cons |[1]#_g118578_| - (cons |[1]#_g118579_| - (cons |[1]#_g118580_| - (cons |[1]#_g118581_| - (cons |[1]#_g118582_| - (cons |[1]#_g118583_| - (cons |[1]#_g118584_| - (cons |[1]#_g118585_| + (##unchecked-structure-set! __obj122074 __tmp122205 '13 '#f '#f)) + (let ((__tmp122214 + (cons |[1]#_g122215_| + (cons |[1]#_g122216_| + (cons |[1]#_g122217_| + (cons |[1]#_g122218_| + (cons |[1]#_g122219_| + (cons |[1]#_g122220_| + (cons |[1]#_g122221_| + (cons |[1]#_g122222_| '())))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj118438 __tmp118577 '13 '#f '#f)) - __obj118438)) + (##unchecked-structure-set! __obj122074 __tmp122214 '14 '#f '#f)) + __obj122074)) (define |[:0:]#Locker| - (let ((__obj118439 + (let ((__obj122076 (let () (declare (not safe)) (##structure @@ -787,65 +796,74 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118439 'Locker '1 '#f '#f)) + (##unchecked-structure-set! __obj122076 'Locker '2 '#f '#f)) + (let ((__tmp122223 |[1]#_g122224_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj122076 __tmp122223 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118439 'Locker '2 '#f '#f)) + (##unchecked-structure-set! + __obj122076 + 'gerbil/runtime/hash#Locker::t + '1 + '#f + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj122076 'Locker '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118439 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj122076 '() '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118439 '() '5 '#f '#f)) + (##unchecked-structure-set! __obj122076 '() '7 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118439 + __obj122076 '((read-lock! () :void) (read-unlock! () :void) (write-lock! () :void) (write-unlock! () :void)) - '4 + '6 '#f '#f)) - (let ((__tmp118586 |[1]#_g118587_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj118439 __tmp118586 '7 '#f '#f)) - (let ((__tmp118588 |[1]#_g118589_|)) + (let ((__tmp122225 |[1]#_g122226_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118439 __tmp118588 '6 '#f '#f)) - (let ((__tmp118590 |[1]#_g118591_|)) + (##unchecked-structure-set! __obj122076 __tmp122225 '8 '#f '#f)) + (let ((__tmp122227 |[1]#_g122228_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118439 __tmp118590 '8 '#f '#f)) - (let ((__tmp118592 |[1]#_g118593_|)) + (##unchecked-structure-set! __obj122076 __tmp122227 '9 '#f '#f)) + (let ((__tmp122229 |[1]#_g122230_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118439 __tmp118592 '9 '#f '#f)) - (let ((__tmp118594 |[1]#_g118595_|)) + (##unchecked-structure-set! __obj122076 __tmp122229 '10 '#f '#f)) + (let ((__tmp122231 |[1]#_g122232_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118439 __tmp118594 '10 '#f '#f)) - (let ((__tmp118596 |[1]#_g118597_|)) + (##unchecked-structure-set! __obj122076 __tmp122231 '11 '#f '#f)) + (let ((__tmp122233 |[1]#_g122234_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118439 __tmp118596 '11 '#f '#f)) - (let ((__tmp118598 - (cons |[1]#_g118599_| - (cons |[1]#_g118600_| - (cons |[1]#_g118601_| - (cons |[1]#_g118602_| '())))))) + (##unchecked-structure-set! __obj122076 __tmp122233 '12 '#f '#f)) + (let ((__tmp122235 + (cons |[1]#_g122236_| + (cons |[1]#_g122237_| + (cons |[1]#_g122238_| + (cons |[1]#_g122239_| '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118439 __tmp118598 '12 '#f '#f)) - (let ((__tmp118603 - (cons |[1]#_g118604_| - (cons |[1]#_g118605_| - (cons |[1]#_g118606_| - (cons |[1]#_g118607_| '())))))) + (##unchecked-structure-set! __obj122076 __tmp122235 '13 '#f '#f)) + (let ((__tmp122240 + (cons |[1]#_g122241_| + (cons |[1]#_g122242_| + (cons |[1]#_g122243_| + (cons |[1]#_g122244_| '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118439 __tmp118603 '13 '#f '#f)) - __obj118439)) + (##unchecked-structure-set! __obj122076 __tmp122240 '14 '#f '#f)) + __obj122076)) (define |[:0:]#locked-hash-table| - (let ((__obj118440 + (let ((__obj122077 (let () (declare (not safe)) (##structure @@ -874,7 +892,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118440 + __obj122077 'gerbil/runtime/hash#locked-hash-table::t '1 '#f @@ -882,73 +900,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118440 + __obj122077 'locked-hash-table '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118440 '(table lock) '4 '#f '#f)) + (##unchecked-structure-set! __obj122077 '(table lock) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118440 '(table lock) '6 '#f '#f)) + (##unchecked-structure-set! __obj122077 '(table lock) '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118440 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj122077 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118440 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122077 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118440 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj122077 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118440 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122077 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118440 '#f '11 '#f '#f)) - (let ((__tmp118608 |[1]#_g118609_|)) + (##unchecked-structure-set! __obj122077 '#f '12 '#f '#f)) + (let ((__tmp122245 |[1]#_g122246_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118440 __tmp118608 '12 '#f '#f)) - (let ((__tmp118610 |[1]#_g118611_|)) + (##unchecked-structure-set! __obj122077 __tmp122245 '3 '#f '#f)) + (let ((__tmp122247 |[1]#_g122248_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118440 __tmp118610 '13 '#f '#f)) - (let ((__tmp118612 |[1]#_g118613_|)) + (##unchecked-structure-set! __obj122077 __tmp122247 '13 '#f '#f)) + (let ((__tmp122249 |[1]#_g122250_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118440 __tmp118612 '14 '#f '#f)) - (let ((__tmp118614 - (cons (cons 'table |[1]#_g118615_|) - (cons (cons 'lock |[1]#_g118616_|) '())))) + (##unchecked-structure-set! __obj122077 __tmp122249 '14 '#f '#f)) + (let ((__tmp122251 + (cons (cons 'table |[1]#_g122252_|) + (cons (cons 'lock |[1]#_g122253_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj118440 __tmp118614 '15 '#f '#f)) - (let ((__tmp118617 - (cons (cons 'table |[1]#_g118618_|) - (cons (cons 'lock |[1]#_g118619_|) '())))) + (##unchecked-structure-set! __obj122077 __tmp122251 '15 '#f '#f)) + (let ((__tmp122254 + (cons (cons 'table |[1]#_g122255_|) + (cons (cons 'lock |[1]#_g122256_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj118440 __tmp118617 '16 '#f '#f)) - (let ((__tmp118620 - (cons (cons 'table |[1]#_g118621_|) - (cons (cons 'lock |[1]#_g118622_|) '())))) + (##unchecked-structure-set! __obj122077 __tmp122254 '16 '#f '#f)) + (let ((__tmp122257 + (cons (cons 'table |[1]#_g122258_|) + (cons (cons 'lock |[1]#_g122259_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj118440 __tmp118620 '17 '#f '#f)) - (let ((__tmp118623 - (cons (cons 'table |[1]#_g118624_|) - (cons (cons 'lock |[1]#_g118625_|) '())))) + (##unchecked-structure-set! __obj122077 __tmp122257 '17 '#f '#f)) + (let ((__tmp122260 + (cons (cons 'table |[1]#_g122261_|) + (cons (cons 'lock |[1]#_g122262_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj118440 __tmp118623 '18 '#f '#f)) + (##unchecked-structure-set! __obj122077 __tmp122260 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118440 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122077 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118440 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122077 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118440 '() '20 '#f '#f)) - __obj118440)) + (##unchecked-structure-set! __obj122077 '() '20 '#f '#f)) + __obj122077)) (define |[:0:]#checked-hash-table| - (let ((__obj118441 + (let ((__obj122078 (let () (declare (not safe)) (##structure @@ -977,7 +995,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118441 + __obj122078 'gerbil/runtime/hash#checked-hash-table::t '1 '#f @@ -985,7 +1003,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118441 + __obj122078 'checked-hash-table '2 '#f @@ -993,92 +1011,92 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118441 + __obj122078 '(table key-check) - '4 + '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118441 + __obj122078 '(table key-check) - '6 + '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118441 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj122078 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118441 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj122078 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118441 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj122078 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118441 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj122078 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118441 '#f '11 '#f '#f)) - (let ((__tmp118626 |[1]#_g118627_|)) + (##unchecked-structure-set! __obj122078 '#f '12 '#f '#f)) + (let ((__tmp122263 |[1]#_g122264_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118441 __tmp118626 '12 '#f '#f)) - (let ((__tmp118628 |[1]#_g118629_|)) + (##unchecked-structure-set! __obj122078 __tmp122263 '3 '#f '#f)) + (let ((__tmp122265 |[1]#_g122266_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118441 __tmp118628 '13 '#f '#f)) - (let ((__tmp118630 |[1]#_g118631_|)) + (##unchecked-structure-set! __obj122078 __tmp122265 '13 '#f '#f)) + (let ((__tmp122267 |[1]#_g122268_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118441 __tmp118630 '14 '#f '#f)) - (let ((__tmp118632 - (cons (cons 'table |[1]#_g118633_|) - (cons (cons 'key-check |[1]#_g118634_|) '())))) + (##unchecked-structure-set! __obj122078 __tmp122267 '14 '#f '#f)) + (let ((__tmp122269 + (cons (cons 'table |[1]#_g122270_|) + (cons (cons 'key-check |[1]#_g122271_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj118441 __tmp118632 '15 '#f '#f)) - (let ((__tmp118635 - (cons (cons 'table |[1]#_g118636_|) - (cons (cons 'key-check |[1]#_g118637_|) '())))) + (##unchecked-structure-set! __obj122078 __tmp122269 '15 '#f '#f)) + (let ((__tmp122272 + (cons (cons 'table |[1]#_g122273_|) + (cons (cons 'key-check |[1]#_g122274_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj118441 __tmp118635 '16 '#f '#f)) - (let ((__tmp118638 - (cons (cons 'table |[1]#_g118639_|) - (cons (cons 'key-check |[1]#_g118640_|) '())))) + (##unchecked-structure-set! __obj122078 __tmp122272 '16 '#f '#f)) + (let ((__tmp122275 + (cons (cons 'table |[1]#_g122276_|) + (cons (cons 'key-check |[1]#_g122277_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj118441 __tmp118638 '17 '#f '#f)) - (let ((__tmp118641 - (cons (cons 'table |[1]#_g118642_|) - (cons (cons 'key-check |[1]#_g118643_|) '())))) + (##unchecked-structure-set! __obj122078 __tmp122275 '17 '#f '#f)) + (let ((__tmp122278 + (cons (cons 'table |[1]#_g122279_|) + (cons (cons 'key-check |[1]#_g122280_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj118441 __tmp118641 '18 '#f '#f)) + (##unchecked-structure-set! __obj122078 __tmp122278 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118441 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj122078 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118441 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj122078 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118441 '() '20 '#f '#f)) - __obj118441)) + (##unchecked-structure-set! __obj122078 '() '20 '#f '#f)) + __obj122078)) (define |[:0:]#deflocked-hash-method| - (lambda (_%$stx113096%_) - (let* ((_%__stx118359118360%_ _%$stx113096%_) - (_%g113101113177%_ + (lambda (_%$stx116748%_) + (let* ((_%__stx121994121995%_ _%$stx116748%_) + (_%g116753116829%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx118359118360%_)))) - (let ((_%__kont118362118363%_ - (lambda (_%L113426%_ - _%L113428%_ - _%L113429%_ - _%L113430%_ - _%L113431%_ - _%L113432%_) + _%__stx121994121995%_)))) + (let ((_%__kont121997121998%_ + (lambda (_%g116755117074%_ + _%g116756117076%_ + _%g116757117077%_ + _%g116758117078%_ + _%g116759117079%_ + _%g116760117080%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method) - (cons _%L113432%_ + (cons _%g116760117080%_ (cons (gx#datum->syntax '#f 'locked-hash-table) @@ -1087,13 +1105,13 @@ (cons (cons (gx#datum->syntax '#f 'self) - (let ((__tmp118644 - (lambda (_%g113462113467%_ + (let ((__tmp122281 + (lambda (_%g117110117115%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g113463113470%_) - (cons _%g113462113467%_ _%g113463113470%_)))) + _%g117111117118%_) + (cons _%g117110117115%_ _%g117111117118%_)))) (declare (not safe)) - (__foldr1 __tmp118644 '() _%L113431%_))) + (__foldr1 __tmp122281 '() _%g116759117079%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -1120,31 +1138,31 @@ '())) '())) '())) - (cons (cons _%L113426%_ + (cons (cons _%g116755117074%_ (cons (cons (gx#datum->syntax '#f 'dynamic-wind) (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L113430%_ + (cons _%g116758117078%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'l) '()))) (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L113429%_ + (cons _%g116757117077%_ (cons (gx#datum->syntax '#f 'h) - (let ((__tmp118645 - (lambda (_%g113464113473%_ - _%g113465113476%_) - (cons _%g113464113473%_ - _%g113465113476%_)))) + (let ((__tmp122282 + (lambda (_%g117112117121%_ + _%g117113117124%_) + (cons _%g117112117121%_ + _%g117113117124%_)))) (declare (not safe)) (__foldr1 - __tmp118645 + __tmp122282 '() - _%L113431%_))))) + _%g116759117079%_))))) (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L113428%_ + (cons _%g116756117076%_ (cons (gx#datum->syntax '#f 'l) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1157,496 +1175,499 @@ '#f 'HashTable) '()))))))) - (_%__kont118366118367%_ - (lambda (_%L113274%_ - _%L113276%_ - _%L113277%_ - _%L113278%_ - _%L113279%_ - _%L113280%_) - (cons _%L113280%_ - (cons (cons _%L113279%_ - (let ((__tmp118646 - (lambda (_%g113310113313%_ - _%g113311113316%_) - (cons _%g113310113313%_ - _%g113311113316%_)))) + (_%__kont122001122002%_ + (lambda (_%g116791116924%_ + _%g116792116926%_ + _%g116793116927%_ + _%g116794116928%_ + _%g116795116929%_ + _%g116796116930%_) + (cons _%g116796116930%_ + (cons (cons _%g116795116929%_ + (let ((__tmp122283 + (lambda (_%g116960116963%_ + _%g116961116966%_) + (cons _%g116960116963%_ + _%g116961116966%_)))) (declare (not safe)) - (__foldr1 __tmp118646 '() _%L113278%_))) - (cons _%L113277%_ - (cons _%L113276%_ - (cons _%L113274%_ + (__foldr1 + __tmp122283 + '() + _%g116794116928%_))) + (cons _%g116793116927%_ + (cons _%g116792116926%_ + (cons _%g116791116924%_ (cons (gx#datum->syntax '#f 'identity) '()))))))))) - (let* ((_%__match118422118423%_ - (lambda (_%e113145113184%_ - _%hd113146113188%_ - _%tl113147113191%_ - _%e113148113194%_ - _%hd113149113198%_ - _%tl113150113201%_ - _%e113151113204%_ - _%hd113152113208%_ - _%tl113153113211%_ - _%__splice118368118369%_ - _%target113154113214%_ - _%tl113156113217%_) - (letrec ((_%loop113157113220%_ - (lambda (_%hd113155113224%_ - _%arg113161113227%_) - (if (gx#stx-pair? _%hd113155113224%_) - (let ((_%e113158113230%_ - (gx#syntax-e _%hd113155113224%_))) - (let ((_%lp-tl113160113237%_ + (let* ((_%__match122057122058%_ + (lambda (_%e116797116836%_ + _%hd116798116840%_ + _%tl116799116843%_ + _%e116800116846%_ + _%hd116801116850%_ + _%tl116802116853%_ + _%e116803116856%_ + _%hd116804116860%_ + _%tl116805116863%_ + _%__splice122003122004%_ + _%target116806116866%_ + _%tl116808116869%_) + (letrec ((_%loop116809116872%_ + (lambda (_%hd116807116876%_ + _%arg116813116879%_) + (if (gx#stx-pair? _%hd116807116876%_) + (let ((_%e116810116881%_ + (gx#syntax-e _%hd116807116876%_))) + (let ((_%lp-tl116812116888%_ (let () (declare (not safe)) - (##cdr _%e113158113230%_))) - (_%lp-hd113159113234%_ + (##cdr _%e116810116881%_))) + (_%lp-hd116811116885%_ (let () (declare (not safe)) - (##car _%e113158113230%_)))) - (_%loop113157113220%_ - _%lp-tl113160113237%_ - (cons _%lp-hd113159113234%_ - _%arg113161113227%_)))) - (let ((_%arg113162113240%_ - (reverse _%arg113161113227%_))) - (if (gx#stx-pair? _%tl113150113201%_) - (let ((_%e113163113244%_ + (##car _%e116810116881%_)))) + (_%loop116809116872%_ + _%lp-tl116812116888%_ + (cons _%lp-hd116811116885%_ + _%arg116813116879%_)))) + (let ((_%arg116814116891%_ + (reverse _%arg116813116879%_))) + (if (gx#stx-pair? _%tl116802116853%_) + (let ((_%e116815116894%_ (gx#syntax-e - _%tl113150113201%_))) - (let ((_%tl113165113251%_ + _%tl116802116853%_))) + (let ((_%tl116817116901%_ (let () (declare (not safe)) - (##cdr _%e113163113244%_))) - (_%hd113164113248%_ + (##cdr _%e116815116894%_))) + (_%hd116816116898%_ (let () (declare (not safe)) - (##car _%e113163113244%_)))) + (##car _%e116815116894%_)))) (if (gx#stx-pair? - _%tl113165113251%_) - (let ((_%e113166113254%_ + _%tl116817116901%_) + (let ((_%e116818116904%_ (gx#syntax-e - _%tl113165113251%_))) - (let ((_%tl113168113261%_ + _%tl116817116901%_))) + (let ((_%tl116820116911%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e113166113254%_))) - (_%hd113167113258%_ - (let () (declare (not safe)) (##car _%e113166113254%_)))) - (if (gx#stx-pair? _%tl113168113261%_) - (let ((_%e113169113264%_ (gx#syntax-e _%tl113168113261%_))) - (let ((_%tl113171113271%_ + (##cdr _%e116818116904%_))) + (_%hd116819116908%_ + (let () (declare (not safe)) (##car _%e116818116904%_)))) + (if (gx#stx-pair? _%tl116820116911%_) + (let ((_%e116821116914%_ (gx#syntax-e _%tl116820116911%_))) + (let ((_%tl116823116921%_ (let () (declare (not safe)) - (##cdr _%e113169113264%_))) - (_%hd113170113268%_ + (##cdr _%e116821116914%_))) + (_%hd116822116918%_ (let () (declare (not safe)) - (##car _%e113169113264%_)))) - (if (gx#stx-null? _%tl113171113271%_) - (_%__kont118366118367%_ - _%hd113170113268%_ - _%hd113167113258%_ - _%hd113164113248%_ - _%arg113162113240%_ - _%hd113152113208%_ - _%hd113146113188%_) + (##car _%e116821116914%_)))) + (if (gx#stx-null? _%tl116823116921%_) + (_%__kont122001122002%_ + _%hd116822116918%_ + _%hd116819116908%_ + _%hd116816116898%_ + _%arg116814116891%_ + _%hd116804116860%_ + _%hd116798116840%_) (let () (declare (not safe)) - (_%g113101113177%_))))) - (let () (declare (not safe)) (_%g113101113177%_))))) + (_%g116753116829%_))))) + (let () (declare (not safe)) (_%g116753116829%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g113101113177%_))))) + (_%g116753116829%_))))) (let () (declare (not safe)) - (_%g113101113177%_)))))))) - (_%loop113157113220%_ _%target113154113214%_ '())))) - (_%__match118396118397%_ - (lambda (_%e113109113326%_ - _%hd113110113330%_ - _%tl113111113333%_ - _%e113112113336%_ - _%hd113113113340%_ - _%tl113114113343%_ - _%e113115113346%_ - _%hd113116113350%_ - _%tl113117113353%_ - _%__splice118364118365%_ - _%target113118113356%_ - _%tl113120113359%_) - (letrec ((_%loop113121113362%_ - (lambda (_%hd113119113366%_ - _%arg113125113369%_) - (if (gx#stx-pair? _%hd113119113366%_) - (let ((_%e113122113372%_ - (gx#syntax-e _%hd113119113366%_))) - (let ((_%lp-tl113124113379%_ + (_%g116753116829%_)))))))) + (_%loop116809116872%_ _%target116806116866%_ '())))) + (_%__match122031122032%_ + (lambda (_%e116761116976%_ + _%hd116762116980%_ + _%tl116763116983%_ + _%e116764116986%_ + _%hd116765116990%_ + _%tl116766116993%_ + _%e116767116996%_ + _%hd116768117000%_ + _%tl116769117003%_ + _%__splice121999122000%_ + _%target116770117006%_ + _%tl116772117009%_) + (letrec ((_%loop116773117012%_ + (lambda (_%hd116771117016%_ + _%arg116777117019%_) + (if (gx#stx-pair? _%hd116771117016%_) + (let ((_%e116774117021%_ + (gx#syntax-e _%hd116771117016%_))) + (let ((_%lp-tl116776117028%_ (let () (declare (not safe)) - (##cdr _%e113122113372%_))) - (_%lp-hd113123113376%_ + (##cdr _%e116774117021%_))) + (_%lp-hd116775117025%_ (let () (declare (not safe)) - (##car _%e113122113372%_)))) - (_%loop113121113362%_ - _%lp-tl113124113379%_ - (cons _%lp-hd113123113376%_ - _%arg113125113369%_)))) - (let ((_%arg113126113382%_ - (reverse _%arg113125113369%_))) - (if (gx#stx-pair? _%tl113114113343%_) - (let ((_%e113127113386%_ + (##car _%e116774117021%_)))) + (_%loop116773117012%_ + _%lp-tl116776117028%_ + (cons _%lp-hd116775117025%_ + _%arg116777117019%_)))) + (let ((_%arg116778117031%_ + (reverse _%arg116777117019%_))) + (if (gx#stx-pair? _%tl116766116993%_) + (let ((_%e116779117034%_ (gx#syntax-e - _%tl113114113343%_))) - (let ((_%tl113129113393%_ + _%tl116766116993%_))) + (let ((_%tl116781117041%_ (let () (declare (not safe)) - (##cdr _%e113127113386%_))) - (_%hd113128113390%_ + (##cdr _%e116779117034%_))) + (_%hd116780117038%_ (let () (declare (not safe)) - (##car _%e113127113386%_)))) + (##car _%e116779117034%_)))) (if (gx#stx-pair? - _%tl113129113393%_) - (let ((_%e113130113396%_ + _%tl116781117041%_) + (let ((_%e116782117044%_ (gx#syntax-e - _%tl113129113393%_))) - (let ((_%tl113132113403%_ + _%tl116781117041%_))) + (let ((_%tl116784117051%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e113130113396%_))) - (_%hd113131113400%_ - (let () (declare (not safe)) (##car _%e113130113396%_)))) - (if (gx#stx-pair? _%tl113132113403%_) - (let ((_%e113133113406%_ (gx#syntax-e _%tl113132113403%_))) - (let ((_%tl113135113413%_ + (##cdr _%e116782117044%_))) + (_%hd116783117048%_ + (let () (declare (not safe)) (##car _%e116782117044%_)))) + (if (gx#stx-pair? _%tl116784117051%_) + (let ((_%e116785117054%_ (gx#syntax-e _%tl116784117051%_))) + (let ((_%tl116787117061%_ (let () (declare (not safe)) - (##cdr _%e113133113406%_))) - (_%hd113134113410%_ + (##cdr _%e116785117054%_))) + (_%hd116786117058%_ (let () (declare (not safe)) - (##car _%e113133113406%_)))) - (if (gx#stx-pair? _%tl113135113413%_) - (let ((_%e113136113416%_ - (gx#syntax-e _%tl113135113413%_))) - (let ((_%tl113138113423%_ + (##car _%e116785117054%_)))) + (if (gx#stx-pair? _%tl116787117061%_) + (let ((_%e116788117064%_ + (gx#syntax-e _%tl116787117061%_))) + (let ((_%tl116790117071%_ (let () (declare (not safe)) - (##cdr _%e113136113416%_))) - (_%hd113137113420%_ + (##cdr _%e116788117064%_))) + (_%hd116789117068%_ (let () (declare (not safe)) - (##car _%e113136113416%_)))) - (if (gx#stx-null? _%tl113138113423%_) - (_%__kont118362118363%_ - _%hd113137113420%_ - _%hd113134113410%_ - _%hd113131113400%_ - _%hd113128113390%_ - _%arg113126113382%_ - _%hd113116113350%_) - (_%__match118422118423%_ - _%e113109113326%_ - _%hd113110113330%_ - _%tl113111113333%_ - _%e113112113336%_ - _%hd113113113340%_ - _%tl113114113343%_ - _%e113115113346%_ - _%hd113116113350%_ - _%tl113117113353%_ - _%__splice118364118365%_ - _%target113118113356%_ - _%tl113120113359%_)))) - (_%__match118422118423%_ - _%e113109113326%_ - _%hd113110113330%_ - _%tl113111113333%_ - _%e113112113336%_ - _%hd113113113340%_ - _%tl113114113343%_ - _%e113115113346%_ - _%hd113116113350%_ - _%tl113117113353%_ - _%__splice118364118365%_ - _%target113118113356%_ - _%tl113120113359%_)))) - (_%__match118422118423%_ - _%e113109113326%_ - _%hd113110113330%_ - _%tl113111113333%_ - _%e113112113336%_ - _%hd113113113340%_ - _%tl113114113343%_ - _%e113115113346%_ - _%hd113116113350%_ - _%tl113117113353%_ - _%__splice118364118365%_ - _%target113118113356%_ - _%tl113120113359%_)))) + (##car _%e116788117064%_)))) + (if (gx#stx-null? _%tl116790117071%_) + (_%__kont121997121998%_ + _%hd116789117068%_ + _%hd116786117058%_ + _%hd116783117048%_ + _%hd116780117038%_ + _%arg116778117031%_ + _%hd116768117000%_) + (_%__match122057122058%_ + _%e116761116976%_ + _%hd116762116980%_ + _%tl116763116983%_ + _%e116764116986%_ + _%hd116765116990%_ + _%tl116766116993%_ + _%e116767116996%_ + _%hd116768117000%_ + _%tl116769117003%_ + _%__splice121999122000%_ + _%target116770117006%_ + _%tl116772117009%_)))) + (_%__match122057122058%_ + _%e116761116976%_ + _%hd116762116980%_ + _%tl116763116983%_ + _%e116764116986%_ + _%hd116765116990%_ + _%tl116766116993%_ + _%e116767116996%_ + _%hd116768117000%_ + _%tl116769117003%_ + _%__splice121999122000%_ + _%target116770117006%_ + _%tl116772117009%_)))) + (_%__match122057122058%_ + _%e116761116976%_ + _%hd116762116980%_ + _%tl116763116983%_ + _%e116764116986%_ + _%hd116765116990%_ + _%tl116766116993%_ + _%e116767116996%_ + _%hd116768117000%_ + _%tl116769117003%_ + _%__splice121999122000%_ + _%target116770117006%_ + _%tl116772117009%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match118422118423%_ - _%e113109113326%_ - _%hd113110113330%_ - _%tl113111113333%_ - _%e113112113336%_ - _%hd113113113340%_ - _%tl113114113343%_ - _%e113115113346%_ - _%hd113116113350%_ - _%tl113117113353%_ - _%__splice118364118365%_ - _%target113118113356%_ - _%tl113120113359%_)))) - (_%__match118422118423%_ - _%e113109113326%_ - _%hd113110113330%_ - _%tl113111113333%_ - _%e113112113336%_ - _%hd113113113340%_ - _%tl113114113343%_ - _%e113115113346%_ - _%hd113116113350%_ - _%tl113117113353%_ - _%__splice118364118365%_ - _%target113118113356%_ - _%tl113120113359%_))))))) - (_%loop113121113362%_ _%target113118113356%_ '()))))) - (if (gx#stx-pair? _%__stx118359118360%_) - (let ((_%e113109113326%_ - (gx#syntax-e _%__stx118359118360%_))) - (let ((_%tl113111113333%_ + (_%__match122057122058%_ + _%e116761116976%_ + _%hd116762116980%_ + _%tl116763116983%_ + _%e116764116986%_ + _%hd116765116990%_ + _%tl116766116993%_ + _%e116767116996%_ + _%hd116768117000%_ + _%tl116769117003%_ + _%__splice121999122000%_ + _%target116770117006%_ + _%tl116772117009%_)))) + (_%__match122057122058%_ + _%e116761116976%_ + _%hd116762116980%_ + _%tl116763116983%_ + _%e116764116986%_ + _%hd116765116990%_ + _%tl116766116993%_ + _%e116767116996%_ + _%hd116768117000%_ + _%tl116769117003%_ + _%__splice121999122000%_ + _%target116770117006%_ + _%tl116772117009%_))))))) + (_%loop116773117012%_ _%target116770117006%_ '()))))) + (if (gx#stx-pair? _%__stx121994121995%_) + (let ((_%e116761116976%_ + (gx#syntax-e _%__stx121994121995%_))) + (let ((_%tl116763116983%_ (let () (declare (not safe)) - (##cdr _%e113109113326%_))) - (_%hd113110113330%_ + (##cdr _%e116761116976%_))) + (_%hd116762116980%_ (let () (declare (not safe)) - (##car _%e113109113326%_)))) - (if (gx#stx-pair? _%tl113111113333%_) - (let ((_%e113112113336%_ - (gx#syntax-e _%tl113111113333%_))) - (let ((_%tl113114113343%_ + (##car _%e116761116976%_)))) + (if (gx#stx-pair? _%tl116763116983%_) + (let ((_%e116764116986%_ + (gx#syntax-e _%tl116763116983%_))) + (let ((_%tl116766116993%_ (let () (declare (not safe)) - (##cdr _%e113112113336%_))) - (_%hd113113113340%_ + (##cdr _%e116764116986%_))) + (_%hd116765116990%_ (let () (declare (not safe)) - (##car _%e113112113336%_)))) - (if (gx#stx-pair? _%hd113113113340%_) - (let ((_%e113115113346%_ - (gx#syntax-e _%hd113113113340%_))) - (let ((_%tl113117113353%_ + (##car _%e116764116986%_)))) + (if (gx#stx-pair? _%hd116765116990%_) + (let ((_%e116767116996%_ + (gx#syntax-e _%hd116765116990%_))) + (let ((_%tl116769117003%_ (let () (declare (not safe)) - (##cdr _%e113115113346%_))) - (_%hd113116113350%_ + (##cdr _%e116767116996%_))) + (_%hd116768117000%_ (let () (declare (not safe)) - (##car _%e113115113346%_)))) + (##car _%e116767116996%_)))) (if (gx#stx-pair/null? - _%tl113117113353%_) - (let ((_%__splice118364118365%_ + _%tl116769117003%_) + (let ((_%__splice121999122000%_ (gx#syntax-split-splice->vector - _%tl113117113353%_ + _%tl116769117003%_ '0))) - (let ((_%tl113120113359%_ + (let ((_%tl116772117009%_ (let () (declare (not safe)) (##vector-ref - _%__splice118364118365%_ + _%__splice121999122000%_ '1))) - (_%target113118113356%_ + (_%target116770117006%_ (let () (declare (not safe)) (##vector-ref - _%__splice118364118365%_ + _%__splice121999122000%_ '0)))) (if (gx#stx-null? - _%tl113120113359%_) - (_%__match118396118397%_ - _%e113109113326%_ - _%hd113110113330%_ - _%tl113111113333%_ - _%e113112113336%_ - _%hd113113113340%_ - _%tl113114113343%_ - _%e113115113346%_ - _%hd113116113350%_ - _%tl113117113353%_ - _%__splice118364118365%_ - _%target113118113356%_ - _%tl113120113359%_) + _%tl116772117009%_) + (_%__match122031122032%_ + _%e116761116976%_ + _%hd116762116980%_ + _%tl116763116983%_ + _%e116764116986%_ + _%hd116765116990%_ + _%tl116766116993%_ + _%e116767116996%_ + _%hd116768117000%_ + _%tl116769117003%_ + _%__splice121999122000%_ + _%target116770117006%_ + _%tl116772117009%_) (let () (declare (not safe)) - (_%g113101113177%_))))) + (_%g116753116829%_))))) (let () (declare (not safe)) - (_%g113101113177%_))))) + (_%g116753116829%_))))) (let () (declare (not safe)) - (_%g113101113177%_))))) - (let () (declare (not safe)) (_%g113101113177%_))))) - (let () (declare (not safe)) (_%g113101113177%_)))))))) + (_%g116753116829%_))))) + (let () (declare (not safe)) (_%g116753116829%_))))) + (let () (declare (not safe)) (_%g116753116829%_)))))))) (define |[:0:]#defchecked-hash-method| - (lambda (_%$stx113501%_) - (let* ((_%g113505113544%_ - (lambda (_%g113506113540%_) + (lambda (_%$stx117149%_) + (let* ((_%g117153117192%_ + (lambda (_%g117154117188%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g113506113540%_))) - (_%g113504113707%_ - (lambda (_%g113506113548%_) - (if (gx#stx-pair? _%g113506113548%_) - (let ((_%e113512113551%_ - (gx#syntax-e _%g113506113548%_))) - (let ((_%hd113513113555%_ + _%g117154117188%_))) + (_%g117152117353%_ + (lambda (_%g117154117196%_) + (if (gx#stx-pair? _%g117154117196%_) + (let ((_%e117160117199%_ + (gx#syntax-e _%g117154117196%_))) + (let ((_%hd117161117203%_ (let () (declare (not safe)) - (##car _%e113512113551%_))) - (_%tl113514113558%_ + (##car _%e117160117199%_))) + (_%tl117162117206%_ (let () (declare (not safe)) - (##cdr _%e113512113551%_)))) - (if (gx#stx-pair? _%tl113514113558%_) - (let ((_%e113515113561%_ - (gx#syntax-e _%tl113514113558%_))) - (let ((_%hd113516113565%_ + (##cdr _%e117160117199%_)))) + (if (gx#stx-pair? _%tl117162117206%_) + (let ((_%e117163117209%_ + (gx#syntax-e _%tl117162117206%_))) + (let ((_%hd117164117213%_ (let () (declare (not safe)) - (##car _%e113515113561%_))) - (_%tl113517113568%_ + (##car _%e117163117209%_))) + (_%tl117165117216%_ (let () (declare (not safe)) - (##cdr _%e113515113561%_)))) - (if (gx#stx-pair? _%hd113516113565%_) - (let ((_%e113518113571%_ - (gx#syntax-e _%hd113516113565%_))) - (let ((_%hd113519113575%_ + (##cdr _%e117163117209%_)))) + (if (gx#stx-pair? _%hd117164117213%_) + (let ((_%e117166117219%_ + (gx#syntax-e _%hd117164117213%_))) + (let ((_%hd117167117223%_ (let () (declare (not safe)) - (##car _%e113518113571%_))) - (_%tl113520113578%_ + (##car _%e117166117219%_))) + (_%tl117168117226%_ (let () (declare (not safe)) - (##cdr _%e113518113571%_)))) - (if (gx#stx-pair? _%tl113520113578%_) - (let ((_%e113521113581%_ + (##cdr _%e117166117219%_)))) + (if (gx#stx-pair? _%tl117168117226%_) + (let ((_%e117169117229%_ (gx#syntax-e - _%tl113520113578%_))) - (let ((_%hd113522113585%_ + _%tl117168117226%_))) + (let ((_%hd117170117233%_ (let () (declare (not safe)) - (##car _%e113521113581%_))) - (_%tl113523113588%_ + (##car _%e117169117229%_))) + (_%tl117171117236%_ (let () (declare (not safe)) - (##cdr _%e113521113581%_)))) + (##cdr _%e117169117229%_)))) (if (gx#stx-pair/null? - _%tl113523113588%_) - (let ((_g118647_ + _%tl117171117236%_) + (let ((_g122284_ (gx#syntax-split-splice - _%tl113523113588%_ + _%tl117171117236%_ '0))) (begin - (let ((_g118648_ + (let ((_g122285_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g118647_) - (##values-length _g118647_) + (if (##values? _g122284_) + (##values-length _g122284_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g118648_ 2))) - (error "Context expects 2 values" _g118648_))) - (let ((_%target113524113591%_ + (if (not (let () (declare (not safe)) (##fx= _g122285_ 2))) + (error "Context expects 2 values" _g122285_))) + (let ((_%target117172117239%_ (let () (declare (not safe)) - (##values-ref _g118647_ 0))) - (_%tl113526113594%_ + (##values-ref _g122284_ 0))) + (_%tl117174117242%_ (let () (declare (not safe)) - (##values-ref _g118647_ 1)))) - (if (gx#stx-null? _%tl113526113594%_) - (letrec ((_%loop113527113597%_ - (lambda (_%hd113525113601%_ - _%arg113531113604%_) - (if (gx#stx-pair? _%hd113525113601%_) - (let ((_%e113528113607%_ + (##values-ref _g122284_ 1)))) + (if (gx#stx-null? _%tl117174117242%_) + (letrec ((_%loop117175117245%_ + (lambda (_%hd117173117249%_ + _%arg117179117252%_) + (if (gx#stx-pair? _%hd117173117249%_) + (let ((_%e117176117254%_ (gx#syntax-e - _%hd113525113601%_))) - (let ((_%lp-hd113529113611%_ + _%hd117173117249%_))) + (let ((_%lp-hd117177117258%_ (let () (declare (not safe)) - (##car _%e113528113607%_))) - (_%lp-tl113530113614%_ + (##car _%e117176117254%_))) + (_%lp-tl117178117261%_ (let () (declare (not safe)) - (##cdr _%e113528113607%_)))) - (_%loop113527113597%_ - _%lp-tl113530113614%_ - (cons _%lp-hd113529113611%_ - _%arg113531113604%_)))) - (let ((_%arg113532113617%_ - (reverse _%arg113531113604%_))) - (if (gx#stx-pair? _%tl113517113568%_) - (let ((_%e113533113621%_ + (##cdr _%e117176117254%_)))) + (_%loop117175117245%_ + _%lp-tl117178117261%_ + (cons _%lp-hd117177117258%_ + _%arg117179117252%_)))) + (let ((_%arg117180117264%_ + (reverse _%arg117179117252%_))) + (if (gx#stx-pair? _%tl117165117216%_) + (let ((_%e117181117267%_ (gx#syntax-e - _%tl113517113568%_))) - (let ((_%hd113534113625%_ + _%tl117165117216%_))) + (let ((_%hd117182117271%_ (let () (declare (not safe)) - (##car _%e113533113621%_))) - (_%tl113535113628%_ + (##car _%e117181117267%_))) + (_%tl117183117274%_ (let () (declare (not safe)) - (##cdr _%e113533113621%_)))) + (##cdr _%e117181117267%_)))) (if (gx#stx-pair? - _%tl113535113628%_) - (let ((_%e113536113631%_ + _%tl117183117274%_) + (let ((_%e117184117277%_ (gx#syntax-e - _%tl113535113628%_))) - (let ((_%hd113537113635%_ + _%tl117183117274%_))) + (let ((_%hd117185117281%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e113536113631%_))) - (_%tl113538113638%_ + (##car _%e117184117277%_))) + (_%tl117186117284%_ (let () (declare (not safe)) - (##cdr _%e113536113631%_)))) - (if (gx#stx-null? _%tl113538113638%_) - ((lambda (_%L113641%_ - _%L113643%_ - _%L113644%_ - _%L113645%_ - _%L113646%_) + (##cdr _%e117184117277%_)))) + (if (gx#stx-null? _%tl117186117284%_) + ((lambda (_%g117155117287%_ + _%g117156117289%_ + _%g117157117290%_ + _%g117158117291%_ + _%g117159117292%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method) - (cons _%L113646%_ + (cons _%g117159117292%_ (cons (gx#datum->syntax '#f 'checked-hash-table) '()))) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L113645%_ - (let ((__tmp118649 + (cons (cons _%g117158117291%_ + (let ((__tmp122286 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g113674113683%_ _%g113675113686%_) - (cons _%g113674113683%_ _%g113675113686%_)))) + (lambda (_%g117320117329%_ _%g117321117332%_) + (cons _%g117320117329%_ _%g117321117332%_)))) (declare (not safe)) - (__foldr1 __tmp118649 '() _%L113644%_))) + (__foldr1 __tmp122286 '() _%g117157117290%_))) (cons (cons (gx#datum->syntax '#f 'declare) (cons (cons (gx#datum->syntax '#f 'not) (cons (gx#datum->syntax '#f 'safe) '())) @@ -1656,7 +1677,7 @@ (cons (cons (gx#datum->syntax '#f '&checked-hash-table-table) - (cons _%L113645%_ + (cons _%g117158117291%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -1668,32 +1689,35 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '&checked-hash-table-key-check) - (cons _%L113645%_ '())) + (cons _%g117158117291%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L113643%_ + (cons (cons _%g117156117289%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'key?) - (let ((__tmp118650 - (lambda (_%g113676113689%_ - _%g113677113692%_) - (cons _%g113676113689%_ - _%g113677113692%_)))) + (let ((__tmp122287 + (lambda (_%g117322117335%_ + _%g117323117338%_) + (cons _%g117322117335%_ + _%g117323117338%_)))) (declare (not safe)) - (__foldr1 __tmp118650 '() _%L113644%_)))) - (cons (cons _%L113641%_ + (__foldr1 __tmp122287 '() _%g117157117290%_)))) + (cons (cons _%g117155117287%_ (cons (gx#datum->syntax '#f 'h) - (let ((__tmp118651 - (lambda (_%g113678113695%_ - _%g113679113698%_) - (cons _%g113678113695%_ - _%g113679113698%_)))) + (let ((__tmp122288 + (lambda (_%g117324117341%_ + _%g117325117344%_) + (cons _%g117324117341%_ + _%g117325117344%_)))) (declare (not safe)) - (__foldr1 __tmp118651 '() _%L113644%_)))) + (__foldr1 + __tmp122288 + '() + _%g117157117290%_)))) (cons (cons (gx#datum->syntax '#f 'abort!) (cons (cons (gx#datum->syntax '#f @@ -1704,19 +1728,19 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L113641%_ '())) + (cons _%g117155117287%_ '())) (cons 'value: (cons (cons (gx#datum->syntax '#f '@list) - (let ((__tmp118652 - (lambda (_%g113680113701%_ - _%g113681113704%_) - (cons _%g113680113701%_ - _%g113681113704%_)))) + (let ((__tmp122289 + (lambda (_%g117326117347%_ + _%g117327117350%_) + (cons _%g117326117347%_ + _%g117327117350%_)))) (declare (not safe)) (__foldr1 - __tmp118652 + __tmp122289 '() - _%L113644%_))) + _%g117157117290%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -1730,158 +1754,158 @@ '#f 'HashTable) '())))))) - _%hd113537113635%_ - _%hd113534113625%_ - _%arg113532113617%_ - _%hd113522113585%_ - _%hd113519113575%_) - (_%g113505113544%_ _%g113506113548%_)))) - (_%g113505113544%_ _%g113506113548%_)))) + _%hd117185117281%_ + _%hd117182117271%_ + _%arg117180117264%_ + _%hd117170117233%_ + _%hd117167117223%_) + (_%g117153117192%_ _%g117154117196%_)))) + (_%g117153117192%_ _%g117154117196%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g113505113544%_ - _%g113506113548%_))))))) - (_%loop113527113597%_ _%target113524113591%_ '())) - (_%g113505113544%_ _%g113506113548%_))))) - (_%g113505113544%_ _%g113506113548%_)))) + (_%g117153117192%_ + _%g117154117196%_))))))) + (_%loop117175117245%_ _%target117172117239%_ '())) + (_%g117153117192%_ _%g117154117196%_))))) + (_%g117153117192%_ _%g117154117196%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g113505113544%_ - _%g113506113548%_)))) - (_%g113505113544%_ _%g113506113548%_)))) - (_%g113505113544%_ _%g113506113548%_)))) - (_%g113505113544%_ _%g113506113548%_))))) - (_%g113504113707%_ _%$stx113501%_)))) + (_%g117153117192%_ + _%g117154117196%_)))) + (_%g117153117192%_ _%g117154117196%_)))) + (_%g117153117192%_ _%g117154117196%_)))) + (_%g117153117192%_ _%g117154117196%_))))) + (_%g117152117353%_ _%$stx117149%_)))) (define |[:0:]#defhash-method| - (lambda (_%$stx113728%_) - (let* ((_%g113732113764%_ - (lambda (_%g113733113760%_) + (lambda (_%$stx117374%_) + (let* ((_%g117378117410%_ + (lambda (_%g117379117406%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g113733113760%_))) - (_%g113731113877%_ - (lambda (_%g113733113768%_) - (if (gx#stx-pair? _%g113733113768%_) - (let ((_%e113738113771%_ - (gx#syntax-e _%g113733113768%_))) - (let ((_%hd113739113775%_ + _%g117379117406%_))) + (_%g117377117521%_ + (lambda (_%g117379117414%_) + (if (gx#stx-pair? _%g117379117414%_) + (let ((_%e117384117417%_ + (gx#syntax-e _%g117379117414%_))) + (let ((_%hd117385117421%_ (let () (declare (not safe)) - (##car _%e113738113771%_))) - (_%tl113740113778%_ + (##car _%e117384117417%_))) + (_%tl117386117424%_ (let () (declare (not safe)) - (##cdr _%e113738113771%_)))) - (if (gx#stx-pair? _%tl113740113778%_) - (let ((_%e113741113781%_ - (gx#syntax-e _%tl113740113778%_))) - (let ((_%hd113742113785%_ + (##cdr _%e117384117417%_)))) + (if (gx#stx-pair? _%tl117386117424%_) + (let ((_%e117387117427%_ + (gx#syntax-e _%tl117386117424%_))) + (let ((_%hd117388117431%_ (let () (declare (not safe)) - (##car _%e113741113781%_))) - (_%tl113743113788%_ + (##car _%e117387117427%_))) + (_%tl117389117434%_ (let () (declare (not safe)) - (##cdr _%e113741113781%_)))) - (if (gx#stx-pair? _%hd113742113785%_) - (let ((_%e113744113791%_ - (gx#syntax-e _%hd113742113785%_))) - (let ((_%hd113745113795%_ + (##cdr _%e117387117427%_)))) + (if (gx#stx-pair? _%hd117388117431%_) + (let ((_%e117390117437%_ + (gx#syntax-e _%hd117388117431%_))) + (let ((_%hd117391117441%_ (let () (declare (not safe)) - (##car _%e113744113791%_))) - (_%tl113746113798%_ + (##car _%e117390117437%_))) + (_%tl117392117444%_ (let () (declare (not safe)) - (##cdr _%e113744113791%_)))) - (if (gx#stx-pair? _%tl113746113798%_) - (let ((_%e113747113801%_ + (##cdr _%e117390117437%_)))) + (if (gx#stx-pair? _%tl117392117444%_) + (let ((_%e117393117447%_ (gx#syntax-e - _%tl113746113798%_))) - (let ((_%hd113748113805%_ + _%tl117392117444%_))) + (let ((_%hd117394117451%_ (let () (declare (not safe)) - (##car _%e113747113801%_))) - (_%tl113749113808%_ + (##car _%e117393117447%_))) + (_%tl117395117454%_ (let () (declare (not safe)) - (##cdr _%e113747113801%_)))) + (##cdr _%e117393117447%_)))) (if (gx#stx-pair/null? - _%tl113743113788%_) - (let ((_g118653_ + _%tl117389117434%_) + (let ((_g122290_ (gx#syntax-split-splice - _%tl113743113788%_ + _%tl117389117434%_ '0))) (begin - (let ((_g118654_ + (let ((_g122291_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g118653_) - (##values-length _g118653_) + (if (##values? _g122290_) + (##values-length _g122290_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g118654_ 2))) - (error "Context expects 2 values" _g118654_))) - (let ((_%target113750113811%_ + (if (not (let () (declare (not safe)) (##fx= _g122291_ 2))) + (error "Context expects 2 values" _g122291_))) + (let ((_%target117396117457%_ (let () (declare (not safe)) - (##values-ref _g118653_ 0))) - (_%tl113752113814%_ + (##values-ref _g122290_ 0))) + (_%tl117398117460%_ (let () (declare (not safe)) - (##values-ref _g118653_ 1)))) - (if (gx#stx-null? _%tl113752113814%_) - (letrec ((_%loop113753113817%_ - (lambda (_%hd113751113821%_ - _%body113757113824%_) - (if (gx#stx-pair? _%hd113751113821%_) - (let ((_%e113754113827%_ + (##values-ref _g122290_ 1)))) + (if (gx#stx-null? _%tl117398117460%_) + (letrec ((_%loop117399117463%_ + (lambda (_%hd117397117467%_ + _%body117403117470%_) + (if (gx#stx-pair? _%hd117397117467%_) + (let ((_%e117400117472%_ (gx#syntax-e - _%hd113751113821%_))) - (let ((_%lp-hd113755113831%_ + _%hd117397117467%_))) + (let ((_%lp-hd117401117476%_ (let () (declare (not safe)) - (##car _%e113754113827%_))) - (_%lp-tl113756113834%_ + (##car _%e117400117472%_))) + (_%lp-tl117402117479%_ (let () (declare (not safe)) - (##cdr _%e113754113827%_)))) - (_%loop113753113817%_ - _%lp-tl113756113834%_ - (cons _%lp-hd113755113831%_ - _%body113757113824%_)))) - (let ((_%body113758113837%_ - (reverse _%body113757113824%_))) - ((lambda (_%L113841%_ - _%L113843%_ - _%L113844%_ - _%L113845%_) + (##cdr _%e117400117472%_)))) + (_%loop117399117463%_ + _%lp-tl117402117479%_ + (cons _%lp-hd117401117476%_ + _%body117403117470%_)))) + (let ((_%body117404117482%_ + (reverse _%body117403117470%_))) + ((lambda (_%g117380117485%_ + _%g117381117487%_ + _%g117382117488%_ + _%g117383117489%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L113845%_ - (cons (cons _%L113844%_ + (cons (cons _%g117383117489%_ + (cons (cons _%g117382117488%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f 'HashTable) '()))) - _%L113843%_)) - (let ((__tmp118655 - (lambda (_%g113868113871%_ _%g113869113874%_) - (cons _%g113868113871%_ _%g113869113874%_)))) + _%g117381117487%_)) + (let ((__tmp122292 + (lambda (_%g117512117515%_ _%g117513117518%_) + (cons _%g117512117515%_ _%g117513117518%_)))) (declare (not safe)) - (__foldr1 __tmp118655 '() _%L113841%_))))) + (__foldr1 __tmp122292 '() _%g117380117485%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body113758113837%_ - _%tl113749113808%_ - _%hd113748113805%_ - _%hd113745113795%_)))))) - (_%loop113753113817%_ _%target113750113811%_ '())) - (_%g113732113764%_ _%g113733113768%_))))) - (_%g113732113764%_ _%g113733113768%_)))) + _%body117404117482%_ + _%tl117395117454%_ + _%hd117394117451%_ + _%hd117391117441%_)))))) + (_%loop117399117463%_ _%target117396117457%_ '())) + (_%g117378117410%_ _%g117379117414%_))))) + (_%g117378117410%_ _%g117379117414%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g113732113764%_ - _%g113733113768%_)))) - (_%g113732113764%_ _%g113733113768%_)))) - (_%g113732113764%_ _%g113733113768%_)))) - (_%g113732113764%_ _%g113733113768%_))))) - (_%g113731113877%_ _%$stx113728%_)))))) + (_%g117378117410%_ + _%g117379117414%_)))) + (_%g117378117410%_ _%g117379117414%_)))) + (_%g117378117410%_ _%g117379117414%_)))) + (_%g117378117410%_ _%g117379117414%_))))) + (_%g117377117521%_ _%$stx117374%_)))))) diff --git a/src/bootstrap/gerbil/runtime/init~0.scm b/src/bootstrap/gerbil/runtime/init~0.scm index 39dbfef8b4..4cd520fe91 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 1756721295) + (define gerbil/runtime/init::timestamp 1769384628) (begin (define __scheme-source (make-parameter '#f)) (define __load-gxi @@ -8,401 +8,401 @@ (let () (declare (not safe)) (__current-compiler __compile-top)) (let () (declare (not safe)) (__current-expander gx#core-expand)) (set! __eval-module gx#core-eval-module) - (letrec* ((_%+readtable+124017%_ __*readtable*)) - (let* ((_%core124019%_ (gx#import-module ':gerbil/core)) - (_%pre124021%_ (gx#make-prelude-context _%core124019%_))) - (gx#current-expander-module-prelude _%pre124021%_) - (gx#core-bind-root-syntax! ': _%pre124021%_ '#t) + (letrec* ((_%+readtable+127785%_ __*readtable*)) + (let* ((_%core127787%_ (gx#import-module ':gerbil/core)) + (_%pre127789%_ (gx#make-prelude-context _%core127787%_))) + (gx#current-expander-module-prelude _%pre127789%_) + (gx#core-bind-root-syntax! ': _%pre127789%_ '#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*)) - (let ((__tmp124028 - (lambda (_%port124024%_) + (let ((__tmp127796 + (lambda (_%port127792%_) (input-port-readtable-set! - _%port124024%_ - _%+readtable+124017%_))) - (__tmp124027 (list ##stdin-port ##console-port))) + _%port127792%_ + _%+readtable+127785%_))) + (__tmp127795 (list ##stdin-port ##console-port))) (declare (not safe)) - (##for-each __tmp124028 __tmp124027)) - (let ((__tmp124030 - (lambda (_%port124026%_) + (##for-each __tmp127796 __tmp127795)) + (let ((__tmp127798 + (lambda (_%port127794%_) (output-port-readtable-set! - _%port124026%_ + _%port127794%_ (readtable-sharing-allowed?-set - (output-port-readtable _%port124026%_) + (output-port-readtable _%port127794%_) '#t)))) - (__tmp124029 (list ##stdout-port ##console-port))) + (__tmp127797 (list ##stdout-port ##console-port))) (declare (not safe)) - (##for-each __tmp124030 __tmp124029))))) - (define __gxi-init-interactive! (lambda (_%cmdline124014%_) '#!void)) + (##for-each __tmp127798 __tmp127797))))) + (define __gxi-init-interactive! (lambda (_%cmdline127782%_) '#!void)) (define load-scheme - (lambda (_%path124009%_) - (let ((__tmp124031 + (lambda (_%path127777%_) + (let ((__tmp127799 (lambda () - (let ((__tmp124032 (lambda _%args124012%_ '#f))) + (let ((__tmp127800 (lambda _%args127780%_ '#f))) (declare (not safe)) - (##load _%path124009%_ __tmp124032 '#t '#t '#f))))) + (##load _%path127777%_ __tmp127800 '#t '#t '#f))))) (declare (not safe)) (call-with-parameters__1 - __tmp124031 + __tmp127799 __scheme-source - _%path124009%_)))) + _%path127777%_)))) (define __expand-source - (lambda (_%src123991%_) - (letrec ((_%expand123993%_ - (lambda (_%src124007%_) + (lambda (_%src127759%_) + (letrec ((_%expand127761%_ + (lambda (_%src127775%_) (__compile-top - (gx#core-expand (__source->syntax _%src124007%_))))) - (_%no-expand123994%_ - (lambda (_%src124000%_) + (gx#core-expand (__source->syntax _%src127775%_))))) + (_%no-expand127762%_ + (lambda (_%src127768%_) (if (let () (declare (not safe)) (__scheme-source)) - _%src124000%_ + _%src127768%_ (if (let () (declare (not safe)) - (##source? _%src124000%_)) - (let ((_%code124004%_ + (##source? _%src127768%_)) + (let ((_%code127772%_ (let () (declare (not safe)) - (##source-code _%src124000%_)))) - (if (pair? _%code124004%_) + (##source-code _%src127768%_)))) + (if (pair? _%code127772%_) (if (eq? '__noexpand: (let () (declare (not safe)) - (##car _%code124004%_))) + (##car _%code127772%_))) (let () (declare (not safe)) - (##cdr _%code124004%_)) + (##cdr _%code127772%_)) '#f) '#f)) '#f))))) - (let ((_%$e123996%_ (_%no-expand123994%_ _%src123991%_))) - (if _%$e123996%_ _%$e123996%_ (_%expand123993%_ _%src123991%_)))))) + (let ((_%$e127764%_ (_%no-expand127762%_ _%src127759%_))) + (if _%$e127764%_ _%$e127764%_ (_%expand127761%_ _%src127759%_)))))) (define __macro-descr - (lambda (_%src123977%_ _%def-syntax?123978%_) - (letrec ((_%fail!123980%_ + (lambda (_%src127745%_ _%def-syntax?127746%_) + (letrec ((_%fail!127748%_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _%src123977%_)))) - (_%make-descr123981%_ - (lambda (_%size123985%_) - (let ((_%expander123988%_ - (let ((__tmp124033 + _%src127745%_)))) + (_%make-descr127749%_ + (lambda (_%size127753%_) + (let ((_%expander127756%_ + (let ((__tmp127801 (lambda () (let () (declare (not safe)) (##eval-top - _%src123977%_ + _%src127745%_ ##interaction-cte))))) (declare (not safe)) (call-with-parameters__1 - __tmp124033 + __tmp127801 __scheme-source 'macro)))) - (if (procedure? _%expander123988%_) + (if (procedure? _%expander127756%_) (let () (declare (not safe)) (##make-macro-descr - _%def-syntax?123978%_ - _%size123985%_ - _%expander123988%_ - _%src123977%_)) - (_%fail!123980%_)))))) - (if _%def-syntax?123978%_ - (_%make-descr123981%_ '-1) - (let ((_%code123983%_ + _%def-syntax?127746%_ + _%size127753%_ + _%expander127756%_ + _%src127745%_)) + (_%fail!127748%_)))))) + (if _%def-syntax?127746%_ + (_%make-descr127749%_ '-1) + (let ((_%code127751%_ (let () (declare (not safe)) - (##source-code _%src123977%_)))) - (if (and (let () (declare (not safe)) (##pair? _%code123983%_)) - (let ((__tmp124034 - (let ((__tmp124035 - (let ((__tmp124036 + (##source-code _%src127745%_)))) + (if (and (let () (declare (not safe)) (##pair? _%code127751%_)) + (let ((__tmp127802 + (let ((__tmp127803 + (let ((__tmp127804 (let () (declare (not safe)) - (##car _%code123983%_)))) + (##car _%code127751%_)))) (declare (not safe)) (##sourcify - __tmp124036 - _%src123977%_)))) + __tmp127804 + _%src127745%_)))) (declare (not safe)) - (##source-code __tmp124035)))) + (##source-code __tmp127803)))) (declare (not safe)) - (##memq __tmp124034 '(##lambda lambda)))) + (##memq __tmp127802 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _%src123977%_ _%src123977%_ '-3)) - (_%make-descr123981%_ - (let ((__tmp124037 - (let ((__tmp124038 + (##shape _%src127745%_ _%src127745%_ '-3)) + (_%make-descr127749%_ + (let ((__tmp127805 + (let ((__tmp127806 (let () (declare (not safe)) - (##cadr _%code123983%_)))) + (##cadr _%code127751%_)))) (declare (not safe)) - (##sourcify __tmp124038 _%src123977%_)))) + (##sourcify __tmp127806 _%src127745%_)))) (declare (not safe)) - (##form-size __tmp124037)))) - (_%fail!123980%_))))))) + (##form-size __tmp127805)))) + (_%fail!127748%_))))))) (define __source->syntax - (lambda (_%src123966%_) - (let _%recur123968%_ ((_%e123970%_ _%src123966%_)) - (if (let () (declare (not safe)) (##source? _%e123970%_)) - (let ((__tmp124040 - (_%recur123968%_ + (lambda (_%src127734%_) + (let _%recur127736%_ ((_%e127738%_ _%src127734%_)) + (if (let () (declare (not safe)) (##source? _%e127738%_)) + (let ((__tmp127808 + (_%recur127736%_ (let () (declare (not safe)) - (##source-code _%e123970%_)))) - (__tmp124039 + (##source-code _%e127738%_)))) + (__tmp127807 (let () (declare (not safe)) - (##source-locat _%e123970%_)))) + (##source-locat _%e127738%_)))) (declare (not safe)) - (##structure AST::t __tmp124040 __tmp124039)) - (if (pair? _%e123970%_) - (cons (_%recur123968%_ - (let () (declare (not safe)) (##car _%e123970%_))) - (_%recur123968%_ - (let () (declare (not safe)) (##cdr _%e123970%_)))) - (if (vector? _%e123970%_) - (vector-map _%recur123968%_ _%e123970%_) - (if (box? _%e123970%_) - (box (_%recur123968%_ (unbox _%e123970%_))) - _%e123970%_))))))) + (##structure AST::t __tmp127808 __tmp127807)) + (if (pair? _%e127738%_) + (cons (_%recur127736%_ + (let () (declare (not safe)) (##car _%e127738%_))) + (_%recur127736%_ + (let () (declare (not safe)) (##cdr _%e127738%_)))) + (if (vector? _%e127738%_) + (vector-map _%recur127736%_ _%e127738%_) + (if (box? _%e127738%_) + (box (_%recur127736%_ (unbox _%e127738%_))) + _%e127738%_))))))) (define __compile-top-source - (lambda (_%stx123964%_) - (cons '__noexpand: (__compile-top _%stx123964%_)))) + (lambda (_%stx127732%_) + (cons '__noexpand: (__compile-top _%stx127732%_)))) (define __compile-top - (lambda (_%stx123962%_) - (let ((__tmp124041 (gx#core-compile-top-syntax _%stx123962%_))) + (lambda (_%stx127730%_) + (let ((__tmp127809 (gx#core-compile-top-syntax _%stx127730%_))) (declare (not safe)) - (__compile __tmp124041)))) + (__compile __tmp127809)))) (define __modstate (let () (declare (not safe)) (make-hash-table-eq))) (define __modstate-mx (make-mutex 'import)) (define __modstate-cv (make-condition-variable 'import)) (define __eval-import - (lambda (_%in123924%_) - (letrec ((_%import1123926%_ - (lambda (_%in123947%_ _%phi123948%_) - (if (gx#module-import? _%in123947%_) - (let ((_%iphi123951%_ - (fx+ _%phi123948%_ - (gx#module-import-phi _%in123947%_)))) + (lambda (_%in127692%_) + (letrec ((_%import1127694%_ + (lambda (_%in127715%_ _%phi127716%_) + (if (gx#module-import? _%in127715%_) + (let ((_%iphi127719%_ + (fx+ _%phi127716%_ + (gx#module-import-phi _%in127715%_)))) (if (let () (declare (not safe)) - (##fxzero? _%iphi123951%_)) - (_%eval1123927%_ + (##fxzero? _%iphi127719%_)) + (_%eval1127695%_ (gx#module-export-context - (gx#module-import-source _%in123947%_))) + (gx#module-import-source _%in127715%_))) '#!void)) - (if (gx#module-context? _%in123947%_) - (if (fxzero? _%phi123948%_) - (_%eval1123927%_ _%in123947%_) + (if (gx#module-context? _%in127715%_) + (if (fxzero? _%phi127716%_) + (_%eval1127695%_ _%in127715%_) '#!void) - (if (gx#import-set? _%in123947%_) - (let ((_%iphi123955%_ - (fx+ _%phi123948%_ - (gx#import-set-phi _%in123947%_)))) + (if (gx#import-set? _%in127715%_) + (let ((_%iphi127723%_ + (fx+ _%phi127716%_ + (gx#import-set-phi _%in127715%_)))) (if (let () (declare (not safe)) - (##fxzero? _%iphi123955%_)) - (_%eval1123927%_ - (gx#import-set-source _%in123947%_)) + (##fxzero? _%iphi127723%_)) + (_%eval1127695%_ + (gx#import-set-source _%in127715%_)) (if (let () (declare (not safe)) - (##fxpositive? _%iphi123955%_)) + (##fxpositive? _%iphi127723%_)) (for-each - (lambda (_%in123959%_) - (_%import1123926%_ - _%in123959%_ - _%iphi123955%_)) + (lambda (_%in127727%_) + (_%import1127694%_ + _%in127727%_ + _%iphi127723%_)) (gx#module-context-import (gx#import-set-source - _%in123947%_))) + _%in127715%_))) '#!void))) (let () (declare (not safe)) (error '"Unexpected import" - _%in123947%_))))))) - (_%eval1123927%_ - (lambda (_%ctx123931%_) + _%in127715%_))))))) + (_%eval1127695%_ + (lambda (_%ctx127699%_) (mutex-lock! __modstate-mx) - (let ((_%$e123933%_ + (let ((_%$e127701%_ (let () (declare (not safe)) - (__hash-get __modstate _%ctx123931%_)))) - (if _%$e123933%_ - ((lambda (_%state123936%_) - (let ((_%$e123938%_ (car _%state123936%_))) - (if (eq? 'forcing _%$e123938%_) + (__hash-get __modstate _%ctx127699%_)))) + (if _%$e127701%_ + ((lambda (_%state127704%_) + (let ((_%$e127706%_ (car _%state127704%_))) + (if (eq? 'forcing _%$e127706%_) (begin (mutex-unlock! __modstate-mx __modstate-cv) - (_%eval1123927%_ _%ctx123931%_)) - (if (eq? 'ready _%$e123938%_) + (_%eval1127695%_ _%ctx127699%_)) + (if (eq? 'ready _%$e127706%_) (begin (mutex-unlock! __modstate-mx) - (cadr _%state123936%_)) - (if (eq? 'error _%$e123938%_) + (cadr _%state127704%_)) + (if (eq? 'error _%$e127706%_) (begin (mutex-unlock! __modstate-mx) - (let ((__tmp124042 - (cadr _%state123936%_))) + (let ((__tmp127810 + (cadr _%state127704%_))) (declare (not safe)) - (raise __tmp124042))) + (raise __tmp127810))) (begin (mutex-unlock! __modstate-mx) (let () (declare (not safe)) (error '"internal error; unexpected module state" - _%state123936%_)))))))) - _%$e123933%_) + _%state127704%_)))))))) + _%$e127701%_) (let () (let () (declare (not safe)) (__hash-put! __modstate - _%ctx123931%_ + _%ctx127699%_ '(forcing))) (mutex-unlock! __modstate-mx) - (let ((__tmp124045 - (lambda (_%exn123942%_) + (let ((__tmp127813 + (lambda (_%exn127710%_) (mutex-lock! __modstate-mx) - (let ((__tmp124046 + (let ((__tmp127814 (cons 'error - (cons _%exn123942%_ '())))) + (cons _%exn127710%_ '())))) (declare (not safe)) (__hash-put! __modstate - _%ctx123931%_ - __tmp124046)) + _%ctx127699%_ + __tmp127814)) (condition-variable-broadcast! __modstate-cv) (mutex-unlock! __modstate-mx) (let () (declare (not safe)) - (raise _%exn123942%_)))) - (__tmp124043 + (raise _%exn127710%_)))) + (__tmp127811 (lambda () - (let ((_%result123945%_ - (__eval-module _%ctx123931%_))) + (let ((_%result127713%_ + (__eval-module _%ctx127699%_))) (mutex-lock! __modstate-mx) - (let ((__tmp124044 + (let ((__tmp127812 (cons 'ready - (cons _%result123945%_ + (cons _%result127713%_ '())))) (declare (not safe)) (__hash-put! __modstate - _%ctx123931%_ - __tmp124044)) + _%ctx127699%_ + __tmp127812)) (condition-variable-broadcast! __modstate-cv) (mutex-unlock! __modstate-mx) - _%result123945%_)))) + _%result127713%_)))) (declare (not safe)) - (__with-catch __tmp124045 __tmp124043)))))))) - (if (pair? _%in123924%_) - (let ((__tmp124047 - (lambda (_%in123929%_) - (_%import1123926%_ _%in123929%_ '0)))) + (__with-catch __tmp127813 __tmp127811)))))))) + (if (pair? _%in127692%_) + (let ((__tmp127815 + (lambda (_%in127697%_) + (_%import1127694%_ _%in127697%_ '0)))) (declare (not safe)) - (##for-each __tmp124047 _%in123924%_)) - (_%import1123926%_ _%in123924%_ '0))))) + (##for-each __tmp127815 _%in127692%_)) + (_%import1127694%_ _%in127692%_ '0))))) (define __eval-module - (lambda (_%obj123922%_) (gx#core-eval-module _%obj123922%_))) + (lambda (_%obj127690%_) (gx#core-eval-module _%obj127690%_))) (define __interrupt-handler (lambda () - (if (let () (declare (not safe)) (##getenv '"GERBIL_DEBUG" '#f)) + (if __DEBUG (begin (newline (current-error-port)) (display '"--- continuation backtrace:" (current-error-port)) (newline (current-error-port)) - (let* ((_%stack-trace-head123918%_ - (let ((_%$e123915%_ + (let* ((_%stack-trace-head127686%_ + (let ((_%$e127683%_ (string->number (let () (declare (not safe)) (##getenv '"GERBIL_DEBUG_STACKTRACE" '"10"))))) - (if _%$e123915%_ _%$e123915%_ '10))) - (__tmp124048 - (lambda (_%cont123920%_) + (if _%$e127683%_ _%$e127683%_ '10))) + (__tmp127816 + (lambda (_%cont127688%_) (display-continuation-backtrace - _%cont123920%_ + _%cont127688%_ (current-error-port) '1 '1 '0 - _%stack-trace-head123918%_)))) + _%stack-trace-head127686%_)))) (declare (not safe)) - (##continuation-capture __tmp124048))) + (##continuation-capture __tmp127816))) '#!void) (let () (declare (not safe)) (##default-user-interrupt-handler)))) (define gerbil-runtime-init! - (lambda (_%builtin-modules123891%_) + (lambda (_%builtin-modules127659%_) (if __runtime-initialized '#!void (begin (let () (declare (not safe)) (dump-stack-trace? '#t)) - (let* ((_%home123893%_ + (let* ((_%home127661%_ (let () (declare (not safe)) (gerbil-home))) - (_%libdir123895%_ (path-expand '"lib" _%home123893%_)) - (_%userpath123897%_ + (_%libdir127663%_ (path-expand '"lib" _%home127661%_)) + (_%userpath127665%_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_%loadpath123899%_ + (_%loadpath127667%_ (if (let () (declare (not safe)) (##getenv '"GERBIL_BUILD_PREFIX" '#f)) - (cons _%libdir123895%_ '()) - (cons _%userpath123897%_ - (cons _%libdir123895%_ '())))) - (_%loadpath123909%_ - (let ((_%$e123901%_ + (cons _%libdir127663%_ '()) + (cons _%userpath127665%_ + (cons _%libdir127663%_ '())))) + (_%loadpath127677%_ + (let ((_%$e127669%_ (let () (declare (not safe)) (##getenv '"GERBIL_LOADPATH" '#f)))) - (if _%$e123901%_ - ((lambda (_%envvar123904%_) - (let ((__tmp124049 - (let ((__tmp124051 - (lambda (_%x123906%_) + (if _%$e127669%_ + ((lambda (_%envvar127672%_) + (let ((__tmp127817 + (let ((__tmp127819 + (lambda (_%x127674%_) (not (let () (declare (not safe)) (string-empty? - _%x123906%_))))) - (__tmp124050 + _%x127674%_))))) + (__tmp127818 (let () (declare (not safe)) (string-split - _%envvar123904%_ + _%envvar127672%_ '#\:)))) (declare (not safe)) - (##filter __tmp124051 __tmp124050)))) + (##filter __tmp127819 __tmp127818)))) (declare (not safe)) - (##append __tmp124049 _%loadpath123899%_))) - _%$e123901%_) - _%loadpath123899%_)))) + (##append __tmp127817 _%loadpath127667%_))) + _%$e127669%_) + _%loadpath127667%_)))) (declare (not safe)) - (__set-load-path! _%loadpath123909%_)) + (__set-load-path! _%loadpath127677%_)) (for-each - (lambda (_%mod123912%_) + (lambda (_%mod127680%_) (let () (declare (not safe)) - (__hash-put! __modules _%mod123912%_ 'builtin)) - (let ((__tmp124052 + (__hash-put! __modules _%mod127680%_ 'builtin)) + (let ((__tmp127820 (let () (declare (not safe)) - (##string-append _%mod123912%_ '"~0")))) + (##string-append _%mod127680%_ '"~0")))) (declare (not safe)) - (__hash-put! __modules __tmp124052 'builtin))) - _%builtin-modules123891%_) + (__hash-put! __modules __tmp127820 'builtin))) + _%builtin-modules127659%_) (current-user-interrupt-handler __interrupt-handler) (current-readtable __*readtable*) (random-source-randomize! default-random-source) diff --git a/src/bootstrap/gerbil/runtime/interface.ssi b/src/bootstrap/gerbil/runtime/interface.ssi index 087207904f..37a1281359 100644 --- a/src/bootstrap/gerbil/runtime/interface.ssi +++ b/src/bootstrap/gerbil/runtime/interface.ssi @@ -41,6 +41,7 @@ namespace: #f (%#define-runtime interface-cast-error? interface-cast-error?) (%#define-runtime interface-instance::t interface-instance::t) (%#define-runtime interface-instance? interface-instance?) + (%#define-runtime make-interface-instance make-interface-instance) (%#define-runtime interface-instance-object interface-instance-object) (%#define-runtime interface-instance-object-set! @@ -51,6 +52,7 @@ namespace: #f (%#define-runtime &interface-instance-object-set! &interface-instance-object-set!) + (%#define-syntax interface-instance |[:0:]#interface-instance|) (%#define-runtime interface-descriptor::t interface-descriptor::t) (%#define-runtime interface-descriptor? interface-descriptor?) (%#define-runtime make-interface-descriptor make-interface-descriptor) @@ -58,56 +60,82 @@ namespace: #f (%#define-runtime interface-descriptor-methods interface-descriptor-methods) + (%#define-runtime + interface-descriptor-index + interface-descriptor-index) (%#define-runtime interface-descriptor-type-set! interface-descriptor-type-set!) (%#define-runtime interface-descriptor-methods-set! interface-descriptor-methods-set!) + (%#define-runtime + interface-descriptor-index-set! + interface-descriptor-index-set!) (%#define-runtime &interface-descriptor-type &interface-descriptor-type) (%#define-runtime &interface-descriptor-methods &interface-descriptor-methods) + (%#define-runtime + &interface-descriptor-index + &interface-descriptor-index) (%#define-runtime &interface-descriptor-type-set! &interface-descriptor-type-set!) (%#define-runtime &interface-descriptor-methods-set! &interface-descriptor-methods-set!) + (%#define-runtime + &interface-descriptor-index-set! + &interface-descriptor-index-set!) (%#define-syntax interface-descriptor |[:0:]#interface-descriptor|) - (%#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 __next-interface-index __next-interface-index) + (%#define-runtime + __next-interface-index-lock + __next-interface-index-lock) + (%#define-runtime + __get-next-interface-index + __get-next-interface-index) + (%#define-runtime + interface-descriptor:::init! + interface-descriptor:::init!) + (%#define-runtime prototype-table::t prototype-table::t) + (%#define-runtime prototype-table? prototype-table?) + (%#define-runtime make-prototype-table make-prototype-table) + (%#define-runtime prototype-table-lock prototype-table-lock) + (%#define-runtime prototype-table-table prototype-table-table) + (%#define-runtime prototype-table-lock-set! prototype-table-lock-set!) + (%#define-runtime + prototype-table-table-set! + prototype-table-table-set!) + (%#define-runtime &prototype-table-lock &prototype-table-lock) + (%#define-runtime &prototype-table-table &prototype-table-table) + (%#define-runtime + &prototype-table-lock-set! + &prototype-table-lock-set!) + (%#define-runtime + &prototype-table-table-set! + &prototype-table-table-set!) + (%#define-syntax prototype-table |[:0:]#prototype-table|) + (%#define-runtime prototype-table:::init! prototype-table:::init!) + (%#define-runtime __prototype-table-get __prototype-table-get) + (%#define-runtime ____prototype-table-get ____prototype-table-get) (%#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-table-delete! prototype-table-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 ____prototype-table-set! ____prototype-table-set!) (%#define-runtime interface-subclass? interface-subclass?) + (%#define-runtime + class-type-interface-table + class-type-interface-table) (%#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 @cast |[:0:]#@cast|) (%#define-syntax defcast |[:0:]#defcast|) (%#define-runtime cast cast) (%#define-runtime try-cast try-cast) - (%#define-runtime satisfies? satisfies?)) + (%#define-runtime satisfies? satisfies?) + (%#define-runtime with-prototype with-prototype) + (%#define-runtime __with-prototype __with-prototype)) (%#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 index eaaea86174..7f6e00aca9 100644 --- a/src/bootstrap/gerbil/runtime/interface.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/interface.ssxi.ss @@ -80,8 +80,8 @@ package: gerbil/runtime (@class gerbil#interface-instance::t () (object::t t::t) - (__object) - (__object) + (object) + (object) #f #t #f @@ -92,31 +92,32 @@ package: gerbil/runtime interface-instance::t (optimizer-resolve-class '(typedecl interface-instance::t) 'class::t)) (declare-type interface-instance? (@predicate interface-instance::t)) + (declare-type make-interface-instance (@constructor interface-instance::t)) (declare-type interface-instance-object - (@accessor interface-instance::t __object #t)) + (@accessor interface-instance::t object #t)) (declare-type interface-instance-object-set! - (@mutator interface-instance::t __object #t)) + (@mutator interface-instance::t object #t)) (declare-type &interface-instance-object - (@accessor interface-instance::t __object #f)) + (@accessor interface-instance::t object #f)) (declare-type &interface-instance-object-set! - (@mutator interface-instance::t __object #f)) + (@mutator interface-instance::t object #f)) (declare-class interface-descriptor::t - (@class gerbil/runtime/interface#interface-descriptor::t + (@class gerbil#interface-descriptor::t () (object::t t::t) - (type methods) - (type methods) - #f + (type methods index) + (type methods index) + :init! #t #t #f #f - #f)) + ((:init! . interface-descriptor:::init!)))) (declare-type interface-descriptor::t (optimizer-resolve-class '(typedecl interface-descriptor::t) 'class::t)) @@ -130,18 +131,27 @@ package: gerbil/runtime (declare-type interface-descriptor-methods (@accessor interface-descriptor::t methods #t)) + (declare-type + interface-descriptor-index + (@accessor interface-descriptor::t index #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-index-set! + (@mutator interface-descriptor::t index #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-index + (@accessor interface-descriptor::t index #f)) (declare-type &interface-descriptor-type-set! (@mutator interface-descriptor::t type #f)) @@ -149,8 +159,19 @@ package: gerbil/runtime &interface-descriptor-methods-set! (@mutator interface-descriptor::t methods #f)) (declare-type - __interface-hash-key - (@lambda 1 + &interface-descriptor-index-set! + (@mutator interface-descriptor::t index #f)) + (declare-type + __next-interface-index + (optimizer-resolve-class '(typedecl __next-interface-index) 'fixnum::t)) + (declare-type + __next-interface-index-lock + (optimizer-resolve-class + '(typedecl __next-interface-index-lock) + 'vector::t)) + (declare-type + __get-next-interface-index + (@lambda 0 #f signature: (return: @@ -164,8 +185,8 @@ package: gerbil/runtime origin: gerbil/runtime/interface))) (declare-type - __interface-test-key - (@lambda 2 + interface-descriptor:::init! + (@lambda 3 #f signature: (return: @@ -173,29 +194,48 @@ package: gerbil/runtime effect: #f arguments: - #f + (t::t t::t t::t) unchecked: #f origin: gerbil/runtime/interface))) + (declare-class + prototype-table::t + (@class gerbil#prototype-table::t + () + (object::t t::t) + (lock table) + (lock table) + :init! + #t + #t + #f + #f + ((:init! . prototype-table:::init!)))) (declare-type - make-prototype-table__% - (@lambda 2 - #f - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/interface))) + prototype-table::t + (optimizer-resolve-class '(typedecl prototype-table::t) 'class::t)) + (declare-type prototype-table? (@predicate prototype-table::t)) + (declare-type make-prototype-table (@constructor prototype-table::t)) + (declare-type prototype-table-lock (@accessor prototype-table::t lock #t)) + (declare-type prototype-table-table (@accessor prototype-table::t table #t)) (declare-type - make-prototype-table__0 - (@lambda 0 + prototype-table-lock-set! + (@mutator prototype-table::t lock #t)) + (declare-type + prototype-table-table-set! + (@mutator prototype-table::t table #t)) + (declare-type &prototype-table-lock (@accessor prototype-table::t lock #f)) + (declare-type &prototype-table-table (@accessor prototype-table::t table #f)) + (declare-type + &prototype-table-lock-set! + (@mutator prototype-table::t lock #f)) + (declare-type + &prototype-table-table-set! + (@mutator prototype-table::t table #f)) + (declare-type + prototype-table:::init! + (@lambda 1 #f signature: (return: @@ -203,14 +243,14 @@ package: gerbil/runtime effect: #f arguments: - #f + (t::t) unchecked: #f origin: gerbil/runtime/interface))) (declare-type - make-prototype-table__1 - (@lambda 1 + __prototype-table-get + (@lambda 2 #f signature: (return: @@ -218,56 +258,14 @@ package: gerbil/runtime effect: #f arguments: - #f + (t::t t::t) unchecked: - #f + ____prototype-table-get origin: gerbil/runtime/interface))) (declare-type - make-prototype-table - (@case-lambda - (0 - make-prototype-table__0 - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/interface)) - (1 - make-prototype-table__1 - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/interface)) - (2 - make-prototype-table__% - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/interface)))) - (declare-type - prototype-table-ref - (@lambda 3 + ____prototype-table-get + (@lambda 2 #f signature: (return: @@ -281,7 +279,7 @@ package: gerbil/runtime origin: gerbil/runtime/interface))) (declare-type - prototype-table-set! + __prototype-table-set! (@lambda 3 #f signature: @@ -290,13 +288,13 @@ package: gerbil/runtime effect: #f arguments: - #f + (t::t t::t t::t) unchecked: - #f + ____prototype-table-set! origin: gerbil/runtime/interface))) (declare-type - __prototype-table-set! + ____prototype-table-set! (@lambda 3 #f signature: @@ -311,12 +309,12 @@ package: gerbil/runtime origin: gerbil/runtime/interface))) (declare-type - prototype-table-update! - (@lambda 4 + interface-subclass? + (@lambda 1 #f signature: (return: - t::t + boolean::t effect: #f arguments: @@ -326,8 +324,8 @@ package: gerbil/runtime origin: gerbil/runtime/interface))) (declare-type - __prototype-table-update! - (@lambda 4 + class-type-interface-table + (@lambda 1 #f signature: (return: @@ -341,8 +339,8 @@ package: gerbil/runtime origin: gerbil/runtime/interface))) (declare-type - prototype-table-delete! - (@lambda 2 + create-prototype + (@lambda 3 #f signature: (return: @@ -356,21 +354,12 @@ package: gerbil/runtime origin: gerbil/runtime/interface))) (declare-type - __interface-prototypes-mx - (optimizer-resolve-class '(typedecl __interface-prototypes-mx) 'vector::t)) - (declare-type - __interface-prototypes - (optimizer-resolve-class '(typedecl __interface-prototypes) 't::t)) - (declare-type - __interface-prototypes-key - (optimizer-resolve-class '(typedecl __interface-prototypes-key) 'pair::t)) - (declare-type - interface-subclass? - (@lambda 1 + try-create-prototype + (@lambda 3 #f signature: (return: - boolean::t + t::t effect: #f arguments: @@ -380,8 +369,8 @@ package: gerbil/runtime origin: gerbil/runtime/interface))) (declare-type - create-prototype - (@lambda 3 + cast + (@lambda 2 #f signature: (return: @@ -395,8 +384,8 @@ package: gerbil/runtime origin: gerbil/runtime/interface))) (declare-type - try-create-prototype - (@lambda 3 + try-cast + (@lambda 2 #f signature: (return: @@ -410,7 +399,7 @@ package: gerbil/runtime origin: gerbil/runtime/interface))) (declare-type - cast + satisfies? (@lambda 2 #f signature: @@ -425,8 +414,8 @@ package: gerbil/runtime origin: gerbil/runtime/interface))) (declare-type - try-cast - (@lambda 2 + with-prototype + (@lambda 4 #f signature: (return: @@ -434,14 +423,14 @@ package: gerbil/runtime effect: #f arguments: - #f + (interface-descriptor::t t::t procedure::t procedure::t) unchecked: - #f + __with-prototype origin: gerbil/runtime/interface))) (declare-type - satisfies? - (@lambda 2 + __with-prototype + (@lambda 4 #f signature: (return: diff --git a/src/bootstrap/gerbil/runtime/interface~0.scm b/src/bootstrap/gerbil/runtime/interface~0.scm index 6673693aa1..7dbd682741 100644 --- a/src/bootstrap/gerbil/runtime/interface~0.scm +++ b/src/bootstrap/gerbil/runtime/interface~0.scm @@ -1,22 +1,22 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/interface::timestamp 1756721294) + (define gerbil/runtime/interface::timestamp 1769384627) (begin (define CastError::t - (let ((__tmp113001 (list Error::t))) + (let ((__tmp116649 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/interface#CastError::t 'CastError - __tmp113001 + __tmp116649 '() '() ':init!))) (define CastError? (let () (declare (not safe)) (__make-class-predicate CastError::t))) (define make-CastError - (lambda _%$args112994%_ - (apply make-instance CastError::t _%$args112994%_))) + (lambda _%$args116639%_ + (apply make-instance CastError::t _%$args116639%_))) (define CastError-message (let () (declare (not safe)) @@ -86,76 +86,77 @@ (declare (not safe)) (__bind-method!__% CastError::t ':init! CastError:::init! '#f)) (define raise-cast-error - (lambda (_%where112868%_ _%message112869%_ . _%irritants112870%_) - (let ((__tmp113002 - (let ((__obj112997 + (lambda (_%where116513%_ _%message116514%_ . _%irritants116515%_) + (let ((__tmp116650 + (let ((__obj116642 (let () (declare (not safe)) (##structure CastError::t '#f '#f '#f '#f)))) (let () (declare (not safe)) (CastError:::init! - __obj112997 - _%message112869%_ + __obj116642 + _%message116514%_ 'where: - _%where112868%_ + _%where116513%_ 'irritants: - _%irritants112870%_)) - __obj112997))) + _%irritants116515%_)) + __obj116642))) (declare (not safe)) - (raise __tmp113002)))) + (raise __tmp116650)))) (define interface-cast-error? CastError?) (define interface-instance::t - (let ((__tmp113004 (list)) (__tmp113003 (cons (cons 'struct: '#t) '()))) + (let ((__tmp116652 (list)) (__tmp116651 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#interface-instance::t 'interface-instance - __tmp113004 - '(__object) - __tmp113003 + __tmp116652 + '(object) + __tmp116651 '#f))) (define interface-instance? (let () (declare (not safe)) (__make-class-predicate interface-instance::t))) + (define make-interface-instance + (lambda _%$args116510%_ + (apply make-instance interface-instance::t _%$args116510%_))) (define interface-instance-object (let () (declare (not safe)) - (__make-class-slot-accessor interface-instance::t '__object))) + (__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))) + (__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))) + (__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))) + (__make-class-slot-unchecked-mutator interface-instance::t 'object))) (define interface-descriptor::t - (let ((__tmp113006 (list)) - (__tmp113005 + (let ((__tmp116654 (list)) + (__tmp116653 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type - 'gerbil/runtime/interface#interface-descriptor::t + 'gerbil#interface-descriptor::t 'interface-descriptor - __tmp113006 - '(type methods) - __tmp113005 - '#f))) + __tmp116654 + '(type methods index) + __tmp116653 + ':init!))) (define interface-descriptor? (let () (declare (not safe)) (__make-class-predicate interface-descriptor::t))) (define make-interface-descriptor - (lambda _%$args112865%_ - (apply make-instance interface-descriptor::t _%$args112865%_))) + (lambda _%$args116507%_ + (apply make-instance interface-descriptor::t _%$args116507%_))) (define interface-descriptor-type (let () (declare (not safe)) @@ -164,6 +165,10 @@ (let () (declare (not safe)) (__make-class-slot-accessor interface-descriptor::t 'methods))) + (define interface-descriptor-index + (let () + (declare (not safe)) + (__make-class-slot-accessor interface-descriptor::t 'index))) (define interface-descriptor-type-set! (let () (declare (not safe)) @@ -172,6 +177,10 @@ (let () (declare (not safe)) (__make-class-slot-mutator interface-descriptor::t 'methods))) + (define interface-descriptor-index-set! + (let () + (declare (not safe)) + (__make-class-slot-mutator interface-descriptor::t 'index))) (define &interface-descriptor-type (let () (declare (not safe)) @@ -182,6 +191,10 @@ (__make-class-slot-unchecked-accessor interface-descriptor::t 'methods))) + (define &interface-descriptor-index + (let () + (declare (not safe)) + (__make-class-slot-unchecked-accessor interface-descriptor::t 'index))) (define &interface-descriptor-type-set! (let () (declare (not safe)) @@ -192,1225 +205,1454 @@ (__make-class-slot-unchecked-mutator interface-descriptor::t 'methods))) - (define __interface-hash-key - (lambda (_%key112863%_) - (let ((__tmp113009 - (let ((__tmp113010 - (let () (declare (not safe)) (##car _%key112863%_)))) - (declare (not safe)) - (##symbol-hash __tmp113010))) - (__tmp113007 - (let ((__tmp113008 - (let () (declare (not safe)) (##cdr _%key112863%_)))) - (declare (not safe)) - (##symbol-hash __tmp113008)))) - (declare (not safe)) - (##fxxor __tmp113009 __tmp113007)))) - (define __interface-test-key - (lambda (_%a112860%_ _%b112861%_) - (if (let ((__tmp113012 - (let () (declare (not safe)) (##car _%a112860%_))) - (__tmp113011 - (let () (declare (not safe)) (##car _%b112861%_)))) - (declare (not safe)) - (##eq? __tmp113012 __tmp113011)) - (let ((__tmp113014 - (let () (declare (not safe)) (##cdr _%a112860%_))) - (__tmp113013 - (let () (declare (not safe)) (##cdr _%b112861%_)))) - (declare (not safe)) - (##eq? __tmp113014 __tmp113013)) - '#f))) - (define make-prototype-table__% - (lambda (_%size-hint112841%_ _%seed112843%_) - (let () - (declare (not safe)) - (make-raw-table__% - _%size-hint112841%_ - __interface-hash-key - __interface-test-key - _%seed112843%_)))) - (define make-prototype-table__0 + (define &interface-descriptor-index-set! + (let () + (declare (not safe)) + (__make-class-slot-unchecked-mutator interface-descriptor::t 'index))) + (define __next-interface-index '0) + (define __next-interface-index-lock (vector '0 '#f)) + (define __get-next-interface-index (lambda () - (let* ((_%size-hint112849%_ '#f) (_%seed112851%_ '0)) - (make-prototype-table__% _%size-hint112849%_ _%seed112851%_)))) - (define make-prototype-table__1 - (lambda (_%size-hint112853%_) - (let ((_%seed112855%_ '0)) - (make-prototype-table__% _%size-hint112853%_ _%seed112855%_)))) - (define make-prototype-table - (lambda _g113015_ - (let ((_g113016_ (let () (declare (not safe)) (##length _g113015_)))) - (cond ((let () (declare (not safe)) (##fx= _g113016_ 0)) - (apply make-prototype-table__0 _g113015_)) - ((let () (declare (not safe)) (##fx= _g113016_ 1)) - (apply make-prototype-table__1 _g113015_)) - ((let () (declare (not safe)) (##fx= _g113016_ 2)) - (apply make-prototype-table__% _g113015_)) - (else - (##raise-wrong-number-of-arguments-exception - make-prototype-table - _g113015_)))))) - (define prototype-table-ref - (lambda (_%tab112794%_ _%key112795%_ _%default112796%_) - (let ((_%table112798%_ - (let () (declare (not safe)) (&raw-table-table _%tab112794%_))) - (_%seed112799%_ - (let () (declare (not safe)) (&raw-table-seed _%tab112794%_)))) - (let* ((_%h112801%_ - (fxxor (__interface-hash-key _%key112795%_) _%seed112799%_)) - (_%size112804%_ (vector-length _%table112798%_)) - (_%entries112807%_ - (let () - (declare (not safe)) - (##fxquotient _%size112804%_ '2))) - (_%start112810%_ - (let ((__tmp113017 - (let () - (declare (not safe)) - (##fxmodulo _%h112801%_ _%entries112807%_)))) - (declare (not safe)) - (##fxarithmetic-shift-left __tmp113017 '1)))) - (let _%loop112814%_ ((_%probe112817%_ _%start112810%_) - (_%i112819%_ '1) - (_%deleted112821%_ '#f)) - (let ((_%k112824%_ (vector-ref _%table112798%_ _%probe112817%_))) - (if (eq? _%k112824%_ (macro-unused-obj)) - _%default112796%_ - (if (eq? _%k112824%_ (macro-deleted-obj)) - (_%loop112814%_ - (let ((_%next-probe112829%_ - (fx+ _%start112810%_ - _%i112819%_ - (fx* _%i112819%_ _%i112819%_)))) - (declare (not safe)) - (##fxmodulo _%next-probe112829%_ _%size112804%_)) - (let () (declare (not safe)) (##fx+ _%i112819%_ '1)) - (let ((_%$e112832%_ _%deleted112821%_)) - (if _%$e112832%_ _%$e112832%_ _%probe112817%_))) - (if (__interface-test-key _%key112795%_ _%k112824%_) - (vector-ref - _%table112798%_ - (let () - (declare (not safe)) - (##fx+ _%probe112817%_ '1))) - (_%loop112814%_ - (let ((_%next-probe112837%_ - (fx+ _%start112810%_ - _%i112819%_ - (fx* _%i112819%_ _%i112819%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe112837%_ - _%size112804%_)) - (let () - (declare (not safe)) - (##fx+ _%i112819%_ '1)) - _%deleted112821%_)))))))))) - (define prototype-table-set! - (lambda (_%tab112790%_ _%key112791%_ _%value112792%_) - (if (let ((__tmp113020 - (let () - (declare (not safe)) - (&raw-table-free _%tab112790%_))) - (__tmp113018 - (let ((__tmp113019 - (vector-length + (let () + (declare (not interrupts-enabled)) + (let _%again116487%_ ((_%spin116490%_ '0)) + (if (let ((__tmp116655 + (let () + (declare (not safe)) + (##vector-cas! + __next-interface-index-lock + '0 + '1 + '0)))) + (declare (not safe)) + (##fx= __tmp116655 '0)) + (let ((__tmp116656 (current-thread))) + (declare (not safe)) + (##vector-set! __next-interface-index-lock '1 __tmp116656)) + (if (let () (declare (not safe)) (##fx< _%spin116490%_ '10)) + (let () + (let () (declare (not safe)) (##thread-yield!)) + (_%again116487%_ + (let () + (declare (not safe)) + (##fx+ _%spin116490%_ '1)))) + (let ((_%owner116496%_ (let () (declare (not safe)) - (&raw-table-table _%tab112790%_))))) - (declare (not safe)) - (##fxquotient __tmp113019 '4)))) - (declare (not safe)) - (##fx< __tmp113020 __tmp113018)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab112790%_)) - '#!void) - (__prototype-table-set! _%tab112790%_ _%key112791%_ _%value112792%_))) + (##vector-ref __next-interface-index-lock '1)))) + (if (eq? _%owner116496%_ (macro-current-thread)) + (let () + (declare (not safe)) + (##thread-deadlock-action!)) + (if (macro-thread-end-condvar _%owner116496%_) + (let () + (let () (declare (not safe)) (##thread-yield!)) + (_%again116487%_ '0)) + (let () + (declare (not safe)) + (##thread-deadlock-action!))))))))) + (let ((_%$r116504%_ + (let ((_%index116502%_ __next-interface-index)) + (set! __next-interface-index + (let () + (declare (not safe)) + (##fx+ _%index116502%_ '1))) + _%index116502%_))) + (let () + (declare (not safe)) + (##vector-set! __next-interface-index-lock '1 '#f)) + (let () + (declare (not safe)) + (##vector-cas! __next-interface-index-lock '0 '0 '1)) + _%$r116504%_))) + (define interface-descriptor:::init! + (lambda (_%self116468%_ _%type116469%_ _%methods116470%_) + (let ((_%self116473%_ _%self116468%_)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _%self116473%_ + _%type116469%_ + '1 + '#f + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _%self116473%_ + _%methods116470%_ + '2 + '#f + '#f)) + (let ((__tmp116657 (__get-next-interface-index))) + (declare (not safe)) + (##unchecked-structure-set! + _%self116473%_ + __tmp116657 + '3 + '#f + '#f))))) + (let () + (declare (not safe)) + (__bind-method!__% + interface-descriptor::t + ':init! + interface-descriptor:::init! + '#f)) + (define prototype-table::t + (let ((__tmp116659 (list)) + (__tmp116658 + (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) + (declare (not safe)) + (__make-class-type + 'gerbil#prototype-table::t + 'prototype-table + __tmp116659 + '(lock table) + __tmp116658 + ':init!))) + (define prototype-table? + (let () + (declare (not safe)) + (__make-class-predicate prototype-table::t))) + (define make-prototype-table + (lambda _%$args116343%_ + (apply make-instance prototype-table::t _%$args116343%_))) + (define prototype-table-lock + (let () + (declare (not safe)) + (__make-class-slot-accessor prototype-table::t 'lock))) + (define prototype-table-table + (let () + (declare (not safe)) + (__make-class-slot-accessor prototype-table::t 'table))) + (define prototype-table-lock-set! + (let () + (declare (not safe)) + (__make-class-slot-mutator prototype-table::t 'lock))) + (define prototype-table-table-set! + (let () + (declare (not safe)) + (__make-class-slot-mutator prototype-table::t 'table))) + (define &prototype-table-lock + (let () + (declare (not safe)) + (__make-class-slot-unchecked-accessor prototype-table::t 'lock))) + (define &prototype-table-table + (let () + (declare (not safe)) + (__make-class-slot-unchecked-accessor prototype-table::t 'table))) + (define &prototype-table-lock-set! + (let () + (declare (not safe)) + (__make-class-slot-unchecked-mutator prototype-table::t 'lock))) + (define &prototype-table-table-set! + (let () + (declare (not safe)) + (__make-class-slot-unchecked-mutator prototype-table::t 'table))) + (define prototype-table:::init! + (lambda (_%self116329%_) + (let ((_%self116332%_ _%self116329%_)) + (let ((__tmp116660 (vector '0 '#f))) + (declare (not safe)) + (##unchecked-structure-set! _%self116332%_ __tmp116660 '1 '#f '#f)) + (let ((__tmp116661 + (let () + (declare (not safe)) + (##make-vector __next-interface-index '#f)))) + (declare (not safe)) + (##unchecked-structure-set! + _%self116332%_ + __tmp116661 + '2 + '#f + '#f))))) + (let () + (declare (not safe)) + (__bind-method!__% + prototype-table::t + ':init! + prototype-table:::init! + '#f)) + (define __prototype-table-get + (lambda (_%prototable116186%_ _%descriptor116187%_) + (let* ((_%prototable116190%_ _%prototable116186%_) + (_%descriptor116198%_ _%descriptor116187%_)) + (____prototype-table-get + _%prototable116190%_ + _%descriptor116198%_)))) + (define ____prototype-table-get + (lambda (_%prototable116139%_ _%descriptor116140%_) + (let* ((_%prototable116143%_ _%prototable116139%_) + (_%descriptor116151%_ _%descriptor116140%_)) + (declare (not safe)) + (let ((_%lock116161%_ + (##unchecked-structure-ref _%prototable116143%_ '1 '#f '#f)) + (_%index116162%_ + (##unchecked-structure-ref _%descriptor116151%_ '3 '#f '#f))) + (let () + (declare (not interrupts-enabled)) + (let _%again116166%_ ((_%spin116169%_ '0)) + (if (##fx= (##vector-cas! _%lock116161%_ '0 '1 '0) '0) + (##vector-set! _%lock116161%_ '1 (current-thread)) + (if (##fx< _%spin116169%_ '10) + (let () + (##thread-yield!) + (_%again116166%_ (##fx+ _%spin116169%_ '1))) + (let ((_%owner116175%_ + (##vector-ref _%lock116161%_ '1))) + (if (eq? _%owner116175%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner116175%_) + (let () + (##thread-yield!) + (_%again116166%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r116183%_ + (let ((_%tab116181%_ + (##unchecked-structure-ref + _%prototable116143%_ + '2 + '#f + '#f))) + (if (##fx< _%index116162%_ (vector-length _%tab116181%_)) + (vector-ref _%tab116181%_ _%index116162%_) + '#f)))) + (##vector-set! _%lock116161%_ '1 '#f) + (##vector-cas! _%lock116161%_ '0 '0 '1) + _%$r116183%_))))) (define __prototype-table-set! - (lambda (_%tab112741%_ _%key112742%_ _%value112743%_) - (let ((_%table112746%_ - (let () (declare (not safe)) (&raw-table-table _%tab112741%_))) - (_%seed112747%_ - (let () (declare (not safe)) (&raw-table-seed _%tab112741%_)))) - (let* ((_%h112749%_ - (fxxor (__interface-hash-key _%key112742%_) _%seed112747%_)) - (_%size112752%_ (vector-length _%table112746%_)) - (_%entries112755%_ - (let () - (declare (not safe)) - (##fxquotient _%size112752%_ '2))) - (_%start112758%_ - (let ((__tmp113021 - (let () - (declare (not safe)) - (##fxmodulo _%h112749%_ _%entries112755%_)))) - (declare (not safe)) - (##fxarithmetic-shift-left __tmp113021 '1)))) - (let _%loop112762%_ ((_%probe112765%_ _%start112758%_) - (_%i112767%_ '1) - (_%deleted112769%_ '#f)) - (let ((_%k112772%_ (vector-ref _%table112746%_ _%probe112765%_))) - (if (eq? _%k112772%_ (macro-unused-obj)) - (if _%deleted112769%_ - (begin - (vector-set! - _%table112746%_ - _%deleted112769%_ - _%key112742%_) - (vector-set! - _%table112746%_ - (let () - (declare (not safe)) - (##fx+ _%deleted112769%_ '1)) - _%value112743%_) - ((lambda () - (let ((__tmp113022 - (let ((__tmp113023 - (let () - (declare (not safe)) - (&raw-table-count - _%tab112741%_)))) - (declare (not safe)) - (##fx+ __tmp113023 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab112741%_ - __tmp113022))))) - (begin - (vector-set! - _%table112746%_ - _%probe112765%_ - _%key112742%_) - (vector-set! - _%table112746%_ - (let () - (declare (not safe)) - (##fx+ _%probe112765%_ '1)) - _%value112743%_) - ((lambda () - (let ((__tmp113024 - (let ((__tmp113025 - (let () - (declare (not safe)) - (&raw-table-free _%tab112741%_)))) - (declare (not safe)) - (##fx- __tmp113025 '1)))) - (declare (not safe)) - (&raw-table-free-set! - _%tab112741%_ - __tmp113024)) - (let ((__tmp113026 - (let ((__tmp113027 - (let () - (declare (not safe)) - (&raw-table-count - _%tab112741%_)))) - (declare (not safe)) - (##fx+ __tmp113027 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab112741%_ - __tmp113026)))))) - (if (eq? _%k112772%_ (macro-deleted-obj)) - (_%loop112762%_ - (let ((_%next-probe112779%_ - (fx+ _%start112758%_ - _%i112767%_ - (fx* _%i112767%_ _%i112767%_)))) - (declare (not safe)) - (##fxmodulo _%next-probe112779%_ _%size112752%_)) - (let () (declare (not safe)) (##fx+ _%i112767%_ '1)) - (let ((_%$e112782%_ _%deleted112769%_)) - (if _%$e112782%_ _%$e112782%_ _%probe112765%_))) - (if (__interface-test-key _%key112742%_ _%k112772%_) - (let () - (vector-set! - _%table112746%_ - _%probe112765%_ - _%key112742%_) - (vector-set! - _%table112746%_ - (let () - (declare (not safe)) - (##fx+ _%probe112765%_ '1)) - _%value112743%_)) - (_%loop112762%_ - (let ((_%next-probe112787%_ - (fx+ _%start112758%_ - _%i112767%_ - (fx* _%i112767%_ _%i112767%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe112787%_ - _%size112752%_)) - (let () - (declare (not safe)) - (##fx+ _%i112767%_ '1)) - _%deleted112769%_)))))))))) - (define prototype-table-update! - (lambda (_%tab112736%_ - _%key112737%_ - _%prototype-table-update!112738%_ - _%default112739%_) - (if (let ((__tmp113030 - (let () - (declare (not safe)) - (&raw-table-free _%tab112736%_))) - (__tmp113028 - (let ((__tmp113029 - (vector-length - (let () - (declare (not safe)) - (&raw-table-table _%tab112736%_))))) - (declare (not safe)) - (##fxquotient __tmp113029 '4)))) - (declare (not safe)) - (##fx< __tmp113030 __tmp113028)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab112736%_)) - '#!void) - (__prototype-table-update! - _%tab112736%_ - _%key112737%_ - _%prototype-table-update!112738%_ - _%default112739%_))) - (define __prototype-table-update! - (lambda (_%tab112686%_ - _%key112687%_ - _%prototype-table-update!112688%_ - _%default112689%_) - (let ((_%table112692%_ - (let () (declare (not safe)) (&raw-table-table _%tab112686%_))) - (_%seed112693%_ - (let () (declare (not safe)) (&raw-table-seed _%tab112686%_)))) - (let* ((_%h112695%_ - (fxxor (__interface-hash-key _%key112687%_) _%seed112693%_)) - (_%size112698%_ (vector-length _%table112692%_)) - (_%entries112701%_ - (let () - (declare (not safe)) - (##fxquotient _%size112698%_ '2))) - (_%start112704%_ - (let ((__tmp113031 - (let () - (declare (not safe)) - (##fxmodulo _%h112695%_ _%entries112701%_)))) - (declare (not safe)) - (##fxarithmetic-shift-left __tmp113031 '1)))) - (let _%loop112708%_ ((_%probe112711%_ _%start112704%_) - (_%i112713%_ '1) - (_%deleted112715%_ '#f)) - (let ((_%k112718%_ (vector-ref _%table112692%_ _%probe112711%_))) - (if (eq? _%k112718%_ (macro-unused-obj)) - (if _%deleted112715%_ - (begin - (vector-set! - _%table112692%_ - _%deleted112715%_ - _%key112687%_) - (vector-set! - _%table112692%_ - (let () - (declare (not safe)) - (##fx+ _%deleted112715%_ '1)) - (_%prototype-table-update!112688%_ - _%default112689%_)) - ((lambda () - (let ((__tmp113032 - (let ((__tmp113033 - (let () - (declare (not safe)) - (&raw-table-count - _%tab112686%_)))) - (declare (not safe)) - (##fx+ __tmp113033 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab112686%_ - __tmp113032))))) - (begin - (vector-set! - _%table112692%_ - _%probe112711%_ - _%key112687%_) - (vector-set! - _%table112692%_ - (let () - (declare (not safe)) - (##fx+ _%probe112711%_ '1)) - (_%prototype-table-update!112688%_ - _%default112689%_)) - ((lambda () - (let ((__tmp113034 - (let ((__tmp113035 - (let () - (declare (not safe)) - (&raw-table-free _%tab112686%_)))) - (declare (not safe)) - (##fx- __tmp113035 '1)))) - (declare (not safe)) - (&raw-table-free-set! - _%tab112686%_ - __tmp113034)) - (let ((__tmp113036 - (let ((__tmp113037 - (let () - (declare (not safe)) - (&raw-table-count - _%tab112686%_)))) - (declare (not safe)) - (##fx+ __tmp113037 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab112686%_ - __tmp113036)))))) - (if (eq? _%k112718%_ (macro-deleted-obj)) - (_%loop112708%_ - (let ((_%next-probe112725%_ - (fx+ _%start112704%_ - _%i112713%_ - (fx* _%i112713%_ _%i112713%_)))) - (declare (not safe)) - (##fxmodulo _%next-probe112725%_ _%size112698%_)) - (let () (declare (not safe)) (##fx+ _%i112713%_ '1)) - (let ((_%$e112728%_ _%deleted112715%_)) - (if _%$e112728%_ _%$e112728%_ _%probe112711%_))) - (if (__interface-test-key _%key112687%_ _%k112718%_) - (let () - (vector-set! - _%table112692%_ - _%probe112711%_ - _%key112687%_) - (vector-set! - _%table112692%_ - (let () - (declare (not safe)) - (##fx+ _%probe112711%_ '1)) - (_%prototype-table-update!112688%_ - (vector-ref - _%table112692%_ - (let () - (declare (not safe)) - (##fx+ _%probe112711%_ '1)))))) - (_%loop112708%_ - (let ((_%next-probe112733%_ - (fx+ _%start112704%_ - _%i112713%_ - (fx* _%i112713%_ _%i112713%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe112733%_ - _%size112698%_)) - (let () - (declare (not safe)) - (##fx+ _%i112713%_ '1)) - _%deleted112715%_)))))))))) - (define prototype-table-delete! - (lambda (_%tab112641%_ _%key112643%_) - (let ((_%table112646%_ - (let () (declare (not safe)) (&raw-table-table _%tab112641%_))) - (_%seed112648%_ - (let () (declare (not safe)) (&raw-table-seed _%tab112641%_)))) - (let* ((_%h112651%_ - (fxxor (__interface-hash-key _%key112643%_) _%seed112648%_)) - (_%size112654%_ (vector-length _%table112646%_)) - (_%entries112657%_ - (let () - (declare (not safe)) - (##fxquotient _%size112654%_ '2))) - (_%start112660%_ - (let ((__tmp113038 - (let () - (declare (not safe)) - (##fxmodulo _%h112651%_ _%entries112657%_)))) - (declare (not safe)) - (##fxarithmetic-shift-left __tmp113038 '1)))) - (let _%loop112664%_ ((_%probe112667%_ _%start112660%_) - (_%i112669%_ '1)) - (let ((_%k112672%_ (vector-ref _%table112646%_ _%probe112667%_))) - (if (eq? _%k112672%_ (macro-unused-obj)) - '#!void - (if (eq? _%k112672%_ (macro-deleted-obj)) - (_%loop112664%_ - (let ((_%next-probe112677%_ - (fx+ _%start112660%_ - _%i112669%_ - (fx* _%i112669%_ _%i112669%_)))) - (declare (not safe)) - (##fxmodulo _%next-probe112677%_ _%size112654%_)) - (let () (declare (not safe)) (##fx+ _%i112669%_ '1))) - (if (__interface-test-key _%key112643%_ _%k112672%_) - (let () - (vector-set! - _%table112646%_ - _%probe112667%_ - (macro-deleted-obj)) - (vector-set! - _%table112646%_ - (let () - (declare (not safe)) - (##fx+ _%probe112667%_ '1)) - (macro-absent-obj)) - ((lambda () - (let ((__tmp113039 - (let ((__tmp113040 - (let () - (declare (not safe)) - (&raw-table-count - _%tab112641%_)))) - (declare (not safe)) - (##fx- __tmp113040 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab112641%_ - __tmp113039))))) - (_%loop112664%_ - (let ((_%next-probe112683%_ - (fx+ _%start112660%_ - _%i112669%_ - (fx* _%i112669%_ _%i112669%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe112683%_ - _%size112654%_)) - (let () - (declare (not safe)) - (##fx+ _%i112669%_ '1)))))))))))) - (define __interface-prototypes-mx (vector '0)) - (define __interface-prototypes (make-prototype-table__% '#f '0)) - (define __interface-prototypes-key (cons '#f '#f)) + (lambda (_%prototable116117%_ _%descriptor116118%_ _%prototype116119%_) + (let* ((_%prototable116122%_ _%prototable116117%_) + (_%descriptor116130%_ _%descriptor116118%_)) + (____prototype-table-set! + _%prototable116122%_ + _%descriptor116130%_ + _%prototype116119%_)))) + (define ____prototype-table-set! + (lambda (_%prototable116064%_ _%descriptor116065%_ _%prototype116066%_) + (let* ((_%prototable116069%_ _%prototable116064%_) + (_%descriptor116077%_ _%descriptor116065%_)) + (declare (not safe)) + (let ((_%lock116087%_ + (##unchecked-structure-ref _%prototable116069%_ '1 '#f '#f)) + (_%index116088%_ + (##unchecked-structure-ref _%descriptor116077%_ '3 '#f '#f))) + (let () + (declare (not interrupts-enabled)) + (let _%again116092%_ ((_%spin116095%_ '0)) + (if (##fx= (##vector-cas! _%lock116087%_ '0 '1 '0) '0) + (##vector-set! _%lock116087%_ '1 (current-thread)) + (if (##fx< _%spin116095%_ '10) + (let () + (##thread-yield!) + (_%again116092%_ (##fx+ _%spin116095%_ '1))) + (let ((_%owner116101%_ + (##vector-ref _%lock116087%_ '1))) + (if (eq? _%owner116101%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner116101%_) + (let () + (##thread-yield!) + (_%again116092%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r116114%_ + (let ((_%tab116107%_ + (##unchecked-structure-ref + _%prototable116069%_ + '2 + '#f + '#f))) + (if (##fx< _%index116088%_ (vector-length _%tab116107%_)) + (vector-set! + _%tab116107%_ + _%index116088%_ + _%prototype116066%_) + (let* ((_%new-size116109%_ __next-interface-index) + (_%new-tab116111%_ + (##make-vector _%new-size116109%_ '#f))) + (subvector-move! + _%tab116107%_ + '0 + (vector-length _%tab116107%_) + _%new-tab116111%_ + '0) + (vector-set! + _%new-tab116111%_ + _%index116088%_ + _%prototype116066%_) + (##unchecked-structure-set! + _%prototable116069%_ + _%new-tab116111%_ + '2 + '#f + '#f)))))) + (##vector-set! _%lock116087%_ '1 '#f) + (##vector-cas! _%lock116087%_ '0 '0 '1) + _%$r116114%_))))) (define interface-subclass? - (lambda (_%klass112633%_) - (let ((_%super112634112636%_ - (let () (declare (not safe)) (##type-super _%klass112633%_)))) - (if _%super112634112636%_ - (let ((_%super112639%_ _%super112634112636%_)) - (eq? (let () (declare (not safe)) (##type-id _%super112639%_)) + (lambda (_%klass116057%_) + (let ((_%super116058116060%_ + (let () (declare (not safe)) (##type-super _%klass116057%_)))) + (if _%super116058116060%_ + (let ((_%super116062%_ _%super116058116060%_)) + (eq? (let () (declare (not safe)) (##type-id _%super116062%_)) (let () (declare (not safe)) (##type-id interface-instance::t)))) '#f)))) + (define class-type-interface-table + (lambda (_%klass116049%_) + (let ((_%$e116051%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref _%klass116049%_ '13 '#f '#f)))) + (if _%$e116051%_ + _%$e116051%_ + (let ((_%tab116055%_ + (let ((__obj116646 + (let () + (declare (not safe)) + (##structure prototype-table::t '#f '#f)))) + (prototype-table:::init! __obj116646) + __obj116646))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _%klass116049%_ + _%tab116055%_ + '13 + '#f + '#f)) + _%tab116055%_))))) (define create-prototype - (lambda (_%descriptor112467%_ _%klass112468%_ _%obj-klass112469%_) - (let ((_%method-table112471%_ + (lambda (_%descriptor115889%_ _%klass115890%_ _%obj-klass115891%_) + (let ((_%method-table115893%_ (let () (declare (not safe)) - (specialize-class _%obj-klass112469%_)))) - (let _%loop112474%_ ((_%rest112477%_ + (specialize-class _%obj-klass115891%_)))) + (let _%loop115896%_ ((_%rest115899%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%descriptor112467%_ + _%descriptor115889%_ '2 '#f '#f))) - (_%count112479%_ '0) - (_%methods112481%_ '())) - (let* ((_%rest112483112491%_ _%rest112477%_) - (_%else112485112553%_ + (_%count115901%_ '0) + (_%methods115903%_ '())) + (let* ((_%rest115905115913%_ _%rest115899%_) + (_%else115907115969%_ (lambda () - (let ((_%prototype112499%_ - (let ((__obj112999 - (let ((__tmp113041 + (let ((_%prototype115921%_ + (let ((__obj116647 + (let ((__tmp116662 (let () (declare (not safe)) - (##fx+ _%count112479%_ '2)))) + (##fx+ _%count115901%_ '2)))) (declare (not safe)) (##make-structure - _%klass112468%_ - __tmp113041)))) + _%klass115890%_ + __tmp116662)))) (let () (declare (not safe)) - (object-fill! __obj112999 '#f)) - __obj112999))) - (let _%loop112502%_ ((_%rest112504%_ _%methods112481%_) - (_%off112505%_ + (object-fill! __obj116647 '#f)) + __obj116647))) + (let _%loop115924%_ ((_%rest115926%_ _%methods115903%_) + (_%off115927%_ (let () (declare (not safe)) - (##fx+ _%count112479%_ '1)))) - (let* ((_%rest112507112515%_ _%rest112504%_) - (_%else112509112534%_ + (##fx+ _%count115901%_ '1)))) + (let* ((_%rest115929115937%_ _%rest115926%_) + (_%else115931115950%_ (lambda () - (let ((_%prototype-key112523%_ - (cons (let () - (declare (not safe)) - (##type-id _%klass112468%_)) - (let () - (declare (not safe)) - (##type-id - _%obj-klass112469%_))))) - (let () - (declare (not interrupts-enabled)) - (let _%again112528%_ () - (if (let ((__tmp113042 - (let () - (declare (not safe)) - (##vector-cas! - __interface-prototypes-mx - '0 - '1 - '0)))) - (declare (not safe)) - (##fx= __tmp113042 '0)) - '#!void - (begin - (let () - (declare (not safe)) - (##thread-yield!)) - (_%again112528%_))))) - (prototype-table-set! - __interface-prototypes - _%prototype-key112523%_ - _%prototype112499%_) - (let () - (declare (not safe)) - (##vector-cas! - __interface-prototypes-mx - '0 - '0 - '1)) - ((lambda (_%prototype112532%_) - _%prototype112532%_) - _%prototype112499%_)))) - (_%K112511112541%_ - (lambda (_%rest112537%_ _%method112538%_) + (let ((_%tab115945%_ + (class-type-interface-table + _%obj-klass115891%_))) + (____prototype-table-set! + _%tab115945%_ + _%descriptor115889%_ + _%prototype115921%_) + ((lambda (_%prototype115948%_) + _%prototype115948%_) + _%prototype115921%_)))) + (_%K115933115957%_ + (lambda (_%rest115953%_ _%method115954%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%prototype112499%_ - _%method112538%_ - _%off112505%_ - _%klass112468%_ + _%prototype115921%_ + _%method115954%_ + _%off115927%_ + _%klass115890%_ '#f)) - (_%loop112502%_ - _%rest112537%_ + (_%loop115924%_ + _%rest115953%_ (let () (declare (not safe)) - (##fx- _%off112505%_ '1)))))) - (if (pair? _%rest112507112515%_) - (let ((_%hd112512112544%_ + (##fx- _%off115927%_ '1)))))) + (if (pair? _%rest115929115937%_) + (let ((_%hd115934115960%_ (let () (declare (not safe)) - (##car _%rest112507112515%_))) - (_%tl112513112546%_ + (##car _%rest115929115937%_))) + (_%tl115935115962%_ (let () (declare (not safe)) - (##cdr _%rest112507112515%_)))) - (let* ((_%method112549%_ _%hd112512112544%_) - (_%rest112551%_ _%tl112513112546%_)) - (_%K112511112541%_ - _%rest112551%_ - _%method112549%_))) - (_%else112509112534%_))))))) - (_%K112487112621%_ - (lambda (_%rest112556%_ _%method-spec112557%_) - (if (pair? _%method-spec112557%_) - (let _%loop-inner112561%_ ((_%methods-rest112564%_ - _%method-spec112557%_)) - (let* ((_%methods-rest112566112574%_ - _%methods-rest112564%_) - (_%else112568112586%_ + (##cdr _%rest115929115937%_)))) + (let* ((_%method115965%_ _%hd115934115960%_) + (_%rest115967%_ _%tl115935115962%_)) + (_%K115933115957%_ + _%rest115967%_ + _%method115965%_))) + (_%else115931115950%_))))))) + (_%K115909116037%_ + (lambda (_%rest115972%_ _%method-spec115973%_) + (if (pair? _%method-spec115973%_) + (let _%loop-inner115977%_ ((_%methods-rest115980%_ + _%method-spec115973%_)) + (let* ((_%methods-rest115982115990%_ + _%methods-rest115980%_) + (_%else115984116002%_ (lambda () - ((lambda (_%klass112582%_ - _%obj-klass112583%_ - _%method-name112584%_) - (raise-cast-error - 'create-prototype - '"cannot create interface instance; missing method" - 'interface: - _%klass112582%_ - 'interface-id: - (let () - (declare (not safe)) - (##type-id _%klass112582%_)) - 'class: - _%obj-klass112583%_ - 'class-id: - (let () - (declare (not safe)) - (##type-id _%obj-klass112583%_)) - 'method: - _%method-name112584%_) + (let ((_%tab115998%_ + (class-type-interface-table + _%obj-klass115891%_))) + (____prototype-table-set! + _%tab115998%_ + _%descriptor115889%_ '#!void) - _%klass112468%_ - _%obj-klass112469%_ - _%method-spec112557%_))) - (_%K112570112599%_ - (lambda (_%methods-rest112589%_ - _%method-name112590%_) - (let ((_%$e112593%_ + ((lambda (_%method116000%_) + (raise-cast-error + 'create-prototype + '"cannot create interface prototype; missing method" + 'interface: + _%descriptor115889%_ + 'class: + _%obj-klass115891%_ + 'method: + _%method116000%_) + '#!void) + _%method-spec115973%_)))) + (_%K115986116015%_ + (lambda (_%methods-rest116005%_ + _%method-name116006%_) + (let ((_%$e116009%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table112471%_ - _%method-name112590%_ + _%method-table115893%_ + _%method-name116006%_ '#f)))) - (if _%$e112593%_ - ((lambda (_%method112596%_) - (_%loop112474%_ - _%rest112556%_ + (if _%$e116009%_ + ((lambda (_%method116012%_) + (_%loop115896%_ + _%rest115972%_ (let () (declare (not safe)) - (##fx+ _%count112479%_ '1)) - (cons _%method112596%_ - _%methods112481%_))) - _%$e112593%_) - (_%loop-inner112561%_ - _%methods-rest112589%_)))))) - (if (pair? _%methods-rest112566112574%_) - (let ((_%hd112571112602%_ + (##fx+ _%count115901%_ '1)) + (cons _%method116012%_ + _%methods115903%_))) + _%$e116009%_) + (_%loop-inner115977%_ + _%methods-rest116005%_)))))) + (if (pair? _%methods-rest115982115990%_) + (let ((_%hd115987116018%_ (let () (declare (not safe)) - (##car _%methods-rest112566112574%_))) - (_%tl112572112604%_ + (##car _%methods-rest115982115990%_))) + (_%tl115988116020%_ (let () (declare (not safe)) - (##cdr _%methods-rest112566112574%_)))) - (let* ((_%method-name112607%_ - _%hd112571112602%_) - (_%methods-rest112609%_ - _%tl112572112604%_)) - (_%K112570112599%_ - _%methods-rest112609%_ - _%method-name112607%_))) - (_%else112568112586%_)))) - (let ((_%$e112611%_ + (##cdr _%methods-rest115982115990%_)))) + (let* ((_%method-name116023%_ + _%hd115987116018%_) + (_%methods-rest116025%_ + _%tl115988116020%_)) + (_%K115986116015%_ + _%methods-rest116025%_ + _%method-name116023%_))) + (_%else115984116002%_)))) + (let ((_%$e116027%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table112471%_ - _%method-spec112557%_ + _%method-table115893%_ + _%method-spec115973%_ '#f)))) - (if _%$e112611%_ - ((lambda (_%method112614%_) - (_%loop112474%_ - _%rest112556%_ - (let () - (declare (not safe)) - (##fx+ _%count112479%_ '1)) - (cons _%method112614%_ _%methods112481%_))) - _%$e112611%_) - ((lambda (_%klass112617%_ - _%obj-klass112618%_ - _%method-name112619%_) - (raise-cast-error - 'create-prototype - '"cannot create interface instance; missing method" - 'interface: - _%klass112617%_ - 'interface-id: - (let () - (declare (not safe)) - (##type-id _%klass112617%_)) - 'class: - _%obj-klass112618%_ - 'class-id: + (if _%$e116027%_ + ((lambda (_%method116030%_) + (_%loop115896%_ + _%rest115972%_ (let () (declare (not safe)) - (##type-id _%obj-klass112618%_)) - 'method: - _%method-name112619%_) + (##fx+ _%count115901%_ '1)) + (cons _%method116030%_ _%methods115903%_))) + _%$e116027%_) + (let ((_%tab116033%_ + (class-type-interface-table + _%obj-klass115891%_))) + (____prototype-table-set! + _%tab116033%_ + _%descriptor115889%_ '#!void) - _%klass112468%_ - _%obj-klass112469%_ - _%method-spec112557%_))))))) - (if (pair? _%rest112483112491%_) - (let ((_%hd112488112624%_ + ((lambda (_%method116035%_) + (raise-cast-error + 'create-prototype + '"cannot create interface prototype; missing method" + 'interface: + _%descriptor115889%_ + 'class: + _%obj-klass115891%_ + 'method: + _%method116035%_) + '#!void) + _%method-spec115973%_)))))))) + (if (pair? _%rest115905115913%_) + (let ((_%hd115910116040%_ (let () (declare (not safe)) - (##car _%rest112483112491%_))) - (_%tl112489112626%_ + (##car _%rest115905115913%_))) + (_%tl115911116042%_ (let () (declare (not safe)) - (##cdr _%rest112483112491%_)))) - (let* ((_%method-spec112629%_ _%hd112488112624%_) - (_%rest112631%_ _%tl112489112626%_)) - (_%K112487112621%_ - _%rest112631%_ - _%method-spec112629%_))) - (_%else112485112553%_))))))) + (##cdr _%rest115905115913%_)))) + (let* ((_%method-spec116045%_ _%hd115910116040%_) + (_%rest116047%_ _%tl115911116042%_)) + (_%K115909116037%_ + _%rest116047%_ + _%method-spec116045%_))) + (_%else115907115969%_))))))) (define try-create-prototype - (lambda (_%descriptor112301%_ _%klass112302%_ _%obj-klass112303%_) - (let ((_%method-table112305%_ + (lambda (_%descriptor115729%_ _%klass115730%_ _%obj-klass115731%_) + (let ((_%method-table115733%_ (let () (declare (not safe)) - (specialize-class _%obj-klass112303%_)))) - (let _%loop112308%_ ((_%rest112311%_ + (specialize-class _%obj-klass115731%_)))) + (let _%loop115736%_ ((_%rest115739%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%descriptor112301%_ + _%descriptor115729%_ '2 '#f '#f))) - (_%count112313%_ '0) - (_%methods112315%_ '())) - (let* ((_%rest112317112325%_ _%rest112311%_) - (_%else112319112387%_ + (_%count115741%_ '0) + (_%methods115743%_ '())) + (let* ((_%rest115745115753%_ _%rest115739%_) + (_%else115747115809%_ (lambda () - (let ((_%prototype112333%_ - (let ((__obj113000 - (let ((__tmp113043 + (let ((_%prototype115761%_ + (let ((__obj116648 + (let ((__tmp116663 (let () (declare (not safe)) - (##fx+ _%count112313%_ '2)))) + (##fx+ _%count115741%_ '2)))) (declare (not safe)) (##make-structure - _%klass112302%_ - __tmp113043)))) + _%klass115730%_ + __tmp116663)))) (let () (declare (not safe)) - (object-fill! __obj113000 '#f)) - __obj113000))) - (let _%loop112336%_ ((_%rest112338%_ _%methods112315%_) - (_%off112339%_ + (object-fill! __obj116648 '#f)) + __obj116648))) + (let _%loop115764%_ ((_%rest115766%_ _%methods115743%_) + (_%off115767%_ (let () (declare (not safe)) - (##fx+ _%count112313%_ '1)))) - (let* ((_%rest112341112349%_ _%rest112338%_) - (_%else112343112368%_ + (##fx+ _%count115741%_ '1)))) + (let* ((_%rest115769115777%_ _%rest115766%_) + (_%else115771115790%_ (lambda () - (let ((_%prototype-key112357%_ - (cons (let () - (declare (not safe)) - (##type-id _%klass112302%_)) - (let () - (declare (not safe)) - (##type-id - _%obj-klass112303%_))))) - (let () - (declare (not interrupts-enabled)) - (let _%again112362%_ () - (if (let ((__tmp113044 - (let () - (declare (not safe)) - (##vector-cas! - __interface-prototypes-mx - '0 - '1 - '0)))) - (declare (not safe)) - (##fx= __tmp113044 '0)) - '#!void - (begin - (let () - (declare (not safe)) - (##thread-yield!)) - (_%again112362%_))))) - (prototype-table-set! - __interface-prototypes - _%prototype-key112357%_ - _%prototype112333%_) - (let () - (declare (not safe)) - (##vector-cas! - __interface-prototypes-mx - '0 - '0 - '1)) - ((lambda (_%prototype112366%_) - _%prototype112366%_) - _%prototype112333%_)))) - (_%K112345112375%_ - (lambda (_%rest112371%_ _%method112372%_) + (let ((_%tab115785%_ + (class-type-interface-table + _%obj-klass115731%_))) + (____prototype-table-set! + _%tab115785%_ + _%descriptor115729%_ + _%prototype115761%_) + ((lambda (_%prototype115788%_) + _%prototype115788%_) + _%prototype115761%_)))) + (_%K115773115797%_ + (lambda (_%rest115793%_ _%method115794%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%prototype112333%_ - _%method112372%_ - _%off112339%_ - _%klass112302%_ + _%prototype115761%_ + _%method115794%_ + _%off115767%_ + _%klass115730%_ '#f)) - (_%loop112336%_ - _%rest112371%_ + (_%loop115764%_ + _%rest115793%_ (let () (declare (not safe)) - (##fx- _%off112339%_ '1)))))) - (if (pair? _%rest112341112349%_) - (let ((_%hd112346112378%_ + (##fx- _%off115767%_ '1)))))) + (if (pair? _%rest115769115777%_) + (let ((_%hd115774115800%_ (let () (declare (not safe)) - (##car _%rest112341112349%_))) - (_%tl112347112380%_ + (##car _%rest115769115777%_))) + (_%tl115775115802%_ (let () (declare (not safe)) - (##cdr _%rest112341112349%_)))) - (let* ((_%method112383%_ _%hd112346112378%_) - (_%rest112385%_ _%tl112347112380%_)) - (_%K112345112375%_ - _%rest112385%_ - _%method112383%_))) - (_%else112343112368%_))))))) - (_%K112321112455%_ - (lambda (_%rest112390%_ _%method-spec112391%_) - (if (pair? _%method-spec112391%_) - (let _%loop-inner112395%_ ((_%methods-rest112398%_ - _%method-spec112391%_)) - (let* ((_%methods-rest112400112408%_ - _%methods-rest112398%_) - (_%else112402112420%_ + (##cdr _%rest115769115777%_)))) + (let* ((_%method115805%_ _%hd115774115800%_) + (_%rest115807%_ _%tl115775115802%_)) + (_%K115773115797%_ + _%rest115807%_ + _%method115805%_))) + (_%else115771115790%_))))))) + (_%K115749115877%_ + (lambda (_%rest115812%_ _%method-spec115813%_) + (if (pair? _%method-spec115813%_) + (let _%loop-inner115817%_ ((_%methods-rest115820%_ + _%method-spec115813%_)) + (let* ((_%methods-rest115822115830%_ + _%methods-rest115820%_) + (_%else115824115842%_ (lambda () - ((lambda (_%klass112416%_ - _%obj-klass112417%_ - _%method-name112418%_) - '#f) - _%klass112302%_ - _%obj-klass112303%_ - _%method-spec112391%_))) - (_%K112404112433%_ - (lambda (_%methods-rest112423%_ - _%method-name112424%_) - (let ((_%$e112427%_ + (let ((_%tab115838%_ + (class-type-interface-table + _%obj-klass115731%_))) + (____prototype-table-set! + _%tab115838%_ + _%descriptor115729%_ + '#!void) + ((lambda (_%method115840%_) '#f) + _%method-spec115813%_)))) + (_%K115826115855%_ + (lambda (_%methods-rest115845%_ + _%method-name115846%_) + (let ((_%$e115849%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table112305%_ - _%method-name112424%_ + _%method-table115733%_ + _%method-name115846%_ '#f)))) - (if _%$e112427%_ - ((lambda (_%method112430%_) - (_%loop112308%_ - _%rest112390%_ + (if _%$e115849%_ + ((lambda (_%method115852%_) + (_%loop115736%_ + _%rest115812%_ (let () (declare (not safe)) - (##fx+ _%count112313%_ '1)) - (cons _%method112430%_ - _%methods112315%_))) - _%$e112427%_) - (_%loop-inner112395%_ - _%methods-rest112423%_)))))) - (if (pair? _%methods-rest112400112408%_) - (let ((_%hd112405112436%_ + (##fx+ _%count115741%_ '1)) + (cons _%method115852%_ + _%methods115743%_))) + _%$e115849%_) + (_%loop-inner115817%_ + _%methods-rest115845%_)))))) + (if (pair? _%methods-rest115822115830%_) + (let ((_%hd115827115858%_ (let () (declare (not safe)) - (##car _%methods-rest112400112408%_))) - (_%tl112406112438%_ + (##car _%methods-rest115822115830%_))) + (_%tl115828115860%_ (let () (declare (not safe)) - (##cdr _%methods-rest112400112408%_)))) - (let* ((_%method-name112441%_ - _%hd112405112436%_) - (_%methods-rest112443%_ - _%tl112406112438%_)) - (_%K112404112433%_ - _%methods-rest112443%_ - _%method-name112441%_))) - (_%else112402112420%_)))) - (let ((_%$e112445%_ + (##cdr _%methods-rest115822115830%_)))) + (let* ((_%method-name115863%_ + _%hd115827115858%_) + (_%methods-rest115865%_ + _%tl115828115860%_)) + (_%K115826115855%_ + _%methods-rest115865%_ + _%method-name115863%_))) + (_%else115824115842%_)))) + (let ((_%$e115867%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table112305%_ - _%method-spec112391%_ + _%method-table115733%_ + _%method-spec115813%_ '#f)))) - (if _%$e112445%_ - ((lambda (_%method112448%_) - (_%loop112308%_ - _%rest112390%_ + (if _%$e115867%_ + ((lambda (_%method115870%_) + (_%loop115736%_ + _%rest115812%_ (let () (declare (not safe)) - (##fx+ _%count112313%_ '1)) - (cons _%method112448%_ _%methods112315%_))) - _%$e112445%_) - ((lambda (_%klass112451%_ - _%obj-klass112452%_ - _%method-name112453%_) - '#f) - _%klass112302%_ - _%obj-klass112303%_ - _%method-spec112391%_))))))) - (if (pair? _%rest112317112325%_) - (let ((_%hd112322112458%_ + (##fx+ _%count115741%_ '1)) + (cons _%method115870%_ _%methods115743%_))) + _%$e115867%_) + (let ((_%tab115873%_ + (class-type-interface-table + _%obj-klass115731%_))) + (____prototype-table-set! + _%tab115873%_ + _%descriptor115729%_ + '#!void) + ((lambda (_%method115875%_) '#f) + _%method-spec115813%_)))))))) + (if (pair? _%rest115745115753%_) + (let ((_%hd115750115880%_ (let () (declare (not safe)) - (##car _%rest112317112325%_))) - (_%tl112323112460%_ + (##car _%rest115745115753%_))) + (_%tl115751115882%_ (let () (declare (not safe)) - (##cdr _%rest112317112325%_)))) - (let* ((_%method-spec112463%_ _%hd112322112458%_) - (_%rest112465%_ _%tl112323112460%_)) - (_%K112321112455%_ - _%rest112465%_ - _%method-spec112463%_))) - (_%else112319112387%_))))))) + (##cdr _%rest115745115753%_)))) + (let* ((_%method-spec115885%_ _%hd115750115880%_) + (_%rest115887%_ _%tl115751115882%_)) + (_%K115749115877%_ + _%rest115887%_ + _%method-spec115885%_))) + (_%else115747115809%_))))))) (define cast - (lambda (_%descriptor112259%_ _%obj112261%_) - (declare (not interrupts-enabled)) - (let* ((_%klass112265%_ + (lambda (_%descriptor115635%_ _%obj115637%_) + (let* ((_%klass115640%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor112259%_ '1 '#f '#f))) - (_%klass-id112268%_ - (let () (declare (not safe)) (##type-id _%klass112265%_))) - (_%obj-klass112271%_ - (let () (declare (not safe)) (class-of _%obj112261%_))) - (_%obj-klass-id112274%_ - (let () (declare (not safe)) (##type-id _%obj-klass112271%_)))) - (if (let () - (declare (not safe)) - (##eq? _%klass-id112268%_ _%obj-klass-id112274%_)) - _%obj112261%_ - (if (interface-subclass? _%obj-klass112271%_) - (cast _%descriptor112259%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref - _%obj112261%_ - '1 - '#f - '#f))) - (let () - (let () - (declare (not interrupts-enabled)) - (let _%again112283%_ () - (if (let ((__tmp113045 - (let () - (declare (not safe)) - (##vector-cas! - __interface-prototypes-mx - '0 - '1 - '0)))) - (declare (not safe)) - (##fx= __tmp113045 '0)) - '#!void - (begin - (let () (declare (not safe)) (##thread-yield!)) - (_%again112283%_))))) + (##unchecked-structure-ref _%descriptor115635%_ '1 '#f '#f))) + (_%klass-id115643%_ + (let () (declare (not safe)) (##type-id _%klass115640%_)))) + (let _%loop115647%_ ((_%obj115650%_ _%obj115637%_)) + (declare (not interrupts-enabled)) + (let* ((_%obj-klass115653%_ + (let () (declare (not safe)) (class-of _%obj115650%_))) + (_%obj-klass-id115656%_ (let () (declare (not safe)) - (##set-car! - __interface-prototypes-key - _%klass-id112268%_)) - (let () - (declare (not safe)) - (##set-cdr! - __interface-prototypes-key - _%obj-klass-id112274%_)) - (let ((_%prototype112294%_ - (let ((_%$e112287%_ - (prototype-table-ref - __interface-prototypes - __interface-prototypes-key - '#f))) - (if _%$e112287%_ - ((lambda (_%prototype112290%_) + (##type-id _%obj-klass115653%_)))) + (if (let () + (declare (not safe)) + (##eq? _%klass-id115643%_ _%obj-klass-id115656%_)) + ((lambda (_%obj115661%_) _%obj115661%_) _%obj115650%_) + (if (interface-subclass? _%obj-klass115653%_) + (let* ((_%tab115664%_ + (class-type-interface-table _%obj-klass115653%_)) + (_%$e115667%_ + (____prototype-table-get + _%tab115664%_ + _%descriptor115635%_))) + (if _%$e115667%_ + ((lambda (_%prototype115670%_) + (if (eq? _%prototype115670%_ '#!void) + (_%loop115647%_ (let () (declare (not safe)) - (##vector-cas! - __interface-prototypes-mx - '0 - '0 - '1)) - _%prototype112290%_) - _%$e112287%_) - (let () + (##unchecked-structure-ref + _%obj115650%_ + '1 + '#f + '#f))) + ((lambda (_%descriptor115673%_ + _%prototype115674%_ + _%obj115675%_) + (if _%prototype115674%_ + (let ((_%instance115677%_ + (let () + (declare (not safe)) + (##structure-copy + _%prototype115674%_)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _%instance115677%_ + _%obj115675%_ + '1 + '#f + 'cast)) + _%instance115677%_) + (begin + (raise-cast-error + 'cast + '"cannot create interface prototype" + 'interface: + _%descriptor115673%_ + 'class: + (let () + (declare (not safe)) + (class-of _%obj115675%_))) + '#!void))) + _%descriptor115635%_ + _%prototype115670%_ + _%obj115650%_))) + _%$e115667%_) + (let ((_%$e115679%_ + (try-create-prototype + _%descriptor115635%_ + _%klass115640%_ + _%obj-klass115653%_))) + (if _%$e115679%_ + ((lambda (_%prototype115682%_) + ((lambda (_%descriptor115684%_ + _%prototype115685%_ + _%obj115686%_) + (if _%prototype115685%_ + (let ((_%instance115688%_ + (let () + (declare (not safe)) + (##structure-copy + _%prototype115685%_)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _%instance115688%_ + _%obj115686%_ + '1 + '#f + 'cast)) + _%instance115688%_) + (begin + (raise-cast-error + 'cast + '"cannot create interface prototype" + 'interface: + _%descriptor115684%_ + 'class: + (let () + (declare (not safe)) + (class-of _%obj115686%_))) + '#!void))) + _%descriptor115635%_ + _%prototype115682%_ + _%obj115650%_)) + _%$e115679%_) + (_%loop115647%_ (let () (declare (not safe)) - (##vector-cas! - __interface-prototypes-mx - '0 - '0 - '1)) + (##unchecked-structure-ref + _%obj115650%_ + '1 + '#f + '#f))))))) + (let* ((_%tab115692%_ + (class-type-interface-table _%obj-klass115653%_)) + (_%$e115694%_ + (____prototype-table-get + _%tab115692%_ + _%descriptor115635%_))) + (if _%$e115694%_ + ((lambda (_%prototype115697%_) + (if (eq? _%prototype115697%_ '#!void) + ((lambda (_%descriptor115699%_ + _%prototype115700%_ + _%obj115701%_) + (if _%prototype115700%_ + (let ((_%instance115703%_ + (let () + (declare (not safe)) + (##structure-copy + _%prototype115700%_)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _%instance115703%_ + _%obj115701%_ + '1 + '#f + 'cast)) + _%instance115703%_) + (begin + (raise-cast-error + 'cast + '"cannot create interface prototype" + 'interface: + _%descriptor115699%_ + 'class: + (let () + (declare (not safe)) + (class-of _%obj115701%_))) + '#!void))) + _%descriptor115635%_ + '#f + _%obj115650%_) + ((lambda (_%descriptor115705%_ + _%prototype115706%_ + _%obj115707%_) + (if _%prototype115706%_ + (let ((_%instance115709%_ + (let () + (declare (not safe)) + (##structure-copy + _%prototype115706%_)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _%instance115709%_ + _%obj115707%_ + '1 + '#f + 'cast)) + _%instance115709%_) + (begin + (raise-cast-error + 'cast + '"cannot create interface prototype" + 'interface: + _%descriptor115705%_ + 'class: + (let () + (declare (not safe)) + (class-of _%obj115707%_))) + '#!void))) + _%descriptor115635%_ + _%prototype115697%_ + _%obj115650%_))) + _%$e115694%_) + (let ((_%$e115711%_ (create-prototype - _%descriptor112259%_ - _%klass112265%_ - _%obj-klass112271%_)))))) - ((lambda (_%prototype112296%_ _%obj112297%_) - (let ((_%instance112299%_ - (let () - (declare (not safe)) - (##structure-copy _%prototype112296%_)))) - (let () - (declare (not safe)) - (##unchecked-structure-set! - _%instance112299%_ - _%obj112297%_ - '1 - '#f - 'cast)) - _%instance112299%_)) - _%prototype112294%_ - _%obj112261%_)))))))) + _%descriptor115635%_ + _%klass115640%_ + _%obj-klass115653%_))) + (if _%$e115711%_ + ((lambda (_%prototype115714%_) + ((lambda (_%descriptor115716%_ + _%prototype115717%_ + _%obj115718%_) + (if _%prototype115717%_ + (let ((_%instance115720%_ + (let () + (declare (not safe)) + (##structure-copy + _%prototype115717%_)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _%instance115720%_ + _%obj115718%_ + '1 + '#f + 'cast)) + _%instance115720%_) + (begin + (raise-cast-error + 'cast + '"cannot create interface prototype" + 'interface: + _%descriptor115716%_ + 'class: + (let () + (declare (not safe)) + (class-of _%obj115718%_))) + '#!void))) + _%descriptor115635%_ + _%prototype115714%_ + _%obj115650%_)) + _%$e115711%_) + ((lambda (_%descriptor115723%_ + _%prototype115724%_ + _%obj115725%_) + (if _%prototype115724%_ + (let ((_%instance115727%_ + (let () + (declare (not safe)) + (##structure-copy + _%prototype115724%_)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _%instance115727%_ + _%obj115725%_ + '1 + '#f + 'cast)) + _%instance115727%_) + (begin + (raise-cast-error + 'cast + '"cannot create interface prototype" + 'interface: + _%descriptor115723%_ + 'class: + (let () + (declare (not safe)) + (class-of _%obj115725%_))) + '#!void))) + _%descriptor115635%_ + '#f + _%obj115650%_)))))))))))) (define try-cast - (lambda (_%descriptor112217%_ _%obj112219%_) - (declare (not interrupts-enabled)) - (let* ((_%klass112223%_ + (lambda (_%descriptor115541%_ _%obj115543%_) + (let* ((_%klass115546%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor112217%_ '1 '#f '#f))) - (_%klass-id112226%_ - (let () (declare (not safe)) (##type-id _%klass112223%_))) - (_%obj-klass112229%_ - (let () (declare (not safe)) (class-of _%obj112219%_))) - (_%obj-klass-id112232%_ - (let () (declare (not safe)) (##type-id _%obj-klass112229%_)))) - (if (let () - (declare (not safe)) - (##eq? _%klass-id112226%_ _%obj-klass-id112232%_)) - _%obj112219%_ - (if (interface-subclass? _%obj-klass112229%_) - (try-cast - _%descriptor112217%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref _%obj112219%_ '1 '#f '#f))) - (let () - (let () - (declare (not interrupts-enabled)) - (let _%again112241%_ () - (if (let ((__tmp113046 - (let () - (declare (not safe)) - (##vector-cas! - __interface-prototypes-mx - '0 - '1 - '0)))) - (declare (not safe)) - (##fx= __tmp113046 '0)) - '#!void - (begin - (let () (declare (not safe)) (##thread-yield!)) - (_%again112241%_))))) + (##unchecked-structure-ref _%descriptor115541%_ '1 '#f '#f))) + (_%klass-id115549%_ + (let () (declare (not safe)) (##type-id _%klass115546%_)))) + (let _%loop115553%_ ((_%obj115556%_ _%obj115543%_)) + (declare (not interrupts-enabled)) + (let* ((_%obj-klass115559%_ + (let () (declare (not safe)) (class-of _%obj115556%_))) + (_%obj-klass-id115562%_ (let () (declare (not safe)) - (##set-car! - __interface-prototypes-key - _%klass-id112226%_)) - (let () - (declare (not safe)) - (##set-cdr! - __interface-prototypes-key - _%obj-klass-id112232%_)) - (let ((_%prototype112252%_ - (let ((_%$e112245%_ - (prototype-table-ref - __interface-prototypes - __interface-prototypes-key - '#f))) - (if _%$e112245%_ - ((lambda (_%prototype112248%_) + (##type-id _%obj-klass115559%_)))) + (if (let () + (declare (not safe)) + (##eq? _%klass-id115549%_ _%obj-klass-id115562%_)) + ((lambda (_%obj115567%_) _%obj115567%_) _%obj115556%_) + (if (interface-subclass? _%obj-klass115559%_) + (let* ((_%tab115570%_ + (class-type-interface-table _%obj-klass115559%_)) + (_%$e115573%_ + (____prototype-table-get + _%tab115570%_ + _%descriptor115541%_))) + (if _%$e115573%_ + ((lambda (_%prototype115576%_) + (if (eq? _%prototype115576%_ '#!void) + (_%loop115553%_ (let () (declare (not safe)) - (##vector-cas! - __interface-prototypes-mx - '0 - '0 - '1)) - _%prototype112248%_) - _%$e112245%_) - (let () + (##unchecked-structure-ref + _%obj115556%_ + '1 + '#f + '#f))) + ((lambda (_%descriptor115579%_ + _%prototype115580%_ + _%obj115581%_) + (if _%prototype115580%_ + (let ((_%instance115583%_ + (let () + (declare (not safe)) + (##structure-copy + _%prototype115580%_)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _%instance115583%_ + _%obj115581%_ + '1 + '#f + 'cast)) + _%instance115583%_) + '#f)) + _%descriptor115541%_ + _%prototype115576%_ + _%obj115556%_))) + _%$e115573%_) + (let ((_%$e115585%_ + (try-create-prototype + _%descriptor115541%_ + _%klass115546%_ + _%obj-klass115559%_))) + (if _%$e115585%_ + ((lambda (_%prototype115588%_) + ((lambda (_%descriptor115590%_ + _%prototype115591%_ + _%obj115592%_) + (if _%prototype115591%_ + (let ((_%instance115594%_ + (let () + (declare (not safe)) + (##structure-copy + _%prototype115591%_)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _%instance115594%_ + _%obj115592%_ + '1 + '#f + 'cast)) + _%instance115594%_) + '#f)) + _%descriptor115541%_ + _%prototype115588%_ + _%obj115556%_)) + _%$e115585%_) + (_%loop115553%_ (let () (declare (not safe)) - (##vector-cas! - __interface-prototypes-mx - '0 - '0 - '1)) + (##unchecked-structure-ref + _%obj115556%_ + '1 + '#f + '#f))))))) + (let* ((_%tab115598%_ + (class-type-interface-table _%obj-klass115559%_)) + (_%$e115600%_ + (____prototype-table-get + _%tab115598%_ + _%descriptor115541%_))) + (if _%$e115600%_ + ((lambda (_%prototype115603%_) + (if (eq? _%prototype115603%_ '#!void) + ((lambda (_%descriptor115605%_ + _%prototype115606%_ + _%obj115607%_) + (if _%prototype115606%_ + (let ((_%instance115609%_ + (let () + (declare (not safe)) + (##structure-copy + _%prototype115606%_)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _%instance115609%_ + _%obj115607%_ + '1 + '#f + 'cast)) + _%instance115609%_) + '#f)) + _%descriptor115541%_ + '#f + _%obj115556%_) + ((lambda (_%descriptor115611%_ + _%prototype115612%_ + _%obj115613%_) + (if _%prototype115612%_ + (let ((_%instance115615%_ + (let () + (declare (not safe)) + (##structure-copy + _%prototype115612%_)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _%instance115615%_ + _%obj115613%_ + '1 + '#f + 'cast)) + _%instance115615%_) + '#f)) + _%descriptor115541%_ + _%prototype115603%_ + _%obj115556%_))) + _%$e115600%_) + (let ((_%$e115617%_ (try-create-prototype - _%descriptor112217%_ - _%klass112223%_ - _%obj-klass112229%_)))))) - ((lambda (_%prototype112254%_ _%obj112255%_) - (if _%prototype112254%_ - (let ((_%instance112257%_ - (let () - (declare (not safe)) - (##structure-copy _%prototype112254%_)))) - (let () - (declare (not safe)) - (##unchecked-structure-set! - _%instance112257%_ - _%obj112255%_ - '1 - '#f - 'cast)) - _%instance112257%_) - '#f)) - _%prototype112252%_ - _%obj112219%_)))))))) + _%descriptor115541%_ + _%klass115546%_ + _%obj-klass115559%_))) + (if _%$e115617%_ + ((lambda (_%prototype115620%_) + ((lambda (_%descriptor115622%_ + _%prototype115623%_ + _%obj115624%_) + (if _%prototype115623%_ + (let ((_%instance115626%_ + (let () + (declare (not safe)) + (##structure-copy + _%prototype115623%_)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _%instance115626%_ + _%obj115624%_ + '1 + '#f + 'cast)) + _%instance115626%_) + '#f)) + _%descriptor115541%_ + _%prototype115620%_ + _%obj115556%_)) + _%$e115617%_) + ((lambda (_%descriptor115629%_ + _%prototype115630%_ + _%obj115631%_) + (if _%prototype115630%_ + (let ((_%instance115633%_ + (let () + (declare (not safe)) + (##structure-copy + _%prototype115630%_)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _%instance115633%_ + _%obj115631%_ + '1 + '#f + 'cast)) + _%instance115633%_) + '#f)) + _%descriptor115541%_ + '#f + _%obj115556%_)))))))))))) (define satisfies? - (lambda (_%descriptor112177%_ _%obj112179%_) - (declare (not interrupts-enabled)) - (let* ((_%klass112183%_ + (lambda (_%descriptor115459%_ _%obj115461%_) + (let* ((_%klass115464%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor112177%_ '1 '#f '#f))) - (_%klass-id112186%_ - (let () (declare (not safe)) (##type-id _%klass112183%_))) - (_%obj-klass112189%_ - (let () (declare (not safe)) (class-of _%obj112179%_))) - (_%obj-klass-id112192%_ - (let () (declare (not safe)) (##type-id _%obj-klass112189%_)))) - (if (let () - (declare (not safe)) - (##eq? _%klass-id112186%_ _%obj-klass-id112192%_)) - _%obj112179%_ - (if (interface-subclass? _%obj-klass112189%_) - (satisfies? - _%descriptor112177%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref _%obj112179%_ '1 '#f '#f))) - (let () + (##unchecked-structure-ref _%descriptor115459%_ '1 '#f '#f))) + (_%klass-id115467%_ + (let () (declare (not safe)) (##type-id _%klass115464%_)))) + (let _%loop115471%_ ((_%obj115474%_ _%obj115461%_)) + (declare (not interrupts-enabled)) + (let* ((_%obj-klass115477%_ + (let () (declare (not safe)) (class-of _%obj115474%_))) + (_%obj-klass-id115480%_ (let () - (declare (not interrupts-enabled)) - (let _%again112201%_ () - (if (let ((__tmp113047 + (declare (not safe)) + (##type-id _%obj-klass115477%_)))) + (if (let () + (declare (not safe)) + (##eq? _%klass-id115467%_ _%obj-klass-id115480%_)) + ((lambda (_%obj115485%_) '#t) _%obj115474%_) + (if (interface-subclass? _%obj-klass115477%_) + (let* ((_%tab115488%_ + (class-type-interface-table _%obj-klass115477%_)) + (_%$e115491%_ + (____prototype-table-get + _%tab115488%_ + _%descriptor115459%_))) + (if _%$e115491%_ + ((lambda (_%prototype115494%_) + (if (eq? _%prototype115494%_ '#!void) + (_%loop115471%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%obj115474%_ + '1 + '#f + '#f))) + ((lambda (_%descriptor115497%_ + _%prototype115498%_ + _%obj115499%_) + (if _%prototype115498%_ '#t '#f)) + _%descriptor115459%_ + _%prototype115494%_ + _%obj115474%_))) + _%$e115491%_) + (let ((_%$e115501%_ + (try-create-prototype + _%descriptor115459%_ + _%klass115464%_ + _%obj-klass115477%_))) + (if _%$e115501%_ + ((lambda (_%prototype115504%_) + ((lambda (_%descriptor115506%_ + _%prototype115507%_ + _%obj115508%_) + (if _%prototype115507%_ '#t '#f)) + _%descriptor115459%_ + _%prototype115504%_ + _%obj115474%_)) + _%$e115501%_) + (_%loop115471%_ (let () (declare (not safe)) - (##vector-cas! - __interface-prototypes-mx - '0 + (##unchecked-structure-ref + _%obj115474%_ '1 - '0)))) - (declare (not safe)) - (##fx= __tmp113047 '0)) - '#!void - (begin - (let () (declare (not safe)) (##thread-yield!)) - (_%again112201%_))))) - (let () - (declare (not safe)) - (##set-car! - __interface-prototypes-key - _%klass-id112186%_)) + '#f + '#f))))))) + (let* ((_%tab115512%_ + (class-type-interface-table _%obj-klass115477%_)) + (_%$e115514%_ + (____prototype-table-get + _%tab115512%_ + _%descriptor115459%_))) + (if _%$e115514%_ + ((lambda (_%prototype115517%_) + (if (eq? _%prototype115517%_ '#!void) + ((lambda (_%descriptor115519%_ + _%prototype115520%_ + _%obj115521%_) + (if _%prototype115520%_ '#t '#f)) + _%descriptor115459%_ + '#f + _%obj115474%_) + ((lambda (_%descriptor115523%_ + _%prototype115524%_ + _%obj115525%_) + (if _%prototype115524%_ '#t '#f)) + _%descriptor115459%_ + _%prototype115517%_ + _%obj115474%_))) + _%$e115514%_) + (let ((_%$e115527%_ + (try-create-prototype + _%descriptor115459%_ + _%klass115464%_ + _%obj-klass115477%_))) + (if _%$e115527%_ + ((lambda (_%prototype115530%_) + ((lambda (_%descriptor115532%_ + _%prototype115533%_ + _%obj115534%_) + (if _%prototype115533%_ '#t '#f)) + _%descriptor115459%_ + _%prototype115530%_ + _%obj115474%_)) + _%$e115527%_) + ((lambda (_%descriptor115537%_ + _%prototype115538%_ + _%obj115539%_) + (if _%prototype115538%_ '#t '#f)) + _%descriptor115459%_ + '#f + _%obj115474%_)))))))))))) + (define with-prototype + (lambda (_%descriptor115422%_ + _%obj115423%_ + _%with-prototype+receiver115424%_ + _%with-receiver115425%_) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + _%descriptor115422%_ + 'gerbil#interface-descriptor::t)) + (let ((_%descriptor115429%_ _%descriptor115422%_)) + (if (procedure? _%with-prototype+receiver115424%_) + (let ((_%with-prototype+receiver115439%_ + _%with-prototype+receiver115424%_)) + (if (procedure? _%with-receiver115425%_) + (let ((_%with-receiver115449%_ + _%with-receiver115425%_)) + (__with-prototype + _%descriptor115429%_ + _%obj115423%_ + _%with-prototype+receiver115439%_ + _%with-receiver115449%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/interface.ss\"@235.9-235.22" + 'contract: + 'procedure? + 'value: + _%with-receiver115425%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/interface.ss\"@234.9-234.32" + 'contract: + 'procedure? + 'value: + _%with-prototype+receiver115424%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/interface.ss\"@233.23-233.33" + 'contract: + 'interface-descriptor? + 'value: + _%descriptor115422%_) + '#!void)))) + (define __with-prototype + (lambda (_%descriptor115340%_ + _%obj115341%_ + _%with-prototype+receiver115342%_ + _%with-receiver115343%_) + (let* ((_%descriptor115346%_ _%descriptor115340%_) + (_%with-prototype+receiver115354%_ + _%with-prototype+receiver115342%_) + (_%with-receiver115362%_ _%with-receiver115343%_) + (_%klass115371%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref _%descriptor115346%_ '1 '#f '#f))) + (_%klass-id115374%_ + (let () (declare (not safe)) (##type-id _%klass115371%_)))) + (let _%loop115378%_ ((_%obj115381%_ _%obj115341%_)) + (declare (not interrupts-enabled)) + (let* ((_%obj-klass115384%_ + (let () (declare (not safe)) (class-of _%obj115381%_))) + (_%obj-klass-id115387%_ (let () (declare (not safe)) - (##set-cdr! - __interface-prototypes-key - _%obj-klass-id112192%_)) - (let ((_%prototype112212%_ - (let ((_%$e112205%_ - (prototype-table-ref - __interface-prototypes - __interface-prototypes-key - '#f))) - (if _%$e112205%_ - ((lambda (_%prototype112208%_) + (##type-id _%obj-klass115384%_)))) + (if (let () + (declare (not safe)) + (##eq? _%klass-id115374%_ _%obj-klass-id115387%_)) + (let () + (declare (not safe)) + (_%with-receiver115362%_ _%obj115381%_)) + (if (interface-subclass? _%obj-klass115384%_) + (let* ((_%tab115393%_ + (class-type-interface-table _%obj-klass115384%_)) + (_%$e115396%_ + (____prototype-table-get + _%tab115393%_ + _%descriptor115346%_))) + (if _%$e115396%_ + ((lambda (_%prototype115399%_) + (if (eq? _%prototype115399%_ '#!void) + (_%loop115378%_ (let () (declare (not safe)) - (##vector-cas! - __interface-prototypes-mx - '0 - '0 - '1)) - _%prototype112208%_) - _%$e112205%_) - (let () + (##unchecked-structure-ref + _%obj115381%_ + '1 + '#f + '#f))) (let () (declare (not safe)) - (##vector-cas! - __interface-prototypes-mx - '0 - '0 - '1)) + (_%with-prototype+receiver115354%_ + _%descriptor115346%_ + _%prototype115399%_ + _%obj115381%_)))) + _%$e115396%_) + (let ((_%$e115402%_ (try-create-prototype - _%descriptor112177%_ - _%klass112183%_ - _%obj-klass112189%_)))))) - ((lambda (_%prototype112214%_ _%obj112215%_) - (if _%prototype112214%_ '#t '#f)) - _%prototype112212%_ - _%obj112179%_)))))))))) + _%descriptor115346%_ + _%klass115371%_ + _%obj-klass115384%_))) + (if _%$e115402%_ + ((lambda (_%prototype115405%_) + (let () + (declare (not safe)) + (_%with-prototype+receiver115354%_ + _%descriptor115346%_ + _%prototype115405%_ + _%obj115381%_))) + _%$e115402%_) + (_%loop115378%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%obj115381%_ + '1 + '#f + '#f))))))) + (let* ((_%tab115409%_ + (class-type-interface-table _%obj-klass115384%_)) + (_%$e115411%_ + (____prototype-table-get + _%tab115409%_ + _%descriptor115346%_))) + (if _%$e115411%_ + ((lambda (_%prototype115414%_) + (if (eq? _%prototype115414%_ '#!void) + (let () + (declare (not safe)) + (_%with-prototype+receiver115354%_ + _%descriptor115346%_ + '#f + _%obj115381%_)) + (let () + (declare (not safe)) + (_%with-prototype+receiver115354%_ + _%descriptor115346%_ + _%prototype115414%_ + _%obj115381%_)))) + _%$e115411%_) + (let ((_%$e115416%_ + (create-prototype + _%descriptor115346%_ + _%klass115371%_ + _%obj-klass115384%_))) + (if _%$e115416%_ + ((lambda (_%prototype115419%_) + (let () + (declare (not safe)) + (_%with-prototype+receiver115354%_ + _%descriptor115346%_ + _%prototype115419%_ + _%obj115381%_))) + _%$e115416%_) + (let () + (declare (not safe)) + (_%with-prototype+receiver115354%_ + _%descriptor115346%_ + '#f + _%obj115381%_))))))))))))))) diff --git a/src/bootstrap/gerbil/runtime/interface~1.scm b/src/bootstrap/gerbil/runtime/interface~1.scm index ca9092dee5..53937f4289 100644 --- a/src/bootstrap/gerbil/runtime/interface~1.scm +++ b/src/bootstrap/gerbil/runtime/interface~1.scm @@ -1,225 +1,379 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g113049_| + (define |[1]#_g116665_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g113051_| + (define |[1]#_g116667_| (##structure gx#syntax-quote::t 'CastError::t #f (gx#current-expander-context) '())) - (define |[1]#_g113053_| + (define |[1]#_g116669_| (##structure gx#syntax-quote::t 'make-CastError #f (gx#current-expander-context) '())) - (define |[1]#_g113055_| + (define |[1]#_g116671_| (##structure gx#syntax-quote::t 'CastError? #f (gx#current-expander-context) '())) - (define |[1]#_g113057_| + (define |[1]#_g116673_| (##structure gx#syntax-quote::t 'CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g113058_| + (define |[1]#_g116674_| (##structure gx#syntax-quote::t 'CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g113059_| + (define |[1]#_g116675_| (##structure gx#syntax-quote::t 'CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g113060_| + (define |[1]#_g116676_| (##structure gx#syntax-quote::t 'CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g113062_| + (define |[1]#_g116678_| (##structure gx#syntax-quote::t 'CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113063_| + (define |[1]#_g116679_| (##structure gx#syntax-quote::t 'CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113064_| + (define |[1]#_g116680_| (##structure gx#syntax-quote::t 'CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113065_| + (define |[1]#_g116681_| (##structure gx#syntax-quote::t 'CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113067_| + (define |[1]#_g116683_| (##structure gx#syntax-quote::t '&CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g113068_| + (define |[1]#_g116684_| (##structure gx#syntax-quote::t '&CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g113069_| + (define |[1]#_g116685_| (##structure gx#syntax-quote::t '&CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g113070_| + (define |[1]#_g116686_| (##structure gx#syntax-quote::t '&CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g113072_| + (define |[1]#_g116688_| (##structure gx#syntax-quote::t '&CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113073_| + (define |[1]#_g116689_| (##structure gx#syntax-quote::t '&CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113074_| + (define |[1]#_g116690_| (##structure gx#syntax-quote::t '&CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113075_| + (define |[1]#_g116691_| (##structure gx#syntax-quote::t '&CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113077_| + (define |[1]#_g116693_| + (##structure + gx#syntax-quote::t + 'interface-instance::t + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116695_| + (##structure + gx#syntax-quote::t + 'make-interface-instance + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116697_| + (##structure + gx#syntax-quote::t + 'interface-instance? + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116699_| + (##structure + gx#syntax-quote::t + 'interface-instance-object + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116701_| + (##structure + gx#syntax-quote::t + 'interface-instance-object-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116703_| + (##structure + gx#syntax-quote::t + '&interface-instance-object + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116705_| + (##structure + gx#syntax-quote::t + '&interface-instance-object-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116707_| (##structure gx#syntax-quote::t 'interface-descriptor::t #f (gx#current-expander-context) '())) - (define |[1]#_g113079_| + (define |[1]#_g116709_| (##structure gx#syntax-quote::t 'make-interface-descriptor #f (gx#current-expander-context) '())) - (define |[1]#_g113081_| + (define |[1]#_g116711_| (##structure gx#syntax-quote::t 'interface-descriptor? #f (gx#current-expander-context) '())) - (define |[1]#_g113083_| + (define |[1]#_g116713_| (##structure gx#syntax-quote::t 'interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g113084_| + (define |[1]#_g116714_| (##structure gx#syntax-quote::t 'interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g113086_| + (define |[1]#_g116715_| + (##structure + gx#syntax-quote::t + 'interface-descriptor-index + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116717_| (##structure gx#syntax-quote::t 'interface-descriptor-type-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113087_| + (define |[1]#_g116718_| (##structure gx#syntax-quote::t 'interface-descriptor-methods-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113089_| + (define |[1]#_g116719_| + (##structure + gx#syntax-quote::t + 'interface-descriptor-index-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116721_| (##structure gx#syntax-quote::t '&interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g113090_| + (define |[1]#_g116722_| (##structure gx#syntax-quote::t '&interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g113092_| + (define |[1]#_g116723_| + (##structure + gx#syntax-quote::t + '&interface-descriptor-index + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116725_| (##structure gx#syntax-quote::t '&interface-descriptor-type-set! #f (gx#current-expander-context) '())) - (define |[1]#_g113093_| + (define |[1]#_g116726_| (##structure gx#syntax-quote::t '&interface-descriptor-methods-set! #f (gx#current-expander-context) '())) + (define |[1]#_g116727_| + (##structure + gx#syntax-quote::t + '&interface-descriptor-index-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116729_| + (##structure + gx#syntax-quote::t + 'prototype-table::t + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116731_| + (##structure + gx#syntax-quote::t + 'make-prototype-table + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116733_| + (##structure + gx#syntax-quote::t + 'prototype-table? + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116735_| + (##structure + gx#syntax-quote::t + 'prototype-table-lock + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116736_| + (##structure + gx#syntax-quote::t + 'prototype-table-table + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116738_| + (##structure + gx#syntax-quote::t + 'prototype-table-lock-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116739_| + (##structure + gx#syntax-quote::t + 'prototype-table-table-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116741_| + (##structure + gx#syntax-quote::t + '&prototype-table-lock + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116742_| + (##structure + gx#syntax-quote::t + '&prototype-table-table + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116744_| + (##structure + gx#syntax-quote::t + '&prototype-table-lock-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g116745_| + (##structure + gx#syntax-quote::t + '&prototype-table-table-set! + #f + (gx#current-expander-context) + '())) (begin (define |[:0:]#CastError| - (let ((__obj112996 + (let ((__obj116641 (let () (declare (not safe)) (##structure @@ -248,93 +402,188 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj112996 + __obj116641 'gerbil/runtime/interface#CastError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112996 'CastError '2 '#f '#f)) + (##unchecked-structure-set! __obj116641 'CastError '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112996 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj116641 '() '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj112996 + __obj116641 '(continuation message irritants where) - '6 + '7 '#f '#f)) - (let ((__tmp113048 (cons |[1]#_g113049_| '()))) + (let ((__tmp116664 (cons |[1]#_g116665_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj112996 __tmp113048 '3 '#f '#f)) + (##unchecked-structure-set! __obj116641 __tmp116664 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112996 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj116641 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112996 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj116641 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112996 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj116641 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112996 ':init! '11 '#f '#f)) - (let ((__tmp113050 |[1]#_g113051_|)) + (##unchecked-structure-set! __obj116641 ':init! '12 '#f '#f)) + (let ((__tmp116666 |[1]#_g116667_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112996 __tmp113050 '12 '#f '#f)) - (let ((__tmp113052 |[1]#_g113053_|)) + (##unchecked-structure-set! __obj116641 __tmp116666 '3 '#f '#f)) + (let ((__tmp116668 |[1]#_g116669_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112996 __tmp113052 '13 '#f '#f)) - (let ((__tmp113054 |[1]#_g113055_|)) + (##unchecked-structure-set! __obj116641 __tmp116668 '13 '#f '#f)) + (let ((__tmp116670 |[1]#_g116671_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112996 __tmp113054 '14 '#f '#f)) - (let ((__tmp113056 - (cons (cons 'message |[1]#_g113057_|) - (cons (cons 'irritants |[1]#_g113058_|) - (cons (cons 'where |[1]#_g113059_|) - (cons (cons 'continuation |[1]#_g113060_|) + (##unchecked-structure-set! __obj116641 __tmp116670 '14 '#f '#f)) + (let ((__tmp116672 + (cons (cons 'message |[1]#_g116673_|) + (cons (cons 'irritants |[1]#_g116674_|) + (cons (cons 'where |[1]#_g116675_|) + (cons (cons 'continuation |[1]#_g116676_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj112996 __tmp113056 '15 '#f '#f)) - (let ((__tmp113061 - (cons (cons 'message |[1]#_g113062_|) - (cons (cons 'irritants |[1]#_g113063_|) - (cons (cons 'where |[1]#_g113064_|) - (cons (cons 'continuation |[1]#_g113065_|) + (##unchecked-structure-set! __obj116641 __tmp116672 '15 '#f '#f)) + (let ((__tmp116677 + (cons (cons 'message |[1]#_g116678_|) + (cons (cons 'irritants |[1]#_g116679_|) + (cons (cons 'where |[1]#_g116680_|) + (cons (cons 'continuation |[1]#_g116681_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj112996 __tmp113061 '16 '#f '#f)) - (let ((__tmp113066 - (cons (cons 'message |[1]#_g113067_|) - (cons (cons 'irritants |[1]#_g113068_|) - (cons (cons 'where |[1]#_g113069_|) - (cons (cons 'continuation |[1]#_g113070_|) + (##unchecked-structure-set! __obj116641 __tmp116677 '16 '#f '#f)) + (let ((__tmp116682 + (cons (cons 'message |[1]#_g116683_|) + (cons (cons 'irritants |[1]#_g116684_|) + (cons (cons 'where |[1]#_g116685_|) + (cons (cons 'continuation |[1]#_g116686_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj112996 __tmp113066 '17 '#f '#f)) - (let ((__tmp113071 - (cons (cons 'message |[1]#_g113072_|) - (cons (cons 'irritants |[1]#_g113073_|) - (cons (cons 'where |[1]#_g113074_|) - (cons (cons 'continuation |[1]#_g113075_|) + (##unchecked-structure-set! __obj116641 __tmp116682 '17 '#f '#f)) + (let ((__tmp116687 + (cons (cons 'message |[1]#_g116688_|) + (cons (cons 'irritants |[1]#_g116689_|) + (cons (cons 'where |[1]#_g116690_|) + (cons (cons 'continuation |[1]#_g116691_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj112996 __tmp113071 '18 '#f '#f)) + (##unchecked-structure-set! __obj116641 __tmp116687 '18 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj116641 '() '19 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj116641 '() '21 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj116641 '() '20 '#f '#f)) + __obj116641)) + (define |[:0:]#interface-instance| + (let ((__obj116643 + (let () + (declare (not safe)) + (##structure + gerbil/core/mop~MOP-2#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj116643 + 'gerbil#interface-instance::t + '1 + '#f + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj116643 + 'interface-instance + '2 + '#f + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj116643 '(object) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112996 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj116643 '(object) '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112996 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj116643 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112996 '() '20 '#f '#f)) - __obj112996)) + (##unchecked-structure-set! __obj116643 '#t '8 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj116643 '#f '9 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj116643 '#f '11 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj116643 '#f '12 '#f '#f)) + (let ((__tmp116692 |[1]#_g116693_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj116643 __tmp116692 '3 '#f '#f)) + (let ((__tmp116694 |[1]#_g116695_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj116643 __tmp116694 '13 '#f '#f)) + (let ((__tmp116696 |[1]#_g116697_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj116643 __tmp116696 '14 '#f '#f)) + (let ((__tmp116698 (cons (cons 'object |[1]#_g116699_|) '()))) + (declare (not safe)) + (##unchecked-structure-set! __obj116643 __tmp116698 '15 '#f '#f)) + (let ((__tmp116700 (cons (cons 'object |[1]#_g116701_|) '()))) + (declare (not safe)) + (##unchecked-structure-set! __obj116643 __tmp116700 '16 '#f '#f)) + (let ((__tmp116702 (cons (cons 'object |[1]#_g116703_|) '()))) + (declare (not safe)) + (##unchecked-structure-set! __obj116643 __tmp116702 '17 '#f '#f)) + (let ((__tmp116704 (cons (cons 'object |[1]#_g116705_|) '()))) + (declare (not safe)) + (##unchecked-structure-set! __obj116643 __tmp116704 '18 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj116643 '() '19 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj116643 '() '21 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj116643 '() '20 '#f '#f)) + __obj116643)) (define |[:0:]#interface-descriptor| - (let ((__obj112998 + (let ((__obj116644 (let () (declare (not safe)) (##structure @@ -363,165 +612,277 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj112998 - 'gerbil/runtime/interface#interface-descriptor::t + __obj116644 + 'gerbil#interface-descriptor::t '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj112998 + __obj116644 'interface-descriptor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112998 '(type methods) '4 '#f '#f)) + (##unchecked-structure-set! + __obj116644 + '(type methods index) + '5 + '#f + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj116644 + '(type methods index) + '7 + '#f + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj116644 '() '4 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj116644 '#t '8 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj116644 '#t '9 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj116644 '#f '11 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj116644 ':init! '12 '#f '#f)) + (let ((__tmp116706 |[1]#_g116707_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj116644 __tmp116706 '3 '#f '#f)) + (let ((__tmp116708 |[1]#_g116709_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj116644 __tmp116708 '13 '#f '#f)) + (let ((__tmp116710 |[1]#_g116711_|)) + (declare (not safe)) + (##unchecked-structure-set! __obj116644 __tmp116710 '14 '#f '#f)) + (let ((__tmp116712 + (cons (cons 'type |[1]#_g116713_|) + (cons (cons 'methods |[1]#_g116714_|) + (cons (cons 'index |[1]#_g116715_|) '()))))) + (declare (not safe)) + (##unchecked-structure-set! __obj116644 __tmp116712 '15 '#f '#f)) + (let ((__tmp116716 + (cons (cons 'type |[1]#_g116717_|) + (cons (cons 'methods |[1]#_g116718_|) + (cons (cons 'index |[1]#_g116719_|) '()))))) + (declare (not safe)) + (##unchecked-structure-set! __obj116644 __tmp116716 '16 '#f '#f)) + (let ((__tmp116720 + (cons (cons 'type |[1]#_g116721_|) + (cons (cons 'methods |[1]#_g116722_|) + (cons (cons 'index |[1]#_g116723_|) '()))))) + (declare (not safe)) + (##unchecked-structure-set! __obj116644 __tmp116720 '17 '#f '#f)) + (let ((__tmp116724 + (cons (cons 'type |[1]#_g116725_|) + (cons (cons 'methods |[1]#_g116726_|) + (cons (cons 'index |[1]#_g116727_|) '()))))) + (declare (not safe)) + (##unchecked-structure-set! __obj116644 __tmp116724 '18 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj116644 '() '19 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj116644 '() '21 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj116644 '() '20 '#f '#f)) + __obj116644)) + (define |[:0:]#prototype-table| + (let ((__obj116645 + (let () + (declare (not safe)) + (##structure + gerbil/core/mop~MOP-2#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj116645 + 'gerbil#prototype-table::t + '1 + '#f + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj116645 'prototype-table '2 '#f '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! __obj116645 '(lock table) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112998 '(type methods) '6 '#f '#f)) + (##unchecked-structure-set! __obj116645 '(lock table) '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112998 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj116645 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112998 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj116645 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112998 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj116645 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112998 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj116645 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112998 '#f '11 '#f '#f)) - (let ((__tmp113076 |[1]#_g113077_|)) + (##unchecked-structure-set! __obj116645 ':init! '12 '#f '#f)) + (let ((__tmp116728 |[1]#_g116729_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112998 __tmp113076 '12 '#f '#f)) - (let ((__tmp113078 |[1]#_g113079_|)) + (##unchecked-structure-set! __obj116645 __tmp116728 '3 '#f '#f)) + (let ((__tmp116730 |[1]#_g116731_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112998 __tmp113078 '13 '#f '#f)) - (let ((__tmp113080 |[1]#_g113081_|)) + (##unchecked-structure-set! __obj116645 __tmp116730 '13 '#f '#f)) + (let ((__tmp116732 |[1]#_g116733_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112998 __tmp113080 '14 '#f '#f)) - (let ((__tmp113082 - (cons (cons 'type |[1]#_g113083_|) - (cons (cons 'methods |[1]#_g113084_|) '())))) + (##unchecked-structure-set! __obj116645 __tmp116732 '14 '#f '#f)) + (let ((__tmp116734 + (cons (cons 'lock |[1]#_g116735_|) + (cons (cons 'table |[1]#_g116736_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj112998 __tmp113082 '15 '#f '#f)) - (let ((__tmp113085 - (cons (cons 'type |[1]#_g113086_|) - (cons (cons 'methods |[1]#_g113087_|) '())))) + (##unchecked-structure-set! __obj116645 __tmp116734 '15 '#f '#f)) + (let ((__tmp116737 + (cons (cons 'lock |[1]#_g116738_|) + (cons (cons 'table |[1]#_g116739_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj112998 __tmp113085 '16 '#f '#f)) - (let ((__tmp113088 - (cons (cons 'type |[1]#_g113089_|) - (cons (cons 'methods |[1]#_g113090_|) '())))) + (##unchecked-structure-set! __obj116645 __tmp116737 '16 '#f '#f)) + (let ((__tmp116740 + (cons (cons 'lock |[1]#_g116741_|) + (cons (cons 'table |[1]#_g116742_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj112998 __tmp113088 '17 '#f '#f)) - (let ((__tmp113091 - (cons (cons 'type |[1]#_g113092_|) - (cons (cons 'methods |[1]#_g113093_|) '())))) + (##unchecked-structure-set! __obj116645 __tmp116740 '17 '#f '#f)) + (let ((__tmp116743 + (cons (cons 'lock |[1]#_g116744_|) + (cons (cons 'table |[1]#_g116745_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj112998 __tmp113091 '18 '#f '#f)) + (##unchecked-structure-set! __obj116645 __tmp116743 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112998 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj116645 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112998 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj116645 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112998 '() '20 '#f '#f)) - __obj112998)) + (##unchecked-structure-set! __obj116645 '() '20 '#f '#f)) + __obj116645)) (define |[:0:]#do-create-prototype| - (lambda (_%$stx111942%_) - (let* ((_%g111946111976%_ - (lambda (_%g111947111972%_) + (lambda (_%$stx114952%_) + (let* ((_%g114956114986%_ + (lambda (_%g114957114982%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111947111972%_))) - (_%g111945112074%_ - (lambda (_%g111947111980%_) - (if (gx#stx-pair? _%g111947111980%_) - (let ((_%e111953111983%_ - (gx#syntax-e _%g111947111980%_))) - (let ((_%hd111954111987%_ + _%g114957114982%_))) + (_%g114955115084%_ + (lambda (_%g114957114990%_) + (if (gx#stx-pair? _%g114957114990%_) + (let ((_%e114963114993%_ + (gx#syntax-e _%g114957114990%_))) + (let ((_%hd114964114997%_ (let () (declare (not safe)) - (##car _%e111953111983%_))) - (_%tl111955111990%_ + (##car _%e114963114993%_))) + (_%tl114965115000%_ (let () (declare (not safe)) - (##cdr _%e111953111983%_)))) - (if (gx#stx-pair? _%tl111955111990%_) - (let ((_%e111956111993%_ - (gx#syntax-e _%tl111955111990%_))) - (let ((_%hd111957111997%_ + (##cdr _%e114963114993%_)))) + (if (gx#stx-pair? _%tl114965115000%_) + (let ((_%e114966115003%_ + (gx#syntax-e _%tl114965115000%_))) + (let ((_%hd114967115007%_ (let () (declare (not safe)) - (##car _%e111956111993%_))) - (_%tl111958112000%_ + (##car _%e114966115003%_))) + (_%tl114968115010%_ (let () (declare (not safe)) - (##cdr _%e111956111993%_)))) - (if (gx#stx-pair? _%tl111958112000%_) - (let ((_%e111959112003%_ - (gx#syntax-e _%tl111958112000%_))) - (let ((_%hd111960112007%_ + (##cdr _%e114966115003%_)))) + (if (gx#stx-pair? _%tl114968115010%_) + (let ((_%e114969115013%_ + (gx#syntax-e _%tl114968115010%_))) + (let ((_%hd114970115017%_ (let () (declare (not safe)) - (##car _%e111959112003%_))) - (_%tl111961112010%_ + (##car _%e114969115013%_))) + (_%tl114971115020%_ (let () (declare (not safe)) - (##cdr _%e111959112003%_)))) - (if (gx#stx-pair? _%tl111961112010%_) - (let ((_%e111962112013%_ + (##cdr _%e114969115013%_)))) + (if (gx#stx-pair? _%tl114971115020%_) + (let ((_%e114972115023%_ (gx#syntax-e - _%tl111961112010%_))) - (let ((_%hd111963112017%_ + _%tl114971115020%_))) + (let ((_%hd114973115027%_ (let () (declare (not safe)) - (##car _%e111962112013%_))) - (_%tl111964112020%_ + (##car _%e114972115023%_))) + (_%tl114974115030%_ (let () (declare (not safe)) - (##cdr _%e111962112013%_)))) + (##cdr _%e114972115023%_)))) (if (gx#stx-pair? - _%tl111964112020%_) - (let ((_%e111965112023%_ + _%tl114974115030%_) + (let ((_%e114975115033%_ (gx#syntax-e - _%tl111964112020%_))) - (let ((_%hd111966112027%_ + _%tl114974115030%_))) + (let ((_%hd114976115037%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e111965112023%_))) - (_%tl111967112030%_ + (##car _%e114975115033%_))) + (_%tl114977115040%_ (let () (declare (not safe)) - (##cdr _%e111965112023%_)))) - (if (gx#stx-pair? _%tl111967112030%_) - (let ((_%e111968112033%_ - (gx#syntax-e _%tl111967112030%_))) - (let ((_%hd111969112037%_ + (##cdr _%e114975115033%_)))) + (if (gx#stx-pair? _%tl114977115040%_) + (let ((_%e114978115043%_ + (gx#syntax-e _%tl114977115040%_))) + (let ((_%hd114979115047%_ (let () (declare (not safe)) - (##car _%e111968112033%_))) - (_%tl111970112040%_ + (##car _%e114978115043%_))) + (_%tl114980115050%_ (let () (declare (not safe)) - (##cdr _%e111968112033%_)))) - (if (gx#stx-null? _%tl111970112040%_) - ((lambda (_%L112043%_ - _%L112045%_ - _%L112046%_ - _%L112047%_ - _%L112048%_) + (##cdr _%e114978115043%_)))) + (if (gx#stx-null? _%tl114980115050%_) + ((lambda (_%g114958115053%_ + _%g114959115055%_ + _%g114960115056%_ + _%g114961115057%_ + _%g114962115058%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f @@ -529,7 +890,7 @@ (cons (cons (gx#datum->syntax '#f 'specialize-class) - (cons _%L112046%_ + (cons _%g114960115056%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -547,7 +908,8 @@ (cons (cons (gx#datum->syntax '#f '&interface-descriptor-methods) - (cons _%L112048%_ '())) + (cons _%g114962115058%_ + '())) '())) (cons (cons (gx#datum->syntax '#f 'count) (cons '0 '())) @@ -662,13 +1024,36 @@ (cons (cons (gx#datum->syntax '#f 'else) - (cons (cons _%L112043%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L112047%_ - (cons _%L112046%_ - (cons (gx#datum->syntax + '#f + 'let) + (cons (cons (gx#datum->syntax '#f 'tab) + (cons (cons (gx#datum->syntax + '#f + 'class-type-interface-table) + (cons _%g114960115056%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())) + (cons (cons (gx#datum->syntax '#f - 'method-spec) + '__prototype-table-set!) + (cons (gx#datum->syntax + '#f + 'tab) + (cons _%g114962115058%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons '#!void '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons _%g114958115053%_ + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'method-spec) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) '())))) @@ -717,13 +1102,28 @@ (cons (cons (gx#datum->syntax '#f 'else) - (cons (cons _%L112043%_ + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L112047%_ - (cons _%L112046%_ - (cons (gx#datum->syntax + '#f + 'let) + (cons (cons (gx#datum->syntax '#f 'tab) + (cons (cons (gx#datum->syntax + '#f + 'class-type-interface-table) + (cons _%g114960115056%_ + '())) + '())) + (cons (cons (gx#datum->syntax '#f - 'method-spec) + '__prototype-table-set!) + (cons (gx#datum->syntax '#f 'tab) + (cons _%g114962115058%_ + (cons '#!void '())))) + (cons (cons _%g114958115053%_ + (cons (gx#datum->syntax + '#f + 'method-spec) + '())) '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -741,7 +1141,7 @@ (cons (cons (gx#datum->syntax '#f 'make-object) - (cons _%L112047%_ + (cons _%g114961115057%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '##fx+) (cons (gx#datum->syntax '#f 'count) @@ -785,7 +1185,7 @@ (cons (gx#datum->syntax '#f 'prototype) (cons (gx#datum->syntax '#f 'method) (cons (gx#datum->syntax '#f 'off) - (cons _%L112047%_ + (cons _%g114961115057%_ (cons '#f '())))))) (cons (cons (gx#datum->syntax '#f 'loop) (cons (gx#datum->syntax '#f 'rest) @@ -806,51 +1206,33 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let) - (cons (cons (gx#datum->syntax - '#f - 'prototype-key) + (cons (cons (gx#datum->syntax '#f 'tab) (cons (cons (gx#datum->syntax '#f - 'cons) - (cons (cons (gx#datum->syntax + 'class-type-interface-table) + (cons _%g114960115056%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##type-id) - (cons _%L112047%_ '())) - (cons (cons (gx#datum->syntax '#f '##type-id) - (cons _%L112046%_ '())) - '()))) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f - '__lock-inline!) + '__prototype-table-set!) (cons (gx#datum->syntax '#f - '__interface-prototypes-mx) - '())) - (cons (cons (gx#datum->syntax - '#f - 'prototype-table-set!) - (cons (gx#datum->syntax + 'tab) + (cons _%g114962115058%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '__interface-prototypes) - (cons (gx#datum->syntax '#f 'prototype-key) - (cons (gx#datum->syntax '#f 'prototype) '())))) + (cons (gx#datum->syntax '#f 'prototype) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax + (cons (cons _%g114959115055%_ + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - '__unlock-inline!) - (cons (gx#datum->syntax - '#f - '__interface-prototypes-mx) - '())) - (cons (cons _%L112045%_ - (cons (gx#datum->syntax '#f 'prototype) '())) - '())))))) + 'prototype) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -863,89 +1245,139 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd111969112037%_ - _%hd111966112027%_ - _%hd111963112017%_ - _%hd111960112007%_ - _%hd111957111997%_) - (_%g111946111976%_ _%g111947111980%_)))) - (_%g111946111976%_ _%g111947111980%_)))) - (_%g111946111976%_ _%g111947111980%_)))) + _%hd114979115047%_ + _%hd114976115037%_ + _%hd114973115027%_ + _%hd114970115017%_ + _%hd114967115007%_) + (_%g114956114986%_ _%g114957114990%_)))) + (_%g114956114986%_ _%g114957114990%_)))) + (_%g114956114986%_ _%g114957114990%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g111946111976%_ - _%g111947111980%_)))) - (_%g111946111976%_ _%g111947111980%_)))) - (_%g111946111976%_ _%g111947111980%_)))) - (_%g111946111976%_ _%g111947111980%_))))) - (_%g111945112074%_ _%$stx111942%_)))) - (define |[:0:]#defcast| - (lambda (_%$stx112078%_) - (let* ((_%g112082112104%_ - (lambda (_%g112083112100%_) + (_%g114956114986%_ + _%g114957114990%_)))) + (_%g114956114986%_ _%g114957114990%_)))) + (_%g114956114986%_ _%g114957114990%_)))) + (_%g114956114986%_ _%g114957114990%_))))) + (_%g114955115084%_ _%$stx114952%_)))) + (define |[:0:]#@cast| + (lambda (_%$stx115088%_) + (let* ((_%g115092115122%_ + (lambda (_%g115093115118%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g112083112100%_))) - (_%g112081112173%_ - (lambda (_%g112083112108%_) - (if (gx#stx-pair? _%g112083112108%_) - (let ((_%e112087112111%_ - (gx#syntax-e _%g112083112108%_))) - (let ((_%hd112088112115%_ + _%g115093115118%_))) + (_%g115091115219%_ + (lambda (_%g115093115126%_) + (if (gx#stx-pair? _%g115093115126%_) + (let ((_%e115099115129%_ + (gx#syntax-e _%g115093115126%_))) + (let ((_%hd115100115133%_ (let () (declare (not safe)) - (##car _%e112087112111%_))) - (_%tl112089112118%_ + (##car _%e115099115129%_))) + (_%tl115101115136%_ (let () (declare (not safe)) - (##cdr _%e112087112111%_)))) - (if (gx#stx-pair? _%tl112089112118%_) - (let ((_%e112090112121%_ - (gx#syntax-e _%tl112089112118%_))) - (let ((_%hd112091112125%_ + (##cdr _%e115099115129%_)))) + (if (gx#stx-pair? _%tl115101115136%_) + (let ((_%e115102115139%_ + (gx#syntax-e _%tl115101115136%_))) + (let ((_%hd115103115143%_ (let () (declare (not safe)) - (##car _%e112090112121%_))) - (_%tl112092112128%_ + (##car _%e115102115139%_))) + (_%tl115104115146%_ (let () (declare (not safe)) - (##cdr _%e112090112121%_)))) - (if (gx#stx-pair? _%tl112092112128%_) - (let ((_%e112093112131%_ - (gx#syntax-e _%tl112092112128%_))) - (let ((_%hd112094112135%_ + (##cdr _%e115102115139%_)))) + (if (gx#stx-pair? _%tl115104115146%_) + (let ((_%e115105115149%_ + (gx#syntax-e _%tl115104115146%_))) + (let ((_%hd115106115153%_ (let () (declare (not safe)) - (##car _%e112093112131%_))) - (_%tl112095112138%_ + (##car _%e115105115149%_))) + (_%tl115107115156%_ (let () (declare (not safe)) - (##cdr _%e112093112131%_)))) - (if (gx#stx-pair? _%tl112095112138%_) - (let ((_%e112096112141%_ + (##cdr _%e115105115149%_)))) + (if (gx#stx-pair? _%tl115107115156%_) + (let ((_%e115108115159%_ (gx#syntax-e - _%tl112095112138%_))) - (let ((_%hd112097112145%_ + _%tl115107115156%_))) + (let ((_%hd115109115163%_ (let () (declare (not safe)) - (##car _%e112096112141%_))) - (_%tl112098112148%_ + (##car _%e115108115159%_))) + (_%tl115110115166%_ (let () (declare (not safe)) - (##cdr _%e112096112141%_)))) - (if (gx#stx-null? - _%tl112098112148%_) - ((lambda (_%L112151%_ - _%L112153%_ - _%L112154%_) + (##cdr _%e115108115159%_)))) + (if (gx#stx-pair? + _%tl115110115166%_) + (let ((_%e115111115169%_ + (gx#syntax-e + _%tl115110115166%_))) + (let ((_%hd115112115173%_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##car _%e115111115169%_))) + (_%tl115113115176%_ + (let () + (declare (not safe)) + (##cdr _%e115111115169%_)))) + (if (gx#stx-pair? _%tl115113115176%_) + (let ((_%e115114115179%_ + (gx#syntax-e _%tl115113115176%_))) + (let ((_%hd115115115183%_ + (let () + (declare (not safe)) + (##car _%e115114115179%_))) + (_%tl115116115186%_ + (let () + (declare (not safe)) + (##cdr _%e115114115179%_)))) + (if (gx#stx-null? _%tl115116115186%_) + ((lambda (_%g115094115189%_ + _%g115095115191%_ + _%g115096115192%_ + _%g115097115193%_ + _%g115098115194%_) + (cons (gx#datum->syntax '#f 'let*) + (cons (cons (cons (gx#datum->syntax + '#f + 'klass) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '&interface-descriptor-type) + (cons _%g115098115194%_ '())) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + 'klass-id) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '##type-id) + (cons (gx#datum->syntax '#f 'klass) '())) + '())) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + 'let) (cons (gx#datum->syntax '#f - 'def) - (cons (cons _%L112154%_ + 'loop) + (cons (cons (cons _%g115097115193%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#datum->syntax '#f 'descriptor) - (cons (gx#datum->syntax '#f 'obj) - '()))) + (cons _%g115097115193%_ '())) + '()) (cons (cons (gx#datum->syntax '#f 'declare) (cons (cons (gx#datum->syntax '#f @@ -959,37 +1391,18 @@ (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'klass) - (cons (cons (gx#datum->syntax - '#f - '&interface-descriptor-type) - (cons (gx#datum->syntax '#f 'descriptor) - '())) + 'obj-klass) + (cons (cons (gx#datum->syntax '#f 'class-of) + (cons _%g115097115193%_ '())) '())) - (cons (cons (gx#datum->syntax '#f 'klass-id) + (cons (cons (gx#datum->syntax '#f 'obj-klass-id) (cons (cons (gx#datum->syntax '#f '##type-id) - (cons (gx#datum->syntax '#f 'klass) - '())) - '())) - (cons (cons (gx#datum->syntax '#f 'obj-klass) - (cons (cons (gx#datum->syntax + (cons (gx#datum->syntax '#f - 'class-of) - (cons (gx#datum->syntax - '#f - 'obj) - '())) - '())) - (cons (cons (gx#datum->syntax '#f 'obj-klass-id) - (cons (cons (gx#datum->syntax - '#f - '##type-id) - (cons (gx#datum->syntax - '#f - 'obj-klass) - '())) + 'obj-klass) '())) - '())))) + '())) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -1003,7 +1416,9 @@ '#f 'obj-klass-id) '()))) - (cons (gx#datum->syntax '#f 'obj) '())) + (cons (cons _%g115094115189%_ + (cons _%g115097115193%_ '())) + '())) (cons (cons (cons (gx#datum->syntax '#f 'interface-subclass?) @@ -1011,120 +1426,335 @@ '#f 'obj-klass) '())) - (cons (cons _%L112154%_ - (cons (gx#datum->syntax - '#f - 'descriptor) - (cons (cons (gx#datum->syntax + (cons (cons (gx#datum->syntax + '#f + 'let) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '&interface-instance-object) - (cons (gx#datum->syntax '#f 'obj) '())) + '#f + 'tab) + (cons (cons (gx#datum->syntax + '#f + 'class-type-interface-table) + (cons (gx#datum->syntax '#f 'obj-klass) + '())) + '())) + (cons (cons (gx#datum->syntax '#f 'cond) + (cons (cons (cons (gx#datum->syntax + '#f + '__prototype-table-get) + (cons (gx#datum->syntax + '#f + 'tab) + (cons _%g115098115194%_ + '()))) + (cons (gx#datum->syntax '#f '=>) + (cons (cons (gx#datum->syntax + '#f + 'lambda) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'prototype) + '()) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax + '#f + 'void?) + (cons (gx#datum->syntax + '#f + 'prototype) + '())) + (cons (cons (gx#datum->syntax + '#f + 'loop) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '&interface-instance-object) + (cons _%g115097115193%_ '())) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons _%g115095115191%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%g115098115194%_ + (cons (gx#datum->syntax '#f 'prototype) + (cons _%g115097115193%_ '())))) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (cons (gx#datum->syntax + '#f + 'try-create-prototype) + (cons _%g115098115194%_ + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'klass) + (cons (gx#datum->syntax '#f 'obj-klass) '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (gx#datum->syntax + '#f + '=>) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'lambda) + (cons (cons (gx#datum->syntax '#f 'prototype) '()) + (cons (cons _%g115095115191%_ + (cons _%g115098115194%_ + (cons (gx#datum->syntax + '#f + 'prototype) + (cons _%g115097115193%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + 'else) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'loop) + (cons (cons (gx#datum->syntax + '#f + '&interface-instance-object) + (cons _%g115097115193%_ '())) + '())) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'else) (cons (cons (gx#datum->syntax '#f - '__lock-inline!) - (cons (gx#datum->syntax + 'let) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '__interface-prototypes-mx) - '())) - (cons (cons (gx#datum->syntax '#f '##set-car!) - (cons (gx#datum->syntax '#f - '__interface-prototypes-key) - (cons (gx#datum->syntax '#f 'klass-id) '()))) - (cons (cons (gx#datum->syntax '#f '##set-cdr!) - (cons (gx#datum->syntax - '#f - '__interface-prototypes-key) - (cons (gx#datum->syntax + 'tab) + (cons (cons (gx#datum->syntax '#f - 'obj-klass-id) - '()))) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (gx#datum->syntax + 'class-type-interface-table) + (cons (gx#datum->syntax '#f - 'prototype) - (cons (cons (gx#datum->syntax + 'obj-klass) + '())) + '())) + (cons (cons (gx#datum->syntax '#f 'cond) + (cons (cons (cons (gx#datum->syntax + '#f + '__prototype-table-get) + (cons (gx#datum->syntax '#f - 'cond) - (cons (cons (cons (gx#datum->syntax + 'tab) + (cons _%g115098115194%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'prototype-table-ref) - (cons (gx#datum->syntax - '#f - '__interface-prototypes) - (cons (gx#datum->syntax - '#f - '__interface-prototypes-key) - (cons '#f '())))) - (cons (gx#datum->syntax '#f '=>) - (cons (cons (gx#datum->syntax - '#f - 'lambda) - (cons (cons (gx#datum->syntax + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (gx#datum->syntax + '#f + '=>) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'lambda) + (cons (cons (gx#datum->syntax '#f 'prototype) '()) + (cons (cons (gx#datum->syntax '#f 'if) + (cons (cons (gx#datum->syntax + '#f + 'void?) + (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'prototype) - '()) - (cons (cons (gx#datum->syntax '#f '__unlock-inline!) - (cons (gx#datum->syntax - '#f - '__interface-prototypes-mx) - '())) - (cons (gx#datum->syntax '#f 'prototype) '())))) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons (cons (gx#datum->syntax '#f 'else) - (cons (cons (gx#datum->syntax - '#f - '__unlock-inline!) - (cons (gx#datum->syntax - '#f - '__interface-prototypes-mx) - '())) - (cons (cons _%L112153%_ + (cons (cons _%g115095115191%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%g115098115194%_ + (cons '#f (cons _%g115097115193%_ '())))) + (cons (cons _%g115095115191%_ + (cons _%g115098115194%_ + (cons (gx#datum->syntax '#f 'prototype) + (cons _%g115097115193%_ '())))) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (cons _%g115096115192%_ + (cons _%g115098115194%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (gx#datum->syntax '#f 'klass) + (cons (gx#datum->syntax '#f 'obj-klass) + '())))) + (cons (gx#datum->syntax '#f '=>) + (cons (cons (gx#datum->syntax '#f 'lambda) + (cons (cons (gx#datum->syntax + '#f + 'prototype) + '()) + (cons (cons _%g115095115191%_ + (cons _%g115098115194%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'descriptor) - (cons (gx#datum->syntax '#f 'klass) - (cons (gx#datum->syntax '#f 'obj-klass) '())))) + 'prototype) + (cons _%g115097115193%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))) - '())) + '()))) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L112151%_ - (cons (gx#datum->syntax + (cons (cons (gx#datum->syntax '#f - 'prototype) - (cons (gx#datum->syntax + 'else) + (cons (cons _%g115095115191%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'obj) - '()))) + (cons _%g115098115194%_ + (cons '#f + (cons _%g115097115193%_ '())))) + '())) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))))) + '()))) + '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%hd112097112145%_ - _%hd112094112135%_ - _%hd112091112125%_) - (_%g112082112104%_ _%g112083112108%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g112082112104%_ - _%g112083112108%_)))) - (_%g112082112104%_ _%g112083112108%_)))) - (_%g112082112104%_ _%g112083112108%_)))) - (_%g112082112104%_ _%g112083112108%_))))) - (_%g112081112173%_ _%$stx112078%_)))))) + '())))) + _%hd115115115183%_ + _%hd115112115173%_ + _%hd115109115163%_ + _%hd115106115153%_ + _%hd115103115143%_) + (_%g115092115122%_ _%g115093115126%_)))) + (_%g115092115122%_ _%g115093115126%_)))) + (_%g115092115122%_ _%g115093115126%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g115092115122%_ + _%g115093115126%_)))) + (_%g115092115122%_ _%g115093115126%_)))) + (_%g115092115122%_ _%g115093115126%_)))) + (_%g115092115122%_ _%g115093115126%_))))) + (_%g115091115219%_ _%$stx115088%_)))) + (define |[:0:]#defcast| + (lambda (_%$stx115223%_) + (let* ((_%g115227115253%_ + (lambda (_%g115228115249%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g115228115249%_))) + (_%g115226115336%_ + (lambda (_%g115228115257%_) + (if (gx#stx-pair? _%g115228115257%_) + (let ((_%e115233115260%_ + (gx#syntax-e _%g115228115257%_))) + (let ((_%hd115234115264%_ + (let () + (declare (not safe)) + (##car _%e115233115260%_))) + (_%tl115235115267%_ + (let () + (declare (not safe)) + (##cdr _%e115233115260%_)))) + (if (gx#stx-pair? _%tl115235115267%_) + (let ((_%e115236115270%_ + (gx#syntax-e _%tl115235115267%_))) + (let ((_%hd115237115274%_ + (let () + (declare (not safe)) + (##car _%e115236115270%_))) + (_%tl115238115277%_ + (let () + (declare (not safe)) + (##cdr _%e115236115270%_)))) + (if (gx#stx-pair? _%tl115238115277%_) + (let ((_%e115239115280%_ + (gx#syntax-e _%tl115238115277%_))) + (let ((_%hd115240115284%_ + (let () + (declare (not safe)) + (##car _%e115239115280%_))) + (_%tl115241115287%_ + (let () + (declare (not safe)) + (##cdr _%e115239115280%_)))) + (if (gx#stx-pair? _%tl115241115287%_) + (let ((_%e115242115290%_ + (gx#syntax-e + _%tl115241115287%_))) + (let ((_%hd115243115294%_ + (let () + (declare (not safe)) + (##car _%e115242115290%_))) + (_%tl115244115297%_ + (let () + (declare (not safe)) + (##cdr _%e115242115290%_)))) + (if (gx#stx-pair? + _%tl115244115297%_) + (let ((_%e115245115300%_ + (gx#syntax-e + _%tl115244115297%_))) + (let ((_%hd115246115304%_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##car _%e115245115300%_))) + (_%tl115247115307%_ + (let () + (declare (not safe)) + (##cdr _%e115245115300%_)))) + (if (gx#stx-null? _%tl115247115307%_) + ((lambda (_%g115229115310%_ + _%g115230115312%_ + _%g115231115313%_ + _%g115232115314%_) + (cons (gx#datum->syntax '#f 'def) + (cons (cons _%g115232115314%_ + (cons (gx#datum->syntax + '#f + 'descriptor) + (cons (gx#datum->syntax + '#f + 'obj) + '()))) + (cons (cons (gx#datum->syntax '#f '@cast) + (cons (gx#datum->syntax + '#f + 'descriptor) + (cons (gx#datum->syntax + '#f + 'obj) + (cons _%g115231115313%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%g115230115312%_ + (cons _%g115229115310%_ '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))) + _%hd115246115304%_ + _%hd115243115294%_ + _%hd115240115284%_ + _%hd115237115274%_) + (_%g115227115253%_ _%g115228115257%_)))) + (_%g115227115253%_ _%g115228115257%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g115227115253%_ + _%g115228115257%_)))) + (_%g115227115253%_ _%g115228115257%_)))) + (_%g115227115253%_ _%g115228115257%_)))) + (_%g115227115253%_ _%g115228115257%_))))) + (_%g115226115336%_ _%$stx115223%_)))))) diff --git a/src/bootstrap/gerbil/runtime/loader~0.scm b/src/bootstrap/gerbil/runtime/loader~0.scm index b094a17b67..366bbb239b 100644 --- a/src/bootstrap/gerbil/runtime/loader~0.scm +++ b/src/bootstrap/gerbil/runtime/loader~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/loader::timestamp 1756721295) + (define gerbil/runtime/loader::timestamp 1769384628) (begin (define __modules (let () @@ -34,24 +34,24 @@ (define __load-order-next '1) (define load-path (lambda () __load-path)) (define add-load-path! - (lambda _%paths123877%_ - (if (let () (declare (not safe)) (__andmap1 string? _%paths123877%_)) + (lambda _%paths127645%_ + (if (let () (declare (not safe)) (__andmap1 string? _%paths127645%_)) '#!void (let () (declare (not safe)) (error '"bad load path; expected list of paths" - _%paths123877%_))) - (let ((__tmp123883 - (lambda (_%p123879%_) - (set! __load-path (cons _%p123879%_ __load-path)))) - (__tmp123882 (reverse! _%paths123877%_))) + _%paths127645%_))) + (let ((__tmp127651 + (lambda (_%p127647%_) + (set! __load-path (cons _%p127647%_ __load-path)))) + (__tmp127650 (reverse! _%paths127645%_))) (declare (not safe)) - (##for-each __tmp123883 __tmp123882)))) + (##for-each __tmp127651 __tmp127650)))) (define set-load-path! - (lambda (_%paths123863%_) - (if (list? _%paths123863%_) - (let ((_%paths123867%_ _%paths123863%_)) - (__set-load-path! _%paths123867%_)) + (lambda (_%paths127631%_) + (if (list? _%paths127631%_) + (let ((_%paths127635%_ _%paths127631%_)) + (__set-load-path! _%paths127635%_)) (begin (raise-contract-violation-error '"contract violation" @@ -60,23 +60,23 @@ 'contract: 'list? 'value: - _%paths123863%_) + _%paths127631%_) '#!void)))) (define __set-load-path! - (lambda (_%paths123851%_) - (let ((_%paths123854%_ _%paths123851%_)) - (if (let () (declare (not safe)) (__andmap1 string? _%paths123854%_)) + (lambda (_%paths127619%_) + (let ((_%paths127622%_ _%paths127619%_)) + (if (let () (declare (not safe)) (__andmap1 string? _%paths127622%_)) '#!void (let () (declare (not safe)) (error '"bad load path; expected list of paths" - _%paths123854%_))) - (set! __load-path _%paths123854%_)))) + _%paths127622%_))) + (set! __load-path _%paths127622%_)))) (define load-module - (lambda (_%modpath123837%_) - (if (string? _%modpath123837%_) - (let ((_%modpath123841%_ _%modpath123837%_)) - (__load-module _%modpath123841%_)) + (lambda (_%modpath127605%_) + (if (string? _%modpath127605%_) + (let ((_%modpath127609%_ _%modpath127605%_)) + (__load-module _%modpath127609%_)) (begin (raise-contract-violation-error '"contract violation" @@ -85,108 +85,108 @@ 'contract: 'string? 'value: - _%modpath123837%_) + _%modpath127605%_) '#!void)))) (define __load-module - (lambda (_%modpath123802%_) - (let ((_%modpath123805%_ _%modpath123802%_)) + (lambda (_%modpath127570%_) + (let ((_%modpath127573%_ _%modpath127570%_)) (mutex-lock! __load-mx) - (let ((_%$e123814%_ + (let ((_%$e127582%_ (let () (declare (not safe)) - (__hash-get __modules _%modpath123805%_)))) - (if _%$e123814%_ - ((lambda (_%state123817%_) - (if (or (eq? 'builtin _%state123817%_) - (string? _%state123817%_)) - (let () (mutex-unlock! __load-mx) _%state123817%_) - (if (eq? 'loading _%state123817%_) + (__hash-get __modules _%modpath127573%_)))) + (if _%$e127582%_ + ((lambda (_%state127585%_) + (if (or (eq? 'builtin _%state127585%_) + (string? _%state127585%_)) + (let () (mutex-unlock! __load-mx) _%state127585%_) + (if (eq? 'loading _%state127585%_) (let () (mutex-unlock! __load-mx __load-cv) - (__load-module _%modpath123805%_)) - (if (and (pair? _%state123817%_) + (__load-module _%modpath127573%_)) + (if (and (pair? _%state127585%_) (eq? (let () (declare (not safe)) - (##car _%state123817%_)) + (##car _%state127585%_)) 'error)) (let () (mutex-unlock! __load-mx) - (let ((__tmp123884 (cadr _%state123817%_))) + (let ((__tmp127652 (cadr _%state127585%_))) (declare (not safe)) - (raise __tmp123884))) + (raise __tmp127652))) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"inernal error; unexpected loading state" - _%state123817%_))))))) - _%$e123814%_) - (let ((_%$e123826%_ (__find-library-module _%modpath123805%_))) - (if _%$e123826%_ - ((lambda (_%path123829%_) + _%state127585%_))))))) + _%$e127582%_) + (let ((_%$e127594%_ (__find-library-module _%modpath127573%_))) + (if _%$e127594%_ + ((lambda (_%path127597%_) (let () (declare (not safe)) - (__hash-put! __modules _%modpath123805%_ 'loading)) + (__hash-put! __modules _%modpath127573%_ 'loading)) (mutex-unlock! __load-mx) - (let ((__tmp123886 - (lambda (_%exn123831%_) + (let ((__tmp127654 + (lambda (_%exn127599%_) (mutex-lock! __load-mx) - (let ((__tmp123887 + (let ((__tmp127655 (cons 'error - (cons _%exn123831%_ '())))) + (cons _%exn127599%_ '())))) (declare (not safe)) (__hash-put! __modules - _%modpath123805%_ - __tmp123887)) + _%modpath127573%_ + __tmp127655)) (condition-variable-broadcast! __load-cv) (mutex-unlock! __load-mx) (let () (declare (not safe)) - (raise _%exn123831%_)))) - (__tmp123885 + (raise _%exn127599%_)))) + (__tmp127653 (lambda () - (let ((_%loaded-path123834%_ - (load _%path123829%_))) + (let ((_%loaded-path127602%_ + (load _%path127597%_))) (mutex-lock! __load-mx) (let () (declare (not safe)) (__hash-put! __modules - _%modpath123805%_ - _%loaded-path123834%_)) + _%modpath127573%_ + _%loaded-path127602%_)) (if (let () (declare (not safe)) (__hash-get __load-order - _%modpath123805%_)) + _%modpath127573%_)) '#!void (begin (let () (declare (not safe)) (__hash-put! __load-order - _%modpath123805%_ + _%modpath127573%_ __load-order-next)) (set! __load-order-next (+ __load-order-next '1)))) (condition-variable-broadcast! __load-cv) (mutex-unlock! __load-mx) - _%loaded-path123834%_)))) + _%loaded-path127602%_)))) (declare (not safe)) - (__with-catch __tmp123886 __tmp123885))) - _%$e123826%_) + (__with-catch __tmp127654 __tmp127653))) + _%$e127594%_) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"module not found" - _%modpath123805%_)))))))))) + _%modpath127573%_)))))))))) (define reload-module! - (lambda (_%modpath123788%_) - (if (string? _%modpath123788%_) - (let ((_%modpath123792%_ _%modpath123788%_)) - (__reload-module! _%modpath123792%_)) + (lambda (_%modpath127556%_) + (if (string? _%modpath127556%_) + (let ((_%modpath127560%_ _%modpath127556%_)) + (__reload-module! _%modpath127560%_)) (begin (raise-contract-violation-error '"contract violation" @@ -195,154 +195,154 @@ 'contract: 'string? 'value: - _%modpath123788%_) + _%modpath127556%_) '#!void)))) (define __reload-module! - (lambda (_%modpath123760%_) - (let ((_%modpath123763%_ _%modpath123760%_)) + (lambda (_%modpath127528%_) + (let ((_%modpath127531%_ _%modpath127528%_)) (mutex-lock! __load-mx) - (let ((_%$e123772%_ + (let ((_%$e127540%_ (let () (declare (not safe)) - (__hash-get __modules _%modpath123763%_)))) - (if _%$e123772%_ - ((lambda (_%state123775%_) - (if (eq? _%state123775%_ 'builtin) + (__hash-get __modules _%modpath127531%_)))) + (if _%$e127540%_ + ((lambda (_%state127543%_) + (if (eq? _%state127543%_ 'builtin) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"cannot reload builtin module" - _%modpath123763%_))) - (if (eq? 'loading _%state123775%_) + _%modpath127531%_))) + (if (eq? 'loading _%state127543%_) (let () (mutex-unlock! __load-mx __load-cv) (let () (declare (not safe)) (error '"module is still loading"))) - (if (string? _%state123775%_) - (let ((_%latest-path123780%_ + (if (string? _%state127543%_) + (let ((_%latest-path127548%_ (__find-library-module - _%modpath123763%_))) + _%modpath127531%_))) (if (or (equal? (path-extension - _%state123775%_) + _%state127543%_) '".scm") - (not (equal? _%state123775%_ - _%latest-path123780%_))) + (not (equal? _%state127543%_ + _%latest-path127548%_))) (begin (let () (declare (not safe)) (__hash-remove! __modules - _%modpath123763%_)) + _%modpath127531%_)) (mutex-unlock! __load-mx) - (__load-module _%modpath123763%_)) + (__load-module _%modpath127531%_)) (mutex-unlock! __load-mx))) - (if (and (pair? _%state123775%_) + (if (and (pair? _%state127543%_) (eq? (let () (declare (not safe)) - (##car _%state123775%_)) + (##car _%state127543%_)) 'error)) (let () (let () (declare (not safe)) (__hash-remove! __modules - _%modpath123763%_)) + _%modpath127531%_)) (mutex-unlock! __load-mx) - (__load-module _%modpath123763%_)) + (__load-module _%modpath127531%_)) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"inernal error; unexpected loading state" - _%state123775%_)))))))) - _%$e123772%_) + _%state127543%_)))))))) + _%$e127540%_) (let () (mutex-unlock! __load-mx) - (__load-module _%modpath123763%_))))))) + (__load-module _%modpath127531%_))))))) (define __find-library-module - (lambda (_%modpath123694%_) - (letrec ((_%find-compiled-file123696%_ - (lambda (_%npath123749%_) - (let ((_%basepath123751%_ + (lambda (_%modpath127462%_) + (letrec ((_%find-compiled-file127464%_ + (lambda (_%npath127517%_) + (let ((_%basepath127519%_ (let () (declare (not safe)) - (##string-append _%npath123749%_ '".o")))) - (let _%lp123753%_ ((_%current123755%_ '#f) - (_%n123756%_ '1)) - (let ((_%next123758%_ - (let ((__tmp123888 - (number->string _%n123756%_))) + (##string-append _%npath127517%_ '".o")))) + (let _%lp127521%_ ((_%current127523%_ '#f) + (_%n127524%_ '1)) + (let ((_%next127526%_ + (let ((__tmp127656 + (number->string _%n127524%_))) (declare (not safe)) (##string-append - _%basepath123751%_ - __tmp123888)))) + _%basepath127519%_ + __tmp127656)))) (if (let () (declare (not safe)) - (##file-exists? _%next123758%_)) - (_%lp123753%_ - _%next123758%_ + (##file-exists? _%next127526%_)) + (_%lp127521%_ + _%next127526%_ (let () (declare (not safe)) - (##fx+ _%n123756%_ '1))) - _%current123755%_)))))) - (_%find-source-file123697%_ - (lambda (_%npath123745%_) - (let ((_%spath123747%_ + (##fx+ _%n127524%_ '1))) + _%current127523%_)))))) + (_%find-source-file127465%_ + (lambda (_%npath127513%_) + (let ((_%spath127515%_ (let () (declare (not safe)) - (##string-append _%npath123745%_ '".scm")))) + (##string-append _%npath127513%_ '".scm")))) (if (let () (declare (not safe)) - (##file-exists? _%spath123747%_)) - _%spath123747%_ + (##file-exists? _%spath127515%_)) + _%spath127515%_ '#f))))) - (let _%lp123699%_ ((_%rest123701%_ (load-path))) - (let* ((_%rest123702123710%_ _%rest123701%_) - (_%else123704123718%_ (lambda () '#f)) - (_%K123706123733%_ - (lambda (_%rest123721%_ _%dir123722%_) - (let* ((_%npath123724%_ + (let _%lp127467%_ ((_%rest127469%_ (load-path))) + (let* ((_%rest127470127478%_ _%rest127469%_) + (_%else127472127486%_ (lambda () '#f)) + (_%K127474127501%_ + (lambda (_%rest127489%_ _%dir127490%_) + (let* ((_%npath127492%_ (path-expand - _%modpath123694%_ - (path-expand _%dir123722%_))) - (_%$e123726%_ - (_%find-compiled-file123696%_ _%npath123724%_))) - (if _%$e123726%_ - (path-normalize _%$e123726%_) - (let ((_%$e123729%_ - (_%find-source-file123697%_ - _%npath123724%_))) - (if _%$e123729%_ - (path-normalize _%$e123729%_) - (_%lp123699%_ _%rest123721%_)))))))) - (if (pair? _%rest123702123710%_) - (let ((_%hd123707123736%_ + _%modpath127462%_ + (path-expand _%dir127490%_))) + (_%$e127494%_ + (_%find-compiled-file127464%_ _%npath127492%_))) + (if _%$e127494%_ + (path-normalize _%$e127494%_) + (let ((_%$e127497%_ + (_%find-source-file127465%_ + _%npath127492%_))) + (if _%$e127497%_ + (path-normalize _%$e127497%_) + (_%lp127467%_ _%rest127489%_)))))))) + (if (pair? _%rest127470127478%_) + (let ((_%hd127475127504%_ (let () (declare (not safe)) - (##car _%rest123702123710%_))) - (_%tl123708123738%_ + (##car _%rest127470127478%_))) + (_%tl127476127506%_ (let () (declare (not safe)) - (##cdr _%rest123702123710%_)))) - (let* ((_%dir123741%_ _%hd123707123736%_) - (_%rest123743%_ _%tl123708123738%_)) - (_%K123706123733%_ _%rest123743%_ _%dir123741%_))) - (_%else123704123718%_))))))) + (##cdr _%rest127470127478%_)))) + (let* ((_%dir127509%_ _%hd127475127504%_) + (_%rest127511%_ _%tl127476127506%_)) + (_%K127474127501%_ _%rest127511%_ _%dir127509%_))) + (_%else127472127486%_))))))) (define list-modules (lambda () (let () (mutex-lock! __load-mx) - (let ((_%result123692%_ + (let ((_%result127460%_ (let () (declare (not safe)) (__hash->list __modules)))) (mutex-unlock! __load-mx) - _%result123692%_)))) + _%result127460%_)))) (define module-load-order - (lambda (_%modpath123676%_) - (if (string? _%modpath123676%_) - (let ((_%modpath123680%_ _%modpath123676%_)) - (__module-load-order _%modpath123680%_)) + (lambda (_%modpath127444%_) + (if (string? _%modpath127444%_) + (let ((_%modpath127448%_ _%modpath127444%_)) + (__module-load-order _%modpath127448%_)) (begin (raise-contract-violation-error '"contract violation" @@ -351,30 +351,30 @@ 'contract: 'string? 'value: - _%modpath123676%_) + _%modpath127444%_) '#!void)))) (define __module-load-order - (lambda (_%modpath123656%_) - (let ((_%modpath123659%_ _%modpath123656%_)) + (lambda (_%modpath127424%_) + (let ((_%modpath127427%_ _%modpath127424%_)) (mutex-lock! __load-mx) - (let ((_%ord123674%_ + (let ((_%ord127442%_ (if (eq? (let () (declare (not safe)) - (__hash-get __modules _%modpath123659%_)) + (__hash-get __modules _%modpath127427%_)) 'builtin) '0 - (let ((_%$e123670%_ + (let ((_%$e127438%_ (let () (declare (not safe)) - (__hash-get __load-order _%modpath123659%_)))) - (if _%$e123670%_ _%$e123670%_ '#f))))) + (__hash-get __load-order _%modpath127427%_)))) + (if _%$e127438%_ _%$e127438%_ '#f))))) (mutex-unlock! __load-mx) - (if (exact-integer? _%ord123674%_) - _%ord123674%_ + (if (exact-integer? _%ord127442%_) + _%ord127442%_ (begin (let () (declare (not safe)) (error '"unknown module load order" 'module: - _%modpath123659%_)) + _%modpath127427%_)) '#!void)))))))) diff --git a/src/bootstrap/gerbil/runtime/mop-system-classes.ssi b/src/bootstrap/gerbil/runtime/mop-system-classes.ssi index 3e7fad3bb2..6d3b7755f5 100644 --- a/src/bootstrap/gerbil/runtime/mop-system-classes.ssi +++ b/src/bootstrap/gerbil/runtime/mop-system-classes.ssi @@ -4,15 +4,24 @@ namespace: #f (%#begin (%#export #t) (%#import :gerbil/runtime/gambit :gerbil/runtime/mop) + (%#define-runtime builtin::t builtin::t) + (%#define-runtime subtyped::t subtyped::t) + (%#define-runtime structure::t structure::t) (%#define-runtime immediate::t immediate::t) + (%#define-runtime special::t special::t) + (%#define-runtime atom::t atom::t) (%#define-runtime char::t char::t) (%#define-runtime boolean::t boolean::t) - (%#define-runtime atom::t atom::t) - (%#define-runtime void::t void::t) - (%#define-runtime eof::t eof::t) (%#define-runtime true::t true::t) (%#define-runtime false::t false::t) - (%#define-runtime special::t special::t) + (%#define-runtime eof::t eof::t) + (%#define-runtime void::t void::t) + (%#define-runtime unbound::t unbound::t) + (%#define-runtime unbound2::t unbound2::t) + (%#define-runtime dssl-token::t dssl-token::t) + (%#define-runtime optional::t optional::t) + (%#define-runtime rest::t rest::t) + (%#define-runtime key::t key::t) (%#define-runtime number::t number::t) (%#define-runtime real::t real::t) (%#define-runtime integer::t integer::t) @@ -20,6 +29,8 @@ namespace: #f (%#define-runtime bignum::t bignum::t) (%#define-runtime ratnum::t ratnum::t) (%#define-runtime flonum::t flonum::t) + (%#define-runtime stflonum::t stflonum::t) + (%#define-runtime haflonum::t haflonum::t) (%#define-runtime cpxnum::t cpxnum::t) (%#define-runtime symbolic::t symbolic::t) (%#define-runtime symbol::t symbol::t) @@ -81,8 +92,19 @@ namespace: #f (%#call (%#ref load-module) (%#quote "gerbil/runtime/mop-system-classes~1"))) (%#define-syntax defpred |[:0:]#defpred|)) + (%#define-runtime builtin-object? builtin-object?) + (%#define-runtime builtin-subtyped? builtin-subtyped?) + (%#define-runtime builtin-structure? builtin-structure?) (%#define-runtime atom? atom?) (%#define-runtime special? special?) + (%#define-runtime unbound? unbound?) + (%#define-runtime unbound2? unbound2?) + (%#define-runtime ddsl-token? ddsl-token?) + (%#define-runtime ddsl-key? ddsl-key?) + (%#define-runtime ddsl-optional? ddsl-optional?) + (%#define-runtime ddsl-rest? ddsl-rest?) + (%#define-runtime stflonum? stflonum?) + (%#define-runtime haflonum? haflonum?) (%#define-runtime sequence? sequence?) (%#define-runtime hvector? hvector?) (%#define-runtime weak? weak?) diff --git a/src/bootstrap/gerbil/runtime/mop-system-classes.ssxi.ss b/src/bootstrap/gerbil/runtime/mop-system-classes.ssxi.ss index 5297fa22c3..19d660f6e2 100644 --- a/src/bootstrap/gerbil/runtime/mop-system-classes.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/mop-system-classes.ssxi.ss @@ -2,45 +2,109 @@ prelude: :gerbil/compiler/ssxi package: gerbil/runtime (begin + (declare-class + builtin::t + (@class builtin (t::t) (t::t) () () #f #f #f #f #f #f)) + (declare-type + builtin::t + (optimizer-resolve-class '(typedecl builtin::t) 'class::t)) + (declare-class + subtyped::t + (@class subtyped (builtin::t) (builtin::t t::t) () () #f #f #f #f #f #f)) + (declare-type + subtyped::t + (optimizer-resolve-class '(typedecl subtyped::t) 'class::t)) + (declare-class + structure::t + (@class structure + (subtyped::t) + (subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) + (declare-type + structure::t + (optimizer-resolve-class '(typedecl structure::t) 'class::t)) (declare-class immediate::t - (@class immediate () (t::t) () () #f #f #f #f #f #f)) + (@class immediate (builtin::t) (builtin::t t::t) () () #f #f #f #f #f #f)) (declare-type immediate::t (optimizer-resolve-class '(typedecl immediate::t) 'class::t)) (declare-class - char::t - (@class char (immediate::t) (immediate::t t::t) () () #f #f #f #f #f #f)) - (declare-type - char::t - (optimizer-resolve-class '(typedecl char::t) 'class::t)) - (declare-class - boolean::t - (@class boolean (immediate::t) (immediate::t t::t) () () #f #f #f #f #f #f)) + special::t + (@class special + (immediate::t) + (immediate::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type - boolean::t - (optimizer-resolve-class '(typedecl boolean::t) 'class::t)) + special::t + (optimizer-resolve-class '(typedecl special::t) 'class::t)) (declare-class atom::t - (@class atom (immediate::t) (immediate::t t::t) () () #f #f #f #f #f #f)) + (@class atom + (special::t) + (special::t immediate::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type atom::t (optimizer-resolve-class '(typedecl atom::t) 'class::t)) (declare-class - void::t - (@class void (atom::t) (atom::t immediate::t t::t) () () #f #f #f #f #f #f)) + char::t + (@class char + (special::t) + (special::t immediate::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type - void::t - (optimizer-resolve-class '(typedecl void::t) 'class::t)) + char::t + (optimizer-resolve-class '(typedecl char::t) 'class::t)) (declare-class - eof::t - (@class eof (atom::t) (atom::t immediate::t t::t) () () #f #f #f #f #f #f)) - (declare-type eof::t (optimizer-resolve-class '(typedecl eof::t) 'class::t)) + boolean::t + (@class boolean + (special::t) + (special::t immediate::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) + (declare-type + boolean::t + (optimizer-resolve-class '(typedecl boolean::t) 'class::t)) (declare-class true::t (@class true (boolean::t atom::t) - (boolean::t atom::t immediate::t t::t) + (boolean::t atom::t special::t immediate::t builtin::t t::t) () () #f @@ -56,7 +120,7 @@ package: gerbil/runtime false::t (@class false (boolean::t atom::t) - (boolean::t atom::t immediate::t t::t) + (boolean::t atom::t special::t immediate::t builtin::t t::t) () () #f @@ -69,10 +133,24 @@ package: gerbil/runtime false::t (optimizer-resolve-class '(typedecl false::t) 'class::t)) (declare-class - special::t - (@class special + eof::t + (@class eof + (atom::t) + (atom::t special::t immediate::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) + (declare-type eof::t (optimizer-resolve-class '(typedecl eof::t) 'class::t)) + (declare-class + void::t + (@class void (atom::t) - (atom::t immediate::t t::t) + (atom::t special::t immediate::t builtin::t t::t) () () #f @@ -82,21 +160,137 @@ package: gerbil/runtime #f #f)) (declare-type - special::t - (optimizer-resolve-class '(typedecl special::t) 'class::t)) - (declare-class number::t (@class number () (t::t) () () #f #f #f #f #f #f)) + void::t + (optimizer-resolve-class '(typedecl void::t) 'class::t)) + (declare-class + unbound::t + (@class unbound + (atom::t) + (atom::t special::t immediate::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) + (declare-type + unbound::t + (optimizer-resolve-class '(typedecl unbound::t) 'class::t)) + (declare-class + unbound2::t + (@class unbound2 + (atom::t) + (atom::t special::t immediate::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) + (declare-type + unbound2::t + (optimizer-resolve-class '(typedecl unbound2::t) 'class::t)) + (declare-class + dssl-token::t + (@class dssl-token + (atom::t) + (atom::t special::t immediate::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) + (declare-type + dssl-token::t + (optimizer-resolve-class '(typedecl dssl-token::t) 'class::t)) + (declare-class + optional::t + (@class optional + (dssl-token::t) + (dssl-token::t atom::t special::t immediate::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) + (declare-type + optional::t + (optimizer-resolve-class '(typedecl optional::t) 'class::t)) + (declare-class + rest::t + (@class rest + (dssl-token::t) + (dssl-token::t atom::t special::t immediate::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) + (declare-type + rest::t + (optimizer-resolve-class '(typedecl rest::t) 'class::t)) + (declare-class + key::t + (@class key + (dssl-token::t) + (dssl-token::t atom::t special::t immediate::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) + (declare-type key::t (optimizer-resolve-class '(typedecl key::t) 'class::t)) + (declare-class + number::t + (@class number (builtin::t) (builtin::t t::t) () () #f #f #f #f #f #f)) (declare-type number::t (optimizer-resolve-class '(typedecl number::t) 'class::t)) (declare-class real::t - (@class real (number::t) (number::t t::t) () () #f #f #f #f #f #f)) + (@class real + (number::t) + (number::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type real::t (optimizer-resolve-class '(typedecl real::t) 'class::t)) (declare-class integer::t - (@class integer (real::t) (real::t number::t t::t) () () #f #f #f #f #f #f)) + (@class integer + (real::t) + (real::t number::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type integer::t (optimizer-resolve-class '(typedecl integer::t) 'class::t)) @@ -104,7 +298,7 @@ package: gerbil/runtime fixnum::t (@class fixnum (integer::t immediate::t) - (integer::t real::t number::t immediate::t t::t) + (integer::t real::t number::t immediate::t builtin::t t::t) () () #f @@ -119,8 +313,8 @@ package: gerbil/runtime (declare-class bignum::t (@class bignum - (integer::t) - (integer::t real::t number::t t::t) + (integer::t subtyped::t) + (integer::t real::t number::t subtyped::t builtin::t t::t) () () #f @@ -134,47 +328,151 @@ package: gerbil/runtime (optimizer-resolve-class '(typedecl bignum::t) 'class::t)) (declare-class ratnum::t - (@class ratnum (real::t) (real::t number::t t::t) () () #f #f #f #f #f #f)) + (@class ratnum + (real::t subtyped::t) + (real::t number::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type ratnum::t (optimizer-resolve-class '(typedecl ratnum::t) 'class::t)) (declare-class flonum::t - (@class flonum (real::t) (real::t number::t t::t) () () #f #f #f #f #f #f)) + (@class flonum + (real::t) + (real::t number::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type flonum::t (optimizer-resolve-class '(typedecl flonum::t) 'class::t)) + (declare-class + stflonum::t + (@class stflonum + (flonum::t immediate::t) + (flonum::t real::t number::t immediate::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) + (declare-type + stflonum::t + (optimizer-resolve-class '(typedecl stflonum::t) 'class::t)) + (declare-class + haflonum::t + (@class haflonum + (flonum::t subtyped::t) + (flonum::t real::t number::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) + (declare-type + haflonum::t + (optimizer-resolve-class '(typedecl haflonum::t) 'class::t)) (declare-class cpxnum::t - (@class cpxnum (number::t) (number::t t::t) () () #f #f #f #f #f #f)) + (@class cpxnum + (number::t subtyped::t) + (number::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type cpxnum::t (optimizer-resolve-class '(typedecl cpxnum::t) 'class::t)) (declare-class symbolic::t - (@class symbolic () (t::t) () () #f #f #f #f #f #f)) + (@class symbolic + (subtyped::t) + (subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type symbolic::t (optimizer-resolve-class '(typedecl symbolic::t) 'class::t)) (declare-class symbol::t - (@class symbol (symbolic::t) (symbolic::t t::t) () () #f #f #f #f #f #f)) + (@class symbol + (symbolic::t) + (symbolic::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type symbol::t (optimizer-resolve-class '(typedecl symbol::t) 'class::t)) (declare-class keyword::t - (@class keyword (symbolic::t) (symbolic::t t::t) () () #f #f #f #f #f #f)) + (@class keyword + (symbolic::t) + (symbolic::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type keyword::t (optimizer-resolve-class '(typedecl keyword::t) 'class::t)) - (declare-class list::t (@class list () (t::t) () () #f #f #f #f #f #f)) + (declare-class + list::t + (@class list (builtin::t) (builtin::t t::t) () () #f #f #f #f #f #f)) (declare-type list::t (optimizer-resolve-class '(typedecl list::t) 'class::t)) (declare-class pair::t - (@class pair (list::t) (list::t t::t) () () #f #f #f #f #f #f)) + (@class pair + (list::t subtyped::t) + (list::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type pair::t (optimizer-resolve-class '(typedecl pair::t) 'class::t)) @@ -182,7 +480,7 @@ package: gerbil/runtime null::t (@class null (list::t atom::t) - (list::t atom::t immediate::t t::t) + (list::t atom::t special::t immediate::t builtin::t t::t) () () #f @@ -196,25 +494,65 @@ package: gerbil/runtime (optimizer-resolve-class '(typedecl null::t) 'class::t)) (declare-class sequence::t - (@class sequence () (t::t) () () #f #f #f #f #f #f)) + (@class sequence + (subtyped::t) + (subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type sequence::t (optimizer-resolve-class '(typedecl sequence::t) 'class::t)) (declare-class vector::t - (@class vector (sequence::t) (sequence::t t::t) () () #f #f #f #f #f #f)) + (@class vector + (sequence::t) + (sequence::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type vector::t (optimizer-resolve-class '(typedecl vector::t) 'class::t)) (declare-class string::t - (@class string (sequence::t) (sequence::t t::t) () () #f #f #f #f #f #f)) + (@class string + (sequence::t) + (sequence::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type string::t (optimizer-resolve-class '(typedecl string::t) 'class::t)) (declare-class hvector::t - (@class hvector (sequence::t) (sequence::t t::t) () () #f #f #f #f #f #f)) + (@class hvector + (sequence::t) + (sequence::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type hvector::t (optimizer-resolve-class '(typedecl hvector::t) 'class::t)) @@ -222,7 +560,7 @@ package: gerbil/runtime u8vector::t (@class u8vector (hvector::t) - (hvector::t sequence::t t::t) + (hvector::t sequence::t subtyped::t builtin::t t::t) () () #f @@ -238,7 +576,7 @@ package: gerbil/runtime s8vector::t (@class s8vector (hvector::t) - (hvector::t sequence::t t::t) + (hvector::t sequence::t subtyped::t builtin::t t::t) () () #f @@ -254,7 +592,7 @@ package: gerbil/runtime u16vector::t (@class u16vector (hvector::t) - (hvector::t sequence::t t::t) + (hvector::t sequence::t subtyped::t builtin::t t::t) () () #f @@ -270,7 +608,7 @@ package: gerbil/runtime s16vector::t (@class s16vector (hvector::t) - (hvector::t sequence::t t::t) + (hvector::t sequence::t subtyped::t builtin::t t::t) () () #f @@ -286,7 +624,7 @@ package: gerbil/runtime u32vector::t (@class u32vector (hvector::t) - (hvector::t sequence::t t::t) + (hvector::t sequence::t subtyped::t builtin::t t::t) () () #f @@ -302,7 +640,7 @@ package: gerbil/runtime s32vector::t (@class s32vector (hvector::t) - (hvector::t sequence::t t::t) + (hvector::t sequence::t subtyped::t builtin::t t::t) () () #f @@ -318,7 +656,7 @@ package: gerbil/runtime u64vector::t (@class u64vector (hvector::t) - (hvector::t sequence::t t::t) + (hvector::t sequence::t subtyped::t builtin::t t::t) () () #f @@ -334,7 +672,7 @@ package: gerbil/runtime s64vector::t (@class s64vector (hvector::t) - (hvector::t sequence::t t::t) + (hvector::t sequence::t subtyped::t builtin::t t::t) () () #f @@ -350,7 +688,7 @@ package: gerbil/runtime f32vector::t (@class f32vector (hvector::t) - (hvector::t sequence::t t::t) + (hvector::t sequence::t subtyped::t builtin::t t::t) () () #f @@ -366,7 +704,7 @@ package: gerbil/runtime f64vector::t (@class f64vector (hvector::t) - (hvector::t sequence::t t::t) + (hvector::t sequence::t subtyped::t builtin::t t::t) () () #f @@ -378,77 +716,257 @@ package: gerbil/runtime (declare-type f64vector::t (optimizer-resolve-class '(typedecl f64vector::t) 'class::t)) - (declare-class values::t (@class values () (t::t) () () #f #f #f #f #f #f)) + (declare-class + values::t + (@class values + (sequence::t) + (sequence::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type values::t (optimizer-resolve-class '(typedecl values::t) 'class::t)) - (declare-class box::t (@class box () (t::t) () () #f #f #f #f #f #f)) + (declare-class + box::t + (@class box + (subtyped::t) + (subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type box::t (optimizer-resolve-class '(typedecl box::t) 'class::t)) - (declare-class frame::t (@class frame () (t::t) () () #f #f #f #f #f #f)) + (declare-class + frame::t + (@class frame + (subtyped::t) + (subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type frame::t (optimizer-resolve-class '(typedecl frame::t) 'class::t)) (declare-class continuation::t - (@class continuation () (t::t) () () #f #f #f #f #f #f)) + (@class continuation + (subtyped::t) + (subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type continuation::t (optimizer-resolve-class '(typedecl continuation::t) 'class::t)) - (declare-class promise::t (@class promise () (t::t) () () #f #f #f #f #f #f)) + (declare-class + promise::t + (@class promise + (subtyped::t) + (subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type promise::t (optimizer-resolve-class '(typedecl promise::t) 'class::t)) - (declare-class weak::t (@class weak () (t::t) () () #f #f #f #f #f #f)) + (declare-class + weak::t + (@class weak + (subtyped::t) + (subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type weak::t (optimizer-resolve-class '(typedecl weak::t) 'class::t)) - (declare-class foreign::t (@class foreign () (t::t) () () #f #f #f #f #f #f)) + (declare-class + foreign::t + (@class foreign + (subtyped::t) + (subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type foreign::t (optimizer-resolve-class '(typedecl foreign::t) 'class::t)) (declare-class procedure::t - (@class procedure () (t::t) () () #f #f #f #f #f #f)) + (@class procedure + (subtyped::t) + (subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type procedure::t (optimizer-resolve-class '(typedecl procedure::t) 'class::t)) - (declare-class return::t (@class return () (t::t) () () #f #f #f #f #f #f)) + (declare-class + return::t + (@class return + (subtyped::t) + (subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type return::t (optimizer-resolve-class '(typedecl return::t) 'class::t)) - (declare-class time::t (@class time::t () (t::t) () () #f #f #f #f #f #f)) + (declare-class + time::t + (@class time::t + (structure::t) + (structure::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type time::t (optimizer-resolve-class '(typedecl time::t) 'class::t)) (declare-class thread::t - (@class thread::t () (t::t) () () #f #f #f #f #f #f)) + (@class thread::t + (structure::t) + (structure::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type thread::t (optimizer-resolve-class '(typedecl thread::t) 'class::t)) (declare-class thread-group::t - (@class thread-group::t () (t::t) () () #f #f #f #f #f #f)) + (@class thread-group::t + (structure::t) + (structure::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type thread-group::t (optimizer-resolve-class '(typedecl thread-group::t) 'class::t)) - (declare-class mutex::t (@class mutex::t () (t::t) () () #f #f #f #f #f #f)) + (declare-class + mutex::t + (@class mutex::t + (structure::t) + (structure::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type mutex::t (optimizer-resolve-class '(typedecl mutex::t) 'class::t)) (declare-class condvar::t - (@class condvar::t () (t::t) () () #f #f #f #f #f #f)) + (@class condvar::t + (structure::t) + (structure::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type condvar::t (optimizer-resolve-class '(typedecl condvar::t) 'class::t)) - (declare-class port::t (@class port::t () (t::t) () () #f #f #f #f #f #f)) + (declare-class + port::t + (@class port::t + (structure::t) + (structure::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type port::t (optimizer-resolve-class '(typedecl port::t) 'class::t)) (declare-class object-port::t - (@class object-port::t (port::t) (port::t t::t) () () #f #f #f #f #f #f)) + (@class object-port::t + (port::t) + (port::t structure::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type object-port::t (optimizer-resolve-class '(typedecl object-port::t) 'class::t)) @@ -456,7 +974,7 @@ package: gerbil/runtime character-port::t (@class character-port::t (object-port::t) - (object-port::t port::t t::t) + (object-port::t port::t structure::t subtyped::t builtin::t t::t) () () #f @@ -472,7 +990,13 @@ package: gerbil/runtime byte-port::t (@class byte-port::t (character-port::t) - (character-port::t object-port::t port::t t::t) + (character-port::t + object-port::t + port::t + structure::t + subtyped::t + builtin::t + t::t) () () #f @@ -488,7 +1012,14 @@ package: gerbil/runtime device-port::t (@class device-port::t (byte-port::t) - (byte-port::t character-port::t object-port::t port::t t::t) + (byte-port::t + character-port::t + object-port::t + port::t + structure::t + subtyped::t + builtin::t + t::t) () () #f @@ -504,7 +1035,7 @@ package: gerbil/runtime vector-port::t (@class vector-port::t (object-port::t) - (object-port::t port::t t::t) + (object-port::t port::t structure::t subtyped::t builtin::t t::t) () () #f @@ -520,7 +1051,13 @@ package: gerbil/runtime string-port::t (@class string-port::t (character-port::t) - (character-port::t object-port::t port::t t::t) + (character-port::t + object-port::t + port::t + structure::t + subtyped::t + builtin::t + t::t) () () #f @@ -536,7 +1073,14 @@ package: gerbil/runtime u8vector-port::t (@class u8vector-port::t (byte-port::t) - (byte-port::t character-port::t object-port::t port::t t::t) + (byte-port::t + character-port::t + object-port::t + port::t + structure::t + subtyped::t + builtin::t + t::t) () () #f @@ -552,7 +1096,7 @@ package: gerbil/runtime raw-device-port::t (@class raw-device-port::t (port::t) - (port::t t::t) + (port::t structure::t subtyped::t builtin::t t::t) () () #f @@ -568,7 +1112,7 @@ package: gerbil/runtime tcp-server-port::t (@class tcp-server-port::t (object-port::t) - (object-port::t port::t t::t) + (object-port::t port::t structure::t subtyped::t builtin::t t::t) () () #f @@ -584,7 +1128,7 @@ package: gerbil/runtime udp-port::t (@class udp-port::t (object-port::t) - (object-port::t port::t t::t) + (object-port::t port::t structure::t subtyped::t builtin::t t::t) () () #f @@ -600,7 +1144,7 @@ package: gerbil/runtime directory-port::t (@class directory-port::t (object-port::t) - (object-port::t port::t t::t) + (object-port::t port::t structure::t subtyped::t builtin::t t::t) () () #f @@ -616,7 +1160,7 @@ package: gerbil/runtime event-queue-port::t (@class event-queue-port::t (object-port::t) - (object-port::t port::t t::t) + (object-port::t port::t structure::t subtyped::t builtin::t t::t) () () #f @@ -628,58 +1172,163 @@ package: gerbil/runtime (declare-type event-queue-port::t (optimizer-resolve-class '(typedecl event-queue-port::t) 'class::t)) - (declare-class table::t (@class table::t () (t::t) () () #f #f #f #f #f #f)) + (declare-class + table::t + (@class table::t + (structure::t) + (structure::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type table::t (optimizer-resolve-class '(typedecl table::t) 'class::t)) (declare-class readenv::t - (@class readenv::t () (t::t) () () #f #f #f #f #f #f)) + (@class readenv::t + (structure::t) + (structure::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type readenv::t (optimizer-resolve-class '(typedecl readenv::t) 'class::t)) (declare-class writeenv::t - (@class writeenv::t () (t::t) () () #f #f #f #f #f #f)) + (@class writeenv::t + (structure::t) + (structure::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type writeenv::t (optimizer-resolve-class '(typedecl writeenv::t) 'class::t)) (declare-class readtable::t - (@class readtable::t () (t::t) () () #f #f #f #f #f #f)) + (@class readtable::t + (structure::t) + (structure::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type readtable::t (optimizer-resolve-class '(typedecl readtable::t) 'class::t)) (declare-class processor::t - (@class processor::t () (t::t) () () #f #f #f #f #f #f)) + (@class processor::t + (structure::t) + (structure::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type processor::t (optimizer-resolve-class '(typedecl processor::t) 'class::t)) - (declare-class vm::t (@class vm::t () (t::t) () () #f #f #f #f #f #f)) + (declare-class + vm::t + (@class vm::t + (structure::t) + (structure::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type vm::t (optimizer-resolve-class '(typedecl vm::t) 'class::t)) (declare-class file-info::t - (@class file-info::t () (t::t) () () #f #f #f #f #f #f)) + (@class file-info::t + (structure::t) + (structure::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type file-info::t (optimizer-resolve-class '(typedecl file-info::t) 'class::t)) (declare-class socket-info::t - (@class socket-info::t () (t::t) () () #f #f #f #f #f #f)) + (@class socket-info::t + (structure::t) + (structure::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type socket-info::t (optimizer-resolve-class '(typedecl socket-info::t) 'class::t)) (declare-class address-info::t - (@class address-info::t () (t::t) () () #f #f #f #f #f #f)) + (@class address-info::t + (structure::t) + (structure::t subtyped::t builtin::t t::t) + () + () + #f + #f + #f + #f + #f + #f)) (declare-type address-info::t (optimizer-resolve-class '(typedecl address-info::t) 'class::t)) + (declare-type builtin-object? (@primitive-predicate builtin::t)) + (declare-type builtin-subtyped? (@primitive-predicate subtyped::t)) + (declare-type builtin-structure? (@primitive-predicate structure::t)) (declare-type atom? (@primitive-predicate atom::t)) (declare-type special? (@primitive-predicate special::t)) + (declare-type unbound? (@primitive-predicate unbound::t)) + (declare-type unbound2? (@primitive-predicate unbound2::t)) + (declare-type ddsl-token? (@primitive-predicate dssl-token::t)) + (declare-type ddsl-key? (@primitive-predicate key::t)) + (declare-type ddsl-optional? (@primitive-predicate optional::t)) + (declare-type ddsl-rest? (@primitive-predicate key::t)) + (declare-type stflonum? (@primitive-predicate stflonum::t)) + (declare-type haflonum? (@primitive-predicate haflonum::t)) (declare-type sequence? (@primitive-predicate sequence::t)) - (declare-type hvector? (@primitive-predicate sequence::t)) + (declare-type hvector? (@primitive-predicate hvector::t)) (declare-type weak? (@primitive-predicate weak::t)) (declare-type object-port? (@primitive-predicate object-port::t)) (declare-type character-port? (@primitive-predicate character-port::t)) diff --git a/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm b/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm index 2d0e7aa57f..12f50b1f0b 100644 --- a/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm +++ b/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm @@ -1,18 +1,27 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/mop-system-classes::timestamp 1756721294) + (define gerbil/runtime/mop-system-classes::timestamp 1769384627) (begin (declare (not optimize-dead-definitions + builtin::t + subtyped::t + structure::t immediate::t + special::t + atom::t char::t boolean::t - atom::t - void::t - eof::t true::t false::t - special::t + eof::t + void::t + unbound::t + unbound2::t + dssl-token::t + optional::t + rest::t + key::t number::t real::t integer::t @@ -20,6 +29,8 @@ bignum::t ratnum::t flonum::t + stflonum::t + haflonum::t cpxnum::t symbolic::t symbol::t @@ -50,451 +61,566 @@ foreign::t procedure::t return::t)) + (define builtin::t + (let ((__tmp112847 (cons t::t '()))) + (declare (not safe)) + (__make-system-class 'builtin __tmp112847 '()))) + (define subtyped::t + (let ((__tmp112848 (cons builtin::t '()))) + (declare (not safe)) + (__make-system-class 'subtyped __tmp112848 '()))) + (define structure::t + (let ((__tmp112849 (cons subtyped::t '()))) + (declare (not safe)) + (__make-system-class 'structure __tmp112849 '()))) (define immediate::t - (let () (declare (not safe)) (__make-system-class 'immediate '()))) - (define char::t - (let ((__tmp109852 (cons immediate::t '()))) + (let ((__tmp112850 (cons builtin::t '()))) (declare (not safe)) - (__make-system-class 'char __tmp109852))) - (define boolean::t - (let ((__tmp109853 (cons immediate::t '()))) + (__make-system-class 'immediate __tmp112850 '((acyclic: . #t))))) + (define special::t + (let ((__tmp112851 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'boolean __tmp109853))) + (__make-system-class 'special __tmp112851 '((acyclic: . #t))))) (define atom::t - (let ((__tmp109854 (cons immediate::t '()))) + (let ((__tmp112852 (cons special::t '()))) (declare (not safe)) - (__make-system-class 'atom __tmp109854))) - (define void::t - (let ((__tmp109855 (cons atom::t '()))) + (__make-system-class 'atom __tmp112852 '((acyclic: . #t))))) + (define char::t + (let ((__tmp112853 (cons special::t '()))) (declare (not safe)) - (__make-system-class 'void __tmp109855))) - (define eof::t - (let ((__tmp109856 (cons atom::t '()))) + (__make-system-class 'char __tmp112853 '((acyclic: . #t))))) + (define boolean::t + (let ((__tmp112854 (cons special::t '()))) (declare (not safe)) - (__make-system-class 'eof __tmp109856))) + (__make-system-class 'boolean __tmp112854 '((acyclic: . #t))))) (define true::t - (let ((__tmp109857 (cons boolean::t (cons atom::t '())))) + (let ((__tmp112855 (cons boolean::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'true __tmp109857))) + (__make-system-class 'true __tmp112855 '((acyclic: . #t))))) (define false::t - (let ((__tmp109858 (cons boolean::t (cons atom::t '())))) + (let ((__tmp112856 (cons boolean::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'false __tmp109858))) - (define special::t - (let ((__tmp109859 (cons atom::t '()))) + (__make-system-class 'false __tmp112856 '((acyclic: . #t))))) + (define eof::t + (let ((__tmp112857 (cons atom::t '()))) + (declare (not safe)) + (__make-system-class 'eof __tmp112857 '((acyclic: . #t))))) + (define void::t + (let ((__tmp112858 (cons atom::t '()))) + (declare (not safe)) + (__make-system-class 'void __tmp112858 '((acyclic: . #t))))) + (define unbound::t + (let ((__tmp112859 (cons atom::t '()))) + (declare (not safe)) + (__make-system-class 'unbound __tmp112859 '((acyclic: . #t))))) + (define unbound2::t + (let ((__tmp112860 (cons atom::t '()))) + (declare (not safe)) + (__make-system-class 'unbound2 __tmp112860 '((acyclic: . #t))))) + (define dssl-token::t + (let ((__tmp112861 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'special __tmp109859))) + (__make-system-class 'dssl-token __tmp112861 '((acyclic: . #t))))) + (define optional::t + (let ((__tmp112862 (cons dssl-token::t '()))) + (declare (not safe)) + (__make-system-class 'optional __tmp112862 '((acyclic: . #t))))) + (define rest::t + (let ((__tmp112863 (cons dssl-token::t '()))) + (declare (not safe)) + (__make-system-class 'rest __tmp112863 '((acyclic: . #t))))) + (define key::t + (let ((__tmp112864 (cons dssl-token::t '()))) + (declare (not safe)) + (__make-system-class 'key __tmp112864 '((acyclic: . #t))))) (define number::t - (let () (declare (not safe)) (__make-system-class 'number '()))) + (let ((__tmp112865 (cons builtin::t '()))) + (declare (not safe)) + (__make-system-class 'number __tmp112865 '((acyclic: . #t))))) (define real::t - (let ((__tmp109860 (cons number::t '()))) + (let ((__tmp112866 (cons number::t '()))) (declare (not safe)) - (__make-system-class 'real __tmp109860))) + (__make-system-class 'real __tmp112866 '((acyclic: . #t))))) (define integer::t - (let ((__tmp109861 (cons real::t '()))) + (let ((__tmp112867 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'integer __tmp109861))) + (__make-system-class 'integer __tmp112867 '((acyclic: . #t))))) (define fixnum::t - (let ((__tmp109862 (cons integer::t (cons immediate::t '())))) + (let ((__tmp112868 (cons integer::t (cons immediate::t '())))) (declare (not safe)) - (__make-system-class 'fixnum __tmp109862))) + (__make-system-class 'fixnum __tmp112868 '((acyclic: . #t))))) (define bignum::t - (let ((__tmp109863 (cons integer::t '()))) + (let ((__tmp112869 (cons integer::t (cons subtyped::t '())))) (declare (not safe)) - (__make-system-class 'bignum __tmp109863))) + (__make-system-class 'bignum __tmp112869 '((acyclic: . #t))))) (define ratnum::t - (let ((__tmp109864 (cons real::t '()))) + (let ((__tmp112870 (cons real::t (cons subtyped::t '())))) (declare (not safe)) - (__make-system-class 'ratnum __tmp109864))) + (__make-system-class 'ratnum __tmp112870 '((acyclic: . #t))))) (define flonum::t - (let ((__tmp109865 (cons real::t '()))) + (let ((__tmp112871 (cons real::t '()))) + (declare (not safe)) + (__make-system-class 'flonum __tmp112871 '((acyclic: . #t))))) + (define stflonum::t + (let ((__tmp112872 (cons flonum::t (cons immediate::t '())))) + (declare (not safe)) + (__make-system-class 'stflonum __tmp112872 '((acyclic: . #t))))) + (define haflonum::t + (let ((__tmp112873 (cons flonum::t (cons subtyped::t '())))) (declare (not safe)) - (__make-system-class 'flonum __tmp109865))) + (__make-system-class 'haflonum __tmp112873 '((acyclic: . #t))))) (define cpxnum::t - (let ((__tmp109866 (cons number::t '()))) + (let ((__tmp112874 (cons number::t (cons subtyped::t '())))) (declare (not safe)) - (__make-system-class 'cpxnum __tmp109866))) + (__make-system-class 'cpxnum __tmp112874 '((acyclic: . #t))))) (define symbolic::t - (let () (declare (not safe)) (__make-system-class 'symbolic '()))) + (let ((__tmp112875 (cons subtyped::t '()))) + (declare (not safe)) + (__make-system-class 'symbolic __tmp112875 '((acyclic: . #t))))) (define symbol::t - (let ((__tmp109867 (cons symbolic::t '()))) + (let ((__tmp112876 (cons symbolic::t '()))) (declare (not safe)) - (__make-system-class 'symbol __tmp109867))) + (__make-system-class 'symbol __tmp112876 '((acyclic: . #t))))) (define keyword::t - (let ((__tmp109868 (cons symbolic::t '()))) + (let ((__tmp112877 (cons symbolic::t '()))) (declare (not safe)) - (__make-system-class 'keyword __tmp109868))) + (__make-system-class 'keyword __tmp112877 '((acyclic: . #t))))) (define list::t - (let () (declare (not safe)) (__make-system-class 'list '()))) + (let ((__tmp112878 (cons builtin::t '()))) + (declare (not safe)) + (__make-system-class 'list __tmp112878 '()))) (define pair::t - (let ((__tmp109869 (cons list::t '()))) + (let ((__tmp112879 (cons list::t (cons subtyped::t '())))) (declare (not safe)) - (__make-system-class 'pair __tmp109869))) + (__make-system-class 'pair __tmp112879 '()))) (define null::t - (let ((__tmp109870 (cons list::t (cons atom::t '())))) + (let ((__tmp112880 (cons list::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'null __tmp109870))) + (__make-system-class 'null __tmp112880 '((acyclic: . #t))))) (define sequence::t - (let () (declare (not safe)) (__make-system-class 'sequence '()))) + (let ((__tmp112881 (cons subtyped::t '()))) + (declare (not safe)) + (__make-system-class 'sequence __tmp112881 '()))) (define vector::t - (let ((__tmp109871 (cons sequence::t '()))) + (let ((__tmp112882 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'vector __tmp109871))) + (__make-system-class 'vector __tmp112882 '()))) (define string::t - (let ((__tmp109872 (cons sequence::t '()))) + (let ((__tmp112883 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'string __tmp109872))) + (__make-system-class 'string __tmp112883 '((acyclic: . #t))))) (define hvector::t - (let ((__tmp109873 (cons sequence::t '()))) + (let ((__tmp112884 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'hvector __tmp109873))) + (__make-system-class 'hvector __tmp112884 '((acyclic: . #t))))) (define u8vector::t - (let ((__tmp109874 (cons hvector::t '()))) + (let ((__tmp112885 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u8vector __tmp109874))) + (__make-system-class 'u8vector __tmp112885 '((acyclic: . #t))))) (define s8vector::t - (let ((__tmp109875 (cons hvector::t '()))) + (let ((__tmp112886 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's8vector __tmp109875))) + (__make-system-class 's8vector __tmp112886 '((acyclic: . #t))))) (define u16vector::t - (let ((__tmp109876 (cons hvector::t '()))) + (let ((__tmp112887 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u16vector __tmp109876))) + (__make-system-class 'u16vector __tmp112887 '((acyclic: . #t))))) (define s16vector::t - (let ((__tmp109877 (cons hvector::t '()))) + (let ((__tmp112888 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's16vector __tmp109877))) + (__make-system-class 's16vector __tmp112888 '((acyclic: . #t))))) (define u32vector::t - (let ((__tmp109878 (cons hvector::t '()))) + (let ((__tmp112889 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u32vector __tmp109878))) + (__make-system-class 'u32vector __tmp112889 '((acyclic: . #t))))) (define s32vector::t - (let ((__tmp109879 (cons hvector::t '()))) + (let ((__tmp112890 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's32vector __tmp109879))) + (__make-system-class 's32vector __tmp112890 '((acyclic: . #t))))) (define u64vector::t - (let ((__tmp109880 (cons hvector::t '()))) + (let ((__tmp112891 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u64vector __tmp109880))) + (__make-system-class 'u64vector __tmp112891 '((acyclic: . #t))))) (define s64vector::t - (let ((__tmp109881 (cons hvector::t '()))) + (let ((__tmp112892 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's64vector __tmp109881))) + (__make-system-class 's64vector __tmp112892 '((acyclic: . #t))))) (define f32vector::t - (let ((__tmp109882 (cons hvector::t '()))) + (let ((__tmp112893 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'f32vector __tmp109882))) + (__make-system-class 'f32vector __tmp112893 '((acyclic: . #t))))) (define f64vector::t - (let ((__tmp109883 (cons hvector::t '()))) + (let ((__tmp112894 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'f64vector __tmp109883))) + (__make-system-class 'f64vector __tmp112894 '((acyclic: . #t))))) (define values::t - (let () (declare (not safe)) (__make-system-class 'values '()))) + (let ((__tmp112895 (cons sequence::t '()))) + (declare (not safe)) + (__make-system-class 'values __tmp112895 '()))) (define box::t - (let () (declare (not safe)) (__make-system-class 'box '()))) + (let ((__tmp112896 (cons subtyped::t '()))) + (declare (not safe)) + (__make-system-class 'box __tmp112896 '()))) (define frame::t - (let () (declare (not safe)) (__make-system-class 'frame '()))) + (let ((__tmp112897 (cons subtyped::t '()))) + (declare (not safe)) + (__make-system-class 'frame __tmp112897 '()))) (define continuation::t - (let () (declare (not safe)) (__make-system-class 'continuation '()))) + (let ((__tmp112898 (cons subtyped::t '()))) + (declare (not safe)) + (__make-system-class 'continuation __tmp112898 '()))) (define promise::t - (let () (declare (not safe)) (__make-system-class 'promise '()))) + (let ((__tmp112899 (cons subtyped::t '()))) + (declare (not safe)) + (__make-system-class 'promise __tmp112899 '()))) (define weak::t - (let () (declare (not safe)) (__make-system-class 'weak '()))) + (let ((__tmp112900 (cons subtyped::t '()))) + (declare (not safe)) + (__make-system-class 'weak __tmp112900 '()))) (define foreign::t - (let () (declare (not safe)) (__make-system-class 'foreign '()))) + (let ((__tmp112901 (cons subtyped::t '()))) + (declare (not safe)) + (__make-system-class 'foreign __tmp112901 '((acyclic: . #t))))) (define procedure::t - (let () (declare (not safe)) (__make-system-class 'procedure '()))) + (let ((__tmp112902 (cons subtyped::t '()))) + (declare (not safe)) + (__make-system-class 'procedure __tmp112902 '()))) (define return::t - (let () (declare (not safe)) (__make-system-class 'return '()))) + (let ((__tmp112903 (cons subtyped::t '()))) + (declare (not safe)) + (__make-system-class 'return __tmp112903 '()))) (define time::t - (let ((__tmp109884 (macro-type-time))) + (let ((__tmp112904 (macro-type-time))) (declare (not safe)) - (__shadow-class __tmp109884))) + (__shadow-class__% __tmp112904 '((acyclic: . #t))))) (define thread::t - (let ((__tmp109885 (macro-type-thread))) + (let ((__tmp112905 (macro-type-thread))) (declare (not safe)) - (__shadow-class __tmp109885))) + (__shadow-class__% __tmp112905 '()))) (define thread-group::t - (let ((__tmp109886 (macro-type-tgroup))) + (let ((__tmp112906 (macro-type-tgroup))) (declare (not safe)) - (__shadow-class __tmp109886))) + (__shadow-class__% __tmp112906 '()))) (define mutex::t - (let ((__tmp109887 (macro-type-mutex))) + (let ((__tmp112907 (macro-type-mutex))) (declare (not safe)) - (__shadow-class __tmp109887))) + (__shadow-class__% __tmp112907 '()))) (define condvar::t - (let ((__tmp109888 (macro-type-condvar))) + (let ((__tmp112908 (macro-type-condvar))) (declare (not safe)) - (__shadow-class __tmp109888))) + (__shadow-class__% __tmp112908 '()))) (define port::t - (let ((__tmp109889 (macro-type-port))) + (let ((__tmp112909 (macro-type-port))) (declare (not safe)) - (__shadow-class __tmp109889))) + (__shadow-class__% __tmp112909 '()))) (define object-port::t - (let ((__tmp109890 (macro-type-object-port))) + (let ((__tmp112910 (macro-type-object-port))) (declare (not safe)) - (__shadow-class __tmp109890))) + (__shadow-class__% __tmp112910 '()))) (define character-port::t - (let ((__tmp109891 (macro-type-character-port))) + (let ((__tmp112911 (macro-type-character-port))) (declare (not safe)) - (__shadow-class __tmp109891))) + (__shadow-class__% __tmp112911 '()))) (define byte-port::t - (let ((__tmp109892 (macro-type-byte-port))) + (let ((__tmp112912 (macro-type-byte-port))) (declare (not safe)) - (__shadow-class __tmp109892))) + (__shadow-class__% __tmp112912 '()))) (define device-port::t - (let ((__tmp109893 (macro-type-device-port))) + (let ((__tmp112913 (macro-type-device-port))) (declare (not safe)) - (__shadow-class __tmp109893))) + (__shadow-class__% __tmp112913 '()))) (define vector-port::t - (let ((__tmp109894 (macro-type-vector-port))) + (let ((__tmp112914 (macro-type-vector-port))) (declare (not safe)) - (__shadow-class __tmp109894))) + (__shadow-class__% __tmp112914 '()))) (define string-port::t - (let ((__tmp109895 (macro-type-string-port))) + (let ((__tmp112915 (macro-type-string-port))) (declare (not safe)) - (__shadow-class __tmp109895))) + (__shadow-class__% __tmp112915 '()))) (define u8vector-port::t - (let ((__tmp109896 (macro-type-u8vector-port))) + (let ((__tmp112916 (macro-type-u8vector-port))) (declare (not safe)) - (__shadow-class __tmp109896))) + (__shadow-class__% __tmp112916 '()))) (define raw-device-port::t - (let ((__tmp109897 (macro-type-raw-device-port))) + (let ((__tmp112917 (macro-type-raw-device-port))) (declare (not safe)) - (__shadow-class __tmp109897))) + (__shadow-class__% __tmp112917 '()))) (define tcp-server-port::t - (let ((__tmp109898 (macro-type-tcp-server-port))) + (let ((__tmp112918 (macro-type-tcp-server-port))) (declare (not safe)) - (__shadow-class __tmp109898))) + (__shadow-class__% __tmp112918 '()))) (define udp-port::t - (let ((__tmp109899 (macro-type-udp-port))) + (let ((__tmp112919 (macro-type-udp-port))) (declare (not safe)) - (__shadow-class __tmp109899))) + (__shadow-class__% __tmp112919 '()))) (define directory-port::t - (let ((__tmp109900 (macro-type-directory-port))) + (let ((__tmp112920 (macro-type-directory-port))) (declare (not safe)) - (__shadow-class __tmp109900))) + (__shadow-class__% __tmp112920 '()))) (define event-queue-port::t - (let ((__tmp109901 (macro-type-event-queue-port))) + (let ((__tmp112921 (macro-type-event-queue-port))) (declare (not safe)) - (__shadow-class __tmp109901))) + (__shadow-class__% __tmp112921 '()))) (define table::t - (let ((__tmp109902 (macro-type-table))) + (let ((__tmp112922 (macro-type-table))) (declare (not safe)) - (__shadow-class __tmp109902))) + (__shadow-class__% __tmp112922 '()))) (define readenv::t - (let ((__tmp109903 (macro-type-readenv))) + (let ((__tmp112923 (macro-type-readenv))) (declare (not safe)) - (__shadow-class __tmp109903))) + (__shadow-class__% __tmp112923 '()))) (define writeenv::t - (let ((__tmp109904 (macro-type-writeenv))) + (let ((__tmp112924 (macro-type-writeenv))) (declare (not safe)) - (__shadow-class __tmp109904))) + (__shadow-class__% __tmp112924 '()))) (define readtable::t - (let ((__tmp109905 (macro-type-readtable))) + (let ((__tmp112925 (macro-type-readtable))) (declare (not safe)) - (__shadow-class __tmp109905))) + (__shadow-class__% __tmp112925 '()))) (define processor::t - (let ((__tmp109906 (macro-type-processor))) + (let ((__tmp112926 (macro-type-processor))) (declare (not safe)) - (__shadow-class __tmp109906))) + (__shadow-class__% __tmp112926 '()))) (define vm::t - (let ((__tmp109907 (macro-type-vm))) + (let ((__tmp112927 (macro-type-vm))) (declare (not safe)) - (__shadow-class __tmp109907))) + (__shadow-class__% __tmp112927 '()))) (define file-info::t - (let ((__tmp109908 (macro-type-file-info))) + (let ((__tmp112928 (macro-type-file-info))) (declare (not safe)) - (__shadow-class __tmp109908))) + (__shadow-class__% __tmp112928 '((acyclic: . #t))))) (define socket-info::t - (let ((__tmp109909 (macro-type-socket-info))) + (let ((__tmp112929 (macro-type-socket-info))) (declare (not safe)) - (__shadow-class __tmp109909))) + (__shadow-class__% __tmp112929 '((acyclic: . #t))))) (define address-info::t - (let ((__tmp109910 (macro-type-address-info))) - (declare (not safe)) - (__shadow-class __tmp109910))) + (let ((__tmp112930 (macro-type-address-info))) + (declare (not safe)) + (__shadow-class__% __tmp112930 '((acyclic: . #t))))) + (define builtin-object? + (lambda (_%obj112843%_) + (let ((_%$e112845%_ + (not (let () + (declare (not safe)) + (##structure? _%obj112843%_))))) + (if _%$e112845%_ + _%$e112845%_ + (not (let ((__tmp112931 + (let () + (declare (not safe)) + (##structure-type _%obj112843%_)))) + (declare (not safe)) + (##structure-instance-of? __tmp112931 'class))))))) + (define builtin-subtyped? + (lambda (_%obj112841%_) + (if (let () (declare (not safe)) (##subtyped? _%obj112841%_)) + (builtin-object? _%obj112841%_) + '#f))) + (define builtin-structure? + (lambda (_%obj112839%_) + (if (let () (declare (not safe)) (##structure? _%obj112839%_)) + (not (let ((__tmp112932 + (let () + (declare (not safe)) + (##structure-type _%obj112839%_)))) + (declare (not safe)) + (##structure-instance-of? __tmp112932 'class))) + '#f))) (define atom? - (lambda (_%obj109851%_) - (if (let () (declare (not safe)) (immediate? _%obj109851%_)) - (if (char? _%obj109851%_) '#f (not (fixnum? _%obj109851%_))) + (lambda (_%obj112837%_) + (if (let () (declare (not safe)) (immediate? _%obj112837%_)) + (if (char? _%obj112837%_) + '#f + (if (fixnum? _%obj112837%_) '#f (not (flonum? _%obj112837%_)))) '#f))) (define special? - (lambda (_%obj109849%_) - (if (let ((__tmp109911 - (let () (declare (not safe)) (##type _%obj109849%_)))) - (declare (not safe)) - (##fx= __tmp109911 '2)) - (if (char? _%obj109849%_) - '#f - (if (null? _%obj109849%_) - '#f - (if (boolean? _%obj109849%_) - '#f - (if (eq? _%obj109849%_ '#!void) - '#f - (not (eof-object? _%obj109849%_)))))) + (lambda (_%obj112835%_) + (let () (declare (not safe)) (##special? _%obj112835%_)))) + (define unbound? (lambda (_%obj112833%_) (eq? _%obj112833%_ '#!unbound))) + (define unbound2? (lambda (_%obj112831%_) (eq? _%obj112831%_ '#!unbound2))) + (define ddsl-token? + (lambda (_%obj112823%_) + (let ((_%$e112825%_ (eq? _%obj112823%_ '#!key))) + (if _%$e112825%_ + _%$e112825%_ + (let ((_%$e112828%_ (eq? _%obj112823%_ '#!optional))) + (if _%$e112828%_ _%$e112828%_ (eq? _%obj112823%_ '#!rest))))))) + (define ddsl-key? (lambda (_%obj112821%_) (eq? _%obj112821%_ '#!key))) + (define ddsl-optional? + (lambda (_%obj112819%_) (eq? _%obj112819%_ '#!optional))) + (define ddsl-rest? (lambda (_%obj112817%_) (eq? _%obj112817%_ '#!rest))) + (define stflonum? + (lambda (_%obj112815%_) + (if (flonum? _%obj112815%_) + (not (let () + (declare (not safe)) + (##mem-allocated? _%obj112815%_))) + '#f))) + (define haflonum? + (lambda (_%obj112813%_) + (if (flonum? _%obj112813%_) + (let () (declare (not safe)) (##mem-allocated? _%obj112813%_)) '#f))) (define sequence? - (lambda (_%obj109841%_) - (let ((_%$e109843%_ (vector? _%obj109841%_))) - (if _%$e109843%_ - _%$e109843%_ - (let ((_%$e109846%_ (string? _%obj109841%_))) - (if _%$e109846%_ _%$e109846%_ (hvector? _%obj109841%_))))))) + (lambda (_%obj112805%_) + (let ((_%$e112807%_ (vector? _%obj112805%_))) + (if _%$e112807%_ + _%$e112807%_ + (let ((_%$e112810%_ (string? _%obj112805%_))) + (if _%$e112810%_ _%$e112810%_ (hvector? _%obj112805%_))))))) (define hvector? - (lambda (_%obj109812%_) - (let ((_%$e109814%_ (u8vector? _%obj109812%_))) - (if _%$e109814%_ - _%$e109814%_ - (let ((_%$e109817%_ (s8vector? _%obj109812%_))) - (if _%$e109817%_ - _%$e109817%_ - (let ((_%$e109820%_ (u16vector? _%obj109812%_))) - (if _%$e109820%_ - _%$e109820%_ - (let ((_%$e109823%_ (s16vector? _%obj109812%_))) - (if _%$e109823%_ - _%$e109823%_ - (let ((_%$e109826%_ - (u32vector? _%obj109812%_))) - (if _%$e109826%_ - _%$e109826%_ - (let ((_%$e109829%_ - (s32vector? _%obj109812%_))) - (if _%$e109829%_ - _%$e109829%_ - (let ((_%$e109832%_ - (u64vector? _%obj109812%_))) - (if _%$e109832%_ - _%$e109832%_ - (let ((_%$e109835%_ + (lambda (_%obj112776%_) + (let ((_%$e112778%_ (u8vector? _%obj112776%_))) + (if _%$e112778%_ + _%$e112778%_ + (let ((_%$e112781%_ (s8vector? _%obj112776%_))) + (if _%$e112781%_ + _%$e112781%_ + (let ((_%$e112784%_ (u16vector? _%obj112776%_))) + (if _%$e112784%_ + _%$e112784%_ + (let ((_%$e112787%_ (s16vector? _%obj112776%_))) + (if _%$e112787%_ + _%$e112787%_ + (let ((_%$e112790%_ + (u32vector? _%obj112776%_))) + (if _%$e112790%_ + _%$e112790%_ + (let ((_%$e112793%_ + (s32vector? _%obj112776%_))) + (if _%$e112793%_ + _%$e112793%_ + (let ((_%$e112796%_ + (u64vector? _%obj112776%_))) + (if _%$e112796%_ + _%$e112796%_ + (let ((_%$e112799%_ (s64vector? - _%obj109812%_))) - (if _%$e109835%_ - _%$e109835%_ - (let ((_%$e109838%_ + _%obj112776%_))) + (if _%$e112799%_ + _%$e112799%_ + (let ((_%$e112802%_ (f32vector? - _%obj109812%_))) - (if _%$e109838%_ - _%$e109838%_ + _%obj112776%_))) + (if _%$e112802%_ + _%$e112802%_ (f64vector? - _%obj109812%_))))))))))))))))))))) + _%obj112776%_))))))))))))))))))))) (define weak? - (lambda (_%obj109810%_) - (if (let () (declare (not safe)) (##subtyped? _%obj109810%_)) - (eq? (let () (declare (not safe)) (##subtype _%obj109810%_)) + (lambda (_%obj112774%_) + (if (let () (declare (not safe)) (##subtyped? _%obj112774%_)) + (eq? (let () (declare (not safe)) (##subtype _%obj112774%_)) (macro-subtype-weak)) '#f))) (define object-port? - (lambda (_%obj109808%_) - (let ((__tmp109912 - (let ((__tmp109913 (macro-type-object-port))) + (lambda (_%obj112772%_) + (let ((__tmp112933 + (let ((__tmp112934 (macro-type-object-port))) (declare (not safe)) - (##type-id __tmp109913)))) + (##type-id __tmp112934)))) (declare (not safe)) - (##structure-instance-of? _%obj109808%_ __tmp109912)))) + (##structure-instance-of? _%obj112772%_ __tmp112933)))) (define character-port? - (lambda (_%obj109806%_) - (let ((__tmp109914 - (let ((__tmp109915 (macro-type-character-port))) + (lambda (_%obj112770%_) + (let ((__tmp112935 + (let ((__tmp112936 (macro-type-character-port))) (declare (not safe)) - (##type-id __tmp109915)))) + (##type-id __tmp112936)))) (declare (not safe)) - (##structure-instance-of? _%obj109806%_ __tmp109914)))) + (##structure-instance-of? _%obj112770%_ __tmp112935)))) (define device-port? - (lambda (_%obj109804%_) - (let ((__tmp109916 - (let ((__tmp109917 (macro-type-device-port))) + (lambda (_%obj112768%_) + (let ((__tmp112937 + (let ((__tmp112938 (macro-type-device-port))) (declare (not safe)) - (##type-id __tmp109917)))) + (##type-id __tmp112938)))) (declare (not safe)) - (##structure-instance-of? _%obj109804%_ __tmp109916)))) + (##structure-instance-of? _%obj112768%_ __tmp112937)))) (define vector-port? - (lambda (_%obj109802%_) - (let ((__tmp109918 - (let ((__tmp109919 (macro-type-vector-port))) + (lambda (_%obj112766%_) + (let ((__tmp112939 + (let ((__tmp112940 (macro-type-vector-port))) (declare (not safe)) - (##type-id __tmp109919)))) + (##type-id __tmp112940)))) (declare (not safe)) - (##structure-instance-of? _%obj109802%_ __tmp109918)))) + (##structure-instance-of? _%obj112766%_ __tmp112939)))) (define string-port? - (lambda (_%obj109800%_) - (let ((__tmp109920 - (let ((__tmp109921 (macro-type-string-port))) + (lambda (_%obj112764%_) + (let ((__tmp112941 + (let ((__tmp112942 (macro-type-string-port))) (declare (not safe)) - (##type-id __tmp109921)))) + (##type-id __tmp112942)))) (declare (not safe)) - (##structure-instance-of? _%obj109800%_ __tmp109920)))) + (##structure-instance-of? _%obj112764%_ __tmp112941)))) (define u8vector-port? - (lambda (_%obj109798%_) - (let ((__tmp109922 - (let ((__tmp109923 (macro-type-u8vector-port))) + (lambda (_%obj112762%_) + (let ((__tmp112943 + (let ((__tmp112944 (macro-type-u8vector-port))) (declare (not safe)) - (##type-id __tmp109923)))) + (##type-id __tmp112944)))) (declare (not safe)) - (##structure-instance-of? _%obj109798%_ __tmp109922)))) + (##structure-instance-of? _%obj112762%_ __tmp112943)))) (define raw-device-port? - (lambda (_%obj109796%_) - (let ((__tmp109924 - (let ((__tmp109925 (macro-type-raw-device-port))) + (lambda (_%obj112760%_) + (let ((__tmp112945 + (let ((__tmp112946 (macro-type-raw-device-port))) (declare (not safe)) - (##type-id __tmp109925)))) + (##type-id __tmp112946)))) (declare (not safe)) - (##structure-instance-of? _%obj109796%_ __tmp109924)))) + (##structure-instance-of? _%obj112760%_ __tmp112945)))) (define tcp-server-port? - (lambda (_%obj109794%_) - (let ((__tmp109926 - (let ((__tmp109927 (macro-type-tcp-server-port))) + (lambda (_%obj112758%_) + (let ((__tmp112947 + (let ((__tmp112948 (macro-type-tcp-server-port))) (declare (not safe)) - (##type-id __tmp109927)))) + (##type-id __tmp112948)))) (declare (not safe)) - (##structure-instance-of? _%obj109794%_ __tmp109926)))) + (##structure-instance-of? _%obj112758%_ __tmp112947)))) (define udp-port? - (lambda (_%obj109792%_) - (let ((__tmp109928 - (let ((__tmp109929 (macro-type-udp-port))) + (lambda (_%obj112756%_) + (let ((__tmp112949 + (let ((__tmp112950 (macro-type-udp-port))) (declare (not safe)) - (##type-id __tmp109929)))) + (##type-id __tmp112950)))) (declare (not safe)) - (##structure-instance-of? _%obj109792%_ __tmp109928)))) + (##structure-instance-of? _%obj112756%_ __tmp112949)))) (define directory-port? - (lambda (_%obj109790%_) - (let ((__tmp109930 - (let ((__tmp109931 (macro-type-directory-port))) + (lambda (_%obj112754%_) + (let ((__tmp112951 + (let ((__tmp112952 (macro-type-directory-port))) (declare (not safe)) - (##type-id __tmp109931)))) + (##type-id __tmp112952)))) (declare (not safe)) - (##structure-instance-of? _%obj109790%_ __tmp109930)))) + (##structure-instance-of? _%obj112754%_ __tmp112951)))) (define event-queue-port? - (lambda (_%obj109788%_) - (let ((__tmp109932 - (let ((__tmp109933 (macro-type-event-queue-port))) + (lambda (_%obj112752%_) + (let ((__tmp112953 + (let ((__tmp112954 (macro-type-event-queue-port))) (declare (not safe)) - (##type-id __tmp109933)))) + (##type-id __tmp112954)))) (declare (not safe)) - (##structure-instance-of? _%obj109788%_ __tmp109932)))) + (##structure-instance-of? _%obj112752%_ __tmp112953)))) (define readenv? - (lambda (_%obj109786%_) - (let ((__tmp109934 - (let ((__tmp109935 (macro-type-readenv))) + (lambda (_%obj112750%_) + (let ((__tmp112955 + (let ((__tmp112956 (macro-type-readenv))) (declare (not safe)) - (##type-id __tmp109935)))) + (##type-id __tmp112956)))) (declare (not safe)) - (##structure-instance-of? _%obj109786%_ __tmp109934)))) + (##structure-instance-of? _%obj112750%_ __tmp112955)))) (define writeenv? - (lambda (_%obj109784%_) - (let ((__tmp109936 - (let ((__tmp109937 (macro-type-writeenv))) + (lambda (_%obj112748%_) + (let ((__tmp112957 + (let ((__tmp112958 (macro-type-writeenv))) (declare (not safe)) - (##type-id __tmp109937)))) + (##type-id __tmp112958)))) (declare (not safe)) - (##structure-instance-of? _%obj109784%_ __tmp109936)))) + (##structure-instance-of? _%obj112748%_ __tmp112957)))) (define vm? - (lambda (_%obj109782%_) - (let ((__tmp109938 - (let ((__tmp109939 (macro-type-vm))) + (lambda (_%obj112746%_) + (let ((__tmp112959 + (let ((__tmp112960 (macro-type-vm))) (declare (not safe)) - (##type-id __tmp109939)))) + (##type-id __tmp112960)))) (declare (not safe)) - (##structure-instance-of? _%obj109782%_ __tmp109938)))))) + (##structure-instance-of? _%obj112746%_ __tmp112959)))))) diff --git a/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm b/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm index 901bced434..43bc55f77e 100644 --- a/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm +++ b/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm @@ -1,208 +1,209 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g109940_| + (define |[1]#_g112961_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (define |[:0:]#defpred| - (lambda (_%stx109567%_) - (let* ((_%g109570109608%_ - (lambda (_%g109571109604%_) + (lambda (_%stx112533%_) + (let* ((_%g112536112574%_ + (lambda (_%g112537112570%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g109571109604%_))) - (_%g109569109777%_ - (lambda (_%g109571109612%_) - (if (gx#stx-pair? _%g109571109612%_) - (let ((_%e109576109615%_ (gx#syntax-e _%g109571109612%_))) - (let ((_%hd109577109619%_ + _%g112537112570%_))) + (_%g112535112741%_ + (lambda (_%g112537112578%_) + (if (gx#stx-pair? _%g112537112578%_) + (let ((_%e112542112581%_ (gx#syntax-e _%g112537112578%_))) + (let ((_%hd112543112585%_ (let () (declare (not safe)) - (##car _%e109576109615%_))) - (_%tl109578109622%_ + (##car _%e112542112581%_))) + (_%tl112544112588%_ (let () (declare (not safe)) - (##cdr _%e109576109615%_)))) - (if (gx#stx-pair? _%tl109578109622%_) - (let ((_%e109579109625%_ - (gx#syntax-e _%tl109578109622%_))) - (let ((_%hd109580109629%_ + (##cdr _%e112542112581%_)))) + (if (gx#stx-pair? _%tl112544112588%_) + (let ((_%e112545112591%_ + (gx#syntax-e _%tl112544112588%_))) + (let ((_%hd112546112595%_ (let () (declare (not safe)) - (##car _%e109579109625%_))) - (_%tl109581109632%_ + (##car _%e112545112591%_))) + (_%tl112547112598%_ (let () (declare (not safe)) - (##cdr _%e109579109625%_)))) - (if (gx#stx-pair? _%hd109580109629%_) - (let ((_%e109582109635%_ - (gx#syntax-e _%hd109580109629%_))) - (let ((_%hd109583109639%_ + (##cdr _%e112545112591%_)))) + (if (gx#stx-pair? _%hd112546112595%_) + (let ((_%e112548112601%_ + (gx#syntax-e _%hd112546112595%_))) + (let ((_%hd112549112605%_ (let () (declare (not safe)) - (##car _%e109582109635%_))) - (_%tl109584109642%_ + (##car _%e112548112601%_))) + (_%tl112550112608%_ (let () (declare (not safe)) - (##cdr _%e109582109635%_)))) - (if (gx#stx-pair? _%tl109584109642%_) - (let ((_%e109585109645%_ + (##cdr _%e112548112601%_)))) + (if (gx#stx-pair? _%tl112550112608%_) + (let ((_%e112551112611%_ (gx#syntax-e - _%tl109584109642%_))) - (let ((_%hd109586109649%_ + _%tl112550112608%_))) + (let ((_%hd112552112615%_ (let () (declare (not safe)) - (##car _%e109585109645%_))) - (_%tl109587109652%_ + (##car _%e112551112611%_))) + (_%tl112553112618%_ (let () (declare (not safe)) - (##cdr _%e109585109645%_)))) + (##cdr _%e112551112611%_)))) (if (gx#stx-null? - _%tl109587109652%_) + _%tl112553112618%_) (if (gx#stx-pair? - _%tl109581109632%_) - (let ((_%e109588109655%_ + _%tl112547112598%_) + (let ((_%e112554112621%_ (gx#syntax-e - _%tl109581109632%_))) - (let ((_%hd109589109659%_ + _%tl112547112598%_))) + (let ((_%hd112555112625%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%e109588109655%_))) - (_%tl109590109662%_ + (##car _%e112554112621%_))) + (_%tl112556112628%_ (let () (declare (not safe)) - (##cdr _%e109588109655%_)))) - (if (gx#identifier? _%hd109589109659%_) + (##cdr _%e112554112621%_)))) + (if (gx#identifier? _%hd112555112625%_) (if (gx#free-identifier=? - |[1]#_g109940_| - _%hd109589109659%_) - (if (gx#stx-pair? _%tl109590109662%_) - (let ((_%e109591109665%_ - (gx#syntax-e _%tl109590109662%_))) - (let ((_%hd109592109669%_ + |[1]#_g112961_| + _%hd112555112625%_) + (if (gx#stx-pair? _%tl112556112628%_) + (let ((_%e112557112631%_ + (gx#syntax-e _%tl112556112628%_))) + (let ((_%hd112558112635%_ (let () (declare (not safe)) - (##car _%e109591109665%_))) - (_%tl109593109672%_ + (##car _%e112557112631%_))) + (_%tl112559112638%_ (let () (declare (not safe)) - (##cdr _%e109591109665%_)))) - (if (gx#stx-pair/null? _%tl109593109672%_) - (let ((_g109941_ + (##cdr _%e112557112631%_)))) + (if (gx#stx-pair/null? _%tl112559112638%_) + (let ((_g112962_ (gx#syntax-split-splice - _%tl109593109672%_ + _%tl112559112638%_ '0))) (begin - (let ((_g109942_ + (let ((_g112963_ (let () (declare (not safe)) - (if (##values? _g109941_) + (if (##values? _g112962_) (##values-length - _g109941_) + _g112962_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g109942_ 2))) + (##fx= _g112963_ 2))) (error "Context expects 2 values" - _g109942_))) - (let ((_%target109594109675%_ + _g112963_))) + (let ((_%target112560112641%_ (let () (declare (not safe)) (##values-ref - _g109941_ + _g112962_ 0))) - (_%tl109596109678%_ + (_%tl112562112644%_ (let () (declare (not safe)) (##values-ref - _g109941_ + _g112962_ 1)))) (if (gx#stx-null? - _%tl109596109678%_) - (letrec ((_%loop109597109681%_ - (lambda (_%hd109595109685%_ + _%tl112562112644%_) + (letrec ((_%loop112563112647%_ + (lambda (_%hd112561112651%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body109601109688%_) - (if (gx#stx-pair? _%hd109595109685%_) - (let ((_%e109598109691%_ - (gx#syntax-e _%hd109595109685%_))) - (let ((_%lp-hd109599109695%_ + _%body112567112654%_) + (if (gx#stx-pair? _%hd112561112651%_) + (let ((_%e112564112656%_ + (gx#syntax-e _%hd112561112651%_))) + (let ((_%lp-hd112565112660%_ (let () (declare (not safe)) - (##car _%e109598109691%_))) - (_%lp-tl109600109698%_ + (##car _%e112564112656%_))) + (_%lp-tl112566112663%_ (let () (declare (not safe)) - (##cdr _%e109598109691%_)))) - (_%loop109597109681%_ - _%lp-tl109600109698%_ - (cons _%lp-hd109599109695%_ - _%body109601109688%_)))) - (let ((_%body109602109701%_ - (reverse _%body109601109688%_))) - ((lambda (_%L109705%_ - _%L109707%_ - _%L109708%_ - _%L109709%_) - (let* ((_%g109738109746%_ - (lambda (_%g109739109742%_) + (##cdr _%e112564112656%_)))) + (_%loop112563112647%_ + _%lp-tl112566112663%_ + (cons _%lp-hd112565112660%_ + _%body112567112654%_)))) + (let ((_%body112568112666%_ + (reverse _%body112567112654%_))) + ((lambda (_%g112538112669%_ + _%g112539112671%_ + _%g112540112672%_ + _%g112541112673%_) + (let* ((_%g112702112710%_ + (lambda (_%g112703112706%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g109739109742%_))) - (_%g109737109773%_ - (lambda (_%g109739109750%_) - ((lambda (_%L109753%_) + _%g112703112706%_))) + (_%g112701112737%_ + (lambda (_%g112703112714%_) + ((lambda (_%g112704112717%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L109709%_ + (cons _%g112541112673%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@predicate) - (cons _%L109753%_ '())) + (cons _%g112704112717%_ '())) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L109708%_ '()) - (let ((__tmp109943 - (lambda (_%g109764109767%_ + (cons (cons _%g112540112672%_ + '()) + (let ((__tmp112964 + (lambda (_%g112728112731%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g109765109770%_) - (cons _%g109764109767%_ _%g109765109770%_)))) + _%g112729112734%_) + (cons _%g112728112731%_ _%g112729112734%_)))) (declare (not safe)) - (__foldr1 __tmp109943 '() _%L109705%_)))) + (__foldr1 __tmp112964 '() _%g112538112669%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g109739109750%_)))) - (_%g109737109773%_ + _%g112703112714%_)))) + (_%g112701112737%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx109567%_ - _%L109707%_))))) - _%body109602109701%_ - _%hd109592109669%_ - _%hd109586109649%_ - _%hd109583109639%_)))))) + _%stx112533%_ + _%g112539112671%_))))) + _%body112568112666%_ + _%hd112558112635%_ + _%hd112552112615%_ + _%hd112549112605%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop109597109681%_ - _%target109594109675%_ + (_%loop112563112647%_ + _%target112560112641%_ '())) - (_%g109570109608%_ - _%g109571109612%_))))) - (_%g109570109608%_ - _%g109571109612%_)))) - (_%g109570109608%_ _%g109571109612%_)) - (_%g109570109608%_ _%g109571109612%_)) - (_%g109570109608%_ _%g109571109612%_)))) - (_%g109570109608%_ _%g109571109612%_)) + (_%g112536112574%_ + _%g112537112578%_))))) + (_%g112536112574%_ + _%g112537112578%_)))) + (_%g112536112574%_ _%g112537112578%_)) + (_%g112536112574%_ _%g112537112578%_)) + (_%g112536112574%_ _%g112537112578%_)))) + (_%g112536112574%_ _%g112537112578%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g109570109608%_ - _%g109571109612%_)))) - (_%g109570109608%_ - _%g109571109612%_)))) - (_%g109570109608%_ _%g109571109612%_)))) - (_%g109570109608%_ _%g109571109612%_)))) - (_%g109570109608%_ _%g109571109612%_))))) - (_%g109569109777%_ _%stx109567%_))))) + (_%g112536112574%_ + _%g112537112578%_)))) + (_%g112536112574%_ + _%g112537112578%_)))) + (_%g112536112574%_ _%g112537112578%_)))) + (_%g112536112574%_ _%g112537112578%_)))) + (_%g112536112574%_ _%g112537112578%_))))) + (_%g112535112741%_ _%stx112533%_))))) diff --git a/src/bootstrap/gerbil/runtime/mop.ssi b/src/bootstrap/gerbil/runtime/mop.ssi index 26288f9cb7..d707fb18bd 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssi +++ b/src/bootstrap/gerbil/runtime/mop.ssi @@ -17,9 +17,12 @@ namespace: #f (%#define-runtime class-type-flag-sealed class-type-flag-sealed) (%#define-runtime class-type-flag-metaclass class-type-flag-metaclass) (%#define-runtime class-type-flag-system class-type-flag-system) + (%#define-runtime class-type-flag-acyclic class-type-flag-acyclic) (%#define-runtime t::t t::t) (%#define-runtime class::t class::t) (%#define-runtime object::t object::t) + (%#define-runtime class-type class-type) + (%#define-runtime __class-type __class-type) (%#define-runtime class-type? class-type?) (%#define-runtime class-type=? class-type=?) (%#define-runtime __class-type=? __class-type=?) @@ -30,6 +33,8 @@ namespace: #f (%#define-syntax fxflag-unset? |[:0:]#fxflag-unset?|) (%#define-runtime type-opaque? type-opaque?) (%#define-runtime __type-opaque? __type-opaque?) + (%#define-runtime class-type-opaque? class-type-opaque?) + (%#define-runtime __class-type-opaque? __class-type-opaque?) (%#define-runtime type-extensible? type-extensible?) (%#define-runtime __type-extensible? __type-extensible?) (%#define-runtime class-type-final? class-type-final?) @@ -42,6 +47,8 @@ namespace: #f (%#define-runtime __class-type-metaclass? __class-type-metaclass?) (%#define-runtime class-type-system? class-type-system?) (%#define-runtime __class-type-system? __class-type-system?) + (%#define-runtime class-type-acyclic? class-type-acyclic?) + (%#define-runtime __class-type-acyclic? __class-type-acyclic?) (%#define-runtime make-class-type-descriptor make-class-type-descriptor) @@ -115,12 +122,32 @@ namespace: #f (%#define-runtime &class-type-methods &class-type-methods) (%#define-runtime class-type-methods-set! class-type-methods-set!) (%#define-runtime &class-type-methods-set! &class-type-methods-set!) + (%#define-runtime class-type-specializer class-type-specializer) + (%#define-runtime &class-type-specializer &class-type-specializer) + (%#define-runtime + class-type-specializer-set! + class-type-specializer-set!) + (%#define-runtime + &class-type-specializer-set! + &class-type-specializer-set!) + (%#define-runtime class-type-interface class-type-interface) + (%#define-runtime &class-type-interface &class-type-interface) + (%#define-runtime class-type-interface-set! class-type-interface-set!) + (%#define-runtime + &class-type-interface-set! + &class-type-interface-set!) (%#define-runtime class-type-slot-list class-type-slot-list) (%#define-runtime __class-type-slot-list __class-type-slot-list) (%#define-runtime class-type-field-count class-type-field-count) (%#define-runtime __class-type-field-count __class-type-field-count) (%#define-runtime class-type-seal! class-type-seal!) (%#define-runtime __class-type-seal! __class-type-seal!) + (%#define-runtime + class-type-printable-slots + class-type-printable-slots) + (%#define-runtime + __class-type-printable-slots + __class-type-printable-slots) (%#define-runtime substruct? substruct?) (%#define-runtime __substruct? __substruct?) (%#define-runtime base-struct/1 base-struct/1) @@ -215,7 +242,6 @@ namespace: #f (%#define-runtime subclass? subclass?) (%#define-runtime __subclass? __subclass?) (%#define-runtime object? object?) - (%#define-runtime object-type object-type) (%#define-runtime direct-instance? direct-instance?) (%#define-runtime __direct-instance? __direct-instance?) (%#define-runtime immediate-instance-of? immediate-instance-of?) @@ -225,6 +251,8 @@ namespace: #f (%#define-runtime __class-instance? __class-instance?) (%#define-runtime make-object make-object) (%#define-runtime __make-object __make-object) + (%#define-runtime object-class object-class) + (%#define-runtime __object-class __object-class) (%#define-runtime object-fill! object-fill!) (%#define-runtime __object-fill! __object-fill!) (%#define-runtime new-instance new-instance) @@ -289,72 +317,55 @@ namespace: #f (%#define-runtime make-method-specializer-table make-method-specializer-table))) + (%#begin (%#define-runtime + make-method-specializer-table/lock__% + make-method-specializer-table/lock__%) + (%#begin (%#define-runtime + make-method-specializer-table/lock__0 + make-method-specializer-table/lock__0) + (%#define-runtime + make-method-specializer-table/lock__1 + make-method-specializer-table/lock__1) + (%#define-runtime + make-method-specializer-table/lock + make-method-specializer-table/lock))) (%#define-runtime method-specializer-table-ref method-specializer-table-ref) (%#define-runtime - method-specializer-table-set! - method-specializer-table-set!) + method-specializer-table-ref/lock + method-specializer-table-ref/lock) (%#define-runtime __method-specializer-table-set! __method-specializer-table-set!) (%#define-runtime - method-specializer-table-update! - method-specializer-table-update!) + method-specializer-table-set! + method-specializer-table-set!) + (%#define-runtime + method-specializer-table-set!/lock + method-specializer-table-set!/lock) (%#define-runtime __method-specializer-table-update! __method-specializer-table-update!) + (%#define-runtime + method-specializer-table-update! + method-specializer-table-update!) + (%#define-runtime + method-specializer-table-update!/lock + method-specializer-table-update!/lock) (%#define-runtime method-specializer-table-delete! method-specializer-table-delete!) + (%#define-runtime + method-specializer-table-delete!/lock + method-specializer-table-delete!/lock) (%#define-runtime __method-specializers __method-specializers) - (%#define-runtime __method-specializers-mx __method-specializers-mx) (%#define-runtime bind-specializer! bind-specializer!) (%#define-runtime __lookup-method-specializer __lookup-method-specializer) - (%#define-runtime - __class-specializer-hash-key - __class-specializer-hash-key) - (%#begin (%#define-runtime - make-class-specializer-table__% - make-class-specializer-table__%) - (%#begin (%#define-runtime - make-class-specializer-table__0 - make-class-specializer-table__0) - (%#define-runtime - make-class-specializer-table__1 - make-class-specializer-table__1) - (%#define-runtime - make-class-specializer-table - make-class-specializer-table))) - (%#define-runtime - class-specializer-table-ref - class-specializer-table-ref) - (%#define-runtime - class-specializer-table-set! - class-specializer-table-set!) - (%#define-runtime - __class-specializer-table-set! - __class-specializer-table-set!) - (%#define-runtime - class-specializer-table-update! - class-specializer-table-update!) - (%#define-runtime - __class-specializer-table-update! - __class-specializer-table-update!) - (%#define-runtime - class-specializer-table-delete! - class-specializer-table-delete!) - (%#define-runtime __class-specializers-mx __class-specializers-mx) - (%#define-runtime __class-specializers __class-specializers) - (%#define-runtime __class-specializers-key __class-specializers-key) (%#define-runtime specialize-class specialize-class) (%#define-runtime __specialize-class __specialize-class) - (%#define-runtime - __lookup-class-specializer - __lookup-class-specializer) - (%#define-runtime __bind-class-specializer! __bind-class-specializer!) (%#define-runtime __specialize-method __specialize-method) (%#define-runtime ___specialize-class ___specialize-class) (%#define-runtime seal-class! seal-class!) @@ -363,11 +374,13 @@ namespace: #f (%#define-runtime __next-method __next-method) (%#define-runtime call-next-method call-next-method) (%#define-runtime __call-next-method __call-next-method) - (%#define-runtime write-style write-style) - (%#define-runtime write-object write-object) (%#define-runtime __shadow-classes __shadow-classes) - (%#define-runtime __shadow-classes-mx __shadow-classes-mx) - (%#define-runtime __shadow-class __shadow-class) + (%#define-runtime __shadow-classes-lock __shadow-classes-lock) + (%#begin (%#define-runtime __shadow-class__% __shadow-class__%) + (%#begin (%#define-runtime + __shadow-class__0 + __shadow-class__0) + (%#define-runtime __shadow-class __shadow-class))) (%#define-runtime __type __type) (%#define-runtime __class __class) (%#define-runtime type-of type-of) diff --git a/src/bootstrap/gerbil/runtime/mop.ssxi.ss b/src/bootstrap/gerbil/runtime/mop.ssxi.ss index e57ba75162..937f539f49 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/mop.ssxi.ss @@ -29,6 +29,9 @@ package: gerbil/runtime (declare-type class-type-flag-system (optimizer-resolve-class '(typedecl class-type-flag-system) 'fixnum::t)) + (declare-type + class-type-flag-acyclic + (optimizer-resolve-class '(typedecl class-type-flag-acyclic) 'fixnum::t)) (declare-class t::t (@class t () () () () #f #f #f #f #f #f)) (declare-type t::t (optimizer-resolve-class '(typedecl t::t) 'class::t)) (declare-class @@ -45,7 +48,9 @@ package: gerbil/runtime slot-table properties constructor - methods) + methods + specializer + interface) (id name super flags @@ -55,7 +60,9 @@ package: gerbil/runtime slot-table properties constructor - methods) + methods + specializer + interface) #f #t #f @@ -71,6 +78,36 @@ package: gerbil/runtime (declare-type object::t (optimizer-resolve-class '(typedecl object::t) 'class::t)) + (declare-type + class-type + (@lambda 1 + #f + signature: + (return: + class::t + effect: + #f + arguments: + (class::t) + unchecked: + __class-type + origin: + gerbil/runtime/mop))) + (declare-type + __class-type + (@lambda 1 + #f + signature: + (return: + class::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type class-type? (@predicate class::t)) (declare-type class-type=? @@ -132,6 +169,36 @@ package: gerbil/runtime #f origin: gerbil/runtime/mop))) + (declare-type + class-type-opaque? + (@lambda 1 + #f + signature: + (return: + boolean::t + effect: + #f + arguments: + (class::t) + unchecked: + __class-type-opaque? + origin: + gerbil/runtime/mop))) + (declare-type + __class-type-opaque? + (@lambda 1 + #f + signature: + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type type-extensible? (@lambda 1 @@ -312,6 +379,36 @@ package: gerbil/runtime #f origin: gerbil/runtime/mop))) + (declare-type + class-type-acyclic? + (@lambda 1 + #f + signature: + (return: + boolean::t + effect: + #f + arguments: + (class::t) + unchecked: + __class-type-acyclic? + origin: + gerbil/runtime/mop))) + (declare-type + __class-type-acyclic? + (@lambda 1 + #f + signature: + (return: + boolean::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type make-class-type-descriptor (@lambda 9 @@ -383,6 +480,16 @@ package: gerbil/runtime (declare-type &class-type-methods (@accessor class::t methods #f)) (declare-type class-type-methods-set! (@mutator class::t methods #t)) (declare-type &class-type-methods-set! (@mutator class::t methods #f)) + (declare-type class-type-specializer (@accessor class::t specializer #t)) + (declare-type &class-type-specializer (@accessor class::t specializer #f)) + (declare-type class-type-specializer-set! (@mutator class::t specializer #t)) + (declare-type + &class-type-specializer-set! + (@mutator class::t specializer #f)) + (declare-type class-type-interface (@accessor class::t interface #t)) + (declare-type &class-type-interface (@accessor class::t interface #f)) + (declare-type class-type-interface-set! (@mutator class::t interface #t)) + (declare-type &class-type-interface-set! (@mutator class::t interface #f)) (declare-type class-type-slot-list (@lambda 1 @@ -473,6 +580,36 @@ package: gerbil/runtime #f origin: gerbil/runtime/mop))) + (declare-type + class-type-printable-slots + (@lambda 1 + #f + signature: + (return: + list::t + effect: + #f + arguments: + (class::t) + unchecked: + __class-type-printable-slots + origin: + gerbil/runtime/mop))) + (declare-type + __class-type-printable-slots + (@lambda 1 + #f + signature: + (return: + list::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type substruct? (@lambda 2 @@ -1503,21 +1640,6 @@ package: gerbil/runtime #f origin: gerbil/runtime/mop))) - (declare-type - object-type - (@lambda 1 - #f - signature: - (return: - class::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/mop))) (declare-type direct-instance? (@lambda 2 @@ -1696,6 +1818,36 @@ package: gerbil/runtime ((($obj) (%#call (%#ref ##make-structure) klass len))) (%#begin (%#call (%#ref object-fill!) (%#ref $obj) (%#quote #f)) (%#ref $obj)))))))) + (declare-type + object-class + (@lambda 1 + #f + signature: + (return: + class::t + effect: + #f + arguments: + (object::t) + unchecked: + __object-class + origin: + gerbil/runtime/mop))) + (declare-type + __object-class + (@lambda 1 + #f + signature: + (return: + class::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type object-fill! (@lambda 2 @@ -2560,8 +2712,8 @@ package: gerbil/runtime origin: gerbil/runtime/mop)))) (declare-type - method-specializer-table-ref - (@lambda 3 + make-method-specializer-table/lock__% + (@lambda 2 #f signature: (return: @@ -2575,8 +2727,8 @@ package: gerbil/runtime origin: gerbil/runtime/mop))) (declare-type - method-specializer-table-set! - (@lambda 3 + make-method-specializer-table/lock__0 + (@lambda 0 #f signature: (return: @@ -2590,8 +2742,8 @@ package: gerbil/runtime origin: gerbil/runtime/mop))) (declare-type - __method-specializer-table-set! - (@lambda 3 + make-method-specializer-table/lock__1 + (@lambda 1 #f signature: (return: @@ -2605,23 +2757,50 @@ package: gerbil/runtime origin: gerbil/runtime/mop))) (declare-type - method-specializer-table-update! - (@lambda 4 - #f - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/mop))) + make-method-specializer-table/lock + (@case-lambda + (0 + make-method-specializer-table/lock__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)) + (1 + make-method-specializer-table/lock__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)) + (2 + make-method-specializer-table/lock__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)))) (declare-type - __method-specializer-table-update! - (@lambda 4 + method-specializer-table-ref + (@lambda 3 #f signature: (return: @@ -2635,8 +2814,8 @@ package: gerbil/runtime origin: gerbil/runtime/mop))) (declare-type - method-specializer-table-delete! - (@lambda 2 + method-specializer-table-ref/lock + (@lambda 3 #f signature: (return: @@ -2650,14 +2829,8 @@ package: gerbil/runtime origin: gerbil/runtime/mop))) (declare-type - __method-specializers - (optimizer-resolve-class '(typedecl __method-specializers) 't::t)) - (declare-type - __method-specializers-mx - (optimizer-resolve-class '(typedecl __method-specializers-mx) 'vector::t)) - (declare-type - bind-specializer! - (@lambda 2 + __method-specializer-table-set! + (@lambda 3 #f signature: (return: @@ -2671,8 +2844,8 @@ package: gerbil/runtime origin: gerbil/runtime/mop))) (declare-type - __lookup-method-specializer - (@lambda 1 + method-specializer-table-set! + (@lambda 3 #f signature: (return: @@ -2686,23 +2859,8 @@ package: gerbil/runtime origin: gerbil/runtime/mop))) (declare-type - __class-specializer-hash-key - (@lambda 1 - #f - signature: - (return: - fixnum::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/mop))) - (declare-type - make-class-specializer-table__% - (@lambda 2 + method-specializer-table-set!/lock + (@lambda 3 #f signature: (return: @@ -2716,8 +2874,8 @@ package: gerbil/runtime origin: gerbil/runtime/mop))) (declare-type - make-class-specializer-table__0 - (@lambda 0 + __method-specializer-table-update! + (@lambda 4 #f signature: (return: @@ -2731,8 +2889,8 @@ package: gerbil/runtime origin: gerbil/runtime/mop))) (declare-type - make-class-specializer-table__1 - (@lambda 1 + method-specializer-table-update! + (@lambda 4 #f signature: (return: @@ -2746,50 +2904,8 @@ package: gerbil/runtime origin: gerbil/runtime/mop))) (declare-type - make-class-specializer-table - (@case-lambda - (0 - make-class-specializer-table__0 - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/mop)) - (1 - make-class-specializer-table__1 - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/mop)) - (2 - make-class-specializer-table__% - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/mop)))) - (declare-type - class-specializer-table-ref - (@lambda 3 + method-specializer-table-update!/lock + (@lambda 4 #f signature: (return: @@ -2803,8 +2919,8 @@ package: gerbil/runtime origin: gerbil/runtime/mop))) (declare-type - class-specializer-table-set! - (@lambda 3 + method-specializer-table-delete! + (@lambda 2 #f signature: (return: @@ -2818,8 +2934,8 @@ package: gerbil/runtime origin: gerbil/runtime/mop))) (declare-type - __class-specializer-table-set! - (@lambda 3 + method-specializer-table-delete!/lock + (@lambda 2 #f signature: (return: @@ -2833,23 +2949,11 @@ package: gerbil/runtime origin: gerbil/runtime/mop))) (declare-type - class-specializer-table-update! - (@lambda 4 - #f - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/mop))) + __method-specializers + (optimizer-resolve-class '(typedecl __method-specializers) 't::t)) (declare-type - __class-specializer-table-update! - (@lambda 4 + bind-specializer! + (@lambda 2 #f signature: (return: @@ -2863,8 +2967,8 @@ package: gerbil/runtime origin: gerbil/runtime/mop))) (declare-type - class-specializer-table-delete! - (@lambda 2 + __lookup-method-specializer + (@lambda 1 #f signature: (return: @@ -2877,15 +2981,6 @@ package: gerbil/runtime #f origin: gerbil/runtime/mop))) - (declare-type - __class-specializers-mx - (optimizer-resolve-class '(typedecl __class-specializers-mx) 'vector::t)) - (declare-type - __class-specializers - (optimizer-resolve-class '(typedecl __class-specializers) 't::t)) - (declare-type - __class-specializers-key - (optimizer-resolve-class '(typedecl __class-specializers-key) 'pair::t)) (declare-type specialize-class (@lambda 1 @@ -2916,36 +3011,6 @@ package: gerbil/runtime #f origin: gerbil/runtime/mop))) - (declare-type - __lookup-class-specializer - (@lambda 1 - #f - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/mop))) - (declare-type - __bind-class-specializer! - (@lambda 2 - #f - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/mop))) (declare-type __specialize-method (@lambda 4 @@ -3067,22 +3132,13 @@ package: gerbil/runtime origin: gerbil/runtime/mop))) (declare-type - write-style - (@lambda 1 - #f - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/mop))) + __shadow-classes + (optimizer-resolve-class '(typedecl __shadow-classes) 't::t)) + (declare-type + __shadow-classes-lock + (optimizer-resolve-class '(typedecl __shadow-classes-lock) 'vector::t)) (declare-type - write-object + __shadow-class__% (@lambda 2 #f signature: @@ -3097,13 +3153,7 @@ package: gerbil/runtime origin: gerbil/runtime/mop))) (declare-type - __shadow-classes - (optimizer-resolve-class '(typedecl __shadow-classes) 't::t)) - (declare-type - __shadow-classes-mx - (optimizer-resolve-class '(typedecl __shadow-classes-mx) 'vector::t)) - (declare-type - __shadow-class + __shadow-class__0 (@lambda 1 #f signature: @@ -3117,6 +3167,35 @@ package: gerbil/runtime #f origin: gerbil/runtime/mop))) + (declare-type + __shadow-class + (@case-lambda + (1 + __shadow-class__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)) + (2 + __shadow-class__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop)))) (declare-type __type (optimizer-resolve-class '(typedecl __type) 't::t)) (declare-type __class (optimizer-resolve-class '(typedecl __class) 't::t)) (declare-type @@ -3172,7 +3251,7 @@ package: gerbil/runtime gerbil/runtime/mop))) (declare-type __make-system-class - (@lambda 2 + (@lambda 3 #f signature: (return: diff --git a/src/bootstrap/gerbil/runtime/mop~0.scm b/src/bootstrap/gerbil/runtime/mop~0.scm index b06cce409e..97f53940b1 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 1756721294) + (define gerbil/runtime/mop::timestamp 1769384627) (begin (define type-flag-opaque '1) (define type-flag-extensible '2) @@ -11,15 +11,16 @@ (define class-type-flag-sealed '2048) (define class-type-flag-metaclass '4096) (define class-type-flag-system '8192) + (define class-type-flag-acyclic '16384) (define t::t - (let ((_%flags107952%_ + (let ((_%flags110799%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-id class-type-flag-system))) - (_%properties107953%_ '((direct-slots:) (system: . #t))) - (_%slot-table107954%_ + (_%properties110800%_ '((direct-slots:) (system: . #t))) + (_%slot-table110801%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) @@ -27,17 +28,19 @@ '#f 't 't - _%flags107952%_ + _%flags110799%_ '#f '#() '() '#(#f) - _%slot-table107954%_ - _%properties107953%_ + _%slot-table110801%_ + _%properties110800%_ + '#f + '#f '#f '#f)))) (define class::t - (let* ((_%slots107928%_ + (let* ((_%slots110775%_ '(id name super flags @@ -47,1581 +50,1863 @@ slot-table properties constructor - methods)) - (_%slot-vector107930%_ (list->vector (cons '#f _%slots107928%_))) - (_%slot-table107937%_ - (let ((_%slot-table107932%_ + methods + specializer + interface)) + (_%slot-vector110777%_ (list->vector (cons '#f _%slots110775%_))) + (_%slot-table110784%_ + (let ((_%slot-table110779%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp109395 - (lambda (_%slot107934%_ _%field107935%_) + (let ((__tmp112374 + (lambda (_%slot110781%_ _%field110782%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table107932%_ - _%slot107934%_ - _%field107935%_)) - (let ((__tmp109396 + _%slot-table110779%_ + _%slot110781%_ + _%field110782%_)) + (let ((__tmp112375 (let () (declare (not safe)) - (symbol->keyword _%slot107934%_)))) + (symbol->keyword _%slot110781%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table107932%_ - __tmp109396 - _%field107935%_)))) - (__tmp109393 - (let ((__tmp109394 + _%slot-table110779%_ + __tmp112375 + _%field110782%_)))) + (__tmp112372 + (let ((__tmp112373 (let () (declare (not safe)) - (##length _%slots107928%_)))) + (##length _%slots110775%_)))) (declare (not safe)) - (##iota __tmp109394 '1)))) + (##iota __tmp112373 '1)))) (declare (not safe)) - (##for-each __tmp109395 _%slots107928%_ __tmp109393)) - _%slot-table107932%_)) - (_%flags107939%_ + (##for-each __tmp112374 _%slots110775%_ __tmp112372)) + _%slot-table110779%_)) + (_%flags110786%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields107945%_ + (_%fields110792%_ (list->vector - (let ((__tmp109397 - (map (lambda (_%g107940107942%_) - (list _%g107940107942%_ '5 '#f)) - (drop _%slots107928%_ '5)))) + (let ((__tmp112376 + (map (lambda (_%g110787110789%_) + (list _%g110787110789%_ '5 '#f)) + (drop _%slots110775%_ '5)))) (declare (not safe)) - (##apply append __tmp109397)))) - (_%properties107947%_ + (##apply append __tmp112376)))) + (_%properties110794%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots107928%_))) + (__foldr1 cons '() _%slots110775%_))) (cons (cons 'struct: '#t) '()))) - (_%t107949%_ - (let ((__tmp109398 (cons t::t '()))) + (_%t110796%_ + (let ((__tmp112377 (cons t::t '()))) (declare (not safe)) (##structure '#f 'class 'class - _%flags107939%_ + _%flags110786%_ ##type-type - _%fields107945%_ - __tmp109398 - _%slot-vector107930%_ - _%slot-table107937%_ - _%properties107947%_ + _%fields110792%_ + __tmp112377 + _%slot-vector110777%_ + _%slot-table110784%_ + _%properties110794%_ + '#f + '#f '#f '#f)))) (let () (declare (not safe)) - (##structure-type-set! _%t107949%_ _%t107949%_)) - _%t107949%_)) + (##structure-type-set! _%t110796%_ _%t110796%_)) + _%t110796%_)) (let () (declare (not safe)) (##structure-type-set! t::t class::t)) (define object::t - (let ((_%flags107924%_ + (let ((_%flags110771%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-id class-type-flag-system))) - (_%properties107925%_ '((direct-slots:) (system: . #t))) - (_%slot-table107926%_ + (_%properties110772%_ '((direct-slots:) (system: . #t))) + (_%slot-table110773%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp109399 (cons t::t '()))) + (let ((__tmp112378 (cons t::t '()))) (declare (not safe)) (##structure class::t 'object 'object - _%flags107924%_ + _%flags110771%_ '#f '#() - __tmp109399 + __tmp112378 '#(#f) - _%slot-table107926%_ - _%properties107925%_ + _%slot-table110773%_ + _%properties110772%_ + '#f + '#f '#f '#f)))) + (define class-type + (lambda (_%klass110757%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass110757%_ 'class)) + (let ((_%klass110761%_ _%klass110757%_)) + (__class-type _%klass110761%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@166.19-166.24" + 'contract: + 'class-type? + 'value: + _%klass110757%_) + '#!void)))) + (define __class-type + (lambda (_%klass110745%_) + (let ((_%klass110748%_ _%klass110745%_)) + (declare (not safe)) + (##structure-type _%klass110748%_)))) (define class-type? - (lambda (_%obj107922%_) + (lambda (_%obj110743%_) (let () (declare (not safe)) - (##structure-instance-of? _%obj107922%_ 'class)))) + (##structure-instance-of? _%obj110743%_ 'class)))) (define class-type=? - (lambda (_%x107897%_ _%y107898%_) + (lambda (_%x110718%_ _%y110719%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%x107897%_ 'class)) - (let ((_%x107902%_ _%x107897%_)) + (##structure-instance-of? _%x110718%_ 'class)) + (let ((_%x110723%_ _%x110718%_)) (if (let () (declare (not safe)) - (##structure-instance-of? _%y107898%_ 'class)) - (let ((_%y107912%_ _%y107898%_)) - (__class-type=? _%x107902%_ _%y107912%_)) + (##structure-instance-of? _%y110719%_ 'class)) + (let ((_%y110733%_ _%y110719%_)) + (__class-type=? _%x110723%_ _%y110733%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@157.34-157.35" + '"\"gerbil/runtime/mop.ss\"@175.34-175.35" 'contract: 'class-type? 'value: - _%y107898%_) + _%y110719%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@157.21-157.22" + '"\"gerbil/runtime/mop.ss\"@175.21-175.22" 'contract: 'class-type? 'value: - _%x107897%_) + _%x110718%_) '#!void)))) (define __class-type=? - (lambda (_%x107876%_ _%y107877%_) - (let* ((_%x107880%_ _%x107876%_) (_%y107888%_ _%y107877%_)) + (lambda (_%x110697%_ _%y110698%_) + (let* ((_%x110701%_ _%x110697%_) (_%y110709%_ _%y110698%_)) (eq? (let () (declare (not safe)) - (##unchecked-structure-ref _%x107880%_ '1 '#f '#f)) + (##unchecked-structure-ref _%x110701%_ '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-ref _%y107888%_ '1 '#f '#f)))))) + (##unchecked-structure-ref _%y110709%_ '1 '#f '#f)))))) (define type-opaque? - (lambda (_%type107862%_) - (if (let () (declare (not safe)) (##type? _%type107862%_)) - (let ((_%type107866%_ _%type107862%_)) - (__type-opaque? _%type107866%_)) + (lambda (_%type110683%_) + (if (let () (declare (not safe)) (##type? _%type110683%_)) + (let ((_%type110687%_ _%type110683%_)) + (__type-opaque? _%type110687%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@171.21-171.25" + '"\"gerbil/runtime/mop.ss\"@189.21-189.25" 'contract: '##type? 'value: - _%type107862%_) + _%type110683%_) '#!void)))) (define __type-opaque? - (lambda (_%type107850%_) - (let* ((_%type107853%_ _%type107850%_) - (__tmp109400 - (let ((__tmp109401 + (lambda (_%type110671%_) + (let* ((_%type110674%_ _%type110671%_) + (__tmp112379 + (let ((__tmp112380 (let () (declare (not safe)) - (##type-flags _%type107853%_)))) + (##type-flags _%type110674%_)))) (declare (not safe)) - (##fxand __tmp109401 type-flag-opaque)))) + (##fxand __tmp112380 type-flag-opaque)))) (declare (not safe)) - (##fx= __tmp109400 type-flag-opaque)))) + (##fx= __tmp112379 type-flag-opaque)))) + (define class-type-opaque? + (lambda (_%klass110657%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass110657%_ 'class)) + (let ((_%klass110661%_ _%klass110657%_)) + (__class-type-opaque? _%klass110661%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@191.27-191.32" + 'contract: + 'class-type? + 'value: + _%klass110657%_) + '#!void)))) + (define __class-type-opaque? + (lambda (_%klass110645%_) + (let* ((_%klass110648%_ _%klass110645%_) + (__tmp112381 + (let ((__tmp112382 + (let () + (declare (not safe)) + (##type-flags _%klass110648%_)))) + (declare (not safe)) + (##fxand __tmp112382 type-flag-opaque)))) + (declare (not safe)) + (##fx= __tmp112381 type-flag-opaque)))) (define type-extensible? - (lambda (_%type107836%_) - (if (let () (declare (not safe)) (##type? _%type107836%_)) - (let ((_%type107840%_ _%type107836%_)) - (__type-extensible? _%type107840%_)) + (lambda (_%type110631%_) + (if (let () (declare (not safe)) (##type? _%type110631%_)) + (let ((_%type110635%_ _%type110631%_)) + (__type-extensible? _%type110635%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@173.25-173.29" + '"\"gerbil/runtime/mop.ss\"@193.25-193.29" 'contract: '##type? 'value: - _%type107836%_) + _%type110631%_) '#!void)))) (define __type-extensible? - (lambda (_%type107824%_) - (let* ((_%type107827%_ _%type107824%_) - (__tmp109402 - (let ((__tmp109403 + (lambda (_%type110619%_) + (let* ((_%type110622%_ _%type110619%_) + (__tmp112383 + (let ((__tmp112384 (let () (declare (not safe)) - (##type-flags _%type107827%_)))) + (##type-flags _%type110622%_)))) (declare (not safe)) - (##fxand __tmp109403 type-flag-extensible)))) + (##fxand __tmp112384 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp109402 type-flag-extensible)))) + (##fx= __tmp112383 type-flag-extensible)))) (define class-type-final? - (lambda (_%type107810%_) + (lambda (_%type110605%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type107810%_ 'class)) - (let ((_%type107814%_ _%type107810%_)) - (__class-type-final? _%type107814%_)) + (##structure-instance-of? _%type110605%_ 'class)) + (let ((_%type110609%_ _%type110605%_)) + (__class-type-final? _%type110609%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@175.26-175.30" + '"\"gerbil/runtime/mop.ss\"@195.26-195.30" 'contract: 'class-type? 'value: - _%type107810%_) + _%type110605%_) '#!void)))) (define __class-type-final? - (lambda (_%type107798%_) - (let* ((_%type107801%_ _%type107798%_) - (__tmp109404 - (let ((__tmp109405 + (lambda (_%type110593%_) + (let* ((_%type110596%_ _%type110593%_) + (__tmp112385 + (let ((__tmp112386 (let () (declare (not safe)) - (##type-flags _%type107801%_)))) + (##type-flags _%type110596%_)))) (declare (not safe)) - (##fxand __tmp109405 type-flag-extensible)))) + (##fxand __tmp112386 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp109404 '0)))) + (##fx= __tmp112385 '0)))) (define class-type-struct? - (lambda (_%klass107784%_) + (lambda (_%klass110579%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass107784%_ 'class)) - (let ((_%klass107788%_ _%klass107784%_)) - (__class-type-struct? _%klass107788%_)) + (##structure-instance-of? _%klass110579%_ 'class)) + (let ((_%klass110583%_ _%klass110579%_)) + (__class-type-struct? _%klass110583%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@177.27-177.32" + '"\"gerbil/runtime/mop.ss\"@197.27-197.32" 'contract: 'class-type? 'value: - _%klass107784%_) + _%klass110579%_) '#!void)))) (define __class-type-struct? - (lambda (_%klass107772%_) - (let* ((_%klass107775%_ _%klass107772%_) - (__tmp109406 - (let ((__tmp109407 + (lambda (_%klass110567%_) + (let* ((_%klass110570%_ _%klass110567%_) + (__tmp112387 + (let ((__tmp112388 (let () (declare (not safe)) - (##type-flags _%klass107775%_)))) + (##type-flags _%klass110570%_)))) (declare (not safe)) - (##fxand __tmp109407 class-type-flag-struct)))) + (##fxand __tmp112388 class-type-flag-struct)))) (declare (not safe)) - (##fx= __tmp109406 class-type-flag-struct)))) + (##fx= __tmp112387 class-type-flag-struct)))) (define class-type-sealed? - (lambda (_%klass107758%_) + (lambda (_%klass110553%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass107758%_ 'class)) - (let ((_%klass107762%_ _%klass107758%_)) - (__class-type-sealed? _%klass107762%_)) + (##structure-instance-of? _%klass110553%_ 'class)) + (let ((_%klass110557%_ _%klass110553%_)) + (__class-type-sealed? _%klass110557%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@179.27-179.32" + '"\"gerbil/runtime/mop.ss\"@199.27-199.32" 'contract: 'class-type? 'value: - _%klass107758%_) + _%klass110553%_) '#!void)))) (define __class-type-sealed? - (lambda (_%klass107746%_) - (let* ((_%klass107749%_ _%klass107746%_) - (__tmp109408 - (let ((__tmp109409 + (lambda (_%klass110541%_) + (let* ((_%klass110544%_ _%klass110541%_) + (__tmp112389 + (let ((__tmp112390 (let () (declare (not safe)) - (##type-flags _%klass107749%_)))) + (##type-flags _%klass110544%_)))) (declare (not safe)) - (##fxand __tmp109409 class-type-flag-sealed)))) + (##fxand __tmp112390 class-type-flag-sealed)))) (declare (not safe)) - (##fx= __tmp109408 class-type-flag-sealed)))) + (##fx= __tmp112389 class-type-flag-sealed)))) (define class-type-metaclass? - (lambda (_%klass107732%_) + (lambda (_%klass110527%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass107732%_ 'class)) - (let ((_%klass107736%_ _%klass107732%_)) - (__class-type-metaclass? _%klass107736%_)) + (##structure-instance-of? _%klass110527%_ 'class)) + (let ((_%klass110531%_ _%klass110527%_)) + (__class-type-metaclass? _%klass110531%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@181.30-181.35" + '"\"gerbil/runtime/mop.ss\"@201.30-201.35" 'contract: 'class-type? 'value: - _%klass107732%_) + _%klass110527%_) '#!void)))) (define __class-type-metaclass? - (lambda (_%klass107720%_) - (let* ((_%klass107723%_ _%klass107720%_) - (__tmp109410 - (let ((__tmp109411 + (lambda (_%klass110515%_) + (let* ((_%klass110518%_ _%klass110515%_) + (__tmp112391 + (let ((__tmp112392 (let () (declare (not safe)) - (##type-flags _%klass107723%_)))) + (##type-flags _%klass110518%_)))) (declare (not safe)) - (##fxand __tmp109411 class-type-flag-metaclass)))) + (##fxand __tmp112392 class-type-flag-metaclass)))) (declare (not safe)) - (##fx= __tmp109410 class-type-flag-metaclass)))) + (##fx= __tmp112391 class-type-flag-metaclass)))) (define class-type-system? - (lambda (_%klass107706%_) + (lambda (_%klass110501%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass107706%_ 'class)) - (let ((_%klass107710%_ _%klass107706%_)) - (__class-type-system? _%klass107710%_)) + (##structure-instance-of? _%klass110501%_ 'class)) + (let ((_%klass110505%_ _%klass110501%_)) + (__class-type-system? _%klass110505%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@183.27-183.32" + '"\"gerbil/runtime/mop.ss\"@203.27-203.32" 'contract: 'class-type? 'value: - _%klass107706%_) + _%klass110501%_) '#!void)))) (define __class-type-system? - (lambda (_%klass107694%_) - (let* ((_%klass107697%_ _%klass107694%_) - (__tmp109412 - (let ((__tmp109413 + (lambda (_%klass110489%_) + (let* ((_%klass110492%_ _%klass110489%_) + (__tmp112393 + (let ((__tmp112394 + (let () + (declare (not safe)) + (##type-flags _%klass110492%_)))) + (declare (not safe)) + (##fxand __tmp112394 class-type-flag-system)))) + (declare (not safe)) + (##fx= __tmp112393 class-type-flag-system)))) + (define class-type-acyclic? + (lambda (_%klass110475%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass110475%_ 'class)) + (let ((_%klass110479%_ _%klass110475%_)) + (__class-type-acyclic? _%klass110479%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@205.28-205.33" + 'contract: + 'class-type? + 'value: + _%klass110475%_) + '#!void)))) + (define __class-type-acyclic? + (lambda (_%klass110463%_) + (let* ((_%klass110466%_ _%klass110463%_) + (__tmp112395 + (let ((__tmp112396 (let () (declare (not safe)) - (##type-flags _%klass107697%_)))) + (##type-flags _%klass110466%_)))) (declare (not safe)) - (##fxand __tmp109413 class-type-flag-system)))) + (##fxand __tmp112396 class-type-flag-acyclic)))) (declare (not safe)) - (##fx= __tmp109412 class-type-flag-system)))) + (##fx= __tmp112395 class-type-flag-acyclic)))) (define make-class-type-descriptor - (lambda (_%type-id107576%_ - _%type-name107577%_ - _%type-super107578%_ - _%precedence-list107579%_ - _%slot-vector107580%_ - _%properties107581%_ - _%constructor107582%_ - _%slot-table107583%_ - _%methods107584%_) - (letrec ((_%make-props!107587%_ - (lambda (_%key107663%_) - (letrec* ((_%ht107665%_ + (lambda (_%type-id110344%_ + _%type-name110345%_ + _%type-super110346%_ + _%precedence-list110347%_ + _%slot-vector110348%_ + _%properties110349%_ + _%constructor110350%_ + _%slot-table110351%_ + _%methods110352%_) + (letrec ((_%make-props!110355%_ + (lambda (_%key110432%_) + (letrec* ((_%ht110434%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) - (_%put-slots!107666%_ - (lambda (_%ht107687%_ _%slots107688%_) + (_%put-slots!110435%_ + (lambda (_%ht110456%_ _%slots110457%_) (for-each - (lambda (_%g107689107691%_) + (lambda (_%g110458110460%_) (let () (declare (not safe)) (symbolic-table-set! - _%ht107687%_ - _%g107689107691%_ + _%ht110456%_ + _%g110458110460%_ '#t))) - _%slots107688%_))) - (_%put-alist!107667%_ - (lambda (_%ht107676%_ - _%key107677%_ - _%alist107678%_) - (let ((_%$e107680%_ + _%slots110457%_))) + (_%put-alist!110436%_ + (lambda (_%ht110445%_ + _%key110446%_ + _%alist110447%_) + (let ((_%$e110449%_ (let () (declare (not safe)) (agetq__0 - _%key107677%_ - _%alist107678%_)))) - (if _%$e107680%_ - ((lambda (_%g107682107684%_) - (_%put-slots!107666%_ - _%ht107676%_ - _%g107682107684%_)) - _%$e107680%_) + _%key110446%_ + _%alist110447%_)))) + (if _%$e110449%_ + ((lambda (_%g110451110453%_) + (_%put-slots!110435%_ + _%ht110445%_ + _%g110451110453%_)) + _%$e110449%_) '#!void))))) - (_%put-alist!107667%_ - _%ht107665%_ - _%key107663%_ - _%properties107581%_) + (_%put-alist!110436%_ + _%ht110434%_ + _%key110432%_ + _%properties110349%_) (for-each - (lambda (_%mixin107669%_) - (let ((_%alist107671%_ + (lambda (_%mixin110438%_) + (let ((_%alist110440%_ (##structure-ref - _%mixin107669%_ + _%mixin110438%_ '9 class::t '#f))) (if (or (let () (declare (not safe)) - (agetq__0 'transparent: _%alist107671%_)) + (agetq__0 'transparent: _%alist110440%_)) (eq? '#t (let () (declare (not safe)) (agetq__0 - _%key107663%_ - _%alist107671%_)))) - (_%put-slots!107666%_ - _%ht107665%_ - (class-type-slot-list _%mixin107669%_)) - (_%put-alist!107667%_ - _%ht107665%_ - _%key107663%_ - _%alist107671%_)))) - _%precedence-list107579%_) - _%ht107665%_)))) - (let* ((_%transparent?107589%_ + _%key110432%_ + _%alist110440%_)))) + (_%put-slots!110435%_ + _%ht110434%_ + (class-type-slot-list _%mixin110438%_)) + (_%put-alist!110436%_ + _%ht110434%_ + _%key110432%_ + _%alist110440%_)))) + _%precedence-list110347%_) + _%ht110434%_)))) + (let* ((_%transparent?110357%_ (let () (declare (not safe)) - (agetq__0 'transparent: _%properties107581%_))) - (_%all-slots-printable?107594%_ - (let ((_%$e107591%_ _%transparent?107589%_)) - (if _%$e107591%_ - _%$e107591%_ + (agetq__0 'transparent: _%properties110349%_))) + (_%all-slots-printable?110362%_ + (let ((_%$e110359%_ _%transparent?110357%_)) + (if _%$e110359%_ + _%$e110359%_ (eq? '#t (let () (declare (not safe)) - (agetq__0 'print: _%properties107581%_)))))) - (_%printable107596%_ - (if (not _%all-slots-printable?107594%_) - (_%make-props!107587%_ 'print:) + (agetq__0 'print: _%properties110349%_)))))) + (_%printable110364%_ + (if (not _%all-slots-printable?110362%_) + (_%make-props!110355%_ 'print:) '#f)) - (_%all-slots-equalable?107601%_ - (let ((_%$e107598%_ _%transparent?107589%_)) - (if _%$e107598%_ - _%$e107598%_ + (_%all-slots-equalable?110369%_ + (let ((_%$e110366%_ _%transparent?110357%_)) + (if _%$e110366%_ + _%$e110366%_ (eq? '#t (let () (declare (not safe)) - (agetq__0 'equal: _%properties107581%_)))))) - (_%equalable107603%_ - (if (not _%all-slots-equalable?107601%_) - (_%make-props!107587%_ 'equal:) + (agetq__0 'equal: _%properties110349%_)))))) + (_%equalable110371%_ + (if (not _%all-slots-equalable?110369%_) + (_%make-props!110355%_ 'equal:) '#f)) - (_%first-new-field107605%_ + (_%first-new-field110373%_ (if (let () (declare (not safe)) - (##structure-instance-of? _%type-super107578%_ 'class)) - (let ((__tmp109414 + (##structure-instance-of? _%type-super110346%_ 'class)) + (let ((__tmp112397 (let () (declare (not safe)) (##unchecked-structure-ref - _%type-super107578%_ + _%type-super110346%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp109414)) + (##vector-length __tmp112397)) '1)) - (_%field-info-length107607%_ - (let ((__tmp109415 - (let ((__tmp109416 + (_%field-info-length110375%_ + (let ((__tmp112398 + (let ((__tmp112399 (let () (declare (not safe)) - (##vector-length _%slot-vector107580%_)))) + (##vector-length _%slot-vector110348%_)))) (declare (not safe)) - (##fx- __tmp109416 _%first-new-field107605%_)))) + (##fx- __tmp112399 _%first-new-field110373%_)))) (declare (not safe)) - (##fx* '3 __tmp109415))) - (_%field-info107609%_ + (##fx* '3 __tmp112398))) + (_%field-info110377%_ (let () (declare (not safe)) - (##make-vector _%field-info-length107607%_ '#f))) - (_%struct?107611%_ + (##make-vector _%field-info-length110375%_ '#f))) + (_%struct?110379%_ (let () (declare (not safe)) - (agetq__0 'struct: _%properties107581%_))) - (_%final?107613%_ + (agetq__0 'struct: _%properties110349%_))) + (_%final?110381%_ (let () (declare (not safe)) - (agetq__0 'final: _%properties107581%_))) - (_%metaclass107621%_ - (let ((_%metaclass107614107616%_ + (agetq__0 'final: _%properties110349%_))) + (_%metaclass110388%_ + (let ((_%metaclass110382110384%_ (let () (declare (not safe)) - (agetq__0 'metaclass: _%properties107581%_)))) - (if _%metaclass107614107616%_ - (let ((_%metaclass107619%_ _%metaclass107614107616%_)) + (agetq__0 'metaclass: _%properties110349%_)))) + (if _%metaclass110382110384%_ + (let ((_%metaclass110386%_ _%metaclass110382110384%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%metaclass107619%_ + _%metaclass110386%_ 'class)) '#!void (error '"metaclass is not a class type" 'class: - _%type-id107576%_ + _%type-id110344%_ 'metaclass: - _%metaclass107619%_)) - _%metaclass107619%_) + _%metaclass110386%_)) + _%metaclass110386%_) '#f))) - (_%system?107623%_ + (_%system?110390%_ (let () (declare (not safe)) - (agetq__0 'system: _%properties107581%_))) - (_%opaque?107631%_ - (if (or _%transparent?107589%_ + (agetq__0 'system: _%properties110349%_))) + (_%opaque?110398%_ + (if (or _%transparent?110357%_ (let () (declare (not safe)) - (agetq__0 'equal: _%properties107581%_))) + (agetq__0 'equal: _%properties110349%_))) '#f - (let ((_%$e107628%_ (not _%type-super107578%_))) - (if _%$e107628%_ - _%$e107628%_ - (__type-opaque? _%type-super107578%_))))) - (_%type-flags107633%_ - (let ((__tmp109421 - (if _%final?107613%_ '0 type-flag-extensible)) - (__tmp109420 - (if _%opaque?107631%_ type-flag-opaque '0)) - (__tmp109419 - (if _%struct?107611%_ class-type-flag-struct '0)) - (__tmp109418 - (if _%metaclass107621%_ class-type-flag-metaclass '0)) - (__tmp109417 - (if _%system?107623%_ class-type-flag-system '0))) + (let ((_%$e110395%_ (not _%type-super110346%_))) + (if _%$e110395%_ + _%$e110395%_ + (__type-opaque? _%type-super110346%_))))) + (_%acyclic?110400%_ + (let () + (declare (not safe)) + (agetq__0 'acyclic: _%properties110349%_))) + (_%type-flags110402%_ + (let ((__tmp112405 + (if _%final?110381%_ '0 type-flag-extensible)) + (__tmp112404 + (if _%opaque?110398%_ type-flag-opaque '0)) + (__tmp112403 + (if _%struct?110379%_ class-type-flag-struct '0)) + (__tmp112402 + (if _%metaclass110388%_ class-type-flag-metaclass '0)) + (__tmp112401 + (if _%system?110390%_ class-type-flag-system '0)) + (__tmp112400 + (if _%acyclic?110400%_ class-type-flag-acyclic '0))) (declare (not safe)) (##fxior type-flag-id type-flag-concrete - __tmp109421 - __tmp109420 - __tmp109419 - __tmp109418 - __tmp109417))) - (_%precedence-list107641%_ - (let ((_%$e107635%_ (memq t::t _%precedence-list107579%_))) - (if _%$e107635%_ - ((lambda (_%tail107638%_) - (if (null? (cdr _%tail107638%_)) - _%precedence-list107579%_ + __tmp112405 + __tmp112404 + __tmp112403 + __tmp112402 + __tmp112401 + __tmp112400))) + (_%precedence-list110410%_ + (let ((_%$e110404%_ (memq t::t _%precedence-list110347%_))) + (if _%$e110404%_ + ((lambda (_%tail110407%_) + (if (null? (cdr _%tail110407%_)) + _%precedence-list110347%_ (error '"BUG: t::t is not last in the precedence list" 'precedence-list: - _%precedence-list107579%_))) - _%$e107635%_) - (let ((__tmp109422 (cons t::t '()))) + _%precedence-list110347%_))) + _%$e110404%_) + (let ((__tmp112406 (cons t::t '()))) (declare (not safe)) - (##append _%precedence-list107579%_ __tmp109422)))))) - (let _%loop107644%_ ((_%i107646%_ _%first-new-field107605%_) - (_%j107647%_ '0)) + (##append _%precedence-list110347%_ __tmp112406)))))) + (let _%loop110413%_ ((_%i110415%_ _%first-new-field110373%_) + (_%j110416%_ '0)) (if (let () (declare (not safe)) - (##fx< _%j107647%_ _%field-info-length107607%_)) - (let* ((_%slot107649%_ + (##fx< _%j110416%_ _%field-info-length110375%_)) + (let* ((_%slot110418%_ (let () (declare (not safe)) - (##vector-ref _%slot-vector107580%_ _%i107646%_))) - (_%flags107657%_ - (if _%transparent?107589%_ + (##vector-ref _%slot-vector110348%_ _%i110415%_))) + (_%flags110426%_ + (if _%transparent?110357%_ '0 - (let ((__tmp109424 - (if (or _%all-slots-printable?107594%_ + (let ((__tmp112408 + (if (or _%all-slots-printable?110362%_ (let () (declare (not safe)) (symbolic-table-ref - _%printable107596%_ - _%slot107649%_ + _%printable110364%_ + _%slot110418%_ '#f))) '0 '1)) - (__tmp109423 - (if (or _%all-slots-equalable?107601%_ + (__tmp112407 + (if (or _%all-slots-equalable?110369%_ (let () (declare (not safe)) (symbolic-table-ref - _%equalable107603%_ - _%slot107649%_ + _%equalable110371%_ + _%slot110418%_ '#f))) '0 '4))) (declare (not safe)) - (##fxior __tmp109424 __tmp109423))))) + (##fxior __tmp112408 __tmp112407))))) (vector-set! - _%field-info107609%_ - _%j107647%_ - _%slot107649%_) + _%field-info110377%_ + _%j110416%_ + _%slot110418%_) (vector-set! - _%field-info107609%_ - (let () (declare (not safe)) (##fx+ _%j107647%_ '1)) - _%flags107657%_) - (_%loop107644%_ - (let () (declare (not safe)) (##fx+ _%i107646%_ '1)) - (let () (declare (not safe)) (##fx+ _%j107647%_ '3)))) + _%field-info110377%_ + (let () (declare (not safe)) (##fx+ _%j110416%_ '1)) + _%flags110426%_) + (_%loop110413%_ + (let () (declare (not safe)) (##fx+ _%i110415%_ '1)) + (let () (declare (not safe)) (##fx+ _%j110416%_ '3)))) '#!void)) - (if _%metaclass107621%_ - (let ((_%val107660%_ + (if _%metaclass110388%_ + (let ((_%val110429%_ (make-instance - _%metaclass107621%_ - _%type-id107576%_ - _%type-name107577%_ - _%type-flags107633%_ - _%type-super107578%_ - _%field-info107609%_ - _%precedence-list107641%_ - _%slot-vector107580%_ - _%slot-table107583%_ - _%properties107581%_ - _%constructor107582%_ - _%methods107584%_))) + _%metaclass110388%_ + _%type-id110344%_ + _%type-name110345%_ + _%type-flags110402%_ + _%type-super110346%_ + _%field-info110377%_ + _%precedence-list110410%_ + _%slot-vector110348%_ + _%slot-table110351%_ + _%properties110349%_ + _%constructor110350%_ + _%methods110352%_))) (if (let () (declare (not safe)) - (##structure-instance-of? _%val107660%_ 'class)) - _%val107660%_ - (error '"bad cast" class::t _%val107660%_))) + (##structure-instance-of? _%val110429%_ 'class)) + _%val110429%_ + (error '"bad cast" class::t _%val110429%_))) (let () (declare (not safe)) (##structure class::t - _%type-id107576%_ - _%type-name107577%_ - _%type-flags107633%_ - _%type-super107578%_ - _%field-info107609%_ - _%precedence-list107641%_ - _%slot-vector107580%_ - _%slot-table107583%_ - _%properties107581%_ - _%constructor107582%_ - _%methods107584%_))))))) + _%type-id110344%_ + _%type-name110345%_ + _%type-flags110402%_ + _%type-super110346%_ + _%field-info110377%_ + _%precedence-list110410%_ + _%slot-vector110348%_ + _%slot-table110351%_ + _%properties110349%_ + _%constructor110350%_ + _%methods110352%_ + '#f + '#f))))))) (define class-type-id - (lambda (_%klass107574%_) - (##structure-ref _%klass107574%_ '1 class::t 'id))) + (lambda (_%klass110342%_) + (##structure-ref _%klass110342%_ '1 class::t 'id))) (define &class-type-id - (lambda (_%klass107572%_) + (lambda (_%klass110340%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass107572%_ '1 class::t 'id)))) + (##unchecked-structure-ref _%klass110340%_ '1 class::t 'id)))) (define class-type-id-set! - (lambda (_%klass107569%_ _%val107570%_) - (##structure-set! _%klass107569%_ _%val107570%_ '1 class::t 'id))) + (lambda (_%klass110337%_ _%val110338%_) + (##structure-set! _%klass110337%_ _%val110338%_ '1 class::t 'id))) (define &class-type-id-set! - (lambda (_%klass107564%_ _%val107566%_) + (lambda (_%klass110332%_ _%val110334%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass107564%_ - _%val107566%_ + _%klass110332%_ + _%val110334%_ '1 class::t 'id)))) (define class-type-name - (lambda (_%klass107562%_) - (##structure-ref _%klass107562%_ '2 class::t 'name))) + (lambda (_%klass110330%_) + (##structure-ref _%klass110330%_ '2 class::t 'name))) (define &class-type-name - (lambda (_%klass107560%_) + (lambda (_%klass110328%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass107560%_ '2 class::t 'name)))) + (##unchecked-structure-ref _%klass110328%_ '2 class::t 'name)))) (define class-type-name-set! - (lambda (_%klass107557%_ _%val107558%_) - (##structure-set! _%klass107557%_ _%val107558%_ '2 class::t 'name))) + (lambda (_%klass110325%_ _%val110326%_) + (##structure-set! _%klass110325%_ _%val110326%_ '2 class::t 'name))) (define &class-type-name-set! - (lambda (_%klass107552%_ _%val107554%_) + (lambda (_%klass110320%_ _%val110322%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass107552%_ - _%val107554%_ + _%klass110320%_ + _%val110322%_ '2 class::t 'name)))) (define class-type-flags - (lambda (_%klass107550%_) - (##structure-ref _%klass107550%_ '3 class::t 'flags))) + (lambda (_%klass110318%_) + (##structure-ref _%klass110318%_ '3 class::t 'flags))) (define &class-type-flags - (lambda (_%klass107548%_) + (lambda (_%klass110316%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass107548%_ '3 class::t 'flags)))) + (##unchecked-structure-ref _%klass110316%_ '3 class::t 'flags)))) (define class-type-flags-set! - (lambda (_%klass107545%_ _%val107546%_) - (##structure-set! _%klass107545%_ _%val107546%_ '3 class::t 'flags))) + (lambda (_%klass110313%_ _%val110314%_) + (##structure-set! _%klass110313%_ _%val110314%_ '3 class::t 'flags))) (define &class-type-flags-set! - (lambda (_%klass107540%_ _%val107542%_) + (lambda (_%klass110308%_ _%val110310%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass107540%_ - _%val107542%_ + _%klass110308%_ + _%val110310%_ '3 class::t 'flags)))) (define class-type-super - (lambda (_%klass107538%_) - (##structure-ref _%klass107538%_ '4 class::t 'super))) + (lambda (_%klass110306%_) + (##structure-ref _%klass110306%_ '4 class::t 'super))) (define &class-type-super - (lambda (_%klass107536%_) + (lambda (_%klass110304%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass107536%_ '4 class::t 'super)))) + (##unchecked-structure-ref _%klass110304%_ '4 class::t 'super)))) (define class-type-super-set! - (lambda (_%klass107533%_ _%val107534%_) - (##structure-set! _%klass107533%_ _%val107534%_ '4 class::t 'super))) + (lambda (_%klass110301%_ _%val110302%_) + (##structure-set! _%klass110301%_ _%val110302%_ '4 class::t 'super))) (define &class-type-super-set! - (lambda (_%klass107528%_ _%val107530%_) + (lambda (_%klass110296%_ _%val110298%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass107528%_ - _%val107530%_ + _%klass110296%_ + _%val110298%_ '4 class::t 'super)))) (define class-type-fields - (lambda (_%klass107526%_) - (##structure-ref _%klass107526%_ '5 class::t 'fields))) + (lambda (_%klass110294%_) + (##structure-ref _%klass110294%_ '5 class::t 'fields))) (define &class-type-fields - (lambda (_%klass107524%_) + (lambda (_%klass110292%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass107524%_ '5 class::t 'fields)))) + (##unchecked-structure-ref _%klass110292%_ '5 class::t 'fields)))) (define class-type-fields-set! - (lambda (_%klass107521%_ _%val107522%_) - (##structure-set! _%klass107521%_ _%val107522%_ '5 class::t 'fields))) + (lambda (_%klass110289%_ _%val110290%_) + (##structure-set! _%klass110289%_ _%val110290%_ '5 class::t 'fields))) (define &class-type-fields-set! - (lambda (_%klass107516%_ _%val107518%_) + (lambda (_%klass110284%_ _%val110286%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass107516%_ - _%val107518%_ + _%klass110284%_ + _%val110286%_ '5 class::t 'fields)))) (define class-type-precedence-list - (lambda (_%klass107514%_) - (##structure-ref _%klass107514%_ '6 class::t 'precedence-list))) + (lambda (_%klass110282%_) + (##structure-ref _%klass110282%_ '6 class::t 'precedence-list))) (define &class-type-precedence-list - (lambda (_%klass107512%_) + (lambda (_%klass110280%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass107512%_ + _%klass110280%_ '6 class::t 'precedence-list)))) (define class-type-precedence-list-set! - (lambda (_%klass107509%_ _%val107510%_) + (lambda (_%klass110277%_ _%val110278%_) (##structure-set! - _%klass107509%_ - _%val107510%_ + _%klass110277%_ + _%val110278%_ '6 class::t 'precedence-list))) (define &class-type-precedence-list-set! - (lambda (_%klass107504%_ _%val107506%_) + (lambda (_%klass110272%_ _%val110274%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass107504%_ - _%val107506%_ + _%klass110272%_ + _%val110274%_ '6 class::t 'precedence-list)))) (define class-type-slot-vector - (lambda (_%klass107502%_) - (##structure-ref _%klass107502%_ '7 class::t 'slot-vector))) + (lambda (_%klass110270%_) + (##structure-ref _%klass110270%_ '7 class::t 'slot-vector))) (define &class-type-slot-vector - (lambda (_%klass107500%_) + (lambda (_%klass110268%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass107500%_ + _%klass110268%_ '7 class::t 'slot-vector)))) (define class-type-slot-vector-set! - (lambda (_%klass107497%_ _%val107498%_) + (lambda (_%klass110265%_ _%val110266%_) (##structure-set! - _%klass107497%_ - _%val107498%_ + _%klass110265%_ + _%val110266%_ '7 class::t 'slot-vector))) (define &class-type-slot-vector-set! - (lambda (_%klass107492%_ _%val107494%_) + (lambda (_%klass110260%_ _%val110262%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass107492%_ - _%val107494%_ + _%klass110260%_ + _%val110262%_ '7 class::t 'slot-vector)))) (define class-type-slot-table - (lambda (_%klass107490%_) - (##structure-ref _%klass107490%_ '8 class::t 'slot-table))) + (lambda (_%klass110258%_) + (##structure-ref _%klass110258%_ '8 class::t 'slot-table))) (define &class-type-slot-table - (lambda (_%klass107488%_) + (lambda (_%klass110256%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass107488%_ + _%klass110256%_ '8 class::t 'slot-table)))) (define class-type-slot-table-set! - (lambda (_%klass107485%_ _%val107486%_) + (lambda (_%klass110253%_ _%val110254%_) (##structure-set! - _%klass107485%_ - _%val107486%_ + _%klass110253%_ + _%val110254%_ '8 class::t 'slot-table))) (define &class-type-slot-table-set! - (lambda (_%klass107480%_ _%val107482%_) + (lambda (_%klass110248%_ _%val110250%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass107480%_ - _%val107482%_ + _%klass110248%_ + _%val110250%_ '8 class::t 'slot-table)))) (define class-type-properties - (lambda (_%klass107478%_) - (##structure-ref _%klass107478%_ '9 class::t 'properties))) + (lambda (_%klass110246%_) + (##structure-ref _%klass110246%_ '9 class::t 'properties))) (define &class-type-properties - (lambda (_%klass107476%_) + (lambda (_%klass110244%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass107476%_ + _%klass110244%_ '9 class::t 'properties)))) (define class-type-properties-set! - (lambda (_%klass107473%_ _%val107474%_) + (lambda (_%klass110241%_ _%val110242%_) (##structure-set! - _%klass107473%_ - _%val107474%_ + _%klass110241%_ + _%val110242%_ '9 class::t 'properties))) (define &class-type-properties-set! - (lambda (_%klass107468%_ _%val107470%_) + (lambda (_%klass110236%_ _%val110238%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass107468%_ - _%val107470%_ + _%klass110236%_ + _%val110238%_ '9 class::t 'properties)))) (define class-type-constructor - (lambda (_%klass107466%_) - (##structure-ref _%klass107466%_ '10 class::t 'constructor))) + (lambda (_%klass110234%_) + (##structure-ref _%klass110234%_ '10 class::t 'constructor))) (define &class-type-constructor - (lambda (_%klass107464%_) + (lambda (_%klass110232%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass107464%_ + _%klass110232%_ '10 class::t 'constructor)))) (define class-type-constructor-set! - (lambda (_%klass107461%_ _%val107462%_) + (lambda (_%klass110229%_ _%val110230%_) (##structure-set! - _%klass107461%_ - _%val107462%_ + _%klass110229%_ + _%val110230%_ '10 class::t 'constructor))) (define &class-type-constructor-set! - (lambda (_%klass107456%_ _%val107458%_) + (lambda (_%klass110224%_ _%val110226%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass107456%_ - _%val107458%_ + _%klass110224%_ + _%val110226%_ '10 class::t 'constructor)))) (define class-type-methods - (lambda (_%klass107454%_) - (##structure-ref _%klass107454%_ '11 class::t 'methods))) + (lambda (_%klass110222%_) + (##structure-ref _%klass110222%_ '11 class::t 'methods))) (define &class-type-methods - (lambda (_%klass107452%_) + (lambda (_%klass110220%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass107452%_ '11 class::t 'methods)))) + (##unchecked-structure-ref _%klass110220%_ '11 class::t 'methods)))) (define class-type-methods-set! - (lambda (_%klass107449%_ _%val107450%_) + (lambda (_%klass110217%_ _%val110218%_) (##structure-set! - _%klass107449%_ - _%val107450%_ + _%klass110217%_ + _%val110218%_ '11 class::t 'methods))) (define &class-type-methods-set! - (lambda (_%klass107444%_ _%val107446%_) + (lambda (_%klass110212%_ _%val110214%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass107444%_ - _%val107446%_ + _%klass110212%_ + _%val110214%_ '11 class::t 'methods)))) + (define class-type-specializer + (lambda (_%klass110210%_) + (##structure-ref _%klass110210%_ '12 class::t 'specializer))) + (define &class-type-specializer + (lambda (_%klass110208%_) + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%klass110208%_ + '12 + class::t + 'specializer)))) + (define class-type-specializer-set! + (lambda (_%klass110205%_ _%val110206%_) + (##structure-set! + _%klass110205%_ + _%val110206%_ + '12 + class::t + 'specializer))) + (define &class-type-specializer-set! + (lambda (_%klass110200%_ _%val110202%_) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _%klass110200%_ + _%val110202%_ + '12 + class::t + 'specializer)))) + (define class-type-interface + (lambda (_%klass110198%_) + (##structure-ref _%klass110198%_ '13 class::t 'interface))) + (define &class-type-interface + (lambda (_%klass110196%_) + (let () + (declare (not safe)) + (##unchecked-structure-ref + _%klass110196%_ + '13 + class::t + 'interface)))) + (define class-type-interface-set! + (lambda (_%klass110193%_ _%val110194%_) + (##structure-set! + _%klass110193%_ + _%val110194%_ + '13 + class::t + 'interface))) + (define &class-type-interface-set! + (lambda (_%klass110188%_ _%val110190%_) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _%klass110188%_ + _%val110190%_ + '13 + class::t + 'interface)))) (define class-type-slot-list - (lambda (_%klass107430%_) + (lambda (_%klass110174%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass107430%_ 'class)) - (let ((_%klass107434%_ _%klass107430%_)) - (__class-type-slot-list _%klass107434%_)) + (##structure-instance-of? _%klass110174%_ 'class)) + (let ((_%klass110178%_ _%klass110174%_)) + (__class-type-slot-list _%klass110178%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@317.29-317.34" + '"\"gerbil/runtime/mop.ss\"@345.29-345.34" 'contract: 'class-type? 'value: - _%klass107430%_) + _%klass110174%_) '#!void)))) (define __class-type-slot-list - (lambda (_%klass107418%_) - (let ((_%klass107421%_ _%klass107418%_)) - (cdr (vector->list - (let () - (declare (not safe)) - (##unchecked-structure-ref _%klass107421%_ '7 '#f '#f))))))) + (lambda (_%klass110162%_) + (let ((_%klass110165%_ _%klass110162%_)) + (vector->list + (let () + (declare (not safe)) + (##unchecked-structure-ref _%klass110165%_ '7 '#f '#f)) + '1)))) (define class-type-field-count - (lambda (_%klass107404%_) + (lambda (_%klass110148%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass107404%_ 'class)) - (let ((_%klass107408%_ _%klass107404%_)) - (__class-type-field-count _%klass107408%_)) + (##structure-instance-of? _%klass110148%_ 'class)) + (let ((_%klass110152%_ _%klass110148%_)) + (__class-type-field-count _%klass110152%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@320.31-320.36" + '"\"gerbil/runtime/mop.ss\"@347.31-347.36" 'contract: 'class-type? 'value: - _%klass107404%_) + _%klass110148%_) '#!void)))) (define __class-type-field-count - (lambda (_%klass107392%_) - (let* ((_%klass107395%_ _%klass107392%_) - (__tmp109425 - (let ((__tmp109426 + (lambda (_%klass110136%_) + (let* ((_%klass110139%_ _%klass110136%_) + (__tmp112409 + (let ((__tmp112410 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass107395%_ + _%klass110139%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp109426)))) + (##vector-length __tmp112410)))) (declare (not safe)) - (##fx- __tmp109425 '1)))) + (##fx- __tmp112409 '1)))) (define class-type-seal! - (lambda (_%klass107378%_) + (lambda (_%klass110122%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass107378%_ 'class)) - (let ((_%klass107382%_ _%klass107378%_)) - (__class-type-seal! _%klass107382%_)) + (##structure-instance-of? _%klass110122%_ 'class)) + (let ((_%klass110126%_ _%klass110122%_)) + (__class-type-seal! _%klass110126%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@323.25-323.30" + '"\"gerbil/runtime/mop.ss\"@350.25-350.30" 'contract: 'class-type? 'value: - _%klass107378%_) + _%klass110122%_) '#!void)))) (define __class-type-seal! - (lambda (_%klass107366%_) - (let ((_%klass107369%_ _%klass107366%_)) - (let ((__tmp109427 - (let ((__tmp109428 + (lambda (_%klass110110%_) + (let ((_%klass110113%_ _%klass110110%_)) + (let ((__tmp112411 + (let ((__tmp112412 (let () (declare (not safe)) - (##type-flags _%klass107369%_)))) + (##type-flags _%klass110113%_)))) (declare (not safe)) - (##fxior class-type-flag-sealed __tmp109428)))) + (##fxior class-type-flag-sealed __tmp112412)))) (declare (not safe)) (##unchecked-structure-set! - _%klass107369%_ - __tmp109427 + _%klass110113%_ + __tmp112411 '3 class::t class-type-seal!)) '#!void))) + (define class-type-printable-slots + (lambda (_%klass110096%_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _%klass110096%_ 'class)) + (let ((_%klass110100%_ _%klass110096%_)) + (__class-type-printable-slots _%klass110100%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@357.35-357.40" + 'contract: + 'class-type? + 'value: + _%klass110096%_) + '#!void)))) + (define __class-type-printable-slots + (lambda (_%klass110029%_) + (let ((_%klass110032%_ _%klass110029%_)) + (letrec ((_%get-field-vector110041%_ + (lambda (_%type110080%_) + (let _%loop110082%_ ((_%type110084%_ _%type110080%_)) + (let* ((_%fields110086%_ + (let () + (declare (not safe)) + (##type-fields _%type110084%_))) + (_%$e110088%_ + (let () + (declare (not safe)) + (##type-super _%type110084%_)))) + (if _%$e110088%_ + ((lambda (_%super110091%_) + (let ((_%super-fields110093%_ + (_%loop110082%_ _%super110091%_))) + (vector-append + _%super-fields110093%_ + _%fields110086%_))) + _%$e110088%_) + _%fields110086%_))))) + (_%get-printable-slot-alist110042%_ + (lambda (_%type110063%_) + (let* ((_%fields110065%_ + (_%get-field-vector110041%_ _%type110063%_)) + (_%count110067%_ + (vector-length _%fields110065%_))) + (let _%loop110070%_ ((_%i110072%_ '3) + (_%offset110073%_ '1) + (_%r110074%_ '())) + (if (let () + (declare (not safe)) + (##fx< _%i110072%_ _%count110067%_)) + (let ((_%slot-name110076%_ + (vector-ref _%fields110065%_ _%i110072%_)) + (_%slot-flags110077%_ + (vector-ref + _%fields110065%_ + (let () + (declare (not safe)) + (##fx+ _%i110072%_ '1)))) + (_%next-i110078%_ + (let () + (declare (not safe)) + (##fx+ _%i110072%_ '2)))) + (if (let ((__tmp112413 + (let () + (declare (not safe)) + (##fxand _%slot-flags110077%_ + '1)))) + (declare (not safe)) + (##fx= __tmp112413 '0)) + (_%loop110070%_ + _%next-i110078%_ + (let () + (declare (not safe)) + (##fx+ _%offset110073%_ '1)) + _%r110074%_) + (_%loop110070%_ + _%next-i110078%_ + (let () + (declare (not safe)) + (##fx+ _%offset110073%_ '1)) + (cons (cons _%slot-name110076%_ + _%offset110073%_) + _%r110074%_)))) + (reverse! _%r110074%_)))))) + (_%get-printable-slots!110043%_ + (lambda (_%klass110058%_ _%type110059%_) + (let ((_%printable110061%_ + (_%get-printable-slot-alist110042%_ + _%type110059%_))) + (##structure-set! + _%klass110058%_ + (cons (cons 'printable-slots: _%printable110061%_) + (##structure-ref + _%klass110058%_ + '9 + class::t + '#f)) + '9 + class::t + '#f) + _%printable110061%_)))) + (let* ((_%props110045%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref _%klass110032%_ '9 '#f '#f))) + (_%$e110047%_ + (let () + (declare (not safe)) + (agetq__0 'printable-slots: _%props110045%_)))) + (if _%$e110047%_ + _%$e110047%_ + (let ((_%$e110050%_ + (let () + (declare (not safe)) + (agetq__0 'system-type: _%props110045%_)))) + (if _%$e110050%_ + ((lambda (_%g110052110054%_) + (_%get-printable-slots!110043%_ + _%klass110032%_ + _%g110052110054%_)) + _%$e110050%_) + (_%get-printable-slots!110043%_ + _%klass110032%_ + _%klass110032%_))))))))) (define substruct? - (lambda (_%maybe-sub-struct107341%_ _%maybe-super-struct107342%_) + (lambda (_%maybe-sub-struct110004%_ _%maybe-super-struct110005%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%maybe-sub-struct107341%_ 'class)) - (let ((_%maybe-sub-struct107346%_ _%maybe-sub-struct107341%_)) + (##structure-instance-of? _%maybe-sub-struct110004%_ 'class)) + (let ((_%maybe-sub-struct110009%_ _%maybe-sub-struct110004%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%maybe-super-struct107342%_ + _%maybe-super-struct110005%_ 'class)) - (let ((_%maybe-super-struct107356%_ - _%maybe-super-struct107342%_)) + (let ((_%maybe-super-struct110019%_ + _%maybe-super-struct110005%_)) (__substruct? - _%maybe-sub-struct107346%_ - _%maybe-super-struct107356%_)) + _%maybe-sub-struct110009%_ + _%maybe-super-struct110019%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@330.47-330.65" + '"\"gerbil/runtime/mop.ss\"@403.47-403.65" 'contract: 'class-type? 'value: - _%maybe-super-struct107342%_) + _%maybe-super-struct110005%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@330.19-330.35" + '"\"gerbil/runtime/mop.ss\"@403.19-403.35" 'contract: 'class-type? 'value: - _%maybe-sub-struct107341%_) + _%maybe-sub-struct110004%_) '#!void)))) (define __substruct? - (lambda (_%maybe-sub-struct107310%_ _%maybe-super-struct107311%_) - (let* ((_%maybe-sub-struct107314%_ _%maybe-sub-struct107310%_) - (_%maybe-super-struct107322%_ _%maybe-super-struct107311%_) - (_%maybe-super-struct-id107331%_ + (lambda (_%maybe-sub-struct109973%_ _%maybe-super-struct109974%_) + (let* ((_%maybe-sub-struct109977%_ _%maybe-sub-struct109973%_) + (_%maybe-super-struct109985%_ _%maybe-super-struct109974%_) + (_%maybe-super-struct-id109994%_ (let () (declare (not safe)) - (##type-id _%maybe-super-struct107322%_)))) - (let _%lp107333%_ ((_%super-struct107335%_ - _%maybe-sub-struct107314%_)) - (if (not _%super-struct107335%_) + (##type-id _%maybe-super-struct109985%_)))) + (let _%lp109996%_ ((_%super-struct109998%_ + _%maybe-sub-struct109977%_)) + (if (not _%super-struct109998%_) '#f - (if (eq? _%maybe-super-struct-id107331%_ + (if (eq? _%maybe-super-struct-id109994%_ (let () (declare (not safe)) - (##type-id _%super-struct107335%_))) + (##type-id _%super-struct109998%_))) '#t - (_%lp107333%_ + (_%lp109996%_ (let () (declare (not safe)) - (##type-super _%super-struct107335%_))))))))) + (##type-super _%super-struct109998%_))))))))) (define base-struct/1 - (lambda (_%klass107305%_) + (lambda (_%klass109968%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass107305%_ 'class)) - (if (__class-type-struct? _%klass107305%_) - _%klass107305%_ - (let () (declare (not safe)) (##type-super _%klass107305%_))) - (if (not _%klass107305%_) + (##structure-instance-of? _%klass109968%_ 'class)) + (if (__class-type-struct? _%klass109968%_) + _%klass109968%_ + (let () (declare (not safe)) (##type-super _%klass109968%_))) + (if (not _%klass109968%_) '#f - (error '"not a class or false" _%klass107305%_))))) + (error '"not a class or false" _%klass109968%_))))) (define base-struct/2 - (lambda (_%klass1107290%_ _%klass2107291%_) - (let ((_%s1107293%_ (base-struct/1 _%klass1107290%_)) - (_%s2107294%_ (base-struct/1 _%klass2107291%_))) - (if (or (not _%s1107293%_) - (and _%s2107294%_ (substruct? _%s1107293%_ _%s2107294%_))) - _%s2107294%_ - (if (or (not _%s2107294%_) - (and _%s1107293%_ - (substruct? _%s2107294%_ _%s1107293%_))) - _%s1107293%_ + (lambda (_%klass1109953%_ _%klass2109954%_) + (let ((_%s1109956%_ (base-struct/1 _%klass1109953%_)) + (_%s2109957%_ (base-struct/1 _%klass2109954%_))) + (if (or (not _%s1109956%_) + (and _%s2109957%_ (substruct? _%s1109956%_ _%s2109957%_))) + _%s2109957%_ + (if (or (not _%s2109957%_) + (and _%s1109956%_ + (substruct? _%s2109957%_ _%s1109956%_))) + _%s1109956%_ (error '"bad mixin: incompatible struct bases" - _%klass1107290%_ - _%klass2107291%_ - _%s1107293%_ - _%s2107294%_)))))) + _%klass1109953%_ + _%klass2109954%_ + _%s1109956%_ + _%s2109957%_)))))) (define base-struct/list - (lambda (_%all-supers107174%_) - (let* ((_%all-supers107175107200%_ _%all-supers107174%_) - (_%E107180107204%_ + (lambda (_%all-supers109838%_) + (let* ((_%all-supers109839109864%_ _%all-supers109838%_) + (_%E109844109868%_ (lambda () (error '"No clause matching" - _%all-supers107175107200%_ + _%all-supers109839109864%_ '([]) '([x]) '([x y]) '([x y ...])) '#!void))) - (let ((_%K107198107287%_ (lambda () '#f)) - (_%K107195107273%_ - (lambda (_%x107271%_) (base-struct/1 _%x107271%_))) - (_%K107190107250%_ - (lambda (_%y107247%_ _%x107248%_) - (base-struct/2 _%x107248%_ _%y107247%_))) - (_%K107181107211%_ - (lambda (_%y107208%_ _%x107209%_) + (let ((_%K109862109950%_ (lambda () '#f)) + (_%K109859109936%_ + (lambda (_%x109934%_) (base-struct/1 _%x109934%_))) + (_%K109854109913%_ + (lambda (_%y109910%_ _%x109911%_) + (base-struct/2 _%x109911%_ _%y109910%_))) + (_%K109845109875%_ + (lambda (_%y109872%_ _%x109873%_) (let () (declare (not safe)) - (__foldr1 base-struct/2 _%x107209%_ _%y107208%_))))) - (let* ((_%__match109387109388%_ - (lambda (_%hd107182107214%_ _%tl107183107216%_) - (let ((_%x107219%_ _%hd107182107214%_)) - (letrec ((_%splice-rest107185107221%_ - (lambda (_%rest107189107228%_ _%y107230%_) - (if (null? _%rest107189107228%_) - (_%K107181107211%_ - _%y107230%_ - _%x107219%_) - (_%E107180107204%_)))) - (_%splice-try107187107223%_ - (lambda (_%hd107188107232%_ - _%rest107189107234%_ - _%y107184107235%_) - (let ((_%y107238%_ _%hd107188107232%_)) - (_%splice-loop107186107225%_ + (__foldr1 base-struct/2 _%x109873%_ _%y109872%_))))) + (let* ((_%__match112222112223%_ + (lambda (_%hd109846109878%_ _%tl109847109880%_) + (let ((_%x109883%_ _%hd109846109878%_)) + (letrec ((_%splice-rest109849109885%_ + (lambda (_%rest109853109892%_ _%y109894%_) + (if (null? _%rest109853109892%_) + (_%K109845109875%_ + _%y109894%_ + _%x109883%_) + (_%E109844109868%_)))) + (_%splice-try109851109887%_ + (lambda (_%hd109852109896%_ + _%rest109853109898%_ + _%y109848109899%_) + (let ((_%y109901%_ _%hd109852109896%_)) + (_%splice-loop109850109889%_ (let () (declare (not safe)) - (##cdr _%rest107189107234%_)) - (cons _%y107238%_ _%y107184107235%_))))) - (_%splice-loop107186107225%_ - (lambda (_%rest107189107240%_ - _%y107184107241%_) - (if (pair? _%rest107189107240%_) - (_%splice-try107187107223%_ + (##cdr _%rest109853109898%_)) + (cons _%y109901%_ _%y109848109899%_))))) + (_%splice-loop109850109889%_ + (lambda (_%rest109853109903%_ + _%y109848109904%_) + (if (pair? _%rest109853109903%_) + (_%splice-try109851109887%_ (let () (declare (not safe)) - (##car _%rest107189107240%_)) - _%rest107189107240%_ - _%y107184107241%_) - (_%splice-rest107185107221%_ - _%rest107189107240%_ - (reverse _%y107184107241%_)))))) - (_%splice-loop107186107225%_ - _%tl107183107216%_ + (##car _%rest109853109903%_)) + _%rest109853109903%_ + _%y109848109904%_) + (_%splice-rest109849109885%_ + _%rest109853109903%_ + (reverse _%y109848109904%_)))))) + (_%splice-loop109850109889%_ + _%tl109847109880%_ '()))))) - (_%try-match107177107283%_ + (_%try-match109841109946%_ (lambda () - (if (pair? _%all-supers107175107200%_) - (let ((_%tl107197107278%_ + (if (pair? _%all-supers109839109864%_) + (let ((_%tl109861109941%_ (let () (declare (not safe)) - (##cdr _%all-supers107175107200%_))) - (_%hd107196107276%_ + (##cdr _%all-supers109839109864%_))) + (_%hd109860109939%_ (let () (declare (not safe)) - (##car _%all-supers107175107200%_)))) - (if (null? _%tl107197107278%_) - (let ((_%x107281%_ _%hd107196107276%_)) - (base-struct/1 _%x107281%_)) - (if (pair? _%tl107197107278%_) - (let ((_%tl107194107262%_ + (##car _%all-supers109839109864%_)))) + (if (null? _%tl109861109941%_) + (let ((_%x109944%_ _%hd109860109939%_)) + (base-struct/1 _%x109944%_)) + (if (pair? _%tl109861109941%_) + (let ((_%tl109858109925%_ (let () (declare (not safe)) - (##cdr _%tl107197107278%_))) - (_%hd107193107260%_ + (##cdr _%tl109861109941%_))) + (_%hd109857109923%_ (let () (declare (not safe)) - (##car _%tl107197107278%_)))) - (if (null? _%tl107194107262%_) - (let ((_%x107258%_ - _%hd107196107276%_) - (_%y107265%_ - _%hd107193107260%_)) - (_%K107190107250%_ - _%y107265%_ - _%x107258%_)) - (_%__match109387109388%_ - _%hd107196107276%_ - _%tl107197107278%_))) - (_%__match109387109388%_ - _%hd107196107276%_ - _%tl107197107278%_)))) - (_%E107180107204%_))))) - (if (null? _%all-supers107175107200%_) - (_%K107198107287%_) - (_%try-match107177107283%_))))))) + (##car _%tl109861109941%_)))) + (if (null? _%tl109858109925%_) + (let ((_%x109921%_ + _%hd109860109939%_) + (_%y109928%_ + _%hd109857109923%_)) + (_%K109854109913%_ + _%y109928%_ + _%x109921%_)) + (_%__match112222112223%_ + _%hd109860109939%_ + _%tl109861109941%_))) + (_%__match112222112223%_ + _%hd109860109939%_ + _%tl109861109941%_)))) + (_%E109844109868%_))))) + (if (null? _%all-supers109839109864%_) + (_%K109862109950%_) + (_%try-match109841109946%_))))))) (define base-struct - (lambda _%all-supers107172%_ (base-struct/list _%all-supers107172%_))) + (lambda _%all-supers109836%_ (base-struct/list _%all-supers109836%_))) (define find-super-constructor - (lambda (_%super107123%_) - (let _%lp107125%_ ((_%rest107127%_ _%super107123%_) - (_%constructor107128%_ '#f)) - (let* ((_%rest107129107137%_ _%rest107127%_) - (_%else107131107145%_ (lambda () _%constructor107128%_)) - (_%K107133107160%_ - (lambda (_%rest107148%_ _%hd107149%_) - (let ((_%$e107151%_ + (lambda (_%super109787%_) + (let _%lp109789%_ ((_%rest109791%_ _%super109787%_) + (_%constructor109792%_ '#f)) + (let* ((_%rest109793109801%_ _%rest109791%_) + (_%else109795109809%_ (lambda () _%constructor109792%_)) + (_%K109797109824%_ + (lambda (_%rest109812%_ _%hd109813%_) + (let ((_%$e109815%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd107149%_ + _%hd109813%_ '10 '#f '#f)))) - (if _%$e107151%_ - ((lambda (_%xconstructor107154%_) - (if (or (not _%constructor107128%_) - (eq? _%constructor107128%_ - _%xconstructor107154%_)) - (_%lp107125%_ - _%rest107148%_ - _%xconstructor107154%_) + (if _%$e109815%_ + ((lambda (_%xconstructor109818%_) + (if (or (not _%constructor109792%_) + (eq? _%constructor109792%_ + _%xconstructor109818%_)) + (_%lp109789%_ + _%rest109812%_ + _%xconstructor109818%_) (error '"conflicting implicit constructors" - _%constructor107128%_ - _%xconstructor107154%_))) - _%$e107151%_) - (_%lp107125%_ - _%rest107148%_ - _%constructor107128%_)))))) - (if (pair? _%rest107129107137%_) - (let ((_%hd107134107163%_ + _%constructor109792%_ + _%xconstructor109818%_))) + _%$e109815%_) + (_%lp109789%_ + _%rest109812%_ + _%constructor109792%_)))))) + (if (pair? _%rest109793109801%_) + (let ((_%hd109798109827%_ (let () (declare (not safe)) - (##car _%rest107129107137%_))) - (_%tl107135107165%_ + (##car _%rest109793109801%_))) + (_%tl109799109829%_ (let () (declare (not safe)) - (##cdr _%rest107129107137%_)))) - (let* ((_%hd107168%_ _%hd107134107163%_) - (_%rest107170%_ _%tl107135107165%_)) - (_%K107133107160%_ _%rest107170%_ _%hd107168%_))) - (_%else107131107145%_)))))) + (##cdr _%rest109793109801%_)))) + (let* ((_%hd109832%_ _%hd109798109827%_) + (_%rest109834%_ _%tl109799109829%_)) + (_%K109797109824%_ _%rest109834%_ _%hd109832%_))) + (_%else109795109809%_)))))) (define compute-class-slots - (lambda (_%class-precedence-list107099%_ _%direct-slots107100%_) - (let* ((_%next-slot107102%_ '1) - (_%slot-table107104%_ + (lambda (_%class-precedence-list109763%_ _%direct-slots109764%_) + (let* ((_%next-slot109766%_ '1) + (_%slot-table109768%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) - (_%r-slots107106%_ '(__class)) - (_%process-slot107110%_ - (lambda (_%slot107108%_) - (if (symbol? _%slot107108%_) + (_%r-slots109770%_ '(__class)) + (_%process-slot109774%_ + (lambda (_%slot109772%_) + (if (symbol? _%slot109772%_) '#!void - (error '"invalid slot name" _%slot107108%_)) + (error '"invalid slot name" _%slot109772%_)) (if (eq? (let () (declare (not safe)) (symbolic-table-ref - _%slot-table107104%_ - _%slot107108%_ + _%slot-table109768%_ + _%slot109772%_ absent-value)) absent-value) (begin (let () (declare (not safe)) (symbolic-table-set! - _%slot-table107104%_ - _%slot107108%_ - _%next-slot107102%_)) - (let ((__tmp109429 + _%slot-table109768%_ + _%slot109772%_ + _%next-slot109766%_)) + (let ((__tmp112414 (let () (declare (not safe)) - (symbol->keyword _%slot107108%_)))) + (symbol->keyword _%slot109772%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table107104%_ - __tmp109429 - _%next-slot107102%_)) - (set! _%r-slots107106%_ - (cons _%slot107108%_ _%r-slots107106%_)) - (set! _%next-slot107102%_ + _%slot-table109768%_ + __tmp112414 + _%next-slot109766%_)) + (set! _%r-slots109770%_ + (cons _%slot109772%_ _%r-slots109770%_)) + (set! _%next-slot109766%_ (let () (declare (not safe)) - (##fx+ _%next-slot107102%_ '1)))) + (##fx+ _%next-slot109766%_ '1)))) '#!void))) - (_%process-slots107116%_ - (lambda (_%g107111107113%_) - (for-each _%process-slot107110%_ _%g107111107113%_)))) - (let ((__tmp109431 - (lambda (_%mixin107119%_) - (_%process-slots107116%_ - (let ((__tmp109432 + (_%process-slots109780%_ + (lambda (_%g109775109777%_) + (for-each _%process-slot109774%_ _%g109775109777%_)))) + (let ((__tmp112416 + (lambda (_%mixin109783%_) + (_%process-slots109780%_ + (let ((__tmp112417 (let () (declare (not safe)) (##unchecked-structure-ref - _%mixin107119%_ + _%mixin109783%_ '9 '#f '#f)))) (declare (not safe)) - (agetq__% 'direct-slots: __tmp109432 '()))))) - (__tmp109430 (reverse _%class-precedence-list107099%_))) + (agetq__% 'direct-slots: __tmp112417 '()))))) + (__tmp112415 (reverse _%class-precedence-list109763%_))) (declare (not safe)) - (##for-each __tmp109431 __tmp109430)) - (_%process-slots107116%_ _%direct-slots107100%_) - (let ((_%slot-vector107121%_ + (##for-each __tmp112416 __tmp112415)) + (_%process-slots109780%_ _%direct-slots109764%_) + (let ((_%slot-vector109785%_ (list->vector (let () (declare (not safe)) - (##reverse _%r-slots107106%_))))) - (values _%slot-vector107121%_ _%slot-table107104%_))))) + (##reverse _%r-slots109770%_))))) + (values _%slot-vector109785%_ _%slot-table109768%_))))) (define make-class-type - (lambda (_%id107024%_ - _%name107025%_ - _%direct-supers107026%_ - _%direct-slots107027%_ - _%properties107028%_ - _%constructor107029%_) - (if (symbol? _%id107024%_) - (let ((_%id107033%_ _%id107024%_)) - (if (symbol? _%name107025%_) - (let ((_%name107043%_ _%name107025%_)) - (if (list? _%direct-supers107026%_) - (let ((_%direct-supers107053%_ - _%direct-supers107026%_)) - (if (list? _%direct-slots107027%_) - (let ((_%direct-slots107063%_ - _%direct-slots107027%_)) - (if (list? _%properties107028%_) - (let ((_%properties107073%_ - _%properties107028%_)) - (if ((lambda (_%$obj107082%_) - (or (not _%$obj107082%_) - (symbol? _%$obj107082%_))) - _%constructor107029%_) - (let ((_%constructor107089%_ - _%constructor107029%_)) + (lambda (_%id109688%_ + _%name109689%_ + _%direct-supers109690%_ + _%direct-slots109691%_ + _%properties109692%_ + _%constructor109693%_) + (if (symbol? _%id109688%_) + (let ((_%id109697%_ _%id109688%_)) + (if (symbol? _%name109689%_) + (let ((_%name109707%_ _%name109689%_)) + (if (list? _%direct-supers109690%_) + (let ((_%direct-supers109717%_ + _%direct-supers109690%_)) + (if (list? _%direct-slots109691%_) + (let ((_%direct-slots109727%_ + _%direct-slots109691%_)) + (if (list? _%properties109692%_) + (let ((_%properties109737%_ + _%properties109692%_)) + (if ((lambda (_%$obj109746%_) + (or (not _%$obj109746%_) + (symbol? _%$obj109746%_))) + _%constructor109693%_) + (let ((_%constructor109753%_ + _%constructor109693%_)) (__make-class-type - _%id107033%_ - _%name107043%_ - _%direct-supers107053%_ - _%direct-slots107063%_ - _%properties107073%_ - _%constructor107089%_)) + _%id109697%_ + _%name109707%_ + _%direct-supers109717%_ + _%direct-slots109727%_ + _%properties109737%_ + _%constructor109753%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@427.24-427.35" + '"\"gerbil/runtime/mop.ss\"@500.24-500.35" 'contract: '(? (or not symbol?)) 'value: - _%constructor107029%_) + _%constructor109693%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@426.24-426.34" + '"\"gerbil/runtime/mop.ss\"@499.24-499.34" 'contract: 'list? 'value: - _%properties107028%_) + _%properties109692%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@425.24-425.36" + '"\"gerbil/runtime/mop.ss\"@498.24-498.36" 'contract: 'list? 'value: - _%direct-slots107027%_) + _%direct-slots109691%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@424.24-424.37" + '"\"gerbil/runtime/mop.ss\"@497.24-497.37" 'contract: 'list? 'value: - _%direct-supers107026%_) + _%direct-supers109690%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@423.24-423.28" + '"\"gerbil/runtime/mop.ss\"@496.24-496.28" 'contract: 'symbol? 'value: - _%name107025%_) + _%name109689%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@422.24-422.26" + '"\"gerbil/runtime/mop.ss\"@495.24-495.26" 'contract: 'symbol? 'value: - _%id107024%_) + _%id109688%_) '#!void)))) (define __make-class-type - (lambda (_%id106893%_ - _%name106894%_ - _%direct-supers106895%_ - _%direct-slots106896%_ - _%properties106897%_ - _%constructor106898%_) - (let* ((_%id106901%_ _%id106893%_) - (_%name106909%_ _%name106894%_) - (_%direct-supers106917%_ _%direct-supers106895%_) - (_%direct-slots106925%_ _%direct-slots106896%_) - (_%properties106933%_ _%properties106897%_) - (_%constructor106941%_ _%constructor106898%_)) - (let ((_%$e106953%_ - (let ((__tmp109433 - (lambda (_%$obj106950%_) + (lambda (_%id109557%_ + _%name109558%_ + _%direct-supers109559%_ + _%direct-slots109560%_ + _%properties109561%_ + _%constructor109562%_) + (let* ((_%id109565%_ _%id109557%_) + (_%name109573%_ _%name109558%_) + (_%direct-supers109581%_ _%direct-supers109559%_) + (_%direct-slots109589%_ _%direct-slots109560%_) + (_%properties109597%_ _%properties109561%_) + (_%constructor109605%_ _%constructor109562%_)) + (let ((_%$e109617%_ + (let ((__tmp112418 + (lambda (_%$obj109614%_) (not (let () (declare (not safe)) (##structure-instance-of? - _%$obj106950%_ + _%$obj109614%_ 'class)))))) (declare (not safe)) - (__find __tmp109433 _%direct-supers106917%_)))) - (if _%$e106953%_ - ((lambda (_%g106955106957%_) + (__find __tmp112418 _%direct-supers109581%_)))) + (if _%$e109617%_ + ((lambda (_%g109619109621%_) (error '"Illegal super class; not a class descriptor" - _%g106955106957%_)) - _%$e106953%_) - (let ((_%$e106960%_ + _%g109619109621%_)) + _%$e109617%_) + (let ((_%$e109624%_ (let () (declare (not safe)) (__find __class-type-final? - _%direct-supers106917%_)))) - (if _%$e106960%_ - ((lambda (_%g106962106964%_) + _%direct-supers109581%_)))) + (if _%$e109624%_ + ((lambda (_%g109626109628%_) (error '"Cannot extend final class" - _%g106962106964%_)) - _%$e106960%_) + _%g109626109628%_)) + _%$e109624%_) '#!void)))) - (let ((_g109434_ (compute-precedence-list _%direct-supers106917%_))) + (let ((_g112419_ (compute-precedence-list _%direct-supers109581%_))) (begin - (let ((_g109435_ + (let ((_g112420_ (let () (declare (not safe)) - (if (##values? _g109434_) - (##values-length _g109434_) + (if (##values? _g112419_) + (##values-length _g112419_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g109435_ 2))) - (error "Context expects 2 values" _g109435_))) - (let ((_%precedence-list106967%_ - (let () (declare (not safe)) (##values-ref _g109434_ 0))) - (_%struct-super106968%_ - (let () (declare (not safe)) (##values-ref _g109434_ 1)))) - (let ((_g109436_ + (if (not (let () (declare (not safe)) (##fx= _g112420_ 2))) + (error "Context expects 2 values" _g112420_))) + (let ((_%precedence-list109631%_ + (let () (declare (not safe)) (##values-ref _g112419_ 0))) + (_%struct-super109632%_ + (let () (declare (not safe)) (##values-ref _g112419_ 1)))) + (let ((_g112421_ (compute-class-slots - _%precedence-list106967%_ - _%direct-slots106925%_))) + _%precedence-list109631%_ + _%direct-slots109589%_))) (begin - (let ((_g109437_ + (let ((_g112422_ (let () (declare (not safe)) - (if (##values? _g109436_) - (##values-length _g109436_) + (if (##values? _g112421_) + (##values-length _g112421_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g109437_ 2))) - (error "Context expects 2 values" _g109437_))) - (let ((_%slot-vector106970%_ + (##fx= _g112422_ 2))) + (error "Context expects 2 values" _g112422_))) + (let ((_%slot-vector109634%_ (let () (declare (not safe)) - (##values-ref _g109436_ 0))) - (_%slot-table106971%_ + (##values-ref _g112421_ 0))) + (_%slot-table109635%_ (let () (declare (not safe)) - (##values-ref _g109436_ 1)))) - (let* ((_%properties106973%_ + (##values-ref _g112421_ 1)))) + (let* ((_%properties109637%_ (cons (cons 'direct-slots: - _%direct-slots106925%_) + _%direct-slots109589%_) (cons (cons 'direct-supers: - _%direct-supers106917%_) - _%properties106933%_))) - (_%constructor*106978%_ - (let ((_%$e106975%_ _%constructor106941%_)) - (if _%$e106975%_ - _%$e106975%_ + _%direct-supers109581%_) + _%properties109597%_))) + (_%constructor*109642%_ + (let ((_%$e109639%_ _%constructor109605%_)) + (if _%$e109639%_ + _%$e109639%_ (find-super-constructor - _%direct-supers106917%_)))) - (_%precedence-list107021%_ + _%direct-supers109581%_)))) + (_%precedence-list109685%_ (if (or (let () (declare (not safe)) (agetq__0 'system: - _%properties106973%_)) + _%properties109637%_)) (memq object::t - _%precedence-list106967%_)) - _%precedence-list106967%_ - (let _%loop106983%_ ((_%tail106985%_ - _%precedence-list106967%_) - (_%head106986%_ '())) - (let* ((_%tail106987106995%_ - _%tail106985%_) - (_%else106989107003%_ + _%precedence-list109631%_)) + _%precedence-list109631%_ + (let _%loop109647%_ ((_%tail109649%_ + _%precedence-list109631%_) + (_%head109650%_ '())) + (let* ((_%tail109651109659%_ + _%tail109649%_) + (_%else109653109667%_ (lambda () - (let ((__tmp109438 + (let ((__tmp112423 (cons object::t (cons t::t '())))) (declare (not safe)) (__foldl1 cons - __tmp109438 - _%head106986%_)))) - (_%K106991107009%_ - (lambda (_%rest107006%_ - _%hd107007%_) - (if (eq? _%hd107007%_ t::t) - (let ((__tmp109439 + __tmp112423 + _%head109650%_)))) + (_%K109655109673%_ + (lambda (_%rest109670%_ + _%hd109671%_) + (if (eq? _%hd109671%_ t::t) + (let ((__tmp112424 (cons object::t - _%tail106985%_))) + _%tail109649%_))) (declare (not safe)) (__foldl1 cons - __tmp109439 - _%head106986%_)) - (_%loop106983%_ - _%rest107006%_ - (cons _%hd107007%_ - _%head106986%_)))))) - (if (pair? _%tail106987106995%_) - (let ((_%hd106992107012%_ + __tmp112424 + _%head109650%_)) + (_%loop109647%_ + _%rest109670%_ + (cons _%hd109671%_ + _%head109650%_)))))) + (if (pair? _%tail109651109659%_) + (let ((_%hd109656109676%_ (let () (declare (not safe)) - (##car _%tail106987106995%_))) - (_%tl106993107014%_ + (##car _%tail109651109659%_))) + (_%tl109657109678%_ (let () (declare (not safe)) - (##cdr _%tail106987106995%_)))) - (let* ((_%hd107017%_ - _%hd106992107012%_) - (_%rest107019%_ - _%tl106993107014%_)) - (_%K106991107009%_ - _%rest107019%_ - _%hd107017%_))) - (_%else106989107003%_))))))) + (##cdr _%tail109651109659%_)))) + (let* ((_%hd109681%_ + _%hd109656109676%_) + (_%rest109683%_ + _%tl109657109678%_)) + (_%K109655109673%_ + _%rest109683%_ + _%hd109681%_))) + (_%else109653109667%_))))))) (make-class-type-descriptor - _%id106901%_ - _%name106909%_ - _%struct-super106968%_ - _%precedence-list107021%_ - _%slot-vector106970%_ - _%properties106973%_ - _%constructor*106978%_ - _%slot-table106971%_ + _%id109565%_ + _%name109573%_ + _%struct-super109632%_ + _%precedence-list109685%_ + _%slot-vector109634%_ + _%properties109637%_ + _%constructor*109642%_ + _%slot-table109635%_ '#f))))))))))) (define class-precedence-list - (lambda (_%klass106879%_) + (lambda (_%klass109543%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass106879%_ 'class)) - (let ((_%klass106883%_ _%klass106879%_)) - (__class-precedence-list _%klass106883%_)) + (##structure-instance-of? _%klass109543%_ 'class)) + (let ((_%klass109547%_ _%klass109543%_)) + (__class-precedence-list _%klass109547%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@460.30-460.35" + '"\"gerbil/runtime/mop.ss\"@533.30-533.35" 'contract: 'class-type? 'value: - _%klass106879%_) + _%klass109543%_) '#!void)))) (define __class-precedence-list - (lambda (_%klass106867%_) - (let ((_%klass106870%_ _%klass106867%_)) - (cons _%klass106870%_ + (lambda (_%klass109531%_) + (let ((_%klass109534%_ _%klass109531%_)) + (cons _%klass109534%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass106870%_ '6 '#f '#f)))))) + (##unchecked-structure-ref _%klass109534%_ '6 '#f '#f)))))) (define compute-precedence-list - (lambda (_%direct-supers106864%_) + (lambda (_%direct-supers109528%_) (let () (declare (not safe)) (c4-linearize__% @@ -1631,3637 +1916,3372 @@ eq? ##type-name '() - _%direct-supers106864%_)))) + _%direct-supers109528%_)))) (define make-class-predicate - (lambda (_%klass106850%_) + (lambda (_%klass109514%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass106850%_ 'class)) - (let ((_%klass106854%_ _%klass106850%_)) - (__make-class-predicate _%klass106854%_)) + (##structure-instance-of? _%klass109514%_ 'class)) + (let ((_%klass109518%_ _%klass109514%_)) + (__make-class-predicate _%klass109518%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@472.29-472.34" + '"\"gerbil/runtime/mop.ss\"@545.29-545.34" 'contract: 'class-type? 'value: - _%klass106850%_) + _%klass109514%_) '#!void)))) (define __make-class-predicate - (lambda (_%klass106821%_) - (let* ((_%klass106824%_ _%klass106821%_) - (_%tid106833%_ - (let () (declare (not safe)) (##type-id _%klass106824%_)))) - (if (__class-type-final? _%klass106824%_) - (lambda (_%g106835106837%_) + (lambda (_%klass109485%_) + (let* ((_%klass109488%_ _%klass109485%_) + (_%tid109497%_ + (let () (declare (not safe)) (##type-id _%klass109488%_)))) + (if (__class-type-final? _%klass109488%_) + (lambda (_%g109499109501%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%g106835106837%_ - _%tid106833%_))) - (if (__class-type-struct? _%klass106824%_) - (lambda (_%g106840106842%_) + _%g109499109501%_ + _%tid109497%_))) + (if (__class-type-struct? _%klass109488%_) + (lambda (_%g109504109506%_) (let () (declare (not safe)) (##structure-instance-of? - _%g106840106842%_ - _%tid106833%_))) - (lambda (_%g106845106847%_) - (__class-instance? _%klass106824%_ _%g106845106847%_))))))) + _%g109504109506%_ + _%tid109497%_))) + (lambda (_%g109509109511%_) + (__class-instance? _%klass109488%_ _%g109509109511%_))))))) (define make-class-slot-accessor - (lambda (_%klass106796%_ _%slot106797%_) + (lambda (_%klass109460%_ _%slot109461%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass106796%_ 'class)) - (let ((_%klass106801%_ _%klass106796%_)) - (if (symbol? _%slot106797%_) - (let ((_%slot106811%_ _%slot106797%_)) + (##structure-instance-of? _%klass109460%_ 'class)) + (let ((_%klass109465%_ _%klass109460%_)) + (if (symbol? _%slot109461%_) + (let ((_%slot109475%_ _%slot109461%_)) (__make-class-slot-accessor - _%klass106801%_ - _%slot106811%_)) + _%klass109465%_ + _%slot109475%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@503.50-503.54" + '"\"gerbil/runtime/mop.ss\"@576.50-576.54" 'contract: 'symbol? 'value: - _%slot106797%_) + _%slot109461%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@503.33-503.38" + '"\"gerbil/runtime/mop.ss\"@576.33-576.38" 'contract: 'class-type? 'value: - _%klass106796%_) + _%klass109460%_) '#!void)))) (define __make-class-slot-accessor - (lambda (_%klass106764%_ _%slot106765%_) - (let* ((_%klass106768%_ _%klass106764%_) - (_%slot106776%_ _%slot106765%_) - (_%field106785%_ - (let ((__tmp109440 + (lambda (_%klass109428%_ _%slot109429%_) + (let* ((_%klass109432%_ _%klass109428%_) + (_%slot109440%_ _%slot109429%_) + (_%field109449%_ + (let ((__tmp112425 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass106768%_ + _%klass109432%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp109440 _%slot106776%_ '#f)))) - (if (not _%field106785%_) + (symbolic-table-ref __tmp112425 _%slot109440%_ '#f)))) + (if (not _%field109449%_) (let () (error '"unknown slot" 'class: - _%klass106768%_ + _%klass109432%_ 'slot: - _%slot106776%_) + _%slot109440%_) '#!void) - (if (__class-type-final? _%klass106768%_) + (if (__class-type-final? _%klass109432%_) (make-final-slot-accessor - _%klass106768%_ - _%slot106776%_ - _%field106785%_) - (if (__class-type-struct? _%klass106768%_) + _%klass109432%_ + _%slot109440%_ + _%field109449%_) + (if (__class-type-struct? _%klass109432%_) (make-struct-slot-accessor - _%klass106768%_ - _%slot106776%_ - _%field106785%_) - (if (let ((_%strukt106791%_ - (base-struct/1 _%klass106768%_))) + _%klass109432%_ + _%slot109440%_ + _%field109449%_) + (if (let ((_%strukt109455%_ + (base-struct/1 _%klass109432%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt106791%_ + _%strukt109455%_ 'class)) - (let ((__tmp109441 - (let ((__tmp109442 + (let ((__tmp112426 + (let ((__tmp112427 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt106791%_ + _%strukt109455%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp109442)))) + (##vector-length __tmp112427)))) (declare (not safe)) - (##fx< _%field106785%_ __tmp109441)))) + (##fx< _%field109449%_ __tmp112426)))) (make-struct-subclass-slot-accessor - _%klass106768%_ - _%slot106776%_ - _%field106785%_) + _%klass109432%_ + _%slot109440%_ + _%field109449%_) (make-class-cached-slot-accessor - _%klass106768%_ - _%slot106776%_ - _%field106785%_)))))))) + _%klass109432%_ + _%slot109440%_ + _%field109449%_)))))))) (define make-class-slot-mutator - (lambda (_%klass106739%_ _%slot106740%_) + (lambda (_%klass109403%_ _%slot109404%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass106739%_ 'class)) - (let ((_%klass106744%_ _%klass106739%_)) - (if (symbol? _%slot106740%_) - (let ((_%slot106754%_ _%slot106740%_)) - (__make-class-slot-mutator _%klass106744%_ _%slot106754%_)) + (##structure-instance-of? _%klass109403%_ 'class)) + (let ((_%klass109408%_ _%klass109403%_)) + (if (symbol? _%slot109404%_) + (let ((_%slot109418%_ _%slot109404%_)) + (__make-class-slot-mutator _%klass109408%_ _%slot109418%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@511.49-511.53" + '"\"gerbil/runtime/mop.ss\"@584.49-584.53" 'contract: 'symbol? 'value: - _%slot106740%_) + _%slot109404%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@511.32-511.37" + '"\"gerbil/runtime/mop.ss\"@584.32-584.37" 'contract: 'class-type? 'value: - _%klass106739%_) + _%klass109403%_) '#!void)))) (define __make-class-slot-mutator - (lambda (_%klass106707%_ _%slot106708%_) - (let* ((_%klass106711%_ _%klass106707%_) - (_%slot106719%_ _%slot106708%_) - (_%field106728%_ - (let ((__tmp109443 + (lambda (_%klass109371%_ _%slot109372%_) + (let* ((_%klass109375%_ _%klass109371%_) + (_%slot109383%_ _%slot109372%_) + (_%field109392%_ + (let ((__tmp112428 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass106711%_ + _%klass109375%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp109443 _%slot106719%_ '#f)))) - (if (not _%field106728%_) + (symbolic-table-ref __tmp112428 _%slot109383%_ '#f)))) + (if (not _%field109392%_) (let () (error '"unknown slot" 'class: - _%klass106711%_ + _%klass109375%_ 'slot: - _%slot106719%_) + _%slot109383%_) '#!void) - (if (__class-type-final? _%klass106711%_) + (if (__class-type-final? _%klass109375%_) (make-final-slot-mutator - _%klass106711%_ - _%slot106719%_ - _%field106728%_) - (if (__class-type-struct? _%klass106711%_) + _%klass109375%_ + _%slot109383%_ + _%field109392%_) + (if (__class-type-struct? _%klass109375%_) (make-struct-slot-mutator - _%klass106711%_ - _%slot106719%_ - _%field106728%_) - (if (let ((_%strukt106734%_ - (base-struct/1 _%klass106711%_))) + _%klass109375%_ + _%slot109383%_ + _%field109392%_) + (if (let ((_%strukt109398%_ + (base-struct/1 _%klass109375%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt106734%_ + _%strukt109398%_ 'class)) - (let ((__tmp109444 - (let ((__tmp109445 + (let ((__tmp112429 + (let ((__tmp112430 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt106734%_ + _%strukt109398%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp109445)))) + (##vector-length __tmp112430)))) (declare (not safe)) - (##fx< _%field106728%_ __tmp109444)))) + (##fx< _%field109392%_ __tmp112429)))) (make-struct-subclass-slot-mutator - _%klass106711%_ - _%slot106719%_ - _%field106728%_) + _%klass109375%_ + _%slot109383%_ + _%field109392%_) (make-class-cached-slot-mutator - _%klass106711%_ - _%slot106719%_ - _%field106728%_)))))))) + _%klass109375%_ + _%slot109383%_ + _%field109392%_)))))))) (define make-class-slot-unchecked-accessor - (lambda (_%klass106682%_ _%slot106683%_) + (lambda (_%klass109346%_ _%slot109347%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass106682%_ 'class)) - (let ((_%klass106687%_ _%klass106682%_)) - (if (symbol? _%slot106683%_) - (let ((_%slot106697%_ _%slot106683%_)) + (##structure-instance-of? _%klass109346%_ 'class)) + (let ((_%klass109351%_ _%klass109346%_)) + (if (symbol? _%slot109347%_) + (let ((_%slot109361%_ _%slot109347%_)) (__make-class-slot-unchecked-accessor - _%klass106687%_ - _%slot106697%_)) + _%klass109351%_ + _%slot109361%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@519.60-519.64" + '"\"gerbil/runtime/mop.ss\"@592.60-592.64" 'contract: 'symbol? 'value: - _%slot106683%_) + _%slot109347%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@519.43-519.48" + '"\"gerbil/runtime/mop.ss\"@592.43-592.48" 'contract: 'class-type? 'value: - _%klass106682%_) + _%klass109346%_) '#!void)))) (define __make-class-slot-unchecked-accessor - (lambda (_%klass106650%_ _%slot106651%_) - (let* ((_%klass106654%_ _%klass106650%_) - (_%slot106662%_ _%slot106651%_) - (_%field106671%_ - (let ((__tmp109446 + (lambda (_%klass109314%_ _%slot109315%_) + (let* ((_%klass109318%_ _%klass109314%_) + (_%slot109326%_ _%slot109315%_) + (_%field109335%_ + (let ((__tmp112431 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass106654%_ + _%klass109318%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp109446 _%slot106662%_ '#f)))) - (if (not _%field106671%_) + (symbolic-table-ref __tmp112431 _%slot109326%_ '#f)))) + (if (not _%field109335%_) (let () (error '"unknown slot" 'class: - _%klass106654%_ + _%klass109318%_ 'slot: - _%slot106662%_) + _%slot109326%_) '#!void) - (if (__class-type-final? _%klass106654%_) + (if (__class-type-final? _%klass109318%_) (make-struct-slot-unchecked-accessor - _%klass106654%_ - _%slot106662%_ - _%field106671%_) - (if (__class-type-struct? _%klass106654%_) + _%klass109318%_ + _%slot109326%_ + _%field109335%_) + (if (__class-type-struct? _%klass109318%_) (make-struct-slot-unchecked-accessor - _%klass106654%_ - _%slot106662%_ - _%field106671%_) - (if (let ((_%strukt106677%_ - (base-struct/1 _%klass106654%_))) + _%klass109318%_ + _%slot109326%_ + _%field109335%_) + (if (let ((_%strukt109341%_ + (base-struct/1 _%klass109318%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt106677%_ + _%strukt109341%_ 'class)) - (let ((__tmp109447 - (let ((__tmp109448 + (let ((__tmp112432 + (let ((__tmp112433 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt106677%_ + _%strukt109341%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp109448)))) + (##vector-length __tmp112433)))) (declare (not safe)) - (##fx< _%field106671%_ __tmp109447)))) + (##fx< _%field109335%_ __tmp112432)))) (make-struct-slot-unchecked-accessor - _%klass106654%_ - _%slot106662%_ - _%field106671%_) + _%klass109318%_ + _%slot109326%_ + _%field109335%_) (make-class-cached-slot-unchecked-accessor - _%klass106654%_ - _%slot106662%_ - _%field106671%_)))))))) + _%klass109318%_ + _%slot109326%_ + _%field109335%_)))))))) (define make-class-slot-unchecked-mutator - (lambda (_%klass106625%_ _%slot106626%_) + (lambda (_%klass109289%_ _%slot109290%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass106625%_ 'class)) - (let ((_%klass106630%_ _%klass106625%_)) - (if (symbol? _%slot106626%_) - (let ((_%slot106640%_ _%slot106626%_)) + (##structure-instance-of? _%klass109289%_ 'class)) + (let ((_%klass109294%_ _%klass109289%_)) + (if (symbol? _%slot109290%_) + (let ((_%slot109304%_ _%slot109290%_)) (__make-class-slot-unchecked-mutator - _%klass106630%_ - _%slot106640%_)) + _%klass109294%_ + _%slot109304%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@527.59-527.63" + '"\"gerbil/runtime/mop.ss\"@600.59-600.63" 'contract: 'symbol? 'value: - _%slot106626%_) + _%slot109290%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@527.42-527.47" + '"\"gerbil/runtime/mop.ss\"@600.42-600.47" 'contract: 'class-type? 'value: - _%klass106625%_) + _%klass109289%_) '#!void)))) (define __make-class-slot-unchecked-mutator - (lambda (_%klass106593%_ _%slot106594%_) - (let* ((_%klass106597%_ _%klass106593%_) - (_%slot106605%_ _%slot106594%_) - (_%field106614%_ - (let ((__tmp109449 + (lambda (_%klass109257%_ _%slot109258%_) + (let* ((_%klass109261%_ _%klass109257%_) + (_%slot109269%_ _%slot109258%_) + (_%field109278%_ + (let ((__tmp112434 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass106597%_ + _%klass109261%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp109449 _%slot106605%_ '#f)))) - (if (not _%field106614%_) + (symbolic-table-ref __tmp112434 _%slot109269%_ '#f)))) + (if (not _%field109278%_) (let () (error '"unknown slot" 'class: - _%klass106597%_ + _%klass109261%_ 'slot: - _%slot106605%_) + _%slot109269%_) '#!void) - (if (__class-type-final? _%klass106597%_) + (if (__class-type-final? _%klass109261%_) (make-struct-slot-unchecked-mutator - _%klass106597%_ - _%slot106605%_ - _%field106614%_) - (if (__class-type-struct? _%klass106597%_) + _%klass109261%_ + _%slot109269%_ + _%field109278%_) + (if (__class-type-struct? _%klass109261%_) (make-struct-slot-unchecked-mutator - _%klass106597%_ - _%slot106605%_ - _%field106614%_) - (if (let ((_%strukt106620%_ - (base-struct/1 _%klass106597%_))) + _%klass109261%_ + _%slot109269%_ + _%field109278%_) + (if (let ((_%strukt109284%_ + (base-struct/1 _%klass109261%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt106620%_ + _%strukt109284%_ 'class)) - (let ((__tmp109450 - (let ((__tmp109451 + (let ((__tmp112435 + (let ((__tmp112436 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt106620%_ + _%strukt109284%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp109451)))) + (##vector-length __tmp112436)))) (declare (not safe)) - (##fx< _%field106614%_ __tmp109450)))) + (##fx< _%field109278%_ __tmp112435)))) (make-struct-slot-unchecked-mutator - _%klass106597%_ - _%slot106605%_ - _%field106614%_) + _%klass109261%_ + _%slot109269%_ + _%field109278%_) (make-class-cached-slot-unchecked-mutator - _%klass106597%_ - _%slot106605%_ - _%field106614%_)))))))) + _%klass109261%_ + _%slot109269%_ + _%field109278%_)))))))) (define not-an-instance__% - (lambda (_%object106577%_ _%class106578%_ _%slot106579%_) + (lambda (_%object109241%_ _%class109242%_ _%slot109243%_) (apply error '"not an instance" 'object: - _%object106577%_ + _%object109241%_ 'class: - _%class106578%_ - (if _%slot106579%_ - (cons 'slot: (cons _%slot106579%_ '())) + _%class109242%_ + (if _%slot109243%_ + (cons 'slot: (cons _%slot109243%_ '())) '())))) (define not-an-instance__0 - (lambda (_%object106584%_ _%class106585%_) - (let ((_%slot106587%_ '#f)) + (lambda (_%object109248%_ _%class109249%_) + (let ((_%slot109251%_ '#f)) (not-an-instance__% - _%object106584%_ - _%class106585%_ - _%slot106587%_)))) + _%object109248%_ + _%class109249%_ + _%slot109251%_)))) (define not-an-instance - (lambda _g109452_ - (let ((_g109453_ (let () (declare (not safe)) (##length _g109452_)))) - (cond ((let () (declare (not safe)) (##fx= _g109453_ 2)) - (apply not-an-instance__0 _g109452_)) - ((let () (declare (not safe)) (##fx= _g109453_ 3)) - (apply not-an-instance__% _g109452_)) + (lambda _g112437_ + (let ((_g112438_ (let () (declare (not safe)) (##length _g112437_)))) + (cond ((let () (declare (not safe)) (##fx= _g112438_ 2)) + (apply not-an-instance__0 _g112437_)) + ((let () (declare (not safe)) (##fx= _g112438_ 3)) + (apply not-an-instance__% _g112437_)) (else (##raise-wrong-number-of-arguments-exception not-an-instance - _g109452_)))))) + _g112437_)))))) (define make-final-slot-accessor - (lambda (_%klass106570%_ _%slot106571%_ _%field106572%_) - (lambda (_%obj106574%_) + (lambda (_%klass109234%_ _%slot109235%_ _%field109236%_) + (lambda (_%obj109238%_) (##direct-structure-ref - _%obj106574%_ - _%field106572%_ - _%klass106570%_ - _%slot106571%_)))) + _%obj109238%_ + _%field109236%_ + _%klass109234%_ + _%slot109235%_)))) (define make-final-slot-mutator - (lambda (_%klass106563%_ _%slot106564%_ _%field106565%_) - (lambda (_%obj106567%_ _%val106568%_) + (lambda (_%klass109227%_ _%slot109228%_ _%field109229%_) + (lambda (_%obj109231%_ _%val109232%_) (##direct-structure-set! - _%obj106567%_ - _%val106568%_ - _%field106565%_ - _%klass106563%_ - _%slot106564%_)))) + _%obj109231%_ + _%val109232%_ + _%field109229%_ + _%klass109227%_ + _%slot109228%_)))) (define make-struct-slot-accessor - (lambda (_%klass106557%_ _%slot106558%_ _%field106559%_) - (lambda (_%obj106561%_) + (lambda (_%klass109221%_ _%slot109222%_ _%field109223%_) + (lambda (_%obj109225%_) (##structure-ref - _%obj106561%_ - _%field106559%_ - _%klass106557%_ - _%slot106558%_)))) + _%obj109225%_ + _%field109223%_ + _%klass109221%_ + _%slot109222%_)))) (define make-struct-slot-mutator - (lambda (_%klass106550%_ _%slot106551%_ _%field106552%_) - (lambda (_%obj106554%_ _%val106555%_) + (lambda (_%klass109214%_ _%slot109215%_ _%field109216%_) + (lambda (_%obj109218%_ _%val109219%_) (##structure-set! - _%obj106554%_ - _%val106555%_ - _%field106552%_ - _%klass106550%_ - _%slot106551%_)))) + _%obj109218%_ + _%val109219%_ + _%field109216%_ + _%klass109214%_ + _%slot109215%_)))) (define make-struct-slot-unchecked-accessor - (lambda (_%klass106544%_ _%slot106545%_ _%field106546%_) - (lambda (_%obj106548%_) + (lambda (_%klass109208%_ _%slot109209%_ _%field109210%_) + (lambda (_%obj109212%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%obj106548%_ - _%field106546%_ - _%klass106544%_ - _%slot106545%_))))) + _%obj109212%_ + _%field109210%_ + _%klass109208%_ + _%slot109209%_))))) (define make-struct-slot-unchecked-mutator - (lambda (_%klass106537%_ _%slot106538%_ _%field106539%_) - (lambda (_%obj106541%_ _%val106542%_) + (lambda (_%klass109201%_ _%slot109202%_ _%field109203%_) + (lambda (_%obj109205%_ _%val109206%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%obj106541%_ - _%val106542%_ - _%field106539%_ - _%klass106537%_ - _%slot106538%_))))) + _%obj109205%_ + _%val109206%_ + _%field109203%_ + _%klass109201%_ + _%slot109202%_))))) (define make-struct-subclass-slot-accessor - (lambda (_%klass106531%_ _%slot106532%_ _%field106533%_) - (lambda (_%obj106535%_) - (if (class-instance? _%klass106531%_ _%obj106535%_) - (unchecked-slot-ref _%obj106535%_ _%field106533%_) + (lambda (_%klass109195%_ _%slot109196%_ _%field109197%_) + (lambda (_%obj109199%_) + (if (class-instance? _%klass109195%_ _%obj109199%_) + (unchecked-slot-ref _%obj109199%_ _%field109197%_) (not-an-instance__% - _%obj106535%_ - _%klass106531%_ - _%slot106532%_))))) + _%obj109199%_ + _%klass109195%_ + _%slot109196%_))))) (define make-struct-subclass-slot-mutator - (lambda (_%klass106524%_ _%slot106525%_ _%field106526%_) - (lambda (_%obj106528%_ _%val106529%_) - (if (class-instance? _%klass106524%_ _%obj106528%_) + (lambda (_%klass109188%_ _%slot109189%_ _%field109190%_) + (lambda (_%obj109192%_ _%val109193%_) + (if (class-instance? _%klass109188%_ _%obj109192%_) (unchecked-field-set! - _%obj106528%_ - _%field106526%_ - _%val106529%_) + _%obj109192%_ + _%field109190%_ + _%val109193%_) (not-an-instance__% - _%obj106528%_ - _%klass106524%_ - _%slot106525%_))))) + _%obj109192%_ + _%klass109188%_ + _%slot109189%_))))) (define make-class-cached-slot-accessor - (lambda (_%klass106515%_ _%slot106516%_ _%field106517%_) - (lambda (_%obj106519%_) - (if (let ((__tmp109454 + (lambda (_%klass109179%_ _%slot109180%_ _%field109181%_) + (lambda (_%obj109183%_) + (if (let ((__tmp112439 (let () (declare (not safe)) - (##type-id _%klass106515%_)))) + (##type-id _%klass109179%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj106519%_ __tmp109454)) - (unchecked-field-ref _%obj106519%_ _%field106517%_) - (if (class-instance? _%klass106515%_ _%obj106519%_) - (unchecked-slot-ref _%obj106519%_ _%slot106516%_) + (##structure-direct-instance-of? _%obj109183%_ __tmp112439)) + (unchecked-field-ref _%obj109183%_ _%field109181%_) + (if (class-instance? _%klass109179%_ _%obj109183%_) + (unchecked-slot-ref _%obj109183%_ _%slot109180%_) (not-an-instance__% - _%obj106519%_ - _%klass106515%_ - _%slot106516%_)))))) + _%obj109183%_ + _%klass109179%_ + _%slot109180%_)))))) (define make-class-cached-slot-mutator - (lambda (_%klass106505%_ _%slot106506%_ _%field106507%_) - (lambda (_%obj106509%_ _%val106510%_) - (if (let ((__tmp109455 + (lambda (_%klass109169%_ _%slot109170%_ _%field109171%_) + (lambda (_%obj109173%_ _%val109174%_) + (if (let ((__tmp112440 (let () (declare (not safe)) - (##type-id _%klass106505%_)))) + (##type-id _%klass109169%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj106509%_ __tmp109455)) + (##structure-direct-instance-of? _%obj109173%_ __tmp112440)) (unchecked-field-set! - _%obj106509%_ - _%field106507%_ - _%val106510%_) - (if (class-instance? _%klass106505%_ _%obj106509%_) + _%obj109173%_ + _%field109171%_ + _%val109174%_) + (if (class-instance? _%klass109169%_ _%obj109173%_) (unchecked-slot-set! - _%obj106509%_ - _%slot106506%_ - _%val106510%_) + _%obj109173%_ + _%slot109170%_ + _%val109174%_) (not-an-instance__% - _%obj106509%_ - _%klass106505%_ - _%slot106506%_)))))) + _%obj109173%_ + _%klass109169%_ + _%slot109170%_)))))) (define make-class-cached-slot-unchecked-accessor - (lambda (_%klass106499%_ _%slot106500%_ _%field106501%_) - (lambda (_%obj106503%_) - (if (let ((__tmp109456 + (lambda (_%klass109163%_ _%slot109164%_ _%field109165%_) + (lambda (_%obj109167%_) + (if (let ((__tmp112441 (let () (declare (not safe)) - (##type-id _%klass106499%_)))) + (##type-id _%klass109163%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj106503%_ __tmp109456)) - (unchecked-field-ref _%obj106503%_ _%field106501%_) - (unchecked-slot-ref _%obj106503%_ _%slot106500%_))))) + (##structure-direct-instance-of? _%obj109167%_ __tmp112441)) + (unchecked-field-ref _%obj109167%_ _%field109165%_) + (unchecked-slot-ref _%obj109167%_ _%slot109164%_))))) (define make-class-cached-slot-unchecked-mutator - (lambda (_%klass106492%_ _%slot106493%_ _%field106494%_) - (lambda (_%obj106496%_ _%val106497%_) - (if (let ((__tmp109457 + (lambda (_%klass109156%_ _%slot109157%_ _%field109158%_) + (lambda (_%obj109160%_ _%val109161%_) + (if (let ((__tmp112442 (let () (declare (not safe)) - (##type-id _%klass106492%_)))) + (##type-id _%klass109156%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj106496%_ __tmp109457)) + (##structure-direct-instance-of? _%obj109160%_ __tmp112442)) (unchecked-field-set! - _%obj106496%_ - _%field106494%_ - _%val106497%_) + _%obj109160%_ + _%field109158%_ + _%val109161%_) (unchecked-slot-set! - _%obj106496%_ - _%slot106493%_ - _%val106497%_))))) + _%obj109160%_ + _%slot109157%_ + _%val109161%_))))) (define class-slot-offset - (lambda (_%klass106467%_ _%slot106468%_) + (lambda (_%klass109131%_ _%slot109132%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass106467%_ 'class)) - (let ((_%klass106472%_ _%klass106467%_)) - (if (let () (declare (not safe)) (symbolic? _%slot106468%_)) - (let ((_%slot106482%_ _%slot106468%_)) - (__class-slot-offset _%klass106472%_ _%slot106482%_)) + (##structure-instance-of? _%klass109131%_ 'class)) + (let ((_%klass109136%_ _%klass109131%_)) + (if (let () (declare (not safe)) (symbolic? _%slot109132%_)) + (let ((_%slot109146%_ _%slot109132%_)) + (__class-slot-offset _%klass109136%_ _%slot109146%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@589.43-589.47" + '"\"gerbil/runtime/mop.ss\"@662.43-662.47" 'contract: 'symbolic? 'value: - _%slot106468%_) + _%slot109132%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@589.26-589.31" + '"\"gerbil/runtime/mop.ss\"@662.26-662.31" 'contract: 'class-type? 'value: - _%klass106467%_) + _%klass109131%_) '#!void)))) (define __class-slot-offset - (lambda (_%klass106446%_ _%slot106447%_) - (let* ((_%klass106450%_ _%klass106446%_) - (_%slot106458%_ _%slot106447%_) - (__tmp109458 + (lambda (_%klass109110%_ _%slot109111%_) + (let* ((_%klass109114%_ _%klass109110%_) + (_%slot109122%_ _%slot109111%_) + (__tmp112443 (let () (declare (not safe)) - (##unchecked-structure-ref _%klass106450%_ '8 '#f '#f)))) + (##unchecked-structure-ref _%klass109114%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp109458 _%slot106458%_ '#f)))) + (symbolic-table-ref __tmp112443 _%slot109122%_ '#f)))) (define class-slot-ref - (lambda (_%klass106420%_ _%obj106421%_ _%slot106422%_) + (lambda (_%klass109084%_ _%obj109085%_ _%slot109086%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass106420%_ 'class)) - (let ((_%klass106426%_ _%klass106420%_)) - (if (let () (declare (not safe)) (symbolic? _%slot106422%_)) - (let ((_%slot106436%_ _%slot106422%_)) + (##structure-instance-of? _%klass109084%_ 'class)) + (let ((_%klass109090%_ _%klass109084%_)) + (if (let () (declare (not safe)) (symbolic? _%slot109086%_)) + (let ((_%slot109100%_ _%slot109086%_)) (__class-slot-ref - _%klass106426%_ - _%obj106421%_ - _%slot106436%_)) + _%klass109090%_ + _%obj109085%_ + _%slot109100%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@592.44-592.48" + '"\"gerbil/runtime/mop.ss\"@665.44-665.48" 'contract: 'symbolic? 'value: - _%slot106422%_) + _%slot109086%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@592.23-592.28" + '"\"gerbil/runtime/mop.ss\"@665.23-665.28" 'contract: 'class-type? 'value: - _%klass106420%_) + _%klass109084%_) '#!void)))) (define __class-slot-ref - (lambda (_%klass106396%_ _%obj106397%_ _%slot106398%_) - (let* ((_%klass106401%_ _%klass106396%_) - (_%slot106409%_ _%slot106398%_)) - (if (__class-instance? _%klass106401%_ _%obj106397%_) - (let ((_%off106418%_ + (lambda (_%klass109060%_ _%obj109061%_ _%slot109062%_) + (let* ((_%klass109065%_ _%klass109060%_) + (_%slot109073%_ _%slot109062%_)) + (if (__class-instance? _%klass109065%_ _%obj109061%_) + (let ((_%off109082%_ (class-slot-offset (let () (declare (not safe)) - (##structure-type _%obj106397%_)) - _%slot106409%_))) + (##structure-type _%obj109061%_)) + _%slot109073%_))) (declare (not safe)) (##unchecked-structure-ref - _%obj106397%_ - _%off106418%_ - _%klass106401%_ - _%slot106409%_)) - (not-an-instance__0 _%obj106397%_ _%klass106401%_))))) + _%obj109061%_ + _%off109082%_ + _%klass109065%_ + _%slot109073%_)) + (not-an-instance__0 _%obj109061%_ _%klass109065%_))))) (define class-slot-set! - (lambda (_%klass106369%_ _%obj106370%_ _%slot106371%_ _%val106372%_) + (lambda (_%klass109033%_ _%obj109034%_ _%slot109035%_ _%val109036%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass106369%_ 'class)) - (let ((_%klass106376%_ _%klass106369%_)) - (if (let () (declare (not safe)) (symbolic? _%slot106371%_)) - (let ((_%slot106386%_ _%slot106371%_)) + (##structure-instance-of? _%klass109033%_ 'class)) + (let ((_%klass109040%_ _%klass109033%_)) + (if (let () (declare (not safe)) (symbolic? _%slot109035%_)) + (let ((_%slot109050%_ _%slot109035%_)) (__class-slot-set! - _%klass106376%_ - _%obj106370%_ - _%slot106386%_ - _%val106372%_)) + _%klass109040%_ + _%obj109034%_ + _%slot109050%_ + _%val109036%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@598.45-598.49" + '"\"gerbil/runtime/mop.ss\"@671.45-671.49" 'contract: 'symbolic? 'value: - _%slot106371%_) + _%slot109035%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@598.24-598.29" + '"\"gerbil/runtime/mop.ss\"@671.24-671.29" 'contract: 'class-type? 'value: - _%klass106369%_) + _%klass109033%_) '#!void)))) (define __class-slot-set! - (lambda (_%klass106344%_ _%obj106345%_ _%slot106346%_ _%val106347%_) - (let* ((_%klass106350%_ _%klass106344%_) - (_%slot106358%_ _%slot106346%_)) - (if (__class-instance? _%klass106350%_ _%obj106345%_) - (let ((_%off106367%_ + (lambda (_%klass109008%_ _%obj109009%_ _%slot109010%_ _%val109011%_) + (let* ((_%klass109014%_ _%klass109008%_) + (_%slot109022%_ _%slot109010%_)) + (if (__class-instance? _%klass109014%_ _%obj109009%_) + (let ((_%off109031%_ (class-slot-offset (let () (declare (not safe)) - (##structure-type _%obj106345%_)) - _%slot106358%_))) + (##structure-type _%obj109009%_)) + _%slot109022%_))) (declare (not safe)) (##unchecked-structure-set! - _%obj106345%_ - _%val106347%_ - _%off106367%_ - _%klass106350%_ - _%slot106358%_)) - (not-an-instance__0 _%obj106345%_ _%klass106350%_))))) + _%obj109009%_ + _%val109011%_ + _%off109031%_ + _%klass109014%_ + _%slot109022%_)) + (not-an-instance__0 _%obj109009%_ _%klass109014%_))))) (define unchecked-field-ref - (lambda (_%obj106341%_ _%off106342%_) + (lambda (_%obj109005%_ _%off109006%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%obj106341%_ _%off106342%_ '#f '#f)))) + (##unchecked-structure-ref _%obj109005%_ _%off109006%_ '#f '#f)))) (define unchecked-field-set! - (lambda (_%obj106337%_ _%off106338%_ _%val106339%_) + (lambda (_%obj109001%_ _%off109002%_ _%val109003%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%obj106337%_ - _%val106339%_ - _%off106338%_ + _%obj109001%_ + _%val109003%_ + _%off109002%_ '#f '#f)))) (define unchecked-slot-ref - (lambda (_%obj106334%_ _%slot106335%_) + (lambda (_%obj108998%_ _%slot108999%_) (unchecked-field-ref - _%obj106334%_ + _%obj108998%_ (__class-slot-offset - (let () (declare (not safe)) (##structure-type _%obj106334%_)) - _%slot106335%_)))) + (let () (declare (not safe)) (##structure-type _%obj108998%_)) + _%slot108999%_)))) (define unchecked-slot-set! - (lambda (_%obj106330%_ _%slot106331%_ _%val106332%_) + (lambda (_%obj108994%_ _%slot108995%_ _%val108996%_) (unchecked-field-set! - _%obj106330%_ + _%obj108994%_ (__class-slot-offset - (let () (declare (not safe)) (##structure-type _%obj106330%_)) - _%slot106331%_) - _%val106332%_))) + (let () (declare (not safe)) (##structure-type _%obj108994%_)) + _%slot108995%_) + _%val108996%_))) (define slot-ref__% - (lambda (_%obj106292%_ _%slot106293%_ _%E106294%_) - (if (symbol? _%slot106293%_) - (let ((_%slot106298%_ _%slot106293%_)) - (if (procedure? _%E106294%_) - (let ((_%E106308%_ _%E106294%_)) - (__slot-ref__% _%obj106292%_ _%slot106298%_ _%E106308%_)) + (lambda (_%obj108956%_ _%slot108957%_ _%E108958%_) + (if (symbol? _%slot108957%_) + (let ((_%slot108962%_ _%slot108957%_)) + (if (procedure? _%E108958%_) + (let ((_%E108972%_ _%E108958%_)) + (__slot-ref__% _%obj108956%_ _%slot108962%_ _%E108972%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@621.38-621.39" + '"\"gerbil/runtime/mop.ss\"@694.38-694.39" 'contract: 'procedure? 'value: - _%E106294%_) + _%E108958%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@621.21-621.25" + '"\"gerbil/runtime/mop.ss\"@694.21-694.25" 'contract: 'symbol? 'value: - _%slot106293%_) + _%slot108957%_) '#!void)))) (define slot-ref__0 - (lambda (_%obj106321%_ _%slot106322%_) - (let ((_%E106324%_ __slot-error)) - (slot-ref__% _%obj106321%_ _%slot106322%_ _%E106324%_)))) + (lambda (_%obj108985%_ _%slot108986%_) + (let ((_%E108988%_ __slot-error)) + (slot-ref__% _%obj108985%_ _%slot108986%_ _%E108988%_)))) (define slot-ref - (lambda _g109459_ - (let ((_g109460_ (let () (declare (not safe)) (##length _g109459_)))) - (cond ((let () (declare (not safe)) (##fx= _g109460_ 2)) - (apply slot-ref__0 _g109459_)) - ((let () (declare (not safe)) (##fx= _g109460_ 3)) - (apply slot-ref__% _g109459_)) + (lambda _g112444_ + (let ((_g112445_ (let () (declare (not safe)) (##length _g112444_)))) + (cond ((let () (declare (not safe)) (##fx= _g112445_ 2)) + (apply slot-ref__0 _g112444_)) + ((let () (declare (not safe)) (##fx= _g112445_ 3)) + (apply slot-ref__% _g112444_)) (else (##raise-wrong-number-of-arguments-exception slot-ref - _g109459_)))))) + _g112444_)))))) (define __slot-ref__% - (lambda (_%obj106248%_ _%slot106249%_ _%E106250%_) - (let* ((_%slot106253%_ _%slot106249%_) - (_%E106261%_ _%E106250%_) - (_%klass106270%_ (class-of _%obj106248%_)) - (_%$e106273%_ - (__class-slot-offset _%klass106270%_ _%slot106253%_))) - (if _%$e106273%_ - ((lambda (_%off106276%_) - (unchecked-field-ref _%obj106248%_ _%off106276%_)) - _%$e106273%_) + (lambda (_%obj108912%_ _%slot108913%_ _%E108914%_) + (let* ((_%slot108917%_ _%slot108913%_) + (_%E108925%_ _%E108914%_) + (_%klass108934%_ (class-of _%obj108912%_)) + (_%$e108937%_ + (__class-slot-offset _%klass108934%_ _%slot108917%_))) + (if _%$e108937%_ + ((lambda (_%off108940%_) + (unchecked-field-ref _%obj108912%_ _%off108940%_)) + _%$e108937%_) (let () (declare (not safe)) - (_%E106261%_ _%obj106248%_ _%slot106253%_)))))) + (_%E108925%_ _%obj108912%_ _%slot108917%_)))))) (define __slot-ref__0 - (lambda (_%obj106282%_ _%slot106283%_) - (let ((_%E106285%_ __slot-error)) - (__slot-ref__% _%obj106282%_ _%slot106283%_ _%E106285%_)))) + (lambda (_%obj108946%_ _%slot108947%_) + (let ((_%E108949%_ __slot-error)) + (__slot-ref__% _%obj108946%_ _%slot108947%_ _%E108949%_)))) (define __slot-ref - (lambda _g109461_ - (let ((_g109462_ (let () (declare (not safe)) (##length _g109461_)))) - (cond ((let () (declare (not safe)) (##fx= _g109462_ 2)) - (apply __slot-ref__0 _g109461_)) - ((let () (declare (not safe)) (##fx= _g109462_ 3)) - (apply __slot-ref__% _g109461_)) + (lambda _g112446_ + (let ((_g112447_ (let () (declare (not safe)) (##length _g112446_)))) + (cond ((let () (declare (not safe)) (##fx= _g112447_ 2)) + (apply __slot-ref__0 _g112446_)) + ((let () (declare (not safe)) (##fx= _g112447_ 3)) + (apply __slot-ref__% _g112446_)) (else (##raise-wrong-number-of-arguments-exception __slot-ref - _g109461_)))))) + _g112446_)))))) (define slot-set!__% - (lambda (_%obj106206%_ _%slot106207%_ _%val106208%_ _%E106209%_) - (if (symbol? _%slot106207%_) - (let ((_%slot106213%_ _%slot106207%_)) - (if (procedure? _%E106209%_) - (let ((_%E106223%_ _%E106209%_)) + (lambda (_%obj108870%_ _%slot108871%_ _%val108872%_ _%E108873%_) + (if (symbol? _%slot108871%_) + (let ((_%slot108877%_ _%slot108871%_)) + (if (procedure? _%E108873%_) + (let ((_%E108887%_ _%E108873%_)) (__slot-set!__% - _%obj106206%_ - _%slot106213%_ - _%val106208%_ - _%E106223%_)) + _%obj108870%_ + _%slot108877%_ + _%val108872%_ + _%E108887%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@623.43-623.44" + '"\"gerbil/runtime/mop.ss\"@696.43-696.44" 'contract: 'procedure? 'value: - _%E106209%_) + _%E108873%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@623.22-623.26" + '"\"gerbil/runtime/mop.ss\"@696.22-696.26" 'contract: 'symbol? 'value: - _%slot106207%_) + _%slot108871%_) '#!void)))) (define slot-set!__0 - (lambda (_%obj106236%_ _%slot106237%_ _%val106238%_) - (let ((_%E106240%_ __slot-error)) + (lambda (_%obj108900%_ _%slot108901%_ _%val108902%_) + (let ((_%E108904%_ __slot-error)) (slot-set!__% - _%obj106236%_ - _%slot106237%_ - _%val106238%_ - _%E106240%_)))) + _%obj108900%_ + _%slot108901%_ + _%val108902%_ + _%E108904%_)))) (define slot-set! - (lambda _g109463_ - (let ((_g109464_ (let () (declare (not safe)) (##length _g109463_)))) - (cond ((let () (declare (not safe)) (##fx= _g109464_ 3)) - (apply slot-set!__0 _g109463_)) - ((let () (declare (not safe)) (##fx= _g109464_ 4)) - (apply slot-set!__% _g109463_)) + (lambda _g112448_ + (let ((_g112449_ (let () (declare (not safe)) (##length _g112448_)))) + (cond ((let () (declare (not safe)) (##fx= _g112449_ 3)) + (apply slot-set!__0 _g112448_)) + ((let () (declare (not safe)) (##fx= _g112449_ 4)) + (apply slot-set!__% _g112448_)) (else (##raise-wrong-number-of-arguments-exception slot-set! - _g109463_)))))) + _g112448_)))))) (define __slot-set!__% - (lambda (_%obj106159%_ _%slot106160%_ _%val106161%_ _%E106162%_) - (let* ((_%slot106165%_ _%slot106160%_) - (_%E106173%_ _%E106162%_) - (_%klass106182%_ (class-of _%obj106159%_)) - (_%$e106185%_ - (__class-slot-offset _%klass106182%_ _%slot106165%_))) - (if _%$e106185%_ - ((lambda (_%off106188%_) + (lambda (_%obj108823%_ _%slot108824%_ _%val108825%_ _%E108826%_) + (let* ((_%slot108829%_ _%slot108824%_) + (_%E108837%_ _%E108826%_) + (_%klass108846%_ (class-of _%obj108823%_)) + (_%$e108849%_ + (__class-slot-offset _%klass108846%_ _%slot108829%_))) + (if _%$e108849%_ + ((lambda (_%off108852%_) (unchecked-field-set! - _%obj106159%_ - _%off106188%_ - _%val106161%_)) - _%$e106185%_) + _%obj108823%_ + _%off108852%_ + _%val108825%_)) + _%$e108849%_) (let () (declare (not safe)) - (_%E106173%_ _%obj106159%_ _%slot106165%_)))))) + (_%E108837%_ _%obj108823%_ _%slot108829%_)))))) (define __slot-set!__0 - (lambda (_%obj106194%_ _%slot106195%_ _%val106196%_) - (let ((_%E106198%_ __slot-error)) + (lambda (_%obj108858%_ _%slot108859%_ _%val108860%_) + (let ((_%E108862%_ __slot-error)) (__slot-set!__% - _%obj106194%_ - _%slot106195%_ - _%val106196%_ - _%E106198%_)))) + _%obj108858%_ + _%slot108859%_ + _%val108860%_ + _%E108862%_)))) (define __slot-set! - (lambda _g109465_ - (let ((_g109466_ (let () (declare (not safe)) (##length _g109465_)))) - (cond ((let () (declare (not safe)) (##fx= _g109466_ 3)) - (apply __slot-set!__0 _g109465_)) - ((let () (declare (not safe)) (##fx= _g109466_ 4)) - (apply __slot-set!__% _g109465_)) + (lambda _g112450_ + (let ((_g112451_ (let () (declare (not safe)) (##length _g112450_)))) + (cond ((let () (declare (not safe)) (##fx= _g112451_ 3)) + (apply __slot-set!__0 _g112450_)) + ((let () (declare (not safe)) (##fx= _g112451_ 4)) + (apply __slot-set!__% _g112450_)) (else (##raise-wrong-number-of-arguments-exception __slot-set! - _g109465_)))))) + _g112450_)))))) (define __slot-error - (lambda (_%obj106155%_ _%slot106156%_) + (lambda (_%obj108819%_ _%slot108820%_) (error '"Cannot find slot" 'object: - _%obj106155%_ + _%obj108819%_ 'slot: - _%slot106156%_))) + _%slot108820%_))) (define subclass? - (lambda (_%maybe-sub-class106130%_ _%maybe-super-class106131%_) + (lambda (_%maybe-sub-class108794%_ _%maybe-super-class108795%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%maybe-sub-class106130%_ 'class)) - (let ((_%maybe-sub-class106135%_ _%maybe-sub-class106130%_)) + (##structure-instance-of? _%maybe-sub-class108794%_ 'class)) + (let ((_%maybe-sub-class108799%_ _%maybe-sub-class108794%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%maybe-super-class106131%_ + _%maybe-super-class108795%_ 'class)) - (let ((_%maybe-super-class106145%_ - _%maybe-super-class106131%_)) + (let ((_%maybe-super-class108809%_ + _%maybe-super-class108795%_)) (__subclass? - _%maybe-sub-class106135%_ - _%maybe-super-class106145%_)) + _%maybe-sub-class108799%_ + _%maybe-super-class108809%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@631.45-631.62" + '"\"gerbil/runtime/mop.ss\"@704.45-704.62" 'contract: 'class-type? 'value: - _%maybe-super-class106131%_) + _%maybe-super-class108795%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@631.18-631.33" + '"\"gerbil/runtime/mop.ss\"@704.18-704.33" 'contract: 'class-type? 'value: - _%maybe-sub-class106130%_) + _%maybe-sub-class108794%_) '#!void)))) (define __subclass? - (lambda (_%maybe-sub-class106102%_ _%maybe-super-class106103%_) - (let* ((_%maybe-sub-class106106%_ _%maybe-sub-class106102%_) - (_%maybe-super-class106114%_ _%maybe-super-class106103%_) - (_%maybe-super-class-id106123%_ + (lambda (_%maybe-sub-class108766%_ _%maybe-super-class108767%_) + (let* ((_%maybe-sub-class108770%_ _%maybe-sub-class108766%_) + (_%maybe-super-class108778%_ _%maybe-super-class108767%_) + (_%maybe-super-class-id108787%_ (let () (declare (not safe)) - (##type-id _%maybe-super-class106114%_))) - (_%$e106125%_ - (eq? _%maybe-super-class-id106123%_ + (##type-id _%maybe-super-class108778%_))) + (_%$e108789%_ + (eq? _%maybe-super-class-id108787%_ (let () (declare (not safe)) - (##type-id _%maybe-sub-class106106%_))))) - (if _%$e106125%_ - _%$e106125%_ - (let ((__tmp109468 - (lambda (_%super-class106128%_) + (##type-id _%maybe-sub-class108770%_))))) + (if _%$e108789%_ + _%$e108789%_ + (let ((__tmp112453 + (lambda (_%super-class108792%_) (eq? (let () (declare (not safe)) - (##type-id _%super-class106128%_)) - _%maybe-super-class-id106123%_))) - (__tmp109467 + (##type-id _%super-class108792%_)) + _%maybe-super-class-id108787%_))) + (__tmp112452 (let () (declare (not safe)) (##unchecked-structure-ref - _%maybe-sub-class106106%_ + _%maybe-sub-class108770%_ '6 '#f '#f)))) (declare (not safe)) - (__ormap1 __tmp109468 __tmp109467)))))) + (__ormap1 __tmp112453 __tmp112452)))))) (define object? - (lambda (_%o106099%_) - (if (let () (declare (not safe)) (##structure? _%o106099%_)) - (let ((__tmp109469 + (lambda (_%o108763%_) + (if (let () (declare (not safe)) (##structure? _%o108763%_)) + (let ((__tmp112454 (let () (declare (not safe)) - (##structure-type _%o106099%_)))) + (##structure-type _%o108763%_)))) (declare (not safe)) - (##structure-instance-of? __tmp109469 'class)) + (##structure-instance-of? __tmp112454 'class)) '#f))) - (define object-type - (lambda (_%o106094%_) - (if (let () (declare (not safe)) (##structure? _%o106094%_)) - (let ((_%klass106097%_ - (let () - (declare (not safe)) - (##structure-type _%o106094%_)))) - (if (let () - (declare (not safe)) - (##structure-instance-of? _%klass106097%_ 'class)) - _%klass106097%_ - (begin - (error '"not an object" _%o106094%_ _%klass106097%_) - '#!void))) - (begin (error '"not an object" _%o106094%_) '#!void)))) (define direct-instance? - (lambda (_%klass106079%_ _%obj106080%_) + (lambda (_%klass108748%_ _%obj108749%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass106079%_ 'class)) - (let ((_%klass106084%_ _%klass106079%_)) - (__direct-instance? _%klass106084%_ _%obj106080%_)) + (##structure-instance-of? _%klass108748%_ 'class)) + (let ((_%klass108753%_ _%klass108748%_)) + (__direct-instance? _%klass108753%_ _%obj108749%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@654.25-654.30" + '"\"gerbil/runtime/mop.ss\"@718.25-718.30" 'contract: 'class-type? 'value: - _%klass106079%_) + _%klass108748%_) '#!void)))) (define __direct-instance? - (lambda (_%klass106066%_ _%obj106067%_) - (let* ((_%klass106070%_ _%klass106066%_) - (__tmp109470 - (let () (declare (not safe)) (##type-id _%klass106070%_)))) + (lambda (_%klass108735%_ _%obj108736%_) + (let* ((_%klass108739%_ _%klass108735%_) + (__tmp112455 + (let () (declare (not safe)) (##type-id _%klass108739%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj106067%_ __tmp109470)))) + (##structure-direct-instance-of? _%obj108736%_ __tmp112455)))) (define immediate-instance-of? - (lambda (_%klass106062%_ _%obj106063%_) - (if (let () (declare (not safe)) (##structure? _%obj106063%_)) - (eq? _%klass106062%_ + (lambda (_%klass108731%_ _%obj108732%_) + (if (let () (declare (not safe)) (##structure? _%obj108732%_)) + (eq? _%klass108731%_ (let () (declare (not safe)) - (##structure-type _%obj106063%_))) + (##structure-type _%obj108732%_))) '#f))) (define struct-instance? - (lambda (_%klass106047%_ _%obj106048%_) + (lambda (_%klass108716%_ _%obj108717%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass106047%_ 'class)) - (let ((_%klass106052%_ _%klass106047%_)) - (__struct-instance? _%klass106052%_ _%obj106048%_)) + (##structure-instance-of? _%klass108716%_ 'class)) + (let ((_%klass108721%_ _%klass108716%_)) + (__struct-instance? _%klass108721%_ _%obj108717%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@684.25-684.30" + '"\"gerbil/runtime/mop.ss\"@747.25-747.30" 'contract: 'class-type? 'value: - _%klass106047%_) + _%klass108716%_) '#!void)))) (define __struct-instance? - (lambda (_%klass106034%_ _%obj106035%_) - (let* ((_%klass106038%_ _%klass106034%_) - (__tmp109471 - (let () (declare (not safe)) (##type-id _%klass106038%_)))) + (lambda (_%klass108703%_ _%obj108704%_) + (let* ((_%klass108707%_ _%klass108703%_) + (__tmp112456 + (let () (declare (not safe)) (##type-id _%klass108707%_)))) (declare (not safe)) - (##structure-instance-of? _%obj106035%_ __tmp109471)))) + (##structure-instance-of? _%obj108704%_ __tmp112456)))) (define class-instance? - (lambda (_%klass106019%_ _%obj106020%_) + (lambda (_%klass108688%_ _%obj108689%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass106019%_ 'class)) - (let ((_%klass106024%_ _%klass106019%_)) - (__class-instance? _%klass106024%_ _%obj106020%_)) + (##structure-instance-of? _%klass108688%_ 'class)) + (let ((_%klass108693%_ _%klass108688%_)) + (__class-instance? _%klass108693%_ _%obj108689%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@689.24-689.29" + '"\"gerbil/runtime/mop.ss\"@752.24-752.29" 'contract: 'class-type? 'value: - _%klass106019%_) + _%klass108688%_) '#!void)))) (define __class-instance? - (lambda (_%klass106004%_ _%obj106005%_) - (let* ((_%klass106008%_ _%klass106004%_) - (_%type106017%_ (class-of _%obj106005%_))) - (__subclass? _%type106017%_ _%klass106008%_)))) + (lambda (_%klass108673%_ _%obj108674%_) + (let* ((_%klass108677%_ _%klass108673%_) + (_%type108686%_ (class-of _%obj108674%_))) + (__subclass? _%type108686%_ _%klass108677%_)))) (define make-object - (lambda (_%klass105979%_ _%k105980%_) + (lambda (_%klass108648%_ _%k108649%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass105979%_ 'class)) - (let ((_%klass105984%_ _%klass105979%_)) - (if (fixnum? _%k105980%_) - (let ((_%k105994%_ _%k105980%_)) - (__make-object _%klass105984%_ _%k105994%_)) + (##structure-instance-of? _%klass108648%_ 'class)) + (let ((_%klass108653%_ _%klass108648%_)) + (if (fixnum? _%k108649%_) + (let ((_%k108663%_ _%k108649%_)) + (__make-object _%klass108653%_ _%k108663%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@694.37-694.38" + '"\"gerbil/runtime/mop.ss\"@757.37-757.38" 'contract: 'fixnum? 'value: - _%k105980%_) + _%k108649%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@694.20-694.25" + '"\"gerbil/runtime/mop.ss\"@757.20-757.25" 'contract: 'class-type? 'value: - _%klass105979%_) + _%klass108648%_) '#!void)))) (define __make-object - (lambda (_%klass105956%_ _%k105957%_) - (let* ((_%klass105960%_ _%klass105956%_) (_%k105968%_ _%k105957%_)) - (if (__class-type-system? _%klass105960%_) + (lambda (_%klass108625%_ _%k108626%_) + (let* ((_%klass108629%_ _%klass108625%_) (_%k108637%_ _%k108626%_)) + (if (__class-type-system? _%klass108629%_) (begin (error '"cannot instantiate system class" 'class: - _%klass105960%_) + _%klass108629%_) '#!void) - (let ((_%obj105977%_ + (let ((_%obj108646%_ (let () (declare (not safe)) - (##make-structure _%klass105960%_ _%k105968%_)))) - (object-fill! _%obj105977%_ '#f)))))) + (##make-structure _%klass108629%_ _%k108637%_)))) + (__object-fill! _%obj108646%_ '#f)))))) + (define object-class + (lambda (_%obj108611%_) + (if (object? _%obj108611%_) + (let ((_%obj108615%_ _%obj108611%_)) + (__object-class _%obj108615%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/mop.ss\"@777.21-777.24" + 'contract: + 'object? + 'value: + _%obj108611%_) + '#!void)))) + (define __object-class + (lambda (_%obj108599%_) + (let ((_%obj108602%_ _%obj108599%_)) + (declare (not safe)) + (##structure-type _%obj108602%_)))) (define object-fill! - (lambda (_%obj105941%_ _%fill105942%_) - (if '#t - (let ((_%obj105946%_ _%obj105941%_)) - (__object-fill! _%obj105946%_ _%fill105942%_)) + (lambda (_%obj108584%_ _%fill108585%_) + (if (object? _%obj108584%_) + (let ((_%obj108589%_ _%obj108584%_)) + (__object-fill! _%obj108589%_ _%fill108585%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@714.21-714.24" + '"\"gerbil/runtime/mop.ss\"@782.21-782.24" 'contract: - 'true + 'object? 'value: - _%obj105941%_) + _%obj108584%_) '#!void)))) (define __object-fill! - (lambda (_%obj105923%_ _%fill105924%_) - (let ((_%obj105927%_ _%obj105923%_)) - (let _%loop105936%_ ((_%i105938%_ - (let ((__tmp109472 + (lambda (_%obj108566%_ _%fill108567%_) + (let ((_%obj108570%_ _%obj108566%_)) + (let _%loop108579%_ ((_%i108581%_ + (let ((__tmp112457 (let () (declare (not safe)) - (##structure-length _%obj105927%_)))) + (##structure-length _%obj108570%_)))) (declare (not safe)) - (##fx- __tmp109472 '1)))) - (if (let () (declare (not safe)) (##fx> _%i105938%_ '0)) + (##fx- __tmp112457 '1)))) + (if (let () (declare (not safe)) (##fx> _%i108581%_ '0)) (begin (let () (declare (not safe)) (##unchecked-structure-set! - _%obj105927%_ - _%fill105924%_ - _%i105938%_ + _%obj108570%_ + _%fill108567%_ + _%i108581%_ '#f '#f)) - (_%loop105936%_ - (let () (declare (not safe)) (##fx- _%i105938%_ '1)))) - _%obj105927%_))))) + (_%loop108579%_ + (let () (declare (not safe)) (##fx- _%i108581%_ '1)))) + _%obj108570%_))))) (define new-instance - (lambda (_%klass105909%_) + (lambda (_%klass108552%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass105909%_ 'class)) - (let ((_%klass105913%_ _%klass105909%_)) - (__new-instance _%klass105913%_)) + (##structure-instance-of? _%klass108552%_ 'class)) + (let ((_%klass108556%_ _%klass108552%_)) + (__new-instance _%klass108556%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@725.21-725.26" + '"\"gerbil/runtime/mop.ss\"@793.21-793.26" 'contract: 'class-type? 'value: - _%klass105909%_) + _%klass108552%_) '#!void)))) (define __new-instance - (lambda (_%klass105897%_) - (let* ((_%klass105900%_ _%klass105897%_) - (__obj109389 - (let ((__tmp109473 - (let ((__tmp109474 + (lambda (_%klass108540%_) + (let* ((_%klass108543%_ _%klass108540%_) + (__obj112368 + (let ((__tmp112458 + (let ((__tmp112459 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass105900%_ + _%klass108543%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp109474)))) + (##vector-length __tmp112459)))) (declare (not safe)) - (##make-structure _%klass105900%_ __tmp109473)))) - (object-fill! __obj109389 '#f) - __obj109389))) + (##make-structure _%klass108543%_ __tmp112458)))) + (object-fill! __obj112368 '#f) + __obj112368))) (define make-instance - (lambda (_%klass105882%_ . _%args105883%_) + (lambda (_%klass108525%_ . _%args108526%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass105882%_ 'class)) - (let ((_%klass105887%_ _%klass105882%_)) + (##structure-instance-of? _%klass108525%_ 'class)) + (let ((_%klass108530%_ _%klass108525%_)) (declare (not safe)) - (##apply __make-instance _%klass105887%_ _%args105883%_)) + (##apply __make-instance _%klass108530%_ _%args108526%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@728.22-728.27" + '"\"gerbil/runtime/mop.ss\"@796.22-796.27" 'contract: 'class-type? 'value: - _%klass105882%_) + _%klass108525%_) '#!void)))) (define __make-instance - (lambda (_%klass105854%_ . _%args105855%_) - (let* ((_%klass105858%_ _%klass105854%_) - (_%$e105867%_ + (lambda (_%klass108497%_ . _%args108498%_) + (let* ((_%klass108501%_ _%klass108497%_) + (_%$e108510%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass105858%_ '10 '#f '#f)))) - (if _%$e105867%_ - ((lambda (_%kons-id105870%_) - (let ((_%obj105872%_ (__new-instance _%klass105858%_))) + (##unchecked-structure-ref _%klass108501%_ '10 '#f '#f)))) + (if _%$e108510%_ + ((lambda (_%kons-id108513%_) + (let ((_%obj108515%_ (__new-instance _%klass108501%_))) (___constructor-init! - _%klass105858%_ - _%kons-id105870%_ - _%obj105872%_ - _%args105855%_) - _%obj105872%_)) - _%$e105867%_) - (if (__class-type-metaclass? _%klass105858%_) - (let ((_%obj105875%_ (__new-instance _%klass105858%_))) + _%klass108501%_ + _%kons-id108513%_ + _%obj108515%_ + _%args108498%_) + _%obj108515%_)) + _%$e108510%_) + (if (__class-type-metaclass? _%klass108501%_) + (let ((_%obj108518%_ (__new-instance _%klass108501%_))) (__metaclass-instance-init! - _%klass105858%_ - _%obj105875%_ - _%args105855%_) - _%obj105875%_) - (if (__class-type-struct? _%klass105858%_) - (if (let ((__tmp109476 - (__class-type-field-count _%klass105858%_)) - (__tmp109475 + _%klass108501%_ + _%obj108518%_ + _%args108498%_) + _%obj108518%_) + (if (__class-type-struct? _%klass108501%_) + (if (let ((__tmp112461 + (__class-type-field-count _%klass108501%_)) + (__tmp112460 (let () (declare (not safe)) - (##length _%args105855%_)))) + (##length _%args108498%_)))) (declare (not safe)) - (##fx= __tmp109476 __tmp109475)) - (apply ##structure _%klass105858%_ _%args105855%_) + (##fx= __tmp112461 __tmp112460)) + (apply ##structure _%klass108501%_ _%args108498%_) (let () (error '"arguments don't match object size" 'class: - _%klass105858%_ + _%klass108501%_ 'slots: - (__class-type-slot-list _%klass105858%_) + (__class-type-slot-list _%klass108501%_) 'args: - _%args105855%_) + _%args108498%_) '#!void)) - (let ((_%obj105878%_ (__new-instance _%klass105858%_))) + (let ((_%obj108521%_ (__new-instance _%klass108501%_))) (___class-instance-init! - _%klass105858%_ - _%obj105878%_ - _%args105855%_) - _%obj105878%_))))))) + _%klass108501%_ + _%obj108521%_ + _%args108498%_) + _%obj108521%_))))))) (define make-class-instance make-instance) (define struct-instance-init! - (lambda (_%obj105839%_ . _%args105840%_) - (if '#t - (let ((_%obj105844%_ _%obj105839%_)) + (lambda (_%obj108482%_ . _%args108483%_) + (if (object? _%obj108482%_) + (let ((_%obj108487%_ _%obj108482%_)) (declare (not safe)) - (##apply __struct-instance-init! _%obj105844%_ _%args105840%_)) + (##apply __struct-instance-init! _%obj108487%_ _%args108483%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@753.30-753.33" + '"\"gerbil/runtime/mop.ss\"@821.30-821.33" 'contract: - 'true + 'object? 'value: - _%obj105839%_) + _%obj108482%_) '#!void)))) (define __struct-instance-init! - (lambda (_%obj105826%_ . _%args105827%_) - (let ((_%obj105830%_ _%obj105826%_)) - (if (let ((__tmp109478 - (let () (declare (not safe)) (##length _%args105827%_))) - (__tmp109477 + (lambda (_%obj108469%_ . _%args108470%_) + (let ((_%obj108473%_ _%obj108469%_)) + (if (let ((__tmp112463 + (let () (declare (not safe)) (##length _%args108470%_))) + (__tmp112462 (let () (declare (not safe)) - (##structure-length _%obj105830%_)))) + (##structure-length _%obj108473%_)))) (declare (not safe)) - (##fx< __tmp109478 __tmp109477)) - (___struct-instance-init! _%obj105830%_ _%args105827%_) + (##fx< __tmp112463 __tmp112462)) + (___struct-instance-init! _%obj108473%_ _%args108470%_) (error '"too many arguments for struct" 'object: - _%obj105830%_ + _%obj108473%_ 'args: - _%args105827%_)) + _%args108470%_)) '#!void))) (define ___struct-instance-init! - (lambda (_%obj105785%_ _%args105786%_) - (let _%lp105788%_ ((_%k105790%_ '1) (_%rest105791%_ _%args105786%_)) - (let* ((_%rest105792105800%_ _%rest105791%_) - (_%else105794105808%_ (lambda () _%obj105785%_)) - (_%K105796105814%_ - (lambda (_%rest105811%_ _%hd105812%_) + (lambda (_%obj108428%_ _%args108429%_) + (let _%lp108431%_ ((_%k108433%_ '1) (_%rest108434%_ _%args108429%_)) + (let* ((_%rest108435108443%_ _%rest108434%_) + (_%else108437108451%_ (lambda () _%obj108428%_)) + (_%K108439108457%_ + (lambda (_%rest108454%_ _%hd108455%_) (unchecked-field-set! - _%obj105785%_ - _%k105790%_ - _%hd105812%_) - (_%lp105788%_ - (let () (declare (not safe)) (##fx+ _%k105790%_ '1)) - _%rest105811%_)))) - (if (pair? _%rest105792105800%_) - (let ((_%hd105797105817%_ + _%obj108428%_ + _%k108433%_ + _%hd108455%_) + (_%lp108431%_ + (let () (declare (not safe)) (##fx+ _%k108433%_ '1)) + _%rest108454%_)))) + (if (pair? _%rest108435108443%_) + (let ((_%hd108440108460%_ (let () (declare (not safe)) - (##car _%rest105792105800%_))) - (_%tl105798105819%_ + (##car _%rest108435108443%_))) + (_%tl108441108462%_ (let () (declare (not safe)) - (##cdr _%rest105792105800%_)))) - (let* ((_%hd105822%_ _%hd105797105817%_) - (_%rest105824%_ _%tl105798105819%_)) - (_%K105796105814%_ _%rest105824%_ _%hd105822%_))) - (_%else105794105808%_)))))) + (##cdr _%rest108435108443%_)))) + (let* ((_%hd108465%_ _%hd108440108460%_) + (_%rest108467%_ _%tl108441108462%_)) + (_%K108439108457%_ _%rest108467%_ _%hd108465%_))) + (_%else108437108451%_)))))) (define class-instance-init! - (lambda (_%obj105770%_ . _%args105771%_) - (if '#t - (let ((_%obj105775%_ _%obj105770%_)) + (lambda (_%obj108413%_ . _%args108414%_) + (if (object? _%obj108413%_) + (let ((_%obj108418%_ _%obj108413%_)) (declare (not safe)) - (##apply __class-instance-init! _%obj105775%_ _%args105771%_)) + (##apply __class-instance-init! _%obj108418%_ _%args108414%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@793.29-793.32" + '"\"gerbil/runtime/mop.ss\"@861.29-861.32" 'contract: - 'true + 'object? 'value: - _%obj105770%_) + _%obj108413%_) '#!void)))) (define __class-instance-init! - (lambda (_%obj105757%_ . _%args105758%_) - (let ((_%obj105761%_ _%obj105757%_)) + (lambda (_%obj108400%_ . _%args108401%_) + (let ((_%obj108404%_ _%obj108400%_)) (___class-instance-init! - (let () (declare (not safe)) (##structure-type _%obj105761%_)) - _%obj105761%_ - _%args105758%_) + (let () (declare (not safe)) (##structure-type _%obj108404%_)) + _%obj108404%_ + _%args108401%_) '#!void))) (define ___class-instance-init! - (lambda (_%klass105699%_ _%obj105700%_ _%args105701%_) - (let _%lp105703%_ ((_%rest105705%_ _%args105701%_)) - (let* ((_%rest105706105716%_ _%rest105705%_) - (_%else105708105724%_ + (lambda (_%klass108342%_ _%obj108343%_ _%args108344%_) + (let _%lp108346%_ ((_%rest108348%_ _%args108344%_)) + (let* ((_%rest108349108359%_ _%rest108348%_) + (_%else108351108367%_ (lambda () - (if (null? _%rest105705%_) - _%obj105700%_ + (if (null? _%rest108348%_) + _%obj108343%_ (error '"unexpected class initializer arguments" 'class: - _%klass105699%_ + _%klass108342%_ 'rest: - _%rest105705%_)))) - (_%K105710105738%_ - (lambda (_%rest105727%_ _%val105728%_ _%key105729%_) - (if (keyword? _%key105729%_) - (let ((_%$e105732%_ + _%rest108348%_)))) + (_%K108353108381%_ + (lambda (_%rest108370%_ _%val108371%_ _%key108372%_) + (if (keyword? _%key108372%_) + (let ((_%$e108375%_ (__class-slot-offset - _%klass105699%_ - _%key105729%_))) - (if _%$e105732%_ - ((lambda (_%off105735%_) + _%klass108342%_ + _%key108372%_))) + (if _%$e108375%_ + ((lambda (_%off108378%_) (unchecked-field-set! - _%obj105700%_ - _%off105735%_ - _%val105728%_) - (_%lp105703%_ _%rest105727%_)) - _%$e105732%_) + _%obj108343%_ + _%off108378%_ + _%val108371%_) + (_%lp108346%_ _%rest108370%_)) + _%$e108375%_) (error '"unknown slot" 'class: - _%klass105699%_ + _%klass108342%_ 'slot: - _%key105729%_))) + _%key108372%_))) (error '"non keyword slot initializer" 'slot: - _%key105729%_))))) - (if (pair? _%rest105706105716%_) - (let ((_%hd105711105741%_ + _%key108372%_))))) + (if (pair? _%rest108349108359%_) + (let ((_%hd108354108384%_ (let () (declare (not safe)) - (##car _%rest105706105716%_))) - (_%tl105712105743%_ + (##car _%rest108349108359%_))) + (_%tl108355108386%_ (let () (declare (not safe)) - (##cdr _%rest105706105716%_)))) - (let ((_%key105746%_ _%hd105711105741%_)) - (if (pair? _%tl105712105743%_) - (let ((_%hd105713105748%_ + (##cdr _%rest108349108359%_)))) + (let ((_%key108389%_ _%hd108354108384%_)) + (if (pair? _%tl108355108386%_) + (let ((_%hd108356108391%_ (let () (declare (not safe)) - (##car _%tl105712105743%_))) - (_%tl105714105750%_ + (##car _%tl108355108386%_))) + (_%tl108357108393%_ (let () (declare (not safe)) - (##cdr _%tl105712105743%_)))) - (let* ((_%val105753%_ _%hd105713105748%_) - (_%rest105755%_ _%tl105714105750%_)) - (_%K105710105738%_ - _%rest105755%_ - _%val105753%_ - _%key105746%_))) - (_%else105708105724%_)))) - (_%else105708105724%_)))))) + (##cdr _%tl108355108386%_)))) + (let* ((_%val108396%_ _%hd108356108391%_) + (_%rest108398%_ _%tl108357108393%_)) + (_%K108353108381%_ + _%rest108398%_ + _%val108396%_ + _%key108389%_))) + (_%else108351108367%_)))) + (_%else108351108367%_)))))) (define __metaclass-instance-init! - (lambda (_%klass105695%_ _%obj105696%_ _%args105697%_) + (lambda (_%klass108338%_ _%obj108339%_ _%args108340%_) (apply call-method - _%klass105695%_ + _%klass108338%_ 'instance-init! - _%obj105696%_ - _%args105697%_))) + _%obj108339%_ + _%args108340%_))) (define constructor-init! - (lambda (_%klass105658%_ - _%kons-id105659%_ - _%obj105660%_ + (lambda (_%klass108301%_ + _%kons-id108302%_ + _%obj108303%_ . - _%args105661%_) + _%args108304%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass105658%_ 'class)) - (let ((_%klass105665%_ _%klass105658%_)) - (if (symbol? _%kons-id105659%_) - (let ((_%kons-id105675%_ _%kons-id105659%_)) - (if '#t - (let ((_%obj105685%_ _%obj105660%_)) + (##structure-instance-of? _%klass108301%_ 'class)) + (let ((_%klass108308%_ _%klass108301%_)) + (if (symbol? _%kons-id108302%_) + (let ((_%kons-id108318%_ _%kons-id108302%_)) + (if (object? _%obj108303%_) + (let ((_%obj108328%_ _%obj108303%_)) (declare (not safe)) (##apply __constructor-init! - _%klass105665%_ - _%kons-id105675%_ - _%obj105685%_ - _%args105661%_)) + _%klass108308%_ + _%kons-id108318%_ + _%obj108328%_ + _%args108304%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@817.63-817.66" + '"\"gerbil/runtime/mop.ss\"@885.63-885.66" 'contract: - 'true + 'object? 'value: - _%obj105660%_) + _%obj108303%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@817.43-817.50" + '"\"gerbil/runtime/mop.ss\"@885.43-885.50" 'contract: 'symbol? 'value: - _%kons-id105659%_) + _%kons-id108302%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@817.26-817.31" + '"\"gerbil/runtime/mop.ss\"@885.26-885.31" 'contract: 'class-type? 'value: - _%klass105658%_) + _%klass108301%_) '#!void)))) (define __constructor-init! - (lambda (_%klass105627%_ - _%kons-id105628%_ - _%obj105629%_ + (lambda (_%klass108270%_ + _%kons-id108271%_ + _%obj108272%_ . - _%args105630%_) - (let* ((_%klass105633%_ _%klass105627%_) - (_%kons-id105641%_ _%kons-id105628%_) - (_%obj105649%_ _%obj105629%_)) + _%args108273%_) + (let* ((_%klass108276%_ _%klass108270%_) + (_%kons-id108284%_ _%kons-id108271%_) + (_%obj108292%_ _%obj108272%_)) (___constructor-init! - _%klass105633%_ - _%kons-id105641%_ - _%obj105649%_ - _%args105630%_) + _%klass108276%_ + _%kons-id108284%_ + _%obj108292%_ + _%args108273%_) '#!void))) (define ___constructor-init! - (lambda (_%klass105616%_ _%kons-id105617%_ _%obj105618%_ _%args105619%_) - (let ((_%$e105621%_ + (lambda (_%klass108259%_ _%kons-id108260%_ _%obj108261%_ _%args108262%_) + (let ((_%$e108264%_ (__find-method - _%klass105616%_ - _%obj105618%_ - _%kons-id105617%_))) - (if _%$e105621%_ - ((lambda (_%kons105624%_) - (apply _%kons105624%_ _%obj105618%_ _%args105619%_) - _%obj105618%_) - _%$e105621%_) + _%klass108259%_ + _%obj108261%_ + _%kons-id108260%_))) + (if _%$e108264%_ + ((lambda (_%kons108267%_) + (apply _%kons108267%_ _%obj108261%_ _%args108262%_) + _%obj108261%_) + _%$e108264%_) (error '"missing constructor" 'class: - _%klass105616%_ + _%klass108259%_ 'method: - _%kons-id105617%_))))) + _%kons-id108260%_))))) (define struct-copy - (lambda (_%struct105602%_) - (if '#t - (let ((_%struct105606%_ _%struct105602%_)) - (__struct-copy _%struct105606%_)) + (lambda (_%struct108245%_) + (if (object? _%struct108245%_) + (let ((_%struct108249%_ _%struct108245%_)) + (__struct-copy _%struct108249%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@831.20-831.26" + '"\"gerbil/runtime/mop.ss\"@899.20-899.26" 'contract: - 'true + 'object? 'value: - _%struct105602%_) + _%struct108245%_) '#!void)))) (define __struct-copy - (lambda (_%struct105590%_) - (let ((_%struct105593%_ _%struct105590%_)) + (lambda (_%struct108233%_) + (let ((_%struct108236%_ _%struct108233%_)) (declare (not safe)) - (##structure-copy _%struct105593%_)))) + (##structure-copy _%struct108236%_)))) (define struct->list - (lambda (_%obj105576%_) - (if '#t - (let ((_%obj105580%_ _%obj105576%_)) - (__struct->list _%obj105580%_)) + (lambda (_%obj108219%_) + (if (object? _%obj108219%_) + (let ((_%obj108223%_ _%obj108219%_)) + (__struct->list _%obj108223%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@834.21-834.24" + '"\"gerbil/runtime/mop.ss\"@902.21-902.24" 'contract: - 'true + 'object? 'value: - _%obj105576%_) + _%obj108219%_) '#!void)))) (define __struct->list - (lambda (_%obj105557%_) - (let* ((_%obj105560%_ _%obj105557%_) - (_%len105569%_ + (lambda (_%obj108200%_) + (let* ((_%obj108203%_ _%obj108200%_) + (_%len108212%_ (let () (declare (not safe)) - (##structure-length _%obj105560%_)))) - (let _%recur105571%_ ((_%i105573%_ '0)) - (if (let () (declare (not safe)) (##fx< _%i105573%_ _%len105569%_)) + (##structure-length _%obj108203%_)))) + (let _%recur108214%_ ((_%i108216%_ '0)) + (if (let () (declare (not safe)) (##fx< _%i108216%_ _%len108212%_)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%obj105560%_ - _%i105573%_ + _%obj108203%_ + _%i108216%_ '#f '#f)) - (_%recur105571%_ - (let () (declare (not safe)) (##fx+ _%i105573%_ '1)))) + (_%recur108214%_ + (let () (declare (not safe)) (##fx+ _%i108216%_ '1)))) '()))))) (define class->list - (lambda (_%obj105543%_) - (if '#t - (let ((_%obj105547%_ _%obj105543%_)) (__class->list _%obj105547%_)) + (lambda (_%obj108186%_) + (if (object? _%obj108186%_) + (let ((_%obj108190%_ _%obj108186%_)) (__class->list _%obj108190%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@842.20-842.23" + '"\"gerbil/runtime/mop.ss\"@910.20-910.23" 'contract: - 'true + 'object? 'value: - _%obj105543%_) + _%obj108186%_) '#!void)))) (define __class->list - (lambda (_%obj105519%_) - (let* ((_%obj105522%_ _%obj105519%_) - (_%klass105531%_ - (let () (declare (not safe)) (##structure-type _%obj105522%_))) - (_%slot-vector105533%_ + (lambda (_%obj108162%_) + (let* ((_%obj108165%_ _%obj108162%_) + (_%klass108174%_ + (let () (declare (not safe)) (##structure-type _%obj108165%_))) + (_%slot-vector108176%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass105531%_ '7 '#f '#f)))) - (let _%loop105535%_ ((_%index105537%_ - (let ((__tmp109479 + (##unchecked-structure-ref _%klass108174%_ '7 '#f '#f)))) + (let _%loop108178%_ ((_%index108180%_ + (let ((__tmp112464 (let () (declare (not safe)) (##vector-length - _%slot-vector105533%_)))) + _%slot-vector108176%_)))) (declare (not safe)) - (##fx- __tmp109479 '1))) - (_%plist105538%_ '())) - (if (let () (declare (not safe)) (##fx< _%index105537%_ '1)) - (cons _%klass105531%_ _%plist105538%_) - (let ((_%slot105541%_ + (##fx- __tmp112464 '1))) + (_%plist108181%_ '())) + (if (let () (declare (not safe)) (##fx< _%index108180%_ '1)) + (cons _%klass108174%_ _%plist108181%_) + (let ((_%slot108184%_ (let () (declare (not safe)) (##vector-ref - _%slot-vector105533%_ - _%index105537%_)))) - (_%loop105535%_ - (let () (declare (not safe)) (##fx- _%index105537%_ '1)) + _%slot-vector108176%_ + _%index108180%_)))) + (_%loop108178%_ + (let () (declare (not safe)) (##fx- _%index108180%_ '1)) (cons (let () (declare (not safe)) - (symbol->keyword _%slot105541%_)) + (symbol->keyword _%slot108184%_)) (cons (unchecked-field-ref - _%obj105522%_ - _%index105537%_) - _%plist105538%_))))))))) + _%obj108165%_ + _%index108180%_) + _%plist108181%_))))))))) (define call-method - (lambda (_%obj105503%_ _%id105504%_ . _%args105505%_) - (if (symbol? _%id105504%_) - (let ((_%id105509%_ _%id105504%_)) + (lambda (_%obj108146%_ _%id108147%_ . _%args108148%_) + (if (symbol? _%id108147%_) + (let ((_%id108152%_ _%id108147%_)) (declare (not safe)) (##apply __call-method - _%obj105503%_ - _%id105509%_ - _%args105505%_)) + _%obj108146%_ + _%id108152%_ + _%args108148%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@857.24-857.26" + '"\"gerbil/runtime/mop.ss\"@925.24-925.26" 'contract: 'symbol? 'value: - _%id105504%_) + _%id108147%_) '#!void)))) (define __call-method - (lambda (_%obj105472%_ _%id105473%_ . _%args105474%_) - (let* ((_%id105477%_ _%id105473%_) - (_%$e105486%_ (__method-ref _%obj105472%_ _%id105477%_))) - (if _%$e105486%_ - ((lambda (_%method105489%_) - (let ((_%method105491%_ _%method105489%_)) - (apply _%method105491%_ _%obj105472%_ _%args105474%_))) - _%$e105486%_) + (lambda (_%obj108115%_ _%id108116%_ . _%args108117%_) + (let* ((_%id108120%_ _%id108116%_) + (_%$e108129%_ (__method-ref _%obj108115%_ _%id108120%_))) + (if _%$e108129%_ + ((lambda (_%method108132%_) + (let ((_%method108134%_ _%method108132%_)) + (apply _%method108134%_ _%obj108115%_ _%args108117%_))) + _%$e108129%_) (error '"cannot find method" 'object: - _%obj105472%_ + _%obj108115%_ 'method: - _%id105477%_))))) + _%id108120%_))))) (define method-ref - (lambda (_%obj105457%_ _%id105458%_) - (if (symbol? _%id105458%_) - (let ((_%id105462%_ _%id105458%_)) - (__method-ref _%obj105457%_ _%id105462%_)) + (lambda (_%obj108100%_ _%id108101%_) + (if (symbol? _%id108101%_) + (let ((_%id108105%_ _%id108101%_)) + (__method-ref _%obj108100%_ _%id108105%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@884.23-884.25" + '"\"gerbil/runtime/mop.ss\"@952.23-952.25" 'contract: 'symbol? 'value: - _%id105458%_) + _%id108101%_) '#!void)))) (define __method-ref - (lambda (_%obj105444%_ _%id105445%_) - (let ((_%id105448%_ _%id105445%_)) + (lambda (_%obj108087%_ _%id108088%_) + (let ((_%id108091%_ _%id108088%_)) (__find-method - (class-of _%obj105444%_) - _%obj105444%_ - _%id105448%_)))) + (class-of _%obj108087%_) + _%obj108087%_ + _%id108091%_)))) (define checked-method-ref - (lambda (_%obj105437%_ _%id105438%_) - (let ((_%$e105441%_ (method-ref _%obj105437%_ _%id105438%_))) - (if _%$e105441%_ - _%$e105441%_ + (lambda (_%obj108080%_ _%id108081%_) + (let ((_%$e108084%_ (method-ref _%obj108080%_ _%id108081%_))) + (if _%$e108084%_ + _%$e108084%_ (begin (error '"missing method" 'object: - _%obj105437%_ + _%obj108080%_ 'method: - _%id105438%_) + _%id108081%_) '#!void))))) (define bound-method-ref - (lambda (_%obj105422%_ _%id105423%_) - (if (symbol? _%id105423%_) - (let ((_%id105427%_ _%id105423%_)) - (__bound-method-ref _%obj105422%_ _%id105427%_)) + (lambda (_%obj108065%_ _%id108066%_) + (if (symbol? _%id108066%_) + (let ((_%id108070%_ _%id108066%_)) + (__bound-method-ref _%obj108065%_ _%id108070%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@892.29-892.31" + '"\"gerbil/runtime/mop.ss\"@960.29-960.31" 'contract: 'symbol? 'value: - _%id105423%_) + _%id108066%_) '#!void)))) (define __bound-method-ref - (lambda (_%obj105390%_ _%id105391%_) - (let* ((_%id105394%_ _%id105391%_) - (_%$e105403%_ (__method-ref _%obj105390%_ _%id105394%_))) - (if _%$e105403%_ - ((lambda (_%method105406%_) - (let ((_%method105408%_ _%method105406%_)) - (lambda _%args105419%_ - (apply _%method105408%_ _%obj105390%_ _%args105419%_)))) - _%$e105403%_) + (lambda (_%obj108033%_ _%id108034%_) + (let* ((_%id108037%_ _%id108034%_) + (_%$e108046%_ (__method-ref _%obj108033%_ _%id108037%_))) + (if _%$e108046%_ + ((lambda (_%method108049%_) + (let ((_%method108051%_ _%method108049%_)) + (lambda _%args108062%_ + (apply _%method108051%_ _%obj108033%_ _%args108062%_)))) + _%$e108046%_) '#f)))) (define checked-bound-method-ref - (lambda (_%obj105375%_ _%id105376%_) - (if (symbol? _%id105376%_) - (let ((_%id105380%_ _%id105376%_)) - (__checked-bound-method-ref _%obj105375%_ _%id105380%_)) + (lambda (_%obj108018%_ _%id108019%_) + (if (symbol? _%id108019%_) + (let ((_%id108023%_ _%id108019%_)) + (__checked-bound-method-ref _%obj108018%_ _%id108023%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@901.37-901.39" + '"\"gerbil/runtime/mop.ss\"@969.37-969.39" 'contract: 'symbol? 'value: - _%id105376%_) + _%id108019%_) '#!void)))) (define __checked-bound-method-ref - (lambda (_%obj105358%_ _%id105359%_) - (let* ((_%id105362%_ _%id105359%_) - (_%method105371%_ - (checked-method-ref _%obj105358%_ _%id105362%_))) - (lambda _%args105373%_ - (apply _%method105371%_ _%obj105358%_ _%args105373%_))))) + (lambda (_%obj108001%_ _%id108002%_) + (let* ((_%id108005%_ _%id108002%_) + (_%method108014%_ + (checked-method-ref _%obj108001%_ _%id108005%_))) + (lambda _%args108016%_ + (apply _%method108014%_ _%obj108001%_ _%args108016%_))))) (define find-method - (lambda (_%klass105332%_ _%obj105333%_ _%id105334%_) + (lambda (_%klass107975%_ _%obj107976%_ _%id107977%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass105332%_ 'class)) - (let ((_%klass105338%_ _%klass105332%_)) - (if (symbol? _%id105334%_) - (let ((_%id105348%_ _%id105334%_)) - (__find-method _%klass105338%_ _%obj105333%_ _%id105348%_)) + (##structure-instance-of? _%klass107975%_ 'class)) + (let ((_%klass107981%_ _%klass107975%_)) + (if (symbol? _%id107977%_) + (let ((_%id107991%_ _%id107977%_)) + (__find-method _%klass107981%_ _%obj107976%_ _%id107991%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@906.41-906.43" + '"\"gerbil/runtime/mop.ss\"@974.41-974.43" 'contract: 'symbol? 'value: - _%id105334%_) + _%id107977%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@906.20-906.25" + '"\"gerbil/runtime/mop.ss\"@974.20-974.25" 'contract: 'class-type? 'value: - _%klass105332%_) + _%klass107975%_) '#!void)))) (define __find-method - (lambda (_%klass105305%_ _%obj105306%_ _%id105307%_) - (let* ((_%klass105310%_ _%klass105305%_) - (_%id105318%_ _%id105307%_) - (_%$e105327%_ - (__direct-method-ref - _%klass105310%_ - _%obj105306%_ - _%id105318%_))) - (if _%$e105327%_ - _%$e105327%_ - (if (__class-type-sealed? _%klass105310%_) - '#f - (__mixin-method-ref - _%klass105310%_ - _%obj105306%_ - _%id105318%_)))))) + (lambda (_%klass107946%_ _%obj107947%_ _%id107948%_) + (let* ((_%klass107951%_ _%klass107946%_) (_%id107959%_ _%id107948%_)) + (if (__class-type-sealed? _%klass107951%_) + (let ((_%tab107969%_ (__specialize-class _%klass107951%_))) + (declare (not safe)) + (symbolic-table-ref _%tab107969%_ _%id107959%_ '#f)) + (let ((_%$e107971%_ + (__direct-method-ref + _%klass107951%_ + _%obj107947%_ + _%id107959%_))) + (if _%$e107971%_ + _%$e107971%_ + (__mixin-method-ref + _%klass107951%_ + _%obj107947%_ + _%id107959%_))))))) (define mixin-find-method - (lambda (_%mixins105289%_ _%obj105290%_ _%id105291%_) - (if (symbol? _%id105291%_) - (let ((_%id105295%_ _%id105291%_)) + (lambda (_%mixins107930%_ _%obj107931%_ _%id107932%_) + (if (symbol? _%id107932%_) + (let ((_%id107936%_ _%id107932%_)) (__mixin-find-method - _%mixins105289%_ - _%obj105290%_ - _%id105295%_)) + _%mixins107930%_ + _%obj107931%_ + _%id107936%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@914.37-914.39" + '"\"gerbil/runtime/mop.ss\"@983.37-983.39" 'contract: 'symbol? 'value: - _%id105291%_) + _%id107932%_) '#!void)))) (define __mixin-find-method - (lambda (_%mixins105271%_ _%obj105272%_ _%id105273%_) - (let* ((_%id105276%_ _%id105273%_) - (__tmp109480 - (lambda (_%g105284105286%_) + (lambda (_%mixins107912%_ _%obj107913%_ _%id107914%_) + (let* ((_%id107917%_ _%id107914%_) + (__tmp112465 + (lambda (_%g107925107927%_) (direct-method-ref - _%g105284105286%_ - _%obj105272%_ - _%id105276%_)))) + _%g107925107927%_ + _%obj107913%_ + _%id107917%_)))) (declare (not safe)) - (__ormap1 __tmp109480 _%mixins105271%_)))) + (__ormap1 __tmp112465 _%mixins107912%_)))) (define direct-method-ref - (lambda (_%klass105245%_ _%obj105246%_ _%id105247%_) + (lambda (_%klass107886%_ _%obj107887%_ _%id107888%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass105245%_ 'class)) - (let ((_%klass105251%_ _%klass105245%_)) - (if (symbol? _%id105247%_) - (let ((_%id105261%_ _%id105247%_)) + (##structure-instance-of? _%klass107886%_ 'class)) + (let ((_%klass107892%_ _%klass107886%_)) + (if (symbol? _%id107888%_) + (let ((_%id107902%_ _%id107888%_)) (__direct-method-ref - _%klass105251%_ - _%obj105246%_ - _%id105261%_)) + _%klass107892%_ + _%obj107887%_ + _%id107902%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@917.47-917.49" + '"\"gerbil/runtime/mop.ss\"@986.47-986.49" 'contract: 'symbol? 'value: - _%id105247%_) + _%id107888%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@917.26-917.31" + '"\"gerbil/runtime/mop.ss\"@986.26-986.31" 'contract: 'class-type? 'value: - _%klass105245%_) + _%klass107886%_) '#!void)))) (define __direct-method-ref - (lambda (_%klass105199%_ _%obj105200%_ _%id105201%_) - (let* ((_%klass105204%_ _%klass105199%_) (_%id105212%_ _%id105201%_)) - (letrec ((_%metaclass-resolve-method105221%_ + (lambda (_%klass107840%_ _%obj107841%_ _%id107842%_) + (let* ((_%klass107845%_ _%klass107840%_) (_%id107853%_ _%id107842%_)) + (letrec ((_%metaclass-resolve-method107862%_ (lambda () - (let ((__method109390 + (let ((__method112369 (__method-ref - _%klass105204%_ + _%klass107845%_ 'direct-method-ref))) - (if __method109390 + (if __method112369 (let () (declare (not safe)) - (__method109390 - _%klass105204%_ - _%obj105200%_ - _%id105212%_)) + (__method112369 + _%klass107845%_ + _%obj107841%_ + _%id107853%_)) (begin (error '"Missing method" - _%klass105204%_ + _%klass107845%_ 'direct-method-ref) '#!void))))) - (_%metaclass-resolve-method!105222%_ + (_%metaclass-resolve-method!107863%_ (lambda () - (let ((_%method105242%_ - (_%metaclass-resolve-method105221%_))) - (let ((__tmp109482 + (let ((_%method107883%_ + (_%metaclass-resolve-method107862%_))) + (let ((__tmp112467 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass105204%_ + _%klass107845%_ '11 '#f '#f))) - (__tmp109481 - (if _%method105242%_ 'resolved 'unknown))) + (__tmp112466 + (if _%method107883%_ 'resolved 'unknown))) (declare (not safe)) (symbolic-table-set! - __tmp109482 - _%id105212%_ - __tmp109481)) - _%method105242%_)))) - (let ((_%$e105224%_ + __tmp112467 + _%id107853%_ + __tmp112466)) + _%method107883%_)))) + (let ((_%$e107865%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass105204%_ '11 '#f '#f)))) - (if _%$e105224%_ - ((lambda (_%ht105227%_) - (let ((_%method105229%_ + (##unchecked-structure-ref _%klass107845%_ '11 '#f '#f)))) + (if _%$e107865%_ + ((lambda (_%ht107868%_) + (let ((_%method107870%_ (let () (declare (not safe)) (symbolic-table-ref - _%ht105227%_ - _%id105212%_ + _%ht107868%_ + _%id107853%_ '#f)))) - (if (procedure? _%method105229%_) - _%method105229%_ - (if (__class-type-metaclass? _%klass105204%_) - (let ((_%$e105233%_ _%method105229%_)) - (if (eq? 'resolved _%$e105233%_) - (_%metaclass-resolve-method105221%_) - (if (eq? 'unknown _%$e105233%_) + (if (procedure? _%method107870%_) + _%method107870%_ + (if (__class-type-metaclass? _%klass107845%_) + (let ((_%$e107874%_ _%method107870%_)) + (if (eq? 'resolved _%$e107874%_) + (_%metaclass-resolve-method107862%_) + (if (eq? 'unknown _%$e107874%_) '#f - (_%metaclass-resolve-method!105222%_)))) + (_%metaclass-resolve-method!107863%_)))) '#f)))) - _%$e105224%_) - (if (__class-type-metaclass? _%klass105204%_) - (let ((_%tab105238%_ + _%$e107865%_) + (if (__class-type-metaclass? _%klass107845%_) + (let ((_%tab107879%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass105204%_ - _%tab105238%_ + _%klass107845%_ + _%tab107879%_ '11 '#f '#f)) - (_%metaclass-resolve-method!105222%_)) + (_%metaclass-resolve-method!107863%_)) '#f))))))) (define mixin-method-ref - (lambda (_%klass105173%_ _%obj105174%_ _%id105175%_) + (lambda (_%klass107814%_ _%obj107815%_ _%id107816%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass105173%_ 'class)) - (let ((_%klass105179%_ _%klass105173%_)) - (if (symbol? _%id105175%_) - (let ((_%id105189%_ _%id105175%_)) + (##structure-instance-of? _%klass107814%_ 'class)) + (let ((_%klass107820%_ _%klass107814%_)) + (if (symbol? _%id107816%_) + (let ((_%id107830%_ _%id107816%_)) (__mixin-method-ref - _%klass105179%_ - _%obj105174%_ - _%id105189%_)) + _%klass107820%_ + _%obj107815%_ + _%id107830%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@947.46-947.48" + '"\"gerbil/runtime/mop.ss\"@1016.46-1016.48" 'contract: 'symbol? 'value: - _%id105175%_) + _%id107816%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@947.25-947.30" + '"\"gerbil/runtime/mop.ss\"@1016.25-1016.30" 'contract: 'class-type? 'value: - _%klass105173%_) + _%klass107814%_) '#!void)))) (define __mixin-method-ref - (lambda (_%klass105151%_ _%obj105152%_ _%id105153%_) - (let* ((_%klass105156%_ _%klass105151%_) (_%id105164%_ _%id105153%_)) + (lambda (_%klass107792%_ _%obj107793%_ _%id107794%_) + (let* ((_%klass107797%_ _%klass107792%_) (_%id107805%_ _%id107794%_)) (__mixin-find-method (let () (declare (not safe)) - (##unchecked-structure-ref _%klass105156%_ '6 '#f '#f)) - _%obj105152%_ - _%id105164%_)))) + (##unchecked-structure-ref _%klass107797%_ '6 '#f '#f)) + _%obj107793%_ + _%id107805%_)))) (define bind-method!__% - (lambda (_%klass105110%_ _%id105111%_ _%proc105112%_ _%rebind?105113%_) - (if (symbol? _%id105111%_) - (let ((_%id105117%_ _%id105111%_)) - (if (procedure? _%proc105112%_) - (let ((_%proc105127%_ _%proc105112%_)) + (lambda (_%klass107751%_ _%id107752%_ _%proc107753%_ _%rebind?107754%_) + (if (symbol? _%id107752%_) + (let ((_%id107758%_ _%id107752%_)) + (if (procedure? _%proc107753%_) + (let ((_%proc107768%_ _%proc107753%_)) (__bind-method!__% - _%klass105110%_ - _%id105117%_ - _%proc105127%_ - _%rebind?105113%_)) + _%klass107751%_ + _%id107758%_ + _%proc107768%_ + _%rebind?107754%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@950.42-950.46" + '"\"gerbil/runtime/mop.ss\"@1019.42-1019.46" 'contract: 'procedure? 'value: - _%proc105112%_) + _%proc107753%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@950.27-950.29" + '"\"gerbil/runtime/mop.ss\"@1019.27-1019.29" 'contract: 'symbol? 'value: - _%id105111%_) + _%id107752%_) '#!void)))) (define bind-method!__0 - (lambda (_%klass105140%_ _%id105141%_ _%proc105142%_) - (let ((_%rebind?105144%_ '#f)) + (lambda (_%klass107781%_ _%id107782%_ _%proc107783%_) + (let ((_%rebind?107785%_ '#f)) (bind-method!__% - _%klass105140%_ - _%id105141%_ - _%proc105142%_ - _%rebind?105144%_)))) + _%klass107781%_ + _%id107782%_ + _%proc107783%_ + _%rebind?107785%_)))) (define bind-method! - (lambda _g109483_ - (let ((_g109484_ (let () (declare (not safe)) (##length _g109483_)))) - (cond ((let () (declare (not safe)) (##fx= _g109484_ 3)) - (apply bind-method!__0 _g109483_)) - ((let () (declare (not safe)) (##fx= _g109484_ 4)) - (apply bind-method!__% _g109483_)) + (lambda _g112468_ + (let ((_g112469_ (let () (declare (not safe)) (##length _g112468_)))) + (cond ((let () (declare (not safe)) (##fx= _g112469_ 3)) + (apply bind-method!__0 _g112468_)) + ((let () (declare (not safe)) (##fx= _g112469_ 4)) + (apply bind-method!__% _g112468_)) (else (##raise-wrong-number-of-arguments-exception bind-method! - _g109483_)))))) + _g112468_)))))) (define __bind-method!__% - (lambda (_%klass105061%_ _%id105062%_ _%proc105063%_ _%rebind?105064%_) - (let* ((_%id105067%_ _%id105062%_) (_%proc105075%_ _%proc105063%_)) - (letrec ((_%bind!105084%_ - (lambda (_%ht105093%_) - (if (and (not _%rebind?105064%_) + (lambda (_%klass107702%_ _%id107703%_ _%proc107704%_ _%rebind?107705%_) + (let* ((_%id107708%_ _%id107703%_) (_%proc107716%_ _%proc107704%_)) + (letrec ((_%bind!107725%_ + (lambda (_%ht107734%_) + (if (and (not _%rebind?107705%_) (let () (declare (not safe)) (symbolic-table-ref - _%ht105093%_ - _%id105067%_ + _%ht107734%_ + _%id107708%_ '#f))) (error '"method already bound" 'class: - _%klass105061%_ + _%klass107702%_ 'method: - _%id105067%_) + _%id107708%_) (begin (let () (declare (not safe)) (symbolic-table-set! - _%ht105093%_ - _%id105067%_ - _%proc105075%_)) + _%ht107734%_ + _%id107708%_ + _%proc107716%_)) '#!void))))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass105061%_ 'class)) - (let ((_%ht105087%_ + (##structure-instance-of? _%klass107702%_ 'class)) + (let ((_%ht107728%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass105061%_ + _%klass107702%_ '11 '#f '#f)))) - (if _%ht105087%_ - (_%bind!105084%_ _%ht105087%_) - (let ((_%ht105089%_ + (if _%ht107728%_ + (_%bind!107725%_ _%ht107728%_) + (let ((_%ht107730%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass105061%_ - _%ht105089%_ + _%klass107702%_ + _%ht107730%_ '11 '#f '#f)) - (_%bind!105084%_ _%ht105089%_)))) - (if (let () (declare (not safe)) (##type? _%klass105061%_)) + (_%bind!107725%_ _%ht107730%_)))) + (if (let () (declare (not safe)) (##type? _%klass107702%_)) (__bind-method!__% - (__shadow-class _%klass105061%_) - _%id105067%_ - _%proc105075%_ - _%rebind?105064%_) + (__shadow-class__0 _%klass107702%_) + _%id107708%_ + _%proc107716%_ + _%rebind?107705%_) (error '"bad class; expected class or builtin type" - _%klass105061%_))))))) + _%klass107702%_))))))) (define __bind-method!__0 - (lambda (_%klass105098%_ _%id105099%_ _%proc105100%_) - (let ((_%rebind?105102%_ '#f)) + (lambda (_%klass107739%_ _%id107740%_ _%proc107741%_) + (let ((_%rebind?107743%_ '#f)) (__bind-method!__% - _%klass105098%_ - _%id105099%_ - _%proc105100%_ - _%rebind?105102%_)))) + _%klass107739%_ + _%id107740%_ + _%proc107741%_ + _%rebind?107743%_)))) (define __bind-method! - (lambda _g109485_ - (let ((_g109486_ (let () (declare (not safe)) (##length _g109485_)))) - (cond ((let () (declare (not safe)) (##fx= _g109486_ 3)) - (apply __bind-method!__0 _g109485_)) - ((let () (declare (not safe)) (##fx= _g109486_ 4)) - (apply __bind-method!__% _g109485_)) + (lambda _g112470_ + (let ((_g112471_ (let () (declare (not safe)) (##length _g112470_)))) + (cond ((let () (declare (not safe)) (##fx= _g112471_ 3)) + (apply __bind-method!__0 _g112470_)) + ((let () (declare (not safe)) (##fx= _g112471_ 4)) + (apply __bind-method!__% _g112470_)) (else (##raise-wrong-number-of-arguments-exception __bind-method! - _g109485_)))))) + _g112470_)))))) (define make-method-specializer-table__% - (lambda (_%size-hint105041%_ _%seed105043%_) + (lambda (_%size-hint107683%_ _%seed107684%_) (let () (declare (not safe)) - (make-raw-table__% - _%size-hint105041%_ + (make-raw-table__1 + _%size-hint107683%_ procedure-hash eq? - _%seed105043%_)))) + _%seed107684%_)))) (define make-method-specializer-table__0 (lambda () - (let* ((_%size-hint105049%_ '#f) (_%seed105051%_ '0)) + (let* ((_%size-hint107690%_ '#f) (_%seed107692%_ '0)) (make-method-specializer-table__% - _%size-hint105049%_ - _%seed105051%_)))) + _%size-hint107690%_ + _%seed107692%_)))) (define make-method-specializer-table__1 - (lambda (_%size-hint105053%_) - (let ((_%seed105055%_ '0)) + (lambda (_%size-hint107694%_) + (let ((_%seed107696%_ '0)) (make-method-specializer-table__% - _%size-hint105053%_ - _%seed105055%_)))) + _%size-hint107694%_ + _%seed107696%_)))) (define make-method-specializer-table - (lambda _g109487_ - (let ((_g109488_ (let () (declare (not safe)) (##length _g109487_)))) - (cond ((let () (declare (not safe)) (##fx= _g109488_ 0)) - (apply make-method-specializer-table__0 _g109487_)) - ((let () (declare (not safe)) (##fx= _g109488_ 1)) - (apply make-method-specializer-table__1 _g109487_)) - ((let () (declare (not safe)) (##fx= _g109488_ 2)) - (apply make-method-specializer-table__% _g109487_)) + (lambda _g112472_ + (let ((_g112473_ (let () (declare (not safe)) (##length _g112472_)))) + (cond ((let () (declare (not safe)) (##fx= _g112473_ 0)) + (apply make-method-specializer-table__0 _g112472_)) + ((let () (declare (not safe)) (##fx= _g112473_ 1)) + (apply make-method-specializer-table__1 _g112472_)) + ((let () (declare (not safe)) (##fx= _g112473_ 2)) + (apply make-method-specializer-table__% _g112472_)) (else (##raise-wrong-number-of-arguments-exception make-method-specializer-table - _g109487_)))))) + _g112472_)))))) + (define make-method-specializer-table/lock__% + (lambda (_%size-hint107663%_ _%seed107665%_) + (let () + (declare (not safe)) + (make-raw-table/lock__% + _%size-hint107663%_ + procedure-hash + eq? + _%seed107665%_)))) + (define make-method-specializer-table/lock__0 + (lambda () + (let* ((_%size-hint107671%_ '#f) (_%seed107673%_ '0)) + (make-method-specializer-table/lock__% + _%size-hint107671%_ + _%seed107673%_)))) + (define make-method-specializer-table/lock__1 + (lambda (_%size-hint107675%_) + (let ((_%seed107677%_ '0)) + (make-method-specializer-table/lock__% + _%size-hint107675%_ + _%seed107677%_)))) + (define make-method-specializer-table/lock + (lambda _g112474_ + (let ((_g112475_ (let () (declare (not safe)) (##length _g112474_)))) + (cond ((let () (declare (not safe)) (##fx= _g112475_ 0)) + (apply make-method-specializer-table/lock__0 _g112474_)) + ((let () (declare (not safe)) (##fx= _g112475_ 1)) + (apply make-method-specializer-table/lock__1 _g112474_)) + ((let () (declare (not safe)) (##fx= _g112475_ 2)) + (apply make-method-specializer-table/lock__% _g112474_)) + (else + (##raise-wrong-number-of-arguments-exception + make-method-specializer-table/lock + _g112474_)))))) (define method-specializer-table-ref - (lambda (_%tab104994%_ _%key104995%_ _%default104996%_) - (let ((_%table104998%_ - (let () (declare (not safe)) (&raw-table-table _%tab104994%_))) - (_%seed104999%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104994%_)))) - (let* ((_%h105001%_ + (lambda (_%tab107616%_ _%key107617%_ _%default107618%_) + (let ((_%table107620%_ + (let () (declare (not safe)) (&raw-table-table _%tab107616%_))) + (_%seed107621%_ + (let () (declare (not safe)) (&raw-table-seed _%tab107616%_)))) + (let* ((_%h107623%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key104995%_)) - _%seed104999%_)) - (_%size105004%_ (vector-length _%table104998%_)) - (_%entries105007%_ + (procedure-hash _%key107617%_)) + _%seed107621%_)) + (_%size107626%_ (vector-length _%table107620%_)) + (_%entries107629%_ (let () (declare (not safe)) - (##fxquotient _%size105004%_ '2))) - (_%start105010%_ - (let ((__tmp109489 + (##fxquotient _%size107626%_ '2))) + (_%start107632%_ + (let ((__tmp112476 (let () (declare (not safe)) - (##fxmodulo _%h105001%_ _%entries105007%_)))) + (##fxmodulo _%h107623%_ _%entries107629%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp109489 '1)))) - (let _%loop105014%_ ((_%probe105017%_ _%start105010%_) - (_%i105019%_ '1) - (_%deleted105021%_ '#f)) - (let ((_%k105024%_ (vector-ref _%table104998%_ _%probe105017%_))) - (if (eq? _%k105024%_ (macro-unused-obj)) - _%default104996%_ - (if (eq? _%k105024%_ (macro-deleted-obj)) - (_%loop105014%_ - (let ((_%next-probe105029%_ - (fx+ _%start105010%_ - _%i105019%_ - (fx* _%i105019%_ _%i105019%_)))) + (##fxarithmetic-shift-left __tmp112476 '1)))) + (let _%loop107636%_ ((_%probe107639%_ _%start107632%_) + (_%i107641%_ '1) + (_%deleted107643%_ '#f)) + (let ((_%k107646%_ (vector-ref _%table107620%_ _%probe107639%_))) + (if (eq? _%k107646%_ (macro-unused-obj)) + _%default107618%_ + (if (eq? _%k107646%_ (macro-deleted-obj)) + (_%loop107636%_ + (let ((_%next-probe107651%_ + (fx+ _%start107632%_ + _%i107641%_ + (fx* _%i107641%_ _%i107641%_)))) (declare (not safe)) - (##fxmodulo _%next-probe105029%_ _%size105004%_)) - (let () (declare (not safe)) (##fx+ _%i105019%_ '1)) - (let ((_%$e105032%_ _%deleted105021%_)) - (if _%$e105032%_ _%$e105032%_ _%probe105017%_))) - (if (eq? _%key104995%_ _%k105024%_) + (##fxmodulo _%next-probe107651%_ _%size107626%_)) + (let () (declare (not safe)) (##fx+ _%i107641%_ '1)) + (let ((_%$e107654%_ _%deleted107643%_)) + (if _%$e107654%_ _%$e107654%_ _%probe107639%_))) + (if (eq? _%key107617%_ _%k107646%_) (vector-ref - _%table104998%_ + _%table107620%_ (let () (declare (not safe)) - (##fx+ _%probe105017%_ '1))) - (_%loop105014%_ - (let ((_%next-probe105037%_ - (fx+ _%start105010%_ - _%i105019%_ - (fx* _%i105019%_ _%i105019%_)))) + (##fx+ _%probe107639%_ '1))) + (_%loop107636%_ + (let ((_%next-probe107659%_ + (fx+ _%start107632%_ + _%i107641%_ + (fx* _%i107641%_ _%i107641%_)))) (declare (not safe)) (##fxmodulo - _%next-probe105037%_ - _%size105004%_)) + _%next-probe107659%_ + _%size107626%_)) (let () (declare (not safe)) - (##fx+ _%i105019%_ '1)) - _%deleted105021%_)))))))))) - (define method-specializer-table-set! - (lambda (_%tab104990%_ _%key104991%_ _%value104992%_) - (if (let ((__tmp109492 - (let () - (declare (not safe)) - (&raw-table-free _%tab104990%_))) - (__tmp109490 - (let ((__tmp109491 - (vector-length - (let () - (declare (not safe)) - (&raw-table-table _%tab104990%_))))) - (declare (not safe)) - (##fxquotient __tmp109491 '4)))) + (##fx+ _%i107641%_ '1)) + _%deleted107643%_)))))))))) + (define method-specializer-table-ref/lock + (lambda (_%tab107589%_ _%key107590%_ _%default107591%_) + (let ((_%lock107593%_ + (let () (declare (not safe)) (&raw-table-lock _%tab107589%_)))) + (let () + (declare (not interrupts-enabled)) + (let _%again107598%_ ((_%spin107601%_ '0)) + (if (let ((__tmp112477 + (let () + (declare (not safe)) + (##vector-cas! _%lock107593%_ '0 '1 '0)))) + (declare (not safe)) + (##fx= __tmp112477 '0)) + (let ((__tmp112478 (current-thread))) + (declare (not safe)) + (##vector-set! _%lock107593%_ '1 __tmp112478)) + (if (let () (declare (not safe)) (##fx< _%spin107601%_ '10)) + (let () + (let () (declare (not safe)) (##thread-yield!)) + (_%again107598%_ + (let () + (declare (not safe)) + (##fx+ _%spin107601%_ '1)))) + (let ((_%owner107607%_ + (let () + (declare (not safe)) + (##vector-ref _%lock107593%_ '1)))) + (if (eq? _%owner107607%_ (macro-current-thread)) + (let () + (declare (not safe)) + (##thread-deadlock-action!)) + (if (macro-thread-end-condvar _%owner107607%_) + (let () + (let () + (declare (not safe)) + (##thread-yield!)) + (_%again107598%_ '0)) + (let () + (declare (not safe)) + (##thread-deadlock-action!))))))))) + (let ((_%$r107613%_ + (method-specializer-table-ref + _%tab107589%_ + _%key107590%_ + _%default107591%_))) + (let () (declare (not safe)) (##vector-set! _%lock107593%_ '1 '#f)) + (let () (declare (not safe)) - (##fx< __tmp109492 __tmp109490)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab104990%_)) - '#!void) - (__method-specializer-table-set! - _%tab104990%_ - _%key104991%_ - _%value104992%_))) + (##vector-cas! _%lock107593%_ '0 '0 '1)) + _%$r107613%_)))) (define __method-specializer-table-set! - (lambda (_%tab104941%_ _%key104942%_ _%value104943%_) - (let ((_%table104946%_ - (let () (declare (not safe)) (&raw-table-table _%tab104941%_))) - (_%seed104947%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104941%_)))) - (let* ((_%h104949%_ + (lambda (_%tab107541%_ _%key107542%_ _%value107543%_) + (let ((_%table107545%_ + (let () (declare (not safe)) (&raw-table-table _%tab107541%_))) + (_%seed107546%_ + (let () (declare (not safe)) (&raw-table-seed _%tab107541%_)))) + (let* ((_%h107548%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key104942%_)) - _%seed104947%_)) - (_%size104952%_ (vector-length _%table104946%_)) - (_%entries104955%_ + (procedure-hash _%key107542%_)) + _%seed107546%_)) + (_%size107551%_ (vector-length _%table107545%_)) + (_%entries107554%_ (let () (declare (not safe)) - (##fxquotient _%size104952%_ '2))) - (_%start104958%_ - (let ((__tmp109493 + (##fxquotient _%size107551%_ '2))) + (_%start107557%_ + (let ((__tmp112479 (let () (declare (not safe)) - (##fxmodulo _%h104949%_ _%entries104955%_)))) + (##fxmodulo _%h107548%_ _%entries107554%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp109493 '1)))) - (let _%loop104962%_ ((_%probe104965%_ _%start104958%_) - (_%i104967%_ '1) - (_%deleted104969%_ '#f)) - (let ((_%k104972%_ (vector-ref _%table104946%_ _%probe104965%_))) - (if (eq? _%k104972%_ (macro-unused-obj)) - (if _%deleted104969%_ + (##fxarithmetic-shift-left __tmp112479 '1)))) + (let _%loop107561%_ ((_%probe107564%_ _%start107557%_) + (_%i107566%_ '1) + (_%deleted107568%_ '#f)) + (let ((_%k107571%_ (vector-ref _%table107545%_ _%probe107564%_))) + (if (eq? _%k107571%_ (macro-unused-obj)) + (if _%deleted107568%_ (begin (vector-set! - _%table104946%_ - _%deleted104969%_ - _%key104942%_) + _%table107545%_ + _%deleted107568%_ + _%key107542%_) (vector-set! - _%table104946%_ + _%table107545%_ (let () (declare (not safe)) - (##fx+ _%deleted104969%_ '1)) - _%value104943%_) + (##fx+ _%deleted107568%_ '1)) + _%value107543%_) ((lambda () - (let ((__tmp109494 - (let ((__tmp109495 + (let ((__tmp112480 + (let ((__tmp112481 (let () (declare (not safe)) (&raw-table-count - _%tab104941%_)))) + _%tab107541%_)))) (declare (not safe)) - (##fx+ __tmp109495 '1)))) + (##fx+ __tmp112481 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104941%_ - __tmp109494))))) + _%tab107541%_ + __tmp112480))))) (begin (vector-set! - _%table104946%_ - _%probe104965%_ - _%key104942%_) + _%table107545%_ + _%probe107564%_ + _%key107542%_) (vector-set! - _%table104946%_ + _%table107545%_ (let () (declare (not safe)) - (##fx+ _%probe104965%_ '1)) - _%value104943%_) + (##fx+ _%probe107564%_ '1)) + _%value107543%_) ((lambda () - (let ((__tmp109496 - (let ((__tmp109497 + (let ((__tmp112482 + (let ((__tmp112483 (let () (declare (not safe)) - (&raw-table-free _%tab104941%_)))) + (&raw-table-free _%tab107541%_)))) (declare (not safe)) - (##fx- __tmp109497 '1)))) + (##fx- __tmp112483 '1)))) (declare (not safe)) (&raw-table-free-set! - _%tab104941%_ - __tmp109496)) - (let ((__tmp109498 - (let ((__tmp109499 + _%tab107541%_ + __tmp112482)) + (let ((__tmp112484 + (let ((__tmp112485 (let () (declare (not safe)) (&raw-table-count - _%tab104941%_)))) + _%tab107541%_)))) (declare (not safe)) - (##fx+ __tmp109499 '1)))) + (##fx+ __tmp112485 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104941%_ - __tmp109498)))))) - (if (eq? _%k104972%_ (macro-deleted-obj)) - (_%loop104962%_ - (let ((_%next-probe104979%_ - (fx+ _%start104958%_ - _%i104967%_ - (fx* _%i104967%_ _%i104967%_)))) + _%tab107541%_ + __tmp112484)))))) + (if (eq? _%k107571%_ (macro-deleted-obj)) + (_%loop107561%_ + (let ((_%next-probe107578%_ + (fx+ _%start107557%_ + _%i107566%_ + (fx* _%i107566%_ _%i107566%_)))) (declare (not safe)) - (##fxmodulo _%next-probe104979%_ _%size104952%_)) - (let () (declare (not safe)) (##fx+ _%i104967%_ '1)) - (let ((_%$e104982%_ _%deleted104969%_)) - (if _%$e104982%_ _%$e104982%_ _%probe104965%_))) - (if (eq? _%key104942%_ _%k104972%_) + (##fxmodulo _%next-probe107578%_ _%size107551%_)) + (let () (declare (not safe)) (##fx+ _%i107566%_ '1)) + (let ((_%$e107581%_ _%deleted107568%_)) + (if _%$e107581%_ _%$e107581%_ _%probe107564%_))) + (if (eq? _%key107542%_ _%k107571%_) (let () (vector-set! - _%table104946%_ - _%probe104965%_ - _%key104942%_) + _%table107545%_ + _%probe107564%_ + _%key107542%_) (vector-set! - _%table104946%_ + _%table107545%_ (let () (declare (not safe)) - (##fx+ _%probe104965%_ '1)) - _%value104943%_)) - (_%loop104962%_ - (let ((_%next-probe104987%_ - (fx+ _%start104958%_ - _%i104967%_ - (fx* _%i104967%_ _%i104967%_)))) + (##fx+ _%probe107564%_ '1)) + _%value107543%_)) + (_%loop107561%_ + (let ((_%next-probe107586%_ + (fx+ _%start107557%_ + _%i107566%_ + (fx* _%i107566%_ _%i107566%_)))) (declare (not safe)) (##fxmodulo - _%next-probe104987%_ - _%size104952%_)) + _%next-probe107586%_ + _%size107551%_)) (let () (declare (not safe)) - (##fx+ _%i104967%_ '1)) - _%deleted104969%_)))))))))) - (define method-specializer-table-update! - (lambda (_%tab104936%_ - _%key104937%_ - _%method-specializer-table-update!104938%_ - _%default104939%_) - (if (let ((__tmp109502 + (##fx+ _%i107566%_ '1)) + _%deleted107568%_)))))))))) + (define method-specializer-table-set! + (lambda (_%tab107537%_ _%key107538%_ _%value107539%_) + (if (let ((__tmp112488 (let () (declare (not safe)) - (&raw-table-free _%tab104936%_))) - (__tmp109500 - (let ((__tmp109501 + (&raw-table-free _%tab107537%_))) + (__tmp112486 + (let ((__tmp112487 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab104936%_))))) + (&raw-table-table _%tab107537%_))))) (declare (not safe)) - (##fxquotient __tmp109501 '4)))) + (##fxquotient __tmp112487 '4)))) (declare (not safe)) - (##fx< __tmp109502 __tmp109500)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab104936%_)) + (##fx< __tmp112488 __tmp112486)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab107537%_)) '#!void) - (__method-specializer-table-update! - _%tab104936%_ - _%key104937%_ - _%method-specializer-table-update!104938%_ - _%default104939%_))) - (define __method-specializer-table-update! - (lambda (_%tab104886%_ - _%key104887%_ - _%method-specializer-table-update!104888%_ - _%default104889%_) - (let ((_%table104892%_ - (let () (declare (not safe)) (&raw-table-table _%tab104886%_))) - (_%seed104893%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104886%_)))) - (let* ((_%h104895%_ - (fxxor (let () - (declare (not safe)) - (procedure-hash _%key104887%_)) - _%seed104893%_)) - (_%size104898%_ (vector-length _%table104892%_)) - (_%entries104901%_ - (let () - (declare (not safe)) - (##fxquotient _%size104898%_ '2))) - (_%start104904%_ - (let ((__tmp109503 - (let () - (declare (not safe)) - (##fxmodulo _%h104895%_ _%entries104901%_)))) - (declare (not safe)) - (##fxarithmetic-shift-left __tmp109503 '1)))) - (let _%loop104908%_ ((_%probe104911%_ _%start104904%_) - (_%i104913%_ '1) - (_%deleted104915%_ '#f)) - (let ((_%k104918%_ (vector-ref _%table104892%_ _%probe104911%_))) - (if (eq? _%k104918%_ (macro-unused-obj)) - (if _%deleted104915%_ - (begin - (vector-set! - _%table104892%_ - _%deleted104915%_ - _%key104887%_) - (vector-set! - _%table104892%_ - (let () - (declare (not safe)) - (##fx+ _%deleted104915%_ '1)) - (_%method-specializer-table-update!104888%_ - _%default104889%_)) - ((lambda () - (let ((__tmp109504 - (let ((__tmp109505 - (let () - (declare (not safe)) - (&raw-table-count - _%tab104886%_)))) - (declare (not safe)) - (##fx+ __tmp109505 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab104886%_ - __tmp109504))))) - (begin - (vector-set! - _%table104892%_ - _%probe104911%_ - _%key104887%_) - (vector-set! - _%table104892%_ - (let () - (declare (not safe)) - (##fx+ _%probe104911%_ '1)) - (_%method-specializer-table-update!104888%_ - _%default104889%_)) - ((lambda () - (let ((__tmp109506 - (let ((__tmp109507 - (let () - (declare (not safe)) - (&raw-table-free _%tab104886%_)))) - (declare (not safe)) - (##fx- __tmp109507 '1)))) - (declare (not safe)) - (&raw-table-free-set! - _%tab104886%_ - __tmp109506)) - (let ((__tmp109508 - (let ((__tmp109509 - (let () - (declare (not safe)) - (&raw-table-count - _%tab104886%_)))) - (declare (not safe)) - (##fx+ __tmp109509 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab104886%_ - __tmp109508)))))) - (if (eq? _%k104918%_ (macro-deleted-obj)) - (_%loop104908%_ - (let ((_%next-probe104925%_ - (fx+ _%start104904%_ - _%i104913%_ - (fx* _%i104913%_ _%i104913%_)))) - (declare (not safe)) - (##fxmodulo _%next-probe104925%_ _%size104898%_)) - (let () (declare (not safe)) (##fx+ _%i104913%_ '1)) - (let ((_%$e104928%_ _%deleted104915%_)) - (if _%$e104928%_ _%$e104928%_ _%probe104911%_))) - (if (eq? _%key104887%_ _%k104918%_) - (let () - (vector-set! - _%table104892%_ - _%probe104911%_ - _%key104887%_) - (vector-set! - _%table104892%_ - (let () - (declare (not safe)) - (##fx+ _%probe104911%_ '1)) - (_%method-specializer-table-update!104888%_ - (vector-ref - _%table104892%_ - (let () - (declare (not safe)) - (##fx+ _%probe104911%_ '1)))))) - (_%loop104908%_ - (let ((_%next-probe104933%_ - (fx+ _%start104904%_ - _%i104913%_ - (fx* _%i104913%_ _%i104913%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe104933%_ - _%size104898%_)) - (let () - (declare (not safe)) - (##fx+ _%i104913%_ '1)) - _%deleted104915%_)))))))))) - (define method-specializer-table-delete! - (lambda (_%tab104841%_ _%key104843%_) - (let ((_%table104846%_ - (let () (declare (not safe)) (&raw-table-table _%tab104841%_))) - (_%seed104848%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104841%_)))) - (let* ((_%h104851%_ - (fxxor (let () - (declare (not safe)) - (procedure-hash _%key104843%_)) - _%seed104848%_)) - (_%size104854%_ (vector-length _%table104846%_)) - (_%entries104857%_ - (let () - (declare (not safe)) - (##fxquotient _%size104854%_ '2))) - (_%start104860%_ - (let ((__tmp109510 + (__method-specializer-table-set! + _%tab107537%_ + _%key107538%_ + _%value107539%_))) + (define method-specializer-table-set!/lock + (lambda (_%tab107509%_ _%key107510%_ _%value107511%_) + (let ((_%lock107514%_ + (let () (declare (not safe)) (&raw-table-lock _%tab107509%_)))) + (let () + (declare (not interrupts-enabled)) + (let _%again107519%_ ((_%spin107522%_ '0)) + (if (let ((__tmp112489 (let () (declare (not safe)) - (##fxmodulo _%h104851%_ _%entries104857%_)))) + (##vector-cas! _%lock107514%_ '0 '1 '0)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp109510 '1)))) - (let _%loop104864%_ ((_%probe104867%_ _%start104860%_) - (_%i104869%_ '1)) - (let ((_%k104872%_ (vector-ref _%table104846%_ _%probe104867%_))) - (if (eq? _%k104872%_ (macro-unused-obj)) - '#!void - (if (eq? _%k104872%_ (macro-deleted-obj)) - (_%loop104864%_ - (let ((_%next-probe104877%_ - (fx+ _%start104860%_ - _%i104869%_ - (fx* _%i104869%_ _%i104869%_)))) - (declare (not safe)) - (##fxmodulo _%next-probe104877%_ _%size104854%_)) - (let () (declare (not safe)) (##fx+ _%i104869%_ '1))) - (if (eq? _%key104843%_ _%k104872%_) - (let () - (vector-set! - _%table104846%_ - _%probe104867%_ - (macro-deleted-obj)) - (vector-set! - _%table104846%_ - (let () - (declare (not safe)) - (##fx+ _%probe104867%_ '1)) - (macro-absent-obj)) - ((lambda () - (let ((__tmp109511 - (let ((__tmp109512 - (let () - (declare (not safe)) - (&raw-table-count - _%tab104841%_)))) - (declare (not safe)) - (##fx- __tmp109512 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab104841%_ - __tmp109511))))) - (_%loop104864%_ - (let ((_%next-probe104883%_ - (fx+ _%start104860%_ - _%i104869%_ - (fx* _%i104869%_ _%i104869%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe104883%_ - _%size104854%_)) - (let () - (declare (not safe)) - (##fx+ _%i104869%_ '1)))))))))))) - (define __method-specializers (make-method-specializer-table__% '#f '0)) - (define __method-specializers-mx (vector '0)) - (define bind-specializer! - (lambda (_%method-proc104832%_ _%specializer104833%_) - (let () - (declare (not interrupts-enabled)) - (let _%again104837%_ () - (if (let ((__tmp109513 - (let () - (declare (not safe)) - (##vector-cas! __method-specializers-mx '0 '1 '0)))) - (declare (not safe)) - (##fx= __tmp109513 '0)) - '#!void - (begin - (let () (declare (not safe)) (##thread-yield!)) - (_%again104837%_))))) - (method-specializer-table-set! - __method-specializers - _%method-proc104832%_ - _%specializer104833%_) - (let () - (declare (not safe)) - (##vector-cas! __method-specializers-mx '0 '0 '1)))) - (define __lookup-method-specializer - (lambda (_%proc104822%_) - (let () - (declare (not interrupts-enabled)) - (let _%again104826%_ () - (if (let ((__tmp109514 - (let () - (declare (not safe)) - (##vector-cas! __method-specializers-mx '0 '1 '0)))) - (declare (not safe)) - (##fx= __tmp109514 '0)) - '#!void - (begin - (let () (declare (not safe)) (##thread-yield!)) - (_%again104826%_))))) - (let ((_%specializer104830%_ - (method-specializer-table-ref - __method-specializers - _%proc104822%_ - '#f))) - (let () - (declare (not safe)) - (##vector-cas! __method-specializers-mx '0 '0 '1)) - _%specializer104830%_))) - (define __class-specializer-hash-key - (lambda (_%klass104820%_) - (let ((__tmp109515 - (let () (declare (not safe)) (##type-id _%klass104820%_)))) - (declare (not safe)) - (##symbol-hash __tmp109515)))) - (define make-class-specializer-table__% - (lambda (_%size-hint104801%_ _%seed104803%_) - (let () - (declare (not safe)) - (make-raw-table__% - _%size-hint104801%_ - __class-specializer-hash-key - eq? - _%seed104803%_)))) - (define make-class-specializer-table__0 - (lambda () - (let* ((_%size-hint104809%_ '#f) (_%seed104811%_ '0)) - (make-class-specializer-table__% - _%size-hint104809%_ - _%seed104811%_)))) - (define make-class-specializer-table__1 - (lambda (_%size-hint104813%_) - (let ((_%seed104815%_ '0)) - (make-class-specializer-table__% - _%size-hint104813%_ - _%seed104815%_)))) - (define make-class-specializer-table - (lambda _g109516_ - (let ((_g109517_ (let () (declare (not safe)) (##length _g109516_)))) - (cond ((let () (declare (not safe)) (##fx= _g109517_ 0)) - (apply make-class-specializer-table__0 _g109516_)) - ((let () (declare (not safe)) (##fx= _g109517_ 1)) - (apply make-class-specializer-table__1 _g109516_)) - ((let () (declare (not safe)) (##fx= _g109517_ 2)) - (apply make-class-specializer-table__% _g109516_)) - (else - (##raise-wrong-number-of-arguments-exception - make-class-specializer-table - _g109516_)))))) - (define class-specializer-table-ref - (lambda (_%tab104754%_ _%key104755%_ _%default104756%_) - (let ((_%table104758%_ - (let () (declare (not safe)) (&raw-table-table _%tab104754%_))) - (_%seed104759%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104754%_)))) - (let* ((_%h104761%_ - (fxxor (__class-specializer-hash-key _%key104755%_) - _%seed104759%_)) - (_%size104764%_ (vector-length _%table104758%_)) - (_%entries104767%_ - (let () + (##fx= __tmp112489 '0)) + (let ((__tmp112490 (current-thread))) (declare (not safe)) - (##fxquotient _%size104764%_ '2))) - (_%start104770%_ - (let ((__tmp109518 + (##vector-set! _%lock107514%_ '1 __tmp112490)) + (if (let () (declare (not safe)) (##fx< _%spin107522%_ '10)) + (let () + (let () (declare (not safe)) (##thread-yield!)) + (_%again107519%_ (let () (declare (not safe)) - (##fxmodulo _%h104761%_ _%entries104767%_)))) - (declare (not safe)) - (##fxarithmetic-shift-left __tmp109518 '1)))) - (let _%loop104774%_ ((_%probe104777%_ _%start104770%_) - (_%i104779%_ '1) - (_%deleted104781%_ '#f)) - (let ((_%k104784%_ (vector-ref _%table104758%_ _%probe104777%_))) - (if (eq? _%k104784%_ (macro-unused-obj)) - _%default104756%_ - (if (eq? _%k104784%_ (macro-deleted-obj)) - (_%loop104774%_ - (let ((_%next-probe104789%_ - (fx+ _%start104770%_ - _%i104779%_ - (fx* _%i104779%_ _%i104779%_)))) - (declare (not safe)) - (##fxmodulo _%next-probe104789%_ _%size104764%_)) - (let () (declare (not safe)) (##fx+ _%i104779%_ '1)) - (let ((_%$e104792%_ _%deleted104781%_)) - (if _%$e104792%_ _%$e104792%_ _%probe104777%_))) - (if (eq? _%key104755%_ _%k104784%_) - (vector-ref - _%table104758%_ + (##fx+ _%spin107522%_ '1)))) + (let ((_%owner107528%_ (let () (declare (not safe)) - (##fx+ _%probe104777%_ '1))) - (_%loop104774%_ - (let ((_%next-probe104797%_ - (fx+ _%start104770%_ - _%i104779%_ - (fx* _%i104779%_ _%i104779%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe104797%_ - _%size104764%_)) - (let () - (declare (not safe)) - (##fx+ _%i104779%_ '1)) - _%deleted104781%_)))))))))) - (define class-specializer-table-set! - (lambda (_%tab104750%_ _%key104751%_ _%value104752%_) - (if (let ((__tmp109521 - (let () - (declare (not safe)) - (&raw-table-free _%tab104750%_))) - (__tmp109519 - (let ((__tmp109520 - (vector-length - (let () - (declare (not safe)) - (&raw-table-table _%tab104750%_))))) - (declare (not safe)) - (##fxquotient __tmp109520 '4)))) + (##vector-ref _%lock107514%_ '1)))) + (if (eq? _%owner107528%_ (macro-current-thread)) + (let () + (declare (not safe)) + (##thread-deadlock-action!)) + (if (macro-thread-end-condvar _%owner107528%_) + (let () + (let () + (declare (not safe)) + (##thread-yield!)) + (_%again107519%_ '0)) + (let () + (declare (not safe)) + (##thread-deadlock-action!))))))))) + (let ((_%$r107534%_ + (method-specializer-table-set! + _%tab107509%_ + _%key107510%_ + _%value107511%_))) + (let () (declare (not safe)) (##vector-set! _%lock107514%_ '1 '#f)) + (let () (declare (not safe)) - (##fx< __tmp109521 __tmp109519)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab104750%_)) - '#!void) - (__class-specializer-table-set! - _%tab104750%_ - _%key104751%_ - _%value104752%_))) - (define __class-specializer-table-set! - (lambda (_%tab104701%_ _%key104702%_ _%value104703%_) - (let ((_%table104706%_ - (let () (declare (not safe)) (&raw-table-table _%tab104701%_))) - (_%seed104707%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104701%_)))) - (let* ((_%h104709%_ - (fxxor (__class-specializer-hash-key _%key104702%_) - _%seed104707%_)) - (_%size104712%_ (vector-length _%table104706%_)) - (_%entries104715%_ + (##vector-cas! _%lock107514%_ '0 '0 '1)) + _%$r107534%_)))) + (define __method-specializer-table-update! + (lambda (_%tab107460%_ + _%key107461%_ + _%method-specializer-table-update!107462%_ + _%default107463%_) + (let ((_%table107465%_ + (let () (declare (not safe)) (&raw-table-table _%tab107460%_))) + (_%seed107466%_ + (let () (declare (not safe)) (&raw-table-seed _%tab107460%_)))) + (let* ((_%h107468%_ + (fxxor (let () + (declare (not safe)) + (procedure-hash _%key107461%_)) + _%seed107466%_)) + (_%size107471%_ (vector-length _%table107465%_)) + (_%entries107474%_ (let () (declare (not safe)) - (##fxquotient _%size104712%_ '2))) - (_%start104718%_ - (let ((__tmp109522 + (##fxquotient _%size107471%_ '2))) + (_%start107477%_ + (let ((__tmp112491 (let () (declare (not safe)) - (##fxmodulo _%h104709%_ _%entries104715%_)))) + (##fxmodulo _%h107468%_ _%entries107474%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp109522 '1)))) - (let _%loop104722%_ ((_%probe104725%_ _%start104718%_) - (_%i104727%_ '1) - (_%deleted104729%_ '#f)) - (let ((_%k104732%_ (vector-ref _%table104706%_ _%probe104725%_))) - (if (eq? _%k104732%_ (macro-unused-obj)) - (if _%deleted104729%_ + (##fxarithmetic-shift-left __tmp112491 '1)))) + (let _%loop107481%_ ((_%probe107484%_ _%start107477%_) + (_%i107486%_ '1) + (_%deleted107488%_ '#f)) + (let ((_%k107491%_ (vector-ref _%table107465%_ _%probe107484%_))) + (if (eq? _%k107491%_ (macro-unused-obj)) + (if _%deleted107488%_ (begin (vector-set! - _%table104706%_ - _%deleted104729%_ - _%key104702%_) + _%table107465%_ + _%deleted107488%_ + _%key107461%_) (vector-set! - _%table104706%_ + _%table107465%_ (let () (declare (not safe)) - (##fx+ _%deleted104729%_ '1)) - _%value104703%_) + (##fx+ _%deleted107488%_ '1)) + (_%method-specializer-table-update!107462%_ + _%default107463%_)) ((lambda () - (let ((__tmp109523 - (let ((__tmp109524 + (let ((__tmp112492 + (let ((__tmp112493 (let () (declare (not safe)) (&raw-table-count - _%tab104701%_)))) + _%tab107460%_)))) (declare (not safe)) - (##fx+ __tmp109524 '1)))) + (##fx+ __tmp112493 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104701%_ - __tmp109523))))) + _%tab107460%_ + __tmp112492))))) (begin (vector-set! - _%table104706%_ - _%probe104725%_ - _%key104702%_) + _%table107465%_ + _%probe107484%_ + _%key107461%_) (vector-set! - _%table104706%_ + _%table107465%_ (let () (declare (not safe)) - (##fx+ _%probe104725%_ '1)) - _%value104703%_) + (##fx+ _%probe107484%_ '1)) + (_%method-specializer-table-update!107462%_ + _%default107463%_)) ((lambda () - (let ((__tmp109525 - (let ((__tmp109526 + (let ((__tmp112494 + (let ((__tmp112495 (let () (declare (not safe)) - (&raw-table-free _%tab104701%_)))) + (&raw-table-free _%tab107460%_)))) (declare (not safe)) - (##fx- __tmp109526 '1)))) + (##fx- __tmp112495 '1)))) (declare (not safe)) (&raw-table-free-set! - _%tab104701%_ - __tmp109525)) - (let ((__tmp109527 - (let ((__tmp109528 + _%tab107460%_ + __tmp112494)) + (let ((__tmp112496 + (let ((__tmp112497 (let () (declare (not safe)) (&raw-table-count - _%tab104701%_)))) + _%tab107460%_)))) (declare (not safe)) - (##fx+ __tmp109528 '1)))) + (##fx+ __tmp112497 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104701%_ - __tmp109527)))))) - (if (eq? _%k104732%_ (macro-deleted-obj)) - (_%loop104722%_ - (let ((_%next-probe104739%_ - (fx+ _%start104718%_ - _%i104727%_ - (fx* _%i104727%_ _%i104727%_)))) + _%tab107460%_ + __tmp112496)))))) + (if (eq? _%k107491%_ (macro-deleted-obj)) + (_%loop107481%_ + (let ((_%next-probe107498%_ + (fx+ _%start107477%_ + _%i107486%_ + (fx* _%i107486%_ _%i107486%_)))) (declare (not safe)) - (##fxmodulo _%next-probe104739%_ _%size104712%_)) - (let () (declare (not safe)) (##fx+ _%i104727%_ '1)) - (let ((_%$e104742%_ _%deleted104729%_)) - (if _%$e104742%_ _%$e104742%_ _%probe104725%_))) - (if (eq? _%key104702%_ _%k104732%_) + (##fxmodulo _%next-probe107498%_ _%size107471%_)) + (let () (declare (not safe)) (##fx+ _%i107486%_ '1)) + (let ((_%$e107501%_ _%deleted107488%_)) + (if _%$e107501%_ _%$e107501%_ _%probe107484%_))) + (if (eq? _%key107461%_ _%k107491%_) (let () (vector-set! - _%table104706%_ - _%probe104725%_ - _%key104702%_) + _%table107465%_ + _%probe107484%_ + _%key107461%_) (vector-set! - _%table104706%_ + _%table107465%_ (let () (declare (not safe)) - (##fx+ _%probe104725%_ '1)) - _%value104703%_)) - (_%loop104722%_ - (let ((_%next-probe104747%_ - (fx+ _%start104718%_ - _%i104727%_ - (fx* _%i104727%_ _%i104727%_)))) + (##fx+ _%probe107484%_ '1)) + (_%method-specializer-table-update!107462%_ + (vector-ref + _%table107465%_ + (let () + (declare (not safe)) + (##fx+ _%probe107484%_ '1)))))) + (_%loop107481%_ + (let ((_%next-probe107506%_ + (fx+ _%start107477%_ + _%i107486%_ + (fx* _%i107486%_ _%i107486%_)))) (declare (not safe)) (##fxmodulo - _%next-probe104747%_ - _%size104712%_)) + _%next-probe107506%_ + _%size107471%_)) (let () (declare (not safe)) - (##fx+ _%i104727%_ '1)) - _%deleted104729%_)))))))))) - (define class-specializer-table-update! - (lambda (_%tab104696%_ - _%key104697%_ - _%class-specializer-table-update!104698%_ - _%default104699%_) - (if (let ((__tmp109531 + (##fx+ _%i107486%_ '1)) + _%deleted107488%_)))))))))) + (define method-specializer-table-update! + (lambda (_%tab107455%_ + _%key107456%_ + _%method-specializer-table-update!107457%_ + _%default107458%_) + (if (let ((__tmp112500 (let () (declare (not safe)) - (&raw-table-free _%tab104696%_))) - (__tmp109529 - (let ((__tmp109530 + (&raw-table-free _%tab107455%_))) + (__tmp112498 + (let ((__tmp112499 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab104696%_))))) + (&raw-table-table _%tab107455%_))))) (declare (not safe)) - (##fxquotient __tmp109530 '4)))) + (##fxquotient __tmp112499 '4)))) (declare (not safe)) - (##fx< __tmp109531 __tmp109529)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab104696%_)) + (##fx< __tmp112500 __tmp112498)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab107455%_)) '#!void) - (__class-specializer-table-update! - _%tab104696%_ - _%key104697%_ - _%class-specializer-table-update!104698%_ - _%default104699%_))) - (define __class-specializer-table-update! - (lambda (_%tab104646%_ - _%key104647%_ - _%class-specializer-table-update!104648%_ - _%default104649%_) - (let ((_%table104652%_ - (let () (declare (not safe)) (&raw-table-table _%tab104646%_))) - (_%seed104653%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104646%_)))) - (let* ((_%h104655%_ - (fxxor (__class-specializer-hash-key _%key104647%_) - _%seed104653%_)) - (_%size104658%_ (vector-length _%table104652%_)) - (_%entries104661%_ - (let () - (declare (not safe)) - (##fxquotient _%size104658%_ '2))) - (_%start104664%_ - (let ((__tmp109532 + (__method-specializer-table-update! + _%tab107455%_ + _%key107456%_ + _%method-specializer-table-update!107457%_ + _%default107458%_))) + (define method-specializer-table-update!/lock + (lambda (_%tab107426%_ + _%key107427%_ + _%method-specializer-table-update!107428%_ + _%default107429%_) + (let ((_%lock107432%_ + (let () (declare (not safe)) (&raw-table-lock _%tab107426%_)))) + (let () + (declare (not interrupts-enabled)) + (let _%again107437%_ ((_%spin107440%_ '0)) + (if (let ((__tmp112501 (let () (declare (not safe)) - (##fxmodulo _%h104655%_ _%entries104661%_)))) + (##vector-cas! _%lock107432%_ '0 '1 '0)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp109532 '1)))) - (let _%loop104668%_ ((_%probe104671%_ _%start104664%_) - (_%i104673%_ '1) - (_%deleted104675%_ '#f)) - (let ((_%k104678%_ (vector-ref _%table104652%_ _%probe104671%_))) - (if (eq? _%k104678%_ (macro-unused-obj)) - (if _%deleted104675%_ - (begin - (vector-set! - _%table104652%_ - _%deleted104675%_ - _%key104647%_) - (vector-set! - _%table104652%_ - (let () - (declare (not safe)) - (##fx+ _%deleted104675%_ '1)) - (_%class-specializer-table-update!104648%_ - _%default104649%_)) - ((lambda () - (let ((__tmp109533 - (let ((__tmp109534 - (let () - (declare (not safe)) - (&raw-table-count - _%tab104646%_)))) - (declare (not safe)) - (##fx+ __tmp109534 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab104646%_ - __tmp109533))))) - (begin - (vector-set! - _%table104652%_ - _%probe104671%_ - _%key104647%_) - (vector-set! - _%table104652%_ - (let () - (declare (not safe)) - (##fx+ _%probe104671%_ '1)) - (_%class-specializer-table-update!104648%_ - _%default104649%_)) - ((lambda () - (let ((__tmp109535 - (let ((__tmp109536 - (let () - (declare (not safe)) - (&raw-table-free _%tab104646%_)))) - (declare (not safe)) - (##fx- __tmp109536 '1)))) - (declare (not safe)) - (&raw-table-free-set! - _%tab104646%_ - __tmp109535)) - (let ((__tmp109537 - (let ((__tmp109538 - (let () - (declare (not safe)) - (&raw-table-count - _%tab104646%_)))) - (declare (not safe)) - (##fx+ __tmp109538 '1)))) - (declare (not safe)) - (&raw-table-count-set! - _%tab104646%_ - __tmp109537)))))) - (if (eq? _%k104678%_ (macro-deleted-obj)) - (_%loop104668%_ - (let ((_%next-probe104685%_ - (fx+ _%start104664%_ - _%i104673%_ - (fx* _%i104673%_ _%i104673%_)))) + (##fx= __tmp112501 '0)) + (let ((__tmp112502 (current-thread))) + (declare (not safe)) + (##vector-set! _%lock107432%_ '1 __tmp112502)) + (if (let () (declare (not safe)) (##fx< _%spin107440%_ '10)) + (let () + (let () (declare (not safe)) (##thread-yield!)) + (_%again107437%_ + (let () (declare (not safe)) - (##fxmodulo _%next-probe104685%_ _%size104658%_)) - (let () (declare (not safe)) (##fx+ _%i104673%_ '1)) - (let ((_%$e104688%_ _%deleted104675%_)) - (if _%$e104688%_ _%$e104688%_ _%probe104671%_))) - (if (eq? _%key104647%_ _%k104678%_) - (let () - (vector-set! - _%table104652%_ - _%probe104671%_ - _%key104647%_) - (vector-set! - _%table104652%_ - (let () - (declare (not safe)) - (##fx+ _%probe104671%_ '1)) - (_%class-specializer-table-update!104648%_ - (vector-ref - _%table104652%_ - (let () - (declare (not safe)) - (##fx+ _%probe104671%_ '1)))))) - (_%loop104668%_ - (let ((_%next-probe104693%_ - (fx+ _%start104664%_ - _%i104673%_ - (fx* _%i104673%_ _%i104673%_)))) - (declare (not safe)) - (##fxmodulo - _%next-probe104693%_ - _%size104658%_)) + (##fx+ _%spin107440%_ '1)))) + (let ((_%owner107446%_ (let () (declare (not safe)) - (##fx+ _%i104673%_ '1)) - _%deleted104675%_)))))))))) - (define class-specializer-table-delete! - (lambda (_%tab104601%_ _%key104603%_) - (let ((_%table104606%_ - (let () (declare (not safe)) (&raw-table-table _%tab104601%_))) - (_%seed104608%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104601%_)))) - (let* ((_%h104611%_ - (fxxor (__class-specializer-hash-key _%key104603%_) - _%seed104608%_)) - (_%size104614%_ (vector-length _%table104606%_)) - (_%entries104617%_ + (##vector-ref _%lock107432%_ '1)))) + (if (eq? _%owner107446%_ (macro-current-thread)) + (let () + (declare (not safe)) + (##thread-deadlock-action!)) + (if (macro-thread-end-condvar _%owner107446%_) + (let () + (let () + (declare (not safe)) + (##thread-yield!)) + (_%again107437%_ '0)) + (let () + (declare (not safe)) + (##thread-deadlock-action!))))))))) + (let ((_%$r107452%_ + (_%method-specializer-table-update!107428%_ + _%tab107426%_ + _%key107427%_ + _%method-specializer-table-update!107428%_ + _%default107429%_))) + (let () (declare (not safe)) (##vector-set! _%lock107432%_ '1 '#f)) + (let () + (declare (not safe)) + (##vector-cas! _%lock107432%_ '0 '0 '1)) + _%$r107452%_)))) + (define method-specializer-table-delete! + (lambda (_%tab107383%_ _%key107384%_) + (let ((_%table107386%_ + (let () (declare (not safe)) (&raw-table-table _%tab107383%_))) + (_%seed107388%_ + (let () (declare (not safe)) (&raw-table-seed _%tab107383%_)))) + (let* ((_%h107391%_ + (fxxor (let () + (declare (not safe)) + (procedure-hash _%key107384%_)) + _%seed107388%_)) + (_%size107394%_ (vector-length _%table107386%_)) + (_%entries107397%_ (let () (declare (not safe)) - (##fxquotient _%size104614%_ '2))) - (_%start104620%_ - (let ((__tmp109539 + (##fxquotient _%size107394%_ '2))) + (_%start107400%_ + (let ((__tmp112503 (let () (declare (not safe)) - (##fxmodulo _%h104611%_ _%entries104617%_)))) + (##fxmodulo _%h107391%_ _%entries107397%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp109539 '1)))) - (let _%loop104624%_ ((_%probe104627%_ _%start104620%_) - (_%i104629%_ '1)) - (let ((_%k104632%_ (vector-ref _%table104606%_ _%probe104627%_))) - (if (eq? _%k104632%_ (macro-unused-obj)) + (##fxarithmetic-shift-left __tmp112503 '1)))) + (let _%loop107404%_ ((_%probe107407%_ _%start107400%_) + (_%i107409%_ '1)) + (let ((_%k107412%_ (vector-ref _%table107386%_ _%probe107407%_))) + (if (eq? _%k107412%_ (macro-unused-obj)) '#!void - (if (eq? _%k104632%_ (macro-deleted-obj)) - (_%loop104624%_ - (let ((_%next-probe104637%_ - (fx+ _%start104620%_ - _%i104629%_ - (fx* _%i104629%_ _%i104629%_)))) + (if (eq? _%k107412%_ (macro-deleted-obj)) + (_%loop107404%_ + (let ((_%next-probe107417%_ + (fx+ _%start107400%_ + _%i107409%_ + (fx* _%i107409%_ _%i107409%_)))) (declare (not safe)) - (##fxmodulo _%next-probe104637%_ _%size104614%_)) - (let () (declare (not safe)) (##fx+ _%i104629%_ '1))) - (if (eq? _%key104603%_ _%k104632%_) + (##fxmodulo _%next-probe107417%_ _%size107394%_)) + (let () (declare (not safe)) (##fx+ _%i107409%_ '1))) + (if (eq? _%key107384%_ _%k107412%_) (let () (vector-set! - _%table104606%_ - _%probe104627%_ + _%table107386%_ + _%probe107407%_ (macro-deleted-obj)) (vector-set! - _%table104606%_ + _%table107386%_ (let () (declare (not safe)) - (##fx+ _%probe104627%_ '1)) + (##fx+ _%probe107407%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp109540 - (let ((__tmp109541 + (let ((__tmp112504 + (let ((__tmp112505 (let () (declare (not safe)) (&raw-table-count - _%tab104601%_)))) + _%tab107383%_)))) (declare (not safe)) - (##fx- __tmp109541 '1)))) + (##fx- __tmp112505 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104601%_ - __tmp109540))))) - (_%loop104624%_ - (let ((_%next-probe104643%_ - (fx+ _%start104620%_ - _%i104629%_ - (fx* _%i104629%_ _%i104629%_)))) + _%tab107383%_ + __tmp112504))))) + (_%loop107404%_ + (let ((_%next-probe107423%_ + (fx+ _%start107400%_ + _%i107409%_ + (fx* _%i107409%_ _%i107409%_)))) (declare (not safe)) (##fxmodulo - _%next-probe104643%_ - _%size104614%_)) + _%next-probe107423%_ + _%size107394%_)) + (let () + (declare (not safe)) + (##fx+ _%i107409%_ '1)))))))))))) + (define method-specializer-table-delete!/lock + (lambda (_%tab107355%_ _%key107357%_) + (let ((_%lock107360%_ + (let () (declare (not safe)) (&raw-table-lock _%tab107355%_)))) + (let () + (declare (not interrupts-enabled)) + (let _%again107365%_ ((_%spin107368%_ '0)) + (if (let ((__tmp112506 + (let () + (declare (not safe)) + (##vector-cas! _%lock107360%_ '0 '1 '0)))) + (declare (not safe)) + (##fx= __tmp112506 '0)) + (let ((__tmp112507 (current-thread))) + (declare (not safe)) + (##vector-set! _%lock107360%_ '1 __tmp112507)) + (if (let () (declare (not safe)) (##fx< _%spin107368%_ '10)) + (let () + (let () (declare (not safe)) (##thread-yield!)) + (_%again107365%_ + (let () + (declare (not safe)) + (##fx+ _%spin107368%_ '1)))) + (let ((_%owner107374%_ (let () (declare (not safe)) - (##fx+ _%i104629%_ '1)))))))))))) - (define __class-specializers-mx (vector '0)) - (define __class-specializers (make-class-specializer-table__% '#f '0)) - (define __class-specializers-key (cons '#f '#f)) + (##vector-ref _%lock107360%_ '1)))) + (if (eq? _%owner107374%_ (macro-current-thread)) + (let () + (declare (not safe)) + (##thread-deadlock-action!)) + (if (macro-thread-end-condvar _%owner107374%_) + (let () + (let () + (declare (not safe)) + (##thread-yield!)) + (_%again107365%_ '0)) + (let () + (declare (not safe)) + (##thread-deadlock-action!))))))))) + (let ((_%$r107380%_ + (method-specializer-table-delete! + _%tab107355%_ + _%key107357%_))) + (let () (declare (not safe)) (##vector-set! _%lock107360%_ '1 '#f)) + (let () + (declare (not safe)) + (##vector-cas! _%lock107360%_ '0 '0 '1)) + _%$r107380%_)))) + (define __method-specializers + (make-method-specializer-table/lock__% '#f '0)) + (define bind-specializer! + (lambda (_%method-proc107352%_ _%specializer107353%_) + (method-specializer-table-set!/lock + __method-specializers + _%method-proc107352%_ + _%specializer107353%_))) + (define __lookup-method-specializer + (lambda (_%proc107350%_) + (method-specializer-table-ref/lock + __method-specializers + _%proc107350%_ + '#f))) (define specialize-class - (lambda (_%klass104587%_) + (lambda (_%klass107336%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass104587%_ 'class)) - (let ((_%klass104591%_ _%klass104587%_)) - (__specialize-class _%klass104591%_)) + (##structure-instance-of? _%klass107336%_ 'class)) + (let ((_%klass107340%_ _%klass107336%_)) + (__specialize-class _%klass107340%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@1025.25-1025.30" + '"\"gerbil/runtime/mop.ss\"@1069.25-1069.30" 'contract: 'class-type? 'value: - _%klass104587%_) + _%klass107336%_) '#!void)))) (define __specialize-class - (lambda (_%klass104569%_) - (let* ((_%klass104572%_ _%klass104569%_) - (_%$e104581%_ (__lookup-class-specializer _%klass104572%_))) - (if _%$e104581%_ - _%$e104581%_ - (let ((_%method-table104585%_ - (___specialize-class _%klass104572%_))) - (__bind-class-specializer! - _%klass104572%_ - _%method-table104585%_) - _%method-table104585%_))))) - (define __lookup-class-specializer - (lambda (_%klass104559%_) - (let () - (declare (not interrupts-enabled)) - (let _%again104563%_ () - (if (let ((__tmp109542 - (let () - (declare (not safe)) - (##vector-cas! __class-specializers-mx '0 '1 '0)))) + (lambda (_%klass107318%_) + (let* ((_%klass107321%_ _%klass107318%_) + (_%$e107330%_ + (let () (declare (not safe)) - (##fx= __tmp109542 '0)) - '#!void - (begin - (let () (declare (not safe)) (##thread-yield!)) - (_%again104563%_))))) - (let ((_%method-table104567%_ - (class-specializer-table-ref - __class-specializers - _%klass104559%_ - '#f))) - (let () - (declare (not safe)) - (##vector-cas! __class-specializers-mx '0 '0 '1)) - _%method-table104567%_))) - (define __bind-class-specializer! - (lambda (_%klass104550%_ _%method-table104551%_) - (let () - (declare (not interrupts-enabled)) - (let _%again104555%_ () - (if (let ((__tmp109543 - (let () - (declare (not safe)) - (##vector-cas! __class-specializers-mx '0 '1 '0)))) + (##unchecked-structure-ref _%klass107321%_ '12 '#f '#f)))) + (if _%$e107330%_ + _%$e107330%_ + (let ((_%method-table107334%_ + (___specialize-class _%klass107321%_))) + (let () (declare (not safe)) - (##fx= __tmp109543 '0)) - '#!void - (begin - (let () (declare (not safe)) (##thread-yield!)) - (_%again104555%_))))) - (class-specializer-table-set! - __class-specializers - _%klass104550%_ - _%method-table104551%_) - (let () - (declare (not safe)) - (##vector-cas! __class-specializers-mx '0 '0 '1)))) + (##unchecked-structure-set! + _%klass107321%_ + _%method-table107334%_ + '12 + '#f + '#f)) + _%method-table107334%_))))) (define __specialize-method - (lambda (_%klass104534%_ - _%method-table104535%_ - _%method104536%_ - _%proc104537%_) - (let ((_%$e104539%_ + (lambda (_%klass107302%_ + _%method-table107303%_ + _%method107304%_ + _%proc107305%_) + (let ((_%$e107307%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table104535%_ - _%method104536%_ + _%method-table107303%_ + _%method107304%_ '#f)))) - (if _%$e104539%_ - _%$e104539%_ - (let ((_%$e104542%_ - (__lookup-method-specializer _%proc104537%_))) - (if _%$e104542%_ - ((lambda (_%specialize104545%_) - (let ((_%specialized-proc104547%_ - (_%specialize104545%_ - _%klass104534%_ - _%method-table104535%_))) + (if _%$e107307%_ + _%$e107307%_ + (let ((_%$e107310%_ + (__lookup-method-specializer _%proc107305%_))) + (if _%$e107310%_ + ((lambda (_%specialize107313%_) + (let ((_%specialized-proc107315%_ + (_%specialize107313%_ + _%klass107302%_ + _%method-table107303%_))) (declare (not safe)) (symbolic-table-set! - _%method-table104535%_ - _%method104536%_ - _%specialized-proc104547%_))) - _%$e104542%_) + _%method-table107303%_ + _%method107304%_ + _%specialized-proc107315%_))) + _%$e107310%_) (let () (declare (not safe)) (symbolic-table-set! - _%method-table104535%_ - _%method104536%_ - _%proc104537%_)))))))) + _%method-table107303%_ + _%method107304%_ + _%proc107305%_)))))))) (define ___specialize-class - (lambda (_%klass104476%_) + (lambda (_%klass107245%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass104476%_ 'class)) - (if (__class-type-metaclass? _%klass104476%_) - (let ((__method109391 - (__method-ref _%klass104476%_ 'specialize-class))) - (if __method109391 + (##structure-instance-of? _%klass107245%_ 'class)) + (if (__class-type-metaclass? _%klass107245%_) + (let ((__method112370 + (__method-ref _%klass107245%_ 'specialize-class))) + (if __method112370 (let () (declare (not safe)) - (__method109391 _%klass104476%_)) + (__method112370 _%klass107245%_)) (begin (error '"Missing method" - _%klass104476%_ + _%klass107245%_ 'specialize-class) '#!void))) - (if (let ((__tmp109544 + (if (let ((__tmp112508 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass104476%_ + _%klass107245%_ '6 '#f '#f)))) (declare (not safe)) - (__find class-type-metaclass? __tmp109544)) + (__find class-type-metaclass? __tmp112508)) (error '"cannot specialize class that extends metaclass without a metaclass" - _%klass104476%_) - (let ((_%method-table104482%_ + _%klass107245%_) + (let ((_%method-table107251%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _%loop104484%_ ((_%rest104486%_ + (let _%loop107253%_ ((_%rest107255%_ (__class-precedence-list - _%klass104476%_))) - (let* ((_%rest104487104495%_ _%rest104486%_) - (_%else104489104503%_ - (lambda () _%method-table104482%_)) - (_%K104491104522%_ - (lambda (_%rest104506%_ _%xklass104507%_) - (let ((_%xmethod-table104508104510%_ + _%klass107245%_))) + (let* ((_%rest107256107264%_ _%rest107255%_) + (_%else107258107272%_ + (lambda () _%method-table107251%_)) + (_%K107260107290%_ + (lambda (_%rest107275%_ _%xklass107276%_) + (let ((_%xmethod-table107277107279%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%xklass104507%_ + _%xklass107276%_ '11 '#f '#f)))) - (if _%xmethod-table104508104510%_ - (let* ((_%xmethod-table104513%_ - _%xmethod-table104508104510%_) - (__tmp109545 - (lambda (_%g104514104517%_ - _%g104515104519%_) + (if _%xmethod-table107277107279%_ + (let* ((_%xmethod-table107281%_ + _%xmethod-table107277107279%_) + (__tmp112509 + (lambda (_%g107282107285%_ + _%g107283107287%_) (__specialize-method - _%klass104476%_ - _%method-table104482%_ - _%g104514104517%_ - _%g104515104519%_)))) + _%klass107245%_ + _%method-table107251%_ + _%g107282107285%_ + _%g107283107287%_)))) (declare (not safe)) (raw-table-for-each - _%xmethod-table104513%_ - __tmp109545)) + _%xmethod-table107281%_ + __tmp112509)) '#f)) - (_%loop104484%_ _%rest104506%_)))) - (if (pair? _%rest104487104495%_) - (let ((_%hd104492104525%_ + (_%loop107253%_ _%rest107275%_)))) + (if (pair? _%rest107256107264%_) + (let ((_%hd107261107293%_ (let () (declare (not safe)) - (##car _%rest104487104495%_))) - (_%tl104493104527%_ + (##car _%rest107256107264%_))) + (_%tl107262107295%_ (let () (declare (not safe)) - (##cdr _%rest104487104495%_)))) - (let* ((_%xklass104530%_ _%hd104492104525%_) - (_%rest104532%_ _%tl104493104527%_)) - (_%K104491104522%_ - _%rest104532%_ - _%xklass104530%_))) - (_%else104489104503%_))))))) - (if (let () (declare (not safe)) (##type? _%klass104476%_)) - (__specialize-class (__shadow-class _%klass104476%_)) - (error '"bad class; cannot specialize" _%klass104476%_))))) + (##cdr _%rest107256107264%_)))) + (let* ((_%xklass107298%_ _%hd107261107293%_) + (_%rest107300%_ _%tl107262107295%_)) + (_%K107260107290%_ + _%rest107300%_ + _%xklass107298%_))) + (_%else107258107272%_))))))) + (if (let () (declare (not safe)) (##type? _%klass107245%_)) + (__specialize-class (__shadow-class__0 _%klass107245%_)) + (error '"bad class; cannot specialize" _%klass107245%_))))) (define seal-class! - (lambda (_%klass104462%_) + (lambda (_%klass107231%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass104462%_ 'class)) - (let ((_%klass104466%_ _%klass104462%_)) - (__seal-class! _%klass104466%_)) + (##structure-instance-of? _%klass107231%_ 'class)) + (let ((_%klass107235%_ _%klass107231%_)) + (__seal-class! _%klass107235%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@1082.20-1082.25" + '"\"gerbil/runtime/mop.ss\"@1115.20-1115.25" 'contract: 'class-type? 'value: - _%klass104462%_) + _%klass107231%_) '#!void)))) (define __seal-class! - (lambda (_%klass104445%_) - (let ((_%klass104448%_ _%klass104445%_)) - (if (__class-type-sealed? _%klass104448%_) + (lambda (_%klass107216%_) + (let ((_%klass107219%_ _%klass107216%_)) + (if (__class-type-sealed? _%klass107219%_) '#!void (begin - (if (__class-type-final? _%klass104448%_) - '#!void - (error '"cannot seal non-final class" _%klass104448%_)) - (if (__class-type-metaclass? _%klass104448%_) - (let ((__method109392 - (__method-ref _%klass104448%_ 'seal-class!))) - (if __method109392 - (let () - (declare (not safe)) - (__method109392 _%klass104448%_)) - (begin - (error '"Missing method" - _%klass104448%_ - 'seal-class!) - '#!void))) - (if (let ((__tmp109546 + (if (__class-type-metaclass? _%klass107219%_) + (let () + (let ((__method112371 + (__method-ref _%klass107219%_ 'seal-class!))) + (if __method112371 + (let () + (declare (not safe)) + (__method112371 _%klass107219%_)) + (begin + (error '"Missing method" + _%klass107219%_ + 'seal-class!) + '#!void))) + (__specialize-class _%klass107219%_)) + (if (let ((__tmp112510 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass104448%_ + _%klass107219%_ '6 '#f '#f)))) (declare (not safe)) - (__find class-type-metaclass? __tmp109546)) + (__find class-type-metaclass? __tmp112510)) (error '"cannot seal class that extends metaclass without a metaclass" - _%klass104448%_) - (let ((_%method-table104460%_ - (__specialize-class _%klass104448%_))) - (declare (not safe)) - (##unchecked-structure-set! - _%klass104448%_ - _%method-table104460%_ - '11 - '#f - '#f)))) - (__class-type-seal! _%klass104448%_)))))) + _%klass107219%_) + (__specialize-class _%klass107219%_))) + (__class-type-seal! _%klass107219%_)))))) (define next-method - (lambda (_%subklass104419%_ _%obj104420%_ _%id104421%_) + (lambda (_%subklass107190%_ _%obj107191%_ _%id107192%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%subklass104419%_ 'class)) - (let ((_%subklass104425%_ _%subklass104419%_)) - (if (symbol? _%id104421%_) - (let ((_%id104435%_ _%id104421%_)) + (##structure-instance-of? _%subklass107190%_ 'class)) + (let ((_%subklass107196%_ _%subklass107190%_)) + (if (symbol? _%id107192%_) + (let ((_%id107206%_ _%id107192%_)) (__next-method - _%subklass104425%_ - _%obj104420%_ - _%id104435%_)) + _%subklass107196%_ + _%obj107191%_ + _%id107206%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@1106.44-1106.46" + '"\"gerbil/runtime/mop.ss\"@1137.44-1137.46" 'contract: 'symbol? 'value: - _%id104421%_) + _%id107192%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@1106.20-1106.28" + '"\"gerbil/runtime/mop.ss\"@1137.20-1137.28" 'contract: 'class-type? 'value: - _%subklass104419%_) + _%subklass107190%_) '#!void)))) (define __next-method - (lambda (_%subklass104356%_ _%obj104357%_ _%id104358%_) - (let* ((_%subklass104361%_ _%subklass104356%_) - (_%id104369%_ _%id104358%_)) - (letrec ((_%find-next-method104378%_ - (lambda (_%klass104380%_) - (let _%lp104382%_ ((_%rest104384%_ + (lambda (_%subklass107127%_ _%obj107128%_ _%id107129%_) + (let* ((_%subklass107132%_ _%subklass107127%_) + (_%id107140%_ _%id107129%_)) + (letrec ((_%find-next-method107149%_ + (lambda (_%klass107151%_) + (let _%lp107153%_ ((_%rest107155%_ (class-precedence-list - _%klass104380%_))) - (let* ((_%rest104385104393%_ _%rest104384%_) - (_%else104387104401%_ (lambda () '#f)) - (_%K104389104407%_ - (lambda (_%rest104404%_ _%klass104405%_) + _%klass107151%_))) + (let* ((_%rest107156107164%_ _%rest107155%_) + (_%else107158107172%_ (lambda () '#f)) + (_%K107160107178%_ + (lambda (_%rest107175%_ _%klass107176%_) (if (eq? (let () (declare (not safe)) - (##type-id _%subklass104361%_)) + (##type-id _%subklass107132%_)) (let () (declare (not safe)) - (##type-id _%klass104405%_))) + (##type-id _%klass107176%_))) (__mixin-find-method - _%rest104404%_ - _%obj104357%_ - _%id104369%_) - (_%lp104382%_ _%rest104404%_))))) - (if (pair? _%rest104385104393%_) - (let ((_%hd104390104410%_ + _%rest107175%_ + _%obj107128%_ + _%id107140%_) + (_%lp107153%_ _%rest107175%_))))) + (if (pair? _%rest107156107164%_) + (let ((_%hd107161107181%_ (let () (declare (not safe)) - (##car _%rest104385104393%_))) - (_%tl104391104412%_ + (##car _%rest107156107164%_))) + (_%tl107162107183%_ (let () (declare (not safe)) - (##cdr _%rest104385104393%_)))) - (let* ((_%klass104415%_ _%hd104390104410%_) - (_%rest104417%_ _%tl104391104412%_)) - (_%K104389104407%_ - _%rest104417%_ - _%klass104415%_))) - (_%else104387104401%_))))))) - (_%find-next-method104378%_ (class-of _%obj104357%_)))))) + (##cdr _%rest107156107164%_)))) + (let* ((_%klass107186%_ _%hd107161107181%_) + (_%rest107188%_ _%tl107162107183%_)) + (_%K107160107178%_ + _%rest107188%_ + _%klass107186%_))) + (_%else107158107172%_))))))) + (_%find-next-method107149%_ (class-of _%obj107128%_)))))) (define call-next-method - (lambda (_%subklass104329%_ _%obj104330%_ _%id104331%_ . _%args104332%_) + (lambda (_%subklass107100%_ _%obj107101%_ _%id107102%_ . _%args107103%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%subklass104329%_ 'class)) - (let ((_%subklass104336%_ _%subklass104329%_)) - (if (symbol? _%id104331%_) - (let ((_%id104346%_ _%id104331%_)) + (##structure-instance-of? _%subklass107100%_ 'class)) + (let ((_%subklass107107%_ _%subklass107100%_)) + (if (symbol? _%id107102%_) + (let ((_%id107117%_ _%id107102%_)) (declare (not safe)) (##apply __call-next-method - _%subklass104336%_ - _%obj104330%_ - _%id104346%_ - _%args104332%_)) + _%subklass107107%_ + _%obj107101%_ + _%id107117%_ + _%args107103%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@1117.49-1117.51" + '"\"gerbil/runtime/mop.ss\"@1148.49-1148.51" 'contract: 'symbol? 'value: - _%id104331%_) + _%id107102%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/mop.ss\"@1117.25-1117.33" + '"\"gerbil/runtime/mop.ss\"@1148.25-1148.33" 'contract: 'class-type? 'value: - _%subklass104329%_) + _%subklass107100%_) '#!void)))) (define __call-next-method - (lambda (_%subklass104300%_ _%obj104301%_ _%id104302%_ . _%args104303%_) - (let* ((_%subklass104306%_ _%subklass104300%_) - (_%id104314%_ _%id104302%_) - (_%$e104323%_ - (__next-method _%subklass104306%_ _%obj104301%_ _%id104314%_))) - (if _%$e104323%_ - ((lambda (_%methodf104326%_) - (apply _%methodf104326%_ _%obj104301%_ _%args104303%_)) - _%$e104323%_) + (lambda (_%subklass107071%_ _%obj107072%_ _%id107073%_ . _%args107074%_) + (let* ((_%subklass107077%_ _%subklass107071%_) + (_%id107085%_ _%id107073%_) + (_%$e107094%_ + (__next-method _%subklass107077%_ _%obj107072%_ _%id107085%_))) + (if _%$e107094%_ + ((lambda (_%methodf107097%_) + (apply _%methodf107097%_ _%obj107072%_ _%args107074%_)) + _%$e107094%_) (error '"cannot find next method" 'object: - _%obj104301%_ + _%obj107072%_ 'method: - _%id104314%_))))) - (define write-style - (lambda (_%we104298%_) (values (macro-writeenv-style _%we104298%_)))) - (define write-object - (lambda (_%we104289%_ _%obj104290%_) - (let ((_%$e104292%_ (__method-ref _%obj104290%_ ':wr))) - (if _%$e104292%_ - ((lambda (_%method104295%_) - (_%method104295%_ _%obj104290%_ _%we104289%_)) - _%$e104292%_) - (let () - (declare (not safe)) - (##default-wr _%we104289%_ _%obj104290%_)))))) + _%id107085%_))))) (define __shadow-classes (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) - (define __shadow-classes-mx (vector '0)) - (define __shadow-class - (lambda (_%type104204%_) - (letrec ((_%shadow-type-id104206%_ - (lambda (_%type104287%_) - (let ((__tmp109547 + (define __shadow-classes-lock (vector '0 '#f)) + (define __shadow-class__% + (lambda (_%type106964%_ _%properties106965%_) + (letrec ((_%shadow-type-id106967%_ + (lambda (_%type107059%_) + (let ((__tmp112511 (let () (declare (not safe)) - (##type-name _%type104287%_)))) + (##type-name _%type107059%_)))) (declare (not safe)) - (make-symbol__1 __tmp109547 '"::t")))) - (_%shadow-type-name104207%_ - (lambda (_%type104285%_) + (make-symbol__1 __tmp112511 '"::t")))) + (_%shadow-type-name106968%_ + (lambda (_%type107057%_) (let () (declare (not safe)) - (##type-name _%type104285%_)))) - (_%make-shadow-class104208%_ - (lambda (_%type104277%_ _%precedence-list104278%_) - (let* ((_%super104280%_ - (if (pair? _%precedence-list104278%_) + (##type-name _%type107057%_)))) + (_%make-shadow-class106969%_ + (lambda (_%type107049%_ _%precedence-list107050%_) + (let* ((_%super107052%_ + (if (pair? _%precedence-list107050%_) (cons (let () (declare (not safe)) - (##car _%precedence-list104278%_)) + (##car _%precedence-list107050%_)) '()) '())) - (_%klass104282%_ + (_%klass107054%_ (make-class-type - (_%shadow-type-id104206%_ _%type104277%_) + (_%shadow-type-id106967%_ _%type107049%_) (let () (declare (not safe)) - (##type-name _%type104277%_)) - _%super104280%_ + (##type-name _%type107049%_)) + _%super107052%_ '() (cons (cons 'struct: '#t) (cons (cons 'system: '#t) - (if (__type-extensible? - _%type104277%_) - '() - (cons (cons 'final: '#t) '())))) + (cons (cons 'system-type: + _%type107049%_) + (let ((__tmp112512 + (if (__type-extensible? + _%type107049%_) + '() + (cons (cons 'final: +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#t) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (__foldr1 + cons + _%properties106965%_ + __tmp112512))))) '#f))) - (let ((__tmp109548 + (let ((__tmp112513 (let () (declare (not safe)) - (##type-id _%type104277%_)))) + (##type-id _%type107049%_)))) (declare (not safe)) (symbolic-table-set! __shadow-classes - __tmp109548 - _%klass104282%_)) - _%klass104282%_)))) + __tmp112513 + _%klass107054%_)) + _%klass107054%_)))) (let () (declare (not interrupts-enabled)) - (let _%again104212%_ () - (if (let ((__tmp109549 + (let _%again106973%_ ((_%spin106976%_ '0)) + (if (let ((__tmp112514 (let () (declare (not safe)) - (##vector-cas! __shadow-classes-mx '0 '1 '0)))) + (##vector-cas! __shadow-classes-lock '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp109549 '0)) - '#!void - (begin - (let () (declare (not safe)) (##thread-yield!)) - (_%again104212%_))))) - (let ((_%$e104216%_ - (let ((__tmp109550 + (##fx= __tmp112514 '0)) + (let ((__tmp112515 (current-thread))) + (declare (not safe)) + (##vector-set! __shadow-classes-lock '1 __tmp112515)) + (if (let () (declare (not safe)) (##fx< _%spin106976%_ '10)) + (let () + (let () (declare (not safe)) (##thread-yield!)) + (_%again106973%_ + (let () + (declare (not safe)) + (##fx+ _%spin106976%_ '1)))) + (let ((_%owner106982%_ + (let () + (declare (not safe)) + (##vector-ref __shadow-classes-lock '1)))) + (if (eq? _%owner106982%_ (macro-current-thread)) + (let () + (declare (not safe)) + (##thread-deadlock-action!)) + (if (macro-thread-end-condvar _%owner106982%_) + (let () + (let () + (declare (not safe)) + (##thread-yield!)) + (_%again106973%_ '0)) + (let () + (declare (not safe)) + (##thread-deadlock-action!))))))))) + (let ((_%$e106988%_ + (let ((__tmp112516 (let () (declare (not safe)) - (##type-id _%type104204%_)))) + (##type-id _%type106964%_)))) (declare (not safe)) - (symbolic-table-ref __shadow-classes __tmp109550 '#f)))) - (if _%$e104216%_ - ((lambda (_%klass104219%_) + (symbolic-table-ref __shadow-classes __tmp112516 '#f)))) + (if _%$e106988%_ + ((lambda (_%klass106991%_) (let () (declare (not safe)) - (##vector-cas! __shadow-classes-mx '0 '0 '1)) - _%klass104219%_) - _%$e104216%_) - (let _%loop104222%_ ((_%super104224%_ + (##vector-set! __shadow-classes-lock '1 '#f)) + (let () + (declare (not safe)) + (##vector-cas! __shadow-classes-lock '0 '0 '1)) + _%klass106991%_) + _%$e106988%_) + (let _%loop106994%_ ((_%super106996%_ (let () (declare (not safe)) - (##type-super _%type104204%_))) - (_%hierarchy104225%_ '())) - (if (not _%super104224%_) - (let _%loop104228%_ ((_%rest104230%_ _%hierarchy104225%_) - (_%precedence-list104231%_ '())) - (let* ((_%rest104232104240%_ _%rest104230%_) - (_%else104234104250%_ + (##type-super _%type106964%_))) + (_%hierarchy106997%_ '())) + (if (not _%super106996%_) + (let _%loop107000%_ ((_%rest107002%_ _%hierarchy106997%_) + (_%precedence-list107003%_ '())) + (let* ((_%rest107004107012%_ _%rest107002%_) + (_%else107006107022%_ (lambda () - (let ((_%klass104248%_ - (_%make-shadow-class104208%_ - _%type104204%_ - _%precedence-list104231%_))) + (let ((_%klass107020%_ + (_%make-shadow-class106969%_ + _%type106964%_ + _%precedence-list107003%_))) + (let () + (declare (not safe)) + (##vector-set! + __shadow-classes-lock + '1 + '#f)) (let () (declare (not safe)) (##vector-cas! - __shadow-classes-mx + __shadow-classes-lock '0 '0 '1)) - _%klass104248%_))) - (_%K104236104264%_ - (lambda (_%rest104253%_ _%type104254%_) - (let ((_%$e104256%_ - (let ((__tmp109551 + _%klass107020%_))) + (_%K107008107036%_ + (lambda (_%rest107025%_ _%type107026%_) + (let ((_%$e107028%_ + (let ((__tmp112517 (let () (declare (not safe)) - (##type-id _%type104254%_)))) + (##type-id _%type107026%_)))) (declare (not safe)) (symbolic-table-ref __shadow-classes - __tmp109551 + __tmp112517 '#f)))) - (if _%$e104256%_ - ((lambda (_%klass104259%_) - (_%loop104228%_ - _%rest104253%_ - (cons _%klass104259%_ - _%precedence-list104231%_))) - _%$e104256%_) - (let ((_%klass104262%_ - (_%make-shadow-class104208%_ - _%type104254%_ - _%precedence-list104231%_))) - (_%loop104228%_ - _%rest104253%_ - (cons _%klass104262%_ - _%precedence-list104231%_)))))))) - (if (pair? _%rest104232104240%_) - (let ((_%hd104237104267%_ + (if _%$e107028%_ + ((lambda (_%klass107031%_) + (_%loop107000%_ + _%rest107025%_ + (cons _%klass107031%_ + _%precedence-list107003%_))) + _%$e107028%_) + (let ((_%klass107034%_ + (_%make-shadow-class106969%_ + _%type107026%_ + _%precedence-list107003%_))) + (_%loop107000%_ + _%rest107025%_ + (cons _%klass107034%_ + _%precedence-list107003%_)))))))) + (if (pair? _%rest107004107012%_) + (let ((_%hd107009107039%_ (let () (declare (not safe)) - (##car _%rest104232104240%_))) - (_%tl104238104269%_ + (##car _%rest107004107012%_))) + (_%tl107010107041%_ (let () (declare (not safe)) - (##cdr _%rest104232104240%_)))) - (let* ((_%type104272%_ _%hd104237104267%_) - (_%rest104274%_ _%tl104238104269%_)) - (_%K104236104264%_ - _%rest104274%_ - _%type104272%_))) - (_%else104234104250%_)))) - (_%loop104222%_ + (##cdr _%rest107004107012%_)))) + (let* ((_%type107044%_ _%hd107009107039%_) + (_%rest107046%_ _%tl107010107041%_)) + (_%K107008107036%_ + _%rest107046%_ + _%type107044%_))) + (_%else107006107022%_)))) + (_%loop106994%_ (let () (declare (not safe)) - (##type-super _%super104224%_)) - (cons _%super104224%_ _%hierarchy104225%_))))))))) + (##type-super _%super106996%_)) + (cons _%super106996%_ _%hierarchy106997%_))))))))) + (define __shadow-class__0 + (lambda (_%type107064%_) + (let ((_%properties107066%_ '())) + (__shadow-class__% _%type107064%_ _%properties107066%_)))) + (define __shadow-class + (lambda _g112518_ + (let ((_g112519_ (let () (declare (not safe)) (##length _g112518_)))) + (cond ((let () (declare (not safe)) (##fx= _g112519_ 1)) + (apply __shadow-class__0 _g112518_)) + ((let () (declare (not safe)) (##fx= _g112519_ 2)) + (apply __shadow-class__% _g112518_)) + (else + (##raise-wrong-number-of-arguments-exception + __shadow-class + _g112518_)))))) (define __type - (let* ((_%tb104193%_ + (let* ((_%tb106952%_ (let () (declare (not safe)) (##c-code '"___RESULT = ___FIX(___TB);"))) - (_%$e104195%_ _%tb104193%_)) - (if (eq? '2 _%$e104195%_) + (_%$e106954%_ _%tb106952%_)) + (if (eq? '2 _%$e106954%_) '#(fixnum subtyped special pair) - (if (eq? '3 _%$e104195%_) - (let ((_%flonum-self-tagging-tags104198%_ + (if (eq? '3 _%$e106954%_) + (let ((_%flonum-self-tagging-tags106957%_ (let () (declare (not safe)) (##c-code '"___RESULT = ___FIX(___FLONUM_SELF_TAGGING_TAGS);"))) - (_%fixnum-tag-bits104199%_ + (_%fixnum-tag-bits106958%_ (let () (declare (not safe)) (##c-code '"#ifdef ___USE_2_TAG_BITS_FOR_FIXNUMS\n___RESULT = ___FIX(2) ;\n#else\n___RESULT = ___FIX(3) ;\n#endif")))) - (let ((_%$e104201%_ _%flonum-self-tagging-tags104198%_)) - (if (eq? '0 _%$e104201%_) + (let ((_%$e106960%_ _%flonum-self-tagging-tags106957%_)) + (if (eq? '0 _%$e106960%_) (if (let () (declare (not safe)) - (##fx= _%fixnum-tag-bits104199%_ '2)) + (##fx= _%fixnum-tag-bits106958%_ '2)) '#(fixnum subtyped special @@ -5269,7 +5289,7 @@ fixnum pair undefined - flonum) + haflonum) '#(fixnum subtyped undefined @@ -5277,158 +5297,173 @@ special pair undefined - flonum)) - (if (eq? '1 _%$e104201%_) + haflonum)) + (if (eq? '1 _%$e106960%_) (if (let () (declare (not safe)) - (##fx= _%fixnum-tag-bits104199%_ '2)) + (##fx= _%fixnum-tag-bits106958%_ '2)) '#(fixnum subtyped special vector fixnum pair - flonum - flonum) + stflonum + haflonum) '#(fixnum subtyped undefined vector special pair - flonum - flonum)) - (if (eq? '2 _%$e104201%_) + stflonum + haflonum)) + (if (eq? '2 _%$e106960%_) '#(fixnum subtyped - flonum - flonum + stflonum + haflonum special pair - flonum + stflonum undefined) - (if (eq? '3 _%$e104201%_) + (if (eq? '3 _%$e106960%_) '#(fixnum subtyped - flonum - flonum + haflonum + immedate-flonum special pair - flonum - flonum) - (if (eq? '4 _%$e104201%_) + stflonum + stflonum) + (if (eq? '4 _%$e106960%_) '#(fixnum subtyped - flonum - flonum + stflonum + stflonum special pair - flonum - flonum) + stflonum + stflonum) (error '"unexpected flonum self tagging tags" - _%flonum-self-tagging-tags104198%_)))))))) - (error '"unexpected tag width" _%tb104193%_))))) + _%flonum-self-tagging-tags106957%_)))))))) + (error '"unexpected tag width" _%tb106952%_))))) (define __class - (let* ((_%len104146%_ + (let* ((_%len106900%_ (let () (declare (not safe)) (##vector-length __type))) - (_%cv104148%_ - (let () (declare (not safe)) (##make-vector _%len104146%_ '#f)))) - (let _%loop104151%_ ((_%i104153%_ '0)) - (if (let () (declare (not safe)) (##fx< _%i104153%_ _%len104146%_)) - (let* ((_%t104155%_ + (_%cv106902%_ + (let () (declare (not safe)) (##make-vector _%len106900%_ '#f)))) + (let _%loop106905%_ ((_%i106907%_ '0)) + (if (let () (declare (not safe)) (##fx< _%i106907%_ _%len106900%_)) + (let* ((_%t106909%_ (let () (declare (not safe)) - (##vector-ref __type _%i104153%_))) - (_%f104190%_ - (if (eq? _%t104155%_ 'undefined) - (lambda (_%obj104158%_) - (error '"object type is undefined" _%obj104158%_)) + (##vector-ref __type _%i106907%_))) + (_%f106949%_ + (if (eq? _%t106909%_ 'undefined) + (lambda (_%obj106912%_) + (error '"object type is undefined" _%obj106912%_)) (if (let () (declare (not safe)) - (##memq _%t104155%_ - '(fixnum flonum pair vector))) - (lambda (_%obj104161%_) + (##memq _%t106909%_ + '(fixnum flonum + stflonum + haflonum + pair + vector))) + (lambda (_%obj106915%_) (declare (not interrupts-enabled) (not safe)) - (__system-class _%t104155%_)) - (if (eq? _%t104155%_ 'subtyped) - (lambda (_%obj104165%_) + (__system-class _%t106909%_)) + (if (eq? _%t106909%_ 'subtyped) + (lambda (_%obj106919%_) (declare (not interrupts-enabled) (not safe)) - (let ((_%st104168%_ - (##subtype _%obj104165%_))) - (if (##fx= _%st104168%_ + (let ((_%st106922%_ + (##subtype _%obj106919%_))) + (if (##fx= _%st106922%_ (macro-subtype-structure)) - (let ((_%klass104171%_ + (let ((_%klass106925%_ (##structure-type - _%obj104165%_))) + _%obj106919%_))) (if (##structure-instance-of? - _%klass104171%_ + _%klass106925%_ 'class) - _%klass104171%_ - (__shadow-class - _%klass104171%_))) - (if (##fx= _%st104168%_ + _%klass106925%_ + (__shadow-class__0 + _%klass106925%_))) + (if (##fx= _%st106922%_ (macro-subtype-boxvalues)) (if (##fx= (##values-length - _%obj104165%_) + _%obj106919%_) '1) (__system-class 'box) (__system-class 'values)) - (let ((_%$e104174%_ + (let ((_%$e106928%_ (##vector-ref __subtype-id - _%st104168%_))) - (if _%$e104174%_ + _%st106922%_))) + (if _%$e106928%_ (__system-class - _%$e104174%_) + _%$e106928%_) (error '"unknown class" 'subtype: - _%st104168%_ + _%st106922%_ 'object: - _%obj104165%_))))))) - (if (eq? _%t104155%_ 'special) - (lambda (_%obj104179%_) + _%obj106919%_))))))) + (if (eq? _%t106909%_ 'special) + (lambda (_%obj106933%_) (declare (not interrupts-enabled) (not safe)) - (if (char? _%obj104179%_) + (if (char? _%obj106933%_) (__system-class 'char) - (if (eq? _%obj104179%_ '()) + (if (eq? _%obj106933%_ '()) (__system-class 'null) - (if (eq? _%obj104179%_ '#f) + (if (eq? _%obj106933%_ '#f) (__system-class 'boolean) - (if (eq? _%obj104179%_ '#t) + (if (eq? _%obj106933%_ '#t) (__system-class 'boolean) - (if (eq? _%obj104179%_ + (if (eq? _%obj106933%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!void) (__system-class 'void) - (if (eq? _%obj104179%_ '#!eof) + (if (eq? _%obj106933%_ '#!eof) (__system-class 'eof) - (__system-class 'special)))))))) + (if (eq? _%obj106933%_ '#!unbound) + (__system-class 'unbound) + (if (eq? _%obj106933%_ '#!unbound2) + (__system-class 'unbound2) + (if (eq? _%obj106933%_ '#!optional) + (__system-class 'optional) + (if (eq? _%obj106933%_ '#!rest) + (__system-class 'rest) + (if (eq? _%obj106933%_ '#!key) + (__system-class 'key) + (__system-class + 'special))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"unexpected object type" - _%t104155%_))))))) + _%t106909%_))))))) (let () (declare (not safe)) - (##vector-set! _%cv104148%_ _%i104153%_ _%f104190%_)) - (_%loop104151%_ - (let () (declare (not safe)) (##fx+ _%i104153%_ '1)))) - _%cv104148%_)))) + (##vector-set! _%cv106902%_ _%i106907%_ _%f106949%_)) + (_%loop106905%_ + (let () (declare (not safe)) (##fx+ _%i106907%_ '1)))) + _%cv106902%_)))) (define type-of - (lambda (_%obj104142%_) + (lambda (_%obj106896%_) (let () (declare (not safe) (not interrupts-enabled)) - (##vector-ref __type (##type _%obj104142%_))))) + (##vector-ref __type (##type _%obj106896%_))))) (define class-of - (lambda (_%obj104133%_) + (lambda (_%obj106887%_) (let () (declare (not safe) (not interrupts-enabled)) - (let* ((_%t104137%_ (##type _%obj104133%_)) - (_%f104139%_ (##vector-ref __class _%t104137%_))) - (_%f104139%_ _%obj104133%_))))) + (let* ((_%t106891%_ (##type _%obj106887%_)) + (_%f106893%_ (##vector-ref __class _%t106891%_))) + (_%f106893%_ _%obj106887%_))))) (define __subtype-id (let () (declare (not safe)) (##make-vector '32 '#f))) (vector-set! __subtype-id (macro-subtype-vector) 'vector) (vector-set! __subtype-id (macro-subtype-pair) 'pair) @@ -5454,33 +5489,36 @@ (vector-set! __subtype-id (macro-subtype-s64vector) 's64vector) (vector-set! __subtype-id (macro-subtype-u64vector) 'u64vector) (vector-set! __subtype-id (macro-subtype-f64vector) 'f64vector) - (vector-set! __subtype-id (macro-subtype-flonum) 'flonum) + (vector-set! __subtype-id (macro-subtype-flonum) 'haflonum) (vector-set! __subtype-id (macro-subtype-bignum) 'bignum) (define __system-classes (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) (define __system-class - (lambda (_%id104127%_) - (let ((_%$e104129%_ + (lambda (_%id106881%_) + (let ((_%$e106883%_ (let () (declare (not safe)) - (symbolic-table-ref __system-classes _%id104127%_ '#f)))) - (if _%$e104129%_ - _%$e104129%_ - (error '"unknown system class" _%id104127%_))))) + (symbolic-table-ref __system-classes _%id106881%_ '#f)))) + (if _%$e106883%_ + _%$e106883%_ + (error '"unknown system class" _%id106881%_))))) (define __make-system-class - (lambda (_%id104122%_ _%super104123%_) - (let ((_%klass104125%_ + (lambda (_%id106875%_ _%super106876%_ _%properties106877%_) + (let ((_%klass106879%_ (make-class-type - _%id104122%_ - _%id104122%_ - _%super104123%_ + _%id106875%_ + _%id106875%_ + _%super106876%_ '() - '((system: . #t)) + (cons (cons 'system: '#t) + (let () + (declare (not safe)) + (__foldr1 cons '() _%properties106877%_))) '#f))) (let () (declare (not safe)) (symbolic-table-set! __system-classes - _%id104122%_ - _%klass104125%_)) - _%klass104125%_))))) + _%id106875%_ + _%klass106879%_)) + _%klass106879%_))))) diff --git a/src/bootstrap/gerbil/runtime/mop~1.scm b/src/bootstrap/gerbil/runtime/mop~1.scm index 2107a28cf0..81b3f4114e 100644 --- a/src/bootstrap/gerbil/runtime/mop~1.scm +++ b/src/bootstrap/gerbil/runtime/mop~1.scm @@ -1,315 +1,323 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |[:0:]#fxflag-set?| - (lambda (_%$stx102707%_) - (let* ((_%__stx109265109266%_ _%$stx102707%_) - (_%g102712102741%_ + (lambda (_%$stx105168%_) + (let* ((_%__stx112100112101%_ _%$stx105168%_) + (_%g105173105202%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx109265109266%_)))) - (let ((_%__kont109268109269%_ - (lambda (_%L102834%_ _%L102836%_) + _%__stx112100112101%_)))) + (let ((_%__kont112103112104%_ + (lambda (_%g105175105295%_ _%g105176105297%_) (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L102836%_ (cons _%L102834%_ '()))) - (cons _%L102834%_ '()))))) - (_%__kont109270109271%_ - (lambda (_%L102778%_ _%L102780%_) + (cons _%g105176105297%_ + (cons _%g105175105295%_ '()))) + (cons _%g105175105295%_ '()))))) + (_%__kont112105112106%_ + (lambda (_%g105186105239%_ _%g105187105241%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L102778%_ (cons _%L102778%_ '())) + (cons (cons _%g105186105239%_ + (cons _%g105186105239%_ '())) (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L102780%_ - (cons _%L102778%_ + (cons _%g105187105241%_ + (cons _%g105186105239%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L102778%_ '()))) + (cons _%g105186105239%_ '()))) '())))))) - (let ((_%__match109292109293%_ - (lambda (_%e102716102804%_ - _%hd102717102808%_ - _%tl102718102811%_ - _%e102719102814%_ - _%hd102720102818%_ - _%tl102721102821%_ - _%e102722102824%_ - _%hd102723102828%_ - _%tl102724102831%_) - (let ((_%L102834%_ _%hd102723102828%_) - (_%L102836%_ _%hd102720102818%_)) - (if (or (gx#identifier? _%L102834%_) - (gx#stx-fixnum? _%L102834%_)) - (_%__kont109268109269%_ _%L102834%_ _%L102836%_) - (_%__kont109270109271%_ - _%hd102723102828%_ - _%hd102720102818%_)))))) - (if (gx#stx-pair? _%__stx109265109266%_) - (let ((_%e102716102804%_ (gx#syntax-e _%__stx109265109266%_))) - (let ((_%tl102718102811%_ + (let ((_%__match112127112128%_ + (lambda (_%e105177105265%_ + _%hd105178105269%_ + _%tl105179105272%_ + _%e105180105275%_ + _%hd105181105279%_ + _%tl105182105282%_ + _%e105183105285%_ + _%hd105184105289%_ + _%tl105185105292%_) + (let ((_%g105175105295%_ _%hd105184105289%_) + (_%g105176105297%_ _%hd105181105279%_)) + (if (or (gx#identifier? _%g105175105295%_) + (gx#stx-fixnum? _%g105175105295%_)) + (_%__kont112103112104%_ + _%g105175105295%_ + _%g105176105297%_) + (_%__kont112105112106%_ + _%hd105184105289%_ + _%hd105181105279%_)))))) + (if (gx#stx-pair? _%__stx112100112101%_) + (let ((_%e105177105265%_ (gx#syntax-e _%__stx112100112101%_))) + (let ((_%tl105179105272%_ (let () (declare (not safe)) - (##cdr _%e102716102804%_))) - (_%hd102717102808%_ + (##cdr _%e105177105265%_))) + (_%hd105178105269%_ (let () (declare (not safe)) - (##car _%e102716102804%_)))) - (if (gx#stx-pair? _%tl102718102811%_) - (let ((_%e102719102814%_ - (gx#syntax-e _%tl102718102811%_))) - (let ((_%tl102721102821%_ + (##car _%e105177105265%_)))) + (if (gx#stx-pair? _%tl105179105272%_) + (let ((_%e105180105275%_ + (gx#syntax-e _%tl105179105272%_))) + (let ((_%tl105182105282%_ (let () (declare (not safe)) - (##cdr _%e102719102814%_))) - (_%hd102720102818%_ + (##cdr _%e105180105275%_))) + (_%hd105181105279%_ (let () (declare (not safe)) - (##car _%e102719102814%_)))) - (if (gx#stx-pair? _%tl102721102821%_) - (let ((_%e102722102824%_ - (gx#syntax-e _%tl102721102821%_))) - (let ((_%tl102724102831%_ + (##car _%e105180105275%_)))) + (if (gx#stx-pair? _%tl105182105282%_) + (let ((_%e105183105285%_ + (gx#syntax-e _%tl105182105282%_))) + (let ((_%tl105185105292%_ (let () (declare (not safe)) - (##cdr _%e102722102824%_))) - (_%hd102723102828%_ + (##cdr _%e105183105285%_))) + (_%hd105184105289%_ (let () (declare (not safe)) - (##car _%e102722102824%_)))) - (if (gx#stx-null? _%tl102724102831%_) - (_%__match109292109293%_ - _%e102716102804%_ - _%hd102717102808%_ - _%tl102718102811%_ - _%e102719102814%_ - _%hd102720102818%_ - _%tl102721102821%_ - _%e102722102824%_ - _%hd102723102828%_ - _%tl102724102831%_) + (##car _%e105183105285%_)))) + (if (gx#stx-null? _%tl105185105292%_) + (_%__match112127112128%_ + _%e105177105265%_ + _%hd105178105269%_ + _%tl105179105272%_ + _%e105180105275%_ + _%hd105181105279%_ + _%tl105182105282%_ + _%e105183105285%_ + _%hd105184105289%_ + _%tl105185105292%_) (let () (declare (not safe)) - (_%g102712102741%_))))) + (_%g105173105202%_))))) (let () (declare (not safe)) - (_%g102712102741%_))))) - (let () (declare (not safe)) (_%g102712102741%_))))) - (let () (declare (not safe)) (_%g102712102741%_)))))))) + (_%g105173105202%_))))) + (let () (declare (not safe)) (_%g105173105202%_))))) + (let () (declare (not safe)) (_%g105173105202%_)))))))) (define |[:0:]#fxflag-unset?| - (lambda (_%$stx102859%_) - (let* ((_%__stx109315109316%_ _%$stx102859%_) - (_%g102864102893%_ + (lambda (_%$stx105320%_) + (let* ((_%__stx112150112151%_ _%$stx105320%_) + (_%g105325105354%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx109315109316%_)))) - (let ((_%__kont109318109319%_ - (lambda (_%L102985%_ _%L102987%_) + _%__stx112150112151%_)))) + (let ((_%__kont112153112154%_ + (lambda (_%g105327105446%_ _%g105328105448%_) (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L102987%_ (cons _%L102985%_ '()))) + (cons _%g105328105448%_ + (cons _%g105327105446%_ '()))) (cons '0 '()))))) - (_%__kont109320109321%_ - (lambda (_%L102930%_ _%L102932%_) + (_%__kont112155112156%_ + (lambda (_%g105338105391%_ _%g105339105393%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L102930%_ (cons _%L102930%_ '())) + (cons (cons _%g105338105391%_ + (cons _%g105338105391%_ '())) (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L102932%_ - (cons _%L102930%_ + (cons _%g105339105393%_ + (cons _%g105338105391%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '0 '()))) '())))))) - (let ((_%__match109342109343%_ - (lambda (_%e102868102955%_ - _%hd102869102959%_ - _%tl102870102962%_ - _%e102871102965%_ - _%hd102872102969%_ - _%tl102873102972%_ - _%e102874102975%_ - _%hd102875102979%_ - _%tl102876102982%_) - (let ((_%L102985%_ _%hd102875102979%_) - (_%L102987%_ _%hd102872102969%_)) - (if (or (gx#identifier? _%L102985%_) - (gx#stx-fixnum? _%L102985%_)) - (_%__kont109318109319%_ _%L102985%_ _%L102987%_) - (_%__kont109320109321%_ - _%hd102875102979%_ - _%hd102872102969%_)))))) - (if (gx#stx-pair? _%__stx109315109316%_) - (let ((_%e102868102955%_ (gx#syntax-e _%__stx109315109316%_))) - (let ((_%tl102870102962%_ + (let ((_%__match112177112178%_ + (lambda (_%e105329105416%_ + _%hd105330105420%_ + _%tl105331105423%_ + _%e105332105426%_ + _%hd105333105430%_ + _%tl105334105433%_ + _%e105335105436%_ + _%hd105336105440%_ + _%tl105337105443%_) + (let ((_%g105327105446%_ _%hd105336105440%_) + (_%g105328105448%_ _%hd105333105430%_)) + (if (or (gx#identifier? _%g105327105446%_) + (gx#stx-fixnum? _%g105327105446%_)) + (_%__kont112153112154%_ + _%g105327105446%_ + _%g105328105448%_) + (_%__kont112155112156%_ + _%hd105336105440%_ + _%hd105333105430%_)))))) + (if (gx#stx-pair? _%__stx112150112151%_) + (let ((_%e105329105416%_ (gx#syntax-e _%__stx112150112151%_))) + (let ((_%tl105331105423%_ (let () (declare (not safe)) - (##cdr _%e102868102955%_))) - (_%hd102869102959%_ + (##cdr _%e105329105416%_))) + (_%hd105330105420%_ (let () (declare (not safe)) - (##car _%e102868102955%_)))) - (if (gx#stx-pair? _%tl102870102962%_) - (let ((_%e102871102965%_ - (gx#syntax-e _%tl102870102962%_))) - (let ((_%tl102873102972%_ + (##car _%e105329105416%_)))) + (if (gx#stx-pair? _%tl105331105423%_) + (let ((_%e105332105426%_ + (gx#syntax-e _%tl105331105423%_))) + (let ((_%tl105334105433%_ (let () (declare (not safe)) - (##cdr _%e102871102965%_))) - (_%hd102872102969%_ + (##cdr _%e105332105426%_))) + (_%hd105333105430%_ (let () (declare (not safe)) - (##car _%e102871102965%_)))) - (if (gx#stx-pair? _%tl102873102972%_) - (let ((_%e102874102975%_ - (gx#syntax-e _%tl102873102972%_))) - (let ((_%tl102876102982%_ + (##car _%e105332105426%_)))) + (if (gx#stx-pair? _%tl105334105433%_) + (let ((_%e105335105436%_ + (gx#syntax-e _%tl105334105433%_))) + (let ((_%tl105337105443%_ (let () (declare (not safe)) - (##cdr _%e102874102975%_))) - (_%hd102875102979%_ + (##cdr _%e105335105436%_))) + (_%hd105336105440%_ (let () (declare (not safe)) - (##car _%e102874102975%_)))) - (if (gx#stx-null? _%tl102876102982%_) - (_%__match109342109343%_ - _%e102868102955%_ - _%hd102869102959%_ - _%tl102870102962%_ - _%e102871102965%_ - _%hd102872102969%_ - _%tl102873102972%_ - _%e102874102975%_ - _%hd102875102979%_ - _%tl102876102982%_) + (##car _%e105335105436%_)))) + (if (gx#stx-null? _%tl105337105443%_) + (_%__match112177112178%_ + _%e105329105416%_ + _%hd105330105420%_ + _%tl105331105423%_ + _%e105332105426%_ + _%hd105333105430%_ + _%tl105334105433%_ + _%e105335105436%_ + _%hd105336105440%_ + _%tl105337105443%_) (let () (declare (not safe)) - (_%g102864102893%_))))) + (_%g105325105354%_))))) (let () (declare (not safe)) - (_%g102864102893%_))))) - (let () (declare (not safe)) (_%g102864102893%_))))) - (let () (declare (not safe)) (_%g102864102893%_)))))))) + (_%g105325105354%_))))) + (let () (declare (not safe)) (_%g105325105354%_))))) + (let () (declare (not safe)) (_%g105325105354%_)))))))) (define |[:0:]#defrefset| - (lambda (_%stx103010%_) - (let* ((_%g103013103034%_ - (lambda (_%g103014103030%_) + (lambda (_%stx105471%_) + (let* ((_%g105474105495%_ + (lambda (_%g105475105491%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g103014103030%_))) - (_%g103012103262%_ - (lambda (_%g103014103038%_) - (if (gx#stx-pair? _%g103014103038%_) - (let ((_%e103017103041%_ (gx#syntax-e _%g103014103038%_))) - (let ((_%hd103018103045%_ + _%g105475105491%_))) + (_%g105473105723%_ + (lambda (_%g105475105499%_) + (if (gx#stx-pair? _%g105475105499%_) + (let ((_%e105478105502%_ (gx#syntax-e _%g105475105499%_))) + (let ((_%hd105479105506%_ (let () (declare (not safe)) - (##car _%e103017103041%_))) - (_%tl103019103048%_ + (##car _%e105478105502%_))) + (_%tl105480105509%_ (let () (declare (not safe)) - (##cdr _%e103017103041%_)))) - (if (gx#stx-pair? _%tl103019103048%_) - (let ((_%e103020103051%_ - (gx#syntax-e _%tl103019103048%_))) - (let ((_%hd103021103055%_ + (##cdr _%e105478105502%_)))) + (if (gx#stx-pair? _%tl105480105509%_) + (let ((_%e105481105512%_ + (gx#syntax-e _%tl105480105509%_))) + (let ((_%hd105482105516%_ (let () (declare (not safe)) - (##car _%e103020103051%_))) - (_%tl103022103058%_ + (##car _%e105481105512%_))) + (_%tl105483105519%_ (let () (declare (not safe)) - (##cdr _%e103020103051%_)))) - (if (gx#stx-pair? _%hd103021103055%_) - (let ((_%e103023103061%_ - (gx#syntax-e _%hd103021103055%_))) - (let ((_%hd103024103065%_ + (##cdr _%e105481105512%_)))) + (if (gx#stx-pair? _%hd105482105516%_) + (let ((_%e105484105522%_ + (gx#syntax-e _%hd105482105516%_))) + (let ((_%hd105485105526%_ (let () (declare (not safe)) - (##car _%e103023103061%_))) - (_%tl103025103068%_ + (##car _%e105484105522%_))) + (_%tl105486105529%_ (let () (declare (not safe)) - (##cdr _%e103023103061%_)))) - (if (gx#stx-pair? _%tl103025103068%_) - (let ((_%e103026103071%_ + (##cdr _%e105484105522%_)))) + (if (gx#stx-pair? _%tl105486105529%_) + (let ((_%e105487105532%_ (gx#syntax-e - _%tl103025103068%_))) - (let ((_%hd103027103075%_ + _%tl105486105529%_))) + (let ((_%hd105488105536%_ (let () (declare (not safe)) - (##car _%e103026103071%_))) - (_%tl103028103078%_ + (##car _%e105487105532%_))) + (_%tl105489105539%_ (let () (declare (not safe)) - (##cdr _%e103026103071%_)))) + (##cdr _%e105487105532%_)))) (if (gx#stx-null? - _%tl103028103078%_) + _%tl105489105539%_) (if (gx#stx-null? - _%tl103022103058%_) - ((lambda (_%L103081%_ + _%tl105483105519%_) + ((lambda (_%g105476105542%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L103083%_) - (let* ((_%g103101103109%_ - (lambda (_%g103102103105%_) + _%g105477105544%_) + (let* ((_%g105562105570%_ + (lambda (_%g105563105566%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g103102103105%_))) - (_%g103100103258%_ - (lambda (_%g103102103113%_) - ((lambda (_%L103116%_) - (let* ((_%g103128103136%_ - (lambda (_%g103129103132%_) + _%g105563105566%_))) + (_%g105561105719%_ + (lambda (_%g105563105574%_) + ((lambda (_%g105564105577%_) + (let* ((_%g105589105597%_ + (lambda (_%g105590105593%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g103129103132%_))) - (_%g103127103254%_ - (lambda (_%g103129103140%_) - ((lambda (_%L103143%_) - (let* ((_%g103156103164%_ - (lambda (_%g103157103160%_) + _%g105590105593%_))) + (_%g105588105715%_ + (lambda (_%g105590105601%_) + ((lambda (_%g105591105604%_) + (let* ((_%g105617105625%_ + (lambda (_%g105618105621%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g103157103160%_))) - (_%g103155103250%_ - (lambda (_%g103157103168%_) - ((lambda (_%L103171%_) - (let* ((_%g103184103192%_ + _%g105618105621%_))) + (_%g105616105711%_ + (lambda (_%g105618105629%_) + ((lambda (_%g105619105632%_) + (let* ((_%g105645105653%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g103185103188%_) + (lambda (_%g105646105649%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g103185103188%_))) - (_%g103183103246%_ - (lambda (_%g103185103196%_) - ((lambda (_%L103199%_) - (let* ((_%g103212103220%_ - (lambda (_%g103213103216%_) + _%g105646105649%_))) + (_%g105644105707%_ + (lambda (_%g105646105657%_) + ((lambda (_%g105647105660%_) + (let* ((_%g105673105681%_ + (lambda (_%g105674105677%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g103213103216%_))) - (_%g103211103242%_ - (lambda (_%g103213103224%_) - ((lambda (_%L103227%_) + _%g105674105677%_))) + (_%g105672105703%_ + (lambda (_%g105674105685%_) + ((lambda (_%g105675105688%_) (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L103143%_ + (cons _%g105591105604%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f @@ -317,8 +325,8 @@ (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L103116%_ - (cons _%L103083%_ + (cons _%g105564105577%_ + (cons _%g105477105544%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) @@ -333,7 +341,7 @@ '()) (cons (cons (gx#datum->syntax '#f '##structure-ref) (cons (gx#datum->syntax '#f 'klass) - (cons _%L103081%_ + (cons _%g105476105542%_ (cons (gx#datum->syntax '#f 'class::t) @@ -341,7 +349,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L103083%_ '())) + (cons _%g105477105544%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -349,15 +357,15 @@ '()))) '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L103171%_ + (cons _%g105619105632%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L103116%_ - (cons _%L103083%_ + (cons _%g105564105577%_ + (cons _%g105477105544%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '#f '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -370,7 +378,7 @@ '#f '##unchecked-structure-ref) (cons (gx#datum->syntax '#f 'klass) - (cons _%L103081%_ + (cons _%g105476105542%_ (cons (gx#datum->syntax '#f 'class::t) @@ -378,7 +386,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L103083%_ '())) + (cons _%g105477105544%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -386,7 +394,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L103199%_ + (cons _%g105647105660%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -394,7 +402,8 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L103116%_ (cons _%L103083%_ (cons '#t '())))) + (cons _%g105564105577%_ + (cons _%g105477105544%_ (cons '#t '())))) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f 'klass) (cons (gx#datum->syntax '#f 'val) @@ -408,11 +417,11 @@ (cons (gx#datum->syntax '#f 'val) - (cons _%L103081%_ + (cons _%g105476105542%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'class::t) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L103083%_ '())) + (cons _%g105477105544%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -420,7 +429,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L103227%_ + (cons _%g105675105688%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -428,8 +437,8 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L103116%_ - (cons _%L103083%_ (cons '#f '())))) + (cons _%g105564105577%_ + (cons _%g105477105544%_ (cons '#f '())))) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f 'klass) (cons (gx#datum->syntax @@ -446,10 +455,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'val) - (cons _%L103081%_ + (cons _%g105476105542%_ (cons (gx#datum->syntax '#f 'class::t) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L103083%_ '())) + (cons _%g105477105544%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -458,272 +467,275 @@ '()))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g103213103224%_)))) - (_%g103211103242%_ + _%g105674105685%_)))) + (_%g105672105703%_ (gx#stx-identifier - _%L103083%_ + _%g105477105544%_ '"&" - _%L103199%_)))) - _%g103185103196%_)))) - (_%g103183103246%_ - (gx#stx-identifier _%L103083%_ _%L103143%_ '"-set!")))) - _%g103157103168%_)))) + _%g105647105660%_)))) + _%g105646105657%_)))) + (_%g105644105707%_ + (gx#stx-identifier + _%g105477105544%_ + _%g105591105604%_ + '"-set!")))) + _%g105618105629%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g103155103250%_ + (_%g105616105711%_ (gx#stx-identifier - _%L103083%_ + _%g105477105544%_ '"&" - _%L103143%_)))) - _%g103129103140%_)))) - (_%g103127103254%_ + _%g105591105604%_)))) + _%g105590105601%_)))) + (_%g105588105715%_ (gx#stx-identifier - _%L103083%_ + _%g105477105544%_ '"class-type-" - _%L103083%_)))) - _%g103102103113%_)))) - (_%g103100103258%_ (gx#core-quote-syntax 'class::t)))) - _%hd103027103075%_ - _%hd103024103065%_) - (_%g103013103034%_ _%g103014103038%_)) + _%g105477105544%_)))) + _%g105563105574%_)))) + (_%g105561105719%_ (gx#core-quote-syntax 'class::t)))) + _%hd105488105536%_ + _%hd105485105526%_) + (_%g105474105495%_ _%g105475105499%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g103013103034%_ - _%g103014103038%_)))) - (_%g103013103034%_ - _%g103014103038%_)))) - (_%g103013103034%_ _%g103014103038%_)))) - (_%g103013103034%_ _%g103014103038%_)))) - (_%g103013103034%_ _%g103014103038%_))))) - (_%g103012103262%_ _%stx103010%_)))) + (_%g105474105495%_ + _%g105475105499%_)))) + (_%g105474105495%_ + _%g105475105499%_)))) + (_%g105474105495%_ _%g105475105499%_)))) + (_%g105474105495%_ _%g105475105499%_)))) + (_%g105474105495%_ _%g105475105499%_))))) + (_%g105473105723%_ _%stx105471%_)))) (define |[:0:]#defrefset*| - (lambda (_%$stx103266%_) - (let* ((_%g103270103299%_ - (lambda (_%g103271103295%_) + (lambda (_%$stx105727%_) + (let* ((_%g105731105760%_ + (lambda (_%g105732105756%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g103271103295%_))) - (_%g103269103399%_ - (lambda (_%g103271103303%_) - (if (gx#stx-pair? _%g103271103303%_) - (let ((_%e103274103306%_ (gx#syntax-e _%g103271103303%_))) - (let ((_%hd103275103310%_ + _%g105732105756%_))) + (_%g105730105856%_ + (lambda (_%g105732105764%_) + (if (gx#stx-pair? _%g105732105764%_) + (let ((_%e105735105767%_ (gx#syntax-e _%g105732105764%_))) + (let ((_%hd105736105771%_ (let () (declare (not safe)) - (##car _%e103274103306%_))) - (_%tl103276103313%_ + (##car _%e105735105767%_))) + (_%tl105737105774%_ (let () (declare (not safe)) - (##cdr _%e103274103306%_)))) - (if (gx#stx-pair/null? _%tl103276103313%_) - (let ((_g109552_ + (##cdr _%e105735105767%_)))) + (if (gx#stx-pair/null? _%tl105737105774%_) + (let ((_g112520_ (gx#syntax-split-splice - _%tl103276103313%_ + _%tl105737105774%_ '0))) (begin - (let ((_g109553_ + (let ((_g112521_ (let () (declare (not safe)) - (if (##values? _g109552_) - (##values-length _g109552_) + (if (##values? _g112520_) + (##values-length _g112520_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g109553_ 2))) + (##fx= _g112521_ 2))) (error "Context expects 2 values" - _g109553_))) - (let ((_%target103277103316%_ + _g112521_))) + (let ((_%target105738105777%_ (let () (declare (not safe)) - (##values-ref _g109552_ 0))) - (_%tl103279103319%_ + (##values-ref _g112520_ 0))) + (_%tl105740105780%_ (let () (declare (not safe)) - (##values-ref _g109552_ 1)))) - (if (gx#stx-null? _%tl103279103319%_) - (letrec ((_%loop103280103322%_ - (lambda (_%hd103278103326%_ - _%field103284103329%_ - _%slot103285103331%_) + (##values-ref _g112520_ 1)))) + (if (gx#stx-null? _%tl105740105780%_) + (letrec ((_%loop105741105783%_ + (lambda (_%hd105739105787%_ + _%field105745105790%_ + _%slot105746105791%_) (if (gx#stx-pair? - _%hd103278103326%_) - (let ((_%e103281103334%_ + _%hd105739105787%_) + (let ((_%e105742105793%_ (gx#syntax-e - _%hd103278103326%_))) - (let ((_%lp-hd103282103338%_ + _%hd105739105787%_))) + (let ((_%lp-hd105743105797%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e103281103334%_))) - (_%lp-tl103283103341%_ + (##car _%e105742105793%_))) + (_%lp-tl105744105800%_ (let () (declare (not safe)) - (##cdr _%e103281103334%_)))) - (if (gx#stx-pair? _%lp-hd103282103338%_) - (let ((_%e103288103344%_ - (gx#syntax-e _%lp-hd103282103338%_))) - (let ((_%hd103289103348%_ + (##cdr _%e105742105793%_)))) + (if (gx#stx-pair? _%lp-hd105743105797%_) + (let ((_%e105749105803%_ + (gx#syntax-e _%lp-hd105743105797%_))) + (let ((_%hd105750105807%_ (let () (declare (not safe)) - (##car _%e103288103344%_))) - (_%tl103290103351%_ + (##car _%e105749105803%_))) + (_%tl105751105810%_ (let () (declare (not safe)) - (##cdr _%e103288103344%_)))) - (if (gx#stx-pair? _%tl103290103351%_) - (let ((_%e103291103354%_ - (gx#syntax-e _%tl103290103351%_))) - (let ((_%hd103292103358%_ + (##cdr _%e105749105803%_)))) + (if (gx#stx-pair? _%tl105751105810%_) + (let ((_%e105752105813%_ + (gx#syntax-e _%tl105751105810%_))) + (let ((_%hd105753105817%_ (let () (declare (not safe)) - (##car _%e103291103354%_))) - (_%tl103293103361%_ + (##car _%e105752105813%_))) + (_%tl105754105820%_ (let () (declare (not safe)) - (##cdr _%e103291103354%_)))) - (if (gx#stx-null? _%tl103293103361%_) - (_%loop103280103322%_ - _%lp-tl103283103341%_ - (cons _%hd103292103358%_ - _%field103284103329%_) - (cons _%hd103289103348%_ - _%slot103285103331%_)) - (_%g103270103299%_ _%g103271103303%_)))) - (_%g103270103299%_ _%g103271103303%_)))) - (_%g103270103299%_ _%g103271103303%_)))) - (let ((_%field103286103364%_ (reverse _%field103284103329%_)) - (_%slot103287103367%_ (reverse _%slot103285103331%_))) - ((lambda (_%L103370%_ _%L103372%_) + (##cdr _%e105752105813%_)))) + (if (gx#stx-null? _%tl105754105820%_) + (_%loop105741105783%_ + _%lp-tl105744105800%_ + (cons _%hd105753105817%_ + _%field105745105790%_) + (cons _%hd105750105807%_ + _%slot105746105791%_)) + (_%g105731105760%_ _%g105732105764%_)))) + (_%g105731105760%_ _%g105732105764%_)))) + (_%g105731105760%_ _%g105732105764%_)))) + (let ((_%field105747105823%_ (reverse _%field105745105790%_)) + (_%slot105748105825%_ (reverse _%slot105746105791%_))) + ((lambda (_%g105733105827%_ _%g105734105829%_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _%L103370%_ - _%L103372%_) - (let ((__tmp109554 - (lambda (_%g103387103391%_ - _%g103388103394%_ - _%g103389103396%_) + _%g105733105827%_ + _%g105734105829%_) + (let ((__tmp112522 + (lambda (_%g105844105848%_ + _%g105845105851%_ + _%g105846105853%_) (cons (cons (gx#datum->syntax '#f 'defrefset) - (cons (cons _%g103388103394%_ - (cons _%g103387103391%_ + (cons (cons _%g105845105851%_ + (cons _%g105844105848%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g103389103396%_)))) + _%g105846105853%_)))) (declare (not safe)) (__foldr2 - __tmp109554 + __tmp112522 '() - _%L103370%_ - _%L103372%_))))) - _%field103286103364%_ - _%slot103287103367%_)))))) + _%g105733105827%_ + _%g105734105829%_))))) + _%field105747105823%_ + _%slot105748105825%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop103280103322%_ - _%target103277103316%_ + (_%loop105741105783%_ + _%target105738105777%_ '() '())) - (_%g103270103299%_ _%g103271103303%_))))) - (_%g103270103299%_ _%g103271103303%_)))) - (_%g103270103299%_ _%g103271103303%_))))) - (_%g103269103399%_ _%$stx103266%_)))) + (_%g105731105760%_ _%g105732105764%_))))) + (_%g105731105760%_ _%g105732105764%_)))) + (_%g105731105760%_ _%g105732105764%_))))) + (_%g105730105856%_ _%$stx105727%_)))) (define |[:0:]#if-class-slot-field| - (lambda (_%$stx103404%_) - (let* ((_%g103408103442%_ - (lambda (_%g103409103438%_) + (lambda (_%$stx105861%_) + (let* ((_%g105865105899%_ + (lambda (_%g105866105895%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g103409103438%_))) - (_%g103407103553%_ - (lambda (_%g103409103446%_) - (if (gx#stx-pair? _%g103409103446%_) - (let ((_%e103416103449%_ (gx#syntax-e _%g103409103446%_))) - (let ((_%hd103417103453%_ + _%g105866105895%_))) + (_%g105864106010%_ + (lambda (_%g105866105903%_) + (if (gx#stx-pair? _%g105866105903%_) + (let ((_%e105873105906%_ (gx#syntax-e _%g105866105903%_))) + (let ((_%hd105874105910%_ (let () (declare (not safe)) - (##car _%e103416103449%_))) - (_%tl103418103456%_ + (##car _%e105873105906%_))) + (_%tl105875105913%_ (let () (declare (not safe)) - (##cdr _%e103416103449%_)))) - (if (gx#stx-pair? _%tl103418103456%_) - (let ((_%e103419103459%_ - (gx#syntax-e _%tl103418103456%_))) - (let ((_%hd103420103463%_ + (##cdr _%e105873105906%_)))) + (if (gx#stx-pair? _%tl105875105913%_) + (let ((_%e105876105916%_ + (gx#syntax-e _%tl105875105913%_))) + (let ((_%hd105877105920%_ (let () (declare (not safe)) - (##car _%e103419103459%_))) - (_%tl103421103466%_ + (##car _%e105876105916%_))) + (_%tl105878105923%_ (let () (declare (not safe)) - (##cdr _%e103419103459%_)))) - (if (gx#stx-pair? _%tl103421103466%_) - (let ((_%e103422103469%_ - (gx#syntax-e _%tl103421103466%_))) - (let ((_%hd103423103473%_ + (##cdr _%e105876105916%_)))) + (if (gx#stx-pair? _%tl105878105923%_) + (let ((_%e105879105926%_ + (gx#syntax-e _%tl105878105923%_))) + (let ((_%hd105880105930%_ (let () (declare (not safe)) - (##car _%e103422103469%_))) - (_%tl103424103476%_ + (##car _%e105879105926%_))) + (_%tl105881105933%_ (let () (declare (not safe)) - (##cdr _%e103422103469%_)))) - (if (gx#stx-pair? _%tl103424103476%_) - (let ((_%e103425103479%_ + (##cdr _%e105879105926%_)))) + (if (gx#stx-pair? _%tl105881105933%_) + (let ((_%e105882105936%_ (gx#syntax-e - _%tl103424103476%_))) - (let ((_%hd103426103483%_ + _%tl105881105933%_))) + (let ((_%hd105883105940%_ (let () (declare (not safe)) - (##car _%e103425103479%_))) - (_%tl103427103486%_ + (##car _%e105882105936%_))) + (_%tl105884105943%_ (let () (declare (not safe)) - (##cdr _%e103425103479%_)))) + (##cdr _%e105882105936%_)))) (if (gx#stx-pair? - _%tl103427103486%_) - (let ((_%e103428103489%_ + _%tl105884105943%_) + (let ((_%e105885105946%_ (gx#syntax-e - _%tl103427103486%_))) - (let ((_%hd103429103493%_ + _%tl105884105943%_))) + (let ((_%hd105886105950%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e103428103489%_))) - (_%tl103430103496%_ - (let () (declare (not safe)) (##cdr _%e103428103489%_)))) - (if (gx#stx-pair? _%tl103430103496%_) - (let ((_%e103431103499%_ (gx#syntax-e _%tl103430103496%_))) - (let ((_%hd103432103503%_ + (##car _%e105885105946%_))) + (_%tl105887105953%_ + (let () (declare (not safe)) (##cdr _%e105885105946%_)))) + (if (gx#stx-pair? _%tl105887105953%_) + (let ((_%e105888105956%_ (gx#syntax-e _%tl105887105953%_))) + (let ((_%hd105889105960%_ (let () (declare (not safe)) - (##car _%e103431103499%_))) - (_%tl103433103506%_ + (##car _%e105888105956%_))) + (_%tl105890105963%_ (let () (declare (not safe)) - (##cdr _%e103431103499%_)))) - (if (gx#stx-pair? _%tl103433103506%_) - (let ((_%e103434103509%_ - (gx#syntax-e _%tl103433103506%_))) - (let ((_%hd103435103513%_ + (##cdr _%e105888105956%_)))) + (if (gx#stx-pair? _%tl105890105963%_) + (let ((_%e105891105966%_ + (gx#syntax-e _%tl105890105963%_))) + (let ((_%hd105892105970%_ (let () (declare (not safe)) - (##car _%e103434103509%_))) - (_%tl103436103516%_ + (##car _%e105891105966%_))) + (_%tl105893105973%_ (let () (declare (not safe)) - (##cdr _%e103434103509%_)))) - (if (gx#stx-null? _%tl103436103516%_) - ((lambda (_%L103519%_ - _%L103521%_ - _%L103522%_ - _%L103523%_ - _%L103524%_ - _%L103525%_) + (##cdr _%e105891105966%_)))) + (if (gx#stx-null? _%tl105893105973%_) + ((lambda (_%g105867105976%_ + _%g105868105978%_ + _%g105869105979%_ + _%g105870105980%_ + _%g105871105981%_ + _%g105872105982%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f @@ -735,8 +747,8 @@ (cons (cons (gx#datum->syntax '#f '&class-type-slot-table) - (cons _%L103525%_ '())) - (cons _%L103524%_ (cons '#f '())))) + (cons _%g105872105982%_ '())) + (cons _%g105871105981%_ (cons '#f '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -755,18 +767,19 @@ (cons '"unknown slot" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'class: - (cons _%L103525%_ - (cons 'slot: (cons _%L103524%_ '())))))) + (cons _%g105872105982%_ + (cons 'slot: + (cons _%g105871105981%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) (cons (cons (cons (gx#datum->syntax '#f 'class-type-final?) - (cons _%L103525%_ '())) - (cons (cons _%L103523%_ - (cons _%L103525%_ - (cons _%L103524%_ + (cons _%g105872105982%_ '())) + (cons (cons _%g105870105980%_ + (cons _%g105872105982%_ + (cons _%g105871105981%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'field) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -774,11 +787,12 @@ (cons (cons (cons (gx#datum->syntax '#f 'class-type-struct?) - (cons _%L103525%_ '())) - (cons (cons _%L103522%_ - (cons _%L103525%_ + (cons _%g105872105982%_ + '())) + (cons (cons _%g105869105979%_ + (cons _%g105872105982%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L103524%_ + (cons _%g105871105981%_ (cons (gx#datum->syntax '#f 'field) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -792,7 +806,7 @@ (cons (cons (gx#datum->syntax '#f 'base-struct/1) - (cons _%L103525%_ '())) + (cons _%g105872105982%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax @@ -825,10 +839,10 @@ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L103521%_ + (cons (cons _%g105868105978%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L103525%_ - (cons _%L103524%_ + (cons _%g105872105982%_ + (cons _%g105871105981%_ (cons (gx#datum->syntax '#f 'field) '())))) '())) @@ -836,10 +850,10 @@ (cons (cons (gx#datum->syntax '#f 'else) - (cons (cons _%L103519%_ + (cons (cons _%g105867105976%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L103525%_ - (cons _%L103524%_ + (cons _%g105872105982%_ + (cons _%g105871105981%_ (cons (gx#datum->syntax '#f 'field) '())))) '())) @@ -847,99 +861,103 @@ '())))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd103435103513%_ - _%hd103432103503%_ - _%hd103429103493%_ - _%hd103426103483%_ - _%hd103423103473%_ - _%hd103420103463%_) - (_%g103408103442%_ _%g103409103446%_)))) - (_%g103408103442%_ _%g103409103446%_)))) - (_%g103408103442%_ _%g103409103446%_)))) + _%hd105892105970%_ + _%hd105889105960%_ + _%hd105886105950%_ + _%hd105883105940%_ + _%hd105880105930%_ + _%hd105877105920%_) + (_%g105865105899%_ _%g105866105903%_)))) + (_%g105865105899%_ _%g105866105903%_)))) + (_%g105865105899%_ _%g105866105903%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g103408103442%_ - _%g103409103446%_)))) - (_%g103408103442%_ - _%g103409103446%_)))) - (_%g103408103442%_ _%g103409103446%_)))) - (_%g103408103442%_ _%g103409103446%_)))) - (_%g103408103442%_ _%g103409103446%_))))) - (_%g103407103553%_ _%$stx103404%_)))) + (_%g105865105899%_ + _%g105866105903%_)))) + (_%g105865105899%_ + _%g105866105903%_)))) + (_%g105865105899%_ _%g105866105903%_)))) + (_%g105865105899%_ _%g105866105903%_)))) + (_%g105865105899%_ _%g105866105903%_))))) + (_%g105864106010%_ _%$stx105861%_)))) (define |[:0:]#__slot-e| - (lambda (_%$stx103557%_) - (let* ((_%g103561103587%_ - (lambda (_%g103562103583%_) + (lambda (_%$stx106014%_) + (let* ((_%g106018106044%_ + (lambda (_%g106019106040%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g103562103583%_))) - (_%g103560103670%_ - (lambda (_%g103562103591%_) - (if (gx#stx-pair? _%g103562103591%_) - (let ((_%e103567103594%_ (gx#syntax-e _%g103562103591%_))) - (let ((_%hd103568103598%_ + _%g106019106040%_))) + (_%g106017106127%_ + (lambda (_%g106019106048%_) + (if (gx#stx-pair? _%g106019106048%_) + (let ((_%e106024106051%_ (gx#syntax-e _%g106019106048%_))) + (let ((_%hd106025106055%_ (let () (declare (not safe)) - (##car _%e103567103594%_))) - (_%tl103569103601%_ + (##car _%e106024106051%_))) + (_%tl106026106058%_ (let () (declare (not safe)) - (##cdr _%e103567103594%_)))) - (if (gx#stx-pair? _%tl103569103601%_) - (let ((_%e103570103604%_ - (gx#syntax-e _%tl103569103601%_))) - (let ((_%hd103571103608%_ + (##cdr _%e106024106051%_)))) + (if (gx#stx-pair? _%tl106026106058%_) + (let ((_%e106027106061%_ + (gx#syntax-e _%tl106026106058%_))) + (let ((_%hd106028106065%_ (let () (declare (not safe)) - (##car _%e103570103604%_))) - (_%tl103572103611%_ + (##car _%e106027106061%_))) + (_%tl106029106068%_ (let () (declare (not safe)) - (##cdr _%e103570103604%_)))) - (if (gx#stx-pair? _%tl103572103611%_) - (let ((_%e103573103614%_ - (gx#syntax-e _%tl103572103611%_))) - (let ((_%hd103574103618%_ + (##cdr _%e106027106061%_)))) + (if (gx#stx-pair? _%tl106029106068%_) + (let ((_%e106030106071%_ + (gx#syntax-e _%tl106029106068%_))) + (let ((_%hd106031106075%_ (let () (declare (not safe)) - (##car _%e103573103614%_))) - (_%tl103575103621%_ + (##car _%e106030106071%_))) + (_%tl106032106078%_ (let () (declare (not safe)) - (##cdr _%e103573103614%_)))) - (if (gx#stx-pair? _%tl103575103621%_) - (let ((_%e103576103624%_ + (##cdr _%e106030106071%_)))) + (if (gx#stx-pair? _%tl106032106078%_) + (let ((_%e106033106081%_ (gx#syntax-e - _%tl103575103621%_))) - (let ((_%hd103577103628%_ + _%tl106032106078%_))) + (let ((_%hd106034106085%_ (let () (declare (not safe)) - (##car _%e103576103624%_))) - (_%tl103578103631%_ + (##car _%e106033106081%_))) + (_%tl106035106088%_ (let () (declare (not safe)) - (##cdr _%e103576103624%_)))) + (##cdr _%e106033106081%_)))) (if (gx#stx-pair? - _%tl103578103631%_) - (let ((_%e103579103634%_ + _%tl106035106088%_) + (let ((_%e106036106091%_ (gx#syntax-e - _%tl103578103631%_))) - (let ((_%hd103580103638%_ + _%tl106035106088%_))) + (let ((_%hd106037106095%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e103579103634%_))) - (_%tl103581103641%_ - (let () (declare (not safe)) (##cdr _%e103579103634%_)))) - (if (gx#stx-null? _%tl103581103641%_) - ((lambda (_%L103644%_ _%L103646%_ _%L103647%_ _%L103648%_) + (##car _%e106036106091%_))) + (_%tl106038106098%_ + (let () (declare (not safe)) (##cdr _%e106036106091%_)))) + (if (gx#stx-null? _%tl106038106098%_) + ((lambda (_%g106020106101%_ + _%g106021106103%_ + _%g106022106104%_ + _%g106023106105%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'klass) (cons (cons (gx#datum->syntax '#f 'class-of) - (cons _%L103648%_ '())) + (cons _%g106023106105%_ + '())) '())) (cons (cons (gx#datum->syntax '#f 'cond) (cons (cons (cons (gx#datum->syntax @@ -947,485 +965,769 @@ '#f 'class-slot-offset) (cons (gx#datum->syntax '#f 'klass) - (cons _%L103647%_ '()))) - (cons (gx#datum->syntax '#f '=>) (cons _%L103646%_ '()))) + (cons _%g106022106104%_ '()))) + (cons (gx#datum->syntax '#f '=>) + (cons _%g106021106103%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'else) - (cons (cons _%L103644%_ - (cons _%L103648%_ (cons _%L103647%_ '()))) + (cons (cons _%g106020106101%_ + (cons _%g106023106105%_ + (cons _%g106022106104%_ '()))) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd103580103638%_ - _%hd103577103628%_ - _%hd103574103618%_ - _%hd103571103608%_) - (_%g103561103587%_ _%g103562103591%_)))) + _%hd106037106095%_ + _%hd106034106085%_ + _%hd106031106075%_ + _%hd106028106065%_) + (_%g106018106044%_ _%g106019106048%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g103561103587%_ - _%g103562103591%_)))) - (_%g103561103587%_ - _%g103562103591%_)))) - (_%g103561103587%_ _%g103562103591%_)))) - (_%g103561103587%_ _%g103562103591%_)))) - (_%g103561103587%_ _%g103562103591%_))))) - (_%g103560103670%_ _%$stx103557%_)))) + (_%g106018106044%_ + _%g106019106048%_)))) + (_%g106018106044%_ + _%g106019106048%_)))) + (_%g106018106044%_ _%g106019106048%_)))) + (_%g106018106044%_ _%g106019106048%_)))) + (_%g106018106044%_ _%g106019106048%_))))) + (_%g106017106127%_ _%$stx106014%_)))) (define |[:0:]#defsubtype| - (lambda (_%$stx103674%_) - (let* ((_%g103678103707%_ - (lambda (_%g103679103703%_) + (lambda (_%$stx106131%_) + (let* ((_%g106135106164%_ + (lambda (_%g106136106160%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g103679103703%_))) - (_%g103677103807%_ - (lambda (_%g103679103711%_) - (if (gx#stx-pair? _%g103679103711%_) - (let ((_%e103682103714%_ (gx#syntax-e _%g103679103711%_))) - (let ((_%hd103683103718%_ + _%g106136106160%_))) + (_%g106134106260%_ + (lambda (_%g106136106168%_) + (if (gx#stx-pair? _%g106136106168%_) + (let ((_%e106139106171%_ (gx#syntax-e _%g106136106168%_))) + (let ((_%hd106140106175%_ (let () (declare (not safe)) - (##car _%e103682103714%_))) - (_%tl103684103721%_ + (##car _%e106139106171%_))) + (_%tl106141106178%_ (let () (declare (not safe)) - (##cdr _%e103682103714%_)))) - (if (gx#stx-pair/null? _%tl103684103721%_) - (let ((_g109555_ + (##cdr _%e106139106171%_)))) + (if (gx#stx-pair/null? _%tl106141106178%_) + (let ((_g112523_ (gx#syntax-split-splice - _%tl103684103721%_ + _%tl106141106178%_ '0))) (begin - (let ((_g109556_ + (let ((_g112524_ (let () (declare (not safe)) - (if (##values? _g109555_) - (##values-length _g109555_) + (if (##values? _g112523_) + (##values-length _g112523_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g109556_ 2))) + (##fx= _g112524_ 2))) (error "Context expects 2 values" - _g109556_))) - (let ((_%target103685103724%_ + _g112524_))) + (let ((_%target106142106181%_ (let () (declare (not safe)) - (##values-ref _g109555_ 0))) - (_%tl103687103727%_ + (##values-ref _g112523_ 0))) + (_%tl106144106184%_ (let () (declare (not safe)) - (##values-ref _g109555_ 1)))) - (if (gx#stx-null? _%tl103687103727%_) - (letrec ((_%loop103688103730%_ - (lambda (_%hd103686103734%_ - _%name103692103737%_ - _%t103693103739%_) + (##values-ref _g112523_ 1)))) + (if (gx#stx-null? _%tl106144106184%_) + (letrec ((_%loop106145106187%_ + (lambda (_%hd106143106191%_ + _%name106149106194%_ + _%t106150106195%_) (if (gx#stx-pair? - _%hd103686103734%_) - (let ((_%e103689103742%_ + _%hd106143106191%_) + (let ((_%e106146106197%_ (gx#syntax-e - _%hd103686103734%_))) - (let ((_%lp-hd103690103746%_ + _%hd106143106191%_))) + (let ((_%lp-hd106147106201%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e103689103742%_))) - (_%lp-tl103691103749%_ + (##car _%e106146106197%_))) + (_%lp-tl106148106204%_ (let () (declare (not safe)) - (##cdr _%e103689103742%_)))) - (if (gx#stx-pair? _%lp-hd103690103746%_) - (let ((_%e103696103752%_ - (gx#syntax-e _%lp-hd103690103746%_))) - (let ((_%hd103697103756%_ + (##cdr _%e106146106197%_)))) + (if (gx#stx-pair? _%lp-hd106147106201%_) + (let ((_%e106153106207%_ + (gx#syntax-e _%lp-hd106147106201%_))) + (let ((_%hd106154106211%_ (let () (declare (not safe)) - (##car _%e103696103752%_))) - (_%tl103698103759%_ + (##car _%e106153106207%_))) + (_%tl106155106214%_ (let () (declare (not safe)) - (##cdr _%e103696103752%_)))) - (if (gx#stx-pair? _%tl103698103759%_) - (let ((_%e103699103762%_ - (gx#syntax-e _%tl103698103759%_))) - (let ((_%hd103700103766%_ + (##cdr _%e106153106207%_)))) + (if (gx#stx-pair? _%tl106155106214%_) + (let ((_%e106156106217%_ + (gx#syntax-e _%tl106155106214%_))) + (let ((_%hd106157106221%_ (let () (declare (not safe)) - (##car _%e103699103762%_))) - (_%tl103701103769%_ + (##car _%e106156106217%_))) + (_%tl106158106224%_ (let () (declare (not safe)) - (##cdr _%e103699103762%_)))) - (if (gx#stx-null? _%tl103701103769%_) - (_%loop103688103730%_ - _%lp-tl103691103749%_ - (cons _%hd103700103766%_ - _%name103692103737%_) - (cons _%hd103697103756%_ - _%t103693103739%_)) - (_%g103678103707%_ _%g103679103711%_)))) - (_%g103678103707%_ _%g103679103711%_)))) - (_%g103678103707%_ _%g103679103711%_)))) - (let ((_%name103694103772%_ (reverse _%name103692103737%_)) - (_%t103695103775%_ (reverse _%t103693103739%_))) - ((lambda (_%L103778%_ _%L103780%_) + (##cdr _%e106156106217%_)))) + (if (gx#stx-null? _%tl106158106224%_) + (_%loop106145106187%_ + _%lp-tl106148106204%_ + (cons _%hd106157106221%_ + _%name106149106194%_) + (cons _%hd106154106211%_ + _%t106150106195%_)) + (_%g106135106164%_ _%g106136106168%_)))) + (_%g106135106164%_ _%g106136106168%_)))) + (_%g106135106164%_ _%g106136106168%_)))) + (let ((_%name106151106227%_ (reverse _%name106149106194%_)) + (_%t106152106229%_ (reverse _%t106150106195%_))) + ((lambda (_%g106137106231%_ _%g106138106233%_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _%L103778%_ - _%L103780%_) - (let ((__tmp109557 - (lambda (_%g103795103799%_ - _%g103796103802%_ - _%g103797103804%_) + _%g106137106231%_ + _%g106138106233%_) + (let ((__tmp112525 + (lambda (_%g106248106252%_ + _%g106249106255%_ + _%g106250106257%_) (cons (cons (gx#datum->syntax '#f 'vector-set!) (cons (gx#datum->syntax '#f '__subtype-id) - (cons _%g103796103802%_ + (cons _%g106249106255%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g103795103799%_ '())) + (cons _%g106248106252%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g103797103804%_)))) + _%g106250106257%_)))) (declare (not safe)) (__foldr2 - __tmp109557 + __tmp112525 '() - _%L103778%_ - _%L103780%_))))) - _%name103694103772%_ - _%t103695103775%_)))))) + _%g106137106231%_ + _%g106138106233%_))))) + _%name106151106227%_ + _%t106152106229%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop103688103730%_ - _%target103685103724%_ + (_%loop106145106187%_ + _%target106142106181%_ '() '())) - (_%g103678103707%_ _%g103679103711%_))))) - (_%g103678103707%_ _%g103679103711%_)))) - (_%g103678103707%_ _%g103679103711%_))))) - (_%g103677103807%_ _%$stx103674%_)))) + (_%g106135106164%_ _%g106136106168%_))))) + (_%g106135106164%_ _%g106136106168%_)))) + (_%g106135106164%_ _%g106136106168%_))))) + (_%g106134106260%_ _%$stx106131%_)))) (define |[:0:]#defsystem-class| - (lambda (_%$stx103812%_) - (let* ((_%g103816103847%_ - (lambda (_%g103817103843%_) + (lambda (_%$stx106265%_) + (let* ((_%__stx112225112226%_ _%$stx106265%_) + (_%g106270106329%_ + (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g103817103843%_))) - (_%g103815103966%_ - (lambda (_%g103817103851%_) - (if (gx#stx-pair? _%g103817103851%_) - (let ((_%e103821103854%_ (gx#syntax-e _%g103817103851%_))) - (let ((_%hd103822103858%_ - (let () - (declare (not safe)) - (##car _%e103821103854%_))) - (_%tl103823103861%_ - (let () - (declare (not safe)) - (##cdr _%e103821103854%_)))) - (if (gx#stx-pair? _%tl103823103861%_) - (let ((_%e103824103864%_ - (gx#syntax-e _%tl103823103861%_))) - (let ((_%hd103825103868%_ - (let () - (declare (not safe)) - (##car _%e103824103864%_))) - (_%tl103826103871%_ - (let () + _%__stx112225112226%_)))) + (let ((_%__kont112228112229%_ + (lambda (_%g106272106523%_ + _%g106273106525%_ + _%g106274106526%_ + _%g106275106527%_) + (cons (gx#datum->syntax '#f 'def) + (cons _%g106275106527%_ + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax + '#f + '@mop.system) + (cons _%g106274106526%_ + (cons (let ((__tmp112526 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g106551106556%_ _%g106552106559%_) + (cons _%g106551106556%_ _%g106552106559%_)))) + (declare (not safe)) + (__foldr1 __tmp112526 '() _%g106273106525%_)) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + '__make-system-class) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'quote) + (cons _%g106274106526%_ '())) + (cons (cons (gx#datum->syntax '#f '@list) + (let ((__tmp112527 + (lambda (_%g106553106562%_ + _%g106554106565%_) + (cons _%g106553106562%_ + _%g106554106565%_)))) (declare (not safe)) - (##cdr _%e103824103864%_)))) - (if (gx#stx-pair? _%tl103826103871%_) - (let ((_%e103827103874%_ - (gx#syntax-e _%tl103826103871%_))) - (let ((_%hd103828103878%_ + (__foldr1 + __tmp112527 + '() + _%g106273106525%_))) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%g106272106523%_ '())) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + '()))))) + (_%__kont112232112233%_ + (lambda (_%g106300106404%_ _%g106301106406%_ _%g106302106407%_) + (cons (gx#datum->syntax '#f 'defsystem-class) + (cons _%g106302106407%_ + (cons _%g106301106406%_ + (cons (let ((__tmp112528 + (lambda (_%g106429106432%_ + _%g106430106435%_) + (cons _%g106429106432%_ + _%g106430106435%_)))) + (declare (not safe)) + (__foldr1 + __tmp112528 + '() + _%g106300106404%_)) + (cons '() '())))))))) + (let* ((_%__match112300112301%_ + (lambda (_%e106303106336%_ + _%hd106304106340%_ + _%tl106305106343%_ + _%e106306106346%_ + _%hd106307106350%_ + _%tl106308106353%_ + _%e106309106356%_ + _%hd106310106360%_ + _%tl106311106363%_ + _%e106312106366%_ + _%hd106313106370%_ + _%tl106314106373%_ + _%__splice112234112235%_ + _%target106315106376%_ + _%tl106317106379%_) + (letrec ((_%loop106318106382%_ + (lambda (_%hd106316106386%_ + _%super106322106389%_) + (if (gx#stx-pair? _%hd106316106386%_) + (let ((_%e106319106391%_ + (gx#syntax-e _%hd106316106386%_))) + (let ((_%lp-tl106321106398%_ (let () (declare (not safe)) - (##car _%e103827103874%_))) - (_%tl103829103881%_ + (##cdr _%e106319106391%_))) + (_%lp-hd106320106395%_ (let () (declare (not safe)) - (##cdr _%e103827103874%_)))) - (if (gx#stx-pair? _%tl103829103881%_) - (let ((_%e103830103884%_ - (gx#syntax-e - _%tl103829103881%_))) - (let ((_%hd103831103888%_ - (let () - (declare (not safe)) - (##car _%e103830103884%_))) - (_%tl103832103891%_ - (let () - (declare (not safe)) - (##cdr _%e103830103884%_)))) - (if (gx#stx-pair/null? - _%hd103831103888%_) - (let ((_g109558_ - (gx#syntax-split-splice - _%hd103831103888%_ - '0))) - (begin - (let ((_g109559_ - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (if (##values? _g109558_) - (##values-length _g109558_) - 1)))) - (if (not (let () (declare (not safe)) (##fx= _g109559_ 2))) - (error "Context expects 2 values" _g109559_))) - (let ((_%target103833103894%_ - (let () - (declare (not safe)) - (##values-ref _g109558_ 0))) - (_%tl103835103897%_ - (let () - (declare (not safe)) - (##values-ref _g109558_ 1)))) - (if (gx#stx-null? _%tl103835103897%_) - (letrec ((_%loop103836103900%_ - (lambda (_%hd103834103904%_ - _%super103840103907%_) - (if (gx#stx-pair? _%hd103834103904%_) - (let ((_%e103837103910%_ - (gx#syntax-e _%hd103834103904%_))) - (let ((_%lp-hd103838103914%_ - (let () - (declare (not safe)) - (##car _%e103837103910%_))) - (_%lp-tl103839103917%_ - (let () - (declare (not safe)) - (##cdr _%e103837103910%_)))) - (_%loop103836103900%_ - _%lp-tl103839103917%_ - (cons _%lp-hd103838103914%_ - _%super103840103907%_)))) - (let ((_%super103841103920%_ - (reverse _%super103840103907%_))) - (if (gx#stx-null? _%tl103832103891%_) - ((lambda (_%L103924%_ - _%L103926%_ - _%L103927%_) - (cons (gx#datum->syntax + (##car _%e106319106391%_)))) + (_%loop106318106382%_ + _%lp-tl106321106398%_ + (cons _%lp-hd106320106395%_ + _%super106322106389%_)))) + (let ((_%super106323106401%_ + (reverse _%super106322106389%_))) + (if (gx#stx-null? _%tl106314106373%_) + (_%__kont112232112233%_ + _%super106323106401%_ + _%hd106310106360%_ + _%hd106307106350%_) + (let () + (declare (not safe)) + (_%g106270106329%_)))))))) + (_%loop106318106382%_ _%target106315106376%_ '())))) + (_%__match112268112269%_ + (lambda (_%e106276106445%_ + _%hd106277106449%_ + _%tl106278106452%_ + _%e106279106455%_ + _%hd106280106459%_ + _%tl106281106462%_ + _%e106282106465%_ + _%hd106283106469%_ + _%tl106284106472%_ + _%e106285106475%_ + _%hd106286106479%_ + _%tl106287106482%_ + _%__splice112230112231%_ + _%target106288106485%_ + _%tl106290106488%_) + (letrec ((_%loop106291106491%_ + (lambda (_%hd106289106495%_ + _%super106295106498%_) + (if (gx#stx-pair? _%hd106289106495%_) + (let ((_%e106292106500%_ + (gx#syntax-e _%hd106289106495%_))) + (let ((_%lp-tl106294106507%_ + (let () + (declare (not safe)) + (##cdr _%e106292106500%_))) + (_%lp-hd106293106504%_ + (let () + (declare (not safe)) + (##car _%e106292106500%_)))) + (_%loop106291106491%_ + _%lp-tl106294106507%_ + (cons _%lp-hd106293106504%_ + _%super106295106498%_)))) + (let ((_%super106296106510%_ + (reverse _%super106295106498%_))) + (if (gx#stx-pair? _%tl106287106482%_) + (let ((_%e106297106513%_ + (gx#syntax-e + _%tl106287106482%_))) + (let ((_%tl106299106520%_ + (let () + (declare (not safe)) + (##cdr _%e106297106513%_))) + (_%hd106298106517%_ + (let () + (declare (not safe)) + (##car _%e106297106513%_)))) + (if (gx#stx-null? + _%tl106299106520%_) + (_%__kont112228112229%_ + _%hd106298106517%_ + _%super106296106510%_ + _%hd106283106469%_ + _%hd106280106459%_) + (_%__match112300112301%_ + _%e106276106445%_ + _%hd106277106449%_ + _%tl106278106452%_ + _%e106279106455%_ + _%hd106280106459%_ + _%tl106281106462%_ + _%e106282106465%_ + _%hd106283106469%_ + _%tl106284106472%_ + _%e106285106475%_ + _%hd106286106479%_ + _%tl106287106482%_ + _%__splice112230112231%_ + _%target106288106485%_ + _%tl106290106488%_)))) + (_%__match112300112301%_ + _%e106276106445%_ + _%hd106277106449%_ + _%tl106278106452%_ + _%e106279106455%_ + _%hd106280106459%_ + _%tl106281106462%_ + _%e106282106465%_ + _%hd106283106469%_ + _%tl106284106472%_ + _%e106285106475%_ + _%hd106286106479%_ + _%tl106287106482%_ + _%__splice112230112231%_ + _%target106288106485%_ + _%tl106290106488%_))))))) + (_%loop106291106491%_ _%target106288106485%_ '()))))) + (if (gx#stx-pair? _%__stx112225112226%_) + (let ((_%e106276106445%_ (gx#syntax-e _%__stx112225112226%_))) + (let ((_%tl106278106452%_ + (let () + (declare (not safe)) + (##cdr _%e106276106445%_))) + (_%hd106277106449%_ + (let () + (declare (not safe)) + (##car _%e106276106445%_)))) + (if (gx#stx-pair? _%tl106278106452%_) + (let ((_%e106279106455%_ + (gx#syntax-e _%tl106278106452%_))) + (let ((_%tl106281106462%_ + (let () + (declare (not safe)) + (##cdr _%e106279106455%_))) + (_%hd106280106459%_ + (let () + (declare (not safe)) + (##car _%e106279106455%_)))) + (if (gx#stx-pair? _%tl106281106462%_) + (let ((_%e106282106465%_ + (gx#syntax-e _%tl106281106462%_))) + (let ((_%tl106284106472%_ + (let () + (declare (not safe)) + (##cdr _%e106282106465%_))) + (_%hd106283106469%_ + (let () + (declare (not safe)) + (##car _%e106282106465%_)))) + (if (gx#stx-pair? _%tl106284106472%_) + (let ((_%e106285106475%_ + (gx#syntax-e + _%tl106284106472%_))) + (let ((_%tl106287106482%_ + (let () + (declare (not safe)) + (##cdr _%e106285106475%_))) + (_%hd106286106479%_ + (let () + (declare (not safe)) + (##car _%e106285106475%_)))) + (if (gx#stx-pair/null? + _%hd106286106479%_) + (let ((_%__splice112230112231%_ + (gx#syntax-split-splice->vector + _%hd106286106479%_ + '0))) + (let ((_%tl106290106488%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice112230112231%_ + '1))) + (_%target106288106485%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice112230112231%_ + '0)))) + (if (gx#stx-null? + _%tl106290106488%_) + (_%__match112268112269%_ + _%e106276106445%_ + _%hd106277106449%_ + _%tl106278106452%_ + _%e106279106455%_ + _%hd106280106459%_ + _%tl106281106462%_ + _%e106282106465%_ + _%hd106283106469%_ + _%tl106284106472%_ + _%e106285106475%_ + _%hd106286106479%_ + _%tl106287106482%_ + _%__splice112230112231%_ + _%target106288106485%_ + _%tl106290106488%_) + (let () + (declare (not safe)) + (_%g106270106329%_))))) + (let () + (declare (not safe)) + (_%g106270106329%_))))) + (let () + (declare (not safe)) + (_%g106270106329%_))))) + (let () + (declare (not safe)) + (_%g106270106329%_))))) + (let () (declare (not safe)) (_%g106270106329%_))))) + (let () (declare (not safe)) (_%g106270106329%_)))))))) + (define |[:0:]#defshadow-class| + (lambda (_%$stx106574%_) + (let* ((_%__stx112303112304%_ _%$stx106574%_) + (_%g106579106638%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx112303112304%_)))) + (let ((_%__kont112306112307%_ + (lambda (_%g106581106832%_ + _%g106582106834%_ + _%g106583106835%_ + _%g106584106836%_) + (cons (gx#datum->syntax '#f 'def) + (cons _%g106584106836%_ + (cons (cons (gx#datum->syntax + '#f + 'begin-annotation) + (cons (cons (gx#datum->syntax '#f - 'def) - (cons _%L103927%_ - (cons (cons (gx#datum->syntax + '@mop.system) + (cons _%g106584106836%_ + (cons (let ((__tmp112529 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax '#f '@mop.system) - (cons _%L103926%_ - (cons (let ((__tmp109560 - (lambda (_%g103949103954%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g103950103957%_) - (cons _%g103949103954%_ _%g103950103957%_)))) - (declare (not safe)) - (__foldr1 __tmp109560 '() _%L103924%_)) - '()))) + (lambda (_%g106860106863%_ _%g106861106866%_) + (cons _%g106860106863%_ _%g106861106866%_)))) + (declare (not safe)) + (__foldr1 __tmp112529 '() _%g106583106835%_)) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - '__make-system-class) - (cons (cons (gx#datum->syntax - '#f - 'quote) - (cons _%L103926%_ + (cons (cons (gx#datum->syntax + '#f + '__shadow-class) + (cons _%g106582106834%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())) - (cons (cons (gx#datum->syntax '#f '@list) - (let ((__tmp109561 - (lambda (_%g103951103960%_ _%g103952103963%_) - (cons _%g103951103960%_ - _%g103952103963%_)))) - (declare (not safe)) - (__foldr1 __tmp109561 '() _%L103924%_))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%super103841103920%_ - _%hd103828103878%_ - _%hd103825103868%_) - (_%g103816103847%_ - _%g103817103851%_))))))) - (_%loop103836103900%_ _%target103833103894%_ '())) - (_%g103816103847%_ _%g103817103851%_))))) + (cons (cons (gx#datum->syntax '#f 'quote) + (cons _%g106581106832%_ '())) + '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g103816103847%_ - _%g103817103851%_)))) - (_%g103816103847%_ - _%g103817103851%_)))) - (_%g103816103847%_ _%g103817103851%_)))) - (_%g103816103847%_ _%g103817103851%_)))) - (_%g103816103847%_ _%g103817103851%_))))) - (_%g103815103966%_ _%$stx103812%_)))) - (define |[:0:]#defshadow-class| - (lambda (_%$stx103971%_) - (let* ((_%g103975104006%_ - (lambda (_%g103976104002%_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _%g103976104002%_))) - (_%g103974104117%_ - (lambda (_%g103976104010%_) - (if (gx#stx-pair? _%g103976104010%_) - (let ((_%e103980104013%_ (gx#syntax-e _%g103976104010%_))) - (let ((_%hd103981104017%_ - (let () - (declare (not safe)) - (##car _%e103980104013%_))) - (_%tl103982104020%_ - (let () - (declare (not safe)) - (##cdr _%e103980104013%_)))) - (if (gx#stx-pair? _%tl103982104020%_) - (let ((_%e103983104023%_ - (gx#syntax-e _%tl103982104020%_))) - (let ((_%hd103984104027%_ - (let () - (declare (not safe)) - (##car _%e103983104023%_))) - (_%tl103985104030%_ - (let () - (declare (not safe)) - (##cdr _%e103983104023%_)))) - (if (gx#stx-pair? _%tl103985104030%_) - (let ((_%e103986104033%_ - (gx#syntax-e _%tl103985104030%_))) - (let ((_%hd103987104037%_ + '()))) + '()))))) + (_%__kont112310112311%_ + (lambda (_%g106609106713%_ _%g106610106715%_ _%g106611106716%_) + (cons (gx#datum->syntax '#f 'defshadow-class) + (cons _%g106611106716%_ + (cons (let ((__tmp112530 + (lambda (_%g106738106741%_ + _%g106739106744%_) + (cons _%g106738106741%_ + _%g106739106744%_)))) + (declare (not safe)) + (__foldr1 + __tmp112530 + '() + _%g106610106715%_)) + (cons _%g106609106713%_ + (cons '() '())))))))) + (let* ((_%__match112366112367%_ + (lambda (_%e106612106645%_ + _%hd106613106649%_ + _%tl106614106652%_ + _%e106615106655%_ + _%hd106616106659%_ + _%tl106617106662%_ + _%e106618106665%_ + _%hd106619106669%_ + _%tl106620106672%_ + _%__splice112312112313%_ + _%target106621106675%_ + _%tl106623106678%_) + (letrec ((_%loop106624106681%_ + (lambda (_%hd106622106685%_ + _%super106628106688%_) + (if (gx#stx-pair? _%hd106622106685%_) + (let ((_%e106625106690%_ + (gx#syntax-e _%hd106622106685%_))) + (let ((_%lp-tl106627106697%_ (let () (declare (not safe)) - (##car _%e103986104033%_))) - (_%tl103988104040%_ + (##cdr _%e106625106690%_))) + (_%lp-hd106626106694%_ (let () (declare (not safe)) - (##cdr _%e103986104033%_)))) - (if (gx#stx-pair/null? - _%hd103987104037%_) - (let ((_g109562_ - (gx#syntax-split-splice - _%hd103987104037%_ - '0))) - (begin - (let ((_g109563_ - (let () - (declare (not safe)) - (if (##values? - _g109562_) - (##values-length - _g109562_) - 1)))) - (if (not (let () - (declare - (not safe)) - (##fx= _g109563_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - 2))) - (error "Context expects 2 values" _g109563_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target103989104043%_ - (let () - (declare (not safe)) - (##values-ref - _g109562_ - 0))) - (_%tl103991104046%_ - (let () - (declare (not safe)) - (##values-ref - _g109562_ - 1)))) - (if (gx#stx-null? - _%tl103991104046%_) - (letrec ((_%loop103992104049%_ - (lambda (_%hd103990104053%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%super103996104056%_) - (if (gx#stx-pair? _%hd103990104053%_) - (let ((_%e103993104059%_ - (gx#syntax-e _%hd103990104053%_))) - (let ((_%lp-hd103994104063%_ - (let () - (declare (not safe)) - (##car _%e103993104059%_))) - (_%lp-tl103995104066%_ - (let () - (declare (not safe)) - (##cdr _%e103993104059%_)))) - (_%loop103992104049%_ - _%lp-tl103995104066%_ - (cons _%lp-hd103994104063%_ - _%super103996104056%_)))) - (let ((_%super103997104069%_ - (reverse _%super103996104056%_))) - (if (gx#stx-pair? _%tl103988104040%_) - (let ((_%e103998104073%_ - (gx#syntax-e _%tl103988104040%_))) - (let ((_%hd103999104077%_ + (##car _%e106625106690%_)))) + (_%loop106624106681%_ + _%lp-tl106627106697%_ + (cons _%lp-hd106626106694%_ + _%super106628106688%_)))) + (let ((_%super106629106700%_ + (reverse _%super106628106688%_))) + (if (gx#stx-pair? _%tl106620106672%_) + (let ((_%e106630106703%_ + (gx#syntax-e + _%tl106620106672%_))) + (let ((_%tl106632106710%_ + (let () + (declare (not safe)) + (##cdr _%e106630106703%_))) + (_%hd106631106707%_ + (let () + (declare (not safe)) + (##car _%e106630106703%_)))) + (if (gx#stx-null? + _%tl106632106710%_) + (_%__kont112310112311%_ + _%hd106631106707%_ + _%super106629106700%_ + _%hd106616106659%_) + (let () + (declare (not safe)) + (_%g106579106638%_))))) + (let () + (declare (not safe)) + (_%g106579106638%_)))))))) + (_%loop106624106681%_ _%target106621106675%_ '())))) + (_%__match112340112341%_ + (lambda (_%e106585106754%_ + _%hd106586106758%_ + _%tl106587106761%_ + _%e106588106764%_ + _%hd106589106768%_ + _%tl106590106771%_ + _%e106591106774%_ + _%hd106592106778%_ + _%tl106593106781%_ + _%__splice112308112309%_ + _%target106594106784%_ + _%tl106596106787%_) + (letrec ((_%loop106597106790%_ + (lambda (_%hd106595106794%_ + _%super106601106797%_) + (if (gx#stx-pair? _%hd106595106794%_) + (let ((_%e106598106799%_ + (gx#syntax-e _%hd106595106794%_))) + (let ((_%lp-tl106600106806%_ (let () (declare (not safe)) - (##car _%e103998104073%_))) - (_%tl104000104080%_ + (##cdr _%e106598106799%_))) + (_%lp-hd106599106803%_ (let () (declare (not safe)) - (##cdr _%e103998104073%_)))) - (if (gx#stx-null? _%tl104000104080%_) - ((lambda (_%L104083%_ - _%L104085%_ - _%L104086%_) - (cons (gx#datum->syntax - '#f - 'def) - (cons _%L104086%_ - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'begin-annotation) - (cons (cons (gx#datum->syntax '#f '@mop.system) - (cons _%L104086%_ - (cons (let ((__tmp109564 - (lambda (_%g104108104111%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g104109104114%_) - (cons _%g104108104111%_ _%g104109104114%_)))) - (declare (not safe)) - (__foldr1 __tmp109564 '() _%L104085%_)) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - '__shadow-class) - (cons _%L104083%_ '())) - '()))) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd103999104077%_ - _%super103997104069%_ - _%hd103984104027%_) - (_%g103975104006%_ - _%g103976104010%_)))) - (_%g103975104006%_ _%g103976104010%_))))))) - (_%loop103992104049%_ _%target103989104043%_ '())) - (_%g103975104006%_ _%g103976104010%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g103975104006%_ - _%g103976104010%_)))) - (_%g103975104006%_ _%g103976104010%_)))) - (_%g103975104006%_ _%g103976104010%_)))) - (_%g103975104006%_ _%g103976104010%_))))) - (_%g103974104117%_ _%$stx103971%_))))) + (##car _%e106598106799%_)))) + (_%loop106597106790%_ + _%lp-tl106600106806%_ + (cons _%lp-hd106599106803%_ + _%super106601106797%_)))) + (let ((_%super106602106809%_ + (reverse _%super106601106797%_))) + (if (gx#stx-pair? _%tl106593106781%_) + (let ((_%e106603106812%_ + (gx#syntax-e + _%tl106593106781%_))) + (let ((_%tl106605106819%_ + (let () + (declare (not safe)) + (##cdr _%e106603106812%_))) + (_%hd106604106816%_ + (let () + (declare (not safe)) + (##car _%e106603106812%_)))) + (if (gx#stx-pair? + _%tl106605106819%_) + (let ((_%e106606106822%_ + (gx#syntax-e + _%tl106605106819%_))) + (let ((_%tl106608106829%_ + (let () + (declare + (not safe)) + (##cdr _%e106606106822%_))) + (_%hd106607106826%_ + (let () + (declare + (not safe)) + (##car _%e106606106822%_)))) + (if (gx#stx-null? + _%tl106608106829%_) + (_%__kont112306112307%_ + _%hd106607106826%_ + _%hd106604106816%_ + _%super106602106809%_ + _%hd106589106768%_) + (_%__match112366112367%_ + _%e106585106754%_ + _%hd106586106758%_ + _%tl106587106761%_ + _%e106588106764%_ + _%hd106589106768%_ + _%tl106590106771%_ + _%e106591106774%_ + _%hd106592106778%_ + _%tl106593106781%_ + _%__splice112308112309%_ + _%target106594106784%_ + _%tl106596106787%_)))) + (_%__match112366112367%_ + _%e106585106754%_ + _%hd106586106758%_ + _%tl106587106761%_ + _%e106588106764%_ + _%hd106589106768%_ + _%tl106590106771%_ + _%e106591106774%_ + _%hd106592106778%_ + _%tl106593106781%_ + _%__splice112308112309%_ + _%target106594106784%_ + _%tl106596106787%_)))) + (_%__match112366112367%_ + _%e106585106754%_ + _%hd106586106758%_ + _%tl106587106761%_ + _%e106588106764%_ + _%hd106589106768%_ + _%tl106590106771%_ + _%e106591106774%_ + _%hd106592106778%_ + _%tl106593106781%_ + _%__splice112308112309%_ + _%target106594106784%_ + _%tl106596106787%_))))))) + (_%loop106597106790%_ _%target106594106784%_ '()))))) + (if (gx#stx-pair? _%__stx112303112304%_) + (let ((_%e106585106754%_ (gx#syntax-e _%__stx112303112304%_))) + (let ((_%tl106587106761%_ + (let () + (declare (not safe)) + (##cdr _%e106585106754%_))) + (_%hd106586106758%_ + (let () + (declare (not safe)) + (##car _%e106585106754%_)))) + (if (gx#stx-pair? _%tl106587106761%_) + (let ((_%e106588106764%_ + (gx#syntax-e _%tl106587106761%_))) + (let ((_%tl106590106771%_ + (let () + (declare (not safe)) + (##cdr _%e106588106764%_))) + (_%hd106589106768%_ + (let () + (declare (not safe)) + (##car _%e106588106764%_)))) + (if (gx#stx-pair? _%tl106590106771%_) + (let ((_%e106591106774%_ + (gx#syntax-e _%tl106590106771%_))) + (let ((_%tl106593106781%_ + (let () + (declare (not safe)) + (##cdr _%e106591106774%_))) + (_%hd106592106778%_ + (let () + (declare (not safe)) + (##car _%e106591106774%_)))) + (if (gx#stx-pair/null? _%hd106592106778%_) + (let ((_%__splice112308112309%_ + (gx#syntax-split-splice->vector + _%hd106592106778%_ + '0))) + (let ((_%tl106596106787%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice112308112309%_ + '1))) + (_%target106594106784%_ + (let () + (declare (not safe)) + (##vector-ref + _%__splice112308112309%_ + '0)))) + (if (gx#stx-null? + _%tl106596106787%_) + (_%__match112340112341%_ + _%e106585106754%_ + _%hd106586106758%_ + _%tl106587106761%_ + _%e106588106764%_ + _%hd106589106768%_ + _%tl106590106771%_ + _%e106591106774%_ + _%hd106592106778%_ + _%tl106593106781%_ + _%__splice112308112309%_ + _%target106594106784%_ + _%tl106596106787%_) + (let () + (declare (not safe)) + (_%g106579106638%_))))) + (let () + (declare (not safe)) + (_%g106579106638%_))))) + (let () + (declare (not safe)) + (_%g106579106638%_))))) + (let () (declare (not safe)) (_%g106579106638%_))))) + (let () (declare (not safe)) (_%g106579106638%_))))))))) diff --git a/src/bootstrap/gerbil/runtime/repl~0.scm b/src/bootstrap/gerbil/runtime/repl~0.scm index e39d7c83c9..fd849e49de 100644 --- a/src/bootstrap/gerbil/runtime/repl~0.scm +++ b/src/bootstrap/gerbil/runtime/repl~0.scm @@ -1,30 +1,30 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/repl::timestamp 1756721295) + (define gerbil/runtime/repl::timestamp 1769384628) (define replx (lambda () - (letrec ((_%write-reason123642%_ - (lambda (_%exn123648%_) - (lambda (_%cont123650%_ _%port123651%_) + (letrec ((_%write-reason127410%_ + (lambda (_%exn127416%_) + (lambda (_%cont127418%_ _%port127419%_) (let () (declare (not safe)) (##display-exception-in-context - _%exn123648%_ - _%cont123650%_ - _%port123651%_)) + _%exn127416%_ + _%cont127418%_ + _%port127419%_)) '#f)))) - (let ((__tmp123652 - (lambda (_%exn123644%_) - (let ((__tmp123653 - (lambda (_%cont123646%_) - (let ((__tmp123654 - (_%write-reason123642%_ _%exn123644%_))) + (let ((__tmp127420 + (lambda (_%exn127412%_) + (let ((__tmp127421 + (lambda (_%cont127414%_) + (let ((__tmp127422 + (_%write-reason127410%_ _%exn127412%_))) (declare (not safe)) (##repl-within - _%cont123646%_ - __tmp123654 - _%exn123644%_))))) + _%cont127414%_ + __tmp127422 + _%exn127412%_))))) (declare (not safe)) - (##continuation-capture __tmp123653))))) + (##continuation-capture __tmp127421))))) (declare (not safe)) - (with-exception-handler __tmp123652 ##repl)))))) + (with-exception-handler __tmp127420 ##repl)))))) diff --git a/src/bootstrap/gerbil/runtime/syntax.scm b/src/bootstrap/gerbil/runtime/syntax.scm index 932d81ae8f..ee9891c893 100644 --- a/src/bootstrap/gerbil/runtime/syntax.scm +++ b/src/bootstrap/gerbil/runtime/syntax.scm @@ -4,5 +4,6 @@ (load-module "gerbil/runtime/gambit") (load-module "gerbil/runtime/util") (load-module "gerbil/runtime/mop") - (load-module "gerbil/runtime/error")) + (load-module "gerbil/runtime/error") + (load-module "gerbil/runtime/system")) (load-module "gerbil/runtime/syntax~0")) diff --git a/src/bootstrap/gerbil/runtime/syntax.ssi b/src/bootstrap/gerbil/runtime/syntax.ssi index ad87ccd17b..cf40c99450 100644 --- a/src/bootstrap/gerbil/runtime/syntax.ssi +++ b/src/bootstrap/gerbil/runtime/syntax.ssi @@ -7,7 +7,8 @@ namespace: #f :gerbil/runtime/gambit :gerbil/runtime/util :gerbil/runtime/mop - :gerbil/runtime/error) + :gerbil/runtime/error + :gerbil/runtime/system) (%#begin (%#begin-syntax (%#call (%#ref load-module) (%#quote "gerbil/runtime/syntax~1"))) diff --git a/src/bootstrap/gerbil/runtime/syntax~0.scm b/src/bootstrap/gerbil/runtime/syntax~0.scm index 6537e2432d..db739e1b3e 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 1756721295) + (define gerbil/runtime/syntax::timestamp 1769384628) (begin (declare (not safe)) (define SyntaxError::t @@ -13,8 +13,8 @@ '#f)) (define SyntaxError? (__make-class-predicate SyntaxError::t)) (define make-SyntaxError - (lambda _%$args120879%_ - (apply make-instance SyntaxError::t _%$args120879%_))) + (lambda _%$args124649%_ + (apply make-instance SyntaxError::t _%$args124649%_))) (define SyntaxError-message (__make-class-slot-accessor SyntaxError::t 'message)) (define SyntaxError-irritants @@ -71,249 +71,249 @@ (define &SyntaxError-continuation-set! (__make-class-slot-unchecked-mutator SyntaxError::t 'continuation)) (define SyntaxError::display-exception - (lambda (_%self120597%_ _%port120598%_) - (let ((_%self120601%_ _%self120597%_)) - (letrec ((_%location120612%_ + (lambda (_%self124368%_ _%port124369%_) + (let ((_%self124372%_ _%self124368%_)) + (letrec ((_%location124383%_ (lambda () - (letrec ((_%from-irritants120754%_ + (letrec ((_%from-irritants124524%_ (lambda () - (let _%lp120839%_ ((_%rest120841%_ + (let _%lp124609%_ ((_%rest124611%_ (##unchecked-structure-ref - _%self120601%_ + _%self124372%_ '3 '#f '#f))) - (let* ((_%rest120842120850%_ - _%rest120841%_) - (_%else120844120858%_ + (let* ((_%rest124612124620%_ + _%rest124611%_) + (_%else124614124628%_ (lambda () '#f)) - (_%K120846120867%_ - (lambda (_%rest120861%_ - _%hd120862%_) - (let ((_%$e120864%_ + (_%K124616124637%_ + (lambda (_%rest124631%_ + _%hd124632%_) + (let ((_%$e124634%_ (__AST-source - _%hd120862%_))) - (if _%$e120864%_ - _%$e120864%_ - (_%lp120839%_ - _%rest120861%_)))))) - (if (pair? _%rest120842120850%_) - (let ((_%hd120847120870%_ - (##car _%rest120842120850%_)) - (_%tl120848120872%_ - (##cdr _%rest120842120850%_))) - (let* ((_%hd120875%_ - _%hd120847120870%_) - (_%rest120877%_ - _%tl120848120872%_)) - (_%K120846120867%_ - _%rest120877%_ - _%hd120875%_))) - (_%else120844120858%_)))))) - (_%from-context120755%_ + _%hd124632%_))) + (if _%$e124634%_ + _%$e124634%_ + (_%lp124609%_ + _%rest124631%_)))))) + (if (pair? _%rest124612124620%_) + (let ((_%hd124617124640%_ + (##car _%rest124612124620%_)) + (_%tl124618124642%_ + (##cdr _%rest124612124620%_))) + (let* ((_%hd124645%_ + _%hd124617124640%_) + (_%rest124647%_ + _%tl124618124642%_)) + (_%K124616124637%_ + _%rest124647%_ + _%hd124645%_))) + (_%else124614124628%_)))))) + (_%from-context124525%_ (lambda () - (let _%lp120761%_ ((_%rest120763%_ + (let _%lp124531%_ ((_%rest124533%_ (##unchecked-structure-ref - _%self120601%_ + _%self124372%_ '4 '#f '#f))) - (let* ((_%rest120764120772%_ - _%rest120763%_) - (_%else120766120780%_ + (let* ((_%rest124534124542%_ + _%rest124533%_) + (_%else124536124550%_ (lambda () '#f)) - (_%K120768120826%_ - (lambda (_%rest120783%_ - _%hd120784%_) - (let* ((_%hd120785120795%_ - _%hd120784%_) - (_%else120787120803%_ + (_%K124538124596%_ + (lambda (_%rest124553%_ + _%hd124554%_) + (let* ((_%hd124555124565%_ + _%hd124554%_) + (_%else124557124573%_ (lambda () - (_%lp120761%_ - _%rest120783%_))) - (_%K120789120811%_ - (lambda (_%loc120806%_) - (let ((_%$e120808%_ + (_%lp124531%_ + _%rest124553%_))) + (_%K124559124581%_ + (lambda (_%loc124576%_) + (let ((_%$e124578%_ (__AST-source - _%loc120806%_))) - (if _%$e120808%_ - _%$e120808%_ - (_%lp120761%_ - _%rest120783%_)))))) - (if (pair? _%hd120785120795%_) - (let ((_%hd120790120814%_ - (##car _%hd120785120795%_)) - (_%tl120791120816%_ - (##cdr _%hd120785120795%_))) - (if (##eq? _%hd120790120814%_ + _%loc124576%_))) + (if _%$e124578%_ + _%$e124578%_ + (_%lp124531%_ + _%rest124553%_)))))) + (if (pair? _%hd124555124565%_) + (let ((_%hd124560124584%_ + (##car _%hd124555124565%_)) + (_%tl124561124586%_ + (##cdr _%hd124555124565%_))) + (if (##eq? _%hd124560124584%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '@) - (if (pair? _%tl120791120816%_) - (let ((_%hd120792120819%_ (##car _%tl120791120816%_)) - (_%tl120793120821%_ (##cdr _%tl120791120816%_))) - (let ((_%loc120824%_ _%hd120792120819%_)) - (if (null? _%tl120793120821%_) - (_%K120789120811%_ _%loc120824%_) - (_%else120787120803%_)))) - (_%else120787120803%_)) - (_%else120787120803%_))) + (if (pair? _%tl124561124586%_) + (let ((_%hd124562124589%_ (##car _%tl124561124586%_)) + (_%tl124563124591%_ (##cdr _%tl124561124586%_))) + (let ((_%loc124594%_ _%hd124562124589%_)) + (if (null? _%tl124563124591%_) + (_%K124559124581%_ _%loc124594%_) + (_%else124557124573%_)))) + (_%else124557124573%_)) + (_%else124557124573%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else120787120803%_)))))) - (if (pair? _%rest120764120772%_) - (let ((_%hd120769120829%_ - (##car _%rest120764120772%_)) - (_%tl120770120831%_ - (##cdr _%rest120764120772%_))) - (let* ((_%hd120834%_ - _%hd120769120829%_) - (_%rest120836%_ - _%tl120770120831%_)) - (_%K120768120826%_ - _%rest120836%_ - _%hd120834%_))) - (_%else120766120780%_))))))) - (let ((_%$e120757%_ (_%from-irritants120754%_))) - (if _%$e120757%_ - _%$e120757%_ - (_%from-context120755%_))))))) + (_%else124557124573%_)))))) + (if (pair? _%rest124534124542%_) + (let ((_%hd124539124599%_ + (##car _%rest124534124542%_)) + (_%tl124540124601%_ + (##cdr _%rest124534124542%_))) + (let* ((_%hd124604%_ + _%hd124539124599%_) + (_%rest124606%_ + _%tl124540124601%_)) + (_%K124538124596%_ + _%rest124606%_ + _%hd124604%_))) + (_%else124536124550%_))))))) + (let ((_%$e124527%_ (_%from-irritants124524%_))) + (if _%$e124527%_ + _%$e124527%_ + (_%from-context124525%_))))))) (call-with-parameters__1 (lambda () (newline) (display '"*** ERROR IN ") - (let ((_%$e120615%_ (_%location120612%_))) - (if _%$e120615%_ - ((lambda (_%loc120618%_) - (##display-locat _%loc120618%_ '#t _%port120598%_)) - _%$e120615%_) + (let ((_%$e124386%_ (_%location124383%_))) + (if _%$e124386%_ + ((lambda (_%loc124389%_) + (##display-locat _%loc124389%_ '#t _%port124369%_)) + _%$e124386%_) (display '"?"))) (newline) (displayln '"--- Syntax Error: " - (##unchecked-structure-ref _%self120601%_ '2 '#f '#f)) - (let ((_%$e120621%_ - (##unchecked-structure-ref _%self120601%_ '4 '#f '#f))) - (if _%$e120621%_ - ((lambda (_%where120624%_) + (##unchecked-structure-ref _%self124372%_ '2 '#f '#f)) + (let ((_%$e124392%_ + (##unchecked-structure-ref _%self124372%_ '4 '#f '#f))) + (if _%$e124392%_ + ((lambda (_%where124395%_) (displayln '"--- Context: ") - (let _%lp120626%_ ((_%rest120628%_ _%where120624%_)) - (let* ((_%rest120629120637%_ _%rest120628%_) - (_%else120631120645%_ (lambda () '#!void)) - (_%K120633120695%_ - (lambda (_%rest120648%_ _%hd120649%_) - (let* ((_%hd120650120660%_ _%hd120649%_) - (_%else120652120668%_ + (let _%lp124397%_ ((_%rest124399%_ _%where124395%_)) + (let* ((_%rest124400124408%_ _%rest124399%_) + (_%else124402124416%_ (lambda () '#!void)) + (_%K124404124466%_ + (lambda (_%rest124419%_ _%hd124420%_) + (let* ((_%hd124421124431%_ _%hd124420%_) + (_%else124423124439%_ (lambda () - (displayln '" at " _%hd120649%_) - (_%lp120626%_ _%rest120648%_))) - (_%K120654120680%_ - (lambda (_%ctx120671%_) - (let ((_%$e120673%_ + (displayln '" at " _%hd124420%_) + (_%lp124397%_ _%rest124419%_))) + (_%K124425124451%_ + (lambda (_%ctx124442%_) + (let ((_%$e124444%_ (__AST-source - _%ctx120671%_))) - (if _%$e120673%_ - ((lambda (_%loc120676%_) + _%ctx124442%_))) + (if _%$e124444%_ + ((lambda (_%loc124447%_) (display '" at ") (##display-locat - _%loc120676%_ + _%loc124447%_ '#t - _%port120598%_) + _%port124369%_) (newline) - (_%lp120626%_ - _%rest120648%_)) - _%$e120673%_) + (_%lp124397%_ + _%rest124419%_)) + _%$e124444%_) (if (##structure-instance-of? - _%ctx120671%_ + _%ctx124442%_ 'gerbil#AST::t) (let () (display '" at ") (__pp-syntax - _%ctx120671%_) - (_%lp120626%_ - _%rest120648%_)) - (_%lp120626%_ - _%rest120648%_))))))) - (if (pair? _%hd120650120660%_) - (let ((_%hd120655120683%_ - (##car _%hd120650120660%_)) - (_%tl120656120685%_ - (##cdr _%hd120650120660%_))) - (if (##eq? _%hd120655120683%_ '@) - (if (pair? _%tl120656120685%_) - (let ((_%hd120657120688%_ - (##car _%tl120656120685%_)) - (_%tl120658120690%_ - (##cdr _%tl120656120685%_))) - (let ((_%ctx120693%_ - _%hd120657120688%_)) - (if (null? _%tl120658120690%_) - (_%K120654120680%_ - _%ctx120693%_) - (_%else120652120668%_)))) - (_%else120652120668%_)) - (_%else120652120668%_))) - (_%else120652120668%_)))))) - (if (pair? _%rest120629120637%_) - (let ((_%hd120634120698%_ - (##car _%rest120629120637%_)) - (_%tl120635120700%_ - (##cdr _%rest120629120637%_))) - (let* ((_%hd120703%_ _%hd120634120698%_) - (_%rest120705%_ _%tl120635120700%_)) - (_%K120633120695%_ - _%rest120705%_ - _%hd120703%_))) + _%ctx124442%_) + (_%lp124397%_ + _%rest124419%_)) + (_%lp124397%_ + _%rest124419%_))))))) + (if (pair? _%hd124421124431%_) + (let ((_%hd124426124454%_ + (##car _%hd124421124431%_)) + (_%tl124427124456%_ + (##cdr _%hd124421124431%_))) + (if (##eq? _%hd124426124454%_ '@) + (if (pair? _%tl124427124456%_) + (let ((_%hd124428124459%_ + (##car _%tl124427124456%_)) + (_%tl124429124461%_ + (##cdr _%tl124427124456%_))) + (let ((_%ctx124464%_ + _%hd124428124459%_)) + (if (null? _%tl124429124461%_) + (_%K124425124451%_ + _%ctx124464%_) + (_%else124423124439%_)))) + (_%else124423124439%_)) + (_%else124423124439%_))) + (_%else124423124439%_)))))) + (if (pair? _%rest124400124408%_) + (let ((_%hd124405124469%_ + (##car _%rest124400124408%_)) + (_%tl124406124471%_ + (##cdr _%rest124400124408%_))) + (let* ((_%hd124474%_ _%hd124405124469%_) + (_%rest124476%_ _%tl124406124471%_)) + (_%K124404124466%_ + _%rest124476%_ + _%hd124474%_))) '#!void)))) - _%$e120621%_) + _%$e124392%_) '#!void)) - (let* ((_%self.irritants120706120714%_ - (##unchecked-structure-ref _%self120601%_ '3 '#f '#f)) - (_%else120708120722%_ (lambda () '#!void)) - (_%K120710120735%_ - (lambda (_%rest120725%_ _%stx120726%_) + (let* ((_%self.irritants124477124485%_ + (##unchecked-structure-ref _%self124372%_ '3 '#f '#f)) + (_%else124479124493%_ (lambda () '#!void)) + (_%K124481124506%_ + (lambda (_%rest124496%_ _%stx124497%_) (display '"... form: ") - (__pp-syntax _%stx120726%_) + (__pp-syntax _%stx124497%_) (for-each - (lambda (_%detail120728%_) + (lambda (_%detail124499%_) (display '"... detail: ") - (##write (__AST->datum _%detail120728%_)) - (let ((_%$e120730%_ - (__AST-source _%detail120728%_))) - (if _%$e120730%_ - ((lambda (_%loc120733%_) + (##write (__AST->datum _%detail124499%_)) + (let ((_%$e124501%_ + (__AST-source _%detail124499%_))) + (if _%$e124501%_ + ((lambda (_%loc124504%_) (display '" at ") (##display-locat - _%loc120733%_ + _%loc124504%_ '#t - _%port120598%_)) - _%$e120730%_) + _%port124369%_)) + _%$e124501%_) '#!void)) (newline)) - _%rest120725%_)))) - (if (pair? _%self.irritants120706120714%_) - (let ((_%hd120711120738%_ - (##car _%self.irritants120706120714%_)) - (_%tl120712120740%_ - (##cdr _%self.irritants120706120714%_))) - (let* ((_%stx120743%_ _%hd120711120738%_) - (_%rest120745%_ _%tl120712120740%_)) - (_%K120710120735%_ _%rest120745%_ _%stx120743%_))) + _%rest124496%_)))) + (if (pair? _%self.irritants124477124485%_) + (let ((_%hd124482124509%_ + (##car _%self.irritants124477124485%_)) + (_%tl124483124511%_ + (##cdr _%self.irritants124477124485%_))) + (let* ((_%stx124514%_ _%hd124482124509%_) + (_%rest124516%_ _%tl124483124511%_)) + (_%K124481124506%_ _%rest124516%_ _%stx124514%_))) '#!void)) - (if (##getenv '"GERBIL_DEBUG" '#f) - (let ((_%cont120746120748%_ + (if __DEBUG + (let ((_%cont124517124519%_ (##unchecked-structure-ref - _%self120601%_ + _%self124372%_ '1 '#f '#f))) - (if _%cont120746120748%_ - (let ((_%cont120751%_ _%cont120746120748%_)) + (if _%cont124517124519%_ + (let ((_%cont124521%_ _%cont124517124519%_)) (display '"--- continuation backtrace:") (newline) - (display-continuation-backtrace _%cont120751%_)) + (display-continuation-backtrace _%cont124521%_)) '#f)) '#!void)) current-output-port - _%port120598%_))))) + _%port124369%_))))) (__bind-method!__% SyntaxError::t 'display-exception @@ -321,37 +321,37 @@ '#f) (__seal-class! SyntaxError::t) (define make-syntax-error - (lambda (_%message120468%_ - _%irritants120469%_ - _%where120470%_ - _%context120471%_ - _%marks120472%_ - _%phi120473%_) - (let ((__obj120976 + (lambda (_%message124239%_ + _%irritants124240%_ + _%where124241%_ + _%context124242%_ + _%marks124243%_ + _%phi124244%_) + (let ((__obj124746 (##structure SyntaxError::t '#f '#f '#f '#f '#f '#f '#f))) - (##unchecked-structure-set! __obj120976 _%message120468%_ '2 '#f '#f) + (##unchecked-structure-set! __obj124746 _%message124239%_ '2 '#f '#f) (##unchecked-structure-set! - __obj120976 - _%irritants120469%_ + __obj124746 + _%irritants124240%_ '3 '#f '#f) - (##unchecked-structure-set! __obj120976 _%where120470%_ '4 '#f '#f) - (##unchecked-structure-set! __obj120976 _%context120471%_ '5 '#f '#f) - (##unchecked-structure-set! __obj120976 _%marks120472%_ '7 '#f '#f) - (##unchecked-structure-set! __obj120976 _%phi120473%_ '6 '#f '#f) - __obj120976))) + (##unchecked-structure-set! __obj124746 _%where124241%_ '4 '#f '#f) + (##unchecked-structure-set! __obj124746 _%context124242%_ '5 '#f '#f) + (##unchecked-structure-set! __obj124746 _%marks124243%_ '7 '#f '#f) + (##unchecked-structure-set! __obj124746 _%phi124244%_ '6 '#f '#f) + __obj124746))) (define syntax-error? SyntaxError?) (define __raise-syntax-error - (lambda (_%where120463%_ - _%message120464%_ - _%stx120465%_ + (lambda (_%where124234%_ + _%message124235%_ + _%stx124236%_ . - _%details120466%_) + _%details124237%_) (raise (make-syntax-error - _%message120464%_ - (cons _%stx120465%_ _%details120466%_) - _%where120463%_ + _%message124235%_ + (cons _%stx124236%_ _%details124237%_) + _%where124234%_ '#f '#f '#f)))) @@ -365,7 +365,7 @@ '#f)) (define AST? (__make-class-predicate AST::t)) (define make-AST - (lambda _%$args120460%_ (apply make-instance AST::t _%$args120460%_))) + (lambda _%$args124231%_ (apply make-instance AST::t _%$args124231%_))) (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)) @@ -376,167 +376,167 @@ (define &AST-source-set! (__make-class-slot-unchecked-mutator AST::t 'source)) (define __AST-e - (lambda (_%stx120458%_) - (if (##structure-instance-of? _%stx120458%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx120458%_ '1 '#f '#f) - _%stx120458%_))) + (lambda (_%stx124229%_) + (if (##structure-instance-of? _%stx124229%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx124229%_ '1 '#f '#f) + _%stx124229%_))) (define __AST-source - (lambda (_%stx120449%_) - (let _%lp120451%_ ((_%src120453%_ _%stx120449%_)) - (if (##structure-instance-of? _%src120453%_ 'gerbil#AST::t) - (_%lp120451%_ - (##unchecked-structure-ref _%src120453%_ '2 '#f '#f)) - (if (##locat? _%src120453%_) _%src120453%_ '#f))))) + (lambda (_%stx124220%_) + (let _%lp124222%_ ((_%src124224%_ _%stx124220%_)) + (if (##structure-instance-of? _%src124224%_ 'gerbil#AST::t) + (_%lp124222%_ + (##unchecked-structure-ref _%src124224%_ '2 '#f '#f)) + (if (##locat? _%src124224%_) _%src124224%_ '#f))))) (define __AST - (lambda (_%e120441%_ _%src-stx120442%_) - (let ((_%src120444%_ (__AST-source _%src-stx120442%_))) - (if (or (##structure-instance-of? _%e120441%_ 'gerbil#AST::t) - (not _%src120444%_)) - _%e120441%_ - (##structure AST::t _%e120441%_ _%src120444%_))))) + (lambda (_%e124212%_ _%src-stx124213%_) + (let ((_%src124215%_ (__AST-source _%src-stx124213%_))) + (if (or (##structure-instance-of? _%e124212%_ 'gerbil#AST::t) + (not _%src124215%_)) + _%e124212%_ + (##structure AST::t _%e124212%_ _%src124215%_))))) (define __AST-eq? - (lambda (_%stx120438%_ _%obj120439%_) - (eq? (__AST-e _%stx120438%_) _%obj120439%_))) + (lambda (_%stx124209%_ _%obj124210%_) + (eq? (__AST-e _%stx124209%_) _%obj124210%_))) (define __AST-pair? - (lambda (_%stx120436%_) (pair? (__AST-e _%stx120436%_)))) + (lambda (_%stx124207%_) (pair? (__AST-e _%stx124207%_)))) (define __AST-null? - (lambda (_%stx120434%_) (null? (__AST-e _%stx120434%_)))) + (lambda (_%stx124205%_) (null? (__AST-e _%stx124205%_)))) (define __AST-datum? - (lambda (_%stx120415%_) - (let* ((_%e120417%_ (__AST-e _%stx120415%_)) - (_%$e120419%_ (number? _%e120417%_))) - (if _%$e120419%_ - _%$e120419%_ - (let ((_%$e120422%_ (string? _%e120417%_))) - (if _%$e120422%_ - _%$e120422%_ - (let ((_%$e120425%_ (char? _%e120417%_))) - (if _%$e120425%_ - _%$e120425%_ - (let ((_%$e120428%_ (keyword? _%e120417%_))) - (if _%$e120428%_ - _%$e120428%_ - (let ((_%$e120431%_ (boolean? _%e120417%_))) - (if _%$e120431%_ - _%$e120431%_ - (eq? _%e120417%_ '#!void))))))))))))) + (lambda (_%stx124186%_) + (let* ((_%e124188%_ (__AST-e _%stx124186%_)) + (_%$e124190%_ (number? _%e124188%_))) + (if _%$e124190%_ + _%$e124190%_ + (let ((_%$e124193%_ (string? _%e124188%_))) + (if _%$e124193%_ + _%$e124193%_ + (let ((_%$e124196%_ (char? _%e124188%_))) + (if _%$e124196%_ + _%$e124196%_ + (let ((_%$e124199%_ (keyword? _%e124188%_))) + (if _%$e124199%_ + _%$e124199%_ + (let ((_%$e124202%_ (boolean? _%e124188%_))) + (if _%$e124202%_ + _%$e124202%_ + (eq? _%e124188%_ '#!void))))))))))))) (define __AST-id? - (lambda (_%stx120413%_) (symbol? (__AST-e _%stx120413%_)))) + (lambda (_%stx124184%_) (symbol? (__AST-e _%stx124184%_)))) (define __AST-id-list?__% - (lambda (_%stx120364%_ _%tail?120365%_) - (let _%lp120367%_ ((_%rest120369%_ _%stx120364%_)) - (let* ((_%$e120371%_ _%rest120369%_) - (_%$E120373120386%_ + (lambda (_%stx124135%_ _%tail?124136%_) + (let _%lp124138%_ ((_%rest124140%_ _%stx124135%_)) + (let* ((_%$e124142%_ _%rest124140%_) + (_%$E124144124157%_ (lambda () - (let* ((_%$E120374120381%_ + (let* ((_%$E124145124152%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e120371%_))) - (_%rest120384%_ _%$e120371%_)) - (_%tail?120365%_ _%rest120384%_))))) - (if (__AST-pair? _%$e120371%_) - (let* ((_%$tgt120375120389%_ (__AST-e _%$e120371%_)) - (_%$hd120376120392%_ (##car _%$tgt120375120389%_)) - (_%$tl120377120395%_ (##cdr _%$tgt120375120389%_)) - (_%hd120399%_ _%$hd120376120392%_) - (_%rest120401%_ _%$tl120377120395%_)) - (if (__AST-id? _%hd120399%_) - (_%lp120367%_ _%rest120401%_) + _%$e124142%_))) + (_%rest124155%_ _%$e124142%_)) + (_%tail?124136%_ _%rest124155%_))))) + (if (__AST-pair? _%$e124142%_) + (let* ((_%$tgt124146124160%_ (__AST-e _%$e124142%_)) + (_%$hd124147124163%_ (##car _%$tgt124146124160%_)) + (_%$tl124148124166%_ (##cdr _%$tgt124146124160%_)) + (_%hd124170%_ _%$hd124147124163%_) + (_%rest124172%_ _%$tl124148124166%_)) + (if (__AST-id? _%hd124170%_) + (_%lp124138%_ _%rest124172%_) '#f)) - (_%$E120373120386%_)))))) + (_%$E124144124157%_)))))) (define __AST-id-list?__0 - (lambda (_%stx120406%_) - (let ((_%tail?120408%_ __AST-null?)) - (__AST-id-list?__% _%stx120406%_ _%tail?120408%_)))) + (lambda (_%stx124177%_) + (let ((_%tail?124179%_ __AST-null?)) + (__AST-id-list?__% _%stx124177%_ _%tail?124179%_)))) (define __AST-id-list? - (lambda _g120978_ - (let ((_g120979_ (##length _g120978_))) - (cond ((##fx= _g120979_ 1) (apply __AST-id-list?__0 _g120978_)) - ((##fx= _g120979_ 2) (apply __AST-id-list?__% _g120978_)) + (lambda _g124748_ + (let ((_g124749_ (##length _g124748_))) + (cond ((##fx= _g124749_ 1) (apply __AST-id-list?__0 _g124748_)) + ((##fx= _g124749_ 2) (apply __AST-id-list?__% _g124748_)) (else (##raise-wrong-number-of-arguments-exception __AST-id-list? - _g120978_)))))) + _g124748_)))))) (define __AST-bind-list? - (lambda (_%stx120356%_) + (lambda (_%stx124127%_) (__AST-id-list?__% - _%stx120356%_ - (lambda (_%e120358%_) - (let ((_%$e120360%_ (__AST-null? _%e120358%_))) - (if _%$e120360%_ _%$e120360%_ (__AST-id? _%e120358%_))))))) + _%stx124127%_ + (lambda (_%e124129%_) + (let ((_%$e124131%_ (__AST-null? _%e124129%_))) + (if _%$e124131%_ _%$e124131%_ (__AST-id? _%e124129%_))))))) (define __AST-list?__% - (lambda (_%stx120309%_ _%tail?120310%_) - (let _%lp120312%_ ((_%rest120314%_ _%stx120309%_)) - (let* ((_%$e120316%_ _%rest120314%_) - (_%$E120318120331%_ + (lambda (_%stx124080%_ _%tail?124081%_) + (let _%lp124083%_ ((_%rest124085%_ _%stx124080%_)) + (let* ((_%$e124087%_ _%rest124085%_) + (_%$E124089124102%_ (lambda () - (let* ((_%$E120319120326%_ + (let* ((_%$E124090124097%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e120316%_))) - (_%rest120329%_ _%$e120316%_)) - (_%tail?120310%_ _%rest120329%_))))) - (if (__AST-pair? _%$e120316%_) - (let* ((_%$tgt120320120334%_ (__AST-e _%$e120316%_)) - (_%$hd120321120337%_ (##car _%$tgt120320120334%_)) - (_%$tl120322120340%_ (##cdr _%$tgt120320120334%_)) - (_%rest120344%_ _%$tl120322120340%_)) - (_%lp120312%_ _%rest120344%_)) - (_%$E120318120331%_)))))) + _%$e124087%_))) + (_%rest124100%_ _%$e124087%_)) + (_%tail?124081%_ _%rest124100%_))))) + (if (__AST-pair? _%$e124087%_) + (let* ((_%$tgt124091124105%_ (__AST-e _%$e124087%_)) + (_%$hd124092124108%_ (##car _%$tgt124091124105%_)) + (_%$tl124093124111%_ (##cdr _%$tgt124091124105%_)) + (_%rest124115%_ _%$tl124093124111%_)) + (_%lp124083%_ _%rest124115%_)) + (_%$E124089124102%_)))))) (define __AST-list?__0 - (lambda (_%stx120349%_) - (let ((_%tail?120351%_ __AST-null?)) - (__AST-list?__% _%stx120349%_ _%tail?120351%_)))) + (lambda (_%stx124120%_) + (let ((_%tail?124122%_ __AST-null?)) + (__AST-list?__% _%stx124120%_ _%tail?124122%_)))) (define __AST-list? - (lambda _g120980_ - (let ((_g120981_ (##length _g120980_))) - (cond ((##fx= _g120981_ 1) (apply __AST-list?__0 _g120980_)) - ((##fx= _g120981_ 2) (apply __AST-list?__% _g120980_)) + (lambda _g124750_ + (let ((_g124751_ (##length _g124750_))) + (cond ((##fx= _g124751_ 1) (apply __AST-list?__0 _g124750_)) + ((##fx= _g124751_ 2) (apply __AST-list?__% _g124750_)) (else (##raise-wrong-number-of-arguments-exception __AST-list? - _g120980_)))))) + _g124750_)))))) (define __AST->list - (lambda (_%stx120274%_) - (let* ((_%$e120276%_ _%stx120274%_) - (_%$E120278120291%_ + (lambda (_%stx124045%_) + (let* ((_%$e124047%_ _%stx124045%_) + (_%$E124049124062%_ (lambda () - (let* ((_%$E120279120286%_ + (let* ((_%$E124050124057%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e120276%_))) - (_%rest120289%_ _%$e120276%_)) - (__AST-e _%rest120289%_))))) - (if (__AST-pair? _%$e120276%_) - (let* ((_%$tgt120280120294%_ (__AST-e _%$e120276%_)) - (_%$hd120281120297%_ (##car _%$tgt120280120294%_)) - (_%$tl120282120300%_ (##cdr _%$tgt120280120294%_)) - (_%hd120304%_ _%$hd120281120297%_) - (_%rest120306%_ _%$tl120282120300%_)) - (cons _%hd120304%_ (__AST->list _%rest120306%_))) - (_%$E120278120291%_))))) + _%$e124047%_))) + (_%rest124060%_ _%$e124047%_)) + (__AST-e _%rest124060%_))))) + (if (__AST-pair? _%$e124047%_) + (let* ((_%$tgt124051124065%_ (__AST-e _%$e124047%_)) + (_%$hd124052124068%_ (##car _%$tgt124051124065%_)) + (_%$tl124053124071%_ (##cdr _%$tgt124051124065%_)) + (_%hd124075%_ _%$hd124052124068%_) + (_%rest124077%_ _%$tl124053124071%_)) + (cons _%hd124075%_ (__AST->list _%rest124077%_))) + (_%$E124049124062%_))))) (define __AST->datum - (lambda (_%stx120267%_) - (if (##structure-instance-of? _%stx120267%_ 'gerbil#AST::t) - (__AST->datum (__AST-e _%stx120267%_)) - (if (pair? _%stx120267%_) - (cons (__AST->datum (##car _%stx120267%_)) - (__AST->datum (##cdr _%stx120267%_))) - (if (vector? _%stx120267%_) - (vector-map __AST->datum _%stx120267%_) - (if (box? _%stx120267%_) - (box (__AST->datum (unbox _%stx120267%_))) - _%stx120267%_)))))) + (lambda (_%stx124038%_) + (if (##structure-instance-of? _%stx124038%_ 'gerbil#AST::t) + (__AST->datum (__AST-e _%stx124038%_)) + (if (pair? _%stx124038%_) + (cons (__AST->datum (##car _%stx124038%_)) + (__AST->datum (##cdr _%stx124038%_))) + (if (vector? _%stx124038%_) + (vector-map __AST->datum _%stx124038%_) + (if (box? _%stx124038%_) + (box (__AST->datum (unbox _%stx124038%_))) + _%stx124038%_)))))) (define get-readenv - (lambda (_%port120265%_) + (lambda (_%port124036%_) (##make-readenv - _%port120265%_ + _%port124036%_ (current-readtable) __wrap-syntax __unwrap-syntax @@ -544,93 +544,93 @@ '() '#f))) (define read-syntax__% - (lambda (_%in120253%_) - (let ((_%e120255%_ (##read-datum-or-eof (get-readenv _%in120253%_)))) - (if (eof-object? (__AST-e _%e120255%_)) - (__AST-e _%e120255%_) - _%e120255%_)))) + (lambda (_%in124024%_) + (let ((_%e124026%_ (##read-datum-or-eof (get-readenv _%in124024%_)))) + (if (eof-object? (__AST-e _%e124026%_)) + (__AST-e _%e124026%_) + _%e124026%_)))) (define read-syntax__0 (lambda () - (let ((_%in120261%_ (current-input-port))) - (read-syntax__% _%in120261%_)))) + (let ((_%in124032%_ (current-input-port))) + (read-syntax__% _%in124032%_)))) (define read-syntax - (lambda _g120982_ - (let ((_g120983_ (##length _g120982_))) - (cond ((##fx= _g120983_ 0) (apply read-syntax__0 _g120982_)) - ((##fx= _g120983_ 1) (apply read-syntax__% _g120982_)) + (lambda _g124752_ + (let ((_g124753_ (##length _g124752_))) + (cond ((##fx= _g124753_ 0) (apply read-syntax__0 _g124752_)) + ((##fx= _g124753_ 1) (apply read-syntax__% _g124752_)) (else (##raise-wrong-number-of-arguments-exception read-syntax - _g120982_)))))) + _g124752_)))))) (define read-syntax-from-file - (lambda (_%path120248%_) - (let ((_%r120250%_ + (lambda (_%path124019%_) + (let ((_%r124021%_ (##read-all-as-a-begin-expr-from-path - (path-normalize _%path120248%_) + (path-normalize _%path124019%_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _%r120250%_) - (cdr (__AST-e (vector-ref _%r120250%_ '1))) - (error (err-code->string _%r120250%_) _%path120248%_))))) + (if (vector? _%r124021%_) + (cdr (__AST-e (vector-ref _%r124021%_ '1))) + (error (err-code->string _%r124021%_) _%path124019%_))))) (define __wrap-syntax - (lambda (_%re120245%_ _%e120246%_) - (if (eof-object? _%e120246%_) - _%e120246%_ - (##structure AST::t _%e120246%_ (##readenv->locat _%re120245%_))))) + (lambda (_%re124016%_ _%e124017%_) + (if (eof-object? _%e124017%_) + _%e124017%_ + (##structure AST::t _%e124017%_ (##readenv->locat _%re124016%_))))) (define __unwrap-syntax - (lambda (_%re120242%_ _%e120243%_) (__AST-e _%e120243%_))) + (lambda (_%re124013%_ _%e124014%_) (__AST-e _%e124014%_))) (define __pp-syntax - (lambda (_%stx120240%_) (pp (__AST->datum _%stx120240%_)))) + (lambda (_%stx124011%_) (pp (__AST->datum _%stx124011%_)))) (define __make-readtable (lambda () - (let ((_%rt120238%_ (##make-standard-readtable))) - (macro-readtable-write-extended-read-macros?-set! _%rt120238%_ '#t) - (macro-readtable-bracket-handler-set! _%rt120238%_ '@list) - (macro-readtable-brace-handler-set! _%rt120238%_ '@method) + (let ((_%rt124009%_ (##make-standard-readtable))) + (macro-readtable-write-extended-read-macros?-set! _%rt124009%_ '#t) + (macro-readtable-bracket-handler-set! _%rt124009%_ '@list) + (macro-readtable-brace-handler-set! _%rt124009%_ '@method) (##readtable-char-sharp-handler-set! - _%rt120238%_ + _%rt124009%_ '#\! __read-sharp-bang) - _%rt120238%_))) + _%rt124009%_))) (define __readtable-bracket-keyword-set! - (lambda (_%rt120234%_ _%kw120235%_) - (macro-readtable-bracket-handler-set! _%rt120234%_ _%kw120235%_))) + (lambda (_%rt124005%_ _%kw124006%_) + (macro-readtable-bracket-handler-set! _%rt124005%_ _%kw124006%_))) (define __readtable-brace-keyword-set! - (lambda (_%rt120231%_ _%kw120232%_) - (macro-readtable-brace-handler-set! _%rt120231%_ _%kw120232%_))) + (lambda (_%rt124002%_ _%kw124003%_) + (macro-readtable-brace-handler-set! _%rt124002%_ _%kw124003%_))) (define __read-sharp-bang - (lambda (_%re120222%_ _%next120223%_ _%start-pos120224%_) - (if (eq? _%start-pos120224%_ '0) - (let* ((_%line120226%_ + (lambda (_%re123993%_ _%next123994%_ _%start-pos123995%_) + (if (eq? _%start-pos123995%_ '0) + (let* ((_%line123997%_ (##read-line - (macro-readenv-port _%re120222%_) + (macro-readenv-port _%re123993%_) '#\newline '#f ##max-fixnum)) - (_%script-line120228%_ + (_%script-line123999%_ (substring - _%line120226%_ + _%line123997%_ '1 - (string-length _%line120226%_)))) + (string-length _%line123997%_)))) (macro-readenv-script-line-set! - _%re120222%_ - _%script-line120228%_) + _%re123993%_ + _%script-line123999%_) (##script-marker)) (##read-sharp-bang - _%re120222%_ - _%next120223%_ - _%start-pos120224%_)))) + _%re123993%_ + _%next123994%_ + _%start-pos123995%_)))) (set! ##readtable-setup-for-language! void) (define __*readtable* (__make-readtable)) (define source-location? ##locat?) (define source-location-path? - (lambda (_%obj120220%_) - (if (source-location? _%obj120220%_) - (string? (##locat-container _%obj120220%_)) + (lambda (_%obj123991%_) + (if (source-location? _%obj123991%_) + (string? (##locat-container _%obj123991%_)) '#f))) (define source-location-path - (lambda (_%obj120218%_) - (if (##locat? _%obj120218%_) - (##container->path (##locat-container _%obj120218%_)) + (lambda (_%obj123989%_) + (if (##locat? _%obj123989%_) + (##container->path (##locat-container _%obj123989%_)) '#f))))) diff --git a/src/bootstrap/gerbil/runtime/syntax~1.scm b/src/bootstrap/gerbil/runtime/syntax~1.scm index cebc22ff77..e03ec2c6a3 100644 --- a/src/bootstrap/gerbil/runtime/syntax~1.scm +++ b/src/bootstrap/gerbil/runtime/syntax~1.scm @@ -1,314 +1,314 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g120992_| + (define |[1]#_g124762_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g120995_| + (define |[1]#_g124765_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g120996_| + (define |[1]#_g124766_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g120998_| + (define |[1]#_g124768_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g121000_| + (define |[1]#_g124770_| (##structure gx#syntax-quote::t 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g121002_| + (define |[1]#_g124772_| (##structure gx#syntax-quote::t 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g121004_| + (define |[1]#_g124774_| (##structure gx#syntax-quote::t 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g121005_| + (define |[1]#_g124775_| (##structure gx#syntax-quote::t 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g121006_| + (define |[1]#_g124776_| (##structure gx#syntax-quote::t 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g121007_| + (define |[1]#_g124777_| (##structure gx#syntax-quote::t 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g121008_| + (define |[1]#_g124778_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g121009_| + (define |[1]#_g124779_| (##structure gx#syntax-quote::t 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g121010_| + (define |[1]#_g124780_| (##structure gx#syntax-quote::t 'SyntaxError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g121012_| + (define |[1]#_g124782_| (##structure gx#syntax-quote::t 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g121013_| + (define |[1]#_g124783_| (##structure gx#syntax-quote::t 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g121014_| + (define |[1]#_g124784_| (##structure gx#syntax-quote::t 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g121015_| + (define |[1]#_g124785_| (##structure gx#syntax-quote::t 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g121016_| + (define |[1]#_g124786_| (##structure gx#syntax-quote::t 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g121017_| + (define |[1]#_g124787_| (##structure gx#syntax-quote::t 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g121018_| + (define |[1]#_g124788_| (##structure gx#syntax-quote::t 'SyntaxError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g121020_| + (define |[1]#_g124790_| (##structure gx#syntax-quote::t '&SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g121021_| + (define |[1]#_g124791_| (##structure gx#syntax-quote::t '&SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g121022_| + (define |[1]#_g124792_| (##structure gx#syntax-quote::t '&SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g121023_| + (define |[1]#_g124793_| (##structure gx#syntax-quote::t '&SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g121024_| + (define |[1]#_g124794_| (##structure gx#syntax-quote::t '&SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g121025_| + (define |[1]#_g124795_| (##structure gx#syntax-quote::t '&SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g121026_| + (define |[1]#_g124796_| (##structure gx#syntax-quote::t '&SyntaxError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g121028_| + (define |[1]#_g124798_| (##structure gx#syntax-quote::t '&SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g121029_| + (define |[1]#_g124799_| (##structure gx#syntax-quote::t '&SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g121030_| + (define |[1]#_g124800_| (##structure gx#syntax-quote::t '&SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g121031_| + (define |[1]#_g124801_| (##structure gx#syntax-quote::t '&SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g121032_| + (define |[1]#_g124802_| (##structure gx#syntax-quote::t '&SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g121033_| + (define |[1]#_g124803_| (##structure gx#syntax-quote::t '&SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g121034_| + (define |[1]#_g124804_| (##structure gx#syntax-quote::t '&SyntaxError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g121036_| + (define |[1]#_g124806_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g121038_| + (define |[1]#_g124808_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |[1]#_g121040_| + (define |[1]#_g124810_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g121042_| + (define |[1]#_g124812_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g121043_| + (define |[1]#_g124813_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g121045_| + (define |[1]#_g124815_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g121046_| + (define |[1]#_g124816_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g121048_| + (define |[1]#_g124818_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g121049_| + (define |[1]#_g124819_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g121051_| + (define |[1]#_g124821_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g121052_| + (define |[1]#_g124822_| (##structure gx#syntax-quote::t '&AST-source-set! @@ -317,291 +317,295 @@ '())) (begin (define |[:0:]#core-ast-case| - (lambda (_%$stx119099%_) - (let* ((_%g119103119127%_ - (lambda (_%g119104119123%_) + (lambda (_%$stx122876%_) + (let* ((_%g122880122904%_ + (lambda (_%g122881122900%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g119104119123%_))) - (_%g119102119213%_ - (lambda (_%g119104119131%_) - (if (gx#stx-pair? _%g119104119131%_) - (let ((_%e119107119134%_ - (gx#syntax-e _%g119104119131%_))) - (let ((_%hd119108119138%_ + _%g122881122900%_))) + (_%g122879122988%_ + (lambda (_%g122881122908%_) + (if (gx#stx-pair? _%g122881122908%_) + (let ((_%e122884122911%_ + (gx#syntax-e _%g122881122908%_))) + (let ((_%hd122885122915%_ (let () (declare (not safe)) - (##car _%e119107119134%_))) - (_%tl119109119141%_ + (##car _%e122884122911%_))) + (_%tl122886122918%_ (let () (declare (not safe)) - (##cdr _%e119107119134%_)))) - (if (gx#stx-pair? _%tl119109119141%_) - (let ((_%e119110119144%_ - (gx#syntax-e _%tl119109119141%_))) - (let ((_%hd119111119148%_ + (##cdr _%e122884122911%_)))) + (if (gx#stx-pair? _%tl122886122918%_) + (let ((_%e122887122921%_ + (gx#syntax-e _%tl122886122918%_))) + (let ((_%hd122888122925%_ (let () (declare (not safe)) - (##car _%e119110119144%_))) - (_%tl119112119151%_ + (##car _%e122887122921%_))) + (_%tl122889122928%_ (let () (declare (not safe)) - (##cdr _%e119110119144%_)))) - (if (gx#stx-pair/null? _%tl119112119151%_) - (let ((_g120984_ + (##cdr _%e122887122921%_)))) + (if (gx#stx-pair/null? _%tl122889122928%_) + (let ((_g124754_ (gx#syntax-split-splice - _%tl119112119151%_ + _%tl122889122928%_ '0))) (begin - (let ((_g120985_ + (let ((_g124755_ (let () (declare (not safe)) - (if (##values? _g120984_) + (if (##values? _g124754_) (##values-length - _g120984_) + _g124754_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g120985_ 2))) + (##fx= _g124755_ 2))) (error "Context expects 2 values" - _g120985_))) - (let ((_%target119113119154%_ + _g124755_))) + (let ((_%target122890122931%_ (let () (declare (not safe)) - (##values-ref _g120984_ 0))) - (_%tl119115119157%_ + (##values-ref _g124754_ 0))) + (_%tl122892122934%_ (let () (declare (not safe)) (##values-ref - _g120984_ + _g124754_ 1)))) (if (gx#stx-null? - _%tl119115119157%_) - (letrec ((_%loop119116119160%_ - (lambda (_%hd119114119164%_ + _%tl122892122934%_) + (letrec ((_%loop122893122937%_ + (lambda (_%hd122891122941%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body119120119167%_) - (if (gx#stx-pair? _%hd119114119164%_) - (let ((_%e119117119170%_ - (gx#syntax-e _%hd119114119164%_))) - (let ((_%lp-hd119118119174%_ + _%body122897122944%_) + (if (gx#stx-pair? _%hd122891122941%_) + (let ((_%e122894122946%_ + (gx#syntax-e _%hd122891122941%_))) + (let ((_%lp-hd122895122950%_ (let () (declare (not safe)) - (##car _%e119117119170%_))) - (_%lp-tl119119119177%_ + (##car _%e122894122946%_))) + (_%lp-tl122896122953%_ (let () (declare (not safe)) - (##cdr _%e119117119170%_)))) - (_%loop119116119160%_ - _%lp-tl119119119177%_ - (cons _%lp-hd119118119174%_ - _%body119120119167%_)))) - (let ((_%body119121119180%_ - (reverse _%body119120119167%_))) - ((lambda (_%L119184%_ _%L119186%_) + (##cdr _%e122894122946%_)))) + (_%loop122893122937%_ + _%lp-tl122896122953%_ + (cons _%lp-hd122895122950%_ + _%body122897122944%_)))) + (let ((_%body122898122956%_ + (reverse _%body122897122944%_))) + ((lambda (_%g122882122959%_ _%g122883122961%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) - (cons _%L119186%_ '())) + (cons _%g122883122961%_ '())) (cons (cons (gx#datum->syntax '#f 'core-ast-case%) (cons (gx#datum->syntax '#f '$e) - (let ((__tmp120986 + (let ((__tmp124756 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g119204119207%_ _%g119205119210%_) - (cons _%g119204119207%_ _%g119205119210%_)))) + (lambda (_%g122979122982%_ _%g122980122985%_) + (cons _%g122979122982%_ _%g122980122985%_)))) (declare (not safe)) - (__foldr1 __tmp120986 '() _%L119184%_)))) + (__foldr1 __tmp124756 '() _%g122882122959%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%body119121119180%_ - _%hd119111119148%_)))))) + _%body122898122956%_ + _%hd122888122925%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop119116119160%_ - _%target119113119154%_ + (_%loop122893122937%_ + _%target122890122931%_ '())) - (_%g119103119127%_ - _%g119104119131%_))))) - (_%g119103119127%_ _%g119104119131%_)))) - (_%g119103119127%_ _%g119104119131%_)))) - (_%g119103119127%_ _%g119104119131%_))))) - (_%g119102119213%_ _%$stx119099%_)))) + (_%g122880122904%_ + _%g122881122908%_))))) + (_%g122880122904%_ _%g122881122908%_)))) + (_%g122880122904%_ _%g122881122908%_)))) + (_%g122880122904%_ _%g122881122908%_))))) + (_%g122879122988%_ _%$stx122876%_)))) (define |[:0:]#core-ast-case%| - (lambda (_%stx119218%_) - (letrec ((_%generate1119221%_ - (lambda (_%hd119762%_ - _%tgt119764%_ - _%K119765%_ - _%E119766%_ - _%kws119767%_) - (let* ((_%g119769119777%_ - (lambda (_%g119770119773%_) + (lambda (_%stx122993%_) + (letrec ((_%generate1122996%_ + (lambda (_%hd123533%_ + _%tgt123535%_ + _%K123536%_ + _%E123537%_ + _%kws123538%_) + (let* ((_%g123540123548%_ + (lambda (_%g123541123544%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g119770119773%_))) - (_%g119768120212%_ - (lambda (_%g119770119781%_) - ((lambda (_%L119784%_) - (let* ((_%__stx120882120883%_ _%hd119762%_) - (_%g119798119812%_ + _%g123541123544%_))) + (_%g123539123983%_ + (lambda (_%g123541123552%_) + ((lambda (_%g123542123555%_) + (let* ((_%__stx124652124653%_ _%hd123533%_) + (_%g123569123583%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx120882120883%_)))) - (let ((_%__kont120885120886%_ - (lambda (_%L120034%_ _%L120036%_) - (let* ((_%g120047120055%_ - (lambda (_%g120048120051%_) + _%__stx124652124653%_)))) + (let ((_%__kont124655124656%_ + (lambda (_%g123571123805%_ + _%g123572123807%_) + (let* ((_%g123818123826%_ + (lambda (_%g123819123822%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g120048120051%_))) - (_%g120046120204%_ - (lambda (_%g120048120059%_) - ((lambda (_%L120062%_) - (let* ((_%g120074120082%_ + _%g123819123822%_))) + (_%g123817123975%_ + (lambda (_%g123819123830%_) + ((lambda (_%g123820123833%_) + (let* ((_%g123845123853%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g120075120078%_) + (lambda (_%g123846123849%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g120075120078%_))) - (_%g120073120200%_ - (lambda (_%g120075120086%_) - ((lambda (_%L120089%_) - (let* ((_%g120102120110%_ - (lambda (_%g120103120106%_) + _%g123846123849%_))) + (_%g123844123971%_ + (lambda (_%g123846123857%_) + ((lambda (_%g123847123860%_) + (let* ((_%g123873123881%_ + (lambda (_%g123874123877%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g120103120106%_))) - (_%g120101120196%_ - (lambda (_%g120103120114%_) - ((lambda (_%L120117%_) - (let* ((_%g120130120138%_ - (lambda (_%g120131120134%_) + _%g123874123877%_))) + (_%g123872123967%_ + (lambda (_%g123874123885%_) + ((lambda (_%g123875123888%_) + (let* ((_%g123901123909%_ + (lambda (_%g123902123905%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g120131120134%_))) - (_%g120129120192%_ - (lambda (_%g120131120142%_) - ((lambda (_%L120145%_) - (let* ((_%g120158120166%_ - (lambda (_%g120159120162%_) + _%g123902123905%_))) + (_%g123900123963%_ + (lambda (_%g123902123913%_) + ((lambda (_%g123903123916%_) + (let* ((_%g123929123937%_ + (lambda (_%g123930123933%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g120159120162%_))) - (_%g120157120188%_ - (lambda (_%g120159120170%_) - ((lambda (_%L120173%_) + _%g123930123933%_))) + (_%g123928123959%_ + (lambda (_%g123930123941%_) + ((lambda (_%g123931123944%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '__AST-pair?) - (cons _%L119784%_ '())) + (cons _%g123542123555%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) - (cons (cons (cons _%L120062%_ + (cons (cons (cons _%g123820123833%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '__AST-e) - (cons _%L119784%_ '())) + (cons _%g123542123555%_ '())) '())) - (cons (cons _%L120089%_ + (cons (cons _%g123847123860%_ (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L120062%_ '())) + (cons _%g123820123833%_ '())) '())) - (cons (cons _%L120117%_ + (cons (cons _%g123875123888%_ (cons (cons (gx#datum->syntax '#f '##cdr) - (cons _%L120062%_ '())) + (cons _%g123820123833%_ + '())) '())) '()))) - (cons _%L120145%_ '()))) + (cons _%g123903123916%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L120173%_ '()))))) - _%g120159120170%_)))) - (_%g120157120188%_ _%E119766%_))) - _%g120131120142%_)))) + (cons _%g123931123944%_ '()))))) + _%g123930123941%_)))) + (_%g123928123959%_ _%E123537%_))) + _%g123902123913%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g120129120192%_ - (_%generate1119221%_ - _%L120036%_ - _%L120089%_ - (_%generate1119221%_ - _%L120034%_ - _%L120117%_ - _%K119765%_ - _%E119766%_ - _%kws119767%_) - _%E119766%_ - _%kws119767%_)))) - _%g120103120114%_)))) - (_%g120101120196%_ (gx#genident '$tl)))) - _%g120075120086%_)))) - (_%g120073120200%_ (gx#genident '$hd)))) - _%g120048120059%_)))) + (_%g123900123963%_ + (_%generate1122996%_ + _%g123572123807%_ + _%g123847123860%_ + (_%generate1122996%_ + _%g123571123805%_ + _%g123875123888%_ + _%K123536%_ + _%E123537%_ + _%kws123538%_) + _%E123537%_ + _%kws123538%_)))) + _%g123874123885%_)))) + (_%g123872123967%_ (gx#genident '$tl)))) + _%g123846123857%_)))) + (_%g123844123971%_ (gx#genident '$hd)))) + _%g123819123830%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g120046120204%_ + (_%g123817123975%_ (gx#genident '$tgt))))) - (_%__kont120887120888%_ - (lambda (_%L119901%_) - (if (gx#underscore? _%L119901%_) - _%K119765%_ - (if (let ((__tmp120988 - (lambda (_%g119911119913%_) + (_%__kont124657124658%_ + (lambda (_%g123576123672%_) + (if (gx#underscore? + _%g123576123672%_) + _%K123536%_ + (if (let ((__tmp124758 + (lambda (_%g123682123684%_) (gx#bound-identifier=? - _%g119911119913%_ - _%L119901%_))) - (__tmp120987 + _%g123682123684%_ + _%g123576123672%_))) + (__tmp124757 (gx#syntax->list - _%kws119767%_))) + _%kws123538%_))) (declare (not safe)) - (__find __tmp120988 - __tmp120987)) - (let* ((_%g119919119934%_ - (lambda (_%g119920119930%_) + (__find __tmp124758 + __tmp124757)) + (let* ((_%g123690123705%_ + (lambda (_%g123691123701%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g119920119930%_))) - (_%g119918119980%_ - (lambda (_%g119920119938%_) + _%g123691123701%_))) + (_%g123689123751%_ + (lambda (_%g123691123709%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g119920119938%_) - (let ((_%e119923119941%_ - (gx#syntax-e _%g119920119938%_))) - (let ((_%hd119924119945%_ + _%g123691123709%_) + (let ((_%e123694123712%_ + (gx#syntax-e _%g123691123709%_))) + (let ((_%hd123695123716%_ (let () (declare (not safe)) - (##car _%e119923119941%_))) - (_%tl119925119948%_ + (##car _%e123694123712%_))) + (_%tl123696123719%_ (let () (declare (not safe)) - (##cdr _%e119923119941%_)))) - (if (gx#stx-pair? _%tl119925119948%_) - (let ((_%e119926119951%_ - (gx#syntax-e _%tl119925119948%_))) - (let ((_%hd119927119955%_ + (##cdr _%e123694123712%_)))) + (if (gx#stx-pair? _%tl123696123719%_) + (let ((_%e123697123722%_ + (gx#syntax-e _%tl123696123719%_))) + (let ((_%hd123698123726%_ (let () (declare (not safe)) - (##car _%e119926119951%_))) - (_%tl119928119958%_ + (##car _%e123697123722%_))) + (_%tl123699123729%_ (let () (declare (not safe)) - (##cdr _%e119926119951%_)))) - (if (gx#stx-null? _%tl119928119958%_) - ((lambda (_%L119961%_ _%L119963%_) + (##cdr _%e123697123722%_)))) + (if (gx#stx-null? _%tl123699123729%_) + ((lambda (_%g123692123732%_ + _%g123693123734%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f @@ -610,85 +614,87 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-id?) - (cons _%L119784%_ '())) + (cons _%g123542123555%_ '())) (cons (cons (gx#datum->syntax '#f 'eq?) (cons (cons (gx#datum->syntax '#f '__AST-e) - (cons _%L119784%_ '())) + (cons _%g123542123555%_ + '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L119901%_ + (cons _%g123576123672%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) - (cons _%L119963%_ (cons _%L119961%_ '()))))) + (cons _%g123693123734%_ (cons _%g123692123732%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd119927119955%_ - _%hd119924119945%_) - (_%g119919119934%_ - _%g119920119938%_)))) - (_%g119919119934%_ _%g119920119938%_)))) - (_%g119919119934%_ _%g119920119938%_))))) - (_%g119918119980%_ (list _%K119765%_ _%E119766%_))) + _%hd123698123726%_ + _%hd123695123716%_) + (_%g123690123705%_ + _%g123691123709%_)))) + (_%g123690123705%_ _%g123691123709%_)))) + (_%g123690123705%_ _%g123691123709%_))))) + (_%g123689123751%_ (list _%K123536%_ _%E123537%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%g119986119994%_ - (lambda (_%g119987119990%_) + (let* ((_%g123757123765%_ + (lambda (_%g123758123761%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g119987119990%_))) - (_%g119985120013%_ - (lambda (_%g119987119998%_) - ((lambda (_%L120001%_) + _%g123758123761%_))) + (_%g123756123784%_ + (lambda (_%g123758123769%_) + ((lambda (_%g123759123772%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L119901%_ - (cons _%L119784%_ '())) + (cons (cons (cons _%g123576123672%_ + (cons _%g123542123555%_ '())) '()) - (cons _%L120001%_ '())))) - _%g119987119998%_)))) - (_%g119985120013%_ _%K119765%_)))))) + (cons _%g123759123772%_ '())))) + _%g123758123769%_)))) + (_%g123756123784%_ _%K123536%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont120889120890%_ - (lambda (_%L119819%_) - (let* ((_%g119830119845%_ - (lambda (_%g119831119841%_) + (_%__kont124659124660%_ + (lambda (_%g123577123590%_) + (let* ((_%g123601123616%_ + (lambda (_%g123602123612%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g119831119841%_))) - (_%g119829119890%_ - (lambda (_%g119831119849%_) + _%g123602123612%_))) + (_%g123600123661%_ + (lambda (_%g123602123620%_) (if (gx#stx-pair? - _%g119831119849%_) - (let ((_%e119834119852%_ + _%g123602123620%_) + (let ((_%e123605123623%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g119831119849%_))) - (let ((_%hd119835119856%_ + (gx#syntax-e _%g123602123620%_))) + (let ((_%hd123606123627%_ (let () (declare (not safe)) - (##car _%e119834119852%_))) - (_%tl119836119859%_ + (##car _%e123605123623%_))) + (_%tl123607123630%_ (let () (declare (not safe)) - (##cdr _%e119834119852%_)))) - (if (gx#stx-pair? _%tl119836119859%_) - (let ((_%e119837119862%_ - (gx#syntax-e _%tl119836119859%_))) - (let ((_%hd119838119866%_ + (##cdr _%e123605123623%_)))) + (if (gx#stx-pair? _%tl123607123630%_) + (let ((_%e123608123633%_ + (gx#syntax-e _%tl123607123630%_))) + (let ((_%hd123609123637%_ (let () (declare (not safe)) - (##car _%e119837119862%_))) - (_%tl119839119869%_ + (##car _%e123608123633%_))) + (_%tl123610123640%_ (let () (declare (not safe)) - (##cdr _%e119837119862%_)))) - (if (gx#stx-null? _%tl119839119869%_) - ((lambda (_%L119872%_ _%L119874%_) + (##cdr _%e123608123633%_)))) + (if (gx#stx-null? _%tl123610123640%_) + ((lambda (_%g123603123643%_ + _%g123604123645%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f @@ -697,524 +703,529 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-e) - (cons _%L119784%_ '())) + (cons _%g123542123555%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L119819%_ '())) + (cons _%g123577123590%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L119874%_ - (cons _%L119872%_ + (cons _%g123604123645%_ + (cons _%g123603123643%_ '()))))) - _%hd119838119866%_ - _%hd119835119856%_) - (_%g119830119845%_ _%g119831119849%_)))) - (_%g119830119845%_ _%g119831119849%_)))) - (_%g119830119845%_ _%g119831119849%_))))) + _%hd123609123637%_ + _%hd123606123627%_) + (_%g123601123616%_ _%g123602123620%_)))) + (_%g123601123616%_ _%g123602123620%_)))) + (_%g123601123616%_ _%g123602123620%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g119829119890%_ - (list _%K119765%_ - _%E119766%_)))))) - (let ((_%g119796120017%_ + (_%g123600123661%_ + (list _%K123536%_ + _%E123537%_)))))) + (let ((_%g123567123788%_ (lambda () - (let ((_%L119901%_ - _%__stx120882120883%_)) + (let ((_%g123576123672%_ + _%__stx124652124653%_)) (if (gx#identifier? - _%L119901%_) - (_%__kont120887120888%_ - _%L119901%_) - (_%__kont120889120890%_ - _%__stx120882120883%_)))))) - (if (gx#stx-pair? _%__stx120882120883%_) - (let ((_%e119802120024%_ + _%g123576123672%_) + (_%__kont124657124658%_ + _%g123576123672%_) + (_%__kont124659124660%_ + _%__stx124652124653%_)))))) + (if (gx#stx-pair? _%__stx124652124653%_) + (let ((_%e123573123795%_ (gx#syntax-e - _%__stx120882120883%_))) - (let ((_%tl119804120031%_ + _%__stx124652124653%_))) + (let ((_%tl123575123802%_ (let () (declare (not safe)) - (##cdr _%e119802120024%_))) - (_%hd119803120028%_ + (##cdr _%e123573123795%_))) + (_%hd123574123799%_ (let () (declare (not safe)) - (##car _%e119802120024%_)))) - (_%__kont120885120886%_ - _%tl119804120031%_ - _%hd119803120028%_))) + (##car _%e123573123795%_)))) + (_%__kont124655124656%_ + _%tl123575123802%_ + _%hd123574123799%_))) (let () (declare (not safe)) - (_%g119796120017%_))))))) - _%g119770119781%_)))) - (_%g119768120212%_ _%tgt119764%_))))) - (let* ((_%g119224119252%_ - (lambda (_%g119225119248%_) + (_%g123567123788%_))))))) + _%g123541123552%_)))) + (_%g123539123983%_ _%tgt123535%_))))) + (let* ((_%g122999123027%_ + (lambda (_%g123000123023%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g119225119248%_))) - (_%g119223119758%_ - (lambda (_%g119225119256%_) - (if (gx#stx-pair? _%g119225119256%_) - (let ((_%e119229119259%_ - (gx#syntax-e _%g119225119256%_))) - (let ((_%hd119230119263%_ + _%g123000123023%_))) + (_%g122998123529%_ + (lambda (_%g123000123031%_) + (if (gx#stx-pair? _%g123000123031%_) + (let ((_%e123004123034%_ + (gx#syntax-e _%g123000123031%_))) + (let ((_%hd123005123038%_ (let () (declare (not safe)) - (##car _%e119229119259%_))) - (_%tl119231119266%_ + (##car _%e123004123034%_))) + (_%tl123006123041%_ (let () (declare (not safe)) - (##cdr _%e119229119259%_)))) - (if (gx#stx-pair? _%tl119231119266%_) - (let ((_%e119232119269%_ - (gx#syntax-e _%tl119231119266%_))) - (let ((_%hd119233119273%_ + (##cdr _%e123004123034%_)))) + (if (gx#stx-pair? _%tl123006123041%_) + (let ((_%e123007123044%_ + (gx#syntax-e _%tl123006123041%_))) + (let ((_%hd123008123048%_ (let () (declare (not safe)) - (##car _%e119232119269%_))) - (_%tl119234119276%_ + (##car _%e123007123044%_))) + (_%tl123009123051%_ (let () (declare (not safe)) - (##cdr _%e119232119269%_)))) - (if (gx#stx-pair? _%tl119234119276%_) - (let ((_%e119235119279%_ + (##cdr _%e123007123044%_)))) + (if (gx#stx-pair? _%tl123009123051%_) + (let ((_%e123010123054%_ (gx#syntax-e - _%tl119234119276%_))) - (let ((_%hd119236119283%_ + _%tl123009123051%_))) + (let ((_%hd123011123058%_ (let () (declare (not safe)) - (##car _%e119235119279%_))) - (_%tl119237119286%_ + (##car _%e123010123054%_))) + (_%tl123012123061%_ (let () (declare (not safe)) - (##cdr _%e119235119279%_)))) + (##cdr _%e123010123054%_)))) (if (gx#stx-pair/null? - _%tl119237119286%_) - (let ((_g120989_ + _%tl123012123061%_) + (let ((_g124759_ (gx#syntax-split-splice - _%tl119237119286%_ + _%tl123012123061%_ '0))) (begin - (let ((_g120990_ + (let ((_g124760_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g120989_) - (##values-length _g120989_) + _g124759_) + (##values-length _g124759_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g120990_ 2))) - (error "Context expects 2 values" _g120990_))) + (if (not (let () (declare (not safe)) (##fx= _g124760_ 2))) + (error "Context expects 2 values" _g124760_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target119238119289%_ + (let ((_%target123013123064%_ (let () (declare (not safe)) (##values-ref - _g120989_ + _g124759_ 0))) - (_%tl119240119292%_ + (_%tl123015123067%_ (let () (declare (not safe)) (##values-ref - _g120989_ + _g124759_ 1)))) (if (gx#stx-null? - _%tl119240119292%_) - (letrec ((_%loop119241119295%_ + _%tl123015123067%_) + (letrec ((_%loop123016123070%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd119239119299%_ _%clause119245119302%_) - (if (gx#stx-pair? _%hd119239119299%_) - (let ((_%e119242119305%_ - (gx#syntax-e _%hd119239119299%_))) - (let ((_%lp-hd119243119309%_ + (lambda (_%hd123014123074%_ _%clause123020123077%_) + (if (gx#stx-pair? _%hd123014123074%_) + (let ((_%e123017123079%_ + (gx#syntax-e _%hd123014123074%_))) + (let ((_%lp-hd123018123083%_ (let () (declare (not safe)) - (##car _%e119242119305%_))) - (_%lp-tl119244119312%_ + (##car _%e123017123079%_))) + (_%lp-tl123019123086%_ (let () (declare (not safe)) - (##cdr _%e119242119305%_)))) - (_%loop119241119295%_ - _%lp-tl119244119312%_ - (cons _%lp-hd119243119309%_ - _%clause119245119302%_)))) - (let ((_%clause119246119315%_ - (reverse _%clause119245119302%_))) - ((lambda (_%L119319%_ - _%L119321%_ - _%L119322%_) - (let _%recur119344%_ ((_%rest119347%_ - (let ((__tmp120993 + (##cdr _%e123017123079%_)))) + (_%loop123016123070%_ + _%lp-tl123019123086%_ + (cons _%lp-hd123018123083%_ + _%clause123020123077%_)))) + (let ((_%clause123021123089%_ + (reverse _%clause123020123077%_))) + ((lambda (_%g123001123092%_ + _%g123002123094%_ + _%g123003123095%_) + (let _%recur123117%_ ((_%rest123120%_ + (let ((__tmp124763 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g119749119752%_ _%g119750119755%_) - (cons _%g119749119752%_ _%g119750119755%_)))) + (lambda (_%g123520123523%_ _%g123521123526%_) + (cons _%g123520123523%_ _%g123521123526%_)))) (declare (not safe)) - (__foldr1 __tmp120993 '() _%L119319%_)))) + (__foldr1 __tmp124763 '() _%g123001123092%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%rest119349119358%_ - _%rest119347%_) - (_%E119352119364%_ + (let* ((_%rest123122123131%_ + _%rest123120%_) + (_%E123125123137%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest119349119358%_ + _%rest123122123131%_ '([hd . rest]) '([]))) '#!void))) - (let ((_%K119354119734%_ - (lambda (_%rest119380%_ - _%hd119382%_) - (let* ((_%g119384119392%_ - (lambda (_%g119385119388%_) + (let ((_%K123127123505%_ + (lambda (_%rest123153%_ + _%hd123155%_) + (let* ((_%g123157123165%_ + (lambda (_%g123158123161%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g119385119388%_))) - (_%g119383119730%_ - (lambda (_%g119385119396%_) - ((lambda (_%L119399%_) + _%g123158123161%_))) + (_%g123156123501%_ + (lambda (_%g123158123169%_) + ((lambda (_%g123159123172%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g119417119425%_ - (lambda (_%g119418119421%_) + (let* ((_%g123190123198%_ + (lambda (_%g123191123194%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g119418119421%_))) - (_%g119416119726%_ - (lambda (_%g119418119429%_) - ((lambda (_%L119432%_) - (let* ((_%g119445119453%_ - (lambda (_%g119446119449%_) + _%g123191123194%_))) + (_%g123189123497%_ + (lambda (_%g123191123202%_) + ((lambda (_%g123192123205%_) + (let* ((_%g123218123226%_ + (lambda (_%g123219123222%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g119446119449%_))) - (_%g119444119722%_ - (lambda (_%g119446119457%_) - ((lambda (_%L119460%_) - (let* ((_%g119473119481%_ - (lambda (_%g119474119477%_) + _%g123219123222%_))) + (_%g123217123493%_ + (lambda (_%g123219123230%_) + ((lambda (_%g123220123233%_) + (let* ((_%g123246123254%_ + (lambda (_%g123247123250%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g119474119477%_))) - (_%g119472119503%_ - (lambda (_%g119474119485%_) - ((lambda (_%L119488%_) + _%g123247123250%_))) + (_%g123245123276%_ + (lambda (_%g123247123258%_) + ((lambda (_%g123248123261%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let) - (cons (cons _%L119399%_ + (cons (cons _%g123159123172%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L119460%_ + (cons _%g123220123233%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons _%L119488%_ '())))) - _%g119474119485%_)))) + (cons _%g123248123261%_ '())))) + _%g123247123258%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g119472119503%_ - (let* ((_%__stx120900120901%_ - _%hd119382%_) - (_%g119509119549%_ + (_%g123245123276%_ + (let* ((_%__stx124670124671%_ + _%hd123155%_) + (_%g123282123322%_ (lambda () (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%__stx120900120901%_)))) - (let ((_%__kont120903120904%_ - (lambda (_%L119695%_) + _%__stx124670124671%_)))) + (let ((_%__kont124673124674%_ + (lambda (_%g123284123466%_) (cons (gx#datum->syntax '#f 'begin) - (let ((__tmp120991 - (lambda (_%g119709119712%_ - _%g119710119715%_) - (cons _%g119709119712%_ - _%g119710119715%_)))) + (let ((__tmp124761 + (lambda (_%g123480123483%_ + _%g123481123486%_) + (cons _%g123480123483%_ + _%g123481123486%_)))) (declare (not safe)) - (__foldr1 __tmp120991 '() _%L119695%_))))) - (_%__kont120907120908%_ - (lambda (_%L119633%_ _%L119635%_) - (_%generate1119221%_ - _%L119635%_ - _%L119322%_ - _%L119633%_ - _%L119432%_ - _%L119321%_))) - (_%__kont120909120910%_ - (lambda (_%L119586%_ _%L119588%_ _%L119589%_) - (_%generate1119221%_ - _%L119589%_ - _%L119322%_ + (__foldr1 + __tmp124761 + '() + _%g123284123466%_))))) + (_%__kont124677124678%_ + (lambda (_%g123297123406%_ _%g123298123408%_) + (_%generate1122996%_ + _%g123298123408%_ + _%g123003123095%_ + _%g123297123406%_ + _%g123192123205%_ + _%g123002123094%_))) + (_%__kont124679124680%_ + (lambda (_%g123305123359%_ + _%g123306123361%_ + _%g123307123362%_) + (_%generate1122996%_ + _%g123307123362%_ + _%g123003123095%_ (cons (gx#datum->syntax '#f 'if) - (cons _%L119588%_ - (cons _%L119586%_ - (cons _%L119432%_ '())))) - _%L119432%_ - _%L119321%_)))) - (let ((_%__match120929120930%_ - (lambda (_%e119512119655%_ - _%hd119513119659%_ - _%tl119514119662%_ - _%__splice120905120906%_ - _%target119515119665%_ - _%tl119517119668%_) - (letrec ((_%loop119518119671%_ - (lambda (_%hd119516119675%_ - _%expr119522119678%_) - (if (gx#stx-pair? _%hd119516119675%_) - (let ((_%e119519119681%_ + (cons _%g123306123361%_ + (cons _%g123305123359%_ + (cons _%g123192123205%_ '())))) + _%g123192123205%_ + _%g123002123094%_)))) + (let ((_%__match124699124700%_ + (lambda (_%e123285123428%_ + _%hd123286123432%_ + _%tl123287123435%_ + _%__splice124675124676%_ + _%target123288123438%_ + _%tl123290123441%_) + (letrec ((_%loop123291123444%_ + (lambda (_%hd123289123448%_ + _%expr123295123451%_) + (if (gx#stx-pair? _%hd123289123448%_) + (let ((_%e123292123453%_ (gx#syntax-e - _%hd119516119675%_))) - (let ((_%lp-tl119521119688%_ + _%hd123289123448%_))) + (let ((_%lp-tl123294123460%_ (let () (declare (not safe)) - (##cdr _%e119519119681%_))) - (_%lp-hd119520119685%_ + (##cdr _%e123292123453%_))) + (_%lp-hd123293123457%_ (let () (declare (not safe)) - (##car _%e119519119681%_)))) - (_%loop119518119671%_ - _%lp-tl119521119688%_ - (cons _%lp-hd119520119685%_ - _%expr119522119678%_)))) - (let ((_%expr119523119691%_ - (reverse _%expr119522119678%_))) - (_%__kont120903120904%_ - _%expr119523119691%_)))))) - (_%loop119518119671%_ - _%target119515119665%_ + (##car _%e123292123453%_)))) + (_%loop123291123444%_ + _%lp-tl123294123460%_ + (cons _%lp-hd123293123457%_ + _%expr123295123451%_)))) + (let ((_%expr123296123463%_ + (reverse _%expr123295123451%_))) + (_%__kont124673124674%_ + _%expr123296123463%_)))))) + (_%loop123291123444%_ + _%target123288123438%_ '()))))) - (if (gx#stx-pair? _%__stx120900120901%_) - (let ((_%e119512119655%_ - (gx#syntax-e _%__stx120900120901%_))) - (let ((_%tl119514119662%_ + (if (gx#stx-pair? _%__stx124670124671%_) + (let ((_%e123285123428%_ + (gx#syntax-e _%__stx124670124671%_))) + (let ((_%tl123287123435%_ (let () (declare (not safe)) - (##cdr _%e119512119655%_))) - (_%hd119513119659%_ + (##cdr _%e123285123428%_))) + (_%hd123286123432%_ (let () (declare (not safe)) - (##car _%e119512119655%_)))) - (if (gx#identifier? _%hd119513119659%_) + (##car _%e123285123428%_)))) + (if (gx#identifier? _%hd123286123432%_) (if (gx#free-identifier=? - |[1]#_g120992_| - _%hd119513119659%_) - (if (gx#stx-pair/null? _%tl119514119662%_) - (let ((_%__splice120905120906%_ + |[1]#_g124762_| + _%hd123286123432%_) + (if (gx#stx-pair/null? _%tl123287123435%_) + (let ((_%__splice124675124676%_ (gx#syntax-split-splice->vector - _%tl119514119662%_ + _%tl123287123435%_ '0))) - (let ((_%tl119517119668%_ + (let ((_%tl123290123441%_ (let () (declare (not safe)) (##vector-ref - _%__splice120905120906%_ + _%__splice124675124676%_ '1))) - (_%target119515119665%_ + (_%target123288123438%_ (let () (declare (not safe)) (##vector-ref - _%__splice120905120906%_ + _%__splice124675124676%_ '0)))) (if (gx#stx-null? - _%tl119517119668%_) - (_%__match120929120930%_ - _%e119512119655%_ - _%hd119513119659%_ - _%tl119514119662%_ - _%__splice120905120906%_ - _%target119515119665%_ - _%tl119517119668%_) + _%tl123290123441%_) + (_%__match124699124700%_ + _%e123285123428%_ + _%hd123286123432%_ + _%tl123287123435%_ + _%__splice124675124676%_ + _%target123288123438%_ + _%tl123290123441%_) (if (gx#stx-pair? - _%tl119514119662%_) - (let ((_%e119529119623%_ + _%tl123287123435%_) + (let ((_%e123302123396%_ (gx#syntax-e - _%tl119514119662%_))) - (let ((_%tl119531119630%_ + _%tl123287123435%_))) + (let ((_%tl123304123403%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e119529119623%_))) - (_%hd119530119627%_ - (let () (declare (not safe)) (##car _%e119529119623%_)))) - (if (gx#stx-null? _%tl119531119630%_) - (_%__kont120907120908%_ - _%hd119530119627%_ - _%hd119513119659%_) - (if (gx#stx-pair? _%tl119531119630%_) - (let ((_%e119541119576%_ - (gx#syntax-e _%tl119531119630%_))) - (let ((_%tl119543119583%_ + (##cdr _%e123302123396%_))) + (_%hd123303123400%_ + (let () (declare (not safe)) (##car _%e123302123396%_)))) + (if (gx#stx-null? _%tl123304123403%_) + (_%__kont124677124678%_ + _%hd123303123400%_ + _%hd123286123432%_) + (if (gx#stx-pair? _%tl123304123403%_) + (let ((_%e123314123349%_ + (gx#syntax-e _%tl123304123403%_))) + (let ((_%tl123316123356%_ (let () (declare (not safe)) - (##cdr _%e119541119576%_))) - (_%hd119542119580%_ + (##cdr _%e123314123349%_))) + (_%hd123315123353%_ (let () (declare (not safe)) - (##car _%e119541119576%_)))) - (if (gx#stx-null? _%tl119543119583%_) - (_%__kont120909120910%_ - _%hd119542119580%_ - _%hd119530119627%_ - _%hd119513119659%_) + (##car _%e123314123349%_)))) + (if (gx#stx-null? _%tl123316123356%_) + (_%__kont124679124680%_ + _%hd123315123353%_ + _%hd123303123400%_ + _%hd123286123432%_) (let () (declare (not safe)) - (_%g119509119549%_))))) - (let () (declare (not safe)) (_%g119509119549%_)))))) + (_%g123282123322%_))))) + (let () (declare (not safe)) (_%g123282123322%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g119509119549%_)))))) - (if (gx#stx-pair? _%tl119514119662%_) - (let ((_%e119529119623%_ + (_%g123282123322%_)))))) + (if (gx#stx-pair? _%tl123287123435%_) + (let ((_%e123302123396%_ (gx#syntax-e - _%tl119514119662%_))) - (let ((_%tl119531119630%_ + _%tl123287123435%_))) + (let ((_%tl123304123403%_ (let () (declare (not safe)) - (##cdr _%e119529119623%_))) - (_%hd119530119627%_ + (##cdr _%e123302123396%_))) + (_%hd123303123400%_ (let () (declare (not safe)) - (##car _%e119529119623%_)))) + (##car _%e123302123396%_)))) (if (gx#stx-null? - _%tl119531119630%_) - (_%__kont120907120908%_ - _%hd119530119627%_ - _%hd119513119659%_) + _%tl123304123403%_) + (_%__kont124677124678%_ + _%hd123303123400%_ + _%hd123286123432%_) (if (gx#stx-pair? - _%tl119531119630%_) - (let ((_%e119541119576%_ + _%tl123304123403%_) + (let ((_%e123314123349%_ (gx#syntax-e - _%tl119531119630%_))) - (let ((_%tl119543119583%_ + _%tl123304123403%_))) + (let ((_%tl123316123356%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##cdr _%e119541119576%_))) - (_%hd119542119580%_ + (##cdr _%e123314123349%_))) + (_%hd123315123353%_ (let () (declare (not safe)) - (##car _%e119541119576%_)))) - (if (gx#stx-null? _%tl119543119583%_) - (_%__kont120909120910%_ - _%hd119542119580%_ - _%hd119530119627%_ - _%hd119513119659%_) - (let () (declare (not safe)) (_%g119509119549%_))))) - (let () (declare (not safe)) (_%g119509119549%_)))))) + (##car _%e123314123349%_)))) + (if (gx#stx-null? _%tl123316123356%_) + (_%__kont124679124680%_ + _%hd123315123353%_ + _%hd123303123400%_ + _%hd123286123432%_) + (let () (declare (not safe)) (_%g123282123322%_))))) + (let () (declare (not safe)) (_%g123282123322%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g119509119549%_)))) - (if (gx#stx-pair? _%tl119514119662%_) - (let ((_%e119529119623%_ + (_%g123282123322%_)))) + (if (gx#stx-pair? _%tl123287123435%_) + (let ((_%e123302123396%_ (gx#syntax-e - _%tl119514119662%_))) - (let ((_%tl119531119630%_ + _%tl123287123435%_))) + (let ((_%tl123304123403%_ (let () (declare (not safe)) - (##cdr _%e119529119623%_))) - (_%hd119530119627%_ + (##cdr _%e123302123396%_))) + (_%hd123303123400%_ (let () (declare (not safe)) - (##car _%e119529119623%_)))) + (##car _%e123302123396%_)))) (if (gx#stx-null? - _%tl119531119630%_) - (_%__kont120907120908%_ - _%hd119530119627%_ - _%hd119513119659%_) + _%tl123304123403%_) + (_%__kont124677124678%_ + _%hd123303123400%_ + _%hd123286123432%_) (if (gx#stx-pair? - _%tl119531119630%_) - (let ((_%e119541119576%_ + _%tl123304123403%_) + (let ((_%e123314123349%_ (gx#syntax-e - _%tl119531119630%_))) - (let ((_%tl119543119583%_ + _%tl123304123403%_))) + (let ((_%tl123316123356%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e119541119576%_))) - (_%hd119542119580%_ - (let () (declare (not safe)) (##car _%e119541119576%_)))) - (if (gx#stx-null? _%tl119543119583%_) - (_%__kont120909120910%_ - _%hd119542119580%_ - _%hd119530119627%_ - _%hd119513119659%_) - (let () (declare (not safe)) (_%g119509119549%_))))) + (##cdr _%e123314123349%_))) + (_%hd123315123353%_ + (let () (declare (not safe)) (##car _%e123314123349%_)))) + (if (gx#stx-null? _%tl123316123356%_) + (_%__kont124679124680%_ + _%hd123315123353%_ + _%hd123303123400%_ + _%hd123286123432%_) + (let () (declare (not safe)) (_%g123282123322%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g119509119549%_)))))) + (_%g123282123322%_)))))) (let () (declare (not safe)) - (_%g119509119549%_)))) - (if (gx#stx-pair? _%tl119514119662%_) - (let ((_%e119529119623%_ - (gx#syntax-e _%tl119514119662%_))) - (let ((_%tl119531119630%_ + (_%g123282123322%_)))) + (if (gx#stx-pair? _%tl123287123435%_) + (let ((_%e123302123396%_ + (gx#syntax-e _%tl123287123435%_))) + (let ((_%tl123304123403%_ (let () (declare (not safe)) - (##cdr _%e119529119623%_))) - (_%hd119530119627%_ + (##cdr _%e123302123396%_))) + (_%hd123303123400%_ (let () (declare (not safe)) - (##car _%e119529119623%_)))) - (if (gx#stx-null? _%tl119531119630%_) - (_%__kont120907120908%_ - _%hd119530119627%_ - _%hd119513119659%_) + (##car _%e123302123396%_)))) + (if (gx#stx-null? _%tl123304123403%_) + (_%__kont124677124678%_ + _%hd123303123400%_ + _%hd123286123432%_) (if (gx#stx-pair? - _%tl119531119630%_) - (let ((_%e119541119576%_ + _%tl123304123403%_) + (let ((_%e123314123349%_ (gx#syntax-e - _%tl119531119630%_))) - (let ((_%tl119543119583%_ + _%tl123304123403%_))) + (let ((_%tl123316123356%_ (let () (declare (not safe)) - (##cdr _%e119541119576%_))) - (_%hd119542119580%_ + (##cdr _%e123314123349%_))) + (_%hd123315123353%_ (let () (declare (not safe)) - (##car _%e119541119576%_)))) + (##car _%e123314123349%_)))) (if (gx#stx-null? - _%tl119543119583%_) - (_%__kont120909120910%_ - _%hd119542119580%_ - _%hd119530119627%_ - _%hd119513119659%_) + _%tl123316123356%_) + (_%__kont124679124680%_ + _%hd123315123353%_ + _%hd123303123400%_ + _%hd123286123432%_) (let () (declare (not safe)) - (_%g119509119549%_))))) + (_%g123282123322%_))))) (let () (declare (not safe)) - (_%g119509119549%_)))))) + (_%g123282123322%_)))))) (let () (declare (not safe)) - (_%g119509119549%_)))))) + (_%g123282123322%_)))))) (let () (declare (not safe)) - (_%g119509119549%_))))))))) + (_%g123282123322%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g119446119457%_)))) - (_%g119444119722%_ - (_%recur119344%_ _%rest119380%_)))) - _%g119418119429%_)))) - (_%g119416119726%_ (cons _%L119399%_ '())))) - _%g119385119396%_)))) - (_%g119383119730%_ (gx#genident '$E))))) + _%g123219123230%_)))) + (_%g123217123493%_ + (_%recur123117%_ _%rest123153%_)))) + _%g123191123202%_)))) + (_%g123189123497%_ (cons _%g123159123172%_ '())))) + _%g123158123169%_)))) + (_%g123156123501%_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K119353119372%_ + (_%K123126123145%_ (lambda () (cons (gx#datum->syntax '#f @@ -1222,47 +1233,47 @@ (cons '#f (cons '"Bad syntax; malformed ast clause" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L119322%_ '()))))))) + (cons _%g123003123095%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%try-match119351119376%_ + (let ((_%try-match123124123149%_ (lambda () - (if (null? _%rest119349119358%_) - (_%K119353119372%_) - (_%E119352119364%_))))) - (if (pair? _%rest119349119358%_) - (let ((_%tl119356119741%_ + (if (null? _%rest123122123131%_) + (_%K123126123145%_) + (_%E123125123137%_))))) + (if (pair? _%rest123122123131%_) + (let ((_%tl123129123512%_ (let () (declare (not safe)) - (##cdr _%rest119349119358%_))) - (_%hd119355119738%_ + (##cdr _%rest123122123131%_))) + (_%hd123128123509%_ (let () (declare (not safe)) - (##car _%rest119349119358%_)))) - (let ((_%hd119744%_ - _%hd119355119738%_) - (_%rest119747%_ - _%tl119356119741%_)) - (_%K119354119734%_ - _%rest119747%_ - _%hd119744%_))) - (_%try-match119351119376%_))))))) - _%clause119246119315%_ - _%hd119236119283%_ - _%hd119233119273%_)))))) - (_%loop119241119295%_ _%target119238119289%_ '())) - (_%g119224119252%_ _%g119225119256%_))))) + (##car _%rest123122123131%_)))) + (let ((_%hd123515%_ + _%hd123128123509%_) + (_%rest123518%_ + _%tl123129123512%_)) + (_%K123127123505%_ + _%rest123518%_ + _%hd123515%_))) + (_%try-match123124123149%_))))))) + _%clause123021123089%_ + _%hd123011123058%_ + _%hd123008123048%_)))))) + (_%loop123016123070%_ _%target123013123064%_ '())) + (_%g122999123027%_ _%g123000123031%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g119224119252%_ - _%g119225119256%_)))) - (_%g119224119252%_ - _%g119225119256%_)))) - (_%g119224119252%_ _%g119225119256%_)))) - (_%g119224119252%_ _%g119225119256%_))))) - (_%g119223119758%_ _%stx119218%_))))) + (_%g122999123027%_ + _%g123000123031%_)))) + (_%g122999123027%_ + _%g123000123031%_)))) + (_%g122999123027%_ _%g123000123031%_)))) + (_%g122999123027%_ _%g123000123031%_))))) + (_%g122998123529%_ _%stx122993%_))))) (define |[:0:]#SyntaxError| - (let ((__obj120975 + (let ((__obj124745 (let () (declare (not safe)) (##structure @@ -1291,118 +1302,118 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj120975 + __obj124745 'gerbil/runtime/syntax#SyntaxError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120975 'SyntaxError '2 '#f '#f)) + (##unchecked-structure-set! __obj124745 'SyntaxError '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj120975 + __obj124745 '(message irritants where context phi marks) - '4 + '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj120975 + __obj124745 '(continuation message irritants where context phi marks) - '6 + '7 '#f '#f)) - (let ((__tmp120994 (cons |[1]#_g120995_| (cons |[1]#_g120996_| '())))) + (let ((__tmp124764 (cons |[1]#_g124765_| (cons |[1]#_g124766_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj120975 __tmp120994 '3 '#f '#f)) + (##unchecked-structure-set! __obj124745 __tmp124764 '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120975 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj124745 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120975 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj124745 '#t '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120975 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj124745 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120975 '#f '11 '#f '#f)) - (let ((__tmp120997 |[1]#_g120998_|)) + (##unchecked-structure-set! __obj124745 '#f '12 '#f '#f)) + (let ((__tmp124767 |[1]#_g124768_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120975 __tmp120997 '12 '#f '#f)) - (let ((__tmp120999 |[1]#_g121000_|)) + (##unchecked-structure-set! __obj124745 __tmp124767 '3 '#f '#f)) + (let ((__tmp124769 |[1]#_g124770_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120975 __tmp120999 '13 '#f '#f)) - (let ((__tmp121001 |[1]#_g121002_|)) + (##unchecked-structure-set! __obj124745 __tmp124769 '13 '#f '#f)) + (let ((__tmp124771 |[1]#_g124772_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120975 __tmp121001 '14 '#f '#f)) - (let ((__tmp121003 - (cons (cons 'message |[1]#_g121004_|) - (cons (cons 'irritants |[1]#_g121005_|) - (cons (cons 'where |[1]#_g121006_|) - (cons (cons 'context |[1]#_g121007_|) - (cons (cons 'phi |[1]#_g121008_|) + (##unchecked-structure-set! __obj124745 __tmp124771 '14 '#f '#f)) + (let ((__tmp124773 + (cons (cons 'message |[1]#_g124774_|) + (cons (cons 'irritants |[1]#_g124775_|) + (cons (cons 'where |[1]#_g124776_|) + (cons (cons 'context |[1]#_g124777_|) + (cons (cons 'phi |[1]#_g124778_|) (cons (cons 'marks - |[1]#_g121009_|) + |[1]#_g124779_|) (cons (cons 'continuation - |[1]#_g121010_|) + |[1]#_g124780_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj120975 __tmp121003 '15 '#f '#f)) - (let ((__tmp121011 - (cons (cons 'message |[1]#_g121012_|) - (cons (cons 'irritants |[1]#_g121013_|) - (cons (cons 'where |[1]#_g121014_|) - (cons (cons 'context |[1]#_g121015_|) - (cons (cons 'phi |[1]#_g121016_|) + (##unchecked-structure-set! __obj124745 __tmp124773 '15 '#f '#f)) + (let ((__tmp124781 + (cons (cons 'message |[1]#_g124782_|) + (cons (cons 'irritants |[1]#_g124783_|) + (cons (cons 'where |[1]#_g124784_|) + (cons (cons 'context |[1]#_g124785_|) + (cons (cons 'phi |[1]#_g124786_|) (cons (cons 'marks - |[1]#_g121017_|) + |[1]#_g124787_|) (cons (cons 'continuation - |[1]#_g121018_|) + |[1]#_g124788_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj120975 __tmp121011 '16 '#f '#f)) - (let ((__tmp121019 - (cons (cons 'message |[1]#_g121020_|) - (cons (cons 'irritants |[1]#_g121021_|) - (cons (cons 'where |[1]#_g121022_|) - (cons (cons 'context |[1]#_g121023_|) - (cons (cons 'phi |[1]#_g121024_|) + (##unchecked-structure-set! __obj124745 __tmp124781 '16 '#f '#f)) + (let ((__tmp124789 + (cons (cons 'message |[1]#_g124790_|) + (cons (cons 'irritants |[1]#_g124791_|) + (cons (cons 'where |[1]#_g124792_|) + (cons (cons 'context |[1]#_g124793_|) + (cons (cons 'phi |[1]#_g124794_|) (cons (cons 'marks - |[1]#_g121025_|) + |[1]#_g124795_|) (cons (cons 'continuation - |[1]#_g121026_|) + |[1]#_g124796_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj120975 __tmp121019 '17 '#f '#f)) - (let ((__tmp121027 - (cons (cons 'message |[1]#_g121028_|) - (cons (cons 'irritants |[1]#_g121029_|) - (cons (cons 'where |[1]#_g121030_|) - (cons (cons 'context |[1]#_g121031_|) - (cons (cons 'phi |[1]#_g121032_|) + (##unchecked-structure-set! __obj124745 __tmp124789 '17 '#f '#f)) + (let ((__tmp124797 + (cons (cons 'message |[1]#_g124798_|) + (cons (cons 'irritants |[1]#_g124799_|) + (cons (cons 'where |[1]#_g124800_|) + (cons (cons 'context |[1]#_g124801_|) + (cons (cons 'phi |[1]#_g124802_|) (cons (cons 'marks - |[1]#_g121033_|) + |[1]#_g124803_|) (cons (cons 'continuation - |[1]#_g121034_|) + |[1]#_g124804_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj120975 __tmp121027 '18 '#f '#f)) + (##unchecked-structure-set! __obj124745 __tmp124797 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120975 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj124745 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120975 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj124745 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120975 '() '20 '#f '#f)) - __obj120975)) + (##unchecked-structure-set! __obj124745 '() '20 '#f '#f)) + __obj124745)) (define |[:0:]#AST| - (let ((__obj120977 + (let ((__obj124747 (let () (declare (not safe)) (##structure @@ -1430,67 +1441,67 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120977 'gerbil#AST::t '1 '#f '#f)) + (##unchecked-structure-set! __obj124747 'gerbil#AST::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120977 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj124747 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120977 '(e source) '4 '#f '#f)) + (##unchecked-structure-set! __obj124747 '(e source) '5 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120977 '(e source) '6 '#f '#f)) + (##unchecked-structure-set! __obj124747 '(e source) '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120977 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj124747 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120977 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj124747 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120977 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj124747 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120977 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj124747 '#f '11 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120977 '#f '11 '#f '#f)) - (let ((__tmp121035 |[1]#_g121036_|)) + (##unchecked-structure-set! __obj124747 '#f '12 '#f '#f)) + (let ((__tmp124805 |[1]#_g124806_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120977 __tmp121035 '12 '#f '#f)) - (let ((__tmp121037 |[1]#_g121038_|)) + (##unchecked-structure-set! __obj124747 __tmp124805 '3 '#f '#f)) + (let ((__tmp124807 |[1]#_g124808_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120977 __tmp121037 '13 '#f '#f)) - (let ((__tmp121039 |[1]#_g121040_|)) + (##unchecked-structure-set! __obj124747 __tmp124807 '13 '#f '#f)) + (let ((__tmp124809 |[1]#_g124810_|)) (declare (not safe)) - (##unchecked-structure-set! __obj120977 __tmp121039 '14 '#f '#f)) - (let ((__tmp121041 - (cons (cons 'e |[1]#_g121042_|) - (cons (cons 'source |[1]#_g121043_|) '())))) + (##unchecked-structure-set! __obj124747 __tmp124809 '14 '#f '#f)) + (let ((__tmp124811 + (cons (cons 'e |[1]#_g124812_|) + (cons (cons 'source |[1]#_g124813_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj120977 __tmp121041 '15 '#f '#f)) - (let ((__tmp121044 - (cons (cons 'e |[1]#_g121045_|) - (cons (cons 'source |[1]#_g121046_|) '())))) + (##unchecked-structure-set! __obj124747 __tmp124811 '15 '#f '#f)) + (let ((__tmp124814 + (cons (cons 'e |[1]#_g124815_|) + (cons (cons 'source |[1]#_g124816_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj120977 __tmp121044 '16 '#f '#f)) - (let ((__tmp121047 - (cons (cons 'e |[1]#_g121048_|) - (cons (cons 'source |[1]#_g121049_|) '())))) + (##unchecked-structure-set! __obj124747 __tmp124814 '16 '#f '#f)) + (let ((__tmp124817 + (cons (cons 'e |[1]#_g124818_|) + (cons (cons 'source |[1]#_g124819_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj120977 __tmp121047 '17 '#f '#f)) - (let ((__tmp121050 - (cons (cons 'e |[1]#_g121051_|) - (cons (cons 'source |[1]#_g121052_|) '())))) + (##unchecked-structure-set! __obj124747 __tmp124817 '17 '#f '#f)) + (let ((__tmp124820 + (cons (cons 'e |[1]#_g124821_|) + (cons (cons 'source |[1]#_g124822_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj120977 __tmp121050 '18 '#f '#f)) + (##unchecked-structure-set! __obj124747 __tmp124820 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120977 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj124747 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120977 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj124747 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj120977 '() '20 '#f '#f)) - __obj120977)))) + (##unchecked-structure-set! __obj124747 '() '20 '#f '#f)) + __obj124747)))) diff --git a/src/bootstrap/gerbil/runtime/system.ssi b/src/bootstrap/gerbil/runtime/system.ssi index 176fdad8bb..b2a3bdc652 100644 --- a/src/bootstrap/gerbil/runtime/system.ssi +++ b/src/bootstrap/gerbil/runtime/system.ssi @@ -68,5 +68,6 @@ namespace: #f (%#define-runtime gerbil-home gerbil-home) (%#define-runtime gerbil-path gerbil-path) (%#define-runtime __smp? __smp?) - (%#define-runtime gerbil-runtime-smp? gerbil-runtime-smp?)) + (%#define-runtime gerbil-runtime-smp? gerbil-runtime-smp?) + (%#define-runtime __DEBUG __DEBUG)) (%#call (%#ref load-module) (%#quote "gerbil/runtime/system~0")) diff --git a/src/bootstrap/gerbil/runtime/system.ssxi.ss b/src/bootstrap/gerbil/runtime/system.ssxi.ss index 0d85d964b8..dd8227bd64 100644 --- a/src/bootstrap/gerbil/runtime/system.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/system.ssxi.ss @@ -500,14 +500,14 @@ package: gerbil/runtime gerbil/runtime/system))) (declare-type __smp? - (optimizer-resolve-class '(typedecl __smp?) 'immediate::t)) + (optimizer-resolve-class '(typedecl __smp?) 'promise::t)) (declare-type gerbil-runtime-smp? (@lambda 0 #f signature: (return: - immediate::t + t::t effect: #f arguments: @@ -515,4 +515,5 @@ package: gerbil/runtime unchecked: #f origin: - gerbil/runtime/system)))) + gerbil/runtime/system))) + (declare-type __DEBUG (optimizer-resolve-class '(typedecl __DEBUG) 't::t))) diff --git a/src/bootstrap/gerbil/runtime/system~0.scm b/src/bootstrap/gerbil/runtime/system~0.scm index ef729b0b7e..de997dc172 100644 --- a/src/bootstrap/gerbil/runtime/system~0.scm +++ b/src/bootstrap/gerbil/runtime/system~0.scm @@ -1,18 +1,18 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/system::timestamp 1756721294) + (define gerbil/runtime/system::timestamp 1769384626) (begin - (define gerbil-version-string (lambda () '"v0.18.1-168-gd2cf28913")) + (define gerbil-version-string (lambda () '"v0.19-dev-75-g545b1a42a")) (define gerbil-system-manifest (cons (cons '"Gerbil" (gerbil-version-string)) (cons (cons '"Gambit" (system-version-string)) '()))) (define __build-manifest gerbil-system-manifest) (define build-manifest (lambda () __build-manifest)) (define build-manifest-set! - (lambda (_%new-value102305%_) - (if (list? _%new-value102305%_) - (let ((_%new-value102309%_ _%new-value102305%_)) - (__build-manifest-set! _%new-value102309%_)) + (lambda (_%new-value104769%_) + (if (list? _%new-value104769%_) + (let ((_%new-value104773%_ _%new-value104769%_)) + (__build-manifest-set! _%new-value104773%_)) (begin (raise-contract-violation-error '"contract violation" @@ -21,21 +21,21 @@ 'contract: 'list? 'value: - _%new-value102305%_) + _%new-value104769%_) '#!void)))) (define __build-manifest-set! - (lambda (_%new-value102292%_) - (let ((_%new-value102296%_ _%new-value102292%_)) - (set! __build-manifest _%new-value102296%_)))) + (lambda (_%new-value104756%_) + (let ((_%new-value104760%_ _%new-value104756%_)) + (set! __build-manifest _%new-value104760%_)))) (define display-build-manifest__% - (lambda (_%manifest102252%_ _%port102253%_) - (if (list? _%manifest102252%_) - (let ((_%manifest102257%_ _%manifest102252%_)) - (if (port? _%port102253%_) - (let ((_%port102267%_ _%port102253%_)) + (lambda (_%manifest104716%_ _%port104717%_) + (if (list? _%manifest104716%_) + (let ((_%manifest104721%_ _%manifest104716%_)) + (if (port? _%port104717%_) + (let ((_%port104731%_ _%port104717%_)) (__display-build-manifest__% - _%manifest102257%_ - _%port102267%_)) + _%manifest104721%_ + _%port104731%_)) (begin (raise-contract-violation-error '"contract violation" @@ -44,7 +44,7 @@ 'contract: 'port? 'value: - _%port102253%_) + _%port104717%_) '#!void))) (begin (raise-contract-violation-error @@ -54,109 +54,109 @@ 'contract: 'list? 'value: - _%manifest102252%_) + _%manifest104716%_) '#!void)))) (define display-build-manifest__0 (lambda () - (let* ((_%manifest102281%_ __build-manifest) - (_%port102283%_ (current-output-port))) - (__display-build-manifest__% _%manifest102281%_ _%port102283%_)))) + (let* ((_%manifest104745%_ __build-manifest) + (_%port104747%_ (current-output-port))) + (__display-build-manifest__% _%manifest104745%_ _%port104747%_)))) (define display-build-manifest__1 - (lambda (_%manifest102285%_) - (let ((_%port102287%_ (current-output-port))) - (display-build-manifest__% _%manifest102285%_ _%port102287%_)))) + (lambda (_%manifest104749%_) + (let ((_%port104751%_ (current-output-port))) + (display-build-manifest__% _%manifest104749%_ _%port104751%_)))) (define display-build-manifest - (lambda _g102320_ - (let ((_g102321_ (let () (declare (not safe)) (##length _g102320_)))) - (cond ((let () (declare (not safe)) (##fx= _g102321_ 0)) - (apply display-build-manifest__0 _g102320_)) - ((let () (declare (not safe)) (##fx= _g102321_ 1)) - (apply display-build-manifest__1 _g102320_)) - ((let () (declare (not safe)) (##fx= _g102321_ 2)) - (apply display-build-manifest__% _g102320_)) + (lambda _g104784_ + (let ((_g104785_ (let () (declare (not safe)) (##length _g104784_)))) + (cond ((let () (declare (not safe)) (##fx= _g104785_ 0)) + (apply display-build-manifest__0 _g104784_)) + ((let () (declare (not safe)) (##fx= _g104785_ 1)) + (apply display-build-manifest__1 _g104784_)) + ((let () (declare (not safe)) (##fx= _g104785_ 2)) + (apply display-build-manifest__% _g104784_)) (else (##raise-wrong-number-of-arguments-exception display-build-manifest - _g102320_)))))) + _g104784_)))))) (define __display-build-manifest__% - (lambda (_%manifest102174%_ _%port102175%_) - (let* ((_%manifest102178%_ _%manifest102174%_) - (_%port102186%_ _%port102175%_)) - (let ((_%p102199%_ - (lambda (_%g102194102196%_) - (display _%g102194102196%_ _%port102186%_))) - (_%l102200%_ - (let () (declare (not safe)) (##length _%manifest102178%_))) - (_%i102201%_ '0)) - (let ((__tmp102322 - (lambda (_%layer102203%_) - (if (zero? _%i102201%_) + (lambda (_%manifest104638%_ _%port104639%_) + (let* ((_%manifest104642%_ _%manifest104638%_) + (_%port104650%_ _%port104639%_)) + (let ((_%p104663%_ + (lambda (_%g104658104660%_) + (display _%g104658104660%_ _%port104650%_))) + (_%l104664%_ + (let () (declare (not safe)) (##length _%manifest104642%_))) + (_%i104665%_ '0)) + (let ((__tmp104786 + (lambda (_%layer104667%_) + (if (zero? _%i104665%_) '#!void - (if (= _%i102201%_ '1) - (_%p102199%_ '" on ") - (_%p102199%_ '", "))) - (let* ((_%layer102207102214%_ _%layer102203%_) - (_%E102209102218%_ + (if (= _%i104665%_ '1) + (_%p104663%_ '" on ") + (_%p104663%_ '", "))) + (let* ((_%layer104671104678%_ _%layer104667%_) + (_%E104673104682%_ (lambda () (error '"No clause matching" - _%layer102207102214%_ + _%layer104671104678%_ '([name . version])) '#!void)) - (_%K102210102224%_ - (lambda (_%version102221%_ _%name102222%_) - (_%p102199%_ _%name102222%_) - (_%p102199%_ '" ") - (_%p102199%_ _%version102221%_)))) - (if (pair? _%layer102207102214%_) - (let ((_%hd102211102227%_ + (_%K104674104688%_ + (lambda (_%version104685%_ _%name104686%_) + (_%p104663%_ _%name104686%_) + (_%p104663%_ '" ") + (_%p104663%_ _%version104685%_)))) + (if (pair? _%layer104671104678%_) + (let ((_%hd104675104691%_ (let () (declare (not safe)) - (##car _%layer102207102214%_))) - (_%tl102212102229%_ + (##car _%layer104671104678%_))) + (_%tl104676104693%_ (let () (declare (not safe)) - (##cdr _%layer102207102214%_)))) - (let* ((_%name102232%_ _%hd102211102227%_) - (_%version102234%_ _%tl102212102229%_)) - (_%K102210102224%_ - _%version102234%_ - _%name102232%_))) - (_%E102209102218%_))) - (set! _%i102201%_ (+ _%i102201%_ '1))))) + (##cdr _%layer104671104678%_)))) + (let* ((_%name104696%_ _%hd104675104691%_) + (_%version104698%_ _%tl104676104693%_)) + (_%K104674104688%_ + _%version104698%_ + _%name104696%_))) + (_%E104673104682%_))) + (set! _%i104665%_ (+ _%i104665%_ '1))))) (declare (not safe)) - (##for-each __tmp102322 _%manifest102178%_)))))) + (##for-each __tmp104786 _%manifest104642%_)))))) (define __display-build-manifest__0 (lambda () - (let* ((_%manifest102240%_ __build-manifest) - (_%port102242%_ (current-output-port))) - (__display-build-manifest__% _%manifest102240%_ _%port102242%_)))) + (let* ((_%manifest104704%_ __build-manifest) + (_%port104706%_ (current-output-port))) + (__display-build-manifest__% _%manifest104704%_ _%port104706%_)))) (define __display-build-manifest__1 - (lambda (_%manifest102244%_) - (let ((_%port102246%_ (current-output-port))) - (__display-build-manifest__% _%manifest102244%_ _%port102246%_)))) + (lambda (_%manifest104708%_) + (let ((_%port104710%_ (current-output-port))) + (__display-build-manifest__% _%manifest104708%_ _%port104710%_)))) (define __display-build-manifest - (lambda _g102323_ - (let ((_g102324_ (let () (declare (not safe)) (##length _g102323_)))) - (cond ((let () (declare (not safe)) (##fx= _g102324_ 0)) - (apply __display-build-manifest__0 _g102323_)) - ((let () (declare (not safe)) (##fx= _g102324_ 1)) - (apply __display-build-manifest__1 _g102323_)) - ((let () (declare (not safe)) (##fx= _g102324_ 2)) - (apply __display-build-manifest__% _g102323_)) + (lambda _g104787_ + (let ((_g104788_ (let () (declare (not safe)) (##length _g104787_)))) + (cond ((let () (declare (not safe)) (##fx= _g104788_ 0)) + (apply __display-build-manifest__0 _g104787_)) + ((let () (declare (not safe)) (##fx= _g104788_ 1)) + (apply __display-build-manifest__1 _g104787_)) + ((let () (declare (not safe)) (##fx= _g104788_ 2)) + (apply __display-build-manifest__% _g104787_)) (else (##raise-wrong-number-of-arguments-exception __display-build-manifest - _g102323_)))))) + _g104787_)))))) (define build-manifest/layer - (lambda (_%layer102169%_) - (let ((_%l102171%_ (assoc _%layer102169%_ __build-manifest))) - (if _%l102171%_ (cons _%l102171%_ '()) '())))) + (lambda (_%layer104633%_) + (let ((_%l104635%_ (assoc _%layer104633%_ __build-manifest))) + (if _%l104635%_ (cons _%l104635%_ '()) '())))) (define build-manifest/head (lambda () (cons (car __build-manifest) '()))) (define build-manifest-string__% - (lambda (_%manifest102146%_) - (if (list? _%manifest102146%_) - (let ((_%manifest102150%_ _%manifest102146%_)) - (__build-manifest-string__% _%manifest102150%_)) + (lambda (_%manifest104610%_) + (if (list? _%manifest104610%_) + (let ((_%manifest104614%_ _%manifest104610%_)) + (__build-manifest-string__% _%manifest104614%_)) (begin (raise-contract-violation-error '"contract violation" @@ -165,54 +165,54 @@ 'contract: 'list? 'value: - _%manifest102146%_) + _%manifest104610%_) '#!void)))) (define build-manifest-string__0 (lambda () - (let ((_%manifest102164%_ __build-manifest)) - (__build-manifest-string__% _%manifest102164%_)))) + (let ((_%manifest104628%_ __build-manifest)) + (__build-manifest-string__% _%manifest104628%_)))) (define build-manifest-string - (lambda _g102325_ - (let ((_g102326_ (let () (declare (not safe)) (##length _g102325_)))) - (cond ((let () (declare (not safe)) (##fx= _g102326_ 0)) - (apply build-manifest-string__0 _g102325_)) - ((let () (declare (not safe)) (##fx= _g102326_ 1)) - (apply build-manifest-string__% _g102325_)) + (lambda _g104789_ + (let ((_g104790_ (let () (declare (not safe)) (##length _g104789_)))) + (cond ((let () (declare (not safe)) (##fx= _g104790_ 0)) + (apply build-manifest-string__0 _g104789_)) + ((let () (declare (not safe)) (##fx= _g104790_ 1)) + (apply build-manifest-string__% _g104789_)) (else (##raise-wrong-number-of-arguments-exception build-manifest-string - _g102325_)))))) + _g104789_)))))) (define __build-manifest-string__% - (lambda (_%manifest102123%_) - (let ((_%manifest102126%_ _%manifest102123%_)) + (lambda (_%manifest104587%_) + (let ((_%manifest104590%_ _%manifest104587%_)) (call-with-output-string '() - (lambda (_%p102135%_) - (display-build-manifest__% _%manifest102126%_ _%p102135%_)))))) + (lambda (_%p104599%_) + (display-build-manifest__% _%manifest104590%_ _%p104599%_)))))) (define __build-manifest-string__0 (lambda () - (let ((_%manifest102141%_ __build-manifest)) - (__build-manifest-string__% _%manifest102141%_)))) + (let ((_%manifest104605%_ __build-manifest)) + (__build-manifest-string__% _%manifest104605%_)))) (define __build-manifest-string - (lambda _g102327_ - (let ((_g102328_ (let () (declare (not safe)) (##length _g102327_)))) - (cond ((let () (declare (not safe)) (##fx= _g102328_ 0)) - (apply __build-manifest-string__0 _g102327_)) - ((let () (declare (not safe)) (##fx= _g102328_ 1)) - (apply __build-manifest-string__% _g102327_)) + (lambda _g104791_ + (let ((_g104792_ (let () (declare (not safe)) (##length _g104791_)))) + (cond ((let () (declare (not safe)) (##fx= _g104792_ 0)) + (apply __build-manifest-string__0 _g104791_)) + ((let () (declare (not safe)) (##fx= _g104792_ 1)) + (apply __build-manifest-string__% _g104791_)) (else (##raise-wrong-number-of-arguments-exception __build-manifest-string - _g102327_)))))) + _g104791_)))))) (define gerbil-system-version-string (lambda () (__build-manifest-string__% gerbil-system-manifest))) (define __gerbil-greeting (gerbil-system-version-string)) (define gerbil-greeting (lambda () __gerbil-greeting)) (define gerbil-greeting-set! - (lambda (_%new-value102105%_) - (if (string? _%new-value102105%_) - (let ((_%new-value102109%_ _%new-value102105%_)) - (__gerbil-greeting-set! _%new-value102109%_)) + (lambda (_%new-value104569%_) + (if (string? _%new-value104569%_) + (let ((_%new-value104573%_ _%new-value104569%_)) + (__gerbil-greeting-set! _%new-value104573%_)) (begin (raise-contract-violation-error '"contract violation" @@ -221,35 +221,36 @@ 'contract: 'string? 'value: - _%new-value102105%_) + _%new-value104569%_) '#!void)))) (define __gerbil-greeting-set! - (lambda (_%new-value102091%_) - (let ((_%new-value102095%_ _%new-value102091%_)) - (set! __gerbil-greeting _%new-value102095%_)))) + (lambda (_%new-value104555%_) + (let ((_%new-value104559%_ _%new-value104555%_)) + (set! __gerbil-greeting _%new-value104559%_)))) (define gerbil-system (lambda () 'gerbil-gambit)) (define gerbil-home (lambda () - (let ((_%$e102087%_ + (let ((_%$e104551%_ (let () (declare (not safe)) (##getenv '"GERBIL_HOME" '#f)))) - (if _%$e102087%_ _%$e102087%_ (path-expand '"~~"))))) + (if _%$e104551%_ _%$e104551%_ (path-expand '"~~"))))) (define gerbil-path (lambda () - (let ((_%$e102083%_ + (let ((_%$e104547%_ (let () (declare (not safe)) (##getenv '"GERBIL_PATH" '#f)))) - (if _%$e102083%_ _%$e102083%_ (path-expand '"~/.gerbil"))))) - (define __smp? '#!void) - (define gerbil-runtime-smp? - (lambda () - (if (eq? __smp? '#!void) - (set! __smp? - (if (let ((__tmp102329 - (let ((__tmp102330 (configure-command-string))) - (declare (not safe)) - (__string-split __tmp102330 '#\')))) - (declare (not safe)) - (##member '"--enable-smp" __tmp102329)) - '#t - '#f)) - '#!void) - __smp?)))) + (if _%$e104547%_ _%$e104547%_ (path-expand '"~/.gerbil"))))) + (define __smp? + (let ((__tmp104793 + (lambda () + (if (let ((__tmp104794 + (let ((__tmp104795 (configure-command-string))) + (declare (not safe)) + (__string-split __tmp104795 '#\')))) + (declare (not safe)) + (##member '"--enable-smp" __tmp104794)) + '#t + '#f)))) + (declare (not safe)) + (__make-atomic-promise __tmp104793))) + (define gerbil-runtime-smp? (lambda () (force __smp?))) + (define __DEBUG + (let () (declare (not safe)) (##getenv '"GERBIL_DEBUG" '#f))))) diff --git a/src/bootstrap/gerbil/runtime/table.ssi b/src/bootstrap/gerbil/runtime/table.ssi index 49c6a6e3e3..f1c0135704 100644 --- a/src/bootstrap/gerbil/runtime/table.ssi +++ b/src/bootstrap/gerbil/runtime/table.ssi @@ -12,25 +12,54 @@ namespace: #f (%#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-lock &raw-table-lock) (%#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-lock-set! &raw-table-lock-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__1 + make-raw-table__1) (%#define-runtime make-raw-table make-raw-table))) + (%#begin (%#define-runtime + make-raw-table/lock__% + make-raw-table/lock__%) + (%#begin (%#define-runtime + make-raw-table/lock__0 + make-raw-table/lock__0) + (%#define-runtime + make-raw-table/lock + make-raw-table/lock))) + (%#begin (%#begin-syntax + (%#call (%#ref load-module) + (%#quote "gerbil/runtime/table~1"))) + (%#define-syntax + do-raw-table-lock + |[:0:]#do-raw-table-lock|)) + (%#define-runtime raw-table-length raw-table-length) + (%#define-runtime raw-table-length/lock raw-table-length/lock) (%#define-runtime raw-table-ref raw-table-ref) + (%#define-runtime raw-table-ref/lock raw-table-ref/lock) (%#define-runtime raw-table-set! raw-table-set!) + (%#define-runtime raw-table-set!/lock raw-table-set!/lock) (%#define-runtime raw-table-update! raw-table-update!) + (%#define-runtime raw-table-update!/lock raw-table-update!/lock) (%#define-runtime raw-table-delete! raw-table-delete!) + (%#define-runtime raw-table-delete!/lock raw-table-delete!/lock) (%#define-runtime raw-table-for-each raw-table-for-each) + (%#define-runtime raw-table-for-each/lock raw-table-for-each/lock) (%#define-runtime raw-table-copy raw-table-copy) + (%#define-runtime raw-table-copy/lock raw-table-copy/lock) (%#define-runtime raw-table-clear! raw-table-clear!) + (%#define-runtime raw-table-clear!/lock raw-table-clear!/lock) (%#define-runtime __raw-table-set! __raw-table-set!) (%#define-runtime __raw-table-update! __raw-table-update!) (%#define-runtime __raw-table-rehash! __raw-table-rehash!) @@ -42,22 +71,33 @@ namespace: #f (%#define-runtime symbolic-hash symbolic-hash) (%#define-runtime string-hash string-hash) (%#define-runtime immediate-hash immediate-hash) - (%#begin (%#begin-syntax - (%#call (%#ref load-module) - (%#quote "gerbil/runtime/table~1"))) - (%#define-syntax - defspecialized-table - |[:0:]#defspecialized-table|)) + (%#define-syntax deftable |[:0:]#deftable|) (%#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))) + (%#begin (%#define-runtime + make-eq-table/lock__% + make-eq-table/lock__%) + (%#begin (%#define-runtime + make-eq-table/lock__0 + make-eq-table/lock__0) + (%#define-runtime + make-eq-table/lock__1 + make-eq-table/lock__1) + (%#define-runtime + make-eq-table/lock + make-eq-table/lock))) (%#define-runtime eq-table-ref eq-table-ref) - (%#define-runtime eq-table-set! eq-table-set!) + (%#define-runtime eq-table-ref/lock eq-table-ref/lock) (%#define-runtime __eq-table-set! __eq-table-set!) - (%#define-runtime eq-table-update! eq-table-update!) + (%#define-runtime eq-table-set! eq-table-set!) + (%#define-runtime eq-table-set!/lock eq-table-set!/lock) (%#define-runtime __eq-table-update! __eq-table-update!) + (%#define-runtime eq-table-update! eq-table-update!) + (%#define-runtime eq-table-update!/lock eq-table-update!/lock) (%#define-runtime eq-table-delete! eq-table-delete!) + (%#define-runtime eq-table-delete!/lock eq-table-delete!/lock) (%#begin (%#define-runtime make-eqv-table__% make-eqv-table__%) (%#begin (%#define-runtime make-eqv-table__0 @@ -66,12 +106,28 @@ namespace: #f make-eqv-table__1 make-eqv-table__1) (%#define-runtime make-eqv-table make-eqv-table))) + (%#begin (%#define-runtime + make-eqv-table/lock__% + make-eqv-table/lock__%) + (%#begin (%#define-runtime + make-eqv-table/lock__0 + make-eqv-table/lock__0) + (%#define-runtime + make-eqv-table/lock__1 + make-eqv-table/lock__1) + (%#define-runtime + make-eqv-table/lock + make-eqv-table/lock))) (%#define-runtime eqv-table-ref eqv-table-ref) - (%#define-runtime eqv-table-set! eqv-table-set!) + (%#define-runtime eqv-table-ref/lock eqv-table-ref/lock) (%#define-runtime __eqv-table-set! __eqv-table-set!) - (%#define-runtime eqv-table-update! eqv-table-update!) + (%#define-runtime eqv-table-set! eqv-table-set!) + (%#define-runtime eqv-table-set!/lock eqv-table-set!/lock) (%#define-runtime __eqv-table-update! __eqv-table-update!) + (%#define-runtime eqv-table-update! eqv-table-update!) + (%#define-runtime eqv-table-update!/lock eqv-table-update!/lock) (%#define-runtime eqv-table-delete! eqv-table-delete!) + (%#define-runtime eqv-table-delete!/lock eqv-table-delete!/lock) (%#begin (%#define-runtime make-symbolic-table__% make-symbolic-table__%) @@ -84,12 +140,32 @@ namespace: #f (%#define-runtime make-symbolic-table make-symbolic-table))) + (%#begin (%#define-runtime + make-symbolic-table/lock__% + make-symbolic-table/lock__%) + (%#begin (%#define-runtime + make-symbolic-table/lock__0 + make-symbolic-table/lock__0) + (%#define-runtime + make-symbolic-table/lock__1 + make-symbolic-table/lock__1) + (%#define-runtime + make-symbolic-table/lock + make-symbolic-table/lock))) (%#define-runtime symbolic-table-ref symbolic-table-ref) - (%#define-runtime symbolic-table-set! symbolic-table-set!) + (%#define-runtime symbolic-table-ref/lock symbolic-table-ref/lock) (%#define-runtime __symbolic-table-set! __symbolic-table-set!) - (%#define-runtime symbolic-table-update! symbolic-table-update!) + (%#define-runtime symbolic-table-set! symbolic-table-set!) + (%#define-runtime symbolic-table-set!/lock symbolic-table-set!/lock) (%#define-runtime __symbolic-table-update! __symbolic-table-update!) + (%#define-runtime symbolic-table-update! symbolic-table-update!) + (%#define-runtime + symbolic-table-update!/lock + symbolic-table-update!/lock) (%#define-runtime symbolic-table-delete! symbolic-table-delete!) + (%#define-runtime + symbolic-table-delete!/lock + symbolic-table-delete!/lock) (%#begin (%#define-runtime make-string-table__% make-string-table__%) (%#begin (%#define-runtime make-string-table__0 @@ -100,12 +176,28 @@ namespace: #f (%#define-runtime make-string-table make-string-table))) + (%#begin (%#define-runtime + make-string-table/lock__% + make-string-table/lock__%) + (%#begin (%#define-runtime + make-string-table/lock__0 + make-string-table/lock__0) + (%#define-runtime + make-string-table/lock__1 + make-string-table/lock__1) + (%#define-runtime + make-string-table/lock + make-string-table/lock))) (%#define-runtime string-table-ref string-table-ref) - (%#define-runtime string-table-set! string-table-set!) + (%#define-runtime string-table-ref/lock string-table-ref/lock) (%#define-runtime __string-table-set! __string-table-set!) - (%#define-runtime string-table-update! string-table-update!) + (%#define-runtime string-table-set! string-table-set!) + (%#define-runtime string-table-set!/lock string-table-set!/lock) (%#define-runtime __string-table-update! __string-table-update!) + (%#define-runtime string-table-update! string-table-update!) + (%#define-runtime string-table-update!/lock string-table-update!/lock) (%#define-runtime string-table-delete! string-table-delete!) + (%#define-runtime string-table-delete!/lock string-table-delete!/lock) (%#begin (%#define-runtime make-immediate-table__% make-immediate-table__%) @@ -118,12 +210,32 @@ namespace: #f (%#define-runtime make-immediate-table make-immediate-table))) + (%#begin (%#define-runtime + make-immediate-table/lock__% + make-immediate-table/lock__%) + (%#begin (%#define-runtime + make-immediate-table/lock__0 + make-immediate-table/lock__0) + (%#define-runtime + make-immediate-table/lock__1 + make-immediate-table/lock__1) + (%#define-runtime + make-immediate-table/lock + make-immediate-table/lock))) (%#define-runtime immediate-table-ref immediate-table-ref) - (%#define-runtime immediate-table-set! immediate-table-set!) + (%#define-runtime immediate-table-ref/lock immediate-table-ref/lock) (%#define-runtime __immediate-table-set! __immediate-table-set!) - (%#define-runtime immediate-table-update! immediate-table-update!) + (%#define-runtime immediate-table-set! immediate-table-set!) + (%#define-runtime immediate-table-set!/lock immediate-table-set!/lock) (%#define-runtime __immediate-table-update! __immediate-table-update!) + (%#define-runtime immediate-table-update! immediate-table-update!) + (%#define-runtime + immediate-table-update!/lock + immediate-table-update!/lock) (%#define-runtime immediate-table-delete! immediate-table-delete!) + (%#define-runtime + immediate-table-delete!/lock + immediate-table-delete!/lock) (%#define-syntax probe-step |[:0:]#probe-step|) (%#define-syntax __table-ref |[:0:]#__table-ref|) (%#define-syntax __table-set! |[:0:]#__table-set!|) @@ -134,24 +246,49 @@ namespace: #f (%#define-runtime __gc-table-loads __gc-table-loads) (%#define-runtime &gc-table-gcht &gc-table-gcht) (%#define-runtime &gc-table-immediate &gc-table-immediate) + (%#define-runtime &gc-table-lock &gc-table-lock) (%#define-runtime &gc-table-gcht-set! &gc-table-gcht-set!) (%#define-runtime &gc-table-immediate-set! &gc-table-immediate-set!) + (%#define-runtime &gc-table-lock-set! &gc-table-lock-set!) (%#begin (%#define-runtime make-gc-table__% make-gc-table__%) (%#begin (%#define-runtime make-gc-table__0 make-gc-table__0) (%#define-runtime make-gc-table__1 make-gc-table__1) + (%#define-runtime make-gc-table__2 make-gc-table__2) (%#define-runtime make-gc-table make-gc-table))) + (%#begin (%#define-runtime + make-gc-table/lock__% + make-gc-table/lock__%) + (%#begin (%#define-runtime + make-gc-table/lock__0 + make-gc-table/lock__0) + (%#define-runtime + make-gc-table/lock__1 + make-gc-table/lock__1) + (%#define-runtime + make-gc-table/lock + make-gc-table/lock))) + (%#define-syntax do-gc-table-lock |[:0:]#do-gc-table-lock|) (%#define-runtime __gc-table-immediate __gc-table-immediate) (%#define-runtime __gc-table-new __gc-table-new) (%#define-runtime __gc-table-e __gc-table-e) (%#define-runtime __gc-table-rehash! __gc-table-rehash!) (%#define-runtime gc-table-ref gc-table-ref) + (%#define-runtime gc-table-ref/lock gc-table-ref/lock) (%#define-runtime gc-table-set! gc-table-set!) + (%#define-runtime gc-table-set/lock! gc-table-set/lock!) (%#define-runtime gc-table-update! gc-table-update!) + (%#define-runtime gc-table-update!/lock gc-table-update!/lock) (%#define-runtime gc-table-delete! gc-table-delete!) + (%#define-runtime gc-table-delete!/lock gc-table-delete!/lock) (%#define-runtime gc-table-for-each gc-table-for-each) + (%#define-runtime gc-table-for-each/lock gc-table-for-each/lock) (%#define-runtime gc-table-copy gc-table-copy) + (%#define-runtime gc-table-copy/lock gc-table-copy/lock) (%#define-runtime gc-table-clear! gc-table-clear!) + (%#define-runtime gc-table-clear!/lock gc-table-clear!/lock) (%#define-runtime gc-table-length gc-table-length) + (%#define-runtime gc-table-length/lock gc-table-length/lock) + (%#define-runtime __object-eq-hash-lock __object-eq-hash-lock) (%#define-runtime __object-eq-hash-next __object-eq-hash-next) (%#define-runtime __object-eq-hash __object-eq-hash) (%#define-runtime __object->eq-hash __object->eq-hash)) diff --git a/src/bootstrap/gerbil/runtime/table.ssxi.ss b/src/bootstrap/gerbil/runtime/table.ssxi.ss index 6aca9cba11..ff9a63a58f 100644 --- a/src/bootstrap/gerbil/runtime/table.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/table.ssxi.ss @@ -95,6 +95,21 @@ package: gerbil/runtime #f origin: gerbil/runtime/table))) + (declare-type + &raw-table-lock + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) (declare-type &raw-table-table-set! (@lambda 2 @@ -185,6 +200,21 @@ package: gerbil/runtime #f origin: gerbil/runtime/table))) + (declare-type + &raw-table-lock-set! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) (declare-type raw-table-size-hint->size (@lambda 1 @@ -202,7 +232,7 @@ package: gerbil/runtime gerbil/runtime/table))) (declare-type make-raw-table__% - (@lambda 4 + (@lambda 5 #f signature: (return: @@ -230,6 +260,21 @@ package: gerbil/runtime #f origin: gerbil/runtime/table))) + (declare-type + make-raw-table__1 + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) (declare-type make-raw-table (@case-lambda @@ -247,6 +292,19 @@ package: gerbil/runtime origin: gerbil/runtime/table)) (4 + make-raw-table__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (5 make-raw-table__% signature: (return: @@ -260,8 +318,8 @@ package: gerbil/runtime origin: gerbil/runtime/table)))) (declare-type - raw-table-ref - (@lambda 3 + make-raw-table/lock__% + (@lambda 4 #f signature: (return: @@ -275,7 +333,7 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - raw-table-set! + make-raw-table/lock__0 (@lambda 3 #f signature: @@ -290,8 +348,38 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - raw-table-update! - (@lambda 4 + make-raw-table/lock + (@case-lambda + (3 + make-raw-table/lock__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (4 + make-raw-table/lock__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)))) + (declare-type raw-table-length (@lambda 1 &raw-table-count)) + (declare-type + raw-table-length/lock + (@lambda 1 #f signature: (return: @@ -305,8 +393,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - raw-table-delete! - (@lambda 2 + raw-table-ref + (@lambda 3 #f signature: (return: @@ -320,8 +408,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - raw-table-for-each - (@lambda 2 + raw-table-ref/lock + (@lambda 3 #f signature: (return: @@ -335,8 +423,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - raw-table-copy - (@lambda 1 + raw-table-set! + (@lambda 3 #f signature: (return: @@ -350,8 +438,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - raw-table-clear! - (@lambda 1 + raw-table-set!/lock + (@lambda 3 #f signature: (return: @@ -365,8 +453,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - __raw-table-set! - (@lambda 3 + raw-table-update! + (@lambda 4 #f signature: (return: @@ -380,7 +468,7 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - __raw-table-update! + raw-table-update!/lock (@lambda 4 #f signature: @@ -395,8 +483,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - __raw-table-rehash! - (@lambda 1 + raw-table-delete! + (@lambda 2 #f signature: (return: @@ -410,12 +498,12 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - eq-hash - (@lambda 1 + raw-table-delete!/lock + (@lambda 2 #f signature: (return: - fixnum::t + t::t effect: #f arguments: @@ -425,12 +513,12 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - procedure-hash - (@lambda 1 + raw-table-for-each + (@lambda 2 #f signature: (return: - fixnum::t + t::t effect: #f arguments: @@ -440,7 +528,22 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - __eq-hash + raw-table-for-each/lock + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + raw-table-copy (@lambda 1 #f signature: @@ -455,7 +558,7 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - eqv-hash + raw-table-copy/lock (@lambda 1 #f signature: @@ -470,12 +573,12 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - symbolic? + raw-table-clear! (@lambda 1 #f signature: (return: - boolean::t + t::t effect: #f arguments: @@ -484,10 +587,8 @@ package: gerbil/runtime #f origin: gerbil/runtime/table))) - (declare-type symbolic-hash (@lambda 1 ##symbol-hash)) - (declare-type string-hash (@lambda 1 ##string=?-hash)) (declare-type - immediate-hash + raw-table-clear!/lock (@lambda 1 #f signature: @@ -502,8 +603,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-eq-table__% - (@lambda 2 + __raw-table-set! + (@lambda 3 #f signature: (return: @@ -517,8 +618,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-eq-table__0 - (@lambda 0 + __raw-table-update! + (@lambda 4 #f signature: (return: @@ -532,7 +633,7 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-eq-table__1 + __raw-table-rehash! (@lambda 1 #f signature: @@ -547,54 +648,12 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-eq-table - (@case-lambda - (0 - make-eq-table__0 - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/table)) - (1 - make-eq-table__1 - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/table)) - (2 - make-eq-table__% - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/table)))) - (declare-type - eq-table-ref - (@lambda 3 + eq-hash + (@lambda 1 #f signature: (return: - t::t + fixnum::t effect: #f arguments: @@ -604,12 +663,12 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - eq-table-set! - (@lambda 3 + procedure-hash + (@lambda 1 #f signature: (return: - t::t + fixnum::t effect: #f arguments: @@ -619,8 +678,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - __eq-table-set! - (@lambda 3 + __eq-hash + (@lambda 1 #f signature: (return: @@ -634,8 +693,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - eq-table-update! - (@lambda 4 + eqv-hash + (@lambda 1 #f signature: (return: @@ -649,12 +708,12 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - __eq-table-update! - (@lambda 4 + symbolic? + (@lambda 1 #f signature: (return: - t::t + boolean::t effect: #f arguments: @@ -663,9 +722,11 @@ package: gerbil/runtime #f origin: gerbil/runtime/table))) + (declare-type symbolic-hash (@lambda 1 ##symbol-hash)) + (declare-type string-hash (@lambda 1 ##string=?-hash)) (declare-type - eq-table-delete! - (@lambda 2 + immediate-hash + (@lambda 1 #f signature: (return: @@ -679,7 +740,7 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-eqv-table__% + make-eq-table__% (@lambda 2 #f signature: @@ -694,7 +755,7 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-eqv-table__0 + make-eq-table__0 (@lambda 0 #f signature: @@ -709,7 +770,7 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-eqv-table__1 + make-eq-table__1 (@lambda 1 #f signature: @@ -724,10 +785,10 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-eqv-table + make-eq-table (@case-lambda (0 - make-eqv-table__0 + make-eq-table__0 signature: (return: t::t @@ -740,7 +801,7 @@ package: gerbil/runtime origin: gerbil/runtime/table)) (1 - make-eqv-table__1 + make-eq-table__1 signature: (return: t::t @@ -753,7 +814,7 @@ package: gerbil/runtime origin: gerbil/runtime/table)) (2 - make-eqv-table__% + make-eq-table__% signature: (return: t::t @@ -766,8 +827,8 @@ package: gerbil/runtime origin: gerbil/runtime/table)))) (declare-type - eqv-table-ref - (@lambda 3 + make-eq-table/lock__% + (@lambda 2 #f signature: (return: @@ -781,8 +842,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - eqv-table-set! - (@lambda 3 + make-eq-table/lock__0 + (@lambda 0 #f signature: (return: @@ -796,8 +857,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - __eqv-table-set! - (@lambda 3 + make-eq-table/lock__1 + (@lambda 1 #f signature: (return: @@ -811,10 +872,1054 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - eqv-table-update! - (@lambda 4 - #f - signature: + make-eq-table/lock + (@case-lambda + (0 + make-eq-table/lock__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (1 + make-eq-table/lock__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (2 + make-eq-table/lock__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)))) + (declare-type + eq-table-ref + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eq-table-ref/lock + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __eq-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eq-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eq-table-set!/lock + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __eq-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eq-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eq-table-update!/lock + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eq-table-delete! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eq-table-delete!/lock + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-eqv-table__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-eqv-table__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-eqv-table__1 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-eqv-table + (@case-lambda + (0 + make-eqv-table__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (1 + make-eqv-table__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (2 + make-eqv-table__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)))) + (declare-type + make-eqv-table/lock__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-eqv-table/lock__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-eqv-table/lock__1 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-eqv-table/lock + (@case-lambda + (0 + make-eqv-table/lock__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (1 + make-eqv-table/lock__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (2 + make-eqv-table/lock__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)))) + (declare-type + eqv-table-ref + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eqv-table-ref/lock + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __eqv-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eqv-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eqv-table-set!/lock + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __eqv-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eqv-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eqv-table-update!/lock + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eqv-table-delete! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + eqv-table-delete!/lock + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-symbolic-table__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-symbolic-table__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-symbolic-table__1 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-symbolic-table + (@case-lambda + (0 + make-symbolic-table__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (1 + make-symbolic-table__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (2 + make-symbolic-table__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)))) + (declare-type + make-symbolic-table/lock__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-symbolic-table/lock__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-symbolic-table/lock__1 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-symbolic-table/lock + (@case-lambda + (0 + make-symbolic-table/lock__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (1 + make-symbolic-table/lock__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (2 + make-symbolic-table/lock__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)))) + (declare-type + symbolic-table-ref + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + symbolic-table-ref/lock + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __symbolic-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + symbolic-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + symbolic-table-set!/lock + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __symbolic-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + symbolic-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + symbolic-table-update!/lock + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + symbolic-table-delete! + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + symbolic-table-delete!/lock + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-string-table__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-string-table__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-string-table__1 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-string-table + (@case-lambda + (0 + make-string-table__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (1 + make-string-table__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (2 + make-string-table__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)))) + (declare-type + make-string-table/lock__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-string-table/lock__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-string-table/lock__1 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-string-table/lock + (@case-lambda + (0 + make-string-table/lock__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (1 + make-string-table/lock__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (2 + make-string-table/lock__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)))) + (declare-type + string-table-ref + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + string-table-ref/lock + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __string-table-set! + (@lambda 3 + #f + signature: (return: t::t effect: @@ -826,7 +1931,37 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - __eqv-table-update! + string-table-set! + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + string-table-set!/lock + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __string-table-update! (@lambda 4 #f signature: @@ -841,7 +1976,37 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - eqv-table-delete! + string-table-update! + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + string-table-update!/lock + (@lambda 4 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + string-table-delete! (@lambda 2 #f signature: @@ -856,7 +2021,7 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-symbolic-table__% + string-table-delete!/lock (@lambda 2 #f signature: @@ -871,7 +2036,22 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-symbolic-table__0 + make-immediate-table__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-immediate-table__0 (@lambda 0 #f signature: @@ -886,7 +2066,7 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-symbolic-table__1 + make-immediate-table__1 (@lambda 1 #f signature: @@ -901,10 +2081,10 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-symbolic-table + make-immediate-table (@case-lambda (0 - make-symbolic-table__0 + make-immediate-table__0 signature: (return: t::t @@ -917,7 +2097,7 @@ package: gerbil/runtime origin: gerbil/runtime/table)) (1 - make-symbolic-table__1 + make-immediate-table__1 signature: (return: t::t @@ -930,7 +2110,7 @@ package: gerbil/runtime origin: gerbil/runtime/table)) (2 - make-symbolic-table__% + make-immediate-table__% signature: (return: t::t @@ -943,7 +2123,94 @@ package: gerbil/runtime origin: gerbil/runtime/table)))) (declare-type - symbolic-table-ref + make-immediate-table/lock__% + (@lambda 2 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-immediate-table/lock__0 + (@lambda 0 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-immediate-table/lock__1 + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-immediate-table/lock + (@case-lambda + (0 + make-immediate-table/lock__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (1 + make-immediate-table/lock__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (2 + make-immediate-table/lock__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)))) + (declare-type + immediate-table-ref (@lambda 3 #f signature: @@ -958,7 +2225,7 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - symbolic-table-set! + immediate-table-ref/lock (@lambda 3 #f signature: @@ -973,7 +2240,7 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - __symbolic-table-set! + __immediate-table-set! (@lambda 3 #f signature: @@ -988,8 +2255,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - symbolic-table-update! - (@lambda 4 + immediate-table-set! + (@lambda 3 #f signature: (return: @@ -1003,7 +2270,22 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - __symbolic-table-update! + immediate-table-set!/lock + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + __immediate-table-update! (@lambda 4 #f signature: @@ -1018,8 +2300,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - symbolic-table-delete! - (@lambda 2 + immediate-table-update! + (@lambda 4 #f signature: (return: @@ -1033,8 +2315,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-string-table__% - (@lambda 2 + immediate-table-update!/lock + (@lambda 4 #f signature: (return: @@ -1048,8 +2330,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-string-table__0 - (@lambda 0 + immediate-table-delete! + (@lambda 2 #f signature: (return: @@ -1063,8 +2345,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-string-table__1 - (@lambda 1 + immediate-table-delete!/lock + (@lambda 2 #f signature: (return: @@ -1078,50 +2360,14 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-string-table - (@case-lambda - (0 - make-string-table__0 - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/table)) - (1 - make-string-table__1 - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/table)) - (2 - make-string-table__% - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/table)))) + __gc-table::t.id + (optimizer-resolve-class '(typedecl __gc-table::t.id) 'symbol::t)) (declare-type - string-table-ref - (@lambda 3 + __gc-table-loads + (optimizer-resolve-class '(typedecl __gc-table-loads) 'f64vector::t)) + (declare-type + &gc-table-gcht + (@lambda 1 #f signature: (return: @@ -1135,8 +2381,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - string-table-set! - (@lambda 3 + &gc-table-immediate + (@lambda 1 #f signature: (return: @@ -1150,8 +2396,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - __string-table-set! - (@lambda 3 + &gc-table-lock + (@lambda 1 #f signature: (return: @@ -1165,8 +2411,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - string-table-update! - (@lambda 4 + &gc-table-gcht-set! + (@lambda 2 #f signature: (return: @@ -1180,8 +2426,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - __string-table-update! - (@lambda 4 + &gc-table-immediate-set! + (@lambda 2 #f signature: (return: @@ -1195,7 +2441,7 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - string-table-delete! + &gc-table-lock-set! (@lambda 2 #f signature: @@ -1210,8 +2456,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-immediate-table__% - (@lambda 2 + make-gc-table__% + (@lambda 4 #f signature: (return: @@ -1225,8 +2471,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-immediate-table__0 - (@lambda 0 + make-gc-table__0 + (@lambda 1 #f signature: (return: @@ -1240,8 +2486,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-immediate-table__1 - (@lambda 1 + make-gc-table__1 + (@lambda 2 #f signature: (return: @@ -1255,10 +2501,25 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-immediate-table + make-gc-table__2 + (@lambda 3 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table))) + (declare-type + make-gc-table (@case-lambda - (0 - make-immediate-table__0 + (1 + make-gc-table__0 signature: (return: t::t @@ -1270,8 +2531,8 @@ package: gerbil/runtime #f origin: gerbil/runtime/table)) - (1 - make-immediate-table__1 + (2 + make-gc-table__1 signature: (return: t::t @@ -1283,8 +2544,21 @@ package: gerbil/runtime #f origin: gerbil/runtime/table)) - (2 - make-immediate-table__% + (3 + make-gc-table__2 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (4 + make-gc-table__% signature: (return: t::t @@ -1297,7 +2571,7 @@ package: gerbil/runtime origin: gerbil/runtime/table)))) (declare-type - immediate-table-ref + make-gc-table/lock__% (@lambda 3 #f signature: @@ -1312,8 +2586,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - immediate-table-set! - (@lambda 3 + make-gc-table/lock__0 + (@lambda 1 #f signature: (return: @@ -1327,8 +2601,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - __immediate-table-set! - (@lambda 3 + make-gc-table/lock__1 + (@lambda 2 #f signature: (return: @@ -1342,23 +2616,50 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - immediate-table-update! - (@lambda 4 - #f - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/table))) + make-gc-table/lock + (@case-lambda + (1 + make-gc-table/lock__0 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (2 + make-gc-table/lock__1 + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)) + (3 + make-gc-table/lock__% + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/table)))) (declare-type - __immediate-table-update! - (@lambda 4 + __gc-table-immediate + (@lambda 1 #f signature: (return: @@ -1372,7 +2673,7 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - immediate-table-delete! + __gc-table-new (@lambda 2 #f signature: @@ -1387,13 +2688,7 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - __gc-table::t.id - (optimizer-resolve-class '(typedecl __gc-table::t.id) 'symbol::t)) - (declare-type - __gc-table-loads - (optimizer-resolve-class '(typedecl __gc-table-loads) 'f64vector::t)) - (declare-type - &gc-table-gcht + __gc-table-e (@lambda 1 #f signature: @@ -1408,7 +2703,7 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - &gc-table-immediate + __gc-table-rehash! (@lambda 1 #f signature: @@ -1423,8 +2718,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - &gc-table-gcht-set! - (@lambda 2 + gc-table-ref + (@lambda 3 #f signature: (return: @@ -1438,8 +2733,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - &gc-table-immediate-set! - (@lambda 2 + gc-table-ref/lock + (@lambda 3 #f signature: (return: @@ -1453,7 +2748,7 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-gc-table__% + gc-table-set! (@lambda 3 #f signature: @@ -1468,8 +2763,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-gc-table__0 - (@lambda 1 + gc-table-set/lock! + (@lambda 3 #f signature: (return: @@ -1483,8 +2778,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-gc-table__1 - (@lambda 2 + gc-table-update! + (@lambda 4 #f signature: (return: @@ -1498,50 +2793,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - make-gc-table - (@case-lambda - (1 - make-gc-table__0 - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/table)) - (2 - make-gc-table__1 - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/table)) - (3 - make-gc-table__% - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/table)))) - (declare-type - __gc-table-immediate - (@lambda 1 + gc-table-update!/lock + (@lambda 4 #f signature: (return: @@ -1555,7 +2808,7 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - __gc-table-new + gc-table-delete! (@lambda 2 #f signature: @@ -1570,23 +2823,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - __gc-table-e - (@lambda 1 - #f - signature: - (return: - t::t - effect: - #f - arguments: - #f - unchecked: - #f - origin: - gerbil/runtime/table))) - (declare-type - __gc-table-rehash! - (@lambda 1 + gc-table-delete!/lock + (@lambda 2 #f signature: (return: @@ -1600,8 +2838,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - gc-table-ref - (@lambda 3 + gc-table-for-each + (@lambda 2 #f signature: (return: @@ -1615,8 +2853,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - gc-table-set! - (@lambda 3 + gc-table-for-each/lock + (@lambda 2 #f signature: (return: @@ -1630,8 +2868,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - gc-table-update! - (@lambda 4 + gc-table-copy + (@lambda 1 #f signature: (return: @@ -1645,8 +2883,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - gc-table-delete! - (@lambda 2 + gc-table-copy/lock + (@lambda 1 #f signature: (return: @@ -1660,8 +2898,8 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - gc-table-for-each - (@lambda 2 + gc-table-clear! + (@lambda 1 #f signature: (return: @@ -1675,7 +2913,7 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - gc-table-copy + gc-table-clear!/lock (@lambda 1 #f signature: @@ -1690,12 +2928,12 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - gc-table-clear! + gc-table-length (@lambda 1 #f signature: (return: - t::t + fixnum::t effect: #f arguments: @@ -1705,7 +2943,7 @@ package: gerbil/runtime origin: gerbil/runtime/table))) (declare-type - gc-table-length + gc-table-length/lock (@lambda 1 #f signature: @@ -1719,6 +2957,9 @@ package: gerbil/runtime #f origin: gerbil/runtime/table))) + (declare-type + __object-eq-hash-lock + (optimizer-resolve-class '(typedecl __object-eq-hash-lock) 'vector::t)) (declare-type __object-eq-hash-next (optimizer-resolve-class '(typedecl __object-eq-hash-next) 't::t)) diff --git a/src/bootstrap/gerbil/runtime/table~0.scm b/src/bootstrap/gerbil/runtime/table~0.scm index df60c69c9a..472ec65452 100644 --- a/src/bootstrap/gerbil/runtime/table~0.scm +++ b/src/bootstrap/gerbil/runtime/table~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/table::timestamp 1756721293) + (define gerbil/runtime/table::timestamp 1769384626) (begin (declare (not safe)) (define __table::t.id 'gerbil#__table::t) @@ -11,2041 +11,2957 @@ 'raw-table '26 '#f - '#(table 5 #f count 5 #f free 5 #f hash 5 #f test 5 #f seed 5 #f))) + '#(table + 5 + #f + count + 5 + #f + free + 5 + #f + hash + 5 + #f + test + 5 + #f + seed + 5 + #f + lock + 5 + #f))) (define &raw-table-table - (lambda (_%tab101775%_) + (lambda (_%tab104224%_) (##unchecked-structure-ref - _%tab101775%_ + _%tab104224%_ '1 __table::t 'raw-table-table))) (define &raw-table-count - (lambda (_%tab101773%_) + (lambda (_%tab104222%_) (##unchecked-structure-ref - _%tab101773%_ + _%tab104222%_ '2 __table::t 'raw-table-count))) (define &raw-table-free - (lambda (_%tab101771%_) + (lambda (_%tab104220%_) (##unchecked-structure-ref - _%tab101771%_ + _%tab104220%_ '3 __table::t 'raw-table-free))) (define &raw-table-hash - (lambda (_%tab101769%_) + (lambda (_%tab104218%_) (##unchecked-structure-ref - _%tab101769%_ + _%tab104218%_ '4 __table::t 'raw-table-hash))) (define &raw-table-test - (lambda (_%tab101767%_) + (lambda (_%tab104216%_) (##unchecked-structure-ref - _%tab101767%_ + _%tab104216%_ '5 __table::t 'raw-table-test))) (define &raw-table-seed - (lambda (_%tab101765%_) + (lambda (_%tab104214%_) (##unchecked-structure-ref - _%tab101765%_ + _%tab104214%_ '6 __table::t 'raw-table-seed))) + (define &raw-table-lock + (lambda (_%tab104212%_) + (##unchecked-structure-ref + _%tab104212%_ + '7 + __table::t + 'raw-table-lock))) (define &raw-table-table-set! - (lambda (_%tab101762%_ _%val101763%_) + (lambda (_%tab104209%_ _%val104210%_) (##unchecked-structure-set! - _%tab101762%_ - _%val101763%_ + _%tab104209%_ + _%val104210%_ '1 __table::t 'raw-table-table-set!))) (define &raw-table-count-set! - (lambda (_%tab101759%_ _%val101760%_) + (lambda (_%tab104206%_ _%val104207%_) (##unchecked-structure-set! - _%tab101759%_ - _%val101760%_ + _%tab104206%_ + _%val104207%_ '2 __table::t 'raw-table-count-set!))) (define &raw-table-free-set! - (lambda (_%tab101756%_ _%val101757%_) + (lambda (_%tab104203%_ _%val104204%_) (##unchecked-structure-set! - _%tab101756%_ - _%val101757%_ + _%tab104203%_ + _%val104204%_ '3 __table::t 'raw-table-free-set!))) (define &raw-table-hash-set! - (lambda (_%tab101753%_ _%val101754%_) + (lambda (_%tab104200%_ _%val104201%_) (##unchecked-structure-set! - _%tab101753%_ - _%val101754%_ + _%tab104200%_ + _%val104201%_ '4 __table::t 'raw-table-hash-set!))) (define &raw-table-test-set! - (lambda (_%tab101750%_ _%val101751%_) + (lambda (_%tab104197%_ _%val104198%_) (##unchecked-structure-set! - _%tab101750%_ - _%val101751%_ + _%tab104197%_ + _%val104198%_ '5 __table::t 'raw-table-test-set!))) (define &raw-table-seed-set! - (lambda (_%tab101747%_ _%val101748%_) + (lambda (_%tab104194%_ _%val104195%_) (##unchecked-structure-set! - _%tab101747%_ - _%val101748%_ + _%tab104194%_ + _%val104195%_ '6 __table::t 'raw-table-seed-set!))) + (define &raw-table-lock-set! + (lambda (_%tab104191%_ _%val104192%_) + (##unchecked-structure-set! + _%tab104191%_ + _%val104192%_ + '7 + __table::t + 'raw-table-lock-set!))) (define raw-table-size-hint->size - (lambda (_%size-hint101745%_) - (if (and (fixnum? _%size-hint101745%_) (##fx> _%size-hint101745%_ '0)) - (##fx* (fxmax '2 (expt '2 (integer-length _%size-hint101745%_))) + (lambda (_%size-hint104189%_) + (if (and (fixnum? _%size-hint104189%_) (##fx> _%size-hint104189%_ '0)) + (##fx* (fxmax '2 (expt '2 (integer-length _%size-hint104189%_))) '4) '16))) (define make-raw-table__% - (lambda (_%size-hint101721%_ - _%hash101722%_ - _%test101723%_ - _%seed101724%_) - (let* ((_%size101726%_ (raw-table-size-hint->size _%size-hint101721%_)) - (_%table101728%_ - (##make-vector _%size101726%_ (macro-unused-obj)))) + (lambda (_%size-hint104154%_ + _%hash104155%_ + _%test104156%_ + _%seed104157%_ + _%lock104158%_) + (let* ((_%size104160%_ (raw-table-size-hint->size _%size-hint104154%_)) + (_%table104162%_ + (##make-vector _%size104160%_ (macro-unused-obj)))) (##structure __table::t - _%table101728%_ + _%table104162%_ '0 - (##fxquotient _%size101726%_ '2) - _%hash101722%_ - _%test101723%_ - _%seed101724%_)))) + (##fxquotient _%size104160%_ '2) + _%hash104155%_ + _%test104156%_ + _%seed104157%_ + _%lock104158%_)))) (define make-raw-table__0 - (lambda (_%size-hint101734%_ _%hash101735%_ _%test101736%_) - (let ((_%seed101738%_ '0)) + (lambda (_%size-hint104168%_ _%hash104169%_ _%test104170%_) + (let* ((_%seed104172%_ '0) (_%lock104174%_ '#f)) (make-raw-table__% - _%size-hint101734%_ - _%hash101735%_ - _%test101736%_ - _%seed101738%_)))) + _%size-hint104168%_ + _%hash104169%_ + _%test104170%_ + _%seed104172%_ + _%lock104174%_)))) + (define make-raw-table__1 + (lambda (_%size-hint104176%_ + _%hash104177%_ + _%test104178%_ + _%seed104179%_) + (let ((_%lock104181%_ '#f)) + (make-raw-table__% + _%size-hint104176%_ + _%hash104177%_ + _%test104178%_ + _%seed104179%_ + _%lock104181%_)))) (define make-raw-table - (lambda _g101776_ - (let ((_g101777_ (##length _g101776_))) - (cond ((##fx= _g101777_ 3) (apply make-raw-table__0 _g101776_)) - ((##fx= _g101777_ 4) (apply make-raw-table__% _g101776_)) + (lambda _g104225_ + (let ((_g104226_ (##length _g104225_))) + (cond ((##fx= _g104226_ 3) (apply make-raw-table__0 _g104225_)) + ((##fx= _g104226_ 4) (apply make-raw-table__1 _g104225_)) + ((##fx= _g104226_ 5) (apply make-raw-table__% _g104225_)) (else (##raise-wrong-number-of-arguments-exception make-raw-table - _g101776_)))))) + _g104225_)))))) + (define make-raw-table/lock__% + (lambda (_%size-hint104134%_ + _%hash104135%_ + _%test104136%_ + _%seed104137%_) + (make-raw-table__% + _%size-hint104134%_ + _%hash104135%_ + _%test104136%_ + _%seed104137%_ + (vector '0 '#f)))) + (define make-raw-table/lock__0 + (lambda (_%size-hint104142%_ _%hash104143%_ _%test104144%_) + (let ((_%seed104146%_ '0)) + (make-raw-table/lock__% + _%size-hint104142%_ + _%hash104143%_ + _%test104144%_ + _%seed104146%_)))) + (define make-raw-table/lock + (lambda _g104227_ + (let ((_g104228_ (##length _g104227_))) + (cond ((##fx= _g104228_ 3) (apply make-raw-table/lock__0 _g104227_)) + ((##fx= _g104228_ 4) (apply make-raw-table/lock__% _g104227_)) + (else + (##raise-wrong-number-of-arguments-exception + make-raw-table/lock + _g104227_)))))) + (define raw-table-length + (lambda (_%tab104131%_) (&raw-table-count _%tab104131%_))) + (define raw-table-length/lock + (lambda (_%tab104106%_) + (let ((_%lock104108%_ (&raw-table-lock _%tab104106%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again104113%_ ((_%spin104116%_ '0)) + (if (##fx= (##vector-cas! _%lock104108%_ '0 '1 '0) '0) + (##vector-set! _%lock104108%_ '1 (current-thread)) + (if (##fx< _%spin104116%_ '10) + (let () + (##thread-yield!) + (_%again104113%_ (##fx+ _%spin104116%_ '1))) + (let ((_%owner104122%_ (##vector-ref _%lock104108%_ '1))) + (if (eq? _%owner104122%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner104122%_) + (let () (##thread-yield!) (_%again104113%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r104128%_ (&raw-table-count _%tab104106%_))) + (##vector-set! _%lock104108%_ '1 '#f) + (##vector-cas! _%lock104108%_ '0 '0 '1) + _%$r104128%_)))) (define raw-table-ref - (lambda (_%tab101672%_ _%key101673%_ _%default101674%_) - (let ((_%table101676%_ (&raw-table-table _%tab101672%_)) - (_%seed101677%_ (&raw-table-seed _%tab101672%_)) - (_%hash101678%_ (&raw-table-hash _%tab101672%_)) - (_%test101679%_ (&raw-table-test _%tab101672%_))) - (let* ((_%h101681%_ - (fxxor (_%hash101678%_ _%key101673%_) _%seed101677%_)) - (_%size101684%_ (vector-length _%table101676%_)) - (_%entries101687%_ (##fxquotient _%size101684%_ '2)) - (_%start101690%_ + (lambda (_%tab104058%_ _%key104059%_ _%default104060%_) + (let ((_%table104062%_ (&raw-table-table _%tab104058%_)) + (_%seed104063%_ (&raw-table-seed _%tab104058%_)) + (_%hash104064%_ (&raw-table-hash _%tab104058%_)) + (_%test104065%_ (&raw-table-test _%tab104058%_))) + (let* ((_%h104067%_ + (fxxor (_%hash104064%_ _%key104059%_) _%seed104063%_)) + (_%size104070%_ (vector-length _%table104062%_)) + (_%entries104073%_ (##fxquotient _%size104070%_ '2)) + (_%start104076%_ (##fxarithmetic-shift-left - (##fxmodulo _%h101681%_ _%entries101687%_) + (##fxmodulo _%h104067%_ _%entries104073%_) '1))) - (let _%loop101694%_ ((_%probe101697%_ _%start101690%_) - (_%i101699%_ '1) - (_%deleted101701%_ '#f)) - (let ((_%k101704%_ (vector-ref _%table101676%_ _%probe101697%_))) - (if (eq? _%k101704%_ (macro-unused-obj)) - _%default101674%_ - (if (eq? _%k101704%_ (macro-deleted-obj)) - (_%loop101694%_ - (let ((_%next-probe101709%_ - (fx+ _%start101690%_ - _%i101699%_ - (fx* _%i101699%_ _%i101699%_)))) - (##fxmodulo _%next-probe101709%_ _%size101684%_)) - (##fx+ _%i101699%_ '1) - (let ((_%$e101712%_ _%deleted101701%_)) - (if _%$e101712%_ _%$e101712%_ _%probe101697%_))) - (if (_%test101679%_ _%key101673%_ _%k101704%_) + (let _%loop104080%_ ((_%probe104083%_ _%start104076%_) + (_%i104085%_ '1) + (_%deleted104087%_ '#f)) + (let ((_%k104090%_ (vector-ref _%table104062%_ _%probe104083%_))) + (if (eq? _%k104090%_ (macro-unused-obj)) + _%default104060%_ + (if (eq? _%k104090%_ (macro-deleted-obj)) + (_%loop104080%_ + (let ((_%next-probe104095%_ + (fx+ _%start104076%_ + _%i104085%_ + (fx* _%i104085%_ _%i104085%_)))) + (##fxmodulo _%next-probe104095%_ _%size104070%_)) + (##fx+ _%i104085%_ '1) + (let ((_%$e104098%_ _%deleted104087%_)) + (if _%$e104098%_ _%$e104098%_ _%probe104083%_))) + (if (_%test104065%_ _%key104059%_ _%k104090%_) (vector-ref - _%table101676%_ - (##fx+ _%probe101697%_ '1)) - (_%loop101694%_ - (let ((_%next-probe101717%_ - (fx+ _%start101690%_ - _%i101699%_ - (fx* _%i101699%_ _%i101699%_)))) + _%table104062%_ + (##fx+ _%probe104083%_ '1)) + (_%loop104080%_ + (let ((_%next-probe104103%_ + (fx+ _%start104076%_ + _%i104085%_ + (fx* _%i104085%_ _%i104085%_)))) (##fxmodulo - _%next-probe101717%_ - _%size101684%_)) - (##fx+ _%i101699%_ '1) - _%deleted101701%_)))))))))) + _%next-probe104103%_ + _%size104070%_)) + (##fx+ _%i104085%_ '1) + _%deleted104087%_)))))))))) + (define raw-table-ref/lock + (lambda (_%tab104031%_ _%key104032%_ _%default104033%_) + (let ((_%lock104035%_ (&raw-table-lock _%tab104031%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again104040%_ ((_%spin104043%_ '0)) + (if (##fx= (##vector-cas! _%lock104035%_ '0 '1 '0) '0) + (##vector-set! _%lock104035%_ '1 (current-thread)) + (if (##fx< _%spin104043%_ '10) + (let () + (##thread-yield!) + (_%again104040%_ (##fx+ _%spin104043%_ '1))) + (let ((_%owner104049%_ (##vector-ref _%lock104035%_ '1))) + (if (eq? _%owner104049%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner104049%_) + (let () (##thread-yield!) (_%again104040%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r104055%_ + (raw-table-ref + _%tab104031%_ + _%key104032%_ + _%default104033%_))) + (##vector-set! _%lock104035%_ '1 '#f) + (##vector-cas! _%lock104035%_ '0 '0 '1) + _%$r104055%_)))) (define raw-table-set! - (lambda (_%tab101668%_ _%key101669%_ _%value101670%_) - (if (##fx< (&raw-table-free _%tab101668%_) + (lambda (_%tab104027%_ _%key104028%_ _%value104029%_) + (if (##fx< (&raw-table-free _%tab104027%_) (##fxquotient - (vector-length (&raw-table-table _%tab101668%_)) + (vector-length (&raw-table-table _%tab104027%_)) '4)) - (__raw-table-rehash! _%tab101668%_) + (__raw-table-rehash! _%tab104027%_) '#!void) - (__raw-table-set! _%tab101668%_ _%key101669%_ _%value101670%_))) + (__raw-table-set! _%tab104027%_ _%key104028%_ _%value104029%_))) + (define raw-table-set!/lock + (lambda (_%tab104000%_ _%key104001%_ _%value104002%_) + (let ((_%lock104004%_ (&raw-table-lock _%tab104000%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again104009%_ ((_%spin104012%_ '0)) + (if (##fx= (##vector-cas! _%lock104004%_ '0 '1 '0) '0) + (##vector-set! _%lock104004%_ '1 (current-thread)) + (if (##fx< _%spin104012%_ '10) + (let () + (##thread-yield!) + (_%again104009%_ (##fx+ _%spin104012%_ '1))) + (let ((_%owner104018%_ (##vector-ref _%lock104004%_ '1))) + (if (eq? _%owner104018%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner104018%_) + (let () (##thread-yield!) (_%again104009%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r104024%_ + (raw-table-set! _%tab104000%_ _%key104001%_ _%value104002%_))) + (##vector-set! _%lock104004%_ '1 '#f) + (##vector-cas! _%lock104004%_ '0 '0 '1) + _%$r104024%_)))) (define raw-table-update! - (lambda (_%tab101663%_ _%key101664%_ _%update101665%_ _%default101666%_) - (if (##fx< (&raw-table-free _%tab101663%_) + (lambda (_%tab103995%_ _%key103996%_ _%update103997%_ _%default103998%_) + (if (##fx< (&raw-table-free _%tab103995%_) (##fxquotient - (vector-length (&raw-table-table _%tab101663%_)) + (vector-length (&raw-table-table _%tab103995%_)) '4)) - (__raw-table-rehash! _%tab101663%_) + (__raw-table-rehash! _%tab103995%_) '#!void) (__raw-table-update! - _%tab101663%_ - _%key101664%_ - _%update101665%_ - _%default101666%_))) + _%tab103995%_ + _%key103996%_ + _%update103997%_ + _%default103998%_))) + (define raw-table-update!/lock + (lambda (_%tab103967%_ _%key103968%_ _%update103969%_ _%default103970%_) + (let ((_%lock103972%_ (&raw-table-lock _%tab103967%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again103977%_ ((_%spin103980%_ '0)) + (if (##fx= (##vector-cas! _%lock103972%_ '0 '1 '0) '0) + (##vector-set! _%lock103972%_ '1 (current-thread)) + (if (##fx< _%spin103980%_ '10) + (let () + (##thread-yield!) + (_%again103977%_ (##fx+ _%spin103980%_ '1))) + (let ((_%owner103986%_ (##vector-ref _%lock103972%_ '1))) + (if (eq? _%owner103986%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner103986%_) + (let () (##thread-yield!) (_%again103977%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r103992%_ + (raw-table-update! + _%tab103967%_ + _%key103968%_ + _%update103969%_ + _%default103970%_))) + (##vector-set! _%lock103972%_ '1 '#f) + (##vector-cas! _%lock103972%_ '0 '0 '1) + _%$r103992%_)))) (define raw-table-delete! - (lambda (_%tab101620%_ _%key101621%_) - (let ((_%table101623%_ (&raw-table-table _%tab101620%_)) - (_%seed101624%_ (&raw-table-seed _%tab101620%_)) - (_%hash101625%_ (&raw-table-hash _%tab101620%_)) - (_%test101626%_ (&raw-table-test _%tab101620%_))) - (let* ((_%h101628%_ - (fxxor (_%hash101625%_ _%key101621%_) _%seed101624%_)) - (_%size101631%_ (vector-length _%table101623%_)) - (_%entries101634%_ (##fxquotient _%size101631%_ '2)) - (_%start101637%_ + (lambda (_%tab103924%_ _%key103925%_) + (let ((_%table103927%_ (&raw-table-table _%tab103924%_)) + (_%seed103928%_ (&raw-table-seed _%tab103924%_)) + (_%hash103929%_ (&raw-table-hash _%tab103924%_)) + (_%test103930%_ (&raw-table-test _%tab103924%_))) + (let* ((_%h103932%_ + (fxxor (_%hash103929%_ _%key103925%_) _%seed103928%_)) + (_%size103935%_ (vector-length _%table103927%_)) + (_%entries103938%_ (##fxquotient _%size103935%_ '2)) + (_%start103941%_ (##fxarithmetic-shift-left - (##fxmodulo _%h101628%_ _%entries101634%_) + (##fxmodulo _%h103932%_ _%entries103938%_) '1))) - (let _%loop101641%_ ((_%probe101644%_ _%start101637%_) - (_%i101646%_ '1)) - (let ((_%k101649%_ (vector-ref _%table101623%_ _%probe101644%_))) - (if (eq? _%k101649%_ (macro-unused-obj)) + (let _%loop103945%_ ((_%probe103948%_ _%start103941%_) + (_%i103950%_ '1)) + (let ((_%k103953%_ (vector-ref _%table103927%_ _%probe103948%_))) + (if (eq? _%k103953%_ (macro-unused-obj)) '#!void - (if (eq? _%k101649%_ (macro-deleted-obj)) - (_%loop101641%_ - (let ((_%next-probe101654%_ - (fx+ _%start101637%_ - _%i101646%_ - (fx* _%i101646%_ _%i101646%_)))) - (##fxmodulo _%next-probe101654%_ _%size101631%_)) - (##fx+ _%i101646%_ '1)) - (if (_%test101626%_ _%key101621%_ _%k101649%_) + (if (eq? _%k103953%_ (macro-deleted-obj)) + (_%loop103945%_ + (let ((_%next-probe103958%_ + (fx+ _%start103941%_ + _%i103950%_ + (fx* _%i103950%_ _%i103950%_)))) + (##fxmodulo _%next-probe103958%_ _%size103935%_)) + (##fx+ _%i103950%_ '1)) + (if (_%test103930%_ _%key103925%_ _%k103953%_) (let () (vector-set! - _%table101623%_ - _%probe101644%_ + _%table103927%_ + _%probe103948%_ (macro-deleted-obj)) (vector-set! - _%table101623%_ - (##fx+ _%probe101644%_ '1) + _%table103927%_ + (##fx+ _%probe103948%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab101620%_ - (##fx- (&raw-table-count _%tab101620%_) + _%tab103924%_ + (##fx- (&raw-table-count _%tab103924%_) '1))))) - (_%loop101641%_ - (let ((_%next-probe101660%_ - (fx+ _%start101637%_ - _%i101646%_ - (fx* _%i101646%_ _%i101646%_)))) + (_%loop103945%_ + (let ((_%next-probe103964%_ + (fx+ _%start103941%_ + _%i103950%_ + (fx* _%i103950%_ _%i103950%_)))) (##fxmodulo - _%next-probe101660%_ - _%size101631%_)) - (##fx+ _%i101646%_ '1))))))))))) + _%next-probe103964%_ + _%size103935%_)) + (##fx+ _%i103950%_ '1))))))))))) + (define raw-table-delete!/lock + (lambda (_%tab103898%_ _%key103899%_) + (let ((_%lock103901%_ (&raw-table-lock _%tab103898%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again103906%_ ((_%spin103909%_ '0)) + (if (##fx= (##vector-cas! _%lock103901%_ '0 '1 '0) '0) + (##vector-set! _%lock103901%_ '1 (current-thread)) + (if (##fx< _%spin103909%_ '10) + (let () + (##thread-yield!) + (_%again103906%_ (##fx+ _%spin103909%_ '1))) + (let ((_%owner103915%_ (##vector-ref _%lock103901%_ '1))) + (if (eq? _%owner103915%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner103915%_) + (let () (##thread-yield!) (_%again103906%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r103921%_ (raw-table-delete! _%tab103898%_ _%key103899%_))) + (##vector-set! _%lock103901%_ '1 '#f) + (##vector-cas! _%lock103901%_ '0 '0 '1) + _%$r103921%_)))) (define raw-table-for-each - (lambda (_%tab101604%_ _%proc101605%_) - (let* ((_%table101607%_ (&raw-table-table _%tab101604%_)) - (_%size101609%_ (vector-length _%table101607%_))) - (let _%loop101612%_ ((_%i101614%_ '0)) - (if (##fx< _%i101614%_ _%size101609%_) + (lambda (_%tab103882%_ _%proc103883%_) + (let* ((_%table103885%_ (&raw-table-table _%tab103882%_)) + (_%size103887%_ (vector-length _%table103885%_))) + (let _%loop103890%_ ((_%i103892%_ '0)) + (if (##fx< _%i103892%_ _%size103887%_) (begin - (let ((_%key101616%_ - (vector-ref _%table101607%_ _%i101614%_))) - (if (if (eq? _%key101616%_ (macro-unused-obj)) + (let ((_%key103894%_ + (vector-ref _%table103885%_ _%i103892%_))) + (if (if (eq? _%key103894%_ (macro-unused-obj)) '#f - (not (eq? _%key101616%_ (macro-deleted-obj)))) - (let ((_%value101618%_ + (not (eq? _%key103894%_ (macro-deleted-obj)))) + (let ((_%value103896%_ (vector-ref - _%table101607%_ - (##fx+ _%i101614%_ '1)))) - (_%proc101605%_ _%key101616%_ _%value101618%_)) + _%table103885%_ + (##fx+ _%i103892%_ '1)))) + (_%proc103883%_ _%key103894%_ _%value103896%_)) '#!void)) - (_%loop101612%_ (##fx+ _%i101614%_ '2))) + (_%loop103890%_ (##fx+ _%i103892%_ '2))) '#!void))))) + (define raw-table-for-each/lock + (lambda (_%tab103856%_ _%proc103857%_) + (let ((_%lock103859%_ (&raw-table-lock _%tab103856%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again103864%_ ((_%spin103867%_ '0)) + (if (##fx= (##vector-cas! _%lock103859%_ '0 '1 '0) '0) + (##vector-set! _%lock103859%_ '1 (current-thread)) + (if (##fx< _%spin103867%_ '10) + (let () + (##thread-yield!) + (_%again103864%_ (##fx+ _%spin103867%_ '1))) + (let ((_%owner103873%_ (##vector-ref _%lock103859%_ '1))) + (if (eq? _%owner103873%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner103873%_) + (let () (##thread-yield!) (_%again103864%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r103879%_ + (raw-table-for-each _%tab103856%_ _%proc103857%_))) + (##vector-set! _%lock103859%_ '1 '#f) + (##vector-cas! _%lock103859%_ '0 '0 '1) + _%$r103879%_)))) (define raw-table-copy - (lambda (_%tab101600%_) - (let ((_%new-tab101602%_ (##structure-copy _%tab101600%_))) + (lambda (_%tab103852%_) + (let ((_%new-tab103854%_ (##structure-copy _%tab103852%_))) (&raw-table-table-set! - _%new-tab101602%_ - (vector-copy (&raw-table-table _%tab101600%_))) - _%new-tab101602%_))) + _%new-tab103854%_ + (vector-copy (&raw-table-table _%tab103852%_))) + _%new-tab103854%_))) + (define raw-table-copy/lock + (lambda (_%tab103827%_) + (let ((_%lock103829%_ (&raw-table-lock _%tab103827%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again103834%_ ((_%spin103837%_ '0)) + (if (##fx= (##vector-cas! _%lock103829%_ '0 '1 '0) '0) + (##vector-set! _%lock103829%_ '1 (current-thread)) + (if (##fx< _%spin103837%_ '10) + (let () + (##thread-yield!) + (_%again103834%_ (##fx+ _%spin103837%_ '1))) + (let ((_%owner103843%_ (##vector-ref _%lock103829%_ '1))) + (if (eq? _%owner103843%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner103843%_) + (let () (##thread-yield!) (_%again103834%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r103849%_ (raw-table-copy _%tab103827%_))) + (##vector-set! _%lock103829%_ '1 '#f) + (##vector-cas! _%lock103829%_ '0 '0 '1) + _%$r103849%_)))) (define raw-table-clear! - (lambda (_%tab101598%_) - (vector-fill! (&raw-table-table _%tab101598%_) (macro-unused-obj)) - (&raw-table-count-set! _%tab101598%_ '0) + (lambda (_%tab103825%_) + (vector-fill! (&raw-table-table _%tab103825%_) (macro-unused-obj)) + (&raw-table-count-set! _%tab103825%_ '0) (&raw-table-free-set! - _%tab101598%_ - (##fxquotient (vector-length (&raw-table-table _%tab101598%_)) '2)))) + _%tab103825%_ + (##fxquotient (vector-length (&raw-table-table _%tab103825%_)) '2)))) + (define raw-table-clear!/lock + (lambda (_%tab103800%_) + (let ((_%lock103802%_ (&raw-table-lock _%tab103800%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again103807%_ ((_%spin103810%_ '0)) + (if (##fx= (##vector-cas! _%lock103802%_ '0 '1 '0) '0) + (##vector-set! _%lock103802%_ '1 (current-thread)) + (if (##fx< _%spin103810%_ '10) + (let () + (##thread-yield!) + (_%again103807%_ (##fx+ _%spin103810%_ '1))) + (let ((_%owner103816%_ (##vector-ref _%lock103802%_ '1))) + (if (eq? _%owner103816%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner103816%_) + (let () (##thread-yield!) (_%again103807%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r103822%_ (raw-table-clear! _%tab103800%_))) + (##vector-set! _%lock103802%_ '1 '#f) + (##vector-cas! _%lock103802%_ '0 '0 '1) + _%$r103822%_)))) (define __raw-table-set! - (lambda (_%tab101548%_ _%key101549%_ _%value101550%_) - (let ((_%table101552%_ (&raw-table-table _%tab101548%_)) - (_%seed101553%_ (&raw-table-seed _%tab101548%_)) - (_%hash101554%_ (&raw-table-hash _%tab101548%_)) - (_%test101555%_ (&raw-table-test _%tab101548%_))) - (let* ((_%h101557%_ - (fxxor (_%hash101554%_ _%key101549%_) _%seed101553%_)) - (_%size101560%_ (vector-length _%table101552%_)) - (_%entries101563%_ (##fxquotient _%size101560%_ '2)) - (_%start101566%_ + (lambda (_%tab103750%_ _%key103751%_ _%value103752%_) + (let ((_%table103754%_ (&raw-table-table _%tab103750%_)) + (_%seed103755%_ (&raw-table-seed _%tab103750%_)) + (_%hash103756%_ (&raw-table-hash _%tab103750%_)) + (_%test103757%_ (&raw-table-test _%tab103750%_))) + (let* ((_%h103759%_ + (fxxor (_%hash103756%_ _%key103751%_) _%seed103755%_)) + (_%size103762%_ (vector-length _%table103754%_)) + (_%entries103765%_ (##fxquotient _%size103762%_ '2)) + (_%start103768%_ (##fxarithmetic-shift-left - (##fxmodulo _%h101557%_ _%entries101563%_) + (##fxmodulo _%h103759%_ _%entries103765%_) '1))) - (let _%loop101570%_ ((_%probe101573%_ _%start101566%_) - (_%i101575%_ '1) - (_%deleted101577%_ '#f)) - (let ((_%k101580%_ (vector-ref _%table101552%_ _%probe101573%_))) - (if (eq? _%k101580%_ (macro-unused-obj)) - (if _%deleted101577%_ + (let _%loop103772%_ ((_%probe103775%_ _%start103768%_) + (_%i103777%_ '1) + (_%deleted103779%_ '#f)) + (let ((_%k103782%_ (vector-ref _%table103754%_ _%probe103775%_))) + (if (eq? _%k103782%_ (macro-unused-obj)) + (if _%deleted103779%_ (begin (vector-set! - _%table101552%_ - _%deleted101577%_ - _%key101549%_) + _%table103754%_ + _%deleted103779%_ + _%key103751%_) (vector-set! - _%table101552%_ - (##fx+ _%deleted101577%_ '1) - _%value101550%_) + _%table103754%_ + (##fx+ _%deleted103779%_ '1) + _%value103752%_) ((lambda () (&raw-table-count-set! - _%tab101548%_ - (##fx+ (&raw-table-count _%tab101548%_) '1))))) + _%tab103750%_ + (##fx+ (&raw-table-count _%tab103750%_) '1))))) (begin (vector-set! - _%table101552%_ - _%probe101573%_ - _%key101549%_) + _%table103754%_ + _%probe103775%_ + _%key103751%_) (vector-set! - _%table101552%_ - (##fx+ _%probe101573%_ '1) - _%value101550%_) + _%table103754%_ + (##fx+ _%probe103775%_ '1) + _%value103752%_) ((lambda () (&raw-table-free-set! - _%tab101548%_ - (##fx- (&raw-table-free _%tab101548%_) '1)) + _%tab103750%_ + (##fx- (&raw-table-free _%tab103750%_) '1)) (&raw-table-count-set! - _%tab101548%_ - (##fx+ (&raw-table-count _%tab101548%_) '1)))))) - (if (eq? _%k101580%_ (macro-deleted-obj)) - (_%loop101570%_ - (let ((_%next-probe101587%_ - (fx+ _%start101566%_ - _%i101575%_ - (fx* _%i101575%_ _%i101575%_)))) - (##fxmodulo _%next-probe101587%_ _%size101560%_)) - (##fx+ _%i101575%_ '1) - (let ((_%$e101590%_ _%deleted101577%_)) - (if _%$e101590%_ _%$e101590%_ _%probe101573%_))) - (if (_%test101555%_ _%key101549%_ _%k101580%_) + _%tab103750%_ + (##fx+ (&raw-table-count _%tab103750%_) '1)))))) + (if (eq? _%k103782%_ (macro-deleted-obj)) + (_%loop103772%_ + (let ((_%next-probe103789%_ + (fx+ _%start103768%_ + _%i103777%_ + (fx* _%i103777%_ _%i103777%_)))) + (##fxmodulo _%next-probe103789%_ _%size103762%_)) + (##fx+ _%i103777%_ '1) + (let ((_%$e103792%_ _%deleted103779%_)) + (if _%$e103792%_ _%$e103792%_ _%probe103775%_))) + (if (_%test103757%_ _%key103751%_ _%k103782%_) (let () (vector-set! - _%table101552%_ - _%probe101573%_ - _%key101549%_) + _%table103754%_ + _%probe103775%_ + _%key103751%_) (vector-set! - _%table101552%_ - (##fx+ _%probe101573%_ '1) - _%value101550%_)) - (_%loop101570%_ - (let ((_%next-probe101595%_ - (fx+ _%start101566%_ - _%i101575%_ - (fx* _%i101575%_ _%i101575%_)))) + _%table103754%_ + (##fx+ _%probe103775%_ '1) + _%value103752%_)) + (_%loop103772%_ + (let ((_%next-probe103797%_ + (fx+ _%start103768%_ + _%i103777%_ + (fx* _%i103777%_ _%i103777%_)))) (##fxmodulo - _%next-probe101595%_ - _%size101560%_)) - (##fx+ _%i101575%_ '1) - _%deleted101577%_)))))))))) + _%next-probe103797%_ + _%size103762%_)) + (##fx+ _%i103777%_ '1) + _%deleted103779%_)))))))))) (define __raw-table-update! - (lambda (_%tab101497%_ _%key101498%_ _%update101499%_ _%default101500%_) - (let ((_%table101502%_ (&raw-table-table _%tab101497%_)) - (_%seed101503%_ (&raw-table-seed _%tab101497%_)) - (_%hash101504%_ (&raw-table-hash _%tab101497%_)) - (_%test101505%_ (&raw-table-test _%tab101497%_))) - (let* ((_%h101507%_ - (fxxor (_%hash101504%_ _%key101498%_) _%seed101503%_)) - (_%size101510%_ (vector-length _%table101502%_)) - (_%entries101513%_ (##fxquotient _%size101510%_ '2)) - (_%start101516%_ + (lambda (_%tab103699%_ _%key103700%_ _%update103701%_ _%default103702%_) + (let ((_%table103704%_ (&raw-table-table _%tab103699%_)) + (_%seed103705%_ (&raw-table-seed _%tab103699%_)) + (_%hash103706%_ (&raw-table-hash _%tab103699%_)) + (_%test103707%_ (&raw-table-test _%tab103699%_))) + (let* ((_%h103709%_ + (fxxor (_%hash103706%_ _%key103700%_) _%seed103705%_)) + (_%size103712%_ (vector-length _%table103704%_)) + (_%entries103715%_ (##fxquotient _%size103712%_ '2)) + (_%start103718%_ (##fxarithmetic-shift-left - (##fxmodulo _%h101507%_ _%entries101513%_) + (##fxmodulo _%h103709%_ _%entries103715%_) '1))) - (let _%loop101520%_ ((_%probe101523%_ _%start101516%_) - (_%i101525%_ '1) - (_%deleted101527%_ '#f)) - (let ((_%k101530%_ (vector-ref _%table101502%_ _%probe101523%_))) - (if (eq? _%k101530%_ (macro-unused-obj)) - (if _%deleted101527%_ + (let _%loop103722%_ ((_%probe103725%_ _%start103718%_) + (_%i103727%_ '1) + (_%deleted103729%_ '#f)) + (let ((_%k103732%_ (vector-ref _%table103704%_ _%probe103725%_))) + (if (eq? _%k103732%_ (macro-unused-obj)) + (if _%deleted103729%_ (begin (vector-set! - _%table101502%_ - _%deleted101527%_ - _%key101498%_) + _%table103704%_ + _%deleted103729%_ + _%key103700%_) (vector-set! - _%table101502%_ - (##fx+ _%deleted101527%_ '1) - (_%update101499%_ _%default101500%_)) + _%table103704%_ + (##fx+ _%deleted103729%_ '1) + (_%update103701%_ _%default103702%_)) ((lambda () (&raw-table-count-set! - _%tab101497%_ - (##fx+ (&raw-table-count _%tab101497%_) '1))))) + _%tab103699%_ + (##fx+ (&raw-table-count _%tab103699%_) '1))))) (begin (vector-set! - _%table101502%_ - _%probe101523%_ - _%key101498%_) + _%table103704%_ + _%probe103725%_ + _%key103700%_) (vector-set! - _%table101502%_ - (##fx+ _%probe101523%_ '1) - (_%update101499%_ _%default101500%_)) + _%table103704%_ + (##fx+ _%probe103725%_ '1) + (_%update103701%_ _%default103702%_)) ((lambda () (&raw-table-free-set! - _%tab101497%_ - (##fx- (&raw-table-free _%tab101497%_) '1)) + _%tab103699%_ + (##fx- (&raw-table-free _%tab103699%_) '1)) (&raw-table-count-set! - _%tab101497%_ - (##fx+ (&raw-table-count _%tab101497%_) '1)))))) - (if (eq? _%k101530%_ (macro-deleted-obj)) - (_%loop101520%_ - (let ((_%next-probe101537%_ - (fx+ _%start101516%_ - _%i101525%_ - (fx* _%i101525%_ _%i101525%_)))) - (##fxmodulo _%next-probe101537%_ _%size101510%_)) - (##fx+ _%i101525%_ '1) - (let ((_%$e101540%_ _%deleted101527%_)) - (if _%$e101540%_ _%$e101540%_ _%probe101523%_))) - (if (_%test101505%_ _%key101498%_ _%k101530%_) + _%tab103699%_ + (##fx+ (&raw-table-count _%tab103699%_) '1)))))) + (if (eq? _%k103732%_ (macro-deleted-obj)) + (_%loop103722%_ + (let ((_%next-probe103739%_ + (fx+ _%start103718%_ + _%i103727%_ + (fx* _%i103727%_ _%i103727%_)))) + (##fxmodulo _%next-probe103739%_ _%size103712%_)) + (##fx+ _%i103727%_ '1) + (let ((_%$e103742%_ _%deleted103729%_)) + (if _%$e103742%_ _%$e103742%_ _%probe103725%_))) + (if (_%test103707%_ _%key103700%_ _%k103732%_) (let () (vector-set! - _%table101502%_ - _%probe101523%_ - _%key101498%_) + _%table103704%_ + _%probe103725%_ + _%key103700%_) (vector-set! - _%table101502%_ - (##fx+ _%probe101523%_ '1) - (_%update101499%_ + _%table103704%_ + (##fx+ _%probe103725%_ '1) + (_%update103701%_ (vector-ref - _%table101502%_ - (##fx+ _%probe101523%_ '1))))) - (_%loop101520%_ - (let ((_%next-probe101545%_ - (fx+ _%start101516%_ - _%i101525%_ - (fx* _%i101525%_ _%i101525%_)))) + _%table103704%_ + (##fx+ _%probe103725%_ '1))))) + (_%loop103722%_ + (let ((_%next-probe103747%_ + (fx+ _%start103718%_ + _%i103727%_ + (fx* _%i103727%_ _%i103727%_)))) (##fxmodulo - _%next-probe101545%_ - _%size101510%_)) - (##fx+ _%i101525%_ '1) - _%deleted101527%_)))))))))) + _%next-probe103747%_ + _%size103712%_)) + (##fx+ _%i103727%_ '1) + _%deleted103729%_)))))))))) (define __raw-table-rehash! - (lambda (_%tab101478%_) - (let* ((_%old-table101480%_ (&raw-table-table _%tab101478%_)) - (_%old-size101482%_ (vector-length _%old-table101480%_)) - (_%new-size101484%_ - (if (##fx< (&raw-table-count _%tab101478%_) - (##fxquotient _%old-size101482%_ '4)) - (vector-length _%old-table101480%_) - (##fx* '2 (vector-length _%old-table101480%_)))) - (_%new-table101486%_ - (##make-vector _%new-size101484%_ (macro-unused-obj)))) - (&raw-table-table-set! _%tab101478%_ _%new-table101486%_) - (&raw-table-count-set! _%tab101478%_ '0) + (lambda (_%tab103680%_) + (let* ((_%old-table103682%_ (&raw-table-table _%tab103680%_)) + (_%old-size103684%_ (vector-length _%old-table103682%_)) + (_%new-size103686%_ + (if (##fx< (&raw-table-count _%tab103680%_) + (##fxquotient _%old-size103684%_ '4)) + (vector-length _%old-table103682%_) + (##fx* '2 (vector-length _%old-table103682%_)))) + (_%new-table103688%_ + (##make-vector _%new-size103686%_ (macro-unused-obj)))) + (&raw-table-table-set! _%tab103680%_ _%new-table103688%_) + (&raw-table-count-set! _%tab103680%_ '0) (&raw-table-free-set! - _%tab101478%_ - (##fxquotient _%new-size101484%_ '2)) - (let _%lp101489%_ ((_%i101491%_ '0)) - (if (##fx< _%i101491%_ _%old-size101482%_) + _%tab103680%_ + (##fxquotient _%new-size103686%_ '2)) + (let _%lp103691%_ ((_%i103693%_ '0)) + (if (##fx< _%i103693%_ _%old-size103684%_) (begin - (let ((_%key101493%_ - (vector-ref _%old-table101480%_ _%i101491%_))) - (if (if (eq? _%key101493%_ (macro-unused-obj)) + (let ((_%key103695%_ + (vector-ref _%old-table103682%_ _%i103693%_))) + (if (if (eq? _%key103695%_ (macro-unused-obj)) '#f - (not (eq? _%key101493%_ (macro-deleted-obj)))) - (let ((_%value101495%_ + (not (eq? _%key103695%_ (macro-deleted-obj)))) + (let ((_%value103697%_ (vector-ref - _%old-table101480%_ - (##fx+ _%i101491%_ '1)))) + _%old-table103682%_ + (##fx+ _%i103693%_ '1)))) (__raw-table-set! - _%tab101478%_ - _%key101493%_ - _%value101495%_)) + _%tab103680%_ + _%key103695%_ + _%value103697%_)) '#!void)) - (_%lp101489%_ (##fx+ _%i101491%_ '2))) + (_%lp103691%_ (##fx+ _%i103693%_ '2))) '#!void))))) (define eq-hash - (lambda (_%obj101470%_) - (let ((_%t101472%_ (##type _%obj101470%_))) - (if (##fx= (##fxand _%t101472%_ '1) '0) - (fxand (##type-cast _%obj101470%_ (macro-type-fixnum)) + (lambda (_%obj103672%_) + (let ((_%t103674%_ (##type _%obj103672%_))) + (if (##fx= (##fxand _%t103674%_ '1) '0) + (fxand (##type-cast _%obj103672%_ (macro-type-fixnum)) (macro-max-fixnum32)) - (if (symbolic? _%obj101470%_) - (##symbol-hash _%obj101470%_) - (if (procedure? _%obj101470%_) - (procedure-hash _%obj101470%_) - (fxand (__eq-hash _%obj101470%_) + (if (symbolic? _%obj103672%_) + (##symbol-hash _%obj103672%_) + (if (procedure? _%obj103672%_) + (procedure-hash _%obj103672%_) + (fxand (__eq-hash _%obj103672%_) (macro-max-fixnum32)))))))) (define procedure-hash - (lambda (_%obj101466%_) - (let ((_%h101468%_ - (if (##closure? _%obj101466%_) - (__eq-hash _%obj101466%_) - (##type-cast _%obj101466%_ '0)))) - (fxand _%h101468%_ (macro-max-fixnum32))))) + (lambda (_%obj103668%_) + (let ((_%h103670%_ + (if (##closure? _%obj103668%_) + (__eq-hash _%obj103668%_) + (##type-cast _%obj103668%_ '0)))) + (fxand _%h103670%_ (macro-max-fixnum32))))) (define __eq-hash - (lambda (_%obj101463%_) + (lambda (_%obj103665%_) (declare (not interrupts-enabled)) - (__object->eq-hash _%obj101463%_))) + (__object->eq-hash _%obj103665%_))) (define eqv-hash - (lambda (_%obj101453%_) - (letrec ((_%combine101455%_ - (lambda (_%a101460%_ _%b101461%_) - (fxand (##fx* (##fx+ _%a101460%_ + (lambda (_%obj103655%_) + (letrec ((_%combine103657%_ + (lambda (_%a103662%_ _%b103663%_) + (fxand (##fx* (##fx+ _%a103662%_ (fxarithmetic-shift-left - _%b101461%_ + _%b103663%_ '1)) '331804471) (macro-max-fixnum32)))) - (_%hash101456%_ - (lambda (_%obj101458%_) + (_%hash103658%_ + (lambda (_%obj103660%_) (macro-number-dispatch - _%obj101458%_ - (eq-hash _%obj101458%_) - (fxand _%obj101458%_ (macro-max-fixnum32)) - (modulo _%obj101458%_ '331804481) - (_%combine101455%_ - (_%hash101456%_ (macro-ratnum-numerator _%obj101458%_)) - (_%hash101456%_ - (macro-ratnum-denominator _%obj101458%_))) - (_%combine101455%_ - (##u16vector-ref _%obj101458%_ '0) - (_%combine101455%_ - (##u16vector-ref _%obj101458%_ '1) - (_%combine101455%_ - (##u16vector-ref _%obj101458%_ '2) - (##u16vector-ref _%obj101458%_ '3)))) - (_%combine101455%_ - (_%hash101456%_ (macro-cpxnum-real _%obj101458%_)) - (_%hash101456%_ (macro-cpxnum-imag _%obj101458%_))))))) - (_%hash101456%_ _%obj101453%_)))) + _%obj103660%_ + (eq-hash _%obj103660%_) + (fxand _%obj103660%_ (macro-max-fixnum32)) + (modulo _%obj103660%_ '331804481) + (_%combine103657%_ + (_%hash103658%_ (macro-ratnum-numerator _%obj103660%_)) + (_%hash103658%_ + (macro-ratnum-denominator _%obj103660%_))) + (_%combine103657%_ + (##u16vector-ref _%obj103660%_ '0) + (_%combine103657%_ + (##u16vector-ref _%obj103660%_ '1) + (_%combine103657%_ + (##u16vector-ref _%obj103660%_ '2) + (##u16vector-ref _%obj103660%_ '3)))) + (_%combine103657%_ + (_%hash103658%_ (macro-cpxnum-real _%obj103660%_)) + (_%hash103658%_ (macro-cpxnum-imag _%obj103660%_))))))) + (_%hash103658%_ _%obj103655%_)))) (define symbolic? - (lambda (_%obj101448%_) - (let ((_%$e101450%_ (symbol? _%obj101448%_))) - (if _%$e101450%_ _%$e101450%_ (keyword? _%obj101448%_))))) + (lambda (_%obj103650%_) + (let ((_%$e103652%_ (symbol? _%obj103650%_))) + (if _%$e103652%_ _%$e103652%_ (keyword? _%obj103650%_))))) (define symbolic-hash - (lambda (_%obj101446%_) (##symbol-hash _%obj101446%_))) + (lambda (_%obj103648%_) (##symbol-hash _%obj103648%_))) (define string-hash - (lambda (_%obj101444%_) (##string=?-hash _%obj101444%_))) + (lambda (_%obj103646%_) (##string=?-hash _%obj103646%_))) (define immediate-hash - (lambda (_%obj101442%_) (##type-cast _%obj101442%_ (macro-type-fixnum)))) + (lambda (_%obj103644%_) (##type-cast _%obj103644%_ (macro-type-fixnum)))) (define make-eq-table__% - (lambda (_%size-hint101423%_ _%seed101425%_) - (make-raw-table__% _%size-hint101423%_ eq-hash eq? _%seed101425%_))) + (lambda (_%size-hint103626%_ _%seed103627%_) + (make-raw-table__1 _%size-hint103626%_ eq-hash eq? _%seed103627%_))) (define make-eq-table__0 (lambda () - (let* ((_%size-hint101431%_ '#f) (_%seed101433%_ '0)) - (make-eq-table__% _%size-hint101431%_ _%seed101433%_)))) + (let* ((_%size-hint103633%_ '#f) (_%seed103635%_ '0)) + (make-eq-table__% _%size-hint103633%_ _%seed103635%_)))) (define make-eq-table__1 - (lambda (_%size-hint101435%_) - (let ((_%seed101437%_ '0)) - (make-eq-table__% _%size-hint101435%_ _%seed101437%_)))) + (lambda (_%size-hint103637%_) + (let ((_%seed103639%_ '0)) + (make-eq-table__% _%size-hint103637%_ _%seed103639%_)))) (define make-eq-table - (lambda _g101778_ - (let ((_g101779_ (##length _g101778_))) - (cond ((##fx= _g101779_ 0) (apply make-eq-table__0 _g101778_)) - ((##fx= _g101779_ 1) (apply make-eq-table__1 _g101778_)) - ((##fx= _g101779_ 2) (apply make-eq-table__% _g101778_)) + (lambda _g104229_ + (let ((_g104230_ (##length _g104229_))) + (cond ((##fx= _g104230_ 0) (apply make-eq-table__0 _g104229_)) + ((##fx= _g104230_ 1) (apply make-eq-table__1 _g104229_)) + ((##fx= _g104230_ 2) (apply make-eq-table__% _g104229_)) (else (##raise-wrong-number-of-arguments-exception make-eq-table - _g101778_)))))) + _g104229_)))))) + (define make-eq-table/lock__% + (lambda (_%size-hint103606%_ _%seed103608%_) + (make-raw-table/lock__% + _%size-hint103606%_ + eq-hash + eq? + _%seed103608%_))) + (define make-eq-table/lock__0 + (lambda () + (let* ((_%size-hint103614%_ '#f) (_%seed103616%_ '0)) + (make-eq-table/lock__% _%size-hint103614%_ _%seed103616%_)))) + (define make-eq-table/lock__1 + (lambda (_%size-hint103618%_) + (let ((_%seed103620%_ '0)) + (make-eq-table/lock__% _%size-hint103618%_ _%seed103620%_)))) + (define make-eq-table/lock + (lambda _g104231_ + (let ((_g104232_ (##length _g104231_))) + (cond ((##fx= _g104232_ 0) (apply make-eq-table/lock__0 _g104231_)) + ((##fx= _g104232_ 1) (apply make-eq-table/lock__1 _g104231_)) + ((##fx= _g104232_ 2) (apply make-eq-table/lock__% _g104231_)) + (else + (##raise-wrong-number-of-arguments-exception + make-eq-table/lock + _g104231_)))))) (define eq-table-ref - (lambda (_%tab101376%_ _%key101377%_ _%default101378%_) - (let ((_%table101380%_ (&raw-table-table _%tab101376%_)) - (_%seed101381%_ (&raw-table-seed _%tab101376%_))) - (let* ((_%h101383%_ (fxxor (eq-hash _%key101377%_) _%seed101381%_)) - (_%size101386%_ (vector-length _%table101380%_)) - (_%entries101389%_ (##fxquotient _%size101386%_ '2)) - (_%start101392%_ + (lambda (_%tab103559%_ _%key103560%_ _%default103561%_) + (let ((_%table103563%_ (&raw-table-table _%tab103559%_)) + (_%seed103564%_ (&raw-table-seed _%tab103559%_))) + (let* ((_%h103566%_ (fxxor (eq-hash _%key103560%_) _%seed103564%_)) + (_%size103569%_ (vector-length _%table103563%_)) + (_%entries103572%_ (##fxquotient _%size103569%_ '2)) + (_%start103575%_ (##fxarithmetic-shift-left - (##fxmodulo _%h101383%_ _%entries101389%_) + (##fxmodulo _%h103566%_ _%entries103572%_) '1))) - (let _%loop101396%_ ((_%probe101399%_ _%start101392%_) - (_%i101401%_ '1) - (_%deleted101403%_ '#f)) - (let ((_%k101406%_ (vector-ref _%table101380%_ _%probe101399%_))) - (if (eq? _%k101406%_ (macro-unused-obj)) - _%default101378%_ - (if (eq? _%k101406%_ (macro-deleted-obj)) - (_%loop101396%_ - (let ((_%next-probe101411%_ - (fx+ _%start101392%_ - _%i101401%_ - (fx* _%i101401%_ _%i101401%_)))) - (##fxmodulo _%next-probe101411%_ _%size101386%_)) - (##fx+ _%i101401%_ '1) - (let ((_%$e101414%_ _%deleted101403%_)) - (if _%$e101414%_ _%$e101414%_ _%probe101399%_))) - (if (eq? _%key101377%_ _%k101406%_) + (let _%loop103579%_ ((_%probe103582%_ _%start103575%_) + (_%i103584%_ '1) + (_%deleted103586%_ '#f)) + (let ((_%k103589%_ (vector-ref _%table103563%_ _%probe103582%_))) + (if (eq? _%k103589%_ (macro-unused-obj)) + _%default103561%_ + (if (eq? _%k103589%_ (macro-deleted-obj)) + (_%loop103579%_ + (let ((_%next-probe103594%_ + (fx+ _%start103575%_ + _%i103584%_ + (fx* _%i103584%_ _%i103584%_)))) + (##fxmodulo _%next-probe103594%_ _%size103569%_)) + (##fx+ _%i103584%_ '1) + (let ((_%$e103597%_ _%deleted103586%_)) + (if _%$e103597%_ _%$e103597%_ _%probe103582%_))) + (if (eq? _%key103560%_ _%k103589%_) (vector-ref - _%table101380%_ - (##fx+ _%probe101399%_ '1)) - (_%loop101396%_ - (let ((_%next-probe101419%_ - (fx+ _%start101392%_ - _%i101401%_ - (fx* _%i101401%_ _%i101401%_)))) + _%table103563%_ + (##fx+ _%probe103582%_ '1)) + (_%loop103579%_ + (let ((_%next-probe103602%_ + (fx+ _%start103575%_ + _%i103584%_ + (fx* _%i103584%_ _%i103584%_)))) (##fxmodulo - _%next-probe101419%_ - _%size101386%_)) - (##fx+ _%i101401%_ '1) - _%deleted101403%_)))))))))) - (define eq-table-set! - (lambda (_%tab101372%_ _%key101373%_ _%value101374%_) - (if (##fx< (&raw-table-free _%tab101372%_) - (##fxquotient - (vector-length (&raw-table-table _%tab101372%_)) - '4)) - (__raw-table-rehash! _%tab101372%_) - '#!void) - (__eq-table-set! _%tab101372%_ _%key101373%_ _%value101374%_))) + _%next-probe103602%_ + _%size103569%_)) + (##fx+ _%i103584%_ '1) + _%deleted103586%_)))))))))) + (define eq-table-ref/lock + (lambda (_%tab103532%_ _%key103533%_ _%default103534%_) + (let ((_%lock103536%_ (&raw-table-lock _%tab103532%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again103541%_ ((_%spin103544%_ '0)) + (if (##fx= (##vector-cas! _%lock103536%_ '0 '1 '0) '0) + (##vector-set! _%lock103536%_ '1 (current-thread)) + (if (##fx< _%spin103544%_ '10) + (let () + (##thread-yield!) + (_%again103541%_ (##fx+ _%spin103544%_ '1))) + (let ((_%owner103550%_ (##vector-ref _%lock103536%_ '1))) + (if (eq? _%owner103550%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner103550%_) + (let () (##thread-yield!) (_%again103541%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r103556%_ + (eq-table-ref _%tab103532%_ _%key103533%_ _%default103534%_))) + (##vector-set! _%lock103536%_ '1 '#f) + (##vector-cas! _%lock103536%_ '0 '0 '1) + _%$r103556%_)))) (define __eq-table-set! - (lambda (_%tab101323%_ _%key101324%_ _%value101325%_) - (let ((_%table101328%_ (&raw-table-table _%tab101323%_)) - (_%seed101329%_ (&raw-table-seed _%tab101323%_))) - (let* ((_%h101331%_ (fxxor (eq-hash _%key101324%_) _%seed101329%_)) - (_%size101334%_ (vector-length _%table101328%_)) - (_%entries101337%_ (##fxquotient _%size101334%_ '2)) - (_%start101340%_ + (lambda (_%tab103484%_ _%key103485%_ _%value103486%_) + (let ((_%table103488%_ (&raw-table-table _%tab103484%_)) + (_%seed103489%_ (&raw-table-seed _%tab103484%_))) + (let* ((_%h103491%_ (fxxor (eq-hash _%key103485%_) _%seed103489%_)) + (_%size103494%_ (vector-length _%table103488%_)) + (_%entries103497%_ (##fxquotient _%size103494%_ '2)) + (_%start103500%_ (##fxarithmetic-shift-left - (##fxmodulo _%h101331%_ _%entries101337%_) + (##fxmodulo _%h103491%_ _%entries103497%_) '1))) - (let _%loop101344%_ ((_%probe101347%_ _%start101340%_) - (_%i101349%_ '1) - (_%deleted101351%_ '#f)) - (let ((_%k101354%_ (vector-ref _%table101328%_ _%probe101347%_))) - (if (eq? _%k101354%_ (macro-unused-obj)) - (if _%deleted101351%_ + (let _%loop103504%_ ((_%probe103507%_ _%start103500%_) + (_%i103509%_ '1) + (_%deleted103511%_ '#f)) + (let ((_%k103514%_ (vector-ref _%table103488%_ _%probe103507%_))) + (if (eq? _%k103514%_ (macro-unused-obj)) + (if _%deleted103511%_ (begin (vector-set! - _%table101328%_ - _%deleted101351%_ - _%key101324%_) + _%table103488%_ + _%deleted103511%_ + _%key103485%_) (vector-set! - _%table101328%_ - (##fx+ _%deleted101351%_ '1) - _%value101325%_) + _%table103488%_ + (##fx+ _%deleted103511%_ '1) + _%value103486%_) ((lambda () (&raw-table-count-set! - _%tab101323%_ - (##fx+ (&raw-table-count _%tab101323%_) '1))))) + _%tab103484%_ + (##fx+ (&raw-table-count _%tab103484%_) '1))))) (begin (vector-set! - _%table101328%_ - _%probe101347%_ - _%key101324%_) + _%table103488%_ + _%probe103507%_ + _%key103485%_) (vector-set! - _%table101328%_ - (##fx+ _%probe101347%_ '1) - _%value101325%_) + _%table103488%_ + (##fx+ _%probe103507%_ '1) + _%value103486%_) ((lambda () (&raw-table-free-set! - _%tab101323%_ - (##fx- (&raw-table-free _%tab101323%_) '1)) + _%tab103484%_ + (##fx- (&raw-table-free _%tab103484%_) '1)) (&raw-table-count-set! - _%tab101323%_ - (##fx+ (&raw-table-count _%tab101323%_) '1)))))) - (if (eq? _%k101354%_ (macro-deleted-obj)) - (_%loop101344%_ - (let ((_%next-probe101361%_ - (fx+ _%start101340%_ - _%i101349%_ - (fx* _%i101349%_ _%i101349%_)))) - (##fxmodulo _%next-probe101361%_ _%size101334%_)) - (##fx+ _%i101349%_ '1) - (let ((_%$e101364%_ _%deleted101351%_)) - (if _%$e101364%_ _%$e101364%_ _%probe101347%_))) - (if (eq? _%key101324%_ _%k101354%_) + _%tab103484%_ + (##fx+ (&raw-table-count _%tab103484%_) '1)))))) + (if (eq? _%k103514%_ (macro-deleted-obj)) + (_%loop103504%_ + (let ((_%next-probe103521%_ + (fx+ _%start103500%_ + _%i103509%_ + (fx* _%i103509%_ _%i103509%_)))) + (##fxmodulo _%next-probe103521%_ _%size103494%_)) + (##fx+ _%i103509%_ '1) + (let ((_%$e103524%_ _%deleted103511%_)) + (if _%$e103524%_ _%$e103524%_ _%probe103507%_))) + (if (eq? _%key103485%_ _%k103514%_) (let () (vector-set! - _%table101328%_ - _%probe101347%_ - _%key101324%_) + _%table103488%_ + _%probe103507%_ + _%key103485%_) (vector-set! - _%table101328%_ - (##fx+ _%probe101347%_ '1) - _%value101325%_)) - (_%loop101344%_ - (let ((_%next-probe101369%_ - (fx+ _%start101340%_ - _%i101349%_ - (fx* _%i101349%_ _%i101349%_)))) + _%table103488%_ + (##fx+ _%probe103507%_ '1) + _%value103486%_)) + (_%loop103504%_ + (let ((_%next-probe103529%_ + (fx+ _%start103500%_ + _%i103509%_ + (fx* _%i103509%_ _%i103509%_)))) (##fxmodulo - _%next-probe101369%_ - _%size101334%_)) - (##fx+ _%i101349%_ '1) - _%deleted101351%_)))))))))) - (define eq-table-update! - (lambda (_%tab101318%_ - _%key101319%_ - _%eq-table-update!101320%_ - _%default101321%_) - (if (##fx< (&raw-table-free _%tab101318%_) + _%next-probe103529%_ + _%size103494%_)) + (##fx+ _%i103509%_ '1) + _%deleted103511%_)))))))))) + (define eq-table-set! + (lambda (_%tab103480%_ _%key103481%_ _%value103482%_) + (if (##fx< (&raw-table-free _%tab103480%_) (##fxquotient - (vector-length (&raw-table-table _%tab101318%_)) + (vector-length (&raw-table-table _%tab103480%_)) '4)) - (__raw-table-rehash! _%tab101318%_) + (__raw-table-rehash! _%tab103480%_) '#!void) - (__eq-table-update! - _%tab101318%_ - _%key101319%_ - _%eq-table-update!101320%_ - _%default101321%_))) + (__eq-table-set! _%tab103480%_ _%key103481%_ _%value103482%_))) + (define eq-table-set!/lock + (lambda (_%tab103452%_ _%key103453%_ _%value103454%_) + (let ((_%lock103457%_ (&raw-table-lock _%tab103452%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again103462%_ ((_%spin103465%_ '0)) + (if (##fx= (##vector-cas! _%lock103457%_ '0 '1 '0) '0) + (##vector-set! _%lock103457%_ '1 (current-thread)) + (if (##fx< _%spin103465%_ '10) + (let () + (##thread-yield!) + (_%again103462%_ (##fx+ _%spin103465%_ '1))) + (let ((_%owner103471%_ (##vector-ref _%lock103457%_ '1))) + (if (eq? _%owner103471%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner103471%_) + (let () (##thread-yield!) (_%again103462%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r103477%_ + (eq-table-set! _%tab103452%_ _%key103453%_ _%value103454%_))) + (##vector-set! _%lock103457%_ '1 '#f) + (##vector-cas! _%lock103457%_ '0 '0 '1) + _%$r103477%_)))) (define __eq-table-update! - (lambda (_%tab101268%_ - _%key101269%_ - _%eq-table-update!101270%_ - _%default101271%_) - (let ((_%table101274%_ (&raw-table-table _%tab101268%_)) - (_%seed101275%_ (&raw-table-seed _%tab101268%_))) - (let* ((_%h101277%_ (fxxor (eq-hash _%key101269%_) _%seed101275%_)) - (_%size101280%_ (vector-length _%table101274%_)) - (_%entries101283%_ (##fxquotient _%size101280%_ '2)) - (_%start101286%_ + (lambda (_%tab103403%_ + _%key103404%_ + _%eq-table-update!103405%_ + _%default103406%_) + (let ((_%table103408%_ (&raw-table-table _%tab103403%_)) + (_%seed103409%_ (&raw-table-seed _%tab103403%_))) + (let* ((_%h103411%_ (fxxor (eq-hash _%key103404%_) _%seed103409%_)) + (_%size103414%_ (vector-length _%table103408%_)) + (_%entries103417%_ (##fxquotient _%size103414%_ '2)) + (_%start103420%_ (##fxarithmetic-shift-left - (##fxmodulo _%h101277%_ _%entries101283%_) + (##fxmodulo _%h103411%_ _%entries103417%_) '1))) - (let _%loop101290%_ ((_%probe101293%_ _%start101286%_) - (_%i101295%_ '1) - (_%deleted101297%_ '#f)) - (let ((_%k101300%_ (vector-ref _%table101274%_ _%probe101293%_))) - (if (eq? _%k101300%_ (macro-unused-obj)) - (if _%deleted101297%_ + (let _%loop103424%_ ((_%probe103427%_ _%start103420%_) + (_%i103429%_ '1) + (_%deleted103431%_ '#f)) + (let ((_%k103434%_ (vector-ref _%table103408%_ _%probe103427%_))) + (if (eq? _%k103434%_ (macro-unused-obj)) + (if _%deleted103431%_ (begin (vector-set! - _%table101274%_ - _%deleted101297%_ - _%key101269%_) + _%table103408%_ + _%deleted103431%_ + _%key103404%_) (vector-set! - _%table101274%_ - (##fx+ _%deleted101297%_ '1) - (_%eq-table-update!101270%_ _%default101271%_)) + _%table103408%_ + (##fx+ _%deleted103431%_ '1) + (_%eq-table-update!103405%_ _%default103406%_)) ((lambda () (&raw-table-count-set! - _%tab101268%_ - (##fx+ (&raw-table-count _%tab101268%_) '1))))) + _%tab103403%_ + (##fx+ (&raw-table-count _%tab103403%_) '1))))) (begin (vector-set! - _%table101274%_ - _%probe101293%_ - _%key101269%_) + _%table103408%_ + _%probe103427%_ + _%key103404%_) (vector-set! - _%table101274%_ - (##fx+ _%probe101293%_ '1) - (_%eq-table-update!101270%_ _%default101271%_)) + _%table103408%_ + (##fx+ _%probe103427%_ '1) + (_%eq-table-update!103405%_ _%default103406%_)) ((lambda () (&raw-table-free-set! - _%tab101268%_ - (##fx- (&raw-table-free _%tab101268%_) '1)) + _%tab103403%_ + (##fx- (&raw-table-free _%tab103403%_) '1)) (&raw-table-count-set! - _%tab101268%_ - (##fx+ (&raw-table-count _%tab101268%_) '1)))))) - (if (eq? _%k101300%_ (macro-deleted-obj)) - (_%loop101290%_ - (let ((_%next-probe101307%_ - (fx+ _%start101286%_ - _%i101295%_ - (fx* _%i101295%_ _%i101295%_)))) - (##fxmodulo _%next-probe101307%_ _%size101280%_)) - (##fx+ _%i101295%_ '1) - (let ((_%$e101310%_ _%deleted101297%_)) - (if _%$e101310%_ _%$e101310%_ _%probe101293%_))) - (if (eq? _%key101269%_ _%k101300%_) + _%tab103403%_ + (##fx+ (&raw-table-count _%tab103403%_) '1)))))) + (if (eq? _%k103434%_ (macro-deleted-obj)) + (_%loop103424%_ + (let ((_%next-probe103441%_ + (fx+ _%start103420%_ + _%i103429%_ + (fx* _%i103429%_ _%i103429%_)))) + (##fxmodulo _%next-probe103441%_ _%size103414%_)) + (##fx+ _%i103429%_ '1) + (let ((_%$e103444%_ _%deleted103431%_)) + (if _%$e103444%_ _%$e103444%_ _%probe103427%_))) + (if (eq? _%key103404%_ _%k103434%_) (let () (vector-set! - _%table101274%_ - _%probe101293%_ - _%key101269%_) + _%table103408%_ + _%probe103427%_ + _%key103404%_) (vector-set! - _%table101274%_ - (##fx+ _%probe101293%_ '1) - (_%eq-table-update!101270%_ + _%table103408%_ + (##fx+ _%probe103427%_ '1) + (_%eq-table-update!103405%_ (vector-ref - _%table101274%_ - (##fx+ _%probe101293%_ '1))))) - (_%loop101290%_ - (let ((_%next-probe101315%_ - (fx+ _%start101286%_ - _%i101295%_ - (fx* _%i101295%_ _%i101295%_)))) + _%table103408%_ + (##fx+ _%probe103427%_ '1))))) + (_%loop103424%_ + (let ((_%next-probe103449%_ + (fx+ _%start103420%_ + _%i103429%_ + (fx* _%i103429%_ _%i103429%_)))) (##fxmodulo - _%next-probe101315%_ - _%size101280%_)) - (##fx+ _%i101295%_ '1) - _%deleted101297%_)))))))))) + _%next-probe103449%_ + _%size103414%_)) + (##fx+ _%i103429%_ '1) + _%deleted103431%_)))))))))) + (define eq-table-update! + (lambda (_%tab103398%_ + _%key103399%_ + _%eq-table-update!103400%_ + _%default103401%_) + (if (##fx< (&raw-table-free _%tab103398%_) + (##fxquotient + (vector-length (&raw-table-table _%tab103398%_)) + '4)) + (__raw-table-rehash! _%tab103398%_) + '#!void) + (__eq-table-update! + _%tab103398%_ + _%key103399%_ + _%eq-table-update!103400%_ + _%default103401%_))) + (define eq-table-update!/lock + (lambda (_%tab103369%_ + _%key103370%_ + _%eq-table-update!103371%_ + _%default103372%_) + (let ((_%lock103375%_ (&raw-table-lock _%tab103369%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again103380%_ ((_%spin103383%_ '0)) + (if (##fx= (##vector-cas! _%lock103375%_ '0 '1 '0) '0) + (##vector-set! _%lock103375%_ '1 (current-thread)) + (if (##fx< _%spin103383%_ '10) + (let () + (##thread-yield!) + (_%again103380%_ (##fx+ _%spin103383%_ '1))) + (let ((_%owner103389%_ (##vector-ref _%lock103375%_ '1))) + (if (eq? _%owner103389%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner103389%_) + (let () (##thread-yield!) (_%again103380%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r103395%_ + (_%eq-table-update!103371%_ + _%tab103369%_ + _%key103370%_ + _%eq-table-update!103371%_ + _%default103372%_))) + (##vector-set! _%lock103375%_ '1 '#f) + (##vector-cas! _%lock103375%_ '0 '0 '1) + _%$r103395%_)))) (define eq-table-delete! - (lambda (_%tab101223%_ _%key101225%_) - (let ((_%table101228%_ (&raw-table-table _%tab101223%_)) - (_%seed101230%_ (&raw-table-seed _%tab101223%_))) - (let* ((_%h101233%_ (fxxor (eq-hash _%key101225%_) _%seed101230%_)) - (_%size101236%_ (vector-length _%table101228%_)) - (_%entries101239%_ (##fxquotient _%size101236%_ '2)) - (_%start101242%_ + (lambda (_%tab103326%_ _%key103327%_) + (let ((_%table103329%_ (&raw-table-table _%tab103326%_)) + (_%seed103331%_ (&raw-table-seed _%tab103326%_))) + (let* ((_%h103334%_ (fxxor (eq-hash _%key103327%_) _%seed103331%_)) + (_%size103337%_ (vector-length _%table103329%_)) + (_%entries103340%_ (##fxquotient _%size103337%_ '2)) + (_%start103343%_ (##fxarithmetic-shift-left - (##fxmodulo _%h101233%_ _%entries101239%_) + (##fxmodulo _%h103334%_ _%entries103340%_) '1))) - (let _%loop101246%_ ((_%probe101249%_ _%start101242%_) - (_%i101251%_ '1)) - (let ((_%k101254%_ (vector-ref _%table101228%_ _%probe101249%_))) - (if (eq? _%k101254%_ (macro-unused-obj)) + (let _%loop103347%_ ((_%probe103350%_ _%start103343%_) + (_%i103352%_ '1)) + (let ((_%k103355%_ (vector-ref _%table103329%_ _%probe103350%_))) + (if (eq? _%k103355%_ (macro-unused-obj)) '#!void - (if (eq? _%k101254%_ (macro-deleted-obj)) - (_%loop101246%_ - (let ((_%next-probe101259%_ - (fx+ _%start101242%_ - _%i101251%_ - (fx* _%i101251%_ _%i101251%_)))) - (##fxmodulo _%next-probe101259%_ _%size101236%_)) - (##fx+ _%i101251%_ '1)) - (if (eq? _%key101225%_ _%k101254%_) + (if (eq? _%k103355%_ (macro-deleted-obj)) + (_%loop103347%_ + (let ((_%next-probe103360%_ + (fx+ _%start103343%_ + _%i103352%_ + (fx* _%i103352%_ _%i103352%_)))) + (##fxmodulo _%next-probe103360%_ _%size103337%_)) + (##fx+ _%i103352%_ '1)) + (if (eq? _%key103327%_ _%k103355%_) (let () (vector-set! - _%table101228%_ - _%probe101249%_ + _%table103329%_ + _%probe103350%_ (macro-deleted-obj)) (vector-set! - _%table101228%_ - (##fx+ _%probe101249%_ '1) + _%table103329%_ + (##fx+ _%probe103350%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab101223%_ - (##fx- (&raw-table-count _%tab101223%_) + _%tab103326%_ + (##fx- (&raw-table-count _%tab103326%_) '1))))) - (_%loop101246%_ - (let ((_%next-probe101265%_ - (fx+ _%start101242%_ - _%i101251%_ - (fx* _%i101251%_ _%i101251%_)))) + (_%loop103347%_ + (let ((_%next-probe103366%_ + (fx+ _%start103343%_ + _%i103352%_ + (fx* _%i103352%_ _%i103352%_)))) (##fxmodulo - _%next-probe101265%_ - _%size101236%_)) - (##fx+ _%i101251%_ '1))))))))))) + _%next-probe103366%_ + _%size103337%_)) + (##fx+ _%i103352%_ '1))))))))))) + (define eq-table-delete!/lock + (lambda (_%tab103298%_ _%key103300%_) + (let ((_%lock103303%_ (&raw-table-lock _%tab103298%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again103308%_ ((_%spin103311%_ '0)) + (if (##fx= (##vector-cas! _%lock103303%_ '0 '1 '0) '0) + (##vector-set! _%lock103303%_ '1 (current-thread)) + (if (##fx< _%spin103311%_ '10) + (let () + (##thread-yield!) + (_%again103308%_ (##fx+ _%spin103311%_ '1))) + (let ((_%owner103317%_ (##vector-ref _%lock103303%_ '1))) + (if (eq? _%owner103317%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner103317%_) + (let () (##thread-yield!) (_%again103308%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r103323%_ (eq-table-delete! _%tab103298%_ _%key103300%_))) + (##vector-set! _%lock103303%_ '1 '#f) + (##vector-cas! _%lock103303%_ '0 '0 '1) + _%$r103323%_)))) (define make-eqv-table__% - (lambda (_%size-hint101204%_ _%seed101206%_) - (make-raw-table__% _%size-hint101204%_ eqv-hash eqv? _%seed101206%_))) + (lambda (_%size-hint103280%_ _%seed103281%_) + (make-raw-table__1 _%size-hint103280%_ eqv-hash eqv? _%seed103281%_))) (define make-eqv-table__0 (lambda () - (let* ((_%size-hint101212%_ '#f) (_%seed101214%_ '0)) - (make-eqv-table__% _%size-hint101212%_ _%seed101214%_)))) + (let* ((_%size-hint103287%_ '#f) (_%seed103289%_ '0)) + (make-eqv-table__% _%size-hint103287%_ _%seed103289%_)))) (define make-eqv-table__1 - (lambda (_%size-hint101216%_) - (let ((_%seed101218%_ '0)) - (make-eqv-table__% _%size-hint101216%_ _%seed101218%_)))) + (lambda (_%size-hint103291%_) + (let ((_%seed103293%_ '0)) + (make-eqv-table__% _%size-hint103291%_ _%seed103293%_)))) (define make-eqv-table - (lambda _g101780_ - (let ((_g101781_ (##length _g101780_))) - (cond ((##fx= _g101781_ 0) (apply make-eqv-table__0 _g101780_)) - ((##fx= _g101781_ 1) (apply make-eqv-table__1 _g101780_)) - ((##fx= _g101781_ 2) (apply make-eqv-table__% _g101780_)) + (lambda _g104233_ + (let ((_g104234_ (##length _g104233_))) + (cond ((##fx= _g104234_ 0) (apply make-eqv-table__0 _g104233_)) + ((##fx= _g104234_ 1) (apply make-eqv-table__1 _g104233_)) + ((##fx= _g104234_ 2) (apply make-eqv-table__% _g104233_)) (else (##raise-wrong-number-of-arguments-exception make-eqv-table - _g101780_)))))) + _g104233_)))))) + (define make-eqv-table/lock__% + (lambda (_%size-hint103260%_ _%seed103262%_) + (make-raw-table/lock__% + _%size-hint103260%_ + eqv-hash + eqv? + _%seed103262%_))) + (define make-eqv-table/lock__0 + (lambda () + (let* ((_%size-hint103268%_ '#f) (_%seed103270%_ '0)) + (make-eqv-table/lock__% _%size-hint103268%_ _%seed103270%_)))) + (define make-eqv-table/lock__1 + (lambda (_%size-hint103272%_) + (let ((_%seed103274%_ '0)) + (make-eqv-table/lock__% _%size-hint103272%_ _%seed103274%_)))) + (define make-eqv-table/lock + (lambda _g104235_ + (let ((_g104236_ (##length _g104235_))) + (cond ((##fx= _g104236_ 0) (apply make-eqv-table/lock__0 _g104235_)) + ((##fx= _g104236_ 1) (apply make-eqv-table/lock__1 _g104235_)) + ((##fx= _g104236_ 2) (apply make-eqv-table/lock__% _g104235_)) + (else + (##raise-wrong-number-of-arguments-exception + make-eqv-table/lock + _g104235_)))))) (define eqv-table-ref - (lambda (_%tab101157%_ _%key101158%_ _%default101159%_) - (let ((_%table101161%_ (&raw-table-table _%tab101157%_)) - (_%seed101162%_ (&raw-table-seed _%tab101157%_))) - (let* ((_%h101164%_ (fxxor (eqv-hash _%key101158%_) _%seed101162%_)) - (_%size101167%_ (vector-length _%table101161%_)) - (_%entries101170%_ (##fxquotient _%size101167%_ '2)) - (_%start101173%_ + (lambda (_%tab103213%_ _%key103214%_ _%default103215%_) + (let ((_%table103217%_ (&raw-table-table _%tab103213%_)) + (_%seed103218%_ (&raw-table-seed _%tab103213%_))) + (let* ((_%h103220%_ (fxxor (eqv-hash _%key103214%_) _%seed103218%_)) + (_%size103223%_ (vector-length _%table103217%_)) + (_%entries103226%_ (##fxquotient _%size103223%_ '2)) + (_%start103229%_ (##fxarithmetic-shift-left - (##fxmodulo _%h101164%_ _%entries101170%_) + (##fxmodulo _%h103220%_ _%entries103226%_) '1))) - (let _%loop101177%_ ((_%probe101180%_ _%start101173%_) - (_%i101182%_ '1) - (_%deleted101184%_ '#f)) - (let ((_%k101187%_ (vector-ref _%table101161%_ _%probe101180%_))) - (if (eq? _%k101187%_ (macro-unused-obj)) - _%default101159%_ - (if (eq? _%k101187%_ (macro-deleted-obj)) - (_%loop101177%_ - (let ((_%next-probe101192%_ - (fx+ _%start101173%_ - _%i101182%_ - (fx* _%i101182%_ _%i101182%_)))) - (##fxmodulo _%next-probe101192%_ _%size101167%_)) - (##fx+ _%i101182%_ '1) - (let ((_%$e101195%_ _%deleted101184%_)) - (if _%$e101195%_ _%$e101195%_ _%probe101180%_))) - (if (eqv? _%key101158%_ _%k101187%_) + (let _%loop103233%_ ((_%probe103236%_ _%start103229%_) + (_%i103238%_ '1) + (_%deleted103240%_ '#f)) + (let ((_%k103243%_ (vector-ref _%table103217%_ _%probe103236%_))) + (if (eq? _%k103243%_ (macro-unused-obj)) + _%default103215%_ + (if (eq? _%k103243%_ (macro-deleted-obj)) + (_%loop103233%_ + (let ((_%next-probe103248%_ + (fx+ _%start103229%_ + _%i103238%_ + (fx* _%i103238%_ _%i103238%_)))) + (##fxmodulo _%next-probe103248%_ _%size103223%_)) + (##fx+ _%i103238%_ '1) + (let ((_%$e103251%_ _%deleted103240%_)) + (if _%$e103251%_ _%$e103251%_ _%probe103236%_))) + (if (eqv? _%key103214%_ _%k103243%_) (vector-ref - _%table101161%_ - (##fx+ _%probe101180%_ '1)) - (_%loop101177%_ - (let ((_%next-probe101200%_ - (fx+ _%start101173%_ - _%i101182%_ - (fx* _%i101182%_ _%i101182%_)))) + _%table103217%_ + (##fx+ _%probe103236%_ '1)) + (_%loop103233%_ + (let ((_%next-probe103256%_ + (fx+ _%start103229%_ + _%i103238%_ + (fx* _%i103238%_ _%i103238%_)))) (##fxmodulo - _%next-probe101200%_ - _%size101167%_)) - (##fx+ _%i101182%_ '1) - _%deleted101184%_)))))))))) - (define eqv-table-set! - (lambda (_%tab101153%_ _%key101154%_ _%value101155%_) - (if (##fx< (&raw-table-free _%tab101153%_) - (##fxquotient - (vector-length (&raw-table-table _%tab101153%_)) - '4)) - (__raw-table-rehash! _%tab101153%_) - '#!void) - (__eqv-table-set! _%tab101153%_ _%key101154%_ _%value101155%_))) + _%next-probe103256%_ + _%size103223%_)) + (##fx+ _%i103238%_ '1) + _%deleted103240%_)))))))))) + (define eqv-table-ref/lock + (lambda (_%tab103186%_ _%key103187%_ _%default103188%_) + (let ((_%lock103190%_ (&raw-table-lock _%tab103186%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again103195%_ ((_%spin103198%_ '0)) + (if (##fx= (##vector-cas! _%lock103190%_ '0 '1 '0) '0) + (##vector-set! _%lock103190%_ '1 (current-thread)) + (if (##fx< _%spin103198%_ '10) + (let () + (##thread-yield!) + (_%again103195%_ (##fx+ _%spin103198%_ '1))) + (let ((_%owner103204%_ (##vector-ref _%lock103190%_ '1))) + (if (eq? _%owner103204%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner103204%_) + (let () (##thread-yield!) (_%again103195%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r103210%_ + (eqv-table-ref + _%tab103186%_ + _%key103187%_ + _%default103188%_))) + (##vector-set! _%lock103190%_ '1 '#f) + (##vector-cas! _%lock103190%_ '0 '0 '1) + _%$r103210%_)))) (define __eqv-table-set! - (lambda (_%tab101104%_ _%key101105%_ _%value101106%_) - (let ((_%table101109%_ (&raw-table-table _%tab101104%_)) - (_%seed101110%_ (&raw-table-seed _%tab101104%_))) - (let* ((_%h101112%_ (fxxor (eqv-hash _%key101105%_) _%seed101110%_)) - (_%size101115%_ (vector-length _%table101109%_)) - (_%entries101118%_ (##fxquotient _%size101115%_ '2)) - (_%start101121%_ + (lambda (_%tab103138%_ _%key103139%_ _%value103140%_) + (let ((_%table103142%_ (&raw-table-table _%tab103138%_)) + (_%seed103143%_ (&raw-table-seed _%tab103138%_))) + (let* ((_%h103145%_ (fxxor (eqv-hash _%key103139%_) _%seed103143%_)) + (_%size103148%_ (vector-length _%table103142%_)) + (_%entries103151%_ (##fxquotient _%size103148%_ '2)) + (_%start103154%_ (##fxarithmetic-shift-left - (##fxmodulo _%h101112%_ _%entries101118%_) + (##fxmodulo _%h103145%_ _%entries103151%_) '1))) - (let _%loop101125%_ ((_%probe101128%_ _%start101121%_) - (_%i101130%_ '1) - (_%deleted101132%_ '#f)) - (let ((_%k101135%_ (vector-ref _%table101109%_ _%probe101128%_))) - (if (eq? _%k101135%_ (macro-unused-obj)) - (if _%deleted101132%_ + (let _%loop103158%_ ((_%probe103161%_ _%start103154%_) + (_%i103163%_ '1) + (_%deleted103165%_ '#f)) + (let ((_%k103168%_ (vector-ref _%table103142%_ _%probe103161%_))) + (if (eq? _%k103168%_ (macro-unused-obj)) + (if _%deleted103165%_ (begin (vector-set! - _%table101109%_ - _%deleted101132%_ - _%key101105%_) + _%table103142%_ + _%deleted103165%_ + _%key103139%_) (vector-set! - _%table101109%_ - (##fx+ _%deleted101132%_ '1) - _%value101106%_) + _%table103142%_ + (##fx+ _%deleted103165%_ '1) + _%value103140%_) ((lambda () (&raw-table-count-set! - _%tab101104%_ - (##fx+ (&raw-table-count _%tab101104%_) '1))))) + _%tab103138%_ + (##fx+ (&raw-table-count _%tab103138%_) '1))))) (begin (vector-set! - _%table101109%_ - _%probe101128%_ - _%key101105%_) + _%table103142%_ + _%probe103161%_ + _%key103139%_) (vector-set! - _%table101109%_ - (##fx+ _%probe101128%_ '1) - _%value101106%_) + _%table103142%_ + (##fx+ _%probe103161%_ '1) + _%value103140%_) ((lambda () (&raw-table-free-set! - _%tab101104%_ - (##fx- (&raw-table-free _%tab101104%_) '1)) + _%tab103138%_ + (##fx- (&raw-table-free _%tab103138%_) '1)) (&raw-table-count-set! - _%tab101104%_ - (##fx+ (&raw-table-count _%tab101104%_) '1)))))) - (if (eq? _%k101135%_ (macro-deleted-obj)) - (_%loop101125%_ - (let ((_%next-probe101142%_ - (fx+ _%start101121%_ - _%i101130%_ - (fx* _%i101130%_ _%i101130%_)))) - (##fxmodulo _%next-probe101142%_ _%size101115%_)) - (##fx+ _%i101130%_ '1) - (let ((_%$e101145%_ _%deleted101132%_)) - (if _%$e101145%_ _%$e101145%_ _%probe101128%_))) - (if (eqv? _%key101105%_ _%k101135%_) + _%tab103138%_ + (##fx+ (&raw-table-count _%tab103138%_) '1)))))) + (if (eq? _%k103168%_ (macro-deleted-obj)) + (_%loop103158%_ + (let ((_%next-probe103175%_ + (fx+ _%start103154%_ + _%i103163%_ + (fx* _%i103163%_ _%i103163%_)))) + (##fxmodulo _%next-probe103175%_ _%size103148%_)) + (##fx+ _%i103163%_ '1) + (let ((_%$e103178%_ _%deleted103165%_)) + (if _%$e103178%_ _%$e103178%_ _%probe103161%_))) + (if (eqv? _%key103139%_ _%k103168%_) (let () (vector-set! - _%table101109%_ - _%probe101128%_ - _%key101105%_) + _%table103142%_ + _%probe103161%_ + _%key103139%_) (vector-set! - _%table101109%_ - (##fx+ _%probe101128%_ '1) - _%value101106%_)) - (_%loop101125%_ - (let ((_%next-probe101150%_ - (fx+ _%start101121%_ - _%i101130%_ - (fx* _%i101130%_ _%i101130%_)))) + _%table103142%_ + (##fx+ _%probe103161%_ '1) + _%value103140%_)) + (_%loop103158%_ + (let ((_%next-probe103183%_ + (fx+ _%start103154%_ + _%i103163%_ + (fx* _%i103163%_ _%i103163%_)))) (##fxmodulo - _%next-probe101150%_ - _%size101115%_)) - (##fx+ _%i101130%_ '1) - _%deleted101132%_)))))))))) - (define eqv-table-update! - (lambda (_%tab101099%_ - _%key101100%_ - _%eqv-table-update!101101%_ - _%default101102%_) - (if (##fx< (&raw-table-free _%tab101099%_) + _%next-probe103183%_ + _%size103148%_)) + (##fx+ _%i103163%_ '1) + _%deleted103165%_)))))))))) + (define eqv-table-set! + (lambda (_%tab103134%_ _%key103135%_ _%value103136%_) + (if (##fx< (&raw-table-free _%tab103134%_) (##fxquotient - (vector-length (&raw-table-table _%tab101099%_)) + (vector-length (&raw-table-table _%tab103134%_)) '4)) - (__raw-table-rehash! _%tab101099%_) + (__raw-table-rehash! _%tab103134%_) '#!void) - (__eqv-table-update! - _%tab101099%_ - _%key101100%_ - _%eqv-table-update!101101%_ - _%default101102%_))) + (__eqv-table-set! _%tab103134%_ _%key103135%_ _%value103136%_))) + (define eqv-table-set!/lock + (lambda (_%tab103106%_ _%key103107%_ _%value103108%_) + (let ((_%lock103111%_ (&raw-table-lock _%tab103106%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again103116%_ ((_%spin103119%_ '0)) + (if (##fx= (##vector-cas! _%lock103111%_ '0 '1 '0) '0) + (##vector-set! _%lock103111%_ '1 (current-thread)) + (if (##fx< _%spin103119%_ '10) + (let () + (##thread-yield!) + (_%again103116%_ (##fx+ _%spin103119%_ '1))) + (let ((_%owner103125%_ (##vector-ref _%lock103111%_ '1))) + (if (eq? _%owner103125%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner103125%_) + (let () (##thread-yield!) (_%again103116%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r103131%_ + (eqv-table-set! _%tab103106%_ _%key103107%_ _%value103108%_))) + (##vector-set! _%lock103111%_ '1 '#f) + (##vector-cas! _%lock103111%_ '0 '0 '1) + _%$r103131%_)))) (define __eqv-table-update! - (lambda (_%tab101049%_ - _%key101050%_ - _%eqv-table-update!101051%_ - _%default101052%_) - (let ((_%table101055%_ (&raw-table-table _%tab101049%_)) - (_%seed101056%_ (&raw-table-seed _%tab101049%_))) - (let* ((_%h101058%_ (fxxor (eqv-hash _%key101050%_) _%seed101056%_)) - (_%size101061%_ (vector-length _%table101055%_)) - (_%entries101064%_ (##fxquotient _%size101061%_ '2)) - (_%start101067%_ + (lambda (_%tab103057%_ + _%key103058%_ + _%eqv-table-update!103059%_ + _%default103060%_) + (let ((_%table103062%_ (&raw-table-table _%tab103057%_)) + (_%seed103063%_ (&raw-table-seed _%tab103057%_))) + (let* ((_%h103065%_ (fxxor (eqv-hash _%key103058%_) _%seed103063%_)) + (_%size103068%_ (vector-length _%table103062%_)) + (_%entries103071%_ (##fxquotient _%size103068%_ '2)) + (_%start103074%_ (##fxarithmetic-shift-left - (##fxmodulo _%h101058%_ _%entries101064%_) + (##fxmodulo _%h103065%_ _%entries103071%_) '1))) - (let _%loop101071%_ ((_%probe101074%_ _%start101067%_) - (_%i101076%_ '1) - (_%deleted101078%_ '#f)) - (let ((_%k101081%_ (vector-ref _%table101055%_ _%probe101074%_))) - (if (eq? _%k101081%_ (macro-unused-obj)) - (if _%deleted101078%_ + (let _%loop103078%_ ((_%probe103081%_ _%start103074%_) + (_%i103083%_ '1) + (_%deleted103085%_ '#f)) + (let ((_%k103088%_ (vector-ref _%table103062%_ _%probe103081%_))) + (if (eq? _%k103088%_ (macro-unused-obj)) + (if _%deleted103085%_ (begin (vector-set! - _%table101055%_ - _%deleted101078%_ - _%key101050%_) + _%table103062%_ + _%deleted103085%_ + _%key103058%_) (vector-set! - _%table101055%_ - (##fx+ _%deleted101078%_ '1) - (_%eqv-table-update!101051%_ _%default101052%_)) + _%table103062%_ + (##fx+ _%deleted103085%_ '1) + (_%eqv-table-update!103059%_ _%default103060%_)) ((lambda () (&raw-table-count-set! - _%tab101049%_ - (##fx+ (&raw-table-count _%tab101049%_) '1))))) + _%tab103057%_ + (##fx+ (&raw-table-count _%tab103057%_) '1))))) (begin (vector-set! - _%table101055%_ - _%probe101074%_ - _%key101050%_) + _%table103062%_ + _%probe103081%_ + _%key103058%_) (vector-set! - _%table101055%_ - (##fx+ _%probe101074%_ '1) - (_%eqv-table-update!101051%_ _%default101052%_)) + _%table103062%_ + (##fx+ _%probe103081%_ '1) + (_%eqv-table-update!103059%_ _%default103060%_)) ((lambda () (&raw-table-free-set! - _%tab101049%_ - (##fx- (&raw-table-free _%tab101049%_) '1)) + _%tab103057%_ + (##fx- (&raw-table-free _%tab103057%_) '1)) (&raw-table-count-set! - _%tab101049%_ - (##fx+ (&raw-table-count _%tab101049%_) '1)))))) - (if (eq? _%k101081%_ (macro-deleted-obj)) - (_%loop101071%_ - (let ((_%next-probe101088%_ - (fx+ _%start101067%_ - _%i101076%_ - (fx* _%i101076%_ _%i101076%_)))) - (##fxmodulo _%next-probe101088%_ _%size101061%_)) - (##fx+ _%i101076%_ '1) - (let ((_%$e101091%_ _%deleted101078%_)) - (if _%$e101091%_ _%$e101091%_ _%probe101074%_))) - (if (eqv? _%key101050%_ _%k101081%_) + _%tab103057%_ + (##fx+ (&raw-table-count _%tab103057%_) '1)))))) + (if (eq? _%k103088%_ (macro-deleted-obj)) + (_%loop103078%_ + (let ((_%next-probe103095%_ + (fx+ _%start103074%_ + _%i103083%_ + (fx* _%i103083%_ _%i103083%_)))) + (##fxmodulo _%next-probe103095%_ _%size103068%_)) + (##fx+ _%i103083%_ '1) + (let ((_%$e103098%_ _%deleted103085%_)) + (if _%$e103098%_ _%$e103098%_ _%probe103081%_))) + (if (eqv? _%key103058%_ _%k103088%_) (let () (vector-set! - _%table101055%_ - _%probe101074%_ - _%key101050%_) + _%table103062%_ + _%probe103081%_ + _%key103058%_) (vector-set! - _%table101055%_ - (##fx+ _%probe101074%_ '1) - (_%eqv-table-update!101051%_ + _%table103062%_ + (##fx+ _%probe103081%_ '1) + (_%eqv-table-update!103059%_ (vector-ref - _%table101055%_ - (##fx+ _%probe101074%_ '1))))) - (_%loop101071%_ - (let ((_%next-probe101096%_ - (fx+ _%start101067%_ - _%i101076%_ - (fx* _%i101076%_ _%i101076%_)))) + _%table103062%_ + (##fx+ _%probe103081%_ '1))))) + (_%loop103078%_ + (let ((_%next-probe103103%_ + (fx+ _%start103074%_ + _%i103083%_ + (fx* _%i103083%_ _%i103083%_)))) (##fxmodulo - _%next-probe101096%_ - _%size101061%_)) - (##fx+ _%i101076%_ '1) - _%deleted101078%_)))))))))) + _%next-probe103103%_ + _%size103068%_)) + (##fx+ _%i103083%_ '1) + _%deleted103085%_)))))))))) + (define eqv-table-update! + (lambda (_%tab103052%_ + _%key103053%_ + _%eqv-table-update!103054%_ + _%default103055%_) + (if (##fx< (&raw-table-free _%tab103052%_) + (##fxquotient + (vector-length (&raw-table-table _%tab103052%_)) + '4)) + (__raw-table-rehash! _%tab103052%_) + '#!void) + (__eqv-table-update! + _%tab103052%_ + _%key103053%_ + _%eqv-table-update!103054%_ + _%default103055%_))) + (define eqv-table-update!/lock + (lambda (_%tab103023%_ + _%key103024%_ + _%eqv-table-update!103025%_ + _%default103026%_) + (let ((_%lock103029%_ (&raw-table-lock _%tab103023%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again103034%_ ((_%spin103037%_ '0)) + (if (##fx= (##vector-cas! _%lock103029%_ '0 '1 '0) '0) + (##vector-set! _%lock103029%_ '1 (current-thread)) + (if (##fx< _%spin103037%_ '10) + (let () + (##thread-yield!) + (_%again103034%_ (##fx+ _%spin103037%_ '1))) + (let ((_%owner103043%_ (##vector-ref _%lock103029%_ '1))) + (if (eq? _%owner103043%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner103043%_) + (let () (##thread-yield!) (_%again103034%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r103049%_ + (_%eqv-table-update!103025%_ + _%tab103023%_ + _%key103024%_ + _%eqv-table-update!103025%_ + _%default103026%_))) + (##vector-set! _%lock103029%_ '1 '#f) + (##vector-cas! _%lock103029%_ '0 '0 '1) + _%$r103049%_)))) (define eqv-table-delete! - (lambda (_%tab101004%_ _%key101006%_) - (let ((_%table101009%_ (&raw-table-table _%tab101004%_)) - (_%seed101011%_ (&raw-table-seed _%tab101004%_))) - (let* ((_%h101014%_ (fxxor (eqv-hash _%key101006%_) _%seed101011%_)) - (_%size101017%_ (vector-length _%table101009%_)) - (_%entries101020%_ (##fxquotient _%size101017%_ '2)) - (_%start101023%_ + (lambda (_%tab102980%_ _%key102981%_) + (let ((_%table102983%_ (&raw-table-table _%tab102980%_)) + (_%seed102985%_ (&raw-table-seed _%tab102980%_))) + (let* ((_%h102988%_ (fxxor (eqv-hash _%key102981%_) _%seed102985%_)) + (_%size102991%_ (vector-length _%table102983%_)) + (_%entries102994%_ (##fxquotient _%size102991%_ '2)) + (_%start102997%_ (##fxarithmetic-shift-left - (##fxmodulo _%h101014%_ _%entries101020%_) + (##fxmodulo _%h102988%_ _%entries102994%_) '1))) - (let _%loop101027%_ ((_%probe101030%_ _%start101023%_) - (_%i101032%_ '1)) - (let ((_%k101035%_ (vector-ref _%table101009%_ _%probe101030%_))) - (if (eq? _%k101035%_ (macro-unused-obj)) + (let _%loop103001%_ ((_%probe103004%_ _%start102997%_) + (_%i103006%_ '1)) + (let ((_%k103009%_ (vector-ref _%table102983%_ _%probe103004%_))) + (if (eq? _%k103009%_ (macro-unused-obj)) '#!void - (if (eq? _%k101035%_ (macro-deleted-obj)) - (_%loop101027%_ - (let ((_%next-probe101040%_ - (fx+ _%start101023%_ - _%i101032%_ - (fx* _%i101032%_ _%i101032%_)))) - (##fxmodulo _%next-probe101040%_ _%size101017%_)) - (##fx+ _%i101032%_ '1)) - (if (eqv? _%key101006%_ _%k101035%_) + (if (eq? _%k103009%_ (macro-deleted-obj)) + (_%loop103001%_ + (let ((_%next-probe103014%_ + (fx+ _%start102997%_ + _%i103006%_ + (fx* _%i103006%_ _%i103006%_)))) + (##fxmodulo _%next-probe103014%_ _%size102991%_)) + (##fx+ _%i103006%_ '1)) + (if (eqv? _%key102981%_ _%k103009%_) (let () (vector-set! - _%table101009%_ - _%probe101030%_ + _%table102983%_ + _%probe103004%_ (macro-deleted-obj)) (vector-set! - _%table101009%_ - (##fx+ _%probe101030%_ '1) + _%table102983%_ + (##fx+ _%probe103004%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab101004%_ - (##fx- (&raw-table-count _%tab101004%_) + _%tab102980%_ + (##fx- (&raw-table-count _%tab102980%_) '1))))) - (_%loop101027%_ - (let ((_%next-probe101046%_ - (fx+ _%start101023%_ - _%i101032%_ - (fx* _%i101032%_ _%i101032%_)))) + (_%loop103001%_ + (let ((_%next-probe103020%_ + (fx+ _%start102997%_ + _%i103006%_ + (fx* _%i103006%_ _%i103006%_)))) (##fxmodulo - _%next-probe101046%_ - _%size101017%_)) - (##fx+ _%i101032%_ '1))))))))))) + _%next-probe103020%_ + _%size102991%_)) + (##fx+ _%i103006%_ '1))))))))))) + (define eqv-table-delete!/lock + (lambda (_%tab102952%_ _%key102954%_) + (let ((_%lock102957%_ (&raw-table-lock _%tab102952%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again102962%_ ((_%spin102965%_ '0)) + (if (##fx= (##vector-cas! _%lock102957%_ '0 '1 '0) '0) + (##vector-set! _%lock102957%_ '1 (current-thread)) + (if (##fx< _%spin102965%_ '10) + (let () + (##thread-yield!) + (_%again102962%_ (##fx+ _%spin102965%_ '1))) + (let ((_%owner102971%_ (##vector-ref _%lock102957%_ '1))) + (if (eq? _%owner102971%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner102971%_) + (let () (##thread-yield!) (_%again102962%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r102977%_ (eqv-table-delete! _%tab102952%_ _%key102954%_))) + (##vector-set! _%lock102957%_ '1 '#f) + (##vector-cas! _%lock102957%_ '0 '0 '1) + _%$r102977%_)))) (define make-symbolic-table__% - (lambda (_%size-hint100985%_ _%seed100987%_) - (make-raw-table__% - _%size-hint100985%_ + (lambda (_%size-hint102934%_ _%seed102935%_) + (make-raw-table__1 + _%size-hint102934%_ symbolic-hash eq? - _%seed100987%_))) + _%seed102935%_))) (define make-symbolic-table__0 (lambda () - (let* ((_%size-hint100993%_ '#f) (_%seed100995%_ '0)) - (make-symbolic-table__% _%size-hint100993%_ _%seed100995%_)))) + (let* ((_%size-hint102941%_ '#f) (_%seed102943%_ '0)) + (make-symbolic-table__% _%size-hint102941%_ _%seed102943%_)))) (define make-symbolic-table__1 - (lambda (_%size-hint100997%_) - (let ((_%seed100999%_ '0)) - (make-symbolic-table__% _%size-hint100997%_ _%seed100999%_)))) + (lambda (_%size-hint102945%_) + (let ((_%seed102947%_ '0)) + (make-symbolic-table__% _%size-hint102945%_ _%seed102947%_)))) (define make-symbolic-table - (lambda _g101782_ - (let ((_g101783_ (##length _g101782_))) - (cond ((##fx= _g101783_ 0) (apply make-symbolic-table__0 _g101782_)) - ((##fx= _g101783_ 1) (apply make-symbolic-table__1 _g101782_)) - ((##fx= _g101783_ 2) (apply make-symbolic-table__% _g101782_)) + (lambda _g104237_ + (let ((_g104238_ (##length _g104237_))) + (cond ((##fx= _g104238_ 0) (apply make-symbolic-table__0 _g104237_)) + ((##fx= _g104238_ 1) (apply make-symbolic-table__1 _g104237_)) + ((##fx= _g104238_ 2) (apply make-symbolic-table__% _g104237_)) (else (##raise-wrong-number-of-arguments-exception make-symbolic-table - _g101782_)))))) + _g104237_)))))) + (define make-symbolic-table/lock__% + (lambda (_%size-hint102914%_ _%seed102916%_) + (make-raw-table/lock__% + _%size-hint102914%_ + symbolic-hash + eq? + _%seed102916%_))) + (define make-symbolic-table/lock__0 + (lambda () + (let* ((_%size-hint102922%_ '#f) (_%seed102924%_ '0)) + (make-symbolic-table/lock__% _%size-hint102922%_ _%seed102924%_)))) + (define make-symbolic-table/lock__1 + (lambda (_%size-hint102926%_) + (let ((_%seed102928%_ '0)) + (make-symbolic-table/lock__% _%size-hint102926%_ _%seed102928%_)))) + (define make-symbolic-table/lock + (lambda _g104239_ + (let ((_g104240_ (##length _g104239_))) + (cond ((##fx= _g104240_ 0) + (apply make-symbolic-table/lock__0 _g104239_)) + ((##fx= _g104240_ 1) + (apply make-symbolic-table/lock__1 _g104239_)) + ((##fx= _g104240_ 2) + (apply make-symbolic-table/lock__% _g104239_)) + (else + (##raise-wrong-number-of-arguments-exception + make-symbolic-table/lock + _g104239_)))))) (define symbolic-table-ref - (lambda (_%tab100938%_ _%key100939%_ _%default100940%_) - (let ((_%table100942%_ (&raw-table-table _%tab100938%_)) - (_%seed100943%_ (&raw-table-seed _%tab100938%_))) - (let* ((_%h100945%_ - (fxxor (##symbol-hash _%key100939%_) _%seed100943%_)) - (_%size100948%_ (vector-length _%table100942%_)) - (_%entries100951%_ (##fxquotient _%size100948%_ '2)) - (_%start100954%_ + (lambda (_%tab102867%_ _%key102868%_ _%default102869%_) + (let ((_%table102871%_ (&raw-table-table _%tab102867%_)) + (_%seed102872%_ (&raw-table-seed _%tab102867%_))) + (let* ((_%h102874%_ + (fxxor (##symbol-hash _%key102868%_) _%seed102872%_)) + (_%size102877%_ (vector-length _%table102871%_)) + (_%entries102880%_ (##fxquotient _%size102877%_ '2)) + (_%start102883%_ (##fxarithmetic-shift-left - (##fxmodulo _%h100945%_ _%entries100951%_) + (##fxmodulo _%h102874%_ _%entries102880%_) '1))) - (let _%loop100958%_ ((_%probe100961%_ _%start100954%_) - (_%i100963%_ '1) - (_%deleted100965%_ '#f)) - (let ((_%k100968%_ (vector-ref _%table100942%_ _%probe100961%_))) - (if (eq? _%k100968%_ (macro-unused-obj)) - _%default100940%_ - (if (eq? _%k100968%_ (macro-deleted-obj)) - (_%loop100958%_ - (let ((_%next-probe100973%_ - (fx+ _%start100954%_ - _%i100963%_ - (fx* _%i100963%_ _%i100963%_)))) - (##fxmodulo _%next-probe100973%_ _%size100948%_)) - (##fx+ _%i100963%_ '1) - (let ((_%$e100976%_ _%deleted100965%_)) - (if _%$e100976%_ _%$e100976%_ _%probe100961%_))) - (if (eq? _%key100939%_ _%k100968%_) + (let _%loop102887%_ ((_%probe102890%_ _%start102883%_) + (_%i102892%_ '1) + (_%deleted102894%_ '#f)) + (let ((_%k102897%_ (vector-ref _%table102871%_ _%probe102890%_))) + (if (eq? _%k102897%_ (macro-unused-obj)) + _%default102869%_ + (if (eq? _%k102897%_ (macro-deleted-obj)) + (_%loop102887%_ + (let ((_%next-probe102902%_ + (fx+ _%start102883%_ + _%i102892%_ + (fx* _%i102892%_ _%i102892%_)))) + (##fxmodulo _%next-probe102902%_ _%size102877%_)) + (##fx+ _%i102892%_ '1) + (let ((_%$e102905%_ _%deleted102894%_)) + (if _%$e102905%_ _%$e102905%_ _%probe102890%_))) + (if (eq? _%key102868%_ _%k102897%_) (vector-ref - _%table100942%_ - (##fx+ _%probe100961%_ '1)) - (_%loop100958%_ - (let ((_%next-probe100981%_ - (fx+ _%start100954%_ - _%i100963%_ - (fx* _%i100963%_ _%i100963%_)))) + _%table102871%_ + (##fx+ _%probe102890%_ '1)) + (_%loop102887%_ + (let ((_%next-probe102910%_ + (fx+ _%start102883%_ + _%i102892%_ + (fx* _%i102892%_ _%i102892%_)))) (##fxmodulo - _%next-probe100981%_ - _%size100948%_)) - (##fx+ _%i100963%_ '1) - _%deleted100965%_)))))))))) - (define symbolic-table-set! - (lambda (_%tab100934%_ _%key100935%_ _%value100936%_) - (if (##fx< (&raw-table-free _%tab100934%_) - (##fxquotient - (vector-length (&raw-table-table _%tab100934%_)) - '4)) - (__raw-table-rehash! _%tab100934%_) - '#!void) - (__symbolic-table-set! _%tab100934%_ _%key100935%_ _%value100936%_))) + _%next-probe102910%_ + _%size102877%_)) + (##fx+ _%i102892%_ '1) + _%deleted102894%_)))))))))) + (define symbolic-table-ref/lock + (lambda (_%tab102840%_ _%key102841%_ _%default102842%_) + (let ((_%lock102844%_ (&raw-table-lock _%tab102840%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again102849%_ ((_%spin102852%_ '0)) + (if (##fx= (##vector-cas! _%lock102844%_ '0 '1 '0) '0) + (##vector-set! _%lock102844%_ '1 (current-thread)) + (if (##fx< _%spin102852%_ '10) + (let () + (##thread-yield!) + (_%again102849%_ (##fx+ _%spin102852%_ '1))) + (let ((_%owner102858%_ (##vector-ref _%lock102844%_ '1))) + (if (eq? _%owner102858%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner102858%_) + (let () (##thread-yield!) (_%again102849%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r102864%_ + (symbolic-table-ref + _%tab102840%_ + _%key102841%_ + _%default102842%_))) + (##vector-set! _%lock102844%_ '1 '#f) + (##vector-cas! _%lock102844%_ '0 '0 '1) + _%$r102864%_)))) (define __symbolic-table-set! - (lambda (_%tab100885%_ _%key100886%_ _%value100887%_) - (let ((_%table100890%_ (&raw-table-table _%tab100885%_)) - (_%seed100891%_ (&raw-table-seed _%tab100885%_))) - (let* ((_%h100893%_ - (fxxor (##symbol-hash _%key100886%_) _%seed100891%_)) - (_%size100896%_ (vector-length _%table100890%_)) - (_%entries100899%_ (##fxquotient _%size100896%_ '2)) - (_%start100902%_ + (lambda (_%tab102792%_ _%key102793%_ _%value102794%_) + (let ((_%table102796%_ (&raw-table-table _%tab102792%_)) + (_%seed102797%_ (&raw-table-seed _%tab102792%_))) + (let* ((_%h102799%_ + (fxxor (##symbol-hash _%key102793%_) _%seed102797%_)) + (_%size102802%_ (vector-length _%table102796%_)) + (_%entries102805%_ (##fxquotient _%size102802%_ '2)) + (_%start102808%_ (##fxarithmetic-shift-left - (##fxmodulo _%h100893%_ _%entries100899%_) + (##fxmodulo _%h102799%_ _%entries102805%_) '1))) - (let _%loop100906%_ ((_%probe100909%_ _%start100902%_) - (_%i100911%_ '1) - (_%deleted100913%_ '#f)) - (let ((_%k100916%_ (vector-ref _%table100890%_ _%probe100909%_))) - (if (eq? _%k100916%_ (macro-unused-obj)) - (if _%deleted100913%_ + (let _%loop102812%_ ((_%probe102815%_ _%start102808%_) + (_%i102817%_ '1) + (_%deleted102819%_ '#f)) + (let ((_%k102822%_ (vector-ref _%table102796%_ _%probe102815%_))) + (if (eq? _%k102822%_ (macro-unused-obj)) + (if _%deleted102819%_ (begin (vector-set! - _%table100890%_ - _%deleted100913%_ - _%key100886%_) + _%table102796%_ + _%deleted102819%_ + _%key102793%_) (vector-set! - _%table100890%_ - (##fx+ _%deleted100913%_ '1) - _%value100887%_) + _%table102796%_ + (##fx+ _%deleted102819%_ '1) + _%value102794%_) ((lambda () (&raw-table-count-set! - _%tab100885%_ - (##fx+ (&raw-table-count _%tab100885%_) '1))))) + _%tab102792%_ + (##fx+ (&raw-table-count _%tab102792%_) '1))))) (begin (vector-set! - _%table100890%_ - _%probe100909%_ - _%key100886%_) + _%table102796%_ + _%probe102815%_ + _%key102793%_) (vector-set! - _%table100890%_ - (##fx+ _%probe100909%_ '1) - _%value100887%_) + _%table102796%_ + (##fx+ _%probe102815%_ '1) + _%value102794%_) ((lambda () (&raw-table-free-set! - _%tab100885%_ - (##fx- (&raw-table-free _%tab100885%_) '1)) + _%tab102792%_ + (##fx- (&raw-table-free _%tab102792%_) '1)) (&raw-table-count-set! - _%tab100885%_ - (##fx+ (&raw-table-count _%tab100885%_) '1)))))) - (if (eq? _%k100916%_ (macro-deleted-obj)) - (_%loop100906%_ - (let ((_%next-probe100923%_ - (fx+ _%start100902%_ - _%i100911%_ - (fx* _%i100911%_ _%i100911%_)))) - (##fxmodulo _%next-probe100923%_ _%size100896%_)) - (##fx+ _%i100911%_ '1) - (let ((_%$e100926%_ _%deleted100913%_)) - (if _%$e100926%_ _%$e100926%_ _%probe100909%_))) - (if (eq? _%key100886%_ _%k100916%_) + _%tab102792%_ + (##fx+ (&raw-table-count _%tab102792%_) '1)))))) + (if (eq? _%k102822%_ (macro-deleted-obj)) + (_%loop102812%_ + (let ((_%next-probe102829%_ + (fx+ _%start102808%_ + _%i102817%_ + (fx* _%i102817%_ _%i102817%_)))) + (##fxmodulo _%next-probe102829%_ _%size102802%_)) + (##fx+ _%i102817%_ '1) + (let ((_%$e102832%_ _%deleted102819%_)) + (if _%$e102832%_ _%$e102832%_ _%probe102815%_))) + (if (eq? _%key102793%_ _%k102822%_) (let () (vector-set! - _%table100890%_ - _%probe100909%_ - _%key100886%_) + _%table102796%_ + _%probe102815%_ + _%key102793%_) (vector-set! - _%table100890%_ - (##fx+ _%probe100909%_ '1) - _%value100887%_)) - (_%loop100906%_ - (let ((_%next-probe100931%_ - (fx+ _%start100902%_ - _%i100911%_ - (fx* _%i100911%_ _%i100911%_)))) + _%table102796%_ + (##fx+ _%probe102815%_ '1) + _%value102794%_)) + (_%loop102812%_ + (let ((_%next-probe102837%_ + (fx+ _%start102808%_ + _%i102817%_ + (fx* _%i102817%_ _%i102817%_)))) (##fxmodulo - _%next-probe100931%_ - _%size100896%_)) - (##fx+ _%i100911%_ '1) - _%deleted100913%_)))))))))) - (define symbolic-table-update! - (lambda (_%tab100880%_ - _%key100881%_ - _%symbolic-table-update!100882%_ - _%default100883%_) - (if (##fx< (&raw-table-free _%tab100880%_) + _%next-probe102837%_ + _%size102802%_)) + (##fx+ _%i102817%_ '1) + _%deleted102819%_)))))))))) + (define symbolic-table-set! + (lambda (_%tab102788%_ _%key102789%_ _%value102790%_) + (if (##fx< (&raw-table-free _%tab102788%_) (##fxquotient - (vector-length (&raw-table-table _%tab100880%_)) + (vector-length (&raw-table-table _%tab102788%_)) '4)) - (__raw-table-rehash! _%tab100880%_) + (__raw-table-rehash! _%tab102788%_) '#!void) - (__symbolic-table-update! - _%tab100880%_ - _%key100881%_ - _%symbolic-table-update!100882%_ - _%default100883%_))) + (__symbolic-table-set! _%tab102788%_ _%key102789%_ _%value102790%_))) + (define symbolic-table-set!/lock + (lambda (_%tab102760%_ _%key102761%_ _%value102762%_) + (let ((_%lock102765%_ (&raw-table-lock _%tab102760%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again102770%_ ((_%spin102773%_ '0)) + (if (##fx= (##vector-cas! _%lock102765%_ '0 '1 '0) '0) + (##vector-set! _%lock102765%_ '1 (current-thread)) + (if (##fx< _%spin102773%_ '10) + (let () + (##thread-yield!) + (_%again102770%_ (##fx+ _%spin102773%_ '1))) + (let ((_%owner102779%_ (##vector-ref _%lock102765%_ '1))) + (if (eq? _%owner102779%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner102779%_) + (let () (##thread-yield!) (_%again102770%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r102785%_ + (symbolic-table-set! + _%tab102760%_ + _%key102761%_ + _%value102762%_))) + (##vector-set! _%lock102765%_ '1 '#f) + (##vector-cas! _%lock102765%_ '0 '0 '1) + _%$r102785%_)))) (define __symbolic-table-update! - (lambda (_%tab100830%_ - _%key100831%_ - _%symbolic-table-update!100832%_ - _%default100833%_) - (let ((_%table100836%_ (&raw-table-table _%tab100830%_)) - (_%seed100837%_ (&raw-table-seed _%tab100830%_))) - (let* ((_%h100839%_ - (fxxor (##symbol-hash _%key100831%_) _%seed100837%_)) - (_%size100842%_ (vector-length _%table100836%_)) - (_%entries100845%_ (##fxquotient _%size100842%_ '2)) - (_%start100848%_ + (lambda (_%tab102711%_ + _%key102712%_ + _%symbolic-table-update!102713%_ + _%default102714%_) + (let ((_%table102716%_ (&raw-table-table _%tab102711%_)) + (_%seed102717%_ (&raw-table-seed _%tab102711%_))) + (let* ((_%h102719%_ + (fxxor (##symbol-hash _%key102712%_) _%seed102717%_)) + (_%size102722%_ (vector-length _%table102716%_)) + (_%entries102725%_ (##fxquotient _%size102722%_ '2)) + (_%start102728%_ (##fxarithmetic-shift-left - (##fxmodulo _%h100839%_ _%entries100845%_) + (##fxmodulo _%h102719%_ _%entries102725%_) '1))) - (let _%loop100852%_ ((_%probe100855%_ _%start100848%_) - (_%i100857%_ '1) - (_%deleted100859%_ '#f)) - (let ((_%k100862%_ (vector-ref _%table100836%_ _%probe100855%_))) - (if (eq? _%k100862%_ (macro-unused-obj)) - (if _%deleted100859%_ + (let _%loop102732%_ ((_%probe102735%_ _%start102728%_) + (_%i102737%_ '1) + (_%deleted102739%_ '#f)) + (let ((_%k102742%_ (vector-ref _%table102716%_ _%probe102735%_))) + (if (eq? _%k102742%_ (macro-unused-obj)) + (if _%deleted102739%_ (begin (vector-set! - _%table100836%_ - _%deleted100859%_ - _%key100831%_) + _%table102716%_ + _%deleted102739%_ + _%key102712%_) (vector-set! - _%table100836%_ - (##fx+ _%deleted100859%_ '1) - (_%symbolic-table-update!100832%_ - _%default100833%_)) + _%table102716%_ + (##fx+ _%deleted102739%_ '1) + (_%symbolic-table-update!102713%_ + _%default102714%_)) ((lambda () (&raw-table-count-set! - _%tab100830%_ - (##fx+ (&raw-table-count _%tab100830%_) '1))))) + _%tab102711%_ + (##fx+ (&raw-table-count _%tab102711%_) '1))))) (begin (vector-set! - _%table100836%_ - _%probe100855%_ - _%key100831%_) + _%table102716%_ + _%probe102735%_ + _%key102712%_) (vector-set! - _%table100836%_ - (##fx+ _%probe100855%_ '1) - (_%symbolic-table-update!100832%_ - _%default100833%_)) + _%table102716%_ + (##fx+ _%probe102735%_ '1) + (_%symbolic-table-update!102713%_ + _%default102714%_)) ((lambda () (&raw-table-free-set! - _%tab100830%_ - (##fx- (&raw-table-free _%tab100830%_) '1)) + _%tab102711%_ + (##fx- (&raw-table-free _%tab102711%_) '1)) (&raw-table-count-set! - _%tab100830%_ - (##fx+ (&raw-table-count _%tab100830%_) '1)))))) - (if (eq? _%k100862%_ (macro-deleted-obj)) - (_%loop100852%_ - (let ((_%next-probe100869%_ - (fx+ _%start100848%_ - _%i100857%_ - (fx* _%i100857%_ _%i100857%_)))) - (##fxmodulo _%next-probe100869%_ _%size100842%_)) - (##fx+ _%i100857%_ '1) - (let ((_%$e100872%_ _%deleted100859%_)) - (if _%$e100872%_ _%$e100872%_ _%probe100855%_))) - (if (eq? _%key100831%_ _%k100862%_) + _%tab102711%_ + (##fx+ (&raw-table-count _%tab102711%_) '1)))))) + (if (eq? _%k102742%_ (macro-deleted-obj)) + (_%loop102732%_ + (let ((_%next-probe102749%_ + (fx+ _%start102728%_ + _%i102737%_ + (fx* _%i102737%_ _%i102737%_)))) + (##fxmodulo _%next-probe102749%_ _%size102722%_)) + (##fx+ _%i102737%_ '1) + (let ((_%$e102752%_ _%deleted102739%_)) + (if _%$e102752%_ _%$e102752%_ _%probe102735%_))) + (if (eq? _%key102712%_ _%k102742%_) (let () (vector-set! - _%table100836%_ - _%probe100855%_ - _%key100831%_) + _%table102716%_ + _%probe102735%_ + _%key102712%_) (vector-set! - _%table100836%_ - (##fx+ _%probe100855%_ '1) - (_%symbolic-table-update!100832%_ + _%table102716%_ + (##fx+ _%probe102735%_ '1) + (_%symbolic-table-update!102713%_ (vector-ref - _%table100836%_ - (##fx+ _%probe100855%_ '1))))) - (_%loop100852%_ - (let ((_%next-probe100877%_ - (fx+ _%start100848%_ - _%i100857%_ - (fx* _%i100857%_ _%i100857%_)))) + _%table102716%_ + (##fx+ _%probe102735%_ '1))))) + (_%loop102732%_ + (let ((_%next-probe102757%_ + (fx+ _%start102728%_ + _%i102737%_ + (fx* _%i102737%_ _%i102737%_)))) (##fxmodulo - _%next-probe100877%_ - _%size100842%_)) - (##fx+ _%i100857%_ '1) - _%deleted100859%_)))))))))) + _%next-probe102757%_ + _%size102722%_)) + (##fx+ _%i102737%_ '1) + _%deleted102739%_)))))))))) + (define symbolic-table-update! + (lambda (_%tab102706%_ + _%key102707%_ + _%symbolic-table-update!102708%_ + _%default102709%_) + (if (##fx< (&raw-table-free _%tab102706%_) + (##fxquotient + (vector-length (&raw-table-table _%tab102706%_)) + '4)) + (__raw-table-rehash! _%tab102706%_) + '#!void) + (__symbolic-table-update! + _%tab102706%_ + _%key102707%_ + _%symbolic-table-update!102708%_ + _%default102709%_))) + (define symbolic-table-update!/lock + (lambda (_%tab102677%_ + _%key102678%_ + _%symbolic-table-update!102679%_ + _%default102680%_) + (let ((_%lock102683%_ (&raw-table-lock _%tab102677%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again102688%_ ((_%spin102691%_ '0)) + (if (##fx= (##vector-cas! _%lock102683%_ '0 '1 '0) '0) + (##vector-set! _%lock102683%_ '1 (current-thread)) + (if (##fx< _%spin102691%_ '10) + (let () + (##thread-yield!) + (_%again102688%_ (##fx+ _%spin102691%_ '1))) + (let ((_%owner102697%_ (##vector-ref _%lock102683%_ '1))) + (if (eq? _%owner102697%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner102697%_) + (let () (##thread-yield!) (_%again102688%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r102703%_ + (_%symbolic-table-update!102679%_ + _%tab102677%_ + _%key102678%_ + _%symbolic-table-update!102679%_ + _%default102680%_))) + (##vector-set! _%lock102683%_ '1 '#f) + (##vector-cas! _%lock102683%_ '0 '0 '1) + _%$r102703%_)))) (define symbolic-table-delete! - (lambda (_%tab100785%_ _%key100787%_) - (let ((_%table100790%_ (&raw-table-table _%tab100785%_)) - (_%seed100792%_ (&raw-table-seed _%tab100785%_))) - (let* ((_%h100795%_ - (fxxor (##symbol-hash _%key100787%_) _%seed100792%_)) - (_%size100798%_ (vector-length _%table100790%_)) - (_%entries100801%_ (##fxquotient _%size100798%_ '2)) - (_%start100804%_ + (lambda (_%tab102634%_ _%key102635%_) + (let ((_%table102637%_ (&raw-table-table _%tab102634%_)) + (_%seed102639%_ (&raw-table-seed _%tab102634%_))) + (let* ((_%h102642%_ + (fxxor (##symbol-hash _%key102635%_) _%seed102639%_)) + (_%size102645%_ (vector-length _%table102637%_)) + (_%entries102648%_ (##fxquotient _%size102645%_ '2)) + (_%start102651%_ (##fxarithmetic-shift-left - (##fxmodulo _%h100795%_ _%entries100801%_) + (##fxmodulo _%h102642%_ _%entries102648%_) '1))) - (let _%loop100808%_ ((_%probe100811%_ _%start100804%_) - (_%i100813%_ '1)) - (let ((_%k100816%_ (vector-ref _%table100790%_ _%probe100811%_))) - (if (eq? _%k100816%_ (macro-unused-obj)) + (let _%loop102655%_ ((_%probe102658%_ _%start102651%_) + (_%i102660%_ '1)) + (let ((_%k102663%_ (vector-ref _%table102637%_ _%probe102658%_))) + (if (eq? _%k102663%_ (macro-unused-obj)) '#!void - (if (eq? _%k100816%_ (macro-deleted-obj)) - (_%loop100808%_ - (let ((_%next-probe100821%_ - (fx+ _%start100804%_ - _%i100813%_ - (fx* _%i100813%_ _%i100813%_)))) - (##fxmodulo _%next-probe100821%_ _%size100798%_)) - (##fx+ _%i100813%_ '1)) - (if (eq? _%key100787%_ _%k100816%_) + (if (eq? _%k102663%_ (macro-deleted-obj)) + (_%loop102655%_ + (let ((_%next-probe102668%_ + (fx+ _%start102651%_ + _%i102660%_ + (fx* _%i102660%_ _%i102660%_)))) + (##fxmodulo _%next-probe102668%_ _%size102645%_)) + (##fx+ _%i102660%_ '1)) + (if (eq? _%key102635%_ _%k102663%_) (let () (vector-set! - _%table100790%_ - _%probe100811%_ + _%table102637%_ + _%probe102658%_ (macro-deleted-obj)) (vector-set! - _%table100790%_ - (##fx+ _%probe100811%_ '1) + _%table102637%_ + (##fx+ _%probe102658%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab100785%_ - (##fx- (&raw-table-count _%tab100785%_) + _%tab102634%_ + (##fx- (&raw-table-count _%tab102634%_) '1))))) - (_%loop100808%_ - (let ((_%next-probe100827%_ - (fx+ _%start100804%_ - _%i100813%_ - (fx* _%i100813%_ _%i100813%_)))) + (_%loop102655%_ + (let ((_%next-probe102674%_ + (fx+ _%start102651%_ + _%i102660%_ + (fx* _%i102660%_ _%i102660%_)))) (##fxmodulo - _%next-probe100827%_ - _%size100798%_)) - (##fx+ _%i100813%_ '1))))))))))) + _%next-probe102674%_ + _%size102645%_)) + (##fx+ _%i102660%_ '1))))))))))) + (define symbolic-table-delete!/lock + (lambda (_%tab102606%_ _%key102608%_) + (let ((_%lock102611%_ (&raw-table-lock _%tab102606%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again102616%_ ((_%spin102619%_ '0)) + (if (##fx= (##vector-cas! _%lock102611%_ '0 '1 '0) '0) + (##vector-set! _%lock102611%_ '1 (current-thread)) + (if (##fx< _%spin102619%_ '10) + (let () + (##thread-yield!) + (_%again102616%_ (##fx+ _%spin102619%_ '1))) + (let ((_%owner102625%_ (##vector-ref _%lock102611%_ '1))) + (if (eq? _%owner102625%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner102625%_) + (let () (##thread-yield!) (_%again102616%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r102631%_ + (symbolic-table-delete! _%tab102606%_ _%key102608%_))) + (##vector-set! _%lock102611%_ '1 '#f) + (##vector-cas! _%lock102611%_ '0 '0 '1) + _%$r102631%_)))) (define make-string-table__% - (lambda (_%size-hint100766%_ _%seed100768%_) - (make-raw-table__% - _%size-hint100766%_ + (lambda (_%size-hint102588%_ _%seed102589%_) + (make-raw-table__1 + _%size-hint102588%_ string-hash ##string=? - _%seed100768%_))) + _%seed102589%_))) (define make-string-table__0 (lambda () - (let* ((_%size-hint100774%_ '#f) (_%seed100776%_ '0)) - (make-string-table__% _%size-hint100774%_ _%seed100776%_)))) + (let* ((_%size-hint102595%_ '#f) (_%seed102597%_ '0)) + (make-string-table__% _%size-hint102595%_ _%seed102597%_)))) (define make-string-table__1 - (lambda (_%size-hint100778%_) - (let ((_%seed100780%_ '0)) - (make-string-table__% _%size-hint100778%_ _%seed100780%_)))) + (lambda (_%size-hint102599%_) + (let ((_%seed102601%_ '0)) + (make-string-table__% _%size-hint102599%_ _%seed102601%_)))) (define make-string-table - (lambda _g101784_ - (let ((_g101785_ (##length _g101784_))) - (cond ((##fx= _g101785_ 0) (apply make-string-table__0 _g101784_)) - ((##fx= _g101785_ 1) (apply make-string-table__1 _g101784_)) - ((##fx= _g101785_ 2) (apply make-string-table__% _g101784_)) + (lambda _g104241_ + (let ((_g104242_ (##length _g104241_))) + (cond ((##fx= _g104242_ 0) (apply make-string-table__0 _g104241_)) + ((##fx= _g104242_ 1) (apply make-string-table__1 _g104241_)) + ((##fx= _g104242_ 2) (apply make-string-table__% _g104241_)) (else (##raise-wrong-number-of-arguments-exception make-string-table - _g101784_)))))) + _g104241_)))))) + (define make-string-table/lock__% + (lambda (_%size-hint102568%_ _%seed102570%_) + (make-raw-table/lock__% + _%size-hint102568%_ + string-hash + ##string=? + _%seed102570%_))) + (define make-string-table/lock__0 + (lambda () + (let* ((_%size-hint102576%_ '#f) (_%seed102578%_ '0)) + (make-string-table/lock__% _%size-hint102576%_ _%seed102578%_)))) + (define make-string-table/lock__1 + (lambda (_%size-hint102580%_) + (let ((_%seed102582%_ '0)) + (make-string-table/lock__% _%size-hint102580%_ _%seed102582%_)))) + (define make-string-table/lock + (lambda _g104243_ + (let ((_g104244_ (##length _g104243_))) + (cond ((##fx= _g104244_ 0) + (apply make-string-table/lock__0 _g104243_)) + ((##fx= _g104244_ 1) + (apply make-string-table/lock__1 _g104243_)) + ((##fx= _g104244_ 2) + (apply make-string-table/lock__% _g104243_)) + (else + (##raise-wrong-number-of-arguments-exception + make-string-table/lock + _g104243_)))))) (define string-table-ref - (lambda (_%tab100719%_ _%key100720%_ _%default100721%_) - (let ((_%table100723%_ (&raw-table-table _%tab100719%_)) - (_%seed100724%_ (&raw-table-seed _%tab100719%_))) - (let* ((_%h100726%_ - (fxxor (##string=?-hash _%key100720%_) _%seed100724%_)) - (_%size100729%_ (vector-length _%table100723%_)) - (_%entries100732%_ (##fxquotient _%size100729%_ '2)) - (_%start100735%_ + (lambda (_%tab102521%_ _%key102522%_ _%default102523%_) + (let ((_%table102525%_ (&raw-table-table _%tab102521%_)) + (_%seed102526%_ (&raw-table-seed _%tab102521%_))) + (let* ((_%h102528%_ + (fxxor (##string=?-hash _%key102522%_) _%seed102526%_)) + (_%size102531%_ (vector-length _%table102525%_)) + (_%entries102534%_ (##fxquotient _%size102531%_ '2)) + (_%start102537%_ (##fxarithmetic-shift-left - (##fxmodulo _%h100726%_ _%entries100732%_) + (##fxmodulo _%h102528%_ _%entries102534%_) '1))) - (let _%loop100739%_ ((_%probe100742%_ _%start100735%_) - (_%i100744%_ '1) - (_%deleted100746%_ '#f)) - (let ((_%k100749%_ (vector-ref _%table100723%_ _%probe100742%_))) - (if (eq? _%k100749%_ (macro-unused-obj)) - _%default100721%_ - (if (eq? _%k100749%_ (macro-deleted-obj)) - (_%loop100739%_ - (let ((_%next-probe100754%_ - (fx+ _%start100735%_ - _%i100744%_ - (fx* _%i100744%_ _%i100744%_)))) - (##fxmodulo _%next-probe100754%_ _%size100729%_)) - (##fx+ _%i100744%_ '1) - (let ((_%$e100757%_ _%deleted100746%_)) - (if _%$e100757%_ _%$e100757%_ _%probe100742%_))) - (if (##string=? _%key100720%_ _%k100749%_) + (let _%loop102541%_ ((_%probe102544%_ _%start102537%_) + (_%i102546%_ '1) + (_%deleted102548%_ '#f)) + (let ((_%k102551%_ (vector-ref _%table102525%_ _%probe102544%_))) + (if (eq? _%k102551%_ (macro-unused-obj)) + _%default102523%_ + (if (eq? _%k102551%_ (macro-deleted-obj)) + (_%loop102541%_ + (let ((_%next-probe102556%_ + (fx+ _%start102537%_ + _%i102546%_ + (fx* _%i102546%_ _%i102546%_)))) + (##fxmodulo _%next-probe102556%_ _%size102531%_)) + (##fx+ _%i102546%_ '1) + (let ((_%$e102559%_ _%deleted102548%_)) + (if _%$e102559%_ _%$e102559%_ _%probe102544%_))) + (if (##string=? _%key102522%_ _%k102551%_) (vector-ref - _%table100723%_ - (##fx+ _%probe100742%_ '1)) - (_%loop100739%_ - (let ((_%next-probe100762%_ - (fx+ _%start100735%_ - _%i100744%_ - (fx* _%i100744%_ _%i100744%_)))) + _%table102525%_ + (##fx+ _%probe102544%_ '1)) + (_%loop102541%_ + (let ((_%next-probe102564%_ + (fx+ _%start102537%_ + _%i102546%_ + (fx* _%i102546%_ _%i102546%_)))) (##fxmodulo - _%next-probe100762%_ - _%size100729%_)) - (##fx+ _%i100744%_ '1) - _%deleted100746%_)))))))))) - (define string-table-set! - (lambda (_%tab100715%_ _%key100716%_ _%value100717%_) - (if (##fx< (&raw-table-free _%tab100715%_) - (##fxquotient - (vector-length (&raw-table-table _%tab100715%_)) - '4)) - (__raw-table-rehash! _%tab100715%_) - '#!void) - (__string-table-set! _%tab100715%_ _%key100716%_ _%value100717%_))) + _%next-probe102564%_ + _%size102531%_)) + (##fx+ _%i102546%_ '1) + _%deleted102548%_)))))))))) + (define string-table-ref/lock + (lambda (_%tab102494%_ _%key102495%_ _%default102496%_) + (let ((_%lock102498%_ (&raw-table-lock _%tab102494%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again102503%_ ((_%spin102506%_ '0)) + (if (##fx= (##vector-cas! _%lock102498%_ '0 '1 '0) '0) + (##vector-set! _%lock102498%_ '1 (current-thread)) + (if (##fx< _%spin102506%_ '10) + (let () + (##thread-yield!) + (_%again102503%_ (##fx+ _%spin102506%_ '1))) + (let ((_%owner102512%_ (##vector-ref _%lock102498%_ '1))) + (if (eq? _%owner102512%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner102512%_) + (let () (##thread-yield!) (_%again102503%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r102518%_ + (string-table-ref + _%tab102494%_ + _%key102495%_ + _%default102496%_))) + (##vector-set! _%lock102498%_ '1 '#f) + (##vector-cas! _%lock102498%_ '0 '0 '1) + _%$r102518%_)))) (define __string-table-set! - (lambda (_%tab100666%_ _%key100667%_ _%value100668%_) - (let ((_%table100671%_ (&raw-table-table _%tab100666%_)) - (_%seed100672%_ (&raw-table-seed _%tab100666%_))) - (let* ((_%h100674%_ - (fxxor (##string=?-hash _%key100667%_) _%seed100672%_)) - (_%size100677%_ (vector-length _%table100671%_)) - (_%entries100680%_ (##fxquotient _%size100677%_ '2)) - (_%start100683%_ + (lambda (_%tab102446%_ _%key102447%_ _%value102448%_) + (let ((_%table102450%_ (&raw-table-table _%tab102446%_)) + (_%seed102451%_ (&raw-table-seed _%tab102446%_))) + (let* ((_%h102453%_ + (fxxor (##string=?-hash _%key102447%_) _%seed102451%_)) + (_%size102456%_ (vector-length _%table102450%_)) + (_%entries102459%_ (##fxquotient _%size102456%_ '2)) + (_%start102462%_ (##fxarithmetic-shift-left - (##fxmodulo _%h100674%_ _%entries100680%_) + (##fxmodulo _%h102453%_ _%entries102459%_) '1))) - (let _%loop100687%_ ((_%probe100690%_ _%start100683%_) - (_%i100692%_ '1) - (_%deleted100694%_ '#f)) - (let ((_%k100697%_ (vector-ref _%table100671%_ _%probe100690%_))) - (if (eq? _%k100697%_ (macro-unused-obj)) - (if _%deleted100694%_ + (let _%loop102466%_ ((_%probe102469%_ _%start102462%_) + (_%i102471%_ '1) + (_%deleted102473%_ '#f)) + (let ((_%k102476%_ (vector-ref _%table102450%_ _%probe102469%_))) + (if (eq? _%k102476%_ (macro-unused-obj)) + (if _%deleted102473%_ (begin (vector-set! - _%table100671%_ - _%deleted100694%_ - _%key100667%_) + _%table102450%_ + _%deleted102473%_ + _%key102447%_) (vector-set! - _%table100671%_ - (##fx+ _%deleted100694%_ '1) - _%value100668%_) + _%table102450%_ + (##fx+ _%deleted102473%_ '1) + _%value102448%_) ((lambda () (&raw-table-count-set! - _%tab100666%_ - (##fx+ (&raw-table-count _%tab100666%_) '1))))) + _%tab102446%_ + (##fx+ (&raw-table-count _%tab102446%_) '1))))) (begin (vector-set! - _%table100671%_ - _%probe100690%_ - _%key100667%_) + _%table102450%_ + _%probe102469%_ + _%key102447%_) (vector-set! - _%table100671%_ - (##fx+ _%probe100690%_ '1) - _%value100668%_) + _%table102450%_ + (##fx+ _%probe102469%_ '1) + _%value102448%_) ((lambda () (&raw-table-free-set! - _%tab100666%_ - (##fx- (&raw-table-free _%tab100666%_) '1)) + _%tab102446%_ + (##fx- (&raw-table-free _%tab102446%_) '1)) (&raw-table-count-set! - _%tab100666%_ - (##fx+ (&raw-table-count _%tab100666%_) '1)))))) - (if (eq? _%k100697%_ (macro-deleted-obj)) - (_%loop100687%_ - (let ((_%next-probe100704%_ - (fx+ _%start100683%_ - _%i100692%_ - (fx* _%i100692%_ _%i100692%_)))) - (##fxmodulo _%next-probe100704%_ _%size100677%_)) - (##fx+ _%i100692%_ '1) - (let ((_%$e100707%_ _%deleted100694%_)) - (if _%$e100707%_ _%$e100707%_ _%probe100690%_))) - (if (##string=? _%key100667%_ _%k100697%_) + _%tab102446%_ + (##fx+ (&raw-table-count _%tab102446%_) '1)))))) + (if (eq? _%k102476%_ (macro-deleted-obj)) + (_%loop102466%_ + (let ((_%next-probe102483%_ + (fx+ _%start102462%_ + _%i102471%_ + (fx* _%i102471%_ _%i102471%_)))) + (##fxmodulo _%next-probe102483%_ _%size102456%_)) + (##fx+ _%i102471%_ '1) + (let ((_%$e102486%_ _%deleted102473%_)) + (if _%$e102486%_ _%$e102486%_ _%probe102469%_))) + (if (##string=? _%key102447%_ _%k102476%_) (let () (vector-set! - _%table100671%_ - _%probe100690%_ - _%key100667%_) + _%table102450%_ + _%probe102469%_ + _%key102447%_) (vector-set! - _%table100671%_ - (##fx+ _%probe100690%_ '1) - _%value100668%_)) - (_%loop100687%_ - (let ((_%next-probe100712%_ - (fx+ _%start100683%_ - _%i100692%_ - (fx* _%i100692%_ _%i100692%_)))) + _%table102450%_ + (##fx+ _%probe102469%_ '1) + _%value102448%_)) + (_%loop102466%_ + (let ((_%next-probe102491%_ + (fx+ _%start102462%_ + _%i102471%_ + (fx* _%i102471%_ _%i102471%_)))) (##fxmodulo - _%next-probe100712%_ - _%size100677%_)) - (##fx+ _%i100692%_ '1) - _%deleted100694%_)))))))))) - (define string-table-update! - (lambda (_%tab100661%_ - _%key100662%_ - _%string-table-update!100663%_ - _%default100664%_) - (if (##fx< (&raw-table-free _%tab100661%_) + _%next-probe102491%_ + _%size102456%_)) + (##fx+ _%i102471%_ '1) + _%deleted102473%_)))))))))) + (define string-table-set! + (lambda (_%tab102442%_ _%key102443%_ _%value102444%_) + (if (##fx< (&raw-table-free _%tab102442%_) (##fxquotient - (vector-length (&raw-table-table _%tab100661%_)) + (vector-length (&raw-table-table _%tab102442%_)) '4)) - (__raw-table-rehash! _%tab100661%_) + (__raw-table-rehash! _%tab102442%_) '#!void) - (__string-table-update! - _%tab100661%_ - _%key100662%_ - _%string-table-update!100663%_ - _%default100664%_))) + (__string-table-set! _%tab102442%_ _%key102443%_ _%value102444%_))) + (define string-table-set!/lock + (lambda (_%tab102414%_ _%key102415%_ _%value102416%_) + (let ((_%lock102419%_ (&raw-table-lock _%tab102414%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again102424%_ ((_%spin102427%_ '0)) + (if (##fx= (##vector-cas! _%lock102419%_ '0 '1 '0) '0) + (##vector-set! _%lock102419%_ '1 (current-thread)) + (if (##fx< _%spin102427%_ '10) + (let () + (##thread-yield!) + (_%again102424%_ (##fx+ _%spin102427%_ '1))) + (let ((_%owner102433%_ (##vector-ref _%lock102419%_ '1))) + (if (eq? _%owner102433%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner102433%_) + (let () (##thread-yield!) (_%again102424%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r102439%_ + (string-table-set! + _%tab102414%_ + _%key102415%_ + _%value102416%_))) + (##vector-set! _%lock102419%_ '1 '#f) + (##vector-cas! _%lock102419%_ '0 '0 '1) + _%$r102439%_)))) (define __string-table-update! - (lambda (_%tab100611%_ - _%key100612%_ - _%string-table-update!100613%_ - _%default100614%_) - (let ((_%table100617%_ (&raw-table-table _%tab100611%_)) - (_%seed100618%_ (&raw-table-seed _%tab100611%_))) - (let* ((_%h100620%_ - (fxxor (##string=?-hash _%key100612%_) _%seed100618%_)) - (_%size100623%_ (vector-length _%table100617%_)) - (_%entries100626%_ (##fxquotient _%size100623%_ '2)) - (_%start100629%_ + (lambda (_%tab102365%_ + _%key102366%_ + _%string-table-update!102367%_ + _%default102368%_) + (let ((_%table102370%_ (&raw-table-table _%tab102365%_)) + (_%seed102371%_ (&raw-table-seed _%tab102365%_))) + (let* ((_%h102373%_ + (fxxor (##string=?-hash _%key102366%_) _%seed102371%_)) + (_%size102376%_ (vector-length _%table102370%_)) + (_%entries102379%_ (##fxquotient _%size102376%_ '2)) + (_%start102382%_ (##fxarithmetic-shift-left - (##fxmodulo _%h100620%_ _%entries100626%_) + (##fxmodulo _%h102373%_ _%entries102379%_) '1))) - (let _%loop100633%_ ((_%probe100636%_ _%start100629%_) - (_%i100638%_ '1) - (_%deleted100640%_ '#f)) - (let ((_%k100643%_ (vector-ref _%table100617%_ _%probe100636%_))) - (if (eq? _%k100643%_ (macro-unused-obj)) - (if _%deleted100640%_ + (let _%loop102386%_ ((_%probe102389%_ _%start102382%_) + (_%i102391%_ '1) + (_%deleted102393%_ '#f)) + (let ((_%k102396%_ (vector-ref _%table102370%_ _%probe102389%_))) + (if (eq? _%k102396%_ (macro-unused-obj)) + (if _%deleted102393%_ (begin (vector-set! - _%table100617%_ - _%deleted100640%_ - _%key100612%_) + _%table102370%_ + _%deleted102393%_ + _%key102366%_) (vector-set! - _%table100617%_ - (##fx+ _%deleted100640%_ '1) - (_%string-table-update!100613%_ _%default100614%_)) + _%table102370%_ + (##fx+ _%deleted102393%_ '1) + (_%string-table-update!102367%_ _%default102368%_)) ((lambda () (&raw-table-count-set! - _%tab100611%_ - (##fx+ (&raw-table-count _%tab100611%_) '1))))) + _%tab102365%_ + (##fx+ (&raw-table-count _%tab102365%_) '1))))) (begin (vector-set! - _%table100617%_ - _%probe100636%_ - _%key100612%_) + _%table102370%_ + _%probe102389%_ + _%key102366%_) (vector-set! - _%table100617%_ - (##fx+ _%probe100636%_ '1) - (_%string-table-update!100613%_ _%default100614%_)) + _%table102370%_ + (##fx+ _%probe102389%_ '1) + (_%string-table-update!102367%_ _%default102368%_)) ((lambda () (&raw-table-free-set! - _%tab100611%_ - (##fx- (&raw-table-free _%tab100611%_) '1)) + _%tab102365%_ + (##fx- (&raw-table-free _%tab102365%_) '1)) (&raw-table-count-set! - _%tab100611%_ - (##fx+ (&raw-table-count _%tab100611%_) '1)))))) - (if (eq? _%k100643%_ (macro-deleted-obj)) - (_%loop100633%_ - (let ((_%next-probe100650%_ - (fx+ _%start100629%_ - _%i100638%_ - (fx* _%i100638%_ _%i100638%_)))) - (##fxmodulo _%next-probe100650%_ _%size100623%_)) - (##fx+ _%i100638%_ '1) - (let ((_%$e100653%_ _%deleted100640%_)) - (if _%$e100653%_ _%$e100653%_ _%probe100636%_))) - (if (##string=? _%key100612%_ _%k100643%_) + _%tab102365%_ + (##fx+ (&raw-table-count _%tab102365%_) '1)))))) + (if (eq? _%k102396%_ (macro-deleted-obj)) + (_%loop102386%_ + (let ((_%next-probe102403%_ + (fx+ _%start102382%_ + _%i102391%_ + (fx* _%i102391%_ _%i102391%_)))) + (##fxmodulo _%next-probe102403%_ _%size102376%_)) + (##fx+ _%i102391%_ '1) + (let ((_%$e102406%_ _%deleted102393%_)) + (if _%$e102406%_ _%$e102406%_ _%probe102389%_))) + (if (##string=? _%key102366%_ _%k102396%_) (let () (vector-set! - _%table100617%_ - _%probe100636%_ - _%key100612%_) + _%table102370%_ + _%probe102389%_ + _%key102366%_) (vector-set! - _%table100617%_ - (##fx+ _%probe100636%_ '1) - (_%string-table-update!100613%_ + _%table102370%_ + (##fx+ _%probe102389%_ '1) + (_%string-table-update!102367%_ (vector-ref - _%table100617%_ - (##fx+ _%probe100636%_ '1))))) - (_%loop100633%_ - (let ((_%next-probe100658%_ - (fx+ _%start100629%_ - _%i100638%_ - (fx* _%i100638%_ _%i100638%_)))) + _%table102370%_ + (##fx+ _%probe102389%_ '1))))) + (_%loop102386%_ + (let ((_%next-probe102411%_ + (fx+ _%start102382%_ + _%i102391%_ + (fx* _%i102391%_ _%i102391%_)))) (##fxmodulo - _%next-probe100658%_ - _%size100623%_)) - (##fx+ _%i100638%_ '1) - _%deleted100640%_)))))))))) + _%next-probe102411%_ + _%size102376%_)) + (##fx+ _%i102391%_ '1) + _%deleted102393%_)))))))))) + (define string-table-update! + (lambda (_%tab102360%_ + _%key102361%_ + _%string-table-update!102362%_ + _%default102363%_) + (if (##fx< (&raw-table-free _%tab102360%_) + (##fxquotient + (vector-length (&raw-table-table _%tab102360%_)) + '4)) + (__raw-table-rehash! _%tab102360%_) + '#!void) + (__string-table-update! + _%tab102360%_ + _%key102361%_ + _%string-table-update!102362%_ + _%default102363%_))) + (define string-table-update!/lock + (lambda (_%tab102331%_ + _%key102332%_ + _%string-table-update!102333%_ + _%default102334%_) + (let ((_%lock102337%_ (&raw-table-lock _%tab102331%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again102342%_ ((_%spin102345%_ '0)) + (if (##fx= (##vector-cas! _%lock102337%_ '0 '1 '0) '0) + (##vector-set! _%lock102337%_ '1 (current-thread)) + (if (##fx< _%spin102345%_ '10) + (let () + (##thread-yield!) + (_%again102342%_ (##fx+ _%spin102345%_ '1))) + (let ((_%owner102351%_ (##vector-ref _%lock102337%_ '1))) + (if (eq? _%owner102351%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner102351%_) + (let () (##thread-yield!) (_%again102342%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r102357%_ + (_%string-table-update!102333%_ + _%tab102331%_ + _%key102332%_ + _%string-table-update!102333%_ + _%default102334%_))) + (##vector-set! _%lock102337%_ '1 '#f) + (##vector-cas! _%lock102337%_ '0 '0 '1) + _%$r102357%_)))) (define string-table-delete! - (lambda (_%tab100566%_ _%key100568%_) - (let ((_%table100571%_ (&raw-table-table _%tab100566%_)) - (_%seed100573%_ (&raw-table-seed _%tab100566%_))) - (let* ((_%h100576%_ - (fxxor (##string=?-hash _%key100568%_) _%seed100573%_)) - (_%size100579%_ (vector-length _%table100571%_)) - (_%entries100582%_ (##fxquotient _%size100579%_ '2)) - (_%start100585%_ + (lambda (_%tab102288%_ _%key102289%_) + (let ((_%table102291%_ (&raw-table-table _%tab102288%_)) + (_%seed102293%_ (&raw-table-seed _%tab102288%_))) + (let* ((_%h102296%_ + (fxxor (##string=?-hash _%key102289%_) _%seed102293%_)) + (_%size102299%_ (vector-length _%table102291%_)) + (_%entries102302%_ (##fxquotient _%size102299%_ '2)) + (_%start102305%_ (##fxarithmetic-shift-left - (##fxmodulo _%h100576%_ _%entries100582%_) + (##fxmodulo _%h102296%_ _%entries102302%_) '1))) - (let _%loop100589%_ ((_%probe100592%_ _%start100585%_) - (_%i100594%_ '1)) - (let ((_%k100597%_ (vector-ref _%table100571%_ _%probe100592%_))) - (if (eq? _%k100597%_ (macro-unused-obj)) + (let _%loop102309%_ ((_%probe102312%_ _%start102305%_) + (_%i102314%_ '1)) + (let ((_%k102317%_ (vector-ref _%table102291%_ _%probe102312%_))) + (if (eq? _%k102317%_ (macro-unused-obj)) '#!void - (if (eq? _%k100597%_ (macro-deleted-obj)) - (_%loop100589%_ - (let ((_%next-probe100602%_ - (fx+ _%start100585%_ - _%i100594%_ - (fx* _%i100594%_ _%i100594%_)))) - (##fxmodulo _%next-probe100602%_ _%size100579%_)) - (##fx+ _%i100594%_ '1)) - (if (##string=? _%key100568%_ _%k100597%_) + (if (eq? _%k102317%_ (macro-deleted-obj)) + (_%loop102309%_ + (let ((_%next-probe102322%_ + (fx+ _%start102305%_ + _%i102314%_ + (fx* _%i102314%_ _%i102314%_)))) + (##fxmodulo _%next-probe102322%_ _%size102299%_)) + (##fx+ _%i102314%_ '1)) + (if (##string=? _%key102289%_ _%k102317%_) (let () (vector-set! - _%table100571%_ - _%probe100592%_ + _%table102291%_ + _%probe102312%_ (macro-deleted-obj)) (vector-set! - _%table100571%_ - (##fx+ _%probe100592%_ '1) + _%table102291%_ + (##fx+ _%probe102312%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab100566%_ - (##fx- (&raw-table-count _%tab100566%_) + _%tab102288%_ + (##fx- (&raw-table-count _%tab102288%_) '1))))) - (_%loop100589%_ - (let ((_%next-probe100608%_ - (fx+ _%start100585%_ - _%i100594%_ - (fx* _%i100594%_ _%i100594%_)))) + (_%loop102309%_ + (let ((_%next-probe102328%_ + (fx+ _%start102305%_ + _%i102314%_ + (fx* _%i102314%_ _%i102314%_)))) (##fxmodulo - _%next-probe100608%_ - _%size100579%_)) - (##fx+ _%i100594%_ '1))))))))))) + _%next-probe102328%_ + _%size102299%_)) + (##fx+ _%i102314%_ '1))))))))))) + (define string-table-delete!/lock + (lambda (_%tab102260%_ _%key102262%_) + (let ((_%lock102265%_ (&raw-table-lock _%tab102260%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again102270%_ ((_%spin102273%_ '0)) + (if (##fx= (##vector-cas! _%lock102265%_ '0 '1 '0) '0) + (##vector-set! _%lock102265%_ '1 (current-thread)) + (if (##fx< _%spin102273%_ '10) + (let () + (##thread-yield!) + (_%again102270%_ (##fx+ _%spin102273%_ '1))) + (let ((_%owner102279%_ (##vector-ref _%lock102265%_ '1))) + (if (eq? _%owner102279%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner102279%_) + (let () (##thread-yield!) (_%again102270%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r102285%_ + (string-table-delete! _%tab102260%_ _%key102262%_))) + (##vector-set! _%lock102265%_ '1 '#f) + (##vector-cas! _%lock102265%_ '0 '0 '1) + _%$r102285%_)))) (define make-immediate-table__% - (lambda (_%size-hint100547%_ _%seed100549%_) - (make-raw-table__% - _%size-hint100547%_ + (lambda (_%size-hint102242%_ _%seed102243%_) + (make-raw-table__1 + _%size-hint102242%_ immediate-hash eq? - _%seed100549%_))) + _%seed102243%_))) (define make-immediate-table__0 (lambda () - (let* ((_%size-hint100555%_ '#f) (_%seed100557%_ '0)) - (make-immediate-table__% _%size-hint100555%_ _%seed100557%_)))) + (let* ((_%size-hint102249%_ '#f) (_%seed102251%_ '0)) + (make-immediate-table__% _%size-hint102249%_ _%seed102251%_)))) (define make-immediate-table__1 - (lambda (_%size-hint100559%_) - (let ((_%seed100561%_ '0)) - (make-immediate-table__% _%size-hint100559%_ _%seed100561%_)))) + (lambda (_%size-hint102253%_) + (let ((_%seed102255%_ '0)) + (make-immediate-table__% _%size-hint102253%_ _%seed102255%_)))) (define make-immediate-table - (lambda _g101786_ - (let ((_g101787_ (##length _g101786_))) - (cond ((##fx= _g101787_ 0) (apply make-immediate-table__0 _g101786_)) - ((##fx= _g101787_ 1) (apply make-immediate-table__1 _g101786_)) - ((##fx= _g101787_ 2) (apply make-immediate-table__% _g101786_)) + (lambda _g104245_ + (let ((_g104246_ (##length _g104245_))) + (cond ((##fx= _g104246_ 0) (apply make-immediate-table__0 _g104245_)) + ((##fx= _g104246_ 1) (apply make-immediate-table__1 _g104245_)) + ((##fx= _g104246_ 2) (apply make-immediate-table__% _g104245_)) (else (##raise-wrong-number-of-arguments-exception make-immediate-table - _g101786_)))))) + _g104245_)))))) + (define make-immediate-table/lock__% + (lambda (_%size-hint102222%_ _%seed102224%_) + (make-raw-table/lock__% + _%size-hint102222%_ + immediate-hash + eq? + _%seed102224%_))) + (define make-immediate-table/lock__0 + (lambda () + (let* ((_%size-hint102230%_ '#f) (_%seed102232%_ '0)) + (make-immediate-table/lock__% _%size-hint102230%_ _%seed102232%_)))) + (define make-immediate-table/lock__1 + (lambda (_%size-hint102234%_) + (let ((_%seed102236%_ '0)) + (make-immediate-table/lock__% _%size-hint102234%_ _%seed102236%_)))) + (define make-immediate-table/lock + (lambda _g104247_ + (let ((_g104248_ (##length _g104247_))) + (cond ((##fx= _g104248_ 0) + (apply make-immediate-table/lock__0 _g104247_)) + ((##fx= _g104248_ 1) + (apply make-immediate-table/lock__1 _g104247_)) + ((##fx= _g104248_ 2) + (apply make-immediate-table/lock__% _g104247_)) + (else + (##raise-wrong-number-of-arguments-exception + make-immediate-table/lock + _g104247_)))))) (define immediate-table-ref - (lambda (_%tab100500%_ _%key100501%_ _%default100502%_) - (let ((_%table100504%_ (&raw-table-table _%tab100500%_)) - (_%seed100505%_ (&raw-table-seed _%tab100500%_))) - (let* ((_%h100507%_ - (fxxor (immediate-hash _%key100501%_) _%seed100505%_)) - (_%size100510%_ (vector-length _%table100504%_)) - (_%entries100513%_ (##fxquotient _%size100510%_ '2)) - (_%start100516%_ + (lambda (_%tab102175%_ _%key102176%_ _%default102177%_) + (let ((_%table102179%_ (&raw-table-table _%tab102175%_)) + (_%seed102180%_ (&raw-table-seed _%tab102175%_))) + (let* ((_%h102182%_ + (fxxor (immediate-hash _%key102176%_) _%seed102180%_)) + (_%size102185%_ (vector-length _%table102179%_)) + (_%entries102188%_ (##fxquotient _%size102185%_ '2)) + (_%start102191%_ (##fxarithmetic-shift-left - (##fxmodulo _%h100507%_ _%entries100513%_) + (##fxmodulo _%h102182%_ _%entries102188%_) '1))) - (let _%loop100520%_ ((_%probe100523%_ _%start100516%_) - (_%i100525%_ '1) - (_%deleted100527%_ '#f)) - (let ((_%k100530%_ (vector-ref _%table100504%_ _%probe100523%_))) - (if (eq? _%k100530%_ (macro-unused-obj)) - _%default100502%_ - (if (eq? _%k100530%_ (macro-deleted-obj)) - (_%loop100520%_ - (let ((_%next-probe100535%_ - (fx+ _%start100516%_ - _%i100525%_ - (fx* _%i100525%_ _%i100525%_)))) - (##fxmodulo _%next-probe100535%_ _%size100510%_)) - (##fx+ _%i100525%_ '1) - (let ((_%$e100538%_ _%deleted100527%_)) - (if _%$e100538%_ _%$e100538%_ _%probe100523%_))) - (if (eq? _%key100501%_ _%k100530%_) + (let _%loop102195%_ ((_%probe102198%_ _%start102191%_) + (_%i102200%_ '1) + (_%deleted102202%_ '#f)) + (let ((_%k102205%_ (vector-ref _%table102179%_ _%probe102198%_))) + (if (eq? _%k102205%_ (macro-unused-obj)) + _%default102177%_ + (if (eq? _%k102205%_ (macro-deleted-obj)) + (_%loop102195%_ + (let ((_%next-probe102210%_ + (fx+ _%start102191%_ + _%i102200%_ + (fx* _%i102200%_ _%i102200%_)))) + (##fxmodulo _%next-probe102210%_ _%size102185%_)) + (##fx+ _%i102200%_ '1) + (let ((_%$e102213%_ _%deleted102202%_)) + (if _%$e102213%_ _%$e102213%_ _%probe102198%_))) + (if (eq? _%key102176%_ _%k102205%_) (vector-ref - _%table100504%_ - (##fx+ _%probe100523%_ '1)) - (_%loop100520%_ - (let ((_%next-probe100543%_ - (fx+ _%start100516%_ - _%i100525%_ - (fx* _%i100525%_ _%i100525%_)))) + _%table102179%_ + (##fx+ _%probe102198%_ '1)) + (_%loop102195%_ + (let ((_%next-probe102218%_ + (fx+ _%start102191%_ + _%i102200%_ + (fx* _%i102200%_ _%i102200%_)))) (##fxmodulo - _%next-probe100543%_ - _%size100510%_)) - (##fx+ _%i100525%_ '1) - _%deleted100527%_)))))))))) - (define immediate-table-set! - (lambda (_%tab100496%_ _%key100497%_ _%value100498%_) - (if (##fx< (&raw-table-free _%tab100496%_) - (##fxquotient - (vector-length (&raw-table-table _%tab100496%_)) - '4)) - (__raw-table-rehash! _%tab100496%_) - '#!void) - (__immediate-table-set! _%tab100496%_ _%key100497%_ _%value100498%_))) + _%next-probe102218%_ + _%size102185%_)) + (##fx+ _%i102200%_ '1) + _%deleted102202%_)))))))))) + (define immediate-table-ref/lock + (lambda (_%tab102148%_ _%key102149%_ _%default102150%_) + (let ((_%lock102152%_ (&raw-table-lock _%tab102148%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again102157%_ ((_%spin102160%_ '0)) + (if (##fx= (##vector-cas! _%lock102152%_ '0 '1 '0) '0) + (##vector-set! _%lock102152%_ '1 (current-thread)) + (if (##fx< _%spin102160%_ '10) + (let () + (##thread-yield!) + (_%again102157%_ (##fx+ _%spin102160%_ '1))) + (let ((_%owner102166%_ (##vector-ref _%lock102152%_ '1))) + (if (eq? _%owner102166%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner102166%_) + (let () (##thread-yield!) (_%again102157%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r102172%_ + (immediate-table-ref + _%tab102148%_ + _%key102149%_ + _%default102150%_))) + (##vector-set! _%lock102152%_ '1 '#f) + (##vector-cas! _%lock102152%_ '0 '0 '1) + _%$r102172%_)))) (define __immediate-table-set! - (lambda (_%tab100447%_ _%key100448%_ _%value100449%_) - (let ((_%table100452%_ (&raw-table-table _%tab100447%_)) - (_%seed100453%_ (&raw-table-seed _%tab100447%_))) - (let* ((_%h100455%_ - (fxxor (immediate-hash _%key100448%_) _%seed100453%_)) - (_%size100458%_ (vector-length _%table100452%_)) - (_%entries100461%_ (##fxquotient _%size100458%_ '2)) - (_%start100464%_ + (lambda (_%tab102100%_ _%key102101%_ _%value102102%_) + (let ((_%table102104%_ (&raw-table-table _%tab102100%_)) + (_%seed102105%_ (&raw-table-seed _%tab102100%_))) + (let* ((_%h102107%_ + (fxxor (immediate-hash _%key102101%_) _%seed102105%_)) + (_%size102110%_ (vector-length _%table102104%_)) + (_%entries102113%_ (##fxquotient _%size102110%_ '2)) + (_%start102116%_ (##fxarithmetic-shift-left - (##fxmodulo _%h100455%_ _%entries100461%_) + (##fxmodulo _%h102107%_ _%entries102113%_) '1))) - (let _%loop100468%_ ((_%probe100471%_ _%start100464%_) - (_%i100473%_ '1) - (_%deleted100475%_ '#f)) - (let ((_%k100478%_ (vector-ref _%table100452%_ _%probe100471%_))) - (if (eq? _%k100478%_ (macro-unused-obj)) - (if _%deleted100475%_ + (let _%loop102120%_ ((_%probe102123%_ _%start102116%_) + (_%i102125%_ '1) + (_%deleted102127%_ '#f)) + (let ((_%k102130%_ (vector-ref _%table102104%_ _%probe102123%_))) + (if (eq? _%k102130%_ (macro-unused-obj)) + (if _%deleted102127%_ (begin (vector-set! - _%table100452%_ - _%deleted100475%_ - _%key100448%_) + _%table102104%_ + _%deleted102127%_ + _%key102101%_) (vector-set! - _%table100452%_ - (##fx+ _%deleted100475%_ '1) - _%value100449%_) + _%table102104%_ + (##fx+ _%deleted102127%_ '1) + _%value102102%_) ((lambda () (&raw-table-count-set! - _%tab100447%_ - (##fx+ (&raw-table-count _%tab100447%_) '1))))) + _%tab102100%_ + (##fx+ (&raw-table-count _%tab102100%_) '1))))) (begin (vector-set! - _%table100452%_ - _%probe100471%_ - _%key100448%_) + _%table102104%_ + _%probe102123%_ + _%key102101%_) (vector-set! - _%table100452%_ - (##fx+ _%probe100471%_ '1) - _%value100449%_) + _%table102104%_ + (##fx+ _%probe102123%_ '1) + _%value102102%_) ((lambda () (&raw-table-free-set! - _%tab100447%_ - (##fx- (&raw-table-free _%tab100447%_) '1)) + _%tab102100%_ + (##fx- (&raw-table-free _%tab102100%_) '1)) (&raw-table-count-set! - _%tab100447%_ - (##fx+ (&raw-table-count _%tab100447%_) '1)))))) - (if (eq? _%k100478%_ (macro-deleted-obj)) - (_%loop100468%_ - (let ((_%next-probe100485%_ - (fx+ _%start100464%_ - _%i100473%_ - (fx* _%i100473%_ _%i100473%_)))) - (##fxmodulo _%next-probe100485%_ _%size100458%_)) - (##fx+ _%i100473%_ '1) - (let ((_%$e100488%_ _%deleted100475%_)) - (if _%$e100488%_ _%$e100488%_ _%probe100471%_))) - (if (eq? _%key100448%_ _%k100478%_) + _%tab102100%_ + (##fx+ (&raw-table-count _%tab102100%_) '1)))))) + (if (eq? _%k102130%_ (macro-deleted-obj)) + (_%loop102120%_ + (let ((_%next-probe102137%_ + (fx+ _%start102116%_ + _%i102125%_ + (fx* _%i102125%_ _%i102125%_)))) + (##fxmodulo _%next-probe102137%_ _%size102110%_)) + (##fx+ _%i102125%_ '1) + (let ((_%$e102140%_ _%deleted102127%_)) + (if _%$e102140%_ _%$e102140%_ _%probe102123%_))) + (if (eq? _%key102101%_ _%k102130%_) (let () (vector-set! - _%table100452%_ - _%probe100471%_ - _%key100448%_) + _%table102104%_ + _%probe102123%_ + _%key102101%_) (vector-set! - _%table100452%_ - (##fx+ _%probe100471%_ '1) - _%value100449%_)) - (_%loop100468%_ - (let ((_%next-probe100493%_ - (fx+ _%start100464%_ - _%i100473%_ - (fx* _%i100473%_ _%i100473%_)))) + _%table102104%_ + (##fx+ _%probe102123%_ '1) + _%value102102%_)) + (_%loop102120%_ + (let ((_%next-probe102145%_ + (fx+ _%start102116%_ + _%i102125%_ + (fx* _%i102125%_ _%i102125%_)))) (##fxmodulo - _%next-probe100493%_ - _%size100458%_)) - (##fx+ _%i100473%_ '1) - _%deleted100475%_)))))))))) - (define immediate-table-update! - (lambda (_%tab100442%_ - _%key100443%_ - _%immediate-table-update!100444%_ - _%default100445%_) - (if (##fx< (&raw-table-free _%tab100442%_) + _%next-probe102145%_ + _%size102110%_)) + (##fx+ _%i102125%_ '1) + _%deleted102127%_)))))))))) + (define immediate-table-set! + (lambda (_%tab102096%_ _%key102097%_ _%value102098%_) + (if (##fx< (&raw-table-free _%tab102096%_) (##fxquotient - (vector-length (&raw-table-table _%tab100442%_)) + (vector-length (&raw-table-table _%tab102096%_)) '4)) - (__raw-table-rehash! _%tab100442%_) + (__raw-table-rehash! _%tab102096%_) '#!void) - (__immediate-table-update! - _%tab100442%_ - _%key100443%_ - _%immediate-table-update!100444%_ - _%default100445%_))) + (__immediate-table-set! _%tab102096%_ _%key102097%_ _%value102098%_))) + (define immediate-table-set!/lock + (lambda (_%tab102068%_ _%key102069%_ _%value102070%_) + (let ((_%lock102073%_ (&raw-table-lock _%tab102068%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again102078%_ ((_%spin102081%_ '0)) + (if (##fx= (##vector-cas! _%lock102073%_ '0 '1 '0) '0) + (##vector-set! _%lock102073%_ '1 (current-thread)) + (if (##fx< _%spin102081%_ '10) + (let () + (##thread-yield!) + (_%again102078%_ (##fx+ _%spin102081%_ '1))) + (let ((_%owner102087%_ (##vector-ref _%lock102073%_ '1))) + (if (eq? _%owner102087%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner102087%_) + (let () (##thread-yield!) (_%again102078%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r102093%_ + (immediate-table-set! + _%tab102068%_ + _%key102069%_ + _%value102070%_))) + (##vector-set! _%lock102073%_ '1 '#f) + (##vector-cas! _%lock102073%_ '0 '0 '1) + _%$r102093%_)))) (define __immediate-table-update! - (lambda (_%tab100392%_ - _%key100393%_ - _%immediate-table-update!100394%_ - _%default100395%_) - (let ((_%table100398%_ (&raw-table-table _%tab100392%_)) - (_%seed100399%_ (&raw-table-seed _%tab100392%_))) - (let* ((_%h100401%_ - (fxxor (immediate-hash _%key100393%_) _%seed100399%_)) - (_%size100404%_ (vector-length _%table100398%_)) - (_%entries100407%_ (##fxquotient _%size100404%_ '2)) - (_%start100410%_ + (lambda (_%tab102019%_ + _%key102020%_ + _%immediate-table-update!102021%_ + _%default102022%_) + (let ((_%table102024%_ (&raw-table-table _%tab102019%_)) + (_%seed102025%_ (&raw-table-seed _%tab102019%_))) + (let* ((_%h102027%_ + (fxxor (immediate-hash _%key102020%_) _%seed102025%_)) + (_%size102030%_ (vector-length _%table102024%_)) + (_%entries102033%_ (##fxquotient _%size102030%_ '2)) + (_%start102036%_ (##fxarithmetic-shift-left - (##fxmodulo _%h100401%_ _%entries100407%_) + (##fxmodulo _%h102027%_ _%entries102033%_) '1))) - (let _%loop100414%_ ((_%probe100417%_ _%start100410%_) - (_%i100419%_ '1) - (_%deleted100421%_ '#f)) - (let ((_%k100424%_ (vector-ref _%table100398%_ _%probe100417%_))) - (if (eq? _%k100424%_ (macro-unused-obj)) - (if _%deleted100421%_ + (let _%loop102040%_ ((_%probe102043%_ _%start102036%_) + (_%i102045%_ '1) + (_%deleted102047%_ '#f)) + (let ((_%k102050%_ (vector-ref _%table102024%_ _%probe102043%_))) + (if (eq? _%k102050%_ (macro-unused-obj)) + (if _%deleted102047%_ (begin (vector-set! - _%table100398%_ - _%deleted100421%_ - _%key100393%_) + _%table102024%_ + _%deleted102047%_ + _%key102020%_) (vector-set! - _%table100398%_ - (##fx+ _%deleted100421%_ '1) - (_%immediate-table-update!100394%_ - _%default100395%_)) + _%table102024%_ + (##fx+ _%deleted102047%_ '1) + (_%immediate-table-update!102021%_ + _%default102022%_)) ((lambda () (&raw-table-count-set! - _%tab100392%_ - (##fx+ (&raw-table-count _%tab100392%_) '1))))) + _%tab102019%_ + (##fx+ (&raw-table-count _%tab102019%_) '1))))) (begin (vector-set! - _%table100398%_ - _%probe100417%_ - _%key100393%_) + _%table102024%_ + _%probe102043%_ + _%key102020%_) (vector-set! - _%table100398%_ - (##fx+ _%probe100417%_ '1) - (_%immediate-table-update!100394%_ - _%default100395%_)) + _%table102024%_ + (##fx+ _%probe102043%_ '1) + (_%immediate-table-update!102021%_ + _%default102022%_)) ((lambda () (&raw-table-free-set! - _%tab100392%_ - (##fx- (&raw-table-free _%tab100392%_) '1)) + _%tab102019%_ + (##fx- (&raw-table-free _%tab102019%_) '1)) (&raw-table-count-set! - _%tab100392%_ - (##fx+ (&raw-table-count _%tab100392%_) '1)))))) - (if (eq? _%k100424%_ (macro-deleted-obj)) - (_%loop100414%_ - (let ((_%next-probe100431%_ - (fx+ _%start100410%_ - _%i100419%_ - (fx* _%i100419%_ _%i100419%_)))) - (##fxmodulo _%next-probe100431%_ _%size100404%_)) - (##fx+ _%i100419%_ '1) - (let ((_%$e100434%_ _%deleted100421%_)) - (if _%$e100434%_ _%$e100434%_ _%probe100417%_))) - (if (eq? _%key100393%_ _%k100424%_) + _%tab102019%_ + (##fx+ (&raw-table-count _%tab102019%_) '1)))))) + (if (eq? _%k102050%_ (macro-deleted-obj)) + (_%loop102040%_ + (let ((_%next-probe102057%_ + (fx+ _%start102036%_ + _%i102045%_ + (fx* _%i102045%_ _%i102045%_)))) + (##fxmodulo _%next-probe102057%_ _%size102030%_)) + (##fx+ _%i102045%_ '1) + (let ((_%$e102060%_ _%deleted102047%_)) + (if _%$e102060%_ _%$e102060%_ _%probe102043%_))) + (if (eq? _%key102020%_ _%k102050%_) (let () (vector-set! - _%table100398%_ - _%probe100417%_ - _%key100393%_) + _%table102024%_ + _%probe102043%_ + _%key102020%_) (vector-set! - _%table100398%_ - (##fx+ _%probe100417%_ '1) - (_%immediate-table-update!100394%_ + _%table102024%_ + (##fx+ _%probe102043%_ '1) + (_%immediate-table-update!102021%_ (vector-ref - _%table100398%_ - (##fx+ _%probe100417%_ '1))))) - (_%loop100414%_ - (let ((_%next-probe100439%_ - (fx+ _%start100410%_ - _%i100419%_ - (fx* _%i100419%_ _%i100419%_)))) + _%table102024%_ + (##fx+ _%probe102043%_ '1))))) + (_%loop102040%_ + (let ((_%next-probe102065%_ + (fx+ _%start102036%_ + _%i102045%_ + (fx* _%i102045%_ _%i102045%_)))) (##fxmodulo - _%next-probe100439%_ - _%size100404%_)) - (##fx+ _%i100419%_ '1) - _%deleted100421%_)))))))))) + _%next-probe102065%_ + _%size102030%_)) + (##fx+ _%i102045%_ '1) + _%deleted102047%_)))))))))) + (define immediate-table-update! + (lambda (_%tab102014%_ + _%key102015%_ + _%immediate-table-update!102016%_ + _%default102017%_) + (if (##fx< (&raw-table-free _%tab102014%_) + (##fxquotient + (vector-length (&raw-table-table _%tab102014%_)) + '4)) + (__raw-table-rehash! _%tab102014%_) + '#!void) + (__immediate-table-update! + _%tab102014%_ + _%key102015%_ + _%immediate-table-update!102016%_ + _%default102017%_))) + (define immediate-table-update!/lock + (lambda (_%tab101985%_ + _%key101986%_ + _%immediate-table-update!101987%_ + _%default101988%_) + (let ((_%lock101991%_ (&raw-table-lock _%tab101985%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again101996%_ ((_%spin101999%_ '0)) + (if (##fx= (##vector-cas! _%lock101991%_ '0 '1 '0) '0) + (##vector-set! _%lock101991%_ '1 (current-thread)) + (if (##fx< _%spin101999%_ '10) + (let () + (##thread-yield!) + (_%again101996%_ (##fx+ _%spin101999%_ '1))) + (let ((_%owner102005%_ (##vector-ref _%lock101991%_ '1))) + (if (eq? _%owner102005%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner102005%_) + (let () (##thread-yield!) (_%again101996%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r102011%_ + (_%immediate-table-update!101987%_ + _%tab101985%_ + _%key101986%_ + _%immediate-table-update!101987%_ + _%default101988%_))) + (##vector-set! _%lock101991%_ '1 '#f) + (##vector-cas! _%lock101991%_ '0 '0 '1) + _%$r102011%_)))) (define immediate-table-delete! - (lambda (_%tab100347%_ _%key100349%_) - (let ((_%table100352%_ (&raw-table-table _%tab100347%_)) - (_%seed100354%_ (&raw-table-seed _%tab100347%_))) - (let* ((_%h100357%_ - (fxxor (immediate-hash _%key100349%_) _%seed100354%_)) - (_%size100360%_ (vector-length _%table100352%_)) - (_%entries100363%_ (##fxquotient _%size100360%_ '2)) - (_%start100366%_ + (lambda (_%tab101942%_ _%key101943%_) + (let ((_%table101945%_ (&raw-table-table _%tab101942%_)) + (_%seed101947%_ (&raw-table-seed _%tab101942%_))) + (let* ((_%h101950%_ + (fxxor (immediate-hash _%key101943%_) _%seed101947%_)) + (_%size101953%_ (vector-length _%table101945%_)) + (_%entries101956%_ (##fxquotient _%size101953%_ '2)) + (_%start101959%_ (##fxarithmetic-shift-left - (##fxmodulo _%h100357%_ _%entries100363%_) + (##fxmodulo _%h101950%_ _%entries101956%_) '1))) - (let _%loop100370%_ ((_%probe100373%_ _%start100366%_) - (_%i100375%_ '1)) - (let ((_%k100378%_ (vector-ref _%table100352%_ _%probe100373%_))) - (if (eq? _%k100378%_ (macro-unused-obj)) + (let _%loop101963%_ ((_%probe101966%_ _%start101959%_) + (_%i101968%_ '1)) + (let ((_%k101971%_ (vector-ref _%table101945%_ _%probe101966%_))) + (if (eq? _%k101971%_ (macro-unused-obj)) '#!void - (if (eq? _%k100378%_ (macro-deleted-obj)) - (_%loop100370%_ - (let ((_%next-probe100383%_ - (fx+ _%start100366%_ - _%i100375%_ - (fx* _%i100375%_ _%i100375%_)))) - (##fxmodulo _%next-probe100383%_ _%size100360%_)) - (##fx+ _%i100375%_ '1)) - (if (eq? _%key100349%_ _%k100378%_) + (if (eq? _%k101971%_ (macro-deleted-obj)) + (_%loop101963%_ + (let ((_%next-probe101976%_ + (fx+ _%start101959%_ + _%i101968%_ + (fx* _%i101968%_ _%i101968%_)))) + (##fxmodulo _%next-probe101976%_ _%size101953%_)) + (##fx+ _%i101968%_ '1)) + (if (eq? _%key101943%_ _%k101971%_) (let () (vector-set! - _%table100352%_ - _%probe100373%_ + _%table101945%_ + _%probe101966%_ (macro-deleted-obj)) (vector-set! - _%table100352%_ - (##fx+ _%probe100373%_ '1) + _%table101945%_ + (##fx+ _%probe101966%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab100347%_ - (##fx- (&raw-table-count _%tab100347%_) + _%tab101942%_ + (##fx- (&raw-table-count _%tab101942%_) '1))))) - (_%loop100370%_ - (let ((_%next-probe100389%_ - (fx+ _%start100366%_ - _%i100375%_ - (fx* _%i100375%_ _%i100375%_)))) + (_%loop101963%_ + (let ((_%next-probe101982%_ + (fx+ _%start101959%_ + _%i101968%_ + (fx* _%i101968%_ _%i101968%_)))) (##fxmodulo - _%next-probe100389%_ - _%size100360%_)) - (##fx+ _%i100375%_ '1))))))))))) + _%next-probe101982%_ + _%size101953%_)) + (##fx+ _%i101968%_ '1))))))))))) + (define immediate-table-delete!/lock + (lambda (_%tab101914%_ _%key101916%_) + (let ((_%lock101919%_ (&raw-table-lock _%tab101914%_))) + (let () + (declare (not interrupts-enabled)) + (let _%again101924%_ ((_%spin101927%_ '0)) + (if (##fx= (##vector-cas! _%lock101919%_ '0 '1 '0) '0) + (##vector-set! _%lock101919%_ '1 (current-thread)) + (if (##fx< _%spin101927%_ '10) + (let () + (##thread-yield!) + (_%again101924%_ (##fx+ _%spin101927%_ '1))) + (let ((_%owner101933%_ (##vector-ref _%lock101919%_ '1))) + (if (eq? _%owner101933%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner101933%_) + (let () (##thread-yield!) (_%again101924%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r101939%_ + (immediate-table-delete! _%tab101914%_ _%key101916%_))) + (##vector-set! _%lock101919%_ '1 '#f) + (##vector-cas! _%lock101919%_ '0 '0 '1) + _%$r101939%_)))) (define __gc-table::t.id 'gerbil#__gc-table::t) (define __gc-table::t (##structure @@ -2054,253 +2970,553 @@ 'gc-table '26 '#f - '#(gcht 5 #f immediate 5 #f))) + '#(gcht 5 #f immediate 5 #f lock 5 #f))) (define __gc-table-loads '#f64(.45 .6363961030678927 .9)) (define &gc-table-gcht - (lambda (_%tab100345%_) + (lambda (_%tab101912%_) (##unchecked-structure-ref - _%tab100345%_ + _%tab101912%_ '1 __gc-table::t 'gc-table-gcht))) (define &gc-table-immediate - (lambda (_%tab100343%_) + (lambda (_%tab101910%_) (##unchecked-structure-ref - _%tab100343%_ + _%tab101910%_ '2 __gc-table::t 'gc-table-immediate))) + (define &gc-table-lock + (lambda (_%tab101908%_) + (##unchecked-structure-ref + _%tab101908%_ + '3 + __gc-table::t + 'gc-table-lock))) (define &gc-table-gcht-set! - (lambda (_%tab100340%_ _%val100341%_) + (lambda (_%tab101905%_ _%val101906%_) (##unchecked-structure-set! - _%tab100340%_ - _%val100341%_ + _%tab101905%_ + _%val101906%_ '1 __gc-table::t 'gc-table-gcht-set!))) (define &gc-table-immediate-set! - (lambda (_%tab100337%_ _%val100338%_) + (lambda (_%tab101902%_ _%val101903%_) (##unchecked-structure-set! - _%tab100337%_ - _%val100338%_ + _%tab101902%_ + _%val101903%_ '2 __gc-table::t 'gc-table-immediate-set!))) + (define &gc-table-lock-set! + (lambda (_%tab101899%_ _%val101900%_) + (##unchecked-structure-set! + _%tab101899%_ + _%val101900%_ + '3 + __gc-table::t + 'gc-table-lock-set!))) (define make-gc-table__% - (lambda (_%size-hint100313%_ _%klass100314%_ _%flags100315%_) - (let ((_%gcht100317%_ + (lambda (_%size-hint101863%_ + _%klass101864%_ + _%flags101865%_ + _%lock101866%_) + (let ((_%gcht101868%_ (__gc-table-new - (if (fixnum? _%size-hint100313%_) _%size-hint100313%_ '16) - _%flags100315%_))) - (##structure _%klass100314%_ _%gcht100317%_ '#f)))) + (if (fixnum? _%size-hint101863%_) _%size-hint101863%_ '16) + _%flags101865%_))) + (##structure _%klass101864%_ _%gcht101868%_ '#f _%lock101866%_)))) (define make-gc-table__0 - (lambda (_%size-hint100322%_) - (let* ((_%klass100324%_ __gc-table::t) (_%flags100326%_ '0)) + (lambda (_%size-hint101873%_) + (let* ((_%klass101875%_ __gc-table::t) + (_%flags101877%_ '0) + (_%lock101879%_ '#f)) (make-gc-table__% - _%size-hint100322%_ - _%klass100324%_ - _%flags100326%_)))) + _%size-hint101873%_ + _%klass101875%_ + _%flags101877%_ + _%lock101879%_)))) (define make-gc-table__1 - (lambda (_%size-hint100328%_ _%klass100329%_) - (let ((_%flags100331%_ '0)) + (lambda (_%size-hint101881%_ _%klass101882%_) + (let* ((_%flags101884%_ '0) (_%lock101886%_ '#f)) + (make-gc-table__% + _%size-hint101881%_ + _%klass101882%_ + _%flags101884%_ + _%lock101886%_)))) + (define make-gc-table__2 + (lambda (_%size-hint101888%_ _%klass101889%_ _%flags101890%_) + (let ((_%lock101892%_ '#f)) (make-gc-table__% - _%size-hint100328%_ - _%klass100329%_ - _%flags100331%_)))) + _%size-hint101888%_ + _%klass101889%_ + _%flags101890%_ + _%lock101892%_)))) (define make-gc-table - (lambda _g101788_ - (let ((_g101789_ (##length _g101788_))) - (cond ((##fx= _g101789_ 1) (apply make-gc-table__0 _g101788_)) - ((##fx= _g101789_ 2) (apply make-gc-table__1 _g101788_)) - ((##fx= _g101789_ 3) (apply make-gc-table__% _g101788_)) + (lambda _g104249_ + (let ((_g104250_ (##length _g104249_))) + (cond ((##fx= _g104250_ 1) (apply make-gc-table__0 _g104249_)) + ((##fx= _g104250_ 2) (apply make-gc-table__1 _g104249_)) + ((##fx= _g104250_ 3) (apply make-gc-table__2 _g104249_)) + ((##fx= _g104250_ 4) (apply make-gc-table__% _g104249_)) (else (##raise-wrong-number-of-arguments-exception make-gc-table - _g101788_)))))) + _g104249_)))))) + (define make-gc-table/lock__% + (lambda (_%size-hint101840%_ _%klass101841%_ _%flags101842%_) + (make-gc-table__% + _%size-hint101840%_ + _%klass101841%_ + _%flags101842%_ + (vector '0 '#f)))) + (define make-gc-table/lock__0 + (lambda (_%size-hint101847%_) + (let* ((_%klass101849%_ __gc-table::t) (_%flags101851%_ '0)) + (make-gc-table/lock__% + _%size-hint101847%_ + _%klass101849%_ + _%flags101851%_)))) + (define make-gc-table/lock__1 + (lambda (_%size-hint101853%_ _%klass101854%_) + (let ((_%flags101856%_ '0)) + (make-gc-table/lock__% + _%size-hint101853%_ + _%klass101854%_ + _%flags101856%_)))) + (define make-gc-table/lock + (lambda _g104251_ + (let ((_g104252_ (##length _g104251_))) + (cond ((##fx= _g104252_ 1) (apply make-gc-table/lock__0 _g104251_)) + ((##fx= _g104252_ 2) (apply make-gc-table/lock__1 _g104251_)) + ((##fx= _g104252_ 3) (apply make-gc-table/lock__% _g104251_)) + (else + (##raise-wrong-number-of-arguments-exception + make-gc-table/lock + _g104251_)))))) (define __gc-table-immediate - (lambda (_%tab100304%_) - (let ((_%$e100306%_ (&gc-table-immediate _%tab100304%_))) - (if _%$e100306%_ - _%$e100306%_ - (let ((_%immediate100310%_ (make-immediate-table__% '#f '0))) - (&gc-table-immediate-set! _%tab100304%_ _%immediate100310%_) - _%immediate100310%_))))) + (lambda (_%tab101831%_) + (let ((_%$e101833%_ (&gc-table-immediate _%tab101831%_))) + (if _%$e101833%_ + _%$e101833%_ + (let ((_%immediate101837%_ (make-immediate-table__% '#f '0))) + (&gc-table-immediate-set! _%tab101831%_ _%immediate101837%_) + _%immediate101837%_))))) (define __gc-table-new - (lambda (_%size100294%_ _%flags100295%_) - (let* ((_%flags100297%_ - (##fxand _%flags100295%_ + (lambda (_%size101821%_ _%flags101822%_) + (let* ((_%flags101824%_ + (##fxand _%flags101822%_ (fxnot (macro-gc-hash-table-flag-need-rehash)))) - (_%flags100299%_ - (fxior _%flags100297%_ + (_%flags101826%_ + (fxior _%flags101824%_ (macro-gc-hash-table-flag-mem-alloc-keys))) - (_%gcht100301%_ + (_%gcht101828%_ (##gc-hash-table-allocate - _%size100294%_ - _%flags100299%_ + _%size101821%_ + _%flags101826%_ __gc-table-loads))) - _%gcht100301%_))) + _%gcht101828%_))) (define __gc-table-e - (lambda (_%tab100289%_) + (lambda (_%tab101816%_) (declare (not interrupts-enabled)) - (let ((_%gcht100292%_ (&gc-table-gcht _%tab100289%_))) + (let ((_%gcht101819%_ (&gc-table-gcht _%tab101816%_))) (if (##fx= '0 - (fxand (macro-gc-hash-table-flags _%gcht100292%_) + (fxand (macro-gc-hash-table-flags _%gcht101819%_) (macro-gc-hash-table-flag-need-rehash))) - _%gcht100292%_ + _%gcht101819%_ (begin - (__gc-table-rehash! _%tab100289%_) - (&gc-table-gcht _%tab100289%_)))))) + (__gc-table-rehash! _%tab101816%_) + (&gc-table-gcht _%tab101816%_)))))) (define __gc-table-rehash! - (lambda (_%tab100280%_) - (let* ((_%old-table100282%_ (&gc-table-gcht _%tab100280%_)) - (_%new-table100284%_ - (##gc-hash-table-resize! _%old-table100282%_ __gc-table-loads)) - (_%gcht100286%_ + (lambda (_%tab101807%_) + (let* ((_%old-table101809%_ (&gc-table-gcht _%tab101807%_)) + (_%new-table101811%_ + (##gc-hash-table-resize! _%old-table101809%_ __gc-table-loads)) + (_%gcht101813%_ (##gc-hash-table-rehash! - _%old-table100282%_ - _%new-table100284%_))) - (&gc-table-gcht-set! _%tab100280%_ _%gcht100286%_)))) + _%old-table101809%_ + _%new-table101811%_))) + (&gc-table-gcht-set! _%tab101807%_ _%gcht101813%_)))) (define gc-table-ref - (lambda (_%tab100264%_ _%key100265%_ _%default100266%_) + (lambda (_%tab101791%_ _%key101792%_ _%default101793%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key100265%_) - (let* ((_%gcht100270%_ (__gc-table-e _%tab100264%_)) - (_%value100272%_ - (##gc-hash-table-ref _%gcht100270%_ _%key100265%_))) - (if (eq? _%value100272%_ (macro-unused-obj)) - _%default100266%_ - _%value100272%_)) - (let ((_%$e100274%_ (&gc-table-immediate _%tab100264%_))) - (if _%$e100274%_ - ((lambda (_%immediate100277%_) + (if (##mem-allocated? _%key101792%_) + (let* ((_%gcht101797%_ (__gc-table-e _%tab101791%_)) + (_%value101799%_ + (##gc-hash-table-ref _%gcht101797%_ _%key101792%_))) + (if (eq? _%value101799%_ (macro-unused-obj)) + _%default101793%_ + _%value101799%_)) + (let ((_%$e101801%_ (&gc-table-immediate _%tab101791%_))) + (if _%$e101801%_ + ((lambda (_%immediate101804%_) (immediate-table-ref - _%immediate100277%_ - _%key100265%_ - _%default100266%_)) - _%$e100274%_) - _%default100266%_))))) + _%immediate101804%_ + _%key101792%_ + _%default101793%_)) + _%$e101801%_) + _%default101793%_))))) + (define gc-table-ref/lock + (lambda (_%tab101767%_ _%key101768%_ _%default101769%_) + (let () + (declare (not interrupts-enabled)) + (let _%again101773%_ ((_%spin101776%_ '0)) + (if (##fx= (##vector-cas! (&gc-table-lock _%tab101767%_) '0 '1 '0) + '0) + (##vector-set! + (&gc-table-lock _%tab101767%_) + '1 + (current-thread)) + (if (##fx< _%spin101776%_ '10) + (let () + (##thread-yield!) + (_%again101773%_ (##fx+ _%spin101776%_ '1))) + (let ((_%owner101782%_ + (##vector-ref (&gc-table-lock _%tab101767%_) '1))) + (if (eq? _%owner101782%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner101782%_) + (let () (##thread-yield!) (_%again101773%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r101788%_ + (gc-table-ref _%tab101767%_ _%key101768%_ _%default101769%_))) + (##vector-set! (&gc-table-lock _%tab101767%_) '1 '#f) + (##vector-cas! (&gc-table-lock _%tab101767%_) '0 '0 '1) + _%$r101788%_))) (define gc-table-set! - (lambda (_%tab100257%_ _%key100258%_ _%value100259%_) + (lambda (_%tab101760%_ _%key101761%_ _%value101762%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key100258%_) - (let ((_%gcht100262%_ (__gc-table-e _%tab100257%_))) + (if (##mem-allocated? _%key101761%_) + (let ((_%gcht101765%_ (__gc-table-e _%tab101760%_))) (if (##gc-hash-table-set! - _%gcht100262%_ - _%key100258%_ - _%value100259%_) + _%gcht101765%_ + _%key101761%_ + _%value101762%_) (begin - (__gc-table-rehash! _%tab100257%_) + (__gc-table-rehash! _%tab101760%_) (gc-table-set! - _%tab100257%_ - _%key100258%_ - _%value100259%_)) + _%tab101760%_ + _%key101761%_ + _%value101762%_)) '#!void)) (immediate-table-set! - (__gc-table-immediate _%tab100257%_) - _%key100258%_ - _%value100259%_)))) + (__gc-table-immediate _%tab101760%_) + _%key101761%_ + _%value101762%_)))) + (define gc-table-set/lock! + (lambda (_%tab101736%_ _%key101737%_ _%value101738%_) + (let () + (declare (not interrupts-enabled)) + (let _%again101742%_ ((_%spin101745%_ '0)) + (if (##fx= (##vector-cas! (&gc-table-lock _%tab101736%_) '0 '1 '0) + '0) + (##vector-set! + (&gc-table-lock _%tab101736%_) + '1 + (current-thread)) + (if (##fx< _%spin101745%_ '10) + (let () + (##thread-yield!) + (_%again101742%_ (##fx+ _%spin101745%_ '1))) + (let ((_%owner101751%_ + (##vector-ref (&gc-table-lock _%tab101736%_) '1))) + (if (eq? _%owner101751%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner101751%_) + (let () (##thread-yield!) (_%again101742%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r101757%_ + (gc-table-set! _%tab101736%_ _%key101737%_ _%value101738%_))) + (##vector-set! (&gc-table-lock _%tab101736%_) '1 '#f) + (##vector-cas! (&gc-table-lock _%tab101736%_) '0 '0 '1) + _%$r101757%_))) (define gc-table-update! - (lambda (_%tab100250%_ _%key100251%_ _%update100252%_ _%default100253%_) - (if (##mem-allocated? _%key100251%_) - (let ((_%value100255%_ + (lambda (_%tab101729%_ _%key101730%_ _%update101731%_ _%default101732%_) + (if (##mem-allocated? _%key101730%_) + (let ((_%value101734%_ (gc-table-ref - _%tab100250%_ - _%key100251%_ - _%default100253%_))) + _%tab101729%_ + _%key101730%_ + _%default101732%_))) (gc-table-set! - _%tab100250%_ - _%key100251%_ - (_%update100252%_ _%value100255%_))) + _%tab101729%_ + _%key101730%_ + (_%update101731%_ _%value101734%_))) (immediate-table-update! - (__gc-table-immediate _%tab100250%_) - _%key100251%_ - _%update100252%_ - _%default100253%_)))) + (__gc-table-immediate _%tab101729%_) + _%key101730%_ + _%update101731%_ + _%default101732%_)))) + (define gc-table-update!/lock + (lambda (_%tab101704%_ _%key101705%_ _%update101706%_ _%default101707%_) + (let () + (declare (not interrupts-enabled)) + (let _%again101711%_ ((_%spin101714%_ '0)) + (if (##fx= (##vector-cas! (&gc-table-lock _%tab101704%_) '0 '1 '0) + '0) + (##vector-set! + (&gc-table-lock _%tab101704%_) + '1 + (current-thread)) + (if (##fx< _%spin101714%_ '10) + (let () + (##thread-yield!) + (_%again101711%_ (##fx+ _%spin101714%_ '1))) + (let ((_%owner101720%_ + (##vector-ref (&gc-table-lock _%tab101704%_) '1))) + (if (eq? _%owner101720%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner101720%_) + (let () (##thread-yield!) (_%again101711%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r101726%_ + (gc-table-update! + _%tab101704%_ + _%key101705%_ + _%update101706%_ + _%default101707%_))) + (##vector-set! (&gc-table-lock _%tab101704%_) '1 '#f) + (##vector-cas! (&gc-table-lock _%tab101704%_) '0 '0 '1) + _%$r101726%_))) (define gc-table-delete! - (lambda (_%tab100238%_ _%key100239%_) + (lambda (_%tab101692%_ _%key101693%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key100239%_) - (let ((_%gcht100243%_ (__gc-table-e _%tab100238%_))) + (if (##mem-allocated? _%key101693%_) + (let ((_%gcht101697%_ (__gc-table-e _%tab101692%_))) (if (##gc-hash-table-set! - _%gcht100243%_ - _%key100239%_ + _%gcht101697%_ + _%key101693%_ (macro-absent-obj)) (begin - (__gc-table-rehash! _%tab100238%_) - (gc-table-delete! _%tab100238%_ _%key100239%_)) + (__gc-table-rehash! _%tab101692%_) + (gc-table-delete! _%tab101692%_ _%key101693%_)) '#!void)) - (let ((_%$e100245%_ (&gc-table-immediate _%tab100238%_))) - (if _%$e100245%_ - ((lambda (_%immediate100248%_) + (let ((_%$e101699%_ (&gc-table-immediate _%tab101692%_))) + (if _%$e101699%_ + ((lambda (_%immediate101702%_) (immediate-table-delete! - _%immediate100248%_ - _%key100239%_)) - _%$e100245%_) + _%immediate101702%_ + _%key101693%_)) + _%$e101699%_) '#!void))))) + (define gc-table-delete!/lock + (lambda (_%tab101669%_ _%key101670%_) + (let () + (declare (not interrupts-enabled)) + (let _%again101674%_ ((_%spin101677%_ '0)) + (if (##fx= (##vector-cas! (&gc-table-lock _%tab101669%_) '0 '1 '0) + '0) + (##vector-set! + (&gc-table-lock _%tab101669%_) + '1 + (current-thread)) + (if (##fx< _%spin101677%_ '10) + (let () + (##thread-yield!) + (_%again101674%_ (##fx+ _%spin101677%_ '1))) + (let ((_%owner101683%_ + (##vector-ref (&gc-table-lock _%tab101669%_) '1))) + (if (eq? _%owner101683%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner101683%_) + (let () (##thread-yield!) (_%again101674%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r101689%_ (gc-table-delete! _%tab101669%_ _%key101670%_))) + (##vector-set! (&gc-table-lock _%tab101669%_) '1 '#f) + (##vector-cas! (&gc-table-lock _%tab101669%_) '0 '0 '1) + _%$r101689%_))) (define gc-table-for-each - (lambda (_%tab100227%_ _%proc100228%_) + (lambda (_%tab101658%_ _%proc101659%_) (declare (not interrupts-enabled)) (begin - (let ((_%gcht100231%_ (__gc-table-e _%tab100227%_))) - (##gc-hash-table-for-each _%proc100228%_ _%gcht100231%_)) - (let ((_%$e100233%_ (&gc-table-immediate _%tab100227%_))) - (if _%$e100233%_ - ((lambda (_%immediate100236%_) - (raw-table-for-each _%immediate100236%_ _%proc100228%_)) - _%$e100233%_) + (let ((_%gcht101662%_ (__gc-table-e _%tab101658%_))) + (##gc-hash-table-for-each _%proc101659%_ _%gcht101662%_)) + (let ((_%$e101664%_ (&gc-table-immediate _%tab101658%_))) + (if _%$e101664%_ + ((lambda (_%immediate101667%_) + (raw-table-for-each _%immediate101667%_ _%proc101659%_)) + _%$e101664%_) '#!void))))) + (define gc-table-for-each/lock + (lambda (_%tab101635%_ _%proc101636%_) + (let () + (declare (not interrupts-enabled)) + (let _%again101640%_ ((_%spin101643%_ '0)) + (if (##fx= (##vector-cas! (&gc-table-lock _%tab101635%_) '0 '1 '0) + '0) + (##vector-set! + (&gc-table-lock _%tab101635%_) + '1 + (current-thread)) + (if (##fx< _%spin101643%_ '10) + (let () + (##thread-yield!) + (_%again101640%_ (##fx+ _%spin101643%_ '1))) + (let ((_%owner101649%_ + (##vector-ref (&gc-table-lock _%tab101635%_) '1))) + (if (eq? _%owner101649%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner101649%_) + (let () (##thread-yield!) (_%again101640%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r101655%_ (gc-table-for-each _%tab101635%_ _%proc101636%_))) + (##vector-set! (&gc-table-lock _%tab101635%_) '1 '#f) + (##vector-cas! (&gc-table-lock _%tab101635%_) '0 '0 '1) + _%$r101655%_))) (define gc-table-copy - (lambda (_%tab100215%_) - (let* ((_%gcht100217%_ (__gc-table-e _%tab100215%_)) - (_%new-table100219%_ + (lambda (_%tab101623%_) + (let* ((_%gcht101625%_ (__gc-table-e _%tab101623%_)) + (_%new-table101627%_ (__gc-table-new - (macro-gc-hash-table-count _%gcht100217%_) - (macro-gc-hash-table-flags _%gcht100217%_))) - (_%result100221%_ + (macro-gc-hash-table-count _%gcht101625%_) + (macro-gc-hash-table-flags _%gcht101625%_))) + (_%result101629%_ (##structure - (##structure-type _%tab100215%_) - _%new-table100219%_ + (##structure-type _%tab101623%_) + _%new-table101627%_ '#f))) (gc-table-for-each - _%tab100215%_ - (lambda (_%k100224%_ _%v100225%_) - (gc-table-set! _%result100221%_ _%k100224%_ _%v100225%_))) - _%result100221%_))) + _%tab101623%_ + (lambda (_%k101632%_ _%v101633%_) + (gc-table-set! _%result101629%_ _%k101632%_ _%v101633%_))) + _%result101629%_))) + (define gc-table-copy/lock + (lambda (_%tab101601%_) + (let () + (declare (not interrupts-enabled)) + (let _%again101605%_ ((_%spin101608%_ '0)) + (if (##fx= (##vector-cas! (&gc-table-lock _%tab101601%_) '0 '1 '0) + '0) + (##vector-set! + (&gc-table-lock _%tab101601%_) + '1 + (current-thread)) + (if (##fx< _%spin101608%_ '10) + (let () + (##thread-yield!) + (_%again101605%_ (##fx+ _%spin101608%_ '1))) + (let ((_%owner101614%_ + (##vector-ref (&gc-table-lock _%tab101601%_) '1))) + (if (eq? _%owner101614%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner101614%_) + (let () (##thread-yield!) (_%again101605%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r101620%_ (gc-table-copy _%tab101601%_))) + (##vector-set! (&gc-table-lock _%tab101601%_) '1 '#f) + (##vector-cas! (&gc-table-lock _%tab101601%_) '0 '0 '1) + _%$r101620%_))) (define gc-table-clear! - (lambda (_%tab100208%_) - (let* ((_%gcht100210%_ (__gc-table-e _%tab100208%_)) - (_%new-table100212%_ + (lambda (_%tab101594%_) + (let* ((_%gcht101596%_ (__gc-table-e _%tab101594%_)) + (_%new-table101598%_ (__gc-table-new '16 - (macro-gc-hash-table-flags _%gcht100210%_)))) - (&gc-table-gcht-set! _%tab100208%_ _%new-table100212%_) - (&gc-table-immediate-set! _%tab100208%_ '#f)))) + (macro-gc-hash-table-flags _%gcht101596%_)))) + (&gc-table-gcht-set! _%tab101594%_ _%new-table101598%_) + (&gc-table-immediate-set! _%tab101594%_ '#f)))) + (define gc-table-clear!/lock + (lambda (_%tab101572%_) + (let () + (declare (not interrupts-enabled)) + (let _%again101576%_ ((_%spin101579%_ '0)) + (if (##fx= (##vector-cas! (&gc-table-lock _%tab101572%_) '0 '1 '0) + '0) + (##vector-set! + (&gc-table-lock _%tab101572%_) + '1 + (current-thread)) + (if (##fx< _%spin101579%_ '10) + (let () + (##thread-yield!) + (_%again101576%_ (##fx+ _%spin101579%_ '1))) + (let ((_%owner101585%_ + (##vector-ref (&gc-table-lock _%tab101572%_) '1))) + (if (eq? _%owner101585%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner101585%_) + (let () (##thread-yield!) (_%again101576%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r101591%_ (gc-table-clear! _%tab101572%_))) + (##vector-set! (&gc-table-lock _%tab101572%_) '1 '#f) + (##vector-cas! (&gc-table-lock _%tab101572%_) '0 '0 '1) + _%$r101591%_))) (define gc-table-length - (lambda (_%tab100200%_) - (let ((_%gcht100202%_ (__gc-table-e _%tab100200%_))) - (fx+ (macro-gc-hash-table-count _%gcht100202%_) - (let ((_%$e100204%_ (&gc-table-immediate _%tab100200%_))) - (if _%$e100204%_ (&raw-table-count _%$e100204%_) '0)))))) + (lambda (_%tab101564%_) + (let ((_%gcht101566%_ (__gc-table-e _%tab101564%_))) + (fx+ (macro-gc-hash-table-count _%gcht101566%_) + (let ((_%$e101568%_ (&gc-table-immediate _%tab101564%_))) + (if _%$e101568%_ (&raw-table-count _%$e101568%_) '0)))))) + (define gc-table-length/lock + (lambda (_%tab101542%_) + (let () + (declare (not interrupts-enabled)) + (let _%again101546%_ ((_%spin101549%_ '0)) + (if (##fx= (##vector-cas! (&gc-table-lock _%tab101542%_) '0 '1 '0) + '0) + (##vector-set! + (&gc-table-lock _%tab101542%_) + '1 + (current-thread)) + (if (##fx< _%spin101549%_ '10) + (let () + (##thread-yield!) + (_%again101546%_ (##fx+ _%spin101549%_ '1))) + (let ((_%owner101555%_ + (##vector-ref (&gc-table-lock _%tab101542%_) '1))) + (if (eq? _%owner101555%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner101555%_) + (let () (##thread-yield!) (_%again101546%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r101561%_ (gc-table-length _%tab101542%_))) + (##vector-set! (&gc-table-lock _%tab101542%_) '1 '#f) + (##vector-cas! (&gc-table-lock _%tab101542%_) '0 '0 '1) + _%$r101561%_))) + (define __object-eq-hash-lock (vector '0 '#f)) (define __object-eq-hash-next '0) (define __object-eq-hash - (make-gc-table__% + (make-gc-table__2 '1024 __gc-table::t (macro-gc-hash-table-flag-weak-keys))) (define __object->eq-hash - (lambda (_%obj100185%_) + (lambda (_%obj101512%_) (declare (not interrupts-enabled)) - (let ((_%val100188%_ - (gc-table-ref __object-eq-hash _%obj100185%_ '#f))) - (if _%val100188%_ - _%val100188%_ - (let* ((_%mix100190%_ __object-eq-hash-next) - (_%ptr100192%_ (##type-cast _%obj100185%_ '0)) - (_%h100194%_ - (fxand (fxxor _%mix100190%_ _%ptr100192%_) - (macro-max-fixnum32)))) - (set! __object-eq-hash-next - (let ((_%$e100197%_ (##fx+? __object-eq-hash-next '1))) - (if _%$e100197%_ _%$e100197%_ '0))) - (gc-table-set! __object-eq-hash _%obj100185%_ _%h100194%_) - _%h100194%_))))))) + (begin + (let () + (declare (not interrupts-enabled)) + (let _%again101517%_ ((_%spin101520%_ '0)) + (if (##fx= (##vector-cas! __object-eq-hash-lock '0 '1 '0) '0) + (##vector-set! __object-eq-hash-lock '1 (current-thread)) + (if (##fx< _%spin101520%_ '10) + (let () + (##thread-yield!) + (_%again101517%_ (##fx+ _%spin101520%_ '1))) + (let ((_%owner101526%_ + (##vector-ref __object-eq-hash-lock '1))) + (if (eq? _%owner101526%_ (macro-current-thread)) + (##thread-deadlock-action!) + (if (macro-thread-end-condvar _%owner101526%_) + (let () (##thread-yield!) (_%again101517%_ '0)) + (##thread-deadlock-action!)))))))) + (let ((_%$r101539%_ + (let ((_%val101532%_ + (gc-table-ref __object-eq-hash _%obj101512%_ '#f))) + (if _%val101532%_ + _%val101532%_ + (let ((_%h101534%_ + (fxand __object-eq-hash (macro-max-fixnum32)))) + (set! __object-eq-hash-next + (let ((_%$e101536%_ + (##fx+? __object-eq-hash-next '1))) + (if _%$e101536%_ _%$e101536%_ '0))) + (gc-table-set! + __object-eq-hash + _%obj101512%_ + _%h101534%_) + _%h101534%_))))) + (##vector-set! __object-eq-hash-lock '1 '#f) + (##vector-cas! __object-eq-hash-lock '0 '0 '1) + _%$r101539%_)))))) diff --git a/src/bootstrap/gerbil/runtime/table~1.scm b/src/bootstrap/gerbil/runtime/table~1.scm index 670461abf3..26396e14db 100644 --- a/src/bootstrap/gerbil/runtime/table~1.scm +++ b/src/bootstrap/gerbil/runtime/table~1.scm @@ -1,702 +1,1063 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[:0:]#defspecialized-table| - (lambda (_%$stx99176%_) - (let* ((_%g9918099226%_ - (lambda (_%g9918199222%_) + (define |[:0:]#do-raw-table-lock| + (lambda (_%$stx100206%_) + (let* ((_%g100210100228%_ + (lambda (_%g100211100224%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9918199222%_))) - (_%g9917999380%_ - (lambda (_%g9918199230%_) - (if (gx#stx-pair? _%g9918199230%_) - (let ((_%e9919199233%_ (gx#syntax-e _%g9918199230%_))) - (let ((_%hd9919299237%_ + _%g100211100224%_))) + (_%g100209100284%_ + (lambda (_%g100211100232%_) + (if (gx#stx-pair? _%g100211100232%_) + (let ((_%e100214100235%_ (gx#syntax-e _%g100211100232%_))) + (let ((_%hd100215100239%_ (let () (declare (not safe)) - (##car _%e9919199233%_))) - (_%tl9919399240%_ + (##car _%e100214100235%_))) + (_%tl100216100242%_ (let () (declare (not safe)) - (##cdr _%e9919199233%_)))) - (if (gx#stx-pair? _%tl9919399240%_) - (let ((_%e9919499243%_ - (gx#syntax-e _%tl9919399240%_))) - (let ((_%hd9919599247%_ + (##cdr _%e100214100235%_)))) + (if (gx#stx-pair? _%tl100216100242%_) + (let ((_%e100217100245%_ + (gx#syntax-e _%tl100216100242%_))) + (let ((_%hd100218100249%_ (let () (declare (not safe)) - (##car _%e9919499243%_))) - (_%tl9919699250%_ + (##car _%e100217100245%_))) + (_%tl100219100252%_ (let () (declare (not safe)) - (##cdr _%e9919499243%_)))) - (if (gx#stx-pair? _%tl9919699250%_) - (let ((_%e9919799253%_ - (gx#syntax-e _%tl9919699250%_))) - (let ((_%hd9919899257%_ + (##cdr _%e100217100245%_)))) + (if (gx#stx-pair? _%tl100219100252%_) + (let ((_%e100220100255%_ + (gx#syntax-e _%tl100219100252%_))) + (let ((_%hd100221100259%_ (let () (declare (not safe)) - (##car _%e9919799253%_))) - (_%tl9919999260%_ + (##car _%e100220100255%_))) + (_%tl100222100262%_ (let () (declare (not safe)) - (##cdr _%e9919799253%_)))) - (if (gx#stx-pair? _%tl9919999260%_) - (let ((_%e9920099263%_ - (gx#syntax-e - _%tl9919999260%_))) - (let ((_%hd9920199267%_ - (let () - (declare (not safe)) - (##car _%e9920099263%_))) - (_%tl9920299270%_ - (let () - (declare (not safe)) - (##cdr _%e9920099263%_)))) - (if (gx#stx-pair? - _%tl9920299270%_) - (let ((_%e9920399273%_ - (gx#syntax-e - _%tl9920299270%_))) - (let ((_%hd9920499277%_ - (let () - (declare + (##cdr _%e100220100255%_)))) + (if (gx#stx-null? _%tl100222100262%_) + ((lambda (_%g100212100265%_ + _%g100213100267%_) + (cons (gx#datum->syntax + '#f + 'let) + (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _%e9920399273%_))) - (_%tl9920599280%_ - (let () (declare (not safe)) (##cdr _%e9920399273%_)))) - (if (gx#stx-pair? _%tl9920599280%_) - (let ((_%e9920699283%_ (gx#syntax-e _%tl9920599280%_))) - (let ((_%hd9920799287%_ + '#f + 'lock) + (cons (cons (gx#datum->syntax '#f '&raw-table-lock) + (cons _%g100213100267%_ '())) + '())) + (cons (cons (gx#datum->syntax '#f '__do-inline-lock!) + (cons (gx#datum->syntax '#f 'lock) + (cons _%g100212100265%_ '()))) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd100221100259%_ + _%hd100218100249%_) + (_%g100210100228%_ + _%g100211100232%_)))) + (_%g100210100228%_ _%g100211100232%_)))) + (_%g100210100228%_ _%g100211100232%_)))) + (_%g100210100228%_ _%g100211100232%_))))) + (_%g100209100284%_ _%$stx100206%_)))) + (define |[:0:]#deftable| + (lambda (_%stx100288%_) + (let* ((_%g100291100313%_ + (lambda (_%g100292100309%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g100292100309%_))) + (_%g100290100626%_ + (lambda (_%g100292100317%_) + (if (gx#stx-pair? _%g100292100317%_) + (let ((_%e100296100320%_ (gx#syntax-e _%g100292100317%_))) + (let ((_%hd100297100324%_ (let () (declare (not safe)) - (##car _%e9920699283%_))) - (_%tl9920899290%_ + (##car _%e100296100320%_))) + (_%tl100298100327%_ (let () (declare (not safe)) - (##cdr _%e9920699283%_)))) - (if (gx#stx-pair? _%tl9920899290%_) - (let ((_%e9920999293%_ - (gx#syntax-e _%tl9920899290%_))) - (let ((_%hd9921099297%_ + (##cdr _%e100296100320%_)))) + (if (gx#stx-pair? _%tl100298100327%_) + (let ((_%e100299100330%_ + (gx#syntax-e _%tl100298100327%_))) + (let ((_%hd100300100334%_ (let () (declare (not safe)) - (##car _%e9920999293%_))) - (_%tl9921199300%_ + (##car _%e100299100330%_))) + (_%tl100301100337%_ (let () (declare (not safe)) - (##cdr _%e9920999293%_)))) - (if (gx#stx-pair? _%tl9921199300%_) - (let ((_%e9921299303%_ - (gx#syntax-e _%tl9921199300%_))) - (let ((_%hd9921399307%_ + (##cdr _%e100299100330%_)))) + (if (gx#stx-pair? _%tl100301100337%_) + (let ((_%e100302100340%_ + (gx#syntax-e _%tl100301100337%_))) + (let ((_%hd100303100344%_ (let () (declare (not safe)) - (##car _%e9921299303%_))) - (_%tl9921499310%_ + (##car _%e100302100340%_))) + (_%tl100304100347%_ (let () (declare (not safe)) - (##cdr _%e9921299303%_)))) - (if (gx#stx-pair? _%tl9921499310%_) - (let ((_%e9921599313%_ + (##cdr _%e100302100340%_)))) + (if (gx#stx-pair? _%tl100304100347%_) + (let ((_%e100305100350%_ (gx#syntax-e - _%tl9921499310%_))) - (let ((_%hd9921699317%_ + _%tl100304100347%_))) + (let ((_%hd100306100354%_ (let () (declare (not safe)) - (##car _%e9921599313%_))) - (_%tl9921799320%_ + (##car _%e100305100350%_))) + (_%tl100307100357%_ (let () (declare (not safe)) - (##cdr _%e9921599313%_)))) - (if (gx#stx-pair? - _%tl9921799320%_) - (let ((_%e9921899323%_ - (gx#syntax-e - _%tl9921799320%_))) - (let ((_%hd9921999327%_ - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _%e9921899323%_))) - (_%tl9922099330%_ - (let () (declare (not safe)) (##cdr _%e9921899323%_)))) - (if (gx#stx-null? _%tl9922099330%_) - ((lambda (_%L99333%_ - _%L99335%_ - _%L99336%_ - _%L99337%_ - _%L99338%_ - _%L99339%_ - _%L99340%_ - _%L99341%_ - _%L99342%_) - (cons (gx#datum->syntax '#f 'begin) - (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L99342%_ - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'size-hint) - (cons '#f '())) - (cons (cons (gx#datum->syntax '#f 'seed) (cons '0 '())) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - 'make-raw-table) - (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'size-hint) - (cons _%L99335%_ - (cons _%L99333%_ - (cons (gx#datum->syntax '#f 'seed) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L99341%_ - (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'tab) - (cons (gx#datum->syntax '#f 'key) - (cons (gx#datum->syntax '#f 'default) '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'let) - (cons (cons (cons (gx#datum->syntax '#f 'table) - (cons (cons (gx#datum->syntax - '#f - '&raw-table-table) - (cons (gx#datum->syntax - '#f - 'tab) - '())) - '())) - (cons (cons (gx#datum->syntax '#f 'seed) - (cons (cons (gx#datum->syntax - '#f - '&raw-table-seed) - (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'tab) - '())) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())) - (cons (cons (gx#datum->syntax '#f '__table-ref) - (cons (gx#datum->syntax '#f 'table) - (cons (gx#datum->syntax - '#f - 'seed) - (cons _%L99335%_ - (cons _%L99333%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#datum->syntax '#f 'key) - (cons (gx#datum->syntax '#f 'default) - '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - 'def) - (cons (cons _%L99340%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#datum->syntax '#f 'tab) - (cons (gx#datum->syntax '#f 'key) - (cons (gx#datum->syntax '#f 'value) - '())))) - (cons (cons (gx#datum->syntax '#f 'when) - (cons (cons (gx#datum->syntax '#f 'fx<) - (cons (cons (gx#datum->syntax - '#f - '&raw-table-free) - (cons (gx#datum->syntax - '#f - 'tab) - '())) - (cons (cons (gx#datum->syntax - '#f - 'fxquotient) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'vector-length) - (cons (cons (gx#datum->syntax - '#f - '&raw-table-table) - (cons (gx#datum->syntax '#f 'tab) - '())) - '())) - (cons '4 '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - '__raw-table-rehash!) - (cons (gx#datum->syntax - '#f - 'tab) - '())) - '()))) - (cons (cons _%L99339%_ - (cons (gx#datum->syntax '#f 'tab) - (cons (gx#datum->syntax '#f 'key) - (cons (gx#datum->syntax - '#f - 'value) - '())))) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - 'def) - (cons (cons _%L99339%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#datum->syntax '#f 'tab) - (cons (gx#datum->syntax '#f 'key) - (cons (gx#datum->syntax '#f 'value) - '())))) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons (gx#datum->syntax - '#f - 'table) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '&raw-table-table) - (cons (gx#datum->syntax '#f 'tab) '())) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - 'seed) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '&raw-table-seed) - (cons (gx#datum->syntax '#f 'tab) '())) - '())) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - '__table-set!) - (cons (gx#datum->syntax - '#f - 'table) - (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'seed) - (cons _%L99335%_ - (cons _%L99333%_ - (cons (gx#datum->syntax '#f 'key) - (cons (gx#datum->syntax - '#f - 'value) - (cons (cons (gx#datum->syntax - '#f - 'lambda) - (cons '() -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (gx#datum->syntax '#f 'set!) - (cons (cons (gx#datum->syntax - '#f - '&raw-table-free) - (cons (gx#datum->syntax - '#f - 'tab) - '())) - (cons (cons (gx#datum->syntax - '#f - 'fx-) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '&raw-table-free) - (cons (gx#datum->syntax '#f 'tab) '())) - (cons '1 '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons (cons (gx#datum->syntax '#f 'set!) - (cons (cons (gx#datum->syntax - '#f - '&raw-table-count) - (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'tab) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'fx+) - (cons (cons (gx#datum->syntax '#f '&raw-table-count) - (cons (gx#datum->syntax '#f 'tab) '())) - (cons '1 '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - (cons (cons (gx#datum->syntax '#f 'lambda) - (cons '() - (cons (cons (gx#datum->syntax '#f 'set!) - (cons (cons (gx#datum->syntax - '#f - '&raw-table-count) - (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'tab) - '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'fx+) - (cons (cons (gx#datum->syntax '#f '&raw-table-count) - (cons (gx#datum->syntax '#f 'tab) '())) - (cons '1 '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'def) - (cons (cons _%L99338%_ - (cons (gx#datum->syntax '#f 'tab) - (cons (gx#datum->syntax '#f 'key) - (cons _%L99338%_ - (cons (gx#datum->syntax - '#f - 'default) - '()))))) - (cons (cons (gx#datum->syntax '#f 'when) - (cons (cons (gx#datum->syntax - '#f - 'fx<) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '&raw-table-free) - (cons (gx#datum->syntax '#f 'tab) '())) - (cons (cons (gx#datum->syntax '#f 'fxquotient) - (cons (cons (gx#datum->syntax - '#f - 'vector-length) - (cons (cons (gx#datum->syntax - '#f - '&raw-table-table) - (cons (gx#datum->syntax - '#f - 'tab) - '())) - '())) - (cons '4 '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax - '#f - '__raw-table-rehash!) - (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'tab) - '())) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L99337%_ - (cons (gx#datum->syntax - '#f - 'tab) - (cons (gx#datum->syntax - '#f - 'key) - (cons _%L99338%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#datum->syntax '#f 'default) '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L99337%_ - (cons (gx#datum->syntax '#f 'tab) - (cons (gx#datum->syntax - '#f - 'key) - (cons _%L99338%_ - (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'default) - '()))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'table) - (cons (cons (gx#datum->syntax '#f '&raw-table-table) - (cons (gx#datum->syntax '#f 'tab) '())) - '())) - (cons (cons (gx#datum->syntax '#f 'seed) - (cons (cons (gx#datum->syntax - '#f - '&raw-table-seed) - (cons (gx#datum->syntax '#f 'tab) - '())) - '())) - '())) - (cons (cons (gx#datum->syntax '#f '__table-update!) - (cons (gx#datum->syntax '#f 'table) - (cons (gx#datum->syntax '#f 'seed) - (cons _%L99335%_ - (cons _%L99333%_ - (cons (gx#datum->syntax - '#f - 'key) - (cons _%L99338%_ - (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'default) - (cons (cons (gx#datum->syntax '#f 'lambda) - (cons '() - (cons (cons (gx#datum->syntax - '#f - 'set!) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '&raw-table-free) - (cons (gx#datum->syntax '#f 'tab) '())) - (cons (cons (gx#datum->syntax '#f 'fx-) - (cons (cons (gx#datum->syntax - '#f - '&raw-table-free) - (cons (gx#datum->syntax - '#f - 'tab) - '())) - (cons '1 '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'set!) - (cons (cons (gx#datum->syntax '#f '&raw-table-count) - (cons (gx#datum->syntax '#f 'tab) '())) - (cons (cons (gx#datum->syntax '#f 'fx+) - (cons (cons (gx#datum->syntax - '#f - '&raw-table-count) - (cons (gx#datum->syntax - '#f - 'tab) - '())) - (cons '1 '()))) - '()))) - '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (gx#datum->syntax '#f 'lambda) - (cons '() - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'set!) - (cons (cons (gx#datum->syntax '#f '&raw-table-count) - (cons (gx#datum->syntax '#f 'tab) '())) - (cons (cons (gx#datum->syntax '#f 'fx+) - (cons (cons (gx#datum->syntax - '#f - '&raw-table-count) - (cons (gx#datum->syntax - '#f - 'tab) - '())) - (cons '1 '()))) - '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L99336%_ - (cons (gx#datum->syntax - '#f - 'tab) - (cons (gx#datum->syntax - '#f - 'key) - '()))) - (cons (cons (gx#datum->syntax - '#f - 'let) - (cons (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'table) - (cons (cons (gx#datum->syntax - '#f - '&raw-table-table) - (cons (gx#datum->syntax '#f 'tab) - '())) - '())) - (cons (cons (gx#datum->syntax '#f 'seed) - (cons (cons (gx#datum->syntax - '#f - '&raw-table-seed) - (cons (gx#datum->syntax - '#f - 'tab) - '())) - '())) - '())) - (cons (cons (gx#datum->syntax '#f '__table-del!) - (cons (gx#datum->syntax '#f 'table) - (cons (gx#datum->syntax '#f 'seed) - (cons _%L99335%_ - (cons _%L99333%_ - (cons (gx#datum->syntax - '#f - 'key) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - 'lambda) - (cons '() - (cons (cons (gx#datum->syntax - '#f - 'set!) - (cons (cons (gx#datum->syntax -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (##cdr _%e100305100350%_)))) + (if (gx#stx-null? + _%tl100307100357%_) + ((lambda (_%g100293100360%_ + _%g100294100362%_ + _%g100295100363%_) + (let* ((_%g100382100437%_ + (lambda (_%g100383100433%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#raise-syntax-error '#f - '&raw-table-count) - (cons (gx#datum->syntax '#f 'tab) '())) - (cons (cons (gx#datum->syntax '#f 'fx-) - (cons (cons (gx#datum->syntax - '#f - '&raw-table-count) - (cons (gx#datum->syntax '#f 'tab) - '())) - (cons '1 '()))) - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '()))) - '()))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9921999327%_ - _%hd9921699317%_ - _%hd9921399307%_ - _%hd9921099297%_ - _%hd9920799287%_ - _%hd9920499277%_ - _%hd9920199267%_ - _%hd9919899257%_ - _%hd9919599247%_) - (_%g9918099226%_ _%g9918199230%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9918099226%_ - _%g9918199230%_)))) - (_%g9918099226%_ - _%g9918199230%_)))) - (_%g9918099226%_ _%g9918199230%_)))) - (_%g9918099226%_ _%g9918199230%_)))) - (_%g9918099226%_ _%g9918199230%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9918099226%_ - _%g9918199230%_)))) - (_%g9918099226%_ - _%g9918199230%_)))) - (_%g9918099226%_ _%g9918199230%_)))) - (_%g9918099226%_ _%g9918199230%_)))) - (_%g9918099226%_ _%g9918199230%_))))) - (_%g9917999380%_ _%$stx99176%_)))) + '"Bad syntax; invalid match target" + _%g100383100433%_))) + (_%g100381100622%_ + (lambda (_%g100383100441%_) + (if (gx#stx-pair? _%g100383100441%_) + (let ((_%e100396100444%_ + (gx#syntax-e _%g100383100441%_))) + (let ((_%hd100397100448%_ + (let () + (declare (not safe)) + (##car _%e100396100444%_))) + (_%tl100398100451%_ + (let () + (declare (not safe)) + (##cdr _%e100396100444%_)))) + (if (gx#stx-pair? _%tl100398100451%_) + (let ((_%e100399100454%_ + (gx#syntax-e _%tl100398100451%_))) + (let ((_%hd100400100458%_ + (let () + (declare (not safe)) + (##car _%e100399100454%_))) + (_%tl100401100461%_ + (let () + (declare (not safe)) + (##cdr _%e100399100454%_)))) + (if (gx#stx-pair? _%tl100401100461%_) + (let ((_%e100402100464%_ + (gx#syntax-e + _%tl100401100461%_))) + (let ((_%hd100403100468%_ + (let () + (declare (not safe)) + (##car _%e100402100464%_))) + (_%tl100404100471%_ + (let () + (declare (not safe)) + (##cdr _%e100402100464%_)))) + (if (gx#stx-pair? + _%tl100404100471%_) + (let ((_%e100405100474%_ + (gx#syntax-e + _%tl100404100471%_))) + (let ((_%hd100406100478%_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _%e100405100474%_))) + (_%tl100407100481%_ + (let () (declare (not safe)) (##cdr _%e100405100474%_)))) + (if (gx#stx-pair? _%tl100407100481%_) + (let ((_%e100408100484%_ + (gx#syntax-e _%tl100407100481%_))) + (let ((_%hd100409100488%_ + (let () + (declare (not safe)) + (##car _%e100408100484%_))) + (_%tl100410100491%_ + (let () + (declare (not safe)) + (##cdr _%e100408100484%_)))) + (if (gx#stx-pair? _%tl100410100491%_) + (let ((_%e100411100494%_ + (gx#syntax-e _%tl100410100491%_))) + (let ((_%hd100412100498%_ + (let () + (declare (not safe)) + (##car _%e100411100494%_))) + (_%tl100413100501%_ + (let () + (declare (not safe)) + (##cdr _%e100411100494%_)))) + (if (gx#stx-pair? _%tl100413100501%_) + (let ((_%e100414100504%_ + (gx#syntax-e _%tl100413100501%_))) + (let ((_%hd100415100508%_ + (let () + (declare (not safe)) + (##car _%e100414100504%_))) + (_%tl100416100511%_ + (let () + (declare (not safe)) + (##cdr _%e100414100504%_)))) + (if (gx#stx-pair? _%tl100416100511%_) + (let ((_%e100417100514%_ + (gx#syntax-e + _%tl100416100511%_))) + (let ((_%hd100418100518%_ + (let () + (declare (not safe)) + (##car _%e100417100514%_))) + (_%tl100419100521%_ + (let () + (declare (not safe)) + (##cdr _%e100417100514%_)))) + (if (gx#stx-pair? + _%tl100419100521%_) + (let ((_%e100420100524%_ + (gx#syntax-e + _%tl100419100521%_))) + (let ((_%hd100421100528%_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _%e100420100524%_))) + (_%tl100422100531%_ + (let () (declare (not safe)) (##cdr _%e100420100524%_)))) + (if (gx#stx-pair? _%tl100422100531%_) + (let ((_%e100423100534%_ + (gx#syntax-e _%tl100422100531%_))) + (let ((_%hd100424100538%_ + (let () + (declare (not safe)) + (##car _%e100423100534%_))) + (_%tl100425100541%_ + (let () + (declare (not safe)) + (##cdr _%e100423100534%_)))) + (if (gx#stx-pair? _%tl100425100541%_) + (let ((_%e100426100544%_ + (gx#syntax-e _%tl100425100541%_))) + (let ((_%hd100427100548%_ + (let () + (declare (not safe)) + (##car _%e100426100544%_))) + (_%tl100428100551%_ + (let () + (declare (not safe)) + (##cdr _%e100426100544%_)))) + (if (gx#stx-pair? _%tl100428100551%_) + (let ((_%e100429100554%_ + (gx#syntax-e _%tl100428100551%_))) + (let ((_%hd100430100558%_ + (let () + (declare (not safe)) + (##car _%e100429100554%_))) + (_%tl100431100561%_ + (let () + (declare (not safe)) + (##cdr _%e100429100554%_)))) + (if (gx#stx-null? _%tl100431100561%_) + ((lambda (_%g100384100564%_ + _%g100385100566%_ + _%g100386100567%_ + _%g100387100568%_ + _%g100388100569%_ + _%g100389100570%_ + _%g100390100571%_ + _%g100391100572%_ + _%g100392100573%_ + _%g100393100574%_ + _%g100394100575%_ + _%g100395100576%_) + (cons (gx#datum->syntax + '#f + 'begin) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'def) + (cons (cons _%g100395100576%_ + (cons (cons (gx#datum->syntax + '#f + 'size-hint) + (cons '#f '())) + (cons (cons (gx#datum->syntax + '#f + 'seed) + (cons '0 '())) + '()))) + (cons (cons (gx#datum->syntax + '#f + 'make-raw-table) + (cons (gx#datum->syntax + '#f + 'size-hint) + (cons _%g100294100362%_ + (cons _%g100293100360%_ + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'seed) + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + (cons (cons (gx#datum->syntax '#f 'def) + (cons (cons _%g100394100575%_ + (cons (cons (gx#datum->syntax + '#f + 'size-hint) + (cons '#f '())) + (cons (cons (gx#datum->syntax + '#f + 'seed) + (cons '0 '())) + '()))) + (cons (cons (gx#datum->syntax + '#f + 'make-raw-table/lock) + (cons (gx#datum->syntax + '#f + 'size-hint) + (cons _%g100294100362%_ + (cons _%g100293100360%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (gx#datum->syntax '#f 'seed) '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + (cons (cons (gx#datum->syntax '#f 'def) + (cons (cons _%g100393100574%_ + (cons (gx#datum->syntax + '#f + 'tab) + (cons (gx#datum->syntax + '#f + 'key) + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'default) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + 'let) + (cons (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'table) + (cons (cons (gx#datum->syntax + '#f + '&raw-table-table) + (cons (gx#datum->syntax '#f 'tab) + '())) + '())) + (cons (cons (gx#datum->syntax '#f 'seed) + (cons (cons (gx#datum->syntax + '#f + '&raw-table-seed) + (cons (gx#datum->syntax + '#f + 'tab) + '())) + '())) + '())) + (cons (cons (gx#datum->syntax '#f '__table-ref) + (cons (gx#datum->syntax '#f 'table) + (cons (gx#datum->syntax '#f 'seed) + (cons _%g100294100362%_ + (cons _%g100293100360%_ + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'key) + (cons (gx#datum->syntax '#f 'default) '()))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + (cons (cons (gx#datum->syntax '#f 'def) + (cons (cons _%g100392100573%_ + (cons (gx#datum->syntax + '#f + 'tab) + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'key) + (cons (gx#datum->syntax '#f 'default) '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + 'do-raw-table-lock) + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'tab) + (cons (cons _%g100393100574%_ + (cons (gx#datum->syntax '#f 'tab) + (cons (gx#datum->syntax '#f 'key) + (cons (gx#datum->syntax + '#f + 'default) + '())))) + '()))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax '#f 'def) + (cons (cons _%g100391100572%_ + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'tab) + (cons (gx#datum->syntax '#f 'key) + (cons (gx#datum->syntax '#f 'value) '())))) + (cons (cons (gx#datum->syntax '#f 'let) + (cons (cons (cons (gx#datum->syntax '#f 'table) + (cons (cons (gx#datum->syntax + '#f + '&raw-table-table) + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'tab) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())) + (cons (cons (gx#datum->syntax + '#f + 'seed) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '&raw-table-seed) + (cons (gx#datum->syntax '#f 'tab) '())) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())) + (cons (cons (gx#datum->syntax + '#f + '__table-set!) + (cons (gx#datum->syntax + '#f + 'table) + (cons (gx#datum->syntax + '#f + 'seed) + (cons _%g100294100362%_ + (cons _%g100293100360%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (gx#datum->syntax '#f 'key) + (cons (gx#datum->syntax '#f 'value) + (cons (cons (gx#datum->syntax + '#f + 'lambda) + (cons '() + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'set!) + (cons (cons (gx#datum->syntax + '#f + '&raw-table-free) + (cons (gx#datum->syntax '#f 'tab) + '())) + (cons (cons (gx#datum->syntax '#f 'fx-) + (cons (cons (gx#datum->syntax + '#f + '&raw-table-free) + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'tab) + '())) + (cons '1 '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + (cons (cons (gx#datum->syntax '#f 'set!) + (cons (cons (gx#datum->syntax + '#f + '&raw-table-count) + (cons (gx#datum->syntax + '#f + 'tab) + '())) + (cons (cons (gx#datum->syntax + '#f + 'fx+) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '&raw-table-count) + (cons (gx#datum->syntax '#f 'tab) '())) + (cons '1 '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + 'lambda) + (cons '() +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (cons (gx#datum->syntax '#f 'set!) + (cons (cons (gx#datum->syntax + '#f + '&raw-table-count) + (cons (gx#datum->syntax + '#f + 'tab) + '())) + (cons (cons (gx#datum->syntax + '#f + 'fx+) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '&raw-table-count) + (cons (gx#datum->syntax '#f 'tab) '())) + (cons '1 '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + '()))) + '()))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + 'def) + (cons (cons _%g100390100571%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (gx#datum->syntax '#f 'tab) + (cons (gx#datum->syntax '#f 'key) + (cons (gx#datum->syntax '#f 'value) + '())))) + (cons (cons (gx#datum->syntax '#f 'when) + (cons (cons (gx#datum->syntax '#f 'fx<) + (cons (cons (gx#datum->syntax + '#f + '&raw-table-free) + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'tab) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'fxquotient) + (cons (cons (gx#datum->syntax '#f 'vector-length) + (cons (cons (gx#datum->syntax + '#f + '&raw-table-table) + (cons (gx#datum->syntax + '#f + 'tab) + '())) + '())) + (cons '4 '()))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + '__raw-table-rehash!) + (cons (gx#datum->syntax + '#f + 'tab) + '())) + '()))) + (cons (cons _%g100391100572%_ + (cons (gx#datum->syntax '#f 'tab) + (cons (gx#datum->syntax '#f 'key) + (cons (gx#datum->syntax + '#f + 'value) + '())))) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + 'def) + (cons (cons _%g100389100570%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (gx#datum->syntax '#f 'tab) + (cons (gx#datum->syntax '#f 'key) + (cons (gx#datum->syntax + '#f + 'value) + '())))) + (cons (cons (gx#datum->syntax + '#f + 'do-raw-table-lock) + (cons (gx#datum->syntax '#f 'tab) + (cons (cons _%g100390100571%_ + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'tab) + (cons (gx#datum->syntax '#f 'key) + (cons (gx#datum->syntax '#f 'value) '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + '()))) + (cons (cons (gx#datum->syntax '#f 'def) + (cons (cons _%g100388100569%_ + (cons (gx#datum->syntax '#f 'tab) + (cons (gx#datum->syntax '#f 'key) + (cons _%g100387100568%_ + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'default) + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax '#f 'let) + (cons (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'table) + (cons (cons (gx#datum->syntax '#f '&raw-table-table) + (cons (gx#datum->syntax '#f 'tab) '())) + '())) + (cons (cons (gx#datum->syntax '#f 'seed) + (cons (cons (gx#datum->syntax + '#f + '&raw-table-seed) + (cons (gx#datum->syntax '#f 'tab) + '())) + '())) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '__table-update!) + (cons (gx#datum->syntax '#f 'table) + (cons (gx#datum->syntax '#f 'seed) + (cons _%g100294100362%_ + (cons _%g100293100360%_ + (cons (gx#datum->syntax + '#f + 'key) + (cons _%g100387100568%_ + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'default) + (cons (cons (gx#datum->syntax '#f 'lambda) + (cons '() + (cons (cons (gx#datum->syntax + '#f + 'set!) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '&raw-table-free) + (cons (gx#datum->syntax '#f 'tab) '())) + (cons (cons (gx#datum->syntax '#f 'fx-) + (cons (cons (gx#datum->syntax + '#f + '&raw-table-free) + (cons (gx#datum->syntax '#f 'tab) + '())) + (cons '1 '()))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + 'set!) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '&raw-table-count) + (cons (gx#datum->syntax '#f 'tab) '())) + (cons (cons (gx#datum->syntax '#f 'fx+) + (cons (cons (gx#datum->syntax + '#f + '&raw-table-count) + (cons (gx#datum->syntax + '#f + 'tab) + '())) + (cons '1 '()))) + '()))) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax '#f 'lambda) + (cons '() + (cons (cons (gx#datum->syntax + '#f + 'set!) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '&raw-table-count) + (cons (gx#datum->syntax '#f 'tab) '())) + (cons (cons (gx#datum->syntax '#f 'fx+) + (cons (cons (gx#datum->syntax + '#f + '&raw-table-count) + (cons (gx#datum->syntax + '#f + 'tab) + '())) + (cons '1 '()))) + '()))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + (cons (cons (gx#datum->syntax '#f 'def) + (cons (cons _%g100387100568%_ + (cons (gx#datum->syntax '#f 'tab) + (cons (gx#datum->syntax + '#f + 'key) + (cons _%g100387100568%_ + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'default) + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + 'when) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'fx<) + (cons (cons (gx#datum->syntax '#f '&raw-table-free) + (cons (gx#datum->syntax '#f 'tab) '())) + (cons (cons (gx#datum->syntax '#f 'fxquotient) + (cons (cons (gx#datum->syntax + '#f + 'vector-length) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '&raw-table-table) + (cons (gx#datum->syntax '#f 'tab) '())) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons '4 '()))) + '()))) + (cons (cons (gx#datum->syntax '#f '__raw-table-rehash!) + (cons (gx#datum->syntax '#f 'tab) '())) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons _%g100388100569%_ + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'tab) + (cons (gx#datum->syntax '#f 'key) + (cons _%g100387100568%_ + (cons (gx#datum->syntax '#f 'default) + '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))) + (cons (cons (gx#datum->syntax '#f 'def) + (cons (cons _%g100386100567%_ + (cons (gx#datum->syntax + '#f + 'tab) + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'key) + (cons _%g100387100568%_ + (cons (gx#datum->syntax '#f 'default) '()))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + 'do-raw-table-lock) + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'tab) + (cons (cons _%g100387100568%_ + (cons (gx#datum->syntax '#f 'tab) + (cons (gx#datum->syntax '#f 'key) + (cons _%g100387100568%_ + (cons (gx#datum->syntax + '#f + 'default) + '()))))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + (cons (cons (gx#datum->syntax '#f 'def) + (cons (cons _%g100385100566%_ + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'tab) + (cons (gx#datum->syntax '#f 'key) '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'let) + (cons (cons (cons (gx#datum->syntax '#f 'table) + (cons (cons (gx#datum->syntax + '#f + '&raw-table-table) + (cons (gx#datum->syntax + '#f + 'tab) + '())) + '())) + (cons (cons (gx#datum->syntax '#f 'seed) + (cons (cons (gx#datum->syntax + '#f + '&raw-table-seed) + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'tab) + '())) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())) + (cons (cons (gx#datum->syntax '#f '__table-del!) + (cons (gx#datum->syntax '#f 'table) + (cons (gx#datum->syntax + '#f + 'seed) + (cons _%g100294100362%_ + (cons _%g100293100360%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (gx#datum->syntax '#f 'key) + (cons (cons (gx#datum->syntax '#f 'lambda) + (cons '() + (cons (cons (gx#datum->syntax + '#f + 'set!) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '&raw-table-count) + (cons (gx#datum->syntax '#f 'tab) '())) + (cons (cons (gx#datum->syntax '#f 'fx-) + (cons (cons (gx#datum->syntax + '#f + '&raw-table-count) + (cons (gx#datum->syntax + '#f + 'tab) + '())) + (cons '1 '()))) + '()))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '()))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax '#f 'def) + (cons (cons _%g100384100564%_ + (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'tab) + (cons (gx#datum->syntax '#f 'key) '()))) + (cons (cons (gx#datum->syntax '#f 'do-raw-table-lock) + (cons (gx#datum->syntax '#f 'tab) + (cons (cons _%g100385100566%_ + (cons (gx#datum->syntax + '#f + 'tab) + (cons (gx#datum->syntax + '#f + 'key) + '()))) + '()))) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))))))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd100430100558%_ + _%hd100427100548%_ + _%hd100424100538%_ + _%hd100421100528%_ + _%hd100418100518%_ + _%hd100415100508%_ + _%hd100412100498%_ + _%hd100409100488%_ + _%hd100406100478%_ + _%hd100403100468%_ + _%hd100400100458%_ + _%hd100397100448%_) + (_%g100382100437%_ + _%g100383100441%_)))) + (_%g100382100437%_ _%g100383100441%_)))) + (_%g100382100437%_ _%g100383100441%_)))) + (_%g100382100437%_ _%g100383100441%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g100382100437%_ + _%g100383100441%_)))) + (_%g100382100437%_ + _%g100383100441%_)))) + (_%g100382100437%_ _%g100383100441%_)))) + (_%g100382100437%_ _%g100383100441%_)))) + (_%g100382100437%_ _%g100383100441%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g100382100437%_ + _%g100383100441%_)))) + (_%g100382100437%_ + _%g100383100441%_)))) + (_%g100382100437%_ _%g100383100441%_)))) + (_%g100382100437%_ _%g100383100441%_))))) + (_%g100381100622%_ + (list (gx#stx-identifier + _%g100295100363%_ + '"make-" + _%g100295100363%_) + (gx#stx-identifier + _%g100295100363%_ + '"make-" + _%g100295100363%_ + '"/lock") + (gx#stx-identifier + _%g100295100363%_ + _%g100295100363%_ + '"-ref") + (gx#stx-identifier + _%g100295100363%_ + _%g100295100363%_ + '"-ref/lock") + (gx#stx-identifier + _%g100295100363%_ + '"__" + _%g100295100363%_ + '"-set!") + (gx#stx-identifier + _%g100295100363%_ + _%g100295100363%_ + '"-set!") + (gx#stx-identifier + _%g100295100363%_ + _%g100295100363%_ + '"-set!/lock") + (gx#stx-identifier + _%g100295100363%_ + '"__" + _%g100295100363%_ + '"-update!") + (gx#stx-identifier + _%g100295100363%_ + _%g100295100363%_ + '"-update!") + (gx#stx-identifier + _%g100295100363%_ + _%g100295100363%_ + '"-update!/lock") + (gx#stx-identifier + _%g100295100363%_ + _%g100295100363%_ + '"-delete!") + (gx#stx-identifier + _%g100295100363%_ + _%g100295100363%_ + '"-delete!/lock"))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd100306100354%_ + _%hd100303100344%_ + _%hd100300100334%_) + (_%g100291100313%_ + _%g100292100317%_)))) + (_%g100291100313%_ + _%g100292100317%_)))) + (_%g100291100313%_ _%g100292100317%_)))) + (_%g100291100313%_ _%g100292100317%_)))) + (_%g100291100313%_ _%g100292100317%_))))) + (_%g100290100626%_ _%stx100288%_)))) (define |[:0:]#probe-step| - (lambda (_%$stx99384%_) - (let* ((_%g9938899410%_ - (lambda (_%g9938999406%_) + (lambda (_%$stx100630%_) + (let* ((_%g100634100656%_ + (lambda (_%g100635100652%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9938999406%_))) - (_%g9938799479%_ - (lambda (_%g9938999414%_) - (if (gx#stx-pair? _%g9938999414%_) - (let ((_%e9939399417%_ (gx#syntax-e _%g9938999414%_))) - (let ((_%hd9939499421%_ + _%g100635100652%_))) + (_%g100633100725%_ + (lambda (_%g100635100660%_) + (if (gx#stx-pair? _%g100635100660%_) + (let ((_%e100639100663%_ (gx#syntax-e _%g100635100660%_))) + (let ((_%hd100640100667%_ (let () (declare (not safe)) - (##car _%e9939399417%_))) - (_%tl9939599424%_ + (##car _%e100639100663%_))) + (_%tl100641100670%_ (let () (declare (not safe)) - (##cdr _%e9939399417%_)))) - (if (gx#stx-pair? _%tl9939599424%_) - (let ((_%e9939699427%_ - (gx#syntax-e _%tl9939599424%_))) - (let ((_%hd9939799431%_ + (##cdr _%e100639100663%_)))) + (if (gx#stx-pair? _%tl100641100670%_) + (let ((_%e100642100673%_ + (gx#syntax-e _%tl100641100670%_))) + (let ((_%hd100643100677%_ (let () (declare (not safe)) - (##car _%e9939699427%_))) - (_%tl9939899434%_ + (##car _%e100642100673%_))) + (_%tl100644100680%_ (let () (declare (not safe)) - (##cdr _%e9939699427%_)))) - (if (gx#stx-pair? _%tl9939899434%_) - (let ((_%e9939999437%_ - (gx#syntax-e _%tl9939899434%_))) - (let ((_%hd9940099441%_ + (##cdr _%e100642100673%_)))) + (if (gx#stx-pair? _%tl100644100680%_) + (let ((_%e100645100683%_ + (gx#syntax-e _%tl100644100680%_))) + (let ((_%hd100646100687%_ (let () (declare (not safe)) - (##car _%e9939999437%_))) - (_%tl9940199444%_ + (##car _%e100645100683%_))) + (_%tl100647100690%_ (let () (declare (not safe)) - (##cdr _%e9939999437%_)))) - (if (gx#stx-pair? _%tl9940199444%_) - (let ((_%e9940299447%_ + (##cdr _%e100645100683%_)))) + (if (gx#stx-pair? _%tl100647100690%_) + (let ((_%e100648100693%_ (gx#syntax-e - _%tl9940199444%_))) - (let ((_%hd9940399451%_ + _%tl100647100690%_))) + (let ((_%hd100649100697%_ (let () (declare (not safe)) - (##car _%e9940299447%_))) - (_%tl9940499454%_ + (##car _%e100648100693%_))) + (_%tl100650100700%_ (let () (declare (not safe)) - (##cdr _%e9940299447%_)))) + (##cdr _%e100648100693%_)))) (if (gx#stx-null? - _%tl9940499454%_) - ((lambda (_%L99457%_ - _%L99459%_ - _%L99460%_) + _%tl100650100700%_) + ((lambda (_%g100636100703%_ + _%g100637100705%_ + _%g100638100706%_) (cons (gx#datum->syntax '#f 'let) @@ -705,127 +1066,128 @@ '#f 'next-probe) (cons (cons (gx#datum->syntax '#f 'fx+) - (cons _%L99460%_ - (cons _%L99459%_ + (cons _%g100638100706%_ + (cons _%g100637100705%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fx*) - (cons _%L99459%_ (cons _%L99459%_ '()))) + (cons _%g100637100705%_ + (cons _%g100637100705%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'fxmodulo) (cons (gx#datum->syntax '#f 'next-probe) - (cons _%L99457%_ '()))) + (cons _%g100636100703%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9940399451%_ - _%hd9940099441%_ - _%hd9939799431%_) - (_%g9938899410%_ - _%g9938999414%_)))) - (_%g9938899410%_ - _%g9938999414%_)))) - (_%g9938899410%_ _%g9938999414%_)))) - (_%g9938899410%_ _%g9938999414%_)))) - (_%g9938899410%_ _%g9938999414%_))))) - (_%g9938799479%_ _%$stx99384%_)))) + _%hd100649100697%_ + _%hd100646100687%_ + _%hd100643100677%_) + (_%g100634100656%_ + _%g100635100660%_)))) + (_%g100634100656%_ + _%g100635100660%_)))) + (_%g100634100656%_ _%g100635100660%_)))) + (_%g100634100656%_ _%g100635100660%_)))) + (_%g100634100656%_ _%g100635100660%_))))) + (_%g100633100725%_ _%$stx100630%_)))) (define |[:0:]#__table-ref| - (lambda (_%$stx99483%_) - (let* ((_%g9948799521%_ - (lambda (_%g9948899517%_) + (lambda (_%$stx100729%_) + (let* ((_%g100733100767%_ + (lambda (_%g100734100763%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9948899517%_))) - (_%g9948699632%_ - (lambda (_%g9948899525%_) - (if (gx#stx-pair? _%g9948899525%_) - (let ((_%e9949599528%_ (gx#syntax-e _%g9948899525%_))) - (let ((_%hd9949699532%_ + _%g100734100763%_))) + (_%g100732100878%_ + (lambda (_%g100734100771%_) + (if (gx#stx-pair? _%g100734100771%_) + (let ((_%e100741100774%_ (gx#syntax-e _%g100734100771%_))) + (let ((_%hd100742100778%_ (let () (declare (not safe)) - (##car _%e9949599528%_))) - (_%tl9949799535%_ + (##car _%e100741100774%_))) + (_%tl100743100781%_ (let () (declare (not safe)) - (##cdr _%e9949599528%_)))) - (if (gx#stx-pair? _%tl9949799535%_) - (let ((_%e9949899538%_ - (gx#syntax-e _%tl9949799535%_))) - (let ((_%hd9949999542%_ + (##cdr _%e100741100774%_)))) + (if (gx#stx-pair? _%tl100743100781%_) + (let ((_%e100744100784%_ + (gx#syntax-e _%tl100743100781%_))) + (let ((_%hd100745100788%_ (let () (declare (not safe)) - (##car _%e9949899538%_))) - (_%tl9950099545%_ + (##car _%e100744100784%_))) + (_%tl100746100791%_ (let () (declare (not safe)) - (##cdr _%e9949899538%_)))) - (if (gx#stx-pair? _%tl9950099545%_) - (let ((_%e9950199548%_ - (gx#syntax-e _%tl9950099545%_))) - (let ((_%hd9950299552%_ + (##cdr _%e100744100784%_)))) + (if (gx#stx-pair? _%tl100746100791%_) + (let ((_%e100747100794%_ + (gx#syntax-e _%tl100746100791%_))) + (let ((_%hd100748100798%_ (let () (declare (not safe)) - (##car _%e9950199548%_))) - (_%tl9950399555%_ + (##car _%e100747100794%_))) + (_%tl100749100801%_ (let () (declare (not safe)) - (##cdr _%e9950199548%_)))) - (if (gx#stx-pair? _%tl9950399555%_) - (let ((_%e9950499558%_ + (##cdr _%e100747100794%_)))) + (if (gx#stx-pair? _%tl100749100801%_) + (let ((_%e100750100804%_ (gx#syntax-e - _%tl9950399555%_))) - (let ((_%hd9950599562%_ + _%tl100749100801%_))) + (let ((_%hd100751100808%_ (let () (declare (not safe)) - (##car _%e9950499558%_))) - (_%tl9950699565%_ + (##car _%e100750100804%_))) + (_%tl100752100811%_ (let () (declare (not safe)) - (##cdr _%e9950499558%_)))) + (##cdr _%e100750100804%_)))) (if (gx#stx-pair? - _%tl9950699565%_) - (let ((_%e9950799568%_ + _%tl100752100811%_) + (let ((_%e100753100814%_ (gx#syntax-e - _%tl9950699565%_))) - (let ((_%hd9950899572%_ + _%tl100752100811%_))) + (let ((_%hd100754100818%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9950799568%_))) - (_%tl9950999575%_ - (let () (declare (not safe)) (##cdr _%e9950799568%_)))) - (if (gx#stx-pair? _%tl9950999575%_) - (let ((_%e9951099578%_ (gx#syntax-e _%tl9950999575%_))) - (let ((_%hd9951199582%_ + (##car _%e100753100814%_))) + (_%tl100755100821%_ + (let () (declare (not safe)) (##cdr _%e100753100814%_)))) + (if (gx#stx-pair? _%tl100755100821%_) + (let ((_%e100756100824%_ (gx#syntax-e _%tl100755100821%_))) + (let ((_%hd100757100828%_ (let () (declare (not safe)) - (##car _%e9951099578%_))) - (_%tl9951299585%_ + (##car _%e100756100824%_))) + (_%tl100758100831%_ (let () (declare (not safe)) - (##cdr _%e9951099578%_)))) - (if (gx#stx-pair? _%tl9951299585%_) - (let ((_%e9951399588%_ - (gx#syntax-e _%tl9951299585%_))) - (let ((_%hd9951499592%_ + (##cdr _%e100756100824%_)))) + (if (gx#stx-pair? _%tl100758100831%_) + (let ((_%e100759100834%_ + (gx#syntax-e _%tl100758100831%_))) + (let ((_%hd100760100838%_ (let () (declare (not safe)) - (##car _%e9951399588%_))) - (_%tl9951599595%_ + (##car _%e100759100834%_))) + (_%tl100761100841%_ (let () (declare (not safe)) - (##cdr _%e9951399588%_)))) - (if (gx#stx-null? _%tl9951599595%_) - ((lambda (_%L99598%_ - _%L99600%_ - _%L99601%_ - _%L99602%_ - _%L99603%_ - _%L99604%_) + (##cdr _%e100759100834%_)))) + (if (gx#stx-null? _%tl100761100841%_) + ((lambda (_%g100735100844%_ + _%g100736100846%_ + _%g100737100847%_ + _%g100738100848%_ + _%g100739100849%_ + _%g100740100850%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f @@ -834,13 +1196,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fxxor) - (cons (cons _%L99602%_ - (cons _%L99600%_ '())) - (cons _%L99603%_ '()))) + (cons (cons _%g100738100848%_ + (cons _%g100736100846%_ '())) + (cons _%g100739100849%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L99604%_ '())) + (cons _%g100740100850%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'entries) (cons (cons (gx#datum->syntax @@ -893,7 +1255,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-ref) - (cons _%L99604%_ + (cons _%g100740100850%_ (cons (gx#datum->syntax '#f 'probe) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -908,7 +1270,7 @@ 'macro-unused-obj) '()) '()))) - (cons _%L99598%_ '())) + (cons _%g100735100844%_ '())) (cons (cons (cons (gx#datum->syntax '#f 'eq?) (cons (gx#datum->syntax '#f @@ -943,8 +1305,8 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L99601%_ - (cons _%L99600%_ + (cons (cons (cons _%g100737100847%_ + (cons _%g100736100846%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -954,7 +1316,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L99604%_ + (cons _%g100740100850%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) @@ -989,145 +1351,145 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9951499592%_ - _%hd9951199582%_ - _%hd9950899572%_ - _%hd9950599562%_ - _%hd9950299552%_ - _%hd9949999542%_) - (_%g9948799521%_ _%g9948899525%_)))) - (_%g9948799521%_ _%g9948899525%_)))) - (_%g9948799521%_ _%g9948899525%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9948799521%_ - _%g9948899525%_)))) - (_%g9948799521%_ - _%g9948899525%_)))) - (_%g9948799521%_ _%g9948899525%_)))) - (_%g9948799521%_ _%g9948899525%_)))) - (_%g9948799521%_ _%g9948899525%_))))) - (_%g9948699632%_ _%$stx99483%_)))) + _%hd100760100838%_ + _%hd100757100828%_ + _%hd100754100818%_ + _%hd100751100808%_ + _%hd100748100798%_ + _%hd100745100788%_) + (_%g100733100767%_ _%g100734100771%_)))) + (_%g100733100767%_ _%g100734100771%_)))) + (_%g100733100767%_ _%g100734100771%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g100733100767%_ + _%g100734100771%_)))) + (_%g100733100767%_ + _%g100734100771%_)))) + (_%g100733100767%_ _%g100734100771%_)))) + (_%g100733100767%_ _%g100734100771%_)))) + (_%g100733100767%_ _%g100734100771%_))))) + (_%g100732100878%_ _%$stx100729%_)))) (define |[:0:]#__table-set!| - (lambda (_%$stx99636%_) - (let* ((_%g9964099682%_ - (lambda (_%g9964199678%_) + (lambda (_%$stx100882%_) + (let* ((_%g100886100928%_ + (lambda (_%g100887100924%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9964199678%_))) - (_%g9963999821%_ - (lambda (_%g9964199686%_) - (if (gx#stx-pair? _%g9964199686%_) - (let ((_%e9965099689%_ (gx#syntax-e _%g9964199686%_))) - (let ((_%hd9965199693%_ + _%g100887100924%_))) + (_%g100885101067%_ + (lambda (_%g100887100932%_) + (if (gx#stx-pair? _%g100887100932%_) + (let ((_%e100896100935%_ (gx#syntax-e _%g100887100932%_))) + (let ((_%hd100897100939%_ (let () (declare (not safe)) - (##car _%e9965099689%_))) - (_%tl9965299696%_ + (##car _%e100896100935%_))) + (_%tl100898100942%_ (let () (declare (not safe)) - (##cdr _%e9965099689%_)))) - (if (gx#stx-pair? _%tl9965299696%_) - (let ((_%e9965399699%_ - (gx#syntax-e _%tl9965299696%_))) - (let ((_%hd9965499703%_ + (##cdr _%e100896100935%_)))) + (if (gx#stx-pair? _%tl100898100942%_) + (let ((_%e100899100945%_ + (gx#syntax-e _%tl100898100942%_))) + (let ((_%hd100900100949%_ (let () (declare (not safe)) - (##car _%e9965399699%_))) - (_%tl9965599706%_ + (##car _%e100899100945%_))) + (_%tl100901100952%_ (let () (declare (not safe)) - (##cdr _%e9965399699%_)))) - (if (gx#stx-pair? _%tl9965599706%_) - (let ((_%e9965699709%_ - (gx#syntax-e _%tl9965599706%_))) - (let ((_%hd9965799713%_ + (##cdr _%e100899100945%_)))) + (if (gx#stx-pair? _%tl100901100952%_) + (let ((_%e100902100955%_ + (gx#syntax-e _%tl100901100952%_))) + (let ((_%hd100903100959%_ (let () (declare (not safe)) - (##car _%e9965699709%_))) - (_%tl9965899716%_ + (##car _%e100902100955%_))) + (_%tl100904100962%_ (let () (declare (not safe)) - (##cdr _%e9965699709%_)))) - (if (gx#stx-pair? _%tl9965899716%_) - (let ((_%e9965999719%_ + (##cdr _%e100902100955%_)))) + (if (gx#stx-pair? _%tl100904100962%_) + (let ((_%e100905100965%_ (gx#syntax-e - _%tl9965899716%_))) - (let ((_%hd9966099723%_ + _%tl100904100962%_))) + (let ((_%hd100906100969%_ (let () (declare (not safe)) - (##car _%e9965999719%_))) - (_%tl9966199726%_ + (##car _%e100905100965%_))) + (_%tl100907100972%_ (let () (declare (not safe)) - (##cdr _%e9965999719%_)))) + (##cdr _%e100905100965%_)))) (if (gx#stx-pair? - _%tl9966199726%_) - (let ((_%e9966299729%_ + _%tl100907100972%_) + (let ((_%e100908100975%_ (gx#syntax-e - _%tl9966199726%_))) - (let ((_%hd9966399733%_ + _%tl100907100972%_))) + (let ((_%hd100909100979%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9966299729%_))) - (_%tl9966499736%_ - (let () (declare (not safe)) (##cdr _%e9966299729%_)))) - (if (gx#stx-pair? _%tl9966499736%_) - (let ((_%e9966599739%_ (gx#syntax-e _%tl9966499736%_))) - (let ((_%hd9966699743%_ + (##car _%e100908100975%_))) + (_%tl100910100982%_ + (let () (declare (not safe)) (##cdr _%e100908100975%_)))) + (if (gx#stx-pair? _%tl100910100982%_) + (let ((_%e100911100985%_ (gx#syntax-e _%tl100910100982%_))) + (let ((_%hd100912100989%_ (let () (declare (not safe)) - (##car _%e9966599739%_))) - (_%tl9966799746%_ + (##car _%e100911100985%_))) + (_%tl100913100992%_ (let () (declare (not safe)) - (##cdr _%e9966599739%_)))) - (if (gx#stx-pair? _%tl9966799746%_) - (let ((_%e9966899749%_ - (gx#syntax-e _%tl9966799746%_))) - (let ((_%hd9966999753%_ + (##cdr _%e100911100985%_)))) + (if (gx#stx-pair? _%tl100913100992%_) + (let ((_%e100914100995%_ + (gx#syntax-e _%tl100913100992%_))) + (let ((_%hd100915100999%_ (let () (declare (not safe)) - (##car _%e9966899749%_))) - (_%tl9967099756%_ + (##car _%e100914100995%_))) + (_%tl100916101002%_ (let () (declare (not safe)) - (##cdr _%e9966899749%_)))) - (if (gx#stx-pair? _%tl9967099756%_) - (let ((_%e9967199759%_ - (gx#syntax-e _%tl9967099756%_))) - (let ((_%hd9967299763%_ + (##cdr _%e100914100995%_)))) + (if (gx#stx-pair? _%tl100916101002%_) + (let ((_%e100917101005%_ + (gx#syntax-e _%tl100916101002%_))) + (let ((_%hd100918101009%_ (let () (declare (not safe)) - (##car _%e9967199759%_))) - (_%tl9967399766%_ + (##car _%e100917101005%_))) + (_%tl100919101012%_ (let () (declare (not safe)) - (##cdr _%e9967199759%_)))) - (if (gx#stx-pair? _%tl9967399766%_) - (let ((_%e9967499769%_ + (##cdr _%e100917101005%_)))) + (if (gx#stx-pair? _%tl100919101012%_) + (let ((_%e100920101015%_ (gx#syntax-e - _%tl9967399766%_))) - (let ((_%hd9967599773%_ + _%tl100919101012%_))) + (let ((_%hd100921101019%_ (let () (declare (not safe)) - (##car _%e9967499769%_))) - (_%tl9967699776%_ + (##car _%e100920101015%_))) + (_%tl100922101022%_ (let () (declare (not safe)) - (##cdr _%e9967499769%_)))) + (##cdr _%e100920101015%_)))) (if (gx#stx-null? - _%tl9967699776%_) - ((lambda (_%L99779%_ - _%L99781%_ - _%L99782%_ - _%L99783%_ - _%L99784%_ - _%L99785%_ - _%L99786%_ - _%L99787%_) + _%tl100922101022%_) + ((lambda (_%g100888101025%_ + _%g100889101027%_ + _%g100890101028%_ + _%g100891101029%_ + _%g100892101030%_ + _%g100893101031%_ + _%g100894101032%_ + _%g100895101033%_) (cons (gx#datum->syntax '#f 'let*) @@ -1138,18 +1500,19 @@ (cons (cons (gx#datum->syntax '#f 'fxxor) - (cons (cons _%L99785%_ - (cons _%L99783%_ + (cons (cons _%g100893101031%_ + (cons _%g100891101029%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L99786%_ '()))) + (cons _%g100894101032%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L99787%_ '())) + (cons _%g100895101033%_ + '())) '())) (cons (cons (gx#datum->syntax '#f @@ -1206,7 +1569,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L99787%_ + (cons _%g100895101033%_ (cons (gx#datum->syntax '#f 'probe) @@ -1233,41 +1596,41 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L99787%_ + (cons _%g100895101033%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'deleted) - (cons _%L99783%_ '())))) + (cons _%g100891101029%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L99787%_ + (cons _%g100895101033%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'deleted) (cons '1 '()))) - (cons _%L99782%_ '())))) - (cons (cons _%L99779%_ '()) '())))) + (cons _%g100890101028%_ '())))) + (cons (cons _%g100888101025%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L99787%_ + (cons _%g100895101033%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'probe) - (cons _%L99783%_ '())))) + (cons _%g100891101029%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L99787%_ + (cons _%g100895101033%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) (cons '1 '()))) - (cons _%L99782%_ '())))) - (cons (cons _%L99781%_ '()) '())))) + (cons _%g100890101028%_ '())))) + (cons (cons _%g100889101027%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -1312,16 +1675,17 @@ '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (cons _%L99784%_ + (cons (cons (cons _%g100892101030%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L99783%_ + (cons _%g100891101029%_ (cons (gx#datum->syntax '#f 'k) '()))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L99787%_ + (cons _%g100895101033%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L99783%_ '())))) + (cons _%g100891101029%_ + '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L99787%_ + (cons _%g100895101033%_ (cons (cons (gx#datum->syntax '#f 'fx+) @@ -1330,7 +1694,7 @@ '#f 'probe) (cons '1 '()))) - (cons _%L99782%_ '())))) + (cons _%g100890101028%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'else) @@ -1365,173 +1729,173 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9967599773%_ - _%hd9967299763%_ - _%hd9966999753%_ - _%hd9966699743%_ - _%hd9966399733%_ - _%hd9966099723%_ - _%hd9965799713%_ - _%hd9965499703%_) - (_%g9964099682%_ - _%g9964199686%_)))) - (_%g9964099682%_ - _%g9964199686%_)))) - (_%g9964099682%_ _%g9964199686%_)))) - (_%g9964099682%_ _%g9964199686%_)))) - (_%g9964099682%_ _%g9964199686%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9964099682%_ - _%g9964199686%_)))) - (_%g9964099682%_ - _%g9964199686%_)))) - (_%g9964099682%_ _%g9964199686%_)))) - (_%g9964099682%_ _%g9964199686%_)))) - (_%g9964099682%_ _%g9964199686%_))))) - (_%g9963999821%_ _%$stx99636%_)))) + _%hd100921101019%_ + _%hd100918101009%_ + _%hd100915100999%_ + _%hd100912100989%_ + _%hd100909100979%_ + _%hd100906100969%_ + _%hd100903100959%_ + _%hd100900100949%_) + (_%g100886100928%_ + _%g100887100932%_)))) + (_%g100886100928%_ + _%g100887100932%_)))) + (_%g100886100928%_ _%g100887100932%_)))) + (_%g100886100928%_ _%g100887100932%_)))) + (_%g100886100928%_ _%g100887100932%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g100886100928%_ + _%g100887100932%_)))) + (_%g100886100928%_ + _%g100887100932%_)))) + (_%g100886100928%_ _%g100887100932%_)))) + (_%g100886100928%_ _%g100887100932%_)))) + (_%g100886100928%_ _%g100887100932%_))))) + (_%g100885101067%_ _%$stx100882%_)))) (define |[:0:]#__table-update!| - (lambda (_%$stx99825%_) - (let* ((_%g9982999875%_ - (lambda (_%g9983099871%_) + (lambda (_%$stx101071%_) + (let* ((_%g101075101121%_ + (lambda (_%g101076101117%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9983099871%_))) - (_%g99828100028%_ - (lambda (_%g9983099879%_) - (if (gx#stx-pair? _%g9983099879%_) - (let ((_%e9984099882%_ (gx#syntax-e _%g9983099879%_))) - (let ((_%hd9984199886%_ + _%g101076101117%_))) + (_%g101074101274%_ + (lambda (_%g101076101125%_) + (if (gx#stx-pair? _%g101076101125%_) + (let ((_%e101086101128%_ (gx#syntax-e _%g101076101125%_))) + (let ((_%hd101087101132%_ (let () (declare (not safe)) - (##car _%e9984099882%_))) - (_%tl9984299889%_ + (##car _%e101086101128%_))) + (_%tl101088101135%_ (let () (declare (not safe)) - (##cdr _%e9984099882%_)))) - (if (gx#stx-pair? _%tl9984299889%_) - (let ((_%e9984399892%_ - (gx#syntax-e _%tl9984299889%_))) - (let ((_%hd9984499896%_ + (##cdr _%e101086101128%_)))) + (if (gx#stx-pair? _%tl101088101135%_) + (let ((_%e101089101138%_ + (gx#syntax-e _%tl101088101135%_))) + (let ((_%hd101090101142%_ (let () (declare (not safe)) - (##car _%e9984399892%_))) - (_%tl9984599899%_ + (##car _%e101089101138%_))) + (_%tl101091101145%_ (let () (declare (not safe)) - (##cdr _%e9984399892%_)))) - (if (gx#stx-pair? _%tl9984599899%_) - (let ((_%e9984699902%_ - (gx#syntax-e _%tl9984599899%_))) - (let ((_%hd9984799906%_ + (##cdr _%e101089101138%_)))) + (if (gx#stx-pair? _%tl101091101145%_) + (let ((_%e101092101148%_ + (gx#syntax-e _%tl101091101145%_))) + (let ((_%hd101093101152%_ (let () (declare (not safe)) - (##car _%e9984699902%_))) - (_%tl9984899909%_ + (##car _%e101092101148%_))) + (_%tl101094101155%_ (let () (declare (not safe)) - (##cdr _%e9984699902%_)))) - (if (gx#stx-pair? _%tl9984899909%_) - (let ((_%e9984999912%_ + (##cdr _%e101092101148%_)))) + (if (gx#stx-pair? _%tl101094101155%_) + (let ((_%e101095101158%_ (gx#syntax-e - _%tl9984899909%_))) - (let ((_%hd9985099916%_ + _%tl101094101155%_))) + (let ((_%hd101096101162%_ (let () (declare (not safe)) - (##car _%e9984999912%_))) - (_%tl9985199919%_ + (##car _%e101095101158%_))) + (_%tl101097101165%_ (let () (declare (not safe)) - (##cdr _%e9984999912%_)))) + (##cdr _%e101095101158%_)))) (if (gx#stx-pair? - _%tl9985199919%_) - (let ((_%e9985299922%_ + _%tl101097101165%_) + (let ((_%e101098101168%_ (gx#syntax-e - _%tl9985199919%_))) - (let ((_%hd9985399926%_ + _%tl101097101165%_))) + (let ((_%hd101099101172%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9985299922%_))) - (_%tl9985499929%_ - (let () (declare (not safe)) (##cdr _%e9985299922%_)))) - (if (gx#stx-pair? _%tl9985499929%_) - (let ((_%e9985599932%_ (gx#syntax-e _%tl9985499929%_))) - (let ((_%hd9985699936%_ + (##car _%e101098101168%_))) + (_%tl101100101175%_ + (let () (declare (not safe)) (##cdr _%e101098101168%_)))) + (if (gx#stx-pair? _%tl101100101175%_) + (let ((_%e101101101178%_ (gx#syntax-e _%tl101100101175%_))) + (let ((_%hd101102101182%_ (let () (declare (not safe)) - (##car _%e9985599932%_))) - (_%tl9985799939%_ + (##car _%e101101101178%_))) + (_%tl101103101185%_ (let () (declare (not safe)) - (##cdr _%e9985599932%_)))) - (if (gx#stx-pair? _%tl9985799939%_) - (let ((_%e9985899942%_ - (gx#syntax-e _%tl9985799939%_))) - (let ((_%hd9985999946%_ + (##cdr _%e101101101178%_)))) + (if (gx#stx-pair? _%tl101103101185%_) + (let ((_%e101104101188%_ + (gx#syntax-e _%tl101103101185%_))) + (let ((_%hd101105101192%_ (let () (declare (not safe)) - (##car _%e9985899942%_))) - (_%tl9986099949%_ + (##car _%e101104101188%_))) + (_%tl101106101195%_ (let () (declare (not safe)) - (##cdr _%e9985899942%_)))) - (if (gx#stx-pair? _%tl9986099949%_) - (let ((_%e9986199952%_ - (gx#syntax-e _%tl9986099949%_))) - (let ((_%hd9986299956%_ + (##cdr _%e101104101188%_)))) + (if (gx#stx-pair? _%tl101106101195%_) + (let ((_%e101107101198%_ + (gx#syntax-e _%tl101106101195%_))) + (let ((_%hd101108101202%_ (let () (declare (not safe)) - (##car _%e9986199952%_))) - (_%tl9986399959%_ + (##car _%e101107101198%_))) + (_%tl101109101205%_ (let () (declare (not safe)) - (##cdr _%e9986199952%_)))) - (if (gx#stx-pair? _%tl9986399959%_) - (let ((_%e9986499962%_ + (##cdr _%e101107101198%_)))) + (if (gx#stx-pair? _%tl101109101205%_) + (let ((_%e101110101208%_ (gx#syntax-e - _%tl9986399959%_))) - (let ((_%hd9986599966%_ + _%tl101109101205%_))) + (let ((_%hd101111101212%_ (let () (declare (not safe)) - (##car _%e9986499962%_))) - (_%tl9986699969%_ + (##car _%e101110101208%_))) + (_%tl101112101215%_ (let () (declare (not safe)) - (##cdr _%e9986499962%_)))) + (##cdr _%e101110101208%_)))) (if (gx#stx-pair? - _%tl9986699969%_) - (let ((_%e9986799972%_ + _%tl101112101215%_) + (let ((_%e101113101218%_ (gx#syntax-e - _%tl9986699969%_))) - (let ((_%hd9986899976%_ + _%tl101112101215%_))) + (let ((_%hd101114101222%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9986799972%_))) - (_%tl9986999979%_ - (let () (declare (not safe)) (##cdr _%e9986799972%_)))) - (if (gx#stx-null? _%tl9986999979%_) - ((lambda (_%L99982%_ - _%L99984%_ - _%L99985%_ - _%L99986%_ - _%L99987%_ - _%L99988%_ - _%L99989%_ - _%L99990%_ - _%L99991%_) + (##car _%e101113101218%_))) + (_%tl101115101225%_ + (let () (declare (not safe)) (##cdr _%e101113101218%_)))) + (if (gx#stx-null? _%tl101115101225%_) + ((lambda (_%g101077101228%_ + _%g101078101230%_ + _%g101079101231%_ + _%g101080101232%_ + _%g101081101233%_ + _%g101082101234%_ + _%g101083101235%_ + _%g101084101236%_ + _%g101085101237%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f 'h) (cons (cons (gx#datum->syntax '#f 'fxxor) - (cons (cons _%L99989%_ + (cons (cons _%g101083101235%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L99987%_ '())) - (cons _%L99990%_ '()))) + (cons _%g101081101233%_ '())) + (cons _%g101084101236%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax @@ -1541,7 +1905,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-length) - (cons _%L99991%_ '())) + (cons _%g101085101237%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -1594,7 +1958,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L99991%_ + (cons _%g101085101237%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1621,21 +1985,22 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L99991%_ + (cons _%g101085101237%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'deleted) - (cons _%L99987%_ '())))) + (cons _%g101081101233%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L99991%_ + (cons _%g101085101237%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'deleted) (cons '1 '()))) - (cons (cons _%L99986%_ - (cons _%L99985%_ '())) + (cons (cons _%g101080101232%_ + (cons _%g101079101231%_ + '())) '())))) - (cons (cons _%L99982%_ '()) '())))) + (cons (cons _%g101077101228%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -1644,11 +2009,11 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-set!) - (cons _%L99991%_ + (cons _%g101085101237%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L99987%_ '())))) + (cons _%g101081101233%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L99991%_ + (cons _%g101085101237%_ (cons (cons (gx#datum->syntax '#f 'fx+) @@ -1656,13 +2021,13 @@ '#f 'probe) (cons '1 '()))) - (cons (cons _%L99986%_ - (cons _%L99985%_ + (cons (cons _%g101080101232%_ + (cons _%g101079101231%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (cons (cons _%L99984%_ '()) '())))) + (cons (cons _%g101078101230%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -1707,34 +2072,34 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L99988%_ - (cons _%L99987%_ + (cons (cons (cons _%g101082101234%_ + (cons _%g101081101233%_ (cons (gx#datum->syntax '#f 'k) '()))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L99991%_ + (cons _%g101085101237%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L99987%_ + (cons _%g101081101233%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L99991%_ + (cons _%g101085101237%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) (cons '1 '()))) - (cons (cons _%L99986%_ + (cons (cons _%g101080101232%_ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L99991%_ + (cons _%g101085101237%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1768,128 +2133,128 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd9986899976%_ - _%hd9986599966%_ - _%hd9986299956%_ - _%hd9985999946%_ - _%hd9985699936%_ - _%hd9985399926%_ - _%hd9985099916%_ - _%hd9984799906%_ - _%hd9984499896%_) - (_%g9982999875%_ _%g9983099879%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9982999875%_ - _%g9983099879%_)))) - (_%g9982999875%_ - _%g9983099879%_)))) - (_%g9982999875%_ _%g9983099879%_)))) - (_%g9982999875%_ _%g9983099879%_)))) - (_%g9982999875%_ _%g9983099879%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9982999875%_ - _%g9983099879%_)))) - (_%g9982999875%_ - _%g9983099879%_)))) - (_%g9982999875%_ _%g9983099879%_)))) - (_%g9982999875%_ _%g9983099879%_)))) - (_%g9982999875%_ _%g9983099879%_))))) - (_%g99828100028%_ _%$stx99825%_)))) + _%hd101114101222%_ + _%hd101111101212%_ + _%hd101108101202%_ + _%hd101105101192%_ + _%hd101102101182%_ + _%hd101099101172%_ + _%hd101096101162%_ + _%hd101093101152%_ + _%hd101090101142%_) + (_%g101075101121%_ _%g101076101125%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g101075101121%_ + _%g101076101125%_)))) + (_%g101075101121%_ + _%g101076101125%_)))) + (_%g101075101121%_ _%g101076101125%_)))) + (_%g101075101121%_ _%g101076101125%_)))) + (_%g101075101121%_ _%g101076101125%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g101075101121%_ + _%g101076101125%_)))) + (_%g101075101121%_ + _%g101076101125%_)))) + (_%g101075101121%_ _%g101076101125%_)))) + (_%g101075101121%_ _%g101076101125%_)))) + (_%g101075101121%_ _%g101076101125%_))))) + (_%g101074101274%_ _%$stx101071%_)))) (define |[:0:]#__table-del!| - (lambda (_%$stx100032%_) - (let* ((_%g100036100070%_ - (lambda (_%g100037100066%_) + (lambda (_%$stx101278%_) + (let* ((_%g101282101316%_ + (lambda (_%g101283101312%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g100037100066%_))) - (_%g100035100181%_ - (lambda (_%g100037100074%_) - (if (gx#stx-pair? _%g100037100074%_) - (let ((_%e100044100077%_ (gx#syntax-e _%g100037100074%_))) - (let ((_%hd100045100081%_ + _%g101283101312%_))) + (_%g101281101427%_ + (lambda (_%g101283101320%_) + (if (gx#stx-pair? _%g101283101320%_) + (let ((_%e101290101323%_ (gx#syntax-e _%g101283101320%_))) + (let ((_%hd101291101327%_ (let () (declare (not safe)) - (##car _%e100044100077%_))) - (_%tl100046100084%_ + (##car _%e101290101323%_))) + (_%tl101292101330%_ (let () (declare (not safe)) - (##cdr _%e100044100077%_)))) - (if (gx#stx-pair? _%tl100046100084%_) - (let ((_%e100047100087%_ - (gx#syntax-e _%tl100046100084%_))) - (let ((_%hd100048100091%_ + (##cdr _%e101290101323%_)))) + (if (gx#stx-pair? _%tl101292101330%_) + (let ((_%e101293101333%_ + (gx#syntax-e _%tl101292101330%_))) + (let ((_%hd101294101337%_ (let () (declare (not safe)) - (##car _%e100047100087%_))) - (_%tl100049100094%_ + (##car _%e101293101333%_))) + (_%tl101295101340%_ (let () (declare (not safe)) - (##cdr _%e100047100087%_)))) - (if (gx#stx-pair? _%tl100049100094%_) - (let ((_%e100050100097%_ - (gx#syntax-e _%tl100049100094%_))) - (let ((_%hd100051100101%_ + (##cdr _%e101293101333%_)))) + (if (gx#stx-pair? _%tl101295101340%_) + (let ((_%e101296101343%_ + (gx#syntax-e _%tl101295101340%_))) + (let ((_%hd101297101347%_ (let () (declare (not safe)) - (##car _%e100050100097%_))) - (_%tl100052100104%_ + (##car _%e101296101343%_))) + (_%tl101298101350%_ (let () (declare (not safe)) - (##cdr _%e100050100097%_)))) - (if (gx#stx-pair? _%tl100052100104%_) - (let ((_%e100053100107%_ + (##cdr _%e101296101343%_)))) + (if (gx#stx-pair? _%tl101298101350%_) + (let ((_%e101299101353%_ (gx#syntax-e - _%tl100052100104%_))) - (let ((_%hd100054100111%_ + _%tl101298101350%_))) + (let ((_%hd101300101357%_ (let () (declare (not safe)) - (##car _%e100053100107%_))) - (_%tl100055100114%_ + (##car _%e101299101353%_))) + (_%tl101301101360%_ (let () (declare (not safe)) - (##cdr _%e100053100107%_)))) + (##cdr _%e101299101353%_)))) (if (gx#stx-pair? - _%tl100055100114%_) - (let ((_%e100056100117%_ + _%tl101301101360%_) + (let ((_%e101302101363%_ (gx#syntax-e - _%tl100055100114%_))) - (let ((_%hd100057100121%_ + _%tl101301101360%_))) + (let ((_%hd101303101367%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e100056100117%_))) - (_%tl100058100124%_ - (let () (declare (not safe)) (##cdr _%e100056100117%_)))) - (if (gx#stx-pair? _%tl100058100124%_) - (let ((_%e100059100127%_ (gx#syntax-e _%tl100058100124%_))) - (let ((_%hd100060100131%_ + (##car _%e101302101363%_))) + (_%tl101304101370%_ + (let () (declare (not safe)) (##cdr _%e101302101363%_)))) + (if (gx#stx-pair? _%tl101304101370%_) + (let ((_%e101305101373%_ (gx#syntax-e _%tl101304101370%_))) + (let ((_%hd101306101377%_ (let () (declare (not safe)) - (##car _%e100059100127%_))) - (_%tl100061100134%_ + (##car _%e101305101373%_))) + (_%tl101307101380%_ (let () (declare (not safe)) - (##cdr _%e100059100127%_)))) - (if (gx#stx-pair? _%tl100061100134%_) - (let ((_%e100062100137%_ - (gx#syntax-e _%tl100061100134%_))) - (let ((_%hd100063100141%_ + (##cdr _%e101305101373%_)))) + (if (gx#stx-pair? _%tl101307101380%_) + (let ((_%e101308101383%_ + (gx#syntax-e _%tl101307101380%_))) + (let ((_%hd101309101387%_ (let () (declare (not safe)) - (##car _%e100062100137%_))) - (_%tl100064100144%_ + (##car _%e101308101383%_))) + (_%tl101310101390%_ (let () (declare (not safe)) - (##cdr _%e100062100137%_)))) - (if (gx#stx-null? _%tl100064100144%_) - ((lambda (_%L100147%_ - _%L100149%_ - _%L100150%_ - _%L100151%_ - _%L100152%_ - _%L100153%_) + (##cdr _%e101308101383%_)))) + (if (gx#stx-null? _%tl101310101390%_) + ((lambda (_%g101284101393%_ + _%g101285101395%_ + _%g101286101396%_ + _%g101287101397%_ + _%g101288101398%_ + _%g101289101399%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f @@ -1898,13 +2263,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fxxor) - (cons (cons _%L100151%_ - (cons _%L100149%_ '())) - (cons _%L100152%_ '()))) + (cons (cons _%g101287101397%_ + (cons _%g101285101395%_ '())) + (cons _%g101288101398%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L100153%_ '())) + (cons _%g101289101399%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'entries) (cons (cons (gx#datum->syntax @@ -1953,7 +2318,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-ref) - (cons _%L100153%_ + (cons _%g101289101399%_ (cons (gx#datum->syntax '#f 'probe) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1999,8 +2364,8 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L100150%_ - (cons _%L100149%_ + (cons (cons (cons _%g101286101396%_ + (cons _%g101285101395%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -2010,7 +2375,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L100153%_ + (cons _%g101289101399%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'probe) (cons (cons (gx#datum->syntax @@ -2019,7 +2384,7 @@ '()) '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L100153%_ + (cons _%g101289101399%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f @@ -2030,7 +2395,7 @@ 'macro-absent-obj) '()) '())))) - (cons (cons _%L100147%_ '()) '())))) + (cons (cons _%g101284101393%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -2058,21 +2423,84 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd100063100141%_ - _%hd100060100131%_ - _%hd100057100121%_ - _%hd100054100111%_ - _%hd100051100101%_ - _%hd100048100091%_) - (_%g100036100070%_ _%g100037100074%_)))) - (_%g100036100070%_ _%g100037100074%_)))) - (_%g100036100070%_ _%g100037100074%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g100036100070%_ - _%g100037100074%_)))) - (_%g100036100070%_ - _%g100037100074%_)))) - (_%g100036100070%_ _%g100037100074%_)))) - (_%g100036100070%_ _%g100037100074%_)))) - (_%g100036100070%_ _%g100037100074%_))))) - (_%g100035100181%_ _%$stx100032%_))))) + _%hd101309101387%_ + _%hd101306101377%_ + _%hd101303101367%_ + _%hd101300101357%_ + _%hd101297101347%_ + _%hd101294101337%_) + (_%g101282101316%_ _%g101283101320%_)))) + (_%g101282101316%_ _%g101283101320%_)))) + (_%g101282101316%_ _%g101283101320%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g101282101316%_ + _%g101283101320%_)))) + (_%g101282101316%_ + _%g101283101320%_)))) + (_%g101282101316%_ _%g101283101320%_)))) + (_%g101282101316%_ _%g101283101320%_)))) + (_%g101282101316%_ _%g101283101320%_))))) + (_%g101281101427%_ _%$stx101278%_)))) + (define |[:0:]#do-gc-table-lock| + (lambda (_%$stx101431%_) + (let* ((_%g101435101453%_ + (lambda (_%g101436101449%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g101436101449%_))) + (_%g101434101508%_ + (lambda (_%g101436101457%_) + (if (gx#stx-pair? _%g101436101457%_) + (let ((_%e101439101460%_ (gx#syntax-e _%g101436101457%_))) + (let ((_%hd101440101464%_ + (let () + (declare (not safe)) + (##car _%e101439101460%_))) + (_%tl101441101467%_ + (let () + (declare (not safe)) + (##cdr _%e101439101460%_)))) + (if (gx#stx-pair? _%tl101441101467%_) + (let ((_%e101442101470%_ + (gx#syntax-e _%tl101441101467%_))) + (let ((_%hd101443101474%_ + (let () + (declare (not safe)) + (##car _%e101442101470%_))) + (_%tl101444101477%_ + (let () + (declare (not safe)) + (##cdr _%e101442101470%_)))) + (if (gx#stx-pair? _%tl101444101477%_) + (let ((_%e101445101480%_ + (gx#syntax-e _%tl101444101477%_))) + (let ((_%hd101446101484%_ + (let () + (declare (not safe)) + (##car _%e101445101480%_))) + (_%tl101447101487%_ + (let () + (declare (not safe)) + (##cdr _%e101445101480%_)))) + (if (gx#stx-null? _%tl101447101487%_) + ((lambda (_%g101437101490%_ + _%g101438101492%_) + (cons (gx#datum->syntax + '#f + '__do-inline-lock!) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '&gc-table-lock) + (cons _%g101438101492%_ '())) + (cons _%g101437101490%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd101446101484%_ + _%hd101443101474%_) + (_%g101435101453%_ + _%g101436101457%_)))) + (_%g101435101453%_ _%g101436101457%_)))) + (_%g101435101453%_ _%g101436101457%_)))) + (_%g101435101453%_ _%g101436101457%_))))) + (_%g101434101508%_ _%$stx101431%_))))) diff --git a/src/bootstrap/gerbil/runtime/thread.ssi b/src/bootstrap/gerbil/runtime/thread.ssi index b12020fc42..8f1fd45709 100644 --- a/src/bootstrap/gerbil/runtime/thread.ssi +++ b/src/bootstrap/gerbil/runtime/thread.ssi @@ -8,6 +8,14 @@ namespace: #f :gerbil/runtime/error :gerbil/runtime/hash) (%#export #t) + (%#define-runtime __system_thread-group __system_thread-group) + (%#define-runtime system-thread-group system-thread-group) + (%#define-runtime make-system-thread make-system-thread) + (%#define-runtime __make-system-thread __make-system-thread) + (%#define-runtime system-thread! system-thread!) + (%#define-runtime __system-thread! __system-thread!) + (%#define-runtime system-actor! system-actor!) + (%#define-runtime __system-actor! __system-actor!) (%#define-runtime spawn spawn) (%#define-runtime __spawn __spawn) (%#define-runtime spawn/name spawn/name) @@ -19,6 +27,7 @@ namespace: #f (%#begin (%#define-runtime spawn-thread__0 spawn-thread__0) (%#define-runtime spawn-thread__1 spawn-thread__1) (%#define-runtime spawn-thread spawn-thread))) + (%#define-runtime thread-main thread-main) (%#begin (%#define-runtime thread-local-ref__% thread-local-ref__%) (%#begin (%#define-runtime thread-local-ref__0 @@ -80,6 +89,8 @@ namespace: #f (%#extern (actor-thread? actor-thread?) (construct-actor-thread construct-actor-thread) + (actor-thread-state actor-thread-state) + (actor-thread-state-set! actor-thread-state-set!) (actor-thread-locals actor-thread-locals) (actor-thread-locals-set! actor-thread-locals-set!) (actor-thread-nonce actor-thread-nonce) diff --git a/src/bootstrap/gerbil/runtime/thread.ssxi.ss b/src/bootstrap/gerbil/runtime/thread.ssxi.ss index a634037e6f..1a7887715d 100644 --- a/src/bootstrap/gerbil/runtime/thread.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/thread.ssxi.ss @@ -2,6 +2,116 @@ prelude: :gerbil/compiler/ssxi package: gerbil/runtime (begin + (declare-type + __system_thread-group + (optimizer-resolve-class + '(typedecl __system_thread-group) + 'thread-group::t)) + (declare-type + system-thread-group + (@lambda 0 + #f + signature: + (return: + thread-group::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) + (declare-type + make-system-thread + (@lambda 2 + #f + signature: + (return: + thread::t + effect: + #f + arguments: + (procedure::t symbol::t) + unchecked: + __make-system-thread + origin: + gerbil/runtime/thread))) + (declare-type + __make-system-thread + (@lambda 2 + #f + signature: + (return: + thread::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) + (declare-type + system-thread! + (@lambda 2 + #f + signature: + (return: + thread::t + effect: + #f + arguments: + (procedure::t symbol::t) + unchecked: + __system-thread! + origin: + gerbil/runtime/thread))) + (declare-type + __system-thread! + (@lambda 2 + #f + signature: + (return: + thread::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) + (declare-type + system-actor! + (@lambda 2 + #f + signature: + (return: + thread::t + effect: + #f + arguments: + (procedure::t symbol::t) + unchecked: + __system-actor! + origin: + gerbil/runtime/thread))) + (declare-type + __system-actor! + (@lambda 2 + #f + signature: + (return: + thread::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type spawn (@lambda (1) @@ -194,6 +304,21 @@ package: gerbil/runtime #f origin: gerbil/runtime/thread)))) + (declare-type + thread-main + (@lambda 1 + #f + signature: + (return: + t::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/thread))) (declare-type thread-local-ref__% (@lambda 2 @@ -328,14 +453,14 @@ package: gerbil/runtime __unhandled-actor-exception-hook (optimizer-resolve-class '(typedecl __unhandled-actor-exception-hook) - 't::t)) + 'builtin::t)) (declare-type unhandled-actor-exception-hook (@lambda 0 #f signature: (return: - t::t + builtin::t effect: #f arguments: diff --git a/src/bootstrap/gerbil/runtime/thread~0.scm b/src/bootstrap/gerbil/runtime/thread~0.scm index f6d3eeb6b4..67ed02a87a 100644 --- a/src/bootstrap/gerbil/runtime/thread~0.scm +++ b/src/bootstrap/gerbil/runtime/thread~0.scm @@ -1,206 +1,313 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/thread::timestamp 1756721295) + (define gerbil/runtime/thread::timestamp 1769384628) (begin + (define __system_thread-group (make-thread-group 'system)) + (define system-thread-group (lambda () __system_thread-group)) + (define make-system-thread + (lambda (_%thunk122826%_ _%name122827%_) + (if (procedure? _%thunk122826%_) + (let ((_%thunk122831%_ _%thunk122826%_)) + (if (symbol? _%name122827%_) + (let ((_%name122841%_ _%name122827%_)) + (__make-system-thread _%thunk122831%_ _%name122841%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/thread.ss\"@18.48-18.52" + 'contract: + 'symbol? + 'value: + _%name122827%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/thread.ss\"@18.27-18.32" + 'contract: + 'procedure? + 'value: + _%thunk122826%_) + '#!void)))) + (define __make-system-thread + (lambda (_%thunk122804%_ _%name122805%_) + (let* ((_%thunk122808%_ _%thunk122804%_) + (_%name122816%_ _%name122805%_)) + (make-thread + (lambda () (thread-main _%thunk122808%_)) + _%name122816%_ + (system-thread-group))))) + (define system-thread! + (lambda (_%thunk122779%_ _%name122780%_) + (if (procedure? _%thunk122779%_) + (let ((_%thunk122784%_ _%thunk122779%_)) + (if (symbol? _%name122780%_) + (let ((_%name122794%_ _%name122780%_)) + (__system-thread! _%thunk122784%_ _%name122794%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/thread.ss\"@21.44-21.48" + 'contract: + 'symbol? + 'value: + _%name122780%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/thread.ss\"@21.23-21.28" + 'contract: + 'procedure? + 'value: + _%thunk122779%_) + '#!void)))) + (define __system-thread! + (lambda (_%thunk122758%_ _%name122759%_) + (let* ((_%thunk122762%_ _%thunk122758%_) + (_%name122770%_ _%name122759%_)) + (thread-start! + (__make-system-thread _%thunk122762%_ _%name122770%_))))) + (define system-actor! + (lambda (_%thunk122733%_ _%name122734%_) + (if (procedure? _%thunk122733%_) + (let ((_%thunk122738%_ _%thunk122733%_)) + (if (symbol? _%name122734%_) + (let ((_%name122748%_ _%name122734%_)) + (__system-actor! _%thunk122738%_ _%name122748%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/thread.ss\"@24.43-24.47" + 'contract: + 'symbol? + 'value: + _%name122734%_) + '#!void))) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/thread.ss\"@24.22-24.27" + 'contract: + 'procedure? + 'value: + _%thunk122733%_) + '#!void)))) + (define __system-actor! + (lambda (_%thunk122712%_ _%name122713%_) + (let* ((_%thunk122716%_ _%thunk122712%_) + (_%name122724%_ _%name122713%_)) + (spawn-actor + _%thunk122716%_ + '() + _%name122724%_ + (system-thread-group))))) (define spawn - (lambda (_%f119061%_ . _%args119062%_) - (if (procedure? _%f119061%_) - (let ((_%f119066%_ _%f119061%_)) + (lambda (_%f122697%_ . _%args122698%_) + (if (procedure? _%f122697%_) + (let ((_%f122702%_ _%f122697%_)) (declare (not safe)) - (##apply __spawn _%f119066%_ _%args119062%_)) + (##apply __spawn _%f122702%_ _%args122698%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/thread.ss\"@12.14-12.15" + '"\"gerbil/runtime/thread.ss\"@28.14-28.15" 'contract: 'procedure? 'value: - _%f119061%_) + _%f122697%_) '#!void)))) (define __spawn - (lambda (_%f119048%_ . _%args119049%_) - (let ((_%f119052%_ _%f119048%_)) - (spawn-actor _%f119052%_ _%args119049%_ '#!void '#f)))) + (lambda (_%f122684%_ . _%args122685%_) + (let ((_%f122688%_ _%f122684%_)) + (spawn-actor _%f122688%_ _%args122685%_ '#!void '#f)))) (define spawn/name - (lambda (_%name119032%_ _%f119033%_ . _%args119034%_) - (if (procedure? _%f119033%_) - (let ((_%f119038%_ _%f119033%_)) + (lambda (_%name122668%_ _%f122669%_ . _%args122670%_) + (if (procedure? _%f122669%_) + (let ((_%f122674%_ _%f122669%_)) (declare (not safe)) - (##apply __spawn/name _%name119032%_ _%f119038%_ _%args119034%_)) + (##apply __spawn/name _%name122668%_ _%f122674%_ _%args122670%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/thread.ss\"@17.24-17.25" + '"\"gerbil/runtime/thread.ss\"@33.24-33.25" 'contract: 'procedure? 'value: - _%f119033%_) + _%f122669%_) '#!void)))) (define __spawn/name - (lambda (_%name119018%_ _%f119019%_ . _%args119020%_) - (let ((_%f119023%_ _%f119019%_)) - (spawn-actor _%f119023%_ _%args119020%_ _%name119018%_ '#f)))) + (lambda (_%name122654%_ _%f122655%_ . _%args122656%_) + (let ((_%f122659%_ _%f122655%_)) + (spawn-actor _%f122659%_ _%args122656%_ _%name122654%_ '#f)))) (define spawn/group - (lambda (_%name119002%_ _%f119003%_ . _%args119004%_) - (if (procedure? _%f119003%_) - (let ((_%f119008%_ _%f119003%_)) + (lambda (_%name122638%_ _%f122639%_ . _%args122640%_) + (if (procedure? _%f122639%_) + (let ((_%f122644%_ _%f122639%_)) (declare (not safe)) (##apply __spawn/group - _%name119002%_ - _%f119008%_ - _%args119004%_)) + _%name122638%_ + _%f122644%_ + _%args122640%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/thread.ss\"@22.25-22.26" + '"\"gerbil/runtime/thread.ss\"@38.25-38.26" 'contract: 'procedure? 'value: - _%f119003%_) + _%f122639%_) '#!void)))) (define __spawn/group - (lambda (_%name118986%_ _%f118987%_ . _%args118988%_) - (let* ((_%f118991%_ _%f118987%_) - (_%tgroup119000%_ (make-thread-group _%name118986%_))) + (lambda (_%name122622%_ _%f122623%_ . _%args122624%_) + (let* ((_%f122627%_ _%f122623%_) + (_%tgroup122636%_ (make-thread-group _%name122622%_))) (spawn-actor - _%f118991%_ - _%args118988%_ - _%name118986%_ - _%tgroup119000%_)))) + _%f122627%_ + _%args122624%_ + _%name122622%_ + _%tgroup122636%_)))) (define spawn-actor - (lambda (_%f118958%_ _%args118959%_ _%name118960%_ _%tgroup118961%_) - (letrec ((_%thread-main118964%_ - (lambda (_%thunk118978%_) - (lambda () - (let ((__tmp119075 - (lambda (_%exn118981%_) - (let ((__tmp119076 - (lambda (_%cont118983%_) - (if unhandled-actor-exception-hook - (let ((__tmp119077 - (lambda () - (__unhandled-actor-exception-hook - _%cont118983%_ - _%exn118981%_)))) - (declare (not safe)) - (__with-catch void __tmp119077)) - '#!void) - (let ((__tmp119078 - (let () - (declare (not safe)) - (##continuation-last - _%cont118983%_)))) - (declare (not safe)) - (##continuation-graft - __tmp119078 - ##primordial-exception-handler - _%exn118981%_))))) - (declare (not safe)) - (##continuation-capture __tmp119076))))) - (declare (not safe)) - (with-exception-handler - __tmp119075 - _%thunk118978%_)))))) - (let* ((_%thunk118967%_ - (if (null? _%args118959%_) - _%f118958%_ - (lambda () (apply _%f118958%_ _%args118959%_)))) - (_%thunk118970%_ - (lambda () (with-exception-stack-trace__0 _%thunk118967%_))) - (_%tgroup118975%_ - (let ((_%$e118972%_ _%tgroup118961%_)) - (if _%$e118972%_ _%$e118972%_ (current-thread-group))))) - (thread-start! - (thread-init! - (construct-actor-thread '#f '0) - (_%thread-main118964%_ _%thunk118970%_) - _%name118960%_ - _%tgroup118975%_)))))) + (lambda (_%f122603%_ _%args122604%_ _%name122605%_ _%tgroup122606%_) + (let* ((_%thunk122610%_ + (if (null? _%args122604%_) + _%f122603%_ + (lambda () (apply _%f122603%_ _%args122604%_)))) + (_%thunk122613%_ + (lambda () (with-exception-stack-trace__0 _%thunk122610%_))) + (_%tgroup122618%_ + (let ((_%$e122615%_ _%tgroup122606%_)) + (if _%$e122615%_ _%$e122615%_ (current-thread-group))))) + (thread-start! + (thread-init! + (construct-actor-thread '#f '#f '0) + (lambda () (thread-main _%thunk122613%_)) + _%name122605%_ + _%tgroup122618%_))))) (define spawn-thread__% - (lambda (_%thunk118936%_ _%name118937%_ _%tgroup118938%_) + (lambda (_%thunk122580%_ _%name122581%_ _%tgroup122582%_) (thread-start! - (make-thread _%thunk118936%_ _%name118937%_ _%tgroup118938%_)))) + (make-thread + (lambda () (thread-main _%thunk122580%_)) + _%name122581%_ + _%tgroup122582%_)))) (define spawn-thread__0 - (lambda (_%thunk118943%_) - (let* ((_%name118945%_ absent-obj) (_%tgroup118947%_ absent-obj)) - (spawn-thread__% _%thunk118943%_ _%name118945%_ _%tgroup118947%_)))) + (lambda (_%thunk122588%_) + (let* ((_%name122590%_ absent-obj) (_%tgroup122592%_ absent-obj)) + (spawn-thread__% _%thunk122588%_ _%name122590%_ _%tgroup122592%_)))) (define spawn-thread__1 - (lambda (_%thunk118949%_ _%name118950%_) - (let ((_%tgroup118952%_ absent-obj)) - (spawn-thread__% _%thunk118949%_ _%name118950%_ _%tgroup118952%_)))) + (lambda (_%thunk122594%_ _%name122595%_) + (let ((_%tgroup122597%_ absent-obj)) + (spawn-thread__% _%thunk122594%_ _%name122595%_ _%tgroup122597%_)))) (define spawn-thread - (lambda _g119079_ - (let ((_g119080_ (let () (declare (not safe)) (##length _g119079_)))) - (cond ((let () (declare (not safe)) (##fx= _g119080_ 1)) - (apply spawn-thread__0 _g119079_)) - ((let () (declare (not safe)) (##fx= _g119080_ 2)) - (apply spawn-thread__1 _g119079_)) - ((let () (declare (not safe)) (##fx= _g119080_ 3)) - (apply spawn-thread__% _g119079_)) + (lambda _g122852_ + (let ((_g122853_ (let () (declare (not safe)) (##length _g122852_)))) + (cond ((let () (declare (not safe)) (##fx= _g122853_ 1)) + (apply spawn-thread__0 _g122852_)) + ((let () (declare (not safe)) (##fx= _g122853_ 2)) + (apply spawn-thread__1 _g122852_)) + ((let () (declare (not safe)) (##fx= _g122853_ 3)) + (apply spawn-thread__% _g122852_)) (else (##raise-wrong-number-of-arguments-exception spawn-thread - _g119079_)))))) + _g122852_)))))) + (define thread-main + (lambda (_%thunk122572%_) + (let ((__tmp122854 + (lambda (_%exn122574%_) + (let ((__tmp122855 + (lambda (_%cont122576%_) + (if (procedure? __unhandled-actor-exception-hook) + (let ((__tmp122856 + (lambda () + (let () + (declare (not safe)) + (__unhandled-actor-exception-hook + _%cont122576%_ + _%exn122574%_))))) + (declare (not safe)) + (__with-catch void __tmp122856)) + '#!void) + (let ((__tmp122857 + (let () + (declare (not safe)) + (##continuation-last _%cont122576%_)))) + (declare (not safe)) + (##continuation-graft + __tmp122857 + ##primordial-exception-handler + _%exn122574%_))))) + (declare (not safe)) + (##continuation-capture __tmp122855))))) + (declare (not safe)) + (with-exception-handler __tmp122854 _%thunk122572%_)))) (define thread-local-ref__% - (lambda (_%key118920%_ _%default118921%_) - (let ((_%tab118923%_ (thread-local-table))) + (lambda (_%key122557%_ _%default122558%_) + (let ((_%tab122560%_ (thread-local-table))) (declare (not safe)) - (hash-ref__% _%tab118923%_ _%key118920%_ _%default118921%_)))) + (hash-ref__% _%tab122560%_ _%key122557%_ _%default122558%_)))) (define thread-local-ref__0 - (lambda (_%key118928%_) - (let ((_%default118930%_ absent-obj)) - (thread-local-ref__% _%key118928%_ _%default118930%_)))) + (lambda (_%key122565%_) + (let ((_%default122567%_ absent-obj)) + (thread-local-ref__% _%key122565%_ _%default122567%_)))) (define thread-local-ref - (lambda _g119081_ - (let ((_g119082_ (let () (declare (not safe)) (##length _g119081_)))) - (cond ((let () (declare (not safe)) (##fx= _g119082_ 1)) - (apply thread-local-ref__0 _g119081_)) - ((let () (declare (not safe)) (##fx= _g119082_ 2)) - (apply thread-local-ref__% _g119081_)) + (lambda _g122858_ + (let ((_g122859_ (let () (declare (not safe)) (##length _g122858_)))) + (cond ((let () (declare (not safe)) (##fx= _g122859_ 1)) + (apply thread-local-ref__0 _g122858_)) + ((let () (declare (not safe)) (##fx= _g122859_ 2)) + (apply thread-local-ref__% _g122858_)) (else (##raise-wrong-number-of-arguments-exception thread-local-ref - _g119081_)))))) + _g122858_)))))) (define thread-local-get - (lambda (_%key118917%_) (thread-local-ref__% _%key118917%_ '#f))) + (lambda (_%key122554%_) (thread-local-ref__% _%key122554%_ '#f))) (define thread-local-set! - (lambda (_%key118912%_ _%value118913%_) - (let ((_%tab118915%_ (thread-local-table))) + (lambda (_%key122549%_ _%value122550%_) + (let ((_%tab122552%_ (thread-local-table))) (declare (not safe)) - (hash-put! _%tab118915%_ _%key118912%_ _%value118913%_)))) + (hash-put! _%tab122552%_ _%key122549%_ _%value122550%_)))) (define thread-local-delete! - (lambda (_%key118908%_) - (let ((_%tab118910%_ (thread-local-table))) + (lambda (_%key122545%_) + (let ((_%tab122547%_ (thread-local-table))) (declare (not safe)) - (hash-remove! _%tab118910%_ _%key118908%_)))) + (hash-remove! _%tab122547%_ _%key122545%_)))) (define thread-local-table (lambda () - (let ((_%thr118889%_ (current-thread))) - (if (actor-thread? _%thr118889%_) - (let ((_%$e118892%_ (actor-thread-locals _%thr118889%_))) - (if _%$e118892%_ - _%$e118892%_ - (let ((_%tab118896%_ + (let ((_%thr122526%_ (current-thread))) + (if (actor-thread? _%thr122526%_) + (let ((_%$e122529%_ (actor-thread-locals _%thr122526%_))) + (if _%$e122529%_ + _%$e122529%_ + (let ((_%tab122533%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (actor-thread-locals-set! _%thr118889%_ _%tab118896%_) - _%tab118896%_))) - (if (eq? _%thr118889%_ ##primordial-thread) + (actor-thread-locals-set! _%thr122526%_ _%tab122533%_) + _%tab122533%_))) + (if (eq? _%thr122526%_ ##primordial-thread) __primordial-thread-locals (let () (mutex-lock! __thread-locals-mutex) - (let ((_%$e118900%_ + (let ((_%$e122537%_ (let () (declare (not safe)) - (__hash-get __thread-locals _%thr118889%_)))) - (if _%$e118900%_ - ((lambda (_%tab118903%_) + (__hash-get __thread-locals _%thr122526%_)))) + (if _%$e122537%_ + ((lambda (_%tab122540%_) (mutex-unlock! __thread-locals-mutex) - _%tab118903%_) - _%$e118900%_) - (let ((_%tab118906%_ + _%tab122540%_) + _%$e122537%_) + (let ((_%tab122543%_ (let () (declare (not safe)) (make-hash-table-eq)))) @@ -208,10 +315,10 @@ (declare (not safe)) (__hash-put! __thread-locals - _%thr118889%_ - _%tab118906%_)) + _%thr122526%_ + _%tab122543%_)) (mutex-unlock! __thread-locals-mutex) - _%tab118906%_))))))))) + _%tab122543%_))))))))) (define __primordial-thread-locals (let () (declare (not safe)) (make-hash-table-eq))) (define __thread-locals @@ -221,12 +328,12 @@ (define unhandled-actor-exception-hook (lambda () __unhandled-actor-exception-hook)) (define unhandled-actor-exception-hook-set! - (lambda (_%new-value118867%_) - (if ((lambda (_%$obj118870%_) - (or (not _%$obj118870%_) (procedure? _%$obj118870%_))) - _%new-value118867%_) - (let ((_%new-value118877%_ _%new-value118867%_)) - (__unhandled-actor-exception-hook-set! _%new-value118877%_)) + (lambda (_%new-value122504%_) + (if ((lambda (_%$obj122507%_) + (or (not _%$obj122507%_) (procedure? _%$obj122507%_))) + _%new-value122504%_) + (let ((_%new-value122514%_ _%new-value122504%_)) + (__unhandled-actor-exception-hook-set! _%new-value122514%_)) (begin (raise-contract-violation-error '"contract violation" @@ -235,233 +342,234 @@ 'contract: '(? (or not procedure?)) 'value: - _%new-value118867%_) + _%new-value122504%_) '#!void)))) (define __unhandled-actor-exception-hook-set! - (lambda (_%new-value118854%_) - (let ((_%new-value118858%_ _%new-value118854%_)) - (set! __unhandled-actor-exception-hook _%new-value118858%_)))) + (lambda (_%new-value122491%_) + (let ((_%new-value122495%_ _%new-value122491%_)) + (set! __unhandled-actor-exception-hook _%new-value122495%_)))) (define current-thread-group (lambda () (thread-thread-group (current-thread)))) (define with-lock - (lambda (_%mx118828%_ _%proc118829%_) - (if (mutex? _%mx118828%_) - (let ((_%mx118833%_ _%mx118828%_)) - (if (procedure? _%proc118829%_) - (let ((_%proc118843%_ _%proc118829%_)) - (__with-lock _%mx118833%_ _%proc118843%_)) + (lambda (_%mx122465%_ _%proc122466%_) + (if (mutex? _%mx122465%_) + (let ((_%mx122470%_ _%mx122465%_)) + (if (procedure? _%proc122466%_) + (let ((_%proc122480%_ _%proc122466%_)) + (__with-lock _%mx122470%_ _%proc122480%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/thread.ss\"@120.32-120.36" + '"\"gerbil/runtime/thread.ss\"@135.32-135.36" 'contract: 'procedure? 'value: - _%proc118829%_) + _%proc122466%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/thread.ss\"@120.18-120.20" + '"\"gerbil/runtime/thread.ss\"@135.18-135.20" 'contract: 'mutex? 'value: - _%mx118828%_) + _%mx122465%_) '#!void)))) (define __with-lock - (lambda (_%mx118799%_ _%proc118800%_) - (let* ((_%mx118803%_ _%mx118799%_) - (_%proc118811%_ _%proc118800%_) - (_%handler118820%_ (current-exception-handler))) - (let ((__tmp119084 - (lambda (_%e118822%_) - (let ((__tmp119085 + (lambda (_%mx122436%_ _%proc122437%_) + (let* ((_%mx122440%_ _%mx122436%_) + (_%proc122448%_ _%proc122437%_) + (_%handler122457%_ (current-exception-handler))) + (let ((__tmp122861 + (lambda (_%e122459%_) + (let ((__tmp122862 (lambda () - (mutex-unlock! _%mx118803%_) + (mutex-unlock! _%mx122440%_) (let () (declare (not safe)) - (_%handler118820%_ _%e118822%_))))) + (_%handler122457%_ _%e122459%_))))) (declare (not safe)) - (__with-catch void __tmp119085)) + (__with-catch void __tmp122862)) (let () (declare (not safe)) - (##thread-end-with-uncaught-exception! _%e118822%_)))) - (__tmp119083 + (##thread-end-with-uncaught-exception! _%e122459%_)))) + (__tmp122860 (lambda () - (mutex-lock! _%mx118803%_) - (let ((_%result118826%_ - (let () (declare (not safe)) (_%proc118811%_)))) - (mutex-unlock! _%mx118803%_) - _%result118826%_)))) + (mutex-lock! _%mx122440%_) + (let ((_%result122463%_ + (let () (declare (not safe)) (_%proc122448%_)))) + (mutex-unlock! _%mx122440%_) + _%result122463%_)))) (declare (not safe)) - (__with-exception-handler __tmp119084 __tmp119083))))) + (__with-exception-handler __tmp122861 __tmp122860))))) (define with-dynamic-lock - (lambda (_%mx118774%_ _%proc118775%_) - (if (mutex? _%mx118774%_) - (let ((_%mx118779%_ _%mx118774%_)) - (if (procedure? _%proc118775%_) - (let ((_%proc118789%_ _%proc118775%_)) - (__with-dynamic-lock _%mx118779%_ _%proc118789%_)) + (lambda (_%mx122411%_ _%proc122412%_) + (if (mutex? _%mx122411%_) + (let ((_%mx122416%_ _%mx122411%_)) + (if (procedure? _%proc122412%_) + (let ((_%proc122426%_ _%proc122412%_)) + (__with-dynamic-lock _%mx122416%_ _%proc122426%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/thread.ss\"@136.40-136.44" + '"\"gerbil/runtime/thread.ss\"@151.40-151.44" 'contract: 'procedure? 'value: - _%proc118775%_) + _%proc122412%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/thread.ss\"@136.26-136.28" + '"\"gerbil/runtime/thread.ss\"@151.26-151.28" 'contract: 'mutex? 'value: - _%mx118774%_) + _%mx122411%_) '#!void)))) (define __with-dynamic-lock - (lambda (_%mx118751%_ _%proc118752%_) - (let* ((_%mx118755%_ _%mx118751%_) (_%proc118763%_ _%proc118752%_)) - (let ((__tmp119087 (lambda () (mutex-lock! _%mx118755%_))) - (__tmp119086 (lambda () (mutex-unlock! _%mx118755%_)))) + (lambda (_%mx122388%_ _%proc122389%_) + (let* ((_%mx122392%_ _%mx122388%_) (_%proc122400%_ _%proc122389%_)) + (let ((__tmp122864 (lambda () (mutex-lock! _%mx122392%_))) + (__tmp122863 (lambda () (mutex-unlock! _%mx122392%_)))) (declare (not safe)) - (##dynamic-wind __tmp119087 _%proc118763%_ __tmp119086))))) + (##dynamic-wind __tmp122864 _%proc122400%_ __tmp122863))))) (define with-exception-stack-trace__% - (lambda (_%thunk118716%_ _%error-port118717%_) - (if (procedure? _%thunk118716%_) - (let ((_%thunk118721%_ _%thunk118716%_)) - (if (port? _%error-port118717%_) - (let ((_%error-port118731%_ _%error-port118717%_)) + (lambda (_%thunk122353%_ _%error-port122354%_) + (if (procedure? _%thunk122353%_) + (let ((_%thunk122358%_ _%thunk122353%_)) + (if (port? _%error-port122354%_) + (let ((_%error-port122368%_ _%error-port122354%_)) (__with-exception-stack-trace__% - _%thunk118721%_ - _%error-port118731%_)) + _%thunk122358%_ + _%error-port122368%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/thread.ss\"@144.35-144.45" + '"\"gerbil/runtime/thread.ss\"@159.35-159.45" 'contract: 'port? 'value: - _%error-port118717%_) + _%error-port122354%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/thread.ss\"@143.35-143.40" + '"\"gerbil/runtime/thread.ss\"@158.35-158.40" 'contract: 'procedure? 'value: - _%thunk118716%_) + _%thunk122353%_) '#!void)))) (define with-exception-stack-trace__0 - (lambda (_%thunk118744%_) - (let ((_%error-port118746%_ (current-error-port))) + (lambda (_%thunk122381%_) + (let ((_%error-port122383%_ (current-error-port))) (with-exception-stack-trace__% - _%thunk118744%_ - _%error-port118746%_)))) + _%thunk122381%_ + _%error-port122383%_)))) (define with-exception-stack-trace - (lambda _g119088_ - (let ((_g119089_ (let () (declare (not safe)) (##length _g119088_)))) - (cond ((let () (declare (not safe)) (##fx= _g119089_ 1)) - (apply with-exception-stack-trace__0 _g119088_)) - ((let () (declare (not safe)) (##fx= _g119089_ 2)) - (apply with-exception-stack-trace__% _g119088_)) + (lambda _g122865_ + (let ((_g122866_ (let () (declare (not safe)) (##length _g122865_)))) + (cond ((let () (declare (not safe)) (##fx= _g122866_ 1)) + (apply with-exception-stack-trace__0 _g122865_)) + ((let () (declare (not safe)) (##fx= _g122866_ 2)) + (apply with-exception-stack-trace__% _g122865_)) (else (##raise-wrong-number-of-arguments-exception with-exception-stack-trace - _g119088_)))))) + _g122865_)))))) (define __with-exception-stack-trace__% - (lambda (_%thunk118677%_ _%error-port118678%_) - (let* ((_%thunk118681%_ _%thunk118677%_) - (_%error-port118690%_ _%error-port118678%_) - (__tmp119090 - (let ((_%E118699%_ (current-exception-handler))) - (lambda (_%exn118701%_) - (let ((__tmp119091 - (lambda (_%cont118703%_) + (lambda (_%thunk122314%_ _%error-port122315%_) + (let* ((_%thunk122318%_ _%thunk122314%_) + (_%error-port122327%_ _%error-port122315%_) + (__tmp122867 + (let ((_%E122336%_ (current-exception-handler))) + (lambda (_%exn122338%_) + (let ((__tmp122868 + (lambda (_%cont122340%_) (if (let () (declare (not safe)) (dump-stack-trace?)) (dump-stack-trace!__% - _%cont118703%_ - _%exn118701%_ - _%error-port118690%_) + _%cont122340%_ + _%exn122338%_ + _%error-port122327%_) '#!void) (let () (declare (not safe)) - (_%E118699%_ _%exn118701%_))))) + (_%E122336%_ _%exn122338%_))))) (declare (not safe)) - (##continuation-capture __tmp119091)))))) + (##continuation-capture __tmp122868)))))) (declare (not safe)) - (__with-exception-handler __tmp119090 _%thunk118681%_)))) + (__with-exception-handler __tmp122867 _%thunk122318%_)))) (define __with-exception-stack-trace__0 - (lambda (_%thunk118708%_) - (let ((_%error-port118710%_ (current-error-port))) + (lambda (_%thunk122345%_) + (let ((_%error-port122347%_ (current-error-port))) (__with-exception-stack-trace__% - _%thunk118708%_ - _%error-port118710%_)))) + _%thunk122345%_ + _%error-port122347%_)))) (define __with-exception-stack-trace - (lambda _g119092_ - (let ((_g119093_ (let () (declare (not safe)) (##length _g119092_)))) - (cond ((let () (declare (not safe)) (##fx= _g119093_ 1)) - (apply __with-exception-stack-trace__0 _g119092_)) - ((let () (declare (not safe)) (##fx= _g119093_ 2)) - (apply __with-exception-stack-trace__% _g119092_)) + (lambda _g122869_ + (let ((_g122870_ (let () (declare (not safe)) (##length _g122869_)))) + (cond ((let () (declare (not safe)) (##fx= _g122870_ 1)) + (apply __with-exception-stack-trace__0 _g122869_)) + ((let () (declare (not safe)) (##fx= _g122870_ 2)) + (apply __with-exception-stack-trace__% _g122869_)) (else (##raise-wrong-number-of-arguments-exception __with-exception-stack-trace - _g119092_)))))) + _g122869_)))))) (define dump-stack-trace!__% - (lambda (_%cont118658%_ _%exn118659%_ _%error-port118660%_) - (let ((_%out118662%_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _%out118662%_)) - (display '"*** Unhandled exception in " _%out118662%_) - (display (current-thread) _%out118662%_) - (newline _%out118662%_) + (lambda (_%cont122295%_ _%exn122296%_ _%error-port122297%_) + (let ((_%out122299%_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _%out122299%_)) + (display '"*** Unhandled exception in " _%out122299%_) + (display (current-thread) _%out122299%_) + (newline _%out122299%_) (let () (declare (not safe)) - (display-exception__% _%exn118659%_ _%out118662%_)) + (display-exception__% _%exn122296%_ _%out122299%_)) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _%exn118659%_)) + (class-instance? StackTrace::t _%exn122296%_)) '#!void (begin - (display '"Continuation backtrace: " _%out118662%_) - (newline _%out118662%_) - (display-continuation-backtrace _%cont118658%_ _%out118662%_))) - (let ((__tmp119094 (get-output-string _%out118662%_))) + (display '"Continuation backtrace: " _%out122299%_) + (newline _%out122299%_) + (display-continuation-backtrace _%cont122295%_ _%out122299%_))) + (let ((__tmp122871 (get-output-string _%out122299%_))) (declare (not safe)) - (##write-string __tmp119094 _%error-port118660%_))))) + (##write-string __tmp122871 _%error-port122297%_))))) (define dump-stack-trace!__0 - (lambda (_%cont118667%_ _%exn118668%_) - (let ((_%error-port118670%_ (current-error-port))) + (lambda (_%cont122304%_ _%exn122305%_) + (let ((_%error-port122307%_ (current-error-port))) (dump-stack-trace!__% - _%cont118667%_ - _%exn118668%_ - _%error-port118670%_)))) + _%cont122304%_ + _%exn122305%_ + _%error-port122307%_)))) (define dump-stack-trace! - (lambda _g119095_ - (let ((_g119096_ (let () (declare (not safe)) (##length _g119095_)))) - (cond ((let () (declare (not safe)) (##fx= _g119096_ 2)) - (apply dump-stack-trace!__0 _g119095_)) - ((let () (declare (not safe)) (##fx= _g119096_ 3)) - (apply dump-stack-trace!__% _g119095_)) + (lambda _g122872_ + (let ((_g122873_ (let () (declare (not safe)) (##length _g122872_)))) + (cond ((let () (declare (not safe)) (##fx= _g122873_ 2)) + (apply dump-stack-trace!__0 _g122872_)) + ((let () (declare (not safe)) (##fx= _g122873_ 3)) + (apply dump-stack-trace!__% _g122872_)) (else (##raise-wrong-number-of-arguments-exception dump-stack-trace! - _g119095_)))))) + _g122872_)))))) (define-type-of-thread actor-thread constructor: construct-actor-thread id: gerbil#actor::t + state locals nonce))) diff --git a/src/bootstrap/gerbil/runtime/util.ssi b/src/bootstrap/gerbil/runtime/util.ssi index 5cc3f70778..b9e853a000 100644 --- a/src/bootstrap/gerbil/runtime/util.ssi +++ b/src/bootstrap/gerbil/runtime/util.ssi @@ -11,9 +11,10 @@ namespace: #f (%#call (%#ref load-module) (%#quote "gerbil/runtime/util~1"))) (%#define-syntax declare-inline |[:0:]#declare-inline|)) + (%#define-syntax __make-inline-lock |[:0:]#__make-inline-lock|) (%#define-syntax __lock-inline! |[:0:]#__lock-inline!|) (%#define-syntax __unlock-inline! |[:0:]#__unlock-inline!|) - (%#define-syntax __make-inline-lock |[:0:]#__make-inline-lock|) + (%#define-syntax __do-inline-lock! |[:0:]#__do-inline-lock!|) (%#define-runtime displayln displayln) (%#define-runtime display* display*) (%#define-runtime file-newer? file-newer?) @@ -140,6 +141,7 @@ namespace: #f (%#define-runtime __fx1- __fx1-) (%#define-runtime fxshift fxshift) (%#define-runtime fx/ fx/) + (%#define-runtime fx% fx%) (%#define-runtime fx>=0? fx>=0?) (%#define-runtime fx>0? fx>0?) (%#define-runtime fx=0? fx=0?) diff --git a/src/bootstrap/gerbil/runtime/util.ssxi.ss b/src/bootstrap/gerbil/runtime/util.ssxi.ss index 667f6e5d52..145bf70e14 100644 --- a/src/bootstrap/gerbil/runtime/util.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/util.ssxi.ss @@ -2056,6 +2056,21 @@ package: gerbil/runtime ##fxquotient origin: builtin))) + (declare-type + fx% + (@lambda 2 + #f + signature: + (return: + fixnum::t + effect: + (pure) + arguments: + (fixnum::t fixnum::t) + unchecked: + ##fxremainder + origin: + builtin))) (declare-type fx>=0? (@lambda 1 diff --git a/src/bootstrap/gerbil/runtime/util~0.scm b/src/bootstrap/gerbil/runtime/util~0.scm index 195a4025ce..d893ea63f9 100644 --- a/src/bootstrap/gerbil/runtime/util~0.scm +++ b/src/bootstrap/gerbil/runtime/util~0.scm @@ -1,2947 +1,2945 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/util::timestamp 1756721293) + (define gerbil/runtime/util::timestamp 1769384626) (begin (define raise-contract-violation-error error) (set! raise-contract-violation-error raise-contract-violation-error) (define displayln - (lambda _%args97337%_ + (lambda _%args98336%_ (let () - (let () (declare (not safe)) (##for-each display _%args97337%_)) + (let () (declare (not safe)) (##for-each display _%args98336%_)) (newline)))) (define display* - (lambda _%args97334%_ - (let () (declare (not safe)) (##for-each display _%args97334%_)))) + (lambda _%args98333%_ + (let () (declare (not safe)) (##for-each display _%args98333%_)))) (define file-newer? - (lambda (_%file197309%_ _%file297310%_) - (if (string? _%file197309%_) - (let ((_%file197314%_ _%file197309%_)) - (if (string? _%file297310%_) - (let ((_%file297324%_ _%file297310%_)) - (__file-newer? _%file197314%_ _%file297324%_)) + (lambda (_%file198308%_ _%file298309%_) + (if (string? _%file198308%_) + (let ((_%file198313%_ _%file198308%_)) + (if (string? _%file298309%_) + (let ((_%file298323%_ _%file298309%_)) + (__file-newer? _%file198313%_ _%file298323%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@64.20-64.25" + '"\"gerbil/runtime/util.ss\"@97.20-97.25" 'contract: 'string? 'value: - _%file297310%_) + _%file298309%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@63.20-63.25" + '"\"gerbil/runtime/util.ss\"@96.20-96.25" 'contract: 'string? 'value: - _%file197309%_) + _%file198308%_) '#!void)))) (define __file-newer? - (lambda (_%file197257%_ _%file297258%_) - (let* ((_%file197261%_ _%file197257%_) (_%file297269%_ _%file297258%_)) - (letrec ((_%modification-time97278%_ - (lambda (_%file97297%_) - (let ((_%file97300%_ _%file97297%_)) - (_%__modification-time97279%_ _%file97300%_)))) - (_%__modification-time97279%_ - (lambda (_%file97281%_) - (let* ((_%file97284%_ _%file97281%_) - (__tmp99067 - (let ((__tmp99068 + (lambda (_%file198256%_ _%file298257%_) + (let* ((_%file198260%_ _%file198256%_) (_%file298268%_ _%file298257%_)) + (letrec ((_%modification-time98277%_ + (lambda (_%file98296%_) + (let ((_%file98299%_ _%file98296%_)) + (_%__modification-time98278%_ _%file98299%_)))) + (_%__modification-time98278%_ + (lambda (_%file98280%_) + (let* ((_%file98283%_ _%file98280%_) + (__tmp100098 + (let ((__tmp100099 (let () (declare (not safe)) - (##file-info _%file97284%_ '#t)))) + (##file-info _%file98283%_ '#t)))) (declare (not safe)) (##file-info-last-modification-time - __tmp99068)))) + __tmp100099)))) (declare (not safe)) - (##time->seconds __tmp99067))))) - (let ((__tmp99070 (_%__modification-time97279%_ _%file197261%_)) - (__tmp99069 (_%__modification-time97279%_ _%file297269%_))) + (##time->seconds __tmp100098))))) + (let ((__tmp100101 (_%__modification-time98278%_ _%file198260%_)) + (__tmp100100 (_%__modification-time98278%_ _%file298268%_))) (declare (not safe)) - (##fl> __tmp99070 __tmp99069)))))) + (##fl> __tmp100101 __tmp100100)))))) (define create-directory*__% - (lambda (_%dir97222%_ _%perms97223%_) - (if (string? _%dir97222%_) - (let ((_%dir97227%_ _%dir97222%_)) - (if (fixnum? _%perms97223%_) - (let ((_%perms97237%_ _%perms97223%_)) - (__create-directory*__% _%dir97227%_ _%perms97237%_)) + (lambda (_%dir98221%_ _%perms98222%_) + (if (string? _%dir98221%_) + (let ((_%dir98226%_ _%dir98221%_)) + (if (fixnum? _%perms98222%_) + (let ((_%perms98236%_ _%perms98222%_)) + (__create-directory*__% _%dir98226%_ _%perms98236%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@75.26-75.31" + '"\"gerbil/runtime/util.ss\"@108.26-108.31" 'contract: 'fixnum? 'value: - _%perms97223%_) + _%perms98222%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@74.26-74.29" + '"\"gerbil/runtime/util.ss\"@107.26-107.29" 'contract: 'string? 'value: - _%dir97222%_) + _%dir98221%_) '#!void)))) (define create-directory*__0 - (lambda (_%dir97250%_) - (let ((_%perms97252%_ '493)) - (create-directory*__% _%dir97250%_ _%perms97252%_)))) + (lambda (_%dir98249%_) + (let ((_%perms98251%_ '493)) + (create-directory*__% _%dir98249%_ _%perms98251%_)))) (define create-directory* - (lambda _g99071_ - (let ((_g99072_ (let () (declare (not safe)) (##length _g99071_)))) - (cond ((let () (declare (not safe)) (##fx= _g99072_ 1)) - (apply create-directory*__0 _g99071_)) - ((let () (declare (not safe)) (##fx= _g99072_ 2)) - (apply create-directory*__% _g99071_)) + (lambda _g100102_ + (let ((_g100103_ (let () (declare (not safe)) (##length _g100102_)))) + (cond ((let () (declare (not safe)) (##fx= _g100103_ 1)) + (apply create-directory*__0 _g100102_)) + ((let () (declare (not safe)) (##fx= _g100103_ 2)) + (apply create-directory*__% _g100102_)) (else (##raise-wrong-number-of-arguments-exception create-directory* - _g99071_)))))) + _g100102_)))))) (define __create-directory*__% - (lambda (_%dir97146%_ _%perms97147%_) - (let* ((_%dir97150%_ _%dir97146%_) (_%perms97158%_ _%perms97147%_)) - (letrec ((_%create197167%_ - (lambda (_%path97199%_) - (let ((_%path97202%_ _%path97199%_)) - (_%__create197168%_ _%path97202%_)))) - (_%__create197168%_ - (lambda (_%path97180%_) - (let ((_%path97183%_ _%path97180%_)) + (lambda (_%dir98145%_ _%perms98146%_) + (let* ((_%dir98149%_ _%dir98145%_) (_%perms98157%_ _%perms98146%_)) + (letrec ((_%create198166%_ + (lambda (_%path98198%_) + (let ((_%path98201%_ _%path98198%_)) + (_%__create198167%_ _%path98201%_)))) + (_%__create198167%_ + (lambda (_%path98179%_) + (let ((_%path98182%_ _%path98179%_)) (if (let () (declare (not safe)) - (##file-exists? _%path97183%_)) - (if (eq? (file-type _%path97183%_) 'directory) + (##file-exists? _%path98182%_)) + (if (eq? (file-type _%path98182%_) 'directory) '#!void (error '"Path component is not a directory" - _%path97183%_)) - (if _%perms97158%_ + _%path98182%_)) + (if _%perms98157%_ (create-directory (cons 'path: - (cons _%path97183%_ + (cons _%path98182%_ (cons 'permissions: - (cons _%perms97158%_ + (cons _%perms98157%_ '()))))) - (create-directory _%path97183%_))))))) - (if (let () (declare (not safe)) (##file-exists? _%dir97150%_)) + (create-directory _%path98182%_))))))) + (if (let () (declare (not safe)) (##file-exists? _%dir98149%_)) '#!void - (let _%lp97170%_ ((_%start97172%_ '0)) - (let ((_%$e97174%_ - (__string-index__% _%dir97150%_ '#\/ _%start97172%_))) - (if _%$e97174%_ - ((lambda (_%x97177%_) + (let _%lp98169%_ ((_%start98171%_ '0)) + (let ((_%$e98173%_ + (__string-index__% _%dir98149%_ '#\/ _%start98171%_))) + (if _%$e98173%_ + ((lambda (_%x98176%_) (if (let () (declare (not safe)) - (##fx> _%x97177%_ '0)) - (_%__create197168%_ - (substring _%dir97150%_ '0 _%x97177%_)) + (##fx> _%x98176%_ '0)) + (_%__create198167%_ + (substring _%dir98149%_ '0 _%x98176%_)) '#!void) - (_%lp97170%_ + (_%lp98169%_ (let () (declare (not safe)) - (##fx+ _%x97177%_ '1)))) - _%$e97174%_) - (_%__create197168%_ _%dir97150%_))))) + (##fx+ _%x98176%_ '1)))) + _%$e98173%_) + (_%__create198167%_ _%dir98149%_))))) '#!void)))) (define __create-directory*__0 - (lambda (_%dir97214%_) - (let ((_%perms97216%_ '493)) - (__create-directory*__% _%dir97214%_ _%perms97216%_)))) + (lambda (_%dir98213%_) + (let ((_%perms98215%_ '493)) + (__create-directory*__% _%dir98213%_ _%perms98215%_)))) (define __create-directory* - (lambda _g99073_ - (let ((_g99074_ (let () (declare (not safe)) (##length _g99073_)))) - (cond ((let () (declare (not safe)) (##fx= _g99074_ 1)) - (apply __create-directory*__0 _g99073_)) - ((let () (declare (not safe)) (##fx= _g99074_ 2)) - (apply __create-directory*__% _g99073_)) + (lambda _g100104_ + (let ((_g100105_ (let () (declare (not safe)) (##length _g100104_)))) + (cond ((let () (declare (not safe)) (##fx= _g100105_ 1)) + (apply __create-directory*__0 _g100104_)) + ((let () (declare (not safe)) (##fx= _g100105_ 2)) + (apply __create-directory*__% _g100104_)) (else (##raise-wrong-number-of-arguments-exception __create-directory* - _g99073_)))))) + _g100104_)))))) (define move-file__% - (lambda (_%src97097%_ _%dest97098%_ _%replace?97099%_) - (if (string? _%src97097%_) - (let ((_%src97103%_ _%src97097%_)) - (if (string? _%dest97098%_) - (let ((_%dest97113%_ _%dest97098%_)) - (if (boolean? _%replace?97099%_) - (let ((_%replace?97123%_ _%replace?97099%_)) + (lambda (_%src98096%_ _%dest98097%_ _%replace?98098%_) + (if (string? _%src98096%_) + (let ((_%src98102%_ _%src98096%_)) + (if (string? _%dest98097%_) + (let ((_%dest98112%_ _%dest98097%_)) + (if (boolean? _%replace?98098%_) + (let ((_%replace?98122%_ _%replace?98098%_)) (__move-file__% - _%src97103%_ - _%dest97113%_ - _%replace?97123%_)) + _%src98102%_ + _%dest98112%_ + _%replace?98122%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@99.51-99.59" + '"\"gerbil/runtime/util.ss\"@132.51-132.59" 'contract: 'boolean? 'value: - _%replace?97099%_) + _%replace?98098%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@99.34-99.38" + '"\"gerbil/runtime/util.ss\"@132.34-132.38" 'contract: 'string? 'value: - _%dest97098%_) + _%dest98097%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@99.18-99.21" + '"\"gerbil/runtime/util.ss\"@132.18-132.21" 'contract: 'string? 'value: - _%src97097%_) + _%src98096%_) '#!void)))) (define move-file__0 - (lambda (_%src97136%_ _%dest97137%_) - (let ((_%replace?97139%_ '#t)) - (move-file__% _%src97136%_ _%dest97137%_ _%replace?97139%_)))) + (lambda (_%src98135%_ _%dest98136%_) + (let ((_%replace?98138%_ '#t)) + (move-file__% _%src98135%_ _%dest98136%_ _%replace?98138%_)))) (define move-file - (lambda _g99075_ - (let ((_g99076_ (let () (declare (not safe)) (##length _g99075_)))) - (cond ((let () (declare (not safe)) (##fx= _g99076_ 2)) - (apply move-file__0 _g99075_)) - ((let () (declare (not safe)) (##fx= _g99076_ 3)) - (apply move-file__% _g99075_)) + (lambda _g100106_ + (let ((_g100107_ (let () (declare (not safe)) (##length _g100106_)))) + (cond ((let () (declare (not safe)) (##fx= _g100107_ 2)) + (apply move-file__0 _g100106_)) + ((let () (declare (not safe)) (##fx= _g100107_ 3)) + (apply move-file__% _g100106_)) (else (##raise-wrong-number-of-arguments-exception move-file - _g99075_)))))) + _g100106_)))))) (define __move-file__% - (lambda (_%src97040%_ _%dest97041%_ _%replace?97042%_) - (let* ((_%src97045%_ _%src97040%_) - (_%dest97053%_ _%dest97041%_) - (_%replace?97061%_ _%replace?97042%_)) - (letrec ((_%force-move-it97070%_ + (lambda (_%src98039%_ _%dest98040%_ _%replace?98041%_) + (let* ((_%src98044%_ _%src98039%_) + (_%dest98052%_ _%dest98040%_) + (_%replace?98060%_ _%replace?98041%_)) + (letrec ((_%force-move-it98069%_ (lambda () - (let ((_%tmp97076%_ - (if _%replace?97061%_ + (let ((_%tmp98075%_ + (if _%replace?98060%_ (if (let () (declare (not safe)) - (##file-exists? _%dest97053%_)) - (let ((__tmp99077 + (##file-exists? _%dest98052%_)) + (let ((__tmp100108 (number->string (let () (declare (not safe)) (##current-time-point))))) (declare (not safe)) (##string-append - _%dest97053%_ + _%dest98052%_ '"." - __tmp99077)) + __tmp100108)) '#f) '#f))) - (if _%tmp97076%_ - (rename-file _%dest97053%_ _%tmp97076%_) + (if _%tmp98075%_ + (rename-file _%dest98052%_ _%tmp98075%_) '#!void) (with-exception-catcher - (lambda (_%e97078%_) - (if _%tmp97076%_ - (rename-file _%tmp97076%_ _%dest97053%_ '#t) + (lambda (_%e98077%_) + (if _%tmp98075%_ + (rename-file _%tmp98075%_ _%dest98052%_ '#t) '#!void) - (raise _%e97078%_)) + (raise _%e98077%_)) (lambda () - (let ((_%fi97081%_ + (let ((_%fi98080%_ (let () (declare (not safe)) - (##file-info _%src97045%_ '#f)))) + (##file-info _%src98044%_ '#f)))) (if (eq? (let () (declare (not safe)) - (##file-info-type _%fi97081%_)) + (##file-info-type _%fi98080%_)) 'symbolic-link) - (let ((__tmp99078 - (path-normalize _%src97045%_))) + (let ((__tmp100109 + (path-normalize _%src98044%_))) (declare (not safe)) (##create-symbolic-link - __tmp99078 - _%dest97053%_)) + __tmp100109 + _%dest98052%_)) (let () (declare (not safe)) - (##copy-file _%src97045%_ _%dest97053%_)))) + (##copy-file _%src98044%_ _%dest98052%_)))) (let () (declare (not safe)) - (##delete-file _%src97045%_)) - (if _%tmp97076%_ + (##delete-file _%src98044%_)) + (if _%tmp98075%_ (with-exception-catcher void - (lambda () (delete-file _%tmp97076%_))) + (lambda () (delete-file _%tmp98075%_))) '#!void))))))) (with-exception-catcher - (lambda (_%e97072%_) - (if (let () (declare (not safe)) (##file-exists? _%src97045%_)) - (_%force-move-it97070%_) - (raise _%e97072%_))) + (lambda (_%e98071%_) + (if (let () (declare (not safe)) (##file-exists? _%src98044%_)) + (_%force-move-it98069%_) + (raise _%e98071%_))) (lambda () (let () (declare (not safe)) (##rename-file - _%src97045%_ - _%dest97053%_ - _%replace?97061%_)))) + _%src98044%_ + _%dest98052%_ + _%replace?98060%_)))) '#!void)))) (define __move-file__0 - (lambda (_%src97087%_ _%dest97088%_) - (let ((_%replace?97090%_ '#t)) - (__move-file__% _%src97087%_ _%dest97088%_ _%replace?97090%_)))) + (lambda (_%src98086%_ _%dest98087%_) + (let ((_%replace?98089%_ '#t)) + (__move-file__% _%src98086%_ _%dest98087%_ _%replace?98089%_)))) (define __move-file - (lambda _g99079_ - (let ((_g99080_ (let () (declare (not safe)) (##length _g99079_)))) - (cond ((let () (declare (not safe)) (##fx= _g99080_ 2)) - (apply __move-file__0 _g99079_)) - ((let () (declare (not safe)) (##fx= _g99080_ 3)) - (apply __move-file__% _g99079_)) + (lambda _g100110_ + (let ((_g100111_ (let () (declare (not safe)) (##length _g100110_)))) + (cond ((let () (declare (not safe)) (##fx= _g100111_ 2)) + (apply __move-file__0 _g100110_)) + ((let () (declare (not safe)) (##fx= _g100111_ 3)) + (apply __move-file__% _g100110_)) (else (##raise-wrong-number-of-arguments-exception __move-file - _g99079_)))))) + _g100110_)))))) (define absent-obj (let () (declare (not safe)) (##absent-object))) (define absent-value '#(#!void)) - (define true (lambda _%ignore97036%_ '#t)) - (define true? (lambda (_%obj97033%_) (eq? _%obj97033%_ '#t))) - (define false (lambda _%ignore97030%_ '#f)) - (define void (lambda _%ignore97027%_ '#!void)) - (define void? (lambda (_%obj97024%_) (eq? _%obj97024%_ '#!void))) + (define true (lambda _%ignore98035%_ '#t)) + (define true? (lambda (_%obj98032%_) (eq? _%obj98032%_ '#t))) + (define false (lambda _%ignore98029%_ '#f)) + (define void (lambda _%ignore98026%_ '#!void)) + (define void? (lambda (_%obj98023%_) (eq? _%obj98023%_ '#!void))) (define dssl-object? - (lambda (_%obj97021%_) + (lambda (_%obj98020%_) (if (let () (declare (not safe)) - (##memq _%obj97021%_ '(#!key #!rest #!optional))) + (##memq _%obj98020%_ '(#!key #!rest #!optional))) '#t '#f))) - (define dssl-key-object? (lambda (_%obj97018%_) (eq? _%obj97018%_ '#!key))) + (define dssl-key-object? (lambda (_%obj98017%_) (eq? _%obj98017%_ '#!key))) (define dssl-rest-object? - (lambda (_%obj97015%_) (eq? _%obj97015%_ '#!rest))) + (lambda (_%obj98014%_) (eq? _%obj98014%_ '#!rest))) (define dssl-optional-object? - (lambda (_%obj97012%_) (eq? _%obj97012%_ '#!optional))) + (lambda (_%obj98011%_) (eq? _%obj98011%_ '#!optional))) (define immediate? - (lambda (_%obj97007%_) - (let* ((_%t97010%_ (let () (declare (not safe)) (##type _%obj97007%_))) - (__tmp99081 - (let () (declare (not safe)) (##fxand _%t97010%_ '1)))) - (declare (not safe)) - (##fxzero? __tmp99081)))) + (lambda (_%obj98008%_) + (not (let () (declare (not safe)) (##mem-allocated? _%obj98008%_))))) (define nonnegative-fixnum? - (lambda (_%obj97004%_) - (if (fixnum? _%obj97004%_) - (let () (declare (not safe)) (##fx>= _%obj97004%_ '0)) + (lambda (_%obj98005%_) + (if (fixnum? _%obj98005%_) + (let () (declare (not safe)) (##fx>= _%obj98005%_ '0)) '#f))) (define pair-or-null? - (lambda (_%obj96998%_) - (let ((_%$e97001%_ (pair? _%obj96998%_))) - (if _%$e97001%_ _%$e97001%_ (null? _%obj96998%_))))) + (lambda (_%obj97999%_) + (let ((_%$e98002%_ (pair? _%obj97999%_))) + (if _%$e98002%_ _%$e98002%_ (null? _%obj97999%_))))) (define values-count - (lambda (_%obj96995%_) - (if (let () (declare (not safe)) (##values? _%obj96995%_)) - (let () (declare (not safe)) (##values-length _%obj96995%_)) + (lambda (_%obj97996%_) + (if (let () (declare (not safe)) (##values? _%obj97996%_)) + (let () (declare (not safe)) (##values-length _%obj97996%_)) '1))) (define values-ref - (lambda (_%obj96980%_ _%k96981%_) - (if (fixnum? _%k96981%_) - (let ((_%k96985%_ _%k96981%_)) - (__values-ref _%obj96980%_ _%k96985%_)) + (lambda (_%obj97981%_ _%k97982%_) + (if (fixnum? _%k97982%_) + (let ((_%k97986%_ _%k97982%_)) + (__values-ref _%obj97981%_ _%k97986%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@234.23-234.24" + '"\"gerbil/runtime/util.ss\"@266.23-266.24" 'contract: 'fixnum? 'value: - _%k96981%_) + _%k97982%_) '#!void)))) (define __values-ref - (lambda (_%obj96967%_ _%k96968%_) - (let ((_%k96971%_ _%k96968%_)) - (if (let () (declare (not safe)) (##values? _%obj96967%_)) + (lambda (_%obj97968%_ _%k97969%_) + (let ((_%k97972%_ _%k97969%_)) + (if (let () (declare (not safe)) (##values? _%obj97968%_)) (let () (declare (not safe)) - (##values-ref _%obj96967%_ _%k96971%_)) - _%obj96967%_)))) + (##values-ref _%obj97968%_ _%k97972%_)) + _%obj97968%_)))) (define values->list - (lambda (_%obj96964%_) - (if (let () (declare (not safe)) (##values? _%obj96964%_)) - (let () (declare (not safe)) (##values->list _%obj96964%_)) - (list _%obj96964%_)))) + (lambda (_%obj97965%_) + (if (let () (declare (not safe)) (##values? _%obj97965%_)) + (let () (declare (not safe)) (##values->list _%obj97965%_)) + (list _%obj97965%_)))) (define foldl1 - (lambda (_%f96948%_ _%iv96949%_ _%lst96950%_) - (if (procedure? _%f96948%_) - (let ((_%f96954%_ _%f96948%_)) - (__foldl1 _%f96954%_ _%iv96949%_ _%lst96950%_)) + (lambda (_%f97949%_ _%iv97950%_ _%lst97951%_) + (if (procedure? _%f97949%_) + (let ((_%f97955%_ _%f97949%_)) + (__foldl1 _%f97955%_ _%iv97950%_ _%lst97951%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@257.15-257.16" + '"\"gerbil/runtime/util.ss\"@289.15-289.16" 'contract: 'procedure? 'value: - _%f96948%_) + _%f97949%_) '#!void)))) (define __foldl1 - (lambda (_%f96896%_ _%iv96897%_ _%lst96898%_) - (let ((_%f96901%_ _%f96896%_)) - (let _%lp96910%_ ((_%rest96912%_ _%lst96898%_) - (_%r96913%_ _%iv96897%_)) - (let* ((_%rest9691496922%_ _%rest96912%_) - (_%else9691696930%_ (lambda () _%r96913%_)) - (_%K9691896936%_ - (lambda (_%rest96933%_ _%x96934%_) - (_%lp96910%_ - _%rest96933%_ + (lambda (_%f97897%_ _%iv97898%_ _%lst97899%_) + (let ((_%f97902%_ _%f97897%_)) + (let _%lp97911%_ ((_%rest97913%_ _%lst97899%_) + (_%r97914%_ _%iv97898%_)) + (let* ((_%rest9791597923%_ _%rest97913%_) + (_%else9791797931%_ (lambda () _%r97914%_)) + (_%K9791997937%_ + (lambda (_%rest97934%_ _%x97935%_) + (_%lp97911%_ + _%rest97934%_ (let () (declare (not safe)) - (_%f96901%_ _%x96934%_ _%r96913%_)))))) - (if (pair? _%rest9691496922%_) - (let ((_%hd9691996939%_ + (_%f97902%_ _%x97935%_ _%r97914%_)))))) + (if (pair? _%rest9791597923%_) + (let ((_%hd9792097940%_ (let () (declare (not safe)) - (##car _%rest9691496922%_))) - (_%tl9692096941%_ + (##car _%rest9791597923%_))) + (_%tl9792197942%_ (let () (declare (not safe)) - (##cdr _%rest9691496922%_)))) - (let* ((_%x96944%_ _%hd9691996939%_) - (_%rest96946%_ _%tl9692096941%_)) - (_%K9691896936%_ _%rest96946%_ _%x96944%_))) - (_%else9691696930%_))))))) + (##cdr _%rest9791597923%_)))) + (let* ((_%x97945%_ _%hd9792097940%_) + (_%rest97947%_ _%tl9792197942%_)) + (_%K9791997937%_ _%rest97947%_ _%x97945%_))) + (_%else9791797931%_))))))) (define foldl2 - (lambda (_%f96879%_ _%iv96880%_ _%lst196881%_ _%lst296882%_) - (if (procedure? _%f96879%_) - (let ((_%f96886%_ _%f96879%_)) - (__foldl2 _%f96886%_ _%iv96880%_ _%lst196881%_ _%lst296882%_)) + (lambda (_%f97880%_ _%iv97881%_ _%lst197882%_ _%lst297883%_) + (if (procedure? _%f97880%_) + (let ((_%f97887%_ _%f97880%_)) + (__foldl2 _%f97887%_ _%iv97881%_ _%lst197882%_ _%lst297883%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@264.15-264.16" + '"\"gerbil/runtime/util.ss\"@296.15-296.16" 'contract: 'procedure? 'value: - _%f96879%_) + _%f97880%_) '#!void)))) (define __foldl2 - (lambda (_%f96792%_ _%iv96793%_ _%lst196794%_ _%lst296795%_) - (let ((_%f96798%_ _%f96792%_)) - (let _%lp96807%_ ((_%rest196809%_ _%lst196794%_) - (_%rest296810%_ _%lst296795%_) - (_%r96811%_ _%iv96793%_)) - (let* ((_%rest19681296820%_ _%rest196809%_) - (_%else9681496828%_ (lambda () _%r96811%_)) - (_%K9681696867%_ - (lambda (_%rest196831%_ _%x196832%_) - (let* ((_%rest29683396841%_ _%rest296810%_) - (_%else9683596849%_ (lambda () _%r96811%_)) - (_%K9683796855%_ - (lambda (_%rest296852%_ _%x296853%_) - (_%lp96807%_ - _%rest196831%_ - _%rest296852%_ + (lambda (_%f97793%_ _%iv97794%_ _%lst197795%_ _%lst297796%_) + (let ((_%f97799%_ _%f97793%_)) + (let _%lp97808%_ ((_%rest197810%_ _%lst197795%_) + (_%rest297811%_ _%lst297796%_) + (_%r97812%_ _%iv97794%_)) + (let* ((_%rest19781397821%_ _%rest197810%_) + (_%else9781597829%_ (lambda () _%r97812%_)) + (_%K9781797868%_ + (lambda (_%rest197832%_ _%x197833%_) + (let* ((_%rest29783497842%_ _%rest297811%_) + (_%else9783697850%_ (lambda () _%r97812%_)) + (_%K9783897856%_ + (lambda (_%rest297853%_ _%x297854%_) + (_%lp97808%_ + _%rest197832%_ + _%rest297853%_ (let () (declare (not safe)) - (_%f96798%_ - _%x196832%_ - _%x296853%_ - _%r96811%_)))))) - (if (pair? _%rest29683396841%_) - (let ((_%hd9683896858%_ + (_%f97799%_ + _%x197833%_ + _%x297854%_ + _%r97812%_)))))) + (if (pair? _%rest29783497842%_) + (let ((_%hd9783997859%_ (let () (declare (not safe)) - (##car _%rest29683396841%_))) - (_%tl9683996860%_ + (##car _%rest29783497842%_))) + (_%tl9784097861%_ (let () (declare (not safe)) - (##cdr _%rest29683396841%_)))) - (let* ((_%x296863%_ _%hd9683896858%_) - (_%rest296865%_ _%tl9683996860%_)) - (_%K9683796855%_ _%rest296865%_ _%x296863%_))) - (_%else9683596849%_)))))) - (if (pair? _%rest19681296820%_) - (let ((_%hd9681796870%_ + (##cdr _%rest29783497842%_)))) + (let* ((_%x297864%_ _%hd9783997859%_) + (_%rest297866%_ _%tl9784097861%_)) + (_%K9783897856%_ _%rest297866%_ _%x297864%_))) + (_%else9783697850%_)))))) + (if (pair? _%rest19781397821%_) + (let ((_%hd9781897871%_ (let () (declare (not safe)) - (##car _%rest19681296820%_))) - (_%tl9681896872%_ + (##car _%rest19781397821%_))) + (_%tl9781997873%_ (let () (declare (not safe)) - (##cdr _%rest19681296820%_)))) - (let* ((_%x196875%_ _%hd9681796870%_) - (_%rest196877%_ _%tl9681896872%_)) - (_%K9681696867%_ _%rest196877%_ _%x196875%_))) - (_%else9681496828%_))))))) + (##cdr _%rest19781397821%_)))) + (let* ((_%x197876%_ _%hd9781897871%_) + (_%rest197878%_ _%tl9781997873%_)) + (_%K9781797868%_ _%rest197878%_ _%x197876%_))) + (_%else9781597829%_))))))) (define foldl - (lambda _g99082_ - (let ((_g99083_ (let () (declare (not safe)) (##length _g99082_)))) - (cond ((let () (declare (not safe)) (##fx= _g99083_ 3)) - (apply foldl1 _g99082_)) - ((let () (declare (not safe)) (##fx= _g99083_ 4)) - (apply foldl2 _g99082_)) - ((let () (declare (not safe)) (##fx>= _g99083_ 4)) - (apply foldl* _g99082_)) + (lambda _g100112_ + (let ((_g100113_ (let () (declare (not safe)) (##length _g100112_)))) + (cond ((let () (declare (not safe)) (##fx= _g100113_ 3)) + (apply foldl1 _g100112_)) + ((let () (declare (not safe)) (##fx= _g100113_ 4)) + (apply foldl2 _g100112_)) + ((let () (declare (not safe)) (##fx>= _g100113_ 4)) + (apply foldl* _g100112_)) (else (##raise-wrong-number-of-arguments-exception foldl - _g99082_)))))) + _g100112_)))))) (define foldl* - (lambda (_%f96761%_ _%iv96762%_ . _%rest96763%_) - (if (procedure? _%f96761%_) - (let ((_%f96767%_ _%f96761%_)) + (lambda (_%f97762%_ _%iv97763%_ . _%rest97764%_) + (if (procedure? _%f97762%_) + (let ((_%f97768%_ _%f97762%_)) (declare (not safe)) - (##apply __foldl* _%f96767%_ _%iv96762%_ _%rest96763%_)) + (##apply __foldl* _%f97768%_ _%iv97763%_ _%rest97764%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@282.15-282.16" + '"\"gerbil/runtime/util.ss\"@314.15-314.16" 'contract: 'procedure? 'value: - _%f96761%_) + _%f97762%_) '#!void)))) (define __foldl* - (lambda (_%f96739%_ _%iv96740%_ . _%rest96741%_) - (let ((_%f96744%_ _%f96739%_)) - (let _%recur96753%_ ((_%iv96755%_ _%iv96740%_) - (_%rest96756%_ _%rest96741%_)) - (if (__andmap1 pair? _%rest96756%_) - (_%recur96753%_ - (let ((__tmp99084 + (lambda (_%f97740%_ _%iv97741%_ . _%rest97742%_) + (let ((_%f97745%_ _%f97740%_)) + (let _%recur97754%_ ((_%iv97756%_ _%iv97741%_) + (_%rest97757%_ _%rest97742%_)) + (if (__andmap1 pair? _%rest97757%_) + (_%recur97754%_ + (let ((__tmp100114 (__foldr1 - (lambda (_%xs96758%_ _%r96759%_) - (cons (car _%xs96758%_) _%r96759%_)) - (list _%iv96755%_) - _%rest96756%_))) + (lambda (_%xs97759%_ _%r97760%_) + (cons (car _%xs97759%_) _%r97760%_)) + (list _%iv97756%_) + _%rest97757%_))) (declare (not safe)) - (##apply _%f96744%_ __tmp99084)) - (map cdr _%rest96756%_)) - _%iv96755%_))))) + (##apply _%f97745%_ __tmp100114)) + (map cdr _%rest97757%_)) + _%iv97756%_))))) (define foldr1 - (lambda (_%f96723%_ _%iv96724%_ _%lst96725%_) - (if (procedure? _%f96723%_) - (let ((_%f96729%_ _%f96723%_)) - (__foldr1 _%f96729%_ _%iv96724%_ _%lst96725%_)) + (lambda (_%f97724%_ _%iv97725%_ _%lst97726%_) + (if (procedure? _%f97724%_) + (let ((_%f97730%_ _%f97724%_)) + (__foldr1 _%f97730%_ _%iv97725%_ _%lst97726%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@292.15-292.16" + '"\"gerbil/runtime/util.ss\"@324.15-324.16" 'contract: 'procedure? 'value: - _%f96723%_) + _%f97724%_) '#!void)))) (define __foldr1 - (lambda (_%f96672%_ _%iv96673%_ _%lst96674%_) - (let ((_%f96677%_ _%f96672%_)) - (let _%recur96686%_ ((_%rest96688%_ _%lst96674%_)) - (let* ((_%rest9668996697%_ _%rest96688%_) - (_%else9669196705%_ (lambda () _%iv96673%_)) - (_%K9669396711%_ - (lambda (_%rest96708%_ _%x96709%_) - (let ((__tmp99085 (_%recur96686%_ _%rest96708%_))) + (lambda (_%f97673%_ _%iv97674%_ _%lst97675%_) + (let ((_%f97678%_ _%f97673%_)) + (let _%recur97687%_ ((_%rest97689%_ _%lst97675%_)) + (let* ((_%rest9769097698%_ _%rest97689%_) + (_%else9769297706%_ (lambda () _%iv97674%_)) + (_%K9769497712%_ + (lambda (_%rest97709%_ _%x97710%_) + (let ((__tmp100115 (_%recur97687%_ _%rest97709%_))) (declare (not safe)) - (_%f96677%_ _%x96709%_ __tmp99085))))) - (if (pair? _%rest9668996697%_) - (let ((_%hd9669496714%_ + (_%f97678%_ _%x97710%_ __tmp100115))))) + (if (pair? _%rest9769097698%_) + (let ((_%hd9769597715%_ (let () (declare (not safe)) - (##car _%rest9668996697%_))) - (_%tl9669596716%_ + (##car _%rest9769097698%_))) + (_%tl9769697717%_ (let () (declare (not safe)) - (##cdr _%rest9668996697%_)))) - (let* ((_%x96719%_ _%hd9669496714%_) - (_%rest96721%_ _%tl9669596716%_)) - (_%K9669396711%_ _%rest96721%_ _%x96719%_))) - (_%else9669196705%_))))))) + (##cdr _%rest9769097698%_)))) + (let* ((_%x97720%_ _%hd9769597715%_) + (_%rest97722%_ _%tl9769697717%_)) + (_%K9769497712%_ _%rest97722%_ _%x97720%_))) + (_%else9769297706%_))))))) (define foldr2 - (lambda (_%f96655%_ _%iv96656%_ _%lst196657%_ _%lst296658%_) - (if (procedure? _%f96655%_) - (let ((_%f96662%_ _%f96655%_)) - (__foldr2 _%f96662%_ _%iv96656%_ _%lst196657%_ _%lst296658%_)) + (lambda (_%f97656%_ _%iv97657%_ _%lst197658%_ _%lst297659%_) + (if (procedure? _%f97656%_) + (let ((_%f97663%_ _%f97656%_)) + (__foldr2 _%f97663%_ _%iv97657%_ _%lst197658%_ _%lst297659%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@299.15-299.16" + '"\"gerbil/runtime/util.ss\"@331.15-331.16" 'contract: 'procedure? 'value: - _%f96655%_) + _%f97656%_) '#!void)))) (define __foldr2 - (lambda (_%f96569%_ _%iv96570%_ _%lst196571%_ _%lst296572%_) - (let ((_%f96575%_ _%f96569%_)) - (let _%recur96584%_ ((_%rest196586%_ _%lst196571%_) - (_%rest296587%_ _%lst296572%_)) - (let* ((_%rest19658896596%_ _%rest196586%_) - (_%else9659096604%_ (lambda () _%iv96570%_)) - (_%K9659296643%_ - (lambda (_%rest196607%_ _%x196608%_) - (let* ((_%rest29660996617%_ _%rest296587%_) - (_%else9661196625%_ (lambda () _%iv96570%_)) - (_%K9661396631%_ - (lambda (_%rest296628%_ _%x296629%_) - (let ((__tmp99086 - (_%recur96584%_ - _%rest196607%_ - _%rest296628%_))) + (lambda (_%f97570%_ _%iv97571%_ _%lst197572%_ _%lst297573%_) + (let ((_%f97576%_ _%f97570%_)) + (let _%recur97585%_ ((_%rest197587%_ _%lst197572%_) + (_%rest297588%_ _%lst297573%_)) + (let* ((_%rest19758997597%_ _%rest197587%_) + (_%else9759197605%_ (lambda () _%iv97571%_)) + (_%K9759397644%_ + (lambda (_%rest197608%_ _%x197609%_) + (let* ((_%rest29761097618%_ _%rest297588%_) + (_%else9761297626%_ (lambda () _%iv97571%_)) + (_%K9761497632%_ + (lambda (_%rest297629%_ _%x297630%_) + (let ((__tmp100116 + (_%recur97585%_ + _%rest197608%_ + _%rest297629%_))) (declare (not safe)) - (_%f96575%_ - _%x196608%_ - _%x296629%_ - __tmp99086))))) - (if (pair? _%rest29660996617%_) - (let ((_%hd9661496634%_ + (_%f97576%_ + _%x197609%_ + _%x297630%_ + __tmp100116))))) + (if (pair? _%rest29761097618%_) + (let ((_%hd9761597635%_ (let () (declare (not safe)) - (##car _%rest29660996617%_))) - (_%tl9661596636%_ + (##car _%rest29761097618%_))) + (_%tl9761697637%_ (let () (declare (not safe)) - (##cdr _%rest29660996617%_)))) - (let* ((_%x296639%_ _%hd9661496634%_) - (_%rest296641%_ _%tl9661596636%_)) - (_%K9661396631%_ _%rest296641%_ _%x296639%_))) - (_%else9661196625%_)))))) - (if (pair? _%rest19658896596%_) - (let ((_%hd9659396646%_ + (##cdr _%rest29761097618%_)))) + (let* ((_%x297640%_ _%hd9761597635%_) + (_%rest297642%_ _%tl9761697637%_)) + (_%K9761497632%_ _%rest297642%_ _%x297640%_))) + (_%else9761297626%_)))))) + (if (pair? _%rest19758997597%_) + (let ((_%hd9759497647%_ (let () (declare (not safe)) - (##car _%rest19658896596%_))) - (_%tl9659496648%_ + (##car _%rest19758997597%_))) + (_%tl9759597649%_ (let () (declare (not safe)) - (##cdr _%rest19658896596%_)))) - (let* ((_%x196651%_ _%hd9659396646%_) - (_%rest196653%_ _%tl9659496648%_)) - (_%K9659296643%_ _%rest196653%_ _%x196651%_))) - (_%else9659096604%_))))))) + (##cdr _%rest19758997597%_)))) + (let* ((_%x197652%_ _%hd9759497647%_) + (_%rest197654%_ _%tl9759597649%_)) + (_%K9759397644%_ _%rest197654%_ _%x197652%_))) + (_%else9759197605%_))))))) (define foldr - (lambda _g99087_ - (let ((_g99088_ (let () (declare (not safe)) (##length _g99087_)))) - (cond ((let () (declare (not safe)) (##fx= _g99088_ 3)) - (apply foldr1 _g99087_)) - ((let () (declare (not safe)) (##fx= _g99088_ 4)) - (apply foldr2 _g99087_)) - ((let () (declare (not safe)) (##fx>= _g99088_ 4)) - (apply foldr* _g99087_)) + (lambda _g100117_ + (let ((_g100118_ (let () (declare (not safe)) (##length _g100117_)))) + (cond ((let () (declare (not safe)) (##fx= _g100118_ 3)) + (apply foldr1 _g100117_)) + ((let () (declare (not safe)) (##fx= _g100118_ 4)) + (apply foldr2 _g100117_)) + ((let () (declare (not safe)) (##fx>= _g100118_ 4)) + (apply foldr* _g100117_)) (else (##raise-wrong-number-of-arguments-exception foldr - _g99087_)))))) + _g100117_)))))) (define foldr* - (lambda (_%f96538%_ _%iv96539%_ . _%rest96540%_) - (if (procedure? _%f96538%_) - (let ((_%f96544%_ _%f96538%_)) + (lambda (_%f97539%_ _%iv97540%_ . _%rest97541%_) + (if (procedure? _%f97539%_) + (let ((_%f97545%_ _%f97539%_)) (declare (not safe)) - (##apply __foldr* _%f96544%_ _%iv96539%_ _%rest96540%_)) + (##apply __foldr* _%f97545%_ _%iv97540%_ _%rest97541%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@317.15-317.16" + '"\"gerbil/runtime/util.ss\"@349.15-349.16" 'contract: 'procedure? 'value: - _%f96538%_) + _%f97539%_) '#!void)))) (define __foldr* - (lambda (_%f96517%_ _%iv96518%_ . _%rest96519%_) - (let ((_%f96522%_ _%f96517%_)) - (let _%recur96531%_ ((_%rest96533%_ _%rest96519%_)) - (if (__andmap1 pair? _%rest96533%_) - (let ((__tmp99089 + (lambda (_%f97518%_ _%iv97519%_ . _%rest97520%_) + (let ((_%f97523%_ _%f97518%_)) + (let _%recur97532%_ ((_%rest97534%_ _%rest97520%_)) + (if (__andmap1 pair? _%rest97534%_) + (let ((__tmp100119 (__foldr1 - (lambda (_%xs96535%_ _%r96536%_) - (cons (car _%xs96535%_) _%r96536%_)) - (list (_%recur96531%_ (map cdr _%rest96533%_))) - _%rest96533%_))) + (lambda (_%xs97536%_ _%r97537%_) + (cons (car _%xs97536%_) _%r97537%_)) + (list (_%recur97532%_ (map cdr _%rest97534%_))) + _%rest97534%_))) (declare (not safe)) - (##apply _%f96522%_ __tmp99089)) - _%iv96518%_))))) + (##apply _%f97523%_ __tmp100119)) + _%iv97519%_))))) (define remove-nulls! - (lambda (_%l96404%_) - (let* ((_%l9640596418%_ _%l96404%_) - (_%E9640996422%_ + (lambda (_%l97405%_) + (let* ((_%l9740697419%_ _%l97405%_) + (_%E9741097423%_ (lambda () (error '"No clause matching" - _%l9640596418%_ + _%l9740697419%_ '([[] . r]) '([_ . r]) '(_)) '#!void))) - (let ((_%K9641496507%_ - (lambda (_%r96505%_) (remove-nulls! _%r96505%_))) - (_%K9641196494%_ - (lambda (_%r96434%_) - (let _%loop96436%_ ((_%l96438%_ _%l96404%_) - (_%r96439%_ _%r96434%_)) - (let* ((_%r9644096453%_ _%r96439%_) - (_%E9644496457%_ + (let ((_%K9741597508%_ + (lambda (_%r97506%_) (remove-nulls! _%r97506%_))) + (_%K9741297495%_ + (lambda (_%r97435%_) + (let _%loop97437%_ ((_%l97439%_ _%l97405%_) + (_%r97440%_ _%r97435%_)) + (let* ((_%r9744197454%_ _%r97440%_) + (_%E9744597458%_ (lambda () (error '"No clause matching" - _%r9644096453%_ + _%r9744197454%_ '([[] . rr]) '([_ . rr]) '(_)) '#!void))) - (let ((_%K9644996484%_ - (lambda (_%rr96482%_) - (let ((__tmp99091 _%l96438%_) - (__tmp99090 (remove-nulls! _%rr96482%_))) + (let ((_%K9745097485%_ + (lambda (_%rr97483%_) + (let ((__tmp100121 _%l97439%_) + (__tmp100120 + (remove-nulls! _%rr97483%_))) (declare (not safe)) - (##set-cdr! __tmp99091 __tmp99090)))) - (_%K9644696471%_ - (lambda (_%rr96469%_) - (_%loop96436%_ _%r96439%_ _%rr96469%_))) - (_%K9644596462%_ (lambda () '#!void))) - (if (pair? _%r9644096453%_) - (let ((_%tl9645196489%_ + (##set-cdr! __tmp100121 __tmp100120)))) + (_%K9744797472%_ + (lambda (_%rr97470%_) + (_%loop97437%_ _%r97440%_ _%rr97470%_))) + (_%K9744697463%_ (lambda () '#!void))) + (if (pair? _%r9744197454%_) + (let ((_%tl9745297490%_ (let () (declare (not safe)) - (##cdr _%r9644096453%_))) - (_%hd9645096487%_ + (##cdr _%r9744197454%_))) + (_%hd9745197488%_ (let () (declare (not safe)) - (##car _%r9644096453%_)))) - (if (null? _%hd9645096487%_) - (let ((_%rr96492%_ _%tl9645196489%_)) - (_%K9644996484%_ _%rr96492%_)) - (let ((_%rr96477%_ _%tl9645196489%_)) - (_%K9644696471%_ _%rr96477%_)))) + (##car _%r9744197454%_)))) + (if (null? _%hd9745197488%_) + (let ((_%rr97493%_ _%tl9745297490%_)) + (_%K9745097485%_ _%rr97493%_)) + (let ((_%rr97478%_ _%tl9745297490%_)) + (_%K9744797472%_ _%rr97478%_)))) '#!void)))) - _%l96404%_)) - (_%K9641096427%_ (lambda () _%l96404%_))) - (if (pair? _%l9640596418%_) - (let ((_%tl9641696512%_ - (let () (declare (not safe)) (##cdr _%l9640596418%_))) - (_%hd9641596510%_ - (let () (declare (not safe)) (##car _%l9640596418%_)))) - (if (null? _%hd9641596510%_) - (let ((_%r96515%_ _%tl9641696512%_)) - (remove-nulls! _%r96515%_)) - (let ((_%r96500%_ _%tl9641696512%_)) - (_%K9641196494%_ _%r96500%_)))) - (_%K9641096427%_)))))) + _%l97405%_)) + (_%K9741197428%_ (lambda () _%l97405%_))) + (if (pair? _%l9740697419%_) + (let ((_%tl9741797513%_ + (let () (declare (not safe)) (##cdr _%l9740697419%_))) + (_%hd9741697511%_ + (let () (declare (not safe)) (##car _%l9740697419%_)))) + (if (null? _%hd9741697511%_) + (let ((_%r97516%_ _%tl9741797513%_)) + (remove-nulls! _%r97516%_)) + (let ((_%r97501%_ _%tl9741797513%_)) + (_%K9741297495%_ _%r97501%_)))) + (_%K9741197428%_)))))) (define append1! - (lambda (_%l96389%_ _%x96390%_) - (let ((_%l296393%_ (cons _%x96390%_ '()))) - (if (pair? _%l96389%_) - (let ((_%l96395%_ _%l96389%_)) - (let ((__tmp99092 - (let () (declare (not safe)) (##last-pair _%l96395%_)))) + (lambda (_%l97390%_ _%x97391%_) + (let ((_%l297394%_ (cons _%x97391%_ '()))) + (if (pair? _%l97390%_) + (let ((_%l97396%_ _%l97390%_)) + (let ((__tmp100122 + (let () (declare (not safe)) (##last-pair _%l97396%_)))) (declare (not safe)) - (##set-cdr! __tmp99092 _%l296393%_)) - _%l96395%_) - _%l296393%_)))) + (##set-cdr! __tmp100122 _%l297394%_)) + _%l97396%_) + _%l297394%_)))) (define append-reverse-until - (lambda (_%pred96373%_ _%rhead96374%_ _%tail96375%_) - (if (procedure? _%pred96373%_) - (let ((_%pred96379%_ _%pred96373%_)) + (lambda (_%pred97374%_ _%rhead97375%_ _%tail97376%_) + (if (procedure? _%pred97374%_) + (let ((_%pred97380%_ _%pred97374%_)) (__append-reverse-until - _%pred96379%_ - _%rhead96374%_ - _%tail96375%_)) + _%pred97380%_ + _%rhead97375%_ + _%tail97376%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@357.29-357.33" + '"\"gerbil/runtime/util.ss\"@389.29-389.33" 'contract: 'procedure? 'value: - _%pred96373%_) + _%pred97374%_) '#!void)))) (define __append-reverse-until - (lambda (_%pred96315%_ _%rhead96316%_ _%tail96317%_) - (let ((_%pred96320%_ _%pred96315%_)) - (let _%loop96329%_ ((_%rhead96331%_ _%rhead96316%_) - (_%tail96332%_ _%tail96317%_)) - (let* ((_%rhead9633496343%_ _%rhead96331%_) - (_%E9633796347%_ + (lambda (_%pred97316%_ _%rhead97317%_ _%tail97318%_) + (let ((_%pred97321%_ _%pred97316%_)) + (let _%loop97330%_ ((_%rhead97332%_ _%rhead97317%_) + (_%tail97333%_ _%tail97318%_)) + (let* ((_%rhead9733597344%_ _%rhead97332%_) + (_%E9733897348%_ (lambda () (error '"No clause matching" - _%rhead9633496343%_ + _%rhead9733597344%_ '([]) '([a :: r])) '#!void))) - (let ((_%K9634196370%_ (lambda () (values '() _%tail96332%_))) - (_%K9633896354%_ - (lambda (_%r96351%_ _%a96352%_) + (let ((_%K9734297371%_ (lambda () (values '() _%tail97333%_))) + (_%K9733997355%_ + (lambda (_%r97352%_ _%a97353%_) (if (let () (declare (not safe)) - (_%pred96320%_ _%a96352%_)) - (values _%rhead96331%_ _%tail96332%_) - (_%loop96329%_ - _%r96351%_ - (cons _%a96352%_ _%tail96332%_)))))) - (let ((_%try-match9633696366%_ + (_%pred97321%_ _%a97353%_)) + (values _%rhead97332%_ _%tail97333%_) + (_%loop97330%_ + _%r97352%_ + (cons _%a97353%_ _%tail97333%_)))))) + (let ((_%try-match9733797367%_ (lambda () - (if (pair? _%rhead9633496343%_) - (let ((_%tl9634096359%_ + (if (pair? _%rhead9733597344%_) + (let ((_%tl9734197360%_ (let () (declare (not safe)) - (##cdr _%rhead9633496343%_))) - (_%hd9633996357%_ + (##cdr _%rhead9733597344%_))) + (_%hd9734097358%_ (let () (declare (not safe)) - (##car _%rhead9633496343%_)))) - (let ((_%a96362%_ _%hd9633996357%_) - (_%r96364%_ _%tl9634096359%_)) - (_%K9633896354%_ _%r96364%_ _%a96362%_))) - (_%E9633796347%_))))) - (if (null? _%rhead9633496343%_) - (_%K9634196370%_) - (_%try-match9633696366%_))))))))) + (##car _%rhead9733597344%_)))) + (let ((_%a97363%_ _%hd9734097358%_) + (_%r97365%_ _%tl9734197360%_)) + (_%K9733997355%_ _%r97365%_ _%a97363%_))) + (_%E9733897348%_))))) + (if (null? _%rhead9733597344%_) + (_%K9734297371%_) + (_%try-match9733797367%_))))))))) (define andmap1 - (lambda (_%f96300%_ _%lst96301%_) - (if (procedure? _%f96300%_) - (let ((_%f96305%_ _%f96300%_)) (__andmap1 _%f96305%_ _%lst96301%_)) + (lambda (_%f97301%_ _%lst97302%_) + (if (procedure? _%f97301%_) + (let ((_%f97306%_ _%f97301%_)) (__andmap1 _%f97306%_ _%lst97302%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@368.16-368.17" + '"\"gerbil/runtime/util.ss\"@400.16-400.17" 'contract: 'procedure? 'value: - _%f96300%_) + _%f97301%_) '#!void)))) (define __andmap1 - (lambda (_%f96249%_ _%lst96250%_) - (let ((_%f96253%_ _%f96249%_)) - (let _%lp96262%_ ((_%rest96264%_ _%lst96250%_)) - (let* ((_%rest9626696274%_ _%rest96264%_) - (_%else9626896282%_ (lambda () '#t)) - (_%K9627096288%_ - (lambda (_%rest96285%_ _%x96286%_) - (if (let () (declare (not safe)) (_%f96253%_ _%x96286%_)) - (_%lp96262%_ _%rest96285%_) + (lambda (_%f97250%_ _%lst97251%_) + (let ((_%f97254%_ _%f97250%_)) + (let _%lp97263%_ ((_%rest97265%_ _%lst97251%_)) + (let* ((_%rest9726797275%_ _%rest97265%_) + (_%else9726997283%_ (lambda () '#t)) + (_%K9727197289%_ + (lambda (_%rest97286%_ _%x97287%_) + (if (let () (declare (not safe)) (_%f97254%_ _%x97287%_)) + (_%lp97263%_ _%rest97286%_) '#f)))) - (if (pair? _%rest9626696274%_) - (let ((_%hd9627196291%_ + (if (pair? _%rest9726797275%_) + (let ((_%hd9727297292%_ (let () (declare (not safe)) - (##car _%rest9626696274%_))) - (_%tl9627296293%_ + (##car _%rest9726797275%_))) + (_%tl9727397294%_ (let () (declare (not safe)) - (##cdr _%rest9626696274%_)))) - (let* ((_%x96296%_ _%hd9627196291%_) - (_%rest96298%_ _%tl9627296293%_)) - (_%K9627096288%_ _%rest96298%_ _%x96296%_))) - (_%else9626896282%_))))))) + (##cdr _%rest9726797275%_)))) + (let* ((_%x97297%_ _%hd9727297292%_) + (_%rest97299%_ _%tl9727397294%_)) + (_%K9727197289%_ _%rest97299%_ _%x97297%_))) + (_%else9726997283%_))))))) (define andmap2 - (lambda (_%f96233%_ _%lst196234%_ _%lst296235%_) - (if (procedure? _%f96233%_) - (let ((_%f96239%_ _%f96233%_)) - (__andmap2 _%f96239%_ _%lst196234%_ _%lst296235%_)) + (lambda (_%f97234%_ _%lst197235%_ _%lst297236%_) + (if (procedure? _%f97234%_) + (let ((_%f97240%_ _%f97234%_)) + (__andmap2 _%f97240%_ _%lst197235%_ _%lst297236%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@377.16-377.17" + '"\"gerbil/runtime/util.ss\"@409.16-409.17" 'contract: 'procedure? 'value: - _%f96233%_) + _%f97234%_) '#!void)))) (define __andmap2 - (lambda (_%f96147%_ _%lst196148%_ _%lst296149%_) - (let ((_%f96152%_ _%f96147%_)) - (let _%lp96161%_ ((_%rest196163%_ _%lst196148%_) - (_%rest296164%_ _%lst296149%_)) - (let* ((_%rest19616696174%_ _%rest196163%_) - (_%else9616896182%_ (lambda () '#t)) - (_%K9617096221%_ - (lambda (_%rest196185%_ _%x196186%_) - (let* ((_%rest29618796195%_ _%rest296164%_) - (_%else9618996203%_ (lambda () '#t)) - (_%K9619196209%_ - (lambda (_%rest296206%_ _%x296207%_) + (lambda (_%f97148%_ _%lst197149%_ _%lst297150%_) + (let ((_%f97153%_ _%f97148%_)) + (let _%lp97162%_ ((_%rest197164%_ _%lst197149%_) + (_%rest297165%_ _%lst297150%_)) + (let* ((_%rest19716797175%_ _%rest197164%_) + (_%else9716997183%_ (lambda () '#t)) + (_%K9717197222%_ + (lambda (_%rest197186%_ _%x197187%_) + (let* ((_%rest29718897196%_ _%rest297165%_) + (_%else9719097204%_ (lambda () '#t)) + (_%K9719297210%_ + (lambda (_%rest297207%_ _%x297208%_) (if (let () (declare (not safe)) - (_%f96152%_ _%x196186%_ _%x296207%_)) - (_%lp96161%_ _%rest196185%_ _%rest296206%_) + (_%f97153%_ _%x197187%_ _%x297208%_)) + (_%lp97162%_ _%rest197186%_ _%rest297207%_) '#f)))) - (if (pair? _%rest29618796195%_) - (let ((_%hd9619296212%_ + (if (pair? _%rest29718897196%_) + (let ((_%hd9719397213%_ (let () (declare (not safe)) - (##car _%rest29618796195%_))) - (_%tl9619396214%_ + (##car _%rest29718897196%_))) + (_%tl9719497215%_ (let () (declare (not safe)) - (##cdr _%rest29618796195%_)))) - (let* ((_%x296217%_ _%hd9619296212%_) - (_%rest296219%_ _%tl9619396214%_)) - (_%K9619196209%_ _%rest296219%_ _%x296217%_))) - (_%else9618996203%_)))))) - (if (pair? _%rest19616696174%_) - (let ((_%hd9617196224%_ + (##cdr _%rest29718897196%_)))) + (let* ((_%x297218%_ _%hd9719397213%_) + (_%rest297220%_ _%tl9719497215%_)) + (_%K9719297210%_ _%rest297220%_ _%x297218%_))) + (_%else9719097204%_)))))) + (if (pair? _%rest19716797175%_) + (let ((_%hd9717297225%_ (let () (declare (not safe)) - (##car _%rest19616696174%_))) - (_%tl9617296226%_ + (##car _%rest19716797175%_))) + (_%tl9717397227%_ (let () (declare (not safe)) - (##cdr _%rest19616696174%_)))) - (let* ((_%x196229%_ _%hd9617196224%_) - (_%rest196231%_ _%tl9617296226%_)) - (_%K9617096221%_ _%rest196231%_ _%x196229%_))) - (_%else9616896182%_))))))) + (##cdr _%rest19716797175%_)))) + (let* ((_%x197230%_ _%hd9717297225%_) + (_%rest197232%_ _%tl9717397227%_)) + (_%K9717197222%_ _%rest197232%_ _%x197230%_))) + (_%else9716997183%_))))))) (define andmap - (lambda _g99093_ - (let ((_g99094_ (let () (declare (not safe)) (##length _g99093_)))) - (cond ((let () (declare (not safe)) (##fx= _g99094_ 2)) - (apply andmap1 _g99093_)) - ((let () (declare (not safe)) (##fx= _g99094_ 3)) - (apply andmap2 _g99093_)) - ((let () (declare (not safe)) (##fx>= _g99094_ 3)) - (apply andmap* _g99093_)) + (lambda _g100123_ + (let ((_g100124_ (let () (declare (not safe)) (##length _g100123_)))) + (cond ((let () (declare (not safe)) (##fx= _g100124_ 2)) + (apply andmap1 _g100123_)) + ((let () (declare (not safe)) (##fx= _g100124_ 3)) + (apply andmap2 _g100123_)) + ((let () (declare (not safe)) (##fx>= _g100124_ 3)) + (apply andmap* _g100123_)) (else (##raise-wrong-number-of-arguments-exception andmap - _g99093_)))))) + _g100123_)))))) (define andmap* - (lambda (_%f96120%_ . _%rest96121%_) - (if (procedure? _%f96120%_) - (let ((_%f96125%_ _%f96120%_)) + (lambda (_%f97121%_ . _%rest97122%_) + (if (procedure? _%f97121%_) + (let ((_%f97126%_ _%f97121%_)) (declare (not safe)) - (##apply __andmap* _%f96125%_ _%rest96121%_)) + (##apply __andmap* _%f97126%_ _%rest97122%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@397.16-397.17" + '"\"gerbil/runtime/util.ss\"@429.16-429.17" 'contract: 'procedure? 'value: - _%f96120%_) + _%f97121%_) '#!void)))) (define __andmap* - (lambda (_%f96102%_ . _%rest96103%_) - (let ((_%f96106%_ _%f96102%_)) - (let _%recur96115%_ ((_%rest96117%_ _%rest96103%_)) - (if (__andmap1 pair? _%rest96117%_) - (if (let ((__tmp99095 (map car _%rest96117%_))) + (lambda (_%f97103%_ . _%rest97104%_) + (let ((_%f97107%_ _%f97103%_)) + (let _%recur97116%_ ((_%rest97118%_ _%rest97104%_)) + (if (__andmap1 pair? _%rest97118%_) + (if (let ((__tmp100125 (map car _%rest97118%_))) (declare (not safe)) - (##apply _%f96106%_ __tmp99095)) - (_%recur96115%_ (map cdr _%rest96117%_)) + (##apply _%f97107%_ __tmp100125)) + (_%recur97116%_ (map cdr _%rest97118%_)) '#f) '#t))))) (define ormap1 - (lambda (_%f96087%_ _%lst96088%_) - (if (procedure? _%f96087%_) - (let ((_%f96092%_ _%f96087%_)) (__ormap1 _%f96092%_ _%lst96088%_)) + (lambda (_%f97088%_ _%lst97089%_) + (if (procedure? _%f97088%_) + (let ((_%f97093%_ _%f97088%_)) (__ormap1 _%f97093%_ _%lst97089%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@406.15-406.16" + '"\"gerbil/runtime/util.ss\"@438.15-438.16" 'contract: 'procedure? 'value: - _%f96087%_) + _%f97088%_) '#!void)))) (define __ormap1 - (lambda (_%f96034%_ _%lst96035%_) - (let ((_%f96038%_ _%f96034%_)) - (let _%lp96047%_ ((_%rest96049%_ _%lst96035%_)) - (let* ((_%rest9605096058%_ _%rest96049%_) - (_%else9605296066%_ (lambda () '#f)) - (_%K9605496075%_ - (lambda (_%rest96069%_ _%x96070%_) - (let ((_%$e96072%_ + (lambda (_%f97035%_ _%lst97036%_) + (let ((_%f97039%_ _%f97035%_)) + (let _%lp97048%_ ((_%rest97050%_ _%lst97036%_)) + (let* ((_%rest9705197059%_ _%rest97050%_) + (_%else9705397067%_ (lambda () '#f)) + (_%K9705597076%_ + (lambda (_%rest97070%_ _%x97071%_) + (let ((_%$e97073%_ (let () (declare (not safe)) - (_%f96038%_ _%x96070%_)))) - (if _%$e96072%_ - _%$e96072%_ - (_%lp96047%_ _%rest96069%_)))))) - (if (pair? _%rest9605096058%_) - (let ((_%hd9605596078%_ + (_%f97039%_ _%x97071%_)))) + (if _%$e97073%_ + _%$e97073%_ + (_%lp97048%_ _%rest97070%_)))))) + (if (pair? _%rest9705197059%_) + (let ((_%hd9705697079%_ (let () (declare (not safe)) - (##car _%rest9605096058%_))) - (_%tl9605696080%_ + (##car _%rest9705197059%_))) + (_%tl9705797081%_ (let () (declare (not safe)) - (##cdr _%rest9605096058%_)))) - (let* ((_%x96083%_ _%hd9605596078%_) - (_%rest96085%_ _%tl9605696080%_)) - (_%K9605496075%_ _%rest96085%_ _%x96083%_))) - (_%else9605296066%_))))))) + (##cdr _%rest9705197059%_)))) + (let* ((_%x97084%_ _%hd9705697079%_) + (_%rest97086%_ _%tl9705797081%_)) + (_%K9705597076%_ _%rest97086%_ _%x97084%_))) + (_%else9705397067%_))))))) (define ormap2 - (lambda (_%f96018%_ _%lst196019%_ _%lst296020%_) - (if (procedure? _%f96018%_) - (let ((_%f96024%_ _%f96018%_)) - (__ormap2 _%f96024%_ _%lst196019%_ _%lst296020%_)) + (lambda (_%f97019%_ _%lst197020%_ _%lst297021%_) + (if (procedure? _%f97019%_) + (let ((_%f97025%_ _%f97019%_)) + (__ormap2 _%f97025%_ _%lst197020%_ _%lst297021%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@413.15-413.16" + '"\"gerbil/runtime/util.ss\"@445.15-445.16" 'contract: 'procedure? 'value: - _%f96018%_) + _%f97019%_) '#!void)))) (define __ormap2 - (lambda (_%f95930%_ _%lst195931%_ _%lst295932%_) - (let ((_%f95935%_ _%f95930%_)) - (let _%lp95944%_ ((_%rest195946%_ _%lst195931%_) - (_%rest295947%_ _%lst295932%_)) - (let* ((_%rest19594895956%_ _%rest195946%_) - (_%else9595095964%_ (lambda () '#f)) - (_%K9595296006%_ - (lambda (_%rest195967%_ _%x195968%_) - (let* ((_%rest29596995977%_ _%rest295947%_) - (_%else9597195985%_ (lambda () '#f)) - (_%K9597395994%_ - (lambda (_%rest295988%_ _%x295989%_) - (let ((_%$e95991%_ + (lambda (_%f96931%_ _%lst196932%_ _%lst296933%_) + (let ((_%f96936%_ _%f96931%_)) + (let _%lp96945%_ ((_%rest196947%_ _%lst196932%_) + (_%rest296948%_ _%lst296933%_)) + (let* ((_%rest19694996957%_ _%rest196947%_) + (_%else9695196965%_ (lambda () '#f)) + (_%K9695397007%_ + (lambda (_%rest196968%_ _%x196969%_) + (let* ((_%rest29697096978%_ _%rest296948%_) + (_%else9697296986%_ (lambda () '#f)) + (_%K9697496995%_ + (lambda (_%rest296989%_ _%x296990%_) + (let ((_%$e96992%_ (let () (declare (not safe)) - (_%f95935%_ - _%x195968%_ - _%x295989%_)))) - (if _%$e95991%_ - _%$e95991%_ - (_%lp95944%_ - _%rest195967%_ - _%rest295988%_)))))) - (if (pair? _%rest29596995977%_) - (let ((_%hd9597495997%_ + (_%f96936%_ + _%x196969%_ + _%x296990%_)))) + (if _%$e96992%_ + _%$e96992%_ + (_%lp96945%_ + _%rest196968%_ + _%rest296989%_)))))) + (if (pair? _%rest29697096978%_) + (let ((_%hd9697596998%_ (let () (declare (not safe)) - (##car _%rest29596995977%_))) - (_%tl9597595999%_ + (##car _%rest29697096978%_))) + (_%tl9697697000%_ (let () (declare (not safe)) - (##cdr _%rest29596995977%_)))) - (let* ((_%x296002%_ _%hd9597495997%_) - (_%rest296004%_ _%tl9597595999%_)) - (_%K9597395994%_ _%rest296004%_ _%x296002%_))) - (_%else9597195985%_)))))) - (if (pair? _%rest19594895956%_) - (let ((_%hd9595396009%_ + (##cdr _%rest29697096978%_)))) + (let* ((_%x297003%_ _%hd9697596998%_) + (_%rest297005%_ _%tl9697697000%_)) + (_%K9697496995%_ _%rest297005%_ _%x297003%_))) + (_%else9697296986%_)))))) + (if (pair? _%rest19694996957%_) + (let ((_%hd9695497010%_ (let () (declare (not safe)) - (##car _%rest19594895956%_))) - (_%tl9595496011%_ + (##car _%rest19694996957%_))) + (_%tl9695597012%_ (let () (declare (not safe)) - (##cdr _%rest19594895956%_)))) - (let* ((_%x196014%_ _%hd9595396009%_) - (_%rest196016%_ _%tl9595496011%_)) - (_%K9595296006%_ _%rest196016%_ _%x196014%_))) - (_%else9595095964%_))))))) + (##cdr _%rest19694996957%_)))) + (let* ((_%x197015%_ _%hd9695497010%_) + (_%rest197017%_ _%tl9695597012%_)) + (_%K9695397007%_ _%rest197017%_ _%x197015%_))) + (_%else9695196965%_))))))) (define ormap - (lambda _g99096_ - (let ((_g99097_ (let () (declare (not safe)) (##length _g99096_)))) - (cond ((let () (declare (not safe)) (##fx= _g99097_ 2)) - (apply ormap1 _g99096_)) - ((let () (declare (not safe)) (##fx= _g99097_ 3)) - (apply ormap2 _g99096_)) - ((let () (declare (not safe)) (##fx>= _g99097_ 3)) - (apply ormap* _g99096_)) + (lambda _g100126_ + (let ((_g100127_ (let () (declare (not safe)) (##length _g100126_)))) + (cond ((let () (declare (not safe)) (##fx= _g100127_ 2)) + (apply ormap1 _g100126_)) + ((let () (declare (not safe)) (##fx= _g100127_ 3)) + (apply ormap2 _g100126_)) + ((let () (declare (not safe)) (##fx>= _g100127_ 3)) + (apply ormap* _g100126_)) (else (##raise-wrong-number-of-arguments-exception ormap - _g99096_)))))) + _g100126_)))))) (define ormap* - (lambda (_%f95903%_ . _%rest95904%_) - (if (procedure? _%f95903%_) - (let ((_%f95908%_ _%f95903%_)) + (lambda (_%f96904%_ . _%rest96905%_) + (if (procedure? _%f96904%_) + (let ((_%f96909%_ _%f96904%_)) (declare (not safe)) - (##apply __ormap* _%f95908%_ _%rest95904%_)) + (##apply __ormap* _%f96909%_ _%rest96905%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@431.15-431.16" + '"\"gerbil/runtime/util.ss\"@463.15-463.16" 'contract: 'procedure? 'value: - _%f95903%_) + _%f96904%_) '#!void)))) (define __ormap* - (lambda (_%f95883%_ . _%rest95884%_) - (let ((_%f95887%_ _%f95883%_)) - (let _%recur95896%_ ((_%rest95898%_ _%rest95884%_)) - (if (__andmap1 pair? _%rest95898%_) - (let ((_%$e95900%_ - (let ((__tmp99098 (map car _%rest95898%_))) + (lambda (_%f96884%_ . _%rest96885%_) + (let ((_%f96888%_ _%f96884%_)) + (let _%recur96897%_ ((_%rest96899%_ _%rest96885%_)) + (if (__andmap1 pair? _%rest96899%_) + (let ((_%$e96901%_ + (let ((__tmp100128 (map car _%rest96899%_))) (declare (not safe)) - (##apply _%f95887%_ __tmp99098)))) - (if _%$e95900%_ - _%$e95900%_ - (_%recur95896%_ (map cdr _%rest95898%_)))) + (##apply _%f96888%_ __tmp100128)))) + (if _%$e96901%_ + _%$e96901%_ + (_%recur96897%_ (map cdr _%rest96899%_)))) '#f))))) (define filter-map1 - (lambda (_%f95868%_ _%lst95869%_) - (if (procedure? _%f95868%_) - (let ((_%f95873%_ _%f95868%_)) - (__filter-map1 _%f95873%_ _%lst95869%_)) + (lambda (_%f96869%_ _%lst96870%_) + (if (procedure? _%f96869%_) + (let ((_%f96874%_ _%f96869%_)) + (__filter-map1 _%f96874%_ _%lst96870%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@438.20-438.21" + '"\"gerbil/runtime/util.ss\"@470.20-470.21" 'contract: 'procedure? 'value: - _%f95868%_) + _%f96869%_) '#!void)))) (define __filter-map1 - (lambda (_%f95811%_ _%lst95812%_) - (let ((_%f95815%_ _%f95811%_)) - (let _%recur95824%_ ((_%rest95826%_ _%lst95812%_)) - (let* ((_%rest9582895836%_ _%rest95826%_) - (_%else9583095844%_ (lambda () '())) - (_%K9583295856%_ - (lambda (_%rest95847%_ _%x95848%_) - (let ((_%$e95850%_ + (lambda (_%f96812%_ _%lst96813%_) + (let ((_%f96816%_ _%f96812%_)) + (let _%recur96825%_ ((_%rest96827%_ _%lst96813%_)) + (let* ((_%rest9682996837%_ _%rest96827%_) + (_%else9683196845%_ (lambda () '())) + (_%K9683396857%_ + (lambda (_%rest96848%_ _%x96849%_) + (let ((_%$e96851%_ (let () (declare (not safe)) - (_%f95815%_ _%x95848%_)))) - (if _%$e95850%_ - ((lambda (_%r95853%_) - (cons _%r95853%_ - (_%recur95824%_ _%rest95847%_))) - _%$e95850%_) - (_%recur95824%_ _%rest95847%_)))))) - (if (pair? _%rest9582895836%_) - (let ((_%hd9583395859%_ + (_%f96816%_ _%x96849%_)))) + (if _%$e96851%_ + ((lambda (_%r96854%_) + (cons _%r96854%_ + (_%recur96825%_ _%rest96848%_))) + _%$e96851%_) + (_%recur96825%_ _%rest96848%_)))))) + (if (pair? _%rest9682996837%_) + (let ((_%hd9683496860%_ (let () (declare (not safe)) - (##car _%rest9582895836%_))) - (_%tl9583495861%_ + (##car _%rest9682996837%_))) + (_%tl9683596862%_ (let () (declare (not safe)) - (##cdr _%rest9582895836%_)))) - (let* ((_%x95864%_ _%hd9583395859%_) - (_%rest95866%_ _%tl9583495861%_)) - (_%K9583295856%_ _%rest95866%_ _%x95864%_))) - (_%else9583095844%_))))))) + (##cdr _%rest9682996837%_)))) + (let* ((_%x96865%_ _%hd9683496860%_) + (_%rest96867%_ _%tl9683596862%_)) + (_%K9683396857%_ _%rest96867%_ _%x96865%_))) + (_%else9683196845%_))))))) (define filter-map2 - (lambda (_%f95795%_ _%lst195796%_ _%lst295797%_) - (if (procedure? _%f95795%_) - (let ((_%f95801%_ _%f95795%_)) - (__filter-map2 _%f95801%_ _%lst195796%_ _%lst295797%_)) + (lambda (_%f96796%_ _%lst196797%_ _%lst296798%_) + (if (procedure? _%f96796%_) + (let ((_%f96802%_ _%f96796%_)) + (__filter-map2 _%f96802%_ _%lst196797%_ _%lst296798%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@449.20-449.21" + '"\"gerbil/runtime/util.ss\"@481.20-481.21" 'contract: 'procedure? 'value: - _%f95795%_) + _%f96796%_) '#!void)))) (define __filter-map2 - (lambda (_%f95703%_ _%lst195704%_ _%lst295705%_) - (let ((_%f95708%_ _%f95703%_)) - (let _%recur95717%_ ((_%rest195719%_ _%lst195704%_) - (_%rest295720%_ _%lst295705%_)) - (let* ((_%rest19572295730%_ _%rest195719%_) - (_%else9572495738%_ (lambda () '())) - (_%K9572695783%_ - (lambda (_%rest195741%_ _%x195742%_) - (let* ((_%rest29574395751%_ _%rest295720%_) - (_%else9574595759%_ (lambda () '())) - (_%K9574795771%_ - (lambda (_%rest295762%_ _%x295763%_) - (let ((_%$e95765%_ + (lambda (_%f96704%_ _%lst196705%_ _%lst296706%_) + (let ((_%f96709%_ _%f96704%_)) + (let _%recur96718%_ ((_%rest196720%_ _%lst196705%_) + (_%rest296721%_ _%lst296706%_)) + (let* ((_%rest19672396731%_ _%rest196720%_) + (_%else9672596739%_ (lambda () '())) + (_%K9672796784%_ + (lambda (_%rest196742%_ _%x196743%_) + (let* ((_%rest29674496752%_ _%rest296721%_) + (_%else9674696760%_ (lambda () '())) + (_%K9674896772%_ + (lambda (_%rest296763%_ _%x296764%_) + (let ((_%$e96766%_ (let () (declare (not safe)) - (_%f95708%_ - _%x195742%_ - _%x295763%_)))) - (if _%$e95765%_ - ((lambda (_%r95768%_) - (cons _%r95768%_ - (_%recur95717%_ - _%rest195741%_ - _%rest295762%_))) - _%$e95765%_) - (_%recur95717%_ - _%rest195741%_ - _%rest295762%_)))))) - (if (pair? _%rest29574395751%_) - (let ((_%hd9574895774%_ + (_%f96709%_ + _%x196743%_ + _%x296764%_)))) + (if _%$e96766%_ + ((lambda (_%r96769%_) + (cons _%r96769%_ + (_%recur96718%_ + _%rest196742%_ + _%rest296763%_))) + _%$e96766%_) + (_%recur96718%_ + _%rest196742%_ + _%rest296763%_)))))) + (if (pair? _%rest29674496752%_) + (let ((_%hd9674996775%_ (let () (declare (not safe)) - (##car _%rest29574395751%_))) - (_%tl9574995776%_ + (##car _%rest29674496752%_))) + (_%tl9675096777%_ (let () (declare (not safe)) - (##cdr _%rest29574395751%_)))) - (let* ((_%x295779%_ _%hd9574895774%_) - (_%rest295781%_ _%tl9574995776%_)) - (_%K9574795771%_ _%rest295781%_ _%x295779%_))) - (_%else9574595759%_)))))) - (if (pair? _%rest19572295730%_) - (let ((_%hd9572795786%_ + (##cdr _%rest29674496752%_)))) + (let* ((_%x296780%_ _%hd9674996775%_) + (_%rest296782%_ _%tl9675096777%_)) + (_%K9674896772%_ _%rest296782%_ _%x296780%_))) + (_%else9674696760%_)))))) + (if (pair? _%rest19672396731%_) + (let ((_%hd9672896787%_ (let () (declare (not safe)) - (##car _%rest19572295730%_))) - (_%tl9572895788%_ + (##car _%rest19672396731%_))) + (_%tl9672996789%_ (let () (declare (not safe)) - (##cdr _%rest19572295730%_)))) - (let* ((_%x195791%_ _%hd9572795786%_) - (_%rest195793%_ _%tl9572895788%_)) - (_%K9572695783%_ _%rest195793%_ _%x195791%_))) - (_%else9572495738%_))))))) + (##cdr _%rest19672396731%_)))) + (let* ((_%x196792%_ _%hd9672896787%_) + (_%rest196794%_ _%tl9672996789%_)) + (_%K9672796784%_ _%rest196794%_ _%x196792%_))) + (_%else9672596739%_))))))) (define filter-map - (lambda _g99099_ - (let ((_g99100_ (let () (declare (not safe)) (##length _g99099_)))) - (cond ((let () (declare (not safe)) (##fx= _g99100_ 2)) - (apply filter-map1 _g99099_)) - ((let () (declare (not safe)) (##fx= _g99100_ 3)) - (apply filter-map2 _g99099_)) - ((let () (declare (not safe)) (##fx>= _g99100_ 3)) - (apply filter-map* _g99099_)) + (lambda _g100129_ + (let ((_g100130_ (let () (declare (not safe)) (##length _g100129_)))) + (cond ((let () (declare (not safe)) (##fx= _g100130_ 2)) + (apply filter-map1 _g100129_)) + ((let () (declare (not safe)) (##fx= _g100130_ 3)) + (apply filter-map2 _g100129_)) + ((let () (declare (not safe)) (##fx>= _g100130_ 3)) + (apply filter-map* _g100129_)) (else (##raise-wrong-number-of-arguments-exception filter-map - _g99099_)))))) + _g100129_)))))) (define filter-map* - (lambda (_%f95676%_ . _%rest95677%_) - (if (procedure? _%f95676%_) - (let ((_%f95681%_ _%f95676%_)) + (lambda (_%f96677%_ . _%rest96678%_) + (if (procedure? _%f96677%_) + (let ((_%f96682%_ _%f96677%_)) (declare (not safe)) - (##apply __filter-map* _%f95681%_ _%rest95677%_)) + (##apply __filter-map* _%f96682%_ _%rest96678%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@471.20-471.21" + '"\"gerbil/runtime/util.ss\"@503.20-503.21" 'contract: 'procedure? 'value: - _%f95676%_) + _%f96677%_) '#!void)))) (define __filter-map* - (lambda (_%f95652%_ . _%rest95653%_) - (let ((_%f95656%_ _%f95652%_)) - (let _%recur95665%_ ((_%rest95667%_ _%rest95653%_)) - (if (__andmap1 pair? _%rest95667%_) - (let ((_%$e95670%_ - (let ((__tmp99101 (map car _%rest95667%_))) + (lambda (_%f96653%_ . _%rest96654%_) + (let ((_%f96657%_ _%f96653%_)) + (let _%recur96666%_ ((_%rest96668%_ _%rest96654%_)) + (if (__andmap1 pair? _%rest96668%_) + (let ((_%$e96671%_ + (let ((__tmp100131 (map car _%rest96668%_))) (declare (not safe)) - (##apply _%f95656%_ __tmp99101)))) - (if _%$e95670%_ - ((lambda (_%r95673%_) - (cons _%r95673%_ - (_%recur95665%_ (map cdr _%rest95667%_)))) - _%$e95670%_) - (_%recur95665%_ (map cdr _%rest95667%_)))) + (##apply _%f96657%_ __tmp100131)))) + (if _%$e96671%_ + ((lambda (_%r96674%_) + (cons _%r96674%_ + (_%recur96666%_ (map cdr _%rest96668%_)))) + _%$e96671%_) + (_%recur96666%_ (map cdr _%rest96668%_)))) '()))))) (define agetq__% - (lambda (_%key95628%_ _%lst95630%_ _%default95632%_) - (let ((_%$e95635%_ - (if (pair? _%lst95630%_) (assq _%key95628%_ _%lst95630%_) '#f))) - (if _%$e95635%_ - (cdr _%$e95635%_) - (if (procedure? _%default95632%_) - (_%default95632%_ _%key95628%_) - _%default95632%_))))) + (lambda (_%key96629%_ _%lst96631%_ _%default96633%_) + (let ((_%$e96636%_ + (if (pair? _%lst96631%_) (assq _%key96629%_ _%lst96631%_) '#f))) + (if _%$e96636%_ + (cdr _%$e96636%_) + (if (procedure? _%default96633%_) + (_%default96633%_ _%key96629%_) + _%default96633%_))))) (define agetq__0 - (lambda (_%key95643%_ _%lst95644%_) - (let ((_%default95646%_ '#f)) - (agetq__% _%key95643%_ _%lst95644%_ _%default95646%_)))) + (lambda (_%key96644%_ _%lst96645%_) + (let ((_%default96647%_ '#f)) + (agetq__% _%key96644%_ _%lst96645%_ _%default96647%_)))) (define agetq - (lambda _g99102_ - (let ((_g99103_ (let () (declare (not safe)) (##length _g99102_)))) - (cond ((let () (declare (not safe)) (##fx= _g99103_ 2)) - (apply agetq__0 _g99102_)) - ((let () (declare (not safe)) (##fx= _g99103_ 3)) - (apply agetq__% _g99102_)) + (lambda _g100132_ + (let ((_g100133_ (let () (declare (not safe)) (##length _g100132_)))) + (cond ((let () (declare (not safe)) (##fx= _g100133_ 2)) + (apply agetq__0 _g100132_)) + ((let () (declare (not safe)) (##fx= _g100133_ 3)) + (apply agetq__% _g100132_)) (else (##raise-wrong-number-of-arguments-exception agetq - _g99102_)))))) + _g100132_)))))) (define agetv__% - (lambda (_%key95603%_ _%lst95605%_ _%default95607%_) - (let ((_%$e95610%_ - (if (pair? _%lst95605%_) (assv _%key95603%_ _%lst95605%_) '#f))) - (if _%$e95610%_ - (cdr _%$e95610%_) - (if (procedure? _%default95607%_) - (_%default95607%_ _%key95603%_) - _%default95607%_))))) + (lambda (_%key96604%_ _%lst96606%_ _%default96608%_) + (let ((_%$e96611%_ + (if (pair? _%lst96606%_) (assv _%key96604%_ _%lst96606%_) '#f))) + (if _%$e96611%_ + (cdr _%$e96611%_) + (if (procedure? _%default96608%_) + (_%default96608%_ _%key96604%_) + _%default96608%_))))) (define agetv__0 - (lambda (_%key95618%_ _%lst95619%_) - (let ((_%default95621%_ '#f)) - (agetv__% _%key95618%_ _%lst95619%_ _%default95621%_)))) + (lambda (_%key96619%_ _%lst96620%_) + (let ((_%default96622%_ '#f)) + (agetv__% _%key96619%_ _%lst96620%_ _%default96622%_)))) (define agetv - (lambda _g99104_ - (let ((_g99105_ (let () (declare (not safe)) (##length _g99104_)))) - (cond ((let () (declare (not safe)) (##fx= _g99105_ 2)) - (apply agetv__0 _g99104_)) - ((let () (declare (not safe)) (##fx= _g99105_ 3)) - (apply agetv__% _g99104_)) + (lambda _g100134_ + (let ((_g100135_ (let () (declare (not safe)) (##length _g100134_)))) + (cond ((let () (declare (not safe)) (##fx= _g100135_ 2)) + (apply agetv__0 _g100134_)) + ((let () (declare (not safe)) (##fx= _g100135_ 3)) + (apply agetv__% _g100134_)) (else (##raise-wrong-number-of-arguments-exception agetv - _g99104_)))))) + _g100134_)))))) (define aget__% - (lambda (_%key95578%_ _%lst95580%_ _%default95582%_) - (let ((_%$e95585%_ - (if (pair? _%lst95580%_) - (assoc _%key95578%_ _%lst95580%_) + (lambda (_%key96579%_ _%lst96581%_ _%default96583%_) + (let ((_%$e96586%_ + (if (pair? _%lst96581%_) + (assoc _%key96579%_ _%lst96581%_) '#f))) - (if _%$e95585%_ - (cdr _%$e95585%_) - (if (procedure? _%default95582%_) - (_%default95582%_ _%key95578%_) - _%default95582%_))))) + (if _%$e96586%_ + (cdr _%$e96586%_) + (if (procedure? _%default96583%_) + (_%default96583%_ _%key96579%_) + _%default96583%_))))) (define aget__0 - (lambda (_%key95593%_ _%lst95594%_) - (let ((_%default95596%_ '#f)) - (aget__% _%key95593%_ _%lst95594%_ _%default95596%_)))) + (lambda (_%key96594%_ _%lst96595%_) + (let ((_%default96597%_ '#f)) + (aget__% _%key96594%_ _%lst96595%_ _%default96597%_)))) (define aget - (lambda _g99106_ - (let ((_g99107_ (let () (declare (not safe)) (##length _g99106_)))) - (cond ((let () (declare (not safe)) (##fx= _g99107_ 2)) - (apply aget__0 _g99106_)) - ((let () (declare (not safe)) (##fx= _g99107_ 3)) - (apply aget__% _g99106_)) + (lambda _g100136_ + (let ((_g100137_ (let () (declare (not safe)) (##length _g100136_)))) + (cond ((let () (declare (not safe)) (##fx= _g100137_ 2)) + (apply aget__0 _g100136_)) + ((let () (declare (not safe)) (##fx= _g100137_ 3)) + (apply aget__% _g100136_)) (else (##raise-wrong-number-of-arguments-exception aget - _g99106_)))))) + _g100136_)))))) (define assgetq agetq) (define assgetv agetv) (define assget aget) (define pgetq__% - (lambda (_%key95507%_ _%lst95509%_ _%default95511%_) - (let _%lp95514%_ ((_%rest95517%_ _%lst95509%_)) - (let* ((_%rest9551995529%_ _%rest95517%_) - (_%else9552195537%_ + (lambda (_%key96508%_ _%lst96510%_ _%default96512%_) + (let _%lp96515%_ ((_%rest96518%_ _%lst96510%_)) + (let* ((_%rest9652096530%_ _%rest96518%_) + (_%else9652296538%_ (lambda () - (if (procedure? _%default95511%_) - (_%default95511%_ _%key95507%_) - _%default95511%_))) - (_%K9552395546%_ - (lambda (_%rest95540%_ _%v95541%_ _%k95543%_) - (if (eq? _%k95543%_ _%key95507%_) - _%v95541%_ - (_%lp95514%_ _%rest95540%_))))) - (if (pair? _%rest9551995529%_) - (let ((_%hd9552495549%_ + (if (procedure? _%default96512%_) + (_%default96512%_ _%key96508%_) + _%default96512%_))) + (_%K9652496547%_ + (lambda (_%rest96541%_ _%v96542%_ _%k96544%_) + (if (eq? _%k96544%_ _%key96508%_) + _%v96542%_ + (_%lp96515%_ _%rest96541%_))))) + (if (pair? _%rest9652096530%_) + (let ((_%hd9652596550%_ (let () (declare (not safe)) - (##car _%rest9551995529%_))) - (_%tl9552595551%_ + (##car _%rest9652096530%_))) + (_%tl9652696552%_ (let () (declare (not safe)) - (##cdr _%rest9551995529%_)))) - (let ((_%k95554%_ _%hd9552495549%_)) - (if (pair? _%tl9552595551%_) - (let ((_%hd9552695556%_ + (##cdr _%rest9652096530%_)))) + (let ((_%k96555%_ _%hd9652596550%_)) + (if (pair? _%tl9652696552%_) + (let ((_%hd9652796557%_ (let () (declare (not safe)) - (##car _%tl9552595551%_))) - (_%tl9552795558%_ + (##car _%tl9652696552%_))) + (_%tl9652896559%_ (let () (declare (not safe)) - (##cdr _%tl9552595551%_)))) - (let* ((_%v95561%_ _%hd9552695556%_) - (_%rest95563%_ _%tl9552795558%_)) - (_%K9552395546%_ - _%rest95563%_ - _%v95561%_ - _%k95554%_))) - (_%else9552195537%_)))) - (_%else9552195537%_)))))) + (##cdr _%tl9652696552%_)))) + (let* ((_%v96562%_ _%hd9652796557%_) + (_%rest96564%_ _%tl9652896559%_)) + (_%K9652496547%_ + _%rest96564%_ + _%v96562%_ + _%k96555%_))) + (_%else9652296538%_)))) + (_%else9652296538%_)))))) (define pgetq__0 - (lambda (_%key95568%_ _%lst95569%_) - (let ((_%default95571%_ '#f)) - (pgetq__% _%key95568%_ _%lst95569%_ _%default95571%_)))) + (lambda (_%key96569%_ _%lst96570%_) + (let ((_%default96572%_ '#f)) + (pgetq__% _%key96569%_ _%lst96570%_ _%default96572%_)))) (define pgetq - (lambda _g99108_ - (let ((_g99109_ (let () (declare (not safe)) (##length _g99108_)))) - (cond ((let () (declare (not safe)) (##fx= _g99109_ 2)) - (apply pgetq__0 _g99108_)) - ((let () (declare (not safe)) (##fx= _g99109_ 3)) - (apply pgetq__% _g99108_)) + (lambda _g100138_ + (let ((_g100139_ (let () (declare (not safe)) (##length _g100138_)))) + (cond ((let () (declare (not safe)) (##fx= _g100139_ 2)) + (apply pgetq__0 _g100138_)) + ((let () (declare (not safe)) (##fx= _g100139_ 3)) + (apply pgetq__% _g100138_)) (else (##raise-wrong-number-of-arguments-exception pgetq - _g99108_)))))) + _g100138_)))))) (define pgetv__% - (lambda (_%key95436%_ _%lst95438%_ _%default95440%_) - (let _%lp95443%_ ((_%rest95446%_ _%lst95438%_)) - (let* ((_%rest9544895458%_ _%rest95446%_) - (_%else9545095466%_ + (lambda (_%key96437%_ _%lst96439%_ _%default96441%_) + (let _%lp96444%_ ((_%rest96447%_ _%lst96439%_)) + (let* ((_%rest9644996459%_ _%rest96447%_) + (_%else9645196467%_ (lambda () - (if (procedure? _%default95440%_) - (_%default95440%_ _%key95436%_) - _%default95440%_))) - (_%K9545295475%_ - (lambda (_%rest95469%_ _%v95470%_ _%k95472%_) - (if (eqv? _%k95472%_ _%key95436%_) - _%v95470%_ - (_%lp95443%_ _%rest95469%_))))) - (if (pair? _%rest9544895458%_) - (let ((_%hd9545395478%_ + (if (procedure? _%default96441%_) + (_%default96441%_ _%key96437%_) + _%default96441%_))) + (_%K9645396476%_ + (lambda (_%rest96470%_ _%v96471%_ _%k96473%_) + (if (eqv? _%k96473%_ _%key96437%_) + _%v96471%_ + (_%lp96444%_ _%rest96470%_))))) + (if (pair? _%rest9644996459%_) + (let ((_%hd9645496479%_ (let () (declare (not safe)) - (##car _%rest9544895458%_))) - (_%tl9545495480%_ + (##car _%rest9644996459%_))) + (_%tl9645596481%_ (let () (declare (not safe)) - (##cdr _%rest9544895458%_)))) - (let ((_%k95483%_ _%hd9545395478%_)) - (if (pair? _%tl9545495480%_) - (let ((_%hd9545595485%_ + (##cdr _%rest9644996459%_)))) + (let ((_%k96484%_ _%hd9645496479%_)) + (if (pair? _%tl9645596481%_) + (let ((_%hd9645696486%_ (let () (declare (not safe)) - (##car _%tl9545495480%_))) - (_%tl9545695487%_ + (##car _%tl9645596481%_))) + (_%tl9645796488%_ (let () (declare (not safe)) - (##cdr _%tl9545495480%_)))) - (let* ((_%v95490%_ _%hd9545595485%_) - (_%rest95492%_ _%tl9545695487%_)) - (_%K9545295475%_ - _%rest95492%_ - _%v95490%_ - _%k95483%_))) - (_%else9545095466%_)))) - (_%else9545095466%_)))))) + (##cdr _%tl9645596481%_)))) + (let* ((_%v96491%_ _%hd9645696486%_) + (_%rest96493%_ _%tl9645796488%_)) + (_%K9645396476%_ + _%rest96493%_ + _%v96491%_ + _%k96484%_))) + (_%else9645196467%_)))) + (_%else9645196467%_)))))) (define pgetv__0 - (lambda (_%key95497%_ _%lst95498%_) - (let ((_%default95500%_ '#f)) - (pgetv__% _%key95497%_ _%lst95498%_ _%default95500%_)))) + (lambda (_%key96498%_ _%lst96499%_) + (let ((_%default96501%_ '#f)) + (pgetv__% _%key96498%_ _%lst96499%_ _%default96501%_)))) (define pgetv - (lambda _g99110_ - (let ((_g99111_ (let () (declare (not safe)) (##length _g99110_)))) - (cond ((let () (declare (not safe)) (##fx= _g99111_ 2)) - (apply pgetv__0 _g99110_)) - ((let () (declare (not safe)) (##fx= _g99111_ 3)) - (apply pgetv__% _g99110_)) + (lambda _g100140_ + (let ((_g100141_ (let () (declare (not safe)) (##length _g100140_)))) + (cond ((let () (declare (not safe)) (##fx= _g100141_ 2)) + (apply pgetv__0 _g100140_)) + ((let () (declare (not safe)) (##fx= _g100141_ 3)) + (apply pgetv__% _g100140_)) (else (##raise-wrong-number-of-arguments-exception pgetv - _g99110_)))))) + _g100140_)))))) (define pget__% - (lambda (_%key95365%_ _%lst95367%_ _%default95369%_) - (let _%lp95372%_ ((_%rest95375%_ _%lst95367%_)) - (let* ((_%rest9537795387%_ _%rest95375%_) - (_%else9537995395%_ + (lambda (_%key96366%_ _%lst96368%_ _%default96370%_) + (let _%lp96373%_ ((_%rest96376%_ _%lst96368%_)) + (let* ((_%rest9637896388%_ _%rest96376%_) + (_%else9638096396%_ (lambda () - (if (procedure? _%default95369%_) - (_%default95369%_ _%key95365%_) - _%default95369%_))) - (_%K9538195404%_ - (lambda (_%rest95398%_ _%v95399%_ _%k95401%_) - (if (equal? _%k95401%_ _%key95365%_) - _%v95399%_ - (_%lp95372%_ _%rest95398%_))))) - (if (pair? _%rest9537795387%_) - (let ((_%hd9538295407%_ + (if (procedure? _%default96370%_) + (_%default96370%_ _%key96366%_) + _%default96370%_))) + (_%K9638296405%_ + (lambda (_%rest96399%_ _%v96400%_ _%k96402%_) + (if (equal? _%k96402%_ _%key96366%_) + _%v96400%_ + (_%lp96373%_ _%rest96399%_))))) + (if (pair? _%rest9637896388%_) + (let ((_%hd9638396408%_ (let () (declare (not safe)) - (##car _%rest9537795387%_))) - (_%tl9538395409%_ + (##car _%rest9637896388%_))) + (_%tl9638496410%_ (let () (declare (not safe)) - (##cdr _%rest9537795387%_)))) - (let ((_%k95412%_ _%hd9538295407%_)) - (if (pair? _%tl9538395409%_) - (let ((_%hd9538495414%_ + (##cdr _%rest9637896388%_)))) + (let ((_%k96413%_ _%hd9638396408%_)) + (if (pair? _%tl9638496410%_) + (let ((_%hd9638596415%_ (let () (declare (not safe)) - (##car _%tl9538395409%_))) - (_%tl9538595416%_ + (##car _%tl9638496410%_))) + (_%tl9638696417%_ (let () (declare (not safe)) - (##cdr _%tl9538395409%_)))) - (let* ((_%v95419%_ _%hd9538495414%_) - (_%rest95421%_ _%tl9538595416%_)) - (_%K9538195404%_ - _%rest95421%_ - _%v95419%_ - _%k95412%_))) - (_%else9537995395%_)))) - (_%else9537995395%_)))))) + (##cdr _%tl9638496410%_)))) + (let* ((_%v96420%_ _%hd9638596415%_) + (_%rest96422%_ _%tl9638696417%_)) + (_%K9638296405%_ + _%rest96422%_ + _%v96420%_ + _%k96413%_))) + (_%else9638096396%_)))) + (_%else9638096396%_)))))) (define pget__0 - (lambda (_%key95426%_ _%lst95427%_) - (let ((_%default95429%_ '#f)) - (pget__% _%key95426%_ _%lst95427%_ _%default95429%_)))) + (lambda (_%key96427%_ _%lst96428%_) + (let ((_%default96430%_ '#f)) + (pget__% _%key96427%_ _%lst96428%_ _%default96430%_)))) (define pget - (lambda _g99112_ - (let ((_g99113_ (let () (declare (not safe)) (##length _g99112_)))) - (cond ((let () (declare (not safe)) (##fx= _g99113_ 2)) - (apply pget__0 _g99112_)) - ((let () (declare (not safe)) (##fx= _g99113_ 3)) - (apply pget__% _g99112_)) + (lambda _g100142_ + (let ((_g100143_ (let () (declare (not safe)) (##length _g100142_)))) + (cond ((let () (declare (not safe)) (##fx= _g100143_ 2)) + (apply pget__0 _g100142_)) + ((let () (declare (not safe)) (##fx= _g100143_ 3)) + (apply pget__% _g100142_)) (else (##raise-wrong-number-of-arguments-exception pget - _g99112_)))))) + _g100142_)))))) (define find - (lambda (_%pred95349%_ _%lst95350%_) - (if (procedure? _%pred95349%_) - (let ((_%pred95354%_ _%pred95349%_)) - (__find _%pred95354%_ _%lst95350%_)) + (lambda (_%pred96350%_ _%lst96351%_) + (if (procedure? _%pred96350%_) + (let ((_%pred96355%_ _%pred96350%_)) + (__find _%pred96355%_ _%lst96351%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@517.13-517.17" + '"\"gerbil/runtime/util.ss\"@549.13-549.17" 'contract: 'procedure? 'value: - _%pred95349%_) + _%pred96350%_) '#!void)))) (define __find - (lambda (_%pred95332%_ _%lst95333%_) - (let* ((_%pred95336%_ _%pred95332%_) - (_%$e95345%_ (__memf _%pred95336%_ _%lst95333%_))) - (if _%$e95345%_ - (let () (declare (not safe)) (##car _%$e95345%_)) + (lambda (_%pred96333%_ _%lst96334%_) + (let* ((_%pred96337%_ _%pred96333%_) + (_%$e96346%_ (__memf _%pred96337%_ _%lst96334%_))) + (if _%$e96346%_ + (let () (declare (not safe)) (##car _%$e96346%_)) '#f)))) (define memf - (lambda (_%proc95317%_ _%lst95318%_) - (if (procedure? _%proc95317%_) - (let ((_%proc95322%_ _%proc95317%_)) - (__memf _%proc95322%_ _%lst95318%_)) + (lambda (_%proc96318%_ _%lst96319%_) + (if (procedure? _%proc96318%_) + (let ((_%proc96323%_ _%proc96318%_)) + (__memf _%proc96323%_ _%lst96319%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@522.13-522.17" + '"\"gerbil/runtime/util.ss\"@554.13-554.17" 'contract: 'procedure? 'value: - _%proc95317%_) + _%proc96318%_) '#!void)))) (define __memf - (lambda (_%proc95267%_ _%lst95268%_) - (let ((_%proc95271%_ _%proc95267%_)) - (let _%lp95280%_ ((_%rest95282%_ _%lst95268%_)) - (let* ((_%rest9528395291%_ _%rest95282%_) - (_%else9528595299%_ (lambda () '#f)) - (_%K9528795305%_ - (lambda (_%tl95302%_ _%hd95303%_) + (lambda (_%proc96268%_ _%lst96269%_) + (let ((_%proc96272%_ _%proc96268%_)) + (let _%lp96281%_ ((_%rest96283%_ _%lst96269%_)) + (let* ((_%rest9628496292%_ _%rest96283%_) + (_%else9628696300%_ (lambda () '#f)) + (_%K9628896306%_ + (lambda (_%tl96303%_ _%hd96304%_) (if (let () (declare (not safe)) - (_%proc95271%_ _%hd95303%_)) - _%rest95282%_ - (_%lp95280%_ _%tl95302%_))))) - (if (pair? _%rest9528395291%_) - (let ((_%hd9528895308%_ + (_%proc96272%_ _%hd96304%_)) + _%rest96283%_ + (_%lp96281%_ _%tl96303%_))))) + (if (pair? _%rest9628496292%_) + (let ((_%hd9628996309%_ (let () (declare (not safe)) - (##car _%rest9528395291%_))) - (_%tl9528995310%_ + (##car _%rest9628496292%_))) + (_%tl9629096311%_ (let () (declare (not safe)) - (##cdr _%rest9528395291%_)))) - (let* ((_%hd95313%_ _%hd9528895308%_) - (_%tl95315%_ _%tl9528995310%_)) - (_%K9528795305%_ _%tl95315%_ _%hd95313%_))) - (_%else9528595299%_))))))) + (##cdr _%rest9628496292%_)))) + (let* ((_%hd96314%_ _%hd9628996309%_) + (_%tl96316%_ _%tl9629096311%_)) + (_%K9628896306%_ _%tl96316%_ _%hd96314%_))) + (_%else9628696300%_))))))) (define remove1 - (lambda (_%el95220%_ _%lst95222%_) - (let _%lp95225%_ ((_%rest95228%_ _%lst95222%_) (_%r95230%_ '())) - (let* ((_%rest9523295240%_ _%rest95228%_) - (_%else9523495248%_ (lambda () _%lst95222%_)) - (_%K9523695255%_ - (lambda (_%rest95251%_ _%hd95252%_) - (if (equal? _%el95220%_ _%hd95252%_) - (__foldl1 cons _%rest95251%_ _%r95230%_) - (_%lp95225%_ - _%rest95251%_ - (cons _%hd95252%_ _%r95230%_)))))) - (if (pair? _%rest9523295240%_) - (let ((_%hd9523795258%_ + (lambda (_%el96221%_ _%lst96223%_) + (let _%lp96226%_ ((_%rest96229%_ _%lst96223%_) (_%r96231%_ '())) + (let* ((_%rest9623396241%_ _%rest96229%_) + (_%else9623596249%_ (lambda () _%lst96223%_)) + (_%K9623796256%_ + (lambda (_%rest96252%_ _%hd96253%_) + (if (equal? _%el96221%_ _%hd96253%_) + (__foldl1 cons _%rest96252%_ _%r96231%_) + (_%lp96226%_ + _%rest96252%_ + (cons _%hd96253%_ _%r96231%_)))))) + (if (pair? _%rest9623396241%_) + (let ((_%hd9623896259%_ (let () (declare (not safe)) - (##car _%rest9523295240%_))) - (_%tl9523895260%_ + (##car _%rest9623396241%_))) + (_%tl9623996261%_ (let () (declare (not safe)) - (##cdr _%rest9523295240%_)))) - (let* ((_%hd95263%_ _%hd9523795258%_) - (_%rest95265%_ _%tl9523895260%_)) - (_%K9523695255%_ _%rest95265%_ _%hd95263%_))) - (_%else9523495248%_)))))) + (##cdr _%rest9623396241%_)))) + (let* ((_%hd96264%_ _%hd9623896259%_) + (_%rest96266%_ _%tl9623996261%_)) + (_%K9623796256%_ _%rest96266%_ _%hd96264%_))) + (_%else9623596249%_)))))) (define remv1 - (lambda (_%el95173%_ _%lst95175%_) - (let _%lp95178%_ ((_%rest95181%_ _%lst95175%_) (_%r95183%_ '())) - (let* ((_%rest9518595193%_ _%rest95181%_) - (_%else9518795201%_ (lambda () _%lst95175%_)) - (_%K9518995208%_ - (lambda (_%rest95204%_ _%hd95205%_) - (if (eqv? _%el95173%_ _%hd95205%_) - (__foldl1 cons _%rest95204%_ _%r95183%_) - (_%lp95178%_ - _%rest95204%_ - (cons _%hd95205%_ _%r95183%_)))))) - (if (pair? _%rest9518595193%_) - (let ((_%hd9519095211%_ + (lambda (_%el96174%_ _%lst96176%_) + (let _%lp96179%_ ((_%rest96182%_ _%lst96176%_) (_%r96184%_ '())) + (let* ((_%rest9618696194%_ _%rest96182%_) + (_%else9618896202%_ (lambda () _%lst96176%_)) + (_%K9619096209%_ + (lambda (_%rest96205%_ _%hd96206%_) + (if (eqv? _%el96174%_ _%hd96206%_) + (__foldl1 cons _%rest96205%_ _%r96184%_) + (_%lp96179%_ + _%rest96205%_ + (cons _%hd96206%_ _%r96184%_)))))) + (if (pair? _%rest9618696194%_) + (let ((_%hd9619196212%_ (let () (declare (not safe)) - (##car _%rest9518595193%_))) - (_%tl9519195213%_ + (##car _%rest9618696194%_))) + (_%tl9619296214%_ (let () (declare (not safe)) - (##cdr _%rest9518595193%_)))) - (let* ((_%hd95216%_ _%hd9519095211%_) - (_%rest95218%_ _%tl9519195213%_)) - (_%K9518995208%_ _%rest95218%_ _%hd95216%_))) - (_%else9518795201%_)))))) + (##cdr _%rest9618696194%_)))) + (let* ((_%hd96217%_ _%hd9619196212%_) + (_%rest96219%_ _%tl9619296214%_)) + (_%K9619096209%_ _%rest96219%_ _%hd96217%_))) + (_%else9618896202%_)))))) (define remq1 - (lambda (_%el95126%_ _%lst95128%_) - (let _%lp95131%_ ((_%rest95134%_ _%lst95128%_) (_%r95136%_ '())) - (let* ((_%rest9513895146%_ _%rest95134%_) - (_%else9514095154%_ (lambda () _%lst95128%_)) - (_%K9514295161%_ - (lambda (_%rest95157%_ _%hd95158%_) - (if (eq? _%el95126%_ _%hd95158%_) - (__foldl1 cons _%rest95157%_ _%r95136%_) - (_%lp95131%_ - _%rest95157%_ - (cons _%hd95158%_ _%r95136%_)))))) - (if (pair? _%rest9513895146%_) - (let ((_%hd9514395164%_ + (lambda (_%el96127%_ _%lst96129%_) + (let _%lp96132%_ ((_%rest96135%_ _%lst96129%_) (_%r96137%_ '())) + (let* ((_%rest9613996147%_ _%rest96135%_) + (_%else9614196155%_ (lambda () _%lst96129%_)) + (_%K9614396162%_ + (lambda (_%rest96158%_ _%hd96159%_) + (if (eq? _%el96127%_ _%hd96159%_) + (__foldl1 cons _%rest96158%_ _%r96137%_) + (_%lp96132%_ + _%rest96158%_ + (cons _%hd96159%_ _%r96137%_)))))) + (if (pair? _%rest9613996147%_) + (let ((_%hd9614496165%_ (let () (declare (not safe)) - (##car _%rest9513895146%_))) - (_%tl9514495166%_ + (##car _%rest9613996147%_))) + (_%tl9614596167%_ (let () (declare (not safe)) - (##cdr _%rest9513895146%_)))) - (let* ((_%hd95169%_ _%hd9514395164%_) - (_%rest95171%_ _%tl9514495166%_)) - (_%K9514295161%_ _%rest95171%_ _%hd95169%_))) - (_%else9514095154%_)))))) + (##cdr _%rest9613996147%_)))) + (let* ((_%hd96170%_ _%hd9614496165%_) + (_%rest96172%_ _%tl9614596167%_)) + (_%K9614396162%_ _%rest96172%_ _%hd96170%_))) + (_%else9614196155%_)))))) (define remf - (lambda (_%proc95111%_ _%lst95112%_) - (if (procedure? _%proc95111%_) - (let ((_%proc95116%_ _%proc95111%_)) - (__remf _%proc95116%_ _%lst95112%_)) + (lambda (_%proc96112%_ _%lst96113%_) + (if (procedure? _%proc96112%_) + (let ((_%proc96117%_ _%proc96112%_)) + (__remf _%proc96117%_ _%lst96113%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@544.13-544.17" + '"\"gerbil/runtime/util.ss\"@576.13-576.17" 'contract: 'procedure? 'value: - _%proc95111%_) + _%proc96112%_) '#!void)))) (define __remf - (lambda (_%proc95060%_ _%lst95061%_) - (let ((_%proc95064%_ _%proc95060%_)) - (let _%lp95073%_ ((_%rest95075%_ _%lst95061%_) (_%r95076%_ '())) - (let* ((_%rest9507795085%_ _%rest95075%_) - (_%else9507995093%_ (lambda () _%lst95061%_)) - (_%K9508195099%_ - (lambda (_%rest95096%_ _%hd95097%_) + (lambda (_%proc96061%_ _%lst96062%_) + (let ((_%proc96065%_ _%proc96061%_)) + (let _%lp96074%_ ((_%rest96076%_ _%lst96062%_) (_%r96077%_ '())) + (let* ((_%rest9607896086%_ _%rest96076%_) + (_%else9608096094%_ (lambda () _%lst96062%_)) + (_%K9608296100%_ + (lambda (_%rest96097%_ _%hd96098%_) (if (let () (declare (not safe)) - (_%proc95064%_ _%hd95097%_)) - (__foldl1 cons _%rest95096%_ _%r95076%_) - (_%lp95073%_ - _%rest95096%_ - (cons _%hd95097%_ _%r95076%_)))))) - (if (pair? _%rest9507795085%_) - (let ((_%hd9508295102%_ + (_%proc96065%_ _%hd96098%_)) + (__foldl1 cons _%rest96097%_ _%r96077%_) + (_%lp96074%_ + _%rest96097%_ + (cons _%hd96098%_ _%r96077%_)))))) + (if (pair? _%rest9607896086%_) + (let ((_%hd9608396103%_ (let () (declare (not safe)) - (##car _%rest9507795085%_))) - (_%tl9508395104%_ + (##car _%rest9607896086%_))) + (_%tl9608496105%_ (let () (declare (not safe)) - (##cdr _%rest9507795085%_)))) - (let* ((_%hd95107%_ _%hd9508295102%_) - (_%rest95109%_ _%tl9508395104%_)) - (_%K9508195099%_ _%rest95109%_ _%hd95107%_))) - (_%else9507995093%_))))))) + (##cdr _%rest9607896086%_)))) + (let* ((_%hd96108%_ _%hd9608396103%_) + (_%rest96110%_ _%tl9608496105%_)) + (_%K9608296100%_ _%rest96110%_ _%hd96108%_))) + (_%else9608096094%_))))))) (define 1+ - (lambda (_%x95046%_) - (if (number? _%x95046%_) - (let ((_%x95050%_ _%x95046%_)) (__1+ _%x95050%_)) + (lambda (_%x96047%_) + (if (number? _%x96047%_) + (let ((_%x96051%_ _%x96047%_)) (__1+ _%x96051%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@553.11-553.12" + '"\"gerbil/runtime/util.ss\"@585.11-585.12" 'contract: 'number? 'value: - _%x95046%_) + _%x96047%_) '#!void)))) (define __1+ - (lambda (_%x95034%_) (let ((_%x95037%_ _%x95034%_)) (+ _%x95037%_ '1)))) + (lambda (_%x96035%_) (let ((_%x96038%_ _%x96035%_)) (+ _%x96038%_ '1)))) (define 1- - (lambda (_%x95020%_) - (if (number? _%x95020%_) - (let ((_%x95024%_ _%x95020%_)) (__1- _%x95024%_)) + (lambda (_%x96021%_) + (if (number? _%x96021%_) + (let ((_%x96025%_ _%x96021%_)) (__1- _%x96025%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@561.11-561.12" + '"\"gerbil/runtime/util.ss\"@593.11-593.12" 'contract: 'number? 'value: - _%x95020%_) + _%x96021%_) '#!void)))) (define __1- - (lambda (_%x95008%_) (let ((_%x95011%_ _%x95008%_)) (- _%x95011%_ '1)))) + (lambda (_%x96009%_) (let ((_%x96012%_ _%x96009%_)) (- _%x96012%_ '1)))) (define fx1+ - (lambda (_%x94994%_) - (if (fixnum? _%x94994%_) - (let ((_%x94998%_ _%x94994%_)) (__fx1+ _%x94998%_)) + (lambda (_%x95995%_) + (if (fixnum? _%x95995%_) + (let ((_%x95999%_ _%x95995%_)) (__fx1+ _%x95999%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@569.13-569.14" + '"\"gerbil/runtime/util.ss\"@601.13-601.14" 'contract: 'fixnum? 'value: - _%x94994%_) + _%x95995%_) '#!void)))) (define __fx1+ - (lambda (_%x94982%_) - (let ((_%x94985%_ _%x94982%_)) + (lambda (_%x95983%_) + (let ((_%x95986%_ _%x95983%_)) (declare (not safe)) - (##fx+ _%x94985%_ '1)))) + (##fx+ _%x95986%_ '1)))) (define fx1- - (lambda (_%x94968%_) - (if (fixnum? _%x94968%_) - (let ((_%x94972%_ _%x94968%_)) (__fx1- _%x94972%_)) + (lambda (_%x95969%_) + (if (fixnum? _%x95969%_) + (let ((_%x95973%_ _%x95969%_)) (__fx1- _%x95973%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@577.13-577.14" + '"\"gerbil/runtime/util.ss\"@609.13-609.14" 'contract: 'fixnum? 'value: - _%x94968%_) + _%x95969%_) '#!void)))) (define __fx1- - (lambda (_%x94956%_) - (let ((_%x94959%_ _%x94956%_)) + (lambda (_%x95957%_) + (let ((_%x95960%_ _%x95957%_)) (declare (not safe)) - (##fx- _%x94959%_ '1)))) + (##fx- _%x95960%_ '1)))) (define fxshift fxarithmetic-shift) (define fx/ fxquotient) + (define fx% fxremainder) (define fx>=0? - (lambda (_%x94953%_) - (if (fixnum? _%x94953%_) - (let () (declare (not safe)) (##fx>= _%x94953%_ '0)) + (lambda (_%x95954%_) + (if (fixnum? _%x95954%_) + (let () (declare (not safe)) (##fx>= _%x95954%_ '0)) '#f))) (define fx>0? - (lambda (_%x94950%_) - (if (fixnum? _%x94950%_) - (let () (declare (not safe)) (##fx> _%x94950%_ '0)) + (lambda (_%x95951%_) + (if (fixnum? _%x95951%_) + (let () (declare (not safe)) (##fx> _%x95951%_ '0)) '#f))) (define fx=0? - (lambda (_%x94947%_) - (let () (declare (not safe)) (##fx= _%x94947%_ '0)))) + (lambda (_%x95948%_) + (let () (declare (not safe)) (##fx= _%x95948%_ '0)))) (define fx<0? - (lambda (_%x94944%_) - (if (fixnum? _%x94944%_) - (let () (declare (not safe)) (##fx< _%x94944%_ '0)) + (lambda (_%x95945%_) + (if (fixnum? _%x95945%_) + (let () (declare (not safe)) (##fx< _%x95945%_ '0)) '#f))) (define fx<=0? - (lambda (_%x94941%_) - (if (fixnum? _%x94941%_) - (let () (declare (not safe)) (##fx<= _%x94941%_ '0)) + (lambda (_%x95942%_) + (if (fixnum? _%x95942%_) + (let () (declare (not safe)) (##fx<= _%x95942%_ '0)) '#f))) (define interned-symbol? - (lambda (_%x94938%_) - (if (symbol? _%x94938%_) (not (uninterned-symbol? _%x94938%_)) '#f))) + (lambda (_%x95939%_) + (if (symbol? _%x95939%_) (not (uninterned-symbol? _%x95939%_)) '#f))) (define display-as-string - (lambda (_%x94923%_ _%port94924%_) - (if (output-port? _%port94924%_) - (let ((_%port94928%_ _%port94924%_)) - (__display-as-string _%x94923%_ _%port94928%_)) + (lambda (_%x95924%_ _%port95925%_) + (if (output-port? _%port95925%_) + (let ((_%port95929%_ _%port95925%_)) + (__display-as-string _%x95924%_ _%port95929%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@605.28-605.32" + '"\"gerbil/runtime/util.ss\"@639.28-639.32" 'contract: 'output-port? 'value: - _%port94924%_) + _%port95925%_) '#!void)))) (define __display-as-string - (lambda (_%x94880%_ _%port94881%_) - (let ((_%port94884%_ _%port94881%_)) - (if (or (string? _%x94880%_) - (symbol? _%x94880%_) - (keyword? _%x94880%_) - (number? _%x94880%_) - (char? _%x94880%_)) - (display _%x94880%_ _%port94884%_) - (if (pair? _%x94880%_) + (lambda (_%x95881%_ _%port95882%_) + (let ((_%port95885%_ _%port95882%_)) + (if (or (string? _%x95881%_) + (symbol? _%x95881%_) + (keyword? _%x95881%_) + (number? _%x95881%_) + (char? _%x95881%_)) + (display _%x95881%_ _%port95885%_) + (if (pair? _%x95881%_) (let () (__display-as-string - (let () (declare (not safe)) (##car _%x94880%_)) - _%port94884%_) + (let () (declare (not safe)) (##car _%x95881%_)) + _%port95885%_) (__display-as-string - (let () (declare (not safe)) (##cdr _%x94880%_)) - _%port94884%_)) - (if (vector? _%x94880%_) + (let () (declare (not safe)) (##cdr _%x95881%_)) + _%port95885%_)) + (if (vector? _%x95881%_) (vector-for-each - (lambda (_%g9490794909%_) - (__display-as-string _%g9490794909%_ _%port94884%_)) - _%x94880%_) - (if (or (null? _%x94880%_) - (eq? _%x94880%_ '#!void) - (eof-object? _%x94880%_) - (boolean? _%x94880%_)) + (lambda (_%g9590895910%_) + (__display-as-string _%g9590895910%_ _%port95885%_)) + _%x95881%_) + (if (or (null? _%x95881%_) + (eq? _%x95881%_ '#!void) + (eof-object? _%x95881%_) + (boolean? _%x95881%_)) '#!void (let () - (error '"cannot convert as string" _%x94880%_) + (error '"cannot convert as string" _%x95881%_) '#!void)))))))) (define as-string__0 - (lambda (_%x94863%_) - (if (string? _%x94863%_) - _%x94863%_ - (if (symbol? _%x94863%_) - (let () (declare (not safe)) (##symbol->string _%x94863%_)) - (if (keyword? _%x94863%_) + (lambda (_%x95864%_) + (if (string? _%x95864%_) + _%x95864%_ + (if (symbol? _%x95864%_) + (let () (declare (not safe)) (##symbol->string _%x95864%_)) + (if (keyword? _%x95864%_) (let () (declare (not safe)) - (##keyword->string _%x94863%_)) - (if (number? _%x94863%_) + (##keyword->string _%x95864%_)) + (if (number? _%x95864%_) (let () (declare (not safe)) - (##number->string _%x94863%_)) + (##number->string _%x95864%_)) (call-with-output-string '() - (lambda (_%g9486994871%_) + (lambda (_%g9587095872%_) (__display-as-string - _%x94863%_ - _%g9486994871%_))))))))) + _%x95864%_ + _%g9587095872%_))))))))) (define as-string__1 - (lambda _%args94874%_ + (lambda _%args95875%_ (call-with-output-string '() - (lambda (_%g9487594877%_) - (__display-as-string _%args94874%_ _%g9487594877%_))))) + (lambda (_%g9587695878%_) + (__display-as-string _%args95875%_ _%g9587695878%_))))) (define as-string - (lambda _g99114_ - (let ((_g99115_ (let () (declare (not safe)) (##length _g99114_)))) - (cond ((let () (declare (not safe)) (##fx= _g99115_ 1)) - (apply as-string__0 _g99114_)) + (lambda _g100144_ + (let ((_g100145_ (let () (declare (not safe)) (##length _g100144_)))) + (cond ((let () (declare (not safe)) (##fx= _g100145_ 1)) + (apply as-string__0 _g100144_)) (#t - (apply (lambda _%args94874%_ + (apply (lambda _%args95875%_ (let () (declare (not safe)) - (##apply as-string__1 _%args94874%_))) - _g99114_)) + (##apply as-string__1 _%args95875%_))) + _g100144_)) (else (##raise-wrong-number-of-arguments-exception as-string - _g99114_)))))) + _g100144_)))))) (define make-symbol__0 - (lambda (_%x94859%_) - (if (interned-symbol? _%x94859%_) - _%x94859%_ - (let ((__tmp99116 (as-string__0 _%x94859%_))) + (lambda (_%x95860%_) + (if (interned-symbol? _%x95860%_) + _%x95860%_ + (let ((__tmp100146 (as-string__0 _%x95860%_))) (declare (not safe)) - (##string->symbol __tmp99116))))) + (##string->symbol __tmp100146))))) (define make-symbol__1 - (lambda _%args94861%_ - (let ((__tmp99117 + (lambda _%args95862%_ + (let ((__tmp100147 (let () (declare (not safe)) - (##apply as-string _%args94861%_)))) + (##apply as-string _%args95862%_)))) (declare (not safe)) - (##string->symbol __tmp99117)))) + (##string->symbol __tmp100147)))) (define make-symbol - (lambda _g99118_ - (let ((_g99119_ (let () (declare (not safe)) (##length _g99118_)))) - (cond ((let () (declare (not safe)) (##fx= _g99119_ 1)) - (apply make-symbol__0 _g99118_)) + (lambda _g100148_ + (let ((_g100149_ (let () (declare (not safe)) (##length _g100148_)))) + (cond ((let () (declare (not safe)) (##fx= _g100149_ 1)) + (apply make-symbol__0 _g100148_)) (#t - (apply (lambda _%args94861%_ + (apply (lambda _%args95862%_ (let () (declare (not safe)) - (##apply make-symbol__1 _%args94861%_))) - _g99118_)) + (##apply make-symbol__1 _%args95862%_))) + _g100148_)) (else (##raise-wrong-number-of-arguments-exception make-symbol - _g99118_)))))) + _g100148_)))))) (define make-keyword__0 - (lambda (_%x94855%_) - (if (interned-keyword? _%x94855%_) - _%x94855%_ - (let ((__tmp99120 (as-string__0 _%x94855%_))) + (lambda (_%x95856%_) + (if (interned-keyword? _%x95856%_) + _%x95856%_ + (let ((__tmp100150 (as-string__0 _%x95856%_))) (declare (not safe)) - (##string->keyword __tmp99120))))) + (##string->keyword __tmp100150))))) (define make-keyword__1 - (lambda _%args94857%_ - (let ((__tmp99121 + (lambda _%args95858%_ + (let ((__tmp100151 (let () (declare (not safe)) - (##apply as-string _%args94857%_)))) + (##apply as-string _%args95858%_)))) (declare (not safe)) - (##string->keyword __tmp99121)))) + (##string->keyword __tmp100151)))) (define make-keyword - (lambda _g99122_ - (let ((_g99123_ (let () (declare (not safe)) (##length _g99122_)))) - (cond ((let () (declare (not safe)) (##fx= _g99123_ 1)) - (apply make-keyword__0 _g99122_)) + (lambda _g100152_ + (let ((_g100153_ (let () (declare (not safe)) (##length _g100152_)))) + (cond ((let () (declare (not safe)) (##fx= _g100153_ 1)) + (apply make-keyword__0 _g100152_)) (#t - (apply (lambda _%args94857%_ + (apply (lambda _%args95858%_ (let () (declare (not safe)) - (##apply make-keyword__1 _%args94857%_))) - _g99122_)) + (##apply make-keyword__1 _%args95858%_))) + _g100152_)) (else (##raise-wrong-number-of-arguments-exception make-keyword - _g99122_)))))) + _g100152_)))))) (define interned-keyword? - (lambda (_%x94852%_) - (if (keyword? _%x94852%_) (not (uninterned-keyword? _%x94852%_)) '#f))) + (lambda (_%x95853%_) + (if (keyword? _%x95853%_) (not (uninterned-keyword? _%x95853%_)) '#f))) (define symbol->keyword - (lambda (_%sym94838%_) - (if (symbol? _%sym94838%_) - (let ((_%sym94842%_ _%sym94838%_)) - (__symbol->keyword _%sym94842%_)) + (lambda (_%sym95839%_) + (if (symbol? _%sym95839%_) + (let ((_%sym95843%_ _%sym95839%_)) + (__symbol->keyword _%sym95843%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@648.24-648.27" + '"\"gerbil/runtime/util.ss\"@682.24-682.27" 'contract: 'symbol? 'value: - _%sym94838%_) + _%sym95839%_) '#!void)))) (define __symbol->keyword - (lambda (_%sym94826%_) - (let ((_%sym94829%_ _%sym94826%_)) - (if (uninterned-symbol? _%sym94829%_) - (let ((__tmp99124 + (lambda (_%sym95827%_) + (let ((_%sym95830%_ _%sym95827%_)) + (if (uninterned-symbol? _%sym95830%_) + (let ((__tmp100154 (let () (declare (not safe)) - (##symbol->string _%sym94829%_)))) + (##symbol->string _%sym95830%_)))) (declare (not safe)) - (##string->uninterned-keyword __tmp99124)) - (let ((__tmp99125 + (##string->uninterned-keyword __tmp100154)) + (let ((__tmp100155 (let () (declare (not safe)) - (##symbol->string _%sym94829%_)))) + (##symbol->string _%sym95830%_)))) (declare (not safe)) - (##string->keyword __tmp99125)))))) + (##string->keyword __tmp100155)))))) (define keyword->symbol - (lambda (_%sym94812%_) - (if (keyword? _%sym94812%_) - (let ((_%sym94816%_ _%sym94812%_)) - (__keyword->symbol _%sym94816%_)) + (lambda (_%sym95813%_) + (if (keyword? _%sym95813%_) + (let ((_%sym95817%_ _%sym95813%_)) + (__keyword->symbol _%sym95817%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@654.24-654.27" + '"\"gerbil/runtime/util.ss\"@688.24-688.27" 'contract: 'keyword? 'value: - _%sym94812%_) + _%sym95813%_) '#!void)))) (define __keyword->symbol - (lambda (_%sym94800%_) - (let ((_%sym94803%_ _%sym94800%_)) - (if (uninterned-keyword? _%sym94803%_) - (let ((__tmp99126 + (lambda (_%sym95801%_) + (let ((_%sym95804%_ _%sym95801%_)) + (if (uninterned-keyword? _%sym95804%_) + (let ((__tmp100156 (let () (declare (not safe)) - (##keyword->string _%sym94803%_)))) + (##keyword->string _%sym95804%_)))) (declare (not safe)) - (##string->uninterned-symbol __tmp99126)) - (let ((__tmp99127 + (##string->uninterned-symbol __tmp100156)) + (let ((__tmp100157 (let () (declare (not safe)) - (##keyword->string _%sym94803%_)))) + (##keyword->string _%sym95804%_)))) (declare (not safe)) - (##string->symbol __tmp99127)))))) + (##string->symbol __tmp100157)))))) (define bytes->string__% - (lambda (_%bstr94765%_ _%enc94766%_) - (if (u8vector? _%bstr94765%_) - (let ((_%bstr94770%_ _%bstr94765%_)) - (if (symbol? _%enc94766%_) - (let ((_%enc94780%_ _%enc94766%_)) - (__bytes->string__% _%bstr94770%_ _%enc94780%_)) + (lambda (_%bstr95766%_ _%enc95767%_) + (if (u8vector? _%bstr95766%_) + (let ((_%bstr95771%_ _%bstr95766%_)) + (if (symbol? _%enc95767%_) + (let ((_%enc95781%_ _%enc95767%_)) + (__bytes->string__% _%bstr95771%_ _%enc95781%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@661.25-661.28" + '"\"gerbil/runtime/util.ss\"@695.25-695.28" 'contract: 'symbol? 'value: - _%enc94766%_) + _%enc95767%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@660.22-660.26" + '"\"gerbil/runtime/util.ss\"@694.22-694.26" 'contract: 'u8vector? 'value: - _%bstr94765%_) + _%bstr95766%_) '#!void)))) (define bytes->string__0 - (lambda (_%bstr94793%_) - (let ((_%enc94795%_ 'UTF-8)) - (bytes->string__% _%bstr94793%_ _%enc94795%_)))) + (lambda (_%bstr95794%_) + (let ((_%enc95796%_ 'UTF-8)) + (bytes->string__% _%bstr95794%_ _%enc95796%_)))) (define bytes->string - (lambda _g99128_ - (let ((_g99129_ (let () (declare (not safe)) (##length _g99128_)))) - (cond ((let () (declare (not safe)) (##fx= _g99129_ 1)) - (apply bytes->string__0 _g99128_)) - ((let () (declare (not safe)) (##fx= _g99129_ 2)) - (apply bytes->string__% _g99128_)) + (lambda _g100158_ + (let ((_g100159_ (let () (declare (not safe)) (##length _g100158_)))) + (cond ((let () (declare (not safe)) (##fx= _g100159_ 1)) + (apply bytes->string__0 _g100158_)) + ((let () (declare (not safe)) (##fx= _g100159_ 2)) + (apply bytes->string__% _g100158_)) (else (##raise-wrong-number-of-arguments-exception bytes->string - _g99128_)))))) + _g100158_)))))) (define __bytes->string__% - (lambda (_%bstr94724%_ _%enc94725%_) - (let* ((_%bstr94728%_ _%bstr94724%_) (_%enc94736%_ _%enc94725%_)) - (if (eq? _%enc94736%_ 'UTF-8) - (let () (declare (not safe)) (##utf8->string _%bstr94728%_)) - (let* ((_%in94745%_ + (lambda (_%bstr95725%_ _%enc95726%_) + (let* ((_%bstr95729%_ _%bstr95725%_) (_%enc95737%_ _%enc95726%_)) + (if (eq? _%enc95737%_ 'UTF-8) + (let () (declare (not safe)) (##utf8->string _%bstr95729%_)) + (let* ((_%in95746%_ (open-input-u8vector (cons 'char-encoding: - (cons _%enc94736%_ - (cons 'init: (cons _%bstr94728%_ '())))))) - (_%len94747%_ + (cons _%enc95737%_ + (cons 'init: (cons _%bstr95729%_ '())))))) + (_%len95748%_ (let () (declare (not safe)) - (##u8vector-length _%bstr94728%_))) - (_%out94749%_ + (##u8vector-length _%bstr95729%_))) + (_%out95750%_ (let () (declare (not safe)) - (##make-string _%len94747%_))) - (_%n94751%_ + (##make-string _%len95748%_))) + (_%n95752%_ (read-substring - _%out94749%_ + _%out95750%_ '0 - _%len94747%_ - _%in94745%_))) - (string-shrink! _%out94749%_ _%n94751%_) - _%out94749%_))))) + _%len95748%_ + _%in95746%_))) + (string-shrink! _%out95750%_ _%n95752%_) + _%out95750%_))))) (define __bytes->string__0 - (lambda (_%bstr94757%_) - (let ((_%enc94759%_ 'UTF-8)) - (__bytes->string__% _%bstr94757%_ _%enc94759%_)))) + (lambda (_%bstr95758%_) + (let ((_%enc95760%_ 'UTF-8)) + (__bytes->string__% _%bstr95758%_ _%enc95760%_)))) (define __bytes->string - (lambda _g99130_ - (let ((_g99131_ (let () (declare (not safe)) (##length _g99130_)))) - (cond ((let () (declare (not safe)) (##fx= _g99131_ 1)) - (apply __bytes->string__0 _g99130_)) - ((let () (declare (not safe)) (##fx= _g99131_ 2)) - (apply __bytes->string__% _g99130_)) + (lambda _g100160_ + (let ((_g100161_ (let () (declare (not safe)) (##length _g100160_)))) + (cond ((let () (declare (not safe)) (##fx= _g100161_ 1)) + (apply __bytes->string__0 _g100160_)) + ((let () (declare (not safe)) (##fx= _g100161_ 2)) + (apply __bytes->string__% _g100160_)) (else (##raise-wrong-number-of-arguments-exception __bytes->string - _g99130_)))))) + _g100160_)))))) (define string->bytes__% - (lambda (_%str94688%_ _%enc94689%_) - (if (string? _%str94688%_) - (let ((_%str94693%_ _%str94688%_)) - (if (symbol? _%enc94689%_) - (let ((_%enc94703%_ _%enc94689%_)) - (__string->bytes__% _%str94693%_ _%enc94703%_)) + (lambda (_%str95689%_ _%enc95690%_) + (if (string? _%str95689%_) + (let ((_%str95694%_ _%str95689%_)) + (if (symbol? _%enc95690%_) + (let ((_%enc95704%_ _%enc95690%_)) + (__string->bytes__% _%str95694%_ _%enc95704%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@673.25-673.28" + '"\"gerbil/runtime/util.ss\"@707.25-707.28" 'contract: 'symbol? 'value: - _%enc94689%_) + _%enc95690%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@672.22-672.25" + '"\"gerbil/runtime/util.ss\"@706.22-706.25" 'contract: 'string? 'value: - _%str94688%_) + _%str95689%_) '#!void)))) (define string->bytes__0 - (lambda (_%str94716%_) - (let ((_%enc94718%_ 'UTF-8)) - (string->bytes__% _%str94716%_ _%enc94718%_)))) + (lambda (_%str95717%_) + (let ((_%enc95719%_ 'UTF-8)) + (string->bytes__% _%str95717%_ _%enc95719%_)))) (define string->bytes - (lambda _g99132_ - (let ((_g99133_ (let () (declare (not safe)) (##length _g99132_)))) - (cond ((let () (declare (not safe)) (##fx= _g99133_ 1)) - (apply string->bytes__0 _g99132_)) - ((let () (declare (not safe)) (##fx= _g99133_ 2)) - (apply string->bytes__% _g99132_)) + (lambda _g100162_ + (let ((_g100163_ (let () (declare (not safe)) (##length _g100162_)))) + (cond ((let () (declare (not safe)) (##fx= _g100163_ 1)) + (apply string->bytes__0 _g100162_)) + ((let () (declare (not safe)) (##fx= _g100163_ 2)) + (apply string->bytes__% _g100162_)) (else (##raise-wrong-number-of-arguments-exception string->bytes - _g99132_)))))) + _g100162_)))))) (define __string->bytes__% - (lambda (_%str94656%_ _%enc94657%_) - (let* ((_%str94660%_ _%str94656%_) (_%enc94668%_ _%enc94657%_)) - (if (eq? _%enc94668%_ 'UTF-8) - (let () (declare (not safe)) (##string->utf8 _%str94660%_)) + (lambda (_%str95657%_ _%enc95658%_) + (let* ((_%str95661%_ _%str95657%_) (_%enc95669%_ _%enc95658%_)) + (if (eq? _%enc95669%_ 'UTF-8) + (let () (declare (not safe)) (##string->utf8 _%str95661%_)) (__substring->bytes__% - _%str94660%_ + _%str95661%_ '0 - (let () (declare (not safe)) (##string-length _%str94660%_)) - _%enc94668%_))))) + (let () (declare (not safe)) (##string-length _%str95661%_)) + _%enc95669%_))))) (define __string->bytes__0 - (lambda (_%str94680%_) - (let ((_%enc94682%_ 'UTF-8)) - (__string->bytes__% _%str94680%_ _%enc94682%_)))) + (lambda (_%str95681%_) + (let ((_%enc95683%_ 'UTF-8)) + (__string->bytes__% _%str95681%_ _%enc95683%_)))) (define __string->bytes - (lambda _g99134_ - (let ((_g99135_ (let () (declare (not safe)) (##length _g99134_)))) - (cond ((let () (declare (not safe)) (##fx= _g99135_ 1)) - (apply __string->bytes__0 _g99134_)) - ((let () (declare (not safe)) (##fx= _g99135_ 2)) - (apply __string->bytes__% _g99134_)) + (lambda _g100164_ + (let ((_g100165_ (let () (declare (not safe)) (##length _g100164_)))) + (cond ((let () (declare (not safe)) (##fx= _g100165_ 1)) + (apply __string->bytes__0 _g100164_)) + ((let () (declare (not safe)) (##fx= _g100165_ 2)) + (apply __string->bytes__% _g100164_)) (else (##raise-wrong-number-of-arguments-exception __string->bytes - _g99134_)))))) + _g100164_)))))) (define substring->bytes__% - (lambda (_%str94604%_ _%start94605%_ _%end94606%_ _%enc94607%_) - (if (string? _%str94604%_) - (let ((_%str94611%_ _%str94604%_)) - (if (nonnegative-fixnum? _%start94605%_) - (let ((_%start94621%_ _%start94605%_)) - (if (nonnegative-fixnum? _%end94606%_) - (let ((_%end94631%_ _%end94606%_)) + (lambda (_%str95605%_ _%start95606%_ _%end95607%_ _%enc95608%_) + (if (string? _%str95605%_) + (let ((_%str95612%_ _%str95605%_)) + (if (nonnegative-fixnum? _%start95606%_) + (let ((_%start95622%_ _%start95606%_)) + (if (nonnegative-fixnum? _%end95607%_) + (let ((_%end95632%_ _%end95607%_)) (__substring->bytes__% - _%str94611%_ - _%start94621%_ - _%end94631%_ - _%enc94607%_)) + _%str95612%_ + _%start95622%_ + _%end95632%_ + _%enc95608%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@681.25-681.28" + '"\"gerbil/runtime/util.ss\"@715.25-715.28" 'contract: 'nonnegative-fixnum? 'value: - _%end94606%_) + _%end95607%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@680.25-680.30" + '"\"gerbil/runtime/util.ss\"@714.25-714.30" 'contract: 'nonnegative-fixnum? 'value: - _%start94605%_) + _%start95606%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@679.25-679.28" + '"\"gerbil/runtime/util.ss\"@713.25-713.28" 'contract: 'string? 'value: - _%str94604%_) + _%str95605%_) '#!void)))) (define substring->bytes__0 - (lambda (_%str94644%_ _%start94645%_ _%end94646%_) - (let ((_%enc94648%_ 'UTF-8)) + (lambda (_%str95645%_ _%start95646%_ _%end95647%_) + (let ((_%enc95649%_ 'UTF-8)) (substring->bytes__% - _%str94644%_ - _%start94645%_ - _%end94646%_ - _%enc94648%_)))) + _%str95645%_ + _%start95646%_ + _%end95647%_ + _%enc95649%_)))) (define substring->bytes - (lambda _g99136_ - (let ((_g99137_ (let () (declare (not safe)) (##length _g99136_)))) - (cond ((let () (declare (not safe)) (##fx= _g99137_ 3)) - (apply substring->bytes__0 _g99136_)) - ((let () (declare (not safe)) (##fx= _g99137_ 4)) - (apply substring->bytes__% _g99136_)) + (lambda _g100166_ + (let ((_g100167_ (let () (declare (not safe)) (##length _g100166_)))) + (cond ((let () (declare (not safe)) (##fx= _g100167_ 3)) + (apply substring->bytes__0 _g100166_)) + ((let () (declare (not safe)) (##fx= _g100167_ 4)) + (apply substring->bytes__% _g100166_)) (else (##raise-wrong-number-of-arguments-exception substring->bytes - _g99136_)))))) + _g100166_)))))) (define __substring->bytes__% - (lambda (_%str94556%_ _%start94557%_ _%end94558%_ _%enc94559%_) - (let* ((_%str94562%_ _%str94556%_) - (_%start94570%_ _%start94557%_) - (_%end94578%_ _%end94558%_)) - (if (eq? _%enc94559%_ 'UTF-8) - (string->utf8 _%str94562%_ _%start94570%_ _%end94578%_) - (let ((_%out94587%_ + (lambda (_%str95557%_ _%start95558%_ _%end95559%_ _%enc95560%_) + (let* ((_%str95563%_ _%str95557%_) + (_%start95571%_ _%start95558%_) + (_%end95579%_ _%end95559%_)) + (if (eq? _%enc95560%_ 'UTF-8) + (string->utf8 _%str95563%_ _%start95571%_ _%end95579%_) + (let ((_%out95588%_ (open-output-u8vector - (cons 'char-encoding: (cons _%enc94559%_ '()))))) + (cons 'char-encoding: (cons _%enc95560%_ '()))))) (write-substring - _%str94562%_ - _%start94570%_ - _%end94578%_ - _%out94587%_) - (get-output-u8vector _%out94587%_)))))) + _%str95563%_ + _%start95571%_ + _%end95579%_ + _%out95588%_) + (get-output-u8vector _%out95588%_)))))) (define __substring->bytes__0 - (lambda (_%str94592%_ _%start94593%_ _%end94594%_) - (let ((_%enc94596%_ 'UTF-8)) + (lambda (_%str95593%_ _%start95594%_ _%end95595%_) + (let ((_%enc95597%_ 'UTF-8)) (__substring->bytes__% - _%str94592%_ - _%start94593%_ - _%end94594%_ - _%enc94596%_)))) + _%str95593%_ + _%start95594%_ + _%end95595%_ + _%enc95597%_)))) (define __substring->bytes - (lambda _g99138_ - (let ((_g99139_ (let () (declare (not safe)) (##length _g99138_)))) - (cond ((let () (declare (not safe)) (##fx= _g99139_ 3)) - (apply __substring->bytes__0 _g99138_)) - ((let () (declare (not safe)) (##fx= _g99139_ 4)) - (apply __substring->bytes__% _g99138_)) + (lambda _g100168_ + (let ((_g100169_ (let () (declare (not safe)) (##length _g100168_)))) + (cond ((let () (declare (not safe)) (##fx= _g100169_ 3)) + (apply __substring->bytes__0 _g100168_)) + ((let () (declare (not safe)) (##fx= _g100169_ 4)) + (apply __substring->bytes__% _g100168_)) (else (##raise-wrong-number-of-arguments-exception __substring->bytes - _g99138_)))))) + _g100168_)))))) (define string-empty? - (lambda (_%str94541%_) - (if (string? _%str94541%_) - (let ((_%str94545%_ _%str94541%_)) (__string-empty? _%str94545%_)) + (lambda (_%str95542%_) + (if (string? _%str95542%_) + (let ((_%str95546%_ _%str95542%_)) (__string-empty? _%str95546%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@690.22-690.25" + '"\"gerbil/runtime/util.ss\"@724.22-724.25" 'contract: 'string? 'value: - _%str94541%_) + _%str95542%_) '#!void)))) (define __string-empty? - (lambda (_%str94529%_) - (let* ((_%str94532%_ _%str94529%_) - (__tmp99140 - (let () (declare (not safe)) (##string-length _%str94532%_)))) + (lambda (_%str95530%_) + (let* ((_%str95533%_ _%str95530%_) + (__tmp100170 + (let () (declare (not safe)) (##string-length _%str95533%_)))) (declare (not safe)) - (##fxzero? __tmp99140)))) + (##fxzero? __tmp100170)))) (define string-index__% - (lambda (_%str94481%_ _%char94482%_ _%start94483%_) - (if (string? _%str94481%_) - (let ((_%str94487%_ _%str94481%_)) - (if (char? _%char94482%_) - (let ((_%char94497%_ _%char94482%_)) - (if (nonnegative-fixnum? _%start94483%_) - (let ((_%start94507%_ _%start94483%_)) + (lambda (_%str95482%_ _%char95483%_ _%start95484%_) + (if (string? _%str95482%_) + (let ((_%str95488%_ _%str95482%_)) + (if (char? _%char95483%_) + (let ((_%char95498%_ _%char95483%_)) + (if (nonnegative-fixnum? _%start95484%_) + (let ((_%start95508%_ _%start95484%_)) (__string-index__% - _%str94487%_ - _%char94497%_ - _%start94507%_)) + _%str95488%_ + _%char95498%_ + _%start95508%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@696.21-696.26" + '"\"gerbil/runtime/util.ss\"@730.21-730.26" 'contract: 'nonnegative-fixnum? 'value: - _%start94483%_) + _%start95484%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@695.21-695.25" + '"\"gerbil/runtime/util.ss\"@729.21-729.25" 'contract: 'char? 'value: - _%char94482%_) + _%char95483%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@694.21-694.24" + '"\"gerbil/runtime/util.ss\"@728.21-728.24" 'contract: 'string? 'value: - _%str94481%_) + _%str95482%_) '#!void)))) (define string-index__0 - (lambda (_%str94520%_ _%char94521%_) - (let ((_%start94523%_ '0)) - (string-index__% _%str94520%_ _%char94521%_ _%start94523%_)))) + (lambda (_%str95521%_ _%char95522%_) + (let ((_%start95524%_ '0)) + (string-index__% _%str95521%_ _%char95522%_ _%start95524%_)))) (define string-index - (lambda _g99141_ - (let ((_g99142_ (let () (declare (not safe)) (##length _g99141_)))) - (cond ((let () (declare (not safe)) (##fx= _g99142_ 2)) - (apply string-index__0 _g99141_)) - ((let () (declare (not safe)) (##fx= _g99142_ 3)) - (apply string-index__% _g99141_)) + (lambda _g100171_ + (let ((_g100172_ (let () (declare (not safe)) (##length _g100171_)))) + (cond ((let () (declare (not safe)) (##fx= _g100172_ 2)) + (apply string-index__0 _g100171_)) + ((let () (declare (not safe)) (##fx= _g100172_ 3)) + (apply string-index__% _g100171_)) (else (##raise-wrong-number-of-arguments-exception string-index - _g99141_)))))) + _g100171_)))))) (define __string-index__% - (lambda (_%str94420%_ _%char94421%_ _%start94422%_) - (let* ((_%str94425%_ _%str94420%_) - (_%char94433%_ _%char94421%_) - (_%start94441%_ _%start94422%_) - (_%len94450%_ - (let () (declare (not safe)) (##string-length _%str94425%_)))) - (let _%lp94452%_ ((_%k94454%_ _%start94441%_)) - (let ((_%k94456%_ _%k94454%_)) - (if (let () (declare (not safe)) (##fx< _%k94456%_ _%len94450%_)) - (if (eq? _%char94433%_ + (lambda (_%str95421%_ _%char95422%_ _%start95423%_) + (let* ((_%str95426%_ _%str95421%_) + (_%char95434%_ _%char95422%_) + (_%start95442%_ _%start95423%_) + (_%len95451%_ + (let () (declare (not safe)) (##string-length _%str95426%_)))) + (let _%lp95453%_ ((_%k95455%_ _%start95442%_)) + (let ((_%k95457%_ _%k95455%_)) + (if (let () (declare (not safe)) (##fx< _%k95457%_ _%len95451%_)) + (if (eq? _%char95434%_ (let () (declare (not safe)) - (##string-ref _%str94425%_ _%k94456%_))) - _%k94456%_ - (_%lp94452%_ - (let () (declare (not safe)) (##fx+ _%k94456%_ '1)))) + (##string-ref _%str95426%_ _%k95457%_))) + _%k95457%_ + (_%lp95453%_ + (let () (declare (not safe)) (##fx+ _%k95457%_ '1)))) '#f)))))) (define __string-index__0 - (lambda (_%str94471%_ _%char94472%_) - (let ((_%start94474%_ '0)) - (__string-index__% _%str94471%_ _%char94472%_ _%start94474%_)))) + (lambda (_%str95472%_ _%char95473%_) + (let ((_%start95475%_ '0)) + (__string-index__% _%str95472%_ _%char95473%_ _%start95475%_)))) (define __string-index - (lambda _g99143_ - (let ((_g99144_ (let () (declare (not safe)) (##length _g99143_)))) - (cond ((let () (declare (not safe)) (##fx= _g99144_ 2)) - (apply __string-index__0 _g99143_)) - ((let () (declare (not safe)) (##fx= _g99144_ 3)) - (apply __string-index__% _g99143_)) + (lambda _g100173_ + (let ((_g100174_ (let () (declare (not safe)) (##length _g100173_)))) + (cond ((let () (declare (not safe)) (##fx= _g100174_ 2)) + (apply __string-index__0 _g100173_)) + ((let () (declare (not safe)) (##fx= _g100174_ 3)) + (apply __string-index__% _g100173_)) (else (##raise-wrong-number-of-arguments-exception __string-index - _g99143_)))))) + _g100173_)))))) (define string-rindex__% - (lambda (_%str94381%_ _%char94382%_ _%start94383%_) - (if (string? _%str94381%_) - (let ((_%str94387%_ _%str94381%_)) - (if (char? _%char94382%_) - (let ((_%char94397%_ _%char94382%_)) + (lambda (_%str95382%_ _%char95383%_ _%start95384%_) + (if (string? _%str95382%_) + (let ((_%str95388%_ _%str95382%_)) + (if (char? _%char95383%_) + (let ((_%char95398%_ _%char95383%_)) (__string-rindex__% - _%str94387%_ - _%char94397%_ - _%start94383%_)) + _%str95388%_ + _%char95398%_ + _%start95384%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@706.25-706.29" + '"\"gerbil/runtime/util.ss\"@740.25-740.29" 'contract: 'char? 'value: - _%char94382%_) + _%char95383%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@705.22-705.25" + '"\"gerbil/runtime/util.ss\"@739.22-739.25" 'contract: 'string? 'value: - _%str94381%_) + _%str95382%_) '#!void)))) (define string-rindex__0 - (lambda (_%str94410%_ _%char94411%_) - (let ((_%start94413%_ '#f)) - (string-rindex__% _%str94410%_ _%char94411%_ _%start94413%_)))) + (lambda (_%str95411%_ _%char95412%_) + (let ((_%start95414%_ '#f)) + (string-rindex__% _%str95411%_ _%char95412%_ _%start95414%_)))) (define string-rindex - (lambda _g99145_ - (let ((_g99146_ (let () (declare (not safe)) (##length _g99145_)))) - (cond ((let () (declare (not safe)) (##fx= _g99146_ 2)) - (apply string-rindex__0 _g99145_)) - ((let () (declare (not safe)) (##fx= _g99146_ 3)) - (apply string-rindex__% _g99145_)) + (lambda _g100175_ + (let ((_g100176_ (let () (declare (not safe)) (##length _g100175_)))) + (cond ((let () (declare (not safe)) (##fx= _g100176_ 2)) + (apply string-rindex__0 _g100175_)) + ((let () (declare (not safe)) (##fx= _g100176_ 3)) + (apply string-rindex__% _g100175_)) (else (##raise-wrong-number-of-arguments-exception string-rindex - _g99145_)))))) + _g100175_)))))) (define __string-rindex__% - (lambda (_%str94323%_ _%char94324%_ _%start94325%_) - (let* ((_%str94328%_ _%str94323%_) - (_%char94336%_ _%char94324%_) - (_%len94345%_ - (let () (declare (not safe)) (##string-length _%str94328%_))) - (_%start94347%_ - (if (fixnum? _%start94325%_) - _%start94325%_ - (let () (declare (not safe)) (##fx- _%len94345%_ '1))))) - (let _%lp94350%_ ((_%k94352%_ _%start94347%_)) - (let ((_%k94354%_ _%k94352%_)) - (if (let () (declare (not safe)) (##fx>= _%k94354%_ '0)) - (if (eq? _%char94336%_ + (lambda (_%str95324%_ _%char95325%_ _%start95326%_) + (let* ((_%str95329%_ _%str95324%_) + (_%char95337%_ _%char95325%_) + (_%len95346%_ + (let () (declare (not safe)) (##string-length _%str95329%_))) + (_%start95348%_ + (if (fixnum? _%start95326%_) + _%start95326%_ + (let () (declare (not safe)) (##fx- _%len95346%_ '1))))) + (let _%lp95351%_ ((_%k95353%_ _%start95348%_)) + (let ((_%k95355%_ _%k95353%_)) + (if (let () (declare (not safe)) (##fx>= _%k95355%_ '0)) + (if (eq? _%char95337%_ (let () (declare (not safe)) - (##string-ref _%str94328%_ _%k94354%_))) - _%k94354%_ - (_%lp94350%_ - (let () (declare (not safe)) (##fx- _%k94354%_ '1)))) + (##string-ref _%str95329%_ _%k95355%_))) + _%k95355%_ + (_%lp95351%_ + (let () (declare (not safe)) (##fx- _%k95355%_ '1)))) '#f)))))) (define __string-rindex__0 - (lambda (_%str94371%_ _%char94372%_) - (let ((_%start94374%_ '#f)) - (__string-rindex__% _%str94371%_ _%char94372%_ _%start94374%_)))) + (lambda (_%str95372%_ _%char95373%_) + (let ((_%start95375%_ '#f)) + (__string-rindex__% _%str95372%_ _%char95373%_ _%start95375%_)))) (define __string-rindex - (lambda _g99147_ - (let ((_g99148_ (let () (declare (not safe)) (##length _g99147_)))) - (cond ((let () (declare (not safe)) (##fx= _g99148_ 2)) - (apply __string-rindex__0 _g99147_)) - ((let () (declare (not safe)) (##fx= _g99148_ 3)) - (apply __string-rindex__% _g99147_)) + (lambda _g100177_ + (let ((_g100178_ (let () (declare (not safe)) (##length _g100177_)))) + (cond ((let () (declare (not safe)) (##fx= _g100178_ 2)) + (apply __string-rindex__0 _g100177_)) + ((let () (declare (not safe)) (##fx= _g100178_ 3)) + (apply __string-rindex__% _g100177_)) (else (##raise-wrong-number-of-arguments-exception __string-rindex - _g99147_)))))) + _g100177_)))))) (define string-split - (lambda (_%str94297%_ _%char94298%_) - (if (string? _%str94297%_) - (let ((_%str94302%_ _%str94297%_)) - (if (char? _%char94298%_) - (let ((_%char94312%_ _%char94298%_)) - (__string-split _%str94302%_ _%char94312%_)) + (lambda (_%str95298%_ _%char95299%_) + (if (string? _%str95298%_) + (let ((_%str95303%_ _%str95298%_)) + (if (char? _%char95299%_) + (let ((_%char95313%_ _%char95299%_)) + (__string-split _%str95303%_ _%char95313%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@717.37-717.41" + '"\"gerbil/runtime/util.ss\"@751.37-751.41" 'contract: 'char? 'value: - _%char94298%_) + _%char95299%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@717.21-717.24" + '"\"gerbil/runtime/util.ss\"@751.21-751.24" 'contract: 'string? 'value: - _%str94297%_) + _%str95298%_) '#!void)))) (define __string-split - (lambda (_%str94238%_ _%char94239%_) - (let* ((_%str94242%_ _%str94238%_) - (_%char94250%_ _%char94239%_) - (_%len94259%_ - (let () (declare (not safe)) (##string-length _%str94242%_)))) - (let _%lp94261%_ ((_%start94263%_ '0) (_%r94264%_ '())) - (let* ((_%start94267%_ _%start94263%_) - (_%$e94280%_ + (lambda (_%str95239%_ _%char95240%_) + (let* ((_%str95243%_ _%str95239%_) + (_%char95251%_ _%char95240%_) + (_%len95260%_ + (let () (declare (not safe)) (##string-length _%str95243%_)))) + (let _%lp95262%_ ((_%start95264%_ '0) (_%r95265%_ '())) + (let* ((_%start95268%_ _%start95264%_) + (_%$e95281%_ (__string-index__% - _%str94242%_ - _%char94250%_ - _%start94267%_))) - (if _%$e94280%_ - ((lambda (_%end94283%_) - (let ((_%end94285%_ _%end94283%_)) - (_%lp94261%_ - (let () (declare (not safe)) (##fx+ _%end94285%_ '1)) + _%str95243%_ + _%char95251%_ + _%start95268%_))) + (if _%$e95281%_ + ((lambda (_%end95284%_) + (let ((_%end95286%_ _%end95284%_)) + (_%lp95262%_ + (let () (declare (not safe)) (##fx+ _%end95286%_ '1)) (cons (let () (declare (not safe)) (##substring - _%str94242%_ - _%start94267%_ - _%end94285%_)) - _%r94264%_)))) - _%$e94280%_) + _%str95243%_ + _%start95268%_ + _%end95286%_)) + _%r95265%_)))) + _%$e95281%_) (if (let () (declare (not safe)) - (##fx< _%start94267%_ _%len94259%_)) + (##fx< _%start95268%_ _%len95260%_)) (__foldl1 cons (list (let () (declare (not safe)) (##substring - _%str94242%_ - _%start94267%_ - _%len94259%_))) - _%r94264%_) - (reverse! _%r94264%_)))))))) + _%str95243%_ + _%start95268%_ + _%len95260%_))) + _%r95265%_) + (reverse! _%r95265%_)))))))) (define string-join - (lambda (_%strs94088%_ _%join94089%_) - (letrec ((_%join-length94092%_ - (lambda (_%strs94176%_ _%jlen94177%_) - (let _%lp94179%_ ((_%rest94181%_ _%strs94176%_) - (_%len94182%_ '0)) - (let* ((_%len94184%_ _%len94182%_) - (_%rest9419294200%_ _%rest94181%_) - (_%else9419494208%_ (lambda () '0)) - (_%K9419694226%_ - (lambda (_%rest94211%_ _%hd94212%_) - (if (string? _%hd94212%_) - (let ((_%hd94214%_ _%hd94212%_)) - (if (pair? _%rest94211%_) - (_%lp94179%_ - _%rest94211%_ + (lambda (_%strs95089%_ _%join95090%_) + (letrec ((_%join-length95093%_ + (lambda (_%strs95177%_ _%jlen95178%_) + (let _%lp95180%_ ((_%rest95182%_ _%strs95177%_) + (_%len95183%_ '0)) + (let* ((_%len95185%_ _%len95183%_) + (_%rest9519395201%_ _%rest95182%_) + (_%else9519595209%_ (lambda () '0)) + (_%K9519795227%_ + (lambda (_%rest95212%_ _%hd95213%_) + (if (string? _%hd95213%_) + (let ((_%hd95215%_ _%hd95213%_)) + (if (pair? _%rest95212%_) + (_%lp95180%_ + _%rest95212%_ (fx+ (let () (declare (not safe)) (##string-length - _%hd94214%_)) - _%jlen94177%_ - _%len94184%_)) - (let ((__tmp99149 + _%hd95215%_)) + _%jlen95178%_ + _%len95185%_)) + (let ((__tmp100179 (let () (declare (not safe)) (##string-length - _%hd94214%_)))) + _%hd95215%_)))) (declare (not safe)) - (##fx+ __tmp99149 _%len94184%_)))) - (error '"expected string" _%hd94212%_))))) - (if (pair? _%rest9419294200%_) - (let ((_%hd9419794229%_ + (##fx+ __tmp100179 _%len95185%_)))) + (error '"expected string" _%hd95213%_))))) + (if (pair? _%rest9519395201%_) + (let ((_%hd9519895230%_ (let () (declare (not safe)) - (##car _%rest9419294200%_))) - (_%tl9419894231%_ + (##car _%rest9519395201%_))) + (_%tl9519995232%_ (let () (declare (not safe)) - (##cdr _%rest9419294200%_)))) - (let* ((_%hd94234%_ _%hd9419794229%_) - (_%rest94236%_ _%tl9419894231%_)) - (_%K9419694226%_ _%rest94236%_ _%hd94234%_))) - (_%else9419494208%_))))))) - (let* ((_%join94097%_ - (if (char? _%join94089%_) - (let () (declare (not safe)) (##string _%join94089%_)) - (if (string? _%join94089%_) - _%join94089%_ - (error '"expected string or char" _%join94089%_)))) - (_%jlen94099%_ + (##cdr _%rest9519395201%_)))) + (let* ((_%hd95235%_ _%hd9519895230%_) + (_%rest95237%_ _%tl9519995232%_)) + (_%K9519795227%_ _%rest95237%_ _%hd95235%_))) + (_%else9519595209%_))))))) + (let* ((_%join95098%_ + (if (char? _%join95090%_) + (let () (declare (not safe)) (##string _%join95090%_)) + (if (string? _%join95090%_) + _%join95090%_ + (error '"expected string or char" _%join95090%_)))) + (_%jlen95100%_ (let () (declare (not safe)) - (##string-length _%join94097%_))) - (_%olen94101%_ - (_%join-length94092%_ _%strs94088%_ _%jlen94099%_)) - (_%ostr94103%_ - (let () (declare (not safe)) (##make-string _%olen94101%_)))) - (let _%lp94106%_ ((_%rest94108%_ _%strs94088%_) (_%k94109%_ '0)) - (let* ((_%k94112%_ _%k94109%_) - (_%rest9412894136%_ _%rest94108%_) - (_%else9413094144%_ (lambda () '"")) - (_%K9413294164%_ - (lambda (_%rest94147%_ _%hd94148%_) - (let* ((_%hd94150%_ _%hd94148%_) - (_%hdlen94162%_ + (##string-length _%join95098%_))) + (_%olen95102%_ + (_%join-length95093%_ _%strs95089%_ _%jlen95100%_)) + (_%ostr95104%_ + (let () (declare (not safe)) (##make-string _%olen95102%_)))) + (let _%lp95107%_ ((_%rest95109%_ _%strs95089%_) (_%k95110%_ '0)) + (let* ((_%k95113%_ _%k95110%_) + (_%rest9512995137%_ _%rest95109%_) + (_%else9513195145%_ (lambda () '"")) + (_%K9513395165%_ + (lambda (_%rest95148%_ _%hd95149%_) + (let* ((_%hd95151%_ _%hd95149%_) + (_%hdlen95163%_ (let () (declare (not safe)) - (##string-length _%hd94150%_)))) - (if (pair? _%rest94147%_) + (##string-length _%hd95151%_)))) + (if (pair? _%rest95148%_) (begin (let () (declare (not safe)) (##substring-move! - _%hd94150%_ + _%hd95151%_ '0 - _%hdlen94162%_ - _%ostr94103%_ - _%k94112%_)) - (let ((__tmp99150 + _%hdlen95163%_ + _%ostr95104%_ + _%k95113%_)) + (let ((__tmp100180 (let () (declare (not safe)) - (##fx+ _%k94112%_ _%hdlen94162%_)))) + (##fx+ _%k95113%_ _%hdlen95163%_)))) (declare (not safe)) (##substring-move! - _%join94097%_ + _%join95098%_ '0 - _%jlen94099%_ - _%ostr94103%_ - __tmp99150)) - (_%lp94106%_ - _%rest94147%_ + _%jlen95100%_ + _%ostr95104%_ + __tmp100180)) + (_%lp95107%_ + _%rest95148%_ (let () (declare (not safe)) - (##fx+ _%k94112%_ - _%hdlen94162%_ - _%jlen94099%_)))) + (##fx+ _%k95113%_ + _%hdlen95163%_ + _%jlen95100%_)))) (begin (let () (declare (not safe)) (##substring-move! - _%hd94150%_ + _%hd95151%_ '0 - _%hdlen94162%_ - _%ostr94103%_ - _%k94112%_)) - _%ostr94103%_)))))) - (if (pair? _%rest9412894136%_) - (let ((_%hd9413394167%_ + _%hdlen95163%_ + _%ostr95104%_ + _%k95113%_)) + _%ostr95104%_)))))) + (if (pair? _%rest9512995137%_) + (let ((_%hd9513495168%_ (let () (declare (not safe)) - (##car _%rest9412894136%_))) - (_%tl9413494169%_ + (##car _%rest9512995137%_))) + (_%tl9513595170%_ (let () (declare (not safe)) - (##cdr _%rest9412894136%_)))) - (let* ((_%hd94172%_ _%hd9413394167%_) - (_%rest94174%_ _%tl9413494169%_)) - (_%K9413294164%_ _%rest94174%_ _%hd94172%_))) - (_%else9413094144%_)))))))) + (##cdr _%rest9512995137%_)))) + (let* ((_%hd95173%_ _%hd9513495168%_) + (_%rest95175%_ _%tl9513595170%_)) + (_%K9513395165%_ _%rest95175%_ _%hd95173%_))) + (_%else9513195145%_)))))))) (define read-u8vector__% - (lambda (_%bytes94014%_ _%port94015%_ _%start94016%_ _%end94017%_) - (if (u8vector? _%bytes94014%_) - (let ((_%bytes94021%_ _%bytes94014%_)) - (if (input-port? _%port94015%_) - (let ((_%port94031%_ _%port94015%_)) - (if ((lambda (_%o94040%_) - (and (fixnum? _%o94040%_) + (lambda (_%bytes95015%_ _%port95016%_ _%start95017%_ _%end95018%_) + (if (u8vector? _%bytes95015%_) + (let ((_%bytes95022%_ _%bytes95015%_)) + (if (input-port? _%port95016%_) + (let ((_%port95032%_ _%port95016%_)) + (if ((lambda (_%o95041%_) + (and (fixnum? _%o95041%_) (let () (declare (not safe)) - (##fx>= _%o94040%_ '0)) - (let ((__tmp99151 + (##fx>= _%o95041%_ '0)) + (let ((__tmp100181 (let () (declare (not safe)) - (##u8vector-length _%bytes94021%_)))) + (##u8vector-length _%bytes95022%_)))) (declare (not safe)) - (##fx< _%o94040%_ __tmp99151)))) - _%start94016%_) - (let ((_%start94044%_ _%start94016%_)) - (if ((lambda (_%o94053%_) - (and (fixnum? _%o94053%_) - (let ((__tmp99152 + (##fx< _%o95041%_ __tmp100181)))) + _%start95017%_) + (let ((_%start95045%_ _%start95017%_)) + (if ((lambda (_%o95054%_) + (and (fixnum? _%o95054%_) + (let ((__tmp100182 (let () (declare (not safe)) (##u8vector-length - _%bytes94021%_)))) + _%bytes95022%_)))) (declare (not safe)) - (##fx<= _%start94044%_ - _%o94053%_ - __tmp99152)))) - _%end94017%_) - (let ((_%end94057%_ _%end94017%_)) + (##fx<= _%start95045%_ + _%o95054%_ + __tmp100182)))) + _%end95018%_) + (let ((_%end95058%_ _%end95018%_)) (__read-u8vector__% - _%bytes94021%_ - _%port94031%_ - _%start94044%_ - _%end94057%_)) + _%bytes95022%_ + _%port95032%_ + _%start95045%_ + _%end95058%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@784.22-784.25" + '"\"gerbil/runtime/util.ss\"@818.22-818.25" 'contract: '(in-range-inclusive? start (u8vector-length bytes)) 'value: - _%end94017%_) + _%end95018%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@782.22-782.27" + '"\"gerbil/runtime/util.ss\"@816.22-816.27" 'contract: '(in-range? 0 (u8vector-length bytes)) 'value: - _%start94016%_) + _%start95017%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@781.22-781.26" + '"\"gerbil/runtime/util.ss\"@815.22-815.26" 'contract: 'input-port? 'value: - _%port94015%_) + _%port95016%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@780.22-780.27" + '"\"gerbil/runtime/util.ss\"@814.22-814.27" 'contract: 'u8vector? 'value: - _%bytes94014%_) + _%bytes95015%_) '#!void)))) (define read-u8vector__0 - (lambda (_%bytes94070%_ _%port94071%_) - (let* ((_%start94073%_ '0) - (_%end94075%_ (u8vector-length _%bytes94070%_))) + (lambda (_%bytes95071%_ _%port95072%_) + (let* ((_%start95074%_ '0) + (_%end95076%_ (u8vector-length _%bytes95071%_))) (read-u8vector__% - _%bytes94070%_ - _%port94071%_ - _%start94073%_ - _%end94075%_)))) + _%bytes95071%_ + _%port95072%_ + _%start95074%_ + _%end95076%_)))) (define read-u8vector__1 - (lambda (_%bytes94077%_ _%port94078%_ _%start94079%_) - (let ((_%end94081%_ (u8vector-length _%bytes94077%_))) + (lambda (_%bytes95078%_ _%port95079%_ _%start95080%_) + (let ((_%end95082%_ (u8vector-length _%bytes95078%_))) (read-u8vector__% - _%bytes94077%_ - _%port94078%_ - _%start94079%_ - _%end94081%_)))) + _%bytes95078%_ + _%port95079%_ + _%start95080%_ + _%end95082%_)))) (define read-u8vector - (lambda _g99153_ - (let ((_g99154_ (let () (declare (not safe)) (##length _g99153_)))) - (cond ((let () (declare (not safe)) (##fx= _g99154_ 2)) - (apply read-u8vector__0 _g99153_)) - ((let () (declare (not safe)) (##fx= _g99154_ 3)) - (apply read-u8vector__1 _g99153_)) - ((let () (declare (not safe)) (##fx= _g99154_ 4)) - (apply read-u8vector__% _g99153_)) + (lambda _g100183_ + (let ((_g100184_ (let () (declare (not safe)) (##length _g100183_)))) + (cond ((let () (declare (not safe)) (##fx= _g100184_ 2)) + (apply read-u8vector__0 _g100183_)) + ((let () (declare (not safe)) (##fx= _g100184_ 3)) + (apply read-u8vector__1 _g100183_)) + ((let () (declare (not safe)) (##fx= _g100184_ 4)) + (apply read-u8vector__% _g100183_)) (else (##raise-wrong-number-of-arguments-exception read-u8vector - _g99153_)))))) + _g100183_)))))) (define __read-u8vector__% - (lambda (_%bytes93953%_ _%port93954%_ _%start93955%_ _%end93956%_) - (let* ((_%bytes93959%_ _%bytes93953%_) - (_%port93967%_ _%port93954%_) - (_%start93975%_ _%start93955%_) - (_%end93983%_ _%end93956%_)) + (lambda (_%bytes94954%_ _%port94955%_ _%start94956%_ _%end94957%_) + (let* ((_%bytes94960%_ _%bytes94954%_) + (_%port94968%_ _%port94955%_) + (_%start94976%_ _%start94956%_) + (_%end94984%_ _%end94957%_)) (declare (not safe)) (##read-subu8vector - _%bytes93959%_ - _%start93975%_ - _%end93983%_ - _%port93967%_)))) + _%bytes94960%_ + _%start94976%_ + _%end94984%_ + _%port94968%_)))) (define __read-u8vector__0 - (lambda (_%bytes93995%_ _%port93996%_) - (let* ((_%start93998%_ '0) - (_%end94000%_ (u8vector-length _%bytes93995%_))) + (lambda (_%bytes94996%_ _%port94997%_) + (let* ((_%start94999%_ '0) + (_%end95001%_ (u8vector-length _%bytes94996%_))) (__read-u8vector__% - _%bytes93995%_ - _%port93996%_ - _%start93998%_ - _%end94000%_)))) + _%bytes94996%_ + _%port94997%_ + _%start94999%_ + _%end95001%_)))) (define __read-u8vector__1 - (lambda (_%bytes94002%_ _%port94003%_ _%start94004%_) - (let ((_%end94006%_ (u8vector-length _%bytes94002%_))) + (lambda (_%bytes95003%_ _%port95004%_ _%start95005%_) + (let ((_%end95007%_ (u8vector-length _%bytes95003%_))) (__read-u8vector__% - _%bytes94002%_ - _%port94003%_ - _%start94004%_ - _%end94006%_)))) + _%bytes95003%_ + _%port95004%_ + _%start95005%_ + _%end95007%_)))) (define __read-u8vector - (lambda _g99155_ - (let ((_g99156_ (let () (declare (not safe)) (##length _g99155_)))) - (cond ((let () (declare (not safe)) (##fx= _g99156_ 2)) - (apply __read-u8vector__0 _g99155_)) - ((let () (declare (not safe)) (##fx= _g99156_ 3)) - (apply __read-u8vector__1 _g99155_)) - ((let () (declare (not safe)) (##fx= _g99156_ 4)) - (apply __read-u8vector__% _g99155_)) + (lambda _g100185_ + (let ((_g100186_ (let () (declare (not safe)) (##length _g100185_)))) + (cond ((let () (declare (not safe)) (##fx= _g100186_ 2)) + (apply __read-u8vector__0 _g100185_)) + ((let () (declare (not safe)) (##fx= _g100186_ 3)) + (apply __read-u8vector__1 _g100185_)) + ((let () (declare (not safe)) (##fx= _g100186_ 4)) + (apply __read-u8vector__% _g100185_)) (else (##raise-wrong-number-of-arguments-exception __read-u8vector - _g99155_)))))) + _g100185_)))))) (define write-u8vector__% - (lambda (_%bytes93883%_ _%port93884%_ _%start93885%_ _%end93886%_) - (if (u8vector? _%bytes93883%_) - (let ((_%bytes93890%_ _%bytes93883%_)) - (if (output-port? _%port93884%_) - (let* ((_%port93900%_ _%port93884%_) - (_%start93909%_ _%start93885%_)) - (if ((lambda (_%o93917%_) - (and (fixnum? _%o93917%_) - (let ((__tmp99157 + (lambda (_%bytes94884%_ _%port94885%_ _%start94886%_ _%end94887%_) + (if (u8vector? _%bytes94884%_) + (let ((_%bytes94891%_ _%bytes94884%_)) + (if (output-port? _%port94885%_) + (let* ((_%port94901%_ _%port94885%_) + (_%start94910%_ _%start94886%_)) + (if ((lambda (_%o94918%_) + (and (fixnum? _%o94918%_) + (let ((__tmp100187 (let () (declare (not safe)) - (##u8vector-length _%bytes93890%_)))) + (##u8vector-length _%bytes94891%_)))) (declare (not safe)) - (##fx<= _%start93909%_ - _%o93917%_ - __tmp99157)))) - _%end93886%_) - (let ((_%end93921%_ _%end93886%_)) + (##fx<= _%start94910%_ + _%o94918%_ + __tmp100187)))) + _%end94887%_) + (let ((_%end94922%_ _%end94887%_)) (__write-u8vector__% - _%bytes93890%_ - _%port93900%_ - _%start93909%_ - _%end93921%_)) + _%bytes94891%_ + _%port94901%_ + _%start94910%_ + _%end94922%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@793.23-793.26" + '"\"gerbil/runtime/util.ss\"@827.23-827.26" 'contract: '(in-range-inclusive? start (u8vector-length bytes)) 'value: - _%end93886%_) + _%end94887%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@791.23-791.27" + '"\"gerbil/runtime/util.ss\"@825.23-825.27" 'contract: 'output-port? 'value: - _%port93884%_) + _%port94885%_) '#!void))) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/util.ss\"@790.23-790.28" + '"\"gerbil/runtime/util.ss\"@824.23-824.28" 'contract: 'u8vector? 'value: - _%bytes93883%_) + _%bytes94884%_) '#!void)))) (define write-u8vector__0 - (lambda (_%bytes93934%_ _%port93935%_) - (let* ((_%start93937%_ '0) - (_%end93939%_ (u8vector-length _%bytes93934%_))) + (lambda (_%bytes94935%_ _%port94936%_) + (let* ((_%start94938%_ '0) + (_%end94940%_ (u8vector-length _%bytes94935%_))) (write-u8vector__% - _%bytes93934%_ - _%port93935%_ - _%start93937%_ - _%end93939%_)))) + _%bytes94935%_ + _%port94936%_ + _%start94938%_ + _%end94940%_)))) (define write-u8vector__1 - (lambda (_%bytes93941%_ _%port93942%_ _%start93943%_) - (let ((_%end93945%_ (u8vector-length _%bytes93941%_))) + (lambda (_%bytes94942%_ _%port94943%_ _%start94944%_) + (let ((_%end94946%_ (u8vector-length _%bytes94942%_))) (write-u8vector__% - _%bytes93941%_ - _%port93942%_ - _%start93943%_ - _%end93945%_)))) + _%bytes94942%_ + _%port94943%_ + _%start94944%_ + _%end94946%_)))) (define write-u8vector - (lambda _g99158_ - (let ((_g99159_ (let () (declare (not safe)) (##length _g99158_)))) - (cond ((let () (declare (not safe)) (##fx= _g99159_ 2)) - (apply write-u8vector__0 _g99158_)) - ((let () (declare (not safe)) (##fx= _g99159_ 3)) - (apply write-u8vector__1 _g99158_)) - ((let () (declare (not safe)) (##fx= _g99159_ 4)) - (apply write-u8vector__% _g99158_)) + (lambda _g100188_ + (let ((_g100189_ (let () (declare (not safe)) (##length _g100188_)))) + (cond ((let () (declare (not safe)) (##fx= _g100189_ 2)) + (apply write-u8vector__0 _g100188_)) + ((let () (declare (not safe)) (##fx= _g100189_ 3)) + (apply write-u8vector__1 _g100188_)) + ((let () (declare (not safe)) (##fx= _g100189_ 4)) + (apply write-u8vector__% _g100188_)) (else (##raise-wrong-number-of-arguments-exception write-u8vector - _g99158_)))))) + _g100188_)))))) (define __write-u8vector__% - (lambda (_%bytes93822%_ _%port93823%_ _%start93824%_ _%end93825%_) - (let* ((_%bytes93828%_ _%bytes93822%_) - (_%port93836%_ _%port93823%_) - (_%start93844%_ _%start93824%_) - (_%end93852%_ _%end93825%_)) + (lambda (_%bytes94823%_ _%port94824%_ _%start94825%_ _%end94826%_) + (let* ((_%bytes94829%_ _%bytes94823%_) + (_%port94837%_ _%port94824%_) + (_%start94845%_ _%start94825%_) + (_%end94853%_ _%end94826%_)) (declare (not safe)) (##write-subu8vector - _%bytes93828%_ - _%start93844%_ - _%end93852%_ - _%port93836%_)))) + _%bytes94829%_ + _%start94845%_ + _%end94853%_ + _%port94837%_)))) (define __write-u8vector__0 - (lambda (_%bytes93864%_ _%port93865%_) - (let* ((_%start93867%_ '0) - (_%end93869%_ (u8vector-length _%bytes93864%_))) + (lambda (_%bytes94865%_ _%port94866%_) + (let* ((_%start94868%_ '0) + (_%end94870%_ (u8vector-length _%bytes94865%_))) (__write-u8vector__% - _%bytes93864%_ - _%port93865%_ - _%start93867%_ - _%end93869%_)))) + _%bytes94865%_ + _%port94866%_ + _%start94868%_ + _%end94870%_)))) (define __write-u8vector__1 - (lambda (_%bytes93871%_ _%port93872%_ _%start93873%_) - (let ((_%end93875%_ (u8vector-length _%bytes93871%_))) + (lambda (_%bytes94872%_ _%port94873%_ _%start94874%_) + (let ((_%end94876%_ (u8vector-length _%bytes94872%_))) (__write-u8vector__% - _%bytes93871%_ - _%port93872%_ - _%start93873%_ - _%end93875%_)))) + _%bytes94872%_ + _%port94873%_ + _%start94874%_ + _%end94876%_)))) (define __write-u8vector - (lambda _g99160_ - (let ((_g99161_ (let () (declare (not safe)) (##length _g99160_)))) - (cond ((let () (declare (not safe)) (##fx= _g99161_ 2)) - (apply __write-u8vector__0 _g99160_)) - ((let () (declare (not safe)) (##fx= _g99161_ 3)) - (apply __write-u8vector__1 _g99160_)) - ((let () (declare (not safe)) (##fx= _g99161_ 4)) - (apply __write-u8vector__% _g99160_)) + (lambda _g100190_ + (let ((_g100191_ (let () (declare (not safe)) (##length _g100190_)))) + (cond ((let () (declare (not safe)) (##fx= _g100191_ 2)) + (apply __write-u8vector__0 _g100190_)) + ((let () (declare (not safe)) (##fx= _g100191_ 3)) + (apply __write-u8vector__1 _g100190_)) + ((let () (declare (not safe)) (##fx= _g100191_ 4)) + (apply __write-u8vector__% _g100190_)) (else (##raise-wrong-number-of-arguments-exception __write-u8vector - _g99160_)))))) + _g100190_)))))) (define DBG-printer (make-parameter write)) (define DBG-helper - (lambda (_%tag93790%_ - _%dbg-exprs93791%_ - _%dbg-thunks93792%_ - _%expr93793%_ - _%thunk93794%_) - (letrec ((_%o93796%_ (current-output-port)) - (_%e93797%_ (current-error-port)) - (_%p93798%_ (let () (declare (not safe)) (DBG-printer))) - (_%f93799%_ + (lambda (_%tag94791%_ + _%dbg-exprs94792%_ + _%dbg-thunks94793%_ + _%expr94794%_ + _%thunk94795%_) + (letrec ((_%o94797%_ (current-output-port)) + (_%e94798%_ (current-error-port)) + (_%p94799%_ (let () (declare (not safe)) (DBG-printer))) + (_%f94800%_ (lambda () - (force-output _%o93796%_) - (force-output _%e93797%_))) - (_%d93800%_ - (lambda (_%x93807%_) (display _%x93807%_ _%e93797%_))) - (_%w93801%_ - (lambda (_%x93809%_) (_%p93798%_ _%x93809%_ _%e93797%_))) - (_%n93802%_ (lambda () (newline _%e93797%_))) - (_%v93803%_ - (lambda (_%l93812%_) + (force-output _%o94797%_) + (force-output _%e94798%_))) + (_%d94801%_ + (lambda (_%x94808%_) (display _%x94808%_ _%e94798%_))) + (_%w94802%_ + (lambda (_%x94810%_) (_%p94799%_ _%x94810%_ _%e94798%_))) + (_%n94803%_ (lambda () (newline _%e94798%_))) + (_%v94804%_ + (lambda (_%l94813%_) (for-each - (lambda (_%x93814%_) - (_%d93800%_ '" ") - (_%w93801%_ _%x93814%_)) - _%l93812%_) - (_%n93802%_))) - (_%x93804%_ - (lambda (_%expr93816%_ _%thunk93817%_) - (_%f93799%_) - (_%d93800%_ '" ") - (_%w93801%_ _%expr93816%_) - (_%d93800%_ '" =>") + (lambda (_%x94815%_) + (_%d94801%_ '" ") + (_%w94802%_ _%x94815%_)) + _%l94813%_) + (_%n94803%_))) + (_%x94805%_ + (lambda (_%expr94817%_ _%thunk94818%_) + (_%f94800%_) + (_%d94801%_ '" ") + (_%w94802%_ _%expr94817%_) + (_%d94801%_ '" =>") (call-with-values - _%thunk93817%_ - (lambda _%x93819%_ - (_%v93803%_ _%x93819%_) - (_%f93799%_) + _%thunk94818%_ + (lambda _%x94820%_ + (_%v94804%_ _%x94820%_) + (_%f94800%_) (let () (declare (not safe)) - (##apply values _%x93819%_))))))) - (if _%tag93790%_ + (##apply values _%x94820%_))))))) + (if _%tag94791%_ (begin - (if (eq? _%tag93790%_ '#!void) + (if (eq? _%tag94791%_ '#!void) '#!void (begin - (_%f93799%_) - (_%d93800%_ _%tag93790%_) - (_%n93802%_))) - (for-each _%x93804%_ _%dbg-exprs93791%_ _%dbg-thunks93792%_) - (if _%thunk93794%_ - (_%x93804%_ _%expr93793%_ _%thunk93794%_) + (_%f94800%_) + (_%d94801%_ _%tag94791%_) + (_%n94803%_))) + (for-each _%x94805%_ _%dbg-exprs94792%_ _%dbg-thunks94793%_) + (if _%thunk94795%_ + (_%x94805%_ _%expr94794%_ _%thunk94795%_) '#!void)) - (if _%thunk93794%_ (_%thunk93794%_) '#!void))))))) + (if _%thunk94795%_ (_%thunk94795%_) '#!void))))))) diff --git a/src/bootstrap/gerbil/runtime/util~1.scm b/src/bootstrap/gerbil/runtime/util~1.scm index 00c3e4c8a1..91d08d07ca 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]#_g99163_| + (define |[1]#_g100193_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |[1]#_g99173_| + (define |[1]#_g100203_| (##structure gx#syntax-quote::t 'quote @@ -16,49 +16,50 @@ '())) (begin (define |[:0:]#declare-inline| - (lambda (_%$stx92123%_) - (let* ((_%g9212792145%_ - (lambda (_%g9212892141%_) + (lambda (_%$stx92985%_) + (let* ((_%g9298993007%_ + (lambda (_%g9299093003%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9212892141%_))) - (_%g9212692201%_ - (lambda (_%g9212892149%_) - (if (gx#stx-pair? _%g9212892149%_) - (let ((_%e9213192152%_ (gx#syntax-e _%g9212892149%_))) - (let ((_%hd9213292156%_ + _%g9299093003%_))) + (_%g9298893063%_ + (lambda (_%g9299093011%_) + (if (gx#stx-pair? _%g9299093011%_) + (let ((_%e9299393014%_ (gx#syntax-e _%g9299093011%_))) + (let ((_%hd9299493018%_ (let () (declare (not safe)) - (##car _%e9213192152%_))) - (_%tl9213392159%_ + (##car _%e9299393014%_))) + (_%tl9299593021%_ (let () (declare (not safe)) - (##cdr _%e9213192152%_)))) - (if (gx#stx-pair? _%tl9213392159%_) - (let ((_%e9213492162%_ - (gx#syntax-e _%tl9213392159%_))) - (let ((_%hd9213592166%_ + (##cdr _%e9299393014%_)))) + (if (gx#stx-pair? _%tl9299593021%_) + (let ((_%e9299693024%_ + (gx#syntax-e _%tl9299593021%_))) + (let ((_%hd9299793028%_ (let () (declare (not safe)) - (##car _%e9213492162%_))) - (_%tl9213692169%_ + (##car _%e9299693024%_))) + (_%tl9299893031%_ (let () (declare (not safe)) - (##cdr _%e9213492162%_)))) - (if (gx#stx-pair? _%tl9213692169%_) - (let ((_%e9213792172%_ - (gx#syntax-e _%tl9213692169%_))) - (let ((_%hd9213892176%_ + (##cdr _%e9299693024%_)))) + (if (gx#stx-pair? _%tl9299893031%_) + (let ((_%e9299993034%_ + (gx#syntax-e _%tl9299893031%_))) + (let ((_%hd9300093038%_ (let () (declare (not safe)) - (##car _%e9213792172%_))) - (_%tl9213992179%_ + (##car _%e9299993034%_))) + (_%tl9300193041%_ (let () (declare (not safe)) - (##cdr _%e9213792172%_)))) - (if (gx#stx-null? _%tl9213992179%_) - ((lambda (_%L92182%_ _%L92184%_) + (##cdr _%e9299993034%_)))) + (if (gx#stx-null? _%tl9300193041%_) + ((lambda (_%g9299193044%_ + _%g9299293046%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -66,213 +67,408 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@inline) - (cons _%L92184%_ '())) + (cons _%g9299293046%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L92182%_ '())) + (cons _%g9299193044%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9213892176%_ - _%hd9213592166%_) - (_%g9212792145%_ - _%g9212892149%_)))) - (_%g9212792145%_ _%g9212892149%_)))) - (_%g9212792145%_ _%g9212892149%_)))) - (_%g9212792145%_ _%g9212892149%_))))) - (_%g9212692201%_ _%$stx92123%_)))) - (define |[:0:]#__lock-inline!| - (lambda (_%$stx92205%_) - (let* ((_%g9220992223%_ - (lambda (_%g9221092219%_) + _%hd9300093038%_ + _%hd9299793028%_) + (_%g9298993007%_ + _%g9299093011%_)))) + (_%g9298993007%_ _%g9299093011%_)))) + (_%g9298993007%_ _%g9299093011%_)))) + (_%g9298993007%_ _%g9299093011%_))))) + (_%g9298893063%_ _%$stx92985%_)))) + (define |[:0:]#__make-inline-lock| + (lambda (_%$stx93067%_) + (let* ((_%g9307193081%_ + (lambda (_%g9307293077%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9221092219%_))) - (_%g9220892264%_ - (lambda (_%g9221092227%_) - (if (gx#stx-pair? _%g9221092227%_) - (let ((_%e9221292230%_ (gx#syntax-e _%g9221092227%_))) - (let ((_%hd9221392234%_ + _%g9307293077%_))) + (_%g9307093102%_ + (lambda (_%g9307293085%_) + (if (gx#stx-pair? _%g9307293085%_) + (let ((_%e9307393088%_ (gx#syntax-e _%g9307293085%_))) + (let ((_%hd9307493092%_ (let () (declare (not safe)) - (##car _%e9221292230%_))) - (_%tl9221492237%_ + (##car _%e9307393088%_))) + (_%tl9307593095%_ (let () (declare (not safe)) - (##cdr _%e9221292230%_)))) - (if (gx#stx-pair? _%tl9221492237%_) - (let ((_%e9221592240%_ - (gx#syntax-e _%tl9221492237%_))) - (let ((_%hd9221692244%_ - (let () - (declare (not safe)) - (##car _%e9221592240%_))) - (_%tl9221792247%_ - (let () - (declare (not safe)) - (##cdr _%e9221592240%_)))) - (if (gx#stx-null? _%tl9221792247%_) - ((lambda (_%L92250%_) - (cons (gx#datum->syntax '#f 'let) - (cons '() - (cons (cons (gx#datum->syntax + (##cdr _%e9307393088%_)))) + (if (gx#stx-null? _%tl9307593095%_) + ((lambda () + (cons (gx#datum->syntax '#f 'vector) + (cons '0 (cons '#f '()))))) + (_%g9307193081%_ _%g9307293085%_)))) + (_%g9307193081%_ _%g9307293085%_))))) + (_%g9307093102%_ _%$stx93067%_)))) + (define |[:0:]#__lock-inline!| + (lambda (_%$stx93106%_) + (let* ((_%__stx9967099671%_ _%$stx93106%_) + (_%g9311193136%_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%__stx9967099671%_)))) + (let ((_%__kont9967399674%_ + (lambda (_%g9311393214%_ _%g9311493216%_) + (cons (gx#datum->syntax '#f 'let) + (cons '() + (cons (cons (gx#datum->syntax '#f 'declare) + (cons (cons (gx#datum->syntax + '#f + 'not) + (cons (gx#datum->syntax + '#f + 'interrupts-enabled) + '())) + '())) + (cons (cons (gx#datum->syntax '#f 'let) + (cons (gx#datum->syntax + '#f + 'again) + (cons (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'spin) + (cons '0 '())) + '()) + (cons (cons (gx#datum->syntax '#f 'cond) + (cons (cons (cons (gx#datum->syntax + '#f + '##fx=) + (cons (cons (gx#datum->syntax + '#f + '##vector-cas!) + (cons _%g9311493216%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons '0 (cons '1 (cons '0 '()))))) + (cons '0 '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + '##vector-set!) + (cons _%g9311493216%_ + (cons '1 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (cons (gx#datum->syntax '#f 'current-thread) + '()) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())) + (cons (cons (cons (gx#datum->syntax + '#f + '##fx<) + (cons (gx#datum->syntax + '#f + 'spin) + (cons _%g9311393214%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + '##thread-yield!) + '()) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'again) + (cons (cons (gx#datum->syntax '#f '##fx+) + (cons (gx#datum->syntax '#f 'spin) + (cons '1 '()))) + '())) + '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (gx#datum->syntax + '#f + 'else) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'let) + (cons (cons (gx#datum->syntax '#f 'owner) + (cons (cons (gx#datum->syntax + '#f + '##vector-ref) + (cons _%g9311493216%_ + (cons '1 '()))) + '())) + (cons (cons (gx#datum->syntax '#f 'cond) + (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f - 'declare) - (cons (cons (gx#datum->syntax '#f 'not) - (cons (gx#datum->syntax + 'eq?) + (cons (gx#datum->syntax '#f 'owner) + (cons (cons (gx#datum->syntax '#f - 'interrupts-enabled) - '())) - '())) - (cons (cons (gx#datum->syntax '#f 'let) - (cons (gx#datum->syntax '#f 'again) - (cons '() - (cons (cons (gx#datum->syntax - '#f - 'unless) - (cons (cons (gx#datum->syntax + 'macro-current-thread) + '()) + '()))) + (cons (cons (gx#datum->syntax + '#f + '##thread-deadlock-action!) + '()) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '#f - '##fx=) - (cons (cons (gx#datum->syntax '#f '##vector-cas!) - (cons _%L92250%_ - (cons '0 - (cons '1 (cons '0 '()))))) - (cons '0 '()))) - (cons (cons (gx#datum->syntax '#f '##thread-yield!) '()) - (cons (cons (gx#datum->syntax '#f 'again) '()) - '())))) + '#f + 'not) + (cons (cons (gx#datum->syntax + '#f + 'macro-thread-end-condvar) + (cons (gx#datum->syntax '#f 'owner) + '())) + '())) + (cons (cons (gx#datum->syntax + '#f + '##thread-deadlock-action!) + '()) + '())) + (cons (cons (gx#datum->syntax '#f 'else) + (cons (cons (gx#datum->syntax + '#f + '##thread-yield!) + '()) + (cons (cons (gx#datum->syntax '#f 'again) + (cons '0 '())) + '()))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - '())))) - '()))))) + '()))) + '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + '())))) + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9221692244%_) - (_%g9220992223%_ _%g9221092227%_)))) - (_%g9220992223%_ _%g9221092227%_)))) - (_%g9220992223%_ _%g9221092227%_))))) - (_%g9220892264%_ _%$stx92205%_)))) + '())))))) + (_%__kont9967599676%_ + (lambda (_%g9312493163%_) + (cons (gx#datum->syntax '#f '__lock-inline!) + (cons _%g9312493163%_ (cons '10 '())))))) + (if (gx#stx-pair? _%__stx9967099671%_) + (let ((_%e9311593184%_ (gx#syntax-e _%__stx9967099671%_))) + (let ((_%tl9311793191%_ + (let () (declare (not safe)) (##cdr _%e9311593184%_))) + (_%hd9311693188%_ + (let () + (declare (not safe)) + (##car _%e9311593184%_)))) + (if (gx#stx-pair? _%tl9311793191%_) + (let ((_%e9311893194%_ (gx#syntax-e _%tl9311793191%_))) + (let ((_%tl9312093201%_ + (let () + (declare (not safe)) + (##cdr _%e9311893194%_))) + (_%hd9311993198%_ + (let () + (declare (not safe)) + (##car _%e9311893194%_)))) + (if (gx#stx-pair? _%tl9312093201%_) + (let ((_%e9312193204%_ + (gx#syntax-e _%tl9312093201%_))) + (let ((_%tl9312393211%_ + (let () + (declare (not safe)) + (##cdr _%e9312193204%_))) + (_%hd9312293208%_ + (let () + (declare (not safe)) + (##car _%e9312193204%_)))) + (if (gx#stx-null? _%tl9312393211%_) + (_%__kont9967399674%_ + _%hd9312293208%_ + _%hd9311993198%_) + (let () + (declare (not safe)) + (_%g9311193136%_))))) + (if (gx#stx-null? _%tl9312093201%_) + (_%__kont9967599676%_ _%hd9311993198%_) + (let () + (declare (not safe)) + (_%g9311193136%_)))))) + (let () (declare (not safe)) (_%g9311193136%_))))) + (let () (declare (not safe)) (_%g9311193136%_))))))) (define |[:0:]#__unlock-inline!| - (lambda (_%$stx92268%_) - (let* ((_%g9227292286%_ - (lambda (_%g9227392282%_) + (lambda (_%$stx93235%_) + (let* ((_%g9323993253%_ + (lambda (_%g9324093249%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9227392282%_))) - (_%g9227192327%_ - (lambda (_%g9227392290%_) - (if (gx#stx-pair? _%g9227392290%_) - (let ((_%e9227592293%_ (gx#syntax-e _%g9227392290%_))) - (let ((_%hd9227692297%_ + _%g9324093249%_))) + (_%g9323893294%_ + (lambda (_%g9324093257%_) + (if (gx#stx-pair? _%g9324093257%_) + (let ((_%e9324293260%_ (gx#syntax-e _%g9324093257%_))) + (let ((_%hd9324393264%_ (let () (declare (not safe)) - (##car _%e9227592293%_))) - (_%tl9227792300%_ + (##car _%e9324293260%_))) + (_%tl9324493267%_ (let () (declare (not safe)) - (##cdr _%e9227592293%_)))) - (if (gx#stx-pair? _%tl9227792300%_) - (let ((_%e9227892303%_ - (gx#syntax-e _%tl9227792300%_))) - (let ((_%hd9227992307%_ + (##cdr _%e9324293260%_)))) + (if (gx#stx-pair? _%tl9324493267%_) + (let ((_%e9324593270%_ + (gx#syntax-e _%tl9324493267%_))) + (let ((_%hd9324693274%_ (let () (declare (not safe)) - (##car _%e9227892303%_))) - (_%tl9228092310%_ + (##car _%e9324593270%_))) + (_%tl9324793277%_ (let () (declare (not safe)) - (##cdr _%e9227892303%_)))) - (if (gx#stx-null? _%tl9228092310%_) - ((lambda (_%L92313%_) - (cons (gx#datum->syntax - '#f - '##vector-cas!) - (cons _%L92313%_ - (cons '0 - (cons '0 + (##cdr _%e9324593270%_)))) + (if (gx#stx-null? _%tl9324793277%_) + ((lambda (_%g9324193280%_) + (cons (gx#datum->syntax '#f 'begin) + (cons (cons (gx#datum->syntax + '#f + '##vector-set!) + (cons _%g9324193280%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '1 '())))))) + (cons '1 (cons '#f '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9227992307%_) - (_%g9227292286%_ _%g9227392290%_)))) - (_%g9227292286%_ _%g9227392290%_)))) - (_%g9227292286%_ _%g9227392290%_))))) - (_%g9227192327%_ _%$stx92268%_)))) - (define |[:0:]#__make-inline-lock| - (lambda (_%$stx92331%_) - (let* ((_%g9233592345%_ - (lambda (_%g9233692341%_) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '##vector-cas!) + (cons _%g9324193280%_ + (cons '0 (cons '0 (cons '1 '()))))) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd9324693274%_) + (_%g9323993253%_ _%g9324093257%_)))) + (_%g9323993253%_ _%g9324093257%_)))) + (_%g9323993253%_ _%g9324093257%_))))) + (_%g9323893294%_ _%$stx93235%_)))) + (define |[:0:]#__do-inline-lock!| + (lambda (_%$stx93298%_) + (let* ((_%g9330293320%_ + (lambda (_%g9330393316%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9233692341%_))) - (_%g9233492366%_ - (lambda (_%g9233692349%_) - (if (gx#stx-pair? _%g9233692349%_) - (let ((_%e9233792352%_ (gx#syntax-e _%g9233692349%_))) - (let ((_%hd9233892356%_ + _%g9330393316%_))) + (_%g9330193375%_ + (lambda (_%g9330393324%_) + (if (gx#stx-pair? _%g9330393324%_) + (let ((_%e9330693327%_ (gx#syntax-e _%g9330393324%_))) + (let ((_%hd9330793331%_ (let () (declare (not safe)) - (##car _%e9233792352%_))) - (_%tl9233992359%_ + (##car _%e9330693327%_))) + (_%tl9330893334%_ (let () (declare (not safe)) - (##cdr _%e9233792352%_)))) - (if (gx#stx-null? _%tl9233992359%_) - ((lambda () - (cons (gx#datum->syntax '#f 'vector) - (cons '0 '())))) - (_%g9233592345%_ _%g9233692349%_)))) - (_%g9233592345%_ _%g9233692349%_))))) - (_%g9233492366%_ _%$stx92331%_)))) + (##cdr _%e9330693327%_)))) + (if (gx#stx-pair? _%tl9330893334%_) + (let ((_%e9330993337%_ + (gx#syntax-e _%tl9330893334%_))) + (let ((_%hd9331093341%_ + (let () + (declare (not safe)) + (##car _%e9330993337%_))) + (_%tl9331193344%_ + (let () + (declare (not safe)) + (##cdr _%e9330993337%_)))) + (if (gx#stx-pair? _%tl9331193344%_) + (let ((_%e9331293347%_ + (gx#syntax-e _%tl9331193344%_))) + (let ((_%hd9331393351%_ + (let () + (declare (not safe)) + (##car _%e9331293347%_))) + (_%tl9331493354%_ + (let () + (declare (not safe)) + (##cdr _%e9331293347%_)))) + (if (gx#stx-null? _%tl9331493354%_) + ((lambda (_%g9330493357%_ + _%g9330593359%_) + (cons (gx#datum->syntax + '#f + 'begin) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '__lock-inline!) + (cons _%g9330593359%_ '())) + (cons (cons (gx#datum->syntax '#f 'begin0) + (cons _%g9330493357%_ + (cons (cons (gx#datum->syntax + '#f + '__unlock-inline!) + (cons _%g9330593359%_ '())) + '()))) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd9331393351%_ + _%hd9331093341%_) + (_%g9330293320%_ + _%g9330393324%_)))) + (_%g9330293320%_ _%g9330393324%_)))) + (_%g9330293320%_ _%g9330393324%_)))) + (_%g9330293320%_ _%g9330393324%_))))) + (_%g9330193375%_ _%$stx93298%_)))) (define |[:0:]#defaget| - (lambda (_%$stx92370%_) - (let* ((_%g9237492392%_ - (lambda (_%g9237592388%_) + (lambda (_%$stx93379%_) + (let* ((_%g9338393401%_ + (lambda (_%g9338493397%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9237592388%_))) - (_%g9237392447%_ - (lambda (_%g9237592396%_) - (if (gx#stx-pair? _%g9237592396%_) - (let ((_%e9237892399%_ (gx#syntax-e _%g9237592396%_))) - (let ((_%hd9237992403%_ + _%g9338493397%_))) + (_%g9338293456%_ + (lambda (_%g9338493405%_) + (if (gx#stx-pair? _%g9338493405%_) + (let ((_%e9338793408%_ (gx#syntax-e _%g9338493405%_))) + (let ((_%hd9338893412%_ (let () (declare (not safe)) - (##car _%e9237892399%_))) - (_%tl9238092406%_ + (##car _%e9338793408%_))) + (_%tl9338993415%_ (let () (declare (not safe)) - (##cdr _%e9237892399%_)))) - (if (gx#stx-pair? _%tl9238092406%_) - (let ((_%e9238192409%_ - (gx#syntax-e _%tl9238092406%_))) - (let ((_%hd9238292413%_ + (##cdr _%e9338793408%_)))) + (if (gx#stx-pair? _%tl9338993415%_) + (let ((_%e9339093418%_ + (gx#syntax-e _%tl9338993415%_))) + (let ((_%hd9339193422%_ (let () (declare (not safe)) - (##car _%e9238192409%_))) - (_%tl9238392416%_ + (##car _%e9339093418%_))) + (_%tl9339293425%_ (let () (declare (not safe)) - (##cdr _%e9238192409%_)))) - (if (gx#stx-pair? _%tl9238392416%_) - (let ((_%e9238492419%_ - (gx#syntax-e _%tl9238392416%_))) - (let ((_%hd9238592423%_ + (##cdr _%e9339093418%_)))) + (if (gx#stx-pair? _%tl9339293425%_) + (let ((_%e9339393428%_ + (gx#syntax-e _%tl9339293425%_))) + (let ((_%hd9339493432%_ (let () (declare (not safe)) - (##car _%e9238492419%_))) - (_%tl9238692426%_ + (##car _%e9339393428%_))) + (_%tl9339593435%_ (let () (declare (not safe)) - (##cdr _%e9238492419%_)))) - (if (gx#stx-null? _%tl9238692426%_) - ((lambda (_%L92429%_ _%L92431%_) + (##cdr _%e9339393428%_)))) + (if (gx#stx-null? _%tl9339593435%_) + ((lambda (_%g9338593438%_ + _%g9338693440%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L92431%_ + (cons (cons _%g9338693440%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'lst) @@ -291,7 +487,7 @@ '#f 'lst) '())) - (cons (cons _%L92429%_ + (cons (cons _%g9338593438%_ (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'lst) '()))) '()))) @@ -328,62 +524,63 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9238592423%_ - _%hd9238292413%_) - (_%g9237492392%_ - _%g9237592396%_)))) - (_%g9237492392%_ _%g9237592396%_)))) - (_%g9237492392%_ _%g9237592396%_)))) - (_%g9237492392%_ _%g9237592396%_))))) - (_%g9237392447%_ _%$stx92370%_)))) + _%hd9339493432%_ + _%hd9339193422%_) + (_%g9338393401%_ + _%g9338493405%_)))) + (_%g9338393401%_ _%g9338493405%_)))) + (_%g9338393401%_ _%g9338493405%_)))) + (_%g9338393401%_ _%g9338493405%_))))) + (_%g9338293456%_ _%$stx93379%_)))) (define |[:0:]#defpget| - (lambda (_%$stx92451%_) - (let* ((_%g9245592473%_ - (lambda (_%g9245692469%_) + (lambda (_%$stx93460%_) + (let* ((_%g9346493482%_ + (lambda (_%g9346593478%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9245692469%_))) - (_%g9245492528%_ - (lambda (_%g9245692477%_) - (if (gx#stx-pair? _%g9245692477%_) - (let ((_%e9245992480%_ (gx#syntax-e _%g9245692477%_))) - (let ((_%hd9246092484%_ + _%g9346593478%_))) + (_%g9346393537%_ + (lambda (_%g9346593486%_) + (if (gx#stx-pair? _%g9346593486%_) + (let ((_%e9346893489%_ (gx#syntax-e _%g9346593486%_))) + (let ((_%hd9346993493%_ (let () (declare (not safe)) - (##car _%e9245992480%_))) - (_%tl9246192487%_ + (##car _%e9346893489%_))) + (_%tl9347093496%_ (let () (declare (not safe)) - (##cdr _%e9245992480%_)))) - (if (gx#stx-pair? _%tl9246192487%_) - (let ((_%e9246292490%_ - (gx#syntax-e _%tl9246192487%_))) - (let ((_%hd9246392494%_ + (##cdr _%e9346893489%_)))) + (if (gx#stx-pair? _%tl9347093496%_) + (let ((_%e9347193499%_ + (gx#syntax-e _%tl9347093496%_))) + (let ((_%hd9347293503%_ (let () (declare (not safe)) - (##car _%e9246292490%_))) - (_%tl9246492497%_ + (##car _%e9347193499%_))) + (_%tl9347393506%_ (let () (declare (not safe)) - (##cdr _%e9246292490%_)))) - (if (gx#stx-pair? _%tl9246492497%_) - (let ((_%e9246592500%_ - (gx#syntax-e _%tl9246492497%_))) - (let ((_%hd9246692504%_ + (##cdr _%e9347193499%_)))) + (if (gx#stx-pair? _%tl9347393506%_) + (let ((_%e9347493509%_ + (gx#syntax-e _%tl9347393506%_))) + (let ((_%hd9347593513%_ (let () (declare (not safe)) - (##car _%e9246592500%_))) - (_%tl9246792507%_ + (##car _%e9347493509%_))) + (_%tl9347693516%_ (let () (declare (not safe)) - (##cdr _%e9246592500%_)))) - (if (gx#stx-null? _%tl9246792507%_) - ((lambda (_%L92510%_ _%L92512%_) + (##cdr _%e9347493509%_)))) + (if (gx#stx-null? _%tl9347693516%_) + ((lambda (_%g9346693519%_ + _%g9346793521%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L92512%_ + (cons (cons _%g9346793521%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'lst) @@ -418,7 +615,7 @@ '#f 'rest)))) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L92510%_ + (cons (cons _%g9346693519%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -458,62 +655,63 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9246692504%_ - _%hd9246392494%_) - (_%g9245592473%_ - _%g9245692477%_)))) - (_%g9245592473%_ _%g9245692477%_)))) - (_%g9245592473%_ _%g9245692477%_)))) - (_%g9245592473%_ _%g9245692477%_))))) - (_%g9245492528%_ _%$stx92451%_)))) + _%hd9347593513%_ + _%hd9347293503%_) + (_%g9346493482%_ + _%g9346593486%_)))) + (_%g9346493482%_ _%g9346593486%_)))) + (_%g9346493482%_ _%g9346593486%_)))) + (_%g9346493482%_ _%g9346593486%_))))) + (_%g9346393537%_ _%$stx93460%_)))) (define |[:0:]#defremove1| - (lambda (_%$stx92532%_) - (let* ((_%g9253692554%_ - (lambda (_%g9253792550%_) + (lambda (_%$stx93541%_) + (let* ((_%g9354593563%_ + (lambda (_%g9354693559%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9253792550%_))) - (_%g9253592609%_ - (lambda (_%g9253792558%_) - (if (gx#stx-pair? _%g9253792558%_) - (let ((_%e9254092561%_ (gx#syntax-e _%g9253792558%_))) - (let ((_%hd9254192565%_ + _%g9354693559%_))) + (_%g9354493618%_ + (lambda (_%g9354693567%_) + (if (gx#stx-pair? _%g9354693567%_) + (let ((_%e9354993570%_ (gx#syntax-e _%g9354693567%_))) + (let ((_%hd9355093574%_ (let () (declare (not safe)) - (##car _%e9254092561%_))) - (_%tl9254292568%_ + (##car _%e9354993570%_))) + (_%tl9355193577%_ (let () (declare (not safe)) - (##cdr _%e9254092561%_)))) - (if (gx#stx-pair? _%tl9254292568%_) - (let ((_%e9254392571%_ - (gx#syntax-e _%tl9254292568%_))) - (let ((_%hd9254492575%_ + (##cdr _%e9354993570%_)))) + (if (gx#stx-pair? _%tl9355193577%_) + (let ((_%e9355293580%_ + (gx#syntax-e _%tl9355193577%_))) + (let ((_%hd9355393584%_ (let () (declare (not safe)) - (##car _%e9254392571%_))) - (_%tl9254592578%_ + (##car _%e9355293580%_))) + (_%tl9355493587%_ (let () (declare (not safe)) - (##cdr _%e9254392571%_)))) - (if (gx#stx-pair? _%tl9254592578%_) - (let ((_%e9254692581%_ - (gx#syntax-e _%tl9254592578%_))) - (let ((_%hd9254792585%_ + (##cdr _%e9355293580%_)))) + (if (gx#stx-pair? _%tl9355493587%_) + (let ((_%e9355593590%_ + (gx#syntax-e _%tl9355493587%_))) + (let ((_%hd9355693594%_ (let () (declare (not safe)) - (##car _%e9254692581%_))) - (_%tl9254892588%_ + (##car _%e9355593590%_))) + (_%tl9355793597%_ (let () (declare (not safe)) - (##cdr _%e9254692581%_)))) - (if (gx#stx-null? _%tl9254892588%_) - ((lambda (_%L92591%_ _%L92593%_) + (##cdr _%e9355593590%_)))) + (if (gx#stx-null? _%tl9355793597%_) + ((lambda (_%g9354793600%_ + _%g9354893602%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L92593%_ + (cons (cons _%g9354893602%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'el) (cons (gx#datum->syntax '#f 'lst) '()))) @@ -550,7 +748,7 @@ (cons (gx#datum->syntax '#f 'hd) (gx#datum->syntax '#f 'rest))) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L92591%_ + (cons (cons _%g9354793600%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -586,150 +784,159 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9254792585%_ - _%hd9254492575%_) - (_%g9253692554%_ - _%g9253792558%_)))) - (_%g9253692554%_ _%g9253792558%_)))) - (_%g9253692554%_ _%g9253792558%_)))) - (_%g9253692554%_ _%g9253792558%_))))) - (_%g9253592609%_ _%$stx92532%_)))) + _%hd9355693594%_ + _%hd9355393584%_) + (_%g9354593563%_ + _%g9354693567%_)))) + (_%g9354593563%_ _%g9354693567%_)))) + (_%g9354593563%_ _%g9354693567%_)))) + (_%g9354593563%_ _%g9354693567%_))))) + (_%g9354493618%_ _%$stx93541%_)))) (define |[:0:]#DBG| - (lambda (_%$stx92613%_) - (let* ((_%g9261792628%_ - (lambda (_%g9261892624%_) + (lambda (_%$stx93622%_) + (let* ((_%g9362693637%_ + (lambda (_%g9362793633%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9261892624%_))) - (_%g9261692657%_ - (lambda (_%g9261892632%_) - (if (gx#stx-pair? _%g9261892632%_) - (let ((_%e9262092635%_ (gx#syntax-e _%g9261892632%_))) - (let ((_%hd9262192639%_ + _%g9362793633%_))) + (_%g9362593666%_ + (lambda (_%g9362793641%_) + (if (gx#stx-pair? _%g9362793641%_) + (let ((_%e9362993644%_ (gx#syntax-e _%g9362793641%_))) + (let ((_%hd9363093648%_ (let () (declare (not safe)) - (##car _%e9262092635%_))) - (_%tl9262292642%_ + (##car _%e9362993644%_))) + (_%tl9363193651%_ (let () (declare (not safe)) - (##cdr _%e9262092635%_)))) - ((lambda (_%L92645%_) + (##cdr _%e9362993644%_)))) + ((lambda (_%g9362893654%_) (cons (gx#datum->syntax '#f 'DBG/1) - (cons '1 _%L92645%_))) - _%tl9262292642%_))) - (_%g9261792628%_ _%g9261892632%_))))) - (_%g9261692657%_ _%$stx92613%_)))) + (cons '1 _%g9362893654%_))) + _%tl9363193651%_))) + (_%g9362693637%_ _%g9362793641%_))))) + (_%g9362593666%_ _%$stx93622%_)))) (define |[:0:]#DBG/1| - (lambda (_%$stx92661%_) - (let* ((_%__stx9871498715%_ _%$stx92661%_) - (_%g9267292886%_ + (lambda (_%$stx93670%_) + (let* ((_%__stx9974599746%_ _%$stx93670%_) + (_%g9368193895%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9871498715%_)))) - (let ((_%__kont9871798718%_ - (lambda (_%L93739%_ - _%L93741%_ - _%L93742%_ - _%L93743%_ - _%L93744%_) - (cons _%L93744%_ + _%__stx9974599746%_)))) + (let ((_%__kont9974899749%_ + (lambda (_%g9368394740%_ + _%g9368494742%_ + _%g9368594743%_ + _%g9368694744%_ + _%g9368794745%_) + (cons _%g9368794745%_ (cons '2 (cons '() (cons (__foldr1 - (lambda (_%g9377493777%_ - _%g9377593780%_) - (cons _%g9377493777%_ - _%g9377593780%_)) + (lambda (_%g9477594778%_ + _%g9477694781%_) + (cons _%g9477594778%_ + _%g9477694781%_)) '() - _%L93742%_) - (cons _%L93743%_ - (cons _%L93741%_ - (cons _%L93739%_ + _%g9368594743%_) + (cons _%g9368694744%_ + (cons _%g9368494742%_ + (cons _%g9368394740%_ '()))))))))) - (_%__kont9872198722%_ - (lambda (_%L93592%_ _%L93594%_ _%L93595%_ _%L93596%_) - (cons _%L93596%_ + (_%__kont9975299753%_ + (lambda (_%g9371994595%_ + _%g9372094597%_ + _%g9372194598%_ + _%g9372294599%_) + (cons _%g9372294599%_ (cons '2 (cons '() (cons (__foldr1 - (lambda (_%g9361993622%_ - _%g9362093625%_) - (cons _%g9361993622%_ - _%g9362093625%_)) + (lambda (_%g9462294625%_ + _%g9462394628%_) + (cons _%g9462294625%_ + _%g9462394628%_)) '() - _%L93594%_) - (cons _%L93595%_ - (cons _%L93592%_ - (cons _%L93592%_ + _%g9372094597%_) + (cons _%g9372194598%_ + (cons _%g9371994595%_ + (cons _%g9371994595%_ '()))))))))) - (_%__kont9872598726%_ - (lambda (_%L93495%_) + (_%__kont9975699757%_ + (lambda (_%g9374594500%_) (cons (gx#datum->syntax '#f 'DBG-helper) - (cons _%L93495%_ + (cons _%g9374594500%_ (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) (cons '#f (cons '#f '())))))))) - (_%__kont9872798728%_ - (lambda (_%L93418%_ - _%L93420%_ - _%L93421%_ - _%L93422%_ - _%L93423%_ - _%L93424%_) - (cons _%L93424%_ + (_%__kont9975899759%_ + (lambda (_%g9375694423%_ + _%g9375794425%_ + _%g9375894426%_ + _%g9375994427%_ + _%g9376094428%_ + _%g9376194429%_) + (cons _%g9376194429%_ (cons '2 - (cons (cons (cons _%L93422%_ - (cons _%L93421%_ '())) - _%L93423%_) - (cons _%L93420%_ _%L93418%_)))))) - (_%__kont9872998730%_ - (lambda (_%L93299%_ - _%L93301%_ - _%L93302%_ - _%L93303%_ - _%L93304%_) - (cons _%L93304%_ + (cons (cons (cons _%g9375994427%_ + (cons _%g9375894426%_ '())) + _%g9376094428%_) + (cons _%g9375794425%_ + _%g9375694423%_)))))) + (_%__kont9976099761%_ + (lambda (_%g9378794304%_ + _%g9378894306%_ + _%g9378994307%_ + _%g9379094308%_ + _%g9379194309%_) + (cons _%g9379194309%_ (cons '2 - (cons (cons (cons _%L93302%_ - (cons _%L93302%_ '())) - _%L93303%_) - (cons _%L93301%_ _%L93299%_)))))) - (_%__kont9873198732%_ - (lambda (_%L93216%_ _%L93218%_ _%L93219%_) - (cons _%L93219%_ - (cons '3 (cons '() (cons _%L93218%_ _%L93216%_)))))) - (_%__kont9873398734%_ - (lambda (_%L93137%_ - _%L93139%_ - _%L93140%_ - _%L93141%_ - _%L93142%_) - (cons _%L93142%_ + (cons (cons (cons _%g9378994307%_ + (cons _%g9378994307%_ '())) + _%g9379094308%_) + (cons _%g9378894306%_ + _%g9378794304%_)))))) + (_%__kont9976299763%_ + (lambda (_%g9380894221%_ _%g9380994223%_ _%g9381094224%_) + (cons _%g9381094224%_ + (cons '3 + (cons '() + (cons _%g9380994223%_ + _%g9380894221%_)))))) + (_%__kont9976499765%_ + (lambda (_%g9382494142%_ + _%g9382594144%_ + _%g9382694145%_ + _%g9382794146%_ + _%g9382894147%_) + (cons _%g9382894147%_ (cons '3 - (cons (cons _%L93140%_ _%L93141%_) - (cons _%L93139%_ _%L93137%_)))))) - (_%__kont9873598736%_ - (lambda (_%L93021%_ - _%L93023%_ - _%L93024%_ - _%L93025%_ - _%L93026%_ - _%L93027%_) + (cons (cons _%g9382694145%_ _%g9382794146%_) + (cons _%g9382594144%_ + _%g9382494142%_)))))) + (_%__kont9976699767%_ + (lambda (_%g9384594026%_ + _%g9384694028%_ + _%g9384794029%_ + _%g9384894030%_ + _%g9384994031%_ + _%g9385094032%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (cons (gx#datum->syntax '#f 'tagval) - (cons _%L93024%_ '())) + (cons _%g9384794029%_ '())) (cons (cons (gx#datum->syntax '#f 'thunk) (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L93021%_ '()))) + (cons _%g9384594026%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -744,31 +951,31 @@ 'tagval) (cons (cons (gx#datum->syntax '#f 'quote) (cons (__foldr1 - (lambda (_%g9305993064%_ - _%g9306093067%_) - (cons _%g9305993064%_ - _%g9306093067%_)) + (lambda (_%g9406494069%_ + _%g9406594072%_) + (cons _%g9406494069%_ + _%g9406594072%_)) '() - _%L93026%_) + _%g9384994031%_) '())) (cons (cons (gx#datum->syntax '#f 'list) (__foldr1 - (lambda (_%g9306193070%_ - _%g9306293073%_) + (lambda (_%g9406694075%_ + _%g9406794078%_) (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%g9306193070%_ '()))) - _%g9306293073%_)) + (cons _%g9406694075%_ '()))) + _%g9406794078%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L93025%_)) + _%g9384894030%_)) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L93023%_ '())) + (cons _%g9384694028%_ '())) (cons (gx#datum->syntax '#f 'thunk) @@ -776,1209 +983,1209 @@ (cons (cons (gx#datum->syntax '#f 'thunk) '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match9906599066%_ - (lambda (_%e9284292893%_ - _%hd9284392897%_ - _%tl9284492900%_ - _%e9284592903%_ - _%hd9284692907%_ - _%tl9284792910%_ - _%e9284892913%_ - _%e9284992917%_ - _%hd9285092921%_ - _%tl9285192924%_ - _%__splice9873798738%_ - _%target9285292927%_ - _%tl9285492930%_) - (letrec ((_%loop9285592933%_ - (lambda (_%hd9285392937%_ - _%exprs9285992940%_ - _%names9286092942%_) - (if (gx#stx-pair? _%hd9285392937%_) - (let ((_%e9285692945%_ - (gx#syntax-e _%hd9285392937%_))) - (let ((_%lp-tl9285892952%_ + (let* ((_%__match100096100097%_ + (lambda (_%e9385193902%_ + _%hd9385293906%_ + _%tl9385393909%_ + _%e9385493912%_ + _%hd9385593916%_ + _%tl9385693919%_ + _%e9385793922%_ + _%e9385893926%_ + _%hd9385993930%_ + _%tl9386093933%_ + _%__splice9976899769%_ + _%target9386193936%_ + _%tl9386393939%_) + (letrec ((_%loop9386493942%_ + (lambda (_%hd9386293946%_ + _%exprs9386893949%_ + _%names9386993950%_) + (if (gx#stx-pair? _%hd9386293946%_) + (let ((_%e9386593952%_ + (gx#syntax-e _%hd9386293946%_))) + (let ((_%lp-tl9386793959%_ (let () (declare (not safe)) - (##cdr _%e9285692945%_))) - (_%lp-hd9285792949%_ + (##cdr _%e9386593952%_))) + (_%lp-hd9386693956%_ (let () (declare (not safe)) - (##car _%e9285692945%_)))) + (##car _%e9386593952%_)))) (if (gx#stx-pair? - _%lp-hd9285792949%_) - (let ((_%e9286392955%_ + _%lp-hd9386693956%_) + (let ((_%e9387293962%_ (gx#syntax-e - _%lp-hd9285792949%_))) - (let ((_%tl9286592962%_ + _%lp-hd9386693956%_))) + (let ((_%tl9387493969%_ (let () (declare (not safe)) - (##cdr _%e9286392955%_))) - (_%hd9286492959%_ + (##cdr _%e9387293962%_))) + (_%hd9387393966%_ (let () (declare (not safe)) - (##car _%e9286392955%_)))) + (##car _%e9387293962%_)))) (if (gx#stx-pair? - _%tl9286592962%_) - (let ((_%e9286692965%_ + _%tl9387493969%_) + (let ((_%e9387593972%_ (gx#syntax-e - _%tl9286592962%_))) - (let ((_%tl9286892972%_ + _%tl9387493969%_))) + (let ((_%tl9387793979%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e9286692965%_))) - (_%hd9286792969%_ - (let () (declare (not safe)) (##car _%e9286692965%_)))) - (if (gx#stx-null? _%tl9286892972%_) - (_%loop9285592933%_ - _%lp-tl9285892952%_ - (cons _%hd9286792969%_ _%exprs9285992940%_) - (cons _%hd9286492959%_ _%names9286092942%_)) - (let () (declare (not safe)) (_%g9267292886%_))))) - (let () (declare (not safe)) (_%g9267292886%_))))) + (##cdr _%e9387593972%_))) + (_%hd9387693976%_ + (let () (declare (not safe)) (##car _%e9387593972%_)))) + (if (gx#stx-null? _%tl9387793979%_) + (_%loop9386493942%_ + _%lp-tl9386793959%_ + (cons _%hd9387693976%_ _%exprs9386893949%_) + (cons _%hd9387393966%_ _%names9386993950%_)) + (let () (declare (not safe)) (_%g9368193895%_))))) + (let () (declare (not safe)) (_%g9368193895%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g9267292886%_))))) - (let ((_%names9286292978%_ - (reverse _%names9286092942%_)) - (_%exprs9286192975%_ - (reverse _%exprs9285992940%_))) - (if (gx#stx-pair? _%tl9285192924%_) - (let ((_%e9286992981%_ + (_%g9368193895%_))))) + (let ((_%names9387193984%_ + (reverse _%names9386993950%_)) + (_%exprs9387093982%_ + (reverse _%exprs9386893949%_))) + (if (gx#stx-pair? _%tl9386093933%_) + (let ((_%e9387893986%_ (gx#syntax-e - _%tl9285192924%_))) - (let ((_%tl9287192988%_ + _%tl9386093933%_))) + (let ((_%tl9388093993%_ (let () (declare (not safe)) - (##cdr _%e9286992981%_))) - (_%hd9287092985%_ + (##cdr _%e9387893986%_))) + (_%hd9387993990%_ (let () (declare (not safe)) - (##car _%e9286992981%_)))) + (##car _%e9387893986%_)))) (if (gx#stx-null? - _%hd9287092985%_) + _%hd9387993990%_) (if (gx#stx-pair? - _%tl9287192988%_) - (let ((_%e9287292991%_ + _%tl9388093993%_) + (let ((_%e9388193996%_ (gx#syntax-e - _%tl9287192988%_))) - (let ((_%tl9287492998%_ + _%tl9388093993%_))) + (let ((_%tl9388394003%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e9287292991%_))) - (_%hd9287392995%_ + (let () (declare (not safe)) (##cdr _%e9388193996%_))) + (_%hd9388294000%_ (let () (declare (not safe)) - (##car _%e9287292991%_)))) - (if (gx#stx-pair? _%tl9287492998%_) - (let ((_%e9287593001%_ (gx#syntax-e _%tl9287492998%_))) - (let ((_%tl9287793008%_ + (##car _%e9388193996%_)))) + (if (gx#stx-pair? _%tl9388394003%_) + (let ((_%e9388494006%_ (gx#syntax-e _%tl9388394003%_))) + (let ((_%tl9388694013%_ (let () (declare (not safe)) - (##cdr _%e9287593001%_))) - (_%hd9287693005%_ + (##cdr _%e9388494006%_))) + (_%hd9388594010%_ (let () (declare (not safe)) - (##car _%e9287593001%_)))) - (if (gx#stx-pair? _%tl9287793008%_) - (let ((_%e9287893011%_ - (gx#syntax-e _%tl9287793008%_))) - (let ((_%tl9288093018%_ + (##car _%e9388494006%_)))) + (if (gx#stx-pair? _%tl9388694013%_) + (let ((_%e9388794016%_ + (gx#syntax-e _%tl9388694013%_))) + (let ((_%tl9388994023%_ (let () (declare (not safe)) - (##cdr _%e9287893011%_))) - (_%hd9287993015%_ + (##cdr _%e9388794016%_))) + (_%hd9388894020%_ (let () (declare (not safe)) - (##car _%e9287893011%_)))) - (if (gx#stx-null? _%tl9288093018%_) - (_%__kont9873598736%_ - _%hd9287993015%_ - _%hd9287693005%_ - _%hd9287392995%_ - _%exprs9286192975%_ - _%names9286292978%_ - _%hd9284392897%_) + (##car _%e9388794016%_)))) + (if (gx#stx-null? _%tl9388994023%_) + (_%__kont9976699767%_ + _%hd9388894020%_ + _%hd9388594010%_ + _%hd9388294000%_ + _%exprs9387093982%_ + _%names9387193984%_ + _%hd9385293906%_) (let () (declare (not safe)) - (_%g9267292886%_))))) + (_%g9368193895%_))))) (let () (declare (not safe)) - (_%g9267292886%_))))) - (let () (declare (not safe)) (_%g9267292886%_))))) - (let () (declare (not safe)) (_%g9267292886%_))) + (_%g9368193895%_))))) + (let () (declare (not safe)) (_%g9368193895%_))))) + (let () (declare (not safe)) (_%g9368193895%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g9267292886%_))))) + (_%g9368193895%_))))) (let () (declare (not safe)) - (_%g9267292886%_)))))))) - (_%loop9285592933%_ _%target9285292927%_ '() '())))) - (_%__match9884398844%_ - (lambda (_%e9271493518%_ - _%hd9271593522%_ - _%tl9271693525%_ - _%e9271793528%_ - _%hd9271893532%_ - _%tl9271993535%_ - _%e9272093538%_ - _%e9272193542%_ - _%hd9272293546%_ - _%tl9272393549%_ - _%__splice9872398724%_ - _%target9272493552%_ - _%tl9272693555%_ - _%e9273393558%_ - _%hd9273493562%_ - _%tl9273593565%_) - (letrec ((_%loop9272793568%_ - (lambda (_%hd9272593572%_ _%exprs9273193575%_) - (if (gx#stx-pair? _%hd9272593572%_) - (let ((_%e9272893578%_ - (gx#syntax-e _%hd9272593572%_))) - (let ((_%lp-tl9273093585%_ + (_%g9368193895%_)))))))) + (_%loop9386493942%_ _%target9386193936%_ '() '())))) + (_%__match9987499875%_ + (lambda (_%e9372394523%_ + _%hd9372494527%_ + _%tl9372594530%_ + _%e9372694533%_ + _%hd9372794537%_ + _%tl9372894540%_ + _%e9372994543%_ + _%e9373094547%_ + _%hd9373194551%_ + _%tl9373294554%_ + _%__splice9975499755%_ + _%target9373394557%_ + _%tl9373594560%_ + _%e9374294563%_ + _%hd9374394567%_ + _%tl9374494570%_) + (letrec ((_%loop9373694573%_ + (lambda (_%hd9373494577%_ _%exprs9374094580%_) + (if (gx#stx-pair? _%hd9373494577%_) + (let ((_%e9373794582%_ + (gx#syntax-e _%hd9373494577%_))) + (let ((_%lp-tl9373994589%_ (let () (declare (not safe)) - (##cdr _%e9272893578%_))) - (_%lp-hd9272993582%_ + (##cdr _%e9373794582%_))) + (_%lp-hd9373894586%_ (let () (declare (not safe)) - (##car _%e9272893578%_)))) - (_%loop9272793568%_ - _%lp-tl9273093585%_ - (cons _%lp-hd9272993582%_ - _%exprs9273193575%_)))) - (let ((_%exprs9273293588%_ - (reverse _%exprs9273193575%_))) - (_%__kont9872198722%_ - _%hd9273493562%_ - _%exprs9273293588%_ - _%hd9272293546%_ - _%hd9271593522%_)))))) - (_%loop9272793568%_ _%target9272493552%_ '())))) - (_%__match9880398804%_ - (lambda (_%e9267993635%_ - _%hd9268093639%_ - _%tl9268193642%_ - _%e9268293645%_ - _%hd9268393649%_ - _%tl9268493652%_ - _%e9268593655%_ - _%e9268693659%_ - _%hd9268793663%_ - _%tl9268893666%_ - _%__splice9871998720%_ - _%target9268993669%_ - _%tl9269193672%_ - _%e9269893675%_ - _%hd9269993679%_ - _%tl9270093682%_ - _%e9270193685%_ - _%hd9270293689%_ - _%tl9270393692%_ - _%e9270493695%_ - _%hd9270593699%_ - _%tl9270693702%_ - _%e9270793705%_ - _%hd9270893709%_ - _%tl9270993712%_) - (letrec ((_%loop9269293715%_ - (lambda (_%hd9269093719%_ _%exprs9269693722%_) - (if (gx#stx-pair? _%hd9269093719%_) - (let ((_%e9269393725%_ - (gx#syntax-e _%hd9269093719%_))) - (let ((_%lp-tl9269593732%_ + (##car _%e9373794582%_)))) + (_%loop9373694573%_ + _%lp-tl9373994589%_ + (cons _%lp-hd9373894586%_ + _%exprs9374094580%_)))) + (let ((_%exprs9374194592%_ + (reverse _%exprs9374094580%_))) + (_%__kont9975299753%_ + _%hd9374394567%_ + _%exprs9374194592%_ + _%hd9373194551%_ + _%hd9372494527%_)))))) + (_%loop9373694573%_ _%target9373394557%_ '())))) + (_%__match9983499835%_ + (lambda (_%e9368894638%_ + _%hd9368994642%_ + _%tl9369094645%_ + _%e9369194648%_ + _%hd9369294652%_ + _%tl9369394655%_ + _%e9369494658%_ + _%e9369594662%_ + _%hd9369694666%_ + _%tl9369794669%_ + _%__splice9975099751%_ + _%target9369894672%_ + _%tl9370094675%_ + _%e9370794678%_ + _%hd9370894682%_ + _%tl9370994685%_ + _%e9371094688%_ + _%hd9371194692%_ + _%tl9371294695%_ + _%e9371394698%_ + _%hd9371494702%_ + _%tl9371594705%_ + _%e9371694708%_ + _%hd9371794712%_ + _%tl9371894715%_) + (letrec ((_%loop9370194718%_ + (lambda (_%hd9369994722%_ _%exprs9370594725%_) + (if (gx#stx-pair? _%hd9369994722%_) + (let ((_%e9370294727%_ + (gx#syntax-e _%hd9369994722%_))) + (let ((_%lp-tl9370494734%_ (let () (declare (not safe)) - (##cdr _%e9269393725%_))) - (_%lp-hd9269493729%_ + (##cdr _%e9370294727%_))) + (_%lp-hd9370394731%_ (let () (declare (not safe)) - (##car _%e9269393725%_)))) - (_%loop9269293715%_ - _%lp-tl9269593732%_ - (cons _%lp-hd9269493729%_ - _%exprs9269693722%_)))) - (let ((_%exprs9269793735%_ - (reverse _%exprs9269693722%_))) - (_%__kont9871798718%_ - _%hd9270893709%_ - _%hd9270593699%_ - _%exprs9269793735%_ - _%hd9268793663%_ - _%hd9268093639%_)))))) - (_%loop9269293715%_ _%target9268993669%_ '()))))) - (if (gx#stx-pair? _%__stx9871498715%_) - (let ((_%e9267993635%_ (gx#syntax-e _%__stx9871498715%_))) - (let ((_%tl9268193642%_ + (##car _%e9370294727%_)))) + (_%loop9370194718%_ + _%lp-tl9370494734%_ + (cons _%lp-hd9370394731%_ + _%exprs9370594725%_)))) + (let ((_%exprs9370694737%_ + (reverse _%exprs9370594725%_))) + (_%__kont9974899749%_ + _%hd9371794712%_ + _%hd9371494702%_ + _%exprs9370694737%_ + _%hd9369694666%_ + _%hd9368994642%_)))))) + (_%loop9370194718%_ _%target9369894672%_ '()))))) + (if (gx#stx-pair? _%__stx9974599746%_) + (let ((_%e9368894638%_ (gx#syntax-e _%__stx9974599746%_))) + (let ((_%tl9369094645%_ (let () (declare (not safe)) - (##cdr _%e9267993635%_))) - (_%hd9268093639%_ + (##cdr _%e9368894638%_))) + (_%hd9368994642%_ (let () (declare (not safe)) - (##car _%e9267993635%_)))) - (if (gx#stx-pair? _%tl9268193642%_) - (let ((_%e9268293645%_ - (gx#syntax-e _%tl9268193642%_))) - (let ((_%tl9268493652%_ + (##car _%e9368894638%_)))) + (if (gx#stx-pair? _%tl9369094645%_) + (let ((_%e9369194648%_ + (gx#syntax-e _%tl9369094645%_))) + (let ((_%tl9369394655%_ (let () (declare (not safe)) - (##cdr _%e9268293645%_))) - (_%hd9268393649%_ + (##cdr _%e9369194648%_))) + (_%hd9369294652%_ (let () (declare (not safe)) - (##car _%e9268293645%_)))) - (if (gx#stx-datum? _%hd9268393649%_) - (let ((_%e9268593655%_ - (gx#stx-e _%hd9268393649%_))) - (if (equal? _%e9268593655%_ '1) - (if (gx#stx-pair? _%tl9268493652%_) - (let ((_%e9268693659%_ + (##car _%e9369194648%_)))) + (if (gx#stx-datum? _%hd9369294652%_) + (let ((_%e9369494658%_ + (gx#stx-e _%hd9369294652%_))) + (if (equal? _%e9369494658%_ '1) + (if (gx#stx-pair? _%tl9369394655%_) + (let ((_%e9369594662%_ (gx#syntax-e - _%tl9268493652%_))) - (let ((_%tl9268893666%_ + _%tl9369394655%_))) + (let ((_%tl9369794669%_ (let () (declare (not safe)) - (##cdr _%e9268693659%_))) - (_%hd9268793663%_ + (##cdr _%e9369594662%_))) + (_%hd9369694666%_ (let () (declare (not safe)) - (##car _%e9268693659%_)))) + (##car _%e9369594662%_)))) (if (gx#stx-pair/null? - _%tl9268893666%_) - (if (let ((__tmp99162 + _%tl9369794669%_) + (if (let ((__tmp100192 (gx#stx-length - _%tl9268893666%_))) + _%tl9369794669%_))) (declare (not safe)) - (##fx>= __tmp99162 + (##fx>= __tmp100192 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '2)) - (let ((_%__splice9871998720%_ - (gx#syntax-split-splice->vector _%tl9268893666%_ '2))) - (let ((_%tl9269193672%_ + (let ((_%__splice9975099751%_ + (gx#syntax-split-splice->vector _%tl9369794669%_ '2))) + (let ((_%tl9370094675%_ (let () (declare (not safe)) - (##vector-ref _%__splice9871998720%_ '1))) - (_%target9268993669%_ + (##vector-ref _%__splice9975099751%_ '1))) + (_%target9369894672%_ (let () (declare (not safe)) - (##vector-ref _%__splice9871998720%_ '0)))) - (if (gx#stx-pair? _%tl9269193672%_) - (let ((_%e9269893675%_ (gx#syntax-e _%tl9269193672%_))) - (let ((_%tl9270093682%_ + (##vector-ref _%__splice9975099751%_ '0)))) + (if (gx#stx-pair? _%tl9370094675%_) + (let ((_%e9370794678%_ (gx#syntax-e _%tl9370094675%_))) + (let ((_%tl9370994685%_ (let () (declare (not safe)) - (##cdr _%e9269893675%_))) - (_%hd9269993679%_ + (##cdr _%e9370794678%_))) + (_%hd9370894682%_ (let () (declare (not safe)) - (##car _%e9269893675%_)))) - (if (gx#stx-pair? _%hd9269993679%_) - (let ((_%e9270193685%_ - (gx#syntax-e _%hd9269993679%_))) - (let ((_%tl9270393692%_ + (##car _%e9370794678%_)))) + (if (gx#stx-pair? _%hd9370894682%_) + (let ((_%e9371094688%_ + (gx#syntax-e _%hd9370894682%_))) + (let ((_%tl9371294695%_ (let () (declare (not safe)) - (##cdr _%e9270193685%_))) - (_%hd9270293689%_ + (##cdr _%e9371094688%_))) + (_%hd9371194692%_ (let () (declare (not safe)) - (##car _%e9270193685%_)))) - (if (gx#identifier? _%hd9270293689%_) + (##car _%e9371094688%_)))) + (if (gx#identifier? _%hd9371194692%_) (if (gx#free-identifier=? - |[1]#_g99163_| - _%hd9270293689%_) - (if (gx#stx-pair? _%tl9270393692%_) - (let ((_%e9270493695%_ + |[1]#_g100193_| + _%hd9371194692%_) + (if (gx#stx-pair? _%tl9371294695%_) + (let ((_%e9371394698%_ (gx#syntax-e - _%tl9270393692%_))) - (let ((_%tl9270693702%_ + _%tl9371294695%_))) + (let ((_%tl9371594705%_ (let () (declare (not safe)) - (##cdr _%e9270493695%_))) - (_%hd9270593699%_ + (##cdr _%e9371394698%_))) + (_%hd9371494702%_ (let () (declare (not safe)) - (##car _%e9270493695%_)))) + (##car _%e9371394698%_)))) (if (gx#stx-null? - _%tl9270693702%_) + _%tl9371594705%_) (if (gx#stx-pair? - _%tl9270093682%_) - (let ((_%e9270793705%_ + _%tl9370994685%_) + (let ((_%e9371694708%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl9270093682%_))) - (let ((_%tl9270993712%_ + (gx#syntax-e _%tl9370994685%_))) + (let ((_%tl9371894715%_ (let () (declare (not safe)) - (##cdr _%e9270793705%_))) - (_%hd9270893709%_ + (##cdr _%e9371694708%_))) + (_%hd9371794712%_ (let () (declare (not safe)) - (##car _%e9270793705%_)))) - (if (gx#stx-null? _%tl9270993712%_) - (_%__match9880398804%_ - _%e9267993635%_ - _%hd9268093639%_ - _%tl9268193642%_ - _%e9268293645%_ - _%hd9268393649%_ - _%tl9268493652%_ - _%e9268593655%_ - _%e9268693659%_ - _%hd9268793663%_ - _%tl9268893666%_ - _%__splice9871998720%_ - _%target9268993669%_ - _%tl9269193672%_ - _%e9269893675%_ - _%hd9269993679%_ - _%tl9270093682%_ - _%e9270193685%_ - _%hd9270293689%_ - _%tl9270393692%_ - _%e9270493695%_ - _%hd9270593699%_ - _%tl9270693702%_ - _%e9270793705%_ - _%hd9270893709%_ - _%tl9270993712%_) - (if (let ((__tmp99164 - (gx#stx-length _%tl9268893666%_))) + (##car _%e9371694708%_)))) + (if (gx#stx-null? _%tl9371894715%_) + (_%__match9983499835%_ + _%e9368894638%_ + _%hd9368994642%_ + _%tl9369094645%_ + _%e9369194648%_ + _%hd9369294652%_ + _%tl9369394655%_ + _%e9369494658%_ + _%e9369594662%_ + _%hd9369694666%_ + _%tl9369794669%_ + _%__splice9975099751%_ + _%target9369894672%_ + _%tl9370094675%_ + _%e9370794678%_ + _%hd9370894682%_ + _%tl9370994685%_ + _%e9371094688%_ + _%hd9371194692%_ + _%tl9371294695%_ + _%e9371394698%_ + _%hd9371494702%_ + _%tl9371594705%_ + _%e9371694708%_ + _%hd9371794712%_ + _%tl9371894715%_) + (if (let ((__tmp100194 + (gx#stx-length _%tl9369794669%_))) (declare (not safe)) - (##fx>= __tmp99164 '1)) - (let ((_%__splice9872398724%_ + (##fx>= __tmp100194 '1)) + (let ((_%__splice9975499755%_ (gx#syntax-split-splice->vector - _%tl9268893666%_ + _%tl9369794669%_ '1))) - (let ((_%tl9272693555%_ + (let ((_%tl9373594560%_ (let () (declare (not safe)) (##vector-ref - _%__splice9872398724%_ + _%__splice9975499755%_ '1))) - (_%target9272493552%_ + (_%target9373394557%_ (let () (declare (not safe)) (##vector-ref - _%__splice9872398724%_ + _%__splice9975499755%_ '0)))) - (if (gx#stx-pair? _%tl9272693555%_) - (let ((_%e9273393558%_ - (gx#syntax-e _%tl9272693555%_))) - (let ((_%tl9273593565%_ + (if (gx#stx-pair? _%tl9373594560%_) + (let ((_%e9374294563%_ + (gx#syntax-e _%tl9373594560%_))) + (let ((_%tl9374494570%_ (let () (declare (not safe)) - (##cdr _%e9273393558%_))) - (_%hd9273493562%_ + (##cdr _%e9374294563%_))) + (_%hd9374394567%_ (let () (declare (not safe)) - (##car _%e9273393558%_)))) - (if (gx#stx-null? _%tl9273593565%_) - (_%__match9884398844%_ - _%e9267993635%_ - _%hd9268093639%_ - _%tl9268193642%_ - _%e9268293645%_ - _%hd9268393649%_ - _%tl9268493652%_ - _%e9268593655%_ - _%e9268693659%_ - _%hd9268793663%_ - _%tl9268893666%_ - _%__splice9872398724%_ - _%target9272493552%_ - _%tl9272693555%_ - _%e9273393558%_ - _%hd9273493562%_ - _%tl9273593565%_) + (##car _%e9374294563%_)))) + (if (gx#stx-null? _%tl9374494570%_) + (_%__match9987499875%_ + _%e9368894638%_ + _%hd9368994642%_ + _%tl9369094645%_ + _%e9369194648%_ + _%hd9369294652%_ + _%tl9369394655%_ + _%e9369494658%_ + _%e9369594662%_ + _%hd9369694666%_ + _%tl9369794669%_ + _%__splice9975499755%_ + _%target9373394557%_ + _%tl9373594560%_ + _%e9374294563%_ + _%hd9374394567%_ + _%tl9374494570%_) (if (gx#stx-null? - _%tl9268893666%_) - (_%__kont9872598726%_ - _%hd9268793663%_) + _%tl9369794669%_) + (_%__kont9975699757%_ + _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_)))))) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ - _%hd9268793663%_) + (_%g9368193895%_)))))) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ + _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_)))))) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ _%hd9268793663%_) + (_%g9368193895%_)))))) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_))))))) - (if (let ((__tmp99165 (gx#stx-length _%tl9268893666%_))) + (_%g9368193895%_))))))) + (if (let ((__tmp100195 (gx#stx-length _%tl9369794669%_))) (declare (not safe)) - (##fx>= __tmp99165 '1)) - (let ((_%__splice9872398724%_ + (##fx>= __tmp100195 '1)) + (let ((_%__splice9975499755%_ (gx#syntax-split-splice->vector - _%tl9268893666%_ + _%tl9369794669%_ '1))) - (let ((_%tl9272693555%_ + (let ((_%tl9373594560%_ (let () (declare (not safe)) - (##vector-ref _%__splice9872398724%_ '1))) - (_%target9272493552%_ + (##vector-ref _%__splice9975499755%_ '1))) + (_%target9373394557%_ (let () (declare (not safe)) - (##vector-ref _%__splice9872398724%_ '0)))) - (if (gx#stx-pair? _%tl9272693555%_) - (let ((_%e9273393558%_ - (gx#syntax-e _%tl9272693555%_))) - (let ((_%tl9273593565%_ + (##vector-ref _%__splice9975499755%_ '0)))) + (if (gx#stx-pair? _%tl9373594560%_) + (let ((_%e9374294563%_ + (gx#syntax-e _%tl9373594560%_))) + (let ((_%tl9374494570%_ (let () (declare (not safe)) - (##cdr _%e9273393558%_))) - (_%hd9273493562%_ + (##cdr _%e9374294563%_))) + (_%hd9374394567%_ (let () (declare (not safe)) - (##car _%e9273393558%_)))) - (if (gx#stx-null? _%tl9273593565%_) - (_%__match9884398844%_ - _%e9267993635%_ - _%hd9268093639%_ - _%tl9268193642%_ - _%e9268293645%_ - _%hd9268393649%_ - _%tl9268493652%_ - _%e9268593655%_ - _%e9268693659%_ - _%hd9268793663%_ - _%tl9268893666%_ - _%__splice9872398724%_ - _%target9272493552%_ - _%tl9272693555%_ - _%e9273393558%_ - _%hd9273493562%_ - _%tl9273593565%_) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ - _%hd9268793663%_) + (##car _%e9374294563%_)))) + (if (gx#stx-null? _%tl9374494570%_) + (_%__match9987499875%_ + _%e9368894638%_ + _%hd9368994642%_ + _%tl9369094645%_ + _%e9369194648%_ + _%hd9369294652%_ + _%tl9369394655%_ + _%e9369494658%_ + _%e9369594662%_ + _%hd9369694666%_ + _%tl9369794669%_ + _%__splice9975499755%_ + _%target9373394557%_ + _%tl9373594560%_ + _%e9374294563%_ + _%hd9374394567%_ + _%tl9374494570%_) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ + _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_)))))) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ _%hd9268793663%_) + (_%g9368193895%_)))))) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_)))))) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ _%hd9268793663%_) - (let () (declare (not safe)) (_%g9267292886%_))))) - (if (let ((__tmp99166 (gx#stx-length _%tl9268893666%_))) + (_%g9368193895%_)))))) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ _%hd9369694666%_) + (let () (declare (not safe)) (_%g9368193895%_))))) + (if (let ((__tmp100196 (gx#stx-length _%tl9369794669%_))) (declare (not safe)) - (##fx>= __tmp99166 '1)) - (let ((_%__splice9872398724%_ + (##fx>= __tmp100196 '1)) + (let ((_%__splice9975499755%_ (gx#syntax-split-splice->vector - _%tl9268893666%_ + _%tl9369794669%_ '1))) - (let ((_%tl9272693555%_ + (let ((_%tl9373594560%_ (let () (declare (not safe)) - (##vector-ref _%__splice9872398724%_ '1))) - (_%target9272493552%_ + (##vector-ref _%__splice9975499755%_ '1))) + (_%target9373394557%_ (let () (declare (not safe)) - (##vector-ref _%__splice9872398724%_ '0)))) - (if (gx#stx-pair? _%tl9272693555%_) - (let ((_%e9273393558%_ - (gx#syntax-e _%tl9272693555%_))) - (let ((_%tl9273593565%_ + (##vector-ref _%__splice9975499755%_ '0)))) + (if (gx#stx-pair? _%tl9373594560%_) + (let ((_%e9374294563%_ + (gx#syntax-e _%tl9373594560%_))) + (let ((_%tl9374494570%_ (let () (declare (not safe)) - (##cdr _%e9273393558%_))) - (_%hd9273493562%_ + (##cdr _%e9374294563%_))) + (_%hd9374394567%_ (let () (declare (not safe)) - (##car _%e9273393558%_)))) - (if (gx#stx-null? _%tl9273593565%_) - (_%__match9884398844%_ - _%e9267993635%_ - _%hd9268093639%_ - _%tl9268193642%_ - _%e9268293645%_ - _%hd9268393649%_ - _%tl9268493652%_ - _%e9268593655%_ - _%e9268693659%_ - _%hd9268793663%_ - _%tl9268893666%_ - _%__splice9872398724%_ - _%target9272493552%_ - _%tl9272693555%_ - _%e9273393558%_ - _%hd9273493562%_ - _%tl9273593565%_) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ _%hd9268793663%_) + (##car _%e9374294563%_)))) + (if (gx#stx-null? _%tl9374494570%_) + (_%__match9987499875%_ + _%e9368894638%_ + _%hd9368994642%_ + _%tl9369094645%_ + _%e9369194648%_ + _%hd9369294652%_ + _%tl9369394655%_ + _%e9369494658%_ + _%e9369594662%_ + _%hd9369694666%_ + _%tl9369794669%_ + _%__splice9975499755%_ + _%target9373394557%_ + _%tl9373594560%_ + _%e9374294563%_ + _%hd9374394567%_ + _%tl9374494570%_) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_)))))) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ _%hd9268793663%_) + (_%g9368193895%_)))))) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_)))))) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ _%hd9268793663%_) - (let () (declare (not safe)) (_%g9267292886%_))))))) + (_%g9368193895%_)))))) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ _%hd9369694666%_) + (let () (declare (not safe)) (_%g9368193895%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let ((__tmp99167 + (if (let ((__tmp100197 (gx#stx-length - _%tl9268893666%_))) + _%tl9369794669%_))) (declare (not safe)) - (##fx>= __tmp99167 '1)) - (let ((_%__splice9872398724%_ + (##fx>= __tmp100197 '1)) + (let ((_%__splice9975499755%_ (gx#syntax-split-splice->vector - _%tl9268893666%_ + _%tl9369794669%_ '1))) - (let ((_%tl9272693555%_ + (let ((_%tl9373594560%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice9872398724%_ '1))) - (_%target9272493552%_ + (##vector-ref _%__splice9975499755%_ '1))) + (_%target9373394557%_ (let () (declare (not safe)) - (##vector-ref _%__splice9872398724%_ '0)))) - (if (gx#stx-pair? _%tl9272693555%_) - (let ((_%e9273393558%_ (gx#syntax-e _%tl9272693555%_))) - (let ((_%tl9273593565%_ + (##vector-ref _%__splice9975499755%_ '0)))) + (if (gx#stx-pair? _%tl9373594560%_) + (let ((_%e9374294563%_ (gx#syntax-e _%tl9373594560%_))) + (let ((_%tl9374494570%_ (let () (declare (not safe)) - (##cdr _%e9273393558%_))) - (_%hd9273493562%_ + (##cdr _%e9374294563%_))) + (_%hd9374394567%_ (let () (declare (not safe)) - (##car _%e9273393558%_)))) - (if (gx#stx-null? _%tl9273593565%_) - (_%__match9884398844%_ - _%e9267993635%_ - _%hd9268093639%_ - _%tl9268193642%_ - _%e9268293645%_ - _%hd9268393649%_ - _%tl9268493652%_ - _%e9268593655%_ - _%e9268693659%_ - _%hd9268793663%_ - _%tl9268893666%_ - _%__splice9872398724%_ - _%target9272493552%_ - _%tl9272693555%_ - _%e9273393558%_ - _%hd9273493562%_ - _%tl9273593565%_) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ _%hd9268793663%_) + (##car _%e9374294563%_)))) + (if (gx#stx-null? _%tl9374494570%_) + (_%__match9987499875%_ + _%e9368894638%_ + _%hd9368994642%_ + _%tl9369094645%_ + _%e9369194648%_ + _%hd9369294652%_ + _%tl9369394655%_ + _%e9369494658%_ + _%e9369594662%_ + _%hd9369694666%_ + _%tl9369794669%_ + _%__splice9975499755%_ + _%target9373394557%_ + _%tl9373594560%_ + _%e9374294563%_ + _%hd9374394567%_ + _%tl9374494570%_) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_)))))) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ _%hd9268793663%_) - (let () (declare (not safe)) (_%g9267292886%_)))))) + (_%g9368193895%_)))))) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ _%hd9369694666%_) + (let () (declare (not safe)) (_%g9368193895%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl9268893666%_) - (_%__kont9872598726%_ - _%hd9268793663%_) + _%tl9369794669%_) + (_%__kont9975699757%_ + _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_))))) - (if (let ((__tmp99168 + (_%g9368193895%_))))) + (if (let ((__tmp100198 (gx#stx-length - _%tl9268893666%_))) + _%tl9369794669%_))) (declare (not safe)) - (##fx>= __tmp99168 '1)) - (let ((_%__splice9872398724%_ + (##fx>= __tmp100198 '1)) + (let ((_%__splice9975499755%_ (gx#syntax-split-splice->vector - _%tl9268893666%_ + _%tl9369794669%_ '1))) - (let ((_%tl9272693555%_ + (let ((_%tl9373594560%_ (let () (declare (not safe)) (##vector-ref - _%__splice9872398724%_ + _%__splice9975499755%_ '1))) - (_%target9272493552%_ + (_%target9373394557%_ (let () (declare (not safe)) (##vector-ref - _%__splice9872398724%_ + _%__splice9975499755%_ '0)))) (if (gx#stx-pair? - _%tl9272693555%_) - (let ((_%e9273393558%_ + _%tl9373594560%_) + (let ((_%e9374294563%_ (gx#syntax-e - _%tl9272693555%_))) - (let ((_%tl9273593565%_ + _%tl9373594560%_))) + (let ((_%tl9374494570%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e9273393558%_))) - (_%hd9273493562%_ + (let () (declare (not safe)) (##cdr _%e9374294563%_))) + (_%hd9374394567%_ (let () (declare (not safe)) - (##car _%e9273393558%_)))) - (if (gx#stx-null? _%tl9273593565%_) - (_%__match9884398844%_ - _%e9267993635%_ - _%hd9268093639%_ - _%tl9268193642%_ - _%e9268293645%_ - _%hd9268393649%_ - _%tl9268493652%_ - _%e9268593655%_ - _%e9268693659%_ - _%hd9268793663%_ - _%tl9268893666%_ - _%__splice9872398724%_ - _%target9272493552%_ - _%tl9272693555%_ - _%e9273393558%_ - _%hd9273493562%_ - _%tl9273593565%_) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ _%hd9268793663%_) - (let () (declare (not safe)) (_%g9267292886%_)))))) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ _%hd9268793663%_) - (let () (declare (not safe)) (_%g9267292886%_)))))) + (##car _%e9374294563%_)))) + (if (gx#stx-null? _%tl9374494570%_) + (_%__match9987499875%_ + _%e9368894638%_ + _%hd9368994642%_ + _%tl9369094645%_ + _%e9369194648%_ + _%hd9369294652%_ + _%tl9369394655%_ + _%e9369494658%_ + _%e9369594662%_ + _%hd9369694666%_ + _%tl9369794669%_ + _%__splice9975499755%_ + _%target9373394557%_ + _%tl9373594560%_ + _%e9374294563%_ + _%hd9374394567%_ + _%tl9374494570%_) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ _%hd9369694666%_) + (let () (declare (not safe)) (_%g9368193895%_)))))) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ _%hd9369694666%_) + (let () (declare (not safe)) (_%g9368193895%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl9268893666%_) - (_%__kont9872598726%_ - _%hd9268793663%_) + _%tl9369794669%_) + (_%__kont9975699757%_ + _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_))))) - (if (let ((__tmp99169 + (_%g9368193895%_))))) + (if (let ((__tmp100199 (gx#stx-length - _%tl9268893666%_))) + _%tl9369794669%_))) (declare (not safe)) - (##fx>= __tmp99169 '1)) - (let ((_%__splice9872398724%_ + (##fx>= __tmp100199 '1)) + (let ((_%__splice9975499755%_ (gx#syntax-split-splice->vector - _%tl9268893666%_ + _%tl9369794669%_ '1))) - (let ((_%tl9272693555%_ + (let ((_%tl9373594560%_ (let () (declare (not safe)) (##vector-ref - _%__splice9872398724%_ + _%__splice9975499755%_ '1))) - (_%target9272493552%_ + (_%target9373394557%_ (let () (declare (not safe)) (##vector-ref - _%__splice9872398724%_ + _%__splice9975499755%_ '0)))) (if (gx#stx-pair? - _%tl9272693555%_) - (let ((_%e9273393558%_ + _%tl9373594560%_) + (let ((_%e9374294563%_ (gx#syntax-e - _%tl9272693555%_))) - (let ((_%tl9273593565%_ + _%tl9373594560%_))) + (let ((_%tl9374494570%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e9273393558%_))) - (_%hd9273493562%_ - (let () (declare (not safe)) (##car _%e9273393558%_)))) - (if (gx#stx-null? _%tl9273593565%_) - (_%__match9884398844%_ - _%e9267993635%_ - _%hd9268093639%_ - _%tl9268193642%_ - _%e9268293645%_ - _%hd9268393649%_ - _%tl9268493652%_ - _%e9268593655%_ - _%e9268693659%_ - _%hd9268793663%_ - _%tl9268893666%_ - _%__splice9872398724%_ - _%target9272493552%_ - _%tl9272693555%_ - _%e9273393558%_ - _%hd9273493562%_ - _%tl9273593565%_) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ _%hd9268793663%_) - (let () (declare (not safe)) (_%g9267292886%_)))))) + (##cdr _%e9374294563%_))) + (_%hd9374394567%_ + (let () (declare (not safe)) (##car _%e9374294563%_)))) + (if (gx#stx-null? _%tl9374494570%_) + (_%__match9987499875%_ + _%e9368894638%_ + _%hd9368994642%_ + _%tl9369094645%_ + _%e9369194648%_ + _%hd9369294652%_ + _%tl9369394655%_ + _%e9369494658%_ + _%e9369594662%_ + _%hd9369694666%_ + _%tl9369794669%_ + _%__splice9975499755%_ + _%target9373394557%_ + _%tl9373594560%_ + _%e9374294563%_ + _%hd9374394567%_ + _%tl9374494570%_) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ _%hd9369694666%_) + (let () (declare (not safe)) (_%g9368193895%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl9268893666%_) - (_%__kont9872598726%_ - _%hd9268793663%_) + _%tl9369794669%_) + (_%__kont9975699757%_ + _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_)))))) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ - _%hd9268793663%_) + (_%g9368193895%_)))))) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ + _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_))))))) - (if (let ((__tmp99170 - (gx#stx-length _%tl9268893666%_))) + (_%g9368193895%_))))))) + (if (let ((__tmp100200 + (gx#stx-length _%tl9369794669%_))) (declare (not safe)) - (##fx>= __tmp99170 '1)) - (let ((_%__splice9872398724%_ + (##fx>= __tmp100200 '1)) + (let ((_%__splice9975499755%_ (gx#syntax-split-splice->vector - _%tl9268893666%_ + _%tl9369794669%_ '1))) - (let ((_%tl9272693555%_ + (let ((_%tl9373594560%_ (let () (declare (not safe)) (##vector-ref - _%__splice9872398724%_ + _%__splice9975499755%_ '1))) - (_%target9272493552%_ + (_%target9373394557%_ (let () (declare (not safe)) (##vector-ref - _%__splice9872398724%_ + _%__splice9975499755%_ '0)))) - (if (gx#stx-pair? _%tl9272693555%_) - (let ((_%e9273393558%_ + (if (gx#stx-pair? _%tl9373594560%_) + (let ((_%e9374294563%_ (gx#syntax-e - _%tl9272693555%_))) - (let ((_%tl9273593565%_ + _%tl9373594560%_))) + (let ((_%tl9374494570%_ (let () (declare (not safe)) - (##cdr _%e9273393558%_))) - (_%hd9273493562%_ + (##cdr _%e9374294563%_))) + (_%hd9374394567%_ (let () (declare (not safe)) - (##car _%e9273393558%_)))) + (##car _%e9374294563%_)))) (if (gx#stx-null? - _%tl9273593565%_) - (_%__match9884398844%_ - _%e9267993635%_ - _%hd9268093639%_ - _%tl9268193642%_ - _%e9268293645%_ - _%hd9268393649%_ - _%tl9268493652%_ - _%e9268593655%_ - _%e9268693659%_ - _%hd9268793663%_ - _%tl9268893666%_ - _%__splice9872398724%_ - _%target9272493552%_ - _%tl9272693555%_ - _%e9273393558%_ - _%hd9273493562%_ - _%tl9273593565%_) + _%tl9374494570%_) + (_%__match9987499875%_ + _%e9368894638%_ + _%hd9368994642%_ + _%tl9369094645%_ + _%e9369194648%_ + _%hd9369294652%_ + _%tl9369394655%_ + _%e9369494658%_ + _%e9369594662%_ + _%hd9369694666%_ + _%tl9369794669%_ + _%__splice9975499755%_ + _%target9373394557%_ + _%tl9373594560%_ + _%e9374294563%_ + _%hd9374394567%_ + _%tl9374494570%_) (if (gx#stx-null? - _%tl9268893666%_) - (_%__kont9872598726%_ - _%hd9268793663%_) + _%tl9369794669%_) + (_%__kont9975699757%_ + _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_)))))) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ - _%hd9268793663%_) + (_%g9368193895%_)))))) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ + _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_)))))) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ _%hd9268793663%_) + (_%g9368193895%_)))))) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_))))))) - (if (let ((__tmp99171 - (gx#stx-length _%tl9268893666%_))) + (_%g9368193895%_))))))) + (if (let ((__tmp100201 + (gx#stx-length _%tl9369794669%_))) (declare (not safe)) - (##fx>= __tmp99171 '1)) - (let ((_%__splice9872398724%_ + (##fx>= __tmp100201 '1)) + (let ((_%__splice9975499755%_ (gx#syntax-split-splice->vector - _%tl9268893666%_ + _%tl9369794669%_ '1))) - (let ((_%tl9272693555%_ + (let ((_%tl9373594560%_ (let () (declare (not safe)) (##vector-ref - _%__splice9872398724%_ + _%__splice9975499755%_ '1))) - (_%target9272493552%_ + (_%target9373394557%_ (let () (declare (not safe)) (##vector-ref - _%__splice9872398724%_ + _%__splice9975499755%_ '0)))) - (if (gx#stx-pair? _%tl9272693555%_) - (let ((_%e9273393558%_ - (gx#syntax-e _%tl9272693555%_))) - (let ((_%tl9273593565%_ + (if (gx#stx-pair? _%tl9373594560%_) + (let ((_%e9374294563%_ + (gx#syntax-e _%tl9373594560%_))) + (let ((_%tl9374494570%_ (let () (declare (not safe)) - (##cdr _%e9273393558%_))) - (_%hd9273493562%_ + (##cdr _%e9374294563%_))) + (_%hd9374394567%_ (let () (declare (not safe)) - (##car _%e9273393558%_)))) - (if (gx#stx-null? _%tl9273593565%_) - (_%__match9884398844%_ - _%e9267993635%_ - _%hd9268093639%_ - _%tl9268193642%_ - _%e9268293645%_ - _%hd9268393649%_ - _%tl9268493652%_ - _%e9268593655%_ - _%e9268693659%_ - _%hd9268793663%_ - _%tl9268893666%_ - _%__splice9872398724%_ - _%target9272493552%_ - _%tl9272693555%_ - _%e9273393558%_ - _%hd9273493562%_ - _%tl9273593565%_) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ - _%hd9268793663%_) + (##car _%e9374294563%_)))) + (if (gx#stx-null? _%tl9374494570%_) + (_%__match9987499875%_ + _%e9368894638%_ + _%hd9368994642%_ + _%tl9369094645%_ + _%e9369194648%_ + _%hd9369294652%_ + _%tl9369394655%_ + _%e9369494658%_ + _%e9369594662%_ + _%hd9369694666%_ + _%tl9369794669%_ + _%__splice9975499755%_ + _%target9373394557%_ + _%tl9373594560%_ + _%e9374294563%_ + _%hd9374394567%_ + _%tl9374494570%_) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ + _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_)))))) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ _%hd9268793663%_) + (_%g9368193895%_)))))) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_)))))) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ _%hd9268793663%_) + (_%g9368193895%_)))))) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_))))))) - (if (let ((__tmp99172 (gx#stx-length _%tl9268893666%_))) + (_%g9368193895%_))))))) + (if (let ((__tmp100202 (gx#stx-length _%tl9369794669%_))) (declare (not safe)) - (##fx>= __tmp99172 '1)) - (let ((_%__splice9872398724%_ + (##fx>= __tmp100202 '1)) + (let ((_%__splice9975499755%_ (gx#syntax-split-splice->vector - _%tl9268893666%_ + _%tl9369794669%_ '1))) - (let ((_%tl9272693555%_ + (let ((_%tl9373594560%_ (let () (declare (not safe)) - (##vector-ref _%__splice9872398724%_ '1))) - (_%target9272493552%_ + (##vector-ref _%__splice9975499755%_ '1))) + (_%target9373394557%_ (let () (declare (not safe)) - (##vector-ref _%__splice9872398724%_ '0)))) - (if (gx#stx-pair? _%tl9272693555%_) - (let ((_%e9273393558%_ - (gx#syntax-e _%tl9272693555%_))) - (let ((_%tl9273593565%_ + (##vector-ref _%__splice9975499755%_ '0)))) + (if (gx#stx-pair? _%tl9373594560%_) + (let ((_%e9374294563%_ + (gx#syntax-e _%tl9373594560%_))) + (let ((_%tl9374494570%_ (let () (declare (not safe)) - (##cdr _%e9273393558%_))) - (_%hd9273493562%_ + (##cdr _%e9374294563%_))) + (_%hd9374394567%_ (let () (declare (not safe)) - (##car _%e9273393558%_)))) - (if (gx#stx-null? _%tl9273593565%_) - (_%__match9884398844%_ - _%e9267993635%_ - _%hd9268093639%_ - _%tl9268193642%_ - _%e9268293645%_ - _%hd9268393649%_ - _%tl9268493652%_ - _%e9268593655%_ - _%e9268693659%_ - _%hd9268793663%_ - _%tl9268893666%_ - _%__splice9872398724%_ - _%target9272493552%_ - _%tl9272693555%_ - _%e9273393558%_ - _%hd9273493562%_ - _%tl9273593565%_) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ _%hd9268793663%_) + (##car _%e9374294563%_)))) + (if (gx#stx-null? _%tl9374494570%_) + (_%__match9987499875%_ + _%e9368894638%_ + _%hd9368994642%_ + _%tl9369094645%_ + _%e9369194648%_ + _%hd9369294652%_ + _%tl9369394655%_ + _%e9369494658%_ + _%e9369594662%_ + _%hd9369694666%_ + _%tl9369794669%_ + _%__splice9975499755%_ + _%target9373394557%_ + _%tl9373594560%_ + _%e9374294563%_ + _%hd9374394567%_ + _%tl9374494570%_) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_)))))) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ _%hd9268793663%_) + (_%g9368193895%_)))))) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_)))))) - (if (gx#stx-null? _%tl9268893666%_) - (_%__kont9872598726%_ _%hd9268793663%_) - (let () (declare (not safe)) (_%g9267292886%_))))) + (_%g9368193895%_)))))) + (if (gx#stx-null? _%tl9369794669%_) + (_%__kont9975699757%_ _%hd9369694666%_) + (let () (declare (not safe)) (_%g9368193895%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl9268893666%_) - (_%__kont9872598726%_ - _%hd9268793663%_) + _%tl9369794669%_) + (_%__kont9975699757%_ + _%hd9369694666%_) (let () (declare (not safe)) - (_%g9267292886%_)))))) + (_%g9368193895%_)))))) (let () (declare (not safe)) - (_%g9267292886%_))) - (if (equal? _%e9268593655%_ '2) - (if (gx#stx-pair? _%tl9268493652%_) - (let ((_%e9276093358%_ + (_%g9368193895%_))) + (if (equal? _%e9369494658%_ '2) + (if (gx#stx-pair? _%tl9369394655%_) + (let ((_%e9376994363%_ (gx#syntax-e - _%tl9268493652%_))) - (let ((_%tl9276293365%_ + _%tl9369394655%_))) + (let ((_%tl9377194370%_ (let () (declare (not safe)) - (##cdr _%e9276093358%_))) - (_%hd9276193362%_ + (##cdr _%e9376994363%_))) + (_%hd9377094367%_ (let () (declare (not safe)) - (##car _%e9276093358%_)))) + (##car _%e9376994363%_)))) (if (gx#stx-pair? - _%tl9276293365%_) - (let ((_%e9276393368%_ + _%tl9377194370%_) + (let ((_%e9377294373%_ (gx#syntax-e - _%tl9276293365%_))) - (let ((_%tl9276593375%_ + _%tl9377194370%_))) + (let ((_%tl9377494380%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e9276393368%_))) - (_%hd9276493372%_ + (let () (declare (not safe)) (##cdr _%e9377294373%_))) + (_%hd9377394377%_ (let () (declare (not safe)) - (##car _%e9276393368%_)))) - (if (gx#stx-pair? _%hd9276493372%_) - (let ((_%e9276693378%_ (gx#syntax-e _%hd9276493372%_))) - (let ((_%tl9276893385%_ + (##car _%e9377294373%_)))) + (if (gx#stx-pair? _%hd9377394377%_) + (let ((_%e9377594383%_ (gx#syntax-e _%hd9377394377%_))) + (let ((_%tl9377794390%_ (let () (declare (not safe)) - (##cdr _%e9276693378%_))) - (_%hd9276793382%_ + (##cdr _%e9377594383%_))) + (_%hd9377694387%_ (let () (declare (not safe)) - (##car _%e9276693378%_)))) - (if (gx#stx-pair? _%hd9276793382%_) - (let ((_%e9276993388%_ - (gx#syntax-e _%hd9276793382%_))) - (let ((_%tl9277193395%_ + (##car _%e9377594383%_)))) + (if (gx#stx-pair? _%hd9377694387%_) + (let ((_%e9377894393%_ + (gx#syntax-e _%hd9377694387%_))) + (let ((_%tl9378094400%_ (let () (declare (not safe)) - (##cdr _%e9276993388%_))) - (_%hd9277093392%_ + (##cdr _%e9377894393%_))) + (_%hd9377994397%_ (let () (declare (not safe)) - (##car _%e9276993388%_)))) - (if (gx#identifier? _%hd9277093392%_) + (##car _%e9377894393%_)))) + (if (gx#identifier? _%hd9377994397%_) (if (gx#free-identifier=? - |[1]#_g99173_| - _%hd9277093392%_) - (if (gx#stx-pair? _%tl9277193395%_) - (let ((_%e9277293398%_ + |[1]#_g100203_| + _%hd9377994397%_) + (if (gx#stx-pair? _%tl9378094400%_) + (let ((_%e9378194403%_ (gx#syntax-e - _%tl9277193395%_))) - (let ((_%tl9277493405%_ + _%tl9378094400%_))) + (let ((_%tl9378394410%_ (let () (declare (not safe)) - (##cdr _%e9277293398%_))) - (_%hd9277393402%_ + (##cdr _%e9378194403%_))) + (_%hd9378294407%_ (let () (declare (not safe)) - (##car _%e9277293398%_)))) + (##car _%e9378194403%_)))) (if (gx#stx-null? - _%tl9277493405%_) + _%tl9378394410%_) (if (gx#stx-pair? - _%tl9276893385%_) - (let ((_%e9277593408%_ + _%tl9377794390%_) + (let ((_%e9378494413%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl9276893385%_))) - (let ((_%tl9277793415%_ + (gx#syntax-e _%tl9377794390%_))) + (let ((_%tl9378694420%_ (let () (declare (not safe)) - (##cdr _%e9277593408%_))) - (_%hd9277693412%_ + (##cdr _%e9378494413%_))) + (_%hd9378594417%_ (let () (declare (not safe)) - (##car _%e9277593408%_)))) - (_%__kont9872798728%_ - _%tl9276593375%_ - _%tl9277793415%_ - _%hd9277693412%_ - _%hd9277393402%_ - _%hd9276193362%_ - _%hd9268093639%_))) - (_%__kont9872998730%_ - _%tl9276593375%_ - _%tl9276893385%_ - _%hd9276793382%_ - _%hd9276193362%_ - _%hd9268093639%_)) - (_%__kont9872998730%_ - _%tl9276593375%_ - _%tl9276893385%_ - _%hd9276793382%_ - _%hd9276193362%_ - _%hd9268093639%_)))) + (##car _%e9378494413%_)))) + (_%__kont9975899759%_ + _%tl9377494380%_ + _%tl9378694420%_ + _%hd9378594417%_ + _%hd9378294407%_ + _%hd9377094367%_ + _%hd9368994642%_))) + (_%__kont9976099761%_ + _%tl9377494380%_ + _%tl9377794390%_ + _%hd9377694387%_ + _%hd9377094367%_ + _%hd9368994642%_)) + (_%__kont9976099761%_ + _%tl9377494380%_ + _%tl9377794390%_ + _%hd9377694387%_ + _%hd9377094367%_ + _%hd9368994642%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont9872998730%_ - _%tl9276593375%_ - _%tl9276893385%_ - _%hd9276793382%_ - _%hd9276193362%_ - _%hd9268093639%_)) - (_%__kont9872998730%_ - _%tl9276593375%_ - _%tl9276893385%_ - _%hd9276793382%_ - _%hd9276193362%_ - _%hd9268093639%_)) - (_%__kont9872998730%_ - _%tl9276593375%_ - _%tl9276893385%_ - _%hd9276793382%_ - _%hd9276193362%_ - _%hd9268093639%_)))) - (_%__kont9872998730%_ - _%tl9276593375%_ - _%tl9276893385%_ - _%hd9276793382%_ - _%hd9276193362%_ - _%hd9268093639%_)))) - (if (gx#stx-null? _%hd9276493372%_) - (_%__kont9873198732%_ - _%tl9276593375%_ - _%hd9276193362%_ - _%hd9268093639%_) - (let () (declare (not safe)) (_%g9267292886%_)))))) - (let () (declare (not safe)) (_%g9267292886%_))))) + (_%__kont9976099761%_ + _%tl9377494380%_ + _%tl9377794390%_ + _%hd9377694387%_ + _%hd9377094367%_ + _%hd9368994642%_)) + (_%__kont9976099761%_ + _%tl9377494380%_ + _%tl9377794390%_ + _%hd9377694387%_ + _%hd9377094367%_ + _%hd9368994642%_)) + (_%__kont9976099761%_ + _%tl9377494380%_ + _%tl9377794390%_ + _%hd9377694387%_ + _%hd9377094367%_ + _%hd9368994642%_)))) + (_%__kont9976099761%_ + _%tl9377494380%_ + _%tl9377794390%_ + _%hd9377694387%_ + _%hd9377094367%_ + _%hd9368994642%_)))) + (if (gx#stx-null? _%hd9377394377%_) + (_%__kont9976299763%_ + _%tl9377494380%_ + _%hd9377094367%_ + _%hd9368994642%_) + (let () (declare (not safe)) (_%g9368193895%_)))))) + (let () (declare (not safe)) (_%g9368193895%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g9267292886%_))) - (if (equal? _%e9268593655%_ '3) + (_%g9368193895%_))) + (if (equal? _%e9369494658%_ '3) (if (gx#stx-pair? - _%tl9268493652%_) - (let ((_%e9282793107%_ + _%tl9369394655%_) + (let ((_%e9383694112%_ (gx#syntax-e - _%tl9268493652%_))) - (let ((_%tl9282993114%_ + _%tl9369394655%_))) + (let ((_%tl9383894119%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e9282793107%_))) - (_%hd9282893111%_ - (let () (declare (not safe)) (##car _%e9282793107%_)))) - (if (gx#stx-pair? _%tl9282993114%_) - (let ((_%e9283093117%_ (gx#syntax-e _%tl9282993114%_))) - (let ((_%tl9283293124%_ + (##cdr _%e9383694112%_))) + (_%hd9383794116%_ + (let () (declare (not safe)) (##car _%e9383694112%_)))) + (if (gx#stx-pair? _%tl9383894119%_) + (let ((_%e9383994122%_ (gx#syntax-e _%tl9383894119%_))) + (let ((_%tl9384194129%_ (let () (declare (not safe)) - (##cdr _%e9283093117%_))) - (_%hd9283193121%_ + (##cdr _%e9383994122%_))) + (_%hd9384094126%_ (let () (declare (not safe)) - (##car _%e9283093117%_)))) - (if (gx#stx-pair? _%hd9283193121%_) - (let ((_%e9283393127%_ - (gx#syntax-e _%hd9283193121%_))) - (let ((_%tl9283593134%_ + (##car _%e9383994122%_)))) + (if (gx#stx-pair? _%hd9384094126%_) + (let ((_%e9384294132%_ + (gx#syntax-e _%hd9384094126%_))) + (let ((_%tl9384494139%_ (let () (declare (not safe)) - (##cdr _%e9283393127%_))) - (_%hd9283493131%_ + (##cdr _%e9384294132%_))) + (_%hd9384394136%_ (let () (declare (not safe)) - (##car _%e9283393127%_)))) - (_%__kont9873398734%_ - _%tl9283293124%_ - _%tl9283593134%_ - _%hd9283493131%_ - _%hd9282893111%_ - _%hd9268093639%_))) - (if (gx#stx-pair/null? _%hd9282893111%_) - (let ((_%__splice9873798738%_ + (##car _%e9384294132%_)))) + (_%__kont9976499765%_ + _%tl9384194129%_ + _%tl9384494139%_ + _%hd9384394136%_ + _%hd9383794116%_ + _%hd9368994642%_))) + (if (gx#stx-pair/null? _%hd9383794116%_) + (let ((_%__splice9976899769%_ (gx#syntax-split-splice->vector - _%hd9282893111%_ + _%hd9383794116%_ '0))) - (let ((_%tl9285492930%_ + (let ((_%tl9386393939%_ (let () (declare (not safe)) (##vector-ref - _%__splice9873798738%_ + _%__splice9976899769%_ '1))) - (_%target9285292927%_ + (_%target9386193936%_ (let () (declare (not safe)) (##vector-ref - _%__splice9873798738%_ + _%__splice9976899769%_ '0)))) - (if (gx#stx-null? _%tl9285492930%_) - (_%__match9906599066%_ - _%e9267993635%_ - _%hd9268093639%_ - _%tl9268193642%_ - _%e9268293645%_ - _%hd9268393649%_ - _%tl9268493652%_ - _%e9268593655%_ - _%e9282793107%_ - _%hd9282893111%_ - _%tl9282993114%_ - _%__splice9873798738%_ - _%target9285292927%_ - _%tl9285492930%_) + (if (gx#stx-null? _%tl9386393939%_) + (_%__match100096100097%_ + _%e9368894638%_ + _%hd9368994642%_ + _%tl9369094645%_ + _%e9369194648%_ + _%hd9369294652%_ + _%tl9369394655%_ + _%e9369494658%_ + _%e9383694112%_ + _%hd9383794116%_ + _%tl9383894119%_ + _%__splice9976899769%_ + _%target9386193936%_ + _%tl9386393939%_) (let () (declare (not safe)) - (_%g9267292886%_))))) + (_%g9368193895%_))))) (let () (declare (not safe)) - (_%g9267292886%_)))))) - (if (gx#stx-pair/null? _%hd9282893111%_) - (let ((_%__splice9873798738%_ + (_%g9368193895%_)))))) + (if (gx#stx-pair/null? _%hd9383794116%_) + (let ((_%__splice9976899769%_ (gx#syntax-split-splice->vector - _%hd9282893111%_ + _%hd9383794116%_ '0))) - (let ((_%tl9285492930%_ + (let ((_%tl9386393939%_ (let () (declare (not safe)) - (##vector-ref _%__splice9873798738%_ '1))) - (_%target9285292927%_ + (##vector-ref _%__splice9976899769%_ '1))) + (_%target9386193936%_ (let () (declare (not safe)) - (##vector-ref _%__splice9873798738%_ '0)))) - (if (gx#stx-null? _%tl9285492930%_) - (_%__match9906599066%_ - _%e9267993635%_ - _%hd9268093639%_ - _%tl9268193642%_ - _%e9268293645%_ - _%hd9268393649%_ - _%tl9268493652%_ - _%e9268593655%_ - _%e9282793107%_ - _%hd9282893111%_ - _%tl9282993114%_ - _%__splice9873798738%_ - _%target9285292927%_ - _%tl9285492930%_) + (##vector-ref _%__splice9976899769%_ '0)))) + (if (gx#stx-null? _%tl9386393939%_) + (_%__match100096100097%_ + _%e9368894638%_ + _%hd9368994642%_ + _%tl9369094645%_ + _%e9369194648%_ + _%hd9369294652%_ + _%tl9369394655%_ + _%e9369494658%_ + _%e9383694112%_ + _%hd9383794116%_ + _%tl9383894119%_ + _%__splice9976899769%_ + _%target9386193936%_ + _%tl9386393939%_) (let () (declare (not safe)) - (_%g9267292886%_))))) - (let () (declare (not safe)) (_%g9267292886%_)))))) + (_%g9368193895%_))))) + (let () (declare (not safe)) (_%g9368193895%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g9267292886%_))) + (_%g9368193895%_))) (let () (declare (not safe)) - (_%g9267292886%_)))))) + (_%g9368193895%_)))))) (let () (declare (not safe)) - (_%g9267292886%_))))) - (let () (declare (not safe)) (_%g9267292886%_))))) - (let () (declare (not safe)) (_%g9267292886%_)))))))))) + (_%g9368193895%_))))) + (let () (declare (not safe)) (_%g9368193895%_))))) + (let () (declare (not safe)) (_%g9368193895%_)))))))))) diff --git a/src/bootstrap/gerbil/runtime~0.scm b/src/bootstrap/gerbil/runtime~0.scm index 5ec8e07362..db67825fe4 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 1756721295) '#!void) +(begin (define gerbil/runtime::timestamp 1769384628) '#!void) diff --git a/src/build.sh b/src/build.sh index d16271879b..86ab8c9590 100755 --- a/src/build.sh +++ b/src/build.sh @@ -195,7 +195,6 @@ build_stage1 () { local target_lib_gerbil="${GERBIL_BUILD_PREFIX}/lib/gerbil" local target_lib_static="${GERBIL_BUILD_PREFIX}/lib/static" - ## feedback feedback_low "Building Gerbil core" @@ -225,6 +224,45 @@ build_stage1 () { finalize_stage1 "${target_lib}" "${target_bin}" } +build_stage1_bach () { + ## constants + local target_bin="${GERBIL_BUILD_PREFIX}/bin" + local target_lib="${GERBIL_BUILD_PREFIX}/lib" + local target_lib_gerbil="${GERBIL_BUILD_PREFIX}/lib/gerbil" + local target_lib_static="${GERBIL_BUILD_PREFIX}/lib/static" + + GERBIL_HOME="${GERBIL_STAGE0}" # required by boot-gxi + export GERBIL_HOME + + feedback_mid "compiling gerbil bach" + "${GERBIL_STAGE0}/bin/boot-gxi" ./build/build-bach.ss || die + + ## unset GERBIL_HOME from its bootstrap value to avoid confusing the rest of the build + unset GERBIL_HOME + + ## finalize build + feedback_mid "finalizing build ${final:+${final_string}}" + finalize_stage1 "${target_lib}" "${target_bin}" +} + +debug_stage1() { + GERBIL_HOME="${GERBIL_STAGE0}" # required by boot-gxi + export GERBIL_HOME + + gdb "${GERBIL_STAGE0}/bin/boot-gxi" ./build/build1.ss + + unset GERBIL_HOME +} + +debug_stage1_bach() { + GERBIL_HOME="${GERBIL_STAGE0}" # required by boot-gxi + export GERBIL_HOME + + gdb "${GERBIL_STAGE0}/bin/boot-gxi" ./build/build-bach.ss + + unset GERBIL_HOME +} + ## commands build_stdlib () { feedback_low "Building stdlib" @@ -287,8 +325,6 @@ build_gerbil() { build_stdlib || die build_libgerbil || die build_lang || die - build_r7rs_large || die - build_srfi || die build_tools || die } @@ -312,6 +348,18 @@ else "stage1") build_stage1 || die ;; + "stage1-bach") + build_stage1_bach || die + ;; + "stage1-noopt") + GERBIL_NOOPT=t build_stage1 || die + ;; + "stage1-debug") + debug_stage1 + ;; + "stage1-debug-bach") + debug_stage1_bach + ;; "stdlib") build_stdlib || die ;; @@ -321,12 +369,6 @@ else "lang") build_lang || die ;; - "r7rs-large") - build_r7rs_large || die - ;; - "srfi") - build_srfi || die - ;; "tools") build_tools || die ;; diff --git a/src/build/build-bach.ss b/src/build/build-bach.ss index 35ae1159db..6d832cfc22 100644 --- a/src/build/build-bach.ss +++ b/src/build/build-bach.ss @@ -85,8 +85,6 @@ "gerbil/runtime/loader" "gerbil/runtime/init" "gerbil/runtime" - ;; :gerbil/gambit - "gerbil/gambit" ;; :gerbil/expander "gerbil/expander/common" "gerbil/expander/stx" diff --git a/src/build/build-libgerbil.ss b/src/build/build-libgerbil.ss index dfe01ae1dd..10751ffb77 100755 --- a/src/build/build-libgerbil.ss +++ b/src/build/build-libgerbil.ss @@ -4,7 +4,6 @@ ;;; libgerbil build script (import :gerbil/expander - :gerbil/gambit :std/build-config :std/make :std/iter @@ -51,9 +50,6 @@ "gerbil/runtime/init" "gerbil/runtime")) -(def gerbil-prelude-gambit - '("gerbil/gambit")) - (def gerbil-expander '("gerbil/expander/common" "gerbil/expander/stx" @@ -312,7 +308,6 @@ (ordered-modules (order-modules stdlib-modules)) (ordered-modules (remove-duplicates (append gerbil-runtime - gerbil-prelude-gambit gerbil-expander gerbil-compiler ordered-modules))) diff --git a/src/build/build0.scm b/src/build/build0.scm index be49dfb022..5d4deb1d64 100644 --- a/src/build/build0.scm +++ b/src/build/build0.scm @@ -2,5 +2,9 @@ (parallel-build (call-with-input-file ".build.stage0" read-all-as-lines) - (compiler '("-e" "(include \"~~lib/_gambit#.scm\")")) + (let ((options + (if (getenv "GERBIL_DEBUG" #f) + '("-debug-source" "-track-scheme" "-cc-options" "-g" "-e" "(include \"~~lib/_gambit#.scm\")") + '("-e" "(include \"~~lib/_gambit#.scm\")")))) + (compiler options)) false) diff --git a/src/build/build1.ss b/src/build/build1.ss index 1c652e5110..ba8f2fa7e7 100644 --- a/src/build/build1.ss +++ b/src/build/build1.ss @@ -63,9 +63,6 @@ "gerbil/core/contract.ss" "gerbil/core.ss")) -(def gerbil-prelude-gambit - '("gerbil/gambit.ss")) - (def gerbil-libdir (path-expand "lib" (getenv "GERBIL_BUILD_PREFIX"))) @@ -98,8 +95,6 @@ (compile-group gerbil-modules-expander) ;; compile compiler (compile-group gerbil-modules-compiler) -;; compile gambit prelude (TODO: obsolete, it is just an empty shim now) -(compile-group gerbil-prelude-gambit) ;; run the compile jobs to complete the build (execute-pending-compile-jobs!) diff --git a/src/gerbil/compiler/optimize-top.ss b/src/gerbil/compiler/optimize-top.ss index d1e656a8ee..3ee5a3e603 100644 --- a/src/gerbil/compiler/optimize-top.ss +++ b/src/gerbil/compiler/optimize-top.ss @@ -1059,20 +1059,16 @@ namespace: gxc stx)) (def (opt-lambda-dispatch-name id) - (if (uninterned-symbol? id) - (let (str (symbol->string id)) - (if (string-prefix? "opt-lambda" str) - "%" - id)) - id)) + (let (str (symbol->string id)) + (if (string-prefix? "opt-lambda" str) + "%" + id))) (def (kw-lambda-dispatch-name id name) - (if (uninterned-symbol? id) - (let (str (symbol->string id)) - (if (string-prefix? "kw-lambda" str) - name - id)) - id)) + (let (str (symbol->string id)) + (if (string-prefix? "kw-lambda" str) + name + id))) (ast-case stx () ((_ (id) expr) diff --git a/src/gerbil/core/contract.ss b/src/gerbil/core/contract.ss index 6193cdb07c..fe29e4bc83 100644 --- a/src/gerbil/core/contract.ss +++ b/src/gerbil/core/contract.ss @@ -29,19 +29,19 @@ package: gerbil/core (module InterfaceInfo (import "expander" - (only-in "mop" @method)) + "mop" + MOP-2 MOP-3) (export #t) - (defclass interface-info (name - namespace - interface-mixin - interface-methods - interface-precedence-list - interface-descriptor - instance-type - instance-constructor instance-try-constructor - instance-predicate instance-satisfies-predicate - implementation-methods - unchecked-implementation-methods)) + (defclass (interface-info runtime-type-info) + (namespace + interface-mixin + interface-methods + interface-precedence-list + 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)) @@ -49,11 +49,10 @@ package: gerbil/core (lambda (self stx) (syntax-case stx () ((_ obj) - (with-syntax ((klass (interface-info-instance-type self)) - (descriptor (interface-info-interface-descriptor self)) - (instance-type (interface-info-instance-type self))) + (with-syntax ((klass (!runtime-type-descriptor self)) + (descriptor (interface-info-interface-descriptor self))) #'(let ($obj obj) - (begin-annotation (@type instance-type) + (begin-annotation (@type klass) (if (immediate-instance-of? klass $obj) $obj (cast descriptor $obj)))))) @@ -128,7 +127,7 @@ package: gerbil/core ((class-type-info? t) (!class-type-descriptor t)) ((interface-info? t) - (interface-info-instance-type t)) + (!runtime-type-descriptor t)) (else (raise-syntax-error #f "unexpected type; expected class, interface or type reference" stx id t)))))) @@ -162,7 +161,7 @@ package: gerbil/core val (error "bad cast" klass val))))))) ((interface-info? meta) - (with-syntax ((klass (interface-info-instance-type meta)) + (with-syntax ((klass (!runtime-type-descriptor meta)) (cast-it (resolve-type->identifier stx #'type))) #'(begin-annotation (@type klass) (cast-it expr)))) @@ -189,7 +188,7 @@ package: gerbil/core val (contract-violation! "bad cast" expr predicate val))))))) ((interface-info? meta) - (with-syntax ((klass (interface-info-instance-type meta)) + (with-syntax ((klass (!runtime-type-descriptor meta)) (cast-it (resolve-type->identifier stx #'type))) #'(begin-annotation (@type klass) (let (val expr) @@ -197,7 +196,6 @@ package: gerbil/core (else (raise-syntax-error #f "not a class type or interface" stx #'type))))))) - ;; type assertion (unchecked cast) (defsyntax (:- stx) (syntax-case stx () @@ -206,7 +204,17 @@ package: gerbil/core (with-syntax ((klass (resolve-type->type-descriptor stx #'type))) #'(begin-annotation (@type klass) expr))))) - ;; predicate contract check + (defrules do-with-lock (:- :) + ((_ lock :- type body rest ...) + (:- (do-with-lock lock body rest ...) + type)) + ((_ lock : type body rest ...) + (: (do-with-lock lock body rest ...) + type)) + ((_ lock body rest ...) + (with-lock lock (lambda () body rest ...)))) + + ;; predicate contract check (defrules :~ (:-) ((_ expr predicate) (let (val expr) @@ -516,7 +524,7 @@ package: gerbil/core (let (type (resolve-type stx Interface)) (with-syntax ((@@type (syntax-local-introduce '@@type)) (type type) - (Instance::t (interface-info-instance-type type)) + (Instance::t (!runtime-type-descriptor type)) (var var) (checked? checked?) (cte (current-type-env)) @@ -776,7 +784,11 @@ package: gerbil/core (defrule (list-of? pred) (lambda (o) (and (list? o) - (andmap pred o))))) + (andmap pred o)))) + + (defrule (one-of val ...) + (lambda (o) + (or (eq? o `val) ...)))) (module ClassMeta (export #t) @@ -1665,11 +1677,12 @@ package: gerbil/core #'(defsyntax name (make-interface-info name: 'name + type-descriptor: (quote-syntax klass) + id: 'klass-type-id namespace: 'namespace interface-mixin: [(quote-syntax mixin) ...] interface-precedence-list: [(quote-syntax mixin-precedence-list) ...] interface-methods: '(method ...) - instance-type: (quote-syntax klass) interface-descriptor: (quote-syntax descriptor) instance-constructor: (quote-syntax make) instance-try-constructor: (quote-syntax try-make) @@ -1684,10 +1697,8 @@ package: gerbil/core (defsyntax (definterface-method stx) (def (emit-raw-method? return) (let (return-type (syntax-local-value return)) - (if (and (class-type-info? return-type) - (memq (!class-type-id return-type) '(t void))) - ;; no need for the raw method stub if we don't have to check the return type - #f + (if (class-type-info? return-type) + (not (memq (!class-type-id return-type) '(t void))) #t))) (def (make-checked-method-def Interface method-name raw-method-name unchecked-method-name signature return) @@ -1726,11 +1737,15 @@ package: gerbil/core (syntax/loc stx (def (raw-method self . in) (with-interface-unchecked-method self (Interface signature return) - (: (unchecked-method self out ...) return)))) + (if __DEBUG + (: (unchecked-method self out ...) return) + (:- (unchecked-method self out ...) return))))) (syntax/loc stx (def (raw-method self . in) (with-interface-unchecked-method self (Interface signature return) - (: (##apply unchecked-method self out ...) return)))))) + (if __DEBUG + (: (##apply unchecked-method self out ...) return) + (:- (##apply unchecked-method self out ...) return))))))) '(begin))) (def (make-unchecked-method-def Interface unchecked-method-name signature return body) @@ -1815,7 +1830,7 @@ package: gerbil/core (let (info (syntax-local-value #'id false)) (unless (interface-info? info) (raise-syntax-error #f "not an interface type" stx #'id)) - (with ((interface-info instance-type: type + (with ((interface-info type-descriptor: type interface-descriptor: descriptor instance-constructor: constructor instance-try-constructor: try-constructor @@ -2320,20 +2335,12 @@ package: gerbil/core ((_ {method Type} impl rest ...) (and (identifier? #'method) (identifier? #'Type)) - (if (syntax-local-class-type-info? #'Type) - (if (interface-declaration? #'(rest ...)) - (generate-interface-method #'method #'Type #'impl #'(rest ...)) - (generate-class-method #'method #'Type #'impl #'(rest ...))) - (raise-syntax-error #f "not defined as class" stx #'Type))) - - ((_ (wtf method Type) . _) - (cond - ((resolve-identifier #'wtf) - => (lambda (b) - (raise-syntax-error #f "booooo!" stx (binding-id b)))) - (else - (raise-syntax-error #f "booooo!" stx)))) - )) + (let (klass (syntax-local-value #'Type)) + (if (runtime-type-info? klass) + (if (interface-declaration? #'(rest ...)) + (generate-interface-method #'method #'Type #'impl #'(rest ...)) + (generate-class-method #'method #'Type #'impl #'(rest ...))) + (raise-syntax-error #f "not a valid class type" stx #'Type klass)))))) (defsyntax (with-receiver stx) (syntax-case stx () @@ -2372,7 +2379,7 @@ package: gerbil/core (def (check-typedef-body! body) (def (body-opt? key) (memq (stx-e key) - '(id: struct: name: constructor: transparent: final: print: equal: metaclass:))) + '(id: struct: name: constructor: transparent: final: print: equal: metaclass: acyclic:))) (unless (stx-plist? body body-opt?) (raise-syntax-error #f "invalid defclass body" stx body))) @@ -2859,7 +2866,11 @@ package: gerbil/core => (lambda (equal) (let (equal (if (eq? equal #t) #'(slot ...) equal)) (cons [equal: . equal] properties)))) - (else properties)))) + (else properties))) + (properties + (if (stx-e (stx-getq acyclic: body)) + [[acyclic: . #t]] + []))) properties)) ((values type-properties) (if (null? properties) diff --git a/src/gerbil/core/expander.ss b/src/gerbil/core/expander.ss index 944dd6e7eb..2596cd7cde 100644 --- a/src/gerbil/core/expander.ss +++ b/src/gerbil/core/expander.ss @@ -56,7 +56,7 @@ package: gerbil/core core-quote-syntax core-identifier=? core-identifier-key core-apply-expander - syntax-local-introduce syntax-local-rewrap syntax-local-unwrap + syntax-local-introduce syntax-local-temp syntax-local-rewrap syntax-local-unwrap syntax-local-e syntax-local-value resolve-identifier core-resolve-identifier binding? binding-id diff --git a/src/gerbil/core/mop.ss b/src/gerbil/core/mop.ss index 2bd5e5e691..b257601e6d 100644 --- a/src/gerbil/core/mop.ss +++ b/src/gerbil/core/mop.ss @@ -180,21 +180,42 @@ package: gerbil/core (module MOP-2 (import "expander" MOP-1) (export #t) + (defclass-type runtime-type-info::t () + make-runtime-type-info + runtime-type-info? + id: gerbil.core#runtime-type-info::t + name: runtime-type-info + properties: '((print: name)) + slots: + ((id ;; Symbol + ;; the types's type id + !runtime-type-id !runtime-type-id-set!) + (name ;; Symbol + ;; the types's name + !runtime-type-name !runtime-type-name-set!) + (type-descriptor ;; Identifier + ;; the runtime identifier of the class's type descriptor + !runtime-type-descriptor !runtime-type-descriptor-set!))) + ;; class meta type; expansion time class reflection. - (defclass-type class-type-info::t () + (defclass-type class-type-info::t (runtime-type-info::t) make-class-type-info class-type-info? id: gerbil.core#class-type-info::t name: class-type-info properties: '((print: name)) - slots: + mixin: ((id ;; Symbol ;; the class's type id !class-type-id !class-type-id-set!) (name ;; Symbol ;; the class's name !class-type-name !class-type-name-set!) - (super ;; ListOf Identifier + (type-descriptor ;; Identifier + ;; the runtime identifier of the class's type descriptor + !class-type-descriptor !class-type-descriptor-set!)) + slots: + ((super ;; ListOf Identifier ;; the class's super list; identifiers point to class-type-infos !class-type-super !class-type-super-set!) (slots ;; ListOf Symbol @@ -221,9 +242,7 @@ package: gerbil/core (constructor-method ;; OrFalse Symbol ;; the class's constructor method name, if any !class-type-constructor-method !class-type-constructor-method-set!) - (type-descriptor ;; Identifier - ;; the runtime identifier of the class's type descriptor - !class-type-descriptor !class-type-descriptor-set!) + (constructor ;; OrFalse Identifier ;; the class's constructor procudure identifier, if any !class-type-constructor !class-type-constructor-set!) @@ -262,6 +281,12 @@ package: gerbil/core (bind-method! class-type-info::t 'apply-macro-expander class-type-info::apply-macro-expander) +(def (syntax-local-runtime-type-info? stx (is? true)) + (and (identifier? stx) + (alet (e (syntax-local-value stx false)) + (and (runtime-type-info? e) + (is? e))))) + (def (syntax-local-class-type-info? stx (is? true)) (and (identifier? stx) (alet (e (syntax-local-value stx false)) @@ -273,21 +298,47 @@ package: gerbil/core (export #t) ;; meta-circular + (defsyntax runtime-type-info + (make-class-type-info + id: 'gerbil.core#runtime-type-info::t + name: 'runtime-type-info + super: [] + slots: '(id name type-descriptor) + type-descriptor: (quote-syntax runtime-type-info::t) + constructor: (quote-syntax make-runtime-type-info) + predicate: (quote-syntax runtime-type-info?) + accessors: + [['id :: (quote-syntax !runtime-type-id)] + ['name :: (quote-syntax !runtime-type-name)] + ['type-descriptor :: (quote-syntax !runtime-type-descriptor)]] + mutators: + [['id :: (quote-syntax !runtime-type-id-set!)] + ['name :: (quote-syntax !runtime-type-name-set!)] + ['type-descriptor :: (quote-syntax !runtime-type-descriptor-set!)]] + unchecked-accessors: + [['id :: (quote-syntax &!runtime-type-id)] + ['name :: (quote-syntax &!runtime-type-name)] + ['type-descriptor :: (quote-syntax &!runtime-type-descriptor)]] + unchecked-mutators: + [['id :: (quote-syntax &!runtime-type-id-set!)] + ['name :: (quote-syntax &!runtime-type-name-set!)] + ['type-descriptor :: (quote-syntax &!runtime-type-descriptor-set!)]])) + (defsyntax class-type-info (make-class-type-info id: 'gerbil.core#class-type-info::t name: 'class-type-info - super: [] - slots: '(id name super slots - precedence-list - ordered-slots - struct? final? system? - metaclass - constructor-method - type-descriptor constructor predicate - accessors mutators - unchecked-accessors unchecked-mutators - slot-types slot-defaults slot-contracts) + super: [(quote-syntax runtime-type-info)] + slots: '(super slots + precedence-list + ordered-slots + struct? final? system? + metaclass + constructor-method + constructor predicate + accessors mutators + unchecked-accessors unchecked-mutators + slot-types slot-defaults slot-contracts) struct?: #f final?: #f system?: #f @@ -393,7 +444,7 @@ package: gerbil/core (def (typedef-body? stx) (def (body-opt? key) (memq (stx-e key) - '(id: struct: name: constructor: transparent: final: print: equal: metaclass:))) + '(id: struct: name: constructor: transparent: final: print: equal: metaclass: acyclic:))) (stx-plist? stx body-opt?)) (def (generate-defclass stx id super-ref slots body) @@ -500,7 +551,11 @@ package: gerbil/core => (lambda (equal) (let (equal (if (eq? equal #t) slots equal)) (cons [equal: . equal] properties)))) - (else properties)))) + (else properties))) + (properties + (if (stx-e (stx-getq acyclic: body)) + [[acyclic: . #t]] + []))) properties)) ((values type-properties) (if (null? properties) @@ -611,7 +666,7 @@ package: gerbil/core (generate-defclass stx #'id (syntax->list #'super) slots body)) (_ (if (identifier? hd) (generate-defclass stx hd [] slots body) - (raise-syntax-error #f "bad syntax; class name should be an identifier" stx hd))))) + (raise-syntax-error #f "bad syntax; head should be class name or list of class names" stx hd))))) (syntax-case stx () ((_ hd slots . rest) @@ -632,14 +687,14 @@ package: gerbil/core ((_ (@method id type) impl . rest) (cond ((and (identifier? #'id) - (syntax-local-class-type-info? #'type) + (syntax-local-runtime-type-info? #'type) (stx-plist? #'rest method-opt?)) (with-syntax* (((values klass) (syntax-local-value #'type)) ((values rebind?) (stx-e (stx-getq rebind: #'rest))) (type::t - (!class-type-descriptor klass)) + (!runtime-type-descriptor klass)) (name (stx-identifier #'type #'type "::" #'id)) (@next-method @@ -659,8 +714,8 @@ package: gerbil/core (wrap #'(begin defimpl bind)))) ((not (identifier? #'id)) (raise-syntax-error #f "bad syntax; expected method identifier" stx #'id)) - ((not (syntax-local-class-type-info? #'type)) - (raise-syntax-error #f "bad syntax; expected type identifier" stx #'type)) + ((not (syntax-local-runtime-type-info? #'type)) + (raise-syntax-error #f "bad syntax; invalid class type" stx #'type)) (else (raise-syntax-error #f "bad syntax; illegal method options" stx)))))) @@ -745,7 +800,8 @@ package: gerbil/core name: 'class super: [(quote-syntax :t)] slots: '(id name super flags fields - precedence-list slot-vector slot-table properties constructor methods) + precedence-list slot-vector slot-table properties constructor methods + specializer interface) struct?: #t type-descriptor: (quote-syntax class::t) constructor: (quote-syntax make-class-type) @@ -761,7 +817,9 @@ package: gerbil/core ['slot-table :: (quote-syntax class-type-slot-table)] ['properties :: (quote-syntax class-type-properties)] ['constructor :: (quote-syntax class-type-constructor)] - ['methods :: (quote-syntax class-type-methods)]] + ['methods :: (quote-syntax class-type-methods)] + ['specializer :: (quote-syntax class-type-specializer)] + ['interface :: (quote-syntax class-type-interface)]] mutators: [] ; read only unchecked-accessors: [['id :: (quote-syntax &class-type-id)] @@ -774,44 +832,56 @@ package: gerbil/core ['slot-table :: (quote-syntax &class-type-slot-table)] ['properties :: (quote-syntax &class-type-properties)] ['constructor :: (quote-syntax &class-type-constructor)] - ['methods :: (quote-syntax &class-type-methods)]] + ['methods :: (quote-syntax &class-type-methods)] + ['specializer :: (quote-syntax &class-type-specializer)] + ['interface :: (quote-syntax &class-type-interface)]] unchecked-mutators: [] ; read only )) ;; objects - (defsystem-class-info :object object::t (:t) true) + (defsystem-class-info :object object::t (:t) object?) ;; NOTE: this must match gerbil/runtime/mop-system-classes - (defsystem-class-info :immediate immediate::t (:t) immediate?) + (defsystem-class-info :builtin builtin::t (:t) builtin-object?) + (defsystem-class-info :subtyped subtyped::t (:builtin) builtin-subtyped?) + (defsystem-class-info :structure structure::t (:subtyped) builtin-structure?) + (defsystem-class-info :immediate immediate::t (:builtin) immediate?) + + (defsystem-class-info :special special::t (:immediate) special?) + (defsystem-class-info :atom atom::t (:special) atom?) (defsystem-class-info :char char::t (:immediate) char?) (defsystem-class-info :boolean boolean::t (:immediate) boolean?) - - (defsystem-class-info :atom atom::t (:immediate) atom?) - (defsystem-class-info :void void::t (:atom) void?) - (defsystem-class-info :eof eof::t (:atom) eof-object?) (defsystem-class-info :true true::t (:boolean :atom) true?) (defsystem-class-info :false false::t (:boolean :atom) not) - - (defsystem-class-info :special special::t (:atom) special?) - - (defsystem-class-info :number number::t (:t) number?) + (defsystem-class-info :eof eof::t (:atom) eof-object?) + (defsystem-class-info :void void::t (:atom) void?) + (defsystem-class-info :unbound unbound::t (:atom) unbound?) + (defsystem-class-info :unbound2 unbound2::t (:atom) unbound2?) + (defsystem-class-info :dssl-token dssl-token::t (:atom) dssl-token?) + (defsystem-class-info :dssl-optional optional::t (:dssl-token) dssl-optional?) + (defsystem-class-info :dssl-rest rest::t (:dssl-token) dssl-rest?) + (defsystem-class-info :dssl-key key::t (:dssl-token) dssl-key?) + + (defsystem-class-info :number number::t (:builtin) number?) (defsystem-class-info :real real::t (:number) real?) (defsystem-class-info :integer integer::t (:real) exact-integer?) (defsystem-class-info :fixnum fixnum::t (:integer :immediate) fixnum?) - (defsystem-class-info :bignum bignum::t (:integer) ##bignum?) - (defsystem-class-info :ratnum ratnum::t (:real) ##ratnum?) + (defsystem-class-info :bignum bignum::t (:integer :subtyped) ##bignum?) + (defsystem-class-info :ratnum ratnum::t (:real :subgtyped) ##ratnum?) (defsystem-class-info :flonum flonum::t (:real) flonum?) - (defsystem-class-info :cpxnum cpxnum::t (:number) ##cpxnum?) + (defsystem-class-info :stflonum stflonum::t (:flonum :immediate) stflonum?) + (defsystem-class-info :haflonum haflonum::t (:flonum :subtyped) haflonum?) + (defsystem-class-info :cpxnum cpxnum::t (:number :subtyped) ##cpxnum?) - (defsystem-class-info :symbolic symbolic::t (:t) symbolic?) + (defsystem-class-info :symbolic symbolic::t (:subtyped) symbolic?) (defsystem-class-info :symbol symbol::t (:symbolic) symbol?) (defsystem-class-info :keyword keyword::t (:symbolic) keyword?) - (defsystem-class-info :list list::t (:t) list?) - (defsystem-class-info :pair pair::t (:list) pair?) + (defsystem-class-info :list list::t (:builtin) list?) + (defsystem-class-info :pair pair::t (:list :subtyped) pair?) (defsystem-class-info :null null::t (:list :atom) null?) - (defsystem-class-info :sequence sequence::t (:t) sequence?) + (defsystem-class-info :sequence sequence::t (:subtyped) sequence?) (defsystem-class-info :vector vector::t (:sequence) vector?) (defsystem-class-info :string string::t (:sequence) string?) (defsystem-class-info :hvector hvector::t (:sequence) hvector?) @@ -826,22 +896,23 @@ package: gerbil/core (defsystem-class-info :f32vector f32vector::t (:hvector) f32vector?) (defsystem-class-info :f64vector f64vector::t (:hvector) f64vector?) - (defsystem-class-info :values values::t (:t) ##values?) - (defsystem-class-info :box box::t (:t) box?) - (defsystem-class-info :frame frame::t (:t) ##frame?) - (defsystem-class-info :continuation continuation::t (:t) continuation?) - (defsystem-class-info :promise promise::t (:t) promise?) - (defsystem-class-info :weak weak::t (:t) weak?) - (defsystem-class-info :foreign foreign::t (:t) foreign?) - - (defsystem-class-info :procedure procedure::t (:t) procedure?) - - (defsystem-class-info :time time::t (:t) time?) - (defsystem-class-info :thread thread::t (:t) thread?) - (defsystem-class-info :thread-group thread-group::t (:t) thread-group?) - (defsystem-class-info :mutex mutex::t (:t) mutex?) - (defsystem-class-info :condvar condvar::t (:t) condvar?) - (defsystem-class-info :port port::t (:t) port?) + (defsystem-class-info :values values::t (:sequence) ##values?) + (defsystem-class-info :box box::t (:subtyped) box?) + (defsystem-class-info :frame frame::t (:subtyped) ##frame?) + (defsystem-class-info :continuation continuation::t (:subtyped) continuation?) + (defsystem-class-info :promise promise::t (:subtyped) promise?) + (defsystem-class-info :weak weak::t (:subtyped) weak?) + (defsystem-class-info :foreign foreign::t (:subtyped) foreign?) + + (defsystem-class-info :procedure procedure::t (:subtyped) procedure?) + (defsystem-class-info :return return::t (:subtyped) ##return?) + + ;; (defsystem-class-info :time time::t (:structure) time?) + (defsystem-class-info :thread thread::t (:structure) thread?) + (defsystem-class-info :thread-group thread-group::t (:subtyped) thread-group?) + (defsystem-class-info :mutex mutex::t (:subtyped) mutex?) + (defsystem-class-info :condvar condvar::t (:subtyped) condvar?) + (defsystem-class-info :port port::t (:subtyped) port?) (defsystem-class-info :object-port object-port::t (:port) object-port?) (defsystem-class-info :character-port character-port::t (:object-port) character-port?) (defsystem-class-info :byte-port byte-port::t (:character-port) byte-port?) @@ -854,14 +925,14 @@ package: gerbil/core (defsystem-class-info :udp-port udp-port::t (:object-port) udp-port?) (defsystem-class-info :directory-port directory-port::t (:object-port) directory-port?) (defsystem-class-info :event-queue-port event-queue-port::t (:object-port) event-queue-port?) - (defsystem-class-info :table table::t (:t) table?) - (defsystem-class-info :readenv readenv::t (:t) readenv?) - (defsystem-class-info :writeenv writeenv::t (:t) writeenv?) - (defsystem-class-info :readtable readtable::t (:t) readtable?) - (defsystem-class-info :processor processor::t (:t) processor?) - (defsystem-class-info :vm vm::t (:t) vm?) - (defsystem-class-info :file-info file-info::t (:t) file-info?) - (defsystem-class-info :socket-info socket-info::t (:t) socket-info?) - (defsystem-class-info :address-info address-info::t (:t) address-info?)) + (defsystem-class-info :table table::t (:subtyped) table?) + (defsystem-class-info :readenv readenv::t (:subtyped) readenv?) + (defsystem-class-info :writeenv writeenv::t (:subtyped) writeenv?) + (defsystem-class-info :readtable readtable::t (:subtyped) readtable?) + (defsystem-class-info :processor processor::t (:subtyped) processor?) + (defsystem-class-info :vm vm::t (:subtyped) vm?) + (defsystem-class-info :file-info file-info::t (:subtyped) file-info?) + (defsystem-class-info :socket-info socket-info::t (:subtyped) socket-info?) + (defsystem-class-info :address-info address-info::t (:subtyped) address-info?)) (import MOP-1 MOP-4 MOP-5 (phi: +1 MOP-1 MOP-2 MOP-3 MOP-4 MOP-5)) diff --git a/src/gerbil/core/more-syntax-sugar.ss b/src/gerbil/core/more-syntax-sugar.ss index 5998a0ebe7..40c3da6497 100644 --- a/src/gerbil/core/more-syntax-sugar.ss +++ b/src/gerbil/core/more-syntax-sugar.ss @@ -5,8 +5,8 @@ prelude: : package: gerbil/core -(import "expander" "sugar" "more-sugar" - (phi: +1 "runtime")) +(import "runtime" "expander" "sugar" + (phi: +1 "runtime" "expander" "sugar")) (export #t) (defrules identifier-rules () @@ -14,5 +14,37 @@ package: gerbil/core (make-setq-macro macro: (syntax-rules . body)))) +(defsyntax (with-identifiers stx) + (syntax-case stx () + ((_ (clause ...) body ...) + (with-syntax (((clause ...) + (map + (lambda (clause) + (syntax-case clause (quote) + ((fresh-id (quote local-id)) + (and (identifier? #'fresh-id) + (identifier? #'local-id)) + #'(fresh-id (syntax-local-temp 'local-id))) + ((fresh-id ctx-id components ...) + (identifier? #'fresh-id) + #'(fresh-id (stx-identifier ctx-id components ...))))) + #'(clause ...)))) + #'(with-syntax* (clause ...) + body ...))))) + +(defrule (with-identifier (fresh-id components ...) body ...) + (identifier? #'fresh-id) + (with-identifiers ((fresh-id components ...)) + body ...)) + +(defsyntax (defsyntax-case stx) + (syntax-case stx () + ((_ name (lit ...) clause ...) + (with-syntax (($stx (syntax-local-introduce 'stx))) + #'(defsyntax name + (lambda ($stx) + (syntax-case $stx (lit ...) + clause ...))))))) + ;; TODO Not Implemented Yet -- barf (defrules quasisyntax ()) diff --git a/src/gerbil/core/runtime.ss b/src/gerbil/core/runtime.ss index b4c398faff..ea792d2a44 100644 --- a/src/gerbil/core/runtime.ss +++ b/src/gerbil/core/runtime.ss @@ -1477,6 +1477,7 @@ package: gerbil/core fx1- fxshift fx/ + fx% fx>=0? fx>0? fx=0? @@ -1539,11 +1540,13 @@ package: gerbil/core gerbil-home gerbil-path gerbil-runtime-smp? + __DEBUG ;; :gerbil/runtime/c3 c4-linearize ;; :gerbil/runtime/mop + class-type class-type? class-type=? class-type-final? @@ -1589,7 +1592,7 @@ package: gerbil/core class-instance? make-object object? - object-type + object-class object-fill! new-instance make-instance @@ -1622,15 +1625,24 @@ package: gerbil/core object::t ;; :gerbil/runtime/mop-system-classes + builtin::t + subtyped::t + structure::t immediate::t + special::t atom::t char::t boolean::t true::t false::t - void::t eof::t - special::t + void::t + unbound::t + unbound2::t + dssl-token::t + optional::t + key::t + rest::t number::t real::t integer::t @@ -1638,6 +1650,8 @@ package: gerbil/core bignum::t ratnum::t flonum::t + stflonum::t + haflonum::t cpxnum::t symbolic::t symbol::t @@ -1697,6 +1711,10 @@ package: gerbil/core address-info::t special? + dssl-token? + dssl-optional? + dssl-rest? + dssl-key? sequence? hvector? weak? @@ -1745,7 +1763,6 @@ package: gerbil/core cast try-cast satisfies? interface-cast-error? - ;; :gerbil/runtime/hash raise-unbound-key-error unbound-key-error? diff --git a/src/gerbil/expander/core.ss b/src/gerbil/expander/core.ss index f3359594c1..92b28701ac 100644 --- a/src/gerbil/expander/core.ss +++ b/src/gerbil/expander/core.ss @@ -393,7 +393,7 @@ namespace: gx (defmethod {apply-macro-expander expander} (lambda (self stx) - (raise-syntax-error #f "Bad syntax; bottom method for apply-macro-expander" stx))) + (raise-syntax-error #f "Bad syntax; no applicable expander" stx))) (defmethod {apply-macro-expander macro-expander} (lambda (self stx) @@ -783,6 +783,10 @@ namespace: gx ([hd . _] (stx-apply-mark stx hd)) (else stx))) +(def (syntax-local-temp sym) + (syntax-local-introduce + (make-symbol + (gensym sym)))) (def (syntax-local-e stx (E raise-syntax-ref-error)) (let (bind (resolve-identifier stx)) diff --git a/src/gerbil/expander/stx.ss b/src/gerbil/expander/stx.ss index 2740950bca..9d516db057 100644 --- a/src/gerbil/expander/stx.ss +++ b/src/gerbil/expander/stx.ss @@ -289,12 +289,14 @@ namespace: gx (else #f))) (def (genident (e 'g) (src #f)) - (stx-wrap-source - (gensym (let (e (stx-e e)) (if (interned-symbol? e) e 'g))) - (or (stx-source e) src))) + (datum->syntax (and (identifier? src) src) + (string->symbol + (symbol->string + (gensym (let (e (stx-e e)) (if (symbol? e) e 'g))))) + src)) (def (gentemps stx-lst) - (stx-map genident stx-lst)) + (stx-map (lambda (x) (genident x x)) stx-lst)) ;; foldings (def (syntax->list stx) diff --git a/src/gerbil/gambit.ss b/src/gerbil/gambit.ss deleted file mode 100644 index 8a524531c3..0000000000 --- a/src/gerbil/gambit.ss +++ /dev/null @@ -1,7 +0,0 @@ -;;; -*- Gerbil -*- -;;; © vyzo -;;; Compatibility shim until release. -;;; TODO this module can be removed after v0.18.2 -;;; -prelude: : -package: gerbil diff --git a/src/gerbil/main.ss b/src/gerbil/main.ss index cd579c5f9f..924cb79aac 100644 --- a/src/gerbil/main.ss +++ b/src/gerbil/main.ss @@ -4,7 +4,6 @@ prelude: :gerbil/core package: gerbil (import :gerbil/runtime - :gerbil/gambit :gerbil/expander :gerbil/compiler) (include "gxi-main.ss") @@ -31,8 +30,6 @@ package: gerbil "gerbil/runtime/loader" "gerbil/runtime/init" "gerbil/runtime" - ;; :gerbil/gambit - "gerbil/gambit" ;; :gerbil/expander "gerbil/expander/common" "gerbil/expander/stx" diff --git a/src/gerbil/runtime/error.ss b/src/gerbil/runtime/error.ss index da618fdf18..1b2a686132 100644 --- a/src/gerbil/runtime/error.ss +++ b/src/gerbil/runtime/error.ss @@ -13,7 +13,8 @@ namespace: #f (defclass Exception ()) ;; Mixin for getting stack traces -(defclass StackTrace (continuation)) +(defclass StackTrace (continuation) + transparent: #t) ;; Error base class (defclass (Error StackTrace Exception) (message irritants where) @@ -154,7 +155,7 @@ namespace: #f (cond (self.where => display) (else (display "?"))) - (display* " [" (##type-name (object-type self)) "]: ") + (display* " [" (##type-name (object-class self)) "]: ") (displayln self.message) (let (irritants self.irritants) (unless (null? irritants) diff --git a/src/gerbil/runtime/gambit.ss b/src/gerbil/runtime/gambit.ss index 14956839d1..91fdb1487c 100644 --- a/src/gerbil/runtime/gambit.ss +++ b/src/gerbil/runtime/gambit.ss @@ -7,12 +7,6 @@ namespace: #f (export #t) -;; compatibilityf for prerelease gambit changes -(cond-expand - (,(with-catch false (cut eval 'max-char-code))) - (else - (def max-char-code #x10ffff))) - ;; gambit runtime builtin refs that are not in the core prelude (extern pp @@ -166,6 +160,7 @@ namespace: #f macro-character-port-output-width-set! macro-mutex-lock! macro-mutex-unlock! - macro-current-thread) + macro-current-thread + macro-thread-end-condvar) (##void) ;; so that the __0 file exists diff --git a/src/gerbil/runtime/hash.ss b/src/gerbil/runtime/hash.ss index 56c0af0f34..d1a8bc7690 100644 --- a/src/gerbil/runtime/hash.ss +++ b/src/gerbil/runtime/hash.ss @@ -117,7 +117,10 @@ namespace: #f slot-table ; class-type-slot-table properties ; class-type-properties #f ; class-type-constructor - #f)))) + #f ; class-type-methods + #f ; class-type-specializer + #f ; class-type-interface + )))) ;; immediate gc-hash-table class; reifies the gc-table type (def gc-hash-table::t @@ -160,7 +163,10 @@ namespace: #f slot-table ; class-type-slot-table properties ; class-type-properties #f ; class-type-constructor - #f)))) + #f ; class-type-methods + #f ; class-type-specializer + #f ; class-type-interface + )))) ;; locked hash table; wraps a HashTable instance to lock on primitive operations (defstruct locked-hash-table (table lock) diff --git a/src/gerbil/runtime/init.ss b/src/gerbil/runtime/init.ss index 89a3900f9d..05409f5b90 100644 --- a/src/gerbil/runtime/init.ss +++ b/src/gerbil/runtime/init.ss @@ -191,7 +191,7 @@ namespace: #f (gx#core-eval-module obj)) (def (__interrupt-handler) - (when (getenv "GERBIL_DEBUG" #f) + (when __DEBUG (newline (current-error-port)) (display "--- continuation backtrace:" (current-error-port)) (newline (current-error-port)) diff --git a/src/gerbil/runtime/interface.ss b/src/gerbil/runtime/interface.ss index 09afbd6e3a..f42bb36609 100644 --- a/src/gerbil/runtime/interface.ss +++ b/src/gerbil/runtime/interface.ss @@ -22,38 +22,79 @@ namespace: #f (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!))) +(defstruct interface-instance (object) + id: gerbil#interface-instance::t) ;; interface meta descriptor -(defstruct interface-descriptor (type methods) final: #t) - -;; prototype table -(def (__interface-hash-key key) - (##fxxor (##symbol-hash (##car key)) (##symbol-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-table-delete! - __interface-hash-key __interface-test-key) - -(def __interface-prototypes-mx (__make-inline-lock)) -(def __interface-prototypes (make-prototype-table #f 0)) -(def __interface-prototypes-key (cons #f #f)) ; pre-allocated key for lookups +(defstruct interface-descriptor (type methods index) + id: gerbil#interface-descriptor::t + final: #t + print: (type index) + constructor: :init!) + +(def __next-interface-index 0) +(def __next-interface-index-lock (__make-inline-lock)) +(def (__get-next-interface-index) + (__do-inline-lock! __next-interface-index-lock + (let (index __next-interface-index) + (set! __next-interface-index (fx+ index 1)) + index))) + +(defmethod {:init! interface-descriptor} + (lambda (self type methods) + (set! self.type type) + (set! self.methods methods) + (set! self.index (__get-next-interface-index)))) + +(defstruct prototype-table (lock table) + id: gerbil#prototype-table::t + final: #t + constructor: :init!) + +(defmethod {:init! prototype-table} + (lambda (self) + (set! self.lock (__make-inline-lock)) + (set! self.table (make-vector __next-interface-index #f)))) + +(def (__prototype-table-get (prototable :- prototype-table) + (descriptor :- interface-descriptor)) + (declare (not safe)) + (let ((lock prototable.lock) + (index descriptor.index)) + (__do-inline-lock! lock + (let (tab prototable.table) + (if (fx< index (vector-length tab)) + (vector-ref tab index) + #f))))) + +(def (__prototype-table-set! (prototable :- prototype-table) + (descriptor :- interface-descriptor) + prototype) + (declare (not safe)) + (let ((lock prototable.lock) + (index descriptor.index)) + (__do-inline-lock! lock + (let (tab prototable.table) + (if (fx< index (vector-length tab)) + (vector-set! tab index prototype) + (let* ((new-size __next-interface-index) + (new-tab (make-vector new-size #f))) + (subvector-move! tab 0 (vector-length tab) new-tab 0) + (vector-set! new-tab index prototype) + (set! prototable.table new-tab))))))) (def (interface-subclass? klass) (alet (super (##type-super klass)) (eq? (##type-id super) (##type-id interface-instance::t)))) +(def (class-type-interface-table klass) + (cond + ((&class-type-interface klass)) + (else + (let (tab (make-prototype-table)) + (set! (&class-type-interface klass) tab) + tab)))) + (defrules do-create-prototype () ((_ descriptor klass obj-klass continue fail!) (let (method-table (specialize-class obj-klass)) @@ -73,11 +114,15 @@ namespace: #f (else (loop-inner methods-rest)))) (else - (fail! klass obj-klass method-spec))))) + (let (tab (class-type-interface-table obj-klass)) + (__prototype-table-set! tab descriptor #!void) + (fail! method-spec)))))) ((symbolic-table-ref method-table method-spec #f) => (lambda (method) (loop rest (##fx+ count 1) (cons method methods)))) (else - (fail! klass obj-klass method-spec)))) + (let (tab (class-type-interface-table obj-klass)) + (__prototype-table-set! tab descriptor #!void) + (fail! method-spec))))) (else (let (prototype (make-object klass (##fx+ count 2))) (let loop ((rest methods) (off (##fx+ count 1))) @@ -86,79 +131,106 @@ namespace: #f (##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))) - (__lock-inline! __interface-prototypes-mx) - (prototype-table-set! __interface-prototypes prototype-key prototype) - (__unlock-inline! __interface-prototypes-mx) + (let (tab (class-type-interface-table obj-klass)) + (__prototype-table-set! tab descriptor prototype) (continue prototype)))))))))))) (def (create-prototype descriptor klass obj-klass) (do-create-prototype descriptor klass obj-klass (lambda (prototype) prototype) - (lambda (klass obj-klass method-name) + (lambda (method) (abort! - (raise-cast-error 'create-prototype "cannot create interface instance; missing method" - interface: klass interface-id: (##type-id klass) - class: obj-klass class-id: (##type-id obj-klass) - method: method-name))))) + (raise-cast-error 'create-prototype "cannot create interface prototype; missing method" + interface: descriptor + class: obj-klass + method: method))))) (def (try-create-prototype descriptor klass obj-klass) (do-create-prototype descriptor klass obj-klass (lambda (prototype) prototype) - (lambda (klass obj-klass method-name) #f))) - -(defrules defcast () - ((_ cast-it do-prototype do-instance) - (def (cast-it descriptor obj) - (declare (not interrupts-enabled)) - (let* ((klass (&interface-descriptor-type descriptor)) - (klass-id (##type-id klass)) - (obj-klass (class-of 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 - (__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) - (__unlock-inline! __interface-prototypes-mx) - prototype)) - (else - (__unlock-inline! __interface-prototypes-mx) - (do-prototype descriptor klass obj-klass)))) - (do-instance prototype obj)))))))) + (lambda (method) #f))) + +(defrule (@cast descriptor obj do-prototype do-instance do-object) + (let* ((klass (&interface-descriptor-type descriptor)) + (klass-id (##type-id klass))) + (let loop ((obj obj)) + (declare (not interrupts-enabled)) + (let* ((obj-klass (class-of obj)) + (obj-klass-id (##type-id obj-klass))) + (cond + ((##eq? klass-id obj-klass-id) + ;; already an instance of the right interface + (do-object obj)) + ((interface-subclass? obj-klass) + ;; another interface instance + ;; first try to cast the interface shell itself so that + ;; we can allow niceties like interfaces on interfaces. + ;; we don't want to try the cast everytime as this would be + ;; prohibitively slow; instead we mark the failure in the interface's + ;; prototype table + (let (tab (class-type-interface-table obj-klass)) + (cond + ((__prototype-table-get tab descriptor) + => (lambda (prototype) + (if (void? prototype) + (loop (&interface-instance-object obj)) + (do-instance descriptor prototype obj)))) + ((try-create-prototype descriptor klass obj-klass) + => (lambda (prototype) + (do-instance descriptor prototype obj))) + (else + (loop (&interface-instance-object obj)))))) + (else + (let (tab (class-type-interface-table obj-klass)) + (cond + ((__prototype-table-get tab descriptor) + => (lambda (prototype) + (if (void? prototype) + (do-instance descriptor #f obj) + (do-instance descriptor prototype obj)))) + ((do-prototype descriptor klass obj-klass) + => (lambda (prototype) + (do-instance descriptor prototype obj))) + (else + (do-instance descriptor #f obj)))))))))) + +(defrule (defcast cast-it do-prototype do-instance do-object) + (def (cast-it descriptor obj) + (@cast descriptor obj do-prototype do-instance do-object))) ;; 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 (descriptor prototype obj) + (if prototype + (let (instance (##structure-copy prototype)) + (##unchecked-structure-set! instance obj 1 #f 'cast) + instance) + (abort! + (raise-cast-error 'cast "cannot create interface prototype" + interface: descriptor class: (class-of obj))))) + (lambda (obj) obj)) ;; try to cast an object to an interface (defcast try-cast try-create-prototype - (lambda (prototype obj) + (lambda (descriptor prototype obj) (and prototype (let (instance (##structure-copy prototype)) (##unchecked-structure-set! instance obj 1 #f 'cast) - instance)))) + instance))) + (lambda (obj) obj)) ;; check if an object satisfies an interface, optimistically creating a prototype (defcast satisfies? try-create-prototype - (lambda (prototype obj) - (and prototype #t))) + (lambda (descriptor prototype obj) + (and prototype #t)) + (lambda (obj) #t)) + +(def (with-prototype (descriptor : interface-descriptor) obj + (with-prototype+receiver : :procedure) + (with-receiver : :procedure)) + (@cast descriptor obj create-prototype with-prototype+receiver with-receiver)) diff --git a/src/gerbil/runtime/mop-system-classes.ss b/src/gerbil/runtime/mop-system-classes.ss index 7d0f4d206c..4d8714a81c 100644 --- a/src/gerbil/runtime/mop-system-classes.ss +++ b/src/gerbil/runtime/mop-system-classes.ss @@ -11,15 +11,24 @@ namespace: #f ;; this is necessary or system classes will not be present in fpo executables ;; which breaks the write hook for primitives and results in disaster. (declare (not optimize-dead-definitions + builtin::t + subtyped::t + structure::t immediate::t + special::t + atom::t char::t boolean::t - atom::t - void::t - eof::t true::t false::t - special::t + eof::t + void::t + unbound::t + unbound2::t + dssl-token::t + optional::t + rest::t + key::t number::t real::t integer::t @@ -27,6 +36,8 @@ namespace: #f bignum::t ratnum::t flonum::t + stflonum::t + haflonum::t cpxnum::t symbolic::t symbol::t @@ -58,79 +69,90 @@ namespace: #f procedure::t return::t)) -;; usual immediates -(defsystem-class immediate::t immediate ()) -(defsystem-class char::t char (immediate::t)) -(defsystem-class boolean::t boolean (immediate::t)) +;; root distinction from standard objects +(defsystem-class builtin::t builtin (t::t)) +(defsystem-class subtyped::t subtyped (builtin::t)) +(defsystem-class structure::t structure (subtyped::t)) +(defsystem-class immediate::t immediate (builtin::t) ((acyclic: . #t))) -(defsystem-class atom::t atom (immediate::t)) -(defsystem-class void::t void (atom::t)) -(defsystem-class eof::t eof (atom::t)) -(defsystem-class true::t true (boolean::t atom::t)) -(defsystem-class false::t false (boolean::t atom::t)) +;; special immediate4s +(defsystem-class special::t special (immediate::t) ((acyclic: . #t))) +(defsystem-class atom::t atom (special::t) ((acyclic: . #t))) -;; special values -(defsystem-class special::t special (atom::t)) +(defsystem-class char::t char (special::t) ((acyclic: . #t))) +(defsystem-class boolean::t boolean (special::t) ((acyclic: . #t))) +(defsystem-class true::t true (boolean::t atom::t) ((acyclic: . #t))) +(defsystem-class false::t false (boolean::t atom::t) ((acyclic: . #t))) +(defsystem-class eof::t eof (atom::t) ((acyclic: . #t))) +(defsystem-class void::t void (atom::t) ((acyclic: . #t))) +(defsystem-class unbound::t unbound (atom::t) ((acyclic: . #t))) +(defsystem-class unbound2::t unbound2 (atom::t) ((acyclic: . #t))) +(defsystem-class dssl-token::t dssl-token (atom::t) ((acyclic: . #t))) +(defsystem-class optional::t optional (dssl-token::t) ((acyclic: . #t))) +(defsystem-class rest::t rest (dssl-token::t) ((acyclic: . #t))) +(defsystem-class key::t key (dssl-token::t) ((acyclic: . #t))) ;; numbers -(defsystem-class number::t number ()) -(defsystem-class real::t real (number::t)) -(defsystem-class integer::t integer (real::t)) -(defsystem-class fixnum::t fixnum (integer::t immediate::t)) -(defsystem-class bignum::t bignum (integer::t)) -(defsystem-class ratnum::t ratnum (real::t)) -(defsystem-class flonum::t flonum (real::t)) -(defsystem-class cpxnum::t cpxnum (number::t)) +(defsystem-class number::t number (builtin::t) ((acyclic: . #t))) +(defsystem-class real::t real (number::t) ((acyclic: . #t))) +(defsystem-class integer::t integer (real::t) ((acyclic: . #t))) +(defsystem-class fixnum::t fixnum (integer::t immediate::t) ((acyclic: . #t))) +(defsystem-class bignum::t bignum (integer::t subtyped::t) ((acyclic: . #t))) +(defsystem-class ratnum::t ratnum (real::t subtyped::t) ((acyclic: . #t))) +(defsystem-class flonum::t flonum (real::t) ((acyclic: . #t))) +(defsystem-class stflonum::t stflonum (flonum::t immediate::t) ((acyclic: . #t))) +(defsystem-class haflonum::t haflonum (flonum::t subtyped::t) ((acyclic: . #t))) +(defsystem-class cpxnum::t cpxnum (number::t subtyped::t) ((acyclic: . #t))) ;; symbolic -(defsystem-class symbolic::t symbolic ()) -(defsystem-class symbol::t symbol (symbolic::t)) -(defsystem-class keyword::t keyword (symbolic::t)) +(defsystem-class symbolic::t symbolic (subtyped::t) ((acyclic: . #t))) +(defsystem-class symbol::t symbol (symbolic::t) ((acyclic: . #t))) +(defsystem-class keyword::t keyword (symbolic::t) ((acyclic: . #t))) ;; lists -(defsystem-class list::t list ()) -(defsystem-class pair::t pair (list::t)) -(defsystem-class null::t null (list::t atom::t)) +(defsystem-class list::t list (builtin::t)) +(defsystem-class pair::t pair (list::t subtyped::t)) +(defsystem-class null::t null (list::t atom::t) ((acyclic: . #t))) ;; sequences -(defsystem-class sequence::t sequence ()) +(defsystem-class sequence::t sequence (subtyped::t)) (defsystem-class vector::t vector (sequence::t)) -(defsystem-class string::t string (sequence::t)) -(defsystem-class hvector::t hvector (sequence::t)) -(defsystem-class u8vector::t u8vector (hvector::t)) -(defsystem-class s8vector::t s8vector (hvector::t)) -(defsystem-class u16vector::t u16vector (hvector::t)) -(defsystem-class s16vector::t s16vector (hvector::t)) -(defsystem-class u32vector::t u32vector (hvector::t)) -(defsystem-class s32vector::t s32vector (hvector::t)) -(defsystem-class u64vector::t u64vector (hvector::t)) -(defsystem-class s64vector::t s64vector (hvector::t)) -(defsystem-class f32vector::t f32vector (hvector::t)) -(defsystem-class f64vector::t f64vector (hvector::t)) +(defsystem-class string::t string (sequence::t) ((acyclic: . #t))) +(defsystem-class hvector::t hvector (sequence::t) ((acyclic: . #t))) +(defsystem-class u8vector::t u8vector (hvector::t) ((acyclic: . #t))) +(defsystem-class s8vector::t s8vector (hvector::t) ((acyclic: . #t))) +(defsystem-class u16vector::t u16vector (hvector::t) ((acyclic: . #t))) +(defsystem-class s16vector::t s16vector (hvector::t) ((acyclic: . #t))) +(defsystem-class u32vector::t u32vector (hvector::t) ((acyclic: . #t))) +(defsystem-class s32vector::t s32vector (hvector::t) ((acyclic: . #t))) +(defsystem-class u64vector::t u64vector (hvector::t) ((acyclic: . #t))) +(defsystem-class s64vector::t s64vector (hvector::t) ((acyclic: . #t))) +(defsystem-class f32vector::t f32vector (hvector::t) ((acyclic: . #t))) +(defsystem-class f64vector::t f64vector (hvector::t) ((acyclic: . #t))) ;; special -(defsystem-class values::t values ()) -(defsystem-class box::t box ()) -(defsystem-class frame::t frame ()) -(defsystem-class continuation::t continuation ()) -(defsystem-class promise::t promise ()) -(defsystem-class weak::t weak ()) -(defsystem-class foreign::t foreign ()) +(defsystem-class values::t values (sequence::t)) +(defsystem-class box::t box (subtyped::t)) +(defsystem-class frame::t frame (subtyped::t)) +(defsystem-class continuation::t continuation (subtyped::t)) +(defsystem-class promise::t promise (subtyped::t)) +(defsystem-class weak::t weak (subtyped::t)) +(defsystem-class foreign::t foreign (subtyped::t) ((acyclic: . #t))) ;; procedures -(defsystem-class procedure::t procedure ()) -(defsystem-class return::t return ()) +(defsystem-class procedure::t procedure (subtyped::t)) +(defsystem-class return::t return (subtyped::t)) ;; some predefined shadow classes ;; time objects -(defshadow-class time::t () (macro-type-time)) +(defshadow-class time::t (structure::t) (macro-type-time) ((acyclic: . #t))) ;; thread related objects -(defshadow-class thread::t () (macro-type-thread)) -(defshadow-class thread-group::t () (macro-type-tgroup)) -(defshadow-class mutex::t () (macro-type-mutex)) -(defshadow-class condvar::t () (macro-type-condvar)) +(defshadow-class thread::t (structure::t) (macro-type-thread)) +(defshadow-class thread-group::t (structure::t) (macro-type-tgroup)) +(defshadow-class mutex::t (structure::t) (macro-type-mutex)) +(defshadow-class condvar::t (structure::t) (macro-type-condvar)) ;; port hierarchy -(defshadow-class port::t () (macro-type-port)) +(defshadow-class port::t (structure::t) (macro-type-port)) (defshadow-class object-port::t (port::t) (macro-type-object-port)) (defshadow-class character-port::t (object-port::t) (macro-type-character-port)) (defshadow-class byte-port::t (character-port::t) (macro-type-byte-port)) @@ -144,15 +166,15 @@ namespace: #f (defshadow-class directory-port::t (object-port::t) (macro-type-directory-port)) (defshadow-class event-queue-port::t (object-port::t) (macro-type-event-queue-port)) ;; etc -(defshadow-class table::t () (macro-type-table)) -(defshadow-class readenv::t () (macro-type-readenv)) -(defshadow-class writeenv::t () (macro-type-writeenv)) -(defshadow-class readtable::t () (macro-type-readtable)) -(defshadow-class processor::t () (macro-type-processor)) -(defshadow-class vm::t () (macro-type-vm)) -(defshadow-class file-info::t () (macro-type-file-info)) -(defshadow-class socket-info::t () (macro-type-socket-info)) -(defshadow-class address-info::t () (macro-type-address-info)) +(defshadow-class table::t (structure::t) (macro-type-table)) +(defshadow-class readenv::t (structure::t) (macro-type-readenv)) +(defshadow-class writeenv::t (structure::t) (macro-type-writeenv)) +(defshadow-class readtable::t (structure::t) (macro-type-readtable)) +(defshadow-class processor::t (structure::t) (macro-type-processor)) +(defshadow-class vm::t (structure::t) (macro-type-vm)) +(defshadow-class file-info::t (structure::t) (macro-type-file-info) ((acyclic: . #t))) +(defshadow-class socket-info::t (structure::t) (macro-type-socket-info) ((acyclic: . #t))) +(defshadow-class address-info::t (structure::t) (macro-type-address-info) ((acyclic: . #t))) (defsyntax (defpred stx) (syntax-case stx (:-) @@ -163,25 +185,60 @@ namespace: #f (lambda (obj) body ...))))))) ;; some utilities for the prelude part (meta-type definitions) +(defpred (builtin-object? obj) :- :builtin + (or (not (##structure? obj)) + (not (class-type? (##structure-type obj))))) + +(defpred (builtin-subtyped? obj) :- :subtyped + (and (##subtyped? obj) + (builtin-object? obj))) + +(defpred (builtin-structure? obj) :- :structure + (and (##structure? obj) + (not (class-type? (##structure-type obj))))) + (defpred (atom? obj) :- :atom (and (immediate? obj) (not (char? obj)) - (not (fixnum? obj)))) + (not (fixnum? obj)) + (not (flonum? obj)))) (defpred (special? obj) :- :special - (and (fx= (:- (##type obj) :fixnum) 2) - (not (char? obj)) - (not (null? obj)) - (not (boolean? obj)) - (not (void? obj)) - (not (eof-object? obj)))) + (##special? obj)) + +(defpred (unbound? obj) :- :unbound + (eq? obj #!unbound)) + +(defpred (unbound2? obj) :- :unbound2 + (eq? obj #!unbound2)) + +(defpred (ddsl-token? obj) :- :dssl-token + (or (eq? obj #!key) + (eq? obj #!optional) + (eq? obj #!rest))) + +(defpred (ddsl-key? obj) :- :dssl-key + (eq? obj #!key)) + +(defpred (ddsl-optional? obj) :- :dssl-optional + (eq? obj #!optional)) + +(defpred (ddsl-rest? obj) :- :dssl-key + (eq? obj #!rest)) + +(defpred (stflonum? obj) :- :stflonum + (and (flonum? obj) (not (##mem-allocated? obj)))) + +(defpred (haflonum? obj) :- :haflonum + (and (flonum? obj) (##mem-allocated? obj))) (defpred (sequence? obj) :- :sequence (or (vector? obj) (string? obj) (hvector? obj))) -(defpred (hvector? obj) :- :sequence +(defpred (hvector? obj) :- :hvector + ;; TODO optimize this (or (u8vector? obj) (s8vector? obj) (u16vector? obj) diff --git a/src/gerbil/runtime/mop.ss b/src/gerbil/runtime/mop.ss index 11f44d522d..7b0d9fbee2 100644 --- a/src/gerbil/runtime/mop.ss +++ b/src/gerbil/runtime/mop.ss @@ -21,15 +21,17 @@ namespace: #f ;; 1 ##type-id : Symbol ; sometimes uninterned ;; 2 ##type-name : Symbol ;; 3 ##type-flags : Fixnum -;; 4 ##type-super : (OrFalse StructTypeDescriptor) -;; 5 ##type-fields : (Vector [Symbol Fixnum default-value] ...) +;; 4 ##type-super : Maybe StructTypeDescriptor +;; 5 ##type-fields : (Vector [Symbol Fixnum default-value] ...) name flags default ;; 6 class-type-precedence-list : (List TypeDescriptor) ; doesn't contain the class itself ;; 7 class-type-slot-vector : (Vector Symbol) ; first is always __class ;; 8 class-type-slot-table : (Table (Or Symbol Keyword) -> Fixnum) ;; 9 class-type-properties : AList ; NB: not PList, despite the name "properties" -;; 10 class-type-constructor : (OrFalse Symbol) -;; 11 class-type-methods : (Table Symbol -> Function) -;; +;; 10 class-type-constructor : Maybe Symbol +;; 11 class-type-methods : Maybe (Table Symbol => procedure) +;; 12 class-type-specializer ; Maybe (Table Symbol -> procedure) specialized class procedure +;; 13 class-type-interface ; Maybe PrototypeTable interface prototoypes + ;; The ##type-fields contains 3 entries by Gambit structure field, field name, flags and default value ;; ;; Standard "properties" keys: @@ -40,6 +42,7 @@ namespace: #f ;; equal: (Or Bool (List Symbol)) all new slots will be compared during objects equal? ;; print: (Or Bool (List Symbol)) all new slots will be printed when printing an object ;; transparent: Bool is this class transparent? i.e. equal and print all slots +;; acyclic: Bool is this class acyclic? i.e. can a serializer treat it as containing no cycles? ;; These type flags are defined by Gambit itself (def type-flag-opaque 1) ;; if opaque, instances are only equal? if eq? @@ -52,6 +55,7 @@ namespace: #f (def class-type-flag-sealed 2048) ;; no new changes, subclasses or method definitions (implies final) (def class-type-flag-metaclass 4096) ;; it is a class of classes, supporting the metaclass protocol (def class-type-flag-system 8192) ;; it is a system class, non instantiable +(def class-type-flag-acyclic 16384) ;; instances are guaranteed to be acyclic ;; the root class (def t::t @@ -71,7 +75,10 @@ namespace: #f slot-table ; class-type-slot-table properties ; class-type-properties #f ; class-type-constructor - #f)))) + #f ; class-type-methods + #f ; class-type-specializer + #f ; class-type-interface + )))) ;; the class metaclass (def class::t @@ -80,14 +87,16 @@ namespace: #f (t::t) ; super (id name super flags fields precedence-list slot-vector slot-table - properties constructor methods) ; slots + properties constructor methods + specializer interface) ; slots #f ; constructor method #t ; struct? #f ; final? #f) ; metaclass (let* ((slots '(id name super flags fields - precedence-list slot-vector slot-table properties constructor methods)) + precedence-list slot-vector slot-table properties constructor methods + specializer interface)) (slot-vector (list->vector (cons #f slots))) (slot-table @@ -121,11 +130,13 @@ namespace: #f slot-table ; class-type-slot-table properties ; class-type-properties #f ; class-type-constructor - #f))) ; class-type-methods + #f ; class-type-methods + #f ; class-type-specializer + #f ; class-type-interface + ))) (##structure-type-set! t t) ; self reference t))) - ;; class::t mixes in t::t as all classes except itself (##structure-type-set! t::t class::t) @@ -147,7 +158,14 @@ namespace: #f slot-table ; class-type-slot-table properties ; class-type-properties #f ; class-type-constructor - #f)))) + #f ; class-type-methods + #f ; class-type-specializer + #f ; class-type-interface + )))) + +(def (class-type (klass : :class)) => :class + (:- (##structure-type klass) + :class)) (def class-type? (begin-annotation (@mop.predicate class::t) @@ -170,6 +188,8 @@ namespace: #f (def (type-opaque? (type :~ ##type? :- :t)) => :boolean (fxflag-set? (##type-flags type) type-flag-opaque)) +(def (class-type-opaque? (klass : :class)) => :boolean + (fxflag-set? (##type-flags klass) type-flag-opaque)) (def (type-extensible? (type :~ ##type? :- :t)) => :boolean (fxflag-set? (##type-flags type) type-flag-extensible)) (def (class-type-final? (type : :class)) => :boolean @@ -182,6 +202,8 @@ namespace: #f (fxflag-set? (##type-flags klass) class-type-flag-metaclass)) (def (class-type-system? (klass : :class)) => :boolean (fxflag-set? (##type-flags klass) class-type-flag-system)) +(def (class-type-acyclic? (klass : :class)) => :boolean + (fxflag-set? (##type-flags klass) class-type-flag-acyclic)) ;; Compute the flags and field-info and create a class type (def (make-class-type-descriptor type-id type-name type-super @@ -228,13 +250,15 @@ namespace: #f (opaque? (and (not (or transparent? (agetq equal: properties))) (or (not type-super) (type-opaque? type-super)))) + (acyclic? (agetq acyclic: properties)) (type-flags (##fxior type-flag-id type-flag-concrete (if final? 0 type-flag-extensible) (if opaque? type-flag-opaque 0) (if struct? class-type-flag-struct 0) (if metaclass class-type-flag-metaclass 0) - (if system? class-type-flag-system 0))) + (if system? class-type-flag-system 0) + (if acyclic? class-type-flag-acyclic 0))) (precedence-list (cond ((memq t::t precedence-list) @@ -267,7 +291,9 @@ namespace: #f ;; gambit type fields type-id type-name type-flags type-super field-info ;; gerbil class fields - precedence-list slot-vector slot-table properties constructor methods) + precedence-list slot-vector slot-table properties constructor methods + ;; specializer/interface tables + #f #f) :class)))) ;;; class type utilities @@ -302,21 +328,22 @@ namespace: #f (begin (defrefset (slot field)) ...))) (defrefset* - (id 1) - (name 2) - (flags 3) - (super 4) - (fields 5) + (id 1) + (name 2) + (flags 3) + (super 4) + (fields 5) (precedence-list 6) - (slot-vector 7) - (slot-table 8) - (properties 9) - (constructor 10) - (methods 11)) + (slot-vector 7) + (slot-table 8) + (properties 9) + (constructor 10) + (methods 11) + (specializer 12) + (interface 13)) (def (class-type-slot-list (klass : :class)) => :list - (:- (cdr (vector->list (class-type-slot-vector klass))) - :list )) + (vector->list (class-type-slot-vector klass) 1)) (def (class-type-field-count (klass : :class)) => :fixnum (:- (##fx- (##vector-length (class-type-slot-vector klass)) 1) :fixnum)) @@ -325,6 +352,52 @@ namespace: #f 3 class::t class-type-seal!) (void)) +;; extract an alist of (symbol . index) for the printable slots of a class descriptor, +;; sorted by increasing index. +(def (class-type-printable-slots (klass : :class)) => :list + (def (get-field-vector type) + (let loop ((type type)) + (let (fields (##type-fields type)) + (cond + ((##type-super type) + => (lambda (super) + (let (super-fields (loop super)) + (vector-append super-fields fields)))) + (else fields))))) + + (def (get-printable-slot-alist type) + (let* ((fields (get-field-vector type)) + (count (vector-length fields))) + (let loop ((i 3) (offset 1) (r [])) + (if (fx< i count) + (let ((slot-name (vector-ref fields i)) + (slot-flags (vector-ref fields (fx+ i 1))) + (next-i (fx+ i 2))) + (if (fx= (fxand slot-flags 1) 0) ;; printable flag + (loop next-i + (fx+ offset 1) + r) + (loop next-i + (fx+ offset 1) + (cons (cons slot-name offset) r)))) + (reverse! r))))) + + (def (get-printable-slots! klass type) + (let (printable (get-printable-slot-alist type)) + (set! (class-type-properties klass) + (cons (cons printable-slots: printable) + (class-type-properties klass))) + printable)) + + (let (props (class-type-properties klass)) + (:- (cond + ((agetq printable-slots: props)) + ((agetq system-type: props) + => (cut get-printable-slots! klass <>)) + (else + (get-printable-slots! klass klass))) + :list))) + ;; Is maybe-sub-struct a subclass of maybe-super-struct? ; : (OrFalse TypeDescriptor) (OrFalse TypeDescriptor) -> Bool (def (substruct? (maybe-sub-struct : :class) (maybe-super-struct : :class)) @@ -642,15 +715,6 @@ namespace: #f (and (##structure? o) (class-type? (##structure-type o)))) -(def (object-type o) - => :class - (if (##structure? o) - (let (klass (##structure-type o)) - (if (class-type? klass) - (:- klass :class) - (abort! (error "not an object" o klass)))) - (abort! (error "not an object" o)))) - (def (direct-instance? (klass : :class) obj) => :boolean (:- (##structure-direct-instance-of? obj (##type-id klass)) @@ -663,7 +727,6 @@ namespace: #f obj (%#call (%#ref ##type-id) klass))))) - (def (immediate-instance-of? klass obj) => :boolean (and (##structure? obj) (eq? klass (##structure-type obj)))) @@ -696,7 +759,7 @@ namespace: #f (if (class-type-system? klass) (abort! (error "cannot instantiate system class" class: klass)) (let (obj (##make-structure klass k)) - (object-fill! obj #f)))) + (__object-fill! obj #f)))) (declare-inline make-object (lambda (ast) @@ -711,6 +774,11 @@ namespace: #f (%#call (%#ref object-fill!) (%#ref $obj) (%#quote #f)) (%#ref $obj)))))))) +(def (object-class (obj : :object)) + => :class + (:- (##structure-type obj) + :class)) + (def (object-fill! (obj : :object) fill) => :object ;; courtesy of marc feeley @@ -905,9 +973,10 @@ namespace: #f (def (find-method (klass : :class) obj (id : :symbol)) (cond - ((direct-method-ref klass obj id)) ((class-type-sealed? klass) - #f) + (let (tab (specialize-class klass)) + (symbolic-table-ref tab id #f))) + ((direct-method-ref klass obj id)) (else (mixin-method-ref klass obj id)))) @@ -981,66 +1050,30 @@ namespace: #f ;;;; ;; procedure method => lambda (klass method-table) => procedure method ;; compiler populated -(defspecialized-table make-method-specializer-table - method-specializer-table-ref - method-specializer-table-set! __method-specializer-table-set! - method-specializer-table-update! __method-specializer-table-update! - method-specializer-table-delete! +(deftable method-specializer-table procedure-hash eq?) (def __method-specializers - (make-method-specializer-table #f 0)) -(def __method-specializers-mx - (__make-inline-lock)) + (make-method-specializer-table/lock #f 0)) ;;; binds a specializer procedure for a method procedure (def (bind-specializer! method-proc specializer) - (__lock-inline! __method-specializers-mx) - (method-specializer-table-set! __method-specializers method-proc specializer) - (__unlock-inline! __method-specializers-mx)) + (method-specializer-table-set!/lock __method-specializers method-proc specializer)) (def (__lookup-method-specializer proc) - (__lock-inline! __method-specializers-mx) - (let (specializer (method-specializer-table-ref __method-specializers proc #f)) - (__unlock-inline! __method-specializers-mx) - specializer)) - -(def (__class-specializer-hash-key klass) - (symbolic-hash (##type-id klass))) - -(defspecialized-table make-class-specializer-table - class-specializer-table-ref - class-specializer-table-set! __class-specializer-table-set! - class-specializer-table-update! __class-specializer-table-update! - class-specializer-table-delete! - __class-specializer-hash-key eq?) - -(def __class-specializers-mx (__make-inline-lock)) -(def __class-specializers (make-class-specializer-table #f 0)) -(def __class-specializers-key (cons #f #f)) ; pre-allocated key for lookups + (method-specializer-table-ref/lock __method-specializers proc #f)) ;; Specializes all current class methods in the hierarchy ;; returns symbolic table mapping method => specialized procedure -;; the result is cached in the __class-specializers table +;; the result is cached in the class-type specializer slot (def (specialize-class (klass : :class)) (cond - ((__lookup-class-specializer klass)) + ((&class-type-specializer klass)) (else (let (method-table (___specialize-class klass)) - (__bind-class-specializer! klass method-table) + (set! (&class-type-specializer klass) method-table) method-table)))) -(def (__lookup-class-specializer klass) - (__lock-inline! __class-specializers-mx) - (let (method-table (class-specializer-table-ref __class-specializers klass #f)) - (__unlock-inline! __class-specializers-mx) - method-table)) - -(def (__bind-class-specializer! klass method-table) - (__lock-inline! __class-specializers-mx) - (class-specializer-table-set! __class-specializers klass method-table) - (__unlock-inline! __class-specializers-mx)) - (def (__specialize-method klass method-table method proc) (cond ((symbolic-table-ref method-table method #f)) @@ -1081,16 +1114,14 @@ namespace: #f ;;; class sealing (def (seal-class! (klass : :class)) (unless (class-type-sealed? klass) - (unless (class-type-final? klass) - (error "cannot seal non-final class" klass)) (cond ((class-type-metaclass? klass) - (call-method klass 'seal-class!)) + (call-method klass 'seal-class!) + (specialize-class klass)) ((find class-type-metaclass? (&class-type-precedence-list klass)) (error "cannot seal class that extends metaclass without a metaclass" klass)) (else - (let (method-table (specialize-class klass)) - (&class-type-methods-set! klass method-table)))) + (specialize-class klass))) (class-type-seal! klass))) ;; NB: 1. This implementation has quadratic complexity in the general case, but @@ -1121,28 +1152,14 @@ namespace: #f (else (error "cannot find next method" object: obj method: id)))) -;;; custom writers -(def (write-style we) - (values (macro-writeenv-style we))) - -(def (write-object we obj) - (cond - ((method-ref obj ':wr) - => (lambda (method) (method obj we))) - (else - (##default-wr we obj)))) - -;; TODO uncomment -;; (##wr-set! write-object) - ;; shadow classes: these are system class automagically created for builtin types ;; to track their methods (def __shadow-classes (make-symbolic-table #f 0)) -(def __shadow-classes-mx +(def __shadow-classes-lock (__make-inline-lock)) -(def (__shadow-class type) +(def (__shadow-class type (properties [])) (def (shadow-type-id type) (make-symbol (##type-name type) "::t")) (def (shadow-type-name type) @@ -1160,19 +1177,22 @@ namespace: #f [] ; slots [[struct: . #t] [system: . #t] + [system-type: . type] (if (type-extensible? type) [] [[final: . #t]]) - ...] ; properties - #f))) ; constructor + ... + properties ...] ; properties + #f ; constructor + ))) (symbolic-table-set! __shadow-classes (##type-id type) klass) klass)) - (__lock-inline! __shadow-classes-mx) + (__lock-inline! __shadow-classes-lock) (cond ((symbolic-table-ref __shadow-classes (##type-id type) #f) => (lambda (klass) - (__unlock-inline! __shadow-classes-mx) + (__unlock-inline! __shadow-classes-lock) klass)) (else (let loop ((super (##type-super type)) (hierarchy [])) @@ -1190,7 +1210,7 @@ namespace: #f (loop rest (cons klass precedence-list)))))) (else (let (klass (make-shadow-class type precedence-list)) - (__unlock-inline! __shadow-classes-mx) + (__unlock-inline! __shadow-classes-lock) klass))))) (else (loop (##type-super super) (cons super hierarchy)))))))) @@ -1219,18 +1239,18 @@ END-C (case flonum-self-tagging-tags ((0) (if (##fx= fixnum-tag-bits 2) - '#(fixnum subtyped special vector fixnum pair undefined flonum) - '#(fixnum subtyped undefined vector special pair undefined flonum))) + '#(fixnum subtyped special vector fixnum pair undefined haflonum) + '#(fixnum subtyped undefined vector special pair undefined haflonum))) ((1) (if (##fx= fixnum-tag-bits 2) - '#(fixnum subtyped special vector fixnum pair flonum flonum) - '#(fixnum subtyped undefined vector special pair flonum flonum))) + '#(fixnum subtyped special vector fixnum pair stflonum haflonum) + '#(fixnum subtyped undefined vector special pair stflonum haflonum))) ((2) - '#(fixnum subtyped flonum flonum special pair flonum undefined)) + '#(fixnum subtyped stflonum haflonum special pair stflonum undefined)) ((3) - '#(fixnum subtyped flonum flonum special pair flonum flonum)) + '#(fixnum subtyped haflonum immedate-flonum special pair stflonum stflonum)) ((4) - '#(fixnum subtyped flonum flonum special pair flonum flonum)) + '#(fixnum subtyped stflonum stflonum special pair stflonum stflonum)) (else (error "unexpected flonum self tagging tags" flonum-self-tagging-tags))))) (else @@ -1246,8 +1266,9 @@ END-C (cond ((eq? t 'undefined) (lambda (obj) (error "object type is undefined" obj))) - ((memq t '(fixnum flonum pair vector)) + ((memq t '(fixnum flonum stflonum haflonum pair vector)) (lambda (obj) + ;; TODO cache to avoid hash table lookup (declare (not interrupts-enabled) (not safe)) (__system-class t))) ((eq? t 'subtyped) @@ -1262,22 +1283,30 @@ END-C (__shadow-class klass)))) ((##fx= st (macro-subtype-boxvalues)) ; box or values? (if (fx= (##values-length obj) 1) + ;; TODO cache to avoid hash table lookup (__system-class 'box) (__system-class 'values))) ((##vector-ref __subtype-id st) + ;; TODO cache to avoid hash table lookup => __system-class) (else (error "unknown class" subtype: st object: obj)))))) ((eq? t 'special) (lambda (obj) + ;; TODO optimize this to void the cond (declare (not interrupts-enabled) (not safe)) (cond - ((char? obj) (__system-class 'char)) - ((eq? obj '()) (__system-class 'null)) - ((eq? obj #f) (__system-class 'boolean)) - ((eq? obj #t) (__system-class 'boolean)) - ((eq? obj #!void) (__system-class 'void)) - ((eq? obj #!eof) (__system-class 'eof)) + ((char? obj) (__system-class 'char)) + ((eq? obj '()) (__system-class 'null)) + ((eq? obj #f) (__system-class 'boolean)) + ((eq? obj #t) (__system-class 'boolean)) + ((eq? obj #!void) (__system-class 'void)) + ((eq? obj #!eof) (__system-class 'eof)) + ((eq? obj #!unbound) (__system-class 'unbound)) + ((eq? obj #!unbound2) (__system-class 'unbound2)) + ((eq? obj #!optional) (__system-class 'optional)) + ((eq? obj #!rest) (__system-class 'rest)) + ((eq? obj #!key) (__system-class 'key)) (else (__system-class 'special))))) (else @@ -1334,7 +1363,7 @@ END-C ((macro-subtype-s64vector) s64vector) ((macro-subtype-u64vector) u64vector) ((macro-subtype-f64vector) f64vector) - ((macro-subtype-flonum) flonum) + ((macro-subtype-flonum) haflonum) ((macro-subtype-bignum) bignum))) (else ;; TODO js and other target support @@ -1351,19 +1380,23 @@ END-C (error "unknown system class" id)))) (defrules defsystem-class () - ((_ type id (super ...)) + ((_ type id (super ...) properties) (def type (begin-annotation (@mop.system id (super ...)) - (__make-system-class 'id [super ...]))))) + (__make-system-class 'id [super ...] 'properties)))) + ((_ type id (super ...)) + (defsystem-class type id (super ...) ()))) -(def (__make-system-class id super) - (let (klass (make-class-type id id super [] '((system: . #t)) #f)) +(def (__make-system-class id super properties) + (let (klass (make-class-type id id super [] `((system: . #t) ,@properties) #f)) (symbolic-table-set! __system-classes id klass) klass)) ;; and shadow class predefinitions (defrules defshadow-class () - ((_ type (super ...) type-expr) + ((_ type (super ...) type-expr properties) (def type (begin-annotation (@mop.system type (super ...)) - (__shadow-class type-expr))))) + (__shadow-class type-expr 'properties)))) + ((_ type (super ...) type-expr) + (defshadow-class type (super ...) type-expr ()))) diff --git a/src/gerbil/runtime/syntax.ss b/src/gerbil/runtime/syntax.ss index 32ce0c559d..8fd605f5cf 100644 --- a/src/gerbil/runtime/syntax.ss +++ b/src/gerbil/runtime/syntax.ss @@ -6,7 +6,7 @@ package: gerbil/runtime namespace: #f (export #t) -(import "gambit" "util" "mop" "error") +(import "gambit" "util" "mop" "error" "system") (declare (not safe)) @@ -147,7 +147,7 @@ namespace: #f (newline)) rest)) (else (void))) - (when (getenv "GERBIL_DEBUG" #f) + (when __DEBUG (alet (cont self.continuation) (display "--- continuation backtrace:") (newline) diff --git a/src/gerbil/runtime/system.ss b/src/gerbil/runtime/system.ss index f26ac88b2d..b399018836 100644 --- a/src/gerbil/runtime/system.ss +++ b/src/gerbil/runtime/system.ss @@ -58,11 +58,13 @@ namespace: #f (or (getenv "GERBIL_PATH" #f) (path-expand "~/.gerbil"))) -(def __smp? (void)) +(def __smp? + (delay-atomic + (and (member "--enable-smp" (string-split (configure-command-string) #\')) + #t))) (def (gerbil-runtime-smp?) - (when (void? __smp?) - (set! __smp? - (and (member "--enable-smp" (string-split (configure-command-string) #\')) - #t))) - __smp?) + (force __smp?)) + +(def __DEBUG + (getenv "GERBIL_DEBUG" #f)) diff --git a/src/gerbil/runtime/table.ss b/src/gerbil/runtime/table.ss index ea320bed98..ca1c05d7a1 100644 --- a/src/gerbil/runtime/table.ss +++ b/src/gerbil/runtime/table.ss @@ -18,7 +18,13 @@ namespace: #f '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))) + '#(table 5 #f + count 5 #f + free 5 #f + hash 5 #f + test 5 #f + seed 5 #f + lock 5 #f))) (def (&raw-table-table tab) (##unchecked-structure-ref tab 1 __table::t 'raw-table-table)) @@ -32,6 +38,8 @@ namespace: #f (##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-lock tab) + (##unchecked-structure-ref tab 7 __table::t 'raw-table-lock)) (def (&raw-table-table-set! tab val) (##unchecked-structure-set! tab val 1 __table::t 'raw-table-table-set!)) @@ -45,6 +53,8 @@ namespace: #f (##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!)) +(def (&raw-table-lock-set! tab val) + (##unchecked-structure-set! tab val 7 __table::t 'raw-table-lock-set!)) ;; generic raw tables (def (raw-table-size-hint->size size-hint) @@ -54,10 +64,24 @@ namespace: #f (fx* (fxmax 2 (expt 2 (integer-length size-hint))) 4) 16)) -(def (make-raw-table size-hint hash test (seed 0)) +(def (make-raw-table size-hint hash test (seed 0) (lock #f)) (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))) + (##structure __table::t table 0 (fxquotient size 2) hash test seed lock))) + +(def (make-raw-table/lock size-hint hash test (seed 0)) + (make-raw-table size-hint hash test seed (__make-inline-lock))) + +(defrule (do-raw-table-lock tab expr) + (let (lock (&raw-table-lock tab)) + (__do-inline-lock! lock expr))) + +(def (raw-table-length tab) + (&raw-table-count tab)) + +(def (raw-table-length/lock tab) + (do-raw-table-lock tab + (raw-table-length tab))) (def (raw-table-ref tab key default) (let ((table (&raw-table-table tab)) @@ -66,18 +90,30 @@ namespace: #f (test (&raw-table-test tab))) (__table-ref table seed hash test key default))) +(def (raw-table-ref/lock tab key default) + (do-raw-table-lock tab + (raw-table-ref tab 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-set!/lock tab key value) + (do-raw-table-lock 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-update!/lock tab key update default) + (do-raw-table-lock 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)) @@ -87,6 +123,10 @@ namespace: #f (lambda () (set! (&raw-table-count tab) (fx- (&raw-table-count tab) 1)))))) +(def (raw-table-delete!/lock tab key) + (do-raw-table-lock tab + (raw-table-delete! tab key))) + (def (raw-table-for-each tab proc) (let* ((table (&raw-table-table tab)) (size (vector-length table))) @@ -99,18 +139,30 @@ namespace: #f (proc key value)))) (loop (fx+ i 2)))))) +(def (raw-table-for-each/lock tab proc) + (do-raw-table-lock tab + (raw-table-for-each tab proc))) + (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-copy/lock tab) + (do-raw-table-lock tab + (raw-table-copy 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-clear!/lock tab) + (do-raw-table-lock tab + (raw-table-clear! tab))) + (def (__raw-table-set! tab key value) (let ((table (&raw-table-table tab)) (seed (&raw-table-seed tab)) @@ -232,85 +284,91 @@ namespace: #f (def (immediate-hash obj) (##type-cast obj (macro-type-fixnum))) -(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))))))))) - +(defsyntax (deftable stx) + (syntax-case stx () + ((_ name hash eq) + (with-syntax ((make (stx-identifier #'name "make-" #'name)) + (make/lock (stx-identifier #'name "make-" #'name "/lock")) + (ref (stx-identifier #'name #'name "-ref")) + (ref/lock (stx-identifier #'name #'name "-ref/lock")) + (__set (stx-identifier #'name "__" #'name "-set!")) + (set (stx-identifier #'name #'name "-set!")) + (set/lock (stx-identifier #'name #'name "-set!/lock")) + (__update (stx-identifier #'name "__" #'name "-update!")) + (update (stx-identifier #'name #'name "-update!")) + (update/lock (stx-identifier #'name #'name "-update!/lock")) + (delete (stx-identifier #'name #'name "-delete!")) + (delete/lock (stx-identifier #'name #'name "-delete!/lock"))) + #'(begin + (def (make (size-hint #f) (seed 0)) + (make-raw-table size-hint hash eq seed)) + (def (make/lock (size-hint #f) (seed 0)) + (make-raw-table/lock 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 (ref/lock tab key default) + (do-raw-table-lock tab + (ref tab key default))) + (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 (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/lock tab key value) + (do-raw-table-lock tab + (set tab key value))) + (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 (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/lock tab key update default) + (do-raw-table-lock tab + (update tab key update default))) + (def (delete 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)))))) + (def (delete/lock tab key) + (do-raw-table-lock tab + (delete tab key)))))))) ;; 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! +(deftable eq-table 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! +(deftable eqv-table 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! +(deftable symbolic-table 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! +(deftable string-table string-hash ##string=?) ;;; imeediate-table: non mem allocated objects -(defspecialized-table make-immediate-table - immediate-table-ref - immediate-table-set! __immediate-table-set! - immediate-table-update! __immediate-table-update! - immediate-table-delete! +(deftable immediate-table immediate-hash eq?) ;;; table implementation; open addressing, quadratic probing @@ -423,7 +481,7 @@ namespace: #f 'gc-table ; name 26 ; flags: extensible | concrete | nongenerative #f ; super - '#(gcht 5 #f immediate 5 #f))) + '#(gcht 5 #f immediate 5 #f lock 5 #f))) (def __gc-table-loads '#f64(.45 .6363961030678927 .9)) @@ -431,14 +489,24 @@ namespace: #f (##unchecked-structure-ref tab 1 __gc-table::t 'gc-table-gcht)) (def (&gc-table-immediate tab) (##unchecked-structure-ref tab 2 __gc-table::t 'gc-table-immediate)) +(def (&gc-table-lock tab) + (##unchecked-structure-ref tab 3 __gc-table::t 'gc-table-lock)) (def (&gc-table-gcht-set! tab val) (##unchecked-structure-set! tab val 1 __gc-table::t 'gc-table-gcht-set!)) (def (&gc-table-immediate-set! tab val) (##unchecked-structure-set! tab val 2 __gc-table::t 'gc-table-immediate-set!)) +(def (&gc-table-lock-set! tab val) + (##unchecked-structure-set! tab val 3 __gc-table::t 'gc-table-lock-set!)) -(def (make-gc-table size-hint (klass __gc-table::t) (flags 0)) +(def (make-gc-table size-hint (klass __gc-table::t) (flags 0) (lock #f)) (let (gcht (__gc-table-new (if (fixnum? size-hint) size-hint 16) flags)) - (##structure klass gcht #f))) + (##structure klass gcht #f lock))) + +(def (make-gc-table/lock size-hint (klass __gc-table::t) (flags 0)) + (make-gc-table size-hint klass flags (__make-inline-lock))) + +(defrule (do-gc-table-lock tab expr) + (__do-inline-lock! (&gc-table-lock tab) expr)) (def (__gc-table-immediate tab) (cond @@ -489,6 +557,10 @@ namespace: #f (immediate-table-ref immediate key default))) (else default))) +(def (gc-table-ref/lock tab key default) + (do-gc-table-lock tab + (gc-table-ref tab key default))) + (def (gc-table-set! tab key value) (declare (not interrupts-enabled)) (if (##mem-allocated? key) @@ -498,12 +570,20 @@ namespace: #f (gc-table-set! tab key value))) (immediate-table-set! (__gc-table-immediate tab) key value))) +(def (gc-table-set/lock! tab key value) + (do-gc-table-lock tab + (gc-table-set! tab key value))) + (def (gc-table-update! tab key update default) (if (##mem-allocated? key) (let (value (gc-table-ref tab key default)) (gc-table-set! tab key (update value))) (immediate-table-update! (__gc-table-immediate tab) key update default))) +(def (gc-table-update!/lock tab key update default) + (do-gc-table-lock tab + (gc-table-update! tab key update default))) + (def (gc-table-delete! tab key) (declare (not interrupts-enabled)) (cond @@ -516,6 +596,10 @@ namespace: #f => (lambda (immediate) (immediate-table-delete! immediate key))))) +(def (gc-table-delete!/lock tab key) + (do-gc-table-lock tab + (gc-table-delete! tab key))) + (def (gc-table-for-each tab proc) (declare (not interrupts-enabled)) ;; mem allocated first @@ -527,6 +611,10 @@ namespace: #f (lambda (immediate) (raw-table-for-each immediate proc))))) +(def (gc-table-for-each/lock tab proc) + (do-gc-table-lock tab + (gc-table-for-each tab proc))) + (def (gc-table-copy tab) (let* ((gcht (__gc-table-e tab)) (new-table @@ -539,6 +627,10 @@ namespace: #f (gc-table-for-each tab (lambda (k v) (gc-table-set! result k v))) result)) +(def (gc-table-copy/lock tab) + (do-gc-table-lock tab + (gc-table-copy tab))) + (def (gc-table-clear! tab) (let* ((gcht (__gc-table-e tab)) (new-table @@ -546,6 +638,10 @@ namespace: #f (set! (&gc-table-gcht tab) new-table) (set! (&gc-table-immediate tab) #f))) +(def (gc-table-clear!/lock tab) + (do-gc-table-lock tab + (gc-table-clear! tab))) + (def (gc-table-length tab) (let (gcht (__gc-table-e tab)) (fx+ (macro-gc-hash-table-count gcht) @@ -553,19 +649,23 @@ namespace: #f ((&gc-table-immediate tab) => &raw-table-count) (else 0))))) +(def (gc-table-length/lock tab) + (do-gc-table-lock tab + (gc-table-length tab))) + ;;; object->eq-hash +(def __object-eq-hash-lock (__make-inline-lock)) (def __object-eq-hash-next 0) (def __object-eq-hash (make-gc-table 1024 __gc-table::t (macro-gc-hash-table-flag-weak-keys))) (def (__object->eq-hash obj) (declare (not interrupts-enabled)) - (let (val (gc-table-ref __object-eq-hash obj #f)) - (if val - val - (let* ((mix __object-eq-hash-next) - (ptr (##type-cast obj 0)) - (h (fxand (fxxor mix ptr) (macro-max-fixnum32)))) - (set! __object-eq-hash-next (or (##fx+? __object-eq-hash-next 1) 0)) - (gc-table-set! __object-eq-hash obj h) - h)))) + (__do-inline-lock! __object-eq-hash-lock + (let (val (gc-table-ref __object-eq-hash obj #f)) + (if val + val + (let (h (fxand __object-eq-hash (macro-max-fixnum32))) + (set! __object-eq-hash-next (or (##fx+? __object-eq-hash-next 1) 0)) + (gc-table-set! __object-eq-hash obj h) + h))))) diff --git a/src/gerbil/runtime/thread.ss b/src/gerbil/runtime/thread.ss index d3c81612c4..ce8b7f4f1e 100644 --- a/src/gerbil/runtime/thread.ss +++ b/src/gerbil/runtime/thread.ss @@ -8,6 +8,22 @@ namespace: #f (import "gambit" "util" "error" "hash") (export #t) +;; the system thread group +(def __system_thread-group + (make-thread-group 'system)) + +(def (system-thread-group) => :thread-group + __system_thread-group) + +(def (make-system-thread (thunk : :procedure) (name : :symbol)) => :thread + (make-thread (cut thread-main thunk) name (system-thread-group))) + +(def (system-thread! (thunk : :procedure) (name : :symbol)) => :thread + (thread-start! (make-system-thread thunk name))) + +(def (system-actor! (thunk : :procedure) (name : :symbol)) => :thread + (spawn-actor thunk [] name (system-thread-group))) + ;; spawn an actor thread apply f to args (def (spawn (f : :procedure) . args) => :thread @@ -26,41 +42,40 @@ namespace: #f (def (spawn-actor f args name tgroup) => :thread - (def (thread-main thunk) - ;; install an abortive handler to force stack unwinding - ;; this ensures that unwind-protect finalizers are invoked if - ;; the actor exits with an unhandled exception. - ;; debugging: when the unhandled-actor-exception-hook is set, then - ;; it is invoked with the continuation and exception before unwinding - ;; the stack. - ;; in particular, set the hook to dump-stack-trace! to dump the - ;; continuation backtrace together with the exception to ##stderr-port - (lambda () - (with-exception-handler - (lambda (exn) - (##continuation-capture - (lambda (cont) - (when unhandled-actor-exception-hook - (with-catch void (cut __unhandled-actor-exception-hook cont exn))) - ;; unwind stack and continue with the primordial exception handler - ;; see discussion in gambit#295 about ##continuation-last - (##continuation-graft - (##continuation-last cont) - ##primordial-exception-handler - exn)))) - thunk))) - (let* ((thunk (if (null? args) f (cut apply f args))) (thunk (cut with-exception-stack-trace thunk)) (tgroup (or tgroup (current-thread-group)))) (thread-start! (thread-init! - (construct-actor-thread #f 0) - (thread-main thunk) name tgroup)))) + (construct-actor-thread #f #f 0) + (cut thread-main thunk) name tgroup)))) (def (spawn-thread thunk (name absent-obj) (tgroup absent-obj)) (thread-start! - (make-thread thunk name tgroup))) + (make-thread (cut thread-main thunk) name tgroup))) + +(def (thread-main thunk) + ;; install an abortive handler to force stack unwinding + ;; this ensures that unwind-protect finalizers are invoked if + ;; the actor exits with an unhandled exception. + ;; debugging: when the unhandled-actor-exception-hook is set, then + ;; it is invoked with the continuation and exception before unwinding + ;; the stack. + ;; in particular, set the hook to dump-stack-trace! to dump the + ;; continuation backtrace together with the exception to ##stderr-port + (with-exception-handler + (lambda (exn) + (##continuation-capture + (lambda (cont) + (when (procedure? __unhandled-actor-exception-hook) + (with-catch void (cut __unhandled-actor-exception-hook cont exn))) + ;; unwind stack and continue with the primordial exception handler + ;; see discussion in gambit#295 about ##continuation-last + (##continuation-graft + (##continuation-last cont) + ##primordial-exception-handler + exn)))) + thunk)) ;;; thread locals (def (thread-local-ref key (default absent-obj)) @@ -170,11 +185,13 @@ namespace: #f ;; actor thread type (extern actor-thread? construct-actor-thread + actor-thread-state actor-thread-state-set! actor-thread-locals actor-thread-locals-set! actor-thread-nonce actor-thread-nonce-set!) (begin-foreign (define-type-of-thread actor-thread constructor: construct-actor-thread id: gerbil#actor::t + state locals nonce)) diff --git a/src/gerbil/runtime/util.ss b/src/gerbil/runtime/util.ss index ae4fb82737..ba9c77febf 100644 --- a/src/gerbil/runtime/util.ss +++ b/src/gerbil/runtime/util.ss @@ -18,36 +18,69 @@ namespace: #f (begin-annotation (@inline proc) 'inline-rules))) ;;; low level locks +(defrules __make-inline-lock () + ((_) (vector 0 #f))) + (cond-expand (gerbil-smp (defrules __lock-inline! () - ((_ mx) + ((_ mx max-spin) (let () (declare (not interrupts-enabled)) (let again ((spin 0)) (cond - ((##fx= (##vector-cas! mx 0 1 0) 0)) - ((##fx< spin 100) + ((##fx= (##vector-cas! mx 0 1 0) 0) + (##vector-set! mx 1 (current-thread))) + ((##fx< spin max-spin) (again (##fx+ spin 1))) (else - (##thread-yield!) - (again 0)))))))) + (let (owner (##vector-ref mx 1)) + (cond + ((eq? owner (current-thread)) + (##thread-deadlock-action!)) + ((not (macro-thread-end-condvar owner)) + (##thread-deadlock-action!)) + (else + (##thread-yield!) + (again 0))))))))) + ((_ mx) + (__lock-inline! mx 10)))) (else (defrules __lock-inline! () - ((_ mx) + ((_ mx max-spin) (let () (declare (not interrupts-enabled)) - (let again () - (unless (##fx= (##vector-cas! mx 0 1 0) 0) + (let again ((spin 0)) + (cond + ((##fx= (##vector-cas! mx 0 1 0) 0) + (##vector-set! mx 1 (current-thread))) + ((##fx< spin max-spin) (##thread-yield!) - (again)))))))) + (again (##fx+ spin 1))) + (else + (let (owner (##vector-ref mx 1)) + (cond + ((eq? owner (macro-current-thread)) + (##thread-deadlock-action!)) + ((not (macro-thread-end-condvar owner)) + (##thread-deadlock-action!)) + (else + (##thread-yield!) + (again 0))))))))) + ((_ mx) + (__lock-inline! mx 10))))) (defrules __unlock-inline! () ((_ mx) - (##vector-cas! mx 0 0 1))) + (begin + (##vector-set! mx 1 #f) + (##vector-cas! mx 0 0 1)))) -(defrules __make-inline-lock () - ((_) (vector 0))) +(defrule (__do-inline-lock! lock expr) + (begin + (__lock-inline! lock) + (begin0 expr + (__unlock-inline! lock)))) ;;; @@ -202,8 +235,7 @@ namespace: #f (def (immediate? obj) => :boolean - (let (t (:- (##type obj) :fixnum)) - (fxzero? (fxand t #b1)))) + (not (##mem-allocated? obj))) (def (nonnegative-fixnum? obj) => :boolean @@ -586,6 +618,8 @@ namespace: #f fxarithmetic-shift) (def fx/ fxquotient) +(def fx% + fxremainder) (def (fx>=0? x) => :boolean (and (fixnum? x) (##fx>= x 0))) (def (fx>0? x) => :boolean diff --git a/src/lang/build.ss b/src/lang/build.ss index 31643fa57e..71f76d1f30 100755 --- a/src/lang/build.ss +++ b/src/lang/build.ss @@ -5,32 +5,7 @@ :std/make) (defbuild-script - `(;; standard scheme - "scheme/base-impl" - "scheme/base" - "scheme/case-lambda" - "scheme/char" - "scheme/complex" - "scheme/cxr" - "scheme/eval-impl" - "scheme/eval" - "scheme/file" - "scheme/inexact" - "scheme/lazy-impl" - "scheme/lazy" - "scheme/load-impl" - "scheme/load" - "scheme/process-context-impl" - "scheme/process-context" - "scheme/read" - "scheme/repl-impl" - "scheme/repl" - "scheme/time" - "scheme/write" - "scheme/r5rs" - "scheme/r5rs-null" - "scheme/r7rs" - ;; Gerbil variants. Polydactyl needs foreground due to using _gambit# at phi 1. + `(;; Gerbil variants. Polydactyl needs foreground due to using _gambit# at phi 1. (gxc: "gerbil/polydactyl" ,@(include-gambit-sharp)) ) libdir: (path-expand "lib" (getenv "GERBIL_BUILD_PREFIX" (gerbil-home))) diff --git a/src/std/build-spec.ss b/src/std/build-spec.ss index 9f9556e9c5..17d3767dc7 100644 --- a/src/std/build-spec.ss +++ b/src/std/build-spec.ss @@ -3,6 +3,10 @@ (def (gerbil-libdir) (path-expand "lib" (getenv "GERBIL_BUILD_PREFIX" (gerbil-home)))) (def (build-spec . _) + `(;; v0.19 ported ... + )) + +#;(def (build-spec . _) `((gxc: "build-config" (extra-inputs: ("build-features.ss"))) "metaclass" "hash-table" diff --git a/src/std/contract.ss b/src/std/contract.ss deleted file mode 100644 index 3a5680340d..0000000000 --- a/src/std/contract.ss +++ /dev/null @@ -1,6 +0,0 @@ -;;; -*- Gerbil -*- -;;; © vyzo -;;; backwards compatibilty shim; will be removed for v0.19 -(export using - with-interface with-class with-contract - maybe list-of? in-range? in-range-inclusive? nonnegative-fixnum?) diff --git a/src/std/encoding/json/env.ss b/src/std/encoding/json/env.ss new file mode 100644 index 0000000000..20c8143378 --- /dev/null +++ b/src/std/encoding/json/env.ss @@ -0,0 +1,45 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; json io environment +(import :std/serde/scan + :std/format/env) +(export #t) + +(defclass JSONOpt + ((format : FormatOpt) + ;; whether to read/write objects without serializing the class + (untyped : :boolean) + ;; whether to read untyped objects as hashes; default is wraped alist + (untyped-object-as-hash : :boolean) + ;; whether to read object keys as symbols; default is string + (key-as-symbol : :boolean) + ;; whether to read arrays as vectors; default is list + (array-as-vector : :boolean) + ;; whether to sort field keys for alists, hashes, and objects + (sort-keys : :boolean)) + transparent: #t + final: #t) + +(defclass JSONEnv + ((format :- FormatEnv) + (opt :- JSONOpt)) + constructor: :init! + final: #t) + +(def current-json-opt + (make-parameter #f)) + +(def __default-json-opt + (delay-atomic + (JSONOpt + XXX))) + +(def (json-environment (opt (current-json-ropt))) => JSONEnv + (JSONEnv (or opt (force __default-json-opt)))) + +(def (json-environment-with) + XXX + ) + +(defmethod {:init! JSONEnv} + XXX) diff --git a/src/std/encoding/json/io.ss b/src/std/encoding/json/io.ss new file mode 100644 index 0000000000..c6d86a957c --- /dev/null +++ b/src/std/encoding/json/io.ss @@ -0,0 +1,92 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; json io interface +(import :std/error + :std/interface + :std/io + :std/io/bio/api + :std/format/io + ./env) +(export #t) + +;;; writer +(interface JSONWriter + (write-json (writer : BufferedWriter) (env : JSONEnv)) => :fixnum) + +(defsyntax (defjson-writer stx) + (syntax-case stx () + ((_ klass (write-it writer obj env) + body ...) + (with-syntax ((write-json (syntax-local-introduce 'write-json)) + (writer.write-it + (stx-identifier #'write-it #'writer "." #'write-it))) + #'(begin + (defwriter-ext (write-it writer (obj : klass) (env : JSONEnv)) + body ...) + (defmethod {write-json klass} + (lambda (self writer env) + (writer.write-it self env)) + interface: JSONWriter)))))) + +(defwriter-ext (write-json writer obj (env : JSONEnv)) + (defrule (do-object obj) + (writer.write-json-raw obj env)) + (defrule (do-anchor obj id) + (writer.write-jso-anchor obj id env)) + (defrule (do-reference id) + (writer.write-json-reference id env)) + + (@serialize obj env.format.scan do-object do-anchor do-reference)) + +(defwriter-ext (write-json-raw writer obj (env : JSONEnv)) + (apply-object-json-writer obj writer env)) + +(defwriter-ext (write-json-anchor writer obj (id : :fixnum) (env : JSONENV)) + XXX) + +(defwriter-ext (write-json-reference write (id : :fixnum) (env : JSONEnv)) + XXX) + +(def (apply-object-json-writer obj (env : JSONEnv)) => :fixnum + (__object-write-json obj env)) + +(defcall-interface-method JSONWriter write-json + (__object-write-json obj env) + :- :fixnum) + +;;; Reader +(interface JSONReader + (read-json! (reader : BufferedReader) (env : JSONEnv)) => :void) + +(defsyntax (defjson-reader stx) + (syntax-case stx () + ((_ klass (read-it reader obj env) + body ...) + (with-syntax ((reader.read-it + (stx-identifier #'read-it #'reader "." #'read-it))) + #'(begin + (defreader-ext (read-it reader (obj : klass) (env : JSONEnv)) + body ...) + (defmethod {read-json! klass} + (lambda (self reader env) + (reader.read-it self env)) + interface: JSONReader)))))) + +(defrule (raise-invalid-token where input char) + (if (eof-object? char) + (raise-premature-end-of-input where "Incomplete JSON object; EOF reached" input) + (raise-io-error where "Invalid JSON token" input char))) + +(defreader-ext (parse-json reader (env : JSONEnv)) + XXX + ) + +(defreader-ext (read-json! reader obj (env : JSONEnv)) => :void + (apply-object-json-reader obj reader env)) + +;;; method dispatch +(def (apply-object-json-reader obj (reader : BufferedReader) (env : JSONEnv)) => :void + (__object-read-json! obj reader env)) + +(defcall-interface-method JSONReader read-json! + (__object-read-json! obj reader env)) diff --git a/src/std/encoding/json/reader.ss b/src/std/encoding/json/reader.ss new file mode 100644 index 0000000000..6dd82e751b --- /dev/null +++ b/src/std/encoding/json/reader.ss @@ -0,0 +1,12 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; json reader +(import :std/interface + :std/io + :std/io/bio/api + :std/format/ioutil + :std/format/io + :std/format/reader + ./env + ./io) +(export #t) diff --git a/src/std/encoding/json/writer.ss b/src/std/encoding/json/writer.ss new file mode 100644 index 0000000000..ee54ffb6fd --- /dev/null +++ b/src/std/encoding/json/writer.ss @@ -0,0 +1,158 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; json writer +(import :gerbil/runtime/mop + :gerbil/runtime/interface + :gerbil/runtime/hash + :std/interface + :std/io/interface + :std/io/bio/api + :std/serde/scan + :std/serde/serialize + :std/format/env + :std/format/ioutil + :std/format/writer + :std/format/string + ./env + ./io) +(export #t) + +;;; util +(def (sort-symbol-alist lst) + XXX + ) + +(def (slot-list->spec lst) + XXX + ) + +;;; base +(defwriter-ext (write-json-object-begin writer (klass : :class) (env : JSONEnv)) + (do-write (wr 0) + (writer.write-lbrace) + (writer.write-json-object-type klass env) + wr)) + +(defwriter-ext (write-json-object-end writer (env : JSONEnv)) + (writer.write-rbrace)) + +(defwriter-ext (write-json-object-type writer (klass : :class) (env : JSONEnv)) + (if env.untyped + 0 + (do-write (wr 0) + (writer.write-lbrace) + (writer.write-symbol/string '@class) + (writer.write-colon) + (do-format-style write-json-object-type env.format.opt + (do-write (wr wr) + (writer.write-json-field 'name klass.name env) + (writer.write-coma) + (writer.write-json-field 'id klass.id env) + wr) + (writer.write-json-field 'name klass.name env)) + (writer.write-rbrance) + wr))) + +;; standard classes +(defjson-writer :class (write-json-class klass env) + (do-write (wr 0) + (writer.write-json-object-begin (class-type klass) env) + (writer.write-coma) + (writer.write-json-object-type klass env) + (writer.write-json-object-end env) + wr)) + +(defjson-writer :object (write-json-object obj env) + (do-write (wr 0) + (writer.write-json-object-begin (object-class obj) env) + (writer.write-json-object-slots obj env) + (writer.write-json-object-end) + wr)) + +(defwriter-ext (write-json-object-slots writer (obj : :object) (env : JSONEnv)) + (let (len (##structure-length obj)) + (if (fx> len 1) + (let* ((klass (object-class obj)) + (coma? (not env.untyped))) + (def (write-slot-spec slots) => :fixnum + (let (slots + (if env.sort-keys + (sort-symbol-alist slots) + slots)) + (let loop ((rest slots) (wr 0) (coma? coma?)) + (match rest + ([print-spec . rest] + (using ((spec print-spec :- :pair) + (slot (car spec) :- :symbol) + (offset (cdr spec) :- :fixnum)) + (do-write (wr wr) + (if coma? (writer.write-coma) 0) + (wrier.write-json-slot obj slot offset env) + (loop rest wr #t)))) + (else wr))))) + (cond + ((fx= env.format.opt.style FORMAT-DEBUG) + (let (slots (vector->list (class-type-slot-vector klass) 1)) + (if env.sort-keys + (write-slot-spec (slot-list->spec slots)) + (let loop ((rest slots) (offset 1) (wr 0) (coma? coma?)) + (match rest + ([slot . rest] + (using (slot :- :symbol) + (do-write (wr wr) + (if coma? (writer.write-coma) 0) + (writer.write-json-slot obj slot offset env) + (loop rest (fx+ offset 1) wr #t)))) + (else wr)))))) + ((class-type-printable-slots klass) + ;; print spec: [[slot . offset] ...] + => write-slot-spec) + (else 0))) + 0))) + +(defwriter-ext (write-json-field writer (field : :symbol) obj (env : JSONEnv)) + (do-write (wr 0) + (writer.write-symbol/string field) + (writer.write-colon) + (writer.write-json obj env) + wr)) + +(defwriter-ext (write-json-key-value writer k v (env : JSOEnv)) + (do-write (wr 0) + (writer.format-to-string k) + (writer.write-colon) + (writer.write-json v env) + wr)) + +(defwriter-ext (write-json-slot writer obj (slot : :symbol) (offset : :fixnum) (env : JSONEnv)) + (writer.write-json-field slot + (unchecked-field-ref obj offset) + env)) + +(defjson-writer interface-instance (write-json-interface-instance writer inst env) + (do-write (wr 0) + (writer.write-json-object-begin (object-class inst) env) + (writer.write-json-field 'instance inst.object env) + (writer.write-json-object-end env))) + +(defjson-writer HashTable (write-json-hash-table writer ht env) + (do-write (wr 0) + (writer.write-json-object-begin (object-class ht) env) + (let (wr-body 0) + (ht.for-each + (lambda (k v) + (do-write (wr 0) + (writer.write-coma) + (writer.write-json-key-value k v env) + (set! wr-body (fx+ wr-body wr))))) + wr-body) + (writer.write-json-object-end env) + wr)) + +;; builtin objects +(defjson-writer :t (write-json-t writer obj env) + (using (klass (class-of obj) :- :class) + (do-write (wr 0) + (writer.write-json-object-begin klass env) + (writer.write-json-object-end env) + wr))) diff --git a/src/std/ffi.ss b/src/std/ffi.ss new file mode 100644 index 0000000000..27cd5ef854 --- /dev/null +++ b/src/std/ffi.ss @@ -0,0 +1,32 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; ffi macrology +;;; Note: this will eventually replace :std/foreign +(require ,(compilation-target? C)) +(export #t) + +(defsyntax-case C-include () + ((_ path) + (stx-string? #'path) + (with-syntax ((include-string (string-append "#include " (stx-e #'path)))) + #'(begin-foreign (c-declare include-string))))) + +(defsyntax-case C-declare () + ((_ code) + (stx-string? #'code) + #'(begin-foreign (c-declare code))) + ((_ code rest ...) + (andmap stx-string? #'(code rest ...)) + (with-syntax ((code-string (apply string-append (map stx-e #'(code rest ...))))) + #'(begin-foreign (c-declare code-string))))) + +(defsyntax-case def-C (=>) + ((_ (proc contract ...) => return c-code) + (stx-string? #'c-code) + (with-syntax (((arg ...) (map stx-car #'(contract ...))) + (code-string (string-append "___RESULT = " (stx-e #'c-code) ";"))) + #'(def (proc contract ...) => return + (let (result (##c-code code-string arg ...)) + (if __DEBUG + (: result return) + (:- result return))))))) diff --git a/src/std/format/env.ss b/src/std/format/env.ss new file mode 100644 index 0000000000..49e592a56a --- /dev/null +++ b/src/std/format/env.ss @@ -0,0 +1,264 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; format env +(import :std/error + :std/serde/scan) +(export #t) + +;; format specifiers +(def FORMAT-WRITE 0) +(def FORMAT-DISPLAY 1) +(def FORMAT-DEBUG 1) + +(def FORMAT-NO-CYCLES 0) +(def FORMAT-CHECK-CYCLES 1) +(def FORMAT-ALLOW-CYCLES 2) + +(def FORMAT-NO-COMPRESSION 0) +(def FORMAT-STD-COMPRESSION 1) + +(def FORMAT-CHAR-SCHEME-NAMES 0) +(def FORMAT-CHAR-STD-NAMES 1) + +(defrule (format-style?) + (one-of ,FORMAT-WRITE ,FORMAT-DISPLAY ,FORMAT-DEBUG)) + +(defrule (format-cycles?) + (one-of ,FORMAT-NO-CYCLES ,FORMAT-CYCLES ,FORMAT-ALLOW-CYCLES)) + +(defrule (format-flonum-conversion?) + (one-of #\e #\E #\f #\F #\g #\G)) + +(defrule (format-integer-base?) + (one-of #\b #\o #\d #\x #\X)) + +(defrule (format-char-ascii-names?) + (one-of ,FORMAT-CHAR-SCHEME-NAMES ,FORMAT-CHAR-STD-NAMES)) + +(defrule (format-optional-fixnum?) + (? (or not nonnegative-fixnum?))) + +;; format environment +(defclass FormatOpt + ( ;; format style + (style :- :fixnum) + ;; cycle treatment + (cycles :- :fixnum) + ;; write compression mode + (compress :- :fixnum) + ;; flonums + (flonum-precision :- :fixnum) + (flonum-coversion :- :fixnum) + ;; integers + (integer-prefix :- :fixnum) + (integer-alphabet :- :u8vector) + (integer-width :- :fixnum) + ;; max sequence elements to display + (max-elements :- :fixnum) + ;; char ascii name set + (char-ascii-names :~ :fixnum)) + transparent: #t + construct: :init! + final: #t) + +(defstruct FormatEnv + ((scan :- ScanEnv) ; cycle handling policy (optional) + (opt :- FormatOpt)) + constructor: :init! + final: #t) + +(defmethod {:init! FormatEnv} + (lambda (self style: (style :~ (format-style?) := FORMAT-DEBUG) + cycles: (cycles :~ (format-cycles?) := FORMAT-ALLOW-CYCLES) + compress: (compress :~ (format-compression?) := FORMAT-NO-COMPRESSION) + + flonum-precision: (flonum-precision :~ (format-optional-fixnum?) := #f) + flonum-conversion: (flonum-conversion :~ (format-flonum-conversion?) := #\g) + integer-base: (integer-base :~ (format-integer-base?) := #\d) + max-elements: (max-elements :~ (format-optional-fixnum?) := #f) + char-ascii-names: (char-ascii-names :~ (format-char-ascii-names?) := FORMAT-CHAR-SCHEME-NAMES)) + (set! self.cycles cycles) + (set! self.compress compress) + (set! self.style style) + (set! self.flonum-precision flonum-precision) + (__set-flonum-coversion! self flonum-conversion) + (__set-integer-base! self integer-base) + (set! self.max-elements max-elements) + (set! self.char-ascii-names char-ascii-names))) + +(def (__set-flonum-conversion! (env :- FormatEnv) (conversion :- :char)) + (set! env.flonum-conversion (char->integer conversion))) + +(def (__set-integer-base! (env :- FormatEnv) (base :- :char)) + (cond + ((agetq base __integer-bases) + => (lambda (lst) + (with ([prefix-char alphabet width] lst) + (set! env.integer-prefix (and prefix-char (char->integer prefix-char))) + (set! env.integer-alphabet alphabet) + (set! env.integer-width width))))) + (raise-contract-violation-error where "integer base" base: base)) + +(def __alphabet-binary + '#u8(#x30 #x31)) +(def __alphabet-octal + '#u8(#x30 #x31 #x32 #x33 #x34 #x35 #x36 #x37)) +(def __alphabet-decimal + '#u8(#x30 #x31 #x32 #x33 #x34 #x35 #x36 #x37 #x38 #x39)) +(def __alphabet-hex + '#u8(#x30 #x31 #x32 #x33 #x34 #x35 #x36 #x37 #x38 #x39 #x61 #x62 #x63 #x64 #x65 #x66)) +(def __alphabet-HEX + '#u8(#x30 #x31 #x32 #x33 #x34 #x35 #x36 #x37 #x38 #x39 #x41 #x42 #x43 #x44 #x45 #x46)) + +(def __integer-bases + [[#\b #\b __alphabet-binary 1] + [#\o #\o __alphabet-octal 3] + [#\d #f __alphabet-decimal 2] + [#\x #\x __alphabet-hex 2] + [#\X #\x __alphabet-HEX 2]]) + +(defsyntax-case do-format-option () + ((_ where opt slot (option ...) ...) + (with-identifier (opt.slot #'opt #'opt "." #'slot) + (with-syntax + (((clause ...) + (map (lambda (option) + (syntax-case option () + ((format-option expr) + (identifier? #'format-option) + #'((fx= opt.slot format-option) + expr)) + (((format-option ...) expr) + (andmap identifier? #'(format-option ...)) + #'((or (fx= opt.slot format-option) ...) + expr)))) + #'(option ...))) + (contract-string + (string-append "format " (symbol->string (stx-e #'slot))))) + #'(cond + clause ... + (raise-contract-violation-error where contract-string + (@symbol->keyword slot) + opt.slot)))))) + +(defrules do-format-style () + ((_ where opt do-format-write do-format-display do-format-debug) + (do-format-option where opt style + (FORMAT-WRITE do-format-write) + (FORMAT-DISPLAY do-format-display) + (FORMAT-DEBUG do-format-debug))) + ((_ where opt do-format-write do-format-display) + (do-format-option where opt style + ((FORMAT-WRITE FORMAT-DEBUG) do-format-write) + (FORMAT-DISPLAY do-format-display)))) + +(defrules do-format-cycles () + ((_ where opt do-no-cycles do-check-cycles do-allow-cycles) + (do-format-option where opt cycles + (FORMAT-NO-CYCLES do-no-cycles) + (FORMAT-CHECK-CYCLES do-check-cycles) + (FORMAT-ALLOW-CYCLES do-allow-cycles)))) + +(defrules do-format-compress () + ((_ where opt do-no-compress do-compress) + (do-format-option where opt compress + (FORMAT-NO-COMPRESSION do-no-compress) + (FORMAT-STD-COMPRESSION do-compress)))) + +(defrules do-format-char-ascii-names () + ((_ where opt do-scheme-names do-std-names) + (do-format-option where opt char-ascii-names + (FORMAT-CHAR-SCHEME-NAMES do-scheme-names) + (FORMAT-CHAR-STD-NAMES? do-std-names)))) + +(def current-format-opt + (make-parameter #f)) + +(def __default-format-opt + (delay-atomic + (FormatOpt + style: FORMAT-WRITE + cycles: FORMAT-ALLOW-CYCLES + compress: FORMAT-NO-COMPRESSION + flonum-precision: #f + flonum-conversion: #\g + integer-base: 10 + max-elements: #f + char-ascii-names: FORMAT-CHAR-SCHEME-NAMES))) + +(def (format-options (opt (current-format-opt))) => FormatOpt + (: (or opt (force __default-format-opt)))) + +(def (format-environment (opt : FormatOpt := (format-options))) => FormatEnv + (FormatEnv opt: opt)) + +(defsyntax-case @derive-format-env () + ((_ env (slot value setf!) ...) + (and (identifier? #'env) + (andmap identifier? #'(slot ...))) + (with-identifiers ((env.opt #'env #'env ".opt") + (env.scan #'env #'env ".opt") + (xopt '$xopt)) + #'(using (xopt (struct-copy env.opt) :- FormatOpt) + (setf! xopt value) ... + (FormatEnv scan: env.scan opt: xopt))))) + +(defsyntax-case @format-env () + ((_ env (slot value) ...) + (and (identifier? #'env) + (andmap stx-keyword? #'(slot ...))) + (with-syntax ((((slot safe-value set-it!) ...) + (map (lambda (slot value) + (let (key (stx-e slot)) + (with-syntax + (((contract setf!) + (case key + ((style:) + '(format-style? &FormetEnv-style-set!)) + ((cycles:) + '(format-cycles? &FormetEnv-cycles-set!)) + ((compress:) + '(format-compression? &FormatEnv-compress-set!)) + ((flonum-precision:) + '(format-optional-fixnum? &FormatEnv-flonum-precision-set!)) + ((flonum-conversion:) + '(format-flonum-conversion? __set-flonum-conversion!)) + ((integer-base:) + '(format-integer-base? __set-integer-base!)) + ((max-elements:) + '(format-optional-fixnum? &FormatEnv-max-elements-set!)) + ((char-ascii-names:) + '(format-char-ascii-names? &FormatEnv-char-ascii-names-set!)) + (else + (raise-syntax-error #f "unexpected format option" stx slot)))) + (value value) + (slot (keyword->symbol key))) + #'((:~ value (contract)) #'setf!)))) + #'(slot ...) + #'(value ...)))) + (@derive-format-env env (slot safe-value) ...))) + ((_ (slot value) ...) + (andmap stx-keyword? #'(slot ...)) + (with-identifiers ((env '$senv) + (env.opt #'env #'env ".opt")) + #'(let (env (new-instance FormatEnv::t)) + (set! env.opt (format-options)) + (@derive-format-env env (slot value) ...))))) + +(defmethod {:init! FormatEnv} + (lambda (self scan: (scan :? ScanEnv) opt: (opt : FormatOpt)) + (if scan + (set! self.scan scan) + (let ((compress? + (do-format-compress FormatEnv:::init! opt + #f #T)) + (scan? + (or compress? + (do-format-cycles FormatEnv:::init! opt + #f #t #t))) + (allow-cycles? + (do-format-cycles FormatEnv:::init! opt + #f #f #t))) + (when scan? + (set! self.scan (ScanEnv allow-cycles? compress?))))) + (set! self.opt opt))) diff --git a/src/std/format/io.ss b/src/std/format/io.ss new file mode 100644 index 0000000000..f207d292fa --- /dev/null +++ b/src/std/format/io.ss @@ -0,0 +1,93 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; base io facilities +(import :std/io/interface + :std/io/bio/api + :std/serde/serialize + ./env + ./ioutil) +(export #t) + +;; Writer interface +(interface ObjectWriter + (write (writer : BufferedWriter) (env : FormatEnv)) => :fixnum) + +(defsyntax-case defobject-writer () + ((_ klass (write-method writer obj env) + body ...) + (with-identifiers + ((write '$writer) + (writer.write-method #'writer #'writer "." #'write-method)) + #'(begin + (defwriter-ext (write-it writer (obj : klass) (env : WriteEnv)) + body ...) + (defmethod {write klass} + (lambda (self writer env) + (writer.write-method self env)) + interface: ObjectWriter))))) + +(defwriter-ext (print writer obj (env : FormatEnv)) + (do-write (wr 0) + (writer.format obj env) + (writer.write-newline) + (begin + (writer.flush) + wr))) + +(defwriter-ext (display writer obj (env : FormatEnv)) + (writer.format obj (format-env-with-style env FORMAT-DISPLAY))) + +(defwriter-ext (debug writer obj (env : FormatEnv)) + (writer.format obj (format-env-with-style env FORMAT-DEBUG))) + +(defwriter-ext (format writer obj (env : FormatEnv)) + (defrule (do-object obj) + (writer.format-raw obj env)) + (defrule (do-anchor obj id) + (writer.format-anchor obj id env)) + (defrule (do-reference id) + (writer.format-reference id env)) + + (@serialize obj env.scan do-object do-anchor do-reference)) + +(defwriter-ext (format-raw writer obj (env : FormatEnv)) + (apply-object-writer obj writer env)) + +(defwriter-ext (format-anchor writer obj (id : :fixnum) (env : FormatEnv)) + (do-write (wr 0) + (writer.write-sharp) + (writer.write-fixnum-decimal id) + (writer.write-equal) + (writer.write-sharp) + (writer.format-raw obj env) + wr)) + +(defwriter-ext (format-reference write (id : :fixnum) (env : FormatEnv)) + (do-write (wr 0) + (writer.write-sharp) + (writer.write-fixnum-decimal id) + (writer.write-sharp) + wr)) + +(def (apply-object-writer obj writer (env : FormatEnv)) => :fixnum + (__object-write obj writer env)) + +(defcall-interface-method ObjectWriter writer + (__object-write obj writer env) + :- :fixnum) + +;;; Reader interface +(interface ObjectReader + (read! (reader : BufferedReader) (env : FormatEnv)) => :void) + +(defsyntax-case defobject-reader () + ((_ klass (read-it writer obj env) + body ...) + (with-identifier (reader.reader-it #'reader #'reader "." #'read-it) + #'(begin + (defwriter-ext (read-it reader (obj : klass) (env : FormatEnv)) + body ...) + (defmethod {read! klass} + (lambda (self reader env) + (reader.read-it self env)) + interface: ObjectReader))))) diff --git a/src/std/format/ioutil.ss b/src/std/format/ioutil.ss new file mode 100644 index 0000000000..3db6aac520 --- /dev/null +++ b/src/std/format/ioutil.ss @@ -0,0 +1,447 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; format object utilities +(import :std/io/interface + :std/io/interface + :std/io/bio/api + :std/serde/serialize + :std/serde/interned) +(export #t) + +(defsyntax-case @char->int () + ((_ char) + (stx-char? #'char) + ['quote (char->integer (stx-e #'char))]) + ((_ int) + (stx-fixnum? #'int) + #'int)) + +(defrules @maybe-char->int () + ((_ #f) #f) + ((_ char) + (@char->int char))) + +(defsyntax-case @symbol->string () + ((_ sym) + (identifier? #'sym) + ['quote (symbol->string (stx-e #'sym))])) + +(defrules @maybe-symbol->string () + ((_ #f) #f) + ((_ sym) + (@symbol->string sym))) + +(defsyntax-case @string->utf8 () + ((_ str) + (stx-string? #'str) + ['quote (string->utf8 (stx-e #'str))])) + +(def __ascii-special-chars + (make-vector 128 #f)) + +(defstruct ascii-special-char-info + ((char :- :fixnum) + (string-esc? :- :boolean) + (string-esc-char :- :fixnum) + (symbol-esc? :- :boolean) + (symbol-esc-char :- :fixnum) + (char-esc? :- :boolean) + (char-scm-name :- :symbol) + (char-std-name :- :symbol)) + final: #t) + +(defrule (defascii-special-chars spec ...) + (begin + (defascii-special-char spec) ...)) + +(defrule (defascii-special-char + (char + str-esc? + str-esc-char + symbol-esc? + symbol-esc-char + char-esc? + char-esc-scheme-name + char-esc-std-name)) + (vector-set! __ascii-special-chars char + (asci-special-char + (@char->int char) + str-escape? + (@maybe-char->int str-esc-char) + symbol-quote? + symbol-esc? + (@maybe-char->int symbol-esc-char) + char-esc? + char-scheme-name + char-std-name))) + +(defrules try-ascii-special-char () + ((_ aint K E) + (cond + ((##vector-ref __ascii-special-chars aint) + => K) + (else E))) + ((_ aint K) + (try-ascii-special-char aint K #f))) + +(defascii-special-chars + ;; char str-esc? esc-char sym-esc? esc-char char-esc? scm-name std-name + (#x00 #t #f #t #f #t null NUL) + (#x01 #t #f #t #f #t #f SOH) + (#x02 #t #f #t #f #t #f STX) + (#x03 #t #f #t #f #t #f ETX) + (#x04 #t #f #t #f #t #f EOT) + (#x05 #t #f #t #f #t #f ENQ) + (#x06 #t #f #t #f #t #f ACK) + (#x07 #t #\a #t #\a #t alarm BEL) + (#x08 #t #\b #t #\b #t backspace BS) + (#x09 #t #\t #t #\t #t tab HT) + (#x0A #t #\n #t #\n #t newline LF) + (#x0B #t #\v #t #\v #t vtab VT) + (#x0C #t #\f #t #\f #t page FF) + (#x0D #t #\r #t #\r #t return CR) + (#x0E #t #f #t #f #t #f SO) + (#x0F #t #f #t #f #t #f SI) + (#x10 #t #f #t #f #t #f DLE) + (#x11 #t #f #t #f #t #f DC1) + (#x12 #t #f #t #f #t #f DC2) + (#x13 #t #f #t #f #t #f DC3) + (#x14 #t #f #t #f #t #f DC4) + (#x15 #t #f #t #f #t #f NAK) + (#x16 #t #f #t #f #t #f SYN) + (#x17 #t #f #t #f #t #f ETB) + (#x18 #t #f #t #f #t #f CAN) + (#x19 #t #f #t #f #t #f EM) + (#x1A #t #f #t #f #t #f SUB) + (#x1B #t #f #t #f #t escape ESC) + (#x1C #t #f #t #f #t #f FS) + (#x1D #t #f #t #f #t #f GS) + (#x1E #t #f #t #f #t #f RS) + (#x1F #t #f #t #f #t #f US) + (#x20 #f #f #t #f #t space SPACE) + (#x7F #t #f #t #f #t delete DEL) + + (#\" #t #\" #t #\" #f #f #f) + (#\( #f #f #t #\( #f #f #f) + (#\) #f #f #t #\) #f #f #f) + (#\[ #f #f #t #\[ #f #f #f) + (#\\ #t #\\ #t #\\ #f #f #f) + (#\] #f #f #t #\] #f #f #f) + (#\{ #f #f #t #\{ #f #f #f) + (#\| #f #f #t #\| #f #f #f) + (#\} #f #f #t #\} #f #f #f) + ) + +(defrule (defascii-writers (writef char) ....) + (begin + (defwriter-ext (writef writer) + (writer.write-u8 (@char->int char))) + ...)) + +(defascii-writers + (write-space #\space) + (write-newline #\newline) + (write-lparen #\() + (write-rparen #\)) + (write-lbracket #\[) + (write-rbracket #\]) + (write-lbrace #\{) + (write-rbrace #\}) + (write-coma #\,) + (write-colon #\:) + (write-quote #\') + (write-squote #\") + (write-dot #\.) + (write-sharp #\#) + (write-bang #\!) + (write-equal #\=) + (write-minus #\-) + (write-plus #\+) + (write-backslash #\\) + (write-slash #\/) + (wripe-pipe #\|)) + +(def (contains-special-chars? (str : :string) (special-char? : :procedure)) + (let (len (string-length str)) + (let loop ((i 0 :- :fixnum)) + (and (fx< i len) + (let (next (##string-ref str i)) + (or (special-char? next) + (loop (fx+ i 1)))))))) + +(def (string-ends-with? (str: :string) (char : :char)) + (let (len (string-length str)) + (and (fx> len 0) + (eq? (##string-ref str (fx- len 1)) char)))) + +(defwriter-ext (write-string/escape (str : :string) (escape : :procedure)) + (let (len (string-length str)) + (let loop ((i 0 :- :fixnum) (wr wr)) + => :fixnum + (if (fx< i len) + (let* ((char (##string-ref str i)) + (u8 (char->integer char))) + (defrule (write-char-utf8) + (do-write (wr wr) + (writer.write-char next) + (loop (fx+ i 1) wr))) + (cond + ((fx> u8 127) + (write-char-utf8)) + ((escape writer u8) + => (lambda (((wr-esc :- :fixnum)) + (loop (fx+ i 1) (fx+ wr wr-esc))))) + (else + (write-char-utf8)))) + wr)))) + +(defrule (__char-escape writer + aint + asci + esc-char? + esc-char) + (using ((writer :- BufferedWriter) + (aint :- :fixnum)) + (and (esc-char? asci) + (cond + ((esc-char asci) + => (lambda ((u8 :- :fixnum)) + (do-write (wr 0) + (writer.write-backslash) + (writer.write-u8 u8) + wr))) + (else + (do-write (wr 0) + (writer.write-backslash) + (writer.write-u8 (@char->int #\x)) + (writer.write-nonnegative-fixnum-hex aint #f) + wr)))))) + +(def (__string-escape (writer :- BufferedWriter) (aint :- :fixnum)) => :fixnum + (try-ascii-special-char aint + (cut __char-escape writer aint <> + &ascii-special-char-info-string-esc? + &ascii-special-char-info-string-esc-char))) + +(def (__string-escape? (aint :- :fixnum)) + (try-ascii-special-char aint + &ascii-special-char-info-string-esc?)) + +(def (__symbol-escape (writer :- BufferedWriter) (u8 :- :fixnum)) => :fixnum + (try-ascii-special-char aint + (cut __char-escape writer aint <> + &ascii-special-char-info-symbol-esc? + &ascii-special-char-info-symbol-esc-char))) + +(def (__symbol-quote? (char :- :fixunm)) + (try-ascii-special-char aint + &ascii-special-char-info-symbol-quote?)) + +(defwriter-ext (write-string/quote writer (str : :string)) + (do-write (wr 0) + (writer.write-squote) + (writer.write-string/escape str __string-escape) + (writer.write-squote) + wr)) + +(defwriter-ext (write-raw-symbol writer (sym : :symbol)) + (writer.write-string (symbol->string sym))) + +(defwriter-ext (write-raw-symbol/quote writer (sym : :symbol)) + (let (str (symbol->string sym)) + (if (or (contains-special-chars? str __symbol-quote?) + (string-ends-with? str #\:)) + (do-write (wr 0) + (writer.write-pipe) + (writer.write-string/escape str __symbol-escape) + (writer.write-pipe) + wr) + (writer.write-string str)))) + +(defwriter-ext (write-raw-symbol/string writer (sym : :symbol)) + (writer.write-string/quote (symbol->string sym))) + +(defwriter-ext (write-symbol writer (sym : :symbol)) + (if (interned-symbol? sym) + (writer.write-interned-symbol sym) + (writer.write-raw-symbol sym))) + +(defwriter-ext (write-symbol/quote writer (sym : :symbol)) + (if (interned-symbol? sym) + (writer.write-interned-symbol/quote writer sym) + (writer.write-raw-symbol/quote writer sym))) + +(defwriter-ext (write-symbol/string writer (sym : :symbol)) + (if (interned-symbol? sym) + (writer.write-interned-symbol/string writer sym) + (writer.write-raw-symbol/string writer sym))) + +(defwriter-ext (write-interned-symbol writer (sym : :symbol)) + (do-write-interned-symbolic writer sym write-raw-symbol format)) + +(defwriter-ext (write-interned-symbol/quote writer (sym : :symbol)) + (do-write-interned-symbolic writer sym write-raw-symbol/quote format/quote)) + +(defwriter-ext (write-interned-symbol/string writer (sym : :symbol)) + (do-write-interned-symbolic writer sym write-raw-symbol/string format/string)) + +(defwriter-ext (write-raw-keyword writer (key : :keyword)) + (writer.write-string (keyword->string key))) + +(defwriter-ext (write-raw-keyword/quote writer (key : :keyword)) + (let (str (keyword->string sym)) + (if (contains-special-chars? str __symbol-quote?) + (do-write (wr 0) + (writer.write-pipe) + (writer.write-string/escape str __symbol-escape) + (writer.write-pipe) + (writer.write-colon) + wr) + (do-write (wr 0) + (writer.write-string str) + (writer.write-colon) + wr)))) + +(defwriter-ext (write-keyword writer (key : :keyword)) + (if (interned-keyword? key) + (writer.write-interned-keyword key) + (writer.write-raw-keyword key))) + +(defwriter-ext (write-keyword/quote writer (key : :keyword)) + (if (interned-keyword? key) + (writer.write-interned-keyword/quote key) + (writer.write-raw-keyword/quote key))) + +(defwriter-ext (write-interned-keyword writer (key : :keyword)) + (do-write-interned-symbolic writer key write-raw-keyword format)) + +(defwriter-ext (write-interned-keyword/quote writer (key : :keyword)) + (do-write-interned-symbolic writer key write-raw-keyword/quote format/quote)) + +(defwriter-ext (write-leading-zeros writer (gits : :fixnum) (width : :fixnum)) + (let (lead (if (fx> width 1) (fx% gits width) 0)) + (if (fx> lead 0) + (let loop () + => :fixnum + (do-write (wr 0) + (let (lead (fx- lead 1)) + (if (fx> lead 0) + (loop lead) + 0)) + (writer.write-u8 0) + wr)) + 0))) + +(defwriter-ext (write-nonnegative-fixnum-with-base writer (x : :fixnum) (alphabet : :u8vector) (width : :fixnum)) + (let* ((base (u8vector-length alphabet)) + (gits (exact (ceiling (log x base))))) + (do-write (wr 0) + (writer.write-leading-zeros gits width) + (let loop ((x x)) + => :fixnum + (if (fx< x base) + (writer.write-u8 (##u8vector-ref alphabet x)) + (let* ((q (fx/ x base)) + (r (fx% x base))) + (do-write (wr 0) + (loop q) + (writer.write-u8 (##u8vector-ref alphabet r)) + wr)))) + wr))) + +(defwriter-ext (write-nonnegative-integer-with-base writer (x : :integer) (alphabet : :u8vector) (width : :fixnum)) + (let* ((base (u8vector-length alphabet)) + (gits (exact (ceiling (log x base)))) + (lead (if (fx> width 1) (fx% gits width) 0))) + (do-write (wr 0) + (writer.write-leading-zeros gits width) + (let loop ((x x)) + => :fixnum + (if (fixnum? x) + (writer.write-nonnegative-fixnum-with-base x alphabet 0) + (let* ((q (quotient x base)) + (r (remainder x base))) + (do-write (wr 0) + (loop q) + (writer.write-u8 (##u8vector-ref alphabet r)) + wr)))) + wr))) + +(defwriter-ext (write-fixnum-with-base writer (x : :fixnum) (alphabet : :u8vector) (width : :fixnum)) + (if (fx>= x 0) + (writer.write-nonnegative-fixnum-with-base writer x alphabet width) + (do-write (wr 0) + (writer.write-minus) + (cond + ((##fx-? x) + => (lambda ((x :- :fixnum)) => :fixnum + (writer.write-nonnegative-fixnum-with-base writer x alphabet width))) + (else + (writer.write-nonnegative-integer-with-base writer (- x) alphabet width))) + wr))) + +(defwriter-ext (write-integer-with-base writer (x : :integer) (alphabet : :u8vector) (width : :fixnum)) + (if (>= x 0) + (writer.write-nonnegative-integer-with-base writer x alphabet width) + (do-write (wr 0) + (writer.write-minus) + (writer.write-nonnegative-integer-with-base writer (- x) alphabet width) + wr))) + +(defwriter-ext (write-fixnum-decimal (x : :fixnum)) + (writer.write-fixnum-with-base x __decimal-alphabet 1)) + +(defwriter-ext (write-fixnum-hex (x : :fixnum)) + (writer.write-fixnum-with-base x __hex-alphabet 2)) + +(defwriter-ext (write-fixnum-HEX (x : :fixnum)) + (writer.write-fixnum-with-base x __HEX-alphabet 2)) + +(defwriter-ext (write-fixnum-octal (x : :fixnum)) + (writer.write-fixnum-with-base x __octal-alphabet 3)) + +(defwriter-ext (write-fixnum-binary (x : :fixnum)) + (writer.write-fixnum-with-base x __binary-alphabet 1)) + +(defsyntax-case __buffer-format! () + ((_ buf components ...) + (with-identifier (wr '$wr) + (let loop ((rest #'(components ...)) + (ins [])) + (syntax-case rest () + ((str rest ...) + (stx-string? #'str) + (with-syntax (((char ...) (string->list (stx-e #'str)))) + (loop #'(char ... rest ...) ins))) + ((char rest ...) + (stx-char? #'char) + (with-syntax ((int (char->integer (stx-e #'char)))) + (loop #'(u8: int rest ...) ins))) + ((u8: u8 rest ...) + (loop #'(rest ...) + (cons + #'(begin + (##u8vector-set! buf wr u8) + 1) + ins))) + ((decimal: uint rest ...) + (loop #'(rest ...) + (cons + #'(let loop ((decimal uint) (offset wr)) => :fixnum + (if (fx< decimal 10) + (begin + (##u8vector-set! buf offset (fx+ #x30 decimal)) + 1) + (let* ((q (fx/ decimal 10)) + (r (fx% decimal 10))) + (let (rwr (loop q)) + (##u8vector-set! buf offset (fx+ #x30 r)) + (fx+ rwr 1))))) + ins))) + (() + (with-syntax (((ins ...) (reverse! ins)) + (offset wr)) + #'(begin + (do-write (wr 0) + ins ... + (##u8vector-set! buf wr 0)))))))))) diff --git a/src/std/format/reader.ss b/src/std/format/reader.ss new file mode 100644 index 0000000000..08d2e4d7e3 --- /dev/null +++ b/src/std/format/reader.ss @@ -0,0 +1,12 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; object reader +(import :gerbil/runtime/mop + :std/interface + :std/io/interface + :std/io/bio/api + :std/serde/scan + ./env + ./ioutil + ./io) +(export #t) diff --git a/src/std/format/string.ss b/src/std/format/string.ss new file mode 100644 index 0000000000..3a3a00360e --- /dev/null +++ b/src/std/format/string.ss @@ -0,0 +1,44 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; string output +(import :std/io/interface + :std/io/bio/api + ./env + ./ioutil + ./io) +(export #t) + +(interface Stringer + (to-string) => :string) + +(def (to-string obj) => :string + (__object-to-string obj)) + +(def (format-object-to-string obj + buffer: (buffer-size : :fixnum := very-small-buffer-size) + env: (env : FormatEnv := (format-env))) + (let (env (format-environment)) + (using (writer (open-buffered-writer #f buffer-size) :- BufferedWriter) + (writer.format obj env) + (get-buffer-output-string-utf8 writer)))) + +(defwriter-ext (format-to-string writer obj (env : FormatEnv)) + (writer.write-string/quote (to-string obj) env)) + +(defcall-interface-method/fallback Stringer to-string + (__object-to-string obj) + (lambda (obj) + (fomat-object-to-string obj)) + :- :string) + +(defmethod {to-string :sting} + identity + interface: Stringer) + +(defmethod {to-string :symbol} + ##symbol->to-string + interface: Stringer) + +(defmethod {to-string :keyword} + keyword->to-string + interface: Stringer) diff --git a/src/std/format/writer.ss b/src/std/format/writer.ss new file mode 100644 index 0000000000..b0f1d483c9 --- /dev/null +++ b/src/std/format/writer.ss @@ -0,0 +1,597 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; object writer +(import :gerbil/runtime/mop + :gerbil/runtime/interface + :gerbil/runtime/hash + :std/error + :std/interface + :std/object + :std/io/interface + :std/io/bio/api + :std/serde/scan + :std/serde/serialize + ./env + ./ioutil + ./io) +(export #t) + +(cond-expand + (,(compilation-target? C) + (import :std/ffi) + (C-include ""))) + +;;; base +(defwriter-ext (format-object-begin writer (klass : :class) (env : FormatEnv)) + (do-write (wr 0) + (writer.write-sharp) + (writer.write-lbrace) + (writer.format-object-type klass env) + wr)) + +(defwriter-ext (format-object-end writer (env : FormatEnv)) + (writer.write-rbrace)) + +(defwriteer-ext (format-object-type-full (klass : :class) (env : FormatEnv)) + (do-write (wr 0) + (writer.write-symbol/quote klass.name) + (writer.write-colon) + (writer.write-sharp) + (writer.write-colon) + (writer.write-symbol/quote klass.id) + wr)) + +(defwriter-ext (format-object-type writer (klass : :class) (env : FormatEnv)) + (do-format-style format-object-type env.opt + (writer.format-object-type-full klass env) + (writer.write-symbol/quote klass.name))) + +;; standard classes +(defobject-writer :class (format-class writer klass env) + (do-write (wr 0) + (writer.format-object-begin (class-type klass) env) + (writer.write-space) + (writer.format-object-type klass env) + (writer.format-object-end env) + wr)) + +;; standard objects +(defobject-writer :object (format-object writer obj env) + (let (klass (object-class obj)) + (do-write (wr 0) + (writer.format-object-begin klass env) + (writer.format-object-slots obj klass env) + (writer.format-object-end env) + wr))) + +(defwriter-ext (format-object-slots writer obj (klass : :class) (env : FormatEnv)) + (let (len (##structure-length obj)) + (if (fx> len 1) + (cond + ((fx= env.opt.style FORMAT-DEBUG) + (let (slots (vector->list (class-type-slot-vector klass) 1)) + (let loop ((rest slots) (offset 1) (wr 0)) + (match rest + ([slot . rest] + (using (slot :- :symbol) + (do-write (wr wr) + (writer.format-slot obj slot offset env) + (loop rest (fx+ offset 1) wr)))) + (else wr))))) + ((class-type-printable-slots klass) + ;; print spec: [[slot . offset] ...] + => (lambda (lst) + (let loop ((rest lst) (wr 0)) + (match rest + ([print-spec . rest] + (using ((spec print-spec :- :pair) + (slot (car spec) :- :symbol) + (offset (cdr spec) :- :fixnum)) + (do-write (wr wr) + (wrier.format-slot obj slot offset env) + (loop rest wr)))) + (else wr))))) + (else 0)) + 0))) + +(defwriter-ext (format-field writer (slot : :symbol) obj (env : FormatEnv)) + (do-write (wr 0) + (writer.write-space) + (writer.write-symbol/quote slot) + (writer.write-colon) + (writer.write-space) + (writer.format obj env) + wr)) + +(defwriter-ext (format-slot writer (obj : :object) (slot : :symbol) (offset : :fixnum) (env : FormatEnv)) + (writer.format-field slot (unchecked-field-ref obj offset) env)) + +(defobject-writer interface-instance (format-interface-instance writer inst env) + (do-write (wr 0) + (writer.format-object-begin (object-class inst) env) + (writer.write-space) + (writer.format inst.object env) + (writer.format-object-end env))) + +(defobject-writer HashTable (format-hash-table writer ht env) + (do-write (wr 0) + (writer.format-object-begin (object-class ht) env) + (let (wr-body 0) + (writer.write-lparen) + (ht.for-each + (lambda (k v) + (do-write (wr 0) + (writer.write-space) + (writer.write-lparen) + (writer.format k env) + (writer.write-space) + (writer.write-dot) + (writer.write-space) + (writer.format v env) + (writer.write-rparen) + (set! wr-body (fx+ wr-body wr))))) + wr-body) + (writer.write-rparen) + (writer.format-object-end env) + wr)) + +;; builtin objects +(defobject-writer :t (format-t writer writer obj env) + (using (klass (class-of obj) :- :class) + (do-write (wr 0) + (writer.format-object-begin klass env) + (writer.format-object-end env) + wr))) + +(defobject-writer :char (format-char writer char env) + (do-format-style format-char env.opt + (do-write (wr 0) + (writer.write-sharp) + (writer.write-backslash) + (let (aint (char->integer char)) + (try-ascii-special-char aint + (lambda ((asci :- ascii-special-char-info)) => :fixnum + (if asci.char-esc? + (cond + ((and env.opt.ascii-char-std asci.char-std-name) + (writer.write-symbol asci.char-std-name)) + (asci.char-scm-name + (writer.write-symbol asci.char-scm-name)) + (else + (do-write (wr wr) + (writer.write-u8 (@char->int #\x)) + (writer.write-nonnegative-fixnum-hex aint #f) + wr))) + (writer.write-char char))) + (writer.write-char char))) + wr) + (writer.write-char char))) + +(defobject-writer :true (format-true atom env) + (do-write (wr 0) + (writer.write-sharp) + (writer.write-u8 (@char->int #\t)) + wr)) + +(defobject-writer :false (format-false atom env) + (do-write (wr 0) + (writer.write-sharp) + (writer.write-u8 (@char->int #\f)) + wr)) + +(defsyntax-case do-write-special () + ((_ writer sym) + (with-identifier (writer.write-sharp #'writer #'writer ".write-sharp") + #'(do-write (wr 0) + (writer.write-sharp) + (writer.write-bang) + (writer.write-interned-symbol 'sym) + wr)))) + +(defsyntax-case defspecial-object-writer () + ((_ klass name) + (with-identifiers ((writer '$writer) + (:klass #'klass ":" #'klass) + (format-it #'klass "format-special-" #'name)) + #'(defobject-writer :klass (format-it writer atom env) + (do-write-special writer name)))) + ((_ klass) + #'(defspecial-object-writer klass klass))) + +(defspecial-object-writer special unknown) +(defspecial-object-writer eof) +(defspecial-object-writer void) +(defspecial-object-writer unbound) +(defspecial-object-writer unbound2) +(defspecial-object-writer optional) +(defspecial-object-writer rest) +(defspecial-object-writer key) + +(defsyntax-case do-write-integer () + ((_ writer int env write-method) + (with-identifiers ((env.opt #'env #'env ".opt") + (env.opt.integer-prefix #'env #'env ".opt.integer-prefix") + (env.opt.integer-alphabet #'env #'env ".opt.integer-alphabet") + (env.opt.integer-width #'env #'env ".opt.integer-width") + (writer.write-sharp #'writer #'writer ".write-sharp") + (writer.write-u8 #'writer #'writer ".write-u8") + (writer.write-method #'writer #'writer "." #'write-method)) + #'(do-format-style write-method env.opt + (if env.opt.integer-prefix + (do-write (wr 0) + (writer.write-sharp) + (writer.write-u8 env.opt.integer-prefix) + (write.write-method int env.opt.integer-alphabet env.opt.integer-width) + wr) + (writer.write-method int env.opt.integer-alphabet env.opt.integer-width)) + (writer.write-method int env.opt.integer-alphabet env.opt.integer-width))))) + +(defobject-writer :bignum (format-bignum writer int env) + (do-write-integer writer int env write-integer-with-base)) + +(defobject-writer :fixnum (format-fixnum writer int env) + (do-write-integer writer int env write-fixnum-with-base)) + +(defobject-writer :ratnum (format-ratnum writer num env) + (do-write (wr 0) + (writer.format (##ratnum-numerator num) env) + (writer.write-slash) + (writer.format (##ratnum-denominator num) env) + wr)) + +(defobject-writer :flonum (format-flonum writer num env) + (cond + ((##flfinite? num) + ;; not nan or infinity + (writer.format-finite-flonum num env)) + ((##flinfinite? num) + (if (##flnegative? num) + (writer.write (@string->utf8 "-inf.0")) + (writer.write (@string->utf8 "+inf.0")))) + (else ; nan, has no sign (always positive) + (writer.write (@string->utf8 "+nan.0"))))) + +(cond-expand + (,(compilation-target? C) + (defobject-cache __flonum-buffer :u8vector (cut make-u8vector 256) void) + + (def (__flonum-buffer.get-fmt precision conversion) => :u8vector + (let (buf (__flonum-buffer.get)) + (if precision + (__buffer-format! buf "%." decimal: precision u8: conversion) + (__buffer-format! buf #\% u8: conversion)) + buf)) + + (def-C (__print-flonum (output-buf :- :u8vector) + (output-size :- :fixnum) + (nfmt-buf :- :u8vector) + (num : :flonum)) + => :fixnum + "___FIX(snprintf(___CAST (char*, ___BODY_AS (___ARG1, ___tSUBTYPED)), ___INT(___ARG2), ___CAST (char*, ___BODY_AS (___ARG3, ___tSUBTYPED)), ___F64UNBOX(___ARG4)))")) + +(defwriter-ext (format-finite-flonum writer num (env : FormatEnv)) + (cond-expand + (,(compilation-target? C) + (let* ((fmt-buf (__flonum-buffer.get-fmt env.opt.flonum-precision env.opt.flonum-conversion)) + (str-buf (__flonum-buffer.get)) + (nwr (__print-flonum str-buf (##u8vector-length str-buf) fmt-buf num))) + (if (fx> nwr 0) + (begin0 + (writer.write str-buf 0 nwr) + (__flonum-buffer.put! str-buf) + (__flonum-buffer.put! fmt-buf)) + (raise-io-error format-finite-flonum "failed to format flonum" error-code: nwr)))) + (else + ;; TODO we should write an efficient implementation of this, following + ;; feeley's in gambit implementation to avoid the intermediate string + ;; allocation and follow natively the precision. + ;; it is ok for now, we can revisit if it becomes a problem + ;; in production + (syntax-error "unsupported compilation target")))) + +(defobject-writer :cpxnum (format-cpxnum writer num env) + (let ((real (cpxnum-real num)) + (imag (cpxnum-imag num))) + (do-write (wr 0) + (if (zero? real) + 0 + (do-write (wr wr) + (writer.format real env) + (writer.write-plus) + wr)) + (writer.write-u8 (@char->int #\i)) + (writer.format imag env) + wr))) + +(defobject-writer :symbol (format-symbol writer sym env) + (do-format-style format-symbol env.opt + (writer.write-symbol/quote sym) + (writer.write-symbol sym))) + +(defobject-writer :keyword (format-keyword writer key env) + (do-format-style format-keyword env.opt + (writer.write-keyword/quote sym) + (writer.write-keyword sym))) + +(defobject-writer :list (format-list writer lst env) + (do-write (wr 0) + (writer.write-lparen) + (let loop ((rest lst) (space? #f) (wr wr)) + (match rest + ([hd . tl] + (cond + ((pair? tl) + (do-write (wr wr) + (if space? + (writer.write-space) + 0) + (writer.format hd env) + (loop tl #t wr))) + ((null? tl) + (do-write (wr wr) + (writer.format hd env) + wr)) + (else + (do-write (wr wr) + (if space? + (writer.write-space) + 0) + (writer.format hd env) + (writer.write-space) + (writer.write-dot) + (writer.write-space) + (writer.format rest env) + wr)))) + (else wr))) + (writer.write-rparen) + wr)) + +(defobject-writer :string (format-string writer str env) + (do-format-style format-string env.opt + (writer.write-string/quote str) + (writer.write-string str))) + +(defsyntax-case do-write-vector () + ((_ writer v env prefix left right v-length v-ref type format-method) + (with-identifiers ((writer.write #'writer #'writer ".write") + (writer.write-sharp #'writer #'writer ".write-sharp") + (writer.write-left #'writer #'writer ".write-" #'left) + (writer.write-right #'writer #'writer ".write-" #'right) + (writer.format-method #'writer #'writer "." #'format-method)) + (with-syntax ((write-prefix (if (stx-e #'prefix) + #'(writer.write prefix) + 0))) + #'(do-write (wr 0) + (writer.write-sharp) + write-prefix + (writer.write-left) + (let* ((len (:- (v-length v) :fixnum)) + (len-1 (fx- len 1))) + (let loop ((i 0) (wr wr)) => :fixnum + (cond + ((fx< i len-1) + (do-write (wr wr) + (writer.format-method (:- (v-ref v i) type) env) + (writer.write-space) + (loop (fx+ i 1) wr))) + ((fx< i len) + (do-write (wr wr) + (writer.format-method (:- (v-ref v i) type) env) + wr)) + (else 0)))) + (writer.write-right) + wr))))) + +(defobject-writer :vector (format-vector writer v env) + (do-write-vector writer v env + #f + lparen + rparen + ##vector-length + ##vector-ref + :t + format)) + +(defobject-writer :u8vector (format-u8vector writer v env) + (do-write-vector writer v env + (@string->utf8 "u8") + lparen + rparen + ##u8vector-length + ##u8vector-ref + :fixnum + format-fixnum)) + +(defobject-writer :u16vector (format-u16vector writer v env) + (do-write-vector writer v env + (@string->utf8 "u16") + lparen + rparen + ##u16vector-length + ##u16vector-ref + :fixnum + format-fixnum)) + +(defobject-writer :u32vector (format-u32vector writer v env) + (do-write-vector writer v env + (@string->utf8 "u32") + lparen + rparen + ##u32vector-length + ##u32vector-ref + :integer + format-integer)) + +(defobject-writer :u64vector (format-u64vector writer v env) + (do-write-vector writer v env + (@string->utf8 "u64") + lparen + rparen + ##u64vector-length + ##u64vector-ref + :integer + format-integer)) + +(defobject-writer :s8vector (format-s8vector writer v env) + (do-write-vector writer v env + (@string->utf8 "s8") + lparen + rparen + ##s8vector-length + ##s8vector-ref + :fixnum + format-fixnum)) + +(defobject-writer :s16vector (format-s16vector writer v env) + (do-write-vector writer v env + (@string->utf8 "s16") + lparen + rparen + ##s16vector-length + ##s16vector-ref + :fixnum + format-fixnum)) + +(defobject-writer :s32vector (format-s32vector writer v env) + (do-write-vector writer v env + (@string->utf8 "s32") + lparen + rparen + ##s32vector-length + ##s32vector-ref + :integer + format-integer)) + +(defobject-writer :s64vector (format-s64vector writer v env) + (do-write-vector writer v env + (@string->utf8 "s64") + lparen + rparen + ##s64vector-length + ##s64vector-ref + :integer + format-integer)) + +(defobject-writer :f32vector (format-f32vector writer v env) + (do-write-vector writer v env + (@string->utf8 "f32") + lparen + rparen + ##f32vector-length + ##f32vector-ref + :flonum + format-flonum)) + +(defobject-writer :f64vector (format-f64vector writer v env) + (do-write-vector writer v env + (@string->utf8 "f64") + lparen + rparen + ##f64vector-length + ##f64vector-ref + :flonum + format-flonum)) + +(defobject-writer :values (format-values writer v env) + (do-write-vector writer v env + #f + lbracket + rbracket + ##values-length + ##values-ref + :t + format)) + +(defobject-writer :box (format-box writer v env) + (do-write (wr 0) + (writer.write-sharp) + (writer.write-ampersand) + (writer.format (unbox v) env) + wr)) + +(defobject-writer :continuation (format-continuation writer cont env) + (let ((all-frames? + (do-format-style format-contination env.opt + #f #f #t)) + (max-frames (or env.opt.max-elements ##max-fixnum))) + (do-write (wr 0) + (writer.write-object-begin continuation::t env) + (writer.write-space) + (writer.write-lparen) + (let loop ((cont (##continuation-first-frame cont all-frames?)) + (last #f) + (depth 0) + (space? #f) + (wr wr)) + => :fixnum + (cond + ((and cont (##fx< depth max-frames)) + (let (creator (##continuation-creator cont)) + (if (and creator (eq? last creator)) + (loop (##continuation-next-frame cont all-frames?) + last + (fx+ depth 1) + space? + wr) + (do-write (wr wr) + (if space? + (writer.write-space) + 0) + (cond + ((and creator (##procedure-name creator)) + => (lambda (name) + => :fixnum + (writer.format name env))) + (else + (writer.write-interned-symbol '???)))) + (loop (##continuation-next-frame cont all-frames?) + creator + (fx+ depth 1) + #t + wr)))) + (cont + (do-write (wr wr) + (if space? + (writer.write-space) + 0) + (writer.write-interned-symbol '...) + wr)) + (else wr))) + (writer.write-rparen) + wr))) + +(defobject-writer :promise (format-promise writer p env) + (writer.format (force p) env)) + +(defobject-writer :procedure (format-procedure writer proc env) + (do-write (wr 0) + (writer.write-object-begin procedure::t env) + (writer.write-space) + (writer.format (##procedure-name proc) env) + (writer.write-object-end env) + wr)) + +(defobject-writer :foreign (format-foreign writer obj env) + (do-write (wr 0) + (writer.write-object-begin foreign::t env) + (writer.write-space) + (writer.format (##foreign-tags obj) env) + (writer.write-object-end env) + wr)) + +(defobject-writer :structure (format-builtin-structure writer obj env) + (let (klass (class-of obj)) + (do-write (wr 0) + (writer.format-object-begin klass env) + (writer.write-space) + (writer.format-object-slots obj klass env) + (writer.format-object-end env) + wr))) + +(defobject-writer :time (format-builtin-time writer t env) + (do-write (wr 0) + (writer.write-object-begin time::t env) + (writer.write-space) + (writer.format (##time->seconds t) env) + (writer.write-object-end env) + wr)) diff --git a/src/std/interface.ss b/src/std/interface.ss index 71cf04ba40..bbbcbcfdc4 100644 --- a/src/std/interface.ss +++ b/src/std/interface.ss @@ -1,10 +1,114 @@ ;;; -*- Gerbil -*- ;;; © vyzo -;;; backwards compatibilty shim; will be removed for v0.19 +;;; interface utilities (import :gerbil/runtime/interface) -(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?) +(export #t) + +(defsyntax (@interface-descriptor stx) + (syntax-case stx () + ((_ Interface) + XXX))) + +(defsyntax (@interface-method-index stx) + (syntax-case stx () + ((_ Interface method) + XXX + ))) + +(defrule (@apply-prototype-method method-index arg ...) + (lambda (descriptor prototype receiver) + (if prototype + (let () + (declare (not safe)) + (let (method + (##unchecked-structure-ref + prototype + method-index + #f 'method-name)) + (method receiver arg ...))) + (abort! + (raise-cast-error 'apply-prototype-method "cannot create interface prototype" + interface: descriptor object: receiver))))) + +(defrule (@apply-prototype-method/fallback method-index fallback arg ...) + (lambda (descriptor prototype receiver) + (if prototype + (let () + (declare (not safe)) + (let (method + (##unchecked-structure-ref + prototype + method-index + #f 'method-name)) + (method receiver arg ...))) + (fallback receiver arg ...)))) + +(defrule (@apply-prototype-method/object arg ...) + (lambda (obj) + (declare (not safe)) + (let* ((receiver (&interface-instance-object obj)) + (method + (##unchecked-structure-ref + prototype + method-index + #f 'method-name))) + (method receiver arg ...)))) + +;; TODO extract interface method signature and check/set argument contracts +(defrule (@call-interface-method Interface method-name obj arg ...) + (with-prototype (@interface-descriptor Interface) + obj + (@apply-prototype-method + (@interface-method-index Interface method) + arg ...) + (@apply-prototype-method/object + (@interface-method-index Interface method) + arg ...))) + +;; TODO extract interface method signature and check/set argument contracts +(defrules defcall-interface-method () + ((_ Interface method (proc obj arg ...)) + (def (proc obj arg ...) + (@cast (@interface-descriptor Interface) + obj create-prototype + (@apply-prototype-method + (@interface-method-index Interface method) + arg ...) + (@apply-prototype-method/object + (@interface-method-index Interface method) + arg ...)))) + ((_ Interface method (proc obj arg ...)) ~ Type) + (def (proc obj arg ...) => Type + (~ (@cast (@interface-descriptor Interface) + obj create-prototype + (@apply-prototype-method + (@interface-method-index Interface method) + arg ...) + (@apply-prototype-method/object + (@interface-method-index Interface method) + arg ...)) + Type))) + +;; TODO extract interface method signature and check/set argument contracts +(defrules defcall-interface-method/fallback () + ((_ Interface Interface method-name (proc obj arg ...) fallback) + (def (proc obj arg ...) + (@cast (@interface-descriptor Interface) + obj try-create-prototype + (@apply-prototype-method/fallback + (@interface-method-index Interface method) + fallback arg ...) + (@apply-prototype-method/object + (@interface-method-index Interface method) + arg ...)))) + ((_ Interface Interface method-name (proc obj arg ...) fallback ~ Type) + (def (proc obj arg ...) => Type + (~ (@cast (@interface-descriptor Interface) + obj try-create-prototype + (@apply-prototype-method/fallback + (@interface-method-index Interface method) + fallback arg ...) + (@apply-prototype-method/object + (@interface-method-index Interface method) + arg ...)) + Type)))) diff --git a/src/std/io/bio/api.ss b/src/std/io/bio/api.ss index 641e6fd0e8..1c4d4ff89b 100644 --- a/src/std/io/bio/api.ss +++ b/src/std/io/bio/api.ss @@ -19,8 +19,9 @@ (import: ./inline) (import: ./util)) -(def default-buffer-size (expt 2 15)) ; 32K -(def default-small-buffer-size 4096) +(def default-buffer-size 32768) +(def small-buffer-size 4096) +(def very-small-buffer-size 256) (def (make-u8vector-buffer buffer-or-size) (cond @@ -91,6 +92,11 @@ ([chunk] (:- chunk :u8vector)) (else (u8vector-concatenate chunks))))) +(def (get-buffer-output-string-utf8 wr) + => :string + XXX + ) + (defreader-ext (read-delimited reader read-value) (let* ((len (reader.read-varuint)) (delimited (reader.delimit len))) diff --git a/src/std/io/bio/util.ss b/src/std/io/bio/util.ss index 21f5965958..6368b32555 100644 --- a/src/std/io/bio/util.ss +++ b/src/std/io/bio/util.ss @@ -28,14 +28,12 @@ (syntax-case stx () ((_ (method reader . args) body ...) (with-syntax ((reader-method (stx-identifier #'method "BufferedReader-" #'method)) - (unchecked-method (stx-identifier #'method "&BufferedReader-" #'method))) + (unchecked-method (stx-identifier #'method "&BufferedReader-" #'method)) + (raw-method (stx-identifier #'method "__BufferedReader-") #'method))) #'(begin - (def (reader-method reader . args) - (using (reader : BufferedReader) - body ...)) - (def (unchecked-method reader . args) - (using (reader :- BufferedReader) - body ...))))))) + (def (reader-method (reader : Reader) . args) + body ...) + (def unchecked-method raw-method))))) (defsyntax (defwriter-ext stx) (syntax-case stx () @@ -50,15 +48,13 @@ (defsyntax (defwriter-ext* stx) (syntax-case stx () ((_ (method writer . args) body ...) - (with-syntax ((writer-method (stx-identifier #'method "BufferedWriter-" #'method)) - (unchecked-method (stx-identifier #'method "&BufferedWriter-" #'method))) + (with-syntax ((writer-method (stx-identifier #'method "BufferedWriter-" #'method)) + (unchecked-method (stx-identifier #'method "&BufferedWriter-" #'method)) + (raw-method (stx-identifier #'method "__BufferedWriter-" #'method))) #'(begin - (def (writer-method writer . args) - (using (writer : BufferedWriter) - body ...)) - (def (unchecked-method writer . args) - (using (writer :- BufferedWriter) - body ...))))))) + (def (writer-method (writer : BufferedWriter) . args) => :fixnum + body ...) + (def unchecked-method raw-methopd)))))) ;; NB: Numbers are read and written in "network order", i.e. big endian diff --git a/src/std/io/strio/util.ss b/src/std/io/strio/util.ss index ee9ef8bba9..6c8cc920af 100644 --- a/src/std/io/strio/util.ss +++ b/src/std/io/strio/util.ss @@ -24,14 +24,13 @@ (syntax-case stx () ((_ (method reader . args) body ...) (with-syntax ((reader-method (stx-identifier #'method "BufferedStringReader-" #'method)) - (unchecked-method (stx-identifier #'method "&BufferedStringReader-" #'method))) + (unchecked-method (stx-identifier #'method "&BufferedStringReader-" #'method)) + (raw-method (stx-identifier #'method "__BufferedStringReader-" #'method))) #'(begin - (def (reader-method reader . args) - (using (reader : BufferedStringReader) - body ...)) - (def (unchecked-method reader . args) - (using (reader :- BufferedStringReader) - body ...))))))) + (def (reader-method (reader : BufferedStringReader) . args) + body ...) + (def unchecked-method + __raw-method)))))) (defsyntax (defstring-writer-ext stx) (syntax-case stx () @@ -47,14 +46,13 @@ (syntax-case stx () ((_ (method writer . args) body ...) (with-syntax ((writer-method (stx-identifier #'method "BufferedStringWriter-" #'method)) - (unchecked-method (stx-identifier #'method "&BufferedStringWriter-" #'method))) + (unchecked-method (stx-identifier #'method "&BufferedStringWriter-" #'method)) + (raw-method (stx-identifier #'method "__BufferedStringWriter-" #'method))) #'(begin - (def (writer-method writer . args) - (using (writer : BufferedStringWriter) - body ...)) - (def (unchecked-method writer . args) - (using (writer :- BufferedStringWriter) - body ...))))))) + (def (writer-method (writer : BufferedStringWriter) . args) => :fixnum + body ...) + (def unchecked-method + raw-method)))))) (defstring-reader-ext (read-line reader (sep #\newline) (include-sep? #f) (max-chars #f)) (let* ((separators diff --git a/src/std/log/compress.ss b/src/std/log/compress.ss new file mode 100644 index 0000000000..2c946e879c --- /dev/null +++ b/src/std/log/compress.ss @@ -0,0 +1,12 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; log file compression +(import :std/error) +(export #t) + +(def (compress-gz (file : :string)) => :string + (let* ((cmd (string-append "gzip " file)) + (result (shell-command cmd #t))) + (unless (fxzero? (car result)) + (raise-io-error compress-gz "error compressing log file" command: cmd)) + (string-append file ".gz"))) diff --git a/src/std/log/console.ss b/src/std/log/console.ss new file mode 100644 index 0000000000..42e3f3d6cc --- /dev/null +++ b/src/std/log/console.ss @@ -0,0 +1,42 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; console logging +(import ./interface + ./level + ./format) +(export #t) + +(def __console + (delay-atomic + (LogSink + (PortLogSink + 'system/console + (default-log-level) + ##console-port + record->string + (lambda (record) #t))))) + +(def (console-log-sink) => LogSink + (:- (force __console) + LogSink)) + +(defstruct (PortLogSink BasicLogger) + ((port :- :port) + (format :- :procedure) + (accept :- :procedure))) + +(defmethod {start! PortLogSink} + void + interface: LogSink) + +(defmethod {stop! PortLogSink} + void + interface: LogSink) + +(defmethod {log PortLogSink} + (lambda (self record) + (when (self.accept record) + (write-string (self.format record) self.port) + (newline self.port) + (force-output self.port))) + interface: Logger) diff --git a/src/std/log/default.ss b/src/std/log/default.ss new file mode 100644 index 0000000000..124b0dea0b --- /dev/null +++ b/src/std/log/default.ss @@ -0,0 +1,36 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; default process loggeers +(import :std/time + ./interface + ./level + ./macros + ./user) + +(def __default + (delay-atomic + (get-logger 'user (default-log-level)))) + +(def (default-logger) => Logger + (:- (force __default) Logger)) + +(defrule (default-logger-level) + (using (log (default-logger) :- Logger) + (log.level))) + +(defrule (default-logger-log record) + (using (log (default-logger) :- Logger) + (log.log record))) + +(deflogr log.critical CRITICAL name current-time-coarse default-logger-level default-logger-log) +(deflogf log.criticalf CRITICAL name current-time-coarse default-logger-level default-logger-log) +(deflogr log.error ERROR name current-time-coarse default-logger-level default-logger-log) +(deflogf log.errorf ERROR name current-time-coarse default-logger-level default-logger-log) +(deflogr log.warn WARN name current-time-coarse default-logger-level default-logger-log) +(deflogf log.warnf WARN name current-time-coarse default-logger-level default-logger-log) +(deflogr log.info INFO name current-time-coarse default-logger-level default-logger-log) +(deflogf log.infof INFO name current-time-coarse default-logger-level default-logger-log) +(deflogr log.debug DEBUG name current-time-coarse default-logger-level default-logger-log) +(deflogf log.debugf DEBUG name current-time-coarse default-logger-level default-logger-log) +(deflogr log.verbose VERBOSE name current-time-coarse default-logger-level default-logger-log) +(deflogf log.verbosef VERBOSE name current-time-coarse default-logger-level default-logger-log) diff --git a/src/std/log/format.ss b/src/std/log/format.ss new file mode 100644 index 0000000000..9ac9c347a8 --- /dev/null +++ b/src/std/log/format.ss @@ -0,0 +1,88 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; log record formatting +(import :std/object + :std/io/interface + :std/io/bio/api + :std/format/env + :std/format/io + :std/format/ioutil + :std/format/string + :std/format/object + :std/text/json/io + :std/misc/alist + ./interface + ./level) +(export #t) + +(def __timestamp-format-env + (FormatEnv + (FormatSettings + allow-cycles?: #f + check-cycles?: #f + compress?: #f + display?: #t + precision: 3 + base: 10))) + +(def __log-line-format-settings + (FormatSettings + allow-cycles?: #t + check-cycles?: #t + compress?: #f + display?: #f + precision: 3 + base: 10)) + +(def (make-log-line-format-env) => FormatEnv + (format-environment __log-line-format-settings)) + +(def (reset-log-line-format-env! (env : FormatEnv)) + (when env.scan + (reset-scan-env! env.scan))) + +(def (make-log-json-env) => JSONEnv + XXX + ) + +(def (reset-log-json-env! (env : JSONEnv)) + XXX + ) + +(defobject-cache __format-env FormatEnv + make-log-line-format-env + reset-log-line-format-env!) +(defobject-cache __json-env JSONEnv + make-log-json-env + reset-log-json-env!) + +(def (record->string (record : Record)) => :string + (using (writer (open-buffered-writer #f very-small-buffer-size) :- BufferedWriter) + (log-record writer record) + (get-buffer-output-string-utf8 writer))) + +(def (log-record (writer :- BufferedWriter) (record :- Record)) => :fixnum + (let* ((env (__format-env.get)) + (wr (writer.format-record-line record env)) + (wr (fx+ wr (writer.write-newline)))) + (__format-env.put! env) + wr)) + +(def (log-record-json (writer :- BufferedWriter) (record :- Record)) => :fixnum + (let* ((env (__json-env.get)) + (wr (writer.write-json record env)) + (wr (fx+ wr (writer.write-newline)))) + (__json-env.put! env) + wr)) + +(defwriter-ext (format-record-line writer record env) + (let* ((wr (writer.format record.ts __timestamp-format-env)) + (wr (fx+ wr (writer.write-space))) + (wr (fx+ wr (writer.write-string (log-level->string record.level)))) + (wr (fx+ wr (writer.write-space))) + (wr (fx+ wr (writer.write-symbol record.source))) + (wr (fx+ wr (writer.write-space))) + (wr (fx+ wr (writer.write-string record.message))) + (wr (fx+ wr (writer.write-space))) + (wr (fx+ wr (writer.format (walist->list record.data) env)))) + wr)) diff --git a/src/std/log/interface.ss b/src/std/log/interface.ss new file mode 100644 index 0000000000..06c706df69 --- /dev/null +++ b/src/std/log/interface.ss @@ -0,0 +1,45 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; logging abstractions +(import :std/time + :std/misc/alist) +(export #t) + +;; log records +(defstruct Record + ((ts : Time) + (level : :fixnum) + (source : :symbol) + (msg : :string) + (data : PureAList)) + final: #t + transparent: #t) + +;; logger interface +(interface Logger + (name) => :symbol + (level) => :fixnum + (set-level! (level : :fixnum)) => :void + (log (obj : Record)) => :void) + +;; log sink interface +(interface (LogSink Logger) + (start!) + (stop!)) + +;; logger base class +(defstruct BasicLogger + ((name :- :symbol) + (level :- :fixnum))) + +(defmethod {name BasicLogger} + &BasicLogger-name + interface: Logger) + +(defmethod {level BasicLoger} + &BasicLogger-level + interface: Logger) + +(defmethod {set-level! BasicLogger} + &BasicLogger-level-set! + interface: Logger) diff --git a/src/std/log/level.ss b/src/std/log/level.ss new file mode 100644 index 0000000000..320a2007c3 --- /dev/null +++ b/src/std/log/level.ss @@ -0,0 +1,115 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; predefined log levels +(import :std/alist) +(export #t) + +;; predefined log levels +(def CRITICAL -1) +(def ERROR 0) +(def WARN 1) +(def INFO 2) +(def DEBUG 3) +(def VERBOSE 4) + +(def __level-map + (hash + ("CRITICAL" CRITICAL) + ("ERROR" ERROR) + ("WARN" WARN) + ("INFO" INFO) + ("DEBUG" DEBUG) + ("VERBOSE" VERBOSE) + (CRITICAL CRITICAL) + (ERROR ERROR) + (WARN WARN) + (INFO INFO) + (DEBUG DEBUG) + (VERBOSE VERBOSE))) + +(def (string->log-level (str : :string)) => :fixnum + (:- (hash-ref __level-map str VERBOSE) :fixnum)) + +(def __level-vector + (vector + "CRITICAL" + "ERROR" + "WARN" + "INFO" + "DEBUG" + "VERBOSE")) + +(def (log-level->string (level : :fixnum)) => :string + (cond + ((fx< CRITICAL) "CRITICAL") + ((fx> VERBOSE) "VERBOSE") + (else + (let () + (declare (not safe)) + (:- (vector-ref __level-vector (fx1+ level)) :string))))) + +(def __default-level 0) +(def __user-sources (hash-eq)) +(def __user-subsystems (wanullq)) + +;; level string format +;; (:((/*)/[*]):)* +(def (__init-log-levels! (lvl : string)) + (def (set-default! level) + (cond + ((hash-get __level_map level) + => (cut set! __default_log-level <>)))) + (def (set-user! source level) + (let (level (hash-ref __level_map level __default-level)) + (if (string-suffix? "/*" source) + (set! __user-subsystems + (wacons __user-subsystems + (substring source 0 (fx1- (string-length source))) + level)) + (hash-put! __user-sources + (string->symbol source) + level)))) + (cond + ((string-index lvl #\:) + => (lambda (sep) + (set-default! (substring lvl sep (string-length lvl))) + (let loop ((start (fx1+ sep))) + (cond + ((string-index lvl #\: start) + => (lambda (sep) + (let* ((source (substring lvl start sep)) + (start (fx1+ sep))) + (cond + ((string-index lvl #\: start) + => (lambda (sep) + (let* ((level (substring lvl start sep)) + (start (fx1+ sep))) + (set-user! source level) + (cond + ((string-index lvl #\: start) + => (lambda (sep) (loop (fx+ sep 1)))))))))))))))) + (else + (set-default! lvl))) + +(def __default-log-levels! + (delay-atomic + (let (lvl (getenv "GERBIL_LOG_LEVEL" #f)) + (when lvl + (__init-log-levels! lvl))))) + +(def (set-default-log-levels! (lvl : string)) => void + (force __default-log-levels!) + (__init-logl-evels! lvl)) + +(def (default-log-level) => :fixnum + (force __default-log-levels!) + __default-log-level) + +(def (user-log-level (source : :symbol)) => :fixnum + (force __default-log-levels!) + (let (source-str (symbol->string source)) + (:- (cond + ((hash-get __user-log-levels source)) + ((wagetf __user-log-subsystems (cut string-prefix? <> source-str))) + (else __default-log-level)) + :fixnum))) diff --git a/src/std/log/macros.ss b/src/std/log/macros.ss new file mode 100644 index 0000000000..3adee992fd --- /dev/null +++ b/src/std/log/macros.ss @@ -0,0 +1,58 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; logging macros +(import :std/time + :std/misc/alist + :std/format + ./level + ./interface + ./user) +(export #t) + +(defsyntax (deflogger-macros stx) + (syntax-case stx () + ((_ id name get-time) + (with-syntax ((log.level (stx-identifier #'id #'id ".level")) + (log.log (stx-identifier #'id #'id ".log")) + (log.critical (stx-identifier #'id #'id ".critical")) + (log.criticalf (stx-identifier #'id #'id ".criticalf")) + (log.error (stx-identifier #'id #'id ".error")) + (log.errorf (stx-identifier #'id #'id ".errorf")) + (log.warn (stx-identifier #'id #'id ".warn")) + (log.warnf (stx-identifier #'id #'id ".warnf")) + (log.info (stx-identifier #'id #'id ".info")) + (log.infof (stx-identifier #'id #'id ".infof")) + (log.debug (stx-identifier #'id #'id ".debug")) + (log.debugf (stx-identifier #'id #'id ".debugf")) + (log.verbose (stx-identifier #'id #'id ".verbose")) + (log.verbosef (stx-identifier #'id #'id ".verbosef"))) + #'(begin + (deflogr log.critical CRITICAL name get-time log.level log.log) + (deflogf log.criticalf CRITICAL name get-time log.level log.log) + (deflogr log.error ERROR name get-time log.level log.log) + (deflogf log.errorf ERROR name get-time log.level log.log) + (deflogr log.warn WARN name get-time log.level log.log) + (deflogf log.warnf WARN name get-time log.level log.log) + (deflogr log.info INFO name get-time log.level log.log) + (deflogf log.infof INFO name get-time log.level log.log) + (deflogr log.debug DEBUG name get-time log.level log.log) + (deflogf log.debugf DEBUG name get-time log.level log.log) + (deflogr log.verbose VERBOSE name get-time log.level log.log) + (deflogf log.verbosef VERBOSE name get-time log.level log.log)))))) + +(defrule (deflogr name level source get-time get-level log-it) + (defrule (name msg arg (... ...)) + (when (fx<= level (get-level)) + (log-it + (Record (get-time) + level 'source msg + (wacollect arg ...)))))) + +(defrule (deflogf name level source) + (defrule (name fmt arg (... ...)) + (when (fx<= level (get-level)) + (log-it + (Record (get-time) + level 'source + (@format fmt arg (... ...)) + (wanull)))))) diff --git a/src/std/log/proto.ss b/src/std/log/proto.ss new file mode 100644 index 0000000000..cb669c0cee --- /dev/null +++ b/src/std/log/proto.ss @@ -0,0 +1,13 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; system logger background thread protocol +(import ./interface) +(export #t) + +(defstruct !SysLogMsg ()) +(defstruct (!STOP !SysLogMsg) (how) final: #t) +(defstruct (!UPDATE !SysLogMsg) ()) +(defstruct (!UPDATE:add-sink !UPDATE) ((sink :- LogSink)) final: #t) +(defstruct (!UPDATE:set-system-level !UPDATE) ((level :- :fixnum)) final: #t) + +(def !STOP! (!STOP 'shutdown)) diff --git a/src/std/log/rotate.ss b/src/std/log/rotate.ss new file mode 100644 index 0000000000..9260311d83 --- /dev/null +++ b/src/std/log/rotate.ss @@ -0,0 +1,173 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; file system rotating loger +(import :std/error + :std/io + :std/time + :std/misc/queue + ./interface + ./proto + ./format + ./compress) +(export #t) + +(defclass LogRotateOpt + ((dir : :string := (log-directory)) ; log directory + (file : :string := "gerbil.log") ; log base file name + (size : :integer := (expt 2 22)) ; log file size rotation trigger + (backlog : :integer := (expt 2 24)) ; aggregate backlog size + (flush : :flonum := 0.01) ; log flush interval, seconds + (compress : :procedure := compress-gz) ; file compressor procedure lambda (path) => path + (write : :procedure := log-record) ; record write procedure: lambda (BufferedWriter Record) => :fixnum + (accept : :procedure := accept-all) ; record filter procedure: lambda (Record) => :boolean + ) + final: #t) + +(defclass (LogRotateSink BasicLogger) + ((opt :- LogRotateOpts) + (mx :- :mutex) + (thread :- :thread) + (path :- :string) + (size :- :fixnum) + (backlog :- :fixnum) + (backlogq :- queue) + (file :- Writer) + (buffer :- BufferedWriter)) + final: #t) + +(def (make-log-rotate-sink (opt : LogRotateOpt := (LogRotateOpt))) + => LogSink + (LogSink + (LogRotateSink + opt: opt + mx: (make-mutex 'log-rotate)))) + +(def (accept-all _) #t) + +(defmethod {start! LogRotateSink} + (lambda (self) + (do-with-lock self.mx + (unless self.thread + {self.__start} + (set! self.thread + (spawn-thread (lambda () {self.__background}) + 'system/log/rotate))))) + interface: LogSink) + +(defmethod {stop! LogRotateSink} + (lambda (self) + (do-with-lock self.mx + (when self.thread + (thread-send self.thread !STOP!) + {self.__close} + (unwind-protect + (thread-join! self.thread) + (set! self.thread #f))))) + interface: LogSink) + +(defmethod {log LogRotateSink} + (lambda (self record) + (do-with-lock self.mx + (when self.thread + (when (self.accept record) + (let (wr (self.write self.buffer record)) + (set! self.size (+ self.size wr)) + (when (> self.size self.opts.size) + {self.__rotate})))))) + interface: Logger) + +(defmethod {__start LogRotateSink} + (lambda (self) + ;; prepare the log dir + (unless (file-exists? self.opt.dir) + (create-directory* self.opt.dir)) + ;; prepare the backlog + (let* ((prefix (string-append self.opt.file "~")) + (files (directory-files self.opt.dir)) + (files (filter-map + (lambda (f) + (and (string-prefix? prefix f) + (cons f (file-info f)))) + files)) + (files (list-sort + (lambda ((a :- :pair) (b :- :pair)) + (let ((tma (file-info-creation-time (cdr a))) + (tmb (file-info-creation-time (cdr b)))) + (fl< (time->seconds tma) + (time->seconds tmb))))) + files)) + (for-each + (lambda ((p :- pair))n + (let ((file (car p)) + (size (file-info-size (cdr p)))) + (set! self.backlog (+ self.backlog size)) + (enqueue! self.backlogq (cons file size )))) + files) + ;; prepare the output file + {self.__prepare})) + +(defmethod {__prepare LogRotateSink} + (lambda (self) + (let* ((path (or self.path (path-expand self.opt.file self.opt.dir))) + (exists? (file-exists? path)) + (size + (if exists? + (file-info-size (file-info path)) + 0)) + (_ (unless exists? + (create-directory* (path-directory path)))) + (file + (open-file-writer path flags: (if exists? O_APPEND O_CREAT))) + (buffer + (open-buffered-writer file))) + (set! self.path path) + (set! self.size size) + (set! self.file file) + (set! self.buffer buffer)))) + +(defmethod {__rotate LogRotateSink} + (lambda (self) + {self.__close} + (let* ((next-file (path-with-timestamp self.file)) + (_ (move-file self.file next-file)) + (compressed-file (self.opt.compress next-file)) + (compressed-size (file-info-size (file-info compressed))) + (backlog (+ compressed-size self.backlog))) + ;; remove the file if the compressor didn't + (when (file-exists? next-file) + (delete-file next-file)) + ;; adjust the backlog + (enqueue! self.backlogq (cons compressed-file compressed-size)) + (let loop ((backlog backlog)) + (if (and (> backlog self.opt.backlog) + (non-queue-empty? self.backlogq)) + (with ([file . size] (dequeue! self.backlogq)) + (delete-file file) + (loop (- backlog size))) + (set! self.backlog backlog))) + ;; prepare the output file + {self.__prepare}))) + +(defmethod {__close LogRotateSink} + (lambda (self) + (unwind-protect + (self.buffer.close) + (set! self.buffer #f) + (set! self.file #f)))) + +(defmethod {__background LogRotateSink} + (lambda (self) + (let/cc exit + (while #t + (let (next (thread-receive self.opt.flush #f)) + (match next + (#f + (do-with-lock self.mx + (self.buffer.flush))) + ((!STOP) + (exit 'STOP)) + (else + (void)))))))) + +(def (path-with-timestamp path) + (string-append path "~" (time->string (current-time-coarse)))) diff --git a/src/std/log/system.ss b/src/std/log/system.ss new file mode 100644 index 0000000000..386a01f056 --- /dev/null +++ b/src/std/log/system.ss @@ -0,0 +1,180 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; system logger +(import :gerbil/runtime/thread + :std/hash-table + :std/error + :std/time + ./interface + ./level + ./macros + ./console + ./proto) +(export #t) + +(defclass SystemLogger + ((mx :- :mutex) + (thread :- :thread) + (level :- :fixnum) + (sources :- HashTable) + (sinks :- HashTable)) + final: #t) + +(def __system + (delay-atomic + (SystemLogger + mx: (make-mutex 'logger) + thread: #f + level: (default-log-level) + sources: (make-hash-table-eq) + sinks: (make-hash-table-eq)))) + +(def (system-logger) => SystemLogger + (:- (force __system) SystemLogger)) + +(def (get-user-logger (name : :symbol) + (new : :procedure)) + => Logger + (using (sys (system-logger) :- SystemLogger) + (do-with-lock sys.mx :- Logger + (cond + ((hash-get sys.sources name)) + (else + (let (logger (Logger (new sys.thread))) + (hash-put! sys.sources name logger) + logger)))))) + +(def (start-system-logger! + sinks: (sinks [console-log-sink] : :list) + level: (level (default-log-level) : :fixnum)) + (using (sys (system-logger) :- SystemLogger) + (do-with-lock sys.mx + (unless sys.thread + (force __default-log-levels!) + (for-each + (lambda (make-sink) + (__add-system-sink/lock! (make-sink))) + sinks) + (set! sys.level level) + (set! sys.thread + (spawn-thread (cut system-logger-thread sys) + 'system/log)))))) + +(def (stop-system-logger!) + (using (sys (system-logger) :- SystemLogger) + (do-with-lock sys.mx + (when sys.thread + (thread-send sys.thread !STOP!) + (unwind-protect + (thread-join! sys.thread) + (set! sys.thread #f)))))) + +(def (add-system-sink! (sink : LogSink)) + (do-with-lock sys.mx + (__add-system-sink/lock! sink))) + +(def (__add-system-sink/lock! (sink : LogSink)) + (using (sys (system-logger) :- SystemLogger) + (let (name (sink.name)) + (when (hash-key? sys.sinks name) + (raise-context-error add-system-sink! "duplicate sink" sink)) + (hash-put! sys.sinks name sink) + (when sys.thread + (thread-send sys.thread (!UPDATE:add-sink sink)))))) + +;; dynamic log options +(def (set-system-log-level! (level : :fixnum)) + (using (sys (system-logger) :- SystemLogger) + (do-with-lock sys.mx + (let (current sys.level) + (unless (fx= current level) + (set! sys.level level) + (when sys.thread + (thread-send sys.thread (!UPDATE:set-system-level level)))))))) + +(def (system-log-lovel) => :fixnum + (using (sys (system-logger) :- SystemLogger) + (do-with-lock sys.mx sys.level))) + +(def (set-subsystem-log-level! (name : :symbol) + (level : :fixnum)) + (using (sys (system-logger) :- SystemLogger) + (do-with-lock sys.mx + (cond + ((hash-get sys.sources name) + => (lambda ((log :- Logger)) + (log.set-level! level))) + (else + (raise-context-error set-subsystem-log-level! "unknown subsystem" name)))))) + +(def (set-sink-log-level! (sink : :symbol) + (level : :fixnum)) + (using (sys (system-logger) :- SystemLogger) + (do-with-lock sys.mx + (cond + ((hash-get sys.sinks sink) + => (lambda ((log :- LogSink)) + (log.set-level! level))) + (else + (raise-context-error set-sink-log-level! "unknown sink" sink)))))) + +(def (current-log-subsystems) => :list + (using (sys (system-logger) :- SystemLogger) + (do-with-lock sys.mx :- :list + (hash-keys sys.sources)))) + +(def (current-log-sinks) => :list + (using (sys (system-logger) :- SystemLogger) + (do-with-lock sys.mx :- :list + (hash-keys sys.sinks)))) + +;; the system logger thread +(def (system-logger-thread (sys :- SystemLogger)) + (mutex-lock! sys.mx) + (let ((level sys.level) + (sources (hash-copy sys.sources)) + (sinks (hash-copy sys.sinks))) + (mutex-unlock! sys.mx) + (let/cc exit + (using (console (console-log-sink) :- LogSink) + (deflogger-macros console system/log current-time-coarse) + (console.debug "starting system logger") + (while #t + (let (msg (thread-receive)) + (cond + ((Record? msg) + (when (fx<= msg.level level) + (cond + ((hash-get sources msg.source) + => (lambda ((source :- Logger)) + (when (fx<= msg.level (source.level)) + (hash-for-each + (lambda (name (sink :- LogSink)) + (when (fx<= msg.level (sink.level)) + (sink.log msg))) + sinks)))) + (else + (console.warn "unknown record source" source: msg.source))))) + ((!STOP how) + (console.debug "stopping system logger") + (hash-for-each + (lambda (name (sink :- LogSink)) + (try (sink.stop!) + (catch (e) + (console.error "failed to stop log sink" + sink: (sink.name) error: e)))) + sinks) + (exit how)) + ((!Update? msg) + (match msg + ((!Update:add-sink sink) + (with-lock sys.mx + (using (sink :- LogSink) + (hash-put! sinks (sink.name) sink)))) + ((!UPDATE:set-system-level system-level) + (with-lock sys.mx + (set! level system-level))) + (else + (console.warn "unexpected system update message" message: msg)))) + (else + (console.warn "unexpected message" message: msg))))))))) diff --git a/src/std/log/user.ss b/src/std/log/user.ss new file mode 100644 index 0000000000..75d0458e99 --- /dev/null +++ b/src/std/log/user.ss @@ -0,0 +1,73 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; user loggeers +(import ./interface + ./level + ./macros + ./system + (for-syntax :std/stxutil)) +(export #t) + +(defsyntax (deflogger stx) + (syntax-case stx () + ((_ id options ...) + (identifier? #'id) + (let (opts (parse-options stx #'(options ...) '(name: level: time: decorate:))) + (with-syntax* ((name (pgetq name: opts #'id)) + (level (pgetq level: opts #'(user-log-level 'name))) + (get-time (pgetq time: opts 'current-time-coarse)) + (make-logger + (cond + ((pgetq decorate: opts) + => (lambda (decoration) + (syntax-case decoration () + ((base decorator) + #'(decorate-logger base decorator)) + (_ (raise-syntax-error #f "invalid decoration" stx decoration))))) + (else + #'(get-logger 'name level))))) + #'(begin + (def id make-logger) + (deflogger-macros id name get-time))))))) + +(defstruct (UserLogger BasicLogger) + ((system :- :thread))) + +(defstruct UserLoggerDecorator + ((base ::- Logger) + (decorate :- :procedure))) + +(def (get-logger (subsystem : :symbol) (level : :fixnum)) + => Logger + (get-user-logger + subsystem + (lambda ((system-thread :- :thread)) + (Logger + (UserLogger subsystem level system-thread))))) + +(def (decorate-logger (base : Logger) (decorator : :procedure)) + => Logger + (Logger + (UserLoggerDecorator base decorator))) + +(defmethod {log UserLogger} + (lambda (self record) + (thread-send self.system record)) + interface: Logger) + +(defmethod {log UserLoggerDecorator} + (lambda (self record) + (self.base.log (self.decorate record))) + interface: Logger) + +(defmethod {name UserLoggerDecorator} + (lambda (self) (self.base.name)) + interface: Logger) + +(defmethod {level UserLoggerDecorator} + (lambda (self) (self.base.level)) + interface: Logger) + +(defmethod {set-level! UserLoggerDecorator} + (lambda (self level) (self.base.set-level! level)) + interface: Logger) diff --git a/src/std/misc/walist.ss b/src/std/misc/walist.ss deleted file mode 100644 index 5905118874..0000000000 --- a/src/std/misc/walist.ss +++ /dev/null @@ -1,110 +0,0 @@ -(import - :std/misc/alist - :std/sugar - :std/error) - -(export - walist walistq walistv walist! walistq! walistv! - walist? walistq? walistv? walist!? walistq!? walistv!? - make-walist make-walistq make-walistv make-walist! make-walistq! make-walistv! - walist-alist walist-alist-set! walist->alist - walist-acons walistq-acons walistv-acons walist-acons! - walist-key? walistq-key? walistv-key? - walist-get walistq-get walistv-get - walist-assoc walistq-assoc walistv-assoc - walist-put walistv-put walistq-put walist!-put! walistv!-put! walistq!-put! - walist-remove walistv-remove walistq-remove walist!-remove! walistv!-remove! walistq!-remove!) - -(defstruct walist (alist) transparent: #t) ;; equal?, pure -(defstruct (walistq walist) () transparent: #t) ;; eq?, pure -(defstruct (walistv walist) () transparent: #t) ;; eqv?, pure -(defstruct (walist! walist) () transparent: #t final: #t) ;; equal?, stateful -(defstruct (walistq! walistq) () transparent: #t final: #t) ;; eq?, stateful -(defstruct (walistv! walistv) () transparent: #t final: #t) ;; eqv?, stateful - -(def walist->alist walist-alist) - -(def (walist-acons w k v) (with ((walist a) w) (make-walist (acons k v a)))) -(def (walistq-acons w k v) (with ((walistq a) w) (make-walistq (acons k v a)))) -(def (walistv-acons w k v) (with ((walistv a) w) (make-walistv (acons k v a)))) -(def (walist-acons! w k v) (set! (walist-alist w) (acons k v (walist-alist w)))) -(defmethod {acons walist} walist-acons) -(defmethod {acons walistq} walistq-acons) -(defmethod {acons walistv} walistv-acons) -(defmethod {acons! walist!} walist-acons!) -(defmethod {acons! walistq!} walist-acons!) -(defmethod {acons! walistv!} walist-acons!) - -(def (walist-key? w k) (with ((walist a) w) (pair? (assoc k a)))) -(def (walistq-key? w k) (with ((walistq a) w) (pair? (assq k a)))) -(def (walistv-key? w k) (with ((walistv a) w) (pair? (assv k a)))) -(defmethod {key? walist} walist-key?) -(defmethod {key? walistq} walistq-key?) -(defmethod {key? walistv} walistv-key?) - -(def (walist-get w k) (with ((walist a) w) (cdr (assoc k a)))) -(def (walistq-get w k) (with ((walistq a) w) (cdr (assq k a)))) -(def (walistv-get w k) (with ((walistv a) w) (cdr (assv k a)))) -(defmethod {get walist} walist-get) -(defmethod {get walistq} walistq-get) -(defmethod {get walistv} walistv-get) - -(def (walist-assoc w k) (with ((walist a) w) (assoc k a))) -(def (walistq-assoc w k) (with ((walistq a) w) (assq k a))) -(def (walistv-assoc w k) (with ((walistv a) w) (assv k a))) -(defmethod {assoc walist} walist-assoc) -(defmethod {assoc walistq} walistq-assoc) -(defmethod {assoc walistv} walistv-assoc) - -(def (walist-put w k v) (with ((walist a) w) (make-walist (aset a k v)))) -(def (walistq-put w k v) (with ((walistq a) w) (make-walistq (asetq a k v)))) -(def (walistv-put w k v) (with ((walistv a) w) (make-walistv (asetv a k v)))) -(defmethod {put walist} walist-put) -(defmethod {put walistq} walistq-put) -(defmethod {put walistv} walistv-put) - -(def (walist-remove w k) (with ((walist a) w) (make-walist (arem k a)))) -(def (walistq-remove w k) (with ((walistq a) w) (make-walistq (aremq k a)))) -(def (walistv-remove w k) (with ((walistv a) w) (make-walistv (aremv k a)))) -(defmethod {remove walist} walist-remove) -(defmethod {remove walistq} walistq-remove) -(defmethod {remove walistv} walistv-remove) - -(defrule (define-put! struct! fun cmp) - (begin - (def (fun w key val) - (with ((struct! alist!) w) - (let lp ((l alist!)) - (match l - ([kv . r] (if (cmp key (car kv)) - (set-cdr! kv val) - (lp r))) - ([] (match alist! - ([k1v1 . r] - (set-car! alist! [key . val]) - (set-cdr! alist! [k1v1 . r])) - ([] (set! (walist-alist w) [[key . val]])))))))) - (defmethod {put! struct!} fun))) - -(define-put! walist! walist!-put! equal?) -(define-put! walistq! walistq!-put! eq?) -(define-put! walistv! walistv!-put! eqv?) - -(defrule (define-remove! struct! fun cmp) - (begin - (def (fun w key) - (with ((struct! alist!) w) - (let lp ((p alist!) (prev #f)) - (match p - ([[k . _] . r] - (cond - ((not (cmp key k)) (lp r p)) - (prev (set-cdr! prev r)) - (else (set! (walist-alist w) r)))) - ([] (void)) ; key not found: NOP - (_ (raise-bad-argument walist-remove "valid walist" w 'struct! key)))))) - (defmethod {remove! struct!} fun))) - -(define-remove! walist! walist!-remove! equal?) -(define-remove! walistq! walistq!-remove! eq?) -(define-remove! walistv! walistv!-remove! eqv?) diff --git a/src/std/object.ss b/src/std/object.ss new file mode 100644 index 0000000000..e404cc06cb --- /dev/null +++ b/src/std/object.ss @@ -0,0 +1,27 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; object related utilities +(export #t) + +(defsyntax-case defobject-cachee () + ((_ name klass new reset!) + (with-identifiers + ((cache #'name #'name "__cache") + (mx #'name #'name "__cache-mx") + (get #'name #'name ".get") + (put! #'name #'name ".put!")) + #'(begin + (def cache []) + (def mx (make-mutex 'name)) + (def (get) => klass + (do-with-lock mx :- klass + (if (null? cache) + (new) + (using (p cache :- :pair) + (let (obj (car p)) + (set! cache (cdr p)) + obj))))) + (def (put! (o : klass)) + (reset! o) + (do-with-lock mx + (set! cache (cons o cache)))))))) diff --git a/src/std/os/time.ss b/src/std/os/time.ss new file mode 100644 index 0000000000..f7ac7f7206 --- /dev/null +++ b/src/std/os/time.ss @@ -0,0 +1,82 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; time related OS provided functionality +(import :std/foreign + ./error) +(export current-time-coarse current-time-precise) + +;; Note: POSIX requires that time_t is an integer; POSIX.1-2024 requires +;; that it is at least 64 bit long +;; But we don't know the exact sizes, it is system dependent. +;; Also note tv_usec/tv_nsec fields are long, which means annoyance when it +;; comes to determining the exact size and layout of the record. +;; Also note that we don't want to be generating foreign objects, as those are +;; reference counted and handled by the bump allocator and moving gc, so they +;; can cause fragmentation... let's avoid this, getting the current time is a +;; very frequent operation, that goes throught he VDSO. +(def (current-time-coarse) => :pair + (let (result (make-timestruct)) + (check-os-error (_gettimeofday result) + (current-time-coarse)) + (time-from-timestruct result))) + +(def (current-time-precise) => :pair + (let (result (make-timestruct)) + (check-os-error (_clock_gettime CLOCK_REALTIME result) + (current-time-precise)) + (time-from-timestruct result))) + +(def (make-timestruct) + (make-u8vector sizeof-timestruct)) + +(def (time-from-timestruct tm) => :pair + (cons (timestruct-sec tm) + (timestruct-subsec tm))) + +(begin-ffi (_gettimeofday _gettimeofday _clock_gettime _clock_gettime CLOCK_REALTIME + sizeof-timestruct timestruct-sec timestruct-subsec) + (c-declare #< +#include + +static int64_t ffi_time_timestruct_sec(___SCMOBJ res) +{ + struct timespec *tm = (struct timespec*)U8_DATA(res); + return tm->tv_sec; +} + +static long ffi_time_timestruct_subsec(___SCMOBJ res) +{ + struct timespec *tm = (struct timespec*)U8_DATA(res); + return tm->tv_nsec; +} + +static int ffi_time_gettimeofday(___SCMOBJ res) +{ + return gettimeofday((struct timeval*)U8_DATA(res), NULL); +} + +static int ffi_time_clock_gettime(int clockid, ___SCMOBJ res) +{ + return clock_gettime(clockid, (struct timespec*)U8_DATA(res)); +} +END-C +) + + (define-const CLOCK_REALTIME) + + (define sizeof-timestruct + ((c-lambda () size_t "sizeof(struct timespec);"))) + + (define-c-lambda timestruct-sec (scheme-object) int64 + "ffi_time_timestruct_sec") + (define-c-lambda timestruct-sec (scheme-object) long + "ffi_time_timestruct_subsec") + + (define-c-lambda __gettimeofday (scheme-object) int + "ffi_time_gettimeofday") + (define-c-lambda __clock_gettime (int scheme-object) int + "ffi_time_clock_gettime") + + (define-with-errno _gettimeofday __gettimeofday (result)) + (define-with-errno _clock_getttime __clock_gettime (clockid result))) diff --git a/src/std/serde/interned.ss b/src/std/serde/interned.ss new file mode 100644 index 0000000000..f29f2db7dc --- /dev/null +++ b/src/std/serde/interned.ss @@ -0,0 +1,44 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; serialization interned represntation +(import :gerbil/runtime/table + :std/io/interface + :std/io/bio/api) + +(def __interned-symbolic-repr + (make-symbolic-table/lock #f 0)) + +(defclass interned-symbolic-repr + ((format :- :u8vector) + (format/quote :- :u8vector) + (format/string :- :u8vector)) + final: #t) + +(defsyntax (do-write-interned-symbolic stx) + (syntax-case stx () + ((writer obj write-method slot) + (with-syntax* ((writer.write (stx-identifier #'writer #'writer ".write")) + (repr (genident '$repr)) + (repr.slot (stx-identifier #'repr #'repr "." #'slot)) + (buffer (genident '$buffer)) + (buffer.write-method + (stx-identifier #'buffer #'buffer "." #'write-method))) + (cond + ((symbolic-table-ref/lock __interned-symbolic-repr obj #f) + => (lambda ((repr :- interned-symbolic-repr)) => :fixnum + (if repr.slot + (writer.write repr.slot) + (using (buffer (open-buffered-writer #f very-small-buffer-size) + :- BufferedWriter) + (let* ((_ (buffer.write-method obj)) + (bytes (get-buffer-output-u8vector buffer))) + (set! repr.slot bytes) + (writer.write bytes)))))) + (else + (using (buffer (open-buffered-writer #f very-small-buffer-size) + :- BufferedWriter) + (let* ((_ (buffer.write-method obj)) + (bytes (get-buffer-output-u8vector buffer)) + (repr (interned-symbolic-repr 'slot bytes))) + (symbolic-table-set!/lock __interned-symbolic-repr obj repr) + (writer.write bytes))))))))) diff --git a/src/std/serde/opaque.ss b/src/std/serde/opaque.ss new file mode 100644 index 0000000000..0ec04cd45d --- /dev/null +++ b/src/std/serde/opaque.ss @@ -0,0 +1,8 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; opaque objects +(import XXX) +(export #t) + +(defstruct Opaque (klass object) + final: #t acyclic: #t) diff --git a/src/std/serde/scan.ss b/src/std/serde/scan.ss new file mode 100644 index 0000000000..556430f911 --- /dev/null +++ b/src/std/serde/scan.ss @@ -0,0 +1,83 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; serialization scanner +(import :gerbil/runtime/mop + :std/interface) +(export #t) + +(defstruct ScanEnv + ((written :- HashTable) + (scanned :- HashTable) + (cycles :- HashTable) + (next :- :fixnum) + (allow-cycles? :- :boolean) + (compress? :- :boolean)) + constructor: :init! + final: #t) + +(defmethod {:init! ScanEnv} + (lambda (self allow-cycles? compress?) + (set! self.written (make-hash-table-eq)) + (set! self.scanned (make-hash-table-eq)) + (when allow-cycles? + (set! self.cycles (make-hash-table-eq))) + (set! self.next 0) + (set! self.allow-cycles? allow-cycles?) + (set! self.compress? compress?))) + +(def (reset-scan-env! (env : ScanEnv)) + (env.written.clear!) + (env.scanned.clear!) + (when env.allow-cycles? + (env.cycles.clear!)) + (set! env.next 1)) + +(interface ObjectScanner + (scan! (env : ScanEnv) (path : :list)) => :void) + +(defrule (defscanner klass (self env path) body ...) + (defmethod {scan! klass} + (lambda (self env path) + body ...) + interface: ObjectScanner)) + +(def (scan-object! obj (env : ScanEnv) (path : :list := [])) => :fixnum + (if (or env.compress? (not (acyclic-object? obj))) + (cond + ((hash-get env.scanned) + => (lambda (e) => :fixnum + (if env.compress? + (using ((e :- :pair) + (id (car e) :- :fixnum) + (count (cdr e) :- :fixnum)) + (set! (cdr e) (fx1+ count)) + (when (memq obj path) + (if env.allow-cycles? + (hash-put! env.cycles obj id) + (raise-contract-violation-error scan-object! "acyclic object" object: (opaque obj)))) + id) + (using (id :- :fixnum) + (when (memq obj path) + ;; it's a cycle + (if env.allow-cycles? + (hash-put! env.cycles obj id) + (raise-contract-violation-error scan-object! "acyclic object" object: (opaque obj)))) + id)))) + (else + (let (id env.next) + (set! env.next (fx1+ id)) + (hash-put! env.scanned obj (if env.compress? (cons id 1) id)) + (apply-object-scanner obj env (cons obj path)) + id))) + -1)) + +(def (apply-object-scanner obj (env : ScanEnv) (path : :list)) => :void + (__object-scan! obj env path)) + +(defcall-interface-method ObjectScanner scan! + (__object-scan! obj env path)) + +(def (acyclic-object? obj) + (or (immediate? obj) + (let (klass (class-of obj)) + (class-type-acyclic? klass)))) diff --git a/src/std/serde/scanner.ss b/src/std/serde/scanner.ss new file mode 100644 index 0000000000..7c72cd2273 --- /dev/null +++ b/src/std/serde/scanner.ss @@ -0,0 +1,8 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; scanner implementation +(import ./scan) +(export #t) + +(defscanner :object (self env path) + XXX) diff --git a/src/std/serde/serialize.ss b/src/std/serde/serialize.ss new file mode 100644 index 0000000000..ced53ce789 --- /dev/null +++ b/src/std/serde/serialize.ss @@ -0,0 +1,65 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; serialization macro +(import :gerbil/runtime/mop + ./scan) +(export #t) + +(defrules do-write () + ((_ (wr init) write-op rest ... end) + (identifier? #'wr) + (let* ((wr init) + (wr (fx+ wr write-op)) + (wr (fx+ wr rest)) ...) + end))) + +(defsyntax (@serialize stx) + (syntax-case stx () + ((_ obj senv do-object do-anchor do-reference) + (with-syntax ((env (genident '$env #'senv))) + #'(using (env senv :- ScanEnv) + (defrule (has-cycle? obj) + (and env.allow-cycles? + (hash-get env.cycles obj))) + (cond + ((or (not env) (immediate? obj)) + (do-object obj)) + ((hash-get env.written obj) + => (lambda ((id :- :fixnum)) => :fixnum + (if (or env.compress? (has-cycle? obj)) + (do-reference id) + (do-object obj)))) + ((has-cycle? obj) + => (lambda ((id :- :fixunum)) => :fixnum + (hash-put! env.written obj id) + (do-anchor obj id))) + ((hash-get env.scanned obj) + => (lambda (e) => :fixnum + (if env.compress? + (using ((e :- :pair) + (id (car e) :- :fixnum) + (count (cdr e) :- :fixnum)) + (hash-put! env.written obj id) + (if (fx> count 1) + (do-anchor obj id) + (do-object obj))) + (using (id :- :fixnum) + (hash-put! env.written obj id) + (do-object obj))))) + (else + (let (id (scan-object! obj env)) + (if (fx> id 0) + (begin + (hash-put! env.written obj id) + (cond + ((has-cycle? obj) + (do-anchor obj id)) + (env.compress? + (using ((e (hash-get env.scanned obj) :- :pair) + (count (cdr e) :- :fixnum)) + (if (fx> count 1) + (do-anchor obj id) + (do-object obj)))) + (else + (do-object obj)))) + (do-object obj)))))))))) diff --git a/src/std/text/json/env.ss b/src/std/text/json/env.ss deleted file mode 100644 index 17193b8525..0000000000 --- a/src/std/text/json/env.ss +++ /dev/null @@ -1,48 +0,0 @@ -;;; -*- Gerbil -*- -;;; © vyzo -;;; json io environment -(import :std/error - :std/sugar) -(export #t) - -;; Should decoded JSON "objects" have symbols as keys rather than strings? -(def read-json-key-as-symbol? - (make-parameter #f)) - -;; What should JSON "objects" be decoded to walist instead of hash? -(def read-json-object-as-walist? - (make-parameter #f)) - -;; What should JSON "arrays" be decoded to Scheme vectors rather than Scheme list? -(def read-json-array-as-vector? - (make-parameter #f)) - -;; Should object keys be sorted when writing json? -;; Checking for duplicate keys only reliably works when this is true. -(def write-json-sort-keys? - (make-parameter #f)) - -;; Old names, to be removed in v0.19. -(def json-symbolic-keys read-json-key-as-symbol?) -(def json-sort-keys write-json-sort-keys?) -(def json-list-wrapper (make-parameter identity)) ;; not used anymore, only there for soft migration - -(defstruct env (read-json-key-as-symbol? - read-json-object-as-walist? - read-json-array-as-vector? - write-json-sort-keys?) - constructor: :init! - transparent: #t final: #t) - -(defmethod {:init! env} - (lambda (self) - (using (self :- env) - (set! self.read-json-key-as-symbol? (read-json-key-as-symbol?)) - (set! self.read-json-object-as-walist? (read-json-object-as-walist?)) - (set! self.read-json-array-as-vector? (read-json-array-as-vector?)) - (set! self.write-json-sort-keys? (write-json-sort-keys?))))) - -(defrule (raise-invalid-token where input char) - (if (eof-object? char) - (raise-io-error where "Incomplete JSON object; EOF reached" input) - (raise-io-error where "Invalid JSON token" input char))) diff --git a/src/std/time/format.ss b/src/std/time/format.ss new file mode 100644 index 0000000000..9ee3c34b95 --- /dev/null +++ b/src/std/time/format.ss @@ -0,0 +1,34 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; time formatting +(import :std/io + :std/io/bio/api + :std/format/io + :std/format/ioutil + :std/text/json/io + ./time) +(export #t) + +(defformatter CoarseTime (format-time-coarse writer tm env) + XXX + ) + +(defformatter PreciseTime (format-time-precise writer tm env) + XXX + ) + +(defformatter InexactTime (format-time-inexact writer tm env) + XXX + ) + +(defjson-writer CoarseTime (write-time-coarse-json writer tm env) + XXX + ) + +(defjson-writer PreciseTime (write-time-precise-json writer tm env) + XXX + ) + +(defjson-writer InexactTime (write-time-inexact-json writer tm env) + XXX + ) diff --git a/src/std/time/time.ss b/src/std/time/time.ss new file mode 100644 index 0000000000..1f51226fe4 --- /dev/null +++ b/src/std/time/time.ss @@ -0,0 +1,47 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; time library +(cond-expand + (,(compilation-target? C) + (import (prefix-in :std/os/time system.))) + (else + ;; TODO js and other target support + (syntax-error "unsupported compilation target"))) + +(export Time ExactTime CoarseTime PreciseTime InexactTime + current-time-coarse + current-time-precise + current-time-inexact) + +(defstruct Time () + transparent: #t + acyclic: #t) + +(defstruct (ExactTime Time) ((time :- :pair)) + transparent: #t + acyclic: #t) +(defstruct (InexactTime Time) ((time :- :flonum)) + name: time + final: #t + transparent: #t + acyclic: #t) + +(defstruct (CoarseTime ExactTime) () + name: time + final: #t + transparent: #t + acyclic: #t) +(defstruct (PreciseTime ExactTime) () + name: time + final: #t + transparent: #t + acyclic: #t) + +(def (current-time-coarse) => CoarseTime + (CoarseExactTime (system.current-time-coarse))) + +(def (current-time-precise) => PreciseTime + (PreciseExactTime (system.current-time-precise))) + +(def (current-time-inexact) => InexactTime + (InexactTime (##current-time-point))) diff --git a/src/std/actor-v13.ss b/src/std/v0.19-TODIE/actor-v13.ss similarity index 100% rename from src/std/actor-v13.ss rename to src/std/v0.19-TODIE/actor-v13.ss diff --git a/src/std/actor-v13/message.ss b/src/std/v0.19-TODIE/actor-v13/message.ss similarity index 100% rename from src/std/actor-v13/message.ss rename to src/std/v0.19-TODIE/actor-v13/message.ss diff --git a/src/std/actor-v13/proto.ss b/src/std/v0.19-TODIE/actor-v13/proto.ss similarity index 100% rename from src/std/actor-v13/proto.ss rename to src/std/v0.19-TODIE/actor-v13/proto.ss diff --git a/src/std/actor-v13/rpc-test.ss b/src/std/v0.19-TODIE/actor-v13/rpc-test.ss similarity index 100% rename from src/std/actor-v13/rpc-test.ss rename to src/std/v0.19-TODIE/actor-v13/rpc-test.ss diff --git a/src/std/actor-v13/rpc.ss b/src/std/v0.19-TODIE/actor-v13/rpc.ss similarity index 100% rename from src/std/actor-v13/rpc.ss rename to src/std/v0.19-TODIE/actor-v13/rpc.ss diff --git a/src/std/actor-v13/rpc/base.ss b/src/std/v0.19-TODIE/actor-v13/rpc/base.ss similarity index 100% rename from src/std/actor-v13/rpc/base.ss rename to src/std/v0.19-TODIE/actor-v13/rpc/base.ss diff --git a/src/std/actor-v13/rpc/connection.ss b/src/std/v0.19-TODIE/actor-v13/rpc/connection.ss similarity index 100% rename from src/std/actor-v13/rpc/connection.ss rename to src/std/v0.19-TODIE/actor-v13/rpc/connection.ss diff --git a/src/std/actor-v13/rpc/proto/cipher.ss b/src/std/v0.19-TODIE/actor-v13/rpc/proto/cipher.ss similarity index 100% rename from src/std/actor-v13/rpc/proto/cipher.ss rename to src/std/v0.19-TODIE/actor-v13/rpc/proto/cipher.ss diff --git a/src/std/actor-v13/rpc/proto/cookie.ss b/src/std/v0.19-TODIE/actor-v13/rpc/proto/cookie.ss similarity index 100% rename from src/std/actor-v13/rpc/proto/cookie.ss rename to src/std/v0.19-TODIE/actor-v13/rpc/proto/cookie.ss diff --git a/src/std/actor-v13/rpc/proto/message.ss b/src/std/v0.19-TODIE/actor-v13/rpc/proto/message.ss similarity index 100% rename from src/std/actor-v13/rpc/proto/message.ss rename to src/std/v0.19-TODIE/actor-v13/rpc/proto/message.ss diff --git a/src/std/actor-v13/rpc/proto/null.ss b/src/std/v0.19-TODIE/actor-v13/rpc/proto/null.ss similarity index 100% rename from src/std/actor-v13/rpc/proto/null.ss rename to src/std/v0.19-TODIE/actor-v13/rpc/proto/null.ss diff --git a/src/std/actor-v13/rpc/server.ss b/src/std/v0.19-TODIE/actor-v13/rpc/server.ss similarity index 100% rename from src/std/actor-v13/rpc/server.ss rename to src/std/v0.19-TODIE/actor-v13/rpc/server.ss diff --git a/src/std/actor-v13/xdr-test.ss b/src/std/v0.19-TODIE/actor-v13/xdr-test.ss similarity index 100% rename from src/std/actor-v13/xdr-test.ss rename to src/std/v0.19-TODIE/actor-v13/xdr-test.ss diff --git a/src/std/actor-v13/xdr.ss b/src/std/v0.19-TODIE/actor-v13/xdr.ss similarity index 100% rename from src/std/actor-v13/xdr.ss rename to src/std/v0.19-TODIE/actor-v13/xdr.ss diff --git a/src/std/amb-test.ss b/src/std/v0.19-TODIE/amb-test.ss similarity index 100% rename from src/std/amb-test.ss rename to src/std/v0.19-TODIE/amb-test.ss diff --git a/src/std/amb.ss b/src/std/v0.19-TODIE/amb.ss similarity index 100% rename from src/std/amb.ss rename to src/std/v0.19-TODIE/amb.ss diff --git a/src/std/event-test.ss b/src/std/v0.19-TODIE/event-test.ss similarity index 100% rename from src/std/event-test.ss rename to src/std/v0.19-TODIE/event-test.ss diff --git a/src/std/event.ss b/src/std/v0.19-TODIE/event.ss similarity index 100% rename from src/std/event.ss rename to src/std/v0.19-TODIE/event.ss diff --git a/src/std/foreign-test-support.ss b/src/std/v0.19-TODIE/foreign-test-support.ss similarity index 100% rename from src/std/foreign-test-support.ss rename to src/std/v0.19-TODIE/foreign-test-support.ss diff --git a/src/std/foreign-test.ss b/src/std/v0.19-TODIE/foreign-test.ss similarity index 100% rename from src/std/foreign-test.ss rename to src/std/v0.19-TODIE/foreign-test.ss diff --git a/src/std/foreign.ss b/src/std/v0.19-TODIE/foreign.ss similarity index 100% rename from src/std/foreign.ss rename to src/std/v0.19-TODIE/foreign.ss diff --git a/src/std/format.ss b/src/std/v0.19-TODIE/format.ss similarity index 100% rename from src/std/format.ss rename to src/std/v0.19-TODIE/format.ss diff --git a/src/std/generic.ss b/src/std/v0.19-TODIE/generic.ss similarity index 100% rename from src/std/generic.ss rename to src/std/v0.19-TODIE/generic.ss diff --git a/src/std/generic/dispatch.ss b/src/std/v0.19-TODIE/generic/dispatch.ss similarity index 100% rename from src/std/generic/dispatch.ss rename to src/std/v0.19-TODIE/generic/dispatch.ss diff --git a/src/std/generic/generic-test.ss b/src/std/v0.19-TODIE/generic/generic-test.ss similarity index 100% rename from src/std/generic/generic-test.ss rename to src/std/v0.19-TODIE/generic/generic-test.ss diff --git a/src/std/generic/macros.ss b/src/std/v0.19-TODIE/generic/macros.ss similarity index 100% rename from src/std/generic/macros.ss rename to src/std/v0.19-TODIE/generic/macros.ss diff --git a/src/std/getopt.ss b/src/std/v0.19-TODIE/getopt.ss similarity index 100% rename from src/std/getopt.ss rename to src/std/v0.19-TODIE/getopt.ss diff --git a/src/std/lazy.ss b/src/std/v0.19-TODIE/lazy.ss similarity index 100% rename from src/std/lazy.ss rename to src/std/v0.19-TODIE/lazy.ss diff --git a/src/std/logger.ss b/src/std/v0.19-TODIE/logger.ss similarity index 100% rename from src/std/logger.ss rename to src/std/v0.19-TODIE/logger.ss diff --git a/src/std/metaclass.ss b/src/std/v0.19-TODIE/metaclass.ss similarity index 100% rename from src/std/metaclass.ss rename to src/std/v0.19-TODIE/metaclass.ss diff --git a/src/std/ref.ss b/src/std/v0.19-TODIE/ref.ss similarity index 100% rename from src/std/ref.ss rename to src/std/v0.19-TODIE/ref.ss diff --git a/src/std/sort.ss b/src/std/v0.19-TODIE/sort.ss similarity index 100% rename from src/std/sort.ss rename to src/std/v0.19-TODIE/sort.ss diff --git a/src/std/sort/lmsort.scm b/src/std/v0.19-TODIE/sort/lmsort.scm similarity index 100% rename from src/std/sort/lmsort.scm rename to src/std/v0.19-TODIE/sort/lmsort.scm diff --git a/src/std/sort/sort-support.scm b/src/std/v0.19-TODIE/sort/sort-support.scm similarity index 100% rename from src/std/sort/sort-support.scm rename to src/std/v0.19-TODIE/sort/sort-support.scm diff --git a/src/std/sort/sort.scm b/src/std/v0.19-TODIE/sort/sort.scm similarity index 100% rename from src/std/sort/sort.scm rename to src/std/v0.19-TODIE/sort/sort.scm diff --git a/src/std/sort/sortp.scm b/src/std/v0.19-TODIE/sort/sortp.scm similarity index 100% rename from src/std/sort/sortp.scm rename to src/std/v0.19-TODIE/sort/sortp.scm diff --git a/src/std/sort/test.scm b/src/std/v0.19-TODIE/sort/test.scm similarity index 100% rename from src/std/sort/test.scm rename to src/std/v0.19-TODIE/sort/test.scm diff --git a/src/std/sort/vbinsearch.scm b/src/std/v0.19-TODIE/sort/vbinsearch.scm similarity index 100% rename from src/std/sort/vbinsearch.scm rename to src/std/v0.19-TODIE/sort/vbinsearch.scm diff --git a/src/std/sort/vhsort.scm b/src/std/v0.19-TODIE/sort/vhsort.scm similarity index 100% rename from src/std/sort/vhsort.scm rename to src/std/v0.19-TODIE/sort/vhsort.scm diff --git a/src/std/sort/visort.scm b/src/std/v0.19-TODIE/sort/visort.scm similarity index 100% rename from src/std/sort/visort.scm rename to src/std/v0.19-TODIE/sort/visort.scm diff --git a/src/std/sort/vmsort.scm b/src/std/v0.19-TODIE/sort/vmsort.scm similarity index 100% rename from src/std/sort/vmsort.scm rename to src/std/v0.19-TODIE/sort/vmsort.scm diff --git a/src/std/sort/vqsort.scm b/src/std/v0.19-TODIE/sort/vqsort.scm similarity index 100% rename from src/std/sort/vqsort.scm rename to src/std/v0.19-TODIE/sort/vqsort.scm diff --git a/src/std/srfi/1-test.ss b/src/std/v0.19-TODIE/srfi/1-test.ss similarity index 100% rename from src/std/srfi/1-test.ss rename to src/std/v0.19-TODIE/srfi/1-test.ss diff --git a/src/std/srfi/1.ss b/src/std/v0.19-TODIE/srfi/1.ss similarity index 100% rename from src/std/srfi/1.ss rename to src/std/v0.19-TODIE/srfi/1.ss diff --git a/src/std/srfi/101.ss b/src/std/v0.19-TODIE/srfi/101.ss similarity index 100% rename from src/std/srfi/101.ss rename to src/std/v0.19-TODIE/srfi/101.ss diff --git a/src/std/srfi/113.ss b/src/std/v0.19-TODIE/srfi/113.ss similarity index 100% rename from src/std/srfi/113.ss rename to src/std/v0.19-TODIE/srfi/113.ss diff --git a/src/std/srfi/115.ss b/src/std/v0.19-TODIE/srfi/115.ss similarity index 100% rename from src/std/srfi/115.ss rename to src/std/v0.19-TODIE/srfi/115.ss diff --git a/src/std/srfi/116.ss b/src/std/v0.19-TODIE/srfi/116.ss similarity index 100% rename from src/std/srfi/116.ss rename to src/std/v0.19-TODIE/srfi/116.ss diff --git a/src/std/srfi/117.ss b/src/std/v0.19-TODIE/srfi/117.ss similarity index 100% rename from src/std/srfi/117.ss rename to src/std/v0.19-TODIE/srfi/117.ss diff --git a/src/std/srfi/121-iter.ss b/src/std/v0.19-TODIE/srfi/121-iter.ss similarity index 100% rename from src/std/srfi/121-iter.ss rename to src/std/v0.19-TODIE/srfi/121-iter.ss diff --git a/src/std/srfi/121.ss b/src/std/v0.19-TODIE/srfi/121.ss similarity index 100% rename from src/std/srfi/121.ss rename to src/std/v0.19-TODIE/srfi/121.ss diff --git a/src/std/srfi/124.ss b/src/std/v0.19-TODIE/srfi/124.ss similarity index 100% rename from src/std/srfi/124.ss rename to src/std/v0.19-TODIE/srfi/124.ss diff --git a/src/std/srfi/125.ss b/src/std/v0.19-TODIE/srfi/125.ss similarity index 100% rename from src/std/srfi/125.ss rename to src/std/v0.19-TODIE/srfi/125.ss diff --git a/src/std/srfi/127-iter.ss b/src/std/v0.19-TODIE/srfi/127-iter.ss similarity index 100% rename from src/std/srfi/127-iter.ss rename to src/std/v0.19-TODIE/srfi/127-iter.ss diff --git a/src/std/srfi/127.ss b/src/std/v0.19-TODIE/srfi/127.ss similarity index 100% rename from src/std/srfi/127.ss rename to src/std/v0.19-TODIE/srfi/127.ss diff --git a/src/std/srfi/128.ss b/src/std/v0.19-TODIE/srfi/128.ss similarity index 100% rename from src/std/srfi/128.ss rename to src/std/v0.19-TODIE/srfi/128.ss diff --git a/src/std/srfi/13.ss b/src/std/v0.19-TODIE/srfi/13.ss similarity index 100% rename from src/std/srfi/13.ss rename to src/std/v0.19-TODIE/srfi/13.ss diff --git a/src/std/srfi/130.ss b/src/std/v0.19-TODIE/srfi/130.ss similarity index 100% rename from src/std/srfi/130.ss rename to src/std/v0.19-TODIE/srfi/130.ss diff --git a/src/std/srfi/132.ss b/src/std/v0.19-TODIE/srfi/132.ss similarity index 100% rename from src/std/srfi/132.ss rename to src/std/v0.19-TODIE/srfi/132.ss diff --git a/src/std/srfi/133.ss b/src/std/v0.19-TODIE/srfi/133.ss similarity index 100% rename from src/std/srfi/133.ss rename to src/std/v0.19-TODIE/srfi/133.ss diff --git a/src/std/srfi/134.ss b/src/std/v0.19-TODIE/srfi/134.ss similarity index 100% rename from src/std/srfi/134.ss rename to src/std/v0.19-TODIE/srfi/134.ss diff --git a/src/std/srfi/135.ss b/src/std/v0.19-TODIE/srfi/135.ss similarity index 100% rename from src/std/srfi/135.ss rename to src/std/v0.19-TODIE/srfi/135.ss diff --git a/src/std/srfi/14.ss b/src/std/v0.19-TODIE/srfi/14.ss similarity index 100% rename from src/std/srfi/14.ss rename to src/std/v0.19-TODIE/srfi/14.ss diff --git a/src/std/srfi/141.ss b/src/std/v0.19-TODIE/srfi/141.ss similarity index 100% rename from src/std/srfi/141.ss rename to src/std/v0.19-TODIE/srfi/141.ss diff --git a/src/std/srfi/143.ss b/src/std/v0.19-TODIE/srfi/143.ss similarity index 100% rename from src/std/srfi/143.ss rename to src/std/v0.19-TODIE/srfi/143.ss diff --git a/src/std/srfi/144.ss b/src/std/v0.19-TODIE/srfi/144.ss similarity index 100% rename from src/std/srfi/144.ss rename to src/std/v0.19-TODIE/srfi/144.ss diff --git a/src/std/srfi/145.ss b/src/std/v0.19-TODIE/srfi/145.ss similarity index 100% rename from src/std/srfi/145.ss rename to src/std/v0.19-TODIE/srfi/145.ss diff --git a/src/std/srfi/146.ss b/src/std/v0.19-TODIE/srfi/146.ss similarity index 100% rename from src/std/srfi/146.ss rename to src/std/v0.19-TODIE/srfi/146.ss diff --git a/src/std/srfi/146/hamt-map.scm b/src/std/v0.19-TODIE/srfi/146/hamt-map.scm similarity index 100% rename from src/std/srfi/146/hamt-map.scm rename to src/std/v0.19-TODIE/srfi/146/hamt-map.scm diff --git a/src/std/srfi/146/hamt-map.ss b/src/std/v0.19-TODIE/srfi/146/hamt-map.ss similarity index 100% rename from src/std/srfi/146/hamt-map.ss rename to src/std/v0.19-TODIE/srfi/146/hamt-map.ss diff --git a/src/std/srfi/146/hamt-misc.scm b/src/std/v0.19-TODIE/srfi/146/hamt-misc.scm similarity index 100% rename from src/std/srfi/146/hamt-misc.scm rename to src/std/v0.19-TODIE/srfi/146/hamt-misc.scm diff --git a/src/std/srfi/146/hamt-misc.ss b/src/std/v0.19-TODIE/srfi/146/hamt-misc.ss similarity index 100% rename from src/std/srfi/146/hamt-misc.ss rename to src/std/v0.19-TODIE/srfi/146/hamt-misc.ss diff --git a/src/std/srfi/146/hamt.scm b/src/std/v0.19-TODIE/srfi/146/hamt.scm similarity index 100% rename from src/std/srfi/146/hamt.scm rename to src/std/v0.19-TODIE/srfi/146/hamt.scm diff --git a/src/std/srfi/146/hamt.ss b/src/std/v0.19-TODIE/srfi/146/hamt.ss similarity index 100% rename from src/std/srfi/146/hamt.ss rename to src/std/v0.19-TODIE/srfi/146/hamt.ss diff --git a/src/std/srfi/146/hash.scm b/src/std/v0.19-TODIE/srfi/146/hash.scm similarity index 100% rename from src/std/srfi/146/hash.scm rename to src/std/v0.19-TODIE/srfi/146/hash.scm diff --git a/src/std/srfi/146/hash.ss b/src/std/v0.19-TODIE/srfi/146/hash.ss similarity index 100% rename from src/std/srfi/146/hash.ss rename to src/std/v0.19-TODIE/srfi/146/hash.ss diff --git a/src/std/srfi/146/vector-edit.scm b/src/std/v0.19-TODIE/srfi/146/vector-edit.scm similarity index 100% rename from src/std/srfi/146/vector-edit.scm rename to src/std/v0.19-TODIE/srfi/146/vector-edit.scm diff --git a/src/std/srfi/146/vector-edit.ss b/src/std/v0.19-TODIE/srfi/146/vector-edit.ss similarity index 100% rename from src/std/srfi/146/vector-edit.ss rename to src/std/v0.19-TODIE/srfi/146/vector-edit.ss diff --git a/src/std/srfi/151.ss b/src/std/v0.19-TODIE/srfi/151.ss similarity index 100% rename from src/std/srfi/151.ss rename to src/std/v0.19-TODIE/srfi/151.ss diff --git a/src/std/srfi/158-iter.ss b/src/std/v0.19-TODIE/srfi/158-iter.ss similarity index 100% rename from src/std/srfi/158-iter.ss rename to src/std/v0.19-TODIE/srfi/158-iter.ss diff --git a/src/std/srfi/158.ss b/src/std/v0.19-TODIE/srfi/158.ss similarity index 100% rename from src/std/srfi/158.ss rename to src/std/v0.19-TODIE/srfi/158.ss diff --git a/src/std/srfi/159.ss b/src/std/v0.19-TODIE/srfi/159.ss similarity index 100% rename from src/std/srfi/159.ss rename to src/std/v0.19-TODIE/srfi/159.ss diff --git a/src/std/srfi/159/base.scm b/src/std/v0.19-TODIE/srfi/159/base.scm similarity index 100% rename from src/std/srfi/159/base.scm rename to src/std/v0.19-TODIE/srfi/159/base.scm diff --git a/src/std/srfi/159/base.ss b/src/std/v0.19-TODIE/srfi/159/base.ss similarity index 100% rename from src/std/srfi/159/base.ss rename to src/std/v0.19-TODIE/srfi/159/base.ss diff --git a/src/std/srfi/159/color.scm b/src/std/v0.19-TODIE/srfi/159/color.scm similarity index 100% rename from src/std/srfi/159/color.scm rename to src/std/v0.19-TODIE/srfi/159/color.scm diff --git a/src/std/srfi/159/color.ss b/src/std/v0.19-TODIE/srfi/159/color.ss similarity index 100% rename from src/std/srfi/159/color.ss rename to src/std/v0.19-TODIE/srfi/159/color.ss diff --git a/src/std/srfi/159/column.scm b/src/std/v0.19-TODIE/srfi/159/column.scm similarity index 100% rename from src/std/srfi/159/column.scm rename to src/std/v0.19-TODIE/srfi/159/column.scm diff --git a/src/std/srfi/159/columnar.ss b/src/std/v0.19-TODIE/srfi/159/columnar.ss similarity index 100% rename from src/std/srfi/159/columnar.ss rename to src/std/v0.19-TODIE/srfi/159/columnar.ss diff --git a/src/std/srfi/159/environment.scm b/src/std/v0.19-TODIE/srfi/159/environment.scm similarity index 100% rename from src/std/srfi/159/environment.scm rename to src/std/v0.19-TODIE/srfi/159/environment.scm diff --git a/src/std/srfi/159/environment.ss b/src/std/v0.19-TODIE/srfi/159/environment.ss similarity index 100% rename from src/std/srfi/159/environment.ss rename to src/std/v0.19-TODIE/srfi/159/environment.ss diff --git a/src/std/srfi/159/pretty.scm b/src/std/v0.19-TODIE/srfi/159/pretty.scm similarity index 100% rename from src/std/srfi/159/pretty.scm rename to src/std/v0.19-TODIE/srfi/159/pretty.scm diff --git a/src/std/srfi/159/pretty.ss b/src/std/v0.19-TODIE/srfi/159/pretty.ss similarity index 100% rename from src/std/srfi/159/pretty.ss rename to src/std/v0.19-TODIE/srfi/159/pretty.ss diff --git a/src/std/srfi/159/show.scm b/src/std/v0.19-TODIE/srfi/159/show.scm similarity index 100% rename from src/std/srfi/159/show.scm rename to src/std/v0.19-TODIE/srfi/159/show.scm diff --git a/src/std/srfi/159/show.ss b/src/std/v0.19-TODIE/srfi/159/show.ss similarity index 100% rename from src/std/srfi/159/show.ss rename to src/std/v0.19-TODIE/srfi/159/show.ss diff --git a/src/std/srfi/159/string.ss b/src/std/v0.19-TODIE/srfi/159/string.ss similarity index 100% rename from src/std/srfi/159/string.ss rename to src/std/v0.19-TODIE/srfi/159/string.ss diff --git a/src/std/srfi/159/unicode.scm b/src/std/v0.19-TODIE/srfi/159/unicode.scm similarity index 100% rename from src/std/srfi/159/unicode.scm rename to src/std/v0.19-TODIE/srfi/159/unicode.scm diff --git a/src/std/srfi/159/unicode.ss b/src/std/v0.19-TODIE/srfi/159/unicode.ss similarity index 100% rename from src/std/srfi/159/unicode.ss rename to src/std/v0.19-TODIE/srfi/159/unicode.ss diff --git a/src/std/srfi/159/write.scm b/src/std/v0.19-TODIE/srfi/159/write.scm similarity index 100% rename from src/std/srfi/159/write.scm rename to src/std/v0.19-TODIE/srfi/159/write.scm diff --git a/src/std/srfi/160/base.ss b/src/std/v0.19-TODIE/srfi/160/base.ss similarity index 100% rename from src/std/srfi/160/base.ss rename to src/std/v0.19-TODIE/srfi/160/base.ss diff --git a/src/std/srfi/160/c128.ss b/src/std/v0.19-TODIE/srfi/160/c128.ss similarity index 100% rename from src/std/srfi/160/c128.ss rename to src/std/v0.19-TODIE/srfi/160/c128.ss diff --git a/src/std/srfi/160/c64.ss b/src/std/v0.19-TODIE/srfi/160/c64.ss similarity index 100% rename from src/std/srfi/160/c64.ss rename to src/std/v0.19-TODIE/srfi/160/c64.ss diff --git a/src/std/srfi/160/cvector.ss b/src/std/v0.19-TODIE/srfi/160/cvector.ss similarity index 100% rename from src/std/srfi/160/cvector.ss rename to src/std/v0.19-TODIE/srfi/160/cvector.ss diff --git a/src/std/srfi/160/f32.ss b/src/std/v0.19-TODIE/srfi/160/f32.ss similarity index 100% rename from src/std/srfi/160/f32.ss rename to src/std/v0.19-TODIE/srfi/160/f32.ss diff --git a/src/std/srfi/160/f64.ss b/src/std/v0.19-TODIE/srfi/160/f64.ss similarity index 100% rename from src/std/srfi/160/f64.ss rename to src/std/v0.19-TODIE/srfi/160/f64.ss diff --git a/src/std/srfi/160/macros.ss b/src/std/v0.19-TODIE/srfi/160/macros.ss similarity index 100% rename from src/std/srfi/160/macros.ss rename to src/std/v0.19-TODIE/srfi/160/macros.ss diff --git a/src/std/srfi/160/s16.ss b/src/std/v0.19-TODIE/srfi/160/s16.ss similarity index 100% rename from src/std/srfi/160/s16.ss rename to src/std/v0.19-TODIE/srfi/160/s16.ss diff --git a/src/std/srfi/160/s32.ss b/src/std/v0.19-TODIE/srfi/160/s32.ss similarity index 100% rename from src/std/srfi/160/s32.ss rename to src/std/v0.19-TODIE/srfi/160/s32.ss diff --git a/src/std/srfi/160/s64.ss b/src/std/v0.19-TODIE/srfi/160/s64.ss similarity index 100% rename from src/std/srfi/160/s64.ss rename to src/std/v0.19-TODIE/srfi/160/s64.ss diff --git a/src/std/srfi/160/s8.ss b/src/std/v0.19-TODIE/srfi/160/s8.ss similarity index 100% rename from src/std/srfi/160/s8.ss rename to src/std/v0.19-TODIE/srfi/160/s8.ss diff --git a/src/std/srfi/160/u16.ss b/src/std/v0.19-TODIE/srfi/160/u16.ss similarity index 100% rename from src/std/srfi/160/u16.ss rename to src/std/v0.19-TODIE/srfi/160/u16.ss diff --git a/src/std/srfi/160/u32.ss b/src/std/v0.19-TODIE/srfi/160/u32.ss similarity index 100% rename from src/std/srfi/160/u32.ss rename to src/std/v0.19-TODIE/srfi/160/u32.ss diff --git a/src/std/srfi/160/u64.ss b/src/std/v0.19-TODIE/srfi/160/u64.ss similarity index 100% rename from src/std/srfi/160/u64.ss rename to src/std/v0.19-TODIE/srfi/160/u64.ss diff --git a/src/std/srfi/160/u8.ss b/src/std/v0.19-TODIE/srfi/160/u8.ss similarity index 100% rename from src/std/srfi/160/u8.ss rename to src/std/v0.19-TODIE/srfi/160/u8.ss diff --git a/src/std/srfi/19.ss b/src/std/v0.19-TODIE/srfi/19.ss similarity index 100% rename from src/std/srfi/19.ss rename to src/std/v0.19-TODIE/srfi/19.ss diff --git a/src/std/srfi/212.ss b/src/std/v0.19-TODIE/srfi/212.ss similarity index 100% rename from src/std/srfi/212.ss rename to src/std/v0.19-TODIE/srfi/212.ss diff --git a/src/std/srfi/41-iter.ss b/src/std/v0.19-TODIE/srfi/41-iter.ss similarity index 100% rename from src/std/srfi/41-iter.ss rename to src/std/v0.19-TODIE/srfi/41-iter.ss diff --git a/src/std/srfi/41.ss b/src/std/v0.19-TODIE/srfi/41.ss similarity index 100% rename from src/std/srfi/41.ss rename to src/std/v0.19-TODIE/srfi/41.ss diff --git a/src/std/srfi/42.ss b/src/std/v0.19-TODIE/srfi/42.ss similarity index 100% rename from src/std/srfi/42.ss rename to src/std/v0.19-TODIE/srfi/42.ss diff --git a/src/std/srfi/43.ss b/src/std/v0.19-TODIE/srfi/43.ss similarity index 100% rename from src/std/srfi/43.ss rename to src/std/v0.19-TODIE/srfi/43.ss diff --git a/src/std/srfi/78.ss b/src/std/v0.19-TODIE/srfi/78.ss similarity index 100% rename from src/std/srfi/78.ss rename to src/std/v0.19-TODIE/srfi/78.ss diff --git a/src/std/srfi/8.ss b/src/std/v0.19-TODIE/srfi/8.ss similarity index 100% rename from src/std/srfi/8.ss rename to src/std/v0.19-TODIE/srfi/8.ss diff --git a/src/std/srfi/9.ss b/src/std/v0.19-TODIE/srfi/9.ss similarity index 100% rename from src/std/srfi/9.ss rename to src/std/v0.19-TODIE/srfi/9.ss diff --git a/src/std/srfi/95.ss b/src/std/v0.19-TODIE/srfi/95.ss similarity index 100% rename from src/std/srfi/95.ss rename to src/std/v0.19-TODIE/srfi/95.ss diff --git a/src/std/srfi/srfi-1.scm b/src/std/v0.19-TODIE/srfi/srfi-1.scm similarity index 100% rename from src/std/srfi/srfi-1.scm rename to src/std/v0.19-TODIE/srfi/srfi-1.scm diff --git a/src/std/srfi/srfi-101.scm b/src/std/v0.19-TODIE/srfi/srfi-101.scm similarity index 100% rename from src/std/srfi/srfi-101.scm rename to src/std/v0.19-TODIE/srfi/srfi-101.scm diff --git a/src/std/srfi/srfi-113.scm b/src/std/v0.19-TODIE/srfi/srfi-113.scm similarity index 100% rename from src/std/srfi/srfi-113.scm rename to src/std/v0.19-TODIE/srfi/srfi-113.scm diff --git a/src/std/srfi/srfi-115/charsets.scm b/src/std/v0.19-TODIE/srfi/srfi-115/charsets.scm similarity index 100% rename from src/std/srfi/srfi-115/charsets.scm rename to src/std/v0.19-TODIE/srfi/srfi-115/charsets.scm diff --git a/src/std/srfi/srfi-115/regexp.scm b/src/std/v0.19-TODIE/srfi/srfi-115/regexp.scm similarity index 100% rename from src/std/srfi/srfi-115/regexp.scm rename to src/std/v0.19-TODIE/srfi/srfi-115/regexp.scm diff --git a/src/std/srfi/srfi-116/ilists-base.scm b/src/std/v0.19-TODIE/srfi/srfi-116/ilists-base.scm similarity index 100% rename from src/std/srfi/srfi-116/ilists-base.scm rename to src/std/v0.19-TODIE/srfi/srfi-116/ilists-base.scm diff --git a/src/std/srfi/srfi-116/ilists-impl.scm b/src/std/v0.19-TODIE/srfi/srfi-116/ilists-impl.scm similarity index 100% rename from src/std/srfi/srfi-116/ilists-impl.scm rename to src/std/v0.19-TODIE/srfi/srfi-116/ilists-impl.scm diff --git a/src/std/srfi/srfi-116/ilists-test.scm b/src/std/v0.19-TODIE/srfi/srfi-116/ilists-test.scm similarity index 100% rename from src/std/srfi/srfi-116/ilists-test.scm rename to src/std/v0.19-TODIE/srfi/srfi-116/ilists-test.scm diff --git a/src/std/srfi/srfi-116/ilists.scm b/src/std/v0.19-TODIE/srfi/srfi-116/ilists.scm similarity index 100% rename from src/std/srfi/srfi-116/ilists.scm rename to src/std/v0.19-TODIE/srfi/srfi-116/ilists.scm diff --git a/src/std/srfi/srfi-116/ilists.sld b/src/std/v0.19-TODIE/srfi/srfi-116/ilists.sld similarity index 100% rename from src/std/srfi/srfi-116/ilists.sld rename to src/std/v0.19-TODIE/srfi/srfi-116/ilists.sld diff --git a/src/std/srfi/srfi-117.scm b/src/std/v0.19-TODIE/srfi/srfi-117.scm similarity index 100% rename from src/std/srfi/srfi-117.scm rename to src/std/v0.19-TODIE/srfi/srfi-117.scm diff --git a/src/std/srfi/srfi-121.scm b/src/std/v0.19-TODIE/srfi/srfi-121.scm similarity index 100% rename from src/std/srfi/srfi-121.scm rename to src/std/v0.19-TODIE/srfi/srfi-121.scm diff --git a/src/std/srfi/srfi-127.scm b/src/std/v0.19-TODIE/srfi/srfi-127.scm similarity index 100% rename from src/std/srfi/srfi-127.scm rename to src/std/v0.19-TODIE/srfi/srfi-127.scm diff --git a/src/std/srfi/srfi-13.scm b/src/std/v0.19-TODIE/srfi/srfi-13.scm similarity index 100% rename from src/std/srfi/srfi-13.scm rename to src/std/v0.19-TODIE/srfi/srfi-13.scm diff --git a/src/std/srfi/srfi-130.scm b/src/std/v0.19-TODIE/srfi/srfi-130.scm similarity index 100% rename from src/std/srfi/srfi-130.scm rename to src/std/v0.19-TODIE/srfi/srfi-130.scm diff --git a/src/std/srfi/srfi-132/132.sld b/src/std/v0.19-TODIE/srfi/srfi-132/132.sld similarity index 100% rename from src/std/srfi/srfi-132/132.sld rename to src/std/v0.19-TODIE/srfi/srfi-132/132.sld diff --git a/src/std/srfi/srfi-132/delndups.scm b/src/std/v0.19-TODIE/srfi/srfi-132/delndups.scm similarity index 100% rename from src/std/srfi/srfi-132/delndups.scm rename to src/std/v0.19-TODIE/srfi/srfi-132/delndups.scm diff --git a/src/std/srfi/srfi-132/lmsort.scm b/src/std/v0.19-TODIE/srfi/srfi-132/lmsort.scm similarity index 100% rename from src/std/srfi/srfi-132/lmsort.scm rename to src/std/v0.19-TODIE/srfi/srfi-132/lmsort.scm diff --git a/src/std/srfi/srfi-132/merge.scm b/src/std/v0.19-TODIE/srfi/srfi-132/merge.scm similarity index 100% rename from src/std/srfi/srfi-132/merge.scm rename to src/std/v0.19-TODIE/srfi/srfi-132/merge.scm diff --git a/src/std/srfi/srfi-132/select.scm b/src/std/v0.19-TODIE/srfi/srfi-132/select.scm similarity index 100% rename from src/std/srfi/srfi-132/select.scm rename to src/std/v0.19-TODIE/srfi/srfi-132/select.scm diff --git a/src/std/srfi/srfi-132/sort.scm b/src/std/v0.19-TODIE/srfi/srfi-132/sort.scm similarity index 100% rename from src/std/srfi/srfi-132/sort.scm rename to src/std/v0.19-TODIE/srfi/srfi-132/sort.scm diff --git a/src/std/srfi/srfi-132/sortfaster.scm b/src/std/v0.19-TODIE/srfi/srfi-132/sortfaster.scm similarity index 100% rename from src/std/srfi/srfi-132/sortfaster.scm rename to src/std/v0.19-TODIE/srfi/srfi-132/sortfaster.scm diff --git a/src/std/srfi/srfi-132/sorting-test.scm b/src/std/v0.19-TODIE/srfi/srfi-132/sorting-test.scm similarity index 100% rename from src/std/srfi/srfi-132/sorting-test.scm rename to src/std/v0.19-TODIE/srfi/srfi-132/sorting-test.scm diff --git a/src/std/srfi/srfi-132/sortp.scm b/src/std/v0.19-TODIE/srfi/srfi-132/sortp.scm similarity index 100% rename from src/std/srfi/srfi-132/sortp.scm rename to src/std/v0.19-TODIE/srfi/srfi-132/sortp.scm diff --git a/src/std/srfi/srfi-132/srfi-132-test.sps b/src/std/v0.19-TODIE/srfi/srfi-132/srfi-132-test.sps similarity index 100% rename from src/std/srfi/srfi-132/srfi-132-test.sps rename to src/std/v0.19-TODIE/srfi/srfi-132/srfi-132-test.sps diff --git a/src/std/srfi/srfi-132/vector-util.scm b/src/std/v0.19-TODIE/srfi/srfi-132/vector-util.scm similarity index 100% rename from src/std/srfi/srfi-132/vector-util.scm rename to src/std/v0.19-TODIE/srfi/srfi-132/vector-util.scm diff --git a/src/std/srfi/srfi-132/vhsort.scm b/src/std/v0.19-TODIE/srfi/srfi-132/vhsort.scm similarity index 100% rename from src/std/srfi/srfi-132/vhsort.scm rename to src/std/v0.19-TODIE/srfi/srfi-132/vhsort.scm diff --git a/src/std/srfi/srfi-132/visort.scm b/src/std/v0.19-TODIE/srfi/srfi-132/visort.scm similarity index 100% rename from src/std/srfi/srfi-132/visort.scm rename to src/std/v0.19-TODIE/srfi/srfi-132/visort.scm diff --git a/src/std/srfi/srfi-132/vmsort.scm b/src/std/v0.19-TODIE/srfi/srfi-132/vmsort.scm similarity index 100% rename from src/std/srfi/srfi-132/vmsort.scm rename to src/std/v0.19-TODIE/srfi/srfi-132/vmsort.scm diff --git a/src/std/srfi/srfi-132/vqsort2.scm b/src/std/v0.19-TODIE/srfi/srfi-132/vqsort2.scm similarity index 100% rename from src/std/srfi/srfi-132/vqsort2.scm rename to src/std/v0.19-TODIE/srfi/srfi-132/vqsort2.scm diff --git a/src/std/srfi/srfi-132/vqsort3.scm b/src/std/v0.19-TODIE/srfi/srfi-132/vqsort3.scm similarity index 100% rename from src/std/srfi/srfi-132/vqsort3.scm rename to src/std/v0.19-TODIE/srfi/srfi-132/vqsort3.scm diff --git a/src/std/srfi/srfi-133.scm b/src/std/v0.19-TODIE/srfi/srfi-133.scm similarity index 100% rename from src/std/srfi/srfi-133.scm rename to src/std/v0.19-TODIE/srfi/srfi-133.scm diff --git a/src/std/srfi/srfi-134.scm b/src/std/v0.19-TODIE/srfi/srfi-134.scm similarity index 100% rename from src/std/srfi/srfi-134.scm rename to src/std/v0.19-TODIE/srfi/srfi-134.scm diff --git a/src/std/srfi/srfi-135/binary.scm b/src/std/v0.19-TODIE/srfi/srfi-135/binary.scm similarity index 100% rename from src/std/srfi/srfi-135/binary.scm rename to src/std/v0.19-TODIE/srfi/srfi-135/binary.scm diff --git a/src/std/srfi/srfi-135/binary.ss b/src/std/v0.19-TODIE/srfi/srfi-135/binary.ss similarity index 100% rename from src/std/srfi/srfi-135/binary.ss rename to src/std/v0.19-TODIE/srfi/srfi-135/binary.ss diff --git a/src/std/srfi/srfi-135/etc.ss b/src/std/v0.19-TODIE/srfi/srfi-135/etc.ss similarity index 100% rename from src/std/srfi/srfi-135/etc.ss rename to src/std/v0.19-TODIE/srfi/srfi-135/etc.ss diff --git a/src/std/srfi/srfi-135/kernel8.scm b/src/std/v0.19-TODIE/srfi/srfi-135/kernel8.scm similarity index 100% rename from src/std/srfi/srfi-135/kernel8.scm rename to src/std/v0.19-TODIE/srfi/srfi-135/kernel8.scm diff --git a/src/std/srfi/srfi-135/kernel8.ss b/src/std/v0.19-TODIE/srfi/srfi-135/kernel8.ss similarity index 100% rename from src/std/srfi/srfi-135/kernel8.ss rename to src/std/v0.19-TODIE/srfi/srfi-135/kernel8.ss diff --git a/src/std/srfi/srfi-135/macros.scm b/src/std/v0.19-TODIE/srfi/srfi-135/macros.scm similarity index 100% rename from src/std/srfi/srfi-135/macros.scm rename to src/std/v0.19-TODIE/srfi/srfi-135/macros.scm diff --git a/src/std/srfi/srfi-135/macros.ss b/src/std/v0.19-TODIE/srfi/srfi-135/macros.ss similarity index 100% rename from src/std/srfi/srfi-135/macros.ss rename to src/std/v0.19-TODIE/srfi/srfi-135/macros.ss diff --git a/src/std/srfi/srfi-135/text.scm b/src/std/v0.19-TODIE/srfi/srfi-135/text.scm similarity index 100% rename from src/std/srfi/srfi-135/text.scm rename to src/std/v0.19-TODIE/srfi/srfi-135/text.scm diff --git a/src/std/srfi/srfi-135/text.ss b/src/std/v0.19-TODIE/srfi/srfi-135/text.ss similarity index 100% rename from src/std/srfi/srfi-135/text.ss rename to src/std/v0.19-TODIE/srfi/srfi-135/text.ss diff --git a/src/std/srfi/srfi-14.scm b/src/std/v0.19-TODIE/srfi/srfi-14.scm similarity index 100% rename from src/std/srfi/srfi-14.scm rename to src/std/v0.19-TODIE/srfi/srfi-14.scm diff --git a/src/std/srfi/srfi-143/carries.scm b/src/std/v0.19-TODIE/srfi/srfi-143/carries.scm similarity index 100% rename from src/std/srfi/srfi-143/carries.scm rename to src/std/v0.19-TODIE/srfi/srfi-143/carries.scm diff --git a/src/std/srfi/srfi-144/144.body.scm b/src/std/v0.19-TODIE/srfi/srfi-144/144.body.scm similarity index 100% rename from src/std/srfi/srfi-144/144.body.scm rename to src/std/v0.19-TODIE/srfi/srfi-144/144.body.scm diff --git a/src/std/srfi/srfi-144/144.body0.scm b/src/std/v0.19-TODIE/srfi/srfi-144/144.body0.scm similarity index 100% rename from src/std/srfi/srfi-144/144.body0.scm rename to src/std/v0.19-TODIE/srfi/srfi-144/144.body0.scm diff --git a/src/std/srfi/srfi-144/144.constants.scm b/src/std/v0.19-TODIE/srfi/srfi-144/144.constants.scm similarity index 100% rename from src/std/srfi/srfi-144/144.constants.scm rename to src/std/v0.19-TODIE/srfi/srfi-144/144.constants.scm diff --git a/src/std/srfi/srfi-144/144.special.scm b/src/std/v0.19-TODIE/srfi/srfi-144/144.special.scm similarity index 100% rename from src/std/srfi/srfi-144/144.special.scm rename to src/std/v0.19-TODIE/srfi/srfi-144/144.special.scm diff --git a/src/std/srfi/srfi-146.scm b/src/std/v0.19-TODIE/srfi/srfi-146.scm similarity index 100% rename from src/std/srfi/srfi-146.scm rename to src/std/v0.19-TODIE/srfi/srfi-146.scm diff --git a/src/std/srfi/srfi-151/bitwise-33.scm b/src/std/v0.19-TODIE/srfi/srfi-151/bitwise-33.scm similarity index 100% rename from src/std/srfi/srfi-151/bitwise-33.scm rename to src/std/v0.19-TODIE/srfi/srfi-151/bitwise-33.scm diff --git a/src/std/srfi/srfi-151/bitwise-60.scm b/src/std/v0.19-TODIE/srfi/srfi-151/bitwise-60.scm similarity index 100% rename from src/std/srfi/srfi-151/bitwise-60.scm rename to src/std/v0.19-TODIE/srfi/srfi-151/bitwise-60.scm diff --git a/src/std/srfi/srfi-151/bitwise-core.scm b/src/std/v0.19-TODIE/srfi/srfi-151/bitwise-core.scm similarity index 100% rename from src/std/srfi/srfi-151/bitwise-core.scm rename to src/std/v0.19-TODIE/srfi/srfi-151/bitwise-core.scm diff --git a/src/std/srfi/srfi-151/bitwise-other.scm b/src/std/v0.19-TODIE/srfi/srfi-151/bitwise-other.scm similarity index 100% rename from src/std/srfi/srfi-151/bitwise-other.scm rename to src/std/v0.19-TODIE/srfi/srfi-151/bitwise-other.scm diff --git a/src/std/srfi/srfi-158.scm b/src/std/v0.19-TODIE/srfi/srfi-158.scm similarity index 100% rename from src/std/srfi/srfi-158.scm rename to src/std/v0.19-TODIE/srfi/srfi-158.scm diff --git a/src/std/srfi/srfi-19.scm b/src/std/v0.19-TODIE/srfi/srfi-19.scm similarity index 100% rename from src/std/srfi/srfi-19.scm rename to src/std/v0.19-TODIE/srfi/srfi-19.scm diff --git a/src/std/srfi/srfi-41.scm b/src/std/v0.19-TODIE/srfi/srfi-41.scm similarity index 100% rename from src/std/srfi/srfi-41.scm rename to src/std/v0.19-TODIE/srfi/srfi-41.scm diff --git a/src/std/srfi/srfi-42.scm b/src/std/v0.19-TODIE/srfi/srfi-42.scm similarity index 100% rename from src/std/srfi/srfi-42.scm rename to src/std/v0.19-TODIE/srfi/srfi-42.scm diff --git a/src/std/srfi/srfi-43.scm b/src/std/v0.19-TODIE/srfi/srfi-43.scm similarity index 100% rename from src/std/srfi/srfi-43.scm rename to src/std/v0.19-TODIE/srfi/srfi-43.scm diff --git a/src/std/srfi/srfi-78.scm b/src/std/v0.19-TODIE/srfi/srfi-78.scm similarity index 100% rename from src/std/srfi/srfi-78.scm rename to src/std/v0.19-TODIE/srfi/srfi-78.scm diff --git a/src/std/srfi/srfi-95.scm b/src/std/v0.19-TODIE/srfi/srfi-95.scm similarity index 100% rename from src/std/srfi/srfi-95.scm rename to src/std/v0.19-TODIE/srfi/srfi-95.scm diff --git a/src/std/srfi/srfi-support.ss b/src/std/v0.19-TODIE/srfi/srfi-support.ss similarity index 100% rename from src/std/srfi/srfi-support.ss rename to src/std/v0.19-TODIE/srfi/srfi-support.ss diff --git a/src/std/sugar-test.ss b/src/std/v0.19-TODIE/sugar-test.ss similarity index 100% rename from src/std/sugar-test.ss rename to src/std/v0.19-TODIE/sugar-test.ss diff --git a/src/std/sugar.ss b/src/std/v0.19-TODIE/sugar.ss similarity index 100% rename from src/std/sugar.ss rename to src/std/v0.19-TODIE/sugar.ss diff --git a/src/std/web/fastcgi-test.ss b/src/std/v0.19-TODIE/web/fastcgi-test.ss similarity index 100% rename from src/std/web/fastcgi-test.ss rename to src/std/v0.19-TODIE/web/fastcgi-test.ss diff --git a/src/std/web/fastcgi.ss b/src/std/v0.19-TODIE/web/fastcgi.ss similarity index 100% rename from src/std/web/fastcgi.ss rename to src/std/v0.19-TODIE/web/fastcgi.ss diff --git a/src/std/web/rack-test.ss b/src/std/v0.19-TODIE/web/rack-test.ss similarity index 100% rename from src/std/web/rack-test.ss rename to src/std/v0.19-TODIE/web/rack-test.ss diff --git a/src/std/web/rack.ss b/src/std/v0.19-TODIE/web/rack.ss similarity index 100% rename from src/std/web/rack.ss rename to src/std/v0.19-TODIE/web/rack.ss diff --git a/src/std/xml.ss b/src/std/v0.19-TODIE/xml.ss similarity index 100% rename from src/std/xml.ss rename to src/std/v0.19-TODIE/xml.ss diff --git a/src/std/actor-v18/admin-test.ss b/src/std/v0.19-TODO/actor-v18/admin-test.ss similarity index 100% rename from src/std/actor-v18/admin-test.ss rename to src/std/v0.19-TODO/actor-v18/admin-test.ss diff --git a/src/std/actor-v18/admin.ss b/src/std/v0.19-TODO/actor-v18/admin.ss similarity index 100% rename from src/std/actor-v18/admin.ss rename to src/std/v0.19-TODO/actor-v18/admin.ss diff --git a/src/std/actor-v18/api.ss b/src/std/v0.19-TODO/actor-v18/api.ss similarity index 100% rename from src/std/actor-v18/api.ss rename to src/std/v0.19-TODO/actor-v18/api.ss diff --git a/src/std/actor-v18/connection.ss b/src/std/v0.19-TODO/actor-v18/connection.ss similarity index 100% rename from src/std/actor-v18/connection.ss rename to src/std/v0.19-TODO/actor-v18/connection.ss diff --git a/src/std/actor-v18/cookie.ss b/src/std/v0.19-TODO/actor-v18/cookie.ss similarity index 100% rename from src/std/actor-v18/cookie.ss rename to src/std/v0.19-TODO/actor-v18/cookie.ss diff --git a/src/std/actor-v18/ensemble-config.ss b/src/std/v0.19-TODO/actor-v18/ensemble-config.ss similarity index 100% rename from src/std/actor-v18/ensemble-config.ss rename to src/std/v0.19-TODO/actor-v18/ensemble-config.ss diff --git a/src/std/actor-v18/ensemble-server.ss b/src/std/v0.19-TODO/actor-v18/ensemble-server.ss similarity index 100% rename from src/std/actor-v18/ensemble-server.ss rename to src/std/v0.19-TODO/actor-v18/ensemble-server.ss diff --git a/src/std/actor-v18/ensemble-supervisor.ss b/src/std/v0.19-TODO/actor-v18/ensemble-supervisor.ss similarity index 100% rename from src/std/actor-v18/ensemble-supervisor.ss rename to src/std/v0.19-TODO/actor-v18/ensemble-supervisor.ss diff --git a/src/std/actor-v18/ensemble-test.ss b/src/std/v0.19-TODO/actor-v18/ensemble-test.ss similarity index 100% rename from src/std/actor-v18/ensemble-test.ss rename to src/std/v0.19-TODO/actor-v18/ensemble-test.ss diff --git a/src/std/actor-v18/ensemble-util.ss b/src/std/v0.19-TODO/actor-v18/ensemble-util.ss similarity index 100% rename from src/std/actor-v18/ensemble-util.ss rename to src/std/v0.19-TODO/actor-v18/ensemble-util.ss diff --git a/src/std/actor-v18/ensemble.ss b/src/std/v0.19-TODO/actor-v18/ensemble.ss similarity index 100% rename from src/std/actor-v18/ensemble.ss rename to src/std/v0.19-TODO/actor-v18/ensemble.ss diff --git a/src/std/actor-v18/executor.ss b/src/std/v0.19-TODO/actor-v18/executor.ss similarity index 100% rename from src/std/actor-v18/executor.ss rename to src/std/v0.19-TODO/actor-v18/executor.ss diff --git a/src/std/actor-v18/filesystem.ss b/src/std/v0.19-TODO/actor-v18/filesystem.ss similarity index 100% rename from src/std/actor-v18/filesystem.ss rename to src/std/v0.19-TODO/actor-v18/filesystem.ss diff --git a/src/std/actor-v18/io-test.ss b/src/std/v0.19-TODO/actor-v18/io-test.ss similarity index 100% rename from src/std/actor-v18/io-test.ss rename to src/std/v0.19-TODO/actor-v18/io-test.ss diff --git a/src/std/actor-v18/io.ss b/src/std/v0.19-TODO/actor-v18/io.ss similarity index 100% rename from src/std/actor-v18/io.ss rename to src/std/v0.19-TODO/actor-v18/io.ss diff --git a/src/std/actor-v18/loader-test-server.ss b/src/std/v0.19-TODO/actor-v18/loader-test-server.ss similarity index 100% rename from src/std/actor-v18/loader-test-server.ss rename to src/std/v0.19-TODO/actor-v18/loader-test-server.ss diff --git a/src/std/actor-v18/loader-test-support.ss b/src/std/v0.19-TODO/actor-v18/loader-test-support.ss similarity index 100% rename from src/std/actor-v18/loader-test-support.ss rename to src/std/v0.19-TODO/actor-v18/loader-test-support.ss diff --git a/src/std/actor-v18/loader-test.ss b/src/std/v0.19-TODO/actor-v18/loader-test.ss similarity index 100% rename from src/std/actor-v18/loader-test.ss rename to src/std/v0.19-TODO/actor-v18/loader-test.ss diff --git a/src/std/actor-v18/loader.ss b/src/std/v0.19-TODO/actor-v18/loader.ss similarity index 100% rename from src/std/actor-v18/loader.ss rename to src/std/v0.19-TODO/actor-v18/loader.ss diff --git a/src/std/actor-v18/logger.ss b/src/std/v0.19-TODO/actor-v18/logger.ss similarity index 100% rename from src/std/actor-v18/logger.ss rename to src/std/v0.19-TODO/actor-v18/logger.ss diff --git a/src/std/actor-v18/message-test.ss b/src/std/v0.19-TODO/actor-v18/message-test.ss similarity index 100% rename from src/std/actor-v18/message-test.ss rename to src/std/v0.19-TODO/actor-v18/message-test.ss diff --git a/src/std/actor-v18/message.ss b/src/std/v0.19-TODO/actor-v18/message.ss similarity index 100% rename from src/std/actor-v18/message.ss rename to src/std/v0.19-TODO/actor-v18/message.ss diff --git a/src/std/actor-v18/path.ss b/src/std/v0.19-TODO/actor-v18/path.ss similarity index 100% rename from src/std/actor-v18/path.ss rename to src/std/v0.19-TODO/actor-v18/path.ss diff --git a/src/std/actor-v18/proto.ss b/src/std/v0.19-TODO/actor-v18/proto.ss similarity index 100% rename from src/std/actor-v18/proto.ss rename to src/std/v0.19-TODO/actor-v18/proto.ss diff --git a/src/std/actor-v18/registry.ss b/src/std/v0.19-TODO/actor-v18/registry.ss similarity index 100% rename from src/std/actor-v18/registry.ss rename to src/std/v0.19-TODO/actor-v18/registry.ss diff --git a/src/std/actor-v18/server-identifier.ss b/src/std/v0.19-TODO/actor-v18/server-identifier.ss similarity index 100% rename from src/std/actor-v18/server-identifier.ss rename to src/std/v0.19-TODO/actor-v18/server-identifier.ss diff --git a/src/std/actor-v18/server-test.ss b/src/std/v0.19-TODO/actor-v18/server-test.ss similarity index 100% rename from src/std/actor-v18/server-test.ss rename to src/std/v0.19-TODO/actor-v18/server-test.ss diff --git a/src/std/actor-v18/server.ss b/src/std/v0.19-TODO/actor-v18/server.ss similarity index 100% rename from src/std/actor-v18/server.ss rename to src/std/v0.19-TODO/actor-v18/server.ss diff --git a/src/std/actor-v18/supervisor.ss b/src/std/v0.19-TODO/actor-v18/supervisor.ss similarity index 100% rename from src/std/actor-v18/supervisor.ss rename to src/std/v0.19-TODO/actor-v18/supervisor.ss diff --git a/src/std/actor-v18/test-util.ss b/src/std/v0.19-TODO/actor-v18/test-util.ss similarity index 100% rename from src/std/actor-v18/test-util.ss rename to src/std/v0.19-TODO/actor-v18/test-util.ss diff --git a/src/std/actor-v18/tls-test.ss b/src/std/v0.19-TODO/actor-v18/tls-test.ss similarity index 100% rename from src/std/actor-v18/tls-test.ss rename to src/std/v0.19-TODO/actor-v18/tls-test.ss diff --git a/src/std/actor-v18/tls.ss b/src/std/v0.19-TODO/actor-v18/tls.ss similarity index 100% rename from src/std/actor-v18/tls.ss rename to src/std/v0.19-TODO/actor-v18/tls.ss diff --git a/src/std/actor.ss b/src/std/v0.19-TODO/actor.ss similarity index 100% rename from src/std/actor.ss rename to src/std/v0.19-TODO/actor.ss diff --git a/src/std/assert-test.ss b/src/std/v0.19-TODO/assert-test.ss similarity index 100% rename from src/std/assert-test.ss rename to src/std/v0.19-TODO/assert-test.ss diff --git a/src/std/assert.ss b/src/std/v0.19-TODO/assert.ss similarity index 100% rename from src/std/assert.ss rename to src/std/v0.19-TODO/assert.ss diff --git a/src/std/cli/getopt.ss b/src/std/v0.19-TODO/cli/getopt.ss similarity index 100% rename from src/std/cli/getopt.ss rename to src/std/v0.19-TODO/cli/getopt.ss diff --git a/src/std/cli/multicall.ss b/src/std/v0.19-TODO/cli/multicall.ss similarity index 100% rename from src/std/cli/multicall.ss rename to src/std/v0.19-TODO/cli/multicall.ss diff --git a/src/std/cli/print-exit.ss b/src/std/v0.19-TODO/cli/print-exit.ss similarity index 100% rename from src/std/cli/print-exit.ss rename to src/std/v0.19-TODO/cli/print-exit.ss diff --git a/src/std/cli/shell-test.ss b/src/std/v0.19-TODO/cli/shell-test.ss similarity index 100% rename from src/std/cli/shell-test.ss rename to src/std/v0.19-TODO/cli/shell-test.ss diff --git a/src/std/cli/shell.ss b/src/std/v0.19-TODO/cli/shell.ss similarity index 100% rename from src/std/cli/shell.ss rename to src/std/v0.19-TODO/cli/shell.ss diff --git a/src/std/config.ss b/src/std/v0.19-TODO/config.ss similarity index 100% rename from src/std/config.ss rename to src/std/v0.19-TODO/config.ss diff --git a/src/std/coroutine-test.ss b/src/std/v0.19-TODO/coroutine-test.ss similarity index 100% rename from src/std/coroutine-test.ss rename to src/std/v0.19-TODO/coroutine-test.ss diff --git a/src/std/coroutine.ss b/src/std/v0.19-TODO/coroutine.ss similarity index 100% rename from src/std/coroutine.ss rename to src/std/v0.19-TODO/coroutine.ss diff --git a/src/std/crypto-test.ss b/src/std/v0.19-TODO/crypto-test.ss similarity index 100% rename from src/std/crypto-test.ss rename to src/std/v0.19-TODO/crypto-test.ss diff --git a/src/std/crypto.ss b/src/std/v0.19-TODO/crypto.ss similarity index 100% rename from src/std/crypto.ss rename to src/std/v0.19-TODO/crypto.ss diff --git a/src/std/crypto/bn.ss b/src/std/v0.19-TODO/crypto/bn.ss similarity index 100% rename from src/std/crypto/bn.ss rename to src/std/v0.19-TODO/crypto/bn.ss diff --git a/src/std/crypto/cipher.ss b/src/std/v0.19-TODO/crypto/cipher.ss similarity index 100% rename from src/std/crypto/cipher.ss rename to src/std/v0.19-TODO/crypto/cipher.ss diff --git a/src/std/crypto/dh.ss b/src/std/v0.19-TODO/crypto/dh.ss similarity index 100% rename from src/std/crypto/dh.ss rename to src/std/v0.19-TODO/crypto/dh.ss diff --git a/src/std/crypto/digest-test.ss b/src/std/v0.19-TODO/crypto/digest-test.ss similarity index 100% rename from src/std/crypto/digest-test.ss rename to src/std/v0.19-TODO/crypto/digest-test.ss diff --git a/src/std/crypto/digest.ss b/src/std/v0.19-TODO/crypto/digest.ss similarity index 100% rename from src/std/crypto/digest.ss rename to src/std/v0.19-TODO/crypto/digest.ss diff --git a/src/std/crypto/etc.ss b/src/std/v0.19-TODO/crypto/etc.ss similarity index 100% rename from src/std/crypto/etc.ss rename to src/std/v0.19-TODO/crypto/etc.ss diff --git a/src/std/crypto/hmac.ss b/src/std/v0.19-TODO/crypto/hmac.ss similarity index 100% rename from src/std/crypto/hmac.ss rename to src/std/v0.19-TODO/crypto/hmac.ss diff --git a/src/std/crypto/kdf.ss b/src/std/v0.19-TODO/crypto/kdf.ss similarity index 100% rename from src/std/crypto/kdf.ss rename to src/std/v0.19-TODO/crypto/kdf.ss diff --git a/src/std/crypto/libcrypto-rfc5114.c b/src/std/v0.19-TODO/crypto/libcrypto-rfc5114.c similarity index 100% rename from src/std/crypto/libcrypto-rfc5114.c rename to src/std/v0.19-TODO/crypto/libcrypto-rfc5114.c diff --git a/src/std/crypto/libcrypto.ss b/src/std/v0.19-TODO/crypto/libcrypto.ss similarity index 100% rename from src/std/crypto/libcrypto.ss rename to src/std/v0.19-TODO/crypto/libcrypto.ss diff --git a/src/std/crypto/pkey-test.ss b/src/std/v0.19-TODO/crypto/pkey-test.ss similarity index 100% rename from src/std/crypto/pkey-test.ss rename to src/std/v0.19-TODO/crypto/pkey-test.ss diff --git a/src/std/crypto/pkey.ss b/src/std/v0.19-TODO/crypto/pkey.ss similarity index 100% rename from src/std/crypto/pkey.ss rename to src/std/v0.19-TODO/crypto/pkey.ss diff --git a/src/std/db/_sqlite.scm b/src/std/v0.19-TODO/db/_sqlite.scm similarity index 100% rename from src/std/db/_sqlite.scm rename to src/std/v0.19-TODO/db/_sqlite.scm diff --git a/src/std/db/_sqlite.ssi b/src/std/v0.19-TODO/db/_sqlite.ssi similarity index 100% rename from src/std/db/_sqlite.ssi rename to src/std/v0.19-TODO/db/_sqlite.ssi diff --git a/src/std/db/conpool.ss b/src/std/v0.19-TODO/db/conpool.ss similarity index 100% rename from src/std/db/conpool.ss rename to src/std/v0.19-TODO/db/conpool.ss diff --git a/src/std/db/dbi.ss b/src/std/v0.19-TODO/db/dbi.ss similarity index 100% rename from src/std/db/dbi.ss rename to src/std/v0.19-TODO/db/dbi.ss diff --git a/src/std/db/postgresql-driver.ss b/src/std/v0.19-TODO/db/postgresql-driver.ss similarity index 100% rename from src/std/db/postgresql-driver.ss rename to src/std/v0.19-TODO/db/postgresql-driver.ss diff --git a/src/std/db/postgresql-test.ss b/src/std/v0.19-TODO/db/postgresql-test.ss similarity index 100% rename from src/std/db/postgresql-test.ss rename to src/std/v0.19-TODO/db/postgresql-test.ss diff --git a/src/std/db/postgresql.ss b/src/std/v0.19-TODO/db/postgresql.ss similarity index 100% rename from src/std/db/postgresql.ss rename to src/std/v0.19-TODO/db/postgresql.ss diff --git a/src/std/db/sqlite-test.ss b/src/std/v0.19-TODO/db/sqlite-test.ss similarity index 100% rename from src/std/db/sqlite-test.ss rename to src/std/v0.19-TODO/db/sqlite-test.ss diff --git a/src/std/db/sqlite.ss b/src/std/v0.19-TODO/db/sqlite.ss similarity index 100% rename from src/std/db/sqlite.ss rename to src/std/v0.19-TODO/db/sqlite.ss diff --git a/src/std/debug/DBG.ss b/src/std/v0.19-TODO/debug/DBG.ss similarity index 100% rename from src/std/debug/DBG.ss rename to src/std/v0.19-TODO/debug/DBG.ss diff --git a/src/std/debug/heap.ss b/src/std/v0.19-TODO/debug/heap.ss similarity index 100% rename from src/std/debug/heap.ss rename to src/std/v0.19-TODO/debug/heap.ss diff --git a/src/std/debug/memleak.ss b/src/std/v0.19-TODO/debug/memleak.ss similarity index 100% rename from src/std/debug/memleak.ss rename to src/std/v0.19-TODO/debug/memleak.ss diff --git a/src/std/debug/threads.ss b/src/std/v0.19-TODO/debug/threads.ss similarity index 100% rename from src/std/debug/threads.ss rename to src/std/v0.19-TODO/debug/threads.ss diff --git a/src/std/hash-table.ss b/src/std/v0.19-TODO/hash-table.ss similarity index 100% rename from src/std/hash-table.ss rename to src/std/v0.19-TODO/hash-table.ss diff --git a/src/std/instance-test.ss b/src/std/v0.19-TODO/instance-test.ss similarity index 100% rename from src/std/instance-test.ss rename to src/std/v0.19-TODO/instance-test.ss diff --git a/src/std/instance.ss b/src/std/v0.19-TODO/instance.ss similarity index 100% rename from src/std/instance.ss rename to src/std/v0.19-TODO/instance.ss diff --git a/src/std/iter-test.ss b/src/std/v0.19-TODO/iter-test.ss similarity index 100% rename from src/std/iter-test.ss rename to src/std/v0.19-TODO/iter-test.ss diff --git a/src/std/iter.ss b/src/std/v0.19-TODO/iter.ss similarity index 100% rename from src/std/iter.ss rename to src/std/v0.19-TODO/iter.ss diff --git a/src/std/markup/README.org b/src/std/v0.19-TODO/markup/README.org similarity index 100% rename from src/std/markup/README.org rename to src/std/v0.19-TODO/markup/README.org diff --git a/src/std/markup/html.ss b/src/std/v0.19-TODO/markup/html.ss similarity index 100% rename from src/std/markup/html.ss rename to src/std/v0.19-TODO/markup/html.ss diff --git a/src/std/markup/sxml-test.ss b/src/std/v0.19-TODO/markup/sxml-test.ss similarity index 100% rename from src/std/markup/sxml-test.ss rename to src/std/v0.19-TODO/markup/sxml-test.ss diff --git a/src/std/markup/sxml.ss b/src/std/v0.19-TODO/markup/sxml.ss similarity index 100% rename from src/std/markup/sxml.ss rename to src/std/v0.19-TODO/markup/sxml.ss diff --git a/src/std/markup/sxml/README.org b/src/std/v0.19-TODO/markup/sxml/README.org similarity index 100% rename from src/std/markup/sxml/README.org rename to src/std/v0.19-TODO/markup/sxml/README.org diff --git a/src/std/markup/sxml/html/README.org b/src/std/v0.19-TODO/markup/sxml/html/README.org similarity index 100% rename from src/std/markup/sxml/html/README.org rename to src/std/v0.19-TODO/markup/sxml/html/README.org diff --git a/src/std/markup/sxml/html/html-parser.scm b/src/std/v0.19-TODO/markup/sxml/html/html-parser.scm similarity index 100% rename from src/std/markup/sxml/html/html-parser.scm rename to src/std/v0.19-TODO/markup/sxml/html/html-parser.scm diff --git a/src/std/markup/sxml/html/parser.ss b/src/std/v0.19-TODO/markup/sxml/html/parser.ss similarity index 100% rename from src/std/markup/sxml/html/parser.ss rename to src/std/v0.19-TODO/markup/sxml/html/parser.ss diff --git a/src/std/markup/sxml/html/tal.ss b/src/std/v0.19-TODO/markup/sxml/html/tal.ss similarity index 100% rename from src/std/markup/sxml/html/tal.ss rename to src/std/v0.19-TODO/markup/sxml/html/tal.ss diff --git a/src/std/markup/sxml/oleg/README.md b/src/std/v0.19-TODO/markup/sxml/oleg/README.md similarity index 100% rename from src/std/markup/sxml/oleg/README.md rename to src/std/v0.19-TODO/markup/sxml/oleg/README.md diff --git a/src/std/markup/sxml/oleg/SSAX.scm b/src/std/v0.19-TODO/markup/sxml/oleg/SSAX.scm similarity index 100% rename from src/std/markup/sxml/oleg/SSAX.scm rename to src/std/v0.19-TODO/markup/sxml/oleg/SSAX.scm diff --git a/src/std/markup/sxml/oleg/SXPath.scm b/src/std/v0.19-TODO/markup/sxml/oleg/SXPath.scm similarity index 100% rename from src/std/markup/sxml/oleg/SXPath.scm rename to src/std/v0.19-TODO/markup/sxml/oleg/SXPath.scm diff --git a/src/std/markup/sxml/oleg/char-encoding.scm b/src/std/v0.19-TODO/markup/sxml/oleg/char-encoding.scm similarity index 100% rename from src/std/markup/sxml/oleg/char-encoding.scm rename to src/std/v0.19-TODO/markup/sxml/oleg/char-encoding.scm diff --git a/src/std/markup/sxml/oleg/define-opt.scm b/src/std/v0.19-TODO/markup/sxml/oleg/define-opt.scm similarity index 100% rename from src/std/markup/sxml/oleg/define-opt.scm rename to src/std/v0.19-TODO/markup/sxml/oleg/define-opt.scm diff --git a/src/std/markup/sxml/oleg/input-parse.scm b/src/std/v0.19-TODO/markup/sxml/oleg/input-parse.scm similarity index 100% rename from src/std/markup/sxml/oleg/input-parse.scm rename to src/std/v0.19-TODO/markup/sxml/oleg/input-parse.scm diff --git a/src/std/markup/sxml/oleg/look-for-str.scm b/src/std/v0.19-TODO/markup/sxml/oleg/look-for-str.scm similarity index 100% rename from src/std/markup/sxml/oleg/look-for-str.scm rename to src/std/v0.19-TODO/markup/sxml/oleg/look-for-str.scm diff --git a/src/std/markup/sxml/oleg/myenv-gerbil.scm b/src/std/v0.19-TODO/markup/sxml/oleg/myenv-gerbil.scm similarity index 100% rename from src/std/markup/sxml/oleg/myenv-gerbil.scm rename to src/std/v0.19-TODO/markup/sxml/oleg/myenv-gerbil.scm diff --git a/src/std/markup/sxml/oleg/parser-errors-vanilla.scm b/src/std/v0.19-TODO/markup/sxml/oleg/parser-errors-vanilla.scm similarity index 100% rename from src/std/markup/sxml/oleg/parser-errors-vanilla.scm rename to src/std/v0.19-TODO/markup/sxml/oleg/parser-errors-vanilla.scm diff --git a/src/std/markup/sxml/print.ss b/src/std/v0.19-TODO/markup/sxml/print.ss similarity index 100% rename from src/std/markup/sxml/print.ss rename to src/std/v0.19-TODO/markup/sxml/print.ss diff --git a/src/std/markup/sxml/ssax.ss b/src/std/v0.19-TODO/markup/sxml/ssax.ss similarity index 100% rename from src/std/markup/sxml/ssax.ss rename to src/std/v0.19-TODO/markup/sxml/ssax.ss diff --git a/src/std/markup/sxml/sxml-inf.ss b/src/std/v0.19-TODO/markup/sxml/sxml-inf.ss similarity index 100% rename from src/std/markup/sxml/sxml-inf.ss rename to src/std/v0.19-TODO/markup/sxml/sxml-inf.ss diff --git a/src/std/markup/sxml/sxpath.ss b/src/std/v0.19-TODO/markup/sxml/sxpath.ss similarity index 100% rename from src/std/markup/sxml/sxpath.ss rename to src/std/v0.19-TODO/markup/sxml/sxpath.ss diff --git a/src/std/markup/sxml/tal/README.org b/src/std/v0.19-TODO/markup/sxml/tal/README.org similarity index 100% rename from src/std/markup/sxml/tal/README.org rename to src/std/v0.19-TODO/markup/sxml/tal/README.org diff --git a/src/std/markup/sxml/tal/expander.ss b/src/std/v0.19-TODO/markup/sxml/tal/expander.ss similarity index 100% rename from src/std/markup/sxml/tal/expander.ss rename to src/std/v0.19-TODO/markup/sxml/tal/expander.ss diff --git a/src/std/markup/sxml/tal/iter.ss b/src/std/v0.19-TODO/markup/sxml/tal/iter.ss similarity index 100% rename from src/std/markup/sxml/tal/iter.ss rename to src/std/v0.19-TODO/markup/sxml/tal/iter.ss diff --git a/src/std/markup/sxml/tal/parser.ss b/src/std/v0.19-TODO/markup/sxml/tal/parser.ss similarity index 100% rename from src/std/markup/sxml/tal/parser.ss rename to src/std/v0.19-TODO/markup/sxml/tal/parser.ss diff --git a/src/std/markup/sxml/tal/syntax.ss b/src/std/v0.19-TODO/markup/sxml/tal/syntax.ss similarity index 100% rename from src/std/markup/sxml/tal/syntax.ss rename to src/std/v0.19-TODO/markup/sxml/tal/syntax.ss diff --git a/src/std/markup/sxml/tal/toplevel.ss b/src/std/v0.19-TODO/markup/sxml/tal/toplevel.ss similarity index 100% rename from src/std/markup/sxml/tal/toplevel.ss rename to src/std/v0.19-TODO/markup/sxml/tal/toplevel.ss diff --git a/src/std/markup/sxml/xml.org b/src/std/v0.19-TODO/markup/sxml/xml.org similarity index 100% rename from src/std/markup/sxml/xml.org rename to src/std/v0.19-TODO/markup/sxml/xml.org diff --git a/src/std/markup/sxml/xml.ss b/src/std/v0.19-TODO/markup/sxml/xml.ss similarity index 100% rename from src/std/markup/sxml/xml.ss rename to src/std/v0.19-TODO/markup/sxml/xml.ss diff --git a/src/std/markup/tal.ss b/src/std/v0.19-TODO/markup/tal.ss similarity index 100% rename from src/std/markup/tal.ss rename to src/std/v0.19-TODO/markup/tal.ss diff --git a/src/std/markup/xml.ss b/src/std/v0.19-TODO/markup/xml.ss similarity index 100% rename from src/std/markup/xml.ss rename to src/std/v0.19-TODO/markup/xml.ss diff --git a/src/std/mime/README.org b/src/std/v0.19-TODO/mime/README.org similarity index 100% rename from src/std/mime/README.org rename to src/std/v0.19-TODO/mime/README.org diff --git a/src/std/mime/mime.types b/src/std/v0.19-TODO/mime/mime.types similarity index 100% rename from src/std/mime/mime.types rename to src/std/v0.19-TODO/mime/mime.types diff --git a/src/std/mime/struct.ss b/src/std/v0.19-TODO/mime/struct.ss similarity index 100% rename from src/std/mime/struct.ss rename to src/std/v0.19-TODO/mime/struct.ss diff --git a/src/std/mime/types.ss b/src/std/v0.19-TODO/mime/types.ss similarity index 100% rename from src/std/mime/types.ss rename to src/std/v0.19-TODO/mime/types.ss diff --git a/src/std/misc/alist-test.ss b/src/std/v0.19-TODO/misc/alist/alist-test.ss similarity index 97% rename from src/std/misc/alist-test.ss rename to src/std/v0.19-TODO/misc/alist/alist-test.ss index bf1f48518f..6135105420 100644 --- a/src/std/misc/alist-test.ss +++ b/src/std/v0.19-TODO/misc/alist/alist-test.ss @@ -1,7 +1,7 @@ (export alist-test) (import - :std/error :std/misc/alist :std/test) + :std/error :std/test ./raw) (def (copy-list lst) (foldr cons '() lst)) diff --git a/src/std/v0.19-TODO/misc/alist/format.ss b/src/std/v0.19-TODO/misc/alist/format.ss new file mode 100644 index 0000000000..2219f9de35 --- /dev/null +++ b/src/std/v0.19-TODO/misc/alist/format.ss @@ -0,0 +1,17 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; alist writer +(import :std/io + :std/format/io + :std/format/ioutil + :std/text/json/io + ./wrapped) +(export #t) + +(defformatter ConcreteAList (format-walist writer wa env) + XXX + ) + +(defjson-writer ConcreteAList (write-walist-json writer wa env) + XXX + ) diff --git a/src/std/misc/alist.ss b/src/std/v0.19-TODO/misc/alist/raw.ss similarity index 97% rename from src/std/misc/alist.ss rename to src/std/v0.19-TODO/misc/alist/raw.ss index c0f05d95c9..57dd41ef3f 100644 --- a/src/std/misc/alist.ss +++ b/src/std/v0.19-TODO/misc/alist/raw.ss @@ -15,12 +15,12 @@ ;; This function checks if the list is a proper association-list. ;; ie it has the form [[key1 . val1] [key2 . val2]] -(def (alist? alist) - (match alist +(def (alist? obj) + (match obj ([] #t) - ([[sym . val] . rest] + ([[key . val] . rest] (alist? rest)) - (v #f))) + (else #f))) ;; This function transform a property list (k1 v1 k2 v2 ...) into ;; an association list ((k1 . v1) (k2 . v2) ...). diff --git a/src/std/misc/walist-test.ss b/src/std/v0.19-TODO/misc/alist/walist-test.ss similarity index 98% rename from src/std/misc/walist-test.ss rename to src/std/v0.19-TODO/misc/alist/walist-test.ss index 43f26f43f4..9bad63c3d2 100644 --- a/src/std/misc/walist-test.ss +++ b/src/std/v0.19-TODO/misc/alist/walist-test.ss @@ -1,8 +1,7 @@ (export walist-test) -(import - :std/misc/walist - :std/test) +(import :std/test + ./wrapped) (def walist-test (test-suite "test :std/misc/walist" diff --git a/src/std/v0.19-TODO/misc/alist/wrapped.ss b/src/std/v0.19-TODO/misc/alist/wrapped.ss new file mode 100644 index 0000000000..04ed111125 --- /dev/null +++ b/src/std/v0.19-TODO/misc/alist/wrapped.ss @@ -0,0 +1,323 @@ +;;; -*- Gerbil -*- +;;; © vyzo, fare +;;; wrapped associative lists + +(import :std/error + :std/string + ./alist) +(export + AList AList? + PureAList PureAList? + MutAList MutAList? + walist + walistq + walistv + walist! + walistq! + walistv! + __walist + __walistq + __walistv + __walist! + __walistq! + __walistv! + walist->list + wanull + wanullq + wanullv + wanull! + wanullq! + wanullv! + wanull? + wacollect + wacollectq + wacollectv + wacollect! + wacollectq! + wacollectv! + wacons + wacons! + wassoc + wakey? + waref + waget + waput + waput! + waremove + waremove!) + +(defclass AList () + transparent: #t) + +(defstruct ConcreteAList ((alist :- :list) (t :- :fixnum)) + print: (alist) + equal: #t) + +(defstruct (PureAList AList ConcreteAList) () + transparent: #t) +(defstruct (MutAList AList ConcreteAList) () + transparent: #t) + +(defstruct (WAList PureAList) () + name: AList + final: #t + transparent: #t + acyclic: #t) +(defstruct (WAListq PureAList) () + name: AList + final: #t + transparent: #t + acyclic: #t) +(defstruct (WAListv PureAList) () + name: AList + final: #t + transparent: #t + acyclic: #t) + +(defstruct (MutWAList MutAList) () + name: AList + final: #t + transparent: #t) +(defstruct (MutWAListq MutAList) () + name: AList + final: #t + transparent: #t) +(defstruct (MutWAListv MutAList) () + name: AList + final: #t + transparent: #t) + +;; low level constructor +(defrule (deflist proc klass t) + (def (proc (lst :- :list)) => klass + (klass lst t))) + +(deflist ___walist WAList 0) +(deflist ___walistq WAListq 1) +(deflist ___walistv WAListv 2) +(deflist ___walist! MutWAList 3) +(deflist ___walistq! MutWAListq 4) +(deflist ___walistv! MutWAListv 5) + +;; safe constructor +(defrule (deflist/check proc klass kons) + (def (proc (lst : :list)) => klass + (if (alist? lst) + (kons lst) + (raise-bad-argument proc "associative list" lst)))) + +(deflist/check walist WAList ___walist) +(deflist/check walistq WAListq ___walistq) +(deflist/check walistv WAListv ___walistv) +(deflist/check walist! MutWAList ___walist!) +(deflist/check walistq! MutWAListq ___walistq!) +(deflist/check walistv! MutWAListv ___walistv!) + +(def ___wrap + (vector + ___walist + ___walistq + ___walistv + ___walist! + ___walistq! + ___walistv!)) + +(def (___wawrap t) + (declare (not safe)) + (vector-ref ___wrap t)) + +(def ___test + (vector + equal? + eq? + eqv? + equal? + eq? + eqv?)) + +(def (___watest t) + (declare (not safe)) + (vector-ref ___test t)) + +(defrule (defcollect macro wrap) + (defrule (macro arg (... ...)) + (wrap (collect-alist arg (... ...))))) + +(defrules collect-alist () + ((_) []) + ((_ k v . rest) + (cons (cons k v) (collect-alist . rest)))) + +(defcollect wacollect __walist) +(defcollect wacollectq __walistq) +(defcollect wacollectv __walistv) +(defcollect wacollect! __walist) +(defcollect wacollectq! __walistq) +(defcollect wacollectv! __walistv) + +;; list extraction +(def walist->list ConcreteAList-alist) + +;; null constructors +(def ___wanull (___walist [])) +(def ___wanullq (___walistq [])) +(def ___wanullv (___walistv [])) + +(def (wanull) => WAList ___wanull) +(def (wanullq) => WAListq ___wanullq) +(def (wanullv) => WAListv ___wanullv) + +(def (wanull!) => MutWAList (___walist! [])) +(def (wanullq!) => MutWAListq (___walistq! [])) +(def (wanullv!) => MutWAListv (___walistv! [])) + +;; predicates +(def (wanull? obj) + (and (ConcreteAList? obj) + (using (w obj :- ConcreteAList) + (null? w.alist)))) + +;; extension constructors +(defrule (undefined-method where) + (lambda args + (raise-unsupported-method where))) + +(defrule (defalist-method (proc arg ...) + return + table + (walist-method + walistq-method + walistv-method + walist!-method + walistq!-method + walistv!-method)) + (begin + (def table + (vector + (alist-method walist-method proc walist) + (alist-method walistq-method proc walistq) + (alist-method walistv-method proc walistv) + (alist-method walist!-method proc walist!) + (alist-method walistq!-method proc walistq!) + (alist-method walistv!-method proc walistv!))) + (def (proc (w : ConcreteAList) arg ...) => return + (declare (not safe)) + (:- ((vector-ref ___acons w.t) w arg ...) return)))) + +(defrules alist-method () + ((_ undefined where method) + (underscore? #'undefined) + (undefined-method where)) + ((_ proc where method) + proc)) + +(defrule (defacons proc klass) + (def (proc (w :- klass) k v) => klass + (klass (cons (cons k v) w.alist) w.t))) + +(defacons ___walist-acons WAList) +(defacons ___walistq-acons WAListq) +(defacons ___walistv-acons WAListv) + +(defalist-method (wacons k v) + PureAList + ___acons + (___walist-acons + ___walistq-acons + ___walistv-acons + _ _ _)) + +(defrule (defacons! proc klass) + (def (proc (w :- klass) k v) + (declare (not safe)) + (set! w.alist (cons (cons k v) w.alist)) + w)) + +(defacons! ___walist-acons! MutWAList) +(defacons! ___walistq-acons! MutWAListq) +(defacons! ___walistv-acons! MutWAListv) + +(defalist-method (wacons! k v) + MutAList + ___acons! + (_ _ _ + ___walist-acons! + ___walistq-acons! + ___walistv-acons!)) + +(defrule (defassoc proc klass assf) + (def (proc (w :- klass) k) + (assf w.alist k))) + +(defassoc ___walist-assoc WAList assoc) +(defassoc ___walistq-assoc WAListq assq) +(defassoc ___walistv-assoc WAListv assv) +(defassoc ___walist!-assoc MutWAList assoc) +(defassoc ___walistq!-assoc MutWAListq assq) +(defassoc ___walistv!-assoc MutWAListv assv) + +(defalist-method (wassoc k) + :t + ___assoc + (___walist-assoc + ___walistq-assoc + ___walistv-assoc + ___walist!-assoc + ___walistq!-assoc + ___walistv!-assoc)) + +(def (wakey? (w : ConcreteAList) k) => :boolean + (if (wassoc w k) #t #f)) + +(def (waref (w : ConcreteAList) k default) + (cond + ((wassoc w k) => ##cdr) + (else default))) + +(def (waget (w : ConcreteAList) k) + (waref w k #f)) + +(def (waput (w : PureAList) k v) => PureAList + (wacons (waremove w k) k v)) + +(def (waput! (w : MutAList) k v) => MutAList + (cond + ((wassoc w k) + => (lambda ((p :- :pair)) => MutAList + (set! (cdr p) v) + w)) + (else + (wacons! w k v)))) + +(def (waremove (w : PureAList) k) => PureAList + (let (testf + (using (testf (___watest w.t) :- :procedure) + (lambda ((p :- :pair) k) + (testf (car p) k)))) + (let loop ((rest w.alist) (pre [])) + => PureAList + (match rest + ([hd . tl] + (if (testf hd k) + (using (wrap (___wawrap w.t) :- :procedure) + (:- (wrap (foldl cons tl pre)) PureAList)) + (loop tl (cons hd pre)))) + (else w))))) + +(def (waremove! (w : MutAList) k) => MutAList + (let (testf + (using (testf (___watest w.t) :- :procedure) + (lambda ((p :- :pair) k) + (testf (car p) k)))) + (using (front w.alist :- :list) + (when (pair? front) + (if (testf (car front) k) + (set! w.alist (:- (cdr front) :list)) + (let loop ((rest (cdr front)) (prev front)) + (match rest + ([hd . tl] + (if (testf hd k) + (set! (cdr prev) tl) + (loop tl rest))) + (else (void)))))) + w))) diff --git a/src/std/misc/atom-test.ss b/src/std/v0.19-TODO/misc/atom-test.ss similarity index 100% rename from src/std/misc/atom-test.ss rename to src/std/v0.19-TODO/misc/atom-test.ss diff --git a/src/std/misc/atom.ss b/src/std/v0.19-TODO/misc/atom.ss similarity index 100% rename from src/std/misc/atom.ss rename to src/std/v0.19-TODO/misc/atom.ss diff --git a/src/std/misc/barrier-test.ss b/src/std/v0.19-TODO/misc/barrier-test.ss similarity index 100% rename from src/std/misc/barrier-test.ss rename to src/std/v0.19-TODO/misc/barrier-test.ss diff --git a/src/std/misc/barrier.ss b/src/std/v0.19-TODO/misc/barrier.ss similarity index 100% rename from src/std/misc/barrier.ss rename to src/std/v0.19-TODO/misc/barrier.ss diff --git a/src/std/misc/bytes-test.ss b/src/std/v0.19-TODO/misc/bytes-test.ss similarity index 100% rename from src/std/misc/bytes-test.ss rename to src/std/v0.19-TODO/misc/bytes-test.ss diff --git a/src/std/misc/bytes.ss b/src/std/v0.19-TODO/misc/bytes.ss similarity index 100% rename from src/std/misc/bytes.ss rename to src/std/v0.19-TODO/misc/bytes.ss diff --git a/src/std/misc/channel-test.ss b/src/std/v0.19-TODO/misc/channel-test.ss similarity index 100% rename from src/std/misc/channel-test.ss rename to src/std/v0.19-TODO/misc/channel-test.ss diff --git a/src/std/misc/channel.ss b/src/std/v0.19-TODO/misc/channel.ss similarity index 100% rename from src/std/misc/channel.ss rename to src/std/v0.19-TODO/misc/channel.ss diff --git a/src/std/misc/completion-test.ss b/src/std/v0.19-TODO/misc/completion-test.ss similarity index 100% rename from src/std/misc/completion-test.ss rename to src/std/v0.19-TODO/misc/completion-test.ss diff --git a/src/std/misc/completion.ss b/src/std/v0.19-TODO/misc/completion.ss similarity index 100% rename from src/std/misc/completion.ss rename to src/std/v0.19-TODO/misc/completion.ss diff --git a/src/std/misc/concurrent-plan.ss b/src/std/v0.19-TODO/misc/concurrent-plan.ss similarity index 100% rename from src/std/misc/concurrent-plan.ss rename to src/std/v0.19-TODO/misc/concurrent-plan.ss diff --git a/src/std/misc/dag-test.ss b/src/std/v0.19-TODO/misc/dag-test.ss similarity index 100% rename from src/std/misc/dag-test.ss rename to src/std/v0.19-TODO/misc/dag-test.ss diff --git a/src/std/misc/dag.ss b/src/std/v0.19-TODO/misc/dag.ss similarity index 100% rename from src/std/misc/dag.ss rename to src/std/v0.19-TODO/misc/dag.ss diff --git a/src/std/misc/decimal-test.ss b/src/std/v0.19-TODO/misc/decimal-test.ss similarity index 100% rename from src/std/misc/decimal-test.ss rename to src/std/v0.19-TODO/misc/decimal-test.ss diff --git a/src/std/misc/decimal.ss b/src/std/v0.19-TODO/misc/decimal.ss similarity index 100% rename from src/std/misc/decimal.ss rename to src/std/v0.19-TODO/misc/decimal.ss diff --git a/src/std/misc/deque-test.ss b/src/std/v0.19-TODO/misc/deque-test.ss similarity index 100% rename from src/std/misc/deque-test.ss rename to src/std/v0.19-TODO/misc/deque-test.ss diff --git a/src/std/misc/deque.ss b/src/std/v0.19-TODO/misc/deque.ss similarity index 100% rename from src/std/misc/deque.ss rename to src/std/v0.19-TODO/misc/deque.ss diff --git a/src/std/misc/evector-test.ss b/src/std/v0.19-TODO/misc/evector-test.ss similarity index 100% rename from src/std/misc/evector-test.ss rename to src/std/v0.19-TODO/misc/evector-test.ss diff --git a/src/std/misc/evector.ss b/src/std/v0.19-TODO/misc/evector.ss similarity index 100% rename from src/std/misc/evector.ss rename to src/std/v0.19-TODO/misc/evector.ss diff --git a/src/std/misc/func-test.ss b/src/std/v0.19-TODO/misc/func-test.ss similarity index 100% rename from src/std/misc/func-test.ss rename to src/std/v0.19-TODO/misc/func-test.ss diff --git a/src/std/misc/func.ss b/src/std/v0.19-TODO/misc/func.ss similarity index 100% rename from src/std/misc/func.ss rename to src/std/v0.19-TODO/misc/func.ss diff --git a/src/std/misc/hash-test.ss b/src/std/v0.19-TODO/misc/hash-test.ss similarity index 100% rename from src/std/misc/hash-test.ss rename to src/std/v0.19-TODO/misc/hash-test.ss diff --git a/src/std/misc/hash.ss b/src/std/v0.19-TODO/misc/hash.ss similarity index 100% rename from src/std/misc/hash.ss rename to src/std/v0.19-TODO/misc/hash.ss diff --git a/src/std/misc/list-builder-test.ss b/src/std/v0.19-TODO/misc/list-builder-test.ss similarity index 100% rename from src/std/misc/list-builder-test.ss rename to src/std/v0.19-TODO/misc/list-builder-test.ss diff --git a/src/std/misc/list-builder.ss b/src/std/v0.19-TODO/misc/list-builder.ss similarity index 100% rename from src/std/misc/list-builder.ss rename to src/std/v0.19-TODO/misc/list-builder.ss diff --git a/src/std/misc/list-test.ss b/src/std/v0.19-TODO/misc/list-test.ss similarity index 100% rename from src/std/misc/list-test.ss rename to src/std/v0.19-TODO/misc/list-test.ss diff --git a/src/std/misc/list.ss b/src/std/v0.19-TODO/misc/list.ss similarity index 100% rename from src/std/misc/list.ss rename to src/std/v0.19-TODO/misc/list.ss diff --git a/src/std/misc/lru-test.ss b/src/std/v0.19-TODO/misc/lru-test.ss similarity index 100% rename from src/std/misc/lru-test.ss rename to src/std/v0.19-TODO/misc/lru-test.ss diff --git a/src/std/misc/lru.ss b/src/std/v0.19-TODO/misc/lru.ss similarity index 100% rename from src/std/misc/lru.ss rename to src/std/v0.19-TODO/misc/lru.ss diff --git a/src/std/misc/number-test.ss b/src/std/v0.19-TODO/misc/number-test.ss similarity index 100% rename from src/std/misc/number-test.ss rename to src/std/v0.19-TODO/misc/number-test.ss diff --git a/src/std/misc/number.ss b/src/std/v0.19-TODO/misc/number.ss similarity index 100% rename from src/std/misc/number.ss rename to src/std/v0.19-TODO/misc/number.ss diff --git a/src/std/misc/path-test.ss b/src/std/v0.19-TODO/misc/path-test.ss similarity index 100% rename from src/std/misc/path-test.ss rename to src/std/v0.19-TODO/misc/path-test.ss diff --git a/src/std/misc/path.ss b/src/std/v0.19-TODO/misc/path.ss similarity index 100% rename from src/std/misc/path.ss rename to src/std/v0.19-TODO/misc/path.ss diff --git a/src/std/misc/plist-test.ss b/src/std/v0.19-TODO/misc/plist-test.ss similarity index 100% rename from src/std/misc/plist-test.ss rename to src/std/v0.19-TODO/misc/plist-test.ss diff --git a/src/std/misc/plist.ss b/src/std/v0.19-TODO/misc/plist.ss similarity index 100% rename from src/std/misc/plist.ss rename to src/std/v0.19-TODO/misc/plist.ss diff --git a/src/std/misc/ports-test.data b/src/std/v0.19-TODO/misc/ports-test.data similarity index 100% rename from src/std/misc/ports-test.data rename to src/std/v0.19-TODO/misc/ports-test.data diff --git a/src/std/misc/ports-test.ss b/src/std/v0.19-TODO/misc/ports-test.ss similarity index 100% rename from src/std/misc/ports-test.ss rename to src/std/v0.19-TODO/misc/ports-test.ss diff --git a/src/std/misc/ports.ss b/src/std/v0.19-TODO/misc/ports.ss similarity index 100% rename from src/std/misc/ports.ss rename to src/std/v0.19-TODO/misc/ports.ss diff --git a/src/std/misc/pqueue-test.ss b/src/std/v0.19-TODO/misc/pqueue-test.ss similarity index 100% rename from src/std/misc/pqueue-test.ss rename to src/std/v0.19-TODO/misc/pqueue-test.ss diff --git a/src/std/misc/pqueue.ss b/src/std/v0.19-TODO/misc/pqueue.ss similarity index 100% rename from src/std/misc/pqueue.ss rename to src/std/v0.19-TODO/misc/pqueue.ss diff --git a/src/std/misc/prime-test.ss b/src/std/v0.19-TODO/misc/prime-test.ss similarity index 100% rename from src/std/misc/prime-test.ss rename to src/std/v0.19-TODO/misc/prime-test.ss diff --git a/src/std/misc/prime.ss b/src/std/v0.19-TODO/misc/prime.ss similarity index 100% rename from src/std/misc/prime.ss rename to src/std/v0.19-TODO/misc/prime.ss diff --git a/src/std/misc/process-test.ss b/src/std/v0.19-TODO/misc/process-test.ss similarity index 100% rename from src/std/misc/process-test.ss rename to src/std/v0.19-TODO/misc/process-test.ss diff --git a/src/std/misc/process.ss b/src/std/v0.19-TODO/misc/process.ss similarity index 100% rename from src/std/misc/process.ss rename to src/std/v0.19-TODO/misc/process.ss diff --git a/src/std/misc/queue-test.ss b/src/std/v0.19-TODO/misc/queue-test.ss similarity index 100% rename from src/std/misc/queue-test.ss rename to src/std/v0.19-TODO/misc/queue-test.ss diff --git a/src/std/misc/queue.ss b/src/std/v0.19-TODO/misc/queue.ss similarity index 100% rename from src/std/misc/queue.ss rename to src/std/v0.19-TODO/misc/queue.ss diff --git a/src/std/misc/rbtree-test.ss b/src/std/v0.19-TODO/misc/rbtree-test.ss similarity index 100% rename from src/std/misc/rbtree-test.ss rename to src/std/v0.19-TODO/misc/rbtree-test.ss diff --git a/src/std/misc/rbtree.ss b/src/std/v0.19-TODO/misc/rbtree.ss similarity index 100% rename from src/std/misc/rbtree.ss rename to src/std/v0.19-TODO/misc/rbtree.ss diff --git a/src/std/misc/repr-test.ss b/src/std/v0.19-TODO/misc/repr-test.ss similarity index 100% rename from src/std/misc/repr-test.ss rename to src/std/v0.19-TODO/misc/repr-test.ss diff --git a/src/std/misc/repr.ss b/src/std/v0.19-TODO/misc/repr.ss similarity index 100% rename from src/std/misc/repr.ss rename to src/std/v0.19-TODO/misc/repr.ss diff --git a/src/std/misc/rwlock-test.ss b/src/std/v0.19-TODO/misc/rwlock-test.ss similarity index 100% rename from src/std/misc/rwlock-test.ss rename to src/std/v0.19-TODO/misc/rwlock-test.ss diff --git a/src/std/misc/rwlock.ss b/src/std/v0.19-TODO/misc/rwlock.ss similarity index 100% rename from src/std/misc/rwlock.ss rename to src/std/v0.19-TODO/misc/rwlock.ss diff --git a/src/std/misc/shared.ss b/src/std/v0.19-TODO/misc/shared.ss similarity index 100% rename from src/std/misc/shared.ss rename to src/std/v0.19-TODO/misc/shared.ss diff --git a/src/std/misc/shuffle.ss b/src/std/v0.19-TODO/misc/shuffle.ss similarity index 100% rename from src/std/misc/shuffle.ss rename to src/std/v0.19-TODO/misc/shuffle.ss diff --git a/src/std/misc/string-test.ss b/src/std/v0.19-TODO/misc/string-test.ss similarity index 100% rename from src/std/misc/string-test.ss rename to src/std/v0.19-TODO/misc/string-test.ss diff --git a/src/std/misc/string.ss b/src/std/v0.19-TODO/misc/string.ss similarity index 100% rename from src/std/misc/string.ss rename to src/std/v0.19-TODO/misc/string.ss diff --git a/src/std/misc/symbol.ss b/src/std/v0.19-TODO/misc/symbol.ss similarity index 100% rename from src/std/misc/symbol.ss rename to src/std/v0.19-TODO/misc/symbol.ss diff --git a/src/std/misc/sync.ss b/src/std/v0.19-TODO/misc/sync.ss similarity index 100% rename from src/std/misc/sync.ss rename to src/std/v0.19-TODO/misc/sync.ss diff --git a/src/std/misc/template-test.ss b/src/std/v0.19-TODO/misc/template-test.ss similarity index 100% rename from src/std/misc/template-test.ss rename to src/std/v0.19-TODO/misc/template-test.ss diff --git a/src/std/misc/template.ss b/src/std/v0.19-TODO/misc/template.ss similarity index 100% rename from src/std/misc/template.ss rename to src/std/v0.19-TODO/misc/template.ss diff --git a/src/std/misc/text.ss b/src/std/v0.19-TODO/misc/text.ss similarity index 100% rename from src/std/misc/text.ss rename to src/std/v0.19-TODO/misc/text.ss diff --git a/src/std/misc/threads.ss b/src/std/v0.19-TODO/misc/threads.ss similarity index 100% rename from src/std/misc/threads.ss rename to src/std/v0.19-TODO/misc/threads.ss diff --git a/src/std/misc/timeout.ss b/src/std/v0.19-TODO/misc/timeout.ss similarity index 100% rename from src/std/misc/timeout.ss rename to src/std/v0.19-TODO/misc/timeout.ss diff --git a/src/std/misc/uuid.ss b/src/std/v0.19-TODO/misc/uuid.ss similarity index 100% rename from src/std/misc/uuid.ss rename to src/std/v0.19-TODO/misc/uuid.ss diff --git a/src/std/misc/vector-test.ss b/src/std/v0.19-TODO/misc/vector-test.ss similarity index 100% rename from src/std/misc/vector-test.ss rename to src/std/v0.19-TODO/misc/vector-test.ss diff --git a/src/std/misc/vector.ss b/src/std/v0.19-TODO/misc/vector.ss similarity index 100% rename from src/std/misc/vector.ss rename to src/std/v0.19-TODO/misc/vector.ss diff --git a/src/std/misc/wg.ss b/src/std/v0.19-TODO/misc/wg.ss similarity index 100% rename from src/std/misc/wg.ss rename to src/std/v0.19-TODO/misc/wg.ss diff --git a/src/std/net/address-test.ss b/src/std/v0.19-TODO/net/address-test.ss similarity index 100% rename from src/std/net/address-test.ss rename to src/std/v0.19-TODO/net/address-test.ss diff --git a/src/std/net/address.ss b/src/std/v0.19-TODO/net/address.ss similarity index 99% rename from src/std/net/address.ss rename to src/std/v0.19-TODO/net/address.ss index 6f3d634c3f..0c1969261e 100644 --- a/src/std/net/address.ss +++ b/src/std/v0.19-TODO/net/address.ss @@ -19,6 +19,8 @@ inaddr-any4 inaddr-any6 localhost4 localhost6) +XXX + (def inaddr-any4 #u8(0 0 0 0)) (def inaddr-any6 diff --git a/src/std/v0.19-TODO/net/address/address.ss b/src/std/v0.19-TODO/net/address/address.ss new file mode 100644 index 0000000000..d72c2168ba --- /dev/null +++ b/src/std/v0.19-TODO/net/address/address.ss @@ -0,0 +1,35 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; network address base types +(import XXX) +(export #t) + +(defstruct NetAddress + ((bytes :- :u8vector) + (string :- :string)) + transparent: #t + acyclic: #t) + +(defstruct (IPAddress NetAddress) () + transparent: #t + acyclic: #t) + +(defstruct (IP4Address IPAddress) () + transparent: #t + final: #t + acyclic: #t) +(defstruct (IP6Address IPAddress) () + final: #t + transparent: #t + acyclic: #t) + +(defstruct (DNSAddress NetAddress) () + final: #t + transparent: #t + acyclic: #t) + +(defstruct Address + ((net : NetAddress) + (port : :fixnum)) + transparent: #t + acyclic:: #t) diff --git a/src/std/v0.19-TODO/net/address/format.ss b/src/std/v0.19-TODO/net/address/format.ss new file mode 100644 index 0000000000..7aed8a93f0 --- /dev/null +++ b/src/std/v0.19-TODO/net/address/format.ss @@ -0,0 +1,42 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; network address io +(import :std/io + :std/io/bio/api + :std/format/io + :std/format/ioutil + :std/text/json/io + ./address) +(export #t) + +(defformatter IP4Address (format-ip4-address writer addr env) + XXX + ) + +(defformatter IP6Address (format-ip6-address writer addr env) + XXX + ) + +(defformatter DNSAddress (format-dns-address writer addr env) + XXX + ) + +(defformatter Address (format-address writer addr env) + XXX + ) + +(defjson-writer IP4Address (write-ip4-address-json writer addr env) + XXX + ) + +(defjson-writer IP6Address (write-ip6-address-json writer addr env) + XXX + ) + +(defjson-writer DNSAddress (write-dns-address-json writer addr env) + XXX + ) + +(defjson-writer Address (write-address-json writer addr env) + XXX + ) diff --git a/src/std/net/bio.ss b/src/std/v0.19-TODO/net/bio.ss similarity index 100% rename from src/std/net/bio.ss rename to src/std/v0.19-TODO/net/bio.ss diff --git a/src/std/net/bio/buffer.ss b/src/std/v0.19-TODO/net/bio/buffer.ss similarity index 100% rename from src/std/net/bio/buffer.ss rename to src/std/v0.19-TODO/net/bio/buffer.ss diff --git a/src/std/net/bio/file.ss b/src/std/v0.19-TODO/net/bio/file.ss similarity index 100% rename from src/std/net/bio/file.ss rename to src/std/v0.19-TODO/net/bio/file.ss diff --git a/src/std/net/bio/input.ss b/src/std/v0.19-TODO/net/bio/input.ss similarity index 100% rename from src/std/net/bio/input.ss rename to src/std/v0.19-TODO/net/bio/input.ss diff --git a/src/std/net/bio/output.ss b/src/std/v0.19-TODO/net/bio/output.ss similarity index 100% rename from src/std/net/bio/output.ss rename to src/std/v0.19-TODO/net/bio/output.ss diff --git a/src/std/net/httpd-test.ss b/src/std/v0.19-TODO/net/httpd-test.ss similarity index 100% rename from src/std/net/httpd-test.ss rename to src/std/v0.19-TODO/net/httpd-test.ss diff --git a/src/std/net/httpd.ss b/src/std/v0.19-TODO/net/httpd.ss similarity index 100% rename from src/std/net/httpd.ss rename to src/std/v0.19-TODO/net/httpd.ss diff --git a/src/std/net/httpd/api.ss b/src/std/v0.19-TODO/net/httpd/api.ss similarity index 100% rename from src/std/net/httpd/api.ss rename to src/std/v0.19-TODO/net/httpd/api.ss diff --git a/src/std/net/httpd/base.ss b/src/std/v0.19-TODO/net/httpd/base.ss similarity index 100% rename from src/std/net/httpd/base.ss rename to src/std/v0.19-TODO/net/httpd/base.ss diff --git a/src/std/net/httpd/control.ss b/src/std/v0.19-TODO/net/httpd/control.ss similarity index 100% rename from src/std/net/httpd/control.ss rename to src/std/v0.19-TODO/net/httpd/control.ss diff --git a/src/std/net/httpd/file.ss b/src/std/v0.19-TODO/net/httpd/file.ss similarity index 100% rename from src/std/net/httpd/file.ss rename to src/std/v0.19-TODO/net/httpd/file.ss diff --git a/src/std/net/httpd/handler.ss b/src/std/v0.19-TODO/net/httpd/handler.ss similarity index 100% rename from src/std/net/httpd/handler.ss rename to src/std/v0.19-TODO/net/httpd/handler.ss diff --git a/src/std/net/httpd/logger.ss b/src/std/v0.19-TODO/net/httpd/logger.ss similarity index 100% rename from src/std/net/httpd/logger.ss rename to src/std/v0.19-TODO/net/httpd/logger.ss diff --git a/src/std/net/httpd/mux.ss b/src/std/v0.19-TODO/net/httpd/mux.ss similarity index 100% rename from src/std/net/httpd/mux.ss rename to src/std/v0.19-TODO/net/httpd/mux.ss diff --git a/src/std/net/httpd/server.ss b/src/std/v0.19-TODO/net/httpd/server.ss similarity index 100% rename from src/std/net/httpd/server.ss rename to src/std/v0.19-TODO/net/httpd/server.ss diff --git a/src/std/net/json-rpc-test.ss b/src/std/v0.19-TODO/net/json-rpc-test.ss similarity index 100% rename from src/std/net/json-rpc-test.ss rename to src/std/v0.19-TODO/net/json-rpc-test.ss diff --git a/src/std/net/json-rpc.ss b/src/std/v0.19-TODO/net/json-rpc.ss similarity index 100% rename from src/std/net/json-rpc.ss rename to src/std/v0.19-TODO/net/json-rpc.ss diff --git a/src/std/net/repl-test.ss b/src/std/v0.19-TODO/net/repl-test.ss similarity index 100% rename from src/std/net/repl-test.ss rename to src/std/v0.19-TODO/net/repl-test.ss diff --git a/src/std/net/repl.ss b/src/std/v0.19-TODO/net/repl.ss similarity index 100% rename from src/std/net/repl.ss rename to src/std/v0.19-TODO/net/repl.ss diff --git a/src/std/net/request.ss b/src/std/v0.19-TODO/net/request.ss similarity index 100% rename from src/std/net/request.ss rename to src/std/v0.19-TODO/net/request.ss diff --git a/src/std/net/s3.ss b/src/std/v0.19-TODO/net/s3.ss similarity index 100% rename from src/std/net/s3.ss rename to src/std/v0.19-TODO/net/s3.ss diff --git a/src/std/net/s3/api.ss b/src/std/v0.19-TODO/net/s3/api.ss similarity index 100% rename from src/std/net/s3/api.ss rename to src/std/v0.19-TODO/net/s3/api.ss diff --git a/src/std/net/s3/interface.ss b/src/std/v0.19-TODO/net/s3/interface.ss similarity index 100% rename from src/std/net/s3/interface.ss rename to src/std/v0.19-TODO/net/s3/interface.ss diff --git a/src/std/net/s3/sigv4-test.ss b/src/std/v0.19-TODO/net/s3/sigv4-test.ss similarity index 100% rename from src/std/net/s3/sigv4-test.ss rename to src/std/v0.19-TODO/net/s3/sigv4-test.ss diff --git a/src/std/net/s3/sigv4.ss b/src/std/v0.19-TODO/net/s3/sigv4.ss similarity index 100% rename from src/std/net/s3/sigv4.ss rename to src/std/v0.19-TODO/net/s3/sigv4.ss diff --git a/src/std/net/sasl-test.ss b/src/std/v0.19-TODO/net/sasl-test.ss similarity index 100% rename from src/std/net/sasl-test.ss rename to src/std/v0.19-TODO/net/sasl-test.ss diff --git a/src/std/net/sasl.ss b/src/std/v0.19-TODO/net/sasl.ss similarity index 100% rename from src/std/net/sasl.ss rename to src/std/v0.19-TODO/net/sasl.ss diff --git a/src/std/net/smtp.ss b/src/std/v0.19-TODO/net/smtp.ss similarity index 100% rename from src/std/net/smtp.ss rename to src/std/v0.19-TODO/net/smtp.ss diff --git a/src/std/net/smtp/README.org b/src/std/v0.19-TODO/net/smtp/README.org similarity index 100% rename from src/std/net/smtp/README.org rename to src/std/v0.19-TODO/net/smtp/README.org diff --git a/src/std/net/smtp/api.ss b/src/std/v0.19-TODO/net/smtp/api.ss similarity index 100% rename from src/std/net/smtp/api.ss rename to src/std/v0.19-TODO/net/smtp/api.ss diff --git a/src/std/net/smtp/client.ss b/src/std/v0.19-TODO/net/smtp/client.ss similarity index 100% rename from src/std/net/smtp/client.ss rename to src/std/v0.19-TODO/net/smtp/client.ss diff --git a/src/std/net/smtp/connection.ss b/src/std/v0.19-TODO/net/smtp/connection.ss similarity index 100% rename from src/std/net/smtp/connection.ss rename to src/std/v0.19-TODO/net/smtp/connection.ss diff --git a/src/std/net/smtp/data.ss b/src/std/v0.19-TODO/net/smtp/data.ss similarity index 100% rename from src/std/net/smtp/data.ss rename to src/std/v0.19-TODO/net/smtp/data.ss diff --git a/src/std/net/smtp/headers.ss b/src/std/v0.19-TODO/net/smtp/headers.ss similarity index 100% rename from src/std/net/smtp/headers.ss rename to src/std/v0.19-TODO/net/smtp/headers.ss diff --git a/src/std/net/smtp/interface.ss b/src/std/v0.19-TODO/net/smtp/interface.ss similarity index 100% rename from src/std/net/smtp/interface.ss rename to src/std/v0.19-TODO/net/smtp/interface.ss diff --git a/src/std/net/smtp/session.ss b/src/std/v0.19-TODO/net/smtp/session.ss similarity index 100% rename from src/std/net/smtp/session.ss rename to src/std/v0.19-TODO/net/smtp/session.ss diff --git a/src/std/net/socket.ss b/src/std/v0.19-TODO/net/socket.ss similarity index 100% rename from src/std/net/socket.ss rename to src/std/v0.19-TODO/net/socket.ss diff --git a/src/std/net/socket/api.ss b/src/std/v0.19-TODO/net/socket/api.ss similarity index 100% rename from src/std/net/socket/api.ss rename to src/std/v0.19-TODO/net/socket/api.ss diff --git a/src/std/net/socket/base.ss b/src/std/v0.19-TODO/net/socket/base.ss similarity index 100% rename from src/std/net/socket/base.ss rename to src/std/v0.19-TODO/net/socket/base.ss diff --git a/src/std/net/socket/basic-server.ss b/src/std/v0.19-TODO/net/socket/basic-server.ss similarity index 100% rename from src/std/net/socket/basic-server.ss rename to src/std/v0.19-TODO/net/socket/basic-server.ss diff --git a/src/std/net/socket/basic-socket.ss b/src/std/v0.19-TODO/net/socket/basic-socket.ss similarity index 100% rename from src/std/net/socket/basic-socket.ss rename to src/std/v0.19-TODO/net/socket/basic-socket.ss diff --git a/src/std/net/socket/buffer.ss b/src/std/v0.19-TODO/net/socket/buffer.ss similarity index 100% rename from src/std/net/socket/buffer.ss rename to src/std/v0.19-TODO/net/socket/buffer.ss diff --git a/src/std/net/socket/epoll-server.ss b/src/std/v0.19-TODO/net/socket/epoll-server.ss similarity index 100% rename from src/std/net/socket/epoll-server.ss rename to src/std/v0.19-TODO/net/socket/epoll-server.ss diff --git a/src/std/net/socket/kqueue-server.ss b/src/std/v0.19-TODO/net/socket/kqueue-server.ss similarity index 100% rename from src/std/net/socket/kqueue-server.ss rename to src/std/v0.19-TODO/net/socket/kqueue-server.ss diff --git a/src/std/net/socket/server-test.ss b/src/std/v0.19-TODO/net/socket/server-test.ss similarity index 100% rename from src/std/net/socket/server-test.ss rename to src/std/v0.19-TODO/net/socket/server-test.ss diff --git a/src/std/net/socket/server.ss b/src/std/v0.19-TODO/net/socket/server.ss similarity index 100% rename from src/std/net/socket/server.ss rename to src/std/v0.19-TODO/net/socket/server.ss diff --git a/src/std/net/socks.ss b/src/std/v0.19-TODO/net/socks.ss similarity index 100% rename from src/std/net/socks.ss rename to src/std/v0.19-TODO/net/socks.ss diff --git a/src/std/net/socks/api.ss b/src/std/v0.19-TODO/net/socks/api.ss similarity index 100% rename from src/std/net/socks/api.ss rename to src/std/v0.19-TODO/net/socks/api.ss diff --git a/src/std/net/socks/client.ss b/src/std/v0.19-TODO/net/socks/client.ss similarity index 100% rename from src/std/net/socks/client.ss rename to src/std/v0.19-TODO/net/socks/client.ss diff --git a/src/std/net/socks/interface.ss b/src/std/v0.19-TODO/net/socks/interface.ss similarity index 100% rename from src/std/net/socks/interface.ss rename to src/std/v0.19-TODO/net/socks/interface.ss diff --git a/src/std/net/socks/server.ss b/src/std/v0.19-TODO/net/socks/server.ss similarity index 100% rename from src/std/net/socks/server.ss rename to src/std/v0.19-TODO/net/socks/server.ss diff --git a/src/std/net/socks/socks-test.ss b/src/std/v0.19-TODO/net/socks/socks-test.ss similarity index 100% rename from src/std/net/socks/socks-test.ss rename to src/std/v0.19-TODO/net/socks/socks-test.ss diff --git a/src/std/net/ssl-test.ss b/src/std/v0.19-TODO/net/ssl-test.ss similarity index 100% rename from src/std/net/ssl-test.ss rename to src/std/v0.19-TODO/net/ssl-test.ss diff --git a/src/std/net/ssl.ss b/src/std/v0.19-TODO/net/ssl.ss similarity index 100% rename from src/std/net/ssl.ss rename to src/std/v0.19-TODO/net/ssl.ss diff --git a/src/std/net/ssl/api.ss b/src/std/v0.19-TODO/net/ssl/api.ss similarity index 100% rename from src/std/net/ssl/api.ss rename to src/std/v0.19-TODO/net/ssl/api.ss diff --git a/src/std/net/ssl/client.ss b/src/std/v0.19-TODO/net/ssl/client.ss similarity index 100% rename from src/std/net/ssl/client.ss rename to src/std/v0.19-TODO/net/ssl/client.ss diff --git a/src/std/net/ssl/error.ss b/src/std/v0.19-TODO/net/ssl/error.ss similarity index 100% rename from src/std/net/ssl/error.ss rename to src/std/v0.19-TODO/net/ssl/error.ss diff --git a/src/std/net/ssl/interface.ss b/src/std/v0.19-TODO/net/ssl/interface.ss similarity index 100% rename from src/std/net/ssl/interface.ss rename to src/std/v0.19-TODO/net/ssl/interface.ss diff --git a/src/std/net/ssl/libssl.ss b/src/std/v0.19-TODO/net/ssl/libssl.ss similarity index 100% rename from src/std/net/ssl/libssl.ss rename to src/std/v0.19-TODO/net/ssl/libssl.ss diff --git a/src/std/net/ssl/server.ss b/src/std/v0.19-TODO/net/ssl/server.ss similarity index 100% rename from src/std/net/ssl/server.ss rename to src/std/v0.19-TODO/net/ssl/server.ss diff --git a/src/std/net/ssl/socket.ss b/src/std/v0.19-TODO/net/ssl/socket.ss similarity index 100% rename from src/std/net/ssl/socket.ss rename to src/std/v0.19-TODO/net/ssl/socket.ss diff --git a/src/std/net/uri.ss b/src/std/v0.19-TODO/net/uri.ss similarity index 100% rename from src/std/net/uri.ss rename to src/std/v0.19-TODO/net/uri.ss diff --git a/src/std/net/websocket.ss b/src/std/v0.19-TODO/net/websocket.ss similarity index 100% rename from src/std/net/websocket.ss rename to src/std/v0.19-TODO/net/websocket.ss diff --git a/src/std/net/websocket/api.ss b/src/std/v0.19-TODO/net/websocket/api.ss similarity index 100% rename from src/std/net/websocket/api.ss rename to src/std/v0.19-TODO/net/websocket/api.ss diff --git a/src/std/net/websocket/client.ss b/src/std/v0.19-TODO/net/websocket/client.ss similarity index 100% rename from src/std/net/websocket/client.ss rename to src/std/v0.19-TODO/net/websocket/client.ss diff --git a/src/std/net/websocket/interface.ss b/src/std/v0.19-TODO/net/websocket/interface.ss similarity index 100% rename from src/std/net/websocket/interface.ss rename to src/std/v0.19-TODO/net/websocket/interface.ss diff --git a/src/std/net/websocket/server.ss b/src/std/v0.19-TODO/net/websocket/server.ss similarity index 100% rename from src/std/net/websocket/server.ss rename to src/std/v0.19-TODO/net/websocket/server.ss diff --git a/src/std/net/websocket/socket-test.ss b/src/std/v0.19-TODO/net/websocket/socket-test.ss similarity index 100% rename from src/std/net/websocket/socket-test.ss rename to src/std/v0.19-TODO/net/websocket/socket-test.ss diff --git a/src/std/net/websocket/socket.ss b/src/std/v0.19-TODO/net/websocket/socket.ss similarity index 100% rename from src/std/net/websocket/socket.ss rename to src/std/v0.19-TODO/net/websocket/socket.ss diff --git a/src/std/net/websocket/websocket-test.ss b/src/std/v0.19-TODO/net/websocket/websocket-test.ss similarity index 100% rename from src/std/net/websocket/websocket-test.ss rename to src/std/v0.19-TODO/net/websocket/websocket-test.ss diff --git a/src/std/parser.ss b/src/std/v0.19-TODO/parser.ss similarity index 100% rename from src/std/parser.ss rename to src/std/v0.19-TODO/parser.ss diff --git a/src/std/parser/base.ss b/src/std/v0.19-TODO/parser/base.ss similarity index 100% rename from src/std/parser/base.ss rename to src/std/v0.19-TODO/parser/base.ss diff --git a/src/std/parser/deflexer.ss b/src/std/v0.19-TODO/parser/deflexer.ss similarity index 100% rename from src/std/parser/deflexer.ss rename to src/std/v0.19-TODO/parser/deflexer.ss diff --git a/src/std/parser/defparser.ss b/src/std/v0.19-TODO/parser/defparser.ss similarity index 100% rename from src/std/parser/defparser.ss rename to src/std/v0.19-TODO/parser/defparser.ss diff --git a/src/std/parser/grammar-reader.ss b/src/std/v0.19-TODO/parser/grammar-reader.ss similarity index 100% rename from src/std/parser/grammar-reader.ss rename to src/std/v0.19-TODO/parser/grammar-reader.ss diff --git a/src/std/parser/grammar.ss b/src/std/v0.19-TODO/parser/grammar.ss similarity index 100% rename from src/std/parser/grammar.ss rename to src/std/v0.19-TODO/parser/grammar.ss diff --git a/src/std/parser/lexer.ss b/src/std/v0.19-TODO/parser/lexer.ss similarity index 100% rename from src/std/parser/lexer.ss rename to src/std/v0.19-TODO/parser/lexer.ss diff --git a/src/std/parser/ll1-test.ss b/src/std/v0.19-TODO/parser/ll1-test.ss similarity index 100% rename from src/std/parser/ll1-test.ss rename to src/std/v0.19-TODO/parser/ll1-test.ss diff --git a/src/std/parser/ll1.ss b/src/std/v0.19-TODO/parser/ll1.ss similarity index 100% rename from src/std/parser/ll1.ss rename to src/std/v0.19-TODO/parser/ll1.ss diff --git a/src/std/parser/rlang.ss b/src/std/v0.19-TODO/parser/rlang.ss similarity index 100% rename from src/std/parser/rlang.ss rename to src/std/v0.19-TODO/parser/rlang.ss diff --git a/src/std/parser/rx-parser.ss b/src/std/v0.19-TODO/parser/rx-parser.ss similarity index 100% rename from src/std/parser/rx-parser.ss rename to src/std/v0.19-TODO/parser/rx-parser.ss diff --git a/src/std/parser/stream.ss b/src/std/v0.19-TODO/parser/stream.ss similarity index 100% rename from src/std/parser/stream.ss rename to src/std/v0.19-TODO/parser/stream.ss diff --git a/src/std/pregexp.ss b/src/std/v0.19-TODO/pregexp.ss similarity index 100% rename from src/std/pregexp.ss rename to src/std/v0.19-TODO/pregexp.ss diff --git a/src/std/pregexp/COPYING b/src/std/v0.19-TODO/pregexp/COPYING similarity index 100% rename from src/std/pregexp/COPYING rename to src/std/v0.19-TODO/pregexp/COPYING diff --git a/src/std/pregexp/INSTALL b/src/std/v0.19-TODO/pregexp/INSTALL similarity index 100% rename from src/std/pregexp/INSTALL rename to src/std/v0.19-TODO/pregexp/INSTALL diff --git a/src/std/pregexp/README b/src/std/v0.19-TODO/pregexp/README similarity index 100% rename from src/std/pregexp/README rename to src/std/v0.19-TODO/pregexp/README diff --git a/src/std/pregexp/dialects/cl-pregexp.scm b/src/std/v0.19-TODO/pregexp/dialects/cl-pregexp.scm similarity index 100% rename from src/std/pregexp/dialects/cl-pregexp.scm rename to src/std/v0.19-TODO/pregexp/dialects/cl-pregexp.scm diff --git a/src/std/pregexp/dialects/dialects-supported.scm b/src/std/v0.19-TODO/pregexp/dialects/dialects-supported.scm similarity index 100% rename from src/std/pregexp/dialects/dialects-supported.scm rename to src/std/v0.19-TODO/pregexp/dialects/dialects-supported.scm diff --git a/src/std/pregexp/dialects/files-to-be-ported.scm b/src/std/v0.19-TODO/pregexp/dialects/files-to-be-ported.scm similarity index 100% rename from src/std/pregexp/dialects/files-to-be-ported.scm rename to src/std/v0.19-TODO/pregexp/dialects/files-to-be-ported.scm diff --git a/src/std/pregexp/dialects/gauche-pregexp.scm b/src/std/v0.19-TODO/pregexp/dialects/gauche-pregexp.scm similarity index 100% rename from src/std/pregexp/dialects/gauche-pregexp.scm rename to src/std/v0.19-TODO/pregexp/dialects/gauche-pregexp.scm diff --git a/src/std/pregexp/dialects/guile-pregexp.scm b/src/std/v0.19-TODO/pregexp/dialects/guile-pregexp.scm similarity index 100% rename from src/std/pregexp/dialects/guile-pregexp.scm rename to src/std/v0.19-TODO/pregexp/dialects/guile-pregexp.scm diff --git a/src/std/pregexp/dialects/plt-pregexp.scm b/src/std/v0.19-TODO/pregexp/dialects/plt-pregexp.scm similarity index 100% rename from src/std/pregexp/dialects/plt-pregexp.scm rename to src/std/v0.19-TODO/pregexp/dialects/plt-pregexp.scm diff --git a/src/std/pregexp/dialects/scsh-pregexp.scm b/src/std/v0.19-TODO/pregexp/dialects/scsh-pregexp.scm similarity index 100% rename from src/std/pregexp/dialects/scsh-pregexp.scm rename to src/std/v0.19-TODO/pregexp/dialects/scsh-pregexp.scm diff --git a/src/std/pregexp/history b/src/std/v0.19-TODO/pregexp/history similarity index 100% rename from src/std/pregexp/history rename to src/std/v0.19-TODO/pregexp/history diff --git a/src/std/pregexp/index.tex b/src/std/v0.19-TODO/pregexp/index.tex similarity index 100% rename from src/std/pregexp/index.tex rename to src/std/v0.19-TODO/pregexp/index.tex diff --git a/src/std/pregexp/known-bugs/6115 b/src/std/v0.19-TODO/pregexp/known-bugs/6115 similarity index 100% rename from src/std/pregexp/known-bugs/6115 rename to src/std/v0.19-TODO/pregexp/known-bugs/6115 diff --git a/src/std/pregexp/known-bugs/scott b/src/std/v0.19-TODO/pregexp/known-bugs/scott similarity index 100% rename from src/std/pregexp/known-bugs/scott rename to src/std/v0.19-TODO/pregexp/known-bugs/scott diff --git a/src/std/pregexp/manifest b/src/std/v0.19-TODO/pregexp/manifest similarity index 100% rename from src/std/pregexp/manifest rename to src/std/v0.19-TODO/pregexp/manifest diff --git a/src/std/pregexp/pregexp-test.scm b/src/std/v0.19-TODO/pregexp/pregexp-test.scm similarity index 100% rename from src/std/pregexp/pregexp-test.scm rename to src/std/v0.19-TODO/pregexp/pregexp-test.scm diff --git a/src/std/pregexp/pregexp-test.ss b/src/std/v0.19-TODO/pregexp/pregexp-test.ss similarity index 100% rename from src/std/pregexp/pregexp-test.ss rename to src/std/v0.19-TODO/pregexp/pregexp-test.ss diff --git a/src/std/pregexp/pregexp.lisp b/src/std/v0.19-TODO/pregexp/pregexp.lisp similarity index 100% rename from src/std/pregexp/pregexp.lisp rename to src/std/v0.19-TODO/pregexp/pregexp.lisp diff --git a/src/std/pregexp/pregexp.scm b/src/std/v0.19-TODO/pregexp/pregexp.scm similarity index 100% rename from src/std/pregexp/pregexp.scm rename to src/std/v0.19-TODO/pregexp/pregexp.scm diff --git a/src/std/pregexp/tester.lisp b/src/std/v0.19-TODO/pregexp/tester.lisp similarity index 100% rename from src/std/pregexp/tester.lisp rename to src/std/v0.19-TODO/pregexp/tester.lisp diff --git a/src/std/pregexp/tester.scm b/src/std/v0.19-TODO/pregexp/tester.scm similarity index 100% rename from src/std/pregexp/tester.scm rename to src/std/v0.19-TODO/pregexp/tester.scm diff --git a/src/std/protobuf/io.ss b/src/std/v0.19-TODO/protobuf/io.ss similarity index 100% rename from src/std/protobuf/io.ss rename to src/std/v0.19-TODO/protobuf/io.ss diff --git a/src/std/protobuf/macros.ss b/src/std/v0.19-TODO/protobuf/macros.ss similarity index 100% rename from src/std/protobuf/macros.ss rename to src/std/v0.19-TODO/protobuf/macros.ss diff --git a/src/std/protobuf/potpourri-test.proto b/src/std/v0.19-TODO/protobuf/potpourri-test.proto similarity index 100% rename from src/std/protobuf/potpourri-test.proto rename to src/std/v0.19-TODO/protobuf/potpourri-test.proto diff --git a/src/std/protobuf/potpourri-test2.proto b/src/std/v0.19-TODO/protobuf/potpourri-test2.proto similarity index 100% rename from src/std/protobuf/potpourri-test2.proto rename to src/std/v0.19-TODO/protobuf/potpourri-test2.proto diff --git a/src/std/protobuf/proto-grammar.ss b/src/std/v0.19-TODO/protobuf/proto-grammar.ss similarity index 100% rename from src/std/protobuf/proto-grammar.ss rename to src/std/v0.19-TODO/protobuf/proto-grammar.ss diff --git a/src/std/protobuf/proto.ss b/src/std/v0.19-TODO/protobuf/proto.ss similarity index 100% rename from src/std/protobuf/proto.ss rename to src/std/v0.19-TODO/protobuf/proto.ss diff --git a/src/std/protobuf/protobuf-test.ss b/src/std/v0.19-TODO/protobuf/protobuf-test.ss similarity index 100% rename from src/std/protobuf/protobuf-test.ss rename to src/std/v0.19-TODO/protobuf/protobuf-test.ss diff --git a/src/std/source-test.ss b/src/std/v0.19-TODO/source-test.ss similarity index 100% rename from src/std/source-test.ss rename to src/std/v0.19-TODO/source-test.ss diff --git a/src/std/source.ss b/src/std/v0.19-TODO/source.ss similarity index 100% rename from src/std/source.ss rename to src/std/v0.19-TODO/source.ss diff --git a/src/std/stxparam.ss b/src/std/v0.19-TODO/stxparam.ss similarity index 100% rename from src/std/stxparam.ss rename to src/std/v0.19-TODO/stxparam.ss diff --git a/src/std/stxutil.ss b/src/std/v0.19-TODO/stxutil.ss similarity index 65% rename from src/std/stxutil.ss rename to src/std/v0.19-TODO/stxutil.ss index 190eaaa951..d100612b53 100644 --- a/src/std/stxutil.ss +++ b/src/std/v0.19-TODO/stxutil.ss @@ -1,7 +1,7 @@ ;;; -*- Gerbil -*- ;;; © vyzo ;;; syntax utilities; import for-syntax -(import :gerbil/expander +(import :gerbil/core/expander :std/format) (export #t) @@ -36,3 +36,23 @@ (let (s (as-string x)) (or (##find-interned-keyword s) s)))) (x (maybe-make-keyword (as-string x))))) + + +;; parse a syntactic keyword-value option plist +(def (parse-options stx lst allowed) + (let loop ((rest lst) (result [])) + (match rest + ([key val . rest] + (if (stx-keyword? key) + (let (key (stx-e key)) + (cond + ((not (memq key allowed)) + (raise-syntax-error #f "unexpected option" stx lst key)) + ((memq key result) + (raise-syntax-error #f "duplicate option" stx lst key)) + (else + (loop rest (cons* val key result))))) + (raise-syntax-error #f "expected keyword option" stx lst key))) + ([] (reverse! result)) + (else + (raise-syntax-error #f "malformed syntactic options" stx lst))))) diff --git a/src/std/text/_zlib.scm b/src/std/v0.19-TODO/text/_zlib.scm similarity index 100% rename from src/std/text/_zlib.scm rename to src/std/v0.19-TODO/text/_zlib.scm diff --git a/src/std/text/_zlib.ssi b/src/std/v0.19-TODO/text/_zlib.ssi similarity index 100% rename from src/std/text/_zlib.ssi rename to src/std/v0.19-TODO/text/_zlib.ssi diff --git a/src/std/text/base58-test.ss b/src/std/v0.19-TODO/text/base58-test.ss similarity index 100% rename from src/std/text/base58-test.ss rename to src/std/v0.19-TODO/text/base58-test.ss diff --git a/src/std/text/base58.ss b/src/std/v0.19-TODO/text/base58.ss similarity index 100% rename from src/std/text/base58.ss rename to src/std/v0.19-TODO/text/base58.ss diff --git a/src/std/text/base64.scm b/src/std/v0.19-TODO/text/base64.scm similarity index 100% rename from src/std/text/base64.scm rename to src/std/v0.19-TODO/text/base64.scm diff --git a/src/std/text/base64.ssi b/src/std/v0.19-TODO/text/base64.ssi similarity index 100% rename from src/std/text/base64.ssi rename to src/std/v0.19-TODO/text/base64.ssi diff --git a/src/std/text/basic-printers-test.ss b/src/std/v0.19-TODO/text/basic-printers-test.ss similarity index 100% rename from src/std/text/basic-printers-test.ss rename to src/std/v0.19-TODO/text/basic-printers-test.ss diff --git a/src/std/text/basic-printers.ss b/src/std/v0.19-TODO/text/basic-printers.ss similarity index 100% rename from src/std/text/basic-printers.ss rename to src/std/v0.19-TODO/text/basic-printers.ss diff --git a/src/std/text/char-set-test.ss b/src/std/v0.19-TODO/text/char-set-test.ss similarity index 100% rename from src/std/text/char-set-test.ss rename to src/std/v0.19-TODO/text/char-set-test.ss diff --git a/src/std/text/char-set.ss b/src/std/v0.19-TODO/text/char-set.ss similarity index 100% rename from src/std/text/char-set.ss rename to src/std/v0.19-TODO/text/char-set.ss diff --git a/src/std/text/csv-test.ss b/src/std/v0.19-TODO/text/csv-test.ss similarity index 100% rename from src/std/text/csv-test.ss rename to src/std/v0.19-TODO/text/csv-test.ss diff --git a/src/std/text/csv.ss b/src/std/v0.19-TODO/text/csv.ss similarity index 100% rename from src/std/text/csv.ss rename to src/std/v0.19-TODO/text/csv.ss diff --git a/src/std/text/hex-test.ss b/src/std/v0.19-TODO/text/hex-test.ss similarity index 100% rename from src/std/text/hex-test.ss rename to src/std/v0.19-TODO/text/hex-test.ss diff --git a/src/std/text/hex.ss b/src/std/v0.19-TODO/text/hex.ss similarity index 100% rename from src/std/text/hex.ss rename to src/std/v0.19-TODO/text/hex.ss diff --git a/src/std/text/json.ss b/src/std/v0.19-TODO/text/json.ss similarity index 100% rename from src/std/text/json.ss rename to src/std/v0.19-TODO/text/json.ss diff --git a/src/std/text/json/api.ss b/src/std/v0.19-TODO/text/json/api.ss similarity index 92% rename from src/std/text/json/api.ss rename to src/std/v0.19-TODO/text/json/api.ss index fb9bdca76a..25cdfbcdaa 100644 --- a/src/std/text/json/api.ss +++ b/src/std/v0.19-TODO/text/json/api.ss @@ -1,7 +1,7 @@ ;;; -*- Gerbil -*- ;;; © vyzo ;;; json api -(import ./env ./input ./output ./util) +(import ./env ./input ./output ./util ./object) (export read-json write-json string->json-object json-object->string bytes->json-object json-object->bytes port->json-object diff --git a/src/std/text/json/input.ss b/src/std/v0.19-TODO/text/json/input.ss similarity index 99% rename from src/std/text/json/input.ss rename to src/std/v0.19-TODO/text/json/input.ss index bdef7a2340..8808331a27 100644 --- a/src/std/text/json/input.ss +++ b/src/std/v0.19-TODO/text/json/input.ss @@ -81,7 +81,7 @@ ((#\}) (void)) (else (raise-invalid-token read-json-hash input char))))))))) - (walistq (reverse! lst)))) + (__walistq (reverse! lst)))) (def (read-json-hash/walist input env) (let* ((obj (make-hash-table size: 8)) @@ -104,7 +104,7 @@ ((#\}) (void)) (else (raise-invalid-token read-json-hash input char))))))))) - (walist (reverse! lst)))) + (__walist (reverse! lst)))) (def (read-json-hash/symbol input env) (let* ((obj (make-gc-table 7 gc-hash-table::t)) diff --git a/src/std/text/json/json-benchmark.ss b/src/std/v0.19-TODO/text/json/json-benchmark.ss similarity index 100% rename from src/std/text/json/json-benchmark.ss rename to src/std/v0.19-TODO/text/json/json-benchmark.ss diff --git a/src/std/text/json/json-test.ss b/src/std/v0.19-TODO/text/json/json-test.ss similarity index 100% rename from src/std/text/json/json-test.ss rename to src/std/v0.19-TODO/text/json/json-test.ss diff --git a/src/std/v0.19-TODO/text/json/object.ss b/src/std/v0.19-TODO/text/json/object.ss new file mode 100644 index 0000000000..ff3a10528f --- /dev/null +++ b/src/std/v0.19-TODO/text/json/object.ss @@ -0,0 +1,23 @@ +;;; -*- Gerbil -*- +;;; ̧© vyzo +;;; json - object conversions +(import :std/error + :std/walist) + +;;; primitive conversions +(defmethod {:json :continuation} + (lambda (self) + XXX + )) + +;;; error specific conversions +(defmethod {:json Error} + (lambda (self) + XXX + )) + +;; generic object conversion +(defmethod {:json :object} + (lambda (self) + XXX + )) diff --git a/src/std/text/json/output.ss b/src/std/v0.19-TODO/text/json/output.ss similarity index 95% rename from src/std/text/json/output.ss rename to src/std/v0.19-TODO/text/json/output.ss index 07f825af4e..8adf92708c 100644 --- a/src/std/text/json/output.ss +++ b/src/std/v0.19-TODO/text/json/output.ss @@ -8,6 +8,7 @@ :std/misc/walist :std/sort :std/text/hex + :std/string ./env) (export write-json-object/port write-json-object/writer write-json-object/buffer json-key-string json-sort-alist) @@ -64,8 +65,8 @@ (write-json-vector obj output env)) ((hash-table? obj) (write-json-hash obj output env)) - ((walist? obj) - (write-json-alist (walist->alist obj) output env)) + ((AList? obj) + (write-json-alist (walist->list obj) output env)) ((eq? #t obj) (write-string "true" output)) ((eq? #f obj) @@ -74,8 +75,13 @@ (write-string "null" output)) ((method-ref obj ':write-json) => (cut <> obj output)) + ((method-ref obj ':json) + => (lambda (method) + (write-json-object (method obj) output env))) (else - (write-json-object {:json obj} output env)))) + ;; DO NOT FAIL; breaking a logger is the last thing + ;; you want to do + (write-string (to-string obj) output)))) (def (write-json-inexact obj output env) (let* ((mag (abs obj)) diff --git a/src/std/text/json/util.ss b/src/std/v0.19-TODO/text/json/util.ss similarity index 96% rename from src/std/text/json/util.ss rename to src/std/v0.19-TODO/text/json/util.ss index b44f7d5e12..78756ae071 100644 --- a/src/std/text/json/util.ss +++ b/src/std/v0.19-TODO/text/json/util.ss @@ -39,17 +39,17 @@ (else (raise-bad-argument read-json "input port, BufferedStringReader or BufferedReader instance" input)))) -(def (string->json-object str) +(def (string->json-object (str : :string)) (let (reader (open-buffered-string-reader str)) (begin0 (read-json-object/reader reader (make-env)) (ll1-skip-space-to-eof (PeekableStringReader reader))))) -(def (bytes->json-object bytes) +(def (bytes->json-object (bytes : :u8vector)) (let (buffer (open-buffered-reader bytes)) (begin0 (read-json-object/buffer buffer (make-env)) (ll1-skip-space-to-eof (PeekableStringReader (open-buffered-string-reader buffer)))))) -(def (port->json-object port) +(def (port->json-object (port :~ input-port? :- :port)) (begin0 (read-json-object/port port (make-env)) (ll1-skip-space-to-eof (PeekableStringReader (open-buffered-string-reader port))))) @@ -69,16 +69,19 @@ (else (raise-bad-argument write-json "output port, Writer, StringWriter or BufferedStringWriter" output)))) -(def (json-object->string obj) +(def (json-object->string obj) => :string (let (buffer (open-buffered-string-writer #f)) (write-json-object/writer obj buffer (make-env)) (get-buffer-output-string buffer))) -(def (json-object->bytes obj) +(def (json-object->bytes obj) => :u8vector (let (buffer (open-buffered-writer #f)) (write-json-object/buffer obj buffer (make-env)) (get-buffer-output-u8vector buffer))) + +;;;; XXXX + (def (trivial-class->json-object object) (match (class->list object) ([type . plist] diff --git a/src/std/text/utf16-test.ss b/src/std/v0.19-TODO/text/utf16-test.ss similarity index 100% rename from src/std/text/utf16-test.ss rename to src/std/v0.19-TODO/text/utf16-test.ss diff --git a/src/std/text/utf16.ss b/src/std/v0.19-TODO/text/utf16.ss similarity index 100% rename from src/std/text/utf16.ss rename to src/std/v0.19-TODO/text/utf16.ss diff --git a/src/std/text/utf32-test.ss b/src/std/v0.19-TODO/text/utf32-test.ss similarity index 100% rename from src/std/text/utf32-test.ss rename to src/std/v0.19-TODO/text/utf32-test.ss diff --git a/src/std/text/utf32.ss b/src/std/v0.19-TODO/text/utf32.ss similarity index 100% rename from src/std/text/utf32.ss rename to src/std/v0.19-TODO/text/utf32.ss diff --git a/src/std/text/utf8-test.ss b/src/std/v0.19-TODO/text/utf8-test.ss similarity index 100% rename from src/std/text/utf8-test.ss rename to src/std/v0.19-TODO/text/utf8-test.ss diff --git a/src/std/text/utf8.ss b/src/std/v0.19-TODO/text/utf8.ss similarity index 100% rename from src/std/text/utf8.ss rename to src/std/v0.19-TODO/text/utf8.ss diff --git a/src/std/text/zlib.ss b/src/std/v0.19-TODO/text/zlib.ss similarity index 100% rename from src/std/text/zlib.ss rename to src/std/v0.19-TODO/text/zlib.ss diff --git a/src/std/values-test.ss b/src/std/v0.19-TODO/values-test.ss similarity index 100% rename from src/std/values-test.ss rename to src/std/v0.19-TODO/values-test.ss diff --git a/src/std/values.ss b/src/std/v0.19-TODO/values.ss similarity index 100% rename from src/std/values.ss rename to src/std/v0.19-TODO/values.ss diff --git a/src/tools/build.ss b/src/tools/build.ss index ceca6514be..05c93e2571 100755 --- a/src/tools/build.ss +++ b/src/tools/build.ss @@ -2,7 +2,16 @@ ;; -*- Gerbil -*- (import :std/build-script) +;; v0.19 staging (defbuild-script + '("gxtest" + ) + libdir: (path-expand "lib" (getenv "GERBIL_BUILD_PREFIX" (gerbil-home))) + bindir: (path-expand "bin" (getenv "GERBIL_BUILD_PREFIX" (gerbil-home))) + debug: #f) + + +#;(defbuild-script '("env" "gxprof" "gxtags" diff --git a/src/v0.19-TODIE/lang/build.ss b/src/v0.19-TODIE/lang/build.ss new file mode 100755 index 0000000000..31643fa57e --- /dev/null +++ b/src/v0.19-TODIE/lang/build.ss @@ -0,0 +1,37 @@ +#!/usr/bin/env gxi +;; -*- Gerbil -*- + +(import :std/build-script + :std/make) + +(defbuild-script + `(;; standard scheme + "scheme/base-impl" + "scheme/base" + "scheme/case-lambda" + "scheme/char" + "scheme/complex" + "scheme/cxr" + "scheme/eval-impl" + "scheme/eval" + "scheme/file" + "scheme/inexact" + "scheme/lazy-impl" + "scheme/lazy" + "scheme/load-impl" + "scheme/load" + "scheme/process-context-impl" + "scheme/process-context" + "scheme/read" + "scheme/repl-impl" + "scheme/repl" + "scheme/time" + "scheme/write" + "scheme/r5rs" + "scheme/r5rs-null" + "scheme/r7rs" + ;; Gerbil variants. Polydactyl needs foreground due to using _gambit# at phi 1. + (gxc: "gerbil/polydactyl" ,@(include-gambit-sharp)) + ) + libdir: (path-expand "lib" (getenv "GERBIL_BUILD_PREFIX" (gerbil-home))) + debug: 'src) diff --git a/src/r7rs-large/gerbil.pkg b/src/v0.19-TODIE/lang/gerbil.pkg similarity index 100% rename from src/r7rs-large/gerbil.pkg rename to src/v0.19-TODIE/lang/gerbil.pkg diff --git a/src/lang/scheme/base-impl.ss b/src/v0.19-TODIE/lang/scheme/base-impl.ss similarity index 100% rename from src/lang/scheme/base-impl.ss rename to src/v0.19-TODIE/lang/scheme/base-impl.ss diff --git a/src/lang/scheme/base.ss b/src/v0.19-TODIE/lang/scheme/base.ss similarity index 100% rename from src/lang/scheme/base.ss rename to src/v0.19-TODIE/lang/scheme/base.ss diff --git a/src/lang/scheme/case-lambda.ss b/src/v0.19-TODIE/lang/scheme/case-lambda.ss similarity index 100% rename from src/lang/scheme/case-lambda.ss rename to src/v0.19-TODIE/lang/scheme/case-lambda.ss diff --git a/src/lang/scheme/char.ss b/src/v0.19-TODIE/lang/scheme/char.ss similarity index 100% rename from src/lang/scheme/char.ss rename to src/v0.19-TODIE/lang/scheme/char.ss diff --git a/src/lang/scheme/complex.ss b/src/v0.19-TODIE/lang/scheme/complex.ss similarity index 100% rename from src/lang/scheme/complex.ss rename to src/v0.19-TODIE/lang/scheme/complex.ss diff --git a/src/lang/scheme/cxr.ss b/src/v0.19-TODIE/lang/scheme/cxr.ss similarity index 100% rename from src/lang/scheme/cxr.ss rename to src/v0.19-TODIE/lang/scheme/cxr.ss diff --git a/src/lang/scheme/eval-impl.ss b/src/v0.19-TODIE/lang/scheme/eval-impl.ss similarity index 100% rename from src/lang/scheme/eval-impl.ss rename to src/v0.19-TODIE/lang/scheme/eval-impl.ss diff --git a/src/lang/scheme/eval.ss b/src/v0.19-TODIE/lang/scheme/eval.ss similarity index 100% rename from src/lang/scheme/eval.ss rename to src/v0.19-TODIE/lang/scheme/eval.ss diff --git a/src/lang/scheme/file.ss b/src/v0.19-TODIE/lang/scheme/file.ss similarity index 100% rename from src/lang/scheme/file.ss rename to src/v0.19-TODIE/lang/scheme/file.ss diff --git a/src/lang/scheme/inexact.ss b/src/v0.19-TODIE/lang/scheme/inexact.ss similarity index 100% rename from src/lang/scheme/inexact.ss rename to src/v0.19-TODIE/lang/scheme/inexact.ss diff --git a/src/lang/scheme/lazy-impl.ss b/src/v0.19-TODIE/lang/scheme/lazy-impl.ss similarity index 100% rename from src/lang/scheme/lazy-impl.ss rename to src/v0.19-TODIE/lang/scheme/lazy-impl.ss diff --git a/src/lang/scheme/lazy.ss b/src/v0.19-TODIE/lang/scheme/lazy.ss similarity index 100% rename from src/lang/scheme/lazy.ss rename to src/v0.19-TODIE/lang/scheme/lazy.ss diff --git a/src/lang/scheme/load-impl.ss b/src/v0.19-TODIE/lang/scheme/load-impl.ss similarity index 100% rename from src/lang/scheme/load-impl.ss rename to src/v0.19-TODIE/lang/scheme/load-impl.ss diff --git a/src/lang/scheme/load.ss b/src/v0.19-TODIE/lang/scheme/load.ss similarity index 100% rename from src/lang/scheme/load.ss rename to src/v0.19-TODIE/lang/scheme/load.ss diff --git a/src/lang/scheme/process-context-impl.ss b/src/v0.19-TODIE/lang/scheme/process-context-impl.ss similarity index 100% rename from src/lang/scheme/process-context-impl.ss rename to src/v0.19-TODIE/lang/scheme/process-context-impl.ss diff --git a/src/lang/scheme/process-context.ss b/src/v0.19-TODIE/lang/scheme/process-context.ss similarity index 100% rename from src/lang/scheme/process-context.ss rename to src/v0.19-TODIE/lang/scheme/process-context.ss diff --git a/src/lang/scheme/r5rs-null.ss b/src/v0.19-TODIE/lang/scheme/r5rs-null.ss similarity index 100% rename from src/lang/scheme/r5rs-null.ss rename to src/v0.19-TODIE/lang/scheme/r5rs-null.ss diff --git a/src/lang/scheme/r5rs.ss b/src/v0.19-TODIE/lang/scheme/r5rs.ss similarity index 100% rename from src/lang/scheme/r5rs.ss rename to src/v0.19-TODIE/lang/scheme/r5rs.ss diff --git a/src/lang/scheme/r7rs.ss b/src/v0.19-TODIE/lang/scheme/r7rs.ss similarity index 100% rename from src/lang/scheme/r7rs.ss rename to src/v0.19-TODIE/lang/scheme/r7rs.ss diff --git a/src/lang/scheme/read.ss b/src/v0.19-TODIE/lang/scheme/read.ss similarity index 100% rename from src/lang/scheme/read.ss rename to src/v0.19-TODIE/lang/scheme/read.ss diff --git a/src/lang/scheme/repl-impl.ss b/src/v0.19-TODIE/lang/scheme/repl-impl.ss similarity index 100% rename from src/lang/scheme/repl-impl.ss rename to src/v0.19-TODIE/lang/scheme/repl-impl.ss diff --git a/src/lang/scheme/repl.ss b/src/v0.19-TODIE/lang/scheme/repl.ss similarity index 100% rename from src/lang/scheme/repl.ss rename to src/v0.19-TODIE/lang/scheme/repl.ss diff --git a/src/lang/scheme/scheme-test.ss b/src/v0.19-TODIE/lang/scheme/scheme-test.ss similarity index 100% rename from src/lang/scheme/scheme-test.ss rename to src/v0.19-TODIE/lang/scheme/scheme-test.ss diff --git a/src/lang/scheme/time.ss b/src/v0.19-TODIE/lang/scheme/time.ss similarity index 100% rename from src/lang/scheme/time.ss rename to src/v0.19-TODIE/lang/scheme/time.ss diff --git a/src/lang/scheme/write.ss b/src/v0.19-TODIE/lang/scheme/write.ss similarity index 100% rename from src/lang/scheme/write.ss rename to src/v0.19-TODIE/lang/scheme/write.ss diff --git a/src/r7rs-large/build.ss b/src/v0.19-TODIE/r7rs-large/build.ss similarity index 100% rename from src/r7rs-large/build.ss rename to src/v0.19-TODIE/r7rs-large/build.ss diff --git a/src/v0.19-TODIE/r7rs-large/gerbil.pkg b/src/v0.19-TODIE/r7rs-large/gerbil.pkg new file mode 100644 index 0000000000..e69de29bb2 diff --git a/src/r7rs-large/scheme/bitwise.ss b/src/v0.19-TODIE/r7rs-large/scheme/bitwise.ss similarity index 100% rename from src/r7rs-large/scheme/bitwise.ss rename to src/v0.19-TODIE/r7rs-large/scheme/bitwise.ss diff --git a/src/r7rs-large/scheme/box.ss b/src/v0.19-TODIE/r7rs-large/scheme/box.ss similarity index 100% rename from src/r7rs-large/scheme/box.ss rename to src/v0.19-TODIE/r7rs-large/scheme/box.ss diff --git a/src/r7rs-large/scheme/bytevector.ss b/src/v0.19-TODIE/r7rs-large/scheme/bytevector.ss similarity index 100% rename from src/r7rs-large/scheme/bytevector.ss rename to src/v0.19-TODIE/r7rs-large/scheme/bytevector.ss diff --git a/src/r7rs-large/scheme/charset.ss b/src/v0.19-TODIE/r7rs-large/scheme/charset.ss similarity index 100% rename from src/r7rs-large/scheme/charset.ss rename to src/v0.19-TODIE/r7rs-large/scheme/charset.ss diff --git a/src/r7rs-large/scheme/comparator.ss b/src/v0.19-TODIE/r7rs-large/scheme/comparator.ss similarity index 100% rename from src/r7rs-large/scheme/comparator.ss rename to src/v0.19-TODIE/r7rs-large/scheme/comparator.ss diff --git a/src/r7rs-large/scheme/division.ss b/src/v0.19-TODIE/r7rs-large/scheme/division.ss similarity index 100% rename from src/r7rs-large/scheme/division.ss rename to src/v0.19-TODIE/r7rs-large/scheme/division.ss diff --git a/src/r7rs-large/scheme/ephemeron.ss b/src/v0.19-TODIE/r7rs-large/scheme/ephemeron.ss similarity index 100% rename from src/r7rs-large/scheme/ephemeron.ss rename to src/v0.19-TODIE/r7rs-large/scheme/ephemeron.ss diff --git a/src/r7rs-large/scheme/fixnum.ss b/src/v0.19-TODIE/r7rs-large/scheme/fixnum.ss similarity index 100% rename from src/r7rs-large/scheme/fixnum.ss rename to src/v0.19-TODIE/r7rs-large/scheme/fixnum.ss diff --git a/src/r7rs-large/scheme/flonum.ss b/src/v0.19-TODIE/r7rs-large/scheme/flonum.ss similarity index 100% rename from src/r7rs-large/scheme/flonum.ss rename to src/v0.19-TODIE/r7rs-large/scheme/flonum.ss diff --git a/src/r7rs-large/scheme/generator.ss b/src/v0.19-TODIE/r7rs-large/scheme/generator.ss similarity index 100% rename from src/r7rs-large/scheme/generator.ss rename to src/v0.19-TODIE/r7rs-large/scheme/generator.ss diff --git a/src/r7rs-large/scheme/hash-table.ss b/src/v0.19-TODIE/r7rs-large/scheme/hash-table.ss similarity index 100% rename from src/r7rs-large/scheme/hash-table.ss rename to src/v0.19-TODIE/r7rs-large/scheme/hash-table.ss diff --git a/src/r7rs-large/scheme/ideque.ss b/src/v0.19-TODIE/r7rs-large/scheme/ideque.ss similarity index 100% rename from src/r7rs-large/scheme/ideque.ss rename to src/v0.19-TODIE/r7rs-large/scheme/ideque.ss diff --git a/src/r7rs-large/scheme/ilist.ss b/src/v0.19-TODIE/r7rs-large/scheme/ilist.ss similarity index 100% rename from src/r7rs-large/scheme/ilist.ss rename to src/v0.19-TODIE/r7rs-large/scheme/ilist.ss diff --git a/src/r7rs-large/scheme/list-queue.ss b/src/v0.19-TODIE/r7rs-large/scheme/list-queue.ss similarity index 100% rename from src/r7rs-large/scheme/list-queue.ss rename to src/v0.19-TODIE/r7rs-large/scheme/list-queue.ss diff --git a/src/r7rs-large/scheme/list.ss b/src/v0.19-TODIE/r7rs-large/scheme/list.ss similarity index 100% rename from src/r7rs-large/scheme/list.ss rename to src/v0.19-TODIE/r7rs-large/scheme/list.ss diff --git a/src/r7rs-large/scheme/lseq.ss b/src/v0.19-TODIE/r7rs-large/scheme/lseq.ss similarity index 100% rename from src/r7rs-large/scheme/lseq.ss rename to src/v0.19-TODIE/r7rs-large/scheme/lseq.ss diff --git a/src/r7rs-large/scheme/mapping.ss b/src/v0.19-TODIE/r7rs-large/scheme/mapping.ss similarity index 100% rename from src/r7rs-large/scheme/mapping.ss rename to src/v0.19-TODIE/r7rs-large/scheme/mapping.ss diff --git a/src/r7rs-large/scheme/mapping/hash.ss b/src/v0.19-TODIE/r7rs-large/scheme/mapping/hash.ss similarity index 100% rename from src/r7rs-large/scheme/mapping/hash.ss rename to src/v0.19-TODIE/r7rs-large/scheme/mapping/hash.ss diff --git a/src/r7rs-large/scheme/regex.ss b/src/v0.19-TODIE/r7rs-large/scheme/regex.ss similarity index 100% rename from src/r7rs-large/scheme/regex.ss rename to src/v0.19-TODIE/r7rs-large/scheme/regex.ss diff --git a/src/r7rs-large/scheme/rlist.ss b/src/v0.19-TODIE/r7rs-large/scheme/rlist.ss similarity index 100% rename from src/r7rs-large/scheme/rlist.ss rename to src/v0.19-TODIE/r7rs-large/scheme/rlist.ss diff --git a/src/r7rs-large/scheme/set.ss b/src/v0.19-TODIE/r7rs-large/scheme/set.ss similarity index 100% rename from src/r7rs-large/scheme/set.ss rename to src/v0.19-TODIE/r7rs-large/scheme/set.ss diff --git a/src/r7rs-large/scheme/show.ss b/src/v0.19-TODIE/r7rs-large/scheme/show.ss similarity index 100% rename from src/r7rs-large/scheme/show.ss rename to src/v0.19-TODIE/r7rs-large/scheme/show.ss diff --git a/src/r7rs-large/scheme/sort.ss b/src/v0.19-TODIE/r7rs-large/scheme/sort.ss similarity index 100% rename from src/r7rs-large/scheme/sort.ss rename to src/v0.19-TODIE/r7rs-large/scheme/sort.ss diff --git a/src/r7rs-large/scheme/stream.ss b/src/v0.19-TODIE/r7rs-large/scheme/stream.ss similarity index 100% rename from src/r7rs-large/scheme/stream.ss rename to src/v0.19-TODIE/r7rs-large/scheme/stream.ss diff --git a/src/r7rs-large/scheme/text.ss b/src/v0.19-TODIE/r7rs-large/scheme/text.ss similarity index 100% rename from src/r7rs-large/scheme/text.ss rename to src/v0.19-TODIE/r7rs-large/scheme/text.ss diff --git a/src/r7rs-large/scheme/vector.ss b/src/v0.19-TODIE/r7rs-large/scheme/vector.ss similarity index 100% rename from src/r7rs-large/scheme/vector.ss rename to src/v0.19-TODIE/r7rs-large/scheme/vector.ss diff --git a/src/r7rs-large/scheme/vector/base.ss b/src/v0.19-TODIE/r7rs-large/scheme/vector/base.ss similarity index 100% rename from src/r7rs-large/scheme/vector/base.ss rename to src/v0.19-TODIE/r7rs-large/scheme/vector/base.ss diff --git a/src/r7rs-large/scheme/vector/c128.ss b/src/v0.19-TODIE/r7rs-large/scheme/vector/c128.ss similarity index 100% rename from src/r7rs-large/scheme/vector/c128.ss rename to src/v0.19-TODIE/r7rs-large/scheme/vector/c128.ss diff --git a/src/r7rs-large/scheme/vector/c64.ss b/src/v0.19-TODIE/r7rs-large/scheme/vector/c64.ss similarity index 100% rename from src/r7rs-large/scheme/vector/c64.ss rename to src/v0.19-TODIE/r7rs-large/scheme/vector/c64.ss diff --git a/src/r7rs-large/scheme/vector/f32.ss b/src/v0.19-TODIE/r7rs-large/scheme/vector/f32.ss similarity index 100% rename from src/r7rs-large/scheme/vector/f32.ss rename to src/v0.19-TODIE/r7rs-large/scheme/vector/f32.ss diff --git a/src/r7rs-large/scheme/vector/f64.ss b/src/v0.19-TODIE/r7rs-large/scheme/vector/f64.ss similarity index 100% rename from src/r7rs-large/scheme/vector/f64.ss rename to src/v0.19-TODIE/r7rs-large/scheme/vector/f64.ss diff --git a/src/r7rs-large/scheme/vector/s16.ss b/src/v0.19-TODIE/r7rs-large/scheme/vector/s16.ss similarity index 100% rename from src/r7rs-large/scheme/vector/s16.ss rename to src/v0.19-TODIE/r7rs-large/scheme/vector/s16.ss diff --git a/src/r7rs-large/scheme/vector/s32.ss b/src/v0.19-TODIE/r7rs-large/scheme/vector/s32.ss similarity index 100% rename from src/r7rs-large/scheme/vector/s32.ss rename to src/v0.19-TODIE/r7rs-large/scheme/vector/s32.ss diff --git a/src/r7rs-large/scheme/vector/s64.ss b/src/v0.19-TODIE/r7rs-large/scheme/vector/s64.ss similarity index 100% rename from src/r7rs-large/scheme/vector/s64.ss rename to src/v0.19-TODIE/r7rs-large/scheme/vector/s64.ss diff --git a/src/r7rs-large/scheme/vector/s8.ss b/src/v0.19-TODIE/r7rs-large/scheme/vector/s8.ss similarity index 100% rename from src/r7rs-large/scheme/vector/s8.ss rename to src/v0.19-TODIE/r7rs-large/scheme/vector/s8.ss diff --git a/src/r7rs-large/scheme/vector/u16.ss b/src/v0.19-TODIE/r7rs-large/scheme/vector/u16.ss similarity index 100% rename from src/r7rs-large/scheme/vector/u16.ss rename to src/v0.19-TODIE/r7rs-large/scheme/vector/u16.ss diff --git a/src/r7rs-large/scheme/vector/u32.ss b/src/v0.19-TODIE/r7rs-large/scheme/vector/u32.ss similarity index 100% rename from src/r7rs-large/scheme/vector/u32.ss rename to src/v0.19-TODIE/r7rs-large/scheme/vector/u32.ss diff --git a/src/r7rs-large/scheme/vector/u64.ss b/src/v0.19-TODIE/r7rs-large/scheme/vector/u64.ss similarity index 100% rename from src/r7rs-large/scheme/vector/u64.ss rename to src/v0.19-TODIE/r7rs-large/scheme/vector/u64.ss diff --git a/src/r7rs-large/scheme/vector/u8.ss b/src/v0.19-TODIE/r7rs-large/scheme/vector/u8.ss similarity index 100% rename from src/r7rs-large/scheme/vector/u8.ss rename to src/v0.19-TODIE/r7rs-large/scheme/vector/u8.ss diff --git a/src/srfi/1.ss b/src/v0.19-TODIE/srfi/1.ss similarity index 100% rename from src/srfi/1.ss rename to src/v0.19-TODIE/srfi/1.ss diff --git a/src/srfi/101.ss b/src/v0.19-TODIE/srfi/101.ss similarity index 100% rename from src/srfi/101.ss rename to src/v0.19-TODIE/srfi/101.ss diff --git a/src/srfi/113.ss b/src/v0.19-TODIE/srfi/113.ss similarity index 100% rename from src/srfi/113.ss rename to src/v0.19-TODIE/srfi/113.ss diff --git a/src/srfi/115.ss b/src/v0.19-TODIE/srfi/115.ss similarity index 100% rename from src/srfi/115.ss rename to src/v0.19-TODIE/srfi/115.ss diff --git a/src/srfi/116.ss b/src/v0.19-TODIE/srfi/116.ss similarity index 100% rename from src/srfi/116.ss rename to src/v0.19-TODIE/srfi/116.ss diff --git a/src/srfi/117.ss b/src/v0.19-TODIE/srfi/117.ss similarity index 100% rename from src/srfi/117.ss rename to src/v0.19-TODIE/srfi/117.ss diff --git a/src/srfi/121.ss b/src/v0.19-TODIE/srfi/121.ss similarity index 100% rename from src/srfi/121.ss rename to src/v0.19-TODIE/srfi/121.ss diff --git a/src/srfi/124.ss b/src/v0.19-TODIE/srfi/124.ss similarity index 100% rename from src/srfi/124.ss rename to src/v0.19-TODIE/srfi/124.ss diff --git a/src/srfi/127.ss b/src/v0.19-TODIE/srfi/127.ss similarity index 100% rename from src/srfi/127.ss rename to src/v0.19-TODIE/srfi/127.ss diff --git a/src/srfi/128.ss b/src/v0.19-TODIE/srfi/128.ss similarity index 100% rename from src/srfi/128.ss rename to src/v0.19-TODIE/srfi/128.ss diff --git a/src/srfi/13.ss b/src/v0.19-TODIE/srfi/13.ss similarity index 100% rename from src/srfi/13.ss rename to src/v0.19-TODIE/srfi/13.ss diff --git a/src/srfi/130.ss b/src/v0.19-TODIE/srfi/130.ss similarity index 100% rename from src/srfi/130.ss rename to src/v0.19-TODIE/srfi/130.ss diff --git a/src/srfi/132.ss b/src/v0.19-TODIE/srfi/132.ss similarity index 100% rename from src/srfi/132.ss rename to src/v0.19-TODIE/srfi/132.ss diff --git a/src/srfi/133.ss b/src/v0.19-TODIE/srfi/133.ss similarity index 100% rename from src/srfi/133.ss rename to src/v0.19-TODIE/srfi/133.ss diff --git a/src/srfi/134.ss b/src/v0.19-TODIE/srfi/134.ss similarity index 100% rename from src/srfi/134.ss rename to src/v0.19-TODIE/srfi/134.ss diff --git a/src/srfi/135.ss b/src/v0.19-TODIE/srfi/135.ss similarity index 100% rename from src/srfi/135.ss rename to src/v0.19-TODIE/srfi/135.ss diff --git a/src/srfi/14.ss b/src/v0.19-TODIE/srfi/14.ss similarity index 100% rename from src/srfi/14.ss rename to src/v0.19-TODIE/srfi/14.ss diff --git a/src/srfi/141.ss b/src/v0.19-TODIE/srfi/141.ss similarity index 100% rename from src/srfi/141.ss rename to src/v0.19-TODIE/srfi/141.ss diff --git a/src/srfi/143.ss b/src/v0.19-TODIE/srfi/143.ss similarity index 100% rename from src/srfi/143.ss rename to src/v0.19-TODIE/srfi/143.ss diff --git a/src/srfi/144.ss b/src/v0.19-TODIE/srfi/144.ss similarity index 100% rename from src/srfi/144.ss rename to src/v0.19-TODIE/srfi/144.ss diff --git a/src/srfi/145.ss b/src/v0.19-TODIE/srfi/145.ss similarity index 100% rename from src/srfi/145.ss rename to src/v0.19-TODIE/srfi/145.ss diff --git a/src/srfi/146.ss b/src/v0.19-TODIE/srfi/146.ss similarity index 100% rename from src/srfi/146.ss rename to src/v0.19-TODIE/srfi/146.ss diff --git a/src/srfi/146/hamt-map.ss b/src/v0.19-TODIE/srfi/146/hamt-map.ss similarity index 100% rename from src/srfi/146/hamt-map.ss rename to src/v0.19-TODIE/srfi/146/hamt-map.ss diff --git a/src/srfi/146/hamt-misc.ss b/src/v0.19-TODIE/srfi/146/hamt-misc.ss similarity index 100% rename from src/srfi/146/hamt-misc.ss rename to src/v0.19-TODIE/srfi/146/hamt-misc.ss diff --git a/src/srfi/146/hamt.ss b/src/v0.19-TODIE/srfi/146/hamt.ss similarity index 100% rename from src/srfi/146/hamt.ss rename to src/v0.19-TODIE/srfi/146/hamt.ss diff --git a/src/srfi/146/hash.ss b/src/v0.19-TODIE/srfi/146/hash.ss similarity index 100% rename from src/srfi/146/hash.ss rename to src/v0.19-TODIE/srfi/146/hash.ss diff --git a/src/srfi/146/vector-edit.ss b/src/v0.19-TODIE/srfi/146/vector-edit.ss similarity index 100% rename from src/srfi/146/vector-edit.ss rename to src/v0.19-TODIE/srfi/146/vector-edit.ss diff --git a/src/srfi/151.ss b/src/v0.19-TODIE/srfi/151.ss similarity index 100% rename from src/srfi/151.ss rename to src/v0.19-TODIE/srfi/151.ss diff --git a/src/srfi/158.ss b/src/v0.19-TODIE/srfi/158.ss similarity index 100% rename from src/srfi/158.ss rename to src/v0.19-TODIE/srfi/158.ss diff --git a/src/srfi/159.ss b/src/v0.19-TODIE/srfi/159.ss similarity index 100% rename from src/srfi/159.ss rename to src/v0.19-TODIE/srfi/159.ss diff --git a/src/srfi/159/base.ss b/src/v0.19-TODIE/srfi/159/base.ss similarity index 100% rename from src/srfi/159/base.ss rename to src/v0.19-TODIE/srfi/159/base.ss diff --git a/src/srfi/159/color.ss b/src/v0.19-TODIE/srfi/159/color.ss similarity index 100% rename from src/srfi/159/color.ss rename to src/v0.19-TODIE/srfi/159/color.ss diff --git a/src/srfi/159/columnar.ss b/src/v0.19-TODIE/srfi/159/columnar.ss similarity index 100% rename from src/srfi/159/columnar.ss rename to src/v0.19-TODIE/srfi/159/columnar.ss diff --git a/src/srfi/159/environment.ss b/src/v0.19-TODIE/srfi/159/environment.ss similarity index 100% rename from src/srfi/159/environment.ss rename to src/v0.19-TODIE/srfi/159/environment.ss diff --git a/src/srfi/159/pretty.ss b/src/v0.19-TODIE/srfi/159/pretty.ss similarity index 100% rename from src/srfi/159/pretty.ss rename to src/v0.19-TODIE/srfi/159/pretty.ss diff --git a/src/srfi/159/show.ss b/src/v0.19-TODIE/srfi/159/show.ss similarity index 100% rename from src/srfi/159/show.ss rename to src/v0.19-TODIE/srfi/159/show.ss diff --git a/src/srfi/159/string.ss b/src/v0.19-TODIE/srfi/159/string.ss similarity index 100% rename from src/srfi/159/string.ss rename to src/v0.19-TODIE/srfi/159/string.ss diff --git a/src/srfi/159/unicode.ss b/src/v0.19-TODIE/srfi/159/unicode.ss similarity index 100% rename from src/srfi/159/unicode.ss rename to src/v0.19-TODIE/srfi/159/unicode.ss diff --git a/src/srfi/160/base.ss b/src/v0.19-TODIE/srfi/160/base.ss similarity index 100% rename from src/srfi/160/base.ss rename to src/v0.19-TODIE/srfi/160/base.ss diff --git a/src/srfi/160/c128.ss b/src/v0.19-TODIE/srfi/160/c128.ss similarity index 100% rename from src/srfi/160/c128.ss rename to src/v0.19-TODIE/srfi/160/c128.ss diff --git a/src/srfi/160/c64.ss b/src/v0.19-TODIE/srfi/160/c64.ss similarity index 100% rename from src/srfi/160/c64.ss rename to src/v0.19-TODIE/srfi/160/c64.ss diff --git a/src/srfi/160/f32.ss b/src/v0.19-TODIE/srfi/160/f32.ss similarity index 100% rename from src/srfi/160/f32.ss rename to src/v0.19-TODIE/srfi/160/f32.ss diff --git a/src/srfi/160/f64.ss b/src/v0.19-TODIE/srfi/160/f64.ss similarity index 100% rename from src/srfi/160/f64.ss rename to src/v0.19-TODIE/srfi/160/f64.ss diff --git a/src/srfi/160/s16.ss b/src/v0.19-TODIE/srfi/160/s16.ss similarity index 100% rename from src/srfi/160/s16.ss rename to src/v0.19-TODIE/srfi/160/s16.ss diff --git a/src/srfi/160/s32.ss b/src/v0.19-TODIE/srfi/160/s32.ss similarity index 100% rename from src/srfi/160/s32.ss rename to src/v0.19-TODIE/srfi/160/s32.ss diff --git a/src/srfi/160/s64.ss b/src/v0.19-TODIE/srfi/160/s64.ss similarity index 100% rename from src/srfi/160/s64.ss rename to src/v0.19-TODIE/srfi/160/s64.ss diff --git a/src/srfi/160/s8.ss b/src/v0.19-TODIE/srfi/160/s8.ss similarity index 100% rename from src/srfi/160/s8.ss rename to src/v0.19-TODIE/srfi/160/s8.ss diff --git a/src/srfi/160/u16.ss b/src/v0.19-TODIE/srfi/160/u16.ss similarity index 100% rename from src/srfi/160/u16.ss rename to src/v0.19-TODIE/srfi/160/u16.ss diff --git a/src/srfi/160/u32.ss b/src/v0.19-TODIE/srfi/160/u32.ss similarity index 100% rename from src/srfi/160/u32.ss rename to src/v0.19-TODIE/srfi/160/u32.ss diff --git a/src/srfi/160/u64.ss b/src/v0.19-TODIE/srfi/160/u64.ss similarity index 100% rename from src/srfi/160/u64.ss rename to src/v0.19-TODIE/srfi/160/u64.ss diff --git a/src/srfi/160/u8.ss b/src/v0.19-TODIE/srfi/160/u8.ss similarity index 100% rename from src/srfi/160/u8.ss rename to src/v0.19-TODIE/srfi/160/u8.ss diff --git a/src/srfi/19.ss b/src/v0.19-TODIE/srfi/19.ss similarity index 100% rename from src/srfi/19.ss rename to src/v0.19-TODIE/srfi/19.ss diff --git a/src/srfi/212.ss b/src/v0.19-TODIE/srfi/212.ss similarity index 100% rename from src/srfi/212.ss rename to src/v0.19-TODIE/srfi/212.ss diff --git a/src/srfi/41.ss b/src/v0.19-TODIE/srfi/41.ss similarity index 100% rename from src/srfi/41.ss rename to src/v0.19-TODIE/srfi/41.ss diff --git a/src/srfi/42.ss b/src/v0.19-TODIE/srfi/42.ss similarity index 100% rename from src/srfi/42.ss rename to src/v0.19-TODIE/srfi/42.ss diff --git a/src/srfi/43.ss b/src/v0.19-TODIE/srfi/43.ss similarity index 100% rename from src/srfi/43.ss rename to src/v0.19-TODIE/srfi/43.ss diff --git a/src/srfi/78.ss b/src/v0.19-TODIE/srfi/78.ss similarity index 100% rename from src/srfi/78.ss rename to src/v0.19-TODIE/srfi/78.ss diff --git a/src/srfi/8.ss b/src/v0.19-TODIE/srfi/8.ss similarity index 100% rename from src/srfi/8.ss rename to src/v0.19-TODIE/srfi/8.ss diff --git a/src/srfi/9.ss b/src/v0.19-TODIE/srfi/9.ss similarity index 100% rename from src/srfi/9.ss rename to src/v0.19-TODIE/srfi/9.ss diff --git a/src/srfi/95.ss b/src/v0.19-TODIE/srfi/95.ss similarity index 100% rename from src/srfi/95.ss rename to src/v0.19-TODIE/srfi/95.ss diff --git a/src/srfi/build.ss b/src/v0.19-TODIE/srfi/build.ss similarity index 100% rename from src/srfi/build.ss rename to src/v0.19-TODIE/srfi/build.ss diff --git a/src/srfi/gerbil.pkg b/src/v0.19-TODIE/srfi/gerbil.pkg similarity index 100% rename from src/srfi/gerbil.pkg rename to src/v0.19-TODIE/srfi/gerbil.pkg From b37795d85a7f27d309f89e7a2ad554f64f257eb3 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau Date: Sun, 5 Oct 2025 18:22:51 -0400 Subject: [PATCH 3/5] Small improvements to C4 documentation --- doc/reference/gerbil/runtime/c3.md | 32 +++++++++++++++++------------- src/gerbil/runtime/c3.ss | 21 ++++++++++---------- 2 files changed, 29 insertions(+), 24 deletions(-) diff --git a/doc/reference/gerbil/runtime/c3.md b/doc/reference/gerbil/runtime/c3.md index eb5a3d66e3..e059b2166f 100644 --- a/doc/reference/gerbil/runtime/c3.md +++ b/doc/reference/gerbil/runtime/c3.md @@ -32,7 +32,7 @@ constraints, omitting to count the 4th, yet implicitly respecting it: Additionally, C4 extends C3 with support for structs that require single-inheritance, by adding the following constraint: - 5. *Struct Suffix* (first implicitly recognized by Scala 3?): + 5. *Struct Suffix* (first implicitly recognized by Ruby, and later by Scala 3): A struct's precedence list is a suffix of the precedence list of its subclasses. @@ -48,24 +48,28 @@ the precedence list in cases that multiple solutions satisfy the above constrain this is equivalent to building the precedence list tail-first with the reverse traversal. A different traversal for instance would be depth-first, but there are good reasons to pick depth-first, notably in perserving as much as possible the tail of the precedence list, - thereby maximizing sharing of partial semantics in methods and slots. + thereby maximizing sharing of partial semantics in methods and slots + even when the tail is not explicitly declared as being part of a struct. *NB*: C3 was adopted by many modern multiple inheritance object systems for its consistency properties: OpenDylan, Python 2.3, Raku, Parrot, Solidity, PGF/TikZ. -Our 5th constraint has been adopted by Scala 3 -(that fails to otherwise use C3 or offer its consistency). -But as far as we know, as of May 2025, Gerbil Scheme 0.18.2 is the only language adopting both. +Our 5th constraint has been adopted by Ruby and Scala 3, +that fail to otherwise use C3 or offer its consistency. + +But as far as we know, as of May 2025, Gerbil Scheme 0.18.2 is the only language +respecting all these constraints. *PS*: Common Lisp, and the earlier tradition of multiple inheritance, that we -follow here, all the way back to Flavors, calls "classes" the things with -multiple inheritance and "structs" the things with single inheritance only. -Smalltalk and after it Java, and the earlier and historically more prevalent -tradition of single inheritance, calls "classes" the things with single -inheritance and "traits" the things with multiple inheritance (after Mesa). -C++ only has multiple inheritance (though duplicating non-virtual superclasses -behave more like mixin inheritance), and calls "struct" a class where all -"members" are public by default. Wonderful nomenclature, right? -We here stick to the Common Lisp namings. +follow here, all the way back to Flavors, calls "classes" the entities with +multiple inheritance and "structs" the entities with single inheritance only. +Smalltalk and after it Java and Scala, and the earlier and historically more prevalent +tradition of single inheritance, calls "classes" the entities with single +inheritance and "traits" the entities with multiple inheritance (after Mesa); +as for Ruby, it calls them respectively "classes" and "modules". +C++ only has its own limited variant of "Multiple Inheritance" +(though duplicating non-virtual superclasses behave more like mixin inheritance), +and calls "struct" a class where all "members" are public by default. +Wonderful nomenclature, right? We here stick to the Common Lisp namings. ## Procedures diff --git a/src/gerbil/runtime/c3.ss b/src/gerbil/runtime/c3.ss index 6210dbb44c..aa43d0564e 100644 --- a/src/gerbil/runtime/c3.ss +++ b/src/gerbil/runtime/c3.ss @@ -14,15 +14,15 @@ namespace: #f (export c4-linearize) (import "util") -;; C5 linearization algorithm: given a top object x from which to compute the precedence list, +;; C4 linearization algorithm: given a top object x from which to compute the precedence list, ;; - rhead is the reverse of a prefix for the precedence list, typically [x] or [] ;; depending on whether to include x as head of the result. ;; - supers the list of direct supers of x, typically (get-supers x) ;; - get-precedence-list gets the precedence list for a super s, including s itself in front ;; - struct is a predicate that tells if a class follows single inheritance, and ;; must have its precedence list be a suffix of any subclass' precedence list. -;; - eq is an equality predicate between list elements -;; - get-name gets the name of a object/class, for debugging only. +;; - eq is an equality predicate between list elements (defaults to eq?). +;; - get-name gets the name of a object/class, for debugging only (defaults to identity). ;; Returns the linearized precedence list, and the most specific struct superclass if any ;; : (List X) (List X) \ ;; get-precedence-list: (X -> (NonEmptyList X)) \ @@ -38,23 +38,24 @@ namespace: #f => :values (cond - ((null? supers) ;; 0 direct superclass: base class + ((null? supers) ;; 0 direct superclass: it's a base class (values (reverse rhead) #f)) - ((null? (cdr supers)) ;; 1 direct superclass: effective single inheritance + ((null? (cdr supers)) ;; 1 direct superclass: it's effectively single inheritance (let (pl (get-precedence-list (car supers))) (values (append-reverse rhead pl) (find struct? pl)))) - (else ;; 2 direct superclasses or more: effective multiple inheritance + (else ;; 2 direct superclasses or more: it's effectively multiple inheritance (let ((pls (map get-precedence-list supers)) ;; (List (List X)) ;; precedence lists to merge (sis [])) ;; (List X) ;; single-inheritance suffix ;; Split every precedence list at the first struct, consider whatever ;; follows as a suffix of the precedence-list. Merge all the suffixes, ;; where two suffixes are compatible if one is a suffix of the other. - ;; Then in each remaining precedence list, (a) remove from the end the + ;; Then in each remaining precedence list, remove from the end the ;; classes that are in the correct order in the suffix, until you reach one - ;; that isn't in the suffix, then check that no more class there is in the - ;; suffix (or else there's an incompatibility). + ;; that isn't in the suffix, then check that no more class remains in the list + ;; that is in the suffix (or else there's an incompatibility, as in + ;; this example bug: direct supers (A) (S A) (B A S)). ;; Use that as suffix of the precedence list, ;; and for the (reverse) head, proceed as usual with C3. @@ -162,7 +163,7 @@ namespace: #f (set-car! t tail)) (loop more))))) - ;; Now for the regular C3 loop + ;; The regular C3 loop ;; NB: if we cached the lengths of the precedence lists, ;; we could walk the precedence list to check which longest tail has the same length ;; as that of the precedence list of its top element, thereby being that very same list, From e4ff430c6c1a4e0c2de374e4c018e4e9d25143b8 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau Date: Mon, 29 Dec 2025 05:18:00 -0500 Subject: [PATCH 4/5] =?UTF-8?q?Update=20C4=20to=20be=20O(dn)=20instead=20o?= =?UTF-8?q?f=20O(d=C2=B2n=C2=B2)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- doc/reference/gerbil/runtime/c3.md | 86 +++++--- src/gerbil/runtime/c3.ss | 323 ++++++++++++++++++----------- src/gerbil/runtime/util.ss | 22 +- src/gerbil/test/c3-test.ss | 21 +- 4 files changed, 278 insertions(+), 174 deletions(-) diff --git a/doc/reference/gerbil/runtime/c3.md b/doc/reference/gerbil/runtime/c3.md index e059b2166f..9ba235f1ac 100644 --- a/doc/reference/gerbil/runtime/c3.md +++ b/doc/reference/gerbil/runtime/c3.md @@ -12,17 +12,17 @@ constraints, omitting to count the 4th, yet implicitly respecting it: 1. *Linearization* (introduced by Flavors): The precedence list returned is a linearization (total order extension) - of the inheritance DAG (viewed as a partial order). + of the inheritance DAG (viewed as a partial). - 2. *Direct Superclass Ordering* (introduced by New Flavors): - The list of a class's direct super classes, a.k.a. its local precedence list, + 2. *Local Precedence Order* (introduced by New Flavors 1986): + The list of a specification's parents, a.k.a. its local precedence list, is a sublist of its precedence list (seen as an order, i.e. all elements are present in the same order but not necessarily consecutively). 3. *Monotonicity* (introduced by Ducournau et al. 1992 as "monotonic linearization"): - A class's precedence list is included as a sublist + A specification's precedence list is included as a sublist (seen as an order, same as above) - in the precedence list of each of its subclasses. + in the precedence list of each of its descendents. 4. *Shape Determinism* (introduced by Ducournau et al. 1994 as "acceptability"): The precedence list must only depend on the *shape* of the inheritance graph @@ -34,7 +34,7 @@ by adding the following constraint: 5. *Struct Suffix* (first implicitly recognized by Ruby, and later by Scala 3): A struct's precedence list is a suffix - of the precedence list of its subclasses. + of the precedence list of its descendents. Finally, C4 uses the following heuristic, same as C3, to deterministically compute the precedence list in cases that multiple solutions satisfy the above constraints: @@ -43,7 +43,7 @@ the precedence list in cases that multiple solutions satisfy the above constrain When the above constraints do not suffice to uniquely determine the next element in the precedence list, a choice is made between multiple candidates, and, given Shape Determinism and the other constraints above, this choice must be based on - a *traversal* of the list of precedence lists from direct superclasses. + a *traversal* of the list of precedence lists from parents. As per the C3 algorithm, we build precedence list head-first with a depth-first traversal; this is equivalent to building the precedence list tail-first with the reverse traversal. A different traversal for instance would be depth-first, but there are good reasons to pick @@ -57,7 +57,8 @@ Our 5th constraint has been adopted by Ruby and Scala 3, that fail to otherwise use C3 or offer its consistency. But as far as we know, as of May 2025, Gerbil Scheme 0.18.2 is the only language -respecting all these constraints. +respecting all these constraints. Also, as of December 2025, Gerbil Scheme will be +the only one that implements C3 (and C4) in O(dn) instead of O(d²n²) as in the original. *PS*: Common Lisp, and the earlier tradition of multiple inheritance, that we follow here, all the way back to Flavors, calls "classes" the entities with @@ -69,56 +70,61 @@ as for Ruby, it calls them respectively "classes" and "modules". C++ only has its own limited variant of "Multiple Inheritance" (though duplicating non-virtual superclasses behave more like mixin inheritance), and calls "struct" a class where all "members" are public by default. -Wonderful nomenclature, right? We here stick to the Common Lisp namings. + +To avoid all these clashes, we call "specification" a class or prototype or entity +subject to inheritance, "target" the entity being specified, and "suffix" a specification +that has the suffix property, in which case we distinguish a "suffix specification" +from a "suffix precedence list". + ## Procedures ### c4-linearize ```scheme -(c4-linearize rhead supers +(c4-linearize rhead parents get-precedence-list: get-precedence-list struct: struct? [eq: eq?] - [get-name: get-name]) -> (values list (or class #f)) + [get-name: get-name]) -> (values list (or suffix-specification #f)) ``` -Compute the class precedence list of a class, given its super-classes and additional information. +Compute the precedence list of a specification, given its parents and additional information. This function takes two positional arguments, two compulsory keyword arguments `get-precedence-list:` and `struct:`, and two optional keyword arguments `eq:` (defaults to `eq?`) and `get-name` (defaults to the `identity` function). It returns two values, the precedence list from most-specific to least-specific, -and the most specific superclass that is a `struct`, or `#f` if none is found. +and the most specific ancestor that is a `struct`, or `#f` if none is found. -The function abstracts over the type `X` of class descriptors used for input and output, -that it only access via the values and functions passed as arguments: +The function abstracts over the type `X` of specifications (typically class descriptors) +used for input and output, that it only access via the values and functions passed as arguments: - `rhead` is a list of `X`, the reverse of a prefix to the precedence list. Its value will be prepended to the list as computed. In typical uses, `rhead` is either an empty list, or a singleton list containing - the class descriptor for the class whose precedence list is being computed. + the specification whose precedence list is being computed. - - `supers` is a list of `X`, class descriptors for direct super-classes of the one being defined. - In typical uses, `supers` will be `(direct-supers x)` where `x` is the class for which - the precedence list is being computed. + - `parents` is a list of `X`, specifications for parents of the one being defined. + In typical uses, `parents` will be `(direct-supers x)` where `x` is the specification whose + precedence list is being computed. - - `get-precedence-list:` specifies a procedure that, given a class descriptor `c` of type `X` - for a direct super-class of the class at stake, returns the precedence list of `c`, - from most-specific to least-specific, with `c` included at the start. + - `get-precedence-list:` specifies a procedure that, given a specification `x` of type `X` + for a parent of the specification at stake, returns the precedence list of `x`, + from most-specific to least-specific, with `x` included at the start. - - `struct:` specifies a predicate that, given a class descriptor `c` of type `X` (as above), - returns true if the class is a “struct”, subject to the *suffix constraint* + - `struct:` specifies a predicate that, given a specification `x` of type `X` (as above), + returns true if the specification is a “struct”, subject to the *suffix constraint* (see section with that name above). - `eq:` (optional, defaults to `eq?`) specifies what predicate to use - to compare class descriptors of type `X` for equality. + to compare specifications of type `X` for equality. - `get-name:` (optional, defaults to the `identity` function) specifies what function to use - to print the name of a class descriptor of type `X` in case an inheritance inconsistency is detected, + to print the name of a specification of type `X` in case an inheritance inconsistency is detected, and an error message must be printed. -The precedence lists involved are ordered from most-specific class first -to least-specific class last (with the base class at the end). +The precedence lists involved are ordered from most-specific specification first +to least-specific specification last (with any base specification at the end). An error is raised if there is an inconsistency in the inheritance DAG such that no linearization exists that satisfies the four constraints. @@ -132,6 +138,14 @@ http://archive.computerhistory.org/resources/text/Knuth_Don_X4100/PDF_index/k-9- (Introduces the concept of class, though without an implementation thereof. Also introduces the infamous "billion dollar mistake", NULL.) +[Dahl 1966] +Ole-Johan Dahl and Kristen Nygaard +"Class and subclass declarations", 1967, +https://www.ub.uio.no/fag/naturvitenskap-teknologi/informatikk/faglig/dns/dokumenter/classandsubclass1967.pdf +(First implementation of classes, has "prefix classes", and their "subclasses", +a "prefix sequence" for the ancestry, the keyword "this", "objects" and their "attributes", +and a "concatenation" based semantics for single inheritance (not the word "inheritance" though). + [Winograd 1975] Terry Winograd, "Frame Representations and the Declarative/Procedural Controversy", 1975 @@ -151,8 +165,9 @@ for as many "perspectives".) [Kahn 1976] Kenneth Michael Kahn, "An Actor-Based Computer Animation Language", 1976 -(Takes from AI knowledge representation research the concepts of prototype object-orientation -and multiple inheritance, and frames them as a programming language.) +(Takes from AI knowledge representation research the concepts of prototype object-orientation, +and frames them as a programming language. Frames had multiple inheritance, but it looks like +Director only had single inheritance.) [Borning 1977] Alan Hamilton Borning, @@ -165,7 +180,8 @@ Howard Cannon, "Flavors: A non-hierarchical approach to object-oriented programming", 1979 https://www.softwarepreservation.org/projects/LISP/MIT/nnnfla1-20040122.pdf (Documents a message-passing class-based object system with multiple inheritance, -linearization, mixins, method combinations.) +linearization, mixins, method combinations. Not well-known outside MIT at the time. +Updated and published a bit more widely in 1982. Republished 2004.) [Curry 1982] Gael Curry, Larry Baer, Daniel Lipkie, and Bruce Lee, @@ -174,10 +190,16 @@ Gael Curry, Larry Baer, Daniel Lipkie, and Bruce Lee, to the Mesa programming language (started early 1978 with single inheritance), in which WS, the workstation software of the Xerox Star 8010, was written.) +[Moon 1986] +David Moon +"Object-Oriented Programming with Flavors", 1986 +(Introduces Flavors to a wider public than Cannon, with cleanups. +Introduces the local precedence order (or did Bobrow do it first?)) + [Bobrow 1986] Daniel G. Bobrow, Kenneth Kahn, Gregor Kiczales, Larry Masinter, Mark Stefyk, and Frank Zdybel "CommonLoops: Merging Lisp and Object-Oriented Programming", 1986 -(Object system for Common lisp, introduces multimethods and direct superclass ordering.) +(Object system for Common lisp, introduces multimethods. Has local precedence order.) [Bracha 1990] Gilad Bracha, and William Cook, diff --git a/src/gerbil/runtime/c3.ss b/src/gerbil/runtime/c3.ss index aa43d0564e..ac12464f35 100644 --- a/src/gerbil/runtime/c3.ss +++ b/src/gerbil/runtime/c3.ss @@ -1,7 +1,7 @@ ;;; -*- Gerbil -*- ;;; © fare ;;; The C4 linearization algorithm to topologically sort a multiple-inheritance -;;; DAG into a precedence list. C4 is an extension of C3 that supports "structs". +;;; DAG into a precedence list. C4 is an extension of C3 that supports "suffixes" a.k.a. "structs". ;;; ;;; See ../../../doc/reference/gerbil/runtime/c3.md for detailed explanations. ;;; See ../test/c3-test.ss for tests. @@ -11,157 +11,230 @@ prelude: "../core" package: gerbil/runtime namespace: #f -(export c4-linearize) +(export c4-linearize c4-linearize*) (import "util") -;; C4 linearization algorithm: given a top object x from which to compute the precedence list, -;; - rhead is the reverse of a prefix for the precedence list, typically [x] or [] +;; Temporary, for backwards compatibility only +(def (c4-linearize rhead supers + get-precedence-list: get-precedence-list + struct: (struct? #f) + eq: (eq eq?) + get-name: (get-name identity)) + => :values + (c4-linearize* (reverse rhead) supers + get-precedence-list: get-precedence-list + suffix: struct? + eq: eq + get-name: get-name)) + +;; C4 linearization algorithm: compute the precedence list of a specification x, +;; i.e. the best total order between its ancestors (transitive parents). +;; - head is a prefix to prepend to the precedence list, typically [x] or [] ;; depending on whether to include x as head of the result. -;; - supers the list of direct supers of x, typically (get-supers x) -;; - get-precedence-list gets the precedence list for a super s, including s itself in front -;; - struct is a predicate that tells if a class follows single inheritance, and -;; must have its precedence list be a suffix of any subclass' precedence list. +;; - parents the list of parents of x, typically (get-supers x) +;; - get-precedence-list gets the precedence list for a parent, including the parent itself in front +;; - suffix is a predicate that tells if a specification follows the suffix property, i.e. +;; must have its precedence list be a suffix of any subclass' precedence list +;; (with single inheritance among suffixes) ;; - eq is an equality predicate between list elements (defaults to eq?). ;; - get-name gets the name of a object/class, for debugging only (defaults to identity). -;; Returns the linearized precedence list, and the most specific struct superclass if any +;; Returns three values: +;; - the linearized precedence list, +;; - the most specific suffix ancestor if any +;; - a table that maps each ancestor to the tail of the precedence list starting with it. ;; : (List X) (List X) \ -;; get-precedence-list: (X -> (NonEmptyList X)) \ -;; struct: (X -> Bool) \ +;; get-precedence-info: (X -> (NonEmptyList X) (OrFalse X) (Hash X (List X))) \ +;; suffix: (X -> Bool) \ +;; super-suffix: (X -> (OrFalse X)) \ ;; eq: ?(X X -> Bool) \ +;; eq: ?(-> (Hash X (List X))) \ ;; get-name: ?(X -> Y) \ -;; -> (List X) (OrFalse X) -(def (c4-linearize rhead supers - get-precedence-list: get-precedence-list - struct: struct? - eq: (eq eq?) - get-name: (get-name identity)) +;; -> (List X) (OrFalse X) (Hash X (List X)) +(def (c4-linearize* head parents + get-precedence-list: get-precedence-list + suffix: suffix? + super-suffix: (super-suffix (lambda (x) (find suffix? (cdr (get-precedence-list x))))) + eq: (eq eq?) + get-name: (get-name identity)) => :values - (cond - ((null? supers) ;; 0 direct superclass: it's a base class - (values (reverse rhead) #f)) - ((null? (cdr supers)) ;; 1 direct superclass: it's effectively single inheritance - (let (pl (get-precedence-list (car supers))) - (values (append-reverse rhead pl) - (find struct? pl)))) - (else ;; 2 direct superclasses or more: it's effectively multiple inheritance - (let ((pls (map get-precedence-list supers)) ;; (List (List X)) ;; precedence lists to merge - (sis [])) ;; (List X) ;; single-inheritance suffix - - ;; Split every precedence list at the first struct, consider whatever - ;; follows as a suffix of the precedence-list. Merge all the suffixes, - ;; where two suffixes are compatible if one is a suffix of the other. - ;; Then in each remaining precedence list, remove from the end the - ;; classes that are in the correct order in the suffix, until you reach one - ;; that isn't in the suffix, then check that no more class remains in the list - ;; that is in the suffix (or else there's an incompatibility, as in - ;; this example bug: direct supers (A) (S A) (B A S)). - ;; Use that as suffix of the precedence list, - ;; and for the (reverse) head, proceed as usual with C3. + ((null? parents) ;; 0 parents: it's a base class + (values head #f)) + ((null? (cdr parents)) ;; 1 parent: it's effectively single inheritance + (let* ((parent (car parents)) + (pl (get-precedence-list parent))) + (values (append head pl) + (if (suffix? parent) parent (super-suffix parent))))) + (else ;; 2 parents or more: it's effectively multiple inheritance + (let (;; precedence lists to merge + (pls (map get-precedence-list parents)) ;; : (List (NonEmptyList X)) + ;; super suffix: the most-specific suffix ancestor (known so far) + (ss #f)) ;; : (OrFalse X) + ;; Utilities (def (get-names lst) (map get-name lst)) (def (err . a) (apply error "Inconsistent precedence graph" - head: (get-names (reverse rhead)) + head: (get-names head) precedence-lists: (map get-names pls) - single-inheritance-suffix: (get-names sis) a)) - (def (eqlist? l1 l2) - (or (eq? l1 l2) - (and (andmap eq l1 l2) - (fx= (length l1) (length l2))))) - - ;;; Deal with the struct suffix - (def (merge-sis! sis2) + common-suffix-suffix: (get-name ss) + a)) + + ;; is s2 a suffix of s1? + (def (super-suffix? s1 s2) + (or (not s2) + (let loop ((s s1)) + (and s (or (eq s s2) (loop (super-suffix s))))))) + + ;; merge suffixes s1 and s2. + ;; Both are specifications with the suffix property (or #f if not found): + ;; return the more specific one, or raise an error if they are not compatible. + (def (merge-suffix s1 s2) (cond - ((null? sis2) (void)) ;; no new struct suffix - ((null? sis) (set! sis sis2)) ;; yes new struct suffix + ((not s2) s1) ;; s1 is more specific + ((not s1) s2) ;; s2 is more specific (else - (let loop ((t1 sis) (t2 sis2)) + (let loop ((t1 s1) (t2 s2)) ;; iterate over super-suffixes of s1 and s2 (cond - ((eqlist? t1 sis2) (void)) ;; sis is a prefix of sis2 - ((eqlist? t2 sis) (set! sis sis2)) ;; sis2 is a prefix of sis - ((null? t1) (if (member (car sis) t2 eq) (set! sis sis2) - (err struct-incompatibility: [(get-names sis) (get-names sis2)]))) - ((null? t2) (if (member (car sis2) t1 eq) (void) - (err struct-incompatibility: [(get-names sis) (get-names sis2)]))) - (else (loop (cdr t1) (cdr t2)))))))) - ;;; For each superclass's precedence list, handle its struct suffix, - ;;; and collect the reverse of its structless prefix. - (def rpls + ((eq t1 s2) s1) ;; s1 is more specific + ((eq t2 s1) s2) ;; s2 is more specific + ((not t1) (if (super-suffix? t2 s1) s2 + (err suffix-incompatibility: [(get-name s1) (get-name s2)]))) + ((not t2) (if (super-suffix? t1 s2) s1 + (err suffix-incompatibility: [(get-name s1) (get-name s2)]))) + (else (loop (super-suffix t1) + (super-suffix t2)))))))) + + ;; Reverse the precedence lists, + ;; after removing each of their most specific element and its precedence list. + ;; Update the ss variable with each of the suffix specifications found. + ;; This is a C4 specific step, not needed in plain C3. + (def rpls ;; : (List (List X)) (map (lambda (pl) - (let-values (((tl rh) (append-reverse-until struct? pl []))) - (merge-sis! tl) + (let-values (((tl rh) (append-reverse-until suffix? pl []))) + (unless (null? tl) + (set! ss (merge-suffix ss (car tl)))) rh)) pls)) - ;; Now that structs can inherit from classes, the superclasses from another - ;; direct superclass could have inherited from one of those classes, so - ;; we must remove those classes from the current precedence list structless prefix, - ;; after checking that each was included in the right order in the overall suffix. - ;; We can safely assume that there was no inconsistency - ;; within the direct superclass's precedence list, only between precedence list - ;; (or else, trying to compute the inconsistent precedence list would already have errored out). - ;; This function processes the structless prefix of one direct superclass's precedence list, - ;; given in "reverse" least-specific to most-specific order, and returns those classes - ;; not already included in the struct prefix, in regular most-specific to least-specific order, - ;; erroring out if an inconsistency is found between the order of those classes - ;; and that of the single-inheritance suffix. - (def (unsisr-rpl rpl) - (let u ((pl-rhead rpl) ;; structless prefix to process, least- to most- specific - (pl-tail []) ;; structless prefix processed, most- to least- specific - (sis-rhead (reverse sis)) ;; single-inheritance suffix to process, least- to most- specific - (sis-tail [])) ;; single-inheritance suffix processed, most- to least- specific + + ;; The most specific super suffix is now known, its precedence list is the tail of that of x. + (def suffix-tail (if ss (get-precedence-list ss) [])) + (def suffix-tail-index (make-table test: eq)) ;; Gambit hash-table because we can't use runtime/hash + (def suffix-length 0) + (let loop ((i 0) (t suffix-tail)) + (match t + ([] (set! suffix-length i)) + ([a . r] (table-set! suffix-tail-index a i) (loop (1+ i) r)))) + + ;; Add the list of parents at the end of the set of precedence-lists, + ;; to enforce the local precedence order. + ;; Putting it at the *end* gives local precedence order + ;; lower priority than depth-first search, which promotes tail sharing, + ;; which is the right thing that C3 does (though not explained by the C3 paper). + ;; We add the parents in reverse order, because the rpls above is in reverse order. + ;; We do want parents to be processed by unssr-rpl like the other precedence lists. + ;; This step is needed by C3 (not just C4) though lists would not be reversed without C4. + (append1! rpls (reverse parents)) + + ;; Remove the common suffix-tail (most-specific suffix ancestor and ancestors) + ;; from each parent's precedence lists. Return them in the usual order. + ;; + ;; We already reversed those precedence list after removing their own suffix-tail. + ;; We will be reversing them back, but as we go, we will remove + ;; from the end of the lists (beginning of them in their initially reversed state), + ;; the ancestors that are in the correct order in the suffix, until we reach one + ;; that isn't in the suffix-tail, then check that no more class remains in the list + ;; that is in the suffix (or else there's an incompatibility, as in + ;; this example bug: parents (A) (B) (s A) (C A B) where s is suffix). + ;; NB: We can safely assume that there was no inconsistency in the suffix-tail itself + ;; which is an ancestor's precedence list, so already checked for inconsistency. + ;; + ;; This function processes the (reversed, tail-stripped) precedence list of one parent, + ;; : (List X) -> (List X) + (def (remove-suffix-tail-and-reverse rpl) + (let u ((pl-rhead rpl) ;; suffixless reversed prefix to yet to process + (suffix-pos suffix-length)) ;; how far are we in the suffix? (match pl-rhead - ([] pl-tail) ;; done processing -- superclasses not in the sis, most- to least- specific + ([] []) ;; done processing -- all ancestors already in the suffix tail ([c . plrh] - (if (member c sis-tail eq) ;; caught a superclass out of order with the sis - (err precedence-list-head: (get-names (reverse pl-rhead)) - precedence-list-tail: (get-names pl-tail) - single-inheritance-head: (get-names (reverse sis-rhead)) - single-inheritance-tail: (get-names sis-tail) - super-out-of-order-vs-single-inheritance-tail: (get-name c)) - (let-values (((sis-rh2 sis-tl2) - (append-reverse-until - (cut eq c <>) sis-rhead sis-tail))) - (if (null? sis-rh2) - (u plrh (cons c pl-tail) [] sis-tl2) - (u plrh pl-tail (cdr sis-rh2) sis-tl2)))))))) - - ;; Add the list of direct-supers to the set of precedence-lists to be - ;; compatible with. Reset the precedence-lists to be in the C3 most-specific to - ;; least-specific order excluding any class in the single-inheritance suffix. - (append1! rpls (reverse supers)) ;; TODO: use cons after proving it is equivalent in this case. - (def hpls (map unsisr-rpl rpls)) + (let ((p (table-ref suffix-tail-index c #f))) + (cond + ((not p) + (let-values (((plrh2 h) + (append-reverse-until + (cut table-ref suffix-tail-index <> #f) plrh [c]))) + (if (null? plrh2) + h + (err precedence-list-head: (get-names (reverse plrh2)) + ancestor-out-of-order-vs-suffix-tail: (get-name (car plrh2)) + precedence-list-tail: (get-names h) + suffix-tail: suffix-tail)))) + ((< p suffix-pos) + (u plrh p)) + (else + (err precedence-list-head: (get-names (reverse pl-rhead)) + ancestor-out-of-order-vs-suffix-tail: (get-name c) + suffix-pos: suffix-pos + suffix-tail: suffix-tail)))))))) + + ;; Heads of precedence lists + ;; precedence lists of the parents in usual order, followed by the local order, + ;; but after removing the most-specific suffix and its ancestors + ;; : (List (NonEmptyList X)) + (def hpls (remove-nulls! (map remove-suffix-tail-and-reverse rpls))) + + ;; Define a table and populate the hash-table of counts for ancestors + (def ancestor-counts (make-table test: eq)) ;; Gambit hash-table + (def (get-ancestor-count c) (table-ref ancestor-counts c 0)) + (def (count-ancestors! l) + (for-each + (lambda (c) (table-set! ancestor-counts c (+ 1 (get-ancestor-count c)))) + l)) + + (count-ancestors! suffix-tail) + (for-each (lambda (l) (count-ancestors! (cdr l))) hpls) ;; Now for the C3 algorithm proper (that technically includes the append1! above): ;; Extract classes in the precedence list one by one, applying a simple heuristic ;; that prioritizes classes based on a depth-first traversal. + ;; The plain C3 algorithm as lifted from literature is O(d²n²), + ;; where d is the number of parents, and n the length of the precedence list, + ;; due to linear membership scan for each candidate. + ;; But by counting the memberships in a single hash-table, we can make it O(dn). + ;; NB: In practice, in CL land (loading as much as possible of Quicklisp 2025-06-22), + ;; we have 99% of the time d≤3, n≤19; but exceptionally, d goes to 61, n to 66. + ;; In a pure functional data structure library I wrote (LIL), I get to d=15 and n=38. + ;; Next super selection loop, enforcing the ordering constraint and ;; otherwise implementing the earlier-in-list-first search heuristic. ;; : (NonEmptyList (NonEmptyList X)) -> X (def (c3-select-next tails) - (let (candidate? ;; : X -> Bool - (lambda (c) (andmap (lambda (tail) (not (member c (cdr tail) eq))) tails))) - (let loop ((ts tails)) - (match ts - ([[c . _] . rts] - (if (candidate? c) - c - (loop rts))) - (else - (err)))))) + (let loop ((ts tails)) + (match ts + ([[c . _] . rts] + (if (zero? (get-ancestor-count c)) + c + (loop rts))) + (else + (err))))) ;; Cleanup after lists after next element in the precedence list was chosen + ;; - popping the candidate off the lists it appears in + ;; - then promoting the next candidate if any, after decrementing the ancestor-count for it ;; : X (List (NonEmptyList X)) -> (List (NonEmptyList X)) (def (remove-next! next tails) (let loop ((t tails)) (match t - ([] tails) - ([[head . tail] . more] - (when (eq head next) - (set-car! t tail)) - (loop more))))) + ([(and hd [(? (cut eq next <>)) . tl]) . rr] + (match tl + ([c . _] (table-set! ancestor-counts c (- (get-ancestor-count c) 1))) + (_ (void))) ;; we could merge this with remove-nulls! but it would add complexity. + (set-car! t tl) + (loop rr)) + ([_ . rr] (loop rr)) + (_ tails)))) ;; The regular C3 loop ;; NB: if we cached the lengths of the precedence lists, @@ -169,16 +242,14 @@ namespace: #f ;; as that of the precedence list of its top element, thereby being that very same list, ;; and then share the tail. But we don't, so we eschew that sharing optimization. (def precedence-list - (let c3loop ((rhead rhead) (tails hpls)) - (let (tails (remove-nulls! tails)) - (match tails - ([] - (append-reverse rhead sis)) - ([tail] - (append-reverse rhead (append tail sis))) - (else - (let* ((next (c3-select-next tails))) - (c3loop (cons next rhead) - (remove-next! next tails)))))))) - (def super-struct (match sis ([s . _] s) (else #f))) - (values precedence-list super-struct))))) + (let c3loop ((rhead (reverse head)) (tails hpls)) + (match tails + ([] + (append-reverse rhead suffix-tail)) + ([tail] + (append-reverse rhead (append tail suffix-tail))) + (else + (let* ((next (c3-select-next tails))) + (c3loop (cons next rhead) + (remove-nulls! (remove-next! next tails)))))))) + (values precedence-list ss))))) diff --git a/src/gerbil/runtime/util.ss b/src/gerbil/runtime/util.ss index ba9c77febf..e10943c024 100644 --- a/src/gerbil/runtime/util.ss +++ b/src/gerbil/runtime/util.ss @@ -358,18 +358,16 @@ namespace: #f ;; Destructively remove the empty lists from a list of lists, returns the list. ;; : (List (List X)) -> (List (NonEmptyList X)) -(def (remove-nulls! l) - (match l - ([[] . r] - (remove-nulls! r)) - ([_ . r] - (let loop ((l l) (r r)) - (match r - ([[] . rr] (set-cdr! (:- l :pair) (remove-nulls! rr))) - ([_ . rr] (loop r rr)) - (_ (void)))) - l) - (_ l))) ;; [] +(def (remove-nulls! lists) + (def (process-tails! previous-cell rest) + (match rest + ([[] . r] (set-cdr! (:- previous-cell :pair) (remove-nulls! r))) + ([_ . r] (process-tails! rest r)) + (_ (void)))) + (match lists + ([[] . r] (remove-nulls! r)) + ([_ . r] (process-tails! lists r) lists) + (_ lists))) ;; [] ;; : (List X) X -> (NonEmptyList X) (def (append1! l x) diff --git a/src/gerbil/test/c3-test.ss b/src/gerbil/test/c3-test.ss index e59a399242..e42c6f85eb 100644 --- a/src/gerbil/test/c3-test.ss +++ b/src/gerbil/test/c3-test.ss @@ -62,7 +62,11 @@ ;; https://stackoverflow.com/questions/40478154/does-pythons-mro-c3-linearization-work-depth-first-empirically-it-does-not (HH) (GG HH) (II GG) (FF HH) (EE HH) (DD FF) (CC EE FF GG) (BB) (AA BB CC DD) (o O) (a o) (b a) (c b o) (d D c) (M A B b a) (N C c) (L M N) (k D L) (j E k A) (I N M) - (x1) (x2 x1) (x3 x2) (x4 x3) (x5 x4 x1)) + ;; Regression test for (bug #1328): merge-sis! must properly handle non-simultaneous null? cases + (x1) (x2 x1) (x3 x2) (x4 x3) (x5 x4 x1) + ;; Check that suffix support filters out cases that break the suffix + (SBA) (SBB) (SBS SBA) (sBs SBA) (SBC SBS SBB) ;; works, but (SBc sBs SBB) fails + ) (def my-precedence-lists '((O) (A O) (B O) (C O) (D O) (E O) @@ -76,7 +80,10 @@ (o O) (a o O) (b a o O) (c b a o O) (d D c b a o O) (M A B b a o O) (N C c b a o O) (L M A B N C c b a o O) (k D L M A B N C c b a o O) (j E k D L M A B N C c b a o O) (I N C M A B c b a o O) - (x1) (x2 x1) (x3 x2 x1) (x4 x3 x2 x1) (x5 x4 x3 x2 x1))) + (x1) (x2 x1) (x3 x2 x1) (x4 x3 x2 x1) (x5 x4 x3 x2 x1) + ;; Check that suffix support filters out cases that break the suffix + (SBA) (SBB) (SBS SBA) (sBs SBA) (SBC SBS SBA SBB) ;; works, but (SBc sBs SBB) fails + )) (defrule (def-alist-getter getter alist table) (begin (def table (list->hash-table alist)) (def getter (cut hash-get table <>)))) @@ -149,7 +156,9 @@ (test-suite "test :gerbil/runtime/c3" (test-case "utils" (check (values->list (append-reverse-until odd? [2 4 6 9 12 14 15] '(a b c d e))) - => '((9 12 14 15) (6 4 2 a b c d e)))) + => '((9 12 14 15) (6 4 2 a b c d e))) + (check (remove-nulls! [[] [] [] [1] [2] [] [] [3] [] []]) => [[1][2][3]]) + (check (remove-nulls! [[1] [2] [] [] [3]]) => [[1][2][3]])) (test-case "c3 linearization" (check (map my-compute-precedence-list my-objects) => my-precedence-lists) ;; check discrepancy with old MRO resolution algorithm @@ -167,6 +176,10 @@ (hash-put! my-supers-table 'CG '(HVG VHG)) (check-exception (my-compute-precedence-list 'CG) true) + ;; Try and fail to compute a precedence-list for a case that fails to preserve suffix property + (hash-put! my-supers-table 'SBc '(sBs SBB)) + (check-exception (my-compute-precedence-list 'SBc) true)) + (test-case "class inheritance" (check (map (lambda (t) (map ##type-name (class-precedence-list t))) my-descriptors) => (map (lambda (lst) (append lst '(object t))) my-precedence-lists)) @@ -177,4 +190,4 @@ ;; Previously returned (O A B C K1 D E K2 K3 Z), which is so wrong: (check (class-type-slot-vector Z::t) => #(__class O E C B A D K3 K2 K1 Z)) ;; Previously returned (O C A B J1 D J3 E J2 Y)), which is so wrong: - (check (class-type-slot-vector Y::t) => #(__class O E D B J2 A J3 C J1 Y)))))) ;; same! + (check (class-type-slot-vector Y::t) => #(__class O E D B J2 A J3 C J1 Y))))) ;; same! From ffe9e259e52db2ca9eddd7bc3428d518d8581b66 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau Date: Wed, 11 Mar 2026 00:04:19 -0400 Subject: [PATCH 5/5] Update C4 to accept DAGs local order. Docs. --- doc/reference/dev/bootstrap.md | 10 +- doc/reference/gerbil/runtime/c3.md | 234 +++++++++++++++++------------ src/gerbil/runtime/c3.ss | 207 +++++++++++++++---------- src/gerbil/test/c3-test.ss | 57 ++++--- 4 files changed, 305 insertions(+), 203 deletions(-) diff --git a/doc/reference/dev/bootstrap.md b/doc/reference/dev/bootstrap.md index 8d6f86095a..72b33c5621 100644 --- a/doc/reference/dev/bootstrap.md +++ b/doc/reference/dev/bootstrap.md @@ -180,7 +180,7 @@ $ rm -rf bootstrap/* # copy the builtin ssxi module $ mkdir -p bootstrap/gerbil -$ cp gerbil/builtin.ssxi.ss bootstrap/gerbil +$ cp gerbil/builtin.ssxi.ss bootstrap/gerbil/ # compile the bootstrap with the current installed compiler $ gxc -O -d bootstrap -s -S gerbil/core/{runtime,expander,sugar,mop,macro-object,match,more-sugar,more-syntax-sugar,module-sugar}.ss gerbil/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,method,compile,optimize-base,optimize-xform,optimize-top,optimize-spec,optimize-ann,optimize-call,optimize,driver,ssxi}.ss gerbil/compiler.ss gerbil/gambit.ss @@ -193,6 +193,11 @@ core, the simple recompilation approach outlined above is insufficient. What you want to do in this case is a recursive bootstrap recompilation. +If you are still in the `src/` subdirectory, go back to the top the Gerbil repository: +``` +cd .. +``` + - First build the base bootstrap, using your extant gxc -- either latest master or previous recursive bootstrap in your branch: ``` $ ./src/bootstrap.sh @@ -237,8 +242,7 @@ and succeed in bootstrapping your changes. ### Strictures on Modifying Parts of the Gerbil Bootstrap -***Every change to the Gerbil Bootstrap -must be API-compatible from one version to the next***: +***Every change to the Gerbil Bootstrap must be API-compatible from one version to the next***: both the old and new versions of Gerbil (before and after recompiling the bootstrap) must be able to use them. diff --git a/doc/reference/gerbil/runtime/c3.md b/doc/reference/gerbil/runtime/c3.md index 9ba235f1ac..623f4b5a31 100644 --- a/doc/reference/gerbil/runtime/c3.md +++ b/doc/reference/gerbil/runtime/c3.md @@ -7,75 +7,78 @@ the well-known C3 linearization algorithm for multiple inheritance. ## The C4 Algorithm Like C3 of which it is a successor, the C4 linearization algorithm respects -the following four constraints. C3 was actually named after the first three -constraints, omitting to count the 4th, yet implicitly respecting it: +the following five constraints. C3 was actually named after constraints 5, 2, 3, +omitting to count 1 and 4, yet implicitly respecting them: 1. *Linearization* (introduced by Flavors): The precedence list returned is a linearization (total order extension) - of the inheritance DAG (viewed as a partial). + of the inheritance DAG (viewed as a partial order). - 2. *Local Precedence Order* (introduced by New Flavors 1986): + 2. *Local Precedence* (introduced by New Flavors 1986 as “local ordering of components”): The list of a specification's parents, a.k.a. its local precedence list, is a sublist of its precedence list (seen as an order, i.e. all elements are present in the same order but not necessarily consecutively). + C4 further extends this principle by supporting not just a total order among parents, + but an arbitrary DAG for the local precedence order, as given by + a list of totally ordered lists of parents. + If these lists are all singletons, the parents are otherwise unordered, + yet even then there order matters for the Extended Precedence below. - 3. *Monotonicity* (introduced by Ducournau et al. 1992 as "monotonic linearization"): + 3. *Monotonicity* (introduced by Ducournau et al. 1992 as “monotonic linearization”): A specification's precedence list is included as a sublist (seen as an order, same as above) in the precedence list of each of its descendents. - 4. *Shape Determinism* (introduced by Ducournau et al. 1994 as "acceptability"): + 4. *Shape Determinism* (introduced by Ducournau et al. 1994 as “acceptability”): The precedence list must only depend on the *shape* of the inheritance graph (inheritance graphs isomorphic up to some renaming should yield identical precedence lists up to the very same renaming). -Additionally, C4 extends C3 with support for structs that require single-inheritance, -by adding the following constraint: - - 5. *Struct Suffix* (first implicitly recognized by Ruby, and later by Scala 3): - A struct's precedence list is a suffix - of the precedence list of its descendents. - -Finally, C4 uses the following heuristic, same as C3, to deterministically compute -the precedence list in cases that multiple solutions satisfy the above constraints: - - 6. *Depth-First Traversal*: - When the above constraints do not suffice to uniquely determine the next element - in the precedence list, a choice is made between multiple candidates, and, - given Shape Determinism and the other constraints above, this choice must be based on - a *traversal* of the list of precedence lists from parents. - As per the C3 algorithm, we build precedence list head-first with a depth-first traversal; - this is equivalent to building the precedence list tail-first with the reverse traversal. - A different traversal for instance would be depth-first, but there are good reasons to pick - depth-first, notably in perserving as much as possible the tail of the precedence list, - thereby maximizing sharing of partial semantics in methods and slots - even when the tail is not explicitly declared as being part of a struct. - -*NB*: C3 was adopted by many modern multiple inheritance object systems for its consistency properties: -OpenDylan, Python 2.3, Raku, Parrot, Solidity, PGF/TikZ. -Our 5th constraint has been adopted by Ruby and Scala 3, -that fail to otherwise use C3 or offer its consistency. - -But as far as we know, as of May 2025, Gerbil Scheme 0.18.2 is the only language -respecting all these constraints. Also, as of December 2025, Gerbil Scheme will be -the only one that implements C3 (and C4) in O(dn) instead of O(d²n²) as in the original. - -*PS*: Common Lisp, and the earlier tradition of multiple inheritance, that we -follow here, all the way back to Flavors, calls "classes" the entities with -multiple inheritance and "structs" the entities with single inheritance only. + 5. *Extended Precedence* (introduced by Ducournau et al. 1992 as “extended order”): + If a parent specification X is chosen before parent specification Y in the linearization, then + every ancestor of X will also appear before Y and every ancestor of Y in the linearization, + except where this contradicts one of the other constraints. + This constraint forces the algorithm of iteratively picking among valid candidates for + the next most specific ancestor according to a depth-first traversal as the priority order. + +Additionally, C4 extends C3 with support for “suffix specifications” that provide +all the performance benefits of single-inheritance, by adding the following constraint +(wherein suffix specifications correspond to Gerbil “structs”): + + 6. *Suffix Property* (first implicitly recognized by Ruby, and later by Scala 3): + A suffix specification's precedence list is a suffix of the precedence list + of each of its descendents. + +*NB*: C3 was adopted by many modern multiple inheritance object systems +for its consistency properties: OpenDylan, Python 2.3, Raku, Parrot, Solidity, PGF/TikZ. +Our 6th constraint has been adopted by Ruby and Scala 3, but +they fail to otherwise use C3 or offer its consistency. + +As far as we know, as of May 2025, Gerbil Scheme 0.18.2 is the only language +respecting all these constraints. Also, as of 2026, Gerbil Scheme will be +the only one that implements C3 (and C4) in O(dn) instead of O(d²n²) as in the original +(where d is the number of parents specified, n the total number of ancestors). + +*PS*: Common Lisp, and the earlier Lisp tradition of multiple inheritance, that we +follow here, all the way back to Flavors, calls “classes” the entities with +multiple inheritance and “structs” the entities with single inheritance only. Smalltalk and after it Java and Scala, and the earlier and historically more prevalent -tradition of single inheritance, calls "classes" the entities with single -inheritance and "traits" the entities with multiple inheritance (after Mesa); -as for Ruby, it calls them respectively "classes" and "modules". -C++ only has its own limited variant of "Multiple Inheritance" +tradition of single inheritance, calls “classes” the entities with single +inheritance and “traits” the entities with multiple inheritance (after Mesa); +as for Ruby, it calls them respectively “classes” and “modules”. +C++ only has its own limited variant of “Multiple Inheritance” (though duplicating non-virtual superclasses behave more like mixin inheritance), -and calls "struct" a class where all "members" are public by default. +and calls “struct” a class where all “members” are public by default. -To avoid all these clashes, we call "specification" a class or prototype or entity -subject to inheritance, "target" the entity being specified, and "suffix" a specification -that has the suffix property, in which case we distinguish a "suffix specification" -from a "suffix precedence list". +To avoid all these clashes, we call “specification” a class or prototype or entity +subject to inheritance, “target” the entity being specified, and “suffix” a specification +that has the suffix property, in which case we distinguish a “suffix specification” +from a “suffix precedence list”. +*PPS*: Maintaining the consistency requirements of C3 at scale and over time can be difficult. +The authors of Sagemath show how that can be automated to a point in [Hivert 2024], +with an instrumentation of C3 that outputs the minimal local precedence declarations +that will achieve a desired global ordering of classes. ## Procedures @@ -129,175 +132,200 @@ to least-specific specification last (with any base specification at the end). An error is raised if there is an inconsistency in the inheritance DAG such that no linearization exists that satisfies the four constraints. +### c4-linearize* +```scheme +(c4-linearize* head parents + get-precedence-list: get-precedence-list + suffix: suffix? + [eq: eq?] + [get-name: get-name]) -> (values list (or suffix-specification #f)) +``` + +Generalizes the previous interface, with the following updates: +- The `head` is not reversed anymore + (which shouldn't change much when it's usually empty or a singleton). +- The `parents` are now a list of lists, rather than a single list; + if you have a single list, wrap it in a singleton list. +- The keyword argument `struct:` has been renamed `suffix:`. + ## Bibliography [Hoare 1965] C. A. R. Hoare, -"Record Handling", 1965, +“Record Handling”, 1965, http://archive.computerhistory.org/resources/text/Knuth_Don_X4100/PDF_index/k-9-pdf/k-9-u2293-Record-Handling-Hoare.pdf (Introduces the concept of class, though without an implementation thereof. -Also introduces the infamous "billion dollar mistake", NULL.) +Also introduces the infamous “billion dollar mistake”, NULL.) [Dahl 1966] Ole-Johan Dahl and Kristen Nygaard -"Class and subclass declarations", 1967, +“Class and subclass declarations”, 1967, https://www.ub.uio.no/fag/naturvitenskap-teknologi/informatikk/faglig/dns/dokumenter/classandsubclass1967.pdf -(First implementation of classes, has "prefix classes", and their "subclasses", -a "prefix sequence" for the ancestry, the keyword "this", "objects" and their "attributes", -and a "concatenation" based semantics for single inheritance (not the word "inheritance" though). +(First implementation of classes, has “prefix classes”, and their “subclasses”, +a “prefix sequence” for the ancestry, the keyword “this”, “objects” and their “attributes”, +and a “concatenation” based semantics for single inheritance (neither the word “inheritance” though, +nor the kind of “subclass is in charge” semantics that we love and appreciate in OO). [Winograd 1975] Terry Winograd, -"Frame Representations and the Declarative/Procedural Controversy", 1975 +“Frame Representations and the Declarative/Procedural Controversy”, 1975 https://hci.stanford.edu/winograd/papers/FrameRep.pdf https://api.pageplace.de/preview/DT0400.9781483299150_A23889670/preview-9781483299150_A23889670.pdf -(Introduces the term "inheritance of properties" in the context of -knowledge representation using "frames".) +(Introduces the term “inheritance of properties” in the context of +knowledge representation using “frames”. But it’s still more descriptive than definitional.) [Bobrow 1976] Daniel G. Bobrow and Terry Winograd, -"An Overview of KRL, A Knowledge Representation Language", 1976 +“An Overview of KRL, A Knowledge Representation Language”, 1976 https://apps.dtic.mil/sti/tr/pdf/ADA042508.pdf -(Describes frames, a knowledge representation paradigm, -where an "object" or "prototype" has a "description" made of multiple "descriptors" -for as many "perspectives".) +(The very first paper that uses the words “object-oriented”, “inheritance” and “prototype” in +their modern meaning, though not the first for “class”, see Simula above. Describes KRL, +a frame-based Knowledge Representation Language, where an “object” or “prototype” +has a “description” made of multiple “descriptors” for as many “perspectives”. +Its “inheritance” is multiple inheritance.) [Kahn 1976] Kenneth Michael Kahn, -"An Actor-Based Computer Animation Language", 1976 -(Takes from AI knowledge representation research the concepts of prototype object-orientation, -and frames them as a programming language. Frames had multiple inheritance, but it looks like -Director only had single inheritance.) +“An Actor-Based Computer Animation Language”, 1976 +(Inspired by Actors, Smalltalk, KRL, one of the very first OO programming language, +later called Director, with prototypes and single inheritance, to model animations.) [Borning 1977] Alan Hamilton Borning, -"ThingLab — an Object-Oriented System for Building Simulations using Constraints", 1977, +“ThingLab — an Object-Oriented System for Building Simulations using Constraints”, 1977, https://www.ijcai.org/Proceedings/77-1/Papers/085.pdf -(Introduces a prototype-based object system with multiple inheritance on top of Smalltalk 1976.) +(Introduces a prototype-based object system with multiple inheritance on top of Smalltalk 1976, +though it’s the “conflict” kind where methods from multiple ancestors clash.) [Cannon 1979] Howard Cannon, -"Flavors: A non-hierarchical approach to object-oriented programming", 1979 +“Flavors: A non-hierarchical approach to object-oriented programming”, 1979 https://www.softwarepreservation.org/projects/LISP/MIT/nnnfla1-20040122.pdf -(Documents a message-passing class-based object system with multiple inheritance, -linearization, mixins, method combinations. Not well-known outside MIT at the time. -Updated and published a bit more widely in 1982. Republished 2004.) +(Watershed paper for multiple inheritance, replacing conflict between methods with cooperation. +Documents a message-passing class-based object system with multiple inheritance, +linearization, mixins, and method combinations inspired by Teitelman’s ADVISE. +Not well-known outside Lisp circles at the time. Updated and published a bit more widely in 1982. +Flavors was documented in the Lisp Machine Manual, but without the rationales from this paper. +Republished 2004.) [Curry 1982] Gael Curry, Larry Baer, Daniel Lipkie, and Bruce Lee, -"Traits: An approach to multiple-inheritance subclassing", 1982 +“Traits: An approach to multiple-inheritance subclassing”, 1982 (Describes the multiple inheritance with Traits added in 1979 to the Mesa programming language (started early 1978 with single inheritance), -in which WS, the workstation software of the Xerox Star 8010, was written.) +in which WS, the workstation software of the Xerox Star 8010, was written. +Unhappily it is the flavorless “conflict” kind of multiple inheritance.) [Moon 1986] David Moon -"Object-Oriented Programming with Flavors", 1986 +“Object-Oriented Programming with Flavors”, 1986 (Introduces Flavors to a wider public than Cannon, with cleanups. -Introduces the local precedence order (or did Bobrow do it first?)) +Introduces the local precedence order.) [Bobrow 1986] Daniel G. Bobrow, Kenneth Kahn, Gregor Kiczales, Larry Masinter, Mark Stefyk, and Frank Zdybel -"CommonLoops: Merging Lisp and Object-Oriented Programming", 1986 +“CommonLoops: Merging Lisp and Object-Oriented Programming”, 1986 (Object system for Common lisp, introduces multimethods. Has local precedence order.) [Bracha 1990] Gilad Bracha, and William Cook, -"Mixin-Based Inheritance", 1990, +“Mixin-Based Inheritance”, 1990, https://www.semanticscholar.org/paper/Mixin-based-inheritance-Bracha-Cook/cbc4f2d93bb62d1c287f4fe458de6ac416379282 -(Introduces mixin inheritance as a way to formalize the semantics of inheritance.) +(Introduces mixin inheritance as a way to formalize the semantics of inheritance. +Crucially reinterpreting equations introduced by Cook in his thesis the previous year, +to make them valid beyond single inheritance.) [Steele 1990] Guy Steele, -"Common Lisp: The Language, 2nd edition", 1990 +“Common Lisp: The Language, 2nd edition”, 1990 http://www.cs.cmu.edu/afs/cs.cmu.edu/project/ai-repository/ai/html/cltl/cltl2.html (Includes a version of CLOS, which wasn't present in the 1st edition.) [Gabriel 1991] Richard P Gabriel, Jon L White, and Daniel G Bobrow, -"CLOS: Integrating object-oriented and functional programming", 1991 +“CLOS: Integrating object-oriented and functional programming”, 1991 (Describes CLOS.) [Bobrow 1991] Daniel Bobrow, Gregor Kiczales, and Jim des Rivières, -"The Art of the Meta-Object Protocol", 1991 +“The Art of the Meta-Object Protocol”, 1991 (Meta-Object Protocol for CLOS. Not all of it part of the CL standard.) [Ducournau 1992] Roland Ducournau, Michel Habib, Marianne Huchard, and Marie-Laure Mugnier, -"Monotonic conflict resolution mechanisms for inheritance", 1992 +“Monotonic conflict resolution mechanisms for inheritance”, 1992 (Discusses the constraints required of a linearization algorithm.) [Chambers 1992] Craig Chambers -"Object-oriented multi-methods in Cecil", 1992 +“Object-oriented multi-methods in Cecil”, 1992 (Multimethods in a Prototype Oriented Object language.) [Ducournau 1994] Roland Ducournau, Michel Habib, Marianne Huchard, and Marie-Laure Mugnier, -"Proposal for a monotonic multiple inheritance linearization", 1994 +“Proposal for a monotonic multiple inheritance linearization”, 1994 (Further discusses the constraints required of a linearization algorithm, with a solution.) [Kay 1996] Alan Kay, -"The Early History of Smalltalk", 1996 +“The Early History of Smalltalk”, 1996 https://dl.acm.org/doi/pdf/10.1145/234286.1057828 (Inheritance introduced in Smalltalk 1976 after inspiration from SIMULA 67, from Tesler, from Lieberman, and from Bobrow & Winograd's KRL) [Barrett 1996] Kim Barrett, Bob Cassels, Paul Haahr, David A. Moon, Keith Playford and P. Tucker Withington, -"A Monotonic Superclass Linearization for Dylan", 1996 +“A Monotonic Superclass Linearization for Dylan”, 1996 https://citeseerx.ist.psu.edu/viewdoc/summary?doi=10.1.1.19.3910 (Introduces the C3 algorithm.) [Flatt 1998] Matthew Flatt, Shriram Krishnamurthi, and Matthias Felleisen, -"Classes and mixins", 1998 +“Classes and mixins”, 1998 (Uses single-inheritance classes, but they are first-class, so uses mixins to generate them, except it's proposed in the context of a Java dialect with Scheme only barely mentioned.) [Odersky 2005] Martin Odersky, and Matthias Zenger -"Scalable Component Abstractions", 2005 +“Scalable Component Abstractions”, 2005 (Multiple inheritance as an extension to Java single-inheritance. Programmers must manually include the most specific struct if any as explicit first class to extend.) [Flatt 2006] Matthew Flatt, Robert Bruce Findler, and Matthias Felleisen, -"Scheme with classes, mixins, and traits", 2006 +“Scheme with classes, mixins, and traits”, 2006 https://www2.ccs.neu.edu/racket/pubs/asplas06-fff.pdf (Extension of 1998 paper.) [Cunningham 2014] Dave Cunningham, -"Jsonnet", 2014, +“Jsonnet”, 2014, https://jsonnet.org (A simple pure functional lazy dynamic language with builtin prototype object system using mixin inheritance.) [Simons 2015] Peter Simons, -"Nixpkgs fixed-points library", 2015, +“Nixpkgs fixed-points library”, 2015, https://github.com/NixOS/nixpkgs/blob/master/lib/fixed-points.nix (A prototype object system using mixin inheritance in two short functions on top of a simple pure functional lazy dynamic language.) [Rideau 2020] François-René Rideau, -"gerbil-poo", 2020, +“gerbil-poo”, 2020, https://github.com/mighty-gerbils/gerbil-poo (Implements a prototype-based object system with multiple inheritance on top of Gerbil Scheme) [Wiki 2021] Wikipedia, -"C3 linearization", 2021 +“C3 linearization”, 2021 https://en.wikipedia.org/wiki/C3_linearization (Describes C3 linearization.) [Rideau 2021] François-René Rideau, Alex Knauth, and Nada Amin, -"Prototypes: Object-Orientation, Functionally", 2021 +“Prototypes: Object-Orientation, Functionally”, 2021 https://github.com/metareflection/poof (Explains how to implement prototype-based OO with mixin inheritance in two lines of code, and clarifies the relationship between single and mixin and multiple inheritance, @@ -305,6 +333,20 @@ between prototypes and classes, and more.) [Rideau 2024] François-René Rideau, -"gerbil/src/gerbil/runtime/c3.ss", 2024, +“gerbil/src/gerbil/runtime/c3.ss”, 2024, https://github.com/mighty-gerbils/gerbil/blob/master/src/gerbil/runtime/c3.ss (Implements the C3 linearization algorithm, later updated to C4.) + +[Rideau 2026] +François-René Rideau, +“Lambda, the Ultimate Object — Object Orientation Elucidated” +http://fare.tunes.org/files/cs/poof/ltuo.html +(Eludicates the theory of OO, and includes an explanation of C4 in its chapter 7.) + +[Hivert 2024] +Florent Hivert and Nicolas M. Thiéry, +“Controlling the C3 Super Class Linearization Algorithm for Large Hierarchies of Classes” +https://arxiv.org/abs/2401.12740 +(The authors describe how they have automated the maintenance of C3 consistency properties +for the SageMath abstract algebra system since 2013, their system being large enough that +manual consistency maintenance doesn’t scale.) diff --git a/src/gerbil/runtime/c3.ss b/src/gerbil/runtime/c3.ss index ac12464f35..532b6edd93 100644 --- a/src/gerbil/runtime/c3.ss +++ b/src/gerbil/runtime/c3.ss @@ -6,7 +6,6 @@ ;;; See ../../../doc/reference/gerbil/runtime/c3.md for detailed explanations. ;;; See ../test/c3-test.ss for tests. ;;; - prelude: "../core" package: gerbil/runtime namespace: #f @@ -21,7 +20,7 @@ namespace: #f eq: (eq eq?) get-name: (get-name identity)) => :values - (c4-linearize* (reverse rhead) supers + (c4-linearize* (reverse rhead) (list supers) get-precedence-list: get-precedence-list suffix: struct? eq: eq @@ -31,25 +30,23 @@ namespace: #f ;; i.e. the best total order between its ancestors (transitive parents). ;; - head is a prefix to prepend to the precedence list, typically [x] or [] ;; depending on whether to include x as head of the result. -;; - parents the list of parents of x, typically (get-supers x) +;; - parents the list of total orders of parents of x, typically just (list (get-supers x)) ;; - get-precedence-list gets the precedence list for a parent, including the parent itself in front -;; - suffix is a predicate that tells if a specification follows the suffix property, i.e. -;; must have its precedence list be a suffix of any subclass' precedence list -;; (with single inheritance among suffixes) +;; - suffix is a predicate that tells if a specification has the suffix property, i.e. +;; must have its precedence list be a suffix of any descendent's precedence list +;; (with single inheritance among suffix specifications but not interstitial infix ones) ;; - eq is an equality predicate between list elements (defaults to eq?). ;; - get-name gets the name of a object/class, for debugging only (defaults to identity). -;; Returns three values: +;; Returns two values: ;; - the linearized precedence list, ;; - the most specific suffix ancestor if any -;; - a table that maps each ancestor to the tail of the precedence list starting with it. -;; : (List X) (List X) \ +;; : (List X) (List (NonEmptyList X)) \ ;; get-precedence-info: (X -> (NonEmptyList X) (OrFalse X) (Hash X (List X))) \ ;; suffix: (X -> Bool) \ ;; super-suffix: (X -> (OrFalse X)) \ ;; eq: ?(X X -> Bool) \ -;; eq: ?(-> (Hash X (List X))) \ ;; get-name: ?(X -> Y) \ -;; -> (List X) (OrFalse X) (Hash X (List X)) +;; -> (List X) (OrFalse X) (def (c4-linearize* head parents get-precedence-list: get-precedence-list suffix: suffix? @@ -57,19 +54,21 @@ namespace: #f eq: (eq eq?) get-name: (get-name identity)) => :values + (set! parents (remove-nulls! parents)) ;; allow but remove nulls, e.g. [(get-supers)] when no supers (cond ((null? parents) ;; 0 parents: it's a base class (values head #f)) - ((null? (cdr parents)) ;; 1 parent: it's effectively single inheritance - (let* ((parent (car parents)) + ((and (null? (cdr parents)) + (null? (cdar parents))) ;; 1 list of 1 parent: it's effectively single inheritance + (let* ((parent (caar parents)) (pl (get-precedence-list parent))) (values (append head pl) (if (suffix? parent) parent (super-suffix parent))))) (else ;; 2 parents or more: it's effectively multiple inheritance - (let (;; precedence lists to merge - (pls (map get-precedence-list parents)) ;; : (List (NonEmptyList X)) - ;; super suffix: the most-specific suffix ancestor (known so far) - (ss #f)) ;; : (OrFalse X) + (let (;; reverse list or reverse (precedence lists or local order lists) to merge + (rcandidates '()) ;; : (List (NonEmptyList X)) + (suffix #f) ;; : (OrFalse X) ;; most specific super suffix (known so far) + (suffix-tail [])) ;; precedence list of the above, or [] if false ;; Utilities (def (get-names lst) @@ -77,8 +76,13 @@ namespace: #f (def (err . a) (apply error "Inconsistent precedence graph" head: (get-names head) - precedence-lists: (map get-names pls) - common-suffix-suffix: (get-name ss) + parents: (map get-names parents) + precedence-lists: (map get-names + (map get-precedence-list + ;; (delete-duplicates ...) + (foldl append [] parents))) + common-suffix-tail: (get-names suffix-tail) + rcandidates: (map get-names rcandidates) a)) ;; is s2 a suffix of s1? @@ -106,41 +110,81 @@ namespace: #f (else (loop (super-suffix t1) (super-suffix t2)))))))) - ;; Reverse the precedence lists, + ;; Define a table and populate the hash-table of counts for ancestors + (def ancestor-counts (make-table test: eq)) ;; Gambit hash-table + (def (get-ancestor-count c) (table-ref ancestor-counts c 0)) + (def (increment-ancestor-count c) (table-set! ancestor-counts c (1+ (get-ancestor-count c)))) + (def (decrement-ancestor-count c) (table-set! ancestor-counts c (1- (get-ancestor-count c)))) + + ;; For each parent in the parents lists, accumulate the reverse of its precedence lists, + ;; if not already present in the ancestors, ;; after removing each of their most specific element and its precedence list. ;; Update the ss variable with each of the suffix specifications found. ;; This is a C4 specific step, not needed in plain C3. - (def rpls ;; : (List (List X)) - (map (lambda (pl) - (let-values (((tl rh) (append-reverse-until suffix? pl []))) - (unless (null? tl) - (set! ss (merge-suffix ss (car tl)))) - rh)) - pls)) - - ;; The most specific super suffix is now known, its precedence list is the tail of that of x. - (def suffix-tail (if ss (get-precedence-list ss) [])) + (for-each + (lambda (parent-list) + (for-each + (lambda (parent) + (when (zero? (get-ancestor-count parent)) + ;; New parent: iterate to first suffix + (let loop ((al (get-precedence-list parent)) + (r [])) + (def (done) + (unless (null? r) + (set! rcandidates (cons r rcandidates)))) + (match al + ([] (done)) + ([a . ar] + (if (suffix? a) + ;; Found suffix; the rest of the precedence list is its precedence list. + (let (ms (merge-suffix a suffix)) + (unless (eq ms suffix) + ;; Newer longer suffix + (let loop2 ((tl al)) + (match tl + ([] (void)) + ([t . tr] (unless (eq t suffix) + (increment-ancestor-count t) + (loop2 tr))))) + (set! suffix a) + (set! suffix-tail al)) + (done)) + (begin + (increment-ancestor-count a) + (loop ar (cons a r))))))))) + parent-list)) + parents) + (def suffix-tail-index (make-table test: eq)) ;; Gambit hash-table because we can't use runtime/hash - (def suffix-length 0) - (let loop ((i 0) (t suffix-tail)) + (let loop ((i (length suffix-tail)) (t suffix-tail)) (match t - ([] (set! suffix-length i)) - ([a . r] (table-set! suffix-tail-index a i) (loop (1+ i) r)))) + ([] (void)) + ([a . r] + (table-set! suffix-tail-index a i) (loop (1- i) r)))) - ;; Add the list of parents at the end of the set of precedence-lists, + ;; Prepend the reversed lists of reversed parents to + ;; the reversed lists of reversed precedence-lists, ;; to enforce the local precedence order. - ;; Putting it at the *end* gives local precedence order + ;; Putting it at the *end* (once re-reversed) gives local precedence order ;; lower priority than depth-first search, which promotes tail sharing, ;; which is the right thing that C3 does (though not explained by the C3 paper). - ;; We add the parents in reverse order, because the rpls above is in reverse order. + ;; We add the parents in reverse order, because the rcandidates is in reverse order. ;; We do want parents to be processed by unssr-rpl like the other precedence lists. - ;; This step is needed by C3 (not just C4) though lists would not be reversed without C4. - (append1! rpls (reverse parents)) + ;; This step is needed by C3 (not just C4) though none of the lists would be reversed + ;; in plain C4, and plain C3 has only one list. + ;; NB: that as an optimization, we filter off singleton parent lists + (def r-local-order + (filter-map (lambda (parent-list) (and (not (null? (cdr parent-list))) + (reverse parent-list))) + parents)) + (for-each (lambda (cl) (for-each increment-ancestor-count cl)) r-local-order) + ;; The append below is technically part of C3 (where r-local-order is a singleton). + (set! rcandidates (append r-local-order rcandidates)) ;; Remove the common suffix-tail (most-specific suffix ancestor and ancestors) - ;; from each parent's precedence lists. Return them in the usual order. + ;; from each reversed candidate list. Return them in the usual (re-reversed) order. ;; - ;; We already reversed those precedence list after removing their own suffix-tail. + ;; We already reversed those candidate lists after removing their own suffix-tail. ;; We will be reversing them back, but as we go, we will remove ;; from the end of the lists (beginning of them in their initially reversed state), ;; the ancestors that are in the correct order in the suffix, until we reach one @@ -150,52 +194,46 @@ namespace: #f ;; NB: We can safely assume that there was no inconsistency in the suffix-tail itself ;; which is an ancestor's precedence list, so already checked for inconsistency. ;; - ;; This function processes the (reversed, tail-stripped) precedence list of one parent, - ;; : (List X) -> (List X) - (def (remove-suffix-tail-and-reverse rpl) - (let u ((pl-rhead rpl) ;; suffixless reversed prefix to yet to process - (suffix-pos suffix-length)) ;; how far are we in the suffix? - (match pl-rhead + ;; This function processes the (reversed, tail-stripped) precedence list of one parent + ;; : (NonEmptyList X) -> (List X) + (def (remove-suffix-tail-and-reverse rcl) + (let u ((cl-rhead rcl) ;; suffixless reversed prefix to yet to process + (suffix-pos -1)) ;; how far are we in the suffix? + (match cl-rhead ([] []) ;; done processing -- all ancestors already in the suffix tail - ([c . plrh] + ([c . clrh] (let ((p (table-ref suffix-tail-index c #f))) + (def (err2 . a) + (apply err + reverse-candidate-list: (get-names rcl) + suffix-tail-index: (map (match <> ([a . i] [(get-name a) :: i])) + (table->list suffix-tail-index)) + c: (get-name c) + p: p + suffix-pos: suffix-pos + a)) (cond ((not p) - (let-values (((plrh2 h) + (let-values (((clrh2 h) (append-reverse-until - (cut table-ref suffix-tail-index <> #f) plrh [c]))) - (if (null? plrh2) + (cut table-ref suffix-tail-index <> #f) clrh [c]))) + (if (null? clrh2) h - (err precedence-list-head: (get-names (reverse plrh2)) - ancestor-out-of-order-vs-suffix-tail: (get-name (car plrh2)) - precedence-list-tail: (get-names h) - suffix-tail: suffix-tail)))) - ((< p suffix-pos) - (u plrh p)) + (err2 + precedence-list-tail: (get-names h) + ancestor-out-of-order-vs-suffix-tail: (get-name (car clrh2)) + precedence-list-head: (get-names (reverse clrh2)))))) + ((> p suffix-pos) + (u clrh p)) (else - (err precedence-list-head: (get-names (reverse pl-rhead)) - ancestor-out-of-order-vs-suffix-tail: (get-name c) - suffix-pos: suffix-pos - suffix-tail: suffix-tail)))))))) - - ;; Heads of precedence lists - ;; precedence lists of the parents in usual order, followed by the local order, - ;; but after removing the most-specific suffix and its ancestors + (err2 ancestor-out-of-order-vs-suffix-tail: (get-name c))))))))) + ;; List of list of candidates + ;; precedence lists of the parents in usual order, followed by the local order lists, + ;; but after removing from each list the elements of the suffix-tail ;; : (List (NonEmptyList X)) - (def hpls (remove-nulls! (map remove-suffix-tail-and-reverse rpls))) + (def candidates (reverse (remove-nulls! (map remove-suffix-tail-and-reverse rcandidates)))) - ;; Define a table and populate the hash-table of counts for ancestors - (def ancestor-counts (make-table test: eq)) ;; Gambit hash-table - (def (get-ancestor-count c) (table-ref ancestor-counts c 0)) - (def (count-ancestors! l) - (for-each - (lambda (c) (table-set! ancestor-counts c (+ 1 (get-ancestor-count c)))) - l)) - - (count-ancestors! suffix-tail) - (for-each (lambda (l) (count-ancestors! (cdr l))) hpls) - - ;; Now for the C3 algorithm proper (that technically includes the append1! above): + ;; Now for the C3 algorithm proper (that technically includes the append above): ;; Extract classes in the precedence list one by one, applying a simple heuristic ;; that prioritizes classes based on a depth-first traversal. @@ -207,6 +245,10 @@ namespace: #f ;; we have 99% of the time d≤3, n≤19; but exceptionally, d goes to 61, n to 66. ;; In a pure functional data structure library I wrote (LIL), I get to d=15 and n=38. + ;; First, promote the heads of candidates list as candidate, + ;; uncounting them from the tails of the candidate lists. + (for-each (lambda (cl) (decrement-ancestor-count (car cl))) candidates) + ;; Next super selection loop, enforcing the ordering constraint and ;; otherwise implementing the earlier-in-list-first search heuristic. ;; : (NonEmptyList (NonEmptyList X)) -> X @@ -218,7 +260,8 @@ namespace: #f c (loop rts))) (else - (err))))) + (err ;; ancestor-counts: (table->list ancestor-counts) + c3-select-next: 'fail))))) ;; Cleanup after lists after next element in the precedence list was chosen ;; - popping the candidate off the lists it appears in @@ -229,7 +272,7 @@ namespace: #f (match t ([(and hd [(? (cut eq next <>)) . tl]) . rr] (match tl - ([c . _] (table-set! ancestor-counts c (- (get-ancestor-count c) 1))) + ([c . _] (decrement-ancestor-count c)) (_ (void))) ;; we could merge this with remove-nulls! but it would add complexity. (set-car! t tl) (loop rr)) @@ -242,7 +285,7 @@ namespace: #f ;; as that of the precedence list of its top element, thereby being that very same list, ;; and then share the tail. But we don't, so we eschew that sharing optimization. (def precedence-list - (let c3loop ((rhead (reverse head)) (tails hpls)) + (let c3loop ((rhead (reverse head)) (tails candidates)) (match tails ([] (append-reverse rhead suffix-tail)) @@ -252,4 +295,4 @@ namespace: #f (let* ((next (c3-select-next tails))) (c3loop (cons next rhead) (remove-nulls! (remove-next! next tails)))))))) - (values precedence-list ss))))) + (values precedence-list suffix))))) diff --git a/src/gerbil/test/c3-test.ss b/src/gerbil/test/c3-test.ss index e42c6f85eb..46b564e1dc 100644 --- a/src/gerbil/test/c3-test.ss +++ b/src/gerbil/test/c3-test.ss @@ -1,29 +1,26 @@ ;; -*- Gerbil -*- ;;; © fare@tunes.org ;;;; Testing the c4 linearization algorithm (a.k.a. c3 plus proper handling of structs) -;;prelude: "../core" (export c3-test) (import - ;; :gerbil/runtime/c3 :gerbil/runtime/mop - (only-in :gerbil/runtime/util append-reverse-until) + (only-in :gerbil/runtime/util append-reverse-until remove-nulls!) ;;<-- comment out to test with custom runtime/util.ss (only-in :std/misc/hash hash-ensure-ref) (only-in :std/sugar defrule) (only-in :std/test test-suite test-case check check-exception) (only-in :std/values first-value)) -;;(define gerbil/runtime 'gerbil/runtime) -;;(define :gerbil/core ':gerbil/core) +;; Uncomment below to test custom runtime/c3.ss +;;(define gerbil/runtime 'gerbil/runtime) (include "../runtime/c3.ss") +;; Uncomment below to test custom runtime/util.ss ;;(include "../../gerbil/runtime/util.ss") -;;(include "../runtime/c3.ss") -;;(extern namespace: #f append-reverse-until) (module (export #t) (import (only-in :std/text/char-set char-ascii-lowercase?)) - (def (test-struct? sym) + (def (test-suffix? sym) (char-ascii-lowercase? (string-ref (symbol->string sym) 0)))) (import (phi: +1 )) @@ -33,7 +30,7 @@ (syntax-case stx () ((ctx (my-objects my-supers my-descriptors) (object supers ...) ...) (with-syntax ((((struct? descr) ...) - (stx-map (lambda (o) [(test-struct? (syntax-e o)) + (stx-map (lambda (o) [(test-suffix? (syntax-e o)) (stx-identifier #'ctx o "::t")]) #'(object ...)))) #'(begin @@ -66,7 +63,9 @@ (x1) (x2 x1) (x3 x2) (x4 x3) (x5 x4 x1) ;; Check that suffix support filters out cases that break the suffix (SBA) (SBB) (SBS SBA) (sBs SBA) (SBC SBS SBB) ;; works, but (SBc sBs SBB) fails - ) + ;; Check a case from the compiler that failed during one bootstrap + (t) (object t) (type object) (procedure type) + (Primitive object) (primitive-predicate Primitive procedure)) (def my-precedence-lists '((O) (A O) (B O) (C O) (D O) (E O) @@ -77,12 +76,15 @@ (GL O) (HG GL O) (VG GL O) (HVG HG VG GL O) (VHG VG HG GL O) #;(CG --- error!) (HH) (GG HH) (II GG HH) (FF HH) (EE HH) (DD FF HH) (CC EE FF GG HH) (BB) (AA BB CC EE DD FF GG HH) + ;; C4 extension with suffixes: (o O) (a o O) (b a o O) (c b a o O) (d D c b a o O) (M A B b a o O) (N C c b a o O) (L M A B N C c b a o O) (k D L M A B N C c b a o O) (j E k D L M A B N C c b a o O) (I N C M A B c b a o O) (x1) (x2 x1) (x3 x2 x1) (x4 x3 x2 x1) (x5 x4 x3 x2 x1) ;; Check that suffix support filters out cases that break the suffix - (SBA) (SBB) (SBS SBA) (sBs SBA) (SBC SBS SBA SBB) ;; works, but (SBc sBs SBB) fails + (SBA) (SBB) (SBS SBA) (sBs SBA) (SBC SBS SBA SBB) ;; works, but later (SBc sBs SBB) should fail + (t) (object t) (type object t) (procedure type object t) + (Primitive object t) (primitive-predicate Primitive procedure type object t) )) (defrule (def-alist-getter getter alist table) @@ -96,11 +98,11 @@ (hash-ensure-ref my-compute-precedence-list-cache x (cut first-value - (c4-linearize [x] (my-get-supers x) ;; rely on values being reified first-class objects - get-precedence-list: my-compute-precedence-list - struct: test-struct? - eq: eq? - get-name: identity)))) + (c4-linearize* [x] [(my-get-supers x)] ;; rely on values being reified first-class objects + get-precedence-list: my-compute-precedence-list + suffix: test-suffix? + eq: eq? + get-name: identity)))) ;;; Previous implementation: (def (old-linearize-supers x (get-supers my-get-supers)) @@ -159,7 +161,8 @@ => '((9 12 14 15) (6 4 2 a b c d e))) (check (remove-nulls! [[] [] [] [1] [2] [] [] [3] [] []]) => [[1][2][3]]) (check (remove-nulls! [[1] [2] [] [] [3]]) => [[1][2][3]])) - (test-case "c3 linearization" + (test-case "c4 linearization" + ;; check all the working cases above (check (map my-compute-precedence-list my-objects) => my-precedence-lists) ;; check discrepancy with old MRO resolution algorithm (check (my-compute-precedence-list 'Z) => '(Z K1 K2 K3 D A B C E O)) @@ -171,15 +174,25 @@ (check (my-compute-precedence-list 'AA) => '(AA BB CC EE DD FF GG HH)) (check (old-linearize-supers 'AA) => '(AA BB CC EE DD FF GG HH)) ; same (check (my-compute-precedence-list 'a) => '(a o O)) - ;; Try and fail to compute a precedence-list for the confused-grid example in the C3 paper - (hash-put! my-supers-table 'CG '(HVG VHG)) + (hash-put! my-supers-table 'CG '(HVG VHG)) ;; beware: breaks the table so tests can't run twice (check-exception (my-compute-precedence-list 'CG) true) - ;; Try and fail to compute a precedence-list for a case that fails to preserve suffix property (hash-put! my-supers-table 'SBc '(sBs SBB)) - (check-exception (my-compute-precedence-list 'SBc) true)) - + (check-exception (my-compute-precedence-list 'SBc) true) + ;; Try with the local-order as a DAG + (def (my-c4-linearize* local-order) + (first-value + (c4-linearize* [] local-order + get-precedence-list: my-compute-precedence-list + suffix: test-suffix? + eq: eq? + get-name: identity))) + (check (my-c4-linearize* '((A) (B) (C))) => '(A B C O)) + (check (my-c4-linearize* '((A B) (C A))) => '(C A B O)) + (check (my-c4-linearize* '((C A) (C B))) => '(C A B O)) + (check (my-c4-linearize* '((C B) (C A))) => '(C B A O)) + (check-exception (my-c4-linearize* '((A B) (B C) (C A))) true)) (test-case "class inheritance" (check (map (lambda (t) (map ##type-name (class-precedence-list t))) my-descriptors) => (map (lambda (lst) (append lst '(object t))) my-precedence-lists))